Proof PINBALL_NOUN_TABLES #242 (#392)

* Proof FIXED_FIXED_CONSTANT_POOL (#207)

* wip(p272/284): Proof PINBALL_NOUN_TABLES #242

* done(p284/284): Proof PINBALL_NOUN_TABLES #242
This commit is contained in:
Glenn Dwiyatcita 2019-07-15 22:37:51 +02:00 committed by James Harris
parent 5fac70b6a0
commit caab199e04

View File

@ -31,42 +31,43 @@
# Page 268
# THE FOLLOWING REFERS TO THE NOUN TABLES
#
# COMPONENT CODE NUMBER INTERPRETATION
#
# 00000 1 COMPONENT
# 00001 2 COMPONENT
# 00010 3 COMPONENT
# X1XXX BIT 4 = 1. DECIMAL ONLY
# 1XXXX BIT 5 = 1. NO LOAD
#
# END OF COMPONENT CODE NUMBERS
#
# SF ROUTINE CODE NUMBER INTERPRETATION
#
# 00000 OCTAL ONLY
# 00001 STRAIGHT FRACTIONAL
# 00010 CDU DEGREES (XXX.XX)
# 00011 ARITHMETIC SF
# 00100 ARITH DP1 OUT (MULT BY 2EXP14 AT END) IN (STRAIGHT)
# 00101 ARITH DP2 OUT (STRAIGHT) IN (SL 7 AT END)
# 00100 ARITH DP1 OUT(MULT BY 2EXP14 AT END) IN(STRAIGHT)
# 00101 ARITH DP2 OUT(STRAIGHT) IN(SL 7 AT END)
# 00110 Y OPTICS DEGREES (XX.XXX MAX 89.999)
# 00111 ARITH DP3 OUT (SL 7 AT END) IN (STRAIGHT
# 01000 WHOLE HOURS IN R1, WHOLE MINUES (MOD 60) IN R2,
# 00111 ARITH DP3 OUT ( SL 7 AT END) IN ( STRAIGHT)
# 01000 WHOLE HOURS IN R1, WHOLE MINUTES (MOD 60) IN R2,
# SECONDS (MOD 60) 0XX.XX IN R3. *** ALARMS IF USED WITH OCTAL
# 01001 MINUTES (MOD 60) IN D1D2, D3 BLANK, SECONDS (MOD 60) IN D4D5
# LIMITS TO 59B59 IF MAG EXCEEDS THIS VALUE.
# ALARMS IF USED WITH OCTAL ******** IN (ALARM)
# 01010 ARITH DP4 OUT (STRAIGHT) IN (SL 3 AT END)
# 01011 ARITH1 SF OUT (MULT BY 2EXP14 AT END) IN (STRAIGHT)
# 01011 ARITH1 SF OUT(MULT BY 2EXP14 AT END) IN(STRAIGHT)
# 01100 2 INTEGERS IN D1D2, D4D5, D3 BLANK.
# ALARMS IF USED WITH OCTAL ******** IN (ALARM)
# 01101 DP STRAIGHT FRACTIONAL
#
# END OF SF ROUTINE CODE NUMBERS
# SF CONSTANT CODE NUMBER INTERPRETATION
#
# 00000 WHOLE USE ARITH
# 00000 DP TIME SEC (XXX.XX SEC) USE ARITHDP1
# 00001 SPARE
@ -83,36 +84,33 @@
# USE ARITHDP3
# 01001 VELOCITY2 (XXXXX. FT/SEC) USE ARITHDP4
# 01010 VELOCITY3 (XXXX.X FT/SEC) USE ARITHDP3
# 01011 ELEVATION DEGREES (89.999 MAX) USE ARITH
# 01011 ELEVATION DEGREES (89.999MAX) USE ARITH
# 01100 TRIM DEGREES (XXX.XX DEG) USE ARITH
# 01101 INERTIA (XXXXXBB. SLUG FT FT) USE ARITH
# 01101 THRUST MOMENT (XXXXXBB. FT LBS) USE ARITH
# 01110 VELOCITY/2VS (XXXXX. FT/SEC) USE ARITHDP4
# 01101 THRUST MOMENT (XXXXXBB.FT LBS) USE ARITH
# 01110 VELOCITY/2VS (XXXXX. FT/SEC)USE ARITHDP4
# 01111 POSITION6 (XXXX.X NAUT MI) USE ARITHDP3
# 10000 DRAG ACCELERATION (XXX.XX) USE ARITHDP2
# 10001 POSITION8 (XXXX.X NAUT MI) USE ARITHDP?
# 10010 POSITION9 (XXX.XX NAUT MI) USE ARITHDP4
# 10000 DRAG ACCELERATION (XXX.XX G)USE ARITHDP2
# 10001 POSITION8 (XXXX.X NAUT MI) USE ARITHDP3
# 10010 POSITION9 (XXXXX. FT) USE ARITHDP3
# 10011 VELOCITY4 (XXXX.X FT/SEC) USE ARITHDP2
#
# END OF SF CONSTANT CODE NUMBERS
# FOR GREATER THAN SINGLE PRECISION SCALES, PUT ADDRESS IN MAJOR PART INTO
# NOUN TABLES.
# OCTAL LOADS PLACE +0 INTO MAJOR PART, DATA INTO MINOR PART.
# OCTAL DISPLAYS SHOW MINOR PART ONLY.
# TO GET AT BOTH MAJOR AND MINOR PARTS(IN OCTAL), USE NOUN 01.
# TO GET AT BOTH MAJOR AND MINOR PARTS (IN OCTAL), USE NOUN 01.
# A NOUN MAY BE DECLARED "DECIMAL ONLY" BY MAKING BIT4=1 OF ITS COMPONENT
# A NOUN MAY BE DECLARED :DECIMAL ONLY: BY MAKING BIT4=1 OF ITS COMPONENT
# CODE NUMBER. IF THIS NOUN IS USED WITH ANY OCTAL DISPLAY VERB, OR IF
# DATA IS LOADED IN OCTAL, IT ALARMS.
# IN LOADING AN "HOURS, MINUTES, SECONDS" NOUN, ALL 3 WORDS MUST BE
# IN LOADING AN :HOURS, MINUTES, SECONDS: NOUN, ALL 3 WORDS MUST BE
# LOADED, OR ALARM.
# ALARM IF AN ATTEMPT IS MADE TO LOAD "SPLIT MINUTES/SECONDS" (MMBSS).
# ALARM IF AN ATTEMPT IS MADE TO LOAD :SPLIT MINUTES/SECONDS: (MMBSS).
# THIS IS USED FOR DISPLAY ONLY.
# Page 270
@ -120,6 +118,7 @@
# (WHICH ARE IN A SEPARATE BANK FROM THE REST OF PINBALL). THESE READING
# ROUTINES ARE IN THE SAME BANK AS THE TABLES. THEY ARE CALLED BY DXCH Z.
# LODNNTAB LOADS NNADTEM WITH THE NNADTAB ENTRY, NNTYPTEM WITH THE
# NNTYPTAB ENTRY. IF THE NOUN IS MIXED, IDADITEM IS LOADED WITH THE FIRST
# IDADDTAB ENTRY, IDAD2TEM THE SECOND IDADDTAB ENTRY, IDAD3TEM THE THIRD
@ -144,7 +143,7 @@ LODNNTAB DXCH IDAD2TEM # SAVE RETURN INFO IN IDAD2TEM, IDAD3TEM.
EXTEND
BZMF LODMIXNN # NOUN NUMBER G/E FIRST MIXED NOUN
CAF ONE # NOUN NUMBER L/ FIRST MIXED NOUN
TS MIXBR # NORMAL. +1 INTO MIXBR
TS MIXBR # NORMAL. +1 INTO MIXBR.
TC LODNLV
LODMIXNN CAF TWO # MIXED. +2 INTO MIXBR.
TS MIXBR
@ -168,23 +167,22 @@ MIXCON = OCT50 # FIRST MIXED NOUN =40. (DEC 40)
# GTSFOUT LOADS SFTEMP1, SFTEMP2 WITH THE DP SFOUTAB ENTRIES.
# Page 271
GTSFOUT DXCH SFTEMP1 # 2X (SFCONUM) ARRIVES IN SFTEMP1.
GTSFOUT DXCH SFTEMP1 # 2X(SFCONUM) ARRIVES IN SFTEMP1.
EXTEND
INDEX A
DCA SFOUTAB
SFCOM DXCH SFTEMP1
DXCH Z
# GTSFIN LOADS SFTEMP1, SFTEMP2 WITH THE DP SFINTAB INTRIES.
# GTSFIN LOADS SFTEMP1, SFTEMP2 WITH THE DP SFINTAB ENTRIES.
GTSFIN DXCH SFTEMP1 # 2X (SFCONUM) ARIVES IN SFTEMP1.
GTSFIN DXCH SFTEMP1 # 2X(SFCONUM) ARIVES IN SFTEMP1.
EXTEND
INDEX A
DCA SFINTAB
TCF SFCOM
# NN NORMAL NOUNS
NNADTAB OCT 00000 # 00 NOT IN USE
OCT 40000 # 01 SPECIFY MACHINE ADDRESS (FRACTIONAL)
OCT 40000 # 02 SPECIFY MACHINE ADDRESS (WHOLE)
@ -212,7 +210,7 @@ NNADTAB OCT 00000 # 00 NOT IN USE
ECADR PIPAX # 21 PIPAS
ECADR THETAD # 22 NEW ICDU ANGLES
OCT 00000 # 23 SPARE
ECADR DSPTEM2 +1 # 24 DELTA TIME FOR AGC CLOCK (HRS,MIN,SEC)
ECADR DSPTEM2 +1 # 24 DELTA TIME FOR AGC CLOCK(HRS,MIN,SEC)
ECADR DSPTEM1 # 25 CHECKLIST
# (USED WITH PLEASE PERFORM ONLY)
ECADR DSPTEM1 # 26 PRIO/DELAY, ADRES, BBCON
@ -230,11 +228,9 @@ NNADTAB OCT 00000 # 00 NOT IN USE
ECADR TTPI # 37 TIG OF TPI (HRS,MIN,SEC)
ECADR TET # 38 TIME OF STATE VECTOR
ECADR T3TOT4 # 39 DELTA TIME TO TRANSFER (HRS,MIN,SEC)
# END OF NNADTAB FOR NORMAL NOUNS
# NN MIXED NOUNS
OCT 64000 # 40 TIME TO IGNITION/CUTOFF
# VG
# DELTA V (ACCUMULATED)
@ -249,7 +245,7 @@ NNADTAB OCT 00000 # 00 NOT IN USE
OCT 64014 # 44 APOGEE
# PERIGEE
# TFF
OCT 64017 # 45 MARKS (VHF - OPTIC)
OCT 64017 # 45 MARKS (VHF - OPTICS)
# TTI OF NEXT BURN
# MGA
OCT 02022 # 46 AUTOPILOT CONFIGURATION
@ -316,8 +312,8 @@ NNADTAB OCT 00000 # 00 NOT IN USE
# LANDMARK DATA
# HORIZON DATA
OCT 04135 # 71 STAR CODE
# LANDMARK DATA
# HORIZON DATA
# LANDMARK
# HORIZON
OCT 24140 # 72 DELT ANG
# DELT ALT
# Page 274
@ -367,7 +363,6 @@ NNADTAB OCT 00000 # 00 NOT IN USE
OCT 24261 # 99 RMS IN POSITION
# RMS IN VELOCITY
# RMS OPTION
# END OF NNADTAB FOR MIXED NOUNS
# NN NORMAL NOUNS
@ -399,7 +394,7 @@ NNTYPTAB OCT 00000 # 00 NOT IN USE
OCT 24400 # 24 3COMP HMS (DEC ONLY)
OCT 04140 # 25 3COMP WHOLE
OCT 04000 # 26 3COMP OCTAL ONLY
OCT 00140 # 27 1COMP WHILE
OCT 00140 # 27 1COMP WHOLE
OCT 00000 # 28 SPARE
OCT 20102 # 29 1COMP CDU DEG (DEC ONLY)
OCT 04140 # 30 3COMP WHOLE
@ -412,7 +407,6 @@ NNTYPTAB OCT 00000 # 00 NOT IN USE
OCT 24400 # 37 3COMP HMS (DEC ONLY)
OCT 24400 # 38 3COMP HMS (DEC ONLY)
OCT 24400 # 39 3COMP HMS (DEC ONLY)
# END OF NNTYPTAB FOR NORMAL NOUNS
# NN MIXED NOUNS
@ -422,7 +416,7 @@ NNTYPTAB OCT 00000 # 00 NOT IN USE
OCT 00542 # 41 2COMP CDU DEG, ELEV DEG
OCT 24410 # 42 3COMP POS4, POS4, VEL3
# (DEC ONLY)
OCT 20204 # 43 3COMP DPDEG(360), DPDEG(360) POS4
OCT 20204 # 43 3COMP DPDEG(360), DPDEG(360), POS4
# Page 276
# (DEC ONLY)
OCT 00410 # 44 3COMP POS4, POS4, MIN/SEC
@ -472,7 +466,7 @@ NNTYPTAB OCT 00000 # 00 NOT IN USE
# (DEC ONLY)
OCT 34444 # 68 3COMP DPDEG(360), VEL2, VEL/2VS
# (DEC ONLY)
OCT 35004 # 69 3COMP DPDEG(360), DRAG ACCEL, VEL/2VS
OCT 35004 # 69 3COMP DPDEG(360), DRAG ACCEL,VEL/2VS
# (DEC ONLY)
# Page 277
OCT 00000 # 70 3COMP OCTAL ONLY FOR EACH
@ -490,9 +484,9 @@ NNTYPTAB OCT 00000 # 00 NOT IN USE
OCT 22440 # 80 3COMP MIN/SEC, VEL2, VEL2
# (NO LOAD, DEC ONLY)
OCT 24512 # 81 3COMP VEL3 FOR EACH
# (NO LOAD, DEC ONLY)
# (DEC ONLY)
OCT 24512 # 82 3COMP VEL3 FOR EACH
# (NO LOAD, DEC ONLY)
# (DEC ONLY)
OCT 24512 # 83 3COMP VEL3 FOR EACH
# (DEC ONLY)
OCT 24512 # 84 3COMP VEL3 FOR EACH
@ -501,7 +495,6 @@ NNTYPTAB OCT 00000 # 00 NOT IN USE
# (DEC ONLY)
OCT 22451 # 86 3COMP VEL2 FOR EACH
# (DEC ONLY)
# (DEC ONLY)
OCT 00102 # 87 2COMP CDU DEG, Y OPTICS DEG
OCT 0 # 88 3COMP FRAC FOR EACH
# (DEC ONLY)
@ -519,9 +512,9 @@ NNTYPTAB OCT 00000 # 00 NOT IN USE
OCT 00000 # 98 3COMP WHOLE, FRAC, WHOLE
OCT 01162 # 99 3COMP POS9, VEL4, WHOLE
# (DEC ONLY)
# END OF NNTYPTAB FOR MIXED NOUNS
SFINTAB OCT 00006 # WHOLE, DP TIME (SEC)
OCT 03240
OCT 00000 # SPARE
@ -531,7 +524,7 @@ SFINTAB OCT 00006 # WHOLE, DP TIME (SEC)
OCT 00000 # (SFCONS IN DEGINSF, OPTDEGIN)
OCT 10707 # DP DEGREES (90)
OCT 03435 # UPPED BY 1
OCT 13070 # DP DEGREES (360) (POINT BETWN BITS 11-12)
OCT 13070 # DP DEGREES (360)(POINT BETWN BITS 11-12)
OCT 34345 # UPPED BY 1
OCT 00005 # DEGREES (180)
OCT 21616
@ -563,7 +556,8 @@ SFINTAB OCT 00006 # WHOLE, DP TIME (SEC)
2DEC 30.48 B-7 # VELOCITY4
# END OF SFINTAB
# END OF SFINTAB
SFOUTAB OCT 05174 # WHOLE, DP TIME (SEC)
OCT 13261
@ -606,7 +600,8 @@ SFOUTAB OCT 05174 # WHOLE, DP TIME (SEC)
2DEC .032808399 # VELOCITY4
# END OF SFOUTAB
# END OF SFOUTAB
# NN SF CONSTANT SF ROUTINE
@ -620,7 +615,7 @@ IDADDTAB ECADR TTOGO # 40 MIN/SEC M/S
ECADR HPER # 42 POS4 DP3
ECADR VGDISP # 42 VEL3 DP3
ECADR LAT # 43 DPDEG(360) DP4
ECADR LONG # 43 DPDEG(360 DP4
ECADR LONG # 43 DPDEG(360) DP4
ECADR ALT # 43 POS4 DP3
ECADR HAPOX # 44 POS4 DP3
ECADR HPERX # 44 POS4 DP3
@ -635,8 +630,8 @@ IDADDTAB ECADR TTOGO # 40 MIN/SEC M/S
ECADR CSMMASS # 47 WEIGHT2 ARTH1
ECADR LEMMASS # 47 WEIGHT2 ARTH1
OCT 00000 # 47 SPARE COMPONENT
ECADR PACTOFF # 48 TRIM DEG2 ARTH
ECADR YACTOFF # 48 TRIM DEG2 ARTH
ECADR PACTOFF # 48 TRIM DEG ARTH
ECADR YACTOFF # 48 TRIM DEG ARTH
OCT 00000 # 48 SPARE COMPONENT
ECADR N49DISP # 49 POS4 DP3
ECADR N49DISP +2 # 49 VEL3 DP3
@ -715,7 +710,7 @@ IDADDTAB ECADR TTOGO # 40 MIN/SEC M/S
ECADR P21VEL # 73 VEL2 DP4
ECADR P21GAM # 73 DPDEG(360) DP4
ECADR ROLLC # 74 DPDEG(360) DP4
ECADR VMAGI # 74 VEL 2 DP4
ECADR VMAGI # 74 VEL2 DP4
ECADR D # 74 DRAG ACCEL DP2
ECADR DIFFALT # 75 POS4 DP3
ECADR T1TOT2 # 75 MIN/SEC M/S
@ -751,9 +746,9 @@ IDADDTAB ECADR TTOGO # 40 MIN/SEC M/S
ECADR VGBODY # 85 VEL3 DP3
ECADR VGBODY +2 # 85 VEL3 DP3
ECADR VGBODY +4 # 85 VEL3 DP3
ECADR DELVLVC # 86 VEL3 DP3
ECADR DELVLVC +2 # 86 VEL3 DP3
ECADR DELVLVC +4 # 86 VEL3 DP3
ECADR DELVLVC # 86 VEL2 DP4
ECADR DELVLVC +2 # 86 VEL2 DP4
ECADR DELVLVC +4 # 86 VEL2 DP4
ECADR MRKBUF1 +3 # 87 CDU DEG CDU
ECADR MRKBUF1 +5 # 87 Y OPTICS DEG YOPT
OCT 0 # 87 SPARE COMPONENT
@ -794,9 +789,9 @@ IDADDTAB ECADR TTOGO # 40 MIN/SEC M/S
ECADR WWPOS # 99 POS9 DP3
ECADR WWVEL # 99 VEL4 DP2
ECADR WWOPT # 99 WHOLE ARTH
# END OF IDADDTAB
# NN SF ROUTINES
RUTMXTAB OCT 16351 # 40 M/S, DP3, DP3
@ -814,7 +809,7 @@ RUTMXTAB OCT 16351 # 40 M/S, DP3, DP3
OCT 00012 # 52 DP4
OCT 24344 # 53 DP1, DP3, DP4
OCT 24344 # 54 DP1, DP3, DP4
OCT 24503 # 55 ARTH, DP4, DP4
OCT 24503 # 55 ARTH, DP4 , DP4
OCT 00512 # 56 DP4, DP4
OCT 00007 # 57 DP3
OCT 16347 # 58 DP3, DP3, DP3
@ -831,7 +826,7 @@ RUTMXTAB OCT 16351 # 40 M/S, DP3, DP3
OCT 24252 # 69 DP4, DP2, DP4
OCT 00000 # 70 OCT, OCT, OCT
# Page 284
OCT 0 # 71 OCT, OCT,OCT
OCT 0 # 71 OCT, OCT, OCT
OCT 06352 # 72 DP4, DP3, ARTH
OCT 24507 # 73 DPR, DP4, DP4
OCT 12512 # 74 DP4, DP4, DP2
@ -860,8 +855,7 @@ RUTMXTAB OCT 16351 # 40 M/S, DP3, DP3
OCT 06143 # 97 ARTH, ARTH, ARTH
OCT 06043 # 98 ARTH, FRAC, ARTH
OCT 06247 # 99 DP3, DP2, ARTH
# END OF RUTMXTAB
SBANK= LOWSUPER
SBANK= LOWSUPER