mirror of
https://github.com/kenrector/sds-kit.git
synced 2026-01-25 11:36:26 +00:00
60 lines
1.6 KiB
Plaintext
60 lines
1.6 KiB
Plaintext
* A:XL
|
|
$LLO RES 0
|
|
S9300 EQU 0
|
|
X0 EQU S9300
|
|
X2 EQU 2-S9300
|
|
$PRNT PzE 0
|
|
PRN1 SKS 012060 SKIP IF BUFFERED PRINIER
|
|
BRU PRN1
|
|
EOM 010460 STEP ONE LINE BEFORE PRINTING
|
|
PRST BRM LINEP PRINT VARIABLE LENGTH LINE
|
|
BETW
|
|
BRU PERRP
|
|
PRN2 LDX =00200000-8,X0
|
|
LDA =060606060
|
|
SBLK STA CBUF,X2 STORE BLANKS IN 1ST 32 POSNS
|
|
BRX SBLK,X0
|
|
EAX LBUF,X0
|
|
STX EDW,X0
|
|
LDA =8
|
|
STA EDCT
|
|
BRR PRNT *EX1T*
|
|
*
|
|
*
|
|
PERRP HLT
|
|
* REPLACE PREVIOUS LINE WITH RESTART PROCEDURE
|
|
* PRINT ONE VARIABLE LENGTH LINE
|
|
LINEP PZE ENTRY
|
|
SKS 011060 SKIP IF NO PRINTER FAULT
|
|
HLT **HALT-PRINTER FAULT**
|
|
LDA EDCT NUMBER OF WORDS TO PRINT
|
|
ADD DPTWi PLUS ORIGIN OF PRINT BUFFER
|
|
STA DPTW INDEXED INDIRECT ADDRESS
|
|
LDA =00200000
|
|
SUB EDCT
|
|
STA EDCT
|
|
LDX EDCT,X0
|
|
EOM 02660
|
|
MIW *DPTW
|
|
BRX $-1,X0
|
|
TOP
|
|
BRTW
|
|
BRU $-1
|
|
BRR LINEP
|
|
*
|
|
DPTWI PZE LBUF,X2
|
|
DPTW PZE LBUF,X2
|
|
*
|
|
* HOME PAPER SUOROUTI6E
|
|
$HOME PZE 0
|
|
SKS 012060 SKIP IF BUFFERED PRINTER READY
|
|
BRU $-1
|
|
EOM 011460 RESTORE PAGE OR 'HOME' PAPER
|
|
EOM 02660 START BUFFERED PRINTER NR 1
|
|
EOM 014000
|
|
BRTW
|
|
BRU $-1
|
|
BRR HOME EXIT
|
|
END
|
|
|