Mirrors/Apollo-11
1
0
Fork 0
mirror of https://github.com/chrislgarry/Apollo-11.git synced 2025-08-15 10:02:22 +00:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Proof Comanche055/PINBALL_GAME_BUTTONS_AND_LIGHTS.agc (pg: 0318-0328) (#939)

Browse Source
This commit is contained in:
Zachary Pedigo 2025-08-07 14:42:36 -05:00 committed by GitHub
parent 1a03c1141b
commit e4182c51d5
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 96 additions and 85 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

181
Comanche055/PINBALL_GAME_BUTTONS_AND_LIGHTS.agc
View File

@ -511,12 +511,12 @@ DECTOBIN INDEX INREL
XCH VERBREG XCH VERBREG
TS MPAC # SUM X 2EXP-14 IN MPAC TS MPAC # SUM X 2EXP-14 IN MPAC
CAF ZERO CAF ZERO
TS MPAC +1 TS MPAC +1
CAF TEN # 10 X 2EXP-14 CAF TEN # 10 X 2EXP-14
TC SHORTMP # 10SUM X 2EXP-28 IN MPAC, MPAC+1 TC SHORTMP # 10SUM X 2EXP-28 IN MPAC, MPAC+1
XCH MPAC +1 XCH MPAC +1
AD CHAR AD CHAR
TS MPAC +1 TS MPAC +1
TC ENDNMTST # NO OF TC ENDNMTST # NO OF
ADS MPAC # OF MUST BE 5TH CHAR ADS MPAC # OF MUST BE 5TH CHAR
TC DECEND TC DECEND
@ -533,7 +533,7 @@ ENDNUM CAF THREE
CCS A CCS A
TC DECEND TC DECEND
ENDALL CS DSPCOUNT # BLOCK NUMIN BY PLACING DSPCOUNT ENDALL CS DSPCOUNT # BLOCK NUMIN BY PLACING DSPCOUNT
TC MORNUM +1 # NEGATIVELY TC MORNUM +1 # NEGATIVELY
DECEND CS ONE DECEND CS ONE
AD INREL AD INREL
EXTEND EXTEND
@ -548,12 +548,12 @@ DECEND CS ONE
# Page 318 # Page 318
TC +DECSGN TC +DECSGN
EXTEND # - CASE EXTEND # - CASE
DCS MPAC +1 DCS MPAC +1
DXCH MPAC +1 DXCH MPAC +1
+DECSGN XCH MPAC +2 +DECSGN XCH MPAC +2
INDEX INREL INDEX INREL
TS XREGLP -2 TS XREGLP -2
XCH MPAC +1 XCH MPAC +1
INDEX INREL INDEX INREL
TS VERBREG TS VERBREG
TC ENDALL TC ENDALL
@ -567,14 +567,15 @@ CRITCON OCT 22 # (DEC 18)
OCT 5 OCT 5
OCT 0 OCT 0
DECON 2DEC 1 E-5 B14 # 2EXP14/10EXP5 = .16384 DEC DECON 2DEC E-5 B14 # 2EXP14/10EXP5 = .16384 DEC
# GETINREL GETS PROPER DATA REG REL ADDRESS FOR CURRENT C(DSPCOUNT) AND # GETINREL GETS PROPER DATA REG REL ADDRESS FOR CURRENT C(DSPCOUNT) AND
# PUTS IN INTO INREL. +0 VERBREG, 1 NOUNREG, 2 XREG, 3 YREG, 4 ZREG. # PUTS IN INTO INREL. +0 VERBREG, 1 NOUNREG, 2 XREG, 3 YREG, 4 ZREG.
GETINREL INDEX DSPCOUNT GETINREL INDEX DSPCOUNT
CAF INRELTAB CAF INRELTAB
TS INREL # (A TEMP. REG) TS INREL # (A TEMP, REG)
TC Q TC Q
INRELTAB OCT 4 # R3D5 (DSPCOUNT = 0) INRELTAB OCT 4 # R3D5 (DSPCOUNT = 0)
@ -617,13 +618,14 @@ NOUN CAF ZERO
CAF ND1 # ND1, OCT 21 (DEC 17) CAF ND1 # ND1, OCT 21 (DEC 17)
TC NVCOM TC NVCOM
NEGSGN TC SIGNTEST NEGSGN TC SIGNTEST
TC -ON TC -ON
CAF TWO CAF TWO
BOTHSGN INDEX INREL # SET DEC COMP BIT TO 1 (IN DECBRNCH) BOTHSGN INDEX INREL # SET DEC COMP BIT TO 1 (IN DECBRNCH)
AD BIT7 # BIT 5 FOR R1. BIT 4 FOR R2. AD BIT7 # BIT 5 FOR R1. BIT 4 FOR R2.
ADS DECBRNCH # BIT 3 FOR R3. ADS DECBRNCH # BIT 3 FOR R3.
FIXCLPAS CCS CLPASS # IF CLPASS IS + OR +0. MAKE IT +0. FIXCLPAS CCS CLPASS # IF CLPASS IS + OR +0, MAKE IT +0.
CAF ZERO CAF ZERO
TS CLPASS TS CLPASS
TC +1 TC +1
@ -637,7 +639,7 @@ POSGN TC SIGNTEST
+ON LXCH Q +ON LXCH Q
TC GETINREL TC GETINREL
INDEX INREL INDEX INREL
CAF SGNTAB -2 CAF SGNTAB -2
TS SGNOFF TS SGNOFF
AD ONE AD ONE
TS SGNON TS SGNON
@ -654,7 +656,7 @@ SGNCOM CAF ZERO
-ON LXCH Q -ON LXCH Q
TC GETINREL TC GETINREL
INDEX INREL INDEX INREL
CAF SGNTAB -2 CAF SGNTAB -2
TS SGNON TS SGNON
AD ONE AD ONE
TS SGNOFF TS SGNOFF
@ -664,34 +666,36 @@ SGNTAB OCT 5 # -R1
OCT 3 # -R2 OCT 3 # -R2
OCT 0 # -R3 OCT 0 # -R3
SIGNTEST LXCH Q # ALLOWS +,- ONLY WHEN DSPCOUNT=R1D1, SIGNTEST LXCH Q # ALLOWS +,- ONLY WHEN DSPCOUNT=R1D1,
CAF THREE # R2D1, OR R3D1. ALLOWS ONLY FIRST OF CAF THREE # R2D1, OR R3D1. ALLOWS ONLY FIRST OF
MASK DECBRNCH # CONSECUTIVE +/- CHARACTERS. MASK DECBRNCH # CONSECUTIVE +/- CHARACTERS.
CCS A # IF LOW2 BITS OF DECBRNCH NOT 0. SIGN CCS A # IF LOW2 BITS OF DECBRNCH NOT 0, SIGN
TC ENDOFJOB # FOR THIS WORD ALREADY IN. REJECT. TC ENDOFJOB # FOR THIS WORD ALREADY IN. REJECT.
CS R1D1 CS R1D1
TC SGNTST1 TC SGNTST1
CS R2D1 CS R2D1
TC SGNTST1 TC SGNTST1
CS R3D1 CS R3D1
TC SGNTST1 TC SGNTST1
TC ENDOFJOB # NO MATCH FOUND. SIGN ILLEGAL TC ENDOFJOB # NO MATCH FOUND. SIGN ILLEGAL
SGNTST1 AD DSPCOUNT SGNTST1 AD DSPCOUNT
EXTEND EXTEND
BZF +2 # MATCH FOUND BZF +2 # MATCH FOUND
TC Q TC Q
TC L # SIGN LEGAL TC L # SIGN LEGAL
# CLEAR BLANKS WHICH R1, R2, R3 IS CURRENT OR LAST TO BE DISPLAYED (PERTINENT
# XREG, YREG, ZREG IS CLEARED). SUCCESSIVE CLEARS TAKE CARE OF EACH RX # CLEAR BLANKS WHICH R1, R2, R3 IS CURRENT OR LAST TO BE DISPLAYED(PERTINE
# L/ RC UNTIL R1 IS DONE. THEN NO FURTHER ACTION. # NT XREG,YREG,ZREG IS CLEARED). SUCCESSIVE CLEARS TAKE CARE OF EACH RX
# L/ RC UNTIL R1 IS DONE. THEN NO FURTHER ACTION
# #
# THE SINGLE COMPONENT LOAD VERBS ALLOW ONLY THE SINGLE RC THAT IS # THE SINGLE COMPONENT LOAD VERBS ALLOW ONLY THE SINGLE RC THAT IS
# APPROPRIATE TO BE CLEARED. # APPROPRIATE TO BE CLEARED.
# #
# CLPASS +0 PASS0, CAN BE BACKED UP # CLPASS +0 PASS0, CAN BE BACKED UP
# +NZ HIPASS, CAN BE BACKED UP # +NZ HIPASS, CAN BE BACKED UP
# -NZ PASS0, CANNOT BE BACKED UP # -NZ PASS0, CANNOT BE BACKED UP
# Page 321 # Page 321
CLEAR CCS DSPCOUNT CLEAR CCS DSPCOUNT
AD ONE AD ONE
@ -702,7 +706,7 @@ CLEAR CCS DSPCOUNT
TS INREL # MUST SET INREL, EVEN FOR HIPASS. TS INREL # MUST SET INREL, EVEN FOR HIPASS.
CCS CLPASS CCS CLPASS
TC CLPASHI # + TC CLPASHI # +
TC +2 # +0 IF CLPASS IS +0 OR -, IT IS PASS0 TC +2 # +0 IF CLPASS IS +0 OR -, IT IS PASS0
TC +1 # - TC +1 # -
CA INREL CA INREL
TC LEGALTST TC LEGALTST
@ -710,7 +714,7 @@ CLEAR CCS DSPCOUNT
CLPASHI CCS INREL CLPASHI CCS INREL
TS INREL TS INREL
TC LEGALTST TC LEGALTST
CAF DOUBLK +2 # +3 TO - NUMBER, BACKS DATA REQUESTS. CAF DOUBLK +2 # +3 TO - NUMBER. BACKS DATA REQUESTS.
ADS REQRET ADS REQRET
CA INREL CA INREL
TS MIXTEMP # TEMP STORAGE FOR INREL TS MIXTEMP # TEMP STORAGE FOR INREL
@ -727,13 +731,14 @@ CLR5 LXCH Q # USED 5BLANK BUT AVOIDS ITS TC GETINREL
TC 5BLANK +2 TC 5BLANK +2
LEGALTST AD NEG2 LEGALTST AD NEG2
CCS A CCS A
TC Q # LEGAL INREL G/2 TC Q # LEGAL INREL G/ 2
TC CCSHOLE TC CCSHOLE
TC ENDOFJOB # ILLEGAL INREL=0,1 TC ENDOFJOB # ILLEGAL INREL= 0,1
TC Q # LEGAL INREL=2 TC Q # LEGAL INREL = 2
# 5BLANK BLANKS 5 CHAR DISPLAY WORD IN R1, R2, OR R3. IT ALSO ZEROES XREG,
# YREG, OR ZREG. PLACE ANY + DSPCOUNT NUMBER FOR PERTINENT RC INTO DSPCOUNT. # 5BLANK BLANKS 5 CHAR DISPLAY WORD IN R1, R2, OR R3. IT ALSO ZEROES XREG,
# YREG, OR ZREG.PLACE ANY + DSPCOUNT NUMBER FOR PERTINENT RC INTO DSPCOUNT
# DSPCOUNT IS LEFT SET TO LEFT MOST DSP NUMB FOR RC JUST BLANKED. # DSPCOUNT IS LEFT SET TO LEFT MOST DSP NUMB FOR RC JUST BLANKED.
TS DSPCOUNT # NEEDED FOR BLANKSUB TS DSPCOUNT # NEEDED FOR BLANKSUB
@ -744,7 +749,7 @@ LEGALTST AD NEG2
TS VERBREG # ZERO X, Y, Z, REG. TS VERBREG # ZERO X, Y, Z, REG.
# Page 322 # Page 322
INDEX INREL INDEX INREL
TS XREGLP -2 TS XREGLP -2
TS CODE TS CODE
INDEX INREL # ZERO PERTINENT DEC COMP BIT. INDEX INREL # ZERO PERTINENT DEC COMP BIT.
CS BIT7 # PROTECT OTHERS CS BIT7 # PROTECT OTHERS
@ -763,7 +768,7 @@ LEGALTST AD NEG2
ADS DSPCOUNT ADS DSPCOUNT
TC 2BLANK TC 2BLANK
INDEX INREL INDEX INREL
CAF R1D1 -2 CAF R1D1 -2
TS DSPCOUNT # SET DSPCOUNT TO LEFT MOST DSP NUMBER TS DSPCOUNT # SET DSPCOUNT TO LEFT MOST DSP NUMBER
TC L # OF REG. JUST BLANKED TC L # OF REG. JUST BLANKED
@ -776,8 +781,8 @@ DOUBLK OCT 15 # DEC 13
BRNCHCON OCT 77774 BRNCHCON OCT 77774
# 2BLANK BLANKS TWO CHAR. PLACE DSP NUMBER OF LEFT CHAR OF THE PAIR INTO # 2BLANK BLANKS TWO CHAR. PLACE DSP NUMBER OF LEFT CHAR OF THE PAIR INTO
# DSPCOUNT. THIS NUMBER IS LEFT IN DSPCOUNT # DSPCOUNT. THIS NUMBER IS LEFT IN DSPCOUNT
2BLANK CA DSPCOUNT 2BLANK CA DSPCOUNT
TS SR TS SR
@ -788,30 +793,33 @@ BRNCHCON OCT 77774
EXTEND EXTEND
BZMF +2 # IF OLD CONTENTS -, NOUT OK BZMF +2 # IF OLD CONTENTS -, NOUT OK
INCR NOUT # IF OLD CONTENTS +, +1 TO NOUT INCR NOUT # IF OLD CONTENTS +, +1 TO NOUT
RELINT # IF -, NOUT OK RELINT # IF -,NOUT OK
TC Q TC Q
BLANKCON OCT 4000 BLANKCON OCT 4000
# Page 323 # Page 323
# ENTER PASS 0 IS THE EXECUTE FUNCTION. HIGHER ORDER ENTERS ARE TO LOAD # ENTER PASS 0 IS THE EXECUTE FUNCTION. HIGHER ORDER ENTERS ARE TO LOAD
# DATA. THE SIGN OF REQRET DETERMINES THE PASS, + FOR PASS 0, - FOR HIGHER # DATA. THE SIGN OF REQRET DETERMINES THE PASS, + FOR PASS 0,- FOR HIGHER
# PASSES # PASSES.
#
# #
# MACHINE CADR TO BE SPECIFIED (MCTBS) NOUNS DESIRE AN ECADR TO BE LOADED # MACHINE CADR TO BE SPECIFIED (MCTBS) NOUNS DESIRE AN ECADR TO BE LOADED
# WHEN USED WITH LOAD VERBS, MONITOR VERBS, OR DISPLAY VERBS (EXCEPT # WHEN USED WITH LOAD VERBS, MONITOR VERBS, OR DISPLAY VERBS (EXCEPT
# VERB = FIXED MEMORY DISPLAY, WHICH REQUIRES AN FCADR). # VERB = FIXED MEMORY DISPLAY, WHICH REQUIRES AN FCADR).
BANK 41 BANK 41
SETLOC PINBALL2 SETLOC PINBALL2
BANK BANK
COUNT 41/PIN COUNT 41/PIN
NVSUBB TC NVSUB1 # STANDARD LEAD INS. DON'T MOVE. NVSUBB TC NVSUB1 # STANDARD LEAD INS. DONT MOVE.
LOADLV1 TC LOADLV LOADLV1 TC LOADLV
# END OF STANDARD LEAD INS. # END OF STANDARD LEAD INS.
ENTER CAF ZERO ENTER CAF ZERO
TS CLPASS TS CLPASS
CAF ENDINST CAF ENDINST
@ -822,13 +830,13 @@ ENTER CAF ZERO
TC +1 # IF -, NOT PASS 0 TC +1 # IF -, NOT PASS 0
ENTPASHI CAF MMADREF ENTPASHI CAF MMADREF
AD REQRET # IF L/ 2 CHAR IN FOR MM CODE, ALARM AD REQRET # IF L/ 2 CHAR IN FOR MM CODE, ALARM
EXTEND # AND RECYCLE (DECIDE AT MCHANG+1). EXTEND # AND RECYCLE(DECIDE AT MMCHANG+1).
BZF ACCEPTWD BZF ACCEPTWD
CAF THREE # IF DEC, ALARM IF L/ 5 CHAR IN FOR DATA, CAF THREE # IF DEC, ALARM IF L/ 5 CHAR IN FOR DATA,
MASK DECBRNCH # BUT LEAVE REQRET - AND FLASH ON, SO MASK DECBRNCH # BUT LEAVE REQRET - AND FLASH ON, SO
CCS A # OPERATOR CAN SUPPLY MISSING NUMERICAL CCS A # OPERATOR CAN SUPPLY MISSING NUMERICAL
TC +2 # CHARACTERS AND CONTINUE. TC +2 # CHARACTERS AND CONTINUE.
TC ACCEPTWD # OCTAL. ANY NUMBER OF CHAR OK. TC ACCEPTWD # OCTAL. ANY NUMBER OF CHAR OK.
CCS DSPCOUNT CCS DSPCOUNT
TC GODSPALM # LESS THAN 5 CHAR DEC(DSPCOUNT IS +) TC GODSPALM # LESS THAN 5 CHAR DEC(DSPCOUNT IS +)
TC GODSPALM # LESS THAN 5 CHAR DEC(DSPCOUNT IS +) TC GODSPALM # LESS THAN 5 CHAR DEC(DSPCOUNT IS +)
@ -845,7 +853,7 @@ MMADREF ADRES MMCHANG +1 # ASSUMES TC REQMM AT MMCHANG.
# Page 324 # Page 324
LOWVERB DEC 28 # LOWER VERB THAT AVOIDS NOUN TEST. LOWVERB DEC 28 # LOWER VERB THAT AVOIDS NOUN TEST.
ENTPAS0 CAF ZERO # NOUN VERB SUB ENTERS HERE ENTPAS0 CAF ZERO # NOUN VERB SUB ENTERS HERE
TS DECBRNCH TS DECBRNCH
CS VD1 # BLOCK FURTHER NUM CHAR, SO THAT STRAY CS VD1 # BLOCK FURTHER NUM CHAR, SO THAT STRAY
TS DSPCOUNT # CHAR DO NOT GET INTO VERB OR NOUN LTS. TS DSPCOUNT # CHAR DO NOT GET INTO VERB OR NOUN LTS.
@ -853,7 +861,7 @@ TESTVB CS VERBREG # IF VERB IS G/E LOWVB, SKIP NOUN TEST.
TS VERBSAVE # SAVE VERB FOR POSSIBLE RECYCLE. TS VERBSAVE # SAVE VERB FOR POSSIBLE RECYCLE.
AD LOWVERB # LOWVERB - VB AD LOWVERB # LOWVERB - VB
EXTEND EXTEND
BZMF VERBFAN # VERB G/ E LOWVERB BZMF VERBFAN # VERB G/E LOWVERB
TESTNN EXTEND # VERB L/ LOWVERB TESTNN EXTEND # VERB L/ LOWVERB
DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
DXCH Z # ROUTINE. DXCH Z # ROUTINE.
@ -862,23 +870,23 @@ TESTNN EXTEND # VERB L/ LOWVERB
TC +2 # NORMAL TC +2 # NORMAL
TC MIXNOUN # MIXED TC MIXNOUN # MIXED
CCS NNADTEM # NORMAL CCS NNADTEM # NORMAL
TC VERBFAN -2 # NORMAL IF + TC VERBFAN -2 # NORMAL IF +
TC GODSPALM # NOT IN USE IF +0 TC GODSPALM # NOT IN USE IF +0
TC REQADD # SPECIFY MACHINE CADR IF - TC REQADD # SPECIFY MACHINE CADR IF -
INCR NOUNCADR # AUGMENT MACHINE CADR IF -0 INCR NOUNCADR # AUGMENT MACHINE CADR IF -0
TC SETNADD # ECADR FROM NOUNCADR, SETS ED, NOUNADD. TC SETNADD # ECADR FROM NOUNCADR. SETS EB, NOUNADD.
TC INTMCTBS +2 TC INTMCTBS +2
REQADD CAF BIT15 # SET CLPASS FOR PASS 0 ONLY REQADD CAF BIT15 # SET CLPASS FOR PASS0 ONLY
TS CLPASS TS CLPASS
CS ENDINST # TEST IF REACHED HERE FROM INTERNAL OR CS ENDINST # TEST IF REACHED HERE FROM INTERNAL OR
AD ENTEXIT # FROM EXTERNAL AD ENTEXIT # FROM EXTERNAL
EXTEND EXTEND
BZF +2 # EXTERNAL MACH CADR TO BE SPECIFIED BZF +2 # EXTERNAL MACH CADR TO BE SPECIFIED
TC INTMCTBS TC INTMCTBS
TC REQDATZ # EXTERNAL MACH CADR TO BE SPECIFIED TC REQDATZ # EXTERNAL MACH CADR TO BE SPECIFIED
CCS DECBRNCH # ALARM AND RECYCLE IF DECIMAL USED CCS DECBRNCH # ALARM AND RECYCLE IF DECIMAL USED
TC ALMCYCLE # FOR MCTBS. TC ALMCYCLE # FOR MCTBS.
CS VD1 # OCTAL USED OK CS VD1 # OCTAL USED OK
TS DSPCOUNT # BLOCK NUM CHAR IN TS DSPCOUNT # BLOCK NUM CHAR IN
CCS CADRSTOR CCS CADRSTOR
TC +3 # EXTERNAL MCTBS DISPLAY WILL LEAVE FLASH TC +3 # EXTERNAL MCTBS DISPLAY WILL LEAVE FLASH
@ -886,7 +894,7 @@ REQADD CAF BIT15 # SET CLPASS FOR PASS 0 ONLY
TC +1 TC +1
TC FLASHON TC FLASHON
USEADD XCH ZREG USEADD XCH ZREG
TC SETNCADR # ECADR INTO NOUNCADR. SET EB, NOUNADD. TC SETNCADR # ECADR INTO NOUNCADR. SET EB, NOUNADD.
EXTEND EXTEND
DCA LODNNLOC # SWITCH BANKS TO NOUN TAB E READING DCA LODNNLOC # SWITCH BANKS TO NOUN TAB E READING
DXCH Z # ROUTINE. DXCH Z # ROUTINE.
@ -899,28 +907,28 @@ LODNNLOC 2CADR LODNNTAB
NEG5 OCT 77772 NEG5 OCT 77772
INTMCTBS CA MPAC +2 # INTERNAL MACH CADR TO BE SPECIFIED. INTMCTBS CA MPAC +2 # INTERNAL MACH CADR TO BE SPECIFIED.
TC SETNCADR # ECADR INTO NOUNCADR. SET EB, NOUNADD. TC SETNCADR # ECADR INTO NOUNCADR. SET EB, NOUNADD.
CS FIVE # NVSUB CALL LEFT CADR IN MPAC+2 FOR MACH CS FIVE # NVSUB CALL LEFT CADR IN MPAC+2 FOR MACH
AD VERBREG # CADR TO BE SPECIFIED. AD VERBREG # CADR TO BE SPECIFIED.
EXTEND EXTEND
BZF VERBFAN # DON'T DISPLAY CADR IF VB = 05. BZF VERBFAN # DONT DISPLAY CADR IF VB = 05.
CAF R3D1 # VB NOT = 05. DISPLAY CADR. CAF R3D1 # VB NOT = 05. DISPLAY CADR.
TS DSPCOUNT TS DSPCOUNT
CA NOUNCADR CA NOUNCADR
TC DSPOCTWO TC DSPOCTWO
TC VERBFAN TC VERBFAN
AD ONE AD ONE
TC SETNCADR # ECADR INTO NOUNCADR. SETS EB, NOUNADD. TC SETNCADR # ECADR INTO NOUNCADR. SETS EB, NOUNADD.
VERBFAN CS LST2CON VERBFAN CS LST2CON
AD VERBREG # VERB -- LST2CON AD VERBREG # VERB-LST2CON
CCS A CCS A
AD ONE # VERB G/ LST2CON AD ONE # VERB G/ LST2CON
TC +2 TC +2
TC VBFANDIR # VERB L/ LST2CON TC VBFANDIR # VERB L/ LST2CON
TS MPAC TS MPAC
TC RELDSP # RELEASE DISPLAY SYST TC RELDSP # RELEASE DISPLAY SYST
TC POSTJUMP # GO TO GOEXTVB WITH VB=40 IN MPAC. TC POSTJUMP # GO TO GOEXTVB WITH VB-40 IN MPAC.
CADR GOEXTVB CADR GOEXTVB
LST2CON DEC 40 # FIRST LIST2 VERB (EXTENDED VERB) LST2CON DEC 40 # FIRST LIST2 VERB (EXTENDED VERB)
@ -971,18 +979,19 @@ REQEXLQC CADR VBRQEXEC # VB30 REQUEST EXECUTIVE
CADR GODSPALM # VB38 SPARE CADR GODSPALM # VB38 SPARE
CADR GODSPALM # VB39 SPARE CADR GODSPALM # VB39 SPARE
# THE LIST2 VERBFAN IS LOCATED IN THE EXTENDED VERB BANK. # THE LIST2 VERBFAN IS LOCATED IN THE EXTENDED VERB BANK.
# Page 327 # Page 327
# NNADTAB CONTAINS A RELATIVE ADDRESS, IDADDREL (IN LOW 10 BITS), REFERRING # NNADTAB CONTAINS A RELATIVE ADDRESS, IDADDREL(IN LOW 10 BITS), REFERRING
# TO WHERE 3 CONSECUTIVE ADDRESSES ARE STORED (IN IDADDTAB). # TO WHERE 3 CONSECUTIVE ADDRESSES ARE STORED (IN IDADDTAB).
# MIXNOUN GETS DATA AND STORES IN MIXTEMP,+1,+2. IT SETS NOUNADD FOR # MIXNOUN GETS DATA AND STORES IN MIXTEMP,+1,+2. IT SETS NOUNADD FOR
# MIXTEMP. # MIXTEMP.
MIXNOUN CCS NNADTEM MIXNOUN CCS NNADTEM
TC +4 # + IN USE TC +4 # + IN USE
TC GODSPALM # +0 NOT IN USE TC GODSPALM # +0 NOT IN USE
TC +2 # - IN USE TC +2 # - IN USE
TC +1 # -0 IN USE TC +1 # -0 IN USE
CS SIX CS SIX
AD VERBREG AD VERBREG
EXTEND EXTEND
@ -991,21 +1000,21 @@ MIXNOUN CCS NNADTEM
CAF TWO CAF TWO
MIXNN1 TS DECOUNT MIXNN1 TS DECOUNT
AD MIXAD AD MIXAD
TS NOUNADD # SET NOUNADD TO MIXTEMP +K TS NOUNADD # SET NOUNADD TO MIXTEMP + K
INDEX DECOUNT # GET IDADDTAB ENTRY FOR COMPONENT K INDEX DECOUNT # GET IDADDTAB ENTRY FOR COMPONENT K
CA IDAD1TEM # OF NOUN. CA IDAD1TEM # OF NOUN.
TS NOUNTEM TS NOUNTEM
# TEST FOR DP (FOR OCT DISPLAY). IF SO, GET # TEST FOR DP(FOR OCT DISPLAY). IF SO, GET
# MINOR PART ONLY. # MINOR PART ONLY.
TC SFRUTMIX # GET SF ROUT NUMBER IN A TC SFRUTMIX # GET SF ROUT NUMBER IN A
TC DPTEST TC DPTEST
TC MIXNN2 # NO DP TC MIXNN2 # NO DP
INCR NOUNTEM # DP GET MINOR PART INCR NOUNTEM # DP GET MINOR PART
MIXNN2 CA NOUNTEM MIXNN2 CA NOUNTEM
MASK LOW11 # ESUBK (NO DP) OR (ESUBK)+1 FOR DP. MASK LOW11 # ESUBK (NO DP) OR (ESUBK)+1 FOR DP
TC SETEBANK # SET EBANK, LEAVE EADRES IN A. TC SETEBANK # SET EBANK, LEAVE EADRES IN A.
INDEX A # PICK UP C(ESUBK) NOT DP. INDEX A # PICK UP C(ESUBK) NOT DP
CA 0 # OR C((ESUBK)+1) FOR DP MINOR PART CA 0 # OR C((ESUBK)+1) FOR DP MINOR PART
INDEX NOUNADD INDEX NOUNADD
XCH 0 # STORE IN MIXTEM + K XCH 0 # STORE IN MIXTEM + K
CCS DECOUNT CCS DECOUNT
@ -1014,30 +1023,32 @@ MIXNN2 CA NOUNTEM
MIXAD TC MIXTEMP MIXAD TC MIXTEMP
# DPTEST ENTER WITH SF ROUT NUMBER IN A.
# RETURNS TO L+1 IF NO DP. # DPTEST ENTER WITH SF ROUT NUMBER IN A.
# RETURNS TO L+2 IF DP. # RETURNS TO L+1 IF NO DP.
# RETURNS TO L+2 IF DP.
DPTEST INDEX A DPTEST INDEX A
TCF +1 TCF +1
TC Q # OCTAL ONLY NO DP TC Q # OCTAL ONLY NO DP
TC Q # FRACT NO DP TC Q # FRACT NO DP
# Page 328 # Page 328
TC Q # DEG NO DP TC Q # DEG NO DP
TC Q # ARITH NO DP TC Q # ARITH NO DP
TCF DPTEST1 # DP1OUT TCF DPTEST1 # DP1OUT
TCF DPTEST1 # DP2OUT TCF DPTEST1 # DP2OUT
TC Q # OPDEG NO DP TC Q # OPDEG NO DP
TCF DPTEST1 # DP3OUT TCF DPTEST1 # DP3OUT
TC Q # HMS NO DP TC Q # HMS NO DP
TC Q # M/S NO DP TC Q # M/S NO DP
TCF DPTEST1 # DP4OUT TCF DPTEST1 # DP4OUT
TC Q # ARITH1 NO DP TC Q # ARITH1 NO DP
TC Q # 2INTOUT NO DP TO GET HI PART IN MPAC TC Q # 2INTOUT NO DP TO GET HI PART IN MPAC
TCF DPTEST1 # DPFRACOT TCF DPTEST1 # DPFRACOT
DPTEST1 INDEX Q DPTEST1 INDEX Q
TC 1 # RETURN TO L+2 TC 1 # RETURN TO L+2
REQDATX CAF R1D1 REQDATX CAF R1D1
TCF REQCOM TCF REQCOM
REQDATY CAF R2D1 REQDATY CAF R2D1
@ -1060,9 +1071,9 @@ UPDATNN XCH Q
CCS NNADTEM CCS NNADTEM
AD ONE # NORMAL AD ONE # NORMAL
TCF PUTADD TCF PUTADD
TCF PUTADD +1 # MCTBS DON'T CHANGE NOUNADD TCF PUTADD +1 # MCTBS DONT CHANGE NOUNADD
TCF PUTADD +1 # MCTBI DON'T CHANGE NOUNADD TCF PUTADD +1 # MCTBI DONT CHANGE NOUNADD
PUTADD TC SETNCADR # ECADR INTO NOUNCADR. SETS EB, NOUNADD. PUTADD TC SETNCADR # ECADR INTO NOUNCADR. SETS EB, NOUNADD.
CAF ND1 CAF ND1
TS DSPCOUNT TS DSPCOUNT
CA NOUNREG CA NOUNREG