Home » CEEFAX disks » telesoftware2.adl » PTBUFCD

PTBUFCD

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 » telesoftware2.adl
Filename: PTBUFCD
Read OK:
File size: 08D1 bytes
Load address: 1900
Exec address: 8023
Duplicates

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

File contents
   10REM"��
   20REM"���   I/O Printer Buffer
   30REM"���     �Mike Rawlings
   40REM"���        31-1-1987
   50REM"��
   60REM"��
   70REM"��� For BBCB / B+ / Electron
   80REM"���     MASTER / COMPACT
   90REM"��   �SECOND / CO PROCESSOR
  100REM"��
  110REM"��
  120REM"���    *TYPE Buf/Inf For
  130REM"���       Full details
  140REM"��
  150:
  160REM"���� Zero Page Addresses    �
  170ins=&78:rem=&7A:ext=&7C:f=&7E
  180:
  190REM"����Start / End Addresses   �
  200start=&1F00:end=&7A00
  210:
  220DIMosc 40,sve 9:VDU15:FOR p=0 TO 3 STEP 3
  230:
  240REM"����Code Address   �
  250P%=&7A00
  260:
  270[OPTp:.set LDY#0:STYf:SEI:.L1 LDA&22A,Y:STAins1,Y:LDAinit+6,Y:STA&22A,Y
  280INY:CPY#6:BNEL1:CLI:RTS:.ins2 LDYf:BEQold1:CPX#3:BNEold1:CPY#3:BNEB1:SEC:RTS:.B1 LDY#0:STA(ins),Y:INY:STYf:PHA:LDYins:LDAins+1:JSRS:STAins+1:STYins:PLA:INCext:BNEB2:INCext+1
  290LDY#((end-start)DIV 256):CPYext+1:BNEB2:STXf:.B2 CLC:RTS:.old1 JMP(ins1):.rem2 PHP:LDYf:BEQold2:CPX#3:BNEold2:CPY#2:BNEB3:PLP:SEC:RTS:.B3 LDY#0:LDA(rem),Y:PLP:BVSB2:INY:STYf:PHA:LDYrem:LDArem+1:JSRS:STArem+1:STYrem:PLA:DECext:BNEB4
  300LDYext+1:BNEB5:INCf:BPLB5:.B4 LDYext:INY:BNEB5:DECext+1:.B5 TAY:CLC:RTS:.old2 PLP:JMP(rem1):.cnt2 PHP:CPX#127:BEQflsh:LDA#0:CPX#126:BNEB6:STAf:PLP:RTS:.B6 CMPf:BEQold3:CPX#3:BNEold3:PLP:PHP:BVCB7
  310:
  320\"����PLP   �
  330\"����RTS   �
  340:
  350.flsh LDA#2:STAf:TYA:PHA:LDY#0:SEI:.L2 LDAinit,Y:STAins,Y:INY:CPY#6:BNEL2:CLI:PLA:TAY:PLP:RTS:.B7 PLP:PHP:BCCB8:SBCext:TAX:LDA#((end-start)DIV256):SBCext+1:TAY:PLP:RTS:.B8 LDXext:LDYext+1:PLP:RTS:.old3 PLP:JMP(cnt1):.S INY:BNEB9:CLC
  360ADC#1:CMP#(end DIV256):BNEB9:LDA#(start DIV256):.B9 RTS:.init:]
  370:
  380!P%=start:!(P%+2)=start:!(P%+6)=ins2:!(P%+8)=rem2:!(P%+10)=cnt2:ins1=P%+12:rem1=P%+14:cnt1=P%+16:NEXT:*FX21,3
  390VDU2,1,8,1,8,3:IFADVAL-4=63 VDU7:PRINT''"PLEASE TURN PRINTER OFF":REPEAT:TIME=0:REPEATUNTILTIME>50:VDU2,1,8,1,8,3:UNTILADVAL-4<>63
  400*FX21,3
  410CALLset:IFADVAL-4<>63 PROCer
  420*FX128,128
  430IFADVAL-4<>end-start PROCer
  440VDU2,1,65,1,65,3:IFADVAL-4<>end-start-1 PROCer
  450A%=145:X%=3:IFUSR(&FFF4)<>&B0410391 PROCer
  460IFADVAL-4<>end-start PROCer
  470A%=145:X%=3:IFUSR(&FFF4)<>&B1020391 PROCer
  480IFADVAL-4<>end-start PROCer
  490*FX128,129
  500IFADVAL-4<>63 PROCer
  510ONERROR REPORT:GOTO540
  520$sve=" FFFF"+STRING$(4-LEN(STR$~(set)),CHR$(48))+STR$~(set):$osc="SAVE PRNTBUF "+STR$~(set)+" "+STR$~(P%+18)+STRING$(2,$sve):PRINT''$osc'':X%=osc MOD256:Y%=osc DIV256:CALL&FFF7:GOTO540
  530DEFPROCer:VDU7:PRINT''"THERE IS AN ERROR IN"'"THE ASSEMBLY LISTING"
  540p=PAGE:REPEATp=p+1:UNTIL?p=13:?p=0:END

�"��
�"���   I/O Printer Buffer
�"���     �Mike Rawlings
(�"���        31-1-1987
2�"��
<�"��
F"�"��� For BBCB / B+ / Electron
P�"���     MASTER / COMPACT
Z!�"��   �SECOND / CO PROCESSOR
d�"��
n�"��
x�"���    *TYPE Buf/Inf For
��"���       Full details
��"��
�:
�#�"���� Zero Page Addresses    �
�!ins=&78:rem=&7A:ext=&7C:f=&7E
�:
�#�"����Start / End Addresses   �
�start=&1F00:end=&7A00
�:
�#�osc 40,sve 9:�15:� p=0 � 3 � 3
�:
��"����Code Address   �
�P%=&7A00
:
K[OPTp:.set LDY#0:STYf:SEI:.L1 LDA&22A,Y:STAins1,Y:LDAinit+6,Y:STA&22A,Y
�INY:CPY#6:BNEL1:CLI:RTS:.ins2 LDYf:BEQold1:CPX#3:BNEold1:CPY#3:BNEB1:SEC:RTS:.B1 LDY#0:STA(ins),Y:INY:STYf:PHA:LDYins:LDAins+1:JSRS:STAins+1:STYins:PLA:INCext:BNEB2:INCext+1
"�LDY#((end-start)� 256):CPYext+1:BNEB2:STXf:.B2 CLC:RTS:.old1 JMP(ins1):.rem2 PHP:LDYf:BEQold2:CPX#3:BNEold2:CPY#2:BNEB3:PLP:SEC:RTS:.B3 LDY#0:LDA(rem),Y:PLP:BVSB2:INY:STYf:PHA:LDYrem:LDArem+1:JSRS:STArem+1:STYrem:PLA:DECext:BNEB4
,�LDYext+1:BNEB5:INCf:BPLB5:.B4 LDYext:INY:BNEB5:DECext+1:.B5 TAY:CLC:RTS:.old2 PLP:JMP(rem1):.cnt2 PHP:CPX#127:BEQflsh:LDA#0:CPX#126:BNEB6:STAf:PLP:RTS:.B6 CMPf:BEQold3:CPX#3:BNEold3:PLP:PHP:BVCB7
6:
@\"����PLP   �
J\"����RTS   �
T:
^�.flsh LDA#2:STAf:TYA:PHA:LDY#0:SEI:.L2 LDAinit,Y:STAins,Y:INY:CPY#6:BNEL2:CLI:PLA:TAY:PLP:RTS:.B7 PLP:PHP:BCCB8:SBCext:TAX:LDA#((end-start)�256):SBCext+1:TAY:PLP:RTS:.B8 LDXext:LDYext+1:PLP:RTS:.old3 PLP:JMP(cnt1):.S INY:BNEB9:CLC
h?ADC#1:CMP#(end �256):BNEB9:LDA#(start �256):.B9 RTS:.init:]
r:
|n!P%=start:!(P%+2)=start:!(P%+6)=ins2:!(P%+8)=rem2:!(P%+10)=cnt2:ins1=P%+12:rem1=P%+14:cnt1=P%+16:�:*FX21,3
�[�2,1,8,1,8,3:�-4=63 �7:�''"PLEASE TURN PRINTER OFF":�:�=0:���>50:�2,1,8,1,8,3:��-4<>63
�*FX21,3
��set:�-4<>63 �er
�*FX128,128
��-4<>end-start �er
�(�2,1,65,1,65,3:�-4<>end-start-1 �er
�(A%=145:X%=3:�(&FFF4)<>&B0410391 �er
��-4<>end-start �er
�(A%=145:X%=3:�(&FFF4)<>&B1020391 �er
��-4<>end-start �er
�*FX128,129
��-4<>63 �er
�� �:�T\B
�$sve=" FFFF"+�4-�(�~(set)),�(48))+�~(set):$osc="SAVE PRNTBUF "+�~(set)+" "+�~(P%+18)+�2,$sve):�''$osc'':X%=osc �256:Y%=osc �256:�&FFF7:�T\B
<��er:�7:�''"THERE IS AN ERROR IN"'"THE ASSEMBLY LISTING"
p=�:�p=p+1:�?p=13:?p=0:�
�
00000000  0d 00 0a 08 f4 22 86 9d  0d 00 14 1e f4 22 86 9d  |....."......."..|
00000010  84 20 20 20 49 2f 4f 20  50 72 69 6e 74 65 72 20  |.   I/O Printer |
00000020  42 75 66 66 65 72 0d 00  1e 1c f4 22 86 9d 84 20  |Buffer....."... |
00000030  20 20 20 20 84 4d 69 6b  65 20 52 61 77 6c 69 6e  |    .Mike Rawlin|
00000040  67 73 0d 00 28 1a f4 22  86 9d 84 20 20 20 20 20  |gs..(.."...     |
00000050  20 20 20 33 31 2d 31 2d  31 39 38 37 0d 00 32 08  |   31-1-1987..2.|
00000060  f4 22 86 9d 0d 00 3c 08  f4 22 83 9d 0d 00 46 22  |."....<.."....F"|
00000070  f4 22 83 9d 81 20 46 6f  72 20 42 42 43 42 20 2f  |."... For BBCB /|
00000080  20 42 2b 20 2f 20 45 6c  65 63 74 72 6f 6e 0d 00  | B+ / Electron..|
00000090  50 1e f4 22 83 9d 81 20  20 20 20 20 4d 41 53 54  |P.."...     MAST|
000000a0  45 52 20 2f 20 43 4f 4d  50 41 43 54 0d 00 5a 21  |ER / COMPACT..Z!|
000000b0  f4 22 83 9d 20 20 20 81  53 45 43 4f 4e 44 20 2f  |."..   .SECOND /|
000000c0  20 43 4f 20 50 52 4f 43  45 53 53 4f 52 0d 00 64  | CO PROCESSOR..d|
000000d0  08 f4 22 83 9d 0d 00 6e  08 f4 22 84 9d 0d 00 78  |.."....n.."....x|
000000e0  1e f4 22 84 9d 87 20 20  20 20 2a 54 59 50 45 20  |.."...    *TYPE |
000000f0  42 75 66 2f 49 6e 66 20  46 6f 72 0d 00 82 1c f4  |Buf/Inf For.....|
00000100  22 84 9d 87 20 20 20 20  20 20 20 46 75 6c 6c 20  |"...       Full |
00000110  64 65 74 61 69 6c 73 0d  00 8c 08 f4 22 84 9d 0d  |details....."...|
00000120  00 96 05 3a 0d 00 a0 23  f4 22 83 9d 81 88 20 5a  |...:...#.".... Z|
00000130  65 72 6f 20 50 61 67 65  20 41 64 64 72 65 73 73  |ero Page Address|
00000140  65 73 20 20 20 20 9c 0d  00 aa 21 69 6e 73 3d 26  |es    ....!ins=&|
00000150  37 38 3a 72 65 6d 3d 26  37 41 3a 65 78 74 3d 26  |78:rem=&7A:ext=&|
00000160  37 43 3a 66 3d 26 37 45  0d 00 b4 05 3a 0d 00 be  |7C:f=&7E....:...|
00000170  23 f4 22 83 9d 81 88 53  74 61 72 74 20 2f 20 45  |#."....Start / E|
00000180  6e 64 20 41 64 64 72 65  73 73 65 73 20 20 20 9c  |nd Addresses   .|
00000190  0d 00 c8 19 73 74 61 72  74 3d 26 31 46 30 30 3a  |....start=&1F00:|
000001a0  65 6e 64 3d 26 37 41 30  30 0d 00 d2 05 3a 0d 00  |end=&7A00....:..|
000001b0  dc 23 de 6f 73 63 20 34  30 2c 73 76 65 20 39 3a  |.#.osc 40,sve 9:|
000001c0  ef 31 35 3a e3 20 70 3d  30 20 b8 20 33 20 88 20  |.15:. p=0 . 3 . |
000001d0  33 0d 00 e6 05 3a 0d 00  f0 1a f4 22 83 9d 81 88  |3....:....."....|
000001e0  43 6f 64 65 20 41 64 64  72 65 73 73 20 20 20 9c  |Code Address   .|
000001f0  0d 00 fa 0c 50 25 3d 26  37 41 30 30 0d 01 04 05  |....P%=&7A00....|
00000200  3a 0d 01 0e 4b 5b 4f 50  54 70 3a 2e 73 65 74 20  |:...K[OPTp:.set |
00000210  4c 44 59 23 30 3a 53 54  59 66 3a 53 45 49 3a 2e  |LDY#0:STYf:SEI:.|
00000220  4c 31 20 4c 44 41 26 32  32 41 2c 59 3a 53 54 41  |L1 LDA&22A,Y:STA|
00000230  69 6e 73 31 2c 59 3a 4c  44 41 69 6e 69 74 2b 36  |ins1,Y:LDAinit+6|
00000240  2c 59 3a 53 54 41 26 32  32 41 2c 59 0d 01 18 b1  |,Y:STA&22A,Y....|
00000250  49 4e 59 3a 43 50 59 23  36 3a 42 4e 45 4c 31 3a  |INY:CPY#6:BNEL1:|
00000260  43 4c 49 3a 52 54 53 3a  2e 69 6e 73 32 20 4c 44  |CLI:RTS:.ins2 LD|
00000270  59 66 3a 42 45 51 6f 6c  64 31 3a 43 50 58 23 33  |Yf:BEQold1:CPX#3|
00000280  3a 42 4e 45 6f 6c 64 31  3a 43 50 59 23 33 3a 42  |:BNEold1:CPY#3:B|
00000290  4e 45 42 31 3a 53 45 43  3a 52 54 53 3a 2e 42 31  |NEB1:SEC:RTS:.B1|
000002a0  20 4c 44 59 23 30 3a 53  54 41 28 69 6e 73 29 2c  | LDY#0:STA(ins),|
000002b0  59 3a 49 4e 59 3a 53 54  59 66 3a 50 48 41 3a 4c  |Y:INY:STYf:PHA:L|
000002c0  44 59 69 6e 73 3a 4c 44  41 69 6e 73 2b 31 3a 4a  |DYins:LDAins+1:J|
000002d0  53 52 53 3a 53 54 41 69  6e 73 2b 31 3a 53 54 59  |SRS:STAins+1:STY|
000002e0  69 6e 73 3a 50 4c 41 3a  49 4e 43 65 78 74 3a 42  |ins:PLA:INCext:B|
000002f0  4e 45 42 32 3a 49 4e 43  65 78 74 2b 31 0d 01 22  |NEB2:INCext+1.."|
00000300  e9 4c 44 59 23 28 28 65  6e 64 2d 73 74 61 72 74  |.LDY#((end-start|
00000310  29 81 20 32 35 36 29 3a  43 50 59 65 78 74 2b 31  |). 256):CPYext+1|
00000320  3a 42 4e 45 42 32 3a 53  54 58 66 3a 2e 42 32 20  |:BNEB2:STXf:.B2 |
00000330  43 4c 43 3a 52 54 53 3a  2e 6f 6c 64 31 20 4a 4d  |CLC:RTS:.old1 JM|
00000340  50 28 69 6e 73 31 29 3a  2e 72 65 6d 32 20 50 48  |P(ins1):.rem2 PH|
00000350  50 3a 4c 44 59 66 3a 42  45 51 6f 6c 64 32 3a 43  |P:LDYf:BEQold2:C|
00000360  50 58 23 33 3a 42 4e 45  6f 6c 64 32 3a 43 50 59  |PX#3:BNEold2:CPY|
00000370  23 32 3a 42 4e 45 42 33  3a 50 4c 50 3a 53 45 43  |#2:BNEB3:PLP:SEC|
00000380  3a 52 54 53 3a 2e 42 33  20 4c 44 59 23 30 3a 4c  |:RTS:.B3 LDY#0:L|
00000390  44 41 28 72 65 6d 29 2c  59 3a 50 4c 50 3a 42 56  |DA(rem),Y:PLP:BV|
000003a0  53 42 32 3a 49 4e 59 3a  53 54 59 66 3a 50 48 41  |SB2:INY:STYf:PHA|
000003b0  3a 4c 44 59 72 65 6d 3a  4c 44 41 72 65 6d 2b 31  |:LDYrem:LDArem+1|
000003c0  3a 4a 53 52 53 3a 53 54  41 72 65 6d 2b 31 3a 53  |:JSRS:STArem+1:S|
000003d0  54 59 72 65 6d 3a 50 4c  41 3a 44 45 43 65 78 74  |TYrem:PLA:DECext|
000003e0  3a 42 4e 45 42 34 0d 01  2c c7 4c 44 59 65 78 74  |:BNEB4..,.LDYext|
000003f0  2b 31 3a 42 4e 45 42 35  3a 49 4e 43 66 3a 42 50  |+1:BNEB5:INCf:BP|
00000400  4c 42 35 3a 2e 42 34 20  4c 44 59 65 78 74 3a 49  |LB5:.B4 LDYext:I|
00000410  4e 59 3a 42 4e 45 42 35  3a 44 45 43 65 78 74 2b  |NY:BNEB5:DECext+|
00000420  31 3a 2e 42 35 20 54 41  59 3a 43 4c 43 3a 52 54  |1:.B5 TAY:CLC:RT|
00000430  53 3a 2e 6f 6c 64 32 20  50 4c 50 3a 4a 4d 50 28  |S:.old2 PLP:JMP(|
00000440  72 65 6d 31 29 3a 2e 63  6e 74 32 20 50 48 50 3a  |rem1):.cnt2 PHP:|
00000450  43 50 58 23 31 32 37 3a  42 45 51 66 6c 73 68 3a  |CPX#127:BEQflsh:|
00000460  4c 44 41 23 30 3a 43 50  58 23 31 32 36 3a 42 4e  |LDA#0:CPX#126:BN|
00000470  45 42 36 3a 53 54 41 66  3a 50 4c 50 3a 52 54 53  |EB6:STAf:PLP:RTS|
00000480  3a 2e 42 36 20 43 4d 50  66 3a 42 45 51 6f 6c 64  |:.B6 CMPf:BEQold|
00000490  33 3a 43 50 58 23 33 3a  42 4e 45 6f 6c 64 33 3a  |3:CPX#3:BNEold3:|
000004a0  50 4c 50 3a 50 48 50 3a  42 56 43 42 37 0d 01 36  |PLP:PHP:BVCB7..6|
000004b0  05 3a 0d 01 40 11 5c 22  83 9d 81 88 50 4c 50 20  |.:..@.\"....PLP |
000004c0  20 20 9c 0d 01 4a 11 5c  22 83 9d 81 88 52 54 53  |  ...J.\"....RTS|
000004d0  20 20 20 9c 0d 01 54 05  3a 0d 01 5e ea 2e 66 6c  |   ...T.:..^..fl|
000004e0  73 68 20 4c 44 41 23 32  3a 53 54 41 66 3a 54 59  |sh LDA#2:STAf:TY|
000004f0  41 3a 50 48 41 3a 4c 44  59 23 30 3a 53 45 49 3a  |A:PHA:LDY#0:SEI:|
00000500  2e 4c 32 20 4c 44 41 69  6e 69 74 2c 59 3a 53 54  |.L2 LDAinit,Y:ST|
00000510  41 69 6e 73 2c 59 3a 49  4e 59 3a 43 50 59 23 36  |Ains,Y:INY:CPY#6|
00000520  3a 42 4e 45 4c 32 3a 43  4c 49 3a 50 4c 41 3a 54  |:BNEL2:CLI:PLA:T|
00000530  41 59 3a 50 4c 50 3a 52  54 53 3a 2e 42 37 20 50  |AY:PLP:RTS:.B7 P|
00000540  4c 50 3a 50 48 50 3a 42  43 43 42 38 3a 53 42 43  |LP:PHP:BCCB8:SBC|
00000550  65 78 74 3a 54 41 58 3a  4c 44 41 23 28 28 65 6e  |ext:TAX:LDA#((en|
00000560  64 2d 73 74 61 72 74 29  81 32 35 36 29 3a 53 42  |d-start).256):SB|
00000570  43 65 78 74 2b 31 3a 54  41 59 3a 50 4c 50 3a 52  |Cext+1:TAY:PLP:R|
00000580  54 53 3a 2e 42 38 20 4c  44 58 65 78 74 3a 4c 44  |TS:.B8 LDXext:LD|
00000590  59 65 78 74 2b 31 3a 50  4c 50 3a 52 54 53 3a 2e  |Yext+1:PLP:RTS:.|
000005a0  6f 6c 64 33 20 50 4c 50  3a 4a 4d 50 28 63 6e 74  |old3 PLP:JMP(cnt|
000005b0  31 29 3a 2e 53 20 49 4e  59 3a 42 4e 45 42 39 3a  |1):.S INY:BNEB9:|
000005c0  43 4c 43 0d 01 68 3f 41  44 43 23 31 3a 43 4d 50  |CLC..h?ADC#1:CMP|
000005d0  23 28 65 6e 64 20 81 32  35 36 29 3a 42 4e 45 42  |#(end .256):BNEB|
000005e0  39 3a 4c 44 41 23 28 73  74 61 72 74 20 81 32 35  |9:LDA#(start .25|
000005f0  36 29 3a 2e 42 39 20 52  54 53 3a 2e 69 6e 69 74  |6):.B9 RTS:.init|
00000600  3a 5d 0d 01 72 05 3a 0d  01 7c 6e 21 50 25 3d 73  |:]..r.:..|n!P%=s|
00000610  74 61 72 74 3a 21 28 50  25 2b 32 29 3d 73 74 61  |tart:!(P%+2)=sta|
00000620  72 74 3a 21 28 50 25 2b  36 29 3d 69 6e 73 32 3a  |rt:!(P%+6)=ins2:|
00000630  21 28 50 25 2b 38 29 3d  72 65 6d 32 3a 21 28 50  |!(P%+8)=rem2:!(P|
00000640  25 2b 31 30 29 3d 63 6e  74 32 3a 69 6e 73 31 3d  |%+10)=cnt2:ins1=|
00000650  50 25 2b 31 32 3a 72 65  6d 31 3d 50 25 2b 31 34  |P%+12:rem1=P%+14|
00000660  3a 63 6e 74 31 3d 50 25  2b 31 36 3a ed 3a 2a 46  |:cnt1=P%+16:.:*F|
00000670  58 32 31 2c 33 0d 01 86  5b ef 32 2c 31 2c 38 2c  |X21,3...[.2,1,8,|
00000680  31 2c 38 2c 33 3a e7 96  2d 34 3d 36 33 20 ef 37  |1,8,3:..-4=63 .7|
00000690  3a f1 27 27 22 50 4c 45  41 53 45 20 54 55 52 4e  |:.''"PLEASE TURN|
000006a0  20 50 52 49 4e 54 45 52  20 4f 46 46 22 3a f5 3a  | PRINTER OFF":.:|
000006b0  d1 3d 30 3a f5 fd 91 3e  35 30 3a ef 32 2c 31 2c  |.=0:...>50:.2,1,|
000006c0  38 2c 31 2c 38 2c 33 3a  fd 96 2d 34 3c 3e 36 33  |8,1,8,3:..-4<>63|
000006d0  0d 01 90 0b 2a 46 58 32  31 2c 33 0d 01 9a 15 d6  |....*FX21,3.....|
000006e0  73 65 74 3a e7 96 2d 34  3c 3e 36 33 20 f2 65 72  |set:..-4<>63 .er|
000006f0  0d 01 a4 0e 2a 46 58 31  32 38 2c 31 32 38 0d 01  |....*FX128,128..|
00000700  ae 17 e7 96 2d 34 3c 3e  65 6e 64 2d 73 74 61 72  |....-4<>end-star|
00000710  74 20 f2 65 72 0d 01 b8  28 ef 32 2c 31 2c 36 35  |t .er...(.2,1,65|
00000720  2c 31 2c 36 35 2c 33 3a  e7 96 2d 34 3c 3e 65 6e  |,1,65,3:..-4<>en|
00000730  64 2d 73 74 61 72 74 2d  31 20 f2 65 72 0d 01 c2  |d-start-1 .er...|
00000740  28 41 25 3d 31 34 35 3a  58 25 3d 33 3a e7 ba 28  |(A%=145:X%=3:..(|
00000750  26 46 46 46 34 29 3c 3e  26 42 30 34 31 30 33 39  |&FFF4)<>&B041039|
00000760  31 20 f2 65 72 0d 01 cc  17 e7 96 2d 34 3c 3e 65  |1 .er......-4<>e|
00000770  6e 64 2d 73 74 61 72 74  20 f2 65 72 0d 01 d6 28  |nd-start .er...(|
00000780  41 25 3d 31 34 35 3a 58  25 3d 33 3a e7 ba 28 26  |A%=145:X%=3:..(&|
00000790  46 46 46 34 29 3c 3e 26  42 31 30 32 30 33 39 31  |FFF4)<>&B1020391|
000007a0  20 f2 65 72 0d 01 e0 17  e7 96 2d 34 3c 3e 65 6e  | .er......-4<>en|
000007b0  64 2d 73 74 61 72 74 20  f2 65 72 0d 01 ea 0e 2a  |d-start .er....*|
000007c0  46 58 31 32 38 2c 31 32  39 0d 01 f4 10 e7 96 2d  |FX128,129......-|
000007d0  34 3c 3e 36 33 20 f2 65  72 0d 01 fe 0e ee 85 20  |4<>63 .er...... |
000007e0  f6 3a e5 8d 54 5c 42 0d  02 08 90 24 73 76 65 3d  |.:..T\B....$sve=|
000007f0  22 20 46 46 46 46 22 2b  c4 34 2d a9 28 c3 7e 28  |" FFFF"+.4-.(.~(|
00000800  73 65 74 29 29 2c bd 28  34 38 29 29 2b c3 7e 28  |set)),.(48))+.~(|
00000810  73 65 74 29 3a 24 6f 73  63 3d 22 53 41 56 45 20  |set):$osc="SAVE |
00000820  50 52 4e 54 42 55 46 20  22 2b c3 7e 28 73 65 74  |PRNTBUF "+.~(set|
00000830  29 2b 22 20 22 2b c3 7e  28 50 25 2b 31 38 29 2b  |)+" "+.~(P%+18)+|
00000840  c4 32 2c 24 73 76 65 29  3a f1 27 27 24 6f 73 63  |.2,$sve):.''$osc|
00000850  27 27 3a 58 25 3d 6f 73  63 20 83 32 35 36 3a 59  |'':X%=osc .256:Y|
00000860  25 3d 6f 73 63 20 81 32  35 36 3a d6 26 46 46 46  |%=osc .256:.&FFF|
00000870  37 3a e5 8d 54 5c 42 0d  02 12 3c dd f2 65 72 3a  |7:..T\B...<..er:|
00000880  ef 37 3a f1 27 27 22 54  48 45 52 45 20 49 53 20  |.7:.''"THERE IS |
00000890  41 4e 20 45 52 52 4f 52  20 49 4e 22 27 22 54 48  |AN ERROR IN"'"TH|
000008a0  45 20 41 53 53 45 4d 42  4c 59 20 4c 49 53 54 49  |E ASSEMBLY LISTI|
000008b0  4e 47 22 0d 02 1c 1c 70  3d 90 3a f5 70 3d 70 2b  |NG"....p=.:.p=p+|
000008c0  31 3a fd 3f 70 3d 31 33  3a 3f 70 3d 30 3a e0 0d  |1:.?p=13:?p=0:..|
000008d0  ff                                                |.|
000008d1
PTBUFCD.m0
PTBUFCD.m1
PTBUFCD.m2
PTBUFCD.m4
PTBUFCD.m5