★ CODING ★ SOURCES ★ CODING Source &038 - OCP Window load ★ |
OCP .WIN load | Coding Sources |
; ; October 1997 ; ; ;*** SUBR Load Advanced Art Studio (uncompressed) window ; ; file must already be open ; ; uses &4000 as buffer .winlod ld a,2 call &BC0E ld hl,&4000 call &BC83 call &BC7A ld hl,&3FFB+3 ld de,(height) add hl,de ld e,(hl) ld d,0: ld bc,0 dec hl dec hl dec hl res 6,h .div_lp or a sbc hl,de inc bc jr nz,div_lp ld a,e ld de,&C000 ld hl,&4000 .mwloop push af push bc push de ldir pop de pop bc ex de,hl call nline ex de,hl pop af dec a jr nz,mwloop ret |
|
|