ORG $3380 ***DISASSEMBLER MODULE*** L3380 LDA #$00 STA L3713 JMP L37F4 L3388 BCC L338E LSR A LSR A LSR A LSR A L338E AND #$0F RTS L3391 LDX $87 LDY $88 JSR L366B JSR L3454 LDA ($87,X) TAY LSR A BCC L33AA ROR A BCS L33B4 CMP #$A2 BEQ L33B4 AND #$87 L33AA LSR A TAX LDA L346E,X JSR L3388 BNE L33B8 L33B4 LDY #$80 LDA #$00 L33B8 TAX LDA L34B2,X STA $82 AND #$03 STA $83 TYA AND #$8F TAX TYA LDY #$03 CPX #$8A BEQ L33D8 L33CD LSR A BCC L33D8 LSR A L33D1 LSR A ORA #$20 DEY BNE L33D1 INY L33D8 DEY BNE L33CD RTS L33DC JSR L3391 PHA L33E0 LDA ($87),Y JSR L36AF LDX #$01 L33E7 JSR L3456 CPY $83 INY BCC L33E0 LDX #$03 CPY #$04 BCC L33E7 PLA TAY LDA L34CC,Y STA $80 LDA L350C,Y STA $81 L3401 LDA #$00 LDY #$05 L3405 ASL $81 ROL $80 ROL A DEY BNE L3405 ADC #$3F JSR L36C2 DEX BNE L3401 JSR L3454 LDY $83 LDX #$06 L341C CPX #$03 BEQ L343C L3420 ASL $82 BCC L3432 LDA L34BF,X JSR L36C2 LDA L34C5,X BEQ L3432 JSR L36C2 L3432 DEX BNE L341C RTS L3436 DEY BMI L3420 JSR L36AF L343C LDA $82 CMP #$E8 LDA ($87),Y BCC L3436 JSR L3462 TAX INX BNE L344C INY L344C TYA JSR L36AF TXA JMP L36AF L3454 LDX #$03 L3456 LDA #$20 JSR L36C2 DEX BNE L3456 RTS L345F SEC L3460 LDA $83 L3462 LDY $88 TAX BPL L3468 DEY L3468 ADC $87 BCC L346D INY L346D RTS L346E DB $4,$20,$54 DB $30,$D DB $80,$4,$90 DB $3,$22 DB $54,$33,$D DB $80,$4 DB $90,$4,$20 DB $54,$33 DB $D,$80,$4 DB $90,$4 DB $20,$54,$3B DB $D,$80 DB $4,$90,$0 DB $22,$44 DB $33,$D,$C8 DB $44,$0 DB $11,$22,$44 DB $33,$D DB $C8,$44,$A9 DB $1,$22 DB $44,$33,$D DB $80,$4 DB $90,$1,$22 DB $44,$33 DB $D,$80,$4 DB $90 DB $26,$31,$87 DB $9A L34B2 DB $00 DB $21 DB $81 DB $82 DB $00 DB $00 DB $59 DB $4D DB $91 DB $92 DB $86 DB $4A DB $85 DB $9D L34C0 DB ',),#($' L34C6 DB 'Y',0,'X$$',0 L34CC DB $1C,$8A,$1C DB $23,$5D,$8B DB $1B,$A1,$9D DB $8A,$1D,$23 DB $9D,$8B,$1D DB $A1,$0,$29 DB $19,$AE,$69 DB $A8,$19,$23 DB $24,$53,$1B DB $23,$24,$53 DB $19,$A1 DB $0,$1A,$5B DB $5B,$A5,$69 DB $24,$24 DB $AE,$AE,$A8 DB $AD,$29,$0 DB $7C,$0 DB $15,$9C,$6D DB $9C,$A5,$69 DB $29,$53 DB $84,$13,$34 DB $11,$A5,$69 DB $23,$A0 L350C DB $D8,$62,$5A DB $48,$26,$62 DB $94,$88,$54 DB $44,$C8,$54 DB $68,$44,$E8 DB $94,$0,$B4 DB $8,$84,$74 DB $B4,$28,$6E DB $74,$F4,$CC DB $4A,$72,$F2 DB $A4,$8A DB $0,$AA,$A2 DB $A2,$74,$74 DB $74,$72 DB $44,$68,$B2 DB $32,$B2,$0 DB $22,$0 DB $1A,$1A,$26 DB $26,$72,$72 DB $88,$C8 DB $C4,$CA,$26 DB $48,$44,$44 DB $A2,$C8 DB $FF,$FF,$FF ***TRACER MODULE*** L354F JSR L33DC PLA STA $80 PLA STA $81 LDX #$08 L355A LDA L361C,X STA $8A,X DEX BNE L355A LDA ($87,X) BEQ L35A8 LDY $83 CMP #$20 BEQ L35C5 CMP #$60 BEQ L35B5 CMP #$4C BEQ L35D0 CMP #$6C BEQ L35D1 CMP #$40 BEQ L35B1 AND #$1F EOR #$14 CMP #$04 BEQ L3586 L3584 LDA ($87),Y L3586 STA $8A,Y DEY BPL L3584 JSR L3794 JMP $8A STA $94 PLA PHA ASL A ASL A ASL A BMI L359E JMP L37F4 L359E PLP JSR L37A1 PLA STA $87 PLA STA $88 L35A8 JSR L3391 JSR L35E6 JMP L37F4 L35B1 CLC PLA STA $97 L35B5 PLA STA $87 PLA L35B9 STA $88 L35BB LDA $83 JSR L3462 STY $88 CLC BCC L35D9 L35C5 CLC JSR L3460 TAX TYA PHA TXA PHA LDY #$02 L35D0 CLC L35D1 LDA ($87),Y TAX DEY LDA ($87),Y STX $88 L35D9 STA $87 BCS L35D0 LDA $81 PHA LDA $80 PHA L35E3 JSR L3662 L35E6 LDA #$94 STA $8E LDA #$00 STA $8F LDX #$FB L35F0 LDA #$20 JSR L36C2 LDA L352A,X JSR L36C2 LDA #$3D JSR L36C2 LDA $99,X JSR L36AF INX BMI L35F0 RTS L3609 CLC LDY #$01 LDA ($87),Y JSR L3462 STA $87 TYA SEC BCS L35B9 L3617 JSR L379F SEC BCS L35BB NOP NOP JMP L3617 JMP L3609 L3625 DB 'AXYPS' L362A INC $90 BNE L3630 INC $91 L3630 LDA $8A CMP $8C LDA $8B SBC $8D INC $8A BNE L363E INC $8B L363E RTS LDA #$00 STA $97 RTS ***INPUT MODULE*** L3644 LDX #$00 LDA #$05 STA ICCOM,X LDA #$82 STA ICBAL,X LDA #$38 STA ICBAH,X LDA #$60 STA ICBLL,X LDA #$00 STA ICBLH,X JSR LE456 L3662 LDA #$9B JMP L36C2 ***HEX OUT MODULE*** L3667 LDY $8B LDX $8A L366B JSR L3662 JSR L344C LDY #$00 LDA #$2D JMP L36C2 L3678 LDA $8A ORA #$07 STA $8C LDA $8B STA $8D L3682 LDA $8A AND #$07 BNE L368B L3688 JSR L3667 L368B LDA #$20 JSR L36C2 LDA ($8A),Y JSR L36AF JSR L3630 BCC L3682 RTS L369B LSR A BCC L3688 LSR A LSR A LDA $8C BCC L36A6 EOR #$FF L36A6 ADC $8A PHA LDA #$3D JSR L36C2 PLA L36AF PHA LSR A LSR A LSR A LSR A JSR L36BA PLA AND #$0F L36BA ORA #$30 CMP #$3A BCC L36C2 ADC #$06 This module falls into the next one. ***OUTPUT MODULE*** L36C2 STY $86 STX $89 STA L3712 LDA L3713 BEQ L36EC LDX #$10 LDA #$0B STA ICCOM,X LDA #$12 STA ICBAL,X LDA #$37 STA ICBAH,X LDA #$01 STA ICBLL,X LDA #$00 STA ICBLH,X JSR LE456 L36EC LDX #$00 LDA #$0B STA ICCOM,X LDA #$12 STA ICBAL,X LDA #$37 STA ICBAH,X LDA #$01 STA ICBLL,X LDA #$00 STA ICBLH,X JSR LE456 LDY $86 LDX $89 LDA L3712 RTS L3712 DB 1 L3713 DB 1 ***SUBROUTINE MODULE*** This module must all be on the same page! L3714 DEC $85 BNE L371F JMP L3678 JSR L37AE RTS L371F DEX BNE L373B CMP #$3A BEQ L3729 JMP L369B L3729 STA $84 LDA $8C STA ($8E),Y INC $8E BNE L3735 INC $8F L3735 RTS LDY $85 LDA L3881,Y L373B STA $84 RTS LDX #$01 L3740 LDA $8C,X STA $90,X STA $92,X DEX BPL L3740 RTS L374A LDA ($8A),Y STA ($90),Y JSR L362A BCC L374A RTS JSR L376B LDA #$14 L3759 PHA JSR L33DC JSR L345F STA $87 STY $88 PLA SEC SBC #$01 BNE L3759 RTS L376B TXA BEQ L3775 L376E LDA $8A,X STA $87,X DEX BPL L376E L3775 RTS JSR L376B JSR L3794 JMP ($87) L377F JMP L35E3 DEC $85 JSR L376B JMP L354F JSR L3714 PLA PLA BNE L37F4 JMP (DOSVEC) L3794 LDA $97 PHA LDA $94 LDX $95 LDY $96 PLP RTS L379F STA $94 L37A1 STX $95 STY $96 PHP PLA STA $97 TSX STX $98 CLD RTS ***PRINTER CONTROL MODULE*** L37AE LDX #$10 LDA #$03 STA ICCOM,X LDA #$E2 STA ICBAL,X LDA #$37 STA ICBAH,X LDA #$08 STA ICAX1,X LDA #$00 STA L034B,X JSR LE456 LDX #$01 STX L3713 RTS L37D2 JSR L3662 LDX #$10 LDA #$0C JSR LE456 LDX #$00 STX L3713 RTS L37E2 DB 'P',$9B ***COMMAND MODULE*** L37E4 LDY #$15 L37E6 LDX #$7F L37E8 STX LD01F STX LD40A DEX BPL L37E8 DEY BPL L37E6 L37F4 CLD LDA L3713 L37F8 BEQ L37FD JSR L37D2 L37FD JSR L3662 LDA #$5D JSR L36C2 JSR L3644 JSR L385F L380B JSR L383F STY $85 LDY #$0F L3812 DEY BMI L37E4 CMP L3864,Y BNE L3812 JSR L3856 LDY $85 JMP L380B L3822 LDX #$03 ASL A ASL A ASL A ASL A L3828 ASL A ROL $8C ROL $8D DEX BPL L3828 L3830 LDA $84 BNE L383A LDA $8D,X STA $8B,X STA $8F,X L383A INX BEQ L3830 BNE L3845 L383F LDX #$00 STX $8C STX $8D L3845 LDA L3882,Y INY EOR #$30 CMP #$0A BCC L3822 ADC #$88 CMP #$FA BCS L3822 RTS L3856 LDA #$37 PHA LDA L3873,Y PHA LDA $84 L385F LDY #$00 STY $84 RTS L3864 DB $EB,$E9,$EA,$ED,$EC DB $A6,$A4,$06,$95,$05 DB $00,$93,$A7,$34,$99 L3873 DB LOW L377F-1 DB LOW L371B-1 DB LOW L3791-1 DB LOW L3782-1 DB LOW L3783-1 DB LOW L3735-1 DB LOW L3735-1 DB LOW L3749-1 DB LOW L373D-1 DB LOW L3753-1 DB LOW L3775-1 DB LOW L3735-1 DB LOW L3735-1 DB LOW L3789-1 DB LOW L371E-1 L3882 DS $80 .