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.IGFK * * * 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 ~I F'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