mirror of
https://github.com/kenrector/sds-kit.git
synced 2026-01-13 23:27:08 +00:00
52 lines
1.7 KiB
Plaintext
52 lines
1.7 KiB
Plaintext
* OCRed text from Symbol Technical Manual
|
|
* modified to not punch two blank cards at weof
|
|
* Ken Rector, 9/11/2020
|
|
*
|
|
* ^XC
|
|
$CBO RES 0
|
|
S9300 EQU 0
|
|
X0 EQU S9300
|
|
X2 EQU 2-S9300
|
|
CH EQU 0
|
|
U EQU 1
|
|
$WRITR PZE 0 ENTRY
|
|
LDA =-12 LOAD REPEAT COUNT
|
|
CPT CH,U
|
|
BRU $-1
|
|
PBT CH,U
|
|
CLR BUFFERED, SET REPEAT CDUN
|
|
STA PETEC SAVE REPEAT COUNT
|
|
PETEL1 BRTW WAIT FOR BUFFER TO BE READY
|
|
BRU $-1
|
|
PCB CH,U,4
|
|
LDA PETECW
|
|
STA PETEA INIALIZE BUFFER ADDRESS
|
|
LDX =00200000-40,X0
|
|
LDB PETE0
|
|
LDA DWC A = RECORD SIZE - 1
|
|
PETEL2 SKA =040000000 IS A NEGAT1VE
|
|
STB PETEA YES, SET ADDRESS = ADDRESS OF 0
|
|
MIW *PETEA OUTPUT WORD
|
|
MIN PETEA INCREMENT ADDRESS
|
|
SUB =1 DECREMENT COUNT
|
|
BRX PETEL2,X0
|
|
TOP CH
|
|
MIN PETEC INCREMENT REPEAT COUNT
|
|
SKN PETEC IS ALL TRANSMISION COMPLETE
|
|
BRR WRITR YES, EXIT
|
|
BRU PETEL1 NO, LOOP AGAIN
|
|
*
|
|
PETEC RES 1 SAVE LOCATION FOR REPEAT COUNT
|
|
PETEA RES 1 SAVE LOCATION FOR ADDRESS
|
|
PETE0 PZE =0 ADDRESS OF A ZERO CONSTANT
|
|
PETECW PZE CW
|
|
$WEOF PZE 0
|
|
LDA =-1
|
|
STA DWC
|
|
* BRM WRITR kenr
|
|
NOP 0
|
|
* BRM WRITR kenr
|
|
NOP 0
|
|
BRR WEOF
|
|
END
|