mirror of
https://github.com/rcornwell/ctss.git
synced 2026-01-12 00:02:48 +00:00
Added some pending patches.
This commit is contained in:
Richard Cornwell
parent
cd7d5632d1
commit
cd3ebe7030
@ -10,7 +10,7 @@ at mtb3 sysut2.tp
|
||||
at mta4 sysut3.tp
|
||||
at mtb4 sysut4.tp
|
||||
at mtb1 sysou1.tp
|
||||
at mta3 srctape3.tp
|
||||
at mta3 -r srctape3.tp
|
||||
at mtb5 sysck1.tp
|
||||
at mtb2 -f p7b syspp1.tp
|
||||
set mtc disable
|
||||
@ -22,6 +22,9 @@ at cdp0 -f bin syspun.crd
|
||||
at cdr0 end.job
|
||||
dep sw1 0
|
||||
bo mta1
|
||||
det mta3
|
||||
at mta3 sysfap.tp
|
||||
sh mta
|
||||
c
|
||||
! ./listtape sysou1.tp >ibfap.lst
|
||||
quit
|
||||
|
||||
@ -377,6 +377,9 @@ BSFL PZE F0D30139
|
||||
ONMSK BCI 1,0000ON MASK FOR ON F0D3173P
|
||||
OFFMK BCI 1,000O T MASK FOR OFF F0D3173Q
|
||||
REM F0D3173R
|
||||
LAS QV IS CHARACTER V WNF0D31771
|
||||
TXI LITDC,1,1 NO, IT IS DECIMAL WNF0D31772
|
||||
TRA LITVL YES, IT IS VFD WNF0D31773
|
||||
REM F0D31940
|
||||
REM EVALUATE VFD LITERAL WNF0D31941
|
||||
REM F0D31942
|
||||
@ -427,6 +430,10 @@ LITV1 STZ ERASE NO, CLEAR WORKING STORAGE F0D33690
|
||||
STZ RBITS CLEAR BAD RELLOC INDICATOR WNF0D33695
|
||||
STZ VFDRB CLEAR OUT OLD BIT COUNTS WNF0D33705
|
||||
STZ ORBIT CLEAR OLD RELOCATION FLAGS WNF0D33707
|
||||
CAL RBITS PICK UP THIS FIELDS RELOCATION BITS WNF0D33821
|
||||
ORS ORBIT SAVE FOR TESTING LATER WNF0D33822
|
||||
ZET LITVV DID THIS COME FROM LITOP WNF0D33851
|
||||
TRA LITV2 YES, EXIT THIS WAY WNF0D33852
|
||||
REM F0D34281
|
||||
REM RESCRS PSEUDO-OP RESTORES FORMER ORIGIN OF CREATED WNF0D34282
|
||||
REM SYMBOLS AT TIME OF SAVCRS PSEUDO-OP WNF0D34283
|
||||
@ -597,6 +604,8 @@ SETBP STL BOLMD EVALUATE 'SETB' DEFINITION DAF0D52621
|
||||
BCI 1,SETB00 BOOLEAN SET PSEUDO-OPERATION DA F0D78261
|
||||
PZE 4$SETBP,,5$SETBP SETB DAF0D78262
|
||||
OCT 700011520054 SMS DISK$F0D78500
|
||||
BCD 1SPI000 STORE PROTECT INDICATORS MIF0D78561
|
||||
OCT -060471120000 SPI MIF0D78562
|
||||
BCD 1SRI000 STORE RELOCATION INDICATORS MIF0D79101
|
||||
OCT -060171120000 SRI MIF0D79102
|
||||
BCD 1SYMREF SYMBOLIC REFERENCE TABLE CONTROL PB F0D79781
|
||||
@ -789,6 +798,14 @@ FLGOP ZET FGCSFG DO NOT RESET FLAG IF SET IN COMMAND WNF0E20723
|
||||
STO MCER2 SET IT CORRECTLY WNF0E20729
|
||||
TSX PRNCC,4 LIST IF DESIRED WNF0E2072A
|
||||
TRA READ1 WNF0E2072B
|
||||
TZE LIT01 YES, SO GO TO APPROPRIATE SECTION WNF0E22361
|
||||
ERA Q45 IS IT A VFD TYPE LITERAL WNF0E22362
|
||||
REM LITERAL IS VFD, DELETE REMAINDER OF CARD WNF0E22371
|
||||
TSX C0190,4 GET NEXT CHARACTER WNF0E22372
|
||||
ERA BLANK IS IT BLANK WNF0E22373
|
||||
TNZ *-2 IF NOT, KEEP SCANNING TO FIND END OF V.F.WNF0E22374
|
||||
LIT0Z SLN FLDND DECLARE FIELD IS DONE WNF0E22375
|
||||
TRA LIT02+1 WNF0E22376
|
||||
REM F0E23091
|
||||
REM PRINT OR NOT PRINT MACRO LEVEL ON LISTING WNF0E23092
|
||||
REM F0E23093
|
||||
@ -816,6 +833,15 @@ MCER2 BRN *+2 SWITCH TO PRINT NON-FATAL ERRORS WNF0E23270
|
||||
STZ SHORTL TO CONTROL PRINT TSF0E23382
|
||||
TRA READ1 F0E23390
|
||||
REM F0E23395
|
||||
REFOP TSX SCANF,4 'REF' PSEUDOOP, SCAN VARIABLE FIELD PBF0E24590
|
||||
TXI AFLAG+1,,0 .. NULL VARIABLE FIELD PBF0E24592
|
||||
SLT EXPRR IS VARIABLE FIELD IN ERROR PBF0E24594
|
||||
ZET RBITS .. OR RELOCATABLE PBF0E24596
|
||||
TRA SPC02 .. YES, F FLAG FOR CARD PBF0E24598
|
||||
ALS 18 VARIABLE FIELD VALID, SET SWITCH PBF0E24600
|
||||
NZT REFSFG .. UNLESS INHIBITED BY COMMAND LINE PBF0E24602
|
||||
STD PREF6 .. PBF0E24604
|
||||
TRA SPC01-2 JOIN COMMON CODE IN 'SPACE' PBF0E24610
|
||||
SETBP STL TYPDF SET FLAG TO PRINT SIX DIGITS DAF0E24721
|
||||
LXD IOLST,4 GET LENGTH OF LISTING LINE DAF0E24722
|
||||
TXL SETB2,4,5 IS THIS RE-ITERATION OF 'DUP' DAF0E24723
|
||||
@ -832,6 +858,7 @@ SETB2 STL BOLMD SET BOOLEAN MODE DAF0E24727
|
||||
TSX PRNCC,4 PRINT CONTROL CARD PBF0E25193
|
||||
TRA READ1 .. PBF0E25194
|
||||
REM F0E25195
|
||||
STZ VFDRB RESET SIGN OF UNUSED COUNT WNF0E25811
|
||||
END -1 F0E30300
|
||||
ENDUP
|
||||
UPDATE ,10,U
|
||||
|
||||
@ -1,6 +1,8 @@
|
||||
* LDCTSS - SETUP CTSS FILES.
|
||||
*
|
||||
* FILES FROM TAPE SYSCK1 TO THE CTSS DISK.
|
||||
* FILES FROM TAPE SYSCK1 (B5) TO THE CTSS DISK.
|
||||
* IMAGE FILES FROM TAPE (B6) TO THE CTSS DISK.
|
||||
* BSS FILES FROM TAPE (B7) TO THE CTSS DISK.
|
||||
*
|
||||
LBL LDCTSS
|
||||
COUNT 100
|
||||
@ -60,7 +62,7 @@ FUNC AXT 14,1
|
||||
TIX *-2,1,1
|
||||
TSX (PROUT,4
|
||||
PZE 1
|
||||
PZE CMD,1,14
|
||||
PZE CMD,,14
|
||||
CAL TYPE
|
||||
SLW M2+1
|
||||
AXT 14,1 SAVE LINE AWAY.
|
||||
@ -75,8 +77,15 @@ FUNC AXT 14,1
|
||||
TRA TYPX
|
||||
TRA LNKFIL
|
||||
TYP3 LAS =HC
|
||||
TRA TYPX
|
||||
TRA TYP4
|
||||
TRA CARD
|
||||
LAS =HB COPY BSS FILE
|
||||
TRA TYPX
|
||||
TRA BSSFIL
|
||||
TRA TYPX
|
||||
TYP4 LAS =HF TRANSFER FILE
|
||||
TRA TYPX
|
||||
TRA XFRFIL
|
||||
TRA TYPX
|
||||
* GREATER THEN O
|
||||
TYP2 LAS =HU If UFD mode
|
||||
@ -91,24 +100,6 @@ TYPX EQU *
|
||||
PZE M2,,4
|
||||
PZE CMD,,14
|
||||
TRA LOOP
|
||||
* CLA RECS REPORT LAST FILE READ.
|
||||
* TSX (DECVA,4
|
||||
* STQ MSG+1
|
||||
* CAL LINE+1
|
||||
* SLW MSG+4
|
||||
* CAL LINE+2
|
||||
* SLW MSG+5
|
||||
* CAL LINE+3
|
||||
* SLW MSG+6
|
||||
* TSX (PROUT,4 WRITE OUT FIRST LINE OF BUFFER
|
||||
* PZE 1
|
||||
* PZE MSG,,6
|
||||
*SFIL STZ RECS
|
||||
* AXT 14,1 SAVE LINE AWAY.
|
||||
* CAL BUF+14,1
|
||||
* SLW LINE+14,1
|
||||
* TIX *-2,1,1
|
||||
* TRA LOOP
|
||||
ERROR TSX (PROUT,4 WRITE OUT ERROR MESSAGE
|
||||
PZE 1
|
||||
PZE EMSG,,4
|
||||
@ -353,6 +344,8 @@ FLXR4 AXT **,4
|
||||
OCTAL EQU *
|
||||
* Read a record into memory.
|
||||
READ SXA RDXR4,4 SAVE INDEX FOR RETURN
|
||||
STZ RTTS
|
||||
STZ EOFS
|
||||
TCOB *
|
||||
TRCB *+1
|
||||
RTDB 5 READ TAPE B5
|
||||
@ -370,6 +363,88 @@ BADREC STL RTTS
|
||||
TRA RDXR4
|
||||
TRPEOF STL EOFS
|
||||
TRA RDXR4
|
||||
* Read a record into memory.
|
||||
RDBIN SXA RDXR4,4 SAVE INDEX FOR RETURN
|
||||
STZ RTTS
|
||||
STZ EOFS
|
||||
TCOB *
|
||||
TRCB *+1
|
||||
RTBB 6 READ TAPE B6
|
||||
RCHB BINCOM
|
||||
TCOB *
|
||||
TRCB BADREC
|
||||
TEFB TRPEOF
|
||||
SCHB ERCODE GET RECORD LENGTH
|
||||
CLA ERCODE
|
||||
SUB IOCOM
|
||||
STA EORS
|
||||
TRA RDXR4
|
||||
* Read a bss record into memory.
|
||||
RDBSS TRA *+1
|
||||
RTBB 7 READ TAPE 7
|
||||
TCOB *
|
||||
TEFB *-2 REPEAT UNTIL EOF
|
||||
STL RDBSS SKIP THIS AFTER FIRST TIME.
|
||||
SXA RDXR4,4 SAVE INDEX FOR RETURN
|
||||
STZ RTTS
|
||||
STZ EOFS
|
||||
TCOB *
|
||||
TRCB *+1
|
||||
RTBB 7 READ TAPE B7
|
||||
RCHB BSSCOM
|
||||
TCOB *
|
||||
TRCB BADREC
|
||||
TEFB TRPEOF
|
||||
SCHB ERCODE GET RECORD LENGTH
|
||||
CLA ERCODE
|
||||
SUB IOCOM
|
||||
STA EORS
|
||||
TRA RDXR4
|
||||
XFRFIL STZ LFLAG
|
||||
TSX $ATTACH,4 Try ATTACH to UFD
|
||||
PAR PROJ
|
||||
PAR PROG
|
||||
PAR =0 Go add it if not defined
|
||||
TSX $OPEN,4 OPEN FILE
|
||||
PAR =HW
|
||||
PAR SFILE1
|
||||
PAR SFILE2
|
||||
PAR =0
|
||||
PAR =2
|
||||
TSX $BUFFER,4
|
||||
PAR SFILE1
|
||||
PAR SFILE2
|
||||
PAR BUF1,,BLKSIZ
|
||||
STZ RECS
|
||||
RDB TSX RDBIN,4
|
||||
ZET EOFS
|
||||
TRA DONBIN
|
||||
ZET RTTS
|
||||
TRA ERROR
|
||||
LXA EORS,2
|
||||
SXD BINSZ,2
|
||||
TSX $WRWAIT,4
|
||||
PAR SFILE1
|
||||
PAR SFILE2
|
||||
PAR =0
|
||||
BINSZ PAR BUF1,,**
|
||||
TRA RDB
|
||||
DONBIN TSX $CLOSE,4
|
||||
PAR SFILE1
|
||||
PAR SFILE2
|
||||
CAL MSG
|
||||
SLW BUF
|
||||
CAL =HBIN
|
||||
SLW BUF+1
|
||||
CAL SFILE1
|
||||
SLW BUF+2
|
||||
CAL SFILE2
|
||||
SLW BUF+3
|
||||
TSX (PROUT,4 WRITE OUT FIRST LINE OF BUFFER
|
||||
PZE 1
|
||||
PZE BUF,,4
|
||||
TRA LOOP
|
||||
BSSFIL EQU *
|
||||
* Convert BCD to Octal BCD in MQ
|
||||
boct stz num
|
||||
sxa boct3,4
|
||||
@ -401,11 +476,14 @@ RECS PZE **
|
||||
TA PZE
|
||||
TB PZE
|
||||
ERCODE PZE
|
||||
IOCOM IOST BUF,0,RECLEN COM TO READ UP TO N WORDS
|
||||
BINCOM IOST BUF1,0,BLKSIZ READ IN BINARY RECORD.
|
||||
IOCOM IOST BUF,0,RECLEN COM TO READ UP TO N WORDS
|
||||
BSSCOM IOST BUF,0,RECLEN+RECLEN READ IN BSS RECORD.
|
||||
MARK OCT 777777000000
|
||||
LINE BSS 14
|
||||
L(BUF) PZE *+1
|
||||
BUF BSS RECLEN
|
||||
BSS RECLEN
|
||||
BUF1 BSS BLKSIZ
|
||||
CMD BSS 14
|
||||
TYPE EQU CMD+1
|
||||
|
||||
@ -18,7 +18,7 @@ at mtb1 sysou1.tp
|
||||
at mta5 sysck2.tp
|
||||
at mtb5 sysck1.tp
|
||||
at mtb2 syspp1.tp
|
||||
at mtb6 syspp2.tp
|
||||
at mtb6 -f p7b x.tap
|
||||
set mtc disable
|
||||
set cdp1 disable
|
||||
set cdr1 disable
|
||||
|
||||
@ -12,6 +12,12 @@ $CTSS S TSSFIL
|
||||
tssfil.timacc
|
||||
$CTSS S UACCNT
|
||||
uaccnt.timacc
|
||||
$CTSS F M1416CMFL02HELO8ATSSDC.
|
||||
$CTSS F M1416CMFL02 LDABSTSSDC.
|
||||
$CTSS F M1416CMFL02INIT8ATSSDC.
|
||||
$CTSS F M1416CMFL02LOGN8ATSSDC.
|
||||
$CTSS F M1416CMFL02LOGT8ATSSDC.
|
||||
$CTSS F M1416CMFL02RUNCOMTSSDC.
|
||||
$CTSS U M1416CMFL05 4000 100
|
||||
$CTSS U M1416CMFL06 4000 100
|
||||
$CTSS U M1416CMFL07 4000 100
|
||||
|
||||
@ -28,7 +28,8 @@ unsigned char endcard[20] = " END ";
|
||||
* $CTSS L PROJ PROG NAME1 NAME2 PROJ PROG FNAME1 FNAME2 Link
|
||||
* $CTSS U PROJ PROG QUOTA DRUM UFD data.
|
||||
* $CTSS S NAME1 Same as card deck, but name1 TIMACC
|
||||
* $CTSS B PROJ PROG NAME1 NAME2 RECS Binary #recs SYSCK2 to name
|
||||
* $CTSS B PROJ PROG NAME1 NAME2 Binary BSS file SYSPP2 to name
|
||||
* $CTSS F PROJ PROG NAME1 NAME2 Binary file on SYSCK2 to name
|
||||
*
|
||||
* Next line path to native file.
|
||||
* For T and L there is no native file name.
|
||||
@ -295,8 +296,11 @@ void process_ctss(FILE *tape, FILE *in, int cblk) {
|
||||
int eol;
|
||||
FILE *in_file;
|
||||
|
||||
if (line_buffer[6] == 023 /*T*/ || line_buffer[6] == 043 /*L*/
|
||||
|| line_buffer[6] == 024 /*U*/)
|
||||
if (line_buffer[6] == 023 /*T*/ ||
|
||||
line_buffer[6] == 043 /*L*/ ||
|
||||
line_buffer[6] == 062 /*B*/ ||
|
||||
line_buffer[6] == 066 /*F*/ ||
|
||||
line_buffer[6] == 024 /*U*/)
|
||||
return;
|
||||
/* We need a file name next */
|
||||
len = 0;
|
||||
|
||||
@ -18,8 +18,8 @@
|
||||
REM PDPA0018
|
||||
HEAD C PDPA0019
|
||||
UNLIST PDPA0020
|
||||
INSERT $EQU PDPA0021
|
||||
INSERT $COMMON PDPA0022
|
||||
INSERT EQU PDPA0021
|
||||
INSERT COMMON PDPA0022
|
||||
LIST PDPA0023
|
||||
REF 1 PDPA0024
|
||||
HEAD 0 PDPA0025
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user