Code: Select all
org 30001
di
call 23760
jr START
DATA1
defb 0,0,15,24,49,226,255,224
dEfb 24,60,255,255,153,255,231
defb 60,0,0,240,24,140,71,135,7
START
ld de,(23675)
ld hl,DATA1
ld bc,24
ldir
jr BEGIN
DATA2
defb 22,0,0,16,8,17,8,144,145
defb 146
BEGIN
ld de,DATA2
ld bc,10
call 8252
ld de,23296
ld hl,DATA2
ld bc,10
ldir
MOVE
ld hl,(23297)
ld bc,61438
in a,(c)
cp 255
jr z,lp12
bit 0,a
jr nz,lp1
inc h
Lp1
bit 1,a
jr nz,lp2
dec h
Lp2
bit 2,a
jr nz,lP3
inc l
lP3
bit 3,a
jr nz,Lp4
dec l
Lp4
ld a,l
cp 22
jr nz,lp5
dec l
jr Lp6
Lp5
cp 255
jr nz,lp6
inc l
Lp6
ld a,h
cp 26
jr nz,Lp7
dec h
jr Lp8
Lp7
cp 255
jr nz,lp8
inc h
Lp8
ld de, (23297)
xOr a
push hl
sbc hl,de
pop hl
jr z,Lp12
ld (23297) ,hl
OVER1
ld (iy+87),3
ld de, DATA2
ld bc,10
call 8252
ld de, 22296
ld bc,10
call 8252
ld de,DATA2
ld hl,23296
ld bc,10
ldir
LP12
ld bc,63486
in a,(c)
and 15
jr z,SCR
cp 3
jr z,SCR
cp 12
jr z,SCR
Cp 15
jr z,SCR
push af
ld (iy+87),3
ld de,DATA2
ld bc,10
call 8252
pop af
bit 0,a
push af
call z,UROLL
pop af
bit 1,a
push af
call z,uROLL
pop af
bit 2,a
push af
call z,uROLL
pop af
bit 3,a
call z,RROLL
ld de,DATA2
ld bc,10
call 8252
scr
ld bc,64510
in a, (c)
and 15
jr z,DELAY
cp 3
jr z,DELAY
cp 12
Jr z,DELAY
cp 15
jr z,DELAY
push af
ld (iy+87),3
ld de,DATA2
ld bc,10
call 8252
pop af
bit 0,a
push af
call z,USCR
pop af
bit 1,a
push af
Call z,DSCR
pop af
bit 2,a
push af
call z,LSCR
pop af
bit 3,a
call z,RSCR
ld de,DATA2
ld bc,10
call 8252
delay
ld hl,10000
l1
dec hl
ld a,h
or l
jr nz,L1
ld bc,32766
in a,(c)
bit 0,a
jp nz,MOVE
ld (iy+87),0
ei
ret
uscr
ld de, 22528
ld hl,22560
ld bc,736
ldir
ld b,32
ld a, (23693)
l2
ld (de),a
Inc de
djnz L2
ld de, 16384
ld hl,16416
ld bc, 2016
ldir
ld b,8
ld hl,18432
ld de, 16608
l3
push bc
push hl
push de
ld bc,32
ldir
pop de
pop hl
pop bc
inc d
Inc h
djnz L3
ld de, 18432
ld hl,18464
ld bc,12016
ldir
ld b,8
ld hl,20480
ld de,18656
l4
push bc
push hl
push de
ld bc,32
ldir
pop de
pop hl
pop bc
inc d
inc h
djnz L4
ld de,20480
ld hl,20512
ld bc,2016
ldir
ld b,8
ld hl,20704
l5
push bc
push hl
ld b,32
l6
ld (hl),0
inc hl
djnz L6
pop hl
pop bc
inc h
djnz L5
ret
dscr
ld de,23295
ld hl,23263
ld bc,736
lddr
ld b,32
ld a, (23693)
l7
ld (de),a
inc de
djnz L7
ld de,22527
ld hl,22495
ld bc,2016
lddr
ld b,8
ld hl,18656
ld de, 20480
l8
push bc
push hl
push de
ld bc,32
ldir
pop de
pop hl
pop bc
inc d
Inc h
djnz L8
ld de,20479
ld hl,20447
ld bc, 2016
lddr
ld b,8
ld hl, 16608
ld de, 18432
l9
push bc
push hl
push de
ld bc,32
ldir
pop de
pop hl
pop bc
inc d
inc h
djnz L9
ld de,18431
ld hl,18799
ld bc,2016
lddr
ld hl,16384
l10
ld b,32
l11
ld (hl),0
inc hl
djnz L11
xor a
ld l,a
inc h
ld a,h
cp 72
jr nz,L10
ret
lscr
ld b,24
ld hl, 22528
l12
push hl
pop de
push bc
inc hl
ld bc, 31
ldir
ld a, (23693)
ld (de),a
pop bc
djnz L12
ld hl, 16384
xOr a
ld b,192
l13
push bc
push hl
pop de
inc hl
ld bc,31
ldir
ld (de),a
pop bc
djnz l13
ret
rscr
ld b,24
ld hl, 23295
l14
push hl
pop de
push bc
dec hl
ld bc,31
lddr
ld a, (23693)
ld (de),a
pop bc
djnz L14
ld hl, 22527
xOr a
ld b,192
l15
push bc
push hl
pop de
dec hl
ld bc, 31
lddr
ld (de),a
pop bc
djnz L14
ret
uroll
ld hl,22528
push hl
pop de
ld b,32
l16
ld a, (hl)
push af
inc hl
djnz L16
ld bc,736
ldir
ld b,32
l17
pop af
dec hl
ld (hl),a
djnz L17
ld hl,16384
l18
ld b,32
l19
ld a, (hl)
push af
inc hl
djnz L19
xor a
ld l,a
inc h
ld a,h
cp 72
jr nz,l18
ld de, 16384
ld hl,16416
ld bc, 2016
ldir
ld b,8
ld hl, 18432
ld de, 16608
l20
push bc
push hl
push de
ld bc,22
ldir
pop de
pop hl
pop bc
inc d
inc h
djnz l20
ld de, 18432
ld hl, 18464
ld bc, 2016
ldir
ld b,0
ld hl, 20430
ld de, 18656
l21
push bc
push hl
push de
ld bc,32
ldir
pop de
pop hl
pop bc
inc d
inc h
djnz L21
ld de, 20480
ld hl, 20512
ld bc, 2016
ldir
ld hl,22527
l22
ld b,32
l23
pop af
ld (hl),a
dec hl
djnz L23
ld a, 255
ld l,a
dec h
ld a,h
cp 79
jr nz,l22
ret
droll
ld hl, 22295
push hl
pop de
ld b,32
l24
ld a, (hl)
push af
dec hl
djnz l24
ld bc, 736
lddr
ld b,32
l25
pop af
inc hl
ld (hl),a
djnz l25
ld hl, 22537
l26
ld b,32
l27
ld a, (hl)
push af
dec hl
djnz l27
ld a, 255
ld l,a
dec h
ld a,h
cp 79
jr nz,l26
ld de, 22527
ld hl, 22495
ld bc, 2016
lddr
ld b,8
ld hl, 18656
ld de, 20480
l28
push bc
push hl
push de
ld bc,32
ldir
pop de
pop hl
pop bc
inc d
inc h
djnz L28
ld de, 26479
ld hl,20447
ld bc, 2016
lddr
ld b,8
ld hl, 16608
ld de, 18432
l29
push bc
push hl
push de
ld bc, 32
ldir
pop de
pop hl
pop bc
inc d
inc h
djnz L29
ld de, 18431
ld hl, 18399
ld bc, 2016
lddr
ld hl,16284
l30
ld b,32
l31
pop af
ld (hl),a
inc hl
djnz l31
xor a
ld l,a
inc h
ld a,h
cp 72
jr nz,L30
ret
lroll
ld b,216
ld hl, 16384
l32
push Hl
pop de
push bc
ld a, (hl)
inc hl
ld bc,31
ldir
ld (de),a
pop bc
djnz L32
ret
rroll
ld b,216
ld hl, 23295
l33
push hl
pop de
push bc
ld a, (hl)
dec hl
ld bc,31
lddr
ld (de),a
pop bc
djnz l33
ret
https://easyupload.io/dga8fm
its on page 50 of the book:
https://ia600604.us.archive.org/view_ar ... ograms.pdf