TRAP

FILE INFORMATION

FILENAME(S): TRAP

FILE TYPE(S): PRG

FILE SIZE: 1.8K

FIRST SEEN: 2025-11-30 21:12:22

APPEARS ON: 1 disk(s)

FILE HASH

02b33995162625edcf8c0ad8c453ea055ab34d878d56f39941270bf7b738b91e

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
RANS ISK2	TRAP	PRG	DuncanTwain	32	5	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 29 08 00 00 8F 20  54 52 41 50 20 28 57 49  |..).... TRAP (WI|
00000010: 4C 4C 49 41 4D 20 54 55  52 4E 45 52 29 20 20 20  |LLIAM TURNER)   |
00000020: 20 20 20 20 20 20 20 20  3A 00 2F 08 01 00 3A 00  |        :./...:.|
00000030: 4F 08 02 00 8F 20 20 31  20 53 54 41 54 45 4D 45  |O....  1 STATEME|
00000040: 4E 54 2C 20 32 20 46 55  4E 43 54 49 4F 4E 53 00  |NT, 2 FUNCTIONS.|
00000050: 55 08 03 00 3A 00 72 08  04 00 8F 20 4B 45 59 57  |U...:.r.... KEYW|
00000060: 4F 52 44 20 43 48 41 52  41 43 54 45 52 53 3A 20  |ORD CHARACTERS: |
00000070: 31 35 00 78 08 05 00 3A  00 9F 08 06 00 8F 20 4B  |15.x...:...... K|
00000080: 45 59 57 4F 52 44 20 20  20 52 4F 55 54 49 4E 45  |EYWORD   ROUTINE|
00000090: 20 20 20 4C 49 4E 45 20  20 20 53 45 52 20 23 00  |   LINE   SER #.|
000000A0: C5 08 07 00 8F 20 53 2F  54 52 41 50 20 20 20 20  |..... S/TRAP    |
000000B0: 54 52 41 20 20 20 20 20  20 31 32 35 34 34 20 20  |TRA      12544  |
000000C0: 20 20 31 37 32 00 EB 08  08 00 8F 20 46 2F 45 52  |  172...... F/ER|
000000D0: 52 4F 52 20 20 20 45 52  52 4F 20 20 20 20 20 31  |ROR   ERRO     1|
000000E0: 32 36 36 36 20 20 20 20  31 37 33 00 11 09 09 00  |2666    173.....|
000000F0: 8F 20 46 2F 45 52 52 4C  49 4E 20 20 45 52 52 4C  |. F/ERRLIN  ERRL|
00000100: 20 20 20 20 20 31 32 36  37 32 20 20 20 20 31 37  |     12672    17|
00000110: 34 00 17 09 0A 00 3A 00  3E 09 0B 00 8F 20 3D 3D  |4.....:.>.... ==|
00000120: 3D 3D 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 3D 3D 3D  |================|
00000130: 3D 3D 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 3D 00 44  |==============.D|
00000140: 09 0C 00 3A 00 52 09 9A  00 2E C6 20 22 54 52 41  |...:.R..... "TRA|
00000150: D0 22 00 67 09 6F 02 2E  C6 20 22 45 52 52 4F D2  |.".g.o... "ERRO.|
00000160: 45 52 52 4C 49 CE 22 00  76 09 82 04 2E 57 B0 44  |ERRLI.".v....W.D|
00000170: 20 54 52 41 AB 31 00 8D  09 57 06 2E 57 B0 44 20  | TRA.1...W..W.D |
00000180: 45 52 52 4F AB 31 2C 45  52 52 4C AB 31 00 9B 09  |ERRO.1,ERRL.1...|
00000190: 4D 08 4A 53 52 20 4D B0  56 45 43 00 AA 09 FB 09  |M.JSR M.VEC.....|
000001A0: 4A 53 52 20 4B 49 4C 56  45 43 00 B7 09 CA 23 4D  |JSR KILVEC....#M|
000001B0: B0 56 45 43 20 B2 AC 00  C4 09 CC 23 4A 53 52 20  |.VEC ......#JSR |
000001C0: 41 55 A4 4E 00 D1 09 CE  23 4A 53 52 20 45 52 52  |AU.N....#JSR ERR|
000001D0: 91 00 D9 09 DA 23 52 54  53 00 DF 09 DC 23 3B 00  |.....#RTS....#;.|
000001E0: ED 09 DE 23 4B 49 4C 56  45 43 20 B2 AC 00 FB 09  |...#KILVEC .....|
000001F0: E0 23 4A 53 52 20 41 55  A4 46 46 00 0A 0A E2 23  |.#JSR AU.FF....#|
00000200: 4A 53 52 20 45 52 52 4F  46 46 00 12 0A EE 23 52  |JSR ERROFF....#R|
00000210: 54 53 00 18 0A F0 23 3B  00 3E 0A F2 23 41 55 A4  |TS....#;.>..#AU.|
00000220: 46 46 20 4C 44 41 20 57  52 4D 53 52 54 3B 46 52  |FF LDA WRMSRT;FR|
00000230: 4F 4D 20 44 2E 20 53 50  52 55 59 54 27 53 00 4B  |OM D. SPRUYT'S.K|
00000240: 0A F4 23 53 54 41 20 24  33 30 32 00 5C 0A F6 23  |..#STA $302.\..#|
00000250: 4C 44 41 20 57 52 4D 53  52 54 AA 31 00 69 0A F8  |LDA WRMSRT.1.i..|
00000260: 23 53 54 41 20 24 33 30  33 00 71 0A FA 23 52 54  |#STA $303.q..#RT|
00000270: 53 00 77 0A FC 23 3B 00  89 0A FE 23 41 55 A4 4E  |S.w..#;....#AU.N|
00000280: 20 4C 44 41 20 24 33 30  32 00 98 0A 00 24 53 54  | LDA $302....$ST|
00000290: 41 20 57 52 4D 53 52 54  00 A5 0A 02 24 4C 44 41  |A WRMSRT....$LDA|
000002A0: 20 24 33 30 33 00 B6 0A  04 24 53 54 41 20 57 52  | $303....$STA WR|
000002B0: 4D 53 52 54 AA 31 00 BE  0A 06 24 52 54 53 00 C4  |MSRT.1....$RTS..|
000002C0: 0A 10 24 3B 00 E1 0A 62  27 2E 8B 20 B1 28 AC 26  |..$;...b'.. .(.&|
000002D0: 32 35 35 29 AA 31 3A 20  AC B2 AC AA 28 AC 26 31  |255).1: ....(.&1|
000002E0: 29 00 F3 0A 64 27 57 52  4D 53 52 54 20 2E 57 B0  |)...d'WRMSRT .W.|
000002F0: 44 20 30 00 F9 0A 66 27  3B 00 0B 0B 00 31 54 52  |D 0...f';....1TR|
00000300: 41 20 4A 53 52 20 24 41  44 38 41 00 19 0B 02 31  |A JSR $AD8A....1|
00000310: 4A 53 52 20 24 42 37 46  37 00 26 0B 04 31 53 54  |JSR $B7F7.&..1ST|
00000320: 59 20 54 4C 49 4E 00 35  0B 06 31 53 54 41 20 54  |Y TLIN.5..1STA T|
00000330: 4C 49 4E AA 31 00 3D 0B  08 31 54 41 58 00 4A 0B  |LIN.1.=..1TAX.J.|
00000340: 0A 31 42 4E 45 20 54 52  41 31 00 52 0B 0C 31 54  |.1BNE TRA1.R..1T|
00000350: 59 41 00 61 0B 0E 31 42  45 51 20 45 52 52 4F 46  |YA.a..1BEQ ERROF|
00000360: 46 00 85 0B 10 31 54 52  41 31 20 42 49 54 20 54  |F....1TRA1 BIT T|
00000370: 52 46 4C 41 47 3B 54 45  53 54 20 54 52 41 50 20  |RFLAG;TEST TRAP |
00000380: 91 20 4E 4F 57 00 92 0B  12 31 42 4D 49 20 54 52  |. NOW....1BMI TR|
00000390: 41 32 00 9F 0B 14 31 4C  44 41 20 23 B3 A2 56 00  |A2....1LDA #..V.|
000003A0: AC 0B 16 31 4C 44 59 20  23 B1 A2 56 00 BA 0B 18  |...1LDY #..V....|
000003B0: 31 53 54 41 20 24 30 33  30 30 00 C8 0B 1A 31 53  |1STA $0300....1S|
000003C0: 54 59 20 24 30 33 30 31  00 D7 0B 1C 31 4C 44 41  |TY $0301....1LDA|
000003D0: 20 23 B3 57 41 52 4D 00  E6 0B 1E 31 4C 44 59 20  | #.WARM....1LDY |
000003E0: 23 B1 57 41 52 4D 00 F4  0B 20 31 53 54 41 20 24  |#.WARM... 1STA $|
000003F0: 30 33 30 32 00 02 0C 22  31 53 54 59 20 24 30 33  |0302..."1STY $03|
00000400: 30 33 00 0F 0C 24 31 4C  44 41 20 23 24 38 30 00  |03...$1LDA #$80.|
00000410: 1E 0C 26 31 53 54 41 20  54 52 46 4C 41 47 00 2B  |..&1STA TRFLAG.+|
00000420: 0C 28 31 54 52 41 32 20  52 54 53 00 31 0C 2A 31  |.(1TRA2 RTS.1.*1|
00000430: 3B 00 41 0C 2C 31 A2 56  20 42 4D 49 20 57 41 52  |;.A.,1.V BMI WAR|
00000440: 4D 00 4F 0C 2E 31 53 54  58 20 45 52 52 4E 4F 00  |M.O..1STX ERRNO.|
00000450: 5B 0C 30 31 4C 44 41 20  24 33 39 00 67 0C 32 31  |[.01LDA $39.g.21|
00000460: 4C 44 59 20 24 33 41 00  75 0C 34 31 53 54 41 20  |LDY $3A.u.41STA |
00000470: 45 4C 49 4E 45 00 85 0C  36 31 53 54 59 20 45 4C  |ELINE...61STY EL|
00000480: 49 4E 45 AA 31 00 94 0C  38 31 42 49 54 20 54 52  |INE.1...81BIT TR|
00000490: 46 4C 41 47 00 A1 0C 3A  31 42 50 4C 20 45 4F 55  |FLAG...:1BPL EOU|
000004A0: 54 00 AE 0C 3C 31 4C 44  41 20 54 4C 49 4E 00 BD  |T...<1LDA TLIN..|
000004B0: 0C 3E 31 4C 44 59 20 54  4C 49 4E AA 31 00 C9 0C  |.>1LDY TLIN.1...|
000004C0: 40 31 53 54 41 20 24 31  34 00 D5 0C 42 31 53 54  |@1STA $14...B1ST|
000004D0: 59 20 24 31 35 00 E2 0C  44 31 4C 44 58 20 23 24  |Y $15...D1LDX #$|
000004E0: 46 41 00 EA 0C 46 31 54  58 53 00 F7 0C 48 31 4C  |FA...F1TXS...H1L|
000004F0: 44 41 20 23 24 41 37 00  FF 0C 4A 31 50 48 41 00  |DA #$A7...J1PHA.|
00000500: 0C 0D 4C 31 4C 44 41 20  23 24 41 44 00 14 0D 4E  |..L1LDA #$AD...N|
00000510: 31 50 48 41 00 22 0D 50  31 4A 4D 50 20 24 41 38  |1PHA.".P1JMP $A8|
00000520: 41 33 00 28 0D 52 31 3B  00 3C 0D 54 31 57 41 52  |A3.(.R1;.<.T1WAR|
00000530: 4D 20 4A 53 52 20 45 52  52 4F 46 46 00 4A 0D 56  |M JSR ERROFF.J.V|
00000540: 31 4A 53 52 20 41 55 A4  46 46 00 5A 0D 58 31 3B  |1JSR AU.FF.Z.X1;|
00000550: 4A 53 52 20 4F 57 4E 52  54 4E 00 67 0D 5A 31 4C  |JSR OWNRTN.g.Z1L|
00000560: 44 58 20 23 24 38 30 00  77 0D 5C 31 4A 4D 50 20  |DX #$80.w.\1JMP |
00000570: 28 24 30 33 30 30 29 00  7D 0D 5E 31 3B 00 93 0D  |($0300).}.^1;...|
00000580: 60 31 45 52 52 4F 46 46  20 4C 44 41 20 45 52 52  |`1ERROFF LDA ERR|
00000590: 56 45 43 00 A4 0D 62 31  4C 44 59 20 45 52 52 56  |VEC...b1LDY ERRV|
000005A0: 45 43 AA 31 00 B2 0D 64  31 53 54 41 20 24 30 33  |EC.1...d1STA $03|
000005B0: 30 30 00 C0 0D 66 31 53  54 59 20 24 30 33 30 31  |00...f1STY $0301|
000005C0: 00 CF 0D 68 31 4C 53 52  20 54 52 46 4C 41 47 00  |...h1LSR TRFLAG.|
000005D0: D7 0D 6A 31 52 54 53 00  DD 0D 6C 31 3B 00 EF 0D  |..j1RTS...l1;...|
000005E0: 6E 31 45 52 52 91 20 4C  44 41 20 24 33 30 30 00  |n1ERR. LDA $300.|
000005F0: FC 0D 70 31 4C 44 59 20  24 33 30 31 00 0B 0E 72  |..p1LDY $301...r|
00000600: 31 53 54 41 20 45 52 52  56 45 43 00 1C 0E 74 31  |1STA ERRVEC...t1|
00000610: 53 54 59 20 45 52 52 56  45 43 AA 31 00 24 0E 76  |STY ERRVEC.1.$.v|
00000620: 31 52 54 53 00 2A 0E 78  31 3B 00 3D 0E 7A 31 45  |1RTS.*.x1;.=.z1E|
00000630: 52 52 4F 20 4C 44 59 20  45 52 52 4E 4F 00 4B 0E  |RRO LDY ERRNO.K.|
00000640: 7C 31 4A 4D 50 20 24 42  33 41 32 00 51 0E 7E 31  ||1JMP $B3A2.Q.~1|
00000650: 3B 00 64 0E 80 31 45 52  52 4C 20 4C 44 59 20 45  |;.d..1ERRL LDY E|
00000660: 4C 49 4E 45 00 74 0E 82  31 4C 44 41 20 45 4C 49  |LINE.t..1LDA ELI|
00000670: 4E 45 AA 31 00 81 0E 84  31 4A 4D 50 20 55 53 46  |NE.1....1JMP USF|
00000680: 50 00 87 0E 86 31 3B 00  9E 0E 88 31 45 4F 55 54  |P....1;....1EOUT|
00000690: 20 2E 42 59 54 45 20 24  34 43 3B 4A 4D 50 00 BF  | .BYTE $4C;JMP..|
000006A0: 0E 8A 31 45 52 52 56 45  43 20 2E 57 B0 44 20 30  |..1ERRVEC .W.D 0|
000006B0: 3B 4F 4C 44 20 45 52 52  B0 20 56 45 43 A4 52 00  |;OLD ERR. VEC.R.|
000006C0: DB 0E 8C 31 54 4C 49 4E  20 20 20 2E 57 B0 44 20  |...1TLIN   .W.D |
000006D0: 30 3B 54 52 41 50 20 4C  49 4E 45 00 FA 0E 8E 31  |0;TRAP LINE....1|
000006E0: 45 52 52 4E 4F 20 20 2E  42 59 54 45 20 30 3B 45  |ERRNO  .BYTE 0;E|
000006F0: 52 52 B0 20 4E 55 4D 42  45 52 00 1C 0F 90 31 45  |RR. NUMBER....1E|
00000700: 4C 49 4E 45 20 20 2E 57  B0 44 20 30 3B 45 52 52  |LINE  .W.D 0;ERR|
00000710: 91 45 4F 55 53 20 4C 49  4E 45 20 23 00 3D 0F 92  |.EOUS LINE #.=..|
00000720: 31 54 52 46 4C 41 47 20  2E 42 59 54 45 20 30 3B  |1TRFLAG .BYTE 0;|
00000730: 54 52 41 50 20 53 45 54  20 46 4C 41 47 00 43 0F  |TRAP SET FLAG.C.|
00000740: 94 31 3B 00 00 00                                 |.1;...          |

..).... TRAP (WILLIAM TURNER)           
:./...:.O....  1 STATEMENT, 2 FUNCTIONS.
U...:.R.... KEYWORD CHARACTERS: 15.X...:
...... KEYWORD   ROUTINE   LINE   SER #.
E.... S/TRAP    TRA      12544    172...
... F/ERROR   ERRO     12666    173.....
. F/ERRLIN  ERRL     12672    174.....:.
>.... ================================.D
...:.R....F "TRAP".G.O..F "ERRORERRLIN".
V....W.D TRA.1...W..W.D ERRO.1,ERRL.1...
M.JSR M.VEC.....JSR KILVEC...J#M.VEC ...
D.L#JSR AU.N.Q.N#JSR ERR..Y.Z#RTS....#;.
...#KILVEC ......#JSR AU.FF....#JSR ERRO
FF....#RTS....#;.>..#AU.FF LDA WRMSRT;FR
OM D. SPRUYT'S.K..#STA $302.\..#LDA WRMS
RT.1.I..#STA $303.Q..#RTS.W..#;....#AU.N
 LDA $302....$STA WRMSRT....$LDA $303...
.$STA WRMSRT.1....$RTS.D..$;...B'.. .(.&
255).1: ....(.&1)...D'WRMSRT .W.D 0...F'
;....1TRA JSR $AD8A....1JSR $B7F7.&..1ST
Y TLIN.5..1STA TLIN.1.=..1TAX.J..1BNE TR
A1.R..1TYA.A..1BEQ ERROFF....1TRA1 BIT T
RFLAG;TEST TRAP . NOW....1BMI TRA2....1L
DA #..V....1LDY #..V....1STA $0300.H..1S
TY $0301.W..1LDA #.WARM....1LDY #.WARM..
. 1STA $0302..."1STY $0303...$1LDA #$80.
..&1STA TRFLAG.+.(1TRA2 RTS.1.*1;.A.,1.V
 BMI WARM.O..1STX ERRNO.[.01LDA $39.G.21
LDY $3A.U.41STA ELINE...61STY ELINE.1...
81BIT TRFLAG...:1BPL EOUT...<1LDA TLIN..
.>1LDY TLIN.1.I.@1STA $14.U.B1STY $15...
D1LDX #$FA...F1TXS...H1LDA #$A7...J1PHA.
..L1LDA #$AD...N1PHA.".P1JMP $A8A3.(.R1;
.<.T1WARM JSR ERROFF.J.V1JSR AU.FF.Z.X1;
JSR OWNRTN.G.Z1LDX #$80.W.\1JMP ($0300).
}.^1;...`1ERROFF LDA ERRVEC...B1LDY ERRV
EC.1...D1STA $0300...F1STY $0301.O.H1LSR
 TRFLAG.W.J1RTS...L1;...N1ERR. LDA $300.
..P1LDY $301...R1STA ERRVEC...T1STY ERRV
EC.1.$.V1RTS.*.X1;.=.Z1ERRO LDY ERRNO.K.
|1JMP $B3A2.Q.~1;.D..1ERRL LDY ELINE.T..
1LDA ELINE.1....1JMP USFP....1;....1EOUT
 .BYTE $4C;JMP....1ERRVEC .W.D 0;OLD ERR
. VEC.R....1TLIN   .W.D 0;TRAP LINE....1
ERRNO  .BYTE 0;ERR. NUMBER....1ELINE  .W
.D 0;ERR.EOUS LINE #.=..1TRFLAG .BYTE 0;
TRAP SET FLAG.C..1;...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL