Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape18b_acorn_eu_1991_january.wav » R.Errors
R.Errors
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape18b_acorn_eu_1991_january.wav |
| Filename: | R.Errors |
| Read OK: | ✔ |
| File size: | 0216 bytes |
| Load address: | FFFF1900 |
| Exec address: | FFFF802B |
Duplicates
There are 2 duplicate copies of this file in the archive:
- AEW website » mu » mu_5_25_discs_Micro_User_08_11_D-MU08_11.ssd » R.Errors
- Personal collection » Acorn tapes » Electron_User » Electron_User_tape18a_acorn_eu_1991_january.wav » R.Errors
- Personal collection » Acorn tapes » Electron_User » Electron_User_tape18b_acorn_eu_1991_january.wav » R.Errors
File contents
10REM Customised error messsages
20REM by Douglas Boffey
30REM (c) The Micro User
40REM January 1991
50PROCerr(8,"Error!!! Error!!!")
60END
1000DEF PROCerr(?&101,$&102)
1010?(&102+LEN($&102))=0:?&100=0
1020FOR pass=0 TO 2 STEP 2
1030P%=&900:[OPT pass
1040TSX:CPX #&FC:BCC ok
1050.err
1060BRK:OPT FNequb(13):OPT FNequs("No "):OPT FNequb(&F2):BRK
1070.ok
1080LDA &1FF:CMP #&F2:BNE err
1090PLA:PLA:PLA:PLA:PLA:PLA:PLA:PLA
1100PLA:STA &C:PLA:STA &B:PLA:STA &A
1110JMP &100:]:NEXT:CALL &900
1120ENDPROC
1130DEF FNequb(S%)
1140?P%=S%:P%=P%+1:=pass
1150DEF FNequs(S$)
1160$P%=S$:P%=P%+LEN(S$):=pass
� Customised error messsages
� by Douglas Boffey
� (c) The Micro User
(� January 1991
2 �err(8,"Error!!! Error!!!")
<�
�� �err(?&101,$&102)
� ?(&102+�($&102))=0:?&100=0
�� pass=0 � 2 � 2
P%=&900:[OPT pass
TSX:CPX #&FC:BCC ok
.err
$9BRK:OPT �equb(13):OPT �equs("No "):OPT �equb(&F2):BRK
..ok
8 LDA &1FF:CMP #&F2:BNE err
B#PLA:PLA:PLA:PLA:PLA:PLA:PLA:PLA
L$PLA:STA &C:PLA:STA &B:PLA:STA &A
VJMP &100:]:�:� &900
`�
j� �equb(S%)
t?P%=S%:P%=P%+1:=pass
~� �equs(S$)
� $P%=S$:P%=P%+�(S$):=pass
� 00000000 0d 00 0a 20 f4 20 43 75 73 74 6f 6d 69 73 65 64 |... . Customised|
00000010 20 65 72 72 6f 72 20 6d 65 73 73 73 61 67 65 73 | error messsages|
00000020 0d 00 14 17 f4 20 62 79 20 44 6f 75 67 6c 61 73 |..... by Douglas|
00000030 20 42 6f 66 66 65 79 0d 00 1e 18 f4 20 28 63 29 | Boffey..... (c)|
00000040 20 54 68 65 20 4d 69 63 72 6f 20 55 73 65 72 0d | The Micro User.|
00000050 00 28 12 f4 20 4a 61 6e 75 61 72 79 20 31 39 39 |.(.. January 199|
00000060 31 0d 00 32 1f f2 65 72 72 28 38 2c 22 45 72 72 |1..2..err(8,"Err|
00000070 6f 72 21 21 21 20 45 72 72 6f 72 21 21 21 22 29 |or!!! Error!!!")|
00000080 0d 00 3c 05 e0 0d 03 e8 17 dd 20 f2 65 72 72 28 |..<....... .err(|
00000090 3f 26 31 30 31 2c 24 26 31 30 32 29 0d 03 f2 1e |?&101,$&102)....|
000000a0 3f 28 26 31 30 32 2b a9 28 24 26 31 30 32 29 29 |?(&102+.($&102))|
000000b0 3d 30 3a 3f 26 31 30 30 3d 30 0d 03 fc 14 e3 20 |=0:?&100=0..... |
000000c0 70 61 73 73 3d 30 20 b8 20 32 20 88 20 32 0d 04 |pass=0 . 2 . 2..|
000000d0 06 15 50 25 3d 26 39 30 30 3a 5b 4f 50 54 20 70 |..P%=&900:[OPT p|
000000e0 61 73 73 0d 04 10 17 54 53 58 3a 43 50 58 20 23 |ass....TSX:CPX #|
000000f0 26 46 43 3a 42 43 43 20 6f 6b 0d 04 1a 08 2e 65 |&FC:BCC ok.....e|
00000100 72 72 0d 04 24 39 42 52 4b 3a 4f 50 54 20 a4 65 |rr..$9BRK:OPT .e|
00000110 71 75 62 28 31 33 29 3a 4f 50 54 20 a4 65 71 75 |qub(13):OPT .equ|
00000120 73 28 22 4e 6f 20 22 29 3a 4f 50 54 20 a4 65 71 |s("No "):OPT .eq|
00000130 75 62 28 26 46 32 29 3a 42 52 4b 0d 04 2e 07 2e |ub(&F2):BRK.....|
00000140 6f 6b 0d 04 38 1d 4c 44 41 20 26 31 46 46 3a 43 |ok..8.LDA &1FF:C|
00000150 4d 50 20 23 26 46 32 3a 42 4e 45 20 65 72 72 0d |MP #&F2:BNE err.|
00000160 04 42 23 50 4c 41 3a 50 4c 41 3a 50 4c 41 3a 50 |.B#PLA:PLA:PLA:P|
00000170 4c 41 3a 50 4c 41 3a 50 4c 41 3a 50 4c 41 3a 50 |LA:PLA:PLA:PLA:P|
00000180 4c 41 0d 04 4c 24 50 4c 41 3a 53 54 41 20 26 43 |LA..L$PLA:STA &C|
00000190 3a 50 4c 41 3a 53 54 41 20 26 42 3a 50 4c 41 3a |:PLA:STA &B:PLA:|
000001a0 53 54 41 20 26 41 0d 04 56 17 4a 4d 50 20 26 31 |STA &A..V.JMP &1|
000001b0 30 30 3a 5d 3a ed 3a d6 20 26 39 30 30 0d 04 60 |00:]:.:. &900..`|
000001c0 05 e1 0d 04 6a 0f dd 20 a4 65 71 75 62 28 53 25 |....j.. .equb(S%|
000001d0 29 0d 04 74 18 3f 50 25 3d 53 25 3a 50 25 3d 50 |)..t.?P%=S%:P%=P|
000001e0 25 2b 31 3a 3d 70 61 73 73 0d 04 7e 0f dd 20 a4 |%+1:=pass..~.. .|
000001f0 65 71 75 73 28 53 24 29 0d 04 88 1c 24 50 25 3d |equs(S$)....$P%=|
00000200 53 24 3a 50 25 3d 50 25 2b a9 28 53 24 29 3a 3d |S$:P%=P%+.(S$):=|
00000210 70 61 73 73 0d ff |pass..|
00000216 
.