;tiskova rutina pro BASIC ; (c) ZX-Magazin 6/92 ; upravil: MTs org 23296 ent $ START call CLS ld hl,T_NOTR call PRINTAT INITIAL ld hl,LPRINT ld (23749),hl ld a,138 call SENDOUT call ESC1 INIT defb 27,64 DRAFT defb 27,120,0 LEFT_M defb 27,108,7 RIGHT_M defb 27,81,74 PAGE defb 27,67,66 defb 27,78,7 BEEP defb 7 END defb 255 call CLS ret CR_LF ld a,10 call A_OUT ld a,13 dec c A_OUT ex af,af' WAIT call 8020 jp nc,#552 in a,(95) bit 7,a jr nz,WAIT ex af,af' out (31),a ld a,6 SENDOUT out (127),a nop ld a,7 out (127),a ret SENDESC pop de ld a,(de) bit 2,a inc de push de res 2,a jr nz,A_OUT call A_OUT jr SENDESC LPRINT cp 13 jr z,CR_LF cp 128 jr c,A_OUT sub 165 jp nc,3088 push af call SENDESC G_MODE defb 27,"K",8,0+4 pop af add a,21 bit 7,a jr z,UDG add a,144 ld b,a call 2872 ld hl,23698 jr GRAPH2 UDG ld bc,(23675) ld h,0 ld l,a add hl,hl add hl,hl add hl,hl add hl,bc GRAPH2 ld de,1 EIGHT_B ld c,8 GRAPH4 push hl ld b,8 GRAPH3 rlc (hl) rla add hl,de djnz GRAPH3 call A_OUT dec c pop hl jr nz,GRAPH4 ret ESC1 pop hl ESC2 ld a,(hl) inc hl cp 255 call nz,A_OUT jr nz,ESC2 jp (hl) PRINTAT ld a,(hl) and 127 rst 16 bit 7,(hl) inc hl jr z,PRINTAT ret CLS call #D6B ld a,2 call #1601 ld hl,22528 ld de,22529 ld bc,767 ld (hl),56 ldir ret T_NOTR defb 22,10,5 defm "Printer is not" defm ' ready!' A0END nop A0LEN equ $-START