ret\r
\r
?init:\r
- ld hl,1000000000000000b ; assign console to AVRCON:\r
+; ld hl,1000000000000000b ; assign console to AVRCON:\r
+ ld hl,0100000000000000b ; assign console to ASCI0:\r
ld (@civec),hl\r
ld (@covec),hl\r
ld hl,0000000000000000b ; assign printer to nothing:\r
endif
ret
- if banked
+ if banked
inter_bank_move: ; source in HL, dest in DE, count in BC
- if 0 ; *** DOES NOT WORK PROPERLY
+ if 0 ; *** DOES NOT WORK PROPERLY
; (Crossing Bank boundary problems)
push bc
push de
ret ; return with src in DE, dst in HL, count = 0
- else ; *** INNEFICIENT, BUT WORKS
+ else ; *** INNEFICIENT, BUT WORKS
ld (tmp$sp),sp
ld sp,tmp$stk
tmp$stk:
tmp$sp: ds 2
- endif
+ endif
src$bnk: db 0FEh
dst$bnk: db 0FEh
- endif ;banked
+ endif ;banked
end