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

51
Comanche055/PINBALL_GAME_BUTTONS_AND_LIGHTS.agc
View File

@ -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
@ -664,10 +666,11 @@ 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
@ -682,9 +685,10 @@ SGNTST1 AD DSPCOUNT
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.
@ -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
@ -732,8 +736,9 @@ LEGALTST AD NEG2
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, # 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. # 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
@ -795,23 +800,26 @@ 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,7 +830,7 @@ 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
@ -866,7 +874,7 @@ TESTNN EXTEND # VERB L/ LOWVERB
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 PASS0 ONLY REQADD CAF BIT15 # SET CLPASS FOR PASS0 ONLY
TS CLPASS TS CLPASS
@ -903,7 +911,7 @@ INTMCTBS CA MPAC +2 # INTERNAL MACH CADR TO BE SPECIFIED.
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
@ -913,14 +921,14 @@ INTMCTBS CA MPAC +2 # INTERNAL MACH CADR TO BE SPECIFIED.
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,6 +979,7 @@ 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
@ -1002,9 +1011,9 @@ MIXNN1 TS DECOUNT
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
@ -1014,6 +1023,7 @@ MIXNN2 CA NOUNTEM
MIXAD TC MIXTEMP MIXAD TC MIXTEMP
# DPTEST ENTER WITH SF ROUT NUMBER IN A. # DPTEST ENTER WITH SF ROUT NUMBER IN A.
# RETURNS TO L+1 IF NO DP. # RETURNS TO L+1 IF NO DP.
# RETURNS TO L+2 IF DP. # RETURNS TO L+2 IF DP.
@ -1038,6 +1048,7 @@ DPTEST INDEX A
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,8 +1071,8 @@ 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