mirror of
https://github.com/kenrector/sds-kit.git
synced 2026-03-06 11:03:27 +00:00
111 lines
2.6 KiB
Plaintext
111 lines
2.6 KiB
Plaintext
* 6XXT
|
|
$TLO RES 0
|
|
S9300 EQU 0
|
|
X0 EQU S9300
|
|
X2 EQU 2-S9300
|
|
CH EQU 0
|
|
U EQU 1
|
|
MMO OPD 06000000
|
|
$PRNT PZE 0
|
|
LDA =060606060
|
|
LDB =-1
|
|
TYP MMO EDCT
|
|
LDX EDCT,X0
|
|
SKN EDCT
|
|
SKM LBUF,X2
|
|
BRU TYPL1
|
|
BRU TYP
|
|
TYPL1 BRM LNCT INCREMENT AND TEST LINE COUNT
|
|
LDA =-1
|
|
SUB EDCT
|
|
STA EDCT
|
|
SKG =-20
|
|
LDA =-20
|
|
STA TTMP
|
|
LDA LLBUF
|
|
BRM TYPE
|
|
LDA EDCT
|
|
STA TTMP
|
|
SKN EDCT
|
|
BRU PRN2
|
|
* TYPE LAST N-75 CHARACTERS ON NEXT LINE
|
|
TYP2 MIN CTR INCREMENT LINE COUNTER
|
|
LDA =052000000
|
|
BRM TYCC TYPE CARRIAGE RETURN
|
|
LDA =072000000
|
|
BRM TYCC TYPE TAB
|
|
LDA LTBFE
|
|
BRM TYPE TYPE LAST N-75 CHARS OF LINE
|
|
PRN2 LDX =00200000-8,X0
|
|
LDA =' '
|
|
STA CBUF,X2
|
|
BRX $-1,X0
|
|
EAX LBUF,X0
|
|
STX EDW,X0
|
|
LDA =8
|
|
STA EDCT
|
|
LDA =052000000
|
|
BRM TYCC
|
|
BRR PRNT
|
|
*
|
|
* TYPE N CHARACTERS
|
|
TYPE PZE ENTRY
|
|
STA EDW ADDRESS OF 1ST CHAR TO TYPE
|
|
TMIW LDA *EDW
|
|
LDB =077
|
|
TMIW1 SUB =060
|
|
SKA =077
|
|
ADD =046
|
|
ADD =012
|
|
RCY 6
|
|
SKA =077777700
|
|
BRU TMIW1
|
|
STB TMP STORE DATUM
|
|
TYP CH,U,4
|
|
MIW TMP
|
|
TOP CH
|
|
TBRT BRTW
|
|
BRU TBRT
|
|
MIN EDW
|
|
MIN EDCT
|
|
MIN TTMP
|
|
SKN TTMP
|
|
BRR TYPE
|
|
BRU TMIW
|
|
* TYPE CONTROL CHARACTER
|
|
TYCC PZE ENTRY
|
|
STA TMP
|
|
TYC1 TYP CH,U,1
|
|
MIW TMP
|
|
TOP CH
|
|
TYSS BRTW
|
|
BRU TYSS
|
|
BRR TYCC EXIT
|
|
*
|
|
* LINE COUNT AND PAGE EJECT SUBROUTINE
|
|
LNCT PZE
|
|
MIN CTR
|
|
LDA CTR
|
|
SKG =50
|
|
BRR LNCT
|
|
BRM THOME HOME PAGE
|
|
BRR LNCT EXIT
|
|
$HOME RES 0
|
|
THOME PZE 0
|
|
LDA CTR L1NES TYPED
|
|
ADD =002000000-66
|
|
STA CTR
|
|
LDX CTR,X0
|
|
NPG LDA =052000000
|
|
BRM TYCC
|
|
BRX NPG,X0
|
|
CLR
|
|
STA CTR
|
|
BRR THOME
|
|
CTR DATA 0
|
|
TMP PZE
|
|
TTMP PZE
|
|
LLBUF PZE LBUF
|
|
LTBFE PZE TBFE
|
|
END
|