KOLON ASS
FILE INFORMATION
FILENAME(S): KOLON ASS
FILE TYPE(S): PRG
FILE SIZE: 5K
FIRST SEEN: 2025-11-30 19:47:27
APPEARS ON: 1 disk(s)
FILE HASH
43ebb26a0eef01701328c479a165aef3df91bbaca4534a904924aa72fedba739
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HJ LPEDISK A4 1 | KOLON ASS | PRG | Curtcool, Frank | 22 | 11 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 17 08 0A 00 4E 41 4D 4E 20 B2 20 24 30 32 |......NAMN . $02|
00000010: 41 37 20 4E 41 4D 4E 00 39 08 14 00 4E 55 42 4C |A7 NAMN.9...NUBL|
00000020: 4F 43 4B 20 B2 20 24 30 32 42 37 20 4E 55 56 41 |OCK . $02B7 NUVA|
00000030: 52 AF 45 20 42 4C 4F 43 4B 00 59 08 1E 00 4E 45 |R.E BLOCK.Y...NE|
00000040: 42 4C 4F 43 4B 20 B2 20 24 30 32 42 38 20 4E 5B |BLOCK . $02B8 N[|
00000050: 53 54 41 20 42 4C 4F 43 4B 00 78 08 23 00 4E 45 |STA BLOCK.x.#.NE|
00000060: 54 52 41 43 4B 20 B2 20 24 30 32 42 39 20 4E 5B |TRACK . $02B9 N[|
00000070: 53 54 41 20 53 50 5D 52 00 9B 08 28 00 41 4E 54 |STA SP]R...(.ANT|
00000080: 41 4C 20 B2 20 24 30 32 42 41 20 41 4E 54 41 4C |AL . $02BA ANTAL|
00000090: 20 53 4F 4D 20 5B 4E 44 52 41 53 00 A7 08 64 00 | SOM [NDRAS...d.|
000000A0: AC B2 24 30 38 30 46 00 B8 08 6E 00 8A 20 4C 44 |..$080F...n.. LD|
000000B0: 41 20 23 B3 4D 45 4E 59 00 C7 08 78 00 4C 44 59 |A #.MENY...x.LDY|
000000C0: 20 23 B1 4D 45 4E 59 00 D5 08 82 00 4A 53 52 20 | #.MENY.....JSR |
000000D0: 24 41 42 31 45 00 E5 08 8C 00 A1 20 4A 53 52 20 |$AB1E...... JSR |
000000E0: 24 46 46 45 34 00 F1 08 96 00 43 4D 50 20 23 31 |$FFE4.....CMP #1|
000000F0: 33 00 FC 08 97 00 42 45 51 20 81 54 00 08 09 98 |3.....BEQ .T....|
00000100: 00 43 4D 50 20 23 36 38 00 15 09 99 00 42 45 51 |.CMP #68.....BEQ|
00000110: 20 44 49 52 39 00 1F 09 9A 00 4A 4D 50 20 A1 00 | DIR9.....JMP ..|
00000120: 30 09 A0 00 44 49 52 39 20 4A 4D 50 20 44 49 52 |0...DIR9 JMP DIR|
00000130: 00 40 09 A2 00 81 54 20 4C 44 41 20 23 24 33 30 |.@....T LDA #$30|
00000140: 00 4F 09 A4 00 53 54 41 20 55 54 33 AA 31 30 00 |.O...STA UT3.10.|
00000150: 5C 09 A6 00 4C 44 41 20 23 24 33 31 00 6B 09 A8 |\...LDA #$31.k..|
00000160: 00 53 54 41 20 55 54 33 AA 31 31 00 76 09 AA 00 |.STA UT3.11.v...|
00000170: 4C 44 41 20 23 31 00 86 09 B4 00 53 54 41 20 4E |LDA #1.....STA N|
00000180: 55 42 4C 4F 43 4B 00 91 09 BE 00 4C 44 41 20 23 |UBLOCK.....LDA #|
00000190: 30 00 A1 09 C8 00 53 54 41 20 4E 45 42 4C 4F 43 |0.....STA NEBLOC|
000001A0: 4B 00 AF 09 D2 00 53 54 41 20 41 4E 54 41 4C 00 |K.....STA ANTAL.|
000001B0: BF 09 D4 00 53 54 41 20 4C 41 47 52 41 AA 31 00 |....STA LAGRA.1.|
000001C0: CF 09 D5 00 53 54 41 20 4D 49 4E 4E 45 AA 31 00 |....STA MINNE.1.|
000001D0: DC 09 D6 00 4C 44 41 20 23 24 32 30 00 EC 09 D7 |....LDA #$20....|
000001E0: 00 53 54 41 20 4D 49 4E 4E 45 AA 32 00 FC 09 D8 |.STA MINNE.2....|
000001F0: 00 53 54 41 20 4C 41 47 52 41 AA 32 00 06 0A DA |.STA LAGRA.2....|
00000200: 00 4A 53 52 20 A0 00 10 0A 2C 01 4A 53 52 20 9F |.JSR ....,.JSR .|
00000210: 00 20 0A 36 01 44 45 4C 39 20 4C 44 58 20 23 35 |. .6.DEL9 LDX #5|
00000220: 00 2E 0A 40 01 4A 53 52 20 24 46 46 43 36 00 39 |...@.JSR $FFC6.9|
00000230: 0A 4A 01 4C 44 41 20 23 30 00 43 0A 54 01 53 54 |.J.LDA #0.C.T.ST|
00000240: 41 20 32 00 51 0A 5E 01 4A 53 52 20 24 46 46 45 |A 2.Q.^.JSR $FFE|
00000250: 34 00 61 0A 68 01 53 54 41 20 4E 45 54 52 41 43 |4.a.h.STA NETRAC|
00000260: 4B 00 6F 0A 72 01 4A 53 52 20 24 46 46 45 34 00 |K.o.r.JSR $FFE4.|
00000270: 7F 0A 7C 01 53 54 41 20 4E 45 42 4C 4F 43 4B 00 |..|.STA NEBLOCK.|
00000280: 92 0A 86 01 44 45 4C 35 20 4A 53 52 20 24 46 46 |....DEL5 JSR $FF|
00000290: 45 34 00 9F 0A 90 01 43 4D 50 20 23 24 38 32 00 |E4.....CMP #$82.|
000002A0: AC 0A 9A 01 42 4E 45 20 44 45 4C 32 00 BA 0A A4 |....BNE DEL2....|
000002B0: 01 4A 53 52 20 24 46 46 45 34 00 C8 0A AE 01 4A |.JSR $FFE4.....J|
000002C0: 53 52 20 24 46 46 45 34 00 D3 0A B8 01 4C 44 59 |SR $FFE4.....LDY|
000002D0: 20 23 30 00 E6 0A C2 01 44 45 4C 33 20 4A 53 52 | #0.....DEL3 JSR|
000002E0: 20 24 46 46 45 34 00 F5 0A CC 01 53 54 41 20 4E | $FFE4.....STA N|
000002F0: 41 4D 4E 2C 59 00 03 0B D6 01 4A 53 52 20 43 48 |AMN,Y.....JSR CH|
00000300: 45 43 4B 00 11 0B EA 01 4A 53 52 20 24 46 46 44 |ECK.....JSR $FFD|
00000310: 32 00 19 0B F4 01 49 4E 59 00 25 0B FE 01 43 50 |2.....INY.%...CP|
00000320: 59 20 23 31 36 00 32 0B 08 02 42 4E 45 20 44 45 |Y #16.2...BNE DE|
00000330: 4C 33 00 3F 0B 12 02 4A 53 52 20 53 56 41 52 00 |L3.?...JSR SVAR.|
00000340: 4B 0B 1C 02 4C 44 59 20 23 31 33 00 58 0B 26 02 |K...LDY #13.X.&.|
00000350: 4A 4D 50 20 44 45 4C 34 00 69 0B 30 02 44 45 4C |JMP DEL4.i.0.DEL|
00000360: 32 20 4C 44 59 20 23 33 31 00 7C 0B 3A 02 44 45 |2 LDY #31.|.:.DE|
00000370: 4C 34 20 4A 53 52 20 24 46 46 45 34 00 84 0B 44 |L4 JSR $FFE4...D|
00000380: 02 44 45 59 00 91 0B 4E 02 42 4E 45 20 44 45 4C |.DEY...N.BNE DEL|
00000390: 34 00 9B 0B 58 02 49 4E 43 20 32 00 A5 0B 62 02 |4...X.INC 2...b.|
000003A0: 4C 44 41 20 32 00 B0 0B 6C 02 43 4D 50 20 23 38 |LDA 2...l.CMP #8|
000003B0: 00 BA 0B 76 02 42 45 51 20 82 00 C7 0B 80 02 4A |...v.BEQ ......J|
000003C0: 4D 50 20 44 45 4C 35 00 D9 0B 8A 02 82 20 4C 44 |MP DEL5...... LD|
000003D0: 41 20 4E 45 54 52 41 43 4B 00 E5 0B 94 02 43 4D |A NETRACK.....CM|
000003E0: 50 20 23 31 38 00 F2 0B 9E 02 42 4E 45 20 53 4C |P #18.....BNE SL|
000003F0: 55 54 00 02 0C A8 02 4C 44 41 20 4E 45 42 4C 4F |UT.....LDA NEBLO|
00000400: 43 4B 00 12 0C B2 02 43 4D 50 20 4E 55 42 4C 4F |CK.....CMP NUBLO|
00000410: 43 4B 00 1F 0C BC 02 42 45 51 20 53 4C 55 54 00 |CK.....BEQ SLUT.|
00000420: 2F 0C C6 02 4C 44 41 20 4E 45 42 4C 4F 43 4B 00 |/...LDA NEBLOCK.|
00000430: 3F 0C D0 02 53 54 41 20 4E 55 42 4C 4F 43 4B 00 |?...STA NUBLOCK.|
00000440: 4B 0C DA 02 43 4D 50 20 23 31 30 00 58 0C E4 02 |K...CMP #10.X...|
00000450: 42 4D 49 20 44 45 4C 37 00 65 0C EE 02 4C 44 41 |BMI DEL7.e...LDA|
00000460: 20 23 24 33 31 00 74 0C F8 02 53 54 41 20 55 54 | #$31.t...STA UT|
00000470: 33 AA 31 30 00 81 0C 02 03 4A 4D 50 20 44 45 4C |3.10.....JMP DEL|
00000480: 38 00 93 0C 0C 03 44 45 4C 37 20 4C 44 41 20 23 |8.....DEL7 LDA #|
00000490: 24 33 30 00 A2 0C 16 03 53 54 41 20 55 54 33 AA |$30.....STA UT3.|
000004A0: 31 30 00 B7 0C 20 03 44 45 4C 38 20 4C 44 59 20 |10... .DEL8 LDY |
000004B0: 4E 55 42 4C 4F 43 4B 00 C7 0C 2A 03 4C 44 41 20 |NUBLOCK...*.LDA |
000004C0: 4B 41 52 54 41 2C 59 00 D6 0C 34 03 53 54 41 20 |KARTA,Y...4.STA |
000004D0: 55 54 33 AA 31 31 00 E2 0C 3E 03 4A 53 52 20 4D |UT3.11...>.JSR M|
000004E0: B0 45 00 EF 0C 48 03 4A 4D 50 20 44 45 4C 39 00 |.E...H.JMP DEL9.|
000004F0: 03 0D 52 03 53 4C 55 54 20 4C 44 41 20 23 B3 4B |..R.SLUT LDA #.K|
00000500: 4F 4C 4C 00 12 0D 5C 03 4C 44 59 20 23 B1 4B 4F |OLL...\.LDY #.KO|
00000510: 4C 4C 00 20 0D 66 03 4A 53 52 20 24 41 42 31 45 |LL. .f.JSR $AB1E|
00000520: 00 2B 0D 70 03 4C 44 58 20 23 30 00 39 0D 7A 03 |.+.p.LDX #0.9.z.|
00000530: 4A 53 52 20 24 46 46 43 36 00 4D 0D 84 03 44 45 |JSR $FFC6.M...DE|
00000540: 4C 31 30 20 4A 53 52 20 24 46 46 43 46 00 59 0D |L10 JSR $FFCF.Y.|
00000550: 8E 03 43 4D 50 20 23 37 34 00 67 0D 98 03 42 45 |..CMP #74.g...BE|
00000560: 51 20 44 45 4C 32 30 00 73 0D A2 03 43 4D 50 20 |Q DEL20.s...CMP |
00000570: 23 37 38 00 81 0D AC 03 42 45 51 20 44 45 4C 31 |#78.....BEQ DEL1|
00000580: 33 00 8F 0D B6 03 4A 4D 50 20 44 45 4C 31 30 00 |3.....JMP DEL10.|
00000590: A3 0D BB 03 44 45 4C 32 30 20 4C 44 41 20 41 4E |....DEL20 LDA AN|
000005A0: 54 41 4C 00 B1 0D BE 03 42 45 51 20 44 45 4C 31 |TAL.....BEQ DEL1|
000005B0: 33 00 C2 0D C0 03 4C 44 41 20 23 B3 4D 4F 4D 45 |3.....LDA #.MOME|
000005C0: 4E 54 00 D3 0D C2 03 4C 44 59 20 23 B1 4D 4F 4D |NT.....LDY #.MOM|
000005D0: 45 4E 54 00 E1 0D C4 03 4A 53 52 20 24 41 42 31 |ENT.....JSR $AB1|
000005E0: 45 00 F3 0D D4 03 44 45 4C 31 32 20 4C 44 58 20 |E.....DEL12 LDX |
000005F0: 23 31 35 00 01 0E DE 03 4A 53 52 20 24 46 46 43 |#15.....JSR $FFC|
00000600: 39 00 0D 0E E8 03 4C 44 41 20 23 38 32 00 1B 0E |9.....LDA #82...|
00000610: F2 03 4A 53 52 20 24 46 46 44 32 00 27 0E FC 03 |..JSR $FFD2.'...|
00000620: 4C 44 41 20 23 35 38 00 35 0E 06 04 4A 53 52 20 |LDA #58.5...JSR |
00000630: 24 46 46 44 32 00 43 0E 10 04 4A 53 52 20 53 4B |$FFD2.C...JSR SK|
00000640: 52 49 56 00 4F 0E 1A 04 4C 44 41 20 23 36 31 00 |RIV.O...LDA #61.|
00000650: 5D 0E 24 04 4A 53 52 20 24 46 46 44 32 00 6B 0E |].$.JSR $FFD2.k.|
00000660: 2E 04 4A 53 52 20 53 4B 52 49 56 00 76 0E 38 04 |..JSR SKRIV.v.8.|
00000670: 4C 44 58 20 23 33 00 84 0E 42 04 4A 53 52 20 24 |LDX #3...B.JSR $|
00000680: 46 46 43 39 00 92 0E 4C 04 44 45 43 20 41 4E 54 |FFC9...L.DEC ANT|
00000690: 41 4C 00 A0 0E 56 04 42 4E 45 20 44 45 4C 31 32 |AL...V.BNE DEL12|
000006A0: 00 B0 0E 60 04 44 45 4C 31 33 20 4A 53 52 20 A0 |...`.DEL13 JSR .|
000006B0: 00 BF 0E 6A 04 4C 44 41 20 23 B3 4B 4C 41 52 00 |...j.LDA #.KLAR.|
000006C0: CE 0E 74 04 4C 44 59 20 23 B1 4B 4C 41 52 00 DC |..t.LDY #.KLAR..|
000006D0: 0E 7E 04 4A 53 52 20 24 41 42 31 45 00 F0 0E 88 |.~.JSR $AB1E....|
000006E0: 04 44 45 4C 31 36 20 4A 53 52 20 24 46 46 43 46 |.DEL16 JSR $FFCF|
000006F0: 00 FC 0E 92 04 43 4D 50 20 23 37 38 00 0A 0F 9C |.....CMP #78....|
00000700: 04 42 45 51 20 44 45 4C 31 34 00 16 0F A6 04 43 |.BEQ DEL14.....C|
00000710: 4D 50 20 23 37 34 00 24 0F B0 04 42 45 51 20 44 |MP #74.$...BEQ D|
00000720: 45 4C 31 35 00 32 0F BA 04 4A 4D 50 20 44 45 4C |EL15.2...JMP DEL|
00000730: 31 36 00 46 0F C4 04 44 45 4C 31 34 20 4A 4D 50 |16.F...DEL14 JMP|
00000740: 20 24 46 43 45 32 00 56 0F CE 04 44 45 4C 31 35 | $FCE2.V...DEL15|
00000750: 20 4A 4D 50 20 8A 00 67 0F 92 09 53 4B 52 49 56 | JMP ..g...SKRIV|
00000760: 20 4C 44 58 20 23 30 00 7B 0F 9C 09 4D 49 4E 4E | LDX #0.{...MINN|
00000770: 45 20 4C 44 41 20 24 36 30 30 30 00 89 0F A6 09 |E LDA $6000.....|
00000780: 4A 53 52 20 24 46 46 44 32 00 91 0F B0 09 43 4C |JSR $FFD2.....CL|
00000790: 43 00 A1 0F BA 09 4C 44 41 20 4D 49 4E 4E 45 AA |C.....LDA MINNE.|
000007A0: 31 00 AC 0F C4 09 41 44 43 20 23 31 00 BC 0F CE |1.....ADC #1....|
000007B0: 09 53 54 41 20 4D 49 4E 4E 45 AA 31 00 CC 0F D8 |.STA MINNE.1....|
000007C0: 09 4C 44 41 20 4D 49 4E 4E 45 AA 32 00 D7 0F E2 |.LDA MINNE.2....|
000007D0: 09 41 44 43 20 23 30 00 E7 0F EC 09 53 54 41 20 |.ADC #0.....STA |
000007E0: 4D 49 4E 4E 45 AA 32 00 EF 0F F6 09 43 4C 43 00 |MINNE.2.....CLC.|
000007F0: F7 0F 00 0A 49 4E 58 00 03 10 0A 0A 43 50 58 20 |....INX.....CPX |
00000800: 23 31 36 00 11 10 14 0A 42 4E 45 20 4D 49 4E 4E |#16.....BNE MINN|
00000810: 45 00 19 10 1E 0A 52 54 53 00 27 10 58 1B A0 20 |E.....RTS.'.X.. |
00000820: 4C 44 41 20 23 31 35 00 35 10 62 1B 4A 53 52 20 |LDA #15.5.b.JSR |
00000830: 24 46 46 43 33 00 40 10 6C 1B 4C 44 41 20 23 35 |$FFC3.@.l.LDA #5|
00000840: 00 4E 10 76 1B 4A 53 52 20 24 46 46 43 33 00 5C |.N.v.JSR $FFC3.\|
00000850: 10 80 1B 4A 4D 50 20 24 46 46 43 43 00 6E 10 40 |...JMP $FFCC.n.@|
00000860: 1F 43 48 45 43 4B 20 43 4D 50 20 23 33 32 00 7D |.CHECK CMP #32.}|
00000870: 10 4A 1F 42 43 43 20 43 48 45 43 4B 31 00 8A 10 |.J.BCC CHECK1...|
00000880: 54 1F 43 4D 50 20 23 31 32 38 00 99 10 5E 1F 42 |T.CMP #128...^.B|
00000890: 43 53 20 43 48 45 43 4B 32 00 A1 10 68 1F 52 54 |CS CHECK2...h.RT|
000008A0: 53 00 B5 10 72 1F 43 48 45 43 4B 32 20 43 4D 50 |S...r.CHECK2 CMP|
000008B0: 20 23 31 36 30 00 C3 10 7C 1F 42 43 43 20 53 56 | #160...|.BCC SV|
000008C0: 41 52 31 00 CB 10 86 1F 52 54 53 00 DE 10 90 1F |AR1.....RTS.....|
000008D0: 43 48 45 43 4B 31 20 4C 44 41 20 23 33 32 00 E6 |CHECK1 LDA #32..|
000008E0: 10 9A 1F 52 54 53 00 FC 10 A4 1F 53 56 41 52 20 |...RTS.....SVAR |
000008F0: 4C 44 41 20 23 B3 53 56 41 52 55 54 00 0D 11 AE |LDA #.SVARUT....|
00000900: 1F 4C 44 59 20 23 B1 53 56 41 52 55 54 00 1B 11 |.LDY #.SVARUT...|
00000910: B8 1F 4A 53 52 20 24 41 42 31 45 00 26 11 BA 1F |..JSR $AB1E.&...|
00000920: 4C 44 58 20 23 30 00 34 11 BC 1F 4A 53 52 20 24 |LDX #0.4...JSR $|
00000930: 46 46 43 36 00 48 11 C2 1F 53 56 41 52 31 20 4A |FFC6.H...SVAR1 J|
00000940: 53 52 20 24 46 46 45 34 00 54 11 CC 1F 43 4D 50 |SR $FFE4.T...CMP|
00000950: 20 23 37 34 00 62 11 D6 1F 42 45 51 20 53 56 41 | #74.b...BEQ SVA|
00000960: 52 32 00 6E 11 E0 1F 43 4D 50 20 23 37 38 00 7C |R2.n...CMP #78.||
00000970: 11 EA 1F 42 45 51 20 53 56 41 52 32 00 8A 11 EC |...BEQ SVAR2....|
00000980: 1F 4C 44 41 20 24 30 32 38 44 00 95 11 EE 1F 43 |.LDA $028D.....C|
00000990: 4D 50 20 23 32 00 A3 11 F0 1F 42 4E 45 20 53 56 |MP #2.....BNE SV|
000009A0: 41 52 31 00 B0 11 F2 1F 4A 4D 50 20 53 4C 55 54 |AR1.....JMP SLUT|
000009B0: 00 BE 11 F4 1F 4A 4D 50 20 53 56 41 52 31 00 D0 |.....JMP SVAR1..|
000009C0: 11 FE 1F 53 56 41 52 32 20 43 4D 50 20 23 37 34 |...SVAR2 CMP #74|
000009D0: 00 DB 11 08 20 42 45 51 20 4A 41 00 ED 11 12 20 |.... BEQ JA.... |
000009E0: 4C 44 41 20 23 B3 53 56 41 52 4E 45 4A 00 FF 11 |LDA #.SVARNEJ...|
000009F0: 1C 20 4C 44 59 20 23 B1 53 56 41 52 4E 45 4A 00 |. LDY #.SVARNEJ.|
00000A00: 0D 12 26 20 4A 53 52 20 24 41 42 31 45 00 1C 12 |..& JSR $AB1E...|
00000A10: 30 20 42 41 4B 20 4C 44 58 20 23 35 00 2A 12 35 |0 BAK LDX #5.*.5|
00000A20: 20 4A 4D 50 20 24 46 46 43 36 00 3E 12 3A 20 4A | JMP $FFC6.>.: J|
00000A30: 41 20 4C 44 41 20 23 B3 53 56 41 52 4A 41 00 4F |A LDA #.SVARJA.O|
00000A40: 12 44 20 4C 44 59 20 23 B1 53 56 41 52 4A 41 00 |.D LDY #.SVARJA.|
00000A50: 5D 12 4E 20 4A 53 52 20 24 41 42 31 45 00 6B 12 |].N JSR $AB1E.k.|
00000A60: 58 20 49 4E 43 20 41 4E 54 41 4C 00 77 12 62 20 |X INC ANTAL.w.b |
00000A70: 4C 44 59 20 23 31 36 00 8C 12 6C 20 4A 41 31 20 |LDY #16...l JA1 |
00000A80: 4C 44 41 20 4E 41 4D 4E AB 31 2C 59 00 99 12 72 |LDA NAMN.1,Y...r|
00000A90: 20 43 4D 50 20 23 24 33 41 00 A5 12 74 20 42 45 | CMP #$3A...t BE|
00000AA0: 51 20 4A 41 34 00 B2 12 76 20 43 4D 50 20 23 24 |Q JA4...v CMP #$|
00000AB0: 41 30 00 BE 12 80 20 42 4E 45 20 4A 41 32 00 C6 |A0.... BNE JA2..|
00000AC0: 12 8A 20 44 45 59 00 D2 12 94 20 42 4E 45 20 4A |.. DEY.... BNE J|
00000AD0: 41 31 00 DE 12 9E 20 4A 4D 50 20 4A 41 34 00 EE |A1.... JMP JA4..|
00000AE0: 12 A1 20 4A 41 32 20 43 50 59 20 23 31 35 00 FA |.. JA2 CPY #15..|
00000AF0: 12 A3 20 42 43 53 20 4A 41 34 00 02 13 A8 20 49 |.. BCS JA4.... I|
00000B00: 4E 59 00 0A 13 B2 20 49 4E 59 00 16 13 BC 20 4C |NY.... INY.... L|
00000B10: 44 41 20 23 35 38 00 27 13 C6 20 53 54 41 20 4E |DA #58.'.. STA N|
00000B20: 41 4D 4E AB 31 2C 59 00 3A 13 D0 20 4A 41 33 20 |AMN.1,Y.:.. JA3 |
00000B30: 4A 53 52 20 42 55 46 46 45 52 00 47 13 DA 20 4C |JSR BUFFER.G.. L|
00000B40: 44 41 20 23 24 41 30 00 58 13 E4 20 53 54 41 20 |DA #$A0.X.. STA |
00000B50: 4E 41 4D 4E AB 31 2C 59 00 67 13 EE 20 4A 53 52 |NAMN.1,Y.g.. JSR|
00000B60: 20 42 55 46 46 45 52 00 73 13 F8 20 4A 4D 50 20 | BUFFER.s.. JMP |
00000B70: 42 41 4B 00 85 13 FA 20 4A 41 34 20 44 45 43 20 |BAK.... JA4 DEC |
00000B80: 41 4E 54 41 4C 00 91 13 FC 20 4A 4D 50 20 42 41 |ANTAL.... JMP BA|
00000B90: 4B 00 A3 13 02 21 42 55 46 46 45 52 20 4C 44 58 |K....!BUFFER LDX|
00000BA0: 20 23 30 00 B7 13 0C 21 42 55 46 31 20 4C 44 41 | #0....!BUF1 LDA|
00000BB0: 20 4E 41 4D 4E 2C 58 00 CB 13 16 21 4C 41 47 52 | NAMN,X....!LAGR|
00000BC0: 41 20 53 54 41 20 24 36 30 30 30 00 D3 13 20 21 |A STA $6000... !|
00000BD0: 43 4C 43 00 E3 13 2A 21 4C 44 41 20 4C 41 47 52 |CLC...*!LDA LAGR|
00000BE0: 41 AA 31 00 EE 13 34 21 41 44 43 20 23 31 00 FE |A.1...4!ADC #1..|
00000BF0: 13 3E 21 53 54 41 20 4C 41 47 52 41 AA 31 00 0E |.>!STA LAGRA.1..|
00000C00: 14 48 21 4C 44 41 20 4C 41 47 52 41 AA 32 00 19 |.H!LDA LAGRA.2..|
00000C10: 14 52 21 41 44 43 20 23 30 00 29 14 5C 21 53 54 |.R!ADC #0.).\!ST|
00000C20: 41 20 4C 41 47 52 41 AA 32 00 31 14 66 21 43 4C |A LAGRA.2.1.f!CL|
00000C30: 43 00 39 14 70 21 49 4E 58 00 45 14 7A 21 43 50 |C.9.p!INX.E.z!CP|
00000C40: 58 20 23 31 36 00 52 14 84 21 42 4E 45 20 42 55 |X #16.R..!BNE BU|
00000C50: 46 31 00 5A 14 8E 21 52 54 53 00 67 14 28 23 9F |F1.Z..!RTS.g.(#.|
00000C60: 20 4C 44 41 20 23 31 00 75 14 32 23 4C 44 58 20 | LDA #1.u.2#LDX |
00000C70: 23 B3 55 54 31 00 83 14 3C 23 4C 44 59 20 23 B1 |#.UT1...<#LDY #.|
00000C80: 55 54 31 00 91 14 46 23 4A 53 52 20 24 46 46 42 |UT1...F#JSR $FFB|
00000C90: 44 00 9D 14 50 23 4C 44 41 20 23 31 35 00 A5 14 |D...P#LDA #15...|
00000CA0: 5A 23 54 41 59 00 B0 14 64 23 4C 44 58 20 23 38 |Z#TAY...d#LDX #8|
00000CB0: 00 BE 14 6E 23 4A 53 52 20 24 46 46 42 41 00 CC |...n#JSR $FFBA..|
00000CC0: 14 78 23 4A 53 52 20 24 46 46 43 30 00 D7 14 82 |.x#JSR $FFC0....|
00000CD0: 23 4C 44 41 20 23 31 00 E5 14 8C 23 4C 44 58 20 |#LDA #1....#LDX |
00000CE0: 23 B3 55 54 32 00 F3 14 96 23 4C 44 59 20 23 B1 |#.UT2....#LDY #.|
00000CF0: 55 54 32 00 01 15 A0 23 4A 53 52 20 24 46 46 42 |UT2....#JSR $FFB|
00000D00: 44 00 0C 15 AA 23 4C 44 41 20 23 35 00 14 15 B4 |D....#LDA #5....|
00000D10: 23 54 41 59 00 1F 15 BE 23 4C 44 58 20 23 38 00 |#TAY....#LDX #8.|
00000D20: 2D 15 C8 23 4A 53 52 20 24 46 46 42 41 00 3B 15 |-..#JSR $FFBA.;.|
00000D30: D2 23 4A 53 52 20 24 46 46 43 30 00 4B 15 DC 23 |.#JSR $FFC0.K..#|
00000D40: 4D B0 45 20 4C 44 58 20 23 31 35 00 59 15 E1 23 |M.E LDX #15.Y..#|
00000D50: 4A 53 52 20 24 46 46 43 39 00 64 15 E6 23 4C 44 |JSR $FFC9.d..#LD|
00000D60: 59 20 23 30 00 78 15 F0 23 53 54 41 52 54 20 4C |Y #0.x..#START L|
00000D70: 44 41 20 55 54 33 2C 59 00 86 15 FA 23 4A 53 52 |DA UT3,Y....#JSR|
00000D80: 20 24 46 46 44 32 00 8E 15 04 24 49 4E 59 00 9A | $FFD2....$INY..|
00000D90: 15 0E 24 43 50 59 20 23 31 32 00 A8 15 18 24 42 |..$CPY #12....$B|
00000DA0: 4E 45 20 53 54 41 52 54 00 B3 15 22 24 4C 44 58 |NE START..."$LDX|
00000DB0: 20 23 33 00 C1 15 2C 24 4A 4D 50 20 24 46 46 43 | #3...,$JMP $FFC|
00000DC0: 39 00 FA 15 10 27 4D 45 4E 59 20 54 58 54 20 22 |9....'MENY TXT "|
00000DD0: 93 D5 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000DE0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000DF0: C3 C3 C3 C3 C3 C3 C3 C3 C9 22 00 2D 16 1A 27 54 |.........".-..'T|
00000E00: 58 54 20 22 C2 20 20 20 20 4B 20 4F 20 4C 20 4F |XT ". K O L O|
00000E10: 20 4E 20 2D 20 53 20 4B 20 52 20 49 20 56 20 4E | N - S K R I V N|
00000E20: 20 49 20 4E 20 47 20 20 20 20 20 C2 22 00 60 16 | I N G .".`.|
00000E30: 24 27 54 58 54 20 22 CA C3 C3 C3 C3 C3 C3 C3 C3 |$'TXT ".........|
00000E40: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000E50: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 CB 22 |..............."|
00000E60: 00 6B 16 2E 27 42 59 54 20 31 33 00 9A 16 38 27 |.k..'BYT 13...8'|
00000E70: 54 58 54 20 22 20 20 53 5B 54 54 20 49 20 44 49 |TXT " S[TT I DI|
00000E80: 53 4B 45 54 54 45 4E 20 53 4F 4D 20 53 4B 41 4C |SKETTEN SOM SKAL|
00000E90: 4C 20 5B 4E 44 52 41 53 2E 22 00 AB 16 42 27 42 |L [NDRAS."...B'B|
00000EA0: 59 54 20 31 33 2C 31 33 2C 31 33 00 DC 16 4C 27 |YT 13,13,13...L'|
00000EB0: 54 58 54 20 22 20 20 20 20 20 54 52 59 43 4B 20 |TXT " TRYCK |
00000EC0: 12 52 45 54 55 52 4E 92 20 52 4C 4C 45 52 20 12 |.RETURN. RLLER .|
00000ED0: 44 92 20 46 5C 52 20 44 49 52 2E 22 00 EC 16 56 |D. F\R DIR."...V|
00000EE0: 27 42 59 54 20 31 33 2C 31 33 2C 30 00 FB 16 F8 |'BYT 13,13,0....|
00000EF0: 2A 55 54 31 20 42 59 54 20 27 49 00 0A 17 02 2B |*UT1 BYT 'I....+|
00000F00: 55 54 32 20 42 59 54 20 27 23 00 25 17 0C 2B 55 |UT2 BYT '#.%..+U|
00000F10: 54 33 20 54 58 54 20 22 55 31 3A 35 20 30 20 31 |T3 TXT "U1:5 0 1|
00000F20: 38 20 20 31 22 00 43 17 16 2B 53 56 41 52 55 54 |8 1".C..+SVARUT|
00000F30: 20 54 58 54 20 22 20 20 20 20 20 20 4A 41 2F 4E | TXT " JA/N|
00000F40: 45 4A 22 00 4D 17 20 2B 42 59 54 20 30 00 6D 17 |EJ".M. +BYT 0.m.|
00000F50: 2A 2B 53 56 41 52 4A 41 20 54 58 54 20 22 9D 9D |*+SVARJA TXT "..|
00000F60: 9D 9D 9D 9D 12 4A 41 92 2F 4E 45 4A 22 00 7A 17 |.....JA./NEJ".z.|
00000F70: 34 2B 42 59 54 20 31 33 2C 30 00 9B 17 3E 2B 53 |4+BYT 13,0...>+S|
00000F80: 56 41 52 4E 45 4A 20 54 58 54 20 22 9D 9D 9D 9D |VARNEJ TXT "....|
00000F90: 9D 9D 4A 41 2F 12 4E 45 4A 92 22 00 A8 17 48 2B |..JA/.NEJ."...H+|
00000FA0: 42 59 54 20 31 33 2C 30 00 CE 17 52 2B 4B 41 52 |BYT 13,0...R+KAR|
00000FB0: 54 41 20 42 59 54 20 34 38 2C 34 39 2C 35 30 2C |TA BYT 48,49,50,|
00000FC0: 35 31 2C 35 32 2C 35 33 2C 35 34 2C 35 35 00 F7 |51,52,53,54,55..|
00000FD0: 17 5C 2B 42 59 54 20 35 36 2C 35 37 2C 34 38 2C |.\+BYT 56,57,48,|
00000FE0: 34 39 2C 35 30 2C 35 31 2C 35 32 2C 35 33 2C 35 |49,50,51,52,53,5|
00000FF0: 34 2C 35 35 2C 35 36 00 07 18 61 2B 4B 4F 4C 4C |4,55,56...a+KOLL|
00001000: 20 42 59 54 20 31 33 00 26 18 66 2B 54 58 54 20 | BYT 13.&.f+TXT |
00001010: 22 11 5B 52 20 44 45 54 20 52 5B 54 54 20 28 4A |".[R DET R[TT (J|
00001020: 2F 4E 29 20 3F 22 00 30 18 70 2B 42 59 54 20 30 |/N) ?".0.p+BYT 0|
00001030: 00 40 18 75 2B 4B 4C 41 52 20 42 59 54 20 31 33 |.@.u+KLAR BYT 13|
00001040: 00 62 18 7A 2B 54 58 54 20 22 11 46 4C 45 52 20 |.b.z+TXT ".FLER |
00001050: 44 49 53 4B 45 54 54 45 52 20 28 4A 2F 4E 29 20 |DISKETTER (J/N) |
00001060: 3F 22 00 6C 18 84 2B 42 59 54 20 30 00 7E 18 89 |?".l..+BYT 0.~..|
00001070: 2B 4D 4F 4D 45 4E 54 20 42 59 54 20 31 33 00 A4 |+MOMENT BYT 13..|
00001080: 18 8E 2B 54 58 54 20 22 11 20 20 20 20 20 20 20 |..+TXT ". |
00001090: 20 20 20 20 20 45 54 54 20 5C 47 4F 4E 42 4C 49 | ETT \GONBLI|
000010A0: 43 4B 2E 22 00 B1 18 98 2B 42 59 54 20 31 33 2C |CK."....+BYT 13,|
000010B0: 30 00 C0 18 C8 32 44 49 52 20 4C 44 41 20 23 31 |0....2DIR LDA #1|
000010C0: 00 CE 18 D2 32 4A 53 52 20 24 46 46 43 33 00 DB |....2JSR $FFC3..|
000010D0: 18 DC 32 4C 44 41 20 23 24 32 34 00 E9 18 E6 32 |..2LDA #$24....2|
000010E0: 53 54 41 20 24 30 33 46 30 00 F6 18 F0 32 4C 44 |STA $03F0....2LD|
000010F0: 41 20 23 24 33 30 00 04 19 FA 32 53 54 41 20 24 |A #$30....2STA $|
00001100: 30 33 46 31 00 11 19 04 33 4C 44 41 20 23 24 30 |03F1....3LDA #$0|
00001110: 31 00 1E 19 0E 33 4C 44 58 20 23 24 30 38 00 2B |1....3LDX #$08.+|
00001120: 19 18 33 4C 44 59 20 23 24 30 30 00 39 19 22 33 |..3LDY #$00.9."3|
00001130: 4A 53 52 20 24 46 46 42 41 00 46 19 2C 33 4C 44 |JSR $FFBA.F.,3LD|
00001140: 41 20 23 24 30 32 00 53 19 36 33 4C 44 58 20 23 |A #$02.S.63LDX #|
00001150: 24 46 30 00 60 19 40 33 4C 44 59 20 23 24 30 33 |$F0.`.@3LDY #$03|
00001160: 00 6E 19 4A 33 4A 53 52 20 24 46 46 42 44 00 7C |.n.J3JSR $FFBD.||
00001170: 19 54 33 4A 53 52 20 24 46 46 43 30 00 89 19 5E |.T3JSR $FFC0...^|
00001180: 33 4C 44 41 20 23 24 34 30 00 97 19 68 33 4A 53 |3LDA #$40...h3JS|
00001190: 52 20 24 46 46 39 30 00 A4 19 72 33 4C 44 58 20 |R $FF90...r3LDX |
000011A0: 23 24 30 31 00 B2 19 7C 33 4A 53 52 20 24 46 46 |#$01...|3JSR $FF|
000011B0: 43 36 00 C0 19 86 33 4A 53 52 20 24 46 46 39 30 |C6....3JSR $FF90|
000011C0: 00 CE 19 90 33 4A 53 52 20 24 46 46 43 46 00 DC |....3JSR $FFCF..|
000011D0: 19 9A 33 4A 53 52 20 24 46 46 43 46 00 EF 19 A4 |..3JSR $FFCF....|
000011E0: 33 44 49 52 36 20 4A 53 52 20 24 46 46 43 46 00 |3DIR6 JSR $FFCF.|
000011F0: FD 19 AE 33 4A 53 52 20 24 46 46 43 46 00 0A 1A |...3JSR $FFCF...|
00001200: B8 33 43 4D 50 20 23 24 30 30 00 17 1A C2 33 42 |.3CMP #$00....3B|
00001210: 45 51 20 44 49 52 31 00 25 1A CC 33 4A 53 52 20 |EQ DIR1.%..3JSR |
00001220: 24 46 46 43 43 00 33 1A D6 33 4A 53 52 20 24 46 |$FFCC.3..3JSR $F|
00001230: 46 45 34 00 40 1A E0 33 43 4D 50 20 23 24 32 30 |FE4.@..3CMP #$20|
00001240: 00 4D 1A EA 33 42 4E 45 20 44 49 52 32 00 5A 1A |.M..3BNE DIR2.Z.|
00001250: F4 33 4A 53 52 20 44 49 52 33 00 6C 1A FE 33 44 |.3JSR DIR3.l..3D|
00001260: 49 52 32 20 4C 44 58 20 23 24 30 31 00 7A 1A 08 |IR2 LDX #$01.z..|
00001270: 34 4A 53 52 20 24 46 46 43 36 00 88 1A 12 34 4A |4JSR $FFC6....4J|
00001280: 53 52 20 24 46 46 43 46 00 90 1A 1C 34 54 41 59 |SR $FFCF....4TAY|
00001290: 00 9E 1A 26 34 4A 53 52 20 24 46 46 43 46 00 A6 |...&4JSR $FFCF..|
000012A0: 1A 30 34 50 48 41 00 AE 1A 3A 34 54 59 41 00 B6 |.04PHA...:4TYA..|
000012B0: 1A 44 34 54 41 58 00 BE 1A 4E 34 50 4C 41 00 CC |.D4TAX...N4PLA..|
000012C0: 1A 58 34 4A 53 52 20 24 42 44 43 44 00 D9 1A 62 |.X4JSR $BDCD...b|
000012D0: 34 4C 44 41 20 23 24 32 30 00 E7 1A 6C 34 4A 53 |4LDA #$20...l4JS|
000012E0: 52 20 24 46 46 44 32 00 FA 1A 76 34 44 49 52 34 |R $FFD2...v4DIR4|
000012F0: 20 4A 53 52 20 24 46 46 43 46 00 07 1B 80 34 43 | JSR $FFCF....4C|
00001300: 4D 50 20 23 24 30 30 00 14 1B 8A 34 42 4E 45 20 |MP #$00....4BNE |
00001310: 44 49 52 35 00 21 1B 94 34 4C 44 41 20 23 24 30 |DIR5.!..4LDA #$0|
00001320: 44 00 2F 1B 9E 34 4A 53 52 20 24 46 46 44 32 00 |D./..4JSR $FFD2.|
00001330: 3C 1B A8 34 4A 4D 50 20 44 49 52 36 00 4F 1B B2 |<..4JMP DIR6.O..|
00001340: 34 44 49 52 35 20 4A 53 52 20 24 46 46 44 32 00 |4DIR5 JSR $FFD2.|
00001350: 5C 1B BC 34 4A 4D 50 20 44 49 52 34 00 6E 1B C6 |\..4JMP DIR4.n..|
00001360: 34 44 49 52 31 20 4C 44 41 20 23 24 30 31 00 7C |4DIR1 LDA #$01.||
00001370: 1B D0 34 4A 53 52 20 24 46 46 43 33 00 8A 1B DA |..4JSR $FFC3....|
00001380: 34 4A 53 52 20 24 46 46 43 43 00 97 1B E4 34 4C |4JSR $FFCC....4L|
00001390: 44 41 20 23 24 43 43 00 A3 1B EE 34 53 54 41 20 |DA #$CC....4STA |
000013A0: 24 42 32 00 B1 1B F8 34 4A 4D 50 20 44 45 4C 31 |$B2....4JMP DEL1|
000013B0: 33 00 C4 1B 02 35 44 49 52 33 20 4A 53 52 20 24 |3....5DIR3 JSR $|
000013C0: 46 46 45 34 00 D1 1B 0C 35 43 4D 50 20 23 24 32 |FFE4....5CMP #$2|
000013D0: 30 00 DE 1B 16 35 42 4E 45 20 44 49 52 33 00 E6 |0....5BNE DIR3..|
000013E0: 1B 20 35 52 54 53 00 00 00 BF |. 5RTS.... |
......NAMN . $02A7 NAMN.9...NUBLOCK . $0
2B7 NUVAR.E BLOCK.Y...NEBLOCK . $02B8 N[
STA BLOCK.X.#.NETRACK . $02B9 N[STA SP]R
...(.ANTAL . $02BA ANTAL SOM [NDRAS...D.
..$080F...N.. LDA #.MENY.G.X.LDY #.MENY.
U...JSR $AB1E...... JSR $FFE4.....CMP #1
3.....BEQ .T.....CMP #68.....BEQ DIR9...
..JMP ..0. .DIR9 JMP DIR.@....T LDA #$30
.O...STA UT3.10.\...LDA #$31.K...STA UT3
.11.V...LDA #1.....STA NUBLOCK.....LDA #
0...H.STA NEBLOCK...R.STA ANTAL...T.STA
LAGRA.1.O.U.STA MINNE.1...V.LDA #$20...W
.STA MINNE.2...X.STA LAGRA.2...Z.JSR ..
.,.JSR .. .6.DEL9 LDX #5...@.JSR $FFC6.9
.J.LDA #0.C.T.STA 2.Q.^.JSR $FFE4.A.H.ST
A NETRACK.O.R.JSR $FFE4..|.STA NEBLOCK.
....DEL5 JSR $FFE4.....CMP #$82.....BNE
DEL2.....JSR $FFE4.H...JSR $FFE4.S...LDY
#0...B.DEL3 JSR $FFE4...L.STA NAMN,Y...
V.JSR CHECK.....JSR $FFD2.....INY.%...CP
Y #16.2...BNE DEL3.?...JSR SVAR.K...LDY
#13.X.&.JMP DEL4.I.0.DEL2 LDY #31.|.:.DE
L4 JSR $FFE4...D.DEY...N.BNE DEL4...X.IN
C 2...B.LDA 2...L.CMP #8...V.BEQ ..G...J
MP DEL5.Y.... LDA NETRACK.....CMP #18...
..BNE SLUT.....LDA NEBLOCK.....CMP NUBLO
CK.....BEQ SLUT./.F.LDA NEBLOCK.?.P.STA
NUBLOCK.K.Z.CMP #10.X...BMI DEL7.E...LDA
#$31.T...STA UT3.10.....JMP DEL8.....DE
L7 LDA #$30.....STA UT3.10... .DEL8 LDY
NUBLOCK.G.*.LDA KARTA,Y.V.4.STA UT3.11..
.>.JSR M.E...H.JMP DEL9...R.SLUT LDA #.K
OLL...\.LDY #.KOLL. .F.JSR $AB1E.+.P.LDX
#0.9.Z.JSR $FFC6.M...DEL10 JSR $FFCF.Y.
..CMP #74.G...BEQ DEL20.S...CMP #78.....
BEQ DEL13.....JMP DEL10.....DEL20 LDA AN
TAL.....BEQ DEL13.B...LDA #.MOMENT.S.B.L
DY #.MOMENT...D.JSR $AB1E...T.DEL12 LDX
#15.....JSR $FFC9.....LDA #82.....JSR $F
FD2.'...LDA #58.5...JSR $FFD2.C...JSR SK
RIV.O...LDA #61.].$.JSR $FFD2.K...JSR SK
RIV.V.8.LDX #3...B.JSR $FFC9...L.DEC ANT
AL. .V.BNE DEL12...`.DEL13 JSR ...J.LDA
#.KLAR.N.T.LDY #.KLAR...~.JSR $AB1E....
.DEL16 JSR $FFCF.....CMP #78.....BEQ DEL
14.....CMP #74.$...BEQ DEL15.2...JMP DEL
16.F.D.DEL14 JMP $FCE2.V.N.DEL15 JMP ..G
...SKRIV LDX #0.{...MINNE LDA $6000.....
JSR $FFD2.....CLC.....LDA MINNE.1...D.AD
C #1...N.STA MINNE.1.L.X.LDA MINNE.2.W..
.ADC #0.....STA MINNE.2.....CLC.....INX.
....CPX #16.....BNE MINNE.....RTS.'.X.
LDA #15.5.B.JSR $FFC3.@.L.LDA #5.N.V.JSR
$FFC3.\...JMP $FFCC.N.@.CHECK CMP #32.}
.J.BCC CHECK1...T.CMP #128...^.BCS CHECK
2...H.RTS...R.CHECK2 CMP #160.C.|.BCC SV
AR1.K...RTS.....CHECK1 LDA #32.....RTS..
...SVAR LDA #.SVARUT.....LDY #.SVARUT...
..JSR $AB1E.&...LDX #0.4...JSR $FFC6.H.B
.SVAR1 JSR $FFE4.T.L.CMP #74.B.V.BEQ SVA
R2.N...CMP #78.|...BEQ SVAR2.....LDA $02
8D.....CMP #2.....BNE SVAR1.....JMP SLUT
.....JMP SVAR1.P...SVAR2 CMP #74.... BEQ
JA.... LDA #.SVARNEJ.... LDY #.SVARNEJ.
..& JSR $AB1E...0 BAK LDX #5.*.5 JMP $FF
C6.>.: JA LDA #.SVARJA.O.D LDY #.SVARJA.
].N JSR $AB1E.K.X INC ANTAL.W.B LDY #16.
..L JA1 LDA NAMN.1,Y...R CMP #$3A...T BE
Q JA4...V CMP #$A0.... BNE JA2.F.. DEY.R
.. BNE JA1.... JMP JA4.... JA2 CPY #15..
.. BCS JA4.... INY.... INY.... LDA #58.'
.F STA NAMN.1,Y.:.P JA3 JSR BUFFER.G.Z L
DA #$A0.X.. STA NAMN.1,Y.G.. JSR BUFFER.
S.. JMP BAK.... JA4 DEC ANTAL.... JMP BA
K....!BUFFER LDX #0....!BUF1 LDA NAMN,X.
K..!LAGRA STA $6000.S. !CLC...*!LDA LAGR
A.1...4!ADC #1...>!STA LAGRA.1...H!LDA L
AGRA.2...R!ADC #0.).\!STA LAGRA.2.1.F!CL
C.9.P!INX.E.Z!CPX #16.R..!BNE BUF1.Z..!R
TS.G.(#. LDA #1.U.2#LDX #.UT1...<#LDY #.
UT1...F#JSR $FFBD...P#LDA #15...Z#TAY...
D#LDX #8...N#JSR $FFBA.L.X#JSR $FFC0.W..
#LDA #1....#LDX #.UT2....#LDY #.UT2... #
JSR $FFBD....#LDA #5....#TAY....#LDX #8.
-.H#JSR $FFBA.;.R#JSR $FFC0.K..#M.E LDX
#15.Y..#JSR $FFC9.D..#LDY #0.X..#START L
DA UT3,Y....#JSR $FFD2....$INY....$CPY #
12....$BNE START..."$LDX #3.A.,$JMP $FFC
9....'MENY TXT ".UCCCCCCCCCCCCCCCCCCCCCC
CCCCCCCCCCCCCCCCI".-..'TXT "B K O L O
N - S K R I V N I N G B".`.$'TXT "J
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCK"
.K..'BYT 13...8'TXT " S[TT I DISKETTEN
SOM SKALL [NDRAS."...B'BYT 13,13,13...L'
TXT " TRYCK .RETURN. RLLER .D. F\R D
IR."...V'BYT 13,13,0....*UT1 BYT 'I....+
UT2 BYT '#.%..+UT3 TXT "U1:5 0 18 1".C.
.+SVARUT TXT " JA/NEJ".M. +BYT 0.M.
*+SVARJA TXT ".......JA./NEJ".Z.4+BYT 13
,0...>+SVARNEJ TXT "......JA/.NEJ."...H+
BYT 13,0.N.R+KARTA BYT 48,49,50,51,52,53
,54,55...\+BYT 56,57,48,49,50,51,52,53,5
4,55,56...A+KOLL BYT 13.&.F+TXT ".[R DET
R[TT (J/N) ?".0.P+BYT 0.@.U+KLAR BYT 13
.B.Z+TXT ".FLER DISKETTER (J/N) ?".L..+B
YT 0.~..+MOMENT BYT 13....+TXT ".
ETT \GONBLICK."....+BYT 13,0...H2DI
R LDA #1.N.R2JSR $FFC3....2LDA #$24....2
STA $03F0....2LDA #$30....2STA $03F1....
3LDA #$01....3LDX #$08.+..3LDY #$00.9."3
JSR $FFBA.F.,3LDA #$02.S.63LDX #$F0.`.@3
LDY #$03.N.J3JSR $FFBD.|.T3JSR $FFC0...^
3LDA #$40...H3JSR $FF90...R3LDX #$01...|
3JSR $FFC6....3JSR $FF90.N..3JSR $FFCF..
..3JSR $FFCF....3DIR6 JSR $FFCF....3JSR
$FFCF....3CMP #$00...B3BEQ DIR1.%.L3JSR
$FFCC.3.V3JSR $FFE4.@..3CMP #$20.M..3BNE
DIR2.Z..3JSR DIR3.L..3DIR2 LDX #$01.Z..
4JSR $FFC6....4JSR $FFCF....4TAY...&4JSR
$FFCF...04PHA...:4TYA...D4TAX...N4PLA.L
.X4JSR $BDCD.Y.B4LDA #$20...L4JSR $FFD2.
..V4DIR4 JSR $FFCF....4CMP #$00....4BNE
DIR5.!..4LDA #$0D./..4JSR $FFD2.<..4JMP
DIR6.O..4DIR5 JSR $FFD2.\..4JMP DIR4.N.F
4DIR1 LDA #$01.|.P4JSR $FFC3...Z4JSR $FF
CC....4LDA #$CC....4STA $B2....4JMP DEL1
3.D..5DIR3 JSR $FFE4.Q..5CMP #$20....5BN
E DIR3... 5RTS....
> CLICK IMAGE PREVIEW FOR FULL MODAL