NAM DECODE * REV. 1.0 BY MOTOROLA MICROSYSTEMS APRIL 1977 OPT O,NOG XBUG EQU $F564 AFLG EQU $80 BFLG EQU $40 IMMFLG EQU $20 BRFLG EQU $10 E4FLG EQU $08 E2FLG EQU $04 XFLG EQU $06 * ORG $2000 BEGIN BSR CRLF BSR CRLF LDX #MSG1 BSR PLMSG LDX #ADDR BSR INHEX LDX #MSG2 BSR PLMSG LDX #ENDAD BSR INHEX TST B BNE *+5 JMP XBUG BSR CRLF TEST JSR CRLF LDX #ADDR LDA A 0,X LDA B 1,X SUB B 3,X SBC A 2,X BCS START BRA BEGIN PLMSG JMP $F024 INHEX JMP $F00F OUT4HS JMP $F01E OUT2HS JMP $F01B CRLF JMP $F021 START BSR OUT4HS LDX ADDR BSR OUT2HS LDX ADDR LDA A 0,X STA A BYTE1 LDX 1,X STX BYTE2 CLR B CMP A #$8D BNE Z1 LDA A #$21 Z1 EOR A #$20 BIT A #$F0 BNE Z15 PAGE JMP LK2 Z15 EOR A #$12 BIT A #$FB BNE Z2 ORA B #AFLG Z2 EOR A #$01 BIT A #$FB BNE Z3 ORA B #BFLG Z3 EOR A #$33 BIT A #$C0 BEQ LK1 EOR A #$40 BIT A #$F0 BNE Z4 ORA B #AFLG Z4 EOR A #$10 BIT A #$F0 BNE Z5 ORA B #BFLG Z5 EOR A #$30 BIT A #$30 BNE Z6 ORA B #XFLG Z6 EOR A #$10 BIT A #$30 BNE Z7 ORA B #E4FLG Z7 EOR A #$70 BMI TOP AND A #$4F LK1 LDX #TABLE1 LK1A CMP A 0,X BEQ FOUND INX INX INX INX CPX #ENTBL1 BNE LK1A FOUND LDA A 1,X STA A CHAR1 LDX 2,X STX CHAR2 BRA PRINT TOP EOR A #$0C BIT A #$0C BEQ ODD ORA B #BFLG BIT A #$40 BNE *+4 ORA B #AFLG BIT A #$30 BNE *+4 ORA B #IMMFLG AND A #$8F BACK EOR A #$0C ORA B #E2FLG AND A #$CF BRA LK1 ODD BIT A #$3D BNE *+6 ORA B #E4FLG ORA B #IMMFLG BRA BACK LK2 ORA B #BRFLG LDX #TABLE2 ASL A AND A #$1E STA A PNT1 FCB $EE PNT1 FCB $00 STX CHAR2 LDA A #'B STA A CHAR1 PRINT LDX #BYTE2 BSR INCAD BIT B #$08 BEQ NOT4 JSR OUT4HS BSR INCAD BSR INCAD BRA ARG INCAD INC ADDR+1 BNE *+5 INC ADDR RTS SPACE PSH A BSR OUTS PUL A DEC A BNE SPACE RTS OUTS JMP $F02A PMESS JMP $F027 NOT4 BIT B #$14 BNE OVER LDA A #$5 BSR SPACE BRA ARG OVER BSR INCAD JSR OUT2HS LDA A #$02 BSR SPACE ARG LDA A #$07 BSR SPACE LDX #CHAR1 BSR PMESS PAGE ROL B BCS PRNA BMI PRNB IMM ROL B ROL B BCS PRNIMM BMI BRANCH ETEST LDX #BYTE2 ROL B ROL B BCS P4D ROL B BMI PRNX BCC OUT P2D LDA A #$24 BSR OUCH JSR OUT2HS TST B BMI PRNX1 OUT JMP TEST OUCH JMP $F018 PRNA LDA A #'A BSR OUCH BSR OUTS BRA IMM PRNB LDA A #'B BRA PRNA+2 PRNIMM LDA A #$23 BSR OUCH BRA ETEST P4D LDA A #$24 BSR OUCH JSR OUT4HS BRA OUT PRNX LDA A 0,X CMP A #$09 BHI P2D ORA A #$30 BSR OUCH PRNX1 LDA A #$2C BSR OUCH LDA A #$58 BSR OUCH BRA OUT BRANCH LDA A #$8 ASR BYTE2 ROR BYTE3 DEC A BNE BRANCH+2 LDX #ADDR LDA A 0,X LDA B 1,X ADD B 6,X ADC A 5,X PAGE STA A 5,X STA B 6,X LDX #BYTE2 BRA P4D TABLE1 FCB $01 FCC 3,NOP FCB $06 FCC 3,TAP FCB $07 FCC 3,TPA FCB $08 FCC 3,INX FCB $09 FCC 3,DEX FCB $0A FCC 3,CLV FCB $0B FCC 3,SEV FCB $0C FCC 3,CLC FCB $0D FCC 3,SEC FCB $0E FCC 3,CLI FCB $0F FCC 3,SEI FCB $10 FCC 3,SBA FCB $11 FCC 3,CBA FCB $16 FCC 3,TAB FCB $17 FCC 3,TBA FCB $19 FCC 3,DAA FCB $1B FCC 3,ABA FCB $30 FCC 3,TSX FCB $31 FCC 3,INS FCB $32 FCC 3,PUL FCB $33 FCC 3,PUL FCB $34 FCC 3,DES FCB $35 FCC 3,TXS FCB $36 FCC 3,PSH FCB $37 FCC 3,PSH PAGE FCB $39 FCC 3,RTS FCB $3B FCC 3,RTI FCB $3E FCC 3,WAI FCB $3F FCC 3,SWI FCB $40 FCC 3,NEG FCB $43 FCC 3,COM FCB $44 FCC 3,LSR FCB $46 FCC 3,ROR FCB $47 FCC 3,ASR FCB $48 FCC 3,ASL FCB $49 FCC 3,ROL FCB $4A FCC 3,DEC FCB $4C FCC 3,INC FCB $4D FCC 3,TST FCB $4E FCC 3,JMP FCB $4F FCC 3,CLR FCB $80 FCC 3,SUB FCB $81 FCC 3,CMP FCB $82 FCC 3,SBC FCB $84 FCC 3,AND FCB $85 FCC 3,BIT FCB $86 FCC 3,LDA FCB $87 FCC 3,STA FCB $88 FCC 3,EOR FCB $89 FCC 3,ADC FCB $8A FCC 3,ORA FCB $8B FCC 3,ADD PAGE FCB $8C FCC 3,CPX FCB $8D FCC 3,JSR FCB $8E FCC 3,LDS FCB $8F FCC 3,STS FCB $CE FCC 3,LDX FCB $CF FCC 3,STX ENTBL1 FCB $00 FCC 3,*** TABLE2 FCC 'RASRHILSCCCSNEEQ' FCC 'VCVSPLMIGELTGTLE' MSG1 FCC 'BEGIN: ' FCB 4 MSG2 FCC 'END: ' FCB 4 ADDR RMB 2 ENDAD RMB 2 BYTE1 RMB 1 BYTE2 RMB 1 BYTE3 RMB 1 CHAR1 RMB 1 CHAR2 RMB 1 CHAR3 RMB 1 FCB $20,$04 END