mirror of
https://github.com/kenrector/sds-kit.git
synced 2026-01-25 19:46:17 +00:00
881 lines
22 KiB
Plaintext
881 lines
22 KiB
Plaintext
* S1
|
|
*
|
|
CAB OPD 016400000
|
|
CBA OPD 016500000
|
|
CAX OPD 016600000
|
|
CXA OPD 016700000
|
|
CBX OPD 017000000
|
|
CNA OPD 017100000
|
|
SKE OPD 017200000
|
|
SKR OPD 017300000
|
|
MUL OPD 017400000
|
|
DIV OPD 017500000
|
|
ADM OPD 017600000
|
|
XMA OPD 017700000
|
|
S9300 EQU 0
|
|
X0 EQU S9300
|
|
X2 EQU 2-S9300
|
|
IN EQU 1
|
|
OUT EQU 2
|
|
AORG 1
|
|
BRU BGN RESTART
|
|
AORG 34
|
|
SXT RES 4
|
|
SCXT RES 4
|
|
$SOT RES 16
|
|
SIT RES 16
|
|
TPM RES 6
|
|
TPS RES 6
|
|
TPR RES 6
|
|
$TPL RES 6
|
|
ENDP RES 0
|
|
$LOC RES 1
|
|
$PMOD RES 1
|
|
$WMOD RES 1
|
|
$WORD RES 1
|
|
$WRD2 RES 1
|
|
$WRD1 RES 1
|
|
$TERM RES 1
|
|
$CTYP RES 1
|
|
$STYP RES 1
|
|
$PASS RES 1
|
|
HIGH RES 1
|
|
$LIMT RES 1
|
|
LOC1 RES 1
|
|
LOCP RES 1
|
|
ORG 0
|
|
$LADD RES 1
|
|
$OCTF RES 1
|
|
XFLG RES 1
|
|
$IFLG RES 1
|
|
EFLG RES 1
|
|
$LTR1 RES 1
|
|
$LTR2 RES 1
|
|
$LTR3 RES 1
|
|
$MODE RES 1
|
|
$VALU RES 1
|
|
$XERR RES 1
|
|
$OERR RES 1
|
|
$DERR RES 1
|
|
$EERR RES 1
|
|
IERR RES 1
|
|
LERR RES 1
|
|
$PERR RES 1
|
|
$RERR RES 1
|
|
$TERR RES 1
|
|
$UERR RES 1
|
|
$VERR RES 1
|
|
$CNTR RES 1
|
|
CNT1 RES 1
|
|
CNT2 RES 1
|
|
CNT3 RES 1
|
|
CNTB RES 1
|
|
$LN RES 1
|
|
BCIF RES 1
|
|
$LBL1 RES 1
|
|
$LBL1P1 RES 1
|
|
$LBL1P2 RES 1
|
|
IOC RES 1
|
|
$X RES 1
|
|
Z RES 0
|
|
CT DATA 000000000
|
|
DATA 000000100
|
|
B1 RES 0
|
|
DATA 020000000
|
|
DATA 020000100
|
|
B3 RES 0
|
|
DATA 004000000
|
|
$LST HLT TPS
|
|
LMT HLT TPM LOCAT1ON OF MNEMONIC TABLE PACKET
|
|
$LRT HLT TPR
|
|
$LSXT HLT SXT
|
|
LSCX HLT SCXT
|
|
LSOT HLT SOT LOCATION OF SCAN CONECTER
|
|
LSIT HLT SIT LOCATION OF SCAN ITEM
|
|
LLBL HLT LBL1 LOCATION OF LBL
|
|
FRST HLT MT 1ST MNEMONIC TABLE LOCATION
|
|
FINL HLT MTE FINAL MNEMONIC TABLE LOCATION
|
|
$BCHR DATA 060
|
|
$CCHR DATA 073
|
|
DCHR DATA 053
|
|
$SCHR DATA 054
|
|
$A7 DATA 07
|
|
A57 DATA 0777
|
|
B0 DATA 040000000
|
|
B4 DATA 02000000
|
|
B5 DATA 01000000
|
|
B6 DATA 0400000
|
|
B7 DATA 0200000
|
|
$B8 DATA 0100000
|
|
B11 DATA 010000
|
|
B12 DATA 04000
|
|
B13 DATA 02000
|
|
B14 DATA 01000
|
|
B16 DATA 0200
|
|
B17 DATA 0100
|
|
B18 DATA 040
|
|
B19 DATA 020
|
|
B20 DATA 010
|
|
B21 DATA 04
|
|
B22 DATA 2
|
|
B23 DATA 1
|
|
C3 DATA 077
|
|
C01 DATA 077770000
|
|
P66 DATA 66
|
|
P24 DATA 24
|
|
P14 DATA 016
|
|
P10 DATA 10
|
|
P3 DATA 3
|
|
M1 DATA -1
|
|
M2 DATA -2
|
|
M5 DATA -5
|
|
M23 DATA -23
|
|
M47 DATA -47
|
|
MC DATA 030000000
|
|
BPM DATA 0740
|
|
LL DATA 034
|
|
$IC EQU B3
|
|
$CC EQU B4
|
|
LC EQU B5
|
|
$SC EQU B6
|
|
$DC EQU B7
|
|
$OC EQU B8
|
|
$REFM EQU B16
|
|
$DUPM EQU B17
|
|
$RELM EQU B22
|
|
EXTM EQU B23
|
|
SPAC EQU P10
|
|
REFT EQU B23
|
|
DEFT EQU B22
|
|
BGN RES 0
|
|
CLR
|
|
STA LN
|
|
BGNB RES 0
|
|
LDX FRST,X0
|
|
EAX 3,2
|
|
STX CNTR,X0
|
|
RST2 LDA 1,X2
|
|
SKA B18 TEST ASSEMBLER DEFINED
|
|
BRU RST1 DONT SAVE PROGRAMMER DEFINED
|
|
LDB 0,X2
|
|
STB *CNTR SAVE 1ST WORD
|
|
MIN CNTR
|
|
LDB 1,X2
|
|
STB *CNTR SAVE 2ND WORD
|
|
MIN CNTR
|
|
LDB 2,X2
|
|
STB *CNTR SAVE 3RD WORD
|
|
MIN CNTR
|
|
RST1 EAX 3,X2 ADDRESS OF NEXT FROM WORD
|
|
LDA CNTR ADDRESS OF NEXT TO WORD
|
|
SKE FINL TEST FOR END OF COMMAND TABLE
|
|
BRU RST2
|
|
BGN2 LDX =00200000-24,X0
|
|
LDA Z
|
|
BGN3 STA ENDP,X2 CLEAR ALL PACKETS
|
|
BRX BGN3,X0
|
|
LDA HIGH HIGHEST LOCATION
|
|
SUB P3
|
|
STA TPS BASE OF SYMBOL TABLE
|
|
STA TPS+1
|
|
LDA C01
|
|
STA TPS+3
|
|
STA TPS+5
|
|
LDA FRST
|
|
SUB P3
|
|
STA TPM BASE OF MNEMONIC 1ABLE
|
|
LDA C01
|
|
STA TPM+3
|
|
LDA FINL
|
|
SUB FRST
|
|
LDX P24,X0
|
|
STA CNTR NO. OF WORDS IN TABLE
|
|
NOD 24
|
|
ETR MC
|
|
SUB B3
|
|
SKA B1
|
|
ADD B3
|
|
ABC
|
|
LSH 0,X2
|
|
STA TPM+2
|
|
LDA CNTR
|
|
SUB TPM+2
|
|
STA TPM+4
|
|
ADD FRST
|
|
STA TPM+1
|
|
LDA Z
|
|
STA PASS SET PASS1
|
|
STA CTYP
|
|
LDA LSXT
|
|
STA SCNX SET SCAN EXIT
|
|
LDA LSCX
|
|
STA SCIX
|
|
LDA LSOT
|
|
STA LOP SET SCAN CONNECTER
|
|
LDA LSIT
|
|
STA LITM SET SCAN ITEM
|
|
LDA FINL 1ST AVAILABLE CELL
|
|
SUB HIGH
|
|
STA LIMT MINUS NO. OF CELLS AVAILABLE
|
|
HLT
|
|
BGN4 LDA Z
|
|
STA MLOC 0 TO MAX LOC
|
|
STA ALN
|
|
LDA B8
|
|
STA LOC
|
|
LINE LDA Z
|
|
STA PMOD
|
|
STA WMOD 0 TO MODE
|
|
STA XFLG RESET EXTERNALFLAG
|
|
STA IFLG RESET INDIRECT FLAG
|
|
STA LBL1 RESET LABEL
|
|
STA STYP
|
|
STA LERR
|
|
LDA M1
|
|
STA OCTF RESET OCTAL FLAG
|
|
LDA M23
|
|
STA SCALE
|
|
LDA LL
|
|
STA EDCT
|
|
BRM READ READ LINE
|
|
SKE BCHR TEST FOR BLANK LABEL
|
|
BRU LIN1 PROCESS LABEL FIELD
|
|
LIN6 BRM FLD SKIP TO OPERATION
|
|
SKE BCHR
|
|
BRU LP1
|
|
BRM LXL
|
|
BRU LIN10
|
|
LP1 BRM SYM
|
|
LDA CHR
|
|
SKE SCHR TEST FOR *
|
|
SKR IFLG
|
|
MIN IFLG SET 1FLAG
|
|
SKE SCHR
|
|
SKN M1 ALWAY5 SK1P
|
|
BRM GET SKIP *
|
|
SKE BCHR TEST FOR BLANK
|
|
STA SM1 UNDEFINED COMMAND
|
|
LDA LSYM
|
|
LDB LMT
|
|
BRM SRCH LODK UP MNEMONIC
|
|
BRU POPI
|
|
$POPIRT STA WORD
|
|
STB MODE SAVE TYPE
|
|
BRM FLD SKIP TO OPERAND FIELD
|
|
LDA MODE
|
|
SKA B21
|
|
BRU *WORD
|
|
BRM DLBL DEFINE LABEL
|
|
BRU LIN7
|
|
DLBL HLT 0
|
|
LDA LBL1
|
|
SKE Z
|
|
SKE LBL1
|
|
BRR DLBL EXIT
|
|
LDA LBL1+1
|
|
LDB LOC
|
|
STB LBL1+2
|
|
BRM SKB
|
|
HLT B8
|
|
MRG B22
|
|
STA LBL1+1
|
|
LDA LLBL
|
|
LDB LST
|
|
BRM NSRT INSERT IN SYMBOL TABLE
|
|
BRR DLBL EXIT LABEL DEFINE
|
|
LIN7 LDA MODE
|
|
SKA B22
|
|
BRU *WORD
|
|
SKN PASS
|
|
BRU LIN2 1ST PASS
|
|
SKA B13
|
|
BRU POPR
|
|
SKA B23
|
|
BRU FREF
|
|
SKA B20
|
|
BRU INR3
|
|
LDB M1
|
|
SKA B19
|
|
LDB FORCEO
|
|
STB OCTF OCTAL ADDRESS
|
|
INR1 BRM SCNL GET INSTRUCTION ADDRESS
|
|
INR1A ROV
|
|
LDX NAB,X0
|
|
LSH 0,X2
|
|
RSH 0,X2
|
|
ETR ADDR
|
|
MRG WORD
|
|
INR9 OVT
|
|
MIN TERR SET T ERROR
|
|
STB WMOD
|
|
LDB =07700000
|
|
SKM EOD
|
|
BRU INR93
|
|
BRU INR92
|
|
INR93 SKM EOM
|
|
BRU INR91
|
|
INR92 SKN IFLG
|
|
MRG =040000
|
|
BRU INR94
|
|
$PZE SKN PASS
|
|
BRU LIN2
|
|
BRM SCNL
|
|
STB WMOD
|
|
ETR =077777
|
|
INR91 SKN IFLG
|
|
MRG INDB SET INDIRECT BIT
|
|
INR94 STA WORD
|
|
LDA M1
|
|
STA OCTF RESET OCTALFLAG
|
|
LDA TERM
|
|
SKE CCHR
|
|
BRU LIN3
|
|
BRM SCAN GET INDEX
|
|
ETR XMSK MASK X FIELD
|
|
SKE VALU
|
|
MIN TERR SET TRUNCATION ERROR
|
|
LSH 21 POSITION X FIELD
|
|
$INR2 MRG WORD
|
|
STA WORD
|
|
$LIN3 LDA INST
|
|
STA WRD2 INSTRUCTION FORM
|
|
LIN8 LDA BCHR
|
|
SKE TERM TEST FOR BLANK
|
|
MIN EERR SET ERROR
|
|
STA TERM
|
|
BRM EDIT EDIT INSTRUCTION
|
|
$LIN2 MIN LOC L+1 TO L
|
|
BRU LINE
|
|
LIN1 SKE SCHR TEST FOR *
|
|
BRU LIN4
|
|
$NOP0 RES 0
|
|
LIN10 SKN PASS
|
|
BRU LINE SKIP IF 1ST PASS
|
|
BRM PRNT PRINT COMMENTS LINE
|
|
BRU LINE
|
|
INR3 LDA MODE
|
|
SKA B12
|
|
BRU $+2
|
|
BRU INR31
|
|
BRM SCAN
|
|
LDB Z
|
|
SKA B21
|
|
LDB EOD
|
|
ETR P3
|
|
CAX
|
|
BAC
|
|
MRG CT,X2
|
|
MRG WORD
|
|
LDB =07700000
|
|
SKM SKSEOD
|
|
BRU $+2
|
|
EOR EODI
|
|
STA WORD
|
|
LDA TERM
|
|
SKE CCHR
|
|
BRU LIN3
|
|
INR31 LDA =040000
|
|
SKN IFLG
|
|
ADM WORD
|
|
BRM SCAN
|
|
ETR C3
|
|
SKE VALU
|
|
MIN TERR
|
|
ADM WORD INSERT UNIT
|
|
LDA TERM
|
|
SKE CCHR
|
|
BRU LIN3
|
|
BRM SCAN GET CHAR/WORD
|
|
SKE Z
|
|
SUB B23
|
|
ETR P3
|
|
LSH 7 POSITION CHAR/WORD
|
|
BRU INR2
|
|
LIN4 SKE DCHR TEST FOR $
|
|
BRU LIN5
|
|
SKN PASS
|
|
MIN XFLG SET EXTERNAL FLAG
|
|
LIN49 BRM GET
|
|
LIN5 LDB SC CHECK FOR LABEL CHARACTER
|
|
SKG Z
|
|
MIN LERR 1ST CHAR= 0 P )
|
|
BRM SKB
|
|
HLT CTT,X2
|
|
BRU LIN9
|
|
LIN11 MIN LERR SET LABEL FIELD ERROR FLAG
|
|
LIN9 BRM SYM
|
|
STA LBL1 SAVE
|
|
CBA
|
|
MRG XFLG SET EXTERNALMODE
|
|
STA LBL1+1
|
|
MRG LBL1
|
|
SKA DLY1 TDST FOR AT LEST 1 ALPHABETEC
|
|
SKN M1 ALWAYS SKIP
|
|
MIN LERR
|
|
LDA CHR
|
|
SKE =','
|
|
BRU LIN99
|
|
BRM LXL
|
|
BRU LIN49
|
|
LIN99 SKE BCHR
|
|
MIN LERR ILLEGAL CHARACTER IN LABEL
|
|
LDA Z
|
|
SKE LERR TEST FOR LABEL ERROR
|
|
STA LBL1 DONT ENTER LABEL
|
|
BRU LIN6
|
|
LXL HLT 0
|
|
LDA LLBL
|
|
LDB LST
|
|
BRM SRCH
|
|
BRR LXL
|
|
CBA
|
|
MRG XFLG
|
|
STA 1,X2
|
|
BRR LXL
|
|
$EQU BRM SCAN GET VALUE
|
|
STA WORD
|
|
XAB
|
|
ETR M2
|
|
ADM LBL1+1
|
|
STB LBL1+2
|
|
LDA LLBL
|
|
LDB LST
|
|
EQU1 BRM NSRT INSERT IN SYMBOL TABLE
|
|
EQU2 SKN PASS
|
|
BRU LINE
|
|
BRM EDTV PR1NT
|
|
BRU LINE
|
|
$OPD LDA FORCEO
|
|
STA OCTF SET OCTAL FLAG
|
|
BRM SCAN GET VALUE
|
|
STA WORD
|
|
STA LBL1+2
|
|
LDA B18
|
|
ADM LBL1+1
|
|
OPD1 LDA LLBL
|
|
LDB LMT
|
|
BRM NSRT
|
|
ETR =07777
|
|
SKE =02140
|
|
BRU EQU2
|
|
LDA LBL1+1
|
|
STA 1,X2
|
|
LDA LBL1+2
|
|
STA 2,X2
|
|
BRU EQU2
|
|
$FORM CLR
|
|
FRM3 STB WRD2 STORE FORM WORD
|
|
BRM SCAN GET FIELD LENGTH
|
|
CAX
|
|
LDB WRD2
|
|
LDA B0
|
|
LCY 0,X2 INSERT NEW FIELD
|
|
SKA M1
|
|
BRU FRM1 MORE THAN 24 BITS
|
|
BRM SKB
|
|
HLT B0
|
|
BRU FRM2 END OF FORM
|
|
LDA TERM
|
|
SKE CCHR
|
|
BRU FRM1 LESS THAN 24 BITS
|
|
BRU FRM3 PROCESS NEXT FIELD
|
|
FRM1 MIN TERR SET TRUNCATION ERROR
|
|
FRM2 CBA
|
|
MRG B0
|
|
STA LBL1+2
|
|
LDA B23
|
|
ADD B18
|
|
ADM LBL1+1
|
|
LDA LLBL
|
|
LDB LMT
|
|
BRM NSRT INSERT FORM ITEM
|
|
SKN PASS
|
|
BRU LINE SKIP IF PASS1
|
|
BRM EDE EDIT ERRORS
|
|
FRM4 BRM PRNT
|
|
BRU LINE
|
|
$PAGE SKN PASS
|
|
BRU LINE
|
|
BRM HOME EJECT TO NEXT PAGE
|
|
BRM PRNT
|
|
BRU LINE
|
|
$AORG CLR
|
|
BRU ORG1
|
|
$ORG LDA B8
|
|
ORG1 BRM ILOC GET NEW LOC
|
|
STA LOC
|
|
BRM DLBL DEFINE LABEL
|
|
BRU BSS1
|
|
ILOC HLT 0
|
|
STA LOC1
|
|
BRM MAXL SET MAXIMUM LOC
|
|
BRM SCAN GET INCREMENT
|
|
ADD LOC1
|
|
STA LOC1 SAVE RESULT
|
|
BRR ILOC EXIT
|
|
$BSS LDA LOC OLD LOC
|
|
BRM ILOC GET NEW LOC
|
|
BSS1 SKN PASS TEST PASS
|
|
SKN M1 D0NT PR1NT IF 1ST PASS
|
|
BRM EDTL PRINT LOCATION
|
|
LDA LOC1 NEW LOCATION
|
|
STA LOC
|
|
BRU LINE
|
|
$DATA BRM SCAN
|
|
SKN PASS
|
|
BRU DATA1
|
|
STA WORD
|
|
STB WMOD
|
|
LDA B0
|
|
STA WRD2
|
|
BRM EDIT
|
|
DATA1 MIN LOC
|
|
LDA TERM
|
|
SKE CCHR
|
|
BRU LINE
|
|
BRU DATA
|
|
$DED LDA M47 SCALE
|
|
STA SCALE
|
|
BRM DPW GET DOUBLE PRECISION WORD
|
|
EXU DPWR TO EXCHANGE OR NOT TO EXCHANGE
|
|
STB WORD
|
|
STA VALU
|
|
SKN PASS
|
|
BRU DED1
|
|
LDA B0
|
|
STA WRD2
|
|
BRM EDIT
|
|
DED1 MIN LOC
|
|
SKN PASS
|
|
BRU DED2
|
|
LDA VALU
|
|
STA WORD
|
|
LDA B0
|
|
STA WRD2
|
|
BRM EDIT
|
|
DED2 MIN LOC
|
|
LDA TERM
|
|
SKE CCHR
|
|
BRU LINE
|
|
BRU DED
|
|
$BCD RES
|
|
LDB SPAC
|
|
BRU $+2
|
|
$TEXT RES 0
|
|
LDB BCHR
|
|
STB BCIF
|
|
LDA CHR
|
|
SKE ='<'
|
|
BRU TEXT7
|
|
LDA P14
|
|
STA TERM
|
|
LDA =55
|
|
BRU TEXT6
|
|
TEXT7 BRM DECW
|
|
TEXT1 SUB B23
|
|
LDB B17
|
|
STB TERM
|
|
SKG =55
|
|
BRU TEXT6
|
|
LDA =55
|
|
MIN TERR
|
|
TEXT6 STA CNTB
|
|
BRM GET
|
|
TEXT2 SKN CNTB
|
|
SKN M1 ALWAYS SKIP
|
|
BRU LINE DONE
|
|
LDA BCIF
|
|
MUL =01010101
|
|
LSH 23
|
|
STA WORD SET WORD TO BLANK:
|
|
LDX =00200000-4,X0
|
|
TEXT3 LDA CHR
|
|
SKE BCHR
|
|
BRU $+2
|
|
LDA BCIF
|
|
SKE TERM
|
|
BRU TEXT8
|
|
CNA
|
|
STA CNTB
|
|
BRU TEXT4
|
|
TEXT8 SUB BCIF
|
|
LDB Z
|
|
EXU TEXT5,X2 EXECUTE SHIFT
|
|
ADM WORD ADD CHARACTER TO WORD
|
|
STX CNTR,X0
|
|
BRM GET
|
|
LDX CNTR,X0
|
|
SKR CNTB
|
|
BRX TEXT3,X0
|
|
TEXT4 LDA B0
|
|
STA WRD2
|
|
SKN PASS
|
|
SKN M1 YES
|
|
BRM EDIT EDIT ALPHA-NUMERIC WORD
|
|
MIN LOC L+1 TO L
|
|
BRU TEXT2
|
|
LSH 18
|
|
LSH 12
|
|
LSH 6
|
|
NOP 0
|
|
TEXT5 RES 0
|
|
ENDPS LDA Z
|
|
STA PASS FORCE END OF PASS 1
|
|
$END RES 0
|
|
END1A SKN PASS
|
|
BRU END1 END PASS 1
|
|
BRU END2
|
|
END1 RES 0
|
|
BRM ENDSI
|
|
LDA M1
|
|
STA PASS CHANGE PASS
|
|
LDA LOC
|
|
STA LOCP SET LITERAL OR1GIN
|
|
STA LADD SET 1ST LITERAL ADDRESS
|
|
LDX ERRC,X0
|
|
LDA Z
|
|
END3 STA VERR,X2 CLEAR ERROR FLAGS
|
|
BRX END3,X0
|
|
STA VERR
|
|
STA DWC
|
|
LDA DEFT
|
|
STA STYP
|
|
LDA B23
|
|
STA CTYP
|
|
LDX TPS,X0
|
|
END14 CXA
|
|
ADD P3
|
|
SKG HIGH
|
|
SKN M1
|
|
BRU END13
|
|
CAX
|
|
LDA 1,X2
|
|
SKA EXTM
|
|
SKN M1
|
|
BRU END14
|
|
ETR M2
|
|
STA 1,X2
|
|
STX WORD,X0
|
|
STX CNTR,X0
|
|
BRM OUTP
|
|
LDX CNTR,X0
|
|
BRU END14
|
|
END13 LDA Z
|
|
STA LTR1
|
|
LDA B22
|
|
STA CTYP
|
|
LDA TPM
|
|
ADD TPM+2
|
|
ADD TPM+4
|
|
STA TPL ORICIN OF LITERAL TABLE
|
|
LDX FRST,X0
|
|
EAX 3,X2
|
|
ENDP2 STX CNTR,X0
|
|
LDA 1,X2
|
|
LDB =07777
|
|
SKM =02040
|
|
BRU ENDP1
|
|
LDA 2,X2
|
|
RCY 16
|
|
MRG LTR1
|
|
LCY 16
|
|
STA 2,X2
|
|
MIN LTR1
|
|
BRM OUTP
|
|
ENDP1 LDX CNTR,X0
|
|
EAX 3,X2
|
|
CXA
|
|
SKE TPL
|
|
BRU ENDP2
|
|
LDA Z
|
|
STA CTYP
|
|
LDA TPS
|
|
STA TPR ORIGIN OF REFERENCE TABLE
|
|
STA TPR+1
|
|
LDA C01
|
|
STA TPR+3
|
|
STA TPR+5
|
|
STA TPL+1
|
|
LDA M1
|
|
STA TPL+3
|
|
LDA DLY1
|
|
LDX =00200000-8,X0
|
|
END8 STA CBUF,X2 CLEAR PRINT LINE
|
|
BRX END8,X0
|
|
BRU BGN4
|
|
END2 LDA B23
|
|
STA EFLG
|
|
LDA CHR
|
|
SKE BCHR
|
|
SKN M1 ALWAYS SKIP
|
|
BRU END4 NO TRANSFER
|
|
BRM SCAN GET TRANSFER ADDRESS
|
|
STA WORD
|
|
LDA B0
|
|
STA WRD2
|
|
BRM EDTV EOTT
|
|
SKR EFLG SET TRANSFER FLAG
|
|
BRU END5
|
|
END4 BRM PRNT PRINT
|
|
END5 LDX TPL,X0 L1T TABLE ORIGIN
|
|
LDA LOCP
|
|
STA LOC
|
|
STA LTR1 0 TO SEQUENCE
|
|
END6 SKE LADD
|
|
BRU PLTR LITERAL TO OUTPUT
|
|
BRM MAXL MAXIMUM LOCATION
|
|
LDA REFT
|
|
STA STYP
|
|
LDA B23
|
|
STA CTYP
|
|
LDX LRT,X0 1ST WORD OF REF TABLE
|
|
LDA 0,X2
|
|
ADD P3
|
|
STA LTR1
|
|
ADD 2,X2
|
|
ADD 4,X2
|
|
STA LTR2 END OF REF TABLE
|
|
END12 LDA LTR2
|
|
SKG LTR1
|
|
BRU END15 NO MORE REFS
|
|
LDA LTR1
|
|
STA WORD
|
|
LDA *LTR1
|
|
STA EREF1
|
|
MIN LTR1
|
|
LDA *LTR1
|
|
ETR C01
|
|
MRG =' '
|
|
STA EREF2
|
|
MIN LTR1
|
|
LDA *LTR1
|
|
MIN LTR1
|
|
STA LOC
|
|
BRM EDTL
|
|
BRM OUTP OUTPUT REF
|
|
BRU END12
|
|
END15 LDA P3
|
|
STA CTYP END CARD TYPE
|
|
SKR EFLG
|
|
BRU END7 NO TRANSFER
|
|
LDA VALU
|
|
STA WORD ADDRESS
|
|
LDA MODE
|
|
STA WMOD
|
|
BRM OUTP OUTPUT TRANSFER CARD
|
|
END7 LDA B21
|
|
STA CTYP
|
|
BRM OUTP CLEAR CARDS
|
|
END11 RES 0
|
|
BRM HOME
|
|
BRM WEOF
|
|
BRU BGN
|
|
PLTR CXA
|
|
ADD P3 CURRENT SEQUENCE
|
|
CAX
|
|
LDA 2,X2
|
|
PLT2 SKE LTR1
|
|
BRU PLT1 OUT OF SEQUENCE
|
|
LDA 0,X2
|
|
STA WORD VALUE
|
|
LDA 1,X2
|
|
STA WMOD MODE
|
|
LDA B0
|
|
STA WRD2
|
|
STX LTR2,X0
|
|
BRM EDIT
|
|
LDX LTR2,X0 RESTORE
|
|
MIN LTR1 ICREMENT SEQUENCE
|
|
LDA LTR1
|
|
MIN LOC
|
|
BRU END6
|
|
PLT1 SUB LOCP
|
|
STA CNTR
|
|
ADD CNTR
|
|
ADD CNTR 3 * SEQUENCE
|
|
ADD P3
|
|
ADD TPL
|
|
STA LTR3 CORRECT POS1TION
|
|
LDA 0,X2
|
|
XMA *LTR3 EXCHANGE LITERALS
|
|
STA 0,X2
|
|
MIN LTR3
|
|
LDA 1,X2
|
|
XMA *LTR3
|
|
STA 1,X2
|
|
MIN LTR3
|
|
LDA 2,X2
|
|
XMA *LTR3
|
|
STA 2,X2
|
|
BRU PLT2
|
|
FREF LDA P24
|
|
STA CNT1 NO. OF BITS LEFT
|
|
LDA M5
|
|
STA CNT3 SET FIELD COUNT
|
|
LDA WORD
|
|
STA WRD1 SAVE FORM FOR ED1T
|
|
STA WRD2
|
|
LDA Z
|
|
STA WORD 0 TO DATA
|
|
LDB B0
|
|
FR4 BRM FLDC COUNT BITS IN FIELD
|
|
BRU FR5 NO MORE FIELD5
|
|
MIN CNT3
|
|
STA CNT2 FIELD SIZE
|
|
SKE AB ADDRESS BITS
|
|
BRU FR2 N0T ADDRESS SIZE
|
|
SKE CNT1 BITS LEFT
|
|
BRU FR2 NOT ADDRESS FIELD
|
|
BRM SCNL
|
|
STB WMOD
|
|
BRU FR3
|
|
FR2 BRM SCAN GET NON-ADDRESS FIELD
|
|
BRM SKB
|
|
HLT RELM
|
|
MIN RERR SET R FLAG
|
|
FR3 LDB Z
|
|
LDX CNT2,X0
|
|
RSH 0,X2 LEFT ADLUST IN B
|
|
SKE Z
|
|
BRU FR6
|
|
FR1 LDA Z
|
|
LDX CNT1,X0
|
|
LSH 0,X2
|
|
MRG WORD INSERT FIELD IN WORD
|
|
STA WORD
|
|
LDA CNT1
|
|
SUB CNT2 DECREMENT BITS LEFT
|
|
STA CNT1
|
|
LDA TERM
|
|
SKE CCHR TEST FOR COMMA
|
|
BRU FR5 END OF REFERENCE
|
|
BRU FR4 PROCES5 NEXT FIELD
|
|
FR5 LDA WRD1
|
|
STA WRD2 SET FDRM FOR PRNTTNG
|
|
LDA B0
|
|
SKN CNT3
|
|
STA WRD2 TOO MANY FIELDS TO EDIT
|
|
BRU LIN8
|
|
FR6 SKE M1
|
|
MIN TERR
|
|
BRM SKB
|
|
HLT B0
|
|
SKN M1
|
|
MIN TERR
|
|
BRU FR1
|
|
$SKB HLT
|
|
XMA SKB
|
|
ADD IND1
|
|
XMA SKB
|
|
XAB
|
|
SKA *SKB
|
|
BRU $+2
|
|
MIN SKB
|
|
XAB
|
|
BRR SKB
|
|
IND1 HLT *1
|
|
$M1,LINE,B0,P14,BCIF,SPAC,TEXT1,M23
|
|
$IERR,INR1,DLBL,FRM4,XFLG,OPD1
|
|
$B11,C3,Z
|
|
END
|