INTUR1
FILE INFORMATION
FILENAME(S): INTUR1
FILE TYPE(S): PRG
FILE SIZE: 2.5K
FIRST SEEN: 2025-11-30 19:36:55
APPEARS ON: 1 disk(s)
FILE HASH
7e527e1719e3f7cff26e12b34b08ca5c4c190f6ece84b6e06a95c54569cc0edf
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| AFTEN | INTUR1 | PRG | Curtcool, Bo | 25 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 AA 0A 00 3B 00 14 00 3B 20 20 20 20 20 20 |.....;...; | 00000010: 20 20 20 20 20 20 2F 49 4E 54 55 52 31 2F 38 00 | /INTUR1/8.| 00000020: 1E 00 3B 00 28 00 B8 24 37 30 30 30 00 32 00 53 |..;.(..$7000.2.S| 00000030: 54 41 52 54 20 BF 00 3C 00 95 53 54 59 52 00 3D |TART ..<..STYR.=| 00000040: 00 95 49 52 51 49 4E 00 3E 00 95 49 52 51 55 44 |..IRQIN.>..IRQUD| 00000050: 00 46 00 3B 00 50 00 3B 20 2A 2A 2A 20 56 41 52 |.F.;.P.; *** VAR| 00000060: 49 41 42 4C 45 52 20 2A 2A 2A 00 5A 00 3B 00 64 |IABLER ***.Z.;.d| 00000070: 00 55 52 20 C0 24 44 43 30 38 00 6E 00 50 4C 4F |.UR .$DC08.n.PLO| 00000080: 54 20 C0 24 46 46 46 30 20 3B 58 2D 59 20 26 20 |T .$FFF0 ;X-Y & | 00000090: 43 00 78 00 43 48 52 4F 55 54 20 C0 24 46 46 44 |C.x.CHROUT .$FFD| 000000A0: 32 20 3B 41 00 82 00 53 54 52 49 4E 47 20 C0 24 |2 ;A...STRING .$| 000000B0: 41 42 31 45 20 3B 41 2D 59 00 8C 00 49 4E 50 55 |AB1E ;A-Y...INPU| 000000C0: 54 20 C0 24 41 42 46 39 20 3B 42 55 46 46 45 52 |T .$ABF9 ;BUFFER| 000000D0: 00 96 00 50 4F 53 20 C0 24 30 34 31 46 00 A0 00 |...POS .$041F...| 000000E0: 42 55 46 46 45 52 20 C0 24 30 32 30 30 00 AA 00 |BUFFER .$0200...| 000000F0: 49 4E 54 56 45 43 20 C0 24 45 41 33 31 00 B4 00 |INTVEC .$EA31...| 00000100: 47 45 4D 31 20 B9 35 2C 30 00 BE 00 47 45 4D 32 |GEM1 .5,0...GEM2| 00000110: 20 B9 39 2C 30 00 C8 00 54 45 58 54 20 C1 2F 74 | .9,0...TEXT ./t| 00000120: 74 6D 6D 73 73 20 3A 20 6B 6C 6F 6B 6B 65 6E 2F |tmmss : klokken/| 00000130: 00 D2 00 BA 31 33 2C 30 2C 30 2C 30 00 DC 00 54 |....13,0,0,0...T| 00000140: 49 44 20 BA 30 2C 30 00 E6 00 46 4C 41 47 20 B9 |ID .0,0...FLAG .| 00000150: 32 2C 30 00 F0 00 3B 00 FA 00 3B 20 2A 2A 2A 2A |2,0...;...; ****| 00000160: 20 53 54 59 52 20 2A 2A 2A 2A 00 04 01 3B 00 0E | STYR ****...;..| 00000170: 01 53 54 59 52 20 96 4F 50 53 54 41 52 54 00 18 |.STYR .OPSTART..| 00000180: 01 96 53 45 54 55 52 00 36 01 3B 20 20 20 20 20 |..SETUR.6.; | 00000190: 20 20 20 20 4C 44 41 20 23 24 30 30 00 40 01 3B | LDA #$00.@.;| 000001A0: 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 24 30 | LDY #$0| 000001B0: 41 00 4A 01 3B 20 20 20 20 20 20 20 20 20 53 54 |A.J.; ST| 000001C0: 41 20 31 39 38 00 54 01 3B 54 59 52 48 4F 50 20 |A 198.T.;TYRHOP | 000001D0: 20 20 53 54 41 20 42 55 46 46 45 52 2C 59 00 5E | STA BUFFER,Y.^| 000001E0: 01 3B 20 20 20 20 20 20 20 20 20 44 45 59 00 68 |.; DEY.h| 000001F0: 01 3B 20 20 20 20 20 20 20 20 20 42 50 4C 20 53 |.; BPL S| 00000200: 54 59 52 48 4F 50 00 72 01 3B 20 20 20 20 20 20 |TYRHOP.r.; | 00000210: 20 20 20 52 54 53 00 7C 01 53 54 59 52 4C 4F 4F | RTS.|.STYRLOO| 00000220: 50 20 96 52 45 41 44 00 86 01 96 41 4D 50 4D 00 |P .READ....AMPM.| 00000230: 90 01 96 4F 4D 44 41 4E 00 9A 01 96 53 4B 52 49 |...OMDAN....SKRI| 00000240: 56 00 A4 01 85 31 39 38 00 AE 01 B7 53 54 59 52 |V....198....STYR| 00000250: 4C 4F 4F 50 00 B8 01 9F 00 C2 01 3B 20 4A 4D 50 |LOOP.......; JMP| 00000260: 20 53 54 59 52 4C 4F 4F 50 00 CC 01 3B 00 D6 01 | STYRLOOP...;...| 00000270: 3B 20 2A 2A 2A 20 4F 50 53 54 41 52 54 20 2A 2A |; *** OPSTART **| 00000280: 2A 00 E0 01 3B 00 EA 01 4F 50 53 54 41 52 54 20 |*...;...OPSTART | 00000290: 85 55 52 2B 36 20 3B 20 35 30 20 48 5A 00 F4 01 |.UR+6 ; 50 HZ...| 000002A0: 80 23 31 32 38 20 3B 20 2D 2D 2D 2D 2D 00 FE 01 |.#128 ; -----...| 000002B0: 84 55 52 2B 36 20 3B 20 2D 2D 2D 2D 2D 00 08 02 |.UR+6 ; -----...| 000002C0: 3B 00 12 02 85 23 24 30 30 20 3B 20 53 54 41 52 |;....#$00 ; STAR| 000002D0: 54 00 1C 02 92 23 24 30 33 00 26 02 53 54 41 52 |T....#$03.&.STAR| 000002E0: 54 4C 4F 4F 50 20 84 55 52 E3 00 30 02 A2 00 3A |TLOOP .UR..0...:| 000002F0: 02 B0 53 54 41 52 54 4C 4F 4F 50 00 44 02 85 23 |..STARTLOOP.D..#| 00000300: 54 45 58 54 00 4E 02 92 5E 54 45 58 54 00 58 02 |TEXT.N..^TEXT.X.| 00000310: 84 24 46 42 0A 05 3B 54 45 4D 50 20 50 4F 49 00 |.$FB..;TEMP POI.| 00000320: 62 02 91 24 46 43 0A 05 3B 2D 2D 2D 2D 2D 2D 2D |b..$FC..;-------| 00000330: 2D 00 6C 02 92 23 24 30 30 00 76 02 53 54 41 52 |-.l..#$00.v.STAR| 00000340: 54 4C 4F 4F 31 20 85 28 24 46 42 E1 00 80 02 96 |TLOO1 .($FB.....| 00000350: 43 48 52 4F 55 54 00 8A 02 AA 00 94 02 86 23 24 |CHROUT........#$| 00000360: 30 30 00 9E 02 B6 53 54 41 52 54 4C 4F 4F 31 00 |00....STARTLOO1.| 00000370: A8 02 96 49 4E 50 55 54 00 B2 02 9F 00 BC 02 3B |...INPUT.......;| 00000380: 00 C6 02 3B 20 2A 2A 2A 2A 20 52 45 41 44 20 2A |...; **** READ *| 00000390: 2A 2A 2A 00 D0 02 3B 00 DA 02 52 45 41 44 20 92 |***...;...READ .| 000003A0: 23 24 30 33 00 E4 02 52 45 41 44 4C 4F 4F 50 20 |#$03...READLOOP | 000003B0: 85 55 52 E3 00 EE 02 84 47 45 4D 31 E3 00 F8 02 |.UR.....GEM1....| 000003C0: A2 00 02 03 B0 52 45 41 44 4C 4F 4F 50 00 0C 03 |.....READLOOP...| 000003D0: 9F 00 16 03 3B 00 20 03 3B 20 2A 2A 2A 20 4F 4D |....;. .; *** OM| 000003E0: 44 41 4E 2E 20 2A 2A 2A 00 2A 03 3B 00 34 03 4F |DAN. ***.*.;.4.O| 000003F0: 4D 44 41 4E 20 85 23 47 45 4D 32 00 3E 03 92 5E |MDAN .#GEM2.>..^| 00000400: 47 45 4D 32 00 48 03 84 24 46 42 0A 05 3B 20 47 |GEM2.H..$FB..; G| 00000410: 45 4D 32 00 52 03 91 24 46 43 0A 05 3B 20 2D 2D |EM2.R..$FC..; --| 00000420: 2D 2D 00 5C 03 8D 23 24 30 30 00 66 03 92 23 24 |--.\..#$00.f..#$| 00000430: 30 33 00 70 03 4F 4D 44 41 4E 4C 4F 4F 50 20 85 |03.p.OMDANLOOP .| 00000440: 47 45 4D 31 E3 00 7A 03 9D 00 84 03 81 23 31 31 |GEM1..z......#11| 00000450: 32 00 8E 03 99 00 98 03 8B 00 A2 03 8B 00 AC 03 |2...............| 00000460: 8B 00 B6 03 8B 00 C0 03 84 28 24 46 42 E0 20 3B |.........($FB. ;| 00000470: 20 47 45 4D 32 00 CA 03 8F 24 46 42 0A 05 3B 20 | GEM2....$FB..; | 00000480: 2D 2D 2D 2D 00 D4 03 A0 00 DE 03 81 23 31 35 00 |----........#15.| 00000490: E8 03 84 28 24 46 42 E0 20 3B 20 47 45 4D 32 00 |...($FB. ; GEM2.| 000004A0: F2 03 8F 24 46 42 0A 05 3B 20 2D 2D 2D 2D 00 FC |...$FB..; ----..| 000004B0: 03 A2 00 06 04 B0 4F 4D 44 41 4E 4C 4F 4F 50 00 |......OMDANLOOP.| 000004C0: 10 04 9F 00 1A 04 3B 00 24 04 3B 20 2A 2A 2A 2A |......;.$.; ****| 000004D0: 20 53 4B 52 49 56 20 2A 2A 2A 2A 00 2E 04 3B 00 | SKRIV ****...;.| 000004E0: 38 04 53 4B 52 49 56 20 92 23 24 30 35 0A 06 3B |8.SKRIV .#$05..;| 000004F0: 43 52 53 52 20 43 4F 4C 00 42 04 53 4B 52 49 56 |CRSR COL.B.SKRIV| 00000500: 4C 4F 4F 50 20 85 47 45 4D 32 E3 00 4C 04 99 00 |LOOP .GEM2..L...| 00000510: 56 04 83 23 31 37 36 00 60 04 84 50 4F 53 E3 00 |V..#176.`..POS..| 00000520: 6A 04 A2 00 74 04 93 23 24 30 33 00 7E 04 B6 53 |j...t..#$03.~..S| 00000530: 4B 52 49 56 4C 4F 4F 50 00 88 04 48 4F 50 20 85 |KRIVLOOP...HOP .| 00000540: 47 45 4D 32 E3 00 92 04 99 00 9C 04 83 23 34 38 |GEM2.........#48| 00000550: 00 A6 04 84 50 4F 53 E3 00 B0 04 A2 00 BA 04 B0 |....POS.........| 00000560: 48 4F 50 00 C4 04 9F 00 CE 04 3B 00 D8 04 3B 20 |HOP.......;...; | 00000570: 2A 2A 2A 2A 20 50 52 30 56 45 20 20 2A 2A 2A 2A |**** PR0VE ****| 00000580: 00 E2 04 3B 00 EC 04 3B 31 20 30 30 30 31 30 30 |...;...;1 000100| 00000590: 31 30 20 55 44 00 F6 04 3B 32 20 31 30 30 31 30 |10 UD...;2 10010| 000005A0: 30 31 30 20 55 44 00 00 05 3B 33 20 30 58 58 58 |010 UD...;3 0XXX| 000005B0: 58 58 58 58 20 55 44 00 0A 05 3B 34 20 2B 31 32 |XXXX UD...;4 +12| 000005C0: 00 14 05 3B 00 1E 05 3B 00 28 05 3B 20 2A 2A 2A |...;...;.(.; ***| 000005D0: 20 53 45 54 55 52 20 2A 2A 2A 00 32 05 3B 00 3C | SETUR ***.2.;.<| 000005E0: 05 3B 53 45 54 55 52 20 20 20 20 20 4C 44 41 20 |.;SETUR LDA | 000005F0: 42 55 46 46 45 52 00 46 05 9B 00 50 05 87 23 31 |BUFFER.F...P..#1| 00000600: 32 00 5A 05 B1 41 4D 00 64 05 50 4D 20 B7 4B 4C |2.Z..AM.d.PM .KL| 00000610: 31 32 00 6E 05 85 42 55 46 46 45 52 00 78 05 9B |12.n..BUFFER.x..| 00000620: 00 82 05 87 23 31 32 00 8C 05 53 45 54 48 4F 50 |....#12...SETHOP| 00000630: 31 20 81 23 32 34 30 00 96 05 89 00 A0 05 89 00 |1 .#240.........| 00000640: AA 05 89 00 B4 05 89 00 BE 05 80 23 31 32 38 00 |...........#128.| 00000650: C8 05 53 45 54 41 4D 20 84 47 45 4D 31 00 D2 05 |..SETAM .GEM1...| 00000660: 85 42 55 46 46 45 52 2B 31 00 DC 05 81 23 31 35 |.BUFFER+1....#15| 00000670: 00 E6 05 99 00 F0 05 83 47 45 4D 31 00 FA 05 84 |........GEM1....| 00000680: 47 45 4D 31 00 04 06 3B 00 0E 06 4B 4C 31 32 20 |GEM1...;...KL12 | 00000690: 85 42 55 46 46 45 52 00 18 06 95 53 45 54 48 4F |.BUFFER....SETHO| 000006A0: 50 31 00 22 06 3B 00 2C 06 41 4D 20 85 42 55 46 |P1.".;.,.AM .BUF| 000006B0: 46 45 52 00 36 06 81 23 32 34 30 00 40 06 89 00 |FER.6..#240.@...| 000006C0: 4A 06 89 00 54 06 89 00 5E 06 89 00 68 06 95 53 |J...T...^...h..S| 000006D0: 45 54 41 4D 00 72 06 3B 00 7C 06 3B 20 2A 2A 2A |ETAM.r.;.|.; ***| 000006E0: 20 4D 49 4E 2F 53 45 4B 20 2A 2A 2A 00 86 06 3B | MIN/SEK ***...;| 000006F0: 00 90 06 53 45 54 55 52 20 92 23 47 45 4D 31 00 |...SETUR .#GEM1.| 00000700: 9A 06 8D 5E 47 45 4D 31 00 A4 06 91 24 46 42 00 |...^GEM1....$FB.| 00000710: AE 06 8C 24 46 43 00 B8 06 AE 0A 09 3B 49 4E 43 |...$FC......;INC| 00000720: 20 24 46 42 00 C2 06 AE 0A 09 3B 49 4E 43 20 24 | $FB......;INC $| 00000730: 46 42 00 CC 06 92 23 24 30 30 0A 04 3B 23 24 30 |FB....#$00..;#$0| 00000740: 32 00 D6 06 8D 23 24 30 30 00 E0 06 4D 49 4E 4C |2....#$00...MINL| 00000750: 4F 4F 50 20 85 42 55 46 46 45 52 E3 00 EA 06 9B |OOP .BUFFER.....| 00000760: 00 F4 06 87 23 24 33 30 00 FE 06 99 00 08 07 89 |....#$30........| 00000770: 00 12 07 89 00 1C 07 89 00 26 07 89 00 30 07 84 |.........&...0..| 00000780: 24 46 46 00 3A 07 AA 00 44 07 85 42 55 46 46 45 |$FF.:...D..BUFFE| 00000790: 52 E3 00 4E 07 9B 00 58 07 87 23 24 33 30 00 62 |R..N...X..#$30.b| 000007A0: 07 99 00 6C 07 83 24 46 46 00 76 07 84 28 24 46 |...l..$FF.v..($F| 000007B0: 42 E0 00 80 07 8F 24 46 42 00 8A 07 AA 00 94 07 |B.....$FB.......| 000007C0: 93 23 24 30 38 00 9E 07 B6 4D 49 4E 4C 4F 4F 50 |.#$08....MINLOOP| 000007D0: 00 A8 07 3B 00 B2 07 3B 20 2A 2A 2A 20 53 54 4F |...;...; *** STO| 000007E0: 52 45 20 44 41 54 41 20 2A 2A 2A 00 BC 07 3B 00 |RE DATA ***...;.| 000007F0: C6 07 85 47 45 4D 31 00 D0 07 84 55 52 2B 33 00 |...GEM1....UR+3.| 00000800: DA 07 85 47 45 4D 31 2B 31 00 E4 07 84 55 52 2B |...GEM1+1....UR+| 00000810: 32 00 EE 07 85 47 45 4D 31 2B 32 00 F8 07 84 55 |2....GEM1+2....U| 00000820: 52 2B 31 00 02 08 85 23 24 30 30 00 0C 08 84 55 |R+1....#$00....U| 00000830: 52 00 16 08 9F 00 20 08 3B 00 2A 08 3B 20 2A 2A |R..... .;.*.; **| 00000840: 2A 20 41 4D 20 50 4D 20 2A 2A 2A 00 34 08 3B 00 |* AM PM ***.4.;.| 00000850: 3E 08 41 4D 50 4D 20 AF 00 48 08 85 47 45 4D 31 |>.AMPM ..H..GEM1| 00000860: 2B 33 00 52 08 86 23 24 31 32 00 5C 08 B6 52 45 |+3.R..#$12.\..RE| 00000870: 47 4E 00 66 08 85 23 24 30 30 00 70 08 95 53 4C |GN.f..#$00.p..SL| 00000880: 55 54 00 7A 08 52 45 47 4E 20 86 23 24 39 32 00 |UT.z.REGN .#$92.| 00000890: 84 08 B6 52 45 47 4E 31 00 8E 08 81 23 24 37 46 |...REGN1....#$7F| 000008A0: 00 98 08 95 53 4C 55 54 00 A2 08 52 45 47 4E 31 |....SLUT...REGN1| 000008B0: 20 B0 53 4C 55 54 00 AC 08 81 23 24 37 46 00 B6 | .SLUT....#$7F..| 000008C0: 08 99 00 C0 08 83 23 24 31 32 00 CA 08 3B 20 20 |......#$12...; | 000008D0: 20 20 20 20 20 20 41 4E 44 20 23 24 37 46 00 D4 | AND #$7F..| 000008E0: 08 53 4C 55 54 20 84 47 45 4D 31 2B 33 00 DE 08 |.SLUT .GEM1+3...| 000008F0: AC 00 E8 08 9F 00 F2 08 3B 20 2A 2A 2A 20 45 4E |........; *** EN| 00000900: 44 20 41 4D 50 4D 20 2A 2A 2A 00 FC 08 49 52 51 |D AMPM ***...IRQ| 00000910: 49 4E 20 85 23 31 30 00 06 09 84 54 49 44 00 10 |IN .#10....TID..| 00000920: 09 A1 00 1A 09 85 23 49 4E 54 00 24 09 84 24 30 |......#INT.$..$0| 00000930: 33 31 34 00 2E 09 85 5E 49 4E 54 00 38 09 84 24 |314....^INT.8..$| 00000940: 30 33 31 34 2B 31 00 42 09 9E 00 4C 09 9F 00 56 |0314+1.B...L...V| 00000950: 09 49 52 51 55 44 20 A1 00 60 09 85 23 24 33 31 |.IRQUD ..`..#$31| 00000960: 00 6A 09 84 24 30 33 31 34 00 74 09 85 23 24 45 |.j..$0314.t..#$E| 00000970: 41 00 7E 09 84 24 30 33 31 34 2B 31 00 88 09 9E |A.~..$0314+1....| 00000980: 00 92 09 9F 00 B8 0B 49 4E 54 20 8E 54 49 44 00 |.......INT .TID.| 00000990: C2 0B B7 48 4F 50 35 00 CC 0B 95 49 4E 54 56 45 |...HOP5....INTVE| 000009A0: 43 00 D6 0B 48 4F 50 35 20 85 23 31 30 00 E0 0B |C...HOP5 .#10...| 000009B0: 84 54 49 44 00 EA 0B 85 24 32 00 F4 0B 86 24 44 |.TID....$2....$D| 000009C0: 36 00 FE 0B B5 48 4F 50 36 00 08 0C 3B 20 20 20 |6....HOP6...; | 000009D0: 20 20 20 20 20 20 4C 44 41 20 23 38 30 00 12 0C | LDA #80...| 000009E0: 3B 20 20 20 20 20 20 20 20 20 43 4D 50 20 24 44 |; CMP $D| 000009F0: 31 00 1C 0C 3B 20 20 20 20 20 20 20 20 20 42 43 |1...; BC| 00000A00: 53 20 48 4F 50 36 00 26 0C 95 49 4E 54 56 45 43 |S HOP6.&..INTVEC| 00000A10: 00 30 0C 48 4F 50 36 20 96 53 54 59 52 00 3A 0C |.0.HOP6 .STYR.:.| 00000A20: 95 49 4E 54 56 45 43 00 FF FF |.INTVEC... |
.....;...; /INTUR1/8...;.(..$
7000.2.START ..<..STYR.=..IRQIN.>..IRQUD
.F.;.P.; *** VARIABLER ***.Z.;.D.UR .$DC
08.N.PLOT .$FFF0 ;X-Y & C.X.CHROUT .$FFD
2 ;A...STRING .$AB1E ;A-Y...INPUT .$ABF9
;BUFFER...POS .$041F. .BUFFER .$0200...
INTVEC .$EA31...GEM1 .5,0...GEM2 .9,0.H.
TEXT A/TTMMSS : KLOKKEN/.R..13,0,0,0...T
ID .0,0...FLAG .2,0...;...; **** STYR **
**...;...STYR .OPSTART....SETUR.6.;
LDA #$00.@.; LDY #$0A.J.;
STA 198.T.;TYRHOP STA BUFFER,Y.^
.; DEY.H.; BPL STYRHOP.R
.; RTS.|.STYRLOOP .READ....AMPM.
...OMDAN....SKRIV....198....STYRLOOP....
.B.; JMP STYRLOOP.L.;.V.; *** OPSTART **
*...;...OPSTART .UR+6 ; 50 HZ....#128 ;
-----....UR+6 ; -----...;....#$00 ; STAR
T....#$03.&.STARTLOOP .UR..0...:..STARTL
OOP.D..#TEXT.N..^TEXT.X..$FB..;TEMP POI.
B..$FC..;--------.L..#$00.V.STARTLOO1 .(
$FB.....CHROUT........#$00....STARTLOO1.
...INPUT.......;.F.; **** READ ****.P.;.
Z.READ .#$03...READLOOP .UR.....GEM1....
.....READLOOP.......;. .; *** OMDAN. ***
.*.;.4.OMDAN .#GEM2.>..^GEM2.H..$FB..; G
EM2.R..$FC..; ----.\..#$00.F..#$03.P.OMD
ANLOOP .GEM1..Z......#112...............
.........($FB. ; GEM2.J..$FB..; ----.T.
....#15....($FB. ; GEM2....$FB..; ----..
......OMDANLOOP.......;.$.; **** SKRIV *
***...;.8.SKRIV .#$05..;CRSR COL.B.SKRIV
LOOP .GEM2..L...V..#176.`..POS..J...T..#
$03.~..SKRIVLOOP...HOP .GEM2.........#48
....POS.........HOP.D...N.;.X.; **** PR0
VE ****...;...;1 00010010 UD...;2 10010
010 UD...;3 0XXXXXXX UD...;4 +12...;...;
.(.; *** SETUR ***.2.;.<.;SETUR LDA
BUFFER.F...P..#12.Z..AM.D.PM .KL12.N..BU
FFER.X......#12...SETHOP1 .#240..... ...
...........#128.H.SETAM .GEM1.R..BUFFER+
1....#15........GEM1....GEM1...;...KL12
.BUFFER....SETHOP1.".;.,.AM .BUFFER.6..#
240.@...J...T...^...H..SETAM.R.;.|.; ***
MIN/SEK ***...;...SETUR .#GEM1....^GEM1
....$FB....$FC......;INC $FB.B....;INC $
FB.L..#$00..;#$02.V..#$00...MINLOOP .BUF
FER.........#$30.................&...0..
$FF.:...D..BUFFER..N...X..#$30.B...L..$F
F.V..($FB.....$FB........#$08....MINLOOP
...;...; *** STORE DATA ***...;.F..GEM1.
P..UR+3.Z..GEM1+1....UR+2....GEM1+2....U
R+1....#$00....UR..... .;.*.; *** AM PM
***.4.;.>.AMPM ..H..GEM1+3.R..#$12.\..RE
GN.F..#$00.P..SLUT.Z.REGN .#$92....REGN1
....#$7F....SLUT...REGN1 .SLUT....#$7F..
......#$12.J.; AND #$7F.T.SLUT .G
EM1+3...........; *** END AMPM ***...IRQ
IN .#10....TID........#INT.$..$0314....^
INT.8..$0314+1.B...L...V.IRQUD ..`..#$31
.J..$0314.T..#$EA.~..$0314+1...........I
NT .TID.B..HOP5.L..INTVEC.V.HOP5 .#10...
.TID....$2....$D6....HOP6...; LD
A #80...; CMP $D1...; BC
S HOP6.&..INTVEC.0.HOP6 .STYR.:..INTVEC.
..
> CLICK IMAGE PREVIEW FOR FULL MODAL