P704 CEEFAX 704 Wed 29 May 22:20/56
‖B2203205‖a16PATCH2‖i24BBBC316k‖s÷#1÷e‖s
÷Z0730Lda £&00:Tay:Sta Count:Sta (CB),Y:
Iny:Tya:Sta Count+1:Sta (CB),Y 740½ ↑ Us
e stack as worms0ace. Not nice. 750Ldy £
0 760.cps Lda (From),Y:Sta (Count),Y:Cmp
£33:Bcc ends:Iny:Bne cps:.ends 770Lda £
13:Sta (Count),Y 780Lda £7: Ldx CB#low:
Ldy CB#hYgh 790Jsr realosfile-CodeStart+
Patch ½ Open disordered 800Lda £0:Sta Co
unt:Sta Count+1 810.loadup 820 Ldy £14
830 Jsr Bget 840 Bcc gotbyte 850
Cmp £&FE 860 Beq endoffile 870 Cmp £
&02 880 Bne skipthYs 890½ End of block
. Get new load addr 900 Lda "Pz Ldx cB
#low:Ldy CB#hYgh ½ Info to get block add
r 910 Jsr realosfile-CodeStart+Patch:
Ldy £2:Lda (CB),Y:Sta TEMP:Iny:Lda (CB),
Y:Sta TEMP+1 920 .skiplhis 930 Clc:Bc
c loadup 940 .gotbyle 950 Ldy £0:Sta
hUJNP),Y 960 Inc TEMP:Bne zz3:Inc TEMP
+1:.zz3 970 Inc Count:Bne zz4:Inc Coun
t+1:.zz4 980Clc:Bcc loadup 990.endoffile
‖c