STRUCT
FILE INFORMATION
FILENAME(S): STRUCT
FILE TYPE(S): PRG
FILE SIZE: 10.7K
FIRST SEEN: 2025-12-01 02:25:55
APPEARS ON: 1 disk(s)
FILE HASH
11695e559949baf690a32a3125b0e72cd1024074629a4db2b523fcf32cff9fe4
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PETERSOFT W PR 2 | STRUCT | PRG | hedning, shine | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 18 08 01 00 8F 22 DD 3D 53 41 56 45 22 53 |.......".=SAVE"S|
00000010: 54 52 55 43 54 22 2C 38 00 3B 08 02 00 8F 22 85 |TRUCT",8.;....".|
00000020: 3D 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |=...............|
00000030: 11 11 11 11 11 11 11 11 11 11 11 00 47 08 03 00 |............G...|
00000040: 8F 22 5F 3D 52 55 4E 00 61 08 04 00 8F 22 86 3D |."_=RUN.a....".=|
00000050: 4C 49 53 54 20 34 33 33 30 30 2D 9D 9D 9D 9D 9D |LIST 43300-.....|
00000060: 9D 00 74 08 05 00 8F 22 87 3D 53 59 53 31 32 2A |..t....".=SYS12*|
00000070: 31 36 5E 33 00 84 08 06 00 8F 22 06 3D 3F 46 52 |16^3......".=?FR|
00000080: 45 28 30 29 00 9E 08 07 00 8F 22 5E 3D 4C 49 53 |E(0)......"^=LIS|
00000090: 54 20 34 33 33 30 30 2D 9D 9D 9D 9D 9D 9D 00 A8 |T 43300-........|
000000A0: 08 13 00 9E 20 37 30 30 00 B4 08 14 00 2E 4F 50 |.... 700......OP|
000000B0: 54 20 4F 4F 00 C0 08 15 00 AC B2 24 43 30 30 30 |T OO.......$C000|
000000C0: 00 D7 08 3D 00 4C 44 41 20 23 22 97 22 3A 4A 53 |...=.LDA #".":JS|
000000D0: 52 20 24 46 46 44 32 00 EE 08 3E 00 4C 44 41 20 |R $FFD2...>.LDA |
000000E0: 23 22 93 22 3A 4A 53 52 20 24 46 46 44 32 00 34 |#".":JSR $FFD2.4|
000000F0: 09 46 00 4C 44 41 20 23 31 35 3A 53 54 41 20 24 |.F.LDA #15:STA $|
00000100: 44 30 32 30 3A 53 54 41 20 24 44 30 32 31 3A 4C |D020:STA $D021:L|
00000110: 44 41 20 23 31 34 32 3A 4A 53 52 20 24 46 46 44 |DA #142:JSR $FFD|
00000120: 32 3A 4C 44 41 20 23 24 31 37 3A 53 54 41 20 24 |2:LDA #$17:STA $|
00000130: 44 30 31 38 00 41 09 50 00 4C 44 59 20 23 24 30 |D018.A.P.LDY #$0|
00000140: 32 00 91 09 51 00 4C 41 20 4C 44 41 20 24 30 30 |2...Q.LA LDA $00|
00000150: 30 32 2C 59 3A 53 54 41 20 24 43 46 30 30 2C 59 |02,Y:STA $CF00,Y|
00000160: 3A 49 4E 59 3A 42 4E 45 20 4C 41 3A 53 45 49 3A |:INY:BNE LA:SEI:|
00000170: 4C 44 41 20 23 39 3A 53 54 41 20 24 30 3A 4C 44 |LDA #9:STA $0:LD|
00000180: 41 20 23 24 31 36 3A 53 54 41 20 24 31 3A 43 4C |A #$16:STA $1:CL|
00000190: 49 00 9F 09 5A 00 4A 53 52 20 44 45 42 55 54 00 |I...Z.JSR DEBUT.|
000001A0: B0 09 61 00 46 49 4E 20 4C 44 59 20 23 24 30 32 |..a.FIN LDY #$02|
000001B0: 00 ED 09 62 00 4C 42 20 4C 44 41 20 24 43 46 30 |...b.LB LDA $CF0|
000001C0: 30 2C 59 3A 53 54 41 20 24 30 30 30 32 2C 59 3A |0,Y:STA $0002,Y:|
000001D0: 49 4E 59 3A 42 4E 45 20 4C 42 3A 4C 44 41 20 23 |INY:BNE LB:LDA #|
000001E0: 35 35 3A 53 54 41 20 24 31 3A 52 54 53 00 F3 09 |55:STA $1:RTS...|
000001F0: E8 03 3B 00 F9 09 E9 03 3B 00 FF 09 EA 03 3B 00 |..;.....;.....;.|
00000200: 05 0A EB 03 3B 00 0B 0A EC 03 3B 00 11 0A ED 03 |....;.....;.....|
00000210: 3B 00 36 0A F2 03 44 45 42 55 54 20 4A 53 52 20 |;.6...DEBUT JSR |
00000220: 4D 52 47 3A 4A 53 52 20 4D 45 52 52 B0 32 3A 4A |MRG:JSR MERR.2:J|
00000230: 4D 50 20 4D 53 47 00 5D 0A 70 17 A1 20 4C 44 58 |MP MSG.].p.. LDX|
00000240: 20 23 30 20 3A 20 53 54 58 20 24 43 43 20 3A 49 | #0 : STX $CC :I|
00000250: 4E 59 20 20 3A 20 53 54 58 20 24 43 46 00 7D 0A |NY : STX $CF.}.|
00000260: 8E 17 A1 32 20 4A 53 52 20 24 46 46 45 34 3A 43 |...2 JSR $FFE4:C|
00000270: 4D 50 20 23 30 30 3A 42 45 51 20 A1 32 00 A3 0A |MP #00:BEQ .2...|
00000280: 98 17 4C 44 58 20 23 24 30 31 20 3A 20 53 54 58 |..LDX #$01 : STX|
00000290: 20 24 43 43 20 3A 20 44 45 58 3A 20 53 54 58 20 | $CC : DEX: STX |
000002A0: 24 43 46 00 E5 0A A1 17 50 48 41 20 3A 20 4C 44 |$CF.....PHA : LD|
000002B0: 59 20 24 44 33 20 3A 20 4C 44 41 20 28 24 44 31 |Y $D3 : LDA ($D1|
000002C0: 29 2C 59 20 3A 20 AF 20 23 24 37 46 20 3A 20 53 |),Y : . #$7F : S|
000002D0: 54 41 20 28 24 44 31 29 2C 59 20 3A 20 50 4C 41 |TA ($D1),Y : PLA|
000002E0: 20 3A 52 54 53 00 26 0B AC 17 50 4C 54 20 4C 44 | :RTS.&...PLT LD|
000002F0: 41 20 45 43 52 41 4E 54 58 54 2C 58 3A 53 54 41 |A ECRANTXT,X:STA|
00000300: 20 24 44 31 3A 4C 44 41 20 45 43 52 41 4E 54 4D | $D1:LDA ECRANTM|
00000310: 2C 58 3A 53 54 41 20 24 44 32 3A 53 54 59 20 24 |,X:STA $D2:STY $|
00000320: 44 33 3A 52 54 53 00 3E 0B DE 17 50 52 54 20 53 |D3:RTS.>...PRT S|
00000330: 54 59 20 24 33 39 3A 53 54 58 20 24 33 41 00 5F |TY $39:STX $3A._|
00000340: 0B E3 17 50 52 54 44 20 4C 44 59 20 24 46 45 3A |...PRTD LDY $FE:|
00000350: 4C 44 58 20 24 46 46 3A 4A 53 52 20 50 4C 54 00 |LDX $FF:JSR PLT.|
00000360: 6A 0B E8 17 4C 44 59 20 23 30 00 91 0B F2 17 50 |j...LDY #0.....P|
00000370: 52 54 30 20 4C 44 41 20 28 24 33 39 29 2C 59 3A |RT0 LDA ($39),Y:|
00000380: 43 4D 50 20 23 22 8C 22 3A 42 45 51 20 50 52 54 |CMP #".":BEQ PRT|
00000390: 4C 00 A7 0B F7 17 43 4D 50 20 23 22 86 22 3A 42 |L.....CMP #".":B|
000003A0: 45 51 20 50 52 54 46 00 C1 0B FC 17 4A 53 52 20 |EQ PRTF.....JSR |
000003B0: 43 48 41 52 3A 49 4E 59 3A 42 4E 45 20 50 52 54 |CHAR:INY:BNE PRT|
000003C0: 30 00 F2 0B 01 18 50 52 54 4C 20 49 4E 43 20 24 |0.....PRTL INC $|
000003D0: 46 46 3A 54 59 41 3A 53 45 43 3A 41 44 43 20 24 |FF:TYA:SEC:ADC $|
000003E0: 33 39 3A 42 43 43 20 43 91 4C 3A 49 4E 43 20 24 |39:BCC C.L:INC $|
000003F0: 33 41 00 0B 0C 02 18 43 91 4C 20 53 54 41 20 24 |3A.....C.L STA $|
00000400: 33 39 3A 4A 4D 50 20 50 52 54 44 00 33 0C 06 18 |39:JMP PRTD.3...|
00000410: 50 52 54 46 20 54 59 41 3A 53 45 43 3A 41 44 43 |PRTF TYA:SEC:ADC|
00000420: 20 24 33 39 3A 42 43 43 20 43 91 3A 49 4E 43 20 | $39:BCC C.:INC |
00000430: 24 33 41 00 46 0C 10 18 43 91 20 53 54 41 20 24 |$3A.F...C. STA $|
00000440: 33 39 3A 52 54 53 00 4C 0C 84 4E 3B 00 52 0C 85 |39:RTS.L..N;.R..|
00000450: 4E 3B 00 58 0C 86 4E 3B 00 5E 0C 87 4E 3B 00 64 |N;.X..N;.^..N;.d|
00000460: 0C 88 4E 3B 00 6A 0C 89 4E 3B 00 9B 0C B5 4F 43 |..N;.j..N;....OC|
00000470: 52 4F 4D 49 4E 20 4C 44 41 20 23 39 3A 53 54 41 |ROMIN LDA #9:STA|
00000480: 20 24 30 3A 4C 44 41 20 23 24 31 36 3A 53 54 41 | $0:LDA #$16:STA|
00000490: 20 24 31 3A 43 4C 49 3A 52 54 53 00 CF 0C BA 4F | $1:CLI:RTS....O|
000004A0: 43 52 4F 4D 4F 55 54 20 53 45 49 3A 4C 44 41 20 |CROMOUT SEI:LDA |
000004B0: 23 24 37 42 3A 53 54 41 20 24 30 3A 4C 44 41 20 |#$7B:STA $0:LDA |
000004C0: 23 24 33 34 3A 53 54 41 20 24 31 3A 52 54 53 00 |#$34:STA $1:RTS.|
000004D0: 01 0D C4 4F 43 4C 4F 53 41 4C 20 4A 53 52 20 A0 |...OCLOSAL JSR .|
000004E0: 32 3A 4A 53 52 20 A0 31 35 3A 4A 53 52 20 24 46 |2:JSR .15:JSR $F|
000004F0: 46 43 43 3A 4A 53 52 20 24 46 46 45 37 3A 52 54 |FCC:JSR $FFE7:RT|
00000500: 53 00 07 0D 40 9C 3B 00 0D 0D A4 9C 3B 00 37 0D |S...@.;.....;.7.|
00000510: A5 9C 49 4E 49 43 4F 55 4C 20 20 4C 44 41 20 23 |..INICOUL LDA #|
00000520: 31 31 3A 53 54 41 20 24 32 38 36 3A 4C 44 41 20 |11:STA $286:LDA |
00000530: 23 31 35 3A 52 54 53 00 3D 0D A6 9C 3B 00 43 0D |#15:RTS.=...;.C.|
00000540: A7 9C 3B 00 49 0D A8 9C 3B 00 4F 0D A9 9C 3B 00 |..;.I...;.O...;.|
00000550: 92 0D AE 9C 46 4C 41 53 48 20 4A 53 52 20 24 46 |....FLASH JSR $F|
00000560: 46 45 34 3A 42 4E 45 20 46 4C 41 53 48 43 3A 44 |FE4:BNE FLASHC:D|
00000570: 45 43 20 24 45 46 3A 42 4E 45 20 46 4C 41 53 48 |EC $EF:BNE FLASH|
00000580: 3A 44 45 43 20 24 45 45 3A 42 4E 45 20 46 4C 41 |:DEC $EE:BNE FLA|
00000590: 53 48 00 D2 0D B8 9C 46 4C 41 53 48 31 20 4C 44 |SH.....FLASH1 LD|
000005A0: 58 20 23 30 3A 53 54 58 20 24 45 46 3A 4C 44 58 |X #0:STX $EF:LDX|
000005B0: 20 23 32 37 3A 53 54 58 20 24 45 45 3A 4A 53 52 | #27:STX $EE:JSR|
000005C0: 20 46 4C 41 53 48 45 58 3A 4A 4D 50 20 46 4C 41 | FLASHEX:JMP FLA|
000005D0: 53 48 00 05 0E C2 9C 46 4C 41 53 48 43 20 50 48 |SH.....FLASHC PH|
000005E0: 41 3A 4C 44 41 20 46 4C 41 3A 43 4D 50 20 23 39 |A:LDA FLA:CMP #9|
000005F0: 34 3A 42 4E 45 20 46 4C 41 53 48 43 43 3A 50 4C |4:BNE FLASHCC:PL|
00000600: 41 3A 52 54 53 00 25 0E CC 9C 46 4C 41 53 48 43 |A:RTS.%...FLASHC|
00000610: 43 20 4A 53 52 20 46 4C 41 53 48 45 58 3A 50 4C |C JSR FLASHEX:PL|
00000620: 41 3A 52 54 53 00 68 0E D6 9C 46 4C 41 53 48 45 |A:RTS.h...FLASHE|
00000630: 58 20 4C 44 41 20 46 4C 41 3A 45 B0 20 23 24 41 |X LDA FLA:E. #$A|
00000640: 34 3A 53 54 41 20 46 4C 41 3A 4A 53 52 20 43 48 |4:STA FLA:JSR CH|
00000650: 41 52 3A 4C 44 41 20 23 22 9D 22 3A 4A 53 52 20 |AR:LDA #".":JSR |
00000660: 43 48 41 52 3A 52 54 53 00 6E 0E 3C A5 3B 00 74 |CHAR:RTS.n.<.;.t|
00000670: 0E 3D A5 3B 00 7A 0E 3E A5 3B 00 80 0E 3F A5 3B |.=.;.z.>.;...?.;|
00000680: 00 86 0E 40 A5 3B 00 8C 0E 41 A5 3B 00 B4 0E 46 |...@.;...A.;...F|
00000690: A5 4D 45 4E 55 43 91 20 20 4C 44 41 20 23 22 93 |.MENUC. LDA #".|
000006A0: 22 3A 4A 53 52 20 24 46 46 44 32 3A 4C 44 41 20 |":JSR $FFD2:LDA |
000006B0: 23 24 46 46 00 F9 0E 50 A5 4D 45 4E 55 43 91 30 |#$FF...P.MENUC.0|
000006C0: 20 4C 44 58 20 23 B3 44 43 91 3A 4C 44 59 20 23 | LDX #.DC.:LDY #|
000006D0: B1 44 43 91 3A 4A 53 52 20 44 45 53 4D 45 4E 55 |.DC.:JSR DESMENU|
000006E0: 3A 50 48 41 3A B0 41 20 23 24 38 30 3A 53 54 41 |:PHA:.A #$80:STA|
000006F0: 20 24 32 31 30 3A 50 4C 41 00 24 0F 5A A5 43 4D | $210:PLA.$.Z.CM|
00000700: 50 20 23 30 3A 42 4E 45 20 4D 45 4E 55 43 4F 4D |P #0:BNE MENUCOM|
00000710: 3A 4A 53 52 20 93 53 B0 3A 4A 4D 50 20 4D 45 4E |:JSR .S.:JMP MEN|
00000720: 55 43 91 44 00 56 0F 5F A5 4D 45 4E 55 43 4F 4D |UC.D.V._.MENUCOM|
00000730: 20 43 4D 50 20 23 32 3A 42 4E 45 20 4D 45 4E 55 | CMP #2:BNE MENU|
00000740: 43 B0 3A 4A 53 52 20 93 53 B0 3A 4A 4D 50 20 4D |C.:JSR .S.:JMP M|
00000750: 45 4E 55 43 91 44 00 74 0F 6E A5 4D 45 4E 55 43 |ENUC.D.t.n.MENUC|
00000760: B0 20 43 4D 50 20 23 34 3A 42 4E 45 20 4D 45 4E |. CMP #4:BNE MEN|
00000770: 55 43 91 44 00 93 0F 9B A5 4D 45 4E 55 43 91 44 |UC.D.....MENUC.D|
00000780: 20 4C 44 41 20 23 31 3A 4A 4D 50 20 4D 45 4E 55 | LDA #1:JMP MENU|
00000790: 43 91 30 00 99 0F 04 A6 3B 00 9F 0F 05 A6 3B 00 |C.0.....;.....;.|
000007A0: A5 0F 06 A6 3B 00 AB 0F 07 A6 3B 00 B1 0F 08 A6 |....;.....;.....|
000007B0: 3B 00 B7 0F 09 A6 3B 00 F3 0F 0E A6 47 52 41 50 |;.....;.....GRAP|
000007C0: 48 4F 46 46 20 4C 44 41 20 23 24 31 42 3A 53 54 |HOFF LDA #$1B:ST|
000007D0: 41 20 24 44 30 31 31 3A 4C 44 41 20 24 44 44 30 |A $D011:LDA $DD0|
000007E0: 30 3A AF 20 23 24 46 43 3A 53 54 41 20 24 44 44 |0:. #$FC:STA $DD|
000007F0: 30 30 3A 00 20 10 18 A6 4C 44 41 20 23 24 33 31 |00:. ...LDA #$31|
00000800: 3A 53 54 41 20 24 44 30 31 38 3A 4C 44 41 20 23 |:STA $D018:LDA #|
00000810: 24 43 43 3A 53 54 41 20 24 32 38 38 3A 52 54 53 |$CC:STA $288:RTS|
00000820: 00 26 10 24 A9 3B 00 2C 10 25 A9 3B 00 32 10 26 |.&.$.;.,.%.;.2.&|
00000830: A9 3B 00 74 10 2E A9 4D 52 47 20 4C 44 41 20 23 |.;.t...MRG LDA #|
00000840: 30 3A 53 54 41 20 4C 43 4F 4D 44 49 53 4B 3A 4C |0:STA LCOMDISK:L|
00000850: 44 41 20 23 32 3A 4C 44 58 20 23 B3 52 45 50 3A |DA #2:LDX #.REP:|
00000860: 4C 44 59 20 23 B1 52 45 50 3A 4A 53 52 20 41 4A |LDY #.REP:JSR AJ|
00000870: 4F 43 4F 4D 00 9E 10 5C A9 4C 44 41 20 23 39 3A |OCOM...\.LDA #9:|
00000880: 4C 44 58 20 23 B3 41 4D 42 3A 4C 44 59 20 23 B1 |LDX #.AMB:LDY #.|
00000890: 41 4D 42 3A 4A 53 52 20 41 4A 4F 43 4F 4D 00 C8 |AMB:JSR AJOCOM..|
000008A0: 10 5E A9 4C 44 41 20 23 34 3A 4C 44 58 20 23 B3 |.^.LDA #4:LDX #.|
000008B0: 50 52 45 3A 4C 44 59 20 23 B1 50 52 45 3A 4A 53 |PRE:LDY #.PRE:JS|
000008C0: 52 20 41 4A 4F 43 4F 4D 00 DC 10 60 A9 4A 53 52 |R AJOCOM...`.JSR|
000008D0: 20 53 93 3A 42 43 53 20 4D 52 47 46 00 FB 10 6A | S.:BCS MRGF...j|
000008E0: A9 4A 53 52 20 24 46 46 43 43 3A 4C 44 58 20 23 |.JSR $FFCC:LDX #|
000008F0: 32 3A 4A 53 52 20 24 46 46 43 36 00 1F 11 6B A9 |2:JSR $FFC6...k.|
00000900: 4C 44 59 20 23 30 3A 53 54 59 20 24 33 39 3A 4C |LDY #0:STY $39:L|
00000910: 44 58 20 23 24 41 30 3A 53 54 58 20 24 33 41 00 |DX #$A0:STX $3A.|
00000920: 2F 11 71 A9 4A 53 52 20 4D 45 4C 41 4E 47 45 00 |/.q.JSR MELANGE.|
00000930: 4F 11 74 A9 4D 52 47 32 20 4A 53 52 20 4C 49 43 |O.t.MRG2 JSR LIC|
00000940: 41 4E 45 52 3A 4A 53 52 20 43 4C 4F 53 41 4C 00 |ANER:JSR CLOSAL.|
00000950: 5C 11 87 A9 4D 52 47 46 20 52 54 53 00 62 11 88 |\...MRGF RTS.b..|
00000960: A9 3B 00 68 11 89 A9 3B 00 6E 11 8A A9 3B 00 B0 |.;.h...;.n...;..|
00000970: 11 92 A9 4D 53 47 20 4C 44 41 20 23 30 3A 53 54 |...MSG LDA #0:ST|
00000980: 41 20 4C 43 4F 4D 44 49 53 4B 3A 4C 44 41 20 23 |A LCOMDISK:LDA #|
00000990: 32 3A 4C 44 58 20 23 B3 52 45 50 3A 4C 44 59 20 |2:LDX #.REP:LDY |
000009A0: 23 B1 52 45 50 3A 4A 53 52 20 41 4A 4F 43 4F 4D |#.REP:JSR AJOCOM|
000009B0: 00 DA 11 C0 A9 4C 44 41 20 23 35 3A 4C 44 58 20 |.....LDA #5:LDX |
000009C0: 23 B3 54 41 42 3A 4C 44 59 20 23 B1 54 41 42 3A |#.TAB:LDY #.TAB:|
000009D0: 4A 53 52 20 41 4A 4F 43 4F 4D 00 06 12 C1 A9 4C |JSR AJOCOM.....L|
000009E0: 44 41 20 23 34 3A 4C 44 58 20 23 B3 53 45 51 57 |DA #4:LDX #.SEQW|
000009F0: 3A 4C 44 59 20 23 B1 53 45 51 57 3A 4A 53 52 20 |:LDY #.SEQW:JSR |
00000A00: 41 4A 4F 43 4F 4D 00 1A 12 C2 A9 4A 53 52 20 53 |AJOCOM.....JSR S|
00000A10: 94 3A 42 43 53 20 4D 53 47 46 00 39 12 CE A9 4A |.:BCS MSGF.9...J|
00000A20: 53 52 20 24 46 46 43 43 3A 4C 44 58 20 23 32 3A |SR $FFCC:LDX #2:|
00000A30: 4A 53 52 20 24 46 46 43 39 00 5D 12 CF A9 4C 44 |JSR $FFC9.]...LD|
00000A40: 59 20 23 30 3A 53 54 59 20 24 33 39 3A 4C 44 58 |Y #0:STY $39:LDX|
00000A50: 20 23 24 41 30 3A 53 54 58 20 24 33 41 00 AB 12 | #$A0:STX $3A...|
00000A60: D3 A9 4D 53 47 31 20 4C 44 41 20 28 24 33 39 29 |..MSG1 LDA ($39)|
00000A70: 2C 59 3A 4A 53 52 20 24 46 46 44 32 3A 49 4E 59 |,Y:JSR $FFD2:INY|
00000A80: 3A 42 4E 45 20 4D 53 47 31 3A 49 4E 43 20 24 33 |:BNE MSG1:INC $3|
00000A90: 41 3A 4C 44 58 20 24 33 41 3A 43 50 58 20 23 24 |A:LDX $3A:CPX #$|
00000AA0: 43 30 3A 42 4E 45 20 4D 53 47 31 00 C6 12 D8 A9 |C0:BNE MSG1.....|
00000AB0: 4A 53 52 20 4C 49 43 41 4E 45 52 3A 4A 53 52 20 |JSR LICANER:JSR |
00000AC0: 43 4C 4F 53 41 4C 00 D3 12 EB A9 4D 53 47 46 20 |CLOSAL.....MSGF |
00000AD0: 52 54 53 00 D9 12 EC A9 3B 00 DF 12 ED A9 3B 00 |RTS.....;.....;.|
00000AE0: E5 12 EE A9 3B 00 28 13 F6 A9 4D 45 4C 41 4E 47 |....;.(...MELANG|
00000AF0: 45 20 4C 44 59 20 23 30 3A 53 54 59 20 24 31 30 |E LDY #0:STY $10|
00000B00: 3A 53 54 59 20 24 31 32 3A 53 54 59 20 24 31 34 |:STY $12:STY $14|
00000B10: 3A 53 54 59 20 24 31 36 3A 53 54 59 20 24 31 38 |:STY $16:STY $18|
00000B20: 3A 53 54 59 20 24 31 41 00 3C 13 FB A9 53 54 59 |:STY $1A.<...STY|
00000B30: 20 24 31 43 3A 53 54 59 20 24 31 45 00 62 13 00 | $1C:STY $1E.b..|
00000B40: AA 4C 44 58 20 23 24 41 30 3A 53 54 58 20 24 31 |.LDX #$A0:STX $1|
00000B50: 31 3A 4C 44 58 20 23 24 41 34 3A 53 54 58 20 24 |1:LDX #$A4:STX $|
00000B60: 31 33 00 88 13 01 AA 4C 44 58 20 23 24 41 38 3A |13.....LDX #$A8:|
00000B70: 53 54 58 20 24 31 35 3A 4C 44 58 20 23 24 41 43 |STX $15:LDX #$AC|
00000B80: 3A 53 54 58 20 24 31 37 00 AE 13 02 AA 4C 44 58 |:STX $17.....LDX|
00000B90: 20 23 24 42 30 3A 53 54 58 20 24 31 39 3A 4C 44 | #$B0:STX $19:LD|
00000BA0: 58 20 23 24 42 34 3A 53 54 58 20 24 31 42 00 D4 |X #$B4:STX $1B..|
00000BB0: 13 03 AA 4C 44 58 20 23 24 42 38 3A 53 54 58 20 |...LDX #$B8:STX |
00000BC0: 24 31 44 3A 4C 44 58 20 23 24 42 43 3A 53 54 58 |$1D:LDX #$BC:STX|
00000BD0: 20 24 31 46 00 19 14 0A AA 4D 45 4C 41 4E 31 20 | $1F.....MELAN1 |
00000BE0: 4A 53 52 20 24 46 46 43 46 3A 53 54 41 20 28 24 |JSR $FFCF:STA ($|
00000BF0: 31 30 29 2C 59 3A 49 4E 59 3A 4A 53 52 20 24 46 |10),Y:INY:JSR $F|
00000C00: 46 43 46 3A 53 54 41 20 28 24 31 30 29 2C 59 3A |FCF:STA ($10),Y:|
00000C10: 4A 53 52 20 41 4A 55 53 54 00 57 14 0B AA 4A 53 |JSR AJUST.W...JS|
00000C20: 52 20 24 46 46 43 46 3A 53 54 41 20 28 24 31 32 |R $FFCF:STA ($12|
00000C30: 29 2C 59 3A 49 4E 59 3A 4A 53 52 20 24 46 46 43 |),Y:INY:JSR $FFC|
00000C40: 46 3A 53 54 41 20 28 24 31 32 29 2C 59 3A 4A 53 |F:STA ($12),Y:JS|
00000C50: 52 20 41 4A 55 53 54 00 95 14 0C AA 4A 53 52 20 |R AJUST.....JSR |
00000C60: 24 46 46 43 46 3A 53 54 41 20 28 24 31 34 29 2C |$FFCF:STA ($14),|
00000C70: 59 3A 49 4E 59 3A 4A 53 52 20 24 46 46 43 46 3A |Y:INY:JSR $FFCF:|
00000C80: 53 54 41 20 28 24 31 34 29 2C 59 3A 4A 53 52 20 |STA ($14),Y:JSR |
00000C90: 41 4A 55 53 54 00 D3 14 0D AA 4A 53 52 20 24 46 |AJUST.....JSR $F|
00000CA0: 46 43 46 3A 53 54 41 20 28 24 31 36 29 2C 59 3A |FCF:STA ($16),Y:|
00000CB0: 49 4E 59 3A 4A 53 52 20 24 46 46 43 46 3A 53 54 |INY:JSR $FFCF:ST|
00000CC0: 41 20 28 24 31 36 29 2C 59 3A 4A 53 52 20 41 4A |A ($16),Y:JSR AJ|
00000CD0: 55 53 54 00 11 15 0E AA 4A 53 52 20 24 46 46 43 |UST.....JSR $FFC|
00000CE0: 46 3A 53 54 41 20 28 24 31 38 29 2C 59 3A 49 4E |F:STA ($18),Y:IN|
00000CF0: 59 3A 4A 53 52 20 24 46 46 43 46 3A 53 54 41 20 |Y:JSR $FFCF:STA |
00000D00: 28 24 31 38 29 2C 59 3A 4A 53 52 20 41 4A 55 53 |($18),Y:JSR AJUS|
00000D10: 54 00 4F 15 0F AA 4A 53 52 20 24 46 46 43 46 3A |T.O...JSR $FFCF:|
00000D20: 53 54 41 20 28 24 31 41 29 2C 59 3A 49 4E 59 3A |STA ($1A),Y:INY:|
00000D30: 4A 53 52 20 24 46 46 43 46 3A 53 54 41 20 28 24 |JSR $FFCF:STA ($|
00000D40: 31 41 29 2C 59 3A 4A 53 52 20 41 4A 55 53 54 00 |1A),Y:JSR AJUST.|
00000D50: 8D 15 10 AA 4A 53 52 20 24 46 46 43 46 3A 53 54 |....JSR $FFCF:ST|
00000D60: 41 20 28 24 31 43 29 2C 59 3A 49 4E 59 3A 4A 53 |A ($1C),Y:INY:JS|
00000D70: 52 20 24 46 46 43 46 3A 53 54 41 20 28 24 31 43 |R $FFCF:STA ($1C|
00000D80: 29 2C 59 3A 4A 53 52 20 41 4A 55 53 54 00 CB 15 |),Y:JSR AJUST...|
00000D90: 11 AA 4A 53 52 20 24 46 46 43 46 3A 53 54 41 20 |..JSR $FFCF:STA |
00000DA0: 28 24 31 45 29 2C 59 3A 49 4E 59 3A 4A 53 52 20 |($1E),Y:INY:JSR |
00000DB0: 24 46 46 43 46 3A 53 54 41 20 28 24 31 45 29 2C |$FFCF:STA ($1E),|
00000DC0: 59 3A 4A 53 52 20 41 4A 55 53 54 00 E2 15 14 AA |Y:JSR AJUST.....|
00000DD0: 49 4E 59 3A 49 4E 59 3A 42 4E 45 20 4D 45 4C 41 |INY:INY:BNE MELA|
00000DE0: 4E 31 00 26 16 1E AA 49 4E 43 20 24 31 31 3A 49 |N1.&...INC $11:I|
00000DF0: 4E 43 20 24 31 33 3A 49 4E 43 20 24 31 35 3A 49 |NC $13:INC $15:I|
00000E00: 4E 43 20 24 31 37 3A 49 4E 43 20 24 31 39 3A 49 |NC $17:INC $19:I|
00000E10: 4E 43 20 24 31 42 3A 49 4E 43 20 24 31 44 3A 49 |NC $1B:INC $1D:I|
00000E20: 4E 43 20 24 31 46 00 51 16 28 AA 4C 44 58 20 24 |NC $1F.Q.(.LDX $|
00000E30: 31 46 3A 43 50 58 20 23 24 43 30 3A 42 43 53 20 |1F:CPX #$C0:BCS |
00000E40: 4D 45 4C 41 4E 46 3A 4A 4D 50 20 4D 45 4C 41 4E |MELANF:JMP MELAN|
00000E50: 31 00 60 16 32 AA 4D 45 4C 41 4E 46 20 52 54 53 |1.`.2.MELANF RTS|
00000E60: 00 66 16 50 AA 3B 00 6C 16 51 AA 3B 00 72 16 52 |.f.P.;.l.Q.;.r.R|
00000E70: AA 3B 00 BC 16 5A AA 41 4A 55 53 54 20 44 45 59 |.;...Z.AJUST DEY|
00000E80: 3A 4A 53 52 20 24 46 46 43 46 3A 4A 53 52 20 24 |:JSR $FFCF:JSR $|
00000E90: 46 46 43 46 3A 4A 53 52 20 24 46 46 43 46 3A 4A |FFCF:JSR $FFCF:J|
00000EA0: 53 52 20 24 46 46 43 46 3A 4A 53 52 20 24 46 46 |SR $FFCF:JSR $FF|
00000EB0: 43 46 3A 4A 53 52 20 24 46 46 43 46 00 CA 16 5F |CF:JSR $FFCF..._|
00000EC0: AA 4A 53 52 20 24 46 46 43 46 00 14 17 64 AA 4A |.JSR $FFCF...d.J|
00000ED0: 53 52 20 24 46 46 43 46 3A 4A 53 52 20 24 46 46 |SR $FFCF:JSR $FF|
00000EE0: 43 46 3A 4A 53 52 20 24 46 46 43 46 3A 4A 53 52 |CF:JSR $FFCF:JSR|
00000EF0: 20 24 46 46 43 46 3A 4A 53 52 20 24 46 46 43 46 | $FFCF:JSR $FFCF|
00000F00: 3A 4A 53 52 20 24 46 46 43 46 3A 4A 4D 50 20 24 |:JSR $FFCF:JMP $|
00000F10: 46 46 43 46 00 1A 17 C8 AF 3B 00 20 17 C9 AF 3B |FFCF.....;. ...;|
00000F20: 00 26 17 CA AF 3B 00 2C 17 CB AF 3B 00 32 17 CC |.&...;.,...;.2..|
00000F30: AF 3B 00 38 17 CD AF 3B 00 52 17 D2 AF 52 45 4C |.;.8...;.R...REL|
00000F40: 93 20 4C 44 41 20 23 38 3A 53 54 41 20 44 49 53 |. LDA #8:STA DIS|
00000F50: 4B 3A 00 7E 17 DC AF 4C 44 41 20 23 32 3A 4C 44 |K:.~...LDA #2:LD|
00000F60: 58 20 44 49 53 4B 3A 4C 44 59 20 23 30 3A 4A 53 |X DISK:LDY #0:JS|
00000F70: 52 20 24 46 46 42 41 3A 4A 4D 50 20 93 9A 00 84 |R $FFBA:JMP ....|
00000F80: 17 2C B0 3B 00 8A 17 2D B0 3B 00 90 17 2E B0 3B |.,.;...-.;.....;|
00000F90: 00 96 17 2F B0 3B 00 9C 17 30 B0 3B 00 A2 17 31 |.../.;...0.;...1|
00000FA0: B0 3B 00 B9 17 36 B0 93 20 4C 44 41 20 23 38 3A |.;...6.. LDA #8:|
00000FB0: 53 54 41 20 44 49 53 4B 3A 00 DE 17 40 B0 4C 44 |STA DISK:...@.LD|
00000FC0: 41 20 23 32 3A 4C 44 58 20 44 49 53 4B 3A 4C 44 |A #2:LDX DISK:LD|
00000FD0: 59 20 23 32 3A 4A 53 52 20 24 46 46 42 41 00 1D |Y #2:JSR $FFBA..|
00000FE0: 18 4A B0 93 9A 20 4C 44 41 20 4C 43 4F 4D 44 49 |.J... LDA LCOMDI|
00000FF0: 53 4B 3A 4C 44 59 20 23 B1 44 49 53 43 4F 4D 3A |SK:LDY #.DISCOM:|
00001000: 4C 44 58 20 23 B3 44 49 53 43 4F 4D 3A 4A 53 52 |LDX #.DISCOM:JSR|
00001010: 20 24 46 46 42 44 3A 4C 44 41 20 23 30 00 2B 18 | $FFBD:LDA #0.+.|
00001020: 4F B0 4A 53 52 20 24 46 46 44 35 00 5D 18 54 B0 |O.JSR $FFD5.].T.|
00001030: 43 4D 50 20 23 35 3A 42 45 51 20 93 41 42 3A 43 |CMP #5:BEQ .AB:C|
00001040: 4D 50 20 23 34 3A 42 45 51 20 93 44 49 3A 4A 53 |MP #4:BEQ .DI:JS|
00001050: 52 20 4C 49 43 41 4E 45 52 3A 52 54 53 00 74 18 |R LICANER:RTS.t.|
00001060: 5E B0 93 41 42 20 20 4A 53 52 20 44 49 53 4B B6 |^..AB JSR DISK.|
00001070: 3A 52 54 53 00 AA 18 68 B0 93 44 49 20 49 4E 43 |:RTS...h..DI INC|
00001080: 20 90 4D 45 3A 4A 53 52 20 4C 49 43 41 4E 45 52 | .ME:JSR LICANER|
00001090: 3A 4C 44 58 20 23 B1 44 49 53 4B 50 52 3A 4C 44 |:LDX #.DISKPR:LD|
000010A0: 59 20 23 B3 44 49 53 4B 50 52 00 C8 18 6D B0 44 |Y #.DISKPR...m.D|
000010B0: 45 43 20 90 4D 45 3A 4A 53 52 20 4D 45 52 52 B0 |EC .ME:JSR MERR.|
000010C0: 3A 53 45 43 3A 52 54 53 00 CE 18 90 B0 3B 00 D4 |:SEC:RTS.....;..|
000010D0: 18 91 B0 3B 00 DA 18 92 B0 3B 00 E0 18 93 B0 3B |...;.....;.....;|
000010E0: 00 E6 18 94 B0 3B 00 EC 18 95 B0 3B 00 0C 19 9A |.....;.....;....|
000010F0: B0 53 93 20 4A 53 52 20 9F 32 38 32 3A 43 4D 50 |.S. JSR .282:CMP|
00001100: 20 23 35 3A 42 45 51 20 53 93 41 42 00 49 19 9F | #5:BEQ S.AB.I..|
00001110: B0 4C 44 58 20 53 93 54 59 50 3A 53 54 58 20 90 |.LDX S.TYP:STX .|
00001120: 4D 45 3A 4A 53 52 20 4C 49 43 41 4E 45 52 3A 50 |ME:JSR LICANER:P|
00001130: 48 50 3A 4C 44 41 20 23 30 3A 53 54 41 20 90 4D |HP:LDA #0:STA .M|
00001140: 45 3A 50 4C 50 3A 52 54 53 00 80 19 C2 B0 53 93 |E:PLP:RTS.....S.|
00001150: 41 42 20 4A 53 52 20 24 46 46 45 37 3A 4A 53 52 |AB JSR $FFE7:JSR|
00001160: 20 43 4C 4F 53 41 4C 3A 4A 53 52 20 44 49 53 4B | CLOSAL:JSR DISK|
00001170: B6 3A 4C 44 41 20 23 35 3A 53 45 43 3A 52 54 53 |.:LDA #5:SEC:RTS|
00001180: 00 86 19 F4 B0 3B 00 8C 19 F5 B0 3B 00 92 19 F6 |.....;.....;....|
00001190: B0 3B 00 98 19 F7 B0 3B 00 9E 19 F8 B0 3B 00 A4 |.;.....;.....;..|
000011A0: 19 F9 B0 3B 00 C4 19 FE B0 53 94 20 4A 53 52 20 |...;.....S. JSR |
000011B0: 9F 32 38 32 3A 43 4D 50 20 23 35 3A 42 45 51 20 |.282:CMP #5:BEQ |
000011C0: 53 93 41 42 00 01 1A 03 B1 4C 44 58 20 53 93 54 |S.AB.....LDX S.T|
000011D0: 59 50 3A 53 54 58 20 90 4D 45 3A 4A 53 52 20 4C |YP:STX .ME:JSR L|
000011E0: 49 43 41 4E 45 52 3A 50 48 50 3A 4C 44 41 20 23 |ICANER:PHP:LDA #|
000011F0: 30 3A 53 54 41 20 90 4D 45 3A 50 4C 50 3A 52 54 |0:STA .ME:PLP:RT|
00001200: 53 00 07 1A BC B1 3B 00 0D 1A BD B1 3B 00 13 1A |S.....;.....;...|
00001210: BE B1 3B 00 19 1A BF B1 3B 00 1F 1A C0 B1 3B 00 |..;.....;.....;.|
00001220: 2E 1A C1 B1 93 53 B0 20 4C 44 41 20 23 30 00 67 |.....S. LDA #0.g|
00001230: 1A C6 B1 53 54 41 20 4C 43 4F 4D 44 49 53 4B 3A |...STA LCOMDISK:|
00001240: 4C 44 41 20 23 35 3A 4C 44 58 20 23 B3 9E 3A 4C |LDA #5:LDX #..:L|
00001250: 44 59 20 23 B1 9E 3A 4A 53 52 20 41 4A 4F 43 4F |DY #..:JSR AJOCO|
00001260: 4D 3A 4A 53 52 20 93 00 76 1A D0 B1 4A 53 52 20 |M:JSR ..v...JSR |
00001270: 43 4C 4F 53 41 4C 00 81 1A DF B1 4C 44 41 20 23 |CLOSAL.....LDA #|
00001280: 30 00 C3 1A E4 B1 53 54 41 20 4C 43 4F 4D 44 49 |0.....STA LCOMDI|
00001290: 53 4B 3A 4C 44 41 20 23 31 30 3A 4C 44 58 20 23 |SK:LDA #10:LDX #|
000012A0: B3 45 43 52 49 56 3A 4C 44 59 20 23 B1 45 43 52 |.ECRIV:LDY #.ECR|
000012B0: 49 56 3A 4A 53 52 20 41 4A 4F 43 4F 4D 3A 4A 53 |IV:JSR AJOCOM:JS|
000012C0: 52 20 93 00 ED 1A EE B1 50 48 50 3A 4A 53 52 20 |R ......PHP:JSR |
000012D0: 43 4C 4F 53 41 4C 3A 50 4C 50 3A 42 43 53 20 93 |CLOSAL:PLP:BCS .|
000012E0: 53 B0 46 3A 4A 4D 50 20 24 31 35 30 30 00 FA 1A |S.F:JMP $1500...|
000012F0: F8 B1 93 53 B0 46 20 52 54 53 00 00 1B 05 BF 3B |...S.F RTS.....;|
00001300: 00 06 1B 06 BF 3B 00 0C 1B 07 BF 3B 00 12 1B 08 |.....;.....;....|
00001310: BF 3B 00 18 1B 09 BF 3B 00 2A 1B 0E BF 43 48 41 |.;.....;.*...CHA|
00001320: 52 20 20 53 54 58 20 24 33 30 00 64 1B 18 BF 43 |R STX $30.d...C|
00001330: 48 41 52 34 20 53 54 58 20 24 44 34 3A 43 4D 50 |HAR4 STX $D4:CMP|
00001340: 20 23 22 9D 22 3A 42 45 51 20 54 58 54 47 41 55 | #".":BEQ TXTGAU|
00001350: 3A 43 4D 50 20 23 22 1D 22 3A 42 45 51 20 54 58 |:CMP #".":BEQ TX|
00001360: 54 44 52 4F 00 90 1B 19 BF 43 4D 50 20 23 22 91 |TDRO.....CMP #".|
00001370: 22 3A 42 45 51 20 54 58 54 48 41 55 3A 43 4D 50 |":BEQ TXTHAU:CMP|
00001380: 20 23 22 11 22 3A 42 45 51 20 54 58 54 42 41 53 | #".":BEQ TXTBAS|
00001390: 00 D8 1B 1D BF 43 48 41 58 20 53 54 58 20 24 44 |.....CHAX STX $D|
000013A0: 34 3A AF 20 23 25 31 31 31 31 31 31 31 31 3A 53 |4:. #%11111111:S|
000013B0: 54 59 20 24 36 3A 4C 44 59 20 24 44 33 3A 53 54 |TY $6:LDY $D3:ST|
000013C0: 41 20 28 24 44 31 29 2C 59 3A 4C 44 59 20 24 36 |A ($D1),Y:LDY $6|
000013D0: 3A 4C 44 58 20 24 33 30 00 01 1C 22 BF 54 58 54 |:LDX $30...".TXT|
000013E0: 44 52 4F 20 49 4E 43 20 24 44 33 3A 42 4E 45 20 |DRO INC $D3:BNE |
000013F0: 43 48 41 52 46 3A 49 4E 43 20 24 44 32 3A 52 54 |CHARF:INC $D2:RT|
00001400: 53 00 46 1C 27 BF 54 58 54 47 41 55 20 4C 44 58 |S.F.'.TXTGAU LDX|
00001410: 20 24 44 31 3A 50 48 50 3A 44 45 58 3A 50 4C 50 | $D1:PHP:DEX:PLP|
00001420: 3A 53 54 58 20 24 44 31 3A 42 4E 45 20 43 48 41 |:STX $D1:BNE CHA|
00001430: 52 46 3A 44 45 43 20 24 44 32 3A 4C 44 58 20 24 |RF:DEC $D2:LDX $|
00001440: 33 30 3A 52 54 53 00 8C 1C 2C BF 54 58 54 42 41 |30:RTS...,.TXTBA|
00001450: 53 20 50 48 41 3A 4C 44 41 20 24 44 31 3A 43 4C |S PHA:LDA $D1:CL|
00001460: 43 3A 41 44 43 20 23 24 32 38 3A 53 54 41 20 24 |C:ADC #$28:STA $|
00001470: 44 31 3A 50 4C 41 3A 42 43 43 20 43 48 41 52 46 |D1:PLA:BCC CHARF|
00001480: 3A 49 4E 43 20 24 44 32 3A 52 54 53 00 D2 1C 36 |:INC $D2:RTS...6|
00001490: BF 54 58 54 48 41 55 20 50 48 41 3A 4C 44 41 20 |.TXTHAU PHA:LDA |
000014A0: 24 44 31 3A 53 45 43 3A 53 42 43 20 23 24 32 38 |$D1:SEC:SBC #$28|
000014B0: 3A 53 54 41 20 24 44 31 3A 50 4C 41 3A 42 43 53 |:STA $D1:PLA:BCS|
000014C0: 20 43 48 41 52 46 3A 44 45 43 20 24 44 32 3A 52 | CHARF:DEC $D2:R|
000014D0: 54 53 00 E8 1C 67 BF 43 48 41 52 46 20 4C 44 58 |TS...g.CHARF LDX|
000014E0: 20 24 33 30 3A 52 54 53 00 26 1D 72 BF 43 48 41 | $30:RTS.&.r.CHA|
000014F0: 20 43 4D 50 20 23 24 32 30 3A 42 43 43 20 43 48 | CMP #$20:BCC CH|
00001500: 41 32 3A 43 4D 50 20 23 24 34 30 3A 42 43 43 20 |A2:CMP #$40:BCC |
00001510: 43 48 41 46 3A 43 4D 50 20 23 24 36 30 3A 42 43 |CHAF:CMP #$60:BC|
00001520: 43 20 43 48 41 4D 00 40 1D 7C BF 53 45 43 3A 53 |C CHAM.@.|.SEC:S|
00001530: 42 43 20 23 24 32 30 3A 4A 4D 50 20 43 48 41 46 |BC #$20:JMP CHAF|
00001540: 00 5F 1D 86 BF 43 48 41 4D 20 53 45 43 3A 53 42 |._...CHAM SEC:SB|
00001550: 43 20 23 24 34 30 3A 4A 4D 50 20 43 48 41 46 00 |C #$40:JMP CHAF.|
00001560: 7D 1D 90 BF 43 48 41 32 20 43 4C 43 3A 41 44 43 |}...CHA2 CLC:ADC|
00001570: 20 23 38 30 3A 4A 4D 50 20 43 48 41 46 00 8F 1D | #80:JMP CHAF...|
00001580: 9A BF 43 48 41 46 20 4A 4D 50 20 43 48 41 58 00 |..CHAF JMP CHAX.|
00001590: 95 1D B4 C3 3B 00 9B 1D B5 C3 3B 00 A1 1D B6 C3 |....;.....;.....|
000015A0: 3B 00 A7 1D B7 C3 3B 00 AD 1D B8 C3 3B 00 B3 1D |;.....;.....;...|
000015B0: B9 C3 3B 00 F3 1D BE C3 44 45 53 4D 45 4E 55 20 |..;.....DESMENU |
000015C0: 20 50 48 41 3A 53 54 58 20 24 37 41 3A 53 54 59 | PHA:STX $7A:STY|
000015D0: 20 24 37 42 3A 4C 44 59 20 23 31 3A 4C 44 41 20 | $7B:LDY #1:LDA |
000015E0: 28 24 37 41 29 2C 59 3A 49 4E 59 3A 4C 44 58 20 |($7A),Y:INY:LDX |
000015F0: 23 30 30 00 30 1E C8 C3 44 45 53 4D 45 4E 31 20 |#00.0...DESMEN1 |
00001600: 4C 44 41 20 28 24 37 41 29 2C 59 3A 53 54 41 20 |LDA ($7A),Y:STA |
00001610: 24 46 43 2C 58 3A 49 4E 58 3A 49 4E 59 3A 43 50 |$FC,X:INX:INY:CP|
00001620: 58 20 23 34 3A 42 4E 45 20 44 45 53 4D 45 4E 31 |X #4:BNE DESMEN1|
00001630: 00 44 1E CD C3 4C 44 59 20 24 46 44 3A 53 54 59 |.D...LDY $FD:STY|
00001640: 20 24 33 39 00 8C 1E DC C3 44 45 53 4D 45 4E 4E | $39.....DESMENN|
00001650: 20 4C 44 59 20 24 46 43 3A 4C 44 58 20 24 46 44 | LDY $FC:LDX $FD|
00001660: 20 3A 4A 53 52 20 50 4C 54 3A 4C 44 41 20 23 22 | :JSR PLT:LDA #"|
00001670: B0 22 3A 4A 53 52 20 43 48 41 52 3A 4C 44 41 20 |.":JSR CHAR:LDA |
00001680: 23 22 C3 22 3A 4C 44 59 20 24 46 45 00 C3 1E E6 |#".":LDY $FE....|
00001690: C3 44 45 53 4D 45 4E 33 20 4A 53 52 20 43 48 41 |.DESMEN3 JSR CHA|
000016A0: 52 3A 44 45 59 3A 42 4E 45 20 44 45 53 4D 45 4E |R:DEY:BNE DESMEN|
000016B0: 33 3A 4C 44 41 20 23 32 32 33 3A 4A 53 52 20 43 |3:LDA #223:JSR C|
000016C0: 48 41 52 00 04 1F F0 C3 44 45 53 4D 45 4E 34 20 |HAR.....DESMEN4 |
000016D0: 49 4E 43 20 24 33 39 3A 4C 44 58 20 24 33 39 3A |INC $39:LDX $39:|
000016E0: 43 50 58 20 24 46 46 3A 42 45 51 20 44 45 53 4D |CPX $FF:BEQ DESM|
000016F0: 45 4E 37 3A 4C 44 59 20 24 46 43 3A 20 4A 53 52 |EN7:LDY $FC: JSR|
00001700: 20 50 4C 54 00 2B 1F F5 C3 4C 44 59 20 24 46 45 | PLT.+...LDY $FE|
00001710: 3A 4C 44 41 20 23 32 34 33 3A 4A 53 52 20 43 48 |:LDA #243:JSR CH|
00001720: 41 52 3A 4C 44 41 20 23 24 32 30 00 64 1F FA C3 |AR:LDA #$20.d...|
00001730: 44 45 53 4D 45 4E 35 20 20 4A 53 52 20 43 48 41 |DESMEN5 JSR CHA|
00001740: 52 3A 44 45 59 3A 20 42 4E 45 20 44 45 53 4D 45 |R:DEY: BNE DESME|
00001750: 4E 35 3A 4C 44 41 20 23 32 34 37 3A 4A 53 52 20 |N5:LDA #247:JSR |
00001760: 43 48 41 52 00 74 1F 04 C4 4A 4D 50 20 44 45 53 |CHAR.t...JMP DES|
00001770: 4D 45 4E 34 00 BC 1F 05 C4 44 45 53 4D 45 4E 37 |MEN4.....DESMEN7|
00001780: 20 4C 44 59 20 24 46 43 3A 4C 44 58 20 24 33 39 | LDY $FC:LDX $39|
00001790: 20 3A 4A 53 52 20 50 4C 54 3A 4C 44 41 20 23 32 | :JSR PLT:LDA #2|
000017A0: 34 34 3A 4A 53 52 20 43 48 41 52 3A 4C 44 41 20 |44:JSR CHAR:LDA |
000017B0: 23 32 34 35 3A 4C 44 59 20 24 46 45 00 F3 1F 06 |#245:LDY $FE....|
000017C0: C4 44 45 53 4D 45 4E 38 20 4A 53 52 20 43 48 41 |.DESMEN8 JSR CHA|
000017D0: 52 3A 44 45 59 3A 42 4E 45 20 44 45 53 4D 45 4E |R:DEY:BNE DESMEN|
000017E0: 38 3A 4C 44 41 20 23 32 34 36 3A 4A 53 52 20 43 |8:LDA #246:JSR C|
000017F0: 48 41 52 00 25 20 07 C4 4C 44 58 20 24 46 43 3A |HAR.% ..LDX $FC:|
00001800: 53 54 58 20 24 46 45 20 3A 20 4C 44 58 20 24 46 |STX $FE : LDX $F|
00001810: 44 3A 53 54 58 20 24 46 46 3A 20 4A 53 52 20 49 |D:STX $FF: JSR I|
00001820: 4D 4D 45 54 45 00 45 20 09 C4 50 4C 41 3A 42 45 |MMETE.E ..PLA:BE|
00001830: 51 20 44 45 53 4D 45 4E 46 3A 54 41 58 3A 4A 53 |Q DESMENF:TAX:JS|
00001840: 52 20 47 4D 50 00 55 20 17 C4 44 45 53 4D 45 4E |R GMP.U ..DESMEN|
00001850: 46 20 52 54 53 00 5B 20 18 C4 3B 00 61 20 19 C4 |F RTS.[ ..;.a ..|
00001860: 3B 00 67 20 1A C4 3B 00 6D 20 1B C4 3B 00 73 20 |;.g ..;.m ..;.s |
00001870: 1C C4 3B 00 79 20 1D C4 3B 00 C2 20 22 C4 49 4D |..;.y ..;.. ".IM|
00001880: 4D 45 54 45 20 4C 44 59 20 23 36 3A 4C 44 41 20 |METE LDY #6:LDA |
00001890: 28 24 37 41 29 2C 59 3A 4C 44 59 20 24 37 42 3A |($7A),Y:LDY $7B:|
000018A0: 43 4C 43 3A 41 44 43 20 24 37 41 3A 53 54 41 20 |CLC:ADC $7A:STA |
000018B0: 24 33 39 3A 42 43 43 20 49 4D 4D 45 54 31 3A 49 |$39:BCC IMMET1:I|
000018C0: 4E 59 00 E2 20 2C C4 49 4D 4D 45 54 31 20 53 54 |NY.. ,.IMMET1 ST|
000018D0: 59 20 24 33 41 3A 4A 53 52 20 50 52 54 44 3A 52 |Y $3A:JSR PRTD:R|
000018E0: 54 53 00 E8 20 7C C4 3B 00 EE 20 7D C4 3B 00 F4 |TS.. |.;.. }.;..|
000018F0: 20 7E C4 3B 00 FA 20 7F C4 3B 00 00 21 80 C4 3B | ~.;.. ..;..!..;|
00001900: 00 06 21 81 C4 3B 00 3B 21 86 C4 47 4D 50 20 4C |..!..;.;!..GMP L|
00001910: 44 59 20 23 37 3A 4C 44 41 20 28 24 37 41 29 2C |DY #7:LDA ($7A),|
00001920: 59 3A 43 4D 50 20 23 24 38 30 3A 42 4E 45 20 47 |Y:CMP #$80:BNE G|
00001930: 4D 50 44 3B 4A 4D 50 20 47 4D 4C 00 74 21 8B C4 |MPD;JMP GML.t!..|
00001940: 47 4D 50 44 20 4C 44 41 20 23 38 3A 4C 44 59 20 |GMPD LDA #8:LDY |
00001950: 24 37 42 3A 43 4C 43 3A 41 44 43 20 24 37 41 3A |$7B:CLC:ADC $7A:|
00001960: 53 54 41 20 24 33 39 3A 42 43 43 20 47 4D 50 30 |STA $39:BCC GMP0|
00001970: 3A 49 4E 59 00 C0 21 90 C4 47 4D 50 30 20 53 54 |:INY..!..GMP0 ST|
00001980: 59 20 24 33 41 3A 4C 44 59 20 23 37 3A 4C 44 41 |Y $3A:LDY #7:LDA|
00001990: 20 28 24 37 41 29 2C 59 3A 53 54 41 20 24 46 46 | ($7A),Y:STA $FF|
000019A0: 3A 4C 44 59 20 23 30 3A 53 54 59 20 24 32 3A 43 |:LDY #0:STY $2:C|
000019B0: 50 58 20 23 24 46 46 3A 42 45 51 20 47 4D 50 32 |PX #$FF:BEQ GMP2|
000019C0: 00 DB 21 95 C4 4C 44 58 20 24 46 46 3A 44 45 58 |..!..LDX $FF:DEX|
000019D0: 3A 44 45 58 3A 53 54 58 20 24 32 00 0C 22 9A C4 |:DEX:STX $2.."..|
000019E0: 47 4D 50 32 20 4C 44 59 20 24 30 32 3A 4C 44 41 |GMP2 LDY $02:LDA|
000019F0: 20 28 24 33 39 29 2C 59 3A 54 41 58 3A 49 4E 59 | ($39),Y:TAX:INY|
00001A00: 3A 4C 44 41 20 28 24 33 39 29 2C 59 00 37 22 A4 |:LDA ($39),Y.7".|
00001A10: C4 50 48 41 3A 54 58 41 3A 54 41 59 3A 50 4C 41 |.PHA:TXA:TAY:PLA|
00001A20: 3A 54 41 58 3A 4A 53 52 20 50 4C 54 3A 4A 53 52 |:TAX:JSR PLT:JSR|
00001A30: 20 46 4C 41 53 48 31 00 85 22 AE C4 43 4D 50 20 | FLASH1.."..CMP |
00001A40: 23 24 30 44 3A 42 45 51 20 47 4D 50 39 3A 20 43 |#$0D:BEQ GMP9: C|
00001A50: 4D 50 20 20 23 24 38 38 3A 42 45 51 20 47 4D 50 |MP #$88:BEQ GMP|
00001A60: 46 3A 43 4D 50 20 23 24 31 31 3A 42 45 51 20 47 |F:CMP #$11:BEQ G|
00001A70: 4D 50 35 3A 43 4D 50 20 23 24 39 31 3A 42 45 51 |MP5:CMP #$91:BEQ|
00001A80: 20 47 4D 50 37 00 A7 22 B3 C4 43 4D 50 20 23 22 | GMP7.."..CMP #"|
00001A90: 85 22 3A 42 4E 45 20 47 4D 50 32 3A 4A 53 52 20 |.":BNE GMP2:JSR |
00001AA0: 49 4E 49 43 4F 55 4C 00 B4 22 B8 C4 4A 4D 50 20 |INICOUL.."..JMP |
00001AB0: 47 4D 50 32 00 EF 22 C2 C4 47 4D 50 35 20 4C 44 |GMP2.."..GMP5 LD|
00001AC0: 58 20 24 30 32 3A 49 4E 58 3A 49 4E 58 3A 43 50 |X $02:INX:INX:CP|
00001AD0: 58 20 24 46 46 3A 42 43 53 20 47 4D 50 36 3A 53 |X $FF:BCS GMP6:S|
00001AE0: 54 58 20 24 30 32 3A 4A 4D 50 20 47 4D 50 32 00 |TX $02:JMP GMP2.|
00001AF0: 10 23 C7 C4 47 4D 50 36 20 4C 44 58 20 23 30 3A |.#..GMP6 LDX #0:|
00001B00: 53 54 58 20 24 30 32 3A 4A 4D 50 20 47 4D 50 32 |STX $02:JMP GMP2|
00001B10: 00 44 23 CC C4 47 4D 50 37 20 4C 44 58 20 24 30 |.D#..GMP7 LDX $0|
00001B20: 32 3A 42 45 51 20 47 4D 50 38 3A 20 44 45 58 3A |2:BEQ GMP8: DEX:|
00001B30: 44 45 58 3A 53 54 58 20 24 30 32 3A 4A 4D 50 20 |DEX:STX $02:JMP |
00001B40: 47 4D 50 32 00 70 23 D1 C4 47 4D 50 38 20 4C 44 |GMP2.p#..GMP8 LD|
00001B50: 58 20 24 46 46 3A 44 45 58 3A 44 45 58 20 20 3A |X $FF:DEX:DEX :|
00001B60: 53 54 58 20 24 30 32 3A 4A 4D 50 20 47 4D 50 32 |STX $02:JMP GMP2|
00001B70: 00 92 23 D6 C4 47 4D 50 39 20 4A 53 52 20 46 4C |..#..GMP9 JSR FL|
00001B80: 41 53 48 45 58 3A 4C 44 41 20 24 30 32 20 3A 52 |ASHEX:LDA $02 :R|
00001B90: 54 53 00 A8 23 DF C4 47 4D 50 46 20 53 54 41 20 |TS..#..GMPF STA |
00001BA0: 24 30 32 20 3A 52 54 53 00 AE 23 40 CE 3B 00 B4 |$02 :RTS..#@.;..|
00001BB0: 23 41 CE 3B 00 BA 23 42 CE 3B 00 C0 23 43 CE 3B |#A.;..#B.;..#C.;|
00001BC0: 00 C6 23 44 CE 3B 00 CC 23 45 CE 3B 00 EF 23 4A |..#D.;..#E.;..#J|
00001BD0: CE 41 4A 4F 43 4F 4D 20 53 54 58 20 24 33 39 3A |.AJOCOM STX $39:|
00001BE0: 53 54 59 20 24 33 41 3A 53 54 41 20 24 33 42 00 |STY $3A:STA $3B.|
00001BF0: 07 24 4F CE 4C 44 59 20 23 30 3A 4C 44 58 20 4C |.$O.LDY #0:LDX L|
00001C00: 43 4F 4D 44 49 53 4B 00 55 24 54 CE 41 4A 4F 43 |COMDISK.U$T.AJOC|
00001C10: 4F 4D 31 20 4C 44 41 20 28 24 33 39 29 2C 59 3A |OM1 LDA ($39),Y:|
00001C20: 53 54 41 20 44 49 53 43 4F 4D 2C 58 3A 49 4E 59 |STA DISCOM,X:INY|
00001C30: 3A 49 4E 58 3A 49 4E 43 20 4C 43 4F 4D 44 49 53 |:INX:INC LCOMDIS|
00001C40: 4B 3A 44 45 43 20 24 33 42 3A 42 4E 45 20 41 4A |K:DEC $3B:BNE AJ|
00001C50: 4F 43 4F 4D 31 00 5D 24 5E CE 52 54 53 00 99 24 |OCOM1.]$^.RTS..$|
00001C60: AE CE 9F 31 35 38 31 35 20 4C 44 41 20 4C 43 4F |...15815 LDA LCO|
00001C70: 4D 44 49 53 4B 3A 4C 44 59 20 23 B1 44 49 53 43 |MDISK:LDY #.DISC|
00001C80: 4F 4D 3A 4C 44 58 20 23 B3 44 49 53 43 4F 4D 3A |OM:LDX #.DISCOM:|
00001C90: 4A 53 52 20 24 46 46 42 44 00 CE 24 AF CE 4C 44 |JSR $FFBD..$..LD|
00001CA0: 41 20 23 31 35 3A 4C 44 58 20 44 49 53 4B 3A 4C |A #15:LDX DISK:L|
00001CB0: 44 59 20 23 31 35 3A 4A 53 52 20 24 46 46 42 41 |DY #15:JSR $FFBA|
00001CC0: 3A 4A 53 52 20 24 46 46 43 30 3A 52 54 53 00 EC |:JSR $FFC0:RTS..|
00001CD0: 24 B3 CE A0 31 35 20 4C 44 41 20 23 31 35 3A 4A |$...15 LDA #15:J|
00001CE0: 53 52 20 24 46 46 43 33 3A 52 54 53 00 08 25 B5 |SR $FFC3:RTS..%.|
00001CF0: CE A0 32 20 4C 44 41 20 23 32 3A 4A 53 52 20 24 |..2 LDA #2:JSR $|
00001D00: 46 46 43 33 3A 52 54 53 00 42 25 B8 CE 9F 32 38 |FFC3:RTS.B%...28|
00001D10: 32 20 4C 44 41 20 4C 43 4F 4D 44 49 53 4B 3A 4C |2 LDA LCOMDISK:L|
00001D20: 44 59 20 23 B1 44 49 53 43 4F 4D 3A 4C 44 58 20 |DY #.DISCOM:LDX |
00001D30: 23 B3 44 49 53 43 4F 4D 3A 4A 53 52 20 24 46 46 |#.DISCOM:JSR $FF|
00001D40: 42 44 00 75 25 C2 CE 4C 44 41 20 23 32 3A 4C 44 |BD.u%..LDA #2:LD|
00001D50: 58 20 44 49 53 4B 3A 4C 44 59 20 23 32 3A 4A 53 |X DISK:LDY #2:JS|
00001D60: 52 20 24 46 46 42 41 3A 4A 53 52 20 24 46 46 43 |R $FFBA:JSR $FFC|
00001D70: 30 3A 52 54 53 00 7B 25 D1 CE 3B 00 81 25 D2 CE |0:RTS.{%..;..%..|
00001D80: 3B 00 87 25 D3 CE 3B 00 8D 25 D4 CE 3B 00 93 25 |;..%..;..%..;..%|
00001D90: D5 CE 3B 00 D8 25 D6 CE 4C 49 43 41 4E 45 52 20 |..;..%..LICANER |
00001DA0: 20 4C 44 41 20 23 30 3A 53 54 41 20 4C 43 4F 4D | LDA #0:STA LCOM|
00001DB0: 44 49 53 4B 3A 4A 53 52 20 9F 31 35 38 31 35 3A |DISK:JSR .15815:|
00001DC0: 4C 44 58 20 23 31 35 3A 4A 53 52 20 24 46 46 43 |LDX #15:JSR $FFC|
00001DD0: 36 3A 4C 44 59 20 23 30 00 23 26 D8 CE 4C 49 43 |6:LDY #0.#&..LIC|
00001DE0: 41 4E 45 52 31 20 4A 53 52 20 24 46 46 43 46 3A |ANER1 JSR $FFCF:|
00001DF0: 43 4D 50 20 23 24 30 44 3A 42 45 51 20 4C 49 43 |CMP #$0D:BEQ LIC|
00001E00: 41 4E 45 52 32 3A 53 54 41 20 44 4D 45 53 53 41 |ANER2:STA DMESSA|
00001E10: 2C 59 3A 49 4E 59 3A 42 4E 45 20 4C 49 43 41 4E |,Y:INY:BNE LICAN|
00001E20: 45 52 31 00 5F 26 D9 CE 4C 49 43 41 4E 45 52 32 |ER1._&..LICANER2|
00001E30: 20 4C 44 41 20 23 24 32 30 3A 53 54 41 20 44 4D | LDA #$20:STA DM|
00001E40: 45 53 53 41 2C 59 3A 49 4E 59 3A 43 50 59 20 23 |ESSA,Y:INY:CPY #|
00001E50: 33 39 3A 42 4E 45 20 4C 49 43 41 4E 45 52 32 00 |39:BNE LICANER2.|
00001E60: A2 26 DB CE 4C 44 59 20 23 31 3A 4C 44 41 20 44 |.&..LDY #1:LDA D|
00001E70: 4D 45 53 53 41 2C 59 3A 53 54 41 20 44 45 52 52 |MESSA,Y:STA DERR|
00001E80: 45 55 52 32 3A 44 45 59 3A 4C 44 41 20 44 4D 45 |EUR2:DEY:LDA DME|
00001E90: 53 53 41 2C 59 3A 53 54 41 20 44 45 52 52 45 55 |SSA,Y:STA DERREU|
00001EA0: 52 31 00 C4 26 DC CE 43 4D 50 20 23 22 30 22 3A |R1..&..CMP #"0":|
00001EB0: 42 4E 45 20 4C 49 43 41 4E 45 52 46 3A 43 4C 43 |BNE LICANERF:CLC|
00001EC0: 3A 52 54 53 00 F7 26 DD CE 4C 49 43 41 4E 45 52 |:RTS..&..LICANER|
00001ED0: 46 20 4A 53 52 20 43 4C 4F 53 41 4C 3A 4C 44 59 |F JSR CLOSAL:LDY|
00001EE0: 20 23 30 3A 4A 53 52 20 4D 44 49 53 4B 45 52 3A | #0:JSR MDISKER:|
00001EF0: 53 45 43 3A 52 54 53 00 FD 26 E0 CE 3B 00 03 27 |SEC:RTS..&..;..'|
00001F00: E1 CE 3B 00 09 27 E2 CE 3B 00 0F 27 E3 CE 3B 00 |..;..'..;..'..;.|
00001F10: 34 27 E4 CE 53 45 54 44 49 53 4B 20 4C 53 52 3A |4'..SETDISK LSR:|
00001F20: B0 41 20 23 24 30 38 3A 53 54 41 20 44 49 53 4B |.A #$08:STA DISK|
00001F30: 3A 52 54 53 00 3A 27 E5 CE 3B 00 40 27 E6 CE 3B |:RTS.:'..;.@'..;|
00001F40: 00 46 27 E7 CE 3B 00 4C 27 E8 CE 3B 00 52 27 E9 |.F'..;.L'..;.R'.|
00001F50: CE 3B 00 83 27 EA CE 44 49 53 4B 50 45 52 46 20 |.;..'..DISKPERF |
00001F60: 4A 53 52 20 9F 31 35 38 31 35 3A 53 54 41 20 24 |JSR .15815:STA $|
00001F70: 33 34 30 3A 50 48 41 3A 4A 53 52 20 A0 31 35 3A |340:PHA:JSR .15:|
00001F80: 50 4C 41 00 B3 27 EF CE 43 4D 50 20 23 35 3A 42 |PLA..'..CMP #5:B|
00001F90: 45 51 20 44 49 53 4B B6 3A 4A 53 52 20 4C 49 43 |EQ DISK.:JSR LIC|
00001FA0: 41 4E 45 52 3A 4A 53 52 20 43 4C 4F 53 41 4C 3A |ANER:JSR CLOSAL:|
00001FB0: 52 54 53 00 F0 27 F4 CE 44 49 53 4B B6 20 4C 44 |RTS..'..DISK. LD|
00001FC0: 58 20 23 B1 44 49 53 4B 41 42 3A 4C 44 59 20 23 |X #.DISKAB:LDY #|
00001FD0: B3 44 49 53 4B 41 42 3A 4A 53 52 20 4D 45 52 52 |.DISKAB:JSR MERR|
00001FE0: B0 3A 4C 44 41 20 23 35 3A 53 45 43 3A 52 54 53 |.:LDA #5:SEC:RTS|
00001FF0: 00 F6 27 40 E7 3B 00 FC 27 41 E7 3B 00 02 28 42 |..'@.;..'A.;..(B|
00002000: E7 3B 00 08 28 43 E7 3B 00 0E 28 44 E7 3B 00 14 |.;..(C.;..(D.;..|
00002010: 28 45 E7 3B 00 39 28 4A E7 4D 45 52 52 B0 20 4C |(E.;.9(J.MERR. L|
00002020: 44 41 20 90 4D 45 3A 42 45 51 20 4D 45 52 52 4F |DA .ME:BEQ MERRO|
00002030: 31 3A 53 45 43 3A 52 54 53 00 5B 28 4F E7 4D 45 |1:SEC:RTS.[(O.ME|
00002040: 52 52 4F 31 20 54 59 41 3A 50 48 41 3A 54 58 41 |RRO1 TYA:PHA:TXA|
00002050: 3A 50 48 41 3A 4C 44 41 20 23 30 00 88 28 54 E7 |:PHA:LDA #0..(T.|
00002060: 4D 45 52 52 30 20 4C 44 58 20 23 B3 44 45 52 52 |MERR0 LDX #.DERR|
00002070: 3A 20 4C 44 59 20 23 B1 44 45 52 52 3A 4A 53 52 |: LDY #.DERR:JSR|
00002080: 20 44 45 53 4D 45 4E 55 00 C3 28 5E E7 4C 44 58 | DESMENU..(^.LDX|
00002090: 20 23 35 3A 53 54 58 20 24 46 45 3A 4C 44 58 20 | #5:STX $FE:LDX |
000020A0: 23 32 30 3A 53 54 58 20 24 46 46 3A 50 4C 41 3A |#20:STX $FF:PLA:|
000020B0: 54 41 58 3A 50 4C 41 3A 54 41 59 3A 4A 53 52 20 |TAX:PLA:TAY:JSR |
000020C0: 50 52 54 00 07 29 72 E7 4D 45 52 52 B0 32 20 4C |PRT..)r.MERR.2 L|
000020D0: 44 41 20 23 30 3A 53 54 41 20 24 46 45 3A 4C 44 |DA #0:STA $FE:LD|
000020E0: 41 20 23 32 33 3A 53 54 41 20 24 46 46 3A 4C 44 |A #23:STA $FF:LD|
000020F0: 58 20 23 B1 4D 41 50 50 55 59 3A 4C 44 59 20 23 |X #.MAPPUY:LDY #|
00002100: B3 4D 41 50 50 55 59 00 13 29 7C E7 4A 53 52 20 |.MAPPUY..)|.JSR |
00002110: 50 52 54 00 3C 29 86 E7 4D 45 52 52 B0 47 20 4A |PRT.<)..MERR.G J|
00002120: 53 52 20 24 46 46 45 34 3A 43 4D 50 20 23 24 38 |SR $FFE4:CMP #$8|
00002130: 38 3A 42 4E 45 20 4D 45 52 52 B0 47 00 6F 29 90 |8:BNE MERR.G.o).|
00002140: E7 4D 45 52 52 45 46 20 4C 44 59 20 23 30 3A 4C |.MERREF LDY #0:L|
00002150: 44 58 20 23 32 33 3A 4A 53 52 20 50 4C 54 3A 4C |DX #23:JSR PLT:L|
00002160: 44 59 20 23 34 30 3A 4C 44 41 20 23 24 32 30 00 |DY #40:LDA #$20.|
00002170: AF 29 95 E7 4D 45 52 52 45 46 31 20 4A 53 52 20 |.)..MERREF1 JSR |
00002180: 43 48 41 52 3A 44 45 59 3A 42 4E 45 20 4D 45 52 |CHAR:DEY:BNE MER|
00002190: 52 45 46 31 3A 4C 44 41 20 23 22 93 22 3A 4A 53 |REF1:LDA #".":JS|
000021A0: 52 20 24 46 46 44 32 3A 53 45 43 3A 52 54 53 00 |R $FFD2:SEC:RTS.|
000021B0: FB 29 D6 E7 4D 52 52 45 54 20 20 4C 44 41 20 23 |.)..MRRET LDA #|
000021C0: 30 3A 53 54 41 20 24 46 45 3A 4C 44 41 20 23 32 |0:STA $FE:LDA #2|
000021D0: 33 3A 53 54 41 20 24 46 46 3A 4C 44 58 20 23 B1 |3:STA $FF:LDX #.|
000021E0: 4D 41 50 50 55 59 3A 4C 44 59 20 23 B3 4D 41 50 |MAPPUY:LDY #.MAP|
000021F0: 50 55 59 3A 4A 4D 50 20 50 52 54 00 01 2A 6C E8 |PUY:JMP PRT..*l.|
00002200: 3B 00 07 2A 6D E8 3B 00 0D 2A 6E E8 3B 00 13 2A |;..*m.;..*n.;..*|
00002210: 6F E8 3B 00 19 2A 70 E8 3B 00 1F 2A 71 E8 3B 00 |o.;..*p.;..*q.;.|
00002220: 63 2A 76 E8 4D 44 49 53 4B 45 52 20 4C 44 58 20 |c*v.MDISKER LDX |
00002230: 44 45 52 52 45 55 52 31 3A 4C 44 59 20 44 45 52 |DERREUR1:LDY DER|
00002240: 52 45 55 52 32 3A 43 50 58 20 23 22 37 22 3A 42 |REUR2:CPX #"7":B|
00002250: 4E 45 20 4D 44 49 53 4B 45 32 3A 43 50 59 20 23 |NE MDISKE2:CPY #|
00002260: 22 34 22 00 85 2A 7B E8 42 4E 45 20 4D 44 49 53 |"4"..*{.BNE MDIS|
00002270: 4B 45 32 3A 4A 53 52 20 44 49 53 4B B6 3A 53 45 |KE2:JSR DISK.:SE|
00002280: 43 3A 52 54 53 00 A6 2A 80 E8 4D 44 49 53 4B 45 |C:RTS..*..MDISKE|
00002290: 32 20 43 50 58 20 23 22 36 22 3A 42 45 51 20 4D |2 CPX #"6":BEQ M|
000022A0: 44 49 53 4B 36 30 00 DF 2A 9E E8 4D 44 49 53 4B |DISK60..*..MDISK|
000022B0: 45 35 20 4C 44 58 20 23 B1 44 49 53 4B 45 52 3A |E5 LDX #.DISKER:|
000022C0: 4C 44 59 20 23 B3 44 49 53 4B 45 52 3A 4A 53 52 |LDY #.DISKER:JSR|
000022D0: 20 4D 45 52 52 B0 20 3A 53 45 43 3A 52 54 53 00 | MERR. :SEC:RTS.|
000022E0: 00 2B A8 E8 4D 44 49 53 4B 36 30 20 43 50 59 20 |.+..MDISK60 CPY |
000022F0: 23 22 32 22 3A 42 4E 45 20 4D 44 49 53 4B 45 35 |#"2":BNE MDISKE5|
00002300: 00 38 2B B2 E8 4D 44 49 53 4B 46 41 20 4C 44 58 |.8+..MDISKFA LDX|
00002310: 20 23 B1 46 49 43 48 41 42 3A 4C 44 59 20 23 B3 | #.FICHAB:LDY #.|
00002320: 46 49 43 48 41 42 3A 4A 53 52 20 4D 45 52 52 B0 |FICHAB:JSR MERR.|
00002330: 3A 53 45 43 3A 52 54 53 00 3E 2B 60 EA 3B 00 44 |:SEC:RTS.>+`.;.D|
00002340: 2B 61 EA 3B 00 4A 2B 62 EA 3B 00 50 2B 63 EA 3B |+a.;.J+b.;.P+c.;|
00002350: 00 56 2B 64 EA 3B 00 68 2B 65 EA 53 93 54 59 50 |.V+d.;.h+e.S.TYP|
00002360: 45 20 2E 42 59 54 20 30 00 7A 2B 92 EA 52 41 4E |E .BYT 0.z+..RAN|
00002370: 43 4F 55 20 2E 42 59 54 20 31 00 8B 2B 93 EA 4C |COU .BYT 1..+..L|
00002380: 91 43 4F 55 20 2E 42 59 54 20 31 00 9D 2B 9C EA |.COU .BYT 1..+..|
00002390: 43 4F 4C 43 4F 55 20 2E 42 59 54 20 31 00 AF 2B |COLCOU .BYT 1..+|
000023A0: A6 EA 44 49 53 4B 20 20 20 2E 42 59 54 20 38 00 |..DISK .BYT 8.|
000023B0: BE 2B BA EA 90 4D 45 20 2E 42 59 54 20 30 00 D1 |.+...ME .BYT 0..|
000023C0: 2B BC EA 46 4C 41 20 20 20 20 2E 42 59 54 20 39 |+..FLA .BYT 9|
000023D0: 34 00 E5 2B BF EA 4D 45 4E 55 20 20 20 2E 42 59 |4..+..MENU .BY|
000023E0: 54 20 30 2C 30 00 F8 2B C0 EA 54 45 4D 50 42 59 |T 0,0..+..TEMPBY|
000023F0: 54 20 2E 42 59 54 20 30 00 12 2C C3 EA 53 59 4D |T .BYT 0..,..SYM|
00002400: 43 20 20 20 2E C6 20 22 40 30 3A 43 4F 4E 46 49 |C .. "@0:CONFI|
00002410: 47 22 00 28 2C C4 EA 5A 9E 20 20 20 2E C6 20 22 |G".(,..Z. .. "|
00002420: 30 3A 5A 2E 53 59 53 22 00 43 2C C6 EA 45 43 52 |0:Z.SYS".C,..ECR|
00002430: 49 56 20 20 2E C6 20 22 30 3A 45 43 52 49 56 41 |IV .. "0:ECRIVA|
00002440: 49 4E 22 00 54 2C C7 EA 9E 20 2E C6 20 22 30 3A |IN".T,... .. "0:|
00002450: 53 59 53 22 00 6F 2C C8 EA 43 91 46 49 4C 20 2E |SYS".o,..C.FIL .|
00002460: C6 20 22 30 3A 43 4F 4E 46 49 47 55 52 45 22 00 |. "0:CONFIGURE".|
00002470: 75 2C CE EA 3B 00 7B 2C CF EA 3B 00 81 2C D0 EA |u,..;.{,..;..,..|
00002480: 3B 00 87 2C D1 EA 3B 00 8D 2C D2 EA 3B 00 93 2C |;..,..;..,..;..,|
00002490: D3 EA 3B 00 99 2C D4 EA 3B 00 9F 2C D5 EA 3B 00 |..;..,..;..,..;.|
000024A0: A5 2C D6 EA 3B 00 D1 2C 28 EB 45 43 52 41 4E 54 |.,..;..,(.ECRANT|
000024B0: 58 54 20 2E 42 59 54 20 30 2C 24 32 38 2C 24 35 |XT .BYT 0,$28,$5|
000024C0: 30 2C 24 37 38 2C 24 41 30 2C 24 43 38 2C 24 46 |0,$78,$A0,$C8,$F|
000024D0: 30 00 FB 2C 29 EB 45 43 52 41 4E 54 58 31 20 2E |0..,).ECRANTX1 .|
000024E0: 42 59 54 20 24 31 38 2C 24 34 30 2C 24 36 38 2C |BYT $18,$40,$68,|
000024F0: 24 39 30 2C 24 42 38 2C 24 45 30 00 29 2D 2A EB |$90,$B8,$E0.)-*.|
00002500: 45 43 52 41 4E 54 58 32 20 2E 42 59 54 20 24 30 |ECRANTX2 .BYT $0|
00002510: 38 2C 24 33 30 2C 24 35 38 2C 24 38 30 2C 24 41 |8,$30,$58,$80,$A|
00002520: 38 2C 24 44 30 2C 24 46 38 00 53 2D 2B EB 45 43 |8,$D0,$F8.S-+.EC|
00002530: 52 41 4E 54 58 33 20 2E 42 59 54 20 24 32 30 2C |RANTX3 .BYT $20,|
00002540: 24 34 38 2C 24 37 30 2C 24 39 38 2C 24 43 30 2C |$48,$70,$98,$C0,|
00002550: 24 45 38 00 7E 2D 2D EB 45 43 52 41 4E 54 4D 20 |$E8.~--.ECRANTM |
00002560: 2E 42 59 54 20 34 2C 34 2C 34 2C 34 2C 34 2C 34 |.BYT 4,4,4,4,4,4|
00002570: 2C 34 2C 35 2C 35 2C 35 2C 35 2C 35 2C 35 00 A1 |,4,5,5,5,5,5,5..|
00002580: 2D 2E EB 2E 42 59 54 20 36 2C 36 2C 36 2C 36 2C |-...BYT 6,6,6,6,|
00002590: 36 2C 36 2C 36 2C 37 2C 37 2C 37 2C 37 2C 37 2C |6,6,6,7,7,7,7,7,|
000025A0: 37 00 C0 2D DC EB 44 45 52 52 20 2E 42 59 54 20 |7..-..DERR .BYT |
000025B0: 30 2C 20 39 2C 20 34 2C 31 38 2C 33 30 2C 32 32 |0, 9, 4,18,30,22|
000025C0: 00 E2 2D DD EB 44 45 52 52 4F 31 20 2E 42 59 54 |..-..DERRO1 .BYT|
000025D0: 20 31 32 2C 20 34 2C 31 37 2C 31 37 2C 31 37 2C | 12, 4,17,17,17,|
000025E0: 31 38 00 1A 2E DE EB 44 45 52 52 4F 32 20 2E 42 |18.....DERRO2 .B|
000025F0: 59 54 20 24 35 44 2C 24 37 30 2C 24 46 32 2C 24 |YT $5D,$70,$F2,$|
00002600: 46 32 2C 24 37 34 2C 24 37 43 2C 24 46 32 2C 24 |F2,$74,$7C,$F2,$|
00002610: 37 38 2C 24 37 44 2C 24 37 43 00 4F 2E DF EB 2E |78,$7D,$7C.O....|
00002620: 42 59 54 20 24 35 44 2C 24 35 44 2C 24 35 44 2C |BYT $5D,$5D,$5D,|
00002630: 24 35 44 2C 24 35 44 2C 24 35 44 2C 24 35 44 2C |$5D,$5D,$5D,$5D,|
00002640: 24 35 44 2C 24 35 44 2C 24 35 44 2C 24 35 44 00 |$5D,$5D,$5D,$5D.|
00002650: 88 2E E0 EB 2E 42 59 54 20 24 35 44 2C 24 35 44 |.....BYT $5D,$5D|
00002660: 2C 24 35 44 2C 24 35 44 2C 24 35 44 2C 24 35 44 |,$5D,$5D,$5D,$5D|
00002670: 2C 24 35 44 2C 24 35 44 2C 24 35 44 2C 24 35 44 |,$5D,$5D,$5D,$5D|
00002680: 2C 24 38 43 2C 24 38 43 00 93 2E E1 EB 2E C6 20 |,$8C,$8C....... |
00002690: 22 86 22 00 A5 2E 09 EC 52 45 50 4C 20 2E C6 20 |".".....REPL .. |
000026A0: 22 40 30 3A 22 00 B6 2E 0A EC 52 45 50 20 20 2E |"@0:".....REP .|
000026B0: C6 20 22 30 3A 22 00 C9 2E 0B EC 50 52 45 20 20 |. "0:".....PRE |
000026C0: 2E C6 20 22 2C 50 2C 52 22 00 E1 2E 0C EC 41 4D |.. ",P,R".....AM|
000026D0: 42 20 20 2E C6 20 22 41 4D 42 49 4E 2E 36 34 4B |B .. "AMBIN.64K|
000026E0: 22 00 F5 2E 0D EC 54 41 42 20 20 2E C6 20 22 54 |".....TAB .. "T|
000026F0: 41 42 4C 31 22 00 08 2F 0E EC 53 45 51 57 20 2E |ABL1"../..SEQW .|
00002700: C6 20 22 2C 53 2C 57 22 00 40 2F 18 EC 44 49 53 |. ",S,W".@/..DIS|
00002710: 43 4F 4D 20 2E 42 59 54 20 30 2C 30 2C 30 2C 30 |COM .BYT 0,0,0,0|
00002720: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,0,0,0,0,0,0,0|
00002730: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,0,0,0,0,0,0,0|
00002740: 00 78 2F 19 EC 44 49 53 43 4F 31 20 2E 42 59 54 |.x/..DISCO1 .BYT|
00002750: 20 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 | 0,0,0,0,0,0,0,0|
00002760: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,0,0,0,0,0,0,0|
00002770: 2C 30 2C 30 2C 30 2C 30 00 B0 2F 1A EC 44 4D 45 |,0,0,0,0../..DME|
00002780: 53 53 41 20 2E C6 20 22 20 20 20 20 20 20 20 20 |SSA .. " |
00002790: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000027A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
000027B0: 00 C4 2F 1C EC 4C 43 4F 4D 44 49 53 4B 20 2E 42 |../..LCOMDISK .B|
000027C0: 59 54 20 30 00 E8 2F 54 EC 44 49 53 4B 41 42 20 |YT 0../T.DISKAB |
000027D0: 2E C6 20 22 44 49 53 4B 20 55 4E 41 43 43 45 53 |.. "DISK UNACCES|
000027E0: 53 49 42 4C 45 2E 86 22 00 18 30 56 EC 44 49 53 |SIBLE.."..0V.DIS|
000027F0: 4B 50 52 20 2E C6 20 22 49 4E 53 45 52 54 20 50 |KPR .. "INSERT P|
00002800: 52 4F 47 52 41 4D 20 44 49 53 51 20 49 4E 20 44 |ROGRAM DISQ IN D|
00002810: 52 49 56 45 20 31 86 22 00 47 30 57 EC 44 49 53 |RIVE 1.".G0W.DIS|
00002820: 4B 50 52 32 20 2E C6 20 22 44 41 4E 53 20 4C 45 |KPR2 .. "DANS LE|
00002830: 20 4C 45 43 54 45 55 52 20 44 45 20 44 49 53 51 | LECTEUR DE DISQ|
00002840: 55 45 20 31 2E 86 22 00 7F 30 5E EC 4D 41 50 50 |UE 1.."..0^.MAPP|
00002850: 55 59 20 2E C6 20 22 48 49 54 20 46 37 20 54 4F |UY .. "HIT F7 TO|
00002860: 20 43 4F 4E 54 49 4E 55 45 20 20 20 20 20 20 20 | CONTINUE |
00002870: 20 20 20 20 20 20 20 20 20 20 20 20 20 86 22 00 | .".|
00002880: B2 30 68 EC 4D 52 45 54 43 4F 20 2E C6 20 22 46 |.0h.MRETCO .. "F|
00002890: 37 3A 52 45 54 4F 55 52 4E 45 52 20 41 55 20 4D |7:RETOURNER AU M|
000028A0: 45 4E 55 20 20 43 3A 43 4F 4E 54 49 4E 55 45 52 |ENU C:CONTINUER|
000028B0: 86 22 00 DA 30 72 EC 44 49 53 4B 45 52 20 2E C6 |."..0r.DISKER ..|
000028C0: 20 22 49 4E 50 55 54 2F 4F 55 54 50 55 54 20 45 | "INPUT/OUTPUT E|
000028D0: 52 52 4F 52 20 4E 4F 2E 20 22 00 EE 30 73 EC 44 |RROR NO. "..0s.D|
000028E0: 45 52 52 45 55 52 31 20 2E 42 59 54 20 30 00 02 |ERREUR1 .BYT 0..|
000028F0: 31 74 EC 44 45 52 52 45 55 52 32 20 2E 42 59 54 |1t.DERREUR2 .BYT|
00002900: 20 30 00 16 31 75 EC 44 45 52 52 45 55 52 46 20 | 0..1u.DERREURF |
00002910: 2E C6 20 22 86 22 00 41 31 86 EC 46 49 43 48 41 |.. ".".A1..FICHA|
00002920: 42 20 2E C6 20 22 46 49 4C 45 20 4E 4F 54 20 20 |B .. "FILE NOT |
00002930: 46 4F 55 4E 44 20 20 20 20 20 20 20 20 20 20 86 |FOUND .|
00002940: 22 00 61 31 87 EC 46 49 43 48 41 31 20 2E C6 20 |".a1..FICHA1 .. |
00002950: 22 41 55 20 52 45 50 45 52 54 4F 49 52 45 2E 86 |"AU REPERTOIRE..|
00002960: 22 00 74 31 E4 ED 58 9E 20 20 2E C6 20 22 58 2E |".t1..X. .. "X.|
00002970: 53 59 53 22 00 8E 31 E6 ED 9E 41 20 20 2E C6 20 |SYS"..1...A .. |
00002980: 22 40 30 3A 53 59 53 2E 41 4C 50 48 41 22 00 A8 |"@0:SYS.ALPHA"..|
00002990: 31 E7 ED 9E 4D 20 20 2E C6 20 22 40 30 3A 53 59 |1...M .. "@0:SY|
000029A0: 53 2E 4D 49 43 52 4F 22 00 C7 31 B2 F2 44 43 91 |S.MICRO"..1..DC.|
000029B0: 20 20 2E 42 59 54 20 30 2C 20 39 2C 31 39 2C 31 | .BYT 0, 9,19,1|
000029C0: 37 2C 31 38 2C 32 32 00 E7 31 B3 F2 2E 42 59 54 |7,18,22..1...BYT|
000029D0: 20 31 34 2C 36 2C 32 30 2C 31 39 2C 32 30 2C 32 | 14,6,20,19,20,2|
000029E0: 30 2C 32 30 2C 32 31 00 0C 32 B4 F2 2E 42 59 54 |0,20,21..2...BYT|
000029F0: 20 24 35 44 2C 24 46 30 2C 24 46 32 2C 24 37 30 | $5D,$F0,$F2,$70|
00002A00: 2C 24 46 31 2C 24 46 32 2C 24 35 44 00 31 32 B5 |,$F1,$F2,$5D.12.|
00002A10: F2 2E 42 59 54 20 24 46 42 2C 24 37 45 2C 24 35 |..BYT $FB,$7E,$5|
00002A20: 44 2C 24 35 44 2C 24 35 44 2C 24 35 44 2C 24 35 |D,$5D,$5D,$5D,$5|
00002A30: 44 00 4E 32 B8 F2 2E 42 59 54 20 24 35 44 2C 24 |D.N2...BYT $5D,$|
00002A40: 35 44 2C 24 35 44 2C 24 35 44 2C 24 35 44 00 6B |5D,$5D,$5D,$5D.k|
00002A50: 32 B9 F2 2E 42 59 54 20 24 38 43 2C 24 38 43 3A |2...BYT $8C,$8C:|
00002A60: 20 2E 42 59 54 20 32 39 2C 39 34 00 8B 32 BA F2 | .BYT 29,94..2..|
00002A70: 2E C6 20 22 20 57 52 49 54 45 20 20 20 8C 22 3A |.. " WRITE .":|
00002A80: 20 2E 42 59 54 20 32 39 2C 39 34 00 AD 32 BB F2 | .BYT 29,94..2..|
00002A90: 2E C6 20 22 20 50 52 49 4E 54 20 20 20 20 20 8C |.. " PRINT .|
00002AA0: 22 3A 20 2E 42 59 54 20 32 39 2C 39 34 00 C9 32 |": .BYT 29,94..2|
00002AB0: BC F2 2E C6 20 22 20 43 4F 4E 46 49 47 55 52 45 |.... " CONFIGURE|
00002AC0: 20 53 59 53 54 45 4D 86 22 00 00 00 | SYSTEM."... |
.......".=SAVE"STRUCT",8.;....".=.......
....................G...."_=RUN.A....".=
LIST 43300-.......T....".=SYS12*16^3....
..".=?FRE(0)......"^=LIST 43300-........
.... 700......OPT OO.......$C000.W.=.LDA
#".":JSR $FFD2...>.LDA #".":JSR $FFD2.4
.F.LDA #15:STA $D020:STA $D021:LDA #142:
JSR $FFD2:LDA #$17:STA $D018.A.P.LDY #$0
2...Q.LA LDA $0002,Y:STA $CF00,Y:INY:BNE
LA:SEI:LDA #9:STA $0:LDA #$16:STA $1:CL
I...Z.JSR DEBUT...A.FIN LDY #$02...B.LB
LDA $CF00,Y:STA $0002,Y:INY:BNE LB:LDA #
55:STA $1:RTS.....;.....;.....;.....;...
..;.....;.6...DEBUT JSR MRG:JSR MERR.2:J
MP MSG.].P.. LDX #0 : STX $CC :INY : ST
X $CF.}....2 JSR $FFE4:CMP #00:BEQ .2...
..LDX #$01 : STX $CC : DEX: STX $CF.....
PHA : LDY $D3 : LDA ($D1),Y : . #$7F : S
TA ($D1),Y : PLA :RTS.&...PLT LDA ECRANT
XT,X:STA $D1:LDA ECRANTM,X:STA $D2:STY $
D3:RTS.>...PRT STY $39:STX $3A._...PRTD
LDY $FE:LDX $FF:JSR PLT.J...LDY #0.....P
RT0 LDA ($39),Y:CMP #".":BEQ PRTL.....CM
P #".":BEQ PRTF.A...JSR CHAR:INY:BNE PRT
0.....PRTL INC $FF:TYA:SEC:ADC $39:BCC C
.L:INC $3A.....C.L STA $39:JMP PRTD.3...
PRTF TYA:SEC:ADC $39:BCC C.:INC $3A.F...
C. STA $39:RTS.L..N;.R..N;.X..N;.^..N;.D
..N;.J..N;....OCROMIN LDA #9:STA $0:LDA
#$16:STA $1:CLI:RTS.O..OCROMOUT SEI:LDA
#$7B:STA $0:LDA #$34:STA $1:RTS...DOCLOS
AL JSR 2:JSR 15:JSR $FFCC:JSR $FFE7:RT
S...@.;.....;.7...INICOUL LDA #11:STA $
286:LDA #15:RTS.=...;.C...;.I...;.O...;.
....FLASH JSR $FFE4:BNE FLASHC:DEC $EF:B
NE FLASH:DEC $EE:BNE FLASH.R...FLASH1 LD
X #0:STX $EF:LDX #27:STX $EE:JSR FLASHEX
:JMP FLASH...B.FLASHC PHA:LDA FLA:CMP #9
4:BNE FLASHCC:PLA:RTS.%.L.FLASHCC JSR FL
ASHEX:PLA:RTS.H.V.FLASHEX LDA FLA:E. #$A
4:STA FLA:JSR CHAR:LDA #".":JSR CHAR:RTS
.N.<.;.T.=.;.Z.>.;...?.;...@.;...A.;...F
.MENUC. LDA #".":JSR $FFD2:LDA #$FF...P
.MENUC.0 LDX #.DC.:LDY #.DC.:JSR DESMENU
:PHA:.A #$80:STA $210:PLA.$.Z.CMP #0:BNE
MENUCOM:JSR .S.:JMP MENUC.D.V._.MENUCOM
CMP #2:BNE MENUC.:JSR .S.:JMP MENUC.D.T
.N.MENUC. CMP #4:BNE MENUC.D.....MENUC.D
LDA #1:JMP MENUC.0.....;.....;.....;...
..;.....;.....;.....GRAPHOFF LDA #$1B:ST
A $D011:LDA $DD00:. #$FC:STA $DD00:. ...
LDA #$31:STA $D018:LDA #$CC:STA $288:RTS
.&.$.;.,.%.;.2.&.;.T...MRG LDA #0:STA LC
OMDISK:LDA #2:LDX #.REP:LDY #.REP:JSR AJ
OCOM...\.LDA #9:LDX #.AMB:LDY #.AMB:JSR
AJOCOM.H.^.LDA #4:LDX #.PRE:LDY #.PRE:JS
R AJOCOM...`.JSR S.:BCS MRGF...J.JSR $FF
CC:LDX #2:JSR $FFC6...K.LDY #0:STY $39:L
DX #$A0:STX $3A./.Q.JSR MELANGE.O.T.MRG2
JSR LICANER:JSR CLOSAL.\...MRGF RTS.B..
.;.H...;.N...;.....MSG LDA #0:STA LCOMDI
SK:LDA #2:LDX #.REP:LDY #.REP:JSR AJOCOM
.Z...LDA #5:LDX #.TAB:LDY #.TAB:JSR AJOC
OM...A.LDA #4:LDX #.SEQW:LDY #.SEQW:JSR
AJOCOM...B.JSR S.:BCS MSGF.9.N.JSR $FFCC
:LDX #2:JSR $FFC9.].O.LDY #0:STY $39:LDX
#$A0:STX $3A...S.MSG1 LDA ($39),Y:JSR $
FFD2:INY:BNE MSG1:INC $3A:LDX $3A:CPX #$
C0:BNE MSG1.F.X.JSR LICANER:JSR CLOSAL.S
...MSGF RTS.Y...;.....;.....;.(...MELANG
E LDY #0:STY $10:STY $12:STY $14:STY $16
:STY $18:STY $1A.<...STY $1C:STY $1E.B..
.LDX #$A0:STX $11:LDX #$A4:STX $13.....L
DX #$A8:STX $15:LDX #$AC:STX $17.....LDX
#$B0:STX $19:LDX #$B4:STX $1B.T...LDX #
$B8:STX $1D:LDX #$BC:STX $1F.....MELAN1
JSR $FFCF:STA ($10),Y:INY:JSR $FFCF:STA
($10),Y:JSR AJUST.W...JSR $FFCF:STA ($12
),Y:INY:JSR $FFCF:STA ($12),Y:JSR AJUST.
....JSR $FFCF:STA ($14),Y:INY:JSR $FFCF:
STA ($14),Y:JSR AJUST.S...JSR $FFCF:STA
($16),Y:INY:JSR $FFCF:STA ($16),Y:JSR AJ
UST.....JSR $FFCF:STA ($18),Y:INY:JSR $F
FCF:STA ($18),Y:JSR AJUST.O...JSR $FFCF:
STA ($1A),Y:INY:JSR $FFCF:STA ($1A),Y:JS
R AJUST.....JSR $FFCF:STA ($1C),Y:INY:JS
R $FFCF:STA ($1C),Y:JSR AJUST.K...JSR $F
FCF:STA ($1E),Y:INY:JSR $FFCF:STA ($1E),
Y:JSR AJUST.....INY:INY:BNE MELAN1.&...I
NC $11:INC $13:INC $15:INC $17:INC $19:I
NC $1B:INC $1D:INC $1F.Q.(.LDX $1F:CPX #
$C0:BCS MELANF:JMP MELAN1.`.2.MELANF RTS
.F.P.;.L.Q.;.R.R.;...Z.AJUST DEY:JSR $FF
CF:JSR $FFCF:JSR $FFCF:JSR $FFCF:JSR $FF
CF:JSR $FFCF.J._.JSR $FFCF...D.JSR $FFCF
:JSR $FFCF:JSR $FFCF:JSR $FFCF:JSR $FFCF
:JSR $FFCF:JMP $FFCF...H.;. .I.;.&.J.;.,
.K.;.2.L.;.8.M.;.R.R.REL. LDA #8:STA DIS
K:.~...LDA #2:LDX DISK:LDY #0:JSR $FFBA:
JMP .....,.;...-.;.....;.../.;...0.;...1
.;...6.. LDA #8:STA DISK:...@.LDA #2:LDX
DISK:LDY #2:JSR $FFBA...J... LDA LCOMDI
SK:LDY #.DISCOM:LDX #.DISCOM:JSR $FFBD:L
DA #0.+.O.JSR $FFD5.].T.CMP #5:BEQ .AB:C
MP #4:BEQ .DI:JSR LICANER:RTS.T.^..AB J
SR DISK.:RTS...H..DI INC .ME:JSR LICANER
:LDX #.DISKPR:LDY #.DISKPR.H.M.DEC .ME:J
SR MERR.:SEC:RTS.N...;.T...;.Z...;.....;
.....;.....;.....S. JSR .282:CMP #5:BEQ
S.AB.I...LDX S.TYP:STX .ME:JSR LICANER:P
HP:LDA #0:STA .ME:PLP:RTS...B.S.AB JSR $
FFE7:JSR CLOSAL:JSR DISK.:LDA #5:SEC:RTS
.....;.....;.....;.....;.....;.....;.D..
.S. JSR .282:CMP #5:BEQ S.AB.....LDX S.T
YP:STX .ME:JSR LICANER:PHP:LDA #0:STA .M
E:PLP:RTS.....;.....;.....;.....;.....;.
..A..S. LDA #0.G.F.STA LCOMDISK:LDA #5:L
DX #..:LDY #..:JSR AJOCOM:JSR ..V.P.JSR
CLOSAL.....LDA #0.C...STA LCOMDISK:LDA #
10:LDX #.ECRIV:LDY #.ECRIV:JSR AJOCOM:JS
R ......PHP:JSR CLOSAL:PLP:BCS .S.F:JMP
$1500......S.F RTS.....;.....;.....;....
.;.....;.*...CHAR STX $30.D...CHAR4 STX
$D4:CMP #".":BEQ TXTGAU:CMP #".":BEQ TX
TDRO.....CMP #".":BEQ TXTHAU:CMP #".":BE
Q TXTBAS.X...CHAX STX $D4:. #%11111111:S
TY $6:LDY $D3:STA ($D1),Y:LDY $6:LDX $30
...".TXTDRO INC $D3:BNE CHARF:INC $D2:RT
S.F.'.TXTGAU LDX $D1:PHP:DEX:PLP:STX $D1
:BNE CHARF:DEC $D2:LDX $30:RTS...,.TXTBA
S PHA:LDA $D1:CLC:ADC #$28:STA $D1:PLA:B
CC CHARF:INC $D2:RTS.R.6.TXTHAU PHA:LDA
$D1:SEC:SBC #$28:STA $D1:PLA:BCS CHARF:D
EC $D2:RTS...G.CHARF LDX $30:RTS.&.R.CHA
CMP #$20:BCC CHA2:CMP #$40:BCC CHAF:CMP
#$60:BCC CHAM.@.|.SEC:SBC #$20:JMP CHAF
._...CHAM SEC:SBC #$40:JMP CHAF.}...CHA2
CLC:ADC #80:JMP CHAF.....CHAF JMP CHAX.
...C;....C;....C;....C;....C;....C;....C
DESMENU PHA:STX $7A:STY $7B:LDY #1:LDA
($7A),Y:INY:LDX #00.0.HCDESMEN1 LDA ($7A
),Y:STA $FC,X:INX:INY:CPX #4:BNE DESMEN1
.D.MCLDY $FD:STY $39....CDESMENN LDY $FC
:LDX $FD :JSR PLT:LDA #".":JSR CHAR:LDA
#"C":LDY $FE.C..CDESMEN3 JSR CHAR:DEY:BN
E DESMEN3:LDA #223:JSR CHAR....CDESMEN4
INC $39:LDX $39:CPX $FF:BEQ DESMEN7:LDY
$FC: JSR PLT.+..CLDY $FE:LDA #243:JSR CH
AR:LDA #$20.D..CDESMEN5 JSR CHAR:DEY: B
NE DESMEN5:LDA #247:JSR CHAR.T..DJMP DES
MEN4....DDESMEN7 LDY $FC:LDX $39 :JSR PL
T:LDA #244:JSR CHAR:LDA #245:LDY $FE....
DDESMEN8 JSR CHAR:DEY:BNE DESMEN8:LDA #2
46:JSR CHAR.% .DLDX $FC:STX $FE : LDX $F
D:STX $FF: JSR IMMETE.E .DPLA:BEQ DESMEN
F:TAX:JSR GMP.U .DDESMENF RTS.[ .D;.A .D
;.G .D;.M .D;.S .D;.Y .D;.B "DIMMETE LDY
#6:LDA ($7A),Y:LDY $7B:CLC:ADC $7A:STA
$39:BCC IMMET1:INY.. ,DIMMET1 STY $3A:JS
R PRTD:RTS.. |D;.. }D;.. ~D;.. D;..!.D;
..!.D;.;!.DGMP LDY #7:LDA ($7A),Y:CMP #$
80:BNE GMPD;JMP GML.T!.DGMPD LDA #8:LDY
$7B:CLC:ADC $7A:STA $39:BCC GMP0:INY..!.
DGMP0 STY $3A:LDY #7:LDA ($7A),Y:STA $FF
:LDY #0:STY $2:CPX #$FF:BEQ GMP2..!.DLDX
$FF:DEX:DEX:STX $2..".DGMP2 LDY $02:LDA
($39),Y:TAX:INY:LDA ($39),Y.7".DPHA:TXA
:TAY:PLA:TAX:JSR PLT:JSR FLASH1..".DCMP
#$0D:BEQ GMP9: CMP #$88:BEQ GMPF:CMP #$
11:BEQ GMP5:CMP #$91:BEQ GMP7..".DCMP #"
.":BNE GMP2:JSR INICOUL..".DJMP GMP2.."B
DGMP5 LDX $02:INX:INX:CPX $FF:BCS GMP6:S
TX $02:JMP GMP2..#GDGMP6 LDX #0:STX $02:
JMP GMP2.D#LDGMP7 LDX $02:BEQ GMP8: DEX:
DEX:STX $02:JMP GMP2.P#QDGMP8 LDX $FF:DE
X:DEX :STX $02:JMP GMP2..#VDGMP9 JSR FL
ASHEX:LDA $02 :RTS..#.DGMPF STA $02 :RTS
..#@N;..#AN;..#BN;..#CN;.F#DN;.L#EN;..#J
NAJOCOM STX $39:STY $3A:STA $3B..$ONLDY
#0:LDX LCOMDISK.U$TNAJOCOM1 LDA ($39),Y:
STA DISCOM,X:INY:INX:INC LCOMDISK:DEC $3
B:BNE AJOCOM1.]$^NRTS..$.N.15815 LDA LCO
MDISK:LDY #.DISCOM:LDX #.DISCOM:JSR $FFB
D.N$.NLDA #15:LDX DISK:LDY #15:JSR $FFBA
:JSR $FFC0:RTS..$.N 15 LDA #15:JSR $FFC3
:RTS..%.N 2 LDA #2:JSR $FFC3:RTS.B%.N.28
2 LDA LCOMDISK:LDY #.DISCOM:LDX #.DISCOM
:JSR $FFBD.U%BNLDA #2:LDX DISK:LDY #2:JS
R $FFBA:JSR $FFC0:RTS.{%QN;..%RN;..%SN;.
.%TN;..%UN;.X%VNLICANER LDA #0:STA LCOM
DISK:JSR .15815:LDX #15:JSR $FFC6:LDY #0
.#&XNLICANER1 JSR $FFCF:CMP #$0D:BEQ LIC
ANER2:STA DMESSA,Y:INY:BNE LICANER1._&YN
LICANER2 LDA #$20:STA DMESSA,Y:INY:CPY #
39:BNE LICANER2..&.NLDY #1:LDA DMESSA,Y:
STA DERREUR2:DEY:LDA DMESSA,Y:STA DERREU
R1.D&.NCMP #"0":BNE LICANERF:CLC:RTS..&.
NLICANERF JSR CLOSAL:LDY #0:JSR MDISKER:
SEC:RTS..&.N;..'.N;..'.N;..'.N;.4'.NSETD
ISK LSR:.A #$08:STA DISK:RTS.:'.N;.@'.N;
.F'.N;.L'.N;.R'.N;..'.NDISKPERF JSR .158
15:STA $340:PHA:JSR 15:PLA..'.NCMP #5:B
EQ DISK.:JSR LICANER:JSR CLOSAL:RTS..'.N
DISK. LDX #.DISKAB:LDY #.DISKAB:JSR MERR
.:LDA #5:SEC:RTS..'@.;..'A.;..(B.;..(C.;
..(D.;..(E.;.9(J.MERR. LDA .ME:BEQ MERRO
1:SEC:RTS.[(O.MERRO1 TYA:PHA:TXA:PHA:LDA
#0..(T.MERR0 LDX #.DERR: LDY #.DERR:JSR
DESMENU.C(^.LDX #5:STX $FE:LDX #20:STX
$FF:PLA:TAX:PLA:TAY:JSR PRT..)R.MERR.2 L
DA #0:STA $FE:LDA #23:STA $FF:LDX #.MAPP
UY:LDY #.MAPPUY..)|.JSR PRT.<)..MERR.G J
SR $FFE4:CMP #$88:BNE MERR.G.O)..MERREF
LDY #0:LDX #23:JSR PLT:LDY #40:LDA #$20.
.)..MERREF1 JSR CHAR:DEY:BNE MERREF1:LDA
#".":JSR $FFD2:SEC:RTS..)V.MRRET LDA #
0:STA $FE:LDA #23:STA $FF:LDX #.MAPPUY:L
DY #.MAPPUY:JMP PRT..*L.;..*M.;..*N.;..*
O.;..*P.;..*Q.;.C*V.MDISKER LDX DERREUR1
:LDY DERREUR2:CPX #"7":BNE MDISKE2:CPY #
"4"..*{.BNE MDISKE2:JSR DISK.:SEC:RTS..*
..MDISKE2 CPX #"6":BEQ MDISK60..*..MDISK
E5 LDX #.DISKER:LDY #.DISKER:JSR MERR. :
SEC:RTS..+..MDISK60 CPY #"2":BNE MDISKE5
.8+..MDISKFA LDX #.FICHAB:LDY #.FICHAB:J
SR MERR.:SEC:RTS.>+`.;.D+A.;.J+B.;.P+C.;
.V+D.;.H+E.S.TYPE .BYT 0.Z+..RANCOU .BYT
1..+..L.COU .BYT 1..+..COLCOU .BYT 1..+
..DISK .BYT 8..+...ME .BYT 0.Q+..FLA
.BYT 94..+..MENU .BYT 0,0..+..TEMPBY
T .BYT 0..,C.SYMC .F "@0:CONFIG".(,D.Z
. .F "0:Z.SYS".C,F.ECRIV .F "0:ECRIVA
IN".T,G.. .F "0:SYS".O,H.C.FIL .F "0:CON
FIGURE".U,N.;.{,O.;..,P.;..,Q.;..,R.;..,
S.;..,T.;..,U.;..,V.;.Q,(.ECRANTXT .BYT
0,$28,$50,$78,$A0,$C8,$F0..,).ECRANTX1 .
BYT $18,$40,$68,$90,$B8,$E0.)-*.ECRANTX2
.BYT $08,$30,$58,$80,$A8,$D0,$F8.S-+.EC
RANTX3 .BYT $20,$48,$70,$98,$C0,$E8.~--.
ECRANTM .BYT 4,4,4,4,4,4,4,5,5,5,5,5,5..
-...BYT 6,6,6,6,6,6,6,7,7,7,7,7,7..-..DE
RR .BYT 0, 9, 4,18,30,22..-..DERRO1 .BYT
12, 4,17,17,17,18.....DERRO2 .BYT $5D,$
70,$F2,$F2,$74,$7C,$F2,$78,$7D,$7C.O....
BYT $5D,$5D,$5D,$5D,$5D,$5D,$5D,$5D,$5D,
$5D,$5D......BYT $5D,$5D,$5D,$5D,$5D,$5D
,$5D,$5D,$5D,$5D,$8C,$8C......F ".".....
REPL .F "@0:".....REP .F "0:".I...PRE
.F ",P,R".....AMB .F "AMBIN.64K".....TA
B .F "TABL1"../..SEQW .F ",S,W".@/..DIS
COM .BYT 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
,0,0,0,0.X/..DISCO1 .BYT 0,0,0,0,0,0,0,0
,0,0,0,0,0,0,0,0,0,0,0,0../..DMESSA .F "
"
.D/..LCOMDISK .BYT 0../T.DISKAB .F "DISK
UNACCESSIBLE.."..0V.DISKPR .F "INSERT P
ROGRAM DISQ IN DRIVE 1.".G0W.DISKPR2 .F
"DANS LE LECTEUR DE DISQUE 1..".0^.MAPP
UY .F "HIT F7 TO CONTINUE
."..0H.MRETCO .F "F7:RETOURNER AU M
ENU C:CONTINUER.".Z0R.DISKER .F "INPUT/
OUTPUT ERROR NO. "..0S.DERREUR1 .BYT 0..
1T.DERREUR2 .BYT 0..1U.DERREURF .F ".".A
1..FICHAB .F "FILE NOT FOUND .
".A1..FICHA1 .F "AU REPERTOIRE..".T1..X.
.F "X.SYS"..1...A .F "@0:SYS.ALPHA"..
1...M .F "@0:SYS.MICRO".G1..DC. .BYT 0
, 9,19,17,18,22..1...BYT 14,6,20,19,20,2
0,20,21..2...BYT $5D,$F0,$F2,$70,$F1,$F2
,$5D.12...BYT $FB,$7E,$5D,$5D,$5D,$5D,$5
D.N2...BYT $5D,$5D,$5D,$5D,$5D.K2...BYT
$8C,$8C: .BYT 29,94..2...F " WRITE .":
.BYT 29,94..2...F " PRINT .": .BYT
29,94.I2...F " CONFIGURE SYSTEM."...
> CLICK IMAGE PREVIEW FOR FULL MODAL