ERER

FILE INFORMATION

FILENAME(S): ERER

FILE TYPE(S): PRG

FILE SIZE: 2.2K

FIRST SEEN: 2025-11-30 21:06:53

APPEARS ON: 1 disk(s)

FILE HASH

c682f1bcc86e572daa5c5ea315dba42853221573b6333252e16f2a69c23f64ae

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
VW	ERER	PRG	DuncanTwain	14	4	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 6E  |;IRQ-ROUTINE.. n|
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 78 00 2E 45 51 20  54 45 4D 50 20 20 20 3D  |8 x..EQ TEMP   =|
00000050: 20 24 30 30 30 36 20 3B  54 45 4D 50 4F 52 41 52  | $0006 ;TEMPORAR|
00000060: 59 00 5A 20 82 00 2E 45  51 20 54 45 4D 50 32 20  |Y.Z ...EQ TEMP2 |
00000070: 20 3D 20 24 30 30 30 37  20 3B 54 45 4D 50 4F 52  | = $0007 ;TEMPOR|
00000080: 41 52 59 00 7E 20 8C 00  2E 45 51 20 53 43 52 20  |ARY.~ ...EQ SCR |
00000090: 20 20 20 3D 20 24 30 34  30 30 20 3B 56 49 44 45  |   = $0400 ;VIDE|
000000A0: 4F 53 43 48 45 52 4D 00  A1 20 8F 00 2E 45 51 20  |OSCHERM.. ...EQ |
000000B0: 44 41 30 4B 4D 48 20 3D  20 24 43 34 30 30 20 3B  |DA0KMH = $C400 ;|
000000C0: 44 41 54 41 20 4B 4D 48  20 31 00 C4 20 90 00 2E  |DATA KMH 1.. ...|
000000D0: 45 51 20 44 41 31 4B 4D  48 20 3D 20 24 43 35 30  |EQ DA1KMH = $C50|
000000E0: 30 20 3B 44 41 54 41 20  4B 4D 48 20 32 00 E5 20  |0 ;DATA KMH 2.. |
000000F0: 96 00 2E 45 51 20 44 41  30 52 50 4D 20 3D 20 24  |...EQ DA0RPM = $|
00000100: 43 38 30 30 20 3B 44 41  54 41 20 52 50 4D 00 09  |C800 ;DATA RPM..|
00000110: 21 A0 00 2E 45 51 20 54  49 41 20 20 20 20 3D 20  |!...EQ TIA    = |
00000120: 24 44 46 32 30 20 3B 41  44 52 45 53 20 54 49 4D  |$DF20 ;ADRES TIM|
00000130: 45 52 00 2C 21 AA 00 2E  45 51 20 54 49 44 20 20  |ER.,!...EQ TID  |
00000140: 20 20 3D 20 24 44 46 32  30 20 3B 44 41 54 41 20  |  = $DF20 ;DATA |
00000150: 54 49 4D 45 52 00 4A 21  B4 00 2E 45 51 20 49 4E  |TIMER.J!...EQ IN|
00000160: 50 55 54 20 20 3D 20 24  44 46 43 30 20 3B 49 4E  |PUT  = $DFC0 ;IN|
00000170: 50 55 54 00 53 21 BE 00  20 50 48 41 00 5C 21 C8  |PUT.S!.. PHA.\!.|
00000180: 00 20 54 58 41 00 65 21  D2 00 20 50 48 41 00 6E  |. TXA.e!.. PHA.n|
00000190: 21 DC 00 20 54 59 41 00  77 21 E6 00 20 50 48 41  |!.. TYA.w!.. PHA|
000001A0: 00 8B 21 F0 00 20 4C 44  58 23 24 30 43 3B 20 43  |..!.. LDX#$0C; C|
000001B0: 4C 45 41 52 00 9C 21 FA  00 20 53 54 58 54 49 44  |LEAR..!.. STXTID|
000001C0: 3B 20 49 52 51 00 A8 21  04 01 20 4C 44 41 54 49  |; IRQ..!.. LDATI|
000001D0: 41 00 BE 21 0E 01 20 4C  44 41 53 43 52 2B 31 33  |A..!.. LDASCR+13|
000001E0: 36 3B 20 53 45 43 2E 00  CB 21 18 01 20 43 4D 50  |6; SEC...!.. CMP|
000001F0: 23 24 33 39 00 D7 21 22  01 20 42 45 51 49 52 31  |#$39..!". BEQIR1|
00000200: 00 E7 21 2C 01 20 49 4E  43 53 43 52 2B 31 33 36  |..!,. INCSCR+136|
00000210: 00 F4 21 36 01 20 42 4E  45 49 52 33 41 00 04 22  |..!6. BNEIR3A.."|
00000220: 40 01 49 52 31 20 4C 44  41 23 24 33 30 00 14 22  |@.IR1 LDA#$30.."|
00000230: 4A 01 20 53 54 41 53 43  52 2B 31 33 36 00 2C 22  |J. STASCR+136.,"|
00000240: 54 01 20 4C 44 41 53 43  52 2B 31 33 35 3B 31 30  |T. LDASCR+135;10|
00000250: 20 53 45 43 2E 00 39 22  5E 01 20 43 4D 50 23 24  | SEC..9"^. CMP#$|
00000260: 33 35 00 45 22 68 01 20  42 45 51 49 52 32 00 55  |35.E"h. BEQIR2.U|
00000270: 22 72 01 20 49 4E 43 53  43 52 2B 31 33 35 00 62  |"r. INCSCR+135.b|
00000280: 22 7C 01 20 42 4E 45 49  52 33 41 00 72 22 86 01  |"|. BNEIR3A.r"..|
00000290: 49 52 32 20 4C 44 41 23  24 33 30 00 82 22 90 01  |IR2 LDA#$30.."..|
000002A0: 20 53 54 41 53 43 52 2B  31 33 35 00 88 22 9A 01  | STASCR+135.."..|
000002B0: 3B 00 A4 22 A4 01 3B 20  55 50 44 41 54 45 20 49  |;.."..; UPDATE I|
000002C0: 43 20 4E 41 41 52 20 53  43 48 45 52 4D 00 AA 22  |C NAAR SCHERM.."|
000002D0: AE 01 3B 00 B5 22 B8 01  20 4C 44 41 23 30 00 C9  |..;..".. LDA#0..|
000002E0: 22 C2 01 20 4A 53 52 54  4F 4D 5A 45 54 3B 23 23  |".. JSRTOMZET;##|
000002F0: 23 23 00 D9 22 CC 01 20  53 54 58 53 43 52 2B 31  |##..".. STXSCR+1|
00000300: 33 36 00 E9 22 D6 01 20  53 54 41 53 43 52 2B 31  |36..".. STASCR+1|
00000310: 33 35 00 F4 22 E0 01 20  4C 44 41 23 32 00 08 23  |35..".. LDA#2..#|
00000320: EA 01 20 4A 53 52 54 4F  4D 5A 45 54 3B 23 23 23  |.. JSRTOMZET;###|
00000330: 23 00 18 23 F4 01 20 53  54 58 53 43 52 2B 31 33  |#..#.. STXSCR+13|
00000340: 31 00 28 23 FE 01 20 53  54 41 53 43 52 2B 31 33  |1.(#.. STASCR+13|
00000350: 30 00 33 23 08 02 20 4C  44 41 23 34 00 47 23 12  |0.3#.. LDA#4.G#.|
00000360: 02 20 4A 53 52 54 4F 4D  5A 45 54 3B 23 23 23 23  |. JSRTOMZET;####|
00000370: 00 57 23 1C 02 20 53 54  58 53 43 52 2B 31 32 36  |.W#.. STXSCR+126|
00000380: 00 67 23 26 02 20 53 54  41 53 43 52 2B 31 32 35  |.g#&. STASCR+125|
00000390: 00 7D 23 30 02 20 4C 44  41 53 43 52 2B 31 33 31  |.}#0. LDASCR+131|
000003A0: 3B 20 4D 49 4E 2E 00 8A  23 3A 02 20 43 4D 50 23  |; MIN...#:. CMP#|
000003B0: 24 33 39 00 96 23 44 02  20 42 45 51 49 52 33 00  |$39..#D. BEQIR3.|
000003C0: A6 23 4E 02 20 49 4E 43  53 43 52 2B 31 33 31 00  |.#N. INCSCR+131.|
000003D0: B2 23 58 02 20 42 4E 45  49 52 37 00 C2 23 62 02  |.#X. BNEIR7..#b.|
000003E0: 49 52 33 20 4C 44 41 23  24 33 30 00 D2 23 6C 02  |IR3 LDA#$30..#l.|
000003F0: 20 53 54 41 53 43 52 2B  31 33 31 00 EA 23 76 02  | STASCR+131..#v.|
00000400: 20 4C 44 41 53 43 52 2B  31 33 30 3B 31 30 20 4D  | LDASCR+130;10 M|
00000410: 49 4E 2E 00 F7 23 80 02  20 43 4D 50 23 24 33 35  |IN...#.. CMP#$35|
00000420: 00 03 24 8A 02 20 42 45  51 49 52 34 00 13 24 94  |..$.. BEQIR4..$.|
00000430: 02 20 49 4E 43 53 43 52  2B 31 33 30 00 23 24 9E  |. INCSCR+130.#$.|
00000440: 02 49 52 33 41 20 42 4E  45 49 52 37 00 33 24 A8  |.IR3A BNEIR7.3$.|
00000450: 02 49 52 34 20 4C 44 41  23 24 33 30 00 43 24 B2  |.IR4 LDA#$30.C$.|
00000460: 02 20 53 54 41 53 43 52  2B 31 33 30 00 58 24 BC  |. STASCR+130.X$.|
00000470: 02 20 4C 44 41 53 43 52  2B 31 32 36 3B 20 55 55  |. LDASCR+126; UU|
00000480: 52 00 65 24 C6 02 20 43  4D 50 23 24 33 39 00 71  |R.e$.. CMP#$39.q|
00000490: 24 D0 02 20 42 45 51 49  52 35 00 7E 24 DA 02 20  |$.. BEQIR5.~$.. |
000004A0: 43 4D 50 23 24 33 34 00  8A 24 E4 02 20 42 45 51  |CMP#$34..$.. BEQ|
000004B0: 49 52 36 00 9E 24 EE 02  49 52 34 41 20 49 4E 43  |IR6..$..IR4A INC|
000004C0: 53 43 52 2B 31 32 36 00  AA 24 F8 02 20 42 4E 45  |SCR+126..$.. BNE|
000004D0: 49 52 37 00 BA 24 02 03  49 52 35 20 4C 44 41 23  |IR7..$..IR5 LDA#|
000004E0: 24 33 30 00 CA 24 0C 03  20 53 54 41 53 43 52 2B  |$30..$.. STASCR+|
000004F0: 31 32 36 00 E1 24 16 03  20 49 4E 43 53 43 52 2B  |126..$.. INCSCR+|
00000500: 31 32 35 3B 31 30 20 55  55 52 00 ED 24 20 03 20  |125;10 UUR..$ . |
00000510: 42 4E 45 49 52 37 00 00  25 2A 03 49 52 36 20 4C  |BNEIR7..%*.IR6 L|
00000520: 44 41 53 43 52 2B 31 32  35 00 0D 25 34 03 20 43  |DASCR+125..%4. C|
00000530: 4D 50 23 24 33 32 00 1A  25 3E 03 20 42 4E 45 49  |MP#$32..%>. BNEI|
00000540: 52 34 41 00 27 25 48 03  20 4C 44 41 23 24 33 30  |R4A.'%H. LDA#$30|
00000550: 00 37 25 52 03 20 53 54  41 53 43 52 2B 31 32 35  |.7%R. STASCR+125|
00000560: 00 47 25 5C 03 20 53 54  41 53 43 52 2B 31 32 36  |.G%\. STASCR+126|
00000570: 00 4D 25 66 03 3B 00 61  25 70 03 49 52 37 20 4C  |.M%f.;.a%p.IR7 L|
00000580: 44 58 24 30 46 3B 20 52  50 4D 00 72 25 7A 03 20  |DX$0F; RPM.r%z. |
00000590: 4C 44 41 44 41 30 52 50  4D 2C 58 00 80 25 84 03  |LDADA0RPM,X..%..|
000005A0: 20 4A 53 52 4F 4D 5A 45  54 00 90 25 8E 03 20 53  | JSROMZET..%.. S|
000005B0: 54 58 53 43 52 2B 34 33  37 00 A0 25 98 03 20 53  |TXSCR+437..%.. S|
000005C0: 54 41 53 43 52 2B 34 33  36 00 AF 25 A2 03 20 54  |TASCR+436..%.. T|
000005D0: 41 59 3B 20 42 41 4C 4B  00 BE 25 AC 03 20 4C 44  |AY; BALK..%.. LD|
000005E0: 41 42 41 4C 4B 2C 58 00  D0 25 B6 03 20 53 54 41  |ABALK,X..%.. STA|
000005F0: 53 43 52 2B 34 30 30 2C  59 00 D9 25 C0 03 20 54  |SCR+400,Y..%.. T|
00000600: 59 41 00 E5 25 CA 03 20  42 45 51 49 52 38 00 F2  |YA..%.. BEQIR8..|
00000610: 25 D4 03 20 4C 44 41 23  24 41 30 00 08 26 DE 03  |%.. LDA#$A0..&..|
00000620: 49 52 37 41 20 53 54 41  53 43 52 2B 33 39 39 2C  |IR7A STASCR+399,|
00000630: 59 00 11 26 E8 03 20 44  45 59 00 1E 26 F2 03 20  |Y..&.. DEY..&.. |
00000640: 42 4E 45 49 52 37 41 00  32 26 FC 03 49 52 38 20  |BNEIR7A.2&..IR8 |
00000650: 4C 44 58 24 30 43 3B 20  4B 4D 48 00 43 26 06 04  |LDX$0C; KMH.C&..|
00000660: 20 4C 44 41 44 41 30 4B  4D 48 2C 58 00 51 26 10  | LDADA0KMH,X.Q&.|
00000670: 04 20 4A 53 52 4F 4D 5A  45 54 00 61 26 1A 04 20  |. JSROMZET.a&.. |
00000680: 53 54 41 53 43 52 2B 32  33 39 00 6E 26 24 04 20  |STASCR+239.n&$. |
00000690: 41 4E 44 23 24 30 46 00  7B 26 2E 04 20 53 54 41  |AND#$0F.{&.. STA|
000006A0: 54 45 4D 50 00 87 26 38  04 20 4C 44 58 24 30 43  |TEMP..&8. LDX$0C|
000006B0: 00 98 26 42 04 20 4C 44  41 44 41 31 4B 4D 48 2C  |..&B. LDADA1KMH,|
000006C0: 58 00 A6 26 4C 04 20 4A  53 52 4F 4D 5A 45 54 00  |X..&L. JSROMZET.|
000006D0: B3 26 56 04 20 43 4D 50  23 24 33 30 00 BF 26 60  |.&V. CMP#$30..&`|
000006E0: 04 20 42 4E 45 49 52 39  00 CC 26 6A 04 20 4C 44  |. BNEIR9..&j. LD|
000006F0: 41 23 24 32 30 00 DF 26  74 04 49 52 39 20 53 54  |A#$20..&t.IR9 ST|
00000700: 58 53 43 52 2B 32 33 38  00 EF 26 7E 04 20 53 54  |XSCR+238..&~. ST|
00000710: 41 53 43 52 2B 32 33 37  00 02 27 88 04 20 41 4E  |ASCR+237..'.. AN|
00000720: 44 23 24 30 46 3B 20 42  41 4C 4B 00 10 27 92 04  |D#$0F; BALK..'..|
00000730: 20 53 54 41 54 45 4D 50  32 00 19 27 9C 04 20 54  | STATEMP2..'.. T|
00000740: 58 41 00 26 27 A6 04 20  41 4E 44 23 24 30 46 00  |XA.&'.. AND#$0F.|
00000750: 2F 27 B0 04 20 43 4C 43  00 3D 27 BA 04 20 41 44  |/'.. CLC.='.. AD|
00000760: 43 54 45 4D 50 32 00 46  27 C4 04 20 54 41 59 00  |CTEMP2.F'.. TAY.|
00000770: 53 27 CE 04 20 4C 44 58  54 45 4D 50 00 62 27 D8  |S'.. LDXTEMP.b'.|
00000780: 04 20 4C 44 41 42 41 4C  4B 2C 58 00 74 27 E2 04  |. LDABALK,X.t'..|
00000790: 20 53 54 41 53 43 52 2B  32 30 30 2C 59 00 81 27  | STASCR+200,Y..'|
000007A0: EC 04 20 4C 44 41 23 24  41 30 00 97 27 F6 04 49  |.. LDA#$A0..'..I|
000007B0: 52 31 30 20 53 54 41 53  43 52 2B 31 39 39 2C 59  |R10 STASCR+199,Y|
000007C0: 00 A0 27 00 05 20 44 45  59 00 AD 27 0A 05 20 42  |..'.. DEY..'.. B|
000007D0: 4E 45 49 52 31 30 00 C4  27 58 1B 54 4F 4D 5A 45  |NEIR10..'X.TOMZE|
000007E0: 54 20 53 54 41 54 49 41  3B 20 42 43 44 00 D6 27  |T STATIA; BCD..'|
000007F0: 62 1B 20 4C 44 41 54 49  44 3B 20 4E 41 41 52 00  |b. LDATID; NAAR.|
00000800: EB 27 6C 1B 4F 4D 5A 45  54 20 54 41 59 3B 20 41  |.'l.OMZET TAY; A|
00000810: 53 43 49 49 00 F8 27 76  1B 20 41 4E 44 23 24 30  |SCII..'v. AND#$0|
00000820: 46 00 05 28 80 1B 20 4F  52 41 23 24 33 30 00 0E  |F..(.. ORA#$30..|
00000830: 28 8A 1B 20 54 41 58 00  17 28 94 1B 20 54 59 41  |(.. TAX..(.. TYA|
00000840: 00 20 28 9E 1B 20 4C 53  52 00 29 28 A0 1B 20 4C  |. (.. LSR.)(.. L|
00000850: 53 52 00 32 28 A2 1B 20  4C 53 52 00 3B 28 A4 1B  |SR.2(.. LSR.;(..|
00000860: 20 4C 53 52 00 48 28 A8  1B 20 4F 52 41 23 24 33  | LSR.H(.. ORA#$3|
00000870: 30 00 51 28 B2 1B 20 52  54 53 00 5F 28 28 23 49  |0.Q(.. RTS._((#I|
00000880: 52 45 4E 44 20 50 4C 41  00 68 28 32 23 20 54 59  |REND PLA.h(2# TY|
00000890: 41 00 71 28 3C 23 20 50  4C 41 00 7A 28 46 23 20  |A.q(<# PLA.z(F# |
000008A0: 54 58 41 00 83 28 50 23  20 50 4C 41 00 8C 28 5A  |TXA..(P# PLA..(Z|
000008B0: 23 20 52 54 49 00 A8 28  54 24 42 41 4C 4B 20 2E  |# RTI..(T$BALK .|
000008C0: 42 59 32 34 38 2C 32 34  39 2C 32 35 30 2C 32 35  |BY248,249,250,25|
000008D0: 30 00 CA 28 5E 24 2E 42  59 20 20 20 32 35 31 2C  |0..(^$.BY   251,|
000008E0: 32 35 32 2C 32 35 33 2C  32 35 34 2C 32 35 34 2C  |252,253,254,254,|
000008F0: 32 35 35 00 00 00                                 |255...          |

X...D..BA $9000 ;IRQ-ROUTINE.. N..EQ IRQ
TEL = $0004 ;TELLER IRQ.8 X..EQ TEMP   =
 $0006 ;TEMPORARY.Z ...EQ TEMP2  = $0007
 ;TEMPORARY.~ ...EQ SCR    = $0400 ;VIDE
OSCHERM.. ...EQ DA0KMH = $C400 ;DATA KMH
 1.D ...EQ DA1KMH = $C500 ;DATA KMH 2.. 
...EQ DA0RPM = $C800 ;DATA RPM..! ..EQ T
IA    = $DF20 ;ADRES TIMER.,!...EQ TID  
  = $DF20 ;DATA TIMER.J!...EQ INPUT  = $
DFC0 ;INPUT.S!.. PHA.\!H. TXA.E!R. PHA.N
!.. TYA.W!.. PHA..!.. LDX#$0C; CLEAR..!.
. STXTID; IRQ..!.. LDATIA..!.. LDASCR+13
6; SEC..K!.. CMP#$39.W!". BEQIR1..!,. IN
CSCR+136..!6. BNEIR3A.."@.IR1 LDA#$30.."
J. STASCR+136.,"T. LDASCR+135;10 SEC..9"
^. CMP#$35.E"H. BEQIR2.U"R. INCSCR+135.B
"|. BNEIR3A.R"..IR2 LDA#$30..".. STASCR+
135.."..;.."..; UPDATE IC NAAR SCHERM.."
..;..".. LDA#0.I"B. JSRTOMZET;####.Y"L. 
STXSCR+136.."V. STASCR+135..".. LDA#2..#
.. JSRTOMZET;####..#.. STXSCR+131.(#.. S
TASCR+130.3#.. LDA#4.G#.. JSRTOMZET;####
.W#.. STXSCR+126.G#&. STASCR+125.}#0. LD
ASCR+131; MIN...#:. CMP#$39..#D. BEQIR3.
.#N. INCSCR+131..#X. BNEIR7.B#B.IR3 LDA#
$30.R#L. STASCR+131..#V. LDASCR+130;10 M
IN...#.. CMP#$35..$.. BEQIR4..$.. INCSCR
+130.#$..IR3A BNEIR7.3$..IR4 LDA#$30.C$.
. STASCR+130.X$.. LDASCR+126; UUR.E$F. C
MP#$39.Q$P. BEQIR5.~$Z. CMP#$34..$.. BEQ
IR6..$..IR4A INCSCR+126..$.. BNEIR7..$..
IR5 LDA#$30.J$.. STASCR+126..$.. INCSCR+
125;10 UUR..$ . BNEIR7..%*.IR6 LDASCR+12
5..%4. CMP#$32..%>. BNEIR4A.'%H. LDA#$30
.7%R. STASCR+125.G%\. STASCR+126.M%F.;.A
%P.IR7 LDX$0F; RPM.R%Z. LDADA0RPM,X..%..
 JSROMZET..%.. STXSCR+437. %.. STASCR+43
6..%.. TAY; BALK..%.. LDABALK,X.P%.. STA
SCR+400,Y.Y%.. TYA..%J. BEQIR8..%T. LDA#
$A0..&..IR7A STASCR+399,Y..&.. DEY..&.. 
BNEIR7A.2&..IR8 LDX$0C; KMH.C&.. LDADA0K
MH,X.Q&.. JSROMZET.A&.. STASCR+239.N&$. 
AND#$0F.{&.. STATEMP..&8. LDX$0C..&B. LD
ADA1KMH,X..&L. JSROMZET..&V. CMP#$30..&`
. BNEIR9.L&J. LDA#$20..&T.IR9 STXSCR+238
..&~. STASCR+237..'.. AND#$0F; BALK..'..
 STATEMP2..'.. TXA.&'.. AND#$0F./'.. CLC
.='.. ADCTEMP2.F'D. TAY.S'N. LDXTEMP.B'X
. LDABALK,X.T'.. STASCR+200,Y..'.. LDA#$
A0..'..IR10 STASCR+199,Y. '.. DEY..'.. B
NEIR10.D'X.TOMZET STATIA; BCD.V'B. LDATI
D; NAAR..'L.OMZET TAY; ASCII..'V. AND#$0
F..(.. ORA#$30..(.. TAX..(.. TYA. (.. LS
R.)( . LSR.2(.. LSR.;(.. LSR.H(.. ORA#$3
0.Q(.. RTS._((#IREND PLA.H(2# TYA.Q(<# P
LA.Z(F# TXA..(P# PLA..(Z# RTI..(T$BALK .
BY248,249,250,250.J(^$.BY   251,252,253,
254,254,255...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL