org #1b98
call #1e75
call #1bf8
ld de,#b590 <------ &b590
ld hl,#0098
call #1c0a
org #1c0a
di
ld a,l ;<----- A=l=&98
sub #31 A=&98-&31=&67 CY=0
ld a,h A=H=0
sbc #00 A=0-0-CY=0 CY=0
ret c return jezeli CY=1 czyli nie
add hl,de &0098+&b590=&b628
ld (#b62d),hl poke &b62d,&28 : poke &b62e,&b6
ex de,hl de=&b628 , hl=&b590
ld (#b62b),hl poke &b62b,&90 : poke &b62c,&b5
.L_1C1A ;#####<-powiedzmy ze odtad mozna zmieniac kod na swoj
ld bc,#0a30
;******************************************
hl=&b590: C=&30=48
.L_1c1d For b=&A to 1 step -1
ld (hl),#01 poke hl,1
inc hl hl=hl+1
ld (hl),c poke hl,C
inc hl hl=hl+1
inc c C=C+1
djnz L_1c1d next
;*************************kod ma 11 bajtow, tworzy 20b tablice
ex de,hl
ld hl,L_1c3c ; <dane
ld c,#0a
ldir ; kopia 10 bajtow z DANE do
ex de,hl
ld b,#13
xor a A=0
.L_1c31 ; KASOWANIE reszty obszaru RAM 19 bajtow
ld (hl),a
inc hl
djnz L_1c31
; zapamietanie w systemie konca bloku ustawien klawiszy
ld (#b62f),hl poke &b62f,l : poke &b630,h <- hl=&b5c2
ld (#b629),a poke &b629,0
ret ;<powrot
.L_1c3c ;<dane
db #01
db #2e
db #01
db #0d
db #05
db #52,#55,#4e,#22 ;RUN"
db #0d ; enter
^L_1C45 ostatni adres tego bloku programu
od 1C1A-1C45 (44 bajty) mozna zmienic na swoja proc.
z obostrzeniami wypelnienia zmiennych systemowych