$000000 .BA $FC00 ;JUNIOR $00FC00 .EQ DRA = $FA80 $00FC00 .EQ DDRA = $FA81 $00FC00 .EQ DRB = $FA82 $00FC00 .EQ DDRB = $FA83 $00FC00 .EQ POINTL = $FA $00FC00 .EQ POINTH = $FB $00FC00 85 F3 SAVE STA $F3 $00FC02 68 PLA $00FC03 85 F1 STA $F1 $00FC05 68 SAVEA PLA $00FC06 85 EF STA $EF $00FC08 85 FA STA POINTL $00FC0A 68 PLA $00FC0B 85 F0 STA $F0 $00FC0D 85 FB STA POINTH $00FC0F 84 F4 SAVEB STY $F4 $00FC11 86 F5 STX $F5 $00FC13 BA TSX $00FC14 86 F2 STX $F2 $00FC16 A2 01 LDX #1 $00FC18 86 FF STX $FF $00FC1A 4C 33 FC JMP START $00FC1D A9 1E RESET LDA #$1E $00FC1F 8D 83 1A STA $1A83 $00FC22 A9 04 LDA #4 $00FC24 85 F1 STA $F1 $00FC26 A9 03 LDA #3 $00FC28 85 FF STA $FF $00FC2A 85 F6 STA $F6 $00FC2C A2 FF LDX #$FF $00FC2E 9A TXS $00FC2F 86 F2 STX $F2 $00FC31 D8 CLD $00FC32 78 SEI $00FC33 20 88 FD START JSR SCAND $00FC36 D0 FB BNE START $00FC38 20 88 FD STARA JSR SCAND $00FC3B F0 FB BEQ STARA $00FC3D 20 88 FD JSR SCAND $00FC40 F0 F6 BEQ STARA $00FC42 20 F9 FD JSR GETKEY $00FC45 C9 13 GOEXEC CMP #$13 $00FC47 D0 13 BNE ADMODE $00FC49 A6 F2 LDX $F2 $00FC4B 9A TXS $00FC4C A5 FB LDA POINTH $00FC4E 48 PHA $00FC4F A5 FA LDA POINTL $00FC51 48 PHA $00FC52 A5 F1 LDA $F1 $00FC54 48 PHA $00FC55 A6 F5 LDX $F5 $00FC57 A4 F4 LDY $F4 $00FC59 A5 F3 LDA $F3 $00FC5B 40 RTI $00FC5C C9 10 ADMODE CMP #$10 $00FC5E D0 06 BNE DAMODE $00FC60 A9 03 LDA #3 $00FC62 85 FF STA $FF $00FC64 D0 14 BNE STEPA $00FC66 C9 11 DAMODE CMP #$11 $00FC68 D0 06 BNE STEP $00FC6A A9 00 LDA #0 $00FC6C 85 FF STA $FF $00FC6E F0 0A BEQ STEPA $00FC70 C9 12 STEP CMP #$12 $00FC72 D0 09 BNE PCKEY $00FC74 E6 FA INC POINTL $00FC76 D0 02 BNE STEPA $00FC78 E6 FB INC POINTH $00FC7A 4C 33 FC STEPA JMP START $00FC7D C9 14 PCKEY CMP #$14 $00FC7F D0 0B BNE ILLKEY $00FC81 A5 EF LDA $EF $00FC83 85 FA STA POINTL $00FC85 A5 F0 LDA $F0 $00FC87 85 FB STA POINTH $00FC89 4C 7A FC JMP STEPA $00FC8C C9 15 ILLKEY CMP #$15 $00FC8E 10 EA BPL STEPA $00FC90 85 E1 DATA STA $E1 $00FC92 A4 FF LDY $FF $00FC94 D0 0D BNE ADRES $00FC96 B1 FA LDA (POINTL),Y $00FC98 0A ASL $00FC99 0A ASL $00FC9A 0A ASL $00FC9B 0A ASL $00FC9C 05 E1 ORA $E1 $00FC9E 91 FA STA (POINTL),Y $00FCA0 4C 7A FC JMP STEPA $00FCA3 A2 04 ADRES LDX #4 $00FCA5 06 FA ADLOOP ASL POINTL $00FCA7 26 FB ROL POINTH $00FCA9 CA DEX $00FCAA D0 F9 BNE ADLOOP $00FCAC A5 FA LDA POINTL $00FCAE 05 E1 ORA $E1 $00FCB0 85 FA STA POINTL $00FCB2 4C 7A FC JMP STEPA $00FCB5 20 D3 FE EDITOR JSR BEGIN $00FCB8 A4 E3 LDY $E3 $00FCBA A6 E2 LDX $E2 $00FCBC E8 INX $00FCBD D0 01 BNE EDIT $00FCBF C8 INY $00FCC0 86 E8 EDIT STX $E8 $00FCC2 84 E9 STY $E9 $00FCC4 A9 77 LDA #$77 $00FCC6 A0 00 LDY #0 $00FCC8 91 E6 STA ($E6),Y $00FCCA 20 4D FD CMND JSR SCAN $00FCCD C9 14 SEARCH CMP #$14 $00FCCF D0 2A BNE INSERT $00FCD1 20 6F FD JSR GETBYT $00FCD4 10 F7 BPL SEARCH $00FCD6 85 FB STA POINTH $00FCD8 20 6F FD JSR GETBYT $00FCDB 10 F0 BPL SEARCH $00FCDD 85 FA STA POINTL $00FCDF 20 D3 FE JSR BEGIN $00FCE2 A0 00 SELOOP LDY #0 $00FCE4 B1 E6 LDA ($E6),Y $00FCE6 C5 FB CMP POINTH $00FCE8 D0 07 BNE SEARA $00FCEA C8 INY $00FCEB B1 E6 LDA ($E6),Y $00FCED C5 FA CMP POINTL $00FCEF F0 D9 BEQ CMND $00FCF1 20 5C FE SEARA JSR OPLEN $00FCF4 20 F8 FE JSR NEXT $00FCF7 30 E9 BMI SELOOP $00FCF9 10 3E BPL ERRA $00FCFB C9 10 INSERT CMP #$10 $00FCFD D0 0A BNE INPUT $00FCFF 20 20 FE JSR RDINST $00FD02 10 C9 BPL SEARCH $00FD04 20 47 FE JSR FILLWS $00FD07 F0 C1 BEQ CMND $00FD09 C9 13 INPUT CMP #$13 $00FD0B D0 14 BNE SKIP $00FD0D 20 20 FE JSR RDINST $00FD10 10 BB BPL SEARCH $00FD12 20 5C FE JSR OPLEN $00FD15 20 F8 FE JSR NEXT $00FD18 A5 FD LDA $FD $00FD1A 85 F6 STA $F6 $00FD1C 20 47 FE JSR FILLWS $00FD1F F0 A9 BEQ CMND $00FD21 C9 12 SKIP CMP #$12 $00FD23 D0 07 BNE DELETE $00FD25 20 F8 FE JSR NEXT $00FD28 30 A0 BMI CMND $00FD2A 10 0D BPL ERRA $00FD2C C9 11 DELETE CMP #$11 $00FD2E D0 09 BNE ERRA $00FD30 20 83 FE JSR UP $00FD33 20 EA FE JSR RECEND $00FD36 4C CA FC JMP CMND $00FD39 A9 EE ERRA LDA #$EE $00FD3B 85 FB STA POINTH $00FD3D 85 FA STA POINTL $00FD3F 85 F9 STA $F9 $00FD41 A9 03 LDA #3 $00FD43 85 F6 STA $F6 $00FD45 20 8E FD ERRB JSR SCANDS $00FD48 D0 FB BNE ERRB $00FD4A 4C CA FC JMP CMND $00FD4D A2 02 SCAN LDX #2 $00FD4F A0 00 LDY #0 $00FD51 B1 E6 FILBUF LDA ($E6),Y $00FD53 95 95 STA $95,X $00FD55 C8 INY $00FD56 CA DEX $00FD57 10 F8 BPL FILBUF $00FD59 20 5C FE JSR OPLEN $00FD5C 20 8E FD SCANA JSR SCANDS $00FD5F D0 FB BNE SCANA $00FD61 20 8E FD SCANB JSR SCANDS $00FD64 F0 FB BEQ SCANB $00FD66 20 8E FD JSR SCANDS $00FD69 F0 F6 BEQ SCANB $00FD6B 20 F9 FD JSR GETKEY $00FD6E 60 RTS $00FD6F 20 5C FD GETBYT JSR SCANA $00FD72 C9 10 CMP #$10 $00FD74 10 11 BPL BYTEND $00FD76 0A ASL $00FD77 0A ASL $00FD78 0A ASL $00FD79 0A ASL $00FD7A 85 FE STA $FE $00FD7C 20 5C FD JSR SCANA $00FD7F C9 10 CMP #$10 $00FD81 10 04 BPL BYTEND $00FD83 05 FE ORA $FE $00FD85 A2 FF LDX #$FF $00FD87 60 BYTEND RTS $00FD88 A0 00 SCAND LDY #0 $00FD8A B1 FA LDA (POINTL),Y $00FD8C 85 F9 STA $F9 $00FD8E A9 7F SCANDS LDA #$7F $00FD90 8D 81 FA STA DDRA $00FD93 A2 08 LDX #8 $00FD95 A4 F6 LDY $F6 $00FD97 A5 FB SCDSA LDA POINTH $00FD99 20 CC FD JSR SHOW $00FD9C 88 DEY $00FD9D F0 0D BEQ SCDSB $00FD9F A5 FA LDA POINTL $00FDA1 20 CC FD JSR SHOW $00FDA4 88 DEY $00FDA5 F0 05 BEQ SCDSB $00FDA7 A5 F9 LDA $F9 $00FDA9 20 CC FD JSR SHOW $00FDAC A9 00 SCDSB LDA #0 $00FDAE 8D 81 FA STA DDRA $00FDB1 A0 03 AK LDY #3 $00FDB3 A2 00 LDX #0 $00FDB5 A9 FF ONEKEY LDA #$FF $00FDB7 8E 82 FA AKA STX DRB $00FDBA E8 INX $00FDBB E8 INX $00FDBC 2D 80 FA AND DRA $00FDBF 88 DEY $00FDC0 D0 F5 BNE AKA $00FDC2 A0 06 LDY #6 $00FDC4 8C 82 FA STY DRB $00FDC7 09 80 ORA #$80 $00FDC9 49 FF EOR #$FF $00FDCB 60 RTS $00FDCC 48 SHOW PHA $00FDCD 84 FC STY $FC $00FDCF 4A LSR $00FDD0 4A LSR $00FDD1 4A LSR $00FDD2 4A LSR $00FDD3 20 DF FD JSR CONVD $00FDD6 68 PLA $00FDD7 29 0F AND #$0F $00FDD9 20 DF FD JSR CONVD $00FDDC A4 FC LDY $FC $00FDDE 60 RTS $00FDDF A8 CONVD TAY $00FDE0 B9 0F FF LDA LOOK,Y $00FDE3 8D 80 FA STA DRA $00FDE6 8E 82 FA STX DRB $00FDE9 A0 7F LDY #$7F $00FDEB 88 DELAY DEY $00FDEC 10 FD BPL DELAY $00FDEE 8C 80 FA STY DRA $00FDF1 A0 06 LDY #6 $00FDF3 8C 82 FA STY DRB $00FDF6 E8 INX $00FDF7 E8 INX $00FDF8 60 RTS $00FDF9 A2 21 GETKEY LDX #$21 $00FDFB A0 01 GETKEA LDY #1 $00FDFD 20 B5 FD JSR ONEKEY $00FE00 D0 07 BNE KEYIN $00FE02 E0 27 CPX #$27 $00FE04 D0 F5 BNE GETKEA $00FE06 A9 15 LDA #$15 $00FE08 60 RTS $00FE09 A0 FF KEYIN LDY #$FF $00FE0B 0A KEYINA ASL $00FE0C B0 03 BCS KEYINB $00FE0E C8 INY $00FE0F 10 FA BPL KEYINA $00FE11 8A KEYINB TXA $00FE12 29 0F AND #$0F $00FE14 4A LSR $00FE15 AA TAX $00FE16 98 TYA $00FE17 10 03 BPL KEYIND $00FE19 18 KEYINC CLC $00FE1A 69 07 ADC #7 $00FE1C CA KEYIND DEX $00FE1D D0 FA BNE KEYINC $00FE1F 60 RTS $00FE20 20 6F FD RDINST JSR GETBYT $00FE23 10 21 BPL RDB $00FE25 85 FB STA POINTH $00FE27 20 60 FE JSR LENACC $00FE2A 84 F7 STY $F7 $00FE2C 86 FD STX $FD $00FE2E C6 F7 DEC $F7 $00FE30 F0 12 BEQ RDA $00FE32 20 6F FD JSR GETBYT $00FE35 10 0F BPL RDB $00FE37 85 FA STA POINTL $00FE39 C6 F7 DEC $F7 $00FE3B F0 07 BEQ RDA $00FE3D 20 6F FD JSR GETBYT $00FE40 10 04 BPL RDB $00FE42 85 F9 STA $F9 $00FE44 A2 FF RDA LDX #$FF $00FE46 60 RDB RTS $00FE47 20 A6 FE FILLWS JSR DOWN $00FE4A 20 DC FE JSR ADCEND $00FE4D A2 02 LDX #2 $00FE4F A0 00 LDY #0 $00FE51 B5 F9 WS LDA $F9,X $00FE53 91 E6 STA ($E6),Y $00FE55 CA DEX $00FE56 C8 INY $00FE57 C4 F6 CPY $F6 $00FE59 D0 F6 BNE WS $00FE5B 60 RTS $00FE5C A0 00 OPLEN LDY #0 $00FE5E B1 E6 LDA ($E6),Y $00FE60 A0 01 LENACC LDY #1 $00FE62 C9 00 CMP #0 $00FE64 F0 1A BEQ LENEND $00FE66 C9 40 CMP #$40 $00FE68 F0 16 BEQ LENEND $00FE6A C9 60 CMP #$60 $00FE6C F0 12 BEQ LENEND $00FE6E A0 03 LDY #3 $00FE70 C9 20 CMP #$20 $00FE72 F0 0C BEQ LENEND $00FE74 29 1F AND #$1F $00FE76 C9 19 CMP #$19 $00FE78 F0 06 BEQ LENEND $00FE7A 29 0F AND #$0F $00FE7C AA TAX $00FE7D BC 1F FF LDY LEN,X $00FE80 84 F6 LENEND STY $F6 $00FE82 60 RTS $00FE83 A5 E6 UP LDA $E6 $00FE85 85 EA STA $EA $00FE87 A5 E7 LDA $E7 $00FE89 85 EB STA $EB $00FE8B A4 F6 UPLOOP LDY $F6 $00FE8D B1 E6 LDA ($E6),Y $00FE8F A0 00 LDY #0 $00FE91 91 EA STA ($EA),Y $00FE93 E6 EA INC $EA $00FE95 D0 02 BNE UPA $00FE97 E6 EB INC $EB $00FE99 A5 EA UPA LDA $EA $00FE9B C5 E8 CMP $E8 $00FE9D D0 EC BNE UPLOOP $00FE9F A5 EB LDA $EB $00FEA1 C5 E9 CMP $E9 $00FEA3 D0 E6 BNE UPLOOP $00FEA5 60 RTS $00FEA6 A5 E8 DOWN LDA $E8 $00FEA8 85 EA STA $EA $00FEAA A5 E9 LDA $E9 $00FEAC 85 EB STA $EB $00FEAE A0 00 DNLOOP LDY #0 $00FEB0 B1 EA LDA ($EA),Y $00FEB2 A4 F6 LDY $F6 $00FEB4 91 EA STA ($EA),Y $00FEB6 A5 EA LDA $EA $00FEB8 C5 E6 CMP $E6 $00FEBA D0 06 BNE DNA $00FEBC A5 EB LDA $EB $00FEBE C5 E7 CMP $E7 $00FEC0 F0 10 BEQ DNEND $00FEC2 38 DNA SEC $00FEC3 A5 EA LDA $EA $00FEC5 E9 01 SBC #1 $00FEC7 85 EA STA $EA $00FEC9 A5 EB LDA $EB $00FECB E9 00 SBC #0 $00FECD 85 EB STA $EB $00FECF 4C AE FE JMP DNLOOP $00FED2 60 DNEND RTS $00FED3 A5 E2 BEGIN LDA $E2 $00FED5 85 E6 STA $E6 $00FED7 A5 E3 LDA $E3 $00FED9 85 E7 STA $E7 $00FEDB 60 RTS $00FEDC 18 ADCEND CLC $00FEDD A5 E8 LDA $E8 $00FEDF 65 F6 ADC $F6 $00FEE1 85 E8 STA $E8 $00FEE3 A5 E9 LDA $E9 $00FEE5 69 00 ADC #0 $00FEE7 85 E9 STA $E9 $00FEE9 60 RTS $00FEEA 38 RECEND SEC $00FEEB A5 E8 LDA $E8 $00FEED E5 F6 SBC $F6 $00FEEF 85 E8 STA $E8 $00FEF1 A5 E9 LDA $E9 $00FEF3 E9 00 SBC #0 $00FEF5 85 E9 STA $E9 $00FEF7 60 RTS $00FEF8 18 NEXT CLC $00FEF9 A5 E6 LDA $E6 $00FEFB 65 F6 ADC $F6 $00FEFD 85 E6 STA $E6 $00FEFF A5 E7 LDA $E7 $00FF01 69 00 ADC #0 $00FF03 85 E7 STA $E7 $00FF05 38 SEC $00FF06 A5 E6 LDA $E6 $00FF08 E5 E8 SBC $E8 $00FF0A A5 E7 LDA $E7 $00FF0C E5 E9 SBC $E9 $00FF0E 60 RTS $00FF0F 40 79 24 $00FF0F LOOK .BY $40,$79,$24 $00FF12 30 19 12 02 78 00 10 08 $00FF12 .BY $30,$19,$12,2,$78,0,16,8 $00FF1A 03 46 21 06 0E $00FF1A .BY 3,$46,$21,6,14 $00FF1F 02 02 02 01 02 02 02 01 01 $00FF1F LEN .BY 2,2,2,1,2,2,2,1,1 $00FF28 02 01 01 03 03 03 03 $00FF28 .BY 2,1,1,3,3,3,3 $00FF2F 6C 7C 1A NMI JMP ($1A7C) $00FF32 6C 7E 1A IRQ JMP ($1A7E) $00FF35 B1 E6 GETLBL LDA ($E6),Y $00FF37 A0 FF LDY #$FF $00FF39 C4 EE SYMA CPY $EE $00FF3B F0 0D BEQ SYMB $00FF3D D1 EC CMP ($EC),Y $00FF3F D0 0A BNE SYMNXT $00FF41 88 DEY $00FF42 B1 EC LDA ($EC),Y $00FF44 AA TAX $00FF45 88 DEY $00FF46 B1 EC LDA ($EC),Y $00FF48 A0 01 LDY #1 $00FF4A 60 SYMB RTS $00FF4B 88 SYMNXT DEY $00FF4C 88 DEY $00FF4D 88 DEY $00FF4E D0 E9 BNE SYMA $00FF50 60 RTS $00FF51 38 ASSEMB SEC $00FF52 A5 E4 LDA $E4 $00FF54 E9 FF SBC #$FF $00FF56 85 EC STA $EC $00FF58 A5 E5 LDA $E5 $00FF5A E9 00 SBC #0 $00FF5C 85 ED STA $ED $00FF5E A9 FF LDA #$FF $00FF60 85 EE STA $EE $00FF62 20 D3 FE JSR BEGIN $00FF65 20 5C FE PASSA JSR OPLEN $00FF68 A0 00 LDY #0 $00FF6A B1 E6 LDA ($E6),Y $00FF6C C9 FF CMP #$FF $00FF6E D0 1D BNE NXTINS $00FF70 C8 INY $00FF71 B1 E6 LDA ($E6),Y $00FF73 A4 EE LDY $EE $00FF75 91 EC STA ($EC),Y $00FF77 88 DEY $00FF78 A5 E7 LDA $E7 $00FF7A 91 EC STA ($EC),Y $00FF7C 88 DEY $00FF7D A5 E6 LDA $E6 $00FF7F 91 EC STA ($EC),Y $00FF81 88 DEY $00FF82 84 EE STY $EE $00FF84 20 83 FE JSR UP $00FF87 20 EA FE JSR RECEND $00FF8A 20 65 FF JSR PASSA $00FF8D 20 F8 FE NXTINS JSR NEXT $00FF90 30 D3 BMI PASSA $00FF92 20 D3 FE JSR BEGIN $00FF95 20 5C FE PASSB JSR OPLEN $00FF98 A0 00 LDY #0 $00FF9A B1 E6 LDA ($E6),Y $00FF9C C9 4C CMP #$4C $00FF9E F0 16 BEQ JUMPS $00FFA0 C9 20 CMP #$20 $00FFA2 F0 12 BEQ JUMPS $00FFA4 29 1F AND #$1F $00FFA6 C9 10 CMP #$10 $00FFA8 F0 1A BEQ BRINST $00FFAA 20 F8 FE PB JSR NEXT $00FFAD 30 E6 BMI PASSB $00FFAF A9 03 LDA #3 $00FFB1 85 F6 STA $F6 $00FFB3 4C 33 FC JMP START $00FFB6 C8 JUMPS INY $00FFB7 20 35 FF JSR GETLBL $00FFBA F0 EE BEQ PB $00FFBC 91 E6 STA ($E6),Y $00FFBE 8A TXA $00FFBF C8 INY $00FFC0 91 E6 STA ($E6),Y $00FFC2 D0 E6 BNE PB $00FFC4 C8 BRINST INY $00FFC5 20 35 FF JSR GETLBL $00FFC8 F0 E0 BEQ PB $00FFCA 38 SEC $00FFCB E5 E6 SBC $E6 $00FFCD 38 SEC $00FFCE E9 02 SBC #2 $00FFD0 91 E6 STA ($E6),Y $00FFD2 4C AA FF JMP PB $00FFD5 D8 BRANCH CLD $00FFD6 A9 00 LDA #0 $00FFD8 85 FB STA POINTH $00FFDA 85 FA STA POINTL $00FFDC 85 F9 STA $F9 $00FFDE 20 6F FD BR JSR GETBYT $00FFE1 10 F2 BPL BRANCH $00FFE3 85 FB STA POINTH $00FFE5 20 6F FD JSR GETBYT $00FFE8 10 EB BPL BRANCH $00FFEA 85 FA STA POINTL $00FFEC 18 CLC $00FFED A5 FA LDA POINTL $00FFEF E5 FB SBC POINTH $00FFF1 85 F9 STA $F9 $00FFF3 C6 F9 DEC $F9 $00FFF5 4C DE FF JMP BR $00FFF8 FF FF $00FFF8 .BY $FF,$FF $00FFFA 2F FF 1D FC 32 FF $00FFFA .WO NMI,RESET,IRQ