(navigation image)
Home American Libraries | Canadian Libraries | Universal Library | Community Texts | Project Gutenberg | Biodiversity Heritage Library | Children's Library | Additional Collections
Search: Advanced Search
Anonymous User (login or join us)
Upload
See other formats

Full text of "AH 2558B SC RSX11M"

QOOOOQ 
OOOOCl 



CRBINT=0 
RSX=1 



B 1 



"L 



BIS'.'NC MMCPO n^Q^ Ob-DEC-77 08: 18 PfiGE 2 



3 




H 


000000 


5 


0002HO 


6 


0002m 


7 


0002H2 


8 


0C02HH 


9 


000250 


to 


000257 


tt 


0002bl 


12 


000262 


13 


000264 


m 


000270 


15 


000277 



; PREFIX FILE KOR RSXlin ASSEMBLER PND ANY OTHER ASSEMBLER 

; WHICH DOES NOT RECOGNIZE OPCODC nNEMONICS EXCEPT WHEN THEY 

;flPPEflP IN THE OPCODE FIELD 

HflLT=0 

N0P=24Q 

cic=2m 

CLV=2H2 
CL2-2HH 
CLN=250 
CCC=257 
SEC=261 
SEV=262 
SE2=264 
:EN=270 
SCC=277 



BiSYNC nwicpo nnoH ofe-DEC-77 08. 18 prge 3 



D 1 



I 



E 



7 

8 
9 

16 
11 
12 
13 

m 

15 
Ifc 
1" 

IS 



20 
21 

23 
24 
25 

2b 

■•>~> 

28 
29 
30 
31 
32 

-» -9 

35 

36 
37 
38 
39 

40 

m 

42 
43 
44 
H5 
46 
47 
48 
49 
60 
51 
52 
53 
54 
55 
56 
57 



COriTEX-ll BISYNC TOP 

COPYRIGHT (C) 1975. 1976, 1977 

DiGlTfiL EQUIPMENT CORPORRTION, MflYNORD, MPSS. 017£4 

THIS SOFTWARE IS FURNISHED UNDER fl LICENSE FOR USE ONLY ON 
fl SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH 
THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS 
SOFTWARE, OR ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED 
OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 
EXCEPT FOR USE OK SUCH SYSTEM AND TO ONE WHO AGREES TO 
THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF THE 
SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC. 

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE 
WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COM- 
MITMENT BY DIGITAL EQUIPMENT CORPORATION. 

DEC ASSUMES NO RESPONSIBILITY TOR THE USE OR RFLIABILITY 
OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED B> 
DEC. 

. TITLE BI3YNC 
. IDENT /VO'3237/ 
;TflPE 1 Qf 5 

PEUISION HISTORY 

NOV 1977 - CEP (EDIT 41) 

CHANGED SETEOF 'ODE TO IGNORE AN EOT IN RESPONSE TO BID 

MOV 1977 - CEP (EDIT 40) 
PUT IN TIMEOUT COUNTERS 

SEP 1977 - CEP (EDIT 37) 

CODE DELETED FOR CUT CODE CHANGES 

JUN 1977 - CEP (EDIT 3G) 

CHANGES TO ALLOW PACKAGE TO RUN ON AN LSIll 
REQUIRES MODIFICATION TO THE HANDl ! MG OF THE PS AND KGll 
MAR 1977 - CEP (EDIT 35^ 

CHANGE KGll CODE SINCE IT IS SINGLE LINE - PSTS ONLY 

MAP 1977 - CEP 'ED IT 34) 

PUT IN NAK AND TIMEOUT COUNTS FOP USE BY RSTS ONLY 



FEB 1977 - CEP (EDIT 33) 

MOVED RESETTING OF USER OVERFLOW EiT TO PVO | D A 
TIMING ERROR WHICH LOST THE SECOND RECORD 

JAN 1977 - CEP (EDIT 32) 

PUT IN CONDITIONAL ASSEMBLIES TO CUT BACK SIZE OF CODE 



E 1 



BISYNC ^QCPO nilQi* Ofe-DEC-77 08:18 PR6E 3-1 



E 1 



55 
B9 
bO 
bl 
62 
b3 
rU 
bB 
66 
67 
63 
69 
7C 
71 



7H 
75 
76 

7S 

79 

SO 

81 

82 

83 

S^ 

SB 

86 

S7 

SS 

89 

90 

91 

92 

93 

9H 

9'S 

•=»b 

97 

9S 

QQ 

100 
101 
102 
103 
104 
105 
106 
107 
lOS 
109 
110 

111 

112 
113 

im 



SEPT 1976 - CEP (EDIT 31) 

PUT IN SPECIRL CHECK FOR PERMRNENT NRTIVE MODE POSSIBLE IN 
RSTS - SOLVES TIMING PROBLEM 

SEPT 1976 - CEP (EDIT 30) 

PUT IN CHECK FOR BLOCK SIZE MINUS 6 ON ITB - FIXES fl 
MULTIPLE RECORD TRANSMISSION IN GEN MODE 

SEPT 1976 - CEP (EDIT 27) 

SET P FLAG WHEN BEING 'WflK'ED CO THfiT THE PSTS 

30 SECOND TIMER CAN TELL UE PRE IN WPKS AND NOT HUNG 



AUGUST 15, 1975 - RHR (EDIT 26) ] 

PE INSTALL ACK AVAILABLE FLAG IN THE LINE STATUS WORD 
IT IS NEEDED TO INFORM THE TAP AS TO WHEN THE UAP IS FINISHED 
PROCESSING A BLOCK OF DATA. ALSO, DELETE THE SEND ACK 
FLAG IN THE LINE STATUS WORD (IT I S NOT USED!?) 

JULY 16, 1975 - RHR (EDIT 25) 

FIX PUTTC CODE TO ALLOW A PUTTC TO CHANGE MODES IN THE 
OF A MESSAGE TRANSFER. THIS WILL PERMIT THE SENDING OF 
AND NON-NATIVE DATA IN THE SAME TRANSMISSION 



MIDDLE 
NAT I VE 



JUNE 23, 1975 - RHR (EDIT 24) 

REVAMP THE TIMER CODE. ESTABLISH H Bt'TE IN 

THE LINE TABLE (SRC I MRC) WHICH CONTAINS P COUNTER 

THIS COUNTER WILL BE DECREf.ENTED EVERY TIME A 1/2 SECOND T 

GOES OFF. IF THE COUNTER IS ZERO THE TIMEOUT ROUTINE FOP 

THE TIMER WILL BE CALLED. THE INTERVAL TIMER 

IS STARTED AT INITIALIZATION TIME AND IS ALWAYS TICKING 

THIS WILL SOLVE THE TIMER QUEUE OVERFLOW PROBLEM WITH RSX 

AND ST'LL BE ABLE TO IMPLEMENT THE REAL SLAVE RECV. TIMER 

N. B. THIS EDIT DELETES THE EDIT OF 7/9/74 CONCERNING THE T 

JUNE 17, 1975 - RHR (EDIT 23) 



MER 



MER. 



MODIFY INITIALIZATION CALL PARAMETER LIST IF UAPTIM 
IS DEFINED SO THAT USER PROGRAM SUPPLIES ALL TIMER VALUES 
THIS WIlL allow THE UAP TO TAILOR THE TIMERS TO BE DEPENDENT 
ON LINE SPEED AND ON TICS PER SECOND. THE IMPLEMENTPT lON 
ASSUMES THE SAME VALUE FOR ALL LINES (NOTE: AS OF THIS 
EDIT THE TAP WILL NOT RUN MULTIPLE LINES). 



JUNE 16, 1975 - RHR (EDIT 



22) 



FIX WACK HANDLING CODE TO LET EITHER THE ENQ OP MASTER TIMER 
CAUSE THE NEXT ENQ TO BE SENT. THIS WILL PREVENT TOO MANY TIMERS 
GETTING QUEUED WITH THE RSX- 11 VERSION. N. B. THE MTOIIT BIT 
IN THE TRANSMIT STATUS WORD NOW INDICATES TIMEOUT 



D 1 r-^\.\r 



Mnr r\ r\ 



■ ^ "1^ ,^^^ A r\ M^^^^ ^ .^^ 



F I 



BiSYNC HRCPO nno^ ne-OEC-?? os. 18 prge 3-2 



r t 



lis 
lib 

117 
US 
119 
120 
121 
122 
123 
124 
12B 
12b 

12:^ 
12s 

1 2'^ 
130 
131 

1 7") 
t ... 

1:3 

\2M 
13B 
13b 
137 
13S 
139 

mo 
mi 
m2 
m3 
\^^ 
ms 
me 
m7 
ms 
m9 
i&o 

15i 
152 
153 
15H 
15B 
I5b 
15;- 
15S 
159 
IbO 
Ibl 
162 
163 
IbU 
165 
166 
167 
16S 
169 
170 
171 



; OR WPCK RECEIVED. 

; MRY 28, 1975 - RHR (EDiT 21) 

; ADD TRPNSPflRENT RECORD I NO I COT I ON TO RECEIVE COMPLETE 
;STPTUS RETURN (TRNREC 'N RSW). 

; fiPRIL 28, 1975 - RHR (EDIT 20) 

;GLOBRLIZE int EBCDIC TO fiSC I I TRPNSLflTION TRBLE FOR THE UflP 
;EXPRNC TRRNSrilT DONE UiB ENTRY TO 4 WORDS WHERE THE FOURTH 
;WORD IS THE NUtlBER OF RECEIVED NPKS FOR THIS BLOCK 

; FEBRURRY 12, 1975 - RHr (EDIT 17) 

'insert TTD sequence DETECTION. TRP SHOULD, UPON FINDING 
;RN ENQ FOLLOWING RN STX IN TEXT, SET fl NRK EXPECTED FLRG 
;RND TRRNSMIT THE BUFFER IMMEDlRTELY. UPON RECEIVING 
;THE NRK |T WILL GENERRTE fl UIB ENTERY 

; JRNURPY 31, 1975 - RHR (EDIT 16) ' 

.REMOVE LAST REMEN!^NTS OF LINE TURNRROUND DELAY - ACK AVAILABLE 
:FLRG 

; JRNURRY 30, 1975 - PHP 

' 

-FIX SO THAT MASTER TIMEOUT FLAG DOES NOT GET CLEARED 

: IN TRANSMIT COMPLETE CODE. 

;ALSO, FIX A RSTS STACK POPPING PROBLEM IN THE PUTTC CODE 

: JANUARY 23, 1975 - RHR 

CHANGE DEFINITION OF "THALT", TIMER QUEUE OVERFLOW HRLT, 

TO fl "NOP" SO RSTS RND UNMAPPED RSXllM HON'T HALT BUT R 

WORD IS STILL SAVED SO IT CAN BE PATCHED FOP DIAGNOSTIC PURPOSES 

: DECEMBER 27. 1974 - RHR 

DON'T ALLOW ANOTHER SLAVE RECEIVE TIMER TO BE STARTED IF 
ONE ALREADY IS GOING. THIS FIXES fl PROBLEM FOUND WHEN 
RUNNING IN TRANSPARENT MODE IN WHICH fl TIMER WOULD GET 
QUEUED ON EACH "DLE-STX" SEQUENCE OF THE MESSAGE. UNDER 
CERTAIN CONDITIONS THE TIMER QUEUE WOULD O'/EPFLOW WITH 
UNNECESARY TIMERS. 

DECEMBER 5,1974 - RHR 

CORRECT REVISION OF 8/13/74 

REQUEST A RESYNC AFTER WRONG flCK IS PECEl'/ED IN CASE THE 

LINE IS A FULL DUPLEX LEASED LINE 

AUGUST 16, 1974 - PHP 

CLEAN UP CODE fl BIT 

AUGUST 13, 1974 - RHR 



D I c Vk.ir 



Moroi^ M4inii 



O^ f\r z' ^'y r> ey 41^ r\ f^./^^ ^ m 



G 1 



BISYNC MfiCPO nnOH 06-DEC-77 08:18 PRGE 3-3 



G 1 



172 
173 

l7^ 

17B 

PS 
177 
178 
179 
180 
181 

:S3 
isu 

185 
186 
187 
ISS 
189 
19C 
191 
192 
193 
194 
19S 
19b 
197 
158 
199 
200 
201 
2^2 

. Jj 
20H 
2C5 
206 
207 
208 
209 
210 
211 

y^ . n 

I. 1 i, 

213 
214 
215 
216 
217 
218 
219 
220 
221 



■7^7 

224 
225 

22S 



; CHECK FOR WRONG flCK AFTER RN ENQ REQUEST FOR SLAVES LRST 

; RESPONSE, I.E. RECE IIMNG STATION NEVER 

; RECEIVED THE LAST BLOCK WE SENT, WE TlflED OUT 

; AND REQUESTED A RESPONSE AND SENT US BACK THE ACK FOR 

; THE PREVIOUS BLOCK 



;JULY 9, 1974 - RHR 

;RDD CONDITIONAL ASSEMBLY PARAMETER "RSXllM". DEFINE FOR 
; USE WITH RSXllM. (MAINLY USED TO CAUSE THE M-ASSEMBLER 
; IGNORE .EOT'S SINCE IT WILL NOT ORDINARILY DO IT) 
; JUNE 13, 1974 - RHR 

; CAUSE "RVI" TO TOGGLE ACK COUNTER 

; REVAMP SLAVE RECEIVE TIMER SO THAT IT IS SET WHEN MESSAGE 

; IN PROGRESS IS SET (MIP) AND CLEARED ONLY WHEN THE MESSAGE 

; HAS BEEN COMPLETED (I.E. AT ETB OR ETX). THE TIMER 

; LENGTH HAS ALSO BEEN EXTENDED. THIS CHANGE WILL PREVENT 

; THE TIMER QUEUE FROM OVERFLOWING. 

, N. B. TO USE THE STANDARD IP":,780 RECEIVE TIMER DEFINITION 

; DEFINE THE ASSEMBLY LUNDITIONAL "STDSRT" 

;IF A LEGAL FIRST CHARACTER (I.E 

, NOT RECOGNIZED AFTER THE FIRST 

; RECEIVED THEN FLUSH THE BUFFER 

;flDD CONDITIONAL ASSEMBLY SWITCH 

; INPUT FROM USER PROGRAil IF F'^C 



STX, SOH,EOT.NAK,ENQ. 
7 CHARACTERS 
AND RESET CRB TIMER. 
ASCI TO DENOTE ASCI I 

IS DEFINED 



; 



; JUNE 12, 1974 



RHR 



; CRUSE TAP TO APPEND PRO CHRPRCTEP IN RBNOPMRL TPRNSMIT 
;iNSTEflD OF RECEIVING IT FROM USER PROGRRM TO AVOID TRRNSLRTION 
;TRBLE CONFLICT BETWEEN DEL AND PRD (BOTH RSC I I 177) 

; JUNE 11, 1974 - RHR 

;REMOVE LINE TUPNRROUND DELftY TIME - HRRDWflPE TRKES CRRE OF THIS 

; JRNURRY 14, 1974 

;37S0 EMULftTOR CHANGES MRY BE flSSEMBLED BY DEFINING P37S0 



JRNURRY 9, 1974 

THIS REVISION PROVIDES THE CHRNGES FOR THE PSX 
RND RSTS-E VERSIONS RND RODS CONDITIONRL ASSEMBLY 
PRRAMETER CFD26. IF CPD26 IS N0N-2EP0 FEflTlJPF.S OF THE 
BISYNC TAP WHICH APE NOT USED BV THE 2780 prs RPE 
NOT ASSEMBLED. 

SEPTEMBER 13,1973 

RESET RCVE TIMER WHEN OLE I TB IS PECEi"ED 
DELETE STX FROM I TB RECORD BLOCKS ^ NON-TRPN^PflPEnl ) 
IF OF RSTS 
08=0 



Ri<^/Kir Moron Miinu nii_nrr_77 no. io nnrr •> 



H 1 



[ 



B12.NC MflCPO nnOH Oe-DEC-?? 08: is PAGE 3-4 



H I 



229 




230 




231 




232 




233 




234 




236 




236 


GCGOOO 


237 


000000 


238 


OGOOOO 


239 




240 




241 ; 


OOCOOl 


242 




"U7 




iHH 




24 B 




24b 




247 




24S 




249 




2BG 




2S1 








253 




2B4 




2B5 




256 




257 


177776 


258 


OOGOOO 


259 


^ OGOOOl 


260 


000002 


261 


000003 


262 


000004 


263 


000005 


264 


OOU006 


265 


000007 


2bb 


000007 


267 


000006 


26S 


000005 


269 


000004 


270 


000007 






j-i-y ^ 




1.1 i. 




273 


170700 


274 


170702 


275 


170704 


276 




277 




27S 


000252 


279 


000272 


2SC 




2S1 




.-» o ■o 





234 
2S5 



flSCI=0 

. ENDC 

. IF DF RTll 

flSCI=0 

.ENDC 

. IF DF RSX 

UflPTin=0 

0S=0 

RSCI=0 

.ENDC 



;RSTS USER PROGRfln SUPPLIES ASCII CHflRRCTERS 



;Ufi? SUPPLIES TIMER VALUES 
RSX USER PROGRfln SUPPLIES ASCII CHARACTERS 



CPD26=1 



IF DF LSlll 

GLOBL %CPC16.CRCCHR,CPCACC 

ENDC 

GLOBL CTiriE,CTDEL 

GLOBL C SARP.C. SFY 

GLOBL C. BPD,C. BPTC-C. BARB, C. BINT 

GLOBL C.BLTL 

GLOBL ETA 

IF NDF RSTS&PSX&PTll 

GLOBL CP TBL 

ENDC 

GLOBL C. BMSE-C. BODE 



EBCDIC TO ASCII TRANSLATION TABLE 



;DEFIN!TI0N Of REGISTERS. ETC 
C. STAT=177776 
RO=aO 

Ri = -;l 

R2=:<2 

R3=*^3 
R4 = v^ 

R5 = -^5 
P6 = *<6 
R7 = :^7 
PC = :<7 
SP^v.6 
CBRX3V5 ' 
CBBX=X4 
PETNX=v7 



ADDRESS OF PPOC. STATUS REGISTER 



CPB UNLOADER PEG I STEP DEFINITIONS 
MUST NOT BE PEDEFiNED FOP USE WITH 
THE poM ISP. 



: KGIl DEFINITIONS 
KGSTAT= 170700 
K.GBCCP = KGSTAT+2 
KGDATA=KGSTAT+4 



STATUS/CONTROL PEG I STEP 
BCC REGISTER 
DATA REGISTER 



..•SPECIAL INSTRUCTION MNEMONICS 

CLNV=CLN!CLV 

SENV=SEN!SEl'' 



.IF NDF THALT 
THALT=NOP 
. ENDC 



; TIMER QUEUE OViEPFLOli flCTiON - PATCH TO HALT IF r<ECESSRRY 



BISYNC MACRO M1104 06-DEC-77 08:18 PRGF U 



I 1 



n 



BISYNC MACRO nnG^ Ob-DEC-77 08: 18 PAGE ^4 



I 1 



2S7 




2SS 




2S9 




290 




291 


000000 


292 ^ 


OOOOOl 


293 . 


000000 


29H 


OCOOOl 


295 




296 




2^7 . 




29S - 




"QQ ; 




300 ^ 




301 




302 




303 




ZQM : 




30S ^ 




30b , 




30? 




308 




309 




310 




311 




312 




313 




3m 




315 




31b 




317 




JIS 




319 




32n 




3>l 




322 : 




323 




324 neocoo 




325 000000 


OOCOOO 


32b 




32S 




329 




330 




331 




332 


0000 10 


33Z 


000010 


Z3^ 




335 


00G007 


■^Jh 


000G34 


337 




- - (-V 




J.w>S 




339 


000fc20 


3H0 




3H 1 




342 




mz 000002 


000000 



; CONDITIONAL ASSEMBLY PARAMETERS 

; DEFINE THE FOLLOUING TO BE NON-ZERO TO IMPLEMENT THE FEATURE 



CA. ASC = 
CA. E9C = 1 
CA. SBT=0 
CA. NCR = 1 



; IMPLEMENTS ASCII FACILITY(N0T IMPLEMENTED) 
; IMPLEMENTS EBCDIC FACILITY 
IMPLEMENTS SBT FACILITY (NOT IMPLEMENTED) 
;DEriNE AS IF B I TAP LINKED UITH CRll ISR/TAP 



.DEFINE THE FOLLOWING SYMBOLS (TO ANY VALUE) TO IMPLEMENT THE 
.CORRESPONDING FEATURE 

;RSTS - DEFINE TO RUN WITH RSTS/E 

;RS.X - DEFINE TO RUN WITH RSX-llD/M 

;RT11 - DEFINE TO RUN WITH RTll 

;ASCI - DEFINE IF USER PROGkAM SUPPLIES ASCII DATA (AUTOMATICALLY 
; DEFINED IF RSfS, RSX OR RTll IS DEFINED) 

> 

:P37SG - DEFINE FOR IBM 3780 EMULATOR 

•OS - DEFINE l"^ RUNNING W i Th AN OPERATING SYSTEM 

; iflUTOMATiCALLY DEFINED FOR RSX. RTll. AND PSTS) 

;CDF2b - PACKED HOLLERITH INPUT 

;UAFTin - USER PR0GR:^M SUPPLIES TIMER VALUES IN TICS AS FiULOUS- 
LIST+b: CONTENTION TIMER 



LIST+10 
LIST+12 
LIST+m 
LiST+ie 



n OF TICKS IN AN INTERVAL 
« OF TICINT FOR MASTER TIMER 
tt OF TICINT FOR SLAuE PECEi'^E 
CRB TIMER 



MEP 



.-TIMEOUT VALUE FOR ENQ CONTENTION 

. IF DF UAPTIM 

. PSECT XXX 
CONTIM: . WORD 

. IFF 

CONTIM=fcO. 

C0NTIM=1S0. 

. ENDC 



THIS 



1 z 



FOP PR IMAPY a SEC) 



THIS IS FOR SECONDARY (3 SEC) 



ENO AND NAK RETRY COUNTS 

ENQCNTMO 

NAKCNT=10 
NUMBER OF BUFFERS SUPPORTED BY THE TAP 'PEP LI NE ^^ 



C. BUFF= 7 



MBX = C. BI'fF+C. BUFF+C. BUFF+C. BUFF ; MAX BUFFER SLOT INDEX 

. SIZE OF THE TAP INTERNAL BUFFER UN LINE TPRLE ) 
BSIZE=400. 

.; TIMER VALUE FOP MASTER STATION RECEIVE TIMEOUT 

. IF DF UAPTIM 
MSRT: . WORD 



BISYNC MACRO MllOH Ob-DEC-77 08:18 PAGF U-1 



J 1 



f; 



BIStNC riQCPO nilOH Ob-OEC-77 08:18 PRGE ^-l 






J 1 



. IFF 

nSRT=180. /TICINT 

. ENDC 



;3 SECONDS 



3U9 

350 00000^4 GOQOOO 

3S1 

35: ^ 

3B3 

3SH 

35S 

35b 

357 000006 GOQOOO 

158 

3fe0 

3bl 

ZbZ 

363 

364 CC0007 

365 

36b 

36" 

36S 

369 

370 



;TiriER VALUE FOR SLfiUE STRTION RECEIVE TIMEOUT 

. IF OF UflPTIM 
SSRT: . UORD 

. ENOC 

. IF NDF UflPTIM 

SSRT=180. /TICINT 

. ENDC 



TICINT. 



. IF OF 
. WORD 
. IFF 
TICINT:30 



URPTIil 




NTERVflL FOR MPSTEP/SLOVE TIMERS 



; INTERVAL FOR SLAVE RECEIVE TIMER = 1/2 SECOND 
;THE ACTUAL LENGTH OF THE SLAVE RECEIVE TIMER 
; IS TiriNT*SSRT 

. ENDC 
NUMCFP OF LEADING GRAPHICS PEPMITED BEFORE A CONTROL SEQUENCE 

LDGPPH=7. 

. IF NDF RCVSIB 

PCVSIB::0 

. ENDC 

. IF NDF CPb'NT 
CRBINT=G 
: ; . ENDC 



J 



B I SYNC MflCRO M1101+ Ob-DEC-77 08:18 PAGE S 



K 1 



r. 



BiSYNC npcpo rinoi4 Ob-DEC-77 08: i8 prge 5 



K I 



6 



■?7'? 



373 




37H 


000020 


375 


000002 


37fc 


000001 


377 


000003 


378 


000004 


379 


000005 


380 


000025 


381 


000026 


382 


000027 


383 


000037 


384 


00C177 


385 


000036 


386 





flSCI I CHflRRCTER DEFINITIONS 



DLE=20 

STX=2 

S0H=1 

ETX=3 

E0T=4 

ENQ=5 

NRK=25 

SYN=26 

ETB=27 

ITB=37 

PflD=177 

IPS=3b 



BISYNC MRCRO MllOH Q6-DEC-77 08:18 PRGE 6 

•- ' . - i -_ . . L_ :. __^ . ^ ^ ^ __^ . — 



L 1 



B 



BISr'NC riPCPO 


nil04 06-DEC-77 08: 18 


PRGE 6 


I I 


383 




; LINE TABLE DEFINITIONS 


389 


000002 


IPL^2 


; ISR PfiRRriETER LIST 


390 


^^0004 


RBUslPL-^Z 


;CRB UNLORDER POINTER 


391 


000006 


LC'^=RBU+2 


;LINE CONTROL WORD 




000010 


LS^J=LCW+2 


;LINE SIRTUS UORD 


393 


000012 


RSy=LSW+2 


; RECEIVE STRTUS WORD 


394 


000014 


TSW=RSW+2 


;TRRNSmT STRTUS WORD 


395 


000016 


fiSX=TSW*2 


;fiSSIGN SLOT INOE'< 


396 


000020 


RCX=flSXT2 


; RECEIVE SLOT INDEX 


397 


000022 


flRfl=RCX+2 


; ACTIVE RECEIVE RODRESS 


393 


000024 


fiBC=flRP+2 


; ACTIVE BYTE COUNT 


399 


000026 


UBL = flBC-^2 


;ONE 2-WORD SLOT PER SUPPORTED BUFFER 


^QO 


0000b2 


lRC=UBL+riB.y 


; INTERIM RECEIVE COUNT 


4G1 


000064 


TXC=IRC-»'2 


- ;USER CHRRS XMITTED SO FRP 


402 


000066 


TS0=TXC+2 


; ORIGINAL USER XfllT RDDR 


403 


000070 


TBC=TSfl+2 


; ORIGINAL USER XMIT COUNT 


4 04 


000072 


ISC=TECi2 


.IDLE SYNCH CONTROL-MUST PRECEDE Tlfl 


40S ' 


000074 


TlP=lSC+2 


; TRANSMIT BUFFER 1 


40b 


J00076 


TlC = TlPi+2 


, TRANSMIT COUNT 1 


4J7 


000100 


T2R=TlC+2 


;TRPNSMIT BUFFER 2 


403 


C00102 


T2C=T2fl+2 


; TRANSMIT COUNT 2 


409 


000104 


T3fl=T2C+2 


; TRANSMIT BUFFER 3 


410 


000106 


T3C=T3fl+2 


: ; TRANSMIT COUNT 3 


411 


nooiio 


TTM=T:^C + 2 


; TERMINATES TRANSMIT CHAIN (RLWAYS ZERO) 


412 


000112 


TBS=TTn+2 


;TAP BUFFER START 


413 


000114 


TRC=TBS+2 


; RECORD COUNTER (BYTE) 


414 


000115 


nPC=TRr+i 


; .MASTER RECEIVE TIMER COUNTER fBYTE) 


415 


000116 


THC=TRC+2 


;HCLD COUNT 


416 


000120 


TCT=THC+2 


r ;T1CK COUNT FOR CRB SERVICE TIMER REQUEST 


417 


000121 


ECH=TCT+1 


; ; CURRENT END CHARPCTER-MUST PRECEDE CBC 


41S 


000122 


CBC=ECH+1 


; COMPUTED BCC 


419 


000124 


PBC=CeC+2 


; RECEIVED BCC 


420 


000126 


BCC=RBC+2 


;BCC CHARACTER CO' MT (INCLUDING PAD) 


421 


000127 


BCL^BCC+1 


;BCC LATCH 


422 


000130 


TCP=BCC+2 


; TRANSMIT CHAIN POINTER 


423 


000132 


CCTrTCP+2 


\ ^ ; ACTIVE CODE CONTROL TABLE 


424 / 


000134 


CflK=CCT+2 


;fiCK RECOGNITION WORD ^RCV) 


425 


000136 


flKT=CflK+2 


;XMIT ACK COUNTER (BYTEi 


426 


000137 


R!B=flKT+l 


; RECORDS- IN-BLOCK COUNTER fBYTEj 


427 


000140 


EKT = flK.T+2 


:ENQ COUNTER (BYTE) 


425 


000141 


PKT=EKT+1 


, ;RETRY COUNTER (BYTE) ^ 


429 


000142 


TCU=EKT+2 


; TERMINAL STATUS WORD 


U30 


000144 


TT2fl=TCW-»-2 


;TEMP. T2A 


431 


000146 


rT2C=TT2fl+2 


-TEMP. T2C 


4 32 ■;';:■■ 


000150 


TT3fl=TT2C+2 


;TEMP. T3A 


433 \v::-: : 


000152 


LGC=TT3P+2 


.COUNTER FOR LEADING GRAPHICS 'PEF P'~ A BYTE) 


, 4 34 


000153 


SPC=LGC+1 


; SLAVE RECEIVE TIMER COUNTER iBYTEi 


4 35 V 




;THE FOLLOUiNU 


IS THE TAP BUFFER STORAGE FOP THIS LINE 


4 36 




; IT MUST BE THE 


LAST ITEM IN THE LINE TABI E 


4 37 


000154 


TIB=LGC+2 




4 3S 








4 39 " 




; THE FOLLOWING 


DEFINES THE TABLE SIZE FOP LINiT SERVICE 


440 


000776 
000776 


LTL=TIB+BSIZE+2 
C BLTL=LTL 




44 1 ' 


:MAKE THE SCIP'hAPPY BY MAK 1 NG'tABLE's 1 ZE 


442 






;A GLOBAL PARAMETER 



44 3 
444 



BISYNC MACRO M1104 06-DEC-77 08: 18 PAGE 6-1 



M 1 



Bl 




f 



B\': : nflcpo nnoH ob-dec-?? os-. is ppge 7 



N 1 



Bl 



e 



nRCPO nnOH Ob-DEC-77 08:18 PfiGE 7 



N 1 



Bl 



^HS 
^^^ 
4B0 
HSl 
462 
HB3 
UB^ 

HBB 
1466 
HS7 
468 
HB9 
460 
461 
462 
463 
464 
4b^. 
466 
467 
46S 
469 
470 
471 
472 
473 
474 
475 
476 
477 
47S 



000001 
000002 
000004 
OOOOIO 
000020 
000100 
000200 
000400 
001000 
002000 
004000 

01 coon 

020000 
lOOOCC 



000001 
000002 
000004 

000020 
000040 
000200 
0004 00 
00 1 LOO 
0020UG 
004000 
010000 
020000 
040000 
100000 



; LINE CONTROL 
XPC = 1 
X. =XRC + 1 
nCF = 4 
SIS=10 

riss=20 

00F=100 

DLEF=200 

INI=400 

NRT=1000 

flFX=2000 

ITS=4000 

XXP= 10000 

XPT=20000 

PCVTrlOCOOO 



WORD BIT DEFINITIONS 
;CURRENT CODE: CO - flSCILOl - SBT, 10 - EBCDIC 
; SECOND BIT OF CODE FLPG 
;nRSTER CONTENTION FLAG 
;SERmL/INTERLEflVED SELECT 
;MfiSTER/SLRVE SELECT 

OPTIONS ONLY FLAG (PUTTO 

DLE FLOG - PREVIOUS CHAR WAS OLE 

iNIT FLAG - IF INIT, 1 IF MESSAGE TRANSFER 

NATIVE MODE SELECTED 

ABNORMAL FORMAT XMIT 

ITB SELECT 

XMIT TRANSPARENT - TOGGLED FROM XPT 

TPRNSPF.RENCY TOGGLE - 13T PUTD Or BLOCK. SETS XXP 
;PECEIUE TRANSPARENT - SET BY PECEIV'EO DL^ STX 



; LINE STATUS UORD BIT DEFINITIONS 

PBfl=l ; RECEIVE BUFFER ASSIGNED 

CSA=2 ;CPB SERVICE ACTIVE 

RAF = 4 ;ACK. AVAILABLE FLAG - UAP HAS DONE AN ACK flSPBUF 

SINCE THE LAST RECEIVED RECORD 

STX FOUND IN TEXT - EDIT 1 7A 

PUTD OVERFLOW REJECT FLAG 

B'C ACCUMULATE FLAG 

SLAVE RCVE Tir.ER ACTIVE 

RESTORE X-niT POINTER FLAG 

ITB ACTIVE - PREVIOUS BLOCK ENDED UITH 

NAK EXPECTED FLAG (TTD SEQUENCE SENT) - 

TRANSMIT ACTI:'E 

ACK EXPECTED FLAG 

ACKNOWLEDGE NOTIFY FLOG 



STXF=20 

RJT=40 

BCCA=20'' 

SPTA=40u 

PDBFMOOO 

iTBA=2000 

NEF=4000 

yAC= 10000 

AEF= 20000 

HNFrHOGOC 

MIP^IOGOOO 



TB 
EDiT 



MESSAGE IN PROGRESS 



EISYNC MQCPO HHOH Qo-DEC-77 08: IS PRGE 8 



B I 



480 




^Sl 




4 82 


Goooni 


4S3 


ooQoo: 


4S4 


OOQ0G4 


485 


OOOOIG 


486 


OOG020 


487 


OC0040 


4SS 


000100 


489 


OGC200 


490 




491 


GOG400 


14^2 


001000 


^r^ 


GG2000 


494 


GG4000 


495 


GlGOOO 


4St 


G2G000 


497 


G4G000 


498 


100000 


499 




500 




501 




502 




503 


GGOIOO 


504 


000200 


505 




50b 




507 


000400 


508 


GO 1000 


509 


OG2000 


510 




511 




512 


04COOO 


513 


IGGOOG 



; RECEIVE STATUS UORD BIT DEFINITIONS 



CRD=1 

NUB = 2 

DCH=4 

PCH=10 

U0UR=2G 

COVR=*G 

R0VR=1GG 

SRT0F=20G 

FBFrLOO 

TRNR£C=1000 

C, BE0F=2G00 

DSC=4GGC 

riEND=lGGOO 

BEND=2GG00 

flEND=40GGG 

qRF= 100000 



; CARRIER DROP FLAG 

;N0 USER BUFFER ASSIGNED 

;0ATA CHECK (BCC ERROR) 

; PARITY CHECK 

;USER BUFFER OVERFLOW 

;CRB OVERFLOW 

;RECEIVE OVERFLOW (HARDWARE) 

, SLAVE RCVE timeouT FLAG 

; 'FLUSH BUFFER' FLAG 

.TRANSPARENT RECEORD RECEIVED (DLE-STX) 

,END OF TRANSMISSION (EOT DETECTED) 

;DiSCONNECT FLAG (OLE EOT RECEIVED) 

;nESSAGE END fETX RECEIVED) 

; BLOCK END (ETB RECEIVED) 

; ABNORMAL END - NO RECOGNIZABLE END CHRP 

; ABNORMAL RECEIVE FORMAT ( NOT ST:-, OP OLE STX) 



TPANSMIT STATUS WORD BIT DEF'NITIONS 



MT0UT=1GG 
0VXM=2G0 



ETVF=4G0 

ESNT=1GGG 

BSNT=2GGG 



PVI=4.:;n00 
NAKF = 100001: 



MASTER TinE OUT HAS OCCURRED 
OVERRIDE TRANSMIT ATTEMPT 



ETX SENT 
EOT SENT 
BID (ENO^ 



MESSAGE SENT 



REVERSE INTERRUPT RECE i uFD 
NAK FLAG 'HLSO SET BY ABNOPMAL 



CONDITIONS) 



TISYNC MQCPO MUOH Ofe-DEC-?? 08; 18 PRGE 9 



C 2 



B15 




Bib 




517 


000000 


BIS 


000001 


B19 


000002 


B20 


000003 


B21 


ooooo^ 


C. 7 7 

«/ *tf fttf 


000005 


B23 


000006 


B2H 


000007 


B2B 


000010 


B2b 


CG00!6 


B27 


G0C022 


B2S 


000024 


B29 


000026 


B3C 


000027 


El 7 ' 
-' . I 

C 7 •^ 


0G0030 






B3'-4 




b36 




B3b 


00G031 


B3^ 




B3S 


000032 


B39 


000034 


B^0 


0G0036 


Bm 


OOOGHG 


B42 


0000U2 


BH3 


000044 


B'+4 


000046 


B145 


000050 


BHb 


000052 


BU? 


000053 



; CODE CONTROL TOOLE DEFINITIONS 



CRVI=0 

CUflK=CRVI+l 

CPRD=CURK+1 

CSTX=CPflD+l 

CSOH=CSTX-H 

CETB=' .OH+1 

CETX=CETB+i 

CITB=CETX-H 

CDLE=CITB+1 

CSYN=CDLE+6 

CENQ=CSYN+4 

CNflK=CENQ+2 

CE0T=CNRK+2 

BTCE=CE0T+1 

BTCI=ETCE+1 

. iF OF P3780 
CIRS=BTCI+1 

. ENDC 

LflSBYT=BTCI+l 

SYP = LRSBYTM+LflSBYT 

KGC=SYP+2 

RTT=KGC+2 

qTP = flTT-^2 

RnP=RTR+2 

NnP=RnP+2 

PPD=NMP-^2 

MDC=PPD+2 

cPK0=nD':+2 

CflKl-CPhO+l 



RVI 

URCK 

PRO 

STX 
SOH 
ETB ET CETERR 



G-E - RLSO STRRT OF RCK MESSRGES 

SYN - 4 OF THEM HERE FOR HERDER MESSRGE 



NO 
NO 



OF 

OF 



CHRRS 
CHRRS 



IN 
IN 



BCC 
BCC 



(ETB 

( ITB 



OR ETX 
OPERRT 



OPERRT 
ON) 



ON) 



USED TO FORCE NEXT INDEX EVEN 

SYN POINTER (MUST BE WORD BOUNDRRY) 

KGll CLERR/SELECT CODE 

ACTIVE TRANSMIT TRRNSLRTOR 

RCTIVE RECEIVE TRRNSLRTOR 

RCK MESSRGE POINTER 

NRK MESSRGE POINTER 

WHERE TO PUT THE PRD FOR BCC 

MODE WORD FOR I SR MODE CONTROL (PUTTC - INIT) 

CHRP FOR RCKO RECOGNITION 

:CHRP FOP RCKl MESSRGE 



n 



EIlYNC nprpo nnOH Ob-DEC-77 Od: 18 PRGE 10 



D 2 



E49 
5B0 
BSl 
SB2 
SS3 
B54 
66B 
556 
55^ 
55S 
BE? 
I'tQ 
Bbl 
562 



OOOCOO 



OCOOOO 



. IF or 


RSX 




PSECT 


ISR. 


CON 


. ENDC 






.IF NDF 


OS 




. CSECT 






.ENDC 






flSCCCTr 








010000 



.THE FOLLOW'.NG IS USED FOi? CHECKING CRB ENTRY 
;FOR COPPECT PflPITY IF FISC i I IS SELECTED 

PAR I Tt = 10000 



E 2 



BiSYKL nfiCRO nnoH oe-OEC-?? 08: i8 prge ii 



E 2 



6bB 








. IF N2 CR. EBC 




Bbfe 






; EBCDIC 


CODE CONTROL TRBLE 




Sb7 000000 


174 




EBCCCT. 


. BYTE 174 


;X'7C' = RV! FOLLOWING OLE 


Bb8 000001 


153 






. BYTE 153 


; '. • = WflCK FOLLOWING DLE 


569 OP0002 


277 






.BYTE 277 


;PPD 


570 000003 


002 






.BYTE 02 


. STX 


571 000001+ 


001 






. BYTE 01 


;SOH 


572 000005 


046 






.BYTE 46 


;ET3 


573 000006 


003 






. BYTE 03 


;ETX 


57^ 000007 


037 






. BYTE 37 


; ITB 


575 000010 


020 


160 


Z77 EBCfiCK: 


. BYTE 20,160,377 


;DLE - ALSO RCKO MESSAGE 


576 000013 


020 


141 


277 


. BYTE 20,141,377 


-•flCKl MESSAGE 


577 000016 


062 


062 


062 EBCSYN; 


. BYTE 62,62,62,62 


. SYN SYN SYN SYN 


000021 


062 










B7S 000022 


055 


377 




. BYTE 55,377 


ENQ PAD 


579 00002H 


075 


377 


EBCNflK: 


. BYTE 75,377 : . 


NAK PAD 


5S0 000026 


067 






. B/TE 67 


EOT 


581 000027 


OCH 






. BYTE 04 


COUNT FOR END CHAR + BCC 


582 000030 


' 003 






.BYTE 03 


COUNT FOR BCC + PAD ONLY 


583 








. IF DF P37S0 




58^ 








.BYTE 36 


IRS " 


585 








.ENDC 




586 












587 








. EVEN 




588 000032 


000016" 






. WORD EBCSYN 


POINTER TO MESSAGE HEADER 


589 00003^ 


000101 






. WORD 101 


KGll SELECT CODE (CRC16) 


590 000036 


001752" 






. WORD EBCXTR 


EBCDIC XMIT TRANSLATOR 


591 OGOO^0 


004006" 






. WORD EBCRTR 


EBCDIC RECEIVE TRANSLATOR 


592 0G00H2 


000010" 






. WORD EBCRCK 


EBCDIC ACK MESSAGE 


593 OGGO^^ 


000024 * 






. WORD EBCNflK , 


EBCDIC NAK MESSAGE 


59^ 00G046 


000124 






. WORD RBC ; , 


LOCATION FOR PAD IN BCC S 


595 000050 


177051 






. WORD 177051 


FOR ISR MODE CONTROL (PUT 


596 000052 


160 






. BYTE 160 


HEX 70 FOR ACKO MESSAGE 


597 000053 


141 






. BYTE 141 


HEX 61 FOP ACKl MESSAGE 


59S 






. END OF 


EBCDIC CODE CONTPOL TABLE 




599 : V 












bOO 








. ENDC 




bOl 








. IF Z Cfl. EEC 




bo: 








EBCCCTrO 




bo: . 








. ENDC 





+ PAD 



STRING 



TRING 

TC - INIT) 



I n I T* * 



lul 4 4 Ol I 



F Z 



BISYNC MRCPO nnOH 06-0EC-77 08: 18 PfiGE 12 



F 2 



fcOS 

607 

60S GOOQIO 

609 



GOOOOO 



SBTCCT=0 

IF DF RSX 
. PSECT XXX 
. ENDC 



o I <r\j<ir 



\.~\r r\/-\ 



G 2 



B 1 SYNC nflCPO 


rin04 06-DE 


en 




612 




613 


000003 


614 




61B 


000303 


616 


000304 


61? 


000105 


618 




619 




620 




621 




622 




622 , 


OOCOQO 


624 


000001 


■ 62B 


000002 



PRGE 13 



G 2 



CODE FOR USER INTERFRCE GETS QUEUE ENTRIES. 



C. BGBC = 3 



C. BGRD= 
C. BGTD= 
C. BGriS= 



C. 
C. 
C. 



BGBC^300 
BGBC*30l 
BGBC+102 



; BPSE CODE FOR 

;GETS QUEUE ENTRIES 
; RECEIVE DONE CODE (H UORD UIB ENTRY) 
;TRfiNSmT DONE CODE (^ WORD UIB ENTRY) 
; MODEM STATUS CODE (2 WORD UIB ENTRY j 



FUNCTION CODE RSS 
TYPE nflTPlX SWITCH 

C. BTSC = 
C. BriMC = l 

c. enDC=2 



GNMENTS 
CRLLS. 



FOR DEVICE 



TRONSniT STARTUP FUNCTION CODE 
MODEM STATUS 
ISR MODE CONTROL 



D I CIVMr 



Mor on Mi 1 nu 



nii_ncr_-j"7 no «o 



H 2 



I 



BISYNC nfiCPO nn04 Ob-DEC-77 08:18 PRGE m 



H 2 



b:s 

630 
631 

632 000010 

633 000012 

634 oooom 

635 000016 

636 

bw. 
r.3S 

t39 
6^0 

bm 

6H3 
6HH 



000000 
000000 
000000 
000000 



;RCVE DONE GETS PflROMETER LIST. 
. iF OF RSTS 
. GLOBL C.BRnC 
. IFF 

C. BRMC: G 




. ENDC 



. IF NDF RSXlin 
. EOT 



/ f .» / 



f'fffrtf»»»fttff 



;END OF TPPE 1 
. ENDC 



BrSYNC hRCPC M1104 06-DFr-77 HR- 1 R PQRP IP 



[ 



BISYNC MRCPC ^nO^ Ob-DEC-77 08:18 PRGE IB 



646 






bH7 






6^8 






6H9 






bSO 






bSl 






6B2 






653 






bBH 






655 






656 






657 000C2C 






658 






659 






660 






661 






662 






663 






66^ 






665 






bbb 






667 






668 






669 






670 0G0020 


ii2"b: 


000007 


671 






672 000026 


010104 




673 000030 


062704 


OOCOOb 


67H 00003H 


012J67 


177740 


675 000040 


0i2467 


177742 


676 000044 


012467 


177732 


677 000050 


012467 


177730 


67S 000054 


011462 


000120 


679 






680 






681 






6S2 000060 


105062 


000115 


683 000064 


004767 


004332 


684 0000^0 


004767 


004514 


685 000074 


010204 




686 000076 


062704 


000072 


687 000102 


010462 


000130 


688 000106 


010204 




689 000110 


062704 


000154 


690 000114 


010462 


000112 


691 000120 


000250 




692 000122 


000207 




693 






694 






695 






696 






697 






698 000124 


016205 


000020 


699 000130 


0b]205 




700 000132 


062705 


000026 


701 000136 


011567 


177650 


702 000142 


005025 





; bisync tppe 2 of 5 

;linit commrnd service routine 

; ENTERED FROM EflT COfinflND HANDLER VIA TERMINflL TYPE MATRIX 

;SWITCH WITH THE FOLLOWING REGISTERS PRESET: 

;R! - POINTER TO LINIT PflRRflETER LIST 

;R2 - POINTER TO START OF ASSIGNED LINE TABLE SPfiCE 

;R3 - LINE « AS A WORD INDEX 

;WORD 1 OF THE LINE TABLE HAS ALREADY BEEN LOADED WITH 

;THE DEVICE AND TERMINAL TYPE CODES 



C. BINT: 



;nou 

; ADD 



NIT 



ALiZE L 

;nov 



R2, 
«LTL. 



NE TABLE 
R4.. 



R4 
Rh 



4 ( R 1 ) 



;POINTER TO NEXT AVAILABLE 
;WORD IN RESERVED TABLE AREA 



MO'/ 
ADD 



INTCLP: 



000152 



;CMP 

:bn: 

MOVB 

. IF DF 

MOV 

ADD 

MOV 

MOV 

MOV 

MOV 

MOV 

. IFF 

MOVB 

. ENDC 

CLRB 

JSP 

JSR 

MOV 

ADD 

MOV 

MOV 

ADD 

MOV 

CLN 

RTS 



; STORE POINTER TO NEXT 
; AVAILABLE WORD IN 
;LINE TABLE AREA. 

P2,R5 ;N0W CLEAR ^HE TABLE 

«:<R5 

CLR CR5)+ 

P5.R4 

INTCLR 

8LDGRPH,LGC(P2) INITIALIZE LEADING GRAPHICS COUNTER 

UAPTm 

R1,R4 

»6, R4 

(P4)+,C0NT!M 

(P4)+.T1C1NT 

(R4)+.MSRT 

(R4' + ,SSRT 

(R4^,TCT>P2) 



&(P1),TCT^P2) 

MRC(R2) 

PC.CSSRT 

PC INTVin 

R2,R4 

»ISC,R4 

R4,TCP(P2) 

R2,R4 

;?TI3.R4 

R4..TBS(R2) 

PC 



POINTER TO PARAMETER LIST 
POINT TO TIMER VALUES 
SAVE CONTENTION TIME;? 
SAVE TIMER INTERVAL 
SAVE MASTER TIMER 
SC, '" SLAVE TIMER 
S > CRB TIMER 

;SET THE TICK COUNT FOR THIS LINE 



;PESET MASTER RECEIVE TIMER 

; RESET SLAVE RECEIVE TIMER 

; START 1/2 SECOND INTERVAL TIMER 

;SET POINTER TO TRANSMIT CHAIN 



COMPUTE TAP BUFFER ADDRESS. 

. . . FOP THIS LINE 

AND STORE IN LINE TABLE 

N CONDITION CODE BIT CLEAR. 



RECEIVE DONE PROCESSOR 
RELEASE BUFFER TO USER VIA. 



C. BPCD: MOV RCX(R2)-P5 

ADC P2.. R5 

ADO SUBL.RS 

MOV (R5).C. BRMC + : 

CLR fP5'+ 



GETS QUEUE 



LOCATE CURRENT PCV SLOT 

NOW HAVE BASE ADDRESS OF BUFFER LIST 

MOV'E ADDRESS TO UIB ENTRY 
AND MRPK SLOT FFEE 



BISYNC MACRO M1104 n6-nFr-77 n«- 1 R PDr,F it-l 



J 2 



r; 



B 1 St'NC 


nflCRO nii04 06 


-DEC-77 


08: 18 


703 


000144 


011567 


177644 




704 


000150 


166267 


000024 


177636 


705 


000156 


005025 






706 










; 707 


000160 


062762 


000004 


000020 


708 


000166 


026227 


000020 


000034 


709 


000174 


002404 






710 


000176 


005062 


000020 




711 

712 
713 


000202 


162705 


000034 




000206 


005715 






7m 


000210 


001003 






^15 


000212 


042762 


000001 


000010 


71b 
717 
718 


000220 


012562 


000022 












^19 










720 
711 


000224 


011562 


000024 




000230 


032762 


002000 


000010 


723 


000236 


001011 






724 


000240 


012767 


170000 


00154 


725 


000246 


012700 


000002 




726 


000252 


012701 


002004' 




727 


00G256 


004767 


OOOOOOG 




728 


OOC"^^ 


016267 


000012 


17752b 


729 


000^, U 


105762 


000012 




730 


000:^74 


001406 






731 


000276 


152767 


000200 


177512 


732 


00G304 


042762 


000020 


000012 


7ZZ 


000312 


105067 


177472 




, 734 


000316 


112767 


000303 


177465 


735 


000324 


012705 


000010' 




736 


000330 


004767 


OOOOOOG 




7Z7 


000334 


032762 


000400 


000006 


722 


000342 


001403 






739 










740 










741 
742 
743 


000344 


042762 


000004 


000010 


000352 


032762 


002000 


000010 


744 


000360 


001002 






74b 


000562 


G050S2 


000012 




74 b 


000366 


000207 







PRGE 15-1 



J 2 



NOW 



; NOU 
C. BRCZ 



nov 

SUB 

UPDATE 

ADD 

CMP 

BLT 

CLP 

SUB 
ACT I VOTE 



C. BRCY 



NOW 



C. BCR3 



ONXT 



C, BCRl 



L. bcp:: 



TST 
BNE 
BIC 

, nov 

. IF OF 
JSR 
. ENDC 

nov 

GO RECOND 
BIT 
BNE 

nov 
nov 
nov 

JSR 

: nov 

TSTB 
BEQ 
BISB 
BIC 
: CLPB 

novB 
m\i 

JSR 
BIT 
BEQ 



BIC 

BIT 
BNE 
CLP 
PTS PC 



(R5).C.BRMC*4 

RBC(R2).C.BRnC 

(R5)* 
THE RECEIVE SLOT 

«4,RCX(R2) 

RCX(R2),IMBX 

C.BRCZ 

RCX(R2) 

DflBX.RS 
NEXT BUFFER. IF 

(R5) 

C.BRCY 

»RBfi, LSW(R2) 

(R5)+.flRR(R2) 
RSTS 

PCGTBFl 



INDEX 

;N0T YET 
RNY 



;SflME FOR ORIG. BYTE COUNT 
;BUT ADJUST TO ACTUAL COUNT 



(R5),flBC(R2) 
TION THE DP 11 
«ITBfl.LSW(R2) 
C. BCR3 

«170000,C. Bins 
«C. BMDCRO 
8C BinS.Rl 
PCC.SARP 
RSW(R2),C. BRnC 
RSW(R2) 
C. BNXT 

«200,C. BRnC+6 
«U0VR,RSW^R2) 

C. BPnc 

^C.BGRD, 
«C. BRnC.P5 
PCC.SFY 
»INL.LCW(R2:) 
C. BCRl 



?$flflF,LSWfP2^ 

«ITBR.LSW(R2) 

C.BCP2 

PSU'P2) 



SR 



+2 



+6 



; ENTRIES ARE TWO WORDS 
;TmE TO RESET INDEX? 

/YES 

;RESET R5 TO BASEOF LIST 

IS ANOTHER BUFFER AVAILABLE'? 

NONE AVAILABLE (SLOT EMPTY) 
nOVE ADDRESS (OR ZERO) 

GET nAPPED ADDRESS FOR BUFFER 

SAnE FOR COUNT 

IF ITB ACTIVE. . . 
.... LEAVE DPll ALONE 
REESTABLISH STRIP SYNC 



> f^ 



; STATUS BITS 
; IF ANY ERRORS. 



;. . SET COnBINED ERROR FLAG 
;*********«nAKE SURE OVRFL SWTCH ALWAYS RESET 
;LINE NUnBER ALWAYS 
C. BRnC+1 ;RCVE COnPLETE TYPE CODE 

; STORE PCVE nESSAGE 
;nESSflGE y.-FER? 
;N0 

;COnPLETE ENTRY 
.RECEIVED A NEW RECORD SO OLD 
;RCK. IS NO LONGER AVAILABLE 
; IF ITB. DON'T CLEAR STATUS 



BISYNC riRCRO nil04 06 DEC-77 08:18 PAGE Ife 



K 2 



B 



BISYNC 


riRCPO nnoH 


Ot DEC 


74S 
74? 






750 
751 

^5: 

753 

. 754 


000370 





08: 18 PRGE 16 



K 2 



755 000370 000207 

^56 

757 

75S 

' — ' - 

7t,0 
7bi 
76: 
7b 3 
764 

765 000372 

766 0CQ374 
767 
768 
769 
770 
771 
772 
77Z 
77H 
775 
776 
777 
77S 
779 
780 
781 
782 
783 
7S^ 
785 
786 
787 

789 
790 
791 
792 
793 
79H 
795 
796 
797 
798 
799 
800 
801 

Si: 

803 
80H 



105721 

032762 OlOOOn GOGClU 



000H02 

ooo^o^ 

000412 

ooomn 
ooom6 

GG0H20 
G00H22 
GOGH 26 
GG0H3G 
GG0H36 
GOGHHH 
GGGH52 
GGGH56 
GGG464 
GGG466 
000474 
00G476 
0GG5G4 
GOGS 12 
000516 
000520 
G0G526 

GG0534 
G0054G 
0G0544 
G00550 
000656 
000562 
000564 
000572 
000600 
000604 
000612 
000614 



C01406 



042762 
000242 
000270 

000477 
112100 
005761 
003772 
052762 
042762 
112762 
0050^2 
032762 
001012 
032762 
001406 
052762 
042762 
032700 
001406 
052762 
042762 

012162 
011162 
016201 
116162 
032700 
001406 
116162 
052762 
004767 
032762 
001002 
000250 



000040 000010 



000002 

060000 
002000 
000010 
000064 
002000 

020000 

OICGOO 
020000 
000100 

002000 
022000 

000066 

nn0070 

•;• ^ 32 

Uw":' 5 

OOuu-rO 

000006 
000400 
000504 
000040 



ooonm 

000006 
000141 

000010 

000006 

000006 
000006 



000006 
000010 



000121 



000121 
000014 

000010 



nODEM STATUS UIB ENTRY PROCESSOR 



;PROCESSING 
;RG CONIflIN 
;Rl CONTOIN 
;R2 CONTRIN 
;R3 CONTRIN 
C. BMSE: 



ROUTINE. ENTERED FROM BUFFER UNLOflDER WITH: 

NG LINE! RND TYPE CODE (C. BriSC = BflSE TYPE CODE + 1) 

NG MOOEM STRTUS WORD. 

NG POINTER TO BRSE OF LINE TRBLE. 

NG LINEI RS WORD INDEX. 



PUTD 
CNTER 
RO: 



Rl 
R2 
R3 



C. BPD: 



RTS PC 
EMT COnnRND SERVICE ROUTINE. 
FROM TERniNRL TYPE MRTRIX SWITCH WITH: 
FUNCTION CODE = 000 - NORMRL BLOCK 

040 - LRST BLOCK 
100 - RBNORMRL FORMRT 
POlNiEP TO PUTD PRRRMETER LIST 
POINTER TO FIRST WORD OF LINE TRBLE 
LINE «*2 



TSTB 
BIT 



BEQ 
;LINE PLREROY 
L. BPDP: BIC 

CLV 
C. BPD.X: SEN 



fRl)+ ; 

«XRC,LSW(R2) 

PUTDll 
BUSY. RETURN II'TH 
»P.JT,LSW(P2) 



SKIP THE FIRST BYTE IN LIST 
; IS LINE RLRlRDY BUSY 
; TRANSMITTING? 



'N' CONDITION CODE BIT 
CLERP THE REJECT FLRG 



o 



ET. 



PUTDll: 
PUTDlfl: 



PUTDl 



PTNORM: 



PTNO: 



BR 

MO\/B 

TST 

BlE 

BIS 

BIC 

MOVB 

CLR 

BIT 

BNE 

BIT 

BEQ 

BIS 

BIC 

BIT ^ 

BEQ P 

BIS ^ 

BIC 

MOV 

MOV 

MOV C 

MOVB 

BIT ; 

BEQ P 

MOVB 

BIS 

JSR 

BIT 

BNE 

CLN 



:SET RETRY COUNT 

; CLEAR TOTAL XMIT COUNT 



PTNEXT 
'Rn+.RO ;GET PUTD OP CODE. 

2(.Rn ; POSITIVE NON-ZEPO COUNT^ 

C. BPDX ;N0 - REJECT PUTD 

«flEF!RNF,LSW(R2) 

JJflFX,LCW(R2) 

nNAKCNT,RKT(R2) 

TXC(R2) 

8ITBA.LSU(P2) 
: PUTDl 

;XPT,LCW(R2) 

PUTDl 

«XXP,LCU(R2) 

?{XPT.LCW(R2) 
100, RO ; 

TNORM 
RFX,LCW(P2) 

tJREF! ITBfl,LSW(R2) 



IS IT ABNORMAL FORMAT flOO) 
NO - PROCEED 

;YES - SET FLAG 

;N0T EXPECTING ACK - UNLESS ENQ 

, IS SENT 

;N0. SAVE USER ADDRESS AND COUNT 



fRn+,TSfi(R2) 

(Rl),TliC(R2) 

CT(R2).R1 ;SET POINTER TO CHAR CONTROL TABLE 

CETB».R1),ECH(R2) .-PROVISIONALLY SET END CHAP TO ETB 

40, RO ;LAST BLOCK REQUEST ^40) 
TNO 

CETXtRl),ECH(P2V ; YES - CHANGE END CHAP TO ETX ^ 

ETXF,TSW(R2) ;SET 'ETX SENT' FLAG 

CPUTDO ;G0 PROCESS USER BUFFER 

RJT-LSW(P2) .;TAHE REJECT EXIT^ 

TNI .YES 



BISYNC MACRO Mn04 06-DEC-77 08:18 PAGE 16-1 



L 2 



1 



B 



BISrNC riRCPO nilOH Ob-DEC-77 08:18 PfiGE lb-1 



L 2 



205 030616 
S06 000o20 
SO? 000626 
SOS 



000207 

042762 000400 OOOOIH 

000666 



PTNEXT: RTS 
PTNl: BiC 



PC 

«ETXF,TSW(R2j 
C BPDR 



; RETURN TO EMT HANDLER 
.RESET 'ETX SENT' FLAG 



BISYNC MflCRO MllOH 06-DEC-77 08:18 PRGE 17 



n 2 



B 



e i SYnc 


fIflCPO nil04 06 


-DEC-77 


08: 18 PfiGE 17 


M 2 




210 












= 




811 










;PUTD 


CHflRflCTER BUFFERING ROUTINE 




S12 


D00630 








PTRl: 


. IF DF LSIll 




S13 












nOVB RO.CRCCHR 


/ACCUMULATE IN BCC 


SlU 












JSR PC,5CRC16 


; USING SOFTWARE ROUTINE 


31?: 












. IFF 




816 


000630 


110037 


170704 






MOUB RO,a)»KGDRTfl 


; ACCUMULATE IN BCC 


817 












. ENDC 




SIS 


000634 


110024 






PTR3: 


nOVB RO, (R4)> 


, STORE IN TAP BUFFER 


S19 


000636 


005262 


000102 






INC T2C(R2) 


; INCREMENT CURRENT COUNT 


S20 


C00642 


005262 


000064 






INC TXC(R2) 


; INCR. TOTAL COUNT 


821 


000646 


026227 


000102 


000615 




CMP T2C(R2),»BSIZE-3 


;TAP BUFFER LIMIT REACHED? 


^ /-, r\ 


000664 


002001 








BGE PTR2 


;YES 


£23 
S'*4 


000656 


000207 








RTS PC 




S25 










; THE 


TAP INTERNAL BUFFER HAS OVERFLOWED - 












; DiSFflTCH PREVIOUS RECORDS AND REJECl 


' THE CURRENT ONE 




000660 


005726 






FTR2: 


TST (SP)+ .DISCARD THE JSR RETURN ADDRESS 


82S 


G00b62 


105762 


000114 






TSTB TRCfR2) ;IS THIS FIRST BUFFER? 


829 


000666 


003003 








BGT PTR4 ;N0 - 


OK TO PROCEED 


S30 


000670 


G05726 








TST (SP)+ ;DISCARD JSR PUTDO 


831 












; RETURN ADDRESS 


832 


300672 


000167 


177506 






jnP C. BPDR .:TAKE 


REJECT EXIT 


833 


00067b 


01b262 


000116 


000102 


PTR4: 


MOV THC(R2nT2C(R2) ;PESE1 


• THE TRANSMIT PARAMETERS 


834 










;NOW UE HPVE TO RECOMPUTE THE BCC FOR 


THE PREVIOUS RECORD 


83E 










; USING ETB INSTEAD OF 1 TB «S THE END 


CHAP 


836 












. IF DF LSIll 




837 












MOV CBC(R2).CRCACC 


; RESTORE THE PRE-ITB VALUE OF BCC 


838 












. IFF 




839 


000704 


012737 


000133 


170700 




my n 1 33. a^KGSTAT 


; RESET KGll AND SELECT LRC16 


81+0 


000712 


016237 


000122 


170701+ 




m\i CBC(R2),^«KGDflTA ; RESTORE THE PRL-ITB VALUE OF BCC 


84 1 












. ENDC 




842 


000720 


116162 


000005 


000121 




nOVB CETB(R!.),. ECH(R2) 


;USE ETB AS END CHAR 


S43 


000726 


052762 


000040 


000010 




BIS «RJT.LSU(P2i 


;SET FOF REJECT EXIT 


844 












. IF NDF LSill 




846 


000734 


01 b 137 


000034 


170700 




MOV KGC'Pl ).(i)SfG3THT 


;NOW SELECT CURRENT BCC MODE 


846 












ENDC 




84 7 


00074 2 


000167 


OC0634 






JMP PUTDb .NOU G 


OUTPUT THE BUFFER 


848 

















B 



BISYN: MACRO Ml 104 06-DEC-77 08: 18 PAGE 18 



N 2 



B 



bisyn: nocpo r.noH ob-DEC-?? 08; i8 ppige is 



N 2 



B 



350 
SSI 
S6£ 
SB3 
RS^ 
SBB 
S56 
SB? 
SBS 
SB9 
SbO 
861 
Sb2 
SbZ 
SbH 
8bB 
Sfeb 
8b7 
868 
869 
870 
871 

873 
874 
87B 
876 
877 
878 
879 
880 
881 
882 
883 
884 
ccc, 

u^ >^ W 

8S6 

888 
SS9 
S90 
891 
89Z 
893 
S9H 
S9B 
S96 
897 
898 

900 
901 
90: 
903 
90'4 
90B 
90b 



000746 
3007B2 



0007B6 
000764 
000766 
000774 
000776 
001002 
001006 



001012 
001012 
001020 
001022 
001026 
001030 
001034 
001040 
0U1044 
001GB2 
0010B4 
001060 
001064 



001100 
001106 
001110 
00111b 
001120 
001124 
001130 
001134 



001142 
001146 



116303 
000173 



032762 
001410 
032762 
001004 
116100 
004767 
000167 



032762 
001407 
G0B362 
001404 
004767 
000167 
105262 
032762 
001404 
1 16100 
004767 
016262 



001072 01376; 



126227 
002004 

U «< D A. i^ I 

002402 
000167 
116100 

004 767 
052762 



113700 
004767 



003652' 
G03762* 



010000 000006 

002000 000006 

000010 
177626 
000526 

010000 aooocfc 

000070 

177574 
000456 
000114 
010000 000006 

000010 
177550 
000102 000116 



170702 000122 

000114 000007 

000102 000612 

000456 
000007 
177474 

002000 0003 10 



170702 

177462 



001152 113700 170703 



. PUTD PROCtSSOR (CONTINUED) 

; PROCESS fi SPtCIRL CHRR 
PTBSP: MOVB fiCTTflB(R3),R3 
jnP tt)PTSflT(R3) 

; PROCESS R OLE 

PTDLE: BIT ;XXP,LCW(R2) 

BEQ PTDLl 

BIT |}flFX,LC'J(R2) 

BNE PTOLl 

nCUB CDLE(R1),R0 

JSP PC.PTR3 
PTDLl: JflP PUTD5 



; PROCESS ON 

PTITB; 



TB 



.FETCH THE PCTION CODE 
,G0 TO ACTION ROUTINE 



;TRflNSPflRENCY? 

;N0. TRERT RS TEXT 

; IF RBNORMRL FORflRT ... 

;TRK£ NO SPECIRL RCTION ON CHRR 

;YES - STUFF n DLE RHERD OF IT 



001156 
001162 



004767 
000167 



177452 
000456 



001166 052762 000020 COOOIO 



BIT «XXP.LCWfR2) 

BEQ PTIT3 

DEC TBC(R2) 

BEQ PTIT3 

JSR PCPTRl 

jnP PUTD4 
PTIT3: INCD TRl(R2) 

BIT 8XXP,LCl-J(P2) 

BEQ PTITI 

nOVB CDLE(R1),R0 

JSR PC.PTR3 
RTjTl; MOV T2C(R2).THCfR2) 

. IF OF LSIll 

MOV CRCRCC. CBCfP2) 

. IFF 

MOV ii;^KGBCCR^CBCtR2) 

. ENDC 

CMPB TRC(P2V. ;?C. BUFF 

BGE PTIT4R 

CMP T2C'R2),«BS!:E-b 

BLT PTIT4 
PTIT4R: JMP PUTD6 
PTIT4: nOVB CITBCRl «.P0 

JSR PC,PTR1 

BIS «ITBR.LSW<'P2^ 

. IF DF LSIll 

MOVB CRCRCCPO ; MOVE 
IFF 

MOVB >jt.KGBCCP.-r'0 

. ENDC 

JSR PC.PTP3 

. IF DF LSIll 

MOVB CRCr '.t',R0 

. IFF 

MOVB oI^KGBl. • i,R0 

. ENDC 

JSR PC.-PTR3 
PTIT2: JMP PUTDS 
; PROCESS RN STX IN THE USE MESSRGE 
PTSTX; BIS nSTXF,LSW'R2) 



;TRRNSPRRENCY'? 

;N0 - RCCEPT ITB 

;YES - IS THIS THE LRST CHRR? 

;YES - R''C£FT ITB 

;N0 - TREAT RS NORMRL DRTR 

: PROCESS NEXT CHRRRCTER 

; COUNT NO OF RECORDS IN BLOCK 

;TRRNSPRRENCY7 

;YES - STUFF R DLE IN XMIT BUFFER 

;THIS IS COUNT IF NEXT RECORD REJECTED 

;BCC FOP REJECT CASE 

;BCC FOR REJECT CRSE 

;MRX NO. OF RECORDS^ 
; YES-GO OUTPUT IT 

;BCC GOING TO BE TOO NEAR END 
;M0 - PROCEED 
.YES - GO OUTPUT IT 
: RESTORE THE ITB CHAR 
;G0 BUFFER CHARACTER 
;SET ITB ACTIVE 

BCC TO TAP BUFFER 

; MOVE BCC TO TAP BUFFER 



;YES - MOVE SECOND BYTE 
;YES - MOVE SECOND B'rTE 



:SET STX FOUND FLAG - EDIT 17 



BISYNC nQCPO nnOH Oe-DEC-?? OS: 18 PRGE 18-1 



B 3 



907 
908 
909 

910 
911 
912 
913 

9m 

915 

91fc 
917 
918 
919 
920 
921 

92H 
925 
926 
927 
928 
929 
930 
931 
932 



001 17H 000561 



BR 



PUTD5 



001176 
001 20H 
001206 
0012m 
001216 
03122H 
001226 
00123H 
001242 



0012H4 
001252 
00125H 
001262 
001270 



C01272 
001300 
001302 
001306 



032762 
001555 
032762 
OCmOH 
052762 
0005H5 
G52762 
052762 
000536 



032762 
001532 
052762 
052762 
000523 



0327b2 
001117 
Onu7b7 
0C0516 



. PROCESS ON ENQ IN THE USER MESSAGE 
G02000 000006 PTENQ: BIT «flrx,LCW(R2) 

BEQ PUTD5 
000020 000010 BIT 85TXF, LSW(R2) 

BEQ PTENQl 
06H000 000010 BIS «NEF ! FIEF iflNF, LSW(R2) 

BR PUTD5 
060000 000010 PTENQl: BIS «REF ! flNF, LSU(R2> 
002000 OOOOm bis «BSNT,TSW(R2) 

BP PUTD5 



G02000 000006 PTEOT; 



.^01000 
GOOHOn 



GG0014 
000006 



PROCESS AN EOT IN THE USER riESSPGE 
BIT nRFX,LCW(R2) 
BEQ PUTD5 
BIS ;ESNT.TSU(F2) 
BIS niNI,LCW(R2) 
BP PUTD5 



.•PROCESS NORMALLY 



IF NOT ABNORMAL FORMAT. . 

TREAT NORMALLY 

HAS AN STX BEEN FOUND'? - EDIT 17 

NO - TREAT AS A BID - EDIT 17 

TTD StO'ENCE - EXPECT NAK - EDIT 17 

CONTINuL PROCESSING - EDIT 17 

OTHERUISE SET "ACK EXPECTED' 

SET 'BID SENT'FLAG 



.ABNORMAL FORMAT 

;N0 - TREAT AS NORMAL DATA 

;S£T 'EOT SENT' FLAG 

; ALLOW XMIT WITHOUT INIT PHASE 



OICOOO 000006 



17:'326 



; PROCESS SYN 
PTSYN: BIT 
BNE 
JSP. 
BR 



N THE USER FPOGPPM MESSAGE 
nXXP,LCW(P2) 
PUTD5 
PC.PTP3 
PUTD5fl 



TRANSPARENCY ACTIVE^ 
YES - TREAT AS NORMAL DATA 
BUFFER CHAR BUT DON'T 
INCLUDE IN eCC 



BiSYNc nflcpo nnoM oe-DEC-?? 08: ic page 19 



C 3 



93^ 

935 
93fe 
937 
938 
939 
940 
9'41 
9H2 
94 3 
944 

945 
94b 

947 

94 S 

950 

951 

952 

953 

954 

955 

95b 

957 

958 

959 

960 

961 

962 

963 

964 

965 

966 

967 

968 

969 

970 

971 

972 

973 

974 

975 

97b 

977 

97S 

979 

980 

981 

982 

983 

984 

985 

986 

987 

9SS 

989 

990 



001310 

001310 



001316 
001324 

001332 
001340 
001342 
001346 
001352 
001354 
001360 
001361* 
001370 
001374 
001402 



001404 
001412 
001414 
001420 
00m24 
001430 
001436 
001440 

oomi:6 

001450 
001452 
001456 
001462 
001466 
001472 
001500 



001502 
001510 



047.762 177377 GG0014 



PUTDH: 



012737 
016137 

032762 
001405 
016204 
066204 
000406 
005062 
016204 
010462 
01620^: 
032762 
001045 



032762 
001406 
116100 
004767 
004767 
032762 
001005 
032762 
001023 
000404 
116100 
004767 
116100 
004767 
032762 
001 OOt 



012737 
016137 



000020 
000034 



170700 
170700 



002000 000010 

000100 
000102 

000102 
000112 
000100 
000066 
002000 000006 



000010 
177146 
000003 
177136 
002000 



000020 
000034 



PTDZ: 

PUTD3: 



002000 000010 

000016 
177210 
177204 
010000 000006 PUTD23: 

002000 000010 



PUTD24: 
PUTD22: 



000010 



17Q700 
170700 



OF 



4177377. TSW(R2) 
OF RSTSILSIll 
RSTS 
«12l,ol«KGSTflT 



LSin 
CRCflCC 



BiC 
IF 
IF 

ncu 

ENDC 

IF OF 
CLR 

ENDC 

IFF 

MOV «20,«)«KGSTflT 
MOV KGC(Rl),a)«KGSTflT 
. ENDC 

BIT «ITBR,LSW(R2) 
BEQ PTDZ 

MOV T2R(R2),R4 
ADD T2C(R2),R4 
BR PUTD3 
CLR T2C(R2) 
MOV TBS(R2).R4 
MOV R4,T2fl(R2) 
nOV TSR(R2).R5 
BIT »RFX,LCH(R2) 
B!'£ PUTD4 
. IF OF RSTS 
JSR PC.GTBFflD 



. ENDC 

BIT »ITBfl.LSUfR2) 
BEQ PUTD23 
MOVB CSYN(R1),R0 
JSR PC.-PTR3 
PC,PTR3 
«XXP,LCW(R2) 

PUTD24 

«ITBfl,LSW(P2) 

FUTD4 



;LEPVE ETX FLPG ALONE, RESET OTHERS 



;SET KG TO CURRENT MODE 



JSR 
BIT 
BNE 
BIT 
BNE 
BR 



PUTD^^ 



i.i. 



PO 



DF 
DF 



001516 005CGO 



PUTD4: 



MOVB CDLE(Rl) 
JSR PCPTRl 
MOVB CSTX(Rl) 
JSR PC.PTRl 
BIT i?ITBfl,LSW(R2) 
BNE PUTD4 

IF 

IF 
MOV 

ENDC 

IF DF 
CLR 

ENDC 

IFF 

MOV |}20.i)«KGSTflT 
MOV KGC(Rl).i)ifKGST9T 
. ENDC 
CLR RO 



RO 



RSTSILSIll 
RSTS 
nl21. il^KGSTflT 

LSIll 
CRCFICC 



; CLEAR THE BCC REGISTER 



; CLEAR THE BCC REGISTER. . . 

;..AND INIT THE KGU FOR CURRENT CODE 

; ITB ACTIVE? 

;INIT FOR NON-FIRST RECORD OF ITB BLOCK 
;rlCK UP WHERE WE LEFT OFF 
; IN THE TAP BUFFER 

; CLEAR CURRENT COUNT 

; TAP'S TRANSMIT BUFFER 

;SET POINTER FOR TAP BUFFER 

;POINTER TO USER BUFFER 

-ABNORMAL FORMAT? 

;YES BYPASS DLE/STX CODE 

;G0 GET ADD IN CASE MAPPED OUTSIDE 

;0F THE MONITOR 

;UNLESS IS ABNORMAL FORMAT 

; 1ST RECORD OF BLOCK? 

;DON'T PUT SYNS IN BUFFER THIS TIME 

;PUT 2 SYNS IN TAP BUFFER 



; SECOND SYN 

;N0 - PUT STX THRU KGll 

;YES 



.PRECEDED BY DLE IF TRANSPARENT 
;DLE GOES INTO BUFFER 



; IF ITB NOT ACTIVE. 



;SET KG TO CUP PENT CODE iNITED 



CLERP THE BCC REGISTER 



;WIPE 'OLE) STX OUT OF KG 



GET USEP CHRP WITHOUT SIGN EXT. 



j^ m^ 



BISYNC nfiCPC nnO^ Ob-OEC-7? 08: 18 PI^GE 19-1 



D Z 



991 

^92 

993 

99^ 

996 

996 

997 

998 

999 

1000 

1001 

10Q2 

ioa3 

10Q^ 
1005 
1006 
1007 
lOOS 
1009 
1010 
1011 
1012 
1013 

lom 

1015 

1016 

1017 

1018 

1019 

1020 

1021 

1022 

1023 

102^ 

1025 

1026 

1027 

102S 

1029 

1C30 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

lOMO 

lOm 

1042 

10H3 

\0H^ 

1045 

1046 

1047 



001520 
001522 
001526 
001532 
00153H 
001540 
001544 
001550 
001552 
001560 
001562 
001570 
001572 
001576 
001602 



152500 
004771 
120327 
003002 
000167 
004767 
005362 
003362 
032762 
001063 
032762 
001404 
116100 
004767 



000036 
000037 

V7206 
177064 
000070 

002000 000006 

010000 000006 

000010 
177032 



U01b02 116237 000121 170704 



001610 
001614 
001622 
001630 
001636 



001644 
001646 
001654 
001656 
001664 
001666 
001670 
001674 
001700 



001 
001 



'04 

•10 



001720 
001722 
001726 



001730 
001730 



C10262 
062762 
116162 

042762 



000104 
000121 
000027 
G02G00 



005003 
032762 
001015 
032762 
001015 
010200 
066100 
116110 
004767 
105062 
052762 



000104 
000106 
000010 



001636 013762 170702 G00122 



002000 oooom 

002000 000010 



000046 

000002 

000150' 

000114 

010000 000010 



001716 000207 



005000 
004767 
000207 



00053: 



BISB (R5)i.R0 

JSR PC.afiTT(Rl) 

CMPB R3,«37 

BGT PUTD5 

JMP PTBSP 
PUTD5: JSR PCPTRl 
PUTDSfi: DEC TBC(R2) 

BGT PUTD4 

BIT «flFX,LCU(R2) 

BNE PTDRB 

BIT «XXP,LCU(R2) 

BEQ PUTD6 

MOVB CDLECRD.RO 

JSR Pr,PTR3 
PUTD6: . IF DF LSIll 

nOVB ECH(R2),CRCCHR 

JSR PC,SCRC16 

. IFF 

nOVB ECH(R2),i»KGDflTfl 

.ENDC 

nOV R2,T3ft(R2) 

ADD «ECH,T3fl(R2) 

MOVB BTCE(R1),T3C(P2^ 

BIC ;iTBfl,LSW(R2) 
PUTD7; . IF DF LSI il 

MOV CRCRCC,CBC(R2) 

. IFF 

MOl/ anKGBCCR,CBC(R2) 

. ENDC 
PUTDS: CLR R3 

BIT »BSNT,TSWfR2) 

BNE PUTD9 

BIT »ITBR.LSW(P2^ 

BNE PUTDIO 

nOV R2,R0 

ADD PPD(R1),R0 

nOVB CPflD(Rl.),i)P0 

JSR PCRCKOUT 

CLRB TRC(R2^ 

BIS nXflC,LSW^P2) 

. IF DF RSTS 

. ENDC 
RTS PC 

.IF NDF PSTS 
PUTDIO: CLP RO 

JSR PC-TDENT 
RTS PC 
.ENDC 



PUTD9: 
PUTDIO: 



;G0 TO ACTIVE TRflNSLRTOR 
; IS ASCII <40? 

; IF SO TEST FOR SPECIAL ACTION 

;G0 BUFFER THE CHAR 

; IS THAT ALL THE USER CHARS? 

;N0 - DO THE NEXT ONE 

;IF ABNORMAL FORMAT, BRANCH 

; TRANSPARENCY? 

; NO. 

;YES - STUFF IN A OLE 

;DON'T INCLUDE IN BCC 

;ACCUM END CHAR IN BCC 



;ACCUM. END CHAR IN BCC 

; HAVEN'T SEEN I TB THIS PASS 

;S0 SET BUF3 FOR ETB OR ETX 
;SET BUF3 COUNT FOR BCC PAD 
;FOR LAST RECORD OF BLOCK 

;SET BCC INTO XMIT STRING 

;SET BCC INTO XMIT STRING 

;SET UP LINE NUMBER 

; IF MASTER INIT 

;.. DON'T SEND IT YET 

; IF ITB ACTIVE, DON'T XMIT. . 

; UNTIL ETB OR ETX TIME 

; POI'ITER TO PAD LOCATION 

;RND PUT IN R PRO CHRP 
; INiTIRTE X-MIT 
.RESET RECORD COUNTER 
:SET XMIT flCnVE 



CPERTE RCTUflL LINE NO. 

;6ENEPflTE .vfllT DONE UIB ENTRY 
;RliD DON'T SET XMIT RCTIVE YET 



;FINRL SETUP FOR RBNORMRL FORMRT TRRNSMIT 
PTDRB: 



010162 OOOIOH 



. IF OF 
MOV 



flSCI 
Rl,T3fliR2) 



IF RSCI I INPUT INSERT fl PRO 
:PUT IN PRD CHPRhCTEP 



r 



E Z 

BISYNC MRCPO nnOH Ob-DEC-77 08: 18 PfiGE19-2 i . 

10^8 00173^ 062762 000002 00010^ ROD »CP«D. T3R(R2) 

1049 0017H2 012762 000001 000106 MOV lll.T3C(R2) ; AND CHflRflCTER COUNT IN BUFFER 

1050 , ENDC 

ISrl '^ NDF RSCI ;IF NOT fiSCI I USER PROGRflM SUPPLIES PAD 

}0^2 CLR T3fi(R2) ; TERniNRTE CHflRRCTER STR ING 

1053 . ENDC 

lOBH 001750 G0073B BRPUTD8 

^1055 i 



F 3 



BlSVfiC MPCPO r\\\QH Ob-DEC-77 08:18 PRGE 20 



F 3 



1G57 






10S8 






1 0S9 






ICcO 001752 






IQfel 






1062 001762 


032762 


OOIOGO 


1063 001760 


oomo3 




1064 






106B 






1066 






1067 001762 


116003 


003052' 


106S 001766 


000403 




10b9 






1070 






\Q-\ 001770 


110003 




10^: ooi:'72 


116000 


003452' 


1073 001776 


04:703 


17:^600 


1074 00:002 


000207 





;HOLLERITH-EBCOIC TRflNSfllT TRflNCLRTOP 

. IF NZ CR. EBC 
EBCXTR. 

000006 BIT «NflT.LCW(R2) ;NflTIVE flODE'? 

BEQ EBCXTl ; NO - PERFORM NORMAL TRflNSLRTION 

;TRflNSLflTE THROUGH EBCD TO RSC I I TRBLE 

;FOR SPECIAL CODE TEST. DON'T TRANSLATE DATA CHARACTER 



EBCXTl 



MOVB 
BP 

. IF DF 

MOVB 

MOVB 

BIC 

RTS 



ETR(R0),R3 

XI 

RSC I 

P0-P3 

REyB(P0^P0 

S177600.R3 

PC 



;BRCK TO PUTO PROCESSOR 



; STRIP TO 7 BIT FOR ID 



^^A 



r 



BiSYNC riRCPO nno^ Ob-OEC-77 08: 18 prge 21 



G 3 



1076 
1077 
lO^S 
1P79 
lOSO 
1081 
10S2 
1083 
108H 
1085 
1086 
1087 

loss 

1089 
1090 
1091 

109: 

1093 
109H 
109B 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
llOH 
1105 
1106 
1107 
1108 
1109 
1110 

nil 

1112 

1113 

1114 

1115 

1116 

1117 

1118 

1119 

il20 

1121 

1122 

1123 

1124 

1125 

1126 

1127 

1128 

1129 

1130 

1131 

1132 



002004 
002006 
002010 
OO2O12 



002014 
002016 
002022 
002030 
002034 
002040 
002042 

002046 
002050 
002052 

002056 
002064 
002070 
002076 
002102 
002106 

002112 
002116 
002122 
002126 
002132 

002136 
002144 



OOOQQO 
OGOOOO 

000000 
000000 



010146 
G16104 
042762 
016205 
032704 
001002 
000167 

005704 
100002 
000167 

042762 
042705 
042762 
042704 
050462 
062705 



010562 
012705 
016200 
016201 
01G562 



116567 
116562 



000002 
000100 
000006 
040000 

000410 



000542 

177200 
176670 
102700 
000577 
000142 
000002 

000006 
000000 
000132 
000134 
000132 

000016 
000030 



000006 



000142 
000010 



-PUTTC (PUT TFRniNRL CONTROL) 

SERVICE ROUTINE. 

ENTER FROM fERrMNRL TYPE MRTRIX SWITCH WITH. 

RO: FUNCTION CODE 2 

Rl; POINTER TO PUTTC PflRflttETER LIST 

R2: POINTER TO FIRST WORD OF LINE TPBLE 

R3: LIKE nZ 

PUTTC PflROMETER LIST FORttfiT: 

LOCP; BITS 0-7=LINE«, BITS 8-15=0PC0DE 002 

LOCP+2: nODE CONTROL WORD 

LOCP+4: RESERVED FOR MODE STATUS WORD 



PflRflMETER LIST FORriPT FOR 
Rl MUST POINT TO C. BlflS 
. IF OF RSTS 
.GLOBL C.BinS 
. IFF 



C. BinS: 



SR nODE CONTROL AND SENSE CALL. 



UORD 





WORD 


G 


WORD 





WORD 





ENDC 





ISR MODE 
ISR MODE 
RESERVED 
SYN CHAR 



CONTROL PRRRMETER LI 
CONTROL WORD 
FOR ISR MODE STATUS. 
FOR DPll SYNC REG. 



ST 



;eNTER HERE FROM THE TEFMIHflL .IfiTR I X SWITCH 



C. BPTC: MOV PI, -(SP) 
MOV 2(R1),R4 
BIC 800F,LCW(R2) 
MOV LCW(R2)«R5 
BIT »40000,R4 
BNE PTCl 
JMP PTMORS 

; MUST BE I Nl T IflL IZflT ION 

PTCl: 



177646 
000126 



TST R4 

BPL PTC2 

JMP PTTERM 
FOLLOWING IS PROCESSOR FOR 

BIC ;i77200.TCW(R2) 

BIC «176670,R5 

BIC S102700,LSW(P2) 

BIC «577,R4 

BIS R4,TCkI(R2) 

BIS «XRC+1,R5 
LINE TABLE POINTER TO APPR 

MOV R5.LCW(R2) 

MOV 8EBCCCT,R5 

MOV CCT(R2),R0 

MOV CAK(R2),R1 

MOV R5,CCT(R2) 
;SET UP THE CONTROL CHARS FOR DP 
StTSYN: MOVB CSYN(R5).C BIMS+6 

MOVE BTCI(R5),BCC(R2) 



;SAVE PARAM LIST POINTER FOR LATER 

; FETCH THE MODE WORD 

; CLEAR THE OPTIOM-ONLY FLAG 

; FETCH CURRENT LCW 

;WHAT TYPE OF PUTTC ^ 

; MESSAGE OR STATUS 
OR TERMINATION 

; TERM I NAT 



; THE 
PTC2; 



PTC4: 

; SET 
TCI 3: 



ON^ 



.TERMINATION! 

INITIALIZATION PUTTC 

;PREPARE THE TERMINAL CONTROL WORD 

; PREPARE THE CONTROL AND STATUS WORDS 

; CLEAR THE UNWANTED BITS 

;NOW SAVE THE NEW SETTINGS 

;SET CODE FOR EBCDIC 

OPRIATE CODE CONTROL TABLE 

; FIRST SAVE THE NEW LCW 

;MOVE IN CODE INDICATOR 

, SAVE THE OLD CCT POINTER (EDIT 2 

;AND THE OLD ACK RECOGNITION WORD 

;AND SAVE FOR USE BY TRANSFER ROUTINES 

11 

;SYN CHAR IN SELECTED CODE 

;SET BCC LATCH COUNT 



^^5) 



(EDIT 25) 



H 3 



r 



BISYNC MhlCPO MUO^ Ofe-DEC-77 08:18 PfiGE 21-1 



H 3 



1133 002152 


016562 


000052 


000134 


11 3H 002160 


005700 






1135 002162 


001435 






1136 00216^ 


020160 


000052 




1137 002170 


001402 






1138 002172 


000362 


000134 




113? 002176 


116562 


000005 


000121 


imO 00220H 


016562 


000032 


000074 


llHl 002212 


012762 


000004 


000076 


im2 002220 


105062 


000136 




im3 








IIHH 








1145 0022214 


012767 


100003 


177554 


1146 








1147 002232 


012700 


000001 




tms 








1149 








1150 00223b 


012701 


002004 • 




1151 








1152 002242 


004767 


OOOOOOG 




1153 








1154 002246 


016746 


177536 




1155 002252 


032710 


000010 




1156 002256 


001002 






1157 002260 


0C5726 






1158 002262 


000472 






1159 








1160 002264 


016567 


000050 


1:^^514 


1161 








1162 002272 


012700 


000002 




1163 








1164 








1165 002276 


012701 


002004' 




1166 








1167 002302 


004767 


OOOOOOG 




llbS 








1169 002306 


012600 






1 1:^0 002310 


032762 


000100 


000006 


in 00231b 


001403 






ir2 002:20 


016205 


000006 




1 1^: 002324 


000470 







MOV CRKa(R5).CRK(R2) 
TST RO 
BEQ SETETB 
CMP Rl,CflKO(RO) 
BEQ SETETB 



;PCK RECOGNITION UORD 

;WPS THE OLD CCT POINTER ZERC* 

;YES. ALL OK flS IS (EDIT 25) 

;UflS OLD flCK REC. WORD SWAPPED? 

;N0, OK flS IS (EDIT 25) 

; IT WPIS,. SO SWAP THE NEU REC. WORD 



(EDIT 25) 
(EDIT 25) 



SET UP Fl 



(EDIT 25) 
FIRST XMIT PAIR FOR SYN3 



SWAB CAK(R2) 
SETETB: MOVB CETB(R5). ECH(R2) 
MOV SYP(R6),T1A(R2) 
MOV «4,T1C(R2) 
CLRB RKT(R2) ; INITIALIZE THF qCK COUNTER 

, NOW WE CAN GO DO THE MODE AND MODEM CALLS ' . THE ISR 
; FIRST. EXECUTE A MODEM CONTROL CALL FOR 'TERMINAL READY* 

; STORE MODEM CONTROL WORD 
;MODE CONTROL PARAMETER L 



MOV 


»100003,C. BIMS+2 




MOV 


»C.BMMC,RO 


;SET UP 


MOV 


«C BIMS-Pl 


;SET UP 


JSP 


PCC.SfiRP 


;G0 TO 


MOV 
BIT 
BNE 
TST 
6P 
; EXECUTE P 
PTMODF MOV 


C. BIMS+4.-(SP) 

«io.asp 

PTMODE 

( SP > + 

PTEXN 
MODE SENSE/CONTROL 
MDC(R5),C BIMS+2 


TO ISR 
; STORE 


MOV 


«C. BMDCRO 


;SET UP 


MOV 


«C.BiMS.Pl 


;SET UP 


JSP 


PCC.SflPP 


;G0 TO 


MOV iSP:'+.. RO 
BIT ;?00F,LCW<P2) 
BEQ PTCON 
MOV LCW(P2).R5 
BP TCJl 


; IS THI 
;N0 - C 
:YES -- 



IN 

ST. 



SR 



ISR MODEM SENSE 
; OPCODE FOR PROPER 
/SELECTION THRU MATRIX SWITCH 
MODEM CONTROL 
; PARAMETER POINTER 
ISR MODE CONTROL/SENSE 
; ROUTINE 

;SAVE MODEM STATUS ON STACK 
;BUT MAKE SURE TERMINAL WAS READY 
;0K. PROCEED 



LIST. 



MODE CONTROL WORD IN ISR 

;MODE CONTROL PARAMETER 

ISR MODE SENSE 

.OPCODE FOR PROPER 

; SELECTION THRU MATRIX SWITCH 

MODE CONTROL 

; PARAMETER POINTER 
ISR MODE CONTROL/SENSE 

; ROUTINE 

;POP THE MODEM STATUS 
S CALL ONLY SETTING OPT 
X'NTINUE THE INIT 
GO FINISH UP 



ONS*^ 



Ri^YNf Mprpn Miinu nc.-ncr-77 no. 10 oar.c no 



n 



BISYNC MRCPO nnOH 06-0EC-77 08:18 PRGE 22 



11:^5 

1176 

1177 

li7S 

1179 

1180 

llSl 

11S2 

1183 

11S4 

USB 

llbb 

11S7 

1 ISS 

11S9 

1190 

1191 

1192 

1193 

119H 

1195 

119b 

1197 

1198 

1199 

1200 

1201 

1202 

1203 

120^ 

1205 

1206 

1207 

120S 

1209 

1210 

1211 

1212 

1213 



002326 
002332 
00233^ 
0023H2 



002346 
002354 
002362 
002366 
002372 
002376 
002402 
002406 
002406 



002410 
002414 
002420 
002424 

002426 

002430 
002436 
002440 
002446 

002450 
002452 
0C2U5U 



105762 
100036 
032762 
001001 



002344 000441 



052762 
112762 
012700 
016201 
004767 
004 767 
004767 

012601 



016200 
042700 
010061 
000250 



000412 



U o ^ I 6 ^ 
001404 
042762 
000757 

012601 
000270 
000207 



000142 

010000 000010 



;PROCEED UITH THE INITIAL IZPT ION - CARRIER IS UP 



000020 

OOGOIO 

000000 

000130 

OOOOOOG 

00367b 

000262' 



000006 
000140 



000 1 H 2 

000525 
G00Q04 



PTCON: 


TSTB TCU(R2) 




BPL PTSLVE 




BIT «XRC.LSW(R2) 




BNE PTC3 




.IF NDF RSTS 




BR PTEXN 




. ENDC 




. IF OF RSTS 




nOV (SP)i,Rl 




BP PTEXT 




. ENDC 


PTC3: 


BIS «nSS,LCW(R2) 




MOVB IJENQCNT,EKT(P2) 




t^OM «C. BTSCRO 




MOV TCP(R2) Rl 




JSP PCC. SPIRP 




JSP PCENQSET 




JSP PC.CSflT 


PTEXl: 




PTE,X3: 


MOV (SP)+.R1 



;nRSTER OR SLfiVE SELECTION? 

; SLAVE 

;riRSTER - URS THERE R PUTD? 

;YES 

;N0 - MRSTER INIT ERROR 



;P0P Rl OFF THE SfRCK - EDIT 15 



;SET MRSTER INDICRTOR 

; SET ENQ COUNTER 
;YES - SEND THE BID MESSRGE 

;CRLL ISR VIR .1RTRIX SWITCH 

;SET TIMEOUT FOR BID MESSRGE RESPONSE 

;ENRBLE CRB TIMER IF NOT RLRERDY ON 

;POP POINTER TO USER PRRRMETERS 

;SET UP MODE SENSE STRTUS WORD FOP USER 

MOV TCW(R2;,R0 ; FETCH TERMINRL STRTUS 

BIC «525,R0 ;CLERR THE CONTROL BITS 

MOV R0.4(R1) ;flND MOVE TO USER'S STORRGE 

PTEXT: CLN 



BP PTEXIT 
; SLRVE INITIRLI2RTI0N 
000001 000010 PTSLVE: BIT «RBfl^ LSW'. P2) 

BEQ PTEXN 
000020 000006 PTSl: BiC «nSS-LLU'P2) 

BR PTEXl 



PTEXN: MOV 

SEN 

PTEXIT: PTS 



(SP1+.R1 

FC ^ 



;PCVf BUFFER RSSIGNED7 
;NO-SLRVE INI^ EPPQR 

; CHECK FOP STATUS REQUEST 

;POP POINTEF TO USER FflPRMETERS 
; REJECT PUTTC 



R)~.YNr MQ'pn Miinu ni;>-nrr-77 no. io oar.c ot 



J 3 



n 



BISYNC nfiCPO nnOH Ob-DEC-?? 08: 18 PRGE 23 



J 3 



1216 






i:ib 






1217 002456 


032^04 


100000 


121S 002462 


001447 




1219 






1220 002464 


052706 


000400 


1221 002470 


042704 


037000 


1222 n02474 


042762 


000777 000142 


1223 002602 
1224 


060462 


000142 


1 2^*5 

1226 002B06 


032704 


000020 


122:' 002512 


001407 




1228 002514 


042705 


001000 


1229 002520 


032704 


000010 


i::C 002524 


001402 




1231 002526 
1 '"^ 3 '"* 


052705 


001000 


1233 002532 


032704 


000004 


1234 002536 


001407 




1235 002540 


C42705 


020000 


1236 002544 


032704 


000002 . 


1237 002550 


001402 




1238 002552 


052705 


020000 


1239 






1240 002556 


042705 


000020 ^ 


1241 002562 


105762 


000142 


1242 002566 


100002 




1243 002570 


052705 


000020 


1244 002574 


010562 


000006 


1245 002600 


000702 




1246 






1247 






1248 002602 


052705 


000100 


1249 002606 


042762 


007777 000142 


1250 002614 


OOUlb? 


177262 



PUTTC - riESSPGE TRRNSFER OR SENSE COMES HERE 



PTnORS; BIT «100000.R4 
BEQ PTMl 



TC.J2: 



; PUTTC - MESSfiGE TRANSFER ENABLE 

BIS »INLR6 

BIC »37000,R4 

BIC »777,TCW(R2) 

BIS R4,TCW(R2) 
; OTHER TEST-RND-SET ACTIVITY 
. NATIVE MODE'' 
TCJl: BIT »20,R4 

BEQ TCJ2 

BIC «NAT,R5 

BIT »10,P4 

BEQ TCJ2 

BIS »NAT,R5 
TRANSPARENCY ACTION'' 

BIT «4,P4 

BEQ TCJ3 

BIC «XPT,R5 

BIT »2,R4 

BEQ TCJ3 

BIS »XPT,R5 
: SET MASTER SLAVE SELECT FLAG 
TCJ3: BIC »riSS,R5 

TSTB TCW(R2) 

BPL PTn2 

BIS »"''",R5 
PTM2: MOV Rd,LCW(P2) 

BR PTEX3 

; STATUS AND OPTION SETTING CALL 
PTMl: BIS n00F.R5 

BIC «7777.TrUiP2i 

m? FTC4 



;WHICH IS IT? 

; STATUS/OPT I ON-SETTING 



; CLEAR UNWANTED B I TS 

; PREPARE TCW FOR NEU SETTINGS 
;SA"/E FOR FUTURE REFERENCE 
S HANDLED IN THE SAME WAY 



;NOT REQUESTED 



NONE REQUESTED 

SET FLAG TO DESIRED STATE 

NEXT NON-ITB PUTO WILL TOGGLE 



PESTOPE LCU TO LINE TABLE 



SET FLAG TO INDiCflTE OPTIONS ONLY 
CLEPP UfiWANTED BITS 



BISYNC MACRO M1104 06-DFC-77 RR-IR PQRP '7U 



K 3 



1 



BiSYNC nficpo nnoH os-dec-?? 08: is PRGE 2H 



K 3 



B 



:.S2 

253 
25H 
255 
256 
257 
258 
259 
260 
261 

263 
264 

2b? 
266 
26^ 
268 
269 
270 
271 
272 
273 
27H 
275 
276 
277 
278 
279 
280 
281 

283 
2SU 
285 
286 
287 
2S8 
2S9 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 



002620 
002624 
002632 
002616 

002642 
002650 
002652 
002656 



002660 
002664 
002670 
002674 
002700 
002702 



002704 
002706 
002710 
002712 
002714 
002716 
002720 
002724 
002726 



012700 
012767 
012701 
004767 

032762 
001403 
004767 
000771 



005062 
005062 
005062 
005062 
012601 
0G0207 



105721 
112100 
012105 
011104 
005704 
003417 
016201 
060201 
0b2701 



000001 

100001 177154 
002004 ' 
OOOOOOG 

000001 000010 

175246 



000010 
000006 
000012 
000014 



000016 
000026 



; PUTTC - TERMINRTION 

PTTERM: noa «c. Brine, RO 
nov iioooouc.B 

MOV »C.BIHS/Rl 
JSR PCC.SflRP 
.IF NDF RSTS 
PTTl: BIT «RBFI,LSW(R2) 
BEQ PTTEXT 
JSR PCC.BRCD 
BR PTTl 
. ENDC 

PTTEXT: CLR LSW(R2) 

CLR LCW(R2) 

CLR RSW(P2) 

CLR TSW(R2) 
MOV (SP)+.P1 
RTS PC 



ns*2 



RESET TERMINAL READY 



IF ASSEMBLED FOR RSTS LEAVE THIS ROUTINE OUT 

;RELEASE RECEIVE BUFFERS IF AN 



END RSTS 



JUST IN CASE THERE WERE 2 BUFFERS 



RETURN TO CONTROL MODE 



POP POINTER TO USER PARAMETERS 



F NDF RSX 
. EOT 



I r / I / I t t t • r t I 



,END OF TAPE 2 
. ENDC 

; BISYNC TAPE 3 OF 5 
;-ASRBUF EMT COMMAND SERVICE ROUTINE 
CENTERED FROM TERMINAL TYPE MATRIX SWITCH WITH: 

FUNCTION CODE 003 - ASSIGN ONLY 
; 043 - ASSIGN + ACK 

; 103 - ASSIGN + NAK 

;R1: POINTER TO ASRBUF PARAMETER LIST 

.R2: POINTER TO FIRST WORD OF LINE TABLE 

;R3: LINE»*2 

; R0.R1,R4 AND R5 ARE DESTROYED BY THIS ROUTINE 

;FORMAT OF ASRBUF PARAMETER LIST: 



;L0CP: 
;L0CP+2: 

C. BARB: 



C. BflPl 



STARTING ADDRESS OF RECEIVE BUFFER 
MAXIMUM BUFFER SIZE IN BYTES 



TSTB 

MOVB 

MOV 

MOV 

TST 

BLE 

MOV 

ADD 

ADD 



002732 



30S 002736 



013746 
112: 



1 -1 T? 



1 77776 

000340 177776 



(Rl)^- 

(R1)+,R0 

(R1)+,R5 

(R1),R4 

R-4 

C.BARX 

ASX(R2),R1 

R2,R1 

«UBL-R1 
. IF DF LSIll 
MFPS -(SP) 

MTPS»340 
. IFF 

MOV ii;»C. STAT.-(SP) 
MOVB «340,-^t?C. STAT 



POINT TO SECOND BYTE IN PARAM. LIST 

;GET ASRBUF OP CODE. 

; BUFFER ADDkESS 

;BYTE COUNT 

; COUNT POSITIVE NON-ZERO^ 
NO - REJECT 

; LOCATE CURRENT ASSIGN SLOT 



PREVENT INTERFERENCE. . . 
. . . BY RECEIVE DONE CODE 

.PREVENT INTERFERENCE. . 
;. . . BY PECEU'E DONE CODE 



BISYNC MACRO M1104 06-DEC-77 08: 18 PAGE 24-1 



L 3 



BISYNC MflCPO nnOH 06-DEC-77 08:18 PRGE 2^-l 



L 3 



B 



1309 
1310 
1311 
1312 
1313 
13m 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 

l32^ 

132b 
1326 

132:- 

1328 
1329 
1330 
1331 
1332 
1333 
133M 
1335 
1336 
1337 
1338 
1339 
13140 
13m 
13H2 
13H3 

l3^^ 

1345 
13Hb 
1347 
1348 
1349 
1350 
1351 
1352 
1353 
1354 
1355 
1356 
1367 
1358 
1359 
1360 
1 1 

lit: 

1 3b3 
1364 
1365 



002744 
002746 



005711 
001405 



;THIS SLOT flVPILPIBLE? 



002750 012637 177776 



002754 
002756 
002760 



002762 

002764 
002766 
002774 
003002 
003004 
003010 
003016 
003020 



000242 
000270 
000433 



010521 
OlOi^ll 
062762 
026227 
002402 
005062 

001007 
010662 



O000C4 
000016 

000016 
000001 

000022 



^^ 



0030^ 

003030 

003036 



003036 012637 177776 



003042 
003046 
003050 



000054 

000054 
000060 
000064 

000066 
000072 
000074 
000102 
000106 
OOGllO 
000116 
000124 
000130 
000134 
000142 
000150 
000154 



004767 000054' 

000252 

000207 



016201 
032700 
001452 

032700 
001440 
016162 
105762 
001403 
062762 
012762 
105162 
010162 
062762 
012762 
016201 
012700 



000132 
000140 



000040 

000042 
000136 

000003 
000003 
000136 
000104 
000002 

nnoooi 

000130 
000000 



.ENDC 

TST (Rl) 

BEQ C.BflBl 
; NO SLOT RVRILflBLE - REJECT THE flSRBUF 

. IF DF LSIll 

MTPS (SP)4. ;RESTORE PRIORITY 

.IFF 

nOV (SP)*.i8C. STflT ;RESTORE PRIORITY 

. ENDC 

CLU 
C. BflPX: SEN ;SET FAIL INDICATION 

BP flSSGN3 

ASSIGN THE INCOMING BUFFER TO THE CURRENT ASSIGN SLOT 



C. BABl 



000016 
000034 



000010 



nov 

MOV 
ADD 
CMP 
BLT 
CLP 
ASSGNl: BIT 
BNE 



010462 000024 

052762 000001 0000 10 



RESTORE OPIGIANL PPKPITY 

;PESTOPE ORIGINAL PRIORITY 

; GO SEE IF ACK/NAK NEEDED 
; SUCCESS INDICATION 



000100 



000100 
000102 



0001Q4 
000106 



R5.(R1)+ 
R4, (Rl) 
«4,ASX(R2) 
RSX(R2).SMBX 
ASSGNl 
ASX(R2) 
»RBA,LSW(R2) 
ASSGN2 
MOV R5.ARR(R2) 

IF DF PSYS 
JSR PCGTBFl 
. ENDC 

MOV R4.ABC(R2) 
BIS lfRBA.LSUfR2) 
PSSGN2: . IF DF LSIll . 
MTPS (SP)+ 
. IFF' 

MOV (SP) + ,il»C. STAT 
. ENDC 

JSR PC^APBSP 
CLNV 

ASSGN3: PTS PC 

; TEST IF ASRBUF REQUEST INCLUDES ACK.'NAK ACTIVITY 
. IF DF PSX 
. PSECT ISR 
. ENDC 
ARBSP: MOV CCT(R2^P1 
BIT »140.PC 
BEQ ARRCV 
; UHICH TYPE OF REQUEST WAS IT^ 
BIT «40,R0 
BEQ TRYNAK 
MOV AMP(R1).T2A(R2) 
TSTB AKT(R2) 
BEQ ARBl 
ADD »3.T2A(R2) 
AFBl nov »3,T2C(R2) 

COMB AKT(R2) 
AFB5ET: MOV Rl, T3A(R2) 

ADD ;CPRD. T3fl(R2) 
MOV «1,T3C(P2) 
ACKOUT. MOV TCP(R2).P1 
MOV SC. BTSC.RO 



MOVE PARAMETERS 

UPDATE THE SLOT INDEX 

NEEDS RESETTING^ 

NO 

YES - CLEAR IT 

IS THERE ALREADY AN ACTIVE BUFFER? 

YES - WE'RE DONE 

NO - M KE THIS ONE IT 

GET MAPPED ADDRESS FOP BUFFER 



POINTER TO CODE CONTROL TABLE 

IS IT ACh/NAK REQUEST 

NO 

IS IT ACK TYPE REQUEST ^43) 

NO - MUST BE NAK TYPE 

YES - SET UP THE ACK MESSAGE 



TOGGLE ACK COUNTER 
SET UP EXTRA PAD 



.:SET XMIT POINTER 
; MATRIX SWITCH CODE 



BISYNC MACRO M1104 06-DEC-77 08:18 PAGE 24-2 



M 3 



[;; 



BISYNC HRCPO MllOH 06-DEC-77 08:18 PRGE 2^-2 



n 3 



000 IbO 
OOOlfeH 



3bfe 
3b7 
3b8 
3b9 
370 
371 
372 000174 



G047b7 
052762 



000172 000207 



373 
37H 
37B 

376 

7-77 
.1 ( ( 

379 

3S0 

Z?A 

382 

3S3 

334 

3SB 

3S6 

387 

38S 

3S9 

390 

391 

392 

393 

39H 

395 

396 

397 

39S 

399 

4C30 

401 

402 

403 



000202 
000210 



000212 
000220 
000222 
000226 
000230 
000230 
000234 
000240 
000244 
000252 
000256 
000262 

000262 
000270 
000272 
000300 
000302 
000306 
000312 



016162 
012762 
000747 



001364 
105762 
001361 



005067 
012700 
016201 
G16167 
012701 
004767 



U >5 il 1' b w 
001340 
052762 
005000 
116204 
012705 
000167 



OOGOOOG JSR PC.C. SRRP 

000004 000010 BiS «fiflF.LSW(R2) 

flRSEXT. RTS PC 

;NPK TYPE REQUEST (103 J 
G00044 000100 TRYNflK: MOV NriP(Rl).T2P(R2) 
000002 000102 MOV »2,T2C(R2) 

BR flRBSET 



NO flCK/NflK - DO THE RECEIVE 



. ISR OUTPUT STARTUP 

;FLRG flCK flVfllLRBLE IN CASE OF ENQ 

;FROn OTHER SIDE 

;G0 BACK TO TAKE EfIT EXIT 



;YES - SET POINTER TO NRK flESSAGE 



032762 002000 000010 ARRCV; 
000127 



002004 • 

000002 

000132 

000050 GG2006* 

002004 ■ 

OOOOOOG r 



000002 000010 
000002 000010 



ARRCVl: 



CSflT: 



000120 

004022' 

OOOOOOG 



BIT «ITBfl,LSU(R2J 
BNE ARSEXT 
TSTB BCL(P2) 
BNE ARSEXT 

CLR c.Bins 

MOV «C. BMDC. RO 
MOV CCT(R2).R1 
MOV MDC(R1),C. BIMS- 
MOV «C. BIMS.Rl 
JSR PCC. SRRP 

. IF Z RCVSIB 
BIT «CSfl,LSW'.R2) 
BNE ARSEXT 
BIS «CSfl,LSW(R2) 
CLR RO 
MOVB TCTfP2),R4 
MOV rCRBSPV. R5 



ENABLE 

; IF ITBA STILL ACTIVE. . . 

; DON'T DO TURNAROUND 

;DITTO IF STILL IN BCC PHASE 



PUT LINE NUMBER IN PARAM LIST 
CODE FOR MODE CONTROL CALL 
GET CODE THBLE POINTER 
MODE WORD 



J MP 
. ENDl 
. IF N2 
BR 
. ENDl 



CTIME 

RCVSIB 
ARSEXT 



CRB SERVICE ALREADY flCTH'E? 
YES. UE'RE DONE 
NO. SET IT UP NOU 
PUT LINE NUMBER IN RO 



BISYNC MflCRO M1104 06-DEC-77 08: 18 PRGE 25 



N 3 



1 



B 



BISVHC hRCPO nnO^ Ob-DEC-?? 08: 18 PRGE 2B 



N 3 



B 



moe 
mo? 
mos 
mo9 
mio 
mn 

im3 
mm 
mis 

mi" 
mis 
mi9 
m:c 
m2i 
m22 
m23 
m2H 
m2B 
m26 
m27 
m28 
m29 
m30 
m3i 
m32 
m33 
mzH 
mJB 
m36 
m37 
m3S 
m39 

14HC 

mm 
mi42 
m4 3 
mnu 
mH5 
m46 
mM? 
m48 
mi49 
mBO 
mBi 
m52 
mB3 



000316 
0C032^ 

000326 
00033H 
000342 
0003B0 
000356 
n0036H 
000366 
000374 
000376 
000402 
000404 
000412 
000414 
000422 

000424 
000430 
000436 
000440 
000444 
000452 
000456 

000464 
000472 
000474 

000502 



032762 
001414 

016262 
016262 
016262 
042762 
032762 
001007 
032762 
001003 
004767 
000410 
G 3 ^ I 6 ii 
001404 

001765 

004767 
032762 
001412 
016201 
016162 
105062 
042762 



000144 
000146 
000150 
001000 
000400 

000020 

000130 

040000 

020000 



177562 
001000 

000132 
000052 
000136 
001420 



032762 020000 

001407 

0327d2 000400 

001403 



000100 
000102 
000104 
000010 
000006 

000006 



000010 
000010 

Gooom 

000134 
000006 
000010 
000006 



000504 116"^62 000002" 000115 



000512 032762 002000 000014 

000520 001003 

000522 042762 1772:^7 000014 

000530 000207 



; TRRHSniT DONF SIB ENTRY PROCESSOR 

;; ENTERED FROn BUFFER UNLOflOER I^ITH: 

;RG CONTAINING LINE« AND TYPE CODE 

;R2 CONTAINING POINTER TO BASE OF LINE TABLE, 

;R3 CONTAINING LINE* AS A WORD INDEX. 



001000 000010 C. BODE' 



C. BODl 

C. 80. 
C, 81: 



BIT 

BEQ 

;YES 

MOV 

MOV 

MOV 

BIC 

BIT 

BNE 

BIT 

BNE 

JSR 

BR C. 

BIT « 

BEQ C 

BIT « 

BEQ 

JSP 

BIT 

BEQ 

MOV 

MOV 

CLPB 

BIC 



C. BUD3: BIT 
BEQ 
BIT 
BEQ 



»RDBF.LSW(R2) 
C.BODl 

-RESTORE OLD POINTERS 
TT2A(R2),T2A(R2) 
TT2C(R2).T2C(R2) 
TT3A(R2),T3A(R2) 
;RDBF.LSW(R2) 
»INLLCW(R2) 

. Bl 

MSS,LCW(P2) 

. 31 

CTDENT 

BUD2 

ANF,L3W(R2) 

. BUD2 

fiEF,LSW(R2^ 
C. 90 

PCARRCV 

«ESNT,TSW(R2) 

C. BUD3 

CCT(R2),P1 

CflK0(Rl).CflK(R2) 

flKT(R2) 

«MSS' INI !NAT.LCU(P2) 

nflEF,LSW(P2) 
C. BUD4 

nlNLLCW(R2) 
C. BUD4 
;nRSTER-nESSfiGE X-MIT COMPLETE. START 



C. BUD2: 



;HAVE DATA MESSAGE POINTERS 
;BEEN SAVED'? 



. IF OF 
MOVB 
. IFF 
MOVB 
. ENDl 
C BUD4: BIT 
BNE 
BIC 



UflPTin 
MSPT.MPC>.P2) 

«MSRT.. MRC(R2) 

«BSNT,TSW(P2) 
C. B5 



; IF SLAVE INITiALIZATION. . . 

; ALWAYS DO XMIT DONE 

;IF MASTER INIT. PROCEED NORMALLY 



; IF NOT SET. . . 

; DON'T WANT AN XMIT DONE 

; IF AEF SET ... 



; RESET LINE 

; IF E'^T WAS SENT ... 

GET CODE CONTROL POINTER 
RESET MASTER ACK COUNT 
CLEAR SLAVE ACK COUNT 
. . CLJAR MASTER AND MESSAGE XFER 
AND NATIVE MODE 
ACK EXPECTED^ 
NO 

ALSO MESSAGE TRANSFER? 
NO 
RCVE TIMER 



; TIMEOUT VALUE IN TIC INTERVALS 

; TIMEOUT VALUE 

;!F BID MESSAGE. LEAVE BSMT SET 



C. 65: 



RTS 



u • -7- 

n 1 I I 



PC 



7'?0~?~? 



TS14><^2) 



; CLEAR TRANSMIT STATUS 

; EXCEPT MASTER TIMEOUT - ED 

.; RETURN TO BUFFER UMLOADER. 



15 



BISYNC tlRCPO nilOH Ob-DEC-77 08:18 PfiGE 26 



B ^ 



1HE7 

1' ss 

l4S9 

mfeo 

14f^l 

1463 
1464 
146B 
1466 
14b" 
14bS 
1469 
1470 
1471 
1472 
147: 
1474 
147B 
1476 
1477 



;TRPNSniT DONE UIB ENTRY GENERATOR 



000B32 11620B 000141 



"'G0B36 
000640 
000B44 

000546 
000B52 
000BB6 
000B60 
000B66 
000B7n 
nO'jB74 
000600 
000606 
000614 
000622 



OOB40B 
06270B 
010B46 

016246 
016246 
010046 
1 12766 
01060B 
004767 
062706 
042762 
112762 
042762 
000207 



000010 



000014 
000066 



TDENTO. 
TDENT: 

TDENT: 



000304 000001 



OOOOOOG 
OuuOlO 

074020 
000010 
176777 



000010 
000140 
000014 



. IF DP 
CLR 

CLR 
. IFF 

novB 

NEG 
ROD 

nov 

. ENDC 

nou 
nov 

nov 

MOVB 

nov 

JSP 
ROD 
BIC 

novo 

BIC 
PTS 



RSTS 
RO 
-(SP) 

RKT(R2).RB 

RB 

IINflKCNT,RE 

RB,-(SP) 

TSW(R2). -(SP) 

TSR(R2),-fSP) 

PO.-(SP) 

^C. EGTD, USP) 

SP,RB 

PCC. SPY 

n 10/ SP 

nflEF^RNFiXflCNEF'STXP 

ntNQCNT,EKT(R2J 

nl76777.TSU(R2) 

PC 



.CLEAR LINE NUnBER 



SRVE NUnBER OF ERRORS TO GO UNTIL 
ABORTING IN RB 

RND SUBTRACT FROn STARTING VALUE 
TO OBTAIN « OF XniT ERRORS 
STORE IT FOR UIB ENTRY 

STORE TRANSniT STATUS UORD 
STORE BUFFER ADDRESS 
STORE LINE « 

STORE X-niT DONE UIB CODE 
STORE UiB ADDRESS POINTER 
CALL UIB LOADER 



; RESTORE STACK PO 
LSW(R2) ;EDIT 17 
;SET ENQ COUNTER 
; DON'T CLEAR ESNT 



NTEP 



BiSYNC nflcpo nnoM ofe-uEC-77 08: 18 ppgz ii 



c ^ 



1479 






1480 


003052 




1H31 






1482 






1483 






1484 






1485 






1486 


003052 


000 


1487 


003053 


001 


1488 


003054 


002 


1489 


003055 


003 


1490 


003056 


000 


1491 


003057 


Oil 


1492 


003060 


000 


1493 


003061 


177 


1494 






1495 


003062 


000 


1496 


003063 


000 


1497 


003064 


000 


1498 


003065 


013 


1499 


003066 


014 


1500 


003067 


015 


1501 


003070 


Clb 


1502 


C03071 


017 


1503 






1504 


003072 


020 


1505 


003073 


021 


1506 


003074 


022 


1507 


003075 


023 


1508 


003076 


000 


1509 


0C7077 


000 


1510 


003100 


010 


1511 


003101 


000 


1512 






1513 


003102 


030 


1514 


003103 


031 


1515 


003104 


000 


1516 


003105 


000 


1517 


003106 


034 


151S 


003107 


035 


151? 


003110 


036 


1520 


003111 


037 





. IF DF 


RSX 






. PSECT 


XXX 






. ENDC 






; EBCDIC 


-TO-RSCII TRRmSLRTION TABLE 




. IF NZ 


Cfl. EBC 




;000 








ETR: 


.BYTE 


000 


NUL 




.BYTE 


001 


SOH 




.BYTE 


002 


STX 




. BYTE 


003 


ETX 




.BYTE 


000 


PF -NO flSCi 1 




. BYTE 


Oil 


HT 




.BYTE 


000 


LC - NO flSCI 




. BYTE 


177 


DEL 


;010 










. BYTE 


000 


N. a 




. BYTE 


OCO v^ . 


N. a 




. BYTE 


000 


SMM - N. P. 




. BYTE 


013 


VT 




. BYTE 


014 


FF 




. BYTE 


015 


CR 




. BYTE 


016 


30 




. BYTE 


OP 


SI 


;G2G 










. BYTE 


020 


OLE 




. BYTE 


021 


DCl 




. BYTE 


022 


DC2 




. BYTE 


023 


DC3fTri) 




. BYTE 


000 


RES - N. fl. 




. BYTE 


000 ; 


NL - N. R 




BYTE 


010 ; 


BS 




BYTE 


000 


1 L - N. fl. 


;G30 










BYTE 


030 ; 


CRN 




BYTE 


031 ; 


EM 




BYTE 


000 ; 


CC - N. R. 




BYTE 


000 ; 


N. f(. 




BYTE 


034 ; 


IFS 




BYTE 


035 ; 


!GS 




BYTE 


036 ; 


iRS 




BYTE 


037 


lUSi' ITS) 



BISYNC MflCPO nilOH G6-DEC-77 08:18 



1522 






1523 


003112 


000 


1524 


003113 


000 


1525 


003114 


000 


1526 


003115 


000 


1527 


003116 


000 


1528 


003117 


012 


1529 


003120 


027 


1530 


003121 


033 


1531 






1532 


003122 


000 


1533 


003123 


000 


1534 


003124 . 


000 


1535 


003125 


000 


1536 


003126 


noo 


1537 


003127 . 


005 


1538 


00313G 


006 


15.^9 


003131 


007 


1540 






1541 


003n:^. 


000 


1542 


003133 


000 


1543 


003134 


02b 


1544 


003135 


000 


1545 


003136 


. OOG 


1546 


003137 


000 


1547 


003140 . 


000 


1548 


003141 


. 004 


1549 






1550 


003142 


000 


1551 


0G3143 


000 


1552 


0G3144 


000 


1553 


003145 


000 


1554 


003146 


024 


1555 


003147 


025 


1556 


003150 


000 


1557 


003151 


032 







4 






08: 18 PhGE 28 










;040 












BYTE 


000 


DS - 


N. P. 




. BYTE 


000 


SOS 


-N R. 




. BYTE 


000 


FS - 


N. R. 




. BYTE 


000 


N. fl. 






.BYTE 


000 


BYP 


- N. ;^. 




. BYTE 


012 


uF 






BYTE 


027 


ET3(E0B) 




. BYTE 


033 


ESC( 


PRE) 


;050 












. BYTE 


000 


N. fl. 






. BYTE 


000 


N. fl. 






. BYTE 


000 


sn - 


N. R. 




. BYTt 


000 


N. R 






. BYTE 


000 


N. fl. 






. BYTE 


005 


ENQ 






. BYTE 


006 


ncK 






. BYTE 


0C7 


BEL 




; 060 












. BYTE 


000 ; 


N. fl. 






. BYTE 


000 


N. R. 






. BYTE 


026 


SYN 






. BYTE 


000, 


N. fl. 






. BYTE 


000 . : . 


PN - 


N. R. 




. BYTE 


000 


PS - 


N. R. 




, BYTE 


000 


UC - 


N. R. 




. BYTE 


004 ; 


EOT 




;070 












BYTE 


000 ; 


N. q. 






. BYTE 


000 ; 


N. fl. 






. BYTE 


000 i ; 


N. fl. 






. BYTE 


000 ; 


N. PI 






. BYTE 


024 ^ 


DC 4 






. BYTE 


025 ; 


Hf\Y 






. BYTE 


000 


N R. 






. BYTE 


032 ; 


SUB 





r u 



B 1 SYNC 


MfiCPO Ml 104 06-DEC- 


'71 


1559 








1560 


0G3152 


040 




1561 


003153 


000 




1562 


003151* 


000 




1563 


003155 


000 




1564 


00315b 


000 




1565 


003157 


000 




1566 


003160 


000 




1567 


003161 


000 




1568 








1569 


003162 


000 




1570 


003163 


000 




1571 


00316H 


133 




1572 


003165 


056 




15"'3 


003166 


074 




15:^4 


00Z167 


050 




15:^5 


0031^0 


053 




1576 


C03171 


136 




1577 








1578 


003172 


046 




1579 


003173 


000 




1580 


003174 


000 




1581 


003175 


000 




1582 


003176 


000 




1583 


003177 


000 




158H 


003200 


000 




1585 


003201 


000 




[ 1586 








1587 


003202 


000 




1588 


003203 


000 




, 1589 


003204 


041 




1590 


003205 


044 




1591 


003206 


052 




1592 


003207 


051 




1593 


003210 


073 




159H 


003211 


135 





08: 18 PPIGE 29 



MOO 



E 4 



110 



; 120 



130 



BYTE 


040 


BYTE 


000 


BYTE 


000 


BYTE 


000 


BYTE 


000 


BYTE 


000 


BYTE 


000 


BYTE 


000 


BYTE 


000 


BYTE 


000 


BYTE 


133 


BYTE 


056 


BYTE 


074 


BYTE 


050 


BYTE 


053 


BYTE 


136 


BYTE 


046 


BYTE 


000 


BYTE 


000 


BYTE 


000 


BYTE 


000 


BYTE 


000 


BYTE 


000 


BYTE 


000 


BYTE 


000 


BYTE 


coo 


BYTE 


04 1 


BYTE 


044 


BYTE 


052 


BYTE 


051 


BYTE 


073 


BYTE 


135 



IN flSCI I) 



; SPACE 
; N. fl. 
; N. fi. 
; N. fl. 
; N. P. 
; N. fl. 
; N. ?i. 
; N. fl. 

; N. fl, 

/■ N fl 

;C'enT sign ( 

; < 
; ( 

;VERTICRL BOR 

;8. 
; N. fl. 

; N. fl. 
; N. fl. 
; N. fl. 
; N. fl. 
.: N. fl. 
;N. fl. 

, N. fl. 
; N. fl. 
; ! 
:■% 
;* 
; J 



(WAS EBCDIC "NOT" OPEPflTOP) 



F 4 



B I SYNC MRCPO nllO^ 06-DEC-77 08: 18 



1S96 



F k 



1597 


003212 


055 


1598 


003213 


057 


1599 


0032m 


000 


1600 


003215 


000 


IbOl 


003216 


000 


1602 


003217 


000 


1603 


003220 


000 


160H 


003221 


000 


1605 






1606 


003222 


000 


1607 


003223 


000 


160S 


00322^ 


17H 


lb09 


003225 


05^ 


IblO 


003226 


0H5 


IbU 


003227 


137 


1612 


003230 


076 


1613 


003231 


077 


1614 






1615 


003232 


000 


1616 


003233 


000 


1617 


00323H 


000 


!618 


003235 


000 


1619 


003236 


000 


1620 


0G3237 


000 


1621 


0032^0 


000 


1622 


G032m 


000 


1623 






162^ 


0032^2 


000 


1625 


0G3243 


mo 


1626 


G032^^ 


072 


1627 


0G32H5 


0U3 


1628 


GG32H6 


100 


1629 


G032H7 


OH 7 


1630 


0032^^0 


075 


1631 


003261 


om 



PRGt 30 




;mo 




. BYTE 


055 


BYTE 


057 


. BYTE 


000 


.BYTE 


000 


. BYTE 


000 


.BYTE 


000 


.BYTE 


000 


. BYTE 


000 


;150 




. BYTE 


000 


. BYTE 


000 


. BYTE 


174 


.BYTE 


054 


. BYTE 


045 


. BYTE 


137 


. BYTE 


076 


. BYTE 


077 


; 160 




. BYTE 


000 


. BYTE 


000 


. BYTE 


000 


BYTE 


000 


. BYTE 


000 


. BYTE 


000 


. BYTE 


000 


. BYTE 


000 


; 170 




. BYTE 


000 


. BYTE 


140 


. BYTE 


072 


. BYTE 


043 


. BYTE 


100 


. BYTE 


047 


. BYTE 


075 


.BYTE 


042 



/ 

N. fl. 
N. R. 
N. P. 
N. fl. 
N. f^. 
N. fl. 

N. fl. 
N. fl. 
NON-PRINT 

> 

? 

N. fl. 

N. fl. 

N. fl. 

N. fl. 



NG (flSCI 



N. 
N. 
N. 
N. 



fl. 
fl. 
fl. 
fl. 



N. fl. 
NON-PPINTiNG 

t 
i 



It 



G U 



B 1 SYNC 


nPICPO M1104 06-DEC- 


•11 


1633 








1634 


003252 


000 




1635 


003253 


141 




1636 


003254 


142 




1637 


003255 


143 




1638 


003256 


144 




1639 


003257 


145 




1640 


003260 


146 




1641 


0U3261 


147 




16^"^ 








1643 


003262 


150 




lt44 


003263 


151 




lb4R 


003264 


000 




1646 


003265 


000 




1647 


003266 


000 




1645 


003267 


000 




1649 


003270 


000 




1650 


003271 


000 




1651 








1652 


003272 


000 




1653 


003273 


152 




1654 


003274 


153 




1655 


003275 


154 




1656 


003276 


155 




1657 


003277 


15b 




1658 


003300 


157 




1659 


003301 


160 




1660 








1661 


003302 


161 




1662 


003303 


162 




1663 


003304 


000 




1664 


003305 


000 




1665 


003306 


000 




1666 


003307 


000 




1667 


003310 


000 




166S 


003311 


000 





08: 18 PfiGE 31 



;200 



G 4 



;210 



;220 



; 230 



BYTE 


000 


BYTE 


141 


BYTE 


142 


BYTE 


143 


BYTE 


144 


BYTE 


145 


BYTE 


146 


BYTE 


147 


BYTE 


150 


BYTE 


151 


BYTE 


000 


BYTE 


000 


BYTE 


000 


BYTE 


000 


BYTE 


000 


BYTE 


000 


BYTE 


000 


BYTE 


152 


BYTE 


153 


BYTE 


154 


BYTE 


155 


BYTE 


156 


BYTE 


157 


BYTE 


160 


BYTE 


161 


BYTE 


162 


BYTE 


000 


BYTE 


000 


BYTE 


000 


BYTE 


000 


BYTE 


000 


BYTE 


000 



;N. fl. 






;R - 


LOWER 


CfiSE 


;B 






;C 






;D 






;E 






;F 






;G 






;H - 
• 1 


LOWER 


CASE 


/ 1 
;N. 0. 






;N. 0. 






;N. fl. 






;N. fl. 






. N. fl. 






;N. fl. 






, N. fl. 






; J - 


LOWER 


CASE 


;K 






: L 






;n 






:N 






;0 






;P 






;0 - 


LOWER 


CPSE 


;R 






; N. «. 






; N. 0. 






; N. P. 






;N. fl 






;N. fl. 







, N. fi. 



H 4 



81 SYNC 


nflCPO Ml 101+ 06-DEC- 


'77 ( 


lb70 








1671 


003312 


000 




1672 


003313 


176 




1673 


003im 


163 




167^ 


003315 


164 




167B 


003316 


165 




1676 


003317 


166 




1677 


003320 


167 




167S 


003321 


170 




1679 








1680 


003322 


171 




1681 


003323 


172 




1682 


00332^ 


000 




lbS3 


003325 


000 




IbSH 


003326 


000 




1685 


003327 


000 




1686 


003330 


000 




1687 


003331 


000 




1688 








1689 


003332 


GOO 




1690 


QOZZZZ 


000 




1691 


00333H 


000 




1692 


003335 


000 




1693 


003336 


000 




169H 


003337 


000 




169B 


0033H0 


000 




1696 


003341 


000 




1697 








1698 


0033H2 


000 




1699 


003343 


000 




1700 


003344 


coo 




1701 


003345 


000 




1702 


003346 


000 




1703 


003347 


000 




170H 


003350 


000 




1 706 


003351 


000 





08: 18 PfiGE 32 



;240 



H 4 



;250 



;260 



/ 4.1 u 



BYTE 


000 


BYTE 


176 


BYTE 


163 


BYTE 


164 


BYTE 


165 


BYTE 


166 


BYTE 


167 


BYTE 


170 


BYTE 


171 


BYTE 


172 


BYTE 


000 


BYTE 


000 


BYTE 


000 


BYTE 


000 


BYTE 


000 


BYTE 


000 


BYTE 


000 


BYTE 


000 


BYTE 


000 


BYTE 


000 


BYTE 


000 


BYTE 


000 


BYTE 


000 


BYTE 


000 


BYTE 


000 


BYTE 


noo 


BYTE 


-100 


BYTE 


000 


BYTE 


000 


BYTE 


000 


BYTE 


000 


BYTE 


000 



;N. fl. 




;NON- 


PRINTING 


;S 




;T 




;u 




;V 




:U 




;x 




;Y - 


LOWER CRSE 


;2 




;N. fl. 




;N. fl. 




;N. fl. 




;N. fl. 




,N. fl. 




;N. fl. 




;N. fl. 




;N. fl. 




;N. R. 




; N, fl. 




;N. a 




■• N. PI. 




; N. fl. 




;N. fl. 




; N. q. 




; N. fl. 




; N. fl. 




; N. R. 




;N. fl 




;N. R. 




; N P. 




; N, R. 





D 1 C V H i' 



MnroA M4 inii 



I H 



r 



BISYNC MRCPO Mn04 Ob-DEC-77 08:18 PRGE 2Z 



1707 
170S 
1709 
1710 
1711 
1712 
1713 
17m 
1715 
1716 



003352 
003353 
00335^ 
003355 
00335b 
003357 
003360 
003361 



173 
101 
102 
103 
lOH 
105 
106 
107 



;300 



1717 


003362 


110 


1718 


003363 


111 


1719 


003364 


000 


1720 


003365 


000 


1721 


003366 


000 


i i' i^^ 


003367 


000 


1723 


0033:^0 


000 


172^ 


003371 


000 


1725 






1726 


003372 


175 


1727 


003373 


112 


1728 


00337H 


113 


1729 


003375 


114 


1730 


003376 


115 


1731 


003377 


116 


1732 


003H00 


117 


1733 


003401 


120 


\7V\ 






1735 


003402 


121 


1736 


003403 


122 


1737 


003404 


GOO 


1738 


003405 


000 


1739 


003406 


000 


17Hn 


003407 


000 


17m 


003410 


000 


ir^wz 


00 34 11 


GOO 



;310 



;320 



;330 



BYTE 


173 


BYTE 


ICt 


BYTE 


102 


BYTE 


103 


BYTE 


104 


BYTE 


105 


BYTE 


106 


BYTE 


107 


BYTE 


110 


BYTE 


111 


BYTE 


000 


BYTE 


000 


BYTE 


000 


BYTE 


000 


BYTE 


000 


BYTE 


QCO 


BYTE 


175 


BYTE 


112 


BYTE 


113 


BYTE 


114 


BYTE 


115 


BYTE 


lib 


BYTE 


117 


BYTE 


120 


BYTE 


121 


BYTE 




BYTE 


000 


BYTE 


000 


BYTE 


000 


BYTE 


000 


BYTE 


000 


BYTE 


000 



;NON- 


PRINTING 


;P 




;6 




;C 




;D 




;E 




;F 




;G 




;H 
• 1 




/ 1 
; N. a 




. N. 0. 




;N. fl. 




; N. a 




, N. fl. 




;N. a 




, NON- 
• 1 


PPINTING 






'■ L 




; r^ 




:N 




:0 




'P 




. Q 




;P 




; N. fl. 




: N. a 




: N. fl. 




;N. p. 




; N, a 




; N. fl. 





i.^- 



D I cvkir 



Ml~l("OA M4 «nii 



1^ j^ p^^^«^ ^1 



J 4 



:ii 



r 



BiSYNC nflcpo nno4 O6-DEC-77 08: is prge 3h 



J ^ 



i:'4H 






17HS 


003412 


134 


174b 


003413 


GOO 


17H7 


003414 


123 


rns 


003415 


124 


1749 


003416 


125 


17S0 


003417 


126 


17B1 


003420 


127 


1762 


003421 


130 


1753 






17B4 


003422 


131 


175B 


003423 i 


132 


17Bb 


003424 


000 


17B7 


00342B 


000 


17BS 


003426 


000 


17B9 


003427 


000 


1760 


0034 30 


000 


1761 

1 7i^ ■* 


003431 


000 


1 . D»- 

1763 


003432 


060 


176H 


003433 


061 


176B 


003434 


062 


1766 


0034 35 


063 


1767 


003436 


ObH 


1768 


003437 


ObB 


1769 


003440 


Obb 


1770 


003441 


067 


1771 






1772 


003442 


070 


1773 


003443 


071 


1774 


003444 


000 


177B 


003445 


000 


1776 


003446 


000 


1777 


003447 


000 


177S 


0034B0 


000 


1779 


003451 


177 



;340 



;350 



;360 



; 370 



BYTE 


134 


BYTE 


000 


BYTE 


123 


BYTE 


124 


BYTE 


125 


BYTE 


126 


BYTE 


127 


BYTE 


130 


BYTE 


131 


BYTE 


132 


BYTE 


000 


BYTE 


000 


BYTE 


000 


BYTE 


000 


BYTE 


000 


BYTE 


000 


BYTE 


060 


BYTE 


Obi 


BYTE 


062 


BYTE 


063 


BYTE 


064 


BYTE 


065 


BYTE 


066 


BYTE 


oe- 


BYTE 


070 


BYTE 


071 


BYTE 


000 


BYTE 


000 


BYTE 


000 


BYTE 


000 


BYTE 


000 


BYTE 


1:^7 



; N. P. 

;S 

;T 

;U 

;V 

;U 

;X 



.:N. 

;N. 

;N. 
;N. 



;Y 
;Z 
;N 
;N 
;N 
;N 

;N, fl 


1 

i. 



5 
6 

;7 

;8 
; 9 
;N. fl. 



fl. 

rl. 

fl. 



;N. R. - BUT RECOGNIZE fiS PAD 



D I cvkir MoroA Miinu n^L-nrr--?-? no 40 or.rr ip 



K 4 



r 



BiSYNC nflCRO nnOH Ob-DEC-77 08: 18 PRGE 35 



K H 



B 






7S4 
"SS 
73b 
7S7 
788 
789 
:'90 

793 
79U 

^9b 
797 

T'Qg 

800 
801 
802 
803 
80^ 
805 
806 
807 
808 
809 
810 
811 
812 
813 

8m 

815 
816 

S17 
SIS 

S19 
S20 

s:i 

823 
824 
825 
826 
827 
828 
829 
830 
831 
832 
333 
S3'A 
835 
836 
837 



iF DF flSCI 



> 



003452 



003452 
003453 
003454 
0034F'^ 
003456 
003457 
003460 
003461 



003462 
003463 
003464 
003465 
00346b 
003467 
0034 70 
003471 



003472 
003473 
003474 
003475 

003476 
003477 
003500 
003501 



003502 
003503 
003504 



. rincRO 

Cl=' 'C3-60 

C2="C4-60 

. IF GT Cl-9. 

Cl=Cl-7 

. ENDC 

. IF GT C2-9, 

C2=C2-7 

. ENDC 

.BriE 

. ENDM 



flEXB: 
. 000 



; 010 



; 020 



; 030 



HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 



HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 



HEX 
HEX 
HEX 
HEX 

HEX 
HEX 
HEX 
HEX 



HEX 
HEX 
HEX 



HEX 



C3,C4 



;SUBT 7 nORE IF R LETTER 



CU16. +C2 



0,0 
0,1 
0.2 
0,3 
3.7 
2,D 
2.-E 
2,F 



1. 6 
0,5 
2.5 
0, B 
0, C 
0,D 
0,E 
0,F 



10 
1. 1 
1^2 
1.3 

3.. C 
3,0 



l-S 
1,9 
3,F 



NULL 

SON 

STX 

ETX 

EOT 

EHQ 

RCK 

BEL 



BS 

HT 
LF 
VT 
FF 
CR 
SO 



;DLE 
; DC 1 
;DC2 
;DC3 

;DC4 
; NflK 
; SYN 
;ETB 



CAN 

EM 

SUB 



BISYNC MPCPO nil04 06-DEC-77 OR- 1 R PQr,F 7i;-i 



L 4 



f: 



BISYNC MflCPO nn04 Ob-DEC-77 08: 18 



L ^ 



133S 


003505 


1839 


003506 


ISHO 


003507 


ism 


003510 


18H2 


003511 


13H3 




18HH 




1845 


003512 


1846 


003513 


1847 


003514 


1848 


003515 


1349 


003516 


1850 


003517 


1861 


003520 


185: 


003521 


1S53 




1S54 




1855 


003522 ' 


lS5b 


003523 


1857 


003524 


1S58 


003525 


1859 


00352b 


1860 


003527 


1861 


003530 


1862 


0G3531 


1863 




1864 




1865 


003532 


1866 


003533 


1867 


003534 


186S 


003535 


1869 


003536 


1870 


003537 


1871 


003540 


1872 


003541 


1873 




1S74 




1875 


003542 


1876 


003543 


1S77 


003544 


1878 


003545 


1879 


003546 


ISSD 


003547 


1881 


003550 


1882 


003551 


1883 




1884 




1885 




1886 




1887 


003552 


1888 


003553 


1889 


003554 


1890 


003555 


1891 


003556 


1H92 


003557 


1893 


003560 


1894 


003561 



PfiGE 35- 


1 . 








HEX 


1.1 


;ESC 




HEX 


1,1 


;FS 




HEX 


1.0 


; flSC 1 1 G 




HEX 


3.5 


;RS 




HEX 


l.F 


;flSCI 1 U 


; 040 










HEX 


4,0 


;SrKE 




HEX 


5,fl 


; ! 




HEX 


7,F 






HEX 


7,B 


;t 




HEX 


5.B 


;i 




HEX 


6,C 


.% 




HEX 


5.0 


;l 




HEX 


7,0 




; 050 










HEX 


4.D 


;( 




HEX 


5,0 


;> 




HEX 


5.C 


;« 




HEX 


4 E 


;* 




HEX 


b B 


• 

/ 1 




HEX 


b,0 






HEX 


4,3 


* 




HEX 


b- 1 


;/ 


; ObO 










HEX 


F-0 


;0 




HEX 


F . 1 


;t 




HEX 


F,2 


;2 




HEX 


F.3 


;1 




HEX 


F,4 


;i* 




HEX 


F.5 


;§ 




HEX 


!^,b 


;6 


♦ 


HEX 


F,7 


;7 


; 070 










HEX 


F.S 


;g 




HEX 


F.9 


;9 




HEX 


7,fl 


t \ 




HEX 


5,E 


i / 




HEX 


4.C 


; < 




HEX 


7.E 


; s 




HEX 


b,E 


;> 




HEX 


b,F 


;? 


/ 

A 


LOUEP 


CASE 




; 100 










HEX 


7,C 


;a 




HEX 


\., 1 


;R 




HEX 


C.2 


;i 




HEX 


C.3 


;C 




HEX 


C^4 


;0 




HEX 


C,5 


;l 




HEX 


C.b 


;r 




HEX 


C,7 


;(j 



B 



GS BECOMES EBCDIC IGS 
US BECOMES EBCDIC lUS 



Ri^.YNf MPrpn Miinu nt-nrr-77 no. 10 oortr 7^0 



M 4 



:i 



L 



BISYNC riRCPO miOH Ob-DEC-77 08: 18 PfiGE 35-2 



M H 



(^ 



lo95 




1896 


003562 


1S97 


003563 


IS9S 


003564 


1899 


003565 


1900 


003566 


1901 


003567 


1902 


003570 


1903 


003571 . 


190H 




1905 




1 90b 


003572 


190" 


003573 


l9uS 


003574 ' 


1909 


003575 : 


1910 


003576 


1911 


003577 ' 


1912 


003600 


1913 


003b01 


I9m 




1915 




1916 


003602 


1917 


0036C3 


1918 


003604 


1919 


003605 


1920 


003606 


921 


003607 


1922 


003610. 


1923 


003611 


924 




925 




926 




927 




92S 




929 


003612 


930 


003613 


931 


003614 


'=»32 


003615 


933 


003616 


92M 


003617 


93B 


003620 


936 


003621 


92? 




93S 




939 


003622 


940 


003623 


941 


003624 


942 


003625 


943 


003626 


944 


003627 


945 


003630 


946 


003631 


94 7 




94 S 




949 


003632 


950 


003633 


95 i 


003634 



; 110 



120 



HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 



HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 



HEX 
HEX 
HEX 

HEX 
HEX 
HEX 
HEX 
HEX 



LOWER CASE 



; 130 



140 



150 



160 



HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 



HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 



HEX 
HEX 

HEX 



C,8 
C,9 
D.l 
D.2 
0,3 
D,4 
0,5 
0,6 



0,7 

0,8 
0,9 
E,2 

E,3 



E 
E 
E 



4 
5 

6 



E.7 
E,S 
E,9 
4,H 
E 
5-F 
4,F 
6^0 



7- 9 

s-i 

8-2 
8,3 
8.4 
8,5 
8,6 
8-7 



8,8 
8,9 
9- 1 
9,2 
9,3 

9,5 
9-b 



9,7 

9,8 



;H 
; I 
; J 
;K 
;L 
;n 
;N 
;0 



;P 
;Q 
,P 
;S 
;T 
;U 
; V 
; W 



;X 

; Y 
;2 
;FISCI I 

; flSC I ! 
; fiSC I I 
; UNDER u 



BECOMES EBCDIC CENT SIGN 

BECOMES EBCDIC "NOT" QPEPPTOP 

BECOMES EBCD'C I'ERTICflL BAR 
NE 



ACCENT 

fl 

B 

C 

D 

E 

F 

G 



H 



K 
L 
M 
N 




;P 
;Q 
;R 



BISYNC MflCPO M1104 06-0EC-77 08:18 PAGE 35-3 



N 4 



f; 



BISYNC 


hRCPo nnoH Q 


1952 


00363B 


19B3 


003636 


196H 


003637 - 


19BB 


0036H0 


ISBfe 


0036m 


19B7 




19BS 




19B9 


0036H2 


1960 


0036^3 V 


1961 


0036^^ 


1962 


00364B 


1963 


003646 


196^ 


003b'47 


r?toB 


OOibBO 


1966 


0036B1 / 



06-DEC-77 



8 PfiGE 35-3 



N 4 



170 



1967 
196S 



B 



HEX 


R,2 


;S 


HEX 


R,3 


;T 


HEX 


R,H 


m 


HEX 


fl.5 . 


' -If : 


HEX 


R.6 


.mr 


HEX 


R, 7 


;X 


HEX 


fl, 8 


;Y 


HEX 


R. 9 


;Z 


HEX 


CO 


;LEFT BRACE 


HEX 


b.fl 


;0R 


HEX 


0.0 


; RIGHT BRACE 


HEX 


fl, 1 


; TILDE 


HEX 


Ow 


;DEL 



BISVNC nflCPO nilQH 06-DEC-77 08:18 PPiGE 36 



B 5 



1970 








1971 








19T'2 








1973 








1974 








197B 








197b 








1977 0C3e52 


000 


002 


002 


003fc5B 


006 


020 


016 


003bbO 


QO^^^ 


000 




1978 003662 


000 


000 


000 


003665 


000 


ODD 


000 


003670 


000 


000 




1979 003672 


012 


000 


uoo 


003675 


000 


000 


022 


003700 


014 


004 




1980 








19S1 003702 


000 


000 


000 


003705 


000 


000 


000 


003710 


000 


010 




1982 








1983 








19SU 








1985 








1986 








1987 








1988 








1989 003712 


004232 


1 




1990 0037m 


005710 


1 




1991 








1992 








1993 








1994 00371f 


005736 






1995 003720 


006002 






1996 n03722 


006012 






1997 003724 


004232 






1998 003726 


006070 






1999 003730 


006040 






2000 003732 


005710 






2001 003734 


004232 






2002 








2003 








2004 003736 


005206 






2005 003740 


005274 






2006 003742 


00520b 






2007 003744 


005206 






2008 003746 


005206' 






2009 003750 


005414' 






2010 003752 


005410" 






2011 003754 


005652' 






2012 003756 


005424' 






2013 003760 


005446" 







. EVEN 

. ENDC 
ACTION INDEX TOBLE - INDEX WITH PSC I I CHAR < 40 OCTPIL 
CONTENT IS ACTION CODE FOR THAT CHAR. CODE IS ALWAYS 
EVEN FOR USE AS JUMP INDEX 



ACTTAB: BYTE 00.02.02.06,20.16,00.00 .ASCII 00-07 

.BYTE 00. 00. 00. on 00.00.00.00 .ASCII OS-OF 

BYTE 12.00.00.00.00.22.14.04 -ASCII 10-17 



. IF NDF R37S0 

. BYTE 00.- 00. 00. 00- 00. 00- 00. 10 



ENDC 

IF DF P3780 

BYTE 00.00-00.00.00.30.22.10 

ENDC 



;ASCI I 18-lF 



.ASCII IS- IF 



. EVEN 
;JUMF TPBL: fop special ACTION CHARACTERS - RECEIVE MODE 



GTSAT: 



GTBCC 
GTSTy 

. IF OF 

GTBCC 

. ENDC 

GTETB 

GTETX 

GTlTB 

GTBCC 

GTSYN 

GTENQ 

GTSTX 

GTBCC 



P37Sn 



;CHARnCTER WAS NOT SPECIAL 
;STX/SOH 



RS-TRFAl AS DATA 



ETB 

ETX 

ITB 

;DLE 

;SYN 

;ENQ 

;EOT 

NAK 



;JUriP TABLE FOP SPECIAL ACTION CHARACTERS - 1ST CHAPfiCTEP RECEIVE MODE 



FPSAT- 



GTFPTl 
SETniP 
GTFPTl 
GTFRTl 
GTFPTl 
SETDLE 
GETCHl 
SETENO 
SETEOT 
SETNAK 



CHARACTER WAS ^iOT SPECIAL 
. STX/SOH 
ETB 
ETX 
ITB 
DLE 
SYN 
ENQ 
EOT 
NAK 



&13YNC MflCPO nnOH 06-DEC-77 08:18 PfiGE 27 



2015 
2016 
2017 
2018 
2019 
2020 
2021 
2022 
2023 
202^ 
2025 
202b 
202" 
202S 
2029 
203C 
2031 
2032 
2033 
203M 
2035 
2036 
2037 
2038 
2039 
20^0 
20m 

20^2 

20H3 

20HH 

20H5 

20H6 

20H7 

20H8 

20^9 

2050 

2051 

2052 

2053 

205H 

2055 

2056 

205? 

2058 

2059 

2060 

2061 

2062 

2063 

206^ 

2065 

2066 

2067 

206S 

2069 

2070 

2071 



003762 
0037b4 
0C3766 
003770 
0C3772 
00377^ 
003776 
OOHOOC 
00U002 
OOHOO'i 



OOH006 
G014012 
OOHOm 
OOH020 



00H022 



00H022 
00H026 
00^032 

oo^o^o 
ool♦o^6 

OOH052 



001540' 
001166' 
001540' 
001540' 
001012' 
000756' 
001272' 
001176' 
001244' 
001540' 



042704 
010405 
116404 
000207 



013746 
013746 
012737 
016237 
016201 
016137 



; JUriP 
PTSRT: 



TPBLE FOR 
PUTD5 
PTSTX 
PUTD5 
PUTD5 
PTITB 

ptdle 

PTSVN 
PTENQ 
PTEOT 

PUYDS 
. IF DF 
PTIPS 
. ENDC 



C i 



SPECIRL fiCTION 



R3780 



CHflRflCTERS - TRANSMIT MODE 
;CHflRPCTER WAS NOT SPECIAL 
; STX/SOH 
;ETB 
;ETX 
TB 
;DLE 

SYN 

ENil 

EOT 
; NflK 

;IRS 



IF NZ CO. EBC 



177400 
003052' 



;EBCDIC-PISCI I 
EBCRTK: SIC 
MOV 
MOUB 
PTS 
. ENDC 



RECEIVE TRANSLATOR 
«177400,CBBX 
CBBX.CBAX 
ETA(CBBX),CBBX 
PC 



;SAVt ORIG. CHAR 
;GET ASCI I EQUIVALENT 



CIRCULAR RECEIVE BUFFER (CRB) SERVICE ROUTINE 

ENTERED FROM SCIF SYSTEM TIMER 

FIRST, SAVE THE CURRENT STATE OF THE KGl 1 



CPBSRV; 



170700 
170702 
000133 
000122 
000132 
000034 



170700 
170704 

170700 



004060 005062 000062 



004064 



;NOW UE 
; GET A 
GETCHR: 



. IF 
. IF 
MOV 
MOV 
IFF 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
. ENDC 
. ENDC 
. IF DF 
MOV 
. ENDC 

CLP IRC(R2) 

'RE READY TO SERVICE THE CRB 
CHAR FROM THE CRB AND PROCESS 



NDF RSTS 

DF LSIll 

CRCACC,-(SP) 
CBC(R2),CRCACC 

(i)lfKGSTAT,-(SP) 

a«}KGBCCR,-(SP) 

»133,a«KGSTAT 

CBC(R2),il«KGDATA 

CCT(R2),R1 

KGC(Rl),i»KGSTAT 



RSTSILSIll 
CCT(R2),R1 



;SAVE PARTIAL BCC 

;SET CURRENT PARTIAL BCC 

; STATUS 

; pflPT I AL BCC 

; CLEAR KGll AND SET FOR LRC16 

;SET CURRENT PARTIAL BCC 

;SET CURRENT CODE TABLE POINTER 

;AND I NIT KGll FOR CURRENT CODE 



;SET CURRENT CODE TABLE POINTER 
; CLEAR THE INTERIM RECEIVE COUNT 



IT 



. IF NZ 
MOV 
JSR 
. ENDC 
. IF Z 



CRBINT 
aRBU, (SP) 
PC, (SP)+ 

CRBINT 



004064 004772 000004 

004070 100002 

004072 000167 000640 



JSR PC,aPBU(R2) 
. ENDC 

BPL GETCHA 
JMP GTNONE 



GET UNLOADEP ADDPESS 
AND CALL IT 



;ASK FOP ENTRY 

:ANY ENTRIES^ 
;N0 





BISYHC 


MRCRO (1110H 06 


-DEC-77 


08: 18 PRGE 37-1 


D 5 






2072 


00H076 


102003 






GETCHfi: 


B"C GETl 


;crb overrun indicrted? 




2073 


oomoo 


052762 


GGG040 


000012 




BiS IC0VR.RSU(R2) 


;SET status FLRG IF SO 




2074 


oomo6 


0327GU 


G2G000 




GETl: 


BIT I20000.CBBX 


;TEST for RCV OVERRUN 




2075 


oomi2 


G014G5 








BEQ GETlfl 


;SET STATUS FLAG i"^ OVERRUN 




2076 


ooiim 


0427G4 


G2GG00 






BIC 120000. CB6X 


; CLEAR OVERRUN FLAG IN ENTRY 




2077 


oom2o 


G52762 


GGOIGG 


GGG012 




BIS «R0VR.RSUrR2) 






2078 


com 26 


032762 


GGG2GG 


000012 


GETlfl: 


BIT IISRT0F,RSW(R2) 


; SLAVE RCVE TIMEOUT? 




2079 


oom3H 


GOmOB 








9EQ GETIB 


;N0 




2080 


0Gm36 


042762 


000200 


000012 




BIC «SRT0F,RSW(R2) 






; 2081 


GOmHH 


000167 


001700 






JMP GTEOT 


; GENERATE AB END RCVE UIB 




2082 


oomso 


G32762 


000400 


000012 


GETIB: 


BIT »FBF,RSU(R2) 


; FLUSHING BUFFER? 




2083 


G0m56 


001342 








BNE GETCHR 


;YES - IGNORE 




208H 


oom60 


005262 


000062 






INC IRC(R2) 


.INDICATE CHAR CAME IN THIS TIME 




2085 


00m6H 


105762 


000127 






TSTB BCL(R2) 


;ARE WE IN BCC PHASE? 




208fc 


004170 


001402 








BEQ GET2 






20S7 


004172 


000167 


001710 






JMP BCCHK 


;YES 




2088 


004176 


004771 


000040 




GET2: 


JSR PColRTRfRl) 


,N0 - GO TO ACTIVE TRANSLATE ROUTINE 




20S9 


004202 


032762 


100000 


000010 




BIT «rilP.LSW(R2) 


♦ = 




2090 


004210 


001002 








BNE GET5 


;NOT THE FIRST CHAR - PROCEED 




2091 


00421. 


000167 


000752 






JMP GTFRST 


; FIRST CHAR - GO CHECK iT 




2092 


004216 


120427 


000037 




GET5: 


CMPB CBBX «37 


;IS IT IN RANGE OF SPECIAL CHARS? 




2093 


004222 


003440 








BLE GET3 


;YES - GO CHECK FURTHER 




209H 


004224 


042762 


000200 


000006 




BIC «DLEF,LCW(R2) 






2095 


004232 


032762 


000200 


000010 


GTBCC: 


BIT «BCCP,'_Sl^(R2) 


; INCLUDE IT IN BCC 




2096 


004240 


001402 








BEQ GET4 


;N0 




2097 












. IF OF LSIll 






209P 












MOVB CBflX,CRCCHR 


;RUN IT THROUGH BCC CPLC 




2099 












JSR PC,SCRC16 






2100 












. IFF 






2101 


004242 


110537 


170704 






MOVB CBflX. £)SKGDRTfl 


;PUN IT THROUGH KGll 




2102 












. ENDC 






2103 


00H246 


032762 


000020 


000012 


GET4: 


BIT ;U0VR,RSW(R2) 


;USER BUFFER OVERFLOW? 




210H 


00H254 


001303 








BNE GETCHR 


;YES. IGNORE FUTHER CHARS 




2105 


004 256 


005762 


000024 






TST flBC(R2) 


;RO0M FOP THIS CHAR^ 




2106 


004262 


001444 








BEQ GTUOF 


;N0. GO SET OVERFLOW FLAG 




2107 


004264 


032762 


040000 


000010 




BIT «PNF,LSW(R2) 


;IF ACKNOWLEDGE, DON'T BUFFER IT 




2108 


004272 


001274 








BNE GETCHR 






2109 


004274 


032762 


001000 


000006 




BIT «NRT.LCW(P2) 


; IF NATIVE MODE 




2110 












. IF NDF PSTS 






2111 


004 302 


001401 








BEQ GET9 






2112 


004 304 


010504 








MOV CBfiX-CBBX 


;. . . BUFFER ORIGINAL CHRR 




2113 


004 30b 








GET9: 








2114 


004 30b 


1 10472 


000022 






M0V3 CBBX.^PP«>:R2) 


;PUT CHf^P IN USER BUFFER 




2115 












. ENDC 






2116 












IF OF RSTS 






2117 












BNE 5S 


;YES 




2118 












. GLOBL EXTFLG 






2119 












TSTB EXTFLG 


; CHECK FOP PSTS-TO-RSTS MODE 




2120 
2121 
2122 












BPL GET9 


;PUT IN BECPUSE OF FfiCE CONDITION 
;EDIT 31 
;N0T SET 




2123 
212H 
2125 
2126 
2127 










GET9: 


MOV CBfiX.CBBX 

MOV SfiVRb^K !S«Pb 
MOVB CBBa. ilSrlVflOD 


; BUFFER OPIGINRL CHPPPCTEP 

; RESTORE RPR 6 JUST IN CPSE 
:PUT CHRR INTO POTENT 1 PL LY 
MAPPED BUFFEP PPEP 




2128 












INC SPVfPDD 


BUMP POINTER 




I 

















BISYHC nfiCPO nnOH Ob-DEC-?? 08:18 PRGE 37-2 



E 5 



2129 

2130 00^312 

2131 00H31fe 

2132 00^322 



005262 
005362 
C00660 



000022 
00002H 



. ENDC 

INC «Rfl(R2) 
DEC fiBC(R2) 
BR GETCHR 



; UPDATE POINTER AND COUNT 



BlSYNC MfiCPO nllO^ Oe-DEC-?? 08: 18 PPIGE 38 



F S 



213»4 

2135 
2 1 3b 
2137 
2138 
2139 
21H0 

2mi 

21H2 
2m3 

zmu 

2146 

zmb 

2147 

2ms 

2149 
21SC 
21^1 
21S2 
2153 
2154 
2155 
2156 
2157 
215S 
2159 
21fa0 



004324 
004330 
G0433b 
004340 
00434b 
004350 
004354 
004356 

004362 
G04370 



004374 
004402 
004404 
004412 
004 4 20 



004422 
00442b 
004434 



116400 
032762 
001414 
032762 
001005 
120427 
001326 
000167 

042762 
^00170 



032762 
001003 
052762 
052762 
000621 



1050b: 

G4:"'b: 
Goccor 



003652' 
100000 



PROCESS POSSIBLE SPEClfiL CHAR 



000006 



000200 000006 
000020 



001032 

000200 
003712' 



000006 



000002 
000020 



G0G153 

nno4np 



G00012 
000012 



GET3: 


MOVB RCTT«B(CBBX).RC 




BIT IRCl/T^LCWCRZ) 




BEQ GTNSRR 




BIT «0LEF.LCW(R2) 




6NE GNXl 




CMPB CBBX,IDLE 




BNE GTBCC 




jriP SETDLE 


GNXl: 


BIC «DLEF,LCW(R2) 


GTNSflR: 


JflP i)GTSflT(RO) 



000001 000010 GTUOF 



;USEP BUFFER HfiS OUERFlOWED 



uOUOF 



BIT «RBfi.LSW(R2) 
BNE GOUOF 
BIS 8NUB,RSWfP2) 
BIS 8U0VR.RSWiP2) 
BR GETCHR 



FETCH THE ACTION CODE 
;TRflN£PflRENCY 



; IF DLEF SET, PROCESS THE CHAR 
; ir NOT, LOOK FOR ONLY OLE 
; OTHERS TREATED AS DATA 
;DLE SETS THE FLAG 



;G0 10 INDIVIDUAL ACTION ROUTINE 



;. r BECAUSE THERE WASN'T ONE 
;N0 - PROCEED 

;SET 'NO USER BUFFER' FLAG 
;SET FLAG 
;AND CONTINUE DISCARDING CHARS 



000010 



; ROUTINE TO DEQUEUE SLAVE STA^ 
CSSRT: CLRB SPC(.R2) 

BIC «SPTfl,LSU'R2) 

RTS PC 



ON RECEIVE TIMER 
: RESET COUNTER TO 
; CLEAR SLAVE PECV 
: RETURN 



minus one 
Timer act 



VE FLAG 



r c 



BISYNC MQCPO MllOH Ofe-DEC-77 08:18 PRGE 39 



G 5 



21b2 








21b3 








2lb'4 








2lbS 








21bfc 








21b7 








21b8 








2169 








2170 00^436 


052762 


000100 


000014 


2171 004H4H 


032762 


020000 


000010 


2172 00H4B2 


001426 






2173 








217U 00445H 


032762 


000400 


000006 


2175 0044b2 


001422 






2rb 004464 

•? 1 7"? 








217S 
217<^ 








21S0 








2181 








2182 004464 


00526^ 


OOOOOOG 




2183 








2184 004470 


lOB'b: 


000 mc 




2185 








2186 004474 


100007 






2187 








2188 








2189 








2190 








2191 004476 


052762 


100000 


OQOC 1 4 


2192 








2193 004504 


005000 






2194 004506 


004767 


000522' 




2195 004512 


000207 






2196 








2197 








219S 








2199 









.ROUTINE TO BUILD TRRNSniT MESSAGE POINTERS FOR ENQ 

;PROVIDtS FOR MfiSTER STATION RECE I UE TIMEOUT, RECEIVED WflCK, 
;RND GARBLED MESSAGE RESPONSE 

;COriE HERE IF TIMEOUT (ENTERED FROM SCIP TIMER) 
;SCIP HAS SAVED REGISTERS 



MSRTO: 



nSRTl 



BIS 


«MT0UT,TSU(R2) 


BIT 


»AEF,LSW(R:) 


BEQ 


MSRTOX 


BIT 


«INI,LCW(R2) 


BlQ 


nSRTOX 


. iF OF 


RSTS 


. GLOBL 


CLOSD 


MOU 


CL0SD.R5 


INL3 


12(P5) 


. IFF 




. GLOBL 


XMITriT 


INC 


XMTTMT 


. ENDC 




DECB 


EKT(R2) 


BPL 


nSRTOfl 



SET FLAG THAT WE HAD A TIMEOUT 
STILL WAITING FOR ACK 
NO - IGNORE TIMEOUT 

STILL IN MESSAGE TRANSFER 
NO - IGNORE TIMEOUT 



PUT DDB ADD IN R5 tttttttlDlJ 32 
INCRMNT n OF TRANSMIT TIMEOUTS 

; ttttZD I T 40 
INCREMENT « OF TRANSMIT TIMEOUTS 

ENQ COUNT EXPIRED"? 

NO - SEND ENQ 



ENO RETRY COUNT PEACHED - PERFORM ABNORMAL 
TRANSMIT TERniNATION 



BIS 


»NAKF,TSWCR2) 


.IF NDF 


RSTS 


CLR 


PO 


JSR 


PC. TOE NT 


PIS 


PC 


. IFF 




J MP 


TDENTO 


. ENDC 





; ABNORMAL TRANSMIT TERMINATION 

;PUT LINE » IN RO 

; STORE TRANSMIT DONE UIB ENTRY 

; RETURN FROM TIMER 



u c 



r 



BISYNC MfiCPO MUOH 06-DEC-77 08; 18 PRGE ^0 



H 5 



2201 
2202 
2203 
220H 
2205 
2206 
2207 
2208 
2209 
2210 
2211 
2212 
2213 
22m 
2215 

'? ■- 1 u 

-->■"> 1 -7 

^^ 1 ' 

221S 
2219 
2220 
2221 
2222 
2223 
222H 
2225 
2226 
2227 
2228 
2229 
2230 
2231 
2232 
2233 
223^ 

2236 
2237 
223S 
2239 
2240 
2241 

224i 
2244 
2245 
2246 
2247 
2248 
2249 
2250 
2251 



;TRRNSmT ENQ TO REQUEST RESPONSE 



G04514 
004520 
004524 



004532 
Q04540 
004546 



004610 
004610 
004612 
004614 



016201 
004767 



000132 
000006 



004767 000150' 



004530 000207 



004622 
004626 
004632 
004634 
004636 



004640 
004640 



016262 000100 000144 
016262 000102 000146 
016262 000104 000150 



CC4554 052762 001000 000010 

004562 C10162 000100 

004566 062762 000022 000100 

004574 012762 000002 000102 

004602 005062 000104 

004606 000207 



2252 
2253 
2254 
2255 
2256 
2257 



004646 
004654 



004656 
004662 
004664 



005000 
010546 
010446 



004616 016704 173164 



012705 004656" 



004767 
012604 
012605 

000207 



OOOOOOG 



116762 173140 000153 



052762 000400 0000 1 
000207 



105762 000163 

001405 

105362 000153 



MSRTOfl: nov 

JSR 
JSR 



CCT(R2).R1 

PC.BENQ 

PCflCKOUT 



GET CURRENT CODE TABLE POINTER 
BUILD ENQ riESSRGE POINTERS 
TRflNSMIT ENQ WITHOUT DELAY 



MSRTOX: RTS PC ;RETURN TO SCIP TiMER 

;ROUTINE TO BUILD MESSAGE POINTERS FOR ENQ 



BENQ: 



ncv 

MOU 



T2A(R2).TT2A(R2) 
T2C(R2).TT2C(R2^ 
T3A(R2),TT3A(R2) 



BIS 

nov 

ADD 
MOU 
CLR 

RTS 



»RDBF,LSW(R2) 

Ri T2ACR2) 
«CENQ,T2A(R2) 
n2,T2C(R2) 
T3A(R2) 

PC 



MUST SAVE CURRENT MESSAGE 
POINTERS IN CASE 
RETRANSMISSION IS REQUIRED 

VALUES WILL BE RESTORED WHEN 
THE ISR OUTPUT STARTUP 
CALL IS COMPLETEH 

•RESTORE BUFFER POINTERS' FLAG 



POINTER TO 'ENQ' 'PAD' 

SET UP COUNT 

TERMINATE ADDRESS/COUNT CHAIN 

ENQ READY TO GO 



;SUBR0UTINE TO START THE 1/2 SECOND INTERVAL TIMER 
INTVTM: 



NTVTl 



SSRTM: 



CLR 


PO 


MOV 


R5.-(SP) 


MOV 


R4,-(.SP) 


. IF OF 


UflPTIM 


MOV 


TICINT.P4 


. IFF 




MOV 


»TICINT,P4 


. ENDC 




MOV 


«INTTIC.R5 


JSR 


PCCTIME 


MOV 


(SP)+,P4 


MOV 


(3P'+.R5 


RTS 


PC 


INE TO 


START SLAVE ST 


.IF OF 


UfiPTIM 


MOVB 


S5RT,SPC(R2) 


. IFF 




MOVB 


nSSRT,SPC(R2) 


. ENDC 




BIS 


»SRTR.LSW(R2) 


RTS 


PC 



GET LINE NUMBER AS BYTE INDEX 
SAVE RELEVANT REGISTERS 



GET « OF TICS IN AN INTERVAL 

GET THE n OF TICS IN AN INTERVAL 

TIMEOUT ROUTINE ADDRESS 
START THE TIMER 
RESTORE REGISTERS 

RETURN 



; POUT INE TO SERVICE INTERVAL TIMER 
INTTIC: TSTB SRC'R2) 

BEQ INTCl 

DECB SRC(R2) 



SET TIMER INTERVAL 

SET TIMER INTERVAL 

SET SLAVE TIMER flCTlWE FLAG 
RETURN 



SLflV^E RECEJiiE TiMEP GOING'? 

NO 

COUNT DOWN ONE INTERVAL 



> 
I 
E 

V 

c 

E 



r 



BilYNC MRCPO MUOH 06-DEC-77 08:18 PRGE kO-l 



225S 00^b70 001002 

2259 00^672 004767 

2260 00H676 105^62 
22bl 00470" OOmOB 

2262 0047L4 105362 

2263 004710 0ni002 
226H 004712 004767 

2265 004716 

2266 004716 000734 

2267 
9 --' u o 

22b9 
2279 

T"'- 1 



000022 
000115 

000115 

177520 



NTCl 



NTC2: 



BNE 


INTCl 


JSR 


PCSSRTO 


TSTB 


riRC(R2) 


BEQ 


INTC2 


DECB 


MRC(R2) 


BNE 


INTC2 


JSR 


PCMSRTO 



BR 



NTVTM 



; HASN'T EXPIRED YET 

;EXPIRED. CALL TIMEOUT ROUTINE 

;nRSTER RECEIVE TIMER GOING? 

,N0 

; COUNT DOWN ONE INTERVRL 

; HASN'T EXPIRED YET 

; EXPIRED, CRLL TIMEOUT ROUTINE 



;SLflVE STfiTlON RECEIVE TIMEOUT - (FROM SCIP SYSTEM TIMER) 



004720 
004726 



Ct2:'62 000400 000010 
052762 000200 000012 



SSRTO 



fc» 4-. ' • 



004^34 000207 



B'C 
BIS 



PIS 



»SRTfl,LSW(R2) 
;SRT0F,RSU(R2) 



PC 



CLEAR SLAVE TIMER ACTIVE FLAG 
SET SLAVE RECEIVE TIME OUT FLAG 
RECEIVE WILL BE ABORTED AND NAK 
SENT ON NEXT CRB SRV PASS 
RETURN TO SCIP TIMER 



J 5 



Bl 


SYNC 


MfiCPo nno4 06 


-DEC-77 




2277 


00^73b 








2278 


004736 


005762 


000062 




2279 


004742 


001406 






22S0 


004744 


105762 


000127 




22S1 


0047B0 


001003 






2282 









08: 18 PfiGE 41 
GTNONE 
GTNOl: 



J 5 



2283 
2284 
2285 
2286 

7-707 

2288 
22^.9 
2290 

Art Art w 

■? '"^ Q '? 

22^3 

2294 

2295 

2296 

2297 

2298 

2299 

2300 

2301 

2302 

2303 

2304 

2305 

2306 

230? 

2308 

2309 

2310 

2311 

i» >j 1 <i 

2313 

2314 

2315 

231b 

2317 

2318 

2319 

2320 

2321 

2322 

2323 

2324 

2325 

2326 

2327 

2Z23 
2330 
2331 
2332 
2333 



004752 013762 170702 000122 



004760 

004760 
004766 

004770 
004772 
00477b 
005002 

005006 
005010 

005012 



005012 
005020 
005024 



005030 
005036 



005040 
005044 
005052 
005054 
0C5060 
005064 
005072 
005100 

005106 
005114 



0327G2 
001411 

005000 
116204 
012705 
CO', 767 

100001 
000240 



012737 
012637 
01 2637 



LH *- f b i, 

000207 



004767 
032762 
001402 
004767 
016201 
042762 
042762 
042762 

052762 
000167 



; NOW 
GTN02: 



000002 000010 



000120 

004022' 

OOOOOOG 



000133 
170704 
1 70700 



; PEST 
GTN03: 



170700 



;EXIT 
GTN03: 



000400 0G0012 



.IF NDF RSTS 
TST IRC(R2) 
BEQ GTN02 
TSTB BCL(R2) 
BNE GTN02 
. IF OF IS 1 11 
nOV CRCflCC.CBC(R2 
. IFF 

nOU a)«KGBCCR,CBC(R2) 
. ENDC 
. ENDC 
SET UP fiNOTHER CRB SERU 

. IF Z CRBINT 
BIT «CSPI,LSU(R2) 
aEQ GTN03 
. ENDC 

CLR RO 
nOVB TCT(R2),R4 
MOU ?JCRBSRU,R5 
JSP PCCTiME 
.IF NDF RSTS 
BPL GTN03 
THflLT 
OPE THE KGll RND EXIT 
. IF OF LSIll 
MOV (SP)+,CRCRCC 
. IFF 

m"^ »133.i)«KGSTflT 
nOV (SP)+,a»KGOflTFI 
nOU (SF)+,il?}KGSTPT 
. ENDC 
. ENDC 
. IF DF PSTS 



. ENDC 

BIC ;rBF-PSiaR2) 

PTS PC 



;DID WE GET ANY THIS TIME? 

; IF NOT IN eCC PHOSE. . . 

I ;SflVE THE PflRTiRL BCC 

;. . SRVE THE PRRTIRL BCC 

CE TIMER REQUEST FOR THIS LINE 



; IF TIMER NO LONGER ACTIVE. 
;. . DON'T REQUEST ANOTHER 

; RECREATE LINE IJ 

;SET TIMER COUNT 

.SET TIMER ROUTINE POINTER 

;REQUEST TIMEF JTRY 

: TIMER QUEUE FULL^ 
; YES-SYSTEM ERROR 



;RESTORE PARTIAL BCC 

.:CLEAP IT AND SELECT LRC16 
; RESTORE ORIGINAL BCC 
;fiND STATUS CONTENTS 



;BUFFliP IS NOW FLUSHED 
; RETURN TO TIMER 



173060 

000400 000010 

177342 
000132 

112200 000010 
000200 000006 
000100 000014 

000400 000012 
176744 



APFEND: 



RRFl 



ARF2: 



JSP 

BIT 

BEQ 

JSR 

MOV 

BIC 

BIC 

BIC 

. IF 

BIS 

J MP 

. ENDC 

. IF NZ 

MOV 

ADD 



PCC.BRCD 

SSRTfl. LSWJ.R2) 

RRFl 

PCCSSRT 

R2)/ Rl 

!BCCA! ITBA!XflC,LSWfR2j 

F,LCW(R2) 

«riT0UT,TSW(R2) 

CRBINT 

,RSW(R2) 

HR 

CRBiNT 

RBU(P2>.mSP) 
n2/ a)SP 



CCT( 
»MIP 
IfDLE 

Z 

«FBF 

GETC 



; GENERATE 'RECEIVE DONE" UIB tNTRY 
;RCHE TIMER ACTIVE^ 
,N0 

;CLEAR TIMER 
; RESTORE CCT POINTER 
; CLEAR PROCESS FLAGS 

; CLEAR MASTER TIMEOUT FLAG 

; FLUSH BUFFER OF TRAILING CHARS 



K 5 



BllVriC nflCPO nnOH Ob-DEC-77 08: 18 PPiGE m-1 



K 5 



233H 








233S 








233b 








^777 








».-i Ji 








■777?? 








A. J J •_• 








2339 


005120 


032762 


0200G0 


23HG 


005126 


001412 




23m 


0Q5130 


105062 


000115 


23H2 








23H3 








2344 








23H6 








234b 


005134 


105362 


000140 


2347 


005140 


100556 




234S 


005142 


004767 


177364 


2349 


005146 


004767 


000150 


23S0 


005152 


000742 




2351 








2352 


005 154 


000167 


000670 


2353 








2354 








2355 








2356 


005160 






2357 








2358 








2359 








23bO 


005160 


012762 


OOGO 1 1 


2361 


005166 


000734 





OOOOIG GTNOPE: 



REPEAT: 



JSR 


PCoKSP)^' 


BR 


GTNONE 


. ENDC 




OUT OF 


CHQRS UITH 


BIT «flE 


.F.LSW(R2) 


BEQ GENQIG 


CLRB 


riRC(R2) 


. IF OF 


RSTS 


nov 


CL0SD,R5 


INCB 


12(RB) 


. ENDC 




DECB EKT(R2) 


BMI TRPNER 


JSR 


PCBENQ 


JSP PC, 


flCKOUT 


BR flRFl 





;WERE UE EXPECTING fiCKNOWLEDGE 

;N0. GENERATE 'RB END* RCVE UIB 
;RE3ET MASTER RECEIVE COUNTER 

;PUT ADDR OF DDB IN R5 **«*EDIT 34 
;INCRriT TIMEOUT NflK COUNTER 

OK TO SEND ENQ? 

;N0 - WE'VE DONE 3 

;BUILD ENQ MSG POINTER 

;SEND OUT THE ENQ 

,G0 FLUSH TRAILING CHARACTERS 



GENQIO: JMP GTEOT 

; WACK RECEIVED AS MESSAGE RESPONSE 



SETUPK; . IF DF PSTS 

BISB «1 EXTFLG 



000140 



, ENDC 

MOV 

BP 



;SET FLAG SO PSTS KNOUS IS BEING WAKED 
:EDIT 30 



SENQCNT+1..EK.T'P2) ; RESET ENQ COUNTER 

AFFl ;LET TIMEOUT CAUSE ENQ TO BE SENT 



D 1 cvKir Moron Miinii nii_nrr_"?"7 no io annr i,n 



L 5 



BISYNC MRCPO MllO^ Ob-DEC-77 08: 18 PfiGE H2 



L 5 



2363 
23bH 
2365 
2366 
2367 
2368 
2369 
2370 
2371 
2372 
2373 

•^ -> • Z} 
^ -»-?/ 
i J .' D 

i j . b 

2379 

23S0 

23S1 

23S2 

2383 

238H 

2385 

2386 

2387 

2388 

2389 

2390 

2391 

2392 

2393 

239^ 

2395 

2396 

2397 

2398 

2399 

ZHOO 

2401 

2402 

2403 

2404 

2405 

2406 

2407 

2408 

2409 

2410 

2411 

2412 

2413 

2414 

2415 

2416 

2417 

2418 

2419 



005170 
005174 
005176 
005202 
0G5206 
005212 

005214 
005222 



005224 
005232 
005236 
005240 
005244 
005246 
005252 
005254 
005260 



0G5262 
005266 
005270 

005274 
005302 
005306 
005314 
005316 
005324 

005332 
005340 

005344 



120427 
003004 
116400 
000170 
120427 
001476 

032762 
001417 



042762 
120562 



005356 
005364 
005366 
005374 



001532 
120562 
001566 
120561 
001742 
120561 
001531 



105362 
100564 
000167 

052762 
004767 
032762 
001411 
052762 
052762 



042762 
005062 
005062 



000G37 

003652' 
003736' 
000177 



000200 OOOOOo 



000200 000006 
000134 

000135 

000001 

OOOOOO 



000152 

176570 

100200 
177332 
000200 

100000 
001000 

000200 
000122 
000124 



000010 

000006 

000006 
000012 

000006 



005350 052737 G00020 170700 



032762 
001411 
U <i <^ f hi, 
001403 



002000 000010 
IGOOOO OOOOCb 



PROCESS THE FIRST CHRR OF flESSRGE 



B 

SI 
S^ 



GTFRST: CMPB CBBX, «37 

BGT GTFRTl 

nOVB PCTTfiB(CBBX),RO ; 

jnP «)FRS9T(R0) 
GTFRTl: CnPB CBBX.«PRD 

BEQ GETCHl 
;NOTE - THESE NEXT TESTS USE ORIG. CHAR - STILL IN CBRX 



;IS IT IN RPNGE OF SPECIAL CHARACTERS? 

;N0 

; FETCH THE ACTION CODE 

;OND GO TO SPECIAL ACTION ROUTINE 

; IF PAD. IGNORE IT 



BIT 8DLEF,LCW(R2) 

BEQ 3ETRRF 

. IF DF RSTS 

BICB »1,EXTFLG 

. ENDC 

BIC «DLEF,LCW(R2) 

CnPB CBRX,CflK(R2) 

BEQ SETRCK 

CMPB CBflX,CflK^l(R2) 



IF DLEF NOT SET. DONE TESTING 
DIDN'T RECOGNIZE THE CHAR 

HAKE SURE FLAG USUALLY CLEAR 



BEQ 



;etwpg 



••HERE 
SETflPF; 

SEiniP: 



CflPB CBAX.CWOKtRl) 
BEQ SETWAK 
CMPB CBflX,CRVI (Rl) 
BEQ SETRl/l 



F THIS IS A LEADING GRAPHIC 



ACK? 




YES 




WRONG ACK? 




YES 




;N0 - 


WACK*? 


YES 




;N0 - 


RVI 


YES 





DECS 
BMI 
J MP 



LGC(R2) 

STPRFl 

GETCHR 



BIS «MIP'BCCfi.LSWfR2) 
JSP PCSSRTM 
BIT l?DLEF.LCW(P2) 
BEQ INTBCC 
BIS «RCVT,LCW(P2) 
BIS flTRNREC.PSi-ifP2) 



BIC »DLEF,LCW(R2'' 
INTBCC: CLR CBC(R2) 
CLR RBC(R2^ 
. IF DF RSTS 
MOV »121.i«KGSTPT 
. IFF 

. IF DF LSIll 
CLR CRCflCC 
. IFF 

BIS «20.i)^KGSTfiT 
. ENDC 
. ENDC 

BIT IJITBA,LSW(R2) 
BEQ GETCHl 
BIT «RCl'T.LCW(R2) 
BEQ SETMl 
. IF DF LSlll 
MOl/B CDLECRD^CRCCHP 
JSR f-C.^CPClb 
. IFF 



DECREMENT COUNTER 

ONE TOO MANY 

OTHERWISE IGNORE IT AND KEEP READING 

SET MIP AND ALLOW BCC ACCUMULATION 
START SLAVE RCVE TIMER 
PRECEDED BY DLE"^ 
NO. INITIALIZE BCC 
YES. SET UP FOR TRANSPARENCY 
INDICATE TO USER THAT THIS ISA 
TRANSPARENT RECORD ***EDIT 21*** 

COMPUTED BCC 
RECIEVED BCC 

INITIALIZE KG BCC REGISTER 



C2 



CLEAR KG BCC PEG! STEP 



ITB flCTiVE'? 

NO - NO MORE TO DO HERE 

YES - RUN 3TX THRU KGll THIS TIME 



PLSO fl OLE IF IN TRANSPOPENCY 



o 1 r^'-jvtr 



t^i~i^ n r\ it^ 4 « 



^^^ ^"^ f^ ^ * fS #^^*^»^ 



M 5 



BISYNC riRCRO nUOH Ob-DEC-77 08.18 PRGE 42-1 



M 5 



2420 006378 116137 000010 170704 
2421 

2423 
2424 
242S 
2426 
2427 
242S 
2429 



24 30 

2431 

2432 

2433 

2U34 

24 35 

243to 

2437 

24 3S 

24 39 

2440 

2441 

2442 

2443 

2444 

244B 

2446 

2447 

2448 

2449 

2460 

2451 

2462 

2463 

2464 

2466 

2466 

2467 

246S 

24 69 

21460 

2461 

2462 

2463 

2464 

2466 

2466 

2467 

2468 

2469 

2470 

2471 

2472 

2473 

2474 



006404 

006404 

006410 

006414 
006422 

006424 
006432 
006434 
006442 

006446 
00644b 



006462 
006460 



006462 
006466 
005470 
006474 
006476 
006604 
006604 
006606 
006510 



24 75 
2476 



005514 
005520 

005524 
005532 
005532 
005536 
005542 

005644 
005562 



110637 170704 

000167 176460 

062762 000200 000006 
000772 

032762 000200 0000G6 

001460 

062762 104000 000012 

C00167 177372 



106062 000116 



032762 OOHOnn 000010 
001006 



106362 000141 

002403 

004767 000212' 

000624 

062762 100000 000014 



010300 
006200 

004767 



004767 
000167 

042762 



000632' 



000212 
177334 



t 7777"? 



000014 



105062 000115 
000362 000134 
000760 

062762 04onon nnnnm 

000767 





nOVB CDLE(R1),«)«KGDRTR 




. ENDC 




. IF DF RSTS 


IS: 


TSTB al«KGSTflT 




BPL 15 




. ENDC 


SETMl: 


. IF DF LSIll 




MOV CBfiX,CPCCHR 




JSR PC,5CRC16 




. IFF 




MOVS CBflX,a«KGDflTfl 




. ENDC 


GETCHl: 


JMP GETCHR 


SETDLE: 


BIS «DLEF,LCW(R2) 




BR GETCHl 


SETEOf: 


BIT «DlEF.LCW(P2) 




BEQ SETEOF 




BIS »RRF!DSC.PSW(.R2) 




J MP flRFEND 



SETNflK 



SETNl: 

TRPNER: 
IPRNl: 



TRRN2: 



SETRCK: 
5ETRC1: 



. IF DF RSTSIRSX 

CLRB nRC(R2) 

. IFF 

JSP PCCflSRT 

. ENDC 

BIT «NEF,LSU(R2) 

BNE TPRNER 

.IF DF RSTS 

MOV CL0SD.P6 

INCB 10(R6) 

. ENDC 

DECB RKT(R2) 

BLT TRRNER 

JSR PCRRRCV 

BR REPERT 

BIS ;NRKF,TSU(P2) 

. IF NDF PSTS 

MOV R3,R0 

flSR RO 

JSR PC.TDENT 

. IFF 

JSP PC.TDENTO 

ENDC 
JSR PCRRRCV 

JMF RPFl 



;flLSO fl OLE IF IN TRPNSPRRENCY 



;DONE YET"? 

;NOPE, WILL BE DONE SOON. 



;THIS IS THE STX 
;RCCUMLRTE IN BCC 

;THIS IS THE STX 

;G0 GET NEXT CHRP 

;SET THE DLE FLRG 



;DLE EOT? 

; NO - GO BRCK TO CONTROL MODE 
,YES SET DISCONNECT FLRG 
RND CRERTE UIB ENTRY 



;CLERR MRSTER RECEIVE TIMER 

.:CLERR MRSTER STATION PCVE TIMER 

;WERE UE EXPECTING R NRK'? - EDIT 17 
,YES - DON'T PETRRNSMIT - EDIT 17 

;SET R6 TO RDDP OF DOB ****I'**EDIT 34 
; COUNT TRRNSMIT NPKS 



;PESET THE LINE 

;SET THE NRK FLPG 

; CRERTE LINE n 

; CRERTE 'XMIT DONE' UIB ENTPY 

; CRERTE 'XMIT DONE' UIB ENTPY 

; RESET THE LINE 



BIC 



«177377,TSW«.P2) ;SET VRLIO STRTUS RETURN 



SETRV 



CLRB MRC(R2) 
SWRB CRK(R2) 
BR TRRNl 

BIS ifRVI,TSW(R2) 
BR SETRCl 



;CLERR MRSTER RECEIVE TIMER 

; RECEIVED VRL I D flCK - TOGGLE TEST WORD 

;..RND GO GENERATE 'TRRNSMIT DONE' 

;SET PVI FLAG IN STATUS 



BisYNf MQfPO Miinu nfc-nrr-77 no. iq pnr.c uo.o 



N 5 



BISYNC MflCP.O ^nO^ Ob-DEC-77 08:18 PRGE U2-2 



N 5 



B 



2H77 

2H78 

2H79 

2^S0 

2HS1 

2482 

2H83 

2H8H 

2H85 

2H86 

2HS7 

24 88 

2HS9 

2490 

24 91 

2492 

2493 

2494 

24 96 

249b 

2497 

2498 

2499 

2B00 

2501 

2602 

2503 

2504 

2505 

2506 

2507 

2508 

2509 

2510 

2511 

2512 

2513 

2E-I4 



005554 
005554 
005562 
005564 
005570 
005570 
005576 
005604 
005610 
005616 



005622 
005630 

005632 
005b3D 

CG5b4G 



005640 
00564b 

005652 
005660 



005666 
005674 
005676 
005-04 
005706 



032762 
001402 
000167 

042762 
052762 
105062 
016162 
000167 



032762 
001306 

004767 
000726 



112762 
000167 

032:^62 
0C1553 



002000 000014 

176274 

001420 0000^ 

002000 000^:2 

000136 

000052 000134 

177216 

000100 000014 

176626 



032762 
001404 
032762 
001671 
000570 



000007 000152 
0004 1 6 



SETEOF; 



55: 



BIT 


«BSNT,TSW(R2) 


BEQ 


S% 


JMP 


GETCHR 



WAS EOT IN RESPONSE 
NO *««EDIT 41 
YES - IGNORE IT 



TO riRSTER BID? 



BIC «nSS! INI!NRT,LCW(R2) ; GO BRCK TO CONTROL MODE 

BIS «C.BE0F.RSW(R2) ;SET EOF FLAG 

CLRB flKT(R2) ; RESET SLAVE flCK COUNTER 

MOV CflK0(Rl),CflK(R2) ; RESET MASTER fiCK COUNTER 

JMP flRFEND ;RND NOTIFY USER 



;HERE 
SETWRG 



IF WE 
BIT 
BNE 

JSP 
BR 



RECEIVE THE OTHER flCK FROM WHAT UE EXPECTED 



?;.1T0UT,TSW(R2) 
SETNRK 

PCnSRTl 
TRfiN2 



STRRFl 



MO^t'B 
JMP 



005662 005267 OOOOOOG 



GOOHno 000006 SE TENQ- BIT ; | N I , 

BEQ I 
.IF OF PS 
MOV C 
INCB 1 
. IFF 
. GLO 
INC 
. END 
BIT 
BEQ 
BIT 
BEQ 
SET J; BR 



000004 000010 
0C0020 000006 



.0GRPH,LGC'.R2) 
NQZ 

LCi>i(P2) 

NIENQ 

TS 

L0SD.P5 

3CR5) 



BL PCl'TMT 
PCl'TMT 
C 

t;flQF,LSW'P:'> 

SETJ 
SriSS.LCW'P2.^ 
SETNl 

ENQZ 



HAS THERE BEEN R MASTER TIMEOUT? 

YES, TREAT AS A NAK A RETRANSMIT 

LAST BLOCK 

NO - REQUEST RESEND OF RESPONSE 

GO USE TIMEOUT CODE TO ABORT TRANSMIT 



IF NEEDED 



HERE IF TOO MANY LEADING GRAPHICS 
SEEN OR GARBLED ACK RECEIVED UiTH 
NO TIMEOUT 
RESET LEADING GRAPHICS COUNTER 

RECEIVE ACTIVE AND GO INTO SEARCH SYNC 
THEN FLUSH THE CRB 

PROCEDURE 



CLEAR 
MODE 
WHICH 
INIT 



32 



;SET P5 TO DDB ******ED!T 
; COUNT RECEIVED ENQ'S 

;EO!T ^Otti^^ttt 

; COUNT RECEIVED ENQS 



;PlK AVfRlLRBLE TO ANSWER OTHER SIDE? 

;N0- IGNORE THE ENQ 

; MESSAGE PPOC - WHICH MODE? 

;SLPWE - REPEAT LAST fiCK/NAK. 

; MASTER - IGNORE • PENDING CONTENTION 



BISVNC MRCPO r.nOH 06-DEC-77 08: 18 PfiGE H3 



B 6 



00B710 
00B71fe 



005720 llol37 GOOOlO 17070^ 



0057-26 
005732 



005736 
0057^^ 
005752 
005760 



2516 
2517 
251S 
2519 
2520 
2521 
2522 
2523 
2524 
2525 
2526 

■7C,'?7 

252S 

2529 005726 

2530 

2531 

2532 

2533 

2534 

2535 

2536 

2537 

253S 

2539 

25H0 

25m 

2542 

25H3 

2544 

2545 

2546 

2547 

254S 

2549 

2550 

2551 

2552 

2553 

2554 

2555 

2556 

2557 

255& 

2559 

2560 

2561 

2562 

2563 

2564 

2565 

2566 

2567 

256S 

2569 

2570 

2571 

2572 



032762 
001403 



100000 000006 



110537 
000167 



052762 
042762 
042762 
1 16262 



170704 
176126 



C20000 
002000 
lOuOOO 
000126 



005766 110537 170704 



005:^72 
006000 



006002 
006010 



006012 
006012 
006020 
006026 
006030 
006036 



013762 
000754 



052762 
000755 



052762 
032762 
001751 
042762 
000" 45 



002000 

locroo 



000012 
000010 
000006 
000127 



170702 000122 



010000 000012 



nnomn 
660606 



100000 000010 



;PROCES' SIX OP SOH IN TEXT 

GTSTX: BiT «RCUT,LCW(R2j 

BEO STXBCC 

. IF DF LSIll 

nOVB CDLE(R1),CRCCHR 

JSR PC.SCRC16 

. IFF 

nOVB CDLECRD^a^fKGDt^Tfl 

.ENDC 

.IF DF RSTS 



11 

STXBCC. 



TSTI 



BPL 

. ENDC 

. IF DF LSIU 



a^KGSTflT 
1% 



G"^GET: 



novB 

JSP 
. IFF 
MOUB 
. ENDC 

jnp 



CBfiX.CPCCHP 
PC. SCRL16 

CBflX ^^{KGDflTfl 

GETCHP 



.;PPOCESS ETB 



GTETB 
GTETO 
GTETl 



IS: 



BR 

: PROCESS ETX 
GTETX; BIS 
6R 

; PROCESS ITB 
GTITB; 
6TITB1: BIS 



BIS ttPLKC-PSWfi?;,! 

BIC Tf ITdfi.LSUfR^) 

BIC «P(.ltT,LCU<P2' 

nOVB t;<''C(R2»,BCL'P2) 

.IF DF LS.M 

MObB CB.IX, CkcCHR 

JSR PC.%CPC16 

. IFF 

MOVB CBfiX,ai«KGDfiTft 

. ENDC 

. IF DF PSTS 

TSTB IiSKGSTflT 

BPL 1% 

ENDC 

.IF DF LSIll 

nov 

. IFF 
MOV 
. ENDC 

GTGET 



CPCflCC CBCfP2) 
i)ttKGBCCR.CBC^R2) 



«nEND-PSW'P2) 
GTETO 



;!TBflASU(R2) 
BIT ??RCVT,LCNiR2) 
BEG GTETl 
BIC «MIP.LSW«.R2.) 
BR GTETl 



:PR0CESS ENQ vGTENQ) WITHIN fl RECORD 



;STX IS flCCUMULflTED AFTER 1ST RECORD 
; IF TRPNSPflRENT . . . 

; THROW IN THE OLE TOO 
; THROW IN THE OLE TOO 



;DONE YET^ 

;N0- BUT IT WILL SOON. 



.flCCUMLRTE IN BCC 



:SET 'BLOCr END' FLOG 
;CLERP ' ITB .ACTIVE' FlRG 
, CLEAR PPOCES: FLRGS 
;SET THE BCC LPTCH 

;flCCUriLRTE END Ch'RP IN C-IC 



;RCCUnULftTE END CHRP IN BCC 



;DONE YET-' 

;N0. BUT IT WILL SOON. 



; STORE COMPUTED BCC 
; STORE COMPUTED BCC 



.;SET 'ME3SRGE END" FLRG 



;SET ITB fiCTiuE 
; IF TRRNSPRPENT. . . 

;. . . LET OLE STX SET MIP RGR I N 



BlSYHr riRCPO MllOH 06-DEC-77 08:18 PfiGE ^Z'\ 



C 6 



2B73 
2574 
2S:^5 
2B76 
2S77 
2B78 
2679 
2580 
2581 
2582 
25S3 
2584 
25 S 5 
:5Sk 

258" 



006040 032762 IGGOOO 000012 GTENQ: 

006046 001003 

006050 052762 040000 000012 GTEOT 

006056 042762 102200 000010 GTENQl 

006064 000167 176750 



006070 
006076 
OOblOO 
006104 



BIT «fiPF,RSW(R2) 
BNE GTENQl 



; IF PRF SET, DON'T GET EXCITED OBOUT ENQ 



BIS «PEND'RSU(R2) 

BIC «mP!BCCfl!ITBfi,LSW(R2) 

JMP flRFEND 



SET 'OBNORnOL END 'FLAG 
CLEAR PROCESS FLPGS 



;PROCESS SYN WITHIN P RECORD 



032762 
001715 
004767 
0007U 



000400 COOOIO GTSYN: 
176534 



BIT «SRTfl,LSW(Rz) 

BEQ GTGET 

JSR PCSSRTH 

BR GTGET 



; IS SlPWE RCVE T.riER ACTIVE 
; IGNORE SYN AND EXIT 
;STAPT NEU TIMER, CLEARS ANY 
.EXIT 



PREVIOUS TIMERS 



BiSYNc nocRO nnoi* oe-DEC-?? os-. i8 prge ^h 



6 



2S39 

2590 

2591 

2592 

2593 

259^ 

2595 

2596 

259? 

2598 

2599 

2600 

2601 

2602 

2603 

260M 

2605 

260b 

2607 

2608 

2609 

2610 

2611 

2612 

2613 

26m 

2615 

2616 

2617 

2618 

2619 

2620 

2621 

2622 

2623 

262^ 

2625 

2626 

262S 

2629 

2630 

2631 

2632 

2633 

263^ 

2635 

2636 

2637 

2638 

2639 

26^C 

2641 

26^2 

2643 

26H': 

26U5 



006106 
006112 
006im 
006120 
006122 
006130 
0061 3^ 

006136 

no6mH 

006m6 
00615*4 



006156 
006160 
006164 
006166 



006172 

006200 
006204 



006210 
006216 



006220 
006226 
006230 
006236 

006244 
00624b 



105362 

oomii 

12620H 
001403 
052762 
000362 
000676 

032762 
001004 
042762 
000436 



010446 
004767 
012604 
005062 



000127 

000122 

000004 000012 
000122 

002000 000010 
100200 000010 



BCCHK: 



171740 
000122 



052737 000020 170700 



006256 
006264 
006270 
006274 



006300 
006300 

0063C2 



016201 
000167 



032762 
001415 



052762 
004767 
004767 
000167 



005000 
016704 



0001 32 
175"'b6 



00G020 GCOQOb 



032762 
001413 
042762 
052762 

005000 

004767 000532' 



000004 000006 

000024 000006 
000200 000014 



006252 000167 176562 



0C0004 
000010 
000230' 
1^6560 



000006 



1714": 



GTBC2: 
GTBCl: 



DECB BCL(R2) 

9EQ GTBCl 

CMPB CBC(R2),CBBX 

BEQ GTBC2 

BIS «DCH.RSU(R2) 

SWPP CBC(R2) 

BR GTGET 



; INCREMENT "^HE I flTCH 
; IF ZERO. GO HOUSEKEEP 

;IF NOT, CHECK CURRENT BCC CHAR 
;0K 

.UUEG.N'T riqTCH - SF P Tfl CHECK FLAG 
;SET FOR NEXT PASS 



BIT «ITBfi,LSU(R2) 
BNE GTITi 

BIC »mP!BCCR,LSW(R2) 
6R INIENl 



; ITB flCTiaE? 
;YES 

;nUSJ HOVE BEEN fl PRO -IGNORE IT 
;flND GO mKE UIB ENTRY 



GTITI 



nOV CBBX, -(SP) 

JSP PCC. BRCD 

MOV (SP)+-CBBX 

CLP CBC(R2) 

. IF DF LSIll 

CLP CPCfiCC 

. IFF 

BIS »20,a»K.GST«T 

. ENDC 

MOV CCTfP2)-Rl 

JMP GET2 



INIENQ: BIT »nSS,LCU(R2) 
BEQ INIENl 

;ENQ CONTENTION 

ENQPGN: BIT «nCF,LCUfR2) 

BEQ ENQflGl 

BIC «MCF!MSS,LCUfP2) 

BIS ;CHXri,TSW(R2,' 

.IF NDF RSTS 

CLP PO 

JSP PCTDENT 

. IFF 

JSP PCTOENTO 

. ENDC 
INIENl: JMP RRFEND 



;SRV: CHRP FOR LRTER 
.UhlLE WE MRKE UIB ENTRY 
,NOU PROCESS THE CHRR 

; CLEAR OUT OLD BCC FROM LINE TRBLE 

;CLERR THE BCC RCCUMULRTOP 

.CLEAR THE KGll BCC REGISTER 

;PESTOPE CCT POINTER 



WHICH MODE AP WE IN"? 
MASTER - GO TRY AGAIN 



IS THIS THE SECOND ENQ? 

NO - GO SET TIMER FOP RETRY 

YES - GO INTO SLAVE MODE 

AND NOTIFY THE USER TO DO SAME 

SET UP LINE NO 

INDICATE TRANSMIT OVERRIDE 

INDICATE TRANSMIT OVERRIDE 



: TRY AGAIN WITH ENQ XMIT AFTER 1 OP 3 SECONDS 
ENQAGl: BIS 8MCF,LCW(R2) ;SET CONTENTION FLAG 

JSR PCENQSET ; GO SET THE TIMER 

ENQ2; JSP PC-ARRCVl ; GO RESET LINE 

JMP ARFl ;AND FLUSH TRAILING CHAPS 



; ENQ r 
ENQSET: 



MER SETUP ROUTINE - USED HERE AND BY PUTD ROUTINE 

CLP PO ; RECREATE LINE NUMBER 

. IF DF UAPTIM 

MOV C0NTIM.P4 ;SET TIMEOUT VALUE FOP CONTENT i ON 

. IFF 

MOV «C0NTm,R4 ; SET CONTENTION TIMEOUT 

. ENDC 



L 



BISYNC riRCPO nnOH Ob-OEC-77 O8: I8 PRGE HH-1 



£ 6 



2bH6 


006.106 


012705 


006322' 


2647 


006312 


0GH767 


OOOOOOG 


2bH3 


006316 


000167 


OOOOOOG 


2feH9 








26B0 








2651 


006322 


032762 


002000 


26B2 


006730 


001410 




2653 


006332 


004767 


1^7742 


2654 


006336 


012700 


000000 


2655 


0063H2 


016201 


000130 


2656 


006346 


004767 


OOOOOOG 


2c57 


006352 


000207 





MOV »ENQTin.R5 
JSR PCCTOEL 
jnp CTiriE 



.ROUTINE POINTER 

;DELETE PNY EXISTING BID TIMERS 



000014 ENQTIM 



COME HERE AFTER CONTENTION TIMEOUT PERIOD 

;BID COMPLETED PLREfiDY'' 
;YES ' IGNORE THE TIMER 
;SET TIMER AGAIN 
;AND SEND THE ENQ flGPIIN 
;XMIT CHAIN POINTER 
;XMIT STARTUP 
EXIT TO TIMER 



ENQY: 



BIT 
BEQ 
JSR 
MOV 
MOV 
JSR 
PIS 



»BSNT. TSW(R2) 

ENQY 

PCENQSET 

«C.BTSC,RO 

TCP(R2).R1 



PC 
PC 



C. SRRP 



BISYNC nflCPO nn04 Ob-OEC-?? OS-. 18 prge hb 



2659 
2bbC 



2tobl 
2662 
2663 
266H 
266B 
2666 
2667 
266S 
2b69 
2b70 
26:^1 

2b^3 

26^4 

2*^7'^ 

2b7b 
"111 -•-> 
<ib> < 

267S 

2679 

2680 

2681 

2682 

2683 

268^ 

2685 

2686 

2687 

2688 

26S9 

2690 



GTBFl; 



F 6 



. IF OF RSTS 

ROUTINE TO CflLCULflTE THE BUFFER PDDRESS FOR RSTS 

WHEN THE BUFFERS CAN BE nflPPED OUTSIDE OF THE 

nONITOR PREP 

THE ROUTINE IS ENTERED WITH THE PDD IN R5 

PND RETURNS WITH THE MPPPED PDD IN R5 

. GLOBL SPVR6. SPUPDD 



GTBFPj: 



00000 1 



MOV 
MOV 
JSR 
MOV 

ncv 

RTS 



MOV 

MOV 

MOV 

CflLLX 

MOV 

PDD 

MOV 
MOV 
MOV 
RTS 

. ENDC 
. ENDC 
. ENDC 
. ENDC 
. END 



R5.-(SP) 

PRP(R2).R6 

PCGTBFPD 

R5.SPVPDD 

(SP)*,R5 

PC 



R4,-(SP) 

R3.-(SP) 

R5,RH 

MPPBUF 

P3,R5 

»BiJFHDR.P5 

KISRR6.SPIVR6 
(S°)+,R3 

PC 



SPVE OFF R5 

;PUT PDDRESS IN R5 
;D0 MPPPING 
;SPVE OFF ADDRESS 
.RESTORE R5 



;SflVE OFF REGISTERS 

;GET PDDRESS 

;GET MPPPED PDDRESS 

;STEP OVER BUFFER HERDER 
;WHERE EXPCT SIZE IS KEPT 
:SPVE OFF PPR 6 JUST IN CASE 
;PEST0RE REGISTERS 

; RETURN 



BiSYNC HRCPO nno^ 


06-DEC-77 


08: 18 PRGE 


46-1 




G 


6 
















SVnBOL TRBLE 




























RRF = 000004 


CLC = 


000241 




C. 80 


000376R 


003 


GTETB 


005736R 


002 


MSRTl 


004464R 


002 




OBC = 000C2H 


CLN = 


G002B0 




C 81 


0004G4R 


003 


GTETX 


006002R 


002 


nss = 


000020 






RCKOUT 000150R 


003 CLNV = 


000252 




C. 85 


000530R 


003 


GTETO 


005744R 


002 


nrouT = 


000100 






flCTTflB 003fc52R 


002 CLU = 


000242 




C. SRRP = 


nun G 




GTETl 


005752R 


002 


NRK : 


000026 






REF = 020000 


CL2 = 


000244 




C. SFY = 


tttttt G 




GTFRST 


0G5170R 


002 


NRKCNT= 


000010 






REND = OHOOOO 


CNRK = 


000024 




C. STRTr 


177776 




GTFRTl 


0G5206R 


002 


NRKF = 


100000 






REXB 003H52R 


002 CONTIM 


OOOOOOR 


002 


CI = 


000000 




GT6ET 


0G5732R 


002 


NRT = 


001000 






RFX = 002000 


COVR = 


000040 




C2 


000007 




GTITB 


0060 12R 


002 


NEF = 


004000 






RKT = 000136 


CPRD = 


000002 




DCH = 


000004 




GTITBI 


0060 12R 


002 


NMP = 


000044 






RMP = 000042 


CPD26 = 


000001 




OLE = 


000020 




GTITI 


0061 56R 


002 


NOP = 


000240 






RNF = 040000 


CRBINT= 


000000 




DLEF = 


000200 




GTNONE 


004736R 


002 


NUB = 


000002 






RPR = 000022 


CRBSRV 


004022R 


002 


DSC 


004000 




GTNOPE 


0051 20R 


002 


OOF = 


000100 






RPBSET 000130R 


003 CRD = 


000001 




EBCRCK 


OOOOIOR 


003 


GTNOl 


Q04744R 


002 


OS 


000000 






RPBSP 000054R 


003 CRVI = 


000000 




EBCCCT 


OOOOOOR 


003 


GTN02 


004760R 


002 


ovxri = 


000200 






PPBl OOOUfcR 


003 CSR = 


000002 




EBCNRK 


000024R 


003 


GTN03 


00501 2R 


002 


PRO = 


000177 






RRF = 100000 


CSRT 


000262R 


003 


EBCRTR 


004006R 


002 


GTNSRR 


004370R 


002 


PRRlTYs 


010000 






RPFEND 005040R 


002 CSOH = 


000004 




EBCSYN 


000016R 


003 


GTSRT 


003712R 


002 


PCH = 


000010 






RPFl OOSOfeOR 


002 CSSRT 


004422R 


002 


EBCXTR 


001752P 


002 


GTSTX 


005710R 


002 


PPD = 


000046 






RRRCV 000212R 


003 CSTX = 


000003 




EBCXTl 


001770R 


002 


GTSYN 


006070R 


002 


PTBSP 


000746R 


002 




RRRCVl 000230R 


003 CSYN = 


000016 




ECH = 


000121 




GTUOF 


004374R 


002 


PTCON 


002326R 


002 




RRSEXT 0001 72R 


003 CTDEL = 


tttttt G 




EKT = 


000140 




HRLT = 


000000 




PTCl 


002046R 


002 




flSCCCT= 000000 


CTiriE = 


ttntt G 




ENQ = 


000005 




INI = 


000400 




PTC2 


002056R 


002 




RSCI = 000000 


CWRK = 


000001 




ENQRGN 


006220R 


0G2 


INIENQ 


006210R 


002 


PTC3 


002346R 


002 




fiSSGNl 003010R 


002 C. BRBl 


002762R 


002 


ENQRGl 


006256R 


0D2 


INIENl 


006252R 


002 


PTC4 


002102R 


002 




RSSGN2 0G303bR 


002 C. BRRB 


002704PG 


002 


ENQCNT= 


000010 




'NTBCC 


005340R 


002 


PTDRB 


001730R 


002 




flSSGN3 OG3050R 


002 C. BflPX 


002756R 


002 


ENQSET 


006300R 


002 


INTCl 


004676R 


002 


PTDLE 


000756R 


002 




fiSX = 000016 


C. BRRl 


002714P 


002 


ENQTIM 


006322R 


002 


INTC2 


004716R 


002 


PTDLl 


001006R 


002 




RTR = 000040 


C. BCRl 


000352R 


002 


ENQY 


006352R 


002 


INTTIC 


004656R 


002 


PTDZ 


001354R 


002 




RTT = 000036 


C. BCR2 


000366R 


002 


ENQ2 


006270R 


0C2 


INTVTM 


004610R 


002 


PTENQ 


001176R 


002 




see = 000126 


C. BCR3 


000262R 


002 


EOT = 


000004 




INTVTl 


G04632P 


002 


PTENQl 


001226R 


002 




BCCfl = 000200 


C. BEOF = 


002000 




ESNT = 


001000 




IPL 


000002 




PTEOT 


001244R 


002 




BCCHK 006106R 


002 C. BGBC= 


000003 




ETR 


003052RG 


002 


IPC 


000062 




PTEXIT 


002454R 


002 




BCL = 000127 


C. BGMS= 


000105 




FTB = 


000027 




IRS = 


000036 




PTEXN 


002450R 


002 




BEND = 020000 


C. BGRD= 


000303 




£TX = 


000003 




ISC 


000072 




PTEXT 


002424R 


002 




BENQ 004532R 


002 C. BGTD= 


000304 




ETXF = 


000400 




ITB = 


000037 




PTEXl 


002406R 


002 




BSI2E = 000620 


c. Bins 


002004R 


002 


FBF 


000400 




ITBR = 


002000 




PTEX3 


002406R 


002 




BSNT = 002000 


C. BINT 


000020RG 


002 


FRSRT 


003736R 


002 


ITS = 


004000 




PTITB 


001012R 


002 




BTCE = 000027 


C. BLTL = 


000776 G 




GENQIO 


005154R 


002 


KGBCCR= 


170702 




PTITl 


001064R 


002 




BTCI = 000030 


C. BMDC = 


000002 




GETCHR 


004076R 


002 


KGC 


G00034 




PTIT2 


001162R 


002 




CRK = 000134 


c. Bnnc= 


000001 




GETCHR 


0040b4R 


002 


KGDRTP= 


170704 




PTIT3 


001040R 


002 




CRKO = 000052 


C. BflSE 


000370Ri5 


002 


GETCHl 


005410R 


002 


KGSTRT: 


170700 




PTIT4 


001124R 


002 




CRKl = 000053 


C. BNXT 


00031 2R 


002 


GETl 


0C4106R 


002 


LRSBYT= 


000031 




PTIT4R 


001120R 


002 




CR. «SC= 000000 


C. BODE 


000316RG 


003 


GETIR 


004126R 


002 


LCW 


00000b 




PTMODE 


002264R 


002 




CR. EBC= 000001 


C. BODl 


000356R 


003 


GETIB 


004150R 


002 


LDGRPH= 


000007 




PTnORS 


0024b6R 


002 




CR. NCR= 000001 


C. BPD 


000372RG 


002 


GET2 


004176R 


002 


LGC 


000152 




PTMl 


002602R 


002 




CR. SBT= 000000 


C. BPDR 


000404R 


002 


GET3 


004324R 


002 


LSW 


000010 




PTn2 


002574R 


002 




CBRX =-/i000005 


C. BPDX 


0004 14R 


002 


GET4 


004246R 


002 


LTL 


000776 




PTNEXT 


000616R 


002 




CBBX =*/.000004 


C. BPTC 


002014RG 


002 


GET5 


004216R 


002 


MBX 


000034 




PTNORn 


000534R 


002 




CBC = 000122 


C. BRCD 


000124R 


002 


GET9 


004306R 


002 


MCF 


000004 




PTNO 


000600R 


032 




CCC = 000257 


C. BRCY 


000220R 


002 


GNXl 


004362R 


002 


MDC 


000050 




PTNl 


000620R 


002 




CCT = 000132 


C. BRC2 


000206R 


002 


GOUOF 


004412R 


002 


MEND = 


010000 




PTRl 


000630R 


002 




CDLE = 000010 


C. BRMC 


OOOOIOR 


002 


GTBCC 


004232R 


002 


niP 


100000 




PTR2 


000660R 


002 




CENQ = 000022 


C. BTSC = 


000000 




GTBCl 


0061 36R 


002 


MRC 


000115 




PTR3 


000634R 


002 




CEOT r 000026 


C. BUD2 


000424R 


003 


GTBC2 


006130P 


002 


nSRT 


000002P 


002 


PTR4 


000b76R 


002 




CETB = 000005 


C. BUD3 


000464R 


003 


GTENQ 


006040R 


002 


nSRTO 


00443bP 


002 


PTSRT 


003762R 


002 




CETX = 000006 


C. BUD4 


00051 2R 


003 


GTENQl 


0Cb056R 


002 


nSRTOR 


004514? 


002 


PTSL'/E 


002430R 


002 




CiTB = 000007 


C.BUFF = 


000007 




GTEOT 


00b050P 


002 


nsPTOx 


n04530P 


002 


PT3TX 


OOllbbR 


002 




1 










»_t 


_ ^ 














— » 



B I SYNC 
SYMBOL 



nftCPO 
TRBLE 



^nO^ Ofe-DEC-77 08: 18 PRGE ^5-2 



H 6 



PTSYN 


001272R 


002 


RCVT = 


100000 




SETENQ 


00S662R 


002 


STX s 


0G00G2 




TRYNRK 


0001 74R 


PTSl 


002^^0R 


002 


RCVTMT= 


tttttt G 




SETEOF 


G05554R 


002 


STXBCC 


005726R 


002 


TSR 


. 


000066 


PTTEPM 


002b20R 


002 


RCX = 


000020 




SETEOT 


00S424k 


0G2 


STXF = 


000020 




TSW 


. 


0000 14 


PTTEXT 


002&bOR 


002 


RDBF = 


001000 




SETET8 


002176R 


0G2 


SYN = 


000G26 




TTn 


; 


0001 10 


PTTl 


002feH2R 


002 


REPEAT 


006m6R 


002 


SETJ 


(?']5706R 


0G2 


SYP = 


00GG32 




TT2R 


. 


000144 


PUTDO 


001310R 


002 


RETNX = 


V.000007 




SETniP 


JG6274R 


0G2 


TBC = 


000070 




TT2C 


5 


000146 


PUTDl 


000512P 


002 


RIB = 


000137 




SETni 


005404R 


002 


TBS = 


000112 




TT3R 


: 


000150 


PUTDlfl 


000^22R 


002 


RJT = 


000040 




SEr.HK 


005446R 


002 


TCIJ 


0021 12R 


002 


TXC 


5 


000064 


PUTDIO 


001720R 


002 


RKT 


oooim 




SETNI 


006470R 


002 


TCJl 


002506R 


002 


TIR 


s 


000074 


PUTDll 


000H20R 


002 


ROVR = 


000100 




SETRVI 


005544R 


002 


TCJ2 


002532R 


002 


TIC 


2 


000076 


PUTD22 


00m62R 


002 


RSW = 


000012 




SETSYN 


00213bR 


002 


TCJ3 


002556R 


002 


T2R 


5 


000100 


PUTD23 


OOIHJOR 


002 


RSX 


000001 




SETURK 


00S160R 


002 


TCP = 


000130 




T2C 


: 


000102 


PUTD2H 


00m52R 


002 


RVI = 


040000 




SETURG 


005622R 


002 


TCT = 


000120 




T3fl 


2 


000104 


PUTD3 


001370R 


002 


R6 


•/.00000b 




SEV = 


000262 




TCU - 


000142 




T3C 


5 


000106 


FUTDH 


OOlBlbR 


002 


R7 


•/.000007 




SEZ = 


0002b4 




TDENT 


000B32R 


003 


URPTm= 


000000 


PUTD5 


OO15H0R 


002 


SBTCCTr 


000000 




SIS = 


000010 




THRLT = 


000240 




UBL 


z 


000026 


PLITD6P 


u0lS^^R 


002 


sec 


000277 




SOH 


000001 




THC = 


000116 




UOVR 


z 


000020 


PUTDb 


001602R 


002 


SEC = 


000261 




SRC 


000153 




TIB = 


000154 




XRC 


z 


010000 


PUTD7 


001b3bR 


002 


SEN = 


000270 




SRTR = 


000400 




TICINT 


000006R 


002 


XMTTriT= 


tttttt 


PUTD8 


0016HHR 


002 


SENV = 


000272 




SRTOF = 


000200 




TRRNER 


005476R 


002 


XPT 


z 


020000 


PUTD9 


001710P 


002 


SETRCK 


005524R 


002 


SSRT 


000004R 


002 


TRRNl 


005504R 


002 


XRC 


• 


000001 


PBR 


000001 




SETRCl 


005532R 


002 


SSRTM 


004640R 


002 


TRRN2 


005514P 


002 


XXP 


- 


010000 


PBC 


0Q012H 




SETRRF 


00526:P 


002 


SSPTO 


004720R 


002 


TRC 


000114 




X, 


^ 


000002 


PBU 


OOOOOH 




SETDLE 


0054 IHR 


002 


STRRFl 


00S640R 


002 


TPNREC= 


001000 




XI 




00177bR 


RCUSIB= 


000000 




























. RBS. 


000000 
000000 


000 
001 


























XXX 


0063BH 


002 


























ISR 


000624 


003 


























ERRORS 


DETECTED: 






























003 



002 



VIRTURL MEMORY USED: 223S WORDS 
DYNRMIC MEMORY: 2S10 WORDS ( 10 
ELRPSED TIME: 00: 01: 02 

25b. 020 8 1 SYNC -27. 256- 030 B I SYNC/CPF.'-SP = G I RXM- OPDEF B I SYNC 



I 9 FfiGES,' 
PPGES.' 



r 



BISYNC CRERTED BY 

SYMBOL CROSS REFERENCE 

SYMBOL VRLUE 

RRF = OOOOOH 

ABC = G0002H 

fiCI'OUT GOOISO R 

PCTTRB 003652 R 

REF = G200GG 



MRCRO ON 6-DEC-77 PT 08: 18 



REND 


= O^0OGG 


REXB 


003H52 


RFa 


= 0020GG 


RKT 


= 000136 


RMP 


= G000H2 


RNF 


= O^00GG 


QPR 


= 000022 


PPBSET 


000130 


RPBSP 


OOOOBH 


HPBl 


00011b 


RPF 


= 1 00000 


RPFEND 


005040 


RRFl 


005060 


RRRCV 


000212 


RRRCVl 


000230 


RRSEXT 


000172 


RSCCCT 


= 000000 


flSCI 


= 000000 


RSSGNl 


003010 


flSSGN2 


003036 


flSSGN3 


003050 


flSX 


= 000016 


RTR 


= 000040 


RTT 


= 000036 


BCC 


= 000126 


BCCR 


= 0002GG 


BCCHK 


006106 


BCL 


= 000127 


BEND 


= 020000 


BENQ 


004532 


BSIZE 


= 000620 


BSNT 


= 002000 


BTCE 


^ 000027 


BTCi 


= 000030 


CRK 


= 000134 



CRKO 
CRKl 
CR. RSC 
CR. EBC 
CR. NCR 
CR. SBT 
CBRX 

CBBX 



= 000052 
= 000053 
= 000000 
= 000001 
= 000001 
= 000000 
= •.000005 

= :<000004 



R 
R 
R 

P 
R 
P 
R 
R 



R 
R 
R 



REFERENCES 

«7-466 

«6-398 

19-1028 

18-853 
«7-476 

41-2339 
«8-497 

20-1072 
»7-457 
»6-425 
89-542 
87-477 
«6-397 
824-1361 

24-1342 

24-1357 
88-49S 
841-2319 

41-2321 

24-1351 
824-1382 
824-1369 
810-556 
8 3-23S 

24-1330 

24-1320 
86-395 
89-541 
89-540 
86-420 
87-470 

37-2087 
86-421 
88-496 

40-2204 
84-339 
88-509 
89-530 
89-531 
86-424 
*42-24S5 
89-546 
89-547 
84-291 
84-292 
84-294 
84-293 
83-268 

43-2533 
83-269 

37-2114 



15-741 

6-399 

824-1364 

836-1977 

16-778 

43-2576 
835-1801 
16-779 
6-426 
9-543 
16-778 
6-398 
24-1374 
824-1349 
824-1359 
42-2439 
42-2440 
841-2323 
824-1378 
44-2635 
24-1379 

19-1046 
824-1329 
824-1337 
824-1344 

b-39b 

9-542 

9-541 

b-421 

37-2095 
844-2589 

24-1380 

43-2538 
840-2211 

6-440 

18-918 

9-531 

9-536 

b-425 

9-54 7 



11-564 



%Z7~ 2033 
43-2546 

t 37- 20 32 
3S-2135 



24-1367 

15-704 

40-2205 

38-2135 

16-791 



16-790 
6-427 
24-1355 
18-915 
*15-716 



43-2573 
42-2486 
41-2350 
25-1430 

24-1381 

19-1051 



24-1300 
37-20SS 
19-992 
6" 4iii, 
41-2324 

37-20S5 

41-2348 

17-S21 

19-1021 

19-1013 

21-1132 

21-112S 

21-1133 



11-601 



37-2101 

37-2033 
3S-2140 



PRGE 1 
CREF 

42-2510 
«l5-720 
41-2349 
42-2367 
18-915 



18-859 
«21-1142 

18-917 
*24-1331 



43-257S 
41-2361 
42-2455 



24-1392 
20-1070 



*21-1132 
42-2393 



18-SSb 
25-1449 



20-1059 



«24 1335 
18-917 



18-911 
24-1356 

25-1425 
37-2114 



44-2630 
42-2466 
42-2465 



- C _ 1 -' C 7 



43-2541 
43-2577 



41-22S0 *43-254l 



42-247S 



*21-1133 *21-113S 
21-1136 25-1434 



;7-14S4 



37-2112 42-2378 

37-2034 *37-2034 
42-2365 42-2367 



37-2105 
25-1427 



18-922 
*24-1360 

26-1474 

*3:^-213G 



44-2636 



*24-1325 24-1326 *24-132S 



44-2599 
1:44-2589 

44-2b51 

*25-1434 

42-24S5 

37-2030 

42-2380 

37-2074 

42-23o? 



*37-2l31 
25-1438 



19-956 
*25-1435 

37-2107 



26-1474 



19-999 
«42-2484 



39-2171 






42-2380 *42-2471 



42-23S2 

^37-2076 
44-2591 



42-2384 

37-2092 

44-2603 



42-2430 

*37-2112 
*44-2605 



r" 



B 1 SYNC 


CPERTED BY 


MRCRO ON 6 


-DEC-77 RT 


08: 18 


J 
PRGE 2 


6 




SYMBOL 


CROSS REFERENCE 








CREF 






SYMBOL 


VRLUE 




REFERENCES 












CBC 


= 000122 




116-418 
44-2591 


6-419 
«44-2594 


17-840 
«44-2606 


*18-882 


«19- 


-1018 


Ct'C 


= 0002B7 




«2-10 












CCT 


= 000132 




»6-423 
40-2203 


6-424 
41-2323 


16-796 
44-2612 


21-1127 


*21- 


•1129 


CDLE 


= 000010 




«9-625 


9-526 


18-861 


18-876 


19- 


•973 


CENQ 


= 000022 




»9-527 


9-528 


40-2222 








CEOT 


= 000026 




«9-529 


9-530 










CETB 


= 000005 




»9-522 


9-523 


16-796 


17-842 


21- 


■1139 


CETX 


= 000006 




l?9-523 


9-524 


16-799 








L'TB 


= 000007 




«9-524 


9-525 


18-SS9 








CLC 


= 0002m 




82-6 












CLN 


= 0002BO 




82-9 


3-278 










CLNlf 


= 000252 




83-27S 


24-1343 










CLV 


= C00242 




82-7 


3-278 










CLZ 


= 0002^^ 




82-8 












CNRK 


= 00002H 




89-528 


9-529 










CONTin 


GOOOOO 


P 


84-325 


*15-674 


44-2642 








COUR 


= 000040 




88-4S7 


37-2073 










CPflD 


= 000002 




89-519 


9-520 


19-1027 


19-1048 


24- 


•1362 


CPD2fe 


= 000001 




83-241 












CRBINT 


= 000000 




81-2 


4-368 


37-2062 


37-2066 


^•■\- 


■2290 


CRBSRV 


004022 


P 


24-1396 


837-2042 


41-2296 








CRD 


= 000001 




8S--4S2 












CRVI 


= 000000 




89-517 


9-51S 


42-2384 








GSR 


= 000002 




87-465 


24-1391 


24-1393 


41-2291 






CSRT 


000262 


P 


22-1194 


824-1389 










CSOH 


= 000004 




89-521 


9-522 










CSSRT 


004422 


R 


15-6S3 


83S-2156 


41-2322 








CSTX 


= 000003 




89-520 


9-521 


19-975 








CSYN 


= 000016 




89-526 


9-527 


19-965 


21-1131 






CTDEL 


= tttttt 


G 


3-246 


44-2647 










CTIME 


= tttttt 


G 


3-246 


24-1397 


40-2239 


41-::97 


44- 


2648 


CWRK 


= 000001 




89-518 


9-519 










C. BflBl 


002762 


R 


24-1311 


824-1323 










C. BRPB 


002704 


RG 


3-248 


824-1294 










C. BRRX 


002756 


R 


24-1299 


824-1319 










C. BRPl 


002714 


R 


824-1298 












C. BCPl 


000352 


R 


15-738 


815-743 










C BCP2 


000366 


R 


15-744 


815-746 










C. BCP3 


000262 


P 


15-723 


815-728 










C. BEOF 


= 002000 




83-493 


42-2483 










C. BGBC 


= 000003 




813-613 


13-615 


13-blD 


13-617 






C. BGMS 


= 000105 




813-617 












C. BGRD 


= 000303 




813-615 


15-734 










C. BGTD 


= 000304 




813-616 


26-1470 










c. Bins 


002004 


R 


*15-724 


15-726 


821-1097 


*21-1131 


*21- 


1145 








*2U-1254 


24-1255 


*24-13S3 


*24-13S6 


24- 


ISS:' 


C. BINT 


000020 


RG 


3-248 


815-657 










C. BLTL 


= 000776 


G 


3-249 


86-441 










C. BriDC 


= 000002 




813-625 


15-725 


21-1162 


24-13S4 






C. BMMC 


^ 000001 




813-624 


21-1147 


24-1253 









37-2050 141-2285 «42-240t «43-2555 

24-1349 24-1385 25-1433 37-2051 
19-1003 42-2420 43-2523 



41-2327 41-2331 



21-llBn 21-1154 *21-1160 21-1165 



n 



BISYNC 


CREfiTED BY 


MRCRO ON 6 


-OEC-77 RT 


08: 18 


K 
PRGE 3 


6 










SYMBOL 


CROSS REFERENCE 








CREF 












SYMBOL 


VRLUE 


REFERENCES 


















C BMSE 


000370 RG 


3-25H 


1116-754 
















C BNXT 


000312 R 


15-730 


1115-733 
















C. BODE 


000316 RG 


3-254 


825-1412 
















C. BODl 


000356 R 


25-im3 


825-1419 
















C. BPD 


000372 RG 


3-248 


816-765 
















C. BPDR 


OOOHOH R 


S16-770 


16-807 


17-832 














C. BPDX 


OOOmH R 


»16-772 


16-777 
















C. BPTC 


0020m RG 


3-2H8 


821-1106 
















C BRCD 


0001 2H R 


»15-698 


24-1260 


41-2319 


44-2604 












C BRCY 


000220 R 


16-7m 


815-716 
















C. BRCZ 


000206 R 


15-709 


815-713 
















r. BRMC 


000010 R 


814-632 


*15-701 


*15-703 


«15-704 


«15-728 


«15-731 


*15-733 


*l5-734 


15-735 


C. BTSC 


= 000000 


»13-623 


22-1190 


24-1365 


44-2654 












C. BUD2 


ooo^2^ R 


25-1424 


25-1426 


825-1430 














C. BIJD3 


C00H64 R 


25-1432 


825-1438 
















<:. BUDH 


O00S12 R 


25-1439 


25-1441 


825-1449 














C. BUFF 


= 000007 


«4-335 


4-336 


4-336 


4-336 


4-336 


18-884 








C. BO 


00037b R 


»25-1423 


25-1428 
















C. Bl 


OOOHOH R 


25-1420 


25-1422 


825-1425 














C. B5 


000530 P 


25-1450 


825-1453 
















C. SRRP 


= tititi G 


3-247 


15-727 


21-1152 


21-1167 


22-1192 


24-1256 


24-1366 


24-1388 


44-2656 


C. SPY 


= tiUit G 


3-247 


15-736 


26-1472 














C. STRT 


= 17777b 


«3-257 


24-1307 


24-1308 


24-1316 


24-1340 










CI 


= OOQOOO 


«?35-lS04 


35-1804 


35-1804 


835-1805 


35-1805 


35-1805 


835-1806 


35-1806 


35-1806 






«35-1807 


35-1807 


35-1807 


835-180S 


35-1808 


35-1808 


835-1809 


35-1809 


35-1809 






S35-1S10 


35-1810 


35-1810 


835-1811 


35-1811 


35-1811 


835-1814 


35-1814 


35-1814 






835-1S15 


35-1815 


35-1815 


835-1816 


35-1816 


35-1816 


835-1817 


35-1817 


35-1817 






»35-lSlS 


35-1818 


35-1818 


835-1819 


35-1819 


35-1819 


835-1820 


35-1820 


35-1820 






S35-1821 


35-1821 


35-1821 


835-1824 


35-1824 


35-1824 


835-1825 


35-1825 


35-1825 






«35-182b 


35-1826 


35-1826 


835-1827 


35-1827 


35-1827 


835-1829 


35-1829 


36-1829 






;? 35-1830 


35-1830 


35-1830 


835-1831 


35-1831 


35-1831 


835-1832 


35-1832 


35-1832 






8 35-1835 


35-1835 


35-1335 


835-1836 


35-1836 


35-1836 


835-1837 


35-1837 


35-1837 






835-1838 


35-1838 


35-1838 


835-1839 


35-1839 


35-1839 


835-1840 


35-18t0 


35-1840 






835-1841 


35-1841 


35-1841 


835-1842 


35-1842 


35-1842 


835-1845 


35-1845 


35-1845 






835-1846 


35-1846 


35-1846 


835-1847 


35-1847 


35-1847 


835-1848 


35-1848 


35-1848 






835-1849 


35-1849 


35-1849 


835-1850 


35-1850 


35-1850 


835-1851 


35-1851 


35-1851 






835-1852 


35-1852 


35-1852 


835-1855 


35-1855 


35-1855 


835-1856 


35-1856 


35-1856 






835-1857 


35-1857 


35-1857 


835-1858 


35-1858 


35-1858 


835-1859 


35-1859 


36-1859 






835-1860 


35-1860 


35-1860 


835-1861 


35-1861 


35-1861 


835-1862 


35-1862 


35-1862 






835-1865 


35-1865 


35-1865 


835-1866 


35-1865 


835-1866 


35-1866 


35-1866 


835-1866 






35-1866 


835-1867 


35-1867 


35-1867 


835-1867 


35-1867 


835-1868 


35-1868 


35-1868 






835-1868 


35-1868 


835-1869 


35-1869 


35-1869 


835-1869 


35-1869 


835-1870 


35-1870 






35-187C 


835-1870 


35-1870 


835-1871 


35-1871 


35-1871 


835-1871 


35-1871 


835-1872 






35-1872 


35-1872 


835-1872 


35-1872 


835-1875 


35-1875 


35-1875 


835-1875 


35-1875 






835-1876 


35-1876 


35-1876 


835-1876 


35-1876 


835-1877 


35-1877 


35-1877 


835-1878 






35-1S7S 


35-1878 


835-1879 


35-1879 


35-1879 


835-1880 


35-1880 


35-18£0 


835-1881 






35-1881 


35-1881 


835-1882 


35-1882 


35-1882 


835-1887 


35-1887 


35-1887 


835-1'iC^ 






35-1888 


35-1888 


835-1888 


35-1888 


835-1889 


35-1889 


35-1889 


835-1889 


35-1889 






835-1890 


35-1890 


35-1890 


835-1890 


35-1890 


835-1891 


35-1891 


35-1891 


835-1891 






35-1891 


835-1892 


35-1892 


35-1892 


835-1892 


35-1892 


835-1893 


35-1893 


35-1893 






835-1S93 


35- 1893 


835-1894 


35-1894 


35-1894 


835-1894 


35-1894 


835-1896 


35-1896 






35-lS9b 


835-1896 


35-lS9b 


835-1S97 


35-1S97 


35-1S97 


835-1897 


35-1897 


835-1898 



L 6 



BISYNC CPERTED BY 
SYMBOL CPOSS REFERENCE 
SYMBOL V'RLUE 



MPCRO ON 6-DEC-77 AT 08: 18 



REFERENCES 



= ooooo: 



35- 

l»35- 
35- 

»35- 
35- 
35- 

«35- 
35- 

»35- 
35- 

»35- 
35- 
35- 
35- 
35- 
35- 
35- 
35- 
35- 

835- 
35- 
35- 

«35- 
35- 

«35- 

S35- 

«35- 

n j)b- 

35- 

»35- 

35- 

«35- 

35- 

35- 

835- 

25- 

35- 

35- 

35- 

»35- 

35- 

35- 

35- 

3^- 

835- 

35- 

835- 

835- 

835- 

835- 

« Jb 

2^- 



898 

900 

901 

903 

907 

909 

911 

912 

916 

918 

920 

923 

931 

93H 

939 

942 

945 

950 

952 

954 

956 

960 

962 

964 

966 

S04 

S07 

Sfj9 

Sll 

816 

818 

820 

821 

826 

830 

832 

837 

839 

842 

846 

84S 

850 

852 

856 

858 

859 

862 

867 

870 

875 

S77 



35- 

35- 
«35- 

35- 
«36- 

35- 

35- 
835- 

35- 
835- 

35- 

35- 

35- 

35- 

35- 

35- 

35- 

35- 
8 35- 

35- 
835- 

35- 

35- 

35- 

35- 

35- 

35- 

35- 
« J>b- 

35- 

35- 

35- 
835- 
835- 

35- 

35- 

35- 
835- 
835- 

35- 
835- 

35- 
835- 

35- 

35- 
835- 

35- 

35- 

35- 

35- 

35- 
835-1S79 



898 

900 
902 
903 
907 
909 
911 
913 
916 
918 
920 
923 
931 
934 
939 
942 
945 
950 
953 
954 
956 
960 
962 
964 
966 
804 
807 
809 
Sll 
816 
818 
820 
824 
827 
830 
832 
837 
840 
842 
846 
848 
850 
852 
856 
858 
860 
862 
867 
870 
375 
877 



835-1898 

35-1900 

35-1902 

835-1906 

35-1907 

835-1909 

35-1911 

35-1913 

835-1917 

35-1918 

835-1921 

835-1929 

835-1932 

835-1935 

835-1940 

835-1943 

835-1946 

835-1951 

35-1953 

835-1955 

35-1956 

S35-1960 

35-1962 

835-1964 

35-1966 

35-1804 

35-1807 

835-1810 

35-1811 

35-1816 

835-1818 

35-1820 

35-1824 

35-1827 

35-1830 

835-1835 

835-1837 

35-1840 

35-1842 

835-1847 

35-1848 

835-1850 

35-1852 

835-1856 

35-1858 

35-1860 

35-1862 

35-1867 

35-1870 

35-1875 

835-1878 

35-1S79 



PAGE 4 
CREF 

35-1898 

835-1900 
35-1902 
35-1906 

835-1908 
35-1909 

835-1911 
35-1913 
35-1917 

835-1919 
35-1921 
35-1929 
35-1932 
35-1935 
35-1940 
35-1943 
35-1946 
35-1951 
35-1953 
35-1955 

835-1959 
35-1960 

835-1962 
35-1964 

835-1805 
835-1808 

35-1810 
835-1814 
835-1817 

35-1818 
835-1820 

35-1824 

35-1827 
835-1830 

35-1835 

35-1837 

35-1840 
835-1845 

35-1847 
835-1849 

35-1850 
835-1855 

35-1856 
835-1858 

35-1860 
835-1865 
835-1868 
835-1871 
835-1876 

35-1878 
835-lSSO 



L b 



835-1899 
35 - 1 900 

835-1902 
35-1906 
35-1908 

835-1910 
35-1911 

835-1913 
35-1917 
35-1919 
35-1921 
35-1929 
35-1932 
35-1935 
35-1940 
35-1943 
35-1946 
35-1951 

8 35-1953 
35-1955 
35-1959 

835-1961 
35-1962 

835-1965 

35-1805 
35-1808 
35-1810 
3S-1814 
35-1817 

835-18r^ 
35-182C 

835-1825 

835-1829 
35-1830 
35-1835 

835-1838 

835-1841 
35-1845 
35-1847 
35-1849 

835-1851 
35-1855 

8 35-1857 
35-1858 

835-1861 
35-1865 
35-1868 
35-1871 
35-1876 
35-1878 
3B-1SS0 



35-1899 
835-1901 

35-1902 
835-1906 

35-1908 

35-1910 
835-1912 

35-1913 
835-1917 

35-1919 
835-1922 
835-1930 
835-1933 
835-1936 
835-1941 
835-1944 
835-1949 
835-1952 

35-1953 
835-1955 

35-1959 

35-1961 
835-1963 

35-1965 

35-1805 
35-1808 

835-1810 
35-1814 
35-1817 
35-1819 

835-1821 
35-1825 
35-1829 

t-35-1831 

835-1836 
35-1838 
35-1841 
35-1845 

8 35-1847 
35-1849 
35-1851 
35-1855 
35-1857 

835-1859 
35-1861 
35-1S65 
35-1868 
35-1871 
35-1876 

835-1878 
35-lSoO 



35-1899 
35-1901 

835-1903 
35-1906 

835-1908 
35-1910 
35-1912 

835-1916 
35-1917 

835-1920 
35-1922 
35-1930 
35-1933 
35-1936 
35-1941 
35-1944 
35-1949 
35-1952 

835-1954 
35-1955 

835-1959 
35-1961 
35-1963 
35-1965 

835-1806 

835-1809 

35-1810 

835-1815 

835-1817 

35-1819 

35-1821 

35-1825 

35-1829 

35-1831 

35-1836 

35-1838 

35-1841 

835-1846 

35-1847 

835-1849 

35-1851 

8 35-1855 

35-1857 

35-1859 

35-1861 

835-1866 

835-1869 

835-1872 

8 35-1877 

35-1878 

835-1880 



835-1899 
36-1901 
35-1903 

835-1907 
35-1908 

835-1910 
35-1912 
35-1916 

835-1918 
35-1920 
35-1922 
35-1930 
35-1933 
35-1936 
35-1941 
35-1944 
35-1949 
35-1952 
35-1954 

835-1956 
35-1959 

835-1961 
35-1963 

835-1965 

35-1806 
35-1809 

835-1811 
35-1815 
35-1817 

835-1819 
35-1821 

835-1826 

835-1829 
35-1831 
35-1836 

835-1839 

835-1842 
35-1846 

835-1848 
35-1849 

835-1852 
35-1855 

8 35-1857 
35-1859 

835-1861 
35-1866 
35-1869 
35-1872 
35-1877 

835-1879 
35-1S80 



35-1899 

835-1901 

35-1903 

35-1907 

835-1909 

35-1910 

835-1912 

35-1916 

35-1918 

35-1920 

835-1923 

835-1931 

835-1934 

835-1939 

835-1942 

835-1945 

835-1950 

835-1952 

35-1954 

35-1956 

835-1960 

35-1961 

835-1964 

35-1965 

35-1806 
35-1809 
35-1811 
35-1815 

835-1818 
35-1819 

835-1821 
35-1826 
35-1829 

835-1832 

835-1837 
35-1839 
35-1842 
35-1846 
35-1848 

835-1850 
35-1852 

835-1856 
35-1857 

835-1859 
35-1861 
35-1866 
35-1869 
35-1872 
35-1877 
35-1879 

835-1881 



n 6 



B 1 S t'NC 
SVMBOL 
SYMBOL 



crerted by 
:poss peference 

"RLUE 



riRCRO ON b-DEC-77 RT 08: 18 



DCH 
OLE 
DLEF 

DSC 

EBCflCK 

EBCCCT 

EBCNRK 

EBCRTR 

EBCSYN 

EBCXTR 

EBCXTl 

ECH 

EKT 

ENO 

ENQRGN 

ENQflGl 

ENOCNT 

ENQSET 

ENQTIM 

ENUt' 

ENQ2 

EOT 

ESNT 

ETfl 

ETB 

ETX 

ETXF 



00G0G4 
GG0020 
00G2GG 

004000 
GOOOIG 
GOOOOO 
000024 
004006 
000016 
001752 
001770 
GC0121 
000140 
000005 
006220 
006256 
000010 
GG6J00 
006322 
006352 
006270 
000004 
GO 1000 
003052 
000027 
000003 
000400 



P 
R 
R 
R 
P 
P 
R 



RG 



REFERENCES 
35-1881 

»35-1887 
35-1889 
36-1892 
35-1896 
35-1899 
35-1902 
35-1907 
35-1910 
35-1913 
35-1918 
35-1920 

»35-1922 
35-1929 
35-1932 
35-1935 
35-1940 
35-1943 
35-1946 
35-1951 
35-1954 
35-1959 
35-1962 

835-1965 

«2-4S4 

n5-374 

n7-H54 
42-243'! 

«S-494 

811-575 

811-567 

811-579 
11-591 

811-577 
11-590 
20-1063 

86-417 

86-427 

85-379 

844-2620 
44-2621 

84-332 
22-1193 
44-2646 
44-2652 

85-37S 
8S-50S 
^3-250 
85-3S2 
85-377 
8S-507 



35- 

36- 

36- 

36- 

36- 

36- 

36- 

36- 

36- 

36- 

36- 

835- 

35- 

835- 

835- 

835- 

835- 

835- 

8 35- 

835- 

835- 

835- 

8i5- 

35- 

44- 

3S- 

37- 

42- 

42- 

11- 

21- 

11- 

837- 

11- 



820- 

820- 

6-4 

6-4 



1881 

1887 

1889 

1892 

1896 

1899 

1902 

1907 

1910 

1913 

1918 

1921 

1922 

1930 

1933 

1936 

1941 

1944 

1949 

1952 

1955 

1960 

1963 

1965 

2593 

2140 

2094 

2437 

2439 

592 

1126 

593 

2032 

5SS 

1060 

1071 

IS 

28 



844-2633 

22-11S9 

44-2634 

844-2S51 

844-2657 

42-2514 

lS-924 
20-1067 



16-SOO 



836-1881 

36-1887 

836-1890 

836-1893 

835-1897 

836-1900 

836-1903 

836-1908 

836-1911 

836-1916 

836-1919 

35-1921 

835-1923 

35-1930 

35-1933 

35-1936 

35-1941 

35-1944 

35-1949 

35-1952 

35-1965 

35-1960 

35-1963 

35-1965 



3S-213S 



*lb-"96 
6-425 



26-1475 
844-2639 



844-2635 

25-1431 
827-1486 



16-SOb 



PRGE 5 
CREF 

36-1881 
835-1887 
36-1890 
36-1893 
36-1897 
35-1900 
35-1903 
35-1908 
36-1911 
36-1916 
36-1919 
36-1921 
35-1923 
35-1930 
35-1933 
35-1936 
35-1941 
35-1944 
35-1949 
35-1952 
35-1955 
35-1960 
35-1963 
83F.-1966 



n 6 



7s?. 



:144 



* 16- 799 
*22-llS9 



41-2360 
44-2653 



836-1882 

36 1887 

36-1890 

36-1893 

35-1897 

36-1900 

36-1903 

36-1903 

36-1911 

36-1916 

36-1919 

836-1921 

36-1923 

836-1931 

836-1934 

836-1939 

835-1942 

835-1945 

835-1950 

835-1953 

835-1956 

835-1961 

835-1963 

:5-l?66 



41-2325 



*17-S42 

.* 2b- 14 75 



36-1882 

ff36-1888 

#35-1891 

1135-1894 

«I35-1898 

1135-1901 

1135-1906 

#36-1909 

836-1912 

835-1917 

836-1919 

35-1921 

835-1923 

35-1931 

35-1934 

35-1939 

35-1942 

35-1945 

35-1950 

35-1953 

35-1956 

35-1961 

35-1963 

35-1966 



U ■?_'■' 7 -7 7 



19-100? 
*39-2lS4 



36-1882 
36-1888 
35-1891 
35-1894 
36-1898 
35-1901 
36-1906 
36-1909 
36-1912 
36-1917 
35-1919 

835-1922 
35-1923 
35-1931 
35-1934 
35-1939 
35-1942 
35-1945 
35-1950 
35-1953 
35-1956 
35-1961 

835-1964 






19-1012 
*41-2346 



835-1882 

36-1888 

35-1891 

35-189^ 

35-1898 

36-1901 

35-1906 

36-1909 

35-1912 

36-1917 

836-1920 

36-1922 

836-1929 

835-1932 

836-1935 

836-1940 

835-1943 

835-1946 

836-1951 

835-1954 

835-1959 

835-1962 

35-1964 



''- ? 



2395 



:r21-1139 
*41-2360 



36-1882 

836-1889 

835-1892 

835-1896 

835-1899 

835-1902 

835-1907 

835-1910 

835-1913 

835-1918 

35-1920 

35-1922 

35-1929 

35-1932 

36-1935 

36-19H0 

35-1943 

35-1946 

35-1951 

36-1954 

35-1959 

35-1962 

35-1964 



42-2400 



37-2034 



^ n r OTr r\ n w 



■ rt /" r% .f\ .^.fc I 



N 6 



BISYNC 


CRERTED BY 


MflCRO ON 6 


-DEC-77 AT 


08: 18 


PRGE 


N 
6 


6 


SrHBOL 


CROSS REFERENCE 








CREF 






SYMBOL 


URLUE 




REFERENCES 












FBF 


= OOOHOO 




»8-491 


37-2082 


41-2314 


41- 


•2328 




FRSRT 


0C373fe 


R 


»36-2004 


42-2368 










GENQIO 


0G51E)H 


R 


41-2340 


«41-2352 










GETCHR 


G0H07fe 


R 


37-2070 


»37-2072 










GETCHP 


0G^06^ 


R 


<»37-2061 
42-2480 


37-2083 
43-2535 


37-2104 


11- 


■2108 


37-2132 


GETCHl 


OOBHIG 


R 


36-2010 


42-2370 


42-2413 


842- 


•2432 


42-2435 


GETl 


oomofe 


R 


37-2072 


»37-2074 










GETIR 


com 26 


R 


37-2075 


»37-2078 










GETIB 


oomBG 


R 


37-2079 


»37-2082 










GET2 


GGm76 


R 


37-2086 


»37-2088 


44-2613 








GET3 


00432H 


R 


37-2093 


«38-2135 










:Em 


C0H246 


R 


37-2096 


«37-2103 










GET5 ■ ^ 


G0H21fe 


R 


37-2090 


»37-2092 










GET9 ' 


C0H306 


R 


37-2111 


»37-2113 










GNXl 


004362 


R 


38-2139 


JJ38-2144 










GOUOF 


004412 


R 


38-2150 


«38-2152 










GTBCC 


004232 


R 


36-1989 


36-1997 


36-2001 


n J, - 


■2095 


38-2141 


GTBCl 


006136 


R 


44-2590 


«44-2597 










GTBC2 


006130 


R 


44-2592 


844-2594 










GTENQ 


006040 


R ' 


36-1999 


843-2573 










GTENQl 


006056 


R 


43-2574 


843-2577 










GTEOT 


006060 


R 


37-20S1 


41-2352 


843-25-b 








GTETB 


005736 


R 


36-1994 


843-2538 










GTETX 


006002 


R 


36-1995 


843-2560 










GTETO 


005744 


R 


t;43-2539 


43-2561 










GTETl 


005752 


R 


S43-2540 


43-2567 


43-2569 








GTFRST 


005170 


R 


37-2091 


842-2365 










GTFRTl 


005206 


R 


36-2004 


36-2006 


36-2007 


Z6- 


2008 


42-2366 


GTGET 


005732 


R 


«43-2535 


43-2557 


43-25S4 


43- 


25S6 


44-2595 


GTITB 


006012 


R 


36-1996 


843-2564 










GTITBl 


006012 


R 


843-2565 












GTITl 


006156 


R 


44-2598 


844-2603 










GTNONE 


004736 


R 


37-2071 


841-2277 










GTNOPE 


005120 


R 


«41-2339 












GTNOl 


004744 


R 


U41-22S0 












GTN02 


004760 


R 


41-2279 


41-2281 


841-:2S9 








GTN03 


005012 


R 


41-2292 


41-2299 


8U1-23C2 








GTNSflP 


004370 


R 


3S-2137 


838-2145 










GTSflT 


003712 


R 


f;36-1989 


38-2145 










GTSTX 


005710 


R 


36-1990 


36-2000 


84 3-2517 








GTSYN 


006070 


R V 


36-1998 


843-2583 










GTUOF 


004374 


R 


37-2106 


838-2149 










HALT 


= 000000 




«2-4 












INt 


= 000400 




«7-455 
42-2501 


15-737 


18-925 


9 7- 


1220 


25-14 19 


INIENQ 


006210 


R 


42-2502 


844-2616 










INIENl 


006252 


R 


44-2600 


44-2617 


844-2630 






■„. : .^, . ■ 


INTBCC 


005340 


R 


42-2396 


842-2401 










INTCl 


004676 


R 


40-2256 


40-2258 


840-2260 








INTC 2 


004716 


R 


40-2261 


40-2263 


840-2265 








INTTIC 


004656 


R 


40-2238 


840-2255 











38-2153 



41-2329 42-2391 



42-2432 






25-1436 



:5-14H0 39-217U 42-2482 



BISVNC 

SYMBOL 

SVMB'JL 

INTVTM 

INTUTl 

IPL 

IPC 

IRS 

ISC 

ITB 

iTBfi 



ITS 

KGBCCP 

y GC 
' GDRTh 

^GSTf.T 

-H^SBYT 
LOW 



R 
R 



CREATED BY 
CROSS REFERENCE 
uRLUE 

O0U610 

O0H6J2 
= 000002 
= 000062 
= 000036 
= 000072 
= 000037 
= 002000 



OOHOOO 
170702 
00003H 
17070H 



riRCRO ON 6-DEC-77 flf 08 18 



'0700 



000031 
OOOOOb 



LDGRPH 

LGC 

LS'll 



LSN 



000007 
0G0152 

T* ^ T ^ T- * 



= OOOOIO 



LTL 


= 000776 




MBX 


= 0000 3H 




ncF 


= nooooH 




MDC 


= 000060 




MEND 


= 010000 




niP 


= lOOGOO 




MPC 


= 0001 IB 




MSRT 


000002 


R 


riSRTO 


O0H436 


R 


nSRTOfi 


004Sm 


R 


fISPTOX 


00H630 


P 


hSPTl 


004464 


R 


nss 


= 000020 





REFERENCES 
15-684 

«40-2240 

«6-389 

;J6-400 

«S-385 

S6-404 

«5-383 

;7-473 
19-977 
44-2597 

»7-458 

«3-274 

89-539 

83-275 
43-2523 

nZ-27Z 
37-2047 

89-536 

86-3?l 
1S-S59 
19-999 

*22-i20S 
38-2136 

*42-2400 
43-2566 

84-364 

86-433 
3-242 
19-1005 
41-2302 

86-392 
16-782 
19-947 
22-1206 
25-1412 
38-2149 
41-2339 
43-2583 

86-440 

84-336 

87-450 

89-545 

8S-495 

87-478 

86-414 

84-343 

839-2170 
39-21S6 
39-2172 

839-2176 

87-452 
44-2616 



PRGE 
CREF 



B 7 



840-2229 

6-390 
6-401 

6-405 

15-722 
19-1014 



18-882 
9-540 
17-816 
43-2533 
3-274 
37-2049 
?-538 
6-392 
18-867 
19-1001 
*23-1244 
38-2138 
42-241L' 

4U-2616 
15-670 
6-434 
17-812 
19-1015 
42-2406 
6-393 
*16-791 
19-963 
24-1258 
*25-141S 
*38-2157 
*42-2393 
44-2597 
6-441 
6-400 
44-2620 
9-546 
43-2560 
37-2089 
»15-bS2 
*15-67o 

40-2261^ 
840-2203 
39-2175 
42-2492 
22-llSS 
44-2622 



40-2266 

«37-2058 

15-686 

15-743 
19-1023 



18-895 
17-845 
17-840 
43-2546 
3-275 
37-2052 
9-538 
15-737 
18-874 
20-1062 
*24-1265 
*38-2144 
*42-2434 
44-2620 
42-2498 
6-437 
17-836 
24-1303 
42-2416 
*15-715 
16-S02 
19-970 
*24-1264 
25-1425 
39-2171 
42-2412 
*44-2599 



15-708 

44-2622 

21-1160 

41-2324 

*25-1445 

25-1445 



840-2207 
22-120S 



«37-2084 



16 

24' 



782 
1378 



18-901 
19-945 
19-1009 

17-839 
41-2305 

*16-779 
18-911 

*21-1108 
25-1419 
39-2174 
42-2437 

*44-2622 

*15-670 
17-844 
24-1313 
42-2426 
15-722 

*17-843 

19-977 

24-1329 

25-1427 

*40-2219 
14 ? - '^ 1414 7 



15-711 

44-2633 

24-13S6 

42-2393 
40-2260 



23-1240 



41-2278 



16-791 
41-2324 



19-1018 

19-988 

37-2050 

17-845 
41-2307 

16-784 

18-922 

21-1109 

25-1421 

*41-2325 

*42-Z^S2 

*44-2633 

*42-2389 
18-879 
2-4-1337 
43-2519 
*15-74l 
*18-891 
*19-1014 
*24-li36 
25-1438 
*40-2251 
42-2510 



14-1326 



43-2568 
*40-2262 



23-1243 



18-891 
42-2412 



37-2048 
37-2052 



•7- 



2101 



19-944 
42-2409 

*16-786 
)i:i8-925 
*21-1125 
t25-1436 
42-2372 
42-2501 



t42-2498 
18-892 
37-2043 
43-2529 
15-743 

19-1023 
.*24-1367 
.*26-1474 
*40-2271 
^4 3-2539 



43-2577 
*41-2341 



25- ! 4:1 



19-947 
43-2539 



41-2285 

41-2306 

19-945 
44-2610 

*16-787 
18-929 
21-1170 
25-1440 

*42-2377 
42-2512 



18-898 

37-2055 

43-2542 

16-766 

18-913 

.* 19- 1030 
24-1378 
37-2089 
41-2291 

*43-2565 



44-2599 
442-2443 



25-1436 



19-963 
43-2565 



43-2555 
42-2420 
19-987 



*16-790 
19-956 
21-1172 

*37-2094 
42-2395 
43-2517 



19-936 
37-2097 
43-2552 
)H6-770 
t\E-9\S 
^21-1120 
24-1391 
37-2095 
41-2320 
*43-2568 



*42-2470 



42-24P2 



19-970 
43-2577 



42-24.0 
19-988 



18-857 

19-968 

*22-1188 

37-2109 

*42-2397 

*43-2540 



19-979 
41-2282 
44-2607 
*16-778 
*18-917 

22-1178 

*24-1393 

37-2107 

*41-2324 

*43-2577 



42- 2512 



B 1 SYNC 


CPERTEP BY 


MPCRO ON i 


-DEC-77 RT 


08: 18 


PQSE 


8 


SVriBOL 


CROSS REFERENCE 








CREF 




SYMBOL 


VWLUE 


REFERENCES 










n'.OUT 


= 000100 


118-603 


39-2170 


41-2326 


42- 


•2k 89 


NRK 


= 000025 


«5-380 










NRKCHT 


= 000010 


I4-333 


16-780 


26-1464 






NRKF 


= lOOOGO 


«8-513 


39-2191 


42-2467 






NAT 


= OOIOOO 


»7-456 


20-1062 


23-1228 


23- 


•1231 


NEF 


= 004000 


U7-474 


18-915 


26-1474 


42- 


•2447 


NMP 


= OOOOHH 


«9-543 


9-544 


24-1372 






NOP 


= 0002H0 


12-5 










NUB 


= 000002 


«8-483 


38-2151 








OOF 


= 000100 


«7-453 


21-1108 


21-1170 


23- 


•1248 


OS 


= QOOOOO 


«3-237 


10-562 








OVXM 


= 000200 


»8-504 


44-2623 








PQD 


= 000177 


85-384 . 


42-2369 








PhP iTY 


= GIOOOO 


»10-562 










FCH 


= 000010 


»8-485 










PPC- 


= OOOOHb 


«9-544 


9-545 


19-1026 






PTBSP 


000746 R 


»18-853 


19-995 








FICON 


00232b R 


21-1171 


822-1176 








PTCl 


002046 R 


21-1111 


821-1114 








PTC2 


002056 R 


21-1115 


821-1118 








PTC3 


002346 R 


22-1179 


822 '188 








PTCH 


002102 R 


821-1122 


23-1250 








PTDRB 


001730 R 


19-1000 


819-1045 








PTDLE 


000756 R 


«18-S5^ 


37-2021 








PTDLl 


0010C6 P 


1S-S58 


18-860 


« 1 t-oo J 






PTD2 


001354 R 


19-94S 


819-952 








PTENQ 


001176 P 


818-911 


37-2023 








PTENQt 


001226 R 


18-914 


818-917 








PTEOT 


001244 R 


818-922 


37-2024 








PTEXIT 


002454 R 


22-1204 


822-1213 








PTEXN 


002450 R 


21-1158 


22-llSl 


22-1207 




1211 


PTEXT 


002424 P 


822-1202 










PTEXl 


002406 R 


822-1195 


22-1209 








FTEX3 


C02406 R 


822-1196 


23-1245 








PTITB 


G01012 R 


818-866 


37-2020 








PTITl 


001064 R 


18-875 


818-878 








PTIT2 


001162 R 


818-904 










PTIT3 


001040 R 


18-868 


18-870 


81S-S73 






PTim 


001124 R 


18-887 


818-889 








pTimfl 


001120 P 


18-885 


818-888 








PTMODE 


002264 P 


21-1156 


821-1160 








PTnOPS 


001456 P 


21-1112 


823-1217 








pini 


002602 R 


23-1218 


823-1248 








PTM2 


002574 R 


23-1242 


823-1244 








PTNEXT 


000616 R 


16-774 


816-805 








PTNORH 


000534 R 


16-789 


816-793 








PINO 


000600 R 


16-798 


816-801 








PTNl 


000620 R 


16-803 


816-806 








PTPl 


000630 R 


817-812 


18-871 


1S-S90 


19- 


974 


PTP2 


000660 R 


17-822 


It 1 f - O ii f 








PTFJ 


000634 P 


817-818 


IS-S62 


1S-S77 


IS- 


S97 


PTR4 


000676 R 


1 7-S29 


817-S33 









C 7 



25-1436 



37-2109 



42-2482 



19-97b 
18-903 



19-996 
18-931 



19-966 



19-967 



19-1004 



blSYNC 




CRERTED Bv 


nRCRO ON 6 


-DEC-77 RT 


08: 18 



PQGE 9 


7 
















SYMBOL 


CROSS REFERENCE 








CREF 


















SVMBOL 


VALUE 


REFERENCES 
























PTSRT 




003762 R 


:8-854 


l»37-2G16 






















FT5LVE 




002430 R . 


22-1177 


r22-1206 






















PTSTX 




001166 R 


M8-906 


37-2017 






















PTSYN 




001272 R 


«18-929 


37-2022 






















PTSl ^ 




002H40 R 


»22-1208 
























PTTERfl 




002620 R 


21-1116 


824-1253 






















PTTEXT 




002660 R 


24-1259 


824-1264 






















PTTl 




002642 R 


«24-1258 


24-1261 






















PUTDO 




001310 R 


16-801 


819-934 






















PUTD1 




000512 R 


16-783 


16-785 


816-788 




















PUTDlfl 




000422 R 


« 16- 776 
























PUTDIO 




001720 R 


19-1024 


819-1037 






















PUTOn 




000420 R 


16-768 


816-775 






















PUTD22 




001462 R 


19-972 


819-975 






















PUTD23 




0Q1430 R 


19-964 


819-968 






















PUTD2H 




001452 R 


19-969 


819-973 






















PUTD3 




001370 R 


19-951 


819-955 






















PUTDH 




00151b R 


18-872 


19-957 


19-971 


19-978 


819-990 


19-998 














PUTD6 




001540 R 


18-S63 
«19-996 


18-907 
37-2016 


18-912 
37-201S 


18-916 
37-2019 


13-919 
37-2025 


18-923 


IS- 


-926 


18- 


-930 


19- 


-994 


PUTDBR 




001544 P 


18-932 


819-997 






















PjTDfe 




001602 R 


17-847 


18-888 


19-1002 


819-1005 


















(-UTD7 




001636 R 


«19-1015 
























PUTD8 




001644 R 


18-904 


819-1020 


19-1054 




















PUTD9 




001710 R 


19-1022 


819-1030 






















RBR 


r 


000001 


»7-464 


15-715 


22-1206 


24-1258 


24-1329 


24-1336 


3S- 


-2149 










RBC 


= 


000124 


»b-419 ' 


6-420 


11-594 


*42-2402 


















RBU 


: 


000004 


«6-390 


6-391 


37-206G 




















RCVSIB 


= 


000000 


;i-l 


4-365 


24-1390 


24-1399 


















RCVT 


- 


100000 


87-461 


33-2136 


42-2397 


42-2414 


43-2517 


43-2540 


43- 


■2566 










PCVTMT 


- 


tttttt G 


42-2507 


tH2-250S 






















RCX 


- 


000020 


»6-396 


6-397 


15-b9S 


*15-707 


15-708 


*15-71G 














RDBF 


r 


001000 


»7-472 


25-1412 


25-1418 


40-2219 


















REPEPT 




005146 R 


841-2349 


42-2456 






















RETNX 


z 


".000007 


83-270 
























RIB 


r 


000137 


86-426 
























RJT 


- 


000040 


87-469 


16-770 


: lb-S02 


17-843 


















PKT 


- 


000141 


86-428 


*16-^S0 


2a-1461 


*42-2453 


















RO'JP 


= 


000100 


8S-488 


37-2077 


















1 




PSTS 


r 


****** 


3-227 


3-251 


14-628 


15-717 


19-936 


19-958 


19- 


•979 


19- 


■1031 


19- 


■1036 








21-1091 


22-1180 


22-1184 


24-1257 


24-1332 


26-1457 


•J 1 


■2042 


27- 


-2055 


27- 


■2110 








37-2116 


39-2176 


39-2192 


41-2277 


41-2298 


41-2310 


41- 


■2342 


41- 


•2356 


42- 


-2374 








42-2403 


42-2422 


42-2442 


42-24H9 


42-2458 


42-2503 


43- 


■2525 


43- 


•2548 


44- 


-2624 








45-2659 
























RSW 


= 


000012 


86-393 


6-394 


15-72S 


15-729 


*15-732 


*15-745 


*24- 


■1266 


*37- 


■2073 


t27- 


■2077 








37-2078 


*:37-20S0 


37-2082 


37-2103 


*3S-2151 


*3&-215: 


*40- 


•2272 


*;41- 


•2314 


*41- 


■2328 








*42-239S 


*42-2439 


*42-24S3 


*43-2533 


*43-25b0 


43-25^3 


*43- 


2576 


*44- 


■2593 






PSX 


= 


000001 


81-3 


3-235 


3-251 


10-549 


12-607 


24-1273 


24- 


1346 


27- 


■1479 


42- 


■2442 


psxiin 


— 


tttttt 


14-639 
























RTll 


= 


tttttt 


3-231 


3-251 






















PVl 


: 


040000 


8S-512 


42-2474 






















R37S0 


- 


tttttt 


9-532 


11-5S3 


3b-19S0 


36-1983 


36-1991 


37-2026 















BISYNC 

SYMBOL 

SYMBOL 

Rb 

P7 

SBTCCT 

sec 

SEC 

SEN 

SENV 

SETfiCK. 

SETRCl 

SETflPF 

SETDLE 

-.ETENQ 

SETEOF 

SETEOT 

lETETB 

IE T.J 

SETMIP 

SETMl 

SETNRK 

SETNl 

SETRVI 

SETSYN 

SETWOK 

SETWRG 

SEV 

SEZ 

SIS 

SOH 

SRC 

SRTP 

SRTOF 

SSRT 

SSRTM 

SSP'O 

STRRFl 

SIX 

STXBCC 

STXF 

SYN 

SYP 

TBC 

TBS 

TC ! 3 

TCJl 

TCJ2 

TCJ3 

TCP 

TCI 

TCW 

TOE NT 
THPILT 



CREATED BY 
CROSS REFERENCE 
VPLUE 
= v.000006 
= */.000007 
= 000000 
= 000277 
= 000261 
= 000270 
= 000272 

00552^ 

005532 

005262 

005*414 



005652 

00555H 

005H2H 

002176 

005706 

005274 

00540M 

005446 

005470 

005544 

002136 

005160 

00-.622 

= 000262 

= 000264 

= 000010 

= 000001 

= 000153 

= 000400 

= 000200 

000004 

004640 

004720 

005640 

= 000002 

005726 

= 000020 

= 000026 

= 000032 

= 000070 

= 000112 

002112 

002506 

002532 

002556 

= 000130 

= 000120 

= 000142 

000532 
= 000240 



R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
P 
R 
R 
P 
R 



R 
R 
R 
R 



R 
R 
R 
R 



MfiCRO ON 6-DEC-77 RT 08: 18 



REFERENCE^ 

»3-264 

113-265 

M12-606 

«2-15 

»2-ll 

»2-14 

»3-279 
42-2379 

»42-2469 
42-2373 
36-2009 
36-2011 
42-2438 
36-2012 
21-1135 
42-2511 
36-2005 
42-2415 



PRGE 10 
CREF 



E 7 



36-2013 
?;42-2455 

42-2385 
«21-1131 
»41-2356 

42-23SI 

»-.- 1 i^ 

»2-13 

Sr-'-451 

»5-37b 

»6-434 

87-471 

S8-489 

»4-350 

»40-2245 

40-2259 

42-2390 
»5-375 

43-2518 
»7-46S 
S5-381 
«9-538 
«6-403 
86-412 
821-1125 

21-1173 

■77- 1 '7'7"? 

23-1234 
86-422 
86-416 
86-429 
*23-1249 

19-103S 

3-:si 



3-279 

842-2468 

42-2475 
842-2389 

38-2142 
842-2501 
842-2477 
842-2437 

21-1137 
842-2514 
842-2393 
842-2426 
842-2442 

42-2513 
842-2474 

42-23S3 
842-24S9 
3-279 



*3S-2156 
3S-2157 
37-2078 

*15-677 
42-2394 

840-2271 

842-2495 

843-2529 
18-906 

9-539 
6-404 
6-413 

823-1226 
23-1230 
23-1237 
b-423 
6-417 
6-430 



842-2'l34 



821-1139 



42-2490 



*40-2247 
40-2251 
37-2080 
40-2247 

43-25S5 



lS-913 

21-1140 
*16-794 
*15-690 



823-1233 

823-1240 

*15-687 

*15-67S 

»21-111S 



40-2255 
40-2271 

Hn _ ^ '^ 7-0 



*40-2257 
41-2320 



43-2583 



26-1474 



*IS-S69 
19-953 



*19-997 



25-1423 826-1461 
4 1-2300 



22-1191 

24-1395 

*21-1122 

39-2194 



24-1364 
41-22'=)5 
22-n7b 

42-2461 



44-2655 



22-1199 ♦:3-i2:: 

44-2626 



^T W _' 1 ^ ^ W 



23-1241 



BISYNC 


CRERTED BY 


MRCRO ON 6 


-DEC-77 RT 


08: 18 


F 
PRGE 11 


7 














SYMBOL 


CROSS REFERENCE 








CREF 
















SYMBOL 


VALUE 


REFERENCES 






















THC 


= 000116 


«6-Hl5 


6-416 


17-833 


118-878 
















TIB 


= 000 15H 


116-437 


6-440 


15-689 


















T 1 C 1 NT 


000006 R 


»4-367 


*15-675 


40-2234 


















TPRNER 


005H76 R 


41-2347 


42-2448 


42-2454 


842-2457 
















TRRNl 


005504 R 


«42-2458 


42-2472 




















TPQN2 


0055m R 


M42-2465 


42-2493 




















TPC 


= 0001 m 


116-413 


6-414 


6-415 


17-828 


♦18-873 


18-884 


♦19-1029 










TPNREC 


= 001000 


»8-492 


42-2398 




















TP't'NRK 


00017H R 


24-1354 


824-1372 




















TSR 


= 000066 


«6-402 


6-403 


«16-793 


19 955 


26-1468 














TSU 


= oooom 


«6-394 


6-395 


♦16-800 


♦16-806 


»18-918 


*18-924 


*19-935 


19-1021 


«24- 


•1267 








25-1431 


25-1449 


♦25-1451 


26-1467 


♦26-1476 


139-2170 


*39-2191 


♦:41-2326 


*42- 


■2457 








«42-2468 


»42-2474 


42-2478 


42-2489 


♦44-2623 


44-2651 












TTM 


= OOOllO 


«fa-411 


6-412 




















TT2fl 


= 000144 


»6-430 


6-431 


25-1415 


♦40-2211 
















TT2C 


= 000146 


»6-431 


6-432 


25-1416 


♦40-2212 
















TT3PI 


= OOOIBO 


;6-432 


6-433 


25-1417 


♦40-2213 
















TXC 


= 000064 


»6-401 


d-402 


♦16-781 


♦17-820 
















Tlfl 


= 000074 


U6-405 


6-40t) 


♦21-1140 


















TIC 


= 000076 


86-406 


6-407 


♦2i-;i4i 


















T2R 


= 000100 


»6-407 

♦40-2221 


6-408 

♦40-2222 


19-- 94 9 


119-954 


♦24-1355 


♦24-1358 


♦:24-1372 


*25-1415 


40- 


■?''n 




T2C 


= 000102 


86-40S 
♦24-12S? 


6-409 
♦24-1373 


*!7-S19 
♦25-1416 


17-821 
40-2212 


t\7-S33 
♦40-2223 


18-878 


18-886 


19-950 


«19- 


■952 




T3R 


= 000104 


«6-409 
40-2213 


b-41G 
♦40-2224 


♦i?-1011 


♦19-1012 


♦19-1047 


♦19-1048 


♦24-1361 


♦24-1362 


*25- 


■1417 




T3C 


= 000106 


»b-4lC 


6-411 


*19-1013 


♦19-1049 


♦24-1363 














UPPTIM 


= 000000 


U3-236 

40-2246 


4-323 
44-2641 


4-342 


4-349 


4-352 


4-356 


15-671 


25-1444 


40- 


•2233 




UBL 


= 000026 


P6-399 


b-400 


15-700 


24-1302 
















UOVR 


= 000020 


»S-4S6 


15-732 


37-2103 


38-2152 
















XflC 


= 010000 


87-475 


16-766 


19-1030 


22-1178 


26-1474 


41-2324 












XMTTMT 


= tttttt G 


39-2181 


♦39-21S2 




















XPT 


= C20000 


87-460 


16-784 


16-787 


23-1235 


23-123S 














XRC 


= 000001 


87-44S 


7-449 


21-1123 


















XXP 


= 010000 


87-459 


16-786 


1S-S57 


lS-Sb7 


1S-S74 


lS-929 


19-968 


19-1001 








X. 


= 000002 


87-449 






















XI 


001776 R 


20-106S 


820-1073 





















BISVNC CRERTED BY flRCRO ON fe-DEC-77 RT 08 18 

nQCPO rPOSS REFERENCE 

MRCPO NRME REFERENCES 

HEX «35-178b Il35-l80^ II35- 

»35-l815 1135-1816 »35- 

U35-1827 1135-1829 II35- 

R35-18H0 »35-18m »35- 

»35-18C2 M35-1855 »35- 

»35-18b6 »35-1867 »35- 

»36-1878 »35-1879 »35- 

»35-1892 M35-1893 »35- 

»3B-1903 «35-190fe «35- 

»35-1917 »35-1918 »35- 

»35-l932 «35-1933 »35- 

S3S-19HH »35-19H5 IJ35- 

»3E-1956 «35-19E9 



PRGE 
CREF 



12 



G 7 



«35- 



1805 
1817 
1830 
18H2 
1856 
1868 
1880 
189H 
1907 
1919 
193H 
19H6 
1960 



It35-1806 
1135-1818 
#35-1831 
II35-18H5 
« 35-1857 
#35-1869 
#35-1881 
#35-1896 
#35-1908 
#35-1920 
#35-1935 
#35-19H9 
#35-1961 



#35-1807 
#35-1819 
#35-1832 
#35-t8H6 
#35-1858 
#35-1870 
#35-1882 
#35-1897 
#35-1909 
#35-1921 
#35-1936 
#35-1950 
#35-1962 



#35-1808 
^35-1820 
#35-1835 
#35-18H7 
#35-1859 
#35-1871 
#35-1887 
#35-1898 
#35-1910 
#35-1922 
#35-1939 
#35-1951 
#35-1963 



#35-1809 
#35-1821 
#35-1836 
#35-18H8 
#35-1860 
#35-1872 
#35-1888 
#35-1899 
#35-1911 
#35-1923 
#35-19H0 
#35-1952 
#35-1964 



#35-1810 
#35-182H 
#35-1837 
#35-18^9 
#35-1861 
#35-1875 
#35-1889 
#35-1900 
#35-1912 
#35-1929 
#35-19m 
#35-lb'53 
#35-1965 



#35-1811 
#36-1825 
#35-1838 
#35-1860 
#36-1862 
#36-1876 
#36-1890 
#36-1901 
#36-1913 
#36-1930 
#35-1942 
#35-195H 
#35-1966 



#J6-i8m 

#36-1826 
#36-1839 
#36-1861 
#36-1866 
#36-1877 
#36-1891 
#36-1902 
#36-1916 
#36-1931 
#35-1943 
#35-1955 



L 



CLOSE M«CPO nnOH Ofe-OEC-77 08:19 PAGE 1 



H 7 



[ 



t 

2 
3 

5 
h 
7 

8 

9 

10 
11 
12 
13 
\^ 
IB 
lb 

IS 
19 
20 
21 

n .-^ 
Li. 
O "» 

24 
25 
26 
27 
28 
29 
30 
31 

34 

3b 

37 

3S 
39 

io 

m 

42 

44 
4 5 
4b 
47 
48 
49 
BO 
51 
52 
53 
54 
5B 
5b 



OOOOGl 
OOOGGl 
000002 
000000 



OCOOOG 



;PREFIX FILE FOR 2780 UflP RUNNING UNDER RSXllM 

RSX=1 

RSXnh=l 

NTRNSF = 2 ;NUMBER OF FILES - 1 TO TRANSFER IN ONE CflMD STRING (3) 

NRCVSF = G ;NUriBER OF FILES - 1 TO RECEIVE (1) 



; MACRO 


DEFINITIONS 




TflGNUn= 







. MACRO 


ERROR TEXT 




ERRORK 


<TEXT> 




JSR 


PC, PROMPT 




. ENDM 




; MfiCRO 


TO DO A 


KILL AND QUE 


f 


. MACRO 


ERRORK TEXT 




TAGNUM= 


TAGNUM+1 




. IRP 


N, < TAGNUM) 




JSR 


R5,TYPriSG 




. WORD 


TAG'N 




. WORD 


TRGE'N-TAG'N 




. PSECT 


MESAG2.GBL 


TRG'N; 
TRGE'N: 


. RSCII 


"TEXT" 


. PSECT 


rifl i N 




. ENDM 






. ENDM 





MACRO TO QUEUE A MESSAGE ONlY 





. MACRO 


ERRORM TEXT 




TRGNUM= 


TAGNUM+1 




. IRP 


N, < TAGNUM> 




JSP 


R5, TYPMSl 




. WORD 


1-AG'N 




. WORD 


TAGE'N-TAG'N 




. PSECT 


MESAG2.GBL 


TAG ' N: 


. ASCI 1 


"TEXT" 


TRGE'N: 








. PSECT 


MA!N 




. ENDM 






. ENDM 




; MACRO 


TO QUEUE A MESSAGE AND P 


/ 


. MACRO 


ERRORP TEXT 




ERRORM 


vTEXT) 




JSR 


PC PROMPT 




. ENDM 




f ,' 


MACRO 


FATAL TEXT 




ERRORK 


aEXT) 




JSP 


R5.DIE 




. ENDM 





CLOSE liOCPO nnOH Ob-DEC-77 08:19 PPiGE 2 



t 
1 
3 

% 
S 
6 
7 

8 
9 

to 
n 

12 
13 
IH 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2H 
2& 
tk 

tr 

28 
29 

30 

31 
32 

21 
2M 

:6 

36 
37 
38 
39 

m 

^5 000000 

«*§ 

•♦9 
50 
St 

52 

SI 

55 
5b 
57 



000000 
000000 



000000 



000000 
000004 
000010 
000012 



012700 

i03mb 



GOOOOOG 



.TITLE CLOSE 
. I DENT /00006/ 

COPYRIGHT (C) 1975.1976.1977 

DIGITAL EQUIPMENT CORPORRTION. MflYNflRD. MRSS. 01754 

THIS SOFTWRRE IS FURNISHED UNDER fl LICENSE FOR USE ONLY ON 
fl SINGLE COMPUTER SYSTEM PND MAY 3E COPIED ONLY WITH 
THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE. iHIS 
SOFTWARE, OR ANY OTHER COPIES THEREOF. MAY NOT BE PROVIDED 
OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO 
THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF THE 
SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC. 

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE 
WITHOUT NOTICE AND SHOULD NOT BE CONSTRJED AS A COM- 
niTMENT BY DIGITAL EQUIPMENT CORPORATION. 

DEC ASSUMES NO RESPONSIBILITY FOP THE USE OP PELlABILlTY 
OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED Bf 
DEC. 

VERSION 

ROBERT H. POSENBAUM 12-AUGUST-^H 

LAST MODIFICATION ON 29-rifiY-75 

ROUTINES TO CLOSE RECEIVE FILES 



nOCPO CALLS 
. MCALL 



CLOSE't-FCSBTS-FDOFFS- C^LL.PETIjPN 



FCSBT% DEFSL 
FDOFF% DEFSL 

INPUTS: 

NONE 

OUTPUTS: 

BOTH INPUT FILES APE CLOSED AND THE PECE n/E BLOCK flPEfl 
IS UPDATE TO POINT TO THE flE.XT FiLE TO BE WRITTEN 



. PSECT MAIN 



CLOSER: 



. IF DF 

MOV 

JSR 

WAIT 
. CLOSE 
. ENDC 
. IF DF 
MOV 
CALL 
BCS 
CLOSES 

ENDC 



PTll 

nCHANL-PB 

PC-FILBUF 

12 

12 

RSK 

«FDBOUO-PO 
DLT2ER 
20S 



GET THE FIRST FOB ADDRESS 

DELETE THE FILE IF IT IS EMPTY 

IT WAS, NOW CHECK FOP SELECTIVE REfV 

NOT EMPTY - CLOSE THE ^ ILE 



r 



LLOSE riQCPO nnO^ Ob-DEC-?? 08: 19 PRGE 2-1 



J 7 



58 000016 

59 000022 
bO 

bl 
62 
bZ 
bH 00002^ 

66 000030 
bb 

67 000032 
63 000036 
69 OOOOWO 
70 

71 



73 

75 



77 
7S 
79 
SO 
SI 

82 0000W6 

83 000052 

8^ 0000514 

85 000060 

86 000064 

87 OOOObb 
SS 000072 

S9 
90 
91 00C076 



106767 OOOOGOG 
001011 



005777 
10040b 



1057b7 
100403 



OOOOOOG 



OOOOOOG 
062767 000036G OOOOOOG 



20s. 



1057b7 OOOOOOG 

00141 1 

012700 OOOOOOG 

103402 

OC5G60 000120 



000207 



20S; 



25S- 



10*- 



TSTB 
BNE 

. IF DF 
ROD 
.ENDC 
. IF OF 
TST 
BMI 

TSTB 

BMI 

ROD 

. ENDC 

. IF DF 

TSTB 

6EQ 

MOU 

JSP 
ENDC 
IF DF 
WRIT 
CLOSE 
ENDC 
IF DF 

TSTB 

BEQ 

r\0\i 

CRLL 

BCS 

CLOSES 

CLR 

. ENDC 
RTS 



RCHN 
20) 
RTH 
«12,RCVBLK 

RSX 

dRCUBLK 

20s 

INCRCV 

205 

«S. FNB^RCVSWT, 

RTll 

SWPSL 

30% 

SCHRNL2.P5 

PC.FILBUF 

PTll 

13 

12 

RSX 

SWPSL 

30% 

«FDB0U1-P0 

DLTZER 

25% 

F.FVEP'RO) 



PC 



; RECEIVE CHRIN MODE? 

;YES - DON'T INCREMENT TO NEXT FILE 

;N0. GET NEXT RECEIVE FILE 



;RNY MORE RECEIVE FILES? 
;N0, - DON'T INCREMENT TO NEXT FILE 
; SINCE THERE IS NONE! 
; INCOMPLETE RECEIVE PENDING? 
;YES, DON'T INCREMENT TO NEXT FILE 
RCVBLK ;N0, GET NEXT RECEIVE FILE 



;SELECTIVE RECEIVE'' 
;N0 



•SELECTIVE RECEIVE RCTIVE? 

; NO 

;PUT PRINT FILE'S FOB IN PO 

;YES. DELETE THE PRINT FILE IF EMPTY 

, I T NRS 

;IN CRSE SELECTIVE RECEIVE RCTIVE 

;CLERP THE VERSION « SO FCS 

; WILL USE THE NEXT RVfllLPBLE 

;kETUPN 



L 



r 



CLOSE neiCPO nnO^ Ob-DEC-77 08: 19 PPGE 3 



K 7 



93 
9H 

95 

9e 

97 
98 

99 
100 
101 
102 
103 
ICh 
105 
10b 
107 
lOS 
109 
110 
111 
112 
113 

im 



;•♦• 



000100 
000106 
000110 

oooim 

000116 
000124 
000126 
000132 
00C13H 



000142 
000144 
000! 4b 



«*-DLTZER-DELETE fl FILE 
INPUTS: 



F IT IS ZERO LENGTH 



132760 
GC1016 
005760 
001013 
022760 
001007 
00E760 
001004 



000001 000017 DLT2ER: 



000010 
000001 
000014 



000012 



000140 000261 



000^401 
000241 



RO=FDB ADDRESS 



BITB 
BNE 
TST 
BNE 

crip 

BNE 
TST 
BNE 
CALL 



SEC 





BR 


105 


CLC 


20S 


RETURN 



«FD. REC.F. RCTL(RO) /IS THIS fl RECORD-ORIENTED DEUICE' 



lOS 

F.EFBK(RO) 

ID'S 

»1,F. EFBK+2fR0) 

105 

F.FFBY(RO) 

IDS 

.DLFNB 



20S 



YES. JUST CLOSE THE FILE 
LOST BLOCK NUMBER 1? 
NO 



FIRST FREE BYTE 0^ 

NO 

ALL ZERO - FILE IS EMPTY 

SO DELETE IT AND USE IT RGRIN FOP 

NEXT RECEIVE OPERPTION 
INDICATE TO CRLLER THAT FILE 

WAS DELETED 
RETURN 
INDICATE THAT FILE WAS NOT EMPTY 



r 



LOSE mc,90 MllOH Ob-DEC-77 08: 19 PRGE H 



L 7 



['f 



116 




117 




lis 




119 




UO 




121 




1 Artte 






123 




1 24 000150 




i:s 




IZb 000 ISO 




12" 




12S 000 IbO 


000207 


129 




130 


OOOOGl 



; ROUTINE TO CLOSE TRRNSMIT FILE 

+ 
INPUTS: 

NONE 
OUTPUTS: 

INPUT FILE IS CLOSED 



CLOSET: 



.IF DF RSX 

CLOSES «FDB1N 
. ENDC 

PIS PC 

. END 



; Close the file 
: pnd petupn 



M 7 



n 



'-LOSE 


nflcpo ^no^ Ob 


-DEC-77 


08: 19 


S.nBOL 


TABLE 








CH. fir^D = 


000001 




FD. ISP = 


002000 


CLOSER 


OOOCOORG 


002 


FD. MNT= 


lOOOGG 


CLOSET 


000150RG 


002 


FD. OSP = 


004000 


DLTZER 


OOOIOOR 


002 


FD. PLC = 


GOOOOH 


Ffi flPD= 


000100 




FD. PSE = 


GIGOGG 


Ffl, CPE = 


000010 




FD. RfiH= 


OGGOOl 


Ffl. DLK = 


001000 




FD. RflN= 


0GGG02 


FO. ENB = 


100000 




FD. REC = 


OGGOOl 


FQ. EXC = 


002000 




FD. Rwn= 


000001 


i^P EXT = 


OOOOOH 




FD. SDI = 


GGG020 


FM NSP= 


000100 




FD. SQD= 


OOGOHO 


FP POS= 


010000 




FD. TTY= 


OOGOOH 


■r Q. RD - 


000001 




FD. WBH= 


000002 


"^H. RWD = 


OOHOOO 




FF. CHR = 


OOOOOB 


Ffl SEQ= 


040000 




FF. NV = 


000003 


■^fl SHP = 


OOOOHO 




FF. POE = 


000002 


Fp Tnp= 


000020 




FF. PUD= 


000001 


FP UCKr 


020000 




FF. RUF = 


OOQOOfe 


Ffl. WRT = 


00CJ32 




FF. SPC = 


OOOOOH 


FDBIN = 


Utttt GX 




FO. flPD= 


000106 


FDBOUO= 


ttttift G>; 




FO. nFY = 


000002 


FDB0U1= 


****** GX 




FO. RD = 


000001 


FD. BLK = 


000010 




FO. UPD= 


000006 


FD. CCL = 


000002 




FO WRT= 


000016 


FD. COM= 


020000 




F. flCTL = 


000076 


FD. CR = 


000002 




F. flLOC= 


GOOOHO 


FD. DIR = 


000010 




F. BBFS = 


000062 


FD. FTN= 


000001 




F. BDB = 


000070 


FD. Fn = 


OHOOOO 




F BGBC= 


000057 


FD. INS = 


000010 




F. BKDN = 


O00C26 


. flBS. 


000000 
000000 


000 
001 


; 




nflIN 


000162 


002 






ERRORS DETECTED: 


G 







PRGE 4-1 



M 7 



I'IRTUPL riEMOPY USED: 2523 WORDS 
DYNflniC riEMORY: 2S10 UOPDS ( 10 
ElPPSED TIME: 00; CO. 16 
:&b-n20 CLOSE; 27, 256.030 ClOSE/CPF 





BKDS= 


000020 




BKEF = 


000060 




BKPl = 


000051 




BKST= 


000024 




BKUB = 


000064 




CHR = 


000075 




CNTG= 


000034 




DFNB = 


000046 




DSPTr 


000044 




DVNri= 


000134 




EFBK= 


000010 




EFN = 


000050 




EOBB = 


000032 




ERR = 


000052 




FfiCC = 


000043 




FFBY= 


000014 




FNfln= 


000110 




FNB = 


000102 




FTYP = 


000116 




FVER = 


30120 




H1BK = 


000004 




LUN = 


000042 




nBCT = 


000054 




riBCl = 


000055 




nBFG= 


000056 




NRBD= 


000024 




NREC = 


00Q030 




OVBC= 


000030 




RflCC = 


000C16 



( 10 PAGES) 
PAGES' 



SP = UflFPXri.. CLOSE 



RflTT= 
RCNMs 
RCTL = 
RSIZ= 
RTYP= 
SEQN= 
SPDV= 
S?UN= 
STBK= 
UNITS 
URBD- 
VBN = 
VBSZ= 
INCRCV= 
NB. DEV= 
DIR = 
Nfln= 
SD1 = 
SD2= 
SNn= 
STP = 
SVR = 
TYP = 
VER = 
NRCVSF= 
NTRNSF= 
N. D I D = 
N. DVNn= 
H. FID = 



F. 
F. 
F. 
F. 
F. 
F. 
F. 
F. 
F. 
F. 
F. 
F. 
F. 



NB. 
NB. 
NB. 
NB. 
NB. 
NB. 
NB. 
NB. 
NB. 



OGGOOl 
000034 
0GGG17 
QG0GG2 
OGGGGG 
CCJIGO 
0G0G72 
000074 
000036 
000136 
OG0020 
0GG064 
000060 
tttttt 
000200 
000100 
000004 
000400 
001000 
000040 
000020 
000010 
000002 
GOOGOl 
000000 
G00002 
000024 
G00032 
000000 



GX 



N. 
N. 
N. 
N. 
N. 
N. 



FNfln= 
FTYP= 
FVERs 
NEXT= 
STflT= 
UNIT= 
PRRSSS: 
RCHN = 
RCVBLKs 
RCVSWTs 
RSX = 
RSX11M= 
R. FIX = 
R. SEQ = 
R. VRR = 
SURSL = 
S. FPTT= 
FOB = 
FNPri= 
FNB = 
FNBW= 
FNTY= 
FTYP = 
NFEN= 
TflGNUri= 
. CLOSE= 
DLFNB= 
. . . GBL = 
. . . TPC = 



c 
S. 

s' 

S. 

S. 
c 



000006 
G00014 
000016 
000022 
000020 
000034 
G00027 

tnttt 
tttttt 
tttttt 

OGGOOl 
000001 
000001 
000003 
000002 
tttttt 
000016 
000140 
OOOOOb 
000036 
000017 
000004 
000002 
000020 
OCOGOO 
****** 

/^ ^ ^ ^ ^ ^ 

000000 
000140 



GX 
GX 
GX 



D( 



3X 



G 
GX 



N 7 



CLOSE 




CRERTED BV 


nflCRO ON 6-DEC-77 


S'MBOL 


CROSS REFERENCE 




SYMBOL 


VRLUE 




REFERENCES 


CLOSER 




OOCOOO 


RG 


«2-45 


CLOSET 




000150 


RG 


»4-124 


DLT2EP 




000100 


R 


2-54 2-85 


FOB IN 


z 


ttttt* 


GX 


4-126 . 4-126 


FDBOUO 


z 


tttttii 


GX 


2-53 


FDBOUl 


~ 


****** 


GX 


2-84 


FO REC 


z 


000001 




3-99 


F.EFBK 


: 


000010 




3-101 3-103 


F FFBY 


= 


ooQom 




3-105 


F. FUEP 


r 


000120 




*:-S8 


F RCTL 


r 


000017 




V-QQ 


1 NCR CI' 


r 


****** 


GX 


2-67 


NPCVSF 


r 


GOOOOO 




«l-5 


NTRNS^^ 


3 


C00002 




8 1-U 


PflPSSS 


= 


00002:^ 




84-126 4-126 


PCHN 


- 


****** 


GX 


2-5S 


RCUBLh 


- 


****** 


GX 


2-b4 *:-69 


PCl'SUT 


z 


****** 


GX 


2-b9 


PSX 


r 


000001 




81-: 2-52 


PSXllM 


= 


C00001 




81-3 


PTH 


= 


****** 




2-46 2-60 


SWRSL 


z 


****** 


GX 


2-s: 


S. FNB 


z 


000036 




2-69 


TRGNUn 


z 


000000 




81-S 


. Close 


z 


****** 


G 


:-5b :-B6 


DLFNB 


z 


****** 


GX 


>I07 



AT 08: 19 



PRGE 1 
CREF 



N 7 



DP 



83-99 






'-"1 



'-C- 



2-Sl 
2-77 

2-s:- 



4-12S 



U-lZn 



4-126 



B 8 

CLOSE CRERiED BY MACRO ON 6-DEC-77 PT 08 19 PFlGE ^ 

MRCPO CPOSS PEFlRENCE CREF 

riRCRO NflnE REFERENCES 

C«LL «2-33 »2-5^ S2-8B JIJ-107 

CLOSES «2-33 »2-56 »2-87 ;^-126 

EPPOP i;i-9 

EPPOPK Sl-lb 

ERPORM 81-32 

EPPOPP 81-^7 

EPPS «2-5b «2-ES «2-87 ;2-87 ;H-126 «H-12b 

FRTflL »i-53 

FCSBTS «2-33 «2-3'4 

FDO'^FS «2-33 2-35 

LDFDBS n2-Sb 2-56 «2-S7 2-87 8^-126 H-12e 

PETiJPN nl-ZZ «3-llH 



DELETE MPCPO nilOH 06-DEC-77 08:20 PRGE 1 



C H 



2 


OOOOOl 


7 


000001 


H 


000002 


S 


000000 






s 


ocoooo 


q 




10 




n 




i: 




\3 




14 




IB 




lb 




17 




IS 




19 




20 




21 




22 




23 


■■ 


2H 




25 




26 




27 




28 




29 




30 




31 




32 




ZZ 




34 




35 





3b 
Z7 
38 

HO 
43 

ti 

«♦& 

47 

4S 

49 
50 

it 

SI 

m 
u 



; PREFIX FILE FOR 2780 UfiP RUNNING UNDER RSXllM 
RSX=1 

Rsxnri=i 

NTRNSF=2 ;NUnBER OF FILES - 1 TO TPPNSFER IN ONE CnttD STRING (3) 

NRCVSF=0 ;NUnBER OF FILES - 1 TO RECEIVE (1) 



; MACRO 


DEFINITIONS 




TfiGNUM=0 




. nPCRO ERROR TEXT 




ERRORK <TEXT> 




JSR PC, PROMPT 




.ENDM 


; MRCRO 


TO DO 9 KILL RND QUE 


/ 


.MACRO ERRORK TEXT 




TflGNUrirTflGNUM + l 




. IPP N, < TOGNUM) 




JSR R5,TYPriSG 




. UORD TfiG'N 




. WORD TRGE'N-TRG'N 




PSECT MES0G2.GBL 


TflG'N: 
TflGE'N: 


. flSCI 1 "TEXT" 


. PSECT MfliN , 




. ENDM 




. ENDM 



> 
* 



MPCRO TO QUEUE R MESSAGE ONlY 





. MACRO 


ERRORM TEXT 




TflGNUM= 


TAGNUM+1 




. IRP 


N, < TflGNUM> 




JSR 


R5, TYPMSl 




. WORD 


TAG'N 




.WORD 


TAGE'N-TAG'N 




. PSECT 


MESAG2.GBL 


TflG'N: 


. ASC 1 1 


"TEXT" 


TflGE'N: 








.PSECT 


MAIN 




. ENDM 






. ENDM 





MACRO TO QUEUE A MESSAGE AND PROMPT 

. MACRO ERRORP TEXT 

ERRORM <TEXT> 

JSR PC. PROMPT 
. ENDM 



.MACRO FATAL 

ERRORK aEXT) 

JSR R5.D1E 
. ENDM 



TEXT 



DClETE MflCPO nnOH O6-DEC-77 O?; 20 PfiGE 2 



D 8 



1 












. 3 






% 






i 






i 






T 






i 






f 






i§ 






it 






\Z 






13 






ti 






If 






I& 






17 






18 






If 






20 






21 






22 






^ 7 






<:.:> 






2H 






25 






2b 






27 






28 






29 






30 






31 






32 






ZZ 000000 






3^ 






36 






3fc 






37 






38 






39 






40 






HI 000000 






U2 000000 


012700 


OOOOOOG 


Hi OOOOOH 






HH 000010 


012700 


OOOOGOG 


45 000014 






46 000020 


000207 




47 







•TITLE DELETE 
I DENT /OOOGl/ 

COPYRIGHT (C) 1975. 1976. 1977 

DIGITPL EOUIPnENT CORPORRTION, MflYNflRD. MflSS. 01754 

THIS SOFTWRRE 13 FURNISHED UNDER P LICENSE FOR USE ONLY ON 
fl SINGLE COMPUTER SYSTEM AND flRY SE COPIED ONLY WITH 
THE INCLUSION OF THE RBOVE COPYRIGHT NOTICE. THIS 
SOFTWRRE, OR RNY OTHER COPIES THEREOF, MRY NOT BE PROVIDED 
OR OTHERWISE MRDE RVRILRBLE TO RNY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM RND TO ONE WHO PGREES TO 
THESE LICENSE TERMS. TITLE TO RND OWNERSHIP OF THE 
SOFTWRRE SHRLL RT RLL TIMES REMRIN IN DEC. 

THE INFORMRTION IN THIS DOCUMENT IS SUBJECT TO CHANGE 
WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED PS P COn- 
niTflENT BY DIQITRL EQUIPMENT CORPORPTION. 

DEC ASSUMES NO PESPONS I B IL I TY FOR THE USE OP RELIABILITY 
OF ITS SOFTUAPE ON EQUlPtlENT WHICH IS NOT SUPPLIED BY 
DEC. 

VERSION 

POBEPT H. POSENBAUn 12-AUGUST-74 

DELETE OUTPUT FILES 

MACPO CALLS 

. nCALL CALL 

.P SECT MAIN 



; + 



INPUTS: 

NONE 
OUTPUTS: 

FILES WITH FOB'S AT LABELS FDBOUO h FDBOUl APE DELETED 

AND CLOSED 



DELETE: 



48 



OuOOOl 



MOV 

CALL 

MOV 

CALL 

RTS 

. END 



«FDBOUC.RO 
. DLFNB 
SFDBOUKPO 

DLFNB 
PC 



PUT ADDR OF FDB INTO RO 

AND DELETE FIRST FILE BY «^NB 

PUT ADDP OF FDB INTO PO 

AND DELETE SECOND FILE BY FNB 

AND PETUPN 



DELETE nflCPO nilOH 06-DEC-"^7 08:20 PRGE 2-1 
SYMBOL TPBLE 



E 8 



DELETE QOQOOOPG 
FDBOUO= ititit GX 

PIBS. OGOOOO 
000000 
MAIN 000022 
EPROPS DETECTED: 



002 FDBoui= nttn GX 

NRCVSFr 000000 

000 
001 
002 



NTRNSFs 000002 
PSX = 000001 



Rsxiin= 000001 

TRGNUn= 000000 



DLFNB= «l*l«l GX 



VIPTUOL riEnOPY USED: m6 UORDS ( 2 PAGES) 
DVNPMIC MEMORY: 2810 WORDS ( 10 PAGES) 
ELPPSED TIME: 00: 00: 04 
:BbO:0 DELETE ;£". 2St.0Z0 DELETE/CPF/-SP=UfiPPXM. DELETE 



DELETE 


CRERTED BY 


MRCRO ON 6-DEC-77 


SYMBOL 


CROSS REFERENCE 




SYMBOL 


^ifiLUE 




Rf-FERENCES 


DELETE 


000000 


RG 


»2-Hl 


FDBOUO 


= *»»«** 


GX 


2-H2 


FDBOUl 


= tttttt 


GX 


2-Hi* 


NPCVSF 


= 000000 




»l-5 


NTPNSF 


= 000002 




»l-H 


PSX 


= 000001 




»l-2 


psxiin 


= 000001 




M-3 


TRGNUn 


= OQOOOO 




»l-8 


OlFNB 


= ***tl* 


GX 


2-43 2-45 



AT 08 20 



PfiGE 1 
CREF 



F 8 



L 



G 8 
DELETE CRERTEO BY nRCRO ON 6-DEC-77 AT 08 20 PfiGE 2 

MfiCPO CPOSS REFERENCE CREF 

MRCPO MflflE REFERENCES 

CRLL «2-3l 2-U3 2-i*5 

EPPOP 81-9 

EPPOPt" «l-lfc 

EPPOPn 81-32 

EPPOPP 81-H7 

FnTPL «1-53 



['Pvn2 npcpo rinoi4 ob-OEC-?? 08; 20 prge 1 



H 8 





000001 


3 


000001 


H 


000000 


B 


000000 



;PREFiy FILE FOR RSX-lin DPll OR DUll ISR 

RSX= 1 .SET FOR CUTBACK CODE JflN 

RSXliri=l 

RCVSIB=0 

CRBINT=0 



•77 



L 



DP'iu: :iocpo nnon Ob-DEC-77 08: 20 prge 2 



8 



t 
2 
3 



H 


000000 


S 


0002H0 


6 


0002m 


7 


000242 


8 


0C02H4 


9 


000250 


10 


000257 


u 


000261 


12 


000262 


13 


000264 


14 


000270 


IB 


000277 



;PREFIX 

; WHICH 

;RPPEfiR 

HPLT=0 

N0P=240 

CLC = 2m 

CLV=242 

CL2=2H4 

CLN=250 

CCC=257 

SEC=2fel 

SEV=262 

SE2=264 

SEN=27n 

SCC=277 



FILE FOR RSXnn ASSEMBLER AND ANY OTHER ASSEMBLER 
DOES NOT RECOGNIZE OPCODC MNEMONICS EXCEPT WHEN THEY 
IN THE OPCODE FIELD 



DP^ni: nflcpo nnoH Ob-DEC-?? 08: 20 PfiGE 3 



J 8 



t 
2 
3 

7 
Z 

to 

It 

12 
13 
IH 
IS 
16 
17 
18 
If 

m 
at 
n 

a«i 

2S 
2i 
t7 



30 
31 
32 

^ 

^ 
37 

38 

39 

HO 

m 

42 

HH 

4b 
47 
HS 
49 
BO 
51 
52 
53 
54 
55 
5b 
57 



;COMTEX-n DPll SYNCHRONOUS LINE fiOflPTER I SR 



COPYRIGHT (C) 1975. 1976. 
DIGITAL EQUIPMENT CORPORfiT 



1977 

ON, MflYNflRD, 



MASS 01754 



THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON 
R SINGLE COMPUTER SYSTEM AND MAY 3E COPIED ONLY WITH 
THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS 
SOFTWARE, OR ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED 
OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO 
THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF THE 
SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC. 



THE INFORMATION IN 
WITHOUT NOTICE AND 
MITMENT BY DIGITAL 



THIS DOCUMENT IS SUBJECT TO CHANGE 
SHOULD NOT BE CONSTRUED AS A COM- 
EQUIPMENT CORPORATION. 



DEC ASSUMES NO RESPONS IB iL ITY FOR THE USE 
OF ITS SOFTWARE ON EQUIPMEir WHICH IS NOT 
DEC. 



OP PELlABIL 
SUPPLIED BY 



TY 



KLl 
CP. RST 



NED 



SYSTEfl INTO 
CODE FOR RSXllD 

S THAT 

AS IT 
N A SEPARATE MODULE) 



VOl-01 1/9/74 HMS 

SUPPORT ADDED FOR PSTS, PSXllD 

VOl-02 7/2/74 RHR 

SUPPORT ADDED FOR RSXllM 

V'01-03 7/23/74 JLH 

CORRECTIONS TO CP. RST. CP 

DISCONNECT FROM VECTOR IN 

vol -04 7/24/74 RHP 

MOVE CONNECT TO INTERRUPT CODE FOR RSXllM 

THE EXEC'S BUFFER POOL. AS R RESULT THIS 

AND RSXllM LOOKS THE SAME. THE MAIN DIFFERENCE 

. .CINT IS A ROUTINE IN THE EXEC FOP PSXllD WHERE 

IS A ROUTINE IN THE USERS AREA (DEF 

FOP RSXllM 

VOl-05 10/15/74 RHR 

REPLACE OFFSET (60000) 

LOADERS WHEN ASSEMBLED 

VOl-06 1/22/75 JLH 

CORRECT DEFINITIONS OF DEVICE ADDPESS AND ViECTiP FOp P'-.T'^/E 

vol -07 7/2/75 RHR 

MAKE DEVICE PRIORITY A GLOBAL DEFINITION FOR PSX 

vol -10 9/5/75 BLP 

FOR RTll r"/B 

7/21/76 CEP 

TO RUN WITH VbB 

8'77 CEP 

FOR CUT-CODE VERS 



IN TABLE FOR 
FOP RSX-llD 



ADDRESSES OF CPB AND SIB 



MODIFY 
VOl-11 
MODIFY 
VO 1-12 
MODIFY 



OF PSTS/E 



C^W 



TITLE DPV112 



; TABLE PORTION , INCLUDES OEFINTIONS> ISP TABLES "EC TOP DEFINITIONS 
. IF DF PS/HD'PSXliniRTn 



r 



DPvn2 npcpo nno^ ob-OEC-77 08: 20 prge 3-1 



K 8 



S8 
B9 

bO 
bl 
62 
63 



000000 



0S=0 

os=o 



ENDC 

IF DF RSTS 

ENDC 



oH 




65 




bb 




67 




68 




69 




70 




71 




'■ it 




'^''4 




^c. 




7b 




•77 
1 < 




7S 




7q 




SO 




SI 


000000 


82 




83 


OGOOOl 


84 




86 




86 




S7 




SS 




S9 





;DP11 ISR GLOBRLS 



GLCBL 

GLOBL 

GLOBL 

IF DF 

nCflLL 

. V2. . 

GLOBL 

ENDC 

l"^ DF 

GLOBL 

ENDC 



C.SPS,C.S«RR 

CPR2,CPT2 

CP. OSU.CP. MDM.CP. nOD.CP. IN!,CP. KLL 

Pin 

• DEVICE.. . V2.. 

. . CIMT.. . DlNT,CFKLU.RMON 



RSTS 



CFKLU.CSR. RJ 



. IF DF 03 
LNO= 

. ENDC 
CPD26=1 



DPll LINE NUMBER =- FOR RSTS/RSXllD 



DEF 
FOR 



NE flS 1 TO CONFIGURE DPll ISR 



DECC0rinilD2b 



SYSTEM, (LINE 2- 
=174770, VECTORS 
300 THRU 400). 



2780 EMULATOR 
DPll PSP ADDRESS 
DEFINED FROM 



93 




94 




9B 




96 




97 




9S 




QQ 




lO'J 




101 




in: 




103 


177776 


104 


000000 


106 


000001 


106 


000002 


107 


000003 


lOS 


000004 


109 


000006 


110 


000006 


1 11 


00C007 


112 


000006 


113 


000007 


114 





DEFINE flS TO CONFIGURE FOR 

GENERRL DPll SUPPORT. LINE 1. 

DPll RSRM74760. VECTOR 310, GENERAL 

CRB ROUTINES (CRBX). 

LINt 2: DPll RSR=174770, VECTOR 300, 

CPB2 ROUTINES. 

ADDITIONAL DPll'S CAN BE SUPPORTED 

BY ADDING ADDITIONAL VECTOR DEFINITIONS, 

ISR LINE TABLES AND CRB ROUTINES 



START OF DPll 


INTERRUPT 


VECTOR PAIRS 


nttttuu 








DEFINITIONS OF 


PEGI 


STEPS 


.- ETC. 


PS=1777:'b 






ROr:;0 








Rl = ::l 








R2=%2 








R3=>.3 








R4 = >,4 








R6=*;6 








Pb-'ib 








R7=*/;7 








SP = *.6 








PC = ';7 









s 



n 



dpmh: ti«rpo ^llO^ ob-DEC-?? 08: 20 PRGE 3-2 



L 8 



Di 



lis 


0002H0 


lib 


000254 


117 


Q0027H 


lis 


0002B2 


119 




i:c 





N0P = 2i*0 
CL2N=254 
SEZN=274 
CLVN=252 



M 



n 



DPVltZ nPCPO niiOV Ofc-OEC-77 08; 20 PPiGE 4 



n 8 



1:2 




123 




1 :h 




i:b 




IZb 




127 




12S 




129 




1:0 




1:1 




132 ' 




177 


GOOrjOO 


!3H 




i:b 


010000 


13fe 


o:oooQ 


137 


040000 


!i8 


130000 


^.3? 




mo , 




ILH 




m2 




m3 


OOOOuO 


m4 




m5 




mb ooooco 




m? 





;DP11 ISP DEFINITIONS 



IF DF 

6L0BL 

GLOBL 

GL08L 

ENDC 

IF D*^ 



RSXllDlRSXnri'RTll 
CPRSR 



CPVP 
DE. PR 

RSTS 



VECTOR 
DEVICE 



ADDRESS GLOBALLY DEFINED 
PRIORITY GLOBPLLV DEFINED 



DE 
. E 

CPRTC=0 



ENl' 



PRI=300 



DEFflULT TO LEVEL 6 ; 

TYPE CODE FOP INPUT FPOH DPI 



CPBi:=10000 
CPB13=2G000 
rPB14=H0000 
CPB15=100000 
. IF DF PSXllP 
. PSECT ISP-CON 
OFFrbOOOO 
.IFF 
:iFF = 

ENDC 

IF DF 

PSECT 

ENDC 



PSXliri 
'.SP.CON 



I 



Ji_8 



I~ 



DP'iUZ nflCPO nilQi. Cb-DEC-<^7 08:20 PfiGE 5 



N 8 



DP 



U9 




ISO 




ISl 




152 




153 




1E4 




ISE 




IBb 




IE" 




IBS 


^ OOOGOH 


IB9 


000010 


160 




161 


OOGOIO 


162 


000012 


163 


000013 


I >oH 


0000 m 


\ 65 


ooonib 


lc6 


000C20 


167 


000022 


IbS 


00002H 


169 


000026 


170 


000030 


171 


000032 


172 


0000 3^ 


173 


000036 


17^ 


nooouo 


175 


oooch: 


176 


OOCOi+H 


177 


OOOOHb 



NDEX DEFINTIONS FOR DPll LINE TABLE 



R: 



THESE GIVE THE 
FROM THE STRRT 
WHEN USED BY THE 
THE OFFSEiS RRE R 
THESE ARE USED IN 
THUS PRESERVING fi 
PROV 
^.^ 

:10 



DISPLRCMENTS OF THE VARIOUS PflRfl*1ETERS 
OF THE ISR LINE PflRflMETER flREP FOR EACH LINE 
NTERRUPT ROUTINES THEY REQUIRE PN OFFSET 
FOR RECE'VE RND X FOR TRflNSniT 

THE FORn flflfi-R OR flRP-X IN THE l^'TERRUPT ROUTINES 
CONSISTENT flNEMONIC USRGE FOi?! EP;:h 'NDEX WHILE 
DING TKE CORRECTLY OFFSET VALUE REQUIRED BY THE inPLEflENTRT !0N 
, SUBTRACTED FROM ANY INDEX USED BY CPRIS 
SUBTRACTED FROM ANY INDEX USED BY CPTIS 



SRP.r 

LNR- 
STC = 
XFR = 
XBR = 
RPR = 
RBR = 
C3L = 

■:bu= 

CBI = 
SBL = 

yup = 

XBR= 
XBC = 
SSC = 
WBF = 
CPTL 



A. 

LNP+l 
STC-^l 
XFR + 2 
XBR + 2 
RPR + 2 
RBR + 2 
CBL-^-2 
CBU+2 
CCl+2 
?RL + 2 
XUP + 2 
XBO+: 
XB'' + 2 

ss;>: 
=weF+: 



DPll STATUS REGISTER ADDRESS 
(BYTE) LINE NUMBER 
(BYTE J SIB TYPE CODE 
INTERRUPT SEP MCE PRIORITY - XhlV 
BR BUSY WORD IN SCHEDULER - XM i T 
INTERRUPT SERVICE PRIORITY - PCV 
BR BUSY WORD IN SCHEDULER - RC\' 
CRB LOADER FOP THIS LINE 
CRB UNLOADER FOR TH :. LINE 
CRB 'NIT ROUTINE FOR THIS LINE 
SIB LOADER FOR THIS LINE 
POINTER TO NEXT XM I T WORD PAiR 
CURRENT XMIT PUFFER r^DDRESS 
CURRENT XMIT RESIDUAL BYTE COUNT 
STRiP SYNCH CONTROL FLAG 
UOPD.'BY^E SELECT FLAG 
SIZE OF ISP LINE TPBi E M BYTES. 



^ _. .- >^ — n "• in- 



0P'in2 hRCPO nil04 Ob-OEC-?? 08:20 PfiGL 6 



B 9 



179 
18C 
181 
182 
183 
184 
ISt. 
186 
IS? 
188 
189 
190 
191 
192 

193 

\Q^ 

196 

19b 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 



000000' 



;STRRT OF DP 11 
IF NDF 

cpns=. 

.THIS SERIES OF 
;fiLL DPll LINES 

ttttttttn 

LINE TABLE FOP DPll »2 



NTERRUPT SERVICE 
RSTS 

CODING WOULD BE CONTINUED FOR 
IN THE SYSTEM. 



000000 



CPP2: 



OGOOOO 
000004 



004267 00Cb4b 



cpt; 



000004 004267 000" 1 4 



000010 
000010 
000012 
000013 



OOOOCOG 
000 
100 



CPS2: 



213 


000014 


OOOOOOG 


214 


000016 


OOUOOOG 


215 


000020 


OOOOOOG 


216 


000022 


OOOOOOG 


217 


000024 


000076' 


218 


000026 


000160' 


219 


000030 


000046' 


220 


000032 


OOOOOOG 


221 


000034 


rooooo 


222 


000036 


oooooc 


223 


000040 


000000 


224 


000042 


000000 




000044 


000000 


llh 






227 






o ■■>q 


000046 




230 






231 






,-^ ^ r\ 






^Ji^ 







CPB' 



. IF OF 
. GLOBL 
JSP 

, WORD 
. ENDC 
JSR 

. IF DF 
JSP 

. WORD 
. ENDC 
JSP 



RTll 
DC PR I 
R5. iPnON 

DC PRI 

R2.CPPIS 

RTll 
PS-iPnON 

DC. PRI 

R2.CPTIS 



NOTIFY RT-11 OF INTERRUPT & CHNG PRIOR. 
RLSO SAVES R5 &. P4 
RPGUMENT FOR INTEN 



NOTIFY PT-11 Ot INTEPPUFT t 
ALSO SAVES R5 I R4 
A-'GUMENT FOR INTEN 



CHNG PRIOR. 



WORD 


CPPSP 


BYTE 


LNO 


BYTE 


100 


WORD 


DE. PRI 


WORD 


C SPS 


WORD 


DE. PRI 


WORD 


C. SPS 


WORD 


CRBL2+0FF 


WORD 


CPGU2 


WORD 


CRBIN2 


WORD 


CFKLU 


WORD 





WORD 





WORD 





WORD 





WORD 






:END OF !SR TflBLEi.S) 
ENDC 

IF DF PSTS 

GLOBL CPP2-CPT2.CP3:.CPBS, I C i N2. CS I N2- CF i N2. rPBLn2 
ENDC 



DF'iUZ MRCPO nnOH C6-D£C-77 08:20 PRGE 7 



C 9 



234 






235 






23b 






237 






238 






239 






240 






241 






242 






243 






244 






245 






24b 






£4"' 




-' -- -.- 


24 S 






249 






250 






251 






252 






253 






: 254 






255 






25fa 






257 






258 






259 


000400 




260 






261 


000005 




262 


000004 




263 


000007 




264 






265 






266 000046 


016705 


000102 


267 000052 


010567 


000100 


268 000056 


010567 


000166 


269 






270 000062 


005065 


000652- 


271 000066 


062705 


000002 


272 000072 


001373 




273 000074 

274 
275 


000207 




'■ 




276 






277 000076 


052704 


100000 


278 000102 


016705 


000050 


279 






280 






2S1 






282 000106 


005765 


000652' 


283 000112 


100413 




284 0001 m 


010465 


000652* 


285 000120 


062767 


000002 000030 


286 000126 


001003 




287 000130 


016767 


000020 000020 


28S 000136 


000250 




289 000140 


000207 




290 













; CIRCULAR RECEIUE BUFFER L09DER RNO UNLOPDER ROUTINES 

; THESE TWO ROUTINES PROVIDE fl FfiCILITY FOP LOADING SINGLE 
;WORD ENTRIES INTO AND RETRIEVING SINGLE WORD ENTRIES FROM 
.nN internally provided circular RECEIVE BUFFER 

;t t'ER SIZE IS specified AT ASSEMBLY TIME VIA THE PARAMETER CRBSZX 

;THE USER MUST DEFINE THE RETURN REGISTER RETNX, AND THE WORK 
.REGISTERS CBAX AND CBBX AT ASSEMBLY TIME (CBAX AND CBBX DEFINE WHICH 
;REGISTERS THE TAP MUST UTILIZE FOR CRB UNLOADER SERVICE. ) 

;THE ROUTINES REQUIRE THAT BITS 15 AND 14 BE CLEARED BEFORE THE 
;LOADER IS CALLED, SINCE THESE ARE RESERVED FOR USE BY THE ROUTINES 

;T0 CREATE A UNIQUE COPY OF THESE ROUTINES FOR A MULTI-CRB ENVIRONMENT 
; REPLACE X WHEREVER IT APPEARS AT THE END OF A SYMBOL 
;BY A UNIQUE CHARACTER 

;CRB FOR DPll LINE 2 

.CRB DEFINITIONS ' , 



.IF NDF RSTS 
CRBS22=40Q 
. ENDC 
CBA2=:;5 
CBB2=-i4 
RETN2 = ^i7 

;CPB INITIALIZATION ROUTINE 
CRBiN2: nOV ICIN2,CBfi2 
m\J CBA2, CSIN2 

MOV CBA2.CFIN2 

CPBLP2: CLP CRBLt12(CBP2) 

ADD »2.CBfi2 

BNE CRBLP2 

RTS RETN2 

;CRB LOADER 



64 CHARACTER BUFFER 



CPBL2: 



BIS »100000.CBB2 
MOV CSIN2.CBfl2 
. IF DF RSXllD 



CPBPS2. 
CRV02: 



ADD 

. ENDC 

TST 

BMI 

MOV 

ADD 

8NE 

MOV 

CLN 

PIS 



80FF,CBA2 

CRBLn2(CBA2) 

CRB0V2 

CBB2,CRBLf12(C9fl2) 

»2,CSiN2 

CRV02 

ICIN2,CSIN2 

PETN2 



DP'/nz MPCPO finoH ofc-oec-?? os; 20 prge 7-1 



:?i oooiHz 

292 000150 

293 000152 

295 
29b 

297 000l5^ 

298 00015b 



052765 
000270 
000207 



177400 
17:^400 



OHOOOO 000652' CRB0V2: 



BIS 
SEN 

RTS 
. IF 



NDF 



ICIN2; 
CSIN2: 



WORD 
WORD 
ENDC 



D 9 



»H0000.CRBLn2(CBfi2) 

RETN2 
RSTS 



-CRBSZ2 
-CRQS22 



0P''ni2 


nor. po Mil OH Ob 


-DEC-77 


301 








302 








303 








3014 


OOOlbO 


01b70B 


0000b4 


30S 


GOOlbH 


OlbBOH 


000b62' 


30b 


000170 


100025 




307 


000172 


QOSlbS 


0Q0bS2' 


308 


00017b 


0b27b7 


000002 


309 


C0020H 


001003 




310 


00020b 


01b7b7 


177742 


311 


0002m 


03270H 


040000 


312 


000220 


001004 




313 


000222 


042704 


140000 


314 


G0022b 


000252 




315 


000230 


000207 




31b 








317 


0C0232 


042704 


140000 


31S 


0G023b 


000250 




319 


0C0240 


0002b2 




320 


000242 


G00207 




321 








322 


000244 


000270 




323 


0C024b 


G00207 




32H 








325 








32b 








327 








328 


0G0250 


177400 




329 








330 








331 








332 




000652" 




333 




G00b52' 




zm 








zzs 








33b 









08; 20 PAGE 8 



E 9 



;CRB UNL ORDER 



CRBU2 



000044 
000034 



CRY02: 



CRBSV 



^. 



CP^No; 



nou 


CnN2.CB92 


nou 


CRBLri2(C8Q2).CBB2 


BPL 


CRBN02 


COM 


CR8Ln2(CBfi2^ 


ODD 


»2.CFIN2 


BNE 


CRY02 


MOV 


ICIN2,CFIN2 


BIT 


»40000,CBB2 


BNE 


CRBSV2 


BIG 


«140000,CBB2 


CLVN 




PTS 


PETN2 


BIC 


»140GG0.CBB2 


CLN 




SEV 




RTS 


PETN2 


SEN 




PTS 


RETN2 


. IF NDF 


PSTS 



CFIN2; . WORD -CPBSZ2 

; BUFFER STOPPGE FOP CPB;2. 

. =. +C7BSZ2 
CRBLri: = . 
. ENC'C 

;;;;;;;;; ;END OF DP i i tel: 



; BUFFER LIMIT 



//'//// 



0P"\i: MRCPO nno^ oe 


-DEC-77 1 


1 






2 






3 






«i 






5 000662 






b 






7 000652 


01031*6 




8 






9 






10 






11 






12 






13 000fe5^ 


01fc20H 


000004 


m ooofcfco 


005762 


000036 


15 00066^ 


100002 




lb OOObbfe 


0427m 


000001 


17 000672 


0im03 




IS 00067^ 


016H0H 


000002 


19 000700 


032703 


010000 


20 00070M 


como2 




^ 21 000706 


052701+ 


010000 


22 000712 


004772 


000020 


23 






m 






2S 






m 






tr 






28 000716 


oi:b03 




29 






30 000720 


012602 




31 






12 






33 






3«l 






3S 






3^ 






37 






3s 0007:: 


000207 




39 







08: 20 PAGE 10 



F 9 



;DP11 ISR TRPE 2 OF 2 



;DP11 ISR connoN 

;ENTERED WITH R2 
CPRIS; 

.IF NDF 

nov 

IF NOF 
MOV 

nov 



CPPBl 



CPPB2; 



PROCESS I 
SRVED ON 

RSTS ; 

R3.-(SP) 

RSXliniRT 

R4,-(SP) 

R5.-(SP) 



NG - RECEIVE 
STACK VIA JSR R2. CPRIS 

RSTS HAS ALREADY SAVED ALL PEGS 

;SAVE THREE MORE REGS 
11 ;5I.NTSV ALREADY HAS SAVED R4 8. R5 



NDF 
NDF 



. ENDC 

. ENDC 

MOV 

TST 

BPL 

BIC 

nov 
nov 

BIT 
BEQ 
BIS 
JSR 
. IF 
. IF 

nov 

nov 

. ENDC 

nov 

. ENDC 

nov 

. IF DF 

jnp 

. ENDC 
. IF DF 
RETURN 
. ENDC 
. IF DF 
PTS 
. ENDC 



SRA-R(R2).R4 

SSC-R(R2) 

CPRBl 

%\, (R4) 

(R4),R3 

2(R4)-P4 

KCPB12,R3 

CPRB2 

«CPB12<R4 

PC,o)CBL-R(R2) 

RSTS 

RSXllMlPTll 

(SP)+.R5 

(SP)+,P4 

(SP)+,R3 

^SP)+.R2 
RSXllD 
olw. . INTX 

PSTS 



'SXlltl'RTl 
PC 



1 



;GET RECVR STATUS ADDR 

;TEST FOR CLR STP SYNC ON 1ST NON-SYNC 

;NOT SET 

; CLEAR STRIP SYNC 

.GET DPll PECVR STATUS REG 

;GET DATf, CHARACTER 

;TEST FOR PARITY BIT SET 

;BR IF EVEN PARITY 

;SET ODD PARITY CHECK BIT 

;G0 LOAD CIRCULAR RECEIVE BUFFER 



:PE5T0PE PEGS 



; RETURN TO CODE IN THE EXEC BUFFER POOL 



DP'/nz riRCPo nnoH oe-DEC-?? 


G 9 
08: 20 PRGE 11 




m 


;OPn iSR connoN processing - transmit 




42 


.ENTERED WITH R2 SRVEO ON STRCK VIA JSR R2,CPTIS 




H3 00072^ 


CPTIS: 




44 


.IF NOP RSTS ;RSTS HRS SPVED ALL THE REGS 




45 000724 C1D34I3 


nOU R3. -(SP) ;SflVE REGS 




4b 000726 01004b 


MOV RO.-(SP) ; 




47 


. IF NDF RSXnniRTll 




48 


MOV R4,-(SP) 




49 


MOV R5. -(SP) 




50 


. ENDC 




51 


. ENDC 




52 000730 016204 000000 


MOV SRfi-X(R2),R4 ;GET RECVR STATUS ADDP 




53 000734 016403 000004 


MOV 4(R4),R3 ;GET XMIT STATUS 




54 000740 042703 013577 


BIC »13677,R3 ; CLEAR ALL BUT INTERRUPT 




55 


; CAUSING FLAGS ... 




56 000744 040364 G00004 


BIC R3.4(R4) ;. . . IN TCSR 




57 000750 032703 160000 


BIT «160000,R3 ; TEST FOR ERROR 




5S 000754 001062 


BNE CPPER ;BR IF ERROR 




59 000756 005362 000030 


CPTIO: DEC XBC-X(R2) ;DECR BYTE CNTR 




60 000762 001423 


BEQ CPTB4 ;CNTR NOU ZERO 




61 000764 005262 000026 


INC X&fl-X(R2) ;UPDATE BUFF ADDR POINTER 




62 000770 032762 000200 


000034 BIT »200,WBF-X(R2^ ;IS IT BYTE TYPE 




63 000776 001004 


BNE CPTB2 :N0 




64 001000 117264 000026 


000006 CPTBl; nOVB ilX9fl-X(R2), 6(R4 ) ; OUTPUT THE CHAR 




65 001006 000405 


BP CPTIX :G0 EXIT 




66 001010 005262 000026 


CPTB2; INC XBfl-X(R2) ; UPDATE BUFF ADDR POINTER 




67 


;T0 NEXT WORD 




68 001014 017264 OOOOCb 


000006 CPTB3: MOV iXBfl-X(R2 J. 6(P4 ) .OUTPUT THE CHAP 




69 001022 


CPTIX; 




70 


.IF NDF RSTS 




71 


. IF NDF RSXllM&PTll 




72 


MOV (SP)+.R5 ; RESTORE PEGS 




7Z 


MOV (SP)+.P4 




74 


. ENDC 




75 001022 012600 


MOV (SP)+-PO 




76 001024 012603 


MOV (SP)+<R3 




■77 

1 1 


. ENDC 


■ 


7S 001026 012602 


MOV (SP)+.R2 




79 


. IF DF RSXllD 




SO 


JMP ii». . INTX 




SI 


.ENDC 




S2 


. IF DF RSTS 




S3 


RETURN 




S4 


. ENDC 




85 


IF DF RSXliniPTll 




86 001030 000207 


RTS PC ; RETURN TO CODE IN THE E.XEC BUFFER POOL 




87 


. ENDC 




88 






89 001032 016203 000024 


CPTB4: MOV XWP-X(R2)..P3 ; WORD PPIP PTR 




90 


. IF DF RSXllD 




91 


ADD II0FF,R3 




92 


. ENDC 




93 001036 012362 000026 


MOV (R3)+,XBR-X(R2) ; OUT IN CURP. XMIT ADDR FTP 




94 001042 001411 


BEQ CPTB5 ; IF ZERO- WE'RE DONE 




95 


. IF DF RSXllD 




96 


ADD 80FF.XBfl-X(R2) 




97 


. ENDC 

^ ■ ^ — 





DP'/n2 MRCPO nilOH Ob-OEC-77 08: 20 PfiGEll-1 



H 9 



9S 00104H 


012362 


000030 






MOV 


(R3)+,XBC-X(R2) 


99 










. IF OF 


RSXllO 


iOO 










SUB 


II0FF.R3 


101 










.ENDC 




i02 














03 














04 001050 


010362 


000024 






MOV 


R3/XWP-X(R2> 


105 001054 


032762 


000200 


000034 




BIT 


«200,WBF-X(R2) 


106 001062 


001354 








BNE 


CPTB3 


iC7 001064 
OS 
0? 001066 


000745 








BR 


CPTBl 








CPTB5: 






10 










. IF OF 


RSX 


11 001066 


016700 


OOOOOOG 






MOV 


TflSKflD.RO 


12 










. IF DF 


RSXllD 


13 










BIS 


840<fl. EF(RO) 


m 










BISB 


8EV SE.iS. SERFG 


15 










. IFF 




lb 0010:^2 


052760 


000040 


OOOOOOG 




BIS 


«40.T. EFLG(RO) 


17 001100 


016767 


OOOOOOG 


OOOOOOG 




MOV 


STSKHD.^RQSCH 


IS 001 106 


005067 


OOOOOOG 






CLP 


SSIGFL 


19 










. ENDC 




20 










. IFF 




21 










MOV 


LN9-X(R2),R5 


22 










ADD 


II1000.R5 


23 










SIC 


»40000,P5 


24 










JSP 


PC.aSBL-X(R2) 


25 










. ENDC 




26 001112 


042764 


000100 


000004 




BIC 


«100.4(R4) 


27 001120 
29 001122 


000740 








BR 


CPTIX 


032703 


040000 




CPPEP: 


BIT 


«CPB14,R3 


30 001126 


001410 








BEQ 


CPER2 


31 001130 


016404 


000002 






rioH 


2(R4).R4 


32 001134 


052704 


020000 






BIS 


nCPB13.R4 


2Z 001140 


004772 


000014 






JSP 


PC,iCBL-X(P2) 


34 001144 
35 


016204 


000000 






MOV 


SRfl-Xi.R2).P4 


3b 

37 001150 








CPEP2: 






22 001150 


105703 






CPER6: 


TSTB 


P3 


39 001152 


100701 








BMI 


CPTIO 


40 001154 


000722 








BR 


CPTIX 


41 










. IF DF 


RSXllDIPSXl in 


42 000000 










PSECT 


xxx 


43 










. ENDC 





PUT IN CURR. XMIT BYTE CN*R 



;PUT IN PTR TO NEXT WORD PfiR 
; IS IT BYTE TYPE 
;N0.- GO OUTPUT CHfift 
;G0 OUTPUT CHPR 



;SET 'SIB lNTRY event FLAG' 

;SET SIGNIFICANT EVENT 

;SET SIB ENTRY EVENT FLOG 
;DECLPRE SIG EVENT 



;GET LINE NUMBER - CODE 

:flDD 2 TO TYPE CODE 

; IWORD WORK ENTRY 

;G0 LOAD INTERFACE 6 JFFER 

; CLEAR INTERRUPT ENABLE 
;N0 EXIT 

;TEST FOR DATA OVERRUN FLAG 

;BR IF NOT SET 

;READ DATA REG FOR CHRP 

;SET RECEIVER OVERRUN BIT 

;G0 LOAD CRB 

; RESTORE STATUS POINTER 



; TRANSMIT DONE ALSO"? 
;YES. GO PROCESS IT 
;N0.- GO TO EXIT 



DP'Mi: MRCPO nnoH ob-DEc-77 os; 20 PfiCE 12 



\^b 

1U7 

m9 

150 
151 
152 
153 
15H 
1E5 
15to 
15^ 
15S 
159 
IbO 
161 
lb2 
lb3 
lb^ 
165 
166 
167 
16S 
169 
170 
171 
172 
173 
17H 
175 
176 
177 
178 
179 
ISO 
ISl 

is: 

1S3 
\SM 
1S5 
ISb 

!s;- 

ISS 
1S9 
190 
191 
192 
193 
191+ 
195 



000000 
00000^ 
000010 
000012 

oooom 

000016 
000022 
000024 
000032 
000034 
000042 
000044 
000046 
000052 
000054 
000062 
000064 
000072 
000074 
000076 
000102 
000104 
000106 
000112 
000116 
000124 
G00126 
000134 
000136 
000144 



000144 
000152 
000154 

000156 
000160 



000002 



016203 
016305 
012104 
105704 
100012 
032704 
001404 
052763 



000407 
042763 
005704 
100012 
032704 
001404 
052765 
000403 
042765 
012104 
001426 
010463 
012102 
003424 
010263 
01U163 
032763 
001004 
117365 
G00403 
017365 



052765 
0002^^0 

000207 

000270 
000207 



DPll OUTPUT STRRTUP ROUTINE 

ENTERED FROM nOTRIX TYPE SWITCH UITH 

REGS SET flS FOLLOWS 

Rl - POINTER TO INDICfiTOR WORD 

FIRST X-rilT WORD PAIR FOLLOWS 
R2 - POINTER TO B9SE OF LINE TABLE 
P3 - LINE « fiS fl WORD INDEX 

IF ILLEGAL ADDRESS OR BYTE COUNT, RETURN 

WITH N CONDITION CODE SET 



NDICATOR WORD 



000002 
000010 



000100 

000200 000044 

000200 000044 

04G0G0 

000002 GGGOOH 

000002 000004 

000036 

000040 
000034 
000200 000044 

00003o 000006 

000036 000006 



CP. OSU: 



CPOSUl: 
CP0SU2: 



':posu3: 

CF0SU4: 



CF0SU9: 



CP0SU5: 
CPOSUb: 



OOGIOC 000004 



CPOSUX: 



CP0SU7 



CPINX=2 

nov 
nov 

MOV 

TSTB 

BPL 

BIT 

BEQ 

BIS 

BP 

BIC 

TST 

BPL 

BIT 

BEQ 

BIS 

BR 

BIC 

nov 

BEQ 

MOV 

MOV 

BLE 

MOV 

MOV 

BIT 

BNE 

MOVB 

BR 

MOV 

. IF DF 
ADD 

ENOC 
BIS 
CLN 
PTS 

SEN 
RTS 



CPINX(R2),R3 

SRA(R3),R5 

(P1)^-,R4 

R4 

CP0SU2 

«100.R4 

CPOSUl 

»200,WBF(R3) 

CF0SU2 

«200,WBFCR3) 

R4 

CP0SU4 

«40000,P4 

CP0SU3 

«2,4(R5) 

CP0SU4 

82,4fR5) 

(R1)+,R4 

CPOSUX 

R4,XBfl(R3) 

(Rl )+,P2 

CP0SU7 

R2.XBC(R3) 

R1,XWP(P3^ 

«200.WBF(P3) 

CP0SU5 

i)XBfi(R3nb(R5) 

CPOSUb 

i)XBA(R3),b(R5) 

RSXllD 
»OFF., XBR(R3) 

»100,4(R5) 

PC 



PC 



;LINE TABLE INDEX TO I SR TABLE POINTER 

;GET ISR TABLE PTR FOR LINE 

;SET POINTER TO RCSR 

;PUT INDICATOR WORD IN R4 

; BYTE/WORD FLAG TO BE SET 

;N0 

; IS BIT 6 SET 

;N0 

;SET FOR WORD TYPE 

; CLEAR FOR BYTE TYPE 

; IS IDLE SYNC TO BE CHANGED 

;N0 

: iS BIT 14 SET 

;N0 

;SET IDLE SYNC 



; CLEAR IDLE SYNC 

;PUT BUFF ADDP PTR IN R4 

;(IF ZERO, THIS WAS IDLE SYNC REQ. ONLY) 

;AND IN CURR. XMIT ADDP PTR 

;PUT BUFF BYTE CNT PTR 

; ILLEGAL BYTE COUNT 

;PUT IN CURR. XMIT CNTP 

;PUT IN PTR TO NEXT XM 

; IS IT BYTE TYPE 

; NO 

; OUTPUT 1ST CHAP 



N 



R2 



PTR 
T WORD 



PAIR 



; OUTPUT 1ST CHAR 



;SET INTEPPUFT ENABLE 
MATRIX SWIKH EXIT 

MATRIX SWITCH EXIT 



Dpini: hQCPO niiOH os-dec-?? o8: 20 Pf^GE \z 



J 9 



I 



197 
198 
199 
200 
201 
202 
203 
204 
206 
20b 
207 
208 
209 
210 
211 
212 
213 

2m 

215 
21b 
217 
218 
219 
220 
221 
222 
223 
22H 
225 
226 
227 
228 

230 

231 
232 
^j>3 

*tf t-r ^ 

23b 
237 



000162 
OOOlofc 
000172 
000176 
000200 
000204 
0G0210 
G00212 
000216 
G00220 
000224 
000226 
G00232 
GGG232 
G00236 
G00240 
G00242 

G0024H 
000246 

000250 
000254 
000262 



016104 
016205 
016503 
010305 
062705 
C32704 
001415 
032704 
001405 
032704 
001411 
052715 

032704 
001012 
G00254 
000207 

000270 
000207 

042715 
0'-{2765 
000763 



000002 
000002 
000010 

00G004 
100125 

000001 

000002 

000001 

1 00000 



000001 

004100 177774 



23S 


000264 


005004 




ZZ'i 


000266 


011303 




240 


OOG270 


011605 




241 


G00272 


032705 


001000 


242 


G00276 


001402 




243 


000300 


052704 


000001 


244 


000304 


032705 


002000 


245 


000310 


001402 




246 


000312 


052704 


000002 


247 


000316 


032705 


010000 


24 S 


000322 


001402 




249 


000324 


052704 


000004 


250 


000330 


032705 


000001 


251 


000334 


001402 




252 


000336 


052704 


000010 


253 


000342 







DPll MODEn CONTROL ROUTINE 

ENTERED FRO1I DEVICE TYPE MRTRIX SWITCH WITH 

REGS SET flS FOLLOWS 

Rl - POINTER TO THREE WORD PRRRflETER LIST 
R2 - POINTER TO BASE OF LINE TABLE 
R3 - LINE I flS R WORD INDEX 

IF nODEn STPTUS REQUESTED, STRTUS WORD IS PLACED IN 

THIRD WORD OF USER PflRflriETERS 

IF ILLEGAL OPERATION, RETURN WITH (N CONDITION CODE SET 



FORMAT 

LOCP: 

LOCP+2: 

L0CP'»-4; 

CP. MDM: 



OF PARAMETER LIST 
UNSPECIFIED 

MODEM CONTROL BIT SETTINGS 
FOR MODEM STATUS RETURN 



CPMCA; 
CPMCD: 

CPMGE; 



CPMER 



CPMPA: 



SENSE 



CPMCG: 



CPncH; 

CPMlJ: 
CPMCK; 
CPMCL; 



nov 

MOV 
MOV 
MOV 
ADD 
BIT 
BEQ 
BIT 
BEQ 
BIT 
BEQ 
BIS 

BIT 
BNE 
CLZN 
RTS 

SEN 
RTS 

B I C 

BIG 
op 

MODEM 

CLR 
MOV 
MOV 
BIT 
BEQ 
BIS 
BIT 
BEQ 
BIS 
BIT 
BEQ 
BIS 
BIT 
BEQ 
BIS 



2(R1),P4 

2'-R2),R5 

SRA(R5),R3 

R3.R5 

«4,P5 

»100126.R4 

CPMER 

»1.R4 

CPMCA 

»2.P4 

CPMPA 

;i (R5) 

SIOOOOO^ 
CPMlG 



P4 



PC 



PC 

;001- >R6' 
«4100- -4iF5) 
CPMCA 
CONTROL 

R4 

(R3).P3 

(R5)-R6 

S10C0-P6 

CPnCH 

nl,R4 

«2000,R6 

CPMCJ 

;2,R4 

S10000.R6 

CPMCK 

«4,R4 

I51-R6 

CPMCL 

;iO-P4 



R4 HAS BIT SETTINGS 

R5 HAS ISR TABLE ADDR FOR LINE 

R3 HAS RECVR STATUS REG ADDR 

COPY R3 INTO R5 

R5 HAS XMIT STATUS REG ADDR 

IS IT PROPER COMMAND 

NO- ITS ERROR 

IS BIT TERM PDY I NO SFT 

NO 

IS BIT 1 EQUAL 1 

NO-GO CLEAR TFRM READY 

SET TERMINAL f^EADY 

BIT 16 SET TO PEAD STATUS 
YES-GO PEAD STATUS 
SET N AND Z TO 
GO EXIT 



SET N TO 
GO E.MT 



1 



CLEAR 



;CLEAP 
RECEIVE 



TERM READY 
ENABLE AND 



ACTIVE 



CLEAR R4 TO BUILD SENSE UOPD 

READ RCSR 

READ TCSR 

IS REQ TO SEND SET 

NO-NOT SET 

SET REQ TO SEND ON 

IS CLEAR TO SEND SET 

NO 

SET CLR TO SEND ON 

IS DATA SET READY SET 

NO 

SET DATA SET READY 

IS DATA TERM READY SET 

NO-NOT SET 

SET DTP IND 



DP"u: 


n«rpo nllO^ 06 


-DEC-77 


08: 


:sH 










2E.S 


0003142 


032705 


004000 




:sb 


0003^6 


001H02 






:s7 


000350 


052704 


000040 




2SS 


00036^ 








2S? 


000354 


010U61 


000004 




2bO 


000360 


000727 







K 9 



CPnCM: 


BIT 


»4000,R5 




BEG 


CPnCN 




BIS 


#40. R4 


CPncN 






CPncP; 


MOV 


R4,4(R1) 




BP 


CPMGE 



; IS CARRIER ON 

;N0 

;SET CRRRIER ON 

; STORE SENSE UORD 
;NOU GOOD EXIT 



r 



r 



H'P-niz riMCPo nno^ Ob-DEC-?? 08; 20 prge m 



L 9 



ZbH 00115b 

Zbb 

266 

267 

268 

2b? 

270 

271 

/^ ^ n 

->-77 

£-5 

2"^ 

,^ -^ -^ 
*.< < > 

•"-TO 
4. >' O 



280 
281 

283 

28^ 

286 
28b 
287 
288 
289 
290 
291 

293 
294 
295 
29b 
297 
298 

ZOO 
301 
302 
303 
ZOH 
305 
30b 
307 
308 
309 
310 
311 
312 
313 
314 
315 
31b 
317 
31S 



CC115t 
001162 
00116b 

ooir: 

00117b 

C01200 
001204 
001206 
001212 
001214 
001220 
001220 
001220 
001224 
00122b 
001232 
001234 
001240 
001244 
001246 
001254 
0012b2 
0012bb 
001270 
001274 
00127b 
001302 
00130b 
001310 
00131b 
001322 
001324 
001330 
001332 
00133b 
001340 
001 34U 

00134b 



0161C4 
016202 
016205 
032704 
OOlU^l 

032704 
OC1405 
032704 
001447 
052715 



032704 
001405 
032704 
001442 
052715 
032704 
00140b 
llblb5 
llblb5 
032704 
nnm35 

^2704 
^24 
_:^15 
032704 
001422 
G527b2 
032704 
0C1417 
042715 
000414 
042715 
00C730 
042715 
000735 
042715 



000002 
00G002 
GOOGIO 
115nm 



GOOOCl 
000010 
000100 

001000 

002000 

000002 
0040CG 

00000b 000003 
000007 000007 
010000 

020000 

000001 
040000 



1 ^•y-^-^-y 

1 I f I ( I 

100000 
004000 
OOOICO 
000002 
000001 



000042 



. IF DF RSX 

. PSECT ISR 

. ENDC 
DPll nODE CONTROL ROUTINE 

ENTERED FROn DEVICE TYPE HflTRIX SWITCH WITH 
REGS SET flS FOLLOWS 

Rl - POINTER TO FOUR WORD P^^^RflHETER LIST 

R2 - POINTER TO BfiSE OF LINE TABLE 

R3 - LINE » RS fi WORD INDEX 



;FOPnfiT 

;L0CP: 

;L0CP'H 

;L0CP+2 

- LUCP'»'4 

.LOCP-^b 

■:P MOD: 



CFCGfi 



CPCHfl; 
CPCP; 

CPCB. 



CPCC: 



:pcd: 



CPCPR: 
CFCPB: 

CFCH: 
CPCn 

CPCP: 



OF PflPRMETER LIST 

UNSPECIFIED (LOW BYTE) 
40=SENSE REQUESTED 
MODE CONTROL BIT SETTINGS 
FOP MODE STOTUS RETURN 
SrNC CHOROCTER UORD 



nov 2(Pn.P4 

MOU 2'P2),P2 

MOU Sf^P(P2).P5 

BIT »11504 1.R4 

BEQ CPCEX 

BIT «1.P4 

BEQ CFCfl 

BIT »10.P4 

BEQ CFCH 

BIS S100-'P5) 



BIT . 81000 P4 

BEQ CFCC 

B!T ^ ^ 82000. P4 

BEQ CFCn 

BIS «2 (P5) 

BIT 84000. R4 

BEQ CPCD 

nOUB b'.Rl ). 3R5 ' 

MOVB 7(P1,>,7'R5> 

BIT 810000. P4 

BEQ CPCS 

BIT 820000. P4 

BEQ CPCP 

BIS 81, (R5) 

BIT 840000- P4 

BEQ CPCP 

BIS ; 8-l.SSC'P2' 

BIT 8100000.-R4 

BEQ CPCS 

BIC 84000. 'P5) 

BR CPCS 

BIC 8100- ^P5) 

BP CPCHfi 

BIC 82. 'P5) 

BR CPCC 

BIC 81.(P5> 



R4 HOS BIT SETTINGS 

R2 HAS CPRi flDDR FOR DPll LINE 

P5 HfiS RECVR STATUS REG flODR 

IS IT SET MODE COMMAND 

NO-GO SEE IF SENSE 

GO EXIT - SINCE DON'T DO SENSE 

iS INT AND M IND SET 

NO-GO TEST NEXT 

IS RCUE INT ENAB IND SET 

NO 

SET RCVE INT ENPB IN PCSR 



IS HALF DUPLEX i ND SET 

NO-GO TEST FOP riFXT 

eiT 10 SET 

NO 

SET BIT 1 IN PCSR FOP HALF DUPLEX 

IS SYNC CONTROL IND SET 

NO-GO TEST FOP NEXT 

MOVE iCU BYTE OF SYNC CHAP 

MOVE HIGH BYTE OF SYNC CHAP 

BIT 12 SETiSTPlF SYNC !ND) 

NO-GO TEST FOP SENSE 

BIT 13 SET 

NO 

SET BIT IN PCSR 

BIT 14 SET 

NO 

SAVE CLP STP IP S'NC IND 

RECEIVE ACTIVE TO BE C LEAPED 

NO 

;YES CLEPF IT 
GO TEST FOP SENSE 
CLEAR RCVE INT ErifiB IN PCSP 

CLEAR BIT 1 !N PCSP 

CLEAR BIT !N PC IP 



u n 



DPuli: n^^CfO nnO^ Ob-DEC-77 08: 20 PftGE m-1 



n 9 



Ci 



319 001352 


000753 


320 0013S4 


005062 


221 001360 


000<'56 


322 




323 




324 




32E. 001362 




326 001362 


000254 


327 001 36H 


00020^ 


32S 








330 




:>31 000362 




332 




333 




33*4 




335 




336 




33:- 




33S 




33? 




340 




3m 




3H2 




Z^Z 0003b: 




3144 00036: 


ooo::*o 


346 000364 


000207 



000042 



CPCR: 



BR 
CLR 



CPCPfi 

SSC(R2) 

CPCPB 



; SENSE MODE CONTROL 



CPCS: 
CPCEX: 



CL2N 
PTS 



PC 






;SflVE DON'T CLP STRIP SYNC I NO 



SET GOOD EXIT CODE 
RETURN TO USER 



IF DF PSX 
PSECT XXX 
ENDC 



;DPn KILL I/O ROUTINE 

.ENTEi^ED FROM 'JVH^i TYPE HPITRIX SWITCH 

,UlTH REGISTERS PRESET flS F0LL0t4S: 



PI-POINTED TO KILL I/O PflPRMETEP LIST 
R2-P0 INTER TO BASE OF TOP LINE TPBlE 
P 3- LINE ; flS P MOPD INDEv 



CP KLL 

CP KEF 



SEN 
PTS 



PC 



; I NO I C ATE EPPOP 



N 



n 



DP<ni2 m^lPO nnOH 06-0£C-77 08: 20 PfiGE IB 



N 9 



3h7 






;DP11 LINE TABLE INITIRL I2PTI0N 


ROUTINE 


!4S 






; ENTERED FROM 


DEVICE TYPE flRTR 1 


^ SWITCH WITH 


34 » 






;REGS SET flS FOLLOWS 






^0 






Rl - POINTER TO USER 


PPRRMETER LIST 


361 






; R2 - POINTER TO BASE 


or 


LINE TABLE 


362 






; R3 - L 


INE « nS fl UORD 


INDEX 


353 






; REPORTS BRCK 


ERROR CODE 4 IF 


LINE NUMBER NOT FObND 


35i» 






. GLOBL 


CPRS 




■'."' ■.•■.■' ^ '■■■■.-'.''-.-■■ ' 


355 














36b 














36:* GGG366 






CP. INI: 








36S 000366 


012700 


000000' 


tlQM 


«CPRS,RO 




;STORT OF DPll LINES 


369 000372 


010062 


000002 


CPTINB: m\f 


R0,2'R2) 




;SET UP DPll flDDR 


3b0 0003""6 


016062 


000026 nonnn4 


MOU 


CBU'P0).4(R2) 




;SET POINTER TO CRB UNLOflDER 


361 000404 


004770 


000030 


JSR 


PC- aCBl (PO^ 




;CflLL CRB INIT ROUTINE 


362 






. IF DF 


PSTS 






363 






CMP 


SPO'P0^«170000 


.MPS THE POINTER THAT THE MONITOR GIVES US 


364 












;BEEN CHANGED TO THE ADDRESS? 


3bb 






BHI 


CPTINI 




;YES 


3bb . 






nov 


iSPfi(P0).P3 




;N0 - SET IT UP RIGHT FOR THIS CODE 


367 ■ 






MOV 


P3.SRfi'P0) 






368 






CMP 


SPfl(P0.i.»170C00 


, IS CSR PJ SET RIGHTS 


369 






BLO 


EPPOR 




;N0 - IS ERROR 


370 






CPTINI; 








371 






. ENDC 








372 






. IF DF 


PsyiiD'Psxiin 


'PTll 


Z7Z 000410 


010006 




MOV 


P0-i?6 




:COPV TRBLE ADDPESS 


37^ 000412 


012700 


OOOOOGG 


MCI' 


»CPVP.. RO 






375 000416 


012701 


000006' 


MOV 


«CPP2.R1 






376 000422 


006002 




CLP 


P2 






377 000424 


016603 


000020 


MOV 


PPR(P?- KP3 






37S 0004 30 


00473/ 


OOOOOOG 


J^" 


PC, in. . C INT 




; CONNECT TO INTERRUPT VECTOR 


37'^ 000434 


1Cj3424 




BCS 


LRPOP 






380 000436 


022020 




CMP 


(R0)•^. fPO^ + 




;UP TO TRANSMIT VECTOR 


381 000440 


012701 


000004' 


MOV 


»CPT2,P1 






3S2 000444 


016603 


000014 


MOV 


XPP(P6)-P3 






3SZ 000460 


004737 


OOOOOOG 


JSP 


PC-i)«. . CI NT 




; CONNECT TO TRANSMIT VECTOR 


;'?4 C0046'» 


103414 




BCS 


EPROP 






3bi 000466 


012700 


000000' 


MOV 


;CPOS-P0 




;RI-.SET START ADDP rflijSE CLOBBERED IT 


3?b 






. ENOC 








iS7 000462 


016003 


0000 10 - 


MOV 


SRfi'R0.'.P3 




;NOU GET STATUS REGISTER 


3SS 0034 bb 


006023 




CLR 


(P31 + 




;AND ILEAP IT 


3S9 0004^0 


006723 




T^-'' 


(R3^ + 






390 000472 


006023 




CLR 


(R3) + 




/ 


391 






1 F DF 


PTM 






392 






: ^ MOV 


;PT. END-FO 




;SET UP FOP EXiT TIME 


393 






vr- ^ 


1 




; DISABLE INTERRUPT UHEN THE 


394 












, PROGRAM ABORTS FOR ANY REASON 


395 






. £NDC 








396 0C0474 


000260 




CLN 








397 0004 76 


000207 




CPTlND: RTS 


PC 




; MATRIX SWITCH EXiT 


39S 000500 


062761 


000010 000004 


CPTINC: BIS 


ffl0.4iRl) 




.SET USER ERROR CODE 


399 000506 


000270 




EPPOR: SEN 








400 000610 

401 

402 


000207 




RTS PC 






;NOU EXIT 






IF DF 


RTll 






40j 






' / ' .» • t f t 1 .' .• r : r . 


"///.' 







^ T iT ■— "r--7-^--^ Tir ' '"in ii nr 



pBKjgjgij arsan trifiiSirr i,iinrii*iiBi*^iTi n \*n ski ,~xw.sssnssmm 



DP'/n2 MRCPO n:iOH Ob-DEC-77 08: 20 PRGElB-l 



B 10 



^os 

407 
408 
409 
410 
411 
412 
413 
414 
41B 
41b 
417 
41S 



; PRRRnETEP BLOCK FOR DEUICE 
AT. END: . BYTE 
BYTE 14 
. WORD ATTEND 



CRLL 

.NO CHANNEL 

; FUNCTION CODE 

;LIST OF WORDS TO BE LOADED 

, AT PROGRAM TERrtNATlON 



ATTEND 


WORD 


CPRSR 




. WORD 







. WORD 


CPRSP*4 




. UOPu 





/ 


. UORD 


G 



ADDRESS OF COPIM 
FORCE IT TO 
TPANSniT CSW 

AlSC force TO C 
END OF LIST 



:sw 



///.»///// 



ENDC 



DP'iHZ n«cPO nnoH Ob-OEC-?? 08: 20 prge ib 



C 10 



U20 

1+21 

•422 
1423 
•42U 

428 
^Zb 
U27 
42S 
429 
430 
431 
432 
433 
4 34 



472 
473 
474 
47B 
47b 



;DP-11 RESTRRT ROUTINE 

;ENTERED FROn DEVICE TYPE flPTRlX SWITCH WITH 

;REGS SET PS FOLLOWS: 

; Rl - POINTER TO USER PRRflMETER LIST 

; R2 - POINTER TO BRSE OF LINE TPBLE 

; R3 - LINE « flS R WORD INDEX 



000B12 

000E12 01270B 000000' 



CP. RST: 



4 35 


000516 


012700 


OOOOOOG 


43b 


000522 


004737 


OOOOOOG 


437 


000526 


022020 




43S 


000530 


004737 


OOOOOOG 


439 








440 


000534 


C165G3 


000010 


441 


000540 


005023 




442 


000542 


005723 




443 


00G544 


005023 




444 








445 


000546 


000250 




446 


000550 


O0C207 




447 








448 








449 








450 








451 








452 








453 








454 








455 








456 








457 








45S 








45? 








4bQ 








4bl 








462 








463 








464 








465 








466 








467 








46S 








469 








4 70 








471 









GLOBRL 

RJEPPT: 



GLOBL CP.RST 



.IF NDF RSTS 

nOV »CPfiS,R5 ;GET P.DDR OF START OF T^^LE 

. IF OF RSX11D!RSX11«!RT11 



nov 

JSP 
CMP 
JSR 
. ENDC 

riov 

CLP 

TST 

CLP 

. ENDC 

CLN 

PTS 



«CPVP,RO 
PC,5)«. DINT 
fR0)+, rRO)+ 
PC,ii«, . DINT 

S^fl(R5),R3 
(R3) + 
«P3i + 
( P 3) + 



PC 



SET UP TO DISCONNECT FROh VECTOR 
f^ND DO IT 

THEN BUMP TO NEXT VECTOR ADDRESS 
AND DISCONNECT FROn IT 

RND THEN ADD OF STATUS REG 
CLlAR THE REGISTER 



. IF or PSTS 

THPOPG C'nih.T,34 

. UOPD CTPLR 
UNORG 



GLOBAL <CTPLR> 

TMPr.Pi: 
. UORD 
UNORG 

TriPORG 
. WORD 
UNORG 



RjnCTL 12 
CPPIS 



RJMCTL- 16 
CPUS 



GLOBAL <CPRIS,CPTIS> 

TMPORG PjnCTL.34 

. WORD CRBL2 

. WORD CPBU2 

.WORD CRBIN2 

. WORD CFKLU 



<CRBL2, CRBU2. CPB IN2. CFKLU> 



DEFOPG RJEPAT 
. BLKW 2 
UNORG 



DP'MIZ nPCPO nllO^ Ofe-DEC-?? 08-. 2C PRGE 16-1 



10 



U77 
H78 

^■'9 



f 



000001 



. ENDC 

, ttttttttttittttttttttttttt 
. END 



op^/n2 


MfiCPO nnoH 


Ob 


SYMBOL 


TFIBLE 




CBR2 = 


V.OOOOOB 




CBB2 = 


•<00000H 




CBl 


000030 




'■BL = 


00002H 




.BU = 


000026 





DEC-77 08: 20 PRGE lb-2 



E 10 



1 



CCC = 000257 

CnN2 000250R 002 

CFKLU = tttttt GX 

CLC = 0002m 

CLN = 000250 

ClV = 00021*2 

CLVN = 000252 

CLZ - 0002'4^ 

ClZN = 000254 

CPflS = GOOOOORG 002 

lPBS OO00H6P 002 

CPB12 = 010000 

lPBH = 020000 

CPBm = 040000 

CPB15 = 100000 

CPCfi 001220P 

CPCB 00122GR 

CPCC G0i240R 

CPCD G012o2R 

CPCEX 001362R 

CPCGfi 00120bR 

CPCH 001332R 

CPCHP 001220R 

CPCn 001340R 

CPCP 001346R 

, OBS. 000000 
GOOOOO 
ISR 001366 
XXX G00552 
ERRORS DETECTED: U 



002 
002 
002 
002 
002 
002 
002 
002 
002 
002 



GOO 
001 
002 
003 



CPCPfi 

CPCPB 

CPCR 

CPCS 

CPD26 ■ 

CPER2 

CPER6 

CPINX : 

CPMCfi 

cpnco 

CPMCG 

CPncH 
cpncj 

CPMCK 

cpncL 
cpncn 

CPMCN 

CPMCP 

CPMER 

CPMGE 

CPMRPi 

CPOSUX 

CPOSUl 

CP0SU2 

CP0SU3 

CP05UH 

CPCSU5 

CP0SU6 

CP0SU7 

CPOSU? 



001302R 

001316R 

001354R 

001362R 

000001 

001150R 

OOllSOR 

000002 

000232R 

000232R 

000264R 

000304R 

000316R 

000330R 

0003H2R 

0003H2R 

000354R 

000354R 

000244R 

000240R 

000250R 

000152R 

000034R 

000042R 

000064R 

000072R 

0001 36P 

OOOmHR 

0001 56R 

000 UbR 



002 
002 
002 
002 

002 
002 

003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 



CPRBl 

CPRB2 

CPRER 

CPRIS 

CPRSR : 

CPRTC ' 

CPR2 

CPS2 

CPTBl 

CPTB2 

CPTB3 

CPTB4 

CPTB5 

CPTINB 

CPTINC 

CRT I NO 

CPTIS 

CPTIX 

CPTIO 

CPTL : 

CPT2 

CPVP : 



CP. 
CP. 

CP. 
CP, 
CP. 
CP. 
CP. 
CPB 



INI 
KER 
KLL 

non 
noD 

OSU 
PST 

INT: 



000672R 

000712R 

00n22R 

000652R 

tutu G 

000000 

OOOOOORG 

OOOOIOR 

OOIOOOR 

OOIOIOR 

OOIOIHR 

001032R 

001066R 

000372R 

000500R 

000476R 

000724R 

001022R 

000756R 

0000H6 

OOOOOHRG 

yXXtliil G 

000366RG 

000362R 

000362RG 

000162RG 

001156RG 

OOOOOORG 

000512RG 

OOOOOQ 



002 CRBIN2 
002 CRBLn2: 
002 CRBLP2 
002 CRBL2 
CRBN02 
CRB0\/2 
002 CRBRS2 
002 CRBSV2 
002 CR6SZ2: 
002 CRBU2 
002 CRV02 
002 CRY02 

002 CSIN2 

003 C. SPRR: 
003 C. SPS : 
003 DE. PRI: 
002 ERROR 
002 HOLT : 
002 ICIN2 

LNO : 

002 LNR : 
NOP 

003 OFF 
003 OS 

003 PS : 
003 R 

002 RBR 

003 RCVSIB: 
0C3 RETN2 = 



VIPTUflL MEMORY USED: S03 UOPDS ( 4 PAGES) 
DYNAMIC MEMORY; 2810 WORDS ( 10 PAGES) 
ELAPSED TIME: 00: 00: 14 
26b. 0:0 DPI 1.27. 256,030 DPI 1/C(RF/-SP= i SRPXM,- OPDEF . DP 1 1 TBL DPll ISP 



G0Q048R 
000652R 
G00062R 
000076R 
0002HHR 
000 m2R 
0001 30R 
000232R 
000400 
000160R 
OOOUbR 
0002mR 
0001 66R 
tttttt G 
tttttt G 
tttttt 6 
G00506R 
GOOOOO 
G00154R 
000000 
000012 
000240 
000000 
000000 
177776 
000004 
000022 
000000 
X000007 



002 RPR 
002 RSX 
002 RSXliri: 
GG2 R6 
002 R7 
002 SBL 
002 sec 
002 SEC : 

SEN 
002 SEU : 
002 SE2 
002 SEZN : 

002 SRP : 
SSC 

STC : 
TflSKPD: 

003 T. EFLG: 
UBF 

002 X : 

XBA : 

XBC : 

XBR : 

XPR 

XWP : 

SRQSCH^ 
SSIGFL: 
STSKHD: 

..CINT: 
..DINT: 



00G020 
000001 
000001 
^.000006 
V.000007 
000032 
000277 
000261 
000270 
000262 
000264 
000274 
000010 
000042 
000013 
tttttt 
tttttt 
000044 
000010 
000036 
000040 
000016 
000014 
000034 

^n ^ ^ ^r "r -^ 

tttttt 
tttttt 
tttttt 
tttttt 



GX 
GX 



GX 
GX 
GX 
GX 
GX 













F 


10 







DPll 


CRERTED BY 


nflCRO ON 


6-DEC-77 RT 


08: 20 


PPGE 1 








SVnBOL 


CROSS REFERENCE 








CREF 








SYMBOL 


VRLUE 


REFERENCES 












CBQ2 


= V,OOOOOB 


I7-261 
7-291 


«7-266 
«8-304 


7-267 
8-305 


7-268 
8-307 


7-270 


«7-271 


«7-278 


CBB2 


= V.OOOOOH 


»7-262 


17-277 


7-284 


18-305 


8-311 


18-313 


18-317 


•:bi 


= 000030 


»5-170 


5-171 


15-361 










CBL 


= 000Q2H 


115-168 


5-169 


10-22 


11-133 








CBU 


= 000026 


»5-169 


5-170 


15-360 










CCC 


= 0002B7 


«2-10 














CF!N2 


000250 R 


17-268 


8-304 


*8-308 


«8-310 


88-328 






CFKLU 


= tttttt GX 


6-220 














CLC 


= oco2m 


112-6 














CLN 


= 000250 


«2-9 














CLV 


= 0J0242 


«2-7 














CLVN 


= C00252 


«3-118 


8-314 












clZ 


= fJ002^^ 


«2-8 














CLZH 


= 000254 


»3-116 


13-227 


14-326 










•:prs 


= 000000 RG 


«6-182 


15-354 


15-358 


15-385 


16-433 






CPBS 


000046 R 


«6-22S 














CPB12 


= 010000 


«4-135 


10-19 


10-21 










CPB13 


■- 020000 


»4-136 


11-132 












cpsm 


= 040000 


«4-l37 


11-129 












CPB15 


= 100000 


84-138 














CPCP 


001220 R 


14-2S7 


814-292 












CPCB 


001220 R 


814-293 














CPCC 


001240 R 


14-294 


814-298 


14-317 










CPCD 


001262 R 


14-299 


814-302 












CPCEX 


001362 R 


14-284 


S14-326 












CPCGfi 


001206 R 


814-2SS 














CPCH 


001332 R 


14-289 


814-314 












CPCHW 


001220 R 


814-291 


14-315 












cpcr^ 


001340 R 


14-296 


814-316 












CPCP 


001346 R 


14-305 


814-3IS 












CPCPfl 


001302 R 


81U-307 


14-319 












CPCPB 


001316 R 


814-310 


14-321 












CPCR 


001354 R 


14-308 


814-320 












CFCS 


001362 R 


14-303 


14-311 


14-313 


814-325 








CPD26 


= 000001 


83-83 














CPER2 


001150 R 


11-130 


811-137 












CPER6 


001150 R 


811-138 














CPINX 


= 000002 


812-155 


12-157 












CPMCO 


000232 R 


13-220 


813-224 


13-235 










CPnCD 


000232 R 


813-225 














CPMCG 


000264 P 


13-226 


813-238 












CPnCH 


000304 R 


13-242 


813-244 












CPMCJ 


000316 R 


n-245 


813-247 












CPMCK 


000330 P 


13-248 


813-250 












CPMCL 


000342 R 


13-251 


813-253 












CPMCM 


000342 R 


813-255 














CPMCN 


000354 R 


13-256 


8i: -258 












CPMCP 


000354 R 


813-259 














CPMER 


000244 R 


13-218 


813-230 












CPMGE 


000240 R 


813-227 


13-260 












CPMRfl 


000250 R 


13-222 


813-233 













7-282 



7-284 



DP 1 1 

SYMBOL 

SYHBOL 

CPOSUX 

CPOSUl 

CP0SU2 

CP0SU3 

CPOSUH 

CPOSUS 

CP0SU6 

CP0SU7 

':posu9 

CPPBt 

>:ppb2 

CPPER 
'■.PP IS 
•PPSP 
lPPTC 

CPRZ 

r p c 2 

CPTBl 
CPTB2 
CPTB3 
CPTBH 
CPTB5 
CPTINB 
CPTINC 
CPTIND 
CPTIS 
CPTIX 
CPTIO 
CPTL 
CPT2 
CPl/P 
CP. INI 
KER 
KLL 
MDM 
MOD 
OSU 
RST 
INT 



CP. 

CP. 

CP. 

CP. 

CP. 

CP. 

CRB 

CPBIN2 

CPBLM2 

CRBLP2 

CPBL2 

CRBN02 

CRB0V2 

CRBRS2 

CRBSV2 

CRBS22 

CRBU2 

CPl'02 

CPV02 

CSIN2 



CREATED BY 
CROSS REFERENCE 
VfiLUE 
Q001B2 
00003H 
0000»*2 
OOOObH 
000072 
000136 

ooomi* 

000156 
000116 
000672 
000712 



MflCRO ON 6-DEC-77 AT 08: 20 



001122 
000652 
tttttt 
000000 

ooocoo 

000010 
001000 
001010 

ooiom 

001032 
001066 
000372 
000500 
000H76 
00072H 
001022 
000756 
0000H6 

ooooo^ 

tttttt 
000366 
000362 
000362 
000162 
001156 
000000 
000512 
000000 
0000H6 
000652 
000062 
000076 
0002HH 

ooom2 

000130 
000232 
OOOHOO 
000160 
000136 

noo2m 

000156 



R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 



RG 

R 

R 

R 

R 

R 

R 

P 

R 

R 

R 

R 

R 

RG 
G 
RG 
R 

RG 
RG 
RG 
RG 
RG 

R 
R 
R 
R 
R 
R 
R 
R 

R 
R 
R 
R 



REFERENCES 

12-175 

12-163 

12-161 

12-170 

12-168 

12-182 

12-18H 

12-178 
«12-181 

10-15 

10-20 

11-58 

6-198 

4-126 
»'4-133 

3-69 
»6-209 
«ll-64 

11-63 
»ll-68 

11-60 

11-94 
S15-359 
S15-39S 
815-397 

b-205 

11-65 
Ull-59 
85-177 

3-69 

4-127 

3-70 
814-344 

3-70 

3-70 

3-70 

3-70 

16-428 
81-5 

6-219 
*7-270 
87-270 

6-217 

S-30b 

■^ - 7 Q - 

87-28^ 

Q— j> 1 ^ 
87-259 

6-218 

7-286 

8-309 
*7-267 



PAGE 2 
CREF 



G 10 



1112-191 
1112-166 

12-165 
»12-173 

12-172 
1112-185 
812-186 
812-194 

810-17 
810-22 
811-129 
81C-5 
6-210 

86-191 

11-107 
81i-6b 

11-106 
811-S9 
811-109 



811-43 
811-b9 
11-139 

86-199 

15-374 
815- J57 

814-343 
813-212 
814-280 
812-157 
816-431 

87-266 
7-282 
7-272 

87-277 









87-291 



88-317 

7-297 

88-304 

u-7 '•? O C 

88-311 



812-167 

812-::^ 



15-375 



ii-i:; 



15-3S1 
lb-42B 



11-140 






*7-:?i 






*S- 



17 



8S-333 



7_ 






7-253 



*7-:S5 



S-32S 



i "7 _ '^ C "7 



S-332 



87-29S 



DPU 

SYtlBOL 

SYMBOL 

C SRRP 

C. SPS 

DE. PPI 

EPPOR 

HRLT 

I C I N2 

LNO 

LNP 

NOP 

OFF 

PS 
P 

CBP 
FlV-SiB 

fetn: 
ppp 

PSTS 

PSX 
RSXllD 



CRERTED BY 
CROSS REFERENCE 
VRLUE 

= tttttt G 
= tttttt G 
= tttttt G 

GOOSOb R 
= 000000 

00015H R 
= 000000 
= 000012 
= 0002H0 
= 000000 
= 000000 
= 177776 
= COOOOH 
= 000022 
= 000000 
= ^.000007 
= 000020 
= ittiii 

= 000001 



MRCRO ON 6-DEC-77 RT 08: 20 



RTll 



XBR 

XBC 

XBR 

XPP 

XWP 

5RQSCH 

SSlGFL 



PSXllM = OOCOOl 



= ****** 



R6 


z 


v.OOOOOb 


R7 


s 


V.000007 


SBL 


= 


000032 


sec 


— 


000277 


SEC 


X 


000261 


SEN 


— 


000270 


SEU 


~ 


000262 


SEZ 


X 


C0026H 


SEZN 


— 


000274 


SRfl 


— 


000010 


SSC 


- 


000042 


STC 


:: 


000013 


TPSKflO 


- 


****** 


T. EFLG 


z 


****** 


UBF 


- 


000044 


X 


z 


000010 



= 000036 

= 000040 
= 000016 
= 000014 
= 000034 

= ****** 
- ****** 



GX 
GX 



GX 
GX 



REFERENCES 

3-68 

3-68 

4-128 

15-379 
«2-4 

7-266 
»3-81 
»5-162 
«2-5 
«4-143 
«3-58 
«3-103 
»5-158 
»6-167 
«l-4 
87-263 
»5-166 

3-60 

10-23 
81-2 

3-87 

11-112 

;i-3 

11-S5 

3-57 

11-71 
83-110 
83-111 
85-171 
82-15 
82-11 
82-14 
82-12 
82" 1 3 
83-117 
85-161 

16-440 
85-175 
85-163 

11-111 
*11-116 
85-176 
85-159 

n-S9 
85-173 

12-lSB 
85-174 
85-165 
85-164 
85-172 
*11-117 
*11-1 IS 



6-214 
6-213 
16-384 

7-287 
6-211 
5-163 
83-115 
6-217 
3-80 

10-13 
5-168 

*7-273 
5-167 

3-76 

10-34 

11-110 

4-125 

11-141 

3-57 

11-141 

3-71 

11-85 



5-172 



5-162 

5- 17b 
5-164 



5-177 

5-lbl 

*ll-?3 

5-174 

5-175 
5- Ibb 
5-165 

5-173 



6-216 

fa-215 

815-399 

87-297 



10-14 



*7-2S9 
15-377 
4-130 
11-44 
14-263 
4-139 
12-1S7 
4-125 
15-372 
4-125 
15-372 



10-13 
10-14 



11-62 

11-52 

*11-9S 

*Il-bl 

*ll-59 

15-3S2 
11 -S9 



PRGE 3 
CREF 



H 10 



8-310 



10-22 



*7-293 

6-181 

11-70 

14-330 

7-279 

15-372 

4-145 

16-434 

b-192 

15-391 



11-52 
*14-309 



11-105 
*ll-59 
*11-104 

11-64 

*11-9S 



*11-104 



*8-315 

6-230 
11-82 

10-31 

16-434 

10-S 

6-2G0 
15-402 



11-134 
t 14-320 

*12-lb4 
*ll-bl 

11-105 
*ll-bb 

*12-179 
♦12- ISO 



«8-320 

7-258 
15-362 

11-79 

10-24 

10-S 
lb-434 



12-15S 



*12-lbb 
11-62 
11-133 
11 -bS 



*8-323 

7-294 
16-432 

11-90 

10-37 

10-24 



13-214 



12-lSl 
11-64 
11-134 
*ll-93 



8-325 
16-447 

11-95 

11-47 

10-37 



10-6 

11-99 
11-71 
11-47 



14-282 



15-387 



*ll-66 
*12-1^6 



11-68 
12-183 



I 10 

DPU CPERTED BY MfiCRO ON 6-0EC-77 RT 08 20 PfiGE '^ 

SYMBOL CROSS REFERENCE CREF 

SYMBOL \ffiLUE REFERENCES 

STSKHD = tttttt GX 11-117 

..CINT = tttttt GX 15-378 15-383 

..DINT = tttttt GX lfc-436 16-438 



J 10 

DU-'209 hi^CPO miOH Ob-DEC-77 08: 20 PfiGEl 



1 




2 


000001 


3 


000001 


H 


000000 


c, 


000000 



;PREFiy FILE FOR RSy-llfl OPll OR DUtl ISR 
RSX= 1 ;SET For CUTBACK CODE JflN '77 

psxiin=i 

RCVSIB=0 
CRBINT=0 



0UV20? MhlCPO MnO^ Ob-OEC-?? 08:20 PfiGE 2 



K to 



% 




t 




t 




% 


000000 


1 


000240 


ib 


000241 


T 


000242 


i 


000244 


Q 


000250 


10 


000257 


11 


000261 


12 


000262 


13 


G0C264 


14 


000270 


IB 


000277 



;PREFIX 

; WHICH 

;RPPEfiP 

HfiLT=0 

N0P=240 

CLC=241 

CLV=242 

CL2=244 

CLN=250 

CCC=257 

SEC=261 

SEV=262 

SEZ=264 

SEN=270 

SCC=277 



FILE FOR RSXnn flSSEHBLER AND ANY OTHER flSSEriBLER 
DOES NOT RECOGNIZE OPCODC MNEfiONICS EXCEPT iJHEN THEY 
IN THE OPCODE FIELD 



r" 



DU'i:09 nftCPO nilOH Ob-OEC-?? 08:20 PfiGE 2 



L 10 



t 

z 

3 
H 
S 

& 
7 
t 

to 
ti 

12 

IS 
16 
17 
18 
19 
20 
21 
22 
23 
2H 
2& 



m 

31 
32 
33 
3«» 
^ 
36 
37 
38 
39 
HO 

m 

42 

Hi 
HH 
45 
Hb 
H7 
US 
h9 
50 
51 
52 
53 

5'4 

55 
5b 
57 



COPYRIGHT (C) 1975, 1976, 1977 

DIGITAL EQUIPMENT CORPORPTION, MflYNflRD, MflSS. 



0175H 



THIS SOFTWRRE IS FURNISHED UNDER fl LICENSE FOR USE ONLY ON 
« SINGLE COnPUTER SYSTEM AND nflY 3E COPIED ONLY UITH 
THE INCLUSION OF THE RBOVE C0PYRI3HT NOTICE. THIS 
SOFTWRRE, OR ANY OTHER COPIES THEREOF, riRY NOT BE PROVIDED 
OR OTHERWISE tlRDE RURILRBLE TO RNY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM RND TO ONE WHO RGREES TO 
THESE LICENSE TERMS. TITLE TO RND OWNERSHIP OF THE 
SOFTWRRE SHALL RT ALL TIMES REMRIN IN DEC. 



THE INFOPnATlON IN 
WITHOUT NOTICE AND 
niTMENT BY DIGITAL 



THIS DOCUMENT IS SUBJECT TO CHANGE 
SHOULD NOT BE CONSTRUED AS A COn- 
EQUIPMENT CORPORATION. 



DEC ASSUMES NO RESPONSIBILITY FOP THE 
OF ITS SOFTWARE ON EQUIPHENT WHICH IS 
DEC. 



USE OP RELIABILITY 
NOT SUP PL I ED Br 



COMTE.X-ll DUll 
VERSION VOl-01 

ON 

ON 

ON 

ON 



VERS 
"EPS 
VERS 
VfERS 



VOl-02 
VOl-03 
V02-01 
V02-02 

CORRECTS UNDEF 

VERSION V02-03 

CHANGES 

VERSION 



ISR TABLES 

JLH 10/31/73 

JLH 11/15/73 

JLH 1/28/7H 

HMS H/1/7H 

JLH 7/23/7H 

NED IN RSTS ASSEMBLY 

PI^P 9''H/7H 

TO ASSEMBLE FOR RSX-llM 
V02-0H RHR 7/2/75 



F. B 



!N "DU MODE" 



MAKE DEVICE PRIORITY A GLOBAL DEFINITION FOP PSX 

VERSION V02-05 RHR 9/5/75 

MODIFICATIONS TO RUN WITH PTll 

VERSION V02-06 RHR 12/11/75 

MODIFICATIONS TO RUN THE DUP-ll 

VERSION V02-07 CEP 11/76 

MODIFICATIONS TO RUN WITH RSTS VbB 

VERSION V02-08 CEP 6/77 

MODIFICATIONS TO RUN WITH LSMl 

VERSION V02-09 CEP 9/77 

MODIFICATIONS TO PUN CUT-CODE VERSION 

INTERNALLY DEFINED GLOBALS 
GLOBL CU, FST CU. cST 



; EXTERNALLY REFERENCED GLOBALS 
. IF DF RTll 

. GLOBL CFKLU 

. GLOBL . . CINT. . , DINT.PMON 

. mlhll . DEVICE.-. . v:. . 

. . V2. . 
. ENDC 
IF DF P^.TS 



DU'/209 MQCPO nnOH Ob-DEC-77 08:20 PPiGE 3-1 



n 10 



Di 



SS 



B9 




bO 




bl 




b2 




63 




bi+ 




65 




bb 


'■■ ' 


br 




bS 




b9 




70 


CiOCOOO 


71 




n 




71 




7H 




n 




76 




77 
1 1 




78 




79 


^ . OCOOOl 


SO 


000000 


81 




82 




S3 




SH 




86 





. GLOBL CFKLU^CSR.RJ 
ENDC 

.2780 PCS DePlNlTiON. DEFAULTS TO USE IN 2780 EnULPTlON 
. IF NDF PCS 

;RCS=1 IMPLIES USE 'N 2780 EMULflTOR 



RCS= 
. ENDC 



1 



. IF DF PSTS 

0S = 

. ENDC 

. IF DF RSyilDIRSXllMlPTii 

OS = 

. ENDC 

. iF NDF OS 

LN0 = 2 

:. ENDC 

. IF DF r-c 

. IF NDF PS^£ 

. GLOBL DUCSR 

. ENDC 

VECTCP=1 

LNO = 
ENDC 
; VECTOR DE F I rn T I ON P f? OC E --S. DE F P JL T S TO USE TABLE 

IF NDF VECTOR 
VECTOP= 
ENDC ; 



.DEVICE ADDRESS E.^TEPNALLV DEFINED 



:USE VECTC'F DEf^irnTlON VlH . AiECT 



ki 1 n 



C'U'/209 MRCPO nilOH Ob-DEC-77 08; 20 PPIGE ^ 



N 10 



Dl 



87 
S8 
89 
90 
91 
92 
93 
9^ 
95 
90 
97 
98 
99 

1 66 

101 
102 
103 

104 

105 
10b 
107 
lOS 
109 
110 
111 
112 
113 

im 

115 
lib 
117 

lis 

119 
120 
121 
122 
123 
124 
125 
12b 
127 



. IF 2 UECTOR 

;DU11 VECTOR 

. RSECT 

. s 300 

. UORD 
. WORD 
. WC^O 
. WORD 
. UORD 
. WORD 
, WORD 
.WORD 
, WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 

. CSECT 

. ENDC 



RDDRESS definition: 



OLlOGOO 



000000 



CURl, 
C'jRl, 
CURl, 
CURl, 
CURl. 
CURl, 
CURl. 
CURl. 
CURl. 
CURl. 
CURl. 
CUPl, 
CUPU 
CUPl, 
CUPl^ 
CURl. 



3H0,CUT1 
3^0,CUT1 
3H0,CUTl 
3H0. CUTl 
3H0,CUT1 
3H0,CUT1 
3H0, CUTl 
3^0,CUTl 
3H0,CUT1 
3H0,CUT1 
3^0,CUT1 
3H0,. CUTl 
340-CUTl 
3^0.CU'1 
340.CUT1 
340.CUT1 



, 3^o 
, 3^o 

,3140 
, 3H0 
, 3H0 
, 3H0 

<3^0 
, 3^0 

, 3«40 

, 3^o 
. 3^o 

.340 
, 3H0 
.340 
,- 34 
.340 



. IF DF PSXUD 
. PSECT ISR 
0FF=b0000 
. ENDC 



. IF or 

. PSECT 
. ENDC 
. IF NOF 
OFF = 
. ENDC 

. IF OF 
. GLOBL 
. ENDC 
.IF NDF 

CPV'Pr 

DE. PPI= 
. ENDC 



RSXllM 
ISP 

PSXUD 



PSXIIDIPSXIUMRTU 
CPVP.DE PPI 



OS 

60G 

240 



; VECTOR hDDPESS 
: PPI OP I TV = 5 



f»'MMflMFtn>B'«^n^BlSnii'^«tff<WV'y'nttim«»r.--f?-:*»Bi».tft-«iiS«.^J«».iia^ 



0U^j209 rfiCPO nnOH Ob-OCC-?? 08: 20 PPiGE 5 



B tl 



129 

130 
131 

133 
133 
134 
13B 
136 
137 
138 
139 
luo 

mi 
142 

m3 

mM 

IHB 
IHb 

mr 
ms 

m9 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

ISO 

ISl 

1S2 

1S3 



OOOGOO 
COOOGO 



GGOOOO 
000GG4 



OOODIG 
000010 
0G0C12 
000014 
000015 
000016 
000020 
000022 
00CG24 
000026 
0Q0G30 
000036 
00C037 
000040 
000042 
000044 
00G046 



000050 



DUll ISP TRBLE RDDRESS. ONE IS GIVEN HERE 
RDDlTlONflL DEVICES MAY BE SUPPORTED BY THE 
RDDITION OF FUNCTIONRLLY SlfllLfiK TABLES FOR 
THE flDDITIONfiL DEVICES. 
THE FIRST LABEL OF THE FiRST 
THE FIRST CELL FOLLOWING THE 
- IF DF RSTS 

^ . GLOBL CURUCUTUCUSUCRBLX.CPBUX.CPB 
. IFF 



LAST 



CU. FST, 
IS CU. 



LST. 



NX 



CU. FST: 

CURl: 



004 167 000652 



CUT1 



000004 004 167 GGG"2b 



OOOOOOG 
OOOOCOG 
OGOG 
000 
OOOOOOG 
OGOIOO' 
000160" 
000050' 
OOOOOOG 
OOOOGO 
000 
000 
OOOGOO 
000000 
036062 
101062 



:usi 



000000 000000 



. IF DF PTU 
• GLOBL DC.PPI 
JSP R5.alRf10N 

.WORD DC PR I 

. ENDC 

JSR RhCURlS 

. IF DF PTU 
JSR R5 iPnON 

.WORD DC. PR I 
. ENDC 

JSR r:<cutis 



;N0TIFY RT-ll OF INTERRUPT ^ CHNG TRIOR. 
-ALSO SAVES R5 \ R4 
; ARGUMENT FOR INTEN 

;RECEIVE VECTOR ENTRY POINT 



NOTIFY RTll OF INTERRUPT &. CHNG PRIOR 
:ALSO SAVES P5 & P4 
.^ARGUMENT FOR INTEN 

;TPPNSn!T VfECTOR ENTRY POINT 





. WORD 


DUCSP 




. WORD 


CPUP 




. BYTE 


DE. PRI 




. BYTE 







. WORD 


C. SPS 




. WORD 


CRBLX+OFF 




. WORD 


CRBUX 




WORD 


CRBINX 




. WORD 


CFKLU .; 




. WORD 


0. 0- C 




. BYTE 


LNO 




. BYTE 







WORD 







. WORD 







. WORD 


36062 




. WORD 


101062 


;THE FOLLOWING 


' LABEL MUST 


CU. LST: 


ENDC 




. IF DF 


RSTS 






DEFOPC 


I PJDV3 


. ENOC 







DUCSR ADDRESS FllLS HERE 

VECTOR ADDRESS 

DE'iMCE PRIORITY 

DEVICE RTS COUNTER (TEMP) 

DEVICE RElEIVE/TRANSMIT BR 

DEVICE CRB LOADER 

DEiMCE CRB UNLOADER 

DEVICE CRB !NIT ROUTINE 



BUSY LOC 



FAKE SIB LOADER 
; DEVICE 



CELLS 



tpansmit temporal 

;LINl NUMBEP 
OLE FLAG 
CE PARCSR INITIAL CONTENTS 
CE DEFERRED STRIP SYNC FLAG 
DU-11 PARCSR INITIAL CONTENTS 
DUP-11 PARCSR INITIAL CONTENTS 



SYNC 

DEV 

DEV 



FOLLOW THE LAST DUll 



%%%%% THIS 



IS 



ISP 
THE 



TABLE 
END OF 



DUll 'SR TABLES 



DUa209 nflCPO rinG4 Qb-OEC-77 08: 20 PAGE 6 



c i: 



185 






186 






187 






188 






187 






190 






191 






192 






193 






191* 






195 






19b 






197 






198 






199 






200 






201 






202 






2o: 






204 






205 






206 






207 






20S 






209 






210 


0C0400 




211 


177400 




212 






213 






2m 






215 






21b 


000005 




217 


000004 




2!8 


000007 




219 






220 






221 






■->r,.-) 






^i.i. - 




■ ■ i , 


223 






224 000060 


012705 


177400 


225 000054 


010567 


000076 


22b OQOCbO 


010567 


000164 


22? 000064 


005065 


00C652 


22S 000070 


062705 


000002 


22? 000074 


001373 




23C 000076 


000207 





,xttt%tttt%ttttttxttt%xt%%tttttt 
,tttt%tx%%tt%t%ttt%t%ttttttttt%t%t 

;CIRCUL«R RECEIVE BUFFER LOADER fiNO UNLOflDER ROUTINES 

; THESE TUO ROUTINES PROVIDE 9 FACILITY FOR LOADING SINGLE 
;WORO ENTRIES INTO AND RETRIEVING SINGLE WORD ENTRIES FROM 
;AN INTERNALLY PROVIDED CIRCULAR RECEIVE BUFFER 

; BUFFER SIZE IS SPECIFIED AT ASSEMBLY TIME VIA THE PARAMETER CRBS2X 

.THE USER MUST DEFINE THE RETURN REGISTER RETNX, AND THE WORK 

; REGISTERS CBAX AND CBBX AT ASSEMBLY TIME (CBAX AND CBBX DEFINE WHICH 

;REGISTERS THE TRP riUST UTILIZE FOR CRB UNLOADER SERVICE. ) 

;THE ROUTINES REQUIRE THAT BITS 15 AND 14 BE CLEARED BEFORE THE 
;LOADER IS CALLED, SINCE THESE ARE RESERVED FOR USE BY THE ROUTINES 

;T0 CREATE A UNIQUE COPY OF THESE ROUTINES FOR A MULTl-CRB ENVIRONMENT 
; REPLACE X WHEREVER IT APPEARS AT THE END OF A SYMBOL 
;BY A UNIQUE CHARACTER 

, ttttxtxxxxxtttttxxtt 

.CPB DEFINITIONS 'USED BY DUll LINE 1) 



, IF NDF RSTS 

CRBSZX=400 

CRBn2X=-CRBSZX 

. IFF 

. GLOBL CRBnZX 

. ENDC 

CBRX = -.5 
CBBX=-.4 
PETNX = >.7 > 



; DEFAULT IS 64 CHPPflCTEP BUFFER 
,-(THE BUFFER SIZE) 



WORK REGISTER A, MUS"!" BE SAVED 
; PEG I STEP B. FOR CHARRCTLP PASSING 
:PETURN REGISTER 



;CIRCULfiP RECEIVE BUFFER INITIALIZATION ROUTINE 

;MUST BE CALLED PRIOR TO USING CRB LOADER AND UNLOPDER 



CPBINX: 


MOV 


»CPBriZX,CBAX 


;PICK UP START INDEX 




MOV 


CBAX,CSINX 


; STORE INDEX 




MOV 


CBAX.CF'NX 


; FETCH INDEX 


CPBLPX: 


CLP 


CPBLnX(CbHV) 


; CLEAR CURRENT UOPOK 




ADO 


;2, CBAX 


;DONE^ 




8NE 


CPBLFX 


;N0. DO NEXT UQPD 




RTS 


PETNX 





D'J'/20? MRCPO inOH Qb-DEC-77 08; 20 PAGE 7 



D 11 



2i2 

im J J 

22S 
23b 
237 

238 
239 
240 
2m 

2H3 
2U'4 
245 
:4b 

:h:' 

2HS 
2H9 
250 
251 
252 
253 
25^ 
255 
25fc 
257 
258 
259 
260 
2b 1 



000100 
000104 



OOOllO 

oooim 

0001 Ife 
000122 
000^30 
000132 

ooomo 
ooom: 

OOOWH 
000162 
000154 



00015b 



052704 
016705 



005765 
100413 
010465 
062767 
001003 
012767 
000250 
000207 

C52765 
000270 
000207 



'400 



100000 
000046 



000652 

000652 
000002 

177sOO 



000026 
000016 



.CIRCULfiR RECEIVE BUFT 
;EXIT CONDITIONS: 



OQOEP 



CRBLX: 



CRBRSX 

CR^'OX; 



Lli 



NX: 



N=0 - CONTENTS OF CBBX HPVE BE:n STORED IN THE BUFFER 

N=l - BUFFER OVERRUN H«S OCCURED. CBBX CONTENTS NOT STORED 



BIS 

nov 

. IF DF 
ROD 

. end: 

TST 
BMI 

nov 

ADD 
BNE 

CLN 
RTS 



mOOOOO.CBBX 
CSINX.CBflX 
RSXllD 
llOFF,CflfiX 



;SET BIT 15 OF INCOMING WORD 
; FETCH THE CURRENT INDEX 

; ADJUST OFFSET FOR MAPPING 



CRBLMXCCBAX) ; IS THE LOC'-iTlON AVAILABLE? 
CRBOVX ;N0. SET OVERRUN FLAG 
CBBX,CRBLMX(CBfiX) ; STORE THE ENTRY 
»2,CSINX ; UPDATE THE STORE INDEX 
CRVOX ;WE'PE NOT AT END OF BUFFER 
«CPBM2X,CSINX , RESET TO START OF BUFFER 



040000 000652' CPBOUX. 6 IS 

SEN 
PTS 



RETHX 

»40000-CRBLnX(CBAX) 
PETNX 



;SET BIT 14 OF ENTRY 



IF DF RSTS 
GLOBL CSINX 
IFF 



. UOPO 
. ENDC 



-L'PBSZX 



.CIJPPENT BUFFtP 3T0PE INDEX 



DUV209 nP'PO ^lnG^ Ob-DEC-77 08:20 PRGE 8 



E n 



263 
26H 
265 
266 
267 
268 
269 



270 


000160 


016705 


000064 


271 


000164 


016504 


000652' 


272 


000170 


100025 




273 


000172 


005165 


000652' 


27H 


000176 


062767 


000002 


275 


000204 


001003 




27b 


000206 


012767 


177400 


277 


000214 


032704 


040000 


27S 


G00220 


001004 




279 


000222 


042704 


140000 


2S0 


000226 


000257 




281 


000230 


000207 




282 








283 


000232 


042704 


140000 


28^ 


000236 


000250 




286 


000240 


000262 




286 


000242 


000207 




287 








288 


000244 


0002^0 




289 


00024b 


000207 




290 








291 








292 








293 








294 








295 








296 


000250 


177400 




297 








298 








299 








300 


000252 


000652' 




:ci 




000652* 




302 
303 








ZQH 








30b 









000044 
000034 



/CIRCULPR RECEIVE BUFFER UNLOQOER 

;EXIT CONTITIONS: 

; N=0, V=0 - CBBX CONTAINS ENTRY. NO OVERRUN 

N=0, V=l - CBBX CONTAINS ENTRY. OVERRUN HOS OCCURED 

; N=1.V=? - NO ENTRY flVfllLflBLE 



CRBUX: 



CRYOX. 



CPBSVX: 



CPBNOX: 



MOV 
MOV 
BPL 

con 

ADD 

BNE 

MOV 

BIT 

BNE 

BIC 

CLflLL 

RTS 

BIC 
CLN 
SEU 
RTS 

SEN 
PTS 



CFINX.CB9X ;GET CURRENT FETCH INDEX 

CRBLnX(CBfiX),CBBX ;FETCH ENTRY CONTENTS. WAS IT DfiTfl? 



CRBNOX 

CRBLnX(CBOX) 

«2.CFINX 

CRYOX 

HCRBMZX^CFINX 

<J40000.CBBX 

CRBSVX 

»140000,CBBX 

RETNX 

»140000.CBBX 

RETNX 

PETNX 



;N0. SET N=l AT EXIT 

;FREE ENTRY LOC (BUT LEAVE DEBUG TRACE) 

; IF P,T END OF BUFFER, RESET 



UAS THERE AN OVERRUN-? 

YES. SET V 

NO. CLEAN UP THE ENTRY 



CLEAN UP ENTRY 



NO ENTRY AVAILABLE 



. IF OF PSTS 

. GLOBL CF INX-CRBXXX.CRBLflX 

.IFF 



CFINX; , WORD -CPBS2X 

;THE FOLLOUING RESERVES THE BUFFER STQREPGE 



CRBXXX: . =. +CPBS2X 

CRBLMX=. 

. ENDC 
: tittttttllttttttttt 

;,;;;;;;;; END OF DUU. TBL 



BUFFER UniT 



///f//'f 



DU'':o9 Mocpo nnoH oe-OEC-?? 08; 20 prge 10 



F VI 



2 




I 




H 




1 




^ 




7 




8 




Q 




10 




t1 




12 


000257 


i2 




m 




IS 


17777fe 


Ife 


000000 


17 


000001 


18 


GG0002 


19 


000003 


2Q 


000004 


U 


G00005 


n 


000006 


n 


000007 


a^ 




n 




u 


000001 


tf 


00000: 


» 


000004 


n 


000010 


n 


000020 


3t 


000040 


n 


000100 


n 


000200 


T^ 


000400 


3S 


001000 


3^ 


002000 


37 


004000 


38 


0:0000 


39 


020000 


40 


040000 


\\ 


100000 



12 




»»5 




m 




i|S 




^ 




%7 




%z 




«I9 




50 




St 


000002 


%t 


000004 


S3 


000010 


§t| 


00C020 


IS 


000040 


1^ 


000100 


ir 


000200 



COMTEX-ll OUn. ISR 

VOO-01 JLH 18-0CT-73 

VOO-01 JLH n/l5/73 

V02-09 CEP 9/77 

nOD IF I CAT IONS TO RUN WITH CUT CODE 

(SEE DUll. TBL FOR HODIFICflTION HISTORY) 



TITLE DUV2G9 

, INSTRUCTION DEFINITIONS QS REQU 

Ci.OLL= CLC!CLU!CLN!CLZ 

.•REGISTER DEFINITIONS 

PS= 17777b 

R0= -/.G 

Rl= y,\ 

R2= \1 

R3= XI 

P4= ^4 

R5= y,h 

SP= \h 

pc= yj 

;B!T DEFINITIONS flS REQUIRED 

EITOO= 1 

BIT01= 2 

BIT02= 4 

BiT03= 10 

elT0^= 20 

BIT05= 40 

BlTOb= 100 

BIT07= 200 

BIT08= 400 

BIT09= 1000 

BIT10= 2000 

BITllr 4000 

BIT12= 10000 

BIT13= 20000 

BIT14= 40000 

BIT15= 100000 



RED 
CLEPiR 



ALL CONDITION CODES 



DUll EXTERNPLLY 
GLOBL C. SPS 



REFERENCED GLOBRLS 



DUll INTERNALLY DEFINED GLOBflLS 

GLOBL CURIS. CUTIS, CU. OSU.CU. non^CU. MOD, CU. INI CU. t^LL.rij Rcj 

GLOBL CUFSTP.CULSTP 



CONTROL/STATUS REGISTER 

;DRTR TERMINAL RERDY 

; REQUEST TO SEND STATE 

;SECONDRRY TRRNSMIT DRTR 

;SERRCH SYNC - SET IMPLIES CLERP RCV ACTIVE 

;DATA SET INTERRUPT ENABLE 

;REUEI:E INTERRUPT ENABLE 

; RECEIVE DONE CHRPRCTEP RVRIlRELE 



;DU11 


RXCSR (RECEIVE 


DTR = 


BITOl 


PTSA= 


BIT02 


STD= 


BIT03 


SSYN= 


BIT04 


DSINTE 


= BIT05 


RINTE= 


BITOfe 


RDONE= 


BIT07 



DU^/209 nOCPO nnOH Ofe-OEC-77 08; 20 PfiGE 10-t 



G n 



58 


OOGHOO 


S? 


OOIDUO 


bO 


002000 


61 


OOHOUC 


62 


OlOOOO 


63 


L'2000Q 


bH 


040000 


bS 


ICOOCO 


6b 




67 




6S 


000010 


6? 


000020 


70 


000040 


71 


OOOIOO 




000200 


•^ -^ 


000400 


71* 


014000 


75 


100000 


76 




7*' 
1 ( 




78 


000377 


79 


000400 


80 


001000 


81 


002000 


82 


004000 


83 




84 




85 


0000C2 


86 




87 




88 


OOIGOO 


89 


0^0400 


90 




91 





93 
94 



95 




9b 


000004 


Q7 


000010 


9S 




99 


000010 


100 


000012 


101 


000014 


102 


000014 


103 


000015 


104 


000016 


105 


000016 


106 


000020 


107 


000022 


108 


000024 


109 


000026 


110 


000030 


111 


00G032 


112 


000034 


113 


000036 


114 


000037 



STRSYN= BIT08 

DSR= BIT09 

SRO= BITIO 

RRCT= BlTll 

CDs BIT12 

CTS= BIT13 

»ING= BITIH 

L'ETC= BIT15 



.oun 

HDUPL= 

SEND= 

DNfiINT 

TINTE= 

TDONE= 

MRESET 

MnOOE= 

DNR= 



TXCSR (TRflNSniT CONTROL 
81X33 



B 

= B 

B 

B 



134 
T05 
T06 
TO"' 



= BITOS 

BlTlHeiT12 
BIT15 



.STRIP SYNC. CHflRflCTERS 

;DflTP SET REPOY 

; SECONDARY RECEIVE DPTP 

; RECEIVER ACTIVE 

; CARRIER DETECT 

; CLEAR TO SEND nOOEM LEAD 

;RIN6 DETECT nODEM LEAD 

;DATA SET CHANGE HAS OCCURRED 

STATUS REGISTER) 
;HALF DUPLEX STATE 
;SEND, I. E. TRANSMIT DATA 
;DATA NOT AVAILABLE INTERRUPT ENABLE 
.TRANSMIT INTERRUPT ENABLE 
; TRANSMIT DONE 
; DEVICE MASTER RESET 
, MAINTENANCE MODE 
;DATA NOT AVAILABLE 



;DUn PARAMETER 
SYNREG= 377 



EVNPARs 
ENBPfiR= 
CHL68= 
CHL7S= 

;DU11 M 
TCOUNT= 



BITOS 
BIT09 
BITIO 
BITll 



SELECTION REGISTER PARCSR 

;SYNC CHARACTER BITS 0-7 
;EVEN PARITY SELECTION 
: ENABLE f-ARITY CHECK/GENERATION 
;CHAR LENGTH 6 OR 8 B I TS 
:CHAR LENGTH 7 OR 8 B I TS 



SCELLANEOUS 
2 



DEFINITIONS 



COUNTER FOP RTS DROP ON TCOMPLETION 



;DU11 S'B ENTRY 
XnTSIB= 1000 
STSSIB= 40400 



;DU11 ISR 



TYPES - W/0 LINE 



NUMBER 
TRANSM 
STPITUS 



T COMPLETE SIB ENTRY 
SIB ENTRY - 1ST UORD 



- 1ST WORD 



TABLE DEF INT 
. IF DF PSTS 

R= 4 

S= 10 

. IFF 

R= CUTl-CURl 

S= CUSl-CURl 
. ENDC 

RCSR= S 

RVECT= RCSR+2 

RPRIOR= RVECT+2 

TPRIOR= RPRIOR 

RTSCTR= TPRIOR+1 

RBUSY= RT5CTR+1 

TBUSYr RBUSY 

CRBLDR= TBUSY+2 

CRBUNL= CRBLDP+2 

CRBINT= CRBUNL+2 

SIBLDR= CRBINT+2 

NTWP= SIBLDRt2 

CTBA= NTWP'I-2 

CTBC= CTBA+2 

LINEN0= CTBC*2 

SYNIDL= LINENO+1 



I NT I ON - RELATIVE TO BEGINNING 



OFFSET FOR RECEIVE VECTOR ENTRANCE 
OFFSET FOR TRANSMIT VECTOR ENTRANCE 

RECEIVE CSR ADDRESS. WORD 

RECEIVE VECTOR ADDRESS. WORD. 

RECEIVE PRIORITY. BYTE 

TRANSMIT PRIORITY. BYTE 

RTS COUNTER. BYTE 

RECEIVE BR LEVEL BUSY LOC. WORD 

TRANSMIT BR BUSY LOC. WORD 

CRB LOADER ADDRESS. WORD 

CRB UNLOADER ADDRESS. WORD 

CRB INITIALIZATION ADDRESS. WORD 

SIB LOADER ADDRESS. WORD 

NEXT TRANSMIT WORD PAIR. WORD 

CURRENT TRANSMIT BUFFER ADDRESS 

CURRENT TRANSMIT BYTE COUNT. WOPD 

LINE NUMBER. BYTE 

SYNC IDLE FLAG. BYTE 



J 



DU'.'209 MRCPO nUOH Ob-DEC-77 08:20 PRGE 10-2 



H 11 



ns 




OOOOHO 


Ub 




000040 


117 




000042 


US 




000044 


119 




000046 


12C 




000050 


121 






1 ?'? 






123 


000652 


000000' 


124 


000654 


000050' 


12S 






12b 

1 '"'"' 






12S 






12? 






13C 






131 

1 7 "> 






I WW 

133 






t3U 






135 






1 3b 






13:^ 






13S 






139 







SYNCHRs SYNIDL^I 

DEVSTS= SYNCHR 

STPSYNs SYNCHRf2 

DUSTS= STPSYN*2 

DUPSTS= DUSTSi2 

ISRSI2= DUPSTS+2M77776 

;DU11 ISR TRBLE POINTERS 

CUFSTP: . WORD CU. FST 

CULSTP: . WORD CU. LSI 



;2780 EnULRT 
. IP NDF PCS 
RCS= 1 
. ENDC 



; VECTOR DEFiNT 

.IF t^OF VECTOR 

VECTOR= 
. ENDC 



ON MODE DEFINiTHN 



SYNC CHflRflCTER/DEVSTS. WORD 
; DEVICE STATUS. HO BYTE OF SYN CHRR. 
; STRIP SYNC FLAG/ DELRYED. BYTE 
;DU-n INITIRL PRRCSR SETTING 
DUP-U INITIRL PRRCSR SETTING 
ISR TRBLE LENGTH NOT RN ENTRY. 



;RDDRESS OF FIRST DUll ISR TRBLE 
;RDDRESS OF LRST DUll ISR TABLE 



.DEFAULTS TO 2780 EMULATION USE 



BYTE 



ON DEFOULTS TO UTILIZE . ASECT CODING 

; DEFAULT TO COnnON COMTEX PRACTICE 



; PARITY 

.IF NDF 
USEPflP= 
. ENDC 



CALCULATION 

USEPflP 

n 



DEF INI HON 



DEFAULT TO ODD. EVEN MEANING 



DU'.'209 MPCPO nilOH Ob-OEC-77 08; 20 PfiGEll 



11 



IHI 






m2 






iw] 






l^^ 






m5 


- : 




iHb 






m? 






ms 






149 000656 






150 






151 000656 


010246 




15: 000660 


010346 




153 






154 






155 






15t 






15? 






158 000b62 


016102 


000004 


159 






160 






161 C'G0666 


011203 




162 






163 






164 000670 


105^03 




165 000672 


100015 




166 0D0674 


046112 


000036 


167 






168 






169 000700 


016204 


000002 


170 000704 


010405 




171 OC0706 


030527 


040000 


172 000712 


001402 




173 000714 


052704 


020000 


174 003720 


004771 


000014 


175 00 3724 


000760 




176 






177 






178 






179 00C726 






ISO 






181 






182 






18 J 






1S4 






1S5 000726 


012603 




186 000730 


012602 




187 






ISS 000732 


012601 




1S9 






190 






191 






192 






193 






194 






195 






196 000734 


000207 




197 







;DUn RECEIVE INTERRUPT SERVICE ROUTINE -- CURIS 

;ENTERED FROM ISR TABLE Vlfi JSR Rl. CURIS. 

;UPON ENTRY ROUTINE flUST SET LEVEL BUSY. 

; LOWER PRIORITY, QNO SAVE ANY NECCESSflRY REGISTERS. 

;iT nusT EXIT viq jnp c.sps (priority scheduler) 

; AFTER RESTORING ANY REGISTERS AND CLEARING THE 
; LEVEL BUSY FLAG. 



CURIS: 



. IF NDF RSTS 

MOV R2.-(SP) 

MOV R3.-(SP) 

. IF NDF RSXllMiPTll 

MOV R4,-(SP) 

MOV R5.-(SP) 

. ENDC 

. ENDC 

MOV RCSR-R(.R1),R2 



;RSTS HAS SAVED ALL REGS 

;THEN SAVE REGISTERS P2-R5 FOR USE 



SINTSV ALREADY HAS SAVED R4 S R5 



GET DEVICE RCSR ADDRESS 



•PCV INTERRUPT OCCURRED TEST FOR INTERRUPT CAUSE 
PGOT: nOV i)P2.R3 ; OBTAIN RCSR CONTENTS 

, INTERRUPT CAUSE UAS NOT DATA SET CHANGE. DID RCV CHAR OCCUR 

CUTPDN: TSTB R3 ; IS PCV DONE SET 

BPL CUPXIT :N0. NO SERVICE, LEAVE 

BIC STPSYN-P(R1 ).i)P2 .: CLEAR STRIP SYNC IF DEFERRED FLAG SET 

RECEIVE CHARACTER INTERRUPT HftS OCCURRED. SERVICE CHARACTER 



CUGRCH- MOV 2(R2).R4 
MOV P4,R5 
BIT P5.«BIT14 
BEQ NORCVO 
BIS «BIT13.R4 

NOPCViO: JSR PC-i)CPBLDP-PfPl) 
BR ROOT 



,LOAD RECIEVED CHARACTER INTO P4 

;AND REPLICATE CHARACTER 

;DID OVERRUN OCCR 

;N0 

; YES, SET INDICATOP 

; STORE CHRPflCTEP IN CPE 

;RND LOOK FOP MOPE 



; RECEIVE INTERRUPT ROUTINE EXIT POINT 
CUPXIT: 

.IF NDF RSTS 

. IF NDF RSyilM&PTll 

MOV (SP)+.P5 

MOV (SP)+P4 

. ENDC 

MOV iSP)+-P3 

MOV (SP)+-R2 
ENDC 

MOV fSP)+.Pl 
IF DF RSTS 



RESTORE REGISTERS P5-P2 



AND FINRLLV RESTORE ENTRY PEGISTPE 



RETURN 
ENDC 
IF DF 

JMP 
ENDC 
IF DF 

PTS 

. ENDC 



RSXllD 
i)». . INTX 

PSXliniPTll 
PC 



; RETURN TO CODE iN THE E-Er BUFFER POOL 



DU'i209 m(.90 nnO^ Ob-DEC-?? 08:20 PfiGE 12 



J n 



199 
200 

201 
202 
203 
204 
20S 
206 
207 
208 
209 
210 

:ii 
:i: 

213 

2m 

21B 
21b 
217 
218 
219 
220 
221 

Ill 
11^ 
llh 
llh 

117 
IIZ 
229 
230 
231 
232 
233 
234 

2_Nb 
>-> -^ -^ 
— jf' 

239 
2U0 
241 
242 
24 3 
244 
245 
246 
247 

248 
249 
250 
251 

253 
254 
255 



000736 

000736 
000740 
000742 



000750 
000754 
000756 
000760 
000764 
000766 



000770 
000774 
000776 



001002 
001006 



001010 
001016 
001022 
00102b 



001030 
001034 
001040 



001042 
001046 
001052 



010246 
010346 
010046 



0007U4 016102 000000 



016203 
105703 
100104 
105761 
001406 
100071 



031227 
001450 
105061 



005761 
00145b 



000004 



000005 



020000 



OOCOilB 



000024 



117162 000022 

005261 000022 

005361 000024 
0G1060 



016105 nono2n 
012561 nooo:2 
001405 



012561 
010561 



000024 
000020 



001052 000446 



000006 



;TRfiNSniT INTERRUPT SERVICE ROUTINE - CUTIS 

;ENTERED FROM ISR TfiBLE VIR JSR Rl. CUTIS 

;UPON ENTRY ROUTINE nUST SET LEVEL BUSY 

.LOUER PRIORITY LEVEL TO THPT OF DEVICE. AND SRVE 

;PNY NECCESSflRY REGISTERS. 

;UPON EXIT, IT MUST RESTORE REGISTERS, CLEAR 

;LEVEL BUSY RND EXIT VIR jnP C. SPS (PRIORITY SCHEDULER), 



CUTIS: 



.IF NOF RSTS 
nOV R2.-(SP) 
MOV R3,-(SP) 
MOV RO, -(SP) 
. ENDC 
MOV RCSR-S(Rn,R2 



;RSTS ALREADY SAVED ALL REGS 
;SAVE REGISTERS P2, R3 

;RSX11D NEEDS RO ALSO 

; OBTAIN RCSR ADDRESS 



N'EFRUPT HAS OCCUPED GET TCSR CONTENTS. 



MOV 4(R2LP3 

TSTB P3 

BPL CUTEXT 

TSTB RTSCTR-S(Rl) 

BEQ TRANSI 

BPL WINDUP 



OBTAIN TCSR CONTENTS 
IS TDONE SET 

NOT NOW, EXIT FROM INT SVC RTM 
; IS RTS COUNTER ACTIVE 
NO - TRY TRANSMISSION 
WAITING FOR RTS DROP 



;WfllTlNG FOR CTS PRESENCE BEFORE TRANSMISSION 

BIT i)P2.»CTS .; IS CTS PRESENT 

BEG OUTCHP ;N0, SEND CHARACTERS TO WAIT 

CLPB rTSCTP-S(Rl) ;CTS PRESENT, CLEAR DELAY FLAG 

■ mu TPV TO SEND SOME DATA CH»;RACTERS 

TPANSI: TST CTBC-S(Pn ;IS TRANSMISSION ACTIVE 

BEQ EXITT ;TRANSMISSION NOT ACTIVE, CLEAR 

; TRANSMISSION IS IN PROGRESS OUTPUT DATA CHARACTER 
TRANS: MOVB olCTBA-S^ P P . b ' P2 -^ ;OBTfllN TRANSMIT CHARACTER 
INC CTBA-S(Rl) ; UPDATE ADDRESS 
DEC CTBC-S(Pl) :AND BYTE COUNT REMAINING 

BNE CUTEXT ; TRANSMIT DEFINITELY NOT COMPLETE 

: TRANSMIT BYTE COUNT WENT TO ZERO. UPDATE TO NEXT CA-BT PAIR 
.IF NDF PSX11I1 



NTERRUPTS 



CUTXTl 



MOV R5,-'SP' 

. ENDC 

MOV NTWP-S'RP.PS 

MOV iR5)+CTBfi-S'Pn 

BEQ TFINI 

. IF DF R3X11D 

ADO UOFF.. CTBfl-S(Pi 

. ENDC 

MOV (R5)+,CTBC-S(R1) 

MOV R5-NTUP-S(Rl) 

. IF NDF RSXllM 

MOV (SP)^^R5 

. ENDC 

BR CUTEXT 



Sfl^.'E R5 

AND OBTAIN NEXT TWP - BA SPECIFICALLY 
OBTAIN NEXT BUFFER ADDRESS 
THAT'S END OF THIS TRANSMISSION 



THEN UPDATE BYTE COUNT 

AND FINALLY NEXT T WORD PAIR 



; RESTORE P5 

;AND EXIT FROM INTEPPUPT 
;TPRN3MIT BUFFER ADDRESS HAS GONE TO ZERO. TERMINATE TPPNSM! SS I ON. 



C 

c 

C 



DU'C09 n«CPO nHQH Ob-OEC-77 08:20 PfiGE 12-1 



K II 



0010514 
00105H 



OOlGbO 
OOlOfeb 
00107H 



:5b 

2S7 

:ss 
:59 

2b0 
2fcl 

264 
265 
2t.b 
2b7 
2bS 
2b9 
270 
271 

273 

Art t ^ 

A. I o 

277 
278 
279 
280 
281 
282 
2S3 
284 
285 
286 
287 
288 
289 
290 

292 
293 
29H 
295 

29b 
2Q7 

29S 

299 001152 

300 001156 
301 

302 

303 001160 

304 001164 
305 

306 

307 001170 

30S 

309 001174 

310 001176 

311 001200 
312 



TFIN 



G16700 OOOOOQG 



001100 
001104 
00110b 
001114 



001116 
001122 



001124 
001132 



001134 
001142 



001144 

001150 



iF DF RSX 
nOV TRSKRCRO 

. IF DF RSXllD 



052760 
016767 
005067 



105761 
00101" 
112"bl 
0004 25 



105761 
001004 



012762 
000416 



116162 
000412 



042703 
000407 



105361 
001362 



042712 
042703 



000040 

OOOOOOG 

OOOOOOG 



OOOOOOG 
OOOOOOG 



000005 



000027 
000002 

000027 

000777 000006 

0C0030 000006 

000140 

000005 



000004 
000020 



010362 000004 

012600 
012603 
012602 



BIS 

BISB 

. IFF 

BIS 

MOV 

CLP 

. ENDC 

. IFF 

MOV 

CLPB 



«HO.fl. EF(RO) 
ffEV. SE.olt.SERFG 

»40.T. EFLG(RO) 

5TSKH0.SRQSCH 

5SIGFL 



«XMTSIB,P5 

P5 

JSP PC,alSIBLDP-S(Pl) 
. ENDC 

. IF NDF PSXllM 
MOV (SP)+ P5 
. ENDC 



;SET 'SIB EVENT FflLG' 
;SET SIGNIFICRNT EVENT 



DECLARE SIG EVENT 

SET UP SIB ENTRY FOR TRP NOTiFICflTIQN 
OND COLL SIB INSERTION ROUTINE 

RESTORE R5 



;TPP NOTIFICATION HRS OCCURRED. NOW CLEAR INTERRUPTS OR USE DELRY 

TSTB SYNiDL-S(Rl) ;IF SYNIDL SET, USE SYNCS FOP DELAY 
BNE EXITT CLEAR TRANSMIT INTERRUPTS 

MOVB «TC0UNT,PTSCTR-S'R1) ; OBTAIN RTS DROP COUNTER 
BP CUTEXT ;AND EXIT INTERRUPT POUTINE 

;UAIT IN PROGRESS HAS NOT COMPLETED SEND SOME DATA 
OUTCHR: TSTB SYNIDL-S(Rl) ;IS LINE IDLING 

BNE OUTSYN ; YES, LET IT SLEEP PEACEFULLY 

aiNE IS DELAYING - REQUIRES MARK CHARACTER FOP DELAYING 
OUTMRK; MOV «777,6fP2> ; SEND THIS CHARACTER 

BR CUTEXT ;AND TEST FOR ADDITIONAL OUTPUT REQUIREMENT 

;LINE IS DELAYING - REQUIRES SYNC CHARACTER 

OUTSYN MOVB SYNCHR-S' R 1 ' . 6' P2 ' ^OUTPUT SYN CHARACTER 

BR CUTEXT ;AND LOOP UNTIL NO TRANSMIT FLAG 

;LINE HAS COMPLETED - OP PfiLSE INTERRUPT 

EXITT: BIC itTlNTE+DNPlNT,P3 :S10P THE WORLD 

BR CUTEXT ;AND EXIT INTERRUPT ROUTINE 

;WAIT IS IN PROGRESS FOP TRANSMISSION TERMINATION 
W'NDUP: DECB RTSCTP-S^RP , COUNT THESE INTERRUPTS 

BNE OUTMRK ;PROCESS NOT COMPLETE- WAIT BY SENDING CHAR 



; TERMINATION PROCESS COMPLETE, 
BIC «RTSR,aR2 
BIC SSEND-R3 



TELL THE WORLD 
;N0.. CLEAR RTS ASSERTION 
;AND DROP SEND REQUEST 



;EXIT FROM TRANSMIT INTERRUPT SERVICE 

CUTEXT; MOV R3.4(R2) ; AND UP'hTE TCSP PRIOR TO EviT 

IF Nor RSTS 
MOV (SP)+.RO 

MOV (SP)4--R3 ;THEN RESTORE R3 AND P2 

MOV fSP^+.R2 
ENDC 



f,! '■• 



:o9 ni^cpo ^no^ Ob-DEC-77 os: 20 prge 12-2 



L n 



:i3 001:02 012601 

:is 

316 

317 

31S 

319 

320 

321 00120U OQ0207 

322 



MOV (SP)*,Rl 
. iF DF RSXllD 



.FINALLY RESTORE ENTRY REGoTER 



J MP 
. ENDC 
. If DF 
RETURN 
. ENDC 
.IF DF 
PTS 
. EMCC 



al«. . INTX 
RSTS 



RSxnniPTu 

PC 



; RETURN TO CODE iri THE EXEC BUFFER POOL 



DU'J2Q9 riQCPO nn04 Qo-DEC-/? 08: 20 PAQE 13 



n n 



326 






326 






t^f 






■a *• ' 






328 






-n« 7 






330 






331 






332 






333 




, 


334 






335 






33b 










337 






33S 






339 OOCOOC 






340 






34 1 






34: 






3'43 OGCOOO 






344 






345 






346 OCOOOO 


016202 


000002 


347 






348 






349 000004 


012106 




360 






361 






362 00000b 


01b203 


000010 


363 






364 






366 






36b 






367 000012 


113746 


irrr^b 


36S OOOGlb 


116237 


000014 


369 






3bO 000024 


006705 




3bl 00002b 


100006 




362 000030 


106062 


000037 


363 000034 


006306 




364 000G3b 


100002 




_;66 000040 


105262 


000037 


36b 






367 






36S 000044 


012104 




369 000046 


001423 




370 000060 


010462 


000032 


371 






372 ^ 






373 






374 000064 


012162 


000034 


376 






376 






377 






37S C00060 


010162 


000030 



17:^ 



;DU11 ISR NON-INTERRUPT SERVICE ROUTINES 

;ENTERED FROn COMTEX-tl SCIP DEVICE TYPE ''IflTR'X SWITCH (C. SPRP) 

;WITH THE FOLLOWING CONDITIONS ON ENTRY; 

;P1=P0INTER TO PRIORITY LIST 

;Rz=TfiP LINE TRBLE RDDRESS 

;R3=LINE NUriBER flS UORD ADDRESS 

;EXIT CONDITIONS. EXITS Ulfl RTS PC 

;SP=STflTE UPON ENTRY 

;PLL OTHER REGISTERS UNDEFINED 

;PS RETURNED TO CPLLER 

;DU11 TRPNSniT ENABLE ROUTINE - CU OSU 

; DEVICE TYPE MPTPIX SWITCH FUNCTION CODE = 

.IF OF PSAUD'FSXliri 
PSECT XXX 
ENDC 
. IF NZ PCS 

GLOBL CP. OSU 
CP OSU: 
. ENDC 



CU. OSU: nOV 2fP2).P2 



OBTAIN ISP TABLE ADDPESS 



:END OF TPANSMIT CHAIN HAS BEEN f?EACHED WITH NO EPPOP 

CUOSUl MOV (Pl)+,R6 .OBTAIN FLAG WORD AS SPECIFIED 



■ k 



EPPOP IN UOPD/BYTE SPECIFICATION. TFY IDLE SYNC CHANGE 



CU0SU2 r\0\i PCSP'P2'.P3 
. IF DF LSI 11 

, riFps -(SP) 

nTPS IFF I0P(P2) 
. IFF 

Hovc i);ps- -'SP^ 

MOVB TPRI0RiR2.'.ai«PS 

ENDC 
TST P6 
BPL CU0SU3 
CLPB SYNiDL'P2) 
ASL P6 
BPL CU0SU3 
INCB SYNIDLfP2) 



-GET DEVICE PCSR ADDPESS 

;THEN SAVE CUPPENT PPiORlTY 

:AND DISALLf^W INTEPPUPTS FROM THIS DEVICE 

;TH£N SAVE CUPPENT PRIORITY 

;AND OISALLOLI INTEPPUPTS FROfl THIS DEVICE 

;,;IS CHANGE OF IDLE SYNC SPECD 
;;;N0 

;; : YES. CLEAR IDLE SYNC FLAG 
;; ; AND SEE UHAT IS TO BE DONE 
; . ; CLEAR SVNC IDLE 
; ;: ASSERT SYN IDLE 



:!^LAG TESTING HAS BEEN COflPLETED. NOW START UP WHATEVER IS TO BE 



379 
3S0 



00006U 
000070 



052713 
062763 



nonnnu 

000120 



000004 



CU0SU3; MOV iPl)+.P4 
BEQ CU0SU4 
MOV R4,CTBA';R2) 
. IF DF PSXllD 
ADD «0FF,.CTBR'P2) 
. ENDC 

MOV (Pn + .CTBC(P2i 
. IF DF PSXllD 
ADD tJOFF.Pl 
. ENDC 

MOV Rl.NTWPiR2) 
BIS ;PTSA.iP3 
BIS SSEND+TlNTE-HiPj) 



CHARACTERS TO BE TRANSMITTED 

NO 

YES. UPDATE BUFFEP RDORESS 



AND THEN BYTE COUNT 



AND NEXT TRANSMIT WORD PAiR 

ASSERT RTS 

AND ASSERT SEND WITH TDNP INT 



Kt 4 4 



DUW209 nfiCPO nn04 Ob-DEC-77 08: 20 PfiGEt3-l 



N tt 



381 000076 


032763 


014000 


000004 


3S2 000104 


001017 






3S3 00010b 


112762 


177777 


000015 


3S4 0001 m 


000413 






355 








3Sb 








38" OOOllfe 


005762 


000032 




3S8 000122 


001033 






339 000124 


105762 


000037 




390 000130 


001423 






391 








39: 








393 000132 


052763 


000020 


000004 


394 000140 


052713 


000004 




395 0001U4 


105763 


000004 




:9b 000150 


100020 






397 00015: 


105762 


000037 




39S 00015b 


001004 






399 








400 








401 OOOlbO 


G12763 


000777 


OOOOCd 


402 000 Ibb 


0004 1 1 






403 








404 








405 000170 


1 lb:b3 


nooouo 


OOOOOb 


406 00017b 


000405 






407 








408 








409 000200 


04:713 


000004 




UIO 000204 


O427o3 


0000:0 


000004 


411 








412 








413 000:12 








414 








415 








41b 000:12 


112637 


r77"6 




417 








41S 00n:ib 


000357 






4!9 ooo::n 


nco:o7 







BIT »riM00E.4(R3) 
BNE CUTSTX 
MOVE »-l,RTSCTRf02) 
BR CUTSTX 



S" 



;;; IS riRINTENflNCE MODE SET 

;;; IF SO IGNORE WAIT FOR CTS 

;;;THr.N INDICATE CTS WAIT 

;;; THEN START UP DEVICE IF POSSIBLE 



, TRANSMISSION, IF STARTABLE HAS BEEN INITED 



CU0SU4: TST CTBA(R2) 
BNE CUOSUX 
TSTB SYN1DL(R2) 
BEQ CU0SU5 

;SYNC IDLE IS TO BE ASSERTED 
BIS «SEND.4fR3) 
BIS »RTSfi,ilR3 

CUTSTX: TSTB 4(R3) 
BPL CUOSUX 
TSTB SYNlDLfR2) 
BNE CU0SU6 



; ; IS TRANSMISSION ACTIVE 
;;;rES, NO CAHNGES NECCESSARY 
;,, IS SYN IDLE ACTIVD 
;;;N0 



;;; ASSERT SEND 

,;;AND ASSERT REQUEST TO SEND 

;;;TEST IF TDONE SET 

;;;N0, LEAVE. DEVICE SHOULD START 

;;; IS SYNC IDLE ACTIVE 

;;;YES, SEND ONE SYN CHARACTER 



•START TRANSMISSION VIP JAMHING MARKS INTO T REGISTER 

MOV «777,bfR3) ;;;8 BIT MARK CHARACTER PLUS TSOM BIT FOR DUP 
BR CUOSUX ;;;AND EXIT 

; START TRANSMISSION ViR SYNC CHRPACTER OUTPUT 



CUOSUb; MOVB SVNCHI<fR2),<^fP3 
BR CUOSUX 

;SYNC IDLE IS TO BE CLERRED 
CU0SU5: BIC »RTSP-iiP3 

BIC «SEND.4(P3) 

.ALL PROCESSING COMPLETE EXIT 
CUi"'SUX. . IF DF LSI 11 

MTPS ^SP.) + 

. IFF 

MOVi'B ' SP.1 + . a)rPS 

. ENDC 

CLRLL 

RTS PC 



:;;LOAD T REGISTER UiTH SYNC TO START XM I SSI ON 
;,;THEN EXIT 



;;;DROP RTS ASSEPTiQN 
;;;AND SEND ASSERT I ON 



DPOP TO ENTRANCE PRIORITY LEVEL 

DROP TO ENTPRNCE PRIORITY LEVEL 

QND CLEPP RLL CONDITION CODES 
THEN EXiT 



ESaSSS^SBSSS3S33I33SS3LsSSSS3!S::S3S3SSSSe3SS^Si3i^S^ 



SSE^S^ 



Dyv209 nflcpo nnoM ob-OEC-z? os: 20 ppige ih 



B 12 



H21 



422 






H23 






42H 






H25 






H2b 






H27 000222 






428 






H29 






430 000222 


016202 


000002 


431 000226 


012746 


177777 


432 000232 


016104 


000002 


433 000236 


030427 


100121 


434 000242 


001433 




435 000244 


016203 


000010 


4 3b 000250 

43:^ 

43S 


005016 








439 000252 


030427 


000001 


440 00025b 


001405 




441 000260 


030427 


000002 


442 000264 


001424 




443 00026b 


052713 


000002 


444 000272 






445 000272 


005704 




4'. 6 000274 


100016 




447 000276 


005004 




448 000300 


011303 




449 000302 


030327 


001000 


450 000306 


001402 




451 000310 


05270^ 


000004 


452 000314 


030327 


000002 


453 000320 


001402 




454 000322 


052704 


000010 


455 000326 






456 000326 


C1U461 


000004 


457 






458 






459 000332 


005726 




^bO 000334 


000207 




Ubl 






462 






46 J 000336 


04 271 J 


000002 


464 000342 


000753 




U65 






466 






467 000344 


04 2713 


000010 


4bS 000350 


000750 





.DUll nODEM CONTROL SENSt ROUTINE - CU. riDn 
.ENTERED FROM SCIP DEViCE TYPE riPTRIX fiUITCH 
.DEVICE TYPE PflTRIX SUITCH FUNCTION CODE = 1 



. IF N2 


RCS 




. GLOBL 


CP. r^DM 


CP, MDri: 






. ENDC 






CU. MOM: 


nov 


2(R2.'.R2 




nov 


«-l,-(SP) 




\iQy 


2(R1).R4 




BIT 


R4,,:aiT00+BIT 




BEQ 


NOSRDP 




MOV 


RCSR(R2),R3 




CLP 


aiSP 


;SOnE ACTION IS SPECIFIED 




BI r 


^.4,;ritoo 




B-.Q 


r.OD'iRC 




Bi"!- 


R4,«BiT01 




BF^ 


CLRDTR 




GIS 


«DTR,iiR3 


NODTRC: 






NOSTDC. 


TST 


R4 




BFL 


NOSRDP 




CLP 


P4 




nov 


iR3,R3 


NOCTSP; 


BIT 


P3.SDSP 




BEQ 


NODSPP 




BIS 


ttBIT02,. PU 


NODSPP: 


BIT 


P3-8D"rR 




BEQ 


NODTPP 




BIS 


SBIT03.P4 


NODTPP. 






NSRDPX: 


nov 


R4,4CRn 



; OBTAIN ISR TABLE ADDRESS 
;SET FLAC TO EXT I WUTH ERROR 
;OBTAIN SPECIFIED PhRAMETER WORD 1 
+BITU6+BIT15 ;IS ANV ACTION SPECIFIED 

, NOTHING SPECIFIED. EXIT WITH ERROR 
; SOMETHING TO DO. GET RCSR ADDRESS 
;AND SET ERROR FLAG TO NO ERROR 

TEST EACH CONDITION 

IS DTP CHANGE REQUESTED 

NO DTR CHANGE 

DTR CHANGE SPECIFIED. HOW? 

CHANGE BY CLEARING 

CHANGE BY ASSERTION OF DTR 

; IS SENSE REQUESTED 

.;N0, EXIT 

;YES. CLEAR SENSE REPOSITORY 

; OBTAIN CURRENT SPATES 

; IS DSR PRESENT 

; NO 

;YES. INDICATE DSP PRESENT 

; IS DTP ASSERTED 

.:N0 

;YES- INDICATE DTP ASSERTION 

;AND UPDATE USER SENSE LNCS 



;THEN EXIT FROM MODEM CONTROL ROUTINE. 
NOSRDP: TST tSP)t ;OBTAiN EPPOP FLAGS 

RTS PC ;AND EXIT 

ROUTINE IS REQUESTED TO CLEAR DTP 



F ANY 



CLRDTP: BIC nDTR,iiR3 
BP NODTRC 



; CLEAR DTP ASSEPTiON 
;AND CONTINUE TESTS 



; ROUTINE IS REQUESTED TO CLEAR STD 



CLPSTD; BIC »STD.aR3 
BP NOSTDC 



CLEAR STD ASSERTION 
THEN CONTINUE TESTS 



L. 



DUV20? nflCPO nnOH Ob-DEC-?? 08:20 PfiGt 15 



C 12 



H72 
H73 
l♦7^ 
U7S 
H7b 
>477 

^7S 

H79 

H20 

481 

482 

483 

HS4 

4 85 

48b 

487 

488 

489 

490 

491 

492 

493 

494 

496 

^96 

497 

498 

499 

500 

501 

502 

503 

504 

505 

50b 

507 

BOS 

509 

510 

511 

512 

513 

514 

515 

51b 

517 

518 

519 

520 

521 

522 

523 

524 

525 

52b 



00120b 



00120b 

00120b 
001212 
00121b 
001222 
00122b 
001232 
00123b 
001240 
001242 
00124b 
001250 
001254 
00125b 
00l2b2 
0012b2 
001262 
00126b 
00126b 
001274 
001274 
001300 
001302 
001306 
001310 
001314 
001320 
001322 
001330 
001332 
001334 
001340 
001344 
001350 
001354 



00135b 
001362 



001364 
001370 



001372 
001376 



DUll nODE CONTROL/SENSE ROUTINE - CU. MOD 
DEVICE TYPE MRTRIX SWITCH FUNCTION CODE = 

. IF DF RSX 

. PSECT ISR 

. ENDC 



01b202 
01bl04 
01274b 
016203 
016205 
C30427 
0014b0 
00501b 
030427 
001405 
030427 
001440 
052713 



052705 

052763 

030427 
00^.413 
030427 
001426 
052713 
030427 
001424 
012762 
005704 
100004 
042713 
052713 
010563 
010562 
000411 



042713 
000737 



042713 
000751 



005062 
000754 



000002 
000002 
\77777 
000010 
000040 
015041 



000001 
OOOOID 
000120 

GObOGO 

000010 000004 

010000 

020000 

000400 
040000 

000400 G0C042 



000020 
000020 
000002 
000040 



000120 



000400 



000042 



. GLOBL CP. nOD 
CP. MOD: 



CU. MOD: 



CKRCV 



CKSTSI: 
NOINTC; 

NOCLC: 

NOHDC: 
NOSYNC- 



MOV 
MOV 
MOV 
MOV 
MOV 
BIT 
BEQ 
CLP 
BIT 
BEQ 
BIT 
BEQ 
BIS 



BIS 



2(R2),R2 

2(R1),R4 

«'1,-(SP) 

RCSR(R2).R3 

SYNCHR(R2),R5 

R4,«BIT00+BIT05*b 

TSTSNS 

o)SP 

R4.»BIT00 

NOlNTC 

R4,«BIT03 

CLPRI 

URINTE+SSYN, iR3 



;OBTPIN ISR TPBLE ADDRESS 
; OBTAIN PARAMETER WORD 
; INITIALIZE ERROR FLAG TO ERROR PRESENT 
.OBTAIN RCSR ADDRESS 
; OBTAIN DEVICE SVN CHAR/ STATUS WORD 
T09+BITll'fBIT12 ; IS ANYTHIG TO BE DON£ 
;N0 CHANGES, TRY SENSE REQUEST 
, SOMETHING SPECIFIED, CLEAR ERROR FLAG 
;ARE INT/MMODE SPECS TO BE CHANGED 
;N0 

, IS RECEIVE ENABLE TO BE ASSERTED 
;CLEHR 
; ENABLE RCV INTERRUPT AND SEARCH SYNC 



»CHL78!CHLb8,R5 



CKSSDC: 
NOSSC: 

NORCVC: 



BIS nHDUPL,4(R3) 

BIT R4,»BIT12 

BEQ NOSSC 

BIT R4,»BIT13 

BEQ CLPSS 

BIS USTRSYN.5R3 

BIT R4,«3IT14 

BEQ CLPSSD 

MOV «STRSYN, STPSYH'P2) 

TST R4 

BPL NORCVC 

B:C «SSYN. JR3 

BIS wSSYN, alR3 

MOV R5, 2(R3) 

MOV R5,SYNCHR(R:". 

BR TSTSNS 



SET UP FOR ? BITS 

ASSERT HALF DUPLEX MODE 

IS STRIP SYNC CONTROL TO BE CAHNGED 

NO CHANGE 

CHANGE REQUESTED, HOW IS I T TO Be SET 

CLEAR STRIP SYNC 

ASSERT STRIP SYNC 

IS STRIP SYNC DEFERRED SELECTION <jJ 

CLEAR DEFFERRED STRIP SYNC SELECTION 

^'tT DEFERRED STRIP SYNC CONTROL 

IS RCV ACTIVE TO BE CLEARED 

NO 

CLEAR RCV ACTIVE VIA SEARCH SYN CLEAR 

AND SEARCH SYNC ASSERTION 

THEN UPDATE DEVICE STATUS 

AND SAVED DEVICE STATUS 

AND THEN TEST FOR SENSING REQUIRED 



-CLEAR ReCEIVE INTERRLPT SELECTION - DISABLE RECEIVE 
CLRRI: BIC «RINTE+SSYN,i)R3 ;CLEAR PINT AND SEHRCH SYNC 
BR CKSTSI ;flND CONTINUE TESTS 

;CLEAR STRIP SYNC SELECTION 

CLPSS: BIC »STRSYN,i)R3 .DROP STRIP GYNC SFLECTION 
BR CKSSDC 

'clear DEFERRED STRIP SYNC SELECTION 

CLPSSD. CLP STPSYN(P2) ; DROP ISP TABLE INDirflTOP 
BR NOSSC ;flND CONTINUE 



001400 005726 



TSTSNS: MOD^IT: TST (SP1 + 



.:PECOVEP FLAG WORD 



J 



DUU209 n«CPO nnOH Ob-DEC-?? 03:20 PfiGE 15-1 



D 12 



527 001402 

S28 

629 000352 

530 



000207 



PIS PC 
. iF OF RSX 
. PSECT XXX 
. ENDC 



AND EXIT 



000352 



DUU209 nPCPO Mn04 Ob-OEC-77 08; 20 PfiGE lb 



S33 

S3S 

S36 

S37 

53S 

539 

BHO 000352 

5m 000352 016700 

5H2 

5143 000356 000405 

545 

5Ub 000360 004567 

54;^ G00364 

54S 000364 000257 

54? 000366 000270 

5b0 0003:^0 000207 

551 

652 

553 0003'': 

554 

555 

556 

557 

558 

559 

660 000372 

661 000372 016003 

662 000376 020327 

663 000402 103770 
664 

565 000404 004567 

566 

567 

668 000410 010006 

569 000412 016600 

570 000416 016503 
671 000422 006002 

572 000424 012701 

573 000430 004737 

574 000434 103751 

675 000436 022020 

676 000440 012701 

677 a0044H 004737 

678 000460 103743 

679 000462 004667 
680 

681 000466 010062 

682 000462 016060 

683 000470 062763 

584 000476 032763 

585 000604 001003 

586 000606 016060 

687 000614 062763 

688 000622 016063 



E 12 







;DU11 LINE INlTlPLIZfiTlON - CU 


INI 








;MflTRIX SWITCH FUNCTION CODE = 


7 






.'if NZ 


RCS 








. GLOBL 


CP. INI 








CP. INI: 










. ENDC 










CU. INI: 






000652' 




- # 


MOV CUFSTP,RO 
BP GOTLIN 


;OBTOIN ADDRESS OF BEGINNING LINE TABLE 


OOGOOGG 




• 

ERPORl: 
CU. INI: 
ERROR: 


JSR P5.C.SPES 

CL^LL 
SEN 


;MAKE SURE WE RESTORE REGS ON ERROR 






■ » 


RTS PC 


;EXIT ROUTINE 






; ISP TRBLE FOP SPECIFIED LiNE 1 


"OUND 






GOTLIN: 


. IF DF RSTS 










CMP RCSR(RO), 8160300 ; IS DEVICE ADDRESS PRESENT-? 








3HI DEVPPS 


;YES 








MOV iRCSR(R0^R3 


:GET ADDRESS RSTS IS GIVING US 








MOV R3.RCSR(P0) 


.:PUT CSR ADD INTO THE FIELD - CAUSE THAT 

; IS WHAT THE REST OF THE CODE EXPECTS TO FIND 








■ ^NDC 








DEVPPS- 






OGOOIO 






m\i RCSRfR0),R3 


;GET RCSR ADDRESS OF SPECIFIED DUll 


16000G 






CMP R3. 8160000 
BLO ERROR 


;WAS IT FOUND 

;N0 - THERE IS A CONFIG ERRER 








. IF DF PSyilD!PSXllM!RTll 


GOOGOOG 






JSR P5.C.SPEG 
MOV R0.R5 


;D0 THIS HERE SO THAT WE DON'T 
; CLOBBER THE CSR IF NETWORKS IS 
;USING THE DEVICE 
;COPY TABLE ADDRESS 


000012 






MOV RVECT(R5)-R0 


;GET VECTOR ADD IN RO 


000014 






MOV RPRI0RCR5).R3 


.SET DEV INT PRIORITY IN R3 








CLR if 






000000 ' 






MOV 8CUR1.R1 




SET UP FOR RECEIVE INT 


OOOOOOG 






JSR PC,i)8..CINT 

BCS ERPORl 

CMP (R0)+. (R0)+ 




CALL ROUTINE TO SET UP VECTOR 
VECTOR ALREADY ASSIGNED 
GET TRAN VECTOR 


000004 • 






MOV 8CUT1.R1 






GOOGOOG 






JSR PC>i8. . CINT 




GO SET UP TRANSMIT VECTOR 








BCS ERROR! 




VECTOR ALREADY ASSIGNED 


OOOOOOG 






JSR R5.C. SRES 
. ENDC 


;PESTORE REGISTERS 


000002 






MOV R0.2(R2) 


; PLACE ISR TABLE ADDRESS IN TAP TRBLE 


000044 


000040 




MOV DUSTS(RO),SYNCHR(RO) ; RSSUME WE HOVE DU-11 


000001 


0000G4 




BIS 8BIT00,4(R3) 


;FIND OUT IF IS DU (DUV) OR DUP 


000001 


000004 




BIT 8BIT00,4(R3.' 
BNE lOS 


;DID THE BIT REFUSE TO SET? 
;N0. IT IS A DU-l! 


000046 


G00040 




MOV DUPSTS(RO),SYNCHR(RO) ; YES. ITS fl DUP-1! 


000400 


G0G0G4 


IDS: 


BIS 8MRESET,4(R3) 


;THEN CLEAR DEVICE 


000040 


000002 




MOV SYNCHR(R0),2CP3) 


;AND SET DEVICE TO OLD STflTES 



DUV209 


MQCPo nnoH Ob 


-DEC-77 


08: 20 1 


B39 


000630 


0'A?70 


Q0002H 




590 


00063H 


016062 


000022 


00000^ 


691 


0005H2 


005060 


000030 




692 


0006^fe 


005060 


000032 




697 


000562 


005060 


00003H 




691* 


000556 


105060 


000037 




696 


000562 


105060 


000015 




696 


000666 


006060 


0000H2 




697 










698 










699 










bOO 











PfiGE 16-1 



F 12 



bOl 

6o: 

b03 
60H 
606 
bOb 
bO^ 
60S 
609 
610 
611 
612 
613 

6m 

616 
616 

bl7 
618 

619 
b20 
bCl 



0006:^2 
00C67H 



000267 
G00207 



JSR PC.dCRBINT(RG) 

nOV CRBUNL(R0^HCR2) 

CLR NTWP(RO) 

CLR CTBO(RO) 

CLR CTBC(RO) 

CLRB SYNIOL(RO) 

CLRB RTSCTR(RO) 

CLR STPSYN(RO) 

. IF OF RTll 

MOU »flT. END^RO 

.DEVICE 

. ENOC 
CLPLL 
RTS PC 

. IF OF PTll 

; PflPfiMETER BLOCk'toP DEVICE 
RT. END: . BYTE 
BYTE m 
. UOPD OTTEND 



;THEN CALL CRB INIT RTN 
;PLPCE CRB UNLOPDER POORESS 
;THEN INITIPLI2E ISR TABLE 



N TAP TABLE 



;SET UP FOR EXIT TIME 
.DISABLE INTERRUPT WHEN THE 
; PROGRAM ABORTS FOR ANY REASON 

; CLEAR ERROR FLAGS 
.EXIT 



CALL 

.NO CHANNEL 

; FUNCTION CODE 

;LIST OF UOPDS TO BE LOADED 

:AT PROGRAM TERMINATION 



•ATTEND 



/////// 



UOPD 
UOPD 
WORD 
WORD 
WORD 



ENDC 



DUCSR 



DUCSR+4 







ADDRESS OF COMM 
FORCE IT TO 
TRANSMIT CSW 
ALSO FORCE TO G 
END OF LIST 



CSW 



DUW209 nftCPO nno^ Ob-OEC-?? 08: 20 PRGE 17 



G 12 



6:3 








b:^ 








b:s 








626 








b27 








628 


00057b 






629 








630 








631 


000576 






632 








633 


000576 


016705 


000652' 


t,lM 








b3S 


G00602 


016500 


000012 


to36 


000606 


004737 


OOOOOOG 


tZ" 


000612 


022020 




63S 


000614 


004737 


OOOOOOG 


j7 

bHO 


000620 


016503 


000010 


64 1 


000b24 


052^63 


000400 


642 








643 


C00b32 


P0n25" 




644 


000634 


000207 





.DUll SYSTEM RESTWRT - CU. RST 
;nRTRlX SWITCH FUNCTION CODE 

.' IF N2 PCS 
. GLOBL CP. RST 
CP. RST: 
. ENDC 



. ii 



CU. RST: 



NOF 



000004 



. IF 
MOV 
. IF 
MOV 
JSP 
CMP 
JSR 

ENDC 
MOV 
BIS 

ENDC 
CLRLL 
PTS PC 



RSTS 

C'JFSTP,R5 
DF RSXllDIRSXl 
RVECT(R5),R0 
PC,a)«. . DINT 
(PO)^. (RO)* 
PC,i)». . DINT 



MIRTH 



PCSP^P5) 
«MRESET. 



R3 
• iP3) 

CLEhP 



GET BEGINNING TPBLE PDDRESS 

OBTAIN VECTOR ADDRESS 

RND DISCONNECT FROM VECTOR 

BUMP TO TRANSMIT VECTOR 

AND DISCONNECT FROM THAT VECTOP 

AND OBTAIN RCSR ADDRESS 
CLEAR THE DEVICE 



CONDITION CODES 
;AND PETUPN TO CALLEP 



DIJW209 nfiCPO nnOH Ob-DEC-?? 08:20 PfiGE 18 



H 12 



b4fe 




647 




b4S 




649 




650 




bSl 000636 




bB2 




653 




654 000636 


000257 


655 000640 


000270 


656 000642 


000207 


b57 




658 


OOCOOl 



;DUU TRflNSniT DISABLE ROUTINE - CU. KLL 
;DEVICE TYPE flflTRlX SWITCH FUNCTION CODE 



= 5 



. IF N2 
. GLOBL 
CP. KLL: 
. ENDC 


RCS 

CP. KLL 


CU. KLL: 


CLRLL 
SEN 
PTS PC 



,N0 ERROR E.XISTS 
,flNO EXIT 



END 



0U^i209 


MQCPO MnO^ Ob-DEC-77 


08: 20 PAGE 


18-1 




1 


12 














SYMBOL ■ 


TQBLE 


























BITOO = 


OOOOOl 


CP MOM 


000222RG 


003 


CUTIS 


000736RG 


002 


MMODE s 


014000 




RTSCTRs 


000016 




BiTOl = 


000C02 


CP. MOD 


0012G6RG 


002 


CUTRON 


000670R 


002 


MOOX 1 T 


001400R 


002 


RVECT » 


000012 




BITO: -. 


0000014 


CF OSU 


OOOOOORG 


003 


CUTSTX 


OOOmHR 


003 


MRESETa 


000400 




S 


000010 




BITQ3 = 


000010 


CP.RST 


000576RG 


003 


CUTXTl 


00t062R 


002 


NOCLC 


0012b6R 


002 


sec » 


000277 




BlTQi* = 


000020 


CRBlNTr 


G0002H 




CUTl 


OOOOOHR 


002 


NOCTSP 


000302R 


003 


SEC = 


000261 




BITOS = 


OOOOHO 


CP6INX 


OOOOBGR 


002 


CU. FST 


OOOOOORG 


002 


NODSRP 


0003mR 


003 


SEN = 


000270 




BiTOb = 


OOOIOO 


CRBLOR= 


G0002G 




CU. INI 


0003S2RG 


003 


NODTRC 


000272R 


003 


SEND = 


000020 




BiTO? = 


000200 


CPBLMX= 


GG0652R 


002 


CU. INI 


00036HR 


003 


NODTRP 


G00326R 


003 


SEV s 


000262 




BIT08 = 


0001*00 


CRBLPX 


GG0064R 


002 


CU. KLL 


000()36RG 


003 


NOHDC 


001274R 


002 


SEZ s 


000264 




61109 r 


001000 


CRBLX 


G001GGR 


002 


CU. LST 


OOOOSORG 


002 


NOINTC 


0012b2R 


002 


SIBLOR: 


000026 




BiTlO '. 


002000 


CRBM2X= 


1774GG 




CU. MOM 


000222RG 


^03 


NOP - 


000240 




SRO = 


002000 




BUll = 


004000 


CRBNOX 


0G0244R 


002 


CU. MOD 


001206RG 


02 


NORCVC 


001344R 


002 


SSYN s 


000020 




B!Ti: -- 


010000 


CPBOVX 


G00144R 


002 


CU. OSU 


OOOOOORG 


J03 


NORCVO 


Q0G720R 


002 


STD = 


000010 




BlTlZ = 


020000 


CRBPSX 


G00132R 


002 


CU. RST 


000576RG 


003 


NOSROP 


000332R 


003 


STPSYNs 


000042 




Biim : 


01*0000 


CRBSVX 


000232P 


002 


C. SPS = 


Utttt G 




NOSSC 


001330R 


002 


STRSYN= 


000400 




BITIS = 


1 00000 


CPBS2X= 


G004GG 




C SREG= 


tttttt GX 




NOSTDC 


000272R 


003 


STSSIB= 


140400 




CBflX = 


-.000006 


CRBUNL= 


000022 




C. SRES= 


tttttt GX 




NOSYNC 


0G1274R 


002 


SYNCHR- 


000040 




CBsy -- 


-.000004 


CPBUX 


GOOlbOR 


002 


DEUPRS 


000372P 


003 


NSRDPX 


GG032bR 


003 


SYNIDL= 


000037 




•ICC 


00026:^ 


CRBXXX 


G00262R 


002 


DEVSTS= 


000040 




NTWP = 


G00G30 




SYNREG= 


000377 




CD 


010000 


CPVOX 


000140R 


002 


DE. PRI = 


tttttt G 




OFF = 


GGGOOG 




TfiSKflD= 


tttttt 


GX 


CFINX 


000260P 


002 CPYOX 


000214P 


002 


DNR = 


100000 




OS 


GGOGGG 




TBUSY = 


000016 




CF^LU = 


ttttit GX 


CSINX 


00015bR 


002 


DNfllNT= 


000040 




OUTCHR 


001116R 


002 


TC0UNT= 


000002 




CHL68 = 


002000 


CTBR = 


000032 




DSETC = 


100000 




OUTMRK 


001124R 


002 


TDONE = 


000200 




CHL78 = 


004000 


CTBC = 


000034 




DSINTE= 


000040 




OUTSYN 


001134R 


002 


TFINI 


G01054P 


002 


CKRCVI 


001260P 


002 CIS = 


020000 




DSP 


001000 




PS 


177776 




TINTE = 


GOO 100 




CKSSUC 


GonmP 


002 CUFSTP 


000662RG 


002 


DTP 


000002 




R 


G00004 




TPRIOR= 


G00G14 




CKSTSI 


001262P 


002 CUGPCH 


G00700P 


002 


DUCSR = 


tttttt G 




PRCT = 


004000 




TRRNS 


GGIGIOR 


002 


CLOLL = 


G00267 


CULSTP 


O00fe64PG 


002 


DUPSTG= 


000046 




PBUSY = 


GG0G16 




TRRNSI 


G01G02R 


002 


CLC 


000241 


CUOSUX 


00021 2R 


003 


DUSTS = 


000044 




RCS = 


GOOOOl 




TSTSNS 


G01400R 


002 


CLN 


000250 


CUOSUl 


000004R 


003 


ENBPRR= 


001000 




RCSR = 


GGOOIO 




T. EFLG= 


tttttt 


GX 


CLPDTP 


00033bR 


003 CU0SU2 


OOOOObR 


003 


ERROR 


C00364R 


003 


RCVSIB= 


GOOOOO 




USEPflR= 


GOOOOO 




CLRRI 


oonsfeP 


002 CU0SU3 


0G0044P 


003 


EPRORl 


000360R 


003 


RDONE = 


000200 




VECTOR: 


GOOOOl 




CLRSS 


001364R 


002 CU0SU4 


0001 IfeR 


003 


EVNPflP= 


000400 




PETNX = 


•^000007 




WINDUP 


G01152R 


002 


CLPSSD 


001372P 


002 CU0SU5 


0G0200R 


003 


EXITT 


001144P 


002 


RGOT 


000666R 


002 


XMTSIB= 


GGIOGG 




CLPSTD 


000344P 


003 CUOSUb 


0001 70R 


003 


GOTLIN 


000372R 


003 


RING = 


040000 




SRQSCHs 


tttttt 


GX 


CLU 


000242 


CUP IS 


000fe66PG 


002 


HRLT = 


000000 




RINTE = 


000100 




5SIGFL= 


tttttt 


GX 


CLZ = 


000244 


cupxr 


00072feR 


oo: 


HDUPL = 


000010 




RPRIOR= 


000014 




5TSKHD= 


tttttt 


GX 


rpr-p = 


****** G 


CUPl 


OOOOOOR 


002 


ISRSI2= 


000060 




RSX 


000001 




. . CINT= 


tttttt 


GX 


CP INI 


000362PG 


003 CUSl 


OOOOIOR 


002 


LINENO= 


OOOOZb 




PSXllM^ 


GOOOOl 




. . DINT = 


tttttt 


GX 


CP. KLL 


GOObZbPG 


003 CUTEXT 


G01170P 


002 


LNO 


000000 




RTSP = 


000004 










PBS. 


000000 
000000 


000 
001 
























ISR 


001404 


002 
























yxx 


000644 


003 
























ERRORS 1 


DETECTED: 





■ 






















UIRTURL 


MEnORY USED: lOS? UOPDS ( 5 PflGEi 


5 1 




















DYNfiMIC 


MEMORY: : 


ZSIO WORDS I 


10 PPGES^ 






















ELAPSED 


TIME: 00: 


00: 17 
























:6b- o: 


1 QUI l; 27. 


26b. 030 DUl! • 


CRF. -SF=ISPF 


?xn.OPDEF,D'jn, T8LDU11 


ISP 

























J 


12 








DUU 


CREPTED BY 


MRCRO ON 


6-DEC-77 OT 


08 20 


PPGE t 










svnBOL 


CROSS REFERENCE 








CREF 










SYMBOL 


VRLUE 


REFERENCES 














BITOO 


= 00000 I 


«10-26 


14-433 


14-439 


15-484 


15-487 


16-58J 


16-584 




BlTOl 


= 000002 


»l0-27 


10-51 


14-441 












BITO: 


= OOOOOH 


1110-28 


10-52 


14-451 












BIT03 


= OOOOIO 


1110-29 


10-53 


10-68 


14-454 


15-489 








BlTOH 


= 000020 


110-30 


10-54 


10-69 


14-433 










BIT05 


= OOOOIO 


MO-31 


10-5G 


10-70 


16-484 










BiTOb 


= 000100 


MO-32 


10-56 


10-71 


14-433 










BIT07 


= 000200 


MO-33 


10-57 


10-72 












BITOS 


= OOOHOO 


110-34 


10-58 


10-73 


10-79 










B!T09 


= 001000 


MO-36 


10-59 


10-80 


15-484 










BITIO 


= 002000 


«10-36 


10-60 


10-81 












BITll 


= 004000 


»10-37 


10-61 


10-74 


10-82 


15-484 








BiTl2 


= 010000 


810-38 


10-62 


10-74 


15-484 


15-498 








Bin: 


= 020000 


810-39 


10-63 


11-173 


15-500 










B 1 T m 


= OHOOOO 


810-40 


10-64 


11-171 


15-503 










BITIB 


= 100000 


810-41 


10-65 


10-75 


14-433 










'".BfiX 


= •.000008 


86-216 

7-262 


16-224 
♦3-270 


6-225 
8-271 


6-226 

S-273 


6-227 


♦6-228 


♦7-239 7-2 


43 7-. 


CBBK 


= -.000004 


86-217 


♦7-238 


7-245 


♦S-271 


S-277 


♦8-279 


♦8-283 




CCC 


= 00026^ 


82-10 
















CD 


= 010000 


81U-62 
















CFINX 


0002B0 R 


*6-226 


S-270 


♦s-:r4 


♦8-276 


8C-296 








CFKLU 


= tttttt GX 


5-169 
















CHL68 


= 002000 


810-Sl 


15-494 














CHL78 


= 004000 


810-S2 


15-494 














CKRCVI 


001250 P 


81S-4S9 
















CKSSDC 


001314 R 


815-603 


15-620 














CKSTSI 


001262 R 


815-492 


16-616 














CLRLL 


= 000257 


8-2S0 


810-12 


13-41S 


16-648 


I0-6O2 


17-643 


18-664 




CLC 


= 000241 


82-6 


10-12 














CLN 


= 000250 


82-9 


10-12 














CLRDTR 


000336 R 


1^-442 


814-463 














CLPRI 


001356 R 


15-490 


815-516 














CLRSS 


001364 R 


15-501 


815-619 














CLRSSD 


001372 R 


15-504 


815-523 














CLRSTD 


000344 R 


814-467 
















CLU 


= 000242 


82-7 


10-12 














CLZ 


= 000244 


82-S 


10-12 














CPUP 


= tnttt G 


4-122 


5-162 














CP. INI 


0C0352 RG 


16-536 


816-637 














CP. KLL 


000636 RG 


18-650 


818-661 














CP. MDM 


000222 RG 


14-426 


814-427 














CP. MOD 


001206 RG 


15-476 


815-477 














CP. OSU 


000000 RG 


n-342 


813-343 














CP. RST 


000576 RG 


17-627 


817-628 














CRBINT 


= 000024 


81-5 


810-108 


10-109 


16-689 










CRBINX 


000050 R 


5-lbS 


86-224 














CRBLDR 


= 000020 


810-106 


10-107 


11-174 












CRBLMX 


= 000652 R 


♦ 6" ^i.1 


7-243 


♦7-246 


♦7-262 


S-271 


♦S-273 


88-301 




CRBLPX 


000064 R 


86-227 


6-229 














CRBLX 


000100 R 


5-166 


87-23S 














CRBMZX 


= 177400 


86-211 


6-224 


7-248 


S-276 























K 


12 




DUll 


CRERTEO BY 


MflCRO ON 6 


-DEC-77 AT 


08 20 


PAGE 2 






svriBOL 


CROSS REFERENCE 








CREF 






SYMBOL 


VRLUE 




REFERENCES 












CPBNOX 


0002i»H 


R 


8-272 


•8-288 










CPBOl^X 


ooomn 


R 


7-244 


•7-252 










CPBPSX 


000132 


R 


•7-248 












CPBSVX 


000232 


R 


8-278 


•8-283 










CPBSZX 


= ooo^oo 




116-210 


6-211 


7-260 


8-296 


8-300 




CPBUNL 


= 000022 




«10-107 


10-108 


16-590 








CPBUX 


000160 


R 


5-167 


•8-270 










CPBXXX 


000252 


R 


18-300 












CPU OX 


ooomo 


R 


7-247 


•7-249 










CPYOX 


0002m 


R 


8-275 


•8-277 










•: 'I \ NX 


OOOlBb 


R 


«6-225 


7-239 


17-246 


*7-248 


•7-260 




CTBR 


= 000032 




»10-lll 


10-112 


12-233 


M2-234 


M2-243 «l3-370 \Z-2S7 


*16-592 


:tbc 


= 00003H 




»10-112 


10-113 


12-229 


*l2-235 


*12-248 *l3-374 416-593 




CIS 


= 02000G 




«l0-63 


12-224 










LUFS"rP 


000662 


PG 


10-4S 


•10-123 


16-541 


r-633 






•'JJGPCH 


000700 


P 


»ll-16? 












'lULSTP 


0006614 


PG 


10-4S 


•10-124 










CUOSUX 


000212 


P 


13-3SS 


13-396 


13-402 


13-406 


•13-413 




CUOSUl 


OOOOOH 


P 


»13-Z49 












CU0SU2 


000006 


P 


•13-35: 












CU0SU3 


00004^ 


P 


13-361 


13-364 


•13-:bS 








cuosu^ 


000116 


P 


13-369 


;13-3S7 










CU0SU5 


000200 


P 


13-390 


•13-409 










CUOSUfe 


000 ro 


P 


13-39S 


»13-40F 




■ 






CUR IS 


000666 


PG 


5-149 


10-4" 


sn-149 








CURXIT 


000726 


P 


11-165 


»ii-i:'9 










CURl 


000000 


P 


nS- m: 


10-96 


10-97 


lb-572 






CLSl 


000010 


P 


?E-lbO 


10-97 










CUTEXT 


001170 


R 


12-21S 


12-236 


r:-25: 


i:-2« / 


12-2SS 12-292 12-296 


•12-307 


CUTIS 


000736 


RG 


5-156 


10-47 


»12-207 








CUTRDN 


000670 


P 


»11-16H 












CUTSTX 


ooomH 


P 


13-382 


13-:£4 


«i3-:?5 








CUTXTl 


001052 


R 


812-25C 












CUTl 


000004 


R 


S5-150 


10-96 


16-5:^6 








CU. FST 


000000 


PG 


3-47 


•5-141 


10-123 


: , 






CU. INI 


000352 


RG 


10-47 


•16-540 










CU. INI 


000364 


R 


»lb-547 












CU. KLL 


000636 


PG 


10-47 


•lS-b5u 








' 


CU. LST 


000050 


PG 


3-47 


•5-179 


10- 1:4 








CU. MDM 


000222 


RG 


10-47 


•14-430 










CU. MOD 


001206 


RG 


10-47 


•15-479 










CU. OSU 


000000 


PG 


10-47 


•13-346 










lU. RSI 


000576 


PG 


10-47 


•l7-b31 










C. SPS 


= ttttt* 


G 


5-165 


10-4a 










C. SREG 


- tttttt 


GX 


16-565 












C. SRES 


= tttttt 


GX 


lb-54b 


16-579 










DEVPRS 


000372 


R 


»lb-560 












DEVSTS 


= OOOOHO 




«10-llb 












DE. PRI 


= tttttt 


G 


4-122 


5-163 










DNP 


= 100000 




1*10-75 












DflfllNT 


= OOOOHO 




«10-7n 


12-295 










OSETC 


= 100000 




»10-b5 

























L 12 








Dull 


CRERTED BY 


MfiCRO ON 


b-DEC-77 RT 


08 20 


PRGE 3 








SYMBOL 


'-POSS REFERENCE 








CREF 








SYMBOL 


URLUE 




REFERF^^ 














DSINTE 


= OOOOHO 




«lO-55 














DSP 


= OOIOQO 




«10-59 


14-449 












DTP 


= 000002 




mo-Si 


14-443 


14-452 


14-463 








DUCSP 


= tnttt 


G 


3-77 


5-161 












DUPSTS 


- 000046 




«10-119 


10-120 


16-586 










DUSTS 


= 000044 




»10-118 


10-119 


16-582 










ENBPPP 


= OOIOOO 




»10-80 














EPPOP 


000364 


R 


»l6-548 


16-563 












EPPOPl 


000360 


R 


»16-546 


16-574 


16-578 










EVNPQP 


= 000400 




«10-79 














EviTT 


001144 


P 


12-230 


12-278 


812-295 










ijOTl in 


000372 


P 


16-543 


816-553 












H«LT 


= 000000 




«2-4 














HDUPL 


= 000010 




«10-68 


15-496 












iSPSiZ 


= COOOSO 




»10-120 














LINE NO 


= 000036 




SlO-113 


10-114 












LNO 


= 000000 




»3-S0 


5-171 












LSin 


= ttitti 




13-353 


13-413 












nnoDE 


= 014000 




810-74 


13-381 












MODX I T 


CO 14 00 


P 


«15-52b 














mpeset 


= 000400 




810-73 


lb-5S7 


17-64 1 










NOCLC 


001266 


R 


815-495 














NOCTSP 


000302 


P 


Slu-^l4? 














NODSRP 


00031^ 


P 


W-USO 


814-452 












NODTRC 


000272 


P 


l4-^^0 


81U-4U4 


14-4c.U 










NODTRP 


000326 


P 


14-453 


8 1U-U55 












NOHDC 


001274 


P 


815-49:^ 














NCI NIC 


001262 


P 


15-4SS 


815-H93 












NOP 


= 000240 




;2-5 














NORCVC 


00131*4 


P 


15-507 


8 1B-510 












NOPCVO 


000720 


R 


11- r2 


8 11-r4 












NOSRDP 


000332 


P 


lu-^3^ 


14-4Hb 


8 I 4 - H t^. '^ 










NOSSC 


001330 


P 


15-499 


815-506 


15-E2H 










NOSTOC 


C00272 


R 


814-445 


14-HbS 












NOSYNC 


001274 


P 


815-49S 














NSPDPV 


000326 


R 


814-456 














NTUP 


= 000030 




810-r.O 


10-111 


12-242 


*i2-:4? u:-z7s 


tib-E?; 






OFT 


= 000000 




84-llS 


5-166 












OS 


-- OOOOOC 




83-70 


3-72 




4-124 








OUTCHP 


001116 


P 


12-225 


812-2S3 












outmpk 


001124 


P 


812-2S7 


12-300 












OUTSYN 


00113U 


F 


12-2S4 


812-291 r 












PS 


- » 1 1 1 t D 




810-15 


13-357 


13-353 


13-uib 








P 


= 000004 




810-96 


11-15S 


11-lbb 


11- 1:^4 








PPIlT 


= 004000 




810-61 














RBUSV 


= 000016 




810-104 


10-105 












PCS 


= 000001 




3-62 


10-127 


13-34 1 


14-425 16-535 


l~-b26 


18-64? 




PCSR 


= 000010 




810-99 


10-100 


11-15S 


12-213 13-352 


14-435 


15-4S2 


16 


PCl'SiB 


= 000000 




81-4 














POONE 


= 000200 




810-57 














PETNv 


= -;000007 




86-21S 


*6-230 


*7-250 


*:'-254 *S-2S1 


♦S-2S6 


♦s-:s9 




PGOT 


000666 


P 


811-161 


r-175 













17-640 



C-un CPtfiTED BY 

S'flBOL CPOSS PEFERENCE 

S;nBOL ^'fiLUE 

PING = 0^40000 

Pir^TE = OCO'iOO 

PPPlOP = 0000 m 

PST3 = ***«»* 

Rsy = 000001 

RSXUO = tM*»* 

psxitn = 000001 



nflCRO ON 6-DEC-77 AT 08 20 



PTSP 

PTSCTP 

PTll 

S'iECT 



= 00000^ 

= 000015 

r ****** 

= 000012 

= 000010 



sec 


= 000277 


SEC 


= 0002b 1 


SEN 


= 0002^0 


SEND 


= 000020 


SEV 


= 000262 


SEZ 


= 0002bH 


SIBLDP 


= 00002b 


SPD 


= 002000 


SSYN 


= 000020 


STD 


= 000010 


STPSYN 


= 000042 


STRSYN 


= OOOUOO 


STSSIB 


= OMOHOO 


SYNC HP 


= 000040 


SYNIDL 


= OCOOJ^ 


SYNREG 


= 000377 


TRSKRD 


= titiit 


TBUSY 


= 000016 


TCOUNT 


= 000002 


TDONE 


= 000200 


TFINI 


001064 


TINTE 


= 000100 


TPPlOP 


= oooom 


TRANS 


001010 


TPRNSI 


001002 


TSTSNS 


Gomoo 


T. IflG 


= tttttt 


USEPRR 


= 000000 


VECTOR 


= 000001 


WINDUP 


001152 


XMTSIB 


= 001000 


SRQSCH 


= tttttt 


%S1GFL 


= ****** 


STSKHD 


= ****** 



GX 



R 
R 
R 



G.X 



REFERENCES 
MO-bH 
«10-5fc 
»10-101 

3-57 

11-150 
»l-2 

3-69 

13-338 
«l-3 

12-272 
MO-52 
810-103 

3-50 

lb-56U 
«1G-1G0 
«l0-97 

12 
»2- 
«2- 



82- 
810 
82- 
82- 
810 
8 10 
810 
810 
810 
810 
810 
810 
16 
810 



-242 

15 

11 

14 

-65 

12 

13 

-10? 

-bO 

-54 

-53 

-117 

-58 

-S? 

-115 

-588 

-114 



GX 
GX 
GX 



810-7S 

12-258 
810-105 
810-85 
810-72 
12-244 
810-71 
810-102 
w 1 ^— i^^ .J 

15-485 
*12-263 

10-137 
83-79 

12-221 
8in-SS 
*12-264 
112-265 

12-264 



15-491 
10-102 
3-66 
11-180 
12-267 
4-110 
13-371 
3-69 
12-320 
12-303 
10-104 
3-69 
16-597 
10-101 
10-99 
«i:-243 



12-304 

10-110 

15-491 
m-4b7 
10- lis 
15-502 

10-116 
10- 11 5 



10-106 
12-279 

812-256 

12-295 
10-103 

812-229 
15-E12 



3-83 
812-299 



15-515 
16-570 

3-76 
11-189 
16-472 
4-117 
13-376 
4-114 
13-338 
13-379 
12-219 
4-121 
16-b05 
16-569 
12-213 
*12-248 



13-3S0 



15-508 

11-166 
lB-505 

10-117 

12-277 



13-380 
13-35S 



15-526 



4-87 



PfiGE 4 
CREF 



M 12 



5-136 

12-208 

16-628 

4-121 

16-564 

4-121 

16-564 

13-394 

«12-226 
5-143 
17-634 
17-635 
12-219 

*12-249 



13-393 



15-509 

♦15-505 
15-51? 

12-291 



10-132 



6-181 
12-308 

7-240 
17-634 
11-163 
17-634 
13-409 
*12-279 
5-151 



*12-226 

1 «. «M I I 



13-410 



; 15-515 
*15-523 

13-405 
*13-362 



6-209 
12-317 

11-192 

11-181 



*l2-299 
11-153 



12-229 
*12-2^9 



7-256 
16-553 

12-245 

11-195 



*13-383 
11-181 



12-233 

12-283 



8-291 
17-632 

12-269 

12-239 



*16-595 
11-195 



*12-234 
12-291 



10-92 

12-314 
12-260 

12-320 



*12-236 
*12-299 



Mb- 596 

15-483 
*13-:b5 



* 15-5 11 
13-389 



*lb-582 
13-397 



*16-586 
*16-594 



DUU CPERTED B'. 

SVriBOL CROSS PEFEPENCE 
SrnBOL I'fiLUE 

CINT = MM** GX 
. DiNT = MM** GX 



nOCRO ON 6-DEC-77 RT 08 20 



REFERENCES 
lfe-573 
l7-fc3b 



PPlGE 
CREF 



N 12 



16-577 
17-638 



; I 



E 
S 

C 

c 

D 
E 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
r 

F 



(11 
El 



1/ 
D' 
El 



ii^aj^'«ti^a=:rf,^tfgs^rf5fer=t»iaHg:^^y.^ 



EPPHRN MRCPO nnOH Ofe-DEC-77 08' 21 

t;^ble of contents 



B 13 



2- HH 

3- 70 



EPPHflN 

UBFHPN - USER BUFFER OVERFLOl' flESSOGE 

MESSAGE RPEP 



EPPHftN nflCPO 


nno^ Ob-orc-77 08: 


\ 




2 


000001 


• 1 


000001 


'♦ 


C00002 


s 


000000 


6 




7 




8 


ocoooo 


9 




to 




tt 




12 




U 




tH 




15 




lb 




t? 




18 




19 




20 




21 




22 




23 




2H 




25 




Zii 




Z? 




28 




29 




30 




31 




32 




33 




3H 




35 




36 




37 




38 




39 




»*0 




m 





21 PRGE 1 



C 13 



^2 
Hi 



it 

52 
53 
54 
55 
5b 



; PREFIX F'LE FOR 2780 UflP RUNNING UNDER PSXllH 

RSX=1 

RSXlin=l 

NTRNSF = 2 ;NUn8ER OF FILES - 1 TO TRPHSFER IN ONE CnO STRING (3) 

NRCVSFrO ; NUMBER OF FILES - 1 TO RECtlVE i\) 

;nPCRO OEFINITIONS 
TflGNUn=0 

.nfiCPO ERROR TEXT 
ERROPK <1EXT> 
JSP PC, PROMPT 
. ENOn 

* ■ 

; MfiCPO TO DO R KILL RND QUEUE THE MESS/^GE 

MflCPO ERPORK TEXT 
TRGNUrirTPIGMUM^'l 





. IPP 


N, ^ TfiGNUri) 




JSP 


PS^TYPMSG 




WORD 


TRG'N 




. UOPD 


TttGE'N-TRG'N 




PSECT 


MESRGZ^GBL 


TOG'N: 


. OSC 1 ! 


"TEXT" 


""flGE'N: 








. PSECT 


PfilN 




, ENDH 






. ENDn 





MfiCPO TO QUEUE fi MCSSfiGE ONlY 





MflCPO 


EPRORM TEXT 




TflGNUn= 


TfiGNUM+1 




. IPP 


N, < TRGNUM) 




JSP 


R5,Ti'PMSl 




. UOPD 


TPG'N 




. UOPD 


T .GE'N- TRG'N 




. PSECT 


MESflG2.GBL 


TPG'ri: 


. flSC II 


"TEXT' 


TflGE'N: 








. PSECT 


MAIN 




. ENDM 






. ENDM 





MfiCPO TO QUEUE R MESSRGE AND PPOMPT 

. MRCPO ERROPP TEXT 

EPROPM <TEXT> 

JSP PC. PROMPT r : 

. ENDM 



. MACRO FRTRL TEXT 

EPPORK <TEXT> 

JSP P5-D1E 
. ENDM 



•mMMin 



EPPHfiU MflCPO nnOi* Ob-DEC-77 08; 21 PfiGE 2 



13 



1 

2 
3 

S 

b 

7 

i 

9 
10 
11 

i: 

13 

14 
15 
lb 
17 

IS 

1? 

20 

21 

22 

23 

24 

25 

2b 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

4i 

44 

45 

4b 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 



ococno 



000000 



000000 
000006 

000012 
000016 



000000 



57 000022 



012767 
012702 

016700 
004767 
012702 



.T.TLE ERRHflN 
. I DENT /00002/ 

COPYRIGHT (C) 1975, 1976. 1977 

DIGITAL EQUIPnENT CORPORRTION, flflYNflRD, MflSS. 01754 

THIS SOFTWARE IS FURNISHED UNDER « LICENSE FOR USE ONLY ON 
fl SINGLE COnPUTER SYSTEn AND nOY 3E COPIED ONLY WITH 
THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS 
SOFTWARE, OR ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED 
OR OTHERWISE flAOE AVAILABLE TO ANY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTE^I AND TO ONE WHO AGREES TO . 
THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF THE ' 
SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC. 

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE 
WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COM- 
MITMENT BY DIGITAL EQUIPMENT CORPORATION. 

DEC ASSUMES NO RESPONSIBILITY FOP THE USE OR RELIABILITY 
OF ITS SOriLAPE ON EQUIPMENT WHICH IS NOT SUPPLIED Br 
DEC. 

VERSION 

ROBERT H. ROSENBflUM 31-MRRCH-75 

LAST MODIFICATION ON 29-MflY-75 

VERSION I 

NOV 1977 - CEP 

ADD TIMEOUT COUNTERS TO ERROR PRINTOUT 

RECEIVE AND TRANSMIT EPROP SUMMARY PRINT OUT 

. PSECT MAIN . 

MACRO CALLS 

. MCALL DIP%.QIO% 
QIOLBL: QIOS ; JUST DEFINE QIO OFFSETS 

. =QIOLBL : 

. SBTTL ERPHAN 

; INPUTS: 

; NONE 

; OUTPUTS; 

; ROUTINE MILL PRINT ON THE OPERATORS CONSOLE THE CURRENT 

^ ' RECEIVE AND TRANSMIT ERROR COUNTS 



000000' 000014G ERRHAN; ; MOV 
000007' MOV 

OOOOOOG MOV 

OOOOOOG JSR 

G00026' MOV 



«ERRMSG/QDPBM+Q. lOPL 
«fRCVNUM.R2 



RCVERR.-RO 
PCRIOOUT 
nXnTNUM.R2 



;SET BUFFER ADDRESS IN QIO DPB 

;PUT ADDR OF WHERE TO STORE 

; ASCI I RECV ERROR « IN P2 FOP PlOuUT 

;{? OF RECEIVE ERRORS 

; CONVERT I T TO ASC I I 

; WHERE TO PUT .XMT EPPOP n 













E 13 


EPPHPn 


HRCPO MUCH Ob 


-OEC-77 08 21 PfiGE 2-1 






EPPHfiM 












68 


GOOOZb 


016700 


OOOGOOG 


nou 


XMTERR.RO 


' . 6? 


000C32 


00H7b7 


GGOOGOG 


JSR 


PCRIOOUT 


bO 


000036 


012702 


0000^5' 


nov 


«RCVNnUR2 


bl 


0000^2 


0lb700 


OOOGOOG 


nov 


RCVTnT,RO 


b: 


OOOOHb 


00H7b7 


OGOGGGG 


JSR 


PC^RIOOUT 


b3 


000052 


012702 


OGOObH' 


MOU 


»XMTNm,R2 


b'4 


00006b 


01b700 


OOOGOOG 


MOV 


XnTTHT.RO 


bB 


0000b2 


0CH7b7 


OOOGOOG 


JSP 


PCRIOOUT 


^ bb 


OOOObb 


0l27b7 


0000b7 OOOOlbG 


MOV 


«ERRLNG. QDPentQ. 


b:- 


000074 






DIPS 


•QDPBM 


bS 


000102 


CQQlb? 


QCOOOOG 


jnp 


CROUTK 



;GET NUriBER OF XMIT ERROR 

; CONVERT TO PSCI I 

;MOVE flOO TO STORE RCV TIMEOUT COUNT 

,1 OF RECEIVE TIMEOUTS 

; CONVERT 

;S«ME FOR TRANSMIT TIMEOUTS 



IN R2 



I0PL^2 ;SET CHflRflCTEP 

; QUEUE THE MSG 

; PR I NT PROMPT UHEN FINISHED 



COUNT IN QIC DPB 



— I 



EPPHPM 
UBFHQN 



nOCPO 
USEP 



niiOH 

BUFFER 



Ob-OEC-77 08: 21 PRGE 
OuERFLOW nESSRGE 



!♦ 



n 








n 








n 








n 








f% 








n 








7S 








7f 








m 








it 








n 








S3 








m 








m 








Se 00010b 


012702 


000067" 


S7 000112 


oio: 


267 


oooomG 


SS OOOllfc 


016: 


"00 


OOOOOOG 


S9 000122 


006067 


OOOOOOG 


90 00012b 


coh: 


'6:- 


OOOOOOG 


91 000132 


012767 


000025 OOOGlbG 


92 ooomo 








93 OOOlUb 


000. 


:q7 





F 13 



. SBTTL UBFHPN - USER BUFFER OVERFLOW MESSPGE 



; COLLING SEQUENCE 

* JSR PC.UBFHRN 



t 
I 



COLLED RFTER fi RECEIVE COnPLETE TO INFORM THE OPERATOR 
OF ANY RECORDS THRT WERE TRUNCATED DUE TC THERE BEING 
GREATER THAN l3^ CHARACTERS IN THE RECEIVED DATA RECORD 






INPUTS: 

NONE 
OUTPUTS, 

ROUTINE PRINTS THE DECIMAL EQUIVALENT 

"UBFCNT" ON THE OPERATORS CONSOLE AND 

COUNT 



OF THE NUMBER IN 
THEN ZERO'S THE 



;• 



UBFHAh: : MOV «UBFriSG.R2 

MOV R2.QDPBMfQ 

MOV UBFCNT^PO 

CLP UBFCNT 

JSR PC.PIOOUT 

MOV »UBFLNG.QDPBM 

DIP5 »QOPBM 

PTS PC 



,GET THE ADDRESS OF THE MESSAGE 
OPL .SET MESSAGE ADDR FOR QIO 

;GET NUMBER OF TRUNCATED RECORDS 

, RESET IT 

; CONVERT IT TO RADIO 

IOPL+2 ;SET UP CHARACTER COUNT 

:OUEUE THE MESSAGE 

;PETUPN 

















G 13 


EPPHQN 


MQCPO nilOH Ob- 


•DEC-77 08: 


21 PRGE 4 






MtSSPGE 


QPEP 














?S 












SBTTL 


neSSAGE QRER 


96 










; 






97 


000000 










PSECT 


nESAG2.GBL 


98 


000000 


122 


040 


116 


ERRMSG. 


flSCi 1 


"R NfiK: " 




000003 


101 


113 


072 










000006 


on 












99 


000007 


o^o 


040 


040 


RCVNUM: 


flSCi 1 


T NflK: " 




000012 


OHO 


040 


040 










000016 


040 


040 


124 










000020 


040 


116 


101 










000023 


113 


072 


040 








100 


000026 


040 


040 


040 


xniNun 


flSCi 1 


P TMT: •' 




000031 


040 


040 


040 










0000314 


040 


040 


122 










00CC37 


040 


124 


115 










0000142 


124 


072 


040 








101 


000048 


040 


040 


040 


PCVNMl: 


flSCi 1 


T TMT: ■• 




000050 


040 


040 


040 










000053 


040 


040 


114 










00005b 


040 


124 


115 










OOOQbl 


1:4 


072 


040 








102 


000064 


040 


040 


040 


XMTNni 


flSCI 1 


II 1* 


103 




000067 








EPRLNG= 


-EPPnSG 


104 










/ 






lOS 


000067 


040 


040 


040 


UBFnSG- 


. «SCI 1 


PECOPDS TRUNCATED" 




000072 


040 


1 te*< 


105 










000075 


103 


117 


122 










000100 


104 


123 


040 










000103 


124 


122 


1:5 










000106 


116 


103 


101 










000111 


124 


105 


104 








10b 




000025 








UBFLNG=. 


-UBFMSG 


107 




000001 








, END 





EPPHPN naCPO MtlOH 0fe-0£C-77 08: 21 PftGE ^4-1 

SYMBOL TPIBLE 



H 13 



CPOUTX= *tll»t GX OIOlBL 

EPPHPN OOOOOOPG 002 Q. I ORE: 

EPPLNG= GOOOb? Q. lOEF: 

EPPMSG OOOOGOR 003 Q. lOFN: 

MPi:uSF= 000000 Q lOLU: 

riTPNSFs 000002 Q. I GPL: 

ODPSn = t»tt»t GX Q. lOPP: 

. RBS. 000000 000 

000000 001 

n«!M 0001 BO 002 

nESRG2 0001 m 003 

EPPOPS DETECTED Q 



OOOGOOR 


002 


a lOSBs 


000010 




RlOOUTs 


tttttt GX 




xriTERRs 


tttttt GX 


000012 




RCVERRs 


tutu GX 




TPGNUMs 


000000 




xnTNni 


00006HR 


OOOOOb 




RCUNttl 


0000H5R 


003 


UBFCNTs 


tttttt GX 




XnTNUfI 


000026R 


000002 




RCUNUn 


000007R 


003 


U6FHAN 


OOOlObRG 


002 


xnTTnTs 


tttttt GX 


OOOOOH 




PC\/TriT= 


tttttt GX 




UBFLNGs 


000025 




SSSPRGs 


000000 


OOOOU 




RSX = 


000001 




USFMSG 


0000b7R 


003 


SS$OST= 


OOOOIH 


000007 




psxiinr 


000001 















003 
003 



"IPTUOL hEMOPY USED: 1200 WORDS 
DYNRMIC ME MOP Y 2810 UOPDS • 10 
ELPPSED T I ME- 00: 00 Ob 

n:e EPPHRN;::', ZBb-ozo epphrn. CRF,--sp=uPKP>:n, epph^n 



( 5 PRGES) 
PRGES) 



:e.o 



EPPHPN 




CPEflTED BY 


MRCRO ON 6 


-DEC-77 AT 


08 21 


PAGE 1 


1 13 


SmBOL 


lposs reference 








CREF 




SYMBOL 


VPLUE 




REFERENCES 










CPOUT'' 


z 


ttttit 


GX 


2-68 










EPPHPN 




000000 


RG 


• 2-52 










EPPLNG 


z 


000067 




2-66 


«m-103 








EPPMSG 




000000 


^ 


2-52 


»i4-98 


4-103 






MPCr/SF 


- 


000000 




»l-5 










NTPNSF 


z 


000002 




HI -'4 










CiDPBM 


z 


tttttt 


GX 


«2-52 


»2-66 


2-67 


«3-87 


*3- 


oiolbl 




000000 


R 


»2-m 


2-42 








a lOFrj 


— 


O000G2 




2-m 










Q lOPL 


z 


oooom 




*2-52 


«2-66 


»3-87 


*3-9l 




prvEPP 


~ 


tnttt 


GX 


2-55 










PCViNni 




oooo^B 


P 


2-bO 


im-101 








PC'uNun 




000007 


P 


2-53 


»4-9? 








prwTMT 


z 


t****t 


GX 


2-bl 










PSX 


r 


000001 




»1-^ 










psxur 


: 


000001 




«l-3 










PI GOUT 


- 


it it 4* 


GX 


2-56 


2-59 


2-b2 


2-65 


3- 


TfiGNUn 


- 


OOOOOG 




81-S 










UBFCNT 


= 


♦ *n** 


GX 


7_ 0<^ 
w O w 


*3-39 








UBFHflN 




000 1 Gb 


PG 


»3-Sb 










UBFLNG 


z 


oooo:b 




3-?l 


«4-l06 








UBFMSG 




OOOOt^ 


P 


3-Sb 


?4-lG5 


4-106 






XMTERP 


z 


iHiii* 


GX 


4. WW 










XniNMl 




OOOOb^ 


P 


2-b3 


S4-102 








XI1TNUM 




00002b 


P 


2-5^ 


8H-1GG 








XMTTnT 


z 


tititt 


GX 


2-64 










SSSRRG 


~ 


OOGOOO 




^Z~^\ 


:-ui 


2-41 






%%%GLB 


~ 


****** 




2- '4 1 











3-92 



£PPHm4 
MPCPO 

rifiCPO 

DIPS 
EPPOP 

EPPOP^' 

EPPOPn 

EPPOPP 

FPTPL 

OFFS 

'JC'PBS 

QI0% 



2-b7 



3-52 



CPEOTED BY nPCRO ON fe-DEC-77 AT 08 21 
CPOSS PEFEPENCE 
umi REFERENCES 

12-HO 

»l-9 

«l-lb 

«l-32 

»l-^7 

M-53 



PRGE 2 
CREF 



J 13 



»2-^0 






EMTtR hftCRO nn04 Ob-DEC-77 08; 21 PfiGE 1 



K 13 



1 




^ 


00000 1 


3 


000001 


% 


000002 


i 


000000 


* 




r 




1 


ocoooo 




If 




If 




13 




n 




IS 




H 




17 




It 




If 




m 




i 




i 




m 




n 





;PREnx FILE FOR 2780 UPP RUNNING UNDER RSXllM 
RSX=l 

Rsxnn=i 

NTRNSF = 2 ;NUnBER OF FILES - 1 TO TRANSFER IN ONE CfinO STRING (3) 

NRCUSFrO ; NUMBER CF FILES - 1 TO RECEIVE (1) 



E 
r 



•MRCRO DEFINITIONS 


TfiGNUn= 





. nfiCRO 


ERROR TEXT 


ERRORK 


<TEXT> 


JSP 


PC, PROMPT 


.ENOn 




; MfiCRO TO DO P 

; 

. MACRO 


KILL AND QUEUE THE MESSAGE 


ERRORK TEXT 


TflGNUM= 


TRGMUM+1 


. IRP 


N, < TAGNUM) 


JSP 


R5,TYPMSG 


.WORD 


TAG'N 


,WOPD 


Tf^GE■N-TAG■N 


.PSECT 


MESAG2<GBL 


TOG'N: .flSCII 


"TEXT" 


TflGE'N: 




.PSECT 


MAIN 


. ENDM 




. ENDM 





M 

m 
n 
m 

J4 
ST 
38 
39 

«!*> 

H^ 
^? 

m 

H9 
SO 

SI 

sa 

SI 

s% 
ss 



MfiCRO TO QUEUE A MESSAGE ONlY 



MACRO EPRORM TEXT 
TAGNUM=TAGMUM+: 

. IPP N, < TAGNUM^ 

JSP R5,TYPMS1 

. UOFD TAG'N 

. UOPD TAGE'N-TAG'N 

. PSECT MESAG2.GBL 

.ASCII "TEXT" 



TAG'N: 
TAGE'N: 



PSECT 

ENDM 

ENDM 



MAIN 



MACRO TO QUEUE A MESSAGE AND PPOMPJ 

. MACRO ERRORP TEXT 

EPRORM <TEXT> 

JSP PC, PROMPT 
. ENDM 



MACRO 
ERRORK 
JSP 
. ENDM 



FATAL 

aEXT 
RB^DIE 



TEXT 



ENTEP ri«CPO nnOH Ob-OEC-;? 08. 2t PRGE 2 



L 13 



r 

fi 



? 








Il 








s 








II 








7 








1 








10 








11 








i: 








n 








m 








15 








lb 








ir 








IS 








1? 








20 








21 








22 








Z^ 








25 








2fc 

1 -r 








28 








2<5 








30 








71 








z: uooooo 








31* 








35 








3b 000000 








37 








38 








39 








^o 








l4l 








^Z 








Hj 








^^ 








45 








i*b 000000 


012700 


nnnnnoG 




47 000004 


0127b7 


GOOOnoG 


OOOOOOG 


48 000012 


I327b7 


000020 


OOOOOOG 


49 000020 


001407 






50 000022 


0127b0 


001000 


000002 


51 000030 


1127bO 


GOOOOOG 


000000 


52 000036 


000411 






53 000040 


01b7b0 


OOOOOOG 


000002 


54 00004b 


:ib7b0 


OOOOOOG 


000000 


55 000054 


1 Ib7b0 


000 GOO G 


000001 


5b 0000b2 








57 000074 


103427 







TITLE 
I DENT 



ENTER 
/00004/ 



COPYRIGHT (C) 197B 

DIGITAL EQUIPMENT CORPORRTION, MPYNPRD. MflSS. 



01764 



* 

» 
* 

* 



THIS SOFTWfiRE IS FURNISHED UNDER fl LICENSE FOR USE ONLY ON 
fl SINGLE COnPUTER SYSTEM AND MRY 3E COPIED ONLY UITH 
THE INCLUSION OF THE RBOUE COPYRIGHT NOTICE THIS 
SOFTWARE, OR ANY OTHER COPIES THEREOF, MAY NOT BE PROUIDED 
OR OTHEPUISE MADE AVAILABLE TO ANY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE UHO AGREES TO 
THESE LICENSE TERMS. TITlE TO AND OWNERSHIP OF THE 
SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC. 

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE 
WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COM- 
niTMENT BY DIGITAL EQUIPMENT CORPORATION. 

DEC ASSUMES NO RESPONSIBILITY FOP THE USE OP RELIABILITY 
OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED Bf 
DEC. 

VERSION 

POBEPT H POSENBRUM 

LAST MODIFICATION ON 31-nAPCH-75 

OPEN FILES FOP UPITE ROUTINE 

. P3ECT MAIN 

MACPO CALLS 

MCALL OFNB"iW.FDOFF% 
FDOFFS DE^SL 



INPUTS: 

FILE NAME BLOCK FILLED IN TO FILE MAriE TO O^EN 

OUTPUTS: 

ROUTINE WILL OPEN A FILE FOP WRITING AND- IF SELECTIVE 
RECEIVE IS ENABLED.- IT WILL OPEN A SECOND FILE FOP UP I T I Ni 



ENTER: 



5«> 



IF DF PSX 

nOU «FDBOUO,PO 

10V «CHANL,SWRSUP 

rlTB «20, SWPBN ; 

BEG 5S ; 

MOV «512. ,F. PSlZfRO) 

MOVB nP. FIX.-F. RTVP(PO) 

BP 7S 

MOV RVAL.F PSIZ'PO' ; 

MOVE PTYP.l PTYPiRO^ ; 

MOVB PfiTT,f PATTiRO'i 
OFNBSW 

BCS lOS 



GET FIRST OUTPUT FDB AD 
SELECT FIPS"^ FILE FOR 
A TASK IMAGE FILE^ 
NO 

; CHANGE RECORD S 
;FIXED LENGTH RE 
OPEN THE F ILF 
SET RECORD SIZE 
SET RECORD TYPE 
SE^ RECORD ATTRIBUTES 
OPEN MAiN F ILE FOP UP ! T 
RETURN IF ANY ERRORS 



DP 

UTPUT 



IZE 
CORDS 



iHllR MflCPO nnCH Ob-DEC-77 08: 21 PfiGE 2-1 



n 13 



52 000076 
000102 
OOOIOH 



B9 
feO 
bl 

fc2 
63 

bS 
feb 
67 

63 
b? 
70 

n 

n 



000112 
000116 
000122 
000126 
000132 
000136 
000114: 
0QC15U 



10576; 

Gomi'i 

012^67 



012700 
062700 
012701 
012702 
004767 
012700 

000207 
000001 



OOOOOOG 
OOOOOOG OOOOOOG 



OOOOOOG 

000102 

000017 

OOOOOOG 

OOOOOOG 

OOOOOOG 



104; 



TSTB 


sum 


BEQ 


10% 


MOV 


•CHflNL2.SWRSUP 


nov 


IFDBOUl.RO 


fiDD HF. 


FNB.RO 


nov 


IS. FNBU,P1 


nov 


»DFNLP.R2 


JSP 


PC-XFRFNB 


nov 


MFDBOUl.PO ; 


OF NB%U 




PIS 


PC 


ENDC 




END 





;SELECTIVE RECEIVE fiCTlVE'^ 

;N0 

;YES. SELECT THE ■'PRINTER"- WHICH IS 

> THE SECOND OUTPUT FILE, flS THE DEFAULT 

; OUTPUT CHANNEL. 

;GET SECONDARY FILE'S FOB ADDR 

;POINT TO FNB AREA 

; NUMBER OF WORDS TO nOVE 

;FROn A TRANSFER APEA 

;MOVE DATA 

; RESET PO FOR THE OPEN 

;YES. OPEN SECONDARY FILE 



ENTEP 


nflcpo nnOH ob 


-DEC-77 


08: 21 PAGE 2-2 








SvnBOL 


TRBLE 


















I'.HQNL = 


lt$Ut 


GX 






CHR s 


000075 




MBCls 


000055 


•'.hpnl:: 


l»l*ll 


GX 






CNTG= 


0000 J^ 




riBFGs 


00005b 


C'FNLP = 


l«ll>« 


GX 






DFNB = 


OGOOHb 




NRBD= 


00002H 


ENTER 


OOOOOOPG 


002 




DSPTr 


OOOOHH 




NREC = 


000030 


FDBOUC= 


tttttt 


GX 






L)VNn= 


0001 3H 




OVBSs 


000030 


FDBOUU 


tttttt 


GX 






EFBKs 


000010 




RRCC = 


00001b 


FO UPT= 


»«♦»♦* 


GX 






EFN = 


000050 




RflTT = 


000001 


F 9':TL = 


000076 








EOBB = 


000032 




R'Nn= 


00003H 


F QLOC= 


oooo^o 








ERR = 


000052 




RCTLr 


000017 


F. BBFS= 


ocoob: 








FRCC = 


0000^3 




RSI2= 


000002 


F. BOB = 


000070 








FFBY = 


ijooom 




RTYPr 


OOOOOC 


F. BGB': = 


000GS7 








FNOn= 


ooono 




SEQN= 


000100 


F BKC'N- 


OOOOZb 








FNB = 


000102 




SPDV = 


000072 


F, B'^'DS = 


000020 








FTYPr 


0001 lb 




SPUN= 


000074 


F.BKEF = 


ooooso 








FVEP = 


000120 




STB^i 


000036 


F. PKPl = 


000051 








HIBI« = 


OOOOOH 




UNIT = 


000136 


r BKSTr 


ocoo:^ 








LUN = 


000042 




UPBD = 


Qoonco 


F. BKi'B^ 


OOOObH 








rBCT = 


nnOGBH 








. RBS, 


ocoooo 

QOOOOO 




000 
001 














MwlIN 


000 i 5b 




002 














EFF'JRS 


Z'ETEC'^^C 


: 


















N 13 



VIPTURL ME MOP y USET' r64 UORDS ' "PAGES"* 
DVNRMIC ME nop V. 2510 140PDS • 10 PRGES^ 
ELRPSED TIME: 00: CO: 10 
25b 020 ENTER, 27. :Bbn30 EMTEP.CPF.'-SP^URPPXM. ENTER 



F VBN = 
F. \JbSZ' 
NRCVSFs 
NTRNSFs 
N. DID s 
DUNris 
FID = 

FTYPr 

FVERs 

NEXTi 
STf.T= 
UNITS 

RfiTT = 

PSX 

PS>;iiM= 

PTYP = 



00006^ 
OCOObO 
QOOOOO 
000002 
00Q024 
000032 
OOOOOC 
00000b 

0000 m 

00001b 
000022 
000020 
000034 

tttttt 

oonooi 

000001 

* * ^ * ▼ ^ 



GX 



GX 









RVflL s 


ttuu 


GX 


R, FIX s 


tttttt 


GX 


SMR6N s 


tttttt 


GX 


SWPSL - 


tttttt 


GX 


SWRSUPs 


tttttt 


GX 


S. FflTT= 


00001b 




S. FOB = 


OOOtHO 




S. FNfln= 


00000b 




S FNB = 


00003b 




S FNBWs 


00001? 




S. FNTYs 


OOOOOH 




S. FTYP5 


000002 




S. NFEN= 


000020 




TRGNUri= 


000000 




XFPFNB= 


tttttt 


GX 


OPFNB= 


tttttt 


G 


. . . TPC= 


000140 





cc 



!l,JiiiiJtP:ll -^ |i|M!jlJ«iiJSt^^^^ 



i.'^Ji:iJ!ig»i:SJ8i 8!lgSgg!g;Jg!gg g|§8gi^Jggg5gggJ?!8!!H 



ENTER 




CRERTED BY 


nfiCRO ON b 


SYMBOL 


CROSS PEFF 


?ENCE 




SYMBOL 


VRLUE 




REFERENCES 


CHRNL 


- 


ittttt 


GX 


2-H7 


CHPNL2 


: 


tttttt 


GX 


2-60 


C'FNLf 


z 


tttiti 


GX 


2-66 


ENTER 




000000 


RG 


«2-46 


FDBOUO 


z 


tttttt 


GX 


2-H6 


FOBOUl 


z 


tttttt 


GX 


2-63 


FO WRT 


z 


tttttt 


GX 


2-56 


F. FflCC 


z 


000043 




*2-B6 


F FNB 


= 


000102 




2-64 


F. RRTT 


z 


000001 




tz-ss 


F. PSiZ 


- 


000002 




*2-50 


F. PTYP 


z 


000000 




*2-51 


MPCUSF 


z 


000000 




81-5 


NTPNSF 


z 


000002 




»l-4 


PflTT 


z 


tttttt 


GX 


2-55 


P3X 


- 


000001 




«l-2 


Dsvnn 


- 


000001 




«l-3 


PTYP 


= 


*****;♦; 


GX 


2-54 


PVHL 


r 


t.:tttt 


GX 


2-53 


P. F IX 


z 


tttnt 


GX 


2-51 


3UPBN 


z 


iiitiH 


GX 


2-48 


SWPSL 


z 


****** 


GX 


2-5S 


SWRSUP 


z 


****** 


GX 


*2-47 


S. FNBU 


z 


0U0017 




2-65 


TRGNUH 


- 


GOOOOO 




«1-S 


XFPFNB 


z 


****** 


GX 


2-67 


. OPFNB 


z 


****** 


G 


:-5b 



DEC-77 RT 08 21 



PRGE 
CREF 



B 14 



2-68 

2-69 

*2-69 



*2-53 
«2-54 



2-45 



*2-60 



2-5b 



2-69 



J 



ENTEO 
MQi'PO 
riPI' PO 

crousu 

tPPC9 
EPPOPK 

EPPOPn 

EPPOPP 
EPPS 
FftTQL 
F DOFFS 
FDOPSP 

LL'FL'Bi 
uF N9%U 



rpos' 
NPMF 



PERTED BY nRCRO ON 6 



REFERENCE 




REFERENCES 




• 2-56 


12-56 


»2-69 


112-69 


«2-b6 


2-56 


2-69 


82-69 


M-9 




«1-16 




M-32 




«l-47 




»2-56 


2-56 


»l-53 




»:-36 


82-36 


82-56 


82-56 


8^-56 


2-56 


82-56 


2-56 


82-56 


2-56 

2-56 



-DEC-77 AT 08 21 


C 
PfiGE 2 
CREF 


m 










82-56 82-56 


82-56 




82-56 


82-69 


»2-69 


82-69 1 


2-56 2-56 
2-69 2-69 


82-56 




2-56 


2-56 


82-69 


2-69 



82-69 



82-69 
82-69 
82-56 
82-69 
2-69 



•69 



'2-69 

:-69 

2-56 

2-6? 



82-69 
2-69 



82-6? 



2-69 



82-69 



2-69 



-J 



-_J 



FFtE M^^CrO nnO^ Ofe-OEC-77 08: 21 

toble of contents 



D m 



ze 



CPPPlfiGE CONTROL nPCPO 



mmmim 



FPll nfiCPO nuOH Ob-DEC-77 08; 21 PAGE I 



E m 



3 



10 

it 
%% 

15 
lb 
17 
18 

t? 
20 
21 

22 
23 

:u 

26 
2b 
27 
28 
29 
30 

a 

17 

38 

39 

m 
%i 






ii 

If 

m 
u 






000001 
OOOOOl 
000002 
000000 



ocoooo 



.PREFIX FILE FOR 2780 UflP RUNNING UNDER RSXllM 

RSXrl 

RSXlin=l 

NTRNSF=2 ;NUnBER OF FILES - 1 TO TRPNSFEP IN ONE CMMO STRING (3) 

NRCUSFsO ;NUnBER OF FILES - I TO RECEIVE d) 



.fIfiCRO 


DEFINITIONS 




TRGNUn= 







MRCRO 


ERROR TEXT 




ERRORK 


<TEXT> 




JSP 


PC, PROMPT 


* 


. ENDM 




; MfiCRO 


TO DO P 


KILL PNO QUEUE THE M 


i 


. nPCRO 


ERPORK TEXT 




TflGNUn= 


TPGNUn+l 




, IPP 


N, < TPGNUri) 




JSP 


R5.TYPnSG 




.WORD 


TPG'N 




, WORD 


TftGE'N-TPG'N 




.PSECT 


nESPG2.GBL 


TQG'N: 


. flSCI 1 


"TEXT" 


TflGE'N: 








. PSECT 


r^RiN 




. ENOn 






. ENDM 





; MRCRO TO QUEUE R MESSAGE ONlY 

. MRCRO EPPOPM TEXT 
TRGNUM=TflGNUM+! 



TWG"N: 
TRGE'N: 



. IRP 
JSP 
. WORD 
. WORD 
. PSECT 
. RSCI I 

.PSECT 
. ENDM 
.ENDM 



N. < T^ jNUM> 

R5.TY> MSI 

TRG'N 

TRGE'N-"!"RG'N 

MESRG2.GBL 

"TEXT" 

MAIN 



MRCRO TO QUEUE fl MESSAGE AND PPOMPT 



. MRCRO ERROPP TEXT 

EPPOPM <TEXT> 

JSP PC, PROMPT 
. ENDM 



MRCRO 
ERRORK 
JSP 
. ENDM 



FATRL 
<TEXT; 
R5 DIE 



TEXT 



[ 



FPlL n«CPO ^U0^ Ob-OEC-77 08; 2l PRGE 2 



F m 



I 

! 

i 

to 
n 

\z 
n 

ts 

r 

IS 

1? 

20 
21 

22 

i.:. 

2«4 

25 
2b 
17 
28 
29 
30 
31 
32 
33 
34 
3S 
36 

77 

7C 

-' w 

3? 
40 
41 
42 
4:. 
44 
45 
4b 
47 
4S 
49 
50 
51 
52 
53 
54 



TITLE 
IDENT 



FREE 

/OOOOl/ 



000001 



# 

* 
♦ 

f 



COPYRIGHT (C) 1975. 1976, 1977 

DIGITAL EQUIPflENT CORPORATION, nflYNflRD, MflSS. 01754 

THIS SOFTWARE IS FURNISHED UNDER fl LICENSE FOR USE ONLY ON 
A SINGLE COMPUTER SYSTEM AND MAY 3E COPIED ONLY WITH 
THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS 
SOFTWARE, OR ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED 
OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO 
THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF THE 
SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC 



THE INFORMATION IN 
WITHOUT NOTICE AND 
MITMENT BY DIGITAL 



THIS DOCUMENT IS SUBJECT TO CHANGE 
SHOULD NOT BE CONSTRUED AS A COM- 
EQUIPMENT CORPORATION. 



DEC 

OF 

DEC. 



ASSUMES NO RESPONSIBILITY FOR THE USE OP RELIABILITY 
TS SOFTWARE ON EQUlPMEir WHICH iS NOT SUPPLIED BY 



PSX=1 
. SBTTL 



CARRIAGE CONTROL nnCPO 



THIS 'S THE CARP 
FOP THE CAPPIRGE 



AGE CONTROL MACRO 
CONTROL OF THE 27S0 



SPECIFY LINE AND CHANNELS 

TO INDICATE A PUNCH IN THE "20FTWHPE" 

CARRIAGE CONTROL TAPE 

.MACRO CCONT SlINH-SLiST 

Q=. 

SE= D'%L1NE*2 

. =COLTT+%E 

SB = 

. I PR SX. '%LIST 

SC = 

SM=1 

REPT \ 
%C=%C+1 

. I IF EQ 0'5X-%C.%B = SB+%M 
SM=SM»2 
. ENDR 
. ENDR 
SB = -SBM 
SB = 5BS.37b 
. WORD %B 
. =Q 
. ENDM 



FREE nfiCPO nuoH Ob- 

CwP^lQGE CONTPOL flOCPO 



DEC-77 08 21 PfiGE 3 



G m 



1^ 

h? 

68 

id9 OOCOOO 

70 

71 000000 000102 

73 

7s ooo:oi+ 

7b ooc:o^ 

77 ooo:o^ 

78 ooo:cm 
7? 000:0^4 
so ooo:ou 
81 ooo:oH 

82 
S3 

•I 

m 
m 
I? 



OOOCOl 



8? 

90 ooc:ou 

91 





. GLOBL 


FREE 




.GLOBL 


COLTT 




, IF DF 


RTll 




. GLOBL 


BUFP 




. GLOBL 


BUFB 




. GLOBL 


BUFC 




. GLOBL 


BUFO 




.ENOC 






, IF OF 


PTll 




. CSECT 






.ENDC 






. IF DF 


PSX 




. PSECT 


MR IN 




ENOC 




COLTT. 


. PEPT 


66 




, UOPD 


37b 




. ENDR 




;CPPP 


AGE CONTPOL DEFPULT 




CCOr'T 


S.kZ? 




CCONT 


16, <3> 




CCONT 


2^ <^> 




CCONT 


32. '5> 




CCONT 


^Q, <6> 




CCONT 


^S <7> 




CCONT 


E6. ^8> 




. IF DF 


PTll 


BUFfl: 


UOPD 







, UOPD 





. = +1000 




euFB: 


. UOPD 







. UOPD 







t. +1000 




END-: 





FREE 



END 



FPEt MPCPO Ml! 


CH Ob-DEC-77 


S.nBOL TOBLE 




COLTT GOOOOOPG 


002 NTRNSF: 


f^PEE 00020HPG 


002 Q 


NRCUSF^ 000000 


PSX : 


hBL. 000000 


000 


000000 


001 


MP IN O0020t4 


002 


EPPOPS CETECTED: 





"iPTijflL ME MOP Y US 


ED: 631 UOPD! 


[Mrmmc MEnoPY 


2810 UOPDS 1 


fli^psed time 00 


: m OS 


:&b.o:o fpee:27. 


256-030 FREE. 



08 21 PfiGE 3-1 



II m 



000002 
0002014P 
00000 1 



002 



PSXllM: 
TflGNUn: 



000001 
000000 



8 



= 000176 

= 0000 m 






= 000160 
s 010000 



10 



3 PfiGES 
PfiGES' 



CRr,-SP=UflPPxn,FPEE 















1 m 










FREE 


CPEfi^ED BY 


MRCRO ON b 


-OEC-77 RT 08 21 


PAGE 1 












SmBOL 


CROSS REFERENCE 








CREF 












SV;iBOL 


^■JftLUE 


REFERENCES 


















:OLTT 


000000 RG 


3-58 


• 3-71 


3-75 


3-76 


3-77 


3-78 


3-79 


3-80 


J-81 


FPEE 


0C02CH RG 


3-57 


• 3-90 














vr ** • 


NP'' |<£F 


= UOOOCJO 


«l-5 


















rnPrrSF 


= 000002 


Ul-i* 


















Q 


= 000234 R 


13-75 
3-79 


3-75 
113-80 


83-76 

3-80 


3-76 
83-81 


83-77 
3-81 


2-77 


83-78 


3-78 


83-79 


PSv. 


= OOOCOl 


»l-2 


«2-25 


3-b8 














psxun 


= 00000 I 


«l-3 


















PHI 


: ♦**«!* 


3-69 


3-65 


3-82 














TQGNUM 


= 000300 


111-8 


















SB 


= O0C176 


«:-7£ 


3-75 


8 3-:^5 


3-75 


83-75 


3-75 


83-75 


3-75 


83-76 






:-7b 


$3'7h 


3 -7b 


83-76 


3-76 


83-76 


3-76 


83-77 


2-77 






$2-77 


3-77 


83-77 


3-77 


83-77 


Z'?7 


83-78 


3-78 


h2'72 






:-78 


«3-78 


3-78 


83-78 


3-78 


83-79 


3-79 


83-79 


3-79 






ii:-79 


3-79 


83-"9 


3-79 


83-80 


3-80 


83-SO 


3-80 


83-80 






3-80 


»3-80 


3-80 


83-Sl 


3-81 


83-81 


3-81 


83-81 


3-81 






«3-Sl 


3-81 
















SC 


= 030014 


»3-?5 


3-75 


83-75 


3-^5 


3-75 


83-75 


3-75 


3-75 


83-75 






3-7S 


3-75 


83-75 


3-75 


3-75 


83-75 


3-75 


3-75 


83-75 






3-75 


3-75 


83-75 


3-75 


3-75 


83-75 


3-75 


3-75 


83-75 






:-75 


3-75 


83-75 


3-75 


3-75 


83-75 


3-75 


3-75 


83-75 






3-^5 


83-7b 


3-7b 


83-76 


3-76 


3-76 


83-7o 


3-76 


3-76 






»:-7b 


j- ( 6 


3-76 


t» J- r b 


!-76 


3-76 


83-7t 


3-76 


3-76 






«:-.^b 


Z-7^ 


3-76 


83-76 


3-76 


3-76 


83-^6 


3-76 


3-76 






«:-7b 


3-76 


3-76 


83-76 


3-76 


3-76 


83-76 


3-76 


3-76 






»:-:b 


3-7b 


83-77 


2-:'7 


83-77 


3-77 


3-77 


82-77 


2-77 






3-77 


liZ-^-" 


3-77 


3-77 


83-77 


3-77 


Z-77 


83-77 


2-77 






3-77 


»3-77 


3-77 


3-77 


83-77 


Z'77 


Z'77 


83-77 


2-77 






3-77 


83-77 


3-77 


3-77 


87-77 


3-77 


Z'77 


8 3-77 


2-77 






3-77 


83-77 


3-77 


83-73 


3-7S 


83-78 


3-78 


3-78 


83-78 






3-7S 


3-78 


83-78 


Z-7S 


3-78 


83-78 


3-78 


3-78 


83-78 






3-7S 


3-7S 


83-78 


3-78 


Z-'^S 


83-7«? 


3-^8 


3-7S 


83-78 






3-7S 


3-7S 


83-78 


3-78 


3-7S 


83-78 


3-7S 


3-78 


83-78 






3-78 


3-78 


83-78 


3-7S 


83-79 


3-79 


83-79 


3-79 


3-79 






«3-79 


3-79 


3-79 


8 3-/9 


3-79 


3-79 


83-79 


3-79 


3-79 






83-79 


3-79 


3-79 


83-79 


, 1-79 


3-79 


83-:'9 


3-79 


3-79 






«3-79 


3-79 


3-79 


83-79 


3-79 


3-79 


83-79 


3-79 


3-79 






«3-79 


3-79 


3-79 


83-79 


3-79 


83-SO 


3-SO 


83-80 


3-80 






3 -SO 


83-80 


3-SO 


3-SO 


83-80 


3-SO 


3-80 


83-80 


3-80 






3-SO 


83-80 


3-80 


:-so 


83-SO 


3-SO 


3-SO 


83-80 


3-80 






3-80 


83-80 


3-SO 


3-SO 


83-SO 


3-SO 


3-80 


83-80 


3-80 






3-80 


83-80 


3-80 


3-SO 


83-80 


3-SO 


83-81 


3-81 


83-81 






3-81 


3-Sl 


83-Sl 


3-Sl 


3-Sl 


83-Sl 


3-Sl 


3-81 


83-81 






3-Sl 


3-81 


83-Sl 


3-Sl 


3-Sl 


83-Sl 


3-81 


3-81 


83-81 






3-Sl 


3-Sl 


83-81 


3-81 


3-81 


83-Sl 


3-Sl 


3-Sl 


83-81 






3-Sl 


3-Sl 


83-Sl 


3-Sl 


3-81 


»* 7 O 1 


3-81 






SE 


= 000160 


n3-75 
3-79 


3-7R 
83-80 


83-76 
3-SO 


3-76 


83-77 
3-81 


Z-77 


83-78 


3-78 


83-79 


%r 


= 010000 


n J. - ,' 5 


3-75 


83-75 


3 /5 


3-75 ^ 


83-75 


3-75 


83-75 


3-75 






n j- , b 


3-75 


83-75 


3-75 


83-75 


3-75 


83-75 


3-75 


83-75 






3-75 


«j>-. b 


3-75 


83-75 


3--5 


83-75 


3-75 


tt ^ - > b 


83-76 






3-76 


83-76 


3-76 


83-76 


3-76 


3-76 


83-76 


3-76 


83-76 



free cperted by 

symbol cross pe^epence 
syhbol value 











J \H 








fiCRO 


ON 6-DEC-7/ PT 


08 21 


PfiGE 2 
CREP 










REFERENCES 














Z'7^ 


$2-7h 


3-7G 


113-76 


3-76 


$Z'7h 


Z'7b 


• 3-76 


$Z'7b 


Z'7b 


nZ'7h 


2-7b 


• 3-76 


>7b 


HZ'7i> 


$Z'77 


I3-77 


Z-77 


»J-77 


Z'77 


13-77 


Z'77 


Z'77 


$Z'77 


I3-77 


Z-77 


«3-77 


Z-77 


$Z'77 


Z'77 


$1'77 


Z'77 


3-77 


It 3- 77 


3-77 


nZ'77 


Z'77 


$Z-77 


113-78 


3-78 


3-78 


»3-78 


3-78 


»3-78 


3-78 


• 3-78 


Z'72 


3-78 


3-78 


113-78 


3-78 


«3-78 


3-;'8 


«3-78 


3-78 


#3-78 


»3-7S 


3-78 


»3-78 


3-78 


«3-78 


»3-79 


3-79 


113-79 


»3-79 


3-79 


»3-79 ' 


3-79 


«3-79 


3-79 


»3-79 


3-79 


»3-79 


3-79 


$2-79 


3-79 


13-79 


3-79 


113-79 


3-79 


3-79 


»3-79 


3-79 


»3-79 


»3-80 


3-80 


»3-80 


3-80 


3-SO 


»3-80 


3-:o 


«3-80 


3-80 


13-80 


3-SO 


113-80 


3-SO 


»3-S0 


3-SO 


»3-80 


3-80 


• 3-80 


3-80 


«3-80 


8:-S0 


3-SO 


83-SO 


«3-Si 


3-Sl 


»3-81 


3-Sl 


1»3-81 


»3-Sl 


3-Sl 


»3S1 


3-Sl 


«3-81 


3-81 


4Z'2\ 


3-Sl 


3-Sl 


3-Sl 


83-Sl 


3-81 


113-81 


3-81 


«3-Sl 


3-Sl 



3-81 



«3-Sl 



Z'7b 

Z'77 

Z'77 

$Z'77 

• 3-78 

$Z'78 

3-78 

3-79 

3-79 

113-79 

113-80 

3-80 

3-80 

3-81 

113-«l 

113-81 



fP£E 

MQlPO 

tPPOP 

EPPOF'' 

EPPOPM 

EPPOPP 

FPTPL 



3-75 



3-76 



'IPERTED BY MPCPO ON b-DEC-77 PT 08 21 
CPOS: PEFEPENCE 
NfifiE PEFEPENCES 

• 2-27 

« 1-1*7 
81-52 / 



PPGE 
CREF 



K m 



P 
P 



3-77 



3-78 



3-79 



3-8C 



3-81 



'lOniEv-nRr.POS nOCRO 
TftBLE OF CONTENTS 



nU04 06-DEC-77 08: 21 



L \^ 



I: 

28- 
30- 
i3- 

:?!- 

3b- 
37- 
33 

i4:.-ii:i 
HH-irzs 

BQ-i:9B 
6l-t362 



21 

160 
ISO 
197 

:'Hb 

SBS 

?Hfc 

977 

1013 



COniEX MRCRO DEFINITIONS 

RSX nfiCRO CRLLS 

GLOBAL DEFINITIONS 

RSX FDB RND FNB DEFINITIONS 

SYSTEM CONTROL ROUTINE 

COMMRNU COMPLETE FROM TTY 

TRANSMIT COMMPND 

MfiSTER BID 

RECEIVE TRfiNSFER COMMAND 

TEST FOR COMMAND 

SWITCH MODIFERS 

TPONSPRRENT SWITCH 

TERM. DISCONNECT AND OFFLINE 

CLEAR OUT THE TEMPORARY COMMON 

TABLE FOR WRITE 

SWITCH TABLE AND ROUTINES 

'JUtPY STATUS STORAGE AREA 

FhFAMETERS 

COMMUNICATION BUFFEP S'^OK^AGE 



RECEIVE SWITCH AREA 



<xriC MACRO ^llO^ Ob-DEC-77 08 21 PPiGE 2 



n m 



■MMMMMMMaMMMMMMH 



t( 



i 

7 

I 

ta 
ts 

IS 

1? 

20 
21 
22 

23 



2b 



28 
29 
30 
31 
32 
ZZ 
34 
3S 
3b 

^ > 

3S 
39 

m 

H2 

uu 

4 6 
4b 
117 

4S 

49 
50 

%* 

sa 



OOUOOl 
000001 
000002 

ooocoo 



QCOOOQ 



, PREFIX 
PSX=1 

PSxnn= 

NTPNSFr 
NPCVSFr 



FILE FOP 2780 UOP PUNNING UNDEP PSXlin 



/NUMBEP OF FILES - 1 TO TPPNSFEP IN ONE CMflD STPING 'J) 
;NUnBEP OF FILES - 1 TO PECEMjE ( l) 



;MPCPO DEFINITIONS 
TPGNUMsO 

. MfiCPO EPPOP TEXT 
EPPOPK (TEXT) 
JSP PC-PPOnPT 

. ENDM 



; rfiCPO TO DO PI MLL RND QUEUE THE MESSRuE 



nPCPO EPPOPK TEXT 
TfiGNUn=TfiGNUnfl 

. iPP N, . TflGNUn. 

JSP P6.TYPMSG 

. UIOPD TfiG'N 

. UOPD TmGE'N-TQG'M 

.PSECT MESfiGZ.GBL 

flSCM "TE>.T" 



TflG'N, 
TPGE 'N 



FIElT 
ENDn 

ENDn 



^fllN 



; MRCPO TO QUEUE fi hESSPGE ONLY 

. MPCPO EPPO'rTI TEXT 

TflGNUn-TfiGNUM+1 

. IPP N. ^ T«GNUM> 





JSP 


P5. TYPnSl 




. WOPD 


TQG'N 




. WOPD 


TRGE'N-TPG'N 




. FSElT 


nESflGCGBL 


TflG'N: 


. PSl I 1 


"TE>T" 


TflGE'N: 








. PSECT 


nfliN 




. ENDn 






. ENDn 




;; MPCPO 

* 


TO QUEL 


'E fi nESSOGE HNl 


/ 


. nflCRO 


E?POPF TEXT 




EPPOPn 


vTEXT:^ 




JSP 


PC-PPOnPT 




. ENDn 




4' . 


npicPO 


FPTOL TEXT 




EPPOPK 


at XT: 




JSP 


PS- DIE 




. ENDn 





L 



COMTEy-MflCPOS riRCK' nuOH Ob-DEC-77 08; 21 P0GE3 



N tW 



•MMMM 



I 

z 
i 

7 

8 

o 

10 

n 
i: 

18 
lb 
17 
IS 
19 



P( 



TITLE COflTEX-MPCPOS 
. iDENT /00002/ 

COPYPIGHT l97^, 1975, 1976- 1977 

UiGlTPL EQUIPMENT COPP 

me fifilN STPEET MPYNflRD- HflSS 0175*4 

DEC ASSUMES NO PESPONS IB H I TY POP THE USE OP 
PELI«BILITY OF ITS SOFTUPPE Om EQUiPflENT WHICH 
IS NOT SUPPLIED BY DIGITAL 

VEPSION 

23-SEPTEr^EEP-7i* 
WEPSION 1 

SEP 19"-:' - cep 

nODiFlCflTlONS FOP CUT CODE ^'EPSION OF :7S0 
LiBPhPY OF COnTEv MOCPO DEFINITIONS 



mmm 



JJiHgi iliipiiii S 



COflTEZ-nPCROS 
COMTEv nfiCRO DE 



I N I T I ONS 



06-DEC-77 08: 21 POGE ^ 



B 15 



21 
22 
23 
2H 

:s 

2b 

27 
28 

29 
20 

31 
32 
33 
3H 
35 
3b 
37 



39 

m 

42 

H3 
44 
4C 
4i 
47 
4S 

50 
51 

52 
53 

E.u 

:d5 



3BTTL COflTEy MPtCFO DEFINITIONS 



. nPCRO 

nou 

JSP 
. tNOM 

. npcpo 

MOV 
JSP 
. ENDfi 

. nocpo 
nou 

JSP 
. ENDM 

. I1PCP0 

nou 

JSP 
. ENOn 

. MACRO 
JSR 
. ENDM 

. nflCRO 
riou 

JSR 
. ENDn 

npc RO 

MOV 
JSR 
. ENDM 



L INIT,PRRLST 

»PRPLS"'.R1 

PCEMTINT 



PSPBUF.FflPLST 

»PRRLST,P1 

PCEMTPUT 



PUT^-C.PQPlST 
SPhPl^T R1 
PC-EMTPUT 



FUTMC PPPLST 

8P0PLST.P1 

PC-EMTPMT 



GETS 

PC EMTGET 



PUTTM.PPPLST 

ItFflRLST.Rl 

PCEMTTm 



FUTD PPPLST 
SPPPLST^Pl 
PC EMTPUT 



:oriTEx-nflCPos mrcro nnOH 

COriTE>. riPICPO DEFINITIONS 

I 
2 
3 

S 

6 
7 
8 

to 

It 
12 
t3 

IH 
15 
Ife 
17 

ts 

t9 
20 
2t 
22 
21 
2H 

2k 
27 
28 
29 

30 
31 
32 

33 
3H 
35 
36 

27 

38 
39 
HO 

m 

42 

4i :-^ 

44 . 
45 
4b 

47 ; 

45 " : 
49 - 
60 ■ 

51 - 

52 ' 
53 
54 
55 
56 
57 



Ob-OEC-77 08; 21 PRGE 5 



C 15 



COniEX-n 278J PBT EPP 

REMOTE BOTCH TERfllNPL EHULflTOP RPPLICPTION PROGRPM 
RTli AND RSX-llO/n 2780 RBT CPERPTION 

COPYRIGHT (C) 1975. 197b. 1977 

CIGITPL EQUIPMENT CORPORPTION. MPYNPRD. MPSS. 

THIS SOFTWPRE IS FURNISHED UNDER R LICENSE FOR USE ONLY 
ON P SINGLE COMPUTER SYSTEM PND MPY BE COPIED ONLY WITH 
THE INCLUSION OF THE PBOVE COPYRIGHT NOTICE. THIS 
SOFTUPRE, OR PNY COPIES THEREOF. MPY NOT BE PROVIDED OP 
OTHERWISE MPDE PUBPILPBLE TO PNY OTHER PERSON EXCEPT 
FOP USE ON SUCH SYSTEM PND TO ONE WHO PGREES TO THESE 
LICENSE TERMS, TITLE TO PND OWNERSHIP OF THE SOFTWPRE 
SHPLL PT PLL TIMES REMPIN IN DEC. 



THE INFORMPTION IN 
WITHOUT NOTICE PND 
niTMENT BY DIGITPL 



THIS DOCUMENT IS SUBJECT TO CHPNGE 
SHOULD NOT BE CONSTRUED PS fl COfl- 
EQUIPMENT COPPORPTION. 



DEC PSSUMES NO PESPONS IB I L TY FOR THE USE 
Of ITS SOFTWARE ON EQUIPMENT WHICH IS NOT 
DEC. 



OR PELIPBIL 
SUPPLIED BY 



TY 



. IF OF 


PSX 


. IF NDF 


■ RSX11I1 


. TITLE 


PCSRSXD. F002 


. ENDC 




, ENDC 




. IF DF 


PTll 


. TITLE 


RCSRTll. FOO 


ENDC 




IF DF 


psxnn 


TITLE 


PCSPSXM. FOOl 


IDENT 


,^00130,^ 


ENDC 





PHP 



NiT TO DISCONNECT FROM VECTORS 
NT PROMPT - JUST QUEUE 



FOR 0"E PLOYING W t TH PSX-llM 



01/ 12/74 

BY LOUISE GEPHPRT 
VOl-01 MODIFIED 7/10/74 TO PUN WITH R3X-liri 
VOl-02 7/24/74 RHR 

CHPNGE EXIT ROUTINE TO DO P PESTfiRT L 
DON'T WAIT FOR MESSPGE COMPLETE TO PR 
VOl-4 THRU VOl-b PHR 

DIVIDE USER PROGRPM INTO SEPPRRTE MODULES 
VOl-7 10/1/74 RHS 
RLLOW MULTIPLE BUFFERING UP TO 12 BUFFERS ON "GET" TO SPEED UP 

SUCH DEVICES PS P CPRD 'EPDER 
VOl-03 7/31/74 LG 

ENPBLE R3X11D/M TO RESUME TRPNSMISSION PFTER PN PVI 
FIX P BUG IN ME TERM COMMPND HPNDLER 

THEN PROMPT PND FINRLLY REPD (SIZE IS THE GOAL)'''' 
CHECK TERMINPTING COMMAND CHARACTER FOR A ZERO. IF IT 

DON'T PRINT PROMPT AGAIN - EVENT F.AG WAS SET BEiRM'^E 
vol- 12 11/13/74 RHR 
IMPLEMENT LOCAL SWITCHES ON COMMAND STRINGS. R SWITCH WILL hnlm 



MESSAGE 



OF 



THEN 

KILL 



'U 



■•■iMnMiHNia 



PCSRS^n FOOl MfiCRO nUOH 

COriTEv riRCPO DEFINITIONS 



Ob-DFC-77 08; 21 PRGE 5-1 



15 



bO 
bl 
62 
62 
bH 
bS 
bb 
67 
68 
69 
70 
71 

• *» 

714 

75 

7b 

77 

< I 

78 
79 
30 
81 

82 
83 
84 
85 
86 
87 
8S 
S? 
90 
91 
92 

n 
m 

n 

100 
101 
102 
103 
lOH 
105 
106 
107 
lOS 
109 

lie 

111 
112 
113 

im 



000000 

000000 
000000 
000000 
000000 



000000 



PPPLY TO THE FILE UHICH IT FOLLOWS 
VOl-13 ll/'20/7H 

ROD "GEN" "RJE" INFO TO QUERY TYP^OUT 
VOl-m 1/16/75 RHR 

FURTHER nOOlFlCRTlONS TO LOCAL SWITCHES (SEE EDIT 12) 
VOl-15 1/2H/75 RHR 

REMOVE PLL HALT INSTRUCTIONS «ND REPLACE UITH FPTOl tPPOP MESSPGES 
VOl-16 2/12/75 RHR 

FIX TTD PBORT SO IT WILL WORK IN BINPRY 
VOl-17 2/13/75 RHR 
mPPOVE ERROR REPORTING 
VOl-20 3/3/75 RHR 

inPLEriENT PBILITY TO CHANGE DEFAULT RECEIVE FILE FROM LPO: 
VOl-21 3/3/75 RHR 

INCREPSE RSX STACK SPACE. IMPLEnENT ERROR COMMAND. INSERT CHECK FOP 
STACK POINTER OVERFLOWING 
VOl-22 14/28/76 RHP 

EXPAND ERROR COMMAND TO TRANSMIT ERRORS. IMPLEMENT BINARY SELErTIVE 
RECEIVE TO MEAN RECEIVE ALL PUNCH DATA IN BINARY BUT TRANSLATE 

PLL PRINT DATA 
VOl-23 5/29/75 RHR 

IMPLEMENT RECORD TRUNCATION FEATURE PS WELL PS IMCOMPLETE RECEIVE 
V01"24 6/11/75 PHR 

PBORT TRANSMISSION IF RECEIVE AN EOT IN XMIT MODE 
VOl-25 7/15/75 RHR 

FIX TRPNSMISSION OF BINARY AND NONB I NAP Y FILES COMBINED 
V01-2b 7/15/75 BLR 
PT-11 V02-1 (F/B) VERSION 
LAST EDIT: 17-nUG-75 BLP 
PUT IN CHPNGES TO CUT CODE 
VOl-27 SI 1/77 CEP 

PUT IN TEMP RECEIVE SWITCHES TO FIX PROBLFn UITH /OF 

9/77 CEP 
VOl-30 

PUT IN EPPOR COUNTEPS FOP TmEOUTS 

10/77 CEP 



DSU. 



, IF DF 


PTll 


, CSECT 


GET 


. ENDC 




. IF DF 


PSX 


/IF DF 


RSXllM 


• DEFINE TASK 


.'mcall 


TCBDFS 


TCBDFS 




, ENDC 




. PSECT 




. WORD 





. FSECT 


ISP 


.FSECT 


MAIN 


.IF NDF 


NTRNSF 


NTRNSF= 


B 



;NUnBE? C)^ TPflNSMiT FILES iN P CuMMRND 
; STRING -1 'DEFRULT CASE "bi 



"; 



PCSRSXM FOOl 


nfiCPO nii04 


COHTEX MfiCPO 


DEFINITIONS 


US 




lib 




U7 




lis 




^ 119 




.120 




121 




122 




123 . 




t2i» 




125 


r 17777b 


I2b 


000000 ' 


12? 


000001 


128 


000002 


129 


000003 


130 


000004 


131 


000005 


132 


000006 


1 3: 


00000? 


134 




13S 




1 3b 




1 37 




138 


; 


1 139 




E 140 




141 




^ 142 




143 




144 




145 




146 




147 




14S 


000040 


149 


000100 


160 




ISI 


000001 


16: 


; 000002 


163 


000004 


164 


000010 


166 


000020 ' 


16d 


000040 : 


16/ 





Ob-DEC-77 08 21 PAGE 5-2 



E 16 



ENOC 

IF NOF NRCVSF 
NRCUSFsZ 

ENOC 
. ENDC 

.IF DF RSX 
DEFINITIONS OF REGISTERS. ETC. 

PS= 177776 

PC=::0 

RUM 

R2=^2 

R3=^i3 

P5=-.6 

SP = ^6 

. PC = :^7 

ENDC 



/ DECLflPE GLOBPL ALL EXTERNRL REFERENCES 

. GlOBL INITRL'LUKUP-CLOSEP. CLOSET 

. GLOBL FSTGET,FSTFIL,PO'NT 

GLOBL nSGDON,fiSROUT,GOOBPT 

GLOBL QUEHON, INPCPL ERPHPN 

. GLOBL TERUDONE 

GLOBL RCK,N«K 

. IF DF PTll 

. GLOBL nSUITDFNBUF LOKBLK 
.ENDC 



;NUnBER OF RECEIVE FILES IN fl COnriflNO 
; STRING - 1 (DEFAULT = J) 



;PDDPES3 OF PROC REGISTER 



RCK=40 
NPIK = 100 

UIBEFN=1 

TTPPFN=2 

TTKLFN=4 

TTPDFN=10 

TT£PFN=2C 

S!BEFN=40 



PQPOMETEP FOP PUlD TO 81 SYNC Tqp 



IF DF PSX 



£HDi 



EFN 
EFN 
EFN 
EFN 
EFN 
EFN 



1 = 



7 - 

-J ~ 

U r 

6 = 

o = 



UIB LORDED 

TTY PROMPT UPITE COMPLETE 
TTY K ILL 1,^0 COMPLETE 
TTY PERD COMPLETE 
TTY ERPOP MESSflGE UPITE COMPLETE 
;iB ENTEPY 



J 



PCSPSxM FOOl Mficpo ^no^ 
coniEy nfiCPO definitions 



06-DEC-77 08 21 PRGE 6 



F 15 



!59 

ttO 

It: 

163 

Ib^ 
IbS 
Ibb 
lb? 
168 
lb? 

ro 
ri 
17: 
r3 

171+ 
176 
I7b 
177 



000000 



jr or 


RSX 


, SBTTL 


RSX riOCRO CPLLS 


, nCRLL 


CSIS 


csn 




. nCOLL 


WTLOIS, CLOSES, UTSE5S 


. nCRLL 


FDBOFS, FDOTW, FDRCSfi, FDBK5P, 


. nCPLL 


NnBLKS,FDOTSR 


, nCflLL 


csm.csiw 


. nCfiLL 


QIOI.DIRS 


MCfiLL 


CRLL 


MCniL 


SVTKS 


. ENDC 




. .F DF 


PTll 


. SBTTL 


PTll n«CPO CALLS 


nCOLL 


DSTRT, HPESET, TTYOUT, , EXIT 


nCRLL 


. CSISPC, PRINT. UfiiT. CLOSE. 


. MCflLL 


TLOCK< IJNL DC f 


. \JZ. 




ENDC 





FDOPSO.FDBFSfl. FSPS2I 



TTINR 

1/2. -. SPND 



.J 



POSRiyM 


FOOl 


MPCPO 


GlOBPL 


OEriNlTlONS 


130 






18t 






182 






183 






!SH 






136 






1 8b 






137 






ISS 






1S9 






l?0 






191 







nnOH Ofc-DEC-77 08: 21 PfiGE 8 



G 16 



SBTTL 


GLOBQL DEFINITIONS 


iF OF 


RTll 


GLOBL 


CDEHT 


GLOBL 


BUFB 


GLOBL 


BUF« 


ENDC 




GLOBL 


COLTT 


IF DF 


RSX 


GLOBL 


F 1 NO 


GLOBL 


PARSE 


gl:bl 


C SPS 


ENDC 





PCSI^iXM 


FOOl 


MfiCPO r 


GLOBAL 


DEFINITIONS 


1% 






19? 






198 


000000 




IQQ 


000036 




200 


000176 




201 


000176 




202 


000176 




203 


000176 




2014 


000336 




ZQ^ 


000336 




20b 


000336 




207 


000336 




20S 


00C336 




209 






210 






211 






212 






213 






211* 






215 






216 






217 






218 






219 


oooH:'b 




220 


0G0H76 




221 


000U76 




222 


OOOH-'G 




223 


000^76 




22H 


0005314 




225 


00056^ 




226 


0006m 




227 


0006^^ 




228 


00067M 




'^■^Q 

^^7 


00G67^ 




230 


000700 


000000 


231 


000702 


oouooo 


232 


OOG704 


000000 


233 










23H 


000706 




235 






23b 


00n7iu 


001332' 


237 


OOO'lb 


0013H6' 


23S- 


000:^20 


0013b2* 


239 


000722 


00137b' 


2^0 


00072^ 


Qoim:* 


2m 


000726 


00114:6 • 


2M2 


000730 


goi'4h:' 


2^3 






2UU 







nilOi* Q6-D£C-77 08 21 PAGE 12 



DFBLK, 
FDBIN 



FDBOUO: 



FDBOUl 



. IF OF 
SBTTL 
NMBLKS 
FDBOFS 
FDRCSR 
FDBFW 
FDOPSP 
FDBDFS 
FORCSR 
FOBF^n 
F0RT5P 
FDOP^fi 
FDBDFS 



H 15 



RSX 

RSX FOB «ND FNB DEFINIT 

RJE.RJE,,SY,0 ;0EFINE 

.DEFiNE 
FO. PLCEXPREC.IJH. 
.. 1 
3. .DFBLK 

.DEFINE 
FD PLCEXPPEC.IJH. 

R. URR.FD. CR.80. 
4w DFBLK 



ONS 

OEFPULT 
FOB FOR 



NOME BLOCK 
INPUT 



FOB FOP OUTPUT 



THE SECOND FDD IS ONLY USED WHEN SELECTIVE RECEIVE IS ENPBLED 
IN SUCH P CPSE. FDBOUO CONTPINS THE FILE NPME FOUND IN THE 
COnnPND STRING PND PLL RECORDS RECEIVED PREFPCED BY PN ESC H 
PRE URITTEN TO FDBOUO. PLL OTHERS PRE WRITTEN TO FDBOUl. 
BY iriPLEIIENTPTION, THE SECOND FOB IS PLWPYS FOR THE 
LINE PRINTER HENCE THE FOLLOWING CODE DEFINES THE DEFPULT NPME 
BLOCK PS WELL PS FILLING IN THE FILE NPME PORTION OF THE 
SECOND FDB PT PSSEHBLY TIME ^0 BE THE LINE PRINTER. 



DFNLP 
QDPBW 
QDPBP 
ODPBK 
QDPBM 

lOST: 
PC I NT 1 
P0INT2 
P0INT3 



SSTVEC: 

TPBSST: 



WORD 
WOPD 
UOPD 



245 



. WOPD 
. WORD 
. WOPD 
. WOPD 
WORD 
. WOPD 
. WOPD 



ENDC 



FDRC%P FD PLC EXPPEC. \Z^. 

FDBFSP ,,Z 

FDPT%P P VRR.FD CP^SO. 

FDOPSP 5,. DFNLP 

NMBLK-i RJE.RJE. -LP-D .DEFINE THE OEFPULT NPME BLOCK FOP OUTPUT 

QIOS 10 WLB. 2.2. - . . PPMTP. . '%• 

QIO% 10. PLB-2.4-. lOST. . <KBIBUF.SO. .> 

QIO% 10. K1L.2. 3 

QIO% 10. WLB^2 5., ,. <, ,-40> 

Fspszs :-.nfliN 

. BLKW 2 









- 10 STATUS BLOCK 

;NEXT 3 LOCPTIONS USED BY MRPK PND POINT 



SVTKS TfiBSST,7 



ODDPDD 
MEMPPO 
BPTIMS 
lOTINS 
RS^'DIN 
ILLINS 
TPPINS 



PCSRS/n 


POOl 


nficpo niiOH 06-1 


P3>, fDB 


RNO FNB 


DEFINITIONS 


2i»7 






2148 






:i*? 






:sG 






:si 




000206 


25: 






253 




000000 


2SH 






255 




00000" 


:sb 




000016 


^s:- 




000177 


268 






259 






2b0 






2bt 






262 






2b3 




000033 


2^H 






265 




026402 


2bb 




0000^47 


267 




OOOZbH 


268 




000037 


269 




17:^467 


270 




o:'"405 


271 




O'^^OH 


272 




oc:o:o 


273 




0001^7 


27H 




000037 


275 




oo:ho2 


::'b 




000015 


•-••7 7 




oooc 1 : 


278 






279 







06-DEC-77 08; 21 PAGE 13 



I 15 



flSSEnSLY TIME PflRfiMETEPS 



flSCi 



GLOBL LPS 1 2E , PC VT I n, BPSELN. COMflV, CriBHflX 

;COnn. RCUE BUFFER SIZE 



LPSI2E.-13H 
BPS£LN=0 

conou=7 
CMBnfix=conPv+con«i/ 



;LIN£ NUMBER FOR FPRflriETER LISTS 
;N0. OF COHM BUFFERS PVPiLflBLE 

;nflx INDEX FOP conn buffer list 

.NUriBER OF SECONDS FOP RECElUt TIMER 



DEFINITIONS 
.GLOBL £SC.BINITP,B!NE0T-XI TB^XSTEQ 
. GLOBL BiNTTD^BtNESC^BlN^.XEOTS 



ESC=33 

BlNTTD=:b402 

BINESC=047 

6INH=3b4 

BINI"B=37 

B I NEOT: 177467 

yCEP = 7""405 

XE0TS=7;^H04 

XDE0T=:020 

XFPDM77 

X'TB=37 

x5teo=:ho: 

CP = 15 

LF = i: 



EBCDIC STX-ENQ FOP BiNPPV MODE (/2780) 

EBCDIC ESC 

EBCDIC 4 

EBCDIC ITB FOP GINPPV MODE '/2780) 

EBCDIC EOT FPD FOP BINPPY MODE f/2780J 



PC IP i AM 
RSX FOB 



FOOl 
fiNO FNB 



MRCPO 
DEFIN 



TIONS 



Ob-DEC-77 08: 21 PfiGE m 



J ts 



231 






282 






283 






28*4 






285 






2Cb 






287 






288 






289 000732 


125252 




290 

"Q1 


001174' 




292 001 17H 






293 0On7H 


000000 




2^1+ 00117b 


000000 




29E; 001200 


OOOOQO 




29b 001202 


000000 




£97 00120^4 


oocooo 




298 






299 






300 O0i:0b 






ZO^ DO 120b 


01270b 


001 r4' 


302 






303 001212 






30H 001220 


103001 




30B 001222 


OOCOOO 




30fe 001 22U 






307 






308 001224 


004:^67 


OOOOOOG 


309 001230 


C0Qlo7 


002:4: 


310 






311 






7 . -, 






^ 1 ^ 






313 






3li4 






315 






316 






317 001234 


004567 


OOOOOOG 


31S 001240 


004767 


OOOOOOG 


319 001244 


100425 




320 001246 


004567 


OOOOOOG 


321 001252 


000257 




322 001254 


000207 




32i 00125b 


004567 


OOOOOOG 


324 001262 


004767 


OOOOOOG 


325 001266 


100414 




326 001 270 


000766 




327 001272 


004567 


OOOOOOG 


328 001276 


004767 


OOOOOOG 


329 001302 


100406 




330 001304 


000760 




331 001306 


004567 


OOOOOOG 


332 001312 


004767 


OOOOOOG 


33Z 001316 


100353 




334 001320 


004567 


OOOOOOG 


335 001324 


000257 




336 001326 


000270 




337 001330 


000207 





;RBT SYSTEM INITIAL iZflT ION 
;LINE THBLE : N|T iflL IZRT ION 



STKLMT; 



STKSETr 

RCl'ERP: 

xnTEPR 

PCVTnT: 

XnTTMT 

UBFCNT: 



L I N I NT: 



^^ 



EflTPUT. 



EMTGD: 



EMTGET; 



EnTINT: 



EflTTin. 



EniERP. 



GLOBL STKSET, L IN INT, RCVERR, XMTERR. UBFCNT 
GLOBL RCUTnT.XttTTMT 



IF or RSX 

WORD 125252 
= +240 
ENDC 



UOPD 
WOPD 
WORD 
WOPD 
WOPD 



nov 








G 



STfiCK LIMIT WORD 



STACK POINTER START DEFIN'TION 

ALSO FIRST WOPD CONTAINS PECEM/E BlOCK ZRPOP COUNT 

TRANSMIT BLOCK ERROR COUNT 

RECEIVE TIMEOUTS 

TRANSMIT TIMEOUTS 

USER BUFFER OVERFLOW COUNTER. 

UHEN TAP RECEIVES A RECORD ' 



INCREMENTED 
134 CHAPACTEPS 



riTKSET.SP 



SET UP STACK POINTER 



. IF DF PSX 
DIPS ;«SSTUEC 
BCC 5% 
HALT 



. ENDC 

JSP 

JflP 



PC- INITAL 
OF HANI 



INITIAL I 2E THE UOPLD 
CLEAR SuME SWITCHES 



EMT CLLS TO REPLACE CDEMT IN 3CIP , 
. GLOBL EMTPUT^EMTGET^En-riHT^triTTm 



JSP 
JSP 

Bni 

JSP 

ccc 

PTS 
JSP 
JSP 

em 

BP 

JSR 

JSR 

BMI 

BP 

JSR 

JSR 

BFL 

JSR 

ccc 

SEN 

PTS 



P5.C 3PEG 
FCC. SPUT 
EMTEi^R 
P5,C, SPES 

PC 

R5.C SPEG 

PC.C. SGET 

EMTEPP 

EMTGD 

Po.C. SPEG 

PC.C. STIN 

EMTEPP 

EMTGD 

R5.C. SPEG 

PCCTEMT 

EMTGD 

R5.C. SPES 



PC 



;SAVE REGISTERS 

' EPP'^'R 

■PESfoPE REGISTERS 
.CLEAR COND CODES 
; RETURN 



:PESTOPE REGISTERS 
; CLEAR COND CODE' 
, INDICATE ERROR 
; RETURN 



9Cl9z/n FOOl 


rmcRo mi OH 


RSX FOB PND FNB 


DEF IN IT IONS 


338 




33? 




3^^^ 001332 




Z^\ 00l3i*b 




3^*2 001362 




. 3^4 3 001376 




3^H 001^12 




3^5 001^26 




3Hb 00mH2 




3H7 





06-DEC-77 08 21 PPGE m-l 



K 15 





IF OF 


RSX 


ODDPDD 


FOTQL 


<0D0 aODR) 


MEriPRO 


FfiTflL 


<nin PROT> 


BPTINS 


FflTPL 


<BPT INS) 


lOTlNS: 


FRTflL 


<IOT INS) 


PSUDIN 


FRTPL 


<RSVD INS) 


ILLINS 


FATAL 


<ILL INS) 


TRPINS: 


FfiTflL 
ENDC 


<TRRP INS; 



■'»»»»Wll«« I ' . III . I M I » «— —W— 



PSX FOB 

:s4 

3SS 
3^b 

359 
36? 
3t»0 
361 

' 3fc: 

^ -b3 

368 
^9 

370 

S?t 

373 

37B 
^ 3^6 
3?:' 
37S 
379 
3S0 
3S1 
382 
383 



Fool Mfi'iPo n^a^ O6-DEC-77 os :i 

«ND FNB DEFINITIONS 



PAGE 20 



I IS 






oomSb 






t2^ 



.SS))%!«S%%%%S%%%SiSS% 



.•CONTROL WORD FlPG DEFINITIONS 





. IF OF 


RTlt 




. GLOBL 


CHEXT, D 


CHEXT 


WORD 







. UORD 





DFEXT, 


. WORD 





* 


.WORD 





mmt: 


. PfiDSO 


■PT/ 


DEl^flLT: 


. PflDBO 


/LP 




WORD 


0<0.. 0. 


OEFEXT: 


. F0D5C 


.'^ JE/ 




, PODSO 


RJE/ 




. PflDSO 


■P.JE.^ 




. PRD5C 


'P IE/ 




. ENDC 






.IF DF 


psy 




. GLOBL 


DEUPT 


P£VRT; 


. fiSC t ; 
. ENDC 


'RT' 



CHEXT, DFEXT- DEURT, DEFflLT. DEFEXT, yFPFNB 



.BiSYNC device: NflnE 

;DEt^flULT PECEIUE F IlE 
;DEFfiULT FOP OUTPUT FILES 



r 



tcstSMn POO! nftCPO ^no^ Ofe-DE<' 

tSX FDI AND FHB OEF IN. i IONS 
386 



■yy 



3S? 




3S8 




389 




39C 




391 




392 




393 




39H 




39S 




39b OOmiO 


000 


39'^ 




393 OClWbi 


010 


3^ 




Hoo oome: 


1^ 


WOl 




H02 




'♦o: 




^0l♦ 




40S 




UOb 




^♦07 QGl^b3 


000 


^QS 




1409 




mo 




1*11 OOlWb^ 


GOO 


i*i: ociHb6 


000 


m3 




um 




m5 




Hlb 001^4bb 


000 


m? 




ms ooiwto^ 


000 


1*19 




1*20 OOU^O 


000 


h:i 




H22 001W71 


000 


»423 OOIU": 


000 


u24 




^♦25 oourj 


000 


H2b 0Qm7H 


000 


il2? 




H2S 0011*75 


000 


i*; 




■>: '^nm7e 


000 


4J1 




.•477 


000 


H^ 




'^m 




1*36 OOIBOO 


000 


43b 001501 


007 


^437 




H3S 




439 




i*HO 001502 


007 


4m 





08 21 PAGE 2! 



n 15 



,COMTE.x 2780 RBT EfiP CONTROL/STQTUS FiflGS 

;OND SU ITCHES 



CNL I NE 

CODE 
FLAGS 



GLOBL 

GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 

Br'TE 

BrTE 

BYTE 



; STATUS 
nC6; 



BYTE 



ONL INE . CODE< FLOGS. nCB. TVftB. nODE 
HFCfiCT, INITF,PCKPEN, ELATCH. ENDPEN 
TDONE, EOTPL^I, ETXFlG. EOTFLG, PV IPEN 
CRBFAU, CnBPPU, CMBFPN, ASSGNV 

STOREX,PRiNTX. lOEPP.TXPEN, INPCNT 
NAKCNT, PECSI2. SURSUP, CPBAS.x, OPNFlG- 
RCUCNT 





10 
140 



NCRCi^ 



Th«B: 

MODE. 


B'TE 
.BYTE 






HfCACT; 


. BYTE 





INITF: 


BYTE 





ACKPEN 


BYTE 





ELPTCH: 
E NOP EM 


PYTE 

E rlE 






TDONE: 
EOTPEN: 


. byt: 

-BYTE 






ETXFLG: 


. BYTE 





EOTFLG: 


. BYTE 





INCPCV: 


. BYTE 





Pin PEN: 
CPBFflV: 


. BYTE 
BYTE 



7 



;BIT ; 




: OFFLiNE 
: ! ONL 1 NE 


.BITS 


3- 


■G = 00 USASCI : 






= 10 EBCDIC 


BITS 


1 


2 - XPAR 


BITS 


3^ 


4 - AUTO 


BITS 


tj. 


b - iTB 


• BIT • 


n 


■ SLAuE/MASTEP 



MASTER CONTROL BYTE 
-E IT 7(1) - GEN PECPD FOPMAT 
i (0) - 27S0 PECPD FOPnAT 



B 

e 



.81 

;BI 

:Bi 

;BI 
Bl 

Bl 



T : 

TS 



T 
T 

T 

T 
T 



' 1 ' 
1-0 



f » 



7 : 



7 - 



n 

ij 

1 



1 


I 
1 

n 



;Bi 



ABORT TPPNSniSSlON 
GO CONTROL 
01 PECEM'E 

10 TRANSMIT' 

11 NmT USED 
NO DYNAMIC HFC 
HFC ACnUE 

IN INIT 

NIT 

NOT PEND'NG 

PENDING 
PROHIBIT SUBSEQUENT READS 
END NOT PENDING 
END PENDING 



NOT 
!N 

PCK 
PC^ 



7 



Nb 



>.-MIT DONE 

EOT NOT PEND 

EOT PENDING 

;BIT 7 = ET.X NOT PPEIENTED 

ET"^ PRESENTED 

EOT NOT PRESENTED 

EOT PRESENTED 



;BIT 



1 
n 



n 



- 1 



CflBFPV; . BYTE COMAV 



;PVI PENDING 

.BITS 1-0 = 00 CP BUFFER NOT AVAILABLE 

; =01 ONE AVAILABLE 

= 07 £E''EN AVPIlPBlE 
MIOMM 3UFPEPS CUFI^E^rLi AVPlLPD^E 



L 



PSX FOB PND FNB DEFINITIONS 



^^Z 001S03 


000 


WU3 




H^^ 001501* 


i77 


^^5 




WHb 




^♦47 




4^8 001505 


000 


HH9 OOlBOb 


000 


H50 001507 


000 


H51 




1452 




^53 001510 


000 


H5^ 0015U 


000 


H55 




H5b 001512 


000 


HS" 




'^S? 001513 


000 


'"45*^ 




HbO 




461 




^e: 




4t.3 




^0*4 




^b5 




i^bb 




HbT 0015W 


000000 


^bS 00151b 


oocooc 


i*b? ooi5:o 


000120 


4^0 001522 


OOCnoo 


471 0015214 


''•■•■:■ *^ 4 


472 




473 




474 




475 




4^b 





Ob-OEC-77 08 21 PfiGE 21-1 

CMBFPN BYTE 
TRPTNF. , BYTE 377 



N 15 



RSSGNy: 

STOPEX 
PPINTX. 



lOERR: 
TXPEN; 

PCVCNT: 
OPNFLG: 



::£PFLG: 



I MP C NT 

NRKCNT: 

PECSI2: 

SWPSUP- 

CPSPSX: 



HICOPE: 



BYTE 
BvTE 
BYTE 



BYTE 
BYTE 

BYTE 

BYTE 



IF OF 

GLl'BL 

B)TE 

ENDC 

EVEN 

UOPD 

WOPD 

UOPD 

UOPD 

UOPD 

IF DF 

GLOBL 

UOPD 

ENDC 












G 





PTU 

ZLPFLG 







h 

CrBUF' 
PTll 
STSBLh 
STSBLK 



HhlOPE 



;numbep or conn buffers pending 

;BlTS 7-0 = xni T PCV CnO USE OF CODE 
; s Z77 OTHEP USES OF CODE 



;nSSlGN SLOT INDEX ^BISYNC flSPBUD 
;PPiNT QUEUE STOPE i NDE •: 
; PR I NT SLOT iNDEX 



;200 = I/O EPPOP 
;200 = X-niT PENDING 

;PECEn/E TinEOUT COUNTER 

;iF THIS GOES TO ZERO THE PECEn'EP ;S HUNG 

.200 = HAVE SEEN ENQ BUT Hpi/E NOT 

;YET OPENED THE FILE 



;2G0 = ZERO LENGTH FiLE UPS DELETED 



: INPUT COUNTER 

- INCORRECT BCC RCVE RECORD-COUNTER 

; PUFFER SIZE 80 OP 132 DECIMflL 

; START OF >y BUFFER SPOCE 



mDDPESS OF H! COPE 



K 
I 

n 

N 
B 

C 

E 

r 

6 
H 

r 

K 

I 

ft 

N 
6 
C 
D 

e 

F 
G 
H 
I 

J 
K 
L 
H 
N 
B 
C 

€ 
F 
G 
H 
I 



' litcBaisa^iiSa 



nnnsmnimiis 



^gfeg i ±tttxt i #' 



;r.^^S555!U«a■a^.p^^w^fif^^n^lW«arrii^Rn^rBiw^ ■ F"f^H^^ 



pcsRSxfi root 


MPCRO nil04 


R-X PDB RND FNB 


DlFI NIT IONS 


^78 




H^9 




HSO 




HSl 001526 


004214' 


4S2 001B30 


004422' 


H83 001532 


004630' 


^8H 001534 


005036' 


i4S5 001536 


005244- 


486 0015U0 


005452' 


487 001542 


005660 


438 




489 




t90 001544 


jOOOO 


491 001546 


000000 


492 001550 


000000 


493 001552 


000000 


494 001554 


000000 


495 001556 


000000 


^'96 001560 


000000 


497 




498 001562 


000000 


499 001564 


GOOOOO 


500 G01566 


000000 


501 001570 


000000 


502 001572 


000000 


503 001574 


000000 


504 001576 


000000 


505 




506 001600 


000000 


507 001602 


000000 


50S 001604 


OOOOGO 


509 001606 


GOOOOO 


510 001610 


GGOGOO 


511 G01612 


000000 


512 001614 


GOOOOO 



06-DEC-77 08: 21 POGE 22 



B 16 



; connuNiCflTiONS bufffer list 



CMBLST. 



; ONL I NE 
CnPLST: . 



; ONL I NE 
CnCLST: . 



; DHL I NE 
CMFLST: . 



GLOBL 

UORD 

WORD 

WORD 

UORD 

WORD 

WORD 

WORD 

PRINT 

WORD 

WORD 

WORD 

WORD 

WORD 

WORD 

WORD 

PRINT 

WORD 

WORD 

WORD 

WORD 

WORD 

WORD 

WORD 

PRINT 

WORD 

WORD 

WORD 

WORD 

WORD 

WORD 

WORD 



cmbl:t, cnPLST, cmclst, cmflst 

CriBU''l 
CnBUF2 
CnBUF3 
Cn3UF4 
CriBUFS 
CMBUF6 
CMBUF7 



QUEUE 














QUEUE 














QUEUE 











n 

6 



- BUFFER STRRT ADDRESSES 



BUFFER BYTE COUNTS 



END OF F ilE 



SVSTEfl CONTROL 

Sib 
517 
518 
619 
820 
521 

523 

525 
526 
527 
528 
529 
530 
53! 

53: 

533 
53H 
535 
536 
537 

538 001616 

539 001616 
5H0 001622 
5m 001622 
5*42 001622 
5'*3 001622 
<B^H 001630 
5H5 001632 

5^6 00l6^6 

SH7 0C165H 

5H8 

5^9 

550 

552 
55: 

555 
55b 
557 
55S 
559 
560 
561 

562 00165^ 

563 001660 
56^ 001666 

565 001670 

566 001676 

567 001702 
56S 001706 
669 001710 
570 001710 



nflCRO f11l0^ 06-DEC-77 08:21 PPGE 21 
ROUTINE 



C 16 



022767 

ooimi 



016701 
032761 
001410 
0H2761 
016^02 
004767 
000H03 



1:5:5: 177102 



01276" 1:5:52 177056 



OOOOOOG 
000040 0000:, 

000040 Gooo:: 

OOOOOOG 
OOOOOOG 



042761 000040 0000:2 



. SBTTL SvSTtn CONTROL ROUTINE 
;GETS LOOP FOR UiB ENTRY RETRIEVPL 

. GLOBL CROUT, GETENT, ENTRY, TKRTNF, C SPS 



GOTGET: 
CROUT: 



COUTI 



GOTGET 

CROUTX 

CROUT: 

USRTIM 

GETENT 



GETOl 



5S: 

10% 



5i: 



. IF OF 
GLOBL 
TSTB 

Bni 
cons 



RTll 

GOTGET 

TRRTNF 

GETENT 

TRRTNF 



MOV IICR.RO 
. TTYOUT 

MOV ;lf,po 

, TTYOUT 

MOV «'*.P0 

TSTB ONLINE 

BEQ COUTI 

. TTYOUT 

. TTYOUT 

BR GETENT 

. ENDC 

. IF DF RSX 

COLL PROMPT 



CMP »125252.STKLMT 

BEQ GETOl 

ERROR <STfiCK OVERFLOW^ 

MOV »i:5:52.STKLMT , 



PRINT THE PROMPT 
NO 



PRINT fi CflRRRluE RETURN 
PRINT fl LINE FEED 



ONLINE 

NO - ONLY ONE t ON PROMPT 



PROMPT THE OPEPf^TOP 



OVERFLOUED THE STPCK'' 
NO 

; I T HfiS 
RESET STPCK L I r* I T UOPD 



IF NDF RSXllM 



MOV 

BIT 

BEQ 

SIC 

MOV 

JSR 

BR 

BIC 

MOV 

BIC 

. IFF 

MOV 

BIT 

BEQ 

BIC 

MOV 

JSR 

BR 

BIC 



GET THIS TP-K'S RTL NODE 

IS 'SIB ENTRY' SET? 
NO 

SET UP LINE TPBLE PDDP 
GO DO TPPNSMIT DONE 



. CRTSH PI 

;SlBEFN.fl. EFiPl) 

5% 

8SIBEFN.P EFCRl ) 

C.STPB^P2 

PC-C BODE 

;SIBEFN-fl. EF(Rl) 

.CPTSK,R1 ;MPKE SURE PI SET RIGHT - CLOBBERED BY 

;C. BODE ROUTINE 
nJIBEFN.fl. EF(Rr ;CLEPP UIB LOPDED EVENT FLPG 



TRSKPD.Rl ;GET THIS TPSK'S TCB PDDRES^^ 

nSIBEFN,T. EFLG(Rrt ;IS 'SIB ENTRY' SET"^ 

5% ; NO 

SSIBEFN.T. EFLG'Pl) ; YES - CLEPR IT 

C.STRB.P2 ;SET UP LINE TPBLE ROD 

PC. C. BODE ;G0 DO TPPNSMIT DONE 

10% ; 



SSIBEFN.T. EFLG(Rl) 



CLFPR THE EVENT FLSi 



PCSRS.'.n FOOl 
SVSTEn CONTROL 



\h 



£71 
672 
573 

S75 

5^b 

677 
S78 
679 
6S0 

6^: 

6S3 
65H 
6S6 
SSb 
687 
6SS 
6S9 
690 
691 
692 
693 
691* 
696 
696 
697 
698 
699 
600 
601 
602 
603 
604 
606 
606 

60:' 

60S 
609 
610 
611 
612 
bli 
614 
616 
616 
617 
618 
619 
620 
621 

623 
624 
626 
626 
627 



oorib 

001722 



001 30 
001734 
001740 
001744 
o:'746 
001762 
00176b 
001760 



001 
001 
001 
001 



•64 
•bb 
'70 



001774 



001774 
002000 

002004 
002010 



MRCRO nit04 06- 


•DEC-77 08: 21 


PRGE 23-1 




ROUTINE 










016701 


GOGOOOG 


105; 


l-io*' 


TflSKRD.Rl 


042761 


OOOCOl 


000022 

GETENT 


Bi. 

ENDC 
. ENDC 
. IF DF 
. UNLOCK 
JSR 

ENDC 


• UIBEFN.T, EFLGtfl 

RTll 

PCC SPS ; 


006067 


000030 




CLR 


ENTRY 


012701 


001764* 




MOy 
GETS 


»ENTRY,R1 


100413 






Bri 


GETEXP ; 


rit7Q6 


000013 




MOUB 


ENTRY^1,RS 


042706 


177^00 




BIC 


»177700,R5 ; 


006306 






RSL 


R6 ; 


000176 


003136' 




JMP 


ijnPTBL'P5) ; 


000 


000 


ENTRY: 


. BYTE 


0,0 ; 


000000 






WORD 





000000 






, UOPD 


; 


000000 






, WORD 






016701 GOOOOOG 

016102 000022 

032702 000010 
001423 



.RESET PI CLOBBERED BY C BODE 
;CLEflP UIB EVENT FLOG 



RELEASE USR 

CHECK FOR SIB ENTRY 

POINTER TO PfiPfiM LIST IN Rl 

GO GET ENTRY - W«S THERE ONE'' 

NO. 

YES. SRVE CODE BYTE IN R5 

CLEfiR ALL BUT 6 LOW ORDER B I TS 

YES. MAKE INTO WORD INDEX 

GO THRU PR I MARY JUMP TABLE 



1ST WORD OF ENTRY 

2ND WORD OF ENTRY 

3RD WORD OF ENTRY 

4TH WORD OF ENTRY 



.SYSTEM CONTROL ROUTINE E:aEN£ION 
;FOP I/O 



GETEXP: 



TERMIN: 



. IF DF 

. TLOlK 

BCS 

MOV 

MOV 

. TTINR 

BCS 

MOVE 

CMPB 

BEQ 

BR 

. ENDC 

. IF DF 



PTll 
WAIT 

;kbibuf,pi 

R1,P2 

WAIT 

RO. (Rl )+ 
RO «LF 
COMCPL 
TEPMIN 

RSX 



IF NDF RSXllM 



MOV 
MOV 
. IFF 
MOV 
MOV 
. ENDC 
BIT 
BEQ 



. CPTSK.Rl 
A. EF^R1.),R2 

TASKAD.Rl 
T. EFLG(R1).R: 



; IS USR AVAILABLE"? 

;N0 - DON'T EV.EN LOOK FOP CONSOLE INPUT 



TRY FOP TTY INPUT COMMAND 

NO TTY INPUT - JUST WAIT FOP AN EVENT 



END or ir^PUT COMMAND - HANDLE COMMAND 
LOOP FOP rOPE INPUT 



RESTORE TASKS ATL NODE - KILLED CY GETS 
GET EVENT FLAGS 1-16 

RESTORE TASKS TCB ADC - KILLED BY GETS 
GET EVENT FLAGS 1-16 



002012 042761 000010 000022 



«}TTRDFN,Pv 

SLEEP 
IF NDF RSXllM 
BIC ^TTRDFN.fl EF(P1 
. ENDC 
. IF DF RSXllM 
BIC fITTPDFN-T. EFLG'Rl) 
. ENDC 



TTY READ COMPLETE^ 

IF EQ NO - GO 10 SLEEP 

; CLEAR THE FLAG 'NO PACE IF TTY lOWEP PRIORITY) 



PCSRSyn Fooi 


MACRO nno^ 06-dec- 


SYSTEM CONTROL 


ROUTINE 


628 002020 


105767 I76b60 


629 002C2H 


100H03 


630 002026 


105^67 1766^3 


631 002032 

632 

633 00203H 


00U31 


12^767 OOQOOOG 1766 


63H oo:o^2 


001267 


635 oo:qhh 




636 




637 




63S 002060 




b39 002060 




6UQ 




6m 0020:^4 


1G3252 


6H2 002076 




6H3 




6HH 




hk% 




6H6 




6H7 





08. 21 PRGE 23-2 



TSTB 

BMI 

TSTB 

BNE 



£ 16 



643 

64? 

650 

651 

652 

653 

654 

655 

f^56 

657 

658 

659 

660 

661 

662 

663 

664 

665 

bbb 

t?b7 

bbS 

bb9 

b-'U 

671 

672 

677 

674 

675 

676 

677 

678 

679 

bSO 

6S1 

6S2 

683 

684 



002112 



GG2120 
002124 
002130 
002134 
002140 



G1270G 
012560 
012560 

00C205 



000644 
000G14 
0000 lb 



002142 
002146 
002154 
002160 
002162 
002166 
002172 
002174 
002202 
002204 



012700 
012760 
105767 
100002 
005260 

103741 

103735 
000207 



000534 
000005 
17'^300 

oonoib 



0000 1 6 



ChPB 

BNE 

FflTRL 



lOST 
lOt 

lOSTM 
COMCPL 

HIE. EOF, 
GETENT 
< EXIT ) 



OST 



WAS THERE AN ERROR (ABORT OR 2)^ 
IS niNUS - YES. SEE WHRT KIND OF ERROR 
NO ERROR - CHECK TERniNPTiNG CHfiRfiCTER 
IF IT IS ZERO THE EUFNT FLAG WAS SET 
DUE TO KILL I/O OTHERWISE SET BY INPUT 
CONTROL 2'! 

YES. EXIT 



SLEEP 



SYSEPP 

;ROUT 
;COLL; 



WTL05S 0<»UIBEFN!TTRDFN!SIBEFN ;WfllT FOP 

.OF EFN'S 1.4.6 



ANY 



BCC 

FATAL 



GETENT 
<FATAL 



DIPECTIUE 



SOMETHING HAPPENED - GO 
EPROR> .ERROR IN DIRECT 



FIND 
VE 



OUT WHAT 



NE TO TYPE MESSAGES TO THE OPERATOR 
JSP P5.TYPMSG 
. WORD ADDRESS OF ASCI I TEXT 
. WORD LENGTH IN BYTE' 



S 



. ALTERNATE ENTRY POINT ■ 
; ENTER AT THIS POINT TO 
; PEPFOPMING A KILL I/O 



TYPMSl 
SET 'JP TO 



QUEUE A MSG WITHOUT 



TYPnSG; DIPS 

IF NDF 
WTSES3 



»QDPBK 
PSXllM 
}J3 



TYPMSl 



. ENDC 

MOU 

MOV 

MO^' 

DIPS 

PTS 



KILL THE PENDING READ 

THIS IS ONLY NECESSARY FOR PSX-D SINCE 
THE TASK IS NORMALLY RUNNING AT A HIGHER 
PPIORITY THEN THE TELETYPE HANDLER AND 
THE KILL WOULD ALSO KILL THE MESSAGE AND 
THE PROMPT 



SODPBM.RO 

(l'5i + -Q. lOPLfPO) 

fP5^+. 1 IOPL+2fPO) 

RO .QUEUE 



GET THE QIC PARAMETER LIST 
; ADDRESS OF MESSAGE 
.LENGTH IN BYTES 
THE MESSAGE 



R5 



RETURN 



; ROUTINE TO 
;CALL; JSP 



PR 



NT THE PROMPT AND QUEUE A READ 
PC. PROMPT 



PROMPT: 



105: 



MOV 

MOW 

TSTB 

BPL 

INC 

DIPS 

BCS 

DIRS 

BCS 

RTS 

.ENDC 



«QDP 

«PPM 

ONLI 

lOS 

Q. iO 

RJ 

SYSE 

?QDP 

SYSE 

PC 



BW.PO ; THIS IS ADDP OF QIC DPB 

TL-Q. IOPL+2(RO) LENGTH OF PROMPT LINE 

.ONLINE'? 

;N0 

;YES< PRINT EXTRA * 

; PRINT THE PROMPT 

;EPP0P FROM DlPEC^MfE 

;D0 A READ 

; DIRECTIVE EPPOP 



NE 

PL + 2'«R0) 

RP 
BR 
PR 



ROUTINE TO HANDLE FATAL EPPOP MESSAGES 
CALL: FIRST TO "TYPMSG" 
JSP RE. DIE 



PCSPSXM FOOl MfiCPO nnoi* 

SYSTEM CONTROL ROUTINE 



Ob-DEC-77 08 21 PAGE 23-3 



F tb 



b35 
bSfe 
b37 
bSS 
bS9 
690 
b9l 

b?: 

693 
694 
b9S 
b9b 
69" 
698 
b^9 
700 
701 
702 
703 
704 
705 
70b 
707 
:'0S 

709 
710 
711 

712 

713 

7m 

715 
716 
717 
71S 
719 
720 
721 



72J 



002206 001*767 OOOOOOG 



DIE: 



GLOBL 
JSR 



DIE 
PC. DONE 



; FINISH UP AND EXIT 
. tItNO RETURNttt 



. IF DF RTll 
;NOTHING TO DO -- TIMED WfilT THEN RETRY EVENT/TTy LOOP 



UP I TNG 

20% 

«TTYWflT,-(SP) 

10% 
UP IT 

»377,WPITNG 



UPIT; . UNLOCK 
TSTB 

Bni 

MCU 

PUTTM 

BPL 

BR 
lOS: BISB 
:0S: . SPND 

BP GETENT 
• USER TIMER HPS EyPIPED 

USPTIM: . I r DF PI 11 CLPB 

TSTe PCUCrT 

BEQ GETENT 

DECB PCVCNT 

BGT GETENT 
: EPPORK <PECl/ TiriEC'UT> 

JMP GOPBPT 



;FRPRMETEP LIST FOR TinED UfliT 



.INSURE THAT THE USR IS UNLOCKED 

, IS THERE fl PENDING TIMER'' 

;YES - DON'T SET ANOTHER 

.MOVE PARAMETER PTR ONTO STACK 

;CALL SCIP TO LINK TIMER REQUEST 

.OK - SCIP SUCEEDED IN QUEUE I NG TIMER 

;NOT ENOUGH QUEUE ELEMENTS - RETRY 

.INDICATE TIMED WAIT IN PROGRESS 

.SUSPEND OPERATION 

;JUST LOOP TO TEST WHEN EVENT OCCURS 



WfllTNG .CLEAR TIMER PENDING ! 
, IS THE RECEIVE TIMER SET^ 

NO. GET NEXT UIB ENTRY 
.DECREMENT THE COUNTER 
:HA5 NOT EXPIRED 
; EXPIRED. PRINT EPPOP MESSAGE 
.SEND AN EOT AN flBOPT 



LAG 



TTYWAT; 


. BYTE 
. BYTE 
. WORD 
. WORD 


377 

60 
177777 


;0F CODE 

; ID - LINE NUMBEP 

;WhIT Time - I SECOND ^60 TICKS) 

;USEP PPPRMETEP UOPD 


WAITNQ: 

• 


. WORD 





:FLfiG TO INDiCflTE TIMER PENDING 


*■ 


. ENDC 







J 



PC'SPSxn Fooi 

SYSTEn CONTROL 



nfiCRO nil OH 

ROUTINE 



0fc-D£C-77 08 21 PRGE 25 



G te 



7V 








GLOBL 


COfERR 


728 002212 






BUFOVF: 


ERROR 


<BUFF OUR) 


729 002226 


000167 


177370 




JMP 


GETENT 


730 002232 






PRGEPP: 


. IF DF 


RSX 


731 002232 








CLOSES 


IFDBIN 


732 0022H2 








CLOSES 


ffFDBOUO 


733 002252 








CLOSES 


fFOBOUl 


73H 








, ENOC 




735 002262 








FPTOL 


<CnTX ERR> 


736 002276 






COriEPR: 


IF DF 


RTll 


737 








ncv 


«STKSET-SP 


73t 








ENDC 




73? 002276 








EPPOPP 


(ILL cno) 


7H0 00231: 


000167 


17730V 




J"P 


CPOUT 



,COnnPND ERROR 



;RES£T STflCMSWi^CHES nOY BE THERE) 



MMhmmmmim 



PCSRSXM FGOl 
SYSTEM CONTPOL 



MfiCRO nil OH 
ROUTINE 



Gfe-DEC-77 08. 21 PfiQE 28 



H tb 



7HH 








7Ht 








T'Hb 








^H7 002316 








^H8 








749 








750 








751 








^c •■ 








:^53 








:^5H 








"55 








"Sb 








757 








75S 00:21b 


016701 


17b354 




"59 oo:::: 


001002 






760 002324 


000167 


I7:':b6 




761 002330 








762 002352 


103412 






7o3 002354 








764 002364 


n2"06" 


OOOUIO 


rr-ObH 


765 








76b 0023": 


0014 17 






7b7 0023:^4 


000167 


000 3-4 




76S 








769 








770 








771 002400 


004^67 


000002 




772 002404 


000"34 






773 








774 002406 


0lb"b" 


004 342 


176244 


775 002414 


016767 


00^^332 


l"b240 


77b 002432 








777 002430 


000207 






77S 









COMCPL 



conP2 



CTtO; 



BRDCS: 



L ^ 



EPP: 



, SBTTL 
IF DF 

CMPB 

BNE 

TSTB 

CLPB 
CSISPC 

BCS 

MOV 

crp 

. ENDC 

IF DF 
MOV 
BNE 

jrip 

CSISI 

BCS 

CSI52 

criP 

. ENDC 

BEQ 

jriP 

.IF DF 
GLCBl 
.JSR 

BP 

MOV 
MOV 
DIP? 
PTS 
ENDC 



COMMRND COMPLETE FROM TTY 

RTU 

-atRD^fP 

C0nP2 

-(Rl) 

-CRD 

R2. »DEFEXT,R2 

COMERR 

IFILDES.Pl ;RDDP£S3 OF 

(P1),DEUR1 .OUTPUT DEV 



CRLL THE CSI 
COHMPNO DECODER 



SYNTAX 



EPPOR 



CS 
CE 



OUTPUT 
RT? 



PSX 

I0ST+2,PI 

CTIO 

CPOUTX ■ 

«FILDES.QDPBP+Q lOPL-Pl 

BPDCS , SYNTAX 

-OUTPUT 

il'. DEVD+2(RQj.DEVRT 



EPPOR 



TPNS4 

TPYPEC 

PSX 

CSIEPP 
PC-CSlEPP 
COMEPP 



fIfiYBE PECEIVE 



PRINT STPING 
TELL OPEPfiTOP 



t\ 



EPPOP 
COMMAND 



ERROR 



FILDES+C. FILD+2.QDPBM+Q. iOPL ;RD0PESS0F ^RD STRING 
FiLDES-t-C F ILD. QDPBM+Q. lOPL + 2 ; LENGTH OF STPING 
SuDPBM ; WRITE THE MESSfiQF 
PC ;kETUPN TO PRINT PEST OF MESSAGE ' 



TPPNSntT COflMPND 



Ob-DEC-77 08: 21 PAGE JO 



I t^ 



78t 
782 

783 
78^ 
7SS 
78b 
787 
788 
78? 
790 
791 
792 
793 
79^ 
79S 
79b 
797 
798 
799 

s66 

SOI 

so: 

803 

sou 

SOS 
SOb 
807 
SOS 
S09 
SIO 
Sll 
812 
S13 
Sll* 
S15 



002^32 
002H3b 
002UH0 
002'4HH 

00:U50 
002462 
002i*54 
0024"0 
0024714 

oo:soH 

002812 

0025m 

002530 

00:53H 
002540 



002544 
002550 



I05r'b7 

100402 
000167 
012702 
005732 
001410 

000167 

032^67 
001012 



177022 

r7632 
006504' 



17^126 
000004 



005077 003^50 
000167 r7C62 
010262 17-776 



004 76" OOOOOOG 

!0:747 



0Ql4b4 



SBTTL TRPNSMIT COHMPNO 



TRNS4, 


TSTB 


ONLINE 




BMI 


TRNS6 




JMP 


COriERR 


TRNS6: 


nov 


«TRNSBLK,R2 




TST 


d(R2)> . 




BEQ 


MDTRY 




ERPOPP 


<TPNS PEND) 


TPNS7: 


JMP 


CROUT 


MDTRY, 




PUTMC MOnPRR 




BIT 


»4,nDnppR+4 




BNE 


TRNS5 




EPPOP 


riDM NOT PDY> 


TEPPP. 


CLP 


iTPNSBLK 




JMP 


CPOUT 


TPNS5. 


MOW 


P2.-2(R2) 




. IF or 


PTll 




POD 


«36 PI 


TMOVE; 


MOV 


»4,R5 


10$: 


MOV 


I F n > . ( R 2 ) > 




DEC 


P5 




BNE 


10^ 




CLP 


>p:i + 




CMP 


Pl-»FILDESMlb 




BNE 


TrtO'./E 




CLP 


ir:' + 




JSR 


PCMS^IIT 




BCS 


TEPPP 




CLRB 


SWPSL 




ENOC 






JSP 


PC LUMJP 




BCS 


TRNS7 



,ONLINE'> 

;YES OK 

;N0 COMMAND EPPOP 

; TRANSMIT COMMAND PENDING? 



IS CATA-LINK OK? 
YES - PROlEED 

CANCEL TRANSMIT 

NO. SET POINTER TO FIRST FILEBLK 

ADDRESS OF INPUT FILE BLOCK 
NUMBER OF UORDS PEP FILE SPEC 

NOT INCLUDING SWITCH WOPD 
STORE FILEBLK 
ONE LESS WORD TO MOVE 
NOT DONE YET 
CLEAR SUITCH WORD 
END OF INPUT FluE? 
NO, KEEP GOING 

MAPh END OF TABLE UlTH A ZERO 
MOVE SWITCHES OFF STACK 

NO ROOM FOR SEL PECV BUFFERS 

PARSE AND FIND PILES 
tPP<JP (^Kun LOOt- UP 



wMMMMM 



>*J 



PCSRSXM FOOl 
^0"T£P BID 

iff 



MRCPO nnOH Ob-DEC-77 08.21 PAGE 33 



J t6 



. SBTTL nfiSTER BID 



820 














8:i oozss: 










. IIF DF 


PSX CfiLL 


s:: 00256b 


106067 


17671! 






CLPB 


TOONE 


82! 00:5b2 


106067 


176716 






CLPB 


TRRTNF 


82W 0026^^ 


106067 


176677 






CLPB 


EL«TCH 


s.s 002b7: 


162767 


000200 


176711 


B 1 S 1 N: 


BISB 


• 200.TXPEN 


82b 0G2b00 


126727 


r6661 


000001 




CnPB 


nODE,«l 


827 002606 


001466 








BEQ 


GOTG 


828 










. 1 IF DF 


RTH JSP 


82? 002610 


004:^67 


OOOOOOQ 






JSP 


PCFSTFIL 


830 0026m 


103016 








BCC 


TPOKT 


831 002616 








BDFPIL 


EPPOP 


<XMIT OPEN EPP 


832 002632 


1060b7 


176663 






CLPB 


TXPEN 


833 002636 


006077 


003642 






CLP 


ilTPNSBLK 


z:m 0026^: 


004767 


OOOCOOG 






JSP 


PC, CLOSET 


836 00261+6 


000167 


176760 






J MP 


CPOIJT 


S36 002662 


132767 


000040 


176631 


TPOKT: 


BiTB 


»4Q, TXPEN 


837 002b60 


001403 








I :q 


lOS 


838 002662 


004767 


OOCOOOG 






JSP 


PC, POINT 


S39 002bb6 


103763 








BCS 


BoroiL 


S^0 0026^0 


004767 


OOOOOOG 




105: 


JSP 


PC-FSTGET 


841 002674 


103760 








BCS 


fOFP IL 


S42 00267b 


162:^67 


0002no 


reSBf 




BISB 


"200, FLOGS 


843 002704 


0060b7 


0012^4 






CLP 


CnFPiR+4 


844 002710 










PUTD 


ENQPRP 


846 00.'l720 


10C423 








Bfil 


PUTERR 


846 002722 


012767 


04000G 


CO 1202 


JOINT; 


now 


«40000,ENBPflP+ 


847 002730 


116767 


17b626 


ooiru 




nouB 


FLAGS, ENBPRR+2 


848 002736 


16b7b7 


176617 


001 ibr 




31 SB 


C0DE,ENBPflP+3 


S49 002744 










^UTTC 


ENBPflP ;PEQUE 


860 002764 


100406 








Bfl! 


PIJTEPP 


S61 002766 


162767 


000200 


176603 




BISB 


»200. INiTF 


862 002764 


000167 


176632 




GOTG: 


jnp 


GETENT 


S63 002770 


000167 


i • 1 •. ->b 




FUTERR: 


JMP 


PPGEPP ;COnTE 



PROMPT ;D0 PROMPT FOR RSX 

.RESET END FLAGS 

; PR INT PROMPT WHE- THROUGH 

;SET XMIT PENDING FLAG 

;RE:EIVE ACTIVE'^ 

;YES, WOIT FOR END OF TRANSMISSION 

PCOFNBUF SET UP THE BUFFERS 

, REOPEN FIRST FILE 



.CLOSE THE FILE 

;TPflNSMlT PENDING AFTER PVP 

;N0 

;POiNT TO UHERE WE lEFT OFF IN FILE 
; ERROR TRYING TO POSITION, GIVE UP 
;D0 THE INITIAL GET 
; EPPOP FROM GET. GIVE UP 

; SELECT MASTER 

:FOR TRANSMISSION START 

; ERROR 
2 , BUFFER ADDP IN PAPAM LIST 

,SET CURRENT OPTIONS SELECTIONS 

;SET CODE SELECTION 
ST CONTROL 

;SET INIT FLPG 

V EPPOP ; ■ J^t DEBUG **;; 



mmmum^ 



PE'.E I' E TPPNSFER COflMfiND 



DEC-77 08 21 PAGE m 



K \h 



fMMH 



255 






8Sfe 






&S7 00277^ 






858 






859 






SfeC 






Bi\ 






862 002"7^ 






363 00300H 


016000 


000010 


S6M 003010 


122027 


000122 


86S 0030m 


001030 




8bb 003016 


12102:' 


000124 


86" 003022 


G01025 




£68 






S69 0030214 


012702 


OOtobbO' 


370 003030 


122767 


000001 


371 003036 


001407 




872 0030^0 


010262 


177776 


873 






87^ 






3"^ 






876 






8^" 






87S 






879 






880 






881 






882 






883 






8S4 






8S5 






SSb ^ 






8S7 






SSS 






SS9 






S90 






S91 003044 


004 767 


OOOOOOG 


892 003050 


1034 10 




£93 003052 


GOClb:' 


176540 


S9H 






895 00 3056 






S9fe 003072 


0001 b7 


rb524 



TPYPEC 



'642: 



PMOVtE 
IQS: 



SBTTL RECEIVE TRfiNSFER COnnOND 



PPEND: 
PFENOl 



IF OF 

cnp 

BNE 
.ENDC 
. IF OF 

CSI52 
MOU 

cnPB 

BNE 

crPB 

BNE 
. ENDC 

nov 

CMPB 
6EQ 

t^o^J 

.IF 0^ 
CLPB 
CLPB 
MOV 

MOV 

DEC 
BNE 

LLP 

aip 

BNE 

CLP 

JSP 

BCC 

CLP 

BP 

. ENDC 

. 'f DF 

JSP 

BCS 

JMP 

. ENCC 

EPROPP 

JMP 



PTU 

FlLDES^Jb.DEVRT 

UFCR 

RSX 

, INPUT 

C DEVD*2'R0),R0 

iRO)>,ll'R 

COMDD 

(PO).»'T 

conoD 

»PCUBI.K+2,R2 

«uriODE 

PPEND 

P2.-2'P2) 

PTU 

PCHN 

ZEPFLG 

»5.R5 

'PI ^*, (.R2) + 

P5 

lOS 

' P2)4> 

P1-8F ILDES+36 

pnoi'E 

(P2) + 

PCHSWIT 
PPENDl 
iPCl'BLK 
PPENDl 

PSX 

PC.PENTEP 

PPENDl 

crout:< 

<RECV PEND> 
CPCUT 



NOT DEVICE PT 



DEiMCE PT 
NO 

NO 

RECEIVE COflMRND BLOCK 

RECEIVE ACTIVE" 

YES 

SET FOINTER TO FiPST FILE 

CLEAR PECEiVE CHAIN MODE 
CLEAR DELETED PREViOUS FILE FLAG 
NUMBER OF UORDS PEP FIlE SFEC 
NOT INCLUDING SUlTCH UOPD 

ONE LESS UOPD TO MOVE 

NOT DONE >ET 

CLPEA OUT FILE SUlTCH UOPD 

MOVED OUTPUT FILES'' 

NO 

MARK END WITH 

MOVE SWITCHES 



..•EPSOP ON SUtTCHC"-. 
;N0 RECEIVE f^LLOUED 



PPPSE F ILES AND SAVE FriB 
•F lRPOP DONT PF INT PPOMPT 
PRINT rPOMPT AGAIN 



0mm 



PCSR.,<n 

PECEi^iE 

zn 

399 
900 
901 

9o: 

903 
90»» 
905 
90b 
907 
90S 
909 
910 
911 
912 
913 
9H 
915 
91b 
917 
913 

9:6 

921 

92: 

923 

9:w 

92b 

927 

9:s 

930 
931 

93: 

93H 
935 
936 
937 

93S 

'=»3Q 

9Hl' 
9^1 

9h: 

9^*3 
91414 



FOOl MflCPO MUO^ 

TPftNS^EP COnrfiND 



0b-DE':-77 OS 21 PAGE 36 



L 16 



IF DP RTll 

SBTTL REPD VERTlCRL 

GlOBL DBLK,RE'3DNT 



FCPrifiT RECORD 



VFCR, nou 


'SP)>,R2 


1 NUMBER OF SWITCHES 


cnPB 


R2.I1 


;ONE SWITCH'^ 


BNE 


COflDD 


;N0, MORE OR LESS 


MOU 


(SP)*.P2 


;GET SWITCH 


: ODD 


ll3b,Rl 


;POlNTER TO INPUT FILES 


C^^PB 


R2.»'V 


;VFC COMMAND'' 


BNE 


TRYDEF 


;NOT VFCR, TRY DEFAULT RECV 


TSTB 


MODE ' 


;flRE WE IN CONTROL MODE 


BUi 


CEPPOP 


;N0< COMMAND ERROR 


. DSTRT 


»DBLK.P1 




BCS 


CEPPCP 


;N0 SUCH DEVICE 


TST 


PESDNT 


; IS THE HANDLER RESlD£NT 


6EQ 


CEPPOP 


;N0- ERROR: FG CANNOT FETCH IT 


nov 


«LOHBLI<,PC 


#SET UP FOR LOOKUP 


MOV 


P1-21P0) 


;M0VE device BLOCK 


. LOOKUP 


»2 


;D0 A LOOKUP 


BCS 


CfPPOR 


;N0 SUCH FILE 


nov 


«PEDBLK,PO 


;SET UP FOR READ 


nov 


»COLTT- HiPQi 


:M0VE BUFFER ADDRESS 


C'.R 


lO'POi 


;PEAD AND WAIT 


«0.' 


SUOO-b'RO) 


: WORDS TO READ 


rov 


»1.2iP0) 


^BLOCf 1 


. PERD 


«: 


;READ IT IN ON CHAnr^EL 2 


BCS 


10s 


,A READ EPPOP 


. CLOSE 




, CLOSE THE FILE 


J MP 


CPOUT 1 " 




XtSk . CLOSE 




;CLOSE THE READ FILE 


CEP POP- JM^ 


COMEPP 




TPVDEF: -.V\?^ 


p: ij'o 


DEF PECW CjnriPND^ 


BNE 


CEPPOP 


.NO - ILLEGAL COMMAND ^ 


CnPB 


» 1 . MODE 


; RECEIVE ACTIVE^ 


. BEQ 


PPEND 


;yES. NO GOOD 


MOV 


RUP2 


; SOURCE 


MOV 


»5.P1 


; NUMBER OF WDS IN DE'< BLK ■ 


MOV 


SDEFflLT.fO 


;DES> 'NATION 


JSP 


PC y^^PFNB 


;MOV£ DEV BLK 


rtov 


»1703fe,DFEyT 


-MO'/E PADBO ZERO INTO DEFAULT EXTENSION 


MOV 


«l703b-DF£yT*2 


' . . 


CLP 


aF:>'BLK 


; CLEAR ANY PPE'^'lOUS RECEIVE COMMANDS 


CLPB 


ZEPFLG 


.CLEAP ■'DELETED PPE'MOUS *^ILE" FLAG 


CLRB 


PCHN 


, CLEAR FECEI'"E CHAIN MODE 


JMP 


CPOUT 


:ALL CONE 


ENDC 







■"•■"■•■PPIHiiptv^ 



6/"'*'"' 'M •»• 

F* ^n rf,' . , I uU I 

VIST rop C0nM«.<0 



*• mm 



'.aC^'O miOi* Ob-OEC-77 08 21 PPGE 36 



94 b 






9^*^ 003C'e 






'5^g 






9Hf 






9%0 






9Sl 






9S. 






963 QQ307fe 


Olo^CO 


00:b36 


95'* "03102 


00»47b" 


OOOOOOG 


98S 






96b 003106 


012^06 


00H030' 


96" 003112 


020026 




96? 00311^4 


oomou 




969 QOZllb 


006:26 




9bO 003120 


001 37U 




9bl 003122 


000167 


r"i60 


'^bZ 003126 


106^67 


17b333 


9b: QQznz 


000176 


000000 


9b^ 






9b6 






%6 






967 003136 


0022 J2* 




968 0031140 


nn::i2' 




9b9 003^: 


uci^:2' 




970 0031^u 


000 000 G 




971 003'^b 


OGOCOOG 




972 003.60 


CO 1 612* 




973 






1^ 







COnoo 



105 



20S 



. SBTTL 
iF OF 
TST 
BN£ 

now 

. ENDC 
. IF OF 

rtov 

JS(P 

ENDC 
MOV 

crp 

BEa 

TST 

BrlE 

jnp 

TSTB 
JMP 



n 16 



TEST FOP COnriPND 

PTll 

P2 

CERPOR 

FILDES*«0. 



mittm!t*'''*mmiti>>f!iirm •Mmmm.tivfm^ . 



RO 



RSX 

FILDES*C 

PC<RfiDCM 



«C0i-lPTB.P5 
PO, (R6'* 
20% 
'R6'* 
lOS 

corEPP 

^'ODE 

i'P5i 



;PRtflfiRY JUMP TPBlE 



^ptbl 



UORD 
UOPD 
WOPC 
WORD 
WORD 
UCRD 



PPQEPP 

BurouF 

USPTIM 
iNfCPL 
MSGDCN 
GETENT 



PNY SWITCHES"^ 
ON ERROR 
FILE NfiME 



CMlD*2.R0 



COMD ACTION TBL POCP IN P5 

DO THREE CHPRfiCTEPS MfiTCH'' 

YES, FOUND THE COMMPND 

NO. PNY CMMC5 LEFT TO TEST^ 

I'ES. KEEP LOOK'NG 

NO. IlLEGPL COMMPND 

TEST FOR n.iDE 

GO TO THE PROPER ROUTINE 



P5-0 PROGPPM EPPOP 

R6=2 BUFFER OVEPFLOU 

P6='4 USER Timer EXP i FED 

PE=b INPUT TYPE 

P6=S OUTPUT TYPE 

P5=1C S"rpTUS TYPE 



6 




i 


J 


5 


BISYNC 


E 


10 


DPV112 


n 


H 


psxnc 


C 




BISYNC 


K 


5 


BISYNC 


F 


10 


DP 11 


N 


m 


COMTEX 


D 




BISYNC 


L 


5 


BISYNC 


G 


10 


DPll 


B 


IS 


COMTEX 


C 




BISYNC 


n 


5 


BISYNC 


H 


10 


DPll 


C 


15 


COMTEX 


r 




BIS <C 


N 


S 


BISYNC 


1 


10 


DPll 


D 


15 


PCSPSX 


Q 




biSYNC 


6 


b 


BISYNC 


J 


10 


DUU209 


E 


15 


PCSPSX 


H 




BISYNC 


c 


b 


BISYNC 


K 


10 


DUV209 


F 


15 


PCSPSX 


1 




BISYNC 


D 


b 


BISYNC 


L 


10 


DUV209 


G 


15 


PCSPSX 


J 




BiSYNC 


E 


b 


BISYNC 


n 


10 


DUV209 


H 


15 


PCSPSX 


K 




BISYNC 


F 


b 


BISYNC 


N 


10 


DUV209 


1 


15 


PCSPSX 


I 




BISYNC 


G 


b 


BISYNC 


B 




DUV209 


J 


15 


PCSPSX 


t1 




B ' SYNC 


H 


b 


BISYNC 


c 




DUV209 


K 


15 


PCSPSX 


n 




BISYNC 


1 


b 


BISYNC 


D 




DUV209 


L 


15 


PCSC'SX 


6 


4m 


BISYNC 


J 


b 


BISYNC 


E 




DUV209 


n 


15 


PCSPSX 


V 


Z 


BiSYNC 


K 


b 


BiSYNC 


F 




DUV209 


N 


15 


PCSPSX 


n 


t 


BISYNC 


L 


b 


BISYNC 


G 




DUV209 


B 


lb 


PCSPSX 


1 


t 


B 1 SYNC 


n 


b 


BISYNC 


H 




DUU209 


C 


lb 


PCSPSX 


T 


1 


BiSYNC 


N 


b 


:. 1 SYNC 


i 




DUV209 


D 


lb 


PCSPSX 


a 


z 


B'SYNC 


6 


■^ 


BISYNC 


J 




DUV209 


E 


H. 


PCSPSX 


« 


1 


B 1 SYNC 


c 


•7 


BISYNC 


K 




DU/209 


F 


lb 


PCSPS' 


1 


i 


B 1 SYNC 


D 


"^ 


BISYNC 






DUl'209 


1- 


lb 


PCSPSX 


J 




BlSt'NC 


E 


"^ 


BiSYNC 


M 




DUV2C9 


H 


lb 


RCSPSX 


K 


1 


BIS.'NC 


F 


"* 


BISYNC 


r^ 




DUV209 


1 


lb 


PCSPSX 


I 


2 


B 1 SYNC 


G 


^ 


BIStNC 


B 


1 ■** 

i ^ 


DUV209 


J 


lb 


RCSPSX 


M 




B 1 SYNC 


M 


•^ 


CLOSE 


C 


1 ^ 


DUV209 


K 


lb 


PCSPSX 


N 


*0 


BISYNC 


1 


-* 


CLOSE 


D 


1 ^ 

i 4m 


DU\/209 


L 


lb 


PCSPSX 


B 


3 


B 1 SYNC 


J 


7 


CLOSE 


E 


1 -^ 


DUV209 


M 


lb 


PCSPSX 


C 


7 
■J 


BISYNC 


K 


■^ 
/ 


CLOSE 


F 


1 •■* 


DU\/209 








D 


J. 


BISYNC 


L 


7 

1 


CLOSE 


G 


1 -^ 


DU\/209 








E 


■J 


B 1 SYNC 


M 




CLOSE 


H 


1 "> 


DUV'209 








F 


3 


B 1 SYNC 


N 


7 


CLOSE 


1 ' 


> ^ 


DU^'209 








G 


•^ 
-> 


BISYNC 


6 


s 


CLOSE 


J 


. 2 


DUII 








H 




BISYNC 


C 


s 


DELETE 


y 


4m 


nun 








1 


7 


BISYNC 


D 


s 


DELETE 


L 1 


^ 


uJll 








J 


3 


BISYNC 


E 


c 


DELETE 


n 1 


*.• 


DUll 








K 


7 


B 1 SYNC 


r 


s 


DELETE 


r^ 1 




DUll 








L 


3 


BISYNC 


G 


s 


DELETE 


6 1 


3 


ERPHPN 








M 


3 


B 1 SYNC 


H 


s 


DPVli: 


C 1 


^ 


EPPHRN 








N 


3 


BISYNC 


1 


s 


DPW112 


D 1 


3 


ERPHfiN 








i 


H 


B 1 SYNC 


J 


w 


DPV112 


E 1 




ERPHfiN 








C 


^ 


BIS'.NC 


K 


s 


DPV112 


F 1 


7 


ERPHRN 








c 


^ 


BISYNC 


L 


s 


DPV112 


G 1 


7 

-• 


ERPHPN 








E 


4 


BISYNC 


M 


3 


DPV112 


H 1 


3 


ERRHflN 








F 


H 


BISYNC 


N 


s 


DPVn2 


1 1 


3 


ERPHPN 








G 


4 


b 1 5YNC 


B 


Q 


DPi/n2 


J 1 




ERPHPN 








H 


4 


BISYNC 


C 


9 


DF'ull2 


K 1 


3 


ENTER 








1 


H 


6 1 SYNC 


D 


q 


DPI' 112 


L 1 




ENTER 








J 


4 


BISYNC 


E 


9 


DPV112 


n 1 


7 


ENTER 








K 


4 


BISYNC 


F 


9 


DPV112 


N 1 


^ 
^ 


ENTER 








L 


4 


BISYNC 


G 


9 


DPU112 


B 1 


^ 


ENTER 








M 


4 


BISYNC 


H 


9 


DPV112 


C 1 


4 


ENTER 








N 


H 


BISYNC 


1 


9 


DPU1I2 


D 1 


4 


FREE 








B 


5 


BISYNC 


J 


9 


DPV112 


E 1 


4 


FREE 








r 


c 


F I SYNC 


K 


9 


DPl'112 


F 1 


4 


FREE 








5 


5 


8 1 S .'NC 


L 


9 


DPl'112 


G 1 


4 


FREE 








E 


6 


BISYNC 


n 


9 


DPU112 


H 1 


H 


FREE 








F 


5 


B 1 SYNC 


N 


9 


DPV112 


1 ! 


H 


FREE 








G 


5 


BISYNC 


B 


10 


OPl'l 12 


J 1 


4 


FPEE 








H 


5 


BISYNC 


C 


10 


DPV112 


K 1 


4 


FREE 








1 


5 


BISYNC 


D 


10 


DPU112 


L 1 


^ 


COMTEX 









'•ti«)ii<^fi''swMJHjymagaHU![H^«n 



^W«WW:»Wa<WaPg g5r«55=5H=a=aaia=a==H=5«H;555=5s55^ 



PCSRSXn FOOl MR 

TEST FOP COnnRND 



nllO^ Ofc-DEC-77 08:21 PRGE 2? 



B 1 



■576 
977 
973 
979 
980 
931 

9s: 

982 
98H 
986 
936 
987 
988 
989 
990 
991 
99C 
993 
99^ 
995 
99b 
99^ 
998 

QQQ 
1060 
1001 
100: 

1003 

lOO^ 

1006 
100b 

100: 

1008 
1009 
1010 
IGll 



003152 
003164 
003162 
0G317G 
003176 
003204 



003214 

oo::ib 



003232 
0G323b 



003236 
003242 
003260 
003266 
003262 
0032b4 
003270 
003272 
003276 
003300 
003304 
003310 



001067 
162767 
016767 
116767 
llo767 



10000b 



012767 
Gl27b7 
106767 
001403 
004767 
000*^72 
106767 
100002 
000167 
000167 
0l:.4Hb 



GOOZOP 
00064. 
176266 
176267 



176276 
000714 
000734 
000727 



000374 
002402 

176220 

OGOOOGG 

176213 

1 1'' f <;:.bb 

i:'"4i: 



000712 
G0C702 



ONLHRN. 



TURNPl^: 
TURNON: 



TUPNON: 
TUPNRR. 

TUPNl: 

BISIN2: 
JO I NT I: 



jOINTX: 
QCONT: 



.SBTTL 

. GLOBL 

BNE 

BIS6 

MOV 

MOVB 

novB 

PUTTC 
. IF OF 
BPL 
. FNDC 
. IF DF 
BPL 
. ENDC 
FRTRL 
. IF DF 

CLPB 
. ENDC 
. IF DF 



SWITCH nODlFERS 
ONLHRN, TURNRR,TURN1 



EBCHRN 

«200. ONLINE 

QONL.QSTRT 

FLRGS,ENBPflR+2 

C0DE,ENBPRR^3 

ENBPRR 

RTll 

TURNRR 

RSX 
TURNON 

<HRD FAIL) 
RTll 

TPPTNF 

RSX 



NOT IN CONTROL MODE 

SET TO ONLINE 

SET FOR QUERY 

SET CURRENT OPTION SELECTIONS 

SET CODE SELECTIONS 



CONTINUE ON 



CRLL PROMPT 

. ENDC 

JSR PC.CLPRLL 

MOV «XSTEQ.STEQM 

MCV ?*XEOTS.EOTSEO 

TSTB CMBFRU 

BEQ JO I NT I 

JSP PCflSPOUT 

BR °. I31N2 

TSTB TXPEN 

BPl JOINTX 

JMP BISIN 

JMP JOINT 

. RflDBO 'CON' 



CLERP XMIT/RECV CODE PTN FLRG 

PROnrT THE OPFRRTOP 

CLERP RL. FLRGS 

RNY BUFFERS RVRILRBLE 

GO RSSIGN R BUFFER TO 8 1 SYNC TRP 

xniT PENDING^ 



pcspsxn. Fooi ^•'^CRO nno^ 

TPPNIFQPENT SWITCH 



06-DEC-7:' 08: 21 PRGE 38 



lOlZ 

lom 

1G15 
lOlb 
1017 
lOlS 
1019 

io:o 

1021 
1022 
1023 
102H 
102S 

io;s 

lOi:? 

102S 

1029 



003312 
003314 
003322 
003330 

003332 
00333^ 
00334^ 
00334^ 



lo: 
lo; 



;i 



1032 
103Z 
103H 
1035 
103b 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 



00Z35G 
00335: 
003360 

0033bb 
003374 



003404 
00340b 

003412 
0U3420 

003426 
00:'.34 
0034HC 



GO 1 100 
lb2767 
142767 
000404 

uul070 
1B2767 
01456:^ 
000531 



001061 

1 12767 
012767 

0i:;'b7 
11276^ 



0034 02 0004 m 



GO 104 3 
105 }b7 

CI 2767 
012767 

012767 
n"45b7 
u._ ■ 74 



0G0G04 
000002 



000036 
000552 



000200 
000206 

001000 
000001 



17b051 

000120 
000001 

000120 
000454 



176140 
176132 



176120 



176103 
176132 

174444 

:~45in 



174420 
l7M4b4 

1760b4 



EBCHRN: 



. SBTTL 

BNE 

BISB 

BIC6 

BR 



C 1 



TRflNSPPRENT SUITCH 
GOGETE 



EXBHON: BNE 
BISB 

COCOH: MOV 
BR 



114. FLOGS 
112, FLAGS 
COCOM 

GOGETE 
«6, FLAGS 
-(R5),QC0DE 

coconi 



; CLEAR TRANSPARENCY FLAG 



;NOT IN CONTROL r.ODE 
;SET TRANSPARENCY FLAG 



,/////// 



GNEMDE: 



PinoE: 



cocon2: 



BLOCKING MODE 



BNE 
MOVB 
MOU 

. IF DF 
MOU 

novB 

. ENDC 
BR 

BNE 
CLPB 
. IF DF 
MOU 
MOV 
. ENDC 
MO I' 
MOV 
BR 



;NOT !N CONTROL MODS 



GOGETE 

«20GnCB 
;i34. PECSI2 

«512. .F. PSI2+FDBIN 

«l.F. neCT+FDBlN ; SINGLE BUFFERED READS 



COron2 

GOGETE 

MCB 

PSX 

;S0 .F. PSIZ+FDBIN ; MAX RECORD SIZE 

;i.F MBlT^-FDBI.nI .SINGLE BUFFERS FOP READING 



:NOT IN CONTROL MODE 
.:SET 2780 BLOCKING 



SSO. .PECS I Z 
- ' P5 ' • QBirM 

cocom 



; BLOCKING MODE FOR QUERY TYPFQUT 



_J 



TEPM-DlSCONNEC 



,051 
052 
063 
05U 
055 
05b 
057 
,05S 



059 

,060 
Gbl 

Ob: 

0b3 
Cb^ 
0b5 
Obfc 
Ob? 
ObS 
0b9 
070 
071 

07: 

07Z 
074 
075 

07e 

077 
,078 

,079 
OSO 
OSl 
0S2 
0S3 
OS^ 
0S5 
OSb 
0S7 
OSS 
089 
090 
091 
09. 
097 
0914 
095 
09b 
0'3" 

09S 
0<=»9 
100 
101 
102 
103 
lOH 

105 
10b 



0031*142 
C03H^b 
0031*50 
003H5'4 
002^456 
003^64 
00:Hbb 
OOZ^'H 
003H"b 



0035C: 
C0350b 
00351: 
003514 
003520 
003524 
003534 
003542 



00354b 

003552 
00355b 
003562 
0035bb 
00 3576 
003b04 
00 3b 10 
003614 



nocpo nn04 

RND OFFL INE 



Ob-DEC-77 08: 21 PAGE 42 



D 1 



iG5:'b^ 

100022 
lG57b7 
001410 
132767 
001004 
152~67 
0004 "6 
C0Clb7 



10506"' 
105^67 
100402 
GC01b7 

10506:^ 

152:^6^ 
000167 



105067 
105067 
105067 
1D5067 

016767 
004767 
004767 
004 767 



. SBTTL TERM, DISCONNECT PND OFFLINE 

. GLOBL SNDEOT, OFFHfiN, ClRflST, TERHflN 
. IF DF RTll 
. GLOBL RCHN 
. ENDC 



1^6012 

176011 

000200 176024 

000200 176014 

OOOQOOG 



;TERri HPNDLER 
TERHflN: TSTB 
BPL 
TSTB 
BEQ 
BiTB 
BNE 
BISB 
BP 

jnp 



SNOEOT: 



ONLINE 

GOGrTE 

nODE 

SNDEOT 

«200, lOEPP 

SNDEOT 

<{200, iQERP 

COCOMi 

GOFIBRT 



PRE 
YE^ 



J/ 



YES 
NO, 
EOT 
SEND 



WE IN CONTROL MODE? 

JUST SEND AN EOT 

;HflVE WE flLREPDY SET 10 ERROR 
- GO SENT EOT - MUST BE HUNG 
SIMULATE PN 10 ERROR 
WILL GET SENT INSTEAD OF PCK 

PN EOT inriEDlPTELY 



i:"5"76 
I7r-4b 

l^fc55b 
175760 

000200 17B"':4 
OOOOOOG 



; DISCONNECT COtlMPND HPNDLER 



DSCHflN; 



GOGETE: 
DSCOUT: 



CLRB TPRTNF 

TSTB ONLINE 

BMI DSCOUT 

jnp COnERR 

CLRB TPRTNF 

PUTD DLEPRR 

BISB »200,E0TFLG 

jnP TERl 



PRINT PROMPT UHEN DONE 



PRINT PROMPT 
XMIT DLE EOT 
SET ^OT FLPG 
GO X-MIT DLE EOT 



000230 
175702 
175727 
175722 

000226 000300 
000026 
OOOOOOG 
OOOOOOG 



; OFFLINE COnnPND HANDLER 

;(RLSO COMPLETES DISCONNECT COMMPND HRNDL'NG) 



OFFHPN: 



'FHRNl: 



003620 012777 1777; 



003030 



■^ ' r" j-^ 



003626 005077 00265 



003632 000167 17S760 



COCOMI 



COCOMI 



CLRB 


RCHN 




CLRB 


ONLINE 


ONL 1 NE 


.LRB 


TXFEN 


CLEPR X-MIT PENDING 


CLRB 


lOERP 


CLEAR lOERPOP FLRG 


PUTTC 


TERPPR 




nov 


COnflTB,QSTRT 


SET STATUS TO OFF 


JSR 


PCCLRPLL 


CLEAR ALL FLAGS 


JSR 


PC. CLOSET 


CLOSE TRANSMIT FILES 


JSR 


PC, CLOSER 


AND CLOSE RECEIVE FILES 


IF DF 


RSX 




MOV 


{?-l,ilRCl'BLK 


NO MOPE FILE iNPUT 


.ENDC 






. IF DF 


RTll 




CLR 


aRC'./BLK 


NO MORE FILE INPUT 


. cNDC 






CLP 


iiTRNSBLK 


OR OUTPUT 


. IF DF 


RTli 




JMP 


CROUT 


GO PUT OFFLINE 


. ENDC 






. IF DF 


RSX 




JMP 


CPOUTX 




. ENDC 







TEPn,oiSCO;n^ECT 



no? 
uos 
no? 

1110 

nil 
n.i: 
ni3 
nm 
ni5 
iiife 
nr 

IMS 



00363^ 
003oh2 
003646 
003662 
003666 
003b62 
003666 
003672 
003700 
003^06 



MRCPO mi 04 
RND OFFLINE 



06-DEC-77 08: 






PAGE 42-1 



E I 



105C., 
00&067 
006067 
105067 
106067 
106067 
105067 
142767 
016767 
000207 



175623 
175646 
175644 
175625 
175610 
175606 
175604 
000200 
177404 



; FLPG CLERRING ROUTINE FOR ttOOC TRflNSITlONS 



175562 
000202 



Cir^^LL: 


CLPB 


nooE 


CLRMST. 


CLP 


INPCNT 




CLR 


NQKCNT 




CLRB 


CnBFPN 




CLPB 


ENDPEN 




CLRB 


EOTPEN 




CLPB 


EOTFLG 




6ICB 


«200.FLRGS 




MOV 


QCONT^QMODE 




PT2 


PC 



; RETURN TO CONTROL nODE 



CLEAR END PENDING FLAG 
CLEPR EOT PENDING 
CLEPR EOT FLPG 
SET TO SLPVE MODE 
SET UP QUERY TYPEOUT 



p. 


'9.im FOOl 


MRCPO nil04 Ofc- 


-DEC-77 


Tl 


^M.DiSCONNELT 


RND OFFLINE 






1120 










1121 










1122 


















1123 










112'4 










1125 










ii:b 










1127 003710 


012700 


000006 






112S 0037W 


012703 


ooHom' 






112? 003720 


005023 








1120 003722 


005300 








1131 003:^24 


001375 








1132 003726 


012767 


000206 


000072 




1133 003734 


012767 


OOOOOOG 


000060 




113H 0037u: 


012767 


OOOOOOG 


onoo5H 




1135 003750 


000207 








11 3b 









08: 21 PRGE 43 



F I 



IF OF 
SBTTL 



NPUTS; 



NONE 



RSX 
CLERR 



CLRRSW: 

lOS; 



OUT THE TCriPORflRY COfinON RECEIVE SWITCH AREA 



. GLOBL 


CLRRSU 




MOV 


«RCVSW1/2,R0 


/ 


MOV 


«SWRB1.R3 


/ 


CLR 


(R3)^ 


/ 


DEC 


RO 


f 


BNE 


lOS 


/ 


nou 


«134. ,RVflLl 


/ 


MOV 


«P. VQR.RTYPl 


/ 


MOV 


tJFD. CR.RRTTl 


/ 


RTS 


PC 


/ 


. ENDC 







« OF UORDS IN RECEM'E SWITCH RRFR 

FIRST SWITCH TO ZERO 

CLEAR fl WORD 

DECREMENT THE WORD COUNT 

MORE TO GO 

SET DEFPULT RECORD 

SET DEFAULT RECORD 

SET DEFPULT RECORD 

PLL DONE 



SIZE 
TYPE 
PTTR 



(VPRIPBLE) 
BUTES 



^'ILf^l'M 


FOOl 


MRCRO r 


toble ^c 


ip UPiTE 




1138 






1139 






11 HO 






imi 






11142 






11H3 






I IHH 


003752 


000176' 


ims 


00375H 


OCOOOO 


llUb 


003756 


000000 


im? 


003760 


000336' 


ims 


003762 


000000 


1 lUQ 


G0376H 


000000 


1150 


003766 


OOGOOO 


1151 


0037:^0 


000000 


115: 






1153 






11 5h 






1155 






11 5b 






115:^ 






115S 






115? 






1 IbQ 






11 bl 






lib: 






llb3 






llbH 






1165 






1 Ibb 






1167 






llbS 






r.b9 






1170 






1171 






117: 






1173 






117H 






1175 






1176 






1177 






1!7S 






1179 






USD 






llSl 






lis: 






lis: 






11S14 






11S5 






IlSb 







nilOH 06-DEC-77 08: 21 PRGE H^ 



G 1 



. SBTTL TABLE FOR WRITE 

TWO FILES n«Y BE OPEN FOR WRITE 

AT THE SAME TIME (SELECTIVE RECEIVE) 



CHRNL 

COLPl 

RECSl 

CHflNL2 

C0LP2 

RECS2 

COLflD 

CHRRL 



IF OF 

WORD 

WORD 

WORD 

WORD 

WORD 

WORD 

WORD 

WORD 

ENDC 



IF DF 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 



ICHflNL= 

IPBUFF= 

ICBUFF= 

COLPNT= 

IWREND= 

mRCP=l 

lOUBLK: 

CHflNL 

PBUFF 

CBUFF 

COLPl 

WREND 



OUBLK: 
CHflNL2 
PBUFF 1 
CBUFFl 

C0LP2: 

WPENDl 



OUBLKl 
COLRD 
CHflPL 
CHHPF 




2 

H 
b 
10 



WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
ENDC 



RSX 
FDBOUO 



FDBOUl 







FOB BLOCK ADDRESS 

FHR VERTICAL FORMS CONTROL 

FOR FIXED LENGTH RECORDS 

SECOND FDB ADDRESS 

FOR VERTICAL FORMS CONTROL 

FOR FIXED LENGHTH RECORDS 



RTll 
ICHANL, IPBUFF, ICBUFF, COLPNT, I WREND 
iWRCP, IOUBLK,CHANL/ PBUFF, C3UFF, COLPl 
WFEND< OUBLK , CHRNL2, PBUFF 1 , CBUFF 1 , C0LP2 
WPTCF 
WPENDl. OUBLKl . COLAD, CHAPL, CHARF 



PENDING 
CURRENT 



BUFFER 
BUFFER 



i: 

BUFB 
BUFA 

BUFA+IOOH 

URTCF 

n 

13 









WPTCF 











P 'IIP I'M 


FQOl 


MRCPO 


TRBlE F( 


,'R UPlT£ 




1138 






118? 






1190 






1191 


003772 


000000 


1192 


00377^4 


000000 


1193 




000004 


1194 


003776 


000000 


119B 


OOHOOO 


ocoooo 


1196 


004002 


000000 


1197 


004004 


000000 


U9S 


004006 


000000 


1199 


L04C10 


OOOOGO 


12CG 




000014 


i:oi 


004012 


OOOCOG 


i:o: 






1203 






i:oM 






i:o5 






i:ob 






1207 


0C4014 


000000 


120S 


00401b 


GOOOOO 


1209 


004020 


000000 


1210 


004022 


000000 


1211 


004024 


000000 


1212 


004026 


000000 


1213 




000014 


121H 






1216 






i2ie 






1217 






121S 






1219 






1220 
1 ^ "" 1 






1 ^>. 1 

4 •-> -■^ •O 

1 Li.^ 






1223 






122H 






122S 






1226 






1227 






1228 






1229 






123 J 






t231 







nil04 06-DEC-77 08: 21 PRGE H5 



H t 



IF OF RSX 

SBTTL SWITCH TRBLE fiND ROUTINES 



SWTBN 


. WORD 





SUREM 


. WORD 







XMTSWT= 


-. -SWTBN 


SWRBN 


. WORD 





SURSL 


WORD 





RCHN: 


. WCRD 





PTYP: 


. WORD 





RflTT: 


. WOPD 





RVflL: 


. WORD 







PCUSWT= 


= . -SUPBN 


SWRDF 


WOPD 






TEnPORPPY SWITCHES TO 
SWITCHES ON THE OTHEP 



QVOiD PI 
RECEIVE 



TRONSMIT BINPRY SWITCH 

END SWITCH 

NUnBER OF BYTES OF TRflNSMIT COMflflND SWITCHES 

RECEIVE BINARY SWITCH 

SELECTIVE RECEIVE SWITCH 

RECEIVE CHAIN MODE SWITCH 

RECORD TYPE FOR FDB 

RECORD ATTRIBUTES FOR FDB 

RECORD SIZE FOR FDB 

NUMBER OF BYTES OF RECEIVE COMMAND SWITCHES 

CHANGE DEFAULT RECEIVE FILE 

(DON'T INCLUDE AS ONE OF THE "RCVSWT" 

SWITCHES SINCE THE FILE DOES NOT 

GET STORED INTO RCVBLK) 

DF WIPING OUT THE 

ILE 



SWPBl 


. WOPD 





SWPSl 


. WORD 





RCHNl 


WOPD 





PTYPl 


. WOPD 





i^ATTl 


. WORD 





P'mRlI 


. WOPD 





RCiisn 


1 = = . -SWPBl 
, ENDC 






. IF DF 


PTll 




. GLOBL 


SWPSL- 




.IF DF 


LSI 11 




GLOBL 


SWPSL 1 




. ENDC 




PCHN: 


. WOPD 





SWRBN 


. BYTE 





SWPSL 


. BYTE 





SWPEN 


. BYTE 







. IF DF 


LSI 11 


SUPSL 


1: . BYTE 
. ENDC 

. EVEN 

. ENDC 






SWPEN. S^-iPBN. PCHN 



;PECE!'/E CHAIN flODE FLAG 
;BiNflPY MnDE FLAG 
; SELECT 'VE RECEIVE FLPG 
;END nODE FLAG 

;SEL PEC 3P"E FLRG 



PCSP:<n FOCI 
'IiilTC't TPBLE 



^-b 



MOCPO 
fir^D POUT 



NES 



Ofc-DEC-77 08; 21 PRGE ^8 



I 1 









::9 






:^c 


004030 


057266 


241 


004032 


003546* 




004034 


C57774 


:h: 


004036 


003152' 


:h4 


004040 


021402 


:h5 


004042 


003332' 


:ub 


001^044 


017623 




004nH6 


003312" 


249 






2SC 


OG405G 


076732 


:bi 


004052 


003442' 


2^2 


004054 


015173 


2b: 


G04056 


003502' 


2514 






2SS 


004060 


026226 


2Sb 


004062 


003350' 


2B^ 


00^064 


0,-1025 


2^S 


004u6b 


003404' 


259 






2bO 






2b 1 






262 


004070 


066615 


263 


004072 


OOOOOOG 


264 


004074 


021042 


2b5 


004076 


OOOOOOG 


2bb 






:b7 






2bS 






^69 






270 


004 1 00 


lOi.iOOO 


271 


004102 


000000 



;SWITCH nODIFlER COflMRND RCTION TflBLE 
. GLOBL XFEREN 



COnRTB; 


. RRD50 


'OFF' 






. WORD 


OFFHRN 




QONL: 


. RfiD50 


'ONL' 






. WORD 


ONLHflN 






. RRDBO 


'EXB' 






. WORD 


EXBHRN 






. PRD50 


'EBC 


;EXBCID CODE 




. WORD 


EBCHflN 





.CONTROL COnnRND RCTION TfiBLE 
. PRD50 'TER' 
. WORD TEPHPN 
. PPD50 "DIS" 
. WORD DSCHflN 

:PECOPD BLOCKING SETTING 
. PfiD50 'GEN' 
. WORD GNEMDE 
. PPD50 'RJE' 
. WORD RTMDE 



;rilSCELLRNEOUS COriMflND ACTION TABLE 



; DISCONNECT 





PRD50 


'QUE' 


; QUERY 




WORD 


QUE HON 






PflD50 


'ERP' 






WORD 


ERR HON 






IF OF 


RTll 






PflD50 


'EXT' 


;EXIT C'/iflflNO 




WORD 


DONE 






ENDC 






XFEREN: . 


^IORD 


100000 


;END OF TABLE MRPKER 




WORD 





; THIS TOO 



PCSPSXM, 


FOOl 


nfiCPO mi OH 


QUEPV STRTUS 'iTOPRGE RPER 


t i->-t 






I ^- J 






\r^ 






1:^5 






lZ7b 






1277 






• -i-nr. 






li, '0 






1:79 






1280 






i:si 






1282 


oomOH 


os:'26e 


12S3 


00m 06 


000000 


12S4 


oomio 


012446 


12SB 


00^112 


OCJOOO 


12Sb 


0014 114 


071025 


1287 


oomib 


000000 


128S 


00U120 


017023 


1289 


00*4 122 


000000 


1290 


004 1 24 




1291 




000030 


1292 




000020 



06-DEC-77 08: 21 PfiGE ^^ 



J I 



SBTTL QUERY STATUS STORAGE PRER 



; QUERY riESSflGE STORRGE (OEFfiULTS RRE PILREflDY IN MESSAGE) 

, THE VARIOUS COflMANDS CHANGE THE flESSAGE IN APPROPRIATE PLACES 



QSTAT: 
QnODE: 
QBLKM: 
QCOOE: 
QEND. 



GLOBL QSTAT, QMODE, QBLKM, Q£ND, QLENTH, QLNGTH 
OFF 



PAD50 
PADSO 
PAD50 
RAD50 
RAD50 
RAD50 
PAD50 
PAD50 



CON 

PJE 
EBC 



QLNGTH=<'QEND-|.3TRT /ZiZ 
QLENTH=QEND-QST«T 



pi'SRSxn FGOi MfiCPO nll0^ 

OUEPY STQTUS STOPflGE flPFR 



Ob-DEC-77 08: 21 PAGE 50 



K 1 



V2'5i4 












129& 








. SBTTL 


PRRflflETERS 


129b 












1297 
1 2'^^ 








. GLOBL 


iTBM^ENBPflfi 


1299 


004124 


o:':'405 


ENQM: 


. UOPD 


XCEP 


1300 












1301 


004126 


037 


ITBM: 


. BYTE 


XITB 


1302 
1303 


004127 


000 




. BYTE 





004130 


000 


ENBPflR: 


. BYTE 


BflSELN 


rCE) 


004131 


002 




. BYTE 


7 

it 


I 30b 


004132 


000000 




. WORD 





1307 


004134 


000000 




. WORD 





130S 












1 30^ 












1310 


004 136 


000 


DLETPIF: 


. BYTE 


BRSELN 


1311 


004 137 


100 




. BYTE 


100 


17 1^ 
1 . t •- 


004140 


004 164 ' 




. WORD 


DLEEOT 


1313 


004142 


000002 




. WORD 




13m 












131S 


004144 


000 


ENQPRR; 


. BYTE 


BWSELN 


131b 


004145 


100 




. BYTE 


100 


131- 


GGUmb 


004 1 24 • 




. WORD 


EN-'jH 


131S 
1319 
1320 
1321 

1 y ^ ^ 


004 150 


000001 




. WORD 


1 


004152 


GOO 


BiSPPP 


. BYTE 


BOSELN 


1323 


004153 


003 


PESF: 


. BYTE 


03 


1324 


004154 


OOGGGG 




. UOPD 





\^.2^' 
132b 


004156 


00020b 




. WORD 


LPSIZE 


1327 
132S 


004 ibO 


077404 


EOTSEQ: 


WORD 


XEOTS 


1329 
1330 

1331 


004 lb2 


G02402 


STEQM; 


. WORD 


XSTEQ 


004 lb4 


GG202G 


OLEEOT: 


. WORD 


XDEOT 


• -* -^ -1 

1 jj.*. 


004166 


177 




. BYTE 


XPflD 


1333 


0041b" 


GOO 




. BYTE 





1334 
1335 


004170 


000003 




. WORD 


3 ^ 


1 33b 
1337 


Gl'4172 


000 


noriPflR: 


. BYTE 


BfiSELH 


:33S 


0041^3 


201 




. BYTE 


201 


1339 


004 174 


100000 




. WORD 


100000 


1340 


004 176 


000000 




. WORD 





134 1 












1342 












1343 


004200 


000 


CMPflP: 


. BYTE 


BfiSELN 


1344 


0042ri 


000 




. BYTE 





134G 


00420.: 


000000 




. WORD 





134b 


00"2L. 


OOOOOG 




. WORD 





1347 












134S 












I 2^9 


004206 


000 


TERPPP: 


. B rTE 


BfiSELN 


1 350 


004207 


002 




. BYTE 


O 



t'SPS.^r^ FOGi 


MfiCRO 


pupanntPi 




135! 00H210 


lUOOOO 


i3s: ooh:i: 


000000 


tzsz 




IZBU 




13SB 




1356 




1367 




13S8 




1369 




UbO 





L I 

MfiCRO nnOH 06-DEC-77 08: 21 PAGE 50-1 



WORD moooo 

WORD 



. IF DP RTll 

; EXTPfl QUEUE ELEMENT STOPQGE 
. GLOBL QLSTRT 

OLSTPT; P"'W 70. ;10. . 7-WOPD QUEUE ELEMENTS 

. END-: 



pCiRsxn Fuol MRCPO nnoH ne-DEC-?? os 21 

COnnijNir.PITlON BUFFER STORAGE 



bZ 



PAGE 51 



n I 



. >..'•+ 




IZbS 




I 3bb 




3b7 oouzm 




1368 




3b? 


004422' 


iZT-O 


004630' 


1371 


005036' 




005244' 


""77 


005452' 


i 3"H 


005660' 


-^ 


006066' 


izy-b 

■^ -^ -^ 




1378 




z:-? 


006066' 


[3S0 OObObfe 




ZSl OObC'H 




i3s: 

"'C 7 




3SH 




3S5 00b27b 




3Sb 




38^ OObSO^ 


006506 ' 


38S OObBOb 


000000 


3S9 




390 




391 




39: 




393 




7914 




395 




39b 




397 




39S 




399 




hOO 




"401 


000002 


^OZ 




403 




UC^ 




MOB OObbBH 


000000 


4 06 




MO^ OObbSb 


006660 ' 


4 OS 




409 OObbbO 


1 7"»7-77 


4 i 




411 




412 




413 




414 




415 




41b 




417 




418 





SBTTL COnnUNICPTION BUFFER STORAGE 



cneuFi: 

CnBUF2= 
CMBUFJ: 
CMBUF4: 
CMBUF5: 

cneuFfe: 

CnBUF7: 
CMBUFE: 



HFCPEC: 



GLOBL CMBUFl, CMBUFE, 
GLOBL RCUBLK.FILDES, 



CMBUFl+LPSIZE 
CriBUF2^LPSlZE 
CnBUF3+LPSI2E 
CnBUF4+LPSl2E 
CnBUF5+LPSlZE 
CnBUF6+LPSI2E 
7«LPSIZE+CnBUf 1 



. =CnBU^E 
BLKB LPS 

. L\JZ 377 



HfCRECTRNSBLK 
KBIBUF 

; START Or COMM BUFFERS 



EXPPEC; 
TRNSBLK 



fPNSE- : 
RCVBLK: 



.IF OF 
. BLKB 
. ENDC 
. UORO 
. WORD 

. IF DF 
. BLKW 
. BLKU 
. BLKW 
. BLKW 
.BLKW 
. BLKW 
. WORD 
. ENDC 
.IF DF 
. BLKB 
. REPT 
. BLKB 
. BLKB 

. ^Non 

. hORD 
ENDC 
WORD 
. IF DF 
. WORD 

. ENDC 

. IF DF 
. WORD 
. BLKW 
. BLKW 
. BLKW 
. WORD 



PSX 
LPSIZE 

TRNSBLK +2 


RTll 

4 

5 

5 

5 

5 

5 



RS>; 

S. FNB+XnTSWT-2 
NTPNSF 

S. FNB 
XMTSWT 



RCVBLK+: 

RSX 

-1 



PTll 



5 

6 

6 

C 



; SPACE FOR 7 CR BUFFERS OF 
;S0 BYTES OR 7 LP BUFFERS OF 
; "LPSIZE" BYTES 

;END OF conn BUFFER REGION 

;HFC RECORD 

; MARKS END OF HORIZONTAL FORMAT RECORD 



.: POINTER TO BLOCK WhEPE XM I T CMMDS mRE PARSED 

;LAST parsed XM I T FILE IS MARKED BY 

; A ZERO IN THE FiPST WORD FOLLOWING IT 



;END OF FILE BLOCK 



;LPST LOC OF XMIT FaE STORAGE REGION 

; POINTER T'. NE.-T RECEIVE COMMAND 

;LAST PARSE PECV FILE IS MARKED BY 

; A MINUS ONE IN THE FIPST WORD FOLLOWING IT 

;A ZERO MAPr: THE LAST FILE ENTRY FOP PTll 



N I 

PCSRSXM. fOOl MOCRO nn04 06-DEC-77 08: 21 PRGE51-1 

connijNicfiTioN buffer stoppge 

^^13 . ENDC 

420 . IF DF RSX 

4-1 . BLKB S. FNB+RCl/SWT-2 

H22 COOOGO . REPT NRCVSF 

423 . BLKB S FNB 

42H . BLKB RCUSUT 

h:6 . ENDM 

H2b 006732 177777 PCUSE; ; WORD -1 ; LPST LOC OF PECV FILE STOPPGE REGION 

427 . ENDC 

428 ; CONTROL BLOCK FOR COriMOND STRING INTEPPPETEP 'CSl) 

429 . IF DF RTll 

430 FILDES: 
4-1 KBiBUF. , BLK9 80. 
H32 

433 , GLOBL PTENO 
H34 

435 PTEND: WORD ;EOF FLAG FOR RERD 

UZb 

43S . SBTTL READ PPROMETEF BLOCK 

43? 

uun 

441 ; PPPP^^E;■EP BLOCK FOP . PEPD E'1T 

^^2 . Gt nPi "^lOBLK 



472 



44^. FEDBLK: . BYTE ; CHPNNEL 

44E . BYTE 10 .FUNCTION iPEPD) 

4^b .WORD ^BLOCK « FOP PEPD 



BYTE 





BYTE 


10 


WORD 





WORD 





WORD 


400 


WORD 






447 .WORD ,BU«^FER FOR TPPNSFEP 

'*4S . WORD 400 ; WORD COUNT 

^^^9 , . WORD ;TYPE OF PEPD 

4i^0 ;0 - PEPD 

451 : 1 - PEOOU 

^S: ;uTHEP IS COnPLETlON POUMN* 

uC7 ^ 

^ -I -• /tf>'ftr/tf/titttitti>'tt>it/)if!/irtfi 

UE.4 

h65 . GLOBL BLKSflV^UPDSPV 

457 

4r^ BLKSPV: .WORD ; STOPPGE FOP CUPPEHT BLOCK FOR XM I T (PVlJ 

4b^ WPDSPV: .WORD ; STOPPGE FOP CUPPENT WORD TO XMI T 

4bC 

^bl .GLOBL SPVEST,S0l'BLK.L0K6LK.0BLKPE£DNT 

4b2 ^ 

'-=b3 SPUES f: . WORD 

4b4 ' ; i ' 

4bb ;LOOKUP PPPPHETER BLOCK FOP EUT CRLL .LOOKUP 

4b7 LOKBLK: .BYTE ; CHPNNEL 

4bS . BYTE 1 ; FUNCTION CODE 

-»b? . WORD C ;DE\<BLK 

4:'C . WORD -COUNT 



'/////»•// , ///.»/'/•/''/».'-».'///.•////////// 



4^3 ; 

4^5 ;'sPbEST PPPhMETEP BLOCK FOP EHT CPLL . ShuESTPTUS 



/////.'/// 



^.^lSi?l!ffy^la5^:^^5gS35^^L^5a5:S^SgsSggigsg588=sg=gsggSg'■gg8g= tK=^ 



B 2 

PCSRSXM. FOOl MACRO nnOH 06-DEC-77 08; 21 PRGE51-2 

COniilJNICRTION BUFFER STORRGE 

m76 

^^^^ SRVBLK; . BYTE 11 ; CHANNEL 

l^^S . BYTE 5 .-FUNCTION CODE 

l'^^^ . UORD ;POINTER TO SflUEST BLOCK 

lucn 

' -^ ''''''''/■'''/''//'////////////////////////////// 

IHSl ; 

14S2 ; 

1 UC7 

1^8^ ;DSTflTUS PflRflflETER BLOCK FOR EflT Cfii: . DSTPIT 

mSB ; 

1426 DBLK; . UORD 0,0 

I'+S? PESDNT: .WORD G, U ;HflN[LEP ENTRY POINT 

IHSS ; 

ms'5 

1490 ENDC 

14?1 IF DF P^y 

m9: 00b734 FILDES-.BLKB C '' i Zt 

1493 EVEN 

m9^ 007010 KBIBUF: BLKB SO 

149': , ENDC 

m9H 



pcspsxn Fool MfiCRO nno^ oe-DEC-?? 08: 21 poge 52 
connuNiCRTiON buffer storrge 



C 2 



m98 










. IF DF RSX 


1499 0002U7 










. PSECT riESfiG2 


ISOO 000247 


122 


112 


105 


PRflTfi; 


.ASCII "RJE>«I" 


000252 


076 


052 


052 






1501 


000255' 








PREND=. 


1502 


000005 








PRriTL = PREND-PRriT9-l 


1503 










. EVEN 


1504 007130 










.PSECT MRIN 


15G5 










. ENPC 



150b 001206' . END LININT 































— , 1 


PCSRSxn 


FGoi nflCRO nnoH ob 


-DEC-77 08: 


21 PAGE 52-1 


D 


2 












— 1 


SYMBOL 


TRBLE 




























RCK 


OOOOHO G 




conoD 


!:-|307oR 


003 


DMYNC = 


000000 




F. FflCC = 


000043 




JOiNT 


002722R 


003 


RCKPEN 


00m70RG 


003 


COMERP 


0G227bRG 


003 


DSSYNfls 


000000 




F. FFBY= 


000014 




JOINTI 


003272R 


003 


fiSPOUT= 


tttttt G 




CR 


000G15 




EBCHPN 


0033t2R 


003 


F. FNRMs 


000110 




JOINTX 


003304R 


003 


RSSGNX 


001505RG 


003 


CRBRSX 


G0162HRG 


003 


ELRTCH 


00m71RG 


003 


F. FNB = 


000102 




K6IBUF 


007010RG 


003 


fl<tSCHK = 


000000 




CRBFRV 


OOI&GIRG 


003 


EMTERR 


001320R 


003 


F. FTYP = 


00011b 




K4$CNT= 


172542 




«SSCPS= 


000000 




CROUT 


0Glb22RG 


003 


EMTGD 


001246R 


003 


F. FVES = 


000120 




K5$CSR= 


172540 




R%%NSI= 


OnoOOO 




CRC'JTX 


GQlblbRG 


003 


EMTGET 


001256RG 


003 


F. HIBKs 


000004 




KMLDC = 


000024 




RS%PPI= 


000000 




CSIERR 


0G2HGbRG 


003 


EMTINT 


001272RG 


003 


F. LJN = 


000042 




K$ITPS= 


000764 




R%%TRP= 


000000 




CS. DIF = 


G0GGG2 




EMTPUT 


001234RG 


003 


F. ri3CT= 


000064 




L09DB = 


OOOOQO 




BRDCS 


G02^00R 


003 


CS. DVF = 


GGGGG^ 




EMTTin 


001306RG 


003 


F. nBCl = 


000055 




LD5DK = 


000000 




BRSELN= 


000000 G 




CS. EQU= 


GGGGHO 




ENBPRR 


0041 30RG 


003 


F. MBFG= 


OOGOsb 




LC$DS = 


000000 




BDFfllL 


002fclbP 


003 


CS. INP = 


OGOGGl 




ENDPEN 


001472RG 


003 


F. NRBQ: 


000024 




LD5DT = 


000000 




BiNEOT- 


177^6? G 




CS. nOR = 


000020 




ENQM 


004124R 


003 


F. NREC = 


000030 




LD$LP = 


000000 




BINESC= 


0000^7 G 




CS. NMF = 


000001 




ENQPRR 


004144R 


003 


F. OVBS= 


000030 




LDIMM = 


000000 




B !N!TB= 


000037 G 




CS. OUT = 


000002 




ENTRY 


0017b4RG 


003 


F. RRCC = 


0000 lb 




LD5PP = 


000000 




PINTTD^ 


02fc^02 G 




CS. WLD= 


000010 




EOTFLG 


00l47bRG 


003 


F. RRTT= 


000001 




LD5PR = 


000000 




B 1 N^ : 


00036^ G 




CTEMT = 


tttttt GX 




EOTPEN 


001474RG 


003 


F. RCNri= 


000034 




LF 


000012 




B 1 S t N 


002B72R 


003 


CTIO 


002330P 


003 


EOTSEQ 


004lb0RG 


003 


F. RCTL = 


000017 




LI MINT 


00120bRG 


003 


B1SIN2 


00325fcP 


003 


C55CKP= 


000000 




ERRHflN= 


****** G 




F. RSIZ= 


000002 




LPSIZE= 


00020b G 




BISPRR 


00m52RG 


003 


C5S0RE= 


OOHOOO 




e:c = 


000033 G 




F. RTYPr 


000000 




LUKUP = 


****** G 




BPTINS 


0013b2R 


003 


CSSRSH= 


1775bi4 




ETXFLG 


001475RG 


003 


F SEQN= 


000100 




LS5RSG= 


000000 




BUFOVF 


002212R 


003 


C. BODE = 


tttttt GX 




EXBHPN 


003332R 


003 


F. SPDV= 


000072 




LS5DRV= 


000000 




CHRNL 


G03752RG 


003 


C. CriLD= 


000002 




EXPREC 


00b27bR 


003 


F. SPUN= 


000074 




L55P11= 


000001 




CHRNL2 


0037bORG 


003 


C. DEVD= 


00000b 




ES5nvc= 


000000 




F. STBK= 


00003b 




L5511R= 


000000 




CHRRL 


003770RG 


003 


C. DIRD= 


000012 




E55NSI= 


000000 




F. UNIT= 


00013b 




ncB 


001463RG 


003 


CLOSER= 


ttttn G 




C. DSDS= 


00000b 




E5SPER= 


000000 




F. URBD= 


000020 




MDMPRR 


004172R 


003 


CLOSET= 


tttttt G 




C. F!LD= 


00001b 




E55XPR= 


000000 




F. VBN = 


0000b4 




MDTRY 


002474R 


003 


CLRRLL 


0G3b3bR 


003 


C. MKW1 = 


000024 




FDBIN 


00003bRG 


003 


F. VBSZ= 


OOOObO 




MEMPRO 


00134bR 


003 


CLRMST 


GG3bH2RG 


003 


C. nKW2= 


00002b 




FDBOUO 


00017bRG 


0C3 


GETENT 


001b22RG 


003 


MODE 


00mb5RG 


003 


CLRRSW 


003710RG 


003 


C. SGETr 


****** GX 




FDBOUl 


00033bRG 


003 


GETEXP 


001774R 


003 


MSGD0N= 


****** G 




CMBFfiV 


OG1502RG 


003 


C. SIZE = 


000054 




FD. CR = 


****** GX 




GETOl 


001b54R 


003 


MS5CRB= 


000124 




CMBFPN 


GG1503RG 


003 


C. SPS = 


****** G 




FD. PLC = 


****** GX 




GNEMDE 


003350R 


003 


n5SCRX= 


000000 




CMBLST 


GG152bRG 


003 


C. SPUT= 


****** GX 




FILDES 


00b734RG 


003 


GORBRT= 


****** G 




MS5EXT= 


000000 




CMBriRX= 


GGOOlb G 




C. SREG= 


****** GX 




FLRGS 


0014b2RG 


003 


GOGETE 


G03514R 


003 


MS5FCS= 


000000 




CriBUFE = 


OGbObbRG 


003 


C. SRES= 


****** GX 




FSTFIL= 


****** G 




GOTG 


0027b4R 


003 


M5SriGE= 


000000 




CMBUFl 


GG42mRG 


003 


C. STRB = 


****** GX 




FSTGET= 


****** G 




GOTGET 


OOlblbRG 


003 


MSSMUP= 


000000 




CnBUF2= 


GGHH22R 


003 


C. STRTr 


000001 




F55LVL= 


000001 




GS5TPP- 


000000 




M5S0VR= 


OOOOGO 




CriBUF3= 


GG4b30R 


003 


C. STIN= 


****** GX 




F. RCTL= 


00007b 




G55TTK= 


000000 




NRK = 


000100 G 




c^BUF^= 


0GB03bP 


003 


C. SWRD= 


000022 




F. RLOC= 


000040 




HFCRCT 


OOmbbRG 


0G3 


NRKCNT 


G0151bRG 


GG3 


CriBUFS= 


0052M^R 


003 


C. TYPR = 


000000 




F. BBFS= 


0000b2 




HFCREC 


OObObbRG 


0G3 


NRCVSFr 


000000 




CnBUFb= 


0G6HB2R 


GG3 


OEVRT 


OOmBbRG 


003 


F. BOB = 


000070 




IE. EOF = 


****** GX 




NTRNSF= 


000002 




CMBUF?= 


GGSbbOR 


GG3 


DFBLK 


OOOOOORG 


003 


F. BGBC = 


000057 




ILLINS 


00142bR 


003 


N5SLDV= 


000001 




CMC LSI 


0G15b2RG 


003 


DFNLP 


000H7bRG 


003 


F. BKDN= 


00002b 




INCRCV 


001477RG 


003 


NS%nov= 


000021 




CMFLST 


OOlbOORG 


003 


DIE 


00220bRG 


003 


F. BKDS= 


000020 




INITRL= 


****** G 




N. DID = 


000024 




CMPRR 


0GH20GRG 


003 


DLEEOT 


00mb4R 


003 


F. BKEF = 


000050 




INITF 


0014b7RG 


003 


N. DVNn= 


000032 




CMPLST 


G01B^^RG 


003 


DLEPRR 


0041 3bR 


003 


F. BKP1 = 


000051 




INPCNT 


001514RG 


003 


N. FiD = 


000000 




cocon 


0G33H2R 


003 


DONE = 


****** G 




r . BKST= 


000024 




INPCPL= 


****** G 




N FNRI1= 


00000b 




coconi 


GG3b32R 


0G3 


DSCHRN 


003502R 


003 


F. BKVB= 


0000b4 




lOERR 


001510RG 


003 


N. FTYP = 


000014 




cocon2 


0G3H3HR 


003 


DSCOUT 


003520R 


003 


F. CHR = 


000075 




lOST 


000b74R 


003 


N. FVER = 


00001b 




CODE 


OOmblRG 


0G3 


DSU 


OOOOOOR 




F CNTG= 


000034 




lOTINS 


00137bR 


003 


N. NEXT= 


000022 




COLRD 


0037bbRG 


003 


D5SBUG= 


177514 




F. DFNB= 


00004b 




10. KIL = 


****** GX 




N. STflT= 


000020 




COLPl 


0G375HRG 


003 


DS^HIU 


000002 




F. DSPT= 


000044 




10. RLB = 


****** GX 




N. UNIT= 


000034 




C0LP2 


GC37b2RG 


003 


D55IRG= 


000000 




F. DVNri= 


000134 




10. WLB = 


****** GX 




ODDRDD 


001332R 


003 


COLTT = 


ttt^ttt G 




DSSlSKr 


000000 




F. EFBK= 


000010 




ITBM 


00412bRG 


003 


OFFHRN 


0035'4bRG 


G03 


COMRTB 


GG^030R 


003 


DS5L11= 


000001 




F. EFN = 


000050 




IS5RRR= 


000000 




OFHRNl 


00357bR 


003 


COMfiU = 


000007 G 




D%5mi = 


000001 




F. EOBB = 


000032 




IS%RON- 


iDOOOOO 




ONLHRN 


003152RG 


003 


COMCPL 


00231bR 


003 


DSSSHF= 


000000 




F. ERR = 


000052 




JMPTBL 


0031 3bR 


003 


ONL 1 NE 


GOmbORG 


003 

































PCSRSXM 


Fool nocRo nnoH oe 


-DEC-77 08: 


21 PRGE 52-2 


E 


2 












SYMBOL 


TRBLE 


























OPNFLG 


001513RG 


003 


RCVT!n= 


000177 G 




S. FNTY= 


000004 




TRRTNF 


001504RG 


003 T. RCVL 


000012 


PRRS%S= 


000027 




RCVTHT 


0012G0RG 


003 


S. FTYPi 


000002 




TRYREC 


002774R 


003 T. RRFL 


000064 


PENTER= 


ttntt GX 




RECSI2 


001B20RG 


003 


S. NFEN= 


000020 




TS. BLK= 


170700 


T. SRCT 


000063 


POINT = 


tttttt G 




RECSl 


00375bRG 


003 


S. VTTfi= 


000002 




TS. CKP = 


000200 


T. STRT 


000032 


POINTI 


000700RG 


003 


RECS2 


003764RG 


003 


S. VTTL = 


000004 




TS. CKRs 


000100 


T. ST2 


000034 


P01NT2 


G00702RG 


003 


RESP 


00m53RG 


003 


TRBSST 


000714RG 


003 


TS. EXE= 


100000 


T. ST3 


000036 


P0INT3 


00070i*RG 


003 


RPEND 


G03056R 


003 


TPGEl 


OOOOIOR 


005 


TS. MSG= 


020000 


T. 1 


rCBL 


000030 


PPEND = 


C00255R 


005 


RPENDl 


003072R 


003 


TRGEIO 


OOOIOJR 


005 


TS. NRP = 


010000 


T. UCB 


000026 


PPGERR 


002232R 


003 


RSVDIN 


00im2R 


003 


TflGEll 


OOOlllR 


005 


TS. OUT= 


000400 


T2. 


R60= 


000100 


PP INTX 


001507RG 


003 


RSX = 


000001 




TPGEl 2 


000136R 


005 


TS. RDN= 


040000 


T2. 


PST= 


100000 


ppnifi 


0002H7R 


0GB 


RSXlin= 


000001 




TPGEl 3 


000146R 


005 


TS. RUN= 


004000 


T2. 


BFX= 


004000 


PPMTL = 


OOOOOC 




RThDE 


003H04R 


003 


TPGE14 


000156R 


005 


TTERFN= 


000020 


T2. 


CRF = 


000400 


PROMPT 


G02m2RG 


003 


RTYP 


004004RG 


003 


TPGE15 


000165R 


005 


TTKLFN= 


000004 


f2. 


CHK= 


020000 


PS 


177776 




RTYPl 


00M022RG 


0^3 


TPGE16 


000176R 


005 


TTPRFN- 


000002 


T2. 


CKD= 


010000 


PIJTERR 


002770R 


003 


RVRL 


OOHGIORG 


Of 3 


TPGE17 


000211R 


005 


TTRDFN= 


000010 


T2. 


DST= 


040000 


PSSD70= 


OOOGOO 




RVfiLl 


004026RG 


003 


TPGE2 


000020R 


005 


TURNPR 


003236RG 


003 T2. 


FXD= 


002000 


PSSGriX= 


000000 




RVIPEN 


001500RG 


003 


TPGE20 


000226R 


005 


TURNON 


003232R 


003 T2. 


HLT= 


000200 


PS%LflS= 


000000 




R5SDER= 


000000 




TPGE21 


000237R 


005 


TURNl 


003236RG 


003 T2. 


SPN= 


000004 


p%%pn = 


000001 




RSSEXUr 


OOOGOO 




TPGE22 


000247R 


005 


TVPB 


001464RG 


003 T2. 


STP= 


000020 


P%SPH5= 


000000 




RSSJPO= 


000000 




TPGE3 


000027R 


005 


TXPEN 


001511RG 


003 T2. 


TIO= 


001000 


P%SRFL= 


000000 




R5SJP1= 


000001 




TPGE4 


000036R 


005 


TYPMSG 


0021 12RG 


003 T2. 


WFR = 


000001 


PS%RTY= 


000000 




RS5JS1= 


000001 




TPGE6 


000046R 


005 


TYPflSl 


0021 20RG 


003 T3. 


PCP = 


100000 


ps%Rn= 


000001 




RSSKWC= 


000000 




TPGE6 


000055R 


005 


T5$PCR= 


OOOGOO 


T3. 


CPL = 


000100 


P%SSRF= 


000000 




RS5K11= 


000001 




TPGE7 


000065R 


005 


T55BTW= 


OOOGOO 


T3. 


CLI = 


001000 


QBLKfl 


00mi4RG 


003 


RSSNDC= 


000003 




TPGNUn= 


000022 




T55BUF= 


OOOGOO 


T3. 


ncR= 


004000 


QCODE 


G0m20R 


003 


RSSNDH= 


000226 




TPGl 


OOOOOOR 


005 


T$$CCP= 


OOOGOO 


T3. 


NET= 


000020 


QCONT 


G0331GR 


003 


R5SNDL= 


000001 




TRGIO 


000065R 


005 


T55CC0= 


OOOGOO 


T3. 


NSD= 


000200 


QDPBK 


GOoemR 


003 


R55SND= 


OOOGOO 




TP611 


000103R 


005 


T5SCTR= 


OOOGOO 


T3. 


priD= 


040000 


QDPBfl 


00064I4RG 


003 


R5511M= 


OOOGOO 




TPG12 


OOOlllR 


005 


TS5C11= 


000001 


T3. 


PRV= 


010000 


QDPBR 


0G066HR 


003 


R. VfiR = 


****** GX 




TPG13 


000136R 


005 


T55GnC= 


OOOGOO 


T3. 


REri= 


020000 


QDPBU 


0G053HR 


003 


SIBEFN= 


GOGOHO 




TPG14 


000146R 


005 


T55GTS= 


OOOGOO 


T3. 


ROV= 


000040 


QEND 


oomz^RG 


003 


SLEEP 


002060R 


003 


TPG15 


000156R 


005 


T55J16= 


000001 


T3. 


RST= 


000400 


QLENTH= 


000020 G 




SNDEOT 


003476RG 


003 


TPG16 


000165R 


005 


TSSKnG= 


OOOGOO 


T3. 


SLV= 


002000 


QLNGTH= 


000030 G 




SSTVEC 


000706R 


003 


TPGl 7 


000176R 


006 


T5SLWC= 


OOOGOO 


UBFCNT 


001204RG 003 


QMODE 


OOmiORG 


003 


STEOn 


00m62R 


003 


TPG2 


OOOOIOR 


005 


TS5riPN= 


006307 


UIBEFN= 


000001 


QONL 


O0H034R 


003 


STKLMT 


000732R 


003 


TPG20 


00021 IR 


005 


T55RNE= 


OOOGOO 


USRTiri 


001622RG 003 


QSTPT 


00m04RG 


003 


STKSET 


001174RG 


003 


TPG21 


000226R 


005 


T55RPP= 


OOOGOO 


U55nHI= 


000040 


QUEHflN= 


****** G 




STOREX 


001506RG 


003 


TPG22 


000237R 


005 


T5SRST= 


OOOGOO 


U55nL0= 


120000 


Q%SOPT= 


000017 




SURBN 


003776RG 


003 


TPG3 


000020R 


005 


T55RUB= 


000000 


U5SriRN= 


170324 


Q. lOflE = 


000012 




SURBl 


OGHOmRG 


003 


TPG4 


000027R 


005 


T55SYN= 


OOOGOO 


V55CTR= 


000400 


Q. IOEF = 


000006 




SWRDF 


00401 2RG 


0U3 


TPG5 


000036R 


005 


T5STRg= 


OOOGOO 


XCEP = 


077405 


Q. IOFN= 


000002 




S14REN 


00377HRG 


003 


TPG6 


000046R 


005 


T55VBF= 


000000 


XDEOT = 


002020 


Q. I0LU= 


000004 




SWRSL 


004000RG 


003 


TPG7 


000055R 


005 


T. PCTL 


000052 


XEOTS = 


077404 G 


Q. IOPL = 


oooom 




SWRSUP 


001522RG 


003 


TPSKRD= 


****** GX 




T. PSTL 


000016 


XFEREN 


G04100RG 003 


Q. lOPR = 


000007 




SWRSl 


004016R6 


003 


TDONE 


001473RG 


003 


T. PTT 


000054 


XITB = 


000037 G 


Q. IOSB= 


000010 




SWTBN 


003772RG 


003 


TERHPN 


003442RG 


003 


T. CPCB 


000004 


XMTERR 


001176RG 003 


RflDCX = 


****** GX 




SYSERR 


002076R 


003 


TERPPR 


0G4206R 


003 


T. DPRI 


0000-iC 


XMTSUT= 


000004 G 


RRTT 


0G4006RG 


003 


S55WPC= 


000036 




TERRR 


002530R 


0C3 


T. EFLG 


000022 


XMTTMT 


001202RG 003 


^^PTTl 


GG402HRG 


003 


S5SWPR= 


000005 




TERl = 


****** G 




T. IOC 


000003 


XPRC = 


000177 


RCHN 


00HG02RG 


003 


SSSURG= 


OOOGOO 




TRNSBL 


006504RG 


003 


T. LBN 


000041 


XSTEQ = 


002402 G 


PCHNl 


G04020RG 


003 


S5SYSZ= 


024000 




TRNSE 


006654RG 


003 


T. LDV 


000044 


X5SDBT= 


OOOGOO 


RCVBLK 


006656RG 


003 


S. BFHD= 


000020 




TRNS4 


OnZ432R 


003 


T. LNK 


OOOOOG 


55SPRG= 


000003 


RCVCNT 


001512RG 


003 


S. FflTT= 


000016 




TRNS5 


002540R 


003 


T. nxsz 


000050 


%SSOST= 


000006 


RCUERR 


001174RG 


003 


S. FOB = 


000140 




TRNS6 


002444R 


003 


T. NRM 


000006 


. CI 


-OSE = 


nttn G 


RCVSE 


006732RG 


003 


S. FNPn= 


000006 




TPNS7 


002470R 


003 


T. OFF 


000060 


. CSIl = 


****** G 


RCUSUTr 


GOOOlU G 




S. FNB = 


000036 




TROKT 


002652R 


003 


T. PCB 


000046 


_ r 


512 = 


****** G 


RCUSW1= 


oooom G 




S. FNBUr 


000017 




TRPINS 


001442R 


003 


T. PRI 


0000G2 


' f' 1 ND = 


****** G 































F 2 

PCSRS/n FOOl MfiCRO nnOH Ob-DEC-77 08: 21 PRGE 52-3 

SVnBOL TPBLE 



FSRCB= 


****** G 


. 


. .PC1= 


000336R 


PfiPSE= 


****** G 








. RBS 


000070 
000002 


000 
001 






ISR 


000000 


002 






MP IN 


007130 


003 






SSFSRl 


0020H0 


OOH 






nESflG2 


000256 


005 







003 .. . PC2= 000532R 003 ... PC3= 000336R 003 .. . TPC- 000020 



EPPOPS DETECTED. 

^MPTURL MEMOPY USED: 75S9 WORDS ( 30 PfiGES) 
[•■■■r^Rriii: MEMOPY: SC90 W^PDS ( 31 PRGES) 
ElRPSED TIME; 00: 01: 53 
:Bb-02G GET; 27. £56^030 GET/CPF.'-SP = RSXnC. EXEMCflL, URPPXn, CTXMflC. GET 



J 



GET 




CRERTED BY 


MRCRO ON 6 


-DEC-77 RT 


08: 22 


G 2 

PRGE 1 




SYMBOL 


CROSS REFERENCE 








CREF 




SYtlBOL 


VRLUE 




REFERENCES 










fiCK 


= 


000040 


G 


5-143 


85-148 








RCKPEN 




oom70 


RG 


21-389 


821-420 








RSPOUT 


— 


tttttt 


G 


5-140 


37-1005 








flSSGNX 




001505 


RG 


21-391 


821-448 








RSSCHK 


z 


000000 




M-35 










RSSCPS 


z 


000000 




81-29 


81-47 








RSSNSI 


z 


000000 




«l-48 










RSSPPI 


z 


000000 




81-57 










RSSTPP 


z 


000000 




81-49 


1-66 








BRDCS 




002H00 


R 


28-762 


828-771 








BRSELN 


z 


000000 


G 


13-250 


813-253 


50-1304 


50-1310 50-1315 50-132: 


BDFRiL 




002616 


R 


833-831 


33-839 


3Z-sm 






BiNe:T 


z 


177H67 


G 


13-260 


813-269 








B INESC 


z 


0000H7 


G 


13-261 


813-266 








BIN! TB 


- 


00C037 


G 


13-260 


813-268 








BINTTD 


= 


026402 


G 


13-261 


813-265 








Bu>m 


z 


00036H 


G 


13-261 


813-267 








BISIN 




002572 


R 


833-825 


37-1009 








BISIN2 




003256 


P 


837-1003 


37-1006 








8 1 SPAR 




004152 


PG 


50-1297 


850-1322 








BPTINS 




001362 


R 


12-238 


814-342 








BUFOVF 




002212 


R 


825-72S 


36-968 








CHRNL 




003752 


RG 


844-imH 










CHRNL2 




003760 


RG 


844-1147 










CHRRL 




003770 


RG 


844-1151 








• 


CLOSER 


z 


tttttt 


G 


5- 138 


42-1093 








CLOSET 


z 


tttttt 


G 


5- 138 


33-834 


42-1092 






CLPPLL 




003636 


R 


37-1000 


42-1091 


842-1109 






CLRflST 




003642 


RG 


42-1052 


842-1110 








CLRRSW 




003710 


RG 


43-1126 


843-1127 








CMBFflV 




001502 


RG 


21-391 


821-4H0 


37-1003 






CMBFPN 




001503 


RG 


21-391 


821-442 


*42-1112 






CMBLST 




001526 


RG 


22-480 


822-481 








CMBHRX 


z 


000016 


G 


13-250 


813-256 








CMBUFE 


= 


006066 


PG 


51-1364 


851-1375 


51-1379 






CMBUFl 




004214 


RG 


21-471 


22-481 


51-1364 


851-1367 51-1 


369 51-1375 


CMBUF2 


z 


004422 


R 


22-482 


851-1369 


51-1370 






CHBUFJ 


z 


004630 


R 


22-483 


851-1370 


51-1371 






CMBUFH 


— 


005036 


R 


22-484 


851-1371 


51-1372 






CnBUFB 


z 


005244 


R 


22-485 


851-1372 


51-1373 






CnBUFfe 


— 


005452 


R 


22-486 


851-1373 


51-1374 






CMBUF7 


~ 


005660 


R 


22-487 


851-1374 








CnCLST 




001562 


RG 


22-480 


822-498 








CriFLST 




001600 


RG 


22-480 


822-506 








CMPhIR 




004200 


RG 


*33-843 


50-1297 


850-1343 






CMPLST 




001544 


RG 


22-480 


822-490 








cocon 




003342 


R 


38-1017 


838-1021 








cocom 




003632 


R 


38-1022 


38-1045 


42-1065 


842-1105 




COC0M2 




003434 


R 


38-1035 


83S-104U 








CODE 




001461 


RG 


21-3SS 


821-39S 


33-S4S 


37-983 




COLflD 




003766 


RG 


844-1150 










COLPl 




0G3754 


RG 


844-1145 











50-1337 



50-1343 



50-1349 



















H 2 


GET 




CRERTED BY 


riRCRO ON 6 


-DEC-77 RT 


08: 22 


PRGE 


2 


SmBOL 


CROSS REFERENCE 








CREF 




SYMBOL 


VRLUE 




REFERENCES 










C0LP2 




003762 


RG 


<m4-1148 










COLTT 


= 


tttttt 


G 


8-186 










COMflTB 




00^030 


R 


36-956 


42-1090 


»48-1240 






COMRV 


= 


000007 


G 


13-250 


M13-255 


13-256 


13- 


•256 21-440 


COnCPL 




00231b 


R 


23-631 


»28-747 








COMDD 




003076 


R 


34-865 


34-867 


«36-947 






COMEPP 




002276 


RG 


25-726 


«25-736 


28-772 


30- 


•785 36-961 


CP 


z 


OOOOIB 




«13-276 










CPBRSX 




00152H 


RG 


21-393 


«21-471 








CPBFflU 




001501 


RG 


21-391 


»21-436 








CPOUT 




001622 


RG 


23-518 


«23-540 


25-7'^0 


30- 


-790 30-796 


CPOUTX 




001616 


RG 


«23-539 


28-760 


34-893 


42- 


-1105 


CSIEPP 




002^06 


RG 


2S-770 


28-771 


«2S-774 






CS. iNP 


z 


000001 




34-862 










CS. OUT 


- 


000002 




28-763 










CTEMT 


~ 


»**»** 


GX 


14-332 










CTIO 




002330 


R 


2S-759 


«28-761 








CSSCKP 


- 


000000 




»l-32 


1-65 


«l-95 






CSSOPE 


z 


OOUOOO 




«1-9G 










C%%RSH 


z 


177BbH 




»l-87 










C. BODE 


z 


****** 


GX 


23-567 










C. CMLD 


— 


000002 




*2S-761 


*2S-7bl 


3b-?53 






C. DEVD 


~ 


000006 




28-764 


34-863 








C. FILD 


- 


OOOOlfe 




28-774 


28-775 








C. SGET 


- 


****** 


GX 


14-324 










C. SIZE 


- 


000054 




2S-7bl 


28-763 


34-862 


51- 


1492 


C. SPS 


= 


****** 


G 


£-190 


23-51S 








C. SPUT 


z 


tttttt 


GX 


14-318 










C. SREG 


~ 


tttttt 


GX 


14-317 


14-323 


14-327 


14- 


•331 


C. SRES 


z 


tttttt 


GX 


14-320 


14-334 








C. STRB 


— 


tttttt 


GX 


23-566 










C. STIN 


— 


tttttt 


GX 


14-328 










DEURT 




001456 


RG 


20-380 


»20-3Sl 


2S-7b4 






DFBLK 




OOCOOO 


RG 


JJ12-19S 


12-202 


12-207 






DFNLP 




000476 


RG 




«12-223 








DIE 




002206 


RG 


14-340 


14-341 


14-342 


14- 


ZMZ 14-344 










23-685 


«23-686 


25-:^35 


27- 


•991 


DLEEOT 




004164 


R 


50-1312 


f?50-1331 








DLEPPP 




004136 


P 


42-1077 


«50-1310 








DONE 


- 


****** 


G 


5-142 


23-bSb 








DSCHRN 




003502 


P 


«42-1072 


48-1253 








DSC OUT 




003520 


P 


42-1074 


«42-l07b 








D3U 




000000 


R 


;5-ios 










DSSBUG 


- 


177514 




ftl-38 










DSSHll 


~ 


0000G2 




Sl-126 










DSSIfiG 


— 


000000 




;i-50 










DSSISK 


— 


OOGOOO 




nI-33 










DSSLll 


= 


000001 




SI- 125 










Dssmi 


z 


000001 




ttl-127 










DSSSHF 


— 


000000 




Sl-39 










DSSYNC 


~ 


GGOOOO 




ft 1 - _N 4 










DSSYnn 


z 


000000 




n 1 - j)b 











42-1075 



33-835 



34-896 



14-245 



14-346 



23-635 



23-642 



GET 


CPERTEO BY 


nflCRO ON 6 


-DEC-77 AT 


08: 22 


1 
PRGE 3 


2 






SfTIBOL 


CROSS REFERENCE 








CREF 








SYMBOL 


VRLUE 




REFERENCES 














EBCHQN 


003312 


R 


37-979 


»38-1014 


48-1247 










E LATCH 


oom?! 


RG 


21-389 


»21-422 


«33-824 










EMTEPP 


001320 


R 


14-319 


14-325 


14-329 


814-334 








EMTGD 


0012^6 


R 


«14-320 


14-326 


14-330 


14-333 








EMTGET 


001256 


RG 


14-315 


M4-323 


23-581 










EMTINT 


001272 


RG 


14-315 


M4-327 












EriTPUT 


00123H 


RG 


14-315 


«14-317 


30-791 


33-844 


33-849 


37-984 


42-1077 42-1089 


EMTTIM 


00130b 


RG 


14-315 


M4-331 












ENBPflP 


oom 30 


RG 


*33-846 


*33-847 


*33-S4J? 


33-849 


*37-982 


*37-983 


37-984 50-1297 850-1304 


E NOP EN 


001472 


RG 


21-389 


«21-423 


*42-1113 










EMOn 


00m2H 


P 


»50-1299 


50-1317 












Er^'iPPP 


004144 


P 


33-844 


«50-1315 












EfHRY 


001764 


RG 


23-518 


*23-579 


23-580 


23-583 


823-589 






EOTFLG 


001476 


PG 


21-390 


821-430 


*42-1078 


*42-1115 








EOTPEN 


0014 74 


RG 


21-390 


821-426 


*42-1114 










EOTSEQ 


004160 


PG 


*37-1002 


50-1297 


850-132S 










EPPHRN 


= ititn 


G 


5-141 


48-1265 












ESC 


= 000033 


G 


13-260 


813-263 












ETXFLG 


001476 


PG 


21-390 


8':1--42S 












EXBHRN 


003332 


P 


»3S-1019 


4S-1245 












EXPREC 


006276 


P 


12-200 


12-204 


12-219' 


^51-1385 








ESSOVC 


= 000000 




SI -90 


1-203 


1-33S * 










ESSNSI 


000000 




«1-91 














E%%PER 


■- 000000 




nl-92 














ESSXPR 


= 000000 




.n\-SS. 














FDBIN 


000036 


PG 


nl 2-199 


25-731 


25-731 


*38-1032 


*3S-1033 


*38-1040 


*3S-1041 


FDBOUO 


000176 


PG 


;i:-:o3 


25-732 


25-732 


44-1144 








FDBOUl 


000336 


PG 


JJ12-20S 


.->r "^ -^ "^ 


25-733 


44-1147 








FD. CR 


= ntttt 


GX 


12-206 


12-221 


43-1134 










FD. PLC 


= tttttt 


GX 


12-200 


12-204 


12-219 










FILDES 


006734 


RG 


2S-761 


2S-761 




2S-775 


36-953 


51-13b5 


851-1492 


FLRGS 


001462 


RG 


21-3SS 


821-400 


.*33-S42 


33-S47 


37-9S2 


*3S-10!5 


*38-inife *3S-1020 *42-in6 


FSTFIL 


= ****** 


G 


5-139 


33-S29 












FSTGET 


= ****** 


G 


5-139 


33-SMO 












F%%LPP 


= ****** 




1-373 














F%%Ll'L 


= 000001 




«1-31 














r. DFNB 


= 000046 




12-202 


12-207 


1 -->_•"> ■•-> n 
I ^— i^ ^ il 










F. LUN 


= 00004 2 




12-202 


12-207 


12-222 










F. MBCT 


= 000054 




12-201 


12-205 


12-220 


*3S-1033 


*3S-1041 






F. PI^CC 


= 000016 




12-200 


12-204 


12-219 










F. PPTT 


= 000001 




12-206 


12-221 












F. PSIZ 


= 000002 




12-206 


1 O- '^'7 1 
1 4j ij^ 1 


*3S-1032 


.I3S-104G 








F. RTVP 


= 000000 




12-206 


12-221 












F. URBD 


= 000020 




12-200 


12-200 


12-204 


12-204 


12-219 


12-219 




GETENT 


001622 


PG 


23-51S 


823-542 


23-634 


23-641 


25-729 


33-S52 


36-972 


GETEXP 


001774 


R 


23-5S2 


823-600 












GETOl 


001654 


R 


23-544 


823-547 












GNEriDE 


003350 


R 


n3S-102S 


4S-125b 












GOflBRT 


= ****** 


G 


5-140 


42-1066 












GOGETE 


003514 


R 


3S-101_4 


3S-1019 


3S-102S 


3S-1U37 


42-1059 


842-10^5 




GOTG 


002764 


P 


33-S27 


833-S52 












GOTGET 


001616 


PG 


823-53S 















GET 




CRERTED BY 


MRCRO ON 6 


-DEC-77 RT 


08: 22 


J 2 
PAGE 4 


Sr'MBOL 


CROSS REFERENCE 








CREF 


SYMBOL 


VRLUE 




REFERENCES 








GSSTPP 


- 


OOOGGO 




M-54 








GSSTTl- 


: 


000000 




M-55 








HFCflCT 




001466 


RG 


21-389 


«21-416 






HFCREC 




006066 


RG 


51-1364 


«61-1380 






IE. EOF 


z 


tttttt 


GX 


23-633 








ILLINS 




00m26 


R 


12-241 


«14-345 






INCRCV 




oom?? 


RG 


21-393 


«21-432 






IN'.TflL 


r 


ntttt 


G 


5-138 


14-308 






1 N 1 IF 




001467 


RG 


21-389 


»21-418 


*33-851 




1 NFC NT 




0015m 


RG 


21-392 


»21-467 


*42-1110 




INP'IPL 


- 


tttttt 


G 


5-141 


36-970 






lOERP 




001510 


RG 


21-392 


»21-453 


42-1062 


*42-1064 *42-10S8 


to ST 




00067H 


R 


12-225 


812-229 


2Z-62S 


23-630 23-633 


iOTlNS 




001376 


R 


12-239 


814-343 






^0. KlL 


z. 


****** 


GX 


12-226 








iO. PLB 


- 


****** 


GX 


12-225 








10. ULB 


- 


****** 


GX 


12-224 


12-227 






ITBn 




004126 


RG 


50-1297 


850-1301 






ISSRRR 


- 


000000 




»1-61 








ISSRDN 


— 


000000 




«l-36 








JMPTBL 




003136 


R 


23-586 


836-967 






JOINT 




002722 


P 


«33-S4S 


37-1010 






JOINT! 




003272 


n 


37-1004 


^37-. "^ 






JOINTX 




003304 


R 


37-lOOS 


837-1010 






KBIBUF 




007010 


RG 


12-225 


51-1365 


851-1494 




KSSCNT 


= 


172542 




nl-102 








KSSCSR 


z 


172540 




ftl-lOl 








KSSLDC 


- 


000024 




S 1 - 1 04 








KSSTPS 


= 


000764 




«1-103 








LDSDB 


r 


000000 




»l-10b 








LDSDK 


— 


000000 




»1-109 








LD%DS 


— 


000000 




fil-112 








LDSDT 


- 


000000 




»1-114 








LDSLP 


— 


000000 




Sl-116 








LDsnn 


- 


000000 




«1-119 








LDSPP 


- 


000000 




»1-121 








LDSPR 


- 


000000 




»1-122 








LF 


- 


000012 




nl3-277 








L ININT 




001206 


RG 


14-285 


814-300 


52-1506 




LP3I2E 


- 


000206 


G 


13-250 
51-1375 


813-251 
51-13S0 


50-1325 
B1-13S5 


51-1369 Bl-1270 


LUKUP 


z 


tttttt 


G 


5-138 


30-S13 






LSSRSG 


z 


000000 




};i-62 








LSSDPV 


~ 


000000 




Sl-51 








L5%F11 


z 


000001 




^\-\\S 








LSSSIl 


r 


tttttt 




1-311 








LS511R 


~ 


000000 




Jtl-117 








MCB 




001463 


RG 


21-3SS 


821-407 


*3S-1029 


*3S-1038 


MDMPRP 




004172 


R 


30-791 


30-792 


850-1337 




MDTRY 




002474 


R 


30-7SS 


830-791 






riEnPRO 




001346 


R 


12-237 


814-341 






MODE 




001465 


RG 


21-3SS 


821-412 




34-S70 36-962 



2S-758 



51-in 



51-1372 



51-1373 



51-1374 



42-1060 *42-1109 



GET 


CREOTi 


:d by 


MRCRO ON 6 


-DEC-77 AT 


08: 22 


K 
PQGE 5 


2 


SvnBOL 


CROSS REFERENCE 








CREF 




SYMBOL 


Vf^LUE 




REFERENCES 










MSGDON 


= tttttt 


G 


5-140 


36-971 








nSSCPB 


- 000124 




«1-135 










M^SCPX 


= 000000 




»1-131 










MSSEXT 


= 000000 




»l-99 










MSSFCS 


= 000000 




»l-30 










MSSMGE 


= 000000 




«l-37 










nssnup 


= 000000 




Ul-43 










MSSOUP 


= 000000 




81-130 










NPIK 


= 000100 


G 


5-143 


85-149 








NOI-CNT 


001516 


RG 


21-393 


821-468 


*42-llll 






nPCVSF 


= 000000 




»2-5 


5-116 


51-l'i22 






riTPNSF 


= 000002 




«2-4 


5-112 


51-1401 






r^SSLOl' 


= 000001 




«1-129 










Mssnoi/ 


= 000021 




81-60 










N. D'/NM 


= 000032 




12-198 


12-223 








tl FNfin 


= OOOOOfc 




12-198 


12-223 








N. FTYP 


= 000014 




12-198 


12-223 








N. UNIT 


= 000034 




12-198 


12-223 








ODDRDD 


001332 


P 


12-216 


814-340 








OFFHflN 


003546 


PG 


42-1052 


842-1085 


4S-1241 






OFHRNl 


003576 


R 


14-309 


842-1090 








ONLHRN 


003152 


RG 


37-97S 


837-979 


48-1243 






ONLINE 


001460 


PG 


21-3SS 


821-396 


23-671 


30-7S3 


*I7-9S0 


OPNFLG 


001513 


PG 


21-393 


821-458 








PfiP%%% 


= 000027 




825-731 


25-731 


825-"32 


25-732 


825-^33 


PENTER 


= tttitt 


GX 


34-891 










POINT 


= ****** 


G 


5-139 


33-838 








POINTl 


000700 


PG 


812-230 










P0INT2 


000702 


RG 


812-231 










P0INT3 


000704 


RG 


812-232 










PREND 


= 000255 


R 


852-1501 


52-1502 








PRGERR 


002232 


R 


825-730 


ZZ-2E>Z 


36-967 






PRINTX 


001507 


PG 


21-392 


821-450 








PRMTfl 


000247 


R 


12-224 


852-1500 


52-1502 






PPMTL 


= 000005 




23-670 


852-1502 








PROMPT 


002142 


Rb 


23-539 
34-895 


23-545 
37-997 


823-669 


25-728 


25-739 


PS 


= 177776 




85-125 










FUTEPP 


002770 


D 


33-845 


33-S50 


833-S53 






F'SSD^O 


= 000000 




81-100 


81-105 








P'^SGMX 


= 000000 




81-42 










PSSLfiS 


= 000000 




81-40 










FSSPll 


= 000001 




81-123 










PS%P4B 


= 000000 




81-97 










P%%RFL 


= 000000 




81-53 










PS5RTY 


= 000000 




81-93 










PSSRll 


= 000001 




81-124 










PS5SRF 


= 000000 




81-41 










QBLKM 


004114 


RG 


*3S-1044 


4<5-12Sn 


84?-i:S6 






QCOOE 


004120 


R 


*3S-1021 


849-12SS 








QC ON T 


003310 


P 


837-1011 


42-1117 








QDPBI- 


000614 


P 


812-226 


23-652 









42-1058 42-1073 *42-10S6 



25-733 828-761 



:s-76i 



30-789 



30-794 



33-821 



33-831 



GET 


CPERTED BY 


nOCRO ON 6 


-DEC-77 RT 


08: 22 


L 
PRGE 6 


2 










1 III . 


SYHBOL 


CROSS REFERENCE 








CREF 














SYnBOL 


VRLJE 




REFERENCES 




















QDPBn 


0GG6HH 


RG 


M2-227 


23-660 


*28-774 


*28-775 


28-776 












QOPBP 


000564 


R 


M2-225 


23-676 


2fc-761 
















QDPBW 


00053H 


R 


M2-224 


23-669 


















QENO 


00H\24 


RG 


49-1280 


«49-1290 


49-1291 


49-1292 














'JLENIH 


= 000020 


G 


49-1280 


1149-1292 


















QLNGTH 


= 000030 


G 


49-1280 


»49-1291 


















QMOOE 


oomio 


RG 


*42-lll7 


49-1280 


849-1284 
















QONL 


004034 


R 


37-981 


848-1242 


















QSTPIT 


004104 


7G 


*37-981 


*42-1090 


49-1280 


849-1282 


49-1291 


49-1292 










QUEHRN 


= ittttt 


G 


5-141 


48-1263 


















'J*»SOPT 


= 000017 




»l-59 




















ij. lOFN 


= 000002 




12-224 


12-225 


12-226 


12-227 














Q. lOPL 


= 000014 




*23-661 


*23-662 


*23-67C 


*23-673 


28-761 


*2S-774 


*28-775 








PPDCy 


= ****** 


GX 


36-954 




















PflTT 


004006 


RG 


«45-119S 




















PRTTl 


004024 


PG 


*43-li:4 


845-1211 


















PCHN 


0nH002 


RG 


*42-10S5 


845-1196 


















PCHNl 


004020 


RG 


»45-1209 




















PCi.'BLK 


006656 


PG 


34-869 


42-liJ95 


51-1365 


851-1407 


51-1407 












PCVCNT 


001512 


RG 


21-394 


821-456 


















RCVEPP 


001174 


RG 


14-285 


814-293 


















RCl'SE 


006732 


RG 


S51-1426 




















PCVSWT 


- 000014 


G 


«45-1200 


51-1421 


















pcvsm 


= 000014 


G 


43-1127 


845-1213 


















Rcnm 


= 000177 


G 


13-250 


813-257 


















RCVTMT 


001200 


PG 


14-286 


814-295 


















RECSIZ 


001520 


PG 


21-393 


821-469 


t38-in30 


I3S-1043 














REC31 


003756 


PG 


n44-114b 




















RECS2 


003764 


RG 


844-1149 




















RESP 


004153 


PG 


50-1297 


850-1323 


















RPEND 


003056 


R 


34-S71 


834-S95 


















RPENDl 


003072 


R 


3i*-S92 


834-S96 


















RSVDIN 


001412 


P 


12-240 


814-344 


















RSX 


= 000001 






5-27 


5-99 


5-122 


5-150 


b-159 


3-137 


12- 


-196 


14-288 








14-302 


14-339 


20-379 


23-537 


23-612 


25-730 


23-757 


28- 


-769 


33-821 








34-S61 


34-890 


36-952 


^:^-9SR 


37-99b 


33-1031 


33-1039 


42- 


-1094 


42-1104 








43-1120 


44-1143 


45-1 ISS 


51-1334 


^l-13'^9 


51-1403 


51-1420 


51- 


-1491 


52-1498 


psxiin 


= OOOGOl 




82-3 


5-28 


5-35 


5-100 


23-54S 


23-613 


23-622 


23- 


■625 


23-653 


PTMOE 


003404 


P 


83S-1037 


4S-125S 


















PT,P 


004004 


RG 


845-1197 




















P T YP 1 


004022 


PG 


*43-1133 


845-1210 


















RTll 


= ****** 




5-32 


5-96 


5-144 


6-171 


s-isi 


20-361 


21-461 


21- 


■472 


23-520 








23-575 


23-600 


23-oS9 


25-736 


28-747 


30-793 


33-323 


34- 


-357 


34-873 








35-S9S 


36-94:- 


37-985 


37-992 


42-1053 


42-109:^ 


42-1101 


44- 


■1155 


45-1216 








4S-1266 


50-1354 


51-1390 


51-14 13 


51-1429 












PVflL 


004010 


RG 


845-1199 




















RHRLl 


004026 


RG 


*4 3-1132 


84B-1212 


















RVIPEN 


001500 


PG 


21-390 


821-Ui5 


















PSSDER 


= 000000 




81-Sb 




















RSSEIS 


= ****** 




1-35S 




















PSSEyv 


= 000000 




81-79 




















PS'tJPO 


= 000000 




81-107 





















M 2 



GET 


CPEflTED BY 


MRCRO ON 6 


-DEC-77 AT 


08 22 


PAGE 


7 






SYMBOL 


CROSS REFERENCE 








CREF 








SYMBOL 


VPLUE 




REFERENCES 














PSSJPl 


= OOGOOl 




«1-108 














PSSJSl 


= OGGGLl 




I»1-113 














PSShUC 


= OGOOOO 




«1-H0 














PSSKll 


= 000001 




«1-111 














PSSNOC 


= 000003 




81-80 














PSSNDH 


= 000226 




81-81 














PS^NDL 


= 000001 




81-82 














PSSSND 


= 000000 




81-56 


81-94 












PSSllM 


= 000000 




81-136 














P VflP 


= ntu% 


• < 


12-206 


12-221 


43-1133 










SIBEFN 


= 30G0MC 




85-156 


23-563 


23-5i5 


23- 


-570 


23-639 




:.LEEP 


002060 


P 


2:-621 


823-638 












SNDEOT 


003476 


RG : 


42-1052 


42-1061 


42-1063 


842- 


■1066 






^STVtC 


000706 


R 


812-234 


14-303 












STEQM 


004162 


R 


*37-10Gl 


850-1329 












SThLMT 


000732 


P 


814-289 


23-543 


*23-546 










STKSET 


0011 "4 


PG 


14-2S5 


814-292 


14-301 










STOREX 


OOlBOb 


RG 


21-392 


821-449 












SUPBN 


0037-^6 


RG 


845-1194 


45-1200 












SWRB1 


OOHOm 


RG 


43-112S 


8 45-1207 


45-1213 










SWPDF 


004012 


RG 


845-1201 














S"REN 


003774 


RG 


845-1192 














SWRSL 


00400C 


PG 


845-1195 














SWPSUP 


G01S22 


PG 


21-393 


-21-4 70 












Si^RSl 


004016 


PG 


845-120S 














SWTBN 


003772 


.'G 


845-1191 


45-1193 












SYSERR 


002076 


R 


823-642 


23-b-5 


23-677 










SSSWPC 


= 000036 




81-S3 














SSSWPR 


= OOOOOB 




81-S4 














SSSWRG 


= 000000 




81-S9 














S%%YDF 


= ttttu 




1-1 


1-43S 












SSSYSZ 


= 024000 




81-9S 














S. BFHD 


= 000020 




12-228 


12-22S 












S. FDB 


= 000140 




12-199 


12-199 


12-203 


12- 


■203 


12-20S 


i:-20S 


S. FNflM 


= 000006 




12-198 


12-19S 


1 w - »- ^ J 


12- 


'? '? 7 






S. FNB 


= 00GG36 




12-198 


12-223 


51-1400 


51- 


1404 


51-1404 


51-1421 


S. FTYP 


= 000002 




12-198 


12-198 


12-22" 


12- 


n n f 






S. I'TTR 


= 000002 




1 2-234 














TOBSST 


000714 


PG 


12-234 


« 1 i,-i.ob 












TPGEl 


000010 


R 


14-340 


814-340 












TPGEIO 


000103 


R 


23-545 


823-545 












TPGEll 


OOClll 


P 


23-635 


823-635 












TflGEi: 


00013b 


P 


23-642 


823-642 












TflGE13 


000146 


P 


25-728 


825-"22 












TRGtm 


000156 


P 


25-735 


825-735 












TPGEIB 


000165 


R 


25-739 


825-^39 












TflGElb 


000176 


R 


30-789 


830-7S9 












TflGEl? 


000211 


p 


30-794 


830-794 












TRGE2 


000020 


R 


14-341 


814-341 












TRGE20 


000226 


R 


33-S31 


833-S31 












TPGE21 


000237 


P 


34-895 


834-S95 












TRGE22 


000247 


P 


37-991 


837-991 













GET 


CPERTED BY 


MRCRO ON 6 


-DEC-77 AT 


08: 22 


N 
PRGE 8 


2 


















SYMBOL 


CROSS REFERENCE 








CREF 




















S'.nBOL 


V'RLUE 


REFERENCES 


























TQGEZ 


000027 R 


14-342 


«14-342 
























TPGEH 


000036 R 


14-343 


i;i4-343 
























TRGE6 


OOOOHb R 


14-344 


«14-344 
























TPGtb 


00005B R 


14-34B 


«14-345 
























T-iGE? 


OOOOfeB R 


14-346 


»14-346 
























TRGnJ"" 


= 000022 


«2-8 


14-340 


«14-340 


14-340 


14-341 


814- 


-341 


14- 


•341 


14- 


-342 


814- 


•342 






14-342 


14-343 


»14-343 


14-343 


14-344 


814- 


-344 


14- 


-344 


14- 


•345 


814- 


-345 






14-34B 


14-346 


«14-346 


14-346 


23-545 


823- 


-545 


23- 


-545 


23- 


-635 


823- 


■635 






23-63B 


23-642 


»23-642 


23-642 


25-728 


825- 


■728 


25- 


-728 


25- 


-735 


825- 


-736 






2B-73B 


25-739 


»2B-739 


25-739 


30-789 


830- 


•789 


30- 


-789 


30- 


-794 


830- 


-794 






30-794 


33-831 


«33-831 


33-831 


34-895 


834- 


-895 


34- 


■895 


37- 


-991 


837- 


-991 






37-991 


























TRGl 


000000 R 


14-340 


14-340 


814-340 






















ThG.C 


OOOObB P 


23-B4B 


23-B4B 


823-B45 






















iPGl 


000103 R 


23-b3B 


23-63B 


823-635 






















TRGl. 


000111 R 


23-642 


23-642 


823-642 






















TPG13 


00013b R 


2B-728 


25-728 


825-728 






















TQGm 


000 mb R 


2B-73B 


2B-735 


825-735 






















ThClE. 


000 15b P 


2B-739 


25-739 


825-739 






















TRGlb 


000 IbB P 


30-789 


30- "^89 


830-:^S9 






















TRG17 


000 l^b P 


30-794 


30-794 


830-794 






















TfiG2 


000010 P 


14-341 


14-341 


814-341 






















TRG20 


000211 R 


33-S31 


33-831 


833-831 






















TRG21 


00022b P 


34-S<^c. 


34-895 


834-895 






















TflG22 


000237 P 


3"-99l 


37-991 


837-991 






















TRG3 


000020 P 


14-342 


14-342 


814-342 






















TflG4 


000027 P 


14-343 


14-34 3 


814-343 






















TRGB 


00003b R 


14-344 


14-344 


814-344 






















TRG6 


00O0H6 R 


14-34B 


14-345 


814-345 






















TRG7 


OOOOBB P 


14-346 


14-346 


814-346 






















TRSKRD 


= ttttti GX 


23-562 


23-571 


23-617 






















TDONE 


00m73 RG 


21-390 


S21-425 


*33-S22 






















TERHRN 


0034H2 PG 


42-10B2 


«42-in5S 


4S- 12B1 






















TEPPRP 


00H20b R 


4 2-1089 


«50-1349 
























TEPPP 


002B30 R 


S30-79B 


























TEPl 


= iftttti Li 


5-142 


42-1079 
























TPc^SBL 


OObBOM PG 


30-7S6 


30-^95 


33-SZ3 


42-1100 


51-13bU 


nEl- 


!3S7 


51- 


13S7 










TRNSE 


OObbBH RG 


;51-1405 


























TPNSH 


oo:h32 P 


28-766 


«30-7S3 
























TPNSB 


002540 P 


30-793 


»30-797 
























TPN'3b 


002444 p 


30-784 


;30-7Sb 
























TRNS7 


0024 70 R 


»30-790 


3C-S14 
























TPOKT 


002bB2 P 


33-830 


*» "^ "^ ."^ "^ / 

n jj-b_^b 
























TPPINS 


001442 P 


12-242 


nl4-34b 
























TPPTNF 


001504 PG 


«21-44^ 


23-518 


tZZ-S23 


*u:-i072 


*42-in7b 


















TRYREC 


002774 R 


2S-767 


«34-S5^ 
























TTEPFN 


= 000020 


n5-155 


























TTKLFN 


= 000004 


n5-153 


























TT"'?FN 


-- 000002 


^{5-152 


























Ti'^DFN 


= 000010 


S5-154 


23-620 


23-626 


23-639 




















TUPNRP 


00323b PG 


37-9^8 


nZ:--99S 
























TURNON 


00J232 P 


37-989 


«37-9?7 

























fwmwrmms^^m 'Hpir ^ 



xc::£a;gtBggtsHxfc^£3£&^ctg;cai5 Er gA i;e :B i^ ^ 



:a:»S;ty!g:Spss=;!gs:si£s!ffia=fegtsigSttoatat^=Sggs5gSg5 gs552gas5gS=g=£=^ 



GET CRERTED BY 

SYMBOL CROSS REFERENCE 

SYMBOL VRLUE 

TURNl 003236 RG 

T\/Hd 00m6H RG 

TXPEN 001511 RG 

TYPMSG 002112 RG 



RG 



TYPMSl 


002120 


TSSflCP 


= 000000 


TSSBTU 


= 000000 


TSSBUF 


= 000000 


T^SCCfi 


= 000000 


T-^SCCO 


= oooroo 


T<5.^CTP 


--: 000000 


TSt,Cll 


= GOOOOl 


TSSGMC 


= 000000 


T%%GTS 


= 000000 


TSSJlb 


= 000001 


TSSKnG 


= 000000 


TSSLWC 


= 000000 


TSSMflN 


^ 006307 


TSSRNF 


= 000000 


TSSRPR 


= 000000 


TSSRST 


= 000000 


T<=^%RUB 


= 000000 


T^SSYN 


= 000000 


TSSTRW 


= 000000 


TS^VBF 


= 000000 


T. EFLG 


000022 


UBFCNT 


0012014 


L I BEEN 


= 000001 


USRTin 


001622 


USSMHI 


= OOOOHO 


U%%MLO 


= 120000 


USSMPN 


= 170324 


VSSCTP 


= 000400 


XCEP 


= 077H05 


XDEOT 


= 002020 


XEOTS 


= 077404 


XFEPEN 


004100 


XITB 


= 00003" 


XMTERR 


001176 


XMTSWT 


= 000004 


XMTTMT 


001202 


XPflD 


= 000177 


XSTEQ 


= 002402 


XSSOBT 


.- 000000 


%%%flRG 


= 000003 



Si>SGLB 
. CLOSE 
. C3!l 



- iiittt 

- ****** 
^ ****** 



RG 



RG 



RG 
G 

RG 
G 

PG 



MRCRO ON 6-DEC-77 AT 08: 22 



G 



REFERENCES 

37-978 

21-388 

21-392 

14-340 

23-642 
«23-660 
?i-63 
«l-45 
?ll-65 
nl-66 
81-67 
81-68 
81-115 
81-69 
81-70 
81-120 
81-52 
81-71 
81-128 
81-46 
81-73 
81-44 
81-75 
81-76 

tt 1 - / f' 

81-78 

z3-5bJ> 

14-2S5 
85-151 
823-541 
81-133 
81-134 
81-132 
81-137 
tt 1 J, - ^ ( 
813-272 

13-261 

4S-123S 

13-260 

14-285 
845-1193 

14-286 
813-273 

13-260 
81-85 

It 1 id — il!* il, H 

tt 1 ij M id O 

it 1 O - '7 -^ ^, 

IT 1 iU <U*J(J 

tt 1 ^- L^f 

12-224 
25-731 
28-761 



837-1000 

821-411 

821-454 

14-341 
823-652 

25-739 

81-64 



81-72 
81-74 



*23-565 
814-297 

'"^ T _ C "? ^ 

36-969 



50-12^9 

50-1331 
813-271 
848-1270 
813-274 
814-294 

51-1400 
814-296 

50-1332 
813-275 

12-224 
12-225 
12-226 

1 9 - -^ '"> 7 

12-225 
25-731 

2S-7bl 



*33-825 
14-342 
25-728 
30-789 



*23-570 
23-639 



PFIGE 
CREF 



*33-832 
14-343 
25-735 
34-895 



B 3 



33-836 
14-344 
30-794 



37-1007 

14-345 

33-831 



*42-1087 
14-346 
37-991 



23-545 



23-635 



:23-572 



23-618 



*23-626 



37-1002 


E--1328 










50-1301 












51-1404 


51-1404 










37-1001 


50-1329 










812-224 
812-225 
12-226 
12-227 
12-226 
25-732 


12-224 

12-225 

812-227 

1 -?_ 907 

1 id ii id r 
i-b p J id 


812-224 

u 4 9 _ -^ C 

12-227 

12-234 

25-733 


12-224 

12-225 

812-227 

25-733 


tt 1 ^- idi,4 

tt i^-..ib 
1 '"> _ '^ '? 7 


12-224 

12-225 

812-227 



12-224 
12-225 



1 






C 3 

get created by mficro on 6-dec-77 pt 08 22 prge 10 

symbol cross reference cref 
Stmbol value ref:rences 

CSI2 = *«««*» G 28-763 28-763 34-862 3»4-862 
. F IND = ****** G 8-188 
. i^SPCe = ****** G 12-228 
PARSE = ****** G 8-189 

PCI = 000336 R 12-198 12-198 »12-198 12-198 12-198 12-198 12-198 12-198 «12-198 

«12-199 12-200 12-200 12-200 12-201 12-202 12-202 1112-203 12-20M 

12-201* 12-20H 12-205 12-206 12-206 12-206 12-207 12-207 »12-208 

12-219 12-219 12-219 12-220 12-221 12-221 12-221 12-222 12-222 

12-223 12-223 «12-223 12-223 12-223 12-223 12-223 12-223 »12-223 

. .PC2 = 000532 P 812-198 12-198 12-198 812-198 12-198 12-198 812-198 12-198 812-200 

12-200 812-200 12-200 812-200 12-200 812-201 12-201 812-202 12-202 

812-202 12-202 812-204 12-204 812-204 12-204 812-204 12-204 812-205 

12-205 812-206 12-206 812-206 12-206 812-206 12-206 812-207 12-207 

812-207 12-207 812-219 12-219 812-219 12-219 812-219 12-219 812-220 

12-220 812-221 12-221 812-221 12-221 812-221 12-221 812-222 12-222 

812-222 12-222 812-223 12-223 12-223 812-223 12-223 12-223 812-223 

J -. _ /? 'J 7 

PC' = C0033b P 8i:-r9S 12-19S 812-223 12-223 



GET 


CRERTED BT MRCRO ON 6- 


DEC-77 RT 08: 


D 3 
22 PRGE 11 












MRCPO CPOSS 


REFERENCE 






CREF 












nOCPO NAME 


REFERENCES 




















RSPBUF 


«H-28 




















B DOFFS 


«12-228 




















CPLL 


«l-mH 


86-168 


23-539 


33-811 


37-997 












CRLLR 


»1-170 




















CB'.'TES 


» 1 2-200 


12-200 


812-201 


12-201 


12-201 


12-201 


812-202 


12-202 


12-202 


812-204 




12-204 


812-205 


12-205 


12-205 


12-205 


812-206 


12-206 


12-206 


812-207 


12-207 




12-207 


812-219 


12-219 


812-220 


12-220 


12-220 


12-22C 


812-221 


12-221 


12-221 




«12-222 


12-222 


12-222 
















CLOSES 


86-163 


826-731 


825-732 


815-733 














CPfiSH 


81-178 




















CSIS 


86-161 


86-162 


828-761 


822-763 


834-862 










t 


CSISl 


86-166 


828-761 
















CS1S2 


86-166 


28-763 


34-862 
















CWOPDS 


812-198 


12-198 


12-198 


812-200 


12-200 


12-200 


812-201 


12-201 


812-202 


12-202 




12-202 


12-202 


812-204 


•2-204 


12-204 


812-205 


12-205 


812-206 


12-206 


12-206 




12-206 


812-207 


12-207 


12-207 


12-207 


812-21? 


12-219 


12-219 


812-220 


12-220 




812-221 


12-221 


12-221 


12-221 


812-222 


12-222 


12-222 


12-222 


812-223 


12-223 




12-223 




















DEFSL 


812-228 




















DIRSVS 


81-1S6 




















DIRS 


86-167 


814-303 


823-639 


823-639 


823-652 


823-663 


823-674 


823-676 


828-776 




DPSTS 


81-19H 




















ERROR 


82-9 


823-545 


825-728 


830-794 


8Z3-S31 












ERRORK 


82-16 


14-340 


14-341 


14-342 


14-343 


1U-7UI+ 


14-345 


14-346 


23-545 


23-635 




23-bH2 


25-728 


25-735 


30-794 


33-S31 


37-??l 










ERRORH 


82-32 


25-739 


30-7S9 


34-S95 














ERRORP 


82-H7 


825-739 


830-7S9 


834-S95 














ERRS 


825-731 


825-731 


825-732 


825-"^32 


825-733 


825-733 










FRTRL 


82-53 
825-735 


814-340 
837-991 


814-341 


814-342 


814-343 


nm-zi^H 


S M- :wB 


814-346 


823-635 


823-642 


FDRTSfl 


86-164 


812-206 


812-221 
















FDRTSR 


86-165 




















FDBDFS 


86-164 


12-199 


12-203 


12-20S 














FDBFSfi 


86-164 


12-201 


12-205 


12-220 














FDBKSfl 


86-164 




















FDBSZS 


812-199 


12-199 


812-203 


12-203 


8i:-20S 


i:-20s 










FDOFFS 


812-200 


12-200 


812-201 


12-201 


8i2-:c: 


12-20: 


812-204 


12-204 


812-205 


12-205 




812-206 


12-206 


812-207 


12-207 


8i:-:i? 


i:-.i5 


812-220 


12-220 


812-221 


12-221 




812-222 


* /^ no'^ 




















\Z- i/li. 


















FDOPSP 


86-164 


812-202 


812-207 


u . ,-. ^ /? -■> 

« 1 i.- i.l.i^ 














FDPCSfi 


86-164 


812-200 


812-204 


812-219 














FSRSZS 


86-164 


12-228 


















GETS 


84-43 


23-5S1 


















GTUCBS 


81-290 




















INTlB 


81-204 




















INTSES 


81-214 




















INTSVS 


81-256 




















LDFDBS 


825-731 


25-731 


825-732 




826-733 


ZB-'ZS 










LDROS 


82S-761 


828-761 


82S-"b3 


82S-763 


834-862 


834-862 










LINIT 


84-23 




















riFFS 


81-312 




















nous 


823-639 


23-b39 



















GET 




IPERTED BY MfiCRO ON 6- 


OEC-77 RT 08: 


22 PPGE 


E 
12 


MRCPO L 


POSS 


REFERENCE 






CREF 




MRCPO NRnE 


REFERENCES 










MIPS 




M-315 










NBOFFS 




M2-198 


12-198 


812-223 


12-223 




NtlBLKS 




»6-lfe5 


12-198 


12-223 






OFF% 




«12-22H 


812-225 


812-226 


812-227 


812-234 


PIJTD 




»4-52 


833-84H 


842-1077 






PUTnC 




«4-38 


30-791 








PUTTC 




»4-33 


33-849 


37-984 


42-1089 




PUTTM 




»4-47 










QDPBS 




»12-224 


12-224 


812-225 


12-225 


812-226 


Q ' 0% 




»6-167 


12-224 


12-225 


12-226 


12-227 


pmDBOS 




«12-198 


12-198 


12-198 


8 1 2-223 


12-223 


PETUPN 




»1-3H9 










LPuNP 




;?l-329 










SCBLB 




81-339 










ZOE 




81-359 










Sl'TKS 




86-169 


12-234 








:.:j:t^ s 




81-369 










TCEOFS 




8E-10H 


S-105 








UTlOSS 




nb- 163 


82T-b39 








UTSESS 




So- 163 











12-226 812-227 12-227 
12-223 



F 3 

n»^iti MPCPO nilOH Qb-OEC-77 08- 2^ 
TOBlE or CONTENTS 

:- I RSSEMBlE for use with an UNnflPPED SVSTFn 



MTHND npcpo nno4 O6-DEC-77 08: 2h prge 1 



G J 



7 

6 

7 
8 

Q 

16 
11 
1: 

\z 

1 C, 
It 

i:^ 

IS 
19 

20 
21 

o ■-> 

:.:> 
2H 
26 
2b 
27 
28 
29 
30 
31 

3H 
35 
3b 
17 
12.. 
39 
146 

m 

42 
4 3 
4^ 
46 
4b 
47 
4S 
49 
60 
61 
62 
63 
64 
66 
6b 



000001 
000001 
000002 
000000 



OCOOOO 



;PREFIX FILE FOR 2780 UfiP RUNNING UNDER RSXllM 

RSX=1 

RSXliri=l 

NTRNSF = 2 ; NUMBER OF FILES - 1 TO TRPMSFER IN ONE CMriD STRING (3) 

NRCVSF=0 ;NUnBER OF FILES - 1 TO RECEIVE (1) 

;riRCRO DEFINITIONS 
TflGNUri=0 

.MRCRO ERROR TEXT 
ERRORK <TEXT> 
JSR PC. PROMPT 

. ENDM 

; MPiCRO TO DO fl KILL RND QUEUE THE MESSAGE 

.MRCRO ERRORK TEXT 
TflGNUM=TRGNUM+l 





. IRP 


N, <. TRGNUM) 




JSR 


R5,TYPMSG 




. UORD 


TRG'N 




. WORD 


TRGE'N-TRG'N 




. PSECT 


MESflG2,GBL 


TRG'N: 


. RSCII 


"TEXT" 


TRGE'N: 








. PSECT 


MAIN 




. ENDM 






. ENDM 





nflCRO TO QUEUE fl MESSAGE ONlY 

. MRCRO EPRORM TEXT 
TflGNUM=TflGNUM+l 
. IPP N, < TRGNUM) 
R6,TYPMS1 
TRG'N 

TRGE'N-TRG'N 
MESRG2GBL 
"TEXT" 

MAIN 



MACRO TO QUEUE A MESSAGE AND FPOMPT 

.MACRO ERRCkP TEXT 

EPRORM <.TEXT> 

JSP PC, PROMPT 
. ENDM 





JSR 




. WORD 




. WORD 




. PSECT 


TRG'N: 


. ASC 1 1 


TRGE'N: 






. PSECT 




. ENDM 




. ENDM 



, MACRO 
EPRORK 
JSP 
. ENDM 



FATAL 

aEXT^ 

R5.DIE 



TEXT 



H 3 

INTHMD n«CPO nilOH Ob-DEC-77 08: 2^ PRGE 2 

RISEnELE FOP USE WITH fiN UNMRPPED SYSTEM 

V . SBTTL OSSEMBLE FOP USE WITH AN UNMAPPED SYSTEM 

2 ; 



M'MEriBLE FOP I 

I 

2 

b 

•7 

s 

Q 

16 

11 
\ " 

13 
IH 

IB 
IK 

r 

IS 
19 
20 
21 



2^ 

2B 
26 

'->-7 

28 
29 
30 
31 

32 
33 
3^ 
35 
36 

3S 
39 
HO 

m 

H2 

h:v 
^^ 

H5 
46 
HT 
H8 
49 
BO 
51 
52 
53 

55 

56 onnooo 

57 



nilG4 Ob-DEC-77 08: 24 PRGE 3 
JSE WITH RN UNMRPPED SYSTEM 



I r f' I f b 



.TITLE INTHND 
. IF OF MMMGE 
. I DENT /0G03ri/ 
. IFF 

. I DENT /0003U/ 
. ENDC 

COPYRIGHT (C) 1975, 1976 , P""* , 

DIGITRL EQUiPnENT CORPORRTION, ..HYNflRD, MflSS. 01754 

THIS SOFTUflRE IS FURNISHED UNDER fl LICENSE FOR USE ONLY ON 
R SINGLE COMPUTER SYSTEM RND MRY BE COPIED ONLY UITH 
THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS 
SOFTWRRE, OR RNY OTHER COPIES THEREOF, MRY NOT BE PROVIDED 
OR OTHERWISE MRDE flVRILRBLE TO RNY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM RND TO ONE WHO RGREES TO 
THESE LICENSE TERMS. TITLE TO RND OWNERSHIP OF THE 
SOFfWRRE SHALL RT RLL TIMES REMRIN IN DEC. 

THE INFORMRTION IN THIS DOCUMENT IS SUBJECT TO CHANGE 
WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED RS A COM- 
MITMENT BY DIGITAL EQUIPMEN"^ CORPORATION. 

DEC ASSUMES NO RESPONSIBILITY FOP THE USE OP RELIABILITY 
OF ITS SOFTWARE ON EQUiPMENT WHiCH IS NOT SUPPLIED BY 
DEC 

VERSION 

POBEPT H. POSENBAUM 30-JULY-r4 

LAST MODIFICATION ON 24 -JUNE -^5 

VERSION 1 

CLARISE E. PATTON SEFT 1977 

MODIFIED TO ACCEPT EITHER HPP4 OR hFP.B 

INTERRUPT RELATED ROUTINES FOP PZX-IIM 

REGISTER DEFINITIONS 

PS=17777b 

. IF DF M%%nGE 

UISAR4=177650 

KISAR4=172350 

UISAR5=177652 

KISAR5=172352 

. ENDC 

MACRO CALLS 

.MCOLL CALL 

.PSECT MAIN 



iNTHND M^^cpo nno^ oe-DEC-?? os. 2^ prge 

PSIEMBLE FOP USE UITH RN UNMOPPED SYSTEM 



J 3 



59 
bO 
bl 
bZ 
63 
64 
t'S 
66 
67 
6S 
69 
70 
71 



74 
7B 
76 

-7-' 

78 

SO 
SI 
82 
S3 
84 
SB 
86 
87 
88 
S9 
90 
91 

92 OOCOOO nouE.67 iinnnnnG 

93 

94 

96 

9b 

97 ^ 

9S 
99 

100 
iOl 

102 000004 

103 OOOOIG 

104 000012 
lOB 000016 

106 000022 

107 000026 

108 000032 

109 000034 

110 000036 

111 000040 

112 000044 

113 000046 

114 0000B2 
IIB 0000B4 



; + 



**-.. C INT-CONNECT TO OEUICE VECTOR 

THIS ROUTINE IS CRLLED TO ENABLE fl USER TASK TO HPNDLE INTERRUPTS 
FROM fl PARTICULAR DEVICE (SIMULATES THE RSX-llD EXEC ROUTINE 
BY THE SAME NAME) 



NPUTS: 



RO -- INTERRUPT TRAP ADDRESS 

R! -- ENTRY POINT OF INTERRUPT SERVICE ROUTINE 

(ADDRESS MUST BE WITHIN USER APR'S RANGE) 
R3 -- BITS 5 - 7 PRESCRIBE THE PRIORITY 



CALLING SEQUENCE 



JSR 
OUTPUTS: 



PC, . C INT 



THIS ROUTINE WILL CHECK TO SEE IF IT IS TO USE APR4 (0PR5 
DEFAULT), THEN WILL REQUEST A BUFFER FROM THE EXEC, STORE 
ADDR IN THE VECTOR ADOR SUPPLIED BY THE CALLER, MOVE THE 
STARTING AT "INTAD" THROUGH "INTEND" INTO THE BUFFER FILL 
THE ADDR CONTAINED IN USER APR4 AND THE USER'S I SR ADDR 
AND FINALLY RtTURN TO THE USER WITH ALL REGISTERS UNCHANGED. 
THE "C" BIT WILL BE SET IF: 
n THE VECTOR IS IN USE (I.E. THE ADDR IN 
THAT OF THE NONSENSE INTERRUPT ROUTINE 
2) NO BUFFERS ARE AVAILABLE 



IS 

THE BUFFER 

NSTRUCTIONS 

NG IN 



THE VECTOR 
(5N0NSI ) OP 



IS NOT 



CI NT: 



BS 



010167 
00B103 
042703 
010367 
012701 

103447 
010004 
OlOOOB 
012701 
01212B 
020127 
103774 
01671B 



000162 

177437 
COO 144 
000020 



000162' 
000200' 
OOOOOOG 



lOS: 



JSR 


RB-C.SPEG 


■SAVE THE REGISTERS 


. IF DF 


M%%MGE 


IF MEMORY MANGEMENT 


cnp 


«STKSET,S120000 


;WHICH REGISTER USED"? 


BGT 


B% 


;REGISTER B 


MOV 


nUISAR4,UISfiP 


MOVE IN REGISTER 4 


MOV 


?{K!SflP4.KISAR 


# 


MOV 


dUISflP.. INTRD+I. Kfl ;PUTS CONTENTS OF PAP INTO 






,MOVE INSTRUCTION 


. ENDC 






MOV 


Rl, INTAD: INT JSP . 


STORE ADDR INTO JSR INTS 


COM 


P3 


COMPLEMENT THE PRIORITY 


BIC 


;i77437,R3 


CLEAR ALL BUT PRIORITY BITS 


MOV 


R3, INTPPI 


STORE COMPLEMENTED PRIORITY 


MOV 


«INTSI2.. Rl 


» OF BYTES NEED FROM E.XEC 


CALL 


SALOCB 


ASK FOR THEM 


BCS 


30% 


NONE AVAILABLE 


MOV 


R0,R4 


SAVE THE BUFFER ADDRESS 


MOV 


RO,RB 




MOV 


8INTRD,Rl 


LOCATION FROM WHiCH TO GET INSTRUCTIONS 


MOV 


(Rl)+, (RB)+ 


MOVE A WORD 


CMP 


R1,»INTEND 


LAST WORD MOVED'? 


BLO 


ICS 


NO 


MOV 


STKTCB,(RB) 


STORE ' e ADDRESS IN LAST WORD 



IMTHND MRCPO MllO^ Ofe-DEC-77 08: 2^ PRGE 
RSSEMBLE FOP USE UITH AN UNMRPPED SYSTEM 



4-1 



K 3 



16 

17 
IS 
19 
20 
21 

/^ ,-> 

23 

25 

26 

2S 
29 
30 

:i 

33 
3H 
3B 
36 
37 
38 
39 
40 

m 

H2 
43 
44 
4B 
46 
47 
48 
49 
50 
51 
52 
53 
54 

55 
56 
57 

5S 
c,Q 

60 
61 
62 
63 
64 
65 
66 
67 
6S 
69 
70 
71 
72 



000060 
000062 
000066 
000074 

000100 
000102 
000106 
000110 
000114 
000116 
000116 
000120 
000124 
000126 
000132 
000134 
000140 
000142 
000146 
000152 
00015b 
000160 



000162 
000 Ibb 



000170 



011600 
013746 
112737 
021027 

001406 
021027 
002412 
021027 
003007 

010420 
012637 
000241 
004567 
000207 
012637 
010400 
012701 

004567 
000261 
000207 



000340 177776 
OOOOOOG 



OOOOOOG 
OOOOOOG 

177776 

OOOOOOG 

177776 

000020 

OOOOOOG 



004537 OOOOOOG 
000000 



004737 000000 
000010 



000174 000137 OOOOOOG 





MOV 


dSP.RO 




MOV 


SIPS, -(SP) 




MOVB 


«340,a)»PS 




CMP 


(RO),ISNONS 




BEQ 


16% 




CMP 


(R0).»5NS0 




BLT 


20S 




CMP 


(R0)/»5NS7 




BGT 


205 


155: 








MCV 


R4,(R0)+ 




MOV 


(SP)+,i)»PS 




CLC 






jSR 


P5,C. SRES 




RTS 


PC 


205: 


MOV 


(SPH,i«PS 




MOV 


P4,P0 




MOV 


«INTSIZ,P1 




CALL 


SDEflCB 


30S: 


JSP 
SEC 


P5.C. SRES 


f 


PTS 


PC 




INTPID- IN1 


rERRUPT SERVIC 



RESTORE VECTOR ADDRESS 
SOVE THE PROCESSOR STRTUS 

INHIBIT INTERRUPTS 

IS VECTOR CONTENTS 

RDDR OF NONSENSE INTERUPT RTN? 



CHECK 
IF NO 



ERRLOG 
ERRLOG 



LOCRTIONS 
RRE SRME RS 



NONS 



STORE BUFFER RDDR IN VECTOR 

ENRBLE INTERRUPTS 
CLERR CRRRY 
RESTORE THE REGISTERS 
RND RETURN TO CRLLER 
;; ENRBLE INTERRUPTS 
GET NODE ADDRESS 
RND ITS SIZE 
RND RETURN IT 
RESTORE REGISTERS 
SET CRRRY TO INDICRTE ERROR 
RND RETURN TO CALLER 



THIS ROUTINE IS PUT INTO RN EXEC BUFFER BY ..CINT RND ITS ADDRESS 

(OF THE BUFFER) IS PLACED IN THE DEVICE VECTOR. 

IN AN UNMAPPED SYSTEM IT TRANSFERS TO THE USERS INTERRUPT 

SERVICE ROUTINE AND THEN TRANSFERS TO AN RSX-llM ROUTINE TO DISMISS 

THE INTERRUPT. 

IN A MAPPED SYSTEM, KERNEL APR4 IS SET TO POINT TO THE ADDRESS IN 

APR4 OF THE USER WHO DID THE CONNECT TO INTERRUPT. IN THIS MANNER 

THE USER'S ISR CODE IS MAPPED INTO EXEC ADDRESSING SPACE. 

THIS ROUTINE MUST BE IN THE EXEC (I.E. AN EXEC BUFFER) TO GET 

CONTROL OF THE INTERRUPT AND CHANGE THE MAPPING. 



NTAD: 
NTPRI 



000200 000G20 



UISAR: 

KISAR: 
INTEND: 



JSR 
. WORD 
. IF DF 
MOV 
MOV 
I. KA=. 
. ENDC 
JSR 

INTJSR 
. IF DF 
MOV 
. ENDC 
JMP 

IF DF 
. WORD 
. WORD 
. ENDC 
I NTS'"' 



; SWITCH STACKS 

; PRIORITY (COMPLEMENTED) 



R5,i«5INTSV 


M5SMGE 

aKISAP,--(SP) ;SRVE KERNEL PAR 

SO^ilKISAR .;SET IT TO CONTENTS OF USEP PAP 
■INTAD-4 ; POINT TO WORD 



PC/a)nO 
:.-2-INTAD 
M55MGE 
(SP)+,alKtSAR 

iliJSiNTXT 
M55MGE 
UISAR5 
KISRR5 



GO TO ISR 
POINT TO WORD 

RESTORE KERNEL PflP 

SWITCH STACKS BACK 



IZv -INTflD+2 



LEAVE ROOM FOR TCB ADDRESS 



INTHND MRCPO nn04 Ofe-DEC-77 08: 2^ PRGE 
fllSEHBLE FOP USE WITH AN UNMRPPED SYSTEM 



L 3 



17H 










175 










1^6 

1 "*"" 










1 < ' 
178 










179 










180 










181 










182 










183 










iw^ 










ISB 










1S6 










IS" 










ISS 










1S9 










190 










191 










r?: 










193 










19H 










19B 


000200 


01004b 






196 


000202 


010146 






197 


00020H 


013^46 


i:^:'7- 


-6 


198 


000210 


112737 


0003^ 


+0 17777b 


199 


000216 


011001 






200 


000220 


0:tlb7 


0000 


16 COonnoG 


201 










202 










203 


000226 


001007 






20H 


000230 


012^10 


000 Of 


JOG 


205 










206 


000234 


010100 






20:^ 


000236 


012701 


0000: 


:o 


20? 


00024 2 
000246 


01-637 






IV''.- 


1777" 


'b 1 


210 


000252 


012601 






211 


000254 


012600 






212 


00025b 


000207 






213 




000001 







««-.. DINT-DISCONNECT FROM DEVICE VECTOR 

THIS ROUTINE IS CALLED TO DISCONNECT THE USER FROn THE DEVICE VECTOR 

INPUTS; 

RO = INTERRUPT TRAP ADDRESS 

OUTPUTS: 

THE CONTENTS OF THE INTERRUPT TRPP ADDRESS (THE VECTOR) ARE RESET 

TO THE NONSENSE INTERRUPT ROUTINE (SNONSI) AND THE BUFFER (POINTED 

TO BY THE OLD CONTENTS OF THE VECTOR) IS RETURNED. A CHECK 

IS MADE TO SEE IF THE TCB ADDRESS OF THE USER MAKING THE CALL IS THE 

SAME AS THE ONE WHICH DID THE CONNECT. (THE TCB ADDR IS SAVED 

IN THE LAST WORD OF THE BUFFER BY ..CINT) IF THEY DO NOT MATCH 

THE DISCONNECT i S NOT DONE BUT NO ERROR INDICATION IS GIVEN 



DINT; 



lOS: 



MOV 

MOV 

MOV 

MOVB 

MOV 

CMP 



BNE 
MOV 

MOV 
MOV 
CRLL 
^OV 

nov 

MOV 
PTS 
. END 



RO,-CSP) 
R1,-(SP) 

a;j°s.-(SP) 

»340.ii;PS 

iPO.Rl 

INTSIZ-2'Rl), 



lOS 
ttSNONS 



;SAVE RO 

:AND Rl 

;SAVE THE PROCESSOR STATUS 

:;; INHIBIT INTERRUPTS 

;,;GET INTERRUPT ADDR FROM VECTOR 
STKTCB ;;;DOES TCB ADDR OF CURRENT TASK 
MATCH THAT OF THE TASK THAT DID 
THE ORIGINAL CONNECT TO INTERRUPT? 



iPO 



FUPO 

; I NTS I 2^ PI 

SDEflCB 

(SP) + .iittPS 

(SP)+.R1 

(SF ' + .P0 

PC 



;N0 
PUT ADDR OF NONSENSE 
IN THE VECTOR 
GET NODE ADDRESS 
AND SIZE IN BYTES 
DEALOCATE THE BUFFER 
RESTORE THE STATUS 

RESTORE Rl 

AND 

AND 



NTEPRUPT RTN 



PO 



PETuPN 



INTHND nRCPO MllDH 0b-D£C-77 


08: 24 PfiGE 


SYriBOL TfiBLE 






C. SPEG= ****** G>; 


INTPRI 


0G0166R 


C. SPES= ****** GX 


1 NTS 12= 


000020 


INTPO 000lb2P 


002 NRCVSF= 


000000 


INTENO G00200P 


002 NTRNSF= 


000002 


INTJSP- 000010 


PS 


177776 


. RB".. GOOOOO 


000 




000000 


001 




MR IN 000260 


002 




EPPOPS DETECTED 







i/lPTUfiL nEMOPY USED: B22 UORDS 


( 3 PflGESj 


DYNflniC MEMOPY 2810 UOPDS ' 


10 PAGES) 


ELfiPSED TIME; 00: 


00: lb 




25b- 020 INTHND. UMP; 27< 2E.o 030 


INTHNDU/CRF 



5-1 



M 3 



00 



RSX = 


000001 


5INT£U= 


III*** 


GX 


$NS7 = 


mill GX 


RSXllMs 


000001 


SINTXTr 


III*** 


GX 


5TKTCB= 


nnn gx 


TflGNUn= 


000000 


$NONSI= 


mill 


GX 


. . CINT 


OOOOOORG 


50L0CB= 


tttttt GX 


SNSO = 


^ ^ ^ ^ ^ ^ 


GX 


..DINT 


000200RG 


SDEflCB= 


««*«** GX 













002 
002 



SP = lJPPPXM,UNnflP,. INTHND 



















N 3 




INTHNOU 




CPEflTED BY 


MACRO ON 


6- 


-DEC-77 PIT 


08: 24 


PRGE 1 






S'tlBOL 


:poss reference 










CREF 






SaiBOL 


WflLUE 




REFERENCES 












C SREG 


z 


iifttt^ 


GX 


14-92 














C SPE'^ 


— 


ittttt 


GX 


^-130 




4-136 










IMTRD 




000162 


R 


«H-102 




4-111 


«4-155 


4-163 


4-172 




INTEND 




000200 


P 


H-113 




«4-172 










! NT. JSP 


z 


000010 




*!H-102 




»4-163 










iNTPPi 




000166 


R 


*^-10B 




»4-156 










1 NTS 12 


- 


000020 




H-106 




4-134 


«4-172 


5-200 


5-207 




MSSHGE 


z 


tttttt 




3-2 




3-46 


4-93 


4-157 


4-164 


4-168 


UPOiZF 


~ 


000000 




«l-5 














NTRNSF 


z 


000002 




»1-H 














PS 


- 


177776 




«3-HB 




4-li7 


4- lis 


4-128 


4-132 


5-197 


PSX 


z 


000001 




Sl-2 














PSXllM 


z 


COOOOl 




** 1 7 

n 1 - j. 














ThGNUM 


z 


000000 




n 1 - 1 














iRLOCB 


— 


****** 


GX 


H-107 














i.DEflCB 


r 


****** 


GX 


H-13B 




5-20S 










SINTSV 


- 


****** 


GX 


4-lBB 














% INT XT 


z 


****** 


GX 


4-16:' 














^r^ONS 1 


= 


****** 


GX 


4-119 




5-204 










SNSO 


- 


****** 


GX 


H-122 














%NS7 


r 


****** 


GX 


4-124 














STKTCB 


= 


****** 


GX 


4-1 15 




5-200 










. . CINT 




nnnnnn 


PG 


H U - Q ; 














.DINT 




00Q2C0 


PG 


«5-i95 















5-19S 



5-209 



■ ! iW !l » U " J f -JH l i" i "' iW !i» ? y i f ! -'WM W 



:rrrrr=rrrrr 






Ka«»««f»w»««H*i«ia 



UBRBi; BU susfcsa 






g???gggsgy ^5ga«ritrtbUkiiiiL^ 



INTHNDU CREATED BY MfiCRO ON fe-DEC-77 AT 08 

nPCRO CROSS REFERENCE 

MPCRO NRHE REFERENCES 

CRLL 83-5H H-107 ^-l35 

ERROR »l-9 

EPPORK «l~lb 

EPPOFn «l-32 

EPPORP nl-47 

FPTPL ;i-B3 



24 



PAGE 2 
CREF 



B H 



5-208 



n»iN MPCPO nnOH Ob-DEC-77 08- 23 

tpble of contents 



C H 



I 



RSSEnBLuL) FOR USE WITH R MPPPED SYSTEM 



INTHND riRCPO nnOi* 06-DEC-77 08: 23 PfiGEl 



D H 



t 




2 


OOOOOl 


1 


000001 


H 


000002 


S 


000000 


6 




7 




8 


ocoooo 


q 




10 




1! 
1 ^ 




13 




IW 




1 c, 




lb 




1 *^ 
1 . 




IS 




19 




2G 





21 



24 

2B 

26 

27 

28 

29 

30 

31 

32 

33 

3H 

3B 

J.b 
•7 -J 

3S 

39 
"40 
Hi 
^2 
4 _ 

4S 
H9 
c,n 

51 
52 
53 
5'4 
55 
56 



;PREFIX FILE FOR 2780 UflP RUNNING UNDER RSXllM 
RSX=1 

Rsxnn=i 

NTRNSF = 2 ;NUnBER OF FILES - 1 TO TRPNSFER IN ONE rtiMD STRING (3) 

NRCVSFrQ ;NUn9ER OF FILES - 1 TO RECEIVE (1) 



; MACRO 


DEFINITIONS 




TRGNUMs 







. nflCRO 


ERROR TEXT 




ERRORK 


<TEXT> 




JSR 


PC. PROMPT 


» 


. ENDM 




; MfiCRO 


TO DO P 


KILL RND QUE 


* 


. MRCRO 


ERRORK TEXT 




TRGNUn= 


TRGNUM+l 




. IRP 


N, < TRGNUM) 




JSR 


R5.TYPMSG 




. UORD 


TRG'N 




. WORD 


TRGE'N-TRG'N 




. PSECT 


MESRG2,GBL 


TRG'N: 
TRGE'N: 


. flSCI 1 


"TEXT" 


. PSECT 


MAIN 




. ENDM 






. EMOn 





nPCPO TO QUEUE R MESSRGF ONlY 





. MRCRO 


ERRORM TEXT 




TRGNUM- 


TRGNUM+1 




. IRP 


N, < TRGNUM) 




JSR 


R5, TYPMSl 




. WORD 


TRG'N 




. WORD 


TRGE'N-TRG'N 




. PSECT 


MESRG2.GBL 


TRG'N: 


. flSCII 


"TEXT- 


TRGE'N: 








. PSECT 


MR 1 N 




. ENDM 






. ENDM 





MRCRO TO QUEUE R MESSRGE RND PROMPT 

. MRCRO ERRORP TEXT 

ERRORM aEXT:^ 

JSP PC. PROMPT 
. ENDM 



. MRCRO 
ERRORK 
JSR 
. ENDM 



FRTRL TEXT 

<TEXT> 

R5.DIE 



IMTHND nOCPO nnOH Ob-DEC-77 08: ? 3 PCiGE 2 
RSiEHBLED FOP USE UITH R nRPPED SYSTEM 



t 
2 
3 



000001 



E H 



. SBTTL RSSEMBLED FOR USE WITH P MAPPED SYSTEM 
n5SriGE = l .MEMORY MflNflGEMENT 



INTHND MQCPO 
PSSEMBLED FOR 

t 

z 

3 

5 

6 

7 
8 

9 

10 
11 
12 

ii 
m 

15 
^. b 

1 T 
1 ' 

IS 
19 
20 
21 
22 
23 
2H 
2B 

2e 

27 
28 
29 
30 



nnOH Gfe-DEC-77 08: 23 PfiGE 3 
USE WITH fl nOPPED SYSTEM 



F H 



31 






-» ^ 






j>^ 






33 






m 






35 






36 






37 






3S 






39 






UO 






41 






H2 






l4\ 






^H 






HS 


1 


1 t t D 


Hb 






^7 


1 


'7650 


us 


1 


'2350 


H9 


r 


"76^2 


SO 


r 


'2352 


51 






52 






53 






5'4 






55 






56 000000 






57 







TITLE INTHND 

IF OF nwriGE 

I DENT /OGOJM/ 

IFF 

I DENT /0003U/ 

ENDC 

COPYRIGHT (C) 1975, 1976 ,1977 

DIGITPL EQUIPMENT CORPORATION, MflYNORD, MflSS. 01754 

THIS SOFTliflRE IS FURNISHED UNDER fl LICENSE FOR USE ONLY ON 
fl SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH 
THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS 
SOFTWARE- OR ANY OTHER COPIES THEREOF, MAY NOT E. PROVIDED 
OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO 
THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF THE 
SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC. 

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE 
WITHOUT NOTICE «ND SHOULD NOT BE CONSTRUED AS A COM- 
niTNENT BY DIGITAL EQUIPMEN"^ CORPORATION. 

DEC ASSUMES NO RESPONSIBILITY FOP THE USE OR RELIABILITY 
OF ITS SOFTWARE ON EQUIPMENT WHiCH IS NOT SUPPLIED BY 
DEC, 

VERSION 

ROBERT H. POSENBflUil 30-JULY-7H 

LAST MOD!FICPTION ON 2U-JUNE-^'=> 

VERSION 1 

CLflPISE E. PPTTON SEPT 1977 

MODIFIED TO ACCEPT EITHER flPP4 OP hPPB 

INTERRUPT RELATED ROUTINES FOP PSX-llM 

REGISTER DEFINITIONS 

PS=177776 

. IF DF M%SMGE 

UISARH=i77650 

KISARH=172350 

UISAR5=177652 

MSAR5=172352 

. ENDC 

MACRO CALLS 

. MCALL CALL 

. PSECT MfilN 



INTHND HQCPO 
PSSEMBLED FOR 

B9 
60 
ki 
62 
b3 
o^ 
b& 
66 
67 
68 
69 
70 
?\ 
72 

77 

t w 

7H 

75 

76 

77 

78 

79 

80 

81 

82 

83 

8H 

85 

86 

87 

88 

89 

90 

91 

92 

93 

9H 

95 

9b 

97 

9S 

100 
101 
102 
103 

lO^ 

105 
106 
107 
108 
109 
110 
111 
112 
113 

im 

115 



nnoi* Ofe-DEC-77 08; 23 PfiGE 
USE WITH fl flPPPED SYSTEM 

; ♦ 



G H 



000000 00H567 



00000^ 
000012 
000014 
000022 
OOOOJO 
000030 



000036 
000042 
000044 
000050 
000064 
000060 
000064 
000066 
000070 
000072 
000076 
000100 
000104 
000106 



022727 
003006 
012767 
012767 



IJ10167 
005103 
042703 
010367 
012701 

103447 
010004 
010005 
012701 
012125 
020127 
103774 
016715 



; ««-.. C INT-CONNECT TO DEVICE VECTOR 

THIS ROUTINE IS COLLED TO ENABLE fl USER TRSK TO HPNDLE INTERRUPTS 
FROn R PflRTICUL«R DEVICE (SIMULflTES THE RSX-llD EXEC ROUTINE 
BY THE SAME NfiflE) 



NPUTS: 



RO -- INTERRUPT TRRP RDDRESS 

Rl -- ENTRY POINT OF INTERRUPT SERVICE ROUTINE 

(RDDRESS MUST BE WITHIN USER RPR'S RANGE) 
R3 -- BITS 5 - 7 PRESCRIBE THE PRIORITY 



CALLING SEQUENCE: 



JSP 



PC. . CINT 



OUTPUTS: 



OOOOOOG 

OOOOOOG 120000 

177650 000226 
172350 000222 



CINT; 



5S: 



017767 000214 000172 



000174 

177437 
000144 
000042 



000214' 
000254' 
OOOOOOG 



lOS: 



THIS ROUTINE WILL CHECK TO SEE IF IT IS TO USE RPR4 (RPR5 IS 
DEFAULT), THEN WILL REQUEST R BUFFER FROM THE EXEC, STORE THE BUFFER 
RDDR IN THE VECTOR RDDR SUPPLIED BY THE CRLLER, MOVE THE INSTRUCTIONS 
STRRTING RT "INTRO" THROUGH "INTEND" INTO THE BUFFER FILLING IN 
THE RDDR CONTRINED IN USER APR4 AND THE USER'S ISR ADDR 
AND FINALLY RETURN TO THE USER WITH ALL REGISTERS UNCHANGED. 
THE "C" BIT WILL BE SET IF: 
n THE VECTOR IS IN USE (I.E. THE ADDR IN THE VECTOR IS NOT 

THAT OF THE NONSENSE INTERRUPT ROUTINE (5N0NSI) OR 
2) NO BUFFERS RRE RVRILRBLE 



OF 



JSR 
. IF 
CMP 
BGT 
MOV 
MOV 

MOV 



. ENDC 

MOV 

COM 

BIC 

MOV 

MOV 

CALL 

BCS 

MOV 

MOV 

MOV 

MOV 

CMP 

BLO 

MOV 



P5.C.SREG 
M%%MGE 
nSTKSET,»120000 
5S 

»UISAR4,UISAR 
t}K!SRR4,K.ISRR 



;SPVE THE REGISTERS 
; IF MEMORY MANGEMENT 

;WHICH REGISTER USED'? 

;REGISTER 5 
;MOVE IN REGISTER 4 



aUISAR, INTAD-^I. KA 



Rl. INTRD+INTJSR 

R3 

«177437,P3 

R3, INTPRI 

»INTSI2,Rl 

SRLOCB 

30% 

R0,R4 

R0,R5 

^INTRD.Rl 

(Rl)+, (R5)+ 

Rl.;ilNTEND 

10% 

%TKTCB- iR5) 



;PUTS CONTENTS OF PAP INTO 
;MOVE INSTRUCTION 

STORE ADDR INTO JSR I NTS 
COMPLEMENT THE PRIORITY 
CLEAR ALL BUT PRIORITY BITS 
STORE COMPLEMENTED PRIORITY 
n OF BYTES NEED FROM EXEC 
ASK FOR THEM 
NONE AVAILABLE 
SAVE THE BUFFER ADDRESS 

LOCATION FROM WHICH TO GET INSTPUCTI 

MOVE A WORD 

LAST WORD MOVED'? 

NO 

STORE TCB RDDRESS IN LAST UORD 



ONS 



IHTHND nflCPO 
filSEMBLED FOR 



nnOH 06-DEC-77 08: 23 PfiGE 
USE WITH R MRPPED SYSTEM 



H-1 



H ^ 



17 
13 
19 
20 
21 

^ '7 

^^ 

23 
2^ 
2?^ 

2b 
27 

>Q 

29 

30 

31 

32 

JZ 

34 

3B 

36 

37 

38 

39 

MQ 

M\ 

M2 

,M3 

HH 

4S 

H6 

H7 

.48 

,H9 

50 

51 

52 

53 

54 

55 

56 

57 

5b 

,59 

60 

61 

62 

,63 

,64 

65 

66 

67 

6S 

69 

70 

71 

-^ /^ 



000112 
000114 
000120 
000126 

000132 
000134 
000140 
000142 
000146 
OOOISO 
000150 
000152 
000156 
000160 
000164 
000166 
000172 
000174 
000200 
000204 
000210 
000212 



000214 
000220 

000222 
000226 



000240 

000244 

000250 
000252 



011600 
013746 
112737 
021027 

001406 
021027 
002412 
021027 
003007 

010420 
012637 
000241 
004567 
000207 
012637 
010400 
012701 

004567 
000261 
000207 



004537 
000000 

017746 
012777 
000014 






000234 00473; 
0000 

012677 

000137 



17-652 
172352 



177776 

000340 177776 

OOOOOOG 



OOOOOOG 
OOOOOOG 



177776 
OOOOOOG 



1 r I < i D 



00004 2 
OOOOOOG 



OOOOOOG 



000024 

000000 0000 lb 



GOOOOO 

000006 
OOOOOOG 



155: 



20%: 



30S: 



MOU 


asp.RO 


MOV 


a«ps.-(SP) 


MOVB 


(1340, d»PS 


CMP 


(RO)/«SNONS 


BEQ 


\s% 


CMP 


(RO),HNSO 


BLT 


20S 


CMP 


(R0),«%NS7 


BGT 


20S 


nOM 


R4;(R0)+ 


MOV 


(SP)+,a«PS 


CLC 




JSP 


R5-C. SRES 


RTS 


PC 


MOV 


(SP)+,i8PS 


MOV 


R4,R0 


MOV 


«INTSIZ,P1 


CALL 


SDEflCB 


JSP 


R5.C. SRES 


SEC 




RTS 


PC 



RESTORE VECTOR ADDRESS 
SRVE THE PROCESSOR STRTUS 

INHIBIT INTERRUPTS 

IS VECTOR CONTENTS 

RDOR OF NONSENSE INTERUPT 



RTN? 



CHECK ERRLOG LOCRTIONS 

IF NO ERRLOG RRE SRME RS NONS 



STORE BUFFER RDDR IN VECTOR 

ENABLE INTERRUPTS 
CLERR CARRY 
RESTORE THE REGISTERS 
RND RETURN TO CRLLER 
;;ENRBLE INTERRUPTS 
GET NODE RDDRESS 
RND ITS SIZE 
RND RETURN IT 
RESTORE REGISTERS 
SET CRRRY TO INDICATE ERROR 
AND RETURN TO CALLER 



**-INTAD- INTERRUPT SERVICE CODE 

THIS ROUTINE IS PUT INTO RN EXEC BUFFER BY CINT AND ITS ADDRESS 

(OF THE BUFFER) IS PLACED IN THE DEVICE VE.iOR. 

IN AN UNMAPPED SYSTEM IT TRANSFERS TO THE USERS INTERRUPT 

SERVICE ROUTINE AND THEN TRANSFERS TO AN RSX-llM ROUTINE TO DISMISS 

THE INTERRUPT. 

IN A MAPPED SYSTEM, KERNEL APR4 IS SET TO POINT TO THE ADDRESS IN 

APR4 OF THE USER UIHO DID THE CONNECT TO INTERRUPT. IN THIS MANNER 

THE USER'S ISR CODE IS MAPPED INTO EXEC ADDRESS'NG SPACE. 

THIS ROUTINE MUST BE IN THE EXEC (I.E. AN EXEC BUFFER' TO GET 

CONTROL OF THE INTERRUPT RND CHANGE THE MAPPING. 



INTAD: 
INTPR 



000254 000042 



UISAR: 
KISAR: 

INTEND: 



JSR 
. WORD 
. IF DF 
MOV 
MOV 
I. KA = . 
. ENDC 
JSP 

INTJSR 
. IF DF 
MOV 
. ENDC 
JMP 

. IF DF 
WORD 
. WORD 
. ENDC 
INTSI2 



; SWITCH STACKS 

; PR I OR I TV <. COMPLEMENTED) 



R5,a»SlNTSV 


MSSMGE 

iKISAP.M.SP) ;SAVE KERNEL PAR 

«0,i)KISAR .SET IT TO CONTENTS OF USER PRP 
•INTAD-4 ; PC INT TO WORD 



pc-a«o 

=. -2- INTAD 
MSSMGE 
(SP)+,ilK!SflR 

iifSINTXT 
MSSMGE 
UISAR5 
KISAR5 

= .-INTflD+2 



GO TO ISP 
POINT TO UOPD 

RESTORE KERNEL PmR 

SWITCH STACKS BACK 



; LEAVE POOM FOR TCB ADDPE' 



fl'ISEtlBLED FOR USE U 



Ob-DEC-77 08: 23 PRGE 
TH fi riRPPED SYSTEM 



I ^ 



174 






17B 






1-^b 






1 1 ' 
178 






179 






ISO 






ISl 






4 O --V 

1 Oa:. 






ISZ 






isu 






1S5 






ISb 






1 V'' 






iss 






1S9 






IQP 






191 






192 






193 






19H 






195 00025H 


01004b 




19b 00025b 


01014b 




197 000260 


01374b 


17-7-6 


198 0002bH 


112737 


000340 177776 


199 000272 


011001 




200 00027H 


026167 


000040 n 00000 G 


201 






202 






203 000302 


001007 




204 000304 


012710 


OOOOOOG 


205 






20b 000310 


010100 




207 000312 


012701 


000042 


208 00031b 






209 000322 


012637 


1777-6 


210 000326 


012601 




211 000330 


012600 




:i: 000332 


000207 




1\ z 


000001 





«*-. DINT-DISCONNECT FROM DEVICE VECTOR 

THIS ROUTINE IS CRLLED TO DISCONNECT THE USER FROM THE DEVICE VF TOR 

INPUTS; 

RO = INTERRUPT TRAP ADDRESS 

OUTPUTS: 

THE CONTENTS OF THE INTERRUPT TRRP ADDRESS (THE VECTOR) ARE RESET 

TO THE NONSENSE INTERRUPT ROUTINE (5N0NSI) AND THE BUFFER (POINTED 

TO BY THE OLD CONTENTS OF THE VECTOR) IS RETURNED. A CHECK 

IS MADE TO SEE IF THE TCB ADDRESS OF THE USER MAKING THE CALL IS THE 

SAME AS THE ONE WHICH DID THE CONNECT. (THE TCB ADDR IS SAVED 

IN THE LAST i^ORD OF THE BUFFER BY ..CINT) IF THEY DO NOT MATCH 

THE DISCONNECT IS NOT DONE BUT NO ERROR INDICATION IS GIVEN 



. DINT: 



10%: 



MOV 


R0,-(SP) 


MOV 


PU-(SP) 


MOV 


inDS,-(SP) 


MOVB 


«340.d)«PS 


MOV 


iPO, Rl 


CMP 


INTSI2-2'P1K 


BNE 


10% 


MOV 


nSNONSL f.PO) 


MOi/ 


P1,P0 


MOV 


nINTSlZ.Rl 


CALL 


SDEflCB 


MOV 


CSP) + ..i?fPS 


MOV 


(SP)+^R1 


MQH 


fSFU.RO 


PTS 


PC 


. END 





;SAVE RO 

AND Rl 
;SAVE THE PROCESSOR STATUS 
:;; INHIBIT INTERRUPTS 
;wGET INTERRUPT ADDR FROM VECTOR 
5TKTCB ;;;DOES TCB ADDR OF CURRENT TASK 
;;; MATCH THAT OF THE TASK THAT DID 
,;;THE ORIGINAL CONNECT TO INTERRUPT'? 
; ; ; NO 

;;:PUT ADDR OF NONSENSE INTERRUPT PIN 
;;; IN THE VECTOR 
;;;GET NODE ADDRESS 
;;, AND SIZE IN BYTES 
;; ;DEALOCATE THE BUFFER 
. ; , RESTORE THE STATUS 
: RESTORE PI 
;fiND RO 
.AND RETURN 



INTHND 
SYMBOL 

C SREG= 

•:. SPES= 

INTRO 

INTEND 

INTJSP= 

INTPPI 

I NTS 12 = 



nflCPO 
TQBLE 



nnO^ Ob-DEC-?? 08: 23 PRGE 5-1 



J H 



. PBS. 

f1P I N 
FPPOFS 



tti%ii,% GX 

tttttt GX 

0002mR 

00025HR 

000022 

000220R 

000042 

000000 

000000 

000234 

DETECTED: 



002 
002 

002 



000 
001 
002 



I. KP : 

KISRR 

KISflRH: 

KISRR5: 

nSSMGE^ 

NRCVSF: 

NTRNSF: 



OGOOIH 




PS 


\777?i> 


UISflR4= 


177650 


5N0NS 1 = 


tttttt GX 




000252R 


0G2 


RSX = 


GOOGOl 


UISPR5= 


177652 


$NSO = 


tttttt GX 




17235G 




RSXlin= 


000001 


5PL0CB= 


tttttt GX 


5NS7 = 


tttttt GX 




172352 




STKSET= 


tttttt GX 


$DEPCB= 


tttttt GX 


$TKTCB= 


tttttt GX 




000001 




TflGNUn= 


OOCOOO 


$INTSV= 


tttttt GX 


. . CINT 


OGOOOORG 


002 


000000 




UISFIR 


G00250R 


002 SINTXT= 


tttttt GX 


. . DINT 


00025HRG 


002 


000002 



















VIPTLiRL MEnOPY USED: 577 UORDS ( 3 PAGES) 
DYNRniC riEnOPY: 28 lO UORDS ( 10 PRGES) 
ELRPSED TIME: 00: 00: 21 
:Et 0:u iNTHtID, MRP: 27, 25b. 030 I NTHNDn.'CRF.'-SP^UflPPyn. MRF , 



NTHND 

















K 4 




INTHNOn 




CRERTED BY 


MRCRO ON 6- 


-DEC-77 RT 


08: 23 


PRGE 1 






SYI1B0L 


CROSS REFERENCE 








CREF 






SYMBOL 


VRLUE 




REFERENCES 












C. SPEG 


r 


ttntt 


GX 


4-92 












C. SRES 


~ 


tttttt 


GX 


4-130 


4-136 










INT9D 




0002m 


R 


*4-99 


«4-102 


4-111 


84-155 


*4- 


■160 


INTEND 




000254 


R 


4-113 


84-172 










INTJSR 


z 


000022 




*4-102 


84-163 










INTPRI 




000220 


R 


*4-105 


84-156 










1 NTS 12 


r 


000042 




4-106 


4-134 


84-172 


5-200 


5- 


•207 


1. Kfi 


■• 


000014 




*4-99 


84-160 










KISRR 




000252 


R 


*4-97 


4-158 


4-159 


4-165 


84- 


■170 


KlSflPH 


: 


172350 




«3-48 


4-97 










f ISRP5 


= 


172352 




«3-50 


4-170 










n^<inGE 


z 


000001 




82-3 


3-2 


3-46 


4-93 


4- 


■157 


:^PCUSF 


= 


000000 




81-5 












NTPNSF 


r 


000002 




«l-4 












PS 


z 


177776 




83-45 


4-117 


4-118 


4-12S 


4- 


■132 


PSX 


- 


000001 




81-2 












PSXlin 


z 


GOOOOl 




81-3 












STKSET 


z 


*.!**»* 


GX 


4-94 












TfiGNUM 


z. 


000000 




81-S 












UISRR 




000250 


P 


*4-96 


4-99 


84-169 








UISRR4 


z 


177b50 




83-47 : 


4-96 










UISRRB 


z 


177652 




83-49 


4-169 










SRLOCB 


~ 


****** 


GX 


4-107 












SDERCB 


— 


****** 


GX 


4-135 


5-20S 










SINTSV 


z 


****** 


GX 


4-155 












SINTXT 


— 


****** 


GX 


4-167 












SNONSI 


z 


****** 


GX 


u-119 


5-204 










%NSO 


— 


****** 


GX 


4-122 












%NS7 


z 


****** 


GX 


4-124 












STKTCB 


— 


****** 


GX 


4-115 


5-200 










. . CINT 




000000 


PG 


84-92 












. . DINT 




000254 


RG 


«5-l95 













4-163 



4-172 



4-164 



5-197 



4-168 



5-198 



5-209 



INTHNDn t 


IPERTED BY MRCPO 


nfiCPO cposs 


PEFEPENCE 


rwcpo r^i^nE 


REFEPENCES 


L«LL 


«3-5H ^ 


EPPOP 


«l-9 


EPPOPi- 


81-16 


EPPOPM 


81-32 


EPPOPP 


81-4:' 


FPTQL 


81-53 



L H 
ON b-DEC-77 AT 08; 23 PRGE 2 



CREF 



4-107 4-135 5-208 



n H 

LOOKUP MfiCPO ^nO^ Ob-DEC-77 08:25 PRGE 1 



t 




2 


000001 


3 


000001 


H 


000002 


B 


000000 


6 




7 




8 


ocooco 


9 




10 




11 




12 




13 




m 




IS 




lb 




r 




IS 




1 ? 




20 




21 




"?■•> 








24 




25 




2b 




'?? 




^ r 




2S 




29 




30 




31 




ji^ 








34 




35 




36 




37 




3S 




7Q 




40 




4i 




42 




4:> 




44 




4B 




4b 




47 




4S 




49 




50 




51 




52 




53 




54 




c;c; 




5b 





;PREFIX FILE FOR 2780 U«P RUNNING UNDER RSXIIM 

RSX=1 

RSXllMM 

NTRNSF = 2 ; NUMBER OF FILES - 1 TO TRANSFER IN ONE CflMD STRING (3) 

NRCVSF=0 ;NUnBER OF FILES - 1 TO RECEIVE i\) 

; MACRO DEFINITIONS 
TflGNUri=0 

. MACRO ERROR TEXT 
ERRORK <TEXT> 
JSR PC, PROMPT 
. ENDM 

; MACRO TO DO A KILL AND QUEUE THE MESSAGE 

. MACRO ERRORK TEXT 

TAGNUM=TA0NUM+1 

. IRP N, < TAGNUM) 

JSR R5.TYPMSG 

. UOPD TRG'N 

. UORD TAGE'N-TAG'N 

PSECT MESRG2.GBL 

TflG'N: . ASCII "TEXT" 
TRGE'N: 

.PSECT MAIN 

. ENDM 

. ENDM 

; MACRO TO QUEUE A MESSAGE ONlY 





. MACRO 


ERRORM TEXT 




TAGNUM= 


TAGNUM+1 




. IRP 


N, < TAGNUM) 




JSR 


R5.TYPMS1 




. WORD 


TAG'N 




. WORD 


TAGE'N-TAG'N 




. PSECT 


MESAG2.GEL 


TflG'N- 


. ASC 1 1 


"TEXT" 


TflGE'N: 








. PSECT 


MAIN 




. END-i 






. Er jM 





MACRO TO QUEUE A MESSAGE AND PPOflPT 

. MACRO ERROPP TEXT 

ERRORM ^TEXT^ 

JSR PC -PROMPT 
. ENDM 



. MACRO FATAL TEXT 

ERRORK aEXT' 

JSR R5DIE 
. ENDM 



LOOKUP n«CPO nnOH OS-DEC-?? 08: 25 PRGE 2 



N ^ 



I 

2 

3 

5 



9 

10 
11 

\Z 
\1. 

m 

15 
lb 
17 
IS 
19 
20 
21 

'7 '"^ 

23 

2H 

25 

26 

27 

28 

29 

30 

31 

32 

ZZ 

3H 

35 

3b 
77 

38 
39 

HO 

m 

H2 

^3 

H5 
H6 
H7 
Hg 

t»9 
50 

51 

52 
53 
SH 
EB 
Sb 
57 



TITLE 
I DENT 



LOOKUP 
/OOOOH/ 



OOOOOG 



OOOCOO 
OOOOOG 



000000 
000002 
OQOOOfc 
000012 
00003^ 
000036 
0000H2 



010201 
005067 
005067 

103H7H 
012700 
012702 



OOGOQOG 
OOOOOOG 



OOOOOOG 
OOOOObG 



COPYRIGHT (C) 1975. 1976. 1977 
DIGITAL EQUIPflENT CORPORRTION. nflYNflRD, 



MASS. 01754 



THIS SOFTUflRE IS FURNISHED UNDER fl LICENSE FOR USE ONLY ON 
fl SINGLE COMPUTER SYSTEM AND MAY 3E COPIED ONLY UITH 
THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS 
SOFTWARE. OR ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED 
OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO 
THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF THE 
SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC. 

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE 
WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COM- 
MITMENT BY DIGITAL EQUIPMENT CORPORATION. 

DEC ASSUMES NO RESPONSIBILITY FOR THE USE OP RELtOBlLiTr' 
OF ITS SOFTWAPE ON EQUIPMENT WHICH IS NOT SUPPLIED Br 
DEC. 



VEPSION 

ROBERT H. ROSENBOUM 2-flUGUST-7H 
lRST MODinCATlON ON 20-FEBPUflPV-75 

FIND HLL Files fop INPUT i TRANSM I SS I ON COMflfiND) 

. PSECT nfllN 



MACPO CALLS 
. nCALL 



FDOFF% DEFSL 
FCSBTS OEFSl 



CSI%2. CSISSW- CSISND. FOOFFS- FCSBTS. CALL 
; DEFINE FCS OFFSETS LOCflLLt 
; DEFINE FCS BITS LOCALLY 



; + 



NPUTS: 



P2 = ADDRESS TO STORE PARSED COnfiAND STRING 

OUTPUTS: 

FILE NAME BLOCK INFORMATION IS PLACED IN AREA POINTED 

TO BY R2 UPON ENTRY. 

1!^ AN ERROR CONDITION IS DETECTED. A MESSAGE WILL BE QUEUED 

AND CARRY WILL BE SET. 



. IF DF PSX 

. ENABL LSB 

L'JKUP; ; flOl'" R2-R1 

lOS; CLP SWREN 

CLR SWTBN 

CSI%2 ^FlLDES, INPUT.. ;?SWTAB 

BCS HOS 

MOU SFDBIN.RO ;FDB BLOCK 

MOV «FILDES+L. DSDS-R2 



; ENABLE LOCAL SYMBOL BLOCK 

;SRVE AREA FOP FNB 

; CLEAR END SWITCH 

: CLEAR BINARY SWITCH 






LOOKUP MfiCPO nnOH 06-DEC-77 08; 25 PRGE 2-1 



B S 



B8 
S9 
bO 
bl 
62 
63 
bH 
66 
("(:> 
t7 
6S 
69 
70 
71 

73 
74 
75 
76 
7/ 
7S 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 

C|7 



000046 
000052 
000056 
000060 
000066 
000070 
000074 
000076 
000102 
000106 
000112 
000114 
000116 
000120 
000126 
00013G 
000134 
000136 
000142 
000156 
000160 
000162 
000164 
000166 
000172 
000206 
000210 
000224 
000226 
000232 
000246 
000250 
000264 
000270 
000272 



012703 OOOOOOG 



103474 
132761 
001050 

103434 
062701 
012703 
012700 
012321 
005300 
001375 
137767 
" .1414 
'JLU.27 
103722 
005077 

G00442 
C05011 
000241 
000207 
004767 

000426 



000406 

005077 
000261 
000207 



000070 000020 



000036 
OOOOOOG 

oooooo: 



000020 OOOOOIG 

OOOOOOG 

OOOOOOG 



155: 



OOOOOOG 



ooom7 

004767 OOOOOOG 



OOOOOOG 



20S: 

30%: 

355: 
405: 



505: 
605: 



nov 

CALL 

BCS 

BITS 

BNE 

CALL 

BCS 

ADD 

MOV 

MOV 

MOV 

DEC 

BNE 

BITB 

BEQ 

CMP 

BLO 

CLP 

ERPOPP 

BR 

CLP 

CLC 

RTS 

.SR 

EPRORP 

BR 

ERRORP 

BR 

JSP 

ERRORP 

BR 

ERRORP 

ClR 

SEC 

RTS 

. DSflBL 



«DfBLK.R3 

. PARSE 

505 

«NB. SVRINB. SNhlNB. STP.N. STflT(Rl) 



;DEFflULT FILE NAME BLOCK 
; PARSE IT 



355 

.FIND 

305 

»S. FNB.Rl 

«SWTBN.R3 

UXMTSWT/2.P0 

(R3)+, (Rl)+ 

RO 

155 



;ANY WILD CARDS? 



YES ILLEGAL 
AND FIND IT 
AN ERROR 



I? OF WORDS OF XMIT SWIT.,,.S 
MOVE TO TRANSMIT BLOCK AREA 
ONE LESS SWITCH 
MOVE THE NEXT ONE 



«CS. MOR,C. STflT + FILDES 



205 



RUSTRNSE ;T00 MANY FILES 

105 ,N0. LOOK FOR NEXT FILE 

i)TRNSBLK ;YES. CLEAR WHAT HAS BEEN DONE 

<T00 MANY xniT FILES: ; AND INFORM OPERATOR OF ERROR 

605 

(Rl) 



PC 

PC CS'iERR 

<N0 SUCH FILE^ 

605 

<WILD CARD FND> 

605 

PCCSIEPR 

< ILL SWITCH) 

605 

<FPPSE FAIL) 

iiTPNSBLI' 

PC 
LSB 



CLEAR CARRY 

; PR I NT STRING IN ERROR 



; PR INT STRING IN ERROR 



SET COr^PY 
AND RETURN 



LOOKUP MRCPO nnO^ Ob-DEC-7? 08; 25 PRGE 3 



C 5 



95 
96 

97 
9S 

QQ 
IOC 

lOl 

1C2 
103 



00027^ 
0G027^ 
00030H 
OOOZIH 



; COnnRND STRING INTERPRETER'S SWITCH TPBLE FOR TPflNSniT COnnONDS 
SWTflB: 



000001 



CSI4SW 


Bl, 


200, 


SUTBN 


CSI5SU 


EN, 


200, 


SUREN 


CSI5N0 








. ENDC 








. END 









■ — - — ■ . 1 


LOOKUP 


MflCPO MllOH 06-DEC-77 08:25 PAGE 3-1 


D 


5 








SYMBOL 


TABLE 














CHR55 = 


000116 FA. 


UCK= 02GG00 


F. ALOC= OGOOHG 


F. RSIZ= 000002 


R. FIX = 


OOOGOl 




CH, RND= 


000001 FA. 


WRT= 00GG02 


F. BBFSs 000062 


F. RTYPs OOOGGO 


R. seo = 


000003 




CNT5% = 


000002 FOB IN - tttttt GX 


F. BOB = Gn0G70 


F. SEQNs OGOIGO 


R. VAR = 


000002 




CSIERR= 


tttttt GX FO. 


BLK= GGGGIO 


F. BGBC= f ,0057 


F. SPDVs 000072 


SIZSS = 


000002 




CS DIF= 


000002 FD. 


CCL= GGGG02 


F. BKDNs 000026 


F. SPUNs 000074 


SUREN = 


tttttt GX 




CS. DUF = 


00000^ FD. 


COM= G20G00 


F. BKDS= 000020 


F. STBKs 000036 


SUTAB 


G00274R 


002 


CS. EQU= 


0000^0 FD. 


CR = 0GGGG2 


F. BKEF= OOOOSO 


F. UNIT= 000136 


SUTBN s 


tttttt GX 




CS. INP = 


000001 FD. 


DIR= OOGGIO 


F. BKP1= 0G0061 


F. URB0= 0G0G2G 


S. FATT= 


000016 




CS. MOR = 


000020 FD. 


FTN= GGOGGl 


F. BKST= 0G0024 


F. V8N = 000064 


S. FOB = 


000140 




CS. NMF = 


000001 FD. 


Fll= 140000 


F. BKVB= 000064 


F. V6SZ= 000060 


S. FNAMs 


000006 




CS. OUT = 


000002 FD. 


INS= OOGGIO 


F. CHR = 000075 


LUKUP OOGOOOk.1 


002 S. FNB = 


000036 




CS. WLD= 


000010 FD. 


ISP= GG200G 


F. CNTG= 000034 


NB. 0£U= 00G20G 


S. FNBUs 


000017 




C. CMLD- 


000002 FD. 


MNT= 100000 


F. DFNB= 000046 


NB. DIR= 000100 


S. FNTYr 


000004 




C. DEVD= 


000006 FD. 


0SP= 004000 


F. 0SPT= 000044 


NB. NAM: 000004 


S. FTYP= 


000002 




C. DIPD= 


000012 FD. 


PLC= 000004 


F. DVNn= 000134 


NB. SD1= 000400 


S. NFEN= 


000020 




C. DSD5= 


000006 FD. 


PSE= 010000 


F EFBK= 000010 


NB. SD2= 001000 


TAGEl 


G00023R 


003 


C. FILD= 


000016 FD. 


RflH= 000001 


F. EFN = 000050 


NB. SNM= 000040 


TAGE2 


000037R 


003 


C. MKm = 


00002M FD. 


RflN= 000002 


F. E0BB= 000032 


NB. STP= 000020 


TAGE3 


00GG54R 


003 


C. MKW2= 


000026 FD. 


REC= 000001 


F. ERR = 000052 


NB. SVR= OOGGIO 


TAGE4 


000066R 


003 


C. SI2E= 


00005^ FD. 


RWM= 000001 


F. FACC= 000043 


NB. TYP= 000002 


TAGE5 


0001 OGR 


003 


C. STRT= 


000001 FD. 


SDI= 000020 


F. FFBY= 000014 


NB. VER= 000001 


TAGNUM= 


000005 




C. SWRD= 


000022 FD. 


SQD= 000040 


F. FNAM= 000110 


NRCVSF= 000000 


TAGl 


OOOOOOR 


003 


C. TYPR= 


000000 FD. 


TTY= 000004 


F. FNB = 000102 


NTRNSF= 000002 


TAG2 


000023R 


003 


DFBLK = 


tttttt G.X FD 


WBH= 000002 


F. FTYP= 000116 


N. DID = 000024 


TAG3 


000037R 


003 


FR. flPD= 


000100 FF. 


CHR= OOOOOE 


F. Fl/ER= 000120 


N. DVNM= 000032 


TAG4 


000054R 


003 


Ffl. CRE= 


GOOOlO FF. 


NV = 000003 


F HIBK= 000004 


N. FID = 000000 


TAG5 


000066R 


003 


Ffl. DLK= 


001000 FF. 


P0E= 000002 


F. LUN = 000042 


N. FNAM= 000006 


TRNSBL= 


tttttt GX 




Ffl. ENB= 


lOOOOO FF. 


RUD= 000001 


F. MBCT= 000054 


N. FTYP= 000014 


TRNSE = 


tttttt GX 




Ffl. EXC= 


002000 FF. 


RUF= 000006 


F. MBC1= 000055 


N. FVER= 000016 


TYPMS1= 


tttttt GX 




Ffl. EXT= 


OOOOOH FF. 


SPC= 000004 


F. MBFG= 000056 


N. MEX1= 000022 


XMTSWT= 


tttttt GX 




Ffl. NSP= 


000100 FILDES= tttttt GX 


F. NRBD= 000024 


N. STAT= 000020 


55 


OOOGGO 




Ffl. POS= 


010000 FO. 


flPD= 000106 


F. NREC= 000030 


N. UNIT= 000034 


. CSI2 = 


tttttt G 




Ffl. RD = 


000001 FO. 


MFY= 000002 


F. OVBS= 000030 


PAR555= 000027 


.FIND = 


tttttt GX 




Ffl. RWO= 


004000 FO. 


RD = 000001 


F. RACC= 000016 


PROnPT= tttttt GX 


. PARSE= 


tttttt GX 




Ffl. SEQ= 


OHOOOO FO. 


UPD= 000006 


F. PATT= 000001 


PSX = OOOCOl 


. . . GBL = 


000000 


i 


Ffl. SHR= 


000040 FO. 


WRT= 000016 


F. PCNM= 000034 


PSX11M= GOOOOl 


...TPC = 


000140 




Ffl. TMP= 


000020 F. flCTL= 000076 


F. RCTL= 000017 










. flBS. 


000000 000 
000000 001 














MP IN 


000316 002 














M£SflG2 


000100 003 














ERRORS DETECTED: 














VIRTUAL 


MEMORY USED: 3725 


UORDS ( 15 PAGES) 












DYNflMIC 


MEMORY: 4922 WORD? 


( IS PAGES) 












ELflPSED 


TIME: 00:00:27 














256,020 LOOKUP; 27, 25b- 03C 


1 lookup/crf.-sp=urff: 


■:naooK UP 























E 5 










LOOKUP 


CRERTED BY 


MRCRO ON 6 


-OEC-77 RT 


08: 25 


PPGE 1 












SYMBOL 


CROSS REFERENCE 








CREF 












SYMBOL 


VRLUE 




PREFERENCES 


















CHPS-i 


= 000116 




»3-99 
II3-100 


3-99 
3-100 


3-99 
3-100 


113-99 


3-99 


3-99 


»3-100 


3-100 


3-100 


CNTSS 


= 000002 




»3-99 
»3-100 


3-99 
3-100 


»3-99 
3-100 


3-99 
113-100 


3-99 
3-100 


»3-99 


3-99 


113-100 


J-100 


CSIERP 


= tttttt 


GX 


2-81 


2-86 
















CS. INP 


= 000001 




2-64 


















CS MOR 


= 000020 




2-71 


















C. DSDS 


= 000006 




2-57 


















C SIZE 


= 00006H 




2-54 


















C. STRT 


= 000001 




2-71 


















C. SURD 


= 000022 




*2-54 


















0«^BLK 


= tttttt 


GX 


2-58 


















FDBIN 


= tttttt 


GX 


2-56 


















FILDES 


= tttttt 


GX 


2-54 


2-54 


2-57 


2-71 












LUKUP 


000000 


RG 


»2-51 


















NB. SMM 


= oooo^o 




2-61 


















NB SIP 


= 000020 




2-61 


















r<B. SUP 


= 000010 




2-61 


















NRCVSF 


= OOODOO 




»l-5 


















NTRNSF 


= 000002 




»l-4 


















N. STRT 


= 000020 




2-61 


















PRRS5S 


= 000027 




«2-54 


2-54 
















PROMPT 


= tttttt 


G.v 






2-S4 


n C"7 


2-89 










PSX 


= 000001 




nl-2 


2-49 
















RSXllM 


= 000001 




«l-3 


















SI 255 


= 000002 




nZ-99 


3-99 


3-99 


3-99 


;3-100 


3-100 


3-100 


3-100 




SUREN 


= tttttt 


GX 


^2-52 


3-100 
















SWTRB 


00027^ 


R 


2-54 


;3-98 
















SUTBN 


= tttttt 


GX 


*2-53 


2-66 


3-99 














S. FNB 


= 000036 




2-65 


















TflGEl 


000023 


R 


2-76 


«:-76 
















TPGE2 


000037 


R 


2-S2 


»2-S2 
















TfiGE3 


000054 


R 


2-84 


»2-S4 
















TRGEH 


000066 


R 


2-87 


{J2-S7 
















TRGE5 


000100 


R 


2-S9 


«2-89 
















TRGNUM 


= 000005 




»1-S 


2-76 


It i< 1 D 


2-76 








2-84 


»2-84 








2-84 


2-87 


«2-S7 


4- - b 1 


2-S9 


82-S9 


2-S9 






TRGl 


000000 


R 


2-76 


2-76 


«2-76 














TflG£ 


00002Z 


R 


2-82 


2-82 


«2-S2 














TRG3 


000037 


R 


2-84 


2-84 


IJ2-S4 














TPG^ 


000054 


R 


2-87 


2-87 


«2-S7 














TRG5 


000066 


R 


2-89 


2-S9 


«2-S9 














TPMSBL 


= tttttt 


GX 


2-75 


2-90 
















TRNSE 


= tttttt 


GX 


2-73 


















TYPrlSl 


= tttttt 


GX 


2-76 


2-82 


:-s4 




2-S9 










XMTSWT 


= tttttt 


GX 


2-67 


















S5 


= 000000 




nZ-99 


3 09 


«3-99 


3-99 


S3-99 


3-99 


»3-?9 


Z-99 


S3-100 








3-100 


«3-lLn 


3-100 


«t3-100 


3-100 


»3-i0iJ 


Z-IijO 






. CSI2 


= tttttt 


G 


2-54 


2-54 
















FIND 


= tttttt 


GX 


2-63 


















. PRPSE 


- tttttt 


GX 


2-59 



















F 5 

LOOKUP CPERTED BY nflCRO ON b-DEC-77 OT 08 25 PRGE 2 

M^^CPG CPOSS REFERENCE CREF 

MRCPO r^PriE REFERENCES 

CRLL »2-35 I2-59 112-63 

CSIS «2-54 

CS'SND «2-35 U3-101 

CSiSSy «2-35 «3-99 113-100 

CS1S2 «2-35 «2-5H 

EPPOP «l-9 

EPPOPK »l-lb 

EPPOPM «l-32 «2-76 »2-82 l«2-8^ «2-87 »2-89 

EPPOPP «l-^7 2-76 2-82 2-8i* 2-87 2-89 

rPTOL «l-53 

FCSBT^. 82-35 «2-37 

FDOFFS r:-35 «2-3fc 

lDPOS Sl-SH »2-BU 



nPKPNT nPCPO nnOH Ob-DEC-?? 08: 25 PfiGE 1 



G 5 



1 
2 


OOOOOl 


7 


OOOGOl 


4 


000002 


B 


000000 


D 




7 







ocoooo 


Q 




10 




11 
1 -• 




13 




1^ 




15 




lb 




r 




IS 




1? 




zo 




21 




22 




97 




24 




2B 




2b 




27 




28 




29 





30 
31 

■n .-! 

33 
2H 

IS 
3b 
Z7 
3B 

HO 
HI 
H2 
Hj 
HH 
H6 
H6 
H7 
M8 
H9 
50 
5t 
52 
53 
5«# 
§5 
56 



; PREFIX FILE FOR 2*^80 URP RUNNING UNDER RSXllM 
RSX=1 

9sxnn=i 

NTRNSF = 2 ;NUriBER OF FILES - 1 TO TRflMSFER IN ONE CMMO STRING (3) 

NRCVSF=0 ;NUnBER OF FILES - 1 TO RECEIVE (1) 



;nfiCRO 


DEFINITIONS 




TPGNUMs 







. MACRO 


ERROR TEXT 




ERRORK 


<TEXT> 




JSR 


PC.PROnPT 




. ENDM 




; MfiCPO 


TO DO P 


KILL RND QUE 


/ 


. nflCRO 


ERRORK TEXT 




TflGNUn= 


TRGNUM+1 




. IRP 


N, < TflGNUM) 




JSR 


R5.TYPnSG 




. WORD 


TflG'N 




. WORD 


TRuE'N-TOG'N 




PSECT 


MESfiG2,GBL 


TOG'N: 
TfiGE'N: 


. flSCil 


"TEXT" 


. PSECT 


MAIN 




. ENDn 






. ENDM 





nPCRO TO QUEUE A MESSAGE ONlY 



TAG • N: 
TAGE'N: 



. MACRO 


ERRORM TEXT 


TAGNUM= 


TAGNUM+! 


. IRP 


N, < TAGNUM) 


JSR 


RB.TYPMSl 


. WORD 


TAG'N 


. WORD 


TAGE'N-TAG'N 


. PSECT 


MESAG2.GBL 


ASCI 1 


"TEXT" 


. PSECT 


MAIN 



ENDM 
ENDM 



MACRO TO QUEUE A MESSAGE AND PROMPT 

. MACRO ERRORP TEXT 

ERRORM <TEXT> 

JSP PC, PROMPT 
. ENDM 



. MACRO FATAL 

ERRORK <TEXT> 

JSP RS-DIE 
. ENDM 



TEXT 



nPrPHT nflCPO nn04 Ob-DEC-77 08: 25 PRGE 2 



H 5 



1 
Z 
I 

B 

6 
7 
8 

9 

10 
M 

i: 

14 
15 
lb 
I" 
IS 
1? 
20 
21 

23 

2^ 

26 
2b 
27 
28 
29 
30 
31 
32 
ZZ 
34 
3B 
3b 



000000 



TITLE riRKPNT 
. I DENT /00006/ 

COPYRIGHT (C) 1975. 1976. 1977 

DIGITfiL EQUIPHENT CORPORRTION. nflYNflRD. flflSS. 0175^ 

THIS SOFTWARE IS FURNISHED UNDER fl LICENSE FOR USE ONLY ON 
R SINGLE COMPUTER SYSTEM AND MAY 3E COPIED ONLY WITH 
THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS 
SOFTWARE, OR ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED 
OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO 
THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF THE 
SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC. 

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE 
WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COM- 
niTMENT BY DIGITAL EQUIPMENT CORPORATION. 

DEC ASSUMES NO RESPCNS IB IL ITY FOR THE USE OP RELIABILITY 
OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY 
DEC. 

VOO-H 10/1/7H 

ROUTINES TO SAVE AND PESOPE PLACE !N FILE 

MPCPO CALLS 

. MCALL CALL. RETURN 

. PSECT MAIN 



; + 



**-POINT - POINT TO PLACE IN FILE 
INPUTS: 

POINTl-3 - COPPESPOND TO P1-P3 SAVED AFTER .MARK 



OUTP 



UTS: 



39 
40 

m 

42 
4i 
44 
45 

47 
48 
49 
50 
51 
52 
53 
54 
55 
56 



000000 
000004 
OOCOIG 

0000 m 

000020 
00002H 
000030 
000032 
0000H6 
000050 
000052 
000056 
000062 



0045S7 
012700 
016701 
016702 
016703 

103010 

000261 
000402 
105067 
004567 



OOOOOOG 
OOnoOOG 
OOOOOOG 

oonoooG 

OOOOOOG 



OOOOOOG 
OOOOOOG 



POINT: 



lOS: 
20S: 



FDB IS SET SO NEXT READ WILL PETREIVE THE RECORD AFTER THE 
ONE LAST READ BEFORE THE CALL TO MARK 



. ENABL 

JSP 

MOV 

MOV 

MOV 

MOV 

CALL 

BCC 

ERROR 

SEC 

BR 

CLRB 

JSP 

RETURN 

. DSABL 



R2 
R3 



LSB 

R5,C. SREG 

;fdbin.ro 

P0INT1,R1 

P01NT2, 

P0INT3 

. POINT 

10% 

\POINT ERR) 

20S 

ELATCH 
P5.C. SPES 

LSB 



SAVE THE REGISTERS 
, FDB ADDRESS 
RETRIEVE SAVED POINTERS 



CALL PCS TO SET UP FDB 
BRANCH IF NO ERROR 
ERROR WHILE TRYING TO POINT 
;SET THE CARRY FLAG 
AND RETURN 
ALLOW READS AGAIN 
RESTORE THE REG 'STEPS 
AND RETURN 



nPl-PNT nOCPO nnOH Oo-DEC-77 08: 25 PRGE 3 



5S 

bO 
bl 
hZ 
hZ 

bU 

bS 
bb 
b7 

bS 
69 

n 



'4 



00006^4 
000070 
000076 
000102 
000106 

ooon: 

000116 

ooci:: 

000130 
000! 34 



0C4B67 
1B276^ 
012700 

010167 
010267 
010367 
152767 
00i*5t7 



000001 



OOOOOOG 

000200 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

000040 

OOOOOOG 



«t-riRKFiL - SOVE PLfiCE IN FILC 
INPUTS 

NONE 
OUTPUTS: 

POlNTl-3 CONTAIN R1-R3 AFTER COLL TO PCS ROUTINE . MPRK 



OOOOOOG 



flPKFIL: 



OOOOOOG 



JSR 
BiSB 

nov 

CRLL 

MCV 

iluU 

MOV 

BiSB 

JSP 

PETUPN 

. END 



R5,C. SREG 

»200,ELRTCH 

«FDBIN.RO 

. nORK 

Rl.POINTl 

R2.P0INT2 

P3,P0INT3 

^UOTXPEN 

P5,C. SPES 



;SflVE THE REGISTERS 

;N0 MORE RERDS 

;GET ADDRESS OF INPUT FOB 

;CflLL PCS ROUTINE TO FIND PLACE 

;SAVE INFO RETURNED 



;PEnEriBER TO CONTINUE LATER 

RESTORE THE REGISTERS 
.AND RETURN 



N FILE 



J 



- 'tlBOL 

C SPEG= 

C. SRFS= 
ELOTlH= 
FOB IN = 
nPK.FiL 

QBS. 

MR IN 

MESflG2 
tPPOP 



riRCPO 

TRBLE 



nno^ 06-DEC-77 os. 25 prge 3-1 



J 5 



tttitt GX 

♦ ^([tlikt GX 
: ittttt GX 
: *»**«» GX 

000064RG 002 

GGOOGO GGO 

OGGOOO OGl 

0GG13fe 002 

OGOOn 003 

DETECTED. 



NRCUSF: 
NTFNSF; 
P01..T 
POINTl: 



OOGGOO 
000002 
GOOOOORG 

)([ t )|[ 1 1 ]t^ GX 



002 



P0INT2= 


ntttt 


GX 


Rsxiiri= 


000001 


P0INT3= 


ttnn 


GX 


TRGEl 


00001 IR 


PROMPT= 


ntttt 


GX 


TflGNUM= 


000001 


RSX 


000001 




TflGl 


OOOOOOR 



TXPEN = tttttt GX 

003 TYPnSG= tttttt GX 

. MPRK = tttttt GX 

003 . POINTS tttttt GX 



mRTUPL nEnOPY USED: 635 UORDS ( 3 PAGES) 
DfNRMIC MEMOPY: 28 10 WORDS ( 10 ''flGES) 
ElPPSED TIME: 00: GO Ofc 
:Sb-ij:0 f1PKPNT.;27. 256-030 riPKPNT,'CPF/-SP = UnPP>:ri. riPKPNT 



nRKPNT CRERTED BY 

SYMBOL CROSS REFERENCE 

SYMBOL VRLUE 

C 3REG = tttttt GX 

C, SRES = tttttt GX 

ELPTCH = tttttt GX 

FOB IN : tttttt GX 

MRKFIL 00006H RG 

NPCVSF = OOOGOG 

NTRNSF = 00GG02 

POINT OOGOOO RG 

POINTl = tttttt GX 

P0INT2 = tttttt GX 

POINTZ = tttttt GX 

PPOMPT = ****** GX 

PSX = OOOGOl 

PSXlin = OGOGOl 

TPGEl OCOOll R 

ThGNUM = 000001 

TPGl 000000 P 

TXPEN =****** GX 

TYPnSG = ****** GX 

. MRPK =****♦* GX 

POINT = t*nM GX 



HRCRO ON b-DEC-77 RT 08: 25 



REFERENCES 

2-H3 

2-5H 
«2-53 

2-HH 
»3-6B 
»l-5 
»l-^ 
82-43 

2-45 

2-46 

2-H7 

2-50 
81-2 
81-3 

2-50 
81-S 

2-50 

2-50 
3-bS 

2-4S 



PRGE I 
CREF 



K 5 



3-65 

Z'7Z 

*3-66 

3-67 



»3-69 
*3-70 
«3-71 



82-50 
2-50 
2-50 



82-50 
82-50 



2-50 



nPKPNT 


CPERTED BY MRCRO ON 


nnrpo rPOSS 


PEFERENCE 




iiplPO nfiriE 


REFERENCES 




COLL 


»2-29 


2-148 


EPPOP 


»l-9 


2-50 


EPPOPK 


»1-1G 


2-50 


EPPOPn 


111-32 




EPPOPP 


SI-H7 




FRTQL 


M-53 




PETUPN 


;2-29 


2-55 



L 5 
6-DEC-77 AT 08: 25 PfiGE 2 

CREF 

3-68 



7-' 



n 5 

conTEx-nocPos nocRO nno^ oe-DEC-?? 08- 24 

ThBLE 0^ CONTENTS 

3- Z\ COMTEX riRCRO DEFINITIONS 

S- S3 INITRLIZE LINE TABLES 



1N1T9L 


URCPO 


nUQH Ob- 


■DEC-77 08- 


t 








2 




000001 




3 




OOOGOl 




H 




000002 




S 




000000 




b 








7 








8 




OCGOOO 




Q 








10 








11 








i: 








13 








14 








IB 








lb 








r 








IS 








19 









:o 

21 



2H 
2B 
2b 

28 
29 

30 
31 
32 



34 
35 
36 
37 
3S 
39 
40 
41 
42 
43 
44 
45 
4b 
47 
4S 
49 
50 
51 
52 
53 
54 
55 
56 



N 5 



;PREFIX FILE FOR 2780 UQP RUNNING UNDER RSXllM 

RSX=1 

RSXliri=l 

NTRNSF=2 ; JMBER OF FILES - 1 TO TRflMSFER IN ONE CMMD STRING (3) 

NRCVSF=0 ;NUnBER OF FILES - 1 TO RECEIVE (1) 

;MRCRO DEFINITIONS 
TRGHUM=0 

. MACRO ERROR TEXT 
ERRORK <TEXT> 
JSP PC.PROnPT 
. ENDn 

; MPCPO TO DO R KILL AND QUEUE THE MESSRGE 





. nPICRO 


ERRORK TEXT 




TflGNUM= 


TRGNUn+1 




. IRP 


N. < TflGNUn> 




JSR 


R5.TYPnSG 




. WORD 


TRG'N 




. WORD 


TRGE'N- TRG'N 




. PSECT 


nESflG2.GBL 


TRG'N: 


. flSCI 1 


"TEXT" 


TOGE ' N: 








. PSECT 


MR i N 




. ENDn 






. ENDM 





MRCPO TO QUEUE R MESSAGE ONlV 





. MRCPO 


ERPOPM TEXT 




TRGNUn= 


TRGNUf1+l 




. IPP 


N. < TRGNUM) 




JSP 


R5.TYPnSl 




. WORD 


TRG'N 




. WORD 


TRGE'N-TRG'N 




. PSECT 


MESflG2-GBL 


TRG'N: 


. flSC 1 1 


"TEXT" 


TRGE'N: 








. PSECT 


MR IN 




. ENDM 






. ENDM 





MRCPO TO QUEUE R MESSAGE RND PROMPT 

. MRCPO ERROPP T'.XT 

EPPOPM vTEXT> 

JSP PC- PROMPT 
. ENDM 



MRCPO FRTRL 

EPPOPK aEXT> 

JSP P5.DIE 
. ENDM 



TEXT 



:;a:.4JJU5tt:.*^^*^5«.*^>i.-*-;u.u;i::.««t::;;;;;;3^s«:;s- 









COMTEX-nRCPOS hfiCRO nilOH 06-DEC-77 08: 2H PAGE 2 



B 6 



1 
2 
3 

H 

5 

6 

7 

8 

9 

10 

11 

12 

1 3 

14 

IB 

ib 

17 
IS 

r? 



.TITLE COMTEX-MflCROS 
. iOENT /00002/ 

COPYRIGHT 197H, 1975, 1976, 1977 

DIGITAL EQUIPnENT CORP. 

mb MAIN STREET MflYNflRD, MASS. C1754 

DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR 
RELIABILIFY OF ITS SOFTWARE ON EQUIPMENT WHICH 
IS NOT SUPPLIED BY DIGITAL 

VERSION 

23-SEPTEMBER-7^ 

VERSION 1 
SEP 1977 - CEP 

MODIFICATIONS FOP CUT CODE liEPSION OF 2780 
LIBPTiPY OF COMTE^'' MACRO DEFINITIONS 



cCiiTEx-nfiCPOs nocRO nno^ 

COMTEX HRCPO DEFINITIONS 

2t 
ZZ 
23 
2* 
2S 
2^ 
27 
2t 
29 
311 
3t 
32 
33 
Z^ 
35 
36 
37 
38 
39 
tiO 
HI 

Ha 

H3 

HH 

H7 
t»8 

Hf 

SO 
6! 
S2 
53 
5H 
55 



06-DEC-77 08: 24 POGE 3 



C 6 



. SBTTL COflTEX MflCRO DEFINITIONS 

. MfiCRO LINIT,PRRLST 

nOV «P«RLST,Rl 

JSP PCEflTlNT 
. ENDM 

. MfiCRO flSRBUF,PRRL3T 

MOV IIP0RLST,R1 

JSP PC.EMTPUT 

. ENDI1 



. MflCPO 
MOV 
JSP 
. ENDM 

. MflCPO 
MOV 

JSP 
. ENDM 

. MflCPO 
JSP 
. ENDM 

. MflCPO 
MOV 
JSP 
. ENDM 

. MflCPO 
MOV 
JSP 
. ENDM 



PUTTCPflPLST 

«PflRLST,Pl 

PCEMTPUT 



PUTMC-PflPLST 

«PflPLST.Pl 

PCEMTPUT 



GETS 

PC EMTGET 



PUTTM,PflPLST 

«P0PLST<P1 

PC-EMTTin 



PUTD.PflPLST 

nPflPLST.Pl 

PC. EMTPUT 



INITRL nfiCPO nllO^ nb-DEC-77 08: 2^ 
COnTEX HRCPO DEFINITIONS 



t 

2 
3 

S 

7 
8 



PfiGE H 



D 6 



^0 
21 
22 
23 
24 
26 
26 
27 
28 
29 
30 
31 
32 
2Z 
34 

3B 

7<:. 



38 
39 
HO 

42 
4j 
44 
45 
4fa 
47 
48 
49 
50 
51 
52 
53 
54 
55 
5b 
57 



OOOOGO 



1 f I I ■ b 



000000 



000000' 



000000 



. TITLE INITOL 
. I DENT /00013/ 

COPYRIGHT (C) 1974,1975.1976,1977 

DIGITAL EQUIPflENT CORPORflTION, MflYNPRD, MflSS. 

THIS SOFTWRRE IS FURNISHED UNDER fl LICENSE FOR USE ONLY 
ON fl SINGLE COnPUTER SYSTEM RND MAY BE COPIED ONLY UITH 
THE INCLUSION OF THE ABOVE COPYRiSHT NOTICE. THIS 
SOFTUARE, OR ANY COPIES THEREOF, MAY NOT BE PROVIDED OR 
OTHERUISE HADE AVBAILABLE TO ANY OTHER PERSON EXCEPT 
FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE 
LICENSE TERMS. TITLE TO AND OWNERSHIP OF THE SOFTWARE 
SHALL AT ALL TIMES REMAIN IN DEC. 

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE 
WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COM- 
MITMENT BY DIGITAL EQUIPMENT CORPORATION. 

DEC ASSUMES NO RESPONSIBILITY FOR THE USE OP RELIABILITY 
OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY 
DEC. 



BLR 7/08/75 

nODlFlEb FOP PT-ll V02-1 «F/B) 
MODIFIED FOR CUT CODE >'EPSI0N 
CEP S/77 



EDIT 5 



MODIFIED TOCLERP SST VECTORS 

CEP 9/77 

MODIFIED TO NOT CLEflP CSP iF CALLED WHEN SOMEONE ELSE USING DEVICE 

CEP 10.'77 



INITIRLIZATION AND EXIT ROUTINES 



IFDF PSX 

PSECT MAIN 

ENDC 

IF DF RTll 

CSECT INITIfl 

GLOBL CP.TIC 

ENDC 



;CPE TiMEF IN T! 



PS=17777b 



MACPO CALLS 

IF DF PSX 

MCALL DIPS- WTSE^S- EXIT5SF INITS- Q'OS-GrCP^ 

IF NDF PSXllM 

MCALL CLEFSS 

ENDC 

QIOLBL: 010% ;JUST DEFINE QIC OFrSETS 

. =QI0LBL .;OuEPLflY QIO PPER 



GMCR; GMCRS 
. ENDC 
. IF DF RTll 



,GET MCR COMMflND LINE 



INIiqi MRCPO nnOH Ob-DEC-77 08: 2H 
COMTEX HRIPO DEFINITIONS 



IS 
61 



PfiGE H-1 



. nCRLL 
. riCRLL 
. . U2. . 
. ENDC 
MfiCRO DEFINITIONS 



E 6 



. V2.. .. PRINT,. HRESET,. EXIT 
QSET.RCTRLO 



b7 
b8 
69 

70 
71 
72 
73 
7^ 
75 
76 
77 
78 
79 
80 
81 



IF OF RSXlin 

MPCRO DIV DISOR.DEND 

IF DIF <DEND>, <R0> 

MOV DEND.RO 

IFF 

MOV R1,R0 

ENDC 

I IF DIF DISOR.Rl MOV 

CPLL 5DIV 

ENDM 



MRCRO 
I IF D 
I IF D 

CALL 
ENDM 

. ENDC 



MUL MIEP/MCRND 
F MIEP.PO MOV 
F MCRNDRl MOV 

SriUL 



D!S0P,R1 



MIEP.PO 
MCRND. PI 



NlTfiL n«CPO nnOi+ Ob-DEC-77 08: 24 PRGE 5 

MITPLIZE LINE TRBLES 



F e 



33 

35 
Sfe 
37 
88 
89 
90 
91 
92 

9H 

95 

9 b 
97 

98 

QQ 

100 
101 
102 
103 
lOH 
106 
lOfe 
107 
108 
109 
110 
111 
112 
113 

im 

IIB 

life 

117 

lis 

119 
120 
121 
122 
123 
124 
12b 
12b 
127 
128 
129 
130 
131 
132 
133 
134 
13E 
136 
137 
138 
139 



000134 
000142 
0001 52 
000154 

000162 
000166 
000172 
000176 
000206 

000210 



000214 
000216 
000220 



SBTTL INIT9LIZE LINE TfiBLES 



*»-INITPL - INITIflLIZE LINE TABLES, DEVICE VECTORS ETC. 



INPUTS: 

NONE 
OUTPUTS: 

EXITS 
F DF RSX 

THE B 



UITH BUFFERS ASSIGNED AND LINE TABLES INITIALIZED 



ENDC 
CALL 



000122 005066 
000126 112767 



000002 
OOOOOOG 



NITOL: 



OOOOOOG 



012767 000777 000330 



100503 
012767 

012703 
062703 
012701 

010146 

016701 



01C123 
006201 
010123 



OOOOOOG 000310 

00n^72• 

000006 
000003 



OOOOOOG 



SYNC TAP TinER ARE ALSO CALCULATED BY THIS ROUTINE 
FOR THE RSX 2780 'S. THE CRB 'iMER AND THE SLAVE RECEIVE TIMER 
ARE SPEED AND CLOCK TICS PE SECOND DEPENDENT. IN THE 
CALCULATIONS BELOW THE FORMULAS ARE BASED ON FOR A 
2000 BAUD LINE WITH A CLOCK RUNNING AT 60 TiCS PER SECOND 
IF THESE ARE THE PARAMETERS OF THE TARGET SYSTEM THEN THE 
SLAVE RECEIVE TIMER WILL BE 102. TICS AND THE CRB TIMER WILL 
BE 5. TICS 



NG SEQUENCE: 


JSR 


PC, INITAL 


. GLOBL 


INITAL,DONE,RC 


. GLOBL 


BASELN,COnflV,C 


. IF DF 


RTll 


. GLOBL 


QLSTRT 


. ENDC 




. ENABL 


LSB 


CLR 


2(SP) 


MOVE 


«COMflV-CMBFflV 


. IF DF 


PTll 


. RCTRLO 




. QSET 


»QLSTPT,»10. 


8 1 SB 


nl00,ail»44 


. ENDC 




MOV 


«RSTRT, INTPflR 


LINIT 


INTPflP 


BMI 


lOS 


MOV 


;baseln. intprr 


. IF DF 


RSX 


MOV 


??INTPAP,R3 


ADD 


«6,R3 


MOV 


»3,R1 


MUL 


»D. SPED,R1 


MOV 


R1.--(SP.) 


. IF DF 


RSXllM 


MOV 


STKPS.Rl 


. IFF 




MOV 


. TKPS.Pl 


. ENDC 




MOV 


Rl. (R3) + 


ASR 


Rl 


MOV 


R1,(R3)+ 



■RV 



;RE5FT 



RCVE see ERROR COUNT 
;PRESET COMM BUFFERS AVAIL 



; RESET CONTROL 
SET UP FOR EXTRA QUEUE ELEMENTS 
SET UP FOR NO STALL ON TTY INPUT 
IMPORTANT IN F/B 

-SELECT RESTART LINIT 
;D0 RESTART LINIT 
; CAN'T RESTART 
; SELECT START 

; POINTER TO PARAMETER LIST 
, POINT TO TIMER AREA 
;MOVE CONSTANT TO Pi 
; MULTIPLY BY LINE SPEED 
;SAVE DIVISOR ON STACK 

;GET TICKS PEP SECOND 

;GET TICKS PER SECOND 

;SflVE AS BID TIMER 

;{? OF TICKS IN 1/2 SECOND 

.SAVE AS INTF.PVRL TiMEP TO 

: CHECK SLAVE RND MRSTEP 1 mEOUTS 



INITRL MflCPO nilOH Ob 


-DEC-77 08; 24 


INITQL IZE LINE 


TABLES 




mo 000222 


012723 


000006 


mi 






m2 000226 


012/23 


000006 


14 3 000232 


005000 




mi+ 






14B 00023^ 


016701 


OOOOOOG 


mb 






m? 






ms 






m9 000240 






150 000250 






151 000260 


010013 




152 






153 000262 






154 000272 


100433 




155 







PRGE 5-1 



15b 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

17S 

179 

ISO 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 



0002:'4 10EG37 17777b 

000300 C05077 OOOCOOG 

000304 012777 177777 OOOOOOG 



000312 



000320 
000326 
000334 
000342 



000354 
000360 



000362 
000372 



000011 
000011 
000014 
000017 
000022 



OUMES: 



012767 OCOOll ' 000014G 
012767 000012 0000 16G 



000207 



000167 000054 



105: 



122 
040 
063 
060 



112 

126 
055 



Ipc^ 

060 
060 



HEinSG. 



nou 

MOV 

CLR 

. IF OF 

MOV 

. IFF 

MOV 

. ENOC 

MUL 

DIV 

MOV 

. ENDC 

LIMIT 

BMI 

. IF DF 

MTPS 

. IFF 

CLRB 

ENDC 
CLR 

. IF DF 
MOV 
. ENDC 
. IF DF 
CLR 

PRINT 
PTS 

. flSCIZ 
. ENDC 
.IF DF 
DIPS 



MOV 
MOV 
DIRS 
WTSESS 
.IF NDF 
CLEFSS 
. ENDC 
FIN ITS 
RTS 
ENDC 

ERRORK 
JMF 
. DSflBL 



IF DF 
PSECT 
flSCI I 



G 6 



ff6, (R3)^ 

116. (R3)4> 
RO 

Rsxnn 

$TKPS,R1 

.TKPS,Rl 

HS.Rl 
(SP)+,RO 
RO, (R3) 

INTPflR 
lOS 
LSlll 
SO 

alSPS 

ilTRNSSL 

RSX 

;-l,iPCbBLK 

RTil 

alRCVBLK 

SOUMES 

PC ; 

"RTll RBT V03-0G" 

PSX 

nGMCP :THIS DIRECTIVE IS DONE MERELY TO 

:FREE THE MCR BUFFER SO THRT ANOTHER 
,TflSK CRN USE IT. NOTHING IS DONE 
;UITH THE DRTfl RERD. 
»HELMSG,QDPBM+Q. lOPL ; RDDR OF MESSAGE 
nHELLNG<CiDFBM + Q. IOPL + 2 .LENGTH IN BYTES 
SQDPBM ; QUEUE THE URITE 
»5 ;WRIT FOR ITS COMPLETION 

RSxiin 

»5 



; MASTER TIMEOUT VALUE IS 6. 1/2 
; SECOND INTERVALS 
;SAVE SLAVE RECEIVE TIMEOUT VALUE 
.CLEAR UORKING REGISTER 

;GET TICKS PER SECOND 

;GET TICKS PER SECOND 

;MULTIPLY BY 5 

; DIVIDE BY CONSTANT 

;SAVE CRB TIMER 

; INITIALIZE THE LINE 
;N0 GOOD 

CLEAR PROCESSOR STATUS WORD 

; CLEAR PROCESSOR STATUS UORD 

NO TRNSMT FILES YET 

OP PECEIUE FILES 

OP RECEIVE FILES 
AND RETURN 



PC 



<i.lNE IMIT) 

DONEl 

LSB 



PSX 

MESflG2 

"RJE V03-00" 



; INITiflLIZE FCS 
;RND PETUFN 



H 6 

NiTPL npcpo nno^ Ob-DEC-?? 08: 2^ ppge 5-2 

NiTfiLiZE LINE TRBLES 

1"^^ 000012 HELLNG=. -HELMSG 

1?B 000376 PSECT tlPIN 

. ENDC 



1 : 



NITRL n«CPO nnOH Ob-DEC-?? 08; 24 PRGE6 

NITRLIZE LiriE TOBLES 



19S 






> 


•f 






199 






> 


%t- 


DONE - DE- 


•INlTlfiLIZE FIND 


200 






f 








201 






* 


INPUTS: 




202 






t 




NONE 




203 






t 


OUTPUTS: 




20H 






> 




EXITS 




205 






i 


COLLING SEQUENCE: 


206 










. IF DF 


RTll 


207 






4 


' 


JflP 


DONE 


20S 










. ENDC 




209 










. IF DF 


RSX 


210 






i 

4 




JSP 


PC. DONE 


21 2 










. ENDC 




213 






/ 




. IF DF 


PSX 


214 000376 






DONE: 


WTSE^S 


«5 


215 ooomo 


012" 


'00 


OOODOOG 




MOU 


»TRBSST,PO 


216 ooomn 


012' 


'05 


000007 




MOV 


87-P5 


217 000420 


005020 


55: 


CLP 


(P0)+ ; 


21S 000422 


005 


305 






DEC 


P5 


219 000424 


001. 


375 






BNE 


55 


220 00042b 


012- 


"67 


00077"' 0000 3t. 




nou 


«PSTPT, INTPflP 


221 000434 










LINIT 


INTPflP 


222 000444 










EXITSS 




223 000452 






r 
L 


JONE 1 






224 000452 










WTSESi 


»5 


225 000464 










EXIT%2 




226 
























. ENDC 


















229 










. IF DF 


PTM 


230 






DONE: 


m\j 


;PSTPT, iNTPflP 


231 










MOV 


; INTPflP.. -.SP) 


232 










LINIT 




233 










. HPESEl 




234 










CLP 


PO 


235 










.EXIT 




21 1> 










. ENDC 





URIT FOR MESSRGE'S COMPLETION 

CLERR OUT SST VEC SO DON'T LOOP ON ERROR 



SET UP FOP RESTART 

fiND RESTART (DISCONNECT FROM VECTORS) 



WRIT FOP MESSAGE'S COMPLETION 

EXIT - DON'T DO PESTRPT IN CASE SOMEONE 

ELSE IS USING CSR 



SELECT RESTART 
;SET PRPRMETEP BLOCK RDDR ON STACK 
.AND PESTRPT (DISCONNECT FROM VECTORS) 
^KiLL t/O- RESET MONITOR 

.RE TURN TO RT-11 MONITOR 



N'TflL f1«CP0 nnOH Ob- 
NiTfiL'ZE LINE TRBLES 



DEC-77 08: 2H PPIGE 7 



J 6 



23S 






-779 






!• -> . 






240 






2m 




000777 


24 2 






24 3 




000003 


244 




000001 


246 






24b 


000472 


OOOG 


247 


000473 


000 


24S 


000474 


003 


24 9 


000476 


000000 


2B0 






2Sl 






252 






253 






254 


000500 


000000 


255 


000502 


000000 


25b 


000504 


000000 




00050b 


000000 


25S 


000510 


nooooo 


259 






260 






2b 1 




000001 



;♦ 



PRRRMETER LIST 



NTPOR: 



001 



RSTRT=777 


DPISR=3 




BiTflPM 




. BYTE 


BflSELN 


. BYTE 





. BYTE 


DPiSR.BlTfiP 


. UORD 





. iF OF 


RTll 


. WORD 


CR. TIC 


. ENDC 




. IF DF 


RSX 


. WORD 





. WORD 





. WORD 





. WORD 





. WORD 





. ENDC 





;RESTfiRT LINIT PflRflrETER 
;LINE 277, OPCODE 1 
;DP11 ISR CODE 
;BISYNC TAP CODE 

;LINE NUMBER 

;0P CODE 

;DPn iSR AND B I SYNC TAP 

;FOR ERROR CODE 

;TICK COUNT FOR B I SYNC TRP 



CONTENTION T 
INTERVAL FOR 
MASTER TIMER 



MER (TICKS) 
MASTER. SLfll/E 
'. INTEPl/ALS> 



TIMERS iTlCKS) 



SLAVE TIMER ( INTER^'ALS) 
CRB TIMER (TICKS) 



END 



INlTflL 
SVnBOL 



tIfiCPO 
TRBLE 



^no^ Ofe-DEC-77 os-.m prge 7-1 



K 6 



BRSELN= 


tittn G 


GnCR 


OGOOOOR 


002 


QOPBM = 


IllIXt GX 


RCVBLK= 


tttttt 


BiTRP = 


000001 


G. nCRB = 


000002 




QIOLBL 


OOOOOOR 


002 RSTRT = 


000777 


<:riBFO'i= 


$tt%tt G 


HELLNG= 


000012 




Q. IORE = 


000012 


RSX = 


000001 


conpu = 


tttttt G 


HELflSG 


OOOOllR 


003 


Q. IOEF = 


000006 


RSXlin= 


000001 


DONE 


000376RG 


002 INITflL 


0001 22RG 


002 


Q. IOFN= 


000002 


TRBSST= 


tttttt 


DONEl 


000452R 


002 INTPRR 


000H72R 


002 


Q. IOLU= 


OOOOOH 


TRGEl 


OOOOllR 


DP 1 SR = 


000003 


NRCVSFr 


000000 




Q. IOPL = 


oooom 


TflGNUM= 


000001 


D SPED= 


iitttt GX 


NTRNSFr 


000002 




Q. IOPR = 


000007 


TRGl 


OOOOOOR 


EnTINT= 


****** GX 


PS 


177776 




Q. IOSB = 


000010 






^BS. 


000000 
000000 


000 
001 














'■]Q \ H 


0005 1 2 


002 














MtSflGZ 


000023 


003 














EPFOPS 


DETECTED: 

















•' 'PTUflL 


nEnOPY USE 


:D; 1832 WOPD 


S <: S PAGES) 










DYNPnic 


ME nop V; 


1810 UORDS ( 


10 PRuES) 













GX 





TRNSBL= 


tttttt 


G 




TYPnS6= 


tttttt 


GX 




$DIV = 


tttttt 


GX 




$nuL = 


tttttt 


GX 




$TKPS = 


tttttt 


GX 


003 


SSSPRG= 


000000 






$$50ST= 


000122 




003 


. FINIT= 


X»XI*« 


G 



ELRPSED TIME. 00; 00: 26 
ZBb.02C 1N!TRL::7. 25b- 03G INITRL 



CPF, -SP = URPRXM,CTXriflC. INITflL 



INITRL 

SYMBOL 

SVnBOL 

BRSELN 

BiTPP 

CMBFfl'u 

COMflV 

DOr^E 

DONE I 

OP 1 SP 

D. SPED 

EMTINT 

GMCR 

G. MCPB 

HEILNG 

HELtlSG 

iNlTRL 

INTPflP 

LSI 11 

NP'IUSF 

t^TRNSF 

PS 

QDPBM 

QIOLBL 

Gl. lOFN 

Q. lOPL 

PCVBLK 

RSTRT 

RSX 

RSXllM 

RTll 

TRBSST 

TRGEl 

TRGNUM 

TRGl 

TRNSBL 

TYPMSG 

%DIV 

SMUL 

STHPS 

S'tSPFG 

S*SGLB 

. F I N I T 



CPERTED BY 
CROSS REFERENCE 
VRLUE 

= tttttt G 
= OOGOOl 
= tttttt G 
= tttttt G 

000376 RG 

000^52 R 
= 000003 
= tttttt GX 
= tttttt GX 

000000 R 
= 000002 
= 000012 

000011 R 

000122 RG 

000H^2 P 

= n**i* 

= OOOGOO 

= ooooo: 

= 17:^77b 

= ttttii GX 

000000 P 
= 000002 
= 000014 

= n *.*.♦* G 

= 000777 
= 000001 



MRCRO ON b-DEC-77 RT 08: 2H 



000001 
tttttt 

" ^r ^n ^ ^ ^' 

000011 
000001 
OOOGOO 

****** 

■T ^n -" ^ 'T ^ 

T ^ ^ ^n ^ '^ 

****** 
****** 

000000 

****** 

Mni* 



GX 



G 

GX 
GX 
GX 

GX 



REFERENCES 
5-107 5- 

«7-2^^ 7- 

5-107 «5- 
5-107 5- 

5-lOb »6- 

5-187 Hfc- 

»7-243 7- 

5-129 

5-122 5- 

8H-55 5- 

M-55 

5-176 «5- 

5-175 «5- 

5-106 85- 
*5-12l 5- 

5-155 
81-5 
»l-4 

«4-44 5- 

*5-l7B *5- 
84-52 4- 

4-52 

*5-175 *5- 

5- 10b 5- 

E.-i:i 

81-2 4- 

6-213 
81-3 4- 

4-40 4- 

6-215 

5-1S6 86- 
81-S 5- 

5-lSb 5- 

5-lOb 5- 

5-lSb 

5- 150 

5-129 5- 

5-132 5- 

84-52 4- 

4-52 4- 

5-1S2 &-1S, 



124 

2^8 

im 
im 

214 
223 

248 

153 
171 

194 
193 
113 
122 



15S 
176 
53 

17b 
162 
220 

253 

4? 

57 

iSb 
ISb 
ISb 
16C 



14? 
145 
52 
55 



7-246 



6-221 

5-194 
*5- 124 



5-1 



8 7-24 1 
4-47 

4-64 
5-1 OS 



8 5- ISb 
85- 1 So 



PRGE 1 
CREF 



L 6 



5-126 



5-153 



*6-220 



b-221 



87-246 



B-92 

5-131 
E-115 



5-1S6 



5-125 

5-14U 
?-lb4 



5-161 

5-179 
6- 2Gb 



5-170 



t>~ ^^7 



5-191 



7-250 



6-209 



4-52 



1 N 1 TflL 

MPCPO 

nRCPO 

RSPBUF 

ChLL 

DIP^ 

D 1 1' 

EPPOP 

EPPOPK 

EPPOPM 

EPPOPP 

EXITSS 

FPTQL 

F IfilTS 

GETS 

GncPS 

L ir<!T 

noi'S 

MUL 

OFFS 
FUTD 

puinc 

PUTTC 
PUITM 
QOPB-i 
Q 1 0% 
WTSE%S 



CPERTED BY 
CPOSS PEFERENCE 



MRCRO ON 6-DEC-77 PI 08 2^ 



MPME 



REFERENCES 

»3-28 

»5-l29 

;h-h8 

b-22i4 



«5-m9 

5-171 
«6-225 



«5-150 
B-177 
b-225 



»H-fe5 


«5-150 




«l-9 






»l-lb 


5-186 




81-32 






«1-H7 






«H-HS 


«6-222 


86-225 


«l-53 






8H-H8 


85-1S2 




«3-H3 






«^-4S 


S4-55 






5-122 


5-K3 


n5-17S 


5-178 


8b-2iH 


SH-75 


85-129 


85-m9 


«U-52 


n4-E.B 




n"^-c^: 






?3-3S 






M 7 -» 7 






f j - 3 i 






n3-'47 






;JH-E.2 


s^-b: 




tJH-us 


u-b: 




nU-4S 


fi5.-l"£ 


«b-::u 



PRGE 2 
CREF 



n 6 



86-222 
85-178 



86-225 
5-178 



86-2m 



6-211* 



86-222 



6-222 



86-22H 



b-::i 

6-214 



8b-::4 






n r - _ ^ 4 



N'TFIL HRCPO m\Q^ Ob-DEC-77 08:25 PRGE 1 



N 6 



t 




2 


000001 


3 


000001 


H 


000002 


S 


000000 


b 




7 




8 


ocoooo 


9 




to 




It 




\Z 




13 




tH 




15 




16 




17 




18 




19 




20 




21 




22 




23 




2H 




25 




2b 




27 




28 




2f 




30 




3t 




32 




33 




3H 




35 




36 




37 




38 




39 




HO 




HI 




H2 




fj 




HH 




H6 


•• 


H6 




H? 




HS 




%9 




50 




51 




52 




53 




5H 




55 




5b 





;PREFIX FILE FOR 2780 UflP RUNNING UNDER RSXtlM 

RSXrl 

RSXlin=l 

NTRNSF=2 ;NUnBER OF FILES - 1 TO TRPNSFER IN ONE CMMD STRING (3) 

NRCVSF=0 ;NUnBER OF FILES - 1 TO RECEIVE (1) 



;MRCPO 


DEFINITIONS 




TflGNUn= 







. MACRO 


ERROR TEXT 




ERRORK 


<TEXT> 




JSP 


PC. PROMPT 


•■ 


. ENDH 




; MfiCPC 


' TO DO P 


KILL AND QUE 


f 


. MRCRO 


ERPORK TEXT 




TPGNUn= 


TflGNUM+1 




. IRP 


N. < TflGNUM) 




JSP 


P5-TYPMSG 




. UOPD 


TflG'N 




, WORD 


TftGE'N-TflG'N 




. PSECT 


riESRG2.GbL 


TRG'N: 


. OSC 1 ! 


"TEXT" 


TRGE'N: 








. FSECT 


MAIN 




ENDn 






. ENDM 





MHCFO TO QUEUE A MESSAGE ONlY 

. MACRO EPROPM TEXT 
TAGNUn=TAGNUM+l 





. IRP 


N. <; TAGNUM) 




JSP 


R5.TYPMS1 




. UOPD 


TAG'N 




. UOPD 


TAGE'N-TRG'N 




. PSECT 


MESAGCGBL 


TAG'N: 


. ASC 1 1 


"TEXT" 


TAGE'N: 








. PSECT 


MA I N 




ENDM 






. ENDM 





MACRO rO QUEUE A MESSAGE AND PROMPT 
. MACRO ERROPP TEXT 



EPROPM 



"EXT 



JSP 
. ENDM 


PC- PROMPT 


. MACRO 
EPkX^PK 

JSr^ 

. ENDM 


FATAL T 

aEXT^ 

RB-DtE 



TEXT 



^B^S^^^ 



5as4^ g5«^5j{8tfyHat-ga{- 



e:T3Hyigg3:£gx:g:tHf H a;:£S~ia 



ssSesSsl 



fes^gfegytma 



NXTFIL nflCPO nnOH Ob-DEC-77 08:25 PRGE 2 



B 7 



I 

n 



4 
b 
8 

Q 

10 

11 
1 ■* 

13 

15 

lb 

1 c 

A — 

r? 

20 
21 

2B 

26 

27 

28 000000 

29 

30 

31 

33 
3H 

35 

36 

77 



TITLE 
IDENT 



NXTFIL 
/00006/ 



3S 

39 

^o 
41 

HZ 
H6 

l4^ 

46 
46 
47 
HS 
49 
50 
51 
52 
53 
54 
55 
56 
57 



GOOOOO 



000000 
000010 
000016 
000022 
000024 
000026 
000032 
000036 
000040 



COPYRIGHT (C) 1975, 1976, 1977 

DIGITPL EQUIPMENT CORPORATION, MflYNPIRD, MflSS. 



01754 



THIS SOFTWARE IS FURNISHED UNDER fl LICENSE FOR USE ONLY ON 
fl SINGLE COMPUTER SYSTEM AND MAY 3E lOPIED ONLY WITH 
THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS 
SOFTWARE. OR ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED 
OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO 
"^HESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF THE 
SOFTWfl'. SHALL AT ALL TIMES REMAIN IN DEC. 

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE 
WITHOUT NOTICE AND SHOULD NO! BE CONSTRUED AS A COM- 
MITdENT BY DIGITAL EQUIPMENT CORPORATION. 

DEC ASSUMES NO RESPONSIBILITY FOR THE USE OP RELIABILITY 
OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED By 
DEC. 

OPEN FOP PEflD NEXT FILE IN COMMAND STRING 
LAST MODIFICATION ON 16- JANUftP (-75 



. PSECT MAIN 

; MACRO CALLS 

. MCALL GETSS. CLOSES. 0FNB5P.FD0FF5 

FDOFFS DEFSL .: DEFINE FCS OFFSETS LOCALLY 



; + 



NPUTS: 



TRNSBLK = POINTEP TO LAST FILE NAME OPENNED 



CALL; 



NXTFIL - TO OPEN NEXT F ILE 

FSTFIL - TO OPEN FiRST FILE IN P lOMMAND STPiNG "TRANSMIT) 

OUTPUTS: 

ROUTINE UPDATES TRNSBLK AND OPENS NEXT KILE IF ANY 

RETURNS WITH "C" BIT SET IF AN OPEN FAILURE OCrUPPED 

PETURNS WITH "C" AND "2" BIT SET IF NO MORE FILES FPOn 
COMMAND STRING 



062767 
016700 
005710 
001427 
012701 
012705 
012025 
005301 



. IF DF RSX 
NXTFIL: : CLOSES SFDBIN 
ADD 



OOOOSbG OonnooG 

OOOOOOG FSTFIL: : MOV 

TST 
BEQ 

000017 MOV 

0001 n:b MOV 

lOS; MOV 
DEC 



; FIRST CLOSE THE F ILL 
«S. FNB+XMTSUT, TRNSBLK ; GET LOCATION OF NEXT FNB 
TRNSBLK, RO ; 
(RO) 

3ns ;LAST FNB FOP THIS COMMAND 

;JS. FNBWPl ; NUMBER OF WORDS IN FNb 
SFDBIN+F. FNB,R5 ;FDB FOR INPUT 
(RO.U... (R5)+ ;MOuE THE FNB 
Rl 



N/TFIL nflCPO MllOH Ofe-DEC-77 08: 25 



bS 0000142 


001375 




B9 0000^^ 


012701 


ooooooc 


bO 000050 


012^05 


OOOOOOG 


61 00005H 


012025 




62 000056 


005301 




63 000060 


001375 




64 000062 






65 000100 


000244 




66 000102 


000401 




67 000104 


000261 





69 000106 000207 



PfiGE 2-1 








BNE 


105 




MOU 


IIXnTSWT/2,Rl 




MOV 


(ISUT8N,R5 


155: 


nov 


(R0)+. (R5)+ 




DEC 


Rl 




BNE 


155 




0FNB5R 


»FDBIN 


205: 


CL2 


;flNO 




BR 


405 


305: 


SEC 




405: 


RTS 


PC 



C 7 



;NOT riNISHED 

;« OF WORDS OF XMIT SWITCHES 

;fiDDR OF FIRST SWITCH 

;nOVE fl SWITCH VALUE 
;ONE LESS SWITCH 

;riO\/E THE NEXT ONE 
;OPEN 

;flNOTHER FILE PT LEAST WAS FOUND 

;INDICfiTE ERROR CONDITION EXISTS 
;N0 FILES ARE OPENNED 



.J 



NXTFIL MhICPO nUOH 



7% 

72 

73 
7H 
75 
?h 
77 
72 
79 
SO 
81 
82 



C7 

SB 
S6 
87 
88 
39 
90 
91 
92 
93 
94 
9B 
9b 
97 



OGOUG 
O0C12O 
000122 
000130 



000132 
OOOlHb 
OOOIBO 



3b-DEC-77 08: 


25 


PRGE 3 

; «*-FSTGET 

; INPUTS; 
; NONE 

• 

; OUTPUTS: 



D 7 



ROUTINE TO 00 THE FIRST GET flFlER THE FILE 
RNO POINTED TO IF NECESSARY 



S OPENNED 



SEQUENT I fiL GET ON THE FILE OPENNEO IN NXTFIL IS DONE 
RO !^ DESTROYED. 



103013 
122760 
001406 



FSTGET. 



GOOCOOb 000052 



. ENflBL 


LSB 


GET?3 


«FDBI 


BCC 


30S 


CMPB 


81E. E 


BEQ 


205 



N, 



DO 
NO 



000261 
000207 



ooono! 





EPPOP 


<IN 


20%: 


SEC 




30%: 


PTS 


PC 




. DSflBL 


LSB 




. ENDC 






. END 





THE GET 
ERRORS 
0F,F. ERRfRO) ; END OF FILE 

.YES, NO ERROR MESSAGE 

THIS CAN OCCURR IF PIN RUI UflS RECEIVED 
ON THE NEXT TO LOST RECORD. WHEN THE 
LAST RECORD IS READ THE GET IS NOT DONE 
AND HENCE THE EOF CONDITION 
IS NOT DETECTED 
GIVE ERROR MESSAGE 
SET CARRY 
PETURN 



EPP> 



NXTF IL 
SvriBOL 



MQCPO 
TPBLE 



nnOH Ofe-DEC-77 08:25 PfiGE 3-1 



E 7 



FOB IN = 
FO. PD = 
FSTFIL 
FSTGET 
F «CTL= 
PLOC = 
BBFS= 
BOB = 
BGBC = 
B:'DN= 
BK.DS= 
BKEF = 
BKPl- 
BKST = 
BK'/B- 
CHF = 
CNTG= 
DFNB = 



F 
F 
F 
F 

F 
F 

f 

F 



. RBS. 

MR IN 

MESflG2 

ERRORS 



tutn Gx 

tttttt GX 

000016RG 

OOOnORG 

000076 

OOOOHO 

000062 

000070 

000067 

000026 

000020 

000050 

000051 

00002H 

00006H 

000075 

U0002H 

OOOOHb 



000000 
000000 
000152 
OCOOOb 
DETECTED: 



002 
002 



000 
001 
002 

003 



. DSPT= 


OOOOHH 


F NREC= 


000030 


NTRNSFs 


000002 




S. FOB = 


000140 


. DVNn= 


0001 3H 


F OVBSs 


000030 


NXTFIL 


OOOOOORG 


002 S. FNflns 


000006 


. EFBK= 


000010 


r.RRCC = 


000016 


N. DID s 


000024 




S. FNB = 


000036 


. EFN = 


000050 


r RRTT= 


000001 


N. Dl/NMs 


000032 




S. FNBUs 


000017 


EOBB= 


000032 


F. RCNn= 


00003H 


N.FID = 


000000 




S. FNTY= 


000004 


. ERR = 


000052 


F.RCTL = 


000017 


N. FNRfls 


000006 




S. FTYP= 


000002 


. FRCC= 


0000H3 


F. RSIZ= 


000002 


N. FTYPs 


000014 




S. NFENs 


000020 


. FFBY= 


oooom 


F. RTYP = 


000000 


N. FJERs 


000016 




TRGEl 


000006R 003 


. FNRri= 


000110 


F. SEQN= 


000100 


N. N£XT= 


000022 




TRGNUMs 


000001 


. FNB = 


000102 


F. SPDV= 


000072 


N. STPTr 


000020 




TRGl 


OOOOOOR 003 


. FTYP= 


000116 


F. SPUN= 


000074 


N. UNIT- 


000034 




TRNSBL= 


tttttt GX 


. FVER= 


000120 


F. STBK= 


000036 


PRR$iS= 


000027 




TYPMSGs 


tttttt GX 


. HIBKr 


000004 


F.UNIT= 


000136 


PROMPTS 


nntt 


GX 


XMTSWTs 


tttttt GX 


. LUN = 


O000H2 


F. URBD= 


000020 


RSX = 


GOOOOl 




. CLOSES 


tttttt G 


. nBCT= 


00005H 


F. VBN = 


000064 


PSX11M= 


000001 




. GETSQ= 


tttttt G 


. nBCl= 


000055 


F VBS2= 


000060 


SWTBN = 


tttttt 


GX 


. OPFNB= 


tttttt G 


. nBFG= 


000056 


IE EOF= 


****** GX 


S. FRTT= 


000016 




...TPC= 


000140 


NRBD= 


000024 


NPCVSF= 


OCOOOO 













VIRTURL MEMORY USED; 1933 WORDS 
DYNRMIC MEMORY: 2S10 UOPDS ( 10 
ELRPSED TIME: 00: OC. 15 
256,020 NXTFIL. 27. 256^030 NXTFiL. 



I S PRGES) 
PPGES' 

PF ■-SF = UPPRXM,NXTF' iL 



NXTFIL CPERTED BY 

SYMBOL CROSS REFERENCE 

SYMBOL URLUE 

FDBIM = tttttt 

FO. RD = tttttt 

FSTFIL 000016 

FSTGET OOOnO 

F ERR = 000052 

F FOCC = 0000H3 

F, FNB = 000102 

IE. EOF = tttttt 

NPCVSF = 000000 

NTPNSF = 000002 

NXTFIL 000000 

PqPSSS = 000027 

PROMPT = tttttt 

»SX = 000001 

PSXUM = 000001 

SUTBN = tttttt 

S. FNB = 000036 

S. FNBW = 000017 

TRGEl 000C06 P 

TRGNUn = OOOGOl 

TRGl 000000 R 

TRNSBL = tttttt GX 

TYPMSG = ****** GX 

XMTSWT =****** GX 

. CLOSE = ****** G 

. GETSQ = ****** G 

. OPFNB = ****** G 



GX 
GX 

RG 

RG 



GX 



RG 

GX 



GX 



MPCRO ON fe-DEC-77 AT 08: 25 



REFERENCES 
2-49 
2-64 

»2-51 
«3-84 

3-86 
*2-64 

2-55 

3-86 
»l-5 
«l-4 
«2-49 
«2-49 

3-93 
81-2 
81-3 

2-60 

2-50 

2-54 

3-93 
81-S 

3-93 
*:-50 

3-9^ 

2-60 

2-49 

3-S4 

2-64 



2-49 



2-49 
2-48 



83-93 
3-93 
3-93 
2-51 

2-59 
:-49 
3-S4 
:-b4 



2-55 



PRGE 1 
CREF 

2-64 



F 7 



2-64 



3-84 



3-84 



82-t4 



2-64 83-84 



3-84 



•♦ 7 

n ^' 



^3 



>93 



n:«tf il 


CREQTED BY 


MACRO ON 


nPCPO CP03S 


REFERENCE 




MRCPO NRME 


REFERENCES 


CLOSES 


«2-31 


2-H9 


cnousB 


RZ-e^ 


«2-fei4 


cnovsu 


82-bH 


«2-6'4 


EPPOP 


M-9 


3-93 


EPPOPK 


»t-16 


3-93 


EPPOPn 


»l-32 




EPPOPP 


81-H7 




EPPS 


«2-H9 


n-^9 


FfiTRL 


«l-53 




F DOFFS 


S2-31 


«2-32 


FDOP^R 


»2-6H 


2-614 


rnpf^p 


»:-6H 


82-6H 


OETSS 


«:-3i 


»3-SH 


.OF DBS 


«2-H9 


2-U9 


■FMBS , 


»2-b4 


ft:-b4 


^^t^BSF 


«2-31 


»2-b4 



6-DEC-77 RT 08 25 



PfiGE 
CREF 



G 7 



«2-6^ 
«2-64 



»2-fe^ 
»2-6i* 



»2-6^ 



«2-6H 



i2-bi4 



2-bH 



^l2-fe^ 

ll2-bW 



:2-6^ 
»2-6H 



»2-6i* 



83-8H 



»J-8H 



«3-8H 



»3-8^ 



»3-S4 



»2-6U 



2-6H 



83-84 



3-84 



pppsE n«cpo nno^ oe-DEC-?? 08: 26 prge i 



H 7 



t 




z 


000001 


3 


000001 


«♦ 


000002 


6 


000000 


l» 




7 




8 


ocoooo 


9 




10 




It 




12 




13 




IH 




IS 




1^ 




17 




t8 




19 




20 




Z\ 




22 




23 




2H 




2S 




26 




27 




28 




29 




30 




31 




32 




33 




3*» 




35 




36 




3? 




38 




39 





40 

m 

•42 

UH 
45 
4b 
47 
4S 
49 
50 
61 



;PREFIX FILE FOR 2780 UfiP RUNNING UNDER RSXllM 
RSX=1 

Rsxiin=i 

NTRNSF=2 
NRCUSF=0 



; NUMBER OF FILES - 1 TO TRPMSFEP IN ONE CMflD STRING (3) 
.NUMBER OF FILES - 1 TO RECEIVE (1) 



;MfiCRO DEFINITIONS 
TRGNUM=0 

. MPCRO ERROR TEXT 
ERRORK <TEXT> 
JSP PC, PROMPT 
. ENDM 

; MfiCRO TO DO R KILL RND QUEUE THE MESSRGE 



. MRCRO ERRORK TEXT 
TRGNUM=TRGNUnil 

. IRP N, < TRGNUM) 

JSP P5,TYPMSG 

WORD TRG'N 

, WORD TRGE'N-TRG'N 

.PSECT MESRG2-GBL 

. flSCII "TEXT" 



TRG'N; 
TflGE'N: 



PSECT 

ENDM 

ENDn 



nfliN 



MflCPO TO QUEUE fl MESSRGE ONLY 





. MRCPO 


ERROPM TEXT 




TRGNUM= 


TRGNUM+1 




. IRP 


N, < TRGNUM) 




JSP 


P5.TYPMS1 




WORD 


TRG'N 




. WORD 


TRGE'N-TRG'N 




. PSECT 


MESRG2-GBL 


TRG'N: 


. flSCI 1 


"TEXT" 


TRGE'N: 








. PSECT 


MR 1 N 




. ENDM 






. ENDM 





MRCPO TO QUEUE fl MESSAGE AND FPOflPT 

. MRCRO ERPOPP TEXT 

ERROPM aEXT) 

JSP PC. PROMPT 
. ENDM 



63 

64 

5b 



MRCRO 
ERRORK 
JSP 
. ENDM 



FRTRL 

<TEXT:^ 
PS-DlE 



TEXT 



PPPSE nPCPC nnOH Oe-DEC-?? 08: 26 PRGE 2 



t 

2 

3 

^ 

s 

7 

8 

9 

10 
l! 
1 2 

u 

b 

— ^ 

c 
9 

20 

:i 

-> ■-> 

-"> 7 
«• -I 



2b 
17 
28 
29 
30 
31 
32 
33 
3H 
35 
3b 
37 
3S 



000000 



ooocoo 

000000 



HO 

141 

42 

44 
46 
4b 
47 
4S 
49 
SO 

51 000000 

52 00002^ 

53 000026 

54 000030 

55 000034 
5b 000040 
57 000062 



103531 
010201 

005067 OOOOOOG 

103501 



• TITLE PARSE 
. I DENT /00005/ 

COPYRIGHT (C) 1975. 1076. 1077 

DIGITRL EQUIPflENT CORPORRTION. MRYNflRD, MflSS. 0175^ 

THIS SOFTWRRE IS FURNISHED UNDER fl LICENSE FOR USE ONLY ON 
R SINGLE COMPUTER SYSTEM RND MRY aE COPIED ONLY WITH 
THE INCLUSION OF THE RBOVE COPYRIGHT NOTICE. THIS 
SOFTWRRE. OR ANY OTHER COPIES THEREOF, MRY NOT BE PROVIDED 
OR OTHERWISE MROE RUfllLRBLE TO RNY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM RND TO ONE WHO RGREES TO 
THESE LICENSE TERMS. TITLE TO RND OWNERSHIP OF THE 
SOFTWRRE SHALL AT ALL TIMES REMAIN IN DEC. 

THE INFORMRTION IN THIS DOCUMENT IS SUBJECT TO CHANGE 
WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COM- 
MITMENT BY DIGITAL EQUIPMENT CORPORATION. 

DEC ASSUMES NO PESPONS IB I L I TY FOP THE USE OP RELIABILITY 
OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED By 
DEC, 

VERSION 

POBEPT H. POSENBAUM l-AUGUST-74 

LAST MODIFICATION ON 3-MAPCH-75 

CHANGED TO AVOID DEFAULT FILE SPEC DELETEING OTHER SWITCHES 

CLARISE E, PATTOH ?,/77 

PARSE OUTPUT FILES 

. PSECT MAIN 



S2.- CS i %SW, CS I SS'". CS I 5ND- FD0FF5. FCSBTS, CALL 



ICRO CALLS 




. MCALL 


CSISl 


. MCALL 


DIPS 


FCSBT% 


DEFSL 


FDOFFS 


DEF%L 



; + 

; INPUTS; 

; TAKES ITS INPUT FROM THE TELETYPE COMMAND STRING 

; R2 = RCVBLK+2 'BLOCK WHERE INPUT FILES APE TQ BE PARSED TO) 

; OUTPUTS: 

; FILLS IN THE RECEIVE BLOCK (PCVBLK) AS THE INFO MUST 

; APPEAR IN THE FOB FOR THE OPEN 

. IF DF PSX 

. ENABL LSB ; ENABLE LOCAL SYMBOL BLOCK 

PENTEP: : CSISl »FILDES.FILDES+C. CMLD+2,FILDES+C. CMLD 

BCS 70% 

MOV R2,R1 ;RCVBLK AREA 

lOS: CALL CLRRSW ; INITIALIZE COMMON FECu SNITCH flPEh FOP PARSE 

CLR SWRDF ; CLEAR DF SWITCH TOO 

CSI52 ttFILDES- OUTPUT. ;SWPAB 

BCS 60S 



PfiPSE MflCPO nnOM Ob-DEC-77 08:26 PIhGE 2-1 



J 7 



69 
bO 
bl 
b2 
63 
bH 
66 
6b 
67 
bS 
69 
70 

7 1 



7U 

7B 

76 

77 

73 

79 

80 

81 

82 

83 

8H 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

9S 

96 

97 

QC 

99 
lOU 
101 



000064 
000070 
00007H 
000100 
000102 
000106 
000110 

oooim 

000120 
000122 
000124 
000132 
000134 
000140 
000142 
000146 
000162 
000166 
000162 
000164 
000166 
000170 
000172 
000200 
000202 
000206 
000210 
000216 
000232 
000234 
000240 
000242 
000246 
000260 
000264 
000266 
000272 
000306 
000310 
000314 
000330 
000 3 3b 
00034 



012700 
012702 
012703 
010146 
106767 
001402 
012701 

012601 
103462 
132761 
001066 
105767 
001014 
062701 
012704 
012700 
012703 
011324 
012321 
006300 
001374 
132767 
001416 
020127 
103710 
012777 

000436 
105767 
001002 
012711 
000207 

000421 
004767 

000410 
004767 

012777 

nno26l 

000207 



OOOOOOG 
000006G 
OOOOOOG 

OOOOOOG 

OOOOOOG 



000070 000020 

OOOOOOG 

000036 
OOOOOOG 
OOOOOOC 
OOOOOOG 



125: 



15%: 



000020 GOOOOIG 17S: 
OOOOOOG 



177 



r" I f 



OOOOOOG 



OOOOOOG 



1 '' i' > < I 



OOOOOOG 



OOOOOOG 



lOS: 



215: 
505: 

60S: 



705: 



177777 OOOOOOG S05: 



MOV 
MOV 
MOV 

nov 

TSTB 
BEQ 
MOV 
CALL 
MOV 
BCS 
BITS 
BNE 
TSTB 
BNE 
ADD 
MOV 
MOV 
MOV 
MOV 
MOV 
DEC 
BNE 
BITB 
BEQ 
CMP 
BLO 
MOV 

EPPOPr 
BR 

TSTB 
BNE 
MOV 
PTS 

ERPOPP 
BP 
JSP 

EPPOPP 
BR 
JSR 

ERPOPP 
MOV 
SEC 
PTS 
DShBL 



4IFDB0U0.ro 

«FILDESK.DSDS 

II0F8LK.R3 

RU-(SP) 

SURDF 

125 

«CFNLP,R1 

. PPRSE 

(SP)i,Rl 

605 

«NB. SVRINB. SNM 

705 

SWRDF 

175 

»S FNB.Rl 

KSUR6N,R4 



;?RCVSWl/2. 



PO 



8SWPB1.R3 
(R3),(P4) + 

(P3)+, (Rl)+ 

RO 

155 

«CS. MOR-C. STflT 



;FDB FOR OUPUT FILES 
.?.Z ;OflTflSET POINTER 

; DEFAULT FILE NOME BLOCK 
;SflVE LOCRTION TO PPPSE TO 
; REQUEST TO CHANGE DEFAULT RECV FILE? 
;N0 
;YES. PARSE TO DEFAULT NAME BLOCK 

; RESTORE Rl AND STACK POINTER 

; ERROR FOUND FROM PARSE 
!NB. STP.N. STAT(Rl) 

;BAD FILE OR VERSION 

; REQUEST TO CHANGE DEFAULT RECV FILE'' 

;YES SKIP SWITCH PROCESSING 

; NUMBER OF BYTES IN FNB 

; ADDRESS OF PERMANENT SWITCHES 

,t OF WORDS OF RECEIVE SWITCHES 

;ADDR OF FIRST TEMPORARY SWITCH 

;MOVE TO PERMANENT SWITCHES 

;MOVE TO RECEIVE BLOCK AREA 

;ONE LESS SWITCH 

;MOVE THE NEXT ONE 
^FIlDES 



205 



P1,?RCVSE 

105 

«-l.iPCVBLK 

<T00 MANY RECV 

S05 

SWRDF 

215 

8 - 1 - 1 P 1) 

PC 

•PQPSE FOIL- 

S05 

PC^CSIEPP 

(Ml SWITCH' 

S05 

PC CSlEPP 

<UILD CORD FND; 

n- 1 . iPCVBLK 

PC 



; ST ILL MOPE ROOM 
;T00 MANY FILES SPECIFIED 
FILES) 

TAKE ERROR EXIT 

DID WE JUST PROCESS P DEFAULT FILE"? 

YES 

MARK END Of^ PEC'/ BLOCK AREA 



PR INT THE STRING IN ERROR 



PRINT THE STRING IN EPPOP 



; INDICATE EPPOP EXISTS 
; RETURN TO CRlLLR 



tpP'IE 


nfiCPO nll0^ 


Ob- 


■DEC-77 


08; 2b 


103 












IGU 












105 












10b 


000342 










107 


0003H2 










108 


0003S2 










109 


000362 










110 


000372 










in 


000402 










112 


000412 










113 


000422 










im 


000432 










IIB 


000^3^ 










1 lb 


0004 UQ 










117- 












lis 




000001 



















PPGE 3 



K 7 



COnnRND STRING INTERPRETER'S SWITCH TABLE 



SURAB: 



CS 
CS 
CS 
CS 
CS 
CS 
CS 



ssu 
ssu 
ssu 

ssu 

ssu 
ssu 



VAlU: 



CSISND 
CSISSV 
CSiSND 
. ENDC 
. END 



6I.200.SURB1 

SL,200,SURS1 

RC,200RCHN1 

FX,R. FIX,RTYPI,, 

FN.FO. FTN,RflTTl 

TK,220,SURB1 

DF,200,SURDF 

NUMERIC. RURLl. 2 



VAlU 



PRPSE 


HRCPO nno^ 06 


-DeC-77 08: 26 PRGE 3-1 




L 


7 












IrMBOL 


TRBLE 






















CHPSS = 


000106 


FR. 


TnP= 000020 


F. flLOC = 


000040 


F. RTYPs 


000000 




RSX = 


OOOOGl 




•:h. RND= 


000001 


FR. 


WCK= 020000 


F.BBFSs 


000062 


F. S£QN= 


000100 




RSXllMs 


0000G1 




CLPPSW= 


%tt\t% GX 


FR. 


URT= 000002 


F. BOB = 


000070 


F. SPDV= 


000072 




RTYPl = 


tttttt GX 




CNT%% X 


000002 


FDBOUO= tttttt GX 


F. BGBC = 


000067 


F. SPUNs 


000074 




RVRLl = 


tttttt GX 




CSIERP= 


\%t%%% GX 


FD. 


BLKr 000010 


F. BKON= 


000026 


F. STBK= 


000036 




R. FIX = 


GOGOOl 




CS.DIF = 


000002 


FD, 


CCL= 000002 


F. BKOS= 


000020 


F. UNIT= 


0G0136 




R. SEQ = 


0GG0G3 




CS 


DUF = 


OOOCOH 


FD. 


con= 020000 


F. BKEF = 


OOOO&O 


F. URBD= 


000020 




R. VRR = 


0000G2 




CS 


EQU= 


OOOCi+0 


FD. 


CR = 000002 


F. BKPlr 


000061 


F. V3N = 


GG0064 




SIZM = 


000002 




CS 


1NP = 


000001 


FD. 


DIR= 000010 


F. BKSTs 


000024 


F. U3SZ= 


000060 




SURRB 


00034 2R 


002 


i-c 


flOR = 


000020 


FD. 


FTN= 000001 


F BKVB= 


000064 


NB. OEU= 


GG0200 




SURBN - 


tttttt GX 




CS 


\m- 


000001 


FD. 


Fll= OHOOOO 


F. CHR = 


000076 


NB. DIR:^ 


0G0100 




SURBl = 


tttttt GX 




CS 


OUT = 


000002 


FD. 


INS= 000010 


F. CNTG= 


000034 


NB. NRn= 


GGGGG4 




SWRDF = 


tttttt GX 






ULD- 


000010 


FD. 


ISP= 002000 


F. DFNB = 


000046 


NB. SOU 


QG0400 




SWRSl = 


tttttt GX 




c.'cnLD= 


000002 


FD 


MNT= 100000 


F. DSPT= 


000044 


NB. SD2= 


OOIOGO 




S. FRTTr 


000016 




C. DE'.'D = 


DOCCOb 


FD. 


OSP= 004000 


F. DUNMs 


000134 


NB. SNn= 


000040 




S. FOB = 


000140 




C DIPD= 


000012 


FD. 


PLC= 000004 


F. EFBKr 


000010 


NB. STP = 


GG0020 




S. FNfln= 


000006 




■: csDS= 


OOCOOfe 


FD 


PSE= 010000 


F. EFN = 


000050 


NB. SVRs 


GGOOIO 




S. FNB = 


000036 




C. FILD:: 


000016 


FD. 


RRH= 000001 


F. EOBB = 


000032 


NB. TYP = 


000002 




S. FNBW= 


000017 




c. riKwu 


00002H 


FD 


RRN= 000002 


F. ERR = 


000052 


NB. VER = 


OGOOOl 




S. FNTY= 


000004 




C nKU2= 


00002b 


FD. 


PECr 000001 


F FRCC= 


000043 


NRCUSFr 


OGOOOO 




S. FTYP= 


000002 




C. SIZE= 


0000B4 


FD. 


Rwn= 000001 


F. FFBY = 


000014 


NTRNSF= 


000002 




S. NFEN= 


000020 




C. STRT= 


000001 


FD. 


SDl= 000020 


F. FNRM= 


000110 


N. D 1 D = 


000024 




TRGEl 


000023R 


003 


C. SURD= 


000022 


FD. 


SQD= 000040 


F. FNB = 


0001C2 


N. DVNn= 


000032 




TRGE2 


000035R 


003 


C. TYPR= 


000000 


FD 


TTY= 000004 


F. FTYP = 


000116 


N. FID = 


000000 




TRGE3 


000047R 


003 


DFBLK = 


t\t%\% GX 


FD. 


UBH= 000002 


F FVER= 


00G120 


N. FNRn= 


000006 




TRGE4 


000064R 


003 


DFNLP = 


%%%%%% GX 


FF. 


CHP= 000005 


F HIBK= 


000004 


N. FTYP = 


000014 




TRGNUri= 


000004 




FR. flPD= 


000100 


FF 


m - 000003 


F. LUN = 


000042 


N. FVER = 


000016 




TRGl 


OOOOOOR 


003 


FR. CRE = 


000010 


FF 


POE= 000002 


F MBCT= 


000054 


N. NEXT= 


000022 




TRG2 


000023R 


003 


FR. DLK = 


001000 


FF. 


RUID= 000001 


F. riBCl = 


000055 


N. STflT= 


000020 




TflG3 


000035R 


003 


FR. ENB = 


100000 


FF. 


RUF= 000006 


F MBFG= 


000056 


N. UNIT = 


000034 




TRG4 


000047R 


003 


FR. EXC = 


002000 


FF. 


SPC= 000004 


F NPBD= 


000024 


PRPS5S= 


000027 




TYPMS1= 


tttttt GX 




FR. EXT = 


OOOOOH 


FILDES= ****** GX 


F. NPEC = 


000030 


PENTER 


GCOnOOPG 


002 VRLU 


000434R 


002 


FR. NSP = 


000100 


FO 


RPD= 000106 


F. OVBS = 


000030 


PROnPT= 


****** 


GX 


55 


000000 




^^ POS= 


010000 


^^ 


nFY= 000002 


F. RRCC = 


00001b 


PPTTl = 


****** 


GX 


. CSll = 


****** G 




FR. RD = 


000001 


FO. 


RD = 000001 


F. PRTT = 


000001 


PCHNl = 


****** 


GX 


. CSI2 = 


****** G 




FR RWD= 


004ono 


FC. 


UPD= 000006 


f^ PCNn = 


000034 


PCl/BLK = 


****** 


GX 


. PRPSE= 


****** GX 




^^. 3EQ = 


OHOOOO 


FO. 


WP^= 000016 


F PCTLr 


00QC17 


RCV'SE = 


****** 


GX 


. . . GBL= 


000000 




FR SHF= 


OOOOun 


F. P 


)CTL= 000076 


F. RSIZ- 


coooo: 


RCI'SW1 = 


****** 


GX 


. . . TPC= 


000140 




. RBS. 


000000 000 
000000 001 






















MR IN 


000^42 002 






















hesrg: 


oooob4 \^zz 






















EPfi 


^OPS DETECTED. 























UIRTURL MEnORY USED: 3?40 U- 
DYNRMiC MEMORY. 4922 WORDS 
ELRPSED TIME: 00- 00: 33 
256,020 PRPSE.;27. 256-030 FflPSE 



PDS I lb PmGES» 
\ IS PAGES' 



■CPF.'-SP = UOPP,yn.PflPSE 











































M 7 










PftPSE 




CPERTED BY 


MRCRO ON 6- 


-DEC-77 RT 


08: 26 


PAGE 1 












SVMBOL 


CROSS REFERENCE 








CREF 












SYMBOL 


VRLUE 




REFERENCES 


















CHPSS 


= 


OOOlOfe 




«3-107 


3-107 


3-107 


83-107 


3-107 


3-107 


83-108 


3-108 


3-108 










83-108 


3-108 


3-108 


83-109 


3-109 


J-109 


83-109 


3-109 


3-109 










83-110 


3-110 


3-110 


83-110 


3-110 


3-110 


83-111 


3-111 


3-111 










83-111 


3-111 


3-111 


83-112 


3-112 


3-112 


83-112 


3-112 


3-112 










83-113 


3-113 


3-113 


83-113 


3-113 


3-113 








CLPPSU 


z 


****** 


GX 


2-5H 


















CM"''%* 


- 


000002 




83-107 


3-107 


83-1G7 


3-107 


3-107 


83-107 


3-107 


83-108 


3-108 










83-108 


3-108 


3-108 


83-108 


3-108 


83-109 


3-109 


83-109 


3-109 










3-109 


83-109 


3-109 


83-110 


3-110 


83-110 


3-110 


3-110 


83-110 










3-110 


83-111 


3-111 


83-111 


3-111 


3-111 


83-111 


3-111 


83-112 










3-112 


83-112 


3-112 


3-r.2 


83-112 


3 112 


83-113 


3-113 


83-113 










3-113 


3-113 


8 3-113 


3-113 












CSsEPP 


= 


****** 


GX 


2-93 


2-96 
















CS. nop 


r 


000020 




2-SO 


















cs. OUT 


= 


000002 




2-56 


















c. cniD 


r 


000002 




2-Sl 


*2-51 


2-51 


*2-51 












C. OSDS 


- 


00000b 




2-c;q 


















C. SIZE 


r 


00005H 




2-51 


2-56 
















C. STRT 


:: 


OOUOOl 




2-SO 


















C. SURD 


= 


000022 




*2-S6 


















DFBLK 


3 


****** 


GX 


2-60 


















DFNLP 


= 


****** 


GX 


2-bH 


















FDBOUO 


z 


****** 


GX 


2-5S 


















FD. FIN 


z 


000001 




3-111 


















FILDES 


~ 


****** 


G^-' 


2-51 


:-5i 


2-51 


^ — A 




2-56 


2-5? 


2-20 




NB. SNM 


z 


OOOOHO 




2-bS 


















NB. SIP 


~ 


000020 




2-bS 


















NB. SVR 


z 


000010 




2-feS 


















NRCVSF 


z 


000000 




81-5 


















NTRNSF 


— 


000002 




81-M 


















N. STRT 


z 


000020 




2-t£ 


















PRR%%% 


- 


000027 




82-51 


2-51 


82-5b 


2-5t 












RENTER 




000000 


RG 


82-51 


















PROMPT 


= 


****** 


GX 


2-S5 


2-91 


■-94 


2-9'." 












RRTTl 


z 


****** 


GX 


3-111 


















PCHN! 


r 


****** 


bX 


3-109 


















PCi/BLK 


: 


****** 


GX 


2-84 


















PC USE 


z 


****** 


GX 


2-82 


















PC USUI 


- 


****** 


GX 


2-7H 


















PSX 


- 


000001 




81-2 


2-H9 
















PSXllM 


r 


000001 




81-3 


















PTYPl 


= 


****** 


GX 


3-110 


















P'.'HiLl 


- 


****** 


GX 


3-115 


















P. Fix 


z 


000001 




3-110 


















S 1 L'SS 


z 


000002 




83-107 


3-107 


3-107 


3-lC^ 


8 3-10. 


3-1 OS 


:-ios 


3-1 OS 


83-109 










3- 1 09 


3-103 


3-109 


8:-110 


3-110 


3-110 


3-110 


8 3- IV 


3-111 










3-111 


3-111 


83- 112 


3-112 


3-ii: 


z-ii: 


8 3-113 


3-113 


3-113 










3-113 


















SUPRB 




0003^2 


P 


2-56 


8"- 1 06 
















SUPBN 


z 


****** 


GX 




















SUPBl 


z 


V*.**** 


GX 


2-75 


3-107 


3-! 12 














SURDF 


z 


****** 


GX 


*2-55 


„ - n ^ 


2-70 


2-S7 


3-ii: 











N 7 



FftPSE 


CPEfiTED BY 


nflCRO ON 6 


-DEC-77 AT 


OS: 26 


P«GE 2 












SYMBOL 


CPOSS REF^ 


:rence 








cpj:f 












SYMBOL 


•"RLUE 




REFERENCES 


















SUP SI 


= **««** 


GX 


3- '08 


















S. FNB 


= ooooze 




2-^2 


















TRGEl 


000023 


R 


2-'i5 


«2-85 
















trge: 


000035 


R 


2-91 


82-91 
















ThGEZ 


0000U7 


R 


2-91- 


82-9^ 
















TqGEi4 


OOOObH 


R 


2-97 


82-97 
















TPGNUM 


= OOOOOH 




«l-8 
2-91* 


*2-85 

2-97 


»2-85 

82-97 


2-85 
2-97 


2-91 


82-91 


2-91 


2-9^ 


82-9^ 


TPGl 


000000 


R 


2-S5 


2-85 


82-85 














"TQGZ 


000023 


R 


2-91 


2-91 


82-91 














-QGZ 


000035 


R 


2-9»4 


2-9^ 


82-94 














^mG4 


0000^7 


R 


2-97 


2-97 


82-?7 














TYPMSl 


= ♦*♦*** 


GX 


2-S5 


2-91 


2-94 


2-97 












Vf^LU 


000H34 


R 


3-110 


83-115 
















%% 


= 000000 




«3-ia7 


3-107 


83-107 


3-107 


83-107 


3-107 


83-107 


3-107 


83-108 








3-103 


;t3-108 


3-103 


83-108 


3-108 


83-108 


3-108 


83-109 


3-109 








;3-:o9 


3-109 


8 3-1C9 


3-109 


8 3-109 


3-109 


83-110 


3-110 


83-110 








3-110 


83-110 


3-110 


83-110 


:-iio 


83-111 


2'\\\ 


83-111 


3-111 








«3-in 


3-111 


83-1 11 


Z-111 


83-112 


3-112 


83-112 


3-112 


83-112 








3-112 


83-112 


^-112 


8:-n3 


3-113 


83-113 


3-113 


83-113 


:-ii3 








83-113 


Z-113 
















CSll 


r ♦♦♦*** 


G 


:-5i 


2-51 
















. CSi2 


= iiiiii 


G 


:-Eb 


2-56 
















PflP''^ 


- ami 


GX 


2-b5 



















tsMJ}3J«iJdtJtffiJ Sgg! stfet:ti;sia^d:dMia«dbJ»a^d;£A ^^ 

















B 8 


PflPSE 


CPEfl 


TED BY 


nRCRO ON 6- 


'DEC-77 RT 08: 


26 


PAGE 3 


npcpo cposs 


REFERENCE 










CREF 


r.fiCRO NRnE 




REFERENCES 










CRLL 




«2-3b 




82-5H 


82-65 






CSIS 




»2-51 




»2-5fc 








CSISND 




«2-:fe 




»3-im 


83-116 






CSISSV 




?2-3b 




«3-115 








CSISSU 




;2-36 




83-107 


83-108 


83-109 


87-110 


CSISl 




«2-3b 




82-51 








CSIS2 




«2-3b 




2-56 








DIPS 




«2-37 












EPPOP 




»l-9 












EPPOPK. 




«l-lfe 












Lf'POPM 




nl-32 




82-S5 


82-91 


82-?u 


82-97 


ECPOPP 




S1-H7 




2-85 


2-91 


2-OLj 


2-97 


FOTflL 




«l-53 












FCSBTS 




«2-3b 




2-38 








f'DOFFt 




n2-36 




2-39 








.DPO* 




^:-5! 




2-51 


82-56 


2-56 





83-111 



83-112 



83-113 



QUEHHt^ 


MRCPO nn04 Ofe-OEC-77 08 


I 




2 


OOOOOl 


3 


000001 


H 


000002 


S 


000000 


6 




7 




8 


ocoooo 


9 




lU 




11 




12 




13 




U 




IS 




lb 




1 . 

IS 




r? 




20 




21 




22 




^0 w 




24 




26 




26 




27 




28 




29 




30 





PRGE 1 



C 8 



31 
32 

34 
35 
3fa 
37 
38 

40 
41 
42 
4i 
44 
45 
46 
47 
4S 
hS 
50 
51 
52 
53 
54 
55 
56 



;PREFIX File FOR 2780 UflP RUNNING UNDER RSXllM 

RSXrl 

RSXlin=l 

NTRNSF=2 ;NUn8ER OF FILES - 1 TO TRANSFER IN ONE CMMD STRING (3) 

NRCVSF = ;NUriBER OF FILES - 1 TO RECEIVE (1) 



;riRCRO 


DEFINITIONS 




TflGNUns 







. nflCRO 


ERROR TEXT 




ERRORK 


<TEXT> 




JSR 


PC, PROMPT 


* 


. ENDM 




, nfiCRo 


TO DO P 


KILL RND QUE 


i 


. nOCPO 


ERRORK TEXT 




TflGNUM= 


TPGNUM+1 




. IRP 


N, < TflGNUH) 




JSR 


R5,TYPnSG 




. UORD 


TflG'N 




. UORD 


TflGE'N-TflG'N 




. PSECT 


riESflG2,GBL 


TflG'N: 


. flSCII 


"TEXT" 


TRGE'N: 








. PSECT 


Mfl i N 




. ENDM 





ENDU 



MPICRO TO QUEUE fl MESSAGE ONlY 



. nflCPO ERRORM TEXT 
TflGNUn=TflGNUri + l 

.IRP N, < TflGNUn> 

JSP R5,TYPnSl 

.WORD TflG'N 

. WORD TflGE'N-TflG'N 

.PSECT nESflG2. GBL 

.ASCII "TEXT" 



TflG'N: 
TflGE'N: 



PSECT 

ENDn 

ENDM 



MAIN 



nflCRO TO QUEUE fl MESSflGE AND PPOnPT 

. MflCRO ERRORP TEXT 

ERROPn <TEXT> 

JSR PC.PPOnPT 
. ENDM 



nflCPO FflTflL 

ERRORK <TEXT> 

JSP R5.DIE 
. ENDM 



TEXT 



"iUEHPN MRCPO nnO^ Ob-OEC-77 08: 26 PRGE 



2 



D 8 



t 
2 
3 
H 
6 

7 
8 

to 

U 
12 
13 

IH 
IB 
16 

17 
18 

19 
20 
21 

22 

23 

m 

25 

26 

27 

28 

29 

30 

31 

32 ilOOOOO 

32 

3H 

3B 

36 

37 

3S 

39 000000 

40 000000 

m 

42 
43 
4H 
45 
46 
47 
4S 
49 
50 
51 

53 000000 

54 

55 

56 

57 



000000' 



TITLE QUEHRN 
. I DENT /00002/ 

COPYRIGHT (C) 1975. 1976. 1977 

DIGITRL EQUIPnENT CORPORATION. MflYNflRO. MflSS. 01754 

THIS SOFTWRRE IS FURNISHED UNDER R LICENSE FOR USE ONLY ON 
R SINGLE COriPUTER SYSTEM RND MRY 3E COPIED ONLY WITH 
THE INCLUSION OF THE RBOVE COPYRIGHT NOTICE. THIS 
SOFTURRE. OR RNY OTHER COPIES THEREOF. MRY NOT BE PROVIDED 
OR OTHERWISE flRDE RURILRBLE TO RNY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM RND TO ONE WHO RGREES TO 
THESE LICENSE TERMS. TITLE TO RND OWNERSHIP OF THE 
SOFTWRRE SHALL RT RLL TIMES REMRIN IN DEC. 

THE INFORMRTION IN THIS DOCUMENT IS SUBJECT TO CHRNGE 
WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED RS R COM- 
MlTflENT BY DIG.TAL EQUIPMENT CORPORRTION. 

DEC RSSUMES NO RESPONSIBILITY FOR THE USE OP RELiRBILlTY 
OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY 
DEC. 

VERSION 

ROBEf.T H. ROSENBRUM l-AUGUST-74 

LOST MODIFICATION ON 20-N0VfEnBEP-74 

QUERY COMMAND HANDLER 

. PSECT MAIN 

GLOBAL DEF I N III ONS 

. GLOBL QOPBri.FDBIN.FDBOUO 



; MflCPC CALLS 

. MCALL FDOFFS.DIPS.-QIOS 

FDOFF% DEFSL 
QIOLBL: QIOS ;JUST DEFINE 010 OFFSET' 

. =QIOLBL ; OVERLAY QtO AREA 



; INPUTS: 

; NONE 

; OUTPUTS: 

; ROUTINE WILL PRINT ON THE OPEPATOPS CONSOLE THE CUPPENT 

; STATUS OF EMULATOR INCLUDINl OFFL I NE/'CNL I NE CONDITION, 

; TRANSMIT/RECEIVE CONDITION, AND FILE NAME IJHICH IT IS 
CURRENTLY ACCESSING. 



QUE HAN: 



. IF 


DF 


RTU 


MOV 




»QEND-QSTAT,P1 


MOV 




i?QSTAT.R5 


JSR 




PC,R50STP 


MOV 




^\Q:9.\ 



LENGTH OF MESSAGE 

PRINT PAD50 STRING 

TYPE DEVICE AND FILE NAME 



QUEHPN MflCPO nn04 06-DEC-77 08:2b PRGE 2-1 



E 8 



BS 










CMPB 


MODE. 12 


TRNSMIT? 


E.9 










BNE 


QUER 


NO 


bO 










MOV 


TRNSBLK.R5 


ADDRESS OF DEV AND FILE NAME 


bl 










BR 


QFIL 


PRINT MESSAGE 


62 








QUER; 


CMPB 


MODE/ « I 


RECV 


63 










BNE 


60GET2 


NO 


64 










MCV 


RCVBLK.RS 


ADDRESS OF DEVICE AND FILE NAME 


6S 








QFIL: 


JSR 


PC.R60STR 


PRINT RAD50 STRING 


66 










.ENOC 






67 










. IF OF 


RSX 




6S 000000 


012702 


OOOOOOG 






MOV 


«KBI6UF,R2 


FOR QUE STOREAGE 


69 OOOOOH 


010267 


000014G 






MOV 


R2.QDPBM*Q. lOPL 




70 000010 


012706 


OOOOOOG 






MOV 


«QSTflT,R5 


FOR STATUS MESSAGE 


71 oooom 


020527 


OOOOOOG 




105: 


CMP 


R5.«QEND 


FINSHED? 


72 000020 


103004 








BHIS 


20% 


YES 


73 000022 


012500 








MOV 


(R5)+.R0 


RAD50 TO ASCI 1 


74 000024 


004767 


OOOOOOG 






JSR 


PC,R500UT 




75 000030 


000771 








BR 


105 




7.. 000032 


012767 


OOOOOOG 


000016G 


20S: 


MOV 


;QLNGTH, QDPBM+Q. 


OPL+2 ; NUMBER OF CHARACTERS TO PRINT 


77 000040 


012705 


000102G 






MOV 


8FDBIN+F. FNB,R5 




78 000044 


126727 


OOOOOOG 


000002 




CMPB 


M0DE,«2 


TRANSMIT MODE? 


79 000052 


001406 








BEQ 


305 


YES 


80 000054 


126727 


OOOOOOG 


000001 




CMPB 


M0DE,«1 


RECEIVE MODE 


81 000062 


001051 








BNE 


405 


NO 


82 000064 


012705 


0001 02G 






MOV 


8FDB0U0+F. FNB,R5 




83 000070 


116522 


000032 




30S: 


MOVB 


N. DVNM(R5), (R2)"^ 




84 000074 


001444 








BEQ 


405 




85 000076 


116522 


000033 






MOVB 


N. DVNM+1(R5^ (R2 


)-♦• 


36 000102 


116503 


000034 






MOVB 


N. UNIT(R5),R3 


GET UNIT NUMBER 


87 000106 


062703 


000060 






ADD 


«60,R3 




88 000112 


110322 








MOVB 


R3. (R2) + 




89 000114 


112722 


000072 






MOVB 


«•: , (R2) + 




90 000120 


016500 


000006 






MOV 


N. FNflM(R5K.R0 




91 000124 


004767 


OOOOOOG 






JSR 


PC.R50CUT 




92 000130 


016500 


000010 






no\j 


N. FNflM+2(R5)<R0 




93 000134 


004767 


OOOOOOG 






JSR 


PC.R500UT 




94 000140 


016500 


000012 






MOV 


N. FNflM+4(R5).P0 




95 000144 


004767 


OOOOOOG 






JSP 


PC,R500UT 




96 000150 


112722 


000056 






MOVB 


»'.,(R2) + 




97 000154 


016500 


000014 






MOV 


N. FTYP(R5),R0 




98 000160 


004767 


OOOOOOG 






JSR 


PC.R500UT 




99 000164 


112722 


000073 






MOVB 


»';, (R2)+ 




100 000170 


016500 


000016 






MOV 


N. FVEP(R5).R0 




101 000174 


004767 


OOOOOOG 






JSP 


PC.RSOUT 


CONVERT TO OCTPL 


102 000200 


062767 


000025 


OOOOlbG 




ADD 


«21. -QDPBM + Q. IOPL + 2 


103 000206 








HOS: 


DIRS 


;QDPBri 




104 










. ENDC 






105 000214 


000167 


OOOOOOG 




G0GET2: 


J MP 


CPOUTX ; 


PRINT PROMPT fifjL GET fiEXT UB ENTRY 


106 


000001 








. END 







QUEHQN 
SYMBOL 

CROUTX= 
FOB IN = 
FDB0UO= 
F. RCTL= 
fiLOC = 
BBFS= 
BOB = 
BGBC = 
BKDN= 
BKDS= 
BKiF = 
BKP1 = 
BkSTt 
B^ uB = 
CHP ^ 

DFNB-- 
DSPT = 

D\iNn- 



F 
F 
F 
F 

F 
F 

F 

r 



RBS. 



MR IN 



nfiCPO 
TRBLE 

tttttt 
tttttt 
ittttt 
00007b 
OOOOHO 
000062 
000070 
0000B7 
000026 
000020 
000050 
000051 
000024 
OOOOfeH 
000075 
000034 
000046 
000044 
000134 

OOOCOO 
CGOOOC 
•^UOZZO 



nn04 06-DEC-77 08:26 PRGE 2-2 



F 8 



GX 

G 

G 



000 

001 
002 



F 

F 

F. 

F. 

F 

F. 

F. 

F 

F. 

F. 

F. 

F. 

F. 

F. 

F. 

F. 

F. 

F. 

F 



EFBK= 
EFN = 
EOBB= 
ERR = 
FflCC = 
FFBY= 
FNflri= 
FNB = 
FTYP = 
FVER = 
HIBKs 
LUN = 
nBCT= 
MBCls 
nBFG= 
NRBD= 
NREC = 
OVBS= 
PRCC = 



000010 
000050 
000032 
0000S2 
000043 

oooom 

000110 
000102 
000116 
000120 
000004 
000042 
000054 
000055 
000056 
000024 
000030 
OOOOJO 
GOGOlb 



F, 
F, 
F 



RRTTs 
RCNMs 
RCTL = 



F. RSIZ= 



RTYPs 
SEQN= 
SPOV= 
SPUN= 
STBK= 
UNIT= 
URBO= 
VBN = 
UBSZ= 
G0GET2 
KBIBUF= 
nODE = 
NRCUSF= 
NTRNSF= 
N, DID = 



ooooot 

000034 

000017 

000002 

000000 

000100 

000072 

000074 

000036 

000136 

000020 

000064 

000060 

000214R 

tttttt GX 

000000 
000002 
000024 



002 



DVNn: 
FID : 
FNRfl: 
FTYPs 
FVER; 
NEXT; 
STRT: 
UNIT: 
QDPBn : 
QEND : 
QIOLBL 
QLNGTH: 
QSTflT : 
QUEHPN 



Q. 
Q. 
Q. 

Q. 
Q. 



I ORE: 
lOEF: 
lOFN: 
lOLU: 
lOPL: 



000032 

000000 

000006 

000014 

0000 U 

000022 

000020 

000034 

tttttt G 

tttttt GX 

OOOOOOR 

tttttt GX 

tttttt GX 

GOOOOORG 

000012 

000006 

000002 

000004 

000014 



002 



Q. ;OPR = 
Q. lOSB^ 
RSX s 
RSXllMs 
R500UT= 
R80UT = 
S. FRTT= 
FOB = 
FNflMs 
FNB s 
FNBU= 
FNTY= 
FTYP= 



S. 

S. 
S. 

s. 
s. 
s. 



002 S. NFEN= 
TPGNUM= 
S$SPRG= 
5$50ST= 
. . . TPC= 



000007 
000010 
000001 
000001 

tttttt 
tttttt 

000016 
000140 
000006 
000036 
000017 
000004 
000002 
000020 
000000 
000000 
000014 
000140 



GX 
GX 



ERRORS DETECTED 



VIRTURL nEMORY USED: 1842 UOPDS 
DYNRMIC MEnORY: 2S10 WORDS i 10 
ELAPSED TIME: GO: 00: 19 
256.020 QUEHRN;27,- 256-030 QUEHRN 



( S PAGES) 
FPGESi 

. C P F , - SP = UhP P XM . QUE HRN 



.-J 



QIJEHRN 




CRERTED BY 


nPCRO ON 6- 


•DEC-77 AT 


08: 27 


imBOL 


CPOSS REFERENCE 








SYMBOL 


VRLUE 




REFERENCES 






CROUTX 


z 


tttttt 


GX 


2-105 






FOB IN 


z 


tttttt 


G 


2-35 


2-77 




FDBOUO 


z 


tttttt 


G 


2-35 


2-82 




F FNB 


: 


000102 




2-77 


2-82 




G0GET2 




000211* 


R 


»2-105 






KBIBUF 


z 


tttttt 


GX 


2-68 






MODE 


z 


tttttt 


GX 


2-78 


2-80 




NPCUSF 


z 


000000 




»l-5 






NTPNSF 


z 


000002 




»l-^ 






N. DVNn 


z 


000032 




2-83 


2-85 




N. FNRH 


z 


oooooe 




2-70 


2-92 


2-94 


N. FTYP 


z 


oooom 




2-97 






N. FUEP 


z 


000016 




2-100 






N. UN 1 T 


z 


00003H 




2-Sb 






QDPBn 


z 


tttttt 


G 


2-35 


*2-69 


*2-"b 


•jEND 


z 


tttttt 


GX 


2-71 






QIOLBL 




000000 


P 


»2-^0 


2-m 




OLtiGTH 


:: 


****** 


GX 


2-76 






OSTQT 


r 


****** 


2X 


2-70 






QUEHflN 




000000 


RG 


«2-53 






Q. lOFN 


r 


000002 




2-HO 






Q. lOPL 


z 


oooom 




*2-69 


*2-76 


*2-10 


PSX 


z 


000001 




»l-2 


2-67 




Rsxnn 


z 


000001 




»l-3 






PTll 


z 


tttttt 




2-^ • 






RBOOUT 


z 


tttttt 


GX 


2-:^H 


2-91 


2-93 


R80UT 


z 


tttttt 


GX 


2-101 






TRGNUn 


z 


000000 




n\-S 






SSSRRG 


z 


000000 




«2-H0 


2-40 


2-4 


SS%GLB 


z 


tttttt 




2-HO 







PRGE 1 
CREF 



G 8 



*2-102 



7-103 



2-95 



^-^o 



QUEHPN 




CPERTED BY 


nprpo 1 


:poss 


REFERENCE 


MRCPo rmriE 


REFERI 


DIPS 




»2-38 


EPFOP 




»l-9 


EPPOPf 




»1-16 


EPPOPM 




M-32 


EPPOPP 




«1-H7 


FPTPL 




«l-53 


FOOFFS 




»2-33 


OFFS 




«2-H0 


QOFBS 




;2-H0 


Q!OS 




«2-3S 



H 8 
MPCRO ON 6-DEC-77 RT 08 27 PRGE 2 

CREF 
KES 

«2-l03 



2-39 

»2-'40 
?«2-H0 



I 8 

PPD«:,«, MfiCPO nnO^ Ob-DEC-?? 08: 27 PfiGE 1 



1 




2 


000001 


3 


OOOGOl 


M 


000002 


5 


000000 


b 




7 




8 


ocoooo 


9 




10 




tt 




12 




13 




m 




15 




16 




17 




18 




19 




20 




21 




22 




23 




m 




2S 




26 




27 




28 




29 




30 




31 




32 




S3 




3«f 




35 




36 




37 




38 




39 




HO 




m 




H2 




H3 




^^ 




H5 




i|4 




H7 




H8 




H9 




50 




51 




52 




53 




5H 




55 




56 





;PREFIX FILE FOR 2780 UfiP RUNNING UNDER RSXlin 
RSX=1 

psxnn=i 

NTRNSF = 2 ;NUriBER OF FILES - 1 TO TRflMSFER IN ONE CMMD STRING (3) 

NRCVSF = ;NUriBER OF FILES - 1 TO RECEIVE (1) 

; MACRO DEFINITIONS 
TflGNUri=0 

. MACRO ERROR TEXT 
ERRORK <TEXT> 

jsp PC. prompt 

. ENDM 
; MfiCRO TO DO P KILL OND QUEUE THE MESSAGE 

.MACRO ERPORK TEXT 

TAGNUM=TAGNUn+l 

. iPP N, < TAGNUM) 

JSR R5.TYPMSG 

.WORD TAG'N 

.WORD TAGE'N- TAG'N 

. PSECT MESAG2.GBL 

TAG'N: . ASCI I "TEXT" 
TAGE'N: 

.PSECT r^AiN 

. ENDM 

. ENDM 

, MACRO TO QUEUE A MESSAGE ONlY 

MACRO EPP0RI1 TEXT 

TAGNUM=TAGNUn+l 

IPP N< V TAGNUM) 

JSR R5,TYPMSl 

.WORD TAG'N 

.WORD TAGE'N-TAG'N 

.PSECT MESAG2.GBL 

TAG'N: .ASCII "TEXT" 
TAGE'N: 

.PSECT MAIN 

. ENDM 

. ENDM 

■ MACRO TO QUEUE A MESSAGE AND PPOMPt 

. MACRO ERRORP TEXT 

ERRORM <TEXT> 

JSP PC. PROMPT 
. ENDM 

MACRO FATAL TEXT 

EPRORK <TEXT> 

JSP PB.DIE 
. ENDM 



PRDCy riQCPC Mn04 Ob-OEC-?? 08:27 PRGE 2 



J 8 



t 
2 
3 

8 

to 
11 

12 

13 

14 

15 

It 

IS 
19 

:g 
:i 



23 
2H 
26 
2b 
27 
28 
29 

30 oooocn 

31 

32 

^ — ' 

34 



77 
3S 

-Q 

40 
4 1 

4: 

4 _ 
44 
45 
4b 
47 
4S 
49 
50 
51 

53 
54 
55 
5b 

57 



.TITLE RQOCX 
. I DENT /OOOOl/ 

COPYRIGHT (C) 1975, 1976, 1977 

DIGITRL EQUIPriEH! CORPORATION, nflYNflRD, MPSS. 01754 

THIS SOFTWRRE IS FURNISHED UNDER R LICENSE FOR USE ONLY ON 
R SINGLE COMPUTER SYSTEM RND MRY 3E COPIED ONLY WITH 
THE INCLUSION OF THE RBOVE COPYRIGHT NOTICE. THIS 
SOFTURRE, OR RNY OTHER COPIES THEREOF, MRY NOT BE PROVIDED 
OR OTHERWISE MRDE RVRILRBLE TO RNY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM RND TO ONE WHO RGREES TO 
THESE LICENSE TERMS. TITLE TO RND OWNERSHIP OF THE 
SOFTWRRE SHRLL RT ALL TIMES REMRIN IN DEC. 

THE INFORMRTION IN THIS DOCUMENT IS SUBJECT TO CHRNGE 
WITHOUT NOTICE RND SHOULD NOT BE CONSTRUED RS R COM- 
niTMENT BY DIGlTRL EQUIPMENT CORPORRTION. 

DEC RSSUMES NO RESPONSIBILITY FOR THE USE OR RELIRBILlTY 
OF ITS SOFTWRRE ON EQUIPMENT WHICH IS NOT SUPPLIED Br 
DEC. 



VERSION 
; ROBERT H POSENBRUM 2-RUGUST 
; INCREMENT RPDSO 

.PSECT MfllN 



-7'4 



//'//' 



ROUTINE TO INCREMENT THREE DIGITS STORED 
PND THEM COVERT TO RRDBO 



N RPD50 BRSE 



//////'//// 





. IF DF 


RTll 


RPDINC. 


MOV 


j;3,r: 




myi 


f}CHEXT + 3,P0 


flNTD: 


INCB 


-(RO) 




. IF DF 


RTll 




CMPB 


(R0'«47 




. ENDC 






.IF DF 


RSX 




CMPB 


(R0'.;7G 




END'' 






BLE 


PRDCN 




. IF DF 


RTll 




MOVB 


^Z^. (RO) 




. ENDC 






. IF DF 


RSX 




MOV 


»bO- (RO) 




. ENDC 






INCB 


-(RO) 




DEC 


P2 




BLE 


RNTD 


PPIDCN: 


nov 

. ENDC 


lfCHEXT,RO 



PQDcy nflCPO nno^ Ob-DEC-7? 08; 27 



K I 



ss 


000000 


012746 


022200 


B9 


0000014 


005003 




bO 
1^ 1 


OOOOOfe 


112006 




fc2 


OOOOIO 


042705 


177700 


b3 


oooom 


020527 


000032 


bH 


000020 


003404 




bE 


000022 


020627 


000060 


bb 


00002b 


002401 




b7 


000030 


006005 




bS 


000032 






b9 








70 


000032 


00^303 




71 


Q0003^ 


006303 




*« 


00C03b 


006303 






000040 


060305 




7U 


000042 


006303 




75 


000044 


006303 




7b 


00004b 


Ob0503 




1 t 


000050 


006116 




78 


000052 


103355 




79 


000054 


010300 




SO 


00005b 


0057:b 




SI 


OOOObO 


000207 




sa 




00000 1 





PRGE 2-1 






RODCX: : 


MOV 


1122200. -(SP) 




CLR 


R3 


NEXTCHR 


: MOVB 


(RG)^,R5 




. IF OF 


RSX 




BIC 


#177700. R6 




CMP 


R6.«32 




BLE 


LETT 




CMP 


R5,«60 




BLT 


LETT 


CHRP: 


CLR 


R5 


LETT 


. ENDC 






flSL 


P3 




flSL 


P3 




flSL 


P3 




ROD 


R3.P5 




flSL 


P3 




flSL 


P3 




ROD 


P5.P3 




ROL 


(SP) 




BCC 


NtXTCHP 




MOV 


P3.R0 




TST 


iSP) + 




PTS 


PC ^ 




END 





;GET ASCII BYTE 



;FINISHED'' 
;N0 



; I 



,EP? STACK 



L 8 

PMDcy nflcpo nnoi4 Ob-DEC-?? 08: 27 prge 2-2 

s.neoL trble 

CHOP OOOOIOP 002 NEXTCH OOOOOfeR 002 NTRNSFr 000002 PSX = 000001 TfiGNUM= 000000 
lETT 000C32R 002 NRCVSF= 000000 PflOCX OOOOOORG 002 PSXllM: 000001 



. fiB'I.. 


000000 


000 




000000 


001 


rifliN 


000062 


002 


EPPOPS 


DETECTED: 






"IPTUPL MEnOPY USED: 380 WORDS ' 2 PRGES) 
D'.NflMiC riEnOPY: 281 UOPDS ' 10 PRGES) 
E.^PSED TIME 00 00: 07 
:Sto-020 PPDCX.27. 25b- 030 PPDCv CPF •-SP = UfiPPXM. PRDCX 



PRC'Cy 


CPERTEO BY 


MfiCPO 


ON 6-DEC-77 RT 


SYMBOL 


CPOSS REFEPENCE 






SYMBOL 


VRLUE 


REFERENCES 


CHRP 


G00030 R 


»2-67 




LETT 


000032 R 


2-64 


2-66 


ME'-'TCH 


000006 R 


«2-60 


2-78 


NPC'iSF 


= 000000 


«l-5 




►JTPMSF 


= 000002 


ni-H 




PPOCX 


QOOOCO Ru 


»2-Bo 




PSX 


= GOQOOl 


tUl-Z 


2-61 


psxnn 


= OOOOGl 


»l-3 




Pin 


= tiftitif 


2-26 




TPGf^Ur! 


-- ooGoon 


»1-S 





n 8 

08 27 PRGE I 

CREF 



»2-b8 



K 8 
PROCX CPEfiTED BY HRCPO ON 6-DEC-77 .^T 08 27 PPGE 2 

riQCPO CPOSS PEFF.RENCE CREF 

HHrpo tlRME REFERENCES 

EPPOF' 81-9 

EPPOPl- «1-16 

EPPOPM 81-:2 

EPPOPP Sl-47 

FPTRL «l-53 



mti ' jimsi^hUimiiBmiss^ ss? 



H;«H*ffii?i3aEiS:feeH±5S35£$; 



i&Bmmi^Buui>m^iii^.m\B^h: m^^a!&iSii'iiiS ''-iJu^ mmu?. 






ppoouT riRCPO nnoM Ob-DEC-77 os-. 27 prge 1 



1 




2 


OOOOOl 


3 


000001 


H 


000002 


& 


000000 


b 




7 




8 


00' 000 


9 




10 




11 




1 " 




1 ■* 




i _' 




14 




IE 




16 




1:^ 




IS 




1? 




20 




21 




^'•> 




^•. 




r> -t 




^ -> 




24 




26 




26 




27 




28 




29 




30 




31 




32 




j>j- 




34 




3B 




Zb 




_\ ,•• 




35 




-q 




4 




41 




42 




43 




4H 




45 




46 




47 




4S 




49 




50 




51 




52 




53 




54 




65 




56 





.PPETIX FILE FOR 2780 UflP RUNNING UNDER RSXlin 

RSX=1 

RSXlin=l 

NTRNSF=2 

NRCVSF=0 



; NUMBER OF FILES 
; NUMBER OF FILES 



1 TO TRPNSFER IN ONE CMMD STRING (3) 
1 TO RECEIVE (1) 



; MACRO DEFINITIONS 
TflGNUM=0 

.MACRO ERROR TEXT 
ERRORK <TEXT> 
JSP PC, PROMPT 
. ENDM 

; MfiCRO TO DO KILL AND QUEUE THE MESSAGE 

. MACRO ERRORK TEXT 
TAGNUM=TRGNUM+1 





. iRP 


N. <: TOGNUM) 




JSR 


R5,TYPMSG 




. WORD 


TAG'N 




. WORD 


TAGE'N-TAG'N 




. PSECT 


MESfiG2,GBL 


TOG'N: 


. ASCI 1 


"TEXT" 


TPGE 'N: 








. PSECT 


MAIN 




. ENDM 






. ENDM 





MACRO TO QUEUE A MESSAGE ONLY 





. MACRO 


EPRGRM TEXT 




TAGNUM= 


TAGNUM+1 




. IRP 


N, < TAGNUM) 




JSP 


P5,TYPMS1 




. WORD 


TAG'N 




. WORD 


TAGE N- TAG'N 




. PSECT 


MESAG2.GBL 


TAG'N: 


. ASCI 1 


"TEXT" 


TAGE'N: 








, PSECT 


MA ! N 




. ENDM 






. ENDM 




; MACRO 


TO QUEUE fl MESSAGE ■• 


.' 


. MACRO 


ERPOPP TEyf 




EPROPM 


<TEXT> 




JSP 


PC. PROMPT 




. ENDM 





. MACRO FATAL TEXT 

ERRORK <T£XT> 

JSP P5.DIE 
. ENDM 



J 



RP.OOUT n«CPO nnOH Ob-OEC-?? OS. 27 PRGE 2 



C 9 



1 




2 




3 




»» 




B 




b 




•7 

1 




8 




Q 




IC 




n 




12 




13 




l*f 




IS 




16 




17 




18 




19 




20 




21 




22 




U 




2*1 




n 




u 




w 




n 




29 




30 


000000 


31 




32 




33 




3«» 




3S 




36 




J? 




38 




39 




m 




m 




^2 


000000 


h:s 


00000b 


HH 




H% 




H 




«lt^ 




1*8 


000010 


49 


OOOOlfe 


It 




9\ 




53 




B4 




B5 


000020 


56 


000026 


57 


000032 



012767 
000407 



000010 000052 



.TITLE RflOOUT 
. I DENT /OOOOH/ 

'copyright (C) 1975.1976. 1977 

;DIGITfiL EQUlPnENT CORPORRTION. HfiYNIRD. MflSS. 

;THIS SOFTWRRE IS FURNISHED UNDER fl LICENSE FOR USE ONLY 
;0N fl SINGLE COMPUTER SYSTEM fiND MPY BE COPIED ONLY WITH 
;THE INCLUSION OF THE RBOVE COPYRIGHT NOTICE. THIS 
;SOFTWRRE. OR RNY COPIES THEREOF. flflY NOT BE PROVIDED OR 
.OTHERUISE MODE fiVBfilLRBLE TO RNY OTHER PERSON EXCEPT 
FOR USE OH SUCH SYSTEM RND TO ONE WHO AGREES TO THESE 
LICENSE TERMS. TITLE TO RND OWNERSHIP OF THE SOFTWARE 
SHRLL RT RLL TIMES REMRIN IN DEC. 

THE INFORMRTION IN THIS DOCUMENT IS SUBJECT TO CHRNGE 
; WITHOUT NOTICE RND SHOULD NOT BE CONSTRUED RS R COM- 
niTMtiNT BY DIGITRL EQUIPMENT CORPORRTlON. 

DEC RSSUMES NO RESPONSIBILITY FOR THE USE OR RELIRBILITY 
OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY 
DEC 



VOO-02 3/26/75 

VOO-03 4/28/75 

VOO-04 9/77 CEP 

MOOIPICATION TO PROTECT AGAINST MOPE THAN 3 OUTPUT CHARACTERS 
. IF OF PSX 
. PSECT MAIN 
. ENDC 

. IF OF RTli 
. CSECT PACOUT 
ENDC 



GLOBL R80UT.R500UT.. PIOOUT 



/ * /////////// f f f ' / / f / / f f r »/ 



RSOUT: MOV 
BR 



RSOUT WILL OUTPUT A RADIX £ fJUMBER TO THE CONSOLE 

;SET FOP PAD S 



/// '.'/,'//.'///// 



;iC,.RADIX 
RADXX 



/////// 



////.'///////// 



PIOOUT NILL OUTPUT A DECIMAL NUf'.BEP TO THE CONSOLE 



//////'////// f f • / f f / / / r 



012767 
000403 



000012 000042 PIOOUT; MOV 

BR 



810. .RADIX 
RADXX 



t/f/fffr///'r/f,/f't/r.'rf 



R500UT WILL OUTPUT TO THE CONSOLE 
THE WORD STORED RS RAD50 IN REGISTER 



///////// 



Q\17h7 
012703 
012701 



000050 000032 

000003 

000177' 



R500UT: MOV 
RADXX; MOV 
MOV 



»50,RRDIX 
»3,R3 
«DIGITS + 3.^P1 



;SET FOR RAD 50 
; THREE CHARACTERS 
; STORED HERE 



RPDOUT HfiCRO nnOH Oe-DEC-?? 08: 2? PfiGE 2-1 



D 9 



E8 000036 


005004 




CNl/LUP: 


CLR 


R4 


REn^lNDER UORD 


B9 OOOOHG 


012746 


000020 




MOU 


«20.-(SP^ 


BIT COUNT 


60 OOOOH** 


006300 




OIVLUP: 


flSL 


RO 




61 COOOHb 


006104 






ROL 


R4 




62 000050 


020467 


000004 




cnp 


R4.Rfi0lX 


BIG ENOUGH TO SUBTRPCT 


63 00005H 


103403 






BLO 


NOP IT 


NO 


6H 000056 


162704 






SUB 


(PC)i.R4 


SUBTRPCT DIUSOR 


65 000060 


000050 




ROD IX: 


■f 


50 




66 000062 


005200 






INC 


RO 


CORRESPONDING BIT IN Q 


67 00006^ 


005316 




NOP IT: 


DEC 


(SPi 




68 000066 


001366 






BNE 


DIULUP 


MORE BITS 


69 000070 


005726 






TST 


tSP)f 


CLEPR STPCK 


70 000072 


005303 






DEC 


R3 


PRE WE DONE? 


71 00007H 


100410 






em 


R50LUP 


YES - HPUE DONE 3 


72 000076 


110441 






no\'B 


P4,-(R1) 


STORE CHPRPCTER 


73 000100 


005700 






T'^T 


RO 


MORE 


7H UC0102 


001355 






BNE 


CNVLUP 




75 000104 


005303 




BLFILL: 


DEC 


R3 


PPD UlTH SPPCE 


7b 000106 


100403 






Bill 


R50LUP 


NO 


77 000110 


112722 


00G040 




novB 


«40, (R2)+ 




78 oooim 


C00773 






BP 


BLTILL 




79 000116 


112100 




P50LUP: 


novB 


(R1)+,R0 


GET CHPRPCTER 


80 000120 


100424 






BMI 


DONE 


FINISHED 


81 000122 


026727 


17:^732 000 


060 


CMP 


RR0IX,S50 


P NUMBERS 


82 000130 


001014 






BNE 


NUnB 


YES 


83 000132 


105700 






TSTB 


RO 


P SPPCE? 


8H 000134 


001406 






BEQ 


PSPOCE 


YES 


85 000136 


120027 


OOGO'2 




CnPB 


R0.«32 


P LETTEP 


86 000142 


003405 






BLE 


LETTER 




87 000144 


162700 


0G0036 




SUB 


»36,R0 


P DIGIT 


88 000150 


103004 






BCC 


NUnB 


P NUMBER 


89 000152 


012700 


177740 


PSPflCE: 


nov 


»-40.R0 


NO 


90 000156 


0S270G 


000020 


LETTEP: 


ADD 


};20.P0 




91 000162 


062700 


000060 


NUnB: 


ODD 


«60.R0 




92 000166 


110022 






noi'B 


RO. (P2)+ 




93 000170 


0GLI752 






BP 


R50LUP 




94 000172 


000207 




DONE: 


PTS 


PC 




95 000174 


000 


000 


000 DIGITS: 


. BYTE 


00.0377 




000 r 7 


377 












9b 








. EVEN 








OOOGOi 






. END 







-J 



PRDOUT 
SVriBOL 



npcpo 

TABLE 



nnOH Ob-DEC-77 08:27 PRGE 2-2 



E 9 



BLFILL 
CNULUF 
D'GITS 
DM/LUP 

. PBS. 

MAIN 
EPPORS 



OOOIOHP 
000C3bP 
0001714R 

oooo^^R 

000000 

000000 

000200 

DETECTED: 



002 DONE 
002 LETTER 
002 NOP IT 
002 NRCVSF: 

000 
001 
002 



0001 72R 


002 


NTRNSFs 


000002 




RflOXX 


000026R 


002 


R60LUP 


000116R 


002 


000156R 


002 


NUMB 


000162R 


002 


RSX = 


000001 




R500UT 


000020RG 


002 


GOOObHR 


002 


PSPRCE 


000152R 


002 


RSXliri= 


000001 




R80UT 


OOOOOORG 


002 


000000 




RADIX 


000060R 


002 


RIOOUT 


OOOOIORG 


002 


TPGNUM= 


000000 









VMRTUPIL riEnORY USED: ^^S UORDS ( 2 PRGES) 
DYNOniC MEnOPY: 2810 WORDS ( 10 PRGES) 

ELAPSED TirE 00: 00: 07 

RflD0UT;27. :Sb-030 RfiDOUT ^rPF/-SP=URPPxn, PflDOUT 



:S6 



OZi 



PPDOUT 


CPEfiTED BY 


nRCRO ON 6 


-DEC-77 AT 


08 27 


SYMBOL 


CROSS REFERENCE 








LrnBOL 


UfiLUE 




REFERENCES 






BLFILL 


00010^ 


R 


»2-75 


2-78 




CNVLUP 


000036 


R 


»2-B8 


2-7H 




DIGITS 


00017H 


R 


2-57 


«2-95 




DIVLUP 


OOOOHH 


R 


»2-60 


2-68 




DOr<E 


000172 


R 


2-80 


ll2-9^ 




LETTER 


0001&6 


R 


2-86 


»2-90 




NOF 1 T 


c:'j06i+ 


R 


2-63 


»2-67 




NPCUSF 


= 000000 




»l-5 






NTPNSF 


= 000002 




»1-H 






NUMB 


000162 


R 


2-82 


2-88 


»2-9l 


i^-FflCE 


000152 


R 


2-814 


«2-89 




PPDIX 


000060 


R 


*2-^2 


*2-^8 


*2-E5 


PPDXX 


000026 


R 


2-H3 


2-49 


«2-5b 


PSX 


= 000001 




»l-2 


2-29 




psxiin 


= 000001 




»l-3 






FTU 


= ****** 




2-32 






PICOUT 


000010 


PG 


2-37 


»:-4S 




PSOLUP 


00011b 


P 


2-?l 


2-76 


«2-79 


PBOOUT 


000C20 


PG ^ 


2-37 


«:-55 




PSOUT 


oooooc 


PG 


2-37 


nZ-^2 




TRGNUn 


= OGOOOO 




8 1-S 







PRGE I 
CREF 



F 9 



2-62 



ir2-65 



2-81 






G 
P(^DOUT CPERTED BY MRCRO ON 6-DEC-77 AT 08 11 PfiGE 2 

MQCPO CPOSS REFERENCE CREF 

MR'IPO Ni^^ME REFERENCES 
EPPOP »l-9 

EPPOP^ »l-lb 
EPPOPM «l-i2 
EPPOFP «l-^7 
FMTflL 81-B3 



H 9 

PEflD MRCPO nnOH Ofe-DEC-77 08: 27 PRGE 1 

t ; PREFIX FILE FOR 2780 UflP RUNNING UNDER RSXlin 

1 OOOOOl RSX=1 

3 OOOOOl RSXlin=l 

1 000002 NTRNSF = 2 ; NUMBER OF FILES - 1 TO TRRNSFER IN ONE CflMD STRING (3) 

S OOOCOO NRCVSF=Q ; NUMBER OF FILES - 1 TO RECEIVE (1) 

b ; 

7 

8 OCOOOO 

10 

11 

i: 

13 
14 

15 
lb 

IS 
19 

20 
21 

*n "^ 

2^ 
25 
26 
27 
28 

29 ; 

30 ; MflCPO TO QUEUE fl MESSRGE ONlY 

31 ; 

3^ MACRO EPRORn TEXT 

33 TRGNUri=TRGNUM+l 

3U . IRP N, < TflGNUM) 

3B JSP R5,TYPMSl 

3b . WORD TRG'N 

37 .WORD TflGE'N-TflG'N 

3S .PSECT nESflG2GBL 

39 TRG'N: .flSCII "TEXT" 

^0 TPGE'N: 

Wl .PSECT M«!N 

^: . ENon 

i4J . ENDM 

146 ; nflCPO TO QUEUE fl MESSfiGE RNO PPOMPT 

^t - " •■ ; 

^1" . nfiCRO ERROPP TEXT 

48 EPROPM <.TEXT> 

149 JSP PC, PROMPT 

50 . ENDM 

51 

52 ; 

53 .MACRO FFlTRL TEXT 
5'4 EPPORK aEXT^ 
55 JSP P5-DIE 
5b . ENDM 



; MACRO 


DEFINITIONS 




TAGNUMs 







. MACRO 


ERROR TEXT 




ERRORK 


<TEXT> 




JSR 


PC, PROMPT 




. ENDM 




; MACRO 


TO DO A 


KILL AND QUE 


/ 


. MACRO 


ERRORK TEXT 




TA6NUM= 


TAGNUM+1 




. IRP 


N, < TAGNUM) 




JSR 


R5.TYPMSG 




. UORD 


TAG'N 




. UORD 


TAGE'N-TAG'N 




. PSECT 


MESAG2,GBL 


TAG'N: 


. ASCII 


"TEXT" 


TAGE'N: 








. PSECT 


MAIN 




. ENDM 






. ENDM 





FEflD 



MRCPO nnOH Ofe-DEC-77 08:27 PRGE 2 



I 9 



t 
2 
3 

S 

7 
8 
9 

10 

n 

12 

u 

1H 
15 
16 
17 

18 
19 
20 
21 
22 
23 
2H 
25 
U 
27 
2$ 
29 
30 
31 
32 
33 
3H 
3S 
3b 

-» — * 
3S 

3? 

m 

42 
4i 
44 
4B 
4b 
47 
4S 
49 
50 
Bl 
52 
5 7 

54 
55 
5b 
57 



000000 



000000 



ooooo: 

000031 
000033 



TITLE RERD 
. I DENT /00004/ 

COPYRIGHT (C) 1975 1975. 1977 

DIGITAL EQUIPnENT CORPORATION, MRYNflRD/ MPSS, 



01754 



THIS SOFTURRE IS FURNISHED UNDER R LICENSE FOR USE ONLY ON 
R SINGLE COMPUTER SYSTEM RND MRY BE COPIED ONLY UITH 
THE INCLUSION OF THE RBOVE COPYRIGHT NOTICE. THIS 
SOFTWRRE, OR RHY OTHER COPIES THEREOF, MRY NOT BE PROVIDED 
OR OTHEPUISE flRDE RURILRBlE TO ANY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM RND TO ONE WHO AGREES TO 
THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF THE 
SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC. 

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE 
WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COM- 
MlTfiENT BY DIGITAL EQUIPMENT CORPORATION. 



DEC 

OF 

DEC. 



ASSUMES NO PESPONSIBILITY FOR THE USE OP RELIABILITY 
TS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY 



VERSION 

ROBERT H. ROSENBOUM 
LAST MODIFICATION ON 2b-MflRCH-75 
READ BUFFER IN MOVE MODE 
PSECT MAIN 



, MACRO CALLS 

.MCALL GET%S-FDOFFS 
FOOFF% DEF%L 

; ASCi I DEF INITI0N3 
ETX=3 
EMr31 
ESC=33 



INPUTS- 



;DEF INE PCS OFFSETS LOCALLY 



PO = ADDRESS OF BUFFER 

OUTPUTS: 

BUFFER POINTED TO BY PO IS FILLED 

THE ROUTINE FIRST MOVES THE DATA FROM FCS'S BUFFER TO ONE 

OF ITS OWN 7 BUFFERS WHICH IT WILL EVENTUALLY GIVE TO 

THE TAP TO TRANSMIT. IT WILL ONLY DO A "GET" TO FCS UPON 

TRANSFERRING THE LAST CHARACTER FROM INPUT RECORD. 

ERRORS ARE NOT CHECKED AFTER THE GET BUT UPON THE NEXi 

CALL TO RED% SINCE IT IS ONLY AT THIS TIME THAT THE GATfl IN 

ERROR WILL BE PROCESSED 



PEI^^D 



MQCPO nnOH 06-DEC-77 08:27 PfiGE 2-1 



J 9 



B8 
69 
bO 
bl 
62 
63 
64 
65 
66 
67 
6S 
69 
70 
71 



74 

75 

76 

77 

7S 

79 

80 

81 

82 

83 

84 

86 

86 

87 

88 

89 

90 

91 

92 

93 

94 

^6 

9b 

97 

9£ 

99 

lOD 

101 

102 

103 

104 

106 

106 

107 

108 

109 

110 

111 

112 

113 

114 



OOOCOO 
000002 
000004 
000010 
000014 
000016 
000022 
000026 
000030 
000034 
000036 
000044 
000046 
000062 
000064 
000060 
000062 
000064 
000066 
000070 
000076 
000100 
000102 
000104 
000106 
000110 
000112 
000114 
000116 
000122 
000124 
000126 
000130 
000134 



000136 
000144 
000146 
000162 
000164 
000172 
000174 
000210 
000216 
000224 
000226 
000230 
000232 
000234 



000240 
000244 
000246 
000262 
000264 



010001 

010005 

012702 

105762 

100450 

016203 

016202 

060002 

G66700 

000421 

132767 

001015 

120427 

001405 

120427 

001007 

006301 

000461 

005301 

162767 

000407 

020102 

001406 

020100 

001460 

112304 

110421 

000760 

105767 

001042 

020100 

001447 

112721 

000773 



000716 

001434 

112767 
112767 
000261 
000207 
160102 
001405 
010267 
010367 
OOC407 
106767 
100404 



OOOOOOG 
QQQ052 

000026 
000024 



OOOOOOG 

000002 OOOOOOG REDSPL: 

000003 

000031 



000200 GOOOCOG 



OOOOOOG 



000040 



. IF OF RSX 

REDS:; MOU RO.Rl 

MOV R0,R5 

nOV »F0BIN.R2 

TSTB F ERR(R2) 

Bni REDERR 

REDSUM; MOV F. NRBD+2(R2). R3 

MOV F.NRBD(R2),R2 

POD R0.R2 

POD RECSIZ.RO 

BP REDTRN 

BITB «2,FLPGS 

BNE REDTRN 

CMPB R4,»ETX 

BEQ PEDETX 

CMPB R4.»EM 

BNE REDTRN 

DEC Rl 

BR REXIT 

PEDETX: DEC Rl 

BISB «:00,ENDPEN 

BP REDPG 

REDTPN: CMP R1,P2 

BEQ REDPG 

CMP P1,P0 

BEQ REXIT 

MOVE (R3)+,R4 

MOVB R4, (Rl) + 

Bl? PEDSPL 

PEDPG: TSTB MCB 

BNE PEXIT 

PEDCL: CMP PUPO 

BEQ RGET 

MOVB ??40.(P1) + 

BP PEDCL 



BEGINNING OF BUFFER 
SAVE IT 
FD6 PDDDRESS 
ERROR ON GET 

BLOCK BUFFER PDDPESS 

BYTE COUNT 

END OF RECORD 

EON OF RECORD FOR TRANSMIT 

TRPNSPPRENT MODE 

YES 

IS IT PN ETX? 

YES 

IS IT PN EM 

NO 



FINISHED"? (END OF RECORD) 

YES 

EQUPL TO TRANSMIT BUFFER SIZE 

YES, DON'T REPD PNY MORE 

GET CHPRPCTER 

MOVE IT TO TRRNSMIT BUFFER 

GENERAL BLOCKING MODE"? 
YES, DON'T PPD THE RECORD 
TRANSMIT BUFFER FULL^ 
YES. NO NEED TO PRO IT 
NO, PAD WIIH ASCI I SPACE 
UNTIL THE BUFFER IS FILLFD 



122762 OOOOOOG 000062 REDERR 
001007 



CONTROL COMES TO PEDEPP IF THERE HAS AN EPPOP Ff<0M THE PREVIOUS GET 

■RECOPP TOO BIG 



OOOOOOG 000062 PEDEOF: 



000200 OOOOOOG 
G0C200 OOOOOOG 



REXIT: 



000024G 
0000260 

OOOOOOG 



RGET: 



CMPB 

BNE 

ERROR 

BP 

CMPB 

BEQ 

ERROR 

MOVB 

MOVB 

SEC 

PTS 

SUB 

BEQ 

MOV 

MOV 

BP 

TSTB 

BMI 

GETSS 



»IE. PBG.F ERPfP2) 

REDEOF 

<RECORD TOO LONG) 

REDSUM 

«IE. EOF-F. ERR'.R2) 

RFNL 

<IN ERR) 

«200,ELPTCH 

»200, lOEPR 



END OF F iLE 



YES 

NO ANOTHER TYPE OF EPPOP 
SET ETX LATCH 
INDICATE I/O EPPOP 
EPPOP RETURN INDICATOP 
AND RETURN 



PC 

R1,R2 

RGET 

R2,F. NRBD+FDBIN 

R3,F. NRBD+2+FDBIN 

RFNL 

RVIPEN ;PVI PENDING^ 

RFNL ;YES. DON'T DO RNOTHEP GET 

SFDBIN, , 



PEPD 



nPICPO nnO^ Ob-DEC-77 08: 27 PfiGE 2-2 



K 9 



IIB 000264 
lib 00026b 
11" 000270 

lis 

11? 



160501 
0G02m 
000207 

000001 



RFNL: 



SUB 
CLC 
PIS 
. ENDC 

. END 



R5,Rl 
PC 



; INDICfiTE GOOD RETURN 



PESO 
StHBOL 



MflCPO 
TPBLE 



nnOH Ob-DEC-77 08:27 PfiGE 2-3 



L 9 



ELfiTCH= 


iitttt 


GX 




DSPT= 


OOOOHH 


F. RRTTs 


000001 




N, FID = 


000000 




RGET 


000246R 


002 


EM, 


000C31 






DVNrtr 


0001 3H 


F. RCNn= 


000034 




N. FNflhs 


000006 




RSX s 


000001 




ENDPEN= 


$%%%%% 


GX 




EFBKr 


0000 10 


F. RCTL = 


000017 




N. FTYPs 


000014 




RSXlins 


000001 




E K 


000033 






EFN = 


000050 


F RSI2= 


000002 




N. FVERs 


000016 




RVIPENs 


tttttt GX 




ETX 


000003 






EOBB = 


000032 


F. RTYPr 


000000 




N. NEXTs 


000022 




S. FflTTs 


000016 




FDBIN = 


tttttt 


GX 




ERR = 


000052 


F. SEQN= 


000100 




N. STPTs 


000020 




S. FOB = 


000140 




FLOGS = 


«*t1c«t 


GX 




FRCC = 


0000H3 


F SPDV= 


000072 




N. UNITS 


000034 




S. FNflfls 


000006 




F QCTL= 


00007b 






FFBY= 


oooom 


F. SPUN= 


000074 




PPRSSSs 


000027 




S FNB = 


000036 




F flLOC= 


000040 






FNRn= 


000110 


F. STBK= 


000036 




PROMPTS 


tttttt GX 




S. FNBWs 


000017 




F BBFS= 


000062 






FNB = 


000102 


F UNITS 


000136 




RECSiZs 


tttttt GX 




S. FNTYs 


000004 




F BOB ^ 


000070 






FTYPr 


000116 


F. URBD= 


000020 




REOPG 


0001 16R 


002 


S. FTYPs 


000002 




F BGBC= 


000057 






FVER = 


000120 


F. VBN = 


000064 




REDCL 


0001 24R 


002 


S. NFENs 


000020 




F. BKDN- 


000026 






HIBK = 


000004 


F UB'^Z= 


000060 




REDEOF 


000164R 


002 


TPGEl 


00001 7R 


003 


F. B»^-DS = 


00002C 






LUN = 


000042 


IE.E0F = 


tttttt 


GX 


REDERR 


G00136R 


002 


TflGE2 


000025R 


003 


F BKEFx 


OOOOSO 






riBCT = 


000054 


tE.RBG= 


tttttt 


GX 


PEDETX 


000066R 


002 


TPGNUMs 


000002 




F EKF1= 


000051 






riBCi = 


000055 


lOERP = 


tttttt 


GX 


PEDSPL 


000036R 


002 


TPGl 


OOOOOOR 


003 


^ EKST^ 


00002U 






riBFG= 


000056 


ncB = 


tttttt 


GX 


PEDSUM 


0000 16R 


002 


TPG2 


00001 7R 


003 


F Bt^"'B- 


OOOOb^ 






NPBD= 


000024 


NPC''/SF = 


ocoooo 




PEDTRN 


0001 OOP 


002 


TYPMSGs 


tttttt GX 




F CHP -- 


OOOOT'E 






NRH'r 


000030 


NTPN£F= 


000002 




PEDS 


OOOOOORG 


002 


, GETSQ= 


tttttt G 




F rNTG= 


ocoo:^ 






OVBS = 


000030 


N. D'D = 


000024 




REX IT 


G00230R 


002 


. . . TPC = 


000140 




F DFNB= 


OOOCHb 




r 


PPCC = 


OGOOId 


N. DV'NM = 


0000 z: 




FFNL 


000264P 


002 









. PBS. 

MAIN 

riESPG2 

ERRORS 



OCOOOO 
000000 

0002": 

000025 
DETECTED 



000 
001 

no2 

003 







VIPTUPL nEMOPY USED 1S6? UOPDS 
DYNPniC nEMOPY: 2£in UOPDS ' 10 
ELPPSED TIME: 00 GG: 19 
25b. 0:C PEPD-:' :5b OZO PEi^D CFF 



• S PAGES) 
FPGES' 

-3F = UPPPXr:-PEPD 



pe;^d 




CPERTED BY 


nRCRO ON 6 


-DEC-77 RT 


08 27 


PRGE 1 


SfMBOL 


CP 


OSS REFERENCE 








CREF 


svriBOL 


K 


RLUE 




REFERENCES 








ELQTCH 


z 


tttitt 


Gy 


♦2-103 








En 


z 


000031 




«2-m 


2-73 






EMDPEN 


z 


tttttt 


GX 


«2-78 








ESC 


- 


000033 




»2-»42 








ETf 


z 


000003 




«2-40 


2-71 






FOB IN 


z 


tttitt 


GX 


2-bl 


12-109 


*2-110 


2-im 


FLAGS 


z 


tttttt 


GX 


2-b9 








F EPP 


z 


000052 




2-62 


2-96 


2-100 




f nPBD 


z 


00002H 




2-64 


2-65 


*2-109 


»2-llC 


IE EOF 


z 


tttttt 


GX 


2-100 








'E PEG 


z 


tttttt 


GX 


2-96 








• OEPP 


z 


tttttt 


GX 


♦2-104 








nCB 


z 


tttttt 


GX 










NPCUSF 


z 


ooooco 




«l-5 








'iTPHSF 


z 


coooo: 




«l-4 








FRP^SS 


z 


cooo:: 




«2-im 


2-114 






pponPT 


z 


♦ ♦MM 


GX 


2-9S 


2-102 






PECSi: 


z 


♦♦♦♦*♦ 


GX 


2-b" 








PEDQG 




GOul lb 


F 


■^_ "'Q 


2-31 


82-S7 




PEDCL 




000124 


P 










PEDEOF 




000 IbH 


P 


2-97 


82-100 






PEDERP 




00012b 


P 


2-6: 


82-96 






PEDETX 




OOOObb 


P 










PEDSPL 




00003b 


P 


«2-b9 


2-Sb 






PEDSUM 




0000 lb 


P 


;:-b4 


2-QQ 






REDTRN 




000100 


P 


:-bS 


2-70 


2- "4 


8:-£0 


RED% 




000000 


PG 


«:-59 








REXIT 




000230 


P 


2-^b 


2- S3 


2-SS 


82-107 


RFNL 




0002bi+ 


P 


2-101 


2-111 


2-113 


82-115 


RGET 




00024b 


P 


2-90 


2-1 OS 


r:-ii: 




PSX 


z 


000001 




«!-: 


2-5S 






RSXlin 


z 


000001 




^\-z 








RVIPEN 


z 


tttttt 


GX 


2-u: 








TRGEl 




cooor 


P 


:-*^s 


82-9S 






trge: 




000025 


P 


2-102 


«2-102 






TRGNUM 


z 


000002 




«1-S 


2-9S 


n:-?s 


2-98 


I'MGl 




OOOOCO 


P 


2-^S 


2-98 


82-9S 




tpg: 




0000 r 


r. 


2-102 


2-102 


82-102 




T VPMSG 


z 


♦♦♦♦♦♦ 


Gv 


2-^S 


2-102 






. GETSQ 


- 


i ♦ * M 1 


G 


Z-ilu 


2-114 







M 9 



2-114 



2-10; 



82-102 



2-102 



PE^D 


CPERTED BY nflCRO ON fe- 


MQCPO ( 


.ROSS REFERENCE 




MRCRO N«nE REFERENCES 




cnov'u 


«2-nu 


»2-im 


EPPOP 


81-9 


2-98 


EPPOPK 


«l-lb 


2-98 


ippopn 


«l-32 




EPPORP 


81-U7 




EPP'^ 


82-im 


82-1114 


FPTRL 


Sl-53 




F DOFFS 


^:-Zb 


82-37 


GETS'I 


8:-3b 


2-im 


LDFDBS 


«:-iiu 


2-114 









DEC-77 AT 08 27 



«2-im 

2-102 
2-102 



PfiGE 2 
CREF 



N 9 



i:#*:;5i;«ttsggS^ggc;jyg;ggS5iggggggiglif5Wg^gg5t ^^fe!siS8s55SS=55gS 



conTEx-nRCPOS riRCPO nnon 

TwBLE OF CONTENTS 



Ob-DEC-77 08: 28 



B 10 



•» 


21 


s- 


70 


b- 


139 


/ - 


2bfe 


8- 


311 


9- 


332 


n- 


367 


i:- 


"'O '"* 


13- 


399 


m- 


um 



COnTEX nRCRO DEFINITIONS 

connuNicflTiONS line code 

OPEN files for RECEIUE 
VERTICRL FORMS CONTROL PROCESS 
HORIZONTAL FORnS CONTROL 
CRRRIRGE CONTROL 
RSSIGN BUFFER TO 
TPRNSLRTlCN ROUT 
nOl'E DRTR TO FNB 



BYSYNC TRP 
NE FOR PRINT 

OP connoN su 



NG 



DRTR f/BI/SL) 
TCH RRER 



CONSTRNT DRTR RPER 



C 10 

PECEll'E nOCPO ^nO^ 0b-DE<"-77 OS: 28 PfiGE 1 

t ;PREFIX FILE FOR 2780 UPP RUNNING UNDER RSXlirt 

2 OOOOOl RSX=1 

3 ooouoi Rsxnn=i 

^ 000002 NTRNSF=2 ; NUMBER OF FILES - 1 TO TRPHSFER IN ONE CMMD STRING (J) 

5 000000 NRCVSFrO ; NUMBER OF FILES - 1 TO RECEIVE (1) 

i ; 

7 ;nfiCRO DEFINITIONS 

8 000000 TfiGNUnsO 

9 . MACRO ERROR TEXT 
10 ERRORK <TEXT> 

n JSP PC. PROMPT 

i: . ENDM 



1 ^ 



14 ; MfiCRO TO DO R KILL PND QUEUE THE MESSPGE 

15 ; 

lb . nPCRO ERRORK TEXT 

P TRGNUM=TRGNUM^1 

IS . IPP N, < TRGNUn) 

19 JSR R6,TYPMSG 

20 . UOPD TRG'N I 

21 .WORD TRGE'N-TRG'N / 

22 .PSECT MESflG2-GBL / 

23 TRG'N. .RSCII "TEXT" 



m TRGE'N: 

25 . PSECT r>RlN 

2b . ENDn 

27 . ENDM 

28 

29 : 

30 ; nPCPO TO QUEUE R MESSRGE ONlY 

31 , 

32 . MRCPO ERRORM TEXT 

33 TRGNUn=TRGNUM+l 

3U . iRP N, < TRGNUM) 

35 

36 



39 
UO 

m 

4-^ 

46 
4b 
47 
4S 
49 
50 
51 
52 
53 
54 
55 
5b 



/ 





JSR 


R5,TYPMS1 




. WORD 


TRG'N 




. WORD 


TRGE'N-TRG'N 




. PSECT 


MESRG2.GBL 


TRG'N: 


. RSC I 1 


"TEXT" 


TRGE'N: 








. PSECT 


MAIN 




. ENDM 






. ENDM 




; MRCRO 


TO QUEUE R MESSAGE AND PPOMPT 


/ 


. MRCRO 


ERRORP TEXT 




EPROPM 


<TEXT> 




JSR 


PC PROMPT 




. ENDM 




f- 


. MRCRO 


FRTRL TEXT 




ERRORK 


<TEXT> 




JSR 


R5.DIE 




. ENDM 





conTtx-nflCPOS 


m: 


PO 


nnoH 


1 








2 








3 








k 








S 








b 








? 








8 








9 








to 








It 








\Z 








\3 








\^ 








15 








t6 








17 








18 








19 









Ofe-OEC-77 08. 21 PPGE 2 



10 



.TITLE COHTEX-rifiCROS 
. I DENT /00002/ 

COPYRIGHT 197H. 1975/ 1975, 1977 

DIGITAL EOUIPttENT CORP. 

me flPIM STREET MRYNflRD, nflSS. 0175H 

;DtC RSSUMES NO RESPONSIBILITY FOR THE USE OR 
RELIPBILITY OF ITS SOFTURRE ON EQUIPMENT WHICH 
IS NOT SUPPLIED BY DIGITfiL 

VERSION 

23-SEPTEnBER-7H 

VERSION 1 
SEP 1977 - CEP 

MODiFICPTlONS FCP CUT CODE VERSION OF 2780 
LIBP^^PY OF COMTEK nflCPO DEFINITIONS 



conTEx-nft'iPos riRCPo rin04 

COnTE> riRCPO DEFINITIONS 

21 
22 
-J 
2H 
2S 
2b 
27 
28 
29 
30 
Z\ 

33 
3H 
35 



Ob-DEC-7? 08. 28 PAGE 3 



i to 



S8TTL COriTEX MfiCRO DEFINITIONS 



. MfiCRO 

nov 

JSP 
. ENOn 

. MPCRO 
MOV 
JSP 
. ENDU 

. nflCPO 

MOV 
JSP 
. ENDM 



LINIT.PflRLST 

UPPRLST.Rl 

PC.EflTINT 



RSRBUF.PflRLST 

IIPflRLST,Rl 

PC.EMTPUT 



PUTTCPPPLST 

«PfiRLST,Rl 

PCEHTPUT 



:s 

3Q 

"40 
41 

m 
m 

44 
4E. 
46 

47 
4S 
4? 
50 
51 
52 
53 
54 
55 



MflCPO 

nov 

JSP 
. ENOn 

. nflCPO 

JSP 

, ENon 

. MRCPO 

r\o\i 

JSP 
. ENDM 

. MPCPO 

my 

JSP 
. ENDM 



PUTMC.PPRLST 

»PPPLST,P1 

PC.EMTPUT 



GETS 

PC EMTGET 



PUTTM,PPPLST 

«PRRLST,R1 

PC-EMTTIM 



PUTD,. PfiPLST 

»PfiPLST.pi 

PCEMTPUT 



COnTEX MRCPO DEFINIT 

t 

2 

I 

H 
& 

7 
8 

10 
It 

12 
13 

%H 

t5 

ti» 

X? 

18 

19 

20 

21 

22 

21 

2^ 

25 

2b 

27 

28 

29 

30 

31 

32 

ZZ 

34 

35 

36 

37 

3£ 

m 
4: 

^J 

UH 
U5 
4b 
47 
4S 
49 
50 
51 
52 
53 
54 
55 
5b 
57 



Qb-DEC-77 08: 
ONS 



28 PPGE 4 



F 10 



. TITLE 

. ;dent 



RECEIVE 
/00023/ 



COPYRIGHT (C) 1975. 1976, 1977 

DIGITPL EQUIPtlENT CORPORATION. MRYNflRD/ MflSS. 



01754 



THIS SOFTWARE IS FURNISHED UNDER fl LICENSE FOR USE ONLY ON 
fl SINGLE COnPUTER SYSTEM 9ND MAY 31 COPIED ONLY WITH 
THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS 
SOFTWARE, OR ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED 
OR OTHERWISE flfiOE AVAILABLE TO ANY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO 
THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF THE 
SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC. 

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE 
WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COM- 
MITMENT BY DIGITAL EQUIPMENT CORPORATION. 

DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY 
OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED B f 
DEC. 

VERSION 

ROBERT H. ROSENBAUM 20-SEPTEriBER-7u 



VOO-2 
VOO-3 
VOO-4 

VOO-5 
VOO-6 
VOO-7 
VOO-10 
VGO-11 
VOO-12 
VOO-13 
VGO-14 
VOO-15 
VOO-16 
VOO-17 
VOO-20 
VOQ-21 
VOO-22 
\/00-23 



10/1.^74 

11/13/74 

11/20/74 

1 /lb/75 

1/17/75 

2/13/75 
2/19/75 
2/24/75 
3/2b/75 
3/31/75 
4/28/75 
5. 20/75 
5/28/75 
b/11/75 
b/23/75 
b/27/75 
7/3/75 

9/77 - CEP 



PUT IN FI.X FOR 'IDLE-LOOP' ROBLEM 
PUT IN Fl.v FOR RECEIVE HANf PROBLEM 
PUT IN FIX FOR PUNCH FILE F(?OBLEM 



RECEIVE DATA COMPLETE ROUTINE 



CALL: 



INPCPL IS CALLED FROM THE "GETS" LOOP THROUGH THE 
UPON FINDING A UIB ENTRY FROM THE PI SYNC TAP 



JUI1P TfiBLE 



FUNCTION: 



PElEIWE 


nflCPO 


nnoi* 06-DEC 


COMTE- HQCPO 


DEFINITIONS 


B3 






E,9 






bO 






bl 


000000 


62 






63 






6U 






bS 






bb 






^ 6:- 




001000 


6S 




000020 



11 08: 28 PRGE H-l 



6 10 



THIS ROUTINE WRITES ^HE OfiTO TO THE OUTPUT DEUICE TSKING CPRE 
OF ALL UERTICflL RND HORIZONTAL FORflPTiNG 

. PSECT nPIN 

nflCRO CRLLS 

.nCflLL CLOSES 



RECEIVE STRTUS BIT DEFINIT 
TRNPEC=1000 

U0UP=20 



ONS 



;TRRNSPRRENT RECORD 
;USEP BUFFER OVERFLOW 



PECEIVIE MfiCPO MUQi* 
COmUNl CRT IONS LINE 



Ob-DEC-77 
CODE 



08: 28 PRGE S 



H 10 



70 










. SBTTL 


connuNi COT IONS line code 




11 

73 
7H 








;COnnUNl CAT IONS 


INPUT COMPLETE 














. ENPBL 


LSB 






75 000000 


1Q5767 


OOOOOOG 




INPCPL; 


: TSTB 


ONLINE 


; ONLINE 




76 OOOOOH 


100112 








BPL 


GOPSR 


; REASSIGN BUFFER 




77 000006 


012705 


000006G 






nov 


IIENTRY*6,R5 






78 000012 


012704 


000002G 






nov 


IIENTRY+2,R4 


;PDDRESS OF DPTP BUFFER 




79 000016 


032715 


006000 






BIT 


KbOOO. (RB) 


; IS IT PN EOT OR P DLE-EOT? 




80 000022 


001511 








BEQ 


INCP2 






81 00002^ 

82 


105267 


OOOOOOG 






INCB 


CMBFPV 


-RELEPSE BUFFER 




83 

SH 000030 


010546 








MOV 


R5,-fSP) 


;SPVE ERROR BITS - MSSG ROUTINE CLOBBBERS 


IT 


£5 000032 


106367 


OOOOOOG 






PSLB 


ETXFLG 


;ETX RECEIVED-? 




8b 000036 


103425 








BCS 


205 


. YES 




87 G000^0 


105767 


OOOOOOG 






TSTB 


FLPGS 


;TRPNSMIT PCTIVE? 




SS OOOOHH 


100003 








BPL 


105 


;N0 




89 0000H6 


012605 








MOU 


(SP)+,R5 


;MPKE SURE R5 RESTORED 




90 000050 


G00167 


OOOOOOG 






jrip 


SNDEOT 


;PBORT THE TRANSMISSION 




91 00005^ 


122767 


000001 


OOOOOOG 


105: 


CMPB 


81, MODE 


;HPVE WE OPENED RECEIVE FILE-? 




92 000062 


001036 








BNE 


355 


:N0, MUST BE CONTROL MODE 




93 00006U 


106367 


OOOOOOG 






PSLB 


OPNFLG 


;*«««IF NO DPTR DON'T ISSUE 




9^ 000070 


10:425 








BCS 


335 


:*«*«MESSPGE 




95 000072 


iszr-b/ 


000200 


OOOOOOG 




BISB 


8200- INCPCV 


-INCOMPLETE RECEIVE - NOTE SO THPT 




96 














;0N NEXT RECEIVE WE WILL OPEN SPME FILE 




97 












; 


;PLUS ONE VERSION 




98 












' 


;CLEPR FLPG PT ENTER TIME 




99 000100 










EPPOPK 


INCOMPLETE PtCV 


) ;TYPE ERROR MESSPGE 




100 000110 


000404 








BR 


305 


SEE IF DISCONNECT OR RVI 




101 000112 








205: 


EPPOPK 


<PECV COnPLETE) 


INDICPTE SUCCESSFUL COMPLETION 




102 000122 


004767 


OOOOOOG 




305: 


JSR 


PC. CLOSER 


;RELEPSt THE DPTPSETS 




103 000126 


005767 


OOOOOOG 






TST 


UBFCNT 


PNY BUFFER OVERRUNS THIS TIME"? 




lO^ 000132 


001402 








BEQ 


325 


NO 




105 000134 


004767 


OOOOOOG 






JSP 


PCUBFHPN 


YES, TELL THE OPERPTOR HOW MPNY 




106 ooomo 


004767 


OOOOOOG 




325: 


JSR 


PC- PROMPT 


REPPOMPT 




107 












t 


%%%%%%% 




108 00014'i 


106367 


OOOOOOG 




335: 


PSLB 


RVIPEN 


CLEPR PND TEST IF PVI IS PENDING 




109 000150 


103003 








BCC 


355 


NO 




110 000152 


152767 


000200 


OOOOOOG 




BISB 


«200,TXPEN 


YES, INDICPTE TFPNSMIT PENDING 




111 000160 


012605 






355: 


MOV 


(SP)+.R5 


RESTORE ERROR BITS 




111. 000162 


032715 


004000 






BIT 


84000, (R5) 


DLE-EOT-;* 




113 000166 


001002 








BNE 


505 


YES 




im 000170 


000167 


OOOOOOG 




405: 


J MP 


TUPNRR 






115 oool7^ 








505: 


EPPOPK 


<DiSCONNECT> 






116 00020^ 


000167 


OOOOOOG 




GODSC: 


J MP 


OFFHPN 


GO OFFLINE 




117 










. DSPBL 


LSB 






ns 


















119 000210 


112767 


000001 


OOOOOOG 


NOKE; 


MOVB 


81, MODE 


SET RECEIVE MODE 




120 000216 


016767 


001304 


OOOOOOG 




MOV 


QRECE^QMODE 


SET UP FOR QUERY TYPEOUT 




121 00022H 


152767 


OOOOOOG 


OOOOOOG 




BISB 


8PCK,RESP 


SEND PN PCK 




122 000232 


105267 


OOOOOOG 




GORSP: 


INCB 


CMBFPV 


MPKE THE BUFFER RuRILPBLE 




123 000236 


004767 


001152 






JSP 


PCPSROUT 


PSSIGN THE BUFFER TO THE TPP 




12<4 0002H2 

125 

126 000246 


000167 


OOOOOOG 




INPEXT: 


J MP 


GETENT 


GET THE NEXT UIB ENTPY 




105767 


OOOOOOG 




INCP2: 


TSTB 


FLPGS 







J 



PECEI^'E MRCPO Mno^ 06 


-OEC-77 08. 28 PfiGE 


COtinUNl CRT IONS 


LINE CODE 


127 000252 


100767 




128 000254 


1GB767 


OOOOOOG 


129 000260 


100115 




130 000262 


005765 


177776 


131 000266 


001117 




132 000270 


032715 


004000 


133 000274 


001343 




134 000276 


126727 


OOOOOOG 000001 


135 000304 


001752 




13b 000306 


152767 


000200 OOOOOOG 


13" 000314 


000735 





5-1 



10 



BMI 


GOPSR 


; IF MPSTER, IGNORE 


TSTB 


INITF 


; INITIAL IZRT ION? 


BPL 


INPRP 


;N0, GO HPNDLE TFR 


TST 


-2(R5) 


;flNY CHARS IN BUFFER? 


BNE 


RUIERR 


;YES - TYPE ERROR MESSRGE 


BIT 


HHOOO. (R5) 


; CHECK FOR VRLID EN(i 


BNE 


GODSC 


;N0 - DISCONNECT 


CMPB 


riODE.«l 




BEQ 


GORSR 


;EXTRR SELECT 


BISB 


»200,OPNFLG 


itnttSiJ FLRG TO SHOW EN 


BF 


NOKE 


;»*«*«* 



RECEIVED 



OPEN F !LES FOR RECEIVE 



DEC-77 08; 28 PRGE h 



J 10 



139 

mo 

m2 
mz 

14H 
146 

m? 

148 
149 
ISO 
lEl 

15: 

1B3 
1S4 

1S6 
15b 
1S7 
IBS 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
17S 
179 
ISO 
ISl 

is: 

1S3 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 



SBTTL OPEN FILES FOR RECEIVE 



000316 
000322 
000326 
000332 
000334 
000336 
000340 
000344 
000350 
000354 

000360 
00036: 
000 36b 



000372 
000376 

000402 
000406 
000412 
000416 
000424 
0004 32 
000440 



000440 
000446 
000454 



000464 
000470 
000472 
000506 



012702 
012701 
012700 
005732 
1C0412 
014202 
004767 
012701 
012700 
004767 

000427 
010262 

012712 



012702 
004767 

005067 
005067 
005067 
012767 
012767 
012767 



012767 
012767 
005067 



000460 105067 



004767 
103011 



OOOOOOG 
OOOOOOG 
OOOOOOC 



001152 
OOOOOOC 
OOOOOOG 
001136 



SLfiVCl 



7b 



DFLT: 



1" 



< f i i 



OOOOOOG 
001114 

OOOOOOG 

OOOOOOG 

OOOOOOG 

000206 OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 



DFCNT: 



NDFLT: 



SUITOK: 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 



OF 



152767 000200 OOOOOOG 



nov 

MOV 

nov 

TST 

Bni 
nov 

JSR 
MOV 
MOV 

JSP 

BR 

nov 

MOV 

. IF 

MOV 

CLP 

CLP 

CLP 

CLP 

CLR 

CLP 

BP 

. ENDC 

. IF or 

MOV 
JSR 

CLP 
CLP 
CLP 
MOV 
MOV 
MOV 

. ENDC 
. IF OF 

nov 

JSR 

BMI 

JMP 

JSP 

. ENDC 

. IF DF 

MOV 

MOV 

CLP 

. ENDC 

CLRB 

JSR 
BCC 
EPROP 
81 SB 



IIRCVBLK.R2 

US. FNBU/Rl 

(IFOBOUO^F. FNB. 

d(R2)^ 

DFLT 

-(R2),R2 

PCXFRFNB 

«RCVSUT/<^,R1 

tlSUR6N.R0 

PCXFRFNB 

DFCNT 
R2. -2(R2) 
«-l. (R2) 
RTll 

DEVLP, (R2)+ 
(R2) + 
f R 2 ) + 
( P 2 ) + 
(P2) + 
( R 2 ) + 
PCVSW 
SLflVCl 

PSX 

«DFNLP,P2 

PC.XFPFNB 

SWPBN 
SUPSL 
PCHN 

»134. ,PVflL 
«P. Vqp.PTYP 
«FD. CP.PSTT 



RTll 

»RCuSW,Pl 

PC SWITCHES 

SWITOK 

PERR 

PC.DFNBUF 

P3X 

nCOLTT.COLPl 
«C0LTT,C0LP2 
PECSl 

INCRCV 

PC. ENTER 

INPRfi 

<PECV OPEN ERR 

n200. lOEPR 



;» OF WORDS TO MOVE TO FNB 
RO ;fiDDR OF UHERE TO MOVE THE DflTP 
USE DEFAULT FILE NAME? 

NO- GET POINTER TO RECEIVE NAME BLOCK 
TRANSFER DfiTP FROM RCVBLK flREP TO FNB I 
» OF WORDS OF RECEIVE SWITCHES 
PDDR OF FIRST SWITCH 
TRANSFER SWITCHES TO COMMON RREP 
FROM END OF RCVBLK FOR THIS FILE 
OPEN THE FILE 

RESET RCVBLK POINTER TO STPRT 
INDICPTE NO RECV CMMDS PENDING 



N FOB 



DEFPULT TO LP 

FILENPME 

FILENPME 

EXTENSION 

SIZE 

END INDICATOR 



SINCE NO RECEIVE CMMD- DEFPULT 
TRANSFER DPTR FROM DEFAULT NPME BLOCK 

TO FNB IN FOB 
CLEAR ALL SWITCHES 



DEF INE SWiirHES 



SWITCHES APE OK(LEGAL) 



FOR VERTICAL FORMAT CONTROL 
FOR VERTICAL FORMAT CONTROL 
CLEAR TOTPL RECORD SIZE 

CLEPR INCOMPLETE RECEIVE FLAG 

(EOT WITH NO ETX) 

ENTER FILE 

ERROR FROM OPEN"?********* 

YES - INFORM OPERATOR 

**«***«SET TO ABORT RECEIVE 



PECEP/E 


nficpo nii04 06 


-DEC-77 08. 28 PfiGE 6-1 




K 10 




OPEN FILES FOP 


RECEIVE 












19e 

197 
198 
















000514 






INPRfl; 








199 


000514 


106367 


OOOOOOG 




flSLB 


OPNFLG 


;lll«<DO WE NEED TO OPEN FILE? 


200 


000520 


103676 






BCS 


SLflVCl 


;III«IYES 


201 


000522 


006715 






TST 


(R5) 


;flBNORriflL FORMAT-^ 


202 
203 
204 


000524 


100003 






BPL 


TSTPFL 


;N0. GO CHECK CONDITIONS 


000526 


052715 


000200 


RVIERR: 


BIS 


«200, (R5) 


; FORCE RECORD ERROR FLOG 


205 

20b 


000532 


000414 






BR 


SETBW 




207 

:os 


000534 


032715 


OlOOOO 


TSTPFL; 


BIT 


UIOOOO, (R5) 


;N0. ETX SEEN? 


209 


000540 


001404 






6EQ 


INPR2 


.NO, CHECK FOR OB END 


210 


000542 


152767 


000200 OOOOOOG 




BiSB 


»200,ETXFLG 


;YES, SET ETX FLRG 


2il 


000550 


000405 






BR 


SETBW 


;G0 TO COMMON PRINT CODl 


212 


000552 


032715 


040000 


INPR2: 


BIT 


«40000, (R5) 


,flB END? 


213 


00055b 


001402 






BEQ 


SETBW 


;N0, GO COMMON CODE 


214 


000560 


012715 


030377 




nou 


iliZQ377, (P5) 


;SET ERROR FLOGS AND ETX FLAG 


21B 


000564 


032715 


030000 


SETBW: 


BIT 


«300DC, (R5) 


;ETX OR ETB?'? 


21b 


000570 


001403 






BEQ 


SETB5 


;N0 


217 


000572 


152767 


000200 OOOOOOG 




BISB 


»200,RCKPEN 




21S 


000600 


105767 


OOOOOOG 


SETBB: 


TSTB 


lOERR 


;fl WRITE ERROR? 


219 


000604 


001417 






BEQ 


SETBO 


;N0 


220 


0G0b06 


105267 


OOOOOOG 




INCB 


INPCNT 


:YES - COUNT RECORD flS RECEIVED 


221 


000612 


105267 


OOOOOOG 




INCB 


CnBFRU 


;nflKE THE BUFFER flVfllLRBLE 


22! 


000616 


004767 


000572 




.ISP 


PCflSROUT 


; ASSIGN THE BUFFER TO THE TAP 


223 


000622 


106367 


OOOOOOG 




flSLB 


flCKPEN 


; RECORD CONTAIN ETB OP ETX^ 


224 


000626 


103205 






BCC 


INPEXT 


;WAIT FOR REMAINING RECORDS IN BLOCK 


22B 


000630 


105067 


OOOOOOG 




CLPB 


lOERP 


; CLEAR ERROR 


226 


000634 


105067 


OOOOOOG 




CLPB 


INPCNT 


; CLEAR INPUT COUNT 


227 
228 
229 


000640 


000167 


OOOOOOG 




jnp 


SNDEOT 


;SEND EOT 


000644 


005767 


OOOOOOG 


SETBO 


TST 


NflKCNT 


;EPROR BLOCK BEING RECEIVED'' 


230 


000650 


100433 






Bni 


SETB4 


;YES - 


231 


000652 


001417 






BEQ 


SETB2 


;NOT A RETRANSMIT RECORD EITHER 


'7 7 '? 
^ J ^ 


000654 


005367 


OOOOOOG 




DEC 


NRKCNT 


; THROW RETRANSMITTED RECORDS AWAY 


.-^ -^ -T 


000660 


106367 


OOOOOOG 




flSLB 


RCKPEN 


;MAKE SURE IS NOT FINAL RECORD 


234 


000664 


103010 






BCC 


5S 


; IS OK 


235 


000666 


105067 


OOOOOOG 




CLPB 


ETXFLG 


; IS A FINAL RECORD - CLEAR ETX FLAG 


23b 


000672 


016767 


OOOOOOG OOOOOOG 




MOV 


INPCNT, NRKCNT 


.RESET NAK COUNT FOP NEXT TIME 




000700 


152767 


OOOOOOG OOOOOOG 




BISB 


»N«K. PESP 


;SET TO SEND A NAK 


239 
240 


000706 


0001S7 


177320 


55: 


JMP 


GOOSP 


; UNTIL NAKCNT BECOMES ZERO 


000712 


105715 




setb:: 


TSTB 


iP5) 


;EPPOP INDICATED FOR THIS PECOPD'? 


241 


000714 


100045 






BPL 


SFTBl 




242 


000716 


042715 


G00220 




BIC 


U200IU0VP- "P5> 


: JUST A BUFFER OVERRUN'^ 


243 


000722 


105715 






TSTB 


^P5^ 




244 


000724 


001003 






BNE 


10% 


;N0. OTHER ERRORS TOO 


245 


000726 


005267 


OOOOOOG 




INC 


UBFCNT 


;YES, INCREMENT « OF SUCH EPPOPS 


246 


000732 


0004 36 






BR 


SETBl 


.PROCESS TRUNCATED RECORD NORMALLY 


24 7 


000734 






10%: 








248 


000734 


005237 


OOOOOOG 




INC 


olSSTKSET 


; INCREMENT BCC ERROR COUNT 


249 


000740 


105067 


OOOOOOG 


SETB4: 


lLPB 


ETXFLG 


.; ERROR DETECTED !N BLOCK. DON'T 


250 














; ALLOW ETX ACTIONS 


251 


000744 


105267 


OOOOOOG 




INCB 


INPCNT 


; COUNT RECORD AS PECEI'-ED 


252 


000750 


105267 


OOOODOG 




INCB 


NflKCNT 


; INCREMENT EPPOP PECOPD COUNT 



vPEN F ILES FOP RECEIVE 



DEC-77 08: 28 PfiGE 6-2 



L 10 



263 


000:'6H 


062767 


lOOOOG 


OOOOOOG 


26H 


000762 


106367 


OOOOGOG 




266 


000766 


103H02 






26t 
267 
263 


Q00770 


000167 


177236 




00077^ 


042767 


100000 


OOOOOOG 


269 


001002 


166767 


OOOOOOG 


OOOOOOG 


2b0 










2b I 


OOIOIO 


01b7b" 


OOOOOOG 


OOOOOOG 


262 


001G16 


16276^ 


OOOOOOG 


OOOOOOG 


263 


001021* 


0001b" 


17:'202 




2b^ 


001 C 30 









SETB3 



BIS 


UlOCuGG.NQKCNT 


,SET RCVING BAD BLOCK FLAG 


flSLB 


fiCKPEN 


,ETB OR ETX SEEN? 


BCS 


SETB3 


,YES 


JflP 


GOPSR 


; THROW RECORD flWOY 


BIC 


IIOOOOO.NPKCNT 


.END OF ERROR BLOCK 


SUB 


NfiKCNT, INPCMT 


;NUnBER OF GOOD RECORDS IN BLOCK 
;THr^T WERE PRINTED 


MOV 


INPCNT. NflKCNT 


,NU.1BEP OF RECORDS IN PETPflNSMlT 


81 SB 


«NflK,PESP 


, SEND P NflK 


J MP 


GORSP 





SETBl 



PE'.EruE nfiCPO nnO^ Ob-OEC-?? 08: 
VEPTi'lPL FOPnS CONTROL PROCESSING 



28 PfiGE 7 



266 
^b? 
ZbS 
2b? 
2"0 
271 

■t-y ^ 

i. < 4. 

273 
27H 

4. < b 

2'^S 
27"^ 
2S0 
2S1 
282 
283 
2SH 
286 
2Sb 

nQ-f 

^O t 

288 
289 
2?0 
291 
292 
293 
29H 
296 
29b 
297 
298 

300 
301 

302 
303 
304 

306 
30b 
307 
30S 
309 



H 10 



SBTTL VERTICRL FORMS CONTROL PROCESSING 



001030 
001032 
00103H 
0010^0 
0010M2 
OOlOHfc 
001050 
00106b 
001060 
001066 
001070 
00107^ 
00107b 
001102 
001 lOH 
001112 



ooiim 

001122 
00112^ 

001126 
00113H 
001136 
001142 

ooimn 
ooim6 

001152 
001154 
001162 
001164 
001170 
001172 
00117U 
001200 
001202 



001210 



005002 
012405 
105767 
001432 
105767 
0C1533 
032764 
001407 
022767 
001523 
004767 
000414 
121527 
001366 
126527 
001366 



012767 
005725 
000476 

032764 
001004 
021627 
001010 
000763 
105767 
001404 
022767 
001465 
122527 
001062 
112502 
105767 
G01403 
012767 



OOOOOGG 
OOOOOOG 



001000 000002 



BINARY: 



OOOOOGG OOOOOOG 105: 

000374 205: 

OOOOOOG 305. 
000001 OOOOOOG 

OOOOOOG OOOOOOG SELECT: 

001000 000002 NOBINP: 
032000G 

OOOOOOG 105: 
OOOOOOG OOOOOOG 
OOOOOOG 205: 

OOOOOOG 
OOOOOOG OOOOOOG 

NOSLCT: 



CLR 

no\/ 

TSTB 

BEQ 

TSTB 

BEQ 

BIT 

BEQ 

CMP 

BEQ 

JSP 

BP 

cnPB 

BNE 
CMP 8 
BNE 



nov/ 

TST 
BP 

BIT 

BNE 

CMP 

BNE 

BP 

TSTB 

BEQ 

cnp 

BEQ 

CMPB 

BNE 

MOi'B 

TSTB 

BEQ 

MOl/ 



n 

(R4)i.R5 

SURBN 

N06INR 

SWRSL 

LPGON 

»TRNREC,2fR4) 

30% 

WCHRNL.SURSUP 

LPGON 

PCTRNSLT 

NOBINR 

(P5).»BINESC 

105 

1 iP5). »BIN4 

205 



8'.H«NL 
• P5i + 
CHPCL 



SUP SUP 



P4 



STRNPEC- 

105 

" P5). ;64*400+ESC 

205 

SELECT 

SWPSL 

"'05 

SCHRNL-3UFSUP 

LPGCN 

(P5)+.«ESC 

LPGON 

i f^ 5 ) + . P 2 

SUPSL 

NOSLCT 

;CHRNL2.SUPSL'P 



fiS IS 

N TRONSPRI^ENCY 



;CLERR CRRRlfiGE CONTROL 

BINRRY nODE 

NO 

SELECTIVE RECEIVE TOO'' 

NO. JUST WRITE THE RECORD 

UflS THIS RECORD RECEIVED 

NO 

PREVIOUS RECORD fl PUNCH RECORD? 

YES, TREAT THIS ONE flS PUNCH DfiTH TOO 

NO, TRflNSLflTE THE DflT« TO RSC I I 

CHECK FOR VFC PND HFC 

DOES THIS RECORD STRRT UlTH fiN ESCPPE^ 

NO, TREAT LIKE THE LAST RECORD 

BINPRY ESCPPE FOUR^ 

NO, TREPT PS P PRINT RECORD 

OTHERWISE SELECT PUNCH CHPNNEL 8. UP ITE 

SELECT THE PUNCH CHPNNEL 
SCIP OVER ESC SEQUENCE 
AND WRITE THE RECORD 

TPPNSPRPENT RECORD'^ 

YES. IGNORE DEVICE SELECTION 

;PSCI I ESCPPE FOUR'' 
NO, SEE IF PRINT SELECTION PRESENT 
YES, SELECT PUNCH CHANNEL 
SELECTIVE RECEIVE ACTIVE'' 



NO. TREAT ALL ESCAPE SEQUENCES AS VFC 

YES< LAST RECORD A PUNCH RECORD'^ 

YES. TREAT THIS HnE A PUNCH THEN 

ASCI I ESCAPE'' 

NO- JUST WRITE LIKE THE LAST RECORD 

GET SECOND CHARACTER OF ESCAPE SEQUENCE 

SELECTIVE RECEIVE REQUESTED (/SL; 

NO- JUST ANALYZE PPINT CONTROL 

YES, SELECT PRINT CHANNEL 

AND Pr^flLfZE FORMS CONTROL 



PECEll'E nPCPO nilOU Ob-DEC-?? 08:28 PfiGE 8 
W0P120NTPL FOPflS CONTPOL 



N 10 



Z\\ 
312 

313 

:m 

31S 
31b 
317 
318 
319 
320 
321 

7-? "> 

323 

325 

326 

7--q 
330 



SBTTL HORIZONTAL FORMS CONTROL 



001210 120227 000011 

001211* 001024 

00121fe 012702 OOOOCOG 

001222 0111403 

00122H 005743 

001226 012700 lOOOOOG 

001232 112501 HFRCOP 

001234 120127 000011 

001240 001401 

001242 005001 

001244 110120 HFPCl: 

001246 005302 

0C1250 001402 

00125: 005303 

001254 001 3bb 

00125b I52"b7 000200 GOOOOGG HFPC2: 

001264 000433 



cnPB 


R2.I11 


BNE 


INPR 


nou 


«LPSIZE,R2 


nov 


(R4),R3 


TST 


-(R3) 


nov 


UHFCREC.RO 


novB 


(R5)t,Rl 


cnPB 


RMIll 


BEG 


HFRCl 


CLR 


Rl 


nouB 


PI, IRQ) 4- 


DEC 


P2 


BEG 


HFRC: 


DEC 


P3 


BNE 


HFPCOP 


BiSB 


;20G.HFCPCT 


8R 


LPMN 



ESC HT SEQUENCE'' 

NO - DO DEFAULT VFC 

YES - COPY RECORD INTO HFC STOROGE 

RECEIVE COUNT 

SUBTRACT TWO FOP ESC HT CHRPS 

USE BUFFER TO STORE HFR 

GET NEXT CHAR 

IS IT HT'^ 

YES - LERVE PIS , S 

NO - CLERR IT 

STORE CURRENT CHRP 

ROOn FOR MORE'' 

NO - IGNORE THE PEST OF THE RECOPD 

nORE TO DO'' 

YES - GO DO NEXT CHRP 

SET 'HFC RCTn/E' FLRG 



^ii!{i i ^j|]^)!<{iJM4y^^ 



cfeffixgiiKaeaHa 



gUlesiSlI 



BS9US9.';nu>9SS!B!S»!Sfl5!!!»m 

■- " \* . " . y ., " ... r A 'Vi i. vr . T" i *r . i ''?: i '' . i . ':v;:y'j' . r .. l - " 



mmssSisi^i 






ECEP'E nOCPO nUOH 
tPPPIRGE CONTROL 



Ob-DEC-77 08: 28 PRGE 9 



B n 



w ^ ^ 

336 
33b 
337 
338 
339 
3H0 
341 

34 3 
3HH 
34 E. 
346 
347 
34 S 
349 
350 
351 
352 
353 
354 
355 
35b 
357 
358 
359 
3bO 
3fcl 

36: 

363 
36U 



001266 
0C1272 
001276 
001300 
001304 
001306 
001J12 
001314 
001320 
001322 
001324 
001326 
001330 
001334 

001336 
001340 
001342 

001346 
001350 

001354 
001360 
001364 
001370 
001372 
001376 
001404 
001410 



042702 
162702 
002411 
020227 
003407 
162702 
0C2403 
020227 
002401 
005002 
010500 
011401 
062701 
000402 

011401 
014400 
004767 

103002 
004767 

105267 
105267 
106367 
103005 
105067 
152767 
004767 
000167 







SBTTL 


CflRRIflGE C 


177600 


INPR: 


BiC 


«177600.R2 


OOOICO 




SUB 


«100,R2 






BLT 


CHRCL 


000010 




CMP 


R2.«10 






BLE 


CHRSL 


000012 




SUB 


»12.R2 






bLT 


CHRCL 


000013 




cnp 


P2,«13 






BLT 


CHRSL 




CHRCL: 


CLP 


R2 




CHRSL: 


ncu 


R5.R0 






r,ov 


(R4).P1 


177776 




ADD 


»-2,Pl 






BP 


LPGOC 




LkGON: 


riov 


(P4).R1 






nov 


-(P4),P0 


OOOOOOG 


LPGOC: 


JSR 


PC. WRITS 






IF DF 


PSX 






ecc 


LFF IN 


OOOOOOG 




JSP 
. ENDC 


PC, CLOSER 


OOOOOOG 


LPFlfJ: 


INCB 


CflBFRV 


OOOOOOG 




INCB 


INPCNT 


OOOOOOG 




flSLB 


flCKPEN 






BCC 


SETB6 


OOOOOOG 




CLRB 


INPCNT 


OOOOOOG OOOOOOG 




BISB 


«RCK.PE3P 


000004 


SETB6: 


JSR 


PC.. RSPOUT 


OOOOuQG 




JMP 


GETENT 



IS CC RN ^-H 

NO LESS THRN R 

IN RRNGE OF ^-H 

YES 

IS IT RN S OR T 

NO, CC IS H-P( ILLEGRL) 

GRERTER THAN T 

YES 

BUFFER RDDP IN PO 
GET WORD lOUNT 



.BUFFER RDDP IN PO 
; WRITE 

•BRANCH IF NO EPPOP 

; OTHERWISE CLOSE THE FILES 



INCREMENT C OUTER 

HRVE WE SEEN RN ET> ETB 

NO 

CLERP INPUT COUNT 

SEND AN RCK 

RSSIGN BUFFER 



PE'lEi'iE nocpo 
fiS^lGN BUFFER 



268 
369 
370 
371 
372 
373 
37^ 
37S 
37b 

37S 

3:^9 

3S0 



nnOH Ob-DEC-77 
TO BYSYNC TRP 



08: 28 PfiGE n 



oomm 

0011420 

oom26 
oomzfe 
oom^H 

001H50 
0011452 

oomsfe 

001460 

oomtz 

0014 66 



116700 
016067 

142767 
105367 
005720 
020027 
103401 
005000 
110067 
000207 



OOOOOOG 
GOOOOGG 000002G 



flSROUT. 



000140 
OOOOOOG 

OOOOOOG 



OOOOOOG 



OOOOOIG 



C 11 



SBTTL PSSIGN BUFFER TO BYSYNC TAP 



PSP2: 



novB 


pssgnx.ro 


MOV 


Cn8LST(R0),BI 


RSPBUF 


6ISPPR 


BIC6 


«mO.BlSPRP*l 


DECB 


CnBFPV 


TST 


(RO)* 


cnp 


RO,«CnBMflX 


BLO 


RSR2 


CLP 


PO 


nouB 


PO.OSSGNX 


PTS 


PC 



SPPR^2 



.FIND CURRENT ASSIGN SLOT 

;..PND MOVE BUFFER PODRESS TO PRGLIST 

PSSIGN TO B I SYNC TPP 
; RESET THE OP-CODE 

;UPDPTE SLOT INDEX 
;NEED TO RESET IT^ 



;SPVE UPDPTED INDEX 















D 11 




»?r :[niE 


nocpo hno^ Ob- 


-OEC-77 08 28 


FRGE 12 








TVRNSLnTlON POUTINE FOP 


PPINT DflTfl '.. 


'BI/SD 








383 










. SBTTL 


TRflNSLPTION ROUTINE FOR PRINT DPTP (/Bl/SL) 


38^4 

3SS 








; INPUTS: 






386 










P4=P0INTER TO BYTE COUNT 


387 










R5=P0INTER TO ORTR 




388 








■ - 








389 


oom70 


011401 




TPNSLT: 


MOV 


(R4),R1 


;GET THE BYTE COUtiT 


390 


001472 


01054b 






nou 


R5,-(SP) 


;Sfl'/E OflTfl POINTER 


391 


001474 


111500 




lOS 


MOVB 


(R5),R0 


;GET THE NEXT CHflRflCTER 


7Q^ 


00147b 


042700 


177400 




die 


«177400.P0 


;CLEPR THE HIGH BYTE 


393 


001502 


llb025 


QQOOCOG 




ncvB 


ETfifRO), fR5)> 


,GET ITS EQUIVALENT (TPBLE DEF 1 


39H 


00150b 


005301 






DEC 


PI 


;DECREnENT CHflRCTER COUNT 


395 


001510 


001371 






BNE 


105 


;MORE TO GO 


:9b 


ooi5i: 


012605 






nov 


(CP "^-P5 


;RESTORE DflTfi POINTER 


39:- 


001514 


000207 






PTS 


PC 


;PLL Di'iNE 



NED IN TOP) 



E n 

PElLiwe rifiCPO nnOH Ob-OEC-77 08:28 PPiGt 13 
nO'i'E DfiTR TO FNB OR COnnON SWITCH RRER 

399 . SBTTL MOVE OOTQ TO FNB OR COMMON SWITCH AREA 

HOO 

HOI ; INPUTS: 

402 ; R0=DESTINQTI0N 

403 ; Rl=« OF WORDS TO MOVE 

404 ; R2=S0URCE 

405 r- ; 

406 001816 XFPFNB: : 

40^001516 012220 MOV (R2)*, ^RO)* ;MOVE ONE WORD 

40S 001B20 006301 DEC Rl ; DECREMENT THE WORD COUNT 

40? 001622 001376 BNE XFPFNB ;MOPE TO GO 

410 001624 000207 PTS PC ;fiLL DONE 

411 

ui: 



.^^ 



CONSTPNT OfiTR RPEP 



Ob-OEC-77 08: 28 PfiGE IH 



U17 



001526 



070bl3 
000001 



QPECE. 



F U 

SBTTL CONSTPNT DflTO PPEfi 

PfiDBO 'PEC 

END 



• 


PECEIVE 


riRCPO nnOH Ob-OEC-77 


08: 28 PRGE 


m-1 




G 


11 














SYMBOL 


TRBLE 


























RCK 


tttttt GX 


ENTER = 


ttltll GX 




INPRR 


0005mR 


002 


RCVSUTs 


Ittit* GX 




SURSL 3 


****** GX 




flCKPEN= 


ntttt GX 


ENTRY = 


tttttt GX 




INPR2 


000S62R 


002 


RECSl s 


*tt*«l GX 




SURSUP3 


****** GX 




RSPOUT 


oommRG 


002 ESC = 


tttttt GX 




lOERR = 


IllttI GX 




RESP 2 


tttttt GX 




S. FNBU3 


****** GX 




RSR2 


OOmbZR 


002 ETR = 


tttttt GX 




LPFIN 


0013&HR 


002 


RSX 3 


000001 




TflGEl 


0000 17R 


003 


fiSSGNX= 


tttttt GX 


ETXFLG= 


tttttt GX 




LPGOC 


00t3H2R 


002 


RSXllMs 


000001 




TAGE2 


00003^R 


003 


BINPIRY 


0010H2R 


002 FDBOUQs 


tttttt GX 




LPGON 


001336R 


002 


RTYP s 


titttt GX 




TRGE3 


0000H6R 


003 


BINESC= 


tttttt GX 


FD. CR = 


tttttt GX 




LPSlZEs 


tttttt GX 




RUPL 3 


«tl««» GX 




TRGE^ 


000063R 


003 


BINH = 


Ittt** GX 


FLRGS = 


tttttt GX 




MODE = 


tttttt GX 




RVIPENs 


****** GX 




TflGNUMs 


OOOOOM 




BlSPfiP= 


tttttt GX 


F. FNB = 


tttttt GX 




NRK = 


|«<tl» GX 




RVIERR 


000526R 


002 


TRGl 


OOOGOOR 


003 


CHRNL = 


»««t«« GX 


GETENT= 


tttttt GX 




NRKCNTr 


tttttt GX 




R. URR 3 


****** GX 




TflG2 


0000 17R 


003 


':H«NL2= 


*<»**« GX 


GORSR 


000232R 


002 


NOB ! NR 


00tl2bR 


002 


SELECT 


OOlimR 


002 


TPG3 


00003HR 


003 


<:hfcl 


001322R 


002 GODSC 


00020^R 


002 


NCKE 


000210R 


002 


SETBW 


00056HR 


002 


TPGH 


OOOOHbR 


003 


:hpsl 


00132^R 


002 HFCRCT= 


*IXI<| GX 




NOSLCT 


001210R 


002 


SETBO 


QOObHHR 


002 


TRNRECs 


001000 




':losep = 


****** GX 


HFCREC= 


tttttt GX 




NRCVSFs 


000000 




SETBl 


G0;030R 


002 


TRNSLT 


00m70R 


002 


■nBFRV= 


****** GX 


HFRCOP 


001232P 


002 


NTRNSF= 


000002 




SETB2 


0007 12R 


002 


TSTPFL 


00053^R 


002 


'1BLST = 


****** GX 


HFRCl 


0012HHR 


002 


OFFHRN= 


*«*«*« GX 




SETB3 


00077^R 


002 


TURNRRs 


****** GX 




: riB nRx= 


****** GX 


HFPC2 


00125bR 


002 


ONLINE: 


****** GX 




SETBH 


000740R 


002 


TXPEN = 


****** GX 




COLPl - 


****** GX 


INCP2 


00024bR 


002 


OPNFLG= 


****** GX 




SETB5 


GOObOOR 


002 


TYPMSG= 


****** GX 




':0LP2 -- 


****** GX 


INCRCU= 


****** GX 




PROMPT: 


****** GX 




SETBb 


OOmOHR 


002 


UBFCNTr 


****** GX 




COLTT = 


****** GX 


INiTF = 


****** GX 




QMODE = 


****** GX 




SLRVCl 


00031bR 


002 


UBFHflN= 


****** GX 




DFCNT 


0004H0R 


002 INPR 


0012bbP 


002 


QRECE 


00l52bR 


002 


SNDEOT= 


****** GX 




UOVR = 


000020 




DFLT 


000362P 


go: inpcnt= 


****** GX 




PRTT = 


**«*»* GX 




STKSET= 


****** GX 




WRITS = 


****** GX 




DFNLP = 


****** GX 


INPCPL 


OOOCOOPG 


002 


PCHN = 


****** GX 




SUPBN = 


****** GX 




XFPFNB 


G0151bPG 


002 


EnTPUT= 


****** GX 


INPE.v.T 


000:U2P 


oo: 


PC'|''BL^ = 


****** GX 
















. RES. 


000000 
000000 


OGG 
001 
























MR IN 


001530 


002 
























MESRG2 


000063 


003 
























ERRORS I 


DETECTED: 



























VIRTURL 


riEMORY USED: mbB UOPDS ( 6 FRGES 


) 




















DYNRniC 


MEMORY: 2S10 UOPDS ( 


10 PRGES' 






















ELRPSED 


TIME: 00: 


00. 32 
























26b<02( 


3 RECV;27. 


256.030 PEC'i. ( 


:PF.-sp=uflPP 


xri. c" 


r.xnRCPECU ^ 































H 11 


PECV 




CRERTED BY 


MfiCRO ON 6 


-DEC-77 AT 


08 28 


PAGE 1 


St'tlBOL 


CROSS REFERENCE 








CREF 


SVriBOL 


VALUE 




REFERENCES 








RCK 


s 


tttttt 


GX 


S-121 


9-360 






fiC K.PEN 


= 


ttnn 


GX 


«b-217 


t6-223 


»6-233 


16-254 19-357 


fiSPOUT 




Gomm 


RG 


B-123 


6-222 


9-361 


811-370 


RSPZ 




00^62 


R 


11-377 


«ll-379 






OSSGNX 


s 


tttttt 


GX 


11-370 


«ll-379 






BiNfiPY 




001042 


R 


«7-272 








BINESC 


z 


tttttt 


GX 


7-280 








BINH 


z 


tttttt 


GX 


7-282 








BlSPflP 


= 


tttttt 


GX 


I11-371 


11-372 


*ll-373 




CHRNL 


2 


tttttt 


GX 


7-276 


7-286 


7-297 




CHPNL2 


- 


tttttt 


GX 


7-304 








'HPCL 




001322 


R 


7-288 


9-335 


9-339 


89-342 


CHPSL 




001324 


R 


9-337 


9-341 


89-34 3 




CLOSER 


= 


tttttt 


GX 


5-102 


9-353 






CMBFflV 


= 


^^tt*tt 


GX 


«5-Sl 


*5-122 


*b" M*. 1 


*9-355 *ll-374 


CriBLST 


- 


tttttt 


GX 


11-371 








CMBnpv 


: 


ittttt 


GX 


ll-3"6 








COL PI 


r 


****** 


GX 


*!6-l86 








C0LP2 


z 


****** 


GX 


*6-l!:7 








COLTT 


z 


tttttt 


GX 


6-186 


6-1S7 






DFCNT 




000H4G 


R 


6-153 


86-176 






DFLT 




000362 


P 


6-146 


86-154 






DFNLP 


z 


tttttt 


GX 


6-16" 








EMTPUT 


z 


tttttt 


GX 


11-372 








ENTER 


z 


tttttt 


GX 


6-192 








ENTRY 


z 


tttttt 


GX 


5-77 


5-78 






ESC 


z 


tttttt 


GX 


7-292 


7-299 






ETfl 


= 


tttttt 


GX 


12-393 








ETXFLG 


z 


tttttt 


GX 


*5-S5 


*b-210 


*6-235 


U-249 


FDBOUO 


z 


tttttt 


GX 


6-144 








FD. CR 


z 


tttttt 


GX 


6-175 








FLOGS 


- 


tttttt 


GX 


5-S7 


5-126 






F. FNB 


r 


tttttt 


GX 


6-144 








GETENT 


z 


tttttt 


GX 


5-124 


9-362 






GOfiSR 




000232 


R 


5-76 


85-122 


5-127 


5-135 b-23S 


GODSC 




000204 


R 


«5-116 


5-133 






HFCRCT 


z 


****** 


GX 


*S-32S 








HFCPEC 


r 


tttttt 


GX 


S-31S 








HFPCOP 




001232 


R 


»S-319 


8-327 






HFPCl 




001244 


R 


S-321 


8S-323 






HFPC2 




001256 


P 


8-325 


8S-32S 






INCP2 




000246 


P 


5-80 


85-126 






INCRCV 


- 


tttttt 


GX 


*5-95 


*6-190 






INITF 


z 


tttttt 


GX 


5- 128 








inpk; 




001266 


R 


S-314 


89-333 






INPCNT 


z 


tttttt 


GX 


*6-220 


*6-226 


6-23b 


♦6-251 *b-259 


INPCPL 




000000 


RG 


«5-75 








INPEXT 




000242 


R 


{J5-124 


6-224 






INPRfi 




000514 


R 


5-129 


6-193 


86-19S 




INPR2 




000552 


P 


6-209 


86-212 






lOEPR 


z 


****** 


GX 


*6-195 


6-21S 


*6-225 




LFFIN 




001354 


R 


S-329 


Q-7R2 


n?-355 





6-256 



i-2bJ> 



b " ^ b 1 



*9-356 



^Q_ 7C,C) 



RECU 

Si'MBOL 

SYMBOL 

LPGOC 

LPGON 

LPSIZE 

nODE 

NfiKCNT 

N09INP 

NOKE 

NOSLCT 

f IP rjf SF 

riTPNSF 

Ht^FHRN 

^'ML I ME 

jPNFLG 

PPOnPT 

'JMODE 

'iPECE 

PRTT 

PCHN 

RCUBLK 

PC USUI 

RECSl 

PESP 

PSX 

Rsxiin 

RTYP 

RTll 

RVRL 

RUIPEN 

RUIERR 

R. vqp 

SELECT 

SETBW 

SETBO 

SETBl 

SETB2 

SETB3 

SETBM 

3ETB6 

.".ETBb 

Sl PUC 1 

SNDEOT 

STKSET 

SWPBN 

SWRSL 

SWRSUP 

S. FNBW 

TRGEl 

TRGE2 

TRGE3 

TRGEU 

TRGNUn 



CREATED BY 
CROSS REFERENCE 
VRLUE 

00131*2 R 

001336 R 
= tttttt GX 
= tttttt GX 
= tttttt GX 
r tttttt GX 

001126 R 

000210 R 

001210 R 
= 000000 
= 000002 
= tttttt 
- tttttt 

^ ^ ^ ^ ^ ^ ^ 

= tttttt 

= tttttt 
GGIS26 

= ****** 

= ****** 

= ****** 

= ****** 

= ****** 

: ****** 

= 000001 
= 000001 

= ****** 

= tttttt 

= tttttt 

= ****** 

000526 
= ****** 

ooiim R 

000B64 R 

0006M4 R 

001030 P 

000712 R 

000774 R 

000740 R 

000600 R 

001404 R 

000316 R 
= tttttt GX 
= ****** GX 
= ****** GX 
= ****** GX 
= ****** GX 
= ****** GX 

000017 R 

000034 R 

000046 R 

000063 P 
= 000004 



MRCRO ON 6-DEC-77 RT 08 28 



GX 
GX 
GX 
GX 
GX 

GX 
GX 
GX 
GX 
GX 
GX 



GX 

GX 

GX 

I 

GX 



REFERENCES 

9-346 

7-273 

8-315 

5-91 

6-237 

6-229 

7-271 
115-119 

7-303 
»l-5 
«l-4 

5-116 

5-75 
*5-93 

5-106 
*5-120 

5-120 
t6-l75 
*6-172 

6-142 

6-149 
*6-lSS 
*5-121 
»l-2 

u \ - 

W 1 !■ 

*t)-174 

b-l5fa 
*b-173 
*5-10S 

5-131 

6-174 
«7-2S6 

6-205 

6-219 

6-241 

6-231 

6-255 

b-230 

6-216 

9-358 
«6-142 

5-90 

6-24S 

6-150 
♦b-17! 

i ^« D 

b-143 

5-101 
5-115 
6-194 

n\-S 



119-350 
7-277 

*5-ll9 
6-262 

*6-232 
7-279 
5-137 

«7-307 



*5-136 
6-194 

«14-416 



♦6-237 
b- 1 bb 



6-17S 



Sb-2n4 

7-294 

6-211 
»6-229 

6-246 
«6-240 
n6-25S 
«6-249 
»6-21£ 
»9-3bl 

6-200 

*6-l70 

*7-2S6 

S5-99 

»5-101 

;5-115 

«b-I94 
*5-?9 



7-298 
5-134 

«6-236 
«7-290 



PRGE 2 
CREF 



7-300 



*6-252 



U 



«9-348 



*6-253 



*6-258 



b-259 



*6-261 



♦b-199 



*b- k-62 
b-lS5 



*9-3t0 
9-351 



b-213 

nb-2b4 



«b-215 



7-270 
"- 295 

7- 7Q7 



"» _ 7 P •- 

*^-304 



n5-99 



5-99 



5-101 



5-101 



5-101 



5-115 



S5-115 



if'MBOL 
SYMBOL 

TQGl 

TRG2 

TPG3 

TPG'4 

TPNREC 

TPNSLT 

TSTPFL 

TUPNfiP 

TXFEN 

TYFMSG 

UBFCNT 

UBFHRN 

UO^/P 

UP 1 TS 

yPPFNB 



CPEflTED BY 
;POSS REFERENCE 
VfiLUE 



riPCRO ON 6-DEC-77 AT 08 28 



ocoooo 

000017 
000034 
000046 

= 001000 
001470 
000534 

= %*%%%% 

= ttntt 

= ****** 
= ****** 
= ****** 

-- 000020 

: **un 

00151b 



R 
R 
R 
R 

R 
P 

GX 
GX 
GX 
GX 
GX 

GX 
PG 



REFERENCES 

6-115 

6-99 

6-101 

5-115 

6-194 
»4-67 

7-278 

6-202 

5-114 
*5-110 

5-99 

5-103 

5-105 
»4-bS 

9-350 

b-14S 



6-194 
5-99 
6-101 
5-116 
6-194 
7-274 
«12-389 
»6-208 



5-101 

*b-245 

6-242 
b-151 



116-194 
«5-99 
»b-101 
»5-115 
»6-194 
7-290 



P«GE 3 
CREF 

6-194 



J 11 



5-ME 



6-194 



b-lbS 



813-HOb 



13-40? 



J 



K II 

PEC'i CPERTED BY MRCRO ON fc-DEC-77 AT 08 £8 PfiGE 4 
nPCPo rPOSS PtFERENCE CREF 

MRCPO M«nE REFERENCES 
RSPBUF H3-28 n-372 

CLOSES »^-fe^ 

EPPOP »i-9 6-l9^ 

EPPOFK «l-lb 5-99 6-101 5-116 b-19H 

EPPOP^ 81-32 

iPPCPP 81-^7 

F^ITRL 81-53 



GETS 


83-'43 


L 1 rn T 


83-23 


PUTO 


83-52 


PUTMC 


83-38 


FUTTC 


83-33 


PijTTn 


83-47 



RSAtlC ri«CPO finOH Ob-DEC-77 08:28 PfiGE 2 



L II 



^ 




5 


00000^ 


b 


000001 


"7 


000001 


s 


000000 


Q 


070000 


10 


000000 


n 


000020 


i: 


000000 


n 


000001 


m 


000030 


15 


000000 


16 


000001 


r 


000400 


IS 


000001 


19 


000003 


20 

1 


000000 


22 


onoQoi 


23 


OOOODl 


:h 




25 




2b 


000000 


•7"' 




2S 




29 000000 




30 





;CONFlGUPflT 
.VOO-01 JLH 
SWB = 
DPPRES= 
BIPRES= 
CKW11= 
C. SMfiXs 
EriT»/EC = 
C, USFYi20 



SLOCK=0 
TLOCKrl 
CUTB = 
CUTNPS= 
C. USNL= 
C, USPTz 
TRPnPX= 
lSPMflX= 
UIBSPH= 



FPhELU= 1 
PREFIX F 



ON FILE FOR RSXllf^ 2780 
2/19/7H 
H ;RSXnri CORESIDENCY 
1 ;DPn PRESEN 
1 ;BISYNC TRP PRESENT 
;N0 CLOCK INIT 
70000 , CONFIGURE FOR 28K 
,JSR PCCDEfIT ENTRY 

;20 UIB ENTRIES 
TWflRE LOCK 

.TinER LOCK 

;24 TIMER QUEUE ENTRIES 

.NO TinER SCHEDULIN 

;Mqx LINE NTriBER = 1 

;25e WORD LINE TRBLE SPPCE 

;nRX TOP UTILIZED 

;riRX ISP UTILIZED 

;D0 NOT QSSEMBLE FERTUPE TO RLLOW UIB SERPCH 

:FOR R PRRTICULRR LINE NUMBER 

;«*ISPECIRL SUITCH TO CUT CODE 

;USE FRfE LORDEP UNlOPDEP 
LE TO DEi^iNE PSX-lir SYSTEM SYMBOLS VIR MflCPO CRLLS 



;N0 SOF 

30 

C 

1 

^400 

1 

3 

n 



FLFz TRKE OUT lEI'EL F 
DEFiNF TRSK lONTPOl BLOCK OFFSET' 
MCRLL TCBDFS 

TCBDFS 



RSXnC nACPO nnon Ob-DEC-77 08: 28 PfiGE 3 



I 




2 




3 




H 


000000 


s 


OOOZhO 


s 


coozm 


7 


000^2 


8 


0C02HH 


9 


000250 


to 


000:57 


tt 


OOOZbl 


t2 


000262 


13 


00C2b'4 


m 


0002^0 


15 


000277 



;PR£Fl,y FILE FOP RSXllM PSSEHBLEP AND ANY OTHER flSSEriBLER 

; WHICH DOES NOT RECOGNIZE OPCODC MMEnONICS EXCEPT UHEN THEY 

;fiPPEflP IN THE OPCODE Fl-.LD 

HRLTsQ 

N0P=240 

CLC = 2i*l 

CLV=2H2 

CL2=2H4 

CLN=250 

CCC=2£7 

SEC=2bl 

SEV=2fc2 

SE2=2b4 

SEN=270 

SCC=277 



PS-'nC rif^CPO nnOH Ob-DEC-77 08: 28 PPiGE 4 



N n 



3 

^ 

fe 

C' 
w 

Q 

10 

u 

12 

13 

15 
lb 

ts 

1? 
:o 
:i 

■■^ •>• 

23 
24 
25 

2b 

.■^ "» 
^* • 

28 
29 
30 
31 

-• -^ 

3H 
35 

36 

37 
38 

39 

io 

41 
H2 
Hi 

i;m 
H5 
46 
47 
48 
49 
50 
51 
52 
63 
54 
55 
56 
67 



SClP-11 

SYSTEfl CONTROL PNO INTERFACE PPOGRRri 

COMTEX-ll SCIP 

COPYRIGHT (C) 1970,1971,1972.1973.1974,1975,1976.1977 

DIGITRL EQUIPnENT CORPORATION, MRYNflRD, MflSS. 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY 
ON fi SINGLE COMPUTER SYSTEM AND MAY GE COPIED ONLY WITH 
THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS 
SOFTWARE. OR ANY 'OPIES THEREOF, MAY NOT BE PROVIDED OR 
OTHERWISE MADE AUBAILABLE TO ANY OTHER PERSON EXCEPT 
FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE 
LICENSE TERMS. TITLE TO AND OWNERSH 
SHALL AT ALL TIMES REMAIN IN DEC. 



P OF THE SOFTWARE 



THE INFORMATION IN 
I'lTHCUT NOTICE AND 
rilTMtNT BY DIGITRL 



THIS DOCUMENT IS SUBJECT TO CHANGE 
SHOULD NOT BE CONSTRUED AS A COfl- 
EQUIPMENT CORPORATION. 



;DEC 

,DEC 

;V03- 
.•V03- 
, V03- 
;Vn3- 
. V03- 
;Vf03- 
- vn3- 
. V03- 
; V03- 
.; VOZ- 
; V03- 
;V03- 
;V03- 
.; V03- 
;V03- 
; V03- 
; V03- 
;l/03- 
; lf03- 
; V03- 
: V03- 
; V03- 

;THE 
: 1 I 

• ■? 1 



ASSUMES NO RESPONSIBILITY FOP THE 
TS SOFTWARE uM EQUIPMENT WHICH IS 



USE 
NOT 



OP PEL lABIL 
SUPPLIED BY 



TY 



01 
02 
03 
04 
05 
Ob 
07 
OS 
0? 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 



JLH 
JLH 
JLH 
JLH 
JLH 
JLH 
JLH 
JLH 
JLH 
JLH 
RHP 
RHP 
RHR 
RHP 
JLH 
JLH 
RHP 
JLH 
SJP 
CEP 
CEP 
CEP 



6/12 V3 
7/10/73 
10/15/73 
1/29/74 

2/5/74 
'I ■? ' ■? u 

2/1S/74 

■7 M Q..'"'U 

4/22/74 

7/1/74 

7/17/74 

8/7/74 

8/9/74 

10/1/74 

11/18/74 

1/15/^5 

2/15/75 

3/12/75 

9M5 /^S 

b/77 
S/77 



C. S 
TO 



DIFFERENCES BETWEEN U03 AND V02 ARE THE FOLLOWING; 
REARRANGEMENT OF CODE TO ENABLE EASIER ACCESS TO 
GIVEN ROUTINES. 

DELETION OF C.ST* LABELS IN THE PRIORITY SCHEDULER 
DEFINITIONS. MODIFICATION OF SEQUENCE 

JMP i)(PC) + 
T*: . WORD C. SEA* 



JMP C. SEA* 
ADDITION OF RESTART CAPABILITY. EMT 
C. STPT AND EMT 10^ uPCODE aiNiT' 



103 OF CODE 
INITIRL'ZES 



1 CLEARS 
ALL 



BIMiiWPtlMJimi.lil»^^ 



fc£aa±a-:=;aiii:ifcH:a 



Siiiyi5iSSiii9 



Hta2:tl4H.Bicti.-ii£lti 



-iMii!igiiiiiyj!!y§tnyi^i"j!ij!!i iyi=Mijiiii»jiJtyiyii^^ 



RSXtiC MflCPO nnOH OB-DEC-?? OS: 28 PRGE 14-1 



B 12 



68 
B9 
60 
bt 
62 
63 
6H 
65 
66 
67 
68 
69 
70 
71 



7H 

75 

7G 

77 

78 

79 

80 

8t 

82 

83 

8H 

8S 

86 

87 

88 

89 

90 

91 

92 

93 

9^ 

95 

96 

97 

93 

99 

lOL. 

101 

102 

\QI 

1C4 

105 

106 

10? 

lOS 

109 

110 

111 

112 

113 

114 



H) 
5) 



6) 
7) 



8) 



9) 



fli 



C) 
D) 



E) 
F) 



H) 
I ) 

J) 
K) 
L) 



N) 

0) 



NECCESSPRY TOBLES, POINTERS. QUEUES. ETC ON FIRST 

ENTRY. 

REnoVflL OF EflBEDDED URRIRBLES. 

n'iDlFlCRTION OF THE EMT SERVICE ROUTINE TO CHECK 

POINTER FOR LEGRL WORD ADDRESS BEFORE CRLLING 

EMT SERVICE ROUTINES. 

nOOIFICflTION OF EriT SERVICE ROUTINES TO OPERATE OS 

SUBROUTINES. 



PORflriETER 



MOD 

SIB 

SET 

THE 

DES 

nODIFICRTlON OF 

SCHEDULING ROUT 

THE TIMER QUEUE 

MODI F I CRT I ON OF 

RtTURN THE FREE 

SERV 

WITH 



FICRTION OF SIB UNLORDER TO COND I T lONRLLY DELETE 

LORDER/UNLORDER IF NUMBER OF ENTRIES IN BUFFER IS 

TO ZERO. THIS RLLOWS CONVENIENT USE OF 

PL* CODE WHEN THE SIB FOR THRT LEVEL IS NOT 

RED 

THE TIMER CODE TO DELETE THF PROGRAM LEVEL 

NE IF CUTNPS=0 RND DELETION OF 

SERVICE ROUTINES IF CUTB=C 

THE TIMER QUEUE SERVICE »?OUTiNE TO 

LINK TO THE VRCRNCY CHr,i I PRIOR TO 

. E. R SYiTEM CRN NOW PUN 
ROUTINE Ch'.SE RNOTHER TIMER 



NG THE CURRENT ENTRY, 
ONE LINK RND HHVE ERCH 



ENTRY TO BE QUEUED 

THE INITIRLI2RTI0N ROUT 

WHICH CLOCK IS PRESENT. 

- IF THE USER SPECIFIES 

- IF NO CLOCK iS SPECIF 

- OTHERWISE THE PROGRRMMPBLE 
THF INITIRLIZRTION ROUTINE W 



NE 



NE WILL NORMALLY CHECK TO DETERM 
THE RULES T^RE THE FOLLOWING: 
R CLOCK. THRT CLOCK WILL BE UTIL 
ED. THE LINE CLOCK WILL BE UT I L I 

CLOCK WILL BE UTILIZED. 

LL NORMALLY CHECK TO DETERMIf^E 



I ZED. 
ZED. 



MRXIMUM CORE PRESENT IN THE SYSTEM. THE PULES A^^E THE 
FOLLOWING: 

- IF THE USER SPECIFIES R 

- OTHERWISE- THE INIT RTN 
RND PLACE THRT RDDRESS 

ADDITION OF DIFFERENT EMT 

MODIFICATION OF PS SPVES/RESTOPES TO UTIL 

WHERE APPLICABLE. NOT RPPLICRBLE IN SLOCK 



SIZE WILL BE 
ADDRESS NOT 



MEMORY SIZE. THAT 

WILL FIND F IPST IK 

N C. SMXM 

VECTOR ADDRESS SUPPnpT V03-G3 

ZE BYTE INST. 

CODE. 



USED 
PRESENT 



FIX OF BUG IN SIB BUFFER 
V03-0H F IX OF PROBLEM IN 
OF COMTEX-11 CALL TO DOS 



G) ^'03-04 



V03- 
V03- 



05 
05 



CDEMT 



LORDER. V03-03 

DOS REGISTER SAVE ROUTINE BY DELETION 
ROUTINE FOR REGISTER SAVE. 
FIX OF PROBLEM IN BUFFER POOL INITIALIZATION ROUTINE 
CAUSED BY ERRONEOUS USER CALL- I.E. WITH ODD 
BEGINNING OR ENDING ADDRESS. RETURNS WITH ERROR. 
ADDITION OF EMTVEC=0 CODE IMPLYING CALL VIA JSP PC 
ADDITION OF C. USrY^O IMPLYING UIB .OADER CALL TO 
TO USER PROGRAM THROUGH TABLE C. SFUJ. 
ADDITION OF SWB=2 CODE FOR RSTS/E 
ADDITION OF C. USRT=0 FOR ZERO LINE TABLE SAPCE 
CHANGE OF DEFAULTS FOR TAP AND ISP PRESENCE 
AND PROGRAM LEVEL PRESENCE TO NOT PRESENT FOP EASE 
OF CONFIGURATION. 
M) V03-06 ADDITION OF TRPMAX AND ISRMAX TO ALLOW DELETION OF 
UNUSED TABLE SPACE FOR NOT INCLUDED TAPS AND ISPS. 
V03-07 ADDITION OF SWB=3 CODE FOR RSX-11 D USAGE 
V03-0S ALL SYSTEM CALLS INCLUDING MATRIX SWITCH. TIMER QUEUE. 
RND PRIORITY ENTRANCE EXIT CALLS ARE VIA .JSP PC-XXXX 
C.SARR. CTRET. AND C. SEC* ARE DEFINED TO BE PTS PC 
P.' V03-n9 CORRECTIONS TO GLOBAL DEFINITIONS IN PRIORITY 
SCHEDULER. MODIFICATION OF RSTS/'E VERSION TO 



V03-05 
V03-05 
V03-06 



PSynL Mficpo n^o^ Ob-DEC-77 08; 28 page h-z 



C 12 



15 
lb 
17 
IS 
19 
20 

:i 



24 
25 
2b 

"^ -^ 
*■• I 

2S 
2^ 

:c 

31 



35 
3b 

3S 

39 

,40 

,41 

42 

,43 

44 

,45 

4b 

,4? 

4S 

49 

,50 

51 

^2 

53 

54 

55 

5b 

5/ 

5£ 

59 

,bO 

bl 

62 

b3 

64 

65 
66 

,67 
6S 
69 
70 
71 



UTILIZE BIG BUFFERS FOR TPP LINE TPBLE SPPrE 

RNO nOCIFICRTlON OF THE RSXllD VERSION to 

UTILIZE EVENT FLPGS FOR SIB UNLOPOING. 
Q) U03-10 nODlFlCRTlONS TO RUN MITH RSXtlM 
R) V03-n CORRECTIONS TO CONDITIONAL CODE DEPENDENT ON C. SMflX AND 

DEFINE "SERCH" EQUfiL TO THE PRODUCT PNO CONDITIONPL IZE 

ON IT. 
S) V03-12 PDD CODE FOR RSX-llD/fl TO ZERO PLL TIMER ENTRIES FOR P 

RESTPRT PND THEN TO DO P CPNCEL MPRK TIME DIRECTIVE TO 

PREVENT P TIMER GOING OFF PFTER THE QUEUE HPS BE.H 

REINITIPLIZEO 
T) V03-13 CONDITIONPL IZE UIB UNLOPDER ROUTINE WHICH 

FOR P PPRTICULPR LINE NUMBER. "UIBSRH"=0 



CKUll 



SEPRCHES 
INDICPTED 



THIS FEPTURE IS NOT DESIRED. UIBSRH NOT EQUPL INDICPTE3 
THPT IT IS. 
U) VG3-14 DELETE P TrMPORPR\ BRPNC.I TO SELr IN CTIME 
V) V03-15 CORRECTION OF PJFFER POOL hPl.NPGEMENT ROUTINE TO 
CORRECT ERROR IN GET BUFFER ROUTINE :N 3 WO»^>D BUFFER INFO 
BLOCK POSSIBLY OVERURING CONTENTS OF .^ REP! .PTP BUFFER 
W) V03-16 CORRECT CONDITIONPL IZPT ION 

X) V03-17 MOVE GLOBL DEFINITION OF C. STPRl UNDER CONDI TIONPL IZPT lON 
Y) V03-18 PDD IT ION OF BR LEVEL CODE COriD I TIONPL IZPT ION TO PLLOW 
DELETION OF EXTRPNEOUS PROGRPM LEVEL COLE. 

PDDITION OF TLOCK CONDITIONPL 10 PLLOW OL'LETION OF PNY LOCK flPOUND 
TIMER QUEUE SERVICE CODE IF THPT CODE IS v">NLY CPLLED BY USER LEVEL. 
MOVING OF THE TIMER PRIORITY LEVEL TO BELOJ THPT OF BP4 
Z) V03-19 MOD IF I CPT IONS TO RUN WITH RT-11 
flP^ V03-20 MODIFICPTIONS TO CUT CODE FOR RSTS VlB 

DONE BY USING 'RSTS' CONDITIONPL SWITCH 
BB) V03-21 MODIFICPTIONS TO PLLOW PROGRPM TO RUN ON LSIll 

DONE USING 'LSI' CONDITIONPL SWITCH 
CO V03-22 MODIFICPTIONS TO CUT CODE 



THE 
1 ) 






3) 



4) 
5) 
6) 

7) 
S) 



9) 



OF 



DIFFERENCES BETWEEN V02 PND VOOIP PRE THE FOLLOWING: 
PDDITION OF DYNPMIC CORE BUFFERING WITH EMT SERVICE 
TO PLLOCRTE PND DEPLLOCRTE CORE SPPCE PND TO OBTPIN 
PND RELERSE DYNPMIC BUFFERS. SUBROUTINE LINKRGE IS 
PVPILPBLE TO PERFORM THE LRTTER TPSKS TO ALLOW TRP/ISP 
TO UTILIZE THE BUFFER POOL. 

THE ADDITION OF FURTHER CHECKS OF VALIDITY ON THE MATRIX 
SWITCH CONTENTS. 

MODIFICATION OF THE SIB UNLOPDER TO VECTOR ON 
CODE PND THE TAP TYPE CODE. THIS PREVENTS THE 
RERSSEMBLING THE ISR TRBLES FOR DIFFERENT ASS 
THE TRPS 

FURTHER VRLIDITY CHECKS OF THE SIB UNLOPDER SECTOR 
DELETION OF ENTRIES IN THE TIMER QUEUE. 

MODIFICRTION OF MRTRIX SWITCH VECTORING TO ALLOW OELTION OF 
UNUSED TRBLES IN SCIP WITH NO RDVERSE EFFECT ON OPERATION. 
ADDITION OF DOS/COMTEX SUPPORT CHANGES 

ADDITION OF SOFTWARE LOCK SOFTWRRE PRIORITY LEVEL, ASSUMED TO 
OPERATE AT fi LEVEL HIGHER THAN ANY OTHER SOFTWARE TASK TO 
ALLOW LOCKING OF LONG EXECUTION TASKS - SOFTWARE REQUESTED 
WITHOUT LOCKING OUT INTERRUPT DEVICES. 
ADDITION OF CODE IN THE EMT CALL HANDLERS TO DETECT 
ADDITIONAL FORMAT ERRORS. THE CONDITIO') CODE SETTINGS 
RETURNED TO THE USER PROGRAM HAVE BEIN E.XTFNDED AND 



ENTRY TYPE 
NECCESSITY 
GNMENTS OF 



TABLE. 



^ 



^-J^- — ^ 

Pixnc n«CPO niiQH Ob-DEC-77 os; 28 prge 14-3 

172 ; STRNDflRDlZfO. 

1*^3 • 

''■''^ ;TH£ DIFFERENCES BETWEEN SClP VOOlfl fiND SCIP VOOOP flPt: 

1^^ ;l) fi DEFINITION OF RVPILflBLE CORE SIZE (C. SflflX) USED IN fi 

l^b . GLOBAL LOCATION (C. SHXH) SO THAT THE ISR'S AND TOP'S CRN 

1^7 ; DETECT OVERSIZED BUFFERS. (IT IS NOT USED BY THE SCIP. ) 

t^S ;2) THE PDDITION OF CODE FOR THE KILLIO EMT COMMAND 

1^? ;3) THE REPLfiCEHENT OF THE PUT POLL TABLE IN THE TEPMINPL 

ISO ; TYPE CODE TABLES BY « nODEM CONTROL TABLE. 

\S\ ;H) A TEST FOR LINE NUMBER I/ALIDITY IN AN EMT 100 CALL. 



SCP322 SCIP VERSION 3-22 



MfiCRO ^nO^ Ofe-OEC-77 08: 28 



c 

PAGE 



12 



1 



153 




isu 




1S6 




ISb 


177776 


187 


000000 


188 


000001 


1^9 


000002 


1^6 


0C0003 


191 


000004 


192 


000005 


193 


000006 


194 


000007 


I9b 




1?^ 




1 9"' 


000240 


19S 


000277 


IQ^ 


000275 


200 


000274 


201 


000257 


202 


000254 


203 


C00243 


204 




20B 




20b 


00000 1 


207 


000002 


20S 


000004 


209 


000010 


210 


000020 


211 


000040 


212 


000100 


213 


000200 


214 


000400 


215 


001000 


21b 


002000 


217 


004000 


21S 


OIUOOO 


219 


020000 


220 


C'iooon 


221 


100000 



TITLE SCP322 SCIP VERSION 3-22 
.DEFINITIONS OF REGISTERS RND CONDITION CODE OPERRTOPS 

C. STfiTs 177776 , PROCESSOR STPTUS REGISTER 

R0= -/.O 

Ri= y,\ 

R2= >.2 

R3= •:3 

R4= V.4 

P5= %S 

SP= 'Ah 

PC= '/.? 



NSTRUCTION DEF 



NOP = 

SET«LL= 

SETNZCr 

SETN2= 
aRLL = 
CLZNr 
CLVC = 



^40 

SEZ'SEC'SEV'SEN 

SEN'SEZISEC 

SEN'SEZ 

CLN'CLC'CLU'CLZ 



CLZ 
CLi/ 



!CLN 
'CLC 



NIT IONS 

NO OPERATION INSTRUCTION 

SET OLL CONDITION CODES 
SET N,Z.C CONDITION CODES 
SE. N,Z CONDITION CODES 
CLEAR OLL CONDITION CODES 
CLERR Z.N CONDITION CODES 
CLEAR V,C CONDITION CODES 



BIT DEFINITIONS 



B 
B 
B 
B 
B 
B 
6 
B 
B 
B 
6 
B 
B 
B 
6 
B 



T00 = 
T01 = 
T02= 
T03 = 
T04 = 
T05 = 
T06 = 
T07 = 
TOS = 
T09= 
T10= 
Tll = 
T12= 
T13= 
T14 = 
TI5 = 



1 

4 

10 

20 

40 

100 

200 

400 

1000 

2000 

4000 

10000 

20000 

40000 

100000 



J 



SCP3:2 SCIP ^'ERSION 3-22 



F 12 

nfiCRO nilOH Ob-OEC-7^ 08:28 PAGE b 



223 

22S 
22b 
227 
228 
229 
220 
231 
232 
233 

:3H 

235 
23b 

237 

'-'7C 

239 

21*0 

2m 
2»4: 

2H3 

2^^ 

21*8 

2H9 

250 

251 

252 

253 

25H 

255 

256 

257 

258 

25^ 

2bO 

261 

2b2 

263 

26U 

265 

26b 

267 

26S 

269 

270 

271 

272 

273 

27H 

^( b 

^c b 

277 

27? 



000000 



000000 
000000 



000000 



;SCIP SYSTEn GLOBRLS 

, GLOBL C, SPS, C SFY, C. SORR. C SflRP- C. SflTP 
GLOBL C. SREG.CSRES 
. GLOBL C. STflB.CTRET 
.GLOBL C. SECR,C.SECB,C.SECD,C. SECE^C. SECF.C, SECG. C SECH 



IF 2 SWB-5 
nCRLL . . V2. 

Ml. . 
ENDC 



;RT-ll 
MRKT.. CriKT 



DEFINITION OF PPlOPlTY LEVEL OF PRIORITY SCHEDULER 
IF NDF C. USP 
C. USP=3C0 ;0CTOL PS SETTING 
ENDC 

EMTVtC - DEFINITION OF EHT VECTOR ADDRESS 

= IF EMT SERVICE ENTERED VIO JSR PCCDEMT 

++ IF EMT SERVICE ENTERED VIA PROCESSOR TRAP AT "EMTVEC" 

IF NDF EMTVEC 
EMTVEC= 30 ; DEFAULT VECTOR RDDRESS = 30 

ENDC 

SWB - DEFINITION OF SYSTEM CO-PESIDENCY 

=2 RSTS/E CORES IDENCY "RSTS/E DRIVER" 

= 3 RSX-HD CORESIDENCY 

=H PSN-llM CORESIDENCY 

= 5 PT-n CORESIDENCY 
SUBC=^SUB-3>»<SWB-4>«<SWB-5> 
IF Z SUB-2 
GLOBL L3QUE 
ENDC 



IF PSXUD OP PS'-'llM OP PT-11 



IF Z SWB-H ;PSXnM PRESENCE FLAG 

GLOBL T. EFLG.STKTCB.5PQSCH,. SSIGFL 

PSECT ISP. CON 

PSECT XXX 

IF NDF UIBEF 
UIBEF=1 

ENDC 

IF NDF SIBEF 
SIBEF=40 

ENDC 

ENDC 

IF NZ 3WB-3 
0FFSET=0 

ENDC 

IF Z SWB-3 ;RSXnD PRESENCE FLRG 

GLOBL .CRTSK,R.EF,EV.SE..SERFG 

GLOBL R. TD, . . PENP, R. OS, R. TS. TS. AST. YF. I C 

GLOBL Y. PIE, Y TT,. . NRDD 

PSECT ISR^CON 

PSECT XXX 
OFFSET: 60000 
. IF NDF UIBEF 
U!BEF= 1 ;UIB ENTRY PRESENT EVENT FLPG 



UIB ENTRY PRESENT tiJENT FLAG 
SIB ENTRY PRESENT Vi^j\J FLhG 
IF NOT PSXMD 



SCP322 SCIP VERSION 3-22 



nfiCRO n^0^ Ob-DEC-?? 08: 28 



G \Z 
PRGE b-l 



280 

2S1 

283 

236 

2Sb 



ENDC 

IF NDF 
SIBEF= 

ENDC 
. ENDC 



40 



BEF 



;SIB ENTRY PRESENT EVENT FLPG 



SCP322 SCIP wERSiON 



288 



ft 



2S? 


000000 




290 






291 






292 






293 






29H 






295 






29b 


000000 


000010 


/^q-? 


0UG002 


000000 


298 




000003 


299 






300 


0nC004 


000000 


301 




000002 


302 






303 






304 


00000b 


000000 


305 




OOOOOl 


30b 






307 






30S 


000010 


C00012' 


309 




000000 


310 






311 




000010 


312 






313 






3m 






315 






316 






317 






31S 






319 






320 






321 






•?'?'> 

^4^^ 




000000 


323 




OOl.iOOO 


324 




000000 


325 






32b 






327 






32S 






329 






330 






331 






332 


000012 


0000 : 4 


ZZl 


000014 


OOOOOOG 


ZZ^ 


000016 


OOOOOOG 


335 


000020 


OOOOOOG 


ZZ^ 


000022 


OOOOOOG 


ZZ7 


000024 


OOOOOOG 


33S 


000026 


OOOOOOG 


339 




000014 


340 






34 1 






342 






343 







H 12 

nfiCRO M1104 06-DEC-77 08:28 POGE 7 



IF OF RSXll 

PSECT ISR 

ENDC 
;DEVICE TYPE TABLES 

;nPTRlX SWITCH ON DEVICE TYPE - FUNCTION CODE 
;C. SflR: CONTAINS THE RDD9ESS OF THE FUNCTION TABLES FOR 
;PLL ISRS INCLUDED IN « COMPLETE COMTEX SYSTEM. 



NUMBER OF ENTRIES IN TOBlE *2 

POINTER TO ISR FUNCTION TABLE FOR DCll 



1= DMll ISR 



C. SAR , WORD C. SARL 
. WORD CAFTBL 

x=isPnAx 

. IF N2 X 

. WORD CMFTBL 
X = X-1 
. ENDC 
. IF NZ X 

WORD CCFTBL 
X = X-1 
. ENDC 
. IF N2 X 

. UOPD CPFTBL 
X=X- 1 
. ENDC 

SflPL= . -C. SfiP-2 



EACH ISP SHOULD THEN HAl'E A TABLE OF THE FOLLOWING FORM: 

NAME: WORD LENGTH .LENGTH *2 

WORD FCOADR ;ADDPESS OF FUNCTION CODE ROUTINE 
WORD FCIADP ;ADDPESS OF FCN CODE 1 ROUTINE 



2=KL11 ISP 



;= DPii ISP 



. UOPD FCNADP 
LENGTHr -f^Ar^E-: 



-ADDRESS OF LAST FCN CODE ROUTINE. 



CAFTBL=0 
CnFTBL=C 
CCFTBL=0 

; DPI 1 ISP 

. IF NDF DPPPES 

DPPRES= 

. ENDC 

. IF Z DPPRES-1 

. GLOBL CP. OSU.CP. MDM.CP. MOD.CP. INLCP. KLL-CP. PST 



CPFTBL: 



CPFLEN 

. ENDC 

. IF Z DPPPES 

CPFTBL= 

. ENDC 



. WORD CPFLEN 
. WORD CP. OSU 
. WORD CP. .1DM 
. WORD CP. MOD 
. WORD CP. INI 
. WORD CP PST 
. WORD CP. KLL 
-CPFTBL-2 



LENGTH OF DPll FUNCTION TRBLE 
0=DP11 TRANSMIT ENABLE 
1=DP11 MODEM CONTROL 
2=DP11 MODE CONTROL 
3=DP11 LINE INITIALIZATION 
4=SYSTEM RESTART 
B = KUL 1.^0 



scpi:: scip ^'ersion 



3-2: 



12 



MfiCRO nuOH 06-DEC-77 08:28 PAGE 8 



3hS 






34b 






347 






34S 






349 


000030 


000004 


350 


000032 


000000 


351 




000001 


7C, "> 






.j-;^. 






353 


000034 


000046" 


354 




000000 


355 






35b 




000004 


357 






358 






35? 






360 






361 






362 






363 






364 


00C03b 


000000 


365 




COOOOl 


36b 






367 


000040 


oooob:' 


368 




000000 


369 






370 






371 






372 






373 






374 






375 






37b 






3^7 






37S 






379 






3S0 


000042 


oouooo 


3Sl 




000001 



7C-"' 
^<— &< 

3S3 

3S4 

7cc: 



0C0044 



OOCOOOG 
000000 



3Sb 






3S7 




000000 


3SS 




000000 


3S9 




000000 


390 






391 






392 






393 






394 






395 






396 






397 


000046 


000012 


39S 


000060 


OOGOOOG 


399 


000052 


000000 


400 


00005U 


OOOOOOG 


401 


000056 


OOOOOOG 



.TERMINfiL (TAP) TPBLES 

;nfiTRlX SWITCH ON FUNCTION CODE 

;CONTfilNS TPBLES UITH THE SPflE FUNCTION PS THOSE FOR THE ISR. 



C. SPT; 

XsTPPMPX 
.IF N2 X 

X=X-1 
. ENDC 
C. SflTL= , 



. U0P3 C.SPTL 
WORD CTFTBL 



WORD CBFTBL 



C. SflT-2 



NUMBER OF TPP TYPE CODES INCLUDED 
0= ITTY TPP 



1= B I SYNC '2780) TPP 



;SIB WORK ENTRY FUNCTION CODE TPBLES 
C. SFJT: CONTPINS THE PDDRESS OF THE SIB ENTRY 
TPBLES FOR PLL TPPS USED INT THE COMPLETE COMTEX SSYSTEM. 
IT IS USED IN THE SIB UNLOPDER TO VECTOR TO THE PROPER 

.SERVICE ROUTINE FOP PLL ENTRIES. 



C. SFJT; , WORD CTSIBT 
X=TPPnPX 

IF N2 y 

. WORD CBSIBT 

y = X - 1 

. ENDC 



,0= ITTY TPP 

; 1= 81 SYNC •27S0^ TPP 



;EflLH TflP SHOULD THEN HPVE P TPBLE OF THE FOPM: 

;NPr>E . WORD LENGTH ; LENGTH OF TPBLE «2 

; .WORD TCOPDP ;PDDPE3S OF TYPE CODE SERVICE ROUTINE 

; .WORD TCIPDP ;RDDPlSS OF TCI SEP'MCE ROUTINE 



; WORD TCNQDP 
;L£NGTH=. -NPnE-2 



: PDDRESS OF LPST SERVICE ROUTINE 



;TPP LINE TPBLE LENGTH TABLE 
C. SLTL: . UOPD C. TLTL 
y=TPPMRX 
.IF NZ X 

. WORD C. BLTL 
X=X-1 
ENDC 



0=tTTY LINE TPBLE LENGTH 

I =B I SYNCH TPP Line TPBLE LENGTH 



CTFTBL=0 

CTSIBT=0 

C. TLTL = 

;B I SYNCH TPP 

. IF NDF BIPRES 

BIPRES= 

. ENDC 

. IF Z BIPRES-1 

. GLOBL C. BPD.C. BFTCC. BPRB..C. BINT. C. BLTL 

. GLOBL C. BMSE-C. BODE 

CBFTBL: .WORD CBFLEN ;LENGTH OF TPBLE FUNCTION CODES 

. WORD C. BPD ;0=PUT DPTP 

. WORD ; 1=UNPSSIGNED 

.WORD C.BPTC ;2=nODE CONTROL 

.WORD C BPRB ;3=PSSIGN RECEIVE BUFFER 



SCP322 SCIP VERSION 3-22 



J 12 

nfiCRO f1^0^ Ob-DEC-77 08:28 PRGE 8-1 



'402 
403 

HOS 
HOb 
1+07 
40S 
409 
410 
HU 
412 
413 

uiu 
4 IB 
41b 



OOOObO 



000062 
000064 
OCOOfeb 
000070 



0000006 
000012 

000006 

000000 

OOOOOOG 

OOOOOOG 

OCOOOb 



. UORD C BINT 
CBFLENr. -CBFT8L-2 

CBSIBT. . WORD CBSIBL 
. UORD 
. UORD C. BMSE 
. UORD C. BODE 

CBSIBL = . -CBSlBT-2 

. ENDC 

. IF 2 BIPRES 

CBFTBL= 

CBSIBT= 

C, BLTL= 

. ENDC 



.4SLINIT 



.LENGTH OF B I TPP SIB FUNCTION TABLE 
;0=UNflSSlGNED 
; l = riODEri STATUS 
;2=TRflNSn!T DONE 



SCP32: SCIP VfERSlON 3-22 



"419 



K 12 

MfiCRO nil04 Ofc-DEC-77 08:28 POGE 9 



c r p 7 ■■ -^ 



,':iP ^'EPSlON 3-22 



nocRo nii04 O6-DEC-77 08: 28 



L 12 
'*E 10 



•42t 

u ? ■* 

^2^ 

H27 
U28 

HZO 0000''2 
W31 0000-: 
1*32 

U77 

~ w »> 

U34 

14:5 00C07: 

i*3b 

1*3:' 

H3S 



iF 2 SUB-2 

GLOBL C. SLOK,CSPSN0 

IFF 



000207 



;PPI0PITY SCHEDULER ROUTINE CODING 
;ENTPflNCE !S TO LOCPTlON NPHED C SPS 



C SPS: 

CSPSND: . 'F lT SUB-2 

PTI 
. ENDC 
. IF Z :UBC 

PTS PC 



; COLLED FROn US£P T«SK QM SiB EV£r^T FLRG 



ENDC 



ENDC 



SCP222 SClP "EPS I ON 



44S 

H49 






riRCPO nnOH Ob-DEC-77 08: 23 



n 

PfiGE 



12 

n 



00007H 



OOCUb 



0G007H 
00007b 
- OOOIOQ 
^SQ 000102 
W51 OOOIOH 

w6: 00010b 
^*BZ ooono 

t+SH 0001 IW 

HSS 

^bO 

4b3 OOOllb 
Hb^ 000120 

HbS oooi:: 

i4bb 00012^4 

Ub" 00012b 

UbS 000130 

Ub9 000132 

4^G 

471 

U72 

1*73 

l47^ 

u:'5 



-THESE flPE GENERPLIZED POUTINES TO SAVE fiND PES^^OPE THE PECiSTEPS. 
.PEGISTEP SfiUE ROUTINE 
.ENTERED Vlfi JSR R5.C. SREG 
C. SREG. , IF DF RSTS 

. GLOBL REGSfiU 

jnP REGSPU 



010H4b 
C103Hb 
Ol02'4b 

oiomb 

OlOOHb 
010646 

oibbOS ooQom 

000207 



IFF 

MOU R4, 

nov R3, 

nov R2, 

noM Pi. 

ncu P0< 

nou P5 

MOV 1 14 1 

PTS PC 
. ENDC 



-(SP) 
-^SP) 
-(SP) 
-(SP) 
-(SP) 
-'SP) 
SP.-P6 



PUT RETUPN fiOD ON STPCK 
PESTOPE OLD CONTENTS OF 
PETUPN 



P5 



00B"'2b 
012b00 
0:2b01 
012b02 

012bn: 

ni2b04 
000206 



PEG I STEP UNSPi'E POUTlNE 
. ENTERED Vlfi JSP PB C. SPES 

C, SPES IF DF PSTS 

. GLOBL PEGPES 

JMP PEGPES 

IFF 

TST (S^)^ 

MOV tSF >+ PO 

MOV fSP • + . PI 

MOV "SF^-^.p: 

MOV (SPi+ p: 

MOV rspi+ p^ 

PTS P5 
. ENDC 

IF NZ SUB -4 
. EOT 

;END OF TPPE 1 OF 6 

ENDC 



SCP322 SCIP VERSION 3-22 



H77 
H78 

4s: 

4S3 

H86 
^486 

489 
490 
491 

4?: 

493 
494 
49S 
49b 
497 
498 
499 
500 
BOl 
502 
B03 
B04 
BOB 
506 
507 
50S 
509 
510 
511 
512 
513 



MfiCRO nil04 Gb-DEC-77 08: 28 



N 12 
PAGE 12 



. IF NDF FflKELU 

FPKELU= 

. ENDC 

. IF N2 FRKELU 

,FRKE BUFFER LOROER/UNLOPDER ROUTINE. 

;THIS ROUTINE PILOUS DIRECT SERVICE OF THE ISR BY THE TPP 

.ROUTINE UHICH IS TO SERVICE THE BUFFER UNLOPOER. 

; IT PSSUnES USE OF THE SPflE TPBLE P3 THE SYSTEM 

; BUFFER UNLOPDER/UNLOPDER WHICH RESIDES IN THE SC 

;P SPECIFIC USE FOR THIS LOPDER/UNLOPDER WOULD BE 

.SERIVCE OF P Onn OR SmiLPR DEVICE WHERE RECEIVED 

.HPVE BEEN BUFFERED BY THE HPRDWPRE. THIS ROUTINE 

;COULD BE USED IF THE DEVICE WERE BEING 

;UNLOfiDED BY P TIMED ENTRY ROUTINE. 

'with THE CURRENT TELETYPE TPP< THIS ROUTINE MUST PUN AT THE 
;SPME LEVEL PS THE SC I P BUFFER UNLOPDEP. IN ORDER 
;T0 PREVENT POSSIBLE EPRORS IN THE ROUTINE SERVICE. 



P. 
THE 

CHPPPCTEPS 



GLOBL CFKLU 



000134 
000140 
000142 
000144 
000146 
000150 
0C0154 
0001'=.6 



004567 
010500 
010401 
010304 
005003 
01b70: 
000305 
00b305 



■34 



CFKLU; 



00 1040 



JSR 


R5-C. SPEG 


MOV 


P5.RC 


MOV 


P4 PI 


MOV 


R3.P4 


CLR 


R3 


MOV 


C. STPB+0,P2 


SWPB 


P5 


PSL 


P5 



000160 004775 000064 



000164 00456: 

0001 "0 ooi'co; 



177:^:6 



. If" OF PSTS 

JSP PC,<i)CTSIBT + :iP5) 

IFF 

JSP FL-(ilCBS:BT + :<P5) 
. ENOC 

JSP P5-C.SPES 

RTS PC ;PND THEN EXIT 



;SPVE REGISTERS 
5PVE OFF PPRPM WORD 
SUPP SECOND ENTRY 
SWPP THIRD ENTRY 
LINE NUMBER ISO 
GET LINETPBLE FOR LINE 
GET FUNCTION CODE 
MP^E INTO WORD INDEX 

;G0 TO THE COPPECT ROUTINE 

:G0 TO THF COPPECT ROUTINE 

; RESTORE REGISTERS 



ENDC 



mip^Miiitta yiMaiiiiiieiiigiiiiiiiiBKi im 



SCP322 Slip VERSION 3-22 



MfiCRO MllOH Ofc-DEC-77 08; 28 



B 
PRGE 



13 
13 



SIB 
51b 
S17 
518 
S19 
520 
521 
522 
523 
524 
525 
52b 
52" 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
54 2 

54 3 
544 
545 
54fc 
547 
54S 
549 
550 
551 
552 

55 3 
55^ 
555 
556 
55/ 
55S 
559 
560 
561 
562 
563 
564 
5b5 
566 
567 
SbS 

570 
571 



000172 
000172 
000176 



000200 
00C202 



000204 
000210 

000216 
000222 
000230 
000232 
000234 
000236 
000240 
000242 
000246 
000250 
000254 
000260 



005767 
001046 

010546 
010146 



113746 
112737 



0167 
0267 
1030 
0125 
0125 
0125 
0125 
0227 
1034 
0101 
0052 



0' 

34 
21 
21 
21 
21 
01 
lb 
67 
67 



000540" 



1 77776 
000340 



17 



G0054 6' 

00054 2' 000020 



000"42' 

000546' 
G00542' 



000260 1*2637 17-^776 



000264 016^01 000714 

000270 05:^61 000001 000022 



.scip system interffice with user progrfim level (uib) 
;lorder lords four words of ppkhmeters. the type code 
;is specified in the low orde" b bits of the high byte of 

;THE FIRST WORD. THE TWO HIGH ORDER BITS OF THPT BYTE ARE 
.UTILIZED TO INDICPTE THE NUriBER OF VALID WORDS IN THOT ENTRY. 
;THE LINE NUMBER OCCUPIES THE LOW ORDER BYTE OF THE FIRST 
.WORD OF THE ENTRY, THIS WORD MUST NEVER BE ZERO. 
;THE UNLOflDER ROUTINE IS flCTUPLLY THF GET EMT COMMAND PTN 



C. SFY: 
. ENDC 



. IF NZ C. USFY 
TST C.SHI 
BNE C SGRY 



IS OVERFLOW FLPG SET 
YES 



nov Rs.-^SPi 

MOV Pl--fSP) 
IF NZ C. USFY 

IF DF LSI 11 



MFPS 
MTPS 
. IFF 
MOVE 

novB 

. ENDC 

MOV 

CMP 

BHiS 

MOV 



-iSP) 
«340 

^ifC. STPT,-(SP) 
«34a.i);C. STPT 



SPVE ORIGINPL PPRPM POINTER 
SPVE Rl 



SPVE STPTUS OF C^^LLEP 
SET PRIORITY TO LEVEL 7 

SPVE STPTUS OF CPLLER 
SET PRIORITY TO LEVEL 7 



PI IS BUFFER POINTER 
PNY ENTRIES LEFT'^ 
NO 



C. SFGY: 
C. SGEY. 



C. SBPY.Rl 

C. SBCY,»r. USF'Y 

C.SGBY 

(R5)+. (Rl)+ 
MOV (P5j+, (Rl)+ ;PND MOVE FOUR WORDS 
MOV fR5)+ (Rl}+ 
MOV (R5)+.. (Rl 1 + 

CMP ??C. SBEY.Pl ; IS IT BUFFER END 
BLO C. SFUY ; 

MOV Rl.-C.SBPY ;SPVE BUf^FEP POirrTEP 
INC C. SBCY ;INCR INTEPFPCE CNTP 
. IF DF LSI 11 
MTPS (SP)+ ; RESTORE CPLLEP PPIOPITY 



. IFF 

MOVB 

, ENDC 
IF Z SWB-4 

MOV 

BIS 
ENDC 
1^ Z SUB- 3 

MOV CPTSK.Rl ;GET CURRENT RTL NODE 



iSFU.iSC. STPT ; RESTORE CALLER PRIORITY 



TPSKPD.Pl :GET CURPENT TCB 

nUIBEF.. T. EFLGf.Pl.' .-SET UIB LOPDED EVENT FlPG 



BIS SUIBEF.P. EF'Pl) 
BISB ttEV. SE,. 5EPFG 

ENDC 

IF Z SUB-5 



MOV 
JSR 
MOV 

ENDC 

EMOC 

IF Z C. USFY 

MOV PO 



RO,-(SP 1 

PC..RESUME 

(SP)+^RO 



SET UIB LORDEC' EVENT FLRG 
RND DECLRPE SiGNIFiCRNT EVENT 

PT-11 

SRHE PO 

RESUME SUSPENDED TRSK 

RESTORE PO 



( £ p ) 



MOV i)R6.-Pl 



;PLSO SfluE PO 
.THEN GET FIRST WORD OF PLIST 



SCP322 



P UEPSiON 3-22 



riPCRO nilO'i Ofe-DEC-77 08: 28 



C 
PPGE 



13 
13-1 



E7: 

S"^ 
E,7S 
B76 

577 

s:'s 

579 
530 
5Sl 
532 
583 
5SU 
535 
5Sb 
537 
58S 
539 
590 
591 
592 
593 
594 
595 
59e 
597 
598 
599 
bOO 
601 

feo: 

b03 
604 



00C276 
000300 
000302 

00030H 
000312 
000314 
000320 
000:22 
000330 
000334 



000000 



0l2b0l 
012605 
000207 

012767 
000760 
005267 
000207 
0527b" 
005267 
000751 



UIBXIT' 
. GLOBL 
. ENDC 



000BB2' 00n54b' C, 



F NZ 

SFUY: 



000544 

GOOOOl 
000544 



C. SGPY: 

000540 C. SGBY: 



SUPB R1 

BIC •1777^0.Rt 
PSL Rl 

nOV »C, SFUJ.RO 
6EQ UI6XIT 
CnP Rt, (RO)* 
BGE UI6XIT 
PDO Rl.RO 
nOV dRO.RO 
BEQ UIBXIT 
JSP PC-oIRO 
MCV (SP)+-PO 
C. SFUJ 

MOV 

nov 

PTS 
C. USFY 
MOV 
BP 
INC 
PTS 
BIS 
INC 
BP 



PHD GET HI BYTE 

9N0 DROP ALL BUT TYPE CODE 

MULTIPLY BY 2 

THEN GET USER TftBLE ADDRESS 

USER FORGOT 

IS TYPE CODE SERVICED 

NO 

THEN GET TYPE CODE PDDPFSSED 

; IS THAT TYPE CODE SEPV 
NO 

CRLL USER ROUTINE 
RESTORE RG 



CED 



(SP)+.Rt 

(3P)+<P5 
PC 



RETURN 



; RESTORE Rl 
.RESTORE R5 
TO CALLER 



«C SBSY. 
C. 3FGY 

c :ley 

PC 

»1.C. SHI 

C.3LEY 
3GEY 



C.SBPY .RESET BUFFER POINTER TO 
NOU GO EXIT 

INCR INTERNAL ERROR CNTP 
RETUPN TO CPLLER 

:3ET 0^/PFLOU 1 FLPG I ND 
INCPEnENT COUNT OF LOST tNTPlES 



JPRT 



IF OF PSXll 

PSECT >,,yx 
ENC'C 



J 



SCP322 SCIP VERSION 3-22 



nfiCRO nnoH oe-DEC-?? 08: 28 





PPGE 



13 



606 








607 








b08 








609 








610 








611 








612 








613 








bm 








bis 








61b 








bl7 








61S 








61? 








bCG 








bll 








622 








623 








624 








62S 








626 








627 








628 








629 








630 








631 








632 








633 


000000 


005767 


00053b 


63»4 


000004 


001453 




63B 


000006 


016702 


000536 


636 


000012 


032767 


000001 


637 


000020 


001026 




638 


000022 


042767 


000003 


639 


000030 


005367 


000506 


640 








64 1 








64 2 








64 3 








b^U 


000034 


113746 


177776 


b4b 


000040 


112737 


000340 


646 








647 


000046 


012221 




64 1 


000050 


012221 




649 


000052 


012221 




650 


000054 


012221 




651 


000056 


004767 


nnno36 


652 


000062 


010267 


000462 


653 








654 








655 








656 


000066 


112637 


177776 


657 








658 


000072 


000257 




659 


000074 


00G207 




660 








661 








662 


000076 


052767 


000002 



000520 
000510 



1 I I I I D 



0004 34 



FIRST ENTRY 

OF THAT 

UHICH 

IF 

USER 



SCIP EriT GE^ connPNO routine - ini \o\ 

UNLOADS USER CtRCULflR BUFFER. 

ENTERED FROM MONITOR EflT TRAP HRNOLES. 

PfiRPMETER IN Rt CONTAINS fiOORtSS OF USER LOCATION 

INTO UHICH TO LOAD BUFFER ENTRIES. IF BIT 15 Of 

THE FIRST PARAHETER UORD IS ZERO. THE 

IF IT IS NON-ZERO. THE LOU ORDER BYTE 

UORD IS TAKEN AS THE LINE NUMBER. FOR 

THE BUFFER IS SEARCHED FOR AN ENTRY. 

ENTRY IS FOUND. IT IS LOADED INTO THE 

SPECIFIED nODRESS. AND THE BUFFER ENTRY 

UOi^D ONE IS SET TO ZERO. HOUEVER. THE ENTRY IS 

NOT REMOVED. NOR IS THE COUNTER DECREMENTED. 

(THIS UOULD BE DONE BY NORMAL GET COMMAND. 

UHICH UILL DISCARD ALL ZERO TYPE CODE 

ENTRIES FOUND. AND GET FIRST GOOD ENTRY 

ENCOUNTERED) 

ON RtTURN TO USER. IF ENTRY NOT AVAILABLE. 

RETURN UITH N CONDITION CODE SET. IF ENTRY 

LOADED INTO USER ADDRESSES. RETURN TO USER 

WITH ALL CONDITION COOES RESET. IN ALL RETURNS 

TO USER. REGS ARE RESTORED AND STACK POINTER 

IS POINTING TO ENTRY ON STACK PREVIOUS TO USER 

PUSHING EflT PARAMETER ON THE STACK. 



S UNLOADED. 



C. SGET 



. GLOBL C.SGET 

TST C.SBCY ;ANY ENTRIES IN BUFFER 

BEQ C, SFCY ;N0 EMTRIES^ TELL CALLER 

MOV C.SFEY.R2 ; PUT BUFFER POINTER IN P2 

BIT «1, C.SHI ; IS OVERFLOW 1 INDSET 

BNE C SGMY ; YES 

BIC «3. C.SHI .: CLEAR ALL OVERFing FLOGS 

DEC C.SBCY ; DECREMENT ENTf?Y COUNT 

. IF DF LSIU 

-(SP) ;SRVE PROCESSOR PRIORITY 

J?340 ;; ;LOCK OUT INTERRUPTS 



MFPS 
MTPS 
. IFF 

novB 

MOVB 

. ENDC 

MOV 

MOV 

MOV 

MOV 

JSR 

MOV 



a;C. STfiT.-<SP) 
»340,a'»C STflT 



;SRVE PROCESSOR PRIORITY 
;; ;LOCK OUT INTEPRUPTS 



I > f 

. / 

t r / 

. / / 

. / 

/ / 



C. SBGY: 



(P2) + . (Rl.) + 

(R2)+, (Rl )+ 

(R2^+. (k1)+ 

(R2)+. (Rl)+ 

PC.C. SFQY 

R2.C. SFEY 
. IF DF LSlll 
MTPS (SP)+ 
. IFF 

MOVB (SP)+.i«C. STflT 
. ENDC 

CLALL ;CLEflR ALL CONDITION CODES 
RTS PC ;AND RETURN TO EMT HANDLER 



MOVE ENTRY TO USER STORE 
STORE IN USERS AREA. 4 WORDS 



TrST FOR BUFFER END 
SAVE BUFFER POINTER 



;;;RESTORE PROCESSOR PRIORITY 
;;.; RESTORE PROCESSOR PRIOR'TY 



•THE Uie HAS OVERFLOWED. TELL THE USER. 

C. SGMY: BIS «2. C.SHI ; SET OFLO FLPG 2 



SCP2:2 SCIP VERSION 3-22 



riRCRO nuo^ Ofe-DEC-77 08:28 



i 

PRCi 



13 



bbZ 00010^ 


0*42767 


000001 


bb^ ooon: 


012711 


OOOHOO 


bb6 OOOllb 


OOOr'bB 




bbb 






bb7 






hhZ 000120 


022702 


0007^2' 


bb9 0001214 


103002 




670 00012b 


012702 


000552' 


b7l 000132 


000207 




b72 






b73 






b7H 0001 3H 


000257 




b7S 00013b 


000270 




b7b GOOIUO 


000207 




b. 
b7S 






b79 






bSO 






bSl 






682 






bS3 






hS^ 






b86 ooom: 


011100 




bSb ooomn 


005003 




b87 OOOlHb 


Otb302 


001 ;m ' 


688 000152 


000300 




b89 0001614 


lOOHOH 




b90 






b9l 






b92 00015b 


0H2700 


1777U0 


693 OOOlbZ 


000167 


000366' 


b9H 






b95 






b9b 






697 000 Ibb 


GH2700 


177760 


69S 00C17: 


G0U167 


000336' 


b99 






^00 







000*426 



BIC 

nov 

, SUBROUTINE 

C SFQY: cnp 

BHIS 

MOV 

C SFLY: RTS 



«t. C.SHI 
«H00. (Rl) 
C SBGY 



CLEAR OFLO FLRG 1 

GIVE USER OVERFLOW ERROR 



TO 



TEST «N0 POJUST FOR BUFFER -NO 
•C SBEY,R2 . IS IT BUFFER END 
C. SFLY ; NO-GO AROUND RESET 

«C.SBSY,R2 ;RE3ET BUFFER POINTER TO START 
PC .RETURN TO CALLING ROUTINE 



, THERE ARE NO ENTRIES IN THE UlB 

C. SFCY: CLALL ;CLEAR ALL CONDITION CODES 

SEN ;THEN SET N CC 

RTS PC .AND RETURN TO EflT HANDLER 



. ENDC 
;EMT 100 
; ENTERED 
; ASSUMES 
;PARAMC 

. GLOBL 

C SPUT: 



;C.USFY 
SERVICE ROUTINE. 
FROM MONITOR TYPE EMT HANDLER 
ENTRY VIP JSR PC UlTH PI CONTA 
?R POINTER AND PS CONTAING USER 



NING USER 
PRIORITY LEVEL 



C. SPUT 
nov olRl.PO 
CLR R3 
MOV C. STAB^P3) 
SWAB RO < PLACE 
BMI C SPTA 



;GET ' 

OPCODE 
;THIS 



RST WORD OF PARPMETEP LI 
;LINE n IS ALWAYS 
:GET LINE TABLE ADDRESS 

N LO BYTE 

S ISR/DEVICE REQUEST 



ST 



THIS 



EMT 100 
BIC 
JMP 



REQUEST IS FOP P 
81777140-RO 
C. SATP ;G0 TO 



TOP/TERMINAL 

; CLEAR ALL BUT 5 
MATRIX SWITCH AND 

;T0 EMT HANDLER 



RIGHTMOST 
RETURN 



BITS 



;THI' 
C. SP' 



I A REQUEST FOP THE 
BIC »1777b0P0 
JMP C SflPP 



DEV 



CE MSP) MATRIX SWITCH 
■DPOP TO TrPE CODE 

;CALL DEVICE TYPE hRTPiy. SWITCH AND 
PETUPN TO EMT HflNDLEP 



SCP3:2 SCIP VERSION 3-22 



nPCRO n\m Cb-DEC-77 08: 28 



F 

PPGE 



13 

15 



702 
7Q3 
Ton 

705 
70fc 
707 
708 
709 
710 
711 

7t: 

713 

"\^ 

716 

7lb 
-' » T" 

718 

"19 

720 
721 

723 
721* 
725 
726 
727 
728 
729 
730 
731 
732 
732 
73^ 
72S 
736 
737 
738 
739 
7146 
7U1 

7U2 
7^3 
744 
7^S 

7^6 
7^7 

7H8 
749 
750 
761 
752 
753 
76'* 



0QQ33b 



00033b 
000340 
C0034H 
000350 
000350 
000354 
000356 
000360 
000362 
000364 



000366 
000370 
000374 
000400 

000402 
000404 
000406 



000414 
000420 



000176 



011646 

004567 17^530 

012705 000014 



042700 
C06300 
060005 
011505 
004^15 
0004 10 



177740 



011646 

004567 177500 
012705 000050' 
000763 

00U243 

ooo:"4 



000406 013766 177776 GOOOlb 



0045S7 177476 

ooooc: 



. IF OF RSXll 

.PSECT ISR 

.ENDC 
GENERAL SYSTEn riQTRlX SWITCH ON FUNCTION CODE - DEVICE TYPE 
USER ENTERS VIP JSR PC.C.SRRP 
REGISTERS SET PS FOLLOWS; 

ROsFUNCTlON CODE IN 6 RIGHTnOST BITS 

RlsIF FROn EMT, CONTAINS POINTER TO USER PflPflnETERS 

R2=P0INTER TO LINE TPBLES FOR LINE 

R3:LINE NUnSER PS P WORD INDEX 
UPON RETURN TO USER, THE REGISTERS PRE RESTORED 
THE CONTENTS OF THE CONDITION CODE ARE PPSSED BPCK 
TO USER PS RECEIVED FROM SUBROUTINES. 
PLL SUBROUTINES SWITCHED TO RETURN BPCK TO C. SPRR 

;SPVE SPPCE FOR LPTEP 
.SPVE USER REGISTERS 
; HOLDS TPBLE ADDRESS 

BIC 1177740. RO ; GET FUNCTION CODE 

flSL RO ; 1^2 

ADD R0<R6 ** ;THEN GET ADDRESS OF ADDRESS OF RTN 

nOV iR5,R5 ;THEN RTN ADDRESS 

JSR PCiRS ;AND TRANSFER TO RTN 

BR C.SARJ ;AND LEAVE THIS PLACE 

GENERAL SYSTEM MATRIX SWITCH ON FUNCTION CODE - TERMINAL TYPE 

USER ENTERS UIA JSR PC< C SATP 

ALL OTHER CONDITIONS SAME AS DEVICE MATRIX 

i)SP,-(SP) ;SAVE SPACE FOR LATER 
P5.C,SREG ;SAVE USER REGISTERS 
«CBFTBL+2P5 HOLDS FIRST SUiirH STRPT ADDR 
C. SART ,G0 THRU COMMON CODING 



C. SARP: 


MOV 


•)SP.-(SP) 




JSR 


R5,C.SREG 




MOV 


»CPFTBL^2R5 


C. SART 







C. SATP: 


MOV 




JSR 




MOV 


♦ 


BR 


C. SAIN 


CLVC 




SETNZ 



C. SAPJ: 



IF n: 



ENDC 



:SET ERPOP PETUPN 
. IF DP LSI 11 

MFPS 16' SP) ;SAVE CONDITION CODE IN SPACE 
. IFF 

MOV i)»C. STAT, Ib(SP) ;SAVE CONDITION CODE IN SPACE 
. ENDC 

JSR R5.C. SRES ;RESTORE PEGS 
RTI ;LOAD PC AND PS FOP USER PETUPN 
•NOT A RETURN FROM INTERRUPT 

. IF DF RSXll 
.PSECT XXX 
. ENDC 
;UB-4 
.EOT 
;END OF TAPE 3 OF B 






SCIP 



VERSION 3-22 



nfiCRO nuOH Ob-DEC-77 08. 28 



G 
PAGE 



13 



757 
763 
7B9 
760 
761 
762 
763 
"6^ 
768 
766 
767 
76S 
769 
7^0 
771 

I ( *. 

773 

77H 

776 

776 

777 

778 

779 

780 

781 

782 

783 

78W 

786 

786 

787 

788 

789 

7<^0 

791 

792 

793 

7914 

796 

79b 

797 

798 

799 

SOO 

801 

802 

803 

SOU 

805 

806 

807 

308 

S09 

810 

811 

812 



000176 



000176 
000200 
000202 
000206 
000210 



000212 
000216 
000220 
00022^ 
00022b 
000232 



0002J6 
0002H2 
0002H6 
000260 
000262 
00026U 
000266 
000262 
00026U 
000270 
00027U 

000300 



011103 
00. -OU 
004/67 
000267 
000207 



006767 
001002 
00H767 
006003 
01g702 
001001 



00023H OOOHHO 



010263 
016104 
010412 
106004 
000304 
006304 
016404 
060204 
010467 
012700 
004767 
100416 



000544 



00121:' 

000526 

ooi:io' 



;EnT 103 SERVICE ROUTINE 

;SYSTEn TPBLE INITIPL IZfiTlON - CflT 

.ENTERED FROn MONITOR TYPE EflT HPNDLER 

.PSSUflES ENTRY VIP JSR PC UITH Rl CONTPINING PPRPMETER LIST 

.PDDRESS PND PLL USER REGISTERS SPVED UITH PS PT USER LEUEL 



C, ST I 
. ENDC 



N: 



.THIS 

>: STii 



C. STIB: 



C. STIK: 



ooi:i4' 

000002 



C. STIC: 



000042' 

001210' 

000004 

00036b' 



. GLOBL 
IF LT 

novB 

MOV 
BEQ 

JSP 

CLOLL 

RTS 



C.ST IN 
SUB -2 
»340.dlC 

a)Rl.R3 . 
C STifl , 
PCC'TB 

PC 



STPT 



SET TO INHIBIT irlTERPUPTS 



GET PPRPnETER 
STPNDPRD INIT 
RESTPRT INIT 



S fl STPNDRPD LIMIT 



C 

C 



TST C. STRT , 13 
BNE C.STIB ;N0 
JSR PC.CITB ,G0 
CLR R3 
STPK,R2 ; 
STIC 
SUB-2 
Rl, -(SP) 
»776,R1 ; 
»BUrHDR,R 
MONPOL 
»40. ,P2 
BUFFER. R6 
C STIL 
(SP)+,P1 
«BUFHDR.R4 
R4,R2 
P4,C. STPK 
R4,C.STflX 
«776-R4 
P4,C. STflE 
-(R4) 

R4,R2 ; 
C. STIK ; 
. ENDC 

. IF N2 S'rJB-2 
BR C. STIF 

ENDC 
MOV R2, C. STflB(P3) 
MOV 2(R1),R4 ; 
MOV R4,iR2 ; 
CLPB R4 
SUPB P4 

RSL R4 ;THEN GET 
MOV C. SLTL(R4),R4 
ROD R2,R4 ; 

MOV R4.C. STPK ; 
MOV ;4.-R0 ; 

JSR PCC.SflTP 

BMI C.STII ; 



CPLL 
T F 



RST ENTRPNCE 



MOV 

BNE 

IF 
MOV 
MOV 
ODD 

GLOBL 
MOV 
CRLLX 
BCS 
MOV 
ROD 
MOV 
MOV 
MOV 
ROD 
MOV 
CLR 
CMP 
6HI 



NITIPLI2E SCIP 

;CLERR R3 TO LINE NUMBER 
GET NEXT POSSIBLE LINE TRBLE RDDRESS 
BUFFER RVRILRBLE, CONTINUE 



MOVE 
1 



:SRVE Rl - CRUSE HRVE TO CLOBBER IT 
N SIZE OFF SUFFER URNTED 
;RDD IN SIZE OF BUFFER HERDER 



MRKE 



SURE SYSTEM STILL HRS SOMETHING 
MONPOL ;GET BUFFER FROM MONITOR POOL 

;N0 BUFFER - FRTRL ERROR 
;NOU RESTORE Rl 
.STEP OVER BUFFER HERDER 
;PLRCE BEGINNING BUFFER RDDRESS IN R2 
;RND TEMPORRRY LINE TRBLE RDDRESS 
;RND SRVE BEGINNING RDDRESS 
;THEN CRLCULRTE ENDING RDDRESS 
;RND SRVE FOR LINE TRBLE CHECKS 
CLERP THRT BUFFER RS OBTRINED 
AND TEST FOR COMPLETION 
CONTINUE UNTIL BUFFER ZEPOED 



,THflTS RN ERROR IN RLL SYSTEMS 

;RND PLRCE IT IN FOP THIS L 1 NE 
AND 3ET TYPE CODES 
RND STORE IN TRP LINE TRBLE 



TAP CODE MULT BY 2 

;GET LINE TRBLE LENGTH 
RLSO INCREMENT TO NEXT 
OK. UPDATE NEXT RVRILABLE 
OPCODE FOR TRP INI T IRL I ZRTION 

;G0 TO TRP 
GOT RN ERROR 



LEFT 



SCP322 Slip VERSION 3-22 



nPCRO MllO^ Ob-DEC-77 OR; 28 



H 13 
PAGE 16- 



213 

SIS 

sib 

817 
818 
819 

s:o 

821 
823 



000302 
000306 
000312 
000316 
000320 
000326 
000330 
000332 
000332 
00033M 
000236 



3214 000336 
S2S 000342 
£2b OOOZHH 

s::^ 000346 



00S061 
012700 
004^67 
100H07 
012767 
000257 
000207 

000403 
012601 

005063 
000257 
000270 

000207 



OOGOOH 
000003 
000336' 

177777 001212 



001214 



C. 
C 

r 

C 
r 

C, 



ST 
ST 



H: 
D: 



STIL 

STIF 
STI I 
STIG 



CLR 

nov 

JSR 

Bni 

MOU 
CLRLL 
PTS PC 

6R 

nov 



H(Rl) ; LOOKS GOOD 
• 3.R0 ;SET CODE TO GO 



PC.C. 
CSTII 



SPRP 
; ERROR 
FLQG 
; CLEAR 
RETURN TO EflT 



GO FOR 



THRU 
ISR 



DEV 
NIT 



CE MATRIX 



STRT 



NITIflLlZflT 
ERROR COND 
HANDLER 



ON COMPLETE 
TIONS 



C.STIG 
(SP)+,R1 



RESTORE Rl IN ERROR COND IN RSTSiRSXll 



CLP C STQB(R3) .CLEAR INlTlfiLI 
CLPLL ;DROP EXTRANEOUS CONDI T 
SEN ,S£T CONDITION CODE N 
RTS PC ,PETUPN TO EMT HANDLER 



ZTION (LINE 
ION CODES 



TPBLE^ ADDRESS 



I 13 ~~ ~~ 

SCP322 SCIP VERSION 3-22 MfiCPO rmO^ 06-DEC-77 08:28 PRGE 17 

229 . IF NZ CUTB 

830 . GL08L CTEMT 

SZl ;EnT 102 SERVICE ROUTINE 

SZ2 ,PUTTn AND DELTM 

833 ;flSSUnES ENTRY FROn EMT HfiNOLER VIA JSR PC WITH 

23H ,USER PflRflMETER RDORESS IN Rl OND PRIORITY STPTUS 

S3S ;PEGISTEP SET TO USER LEVEL. ALSO ALL REGISTERS ^PE 

836 ;V0LATIL£. 

837 ; 

838 000350 012100 CTEMT: MOV (Rl)f,RO ;GET FIRST PARAMETER WORD 

S3? 000362 052700 177400 BIS «177400,R0 ;FLPG THIS AS A EMT CALL IN QUEUE 

8H0 00035b 012104 MCV fRD^.RH ;GET USER TICK COUNTER 

SHI 0003b0 011105 MOV iPl,R5 , AND THEN PARAMETER WORD 

8H2 .IF NDF TIMEDQ 

S43 TIMEDQ= 1 ;TIMEP DEQUEUE DEFAULTS TO PRESENT 

S4H . ENDC 

SH5 . IF NZ TIMEDQ 

S4b 0003b2 032761 177400 1777''4 B I T » 1 ^7400- -4 ^ P P ; TEST FOR QUEUE/DEQUEUE 

347 000370 001402 BEQ CTQUE .ZERO IS QUEUE ROUTINE 

S4S * 

349 ;THIS SERVICE IS FOP A TlMEP DEQUEUE 

350 000:^: 000167 nnnc:^' jMP CTDEL ;CALL SUBROUTINE AND RETURN TO EMT 

851 ; 

852 ;THiS SER'MCE IS FOR A TiMER QUEUE 

853 0003:'b CTQUE, . ENDC 

854 00037b 000167 000422' JMP CTIME ;CALL TiriER LINK SUBROUTINE AND RETURN 

855 . ENCr 



SCP3ZZ SCIP VERSION 3-22 



J 13 

MfiCRO nnO^ Qb-DEC-77 08; 28 PAGE 18 



85? 

SB? 

SbO 
3bl 

Sb: 000^02 



;SYSTEn TIMER T«P LEVEL 

^ROUTINE FOR TmiNG PROGRfin PRIORITY LEVEl flCTIVflTlON REQUESTS 
.ENTERED FROM PRIORITY SCHEDULER 
. GLOBL ctplr 

CTPLR: 



SCP32: iCiP ^'ERSION 3-22 



nOCRO nWOH Ob-DEC-77 08; 28 



K 
PPGE 



13 

19 



ObM 






8b5 






86b 






S67 






368 






S69 






S70 






S7l 






872 0Q0H02 






8:^3 






87^ 






875 






S7b 






877 






S"'S 






879 






380 






88! 






882 000H02 


004567 


000074 


SS3 






SSH 






SS5 






886 






887 






888 






889 






890 OOOHOb 


012003 




891 ooomo 


011004 




892 






893 000m2 


051040 




89H 0004 m 


001436 




89B 000416 


005020 




896 000420 


006010 




897 000422 


162700 


OOOCOb 


S9S 






SQQ 






900 






901 






■^02 






90J 






904 






90S 0004 26 


004767 


000660' 


?0b 0004 32 


032703 


177400 


907 000436 


001413 




90S 






909 






910 000440 


005003 




911 000442 


052703 


04 I 000 


912 000446 


010446 




913 000450 


010346 




914 000452 


010605 




915 000454 


004767 


000172' 


916 000460 


062706 


000004 


917 000464 


00C403 




91S 






919 






920 000466 


016302 


001214' 



;SYSTEn TinER-UNE TIHER ROUTINE 

; ENTERED FROM CTPLR 

.EXITS BACK TO PRIORITY SCHEDULER 



IF 2 SUB-5 

GLOBL RESUnE.DONE 

ENDC 



CTOCK: 

CTOXJ; 

CTOS; 



. IF N2 
CTNE: 



. IF 
. IF 
TST 
BEQ 
INC 
TST 
BEQ 

cnp 

BNE 
. ENDC 
JSR R5 
SWBC 
liOU 

nov 

MOV 

nou 



N2 CUTB 
NZ SU6C 

CTIKO 

CIOXh 

CTIC 

CTBS 

CTOXJP 

•ICTBS.CTIC 

CTOX 



Ef^DC 

1^ : s 



;4I 



CTBS.FO 
2(P0j.P3 
6'PO'. P4 
4'R0i,aBS 



;*l 
;4I 

;ll 



NBC 
nov fP0)>-R3 
MOV iPO.. R4 
. K NZ SWB-6 
BIS aPO.-'PO' 
BEQ CTFETZ 
CLP " P ' + 
CLP iiPO 
SUB «6.PQ 
. ENDC 

, IF Z SWB-6 
CLP >P0) 
CLP -(PO) 
SUB «4,P0 
. ENDC 
. ENDC 

JSP PCCTPVRC 
BIT ;i77400R3 
BEQ CTTRP 



.RT-ll 



;HPS CLOCK TICKED 

;N0 EXIT 

, INCREMENT MASTER TIMER 

,«NY TIMER ENTRIES 

;N0- GO EXIT 

;H«S FIRST ENTRY TIMER EXPIRED 

.NO. GO EXIT 



C SPEG .SflUE REGISTERS 



.GET PDDRESS OF EXPIRED ENTRY 
.PND LINE NUMBER 

;THEN PORflMETER COLLEP SPECIFIED 
:flND r'EXT LINK POINTER 



^ RECOVER LINE NUMBER 

;flND USER SPECIFIED PflRPMETER UOPD 

;NOT PT-11 

:fiND TEST FOR EXPIPPTiON PTTEMPT 

; RETURN TO VRCPNCY CHPIM 

;THEN CLEPP 2.3 HOPDS 
;PND OBTPiNS FIR.T WORD 

;PT-il 



;THEN RELINK OLD ENTRY INTO uPCPNCY 
. IS THIS EMT CPLL 
,N0. SYSTEM CPLL 



;THIS QUEUE ENTRY IS FOR P USER EMT CPLL 



CLR R3 
BIS ;41000.R3 
MOV R4.-(SP) 
MOV R3. -iSP) 
MOV SP.R6 
JSR PC.C. SFY 
PDD «4,SP 
BR CTRETX 



CLERR R3 TO LINE NUMBER 
PLPCE TYPE C0DE=2, 2 WORDS 
PLPCE PPRPMETER ON STACK 
PND FIRST WORD 
THEN SET UP R5 FOR 
PND PLPCE ENTRY IN 
RESTORE STPCK POINTER 
PND TRRNSFER TO COMMON 



UIB 
UIB 



LOHPFP 



;THIS ENTRY IS FOP P SYSTEM T 
CTTPF: MOV C. STPB(R3),P2 



MER PEQUZST 
;GET LINE 



TRBLE ADDRESS 



SCP322 SCIP v/ERSlON 3-22 



L 13 

MRCRO nnOH Ob-OEC-77 08:28 PPGE 19-1 



n\ 
m 

925 
92b 

9:3 

930 
931 

932 
933 
93H 
935 
93b 
937 
q73 

939 
9HG 

9m 

94 2 
94 3 
944 
9H5 
94b 



000472 004714 



CTRETX 



CTOPR: 
CTOX: 

CTOXfi 



T I nx I r 



JSR PC.iR4 
. iF N2 SWBC 

TST CTBS 
BEQ CTORR 
CMP iCTBS^CTlC 
BEQ CTNE 
JSR R5.C. SRES 
DEC CTIKB 
BNE CTOXJ 
. ENDC 
. ENDC 

IF NZ SUBC 
nOU »NOP.C SPRT 
. IF LT SWB-2 

nov iNOP-c. SPIT 

ENDC 

JMP C SPS 
. ENDC 

.IF NZ CU'B 
. IF NZ SWBC 



RNO TRANSFER TO ADDRESS 



PRE THERE ANY OTHER ENTRIES 

NO. THflTS ALL 

HAS THE NEXT ONE ALSO E.XPll^ED 

no, thats all for now 
restore registers 
decren':nt interrupt counter 
thats not all 



CLEAR REQUEST LOCATION 
AND lEI'EL active FLAG 

AND THEN TO THE PPlOPITY SCHEDULER 



94 7 








94 8 








949 








960 


000474 


004667 


00011b' 


961 


000600 


Gl2b00 




962 








963 


000602 


012716 


000663 


964 


000606 


10437- 




966 


000610 


IG3777 




%b 








96^ 








96 S 








969 








9bO 








9b 1 


000612 


02404 




9b 2 


000614 


004 :^b:' 


000660' 


9b^ 


000620 


000766 




9b4 








966 








96b 








967 








9bS 








Qb^ 








970 








971 








972 








973 


000422 






Q7^ 








975 








9:^6 








977 


000422 


00466" 


177446 



; THERE APE NO ENTF lES 
CTOXJA CLR CTIKB 

BP CTOXA 

. ENDC 

. ENDC 

. IF Z SUBC 
CTPF^'r JSP P5.C SPES 

nov (SF ' + . PO 
IF NZ SWB-6 

MOV «PSTE''; iSP 

EMT 377 

BCS 

. ENDC 

. IF Z SUB-6 

RTS PC 

. ENDC 



N THE TinEP OUELIE SET CTikb TO ZERO 
.AS I SAID- CLEAR CiTKB 



RESTORE REGISTERS 

AND RE- RESTORE RO ( JSR PO) 

NOT PT-11 

POP STRCK AND PLACE PPRPMETEP ON STACK 

AND EXIT PST vm EMT CALL 

LOOP -EPE IF DIRECTIVE ERROR 

PT-11 

EXIT FROM COMPLETION ROUTINE 



CTPETZ. CMP 
JSP 



- • P K. - ' P 1 
PC- CTPHPC 
CTPETX 



BP 

. ENDC 
IF NZ CUTB 
SET UP TIMER SUBROUTINE 
USER ENTERS UITH LINE NUMBER IN Pn 
EXPIPRTION TIME CNT IN P4 
ADDP OF TIMEOUT PTN IN P6 
ENTRANCE VIA JSR PC-CTlME 
REGS RESTORED ON RETURN 
IF DF PSXll 
FSECT ISP 
. ENDC 



;BACK UP TO STRPT OF BUFFER ENTRY 
; RETURN IT TO VflCRNCV CHhIM 
;hND exit 



GLOBL CTIME 
CTIME. JSR 



R6.C. SPEG 



;SAVE PEGS FOR USER 



SCP322 SCIP UERSION 3-22 



nfiCRO MUOH 06-DEC-77 08: 28 



n \2 
PfiGE 19-2 





000i+2e 


004767 


000164 


Q79 


000H32 


006700 




980 


000H3H 


001427 




9S\ 








982 








9S3 








9S'^ 








93S 








9Sb 








987 








92S 








9S9 








990 


000H3b 


Glt720 


000634* 


991 


000^h2 


016720 


00063b' 


Q^2 








99! 


OOOHHb 


010467 


G0062b* 


99H 








996 


0001462 


0Hb20 




99b 


OOO^SH 


016610 


000012 


997 


OOC^bO 


^2:^00 


000006 


99S 








999 


OOOHb^ 


01006^ 


000632' 


i666 


000^"0 


012746 


000622 • 


1001 


0004^4 


1Q4377 




too: 








1003 








10GU 








1006 








100b 








1007 








lOOS 








1009 








1010 








1011 








1012 








1013 








lom 








lOlS 


OC D 


1 034 04 




101b 








1017 








1018 








1019 








io:d 


000500 


00466:' 


17741: 


io:i 


000604 


000264 




io:: 


000606 


00020:" 




1023 


000610 






io:w 








io:b 








1026 








1027 








102S 


000610 


004767 


000134 


10:9 








103P 


000614 


00466:^ 


177J76 


1031 


000620 


00C254 




1032 


000622 


000270 




1033 


000624 


000207 




lOJH 









CTIX; 



CTIB: 



CTIO: 



JSP PCCTGl/fiC .GET UflCflNT LINK 

TST RO , IS IT VflLlO-NON ZERO 

BEQ CTlfl ; NO-RETURN TO USER 

IF NZ SUBC 

ROD CTIKB.RH . fiOD CTIKB OVERRUN UPLUE- IN CASE 

POD CTIC.R4 ,POD TlflER UPLUE 

MOV R4,(R0) ,PUT IN 1ST ENTRY UORD 

nov (SP).2(R0) ;PUT ln in 2nd 

MOU 12(SP).b(R0) ;PUT PTN POP IN 4TH 

,G0 LINK 

;SET UP FIRST U0PD3 TO JSR RO-CTOCK 

;NOT PT-11 

;SET UP TIMER IN TICKS 

-PICK UP USER SPECIFIED LINE NO 
.PND LOPD USER SPECIFIED PPPPMETEP UOPD 
.THEN OBTPIN BEGINNING flODPESS 
NOT RT-11 
,flND STORE PDDRESS 

PUT PPPPriETEP LIST ON STRCK 
:PND CPLL PSX-llD 

•PT-11 

-SPUE PO DURONG MONITOR CRLL 

;PUT ON NUMBER OF TIMER TICKS TO WPIT 

•MOST SIG WORD OF TICK COUNT IS ZERO 

;HUT PDDRESS OF TIMER BLOC^ INTO Rl 

; Timer id - PDDR of SCIP T.MER NODE 

; COMPLETION ROUTINE PDDRRESS 

PDDR OF TIMER TICK BLOCK 
■MRKT OP CODE 

PUT PODPESS OF TIMER BLOCK INTO PO 
.CPLL RT-11 

;IF OUT OF POOL NODES TRKE THIS BPRNCH 

FT-i: 
;CLERN UP STRCK (TRKE TIMER BLOCK OFF) 

; RESTORE USER PtGS 

■ BRCK TO USEk 

•PT-11 

-CLERN UP STPi> 

; RESTORE RO tPODPESS OF SCIP TIMER NODE) 

.RETURN TO VflCRNCY CHRir^ IF OUT OF NODES 

: RESTORE PEGS 



RETURN TO USE? 



JSP 


PCCTLNK 


ENDC 




. IF Z < 


SUBC 


MOW JUNK. (PO)* 


MOV JUNK*2. (POj* 


iF NZ 


SWB-6 


MOV P4 


C MI-UN 


ENDC 




MOV iS' 


3, iROi* 


MOV 12 


SPi-iPO 


SUB «6 


RO 


. IF NZ 


SUB-6 


MOV RO 


C MI'PS .RND 


MOV $C 


MKTM- -iSP) 


EMT 27' 


7 


ENDC 




. IF : 


:WB-6 


MOV 


PO -(.SP) 


MOV 


R4.-(SP) 


CLR 


-•SP' 


MOV 


SP,P1 


MOV 


RO. -(SP) 


MOV 


RO.-(SP ' 


MOV 


P 1 . - ' SP ' 


MOV 


»11000.-'SP) 


MOV 


SFRO 


. MRKT 




. ENDC 




BCS 


CTiB 


. ENDC 




. IF : 


SUB -6 


ROD 


»lb SP 


. ENDC 




JSR 


R6^C SRES 


CLZN 


•RESET CC 


PTS 


PC 


. IF : 


SUBC 


. IF Z 


SvJB-5 


ROD 


nl4,SF 


MOV 


(SP)+.RO 


. ENDC 




JSR 


FCCTPVRC 


. ENDC 




JSR 


R6.C. SRES 


CLZN 


; RESET CC 


SEN 


SET N CODE 


RTS 


PC RET 


.IF OF 


RSXll 



%C.PZZ2 SCIP wERSiON 3-22 



N 13 

nficpo nuo'4 O6-OEC-77 08: 28 page 19-3 



103S 00062b 

io:b 



. PSECT ISP 
. ENDC 



IMWpijlMiliifeffl^^ 



scP3:2 Slip version z- 



1038 
1039 
10^0 

lom 

10U2 
10H3 
10H14 
10^5 
10H6 
10H7 
lOHS 
10H9 
lOBG 
lOSl 

irs: 

lLv3 
105H 
105S 

105b 
1057 

loss 

1059 

1060 

lObl 

1062 

1063 

1064 

1065 

1066 

1067 

106S 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

10^6 

1077 

107S 

1079 

lOSU 

lOSl 

iOS2 

lOSJ 

10S4 

1085 

10S6 

1087 

loss 

1089 
1090 

1091 

ic?: 



22 



MRCRO nil04 06- DEC-77 08: 28 



B 
PRGE 



m 

20 



. IF N2 SWBC 
LINK TIME ENTRY INTO TIHEP CHAIN 
or; ENTRPNCE R0=0DDRESS OF ENTRY TO 
ENTERED VIR JSR PCCTLNK 
ROUTINE IS RE-ENTRRNT 



LINK 



CTLNK 
. IF NZ 



ENDC 
IF 2 



ENDC 



CTLR: 



CTLC 
CTLBfl: 



ENDC 
IF Z 



ENDC 
ENDC 
IF : 

ENDC 

:tl£: 



CTLZ: 



. IF N2 TLOCK 
SLOCK 
nOV C. SLOK,-(SP) 
MOU ;»PTLC. SLOK 



AND SET 



SAVE SOFTURRE 
IT ACTIVE 



LOCK LEVEL 



SLOCK 
MOVB 
MOVB 

ENDC 
TST 
BEQ 

nov 
nov 

MOV 
SUB 
MOV 

nov 

SUB 
CMP 
BHI 
MOV 
MOV 
BNE 
MOV 
CLR 
. IF 
. IF 
MOV 
MOV 
MOV 
JhP 



il»C STRT, -(SP) 
<t340.i«C. STAT 



SAVE PS PRIORITY 
SET PRIORITY LEVEL 



TO 7 



CTBS 
CTLZ 
«CTB 
CTIC 

R3.R 

CT9S 

(R2) 

P3.P 

R5,R 

CTLE 

P2.P 

4(P2 

CTLR 

R0.4 

4iP0 

2 TLOCK 

Z SLOCK 

SP)+C. 

SP. -(SP 

;C. STRT 

. SPS 



S-4,R 
,R3 ; 
,R1 ; 
I 

,R2 ; 
,R5 , 
5 ; 
1 

4 ; 
),R2 

'R4) 



IS CNTP EQUAL 

YES- GO LINK ONLY ENTRY 

4 , SET UP LINK - IN ADDP POINTER 

GET TIMER VALUE 

GET ENTRY TICK CNTR 

GET ENTRY TO LINK PEL CLOCK VALUE 

SET TO FIRST LINK ADDR 

GET FIRST LINK TICK CNTR 

GET LINK PEL CLOCK VALUE 

IS LINK GREATER THAN ENTRY TO LINK 

GO LINK - YES 

SAVE ?PEV LINK ADDR 

;GET NEXT LINK ADDP 
NOT CHAIN END- LOOK AT NEXT 

;LINK IN AT CHAIN END 



SLOK ; RESTORE SOFTWARE LOCK 
) ;MRKE fl FAKE INTERRUPT 
.2(SP,' INSTEAD OF SUBROUTINE 
;ANO CALL PRIORITY SCHEDULER 



FATE 



RETURN 



SLO^'K 
MOVB 
RTS 



TLOCK 
RTS 



nov 

MOV 
BR 

nov 

BP 
. ENDC 



fSPi 
PC 



PC 



ii»C. STAT 
•RETURN 



; RESTORE 
TO USER 



USER PRIORITY 



;EXIT TO CALlEP 



4iP4 V- 4';P0 

R0.4(P4) 

CTLBfl 

RO.CTBS 

CTLC 



GET NXT ADDP FROM PP. 
LINK NEW ENTRY TO PRL^i 



PUT IN NEW 



,CP322 SO IP ^iERSlON 2-22 



MRCRO finOH Ob-DEC-77 08; 28 



C 
PAGE 



21 



1 



I09ii 
1095 
I0?fe 
1097 

1098 
1099 

noo 
noi 
no2 

r.oz 

1104 
M05 
llOfe 
HO" 
llOS 
11C9 
1110 
1111 
1112 
1113 
1114 
1115 
111b 
111? 

ins 

1119 
1120 
1121 
1122 
1123 
1124 
1126 
1126 
1127 
1128 
1129 
1130 
1131 

iiz: 

11 33 
1134 
1135 
113b 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
11^8 
1149 
115C 



000526 00456? 1?"342 



00G£3: 113^46 17"7"6 

00053b 11:^37 000340 i:^:^77b 



000544 012700 000704' 
000550 026660 000014 000006 
000556 001004 



000560 005060 000004 
00C56U 005060 000006 



. IF NZ TiriEDQ 

;THIS SUBROUTINE PERFORMS THE flCTUfiL DEQUEUE FOR THE T 

; QUEUE ENTRIES. 

.ENTRY CONDITIONS «RE 

;R0= LINE NUMBER fiS IN TIMER QUEUE ENTRY 

;R4= UNUSED 

;R5= PARAMETER WORD, PS IN TIMER QUEUE ENTRY 



MER 



. GLOBL 
CTDEL 
. IF N2 
. IF NZ 



ENDC 
IF Z 



CTDEL 
JSR R5,C. SREG 

TLOCK, 

SLCCK 
nOV C. SLOK,-(SP 
MOV KRTUC. SLOK 



Sfii/E RPGISTEPS 



;SflVE SOFTWARE LOCK STATE 
RND SET LEVEL SUSY 



ENDC 

ENDC 



SLOCK 

. IF OF LSI 11 
MFPS -'SP) 

MTPS »340 

. IFF 

novB i-^c. STfiT,-isr > 

hO^'B »340.i)«C STAT 

. ENu: 



CTDELl 



CTnEL2. 



CTDELl 

; tt 

; tt 
;*« 

itt 

;«» 



** 



SAVt PRIORITY SCHELJLER 
AND LOCKOUT INTERRUPTS 



SA-JE 
AND 



PRIORITY LEVEL 
LOCKOUT INTERRUPTS 



.IF NZ SW6C 

nOV «CTBS-4-R3 

MOV CTBS.Rl 

BEQ CTDRET 

CMP 2(SP),2(P1) 

BNE CTDEL2 

CMP 14fSP).6(Rl) 

BNF CTDEL2 

MOV R1,R0 

MOV 4 (PI). PI 

JSR PC.CTPVflC 

MOV P1,4(R3^ 

BR CTDELl 

MOV R1,R3 

MOV 4(Rl.t.?l 

BR CTDELl 

. ENDC 

. IF Z SWBC 

«CTLB.PO 

14>SP •.6^PC.i 

CTDEL2 

Z SWB-5 

RO,C. CUM 



GET BEGINNING OF 
NONE PRESENT 
IS THIS THE Lir<E 
NO 

; IS THIS 
NO 



CHAIN 
NUMBER , 
THE FARAMETEP WORD 



PLPfE LINK IN ""ACRNCY QUEUE 



AND CONTINUE 
SAVE LAST 



ENTRi 



SEARCH 
LOCAT 



ON 



AND SEARCH 



MOV 

CMP 

BNE 

. IF 

MOV 

MOV 

. CMKT 

MOV 

JSR 

. ENDC 

. IF NZ SW6-5 

CLP 4(R0) 

CLR 6(P0) 

. ENDC 



R0,-fSP^ 
»C. CUID 
(SF)+,R0 
PCCTPVAC 



; SEARCH lNTIPE TABLE FROM BEGINNING 

,,;THEN COMPARE PARAMETER WORD 

;,:NOT SPECIFIED ENTRY 

;RT-11 

:;; TIMER ID 

;SAVE RO 

;CALL RT-11 

, RESTORE RO 

, RETURN NODE 



;NOT RT-11 
;; :FLAG ENTkr 
;;;DITTO 



S NODE ADDRESS 

CANCEL TIMER 
TC POOL 

DELE "ED 



J 



SCP322 SCIP VERSION 3-22 



D m 
nfiCRO nnoH oe-DEC-?? 08: 28 ppge 21-1 



nsi 000S70 


062700 


000010 


ut,: 000F714 


020027 


001204' 


lis: OOQfeOO 


103r'63 




116^4 






UBS 000602 






llSb 






ns7 






1158 






ns9 






r.bO 






llbl 






nb2 






llb3 






llb^ 






w^s 






Mbb 






nb7 






iiGS ooobo: 


112637 


177776 


Mb? 






1170 300606 


004567 


177304 


11 n oooti: 


1:00:514 




1172 000bli4 


occ:c:' 




1173 






11714 






1175 






1176 






1177 






117S 







;;;THEN iUHP TO NEXT 
;;; IS THIS END OF LINKS 
;;;N0. LOOK FOR n^:£ DELETIONS 



CTDEL2: ADD «10,R0 

CMP RO^ICTEB 

BLO CTOELl 

. ENDC 
CTDRET . IF NZ TLOCK 
ir NZ SLOCK 

nOV <SP)^.C. SLOK 

JSRR5.C.SRES ;RtSTORE REGISTERS 

hOV «)SP,-(SP) ;fiND STPRT aU'LDING F^KE PTI 

CL2N ,SHOW NO ERRORS ON RETURN 

MOV al»C. STflT,2(SP) l 

JMP L SPS ;RND CfiLL PPlORlT^ SCHEDULEP TO ENTER RTNS 



ENDC 
IF 2 



F NECC 



SLOCK 

IF DF LSIll 
MIPS fSP'* 

IFF 
MOVB (SP "►.4l»C STflT 
.ENDC 

JSP PB-CSPES .QND PESTOPE REGISTERS 
CL7N ; Ml^D FLAG «S OK 
RTS PC 



;rtLLOW INTERRUPTS 
;flllOl' INTERRUPTS 



. ENDC 
ENDC 
. IF : TLOCK 
FTS 
. ENDC 
, ENDC 



PC 



PETIJPN TO CfiLLEP 



SCP322 SClP UERSION 3-22 



riRCRO nnO'* Ob-DEC-77 08:28 PfiGE 22 



USD 






1181 OOOblb 






1182 






ilS3 






11314 






IISS 






llSb 






1187 






IISS 






118? OOOblfe 






1190 






1191 






1192 






1193 OOOblb 


113746 


177776 


119H ooofe:: 


112737 


000340 


1195 






11 9b 000b30 


016700 


000046 


1197 000634 


001402 




1198 n0Ub3b 


011067 


000G40 


1199 OOObH: 






1200 






1201 






1202 0006^: 


11263" 


r77"6 


1203 






120H OOOblb 


000207 




1206 






1206 






1207 






1208 






1209 






1210 000650 






1211 






1212 






1213 






12m 0006SG 


113746 


177776 


1215 000654 


112737 


000340 


1216 






1217 000662 


0:6710 


000014 


121 S 00Cb6C 


010067 


000010 


1219 






1220 






1221 






1222 OOOb.^2 


11:637 


1777^6 


1223 






1224 000676 


000207 





177770 



177776 



. IF OF psxn 

.PSECT ISR 

. ENOC 
;GET TinER BUFFER UflCfiNCY ROUTINE 
;ENTERED Vlfl JSR PC.CTGUPC 
; RETURN TO USER UITH UPCfiNT ENTRY flODR IN RO 
; IF NO ENTRY flVfllLRBLE. RETURN TO USER UITH RO Er^UfiL G 
;R0UTINE IS RE-ENTRANT 



CTGVflC: 



. IF OF LSItl 
riFPS -(SP) 



CTGVEX: 



MTPS 
. IFF 
MOUB 

novB 

. ENDC 

MOV 
CEQ 

riou 



11340 



;Sfll<r PS PRIORITY 
;SET r^RIORlTY TO 7 



olK. STflT,-(SP) 
»340,a»C. STRT 



;SflVE PS PRIORITY 
,SET PRIORITY TO 7 



CTSV^RO ;NEXT BUFFER ODOR INTO RO 

CTGVEX ; YES-NO ENTRY flVPILflBLE 

(POKCTSV ;nO»' NEXT LINK flDDP TO l/flC STOPT 
. IF DF LSlll 
MTPS (SP)> 
. IFF 

MOUB (SPi+.i«C STPT 
. ENDC 
RTS PC ;BOCK TO USER 



; RESTORE PRIORITY 
RESTORE PPIOPITY 



; PEL INK ENTRY TO VflCONCY CHfilN 
;FNTEPEO ^MP j-p PC.CTPUPC. ENTRY PDDP 
;R0UTINE IS PE-ENTRPNT 



N PO 



SPVE PS PPIOFITY 
SET PRIOPITr' TO 7 

SP'/E PS PPIOPITY 
SET PPIOPITY TO 7 



CTPVRC: . IF DF LSlll 

MFPS -'SP) 

MTPS «340 
. IFF 

MOl'B ii»C. STRT, -iSP) 

MOVB «340.£lK. STPT 
. ENDC 

MOV CTSV^iFO ;LINK OLD FIRST TO NEU LINK 
MOV RO.CTSW ;«ND PLPCE NEU PT FIRST OF CHPIN 

. IF DF LSlll 

MTPS (SP '■► ;PESET PS PPIOPITY 

. IFF 

MOVB (SF'+il»C STPT ; RESET PS PR lOR i TY 
. ENDC 

PTS PC ; RETURN TO JSER 



SCPI22 SCIP VER 


SIGN 3-2 


I22b 




1 '? *''» 




1 •••• 1 




1228 




1229 




1230 




1231 




1232 




1233 




123^ 




123S 




I23b 




1237 




1238 




1219 000700 


000000 


12H0 000702 


000000 


I2m 00070H 


000000 


l2^2 


001204' 


12^3 001201* 




12^W 




12^S 




12146 




121*7 001204 




12HS 




12H9 OOICOH 


000000 


1250 




12B1 




1262 




1253 




125H 




1255 




1256 




1257 




1258 




1259 




1260 001206 


002216' 


1261 001210 


OOUOOO 


1262 001212 


000000 


1263 001214 


000000 


1264 


001216' 


1265 




1266 




1267 




126S 




1269 




1270 




1271 




1272 001216 


002216' 


1273 




1274 002216 




1275 




1276 




1277 




1278 




1279 000522 




1280 




1281 




1282 


000563 



22 



MACRO ni 104 Ofe-OEC-77 08: 28 PfiGE 23 

.SYSTEM TIMER UQLUES. M9STER TIMER, CHAIN POINTERS. ETC 
. iF 2 SWB-2 

GLOBL CTIKB.CTMfiXB.CTtC.CTBS.CTSV.CTLB.CTEB 
. GLOBL C STfiX, C. STRK.C. STRT.C. STflB.C STflP.C STflE 

. IFF 

» 

. IF N2 SUBC 

CTIKB UOPD .INTERRUPT COUNTER FOR QUEUE SERVICE ROUTINE 
CTMfiXB; UOPD ;«l*l MAXIMUM CTIKB OUERPUN UfiLUE 

CTIC: WORD .MASTER TIMER COUNTER 

. ENDC 

CTBS WORD .START OF ACTIVE LINK CHAIN 

CTSV WORD -l/ACANCY START ADDR 

CTLB WORD ; FIRST BUFFER WORD 

. =. *CUTB>CUTB+CUTB>CUTB>CUTB+CUTB+CUTB+CUTB-2 .ALLOCATES BUFFER 
CTEB: 



. IF 2 "^WBC 

. IF NZ SWB-5 
PSECT ISP 

. GLOBL TASKAD 
TPSI-RD: . WORD 

. ENDC 

. IF Z SWB-5 

. GLOBL TASKAD 
TASKAD. . WORD 
ENDC 

. ENDC 
; SYSTEM LINE TABLE START ADDRESS POINTER TABLE 
;SIZE OF TABLE DETERMINED BY USER AT ASSEMBLY TIME 
;TABLE SET WITH POINTERS AT SYSTEM INI T I AL I ZAT I On TinE 



NOT PT-11 

.-CURRENT TASK NODE 

; TASK'S IMPURE AREA 



C. STAE 
C. STAK 
C. STRT 
C. STAB 



WORD C.STAP .END OF AVAILABLE LINE TABLE SPACE 

WORD ;NEXT AVAILABLE LT f^-^CE 
.WORD : "FIRST ENTRY" FLAG FOP INiT SEP'-MCE 
.WORD ;LINE TABLE ADDRESS TABLE 



. = +C. USNL-^C. USNL-2 

.IF NZ C. USRT 

; SYSTEM LINE TABLES 

;SIZE OF AREA RESERVED DETERMINED BY USER AT P-EMBLY TIME 

;TABLES INITIALIZED FOP ASSIGNED DEnlCES hT SV EM INITIALIZATION TIME 



C. STAR: 
. ENDC 
C. STAR: 



. GLOBL C. STAR 
= . +C. USRT4-C. USRT 



ENDC 

IF Z SWBC 
IF NZ SWB-5 
PSECT XXX 



.NOT PT-11 



;RSX-11D DIRECTIVE BLOCKS 
ASTEX:: 563 



;AST EX'T DPS '. BtTE US . P 



SCP322 Si. IP VERSION 3-22 



G tH 
MRCRO MUO^ Ob-DEC-77 08; 28 PRGE 23-1 



12S3 


000433 


1281* 




12SS 000522 


027 005 


1286 000621* 


000000 


1287 00052b 


000000 


1288 000530 


300001 


1289 000532 


000000 ^ 


1290 




1291 




1292 




1293 




12^^ 




129S 




l2?tD 




1 ^Q-* 




1 29S 




1299 000534 


004037 000402 


1 ^'^0 




1301 




1302 




1303 




1304 




1305 000540 


000000 


I 30b 000542 


000000 


1307 000544 


000000 


1308 




1309 




1310 




1311 00054b 


000552' 


1312 000550 


000652' 


1313 




1314 




1315 000552 


nncnon 


131b 


000C40 


131"- 


000^42' 


131S 000:'4 2 


ooiiooo ncoooo 


000^50 


000000 



000000 



CnKTMs 433 

c. nKTri: 

c riKUN; 

c. riKflS: 



BYTE 23. 
UORD 
UORD 
WORD 1 
UORD 
ENOC 



.CRNCEL MRRK TIME DPB (BYTE 27 , 1 ) 
;riflRK TiriE DPB 

junits of time 

;UNITS s TICKS 

;TinER AST ENTRY POINT 



IF 2 SUB-5 
,CPNCEL nORK TIME PRRfiMETEP BLOCK 
C. CMKT: .BYTE 0,23 
C CUID: . WORD 

. WORD 

. ENDC 



RT-11 



;0P CODE 
. ID WORD 
.NO TIME REQUIRED 



CANCEL MARK TIME 



1319 



JUNK: JSR RO,i)»CTOCK , FIRST WORD OF TiMEP LINK 
. ENDC 
IF N2 C. USFY 
;USER INTERFACE BUFFER PND ITS PELfiTED ENTRY FTPS 
,PIND FLOGS. 

C SHI: . WORD ;Ol/ERFLOW INDICRTOP 

C SBCY: . WORD -ENTRY COUNTER 

C. SLEY: .WORD ,LOST ENTRY COUNTER 

I F N^ U I B*" RH 

C. SBWY WORD ; TEMPORflPY FOP SERRCH MODE 

. ENDC 

C. SBPY . WORD C. SBSY ;ENTPY INSEPTION POINTER 

C. SFEY; . WORD C. SBSY ; ENTRY PEMOVRL PC INTEP 

•THIS IS THE UIB 
C SBSY: . WORD 
X= C. USFY^C. USFY 
= . +.ViV,+»,y-i2 

C. SBEY WORD OOCO 
. ENDC 



J 



^CP322 SCIP VERSION 3-22 



nfiCRO nuOH Ofe-DEC-77 08: 28 



H 

poGe 



2^ 



1321 






1322 






1323 






132H 






132S 






132b 






17"-' 






1328 OCO/52 


005067 


001212* 


1329 






1330 






1331 






177? 






I SJl, 






1333 






133H 






133B 






133b 






1 7 7"* 






\ ^2>' 






133S OOOI-Sb 


1 13746 


177776 


1339 000762 


112737 


000340 


13^40 






I3m 000770 


C12705 


000710' 


13142 000^7M 


005025 




13^3 00077b 


005025 




13HH 001000 


062^05 


000004 


13145 001004 


020527 


001210' 


1346 001010 


103:"'l 




1347 






1348 






1349 






1350 001012 


112637 


( -^ •» -^ ^ • 


1351 






1352 






1353 001016 


012746 


000433 


1354 001022 


104377 




1355 001024 


10377^ 




1356 






1357 






135S 






1359 






1360 






1361 






1362 






136J> 001026 


012702 


000030 


1364 001032 


012705 


000704' 


1365 001036 


010567 


000702' 


1366 001042 


005067 


000700' 


1367 






1368 






1369 






1370 






1371 001046 


010504 




1372 001050 


062705 


000010 


1373 001054 


010524 




1374 001066 


005024 




1375 001060 


005024 




1376 001062 


005024 




1377 001064 







INlTlfiLlZflTlON SUBROUTINE - CITB 

THIS SUBROUTINE INITIALIZES «LL SCIP PPPPMETERS 

FOR RESTART CRPRBILITY, IT THE CALLS 'TROUGH THE DEVICE 

TYPE MATRIX SMITCH ANY ISRS WHICH INCLUDE RESTART 

ROUTINES. 

Rl AND R3 MUST BE PRESERVED OVER THIS SUBROUTINE l»ll 



CITB: CLP C STRT 
. IF N2 CUTB 



;FLAG RESTART IN PROGRESS 



F TIMER Q'J£UE PRESENT. REINITIALIZE ALL ENTRIES 



17777b 



CITRA; 



CtTfl: 



SWBC 



LSlll 
- ( SP I 
»340 

al»C. STAT 
«34Q,(i)»i:. 



»':TLB+4,P5 
iP5) + 
<P5) + 
»4 P5 

P5-1tCTEB*4 
CITRA 
LSlll 

lSP^4- 

fSP) + .4)»': STflr 

SWB-5 
»CMKTn. -tSP ' 
377 



. IF Z 
. IF DF 
MFPS 
MTPS 
IFF 

nouB 
novB 

ENDC 
MOV 
CLP 
CLP 
ADD 
CMP 
BLO 
. IF DF 
MTPS 
, IFF 
MOVB 

ENDC 

IF N2 
MOV 
EMT 
BCS 

ENDC 
. IF : 
MOV 
CLR 
. CMKT 
. ENDC 
. ENDC 

MOV »CUTB.P2 
MOV SCTLB.P5 
MOV R5.CTSV 
CLR CTBS 
. IF NZ SW3C 
CLR CTIC 
CLP CTIKB 
. ENDC 
MOV R5,R4 
ADD «10.. R5 
MOV P5. (P4)+ 
(R4)4- 
^P4H 
iP4) + 

R2.ClTfl 



I SP ) 
,TRT 



.SAVE PS 
;.;LOCK OUT 

;SAVE PS 
w - AND LOCK 



INTERPUP'S 

OUT INTEPPUPTS 

N + 4 BYTES 



.;;GET ADDR OF TIMER CHA 
;;;FLAG ENTRY DEllTED 



, ,;P0INT TO NEXT ENTRY + 4 
w;HAVE UE DELETED THEM ALL"? 
; . ; NO 

;;;YES ALLOW INTERRUPTS 

; ;; YES. ALLOU IMTPRUPTS 



NOT PT-11 
DPB FOR CANCEL 
CPLL PSX-llD/M 
BLEW IT! ! ! 



MARK TIME 



;WB-5 
»C. CMKT. 
C. CUID 



RO 



PT-11 

MO^/E PNTP TO PAPnS 
CANCEL hLL timers 
CALL PT-11 



L 1ST INTO RO 



CLR 
CLR 
CLR 

SOB 



GET NUMBER OF ENTRIES 

AND START ADDRESS 

INITIALIZE VACANCY CHAIN ADDRESS 

AND ACTIVE CHAIN POINTER 

THEN MASTER TICK COUNTER 
AND INTERRUPT COUNTER 

GET ENTRY ADDRESS 

THEN NEXT LINK ADDRESS 

FIRST WORD IS POINTER TO NEXT PVfllL 

THEN CLEAR ALL WORDS OF ENTRY 



;LOOP UNTIL DONE 



L I NK 



.CP3:: SCIP ^iERSlON 3-22 



nfiCRO ^^0^ Ob-D£C-77 08: 28 PfiGE 



m 

2^-l 



373 

330 
3S\ 
3S2 
383 
12^ 
386 
386 
3S7 

:3S 

390 

:?\ 

392 
■rq? 

39H 
39S 
39b 
397 
39S 
399 
^00 
401 
^02 
403 

406 
406 

U07 

140S 

H09 

mo 
mi 
m2 

1413 

Ulb 

m7 

uiS 

m? 
"4:1 

422 
423 
424 
425 
426 
427 
428 
429 
4 30 
431 
4 32 
433 
434 



001Q70 006064 177770 



001074 
001100 
001104 
001110 
001114 
001120 
001124 
00112b 
001132 



001134 
001140 



00114b 
001 160 
001 1B4 



001166 
001162 
001164 
001170 
001172 
001176 
001202 
001204 
001206 



012705 
010567 
010567 
005067 
C05067 
005067 
005025 
02052:- 
101774 



012705 
012767 



00b025 
020527 
103774 



016704 
006204 
012702 
GG5012 
012700 
004767 
005212 
020412 
001373 



F PP 



CiTC: 



000552* 

1774H2 
177440 
177424 

I < I *♦ i... 

177420 
000742' 



CLERP 
IF N2 



CI TO; 



ENDC 



THfiTS ALL CLEfiR LAST LINK POINTER 



EVEL SCHEDULING PRESENT, CLEAR CLOCK 



GET COUNT OF PROGRAMS TC SCHEDULE 

GET BEGINNING ADDRESS 

SET COUNTERS BACK TO OPiriGlMAL ''ALUE 

AND INCREriENT TO NEXT 
;NT COUNTER 
;CONTINUE 



BUFFER 

GET BUFFER ADDRESS 

AND RESET INSERTION POINTER 

AND REMOVAL POINTER 

THEN CLEAR OVERFLOW POINTER 

AND ENTRY COUNTER 

AND LOST ENTRY COUNTER 

THEN CLEAR BUFFER 

IS THAT ALL 

NO, CONTINUE 



CLR 


-10(R4) 


. ENDC 


ORITY LEVEL SCH 


. IF 


N2 CUTNPS 


CLR 


CTIKA 


MOV 


•CUTNPS. R2 


MOjV 


ICTPA0,R6 


nov 


2(R6),dR6 


ADD 


mo R5 


DEC 


R2 ;DECRE 


BME 


CITC 


. ENDC 


Uie POINTERS AN 


C. USFY 


MOV 


«C. SBSY,R5 


MOV 


R5.C. SBPY 


MOV 


R5.C SFEY 


CLP 


C. SHI 


CLR 


C SBCY 


CLP 


C SLEY 


CLP 


(P£ i^ 


CMP 


P5.«C. SBEY 


BLO: 


I CITD 



001214' 
001 21 b' 



001210 



;CLEflP LINE TABLE SPACE AND LINE TABLE POINTERS 

MOV «C.STAB-P5 -GET LINE TABLE ADDPESS SPACE 

. IF NZ C, USPT 

MOV 8C. STAP.C. STAK ; AND SET PLL OF SPACE R\/AILABLE 



CITE: 



oo:2ib" 



CITI 



NOW RE 



. ENDC 

. IF Z C. USPT 

CLP C. STAK 

. ENDC 

CLP (R5)+ 

CMP P5.«C. SThP 

BLO CiTt 

. IF Z ^UB-2 

MOV C. STAX,P4 

BEQ CITI 

SUB nBUFHDP^P4 

BUFFER RETURN 
CLP C. STAX 
. ENDC 



, FORCE TABLE ADDRESS ZERO 

AND CLEAR ALL OF SPACE 
IS THOT RLL 
NO. CONTINUE 

;IS THERE A BIG BUFFER OUTSTANDING 

;N0< THATS ALL 

;M0VE BUFFER BACK TO ACTUAL BEGINNING 

;THE SAVED EXACT COUNT 

,YES< RETURN THE BUFFER 

;THEM FORCE ADDPES ZEPO 



000000" 

001212' 

000004 
000336' 



NIT 
MOV 
ASR 
MOV 
CLR 
MOV 
JSR 
INC 
CMP 
BNE 



IT 



SRS 



ALIZE ANY ISRS WHICH NEED 
C. SAR,R4 ;GET NUMBER OF 
R4 ;AS REAL LIVE NUMBER 
«C. STRT,R2 

WITH ISR n2 

.AND CALL RESTART CODE 

;USING DEVICE-TYPE MRTP 
NEXT ISP 

; IS THAT ALL 

;N0, CONTINUE ISP CALLS 



iR2 ; START 
«4,R0 
PC.C. SAPP 
iR2 ;G0 TO 
P4.i)R2 
CITG 



X SWITCH 



I 



: ,■ p 7 - ■> 



IP "ERSION 3-22 



MPCRO nuOw 06-DEC-77 08: 28 



J 
PPGE 



2u. 



IH37 

mzs 

1^39 
14^3 

m49 

145: 
ms: 
msu 

14S6 

1457 
145S 
145? 
l4bD 
14bl 
1462 
1463 



001210 016/67 OOOOOOG 001204' 



ooi:i6 
ooi:it 
ooi:ib 
noi:,ib 
ooi:ib 

OGi:!b 

Gni:ib 

001216 
001216 



00020:- 



OGOOOl 



. IF 2 SUB-4 

MOV STKTCB.TfiSKfiO 

ENOC 

IF 2 SUB-3 
nOU . CRTSK,TfiSKRD 

ENOC 

IF 2 SWB-5 

GLOBL RnON, CNTXT 
nOU ilRriON,R4 
MOV CNTXT(R4),TPSKfiD 

ENOC 
.THOTS PLL OF 1 N I T IflL I 2flT I ON 



SAVE OUR TCB flDDPESS 



GET RESIDENT MONITOR TRBLE 

.SAVE POINTER TO IMPURE PIREfl 



.THIS IS fi FUNNY RDDPESS USED TO FAKE EXITS FOP PROGRAM 
;COMPflTlBlLlTY FOR RETURNS TO C. SflRR. CTRET, AND ALL 
; COMMON ENTRANCE Eyii ROUTINES 
C SARK: 
CTRET: 



SECA: 

SECB 

SECD: 

SECE 
^•^CF 

:ECb. 
s:cH: 



PTS ?C 

. ENDC 
. END 



SCP322 
SYMBOL 



PSTEX = 

QSSCPS= 

fiS%TPP= 



PRES= 
TOO = 
TOl = 
T02 = 
T03 = 
T04 = 

TOS - 
TOb = 
TO? = 
T08 = 
TO? = 
TIO = 
TU = 
T12 = 
T13 = 
Tm = 
T16 = 
CRFTBL= 
CBFLEN= 
CBFTBL 
CBSIBL= 
CBSIBT 
CCC 

CCFTBL= 
CFKLU 
CITR 



C 
C 

c 
c 
c 



ITRR 
ITB 

ITD 
TE 

TG 
CKWU 
CLRLL 
CLC 
CLN 
CLV 
CLVC 
CLZ 
CLZN 



CnFTBL= 

cnKin = 

CPFLEN= 
CPFTBL 
CP. INI = 
KLL = 

nDri= 
noD= 
osu= 

RST = 



ICIP VERS 
TRBLE 

0006b3 

000000 

000000 

000000 

000000 

000000 

000001 

000001 

000002 

OOOOOi* 

000010 

000020 

0000140 

000100 

000200 

000^00 

001000 

002000 

00i*G00 

010000 

020000 

01*0000 

100000 

000000 

000012 

0000H6P 

0000Gb 

0000b2R 

0002B7 

000000 

0001 3HRG 

00l0^bP 

00077^R 
000752R 
OOII214R 

001 mbP 

00117bP 
000000 

00025:' 

0002H1 
000260 
0002^42 
0002^3 
00021*4 
00025H 
000000 
000433 

oooom 

0G0G12R 



ON 3-22 



riRCRO ntlOH 06-DEC-77 08: 28 



K 
PPGE 



CP 
CP 
CP 
CP 

CP 






CSPSND 
CTBS 



ittttt 
ittttt 
' ♦ ♦♦ ^ ♦ 
ittttt 
:ttttt 

000072R 
000700R 



002 



002 



002 
003 
003 
003 
003 
003 
003 



00: 



CTOEL 

CTOELl 

CT0EL2 

CTORET 

CTEB 

CTEflT 

CTFTBL: 

CTGUflC 

CTGVEX 

CTIR 

CTIB 

CTiriE 

CYLB 

CTOCK 

CTPLR 

CTPUfiC 

CTQUE 

CTRET 

CTPETX 

CTPETZ 

CTSIBT: 

CTSV 

CTTfiP 

CUTB : 

CUTNPS: 

CS5CKP: 

C5S0RE: 

CSSPSH: 



002 
002 



C. 
C 

c. 
c. 
c 
c 

c. 

r 

c. 
c. 
c 

c. 
c. 

c. 
c. 

r 
\. . 

c. 

c 

c. 

c. 

c 

c. 

c. 

c. 

c. 

c. 

c. 

c. 



BPRB: 

BINT: 

BLTL: 

BnSE: 

BODE: 

BPD : 

BPTC: 

MKflS 

riKTM 

MKUN 

SRR 

SRRJ 

SPRL: 

SRRP 

SRRR 

'^RRT 

SRT 

SRTL: 

SRTN 

SRTP 

SBCY 

SBEY 

SBGY 

SBPY 

SBSY 

SECR 

SECB 

SECD 

SECE 



000B2bRG 

000660R 

000570R 

000602R 

001204R 

0G036GRG 

OGGOOG 

0GGbl6R 

00Gb42R 

OOGSmR 

GGG610R 

GGG422RG 

00G7GHR 

0004G2R 

G00HG2RG 

OOObBGR 

0GG37bR 

G0121bRG 

000474R 

00051 2R 

000000 

000702R 

OOOUbbR 

000030 

000000 

000000 

004000 

1775b4 

tttxxx 

XtX%%% 

xxxxxx 
xxxxxx 
xxxxxx 
xxxxxx 
xxxxxx 

000532R 

0GG522R 

G0052bR 

OOGGOOR 

0GG40bR 

OGGOIO 

00G33bRG 

0G1216RG 

0GG35GR 

G0GG3GR 

00GG04 

0GG402R 

0GG3bbRG 

0GGB42R 

000742R 

000G72R 

OOGBMbR 

000552R 

00121bRG 

0012lbPG 

00121bPG 

00121bRG 



G02 
GG2 
0G2 
GG2 
G02 
003 

GG2 
GG2 
GG2 
002 
002 
002 
003 
003 
002 
003 
003 
003 
003 

002 
003 



003 
003 
003 
002 
002 

002 
003 
002 
002 

002 
002 
003 
003 
003 
003 
003 
003 
OOJ 
003 
003 



SECF 
S£CG 
SECH 
SFCY 
SFEY 
SFGY 
SFJT 
SFLY 
SFQY 
SFVY 
SFY 
SGRY 
SGBY 
SGET 
SGEY 
SGMY 
SHI 
SLEY 
SLTL 
SMRXs 
SPS 
SPTR 
SPUT 
SREG 
SPES 
STRB 
STRE 
STRK 
STRP 
STRR 
STflT = 
STIR 
STIB 
STIC 
STID 
STIF 
3TIG 
STIH 
STI I 
STIL 
STIN 
STRT 
TLTL = 
USFY = 
USNL = 
USP = 
USRT= 
DPPRES= 
DSSBUG= 
D55H11= 
0%SIRG= 
D5SISK= 
D55L11= 
D55nil= 
D5SSHF= 
D5%YNC= 
D5SYNM= 



00t2tbRG 

00121bRG 

00t2tbRG 

0001 34R 

000S60R 

000264R 

00003bR 

0001 32R 

G00120R 

00G304R 

G00t72RG 

GG031>4R 

G00322R 

GOOOGORG 

G002bOR 

G0007bR 

000540R 

000544P 

00004 2R 

070000 

000072RG 

OOOlbbR 

000142RG 

000074RG 

0001 IbRG 

001214RG 

00120bR 

001210R 

00221bR 

00121bRG 

17777b 

000212R 

000224P 

00023bR 

000332R 

00033bR 

000342R 

00C330R 

00033bR 

000334R 

00017bRG 

001212R 

000000 

000020 

000001 

000300 

000400 

000001 

177514 

000002 

000000 

000000 

000001 

000001 

000000 

000000 

000000 



24 



G03 EnTV£C» 
G03 EffOVCs 
G03 eSSNSI' 
003 EffPCR* 
G03 EftXFRi 
G02 FflKELUs 
GG2 FffLVLs 
GG3 GSITPPs 
003 GSSTTK3 
GG2 HPLT 3 
002 ISRnPX:^ 
002 ISSRRR: 

002 IftRDNs 

003 JUNK 

002 KiSCNTs 

003 KS5CSR= 
003 KSSLDCs 
003 K4STPS= 
002 LDSOB = 

LOIDK ' 

002 LD5DS = 

003 L050T = 
003 LD5LP = 
002 LDiMM s 
002 LDSPP = 
002 LD4PR = 
002 L$5RSG= 
002 L$5DRV= 
0C2 L5$Pn = 

002 L55nR = 
n$5CRB= 

003 riS5CRX= 
003 n$5EXT= 
003 n$5FCS= 
003 ri55riGE = 

003 ri55riup= 

003 P1550VR = 
003 NOP 
003 N55LDV- 
003 N55n0l'= 
003 OFFSETr 
002 PLF = 
PSSD70= 

p%S6nx= 

PSSLRS= 
PSSP11= 
P%5P45= 
PS5RFL= 
P5SRTY= 
P5SR11= 
P55SRF= 
QS%OPT= 
RSXll = 
R5SDER= 
P%%EXV= 
RSSJPO^ 
RS5JP1= 



GGGGOO 

OOGGOO 

GGGGOO 

OGGGGO 

OOGGOO 

000001 

000001 

OOGGOO 

OOGGOO 

OOGGOO 

000003 

GGGGOO 

OOGGOO 

CGG534R 

172542 

172540 

000024 

0GG7b4 

OOGGOO 

000000 

OOGGOO 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000001 

000000 

000124 

ooonoo 

GOOOOO 
GOOOOO 
GOOOOO 
GGGGOO 
GOOOOO 
G0G240 
000001 
000021 
GOOOOO 
GOOOOO 
OOGGOO 
GOOOOO 
GOOGGO 
GGOGOl 
GOOOGG 
GOOOOO 
GOOOOO 
000001 
GOOOOO 
000017 

000001 
GOOOOO 
GOOOOO 
000000 
GOOOOl 



003 



RfSJSl> 

RtSKUCs 
RffKlls 
RffNDC' 
RfSNDH> 
RffNDLs 
RSSSNDs 
RMliris 

sec s 

SEC s 
SEN = 
SETRLLs 
SETNZ s 
SETNZC= 
SEV s 
SEZ = 
SIBEF s 
SLOCK s 
SUB = 
SWBC = 
S45UPC= 
SiSUPR: 
SSSURG: 
S45YSZ= 
TRPMRXs 
TRSKRD 
TinEDQs 
TLOCK = 
TS. BLK= 
TS. CKP = 
TS. CKR = 
TS. EXE = 
MSG= 
NRP = 
OUT= 
RDN= 
RUN= 
T55RCR= 
TS5BTU= 
TS5BUF= 
T5SCCR= 
TSSCCO= 
T%SCTR= 
TSSC11= 
TSSGriC = 
TS5GTS= 
T%SJlb= 
TSSKriG= 
T%SLWC= 
TS%riRN= 
TSSRNE= 
TSSRPR^ 
TS%RST= 
TSSPUB= 
T%%SYN= 
TS%TPU= 



TS. 
TS. 
TS. 
TS. 

TS. 



GGOGOl 

GGGGOO 

000001 

000003 

00022b 

000001 

GGGGOO 

GOOOOO 

000277 

0GG2bl 

000270 

000277 

000274 

000275 

0002b2 

000264 

000040 

OOGGOO 

000004 

OOGGOO 

0GGG3b 

000005 

OOGGOO 

024000 

000001 

001204RG 

GGOGOl 

000001 

170700 

000200 

000100 

100000 

020000 

010000 

000400 

040000 

004000 

GOOOOO 

000000 

OOGGOO 

000000 

000000 

000000 

000001 

GOOOOO 

GOOOOO 

000001 

GOOOOO 

GOOOOO 

006307 

GOOOOO 

GOOOOO 

GOOOOO 

GOOOOO 

GOOOOO 

000000 

OOOGOO 



002 



S':P3£2 SCIP version 3-22 
SVfiBOL TR8LE 



nPCRO nnO'* Ob-DEC-77 08; 28 



L 
PAGE 



2^■ 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



fiClL 
fiSTL 
OTT 

lPlB 

DPPt 

EFLG 

IOC 

LBN 

LDU 

INK 

Mxs: 

NAM 



iSR 
EPf^'OPS 



0000S2 

OOOGlb 

OOOOS14 

OOOOGU 

0000^0 

000022 ( 

000003 

OOOOHl 

0000'4'4 

ooocoo 
ooooso 

000006 
000070 

oocooo 
oo::ib 
001220 

OE TEC TED 



000 
001 

co: 

003 



T 
T 

T. 
T 
T 
T 
T 
T 
T 
T 
T, 
T2 



OFF 
PCB 

FRI 
RCVL 
PRFL 
SRCT 
STfiT 
5T2 
ST3 
TCBL 
UCB 
PBO: 



OUGCt)0 
OOOGHb 
000002 
000012 
00006^4 
000063 
00GQ32 
00003H 
000036 
000030 
000026 
000130 



12 

T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 



fiSTs 
BFXs 

C«F = 
CHKs 
CKDs 
DSTs 
FXDs 
HLTs 
SPNr 

STPr 

TiO= 

WFPr 



100000 
GOHOOO 
OOGHOO 
02000G 
OtOOOG 
OHOOGG 
GG2GGG 
GGG2GG 
GGGGGU 

G0GG20 
OOIOOO 

OGOOOl 



T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 



flCPs 
CflL* 
CLI» 
f1CR« 
NET* 
NSD» 
PflDs 
PRi/s 
REMr 
ROUS 
PST^ 
SlUs 



lOOGGO 
OOGIOO 
001000 

oo^GCO 

000020 
000200 

o^oooo 

010000 
020000 
OOOGHO 
OOOUGO 
002000 



UIBEF s 
L'iBSRHs 
UfSflHIs 
USShLO- 
USSnRNs 
VHCTRs 
X s 
XSiOBTs 
SPQSCHs 
$SIGFL= 
$TKTCB= 



000001 
000000 
OOOOHO 
1 20000 
17032H 
OOOHOO 
OOOOHO 
000000 
titttt 
lt«»tt 
lllltl 



G 
G 
G 



iMPTUfiL nEnORV USED; 3l♦^S UOPC'S 
DiNOniC nEMOPT ZStt UOPDS i \^ 
ELQPSED TIME 00 01; 03 

:sb 0:0 scip::. :Sb 030 scip.crf/ 



' m oPGES) 

PPGES) 



SP = PS.vnC-E'EMi:. ML.FS:<Un.CPDEF,SClP 



















n 14 


SCiP 




CREfiTEO Br 


HRCRO ON b 


-OEC-77 fiT 


08 29 


PPlGE 1 


SYMBOL 


CROSS REFERENCE 










CREF 


SiMBOL 


M 


fiLUE 




REFERENCES 










flSTEv 


z 


00QSfe3 




19-953 


•23-1282 








flSSrHf 


- 


OCOOOO 




• 1-35 










^%^CPS 


: 


000000 




• 1-29 


• 1-47 








«%%NS 1 


z 


000000 




• 1-48 










O^^PP 1 


z 


000000 




• 1-57 










PS-iTPP 


r 


000000 




• 1-49 


1-66 








BiPPES 


: 


OOOOOl 




• 2-7 


8-391 


8- 


•39H 


8-411 


8! TOO 


r 


000001 




•5-20b 










B'TOl 


z 


000002 




•6-207 










B'TO: 


z 


00000^* 




•6-208 










BIT03 


z 


OOOOIO 




•6-209 










BtTQU 


z 


000020 




•6-210 










BiTQc 


z 


COOOHO 




•6-211 










BlTOt. 


z 


OOOIOO 




•6-212 










B 1 TO? 


z 


000200 




•6-213 










BITOS 


z 


OOOHOO 




•6-214 










BIT09 


z 


001000 




•6-215 










fclTlO 


z 


002000 




•6--lb 










BITU 


: 


00^000 




•5-217 










BiTi: 


z 


"^10000 




•6-21S 










Binz 


z 


020000 




•6-21? 










Bum 


= 


OhOOCO 




•6-220 










BlTlS 


r 


100000 




86-221 










COFTBL 


r 


000000 




7-297 


•7-322 








CBFLEN 


z 


000012 




S-397 


•S-403 








CBFTBL 




OOOOHtD 


P 


S-353 


•S-397 


s- 


403 


15-734 


CBSIBL 


z 


00000b 




S-405 


•8-409 








CBSIBT 




000062 


P 


8-367 


•£-406 


s- 


409 


12-509 


CCC 


: 


0002B7 




• 3-10 










CCFTBL 


: 


000000 




7-304 


•^-324 








CFKLU 




0001 3U 


PG 


12-496 


•12-4?S 








CiTR 




00l0^6 


P 


«2u-13"l 


24-1377 








CITRR 




00077U 


P 


•24-1342 


24-134b 








CUB 




C007b2 


R 


16-7bS 


16-776 


• 24 


-132S 




CUD 




001124 


P 


•24-1400 


24-1402 








CUE 




001114b 


P 


•24-141: 


24-1416 








CUG 




001176 


R 


•24-1431 


24-1434 








CKWU 


: 


000000 




• 2-S 










CLOLL 


= 


00025^ 




• 6-201 


14-66S 


14 


-674 


16-''b^ 1 


CLC 


- 


00024 1 




• 3-6 


6-201 


C,- 


203 




CLN 


: 


00026Q 




• 3-9 


6-201 


6- 


202 




CLV 


z 


000242 




ftiZ-? 


6-201 


5- 


203 




CLUC 


z 


000243 




•6-203 


15-737 








CL2 


z 


000244 




^Z-2 


5-201 


5- 


202 




CLl'M 


- 


000264 




•6-202 


19-1021 


1? 


'-1031 


21-1171 


CMFTBL 


z 


000000 




7-300 


•7-323 








CHKin 


z 


000433 




•23-12S3 


24-1363 








CPFLEN 


z 


000014 




7-332 


•7-339 








CPFTBL 




000012 


P 


7-308 


•7-332 




339 


16-719 


CP INI 


z 


itttit 


G 


7-331 


7-330 








CF KLL 


z 


ttitti 


G 


7-331 


1 1 








CP noM 


z 


tttttt 


ij 


7-331 











Ib-SlS 



16-S25 



















N 14 






SCiP 




OPEPITED Bf 


MfiCRO ON 6 


-DEC-77 fiT 


08 29 


PFiGE 


2 






svnBOL 


lPOSS REFERENCE 








CREF 








SYMBOL 


wfii UE 




REFERENCES 














cp noD 


5 


ilM«i 


G 


7-331 


7-335 












OP osu 


• 


tttttt 


G 


7-331 


7-333 












OP PiT 


m 


lt«M« 


G 


7-331 


7-337 












O'lPSNG 




000072 


R 


•10-431 














OTBS 




000700 


R 


1123-1239 


124-1366 












OTDEL 




00062b 


RG 


17-850 


21-M02 


821-1103 










OTDElI 




Q005S0 


R 


«2*-1138 


2! 153 












OTDEL 2 




000S70 


R 


21-1139 


821 .151 












OTDPET 




000602 


R 


»21-1155 














OTEB 




001204 


R 


21-1152 


823-1243 


24-1345 










aEMT 




000350 


RG 


17-830 


817-838 












'■-TFTBL 


- 


000000 




8-350 


88-387 












'".TGliRO 




OOOblb 


P 


19-97S 


822-1189 












OTG»)EX 




0006142 


R 


22-1197 


822-1199 












•: T 1 fl 




OOCSlit 


P 


19-980 


819-1030 












OTlB 




OOOSIO 


P 


19-1015 


819-1023 












OTIME 




000422 


RG 


17-854 


19-976 


8P-9^7 










OTLB 




00070H 


R 


21-1137 


823-1241 


24-1341 


24- 


■13b4 






OTOOK 




000402 


P 


»1Q-S72 


23-1299 












OTPLP 




000402 


PG 


1S-S60 


818-862 












OTPUPO 




000650 


P 


19-905 


19-962 


19-1028 


822- 


■1210 






OTQUE 




000376 


R 


17-847 


8r-S53 












OTRET 




001216 


PG 


6-226 


824-1453 












OTPETX 




000474 


P 


19-91:' 


819-950 


19-963 










OTPETZ 




000S12 


R 


19-S94 


819-961 












CTSIBT 


= 


000000 




S-3b4 


8s-:ss 












CTSU 




000702 


P 


22-M9b 


*22-n9S 


22-1217 


*22- 


'121S 822-1240 


*24- 


13o5 


CTTRP 




000466 


P 


19-907 


8^9-920 












OUTB 


r 


000030 




82-14 


l7-£29 


19-S72 


19- 


•941 l?-965 


23- 


1242 










23-1242 


23-1242 


23-1242 


r-. -^ 


■1242 24-1329 


24- 


1:63 


CUTNPS 


= 


000000 




82-15 


24-i:S2 












L%%CKP 


z 


000000 




81-32 


l-b5 


P\-9b 










C%%OPE 


z 


004000 




81-96 














CSSRSH 


z 


177564 




81-S7 














C. bRPB 


z 


»*t*U 


G 


S-395 


S-401 












0. BINT 


= 


itttti 


ti 


S-395 


8-402 












BlTL 


= 


♦*♦♦*♦ 


G 


S-383 


S-395 












0. snsE 


:: 


**i*ll 


G 


S-396 


S-407 












BODE 


- 


iHiiti 


G 


S-396 


8-40S 












BPD 


z 


ittnt 


G 


S-395 


8-39S 












BPTO 


z 


ittiti 


G 


8-395 


S-400 












MKRS 




000532 


P 


*19-999 


823-12S9 












0. MKTM 




000522 


R 


19-1000 


823-12S5 












C. MKUN 




000526 


P 


*lQ-993 


823-12S: 












C. SRP 




000000 


R 


87-296 


7-311 


24-1426 










C. SRRJ 




000406 


R 


15-726 


815-739 












0. SRRL 


z 


000010 




7-296 


87-311 












C. SOPP 




000336 


PG 


b-224 


14-69S 


sis-i-r 


Ib- 


£15 24-1431 






C. SRPR 




001216 


PG 


6-224 


824-1452 












C. SflRT 




000350 


R 


815-^20 


i«^-r^c, 












C. SRT 




000030 


P 


8S-349 


S-:5b 












0. SRTL 


z 


000004 




S-349 


8S-35b 













1242 23-1242 23-1242 



M|i|!aj|j,ijli|Jijj|ii|iiW5! 



±tt3.i:yiJ;£i:tfeffiicl 



mmmmmmmmmmmmmmmmmmmmmm^s^msmMmBm 















6 


15 










SCIP 


CPERTED BY 


riRCRO ON 6 


-DEC-77 RT 


08 29 


PRGE 3 












SYMBOL 


CROSS REFERENCE 








CREF 












SYMBOL 


l/RLUE 




REFERENCES 


















C SflTN 


0G0^G2 


R 


M5-737 


















C SPTP 


000366 


RG 


6-224 


14-693 


815-732 


16-811 












C SBCY 


Q00S42 


R 


13-539 


*13-548 


14-633 


»14-639 


823-1306 


«24-1398 








C. SBEY 


U007H2 


R 


13-545 


14-668 


823-1318 


24-1401 












C SBGY 


000072 


R 


814-658 


14-665 
















C SBPr 


G005H6 


P 


13-538 


*13-547 


*1 3-590 


823-1311 


»24-1395 










C SBSY 


0005B2 


P 


13-590 


14-670 


23-1311 


23-1312 


823-1315 


24-1394 








C SECfi 


001216 


RG 


6-227 


»24-1454 
















C SECB 


001216 


RG 


6-227 


»24-1455 
















•: SECD 


0012tu 


RG 


6-227 


824-1456 
















C SECE 


001216 


RG 


6-227 


824-1457 
















''. SECF 


001216 


PG 


6-227 


824-1458 
















■: SECG 


001216 


RG 


6-227 


824-1459 
















■: SE'.H 


001216 


PG 


b-227 


824-1460 
















C SFCY 


0C013H 


P 


14-634 


814-674 
















'. SFEY 


OOOBSO 


P 


14-635 


il4-652 


823-1312 


*24-1396 












'. SFGY 


0C32SH 


P 


«13-54S 


13-591 
















C SFJT 


000036 


R 


»S-364 


















':. SFLY 


000132 


P 


14-669 


814-671 
















C. SFQY 


000120 


P 


14-651 


814-668 
















C SFVY 


fJ0030H 


P 


13-546 


813-590 
















C, SFY 


000172 


RG 


6-224 


813-524 


19-=>15 














C. SGRY 


000311* 


P 


13-526 


813-592 
















C. SGBY 


000322 


R 


13-540 


813-594 
















C SGET 


000000 


PG 


14-631 


814-633 
















C SGEY 


C '026C 


P 


;i3-549 


13-596 
















C. SGMY 


000076 


P 


14-63" 


814-662 
















C SHI 


OOOSHO 


P 


13-525 


113-594 


14-636 


*14-b3S 


*14-bb2 


*14-bb3 


823-1305 


*24-1397 




C SLEY 


000544 


R 


I13-592 


*13-595 


823-1307 


*24-l39^ 












C SLTL 


000042 


R 


n£-ZSO 


lb-807 
















C SMfiy 


= 070J00 




ti^-? 


















C. SPS 


00U072 


RG 


6-224 


810-43C 
















C. SPTR 


000166 


R 


14-689 


814-697 
















C. SPUT 


000142 


RG 


14-6S4 


8i4-6S5 
















C. SREG 


000074 


PG 


6-225 


811-443 


12-49S 


15-718 


15-733 


1^-SS2 


19-977 


21-1103 




C. SRES 


000116 


PG 


6-225 


811-459 


12-511 


15-744 


19-950 


19-1020 


19-1030 


21-1170 




C. STAB 


001214 


RG 


b /-^b 


12-503 


14-bS7 


*16-S01 


♦lb-S24 


19-920 


823-1263 


24-1406 




C. STfiE 


001206 


R 


;23-1260 


















C STPIK 


001210 


P 


16-7-7 


*lb-Sn9 


823-1261 


*24-140S 












C. STOP 


00221b 


P 


23-1260 


823-1274 


24-1414 














C. STRR 


001216 


RG 


23-1271 


823-1272 


24-140S 














C STRT 


= 177776 




i;5-lS6 


13-535 


13-536 


13-552 


14-644 


l'^-b45 


14-656 


15-742 


21-1114 








21-ins 


21-116S 


22-1193 


22-1194 


22-1202 


22-1214 


22-1215 


22-1222 


24-1338 








24-1339 


24-1350 
















C. STIR 


000212 


p 


16-767 


816-773 
















C. STIB 


000224 


R 


lb-774 


816-^76 
















C. STIC 


000236 


R 


16-77S 


nlb-SGl 
















C. STID 


000332 


R 


S16-S20 


















C. STIF 


000336 


P 


16-799 


816-S23 
















C. STIG 


000342 


R 


16-S21 


81b-S25 
















C. STIH 


000330 


P 


nlb-S19 


















C. STI 1 


000336 


R 


16-S12 


16-Slb 


816-S24 















iCiP CPEOTED BY 

svneoL CROSS reference 

S^nBOL 'PLUE 

C STlL 00033H R 

•: STiN 00C176 RG 

C STPT 001212 R 

C. TLTL = 000000 

C. USFY = 000020 



MfiCRO ON b-OEC-77 PT 08 29 



C USNL 


r 


OOOOOl 


C. U3P 


s 


000300 


C USRT 


z 


OOOHOO 


DPfPES 


z 


OOOOOl 


D*%BUG 


z 


1776m 


r^SHU 


z 


000002 


D^Si'^G 


z 


000000 


C-iSlSK 


z 


000000 


DS*L 1 1 


z 


OOOOOl 


Dssnii 


z 


OOOOOl 


D%^SHF 


z 


000000 


C"i%vr<': 


z 


000000 


DSSYNM 


z 


000000 


EMTVEC 


z 


ocoooo 


ESSDVC 


z 


000000 


E5SNSI 


z 


oocooo 


ESiPER 


z 


000000 


ESSXPR 


z 


000000 


FPKELU 


z 


OOOOOl 


FSILPP 


z 


ttutt 


FSSLVL 


z 


OOOOCl 


G5STPP 


z 


000000 


CSSTTK 


~ 


000000 


HRLT 


z 


OOCJOO 


iSRflPX 


z 


000003 


ISSRPR 


z 


000000 


I5SRDN 


z 


000000 


JUNK 




000534 


K%%CNT 


z 


172542 


KS^CSR 


z 


172540 


K§%LOC 


z 


000024 


► 5STFS 


z 


000764 


LD%DB 


z 


OOCOOO 


LDSDK 


- 


OOOOGO 


LD%:s 


z 


000000 


LDSDT 


= 


000000 


LD5LP 


— 


000000 


LD^nn 


= 


000000 


LD%FP 


r 


ocoooo 


LD^PR 


= 


oooooc 


LSIll 


r 


tt*ttt 



L5S0SG 
LS'iDR" 
L^SPl 1 
LSSSIl 



= 300000 

= 000000 

= OOOOOl 

= ttutt 



REFERENCES 
1116-822 

16-762 

16-773 

8-380 
>2-ll 

24-1393 
«2-16 

6-236 
• 2-17 
»2-6 



PPGE 4 
CREF 



C 16 



-8S 

-12b 

-50 

-33 

-125 

-127 

-39 

-34 

-3C 

:-lO 

-90 

-91 

-5S 

-23 

-373 

-31 

-54 

-55 

-4 

-19 

-bl 

-Zh 

9-990 

-102 

-lOi 

-104 

-103 

-106 

-109 

-112 

-114 

-116 

-119 

-121 

- 1 -"-> 

:-53i 

2-1210 

-62 

-51 

-lis 
-:ii 



•16-763 
«16-817 
«8-389 
13-524 

23-1264 

23-1266 
7-327 



•23-1262 

13-530 
23-1264 

23-1272 
7-320 



I2H-1328 
t:-539 



23-1272 
7-341 



24-1428 
13-569 

^4-1407 



13-589 



2H-imy 



23-1301 



23-1316 



2J-13U 



6-243 
1-203 



i:-47-' 






12-450 






1?-''91 



n:3-\299 



i:-54? 

::-i:i9 



14-640 

24-1324 



14-b5: 
24-1347 



15- 



'39 



21-1110 21-1165 



22-1189 



22-1199 




















16 










V.\? 




CREfilED BY 


nfiCRO ON 


-DEC-77 fiT 


08 29 


PPGE S 












SYMBOL 


CROSS REFERENCE 










CREF 












SVnBOL 


VALUE 


REFERENCES 




















L%snp 


z 


000000 


•1-117 




















MS%CPB 


z 


00012H 


•1-135 




















MSSCP* 


z 


000000 


•1-131 




















M%%EXT 


* 


000000 


• 1-99 




















msFcs 


r 


000000 


• 1-30 




















MSSnGE 


s 


000000 


• 1-37 




















Mssnup 


: 


000000 


• 1-43 




















MSSOVP 


« 


000000 


•1-130 




















r^op 


m 


0002^0 


• 3-5 


•5-197 


















NSsLDU 


Z 


OOOOOl 


•1-129 




















M'^ino*^ 


z 


000021 


• 1-60 




















nrrs^T 


z 


000000 


•6-269 




















PLF 


3 


000000 


• 2-26 




















p't%D70 


r 


000000 


•1-100 


•1-105 


















F^SGMv 


z 


000000 


• 1-42 




















f^'SStPS 


r 


OGOOOO 


• 1-40 




















P t%P \ \ 


z 


OOOOOl 


•1-123 




















F-tSPHS 


- 


000000 


• 1-97 




















PS%RFL 


z 


000000 


• 1-53 




















PSSRTY 


z 


ooooco 


• 1-93 




















PSSRll 


z 


OOOOOl 


•1-124 




















PSSSRF 


z 


000000 


• 1-41 




















QSIOPT 


z 


C00017 


• 1-59 




















PSTS 


z 


tttttt 


ll-4^: 


11-489 


1 •'» 

• 4« 


-506 














RSXll 


z 


OOOOOl 




7-2SS 


13 


-oOO 


i5-702 


15 "48 


19-972 


19-1034 


22-1180 




R%%DER 


z 


000000 


• 1-Sb 




















RMEIS 


z 


«»**♦♦ 


1-35S 




















RMEXV 


z 


OOOGOO 


• l-''9 




















RWJPO 


z 


000000 


•1-107 




















RS5JP1 


z 


OOOOOl 


•1-lOS 




















RS$JSl 


z 


OOOOOl 


•1-113 




















RMKWC 


: 


000000 


•1-110 




















R%4K11 


r 


OOOOOl 


•1-111 




















RS4NDC 


= 


000003 


• 1-SO 




















RSSNOH 


: 


000226 


• 1-31 




















RSSNDl. 


z 


OOOOOl 


• 1-S2 




















PSSSND 


z 


000000 


• 1-56 


• 1-94 


















PSSMM 


z 


000000 


•1-136 




















sec 


= 


000277 


• 3-15 




















SEC 


- 


000261 


• 3-11 


5-198 


5- 


199 














SEN 


z 


000270 


• 3-14 


5-19S 


5- 


199 


5-200 












SETRLL 


r 


000277 


•5-198 




















SETNZ 


— 


00027^ 


•5-200 


15-73S 


















SETN2C 


r 


000276 


•5-199 




















SEV 


z 


000262 


• 3-12 


5-198 


















SEZ 


z 


00026^ 


• 3-13 


5-198 


5- 


199 


5-200 












SIBEF 


z 


oooo^o 


6-264 




















SLOCK 


z 


000000 


• 2-12 


21-1105 


21- 


-1109 


21-1156 


21-1164 










SUB 


z 


000004 


• 2-5 


6-230 


6-^ 


:52 


6-252 


6-252 


b-253 


6-257 


6-268 


6-271 








10-422 


10-431 


11- 


-472 


13-554 


13-558 


13-563 


15-751 


16-763 


16-"79 








16-798 


19-S6S 


19- 


-952 


19-957 


|9_qq2 


19-99S 


19-1003 


19-1017 


19-1024 








jL j" 1 aU M 1 


23-1246 


23- 


-1251 


23-127S 


23-1292 


24-n5^2 


24-1357 


24-1416 


24-1436 



sc 



p 

SYMBOL 

SYMBOL 

iWBC 



CPERTEO BY 
CROSS PEFERENCE 
WPLUE 

z OQOOQO 



S^SWPC 


r 


000G3b 


SSSWPR 


: 


000005 


SSSWPG 


- 


000000 


S%%YOF 


s 


tt«t«« 


S%%fSZ 


: 


uZ^OOO 


TOPMRy 


z 


OOOOOl 


TRSKRD 




0012014 


TIMEDQ 


z 


OOOOOl 


TLO'.> 


s 


OOOOOl 


T%%flCP 


r 


000000 


TSSBTU 


: 


000000 


TiSBUr 


z 


GOOOOO 


TiSCCfi 


2 


000000 


T^SCCO 


z 


000000 


T%%CTP 


Z 


GOOOOO 


T%%Ctt 


z 


OOOOOl 


T%%GMC 


z 


GOOOOO 


T%1GTS 


z 


GOOOOO 


T%%J16 


z 


OOOOOl 


T%%KMG 


z 


GOOOOO 


TtiLWC 


z 


GOOOOO 


T%%MRN 


z 


006307 


TMRNE 


z 


OOO'^DO 


T$%RPR 


z 


00 jGO 


TMRST 


z 


000000 


TMRUB 


z 


000000 


TS5SYN 


z 


000000 


TS%TRU 


z 


000000 


T%%VBF 


z 


GOOOOO 


T. EFLG 




000022 


UIBEF 


z 


OOOOOl 


UIBSPH 


z 


GOOOOO 


U%SMHI 


r 


0000^0 


U5%ML0 


z 


120000 


UiSMPN 


z 


17032U 


H*.%CTP 


z 


000400 


V 


z 


000040 



X"i%DBT 
SPUSCH 
SSIGFL 
%TKTCB 



= 000000 

= tiittt 

- tttttt 

- titttt 



PG 



Q 



MRCRO ON 6-0EC-77 AT 08 29 



REFERENCES 
24-1439 

•6-252 
19-981 
24-1333 

11-83 

• 1-84 
111-39 

l-l 
»l-98 
»2-l8 

13-555 

17-842 
112-13 

• 1-63 

• 1-45 

• 1-65 

• 1-66 

• 1-67 

• 1-6C 
•1-116 

• 1-6? 

• 1-70 
•1-120 

• 1-5: 

• 1-71 

«i-i:s 

• 1-46 

• 1-^: 

• 1-44 

• 1-75 
»t-76 

• 1-77 

• 1-78 
6-25S 
6-261 

• 2-20 



• 1 

• 1 

• 1 

• 1 



133 
134 
132 
137 



•7-29S 
•7-309 
•S-3S1 
• 1-S5 
6-:5S 
b-:5S 

b-:B£ 



24-1442 
10-434 
19-989 
24-1367 



1-438 

8-351 

23-1248 

17-845 

21-1104 

• 1-64 



19-873 

19-1023 



PRGE 
CRCF 



19- 

20- 



c ts 



883 

1038 



19 
21 



889 
1119 



19-922 
21-1136 



19- 
23- 



933 

1232 



19-942 
23-1245 



19-949 
23-1277 



S-365 
•23-1249 
21-1094 
21-1155 



8-381 

♦24-1437 

21-1175 



• 1-72 

• 1-74 



*l3-b56 
l3-5Bb 
23-130S 



7-299 
•S-351 

s-zs: 



24-1437 



7-301 

8-3b: 

S-3S4 



•7-301 


7-303 


:^-305 


•7-305 


7-307 


S-354 


•S-354 


•S-3bB 


S-Zbb 


8-268 


•S-3S4 


•::-i:ib 


.:-i:i: 


23-1317 


23-1317 



7-309 
•8-368 
23-1317 















P U 


SCIP 


CPEfiTEO BY 


ma 


!0 


ON b-OEC- 


'7? AT 08 29 


PfiGE 7 


^Qi'.po <: 


POSS PEFEPENCE 










CREF 


MPlPO f 


<«riE REFERENCES 










'.fiLL 


$\-\^^ 












''.OLLP 


• IM70 












•.POiH 


• IM78 












DlPS'/S 


«1-I8b 












C'PSTS 


llt-t9^ 












GTiJCBi 


I1-290 












INTLB 


»l-20^ 












IMTSE% 


m-zm 












iras^/S 


»l-256 












nr p s 


111-312 












MIPS 


»1-315 












PETUPM 


»i-m9 












ift'iNP 


•1-329 












•CBLB 


111-339 












lOB 


»l-359 




»:^ 


♦-1377 






';USTK% 


»l-3b9 












'-BDr% 


»2-28 




«: 


•2? 







G t6 

uf'iT£ n«CPO nilOH Ob-DEC-77 08; 30 PftGEl 



1 




z 


OOOOOl 


1 


OOOUOl 


k 


000002 


s 


000000 


^ 




? 




i 


ocoooo 


f 




to 




H 




^ 




t3 




!«♦ 




15 




14 




17 




18 




19 




20 




21 




22 




23 




^ 




» 




U 




tf 




n 




2f 




») 




3! 




32 




33 




3i| 




3i 




U 




sr 




38 




39 




t»0 




m 




H2 




^:( 




i|H 




•IS 




i|4 




«I7 




US 




«»9 




SO 




SI 




S2 




9^ 




ss 




S6 





.PREFIX FILE FOP 2780 UPP PUNNING UNDER RSXUn 
RSXsl 

Rsxnnsi 

NTPNSFs2 ;NUriBCR OF FILES - 1 TO TPPNSFEP IN ONE CMHO STRING (3) 

NRCUSFsO , NUMBER OF FILES - 1 TO RECEIVE (1) 



.nflCRO 


DEFINITIONS 




TflGNUns 







. MfiCPO 


ERROR TEXT 




ERRORK 


(TEXT) 




JSP 


PC.PROnPT 




, ENOn 




; MfiCPO 


TO DO fl 


KILL RND OUE 


i 


. nflCRO 


EPPOPK TEXT 




TflGNUn= 


TfiGNUMfl 




. IPP 


N, ^ TPGNIJM^ 




JSP 


PB.TYPnSG 




UOPD 


TfiG'N 




WORD 


TftGE'N-TPG'N 




PSECT 


MESPG2.GBL 


TOG'N: 


flSCi 1 


"TEXT" 


TfiGE'N, 








PSECT 


nfliN 




ENDM 






ENDM 





, nOCPO TO QUEUE R HESSRGE ONlY 

nflCPO EPPOPM TEXT 
TflGNUri=TflGNUn4>i 

IPP N, < TRGNUM) 

JSP PB'TYPnSl 

WORD TQG'N 

WORD TRGE'N-TPG'N 

. PSECT mesrg: GBL 

TRG'N: .ASCII "TEXT" 
TRGE'N: 

.PSECT nqiN 

ENOn 
. ENDM 

MPCPO TO QUEUE R MESSAGE RND PPOUFT 

. MRCRO ERROPP TEXT 

EPPOPM vTEXT' 

JSP PC, PROMPT 
. ENDM 



MflCPO FRTRL TEXT 

EPPOPK aEXT 

JSP R5-DIE 

ENDM 



J 



URITE nfiCPO nuOH Ofc-DEC-^7 08 30 PfiGE 2 



H 15 



t 



I 

i 

f 

10 

n 
i: 

IS 
lb 

IS 
19 
20 
21 
22 
23 
2H 
Zb 
28 
27 
28 
29 
30 
31 
32 
33 

35 
38 
37 
38 

7Q 
"40 

^^ 

H8 

^9 

50 
51 

52 
53 
5 '4 
55 
5b 
57 



000000 



ocoooo 



0000 1 H 



0C0002 
0000014 



.TITLE liRlTE 
. I DENT /00005/ 

COPYRIGHT (C) 1975. 1975, 1977 

DiGlTfiL EQUlPrtENT CORPORfiTlON, nflYNflRO, MASS. 0175^ 

THIS SOFTWARE IS FURNISHED UNDER fl LICENSE FOR USE ONLY ON 
fl SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH 
THE INCLUSION OF THE PBOVE COPYRIGHT NOTICE THIS 
SOFTWARE. OR ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED 
OR OTHERWISE HADE PVRILRBLE TO ANY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO 
THESE LICENSE TERMS TITLE TO AND OWNERSHIP OF THE 
SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC. 

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE 
WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COM- 
MlTflENT BY DIGITAL EQUIPMENT CORPORATION, 

DEC ASSUMES NO RESPONSIBILITY FOP THE USE OP RELIABILITY 
OF ITS SOFTWARE ON EQUIPHENT WHICH IS NOT SUPPLIED B f 
DEC. 

uERSlON 

POPEPT H PO^ENBAUM 

LAST MOD in CAT I ON ON :9-MAY-75 

RSX WP'TE PECOPD ROUTINE 

. P3ECT MAIN 



nPCPO CALLS 

. MCALL PUT5S.FD0FF% 
FDOFF% DEFSL 

ASCI I DEFINITIONS 
FF = m 

INDICES INTO CHANNEL TPBlE 
C0LPNT=: 
PCSIZ=H 



NPUTS 



DEFINE FCS OFFSETS LOCALLY 



000000 

ooooo: 

000010 



00500*4 
WbZh? 
010287 



OUOUOb' OOOOOOG 
OOOOOOG 



RO = BUFFER ADDRESS 
Rl = BYTE COUNT 

OUTPUTS 

WRITES A RECORO 

DOES VERTICAL .ID HORIZONTAL FOPhS PROCESSING 

. IF DF RSX 

WRITS:; CLP RH ;BYTE COUNT OF EXPANDED PECOPD 

nous CHRL(P2)-CHAPL ; NUMBEP OF CAFF 1 AGE CONTROL CHAFhCTEPS 

MOVf R2.C0LAD ;GET CHANNEL NU'^BEP 



UFlTt 


nflCPO nno4 06 


-OEC-77 08 30 PfiGC 2-1 




1 15 




6S 


000014 


001410 








BEQ 


201 


; CHANNEL 


^9 


0OOC16 


012767 


000001 


OOOOOOG 




MOU 


it.COLAD 




bO 


000024 


006302 






101 


DEC 


R2 




bl 


000026 


001403 








BEQ 


20S 




62 


000030 


006367 


OOOOOOG 






fiSL 


COLPO 




63 


000034 


000773 








BR 


104 




bH 


000036 


016706 


OOOOOOG 




205 


nov 


SWRSUP,R5 


;GET CORRECT FDB 


66 


000042 


011603 








MOV 


(RS).R3 


;FD30U0 OR FOBOUl 


66 


000044 


016302 


000026 






MOU 


r NRBD*2fR3)<R2 


i BUFFER ADDRESS 


^ 67 


000060 


006763 


000102 






TST 


F. PNB^N. FID(R3) 


; IS FILE CLOSED? 


63 


000064 


001002 








BNE 


304 


;N0 


69 


000066 


00016? 


000306 






jrp 


1104 


;YES -IIITHIS CODE SHOULD BE SHRUNK 


70 


000062 


00E301 






304: 


DEC 


PI 


;FINISHED'' 


71 


000064 


1004 34 








Bni 


504 


;YES. WRITE RECORD 


t 4m 


000066 


006204 






404, 


INC 


P4 


; INCREMENT BYTE COUNT 


73 


000070 


112003 








MOUB 


(P0)*,P3 


GET CHflRPCTER 


74 


000072 


110322 








rivUB 


9Z. 'P2'* 




76 


000074 


106767 


OOOOOOG 






TSTB 


SUPSL 


;SELECTIVE RECEIVE ACTIVE"' 


76 


000100 


001406 








BEQ 


444 


;N0 


77 


000102 


u*.4.i 6< 


OOOOOOG 


OOOOOOG 




cnp 


»CH0NL2'SWRSUP 


IS OUTPUT GOING TO THE PRINT 


78 
















;FILE (SELECTIVE RECEIVE ONLYj"' 


79 


000110 


001404 








BEQ 


454 


;YES. DO TAB EXPANSION 


80 


0001 1: 


000^b3 








BP 


305 


;N0< DON'T DO TAP EXPANSION FOP PUNCH DATA 


81 


000114 


106767 


OOOOOOG 




445. 


TSTB 


SUPBN 


;N0. BINARY DATA"? 


82 


000120 


001360 








BNE 


l^'i 


:YES, DON T DO TAB cXPANSlON 


83 


000122 


120327 


0000 11 




4E5 


CMPB 


P3.M1 


; IS IT A TAB'' 


84 


000126 


001365 








BNE 


305 


;N0 


86 


000130 


106767 


OOOOOOG 






TSTB 


HFCflCT 


; HORIZONTAL TAB ACTIVE 


86 


000134 


100362 








BPL 


305 


-NO 


87 


000136 


112762 


000040 


177777 




MOl'B 


»40. -UR2) 


REPLACE SPACE U 1 TH TAB 


8S 


000144 


106764 


OOOOOOG 






TSTB 


HFCPEC^P4) 


TAB STOP 


89 


000160 


001344 








BNE 


305 


YES 


90 


000162 


106740 








TSTB 


-fPO» 


NO 


91 


000154 


000744 








BR 


405 




92 


000166 


011500 






505: 


MOV 


(R5),P0 


GET FOB 


93 


0r0160 


122760 


000001 


000000 




CMPB 


»1.F. PTYPfRO) 


FIXED LENTH RECORD 


94 


.CO 166 


001016 








BNE 


605 


NO 


96 


000170 


0o0465 


000004 






ADD 


R4,PCSIZ"P5.' 


ADD iNTO TOTAL PECQPD SIZE 


96 


000174 


010260 


000026 






MOV 


R2.F. NRBD+2'POi 


update: BUFFER POINTER 


97 


000200 


026560 


000004 


000002 




CMP 


RCSI2(P5).F. RSIZ 


PO) 


9S 


000206 


103476 








BLO 


1205 




99 


000210 


016504 


000004 






MOV 


RCSIZ''.P5)P4 


NUMBER OF CHPPRCTEPS TO UP 1 TE 


100 


000214 


160460 


000026 






SUB 


R4,F. NPBu+C'RO) , 


RERJUST PNTP FuP FCS 


101 


000220 


006065 


000004 






CLP 


RCSi:(R5^. 




102 


000224 








bOS 


PUT5S 


,.P4 




103 


000234 


103456 








BCS 


1105 


OH NO AN EPPOP 


104 


000236 


105767 


OOOOOOG 




625; 


TSTB 


S^RSL 


SELECTIVE RECEIVE ACTIVE^ 


106 


000242 


001405 








BEQ 


645 


NO 


106 


000244 


022767 


OOOOOOG 


OOOOOOG 




CMP 


«CHfiNL2.. SIJPSUP . 


IS OUTPUT GOING TO THE PFINT FILE 


107 


000252 


001404 








BEQ 


655 


YES. CHECK FOR CAPFIAGE CONTROL 


lOS 


000254 


000452 








BP 


1205 


NO. DON'T CHECK SINCE ITS PUNCH DATA 


109 


000256 


105767 


OOOOOOG 




645: 


TSTB 


SURBN 


BINARY DATA^ 


110 


000262 


001047 








BNE 


1205 


YES. IGNORE CARRIAGE CONTPQL 


111 


000264 


026727 


OOOOOOG 


000001 


665 


CMP 


COLflD.;i 


SKIP TO CHANNEL 1 


112 


000272 


001013 








BNE 


705 


NO 


113 


00027U 


016002 


000026 






MOV 


F. NPBD+2'P0).P: 


GET BUFFER ADDRESS 


114 


000300 


4 1 i. I ^i. 


000014 






MOVB 


;ff. (p:.' + 





URiTi MfiCPO nuO^ Ob-OEC-77 08 30 PAGE 2-2 



TTT 



lis 

Ub 
117 

lis 

119 

i:o 
i:i 
i:: 

123 

i:s 

12b 

12:^ 

12S 
12? 
13G 
131 
132 
133 
134 



000304 
00031b 
000320 
000322 
000322 
000330 
000336 
000340 
00034b 
000354 
00036b 
0003b2 
0003b4 
OOOZbb 
000370 
00037b 
000400 
000402 
000404 



103424 
000407 

0b27b5 
026527 
103403 
0127b6 
03b776 
001003 
I063b7 
001407 
00E004 
000b73 
lB27b7 
0002bl 
000401 
000241 
000207 



000C02 000002 
000002 G00204G 



70S: 



OOOOOOG 000002 805 
OOOOOOG 000002 90S 

OOOOOOG 

lOOS: 

000200 OOOOOOG llOS. 



1205: 
I 305: 



PJT5S 

BCS 

BP 

ODD 
CMP 
BLO 

nou 

BIT 

BNE 

DECS 

BEQ 

CLR 

BP 

BiSB 

SEC 

BP 

CLC 

RTS 

. ENDC 



.,•1 

nos 

80S 



.UPiTE RECOREO 
.ERROR 



II2.C0LPNT(R5) ; INCREHENT COLUMN COUNT 
C0LPNT(R6),»C0LTT*132. .« ^4H0LE FOftH 
90S . NO 

»C0LTT,C0LPNT(R6) 
C0LflD.dC0LPNT(R5) ;fl STOP'' 



lOOS 

CHflPL 

120S 

R4 

505 

»200, lOEPP 

1 30S 

PC 



YES 

NOT DOUBLE OP TRIPLE SPflC 

NO. EXIT 

YES. URITL NULL BLOCK 

ON ERROR 

RETURN UITH C BIT SET 

GOOD RETURN - CLEOP CRPPY 



UPiTE 


MQCPO Ml 10^4 06- 


•DEC- 


•77 


08 


30 


PfiGE 3 


136 














; 4 


137 














; CfiPP 


138 














; - 


139 


OOOHOb 


001 










CHRL: 


1^0 


0001*07 


001 












IHI 


ooomo 


001 












m: 


000*4 11 


001 












mz 


ooom2 


001 












l^^ 


ooom3 


001 












l^S 


0004m 


001 












mb 


OOO^IS 


001 












m7 


ooomb 


001 












1>4S 


ooo'^i:' 


002 












IWQ 


000<0 


003 












160 
















181 




000001 













K t5 



CfiPPlfiGE CONTROL TqSLE FOR RSX 



BYTE 


1 i 


CNQMNEL 


BYTE 


I t 


CHPNNEL 1 


BYTE 


1 t 


CHANNEL 2 


BYTE 


I 4 


CHANNEL 3 


BYTE 


1 i 


CHANNEL >4 


BYTE 


1 t 


CHANNEL 5 


BYTE 


\ t 


CHANNEL 6 


BYTE 




CHANNEL 7 


BYTE 


I t 


CHANNEL 8 


BYTE 


it 




BYTE 


7 




EVEN 






END 










HQCPC 

tpble 



nnOi* Ob-OEC-77 OS 30 PfiGE 3-1 



L tS 



'iHflNLZs 


tntit 


GX 




F CHR = 


000075 




riBCia 


000055 


f . VBN » 


000064 




RSX « 


000001 


CHfiPL 2 


MUtI 


G>, 




F CNTGs 


Q0003^ 




riBFGs 


000056 


F VBSZ» 


OOOObO 




Rsxn«« 


000001 


':hpl 


OOOHOfeP 




00: 


: F DFNBs 


0OOOH6 




NRBOs 


000024 


HFCPCTa 


$uut 


GX 


SUR6N s 


tttttt GX 


OjLPD = 


«t«ltt 


GX 




F DSPT= 


00Q0^^ 




NRECs 


000030 


HFCRECs 


tuut 


GX 


SURSL ' 


tttttt GX 


COLPNTs 


000002 






F DVNfls 


0001 3^ 




OUBSs 


000030 


lOERR s 


tutu 


GX 


SURSUPs 


tttttt GX 


COLTT = 


tttttt 


GX 




F FFBKs 


0000 10 




PPCCs 


00G0t6 


NRCUSFs 


000000 




S FflTT* 


0000 16 


FT = 


OOOOIH 






F. EFN : 


000050 




RPTTs 


000001 


NTRNSFs 


000002 




S FOB « 


000140 


f fiCTLs 


000076 






F EOBBs 


000032 




RCNMs 


000034 


N DID » 


000024 




S FNflns 


000006 


f OL0C= 


0000^0 






F EPR s 


000052 




RCTLs 


000017 


N. D'/NMs 


000032 




S FNB s 


000036 


^ BBFSs 


000062 






F FfiCC= 


00004 3 




psi:= 


000002 


N FID ' 


000000 




S FNBW» 


000017 


F BOB = 


000070 






F. FFBYs 


oooom 




P^YP = 


000000 


N FNPMi 


000006 




S FNTYs 


000004 


^ 6GB': = 


000057 






F FNOM= 


000110 




SEGiNs 


OOOIOO 


N FTyP= 


000014 




S FTYP? 


000002 


BfON- 


000026 






F FNB = 


0C0102 




SPDUr 


000072 


N. FVER = 


000016 




S NFENs 


000020 


> BKC'Z = 


000020 






F FTYP= 


000116 




SPUN= 


000074 


N NEXTs 


G00022 




TPGNUns 


000000 


• B^EF. 


000C50 






F. FUEP = 


000120 




STBKs 


000036 


N STPTs 


000020 




14R!T5 


OOOOOOPG 


F BKP1= 


000051 






F HIBK= 


000004 




UNIT = 


000136 


N UNlTr 


000034 




PUTSQ= 


$t*ttt G 


F BrlT = 


Q0002H 






F LUN : 


000042 




UPBD= 


000020 


PCS 12 s 


000004 




. . TPC= 


000140 


F BK\'B = 


C0006H 






F. MBlT = 


ncoosu 


















. fiSS 


000000 
000000 




000 
001 






















MP 1 N 


000^:2 




002 






















EPPOPS ! 


JETE'ITEC 



























UlPTUfiL 


ME MOP > 


USED. 1 


Sl^ UOPDS < S PfiGES) 


















DYNfiMlC 


ME MOP f: 


2S10 I 


OP OS ' 


10 PAGES) 



















002 



ELPPSED TIME 00 GO 19 
:5b.O20 WRITE. 27. :St 030 UP i TE. CPF. -SP = UPFP>.M., UP 1 T£ 



ft l5 

URiTE CPeflTED B' MfiCPO ON b-DEC-77 AT 08 30 PfiGE I 

SVriBOL *.POSi PEFEPENCE CPEF 

iYMBOL UfiLUE PEFEPENCES 

•'.HfiNi: = «ttut GX 2-77 2-!06 

•:hQPL = tltttl GX t2-5b «2-126 

'iHPL 000'40b P 2-Sb nZ-\Z^ 

C0L»O = MtUt GX t:-57 t2-59 «2-b2 2-tU 2-123 

COLPNT = 000002 «:-^2 t2-n« 2-120 «2-l22 2-123 

COLTT = MttH GX 2-120 2-12Z 

FF = OOOOm »2-39 Z-MM 

F. FNB = OQOIO: 2-b" 

r NRBD = OOOO:^ 2-bo »:-?o 12-100 12-102 2-113 *2-ns 

F PtiZ = OGOOO: 2-97 

r PTYP = 000000 2-93 

MFCftCT = t*iMi GX 2-86 

HFCREC : iiMM GX 2-38 

lOERP s tMiM GX i:-129 

MPC'/SF :: 000000 »l-5 

iiTPNSF = 000002 il-i* 

N FiD = OOCOOO :-b7 

PCSIZ = OOOOOh 12-^3 ♦--9d 2-97 £-?? 12-lQl 

KSX i 000001 11-2 Z'S^ 

P^XIIM = COOOOl 11-3 

SUPBN = Mint GX 2-Sl 2-109 

SUPSL = ♦*«»♦♦ GX 2-"6 2-10^ 

SUPSiJP = MMM GX 2-b^ 2-77 2-lOb 

TPGSii'' = iDGOO;^'' HI -8 

UP ITS OOCOOO PO «:-8S 

PUTSQ = t**t** G :-l02 2-102 2-115 I-llS 



nor PC ( 
MfiCPO ^ 

EPPOP 

EPPOP^ 

tPPOPM 

EPPOPP 

EPP^ 

L OF DBS 
PUT%S 



CPEfiTED BY nflCPO ON b-DEC-77 AT 08 30 
P0S3 PEFEPENCE 



janE 



PEFEPENCES 

•2-102 

• 1-9 

• 1-32 
»l-^7 

»:-i02 

»:-3S 
»:-io: 

• 2-35 



2-102 



»2-102 

2-102 

2-102 



PPiGE 2 
CR£F 



N lb 



2-102 



i:-ll? 



2-115 






115 



•2-115 



•2-115 
2-115 



•2-115 

:-n5 






^^^MMMsM^^^^ljlsmlM 



1v*iil£-r-K''SlL=l" -"'"- 



•'.OMTEy-Morpo'S n«CRO 

TPBlE or CONTENTS 



nil04 Ob-OEC-77 08: 29 



3- 


21 


5- 


57 


fe- 


152 




::i 


q- 


245 


10- 


28b 


n- 


324 


i:- 


335 



conTEx npcpo definitions 
connuNicflTioNS output done 

OPEN FILE FOR TPPNSMIT 

PEflO 

REfiD COnPLETE 

B I SYNC OUTPUT 

PRPRMETEP BLOCKS 

CCNSTRNT DRTR RPEfi 



B 16 



TCANiniT 



nflCPO rnOH Ob-DEC-77 08: 29 PfiGE I 



C lb 



I 

! 



to 
u 

12 

15 

lb 

r 

IS 

1? 

20 
21 



24 
2S 
2b 
17 
28 
29 
30 
31 
32 
33 
3H 
35 
36 



39 

40 

41 

4: 

4i 

44 
45 
4b 
47 

f9 
50 
51 
52 
53 
54 
55 
5b 



OOOOOl 

oonooi 

000G02 

oocjoo 



ocoooo 



■.nv\% PiLC rop 2780 upp running under RSXlin 

RSXM 
RSXllMsl 

NTRNSFs2 ;NUnBER OF FILES - I TO TRPMSFEP IN ONE CMMD STRING (3) 

NRCVSFsO ;NUnBER OF FILES - 1 TO RECEIVE (1) 

;ri«CRO DEFINITIONS 
TfiGNUMsO 

. nPCRO ERROR TEXT 

EPRORK (TEXT) 

JSP PC, PROMPT 
ENOn 

; MPCPO TO DO P KILL PNO QUEUE THE MESSPQE 



TflG'N: 
TflGE'N: 



. nPCPO ERRORK TEXT 

TPGNUM=TPGNUM+1 

. IRP N, ^ TPGNUM) 

JSR P5-TYPMSG 

WORD TPG'N 

. WORD TftGE'N-TPG'N 

PSECT nESRGZ-GBL 

. PSCII "TEXT" 



PSECT 

ENDH 

ENDM 



PPiS 



riPCRO TO QUEUE P MESSRGE ONlY 





. MPCPO 


EPPOPM TEXT 




TPGNUn= 


TPGNUM+! 




, IRP 


N, < TPGNUM^ 




JSP 


P5-TYPMSI 




. WORD 


TPG'N 




. WORD 


TPGE'N-TPG'N 




. PSECT 


MESPG2-GBL 


TPG'N: 


. PSCI 1 


"TEXT" 


TPGE'N: 








. PSECT 


MP IN 




. ENDM 






. ENDM 





flPCPu TO QUEUE P MESSRGE PND PROMPT 

. MPCPO ERRORP TEXT 

EPROPM (TEXT' 

JSR PC PROMPT 
. ENl.M 



. MPCPO 
ERRORK 

JSP 
. ENDM 



FPTPL 

aEXT> 

P5-DIE 



TEXT 



COnTE/-n»CPOS HRCRO nilQH Ofe-DEC-77 08, 29 PAGE 2 



TTi' 



I 
2 
3 
% 
S 
h 
7 
i 

to 

$t 

12 
t3 

ts 
ts 

t9 



.TITLE COMTEX-riOCPOS 
. I DENT /00002/ 

COPYPtQHT \S7H, t975. I97fe, 1977 

DIGITRL EQUlPnENT CORP. 

lUb nfilN STREET MPYNQRO. nflS5 0175i* 

>EC ASSUMES NO RESPONSIBILITY FOR THE USE OP 
RELIABILITY OF ITS SOFTUfiPE ON EQUIPMENT WHICH 
IS NOT SUPPLIED BY OlGiTfiL 

VERSION 

23-SEPTEnBER-7'4 

VEPSION 1 
SEP 19^7 - CEP 

MOOiFlCfiTIONS FOP CUT CODE >'£PStON OF 27S0 
LIBPHPY OF COMTE'^ MOCPO DEFINITIONS 



M il III I 



1 



<.OMTE> 



nficpos nocpo r1^o^ 

nftCPO DEFINITIONS 



Ofa-DEC-77 08. 29 PAGE 3 



TTT 



2t 
22 
23 

2S 

2b 

27 

28 
29 
30 
31 
32 
33 
3W 
36 
3b 
37 
38 

TO 
•40 

m 

'♦2 

43 
UU 
46 
46 
47 
48 
49 
60 
61 
62 
63 
64 
66 



SBTTL COflTEX flOCRO DEriNlTiONS 



MWCPO 

nou 

JSP 

. ENDn 

. nflCPO 
nov 

JSP 

. END 11 

. MOCPO 

nou 

JSP 
. ENDM 

. nPCPO 
nou 

JSP 

. ENDn 
. nPCPO 

JSP 

. ENDn 

. nocpo 

no'i/ 

JSF 
. ENDl 

. nPCPO 
nou 

JSP 

. ENDn 



LIMIT, PflPLST 
• PfiRLST,Pl 
PCEMTINT 



PSRSUF^PfiPLST 

•PflRLST,Pl 

PCEMTPUT 



PUTTCrPPLST 

»PflPLST,Pl 

PC^EniPUT 



PUTnr PPPLST 

«PQPLST.P1 

PC-EnTPUT 



GETS 

PC EnTGET 



PUTTn. PPPLST 
»FRPLST PI 
:C-EnTTin 



PUTD. PPPLST 

»PPPLST.Pl 

PCEniPUT 



TRftNsriiT nocPO nnoH 

COtlTO nQCPO OEFlNtTlONS 



I 



Ob-OEC-77 08. 29 PAGE H 



F t6 



I 

ft 

7 
t 
f 

10 
II 
12 
II 

u 

17 
18 
19 
20 
21 
22 
23 
2i| 
» 
2ft 
27 



2f 

30 
31 
32 
33 

37 
38 
39 

HO 

m 

M6 OOOGOO 

<I8 
ilf 

SO 
SI 
S2 
S3 

St» 



.Title TRfiNsniT 

. I DENT /00017/ 

COPYRIGHT (C) t97H.l9?6Mf7b. 1S77 

DIGITAL EQUlPflENT CORPORATION, MPYNflRO. MASS. 

THIS SOFTWARE IS FURNISHED UNDER fl LICENSE FOR USE ONLY 
ON P SINGLE COMPUTER SYSTEM AND HAY BE COPIED ONLY UlTH 
THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE THIS 
SOFTWARE, OR ANY COPIES THEREOF. MAY NOT BE PROVIDED OP 
OTHERWISE MADE AVBAILABLE TO ANY OTHER PERSON EXCEPT 
FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE 
LICENSE TERMS TITLE TO AND OWNERSHIP OF THE SOFTWARE 
SHALL AT ALL TIMES REMAIN IN DEC. 

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANJE 
WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COM- 
MlTfiENT BY DIGITAL EQUIPMENT CORPORATION. 

DEC ASSUMES NO PESPONS IB IL I TY FOP THE USE OP PELIRBILiTY 
OF ITS SOFTUARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY 
DEC. 



VERSION 

POBEPT H. POSENBAUM 



:0-SEPTEMBEP-7'4 



B L. PUBENSTEIN 27-JAN-75 
MODIFIED FOR PT-ll V02-1 'F/B) 
LAST MODIFICATION ON 2S-0CT-76 
MODIFIED FOP CUT CODE I'ERSlON 
CEP S/77 



TPANSniT DATA COMPLETE ROUTINE 
COLL. 



riSGDON IS CALLED f" 
UPON F INDING A Ulb 



THE "GETS" LOOP THROUGH THE .JUMP TABLE 
:PY FROM THE B I SYNC TAP. 



FUNCTION: 

THIS POJTIHE PEPDS TH. FILE BEING TRANSMITTED AND HANDLES 
ALL THE BUFFER MAN I PjL AT I ON AND CORRD ! N^^T I ON WITH THE TAP. 

IF DF PSX 

. PSECT MAIN 
. ENOC 

. IF DF PTM 

. CSECT TRNSMT 



; MACRO CALLS 
MCALL 
. V2 . 
, ENDC 



PRINT,. . W2. 



















■ 














G tb 




TPftNSniT 


nfiCPO nii04 Ob- 


•OEC-77 


08. 29 f 


'PGE 5 






COfiTty nfiCPO DEFINITIONS 












6b 
57 

S9 










. SBTTL 


COnnUNI CRT IONS OUTPUT DONE 












. GLOBL 


riSGOON, INITF, ENTRY, FLAGS, EOTPEN< EOTFLG 




bO 










. GLOBL 


OFFHRN,TVfiB,TOONC.ELfiTCH 




bl 










. GLOBL 


gctent^enopen^ruipcn, ioe:?r 




b2 










. GLOBL 


nOOE, CHPRR, TXPEN, 1 IBM. 8 INEOT, CLOSEP 




b3 










. GLOBL 


EOTSEQ, SURBN, TURNAR, CNBPPR 




bu 










. GLOBL 


CODE, QTRQN, OrtODE, CRSFAU, TRNSBLK 




b6 










. GLOBL 


REDS, STOREX, CflPLST, CRBOSX, CnCLST 




bb 










. GLOBL 


RECSlZ,CnBUFE,CnFLST,NXTFIL 




b7 










. GLOBL 


SWREN, FSTGET, CttBnPX, CHBFPN, PR 1 NTX 




bS 










GLOBL 


BRSELN. XSTEQ. XFEPEN, CHBUFl, XMTEPP PC\/BLK 




b9 










. GLOBL 


CLOSET. nPKFIL 




r-Q 










. IF OF 


PTll 




7t 










. ^.wOBL 


PTENO 




73 










, ENDC 






7V OOOOOC 


Gi:705 


OOOOObG 




MSGDON: 


nov 


«ENTPY>b'P5 




7S OOOOOH 


10S7b7 


QOOOOOG 






TSTB 


INITF , INITIAL !ZPTI0N'> 




7o OOOQIO 


100545 








Bni 


nf^-TD ;YES 


, 77 OOOGi: 


I057b7 


GOOOOOG 






TSTB 


FLPGS -MOSTEP OP SLO^'E 




7S OOOOlb 


100040 








BPL 


GOGl :3LP'"E- IGNOPE PN'r DOMES 




79 000020 


10b3b7 


GOOOOOG 






oslb 


TuQB ,ABOPT^ 




80 000024 


103433 








BCS 


G0JMP2 .YE5 




81 00002b 


0bl5b7 


QOOOOOG 






PDO 


-PS' -^MTfPP 




82 000032 


005745 








TST 


-'P5' ;CHEC^ FOP EPPOP 




83 000G3H 


100425 








BMl 


GO JMP 1 , EPPOP FPESENT 




84 00003b 


10b3b7 


OOOOOOG 






flSlB 


EOTPEN .EOT PErJD'NG FlPG SET? 




85 000042 


103030 








BCC 


r-SGTQZ -NO 




8b 000044 


10b3b7 


OOOOOOG 






PSlE 


EOTFLG ;YES SOT FlPG SET^ 




87 000060 


103002 








BCC 


GO jnp ;N0 




88 000052 


0001b7 


OOOOOOG 






jnp 


OFF HON tE'. go OF^l 'f^i 




89 00005b 


10b3b7 


GOOOOOG 




GOjrip 


PSLB 


TC'ONE ,HhA PLl FILES BEEM TPPNSM 1 TTED"' 




90 0000b2 


103410 








BCS 


RPND 




91 0000b4 


10b0b7 


GOOOOOG 






CLPB 


ELPTCH 




92 000070 


1057b7 


GOOOOOG 






TSTB 


PMIPEN ;RVI PENriNG^ 




93 000074 


100403 








Bf1l 


PPND ;YES DON'T SET TPPNSMIT FENDING 




94 00007b 


1527b^ 


000200 


GOOOOOG 




BISB 


8200.T.PEN .SET TpfiNcniT PENDING 




96 000104 
?b 

97 0001 10 


0001b7 


OOOOOOG 




OP NO; 


JMP 


TUPN^:iP 




nooib7 


000412 




GOjriPl: 


jnp 


GOPBTl .PBOPT TPPNS - SET EOT 




98 000114 

QQ 


G001fe7 


G00434 




G0jriP2: 


jnp 


GOPBP^ .hBOPT TPPNSniSSiON - SLT EOT 




100 000120 


000lb7 


OOOOOOG 




GOGl: 


jnp 


GETENT ;GET NE.XT IjlB ENTRY 




101 000124 


032715 


040000 




nsGTfi:: 


BIT 


840000. ^P5) ;PVI INDICPTED'' 




102 000130 


001414 








BEQ 


nSGTC ;N0- GO ON 




103 000132 


1527b7 


000200 


GOOOOOG 




BISB 


8200.ENDPEN ;YES, SET END PENDING FLPG 




104 000140 


1527b. 


G002C0 


GOOOOOG 




BISB 


8200. PUI PEN ;SET PVI PENDING 




105 00014b 










EPPOP 


<Rl/|> 




10b 












; CONTROL MODE 




107 










;COnn BIFFEP PPOCESSED BY BISYNC TPP 




lOS 
















109 0001b2 


032715 


000400 




MSGTC: 


BIT 


;400. IPS) ;HfiS FTX RECORD BEEN PCK'ED^ 




110 OOOlbb 


001422 








BEQ 


MSGTD ;N0 - MORE RECORDS PENDING 




111 G00170 


105767 


GOOOOOG 






TSTB 


TDONE ; TPPNSMIT DONE? 




U: 000174 


100401 








Bni 


lOS ;YES 



TPONtniT MfiCRO finO^ Ofe-DEC-77 08 29 PAGE 5' 

connuNicfiTiONS output done 



N \k 



13 000176 


000414 




m ooo:oo 


132767 


000040 


IS 000206 


001010 




lb 000210 

17 

IS 0002m 


10S067 


OOOOOOG 






19 000230 






:0 000230 


000167 


000342 


:i 00023^4 


10b:b7 


OOOOOOG 


:: 0002*40 


103011 




23 0002*42 






:h 0002S2 


112767 


000200 


:S 000260 


000167 


OOOOOOG 


2b 00026*4 


105767 


OOOOOOG 


27 000270 


001713 




2S 0002": 


006067 


G00004G 


29 0002"^b 

30 

31 


000167 


00073b 


ZZ 
33 
3*4 000302 


10S067 


OOOOOOG 


35 00030b 


004:'b" 


OOOOOOG 


3b U00312 


16:^6:- 


000200 


37 000320 


000167 


QOOOOCG 


38 






39 






140 






141 






•42 000324 


105^67 


OOOOOOG 


*43 00C330 


100G04 




L4U 000332 


0057*45 




HS 






4b 000334 


10050^ 




**:- 00033b 


105715 




4£ 00034 


10U760 




4? 






BC 







NMES 
MSGTD 



OOOOOOG 



MflXTD: 



BP NttES 

BiTB mCTXPEN 

BNE NMES 

CLPB RVIPEN 

EPPOR <TRNS COnPLETE) 



JflP 

flSLB 

BCC 

PUTD 

ncvB 

J MP 

TSTB 

BEQ 

CLP 

JMP 



BID CONTENTION 
SinULRTE AN PI' 



; THE 
COENO: 



OOOOOOG 



PECEPT 

CLPB 
JSP 
BiSB 
JMP 



ON 



TERT 

lOERR 

nflXTO 

STXEQ 

«200.TVfiB 

GETENT 

MODE 
GOGl 
CnPQP*4 

cnouT 

- LET REMOTE 
CONDITION 

TXPEN 
PC CLOSET 
$Zld. PVMPEN 
TUI^NPP 



.SEND AN EOT 

;BUT RUI STILL PENDING*^ 

;YES. THEN TRANSMIT NOT REALLY DONE 

;IF REfiLLY COnPLETED TRfiNMlSSlON THEN 

, FORGET RUI 



;TR;;NsniT eot 

;flN I/O ERROR ON PEflD'' 

,N0 

;SEND STX-ENQ 

;FLflG ERROR CONDITION DETECTED 



,TPflNSniT ABORTED^ 
.YES 



.NO - CONTINUE TRONSMIT 



STflT 
30 WE 



ON HPl/E 
CAN TRY 



THE 
AGP 



NE BUT 
AFTER 



CLEAR TRANSMIT PENDING 
CLOSE THE TRANSMIT FILE 
SIMULATE AN PVI CONDTION 
TURN THE LINE AROUND 



MPSTD 



TSTB 


PLAGS 


MHSTEP OP SLAVE 


BPL 


nSTGl 




TST 


-iP5' 


CHECK FOP '/ALIO 




*" 


RESPONSE TO BiD 


BMI 


GOABPT 


INVALID. GO ABORT 


TSTB 


(P5) 


TRANSMIT OVERPIDEN BY CONTENTION"? 


BMI 


COEND 


YES - GO INTO RECEIVE MODE 




i 


NO - PROCEED NOP M ALLY 



OPEN FILE F0» 



nfiCPO nno^ 

TPQNSniT 



Ob-OEC-77 08 29 PAGE h 



tl 



tS2 










SBTTL 


OPEN FILE FOR TRfiNSMir 


153 0003^*: 


152767 


OC0020 


OOOOOOG 


nSTGl 


BiSB 


•20. FLAGS 




1^4 










. IP OF 


PTll 




165 










TSTB 


SURBN 




I5fc 










ENOC 






157 










, IF OF 


RSX 




158 000350 


1057b7 


GOOOOOG 






TSTB 


FL«GS 


MASTER'^ 


159 000354 


1C0404 








Bni 


nn«s 


YES 


IbO 00035b 


1057b7 


OOOOOOG 






TSTB 


SURBN 


PE'EM/E BINARY'^ 


Ibl 0003t2 


001415 








BEQ 


CHOP IX 


NO 


It: OOOZbi* 


000403 








BP 


BINST 


YES 


lb3 0003bfc 


105767 


OOOOOOG 




nnPS: 


TSTB 


SUTBN 


BiNfiPY nODE^ 


IbW 










ENDC 






lb5 000372 


001411 








BEQ 


CHOP IX 




Ibb 00037H 


I527b7 


000030 


GOOOOOG 


8 INST, 


BiSB 


«I30. FLOGS 


YES. SET NATIVE MODE 


lb" 10'402 


0127b7 


OOOOOOG 


OOOOOOG 




nov 


»BINE0T,E0TSEQ 




I omo 


0117b7 


OOOOOOG 


001050 




MOV 


•BtNTTD-STEGM 


SET FOR BINARY TTD SEQUENCE 


lb. oomb 


Glb:'b7 


OOOOOOG 


000002G 


CHOP IX: 


f10\' 


XFEPEN,ENBPPP*2 


VALID, MOVE CONTROL UOPD TO PAPRM LI 


170 u00h:i4 


Ilb7b7 


OOOOOOG 


G00002G 




nouB 


FLAGS. ENBPflP+2 


SET CURRENT OPTION SELECTIONS 


171 000432 


156767 


OOOOOOG 


G00003G 




BISB 


C0DE^ENBP9P+3 


SET CODE SELECTION 


172 000440 










PUTTC 


ENBPRP 


HANDLE XFER ENABLE 


173 000450 


14276" 


000010 


GOOOOOG 




BICB 


«10-FLOGS 


CLEAR NATIVE MODE SELECT 


1:^4 00045b 


105067 


OOOOOOG 






CLPB 


IN!TF 


CLEAR INIT FLAG 


175 0004b2 


105767 


OOOOOOG 






TSTB 


FLQGS 


MASTER OR SLAVE? 


17b 0004bb 


100402 








Bn 


TPNC 


MASTER 


177 000470 


0001b7 


GOOOOOG 






JMP 


GETENT 


SLAVE 


178 000474 


1127b7 


000002 


GOOCGGG 


TPfK: 


MOVB 


»2.M0DE 


SET TRANSMIT MODE 


179 000502 


1050b7 


GOOOOOG 






CLPB 


TVPEN 


X-MIT REQUEST SA^ i SF lED 


180 00050b 


0167b7 


G00756 


GOGOGOG 




nov 


QTPPN. QMOOE 


SET UP FOP QUEPV TYPE OUT 


181 000514 


112767 


000002 


GOOCGGG 




riO'''B 


«2.CPBFRl' 


INIT n OF CP BUFFERS 


1S2 000522 
1S3 


000167 


000216 






i«P 


CPRGN 




184 
185 
1 Sb 








# 


. GLOBL 


GOflBRT-TEPl 




187 00052b 








GOQeri 








188 000526 


022765 


GOOOlO 


G00G02 




CMP 


«10.2'P5) 


SEE IF PBOFT CAUSED BY NAKSI««*I 


IS? 000534 


G030G7 








BGT 


GORBPT 




190 00053G 










EPPOR 


<NRh RBPT) 




191 000552 


000406 








BP 


XXX 




192 000554 








GOflBPT: 








193 000554 










EPPOP 


^OPP r,BOPT 


TYPE ABORT MESSAGE 


194 0005^0 


1527S7 


G00200 


GOOOOOG 


XXX: 


BISB 


»20Li.TD0NE 


TRANSMIT DONE 


195 00057b 








fEFT: 


PUTD 


EOTPfiP 


GO SEND EOT 


19b OOObOb 


10044b 








BMI 


NOTPNS 


DON'T CLOSE FILE IF EPPOP 


197 OOOblO 


126727 


GOOOOOG 


G00002 




CMPB 


M0D£-«2 


TRANSMIT MODE^ 


198 OOOblb 


001012 








BNE 


te:<2 


NO 


199 000620 


004767 


GOOOOOG 




TERl: 


JSP 


PC, CLOSET 


CLOSE THE TRflNSniT FILE 


200 000624 


105767 


GOOOOOG 






TSTB 


TDONE 


TRANSMIT DONE^ 


201 000630 


100016 








6PL 


TOT 




202 000632 


105767 


OOOOOOG 






TSTB 


RVIPEN 


IS RVI PENDING'^ 


203 000636 


100413 








BMI 


TOT 


YES, DON'T CLEPP TRANSMIT FILE NAME 


204 














SO THAT UE CAN REOPEN LATER 


205 000640 


005077 


OOOOOOG 






CLP 


aTRNSBLK 




20b 000644 


126727 


OOOOOOG 


GOGGGl 


TEP2: 


CMPB 


M00E,;J1 


RECEIVE MODE'' 


207 000652 


001005 








BNE 


TOT 


NO 


208 000654 


0047b7 


CGGOOOG 






JSR 


PC - CLOSER ^ 


CLOSE THE PECE'i'E FILES 



ST 



TPflNSMiT MfiCPO ntlO^ 
OPEN F ILE FOR TRRNSniT 



Ob-DEC-77 08 29 PAGE b-l 



209 

210 

211 
^ 1 /^ 

213 

214 
2\S 
21b 

2r 



OOObbO 012777 \77777 OOOOOOG . I IF OF 

I IF OF 
TOT 



OOOfebfe 
000674 
000702 
000710 
OOO'lb 

0007:: 
ooo':h 
000:^40 



152<^67 
152767 
112767 
llb767 
105067 
0C0406 



000200 

000200 

000002 

OOOOOOG 

OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



000167 OOOOOOG 



NOTPNS 
CPPGN. 



PSX 
PTll 
BISB 
BISB 

nouB 
nouB 

CLPB 
6P 

EPPOP 

jnp 



J 16 



H-UiPCUBLK 



nou 

CLR dRCVBlK 

«200,E0TPEN0 

W200.FLQGS 

»2,nODE 

PRINTX,ST0REX 

INITF 

CPPGN 

'TER RJT> 

GETENT 



;USE DEFAULT RECEIVE FILE 
,USE DEFAULT RECEi'/E FILE 



SET EOT PEND FLAG 
SET FOR MASTER HOOE 
SET TO TRANSMIT MODE 
REALIGN INDEX POINTERS 
DONT NEED AN INIT PHASE 



.GO TO GET NEXT ENTRY 



TPOUSniT 
221 

»•— -' 

22*4 
22f 
22b 
227 

:29 

220 
231 



MPCUO nnOH Ofa-0£C-77 08: 29 PfiGE 8 



K lb 



it J ^ 

235 

23S 

239 
2140 

:^: 

243 



0007^^ 

000750 
000762 
00075b 
000760 
0007b^ 
0007bb 
000772 
00077b 
0C1O02 
001004 
OOIOIO 
OOlOlb 
001022 
00102b 
001030 
0C1034 
0010*40 
0010*44 
00 1 OH b 
00105'4 



I06^b" 
003773 
lQ57b7 
100770 
105767 
100002 
00>4767 
016700 
004767 
103516 
llt702 
01b7b2 
010162 
01b700 
006720 
0b00b7 
Obb^OO 
020127 
101^03 

ui:;b7 



OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOr, 
OOOOOOG 
OOUOOOG 

OOOOOOG OOOOOOG 



CPfiGN 



CRRNW: 



CPRO^ 



SBTTL PEflD 



DFIDN: 



TSTB 


CRBFPU 


;PNY BUFFERS FOR PEPO 


BLE 


CRPGN 




TSTB 


ELPTCH 


.READ BLOCKED? 


Bni 


CRPGN 




TSTB 


PVIPEN 


;RV( PENDING? 


BPL 


CRPNU 


,N0 


JSP 


PC.nRKFiL 


;YES. MARK PLPCE IN F 


nou 


CRBOSX.RO 


, BUFFER ADDRESS 


JSR 


PC.RED% 


;READ 


BCS 


cnouT 


;A READ ERROR 


nouB 


ST0REX.R2 




nou 


CRBPSX-CnPLST'P 


2) ; STORE BUFFER 


nov 


Rl,CnCLST(P2i 


-PHD UORD COUNT 


t^o\J 


PECSI2.P0 




TST 


(RO '4> 




ADD 


PC-CPBPSy 




ADD 


CPSPSX-PO 




cnp 


PO-UCnBUFE 




BLOS 


Df ! ON 




nov 


«CnBUFl . lPBOSX 





LE 



ADDRESS 



n«0 OjnPieTt 



n»CPO nnOH Ofc-OCC-77 08 29 PAGE 9 



2HS 
2Hb 
2H7 
2H8 

2S0 

2Sl 

2S^ 
2SS 
2Sb 

2S3 
2S9 
2b C 
2b 1 

2e: 
2b: 

2bi* 
2bS 
2bb 

2b:' 

2bS 
2b9 
270 
271 
272 
Ml J 

27S 
279 

280 
281 

-'C - 

283 
28H 



OOtCS^* 005062 OOOOOOG 



OOlObO 
OOlObb 

001070 
00107^ 
0010:^6 
Q01104 
001110 

001 ii: 

00111b 

ooii:: 
0011:4 

001130 
0011 3^4 

ooim: 

001 1'+b 

001 IS4 

ooiio: 

001 lb4 
001170 
001172 
00117b 
00120: 
00120b 
001212 
00i:iH 
001220 
001222 

001224 

0012:0 
00 12 34 



122^67 
00103b 

004767 

001413 
I427b7 
1057b7 
OClOlb 
G047b7 

1061b2 
000420 
006077 
10606^ 
152:'b7 
0047b7 

ii:^b" 

ll-7b2 
0004 13 
10t3b7 
1037bl 
01b203 
0bb203 
116713 
0082b2 

gob:*:: 
c:o::- 

002401 
005002 

1 10267 

los:^:' 

lOSZc^ 



CPPC 



OOOOOOG ooooooc 



OOOOOOG 



OOOOOOG 

000040 
OOOOOOG 

OOOOOOG 
OOOOOIG 

OOOOOOG 

OOOOOOG 

000200 

OOOOOOG 

000200 

000040 OOOOOOG 

OOOOOOG CflPC5 

OOOOOOG 
OOOOOOG 
OOOOnOG 
OOOOOOG 



CfiKE 
OOOOOOG lPPlP 
OOOOOOG CPPCB 



OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 



CflPCb: 



CI5PC7: 



S8TTL 
CLP 

IF OF 
WSLB 
BCC 

ENDC 
.IF OF 
CriPB 
8NE 

ENDC 
JSP 
BEO 
BiCB 
TSTB 
BfiE 
JSP 
COMB 
BP 
CLP 
CLPB 

eisB 

JSP 

mo'jb 

rini'B 
BP 

flSLB 
6CS 

now 

ODD 

noi'B 

INC 
TST 
CMP 
BLT 
CLP 

novB 

INCB 
DEC 6 



L \h 



REOD COMPLETE 
CMFLST(R2) 
PTll 

PTENO 
CflRCS 



;WOPD rO MflPK EOF 

;END OF P iLE*^ 
.NO 



PSX 

•IE EOF,F EPP^FDBIN 

CflPC5 



PCNXTFIL 

CRPCE 

»40. TXPEN 

SWPEN 

CPPCB 

PCFSTGET 

CMFLST*1(P2) 

CflPC5 

iTPNSBLK 

PUIPEN 

•-QO.TDONE 

PC. CLOSET 

»200-ELfiTCH 

«4Q,CMFLST(R2 

COI^Cb 

E NOP EN 

CQFCfi 

CnPLST'R2).R3 

CMCLST'R2>.P3 

ITBM< (P3) 

CMCLST'P2) 

iP2^* 

P2. »CMBni^X 

CfiPC7 

P2 

P2.ST0REX 

CMBFPN 

CFBFPH 



.END OF FILE 
RNCTHEP FIL£"> 



TPPNSMIT PENDING 

/E SWITCH 

YES 

DO THE INITIAL GET 

FLAG THAT fl MODE CHANGE 



S NEEDED 



ABOPT COMMAND 

IF PEALLY FINISHED FOPGET ABOUT P'J 

CLOSE THE TRANSMIT FILE 

SET LAST BLOCK INDICATOR 



GE"' BUFFER POINTER 
F I NO END OF RECORD 
LOAD iTB 

INCREMENT 'VjEijE LOAD INDEX 

AT END OF QUEUE 

NO 

YES - F 'SET TO BEGlNNlfJG 

RESTORE UPDATED INDEa 

ANOTHER BUFFER PENDING FOP OUTPUT 



BSifNC OUTPUT 



MftCPO nnoi* Ofe-OEC-77 08 29 PAGE 10 



:3fe 

287 
288 
289 
290 
291 
292 

29S 
29b 
297 
29S 
299 

:oo 
:ot 

302 
303 
30H 
306 
206 
307 
30S 
309 
310 
311 
312 
313 
314 

31S 

:ib 

317 
31S 
31° 
320 
321 



0012^0 
0012H4 
0012^6 
001262 
001264 
00l2b0 
0012fe6 
0012^4 
001302 

001302 
001312 

001314 
001320 
001322 
001330 
00133b 

001342 
001344 
001362 
001 3bC 
0013bb 
001374 

001402 
0014i: 
0014 20 
001424 
001430 
001432 
00143^. 
001440 

ooih4: 

00N4b 



006'fe7 
001100 
1067b7 

0034^6 
llb700 
01o0b7 
OlbOb" 
llbOb:' 



100466 

I06"b0 



001437 
0127b7 
0l2^b7 
106767 

001411 
0177^7 

I62"b" 
llb''b7 
Ilb7t37 

14:^67 

1063b7 

i06:b:' 
006:^:0 
02002:' 

002401 
006000 
1 lU0b7 
000167 



000004G 

OOOOOOG 

OOOOOOG 

OOOOOOG 000002U 

OOOOOOG 00CCC4G 

OOOOOOG OOOOOIG 



OOOOOIG 

OOOOOOG OOOOOOG 
OOOOOnG 000130 
OOOOOOG 



cnouT 



CMOU^l 



F OF 
F OF 



OOOOOOG OOOOOOG 
OOOOOOG 000 10b 
0000^0 OOOOOOG 
OOOOOOG 000003C 10% 
OOOOOOG Q00002G 

000010 OOOOnOG 
OOOOOOG 20%- 
OOOOOOG 

OOOOOOG 



OOOOOOG 



CM0UT2 

CMOUTX 



SBTTL 
GLOBL 
TST 

BNE 
TSTB 

ble 

nouB 

nov 

MOU 

rio>/B 

- G i i/E 

PUTD 
Bni 

TSTB 
6EQ 

noi' 

liOu 
RSX 
PT11 
B£y 

nou 

6 I SB 
nouB 
novB 

PUTTC 

BiCB 

de-:b 

INCB 

TST 

CMP 

BLT 
CLP 
MOVE 
J MP 



n tb 



BISYNC OUTPUT 

MEOTS-EOTSEQ-B 

CnPflR♦^ 

cnouTx 

CMBFPN 

cnouTx 

P»INTX,RO 

cnPLST(P0)<cnpfiP>2 

CnCLSTfROKCnPQP^i* 
CMFLSTfPO'.CnPOP*! 



NEOTSTEQn.ENflPfiP BiNTTO 
.PUTD TO BiS'rNC flCTuE'' 



GET QUEUE UNLOfiC iNDEX 

,GET BUFFEP flDDPESS 
;flNO BYTE COur^T 



BUFFER TO 
CMPQP 
CnOUTX 



B I SYNC TfiP 



EOTSEQ 

STEon 

SUTBN 
SWPEN 

EOTSEQ 
STEsir 



CMFLST^liPQ) 

2C^ 

•XEOTS 

I^STEQ. 

TSTB 

T^TB 

10% 

»B!NEOT 

«BiNTTD 

»3C. FLOGS 

CODE ENBPflP*3 

FLPGS-ENBPflR>2 

EUBPPP 

MO-FlOGS 

CnBFPN 

CPBFQU 

I P I ♦ 

F0-»CnBMOX 

CnOUT2 

PC 

PO PPIKTX 

CPPGN 



; AGP IN AFTER X-HIT DONE 
; IS noOE CHANGE NEEDED'^ 

,SET FOP NORriAL EOT SEQUENCE 
■AND NORMAL TTD SEQUENCE 
.BINARY TRAN"MrSlON REQUESTED"* 

; BINARY TRANSMISSION REQUESTED^ 
-NO ALL 0\^ 

YES UEE BINARY EOT 
-AND BINPRY TTD S^'jUENCE 
:USE NATM/E MODE 
■USE STATUS OPTION 
-SET CURRENT OPTIONS SETTINGS 
^ CALL TAP 
-CLEAR NATIVE MODE SELECT 

.BUFFtP FREE FOP INPUT 
; I NCR QUEUE UNLOAD INDEX 
AT END OF QUEUE"* 
- NO 

;YES - RESET TO BEGINNING 
.UPDATE INDEX 



e 


\ 


PCSPSX 


J 


S 


MP HP NT 


E 


10 


COMTEX 


M 


14 


SCIP 


c 


\ 


PCSPSX 


K 


6 


MPKPNT 


F 


IC 


PECEIU 


N 


m 


SCiP 







PC'iPS< 


L 


5 


MPKPNT 


G 


10 


PECEiV 


B 


IS 


SCiP 


i 




PlSPSV 


n 


S 


COMTEX 


H 


10 


PECEIV 


C 


IS 


SC'f» 


F 




PCSPS:^ 


N 


s 


INITPL 


1 
1 


10 


PECEIV 





IS 


SCIP 


G 




PCSPSX 


B 


b 


COMTEX 


J 


10 


PECEIU 


E 


IS 


SCIP 


H 




PCSP^X 


r 


h 


COMTEK 


K 


10 


PECEll 


F 


IS 


SCiP 


t 




P'lSPsy 


D 


t 


mnAL 


L 


10 


PECEIU 


G 


IS 


UPiTE 


4 




p'.spsy 


E 


b 


INlTflL 


M 


10 


PECEIU 


H 


IS 


UPiTE 


% 




PCSPSX 


F 


b 


INITPL 


N 


10 


PECEIU 


1 


IS 


UPiTE 


I 




p<:sps^ 


G 


b 


INlTfiL 


8 




PECEIU 


J 


IS 


UPITE 


H 




PCSPSX 


H 


b 


INITPL 


C 




PECEIU 


K ] 


IS 


UPITE 


M 




PCSPSX 


1 


b 


INI TPl 


D 




PECEIU 


L 


s 


UPITE 


e 




PCSPSX 


J 


b 


INITPL 


E 




PECEIU 


M 1 


IS 


UPlTE 


c 


•> 


PCSPSX 


K 


b 


INITPL 


F 




PECEIU 


N ' 


5 


UPITE 


D 


2 


PCSPSX 


L 


b 


INITPL 


G 




"ECEn/ 


B 1 


lb 


COMTEX 


i 


4> 


PCSPSX 


M 


b 


INITPL 


H 




PECU 


C 1 


lb 


TPPNSM 


f 




PCSPSX 


r^ 


b 


nxTF;l 


1 




PECU 


D 


lb 


COMTEX 


G 




Get 


6 


7 


NXTF IL 


J 




PECU 


E 1 


b 


COMTEX 


H 


4> 


OCT 


C 


7 


nxtfil 


► 




PECU 


F 


b 


TPPNSM 


1 


2 


GET 





7 


NXTFIL 


k. 




PSXMC 


G 1 


b 


TPPNSM 


J 


"7 


GET 


E 


•% 


NXTF !L 


M 




PSXMC 


H 


lb 


TPPNSM 


►. 


z 


GET 


F 


f 


NXTF IL 


N 




PS.'MC 


1 1 


b 


TPPNSM 


I 


2 


GET 


G 


7 


NXTFIL 


B 


I *« 


PSXMC 


J 1 


b 


TPPNSM 


M 


m 
^ 


GET 


H 


•^ 
( 


PPPSE 


C 


i «w 


PSXMC 


K 1 


b 


TPPNSM 


U 


^ 


GET 


1 


•» 
r 


PPPSE 


D 


1 2 


PSXMC 


L 1 


b 


tppn:m 


B 




GET 


J 


^ 
/ 


PPPSE 


F 


[ ^ 


SCP3:: 


M ' 


t. 


TPPNSM 


(' 


7 


GET 


K 


-» 


PPPSE 


F 


t *tf 


SCP3:: 








6 


J. 


GET 


L 


T 


PPPSE 


G 


t mm 


scp::: 








e 


3 


GET 


M 


•7 


PPPSE 


H 


1 "^ 


scpz:: 








F 


7 
■J 


MR IN. 


N 


■^ 


PPPSE 


1 




SCP3:2 








G 


7 


INTHND 


e 


s 


PPPSE 


J 


12 


SCP322 








H 


3 


1 NTHNO 


c 


3 


QUEHPN 


K ^ 


^ 


SCP322 








1 


7 


INTMND 


D 


£ 


QUEHPN 


L ' 


^ 


scp::: 








J 




irrKND 


E 


c 


QUEHPN 


M ] 




SCP3:: 








K 




INTHND 


F 


S 


QUEHPN 


H 1 


'-> 


SCP322 








L 


i-/ 


INTHND 


G 


c 

w 


QUEHPN 


3 1 


7 


SCP 322 








M 


7 


INTHND 


H 


S 


QUEHPN 


1' 


■^ 
\ 

w 


SCP3:: 








N 


7 


1 NTHND 


1 


8 


PPDC' 


D 1 


^ 


SCP3:: 








B 


u 


irjTHND 


J 


w 


PPDCV 


E 1 


■^ 
1 

w 


SCP3:: 








C 


H 


. hHIN 


K 


S 


PPDCX 


F ] 


■» 


scp::: 








D 


H 


INTHND 


L 


S 


PPDCX 


G 1 


w 


SCP3:: 








e 


^ 


INTHND 


M 


s 


PPDCX 


H ] 


3 


scp::: 








F 


^ 


INTHND 


U 




PPDCX 


1 1 


7 


SCP322 








G 


^ 


ir^THND 


B 


9 


PPDOUT 


J ' 


- 


scp::: 








H 


u 


1 NTHND 


C 


9 


PPDOUT 


K. ] 


3 


':CP322 








1 


H 


INTHND 


D 


9 


PPDOUT 


L 1 


3 


SCP322 








J 


^ 


INTHND 


E 


9 


PPDOUT 


M 1 


3 


scp::: 








K 


'» 


INTHND 


F 


9 


PPDOUT 


U ] 


3 


SCP3:2 








L 


M 


INTHND 


G 


9 


PPDOUT 


B 1 


^ 


rcP3:: 








n 


^ 


LOOKUP 


H 


9 


RfPD 


C 1 


^ 


SCP322 








N 


^ 


LOOKUP 


1 


9 


PEPD 


D 1 


u 


sci-3:2 








B 


5 


LOOKUP 


J 


Q 


REPD 


E 1 


H 


scp::: 








(' 


6 


LOOKUP 


K 


9 


PEPD 


F 1 


u 


scp::: 








D 


6 


LOOKUP 


L 


9 


PEPD 


G 1 


4 


SCP322 








C 


5 


LOOKUP 


M 


q 


PEPD 


H 1 


H 


SCP3:2 








r 


5 


LOOKUP 


N 


Q 


REPD 


1 ! 


H 


SCP3:: 








G 


6 


MPKPNT 


e 


16 


COMTEX 


J 1 


^ 


SCP3:2 








H 


5 


MPKPNT 


r 


10 


PECEIU 


K ] 


4 


SCP3:: 








1 


6 


MPKPNT 


D 


10 


COMTEX 


l_ ] 


u 


■'.''p >:: 









TRQNSniT 



BLOCKS 



nflCRO nnOH Ofe-DEC-77 08:29 PPGE 11 



B 1 



32H 

!:s 

^ •, ^ 

328 
32S 
330 
331 

332 

777 

•f . -r 

334 
33S 
33b 



ooms'^ 

001453 
001 =.6 

oomoO 

OGlHbl 
001462 
001464 



SBTTL PRROriETER BLOCKS 



OOOG 
100 
OOOOOOG 
000001 

OOOG 
100 
001466' 
000002 



EOTPflR: 



STXEQ: 



. BYTE 
. BYTE 
. WORD 
. WORD 

. BYTE 
. BYTE 
. UOPD 
. WORD 



BflSELN 
100 

EOTSEQ 
1 

BRSELN 

100 

^TEQn 



001466 01 



OG 



STEQI1: 



WORD XSTEQ 



TPPNSMiT 
COMS'rpNT 


DflTR fl 


riRCPO 
PER 


nuoH 


338 
33? 

340 ( 

3m 


30m70 


077.'21 
000001 





06-DEC-77 08; 29 PRGE 12 



C I 



. SBTTL CONSTRNT DRTfl RRER 

QIRRN: . PRD50 'TRR' 
. END 



TPPINSniT MflCRO nilG'-i 06 


-DEC-77 08: 


29 PRGE 12-1 





I 














SVPBOL 


TRBLE 


























PPNO 


OOOIOHR 


002 


cnouT2 


0GmM2R 


002 F. ERR = 


tttttt GX 




NRCVSFs 


OCGOOO 




TRGE5 


000060R 


003 


BRSELN= 


tttnt G 




CnPRR = 


xixx-rx G 


GETENT- 


tttttt G 




NTRNSFs 


000002 




TRGNUri: 


G00005 




BlNEOT= 


tttttt G 




CnPLST= 


tttnt G 


GORBRT 


OQOdSHRG 


002 


NXTFILs 


tttttt G 




TRGl 


OGOOOOR 


003 


eiNST 


00037^R 


002 


CODE = 


tttttt G 


60RBT1 


000S2bR 


002 


OFFHRNs 


tttttt G 




TRG2 


OOGOOJR 


003 


BINTTD= 


titnt G 




COEND 


GG0302R 


002 GOGl 


000120R 


002 


PRINTXs 


tttttt G 




TRG3 


00002^9 


003 


CflRC 


OOIOBHR 


002 


CRfiGN 


G007HHR 


002 GOJMP 


000056R 


002 


PR0f1PT= 


tttttt GX 




TRG^ 


G0G03UR 


003 


CQPCP 


00n34R 


002 


CRPNU 


G00772R 


002 GOJMPl 


0001 lOR 


002 


QnODE - 


tttttt G 




TRC5 


OOOOHIR 


003 


COPCB 


ooimfeR 


002 


CRfiOK 


001G04R 


002 G0JnP2 


oooimR 


002 


QTRRN 


00m70RG 


002 


TDONE = 


tttttt G 




Cfir.E 


00n24P 


002 


CRBRSX= 


tttttt G 


IE. EOF = 


tttttt GX 




RCVBLK= 


tttttt G 




TERT 


000576R 


002 


lPPCS 


OOllfeHR 


002 


CRBFRV= 


tttttt G 


INITF = 


tttttt G 




RECSIZ= 


tttttt G 




TERl 


00062GRG 


002 


:qpc6 


P01212R 
t!01224R 


002 


CRPGN 


00P7H0R 


'^02 lOERR = 


tttttt G 




RED5 = 


tttttt G 




TER2 


0006HHR 


002 


''-fipcr 


002 


OF ION 


G0105HR 


002 ITBn : 


tttttt G 




RSX = 


000001 




TOT 


000666R 


002 


IHDFIX 


OGOmfeR 


002 


ELflTCH= 


tttttt G 


MRSTD 


000324R 


002 


Rsxnri= 


000001 




TRNC 


000474R 


002 


CLOSEP= 


****** G 




EnTPUT= 


tttttt GX 


riRXTD 


000264R 


002 


RVIPEN= 


tttttt G 




TRNSBL= 


tttttt 6 




■ILOSET- 


****** G 




ENBPRR= 


tttttt G 


nriRS 


000366R 


002 


STEOn 


G0m66RG 


002 


TURNRRs 


tttttt G 




•:r!BFPN= 


****** G 




ENDPEN= 


tttttt G 


MODE = 


tttttt G 




STOREX= 


tttttt G 




TVR3 = 


tttttt G 




■:r riPX= 


ittUt G 




ENTRY = 


tttttt G 


nRKFlL= 


**:**:** G 




STXEQ 


G0m60R 


002 


TXPEf: = 


tttttt G 




•;mbufe = 


****** G 




EOTFLG= 


tttttt G 


nSGDON 


OCOOOOPG 


002 


SURBN r 


tttttt G 




TYPMSG= 


tttttt GX 




CMBUFl^ 


****** G 




EOTPflR 


00mB2R 


002 nSGTP2 


00012HR 


002 


SWREN = 


tttttt G 




XEOTS = 


tttttt G 




CnCLST= 


****** G 




EOTPEN= 


**«*«* G 


nSGTC 


0001b2R 


002 


SWTBN = 


tttttt GX 




XFEREN= 


tttttt G 




C^if^LSTr 


****** G 




EOTSEQ= 


****** G 


MSGTD 


000234R 


002 


TRGEl 


G00003R 


003 


XriTERR= 


tttttt G 




cncuT 


0012H0R 


002 


FDBIN = 


****** GX 


nSTGl 


0003H2R 


002 


TRGE2 


G00020R 


003 


XSTEQ = 


****** G 




cnouTx 


0Gl4HbR 


002 


FLRGS = 


****** G 


NMES 


Gr0230R 


002 


TflGE3 


000030R 


003 


XXX 


000570R 


002 


CMOUTl 


OO1302R 


002 


FSTGET= 


****** G 


NOTPNS 


00G724R 


UQ2 


TflGE4 


oooomR 


003 








flBS. 


GGOOOG 
000000 


OUO 
001 
























MO IN 


001472 


002 
























riESflG2 


OOOOBO 


003 
























ERRORS 


DETECTED: 




























VIRTUfiL MEMORY USED: 1335 UOPDS 
DYNRMIC MEMORY: 2S10 WORDS t 10 
ELRPSED TIME: 00: 00: 25 
256.020 TPNSMT;27.. 256.030 TRNSMT/CRF/-SF = IJ«PRXM, CTXMRC - TRNSflT 



( 6 PAGES) 
PAGES 1 



TPNSni 


CREATED BY 


fIRCRO ON 6 


-DEC-77 RT 


08: 30 


E 
PRGE 1 


1 


SvriBOL 


CROSS REFERENCE 








CREF 




SYMBOL 


VRLUE 




REFERENCES 










RRND 


OOOIOH 


R 


5-90 


5-93 


«5-95 






BRSELN 


= tnttt 


G 


5-68 


11-326 


11-331 






BIN^OT 


- tnttt 


G 


F-62 


6-167 


10-287 


10-308 




Bl, oT 


00037H 


R 


b-162 


«6-166 








BINTTD 


= tttttt 


3 


6-168 


10-287 


10-309 






CRRC 


ool05^ 


R 


«9-2H6 










CflPCR 


Gon 3^ 


R 


«9-265 


9-271 


4 






CRPCB 


GOime 


R 


9-259 


«9-267 








CRPCE 


0011 2H 


R 


9-256 


«9-263 








lPPCB 


OOllfe^ 


R 


9-253 


9-262 


«9-270 






■■-ftPCb 


001212 


R 


9-269 


«9-276 








'".RPC? 


00122H 


R 


9-278 


«9-281 








:hdfiv 


ooomb 


R 


6-161 


6-165 


86-169 






■: LOSER 


: tttttt 


G 


6-62 


6-208 








CLOSET 


= tttttt 


G 


5-69 


5-135 


6-199 


9-266 




'inBFPN 


= tttttt 


G 


5-67 


*9-282 


10-290 


*10-315 




CMBMfiX 


= tttttt 


G 


5-67 


9-277 


10-318 






CMBUFE 


= tttttt 


G 


5-66 


3-240 








CMBUn 


= tttttt 


G 


5-6S 


8-242 








CMCLST 


^ 'r ^ " ^r "^ ^r 


G 


5-65 


*8-235 


9-273 


*9-27b 


10-294 


CriFLST 


= tttttt 


G 


5-66 


*9-246 


*9-261 


^^9-268 


10-295 10-301 


cnouT 


0012HO 


R 


5-129 


S-232 


«1 0-288 






cnouTx 


oomHb 


R 


10-2S9 


10-291 


10-299 


«10-322 




cnouTi 


001302 


R 


»10-296 










CnOUT2 


00mH2 


R 


10-319 


«10-321 








CnPRR 


^* ^n "r " '^ ^r 


G 


5-62 


*5-12S 


10-288 


*10-293 


*!0-294 *10-295 


CMPLST 


= ****** 


G 


5-65 


*S-234 


9-272 


10-293 




CODE 


= ****** 


G 


5-64 


6-171 


10-311 






COEND 


000302 


R 


«5-13H 


5-14S 








CRRGN 


0007HH 


R 


6-182 


M C '"^ ^7 7 


10-322 






CRRNW 


000772 


R 


S-22S 


«8-230 








CRflOK 


G0100^ 


R 


«S-233 










CRBRSX 


= ****** 


G 


5-65 


S-230 


8-234 


*8-238 


8-239 18-242 


CRBFflV 


= ****** 


G 


5-64 


*6-lSl 


8-223 


*9-283 


*10-3lb 


CRPGN 


0007140 


R 


6-216 


»6-2:s 


8-224 


8-226 




DFIDN 


0010514 


R 


s-2m 


«S-243 








ELRTCH 


****** 


G 


5-60 


*5-91 


8-225 


*9-267 




EMTPUT 


= ****** 


GX 


5-123 


6-172 


6-195 


10-298 


10-313 


ENBPhf? 


= ****** 


6 


5-63 


*6-169 


*6-170 


*b-171 


b-172 10-287 


E NOP EN 


= ****** 


G 


5-61 


*5-103 


*9-270 






ENTRY 


= tttitt 


G 


5-59 


5-71. 








EOTFLG 


= ****** 


G 


5-59 


*5-S6 








EOTPRR 


00mB2 


R 


6-195 


«1 1-326 








EOTPEN 


= ****** 


G 


5-59 


*5-S4 


*6-2ll 






EOTSEQ 


= ****** 


G 


5-63 


*6-lb7 


10-287 


*10-3G3 


*10-30S 11-328 


FDBIN 


= ****** 


GX 


9-252 










FLRGS 


= ****** 


G 


5-59 


5-77 


5-142 


*6-153 


6-158 *b-lbb 








*6-212 


*10-310 


10-312 


*10-314 




FSTGET 


= ****** 


G 


5-67 


9-260 








F. ERR 


= ****** 


GX 


9-252 










GETENT 


= ****** 


G 


5-Gl 


5-100 


5-125 


6-177 


6-218 


GORBPT 


00055M 


RG 


c;-QS 


5-146 


6-185 


b-lS9 


nb-192 



10-298 



riO-311 



*10-312 



10-313 



6-170 



*6-173 



6-175 



TPNSMT 




CREATED BY 


MflCRO ON 6 


-DEC-77 RT 


08: 30 


F 
PRGE 2 


1 








SVnBOL 


CROSS REFERENCE 








CREF 










SYMBOL 


VRLUE 




REFERENCES 
















GORBTl 




000526 


R 


5-97 


86-187 














GOGl 




000120 


R 


5-78 


85-100 


5-127 












GO J MP 




000056 


R 


5-87 


85-89 














GO J MP I 




ooono 


R 


5-83 


85-97 














G0.JMP2 




oooim 


R 


5-80 


85-98 














IE. EOF 


= 


tttttt 


GX 


9-252 
















1 N 1 TK 


= 


tttttt 


G 


5-59 


5-75 


*6-174 


*6-215 










lOERP 


r 


tttttt 


G 


5-61 


«5-121 














ITBM 


= 


tttttt 


G 


5-62 


9-274 














MPSTD 




00032^ 


R 


5-76 


85-142 














nRVTc, 




0C026H 


R 


5-122 


85-126 














nriRS 




000366 


R 


6-159 


86-163 














MODE 


= 


tttttt 


G 


5-62 


5-126 


»b-i7S 


6-197 


6-206 


«6- 


213 




nPKFlL 


r 


tttttt 


G 


5-69 


8-229 














nsGDor^ 




000000 


RG 


5-59 


85-74 














nsGTR: 




000124 


R 


5-85 


85-101 














nSGTC 




0001b2 


R 


5-102 


85-109 














nSGTD 




000234 


R 


5-110 


85-121 














MSTGl 




000342 


R 


5-143 


86-353 














NMES 




000230 


R 


5-113 


5-115 


85-11? 












NOTRNS 




000724 


R 


6-196 


86-217 














NRCVSF 


= 


000000 




«l-5 
















NTRNSF 


r 


000002 




»l-4 
















NXTFIL 


r 


tttttt 


G 


5-66 


9-255 














OFF HON 


= 


tttttt 


G 


5-60 


5-88 














PRINTX 


= 


tttttt 


G 


5-67 


6-214 


10-292 


*10-321 










PROnPT 


s 


tttttt 


GX 


5-105 


5-1 IS 


b-190 


6-193 


6-217 








QMODE 


r 


tttttt 


G 


5-64 


*6-lS0 














QTRRN 




001470 


RG 


5-64 


b-lSO 


812-340 












RCVBLK 


- 


tttttt 


G 


5-68 


6-209 














RECSI2 


- 


tttttt 


G 


5-66 


8-236 














REDS 


z 


tttttt 


G 


5-65 


8-231 














RSX 


r 


000001 




81-2 


4-45 


b-157 


6-209 


9-251 


10 


-305 




RSXllM 


z 


000001 




81-3 
















RTll 


= 


tttttt 




4-48 


5-70 


6-154 


6-210 


9-247 


10 


-306 




RUIPEN 


~ 


tttttt 


G 


5-61 


5-92 


*5-104 


*5-llb 


*5-136 


6- 


202 S-: 


127 *9-264 


STEQM 




001466 


RG 


*6-168 


10-287 


*10-304 


*10-309 


11-333 


811 


-336 




STOREX 


= 


tttttt 


G 


5-65 


*6-214 


8-233 


t9-2Sl 










STXEQ 




001460 


R 


5-123 


811-331 














SURBN 


= 


tttttt 


G 


5-63 


6-160 














SUIREN 


- 


tttttt 


G 


5-67 


9-258 














SWTBN 


z 


tttttt 


GX 


6-163 


10-305 














TflGEl 




000003 


R 


5-105 


85-105 














TflGEZ 




000020 


R 


5-118 


85-118 














TRGE3 




000030 


R 


6-190 


86-190 














TRGE4 




000041 


R 


6-193 


86-193 














TflGEB 




000050 


R 


6-217 


86-217 














TRGNUM 


= 


000005 




81-8 


*5-105 


85-105 


5-105 


5-ns 


85- 


lis 5-118 6-190 










b-190 


6-193 


86-193 


b-193 


6-217 


8b- 


217 b-2 


:i7 


TRGl 




000000 


R 


5-105 


5-105 


85-105 












TRG2 




000003 


R 


5-118 


5-118 


85-118 












TRGJ 




000020 


R 


6-190 


6- 1 90 


86-190 













86-190 



TPNSMT 


CPERTED BY 


MACRO ON 6 


-DEC-77 AT 


08 30 


G 1 
PfiGE 3 


SYMBOL 


CPOSS REFERENCE 








CREF 




SYMBOL 


\/RLUE 




REFERENCES 










TfiG4 


G0G03O 


R 


6-l«J3 


6-193 


»o-193 






TRGS 


OOGOm 


R 


6-217 


6-217 


116-217 






TO ONE 


= tttttt 


G 


5-60 


*5-89 


B-111 


*6-19H 


6-200 


TEPT 


000B76 


R 


5-120 


116-195 








TEPl 


000620 


RG 


6-185 


<I6-199 








^EP2 


0006H14 


R 


6-198 


«6-206 








TOT 


000666 


R 


6-201 


6-203 


6-207 


«6-211 




TPNC 


000H7H 


R 


6-l"'<^ 


116-178 








TPNSBL 


= ****** 


G 


5-6H 


6-205 


9-263 






TUP MAP 


= ****** 


G 


5-63 


5-95 


5-137 






^•iRB 


= ****** 


G 


5-60 


«5-79 


*5-12M 






TXPEN 


= ****** 


G 


5-62 


*5-9^ 


5-114 


*5-13H 


*6-179 


TYPMSG 


= ****** 


GX 


5-105 


5-118 


6-190 


b-193 


6-217 


■'EOTS 


= ****** 


G 


10-237 


10-303 








'FEPEN 


= ****** 


G 


5-68 


6-169 








•MTEPP 


= ****** 


G 


5-fcS 


*5-81 








XSTEQ 


= ****** 


G 


5-toS 


10-30^ 


11-336 






y.y.x 


O00S7O 


P 


6-191 


«o-19H 









19-265 



*9-257 



TPNSnT 


IPERTEO BY 


MRCRO ON 6- 


•DEC-77 AT 08: 30 PRGE 


H I 




Mprpo CPOSS 


PEFERENCE 




CREF 






MPrPO NRHE 


REFEPENCES 








RSPBUF 


<I3-?S 










EPPOR 


»l-9 


5-105 


5-118 6-190 


6-193 


6-217 


EPPOPK 


«l-lfe 


5-105 


5-118 6-190 


6-193 


6-217 


EPPOPn 


i;i-32 










E«'=^OPP 


81-^7 










FQTPL 


«l-53 










GETS 


«3-H3 










L INIT 


«3-23 










PIJTD 


«3-52 


5-123 


6-195 10-298 






PUTnC 


83-3S 










PUTTC 


^Z-ZJ 


»6-172 


MO-313 






PUTTT1 


;3-H7 











CONFIG riRCPo nno^ os-dec-?? n-34 

TPBLE OF CONTENTS 





HH 


MflCRO CALLS TO RSX 


n 


51 


MfiCRO DEFINITIONS 


k- 


s: 


QIC AND FOB PLOCKS 


5- 


100 


START OF CODE 


fe- 


132 


ASK FOR VECTOR ADDRESS 




167 


ASK FOR DEVICE ADDRESS 


S- 


1S3 


ASK FOR DEVICE PRIORITY 


Q- 


19S 


ASK FOR LINE BAUD RATE 


10- 




UPITE AND EVENT FLAGS SUBPOUT 


ll- 


262 


TABLES 



NE 



J 1 

:r<F!G MRCPO nnOH 08-DEC-77 11: 3H PfiGEl 

TITLE CONFIG 
. I DENT /0000^/ 



t 




2 




3 




^ 




S 




^ 




7 




8 




9 




m 




.1 




U 




m 




15 




t6 




17 




18 




t9 




20 




21 




22 




23 




24 




26 




2b 




17 




28 




2? 




30 




31 




32 




-^J 




]H 


177776 


35 


OOOOOG 


3b 


OOUOOl 


Z7 


000002 


3S 


000003 


39 


0000G4 


HO 


000005 


41 


OOOOOb 


42 


000007 



BPTCH CONFlGURflTOR FOR THE RSX-ll 2780 

COPYRIGHT (C) 1975 

DIGITRL EQUIPMENT CORPORATION. nflYNflRD, MASS. CI 754 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONL V ON 
fl SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY UITH 
THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS 
SOFTWARE. OR ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED 
OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 
EXCEPT FOR use ON SUCH SYSTEM AND TO ONE WHO AGREES TO 
THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF THE 
SOFTWARE SHALL AT ALL TIME:) REMAIN IN DEC. 

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE 
WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COM- 
MITMENT BY DIGITAL EQUIPMENT CORPORATION. 

DEC ASSUMES NO RESFONS IB I L rY FOR THE USE OR PELIPBILITY 
OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY 
DEC. 

JULY S, 1974 

BY LOUISE GERHART 

\/00-2 9/25/74 PHR 
VnO-3 b IS/75 PHR 



DET ; NIT IONS 


OF 


REGISTERS 


PS=l77:'7b 






R0 = *'.0 






Rl = :<l 






R2 = '/.2 






R3=-i3 






R4 = v.^ 






R5 = *.5 






SP = *ib 






PC = 47 







K 1 

CONFIG MflCPO nnOH 08-DEC-77 11: 3^ PfiGE 2 

MOCPO •'.RLLS TO PSX 

^'J . SBTTL HflCRO CRLLS TO RSX 

^^ nCOLL FD0FFl,rCSBT5.FIN'T$,GMCR$ 

^' .MCRLL OPENSW,PUTS.CLOSF$ 

^S .MCRLL F0BOF%,FDfiT4fi,FDRC5fl.FDOP5fi, FSRSZS 

•^9 .MCRLL NriBLKS.QI05.DlR5.WTSE$S.CLEF5S,E,yiTiS 



CONF iG riKPO nnoH 

MPCRO C'EF NIT IONS 



08-0EC-77 11: 3^ PRGE 3 



L I 



SI 
S2 
S7 

5B 
Bb 
57 
58 
59 
60 
-.1 

b: 

b3 
bH 
65 
bb 
67 
6S 
69 
70 
71 



7Z 
7H 
75 
7b 

■7"' 

7S 
79 
SO 



SBTTL MRCPO DEFINITIONS 



000000 



t ; 


MESSRGE 


nflCRO 


* 


TO PRINT MESSRGES 




TflGNUn= 







. nOCRO 


neSSPG TEXT 




TflGNUfIs 


TPGNUM*! 




. IPP 


N, < TRGNUM) 




nov 


HTflG'N, QDPBM+Q. lOPL 




MOV 


«TflGE'N-TflG'N.QDPBM+Q. 




JSP 


PCEVTFLGS 




. PSECT 


MESSflG 


TflG'N: 


. flSCi 1 


"te,:t" 




. ASCII 


/"'/ 


TRGE ' N: 








. PSECT 


flfifl 




. ENDM 






. ENDM 






. nflCRO 


EPROP TEXT 




TflGNUn= 


TfiGNUM+1 




. IPP 


N. < Ti^GNLIM; 




nov 


«TflG'N,QDPBn"^ OPL 




nov 


«TflGE"N-TflG'N.QUPBM+0. 




JSP 


PCOUPUT 




. PSECT 


MESSflG 


TPG'N: 


. OSCII 


/TEXT/ 


TRGE'N- 








. PSECT 


PRO 




. ENDM 






. ENDM 





OPL + 2 



OPl-^2 



M 



CONF IG 


Mflcpo nnoH 08- 


QIC fiND 


FDB BLOCKS 


82 






83 


OOOCOO 




8H 






£5 


000000 




Sfe 


000030 




87 


OOOObO 




S8 




0000b2* 


89 






90 


000202 




91 


0003H2 






00034 2 




93 


000342 




94 


00034 2 




95 


000400 




9b 


0004 36 




q^ 






9S 


UOOOOO 





08-DEC-77 11: 34 PRGE 4 



QDPBfl: 
QDPBR. 
CMDlN: 



CnOFDB: 



DFNBLK 
DFNB2: 



OSTB: 



n 1 



. SBTTL QIO AND FOB BLOCKS 
. PSECT RRF« 

0105 10. ULB, U U..,, <.,40> 

QI05 10. RLB,L2,, I OSTB,. <KBIBUF,8C. ,> 

GnCPS 

KBIBUF = CnDLN+G. ^-.^B 



FDBDFS 
FDflTSfl 
FDPCSfl 
FDOPSfl 
NMBLKS 
NMBLKS 
FSPSZS 

. BLKW 



R. VflR,FD, CP 

3..DFNBLK 
PJP-CriD.,SY,G 

cpup.nfic. .SY-o 
1 



I/O STATUS BLOCK 



N^ I 



CONFIG MRCHC 
STfiRT OF CODE 



nnOH O8-DEC-77 11; 3H PPGE 5 



N 1 



100 










. SBTTL 


«^TflRT OF CODE 




101 000H3G 










PSECT 


RRP 




102 00DH36 








STRRT 








103 000H3b 










FINIT5 






104 O0OH42 


012700 


000202' 






MOl/ 


»CnDFDB.RO 


;GET FOB FOR COMMPND FILE 


lOS 000HH6 










0PEN5W 




;OPEN FOR WRITE 


1Gb OOOH60 


103451 








BCS 


ERRl 




107 000Hb2 


012704 


0000b2' 






MOV 


ffKBlBUF,R4 




lOS 








;RSK 


UHETER SHE 


HAS fl DU OR DP 




109 OOOHbfe 








QUSl: 


MESSRG 


<DP OR DU> 




110 OOOSOb 


022714 


050104 






crip 


8"DP,(R4) 


; 1 S 1 T P DP 


111 O00B12 


001015 








BNE 


105 


;N0 


112 0006m 


0127bO 


000257' 


00002b 




MOU 


SDPCMD.F. NReD + 


2(R0) 


113 000S22 


012701 


0002b5' 






nou 


»LINE2fl.Rl 


.REPLACE LINE 2 WITH LINE 


im 00052b 


012702 


000177' 






MOV 


?5LINE2,R2 


/ . . . 


115 000532 


012703 


000007 






nov 


8LINE2E,R3 


; LENGTH OF LINE 2R 


lib 00053b 


112122 






55: 


MOVE 


(PP+. (R2^ + 


/ . . . 


M7 C005HO 


G05303 








DEC 


R3 




lis 0005H2 


001375 








BNE 


5f 


;G0 FOR ALL CHflPflCTEPS 


119 0005H4 


n0040b 








BP 


205 




120 DOCBHb 


022:^14 


052504 




105; 


CMP 


?"Dli (R4) 


; IS IT fl DU 


121 000552 


001345 








BNE 


QUS 


;WELL THEN UHRT IS IT 


122 00055H 


ni27b0 


0002b2' 


000026 




MOV 


nDUCMD.F. NPBD+ 


2(^0) 


123 0005b2 


012760 


000003 


nnnn -L4 


205: 


MOV 


nZ r. NPBD'PO) 


.3 BYTE RECORD 


12H 000570 










PUT5 




: WP 1 TE 


125 00057^ 


10 3413 








BCS 


EPP3 


; WRITE EPPOP 


12b 00057b 










CLOSES 




; CLOSE THE FILE 


127 000b02 

12s 

129 OOObOH 


103012 








BCC 


QUS3 


; CLOSE ERROR 








EP?1: 


EPPOP 


<OPEN rpiLURE) 


; PRINT EPPOP MESSPGE 


130 0C0b24 


0001 b7 


000516 




EPP3. 


J MP 


EPP2 





CONF ,G MflCPO nnoH 
START OF CODE 



08-DEC-77 11; m PfiGE 6 



B 2 



132 
133 
13^ 
13B 
136 
137 
138 
139 
1^0 
141 

m2 
m3 

IHH 

ms 

IHfe 
147 
148 
149 
160 
151 
152 
153 
154 
155 



000630 
000634 
000636 
000644 
000664 
000670 
000672 
000676 
000700 
000704 
Cu0706 
00G712 
000714 
000720 
000722 
000734 
000736 
000742 
000:^46 
000^50 
00075: 
00075U 



0UV04 
01C405 
012r6C 

122714 
0CJ357 
122" 24 
002754 
122714 
002751 
122724 
003346 
122724 
00134 3 

103723 
012701 
012703 
112523 
112523 
112523 
004:^67 noi:34b 



000062' 

U00400' 000046 

000063 

000067 

000067 

000060 

000060 



001456' 
00G174' 



QUS3: 



. SBTTL 


flSK FOR VECTOR Ht 


nov 


»KBIBUF.R4 


noi' 


R4,R5 


MOW 


8DFNB2,F. DFN6(R0 


riESSflG 


(VECTOR ADDRESS) 


CMPB 


8'3,(R4) 


BGi 


QUS3 


cnPB 


»'7,(R4) + 


BLT 


Ql i3 


cnPB 


«'7,{R4) 


BLT 


QUS3 


CMPB 


«'0. (R4)+ ; 


BGT 


QUS3 


CnPB 


;*0,(R4)+ ; 


BNE 


QUS3 


OPEN%;j 




BCS 


ERRl ; 


nov 


«FILE<R1 ; 


MOU 


nVECT,P3 


novB 


f R 5 .1 + - C R 3 ) -^ ; 


novB 


kR5i+. fR3^+ 


nouB 


iR5j + - i.?3) + 


JSR 


PC WRITE ; 



nODRESS 

SAVE ADDRESS OF TTY 
; DEFAULT FILE BLOCK 



NPUT 



;ASK FOR VECTOR ADDRESS 

IS IT LESS THAN THREE'^ 

Yc3/ ILLEGAL ADDRESS 

IS IT A LESS THAK SEVEN^ 

YES, ILLEGAL ADDRESS 

IS SECOND DIGIT nORt THAN A 7 

YES, ILLEGAL ADDRESS 

IS SECOND DIGIT LESS THAN A Q'^ 

YES. REPRINT THE QUESTION 

IS THIRD DIGIT A ZERC? 

NO, REPRINT THE QUESTION 

OPEN THE FILE (CPVP. MAC J 

OPEN FAILURE 

POINTER TO LINES AND BYTE COUNTS 

FCR VECTOR ADDRESS 

MOVE VECTOR ADDRESS FROM KEYBOARD BUh 



WRITE VECTOR 



ADDRESS LINE OF >^ILE 



CONFIG 


MRCPo nnG^ 08 


-OEC-77 


RSK FOP 


DEVICE 


ROnRESS 




157 








1S8 


000760 


01270H 


000062* 


169 


0007614 


ClOHOB 




IfeG 


000766 






161 


001006 


12272H 


000061 


162 


001012 


001362 




163 


ooiom 


12272H 


000066 


16^ 


001020 


Gcmoi* 




165 


001022 


12276^ 


000067 


166 


001030 


001353 




167 


001032 


012702 


ooooo^ 


168 


001036 


1227m 


000067 


169 


OC10H2 


0027^6 




r-o 


C010^^ 


12272H 


000060 


i:'i 


001050 


0033H3 




172 


001052 


005302 




173 


G0105^ 


001370 




^ 17H 


001056 


012703 


000206' 


175 


001062 


112523 




17b 


00106H 


112523 




177 


001066 


112523 




178 


001070 


112523 




179 


001072 


112523 




ISO 


00l07^ 


112523 




181 


00107b 


OnH7b7 


000224 



11: 34 PRGE 7 



C 2 



177777 



. SBTTL 


RSK FOR DEVICE flC 


QUS4: MOV 


{IK6I8UF.R4 ; 


MOV 


RH,R5 ; 


MESSflG 


<DEVICE ADDRESS) 


CMPB 


ll'l/(RH)+ ; 


6NE 


QUS4 


CMPB 


»'6.(RH)4' ; 


BEQ 


105 ; 


CMPB 


»'7,-l(RH) ; 


BNE 


QUS4 ; 


105; MOV 


im,R2 


205: CMPB 


«'7,(R4) ; 


BLT 


QUSH ; 


CMPB 


«'0.(R4)+ ; 


BGT 


QUSH ; 


DEC 


R2 ; 


BNE 


205 


MOV 


»CSk.R3 ; 


MOVB 


(R5)+. (R3)+ 


MOVB 


(R'")*, (R3) + 


MOVB 


(R5)+, (R3)+ 


MOVB 


(R5)+, (R3)+ 


MOVB 


(R5)+, (R3)+ 


MOVB 


(R5)+, (R3U 


JSR 


PC.URITE 



PDDRtSS OF KEYBOPRD BUFFER 
SPVE PDORESS 

IS FIRST DIGIT 1? 

IS 5^:'""' ^"r'"^ Q 6? 

IS SECOND DIGIT R 7? 

NO 

CHECK NEXT FOR DIGITS FO. OCTAL 

GREATER THAN 7? 

YES/ REPRINT THE QUESTION 

LESS THAN 0? 

YES. REPRINT THE QUESTION 

FOUR CHPPACTERS CHECKED? 

NO, CHECK :OME MORE 

MOVE DIGITS "ROM KEYBOARD BUFFER 



UPITE DEVICE AODPESS LINE OF FILE 



CONFIG 
flSI". FOP 

133 
184 
185 
ISb 
187 
188 
189 
190 
191 
192 
193 
194 
19S 
196 



riRCPo nno4 

DEVICE PRIOR 



08-DEC-77 
TV 



n 3H PfiGE 8 



D 2 



001102 

oonufe 
ooino 

001130 
001131* 
001136 

ooimz 

001144 
001 IBO 
001152 
001156 
001 IbO 
001164 



012/04 
01G406 

005767 
001413 
005367 
001357 
121527 
002754 
121527 
003351 
111567 
004767 



000062* 

000002' 

000002' 

000064 

000067 

000224' 
000136 



aus5: 



lOS; 



.SBTTL 


flSK FOR 


DEVICE 


PRIORITY 


MOV 


MKBIBUF. 


R4 


;RDDRESS OF KEYBOfiRD BUFFER 


MOV 


R4.R5 




;SPVE PDORESS 


flESSRG 


<OEVICE 


PRIORITY (DEFAULT = 5)> 


TST 


IOSTB+2 




; ANYTHING TYPED? 


BEQ 


lOS 




;N0. USE DEFAULT 


DEC 


I0S1B4-2 




; SUBTRACT ONE FROM CHARACTER 


BNE 


QUS5 




;ONLY ONE CHARACTER ALLOWED 


CMPB 


(R5),»'4 




;LESS THAN 4? 


BLT 


QUS5 




;YES, NO GOOD 


CMPB 


(R5),«'7 




;GrEATER THAN 7? 


BGT 


QUS5 




;YES, NO GOOD 


MOVB 


rR5j, PRIORI 


;0K, STORE ANSWER 


JSP 


PCWPITE 




; WRITE PRIORITY LINE 



TYPED 



CONFIG MRCPO nnOH 08-DEC-77 
RSK FOP i INE BAUD RATE 



11: 3^ PfiGE 9 



E 2 



198 



1^9 


001170 


012704 


000062' 


200 


00117H 


010405 




201 


00n7fe 






202 


001213 


016702 


000002' 


203 


001222 


001762 




20H 


00122H 


020227 


000005 


205 


001230 


003357 




20fe 


001232 


012703 


000245' 


207 


001236 


060205 




203 


001240 


114543 




209 


0012H2 


121527 


000060 


210 


001246 


002750 




211 


001 2S0 


121527 


000C71 


212 


0012B4 


003345 




213 


001256 


005302 




214 


001260 


001367 




215 


001262 


020327 


000240' 


21b 


001266 


101403 




217 


001270 


112743 


000060 


218 


001274 


C00772 




219 


001276 


004767 


000024 


220 


001302 


004767 


000020 


221 








222 








223 


001306 






224 


001314 






22S 


00i32G 







QUS6; 



lOS: 



:os. 



30S: 



. SBTTL 


RSK FOR LINE 


BAUD RPTE 


MOV 


IIKBI6UF.R4 


; ADDRESS OF KEYBOARD INPUT BUFF 


MOV 


R4.R5 


;SAVE ADDRESS 


MESSflG 


<LINE SPEED 


(BITS/SECOND)) 


MOV 


I0STB*2.R2 


;GET NUMBER OF CHARACTERS TYPED 


BEQ 


QUS6 


;2ER0 - ILLEGAL 


CMP 


R2.»5 


; GREATER THAN 5? 


BGT 


^US6 


;YE3. ILLEGAL 


MOV 


»SPEED*5.R3 


;LAST CHAR + 1 TO STORE ANSWER 


ROD 


R2.R5 


;LAST CHAR + 1 TYPED BY USER 


MOVB 


-(R6),-(R3) 


; STORE NEXT CHARACTER 


C/PB 


(R5),«'0 


;LESS THAN 0? 


BLT 


QUS6 


;YES, ERROR 


CMPB 


(R5).«'9 


; GREATER THAN 9? 


BGT 


QUS6 


;YES, ERROR 


DEC 


R2 


;ONE LESS TO STORE 


BNE 


105 


.MORE TO GO 


CMP 


R3,;SPEED 


;FILLED IN THE AREA AREA? 


BLOS 


30S 


;YES 


MOVB 


»'0,-(R3) 


;N0, FILL OUT WITH ZEROS 


BP 


20S 




JSR 


PC. WRITE 


;WRITE SPEED LINE OF FILE 


JSR 


PCURlTE 


; WRITE LAST LINE OF FILE 


DIPS 


«CMDLN 




CLOSE'* 






EXIT5S 







CONFIG MPCPO M1104 08-0EC-77 11:34 PRGE 10 
UPITE RND EVENT FLOGS SUBROUTINE 



227 




228 








230 




?71 




i.^ 1 




232 




233 001326 


012160 000026 


234 001332 


012160 000024 


235 001336 




236 001342 


103401 


237 001344 


000207 


238 001346 




--Q 




240 




241 

243 






244 




245 




246 




247 001366 




248 001374 




249 001402 




250 001414 




251 001426 


000207 


252 




253 




254 




255 




256 




257 




25S 001430 




259 001436 




260 001450 





F 2 



SBTTL WRITE AND EVENT FLPGS SUBROUTINE 



WRITE: 



ROUTINE TO UPDRTE 
USER BUFFER POINTER 
SSUE R PUT 
(R1)+,F 
(Rl)i,F 



ERR2: 



RND I 

nov 

MOV 

PUTS 

BCS 

RTS 
ERROR 



RND USER BUFFER SIZE 



NRBD+2(R0) 
NRBD(RO) 



ERR 
PC 

<WP 



TE ERROR) 



ROUTINE TO WRIT FOR EVENT FLAGS 
QUES WPITE(THE QUESTION; 
WRITS RND THEN QUES RERD 
RND WRITS FOR R REPLY 



EVTFLGS: 



OUPUT: 



DIRS 

DIRS 

WTSESS 

CLEFSS 

PTS 



ROUTINE 
TELTYPE 

DIRS 

WTSESS 
EXITSS 



«ClDPBM 

;qdpbr 

;2 

PC 



TO QUE WRITE TO 
RND THEN EXIT 

SQOPBn 
ttl 



CONFIG 


MRCPO nil04 08- 


'DEC-77 11: 


34 PRGE 11 




G 2 


TRBLES 
















262 
262 












. SBTTL 


TABLES 


2bH 


000165 










.PSECT 


nESSflG 


265 












. EUEN 




266 


000166 


103 


120 


126 


LINEl: 


. flSCII 


'CPVP==' 




000171 


120 


075 


075 








267 


00017H 


060 


060 


060 


VECT: 


.ASCII 


•000' 


268 


000177 


104 


125 


103 


LINE2: 


. flSC 1 1 


'DUCSR==' 




000202 


123 


122 


075 










000205 


075 












269 


00020b 


060 


060 


060 


CSR: 


. RSC 1 1 


•000000' 




000211 


060 


060 


060 








270 


0002m 


104 


105 


056 


LINE3; 


. flSCI 1 


'DE. PRI==' 




000217 


120 


122 


111 










000222 


075 


075 










2^1 


00022H 
000227 


065 
060 


052 


064 


PRIORI: 


. RSCI 1 


•5*40" 


272 


000230 


104 


056 


123 


LINE4: 


. ASCII 


'D. SPED==' 




000233 


120 


105 


104 










000236 


075 


07-^ 










273 


000240 
0002H3 


060 
060 


060 
060 


060 


SPEED: 


. flSC 1 1 


•00000' 


27^ 


000245 


05b 


057 


061 




. RSC 1 ! 


'. /lOO. ' 


' 


000250 


060 


060 


056 








275 


000253 
000256 


056 
104 


105 


116 


LINE 5: 


. ASCI 1 


', END' 


276 


000257 








LINE6: 






277 


000257 


100 


104 


120 


DPCnO: 


. ASC 1 ! 


'iDP' 


278 


000262 


100 


104 


125 


DUCMD: 


. ASC 1 1 


•iDU' 


279 


000265 


103 


120 


122 


LINE2R: 


. ASC 1 1 


■CPPSP==^ 




000270 


123 


I .-s ,-1 

1 i.^ 


075 










000273 


076 












280 




000007 








LINE2E= 


. -LINE2A 


281 












. EVEN 




2S2 


001456 










. PSECT 


AAA 


283 


001456 


00U166' 






FILE: 


. WORD 


LINEl 


28^ 


001460 


000011 








. WORD 


LINE2-LINE1 


285 


0014G2 


000177' 








. WORD 


LINE2 


2Sb 


00146'f 


000C15 








. WORD 


LINE3-LINE2 




001466 


000214' 








. WORD 


LINF3 


2£S 


001470 


000014 








. WORD 


LINE4-LINE3 


289 


001472 


000230" 








. WORD 


LINE4 


290 


001474 


000023 








. WORD 


LINE5-LINE4 


291 


001476 


000253' 








. WORD 


LINE5 




001500 


000004 








WORD 


LINEb-LINEE 


293 




000436' 








. END 


STPPT 



CONF IG 
SYMBOL 

CnDFDB 

CMDLN 

CSP 

DFNBLK 

DFNB2 

DPCMD 

Ducno 

EPPl 

EPP2 

EPP3 

EVfTFLG 

FD. CP = 

f ILE 

FO. UPT = 

r RCTL= 
P1L0C = 
BBFS = 
BOB = 
BGBC = 
BKDN= 
BKDS= 
BKEF = 
BKP1 = 
BKST= 
BKVB = 
CHR = 
CNTG= 
DFNB = 
DSPT= 



MfiCPO 
TOBLE 



nnOH 08-DEC-77 n:3H PfiGE ll-l 



H 2 



F 

r 

F. 

F. 

F. 

F. 

F. 

F. 

F. 

F. 

F. 

F. 

F. 

F. 



OG0202R 

OOOObOR 

000206R 

0003H2R 

GOOHCOR 

000257R 

G002b2R 

O0G60^R 

0013i4bR 

G00fe2HR 

C'^136feR 

tttttt GX 

OOmBbR 

♦|^tt# GX 

000076 

OOOOHO 

000062 

000070 

0000B7 

000026 

000020 

000050 

000051 

00002^ 

00006H 

000075 

00003^ 

G000^6 

0G00H4 



002 
002 
OOH 
002 
002 
00^ 
OOH 
002 
002 
002 
002 

002 



F. 
F. 
F, 
F. 
F. 
F. 
F. 
F. 
F. 
F. 
F. 
F. 
F. 
F. 

^ 

r . 
F. 
F. 
F. 
F. 
F. 
F. 
F. 
F. 
F. 
F. 
F. 
F. 
F. 



EFBK: 
EFN : 
EOBB: 
ERR : 

FflCC: 

FFBY: 
FNPM: 
FNB : 
FTYP: 
EVER: 
HIBK: 

LUN : 

MBCT: 

MBCl: 

MBFG: 
NRBQ: 
NREC: 
OVBS: 

RflCC: 
PmTT: 

RCNM: 

PCTL: 

RS!2= 

PTYP: 

SEQN= 
SPDu = 
SPUN= 



0001 3H 
000010 
000050 
000032 
000052 
0000H3 

oooom 

000110 
000102 
00011b 
000120 
OOOOOH 
0003H2 

oooo5^ 

000055 
00005b 

oooo2^ 

G0GG30 
000030 
OOOGlb 
OGGOOl 
0GGG3H 
G0GG17 
GG0002 
000000 
000100 
000072 
00007H 



F. STBK= 


00003b 




PRIORT 


000224R 


004 


TflGEl 


00001 IR 


004 


F. UNIT= 


00013b 




PS 


177776 




TflGE2 


000025R 


004 


F. URBD= 


000020 




QDPSn 


OOOOOOR 


002 


TRGEJ 


00004 4 R 


004 


F. VBN = 


OOOObH 




QDPBR 


000030R 


002 


TPGE4 


000063R 


004 


F. UBSZ= 


OOOObO 




QUSl 


0004b6R 


002 


TPGE5 


000121R 


004 


G. riCRB= 


000002 




QUS3 


0a0630R 


002 


TPGE6 


0001 62R 


004 


lOSTB 


OOOOOOR 




QUS4 


0007bOR 


002 


TflGE7 


OOOlbBR 


004 


10. RLB = 


tttttt GX 




QUSl) 


001102R 


002 


TRGNUMs 


000007 




10. ULB= 


tttttt GX 




QUSb 


001170R 


002 


TflGI 


OOOOOOR 


004 


KBIBUF= 


0000b2R 


002 


Q. IOflE = 


000012 




TflG2 


00001 IR 


004 


LINE I 


OOOlbbR 


004 


Q. IOEF = 


00000b 




T«G3 


00002&R 


004 


LINE2 


000177R 


004 


Q. IOFN= 


000002 




TfiG4 


000044R 


004 


LINE2P 


0002b5R 


004 


Q. IOLU= 


000004 




TflG5 


0000b3R 


004 


LINE2E= 


000007 




Q. IOPL = 


000014 




TflGb 


000121R 


004 


LINE3 


00021'4R 


004 


Q. IOPR = 


000007 




TRG7 


0001 52R 


004 


LINE^ 


000230R 


004 


Q. IOSB = 


000010 




VECT 


0001 74R 


004 


LINE5 


000253R 


004 


R. VflR = 


tttttt GX 




WRITE 


00132bR 


002 


LINEb 


000257P 


004 


SPEED 


000240R 


004 


sssnRG= 


000003 




N. D 1 D = 


00002H 




START 


0004 3bR 


002 


5550ST= 


000122 




N. DVNn= 


000032 




S. BFHD= 


000020 




. CLOSE= 


tttttt G 




N. F 1 D = 


000000 




S. FflTT= 


0000 lb 




. FINIT= 


tttttt G 




N. FNfln= 


00000b 




S. FOB = 


000140 




. FSRCB= 


tttttt G 




N. FTYP = 


oooom 




S. FNPri= 


00000b 




. OPEN = 


tttttt G 




N. FVER = 


OOGOlb 




S. FNB = 


000G3b 




. PUT = 


tttttt G 




N. NEXT = 


000022 




5. FNBW= 


G0G017 




. . . PC1= 


000202R 


002 


N STflJr 


000020 




S. FNTY = 


G00004 




. . . PC2= 


000434R 


002 


N. UNITr 


00003H 




S. FTYP = 


000002 




. . . PC3= 


000202R 


002 


OUPUT 


oomzop 


002 


S. NFEN= 


000020 




. . . TPC= 


000020 





. RBS. 000000 GOO 

000004 001 

RflR 0015U2 002 

SSFSRl 001020 003 

MESSflG 000274 004 

ERRORS DETECTED: U 



^S 



UiPTURL fiEMOPY USED: 4SSS WORD! 
DVNfln'C nEnOPV; 523^ WORDS ( 20 
ELPPSED TIME: 00: 00: 53 
25b. 020 CONF lb; 27, 256 030 CONF I G,'-SP = CONF IG 



( 20 PRGES) 
PRGES)