TEK 3
FILE INFORMATION
FILENAME(S): TEK 3
FILE TYPE(S): PRG
FILE SIZE: 3.9K
FIRST SEEN: 2025-12-02 00:02:01
APPEARS ON: 1 disk(s)
FILE HASH
d39fbbf476f230717a04030b5de5b23f02f8a8fa1c7ac69a1fc46d01cc5c8346
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DE GROOT | TEK 3 | PRG | earthshaker | 32 | 14 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 00 10 70 1F 00 00 01 20 2E 4F D3 10 01 53 54 |...p.... .O...ST| 00000010: 41 54 55 53 20 2E 44 45 20 24 30 30 39 B0 20 01 |ATUS .DE $009. .| 00000020: 46 4E 41 44 52 20 2E 44 45 20 24 30 30 42 C2 30 |FNADR .DE $00B.0| 00000030: 01 46 4E 4C 45 4E 20 20 2E 44 45 20 24 30 30 42 |.FNLEN .DE $00B| 00000040: B7 40 01 46 41 20 20 20 20 2E 44 45 20 24 30 30 |.@.FA .DE $00| 00000050: 42 C1 50 01 53 41 20 20 20 20 2E 44 45 20 24 30 |B.P.SA .DE $0| 00000060: 30 42 B9 60 01 53 45 54 58 59 20 2E 44 45 20 24 |0B.`.SETXY .DE $| 00000070: 45 35 30 C3 70 01 50 52 49 4E 54 20 20 2E 44 45 |E50.p.PRINT .DE| 00000080: 20 24 46 46 44 B2 80 01 53 45 4E 44 20 2E 44 45 | $FFD...SEND .DE| 00000090: 20 24 46 33 44 B5 90 01 54 41 4C 4B 20 2E 44 45 | $F3D...TALK .DE| 000000A0: 20 24 46 46 42 B4 00 02 53 2F 54 41 4C 4B 20 2E | $FFB...S/TALK .| 000000B0: 44 45 20 24 46 46 39 B6 10 02 49 45 43 49 4E 20 |DE $FF9...IECIN | 000000C0: 2E 44 45 20 24 46 46 41 B5 20 02 43 4C 53 46 49 |.DE $FFA. .CLSFI| 000000D0: 4C 20 2E 44 45 20 24 46 36 34 B2 30 02 BB 40 02 |L .DE $F64.0..@.| 000000E0: BB 50 02 53 54 41 52 54 20 20 4C 44 41 20 23 24 |.P.START LDA #$| 000000F0: 30 B8 60 02 20 20 20 20 20 20 20 4A 53 52 20 50 |0.`. JSR P| 00000100: 52 49 4E D4 70 02 20 20 20 20 20 20 20 4A 53 52 |RIN.p. JSR| 00000110: 20 54 45 CB 80 02 20 4C 44 58 20 23 24 30 B1 90 | TE... LDX #$0..| 00000120: 02 20 20 20 20 20 20 20 4C 44 59 20 23 24 30 C6 |. LDY #$0.| 00000130: 00 03 20 20 20 20 20 20 20 4A 53 52 20 53 45 54 |.. JSR SET| 00000140: 58 D9 10 03 20 20 20 20 20 20 20 4C 44 59 20 23 |X... LDY #| 00000150: 24 30 B0 20 03 20 20 20 20 20 20 20 4A 53 52 20 |$0. . JSR | 00000160: 54 45 2F B0 30 03 20 20 20 20 20 20 20 4A 53 52 |TE/.0. JSR| 00000170: 20 53 45 32 B4 40 03 20 20 20 20 20 20 20 4A 53 | SE2.@. JS| 00000180: 52 20 44 49 C6 FF FF FF FF FF FF FF FF FF FF FF |R DI............| 00000190: FF FF D4 FF AD FF FF FF FF ED FF FF FF 76 FF FF |.............v..| 000001A0: 77 FF FF 76 FF FF 76 FF FF 77 FF FF 77 FF FF 76 |w..v..v..w..w..v| 000001B0: FF FF 76 FF FF 77 FF FF 77 FF FF 76 FF FF 77 FF |..v..w..w..v..w.| 000001C0: FF 76 FF FF 76 FF FF 77 FF FF 77 FF FF 76 FF FF |.v..v..w..w..v..| 000001D0: 76 FF FF 77 FF FF FF FF D0 EE FF D2 FF FF FF FF |v..w............| 000001E0: FF D0 D0 FF FF FF FF AD FF FF FF FF FF D0 D0 FF |................| 000001F0: FF FF FF D0 D4 FF FF DA DA A6 FF FF BB 90 05 BB |................| 00000200: 00 06 BB 10 06 54 45 4B 20 4C 44 41 20 23 24 39 |.....TEK LDA #$9| 00000210: B3 20 06 20 20 20 20 20 20 20 4A 53 52 20 50 52 |. . JSR PR| 00000220: 49 4E D4 30 06 20 20 20 20 20 20 20 4C 44 41 20 |IN.0. LDA | 00000230: 23 24 30 B5 40 06 20 4C 44 58 20 23 24 30 B0 50 |#$0.@. LDX #$0.P| 00000240: 06 43 4F 4C 20 53 54 41 20 24 44 38 30 30 2C D8 |.COL STA $D800,.| 00000250: 60 06 20 53 54 41 20 24 44 39 30 30 2C D8 70 06 |`. STA $D900,.p.| 00000260: 20 53 54 41 20 24 44 41 30 30 2C D8 80 06 20 53 | STA $DA00,... S| 00000270: 54 41 20 24 44 42 30 30 2C D8 90 06 20 49 4E D8 |TA $DB00,... IN.| 00000280: 00 07 20 42 4E 45 20 43 4F CC 10 07 20 42 45 51 |.. BNE CO... BEQ| 00000290: 20 4C 4F 4F D0 20 07 BB 30 07 BB 40 07 BB 50 07 | LOO. ..0..@..P.| 000002A0: 4C 49 4E 45 20 20 20 53 54 41 20 2A 24 30 B3 60 |LINE STA *$0.`| 000002B0: 07 20 20 20 20 20 20 20 53 54 58 20 2A 24 30 B4 |. STX *$0.| 000002C0: 70 07 20 4C 44 59 20 23 24 30 B0 80 07 20 4C 44 |p. LDY #$0... LD| 000002D0: 58 20 23 24 31 B3 90 07 56 45 52 54 20 4C 44 41 |X #$1...VERT LDA| 000002E0: 20 23 24 35 C4 00 08 20 53 54 41 20 28 24 30 33 | #$5... STA ($03| 000002F0: 29 2C D9 10 08 20 43 4C C3 20 08 20 20 20 20 20 |),... CL. . | 00000300: 20 20 4C 44 41 20 2A 24 30 B3 30 08 20 41 44 43 | LDA *$0.0. ADC| 00000310: 20 23 24 32 B8 40 08 20 20 20 20 20 20 20 53 54 | #$2.@. ST| 00000320: 41 20 2A 24 30 B3 50 08 20 20 20 20 20 20 20 42 |A *$0.P. B| 00000330: 43 43 20 43 41 52 52 D9 60 08 20 20 20 20 20 20 |CC CARR.`. | 00000340: 20 49 4E 43 20 2A 24 30 B4 70 08 43 41 52 52 59 | INC *$0.p.CARRY| 00000350: 20 20 44 45 D8 80 08 20 42 4E 45 20 56 45 52 D4 | DE... BNE VER.| 00000360: 90 08 20 52 54 D3 00 09 BB 10 09 BB 20 09 BB 30 |.. RT....... ..0| 00000370: 09 4C 4F 4F 50 20 4C 44 41 20 23 24 34 B0 40 09 |.LOOP LDA #$4.@.| 00000380: 20 4C 44 58 20 23 24 32 B5 50 09 4C 4F 4F 50 32 | LDX #$2.P.LOOP2| 00000390: 20 20 53 54 41 20 24 30 34 30 31 2C D8 60 09 20 | STA $0401,.`. | 000003A0: 53 54 41 20 24 30 34 35 31 2C D8 70 09 20 53 54 |STA $0451,.p. ST| 000003B0: 41 20 24 30 37 37 31 2C D8 80 09 20 53 54 41 20 |A $0771,... STA | 000003C0: 24 30 37 43 31 2C D8 90 09 20 44 45 D8 00 10 20 |$07C1,... DE... | 000003D0: 20 20 20 20 20 20 42 50 4C 20 4C 4F 4F 50 B2 10 | BPL LOOP..| 000003E0: 10 20 4C 44 41 20 23 24 37 B0 20 10 20 53 54 41 |. LDA #$7. . STA| 000003F0: 20 24 30 34 30 B0 30 10 20 4C 44 41 20 23 24 36 | $040.0. LDA #$6| 00000400: C5 40 10 20 53 54 41 20 24 30 34 32 B7 50 10 20 |.@. STA $042.P. | 00000410: 4C 44 41 20 23 24 35 C4 60 10 20 53 54 41 20 24 |LDA #$5.`. STA $| 00000420: 30 34 32 B8 70 10 20 53 54 41 20 24 30 34 34 C6 |042.p. STA $044.| 00000430: 80 10 20 53 54 41 20 24 30 37 39 B8 90 10 20 53 |.. STA $079... S| 00000440: 54 41 20 24 30 37 42 C6 00 11 20 4C 44 41 20 23 |TA $07B... LDA #| 00000450: 24 36 C4 10 11 20 53 54 41 20 24 30 37 43 B0 20 |$6... STA $07C. | 00000460: 11 20 4C 44 41 20 23 24 37 C4 30 11 20 53 54 41 |. LDA #$7.0. STA| 00000470: 20 24 30 37 45 B7 40 11 20 4C 44 41 20 23 24 36 | $07E.@. LDA #$6| 00000480: C2 50 11 20 53 54 41 20 24 30 34 35 B0 60 11 20 |.P. STA $045.`. | 00000490: 53 54 41 20 24 30 37 37 B0 70 11 20 4C 44 41 20 |STA $077.p. LDA | 000004A0: 23 24 37 B3 80 11 20 53 54 41 20 24 30 34 37 B7 |#$7... STA $047.| 000004B0: 90 11 20 53 54 41 20 24 30 37 39 B7 00 12 20 4C |.. STA $079... L| 000004C0: 44 41 20 23 24 37 B2 10 12 20 53 54 41 20 24 30 |DA #$7... STA $0| 000004D0: 34 36 B3 20 12 20 53 54 41 20 24 30 34 36 B4 30 |46. . STA $046.0| 000004E0: 12 20 4C 44 41 20 23 24 37 B1 40 12 20 53 54 41 |. LDA #$7.@. STA| 000004F0: 20 24 30 37 38 B3 50 12 20 53 54 41 20 24 30 37 | $078.P. STA $07| 00000500: 38 B4 60 12 20 4A FF FF FF FF FF FF 63 FF FF FF |8.`. J......c...| 00000510: FF FF E3 FF FF FF FF FF FF FF FF FF FF FF FF FF |................| 00000520: D2 DD FF FF 40 88 9F 99 94 80 04 8A FF 69 88 44 |....@........i.D| 00000530: 88 9F 9B FF FF FF FF A6 B2 A2 FF 23 63 FF FF 23 |...........#c..#| 00000540: 31 61 73 FF 22 FF FF FF FF FF FF FF 23 31 33 FF |1as.".......#13.| 00000550: FF FF FF A1 FF A2 D9 FF FF FF FF FF 89 FF FC FF |................| 00000560: FF 99 FF FF 97 98 FF FF FF FF 77 FF 99 FF FF FF |..........w.....| 00000570: FF FF 89 FF FF 9B FF B2 04 C4 DD FF 00 48 AC 1C |.............H..| 00000580: AD 84 48 08 08 08 08 08 08 8B 8E CE 08 89 FB FF |..H.............| 00000590: 9F FF 84 FF FF 3B FF E0 FF EE A2 2B FF FF FF 3B |.....;.....+...;| 000005A0: 33 BA 1B FF 3B B6 1B 3D 3F 13 FF 2A 2B FF B7 FF |3...;..=?..*+...| 000005B0: FF FF 3D FF FF 3E FF FF 33 BF B6 FF BB 33 FF FF |..=..>..3....3..| 000005C0: 2B 6E DF FF FF FF 90 9F FF FF FF FF FF FF FF 88 |+n..............| 000005D0: FF 8F CF FF FF FF FF 7F FF FF 88 FF 8F CF FF FF |................| 000005E0: FF FF FF 7F FF FF FF 90 DF FF FF FF FF 90 B3 20 |............... | 000005F0: 4C 44 41 89 20 54 FF E2 ED FF A3 FF 6D FF FF DA |LDA. T......m...| 00000600: EF FF FF FF AA FF 6D FF FF FF E7 FF FF FF FF FF |......m.........| 00000610: FF AD FF 6D FF FF DA EF FF FF FF B0 FF FF FF FF |...m............| 00000620: FF E7 FF FF FF FF FF FF 6E FF FF FF CA 80 80 88 |........n.......| 00000630: FF BB FF 88 CE 88 A8 B9 9E 88 D9 9E 07 44 C8 CD |.............D..| 00000640: D9 9E 06 40 88 99 FF FF 98 CE 88 A8 B9 9E 88 D9 |...@............| 00000650: 9E 07 C9 D8 CD D9 9E 06 CE 80 80 88 FF BB FF 98 |................| 00000660: CD D9 9E 06 FF 23 31 33 FF 23 B3 3B A1 FF 35 0C |.....#13.#.;..5.| 00000670: A2 FF FF FF FF FF FF FF 23 FF 71 FF FF FF FF C0 |........#.q.....| 00000680: 02 FF FF FF FF FF FF FF 23 FF 3B FF 23 B3 FF F1 |........#.;.#...| 00000690: 3B 73 16 02 FF FF FF FF FF FF FF 23 FF 71 FF FF |;s.........#.q..| 000006A0: FF FE FF 22 FF FF FF FF FF FF FF 23 FF 73 FF 23 |...".......#.s.#| 000006B0: B3 FF F4 D2 A2 FF FF FF FF FF FF FF 23 31 33 FF |............#13.| 000006C0: FF FF FF FF FF 22 D3 B3 FF FF FF FF FF 23 63 FF |.....".......#c.| 000006D0: FF 23 A3 FF 61 77 FF A2 FF FF FF FF FF FF FF 23 |.#..aw.........#| 000006E0: FF 73 FF 23 B3 FF F4 BB 22 D3 B3 FF F1 3B 73 FF |.s.#...."....;s.| 000006F0: 23 FF 54 D3 50 16 BB 60 16 BB 70 16 BB 80 16 54 |#.T.P..`..p....T| 00000700: 49 2F 30 20 20 20 4C 44 58 20 23 24 35 B0 90 16 |I/0 LDX #$5...| 00000710: 54 49 2F 32 20 20 20 4C 44 59 20 23 24 30 B0 00 |TI/2 LDY #$0..| 00000720: 17 54 49 2F 31 20 20 20 4A 53 52 20 52 54 CE 10 |.TI/1 JSR RT..| 00000730: 17 20 20 20 20 20 20 20 42 43 53 20 54 49 2F B4 |. BCS TI/.| 00000740: 20 17 20 20 20 20 20 20 20 49 4E D9 30 17 20 20 | . IN.0. | 00000750: 20 20 20 20 20 42 4E 45 20 54 49 2F B1 40 17 54 | BNE TI/.@.T| 00000760: 49 2F 33 20 20 20 4A 53 52 20 52 54 CE 50 17 20 |I/3 JSR RT.P. | 00000770: 20 20 20 20 20 20 42 43 53 20 54 49 2F B4 60 17 | BCS TI/.`.| 00000780: 20 20 20 20 20 20 20 49 4E D9 70 17 20 20 20 20 | IN.p. | 00000790: 20 20 20 42 4E 45 20 54 49 2F B3 80 17 20 20 20 | BNE TI/... | 000007A0: 20 20 20 20 49 4E D8 90 17 20 20 20 20 20 20 20 | IN... | 000007B0: 42 4E 45 20 54 49 2F B2 00 18 54 49 2F 34 20 20 |BNE TI/...TI/4 | 000007C0: 20 52 54 D3 10 18 BB 20 18 BB 30 18 BB 40 18 47 | RT.... ..0..@.G| 000007D0: 45 54 20 4A 53 52 20 24 46 46 45 B4 50 18 20 20 |ET JSR $FFE.P. | 000007E0: 20 20 20 20 20 42 45 51 20 47 45 D4 60 18 20 52 | BEQ GE.`. R| 000007F0: 54 D3 70 18 BB 80 18 BB 90 18 BB 00 19 53 45 32 |T.p..........SE2| 00000800: 34 20 20 20 4C 44 58 20 23 24 31 B7 10 19 20 20 |4 LDX #$1... | 00000810: 20 20 20 20 20 4C 44 59 20 23 24 30 B1 20 19 20 | LDY #$0. . | 00000820: 20 20 20 20 20 20 4A 53 52 20 53 45 54 58 D9 30 | JSR SETX.0| 00000830: 19 20 20 20 20 20 20 20 4C 44 59 20 23 24 30 B1 |. LDY #$0.| 00000840: 40 19 20 20 20 20 20 20 20 4A 53 52 20 54 45 2F |@. JSR TE/| 00000850: B0 50 19 20 4A 53 52 20 54 49 2F B0 60 19 20 20 |.P. JSR TI/.`. | 00000860: 20 20 20 20 20 42 43 53 20 53 45 2F 52 54 D3 70 | BCS SE/RT.p| 00000870: 19 20 20 20 20 20 20 20 4C 44 58 20 23 24 31 B7 |. LDX #$1.| 00000880: 80 19 20 20 20 20 20 20 20 4C 44 59 20 23 24 30 |.. LDY #$0| 00000890: B1 90 19 20 20 20 20 20 20 20 4A 53 52 20 53 45 |... JSR SE| 000008A0: 54 58 D9 00 20 20 20 20 20 20 20 20 4C 44 59 20 |TX.. LDY | 000008B0: 23 24 30 B3 10 20 20 20 20 20 20 20 20 4A 53 52 |#$0.. JSR| 000008C0: 20 54 45 2F B0 20 20 20 20 20 20 20 20 20 4A 53 | TE/. JS| 000008D0: 52 20 54 49 2F B0 30 20 20 20 20 20 20 20 20 42 |R TI/.0 B| 000008E0: 43 43 20 53 45 32 B4 40 20 53 45 2F 52 54 53 20 |CC SE2.@ SE/RTS | 000008F0: 52 54 D3 50 20 BB 60 20 BB 70 20 BB 80 20 53 45 |RT.P .` .p .. SE| 00000900: 54 58 59 41 20 50 48 C1 90 20 20 4A 53 52 20 53 |TXYA PH.. JSR S| 00000910: 45 54 58 D9 00 21 20 50 4C C1 10 21 20 54 41 D9 |ETX..! PL..! TA.| 00000920: 20 21 20 4A 4D 50 20 54 45 2F B0 30 21 BB 40 21 | ! JMP TE/.0!.@!| 00000930: BB 50 21 BB 60 21 52 54 4E 20 4C 44 41 20 24 43 |.P!.`!RTN LDA $C| 00000940: B5 70 21 20 20 20 20 20 20 20 43 4D 50 20 23 24 |.p! CMP #$| 00000950: 30 B1 80 21 20 20 20 20 20 20 20 42 4E 45 20 52 |0..! BNE R| 00000960: 54 4E B0 90 21 20 20 20 20 20 20 20 53 45 C3 00 |TN..! SE..| 00000970: 22 20 52 54 D3 10 22 52 54 4E 30 20 20 20 43 4C |" RT.."RTN0 CL| 00000980: C3 20 22 20 52 54 D3 30 22 BB 40 22 BB 50 22 44 |. " RT.0".@".P"D| 00000990: 49 43 20 20 20 20 4C 44 58 20 23 24 30 B3 60 22 |IC LDX #$0.`"| 000009A0: 20 20 20 20 20 20 20 4C 44 59 20 23 24 30 B2 70 | LDY #$0.p| 000009B0: 22 20 20 20 20 20 20 20 4C 44 41 20 23 24 30 B0 |" LDA #$0.| 000009C0: 80 22 20 20 20 20 20 20 20 53 54 58 20 24 30 B6 |." STX $0.| 000009D0: 90 22 20 20 20 20 20 20 20 53 54 59 20 24 30 B7 |." STY $0.| 000009E0: 00 23 20 20 20 20 20 20 20 53 54 41 20 24 30 B8 |.# STA $0.| 000009F0: 10 23 20 20 20 20 20 20 20 4C 44 41 20 23 27 24 |.# LDA #'$| 00000A00: A7 20 23 20 53 54 41 20 2A 24 46 C2 30 23 20 4C |. # STA *$F.0# L| 00000A10: 44 41 20 23 24 46 C2 40 23 20 53 54 41 20 2A 46 |DA #$F.@# STA *F| 00000A20: 4E 41 44 D2 50 23 20 4C 44 41 20 23 24 30 B0 60 |NAD.P# LDA #$0.`| 00000A30: 23 20 53 54 41 20 2A 46 4E 41 44 52 2B B1 70 23 |# STA *FNADR+.p#| 00000A40: 20 4C 44 41 20 23 24 30 B1 80 23 20 53 54 41 20 | LDA #$0..# STA | 00000A50: 2A 46 4E 4C 45 CE 90 23 20 4C 44 41 20 23 24 30 |*FNLE..# LDA #$0| 00000A60: B8 00 24 20 53 54 41 20 2A 46 C1 10 24 20 4C 44 |..$ STA *F..$ LD| 00000A70: 41 20 23 24 36 B0 20 24 20 53 54 41 20 2A 53 C1 |A #$6. $ STA *S.| 00000A80: 30 24 20 4A 53 52 20 53 45 4E C4 40 24 20 4C 44 |0$ JSR SEN.@$ LD| 00000A90: 41 20 2A 46 C1 50 24 20 4A 53 52 20 54 41 4C CB |A *F.P$ JSR TAL.| 00000AA0: 60 24 20 4C 44 41 20 2A 53 C1 70 24 20 4A 53 52 |`$ LDA *S.p$ JSR| 00000AB0: 20 53 2F 54 41 4C CB 80 24 20 4C 44 41 20 23 24 | S/TAL..$ LDA #$| 00000AC0: 30 B0 90 24 20 53 54 41 20 2A 53 54 41 54 55 D3 |0..$ STA *STATU.| 00000AD0: 00 25 BB 10 25 BB 20 25 BB 30 25 20 20 4C 44 59 |.%..%. %.0% LDY| 00000AE0: 20 23 24 30 B3 40 25 4C 31 20 53 54 59 20 2A 24 | #$0.@%L1 STY *$| 00000AF0: 46 C2 50 25 20 20 20 20 20 20 20 20 4A 53 52 20 |F.P% JSR | 00000B00: 49 45 43 49 CE 60 25 20 53 54 41 20 2A 24 46 C3 |IECI.`% STA *$F.| 00000B10: 70 25 20 20 20 20 20 20 20 4C 44 59 20 2A 53 54 |p% LDY *ST| 00000B20: 41 54 55 D3 80 25 20 42 4E 45 20 4C B4 90 25 20 |ATU..% BNE L..% | 00000B30: 4A 53 52 20 49 45 43 49 CE 00 26 20 4C 44 59 20 |JSR IECI..& LDY | 00000B40: 2A 53 54 41 54 55 D3 10 26 20 42 4E 45 20 4C B4 |*STATU..& BNE L.| 00000B50: 20 26 20 4C 44 59 20 2A 24 46 C2 30 26 20 44 45 | & LDY *$F.0& DE| 00000B60: D9 40 26 20 42 4E 45 20 4C B1 50 26 BB 60 26 BB |.@& BNE L.P&.`&.| 00000B70: 70 26 BB 80 26 4C 31 30 20 20 20 4A 53 52 20 49 |p&..&L10 JSR I| 00000B80: 45 43 49 CE 90 26 20 20 20 20 20 20 4C 44 58 20 |ECI..& LDX | 00000B90: 53 54 41 54 55 D3 00 27 20 20 20 20 20 20 42 4E |STATU..' BN| 00000BA0: 45 20 4C B4 10 27 20 20 20 20 20 20 43 4D 50 20 |E L..' CMP | 00000BB0: 23 24 32 B2 20 27 20 20 20 20 20 20 42 4E 45 20 |#$2. ' BNE | 00000BC0: 4C 31 B0 30 27 4C 31 31 20 20 20 4A 53 52 20 49 |L1.0'L11 JSR I| 00000BD0: 45 43 49 CE 40 27 20 20 20 20 20 20 4C 44 58 20 |ECI.@' LDX | 00000BE0: 53 54 41 54 55 D3 50 27 20 20 20 20 20 20 42 4E |STATU.P' BN| 00000BF0: 45 20 4C B4 60 27 20 20 20 20 20 20 43 4D 50 20 |E L.`' CMP | 00000C00: 23 24 32 B2 70 27 20 20 20 20 20 20 20 42 45 51 |#$2.p' BEQ| 00000C10: 20 4C B2 80 27 20 4C 44 58 20 24 30 B8 90 27 20 | L..' LDX $0..' | 00000C20: 20 20 20 20 20 20 42 4E 45 20 4C 31 B3 00 28 20 | BNE L1..( | 00000C30: 20 20 20 20 20 20 50 48 C1 10 28 20 20 20 20 20 | PH..( | 00000C40: 20 20 4C 44 58 20 23 24 30 B1 20 28 20 20 20 20 | LDX #$0. ( | 00000C50: 20 20 20 4C 44 59 20 23 24 30 B6 30 28 20 20 20 | LDY #$0.0( | 00000C60: 20 20 20 20 49 4E 43 20 24 30 B8 40 28 20 20 20 | INC $0.@( | 00000C70: 20 20 20 20 4A 53 52 20 53 45 54 58 D9 50 28 20 | JSR SETX.P( | 00000C80: 20 20 20 20 20 20 50 4C C1 60 28 4C 31 33 20 20 | PL.`(L13 | 00000C90: 20 20 43 50 58 20 23 24 32 B8 70 28 20 42 45 51 | CPX #$2.p( BEQ| 00000CA0: 20 4C B4 80 28 20 20 20 20 20 20 20 4A 53 52 20 | L..( JSR | 00000CB0: 50 52 49 4E D4 90 28 20 20 20 20 20 20 20 42 4E |PRIN..( BN| 00000CC0: 45 20 4C 31 B1 00 29 BB 10 29 BB 20 29 BB 30 29 |E L1..)..). ).0)| 00000CD0: 4C FF FF FF FF FF FF FF FF E3 FF FF FF 62 FF FF |L............b..| 00000CE0: FF FF FF FF FF FF 20 43 50 58 20 23 24 31 B4 50 |...... CPX #$1.P| 00000CF0: 29 20 20 20 20 20 20 20 42 4E 45 20 4C 31 B4 60 |) BNE L1.`| 00000D00: 29 20 20 20 20 20 20 20 4C 4D FF 80 04 8A C1 4D |) LM.....M| 00000D10: FF FF FF FF FF FF FF FF 23 31 33 FF FF FF FF AE |........#13.....| 00000D20: D2 FF 69 FF FF FF FF FF FF FF B5 4E FF FF FF F7 |..i........N....| 00000D30: C2 FF FF FF FF FF FF FF FF FF FF FF FF FF FF F7 |................| 00000D40: FF FF FF FF FF FF FF FF FF FF AD 9D FF 08 AC 14 |................| 00000D50: 9C 0C 08 08 08 08 08 08 08 89 F9 FF FF 08 AC 14 |................| 00000D60: E8 0C 08 08 08 08 08 08 08 8B 8E CE 08 8E C9 DD |................| 00000D70: 9D FF FF 0C 08 08 08 08 08 08 08 8B FF 9A 48 08 |..............H.| 00000D80: AC 14 99 00 FF FF FF FF FF FF FF FF 2D DA 48 08 |............-.H.| 00000D90: AC 1C FF 0C 08 89 F9 FF FF FF FF FF FF F2 FF FF |................| 00000DA0: FF 37 33 FF 33 4A DA FF 6E A0 FF 6E E0 FF 6E A2 |.73.3J..n..n..n.| 00000DB0: FF B3 FF FF FF FF FF FF 36 FF FF FF FF B3 1D 71 |........6......q| 00000DC0: FF 66 FF 8F FF FF FF 79 FF FF FF B2 B4 20 31 20 |.f.....y..... 1 | 00000DD0: 52 54 D3 30 31 BB 40 31 BB 50 31 BB 60 31 BB 70 |RT.01.@1.P1.`1.p| 00000DE0: 31 BB 80 8B 31 BB 90 31 BB 00 32 3B 44 41 54 41 |1...1..1..2;DATA| 00000DF0: 20 4F 50 53 4C 41 47 20 56 2E 20 44 2E 20 54 45 | OPSLAG V. D. TE| 00000E00: 58 D4 10 32 3B 20 20 57 45 52 4B 54 20 53 41 4D |X..2; WERKT SAM| 00000E10: 45 4E 20 4D 45 54 20 44 C5 20 32 3B 20 20 20 20 |EN MET D. 2; | 00000E20: 51 54 45 58 54 2D 55 49 54 56 4F 45 D2 30 32 BB |QTEXT-UITVOE.02.| 00000E30: 40 32 3B 20 20 20 20 20 20 5F 20 3D 20 45 49 4E |@2; _ = EIN| 00000E40: 44 45 20 54 45 58 54 20 52 45 47 45 CC 50 32 3B |DE TEXT REGE.P2;| 00000E50: 20 20 20 20 20 20 3E 20 3D 20 53 50 41 54 49 C5 | > = SPATI.| 00000E60: 60 32 3B 20 20 20 20 20 20 5C 20 3D 20 45 49 4E |`2; \ = EIN| 00000E70: 44 45 20 54 45 58 54 20 44 41 54 C1 70 32 BB 80 |DE TEXT DAT.p2..| 00000E80: 32 BB 90 32 BB 00 33 54 45 58 54 20 20 20 2E 42 |2..2..3TEXT .B| 00000E90: 59 20 27 53 49 4E 47 4C 45 20 43 4F 50 59 5F 3E |Y 'SINGLE COPY_>| 00000EA0: 3E 3E 3E 50 4C 41 41 54 A7 10 33 20 20 20 20 20 |>>>PLAAT..3 | 00000EB0: 20 20 2E 42 59 20 27 53 20 4F 52 47 49 4E 45 4C | .BY 'S ORGINEL| 00000EC0: 45 20 53 43 48 49 4A 46 20 49 4E 20 A7 20 33 20 |E SCHIJF IN . 3 | 00000ED0: 20 20 20 20 20 20 2E 42 59 20 27 44 49 53 4B 3E | .BY 'DISK>| 00000EE0: 3E 3E 3E 5F 3E 3E 3E 3E 3E 50 4C 41 41 54 53 20 |>>>_>>>>>PLAATS | 00000EF0: A7 30 33 20 20 20 20 20 20 20 2E 42 59 20 27 4E |.03 .BY 'N| 00000F00: 49 45 55 57 45 20 53 43 48 49 4A 46 20 49 4E 20 |IEUWE SCHIJF IN | 00000F10: 44 49 53 4B A7 40 33 20 20 20 20 20 20 20 2E 42 |DISK.@3 .B| 00000F20: 59 20 27 3E 3E 3E 3E 3E 5F 44 52 55 4B 20 4F 50 |Y '>>>>>_DRUK OP| 00000F30: 20 52 45 54 55 52 4E 20 A7 50 33 20 20 20 20 20 | RETURN .P3 | 00000F40: 20 20 2E 42 59 20 27 41 4C 53 20 53 43 48 49 4A | .BY 'ALS SCHIJ| 00000F50: 46 20 47 45 50 4C 41 41 54 53 54 20 A7 60 33 20 |F GEPLAATST .`3 | 00000F60: 20 20 20 20 20 20 2E 42 59 20 27 49 53 5F 5C A7 | .BY 'IS_\.| 00000F70: 70 33 20 2E 45 CE 00 00 20 |p3 .E... |
...P.... .OS..STATUS .DE $009. .FNADR .D
E $00BB0.FNLEN .DE $00B.@.FA .DE $00
BAP.SA .DE $00B.`.SETXY .DE $E50CP.PR
INT .DE $FFD...SEND .DE $F3D...TALK .DE
$FFB...S/TALK .DE $FF9...IECIN .DE $FFA
. .CLSFIL .DE $F64.0..@..P.START LDA #$
0.`. JSR PRINTP. JSR TEK.. L
DX #$0... LDY #$0F.. JSR SET
XY.. LDY #$0. . JSR TE/.0.
JSR SE2.@. JSR DIF...........
..T..........V..W..V..V..W..W..V..V..W..
W..V..W..V..V..W..W..V..V..W....P..R....
.PP..........PP....PT..ZZ............TEK
LDA #$9. . JSR PRINT0. LDA
#$0.@. LDX #$0.P.COL STA $D800,X`. STA $
D900,XP. STA $DA00,X.. STA $DB00,X.. INX
.. BNE COL.. BEQ LOOP ..0..@..P.LINE S
TA *$0.`. STX *$0.P. LDY #$0... LD
X #$1...VERT LDA #$5D.. STA ($03),Y.. CL
C . LDA *$0.0. ADC #$2.@. ST
A *$0.P. BCC CARRY`. INC *$0
.P.CARRY DEX.. BNE VERT.. RTS...... ..0
.LOOP LDA #$4.@. LDX #$2.P.LOOP2 STA $0
401,X`. STA $0451,XP. STA $0771,X.. STA
$07C1,X.. DEX.. BPL LOOP... LDA #$
7. . STA $040.0. LDA #$6E@. STA $042.P.
LDA #$5D`. STA $042.P. STA $044F.. STA $
079... STA $07BF.. LDA #$6D.. STA $07C.
. LDA #$7D0. STA $07E.@. LDA #$6BP. STA
$045.`. STA $077.P. LDA #$7... STA $047.
.. STA $079... LDA #$7... STA $046. . ST
A $046.0. LDA #$7.@. STA $078.P. STA $07
8.`. J......C...................R...@...
.....I.D...........#C..#1AS.".......#13.
......Y...................W.............
.D...H....H........N.........;.....+...;
3...;..=?..*+.....=..>..3....3..+N......
..........O.........O................
LDA. T......M..Z......M............M..Z.
................N...J.......N.....Y..DHM
Y..@.....N.....Y..IXMY..N.......MY...#13
.#.;..5.........#.Q.............#.;.#...
;S.........#.Q.....".......#.S.#...R....
....#13......"S......#C..#..AW.........#
.S.#...."S...;S.#.TSP..`..P....TI/0 LD
X #$5...TI/2 LDY #$0...TI/1 JSR RTN.
. BCS TI/. . INY0. BNE
TI/.@.TI/3 JSR RTNP. BCS TI/.`.
INYP. BNE TI/... INX.
. BNE TI/...TI/4 RTS... ..0..@.G
ET JSR $FFE.P. BEQ GET`. RTSP.....
.....SE24 LDX #$1... LDY #$0. .
JSR SETXY0. LDY #$0.@.
JSR TE/.P. JSR TI/.`. BCS SE/RTSP
. LDX #$1... LDY #$0...
JSR SETXY. LDY #$0.. JSR
TE/. JSR TI/.0 BCC SE2.@
SE/RTS RTSP .` .P .. SETXYA PHA. JSR S
ETXY.! PLA.! TAY ! JMP TE/.0!.@!.P!.`!RT
N LDA $C.P! CMP #$0..! BNE R
TN..! SEC." RTS."RTN0 CLC " RTS0
".@".P"DIC LDX #$0.`" LDY #$0.P
" LDA #$0.." STX $0.."
STY $0..# STA $0..# LDA #'$
. # STA *$FB0# LDA #$FB@# STA *FNADRP# L
DA #$0.`# STA *FNADR+.P# LDA #$0..# STA
*FNLEN.# LDA #$0..$ STA *FA.$ LDA #$6. $
STA *SA0$ JSR SEND@$ LDA *FAP$ JSR TALK
`$ LDA *SAP$ JSR S/TALK.$ LDA #$0..$ STA
*STATUS.%..%. %.0% LDY #$0.@%L1 STY *$
FBP% JSR IECIN`% STA *$FCP%
LDY *STATUS.% BNE L..% JSR IECIN.& LDY
*STATUS.& BNE L. & LDY *$FB0& DEY@& BNE
L.P&.`&.P&..&L10 JSR IECIN.& LDX
STATUS.' BNE L..' CMP #$2. '
BNE L1.0'L11 JSR IECIN@' LDX
STATUSP' BNE L.`' CMP #$2.P'
BEQ L..' LDX $0..' BNE L1..(
PHA.( LDX #$0. ( LDY #
$0.0( INC $0.@( JSR SETXYP(
PLA`(L13 CPX #$2.P( BEQ L..(
JSR PRINT.( BNE L1..)..). ).0)
L............B........ CPX #$1.P)
BNE L1.`) LM....AM........#13.....
R.I........N....B.......................
...................................N..I.
..............H.............-ZH.........
.........73.3JZ.N .N..N.........6......Q
.F.....Y..... 1 RTS01.@1.P1.`1.P1...1..1
..2;DATA OPSLAG V. D. TEXT.2; WERKT SAM
EN MET DE 2; QTEXT-UITVOER02.@2;
_ = EINDE TEXT REGELP2; > = SPATIE
`2; \ = EINDE TEXT DATAP2..2..2..3T
EXT .BY 'SINGLE COPY_>>>>PLAAT..3
.BY 'S ORGINELE SCHIJF IN . 3 .B
Y 'DISK>>>>_>>>>>PLAATS .03 .BY 'N
IEUWE SCHIJF IN DISK.@3 .BY '>>>>>
_DRUK OP RETURN .P3 .BY 'ALS SCHIJ
F GEPLAATST .`3 .BY 'IS_\.P3 .EN..
> CLICK IMAGE PREVIEW FOR FULL MODAL