R
FILE INFORMATION
FILENAME(S): R
FILE TYPE(S): PRG
FILE SIZE: 1K
FIRST SEEN: 2025-11-30 21:06:53
APPEARS ON: 1 disk(s)
FILE HASH
44094251ae8f543950e09c29c4a50a764249c6ba4a22158bdd8d3f7a444b9d41
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| VW | R | PRG | DuncanTwain | 19 | 17 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: D8 1F F3 1F 64 00 2E 42 41 20 24 39 30 30 30 20 |....d..BA $9000 | 00000010: 3B 49 52 51 2D 52 4F 55 54 49 4E 45 00 16 20 69 |;IRQ-ROUTINE.. i| 00000020: 00 2E 45 51 20 49 52 51 54 45 4C 20 3D 20 24 30 |..EQ IRQTEL = $0| 00000030: 30 30 34 20 3B 54 45 4C 4C 45 52 20 49 52 51 00 |004 ;TELLER IRQ.| 00000040: 38 20 6E 00 2E 45 51 20 54 45 4D 50 20 20 20 3D |8 n..EQ TEMP =| 00000050: 20 24 30 30 30 36 20 3B 54 45 4D 50 4F 52 41 52 | $0006 ;TEMPORAR| 00000060: 59 00 5C 20 78 00 2E 45 51 20 53 43 52 20 20 20 |Y.\ x..EQ SCR | 00000070: 20 3D 20 24 30 34 30 30 20 3B 56 49 44 45 4F 53 | = $0400 ;VIDEOS| 00000080: 43 48 45 52 4D 00 80 20 7A 00 2E 45 51 20 54 49 |CHERM.. z..EQ TI| 00000090: 41 20 20 20 20 3D 20 24 44 46 32 30 20 3B 41 44 |A = $DF20 ;AD| 000000A0: 52 45 53 20 54 49 4D 45 52 00 A3 20 7C 00 2E 45 |RES TIMER.. |..E| 000000B0: 51 20 54 49 44 20 20 20 20 3D 20 24 44 46 32 30 |Q TID = $DF20| 000000C0: 20 3B 44 41 54 41 20 54 49 4D 45 52 00 C1 20 7E | ;DATA TIMER.. ~| 000000D0: 00 2E 45 51 20 49 4E 50 55 54 20 20 3D 20 24 44 |..EQ INPUT = $D| 000000E0: 46 43 30 20 3B 49 4E 50 55 54 00 CA 20 8C 00 20 |FC0 ;INPUT.. .. | 000000F0: 50 48 41 00 D3 20 96 00 20 54 58 41 00 DC 20 A0 |PHA.. .. TXA.. .| 00000100: 00 20 50 48 41 00 E5 20 AA 00 20 54 59 41 00 EE |. PHA.. .. TYA..| 00000110: 20 B4 00 20 50 48 41 00 02 21 D2 00 20 4C 44 58 | .. PHA..!.. LDX| 00000120: 23 24 30 43 3B 20 43 4C 45 41 52 00 13 21 DC 00 |#$0C; CLEAR..!..| 00000130: 20 53 54 58 54 49 44 3B 20 49 52 51 00 1F 21 E6 | STXTID; IRQ..!.| 00000140: 00 20 4C 44 41 54 49 41 00 2F 21 22 01 20 4C 44 |. LDATIA./!". LD| 00000150: 41 53 43 52 2B 31 33 36 00 3C 21 2C 01 20 43 4D |ASCR+136.<!,. CM| 00000160: 50 23 24 33 39 00 48 21 36 01 20 42 45 51 49 52 |P#$39.H!6. BEQIR| 00000170: 31 00 58 21 40 01 20 49 4E 43 53 43 52 2B 31 33 |1.X!@. INCSCR+13| 00000180: 36 00 64 21 4A 01 20 42 4E 45 49 52 37 00 74 21 |6.d!J. BNEIR7.t!| 00000190: 54 01 49 52 31 20 4C 44 41 23 24 33 30 00 84 21 |T.IR1 LDA#$30..!| 000001A0: 5E 01 20 53 54 41 53 43 52 2B 31 33 36 00 94 21 |^. STASCR+136..!| 000001B0: 68 01 20 4C 44 41 53 43 52 2B 31 33 35 00 A1 21 |h. LDASCR+135..!| 000001C0: 72 01 20 43 4D 50 23 24 33 35 00 AD 21 7C 01 20 |r. CMP#$35..!|. | 000001D0: 42 45 51 49 52 32 00 BD 21 86 01 20 49 4E 43 53 |BEQIR2..!.. INCS| 000001E0: 43 52 2B 31 33 35 00 C9 21 90 01 20 42 4E 45 49 |CR+135..!.. BNEI| 000001F0: 52 37 00 D9 21 9A 01 49 52 32 20 4C 44 41 23 24 |R7..!..IR2 LDA#$| 00000200: 33 30 00 E9 21 A4 01 20 53 54 41 53 43 52 2B 31 |30..!.. STASCR+1| 00000210: 33 35 00 F9 21 AE 01 20 4C 44 41 53 43 52 2B 31 |35..!.. LDASCR+1| 00000220: 33 31 00 06 22 B8 01 20 43 4D 50 23 24 33 39 00 |31..".. CMP#$39.| 00000230: 12 22 C2 01 20 42 45 51 49 52 33 00 22 22 CC 01 |.".. BEQIR3.""..| 00000240: 20 49 4E 43 53 43 52 2B 31 33 31 00 2E 22 D6 01 | INCSCR+131.."..| 00000250: 20 42 4E 45 49 52 37 00 3E 22 E0 01 49 52 33 20 | BNEIR7.>"..IR3 | 00000260: 4C 44 41 23 24 33 30 00 4E 22 EA 01 20 53 54 41 |LDA#$30.N".. STA| 00000270: 53 43 52 2B 31 33 31 00 5E 22 F4 01 20 4C 44 41 |SCR+131.^".. LDA| 00000280: 53 43 52 2B 31 33 30 00 6B 22 FE 01 20 43 4D 50 |SCR+130.k".. CMP| 00000290: 23 24 33 35 00 77 22 08 02 20 42 45 51 49 52 34 |#$35.w".. BEQIR4| 000002A0: 00 87 22 12 02 20 49 4E 43 53 43 52 2B 31 33 30 |..".. INCSCR+130| 000002B0: 00 93 22 1C 02 20 42 4E 45 49 52 37 00 A3 22 26 |..".. BNEIR7.."&| 000002C0: 02 49 52 34 20 4C 44 41 23 24 33 30 00 B3 22 30 |.IR4 LDA#$30.."0| 000002D0: 02 20 53 54 41 53 43 52 2B 31 33 30 00 C3 22 3A |. STASCR+130..":| 000002E0: 02 20 4C 44 41 53 43 52 2B 31 32 36 00 D0 22 44 |. LDASCR+126.."D| 000002F0: 02 20 43 4D 50 23 24 33 39 00 DC 22 4E 02 20 42 |. CMP#$39.."N. B| 00000300: 45 51 49 52 35 00 E9 22 58 02 20 43 4D 50 23 24 |EQIR5.."X. CMP#$| 00000310: 33 34 00 F5 22 62 02 20 42 45 51 49 52 36 00 09 |34.."b. BEQIR6..| 00000320: 23 6C 02 49 52 34 41 20 49 4E 43 53 43 52 2B 31 |#l.IR4A INCSCR+1| 00000330: 32 36 00 15 23 76 02 20 42 4E 45 49 52 37 00 25 |26..#v. BNEIR7.%| 00000340: 23 80 02 49 52 35 20 4C 44 41 23 24 33 30 00 35 |#..IR5 LDA#$30.5| 00000350: 23 8A 02 20 53 54 41 53 43 52 2B 31 32 36 00 45 |#.. STASCR+126.E| 00000360: 23 94 02 20 49 4E 43 53 43 52 2B 31 32 35 00 51 |#.. INCSCR+125.Q| 00000370: 23 9E 02 20 42 4E 45 49 52 37 00 64 23 A8 02 49 |#.. BNEIR7.d#..I| 00000380: 52 36 20 4C 44 41 53 43 52 2B 31 32 35 00 71 23 |R6 LDASCR+125.q#| 00000390: B2 02 20 43 4D 50 23 24 33 32 00 7E 23 BC 02 20 |.. CMP#$32.~#.. | 000003A0: 42 4E 45 49 52 34 41 00 8B 23 C6 02 20 4C 44 41 |BNEIR4A..#.. LDA| 000003B0: 23 24 33 30 00 9B 23 D0 02 20 53 54 41 53 43 52 |#$30..#.. STASCR| 000003C0: 2B 31 32 35 00 AB 23 DA 02 20 53 54 41 53 43 52 |+125..#.. STASCR| 000003D0: 2B 31 32 36 00 B7 23 E4 02 49 52 37 20 4E 4F 50 |+126..#..IR7 NOP| 000003E0: 00 C3 23 EE 02 50 49 46 20 4E 4F 50 00 D1 23 28 |..#..PIF NOP..#(| 000003F0: 23 49 52 45 4E 44 20 50 4C 41 00 DA 23 32 23 20 |#IREND PLA..#2# | 00000400: 54 59 41 00 E3 23 3C 23 20 50 4C 41 00 EC 23 46 |TYA..#<# PLA..#F| 00000410: 23 20 54 58 41 00 F5 23 50 23 20 50 4C 41 00 FE |# TXA..#P# PLA..| 00000420: 23 5A 23 20 52 54 49 00 00 00 |#Z# RTI... |
X...D..BA $9000 ;IRQ-ROUTINE.. I..EQ IRQ TEL = $0004 ;TELLER IRQ.8 N..EQ TEMP = $0006 ;TEMPORARY.\ X..EQ SCR = $0400 ;VIDEOSCHERM.. Z..EQ TIA = $DF20 ;AD RES TIMER.. |..EQ TID = $DF20 ;DATA T IMER.A ~..EQ INPUT = $DFC0 ;INPUT.J .. PHA.S .. TXA.. . PHA.. .. TYA.. .. PHA. .!R. LDX#$0C; CLEAR..!.. STXTID; IRQ..!. . LDATIA./!". LDASCR+136.<!,. CMP#$39.H! 6. BEQIR1.X!@. INCSCR+136.D!J. BNEIR7.T! T.IR1 LDA#$30..!^. STASCR+136..!H. LDASC R+135..!R. CMP#$35..!|. BEQIR2..!.. INCS CR+135.I!.. BNEIR7.Y!..IR2 LDA#$30..!.. STASCR+135..!.. LDASCR+131..".. CMP#$39. ."B. BEQIR3.""L. INCSCR+131.."V. BNEIR7. >"..IR3 LDA#$30.N".. STASCR+131.^".. LDA SCR+130.K".. CMP#$35.W".. BEQIR4..".. IN CSCR+130..".. BNEIR7.."&.IR4 LDA#$30.."0 . STASCR+130.C":. LDASCR+126.P"D. CMP#$3 9.."N. BEQIR5.."X. CMP#$34.."B. BEQIR6.. #L.IR4A INCSCR+126..#V. BNEIR7.%#..IR5 L DA#$30.5#.. STASCR+126.E#.. INCSCR+125.Q #.. BNEIR7.D#..IR6 LDASCR+125.Q#.. CMP#$ 32.~#.. BNEIR4A..#F. LDA#$30..#P. STASCR +125..#Z. STASCR+126..#..IR7 NOP.C#..PIF NOP.Q#(#IREND PLA.Z#2# TYA..#<# PLA..#F # TXA..#P# PLA..#Z# RTI...
> CLICK IMAGE PREVIEW FOR FULL MODAL