Apple II User Manual
0487 E1AC ;HAVE VALID COMMAND
0488 E1AC 8A MCM3 TXA ;CONVERT TO WORD (MULT BY 2)
0489 E1AD 0A ASL A ;2 BYTES (ADDR)
0489 E1AD 0A ASL A ;2 BYTES (ADDR)
0490 E1AE AA TAX
0491 E1AF BD E5 E1 LDA MONCOM,X ;GET ADDRESS OF COMMAND PROCESSOR
0491 E1AF BD E5 E1 LDA MONCOM,X ;GET ADDRESS OF COMMAND PROCESSOR
0492 E1B2 8D 7D A4 STA JUMP
0493 E1B5 BD E6 E1 LDA MONCOM+1,X
0493 E1B5 BD E6 E1 LDA MONCOM+1,X
0494 E1B8 8D 7E A4 STA JUMP+1
0495 E1BB 20 C1 E1 JSR JMPR ;CMD PROCESSORS CAN EXIT WITH 'RTS'
0495 E1BB 20 C1 E1 JSR JMPR ;CMD PROCESSORS CAN EXIT WITH 'RTS'
0496 E1BE 4C 82 E1 JMP START
0497 E1C1 6C 7D A4 JMPR JMP (JUMP) ;GO TO COMMAND
0497 E1C1 6C 7D A4 JMPR JMP (JUMP) ;GO TO COMMAND
0498 E1C4
0499 E1C4 ;VALID COMMANDS
0499 E1C4 ;VALID COMMANDS
0500 E1C4 MCNT =32 ;COUNT
0501 E1C4 4554524D472FCOMB .DB "ETRMG/LDN*AXYPS "
0501 E1C4 4554524D472FCOMB .DB "ETRMG/LDN*AXYPS "
0501 E1CA 4C444E2A415859505320
0502 E1D4 423F2348565A .DB "B?#HVZIK123456[]",$5E
0502 E1D4 423F2348565A .DB "B?#HVZIK123456[]",$5E
0502 E1DA 494B3132333435365B5D5E
0503 E1E5
0503 E1E5
0504 E1E5 39F6CFF627E2MONCOM .DW EDIT,REENTR,REG,MEM,GO
0504 E1EB 48E261E2
0504 E1EB 48E261E2
0505 E1EF A0E2E6E23BE4 .DW CHNGG,LOAD,DUMP,ASSEM,CGPC,CGA
0505 E1F5 00D0D4E5EEE5
0505 E1F5 00D0D4E5EEE5
0506 E1FB F2E5F6E5EAE5 .DW CGX,CGY,CGPS,CGS,NXT5,BRKA
0506 E201 FAE50DE61BE6
0506 E201 FAE50DE61BE6
0507 E207 4DE6FEE665E6 .DW SHOW,CLRBK,SHIS,REGT,TRACE
0507 E20D D9E6DDE6
0507 E20D D9E6DDE6
0508 E211 9EFB0AE7BDE6 .DW MNEENT,KDISA,TOGTA1,TOGTA2,VECKSM
0508 E217 CBE694E6
0508 E217 CBE694E6
0509 E21B E5E600B003B0 .DW BRKK,BASIEN,BASIRE
0510 E221 ;USER DEFINED FUNCTIONS
0510 E221 ;USER DEFINED FUNCTIONS
0511 E221 0C010F011201 .DW KEYF1,KEYF2,KEYF3
0512 E227
0512 E227
0513 E227 ;***** R COMMAND-DISPLAY REGISTERS *****
0514 E227 20 13 EA REG JSR CRLOW ;CLEAR DISP IF KB
0514 E227 20 13 EA REG JSR CRLOW ;CLEAR DISP IF KB
0515 E22A A0 08 LDY #M4-M1 ;MESSAG & <CR>
0516 E22C 20 AF E7 JSR KEP
0516 E22C 20 AF E7 JSR KEP
0517 E22F 20 24 EA JSR CRCK
0518 E232 20 3E E8 REG1 JSR BLANK
0518 E232 20 3E E8 REG1 JSR BLANK
0519 E235 A0 09 LDY #SAVPC-ADDR ;OUTPUT PGR CNTR (SAVEPC+1,SAVEPC)
0520 E237 20 DD E2 JSR WRITAD
0520 E237 20 DD E2 JSR WRITAD
0521 E23A A9 20 LDA #SAVPS ;NOW THE OTHER 5 REGS
0522 E23C 8D 1C A4 STA ADDR
0522 E23C 8D 1C A4 STA ADDR
0523 E23F A9 A4 LDA #SAVPS/256
0524 E241 8D 1D A4 STA ADDR+1
0524 E241 8D 1D A4 STA ADDR+1
0525 E244 A2 05 LDX #5 ;COUNT
0526 E246 D0 07 BNE MEM1 ;SHARE CODE
0526 E246 D0 07 BNE MEM1 ;SHARE CODE
0527 E248
0528 E248 ;***** M COMMAND-DISPLAY MEMORY *****
0528 E248 ;***** M COMMAND-DISPLAY MEMORY *****
0529 E248 20 AE EA MEM JSR ADDIN ;GET START ADDDRESS IN ADDR
0530 E24B B0 13 BCS MEM3
0530 E24B B0 13 BCS MEM3
0531 E24D A2 04 MEIN LDX #4
0532 E24F A0 00 MEM1 LDY #0
0532 E24F A0 00 MEM1 LDY #0
0533 E251 20 3E E8 MEM2 JSR BLANK
0534 E254 A9 1C LDA #ADDR
0534 E254 A9 1C LDA #ADDR
0535 E256 20 58 EB JSR LDAY ;LOAD CONTENTS OF CURR LOCATION
0536 E259 20 46 EA JSR NUMA ;AND DISPLAY IT AS 2 HEX DIGITS
0536 E259 20 46 EA JSR NUMA ;AND DISPLAY IT AS 2 HEX DIGITS
0537 E25C C8 INY
0538 E25D CA DEX ;DECR COUNTER
0538 E25D CA DEX ;DECR COUNTER
0539 E25E D0 F1 BNE MEM2
0540 E260 60 MEM3 RTS ;GET NEXT COMMAND
0540 E260 60 MEM3 RTS ;GET NEXT COMMAND
0541 E261