TEK 1
FILE INFORMATION
FILENAME(S): TEK 1
FILE TYPE(S): PRG
FILE SIZE: 3.5K
FIRST SEEN: 2025-12-02 00:02:01
APPEARS ON: 1 disk(s)
FILE HASH
8d6f2547832d545df84b83da63cef0fd6dae54a26bc7669d708eab60df69bfde
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DE GROOT | TEK 1 | PRG | earthshaker | 31 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 00 10 C8 1D 00 00 01 20 2E 4F D3 10 01 53 54 |........ .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 4E 4F | SE2.@. NO| 00000180: D0 50 03 20 20 20 20 20 20 20 4A 53 52 20 47 45 |.P. JSR GE| 00000190: D4 60 03 20 52 54 D3 70 03 BB 80 03 BB 90 03 BB |.`. RT.p........| 000001A0: 00 04 BB 10 04 BB 20 04 BB 30 04 BB 40 04 BB 50 |...... ..0..@..P| 000001B0: 04 BB 60 04 BB 70 04 BB 80 04 BB 90 04 BB 00 05 |..`..p..........| 000001C0: BB 10 05 BB 20 05 BB 30 05 BB 40 05 BB 50 05 BB |.... ..0..@..P..| 000001D0: 60 05 3B 52 4F 55 54 49 4E 45 53 20 56 4F 4F 52 |`.;ROUTINES VOOR| 000001E0: 20 48 45 D4 70 05 3B 20 48 4F 4F 46 44 50 52 4F | HE.p.; HOOFDPRO| 000001F0: 47 52 41 4D 4D C1 80 05 BB 90 05 BB 00 06 BB 10 |GRAMM...........| 00000200: 06 54 45 4B 20 4C 44 41 20 23 24 39 B3 20 06 20 |.TEK LDA #$9. . | 00000210: 20 20 20 20 20 20 4A 53 52 20 50 52 49 4E D4 30 | JSR PRIN.0| 00000220: 06 20 20 20 20 20 20 20 4C 44 41 20 23 24 30 B5 |. LDA #$0.| 00000230: 40 06 20 4C 44 58 20 23 24 30 B0 50 06 43 4F 4C |@. LDX #$0.P.COL| 00000240: 20 53 54 41 20 24 44 38 30 30 2C D8 60 06 20 53 | STA $D800,.`. S| 00000250: 54 41 20 24 44 39 30 30 2C D8 70 06 20 53 54 41 |TA $D900,.p. STA| 00000260: 20 24 44 41 30 30 2C D8 80 06 20 53 54 41 20 24 | $DA00,... STA $| 00000270: 44 42 30 30 2C D8 90 06 20 49 4E D8 00 07 20 42 |DB00,... IN... B| 00000280: 4E 45 20 43 4F CC 10 07 20 42 45 51 20 4C 4F 4F |NE CO... BEQ LOO| 00000290: D0 20 07 BB 30 07 BB 40 07 BB 50 07 4C 49 4E 45 |. ..0..@..P.LINE| 000002A0: 20 20 20 53 54 41 20 2A 24 30 B3 60 07 20 20 20 | STA *$0.`. | 000002B0: 20 20 20 20 53 54 58 20 2A 24 30 B4 70 07 20 4C | STX *$0.p. L| 000002C0: 44 59 20 23 24 30 B0 80 07 20 4C 44 58 20 23 24 |DY #$0... LDX #$| 000002D0: 31 B3 90 07 56 45 52 54 20 4C 44 41 20 23 24 35 |1...VERT LDA #$5| 000002E0: C4 00 08 20 53 54 41 20 28 24 30 33 29 2C D9 10 |... STA ($03),..| 000002F0: 08 20 43 4C C3 20 08 20 20 20 20 20 20 20 4C 44 |. CL. . LD| 00000300: 41 20 2A 24 30 B3 30 08 20 41 44 43 20 23 24 32 |A *$0.0. ADC #$2| 00000310: B8 40 08 20 20 20 20 20 20 20 53 54 41 20 2A 24 |.@. STA *$| 00000320: 30 B3 50 08 20 20 20 20 20 20 20 42 43 43 20 43 |0.P. BCC C| 00000330: 41 52 52 D9 60 08 20 20 20 20 20 20 20 49 4E 43 |ARR.`. INC| 00000340: 20 2A 24 30 B4 70 08 43 41 52 52 59 20 20 44 45 | *$0.p.CARRY DE| 00000350: D8 80 08 20 42 4E 45 20 56 45 52 D4 90 08 20 52 |... BNE VER... R| 00000360: 54 D3 00 09 BB 10 09 BB 20 09 BB 30 09 4C 4F 4F |T....... ..0.LOO| 00000370: 50 20 4C 44 41 20 23 24 34 B0 40 09 20 4C 44 58 |P LDA #$4.@. LDX| 00000380: 20 23 24 32 B5 50 09 4C 4F 4F 50 32 20 20 53 54 | #$2.P.LOOP2 ST| 00000390: 41 20 24 30 34 30 31 2C D8 60 09 20 53 54 41 20 |A $0401,.`. STA | 000003A0: 24 30 34 35 31 2C D8 70 09 20 53 54 41 20 24 30 |$0451,.p. STA $0| 000003B0: 37 37 31 2C D8 80 09 20 53 54 41 20 24 30 37 43 |771,... STA $07C| 000003C0: 31 2C D8 90 09 20 44 45 D8 00 10 20 20 20 20 20 |1,... DE... | 000003D0: 20 20 42 50 4C 20 4C 4F 4F 50 B2 10 10 20 4C 44 | BPL LOOP... LD| 000003E0: 41 20 23 24 37 B0 20 10 20 53 54 41 20 24 30 34 |A #$7. . STA $04| 000003F0: 30 B0 30 10 20 4C 44 41 20 23 24 36 C5 40 10 20 |0.0. LDA #$6.@. | 00000400: 53 54 41 20 24 30 34 32 B7 50 10 20 4C 44 41 20 |STA $042.P. LDA | 00000410: 23 24 35 C4 60 10 20 53 54 41 20 24 30 34 32 B8 |#$5.`. STA $042.| 00000420: 70 10 20 53 54 41 20 24 30 34 34 C6 80 10 20 53 |p. STA $044... S| 00000430: 54 41 20 24 30 37 39 B8 90 10 20 53 54 41 20 24 |TA $079... STA $| 00000440: 30 37 42 C6 00 11 20 4C 44 41 20 23 24 36 C4 10 |07B... LDA #$6..| 00000450: 11 20 53 54 41 20 24 30 37 43 B0 20 11 20 4C 44 |. STA $07C. . LD| 00000460: 41 20 23 24 37 C4 30 11 20 53 54 41 20 24 30 37 |A #$7.0. STA $07| 00000470: 45 B7 40 11 20 4C 44 41 20 23 24 36 C2 50 11 20 |E.@. LDA #$6.P. | 00000480: 53 54 41 20 24 30 34 35 B0 60 11 20 53 54 41 20 |STA $045.`. STA | 00000490: 24 30 37 37 B0 70 11 20 4C 44 41 20 23 24 37 B3 |$077.p. LDA #$7.| 000004A0: 80 11 20 53 54 41 20 24 30 34 37 B7 90 11 20 53 |.. STA $047... S| 000004B0: 54 41 20 24 30 37 39 B7 00 12 20 4C 44 41 20 23 |TA $079... LDA #| 000004C0: 24 37 B2 10 12 20 53 54 41 20 24 30 34 36 B3 20 |$7... STA $046. | 000004D0: 12 20 53 54 41 20 24 30 34 36 B4 30 12 20 4C 44 |. STA $046.0. LD| 000004E0: 41 20 23 24 37 B1 40 12 20 53 54 41 20 24 30 37 |A #$7.@. STA $07| 000004F0: 38 B3 50 12 20 53 54 41 20 24 30 37 38 B4 60 12 |8.P. STA $078.`.| 00000500: 20 4C 44 41 20 23 24 37 B8 70 12 20 4C 44 58 20 | LDA #$7.p. LDX | 00000510: 23 24 30 B4 80 12 20 4A 53 52 20 4C 49 4E C5 90 |#$0... JSR LIN..| 00000520: 12 20 4C 44 41 20 23 24 39 C6 00 13 20 4C 44 58 |. LDA #$9... LDX| 00000530: 20 23 24 30 B4 10 13 20 4A 53 52 20 4C 49 4E C5 | #$0... JSR LIN.| 00000540: 20 13 20 20 20 20 20 20 20 4C 44 41 20 23 24 38 | . LDA #$8| 00000550: C2 30 13 20 4C 44 58 20 23 24 30 B4 40 13 20 4A |.0. LDX #$0.@. J| 00000560: 53 52 20 4C 49 4E C5 50 13 20 4C 44 41 20 23 24 |SR LIN.P. LDA #$| 00000570: 38 C3 60 13 20 4C 44 58 20 23 24 30 B4 70 13 20 |8.`. LDX #$0.p. | 00000580: 20 20 20 20 20 20 4A 53 52 20 4C 49 4E C5 80 13 | JSR LIN...| 00000590: 20 52 54 D3 90 13 BB 00 14 3B 20 20 54 45 58 54 | RT......; TEXT| 000005A0: 20 55 49 54 56 4F 45 D2 10 14 3B 4D 2E 42 2E 56 | UITVOE...;M.B.V| 000005B0: 2E 20 59 2D 52 45 47 49 53 54 45 D2 20 14 BB 30 |. Y-REGISTE. ..0| 000005C0: 14 54 45 2F 30 20 20 20 4C 44 58 20 23 24 30 B0 |.TE/0 LDX #$0.| 000005D0: 40 14 20 43 50 59 20 23 24 30 B0 50 14 20 42 45 |@. CPY #$0.P. BE| 000005E0: 51 20 54 45 2F B1 60 14 54 45 2F 33 20 4C 44 41 |Q TE/.`.TE/3 LDA| 000005F0: 20 54 45 58 54 2C D8 70 14 20 43 4D 50 20 23 27 | TEXT,.p. CMP #'| 00000600: DC 80 14 20 42 45 51 20 54 45 2F 45 4E C4 90 14 |... BEQ TE/EN...| 00000610: 20 43 4D 50 20 23 27 DF 00 15 20 42 45 51 20 54 | CMP #'... BEQ T| 00000620: 45 2F B2 10 15 54 45 2F 6D FF FF FF D2 DD A3 FF |E/...TE/m.......| 00000630: FF FF FF FF FF FF FF FF FF FF FF 6E FF FF FF FF |...........n....| 00000640: FF FF FF B2 FF FF FF FF FF FF FF FF FF FF FF FF |................| 00000650: 6E FF FF FF FF FF FF FF D2 DD A3 FF 6E FF FF FF |n...........n...| 00000660: FF FF FF FF FF FF FF FF E2 ED FF A3 FF FF FF FF |................| 00000670: FF FF FF FF FF FF DA EF FF FF FF B0 FF FF FF FF |................| 00000680: FF FF FF FF FF FF FF E7 FF FF FF FF FF FF AD FF |................| 00000690: FF FF FF FF FF FF FF FF FF DA EF FF FF FF FF FF |................| 000006A0: 7C FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ||...............| 000006B0: FF 7C FF FF FF FF FF FF FF FF FF FF FF FF FF FF |.|..............| 000006C0: 6F FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF |o...............| 000006D0: D2 DD AD FF 7C FF FF FF FF FF FF FF FF FF FF FF |....|...........| 000006E0: FF FF FF 6E FF FF FF FF FF FF FF FF FF FF ED FF |...n............| 000006F0: FF 7C BB 60 16 BB 70 16 BB 80 16 54 4B FF FF FF |.|.`..p....TK...| 00000700: FF FF FF FF E3 FF FF FF FF 6F FF FF FF D3 FF FF |.........o......| 00000710: FF FF FF FF FF FF FF FF FF FF FF FF 74 FF D3 FF |............t...| 00000720: FF FF FF FF FF FF FF FF FF ED 79 C8 4E 80 80 80 |..........y.N...| 00000730: 80 80 80 88 A8 AC E4 88 DB FF F4 FF 22 FF FF FF |............"...| 00000740: FF FF FF FF 23 61 77 FF A2 FF FF FF FF FF FF FF |....#aw.........| 00000750: 23 FF 73 FF 23 B3 FF F4 AB 22 DB B3 FF FF FF FF |#.s.#...."......| 00000760: FF 23 63 FF FF 23 FF B3 53 A2 FF FF FF FF FF FF |.#c..#..S.......| 00000770: FF 23 FF FF FF 23 B3 FF F4 BF 22 FF FF FF FF FF |.#...#....".....| 00000780: FF FF 23 61 77 4C A2 FF FF FF FF FF FF FF 23 FF |..#awL........#.| 00000790: 73 FF 23 B3 FF F4 FF 02 FF FF FF FF FF FF FF 23 |s.#............#| 000007A0: 61 77 04 02 FF FF FF FF FF FF FF 23 FF 73 FF 23 |aw.........#.s.#| 000007B0: B3 FF F4 FF 22 A1 B3 FF FF FF FF FF 23 FF B7 FF |....".......#...| 000007C0: A2 A4 FF 22 A4 FF A2 A4 EB 22 A1 FB 3B FF 23 63 |..."....."..;.#c| 000007D0: FF FF FF 33 F3 F3 3E B3 A2 FF FF FF FF FF FF FF |...3..>.........| 000007E0: 23 FF 3B FF 23 FB FF 1F 22 FF 23 FF B7 FF A2 A1 |#.;.#...".#.....| 000007F0: BB 80 18 BB 90 18 BB 00 19 53 45 32 34 20 20 20 |.........SE24 | 00000800: 4C 44 58 20 23 24 31 B7 10 19 20 20 20 20 20 20 |LDX #$1... | 00000810: 20 4C 44 59 20 23 24 30 B1 20 19 20 20 20 20 20 | LDY #$0. . | 00000820: 20 20 4A 56 FF FF FF FF FF E3 B3 FF 73 FF FF FF | JV........s...| 00000830: FF FF FF FF FF FF FF FF FF FF FF 66 FF 73 FF FF |...........f.s..| 00000840: FF FF FF FF FF FF FF FF FF FF FF FF FF FF 76 88 |..............v.| 00000850: B8 EC E0 88 D9 FF 07 C0 98 FF 80 80 80 80 80 80 |................| 00000860: 88 A8 AC E4 88 EC 9E 0F E8 DB 64 D8 FF 80 80 80 |..........d.....| 00000870: 80 80 80 88 9F 99 FF 80 04 8A C5 4D FF FF 80 80 |...........M....| 00000880: 80 80 80 80 88 9F 99 FF 80 04 8A C1 C5 FF FF FF |................| 00000890: FF FF FF FF FF 23 63 FF FF 23 FF 3B B3 A5 40 FF |.....#c..#.;..@.| 000008A0: FF FF FF FF FF FF FF 23 31 33 FF FF FF FF A6 FF |.......#13......| 000008B0: FF FF FF FF FF FF FF FF 23 63 FF FF 23 B3 FF F4 |........#c..#...| 000008C0: FF FF FF FF FF FF FF FF FF 23 63 FF FF 23 B3 FF |.........#c..#..| 000008D0: F4 FF FF FF FF FF FF FF FF FF 23 FF FF FF 23 FF |..........#...#.| 000008E0: FF FF B3 FF 23 FF FF F1 FF B3 FF 23 FF B3 D3 50 |....#......#...P| 000008F0: 20 BB 60 20 BB 70 20 BB 80 20 53 45 54 58 59 41 | .` .p .. SETXYA| 00000900: 20 50 48 C1 90 20 20 4A 53 52 20 53 45 54 58 D9 | PH.. JSR SETX.| 00000910: 00 21 20 50 4C C1 10 21 20 54 41 D9 20 21 20 4A |.! PL..! TA. ! J| 00000920: 4D 50 20 54 45 2F B0 30 21 BB 40 21 BB 50 21 BB |MP TE/.0!.@!.P!.| 00000930: 60 21 52 54 4E 20 4C 44 41 20 24 43 B5 70 21 20 |`!RTN LDA $C.p! | 00000940: 20 20 20 20 20 20 43 4D 50 20 23 24 30 B1 80 21 | CMP #$0..!| 00000950: 20 20 20 20 20 20 20 42 4E 45 20 52 54 4E B0 90 | BNE RTN..| 00000960: 21 20 20 20 20 20 20 20 53 45 C3 00 22 20 52 54 |! SE.." RT| 00000970: D3 10 22 52 54 4E 30 20 20 20 43 4C C3 20 22 20 |.."RTN0 CL. " | 00000980: 52 54 D3 30 22 BB 40 22 BB 50 22 44 49 43 20 4C |RT.0".@".P"DIC L| 00000990: 44 41 20 23 27 24 A7 60 22 20 53 54 41 20 2A 24 |DA #'$.`" STA *$| 000009A0: 46 C2 70 22 20 4C 44 41 20 23 24 46 C2 80 22 20 |F.p" LDA #$F.." | 000009B0: 53 54 41 20 2A 46 4E 41 44 D2 90 22 20 4C 44 41 |STA *FNAD.." LDA| 000009C0: 20 23 24 30 B0 00 23 20 53 54 41 20 2A 46 4E 41 | #$0..# STA *FNA| 000009D0: 44 52 2B B1 10 23 20 4C 44 41 20 23 24 30 B1 20 |DR+..# LDA #$0. | 000009E0: 23 20 53 54 41 20 2A 46 4E 4C 45 CE 30 23 20 4C |# STA *FNLE.0# L| 000009F0: 44 41 20 23 24 30 B8 40 23 20 53 54 41 20 2A 46 |DA #$0.@# STA *F| 00000A00: C1 50 23 20 4C 44 41 20 23 24 36 B0 60 23 20 53 |.P# LDA #$6.`# S| 00000A10: 54 41 20 2A 53 C1 70 23 20 4A 53 52 20 53 45 4E |TA *S.p# JSR SEN| 00000A20: C4 80 23 20 4C 44 41 20 2A 46 C1 90 23 20 4A 53 |..# LDA *F..# JS| 00000A30: 52 20 54 41 4C CB 00 24 20 4C 44 41 20 2A 53 C1 |R TAL..$ LDA *S.| 00000A40: 10 24 20 4A 53 52 20 53 2F 54 41 4C CB 20 24 20 |.$ JSR S/TAL. $ | 00000A50: 4C 44 41 20 23 24 30 B0 30 24 20 53 54 41 20 2A |LDA #$0.0$ STA *| 00000A60: 53 54 41 54 55 D3 40 24 BB 50 24 BB 60 24 BB 70 |STATU.@$.P$.`$.p| 00000A70: 24 20 20 4C 44 59 20 23 24 30 B3 80 24 4C 31 20 |$ LDY #$0..$L1 | 00000A80: 53 54 59 20 2A 24 46 C2 90 24 20 20 20 20 20 20 |STY *$F..$ | 00000A90: 20 20 4A 53 52 20 49 45 43 49 CE 00 25 20 53 54 | JSR IECI..% ST| 00000AA0: 41 20 2A 24 46 C3 10 25 20 20 20 20 20 20 20 4C |A *$F..% L| 00000AB0: 44 59 20 2A 53 54 41 54 55 D3 20 25 20 42 4E 45 |DY *STATU. % BNE| 00000AC0: 20 4C B4 30 25 20 4A 53 52 20 49 45 43 49 CE 40 | L.0% JSR IECI.@| 00000AD0: 25 20 4C 44 59 20 2A 53 54 41 54 55 D3 50 25 20 |% LDY *STATU.P% | 00000AE0: 42 4E 45 20 4C B4 60 25 20 4C 44 59 20 2A 24 46 |BNE L.`% LDY *$F| 00000AF0: C2 70 25 20 44 45 D9 80 25 20 42 4E 45 20 4C B1 |.p% DE..% BNE L.| 00000B00: 90 25 BB 00 26 BB 10 26 BB 20 26 4C 31 30 20 20 |.%..&..&. &L10 | 00000B10: 20 4A 53 52 20 49 45 43 49 CE 30 26 20 20 20 20 | JSR IECI.0& | 00000B20: 20 20 4C 44 58 20 53 54 41 54 55 D3 40 26 20 20 | LDX STATU.@& | 00000B30: 20 20 20 20 42 4E 45 20 4C B4 50 26 20 20 20 20 | BNE L.P& | 00000B40: 20 20 43 4D 50 20 23 24 32 B2 60 26 20 20 20 20 | CMP #$2.`& | 00000B50: 20 20 42 4E 45 20 4C 31 B0 70 26 4C 31 31 20 20 | BNE L1.p&L11 | 00000B60: 20 4A 53 52 20 49 45 43 49 CE 80 26 20 20 20 20 | JSR IECI..& | 00000B70: 20 20 4C 44 58 20 53 54 41 54 55 D3 90 26 20 20 | LDX STATU..& | 00000B80: 20 20 20 20 42 4E 45 20 4C B4 00 27 20 20 20 20 | BNE L..' | 00000B90: 20 20 43 4D 50 20 23 24 32 B2 10 27 20 20 20 20 | CMP #$2..' | 00000BA0: 20 20 20 42 45 51 20 4C B2 20 27 20 4A 53 52 20 | BEQ L. ' JSR | 00000BB0: 50 52 49 4E D4 30 27 20 20 20 20 20 20 20 42 4E |PRIN.0' BN| 00000BC0: 45 20 4C 31 B1 40 27 BB 50 27 BB 60 27 BB 70 27 |E L1.@'.P'.`'.p'| 00000BD0: 4C 32 20 20 20 20 20 4C 44 41 20 23 24 30 C4 80 |L2 LDA #$0..| 00000BE0: 27 20 4A 53 52 20 50 52 49 4E D4 90 27 20 4C 44 |' JSR PRIN..' LD| 00000BF0: 59 20 23 24 30 B2 00 28 20 42 4E 45 20 4C B1 10 |Y #$0..( BNE L..| 00000C00: 28 BB 20 28 BB 30 28 BB 40 28 4C 34 20 20 20 20 |(. (.0(.@(L4 | 00000C10: 20 4A 53 52 20 43 4C 53 46 49 CC 50 28 20 4A 53 | JSR CLSFI.P( JS| 00000C20: 52 20 53 45 32 B4 60 28 20 52 54 D3 70 28 BB 80 |R SE2.`( RT.p(..| 00000C30: 28 BB 90 28 BB 00 29 BB 10 29 BB 20 29 BB 30 29 |(..(..)..). ).0)| 00000C40: BB 40 29 3B 44 41 54 41 20 4F 50 53 4C 41 47 20 |.@);DATA OPSLAG | 00000C50: 56 2E 20 44 2E 20 54 45 58 D4 50 29 3B 20 20 57 |V. D. TEX.P); W| 00000C60: 45 52 4B 54 20 53 41 4D 45 4E 20 4D 45 54 20 44 |ERKT SAMEN MET D| 00000C70: C5 60 29 3B 20 20 20 20 51 54 45 58 54 2D 55 49 |.`); QTEXT-UI| 00000C80: 54 56 4F 45 D2 70 29 BB 80 29 3B 20 20 20 20 20 |TVOE.p)..); | 00000C90: 20 5F 20 3D 20 45 49 4E 44 45 20 54 45 58 54 20 | _ = EINDE TEXT | 00000CA0: 52 45 47 45 CC 90 29 3B 20 20 20 20 20 20 3E 20 |REGE..); > | 00000CB0: 3D 20 53 50 41 54 49 C5 00 30 3B 20 20 20 20 20 |= SPATI..0; | 00000CC0: 20 5C 20 3D 20 45 49 4E 44 45 20 54 45 58 54 20 | \ = EINDE TEXT | 00000CD0: 44 41 54 C1 10 30 BB 20 30 BB 30 30 BB 40 30 54 |DAT..0. 0.00.@0T| 00000CE0: 45 58 54 20 20 20 2E 42 59 20 27 53 49 4E 47 4C |EXT .BY 'SINGL| 00000CF0: 45 20 43 4F 50 59 5F 3E 3E 3E 3E 50 4C 41 41 54 |E COPY_>>>>PLAAT| 00000D00: A7 50 30 20 20 20 20 20 20 20 2E 42 59 20 27 53 |.P0 .BY 'S| 00000D10: 20 4F 52 47 49 4E 45 4C 45 20 53 43 48 49 4A 46 | ORGINELE SCHIJF| 00000D20: 20 49 4E 20 A7 60 30 20 20 20 20 20 20 20 2E 42 | IN .`0 .B| 00000D30: 59 20 27 44 49 53 4B 3E 3E 3E 3E 5F 3E 3E 3E 3E |Y 'DISK>>>>_>>>>| 00000D40: 3E 50 4C 41 41 54 53 20 A7 70 30 20 20 20 20 20 |>PLAATS .p0 | 00000D50: 20 20 2E 42 59 20 27 4E 49 45 55 57 45 20 53 43 | .BY 'NIEUWE SC| 00000D60: 48 49 4A 46 20 49 4E 20 44 49 53 4B A7 80 30 20 |HIJF IN DISK..0 | 00000D70: 20 20 20 20 20 20 2E 42 59 20 27 3E 3E 3E 3E 3E | .BY '>>>>>| 00000D80: 5F 44 52 55 4B 20 4F 50 20 52 45 54 55 52 4E 20 |_DRUK OP RETURN | 00000D90: A7 90 30 20 20 20 20 20 20 20 2E 42 59 20 27 41 |..0 .BY 'A| 00000DA0: 4C 53 20 53 43 48 49 4A 46 20 47 45 50 4C 41 41 |LS SCHIJF GEPLAA| 00000DB0: 54 53 54 20 A7 00 31 20 20 20 20 20 20 20 2E 42 |TST ..1 .B| 00000DC0: 59 20 27 49 53 5F 5C A7 10 31 20 2E 45 CE 59 FF |Y 'IS_\..1 .E.Y.| 00000DD0: 2C |, |
...H.... .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.@. NOPP. JSR GE
T`. RTSP.............. ..0..@..P..`..P..
............ ..0..@..P..`.;ROUTINES VOOR
HETP.; HOOFDPROGRAMMA...........TEK LDA
#$9. . JSR PRINT0. LDA #$0.
@. LDX #$0.P.COL STA $D800,X`. STA $D900
,XP. STA $DA00,X.. STA $DB00,X.. INX.. B
NE COL.. BEQ LOOP ..0..@..P.LINE STA *
$0.`. STX *$0.P. LDY #$0... LDX #$
1...VERT LDA #$5D.. STA ($03),Y.. CLC .
LDA *$0.0. ADC #$2.@. STA *$
0.P. BCC CARRY`. INC *$0.P.C
ARRY DEX.. BNE VERT.. RTS...... ..0.LOO
P LDA #$4.@. LDX #$2.P.LOOP2 STA $0401,
X`. STA $0451,XP. STA $0771,X.. STA $07C
1,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. . LD
A #$7D0. STA $07E.@. LDA #$6BP. STA $045
.`. STA $077.P. LDA #$7... STA $047... S
TA $079... LDA #$7... STA $046. . STA $0
46.0. LDA #$7.@. STA $078.P. STA $078.`.
LDA #$7.P. LDX #$0... JSR LINE.. LDA #$
9F.. LDX #$0... JSR LINE . LDA #$8
B0. LDX #$0.@. JSR LINEP. LDA #$8C`. LDX
#$0.P. JSR LINE.. RTS.....; TEXT
UITVOER..;M.B.V. Y-REGISTER ..0.TE/0
LDX #$0.@. CPY #$0.P. BEQ TE/.`.TE/3 LDA
TEXT,XP. CMP #'... BEQ TE/END.. CMP #'.
.. BEQ TE/...TE/M...R..............N....
................N.......R...N...........
..............Z.........................
.........Z......|................|......
........O...............R...|...........
...N.............|.`..P....TK...........
.O...S..............T.S...........YHN...
............".......#AW.........#.S.#...
.".......#C..#..S........#...#....".....
..#AWL........#.S.#............#AW......
...#.S.#....".......#......"....."..;.#C
...3..>.........#.;.#...".#.............
.SE24 LDX #$1... LDY #$0. .
JV........S..............F.S..........
......V.....Y.....................DX....
..........EM...............AE........#C.
.#.;..@........#13..............#C..#...
.........#C..#............#...#.....#...
...#..SP .` .P .. SETXYA PHA. JSR SETXY
.! PLA.! TAY ! JMP TE/.0!.@!.P!.`!RTN LD
A $C.P! CMP #$0..! BNE RTN..
! SEC." RTS."RTN0 CLC " RTS0".@"
.P"DIC LDA #'$.`" STA *$FBP" LDA #$FB."
STA *FNADR." LDA #$0..# STA *FNADR+..# L
DA #$0. # STA *FNLEN0# LDA #$0.@# STA *F
AP# LDA #$6.`# STA *SAP# JSR SEND.# LDA
*FA.# JSR TALK.$ LDA *SA.$ JSR S/TALK $
LDA #$0.0$ STA *STATUS@$.P$.`$.P$ LDY #
$0..$L1 STY *$FB.$ JSR IECIN.% ST
A *$FC.% LDY *STATUS % BNE L.0% JS
R IECIN@% LDY *STATUSP% BNE L.`% LDY *$F
BP% DEY.% BNE L..%..&..&. &L10 JSR IEC
IN0& LDX STATUS@& BNE L.P&
CMP #$2.`& BNE L1.P&L11 JSR IEC
IN.& LDX STATUS.& BNE L..'
CMP #$2..' BEQ L. ' JSR PRINT0'
BNE L1.@'.P'.`'.P'L2 LDA #$0D.
' JSR PRINT.' LDY #$0..( BNE L..(. (.0(.
@(L4 JSR CLSFILP( JSR SE2.`( RTSP(..
(..(..)..). ).0).@);DATA OPSLAG V. D. TE
XTP); WERKT SAMEN MET DE`); QTEXT-UI
TVOERP)..); _ = EINDE TEXT REGEL.);
> = SPATIE.0; \ = EINDE TEXT
DATA.0. 0.00.@0TEXT .BY 'SINGLE COPY_>
>>>PLAAT.P0 .BY 'S ORGINELE SCHIJF
IN .`0 .BY 'DISK>>>>_>>>>>PLAATS
.P0 .BY 'NIEUWE SCHIJF IN DISK..0
.BY '>>>>>_DRUK OP RETURN ..0
.BY 'ALS SCHIJF GEPLAATST ..1 .B
Y 'IS_\..1 .ENY.,
> CLICK IMAGE PREVIEW FOR FULL MODAL