Apple II User Manual

0179   809F 20 64 80           JSR SAVINT

0180   80A2 20 D3 80           JSR DBOFF       ;STOP NMI'S
0181   80A5 AD 56 A6           LDA TV

0182   80A8 D0 05              BNE TVNZ
0183   80AA A9 32              LDA #'2'

0184   80AC 4C 53 80           JMP IDISP
0185   80AF 20 37 83    TVNZ   JSR OPCCOM      ;TRACE WITH DELAY

0186   80B2 AD 5D A6           LDA AR
0187   80B5 20 4A 83           JSR OBCRLF      ;DISPLAY ACC

0188   80B8 20 5A 83           JSR DELAY
0189   80BB 90 10              BCC TRACON      ;STOP IF KEY ENTERED

0190   80BD 4C 03 80           JMP WARM
0191   80C0 20 86 8B    TRCOFF JSR ACCESS      ;DISABLE NMIS

0192   80C3 38                 SEC
0193   80C4 20 64 80           JSR SAVINT

0194   80C7 20 D3 80           JSR DBOFF
0195   80CA 6C 74 A6           JMP (TRCVEC)    ;AND GO TO SPECIAL TRACE

0196   80CD 20 E4 80    TRACON JSR DBON        ;ENABLE NMI'S
0197   80D0 4C FD 83           JMP GO1ENT+3    ;AND RESUME (NO WRITE PROT)

0198   80D3 AD 01 AC    DBOFF  LDA OR3A        ;PULSE DEBUG OFF
0199   80D6 29 DF              AND #$DF

0200   80D8 09 10              ORA #$10
0201   80DA 8D 01 AC           STA OR3A

0202   80DD AD 03 AC           LDA DDR3A
0203   80E0 09 30              ORA #$30

0204   80E2 D0 0F              BNE DBNEW-3     ;RELEASE FLIP FLOP SO KEY WORKS
0205   80E4 AD 01 AC    DBON   LDA OR3A        ;PULSE DEBUG ON

0206   80E7 29 EF              AND #$EF
0207   80E9 09 20              ORA #$20

0208   80EB 8D 01 AC           STA OR3A
0209   80EE AD 03 AC           LDA DDR3A

0210   80F1 09 30              ORA #$30
0211   80F3 8D 03 AC           STA DDR3A

0212   80F6 AD 03 AC    DBNEW  LDA DDR3A       ;RELEASE FLIP FLOP
0213   80F9 29 CF              AND #$CF

0214   80FB 8D 03 AC           STA DDR3A
0215   80FE 60                 RTS

0216   80FF             ;
0217   80FF             ; GETCOM - GET COMMAND AND 0-3 PARMS

0218   80FF             ;
0219   80FF 20 4D 83    GETCOM JSR CRLF

0220   8102 A9 2E              LDA #'.'        ;PROMPT
0221   8104 20 47 8A           JSR OUTCHR

0222   8107 20 1B 8A    GETC1  JSR INCHR
0223   810A F0 F3              BEQ GETCOM      ;CARRIAGE RETURN?

0224   810C C9 7F              CMP #$7F        ;DELETE?
0225   810E F0 F7              BEQ GETC1

0226   8110 C9 00              CMP #0          ;NULL?
0227   8112 F0 F3              BEQ GETC1

0228   8114             ; L,S,U NEED TO BE HASHED 2 BYTES TO ONE
0229   8114 C9 53              CMP #'S'

0230   8116 F0 1B              BEQ HASHUS
0231   8118 C9 55              CMP #'U'

0232   811A F0 17              BEQ HASHUS
0233   811C C9 4C              CMP #'L'

0234   811E F0 0F              BEQ HASHL
0235   8120 8D 57 A6    STOCOM STA LSTCOM

0236   8123 20 42 83           JSR SPACE
0237   8126 20 08 82           JSR PSHOVE      ;ZERO PARMS

0238   8129 20 08 82           JSR PSHOVE
0239   812C 4C 20 82           JMP PARM        ;AND GO GET PARMS

0240   812F A9 01       HASHL  LDA #$01        ;HASH LOAD CMDS TO ONE BYTE