Filter
Top Products
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