Changes
add hl,de
l9cbd:
ld (0a410hdata_0a410h),hl ;; detected 'position' or 'ffff' for not detected
pop bc
ld a,082h
ld hl,0018fh
sbc hl,de
ld (0a410hdata_0a410),hl
ret
sub_9d35h:
ld bc,(0a418hdata_0a418)
l9d79h:
push bc
ld hl,00014h
call 0bbf9h ;; gra line relative
ld de,(0a416hdata_0a416)
ld hl,0ffech
call 0bbc3h ;; gra move relative
ld hl,00000h
call 0bbc3h ;; gra move relative
ld bc,(0a420hdata_0a420)
l9db4h:
push bc
ld hl,00014h
call 0bbf9h ;; gra line relative
ld de,(0a416hdata_0a416)
ld hl,0ffech ;; -20
call 0bbc3h ;; gra move relative
djnz l9db4h
ld hl,0ffffh
ld (0a410hdata_0a410),hl
ret
sub_9d9ah:
pop bc
ld (0a410hdata_0a410),hl
call 0bbc6h ;; gra ask cursor
ld (0a412hdata_0a412),de
ret
push de
call sub_09e08h
ld (0a414hdata_0a414),hl
ld de,05398h
ld b,004h
l9e0bh:
push bc
ld hl,(0a414hdata_0a414)
ld c,b
ld b,000h
l9e2dh:
push bc
ld hl,(0a414hdata_0a414)
ld c,b
ld b,000h
push hl
ex de,hl
ld de,(0a416hdata_0a416)
call sub_9c94h ;; HL = HL/DE
ex de,hl
sub_9e1fh:
call sub_9c8ah
ld hl,(0a418hdata_0a418) ld (0a420hdata_0a420h),hl ld hl,(0a410hdata_0a410)
ld a,0ffh
cp h
ret z
ld (0a41chdata_a41c),hl ld de,(0a412hdata_0a412) ld (0a41ahdata_a41a),de
l9e7ah:
ld de,0000ah
l9e85h:
push hl
ld hl,(0a412hdata_a412)
add hl,de
ex de,hl
call sub_09ed2h
call sub_09de6h
ld hl,(0a410hdata_a410)
ld a,0ffh
cp h
call 0bb1eh ;; km test key
ret z
ld hl,(0a41chdata_a41c) ld de,(0a41ahdata_a41a)
call 0bbc0h ;; gra move absolute
ld hl,(0a410hdata_a410) ld de,(0a412hdata_a412) ld a,(0a41ehdata_a41e)
call 0bbdeh ;; gra set pen
ld (0a41chdata_a41c),hl ld (0a41ahdata_a41a),de
call 0bbf6h ;; gra line absolute
ld hl,(0a410h)
sub_9eb7h:
ld hl,(0a41ahdata_a41a) ld de,(0a412hdata_a412)
and a
sbc hl,de
ld hl,00000h
call 0bbc3h ;; gra move relative
ld bc,(0a420hdata_a420)
push bc
ld de,00000h
jp nz,sub_9efeh
sub_9ef5h:
ld hl,(0a422hdata_a422) ld (0a410hdata_a410),hl
jp sub_9d9ah
sub_9efeh:
ld (0a422hdata_a422),hl ld de,(0a416hdata_a416)
ld hl,0ffech
call 0bbc3h ;; gra move relative
djnz l9f22h
ld hl,0ffffh
ld (0a410hdata_a410),hl
ret
sub_9f82h:
call sub_9e98h
ld bc,(0a420hdata_a420)
l9f5ch:
push bc
jp z,sub_9ef5h
ld (0a422hdata_0a422),hl ld de,(0a416hdata_a416)
ld hl,00000h
and a
;; screen dump to printer.
sub_0a028h:
ld a,013h;; INC instruction ld (0a124hla124),a
ld a,00eh
ld (0a0e2hla0e1+1),a ld a,(0a133hdata_a133)
bit 1,a
jr z,la083h
ld a,000h ;; NOP instruction ld (0a124hla124),a
ld a,007h
ld (0a0e2hla0e1+1),a
la083h:
call 0bd28h ;; mc reset printer
ld a,000h ;; number of columns low byte
call 0bd2bh ;; mc print char
ld a,(0a133hdata_a133)
bit 0,a
jr z,la0b4h
ret nz
ld hl,(data_a12d)
la0e1:
ld de,0000eh
add hl,de
call sub_a115h ;; get current X/Y graphics position
inc de ;; increment X to next pixel accross screen.
la124:
inc de
call sub_a10dh ;; set current X/Y graphics position
db 00h,00h
data_a131:
dw 000ehdata_a133: db 0eh,00h,00h,00hdata_a134: db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
sub_a154h:
defw 0bch
;; detected light pen position
data_a410:
defw 0
data_a412:
defw 0
;; memory/buffer address
data_a414:
defw 0
data_a416:
defw 0
data_a418:
defw 0
;; gra x,y position
data_a41a:
defw 0
data_a41c:
defw 0
;; graphics pen
data_a41e:
defb 0
defb 0
data_a420:
defw 0
end
</pre>
[[Category:Source code]]
