Home » CEEFAX disks » telesoftware17.adl » 04-08-89/B\Dial
04-08-89/B\Dial
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 » CEEFAX disks » telesoftware17.adl |
| Filename: | 04-08-89/B\Dial |
| Read OK: | ✔ |
| File size: | 1DEB bytes |
| Load address: | 3000 |
| Exec address: | 8023 |
File contents
10REM PROGRAMME "DIAL" ASSEMBLY
20REM BY R.D.WRIGHT
30REM 18/10/88
40MODE7
50IF PAGE=&3000 THEN 80
60PRINT "RESET PAGE TO &3000"
70STOP
80OSBYTE=&FFF4
90OSWORD=&FFF1
100OSWRCH=&FFEE
110MP=&80
120EVENTV=&220
130CLS
140PRINT"DIAL ASSEMBLY - 6502 CODE FILE WILL"
150PRINT"BE SAVED ON CURRENT DISC DRIVE"
160PRINT"PROGRAMME LENGTH IS &21D BYTES"
170INPUT"HEXADECIMAL START ADDRESS",P$
180PRINT"PRESS SPACEBAR TO CONTINUE"
190C%=GET:IF C%<>32 THEN 190
200PROCASSEMBLE
210PRINT"ASSEMBLY COMPLETE"
220OSCLI("SAVE DIAL "+P$+" +021D "+P$)
230PRINT"DIAL 6502 CODE FILE SAVED"
240END
250DEF PROCASSEMBLE
260FOR PASS%=0 TO 2 STEP 2
270P%=EVAL("&"+P$)
280[OPT PASS%
290.DIAL JSR RESET \Reset modem
300 LDX# &F2 \Get page zero command line pointer in
310 LDY# &00 \I/O processor and put it in
320 JSR RIO \CSPL and CSPH
330 STA CSPL
340 LDX# &F3
350 LDY# &00
360 JSR RIO
370 STA CSPH
380 JSR DCD \Check whether modem is ready
390 BNE D1
400 LDX# M1 MOD &100 \No power or no connection
410 LDY# M1 DIV &100 \So, give message, reset, and exit.
420 JSR MSG \
430 JMP EXIT \
440.D1 CMP# &01
450 BEQ D2
460 LDX# M2 MOD &100 \Unexpected return byte from DCD check
470 LDY# M2 DIV &100 \i.e. <> 0 or 1.
480 JSR MSG \Give warning, reset, and exit
490 JMP EXIT
500.D2 LDA# &07 \Set send and receive baud rates
510 LDX# &04 \
520 JSR OSBYTE \
530 LDA# &08 \
540 LDX# &01 \
550 JSR OSBYTE \
560 LDA# &0E \Enable timer event
570 LDX# &05 \
580 JSR OSBYTE \
590 LDA EVENTV \Store original event vector
600 STA OEVL \
610 LDA EVENTV+1 \
620 STA OEVH \
630 LDA# EHR MOD &100 \Redirect event vector to handling routine
640 STA EVENTV \
650 LDA# EHR DIV &100 \
660 STA EVENTV+1 \
670 JSR ST \Next state (connect modem to line)
680 CLC
690 LDA CSPL \Increment string pointer to 5th chr after
700 ADC# &04 \the * in *DIAL
710 STA CSPL \
720 LDA CSPH \
730 ADC# &00 \
740 STA CSPH \
750 LDX CSPL \
760 LDY CSPH \
770 JSR RIO \Get the chr
780 CMP# &0D \Is it a CR?
790 BNE D2A \If not, jump to dial routine
800 JSR ST \
810 JMP D20 \Otherwise skip dial routine
820.D2A LDX# T400 MOD &100 \4-Second delay
830 LDY# T400 DIV &100 \
840 LDA# &04 \
850 JSR OSWORD \
860 JSR WAIT \
870 JSR ST \Next state (commence dialling)
880.D3 INC CSPL \Increment string chr pointer
890 BNE D3A
900 INC CSPH
910.D3A LDX CSPL
920 LDY CSPH
930 JSR RIO
940 CMP# &0D \Last digit dialled, so
950 BEQ D20 \exit dial routine
960 CMP# &2D \Chr is "-", so
970 BEQ D15 \branch to interdigit delay routine
980 SEC
990 SBC# &30 \Ensure chr is a digit
1000 BEQ D4 \Zero is a special case....
1010 BPL D5 \
1020 JMP EXIT
1030.D4 LDA# &0A
1040 STA CTR
1050 JMP D7 \Dial routine
1060.D5 CMP# &0A \Zero becomes 10
1070 BCC D6 \Not a digit, so exit
1080 JMP EXIT
1090.D6 STA CTR
1100.D7 JSR WT85
1110 LDX CTR
1120 JSR DIGIT
1130 JMP D3
1140.D15 JSR WT85
1150 JMP D3
1160.D20 LDX# T9000 MOD &100 \Set up 90 seconds timeout period
1170 LDY# T9000 DIV &100
1180 LDA# &04
1190 JSR OSWORD
1200 LDA# &00 \Reset time-out flag byte
1210 STA CF \
1220 JSR ST \Step on to state 3
1230.D22 JSR DCD \Check for data carrier
1240 CMP# &01 \
1250 BEQ D24 \Present, so continue....
1260 LDA CF \Check whether timed out
1270 BEQ D22 \No, so return for DCD
1280.D23 LDX# M3 MOD &100 \Yes, so exit with explanation
1290 LDY# M3 DIV &100
1300 JSR MSG
1310 JMP EXIT
1320.D24 JSR ST \Step on-line
1330 JSR UNEV
1340 RTS \and return to calling programme
1350.M1 EQUS "Adaptor?"
1360 EQUB &07
1370 EQUB &0A
1380 EQUB &0D
1390.M2 EQUS "PRESTEL ROM problem"
1400 EQUB &07
1410 EQUB &0A
1420 EQUB &0D
1430.M3 EQUS "No data carrier"
1440 EQUB &07
1450 EQUB &0A
1460 EQUB &0D
1470.PB EQUB &00
1480.CF EQUB &00
1490.T400 EQUB &70
1500 EQUB &FE
1510 EQUB &FF
1520 EQUB &FF
1530 EQUB &FF
1540.T200 EQUB &38
1550 EQUB &FF
1560 EQUB &FF
1570 EQUB &FF
1580 EQUB &FF
1590.T85 EQUB &AB
1600 EQUB &FF
1610 EQUB &FF
1620 EQUB &FF
1630 EQUB &FF
1640.T9000 EQUB &D8
1650 EQUB &DC
1660 EQUB &FF
1670 EQUB &FF
1680 EQUB &FF
1690.CTR EQUB &00
1700.CSC EQUB &04
1710.DCTR EQUB &00
1720.CSPL EQUB &00
1730.CSPH EQUB &00
1740.IOPB EQUB &00
1750 EQUB &00
1760 EQUB &FF
1770 EQUB &FF
1780 EQUB &00
1790.OEVL EQUB &00
1800.OEVH EQUB &00
1810.WAIT LDA# &00
1820 STA CF
1830.W1 LDA CF
1840 CMP# &01
1850 BNE W1
1860 RTS
1870.EHR PHA
1880 TXA
1890 PHA
1900 TYA
1910 PHA
1920 LDA# &01
1930 STA CF
1940 PLA
1950 TAY
1960 PLA
1970 TAX
1980 PLA
1990 RTS
2000.CMD LDA# &7B
2010 LDX# PB MOD &100
2020 LDY# PB DIV &100
2030 JSR OSWORD
2040 RTS
2050.RESET LDA# &00
2060 STA PB
2070 JSR CMD
2080 RTS
2090.DCD LDA# &05
2100 STA PB
2110 JSR CMD
2120 LDA PB
2130 RTS
2140.ST LDA# &01
2150 STA PB
2160 JSR CMD
2170 RTS
2180.PULSE LDA# &02
2190 STA PB
2200 JSR CMD
2210 RTS
2220.SD LDA# &03
2230 STA PB
2240 JSR CMD
2250 RTS
2260.ED LDA# &04
2270 STA PB
2280 JSR CMD
2290 RTS
2300.DIGIT STX DCTR
2310 JSR SD
2320.DIG1 JSR PULSE
2330 DEC DCTR
2340 BNE DIG1
2350 JSR ED
2360 RTS
2370.WT85 LDX# T85 MOD &100
2380 LDY# T85 DIV &100
2390 LDA# &04
2400 JSR OSWORD
2410 JSR WAIT
2420 RTS
2430.MSG STX MP
2440 STY MP+1
2450 LDY# &00
2460.MSG1 LDA (MP),Y
2470 JSR OSWRCH
2480 INY
2490 CMP# &0D
2500 BNE MSG1
2510 RTS
2520.EXIT JSR RESET
2530 JSR UNEV
2540 RTS
2550.RIO STX IOPB
2560 STY IOPB+1
2570 LDX# IOPB MOD &100
2580 LDY# IOPB DIV &100
2590 LDA# &05
2600 JSR OSWORD
2610 LDA IOPB+4
2620 RTS
2630.UNEV LDA OEVL \Old event vector low byte
2640 STA EVENTV \Replace it
2650 LDA OEVH \Old event vector high byte
2660 STA EVENTV+1 \Replace it
2670 LDA# &0D \Disable timer event
2680 LDX# &05 \
2690 JSR OSBYTE \
2700 RTS
2710]
2720NEXT PASS%
2730ENDPROC
� PROGRAMME "DIAL" ASSEMBLY
� BY R.D.WRIGHT
� 18/10/88
(�7
2� �=&3000 � �DP@
<� "RESET PAGE TO &3000"
F�
POSBYTE=&FFF4
ZOSWORD=&FFF1
dOSWRCH=&FFEE
n
MP=&80
xEVENTV=&220
��
�*�"DIAL ASSEMBLY - 6502 CODE FILE WILL"
�%�"BE SAVED ON CURRENT DISC DRIVE"
�%�"PROGRAMME LENGTH IS &21D BYTES"
�$�"HEXADECIMAL START ADDRESS",P$
�!�"PRESS SPACEBAR TO CONTINUE"
�C%=�:� C%<>32 � �t~@
�
�ASSEMBLE
��"ASSEMBLY COMPLETE"
�#�("SAVE DIAL "+P$+" +021D "+P$)
� �"DIAL 6502 CODE FILE SAVED"
��
�� �ASSEMBLE
� PASS%=0 � 2 � 2
P%=�("&"+P$)
[OPT PASS%
"0.DIAL JSR RESET \Reset modem
,J LDX# &F2 \Get page zero command line pointer in
6@ LDY# &00 \I/O processor and put it in
@2 JSR RIO \CSPL and CSPH
J STA CSPL
T LDX# &F3
^ LDY# &00
h JSR RIO
r STA CSPH
|A JSR DCD \Check whether modem is ready
� BNE D1
�< LDX# M1 � &100 \No power or no connection
�E LDY# M1 � &100 \So, give message, reset, and exit.
�% JSR MSG \
�% JMP EXIT \
�.D1 CMP# &01
� BEQ D2
�H LDX# M2 � &100 \Unexpected return byte from DCD check
�3 LDY# M2 � &100 \i.e. <> 0 or 1.
�B JSR MSG \Give warning, reset, and exit
� JMP EXIT
�D.D2 LDA# &07 \Set send and receive baud rates
�% LDX# &04 \
% JSR OSBYTE \
% LDA# &08 \
% LDX# &01 \
&% JSR OSBYTE \
07 LDA# &0E \Enable timer event
:% LDX# &05 \
D% JSR OSBYTE \
N@ LDA EVENTV \Store original event vector
X% STA OEVL \
b% LDA EVENTV+1 \
l% STA OEVH \
vL LDA# EHR � &100 \Redirect event vector to handling routine
�% STA EVENTV \
�# LDA# EHR � &100 \
�% STA EVENTV+1 \
�G JSR ST \Next state (connect modem to line)
� CLC
�N LDA CSPL \Increment string pointer to 5th chr after
�3 ADC# &04 \the * in *DIAL
�% STA CSPL \
�% LDA CSPH \
�% ADC# &00 \
�% STA CSPH \
�% LDX CSPL \
�% LDY CSPH \
0 JSR RIO \Get the chr
1 CMP# &0D \Is it a CR?
A BNE D2A \If not, jump to dial routine
% JSR ST \
*@ JMP D20 \Otherwise skip dial routine
42.D2A LDX# T400 � &100 \4-Second delay
># LDY# T400 � &100 \
H% LDA# &04 \
R% JSR OSWORD \
\% JSR WAIT \
fC JSR ST \Next state (commence dialling)
pA.D3 INC CSPL \Increment string chr pointer
z BNE D3A
� INC CSPH
�.D3A LDX CSPL
� LDY CSPH
� JSR RIO
�; CMP# &0D \Last digit dialled, so
�6 BEQ D20 \exit dial routine
�3 CMP# &2D \Chr is "-", so
�G BEQ D15 \branch to interdigit delay routine
� SEC
�: SBC# &30 \Ensure chr is a digit
�? BEQ D4 \Zero is a special case....
�% BPL D5 \
� JMP EXIT
.D4 LDA# &0A
STA CTR
1 JMP D7 \Dial routine
$4.D5 CMP# &0A \Zero becomes 10
.9 BCC D6 \Not a digit, so exit
8 JMP EXIT
B.D6 STA CTR
L.D7 JSR WT85
V LDX CTR
` JSR DIGIT
j JMP D3
t.D15 JSR WT85
~ JMP D3
�E.D20 LDX# T9000 � &100 \Set up 90 seconds timeout period
� LDY# T9000 � &100
� LDA# &04
� JSR OSWORD
�= LDA# &00 \Reset time-out flag byte
�% STA CF \
�7 JSR ST \Step on to state 3
�;.D22 JSR DCD \Check for data carrier
�% CMP# &01 \
�= BEQ D24 \Present, so continue....
�< LDA CF \Check whether timed out
�: BEQ D22 \No, so return for DCD
@.D23 LDX# M3 � &100 \Yes, so exit with explanation
LDY# M3 � &100
JSR MSG
JMP EXIT
(1.D24 JSR ST \Step on-line
2 JSR UNEV
<D RTS \and return to calling programme
F.M1 EQUS "Adaptor?"
P EQUB &07
Z EQUB &0A
d EQUB &0D
n%.M2 EQUS "PRESTEL ROM problem"
x EQUB &07
� EQUB &0A
� EQUB &0D
�!.M3 EQUS "No data carrier"
� EQUB &07
� EQUB &0A
� EQUB &0D
�.PB EQUB &00
�.CF EQUB &00
�.T400 EQUB &70
� EQUB &FE
� EQUB &FF
� EQUB &FF
� EQUB &FF
.T200 EQUB &38
EQUB &FF
EQUB &FF
" EQUB &FF
, EQUB &FF
6.T85 EQUB &AB
@ EQUB &FF
J EQUB &FF
T EQUB &FF
^ EQUB &FF
h.T9000 EQUB &D8
r EQUB &DC
| EQUB &FF
� EQUB &FF
� EQUB &FF
�.CTR EQUB &00
�.CSC EQUB &04
�.DCTR EQUB &00
�.CSPL EQUB &00
�.CSPH EQUB &00
�.IOPB EQUB &00
� EQUB &00
� EQUB &FF
� EQUB &FF
� EQUB &00
�.OEVL EQUB &00
.OEVH EQUB &00
.WAIT LDA# &00
STA CF
&.W1 LDA CF
0 CMP# &01
: BNE W1
D RTS
N.EHR PHA
X TXA
b PHA
l TYA
v PHA
� LDA# &01
� STA CF
� PLA
� TAY
� PLA
� TAX
� PLA
� RTS
�.CMD LDA# &7B
� LDX# PB � &100
� LDY# PB � &100
� JSR OSWORD
� RTS
.RESET LDA# &00
STA PB
JSR CMD
RTS
*.DCD LDA# &05
4 STA PB
> JSR CMD
H LDA PB
R RTS
\.ST LDA# &01
f STA PB
p JSR CMD
z RTS
�.PULSE LDA# &02
� STA PB
� JSR CMD
� RTS
�.SD LDA# &03
� STA PB
� JSR CMD
� RTS
�.ED LDA# &04
� STA PB
� JSR CMD
� RTS
�.DIGIT STX DCTR
JSR SD
.DIG1 JSR PULSE
DEC DCTR
$ BNE DIG1
. JSR ED
8 RTS
B.WT85 LDX# T85 � &100
L LDY# T85 � &100
V LDA# &04
` JSR OSWORD
j JSR WAIT
t RTS
~.MSG STX MP
� STY MP+1
� LDY# &00
�.MSG1 LDA (MP),Y
� JSR OSWRCH
� INY
� CMP# &0D
� BNE MSG1
� RTS
�.EXIT JSR RESET
� JSR UNEV
� RTS
�.RIO STX IOPB
STY IOPB+1
LDX# IOPB � &100
LDY# IOPB � &100
LDA# &05
( JSR OSWORD
2 LDA IOPB+4
< RTS
F>.UNEV LDA OEVL \Old event vector low byte
P/ STA EVENTV \Replace it
ZA LDA OEVH \Old event vector high byte
d/ STA EVENTV+1 \Replace it
n8 LDA# &0D \Disable timer event
x% LDX# &05 \
�% JSR OSBYTE \
� RTS
�]
� � PASS%
��
� 00000000 0d 00 0a 1f f4 20 50 52 4f 47 52 41 4d 4d 45 20 |..... PROGRAMME |
00000010 22 44 49 41 4c 22 20 41 53 53 45 4d 42 4c 59 0d |"DIAL" ASSEMBLY.|
00000020 00 14 13 f4 20 42 59 20 52 2e 44 2e 57 52 49 47 |.... BY R.D.WRIG|
00000030 48 54 0d 00 1e 0e f4 20 31 38 2f 31 30 2f 38 38 |HT..... 18/10/88|
00000040 0d 00 28 06 eb 37 0d 00 32 14 e7 20 90 3d 26 33 |..(..7..2.. .=&3|
00000050 30 30 30 20 8c 20 8d 44 50 40 0d 00 3c 1b f1 20 |000 . .DP@..<.. |
00000060 22 52 45 53 45 54 20 50 41 47 45 20 54 4f 20 26 |"RESET PAGE TO &|
00000070 33 30 30 30 22 0d 00 46 05 fa 0d 00 50 10 4f 53 |3000"..F....P.OS|
00000080 42 59 54 45 3d 26 46 46 46 34 0d 00 5a 10 4f 53 |BYTE=&FFF4..Z.OS|
00000090 57 4f 52 44 3d 26 46 46 46 31 0d 00 64 10 4f 53 |WORD=&FFF1..d.OS|
000000a0 57 52 43 48 3d 26 46 46 45 45 0d 00 6e 0a 4d 50 |WRCH=&FFEE..n.MP|
000000b0 3d 26 38 30 0d 00 78 0f 45 56 45 4e 54 56 3d 26 |=&80..x.EVENTV=&|
000000c0 32 32 30 0d 00 82 05 db 0d 00 8c 2a f1 22 44 49 |220........*."DI|
000000d0 41 4c 20 41 53 53 45 4d 42 4c 59 20 2d 20 36 35 |AL ASSEMBLY - 65|
000000e0 30 32 20 43 4f 44 45 20 46 49 4c 45 20 57 49 4c |02 CODE FILE WIL|
000000f0 4c 22 0d 00 96 25 f1 22 42 45 20 53 41 56 45 44 |L"...%."BE SAVED|
00000100 20 4f 4e 20 43 55 52 52 45 4e 54 20 44 49 53 43 | ON CURRENT DISC|
00000110 20 44 52 49 56 45 22 0d 00 a0 25 f1 22 50 52 4f | DRIVE"...%."PRO|
00000120 47 52 41 4d 4d 45 20 4c 45 4e 47 54 48 20 49 53 |GRAMME LENGTH IS|
00000130 20 26 32 31 44 20 42 59 54 45 53 22 0d 00 aa 24 | &21D BYTES"...$|
00000140 e8 22 48 45 58 41 44 45 43 49 4d 41 4c 20 53 54 |."HEXADECIMAL ST|
00000150 41 52 54 20 41 44 44 52 45 53 53 22 2c 50 24 20 |ART ADDRESS",P$ |
00000160 0d 00 b4 21 f1 22 50 52 45 53 53 20 53 50 41 43 |...!."PRESS SPAC|
00000170 45 42 41 52 20 54 4f 20 43 4f 4e 54 49 4e 55 45 |EBAR TO CONTINUE|
00000180 22 0d 00 be 18 43 25 3d a5 3a e7 20 43 25 3c 3e |"....C%=.:. C%<>|
00000190 33 32 20 8c 20 8d 74 7e 40 0d 00 c8 0d f2 41 53 |32 . .t~@.....AS|
000001a0 53 45 4d 42 4c 45 0d 00 d2 19 f1 22 41 53 53 45 |SEMBLE....."ASSE|
000001b0 4d 42 4c 59 20 43 4f 4d 50 4c 45 54 45 22 20 0d |MBLY COMPLETE" .|
000001c0 00 dc 23 ff 28 22 53 41 56 45 20 44 49 41 4c 20 |..#.("SAVE DIAL |
000001d0 22 2b 50 24 2b 22 20 2b 30 32 31 44 20 22 2b 50 |"+P$+" +021D "+P|
000001e0 24 29 0d 00 e6 20 f1 22 44 49 41 4c 20 36 35 30 |$)... ."DIAL 650|
000001f0 32 20 43 4f 44 45 20 46 49 4c 45 20 53 41 56 45 |2 CODE FILE SAVE|
00000200 44 22 0d 00 f0 05 e0 0d 00 fa 0f dd 20 f2 41 53 |D".......... .AS|
00000210 53 45 4d 42 4c 45 0d 01 04 15 e3 20 50 41 53 53 |SEMBLE..... PASS|
00000220 25 3d 30 20 b8 20 32 20 88 20 32 0d 01 0e 10 50 |%=0 . 2 . 2....P|
00000230 25 3d a0 28 22 26 22 2b 50 24 29 0d 01 18 0e 5b |%=.("&"+P$)....[|
00000240 4f 50 54 20 50 41 53 53 25 0d 01 22 30 2e 44 49 |OPT PASS%.."0.DI|
00000250 41 4c 20 20 4a 53 52 20 52 45 53 45 54 20 20 20 |AL JSR RESET |
00000260 20 20 20 20 20 20 20 20 20 20 20 20 20 5c 52 65 | \Re|
00000270 73 65 74 20 6d 6f 64 65 6d 0d 01 2c 4a 20 20 20 |set modem..,J |
00000280 20 20 20 20 4c 44 58 23 20 26 46 32 20 20 20 20 | LDX# &F2 |
00000290 20 20 20 20 20 20 20 20 20 20 20 20 20 5c 47 65 | \Ge|
000002a0 74 20 70 61 67 65 20 7a 65 72 6f 20 63 6f 6d 6d |t page zero comm|
000002b0 61 6e 64 20 6c 69 6e 65 20 70 6f 69 6e 74 65 72 |and line pointer|
000002c0 20 69 6e 0d 01 36 40 20 20 20 20 20 20 20 4c 44 | in..6@ LD|
000002d0 59 23 20 26 30 30 20 20 20 20 20 20 20 20 20 20 |Y# &00 |
000002e0 20 20 20 20 20 20 20 5c 49 2f 4f 20 70 72 6f 63 | \I/O proc|
000002f0 65 73 73 6f 72 20 61 6e 64 20 70 75 74 20 69 74 |essor and put it|
00000300 20 69 6e 0d 01 40 32 20 20 20 20 20 20 20 4a 53 | in..@2 JS|
00000310 52 20 52 49 4f 20 20 20 20 20 20 20 20 20 20 20 |R RIO |
00000320 20 20 20 20 20 20 20 5c 43 53 50 4c 20 61 6e 64 | \CSPL and|
00000330 20 43 53 50 48 0d 01 4a 13 20 20 20 20 20 20 20 | CSPH..J. |
00000340 53 54 41 20 43 53 50 4c 0d 01 54 13 20 20 20 20 |STA CSPL..T. |
00000350 20 20 20 4c 44 58 23 20 26 46 33 0d 01 5e 13 20 | LDX# &F3..^. |
00000360 20 20 20 20 20 20 4c 44 59 23 20 26 30 30 0d 01 | LDY# &00..|
00000370 68 12 20 20 20 20 20 20 20 4a 53 52 20 52 49 4f |h. JSR RIO|
00000380 0d 01 72 13 20 20 20 20 20 20 20 53 54 41 20 43 |..r. STA C|
00000390 53 50 48 0d 01 7c 41 20 20 20 20 20 20 20 4a 53 |SPH..|A JS|
000003a0 52 20 44 43 44 20 20 20 20 20 20 20 20 20 20 20 |R DCD |
000003b0 20 20 20 20 20 20 20 5c 43 68 65 63 6b 20 77 68 | \Check wh|
000003c0 65 74 68 65 72 20 6d 6f 64 65 6d 20 69 73 20 72 |ether modem is r|
000003d0 65 61 64 79 0d 01 86 11 20 20 20 20 20 20 20 42 |eady.... B|
000003e0 4e 45 20 44 31 0d 01 90 3c 20 20 20 20 20 20 20 |NE D1...< |
000003f0 4c 44 58 23 20 4d 31 20 83 20 26 31 30 30 20 20 |LDX# M1 . &100 |
00000400 20 20 20 20 20 20 20 5c 4e 6f 20 70 6f 77 65 72 | \No power|
00000410 20 6f 72 20 6e 6f 20 63 6f 6e 6e 65 63 74 69 6f | or no connectio|
00000420 6e 0d 01 9a 45 20 20 20 20 20 20 20 4c 44 59 23 |n...E LDY#|
00000430 20 4d 31 20 81 20 26 31 30 30 20 20 20 20 20 20 | M1 . &100 |
00000440 20 20 20 5c 53 6f 2c 20 67 69 76 65 20 6d 65 73 | \So, give mes|
00000450 73 61 67 65 2c 20 72 65 73 65 74 2c 20 61 6e 64 |sage, reset, and|
00000460 20 65 78 69 74 2e 0d 01 a4 25 20 20 20 20 20 20 | exit....% |
00000470 20 4a 53 52 20 4d 53 47 20 20 20 20 20 20 20 20 | JSR MSG |
00000480 20 20 20 20 20 20 20 20 20 20 5c 0d 01 ae 25 20 | \...% |
00000490 20 20 20 20 20 20 4a 4d 50 20 45 58 49 54 20 20 | JMP EXIT |
000004a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5c | \|
000004b0 0d 01 b8 13 2e 44 31 20 20 20 20 43 4d 50 23 20 |.....D1 CMP# |
000004c0 26 30 31 0d 01 c2 11 20 20 20 20 20 20 20 42 45 |&01.... BE|
000004d0 51 20 44 32 0d 01 cc 48 20 20 20 20 20 20 20 4c |Q D2...H L|
000004e0 44 58 23 20 4d 32 20 83 20 26 31 30 30 20 20 20 |DX# M2 . &100 |
000004f0 20 20 20 20 20 20 5c 55 6e 65 78 70 65 63 74 65 | \Unexpecte|
00000500 64 20 72 65 74 75 72 6e 20 62 79 74 65 20 66 72 |d return byte fr|
00000510 6f 6d 20 44 43 44 20 63 68 65 63 6b 0d 01 d6 33 |om DCD check...3|
00000520 20 20 20 20 20 20 20 4c 44 59 23 20 4d 32 20 81 | LDY# M2 .|
00000530 20 26 31 30 30 20 20 20 20 20 20 20 20 20 5c 69 | &100 \i|
00000540 2e 65 2e 20 3c 3e 20 30 20 6f 72 20 31 2e 20 0d |.e. <> 0 or 1. .|
00000550 01 e0 42 20 20 20 20 20 20 20 4a 53 52 20 4d 53 |..B JSR MS|
00000560 47 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |G |
00000570 20 20 20 5c 47 69 76 65 20 77 61 72 6e 69 6e 67 | \Give warning|
00000580 2c 20 72 65 73 65 74 2c 20 61 6e 64 20 65 78 69 |, reset, and exi|
00000590 74 0d 01 ea 13 20 20 20 20 20 20 20 4a 4d 50 20 |t.... JMP |
000005a0 45 58 49 54 0d 01 f4 44 2e 44 32 20 20 20 20 4c |EXIT...D.D2 L|
000005b0 44 41 23 20 26 30 37 20 20 20 20 20 20 20 20 20 |DA# &07 |
000005c0 20 20 20 20 20 20 20 20 5c 53 65 74 20 73 65 6e | \Set sen|
000005d0 64 20 61 6e 64 20 72 65 63 65 69 76 65 20 62 61 |d and receive ba|
000005e0 75 64 20 72 61 74 65 73 0d 01 fe 25 20 20 20 20 |ud rates...% |
000005f0 20 20 20 4c 44 58 23 20 26 30 34 20 20 20 20 20 | LDX# &04 |
00000600 20 20 20 20 20 20 20 20 20 20 20 20 5c 0d 02 08 | \...|
00000610 25 20 20 20 20 20 20 20 4a 53 52 20 4f 53 42 59 |% JSR OSBY|
00000620 54 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |TE |
00000630 20 5c 0d 02 12 25 20 20 20 20 20 20 20 4c 44 41 | \...% LDA|
00000640 23 20 26 30 38 20 20 20 20 20 20 20 20 20 20 20 |# &08 |
00000650 20 20 20 20 20 20 5c 0d 02 1c 25 20 20 20 20 20 | \...% |
00000660 20 20 4c 44 58 23 20 26 30 31 20 20 20 20 20 20 | LDX# &01 |
00000670 20 20 20 20 20 20 20 20 20 20 20 5c 0d 02 26 25 | \..&%|
00000680 20 20 20 20 20 20 20 4a 53 52 20 4f 53 42 59 54 | JSR OSBYT|
00000690 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |E |
000006a0 5c 0d 02 30 37 20 20 20 20 20 20 20 4c 44 41 23 |\..07 LDA#|
000006b0 20 26 30 45 20 20 20 20 20 20 20 20 20 20 20 20 | &0E |
000006c0 20 20 20 20 20 5c 45 6e 61 62 6c 65 20 74 69 6d | \Enable tim|
000006d0 65 72 20 65 76 65 6e 74 0d 02 3a 25 20 20 20 20 |er event..:% |
000006e0 20 20 20 4c 44 58 23 20 26 30 35 20 20 20 20 20 | LDX# &05 |
000006f0 20 20 20 20 20 20 20 20 20 20 20 20 5c 0d 02 44 | \..D|
00000700 25 20 20 20 20 20 20 20 4a 53 52 20 4f 53 42 59 |% JSR OSBY|
00000710 54 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |TE |
00000720 20 5c 0d 02 4e 40 20 20 20 20 20 20 20 4c 44 41 | \..N@ LDA|
00000730 20 45 56 45 4e 54 56 20 20 20 20 20 20 20 20 20 | EVENTV |
00000740 20 20 20 20 20 20 5c 53 74 6f 72 65 20 6f 72 69 | \Store ori|
00000750 67 69 6e 61 6c 20 65 76 65 6e 74 20 76 65 63 74 |ginal event vect|
00000760 6f 72 0d 02 58 25 20 20 20 20 20 20 20 53 54 41 |or..X% STA|
00000770 20 4f 45 56 4c 20 20 20 20 20 20 20 20 20 20 20 | OEVL |
00000780 20 20 20 20 20 20 5c 0d 02 62 25 20 20 20 20 20 | \..b% |
00000790 20 20 4c 44 41 20 45 56 45 4e 54 56 2b 31 20 20 | LDA EVENTV+1 |
000007a0 20 20 20 20 20 20 20 20 20 20 20 5c 0d 02 6c 25 | \..l%|
000007b0 20 20 20 20 20 20 20 53 54 41 20 4f 45 56 48 20 | STA OEVH |
000007c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000007d0 5c 0d 02 76 4c 20 20 20 20 20 20 20 4c 44 41 23 |\..vL LDA#|
000007e0 20 45 48 52 20 83 20 26 31 30 30 20 20 20 20 20 | EHR . &100 |
000007f0 20 20 20 5c 52 65 64 69 72 65 63 74 20 65 76 65 | \Redirect eve|
00000800 6e 74 20 76 65 63 74 6f 72 20 74 6f 20 68 61 6e |nt vector to han|
00000810 64 6c 69 6e 67 20 72 6f 75 74 69 6e 65 0d 02 80 |dling routine...|
00000820 25 20 20 20 20 20 20 20 53 54 41 20 45 56 45 4e |% STA EVEN|
00000830 54 56 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |TV |
00000840 20 5c 0d 02 8a 23 20 20 20 20 20 20 20 4c 44 41 | \...# LDA|
00000850 23 20 45 48 52 20 81 20 26 31 30 30 20 20 20 20 |# EHR . &100 |
00000860 20 20 20 20 5c 0d 02 94 25 20 20 20 20 20 20 20 | \...% |
00000870 53 54 41 20 45 56 45 4e 54 56 2b 31 20 20 20 20 |STA EVENTV+1 |
00000880 20 20 20 20 20 20 20 20 20 5c 0d 02 9e 47 20 20 | \...G |
00000890 20 20 20 20 20 4a 53 52 20 53 54 20 20 20 20 20 | JSR ST |
000008a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5c 4e | \N|
000008b0 65 78 74 20 73 74 61 74 65 20 28 63 6f 6e 6e 65 |ext state (conne|
000008c0 63 74 20 6d 6f 64 65 6d 20 74 6f 20 6c 69 6e 65 |ct modem to line|
000008d0 29 0d 02 a8 0e 20 20 20 20 20 20 20 43 4c 43 0d |).... CLC.|
000008e0 02 b2 4e 20 20 20 20 20 20 20 4c 44 41 20 43 53 |..N LDA CS|
000008f0 50 4c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |PL |
00000900 20 20 20 5c 49 6e 63 72 65 6d 65 6e 74 20 73 74 | \Increment st|
00000910 72 69 6e 67 20 70 6f 69 6e 74 65 72 20 74 6f 20 |ring pointer to |
00000920 35 74 68 20 63 68 72 20 61 66 74 65 72 0d 02 bc |5th chr after...|
00000930 33 20 20 20 20 20 20 20 41 44 43 23 20 26 30 34 |3 ADC# &04|
00000940 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000950 20 5c 74 68 65 20 2a 20 69 6e 20 2a 44 49 41 4c | \the * in *DIAL|
00000960 0d 02 c6 25 20 20 20 20 20 20 20 53 54 41 20 43 |...% STA C|
00000970 53 50 4c 20 20 20 20 20 20 20 20 20 20 20 20 20 |SPL |
00000980 20 20 20 20 5c 0d 02 d0 25 20 20 20 20 20 20 20 | \...% |
00000990 4c 44 41 20 43 53 50 48 20 20 20 20 20 20 20 20 |LDA CSPH |
000009a0 20 20 20 20 20 20 20 20 20 5c 0d 02 da 25 20 20 | \...% |
000009b0 20 20 20 20 20 41 44 43 23 20 26 30 30 20 20 20 | ADC# &00 |
000009c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5c 0d | \.|
000009d0 02 e4 25 20 20 20 20 20 20 20 53 54 41 20 43 53 |..% STA CS|
000009e0 50 48 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |PH |
000009f0 20 20 20 5c 0d 02 ee 25 20 20 20 20 20 20 20 4c | \...% L|
00000a00 44 58 20 43 53 50 4c 20 20 20 20 20 20 20 20 20 |DX CSPL |
00000a10 20 20 20 20 20 20 20 20 5c 0d 02 f8 25 20 20 20 | \...% |
00000a20 20 20 20 20 4c 44 59 20 43 53 50 48 20 20 20 20 | LDY CSPH |
00000a30 20 20 20 20 20 20 20 20 20 20 20 20 20 5c 0d 03 | \..|
00000a40 02 30 20 20 20 20 20 20 20 4a 53 52 20 52 49 4f |.0 JSR RIO|
00000a50 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000a60 20 20 5c 47 65 74 20 74 68 65 20 63 68 72 0d 03 | \Get the chr..|
00000a70 0c 31 20 20 20 20 20 20 20 43 4d 50 23 20 26 30 |.1 CMP# &0|
00000a80 44 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |D |
00000a90 20 20 5c 49 73 20 69 74 20 61 20 43 52 3f 20 0d | \Is it a CR? .|
00000aa0 03 16 41 20 20 20 20 20 20 20 42 4e 45 20 44 32 |..A BNE D2|
00000ab0 41 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |A |
00000ac0 20 20 20 5c 49 66 20 6e 6f 74 2c 20 6a 75 6d 70 | \If not, jump|
00000ad0 20 74 6f 20 64 69 61 6c 20 72 6f 75 74 69 6e 65 | to dial routine|
00000ae0 0d 03 20 25 20 20 20 20 20 20 20 4a 53 52 20 53 |.. % JSR S|
00000af0 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |T |
00000b00 20 20 20 20 5c 0d 03 2a 40 20 20 20 20 20 20 20 | \..*@ |
00000b10 4a 4d 50 20 44 32 30 20 20 20 20 20 20 20 20 20 |JMP D20 |
00000b20 20 20 20 20 20 20 20 20 20 5c 4f 74 68 65 72 77 | \Otherw|
00000b30 69 73 65 20 73 6b 69 70 20 64 69 61 6c 20 72 6f |ise skip dial ro|
00000b40 75 74 69 6e 65 0d 03 34 32 2e 44 32 41 20 20 20 |utine..42.D2A |
00000b50 4c 44 58 23 20 54 34 30 30 20 83 20 26 31 30 30 |LDX# T400 . &100|
00000b60 20 20 20 20 20 20 20 5c 34 2d 53 65 63 6f 6e 64 | \4-Second|
00000b70 20 64 65 6c 61 79 20 0d 03 3e 23 20 20 20 20 20 | delay ..># |
00000b80 20 20 4c 44 59 23 20 54 34 30 30 20 81 20 26 31 | LDY# T400 . &1|
00000b90 30 30 20 20 20 20 20 20 20 5c 0d 03 48 25 20 20 |00 \..H% |
00000ba0 20 20 20 20 20 4c 44 41 23 20 26 30 34 20 20 20 | LDA# &04 |
00000bb0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5c 0d | \.|
00000bc0 03 52 25 20 20 20 20 20 20 20 4a 53 52 20 4f 53 |.R% JSR OS|
00000bd0 57 4f 52 44 20 20 20 20 20 20 20 20 20 20 20 20 |WORD |
00000be0 20 20 20 5c 0d 03 5c 25 20 20 20 20 20 20 20 4a | \..\% J|
00000bf0 53 52 20 57 41 49 54 20 20 20 20 20 20 20 20 20 |SR WAIT |
00000c00 20 20 20 20 20 20 20 20 5c 0d 03 66 43 20 20 20 | \..fC |
00000c10 20 20 20 20 4a 53 52 20 53 54 20 20 20 20 20 20 | JSR ST |
00000c20 20 20 20 20 20 20 20 20 20 20 20 20 20 5c 4e 65 | \Ne|
00000c30 78 74 20 73 74 61 74 65 20 28 63 6f 6d 6d 65 6e |xt state (commen|
00000c40 63 65 20 64 69 61 6c 6c 69 6e 67 29 0d 03 70 41 |ce dialling)..pA|
00000c50 2e 44 33 20 20 20 20 49 4e 43 20 43 53 50 4c 20 |.D3 INC CSPL |
00000c60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000c70 5c 49 6e 63 72 65 6d 65 6e 74 20 73 74 72 69 6e |\Increment strin|
00000c80 67 20 63 68 72 20 70 6f 69 6e 74 65 72 0d 03 7a |g chr pointer..z|
00000c90 12 20 20 20 20 20 20 20 42 4e 45 20 44 33 41 0d |. BNE D3A.|
00000ca0 03 84 13 20 20 20 20 20 20 20 49 4e 43 20 43 53 |... INC CS|
00000cb0 50 48 0d 03 8e 13 2e 44 33 41 20 20 20 4c 44 58 |PH.....D3A LDX|
00000cc0 20 43 53 50 4c 0d 03 98 13 20 20 20 20 20 20 20 | CSPL.... |
00000cd0 4c 44 59 20 43 53 50 48 0d 03 a2 12 20 20 20 20 |LDY CSPH.... |
00000ce0 20 20 20 4a 53 52 20 52 49 4f 0d 03 ac 3b 20 20 | JSR RIO...; |
00000cf0 20 20 20 20 20 43 4d 50 23 20 26 30 44 20 20 20 | CMP# &0D |
00000d00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5c 4c | \L|
00000d10 61 73 74 20 64 69 67 69 74 20 64 69 61 6c 6c 65 |ast digit dialle|
00000d20 64 2c 20 73 6f 0d 03 b6 36 20 20 20 20 20 20 20 |d, so...6 |
00000d30 42 45 51 20 44 32 30 20 20 20 20 20 20 20 20 20 |BEQ D20 |
00000d40 20 20 20 20 20 20 20 20 20 5c 65 78 69 74 20 64 | \exit d|
00000d50 69 61 6c 20 72 6f 75 74 69 6e 65 0d 03 c0 33 20 |ial routine...3 |
00000d60 20 20 20 20 20 20 43 4d 50 23 20 26 32 44 20 20 | CMP# &2D |
00000d70 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5c | \|
00000d80 43 68 72 20 69 73 20 22 2d 22 2c 20 73 6f 0d 03 |Chr is "-", so..|
00000d90 ca 47 20 20 20 20 20 20 20 42 45 51 20 44 31 35 |.G BEQ D15|
00000da0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000db0 20 20 5c 62 72 61 6e 63 68 20 74 6f 20 69 6e 74 | \branch to int|
00000dc0 65 72 64 69 67 69 74 20 64 65 6c 61 79 20 72 6f |erdigit delay ro|
00000dd0 75 74 69 6e 65 0d 03 d4 0e 20 20 20 20 20 20 20 |utine.... |
00000de0 53 45 43 0d 03 de 3a 20 20 20 20 20 20 20 53 42 |SEC...: SB|
00000df0 43 23 20 26 33 30 20 20 20 20 20 20 20 20 20 20 |C# &30 |
00000e00 20 20 20 20 20 20 20 5c 45 6e 73 75 72 65 20 63 | \Ensure c|
00000e10 68 72 20 69 73 20 61 20 64 69 67 69 74 0d 03 e8 |hr is a digit...|
00000e20 3f 20 20 20 20 20 20 20 42 45 51 20 44 34 20 20 |? BEQ D4 |
00000e30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000e40 20 5c 5a 65 72 6f 20 69 73 20 61 20 73 70 65 63 | \Zero is a spec|
00000e50 69 61 6c 20 63 61 73 65 2e 2e 2e 2e 0d 03 f2 25 |ial case.......%|
00000e60 20 20 20 20 20 20 20 42 50 4c 20 44 35 20 20 20 | BPL D5 |
00000e70 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000e80 5c 0d 03 fc 13 20 20 20 20 20 20 20 4a 4d 50 20 |\.... JMP |
00000e90 45 58 49 54 0d 04 06 13 2e 44 34 20 20 20 20 4c |EXIT.....D4 L|
00000ea0 44 41 23 20 26 30 41 0d 04 10 12 20 20 20 20 20 |DA# &0A.... |
00000eb0 20 20 53 54 41 20 43 54 52 0d 04 1a 31 20 20 20 | STA CTR...1 |
00000ec0 20 20 20 20 4a 4d 50 20 44 37 20 20 20 20 20 20 | JMP D7 |
00000ed0 20 20 20 20 20 20 20 20 20 20 20 20 20 5c 44 69 | \Di|
00000ee0 61 6c 20 72 6f 75 74 69 6e 65 0d 04 24 34 2e 44 |al routine..$4.D|
00000ef0 35 20 20 20 20 43 4d 50 23 20 26 30 41 20 20 20 |5 CMP# &0A |
00000f00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5c 5a | \Z|
00000f10 65 72 6f 20 62 65 63 6f 6d 65 73 20 31 30 0d 04 |ero becomes 10..|
00000f20 2e 39 20 20 20 20 20 20 20 42 43 43 20 44 36 20 |.9 BCC D6 |
00000f30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000f40 20 20 5c 4e 6f 74 20 61 20 64 69 67 69 74 2c 20 | \Not a digit, |
00000f50 73 6f 20 65 78 69 74 0d 04 38 13 20 20 20 20 20 |so exit..8. |
00000f60 20 20 4a 4d 50 20 45 58 49 54 0d 04 42 12 2e 44 | JMP EXIT..B..D|
00000f70 36 20 20 20 20 53 54 41 20 43 54 52 0d 04 4c 13 |6 STA CTR..L.|
00000f80 2e 44 37 20 20 20 20 4a 53 52 20 57 54 38 35 0d |.D7 JSR WT85.|
00000f90 04 56 12 20 20 20 20 20 20 20 4c 44 58 20 43 54 |.V. LDX CT|
00000fa0 52 0d 04 60 14 20 20 20 20 20 20 20 4a 53 52 20 |R..`. JSR |
00000fb0 44 49 47 49 54 0d 04 6a 11 20 20 20 20 20 20 20 |DIGIT..j. |
00000fc0 4a 4d 50 20 44 33 0d 04 74 13 2e 44 31 35 20 20 |JMP D3..t..D15 |
00000fd0 20 4a 53 52 20 57 54 38 35 0d 04 7e 11 20 20 20 | JSR WT85..~. |
00000fe0 20 20 20 20 4a 4d 50 20 44 33 0d 04 88 45 2e 44 | JMP D3...E.D|
00000ff0 32 30 20 20 20 4c 44 58 23 20 54 39 30 30 30 20 |20 LDX# T9000 |
00001000 83 20 26 31 30 30 20 20 20 20 20 20 5c 53 65 74 |. &100 \Set|
00001010 20 75 70 20 39 30 20 73 65 63 6f 6e 64 73 20 74 | up 90 seconds t|
00001020 69 6d 65 6f 75 74 20 70 65 72 69 6f 64 20 20 0d |imeout period .|
00001030 04 92 1c 20 20 20 20 20 20 20 4c 44 59 23 20 54 |... LDY# T|
00001040 39 30 30 30 20 81 20 26 31 30 30 0d 04 9c 13 20 |9000 . &100.... |
00001050 20 20 20 20 20 20 4c 44 41 23 20 26 30 34 0d 04 | LDA# &04..|
00001060 a6 15 20 20 20 20 20 20 20 4a 53 52 20 4f 53 57 |.. JSR OSW|
00001070 4f 52 44 0d 04 b0 3d 20 20 20 20 20 20 20 4c 44 |ORD...= LD|
00001080 41 23 20 26 30 30 20 20 20 20 20 20 20 20 20 20 |A# &00 |
00001090 20 20 20 20 20 20 20 5c 52 65 73 65 74 20 74 69 | \Reset ti|
000010a0 6d 65 2d 6f 75 74 20 66 6c 61 67 20 62 79 74 65 |me-out flag byte|
000010b0 0d 04 ba 25 20 20 20 20 20 20 20 53 54 41 20 43 |...% STA C|
000010c0 46 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |F |
000010d0 20 20 20 20 5c 0d 04 c4 37 20 20 20 20 20 20 20 | \...7 |
000010e0 4a 53 52 20 53 54 20 20 20 20 20 20 20 20 20 20 |JSR ST |
000010f0 20 20 20 20 20 20 20 20 20 5c 53 74 65 70 20 6f | \Step o|
00001100 6e 20 74 6f 20 73 74 61 74 65 20 33 0d 04 ce 3b |n to state 3...;|
00001110 2e 44 32 32 20 20 20 4a 53 52 20 44 43 44 20 20 |.D22 JSR DCD |
00001120 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001130 5c 43 68 65 63 6b 20 66 6f 72 20 64 61 74 61 20 |\Check for data |
00001140 63 61 72 72 69 65 72 0d 04 d8 25 20 20 20 20 20 |carrier...% |
00001150 20 20 43 4d 50 23 20 26 30 31 20 20 20 20 20 20 | CMP# &01 |
00001160 20 20 20 20 20 20 20 20 20 20 20 5c 0d 04 e2 3d | \...=|
00001170 20 20 20 20 20 20 20 42 45 51 20 44 32 34 20 20 | BEQ D24 |
00001180 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001190 5c 50 72 65 73 65 6e 74 2c 20 73 6f 20 63 6f 6e |\Present, so con|
000011a0 74 69 6e 75 65 2e 2e 2e 2e 0d 04 ec 3c 20 20 20 |tinue.......< |
000011b0 20 20 20 20 4c 44 41 20 43 46 20 20 20 20 20 20 | LDA CF |
000011c0 20 20 20 20 20 20 20 20 20 20 20 20 20 5c 43 68 | \Ch|
000011d0 65 63 6b 20 77 68 65 74 68 65 72 20 74 69 6d 65 |eck whether time|
000011e0 64 20 6f 75 74 0d 04 f6 3a 20 20 20 20 20 20 20 |d out...: |
000011f0 42 45 51 20 44 32 32 20 20 20 20 20 20 20 20 20 |BEQ D22 |
00001200 20 20 20 20 20 20 20 20 20 5c 4e 6f 2c 20 73 6f | \No, so|
00001210 20 72 65 74 75 72 6e 20 66 6f 72 20 44 43 44 0d | return for DCD.|
00001220 05 00 40 2e 44 32 33 20 20 20 4c 44 58 23 20 4d |..@.D23 LDX# M|
00001230 33 20 83 20 26 31 30 30 20 20 20 20 20 20 20 20 |3 . &100 |
00001240 20 5c 59 65 73 2c 20 73 6f 20 65 78 69 74 20 77 | \Yes, so exit w|
00001250 69 74 68 20 65 78 70 6c 61 6e 61 74 69 6f 6e 0d |ith explanation.|
00001260 05 0a 19 20 20 20 20 20 20 20 4c 44 59 23 20 4d |... LDY# M|
00001270 33 20 81 20 26 31 30 30 0d 05 14 12 20 20 20 20 |3 . &100.... |
00001280 20 20 20 4a 53 52 20 4d 53 47 0d 05 1e 13 20 20 | JSR MSG.... |
00001290 20 20 20 20 20 4a 4d 50 20 45 58 49 54 0d 05 28 | JMP EXIT..(|
000012a0 31 2e 44 32 34 20 20 20 4a 53 52 20 53 54 20 20 |1.D24 JSR ST |
000012b0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000012c0 20 5c 53 74 65 70 20 6f 6e 2d 6c 69 6e 65 0d 05 | \Step on-line..|
000012d0 32 13 20 20 20 20 20 20 20 4a 53 52 20 55 4e 45 |2. JSR UNE|
000012e0 56 0d 05 3c 44 20 20 20 20 20 20 20 52 54 53 20 |V..<D RTS |
000012f0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001300 20 20 20 20 20 5c 61 6e 64 20 72 65 74 75 72 6e | \and return|
00001310 20 74 6f 20 63 61 6c 6c 69 6e 67 20 70 72 6f 67 | to calling prog|
00001320 72 61 6d 6d 65 0d 05 46 1a 2e 4d 31 20 20 20 20 |ramme..F..M1 |
00001330 45 51 55 53 20 22 41 64 61 70 74 6f 72 3f 22 0d |EQUS "Adaptor?".|
00001340 05 50 13 20 20 20 20 20 20 20 45 51 55 42 20 26 |.P. EQUB &|
00001350 30 37 0d 05 5a 13 20 20 20 20 20 20 20 45 51 55 |07..Z. EQU|
00001360 42 20 26 30 41 0d 05 64 13 20 20 20 20 20 20 20 |B &0A..d. |
00001370 45 51 55 42 20 26 30 44 0d 05 6e 25 2e 4d 32 20 |EQUB &0D..n%.M2 |
00001380 20 20 20 45 51 55 53 20 22 50 52 45 53 54 45 4c | EQUS "PRESTEL|
00001390 20 52 4f 4d 20 70 72 6f 62 6c 65 6d 22 0d 05 78 | ROM problem"..x|
000013a0 13 20 20 20 20 20 20 20 45 51 55 42 20 26 30 37 |. EQUB &07|
000013b0 0d 05 82 13 20 20 20 20 20 20 20 45 51 55 42 20 |.... EQUB |
000013c0 26 30 41 0d 05 8c 13 20 20 20 20 20 20 20 45 51 |&0A.... EQ|
000013d0 55 42 20 26 30 44 0d 05 96 21 2e 4d 33 20 20 20 |UB &0D...!.M3 |
000013e0 20 45 51 55 53 20 22 4e 6f 20 64 61 74 61 20 63 | EQUS "No data c|
000013f0 61 72 72 69 65 72 22 0d 05 a0 13 20 20 20 20 20 |arrier".... |
00001400 20 20 45 51 55 42 20 26 30 37 0d 05 aa 13 20 20 | EQUB &07.... |
00001410 20 20 20 20 20 45 51 55 42 20 26 30 41 0d 05 b4 | EQUB &0A...|
00001420 13 20 20 20 20 20 20 20 45 51 55 42 20 26 30 44 |. EQUB &0D|
00001430 0d 05 be 13 2e 50 42 20 20 20 20 45 51 55 42 20 |.....PB EQUB |
00001440 26 30 30 0d 05 c8 13 2e 43 46 20 20 20 20 45 51 |&00.....CF EQ|
00001450 55 42 20 26 30 30 0d 05 d2 13 2e 54 34 30 30 20 |UB &00.....T400 |
00001460 20 45 51 55 42 20 26 37 30 0d 05 dc 13 20 20 20 | EQUB &70.... |
00001470 20 20 20 20 45 51 55 42 20 26 46 45 0d 05 e6 13 | EQUB &FE....|
00001480 20 20 20 20 20 20 20 45 51 55 42 20 26 46 46 0d | EQUB &FF.|
00001490 05 f0 13 20 20 20 20 20 20 20 45 51 55 42 20 26 |... EQUB &|
000014a0 46 46 0d 05 fa 13 20 20 20 20 20 20 20 45 51 55 |FF.... EQU|
000014b0 42 20 26 46 46 0d 06 04 13 2e 54 32 30 30 20 20 |B &FF.....T200 |
000014c0 45 51 55 42 20 26 33 38 0d 06 0e 13 20 20 20 20 |EQUB &38.... |
000014d0 20 20 20 45 51 55 42 20 26 46 46 0d 06 18 13 20 | EQUB &FF.... |
000014e0 20 20 20 20 20 20 45 51 55 42 20 26 46 46 0d 06 | EQUB &FF..|
000014f0 22 13 20 20 20 20 20 20 20 45 51 55 42 20 26 46 |". EQUB &F|
00001500 46 0d 06 2c 13 20 20 20 20 20 20 20 45 51 55 42 |F..,. EQUB|
00001510 20 26 46 46 0d 06 36 13 2e 54 38 35 20 20 20 45 | &FF..6..T85 E|
00001520 51 55 42 20 26 41 42 0d 06 40 13 20 20 20 20 20 |QUB &AB..@. |
00001530 20 20 45 51 55 42 20 26 46 46 0d 06 4a 13 20 20 | EQUB &FF..J. |
00001540 20 20 20 20 20 45 51 55 42 20 26 46 46 0d 06 54 | EQUB &FF..T|
00001550 13 20 20 20 20 20 20 20 45 51 55 42 20 26 46 46 |. EQUB &FF|
00001560 0d 06 5e 13 20 20 20 20 20 20 20 45 51 55 42 20 |..^. EQUB |
00001570 26 46 46 0d 06 68 13 2e 54 39 30 30 30 20 45 51 |&FF..h..T9000 EQ|
00001580 55 42 20 26 44 38 0d 06 72 13 20 20 20 20 20 20 |UB &D8..r. |
00001590 20 45 51 55 42 20 26 44 43 0d 06 7c 13 20 20 20 | EQUB &DC..|. |
000015a0 20 20 20 20 45 51 55 42 20 26 46 46 0d 06 86 13 | EQUB &FF....|
000015b0 20 20 20 20 20 20 20 45 51 55 42 20 26 46 46 0d | EQUB &FF.|
000015c0 06 90 13 20 20 20 20 20 20 20 45 51 55 42 20 26 |... EQUB &|
000015d0 46 46 0d 06 9a 13 2e 43 54 52 20 20 20 45 51 55 |FF.....CTR EQU|
000015e0 42 20 26 30 30 0d 06 a4 13 2e 43 53 43 20 20 20 |B &00.....CSC |
000015f0 45 51 55 42 20 26 30 34 0d 06 ae 13 2e 44 43 54 |EQUB &04.....DCT|
00001600 52 20 20 45 51 55 42 20 26 30 30 0d 06 b8 13 2e |R EQUB &00.....|
00001610 43 53 50 4c 20 20 45 51 55 42 20 26 30 30 0d 06 |CSPL EQUB &00..|
00001620 c2 13 2e 43 53 50 48 20 20 45 51 55 42 20 26 30 |...CSPH EQUB &0|
00001630 30 0d 06 cc 13 2e 49 4f 50 42 20 20 45 51 55 42 |0.....IOPB EQUB|
00001640 20 26 30 30 0d 06 d6 13 20 20 20 20 20 20 20 45 | &00.... E|
00001650 51 55 42 20 26 30 30 0d 06 e0 13 20 20 20 20 20 |QUB &00.... |
00001660 20 20 45 51 55 42 20 26 46 46 0d 06 ea 13 20 20 | EQUB &FF.... |
00001670 20 20 20 20 20 45 51 55 42 20 26 46 46 0d 06 f4 | EQUB &FF...|
00001680 13 20 20 20 20 20 20 20 45 51 55 42 20 26 30 30 |. EQUB &00|
00001690 0d 06 fe 13 2e 4f 45 56 4c 20 20 45 51 55 42 20 |.....OEVL EQUB |
000016a0 26 30 30 0d 07 08 13 2e 4f 45 56 48 20 20 45 51 |&00.....OEVH EQ|
000016b0 55 42 20 26 30 30 0d 07 12 13 2e 57 41 49 54 20 |UB &00.....WAIT |
000016c0 20 4c 44 41 23 20 26 30 30 0d 07 1c 11 20 20 20 | LDA# &00.... |
000016d0 20 20 20 20 53 54 41 20 43 46 0d 07 26 11 2e 57 | STA CF..&..W|
000016e0 31 20 20 20 20 4c 44 41 20 43 46 0d 07 30 13 20 |1 LDA CF..0. |
000016f0 20 20 20 20 20 20 43 4d 50 23 20 26 30 31 0d 07 | CMP# &01..|
00001700 3a 11 20 20 20 20 20 20 20 42 4e 45 20 57 31 0d |:. BNE W1.|
00001710 07 44 0e 20 20 20 20 20 20 20 52 54 53 0d 07 4e |.D. RTS..N|
00001720 0e 2e 45 48 52 20 20 20 50 48 41 0d 07 58 0e 20 |..EHR PHA..X. |
00001730 20 20 20 20 20 20 54 58 41 0d 07 62 0e 20 20 20 | TXA..b. |
00001740 20 20 20 20 50 48 41 0d 07 6c 0e 20 20 20 20 20 | PHA..l. |
00001750 20 20 54 59 41 0d 07 76 0e 20 20 20 20 20 20 20 | TYA..v. |
00001760 50 48 41 0d 07 80 13 20 20 20 20 20 20 20 4c 44 |PHA.... LD|
00001770 41 23 20 26 30 31 0d 07 8a 11 20 20 20 20 20 20 |A# &01.... |
00001780 20 53 54 41 20 43 46 0d 07 94 0e 20 20 20 20 20 | STA CF.... |
00001790 20 20 50 4c 41 0d 07 9e 0e 20 20 20 20 20 20 20 | PLA.... |
000017a0 54 41 59 0d 07 a8 0e 20 20 20 20 20 20 20 50 4c |TAY.... PL|
000017b0 41 0d 07 b2 0e 20 20 20 20 20 20 20 54 41 58 0d |A.... TAX.|
000017c0 07 bc 0e 20 20 20 20 20 20 20 50 4c 41 0d 07 c6 |... PLA...|
000017d0 0e 20 20 20 20 20 20 20 52 54 53 0d 07 d0 13 2e |. RTS.....|
000017e0 43 4d 44 20 20 20 4c 44 41 23 20 26 37 42 0d 07 |CMD LDA# &7B..|
000017f0 da 19 20 20 20 20 20 20 20 4c 44 58 23 20 50 42 |.. LDX# PB|
00001800 20 83 20 26 31 30 30 0d 07 e4 19 20 20 20 20 20 | . &100.... |
00001810 20 20 4c 44 59 23 20 50 42 20 81 20 26 31 30 30 | LDY# PB . &100|
00001820 0d 07 ee 15 20 20 20 20 20 20 20 4a 53 52 20 4f |.... JSR O|
00001830 53 57 4f 52 44 0d 07 f8 0e 20 20 20 20 20 20 20 |SWORD.... |
00001840 52 54 53 0d 08 02 13 2e 52 45 53 45 54 20 4c 44 |RTS.....RESET LD|
00001850 41 23 20 26 30 30 0d 08 0c 11 20 20 20 20 20 20 |A# &00.... |
00001860 20 53 54 41 20 50 42 0d 08 16 12 20 20 20 20 20 | STA PB.... |
00001870 20 20 4a 53 52 20 43 4d 44 0d 08 20 0e 20 20 20 | JSR CMD.. . |
00001880 20 20 20 20 52 54 53 0d 08 2a 13 2e 44 43 44 20 | RTS..*..DCD |
00001890 20 20 4c 44 41 23 20 26 30 35 0d 08 34 11 20 20 | LDA# &05..4. |
000018a0 20 20 20 20 20 53 54 41 20 50 42 0d 08 3e 12 20 | STA PB..>. |
000018b0 20 20 20 20 20 20 4a 53 52 20 43 4d 44 0d 08 48 | JSR CMD..H|
000018c0 11 20 20 20 20 20 20 20 4c 44 41 20 50 42 0d 08 |. LDA PB..|
000018d0 52 0e 20 20 20 20 20 20 20 52 54 53 0d 08 5c 13 |R. RTS..\.|
000018e0 2e 53 54 20 20 20 20 4c 44 41 23 20 26 30 31 0d |.ST LDA# &01.|
000018f0 08 66 11 20 20 20 20 20 20 20 53 54 41 20 50 42 |.f. STA PB|
00001900 0d 08 70 12 20 20 20 20 20 20 20 4a 53 52 20 43 |..p. JSR C|
00001910 4d 44 0d 08 7a 0e 20 20 20 20 20 20 20 52 54 53 |MD..z. RTS|
00001920 0d 08 84 13 2e 50 55 4c 53 45 20 4c 44 41 23 20 |.....PULSE LDA# |
00001930 26 30 32 0d 08 8e 11 20 20 20 20 20 20 20 53 54 |&02.... ST|
00001940 41 20 50 42 0d 08 98 12 20 20 20 20 20 20 20 4a |A PB.... J|
00001950 53 52 20 43 4d 44 0d 08 a2 0e 20 20 20 20 20 20 |SR CMD.... |
00001960 20 52 54 53 0d 08 ac 13 2e 53 44 20 20 20 20 4c | RTS.....SD L|
00001970 44 41 23 20 26 30 33 0d 08 b6 11 20 20 20 20 20 |DA# &03.... |
00001980 20 20 53 54 41 20 50 42 0d 08 c0 12 20 20 20 20 | STA PB.... |
00001990 20 20 20 4a 53 52 20 43 4d 44 0d 08 ca 0e 20 20 | JSR CMD.... |
000019a0 20 20 20 20 20 52 54 53 0d 08 d4 13 2e 45 44 20 | RTS.....ED |
000019b0 20 20 20 4c 44 41 23 20 26 30 34 0d 08 de 11 20 | LDA# &04.... |
000019c0 20 20 20 20 20 20 53 54 41 20 50 42 0d 08 e8 12 | STA PB....|
000019d0 20 20 20 20 20 20 20 4a 53 52 20 43 4d 44 0d 08 | JSR CMD..|
000019e0 f2 0e 20 20 20 20 20 20 20 52 54 53 0d 08 fc 13 |.. RTS....|
000019f0 2e 44 49 47 49 54 20 53 54 58 20 44 43 54 52 0d |.DIGIT STX DCTR.|
00001a00 09 06 11 20 20 20 20 20 20 20 4a 53 52 20 53 44 |... JSR SD|
00001a10 0d 09 10 14 2e 44 49 47 31 20 20 4a 53 52 20 50 |.....DIG1 JSR P|
00001a20 55 4c 53 45 0d 09 1a 13 20 20 20 20 20 20 20 44 |ULSE.... D|
00001a30 45 43 20 44 43 54 52 0d 09 24 13 20 20 20 20 20 |EC DCTR..$. |
00001a40 20 20 42 4e 45 20 44 49 47 31 0d 09 2e 11 20 20 | BNE DIG1.... |
00001a50 20 20 20 20 20 4a 53 52 20 45 44 0d 09 38 0e 20 | JSR ED..8. |
00001a60 20 20 20 20 20 20 52 54 53 0d 09 42 1a 2e 57 54 | RTS..B..WT|
00001a70 38 35 20 20 4c 44 58 23 20 54 38 35 20 83 20 26 |85 LDX# T85 . &|
00001a80 31 30 30 0d 09 4c 1a 20 20 20 20 20 20 20 4c 44 |100..L. LD|
00001a90 59 23 20 54 38 35 20 81 20 26 31 30 30 0d 09 56 |Y# T85 . &100..V|
00001aa0 13 20 20 20 20 20 20 20 4c 44 41 23 20 26 30 34 |. LDA# &04|
00001ab0 0d 09 60 15 20 20 20 20 20 20 20 4a 53 52 20 4f |..`. JSR O|
00001ac0 53 57 4f 52 44 0d 09 6a 13 20 20 20 20 20 20 20 |SWORD..j. |
00001ad0 4a 53 52 20 57 41 49 54 0d 09 74 0e 20 20 20 20 |JSR WAIT..t. |
00001ae0 20 20 20 52 54 53 0d 09 7e 11 2e 4d 53 47 20 20 | RTS..~..MSG |
00001af0 20 53 54 58 20 4d 50 0d 09 88 13 20 20 20 20 20 | STX MP.... |
00001b00 20 20 53 54 59 20 4d 50 2b 31 0d 09 92 13 20 20 | STY MP+1.... |
00001b10 20 20 20 20 20 4c 44 59 23 20 26 30 30 0d 09 9c | LDY# &00...|
00001b20 15 2e 4d 53 47 31 20 20 4c 44 41 20 28 4d 50 29 |..MSG1 LDA (MP)|
00001b30 2c 59 0d 09 a6 15 20 20 20 20 20 20 20 4a 53 52 |,Y.... JSR|
00001b40 20 4f 53 57 52 43 48 0d 09 b0 0e 20 20 20 20 20 | OSWRCH.... |
00001b50 20 20 49 4e 59 0d 09 ba 13 20 20 20 20 20 20 20 | INY.... |
00001b60 43 4d 50 23 20 26 30 44 0d 09 c4 13 20 20 20 20 |CMP# &0D.... |
00001b70 20 20 20 42 4e 45 20 4d 53 47 31 0d 09 ce 0e 20 | BNE MSG1.... |
00001b80 20 20 20 20 20 20 52 54 53 0d 09 d8 14 2e 45 58 | RTS.....EX|
00001b90 49 54 20 20 4a 53 52 20 52 45 53 45 54 0d 09 e2 |IT JSR RESET...|
00001ba0 13 20 20 20 20 20 20 20 4a 53 52 20 55 4e 45 56 |. JSR UNEV|
00001bb0 0d 09 ec 0e 20 20 20 20 20 20 20 52 54 53 0d 09 |.... RTS..|
00001bc0 f6 13 2e 52 49 4f 20 20 20 53 54 58 20 49 4f 50 |...RIO STX IOP|
00001bd0 42 0d 0a 00 15 20 20 20 20 20 20 20 53 54 59 20 |B.... STY |
00001be0 49 4f 50 42 2b 31 0d 0a 0a 1b 20 20 20 20 20 20 |IOPB+1.... |
00001bf0 20 4c 44 58 23 20 49 4f 50 42 20 83 20 26 31 30 | LDX# IOPB . &10|
00001c00 30 0d 0a 14 1b 20 20 20 20 20 20 20 4c 44 59 23 |0.... LDY#|
00001c10 20 49 4f 50 42 20 81 20 26 31 30 30 0d 0a 1e 13 | IOPB . &100....|
00001c20 20 20 20 20 20 20 20 4c 44 41 23 20 26 30 35 0d | LDA# &05.|
00001c30 0a 28 15 20 20 20 20 20 20 20 4a 53 52 20 4f 53 |.(. JSR OS|
00001c40 57 4f 52 44 0d 0a 32 15 20 20 20 20 20 20 20 4c |WORD..2. L|
00001c50 44 41 20 49 4f 50 42 2b 34 0d 0a 3c 0e 20 20 20 |DA IOPB+4..<. |
00001c60 20 20 20 20 52 54 53 0d 0a 46 3e 2e 55 4e 45 56 | RTS..F>.UNEV|
00001c70 20 20 4c 44 41 20 4f 45 56 4c 20 20 20 20 20 20 | LDA OEVL |
00001c80 20 20 20 20 20 20 20 20 20 20 20 5c 4f 6c 64 20 | \Old |
00001c90 65 76 65 6e 74 20 76 65 63 74 6f 72 20 6c 6f 77 |event vector low|
00001ca0 20 62 79 74 65 0d 0a 50 2f 20 20 20 20 20 20 20 | byte..P/ |
00001cb0 53 54 41 20 45 56 45 4e 54 56 20 20 20 20 20 20 |STA EVENTV |
00001cc0 20 20 20 20 20 20 20 20 20 5c 52 65 70 6c 61 63 | \Replac|
00001cd0 65 20 69 74 0d 0a 5a 41 20 20 20 20 20 20 20 4c |e it..ZA L|
00001ce0 44 41 20 4f 45 56 48 20 20 20 20 20 20 20 20 20 |DA OEVH |
00001cf0 20 20 20 20 20 20 20 20 5c 4f 6c 64 20 65 76 65 | \Old eve|
00001d00 6e 74 20 76 65 63 74 6f 72 20 68 69 67 68 20 62 |nt vector high b|
00001d10 79 74 65 20 20 0d 0a 64 2f 20 20 20 20 20 20 20 |yte ..d/ |
00001d20 53 54 41 20 45 56 45 4e 54 56 2b 31 20 20 20 20 |STA EVENTV+1 |
00001d30 20 20 20 20 20 20 20 20 20 5c 52 65 70 6c 61 63 | \Replac|
00001d40 65 20 69 74 0d 0a 6e 38 20 20 20 20 20 20 20 4c |e it..n8 L|
00001d50 44 41 23 20 26 30 44 20 20 20 20 20 20 20 20 20 |DA# &0D |
00001d60 20 20 20 20 20 20 20 20 5c 44 69 73 61 62 6c 65 | \Disable|
00001d70 20 74 69 6d 65 72 20 65 76 65 6e 74 0d 0a 78 25 | timer event..x%|
00001d80 20 20 20 20 20 20 20 4c 44 58 23 20 26 30 35 20 | LDX# &05 |
00001d90 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001da0 5c 0d 0a 82 25 20 20 20 20 20 20 20 4a 53 52 20 |\...% JSR |
00001db0 4f 53 42 59 54 45 20 20 20 20 20 20 20 20 20 20 |OSBYTE |
00001dc0 20 20 20 20 20 5c 0d 0a 8c 0e 20 20 20 20 20 20 | \.... |
00001dd0 20 52 54 53 0d 0a 96 05 5d 0d 0a a0 0b ed 20 50 | RTS....]..... P|
00001de0 41 53 53 25 0d 0a aa 05 e1 0d ff |ASS%.......|
00001deb 
04-08-89/B\Dial.m0
04-08-89/B\Dial.m1
04-08-89/B\Dial.m2
04-08-89/B\Dial.m4
04-08-89/B\Dial.m5
.