Home » CEEFAX disks » telesoftware10.adl » 08-10-88/BUFFER

08-10-88/BUFFER

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 » telesoftware10.adl
Filename: 08-10-88/BUFFER
Read OK:
File size: 0AD6 bytes
Load address: 0800
Exec address: 8023
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
   10REM: BUFFER
   20REM: (C) Gordon Horsington 1987
   30MODE7
   40HIMEM=&3C00
   50DIM save 50
   60diff=&8000-HIMEM
   70romnumber=&F4
   80stack=&103
   90uptv=&222
  100starfx5=&285
  110pointer=&8100
  120printout=&FE61
  130handshake=&FE6C
  140status=&FE6D
  150control=&FE6E
  160osbyte=&FFF4
  170oscli=&FFF7
  180A%=&A8
  190X%=0
  200Y%=&FF
  210extvec=(USR(osbyte)AND&FFFF00)DIV256
  220FOR pass = 0 TO 2 STEP 2
  230P%=HIMEM
  240[OPT pass
  250BRK
  260BRK
  270BRK
  280JMP service+diff
  290OPT FNequb(&82)
  300OPT FNequb((copyright+diff) MOD 256)
  310.copyright
  320BRK
  330OPT FNequs("(C)")
  340BRK
  350.flag
  360BRK
  370.service
  380PHA
  390TXA
  400PHA
  410TYA
  420PHA
  430TSX
  440LDA stack,X
  450CMP #5
  460BEQ interupt
  470CMP #&FE
  480BNE exit
  490LDA #(buffer+diff) MOD 256 
  500STA extvec+&33
  510LDA #(buffer+diff) DIV 256 
  520STA extvec+&34
  530LDA romnumber
  540STA extvec+&35
  550LDA #&81
  560STA datin+diff+1
  570STA datin+diff+2
  580STA datout+diff+1
  590STA datout+diff+2
  600LDX #&33
  610LDY #&FF
  620STX uptv
  630STY uptv+1
  640.exit
  650PLA
  660TAY
  670PLA
  680TAX
  690PLA
  700.return
  710RTS
  720.buffer
  730CPY #3
  740BNE return
  750CMP #1
  760BNE active
  770STA flag+diff
  780.active
  790PHA
  800TXA 
  810PHA 
  820TYA
  830PHA
  840.outerloop
  850LDY datin+diff+2
  860LDX datin+diff+1
  870INX 
  880BNE nottop
  890INY 
  900CPY #&C0
  910BNE nottop
  920LDY #&81
  930.nottop
  940CPX datout+diff+1
  950BNE morespace
  960CPY datout+diff+2
  970BEQ innerloop
  980SEC
  990.morespace
 1000TYA 
 1010PHA 
 1020LDA #&91
 1030LDX #3
 1040JSR osbyte
 1050PLA 
 1060BCS innerloop
 1070.datin
 1080STY pointer
 1090INC datin+diff+1
 1100STA datin+diff+2
 1110CLC 
 1120BCC innerloop
 1130.interupt
 1140LDA #&82
 1150BIT status
 1160BEQ restore
 1170LDA starfx5
 1180CMP #3
 1190BNE restore
 1200.innerloop
 1210LDA flag+diff
 1220BNE notpoll
 1230LDA #&82
 1240BIT status
 1250BNE notpoll
 1260.step
 1270BCC outerloop
 1280.restore
 1290CLC
 1300BCC exit
 1310.notpoll
 1320PHP 
 1330LDA #0
 1340STA flag+diff
 1350LDA datin+diff+1
 1360CMP datout+diff+1
 1370BNE output
 1380LDA datin+diff+2
 1390CMP datout+diff+2
 1400BNE output
 1410PLP
 1420LDX #2
 1430STX control
 1440LDA #&7B
 1450INX
 1460JSR osbyte
 1470JMP restore+diff
 1480.output
 1490LDA handshake
 1500AND #&F0
 1510ORA #&0A
 1520LDX #&82
 1530.datout
 1540LDY pointer
 1550STA handshake
 1560STX control
 1570STY printout
 1580INC datout+diff+1
 1590BNE notpage
 1600LDY datout+diff+2
 1610INY 
 1620CPY #&C0
 1630BNE moreroom
 1640LDY #&81
 1650.moreroom
 1660STY datout+diff+2
 1670.notpage
 1680PLP 
 1690BCS innerloop
 1700BCC step
 1710.lastbyte
 1720]
 1730NEXT
 1740INPUT'"Save filename = "filename$
 1750IF filename$="" END
 1760$save="SAVE "+filename$+" "+STR$~(HIMEM)+" "+STR$~(lastbyte)+" FFFF8000 FFFF8000"
 1770X%=save MOD 256
 1780Y%=save DIV 256
 1790*OPT1,2
 1800CALL oscli
 1810*OPT1,0
 1820END
 1830DEFFNequb(byte)
 1840?P%=byte
 1850P%=P%+1
 1860=pass
 1870DEFFNequw(word)
 1880?P%=word MOD 256
 1890P%?1=word DIV 256
 1900P%=P%+2
 1910=pass
 1920DEFFNequd(double)
 1930!P%=double
 1940P%=P%+4
 1950=pass
 1960DEFFNequs(string$)
 1970$P%=string$
 1980P%=P%+LEN(string$)
 1990=pass


�: BUFFER
!�: (C) Gordon Horsington 1987
�7
(�=&3C00
2
� save 50
<diff=&8000-�
Fromnumber=&F4
Pstack=&103
Z
uptv=&222
dstarfx5=&285
npointer=&8100
xprintout=&FE61
�handshake=&FE6C
�status=&FE6D
�control=&FE6E
�osbyte=&FFF4
�oscli=&FFF7
�
A%=&A8
�X%=0
�
Y%=&FF
�"extvec=(�(osbyte)�&FFFF00)�256
�� pass = 0 � 2 � 2
�P%=�
�
[OPT pass
�BRK
BRK
BRK
JMP service+diff
"OPT �equb(&82)
,%OPT �equb((copyright+diff) � 256)
6.copyright
@BRK
JOPT �equs("(C)")
TBRK
^	.flag
hBRK
r.service
|PHA
�TXA
�PHA
�TYA
�PHA
�TSX
�LDA stack,X
�
CMP #5
�BEQ interupt
�CMP #&FE
�BNE exit
�LDA #(buffer+diff) � 256 
�STA extvec+&33
�LDA #(buffer+diff) � 256 
STA extvec+&34
LDA romnumber
STA extvec+&35
&LDA #&81
0STA datin+diff+1
:STA datin+diff+2
DSTA datout+diff+1
NSTA datout+diff+2
XLDX #&33
bLDY #&FF
lSTX uptv
vSTY uptv+1
�	.exit
�PLA
�TAY
�PLA
�TAX
�PLA
�.return
�RTS
�.buffer
�
CPY #3
�BNE return
�
CMP #1
�BNE active
STA flag+diff
.active
PHA
 TXA 
*PHA 
4TYA
>PHA
H.outerloop
RLDY datin+diff+2
\LDX datin+diff+1
fINX 
pBNE nottop
zINY 
�CPY #&C0
�BNE nottop
�LDY #&81
�.nottop
�CPX datout+diff+1
�BNE morespace
�CPY datout+diff+2
�BEQ innerloop
�SEC
�.morespace
�TYA 
�PHA 
�LDA #&91

LDX #3
JSR osbyte
PLA 
$BCS innerloop
.
.datin
8STY pointer
BINC datin+diff+1
LSTA datin+diff+2
VCLC 
`BCC innerloop
j
.interupt
tLDA #&82
~BIT status
�BEQ restore
�LDA starfx5
�
CMP #3
�BNE restore
�.innerloop
�LDA flag+diff
�BNE notpoll
�LDA #&82
�BIT status
�BNE notpoll
�	.step
�BCC outerloop
.restore

CLC
BCC exit
.notpoll
(PHP 
2
LDA #0
<STA flag+diff
FLDA datin+diff+1
PCMP datout+diff+1
ZBNE output
dLDA datin+diff+2
nCMP datout+diff+2
xBNE output
�PLP
�
LDX #2
�STX control
�LDA #&7B
�INX
�JSR osbyte
�JMP restore+diff
�.output
�LDA handshake
�
� #&F0
��A #&0A
�LDX #&82
�.datout
LDY pointer
STA handshake
STX control
"STY printout
,INC datout+diff+1
6BNE notpage
@LDY datout+diff+2
JINY 
TCPY #&C0
^BNE moreroom
hLDY #&81
r
.moreroom
|STY datout+diff+2
�.notpage
�PLP 
�BCS innerloop
�BCC step
�
.lastbyte
�]
��
�!�'"Save filename = "filename$
�� filename$="" �
�K$save="SAVE "+filename$+" "+�~(�)+" "+�~(lastbyte)+" FFFF8000 FFFF8000"
�X%=save � 256
�Y%=save � 256
�*OPT1,2
� oscli
*OPT1,0
�
&ݤequb(byte)
0?P%=byte
:P%=P%+1
D	=pass
Nݤequw(word)
X?P%=word � 256
bP%?1=word � 256
lP%=P%+2
v	=pass
�ݤequd(double)
�!P%=double
�P%=P%+4
�	=pass
�ݤequs(string$)
�$P%=string$
�P%=P%+�(string$)
�	=pass
�
00000000  0d 00 0a 0d f4 3a 20 42  55 46 46 45 52 0d 00 14  |.....: BUFFER...|
00000010  21 f4 3a 20 28 43 29 20  47 6f 72 64 6f 6e 20 48  |!.: (C) Gordon H|
00000020  6f 72 73 69 6e 67 74 6f  6e 20 31 39 38 37 0d 00  |orsington 1987..|
00000030  1e 06 eb 37 0d 00 28 0b  d3 3d 26 33 43 30 30 0d  |...7..(..=&3C00.|
00000040  00 32 0d de 20 73 61 76  65 20 35 30 0d 00 3c 10  |.2.. save 50..<.|
00000050  64 69 66 66 3d 26 38 30  30 30 2d 93 0d 00 46 11  |diff=&8000-...F.|
00000060  72 6f 6d 6e 75 6d 62 65  72 3d 26 46 34 0d 00 50  |romnumber=&F4..P|
00000070  0e 73 74 61 63 6b 3d 26  31 30 33 0d 00 5a 0d 75  |.stack=&103..Z.u|
00000080  70 74 76 3d 26 32 32 32  0d 00 64 10 73 74 61 72  |ptv=&222..d.star|
00000090  66 78 35 3d 26 32 38 35  0d 00 6e 11 70 6f 69 6e  |fx5=&285..n.poin|
000000a0  74 65 72 3d 26 38 31 30  30 0d 00 78 12 70 72 69  |ter=&8100..x.pri|
000000b0  6e 74 6f 75 74 3d 26 46  45 36 31 0d 00 82 13 68  |ntout=&FE61....h|
000000c0  61 6e 64 73 68 61 6b 65  3d 26 46 45 36 43 0d 00  |andshake=&FE6C..|
000000d0  8c 10 73 74 61 74 75 73  3d 26 46 45 36 44 0d 00  |..status=&FE6D..|
000000e0  96 11 63 6f 6e 74 72 6f  6c 3d 26 46 45 36 45 0d  |..control=&FE6E.|
000000f0  00 a0 10 6f 73 62 79 74  65 3d 26 46 46 46 34 0d  |...osbyte=&FFF4.|
00000100  00 aa 0f 6f 73 63 6c 69  3d 26 46 46 46 37 0d 00  |...oscli=&FFF7..|
00000110  b4 0a 41 25 3d 26 41 38  0d 00 be 08 58 25 3d 30  |..A%=&A8....X%=0|
00000120  0d 00 c8 0a 59 25 3d 26  46 46 0d 00 d2 22 65 78  |....Y%=&FF..."ex|
00000130  74 76 65 63 3d 28 ba 28  6f 73 62 79 74 65 29 80  |tvec=(.(osbyte).|
00000140  26 46 46 46 46 30 30 29  81 32 35 36 0d 00 dc 16  |&FFFF00).256....|
00000150  e3 20 70 61 73 73 20 3d  20 30 20 b8 20 32 20 88  |. pass = 0 . 2 .|
00000160  20 32 0d 00 e6 08 50 25  3d 93 0d 00 f0 0d 5b 4f  | 2....P%=.....[O|
00000170  50 54 20 70 61 73 73 0d  00 fa 07 42 52 4b 0d 01  |PT pass....BRK..|
00000180  04 07 42 52 4b 0d 01 0e  07 42 52 4b 0d 01 18 14  |..BRK....BRK....|
00000190  4a 4d 50 20 73 65 72 76  69 63 65 2b 64 69 66 66  |JMP service+diff|
000001a0  0d 01 22 12 4f 50 54 20  a4 65 71 75 62 28 26 38  |..".OPT .equb(&8|
000001b0  32 29 0d 01 2c 25 4f 50  54 20 a4 65 71 75 62 28  |2)..,%OPT .equb(|
000001c0  28 63 6f 70 79 72 69 67  68 74 2b 64 69 66 66 29  |(copyright+diff)|
000001d0  20 83 20 32 35 36 29 0d  01 36 0e 2e 63 6f 70 79  | . 256)..6..copy|
000001e0  72 69 67 68 74 0d 01 40  07 42 52 4b 0d 01 4a 14  |right..@.BRK..J.|
000001f0  4f 50 54 20 a4 65 71 75  73 28 22 28 43 29 22 29  |OPT .equs("(C)")|
00000200  0d 01 54 07 42 52 4b 0d  01 5e 09 2e 66 6c 61 67  |..T.BRK..^..flag|
00000210  0d 01 68 07 42 52 4b 0d  01 72 0c 2e 73 65 72 76  |..h.BRK..r..serv|
00000220  69 63 65 0d 01 7c 07 50  48 41 0d 01 86 07 54 58  |ice..|.PHA....TX|
00000230  41 0d 01 90 07 50 48 41  0d 01 9a 07 54 59 41 0d  |A....PHA....TYA.|
00000240  01 a4 07 50 48 41 0d 01  ae 07 54 53 58 0d 01 b8  |...PHA....TSX...|
00000250  0f 4c 44 41 20 73 74 61  63 6b 2c 58 0d 01 c2 0a  |.LDA stack,X....|
00000260  43 4d 50 20 23 35 0d 01  cc 10 42 45 51 20 69 6e  |CMP #5....BEQ in|
00000270  74 65 72 75 70 74 0d 01  d6 0c 43 4d 50 20 23 26  |terupt....CMP #&|
00000280  46 45 0d 01 e0 0c 42 4e  45 20 65 78 69 74 0d 01  |FE....BNE exit..|
00000290  ea 1d 4c 44 41 20 23 28  62 75 66 66 65 72 2b 64  |..LDA #(buffer+d|
000002a0  69 66 66 29 20 83 20 32  35 36 20 0d 01 f4 12 53  |iff) . 256 ....S|
000002b0  54 41 20 65 78 74 76 65  63 2b 26 33 33 0d 01 fe  |TA extvec+&33...|
000002c0  1d 4c 44 41 20 23 28 62  75 66 66 65 72 2b 64 69  |.LDA #(buffer+di|
000002d0  66 66 29 20 81 20 32 35  36 20 0d 02 08 12 53 54  |ff) . 256 ....ST|
000002e0  41 20 65 78 74 76 65 63  2b 26 33 34 0d 02 12 11  |A extvec+&34....|
000002f0  4c 44 41 20 72 6f 6d 6e  75 6d 62 65 72 0d 02 1c  |LDA romnumber...|
00000300  12 53 54 41 20 65 78 74  76 65 63 2b 26 33 35 0d  |.STA extvec+&35.|
00000310  02 26 0c 4c 44 41 20 23  26 38 31 0d 02 30 14 53  |.&.LDA #&81..0.S|
00000320  54 41 20 64 61 74 69 6e  2b 64 69 66 66 2b 31 0d  |TA datin+diff+1.|
00000330  02 3a 14 53 54 41 20 64  61 74 69 6e 2b 64 69 66  |.:.STA datin+dif|
00000340  66 2b 32 0d 02 44 15 53  54 41 20 64 61 74 6f 75  |f+2..D.STA datou|
00000350  74 2b 64 69 66 66 2b 31  0d 02 4e 15 53 54 41 20  |t+diff+1..N.STA |
00000360  64 61 74 6f 75 74 2b 64  69 66 66 2b 32 0d 02 58  |datout+diff+2..X|
00000370  0c 4c 44 58 20 23 26 33  33 0d 02 62 0c 4c 44 59  |.LDX #&33..b.LDY|
00000380  20 23 26 46 46 0d 02 6c  0c 53 54 58 20 75 70 74  | #&FF..l.STX upt|
00000390  76 0d 02 76 0e 53 54 59  20 75 70 74 76 2b 31 0d  |v..v.STY uptv+1.|
000003a0  02 80 09 2e 65 78 69 74  0d 02 8a 07 50 4c 41 0d  |....exit....PLA.|
000003b0  02 94 07 54 41 59 0d 02  9e 07 50 4c 41 0d 02 a8  |...TAY....PLA...|
000003c0  07 54 41 58 0d 02 b2 07  50 4c 41 0d 02 bc 0b 2e  |.TAX....PLA.....|
000003d0  72 65 74 75 72 6e 0d 02  c6 07 52 54 53 0d 02 d0  |return....RTS...|
000003e0  0b 2e 62 75 66 66 65 72  0d 02 da 0a 43 50 59 20  |..buffer....CPY |
000003f0  23 33 0d 02 e4 0e 42 4e  45 20 72 65 74 75 72 6e  |#3....BNE return|
00000400  0d 02 ee 0a 43 4d 50 20  23 31 0d 02 f8 0e 42 4e  |....CMP #1....BN|
00000410  45 20 61 63 74 69 76 65  0d 03 02 11 53 54 41 20  |E active....STA |
00000420  66 6c 61 67 2b 64 69 66  66 0d 03 0c 0b 2e 61 63  |flag+diff.....ac|
00000430  74 69 76 65 0d 03 16 07  50 48 41 0d 03 20 08 54  |tive....PHA.. .T|
00000440  58 41 20 0d 03 2a 08 50  48 41 20 0d 03 34 07 54  |XA ..*.PHA ..4.T|
00000450  59 41 0d 03 3e 07 50 48  41 0d 03 48 0e 2e 6f 75  |YA..>.PHA..H..ou|
00000460  74 65 72 6c 6f 6f 70 0d  03 52 14 4c 44 59 20 64  |terloop..R.LDY d|
00000470  61 74 69 6e 2b 64 69 66  66 2b 32 0d 03 5c 14 4c  |atin+diff+2..\.L|
00000480  44 58 20 64 61 74 69 6e  2b 64 69 66 66 2b 31 0d  |DX datin+diff+1.|
00000490  03 66 08 49 4e 58 20 0d  03 70 0e 42 4e 45 20 6e  |.f.INX ..p.BNE n|
000004a0  6f 74 74 6f 70 0d 03 7a  08 49 4e 59 20 0d 03 84  |ottop..z.INY ...|
000004b0  0c 43 50 59 20 23 26 43  30 0d 03 8e 0e 42 4e 45  |.CPY #&C0....BNE|
000004c0  20 6e 6f 74 74 6f 70 0d  03 98 0c 4c 44 59 20 23  | nottop....LDY #|
000004d0  26 38 31 0d 03 a2 0b 2e  6e 6f 74 74 6f 70 0d 03  |&81.....nottop..|
000004e0  ac 15 43 50 58 20 64 61  74 6f 75 74 2b 64 69 66  |..CPX datout+dif|
000004f0  66 2b 31 0d 03 b6 11 42  4e 45 20 6d 6f 72 65 73  |f+1....BNE mores|
00000500  70 61 63 65 0d 03 c0 15  43 50 59 20 64 61 74 6f  |pace....CPY dato|
00000510  75 74 2b 64 69 66 66 2b  32 0d 03 ca 11 42 45 51  |ut+diff+2....BEQ|
00000520  20 69 6e 6e 65 72 6c 6f  6f 70 0d 03 d4 07 53 45  | innerloop....SE|
00000530  43 0d 03 de 0e 2e 6d 6f  72 65 73 70 61 63 65 0d  |C.....morespace.|
00000540  03 e8 08 54 59 41 20 0d  03 f2 08 50 48 41 20 0d  |...TYA ....PHA .|
00000550  03 fc 0c 4c 44 41 20 23  26 39 31 0d 04 06 0a 4c  |...LDA #&91....L|
00000560  44 58 20 23 33 0d 04 10  0e 4a 53 52 20 6f 73 62  |DX #3....JSR osb|
00000570  79 74 65 0d 04 1a 08 50  4c 41 20 0d 04 24 11 42  |yte....PLA ..$.B|
00000580  43 53 20 69 6e 6e 65 72  6c 6f 6f 70 0d 04 2e 0a  |CS innerloop....|
00000590  2e 64 61 74 69 6e 0d 04  38 0f 53 54 59 20 70 6f  |.datin..8.STY po|
000005a0  69 6e 74 65 72 0d 04 42  14 49 4e 43 20 64 61 74  |inter..B.INC dat|
000005b0  69 6e 2b 64 69 66 66 2b  31 0d 04 4c 14 53 54 41  |in+diff+1..L.STA|
000005c0  20 64 61 74 69 6e 2b 64  69 66 66 2b 32 0d 04 56  | datin+diff+2..V|
000005d0  08 43 4c 43 20 0d 04 60  11 42 43 43 20 69 6e 6e  |.CLC ..`.BCC inn|
000005e0  65 72 6c 6f 6f 70 0d 04  6a 0d 2e 69 6e 74 65 72  |erloop..j..inter|
000005f0  75 70 74 0d 04 74 0c 4c  44 41 20 23 26 38 32 0d  |upt..t.LDA #&82.|
00000600  04 7e 0e 42 49 54 20 73  74 61 74 75 73 0d 04 88  |.~.BIT status...|
00000610  0f 42 45 51 20 72 65 73  74 6f 72 65 0d 04 92 0f  |.BEQ restore....|
00000620  4c 44 41 20 73 74 61 72  66 78 35 0d 04 9c 0a 43  |LDA starfx5....C|
00000630  4d 50 20 23 33 0d 04 a6  0f 42 4e 45 20 72 65 73  |MP #3....BNE res|
00000640  74 6f 72 65 0d 04 b0 0e  2e 69 6e 6e 65 72 6c 6f  |tore.....innerlo|
00000650  6f 70 0d 04 ba 11 4c 44  41 20 66 6c 61 67 2b 64  |op....LDA flag+d|
00000660  69 66 66 0d 04 c4 0f 42  4e 45 20 6e 6f 74 70 6f  |iff....BNE notpo|
00000670  6c 6c 0d 04 ce 0c 4c 44  41 20 23 26 38 32 0d 04  |ll....LDA #&82..|
00000680  d8 0e 42 49 54 20 73 74  61 74 75 73 0d 04 e2 0f  |..BIT status....|
00000690  42 4e 45 20 6e 6f 74 70  6f 6c 6c 0d 04 ec 09 2e  |BNE notpoll.....|
000006a0  73 74 65 70 0d 04 f6 11  42 43 43 20 6f 75 74 65  |step....BCC oute|
000006b0  72 6c 6f 6f 70 0d 05 00  0c 2e 72 65 73 74 6f 72  |rloop.....restor|
000006c0  65 0d 05 0a 07 43 4c 43  0d 05 14 0c 42 43 43 20  |e....CLC....BCC |
000006d0  65 78 69 74 0d 05 1e 0c  2e 6e 6f 74 70 6f 6c 6c  |exit.....notpoll|
000006e0  0d 05 28 08 50 48 50 20  0d 05 32 0a 4c 44 41 20  |..(.PHP ..2.LDA |
000006f0  23 30 0d 05 3c 11 53 54  41 20 66 6c 61 67 2b 64  |#0..<.STA flag+d|
00000700  69 66 66 0d 05 46 14 4c  44 41 20 64 61 74 69 6e  |iff..F.LDA datin|
00000710  2b 64 69 66 66 2b 31 0d  05 50 15 43 4d 50 20 64  |+diff+1..P.CMP d|
00000720  61 74 6f 75 74 2b 64 69  66 66 2b 31 0d 05 5a 0e  |atout+diff+1..Z.|
00000730  42 4e 45 20 6f 75 74 70  75 74 0d 05 64 14 4c 44  |BNE output..d.LD|
00000740  41 20 64 61 74 69 6e 2b  64 69 66 66 2b 32 0d 05  |A datin+diff+2..|
00000750  6e 15 43 4d 50 20 64 61  74 6f 75 74 2b 64 69 66  |n.CMP datout+dif|
00000760  66 2b 32 0d 05 78 0e 42  4e 45 20 6f 75 74 70 75  |f+2..x.BNE outpu|
00000770  74 0d 05 82 07 50 4c 50  0d 05 8c 0a 4c 44 58 20  |t....PLP....LDX |
00000780  23 32 0d 05 96 0f 53 54  58 20 63 6f 6e 74 72 6f  |#2....STX contro|
00000790  6c 0d 05 a0 0c 4c 44 41  20 23 26 37 42 0d 05 aa  |l....LDA #&7B...|
000007a0  07 49 4e 58 0d 05 b4 0e  4a 53 52 20 6f 73 62 79  |.INX....JSR osby|
000007b0  74 65 0d 05 be 14 4a 4d  50 20 72 65 73 74 6f 72  |te....JMP restor|
000007c0  65 2b 64 69 66 66 0d 05  c8 0b 2e 6f 75 74 70 75  |e+diff.....outpu|
000007d0  74 0d 05 d2 11 4c 44 41  20 68 61 6e 64 73 68 61  |t....LDA handsha|
000007e0  6b 65 0d 05 dc 0a 80 20  23 26 46 30 0d 05 e6 0b  |ke..... #&F0....|
000007f0  84 41 20 23 26 30 41 0d  05 f0 0c 4c 44 58 20 23  |.A #&0A....LDX #|
00000800  26 38 32 0d 05 fa 0b 2e  64 61 74 6f 75 74 0d 06  |&82.....datout..|
00000810  04 0f 4c 44 59 20 70 6f  69 6e 74 65 72 0d 06 0e  |..LDY pointer...|
00000820  11 53 54 41 20 68 61 6e  64 73 68 61 6b 65 0d 06  |.STA handshake..|
00000830  18 0f 53 54 58 20 63 6f  6e 74 72 6f 6c 0d 06 22  |..STX control.."|
00000840  10 53 54 59 20 70 72 69  6e 74 6f 75 74 0d 06 2c  |.STY printout..,|
00000850  15 49 4e 43 20 64 61 74  6f 75 74 2b 64 69 66 66  |.INC datout+diff|
00000860  2b 31 0d 06 36 0f 42 4e  45 20 6e 6f 74 70 61 67  |+1..6.BNE notpag|
00000870  65 0d 06 40 15 4c 44 59  20 64 61 74 6f 75 74 2b  |e..@.LDY datout+|
00000880  64 69 66 66 2b 32 0d 06  4a 08 49 4e 59 20 0d 06  |diff+2..J.INY ..|
00000890  54 0c 43 50 59 20 23 26  43 30 0d 06 5e 10 42 4e  |T.CPY #&C0..^.BN|
000008a0  45 20 6d 6f 72 65 72 6f  6f 6d 0d 06 68 0c 4c 44  |E moreroom..h.LD|
000008b0  59 20 23 26 38 31 0d 06  72 0d 2e 6d 6f 72 65 72  |Y #&81..r..morer|
000008c0  6f 6f 6d 0d 06 7c 15 53  54 59 20 64 61 74 6f 75  |oom..|.STY datou|
000008d0  74 2b 64 69 66 66 2b 32  0d 06 86 0c 2e 6e 6f 74  |t+diff+2.....not|
000008e0  70 61 67 65 0d 06 90 08  50 4c 50 20 0d 06 9a 11  |page....PLP ....|
000008f0  42 43 53 20 69 6e 6e 65  72 6c 6f 6f 70 0d 06 a4  |BCS innerloop...|
00000900  0c 42 43 43 20 73 74 65  70 0d 06 ae 0d 2e 6c 61  |.BCC step.....la|
00000910  73 74 62 79 74 65 0d 06  b8 05 5d 0d 06 c2 05 ed  |stbyte....].....|
00000920  0d 06 cc 21 e8 27 22 53  61 76 65 20 66 69 6c 65  |...!.'"Save file|
00000930  6e 61 6d 65 20 3d 20 22  66 69 6c 65 6e 61 6d 65  |name = "filename|
00000940  24 0d 06 d6 14 e7 20 66  69 6c 65 6e 61 6d 65 24  |$..... filename$|
00000950  3d 22 22 20 e0 0d 06 e0  4b 24 73 61 76 65 3d 22  |="" ....K$save="|
00000960  53 41 56 45 20 22 2b 66  69 6c 65 6e 61 6d 65 24  |SAVE "+filename$|
00000970  2b 22 20 22 2b c3 7e 28  93 29 2b 22 20 22 2b c3  |+" "+.~(.)+" "+.|
00000980  7e 28 6c 61 73 74 62 79  74 65 29 2b 22 20 46 46  |~(lastbyte)+" FF|
00000990  46 46 38 30 30 30 20 46  46 46 46 38 30 30 30 22  |FF8000 FFFF8000"|
000009a0  0d 06 ea 11 58 25 3d 73  61 76 65 20 83 20 32 35  |....X%=save . 25|
000009b0  36 0d 06 f4 11 59 25 3d  73 61 76 65 20 81 20 32  |6....Y%=save . 2|
000009c0  35 36 0d 06 fe 0b 2a 4f  50 54 31 2c 32 0d 07 08  |56....*OPT1,2...|
000009d0  0b d6 20 6f 73 63 6c 69  0d 07 12 0b 2a 4f 50 54  |.. oscli....*OPT|
000009e0  31 2c 30 0d 07 1c 05 e0  0d 07 26 10 dd a4 65 71  |1,0.......&...eq|
000009f0  75 62 28 62 79 74 65 29  0d 07 30 0c 3f 50 25 3d  |ub(byte)..0.?P%=|
00000a00  62 79 74 65 0d 07 3a 0b  50 25 3d 50 25 2b 31 0d  |byte..:.P%=P%+1.|
00000a10  07 44 09 3d 70 61 73 73  0d 07 4e 10 dd a4 65 71  |.D.=pass..N...eq|
00000a20  75 77 28 77 6f 72 64 29  0d 07 58 12 3f 50 25 3d  |uw(word)..X.?P%=|
00000a30  77 6f 72 64 20 83 20 32  35 36 0d 07 62 13 50 25  |word . 256..b.P%|
00000a40  3f 31 3d 77 6f 72 64 20  81 20 32 35 36 0d 07 6c  |?1=word . 256..l|
00000a50  0b 50 25 3d 50 25 2b 32  0d 07 76 09 3d 70 61 73  |.P%=P%+2..v.=pas|
00000a60  73 0d 07 80 12 dd a4 65  71 75 64 28 64 6f 75 62  |s......equd(doub|
00000a70  6c 65 29 0d 07 8a 0e 21  50 25 3d 64 6f 75 62 6c  |le)....!P%=doubl|
00000a80  65 0d 07 94 0b 50 25 3d  50 25 2b 34 0d 07 9e 09  |e....P%=P%+4....|
00000a90  3d 70 61 73 73 0d 07 a8  13 dd a4 65 71 75 73 28  |=pass......equs(|
00000aa0  73 74 72 69 6e 67 24 29  0d 07 b2 0f 24 50 25 3d  |string$)....$P%=|
00000ab0  73 74 72 69 6e 67 24 0d  07 bc 14 50 25 3d 50 25  |string$....P%=P%|
00000ac0  2b a9 28 73 74 72 69 6e  67 24 29 0d 07 c6 09 3d  |+.(string$)....=|
00000ad0  70 61 73 73 0d ff                                 |pass..|
00000ad6
08-10-88/BUFFER.m0
08-10-88/BUFFER.m1
08-10-88/BUFFER.m2
08-10-88/BUFFER.m4
08-10-88/BUFFER.m5