Tymshare_Monitor_Jul67 Tymshare Monitor Jul67
Tymshare_Monitor_Jul67 Tymshare_Monitor_Jul67
User Manual: Tymshare_Monitor_Jul67
Open the PDF directly: View PDF 
.
Page Count: 200
| Download | |
| Open PDF In Browser | View PDF |
3SR$
tO~NT
6/'30/67
gNTRY
tNTRY
ENTRY
TRAP6,CPUP,IBP,NiRPS,TRPe
T,iSX,$S01,SS02/$S03,eST/EPBPX,6SE
* ENTRY P8INTi
~NTRY
f;NTRY
ENTRY
ENTRY
T'CO~
MGET,MPUTITRAP,MDE~,NTRAP/TRAP$
MX01,MS03/MX13
TRAPl,TRAPM,TRAPR
RFK,TFKIFKSTW,HFK,G~K/SCFK,DFK
.. [NTRltS FReM MOSG
PB,PX,PP9,NFORK,QBT8P
ENTRY
**
tSBR~'/tS6RR'ltEXSf
*
SSRM
5MB
*
S6RR
SRB
6/28/66
P6PO
170000008,1,1,0/1
iTX $9031 tAX* 01 XXAJ ETR AOMSK
MRG 540040000BJ XMA OJ EaR .~OOOOB; STA* 0
CXAJ ~DX 5$03; 6RR 0
POPO
11100000B,1,l,O,1
ITX iS031 LOX. OJ £AX O,6J STX T I L.DX SS031 BRR* T (T I ME -j« US)
** EXECUTE INSTRUCTl6N ANO SKIP
* INPUT; E:XS Y
* V 1$ ~et ~F IN$TRUCTtBN T6 EXECUTE.
* v WI~~ SE EXECUTED IN SYSTEM MeOE.
EXS
XSp
X&Pl
** 'eRI'
•*
...
T~I$
T
BSX
5$01
Y MAV CBNTAIN A aRM.
15200000e,1,l,O,1
ITX 3SQ31LDX PACPTRj SKN PQU,2; B~M
~ox $9031 ~DX* OJ $TX XSPli ~DX SS03
ZR~I BRR 0; MIN OJ eRR 0
PSP-O
TRAPS
9/27/65
RSUTINI DISPATCHES eN THE ADDRESS 6F
ZR81* UNtVERSA~ TEMPeRARV ST6RAGE
ZRS,* eRa EXIT
lRSI* ~AVE (A)
A
'SRS'
ssoa
ZRBJ* SAVE (6)
~AVE (X)
5603
ZRei*
BRS
173000008/111,Q,1
55011 STS S8021 STX S503A EAX* 0
~DA ,~*OOOOBJ ADM 0
CXAJ ETR ADHSKi SKG ~BSTU.6ST; BRU BSl
aRM TRAPS (O)} BRU M~NBPN' 8RU M~NC~SJ BRM TRAPS
8RU MPT (4)1 BRU SSCH; 8RU SSIN; BRM TRAPB
BRU 16H (8); BRU FKST; BRU PPANI BRU CIS
eRU eET (lZ)J eRU SKI; BRU Dess N8P 0
Nep 1 (16); Nap 21 NO? 31 Nap 4
Ne~ 5 (20)~ BRU 'NA; BRM TRAPe, BRU ~NKS
SRV ~NKC (2~)1 BRU MSGS; BRU SKRBUTJ BRU ASTT
6RU RSTT (as), BRU caB; BRU FKRDi SRU FKWT
aRu FKTM (32), EAX GETSTRJ EAX eUTMSG; EAX eUTSTR
EAX eUTNUM (36); EAX GSLSBKJ EAX GETNUM; BRM TRAPS
6RU ROET (40)1 BRU JeRET; SRU RREA~I BRU RDRL
eRU $TR~ (~4)1 BRU SQB; 6RU NR6UTi BRU SReUT
Nap 6 (~8)1 BRU SRIRI 6RU FFlx, 6RU FF~T
NBP 10Q26 (52)1 Nap 10038; BRU RRSS; BRU MR5B
...
BS
B$T
P6PD
STA
eRU MBEX (5611__-BR~Qe i 6RU SSMF J 6Rl,) CBRF
Nap 9 '60.) i. ..~~M. TRAe~ BRM TRAPS. J BRM TRAPS
BRM
6RU
6RU
aRu
6RU
6RM
SRU
eRM
N6P
aRM
BRU
6RU
BRU
aRU
BRU
TRAPS (6~ I-eRR. TRAPS) SRU DFD~} BRU DFER
EBSM (68)1 BRU GBSM) BRM TRAP6J 6RU SKXEC
EXOMS (7~)i $RU EPPANI BRU FSWTJ BRU FSFl
FSMT (16)J BRU F$TM; BRV SAIRJ 6RU SIIR
MBRa (80)1 8RU WREALi BRU SWS~I BRM TRAPS
TR4P6 (8~), BRU $ET8P; BRt) C~R8PJ 6RU D~RX
RTiX (88)) 6RU FSCF; BRU OFRI NB? 1004B
TRAPS (92), 6RM TRAP6J BRM TRAPSI NBP 7
8 (96)l 6RM TRAPS; BRM TRAPS} 6RM TRAPB
TRAPS (100); BRM TRAPS; BRM TRAPS, BRM TRAPB
RSYB (10~)s 8RU WSYB, 6RU FKWAJ BRU FKRA
FKTA (108)) 6RU OMS, BRU RDUJ 8RU 8RSRET
TseFF (112); BRU DFCDJ BRU MTDI; aRM TRAPS
RUR~ (116); 6RU SURLi 6RU TGETI eRU TREL
APMTE (120)) BRU DPMTEs BRU MPAN~ aRM TRAPS
IF"
V1
6RU ARO (8E+1,124)) 6RU AWD~ BRU CARRVI BRU PEBRS
6RU S06M (eE+5,1~8)J 6RU TTveNI 6RU BPTEST; 8RU CRASH
6RU RD~V6 (BE+~/13~); 6RU WDSVBJ BRU CRSWi 8RU TtMINT
6RU $ET$W (BE+13,136); BRM TRAPS; BRU RDPGEJ BRU MFSVS
6RU CK6Ur (BE+ 111 1 ij,O) J B1{M--TRAP'8 r Nep 10
ENDF
B$TU
8S1
**
C~ECK
BSE
BRM TRAPS
~OA eST,2~
~DA
FeR
~OX
SS011
STA e$XI SKA 120000008; 6RU SSE
PACPTRJ EXU esx (GB IF" OIRECT)
~DX
C~ASS 2 BRS
Oi STX SBRSRT} SKA
~1000000B;
BRU eSE2
*
• C~A$S 3 BRS SETUP AND RETURN R6UTINE
.. EXEC eRs'S
*
UBRSET
~OA NFeRKs SKG ~OJ BRM TRAPS
eRM GFKs BRU 'KSTW; eRM STFKI MRG X61 ~DX FK04 (NEW PACPTR)
STA PQU,21 ~DA BSX, Rev 91 ETR ~31B; CAXI ~DA BRSTV,2
RSH 12J STA Ti LDA -400161 ~CV liJ STA 0
~DX PACPTR; ~DA RL1/Z; STA UBR~lJ ~06 RL2,2J STS UBRL2
~DA ,NC MEM*1000000e.+l00ooa, MRG T; C~B
~DX rKO~1 STA RL1,2J STS R~2/2i ~DA SSOll STA PA,e; STA UBA
~DA asx~ ETR .7178; ADD OJ STA P~12
~OA eEXE'~1 RSH 15, ~DA Je6J LSH 15i MRG X5J STA PTAB,2
~OX STFK2 (NEW XPB)
~DA S8021 STA PB,2; STA USss ~DA SS03; STA PX,2J STA UBX
~DA SBRSRTi STA 0; STA UPLI ~DB !700004BJ BRU pe~ST
*'*'
*'
C~A$S 2
M6NIT8R
SAV~ RETURN
BSE~
~DX ~UBRSETJ
6RS'S
STX 0; LOA $9011
*
..* RETURN FRBM
C~ASS
2 BRS'S
~OX
5S03; BRU* BSX
EPepx
....
SKN T1MEI BR~ SBRSRT
SKN TTJMtl SKN ACTRJ BRU *.21 BRR SBRSRT
eTA $SOll STe SS02l STX SS03) ~OA SBRSRTJ STA
.. 6RS 111
RETURN FR6M EXEC 6R$tS
BRSRET l.DA PPTR,2J MRG PLMSK; CAX
(C~ASS
OJ
BRU SQB
3/~)
~DA PTEST,2J SKE .,0000461 BRM TRAPSI SUB !31 STA PTEST,2
L.DA UP~I STA 0, STX TF01J ~DX PACPTRI aRM DFK
~DX TF011 ~OA PIM,2; LRSH 3} ETR -7; MRG X4
STA XPBJ C~BJ STa EXEC1; ~OB =.1; ~OA PTAB,21 SKA X2i STB EXECl
$TX PACPTRI BRM CHRLI BRM TRAPaJ BRU PBPX
.. eRS -6
SET N6N.TERMINABILITY
NR6UT ~KN PQU,21 BRM TRAPB) ~DA PIM,2J MRG xlI STA PIM,2; 8RU PBPX
.. BRS 26
$KIP IF TERMlNATleN PENDING
SKReUT ~DA PIM,21 SKA X2J MIN OJ 6RU pepx
.. 6RS 41
CLEAR N6N-TERMINABILITY
SRSUT SKN PQU,21 BRM TRAPS; ~DA ~IM,2J SKA XlI BRU *+21 6RU P8PX
ETR '477717776 I $+,4r>-Pi'~,cr-~a RU> .P-A'CT1E
* 6RS 90
DEC~ARE F6RK F6R RU6BUT
OFR
CXAI ~ox UTTY; STA TTyASG,ZJ BRU ?6PX
**
•
MEM6RY
A~LeCATleN ~eGIC
* ASSIGN A pe~lilaN IN PMT
PMGET ZROJ LOX J6BJ ~DA PMA,2J SKA -277000006; BRU *+21 BRR PMGET
ETR ~77B; STA SMGETi C~AJ ~DX ~NCMiM~11 BRU MGET4
MGET1 EAX l'~1 ~KE* PMTJ6Si BRU MGET4l MIN PMGETs 8RR PMGET
MGET4 SKR SMGETJ 6RU MGETli BRR PMGET
* ASSIGN A P6SITIBN IN SMT
SMGET lR6i A6C~ ~DX •• NSMT
SMGl
SKE SMTE~2i 6RU SMG21 CXAI AOD -NSMTJ MIN SMGETJ BRR SMGET
SMG2
6RX SMGll eRR $MGET
..
*.. GeT
A B~eCK ep MEM6RY
.. INPUT; A~ceRE ADDRESS IN PAGE, INDIRECT BIT IF MEM6RY MUST
..
C6ME FReM AN UPPER ~eRK.
...
a-NUMBER TB ADD r6 PMA. X.PACPTR
MGET
ZR6 I BRM MXO 11 SKE .0 I re-R:cr M~o-~_~:
L,DA ! .. ZJ STA MXO'; L..DX "M§O-3'-~~'"'* SCAN 'BR ~eCAL. 6R FJXED MEMBRY FeRK
MGET11 $TX MX081 ~DA RL1,2; LDB R~2/2; ~DX MX071 MIN MX09
,-cv c/ai
SKA .7700QOO~ MGET12i L.OX MX08 }
&li~L_MXO~ SKN PTAB.,2
aRU MGET 13 (C~ECK H I OHe;~~~~~FeR.KS FIRST)
L,DA PMTA f $KA. !'+00008; c~ MXO~):
MIN MX091 6.RM PMGET I ~~ M-XO'~.~ ,x~"
.
SKN PI M/2 i BRU •• 2,
STX MGTS21 BRM PMTAJ~ '~~~ ~DX MS03
.. PR8PAQATE NtW BYTt AS NECESSA~9 MGET10 STX MXOBi bDA RL1,2i LDB RL2,2J ~DX MX07
~CY 0,,) Rey 18i MRG MGTS2, ~Cy 181 Rev 012
LOX MX081 STA RL..1/2i eTe RL2/2
LDA PPTR,2i MRG PLMSKI CAX, $KR MXO'J 6RU MGET10
AND CLEAR BLeCK
I.OX MS03l BRM CHRL.I
GFK
*
*
*
lR~J
~OA FP~STI
SKG 'GI BRR GFK
iUe ,PPTRI C6PY AX,A
.
XMA PPTR,2s STA FP~STJ M%N GFK; eRR GFK
PUT NEW F6RK eN QX6
SET PoeWN(e~D).NEW, POeWN(NEW).O
p~eRK(N~W).e~o,
STFK
~Rel
*
MIN N'~RK
PB POINT~R
PPAR(NEW)!poeWN(e~D)
STX FK041 SKR N~eRKI 6RU *+21 BRM MBNCR
~ox ppal LOB pe,s;. STS PPB, eXBs STe STFK2
~SH ~J ~DX FK04J STa PIM,ZI CXA
~ox ,Q1SJ 6RM QPUTi ~Dx PACPTR~ ~SH 12
ETR P~HSKI XMA PPTR,a; CABs ~TR PRMSK; AOM PPTR,2
~OA FKO_, XXAI ETR PRMSKI $TA PPTR,al LOA PACDMBJ STA PTEST,2
~DX PACPTRJ. C~AI RSH 3; ~DA. QUTABI LiH 151 eRR STFK
ST'K2 ZR~ 0
xpe FeR NEW FeRK
* DE~;TE PAC E.NTRY w~eSE PACT PTR IS GIVEN IN X
DFK
ZReJ STX OFO~; ~DA .70000061 BRM QSCH
* REMev~o FReM QUEUE IF DISMISSED
~DA PPTR,2s SKA PRMSKi 8RU .-2J eRR DFK (EXEC NeT OE~ETEO)
REM~V~
~DA PIM,ZI RSH 31 ETR ~7; ~ox PP6; XXA
STA PB,2J STX PP8; LOX O~Oll LDA PPTR,2
HRG P~MSKJ CABI ~OA -11 SKA P!M,2i 6RU DF06 (INT,)
OrOS
CXAI ~OX UTTY
* PFeRK IN e, PACT PTR IN A
SKE TTVAiG,21 BRU *+2; sre TTVASG,2 (PROPAGATE RUBeUT 'UP')
* PUT PFBRK IN X, PDBWN(Pf6RK) IN A
. cex, ~DA PPTR,2,i R$H 12) SKE OF01; BRU OF02
IV !4tOB
STe GBp1
L.R$.H 23,
OIV "NP6S
RCH ~l~B
CBA,CAX/C~B
LtSH 5
AOD wMINP/4
ADM GSS1
CXA
l"SH 11
ADD GBSl
I.SH 2
MIN
GETBI.K
eRR GETB\..K
G6S1 ZRe
GBS2 ZRf}
(,H~ASE
ZRB
lRe, BRM
OT(l
OTE2
GETe~K; BRM NTRPBl LOX BUFF; BRR DrA
INSERT BIT INTe ell MAP T6 FREE 1 DISC
lR~1 STX DTE31 BRM LeeSITJ BRM M6NeR; 6RU DTE1
SKA TAe~~I~i BRM MBNCR; AOM iA6LE,cl BRU DTE2
MIN 6L.CNT
~DX DTE3; eRR OTE
DTE3
ZRB
OTA
*
OTE
**~eCATE BIT C6RRESP6NOING ra DISC ADDRESS IN A.
-NB SKIP IF BAD ADDRESS (N8 REGS CHANGED). eNE
-SKIP IF sur er CYLINDER (A~GARBAGE). Twe SKIPS
6~eCK
*IF ADDRESS 6K (AIBtT PBSIT16NED, X!NEG INDEx
-eN TAB~E, e.c~EARED).
*(AseUT 90 Cyc~~S)
* INPUT; A~Dt$C ADDRESS
.
L,SC61T ZRe 0
$TA ,-celT
JF"
C181
~TR
OM$K
£1.$F'
1
tTR NSTE6R
ENDF
Lei
..
SKG ,NDISCS*128*64.11 SKG .~l; BRR LBCBIT
STA ~B$ll ETR ,776000061 MU~ .. NP6S*4000008i XMA ~BSI
~TR '1777781 SKG -MAXP+177B; SKG =MINP-li BRU LSI; SUB ~MINP
AOD LB$ll ~R$H 251 elv -24, sua !TABLEN; CBPY ax,BI STA ~BSl
~OA .4000000061 LRS~ 0121 ~DX ~6S11 MIN L6CBIT
MIN ~eCBITJ 8RR LeCBIT;LBSl ZRB 0
* elr MAP
I.WT
L.WT
EQU *
RPT TAe~~N.l' OATA -11 ENOR
EQU
NP6S/2*2*NDISCS*32
EQU
~WT.~WT/24*2~
l..WTl
EQU
L.aT
I,r L,WT
TAB~E
..
1
RPT e~~LWT;LWTl £QU ~WT1*21 ENDR
OATA ",*WTl
~~SF 11 DATA
(NOV
EQU *
-1,
LCBIT
ZRB;* CBUNT SF DATA B~KS RETURNED FR6M eUTSIDE CYLINDER.
ZRB 0
INPUT f6 ~eceIT
*
EI..SF" 1
e~CNT
OTA
OTAR
OTAS
DTA3
,RB; ADD ~l00061 LDB ~1s BRM DTASJ BRR DrA
lR6J SUB .10008~ LOB .·1; BRM DTAS, BRR DTAR
lReJ STe DTAS3; ETR ~37~OOBJ RSH B
C6PV AX,A,B, STX DTAS11 $KEFDBTO,2; BRU DTAO
DTAO
OTA4
OTA.1
OiA2
SKE rOSTl/2; 6RU DTA1} SKE FDBT2/2J 8RU DTA2
CXAJ ADD DTAS3i ErR ~77B; 6RU DTA3
~Da Foaro,2) LOX ~~6; Neo 481 EBR X2; ~Cy 2/2
SiX DTAS21 ~DX DTASls STe ~DeTo,2
CX6; ~SH 18J ADD OTAS2J ~SH 14; ADD NSBA
$KR* OeAJ06, NePI ~DX BUFFl 6RR DTAS
~De FD6Tl,ZI ~OX .~61 NeD 481 EBR X21 ~Cy 2/2
$TX DTAS21 ~DX OTAS1; STB FDBTlla; EAX 24*1008,2i BRU OTA4
~D6 FDBT2,ai ~DX ~461 NeD 48; EeR X2; ~Cy 2,2
STX DTAS2J LOX DTASll STS rDBT2,2J EAX ~8*100BI2J BRU DTA4
* ERASE (RE~EASE) B~eCK
OTE
lRB; R$~ 8; ETR 11777761 SUB NSBS; CAXi ETR ~778; XXA
RSH 6; SKG &23; BRU OlEl; SVB !2*1 EAX 1006,2
SKG '23~ BRU DTE1; SUB &2~1 EAX 1008,2
OTE1
~DB FDBTO/2; XXA, Rey 1121 SKA X~; 8RU DTE2J MIN* DBAJeB
MRG X4l ~cy 1,ZI CAXi STB FDBTO,2
OTE2
~ox BUFF; eRR OTE
ENOF
* WRITE BLD DATA B~OCK IF C~ANGED
ore
ZRe~ SKN BDClcl 6RU *+21 BRR OTe
~DA '~1; STA BOC,2; ~DA* BIP/2
IF V2
JF
C181
ETR .777777781 CAB}
~~SF
1
ETR ~7777777Bi CABs
ENDF
~DA
TJ ADD ,2; LOX
~SH
2J
~DA
TI ADO -11
~DX
~NDDW+l
E~SF 1
~TR .77774008, CAB; ~DA TI ADD =2; ~DX =NDDW
~NOF
aRM OTWJ ~ox BUFF} BRR DT6
• WRITE B~D INDEX BbBCK IF CHANGED, GET NEW
OTN
ZRe; XMA BIA,21 STA OTN~J ~KN 6IC,2; 6RU DTN1
DTN~
~DA BIA,2; SKE DTN~j SKG -01 BRU DTN3J CAB
~DA T; ADD
LDX .NDXWRi BRM OTC
OTN~
~DA BUrFi ADD ,axe, ~DX BUFr;
aIPI~; BRR
-axe;
OTNl
OTN~
~NDDW+l
$TA
DrN
CAS' ~DA TI ADD ~BXel ~DX -NDXWR
6RM DrWJ ~DX BUFFI ~DA ·~lJ STA BIC,21 BRU DTN2
ZRB 0
* WRITE,
RE~EASE SUFFER AND EXIT
,RBi $KN BDC,2J 8RU OTU1J $.KN BI~/2J BRU DTU2; 9RR DTU
eRM aS~T; 6RM OTBI BRU DTU4
DTU~
eRM eS~T
OTU*
~OA BIAI2i BRM OTNI 6RU OTX
* ZERB INDEX B~BCK
OlZ
lR8J ~OA BUrF; ADD .Z3600000B+BX8+NDXW-2J STA DTZl
CLSI LDX •• NDxw+2
OT11
$18 Bxe+NDXW.2,21 6RX DTZ1J ~OX SUFF; MIN 6IC,2J BRR DTZ
IF .V2
* GET PiUEoe.RAND8M e~eCK NUMBER
OTR
ZR8J LDA DTRS1J ADD F7; ADD REAL
~TR .7781 STA DTRS1J Ley 8; BRR DTR
OTU
OTU1
*
~NDF
ASSIGN NEW DATA B~ec.K
OTL
ZRSJ STX DTLSll IF V21BRM OTA
i~SF 11 CXAJ SUB SUrr) SKE .eX6, BRU DTLl
~DA \/2; SKG -0; BRM DTR; 6RM DTARI BRU DTL2
OTLI ~DA .1,2, $KG ,01 BRM DTR) BRM OTA
DT~Z
MRG ~3776; ENDF; STA* DTlSl; LDX BUFF; MIN 81C,21 BRR
** 'ORXIOI','DWI'I'DWS' 10/30/65
** THESE IMP~EMENT SING~E.weRD TRANSFERS r8
*
ORXlel
ZR6; STA SSOl; STS SS02; STX SS03
~OA*
DT~
RANOBM FILES
.NFI~E.1J BRU *.21 BRM NTRPe
FeB
&TA Fl~EI Axe, ~oe FC,2s ~CV 9; ETR .7781 SKE JaB, BRM NTRPB
E~SF
1
STA FI~EI Axe; LDB FA,2; Ley 9; SKE JeB; BRM NTRPB
ENOP
~DA FO/21 SKA X61 BRU lelE (Fl~E BUSY)
E.TR .060QOOOOBl $KE ,06000000BI aRM NTRPS
IF
01 tTR AOMSKJ SKG
~D. ssoal
~DX FC,2~
BRR DRX181
** pep
14~
ETR 1171777776; RSH
23J
OIV
~NDDW
$KE 6DN,2; BRU DTGI STe TI CXAI ADD TJ ADD
Dlse weRD INPUT FRBM RANOBM FILE
~2
otw
•* pep
oew
eRM
DRXIBI~
CAX;
~DA 0121
DIsc WBRD BUTPUT T6 RANoeM fI~E
aRM DRXIBI; ~DX Ft~EI LOB rD/2~ SKB DReStTI BRM NTRP6
~DX FC,21 MIN SDC,2J CAX) LOA 6501; STA 0,2
~Da 55021 ~DX §S03J 6RU NXP6P
lP
•
SS02J LDX 8503; BRU NXP6P
1~5
~V2
* 'DBIS','oBI','Ose' 5/20/66
** THIS R6UTINE IMPL~MENTS THE
OSTP3
OeXS1
OeXS2
OeXS3
*
oele
~Da
FAST DBI/DBe $YSPBPS
lR61. ,eMMAND aUl~DER (DTC eR OTW)
ZRB,. REC6RD NUMBER
ZR6J* weRO NUM6ER
ZRS,* TEMP6RARY SIP
ZRO, STA oeTP11 STe DBTP2J STX oeTP3
~DX 55031 ~OA* 01 aRM lel; C8PY
~DB ,060Q00006; SKM .060000006;
AX,SA
BRU TRAP
$KN DBTP11 6RU .+3, SKA OR6BIT, BRU TRAP
oeXl ~DA SSOl; SKG -01 BRU DBX2
~DA SS02; bRSH 231 DIV -NDOWs STA D6XSls STS DBXS2
SKe ;-11 BRU Oex3AJ ~DA $5011 SKG INDDW l; BRU DBX3
~DA D6XS11 LRS~ 23, DIV -.NOXW.2; SKE BIN,2J 6RU OBX5
CBAI AOD SUFF; ADD -exes STA DBXS3
• SET UP NEXT CBHMANO
p
oeseT
~ox $5031
~DA 0,61
~ox
BUFf
~DA D8XS1J ·SKE BDN,21 BRU •• 2; SRU DBX4
~OA* OaXS3; SK~
6RU D8T11 ~DX DBXS3;
.0,
BRM DTL
aRM OTHI ACD .NDOW.1i ErR .31776
SKG .NDDW-2, BRU D6T21 ~DB T
~DA* 06XS3) ETR ,777740061 XABJ ~DX !NDDWI BRM* DBTP3
SKN DBlP2; 6RU oeX6; ~DX DTX$2
~Da FI~EJ ~SH 30s MRG ~~i ADM 3,Z
• UPOAT~ CENTRA~ REGISTERS, ANO L6SP
oeX6
~OA ,NODWI AOM S$02J ADM 5$03; CNA, ADM SSOlJ MIN DBXSl
~DX eUFFJ MIN OBXS3J ~DA 5$01; SKG .NDDW-1J 6RU DBXl
~DA DBXS3, SUB BUFF; SKE -exe.NDXW,21 6RU DBleTl BRU D6Xl
oeTl
oeT3
~OA $5031
caX2
SKN DTXSli BRU OTX, eRR DBle
STA DBXS3J BRM BSET, ~DA DBXS3
$KN 60G/2.J 8RU DTG41 BRU DTG5
* GB ACR6SS PAGE BeUNOARV
DITa ~Ox S5031 ~DA ~OOOB/6
IF
REL.CHN
CXAi R$H 11; ADD -1; ETR -71 MUL -3; CBX
~DA RR~ll ~D6 RR~2J ~Cy 0,21 Rev 1
tTR ~11~oooooel MRG OR~B1T' MRG 11 CABj BRU DBT3
iL.$F
1
OeX5
\-OX eUF"F'
~NOF'
* GO THR6VGH eUFFER
oeX3 LOA DBXSl
oeX3A SKE eON/2J 8RU DTG
oeXIt
~OA
06TP1
DiTP2
L,DA
*
OBI
OIM
otHel
,NODWi sue PBXS21 SKG SSOlJ iRU •• 2, LOA S801
$TA TI AOM OBTP11 ADM DBTP~I CNAI CAX
LDA SUFFJ ADD DBXS2J ~DB 5$031 SKN DBTP2J XAB
ADM D6TPli C6 As ADM DBTP2
~TA
~OA
a,a
o,~, BRX oaTPi; ~DX eUFFi SKN QBTP2J MIN BQC,Z
TI AOM SS02J AOM 5$03, CNAJ ADM SSOl; 6RU DBXl
pepo
142000Q06,t,l,O,l
STA $SOll $T8
~OA DIMC~I
I.DA 21~
OtMC2
STA 0,6
*Dee
P6PD
O~M
oeMC1
OOHe2
*
*
*
*
~S02J
STX ~S03
LOB DIMC2s LDX .DTC, 6RM DSles BRU PBPX
1~300000e'lI1'OI1
STA 5501; STB $S021 STX SS03
~DA DeMel, LDB 06MC2J ~DX !DTWJ aRM OBlei BRU PBPX
~DA
0,6
iTA 21?
~NOF
•
** 'DTG'
•
•
*
10/30/65
THIS RE~EASES THE CURRENT CeNTENTS 6F A DRUM BUFFER AND LeADS
IT WITH A SPECI~lEO DATA e~eCK
*
OTGS
~DX FC,Z
OTe} CXAJ ETR AOMSK; STA BUFF; BRM BSET
~DX SMIFt~1
OTG
STA
$KN 80C/2; 8RU DTG4
OTe; RSH 23; DIV =NDXW-21 SKE BIN,2; BRU DTG5
NEED NEW INDEX a~eCK
~DA ore, STA BDN/21 CSA; ADD BUFF; AOD -exe; ETR AOMSKI STA BIP/2
* DeN'T
*
DATA
~DA
CAX;
~OA
0,2; SKG !Ol 6RU OTG6
EXISTS
B~OCK A~READY
lr V2
~TR ~1777777BI
t~SF 1
~TR ,'111400Bi
,NOr
CAB;
~DX
~NDDW+l;
CAB;
~DX
~NDDWI
LDA T; ADD
~OA
TI ADD
~1
~2
aRM OTC; BRU DTX
• N6 SUCH DATA B~eCK, CREATE A GeeD BNE
OTG6
6RM OT~I MIN BOC,2
CBPY XA,S, ADO -Z36000Q2B+NDOW; STA OTG6CI LDX
OTG6C iTe NOOW+2,2, BRX DTG6C; BRU OTX
* WRITE e~D DATA 6~eCK
OTG4
BRM OTe, BRU OTX
* FETCH IND~X e~eCK
OTG5
~OB .-1; STB BQN,2J SKG 6IN,ZJ BRU DTG5A
MIN eIN/21 LOA BrP,2l SKG .01 BRU DTG7
OlG8
6RM OTNI BRU DTX
• a6 BACKWARD, NeT FeRWARo
OTG6A ~DA BBP,2J SKR BIN,21 SKE -01 8RU 01G8
* CREATE NEw INDEX
B~eCK
IF V2
eRM orA
£~SF 1
~DA BtA,ZI
E.NDF
SUB -_0081 6RM OTAR
.~NDDW
OTG7
CTG.7A
OTG1B
OTG!
STA
~QU
BRU OTG7A
BBP'~I
*
eRM OTA; STA 8FP,2
$T~ OTA; MIN BIC,21 ~DA BIA,ZJ BRM OTN
~DA DTAJ XMA 61A,21 STA BIC,i} 6RM DPU
eLAB; XMA BBP,2; SKE BIA,2; BRU DTG7S
~OA BIC,2~ STA BFP,2; 6RU DTG3
$T8 6FP,21 ~DA BIC,2; STA BSP,2
aRM OTl, BRU NPUG6
•*
'$SM~'
**
*
THIS CAUSES A RAND8M
BRS 58
•SSMFA
aRM 16li CSAI
iTX
~DA
~OA
**
*
10/~1/65
Fl~E
~De.
T6 BE
DEC~AREO
.0600000061 SKM
AS SEceNDARV MEMBRV
~06000000BI
SKS DRaBITI aRU .-2; STX SMeFIL
eUFFj ADD ,Z000000281 $TA SHeA
SMl'I~;
BRM NTRPB
BUFF, ADD pBON; ETR ADMSK; STA SMORN; BRU NP6Px
10/~1/65
t$WS"
BR$ 8~
** THIS
* SR
*
SWSFA
CHANGE§ THE MeOE SF A SEQUENTIAL FILE TB INPUT
BUTPUT
eRM
leXI SKB DRMBtTI SK8 ORX6ITJ BRM NTRPB
SKi POI 6RU SW5F1
'SAl ETR -(NeT)10000061 ST. FDI21 6RU NPepx
SWSF1 $K6 OR6SITi BRM NTRP6
* MAKE SURE T~E Fl~E IS SPENED eN~Y 8NCE
6T6 06PN51 ~OA FA/2i STA SWSF3; ~ox '~NFILE+3i STX TA LDB DAOMSK
$WSF2 ~DA ErAI~j SKA X1J BRU SWSF91 SKM SWSF3i BRU SWSP9J MIN T
$WSr9 BRX SWSF,J ~DA T, SKE '·Nrl~E+3+1i 6RM NTRPB
~OX BUrF, ~DA OBPN5J MRG BUrelT; STA FDJ2i BRU NP6PX
SWS'3 lR6 0
X.B~eCK ADDR~SS.
~DA 55021
**
*
tOr~R.'I'OrRX'
11/11/65
*
DE~ETE AND READ INDIVIDUA~ INDEX
DE~ETES A SL.BCK eN THE DISC
THESE
* BRS67
*
OFERA
SKN
~DeM8J
8RU *+2, 6RM NTRPBs
2
aRM DTEI BRU NPBPX
C~BI
SLeCKS
ETR OADMSK
~cv
*
REAO AN INDEX e~eCK
SS031 ~TR ADMSK; STA 11 ADD ~NOXWRI SUB
ErR NAOMSKJ SK~ ~Ol 6RM NTRPB; ~DA T
eRM DTHJ ~DB SSO~I ETR DADMSK
87
~DA
~SH
~DA
**
'DFD~'
** BRS 69
*
TH!S
*
OFO~A
DFO~2
OFD~3
D'O~1
OFO~4
•
2
Tl
~DX
-NDXWR; BRM
orc;
MIN OJ 6Ru DiX
12/7/65
OE~ETE~
THE ceNTENTS 8F A OISC FILE
$KN sDeMSI BRU .-2; aRM NTRP6; SRM 181
SKa DRMBIT, BRU *+Zi BRM NTRP8; CAX; 8RM BSEi
$KN BDC,2J 8RM DTU (EXITi)J SKN eIC'~J BRM DTU (EXITS)
~DA ,-1; STA BONlc; ~DA BFP,eJ SKE -0; BRU DFOLl
'XAs ADD ·BX8+NDXW~31 SRU DFD~3
'~ABJ XMA* BIP,2
IF C181; LSH 21 ETR OMSKI ENOF
SKE .0; BRM DiEI ~DA BIP,21 SUB ~1
~TA BIP,ZI SUB .BXa-li SKE BU~Fi BRU D~D~2
~DA BBP,2i SKE ,01 BRU DFD~41 6RU NPB?X
MIN 6IN,21 SRM OTNJ 6RU OTX
$KR elN,21 NCPS ~OA BIA,2J 6RM OTE
~DA eSP,2J BRM DTN
BRM OPUs C~AJ $TA BFP,2; BRU NPUGB
* 'OrCD'
3/20/66
**
NUMBER SF DATA waRDS IN FILE (A) r6 x
•
ADO
~1
T~E
• 6R5 113
aRM 161s SKa DRMBITJ 8RU *.21 6RM NTRPBJ BRM DSS
eXAI ADD =27600000B+6XB+NDXWe2l STA OfCD2; LDX c.NDXW+2
~OA BXO+NDXW-2,2J IF V21 SKE -OJ LOA -255
EbS F 11 ~TR .31761 (NDr; AOM SS03~ BRX DFCD2
~DX SUrF) aRM eSET, ~DA 6FP,2J SKG -01 BRU DFCD3
6RM DTNi MlN BIN,2, BRU DTX
CLAj STA BINJ21 ~DA BBP,2; SKG =O~ BRU NP8PX
~DX FI~E; ~De FA,2, ~SH 2~J ETR DAOMSKI ~SH 2
BRM DTNI MIN 01 6RU OTX
OFCDA
OFCD2
OrCD3
••
•
*
•
'C6R~'
DE~ETE$
THIS
* BRS
CaRrA
12/7/65
A BLeCK OF INF6RMATIBN FRBM A RANDeM FILE
5~
~DA
~DA
~DX
S503, aRM I~II CBAI Loe .070000006, SKM .060000006; BRM NTRpe
5S01, SKu 101 aRU NP6PXJ ~DA 5$02,1 RSH 2~1 DIV -NDOW
BUFFI XABI SKG -0; BRU ceRFl
C6RF2 XABJ SKE BDNI2, 6RU DTG; MIN BDC,2
C8AJ AOD SSOl} SKG ~NDDWI BRU *+Z; LDA eNDDW
CAX, AOD BU~FI ADD ,,36000026; STA CBRF3
CSAI STX TJ sua 11 COpy Ax,B
CBRF3 $T9 NDPW.!J21 eRX CBRF3
ce~FO
ADM SS011 CNAi AOM 5S021 BRU C8RF4
C6RF2A CLA; BRU CBR~2
C6Rr1 LDA S5011 SKG ,NDOW-l; BRU CBRF2AI SAC
ceRF.
CBRF6
CeRF5
*
$K~ BDN,Zj BRU caR'S
~OA* SIP,21 S16* BIP,Z; 6RM OTE
~DA !.lJ STA BDCI~I eTA BDNI~
MIN ele,21 LOA •• NDDW, BRU C6RFO
RSH 23, D!V 'NOXW-21 SKE BtNI21 6RU DTG5
eACi ADD eUFFI ADD -sxe, Axe
XMA 0,2, aRM PTEJ BRU CBRF6
IF .V2
* 'OIS,R','DDLR'
•*
*
T~E$E
121il66
INSERT AND DELETE LeGICAL
R~ceRDS
IN A SEQUENTIAL FILE
OISR
aRM DS$1 BRM DiZl MIN 01 BRU 05e1
*
DDI.R
OOL.R1
ODL.R2
BRM OSSJ BRM DSZI I..DX eIP,21 CXBI L.DA Xl
EAX 1,2 J SKA O/2~ 8RU DDL.R21 BRU DDLRl
aRM OlM, BRlJ DS.X
•* 'OSF','ose','OSS'#'DSl' 12/13/65
** SPACE FBRWARO 6R BACKWARD 1 RECBRD
*
OSF
~RB; CXA; SUB ~IP'2J SKE ~.9xe~NOXW+3J
06'1
DSF2
*
Dse
OSB1
*
BRU DSFl
aRM aS~TI LOA 6FP,2J SKG -01 BRU D$F2; 6RM DTNI 6RU DTX
MIN alP,il LOA. BJP,2; SKA XlI BRR D$F
SK~ .01 6RU OSF+1J SKR BIP,2
~DA
E6F6IT; MRG
~4J
MRG
FI~E;
STA $501; BRU NPBPX
ZRel CXAI SUB 6lP,2J SKE .NOXW+li 8RU DSBl
eRM eSET} ~DA BBP,2J aRM DTNI BRU OTX
$KR aIP,cl NBP, ~OA.* SIP,c; SKG Xis BRU 058+1; BRR DSB
OSS
ENOF
lRel ~DX BUFFI LOB DEV; eXA, ADO ~2; STA 0,2
SKB BurelT; ADO ~NDDW' STA 1/21 eRR DSS
IF .V2
*
OSZ
OSZ1
ZRS, ~DB D~VI $K6 BUTBIT
SKR alP,a, LDA 61P,21 SUB
OSZZ
..
..
..
..
...
~DA*
~OA
~OA
~BxeJ SKG 6U~Fi SRU DSZ2
Blp,2A SKG X1J 8RU OSZ1; 6RR DSZ
6BP,Z, SKG '-01 eRR OSZ
fNOXW.~1 ADM BtP,21 ~DA aBP,2; BRM DTNJ 6RU OTX
fOl~eRt,'oe~eR'
12/7166
$PACE r6 END Br R~CORD (INPUT) eR WRITE END 8F REC6RD (SUTPUT)
eN $EQUENTIAL FILE
OlEaR
~DA
Oe.E6R
6RU TRAP (NeT
..
~11
STA 85021
6RV DFSR
IMP~EMENTED)
*
••
OE~~T~
*DBEBF
REMAINOER eF
6RM DSSJ
~DX
~1~E
6I~,2i
CLA
06EeFl EAX 1,2) SKE 0,21 BRU DBE6Fl
~DB BIP,21 BRM OTM, 6RU NP6PX
•* 'OF$R"'DBSR'
•*
12/7/65
SPAC£ F6RWARQ SR BACKWARD (8)
*
O~SR
~DA
~DA
~DB
~DA
LeGtcA~
REC6ROS
$S021 SKG ~Ol BRU DBSR; LOX BUFF
l,2J $KA EBRelTI SKR SSO~J BRM D~S
DEV, SK6 eurelr, SKR BIP,2
$S02; SKG .. 01 6RU DSXi BRM DSFI SKR S5021
DEVI SKB BurelT; MIN SIP,c; 6RU NPBPX
OFSRl
DGX
~D6
D6SR
oeSRl
~DA SSOil SKG 'OJ 6RU DSXJ 6RM Dse, SKR 55021 8RU OBSRl
6RU
DFSRl
aRM DSSI BRM DSZ
*
**
R~WJND
*
DREW
OREWl
*
DWND
OWNOl
OWN02
OWN03
•
6R WIND, THEN
aRM 05$1
~OA
SPAC~
(9) REceRDS IN BPPBSITE DIRECTt6N
Bep,21 SKG !Ol 6RU DREWl
eTA BON,Z, aRM eSETI 6RU DTGSA
,XAJ AOD -exe-1J SKB BUTBllJ AOD -1; STA BIP,2, SRU DFSR
~DA
~.11
aRM 05$1
~DA
~OA
BFP,21 $KG
~OJ
eRU DWNDl
,.11 $TA BON,2, 6RM BSET, BRU DTG56
CXAI ADD .exe+NDXW.31 STA 6IP,2
LDA* BIP,2~ 5KE ~o~ iRU DWND~
$KR atP,a, NePl eRU DWNDa
MIN 6tF,2; BRU D6SR
ENOF
IF
V3
* eRS SE+5
* SET DISC
BIT MAP
INPUT: SSOl~DISC AODR. 6F X.B~OCK RIGHT SHIFTED 2 PLACES.
SD6MA SKN soeM8J 8RM NTRPB
$KN $SOlJ BRU soaMS; MIN 5D6MB; MIN OJ LOA .~1; STA NBACT
STe NBYPI ~ox $5031 STX ACAI BRU NP8PX
$DBM~
eRM SGETl 6RM MBNCRi BRM BSET (SUFFER ADDR. IN T)
~OA aUFFJ ADD 82?600QOOB+NDXWC+BXBj STA 508M3+1
S06M2 ~DA 55011 CL6; ~SH 2~ STA S501l BRM ~eCBIT (FIND X~B~eCK)
eRU ScaMs (INVA~ID ADDR.)I BRU SDBM12 (BUTSIDE CYLINOER)
E6R .-li ETR TA6~E121 SKE TABLE/2J BRU *+2
eRU SDeM~i STA TAB~E,2
'
sDeM1~ ~DB 55011 LOA TI ADD =6XB; ~PX -NDXWR; BRM OTC
eRM 05T; 6RU .+2, SRU SDBM4
*
REWRITE C~EANED UP XBL6CK IF SWITCH SET >-1
SKN XC~EAN; BRU *+21 6RU SDBM3~1
~DA BUFFs ADO ~Bxei STA $DBM13
*
~DX
~.NOXWR;
C~B
SDBM13J MIN SPSM13; SKG Xli BRX *~3
CXAI SKA ADMSKJ eRU *.2; 6RU SDBM3pl
$r6* SOBM13, MIN SPB M13) BRX *.2
~DA TI AOD =ax~s ~OB 55011 LOX ~NDXWR
eRM OTWI BRM D$T) SRU *+2; MIN SD4
~DA*
S06M3
SOBM7
SOBM6
~ox
~.NOXWC
~TX
~OA NDXWC+6XB,2
-0, 6RU SoeM6
SD6Ml01 BRX SD~M3
$KE,
~DX
~DX
BUFFI bDA NOXWc+exe~2,2J STA SSOl) SKE -0; 8RU SDBM2
MIN 01 BRU S08M11
CLSi LS~ 21 ETR DMSK; STA $SOl
aRM
SCBM_
sceMS
SDBM11
SDBM8
SDBM10J
EeR
eRU
MIN
MIN
~DA
~e'BlTJ BRU SDBM~; BRU SD8M7
~.lJ ETR TAB~E,21 5KE TABLE/~I
SD6M~1 STA TAB~E,2; 6RU SD6M7
XB~RRI 8RU SDBM11
~DERR) BRU SDBM11
aUFFI aRM BPUT, 8RU NPepx
PATA-1
SOBM13 lR~
SDBM10 ZR6
0
6RU *+2
$04+
,R(; 0
ENDF
ENOOSC ass
~ND
0
WRITE
r:AI~URES
31eo
%DENT
* ENTRV P6INTS
ENTRY
ENTRY
ENTRY
ENTRY
ENTRY
ENTRY
E;NTRY
INTRY
ENTRY
~NTRY
ENTRY
~NTRY
ENTRY
ENTRY
~NTRY
ENTRY
ENTRY
~NTRY
ECRBIT QATA
7/02/67
PTAPE
TXC1,TXC2,TXS1/T2J~MICKBUr
FiIME,ED,INTR,IBB,IORW,IeSw,WBE,WBUFF
MTDI,TGET,TREL/TNB,POSWl
BPTE$T,NleDMs,NI6QDS/NFIBDS
pe$~lA,paS~1,peS~2/RSTBUF,DADMSK/RLDMSK
ISOM$,16QOMS,FISOMS,ACTR,AIRWD
6GET,8$ET,epUT,UNIT
XX,XO,Xl,X2,X3,X4,X5,X6,X?
XN1,XN2,XN3,XN4,XN5,XN6,XN7
eUTBIT,CHR6IT,DRMBIT
ORXBIT,OR6BIT
eaRBIT,E8F6IT,ERR6IT,E6TBIT
~1~E,FFL$T/FA,PD/rC,rW
eUFF,DiV,Olu,ePNDEv,BU'S,ADIU,EDIU
IeI,GPW,~PWr,C~S,DCLS3~CB~,leIE
MBN6PN,MONCL$,leH,leRET,ROU
e~K31'INT31IINT33,WRRL3
00100000B
E~FeIT DATA
OO~oooooa
Et'T6IT DATA
004000006
010000006
37777777B
ERRetT DATA
xx
XO
Xl
x2
X3
X4+
X5
)(6
X7
Weoell
DATA
DATA
OATA
OATA
OAT A
OATA
OATA
OATA
DATA
DATA
seF61T DATA
CHRBIT DATA
BUTell DATA
ORM6IT DATA
DRX6IT DATA
OOooooooa
100000QOelXN7 EQU Xl
EQU X2
30000QOOeJXN5 EQU X3
~OOOOOOOBIXN~ EQU X4
500000006;XN3 EQU X5
60000000BIXN2 EQU X6
?OOOOOOoalxN1 EQU X7
100000006
~OOOOOOOBIXN6
004000008
100000006
001000008
04000000B
020000006
OReSlT DATA
010000006
* F1L.e: CBNTRe!. TABLe:S·
IF"
FA
FA
FeB
DATA
0,0,0
~l.SF
1
77000006,17000009,77000006
DATA
ENOF'
SEFA
tEFA1
FW
FO
*
'C
ass
tQU
N~1~~.3;* INOEX
rA+NFI~E
~QU
FA+NFI~E.1
Nrt~E.~* weRD BEING
ass
PACKED BR UNPACKED
ZRB NOiv,ll BRU NDEV.l/11 aRU NDEY+4
ess NFIl.E-3J* OEvtCE NUMBER AND INOICATBRS
IF'
MAKES
Fe;
SLeCK 6R SUBR6UTINE ADDRESS, J6B NUMSER
Jes
Fce
NUMeER 776
UNAVAI~ABLE
DATA 17000008,77000006177000006
EL.SF'
1
,RBJ ZR6; lRB
~NOr
ass NF'I~t.3J* CHAR CSUNT, ORUM
* OEVICt Dl$PATCH~R
OEV
ZRe
0
08
TRAP
6B
7B
QS
78
19
16
1+1+9
4t5B
61+6
58
OB
NDEV
NNOEV
06
~QU
iXT
lR6
eRU
GPWN
GPWN
GPWN
GPWN
NTRAP,l
NTRAP
GPWSI
GPwse
NTRAP
GPWI...P,1
NTRAP
NTRAP
.-OEV
6UF~ER
ADDRESS
USED r6 HeLD OEVCNJ
PAPER TAPE. INPUT
PAPER TAPE eUTPUT
WAS CARD INPUT 2/14/67
MAG TAPE; INPUT
MAG TAPE eUTPUT
CARD PUNCH
CARD PUNCH BINARY
DRUM INPUT
DRUM eUTPUT
RANoeM DRUM rILE
LINE PRINTER eUTPUT
CARD INPUT
CARD INPUT aINARY
.NOEV
F'TCI/l
FTee,1
TEl.ETYPE INPUT
TELETYPE eUTPUT
IF'
ZR6
6RU
!;L,SP
ZRI3
eRU
[NOr:
ijRU
ZRe
V8
TRAP
TRAP
1
%STC,l
eSTe,l
GPWX
GPwIeS
• eUFPER ADDRESSE$
BUr
BUF
IF
·V2
RPT
EQU
DATA
NBUF"A
BUF.ND6W
aUF
e:au
SPECIFIED
SPECIFIED
'NBTHING'
SUBR6UTINE
TE~ETYPE
TE~ETYPE
INPUT
eUTPUT
FI~E
34000B
E;NDR
i:NOF
BUF
aUF
BUF
Bur
BUF
IF
V2
e:au
F'BAOR
tQU
ENOF
OBTep+~
ELSF'
RPT
OATA
1
EQU
NBUPX
BUr
6UF"+NDew
IF"
V2
ENDR
EQU
'EQU
' SF
ENOF
* BUFFER
.-NBUFX
1
*-NBUFA.NBUFX
~ENGTHS AND UNIT C6UNTS
NTAPEl EQU
NTAPE*100000B+40QOQB
NDDWl tQU
NDOW+100000Doe
BUFS DATA
OIRTCNT,PNCNT,O,NTAPE1*TCNT,NTAPE1.rCNT
DATA
CPCNT,CPCNTBINDDW1INDDW1INDDW1,LPCNT/CRCNT,CRCNTB
SEBUF'S EQU
eUPS+NDEV
* ORIVER DISPATCHER
* 8P cepE IS ~u ACT, ReUTINE INDEX
* Xl
stL.
PReVID~S
ZR6
3
3
ceMPuTATIBN SF IBRW,IBSW 6V EO.
0
RTX,l
PNX,l
o
TRAP
~
TRX,l
2
TWX" 1
C:PX,l
't
.4+
C;PXB,l
o
DRMSI
ORHSB
o
ZR6
0
8
L.PX,l
CRX,1
2
CRXB,l
2
* ale DRIVER DISPATCHER
BDEV
OATA
OATA
OATA
OAT A
O,BIS,BIS,SlG,BIS/BlS
TRAP,TRAP
SBI,sae,TRAP,8IG
BIG,BIGIBIG,BfG,BtG,TRAP
* OEVlC~.IN.U$E TAe~ES
* ENTRV SET T6 .1 WHEN
DIU
AOIU
EDIU
.~AOIU
~REE
ass 41 DATA ADIU,ADIUI ass NDEV-6
ess NTAPE.N~INK*2
EQU *
tQU ADIU.EDIU
*
*
•
*
*
*
*
*
..*
*
*
FI~E
BFENtNG DRIVERS
3 ARGUMENT 8PNT MACRB
A(1): DEVICE ACCE$S TIME IN MILbISEC6NDS
A(2): DRIVER ADDR,
A(3): 1,EXEC BNLY ALL8WED T6 6PEN.
MACRS CBNVERTS A(l) T8 c~eCK TICKS. PUTS RESULT IN BP ceDE FIELD.
A(3) IS PUT INTB BIT 2 •
2 ARGUMENT ePNT MACR8
A(1): OEV1CE ACCESS TIME
* A(2): 1.EXEC 8NLV A~LBWED T6 8PEN.
eF'NT
MACRB
ePNDEV NARG
IF
ePNT
e.;L,SF
ePNDEV EQU
A
ePNDEV,,2
A(1)~O/A(2)
1
A(1)*6/100(ANO)77B.A(3)*100B
(.ePNDEV)
A(2)
ENDF
ENOM
ZRe
ePNT
PNWT~O
6PNT
O,TRAP,O
TXWT,MTR6PN,l
TXwT,MTwePN,1
CPWT/NTRPB,l
CPWT,NTRPB,l
34+JORMSPNJl
34/DRMflPN'l
34+"NTRPB,l
OPNT
tlPNT
ePNT
BPNT
SPNT
8PNT
6PNT
eF'NT
8PNDEV
RTWT~O
BPNT
~pWT,l.pePN,l
OPNT
flPNT
EQU
CRWT,NTRPS,1
CRWT,NTRPB,l
.... NDEV
JF
V6
... 'CIT' 12/1e/66
V. VAN V~~AR
... CHARACT~R INPUT AND TEST
... INPUT; CHARACTER re TEST IN A
...
AODR, .FILE Ne •
... R~TURN: N6 SKIP: Ne eeMPAR~, ~EAVE CHAR. IN BUFFER, AND
*
R~TURN C~AR. IN A.
...
SKIP: c,6MPARes. TAKE C~AR. eUT BF BUFFER,
CIT
elTS
P6PD
13400000B,1,l,O/1
STA $5011 $TB SS02J STX iSQ3
~DA*
0
GET FI~E Ne.
SKA
I(NeT)l
CK Fl~~ TyPE
eRU
eUTPUT, NeT VALID
GPW
UTTY
SET RETURN
L,DX
L.DA
$KG
Tl$212
10
CK CHAR
L.OX
T1$51.2
eRM
I.D6
$T9
lIZ
iK6
0,2
-2009
INC, INPUT BUFF PTR TB GET
GET CHAR
CK IF' E;ND er BUFF
YES, Gfl E;NO ARe)UND
CL..A
I.Cy
8
pes CHAR IN
CK IF' EQUAL..
EAX
1.06
$KE
6RU
MIN
6RU
CT%2
S501
.+3
0
FlCI
STA
T
eRR
GPW
STX
T
ADM
T
T
caA
\-ox
BRU
CTI3
ceUNT
Ne
eRU
CTIZ
.teX·l
TEI.ETYPE
CT13
eRU
CTIl
CITl
10
TRPB
SKE
1.06
INPUT CHARS IN BUFF
CHAR
A
T5 CHAR
IN A
C6MPARt;:S S6 TAKE BUT BF BUF'F
PUT THIS CHAR IN A BUT DeNT TAKE eUT BF' BUFF
G6 BACK TB START
SF
surF
eTll
xx
6T6
TTYB.RK,2
ADD
,,6000006
SET F'L..AG, NEED A CHAR,
eXA
CIT1
ADD
CAS
,TTYBRK
eRU
TI0M5
$ET
BRM
iKB
tet
eUTBIT
PReCESS
CK
ACTIVATI6N FeR NEXT INPUT CHAR.
F't~E
IF" eUTPUT
N6.
TRPB
aRM
$KB
CHRBIT
SRU
CIT2
BRU
CIT3
L.DA
T
BRM
F"Il.E
F'W,2
X3
r:C12
STA
i.DA
ADM
C.t.A
L.DB
FW,2
I.CV
8
SK~
5901
1.06
F'O,2
lex+l
BRU
MIN
CK IF
EQUA~
6RU
CI3
CI.,A
STA
swelT
el2
Cl3
01 SKA
~(NeT)lJ
6RU CI11
~D6
SKE ~Ol 6RV FTee; BRU FTCt
eRM letl SKB CHRBITI 8RU C12; SKN
~DA
~DA
~DA
IN A
-1
** 'Clet' 2/3/66
*
cte
P6PO
161000008,1,1,0,1
ctE
STA 58011 STa S502J STX $503
Cl1
C~AR
C12
04TA
[NOr
~DA*
T6
0
BRU
S$WCIT
peR CIT
GPW
\.-0 x
efTZ
VA~ID
Fc,e
SKN
CJT3
YES, NeT
-IBX-1J STB GPW
~C,21 8RU C13
rW,Z, STA TJ BRM GPW
Tl ~DX FILE) STA FW,21 LOA Xi; LDB FO,2; 6RU CIS
SSOli ETR ~3778J STA TI BRU WI2
L.DA XNl
CIS
Cl~
ADM
C~AI
~DA
SKB BurSITI eRU CI~
FW,2J ~C.V 81 STa FW,ci 6RV Iex+l
SSOll Rev 8; ~DA rW,2i Ley BJ STA FW,2, BRU pepXIB
~C,21
~oe
** 'wte t p,
*
wle
paPD
WIE
WI2
**
DEUTSCH
~/13/65
160000006,1/1,0/1
eTA $SOlJ eTA T; STe S$02; STX S$03
~DA* 0; aRM leI; SKB CHRBITJ BRM NTRPB
aRM GPW; ~OB DEVi SKB BUTBIT; BRU PBPxIB
18 E)(IT
lex
WI1
*
WIT
W15
WI~
Wl3
WI?
STA 5$011 BRU P6PX16
aRM WITI 6RU C12+1
~DA TJ
ZRe, SKB eUTBIT; BRU WI3J ~OA FC,2
X71 SKM X21 6RU WI4
XN3s ADM FC,21 C~Ai XMA rW/2i STA Ti BRR WIT
DEV; BRM GPW
TJ ReV 81 ~DX FI~E; bOA FW I 2J ~CV 8; STA FW,2
FC,2; ADO Xls STA rC,2} BRU WI5
Fe/2; ETR X7J ~D6 TI SKE X2i LDB FW,2
STB FW,2J CLA; Lev 81 LOB OEV; BRM GPW
~DX FI~EJ CLAI ~DB FW,2i LeV 8
~OA XN1J ADM FC,2J SKN FC,c; BRU WI1
~DA X31 AOM ~c,21 eRR WIT
~DB
~DA
~DB
~DA
~DA
~DA
** '8 Ie t 12/15/65
* e~e~K lie, K~UOGE V~RSleN
* INPUT: AwNUMBER SF WBRDS, X~lST LeCAT16N
* 6UTPUT: A~lST MEMBRV ~ec. NeT READ INTe.
*
BIB
P6PD
17600000e,l,1,O/1
BI E
ST. 5501, STB $502; STX SSQ3
see
aRM let) SKB CHRBITI BRM
CAXJ MJN SDCI2 (TEMP,)
sIS
CAX; LOA SSOlJ SKG -QJ 9RU 613
sel
~OA* o~
EQU •
(T~MP.)
k5 !,f~_.
~I
CBXJ BRU* aOEv,2
1,a; S~B 0,2, ETR ADM5K; SKG -0; BRU BIG
$KG $S011 BRU •• 2i ~OA 5$011 STA T
ADD c/ai STA BJ4l ~OA T; CNA
espy AX,N; ADD 5$031 ETR AOMSK
iKB aUTBITI BRU 6%61 MRG BIC2; STA 8151 ~DA 6IC11 ADM
l.DA o,~
$TA 0,6; BRX 9141 ~DA TI ADM SS03J ADM- BUFF
,NA, ADM SSOli ~OB D~V; ~DA BUFFI SRU SIS
MRG Bl,31 XMA aX~1 MRG BIC~' STA 815; 6RU 614
l.DA ola
STA 0,6
~DA 0,6
~DA
BI~
S15
816
Blel
sIca
BIe3
e%C4
BIG
BI2
B17
B13
Bl3A
BIt
*
pepxI6
*
**
**
*
*
8I~
STA 0,2
ess 0
~DX
$S03l
~DA
0,61 STA T
iKB CHR61TI BRU 6Il} 6RM GPW
LDX SS031 ~DA* 01 SKA ,717400008; 6RU Bl3A
l.DA Ti $TA 0161 ~OB DEV
MIN SS031 ~DA 5501; SKG ~11 BRU 813; SKR SSOl; BRU 812
MIN 0
LOA
55031
STA
$8011
eRM WITI 6RU S17
SRU PBPxle
5S011 ~DB S502; ~ox S503; SKN TIME; BRR 0
MIN OS MIN ACTRI LDB PACDMB; LDA QUTAB; STA TTIME
LOX pQTli BRU pepOMS
~DA
'151'
2/3/66
THIS RBUTINE IS CA~~EO 6Y 'cle' AND 'W16' TO CHECK THE VA~IDITY
eF THE ~I~E NUMBER AND T6 S~T UP 'FILE', 'BUFF', AND 'DEV.,
INPUT; A-Fl~E Ne.
..* 8UTPUT:
FI~E
BUFF
UNIT
ACTR
a,DEv
ZR8J* FI~E NUM6ER
ZRB;* BUrFFER ADDRESS
ZRe~* UNIT NUMeER
ZReJ* ACTIVATIBN CeUNT
A%RWO
*reI~1
16IC2
IF
V1
DATA iiOQOQS
ENDF
ZRe NDeV+211
6.RU ND~V+311
INPUT r6 SPECIFIED TE~ETYPE
eUTPUT r6 SPECIFIED TELETYPE
*
*leI
ZR81 ErR ADMSKJ STA ~I~EI
* CHECK FeR S~EClrIED TELETYPE
SKG
~771B+NTTYI
SKG
~777B;
SKG
=NFI~E~l;
BRU
IeI~
8RU leIS
• INPUT Te SPECIFIED TE~ETYPE
~OB 181C1
1016
~TR ,7761 STA UNIT} STe DEVJ BRR IaI
1615
SKG 11771S+NTTYJ SKG -1777BI BRM NTRPB
• eUTPUT r6 SPECIFIED TELETYPE
~DB lelC21 BRU 1616
* REGULAR FI~E (NeT SPECIFIED TE~ETYPE)
IF
FCB
telAXe; ~pe FC,2} ~Cy 91 ETR .778, SKE JaBs BRU leI1
1014
Ie12
*
£LSF
1
Axel LOB FAI21 Ley 9; SKE JBBJ BRU lell
ENOF
~DB FO,21 SKB
~DA ~C,21 ETR
CHECK FeR TE~ETYPE
tell
X61 6RU 16111 $T6 DEV
ADMSKi STA SUrFS 8RR 161
6R NBTHING
SKE .7761 BRM NTRP8; 8RU 1612
tetE
CAB
ISIS
eRU
*
ERRBR 6F BUrFER BUSY
1817
SKe X21 BRU NIBOMSi ~DA XN~I ADM FD/~
~DA ,leI8-11 STA GPWI aRM MPPACTi ~OA ERRBITI CLS; BRU GPW2
pe~x
*
**
'INTERRUPT 31'
** INTERRUPT 31. W BU~FER INTERRUPT R6UTINE.
B~K31
ISA
ZRS,* 131/133 SUB.ReUTINE. SET-O WHEN FREE. SET GT 0 WHEN BUSY
lRBJ* SAVE (A)
ZRe;*
ZR6i*
lR6j*
ZR6J*
WeUrF lRO;*
WBE
,RBJ*
WSRRl..3 ZR6;*
ISS
I$X
TNe
WFIL,E
WRRL.3
INTR
wesv
SAVE: (6)
SAVE (X)
TAPE NUMBER
FI~E NUMeER
eUF~E.R ADDRESS
tND 6F WeuFF
SAVE RRL3
ZReJ. SET UP RRL3
,RBI* INTERRUPT R6UTINE AD DR
ZRB,. TEMP ST6RAGE
*tNT31 ZRBi STA
INT33
ISA; 9TB ISSI STX ISX
EQU INT31
INTx
L.DA WRR1..31 XMA RR~3i STA WSRRL3
L.RR31 psr RRL31 ~OA WBUFF; Axe
XMA 6~K31' STA INTRJ aRM. INTR
6RU tNTF (DRBVE DEVICE)
STe WB$V (DEVICE NeT FREE)
~DX WFILEJ LOX FCI2; cepy XA,AX/Bi RSH 15
ETR .116i XXAi ~OB we.SVJ LOX TTNB/2
OIR; BRM EPU
~OA BLK31; SKG -OJ BRU INTU
L.OA WSRR~3, STA RR1..31 l..RR3J per RRL3
INTU
l..OX
tNTF
I.DA ISA, 1.08 1$6;
~DX
ISX; SRI
INT31
LDA XN21 AOM FD,2i MIN ACTR
~OA WRR1..31 Loe WBUFFI SK6 ,~OOOBI ~Cy 6
Rev 61 ErR .776; CAXi SKR RMC,Zi N6P; 6RU INTX
WFl~;J
*
*
* 'GPW' P. DEUTSCH 9/13/65
•* THt$ ReUTIN~ GETS 6R PUTS BNE WBRP eN THE OEVICE. SPECIFIED IN (6),
* IT wt~~ DISMISS THE USER lr THIS IS NeT lMMEDIATE~V peSSlB~E,
* IT TAKES CARE SF sU6ReUTINE FIL~S AS WE~~,
* INPUT: A-r-weRO, a-DEVICE.
* eUTPUT; r-weRD
*
*
GPW
,Rei
cax,
BRU*
D~V,2
* BUFFER
BUSV
NleOM$ 6RM MPPACTJ BRU 16DMS
N16QOS aRM MPPACTJ BRU QTDMS
NrleO$ 6RM MPPACT
FIBPMS ass 0
teOMS ~OA Fl~E' ADD .rD+l100000BJ CAB
QTOMS ~OX .QTli 6RU P6POMS
t6QOM$ ~DX P.QlSl BRU P6PDMS
* SUBR6UTJNE
GPWI6S
fI~E
~DX PACPTR; ~DA P~,2i ETR 177000006
~DX FI~E' CXBJ ~DX FA,c; E~R 0; E6R '32400009; STA* 0,6
ADD ~·1 (SET XO)I $TX 01 ~SH 39; LDX PACPTR; STA PL,2
~DX FI~E; ~DA GPWJ ETR AOMSKj XMA FC,ci ETR X7;
FC,2
~DA TJ LOB 5$02; LDX SS03; SKN TIME; BRR 0; BRU XP6P
ADM
**
RETURN F~eM 1/6 SU6R6UTINE
STA TI ~OA P~,2' ErR ~7700000B' RS~ 15
SKG 10J aRM TRPBJ BRM IBt
~OA FC,21 ~TR ADMSKJ STA GPWI LDX FA,cl
~DX PACPTRI $TA P~/2J STA 01 BRR GPW
* OISC lIe
GPwse ~DX BUFrl MIN SOC,2
GPW$I ass 0
6R$ 41
%eRET
*
~DA*
0,6
NeRMA~ CASE, NeT BUSY
~DX BUFFJ ~OA
GPWN
$T6
* BUFFER EMPTY
GPW5
* NS
GPW7
GPWO
l,Z; SUB 0,2, SKA ADMSK; BRU GPW6
,-1
~D6
swelT
SKE .0, BRU GPW8
'~AGS, START DEVICE
~OA rI~Ei ~DX $5031 ~De OJ SKB =~OOOOB;
~DX DEV, ~OB SE~,21 ~DX BUFr
BRM ~DJ 6RU NFI60S (DReV~ DEVICE)
eRU NleQDS
(CHANNE~
NeT READY.6LK31)
STA* 0
BRU NleDMS (DEVICE NeT READY)
* BUFFER EMPTY aUT F~AG$ T6 REFeRT
* ESR,EOF,ERROR A~WAYSTURN eN X_ IN tFl~E'
GPW8
MIN SUrF, SKA ERRBITI eRu G~W8A; SKA EeRSITI BRU GPW8B
GPWF
~D6
~2'6575318
(1378)
GPW12
CNAJ AOM* BUFF; CNA
* INPUT: A.F~AG 6IT. S-RETURN STATE.
* STATE: O~Ne DISC SPACE ~EFT, -I_DEVICE IN USE, -2-r86 MANY
$T6 11 MRG 'IL~I MRG X~J LOX SS03J LDB 0
SK6 .4000061 STA* 01 CAX; ~DA Fe,2, ~D6 FD,c
MRG X7, SKB eUTBITs EaR X5i STA FC,2
~DA w2QOOOOBJ ~DX PACPTR; BRM IIR; BRR GPW
~DA TJ STA SSOlJ BRU PBPINT
GPW8B ETR e,6RBlTI ~Da .270561346 (13~6)J 6RU GPW12
GPW8A ~OA ~RRBITJ c~aJ BRU GPW12
• BUrFER NeT ~MPTY
GPW6
$KB eUTBtTI 6RU GPW9
Ft~ES 6PEN
GPW2
~DA*
Q,2
sWelT
CGPW6
0,21 STA T, eRR GPW
SKN
6RU
CGPW6A MIN
* OUTPUT, NeT INPUT
GPW9
GPWX
~DA
TI STA* 0,2J MIN 0,2
eRR GPW
*
*
IF
CGPW6
ENDF BEFeRE
V6
~D6
~·1
'CTR~'
sWelT
STS
SKE
SSOl
~GPW6A·l
6RU
o
MIN
BRU
CGPW6A
ENOF
*
**
PVT ReUTINE, TRANSLATES ASC rB 6 BIT SoS CHARS, FILLS
HANDLES MLTPLE BLANKS AND NBRMA~ PRINTER ceNTRe~s
PRINT~R
* aFR
GPW~P
POE
po.1
PD3
I
~OA TI"Cxe~ ~D~ aUFF, SKN POSWI eRU POl
(GET B~ANKS CBUNT)
STA T
~DA 1,,} sue 0,21 SKA ADMSKJ BRU PD3 (ReaM IN BUFFER)
MIN PDSWJ* BUFFER FU~LI BRU GPWD
~DA TJ ·SKG -776; BRU PD4 (PUT CHAR. IN BUFFER)
SUS
~11
STA PDCNTs
C~AI
PD6
PD11
P05
PD1
POlO
PD12
PPEX
PO,
PO~
PDSW
PDCNT
POSW1
PPSW2
peS~1
P~S~2
115S6i BRU •• 21 SRU PD6i SKE =15281 BRU P05 DRIVE IF CR eR LF
CNAJ STA POSWl
CLA) SKE B~K31J 6RU PD7J MIN OJ 6RU P07
SKE 11J16s BRU PDEX; B~U PD6
6RU POlO
SKN PDiW2J 6RU POlal LDA P8SL1Al STA pes~l~ STA PDSW2
~DA TI $KE -1356 (MU~Tt ij~ANK CHARt)1 BRU PD9
~OA !~11 STA PDSW
BRR GPW
$KE -133ei BRU PD2; CNAJ STA PDsw21 6RU POll
~DA Ti R$H 21 ce~y AX,A (CHARACTER NUM6ER)/4
~SH 21 MU~ .3) LOA PRCHRS/2 (~DA
WITH CHR WRD,CMPTE SHIrT)
eex; ~SH. 0,2; ETR ~77000000B (~E~T ADJUST CHAR)
~ox BUFFI STA* 0,21 MIN 0,2 (PUT CHAR IN BUFFER)
SKR PDCNTI BRU PD2J MIN PDSWI MIN PDCNTi BRU PDEX (EXT NeT e~KS)
ZRB
0
·1 WHEN LB6K1NG FeR CHAR, caUNT
lR6
0
ZR8
0
IGN6RE NEXT CHAR
lRB
0
$KIP T8 Tep 6F PAGE
SKIPTB 1
SK~
SPACE
SKIPTB
PRCHRS DATA
DATA
DATA
peS~1A
OATA
1
1
605'1~1'e,53575'14B/74345~206,73403361B
000102C3e,Q40506076,101115966,36131632B
25~122~3B'2425262'e,3031.1'2a,43*4.5~6B
.'5051625/636465666,677071358,765557178
*
*
* 'ED' 6/27/66
•* EXECUTE ORIVER 6R
*
rT1ME
[00
16RW
tOSW
tea
TXC1
TX'2
ceNTRe~
R6UTINE.
EXPECTED WAIT TIME
ZRBi* ORIVER ADDRESS
lRBI* leRD INSTRUCTIBN
lRBj. leso INSTRUCT IBN
ZRB,* REA~ BUFFER AOORES$\ADMSK
DATA TCNT*40000e.~0001BI. BUFFER
DATA 170000009/* 'I~E MARK
~Re~*
C~NTRe~
WaRD
TXSl
T2JFM
~RaJ*
H~T*
ASCW WBRD FReM BUFFER
peT W6RD FeR END BF FILE
TXC2
** INPUT; S-ORlvtR ADDRESS.
* eUTPUT: NB $KJPg CReVE DEVICE
*
SKIP , CHANNE~ NeT READY
2 SKIP
•
*
ED
~
(BLK31 NE 0)
UNSUCCESSFUL SF DEVICE NBT READY
lRBS ST6 EDD
IF
Fca
~ox FI~EI ~OA
E~SF
1
~DX FI~EI ~DA
ENDF
FC,21 Rev
151
ETR
~77Bs
STA UNIT
BPNOEV,21 Rey 151 ~TR ~77BI STA PTIME
aRM eSET, ~De EDDJ SKB ~1?700000B; BRU EDWMP
iRM MPOSCI BRM. EDD; BRU EOF
C~A; SKE e~K31A 6RU EOWIJ ~DA UNITI $TA TNa
~OA T; Rev 9) ~TR ~l~Oe) MRG -216000aJ STA 16RW
MRG ,20061 STA 16SW} LOA TI ETR AOMSKJ STA ree
~OA RR~31 STA WRR~3; LOA BUFFI STA W6UFr
ADO ~2J ~OB DEV; caxi SKS eUTBITi ADO aU~SJ2
ETR AOMSKI STA WBE; ~DA F-I~EI STA WFILE
~DX
FD,c;
FA,21 ETR .77BI STA UNIT
~OA
~ox eU~FI
EDW
Eowe
ED'
EDwI
EPCI
EPWMP
EOWS
~DX
~DA
~DA
BUFFA aRM* EDDJ BRU [owe, BRU EDWS
6LK31J SKG .OJ BRR ED
TI
~RSH
ill CAX; MIN RMC,2
~DX Fl~£1
~De EOCli
1 e~K31
~DA
~ox FI~EI
~DA
MIN
Xc, ADM FO,2J eRR
eRR ED
BRM MPWBi BRU EOw
ETR p77BJ CAX
FC/~I
RSH 151 ETR .77Bl CAX; LOA TTN812
~DB FI~EI bOA ~OOI DtRJ
Ml~
MIN EOI BRU
PTAPE
EOJ
lRB 0
•
*
tCTR~'
EOr
BRM
~PU
SEE PAPER TAPE DRIVER
*
*
10/31/65
~D
~OJ
**
THIS
~ANO~E$
** INPUT;
CTR~
CT~
CT~Z
liB
ceNTRe~
FUNCTl6NS
NUMBER, ADDRESS ~Fl~E NUMBER,
112000006,1,1,0,1
STA SS011 STe SS02i STX $503
~DA* OJ aRM leI
cepy 6A,exl (TR AOMSKJ SKG .NDEV~11 BRU *+2, BRM TRP6
~OA $S011 ETR AOMSK; ~DB 6PNOEV,2J SKB Xl; BRU eTLl
SKG* CT~T,21 SKG ~OJ BRM TRPB; ADD CTLT,2; CAX
~DB DEVI SKB DRM8IT; 8RU *+31 BRH MPWB
A.ceNTRe~
pepo
eRU *+aJ BRM MPOSC
0,21 STA CTLWJ LOX Pl~E
ETR .77777778; XMA CTLW; SKE CT~WI aRM CSF; N6P
~DB CT~WI SKB .~OOOOOOBJ BRU* CTLW
aRM EOI BRU NPBPX; BRU N16QO$J M1N OJ 6RU NI80MS
CT~l
~DX PACPTR; SKN PQU,ZI BRM TRP6; LOX OEVs BRU CTL2
* C6NTR6L DISPATCHER
CTLW
IRe
0
CBNTReL RBUTINE ADDRESS.
~OA
CT~T
CTTO,CTT1,CTT2/CTT3,CTT~,CTT5,CTT6/CTT7
OATA
OATA
CTTS,CTT9,CTT10
** elT 211 MEANS DUMP THE BUrFER FIRST,
* BtT 3.0 MEANS a6 Te ED FIRST.
* BIT 381 MEANS aB r6 CTR~ ROUTINE DIRECT~Y.
eTTO
CTTl
CTT!
CTT3
CTT4
ClTS
CTT6
CTT'
eTTS
DATA 0
EQU CTro
DATA 11 102B PNEBR
~QU eTTO
OATA 6l ~08 NTRAPI 2 MBSRI 2 MFSrj 2 M6SF
-os NTRAPJ 2 MREW
OATA 81 1026 MEaRI 1026 MBSRI 1029 MFSF; 1026 M9SF
1029 MERS) 1026 MREWs 102B HEer; 1026 MERL
If
EQU
Vi
eTTO
crro
EQU
ENDF
IP
DATA
Vi
61
~OB
NTRAP~
409 NTRAPI
408
NTRAP;
~OB
NTRAP
NTRAPJ 406 NTRAP
81 l~OB NTRAP; l~OB NTRAP; 140B NTRAPA 1406 NTRAP
1406 NTRAPJ 140B NTRAPJ '-06 NTRAP, 1408 NTRAP
~OB
CTT9
DATA
CTTS
OATA
CTT9
OATA B} 1406 DBEeRs 1406 D6SRJ 1406 DFSRI 1408 DOLR
1409 DWNOJ 1406 OREWi 140B DISR; 140a DBEBF
E~SF
eTTi0
-as
1
*06 DtEeR~ 40B
DWND, 406 CREW
61
OaSR~
40B OFSR) 408 TRAP
ENDF
iQU eTTO
** 'M6NePN' 10/17/65
*• T~l$ R6UTINg OPENS PHYSICAL FI~ES (BR$ 1)
* INPUT: A-INDEX B~eeK AOOR,SS 6R UNIT.
*
X-DEVICE
• eUTPUT: Azrl~~ Ne.
*
•
FFLIT
X~X
ZROJ.
BLeCK P61NTER,
AVAl~ABLE
'CB
~IiT
*
~DB SS031 ~DA FF~STJ SKG -OJ BRU BPN12
CBPY 8X,BAIB; STe UNIT; $KA ~77740000BJ BRU 6PN2
SKG ~NPEV.li SKG -01 8RM TRP6) STA D~Vi ADD ;DIU' STA DIU
* OPEN NBRMAL fILE
MBN6PN
~DA
~DA
• MAG TAPE
~R$H
IF
~DB
OEV,2, SKA SUTSIT; LDB BUFS,2J STS T
BUFS,21 SKA .4000061 BRU *.2~ BRU BPN7
lSs ETR .776; SKN 5$011 SKG Sp01J aRM TRPB
FeB
SS011 ~TR
,~Sr
1
~De SSOlJ ~SH
8FNi
ePN~
,,7781
STe UNITI
~DA
SS011 ADO. DIUJ STA DIU
151 $T6 UNITI ~SH 91 ADD_ ClUJ STA DIU
ENOF
COA Burs,21 SKA Xli 6RU SPN41 SKN* DIUJ BRU BPN11
~DA OEV,2S ETR -1630000061 ADM DEV
~D9 DEV,~J
LDA 6PNOEV,2i STA ePNOEVI SKG X1i BRU 6PNp
6PN6
6PN8
SPN9
~ox PACPTR; SKN PQU,2; BRM TRPB
iKB SBFBITJ BRU *+2; BRU 6PNB
aRM aG~TJ 6RU BPN12 (NB BUFFER») CXAJ ADD .2; sTA 0,2
ADD 1; ETR ADMSKI STA 1,2
CLA; SlA T
~OA 9PNOEVI SKA ADMSKJ BRU ePN5
~DA FF~STJ STA* OIU; CAX; ~DB DEV; STe FO,2
IF
~OA JaBI
E~$r
~OA X7i
FCB
SKB eUTBlT; BRU •• 21 MRG
1
SKB BUTBlT; ~DA X2
~700B;
MRG =2008, CLe; LSH 15
ENOF
MRG aUFFJ IF .Fce; MRG UNIT; ENDr; STA FC,2; BRU ePN3
ePN5
~oe DEV, XAB; SKA DRMBITi BRU *+3; BRM MPWB
BRU *+21 BRM MPOSCi XAB; BRM* 6PNDEV; BRU SPN13; STA 5501
* ERRBR RETURN
aRM MPPACT; LOX DEV; LDB DEV,ci ~DA BUFF
SKB ~8FBITi BRM epUT; 6RU P6PX
ePN13 eRM MPPACT; BRU OPN9
ePN12 ~OA ,.21 BRU 6PN10
6PN11 ~DA ,.1
6PN10 STA $SOll BRU NPepx
* 6PEN SU6RBUTINE FILE
6PN2
$TA T, ETR ADMs'KI XMA T; ~D.X FF~ST
~TR .10100000B~ AOD INOEV+51 STA FD,Z
~oe X7, SKA BurBIT, ~D6 X2~ STB FC,2
IF
PCB
6PN3
~OA T; MRG UNIT} XMA FA,2J EaR Xl
E~SF
1
ePN3
~oe JBB; ~SH 39J MRG TJ XMA rA,21 EBR Xl
£NDF
XMA FF~ST; ETR ADMSKJ STA 5S011 MIN OJ BRU PBPX
*
**
~pePN
*
*
~ReJ
C~BJ
6PgN PRINTER, INITIA~IZE SWITCHES.
PRTI BRU 8PN11; LDB pe5~lA; STB peS~l
STa POSW1, STe POSW2J 8RR LP6PN
'MeNc~S"tIaH'
10/16/65
..*
THESE R6UTINE$
* 6RS 2
MeNC~S
• BRS 8
Ie~
I~l
C~BSE
p.~YStCAL
FILES (BRS 2/BRS 8)
aRM CLSI BRU P6PX
IF
FeB
~OB
$KM
JeB; LSH
39J LOB -7700000Bl
FC.Nrl~E/21
~DX ,.NFILE
=.NFI~E
6RU 1HZ; CXAI ADO
~,-·--'~'--t
~~"··~··'-De-,.Jaa-l-~t;~-··3'T 1.:.tJB .--1 '1100'00061L.D)( · ••N' I LE
I t-J 1
$1(M~A+Nf'·lt.;tl ~J 5RU t·W!~t·'·exAl·'A1)!r- !'NrTL.E
··eN~
6RM CLSJ BRU- IeH
IH2
1~2
**
IF
V5
6RX JH11 LOX JeSI
tL.iF"
1
~OA
TTN6,21
~TR
~77BI
STA TTN6,Z, BRU PBPX
eRX IH1, BRU po.px
ENOF
DUMP THE BUFFtR IF NECESSARY
.. INPUT' a-OEvICE,
CSF
ZRe, SKB svretTI SK8 CHRBITJ BRU C6F2
* eUTPUT
*
Fl~EI
BUT NeT CMARACTER BRIENTED.
~OA Fe,2; ErR X1, SKE X21 6RU
eUTPUT FI~E WITH CHARACTERS IN FW,
RSH 181 ~oe FW,2J
AX,BAI
carl
cepy
8/~' $T" T
~ox FI~EI ~DA Fe,!1
I.Cy
CBF1; 8RU C8F2
LOS =27657537B (1378)
ETR .7777777S1 MRG X21 STA FC,Z
DEVs BRM GPW; ~OA FI~EI aRM leI
CBF2
eSpy BA,ex; ETR ADMSK; SKG -NOEV-1J BRU *+2; BRR car
$KB ORMB1T~ BRU CBF31 SKB eUTBIT; BRU CBF~
C6F5
MIN CBFI BRR car
* 6UTPUT FlbE. CHECK FeR DATA IN BUFFER.
ce'- ~DB DEV,21 SK8 S6FBITJ 6RU *.21 eRU ca,s
LOA. BUrFs SUB BUFF.; SKG -2J BRU CBF5
eRU GPWO
* DISC 'I\.,E
CBrl
~DX aUFrl ~DA 60C,2; SK6 BurelT; SKG •• 11 8RU CBFS
~RM BSETI BRM MPOSC
~oe
*
**
BNE PHY6ICA~ FI~E
NUMBER.
C~S
ZR6; ETR AOM$K; $KG, 12} BRR C~S; BRM leI
aRM CBFJ BRU C~S31 SKB DRMBIT; 6RU D.RMC~$
C~$4
~ox DEV; ~OA BUF$,21 ~DB DEV,2; $KA -4000061 BRU C~S5
C~$6
~OA ~~1; STA DIU,21 ~DA BUFFI SKe SBFBITI BRM SPUT
C~S3
~ox FI~EI CLA; STA FC,2; ~OA FF~STi MRG Xl; STA FA,2
STX Fr~ST; eRR c~s
* MAG TAPE
T~I$
ReUTINE
c~eSES
IF
Fee
tl.SF
1
* INPUTI
C~$5
C~S5
A~FI~E
~Ox FI~E'
~Ox Ft~EI
~OA
FA,!; ETR -77BI STA UNIT
~DA
FC,2, ReY 15; ETR ;176" STA UNIT
E,NOF
* DISC
~ox
DEV; AOD DIu,2; SUB
~DIU;
~oa
OEV,2; CAX; BRU CLS6
DRMCLS. BRM MPpSC; BRU DC~S4
OC~S3
SRM MPPACT; BRU CL$4
*
** tROut 6/30/66
** READ DEVICE AND UNIT
*
ROU
BRM leI; C6AJ ETR ADMSKJ STA SS03; SKG
RDU2
~DA UNIT; STA SS01J BRU pepx
ROU1
IF
FCB
1.0A FA,2
RDUl
e:I.SF ,
1
~DA FC,2J ReV 15
~NDF
~TR
*
**
*
~'781
W BUFFER BRS'S
BRU RDU2+1
-NDEV~l;
BRU RDU1
* TURN BFF RUN. AWAY TAPE
CAL~ED BY fABT' AND PU
* BRS 114
MTDI
*
*
~BCK
BRS
TGET
C~A; SKE B~K311 SKN
~DX WFI~E; LOA PD,Zi
~OA ,T~KI $1A e~K31;
TAPE
118
$KN PQU,21 8RM TR?6; SKG -NTAPE.ll SKG •• 1; aRM TRPB
tAX; S~N TJNB,21 6RU
~OA J6S1 STA TJNB,2J
TGET1 ~OA TJNB,2; SKE Je6J
UN~eCK TAPE
*
*
PQU,2; BRM TRPB; DISW
SKA X2; BRU *+2; 6RU P6PX
~OA .p,epXl STA* 3181 eRR 31B
TGETl
MIN OJ 6RU P6PX
6RU P6PXl BRU TGETl-2
BRS lt9
iKN PQU,2; BRM TRPB~ SKG =NTAPE.1J SKG =.1; BRM TRPB
CAXJ LDA ~pl) STA TJN6,21 6RU P6PX
TRE~
*
*
** BUFFER
MANIPU~ATleN ReUTINES
RSTBU' ZR6J CXAJ ETR A.DMSKJ ADD -2; STA 0,21 srA l,al eRR RST6UF
*
BGET
*
*
* PUT
B$ET
*
BPUT
ZRSI LOA FeWRO, $KG 101 BRR eGETI MIN iGET
,N6ur·11 Neo NBUF~lJ E8R X2; ReV N6UP.l; Ley 0,2
$TA FBWRD; ~DX aUF,2; STX aUF~J eRR SGET
~DX
REA~
lR6J
~Cy
eUPF£R ADOR. IN A ANO T
cepy XA,B, RSH 111 ~DA
11; $TA T; BRR 6$E1
RR~31
ETR .776
ZR6; ETR ADMSKI LOX ,.NBUFl SKE BUF+NBUF,2, BRX .-1
~oe
,11
~S~
47/2
MRG FBWRDI STA FeWRDI BRR BPur
*
**
6RS 6E+17
TEST FeR ~AST BUFFER FREE
CKBUF COA .40000009s SKAF6WRDI 6RV P6PXi 6RM TRAPS
*
*
*
If
* BRS 8E.7
*
V6
SREAK paINT TEST
SKIPS IS BREAK PBINT SWITCH IS.
* INPUT; X-SWITCH NUMBER.
BPT~$T
DeWN~
&KN PQU/21 aRM TRP6J ~DX S503
=10008; RSH 0/21 XMA BPT~I ETR .777770008
ADM BPT2
SPT; MIN OJ BRU pepx
~OA
BPT2
*
*
*
*
**
tNOF
ENTRY PBINTS
~NTRY
tNTRY
ENTRY
,NTRV
~NTRY
DBIA,DeeA/~A$AISASA,DwlA,DweA
OTX$111DC~,IDMRET,IDRS,I0M2
O~O~IDFRX,soeM/SWSF/OFCD/DFERISSMF
l,DC~lICBRF
NDC~/DTH/OTP
DRQ,DRQU,EOCL,DTXS2
10M,DeWBlT
* ENTRIES (FRBM MDBG)
ENTRY
SMIrI~,sMeAISMDRNlfBWRO/SMeFJ~,FBADRIIXC
fNTRY
6xe,BBP,BFP'~IN,aIC/aDNIBDClaIPIBIA
DeWBIT OATA
~00000008
* ORQ MAP
*
weRO 0: DISC AODR.
* W~RO 1: O.1~FI~E Ne. S-23,C6RE ADDR,
*
weRD 2; O.R/W
1~5"TIME
6.8~INT. R6UTINE
9-23=WBRD COUNT
*
weRD 2 NEGATIVE FeR WRITE.
DRG
ess NORQ*3
ORQU
~QU *
ENTRY
~NTRY
*
*
**
'~AS"'SAS'
10/18/65
** THIS ReUTINE
*
LAS
P8PO
IMP~EMENTS
THE LeAD AND ST6RE r6 SECBNDARV MEM6RV.
l~~OOOOOe'1,l,O,1
~SM
LASA
aRM MPOSCJ BRU
*
SAS
SASA
pePD
147000009,1,1,0,1
aRM MPPSCS BRU SSM
** '10M' ~/16/66
** THIS IS THE DRUM
*
NOel.
,RS)* COUNT
EDCI.
IDCl.
IOC~1
INTERRUPT R6UTINE FeR
SF DRUM CBMMANDS IN
ZROI* tURRENT £NO OF lIST
IF V'e
AL~
DRUM lIB
~IST
ZR81* CURRENT INTERRUPT P6lNTER
lRe;. CURRENT C.SMMAND EXE,CUTING PBINTER.
IDMRET ZRBi. eRR/SRI RETURN SWITCH
tORS
,R6J* SAVE REGISTERS BNE TIME SWITCH.
INT33
ICW031 eRM
IPW033 tQU
IOW031
6;NDF
RI,..OMSK DATA
DAOMSI< DATA
DRMTRV ZR8;*
10SA
IPse
IDSX
NDISCS*20000B-l REAL DISC ADDR~SS MASK
DISC ADDRESS MASK RIGHT SHIFTED 2
TRY-AGAIN ceuNTOBWN
NDISCS.32*64*~~1
lROJ* SAVE (A)
IReJ* SAVE (6)
,ReI*'
SAVE (X)
*INTN6P ZR6J BRR INTN6P
lOT
OATA INTNep,IDR/IDP/ID~'ID8
******************INSERT NEW INTERRUPT ReUTINE HERE************.***_**
10M
~Re
0
QRT) BRU .,1J OET; BRU 1071 OCT; BRU 107
(ERR8R CHECK)
IOSW1 6RU
t03
ALERT DISK BR 6RU I03
por*
~eM*
IDE2
6RU
IOCL.
100008
*
DISK ADDRESS
ALERT CHNL
lIB caNTRe~ EBM
IOEl
104
105
106
IDO
101
ID2
ID3
lOSAV
ID7
lOR
peT
JDCADO
ceRE ADDRESS
aRU.
R/W eue
aRM IOSAV; SKR NoeLl NSP 0
(SAVE REG"DECR. ceMMANO CeUNT)
~DA IDCLI ADD .31 SKE .ORQUJ BRU •• 21 ~DA .DRQ; XMA JOel (NXT CMD
XMA IOCL1; SKG ~.11 6RU 105 (IDC~l IS EXECUTING,SKIP TB PBST PR8C
tAX; LOA ll21 ~RSH 16, STA 1001
(FILE NUMBER)
C~A; ~$H 5J XXAJ SKR RMC,2; NBP 0 (BUMP PAGE leeK)
CAXS LOA 2121 ~R$~ 18; ErR -316; CNA
C~AJ LSM 3; cepv AX,XBI BRM* IDT,2
(XEQ INTRPT ReUTINE)
~DA FNDTRV~1; STA DRMTRV
(DRUM ERR6R CBUNTER)
~OA IDC~I $KN NDC~, 6RU 106J BRU 102 (SETUP NXT CMND eR WINDUP)
iTA IDCLJ CAXi ~OA 1,21 ~RSH 1~ (SETUP R6UTINE,GET ceRE AORS)
ETR ;31 $TA 1001
(SAVE Twa HIGH BROER 6ITS)
~OA ?I~} LRSH 101 STa IDCADOJ ETR -3781 ADD 1002 (GENERATE liB)
iKN 2121 ADD IOOll STA 10E2
(STeRE E6M)
~DA 10011 c~e; ~SH 51 ADM IDE2
(ADD r6 E8M)
~DA IDSW1A; STA IOSWl
(SET SWITCH T6 XEG caMMANDS)
~OA 10051 $KN 2,2; AOD ID06J STA 10E1 (MAKE READ/WRITE E8M)
~OA IDC~l' SKG ~.1J eRU 10SW1
(EXIT If CMND ACTIVE)
SKN IDC~" eRU rOll ~DA IDWD311 STA 316
~DA IOSAI boa 10S81 ~DX XOSXI MIN IDRS
(RESTBRE REGS,)
$KN IDMRETJ SKR tDMRETI SRI 10M; BRR 10M (INTRPT 6R SueR RETURN)
~DA IDSW1Bl STA IDSW11 BRU 100
(~IST EMPTY,DBNT XEQ ANVMBRE)
eRM IO~AVI LOA •• 1; 6RU 10. (SETUP T6 INDICATE Ne CMND EXECUTING)
,ReI SKN IORS} SKR tDRSI BRR IDSAV (SAVE eN~v BNCE)
$TA IOSAj STe IOSSI STX IOSXA BRR IDiAV
SKN IDC~l~ BRU .*2; 6RU 103; BRM IDER; DET; MIN ORMERRI OCT
MIN CHNERRs SKR DRMTRYi BRU *+3; MJN DRUERR, BRU IDSWl
MIN NDC~J aRM ID$AV; ~OA -.1; XMA IDC~l; BRU 106
ZR6s 8RM 10'
(CHECK DISK ERRBRS)
~DA XN21 ADM FO l 21 M%N ACTRJ ~DA FC,ZJ cex
IF
C181
ADO p2
;~SF
AOD
ENOr
,1
1
~OB ~3777Bl SKM 112l 6RR lOR
~DA 1121 ~RSH 111 ETR !31BI iTA 1001
~DA
~71
~SH
111 CAX
(PAGE NUMBER)
DIR; EeM 214006; peT 1001
IF
C181
~O. ·2,2; ADD NDOW,21 STA
ELSF'
1
~DA wl,2; AOM 012
(SET
RELABE~LING)
~112
~NDF
E6M ~l~OOBJ peT RRL3 (ADD 1ST BFR WRD re CNT)
EIR} 8RR lOR
tOP
lRBJ BRM IDFJ ~DA ~.OBBI AOM FD,2J BRR lOP (CK OK ERR,MRK BFR)
lOr
ZRB; ~DX ID01; SKN DRMTRYi BRR IDr (RETURN IF NeT UNREC6VRO ER)
~OA FD,21 MRG X_, STA FDI2l BRR IDF
(MARK ERROR F~AG)
* INT. RBUTIN; FeR NaN.FILE DISC lIe. 6RS BE+l1SE+2.
lOB
ZReJ LOX 10011 ~OA X2; EBR TTNB,2J STA TTN6,2
~DA ~2000006; $KN DRMTRYI LDA :1000008 (N6 ERRBRS)
AOM TTNB,2i MIN ACTRI BRR lOB
IDMa
ZRBJ SKN tOC~1' eRU IOM22
~TA SLK31J LOA IPWD33; STA 3361 CLAJ XMA B~K311 aRI IDM2
IDM22 OCT; BRU *+41 DETI BRU *.2; SRI 10M2
MIN IOMRET; BRM 10M; BRU 10M2+1
* ReuTtN~ T6 SAVE D1SC ADDRESS BF ERR6R
tOER
IRe, STA IDER31 LDA* IPC~ll STA* IDER11 MIN IDERl
~DA IDERZEI SKE fDER1; BRU *.3; ~OA ~IDER2
iTA ID~Rll LOA lOER3; eRR IDER
IOER1 ZRe IDER2
IOER2 ass 10
IOERZE ZR6 *
tO~R3
ZR6 0
JOOl
Z.R~
ID02
tSM
1003.
1005
DATA
E6M
ID06
QATA
ICSW1A ~eM
tDSW1S ijRU
o
17?006
.. 200e
36668
.10'+08
100269
t03
WeRKING CEI,..L
lIe CeNTRel. EeM
READ DIFFERENCE
WRITE EBM
READ DIFFERENCE
A~ERT DISK
IDe400 ZR6
o
***********-*****************************************************'*****-
*
** 'OTP',tDTH'
**
GENtRA~~Y USEPU~
*
DTXS1
DTXS2
DRUM RBUTINES
lRel* CeMMAND ceUNT
ZR6,* ~A$T C6MMANO Lee
** RES~T ceMMAND COUNT
OTP' ZR(;J LOA •• 11 $TA QTXS1J
* INITtA~lZE ceRE ADDRESS
OTM
•
OWl
DWIA
owe
DweA
oal
oatA
oee
OSSA
....
*
•*
orp
ZRBI RSH 111 STe TJ
MU~
~DA RR~21 ~DB RR~lJ
~DB T; ~Cy 11s STA
LCY 6,21 ETR =778
.3, C8X
Ti BRR OTH
P6PO
14.o0000e,l,1,o,1
aRM MPDSCJ 8RU oxw
pe~D
145000006,1,1,0,1
eRM MPOSC; BRU DeW
pePD
142000008/1,1/0,1
aRM TRPB
P6PD
14300000a,t,1,O,1
BRM TRPB
DISC. 6R$'6
BRS 5S
SSMF
~RM
.. BRS 59
ceRr
SRM
OFOLt
SKN
* BRS 66
.. 8R$ 61
OF"ER
SKN
BRS a~
*
SWSP
*
BRR
$KN
.. SRS 113
DFCD
MPDSCI
8RU
C9RFA
EXECli aRM TRAPBI 8RM MPDSCI LOA 5$01; BRU
PQU,2, 6RM TRP6; BRM MPD$C, LOA 5.5011
BRM MPt.)SCJ LOA 55011
BRS 8'1
DFRX
MPDSCI LDA 5501 ; BRU SSMF'A
aRM
8RU
SWSFA
PQU,2J aRM TRPB 6RM MPOSCI 6RU DFRXA
MPOSC.;
LDA SS01,; BRU Dr:CDA
8RU
DrD~A
DFERA
*
6RS BE;+S
SD8M
SKN PQU,2J BRM TRPBJ BRM HPOSC; LDA SSOll BRU SD6MA
E.ND
3MOBG %DENT
* VER$I5N 12
**
SYSTEM
7/02/67
6/18/67
f~AGSI
ePDS, PARAMETERS, AND MACRBS
*
* ASSEMeL.Y FLAGS
CRXF'
PNXF'
l..PXF
RELC~N
940M
ARMF
Vl
va
V3
V4
ve
~QU
EQU
EQU
EQU
EQU
EQU
e:QU
EQU
EQU
EQU
E;QU
VI>
V7
tQU
EQU
va
F'CB
C181
Eau
e:au
EQU
* 6PO$
seRS epo
e~D
TSN
CKN
epo
CKF
L.RRl
L.RR2
L,RR3
*
apo
epo
ePD
aPD
IF
PF'T
(N6 CARD READER)
1 (PAPER TAPE PUNC~
-1 (N6 ~INE PRINTER)
81 (e~D DRUM CHANNE~'
-1 (81 V6R BERKE~EYI 1 FeR 940)
1
(ARMING r-EATURE)
1 (VERS16N 1.85pl)
1
(VERSlBN 1-85-2)
1
(v~RsleN 1.85-3)
1
(VE.RSleN 1.85-4)
1
(VERSIBN 1.85.5)
1
(VERSI6N 1.85~6)
1
(VERSI6N 1.85-7)
1
(RE~ABE~ED VERSleN)
1
(FeB CHANGES)
1
(1.81 ceHPATIBLE rILES)
1;3000QOe,1,1
002220006,2
002201006/2
00220200e,2
00220~OOB,~
00221000612
00221400S12
V5
SYSTEM MeDE 6RS
GB FReM N6RMAL T6 MBNITBR
TURN eN THE CLeeK
TURN erF TH~ c~eCK
~eAD RELABEL~lNG REGISTER
~eAD RELAB£L~ING REGISTER
~eAO RELABEL~tNG REGISTER
C6MMAND$
MACR8
DATA
40140606
ENDM
MACRB
~NO
DATA
SKIP IF NB PRINTER ERRBR
PRINT~R
EPT
.1
40110609
err
PAGE TEST
MBDE
1
2
3
PRT
ENDM
MACR6
DATA
ENDM
SKIPT8 MACRfl
DATA
E;NDM
SPACE
MACR8
CATA
PRINT
ENOM
..•
Z10~60e+D(1)*10008
o
2106606+0(1)*10008
D
DATA
242060e
21S200e
D( 1 )
iNDH
"PO
0401,+0008,2
FeT
CAT
D
MACRe
OAT A
SKIP IF PRINTER READY
1+0120606
ALERT INTER~ACEI 1 CHAR. PER weRD
ARM 1311 DIs,eNNECT WHEN
TRANSMISSI8N IS ceMP~ETE.
6REAKPBINT TEST
BPT
aPD
040200006/2
ENDF
** x/e
TTYS
TTYSK$
[eD
AL,R
RRF'
WRF'
RIN
IBSPE
lBROE:
RSR
RSE
CiTe.:
!8SDW
ISRDW
AL.O
OSR
ORT
otVIC~ ~PD'S
MACROJ DATA 20i777776i ENDM
~QU
6PD
240770006
0060000081111
ePD
00610026B,~
ePD
S?O
00602226812
epo
£QU
EQU
ALERT RAD
READ RAD
WRITE RAP
RAD IBSD
006022666,2
006162006,2
006172006
006140006
MACRe; SKS* 100268, ENOM
MACRe, SKS* 11026BI ~NOM
MACRel SKS* 1100061 E,NDM
£QU
2142006.
EQU
2140006
6PD
BPD
ePD
00210046aJ~
00202626B,2
04010026812
ALERT DISC
DISC READ
DISC READY TEST
Dt;T
OCT
*
**
BE
SPO
8FO
FARAMETERS
~QU
~QU
W BUr~ER
RTCNT ~QU
PNCNT ~QU
CRCNT ~QU
CRCNTB ~QU
NFep
*
cpeNT
tQU
CPCNTB EQU
NTAPE
EQU
01+0110266,2
01+011000612
DISC ERRBR TEST
DISC CHANNEL ERRBR TEST
123
~AST BERKE~EY 6RSt
NUMB~R e~ SYSPOPS
4~B
DEVICE PARAMETER$
64
1+0
~O
40
~o
40
2
NI..INK
EQU
0
~PCNT
iQU
13Z
TeNT
RTWT
PNWT
CRWT
CPWT
TXWT
~PWT
NTRTRY
NiWTRY
*
Ft~E
NFI~E
EQU
EQU
tQU
~QU
~QU
EQU
iQU
199
RTCNT*40/3
PNCNT*400/6
300
150
20*TCNT/l0
133
10
3
PARAMETERS
EQU
40
~QU
~QU
MeUrX ;GU
3~OOOOOOB
Dee
~QU
004000006
• TTY PARAMETERS
NTTY
EQU 32 NUMBER 6' rTYS
NTTS
EQU
NTTY.N~INK
NL,TTC EQU
0
NTTVC ~QU
10
TTY£WM EQU
20
AHa
~QU
40000B
AlB
EQU
100000e
APB
~QU
loooooooe
IN USE.
PAPER TAPE READER BUFFER LENGTH
PAPER TAPE PVNCH BUFrER ~ENGTH
CARD READER BUFFER LENGTH
CARD PUNCH BUFFER LENGTH
NUMBER SF MAG TAPE UNITS
~ENGTH SF MAG TAPE BUFFER
~lNE PRINTER BUFFER ~ENGTH
PAPER TA~E READ TIME
PAPER TAPE PUNCH TIME
CARO READ TIME
CARD PUNCH TIME
MAG TAPE TIME
I..,INE PRINT TIME
NUMSgR 6r REREADS
NUMBER 6F REWRITES
NUMBER Sf FI~ES
FBWRD FeR EXEC B~eCK
PRertcTED
TeTA~
FI~E
BUSY BIT
TTY eUFFERS
NUMBER BF CHARS IN TTY eU~FER
TTY EAR~Y WARNING (2 SEC)
ACCEPT MESSAGE BIT
ACCEPT INPUT BIT
ACCEPT PRINTER ~INK BIT
AK6
8RB
SPB
l~e
e~B
* PAC
EQU
a000006
£QU
20000008
10000008
~QU
<
tQU
tou
~OOOOOQB
~oooooa
ACCEPT KEYBBARD ~INK BIT
8·LEVE~ INPUT 6IT
8..~EVEL OUTPUT BIT
INPUT ~INK BIT
eUTPUT LINK BIT
PAR.METER$
NSQU
E,QU 12 NUMBER SF C~eCK CYC~ES IN SH6RT QUANTUM.
NFQU
EQU
~6
FULL QUANTUM SIZE
NPAC
tQU
1~4
NUMBER BV PACT S~6TS
NPPAR tQU lO ~ENGTH SF PACT ENTRY
* JaB AND MEMeRY PARAMETERS
N~e81
~QU
32
NUMB~R Bf JeBS wITH8UT P.U.
NJee EQU
NJeB~+l
NUM8~R 6r JeBS
UMSZ
EQU
15
INITIA~ MACHINE SIZE
NM£M
~QU 32
NUMBER SF PAGES
NSMEM tQU 7
NUMBER eF PAGES USED BY SYSTEM
NCMEM EQU
606
ceMMBN PARr ~F USER MACHINE
N$MT
EQU
1006
SIZE BF $MT
NUMEM ;QU 100B.NCM~M
NUMBER SF PRIVATE USER PAGES
NPUQ
~QU 16
NUMBER aF PUCT ENTRIES
* RAO AND SWAPPING PARAMETERS
NROQ
~QU
20
MUST BE GT USER'S PA~Es*a
NRTRY fQU
1
Ne. SF REAO TRIES FeR RAO.
Ne. BF RADS
NRAO
~QU
~
NSEC
EQU
2*NRAO
~2N$EC ~QU
1
NS6NO ,au
18
NUMB~R eF 16K BANDS RESERVED FeR SWAPPING
NSSP iQU
~oooa
~eC. SF 1ST SWAPPING AREA. MUST eE A
MU~TIP~E SF 1000e.
*
NSAM
EQU 16 SIZE SF SWAPPER AsseCIATlvE MEM8RV
* DISC PARAMETERS
NOTRY EQU
4
NUMBER eF READ TRIES FBR DISC.
NORQ EQU
30
Net BF Jess IN DtSC QUEUE.
NOlSC$ EQU
32
NPes
MAXP
MINP
TAe~EN
TAe~E
IF
tQU
NOtSCS~32
20J g~SF 11NP6S
NPeS/2*2006.~1*200B
tQU
NP~S/2*2*NDISCS*32.23
~QU
EQU
gQU -NPe$/2*200B+32*200B
~OJ
ENDF
EQU TAe~~N/2~
PARAMETERS
NBUFX ~QU
3
NUMBER eF BUFFERS IN THE EXEC BLeCK
N6UF
E,QU
NBUFX
T6T Ab NUMBER SF DISC BUFFERS.
NDDW
EQU
255
~ENGTH SF DATA BLeCK
BIN
iQU
NDDW+2
lNOEX 6~eCK NUMBER
BIC
iQU
NODw+3
INDEX CHANGEO P~AG
BON
EQU
NDOW*4
DATA BLeCK NUMBER
eoe
EQU
NDDw+5
CHANGED OATA F~AG
SIP
~QU
NDOW.6
INOEX BLeCK paINTER
BIA
EQU
NDOW+7
INDEX BLeCK DRUM ADDRESS
NOXW
EQU
124
~ENGTH Bt INDEX BLeCK
IF
C1S1
NOXWC tQU
18
£~SF llNOXWC EQU NDXW,
NQXWCR EQU
NDXWC+l
NOXWR tQ0
128·
NUMBER eF W6ROS T8 READ/WRITE
NDBW
EQU
NDDW+8*NOXWR
LENGTH eF DISC SUFFER
NOBS
£QU
NBUr*NOBW
SIZE BF BUFrER AREA
exe
EQU
NOBW.NDXWR
tNOEX aLeCK BRIGIN REL Te BUFF
SSP
~QU
axe.Noxwwl
BACKWARD CHAtN weRD
BfP
EQU
Bxe+NDXW.2
rBRWARD CHAIN WBRD
IXC
EQU
6xe.NOXW
INDEX SLeeK CHECK WBRD
* T$ a~eCK MAP
OeTep tQU 37177B.NOBS·5·1·17~1 1ST WBRD AFTER PRSYMS
SMe~t~ EQU
OBT6P
SEC8NOARY MEM6RY eUTPUT FI~E
SMlrl~ EQU
DBTBP+l
SEC8NDARY HEMBRY INPUT FILE
5MBA
eQU
OBTep+2
SECSNDARY MEMBRY BUFFER ADORESS
SHORN £QU
OBTep+3
SECBNDARY MEM5RY BDN ADDRESS
FeWRD EQU
DBTBP+4
eUFFtR AVAI~ABI~TY BIT weRD
RMAP
EQU
OBTep.s
RAO BIT MAP rBR Fl~ES AND SWAPP-ING
pe
tQU
OBTep+6
TAe~EN
* BUFF£R
PX
~QU
PB+8
PPB
EQU
PX.S
NreRK EQU
PP6+1
FSAQR ~QU
DBTep+5+1+17+1
* M6NtTOR AND EXEC ~eCATI~N§
RAW
~QU
100B
CAW
EQU
4~OOOB
PBINTER re P6 CHAIN
NUMBER Br reRKS CBUNTER
FIRST SUFFER ADDRESS
RAO AODR~SS BF W
ceRE ADDRESS SF W
DAW
RAOSC
CADSC
OAOSC
eASET
o
;QU
EQU
o
tQU
EQU
3008
gQU
'+00006
500006
DASET E.;QU
DAEXEC ~QU
RAEXEC EQU
340B
100B
6006
* HAeRes
A
B
AS
8A
ex
X6
E
XA
P;QU
('!
4+
~QU
206
EQU
£QU
CBPY
[QU
MACRft
t.
M
",08
1008
a006
4006
10006
200000Qoe
i,;QU
e:QU
I<
lOB
EQU
EQU
AX
x
1
e:au
Eau
N
f;,GHJ
o
o
EQU
K
I.:+O(M)
NARG
EQU
RPT
1
EQU
£NOR
DATA
ENDM
tF
MACRB
DISC ADDRESS 6F W
RAD ADDR~SS SF DISC
CBRE ADDRESS ep DISC
OI$C ADDRESS 6F DISC
C.6RE ADDRESS Br SET
Olse ADDRE$S e~ SET
DISC ADDRESS BF EXEC
RAD ADDRESS 6F EXEC
M+l
ij,600000B+L,
ARHF
AIRJ peT 0(1)1 ~NOM
E~SF
1
ARMl
MACRBI ENOM
ENDF
ENTRY MACRB ~'ENTCNT NARG; RPT ENTCNTJ~(ENTCNT) EXT
ENTCNT EQU ENTCNT~11 ENDR, ENDM
SETINT MACR6 A; LOA ~A(1)' STA 8LK31J ENOM
TOT
MACRB ~;~(l).W EQU *1 RPT NTAPEi L(2) ~(3)tB.*~L(1).WJ ENDR) ENDM
ARMI
DJ
~MF'F
SMFF'
REAO
IF
V1
EL.SF
1
HAeRes E:NDM
HAeRes ENOM
MACRe O,G,l;G(l) RSRi BRU *eli ALR; per ~D(3)/l00B
E.BD* 100006; DATA IeSOE+D(1)/2000B(AND)37B.D'2)/~OOOOB(AND)3*408
per ,D(1)(AND)1777B*~OOOOB.O(2)(AND)37777Bi RRFJ RSRJ BRU *~1
RSEJ BRU G(1)S CETE; BRU G(1); EN OM
DATA 2340066+D(1)*408; ENDM
MACR6 Di DATA ~30006B.D(1)*40B; ENDM
ENOF
EC~R
MACRB NiECHRWD EQU ECHRWD*400B+N(1).BsNECHR EQU NECHR+l
IF NEC~R.2J DATA ECHRWOIECHRWD EQU OiNECHR EQU OJ ENDFJ ENDM
ECHe MACR6 N;ECHVS EQU N(1)8J RPT N(2); ECHR ECHV
ECHVB EQU EC~V6+N(3)i ENDRJ ENDM
TRP
MACRe ~JENTCNT NARGJ RPT ENTCNTi~(ENTCNT) EQU TRAP
F'RGT ~(ENTCNT)'ENTCNT EQU ENTCNT~l; ENDR, ENDM
CACR
MACR6 OJ 0(2)
IF D(l); BRU PACACTi 6RU PEST
E~SF 11 BRU PE§TJ BRU PACACTI ENOF, ENOM
LeI..
MACRe OJ1L6L EQU 0(2); RPT D(2)1 LDA D(l)+lLBL~lJ LRSH 6
EQU lL6L.1s ENORI ENDM
1L.Bl.
SMFF"
RMFF
MACR6 OJ
...
...
...
* EXEC
ENTRY P61NTS
EXEC 1
EQU
EXECP EQU
eFFINT EQU
.....
..
D6
100008
100016
10002B
MACRe DiENTCNT EQU 0(1).B*2008+0(2)*100B
··'OOOOOOOB.D'-l(ANO)1*.oe+O(~)(ANO)2*10000000B
RPT D(~)I DATA ENTCNTIENTCNT EQU ENTCNT+l00BJ
r6RGT
ENORI ENDM
MACR6 O;ENTCNT NARG; RPT ENT,NT; FRGT D(ENTCNT)
F6RCiT 'RX~,AIB/8PB/8R6,AMB/APBIAKB
FBRGT MBUF'X,PNXFll.PXF
F'6RGT
RTC.NT,PNCNT,TCNT,LPCNT
F'BRGT
RTWT,PNWT,TXWT
FeRGT
NTAPE,N~INK/NBUFX/NBUF
F6RGT
NTRTRY,NTWTRY,NDTRY
FeRGT
NDDW,NoXW,NOew
,eRGT
NFILE,UMSZ,NTTYC,TTYEWM
FeRGT
NPAC,NPPAR,NJ6S,NJBB1,NFQU,NSGU
F'BRGT
NPS?,NMEM/NSMEM,NCMEM,NUMEM
F'BRGT
NPUQ,NSEC,L2NSEC,NDRQ,NS6ND,NSAM,NSMT
F'BRGT
OBB,ENTCNT
FeRaT
FeRGl
FREEZE
END
$MIFI~/SMeA,SMORN,FBWRD,SMeFI~
exe,BBP/eFP,BIN,alc,eON,60~J8IPleIA
3?AC
IDENT
*
*
$CHEDU~ER
7/02/67
AND
SWAPPER
*
ZR6 ..
PACDMB
PRM$I<
PI.,MSK
ADM$K
DATA
OATA
DATA
IF'
NAOMSK DATA
ENOF
SgCMSK DATA
6PD
SGCI
seST BPO
77718
777100009
377778
Vl
(N6T)37777B
NSe:C-l
7
16500000e,1,1
151000006,1,1
* ENTRY PBINTS
I'
ENTRY
ENTRY
ENTRY
ENTRY
ENTRY
Vi
C~INTC,GCR~,GCRL1,GCRL2,GCRL3,DISCA
RSYBT1,MPPACT,RLTS,ACTPU,PUPACP
ARD,AWD,RDSYB,WOSY6,RST,NADMSK,PUDEAD,PWNI
PUTIM,NPSPX,NXPBP
RSYBc,MPDSC,MPWB
(NOr
ENTRY
ENTRY
ENTRY
E;NTRY
~NTRY
ENTRY
~NTRY
ENTRY
ENTRY
ENTRY
*
*
ENTRI~S
RMT,RM~/RMA/PLMSK/PRMSK,ADMSK,SECMSK,SRT,SRTE
PACDMB,pepX,Xpep,PACQE,pePDMS,SETSET,GDC
PACGe,PEST,PBPINT,P6 P ST,PUGB/NPUGB,QQEOMS,PACG61
~PU~ST,PUCT/PUEPTR/PUBPTR,~UPAC
SWAP,UPR~,PTRL/LABEL,CHRL,eMw,RSAM/BMR,SWMPTR
RRL1IRRL2,RR~3,BRRL3/QUTAB/TIME/TTIME/PUCTR
SACNT,SAM1,SAM2,SAM3,SAR1,SAR2,SAR3
RTEX/RREA~,WREALICQe,SGBIEXOMS/RSYBIWSYB,DMS
~PU/FP~STIQS~H/QPUT/lIRISIRIPGET
C~INT'CLeCK3IpWFI/jRAPT/MeNCR,CRASH
FR6M HD6G
gNTRY
RMAP
•*
**
*
$CHEOU~ER
eRG'~
E.X~C DISMISS
INPUT; SS03!QUEUE NUMeER, X=PACPTR, B,PTEST.
EXDMS SKN PQU,2} BRM TRAPBJ LDX 5503
RC~ 2206 (CXA,C6X)1 MUL ~3, ~SH 231 ADD =QO
RCH 4406 (CXB"AX)J MIN OJ BRU P8POM$
* DISMISS UNTl~ INTERRUPT
* 6RS 109
DMS
~oa ~100005BI BRU P6PST
*6R$ ~5 (5tM QUANTUM eF~e)
SQ6
MIN 0; ~DB .~1; STB TTIMEl 6RU PACQE
* RE~AetL PAC TAB~ES 6EFBRE EXIT
NXPBP iTA $501; aRM MPPACT~ ~DA SS01, 6RU XPBP
NP6PX eRM MPPACT
*$V$~ep EXIT T8 REST6RE CENTRAL REGlSTERS
~epx
~DA
SS01J LOB S$02;
~ox
5503
*SVSP6P EXIT IF CENTRA~ REG 6K •• ABSLISH WHEN UMT PUT IN
XP6P
SKN TIMEI BRR 01 SKN TTIMEJ SKN ACTRJ SKN Os BRR 0
-QUANTUM eVERF~ew BC,CURED
ITA SSOlJ STB IS02, STX 59031 MIN 0
PACQE ~DB PACOMB
QQEOMS ~DX !QQE) SKN TTIMEJ LDX -QSQ
-pep OISMISS ENTRY PBINT
PQPOM$ §Te PAC~V~J ~OA PACPTRI aRM QPUT (PUT PAC eN QUEUE)
~oe PAC~V~ (PICK UP OISMISS ceND)
P~P$T
~ox PACPTRl $Ta PTEST,2
pePINT ~OA 0; ETR -500377776; XMA P~,2J ETR a7700000e
ADM P~,2 (SAVE START Lee)
-SAVE CENTRAL REGISTERS
~DA SS01; STA PA'2~ SKN XP8; BRU PAC2C
~OX X~el ~DA $$021 STA P6,2
LOA S5031 $TA PX,2J ~DX PACPTR
*$ET UP PR6PER QUANTUM REMAINING
PAC~C
LOA PQU/~) ~RSH 12; ETR =71 RCH 4029 (CAX+CLB)
~DA TTtM£; SKG ,.1; ~DA QUTAB,2; LOX PACPTRI LSH 15
XMA PQu,a; ETR ~60077777BJ AOM PQU,2
PACG51
.S£TT6, ST. TJea ($ET AcceUNT r6 SYSTEM)
SKN ACTPUi SRU PACPUC
~DA
* START SCHEDU~ER
PACGe LtDX ,QTIQI STX
c~eCK3.
(SAVE NEG NB FeR 50S
". L.OA-RR~:; 1-£tR'~11eoa ISK,---~.,6-00B'I--B-R1"t
CL.eCK)I~MFf-"4oe
~Ne-R
FACSCN iTX PAC~VL (SAVE QUEUE); STX PACPTR (SET PACPTR)I BRU PEST.l
* Mev~ PU FRBM QQE T6 QTt IF NECESSARY
PACPUC '-OX .QQEQ
PAcpue STX PPREVJ LOA PNEXT,2J CAX) SKE PUPACP; BRU PACPUA
~OA PN~XT/2J ~DX PPR~V; ~oe fQQEQ; BRM QGET
~DA PUPAep, ~DX ,QTII aRM QPUTi 6RU PACG~
PACPUA SKG ,.1; BRU PACPU6J 8RU PACG6
*SCAN PACT
PEST LOX PACPTRI SKN PNEXT,2l 6RU PACNXQ (NEW QUEUE); STX PPREV
~DX PNE.XT,ZJ STX PAC~TR
~OA PT~$T/21 LRSH 151 CAX
~OA CAC~STI21 STA. T, ~DX PACPTR; ~DA. PTEST,2J BRU* T
*ACTIVATE PR6GRAM
PACACT ~DX PA~PTRI BRM PGETI BRU PE$T (READ ERR6R)
~DA !700001Bl XMA PTEST,2s STA PPTEST (SAVE PTEST FaR INT stH)
~DA PNEXT,2; LDB PAC~VL; LOX PPREVJ BRM QGET (GET PRBG 6FF QUEUE)
~DX PACPTR; ~OA PQU,Z; LRSH lSi ETR -77BI STA TTtME
*$£T UP TIMEITTIMEI AND ACTR
~DA ~N$QU~ STA TIMEI LDA -11 STA UMTF
*C~ECK r6R INTERRUPT ANO SET UP START Lee (0)
LOA TJ ~RSH 15; ADO 'ACT~ST; XMA TI BRU* T
PACSRT ~OA PL,2; STA 0
PAcev' Revs LeV 1; ~S~ 1 (SET UP ~VERFLeW)
c~a; STB EXEC11 ~DA PTAB,21 ~DB ~·li SKA X2J STB EXECl
~OA PA,2J cepy B,XI SKN XP6i BRU PAC2B
~DX XPil LDB PS/2J LOX PX,2
PAC26
PACNXQ
~RF F· ",oel BRU* 0
~DA PNE,XT,2J SUB
-PNEXT; CA.Xi SKE ~QS.QQ; BRU *+3
5T8 ACTR;\BRU PACSCN
*CAUS~ A PRBG INTERRRUPT
PACINT ~DA PPTESTs ~TR --31BI ~Da PL/2
SKN P~,21 ~DB ~BRSRTI CAX) ~Ox 2006,6J 5T8* 0,6
~XAj ETR ADM$KI
AOO -400000018; STA 01 bOX PACPTR; BRU PAcevp
*ACTlvATleN TEST R6UTINES
~DB
~.1;
CAC~ST
*
0 CACOi 0 CACli 0 CAC2i 0 CAC3
CAC~I 1 PACACTJ 0 CAC6s 0 PEST
o PEST, 0 CAC9j 0 CAC10
o
SPECIA~ ACTivATtSN R6UTINES
ACT~ST 6RU PACSRTl BRU ~ACINT
CACO
CAC1
CAe!
CAC3
CAe:6
CAC4
CAC9
CAC10
CAC;R
CAC.R
CACR
CACR
CACR
6RU*
CAC.R
CACR
O,(SKG -0)
l,(SKG 1'0)
0 .. (SI<(3 "-1)
1,(SKG
TTY~MG)
1/(SKG REA~)
PTESTI2
O,(SKA X2)
l,(SKG -.1!!1)
*
*
PACI.VI.
ZRB
PPREV ZRe
PPTf.;ST ZRe
F'PI.ST ZRe
...
*
* PHANTOM USER
*
PUDHS
C~XJ
STA XPB; ~OA ~"1; STA ACTPU; EIR
bOB PUAT~ SBRS 72
... MAG TAP~ CLEANUP. CHECKS EVERY ~ SECBND$,
~DA SLK31; SKG -OJ 6RU PUGe3
~DA ,.11 XMA* 316; SKE w-l; BRU PUGe
S8RS 11~ (MTOI)I BRU PUGB~
~DA
PUGB3
C~AJ
REA~i
$TA * ~t~---
..
... P,u. SCHEOU~ER
PUGe
~DA PUCTR; DIRJ SKG 10J BRU PUDMS; EIRJ LDX ~PU8PTRJ STA PUCTRl
PUSCN STX PUCPTRJ ~DX OI~J ~OA 2,21 RS~ 12; STA PUPAe
CLAJ ~CV 1~J 5TA P%~E; LDA 1,21 STA PUiST
~RSH 151 ETR .176'
BRU* PUC~ST,2
S~T PU RE~AeE~LING ~ACK
SPUR~
ZR6J BRM MPPACTJ C~Al STA
~ox PACPTRJ aRM C~R~
eRU *-21 ~OA RR~3J ErR a7761 STA R~TS; eRR SPUR~
NPUGe aRM SPUR~) 8RU pUGe
NPUNXT eRM $PUR~
Axe;
*
*
Jes,
CAN'T PReCESS THIS E,NTRV
~DX* PUCPTRJ CXAI $KE PUEPTR; BRU PUSCN
~DA PUCTR1; OIR; SKE PUCTR; BRU PUGS; ~DX
PVNXT
*
SPECIA~
PUA T .
=31
REACTIVATI6N TEST
*+ 1 J
~OA
~ 0 A P A, 2 i
8RU PUDMS+l
A0 0 :; 180 , SKG R~ A\. J, "~U PAC ACT
PUCTRI SKG ~Ol BRU PEST) ~DA ~PUG6VSTA PL,21 6RU PACACT
* PHANTSH USER ACT I VAT I eN TESTS
"-~'--[\
-'
PUC~ST OATA PUDI6,PUR6T,PUTRTW,PUSRTw,PUCRTW / PUFK
OATA pu~e,PUTIM/~U~PTW
IF'
V5
TEST PR5GRAM INTERRUPT TIME aUT
PUTIM ~DX* PUCPTR) ~DA REA~J SKG 2,2; BRU PUNXT
~DA 3,2; CAB; ETR ,778; CAX, LDA WERIS,21 SKG
6RU PUACT1; C6A
RSH l21 MRG P~MSKS STA PVTIM1; CAX
~DA PIM,ZI SKA -31 SRU *+2, BRM M6NCR
SUB ! l l STA PIM,2
~SH 61 ETR -376 (INT. Ne.)j CBPY AX,B
~DA =40000006J RSH O,2j ~DX PUTIM1; 6RM IIR
6RU PUACTl (N8 INT.)J 8RU PUACTl (INT.)
*
=~1
PUTtM1 ZRe 0
* REMOVE EXTRA PU ENTRIES
pu~e
* TEST
PUO~U
*
T~ST
PUTRTW
BRU PUACTl
EL.SF'
1
DATA.SET TIME aUT
~ox FIbEI ~DA REALI SKG TTYTIM,21 BRV PUNXT; 6RU PUACT
iNDF
IF TAPE READY
iF'
Fee
EI.SF'
1
~DX FI~EJ
bDA FA,2;
~TR
~77BI
C6PY Ax,e
PUTRTW
*
~DX FI~~I ~DA FC,2s RSH 151 ErR 977S; CAX
ENDr
aRM MPWB
EXU TRTW,2; SRU *+2J 6RU NPUNXT, BRM MPPACT
T~ST W.6UFF~R
PUSRTW CLAJ
IF
SKE B~K31;
FCB
~Ox FI~EI ~DA
E~SF
1
~DX FI~EI ~DA
E.NOF
BRU NPUNXT
FC,21
~RSH
151
ETR =778; C8PY AX,SI
rA,2s
~RSH
15; CBPY AX/BI STX JeB
STX
JeB
PMTP,2s ADD ~20000000B.NCMEM~ STA PMTJ6BI C~A
RL3,2i BRM SWAP, BRU NPUNXTJ BRM LABEL
LDA RR~3J ErR ~77BI STA RLTSI aRM MPWBI 6RU PUACTl
PUACTW ~DX FI~E; ~DA~7777777BI ETR FO,2J STA FO,2
~OA
~DX
* TEST
PUCRTW
PU~PTW
* TeST
pyote
* rEST
pUReT
~UR6TA
~URBTl
~Da
~OA
~oe
FO,2; $T8 DEV
FC,2J ETR AOMSKJ STA BUFF
PUTSTI aRM ED; 6RU NPUGBI BRM M8NeR; BRM MeNCR
CARD READER READY
6RM MPWBJ EXU CFTW, 6RU PUACT; EXU CRTW, BRM MaNeR
aRM MPPACT; BRU PUBRTW
PRTI BRU NPUNXTI C~AI $KE BLK31J BRU NPUNXT
aRM MPPACTI 6RU PUBRTW
IF DRUM Ft~E READY
~DX rI~EJ ~DA FD,2J SKA ~DBBI BRU PUNXTJ BRU PUACT
IF RUB6UT APPLICA8~E
~DA PUPAe; ~RSH 31 STA TIPlxl ~DX FI~EI SKG ~lJ BRU PURBT2
iKN TTYAiGJ21 aRM MBNCR} ~OX TTYASG,Z
~OA ,PURBTAI BRM SCrK} STX PUPAe
BRU PUACT
ZRS; LDA PtM,2; SKA XlI BRU PURSTll BRR PURBTA MRG Xci STA PIM,ZI SRU PUNXT
IF
V5
PUR6TZ SKN TTYASG/2~ eRU PUACT11 aRM MBNCR
ENOF
*
T~ST
PUFK
IF P.u. F6RK
~DA FP~$TI
~DA PUT$TJ
~DX PUPAe;
pes?tB~E
SKG ~OJ BRU PUNXT
STA PUFT+1; LOA FILE; STA PU~T+3
LDA PUFR,ZJ STA PUrl; SRU PUACTl
PUFTA
*
lRS
PUFT,~
P.U. REQUEST R6UTINE
PUPAe, aRM PGETJ 8RU PUNXT (READ NB GeeD)
PUACT1 LOX PUCPTRJ DIRJ ~DA FPU~STJ XMA* 012
XMA O/~; STA FPU~STj SKE PUEPTR; BRU *+2J STX PUEPTR
§KR PUCTRj MIN PU~IMI EIR
~DA PUTSTI ~RSH 151 ETR .7781 CAX; BRU* PUCSET,2
* PHANTeM U$ER REQUEST PReCESSING PREPARATIBN
PUCSET ZRe PUDISSi ZR6. PUT$Ti DATA PUACTw,PUACTW,PUACTW,PUFP
ACTlvAT~
PUACT ~DX
*
OAT A "'PUN>t'f.,Pur~x" PUAC;TW
ceNT INUE ORUM BRS
\~;'..),... ) V
~DX FI~EI
\,,,
XNal AOM FO,2J B~M MPDS.Cl ~DA FC/2
~TR AOMSKI STA BUFF) CAX} eRR PUTST
.. RUN P,u. F'6RK
PUFP
~OA PU~TA; SBRS "
BRU PUNXT
PUFR
DATA PUMSG
* PRINT MESSAGE
PUMSG ~TR AOMSKs MU~ ~3; ~$H 23; STA PUF~J SKR PUF~
PUMC
SGCI PUF~J H~T; SK~ ~17B; 6RU *+21 S6RS 101 ~DB PUFL
SKE p4~ SRU PUMC1J ~DA -15561 seST 5S03; LDA -1528
PUMC1 $6ST S$031 STB PUF~J BRU PUM~
PUOI6S
~OA
* MAKt P. U. ~NTRY
• INPUT' A;1,2. a~212. X-3,2.
* eUTPUT: X.PU PTR.
EPU
PUXSV
*
*
PUCT
~ew
6 BITS OF
X~TTY
Na.
lReJ XMA* FPULSTI SKR PU~lMI BRU .*2; 6RM MBNCR
MIN PUCTR; XMA rPU~ST
$TX PUXSVJ CAX, XMA* PUEPTR
STX PUEPTR, XMA O,e} STA 1,2; STB 2,2
XMA PUXSVJ STA 3,2, XMA PUXSV, EIR; 6RR EPU
Z.R8 0
IF"
V5
ass NPUQ*4
.~PUCT3 EQU PUCT+NPUQ~4.~
sEPUCT EQU PUCT+NPUQ'~
.tPUCM3 EQU PUCT+NPua*4.4
ELSF
1
PUCi
ass NPUQ*3
EQU PUCT+NPUQ*3+3
*EPUCT EQU PUCT+NPUQ*3
SEPUCM3 EQU PUCT.NPUQ*3.3
$~PUCT3
ENOF
ZRO 0 1ST FREE ENTRY
PUePTR ZRe 0 PTR. T6 1ST ACTIVE ENTRY, LAST ENTRY PBINTS TO PU6PTR
PUCTR ZR6 0 Ne. BF ENTRIES.
~UCTRl ZR6 0
CBUNTER-DURING PU PR8CESSlNG.
PUCPTR ZR6 0 IND, PTR. T6 ACTIVE ENTRY DURING PU PReCESSING.
PUEPTR ZRe 0 ~AST ACTIVE ENTRY,
PUPAe ZRe 0 PACPTR SF ENTRV B~ING PReCESSED BY PUt
rPU~ST
PUDEAO Q 0 NU~~ PU ENTRY
ZR6J DATA 137777B
PUFT eSS 7
PUTST ZR6
ZR6 NPUQ
CeUNT$ Net SF PU ENTRIES,
PU~IM
PUPACP lR6 0
PACPTR FOR EU .
ACTPU DATA -1
ACTIVATE PU SWITCH
PUF~
*
*
* GET USER
PGET
T8 C~R~
PGET1
lRel STX PUPAe; C~AJ STA XP61 SKN PUPAe; BRU PGETl
~DA PTAB/21 ~R$H 15; ETR =776; STA JaB
,AX} ADD -ETTSI STA TJeB (SET UP TIME CHARGING)
~DA PMTP,2~ ADD !20000000a.NCMEMJ STA PMTJBB (SET UP PMT PTR)
~OA TTN!,21 ErR .7761 STA UTTV ($ET UP USER TE~ETYPE)
~DX PUPAe, 6RM CHR~} 8RR PGET
~DA RR~31 ETR .719; $TA R~TSJ hDX PUPAe
~DA PTAS,2J SKA Xi; 6RU .+2) BRU PGET1 (NB T5 BLeCK)
~DA PIM,aJ ETR .70a; LRSH 3; MRG X4; STA XPB
MIN PGETJ BRR PGET
RMT
$ERMT
~QU
RMC
6SS NME.M
ess
REAL MEMBRY AS$IGNMENT TABbE
RMi.NMEM
NM~M
REA~ MEM6RY ~eCKUP TABLE
$ERMC
RMA
$ERMA
EQU RMC+NMEM;$ESRMC EQU RMC+NSMEM
ass NHEM REA~ MEM6RY AG~ TABLE
EQU
** SWAPPER-
*
*
*
•
*
*
*
*
*
*
*
•
*
*
RMA+NM~M
IN A,B,X
eR· INSUFFICIENT MEMBRV
SKIP EXIT. REAL RELABEL~ING IN A,6,X
T~E SWAPPER rIR$T UNPACKS THE RELABELLING REGISTERS,
T~EN OEC6DES THE 6VTE$ PR60UCING READ C6MMANDS
6R INCR;MENTING THE LeeK. IF T~£RE ARE Nfl REAO C6MMANDS, THEN IT
C8MPUTES THE REAL RELABEL~lNG, UN~eCK$ AL~ PAGES REFERENCED,
ANO EXITS SKIPPING. BT~ERW!SE IT BUILDS A ~IST eF
WRITE CBMMANO$. THE SWAPPER THEN PUTS BUT DRUM C6MMANDS.
IT wt~L ASS1.GN A B~eCK T6 A READI AND READ IN A PAGE IF
THERE IS AN ePTtMAL REAO COMMAND. BTHERWISE IT WRITES BUT THE
ePTl.MA~ FREE PAGE, ANO MAKES THE BLeCK FREE FeR READING.
WHEN A~~ C6MMANPS HAVE SEEN CBMPUTED, THE DRUM IS
START~O, AND THE REA~ RE~AB~LLING INF6RMATISN IS caMPUTED. AFTER THE
SWAP IS ceMP~~TEI THE SWAPPER EXITS SKIPPlNG.
CA~~,O WIT~ R£~AeE~LING
NO SKIP EXIT. READ ERR6R
SWAP-
,RBI MlN SWAPCJ STA SWR1J STS SWR21 STX SWR3
JB6J L~H 36) cepy AS,X61 STB SWR4
LoPA SWR1' 1-06 iWR2; l.DX SWR31 5KN 5ACNi; 6RU SWF'O
~oa SWR41 ~OX SACNT
SKE SAM1,2~ BRU SWP2~J ~DA SWRZ; SKE SAM2,2; BRU SWP26
ceAI SKE SAM3,Z; BRU SWP26
~OA SAR1,2J ~oe SAR2,2J ~DX SAR3,2J MIN SWAPA BRR SWAP
L,DA SWRl
eRX SWP2~1 ~OB SWR" LOX SWR3
~OB
SWP22
SWpa6
SWP!4
SWPO
BRM DCR~' $KN peRT3; BRU SWPl
* ceMPUTE AND RETURN REA~ R£LA6~LLtNG IN A,S/X
SWP38 6RM PTRLI ~DA SACNTI SKG =.N$AM; BRU SWP37J SUB =li STA SACNT
SWP~9
STA $APTRJ XXAI ETR PRMSK; STA SAR312
ST6 SAR2,21 ~DA SWR41 STA $AM3,2
~DA SWR11 STA $AM1,21 LOA SWR2J eTA SAM2,2
LOA SW011 STA SAR1,21 LOX SAR3/2$ MIN SWAPS BRR SWAP
*
SWP3? ~DA SAPiR; SKG ~eNSAM; CLA; SUB ~li BRU SWP39
SWPl
~DA ,SWT5J STA SWT6~ 8RM RSAM
* FINISH DEceOlNG USER RE~A6E~LING
~DX •• NS~CI STX SPT+NSEC,21 6RX *-lJ LOX •• 10
*
~eCK
PAGE 6R SAVE DRUM C6MMAND
SRTE,2S SKA X4, 6RU SWP4J ETR ~37BJ CBPY XB/AX
MIN RMC,2 (~BCK PAGE); LDA RMA/21 MRG X21 STA RMA/2
,ex; 6RX SWP3; 8RU SWP2
* eN ORUMl CHECK FeR OUP~ICATE READ
SWP.
iTX SWT13J ~ox SWT6J STA SWT1~.SWT5/2J CAX
~DA a,a; ETR .1777~oa; LOX -SWT5
swp~o
XXAJ SKE SWT6; 6RV SWP41; STX* SWT. (NeT DUP)
CXAJ RSH 6} CBX, RSH 8; CX61 LSH 1; ~TR SECMSKI CAX
~DA SWT6i ADD !SAT.SWT5J XMA SPT/2~ STA* SPT/c
MIN SWT6l bDX SWT13; BRX SWF'JJ 6RU sWPz~'
. ~.......... --..... -.. . .
SWP41 XXAJ EAX 1,2; SKE "1,21 BRU SWP40
~DX SWT131 BRX SWP3 (OUP)
* CHECK peR SUrFICI~NT MEM6RV AVAI~AB~E
SWP2
~DA SWT61 STA $WT7J sus .SWT5J STA SWT12J CNA
SWP3
~DA
~D6
X~;
~DX
~NSMEM~NHEM
iKe RMC+NMEMI2; ADO '11 6RX .-2; SKG .~1' 6RU SWP5
* S£T UP a~eCKS FeR WRITE, RE~EASE READ.eN~Y 6~eCKS
sw~,
SK~ $WT1~1 BRU *-2, URU $.WP12; ~DA XX; ~DX ~NSMEM.NMEM
swp, $KN RMC+NMEM/2J BRU SWP81 SKG RMA+NM~MI2; 8RU SWPB
~DA RMA+NMEH,2; STX SWMPTR
SWPS
SRX $WP7i ~DX $WMPTRI ~DA XXI STA RHA+NMEM,2
iKN RHT.NMEM,2, 6RU SWP6
LOA RMT+NMEM'!l SKA X21 6RU $WP10 (READ.eN~Y)
LOX $WT71 STA iWT1 •• iwT5,2; XXA; ~OX 0/2
C6PY XA,AX,S' STA 0,2
RSH 6; STB SWT13; RS~ 8; LOB SWT13; LSH 1s
e:TR $E~M$KI XXA
ADO ;S.T-SWT5; XMA SPT,ci $TA* SPT,2
MIN SWT71 ~RU SWP6
*
RE~EASE R~AD.6N~Y PAG~
~~BJ
RMT+NMEM/2i
SWP10
*
~DA
srs
o,Z; MRG
NeT ENBUGH,
SWP5
RE~EASE
I.DX ,-10
CAX
STA 0,2; eRU SWP6
~eCKS ANO EXIT
X4J
S,RTE,ZI $KA X4; BRU $WP~i
ETR .3791 XXAJ SKR RMC,cJ N5P, CAX
SWP4? eRX SWP~6A BRU SWF50 (FAILUR~)
* F%ND ~URRENT DRUM peSIT16N
SWP12 '~6; SKN NRCLs BRU SWP35
~OA RDRADJ ADD .1; ETR RAOMSK (1ST WRITE RAD)
LSH 131 $TA WRRAOs RSH 3l MRG PtNEBO
$TA *+11 EBD 01 PIN TSWPll LOA TSWP1; MRG WRRADJ BRU SWP36
SWP35 ~DA ~RC~I SKE fRAOQ; 8RU •• 21 LOA ~ROQU; SUB -4; CAX; LO. 0/2
SWP36 ~RSH 61 cex; RSH 8; ~TR RADHSKi CXB
~SH 1) STA SWT12 (ePTIMA~ ORUM P6SITIBN)
~OA SWT7J SUB !SWT6i STA SWT1CJ ADM PAGES
* C~ECK FeR REMAINING ceMMANDS
SWP15 C~AJ SKE SWT10i 6RU SWP1~; MIN D$WAPC
aRM RST; 8RU SWP38 (OeNE); BRM PTRL
swpeo ~OA SWRll ~De SWR21 ~DX $WR31 eRR SWAP
* FINO OPTIMA~ COMMANO
SWP1- ~DX SWT121 SKN SPT,21 6RU $WP16
- SWP1? ~DA SWT12s ADD ~lJ ETR SECMSKI STA S~T12J BRU SWP15
SWP16 ~DA SPT,ZI ADD .SWTS-SAT+ll $KG SWT61 6RU SWP19
~* REMev~ C8MMANO ~ReM STACK
SWP20 ~o.* SPT,21 XMA SPT,2J ADD .SWT5eSATl CAX) STA SWT11
AOD w1} $KG SWT6S eRU SWP27 (READ); BRU SWP48 (WRITE)
* A$SIBN AND ~~CK B~eCK, eUTPUT REAO, UPOAT~ PMT/SMT
SWP1' ~DX INSMEMeNMEMI SKN RMT_NMEM,2i BRU SWP21
8RX .-aJ BRU SWP1?
SWP~1
CXAJ ADD ~NMEMi Sf A SWMPTR, ~DX SWT12i BRU SWP20
SWpa7 ~DX $WT1~~SWT512J BRM BMRJ BRU SWP23
* eUTPUT WRITE, RE~EASE B~eCKI AND UPDATE PMT/SMT
SWP~8
aRM BMWI ~OA* SWT111 ETR -376; Axe, STA RMTJ2i STA RMAI2
~X SWT1.1s LOX SWT14.SWT5,2J LOA 0,2; MRG XA+I sr. 0,2
SWP~6
SWpa3
~OA
iK~ ~WT101 BRU
eRM MBNCR
• UNPACK
RE~AaE~LING
SWPiE!
"'- L
IS
REGISTERS
DA,
\N
T.?·
t;.o~
>"
:/)t
n
J
* INPUT, RE~ABE~ING IN A,e,x
* eUTPUT; AL~ REGlSTERS C~eBBERED
UPRL
ZR6J STe SWT31 ~RSM 181 STA $RT
CLA) LeV 6, STA SRT+l; C~AI Ley 6; STA SRT+2
'LA; Ley 6; STA SRT+3s LDA SWT3; LRSH 18; STA
co7A
SRT+4
S
W
T I ~
*
tLAS Ley 6; STA SRT+5J C~As ~CY 61 STA SRT+6
CLAI ~~y 6; $TA SRT+7J CXAs RSH 61 ETR .77S, STA SRT*8
CLAl L~Y 6~ STA SRT+9J LOA .-1; $TA DCRT31 8RR UPR~
PACK RE~AeE~lNG W6RO
PKRI.4
PKR~
PKR~l
PKR~3
PKR~2
* PACK
PTR~1
PTR~2
PTR~3
PTR~
*
ZRB
ZR6; srA PKR~1
SRTE,21 cepy X61AXJ SKA X41 SRU PKR~2J ETR -378J X~A
SKN OCRT3J SKR RMC,21 Naps CBx
Rey " ~OA PKR~41 ~cv 61 STA PKR~41 BRX PKRL1; BRR PKR~
~OA 0,,; caxl 6RV PKRL3
~OA
TeTA~ RE~A6EblNG
~OA
~DA
~DA
SRT+4JZ
SRT+8Ic
SRTEI2
~DA PTR~l'
~OA PTR~~J LOX
PTR~3' LOX
ZRB;
LOX •• 41 BRM PKRLJ STA SWDl
•• 4, BRM PKR~I $T4 SW02
LOA
•• 2, aRM PKRLI ETR PRMSK
tAXi LDA SWOli LDB SWD2J BRR ~TR~
OEceo~ RE~AeE~~tNG
OCR~
ZR61 BRM
UPR~I
LDX p.l0
DCR~1
LOA SRTEI2i SKE ~Ol 6RU DCRL2; LDA -406
* 6T6RE RESU~TING SRT ENTRY
OCRI.9 $TA 6RTE,2J BRX OCR~1i BRR D'R~
*
STeR~
OCR~2
OCR~_
OCR~3
OCR~5
PMT/$MT ADDRESS IN $RT
Xe,AXJ SKG ~NCM~M.l; BRU DCRL3+1J EAX* PMTJBB
~OA O,2J SKA X~I 6RU DCR~5; $KA XlI BRU DCRL3
~TR !77BJ CBX; BRU DCR~9
CAXJ ~OA SMTI21 SKN SMT'iJ BRU OCR~4
espy XA,6Xi ADD OCRL8; M!N DCRT3; 8RU DCRL9
CBPY XA,6XJ MRG X4j MIN DCRT3s BRU DCR~9
Z.RB $MT,5
,epv
DCRL,8
* RES;T SAM
R$AM
ZR6; C~A; STA $ACNTi STA SAPTR; ~DX -NSMEM.NMEM
RSAM1 ~DA RMA+NMEM/2i RSH 1; STA RMA+NMEM'¢J BRX RSAM11 8RR RSAM
* eUTPUT MEM6RY WRITE
6MW
ZRe; ~OA o,ZJ ~AXJ ETR =1177006; RSH 1
XXAI ~SH 11J ETR '1740008
CX6i LOX 1140006} \6RM
RTW; 9RR 6MW
\
,...
*
...
* eUTPUT MEM8RY
*
R~AD
INPUT: X-PMT ADQR"
SWMPTRIPAGE NUMBER,
6MR
ZRe~ STX 6MRl
~DA O,~~ ETR ;318; STA BMR2J CXAI ETR ADMSK
SKG ~PMTM1~ STA BMR2
~OA O,ZI ETR 9317777_08, MRG SWMPTR; STA 0,21 CAB
ETR ,3781 XXA~ ETR AOM$KJ MRG X41 SK6 !40BI MRG X2
STA RMT,ZI ~OA X~I STA RMA,2
C~A; SKE SMR2J BRU *-2; BRR eMR
~OX BMR11 LDA SWMPTR; ~SH 111 ~TR !17400QS
~DX O,2J XXA; ETR ,1777006J RSH 1; CBPY AB,XA; LOX =40008
eRN RTCI ~DX RTXS21 ~DA ,31 ADM 3,2; eRR BMR
6MR1ZRO
aMR2
lRe 0
**
*
SET UP REAL RE~AeELING, KEEPS PAGE 6 RELABELLING FRBM RRL3.
I~PUT: REAL RELABELING IN A,S/X
~Aet~
~Rel STA RRL11 STS RRL2J CXAI SKA ~3700BI BRM MBNeR
ETR .77e, XMA RR~3, ETR .770081 AOM RR~3
~RRll peT RR~ll ~RR2J peT RR~2i ~RR3, peT RRL31 BRR LABE~
* SETS UP R~LABEL!NG FeR A FORK. $AVES RR~3 IN BRRL3
• INPUT: X.PACPTR
* SKIPS IF SUCCESSFU~
CHR~
lRBJ LOA R~112J ~DB RL2,2J LOX Jess bDX RL3,2
aRM SWAPI eRR CHRLi STX SRRL3J BRM LABE~J MIN CHRLi eRR CHRL
DCRT3
SWRl
SWRZ
SWR3
iSWRI+
swf)l~-'-
SWD2
SACNT
SAPTR
(SAM1
ZR6
o
lRe
ZR~
PSEUDB~RELABELLING
lRB
~,lRe
ZR8
ZR6
ZRB
~Re
tiES
Q
SWR3 + JaB
REAL. SWR1
OREAL SWR2
o
SAM caUNT. COUNTS N~GATIVE
o SAM PBINTER
NSAM SWAPPER ASS6CIATIVE MEMeRY
NSAM
a
~SAM2
\_SAM3
BES
eE$ NSAM
SARl
BES NSAM
INPuT
SAR2
SAR3
~RT-
SRTE
SWT3
SWT5
SWT14
SAT
SWT6
SWT1
6ES NSAM
6ES NSAH
ess 10 TAe~E ~eR DEceOING PSEUDe.RE~ABELLING
EQU *
CBNTAtNS RR~ BYTES BR PBINTERS T~ PMT/SMT
ZR6
ess
PMT/SMT ENTRIES r6 B~ READ eR WRITTEN
PMT/SMT ADDRESS FeR ENTRIES IN SwT5
P6SITIBN STACKS
FIRST WRITE C6MMANO
END BF WRITE CBMMANOS
SWT10
C6MMANO CBUNT
SWT11 ZRB 0 BPTIMA~ READ/WRITE
SWT12 ZRB 0
CURRENT ORUM peSITIBN
SWT13 ZRe 0
TEMP STBRAGE
RDRAD lR6 0 Ne. BF READ RAD
WRRAO ZR8 0
Ne. SF RAO IN THIS SET SF WRITES
PIN£ep OATA 06102266
PIN ESC
SWMPTR ZRB 0 . ?BINTER paR SCAN reR FREE MEM8RY
SPT
ess NSEC P6SITISN STACK paINTERS
T§WP1 lR6 ORAD SECT6R NUMBER.
AAOMSK OATA
NRAO-l
RAO MASK
RR~1
ZRB
RR~a
RR~3
BRR~3
R~TS
R~PACT
R~OSC
R~We
20
aSs 20
ess 20
,R6 0
ZRB 0
IRe 0
IRe
ZRa 0
ZRe 0
CURRENT CBNTENTS BF RR3
RR3 FeR RUNNING F6RK
ZRe
o TS B~eCK RE~ABELLING FeR RUNNING FeRK
OAT A 6006
PAC TAB~E REAL RE~ABE~LING
QAT A 10008
DISC REAL RELABELLING
OATA 11006
W BUFFER OR1VERS REAL RELABELLING
*
** ReUTINES 16 RELABEL EXTRA
** PAC TAB~E R~LA6~LING
MPPACT
** DISC
MPDSC
lR~1
~RR31
~DA
peT
MeNITeR PAGES,
RLPACTI MRG R~TSJ
RR~31 eRR MPPACT
RE~ABE~lNG
ZRSJ LDA R~DSCI
STA RR~3
MRG RLTS; STA
RR~3
*
• W BUFFER R6UTINE RE~AeE~ING
MPWe
ZR9S ~OA R6WSI MRG R~T$; STA RRL3
~RR3J per RR~31 BRR MPWB
IF
**
•
*
Vi
6R WRITE eN DI~C (BE+11 6E+2)
INPUTI A.C6RE ADDR. a-DISC AOOR. x~weRO CBUNT.
F~AG$ KEPT ev J6B IN TTNe. xz IS BU~V BIT.
• ep ceDE FIE~D IS; 00 START READ, 01 BPERATI6N IN PRBGRESS,
*
10 READ D6NE-NS ERReRS, 11 READ De~E~ERReRS.
AWO
~DA ,77BA ~oa ~DTWJ 6RU
ARD4
R~AO
ARO
ARD#
;176J ~DB -OTC
§KA $S031 aRM TRAPB
DISC B~6CKED Ie REQIUREMENT
~OA 55031 SKG !Ol aRM TRAPSJ SKN PQU,2J BRM TRAPS
~OA
STa AROll
~DX
Jeel
~DA
TTN6,2
SKA .30000081 6RU ARD2 (JS6
~TR
AR03
ARO,
ARDl
•*
*
FINI$~ED)i
LOA SSOl
ADMSK
STA TI AOD SS03i SUB -1
~TR NAOMSKJ SKE ~Ol aRM TRAPSJ ~DA T; CAX; LDS 0,6
BRM DTH; ~DA 8$02; SKG R~OMSKI SKG •• 11 6RM TRAPB
CA61 BRM MPDSC
~OA T; ~DX 5503; BRM. ARD11 ~OA ~20100000B
~DX Jeel AOM TTN6,21 LOA ,~oooooeJ ~ox DTXS2
ADM 2,2; ~DB JaB} ~SH -OJ ADM 1,2; BRM DTS
~DA ~TTNe; ADD ~1100000B; ADO JeB; CAS
SRU NleQOS
SKA .200000008; 8RU ARD3J CAB; ETR =776; STA TTNO,2J CSA
SKA !100QOOBI 6RU •• 2 (ERR6RS)l 6RU PBPX
~DA .100061 L.OX PACPTRI 6RM IIR; BRM TRAPS; BRU PBPINT
lRe
0
READ e.R WRITE 2K eN DISC (BRS 6E+9,8E+10)
AVAl~AB~E eN~V T6 EXEC. THIS 6RS S~BU~O N6T BE
WPSYB
RDSYB
~D6 ~D1WI
~DB ;OTCI
6RU ROSVe.+l
STB ROeRS11 SKN PQU,2J BRM
TRAPS
GENERA~LV
USED.
~DA 55011 ETR !340QOe
CAX; ~OB 0,61 SRM OTH
eRM MPDSC
~06 ~S021 ~DA T; LOX .40008; BRM* RD6RSl
aRM OS1} BRU NPepx, aRM NTRPB
RDBRS1 ZRO
** REAO
W$Ve
Rsva
eR WRITE 2K aN RAO (eR5 10~,105)
~DB ,RTWj BRU RSYB.l
~De .RTC; STB RSVBT11 ETR -340006; SKN PQU,2J aRM TRAPS
RSVe2
~DB
R$V6Tl
CAX;
~DB
$S021
0,61 BRM DT~
~DX ;400061 BRM* RSVBTl
BRM RST; BRU pepXi 9RM TRAPS
ZR6
ENOF
*
*
*
IF"
V1
START RAO ANO WAIT
RST
lReJ LOA RU£RR; $TA RSTE
SRM RT$J SKN NRC~J BRU •• 1
~DA RUERRJ SKE RSTE; MIN RSTJ eRR RST
tRSTE ZRS
~NOF
4
*
c~aCK
QUTAB
l.R6
*
TIME
TTIM£:
UMTF
C'-6CI<~
*
ZRS
ZRO
ZRe
ZRO
ReUTINES AND TABLES
NFQU NUMBER eF CLeCK CYCLES IN QUANTUM
o
SHeRi
o
~6NG
c~eCK INTRRUPT RBUTINE
AVG, TIME' -047 MS
C~INT
ZRBI MIN REALI MIN* TJBB; SKN C~INTJ MIN
E.'PT4
Cl.INTC aRM M6NCR
STIME
$KR TTIM~I 8RU *+21 6RU CLeUT, SKR
$KN ACTRI 6RU c~eUTJ SRI CLINT'
CL,eUT
UMTN
eKO!
L,PT
IND
8KX
5K
SA
sx
ceUNT
*
TIM~I
SRI
C~lNT
$KR UMTF'
NePi SKN C~INT; 6RU eKOI
XMA CLINT; STA TRAPTi ~DA CLINT; SRI =TRAPT+l
iTA SA; ~DA* C~INTI ETR .200777776, SKE ~400008
eRU OK; ~DA =100l $TA CBUNT; STX sx
SKN 0; aRU 6KX, ~ox 0
~DA 0161 SKA ·~000081 BRU INDJ BRU 6KX
SKA X21 ADD SX; CAXi SKR CBUNT, BRU ~PT
f)Rl ~TRAP
l.DX S)(
SAl SRI CLINT
ZR6 0
~DA
lRa
Q
lRfJ 0
USER M80E TRANSIT IBN TRAP
ZRSJ STA 59011 5T6 5$021 STX s~o~
~OA UMTFI SK~ 111 BRU TRAPT1J LOA SSOl; BRU* TRAPT
TRAPT
TRAPTl
*
F'AST
PWF'I
PWFI1
~DA TRAPTI 5TA 01
c~eCK (PBWER 8FF
BRU PACQE_
INTERRUPT)
IF
V5
ZR6,; STA perFA, STa PBFF8i STX PBFFXi MIN PWFL
6RU *; eRI PWFI
** peWER eN INTERRPUT
PWNI
l.RB; BRU* *
P~FF'A
ZRB 0
P6FF"B ZRe a
peFFX
PWF"I
..
**
*
lR6 0
t;I.SF
1
lRB # BR 1 PWF I
[NDF'
BRS'S FeR TIMING
eRs 88
READ C8MPUTE TrM~.
IF
V5
RTEX
$KN PQUI2; 8RM TRAPBI ~DX JBB) LOA ETT8121 STA SSOl; BRU ?BPX
RTEX
ELSF
~DX
ENDF
JaB)
1
~DA
ETT8,2; STA ssot; BRU PBPX
** BRS 4,
IF
RREAL
RREA~
**
V6
~DA REA~I
~L$F
1
~DA REA~i
;NOF
STA SS01;
~DB
DMINj STe SS02s 6RU PBPX
STA SS01J 6RU PBPX
6RS 81
WREA~
WRECl
DISMISS peR SPECIFIED TIME. TIME IN MS,
.. 17270246; SKB X~J ADD -1; AOD REAL; 5TA 5S01
,QTIJ LDB WRECli MIN OJ BRU PBPDMS
a *+1; LOA PA,21 CACR l,C$KG REA~)
MU~
~DX
** eRS 57
CQ6
~DA
GUARANTEE'$, 16MS.
TIMEJ SKG !11 SRU SQ6; 8RU POPX
*
• SYSTEM
S~TSET
5£T5T1
MSETR~
OISCA
*
*
*
&TART
OISW, TSNI
2~BI STA DISCA
ADD DtSCAi ADD DRC; ~Da ;CASET
BRM GDe; BRU 8[T5T1
MSETRLI STA RRL3J LRR3J peT RR~3, 6RU SETSA
OAT A
61ZB
RE~AeE~~%NG FeR SET
ZRe
0
DISC APDRE$S BF SYSTEM
~DA
~DX
~DA
~OA
~OASgT~
.~0008;
GET DISC e~eCK TB ceRE. A-DISC ADDR, a.ceRE ADDR, x~ceUNT
SKIPS rr NB ERR6R$
GOC
ZR6 01 ARMl ~60000QB
STa GDC~; STA GDC~+ll ~DA GOCLi ETR ADMSKi RSH 14
CXAi ETR -7777781 ~CY 14; STA GDCL+21 ~SH 19
~DA GDCLI ETR !14000061 CBXl RSH 14
CX6i LSH 5; MRG ~IeROw; $TA GDCL+3
ORT; BRU *~11 A~DJ peT GDCL+1
E6M* 100008; EXU
GOC~+3;
OSR
per
GDC~+2
DRT; BRU *-1; OETJ BRU GO(2) DeTl eRU GDC2
MIN GOc.
GCR~
aCR~l
GCR~2
GCR~3
eRR GDe
DATA 0
DATA 0
DATA 0
OAT A 0
OATA 0
OATA 0
OATA 0
OATA 0
REA~ ceRE ADDRESS
DISC ADDRESS
wc+ceRE ADDRESS
IBSD WITH EXTENDED ADDRESS AND weRD CBUNT
*
*
QUEUE ReUTIN~S
** INPUT; A-.PACPTR. XiQUEUE.
QPUT ZR6J ~DS G"ZI XXAI $T6
PNEXT'~I
cex, STA PNEXT,2; BRR QPUT
XXAi
~Da
1/2; STA 1,2
** INPUT: A~PN~XT eF FSRK r6 GET, e-QUEUE (QIeQ), XDPREV16US PACPTR
QGET ZRS; $TA PNEXT,2; XX61 SKG !Ol BRR QGETi SiS PNXTP1,2; 8RR QGET
•
• INPUT; A~NEW ACT. C6ND. X=PACPTR.
* Q$C~ CHANGES ACTIVATIBN CONDITI6N AND TAKES PAC ENTRY err
*
THE QUEUES.
QSCH
,RBi XMA PTEST,21 E8R ~100000Bj SKA F.7700000BJ BRU *+2
eRR QSCH (6~D ACT. ceND. WAS 7. ~eRK NeT eN QUEUES,)
~DA PNEXT,?J STA Q$CHli STX QSCH~J LOA -QTI
QSC~2
SKu -01 6RU QSCH3i SUB -PNEXT; CAS
Q~CH3
CAX; LOA PNEXT,2J SKE QSCH~; BRU QSCH2
~DA QS'~l' aRM QGETI LDX QSC~~I 6RR QSCH
zRe
Q$C~1
Q$C~~
ZRe
**
INTERRUPT
*
~eGIC
* tIR
MAKES ACT. ceND, A PR6GR, JNT. AND PUTS PBRK eN Qle
* INPUT; A~tNf. MASK,
X,PACPTR. .
.
11R
ZR61 SKA PIMI2~ BRU •• ZJ BRR IIR
STA tIRll STX ItR21 tOR PIM,2; STA PIM/2
'~EAR; ~DA lIR1i NeD 24; C~AI sue ,5000006.21
~DX II~21 LOA PTEST,21 $KE ~70000~BJ BRU
CAS'
eNA
IIR3
PIM,21 SKA XlI eRR IIR (NBN~TERMINAB~E BRS)
STe IIR1J ~OA PPTR,21 RSH 121 CAX; BRM DFKl ~DB lIRl
CBAI ~DX IlR2i 8RM QSCH; CXAI MRG X7
~DX pGlel BRM QPUTJ ~DX IIR21 MIN IIR; BRR IIR
~DA
tJR3
IJRl
ZR6
tlRaZRe
.,
* SEARCH FBRK STRUCTURE AND INTERRUPT
* CHECK PARAL~E~ FeRKS FIRST. T~EN Ge
* INPUTI A-INT. MASK. X'PACPTR.
SIR
SIR~
SIR.
SIRe
SJR3
stRl
ZR61 STA SlR1J LOA PPTR,21 MRG
~OA
PPTR,cl
~RS~
12
UP FBRK STRUCTURE.
P~MSK;
CAX
§KA PRMSKI BRU StR3
PPTR,ZI $KA PRMSKI BRU •• 21 BRR SIR
MRG P~MSKI CAX, ~DA $IR1J BRM IIRJ BRU SIR~
MIN SIRs BRR SIR
~
MRG PLMSKI CAX, ~D. SIR1J aRM IIR; BRU *-2; BRU SIRS
~DA PQU,2s BRU SIR2
~OA
ZR8
*
I'
V1
I ,: .
,
MeNITt,lR CRASH
MeNCR ZR8i SKN MaNeR, BRU CRA2i MIN MeRe;.; • • 1""tYi*1F
CRA2
CKFJ DIR; $TA MCRA~ sre MCRBl STX MCRXI MIN MCRe
~DA 01 STA MeRO} C~A; SK~ Jee; BRU *+2) 6RM STep
~DA .. 11 $KE MCRCJ BRM STep
*' SAVE USE;R'S T$ Bl...SCK
~DA Rl...TSi ~TR ,'781 SKE .0, 6RU *+2; BRM STep
SKE !~OBI BRU *+2; BRM STep
MRG .7008; STA eRAS; ~RR3; peT eRAS
*'
.STep
CRA3
.
eRM CRA3
ZRei BRU *
lRel LOX •• 3777BI
~DA
377776,2; STA 337778,2; BRX *-2
371776; STA ~3777BI BRR eRA3
$KN PQU,2J 6RMTRAPBJ 6RUCRA2
ZR8
0
T5 6bBCK
ZR6 0
~OA
CRA$M
CRA5
HeRA
MeRe
MCRX
MeRO
MeRe
~Re
0
ZRC) 0
ZRe. 0
lRe 0
ENOPAC eS$ 0
E:NOF
END
RE~ABELL.ING
3PMT
*
IDENT
ENTRY
ENTRY
~NTRY
ENTRY
7/01/67
SMT,$MTE,PMT,PMTMl
QO,Ql,Q1N,Q1E.,NLQ
PNEXT/P~,PA,RL1,R~2,PPTR,PTEST/PQU/PTA8/PIM
PNXTP1/P~4/PACT1/PPTR2/PPTRU
*
*
*
THE 'IRST ENTRIES MUST BE SET re TH.E EXEC AND C6MM6N SUBSYSTEMS
SMT
DATA 40B,2Q000001B,20000002BI20000003B/2000000~BI2000000SB
DATA 200000069,20000000B
08 6/0,2f3~ 08 22,0,1,3; DB 7,0,2,3 (EXEC-l0)
DB 35,0,2,1 (XFTC.15}i ass 1
DB 20,01<13 (ODTw20); DB 5,0,2,1 (QED-Z2)
06 31101~/l (C4~.2~)1 08 23,0,*,1 (SNeBe~·31)
DB 12/1/~ll (CCS1·35); DB 11,0,2,1 (FTC-*l)
08 141 11 21 1 ( CCS 5 .. ~ 3 ); DB~31:J), 3, 1 (X BAS Ie", ~ 5 )
DB 15,113,1 (CC57·50)1 DB 25,1,3,1 (XF6S.S3)
OATA 200021106 (OJ$C.56); OATA 200003118 (W.57)
$NM~MT
$MTE
PMTM1
PMT
EQU •• SMT
SHARED MEMBRY
aS$ NSMT+SMT..
i:QU ..
EQU *""1
ass NUMEM*NJ6S
PR6GRAM MEMeRY TABLEt NUMEM=16,
.. QUEUES
QUEUE MACR6 N
$Q.N(1) DATA
SQ.N(l),Q EQU
ENDM
QO
*QTl
sQte
.Qsa
$QQE
Ql
Q1N
~QU
OATA
*
TA6~E
Q,N(2),Q.N(1)~PNEXT/Q,N(2)
GhN (1 ) ~PNEXT
Qte~QTl·PNEXT,QIe
QSQ,Qxe.PNEXT,QSQ
PATA
QQEJQSQ.PNEXT,QQE
DATA
QTI,QQE-PNEXT,QTI
PATA
(QU *
~QU Q1-1
J
Q~E
NL,Q
;;QU Ql+a
DATA GO"Ql
..
PACT TA6L.E;
PACT
6S$ NPAC*NPPAR
PACT-lINPPAR
PACT1 e;QU
POATA ~QU *
PNEXT EQU POATA·O
PL.,
~QU PDATA+l
PA
EQU PDATA.2
;QU PDATA+3
R'-1
RI.,2
PPTR
PTEST
PQU
PTAa
PIM
•
tQTIQ
$QleQ
tQSQQ
SQQEQ
EQU
PD~TA+4
~QU
PDATA+9
EQU PDATA+5
EQU POATA+6
tQU PDATA+7
EQU PDATA+8
Vl
IF'
gau
QTI·PNf;;XT
QIS .. PNEXT
QSQ",PNEXT
E:QU
tQU
EQU
QQ~.PNEXT
;NOF'
PNXTPI EQU PNE,XT+l
p~4t
PPTR2
PPTRU
tau
P~.4
£QU
PPTR~NPPAR
e;ou
END
PPTR+PAcr·p.DATA+NPPAR
3RAO
IOeNT
6/30/67
* ENTRY POINT$
RC
RAOQ
•
** T~J$
*
NRC~
EQU
ENTRY
1 CH~CK eN RAO TIMING
NRCL,RTS,RTCIRTW,RTP,RTXil,RADI2
ENTRY
RORIRADI,R~IiIRADQ,RDQUIERCL,RTX$2
ess NROQ*4lROQU EQU *J* RAO lie REQUESTS
INT~RRUPT ReUTINE.~eR A~L
IS THE RAO
RAD, liB
ZROI. CBUNT
~, RAoceMMANDI IN ~IST
ZReJ* CURRENT END OF LIST
RAOTRY ZReJ* TRY-AGAIN ceUNT06WN FeR Ie PARITY ERR6RS
ERC~
•
ROR
ZRe
~DA
CLA)
0
,11 STA ROREX,
~DA'R~TI
STA R~lS£,MIN
~DX R~l$;
STA CADO~
Ree3
iTA RAOt.l
~DA 2,2, STA RAotP~ ~DA 0/4' STA RADDRs
LOA RROJ SKN 3,2; ~DA RWR; STA RADIG
SKS* l~OOOB; 6RU *-1 (CHANNE~ REAOY)
CIR
leo 1001661 per RAOOR
R~lS
.R~lSE
RADJ
RAQJK
eRU RADIA
lRS
ZRe
lRe
SKS*
0
P6INTER re NEXT C6MMAND
paINTER i6 PREVIBUS ceMMANO
0
1002661
6RU *-1 (READY TEiT)
[eo 1002681 peT RAODR (RAD ADDREiS)
SKS* 110268, SRM RDER
(RAD ERR5Rl
SKS* 110008; BRM RCER (CHANNEL ERRSR)
$RAOIA ESO* 100Q08)
RAOIF ~eo 17~0081 per
RAOlG
(RAO AOOR.)
,eo
$TA
IF
e2666
RIA~
(ceRE AODR.)
5T6 RIBI STX Rlx
RC
~DA REA~;
CADD
iTA* PRell MIN PRell ~OA PRCl
~DA .RC1J STA PRC1
SKE ERell 6RU •• 21
~NDF
C~AI
SKE
R~ISE~
aRM RFIX
~,x
$TX
Rl.lS
~AX
R~ISe
412
,XA
SKE
6RU
*+2
L.OA
RIA
SAVE FTR. T6 THIS C6MMAND
GET peINTER r6 NEXT C6MMAND
IS THIS THE END SF THE QUEUE
N6
~'X
'~AOI
WRAP AReUND QUEUE
$TX
~~lS
SAVE PTR. r6 NEXT C8MMAND
C~A' SKE NRC~J BRU .*2; 6RU REXE
~OA o,al STA RA~eR; ~DA 1,21 STA CADO
~~A ~,z., STA RAOIF
~DA RRCI SKN 3121 ~DA RWR; ST~ RAOtG
5KR ROREX, BRU OREX (DRIVER EXIT)
~~OQU
RIB
RIX
RADI
~DB
L,DX
RCER
ROER
RCHI<
tR02A
.5<02
R02E
RIA2
REXE
DREX
N~MNO
eRI
ZRe, BRM RCHKs MIN RCERRI MIN RUERR, BRR RCER
,ReI 6RM RC.HKI MIN RAOERRI MIN RUERRI eRR ROER
lRSI STA RlA2s ~OA* RLISEI STA* RD2A
MIN RD~AJ ~OA ~R02EJ SKE RD2AJ 8RU *+31 ~OA !RD21 STA RD2A
~DA RIA2; SRR RC~K
ZR6 RD~
6SS 10
tQU *
ADDRE$S
er
RAP ERRSRS
lRB 0
NRRTI srA RADI.l; aRU REXIT
MIN RCC4; EIR, BRR RDR
SK$* 100a6BJ BRU *~1 (RAD READY TEST)
SKS* 110266; BRM ROER (RAO ERRBR TEST)
SKS* 11000B; BRM RCER (CHANNE~ ERReR)
STA RIAl sra RIBI $TX RIX
aRM RFIX
8RU REXIT
ZRel LOX R~ISEI ~DA 1,2; RSH 9; EBR ,,2; ETR -376
EBR 21<1 RSH 21 ETR F37Bi COpy AX,XA,A6i SKR RMC,2; NBP
~OA
MIN Reel
CAXI
~KR
~OA
NR~~I
3,2; ETR !778; CAX, BRM* IRT,z
NBPJ eRR RFIX
RIA
R%B
RIX
.RADOR
'tADO
RDREX
RRT
R~R
ZRB
ZRB
lRS.
lRe
ZR6
ZRe
$K$*
$K$.*
RRD
RWR
NRRT
EeO
PRCl
ZRe
ass
RCl
ERCl
o
o
o
o
RAD ADOR,
ceRE ADOR.
~
o
1~
22666
NCMND
RC
Rel
30
ZR6
*
£80
6RU
ENOF
o FeR DRIVER EXIT
100269
110266
22268
tRT
OATA RINep,RtN~P/RINePIIRS
RINSP ZRe, BRR RINep
* CHECK FeR SWAP ERR6R$
IRS
ZRS) LDA RUERRs $KG RSTEI 8RR IRS; eBPY aX,AI STA RMA,2
XMA RMT,2J CAX, ~OA 0121 MRG X~I SiA 0,21 BRR IRS
..*
** la INTERRUPT ReUTIN;
RADI2
Ne 11
RCC 1
RCC2
Rce3
RCC4
•**
MIN 121.;R I
~OA
RIAl SRI RADI2
I.DA RADI21 STA RADII ~PA RIA; BRU RAPt.l
l.Re
0
NS. BF 11 INTERRUPTS
lR6
0
Ne. eF 12 INTERRUPTS
~Re
0
Ne, 8F TIMES THRBUGH DRIVER
,RB
0
Ne. e, TIMES THRU DRIVER EXIT
GENERA~~Y U§EFU~
*
RTXSl
*
ZRB 01 STA RIA
MIN RCC21 ~DA RCC21 $KE ReC11 6RU Nelli
RAO
ReUTIN~S
ZRBs* C.SMMAND CBUNT
* RESET C6MMANO CBUNT
. ZR6i L.OA •• 11 $TA RTXS1J eRR RTP
* ENTER CBMMANO IN ~l$T AND ~ecK MEMBRY
* A! ASS ceRE ADDR
RTP
*
*
a,
,<
RAD ADOR
XI! weRD
RTC
lR8
ceUNT
MIN
$TA
iTR
XAe
STA*
l.$H
*
RTC1
BL.,BCK
RTXS1
RTTMP
,377778
t;RC,--
CXA
1;777776
14
I.DX
t:RC;1.,.
$TA
I.,DA
11 ~
19
RTTMP
~TR
1!140000B
RSH
1J+
cex
STetR[ RAO' ADDRt
JUSTIrY CBR~ ADDR. IN 8 MINUS 2 HIGH
eROER 611S
waRD ceUNT Tet A
~ErT
10
ETR
l-CY
I.S~
lNCREMENT Net 6F RAO ceMMANOS
SAVE ceRE ADDR. A R/W BIT
GET ceR~ ADDR •• 16 BITS
weRD eNT + ceRE AODR IN A
L~FT
JU$TIFY 4 BITS BF waRD CNT LEAVE
ceRE ADOR.
CX6
RTC2
L.S~
$
MRG
SKN
MRG
RTTMP
I.DX
STA
CLA
$KN
STA
~DA
I0061'7Z00B
X4
~RCL.
leSD
SKIP IF WRITE
CHANGE T6 NBP r6 DELETE EARLY 11
212
RTTMP~
MRG X4
3,2
RTTMPI RSH
I.DA
ERet.
$TA
RTXSZ
ADD
,Af,
SKE
~ROQU
IS THIS THE
~ND
Br THE QUEUE
B~
•
RTW
RTX$2
RTTMP
*
RAO
RTS
RTSl
6RU
I.DA
*+2
=RADQ
51"
e:RC;~
L.OA
lINROQ·Z
SUB
SKG
RTXS1
BRU
*·1
eRR
ZRe
RTC
X~
eR~1
RTC
eRR
RTW
ZRe
• WRAP AReUND QUEUE
NRCL
MRG
~Re
N6
Y~S
0
0
WAIT FeR QUEUE rB EMPTY A BIT
SET FeR WRITE
PREvteus ceMMAND P8INTER.
START
ZR6J ~PA RTX$11 $KA X4~ 6RU RTS11 ADD ;11 DIR; XMA
EIRJ SKE •• 1~ 6RU RTS1i ~DA -NRTRV.1J STA RADTRYI
BRM RDR
BRM RTP~ BRR RTS
ENO
NRC~)
ADM NRCL
3RUP
ID~NT
STRtNG AND
*
selT
SWCI
sela
IF
SF'Q
t)PD
6PD
S6RS
ePD
e~D
*
MACR6
(AX
6RM
ENDM
7/30/66
V6 .
134000006,1,1
157000QOa,l,l
16100000e,1.,l
173000008,1/1
163000008,1/1
A.
A ( 1. )
GCU
B,RS 33
tGETS'fR 8T6
STX
E'fR,
C;AX
\.:DB
SKA
GSIN1
GSIN3
~'f.0037777B
11 Q
I;40000Q006
STe
0,6
E.AX
0,6
STX
GSIN2
GSIN3
GSIN2
GSIN3
GSlNl
SClS
GSIN4
SVSP6PS
~NDF
SSKSE
UGCI
6/~0/67
~~BATING paINT
SWCI*
sere
SKE
SYSPBPS WITH 6IT 0 REMeVED •••
••• FBR USE BY S.YSTEM MBDE ROUTINES
6R\J
0,6
t.,OB
L..DX
GSIN~
BRU
*
1,6
EPBPX
eRS 34
.eUTMSG sra
TYM2
GSlN~
~DA
STR63
MUI,.,
;;3
l..SH
sue
23
;:1
SKN
$TR63
6RU
TYMa
1.06
'1~777'B
6RU
CAB
ADD
NeT SPECIAl.. MBDE
STRe6
STR83
XA6
SRU
*
$TR66
6RS 35
.eUTSTR ADD
STX
$TRe3
STRfJ6
l!!!O
AOD
STR81
STX
ETR
:;1777776
STA
STRS2
CBA
ErR
STROI.t
,0
$T4
UGCI
6RU
SKN
6RU
.1777776
$TRS21
STRsa
STRe8
STRB3
STR87
CL,EAR X'D
C~~AR
X\O
$KE:
BRU
STRBS
STReS
\-OX
STR81
SKE
e:PBPX
.4
BRU
BRU
STRe1
,178
STR6S
STRB7
L,OA
~155B
IF
V6
$1<3
,778
BRU
STRB7A
SKE
~147B
eRU
aRU
SKE
*+2
STR87A
!II 155B
*+2
STRB7A
SRU
f3RU
SK~
lJ152S
eRU
*+2.
STRB7A
~IF'L.G ZRe
$DF~G
ZRO
.Pl.-US ZR6
.• MINUS ZRe
.PERleo ZRe
$EEE
ZRe
sENOCHR ZRe
$"F'1.
ZR6
.,FA . lRe
,r:FX
lRS
.eUTSX %RS
$RNOX ZRe
SRL.IT&;X ZRe
.Flew ZRe
SA 1
ZRO
SA2
l.R6
tA3
lRS
tlSI.INK ZR6
$ERRNUM ZR6
IF
sRI-Vi
lR6
$TL,V1
ZRB
sTI.Vl1 ZR6
sRI-Va lRe
$TI.V2 lRe
tTI...V21 ZR6
V3
.TL.V22 ZRe
tTl-V23 ZR6
sRL.,V3
$TL.V3
$RLV4
$TL..VI+
tSW8Ff:
$SWTM
$eVFP
$PJ
$PJ2
ZRB
ZRe
ZR8
lR6
ZRel
lR6
ZRS
ass
ass
s,PJ
tQU
$MTIMe: ZRe
sCTIMe ZR8
$RTIME. ZRS
$L.ETP
lR6
$OTEMP e:QU
tOTEMPE EQU
*CTME EQU
SDTMEl EQU
.",ETEN EQU
ENOF'
ENO
~
2
*
o
o
o
a
USER'S VALID TJME PARAMETER
ACCUM. COMPUTER TIME.
ACCUM. REA~ TIME
L..ETTER PBINTER
F'BADR+2·34QOOB
DTE.MP+64
OTEMP+121
OTEMP+128
OTEMP+Z66
3TTY
lDENT
6/30/67
* ENTRY P6INTS
~NTRY
TTYEMG,TTYASG,TTYT6L,ETO,TTNB,FULST
~NTRY
TIS2/TIS4/TIS5IT6S2,TBS3/T6S4,TeS5
~NTRY
ENTRY
ENTRY
E.NTRV
ENTRY
ENTRY
~NTRY
IV
ENTRY
~NTRY
t~$F
ENTRY
*
ENOr
TTYFLG/TTV6RK,TTYTIMITTY~NG
rTYBUF
ATIS2,ATIS_,ATlS5,ATTBUF
TseFF,TII,T61,ATII,TseNM,TseNI
FTet/FTee
CIB,C6S,SKI,Dee,CET,RDET
SET8P,CLR8P,GATX
V1
CARRY
T~I,TNI/TIDM~,'R§WITREC,TIPIXITTyeN
1
~TIS2/~TlS4,~Tes2'LTas4/LTTBRK/LTIS5,LTes5/LFI,LFe
TAB~Ei
INDEXED BY TE~ETYPE NUMBER
NTTBI* CHAR ceUNT feR TTY INPUT SUfFER
TI$4
ess NTTS}* INTERRUPT INPUT BUFFER petNTER
TlS~
ass NTT8;* TIS INPUT BUFrER PBINTER
1eS2
eS$ NTT6i* CHAR ceUNT FBR TTY eUTPUT BUFFER, -1 ~ INACTIVE
T6S3
ess NTTB;* MU~TIP~E 6LANK CBUNTER. X2 IF NEXT CHAR IS CBUNT
Tes~
ass NTTB1* INTERRUPT OUTPUT BUFFER PBINTER
TCS~
ess NTTB;* Tes SUTPUT SUFFER paINTER
TTYTB~ ass NTTBi* ECHe TAB~E AND AsseRTED F~AGS
SETTVTB EQU TTVTB~+NTTY
TTYP~G ess NTTS,* + I~ SUFFER FULL 6R TELETYPE UNUSED
TTVBRK ess NTTBI* -1 IF WAITING FeR BREAK CHA~I + IF NBT
TTYASG ess NTTB;* TTY eWNERSHIP STATUS
*
peRK T6 TERMINATE IN CASE eF Rue6UT.
TTYREC ass NTTBI* STATE C~ANGE REceRD
IF
~V8
RI~Cw
ess NTTBI* REL. INPUT ~cw
$ER1~CW EQU RILCW.NTTV
Re~cw
ijSS NTTBJ* RE~. eUTPUT LeW
.~R6~CW EQU Re~CW+NTTY
AX~CW
eS$ NTTB~* ASS, INPUT ~cw
T162
ess.
$EAtLCW EQU
At~CW+NTTV
A$~CW
BSS NTTBJ* ASS.
$tAe~cw EQU A~~GW+NTTY
eUTPUT LeW
ENOF
TTYTIM ass NTTBI* TIME AT LAST RueeUT
TIISS eSG
NTTB
PREVIOU$ C~AR. AND
*
* Joe
TTN6
.~TTNe
F\JL.ST
*
*
*
~
TE~gTYPE
ass NJBB
INDEX
F~AGS FeR SPEC. CR/~F ceNT,
NEG, IF AT L,EFT EDGE- X2=NB CR SENT,
tQV TTNe.NJ6S.1
,Re
TE~'TY~£ EC~O TAB~ES
(CHe PARAMETERS: A(l).S BIT BYTE, A(2).N6, SF REPEATS, A(3)-INCREMENT
8 6IT eYTE: eREAK IF BIT 0-1, Ne ECHe IF CHAR.~l
Ne:C~R
i;QU
(TO
ass
ECHRWO EQU
iCHR
0
01. ECH6 EVERYTHING, BREAK
ECHB
0
aOl/6,O
iCHR
212
20.,2,0
ECHR
ECH6
~CHB
i:CHR
~CHa
ETl
a
ECHB
eN
EVERYTHING
207
201,2,0
21~
201,18,0
2'+0,64+11
ass 0;* ~CHe EVERYTHING, BREAK eN PUNCS AND CTRLS
ECfw4R
Q
£CH6
ECHR
!Ol,6,O
~07
ECHB
201,2,0
~CHB
201,2,0
ECHR
e;CHR
ECH6
f;CHR
2la
Z15
201,18,0
0'+0
E::CHB
2'+1/15,1
~CH6
060 .. 10 .. 1
212,7,1
101,26,1
f;CHB
ECHB
ET2
ECHB
ass
E;CHR
0
~CHB
~01/6/0
ECHR
207
ECHR
ECHB
212
~Ol,2/0
~CHR
i15
tCI-oIR
04+0
ECHB
iCHB
ET3
333/5/1
0;* ~CHe EVERVTHING" BREAK BN CTRLS eN~Y
201/2/0
201118,0
ECHR
241
;C~6
01+2162,1
ass 0;* ECH5 NBTHING, 6REAK eN EVERYTHING
tCHR
0
ECHB
* TELETYPE
201,95,0
BUFF~RS
TTYEMG DATA
TTYEWM
RPT NTTVl 0 NTTVCJ ENOR
EQU NTTY*NTTYC+NTTY+2
EXT
~TTY.l
EXT
~OOOOOOOB+AM6+APe+ETO
TTY~NG
~TTY
~TTYMl
ITTB~
** INPUT ANO ECHB CHAR!S:
* eUTPUT CHAR'S; BIT 0.1
TTYBU'
ass
~TTYJ*
BIT 0.0
TELETYPE lie BUFFER
** 'TIt' 1/30/66. ~9 CYC~E$
** T~lS RBUTINE PRBCESSES TE~ETVPE INPUT INTERRUPTS, AND PUTS TH~
*
CHARACTERS INT6 A BUFFER FeR THE 205 INTERRUPT TO PReCESS
*T I I A
TI19
TIIX
T1181
Tll$2
lRB;* SAVE (A)
%F
.ARMF"
lRe
ENor:
ZR6, .. ~AVE ex)
ZRSI. TE~ETYPE 'PIN' weRD
ZRe;* lNPUT CHAR AND TE~ETYPE NB.
Tl1S4
TllSV
TIel
*
TIl
*
Fl~£
TIl-
•*
l,R6i* ECH6
IF
ZRB
iNOF
1
V6
0
SAVED CHAR FeR SPEC.
CR/~F
TIP
ZRB; TTYS; PIN ilIS1
IF
V1
MIN TIICTR
ENOF
STA TltAI $TX TIIX
~DX T11511 CLAJ cepy XA,E
$KG .NTTY-l, BRU *.2~ BRU TI14 (IL~EGAL TTY INP)
~DA WERl$,2i SKG =~1; 6RU TI14 (TTY NeT BN)
CHARACTER FeR ATII
MIN ATlS5J LDA. ATlS51 SKA I?006J ADM ATIS5
STX* ATI$51 MIN ATlS~ ,
IF ARMFi ARMl SATIW; ELSF 1; BRM ATII) ENOF
~OA TI%AI Ir -ARMr; ~DB TII81 ENO's ~DX TIIXI SRI TIl
tATI!'
5/18/66
*
* THIS ReUTJNE 15 STARTED BY A PERMANENTLY ACTIVE
* LeW.PRIBRITY INTERRUPT T6 FINISH UP FeR TIl
*A11$2
ATlS4
ATtS5
ATTBUF
ATt!A
ceNTRe~
ZRB;* ATII RING eUFFER ceUNTER
ZR6'* ATII READ6UT POINTER
ZR6,* WRfTEIN P6tNTER
ess.
IF
30lATTBE DATA .30,* RING BUFFER
ARMF
ZRBJ* SAVE
(A)
AlIta
ATI1X
lReJ* $AVE (8)
ZRe)* SAVE (X)
SATIW
RATIW
OATA 2020008J* ARM ATI tNT
DATA 57571761* DIS.RM ATI INT
SATXw
RAT1W
DATA 20040091* ARM ATI tNT
DATA 57737781* DtSARM ATI INT
IF
Vl
~~$F
1
[NOF
ENDr
*
ATII
ATlt
IF'
ARMF
ZR6s ARMl RATIW; SKN ATIS21 6RU *+2; BRI ATII
Sf A AflIAI STB AT1%BI STX ATIIX
1
ZR6; SKN AT1S21 BRU *+21 BRR ATII
E:L.SF
E:NOF
ATlll ARMI RATlWJ MIN ATIS4
AiI11A ~OA* ATI$~I SK~ ATTBEJ BRU ATIIZ
ADM ATlS~1 6RU ATIllA
ATIt2 $TA Tl1521 COpy AX,AS,., ~CY 81 $KN
AT113
~l
13
ATI16
IF
ETR ,17781
ijRU ATll6
$KG ~1376'
$KG .17661
-:EtM
1
BRU T1l6
SKG -3761 SKG -326, 8RU *+2
(CBNTR6L.SHIFT K, ~TC,)
BRU TIll
SKG .li381 6RV ATIX
:i:~41'7e. SKE *1??6J
,E~
~DA
TTYTB~/2;
V3
TTYASG/21
* PReCEis RUBOUT
~DA REA~1
~KA
SRU Tt 11
=200006J BRU *+21 BRU ATIX
MRG .400000006;
SUB TTYTIM/21 eNA
XMA
TTYTIM,21 $KA .400000008
SKG ~101 SKG ·~1J BRU *+31 LDA •• 1, STA TTYTIM,2
• SEARCH P.u. QUEUE
~XA) ETR ~77B; STA TllS2; ~DX PUSPTR
AiR!
CXA; SKE ·PUBPTR; 8RU ATR2
IF
VS
~DA TI1S,; CAX~ MRG !300000BJ CAB; LDA TIe1
e:~SF
1
~OB TltSaJ ~DA TtCl
~NDF'
ATtx
DIRi BRM EPUI MIN ACTRJ MIN ACTPU
SKR ATIS2~ BRU ATIll
IF
ARMF
~D4 ATlIAI ~DB ATIIs, ~DX ATlIXl SRI ATlt
~L..$F
1
eRR ATII
ATR2
* NeT
TIll
TIllE
~NDF
2,2; ~DX 0,2, SKE TIC1J BRU ATRl
CBA; ETR -7761 SKE T11521 6RU ATR1J 6RU ATIX (GeT 8NE ALREADY)
1.0. 1 .. 2J ~DB
SPECIAl.
SKN
eRU
iTA
SKG
SRU
L.DA
E.:TR
MRG
STA
\.OA
MUI.
ADO
TTYF"L,.G,2
ATIX
TIISV
SAVE INPUT CHAR,
11S6
CK IF POSt ~F 6R CR.
TIllF
YES
11155 .. 2 SAVE CURRENT CHAR AS PR[vteus.
!10000000B
SAVE ANY FLAGS
iIISV
TIIS5,2
TllSV
REC6VER INPUT CHAR.
'125252538
OIV, ev THREE
TTYTBL,,2
CAXJ I.PX 012 (~CHe WBRD IN X)I Ley 5J ETR ,308 (SHIFT IN A)
Xe,AXJ ~CY a,a; C~61 Rey 6 (ECH6 IN B)
~DX Tl%S~1 CXAI ADO X3 (SUBTRACT 2406)~ ETR .37600000a
iKe ,,314000008, SRU TI116 (Ec~a AND F!~E)
$Ke 13760000061 eRu Tlto (FI~E W/B (CHS)
8RU Tlt1A (IGN6RE EX,EPT peR BREAK)
~epy
TJllF
IF'
SKG
eRU
V6
1118
Tlll~
I.DA
Xi
SKA
TlIS5,2
eRu
,-o4
TItlE:
CK FeR PBS CR BR
~F.
NS
CHECK FeR
F~AG
TS INHIBIT
CR/~P
SUPPRESS.
FI,.AG SET
T 1 ISV
_12e
•• 3
N6
!156
PREPARE T6 SEE IF PREV.CHAR WAS CR,
§KE
aRU
TItlE
\,,0 A
NeT EITHER CR SR br
~128
$KE
lH~U
L.OA
6RU
TIllG
'156
CK FOR I"F.
CI( iF CR.
TJ11G
~D6
GET MASK r6 IGNORE rLAGS
CK IF PREY. CHAR WAS eppeSITE CURRENT
N6, USE CURRENT
TII$~,~
YES, SAVE CURRENT
,10000QOOB
SAVE FLAGS
T t ISV
-3178
11155,2
TIllE
$KM
6F"
:'
...l1-1-N--T-FlCT-R--;---€A-)(·..
D
( , f:
MRG " 200006 1ST A TF 151 0 l R I ~-~ I SKG WE R IS .. 2 J BRUT r I Z
EIR~~RU TFI"l __
~OA 1~3J EI~; STA WERISI2J LOA R~A~'
~DA ,-1; STA r8S212; MIN TFtAC; MIN
~DA
TF'13
CAB;
STA TTYTIM,2
ACTRI MIN ACTPU ~
INPUQ.1; SKG PUCTRI BRM MaNeR) CXAI MRG ~200000~
~OA TIel; DIR; aRM EPU
TFlS, ETR !77BI CAXJ ~DA -.8
OIR; BRM TREe; TTY$I ~eT TfIS
.
~DA
~~~ 1.0?rTYASG,ZI
I.D8 -10000081 SKE ADMSKI LoDS
xe, EI STB TF S J TTYS I ~eT TF'I S I SKE ADMSK
~D~ REA~; STA TTYTIM,2J CX61 LOA TFC1; DIRI 8RM
Cf1fY
i
%
END'f
T'11
~DA
TrIAl
~DB
TP%B;
~DX
,12000Q8
BRU *+2; BRU T~ 11
EPU
TFIXI SRI TFt
*
•
*
*
*
*
*
tF
V5
'TREe' 1/3/67
*
TREe
TREC3
TRECA
TREes
THIS ReUTINE RECBRDS THE STATE CHANGES IN TTY ~INES.
OIGIT CHANGES.
2,ON INTERRUPT, Ol6FF INTERRUPT, 4.AN$WEREO. l-CARRIER ON.
INPVT: A~STATE 6r LINE, X~TTV NUMBER,
~eWEST eCTA~
ZReJ STA TRECAI STe TREca; ~DA TREe1; SKN TRECA
ADD TR~C2i STA TREC3~ LOA TTYREC,2, bRSH 3
~OA TTYRgC,2i ~S~ 3
MRG TRECA} STA TTYRECI~; LOB T~ECBI EIRJ BRR TREe
~Re 0
ZRB 0
TREe1
TREC2
*
** BRS
ErR TREeA
g6M 0
B~.6
TTV6N
A~TTY
IF
~KN PQU,2~ BRM
* INPUT:
TTVSN
TTye~r
TTe9
*
**
Ne,
e
~ES$ THAN Z~Re, TURN TTY eN,
TRAPS; ETR .77B; MRG .100000B
SKN $502; BRU TTV6FFi SKN DeWNi BRU *+2; BRM TRAPS
STA TTB9J CAX, SKN WERIS,2J BRU P6PX
TTYSi per TT691 ~OA 141 DIRJ BRM TREes BRU PBPX
MRG ,200Q09; STA TT69
TTYSJ per Tr691 ETR -77BI CAX; LDA .-5
DIRi BRM TREe, BRU PBPX
ZRB 0
BRS 126 (eE*3)
CARRIER TEST
* INPUT: A-TTY Ne.
* RETURN; N6 SKIP; NO CARRIER
*
CARRY
CRV3
CRY2
*
**
•*
*
*
SKIP: CARRIER PRESENT
SKN PQU,21 BRM TRAPBI ETR ,778; CAXi MRG CRY!; STA CRY3
SKS* 36200e,ZI BRU pepx (NO CARRIER)
~DA ,11 DIRI SRM TREtl MJN 01 BRU P6PX
SKS* 362006/2
ENOF
'TI'
9/2.165. 31
CVC~iS
T~IS
•
1161
*
Tl
Tt5
R6UTINE GETS A
A 'PTEST' weRO IF
Dt~AYED
E,Hes,
ZRS,. iAV£ CHAR
N6RMAlLY
C~ARACTER FReM TE~ETYPE
T~I$ IS NBT peSSIBLE.
WH%~E
(X), OR CREATES
IT .Lse PROCESSES
TVPING E'He
ZRes ~OA T1S2,21 SKG -01 6RU T13
MIN TI$5,c; ~OB* TlS5.I~} SKB =2008; BRU T12
C~AI ~cv 81 SKS .1740061 BRU TIl
TI7
$KR Tt$2,21 ~oe '·1} ST6 TTYF~G/21 8RR TI
TI2
,SA; AOM TIS5,ZJ BRU T15.1
* DISMISS
Tl3
,XA
~De XX; STe TTYBRK,2; ADO f60000QB+TTV6RK; CAS
* PRINT
TIl
T%6
MIN
TI~
DE~AYtD
eRR TI
E'HB
iTA Tl$11 ~Cy 16l ~oa ~11 SRM T61 8RU T16 (BUFFER NeT
~DX rBSSI $KR T1S5,2; MIN TIl eRR TI
~DA TIS1; BRU TI7
FU~L)
*
* 'TC!'I'rTC!"'IST"'I$TC"'brU'I'~Flt 6/28/66
** THI$ IS T~E V$ER JNTERFACE FeR TE~ETYPE INPUT
•
Tel
P6PD
174000006,1/1,0,1
STB $S021 STX $5031 ~DX UTTYI BRM TI; BRU TCIP1
TIOMS ~DA '-11 STA TIMtl STA TTIME
TleOMS ~OX ,QTlI SRU P6POMS
TCIP1 ~DX S5031 $TA* 0, boa 5S021 SRU XP6P
FTCI
~DX UTTY
FTJ
aRM TIJ BRU *+21 BRU TIDMS) STA TJ BRR GPW
popo
150000008,1,1,0,1
1ST
IF VBI BRM TRAPSI EL$F 1
ISTP
ST6 iS02J STX SS03s ~DA* 0, BRM GATXI aRM TRAPS
aRM TIl 8RU *+26 BRU TlDMSl ~D6 S5021 ~ox SSQ3s 6RU XP6P
ISTe ~DA UNIT; BRM GATXl aRM TRAPBJ BRU ~TI
ENDF
TCIP
*
• 'STl'
••
2/6/66
SlMU~ATE TE~ETYPE
*
STI
STIP
STJPl
INPUT
P6PD
136000008,1,1,0,1
STA 5S011 STB $502, STX $503
~DA. 0, SKG --11 ~DA UTTY~ STA UNITJ CAX
$KE UTTV, BRU *+2; BRU 5TIPl
~DX PACPTR, SKN PQU'~I BRM TRAPBI ~DX UNIT
~OA Tl$2,2J SK~ =01 6RU $Tl~~
~DB
STIP2
SS01J ~SH 401 MRG UNITI ADD Xli CAX; DIR
MIN ATlS51 LOA. ATIS5i SKA -200BI ADM AT155
ilRJ STX* ATI551 MIN ATtS2
IF ARHfJ ARMI $ATIWI E~SF 1; DIRI aRM ATltl EIRJ ENDr; BRU P6PX
CXAJ ADD -100000e+TI521 CABJ BRU Tt6DMS
** 're'
9/26/65
**
THIS R6UTINE TYPES BUT THE CHARACTER (A) eN TE~ETYPE (X),
CREATING A 'PTEST' WSRD IF THIS IS NeT P6SSIBLE. IT TAKES
* CARt eF LINKED TE~ETYPES AS WEL~.
•
•
TeSt
T6S8
TeSS
ZR6,* eUTPUT CHAR FeR STARTING UP TE~ETYPE
ZRBI* TE~ETYPE 'Te' WAS CALLED FBR
ZReJ* NUMBER eF CHARACTERS T6 PRINT
** INPUT.
A.C~AR. IN TTY ceDEI a~Ne. SF CHAR'S, X~TTY Net
• eUTPUT: B~PTEST lr BUFFER IS FULL.
* SKIPI BUFFER FU~L
* N6 §KIP; 6UF~ER NeT FUL~.
Te
lRe, STa TeS9; STX TesS, ETR .37761 MU~ -200B
~OA TTY~NGI21 sua T9$91 ~KG T6$2,21 BRU Te~
• NeT FU~~ BUFFER
OIR} SKN WERlS,21 eRU *+2; BRU r661 MIN TBSS,2
~DA* T06612; SKA ~~OOBI BRU res
ETR ~77600377el CNA; cepy aA,Ni STA* T6S5,2
$KN 16&2,2) 6RU T63; CXAI ETR 17161 MRG 'l~OOOOB (81TS 8,9)
STA TeSll ETR .,761 MRG !TTVSKSJ STA •• 1
SKS* 37000,21 ~RM MCNeR; TTV$J P~T T6S1; MIN re52'4
MIN TeS2,2
Te3
[IRs eRR T6
Te6
185
ADM T6$S,2; ~DA* Te85,2; BRU re2
*
FUL~
Te4
*
*
BUFF~R
CXAI ETR .778i ADO =3000006+T6$2J CAB
MIN Tel BRR r6
IF
• CHECK FeR
~vs
~INKS
T~6
Te~l
TeL2
Te~3
~.• D.A TT. YTa~I. 2.' SKA ,. . e~BJ BRU r6L1J. BRU. . r67
ST8 TLMBJ ~CA ~TeL2J 6RM TL6M; LOX TBS8; LOA =T6L3; BRM T~BM
~OX T6SS1 eRR r6
ZRe, LDA TTY~NG/2J SUB TBS9J $KG TBSZ,iJ BRU T6_; BRR Te~2
lR6i Loe T~M6J 9RU T67
** tT~eM"'T~IM' 1/30/66
*• MAP LINK W6RDS
*T~MA ZR6,* SU6ReuTINE ADDRESS
T~Me
T~MW
*
T~eM
T~M1
T~M2
T~Ma
T~lM
'ReJ. SAVE B
lR6,* 5AVE LINK W6RD
ZRS; LOX AeLCW,2
$TA TLMAI CXA
SKE .0, 6RU
TLaM
T~M31 eRR
~R$H 11 ~ox ·2~i Nec 23;
~Cy 2/21 STS T~MW; aRM*
ZR6J Loe T~lMJ STB T~eMJ
E.NDF
E6R X2
TLMAJ ~DA TLMWI 6RU TLM2
LDX AILCW,21 BRU TLMl
** 'TSF"'Tce','rrce'I'6ST'I'5STC','LF6'
**
THIS IS THE USER INTERFACE FeR
TE~ETYPE
6/28/66
eUTPUT
*
* INPUT: A-CHAR" X-TTV Ne.
TeF
ZReJ SKN TTYTB~12; BRU T~F~
TeF5
~De T663,21 SK6 X41 6RU reF1l $KB X21 STA T6S3,2
TeF2
$KR T6S3,2) BRU .+2, BRR TeF
TOF3
Te'3A
.1, ~OA ~2~061 BRM TBJBRU rBF2
MIN T6Sa,2; BRU 16QOMS
SKE =.1356J 8RU TeF3; LDA X2J STA TBS~,2J BRR TeF
~DB TTYTBL/21 SKB -BPBI BRU TBF3A; BRU TeF5
ADD ~240B
~DB ~11 aRM Tei eRR Te~i BRU I6QOMS
*
Tee
Tcep
P8PD
11500000a'1'~'O'1
$TA SSOli STB SS02J STX SS03i
~D8
T6F1
TeF~
~DA4
01 ~DX
urrv
eRM TeF; 9RU PBPX
FTee
UTTY
SS01J ETR .317B; STA T; BRM TeF; BRR GPW
pep-o
15l000Q06,l,1,O,l
IF V81 aRM TRAPSI E~SF 1
STA SS011 STS SS02i STX SS03i ~DX* 01 BRM GLTT
~DA SSOli BRM Ter, BRU PBPX
~DX UNITJ aRM GLTT~ BRU Fro
iNOF
~DX
~OA
eST
eSTP
eSTC
*
** 'C1B','C6B','SKI,,'06B','CET','RDET'
••
THE~E
**
BRS 11
cts
**
6R$
cee
ROUTINES
MANI~U~ATE
10/18/65
TELETYPE SUFFERS ANO ECH6
TAB~ES.
ClEAR INPUT BUFFER
~OA TIs5,21 STA Tls.,2
'-i} STA TTYF~G,al C~AI ~IR; STA T152,8; BRU PBPX
aRM GATTI OIRI
~OA
C~~AR eUTPUT BUFFER
aRM GATT, SRM C~6BI eRU PBPX
2~
** 6RS 13
SKI
SKIPS IF INPUT BUFFER EMPTY
BRM GATT; ~DA Tl$2,2, SKG .01 MIN OJ 8RU P8PX
** 6RS 14
Dee
**
eRS
C~T
C£T4
CiTe
**
OISMISS UNTI~ eUTPUT BUFFER EMPTY.
eRM GATTI SKN r6S2,21 6RU .+2, BRU P8PX
CXAJ AOD .,200000e.T852; CABs ~ox ~QTll BRU PBPDMS
CHANGE E~He TAB~E
eRM GATTi ~DA SS01s SKG ~.lJ BRU CET1; SKA =(NBT)3; aRM TRAPS
C~BJ L.§H 51 ADD ~ETO
DIRJ XMA TTYTB~/2J ETR .377~ooooa.8R6.8pe
ADD TTYTa~12' ErR; STA TTVT8~,2J SKA -SPS+SR6.+IL6+6LBi BRU pepx
~DA X~J ADM TTYT8LJ21 6RU PSPX
~TR f371e; MRG -8Re; BRU CET¢
1~
BRS 40
READ ECHe TASLE NUMBER
RCET
aRM GATTI ~DA TTVTBL,2J SKA .. 8RBi 6RU RDETl
sue
~TR ADMSKJ R$H 5
BRU P6PX
* 8.~EV;~ INPUT. GET TERMINAL CHARACTER,
RDETl ~TR 831781 MRG X4J BRU ROET2
RPET2
6TA
IETOI
~SOlJ
** 'MsaS','ASTT','RSTT'
** THESE RBUTINES CHANGE
* STATUS Br T~~ETVP~S
*
MSGS
1/30/66
THE ACCEPT MESSAGES BIT AND ASSIGNMENT
"
.VB
aRM GATTI C~Aj LOS SSOll SKB -1; ~OA -AlB
$KB
MRG .AMB; DIRi XMA TTYTB~J2
~TR .(NeT)AMB(ANO)(NeT)AI61 EIR) ADM TTYTB~J2i BRU
.a,
pepx
*
*
• NBT tMP~EMENTED
ATTACH TE~;TYP~
• SRS 21
ASTT
$KG wNTTY-1J SKG •• 1~ SRM TRAPS
cepy Xe,AXi ~DA TTVASG,21 SKE AOMSKJ 6RU PBPX
*
~DA
~OA
Jeel
STA
TTVASG/~i
LOA
.~00000006+AMa+APB+ETO;
.-11 STA TTVFLG,2J MIN 01 BRU PBPX
~E~EASE TE~ETYPE
6RS 28
SKG ~NTTY.1J SKG ~.11 aRM TRAPS
eSpy xe,AXl ~OA TTYASG,2i SK~ J.BSJ BRM TRAPS
aRM TT6FFs 8RU FB?X
R$TT
ENDF
•*
** tTTeFFt/GATT"'G6TTt"C~~B' 1/30/66
** THESE RBUTINES TURN TE~ETYPES er~' AND CHECK THE LEGA~ITY eF
* lIe AND LINK REQUESTS
*
TTeFF
ZRel C~AI STA TTYF~G,2i kDA ADMSKJ STA TTYASG,2
~DA
!40000000B.AMB.ETO~
eRR TT8FF
*
STA
TTYT8~,2i
6RM eLBB
•
• INPUT; SS03!TTV NUMBER
GATT
ZR6J LOA SS03; BRM GATX; BRM TRAPS; BRR GATT
**
C~ECK$
GATX
GATXl
*
*
FeR ~EGAL TTY Net CHANGES -1 TO UTTV,
ZRBJ SKG .NTTY-1) SKG ~.2J 6RM TRAPB; SKG .-1; LDA UTTY
~DX PACPTRi ~DB PQU,Z; CAX
SKE UTrYI SKB X~I BRU GATXl
~OA TTYASa,21 $KE Jee; BRR GATX
MIN GATXi BRR GATX
lP
~V8
ZR61 CXA, BRM GATX, 6RU *+2; BRR G~TT
~DA TTYTe~,21 SKA !AM61 eRR GLTTI aRM TRAPS
ENOF
G~TT
*c~eB
ZRe; LDA ··1; $TA r6S3,ZI OIR) SKN reS2,2; 8RU
e~ee1
EIR; eRR
CLSI STe T682,2; EIRI
eRR C~~B
~DA
** 'S£T8P','CLR8P' 10/18/65
•* THESE R6UTINES IMPLEMENT THE
*
c~eBl
c~eB
eyTPUT
TeS4,21 STA TeS5,c
SPECIAL, PULL 8
~EVEL
TE~ETYPE
*
* eRS 85
SET8P
eRM GATT, ~OA !8pe} $KA TTYTSL,21 6RU
ADM TTYTB.~'2J $KN TTYT6L,2i BRU P6PX
~DA X41 ADM TTYTB~,21 8RU P6PX
* eRS 8,
C~Rap
**
*
•
pe~x
6RH GATTI ~OA !-SPBJ LDBTTYTB~,2
iKe ~8pe, ADM TTVTBL,cJ $K6 18RB.I~B.e~BJ BRU P6PX
~DA X., SKN TTVT8L,21 ADM TTYTS~12J BRU PBPX
'~NKC"'C~CW'ltCLCB"'LNK$'
C~EAR,
2/6/66
RECBMPUTE, AND SET LtNKS
*
R~CPTR
A~CPTR
C~CW!
C~CWJ
*.
~NKC
LNKCl
*
C~Wl
IF
ZRB;*
,Rei*
,RBI*
lRB}*
.V8
paINTS T6 RE~. ~Cw TABkE
PSINTS r6 ASS. LeW TAe~E
6IT ceUNTER
weRD CBUNTER
aRM GATTA STX TI LOB -1; ~SH 24/2
eSpy Aij/NJ LOX .~NTTY
SK8 ER1~CW/2J AOM ERILCW,2
SKB ERe~CW'2J ADM ERBLCW,21 BRX ~NKCl
~DX TJ SiB RILCw,21 5T8 Re~cw/~
~AX C~Wl; 6RM c~cwJ EAX c~wel BRM CLew
eRM CLGBJ BRU P6PX
C~CW3
c~cw~
C~CW2
C~CW1
lRB RI~'W/2; ZRe AILCW/2; DATA AIB,AKB
ZRB R6LCw,2; ZRe ABLCW/21 DATA AMB,APB
,Rei ~DA O,el ~DB 1/~J STA R~CPTRJ STS A~CPTRi LOX =NTTY.l
~DA* RLCPTR; STA* ALCPTRI CXAJ EAX -1,2J SKE -01 BRU C~CW5
~OX ,NTTY-1J STX C~CWI
~ox !NTTY·ll STX C~CWJ
~DX CLCWJJ LDA* ALCPTRI ~DX CLewli Rey 0,2J SKA ,11 BRU CLCWl
SKR CLCWJJ 6RU C~CW41 SKR CLCWI; BRU CLCW3; BRR CLCW
~DA* A~CPTR} LOX C~CWJ; MRG* A~CPTRJ STA* ALCPTRI BRU CLC.W2
C~CW6
~.NTTY
~OA ETTVTBI2~ ETR
c~we
c~cw
C~CW5
•c~ca
ZRei LOX
'I~B.e~Bi
CNAi ADM ETTYTS,2
BRU C~CW6A
C~CW6A
C~CW7A
aKB
6RX
~$H 24.NTiY,Zi SKE EA!~CWI2J
EAe~CW/21 6RU C~cw7A
X4J ~OB
SKB X41
!8RB.8P8+ILB.e~BI
CLCW6J 8RR C~CB
~DA
,e~81
lNKS
aRM MSPi DATA OJ BRU LNKSA
~OB
C~CW7
C~CW8
•
SKE
~DA
.1;
ETTYTB,2i
CAe; LOA
END~
ENOTTY BSS 0
ADM ETTYTB,2
BRU *+21 ADM ETTYT6,2
AOM ETTYTS,2J CBAJ BRU CLeW7
ADM ETTYTB,2i BRU C~CW8
.I~6J
END
6/30/67
3W
lDENT
• ENTRY POINTS
RTX,PNX,TRX,TWX,T2K,CPX,CPXB,LPX,CRx,CRxe
~NTRY
MTRBPN,MTW6PN
ENTRY
PNEeR,MREW,M~Sr,M8SPIMeSR
ENTRV
~NTRY
MEeRIMEer,MERS,MER~
tNTRY
TRTW,CrTW,CRTW
** 'tNT31','tNT33'
•
* W BUFF~R
p,
D~UTSCH
9/1,6/65
INTERRUPT R6UTINES
*•
THE W BUFFER OR1VERS AND INTERRUPT ReUT1N~S HAVE THE F6LL6WING
C6NVENTI6N$. IF THE R6UTINE SKIPS URBN RETURN, IT
* HAS FAILED. A FAt~URE USUAL~Y eCCUR$ IF THE DEVICE ADDRESSED
* IS NaT READY FBR S6ME REASBN. IV THE RBUTINE RETURNS WITHBUT
• SKIPPING, TH~N IT HAS $UCCEEDED IN PERFBRMING THE TASK ASSIGNED
*
* Te
•
tTl
*
*
** PAPER TAPE. READER AND PUNCH DRIVERS
*RTX
ZRBI SETINT RTf' ~OA leBI ADO -RTCNT*40000B+2;
E6M*
*
RTI
260~B;
EXU IBSWJ peT PTAPE; BRR RTX
ZRB; ASCWJ PIN PTAPEI
~DA
~OA PTAP~J
STA 1,21 EAX 2,2; STX .2,2
·1,2; SUB les; ETR ADMSKJ ADO weUFr
eETW; MRG ERRBIT, CZTWI MRG EeR61TJ $TA -1,2
BRR RTI
*
STA PTAPE
IF
PNX
ZR81
~OA
PNXF
O,2J sue WBUFF; sue -21 C~BI ~SH
ADO leal ADD ~2; STA PTAPEJ $ETINT PNI
EBM* 3~~~BI EXU 18SWI peT PTAPE; BRR PNX
*
PNeSR
lR6,
~OA
E6RSITI AOM 1,2; CXA; ADD =2
1~
PNXl
*
PNI
PNl1
PNt2
fDNX
PNEflR
*
~PX
SKE 0,2; BRU PNX1J BRM PNl, BRR PNE8R
6RM PNXi BRR PNEBR
~DA WBEI XMA 1/2; SKA EeR6ITJ BRU PNl1
2,21 STX .~,2J BRR PNI
\,.OA PNI2) XMA 31BJ,,~e,M 1644BI SRU *
BRU *+11 TepwJ STA 3181 SETINT PNIJ MIN PNII SRI PNI
ZR6J
~AX
~L$F"
lRB
1
eRu TRAP
iNOF
IF
V6
UP r6 tTRX'
lR6i* ************* PRINTER DRIVER 4/2/67
MIN ~PXJ CATI eRR ~PXJ PRTI eRR LPXi PFTI NBP
~OA peS~lAJ EPTI STA PBS~l' EXU P6SL11 SETINT pet
~OB f60000000BI LOA 1,21 SKG 0/2) SRU *+4
$T6* 0,21 MIN 0,21 8RU *"'+1 L.,DA ~L.PCNT-.-'*-OQOOB+2J
~DA pes~~; STA paS~ll EeM* 20606J~EXU IeR~ PBT
6RM RSTBUF J ~DA ERRS IT i ADM 1/2 J BRlii-(.PX- (ERR6R)
(S~EW
ADM 1GB
BRU*
lee;
LPERRS
• PRINTE,R INTERRUPT RBUTINE
pel
ZRB) aRM R§TBUFJ LOA
MAVBE
~px
.~PCNTJ ADM 1/21 CLA) STA POSW11 BRR pel
**********.* END 8F PRINTER DRIVER
CARD PUNCH DRIVER ******************_*.***
CPX
ZRBi*
OUTPUT BINARY BR He~~ERITH
MIN CPXI CATW, eRR CPX
(ERR EXIT IF CHN~ ACTIVE)
~DA •• 101 §TA CP~CNT
(ERRBR REPUNCH MAX)
aRM CPUNCHI 8RR CPx; 6RU* CPX (BRR NBT READV, BRU BK)
CPUNCH ,Rel* PUNCH 12 R6W$,RETURN SKIPS IF FUNC~ IS INITIATED
SKS 140~6ei eRR CPUNCH
(BRR NeT READY)
bDA ~11j STA CPRCNT
(RBW CBUNTER)
MIN ePBBJ ~DA 1~1; STA CPR6wt
(6rR BUSV,N6T AN INTRPT)
*
eUTPUT A Raw
CPRew $ETINT CPRBWll $~N CPMBDEJ 9RU CPP 'C~EAR UNUSED ~ART BF BIN BrR
$ETINT CPRBWll SKN CPMeOEi BRU CP?; $T6* 0,21 MIN 0,2; BRU *.~
cpp
~DX CPMBOEJ ~OA C.PBUrF; ADO CPSIZE,1i STA CPPBT (CREATE peT WRD)
EXU CP(SM,aJ EBM 160006; per CPPBr
(IeRD)
SKN CPR6WI; BRR CPR8WIi MIN CPUNCH; BRR CPUNCH
CPFtx MIN 'P~CNT; $KN CPECNTi BRU CPFBRK (6RU TB END ERRBR ~eep)
*
*
10a1+6B~ t.DA .11 $TA CPSTAKi aRM CP~~IP (FLUS~ 2 CARDS)
eRM CPUNCH; 6RU .·11 BRR CPR6Wl
(REPUNCH)
CPRCNT ZRB
Rew ceUNTER
o
o
CPECNT lR~
~RReR REPUNCH CBUNTER
CFSTAK ZR6
SWITCH r6 SE~ECT A~TERNATE STACKER
o
36~6e
6lNARY
~eM*
CPE6M geM*
261+68
~e~L.ERliH
DATA
2.1+0'400006
~+20*40000B
CPSIZE OATA
CppeT ZRe
*
CARD PUNH INTERUPT RBUTINE
CPReWI ZR6; SKR CPRCNTJ BRU CPRBW (B~U Te PUNCH NEXT ROW)
CETW; eRU CPFIX
(BRU CP ERRBR)
CPFeRK SKR CPSTAKI EeM 10Z46B
(ALTERNATE STACKER )
CPFINI ~Dx cpeUFFI STX CPFL.IPI L.Dx •• 401 ~DB !60606060B (CLR BFR)
iT6* CPF~IP; MIN CPF~lP; 6RX *~2
eRM CPF~lP' SKR CPBBI aRM MaNeR; BRR CPR6WI
~eM
cpxe
•
*
*.
•CRX
f;QU CPX
~AS.T CPX
*****************************-.***
ENO':
CARD READER DRIVER *******.***************
READY
peT W@RQ
CRt; BRR CRX
CRNR
[XU CFTW; SRU CREeFl1 MIN CRX, BRR CRX MIN IF NeT REAOV
CREeF1 BRM RSTBUFi ~DA EBFBIT; ADM 112, BRR CRx END eF FILE
*eRI
~RB; EXU CRTWi BRU CRNR
~DA ~CRaUF; ADD ,2+27*4000061 STA CRt
iETINT CRts ~eM* 240681 EeM 16000BI peT
ZRBI*
~ARD READER INTERU~T ReUTINE
C:ETWI eRu CRERRS
~DA CRZeu,~ ETR ,17777700BI $KE CREBFHJ 6RU CRTRAN
(EeF
CR£BF2 BRM RSTBUFl LOA EBFSIT, ADM 1121 BRR CRX
YES
CRERRS 6RM RSTBUFI ~OA ERRBIT; SRU CRE6F2.2
TRANS~ATEI ceMPRESS 6LANKS,REMBVE TAlL1NG BLANKS, AND
•
APPEND
wITH CARRIAGE RETURN
*
CRTRAN
~DA !1~1 STA CReel BRM R~TeUF
CRT1
~Da* CR6UFJ ~DX CRSFT1J ~SH 22121 ETR .176
6 BIT CHR AT A20-S1
fAX q'~1 BRX *+31 MIN CR8UFI LOX •• 181 STX CRSFTl
NExT BRF CHR
C6PV AX,Al LSH 21 MU~ =3
X" WRD PBSITIBN B~SHIFT
CRCHRS,2; CBPY BX,AB,AI ~CY 6,2; ETR &778
ASC AT A16-23
iKE 16061 6RU CRT2l MIN CRBCNT; SRU CRT3
MIN IF BLANK
CRT2
e6PY Aa,AI SKE CRBCNT; BRU CRTB~KI BR.M CRINSERT BRU 1ST N6N6LANK
CRT3
$KR CRee, BRU "RT1
END OF CARD
C~T4
~DB .1~5B;' 6RM CRINSERTJ LOA CRTEMP; SKE ~o; BRU CRT4 LST BrR WRD
~DX .CR2BurJ STX .2,2; BRR CRt
CRT6LK $TA CRXJ ~DB '135B; 6RM CRIN$ERT
INSERT MULTP~ eL.K CHAR
~DA
~OB CRBCNT; 6RM. CRINSERTJ ~OA CRXI BRU CRT2
CRINSiRT lR61* ~6AO 8 BtT ASC IN e INTO N£XT eUrF[R peSlTl6N
~DX 'R$FT2J Rev ~2,21 ADM CRTEMPl EAX 7,2
P6SITI6N ASC
6RX CRT51 CLA) XMA CRTEMP; STA* CRleu~
INSERT ASC WeRD
MIN CR1BUr~ STX CRTEMP; ~OX '.2~
STX CR?FT21 eRR CRIN$ERT
eRTS
CRTW
SK$
l2006B
CARD READER READY
CFTW
SKS
110068
CARD READER END eF FI~E
CR£e~H
CREBFS
CRee
OATA
DATA
ZRe
CRSFTI DATA
CRSFT! DATA
CRBCNT lR6
CRTEMP ZR6
CRCHR$ DATA
OATA
*
CRXe
C~le
*
epee
CPBUrr
CPF~IP
CPM~D~
-04040006
EEE
0
CHR COUNTER
SHIFT WBRD r6 P6SlTIBN SDS INPUT CHAR
SHtFT W6.RO r6 PBSITI6N ASC CHAR
777777776
.3*6
.3*8
0
C6NSECUTIVE 6LANK CeUNT
202122238/2425262761303140358,073236766
13~142*3B/~44546476/50q13116a/l1i334038
DATA
1552535481555657606,616201046,127533028
DATA
00176364S,65666770S,71720614B,10777405B
elNARV CARO READER DRIVER
ZRBl EXU CRTWJ BRU CRNR
(READY)
~DA =CR6UF, ADD -2+40*4000081 STA CRIB
(per WORD)
SETINT CRIB; EeM. 36068; EeM 160008; P5T CRIB; BRR CRX6
lROs LDA CRIB; STA CRI; CETWJ BRU CRERRS
~DA 'CReaUFl SKE CREeFS; SRU .+2, BRU CREOF2
6RM RSTBUFi ~DA .CRCNTe, ADM l,Z} SRR CRIB
~AST CRX,CRI *************J***
ZR6
lR~
ZRO
lRB
CRleUF ZRe
CR2eUF ZRB
CR6UF'
•
•
•
..•
ZR6
'TRX','TWX t
T~£$E
10/24/65
ARE THE BASIC
TA~E
READING AND WRITING RBUTINES
TDr
TRT,SKS,l0~10
TDT
BTT,SKS .. 12010
ETT,SKS .. 11010
T'TISK$,13610
r;PT,SK$,14010
Vi
D8T .. SK~117210
rDr
TDT
TDT
IF
TDT
~NDr:
TOT
TOT
TOT
TOT
TOT
TOT
TOT
TOT
TXS2
TXS3
T)($4
•* ePEN
SKtP
SKIP
SKIP
SKI?
SKIP
IF TAPE NeT READY
IF NeT 6EGINNING 6F TAPE
IF NeT END ~F TAPE
I'F NeT
~ND
BF F'IL..E
IF TAPE NeT FILE PR6TECTED
SKIP IF NBT 800 DENSITY
02T,5K$116210
SKIP Ir NeT zoo OENSITY
SKIP IF NBT 556 DENSITY
RTBIE6M*,3610
READ TAPE 6INARY
WTB,EeM*~3650
WRITE TAPE BINARY
WF'M,E6M*/2050
WRITE; FII,.E MARK
SF"B,E6M,3630
SCAN FBRWARO IN BINARY
$RB,E6M,?630
SCAN R~VERSE IN BINARY
ETF,E6M.,3670
ERASE TAPE r6RWARD
TOT
E:TR,~eM*,7670
ERASE TAPE IN REVERSE
TOT
REw,EeM,l4tOl0
REWIND
lR8;* SPACING CTRL FILE ceUNT
,RBs* TRY AGAIN ceUNT
%R8J* INTERl..ACE weRD
D5TI~K~,16610
MAG TAPE
MTWSPN lReJ LDA MTWePNI STA MTR6PNJ ~DX 5501; EXU
eRU MTRSPN+l
MTRBPN ZR6; ~DX S$Ols LDA TJNe~2
$KE JOB; SKG .~11 BRU *+2j BRU rBPNl
EXU TRTW,21 6RU TBPN3
IF
Vl
iXU D8TWl21 BRU rePN3
~NDF
FPTWI~J
BRU TBPN2
TCPN3
T8PN2
T8PNl
iXU D2TW,21 BRU TBPN3; EXU D5TW/~; BRU r8PN3
C~AJ MIN MTReFN; BRR MTRBPN (NST READY)
bDB X2i STB MTF~,2; aRR MTRBPN
~DA ~ll MIN MTRePN; eRR MTR6PN
~OA !~l BRU TSPN2+1
** TAPE READ DRIVER
lRBJ LOX TN61 ~DA MTFL/2; SKG ~OJ 8RU TR5
EXU ETTW,21 BRU TR~J EXU TRTW,2J B~U TR3
* eXIT ilNCE TAPE NeT REAOY
MIN TRXI BRR TRX
* Ne READ BE VeND EeT
TR_
~DA EeTBtT; BRM TOI; 8RR TRX
TRX
*
PSEUOel EBF
TR5
~DA EeFBIT, 6RU TR4+1
• START READ
TR3
SKR MTF~,2j ~DA INTRTRV-11 STA TXS3i BRM T2I1 eRR TRX
* SXGNA~ EeT (NeT INT, RTN.)
TOI
ZReJ LDx WBUFF, EAX 2,2; STX ~2/a
MRG WBEi STA ~112; eRR TOI
.. READ eUF'FER
Tit
ZRel ~PA lee, AOO TXC11 STA TX$41 SETINT Til
~DX TN61 exu RT5Wl21 EXU IORWs peT TXS4; BRR T21
.. C~[AN UP ArTER READ
111
lRS; ~ox weUFFI EAX 212J STX -2,2; cepy XA,XBi ADD -112) ~DX TNe
~XU TFTW,2J BRU Tl13J 6ETW, BRV Tl11
EXU £TTW,2; MRG EBTBIT; bOX weUFFI STA 1/2; eRR Til
T112
.. EeF" WAS REAP
CeA~ MRG ESFBITJ BRU T112
T113
• TAPE t:RRBR eN R~AO
ASCWJ PIN TXS11 XMA TXS1i sua 166; ETR AOMSKJ SKG -1501 6RU T114
1111
EXU BTTW,2; BRU T1141 MIN TRERRJ SKR TXS3; BRU T115
MIN TURERRi ~DA TXS11 MRG ~RRelTI 6RU T112 (PERM ERR8R)
* NeISE. REAO AGAIN
T11~
MIN TNERRI BRM T211 eRR T11
.. TRY RE.READ, SCAN BACK
T1I~
$ETINT T31; EXU SReW,2; eRR Til
* PReCE$S 131 WHEN BACKlNG eVER READ £RR6R
T3 t
ZRe J WI,M T XS 1 J SE. TIN T T 2 l J BRR T 3 I
** TAPE WRITE
DRIV~R
,Rei ~DX TN81 ~DA MT~~12J SKG ,OJ BRM NTRPB
EXU ~TTW,21 BRU TW4; EXU TRTW,2s BRU TW3
MIN TWX; eRR TWX (NeT READY)
• NS WRITE BEveNO EOT
TW4
~OA E6TBITI 8RM TOl; eRR TWX
• START WRITE
TW3
~OB ~NTWTRV~lJ STB TXS3) SKR MTF~,2S LDX WeUFF
~DA 11~1 ETR EeRSIT; ADD 0,21 sue WBUFF; SUB -21 5TA 1,2
~DX TN6; EXU BTTW,2J BRU TW21 6RM TOJI BRR TWX
* WRITE 3~lNCH GAP AT ~o PT
TW2
~OA .TOJi aRM T1Ji BRR TWX
* WRITE 3 INCH GAP (NBT INT~RRUPT R6UTINE)
TIJ
IRel EXU ETFW,2i EXU IBRW, peT X_, STA B~K31J eRR T1J
* WRlTE BUrFER
TOJ
,Rei ~OX WBUFFI ~DA 1,2; SKG .0J BRU TOJ1
~DA f66J ADD TXC11 STA TX$4J SETlNT T3J
~DX TNOI EXU WT6W,21 EXU IORW, peT TXS4; BRR TOJ
TOJl
BRM T2KI BRR TQJ
* WRITE FI~E MARK, INTERRUPT AFTER 3' GAP,
T~J
lRes ~OX TNS, EXU WFMW,2i E8M 16000B; peT T2JFM
SETINT T2KI eRR T2J
TWX
*
UP AFTER WRIT~
ZRBI ~DX TNel ~DA weE; BETW, BRU T3Jl
EXU ETTW,2J MRG ~eTBtTJ ~DX WBUFf; STA 1,2
(AX 2,21 STx .a,21 eRR T3J
T3Jl
MIN TW~RRI SKR TXS3J BRU T3J3, MRG ERRBIT; BRU T3J2 (PERM ERR)
4 TRY RE.WRITE, ERASE BACKWARDS
T3J3
ASCW; PIN TXS11 ~DA le8s XMA TXS1; SUB lea
C~EAN
T3J
T3J2
C~BJ
~XU
~SH 141 STA TXSl
ETRW,!J EXU 16RWs peT TXS11 SETINT TOJI eRR T3J
* ERASE BEF8RE FI~E MARK
T-J
lReJ ~DX TNBJ ~DA !T2Ji BRM TiJi BRR T~J
*
*
*•
*
tME~R"'MBSF'I'MFSrtJ'M8SR"'MEeF"'M~R$'I'MREW'J'MER~'
MAG TAPE
~eNTRe~
R6YTINES
12/15/65
*
C~EAN
UP AFT~R SPACING (133)
ZR61 LOX WeUFF; ~AX 2,2; STX -2,a
~OA weEI STA wllcS BRR T2K
• FeRWARD SPACE PIL~ 131
T5K
ZR61 ~OX TNa, EXU TFTw,2J 6RU T5Kl
* NaT EeF, C6NTlNUE
TSK2
$ETINT T5K~ EXU SFBW,2; eRR T5K
* (SF SENSED, 06NE
T5Kl
MIN TXS2i SKN TXSZ, SRU *+21 BRU T5K2
WIM TXSli $ETlNT T2K} BRR T5K
* BACKSPACE FI~E FBRWARP SPACE 131
T_K
ZRe; WIM TXS1J stTINT T2Kl eRR T4K
* BACKSPACE REC6RD 131
T1K
ZRes ~OA -lOCOS
TIKO
~DX TN6J MIN TXSZI WIM TXSls SKA TXS11 BRU T1K2
EXU STTW,2; eRU T1K4S EXU TFTW,2i BRU T1K2
12K
* NeT EeR, ceNTINUE
T1Kl
T1K2
~DA
INTRI STA 8LK311 EXU SRBW,2J BRR T1K
$KN TX$21 BRU *+2J 6RU T1Kl
* END SENSED, Ge PBRWARO
T1K3
SETINT T3KI BRR T1K
*
*
e~T
SENSED
'ACTUA~~Y
133)
T2K; eRR T1K
BACKSPACE FI~E I33
T3K
ZR8; ~OX TNa; EXU TRTW,21 BRU T3K2
MIN T3K} BRR T3K (NeT REAOY)
T3K2
txu BTTW,21 6RU T3Kl1 SETINT T.KI EXU S'6W,2l 6RR 13K
T3Kl
aRM T2KI BRR 13K
* BACKSPACE Fl~~ 131
T6K
ZRO, ~OA T6KI STA T1K; C~AJ 6RU T1KO
T1K~
~RM
** PREPARE FeR MAG
TAP~
CTR~
ZROs MIN MTTRJ LDX TNS; ~xu TRTW/21 eRU MTT1
cxal ~Ox MTTR; MIN .3,iJ eRR -3,2 (NBT READY)
* SET UP INTERRUPT, EXIT
MTT1.
EXU* MTTR, 6RU MTT2; STA BbK31i eRR MTTR
MTTR
* EeT/BOT
SENS.ED
MTT2
~DA EBlBIT) BRM TOtl LDX MTTRJ BRR .3,2
* MAG T4PE CTRLS
* REWINQ
MREW
MREW1
ZRSJ ~DX TN6} EXU TRTW,21 6RU MREwl
eXBI MIN MREW, BRR MREW (NeT READY)
~xu REWW,2J aRM 12K; 8RR MREW
* WRITE EaR
M~eR
lRel ~DX WBUFF; ~DA l,2J MRG EeR61TJ STA 1,2
BRM TWX, BRR MEaRI MIN MESRI BRR HEaR
*
ERA$E
*
~eNG ~RAS~
HERS
H[Rs'1
. M£RL
ZR~; LDA -12K; BRM MTTRJ EXU ETTW,2
6RM T1JJ BRR M~RS
lR61 LOA 18RW; MRG -2; STA leR~
MER~J STA MERSI eRU MERS.l
~DA
* WRITE EeF
MEer
,Rei ~OA .T~JJ BRM MTTR; EXU ETTW,2
XMA MEOFI $TA HERS, XMA MEeF
~XU 8TTW,2A 6RU MERSl (ERASE IF EeF AT BST); BRM
* FeRWARD SPACE FlbE
MFSt
ZR6J ~OA .T5KJ SRM MTTRJ EXU ETTW,2
~OA •• 11 ST. TXS21 EXU SFBW'~J BRR MFSf
* BACKSPACE rI~~
M6S'
ZR6J LDA ,T6K
M6SP
6RM MTTRJ EXU 6.TTW,2
~DA •• ~I STA TXS2J EXU SRBW/~' eRR MBSF
* BACKSPACE RECBRQ
M8SR
,Re, LOA MaSRI STA M6SFJ ~OA -T1KJ BRU M6SP
END
T~JI
eRR MEBF
4MOSG IOENT
* VERSION 12
..
*
*
*
SYSTEM
7/02/67
6/18/67
F~AGS,
BPDS, PARAMETERS, AND MAeRes
ASS~M6L.Y FL.,AGS
CRXF'
EQU
PNXF
EQU
l.PXF"
REL.CHN
'40M
EQU
EQU
EQU
ARMF"
e:QU
Vi
EQU
EQU
ve
Vi
VIJ,
V!5
V6
V?
va
Fee
C181
*
5F>DS
SBRS
-1
E;GV
EQU
EQU
EQU
EQU
~QU
EQU
EQU
(NB CARD READER)
(PAPER TAPE PUNCH
~1
(N6 klNE PRINTE~)
-1 (B~D DRUM CHANNE~)
·1 (-1 ~eR BERKELEY, 1 FaR 940)
1
(ARMING FEATURE)
1 (VERSI6N 1.85-1)
1
(VERSrSN i-85-a)
1
(vtRS16N 1.86-3)
1
(VERSleN 1.85.~)
1
eVERSI6N 1,85-5)
1
(VERSI6N 1.85-6)
1
1
1
1
1
(V~R$I6N 1-85.7)
(RE~ABE~ED VERSI6N)
(1.81
aPD
173000006,1,1
BPO
00222000e/~
CKN
aPD
I.RR2
6PD
ePD
aPD
L.RR~
BPD
002201Q06/2
00220200B,z
002204006/2
002210008,Z
002214009/2
TiN
CKF
L.RRl
*
IF
Fl~ES)
SYSTEM MBDE BRS
G6 FRBM N6RMAL T6 MBNIT6R
TURN eN THE CLeeK
TURN eF~ THE c~eCK
~eAD RE~A8EL~ING REGISTER
~eAD RELA8E~~ING REGISTER
~BAD RELABEL~ING REGISTER
V5
PRINTER CBMMANDS
EPT
MACR8
DATA
40140606
PFT
(Fee CHANGES)
ceMPATIB~E
ENDM
END SF' PAGE TEST
MACR6
OATA
~01106QB
SKIP IF NS PRINTER ERRBR
M8DE
1
2
3
PRT
ENDM
MACR6
DATA
SKIP IF PRINTER READY
'+0120606
E;NOM
SKIPTB MAC;RB
DA.TA
E.NOM
SPACE
PRINT
D
210460e+O(1)·100QB
MACRB
o
OATA
~10660B+D(1)*1000B
ENDM
MACRB
o
DATA
DATA
FlBT
E.:NOM
2l+Z060a
2152006
A~ERT
'I NTE:RL.ACE, 1 CHAR. PER Wf3RO
ARM 131, OIsCeNNECT WHEN
TRANSMISSIBN IS ceMP~ETE.
0(1 )
CAT
BPD
...
* BREAKPelNT TEST
BPT
6PD
040200006,2
e:NOF'
..* Ila DEVICE
epo,s
TTYS
MACRS, DATA 202177776; ENDM
TTY$K$ EQU
a4071000e
ESO
BPD
00600000611,1
AL.R
RRF
WRF
RIN
IeSOE
BPD
006100266,2
BPD
006022268,2
AL..ERT RAD
READ RAD
006022668,2
006162008,2
RAD
ePD
aPD
EQU
WRITE RAO
CETE
006112006
EQU
006140006
MACR6J SKS* 1002681 ENDM
MACRS, SKS* 11026S, ENOM
MACR6, SKS* 110006; ENOM
teROW
EQU
EQU
teROE
R$R
RSE
IBSDW
AI..O
OSR
ORT
aPD
OPO
BPD
leso
2142006
2140006
002100266"
002026~6e/2
040100266,2
AL,(RT DISC
D~SC
READ
DISC READY TEST
0£1
OCT
..
BPD
aPD
040110268,2
04+0110008,2
DISC ERRBR
123
~A$T
.... PARAMe;T[RS
BE
NP8P
EQU
~QU
4~8
.. W BUFFER DEVICE PARAMETERS
RTeNT EQU
64
PNCNT ~QU
~o
CReNT
EQU
CRCNTB ~QU
CPCNT EQU
CPCNTB E.QU
EQU
NTAPE
Nt-INK
EQU
~PCNT
EQU
TeNT
RTWT
PNWT
CRWT
CPWT
TXWT
~QU
EQU
EQU
E,QU
Des
EQU
AMB
AlB
APB
CARD PUNCH eUFrER
~o
2
199
132
RTCNT*40/3
e;Qu
0
EQU
~QU
~ENGTH
NUMBER 6F MAG TAPE UNITS
0
EQU
EQU
BERKE~EY SRSt
NUMBER SF syspeps IN USE •
40
~o
340000006
004000006
NTTYC EQU
TTYEWM ¢QU
ERRBR TEST
40
.. TTY PARAME;TE.RS
NTTY
~QU 32
NUM6ER e~ TTYS
NTT6
EQU
NTTY.N~INK
NI.TTC
TEST
CHANNE~
PAPER TAPE READER BUFFER LENGTH
PAPER TAPE PUNC~ BUFFER ~ENGTH
CARD RtADER SUFFER LENGT~
PNCNT*40016
300
EQU
150
~QU
20+TCNT/l0
~PWT
EQU
133
NTRTRY EQU
10
NTWTRY E:QU
3
.. ;1~E PARAMETERS
NFI~E
EQU
40
M6UFX
DISC
70
20
400009
1000006
100000006
~ENGTH 6f MAG TAPE BUFFER
~lNE PRINTER BUFFER ~ENGTH
PAP~R TAPE READ TIME
PAPER TAPE PUNCH TIME
CARD REAO TIME
CARD PUNCH TIME
MAG TAPE TIME
~INE PRINT TIME
NUMBER Br REREADS
NUMBER eF REWRITES
NUMB&:R SF f.'IL.ES
FSWRO FeR EXEC B~eCK
PReTECTEO ~I~E BUSY BIT
TeTA~
TTY BUFFERS
NUMBER 6p CHARS IN TTY BUFFER
TTY EARLY WARNING (2 SEC)
ACCEPT MESSAGE BIT
ACCEPT INPUT BIT
ACCEPT PRINTER ~INK aIT
AKS
8RB
BPS
ILre
EQU
2000006
EQU
EQU
20000006
10000006
*000006
EQU
e~e
~QU
~?N$EC
f;QU
*
ACCEPT KE,VaOARD ~INK BIT
8.~EVE~ INPUT BIT
8.~EVE~ 6UTPUT BIT
INPUT I."INK BIT
eUTPUT '-INK SIT
40000006
PAC TABl,.E PARAMETERS
NSQU
EQU 12 NUMBER eF C1.6CK CYCL~S IN SHeRT QUANTUM.
NF'QU
~QU
36
FU~L QUANTUM SIZE
NPAC
Eau
14~
NUM8~R 6F PACT s~eTS
NPPAR EQU 10 ~ENGTH eF PACT ENTRY
• JetB AND MEMeRY PARAMETERS
NJeSl ~QU
32
NUMBER eF JeBS WITH6UT p,u,
NJeB EQU
NJBS1+1
NUMBER 6F JeBS
UMSZ
EQU
15
INfTJA~ MACHINE SIZE
NMEM
EQU 32 NUM6e:R SF PAGES
NSMEM eQU 7
NUMBER eF PAGES USED BY SYSTEM
NCMEM E:QU
608
CBMM6N PART BF USER MACHINE
NSMT
~QU
1006
SIZE 6F" SMT
NUM£M ;QU 1006.NCM~M
NUMBER eF PRIVATE USER PAGES
NPUQ
(QU 16 NUMBER eF PUCT ENTRIE;S
* RAD AND SWAPPING PARAMETERS
NROQ
E.QU
20
MUST BE GT USER'S PAGES*2
NRTRY EQU
1
NO. SF READ TRIES FBR RAD.
NRAO
EQU
4
Net OF RADS
EQU
2*NRAO
NSEC
Ni6ND
1
e:QU
18
E:QU
40006
NUMBER OF 16K BANDS RESERVED ~eR SWAPPING
SF 1ST SWAPPING AREA. MUST BE A
MUbTlPLE Br 10006.
*
N$AM
£QU 16 SIZE 6r $WAPPER AsseCIATlvE MEMBRY
.. DISC: PARAMETERS
NDTRY EQU
~
NUMBER SF READ TRIES FeR DISC.
NORQ
e:QU
30
Ne. Br JeBS IN DISC QUEUE.
NOISC$ E.QU
8
IF
NDtSCS!3~
NPes EQU
EO; ~~$F 1tNPBS EQU 40; ENOF
MAXP
EQU NP~S/2*200e+31*200B
MIN?
EQU -NPeS/2*2.00B+32*20oe
TAB!..EN EQU NPeS/2*2*NDISCS*32+23
NSSP
~ec.
TA6~EN EQU TAe~~N/2~
* BUrFER PARAMETERS
NeUFX EQU
3
NeUF
EQU
BIN
EQU
NDOW
etc
eON
SDC
EQU
~QU
EQU
~QU
SIP
EQU
NDXW
EQU
IF
EQU
elA
NDXWC
EQU
E~SF
NDXWCR
NOXWR
Ncaw
NOBS
axe
EQU
EQU
~QU
EQU
EQU
NUM6ER SF BUFF~R$ IN THE EXEC BLeCK
TeTA~ NUMBER SF DISC BUFFERS ..
~ENGT~ Cf. DATA B~eCK
INDtX B~eCK NUMBER
INDEX CHANGED F~AG
DATA BLeCK NUMBER
CHANGED DATA F~AG
INDEX e~eCK peINTER
INOEX B~eCK DRUM ADDRESS
~ENGTH BF INDEX B~BCK
N6UFX
255
NDDW+2
NDDW+3
NDDW+~
NODW.5
NDOW+6
NDDW.'
12~
C181
78
MAX NUMBER BF DATA
llNOXWC EQU NDXWj ENDr
NOXWC.l
128
NODW+8+NOXWR
NBUF*NDBW
NDBW~NOXWR
SSP
BFP
EQU
EQU
SX6+NOXW.1
PX
EQU
PB+8
B~eCKS
PER FILE
NUMBER SF W6RDS T6 READ/WRITE
~ENGTH OF DISC BUFFER
SIZE 6F BUFFER AREA
INDEX B~eCK BRIGIN REL fa BUFF
BACKWARD C~AIN weRD
F6RWARD CHAIN weRD
INDEX 6~~CK CHECK WBRD
aX6+NDXW.2
IXC
tQU
Bxe.NDXw
* T5 BLaCK MAP
oeTep ~QU 37777B~NDBS·5·1-17~1 1ST WBRD AFT~R PRSYMS
SMeFI~ EQU
Dsrap
SECBNDARY MEM6RY eurpUT rl~E
SMIFIL ~QU
DBTBP+1
SEceNOARY MEMBRY INPUT FILE
SHeA
EQU
OBrep+2
$EceNOARY MEM6RY BUFFER ADDRESS
SMORN EQU
06T6P+3
SEceNOARY MEM6RY BON ADDRESS
FeWRO EQU
OBTep+4
BUFFER AVAJLABILTY BIT WeRD
RMAP
EQU
OBiBP+5
RAD 6IT MAP feR Fl~ES AND SWAPPING
P6
EGU
DBTep.6
PP6
~QU
px.s
NFeRK ~QU
PP8+1
reAOR ~QU
DBTep+5+1+11+1
* MaNlieR AND EXEC bBCATleNS
RAW
EQU
100B
CAW
EQU
~4000e
ie PB ,HAIN
OF reRKS CBUNTER
FIRST BUFFER ADDRESS
P61NT£R
NUMB~R
RAO ADDRESS BF W
ceRE ADDRESS 6r W
OAW
RAD$C
CADSC
OAOSC
CASEl
EQU
EQU
EQU
EQU
EQU
OAS~T
(QU
OAEXEC EQU
500006
R.£XEC EQU
100B
6006
* MAeRes
0
0
~OOOOB
3006
3~OB
e
~QU
1
EQU
AS
EQU
2
SA
~QU
A
ex
X8
E
XA
AX
N
X
espy
K
t.
M
~
M
EQU
EQU
tQU
EQU
EQU
EQU
~QU
RAO ADDRESS 6F EXEC
'+
loe
208
~OB
1006
200a
~OOB
10008
200000006
MACRO
NARG
0
e;QU
e:QU
0
RPT
EQU
DISC ADDRESS OF W
RAO AODR~SS SF DISC
ceRE ADDRESS 6F DISC
DISC ADDRESS 8F DISC
ceRE ADDRESS 6F SET
DISC ADDRESS SF SET
DISC ADDRESS er EXEC
1
K
~.D(M)
EQU
M+l
E,NOR
DATA
~600000B+~
r;NOM
ARMJ
ARMI
IF'
ARMF
MACRO 01 AIRI PST 0(1)1
EL.SF
~NOM
1
MACR6J ENOM
ENDF
ENTRY MACR6 blENTCNT NARGI RPT ENTCNTJ~(ENTCNT) EXT
ENTCNT EQU ENTCNT.1J ENORI ENDM
$ETINT MACRO AI ~DA ,A(1)s STA 6LK31J ENOM
TOT
MACR6 ~J~(l)'W EQU *; RPT NTAPEi L(2) ~(3),8+*.L(1).Wi ENORJ ENDM
RMFF
SMFF'
READ
SMFF
RMFF'
IF
V1
MACRB; ENOM
HAeReS ENOM
MACR8 o,Gll;G(1) RSRi BRU .-1l A~RI peT -D(3)/1006
teo- 10000BI DATA IeSDE+D(1)/2000B(AND)3;B+D(2)/~OOOOB(AND)3.~OB
peT 'D(1)(AND)1777B*~OOOOB+D(2)(AND)37777BI RRFJ RSRi 8RU *~1
RS~J BRU G(l); CETE; 6RU G(l)J ENDM
tl..SF
1
MACR6 01 DATA ?3~006e+O(1).40Bi ENOM
MACRe 0; DATA 2300066+D(1)*408, (NDM
ENOF
MACRB Ni~CHRWO EQU ECHRWO*~OOB+N(1).6iNECHR EQU NECHR+l
1~ NECHR.2i DATA ECHRWD;ECHRWD EQU OSNEC~R EQU 0; ENor, ENDM
ECHB
MACR6 N;ECHVB EQU N(1)6; RPT N(Z)J ECHR ECHV
ECHVe ~QU ECHve.N(3)l ENORJ ENOM
TRP
MACR5 ~i~NTCNT NARGJ RPT ENTCNTJ~(ENTCNT) EQU TRAP
rRGT ~(ENTCNT)'ENTCNT EQU ENTCNT-1J [NOR, ENDM
CACR
MACR8 OJ 0(2)
IF O(l)J BRU PACACTi 6RU PEST
E~SF 1; BRU ~ESTJ SRU PACACTi ENOFi ENDM
l.el.
MACRe DJ1LBL EQU 0(2)) RPT 0(2)} LOA D(1)+lLBL~11 LRSH 6
EQU 1Le~.ll ENDRs ENOM
1L.BL.
E'~R
*
**
*
EXEC
EXECI
EXECP
~NTRV
£;QU
EQU
e,rF"INT EQU
PBINTS
100006
100016
100028
•*
*
oe
MACRB OIENTCNT EQU 0(1).9*2006.0(2)*1008
+.~OOOOOOOB*D(4)(AND)1*406+D(4)(AND)2*10000000B
RPT 0(3)1 DATA ENTCNTJENTCNT EQU ENTCNT+l00BI ENDRJ ENDM
FBRGT
MACR6
DJ~NTCNT
NARGJ Rpr ENTCNT; rRGT O(ENTCNT)
FeRGl CRXF,AIB,8PB,8RB,AHB,APS,AKB
F6RGT H6UFX,PNXF',l.PXF
F'8RGT
r:eRGT
FeRGT
FeRGT
FSRGT
F'eRGT
reRGT
'8RGT
FeRGT
F6RGT
FBRGT
FeRGT
FREEZE
ENO
RTCNT,PNCNT,TCNT,~PCNT
RTwr,PNWT,TXWT
NTAPE,N~INKINBUFXINeUF
NTRTRY,NTWTRy,NDTRV
NODW,NOXW,N06W
NFl~E/UMSZ/NTTYC,TTygWM
NPAC/NPPAR,NJee,NJ~B1.,NFQU,NSQU
NP6P,NMEM,NSMEM,NCMEMiNUMEM
NPUQ,NSECI~2NSEC,NORQ,NS6NO/NSAMINSMT
DBB/ENTCNT
SMIFIL,SMeA/SMDRN,rBWROI$MeFl~
Bxe,BBP,epp,SIN,eIc,eON,BDC,BIP,6IA
5M06G .
*
•*
*
*
IO~NT
V[R$I~N 1~
SY$T£M
ASS~M61.,V
CRXF
PNXF
ARMF
Vl
V2
V3
v.
ve
V6
V1
V.
,ce
Cla,
* ePD$
SBRS
TiN
eKN
CKF
l.RRl
L,RRZ
I.RR3
EQU
£.QU
EQU
EQU
EQU
EQU
EQU
tQU
!QU
iQU
lQU
6/18/61
F~AGSI
opos,
PARAMETERS, ANO HAeRes
FI..AG$.
(NO CARD READER)
1 (PAPER TAPE PUNCH
EQU -1
£QU
~PX;
EQU
AiLCHN EQU
,_OM
EQU
1102/67
-I
-I
-1
1
1
1
1
1
1
1
1
1
1
1
(Ne
(e~o
~tNE
DRUM
fl.81 C6MPATI!L! FILES)
113000006,1,1
OPO
8PO
00222000e,2
00220100812
Ooa202QOB,2
epo
002204006,2
00221000e,2
IF
V5
SPO
CHANNE~)
(-1 FeR 6ERKE~EYI 1 reR 940)
(ARMING FEATURE)
(VERSleN 1.85-1)
(vgRSleN 1.85-2)
(V,RsteN 1;85-3)
(VERSXeN 1.85-.)
(VtRSIBN 1.85-5)
(VE,R$16N 1.85-.,
(ViRSISN 1.85-7)
(RE~AeE~ED VERSleN)
(Fee CHANGES)
OPO
epo
apo
PRINTER)
00221400e,~
* PRINTiR CBMMANO$
EPT
MACRO
OATA
40140606
tNOM
PFT
MAI;Re
PATA
4+0110606
SYSTEM MeOE BRS
Ge 'ReM N6RMAL 16 MeNlTe~
TURN eN TM£ CLeeK
TURN err THE CLeeK
l.eAO RE~ABEL~ t NG 'REG 1STER
~eAD RELABE.L~ING REGISTER
~eAO RELAB~L~ING REGISTER
ENO
SKIP
~r
PAGE TEST
rr Ne
PRINTER ERR6R
M60E
1
2
3
PRT
ENDM
MACR6
DATA
~NDM
sKtPTe MACR6
DATA
SPAc:e:
PRINT
ENOM
MACR6
DATA
E:NOM
MACRB
DATA
DATA
peT
CAT
*•
ENOM
aPD
4+01.20608
SKIP IF PRINTER READY
o
2104606·0(1).10008
o
210660e+D(1)*lOOOB
o
24+ZQ60e
2152006
o( 1 )
AL.ERT 'I NTERL.,ACE, 1 C~AR. PER weRO
ARM 131, DISCONNECT WHEN
TRANSMISSleN IS ceMP~ETE.
BR[AKP8tNT TEST
6PT
aPD
040200Q06,2
ENDF'
* tl6
*1TY$
Oe:VICE aPD'S
MACRBj
TTYSK§ EQU
teo
OPD
epo
Al.R
RRF
ePD
WRF'
RJN
lCSO£
teROE
RSR
RSE
C~TE
IBSDW
!eROW
AlarD
DSR
ORT
apo
20,77777ai ENDM
240770006
006000006,1,1
DATA
006100268,2
006022266/2
AL..ERT RAO
READ RAD
006022666,2
WRITE: RAO
006162006/2
RAO I6$D
006172006
£QIJ
~QU
0061 .. 0006
MACR6; SKS* 100266, ENDM
MAeRes SKS* 1102691 END~
MACRBJ SKS* 1100061 ENDM
aPD
EQU
EQU
ePD
aPD
6PD
21~200B
ZlJ+OOoe
002100,66,Z
00,02626B,2
04+0100266,2
AL.ERT DISC
DISC READ
DISC REAOY TEST
Dr;T
OCT
...
**
6PD
e~D
040110266,2
01+011000612
PAR'MET~R$.
BE
~QU
123
NPep
EQU
1+46
... W BUFFER DEVICE PARAMETERS
RTCNT EQU
6~
PNCNT £QU
~O
CRCNl ~QU
40
CRCNTB EQU
~O
CPCNT EQU
~O
CPCNTe ;QU
~O
NTAPE iQU
~
NL,INK EQU
0
TeNT
;QU
199
~PCNT
EQU
132
RTWT
EQU
RTCNT*40/3
PNWT
CRWT
CPWT
TXWT
LPWT
NTRTRV
NTWTRY
tQU
~QU
iQU
EQU
EQU
~QU
EQU
EQU
f;QU
NTTYC ~QU
TTYEWM ~QU
AMB
EQU
AlB
~QU
APB
gGU
eRSt
SYSP6PS IN USE,
BERKE~EY
NUMB~R BF
PAPER TAP-E READER BUFFER ~ENGTH
PAPER TAPE PUNCH SUFFER ~ENGTH
CARO READER SUFFER ~ENGTH
CARD PUNCH
8UF~ER
LENGTH
NUMBER 6F MAG TAPE UNITS
~ENGT~ eF MAG TAPE BUFPER
~INE PRINTER BUFFER ~ENGTH
PAPER TAPE READ. TIME
PAPER TAPE PUNCH TIME
CARD REAO TIME
3
NUMBtR BF REREADS
NUMBER SF REWRITES
150
20+rCNT/l0
133
10
~o
MSUFX ~QU
31+0000008
oeB
EQU
004000QOB
... TTl' PARAMETE;RS
NTTY
~QU 32
NUMBER SF TTYS
NTTS
~QU
NTTY+N~INK
NI.TTC
LA$T
PNCNT*400/6
300
* FILE PARAMETERS
NFI~E
DISC ERRetR TEST
CHANNE~ ERReR TEST
Olse
0
70
20
400008
100000e
lOooOOooa
CARO PUNCH TIME
MAG TAPE TIME
L,INE PRINT-TIME
NUMBER SF ~1L.ES
FBWRD FeR EXEC B~eCK
PROTECTED
TeTA~
TTY
Fl~E
BUSY 6IT
BUFF~RS
NUMBER 6r C~ARS IN TTY BUFFER
TTY EAR~Y WARNING (2 SEC)
ACCEPT MES$AGE BIT
ACCEPT INPUT BIT
ACCEPT PRINTER ~INK eIT
AKB
E:QU
ape
H.B
~QU
!R6
EQU
EQU
ACCEPT
bINK BIT
INPUT elr
8·~EVE~ eUTPUT BIT
lNPUT LINK BIT
eUTPUT l...INK BIT
2000006
'+0000006
20000006
10000006
8·LEVE~
K~Y6eARD
EQU
'+oooooe
*N$QU
PAC TABt,.E PARAMETERS
EQU 12 NUMBER SF CLeCK CYCLES IN SHeRT QUANTUM.
NF'QU
;QU
36
FULL QUANTUM SIZE
NPAC
EQU
1~4
NUMBER 6F PACT s~eTS
NPPAR EQU 10 ~ENGTH OF PA~T ENTRY
* Joe AND MEMBRY PARAMETERS
a2
NUMBER eF JeBS WITH6UT P,U,
NJea.1 EQU
NJee EQU
NJesl+1
NUMBER BF Jess
UMSZ
e;QU
15
!NITIA~ MAC~lNE SIZE
NM£M
E,;QU 32 NUMBt:R 6F PAGES
NSMEM EQU 7
NUMBER BF PAGES USED BY SYSTEM
NCHEM ~QU
C6MMBN PART eF USER MACHINE
606
N$MT
EQU
100B
SIZE SF SMT
NUMEM [QU looe.NCMEM
NUMBER SF PRIVATE USER PAGES
NPUQ
EQU 16 NUM9ER 6F PUCT ENTRIES
eL,B
*
AAD ANO SWAPPING PARAMETERS
NROQ
NRTRV
NRAO
NSEC
EQU
EQU
EQU
EQU
l.2NSEC e:QU
N$6NO
20
1
A+
2*NRAD
MUST BE GT USER'S PAGES*2
Ne. 6P READ TRIES FeR RAD.
Ne. eF RADS
1
18
NUMBER 6F 16K 6ANDS RESERVED FeR SWAPPING
SWAPPING AREA. MUST 6E A
10006.
*N$AM tQU 16 SIZE 6F $WAPPER AsseCIATlVE
MEM6RY
* DISC PARAMETERS
NOTRY ~QU.
NUMBER 6r READ TRIES FeR DISC.
NORQ
~QU
30
Ne. SP Jess IN DISC QUEUE.
NOISC§ ~QU
16
Jr
NDISCS!32
NPt'S
E.QU
~Ol E~SF 11NP6$ EQU 40; ENOr
MAXP
£QU NP~S/2*2009.31.200B
MINP
~QU ~NPe$/2*200B.3Z*200B
TAB~EN EQU NPeS/2*2*NDISC$*32*23
NSSP
~QU
EQU
40008
~ec. 6F 1ST
HU~TIPLE e~
EQU TABL£N/2~
BUFFER PARAMETERS
N6UFX EQU
3
TAB~EN
*
NeuF
~QU
N9UFX
NDOW
BIN
'QU
eoc
EQU
255.
NDDW.2
NDDW.3
NOOW+4
NDOW+5
NOOW+6
~QU
SIC
BDN
EQU
~QU
BIA
EQU
IQU
NOXWC
IF
gQU
alP
NDxW
~QU
~~SF
NOXWCR EQU
NDXWR EQU
NDBW
EQU
NOes
tQU
axe
E,QU
asp
EQU
EQU
BFP
IXC
* T5
oaTa?
tQU
e~eCK
SHeFt~
EQU
EQU
SMIFI~ iQ~
SHeA
SMORN
FBWRD
RMAP
EQU
~QU
~QU
P6
EQU
EQU
PX
EQ~
NDOW.'
124
C181
18
MAX NUMB~R SF DATA BLeeKS PER FI~E
llNOXWC EQU NDXW, ENDF
NDXWC+l
128
NUMBER SF weRDS Ta READ/WRITE
NDOW+8+NOXWR
~ENGTH Or DISC SUFFER
N6UF*NOBW
SIZE 6F BUFFER AREA
ND6w.NDXWR
INDEX 6~eCK 6RIGIN RE~ TO BUFF
axe.NDXW-1
BACKWARD CHAIN weRD
BX6+NOXW.2
FeRWARD CHAIN weRD
Bxe.NOXw
~QU
INOEX
s~eCK
CHiCK weRD
MAP
37777S-NoeS.S-1-17-1 1ST weRD AFTER PRSYMS
DeTap
SEC6NDARY MEMBRY eUTPUT Ft~E
DeTap+l
SEC6NDARY ME.MeRY INPUT Fl~E
OBTBP+2
$EC6NDARY MEMeRY BUFrER ADDRESS
OBTep.3
SEC6NOARY MEMORY eON ADDRESS
OBTe~.4
BUFFER AVAILABI~TY BIT WeRD
OBT6P+5
RAO 6IT MAP FeR rI~ES AND SWAPPING
OeTap.,
P6+8
px.s
PPB
EQU
NF6RK fQU
PPS+l
FBADR ~QU
DBTep+5+1+11+1
* M6NfTBR AND EXEC ~eCATIBNS
RAW
~QU
100B
CAW
NUMBER OF SUFFERS IN THE EXEC BLeCK
TeTA~ NUMBER e, DISC aUF~ERS.
~~NGTH OF- DATA B~eCK
INDEX 6~~CK NUMBER
INOEX CHANGED FLAG
DATA e~eCK NUM6ER
CHANGED OAT A P~AG
INDEX a~eCK paINTER
INDEX e~BCK ORUM ADDRESS
~ENGTH SF INDEX BLeCK
440006
paINTER T6 PB CHAIN
NUMBER SF FBRK$ CBUNTER
~IRST SUFPER ADDRESS
RAP ADDRESS BP W
ceRE ADDRESS e~ w
DAW
RAOSC
CADSC
DADSC
tQU
iQU
~au
EQU
eASEl ~QU
OASET EQU
DAEXEC ~QU
RAEXE~ ~QU
• HAeRes
A
EQU
B
tau
AS
SA
ex
xe
E
XA
AX
N
EQU
EQU
4
406
~QU
~QU
2006
NARG
L.
M
tQU
EQU
~
EQU
MACRO
RPT
EQU
ENOR
DATA
ENOM
RAO ADDRESS SF DISC
ceRE ADDRESS eF DISC
DISC ADDRESS 6r DISC
ceRE ADDRESS 5F SET
DISC AODREiS eF SET
DISC ADDRESS eF EXEC
RAO ADDRESS SF EXEC
z
EQU
I(
OISC AODRESS eF w
1
106
206
X
M
0
40000B
3008
50000B
3406
100B
6006
~QU
EQU
tQU
£QU
espy
0
1008
4006
1000S
200000008
D
0
1
K
~.D(M)
M+t
46000006+~
IF
ARMF
MACR8 01 A1Rl peT 0(1); ~NDM
EL.SF
1
ARMI
MACRB; ENOM
ENOF
ENTRY MACR6 ~J~NTCNT NARGI RPT ENTCNTI~(~NTCNT) EXT
ENTCNT ~QU ENTCNT-1J ENORl ENOM
SiTINT MACR6 AI ~OA .A(l)s $.T4 B~K31J ENOM
TDT
MACR6 ~Jb(l).W EQU *J RPT NTAPEJ L(2) ~(3).B+*~L(1).Wi ENDR; ENDM
ARMJ
RMFF'
SMFF'
REAO
SMFF
RMFP
IF'
V1
HAeRes ENDM
MAC:RBi ENOM
MACRB o,GI1)G(1) RSRJ BRU .-lj ALRi P~T ~D(3)/100B
geo* 1000061 DATA IeSOE+O(1)/2000e(ANO)37B+D(2)/~OOOOB(AND)3*40B
per ~D(1)(AND)1777S*~OOOOB.D(2)(ANO)37777Bs RRFJ RSRi 9RU .-1
RSEi BRU G(l); CETE; 8RU G(l)J ENDM
~L.SF
1
MACR6 OJ DATA 23.0066+0(1)*'OBI iNCM
MACR6 01 DATA ~30006B+O(1).~OBI ENOM
tNDF
MACR6 NJE.CHRWO EQU ECHRWD*~ooe.N(1).6INECHR EQU NECHR+l
IF NECHR.2s DATA ECHRWDJECHRWO EQU O'NEC~R EQU 01 ENOF, ENDM
ECHe
MACR6 NiECHVB EQU N(1)8j RPT N(2)J ECHR ECHV
ECHVB EQU ECHVB+N(3)J ENDRI ENOM
TRP
MACRO ~;ENTCNT NARGJ RPT ENTCNT;~(ENTCNT) EQU TRAP
F"RGT ~(ENTCNT)IENTCNT EQU ENTeNTe1; ENOR; ENOM
ECHR
CACR
,-at.
l~B~
•
MACRB OJ 0(2)
IF 0(1)1 8RU PACACTJ BRU P~ST
E~SF' 11 BRU PE$TJ 6RU PACACTI ENOrl ENDM
MACRB DJ1~e~ EQU D(2)J RPT 0(2)s ~DA D(1)+1LBL.ll
EQU
1~6~.lJ
~NORI
~R~H
6
~NOM
*
** EXEC
~NTRY
EXEC t
E;QIJ
EXECP
~QU
eFFJNT E.QU
..
P81NTS
10000B
100016
100029
*
*
MACR6 DsENTCNT EQU 0(1).6*2006.D(2>*1006
•• 40000000S.D(4) (AND)1*406+D(4)(AND)2*100QOOOQB
RPT O(3)J DATA ENTCNT;ENTCNT EQU ENTCNT+l00BI ENORI ENOM
O~
FeRGT
MACRO O;ENTCNT NARGI RPT ENTCNT; FRGT O(ENTCNT)
FeRGT CRXF,AIB,8PB,SR8,AMS,APB,AKB
F'8RGT H8UFXIPNXF',~PXF'
FSRGT
RTCNT,PNCNTITCNT/~PCNi
F&RGT
RTWT,PNWT,TXWT
F6RGT
NTAPE'N~lNKJNBUFX,NBU'
F"6RGT
NTRiRY,NTWTRy,NOTRY
FeRGl
NDDW,NoXW,NoeW
F6RGT
N'I~E,UMSZ/NTTYC,TTYEWM
F'eRGi
NPAC,NPPAR,NJB6,NJBB1,NFQU,NSQU
F6RGT
NP6P,NMEM/NSMEM,NCM£M,NUMEM
F6RGT
NPUQ,NSEC'~2NSEC,NORQ,NSeNO,NSAMINSMT
F'6RGT
FeRGT
FBRGT
F"REEZE
END
OB6,E:NTCNT
SMIFJL,SM6A,SMDRN,FBWRO,SMBFtL
Bxe,BBP,eFP,BIN,elc,BDN,6DC,SIP,SIA
Source Exif Data:
File Type : PDF File Type Extension : pdf MIME Type : application/pdf PDF Version : 1.3 Linearized : No XMP Toolkit : Adobe XMP Core 4.2.1-c043 52.372728, 2009/01/18-15:56:37 Create Date : 2001:07:18 11:50:05Z Creator Tool : g4pdf Modify Date : 2009:09:22 09:12:07-07:00 Metadata Date : 2009:09:22 09:12:07-07:00 Producer : Adobe Acrobat 9.13 Paper Capture Plug-in Format : application/pdf Document ID : uuid:2c9c09f6-3c0f-445c-8d16-3482762b8151 Instance ID : uuid:7b0d9eea-25d3-4004-867a-e466e8dc5b6c Page Mode : UseOutlines Page Count : 200 Creator : g4pdfEXIF Metadata provided by EXIF.tools