�"��
�"���   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