|
DataMuseum.dkPresents historical artifacts from the history of: Philips Data Systems |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Philips Data Systems Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metricsIndex: / D I K L P S T U V p ½
Length: 1218464 (0x1297a0)
Description: Bits:30009712 Philips computer tape "TOSS11"
Types: SimhTapContainer, ½" Magnetic Tape
| name | artifact |
|---|---|
| SAG | «none» |
| U3270.1 | «none» |
| U3270.1/KEYB.SC | ⟦16bb66f2b⟧ pts_type |
| U3270.1/PAD.SC | ⟦cc453c16a⟧ pts_type |
| U3270.1/VDU.SC | ⟦0de6d7818⟧ pts_type |
| U3270.2 | «none» |
| U3270.2/DATBSC.SC | ⟦7abc9b3f9⟧ pts_type |
| U3270.2/DCBSC.SC | ⟦281f624ba⟧ pts_type |
| U3270.2/DSPBSC.SC | ⟦28901420c⟧ pts_type |
| U3270.2/PRINT.SC | ⟦7911fedf4⟧ pts_type |
| UPD1A | «none» |
| UPD1A//OBJCT.OB | ⟦b3bedccc4⟧ pts_type |
| UPD1A/SYSLDM.SC | ⟦1d4e9c614⟧ pts_type |
| UPD2 | «none» |
| UPD2//OBJCT.OB | ⟦d347ed538⟧ pts_type |
| UPD2/DRDU01.SC | ⟦1260d4efa⟧ pts_type |
| UPD2/INFO.UF | ⟦f33f30955⟧ pts_type |
| UPD2/SYSLCR.SC | ⟦51a5c546b⟧ pts_type |
| UPD2/UP11.UF | ⟦a8074d0bf⟧ pts_type |
| UPD3 | «none» |
| UPD3/DRGP01.SC | ⟦ff05e8fa7⟧ pts_type |
| UPD3/DRSU01.SC | ⟦eb3b6bd71⟧ pts_type |
| UPD3/DRTP02.SC | ⟦f131aadd9⟧ pts_type |
| UPD3/INFO.UF | ⟦84367c12a⟧ pts_type |
| UPD3/UP11.UF | ⟦293eb13f6⟧ pts_type |
| UPD4 | «none» |
| UPD4/DRDC15.SC | ⟦759e2ace9⟧ pts_type |
| UPD4/INFO.UF | ⟦5e10c9128⟧ pts_type |
| UPD4/LRPINT.SC | ⟦c155c01c2⟧ pts_type |
| UPD4/UP11.UF | ⟦95be774d5⟧ pts_type |
| UPD4/UP11PT.UF | ⟦7ac7591ee⟧ pts_type |
| UPD5.1 | «none» |
| UPD5.1/DRDY02.SC | ⟦143dc9172⟧ pts_type |
| UPD5.2 | «none» |
| UPD5.2//OBJCT.OB | ⟦e28ab9eae⟧ pts_type |
| UPD5.3 | «none» |
| UPD5.3//OBJCT.OB | ⟦067d99dba⟧ pts_type |
| UPD6.1 | «none» |
| UPD6.1/SYSLOD.SC | ⟦b803f9532⟧ pts_type |
| UPD6.2 | «none» |
| UPD6.2/TOSSUT.LM | ⟦559189c52⟧ pts_type |
0x000000…000ca0 (0, 0) DirGranule ((0, 0)) {
0x000000…000ca0 DirEnt {nam=»SAG «, typ=» «, f00=0x0000, f01=0x0000, f02=0x0008, f03=0x0000}
0x000000…000ca0 }
0x000ca0…001940 (1, 0) DirGranule ((1, 0)) {
0x000ca0…001940 DirEnt {nam=»U3270.«, typ=»1 «, f00=0x0000, f01=0x0000, f02=0x0010, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»PAD «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0018, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»VDU «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x00a0, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»KEYB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0128, f03=0x0000}
0x000ca0…001940 }
0x001940…001ad4 (1, 1) Opaque[0x194]
0x001ad4…001c68 # DirEnt {nam=»PAD «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0018, f03=0x0000}
0x001ad4…001c68 IdxSect {
0x001ad4…001c68 f00 = 0x0000 // 0x1ad4 @0x0
0x001ad4…001c68 f01 = 0x0022 // 0x1ad6 @0x2
0x001ad4…001c68 gno = [ // 0x1ad8 @0x4
0x001ad4…001c68 [0x00]: C0x0000.0x3.0
0x001ad4…001c68 [0x01]: C0x0001.0x0.0
0x001ad4…001c68 [0x02]: C0x0001.0x1.0
0x001ad4…001c68 [0x03]: C0x0001.0x2.0
0x001ad4…001c68 [0x04]: C0x0001.0x3.0
0x001ad4…001c68 [0x05]: C0x0002.0x0.0
0x001ad4…001c68 [0x06]: C0x0002.0x1.0
0x001ad4…001c68 [0x07]: C0x0002.0x2.0
0x001ad4…001c68 [0x08]: C0x0002.0x3.0
0x001ad4…001c68 [0x09]: C0x0003.0x0.0
0x001ad4…001c68 [0x0a]: C0x0003.0x1.0
0x001ad4…001c68 [0x0b]: C0x0003.0x2.0
0x001ad4…001c68 [0x0c]: C0x0003.0x3.0
0x001ad4…001c68 [0x0d]: C0x0004.0x0.0
0x001ad4…001c68 [0x0e]: C0x0004.0x1.0
0x001ad4…001c68 [0x0f]: C0x0004.0x2.0
0x001ad4…001c68 [0x10]: C0x0004.0x3.0
0x001ad4…001c68 ]
0x001ad4…001c68 }
0x001c68…001dfc Dummy {f00=0x0000, f01=0x0190, f02=» . P IDENT PAD REL 11.1 82-03-16 870150541110 6 P =7 ERRORS IN PROGRAM TAB > P 82-02-12 b P =6 NO BELL FROM PRINTER v P =5 NATIONAL CHAR P 81-05-12 P =4 COPY TO PRINTER P 81-05-06 P =3, MISSING
0x001dfc…001f90 Dummy {f00=0x0000, f01=0x0190, f02=»******************************************************* B =* * @ B =* MODULE PAD * B =* MODULE HANDLING THE PACKING AND
0x001f90…002124 Dummy {f00=0x0000, f01=0x0190, f02=» * X B =* (EMULATION 3270 SNA/SDLC, BSC) * B =* * T B =************************************************************* P EJECT F P**************************
0x002124…0022b8 Dummy {f00=0x0000, f01=0x0190, f02=»DS INTO DC-BUFFER f 8 P* UNPACK UNPACK DC-BUFFER AND UPDATE VDU ( P* RETTAB RETURN ADDRESSES V ( P* UNPCOM UNPACK COMMANDS & P* UNPORD UNPACK ORDERS $ P* ORDTAB ORDER TABLE $ P*
0x0022b8…00244c Dummy {f00=0x0000, f01=0x0190, f02=» PROGRAM TAB. * P* RA REPEAT TO ADDRESS 0 P* EUA ERASE UNPRO. TO ADDRESS F ( P* CHAR < /20 BUT NOT ORDERS z 6 P* PACKSY PACK DC-BUFFER IN SYSTEM MODE 8 P* UNPSYS UNPACK DC-BUFFER IN
0x00244c…0025e0 Dummy {f00=0x0000, f01=0x0190, f02=» PDCCH PUT CHAR. IN BUFFER , P* GDCCH GET CHAR. IN BUFFER . , P* PAID STORE AID IN BUFFER ^ : P* BUFADR STORE BUFFER ADDRESS IN DC-BUFFER 8 P* RESMDT RESET ALL MDT-BITS IN ATTRIBUTES 2 P
0x0025e0…002774 (1, 2) Dummy {f00=0x0001, f01=0x0190, f02=» PACK AND UNPACK INFORMATION x < P* RESTOR RESTORE PACK AND UNPACK INFORMATION $ $ P* BUFFER BUFFER POOL d " P* GETBUF GET BUFFER & P* RELBUF RELEASE BUFFER P* F P**********************************
0x002774…002908 Dummy {f00=0x0001, f01=0x0190, f02=» * B =* ENTRY POINTS * : B =* * B =*************************************************************
0x002908…002a9c Dummy {f00=0x0001, f01=0x0190, f02=»CK DC BUFFER IN SYSTEM MODE ~ P ENTRY GETBUF GET DC BUFFER $ $ P ENTRY RELBUF RELEASE DC BUFFER H , P ENTRY PAID STORE AID CODE IN DC BUFFER p 2 P ENTRY BUFADR SORE BUFFER ADDRESS IN DC BUFFER 0 P ENTRY PACKSY PACK DC BUFFER IN SYSTEM MODE
0x002a9c…002c30 Dummy {f00=0x0001, f01=0x0190, f02=»************* j 8 3* * 8 3* EXTERNAL REFERENCES * R 8 3* * 8 3***************************************************
0x002c30…002dc4 Dummy {f00=0x0001, f01=0x0190, f02=»SCREEN (VDU) v 4 P EXTRN ERASUA ERASE UNPROTECTED TO ADDRESS (VDU) 2 P EXTRN CONORD CONVERT ORDER TO INDEX (CONVER) L . P EXTRN CONATT CONVERT ATTRIBUTE (CONVER) . P EXTRN SCRINF GET SCREEN INFORMATION (VDU) 8 P EXTRN ERASUP ERASE UNPROTECTED EN
0x002dc4…002f58 Dummy {f00=0x0001, f01=0x0190, f02=»TTRIBUTE BACKWARDS (VDU) z 2 P EXTRN CONADR CONVERT BUFFER ADDRESS (CONVER) * P EXTRN WRAP CHECK IF WRAP AROUND (VDU) V 0 P EXTRN STOINF SAVE SCREEN INFORMATION (VDU) ( P EXTRN LMP4ON INHIBIT LAMP ON (KEYB) 2 P EXTRN READNW READ WITH NO WAIT (DCS
0x002f58…0030ec Dummy {f00=0x0001, f01=0x0190, f02=»Y MODIFIED FIELDS (VDU) | . P EXTRN THRBUF THROW BUFFERS (DCSNA,DCBSC) ( P EXTRN NLROUT NEW LINE ROUTINE (VDU) R " P EXTRN LINE WRAP ROUTINE (VDU) ~ 2 P EXTRN LINATT INTERNAL LINEFLAG ROUTINE (VDU) , P EXTRN LINWRP ANOTHER WRAP ROUTINE (VDU) &
0x0030ec…003280 Dummy {f00=0x0001, f01=0x0190, f02=» j ( P EXTRN ICWRT INTERTASK WRITE (KEYB) , P EXTRN COPP COPY ON PRINTER DIRECTLY =4 4 EJECT d 8 3*************************************************** r 8 3* * 8 3* CONDITIONAL ASSEMBLY
0x003280…003414 (1, 3) Dummy {f00=0x0001, f01=0x0190, f02=»***** b PX:A EQU 0 SNA HANDLING IF:=1 PSNA EQU X:A : & PX:K EQU 2 NUMBER OF BUFFERS (1-32) N PBUFFNR EQU X:K x * PX:L EQU 1000 MAX BUFFER SIZE IN WORDS PBUFFL EQU X:L * PX:M EQU 0 COPY COMMAND INCLUDED IF:=1 PCOPCMD E
0x003414…0035a8 Dummy {f00=0x0001, f01=0x018e, f02=» P EJECT D ?*************************************************************** D ?* * Z & P* DECLARATION OF DATA AND EQUATES D ?*
0x0035a8…00373c Dummy {f00=0x0001, f01=0x0190, f02=» n * ECBBA EQU 2 BUFFER ADDRESS ECBRL EQU 4 REQUESTED LENGTH 4 ECBEL EQU 6 EFFECTIVE LENGTH X ECBRC EQU 8 RETURN CODE | ECBCW EQU 10 CONTROL WORD P* P* INTERNAL STATUS P* , PLICREC EQU /2000 LAST IN CHA
0x00373c…0038d0 Dummy {f00=0x0001, f01=0x0190, f02=»PTORD EQU /0001 PT ORDER INDICATOR IFT SNA=1 * * < * SNA MODES F * ` PLOCMOD EQU 0 LOCAL MODE j SYSOP EQU 2 SYSTEM MODE MYJOB EQU 4 MY JOB MODE XIF P* P* TASK IDENTIFICATION CODE P*
0x0038d0…003a64 Dummy {f00=0x0001, f01=0x0190, f02=»CHAR. ~ PESCCHA EQU /1B ESCAPE CHAR. P* 2 P* VDU SCREEN SIZE < P* V PLBVDU EQU 1920 TOTAL SIZE ` PLLINE EQU 80 LINE LENGTH P* P* BUFFER LINK LENGTH P* PLINK EQU BUFFL+BUFFL+2 P EJECT P*
0x003a64…003bf8 Dummy {f00=0x0001, f01=0x0190, f02=»CREEN BUFFER ~ , PLINFLG EQU BVDU+1920 INTERNAL LINE FLAGS 0 PPCURS EQU LINFLG+24 CURSOR ADDRESS , BINARY D PCURATT EQU PCURS+4 x & PWCC EQU CURATT+2 WCC/CCC CHARACTER & PKBINH EQU WCC+2 INHIBIT INDICATOR * PDCLENG EQU KBINH+4 LENGTH OF DC BU
0x003bf8…003d8c Dummy {f00=0x0001, f01=0x0190, f02=»TER t $ PSTACK1 EQU REGI+2 INTERNAL STACK PSTACK2 EQU STACK1+14 4 $ PUNPMOD EQU STACK2+14 UNPACK MODE P PSNAMOD EQU UNPMOD+2 SNA MODE x 0 PECBICW EQU SNAMOD+12 ECB INTERTASK WRITE =3 P EJECT @ P******************************************
0x003d8c…003f20 Dummy {f00=0x0001, f01=0x0190, f02=»DS INTO DC-BUFFER * f B P* * B P************************************************************* b P* REGISTERS P* P* A2= CHAR. P* A3= ADDRESS IN VDU-BUFFER P* A4= REL.
0x003f20…0040b4 (1, 4) Dummy {f00=0x0001, f01=0x0190, f02=»X | P* A10= START ADDRESS P* A11= RESERVED & P* A12= BUFFER ADDRESS > P* A13= RESERVED P* t @ P************************************************************ ~ PPACK EQU * * P CF A14,SCRINF GET SCREEN INFORMATION P LDK A
0x0040b4…004248 Dummy {f00=0x0001, f01=0x0190, f02=»SCREEN? t P RF(E) PACK70 YES PPACK10 EQU * * P LCR A2,A3 GET CHAR. > P CCK A2,/8000 ATTRIBUTE? Z P RF(NL) PACK15 YES z P ADK A3,1 P ADK A4,1 P RB PACK10 PPACK15 EQU * P LDR A10,A4 START ADDRESS P RF PACK
0x004248…0043dc Dummy {f00=0x0001, f01=0x0190, f02=» EQU * P LCR A2,A3 GET CHAR. P ADK A3,1 * P ADK A4,1 < P CCK A2,/8000 ATTRIBUTE? N P RB(L) PACK20 NO n P ANK A2,1 MODIFIED FIELD? P RF(NZ) PACK50 YES P ADK A3,1 P ADK A4,1 P RB PACK20 PPACK50 EQU *
0x0043dc…004570 Dummy {f00=0x0001, f01=0x0190, f02=»MISSION OK? P RF(NZ) PACK90 NO * P LDR A1,A4 BUFFER ADDRESS TO DC-BUFFER . P CF A14,BUFADR PPACK60 EQU * r & P CF A14,WRAP CHECK IF WRAP AROUND P CWR A10,A4 ALL SCANNED? P RF(E) PACK80 YES PPACK70 EQU * P LCR A2,A3
0x004570…004704 Dummy {f00=0x0001, f01=0x0190, f02=»E t & P CF A14,PUTCHA PUT CHAR. IN BUFFER P LDR A1,A1 TRANSMISSION OK? 4 P RF(NZ) PACK90 NO X PPACK75 EQU * r P ADK A3,1 P ADK A4,1 P RB PACK60 PPACK80 EQU * $ P LDK A1,0 INDICATE LAST IN CHAIN " P CF A14,DCWRIT W
0x004704…004898 Dummy {f00=0x0001, f01=0x018e, f02=»JECT @ <************************************************************ @ <* * P @ <* UNPACK UNPACK DC-BUFFER AND UPDATE VDU * @ <*
0x004898…004a2c Dummy {f00=0x0001, f01=0x018e, f02=» * A3= POINTER IN VDU-BUFFER * A4= REL. CURSOR POS. ( P* A5= LAST IN ROW REL POS F $ P* A6= INTERNAL LINE FLAG ADDRESS h P* A8= ADDRESS IN DC-BUFFER * A9= DC-BUFFER INDEX * A10= INDICATOR P* A11= CREDIT WORK AREA P
0x004a2c…004bc0 Dummy {f00=0x0001, f01=0x0190, f02=» P LDK A1,3 KB TOTALLY INHIBIT P ORS A1,KBINH,A11 , P LC A1,TCT01,A11 F " P CCK A1,VDUCOD PRINTER UNPACK? ^ P RF(NE) UNP050 YES " P CF A14,LMP4ON INHIBIT LAMP ON PUNP050 EQU * * P CF A14,SCRINF GET SCREEN INFORMATION P L
0x004bc0…004d54 (1, 5) Dummy {f00=0x0001, f01=0x0190, f02=»RESS p " P LDK A1,ICOMND PROCESS COMMAND P ST A1,UNPMOD,A11 2 PUNP100 EQU * L P CF A14,GDCCH GET CHAR. ` P LDR A1,A1 ANYTHING LEFT? P RF(NZ) UNP200 NO . P LD A1,UNPMOD,A11 GET ADDRESS TO START AT P CFI A14,RETTAB,A1 RESTART
0x004d54…004ee8 Dummy {f00=0x0001, f01=0x0190, f02=» GET NEXT BUFFER P LDR A1,A1 FINISHED? P RB(Z) UNP100 NO 4 P XIF L PUNP300 EQU * X " P CF A14,SCRINF GET LATEST NEWS l P LDR A1,A4 . P CF A14,ATMASB SEARCH ATTRIBUTE BACKWARDS P IFT SNA=1 $ P ANKL A10,THROWB THROW BUFFERS?
0x004ee8…00507c Dummy {f00=0x0001, f01=0x0190, f02=»CT01,A11 P CCK A1,VDUCOD P RF(NE) UNP500 & 6 P CF A14,DISMOD TESTINGTESTINGTESTING!!!!!!!!!!!!! < PUNP500 EQU * v P XIF * P CF A14,P2WCC CHECK IT A LAST TIME =4 & P LDR A8,A12 GET BUFFER TO RELEASE " P CF A14,RELBUF RELEASE BUF
0x00507c…005210 Dummy {f00=0x0001, f01=0x0190, f02=» J P* * ! J P* INDEX FOR RETURNS AFTER GET CHARCTER * ! R J P* * ! J P**************************
0x005210…0053a4 Dummy {f00=0x0001, f01=0x0190, f02=» EQU ICOMN1+2 ! PICOWCC EQU ICOCOP+2 " P XIF " 2 P IFF COPCMD=1 " > PICOWCC EQU ICOMN1+2 " T P XIF " p PIORDER EQU ICOWCC+2 " | PIOSFAT EQU IORDER+2 " PIOSBA1 EQU IOSFAT+2 " PIOSBA2 EQU IOSBA1+2 " PIORAA1 EQU IOSBA2+2 " P
0x0053a4…005538 Dummy {f00=0x0001, f01=0x0190, f02=»*********************************************************** " J P* * # D J P* RETURN ADDRESSES AFTER GET CHARACTER * # J P*
0x005538…0056cc Dummy {f00=0x0001, f01=0x0190, f02=» DATA UNPCOM PROCESS COMMAND CHAR. # 0 P DATA UNC100 PROCESS COMMAND CHAR AFTER ESC. $ * P IFT COPCMD=1 $ ^ $ P DATA UNC150 PROCESS FROM DEVICE $ t P XIF $ P DATA UNC600 PROCESS WCC $ * P DATA UNPORD PROCESS ORDERS AND CHAR. $ " P DATA SF100 PROCES
0x0056cc…005860 Dummy {f00=0x0001, f01=0x0190, f02=»FIRST ADDRESS BYTE $ | , P DATA RA200 PROCESS SECOND ADDRESS BYTE % ( P DATA RA250 PROCESS CHAR. TO REPEAT % J , P DATA EUA100 PROCESS FIRST ADDRESS BYTE % v , P DATA EUA200 PROCESS FIRST ADDRESS BYTE % P EJECT % L P************************************
0x005860…0059f4 (1, 6) Dummy {f00=0x0002, f01=0x0190, f02=»COM UNPACK COMMAND * % L P* * & D L P*********************************************************************** & P* REGISTERS & P* & P* A2=
0x0059f4…005b88 Dummy {f00=0x0002, f01=0x0190, f02=»E FLAG ADDRESS & ~ P* A8= ADDRESS IN DC-BUFFER ' P* A9= RESERVED ' 8 P* A10= INDICATOR ' N P* A11= CREDIT WORK AREA ' f P* A12= RESERVED ' P* A13= RESERVED ' P* ' L P************************************************************************
0x005b88…005d1c Dummy {f00=0x0002, f01=0x0190, f02=» LDK A1,0 RETURN CODE ' P CWK A2,ESCCHA ESCAPE? ( P RF(E) UNC900 YES ( < P LDK A1,1 NO INDICATE ERROR ( V P RF UNC900 ( z P XIF ( PUNC100 EQU * ( P CWK A2,/31 WRITE? ( P RF(E) UNC500 YES ( P CWK A2,/35 ERASE AND WITE? ( P RF(
0x005d1c…005eb0 Dummy {f00=0x0002, f01=0x0190, f02=»? ( x P RF(NE) UNC175 NO ) P LDK A1,ICOCOP RESTART ENTRY ) $ P RF UNC800 ) H ( PUNC150 EQU * ENTRY LABEL FROM RETTAB ) Z P CF A14,MATCH GET TASKID ) P LDR A1,A1 OK? ) P RF(NZ) UNC175 NO ) 6 P LDKL A1,/8000 RETURN CODE TO INDICATE COPY COMND.
0x005eb0…006044 Dummy {f00=0x0002, f01=0x0190, f02=»NGTH ) P LDKL A3,REGI * P ADR A3,A11 BUFFER * " P CF A14,ICWRT SEND IT * < PUNC175 EQU * * Z P XIF * n $ P LDKL A10,THROWB THROW THE REST * z P LDK A1,1 INDICATE ERROR * P RF UNC900 INVALID COMMAND * PUNC200 EQU * * P ST A8,REGI,A11
0x006044…0061d8 Dummy {f00=0x0002, f01=0x0190, f02=»UFFER ADDRESS * | P RF UNC500 + PUNC300 EQU * + ( ( P CF A14,ERASUP ERASE ALL UNPROTECTED + < " P LDKL A10,THROWB THROW IT AWAY + h P LDK A1,1 INDICATE ERROR + P RF UNC900 + PUNC500 EQU * + P LDK A1,ICOWCC GET INDEX + P ST A1,UNPMOD,A11 +
0x0061d8…00636c Dummy {f00=0x0002, f01=0x0190, f02=»DR A3,A4 + " P ADKL A3,BVDU GET REAL ADDRESS , P ADR A3,A11 , 6 & P ORKL A10,PTORD INDICATE PT ORDER , J & P LDK A1,IORDER INDICATE NEXT CALL , t PUNC800 EQU * , P ST A1,UNPMOD,A11 , P LDK A1,0 , PUNC900 EQU * , P RTN A14 , P EJECT
0x00636c…006500 Dummy {f00=0x0002, f01=0x0190, f02=» > P* UNPORD UNPACK ORDERS * - > P* * - F > P********************************************************** - P* REGISTERS - P* - P* A2= CHAR. - P* A3= POINTE
0x006500…006694 (1, 7) Dummy {f00=0x0002, f01=0x018e, f02=»SERVED - P* A9= RESERVED . P* A10= INDICATOR . $ P* A11= RESERVED . < P* A12= RESERVED . T P* A13= RESERVED . l P* . > P********************************************************** . ( PUNPORD EQU * ENTRY LABEL FROM RETTAB . P CWK A2,/20
0x006694…006828 Dummy {f00=0x0002, f01=0x0190, f02=» P CF A14,LINE CHECK WRAP / PUNO050 EQU * / $ ( P SCR A2,A3 STORE CHAR. IN VDU BUFFER / 8 P LC A1,LINFLG,A6 / d P ORK A1,1 / | P SC A1,LINFLG,A6 / P ADK A4,1 / P ADK A3,1 / P LDK A1,0 / P RF UNO200 / PUNO100 EQU * / $ P LC A1
0x006828…0069bc Dummy {f00=0x0002, f01=0x0190, f02=»******************************************************* / B =* * 0 @ B =* ORDTAB ORDER TABLE * 0 B =*
0x0069bc…006b50 Dummy {f00=0x0002, f01=0x0190, f02=»ATA SF START FIELD 0 DATA SBA SET BUFFER ADDRESS 1 DATA IC INSERT CURSOR 1 > DATA PT TAB. 1 DATA RA REPEAT TO AADRESS 1 r * & DATA EUA ERASE UNPROTECTED TO ADDRESS 1 DATA ESC ESCAPE 1 DATA NULCHA NULL CHAR. 1 P DATA NL NEW L
0x006b50…006ce4 Dummy {f00=0x0002, f01=0x0190, f02=»*********************************** 1 x @ ;* * 2 , @ ;* SF START FIELD * 2 p @ ;* * 2 @ ;****************
0x006ce4…006e78 Dummy {f00=0x0002, f01=0x0190, f02=»POINTER IN VDU BUFFER 2 * A4= REL. CURSOR POS. 3 * A5= RESERVED 3 < * A6= RESERVED 3 R P* A8= RESERVED 3 h * A9= DC-BUFFER INDEX 3 ~ * A10= INDICATOR 3 P* A11= CREDIT WORK AREA 3 P* A12= RESERVED 3 P* A13= RESERVED 3 * 3
0x006e78…00700c Dummy {f00=0x0002, f01=0x0190, f02=»A1,UNPMOD,A11 3 P RF SF900 GET CHAR. 4 ( PSF100 EQU * ENTRY LABEL FROM RETTAB 4 2 P LDK A1,IORDER NEXT ALBEL 4 ^ P ST A1,UNPMOD,A11 4 P LC A2,CONATT,A2 IN EBCDIC 4 P ORK A2,/80 ATTR. BIT 4 P CM CURATT,A11 4 P ORKL A10,ATTREC+PTORD 4
0x00700c…0071a0 Dummy {f00=0x0002, f01=0x0190, f02=»NDICATE ATTRIBUTE OVERRUN 4 PSF600 EQU * 5 " 0 P ORKL A10,ATTREC INDICATE ATTRIBUTE RECEIVED 5 6 P SCR A2,A3 STORE CHAR. 5 j P ADK A3,1 5 P ADK A4,1 5 PSF900 EQU * 5 P LDK A1,0 5 P RTN A14 5 P EJECT 5 @ P************************
0x0071a0…007334 (1, 8) Dummy {f00=0x0002, f01=0x0190, f02=»UFFER ADDRESS * 5 x @ P* * 6 , @ P*********************************************************** 6 p P* REGISTERS 6 P* 6 P* A1= RETURN CODE 6 P* A2= CHAR. 6 P* A3= RE
0x007334…0074c8 Dummy {f00=0x0002, f01=0x0190, f02=»ATOR 6 P* A11= CREDIT WORK AREA 7 P* A12= RESERVED 7 , P* A13= RESERVED 7 D P* 7 @ P*********************************************************** 7 f PSBA EQU * 7 P LDK A1,IOSBA1 NEXT LABEL 7 P ST A1,UNPMOD,A11 7 P LDK A1,0 7
0x0074c8…00765c Dummy {f00=0x0002, f01=0x0190, f02=»6 7 P LDK A1,IOSBA2 8 P ST A1,UNPMOD,A11 8 P LDK A1,0 8 : P RF SBA900 NEXT BYTE 8 L ( PSBA200 EQU * ENTRY LABEL FROM RETTAB 8 h P LC A2,CONATT,A2 8 P ANK A2,/3F 8 P ORR A7,A2 8 P LDK A1,IORDER NEXT LABEL 8 P ST A1,UNPMOD,A11 8
0x00765c…0077f0 Dummy {f00=0x0002, f01=0x0190, f02=»A11 8 & P ORKL A10,PTORD INDICATE PT ORDER 9 * P CF A14,LINE CHECK WRAP AND LINE FLAGS 9 6 P LDK A1,0 REURN CODE 9 d P RF SBA900 9 PSBA800 EQU * 9 " P ORKL A10,THROWB DON'T SAVE IT 9 P LDK A1,1 RETURN CODE 9 PSBA900 EQU * 9 P RTN A14 9
0x0077f0…007984 Dummy {f00=0x0002, f01=0x0190, f02=» * 9 ^ > :* IC INSERT CURSOR * : > :* * : R > :********************************************************** : * REGISTERS : * : P* A1= RETURN CODE :
0x007984…007b18 Dummy {f00=0x0002, f01=0x0190, f02=»ED : * A10= INDICATOR ; P* A11= CREDIT WORK AREA ; " P* A12= RESERVED ; B P* A13= RESERVED ; Z * ; r 4 /*********************************************** ; | IC EQU * ; P ST A4,PCURS,A11 ; P ORKL A10,PTORD INDICATE ; P LDK A1,0 RE
0x007b18…007cac Dummy {f00=0x0002, f01=0x0190, f02=» * ; | @ P* PT PROGRAM TAB. * < 0 @ P* * < t @ P*********************************************************** < P* REGISTERS
0x007cac…007e40 Dummy {f00=0x0002, f01=0x0190, f02=»RESERVED < P* A6= ATTRIBUTE CHAR. = P* A8= RESERVED = . P* A9= RESERVED = D P* A10= INDICATOR = Z P* A11= RESERVED = r P* A12= RESERVED = P* A13= RESERVED = P* = @ P************************************************************ = P
0x007e40…007fd4 (1, 9) Dummy {f00=0x0002, f01=0x0190, f02=»ULLS TO END OF FIELD = x PPT200 EQU * > P CF A14,LINWRP CHECK WRAP > 0 P LDR A4,A4 END OF BUFFER? > R " P RF(Z) PT800 YES, KUNTA KINTE > t P LCR A2,A3 > P ANK A2,/80 ATTRIBUTE? > P RF(NZ) PT400 YES > P SCR A7,A3 STORE NULL CHAR. > P
0x007fd4…008168 Dummy {f00=0x0002, f01=0x0190, f02=» P CF A14,LINWRP CHECK WRAP ? P LDR A4,A4 END OF BUFFER? ? & P RF(Z) PT700 YES OS AND DOS ? H P LCR A2,A3 GET CHAR. ? l P ANK A2,/80 ATTRIBUTE? ? P RF(NZ) PT500 YES ? PPT410 EQU * . =7 ? P ADK A4,1 ? P ADK A3,1 ? P RB PT400 ?
0x008168…0082fc Dummy {f00=0x0002, f01=0x0190, f02=» A3,1 ? P CF A14,LINWRP CHECK WRAP @ PPT700 EQU * @ 0 P ORKL A10,PTORD @ D PPT800 EQU * @ P LDK A1,0 RETURN CODE @ p P RTN A14 @ P EJECT @ B P************************************************************* @ B P*
0x0082fc…008490 Dummy {f00=0x0002, f01=0x0190, f02=» * @ ~ B P************************************************************* A 4 P* REGISTERS A z P* A P* A1= RETURN CODE A P* A2= CHAR. TO BE REPEATED A P* A3= ADDRESS IN VDU-BUFFER A P* A4= REL. CURSO
0x008490…008624 Dummy {f00=0x0002, f01=0x0190, f02=»NDICATOR A P* A11= CREDIT WORK AREA B P* A12= RESERVED B 0 P* A13= RESERVED B H P* B ` 6 P************************************************** B j PRA EQU * B P LDK A1,IORAA1 NEXT LABEL B P ST A1,UNPMOD,A11 B P LDK A1,0 B P RF RA
0x008624…0087b8 Dummy {f00=0x0002, f01=0x0190, f02=» LDK A1,IORAA2 NEXT LABEL B P ST A1,UNPMOD,A11 C " P LDK A1,0 C < P RF RA900 SECOND BYTE C N ( PRA200 EQU * ENTRY LABEL FROM RETTAB C l P LC A2,CONATT,A2 C P ANK A2,/3F C P ORR A7,A2 C " P CWK A7,LBVDU INVALID ADDRESS C P RF(NL) RA80
0x0087b8…00894c Dummy {f00=0x0002, f01=0x0190, f02=»Y LABEL FROM RETTAB C P LDK A1,IORDER D P ST A1,UNPMOD,A11 D 2 PRA300 EQU * D L " P SCR A2,A3 STORE IN VDU-BUFFER D ` P LC A1,LINFLG,A6 D P ORK A1,1 D P SC A1,LINFLG,A6 D P ADK A3,1 D P ADK A4,1 D P CF A14,LINWRP CHECK WRAP =1
0x00894c…008ae0 Dummy {f00=0x0002, f01=0x0190, f02=» D z P RF RA900 E PRA800 EQU * E " P ORKL A10,THROWB THROW IT AWAY E . P LDK A1,1 RETURN CODE E T PRA900 EQU * E r P RTN A14 E P EJECT E : P****************************************************** E : P*
0x008ae0…008c74 (1, 10) Dummy {f00=0x0003, f01=0x0190, f02=» * E ^ : P****************************************************** F P* REGISTERS F J P* F ^ P* A1= RETURN CODE F h P* A2= CHAR. F P* A3= RESERVED F P* A4= RESERVED F P* A5= RESERVED F P* A6= RESERVED F P* A8= RESERVED F P* A9
0x008c74…008e08 Dummy {f00=0x0003, f01=0x0190, f02=»*************************************************** F PEUA EQU * G < P LDK A1,IOEUA1 NEXT LABEL G N P ST A1,UNPMOD,A11 G p P LDK A1,0 G P RF EUA900 FIRST BYTE G ( PEUA100 EQU * ENTRY LABEL FROM RETTAB G P LC A7,CONATT,A2 CONVERT G P A
0x008e08…008f9c Dummy {f00=0x0003, f01=0x0190, f02=» G z ( PEUA200 EQU * ENTRY LABEL FROM RETTAB H P LC A2,CONATT,A2 H 4 P ANK A2,/3F H L P ORR A7,A2 H ` P LDK A1,IORDER NEXT LABEL H r P ST A1,UNPMOD,A11 H " P CWK A1,LBVDU INVALID ADDRESS? H P RF(NL) EUA800 YES H P LDR A1,A7 H * P CF A14,
0x008f9c…009130 Dummy {f00=0x0003, f01=0x0190, f02=»EUA900 H PEUA800 EQU * I P ORKL A10,THROWB RUBB. I " P LDK A1,1 RETURN CODE I @ PEUA900 EQU * I ^ P RTN A14 I r P EJECT I < P******************************************************** I < P* *
0x009130…0092c4 Dummy {f00=0x0003, f01=0x0190, f02=»******************************************************** I P* REGISTERS J @ P* J T P* A1= RETURN CODE J ^ P* A2= CHAR. J x P* A3= ADDRESS IN VDU-BUFFER J P* A4= REL. CURSOR POS. J P* A5= RESERVED J $ P* A6= INTERNAL LINE FLAG ADDRESS J
0x0092c4…009458 Dummy {f00=0x0003, f01=0x0190, f02=»ESERVED J P* K 4 P************************************************ K PESC EQU * K R & P ORKL A10,LICREC INDICATE COMMAND K d P LDK A1,1 STOP ORDER PROCESS K P RF CHARET K PINVAL EQU * K " P ORKL A10,/9800 END UNPACKING K P LDK A1,1
0x009458…0095ec Dummy {f00=0x0003, f01=0x018e, f02=» K v P SCR A2,A3 STORE CHAR. L P LC A1,LINFLG,A6 L & P ORK A1,1 L > P SC A1,LINFLG,A6 L P & P XRKL A10,PTORD INDICATE PT ORDER L h P ADK A3,1 L P ADK A4,1 L P LDK A1,0 CONTINUE L PCHARET EQU * L P RTN A14 L P EJECT L D P******
0x0095ec…009780 Dummy {f00=0x0003, f01=0x0190, f02=» D P* PACKSY PACK DC BUFFER IN SYSTEM MODE * M D P* * M L D P**************************************************************** M P* REGISTERS M P* M P* A2= CHAR M
0x009780…009914 (1, 11) Dummy {f00=0x0003, f01=0x0190, f02=»FFER M z P* A9= INDEX IN DC-BUFFER N P* A11= CREDIT WORK AREA N , P* A12= BUFFER ADDRESS N L P* A13= RESERVED N j P* N D P*************************************************************** N PPACKSY EQU * N P IFT SNA=1 N P LDKL A9,0 COU
0x009914…009aa8 Dummy {f00=0x0003, f01=0x018e, f02=» SCREEN INFORMATION N ~ P LDR A1,A4 O $ P SUR A1,A3 GET LENGTH OF MESSAGE O . " P RF(NN) PASY10 NOT WRAP AROUND O V ( P LDKL A1,LBVDU-1 LAST POS. ON SCREEN O | P SUR A1,A3 GET LENGTH AGAIN O PPASY10 EQU * O P CWK A1,256 ILLEGAL LENGTH? O P RF(
0x009aa8…009c3c Dummy {f00=0x0003, f01=0x0190, f02=» P CWR A1,A9 ALL EXAMINED? P P RF(E) PASY40 YES P $ & P LCR A2,A3 GET CHAR IN VDU BUFFER P > P ADK A3,1 P h P CWK A2,NULL NULL CHAR.? P z " P RB(E) PASY30 YES, DON'T STORE P * P CF A14,PDCCH STORE CHAR. IN DC BUFFER P P RB PASY30 P PPASY40 E
0x009c3c…009dd0 Dummy {f00=0x0003, f01=0x0190, f02=»RELBUF RELEASE BUFFER P P XIF Q P RTN A14 Q * P EJECT Q : B P************************************************************* Q H B P* * Q B P* UNPSYS UNPACK DC BUFFER IN SYSTEM MOD
0x009dd0…009f64 Dummy {f00=0x0003, f01=0x0190, f02=»************* Q ` P* REGISTERS R P* R * P* A2= CHAR. R 4 P* A3= ADDRESS IN VDU-BUFFER R H P* A4= REL. CURSOR POS. R l P* A5= LAST IN ROW REL POS R $ P* A6= INTERNAL LINE FLAG ADDRESS R P* A8= ADDRESS IN DC-BUFFER R P* A9= INDEX IN DC-
0x009f64…00a0f8 Dummy {f00=0x0003, f01=0x0190, f02=»****************************************************** R PUNPSYS EQU * S > P IFT SNA=1 S R P LD A1,KBINH,A11 S d P ORK A1,3 S | P ST A1,KBINH,A11 S P CF A14,LMP4ON S * P CF A14,SCRINF GET SCREEN INFORMATION S P LDR A3,A4 CURSOR ADDRESS S
0x00a0f8…00a28c Dummy {f00=0x0003, f01=0x0190, f02=»UFFER S x P LDR A6,A11 T P LDK A5,LLINE T " & P CF A14,LINE GET INTERNAL LINEFLAG T 8 PUNPS05 EQU * T b * P CF A14,GDCCH GET CHAR. IN DC BUFFER T v P LDR A1,A1 ANYTHING LEFT? T P RF(NZ) UNPS60 NO T P CWK A2,/31 BIND? T P RF(E) UNPS50
0x00a28c…00a420 Dummy {f00=0x0003, f01=0x0190, f02=» NO T $ P CF A14,NLROUT PERFORM NEW LINE U P RB UNPS05 U 4 PUNPS10 EQU * U F P CWK A2,/1C IFS? U Z P RF(NE) UNPS20 NO U r P LDK A2,/2A REPLACE WITH * U P RF UNPS40 U PUNPS20 EQU * U P CWK A2,/1E IRS? U P RF(NE) UNPS30 NO U P L
0x00a420…00a5b4 (1, 12) Dummy {f00=0x0003, f01=0x0190, f02=»PLACE WITH SPACE U PUNPS40 EQU * V P CF A14,LINWRP CHECK WRAP V , " P SCR A2,A3 STORE IN VDU BUFFER V N P LC A1,LINFLG,A6 V t P ORK A1,1 V P SC A1,LINFLG,A6 V P ADK A3,1 V P ADK A4,1 V P RB UNPS05 V PUNPS50 EQU * V P CF A14,
0x00a5b4…00a748 Dummy {f00=0x0003, f01=0x0190, f02=»B UNPS07 V PUNPS55 EQU * W & P LDK A1,MYJOB INDICATE MY JOB MODE W $ & P ADKL A1,/8000 NEW MODE ACTIVATION W N P ST A1,SNAMOD,A11 W x P LDKL A10,1 NO DISPLAY W P RF UNPS70 W PUNPS60 EQU * W P LDKL A5,LBVDU+1 W P LDK A6,0 W . P CF A14,
0x00a748…00a8dc Dummy {f00=0x0003, f01=0x018e, f02=»4,RELBUF RELEASE BUFFER W P XIF X P RTN A14 X , P EJECT X < @ P************************************************************ X J @ P* * X 4 P* GETNXT GET AND CHECK NEXT BUFFER X @
0x00a8dc…00aa70 Dummy {f00=0x0003, f01=0x0190, f02=» P* REGISTERS Y P* Y P* A1= RETURN CODE Y " P* A11= CREDIT WORK AREA Y < P* A12= BUFFER ADDRESS Y P* A13= RESERVED Y z P* Y @ P************************************************************ Y PGETNXT EQU * Y P IFT SNA=1 Y * P C
0x00aa70…00ac04 Dummy {f00=0x0003, f01=0x0190, f02=»ISHOW=2 Y P LC A1,TCT01,A11 Z " P CCK A1,VDUCOD PRINTER UNPACK? Z ( P RF(NE) GETC10 YES Z N * P CF A14,DISMOD DISPLAY MODIFIED FIELDS Z h P XIF Z P IFT SNA=1 Z PGETC10 EQU * Z P CF A14,WAIT SYNCHRONIZE Z " P LD A2,ECBEL,A8 SAVE LENGTH =4 Z
0x00ac04…00ad98 Dummy {f00=0x0003, f01=0x0190, f02=»IN CHAIN? Z v P RF(NN) GETC30 NO [ $ P LDR A1,A10 GET INTERNAL STATUS [ , , P ANKL A1,LICREC LAST IN CHAIN RECEIVED? [ T P RF(Z) GETC60 NO [ P LC A1,TCT01,A11 [ " P CCK A1,VDUCOD PRINTER UNPACK? [ P RF(NE) GETC20 YES [ 0 P CF A14,P2WCC TAKE C
0x00ad98…00af2c Dummy {f00=0x0003, f01=0x0190, f02=»TC60 [ PGETC30 EQU * & P SRC A1,1 LAST IN CHAIN RECEIVED? P RF(NN) GETC90 NO J PGETC40 EQU * d $ P LDR A1,A10 GET INTERNAL STATUS x , P ORKL A10,LICREC LAST IN CHAIN RECEIVED , P ANKL A1,LICREC LAST IN CHAIN RECEIVED? P RF(Z) G
0x00af2c…00b0c0 Dummy {f00=0x0003, f01=0x0190, f02=»,A11 SAVE BUFFER ADDRESS & P CF A14,SAVE2 SAVE INFORMATION =2 ] " P CF A14,GETBUF GET NEW BUFFER ] J " P LDR A3,A8 GET BUFFER ADDRESS ] p $ P CF A14,READNW READ WITH NO WAIT ] , P CF A14,REST2 RESTORE UNPACK INFORMATION ] P LDR A1,A10 ] P ANKL
0x00b0c0…00b254 (1, 13) Dummy {f00=0x0003, f01=0x0190, f02=»VDUCOD ] P RF(NE) GETC70 ^ P CF A14,SAVE2 ^ $ P CF A14,DISMOD ^ : P CF A14,REST2 ^ P P XIF ^ f P IFT SNA=1 ^ r PGETC70 EQU * ^ P LDK A1,ICOMN1 NEXT LABEL ^ P ST A1,UNPMOD,A11 ^ PGETC80 EQU * ^ P LD A8,BUFPNT,A11 ^ P SUR A
0x00b254…00b3e8 Dummy {f00=0x0003, f01=0x018e, f02=»***************************** ^ p B P* * _ & B P* PUTCHA PUT CHAR. IN DC BUFFER * _ l B P* * _ B P****************
0x00b3e8…00b57c Dummy {f00=0x0003, f01=0x0190, f02=» _ v P* A12= RESERVED ` P* A13= RESERVED ` P* ` 8 B P************************************************************* ` B PPUTCHA EQU * ` P LDR A1,A1 SBA TO STORE? ` P RF(N) PUTC10 YES ` $ P CWK A9,BUFFL+BUFFL BUFFER FULL? ` P RF(NL) PU
0x00b57c…00b710 Dummy {f00=0x0003, f01=0x018e, f02=»PUTC30 YES ` PPUTC20 EQU * a P IFT SNA=1 a & ( P CF A14,SAVE2 SAVE PACK INFORMATION a 8 ( P LDK A1,1 INDICATE NOT LAST IN CHAIN a d " P CF A14,DCWRIT WRITE DC BUFFER a P LDR A9,A1 a P CF A14,REST2 a P LDR A9,A9 TRANSMISSION OK? a P RF(NZ
0x00b710…00b8a4 Dummy {f00=0x0003, f01=0x0190, f02=» P LDKL A1,* b P ST A1,REGI,A11 b P LKM b . P DATA 3 b : P XIF b J PPUTC30 EQU * b V ( P CF A14,PDCCH PUT CHAR. IN DC BUFFER b j P LDK A1,0 RETURN CODE b PPUTC90 EQU * b P RTN A14 b EJECT b 6 2**********************************
0x00b8a4…00ba38 Dummy {f00=0x0003, f01=0x0190, f02=» 6 2* * c 6 2************************************************** c > * REGISTERS c x * c * A2= CHAR. c * A3= RESERVED c * A4= RESERVED c * A5= RESERVED c * A6= RESERVED c P* A8=
0x00ba38…00bbcc Dummy {f00=0x0003, f01=0x0190, f02=» RESERVED c * d 8 3*************************************************** d PDCCH EQU * d X " P CWK A9,BUFFL+BUFFL OVERFLOW? d l RF(NL) PDC100 YES d ANK A2,/FF d P IFT SNA+EBCDIC=2 . =5 d P LC A2,CONEBC,A2 CONVERT d XIF d "
0x00bbcc…00bd60 Dummy {f00=0x0003, f01=0x018e, f02=»***************************************************** d D ?* * e > D ?* GDCCH GET CHAR. IN DC BUFFER * e D ?*
0x00bd60…00bef4 (1, 14) Dummy {f00=0x0004, f01=0x0190, f02=» e | * A2= CHAR. f * A3= POINTER IN VDU BUFFER f * A4= RESERVED f @ * A5= RESERVED f V * A6= RESERVED f l P* A8= ADDRESS IN DC-BUFFER f * A9= DC-BUFFER INDEX f * A10= INDICATOR f P* A11= CREDIT WORK AREA f P* A12= RESERVE
0x00bef4…00c088 Dummy {f00=0x0004, f01=0x0190, f02=»ESET ERROR f & P CW A9,DCLENG,A11 BUFFER EMPTIED? g P RF(NL) GDCC90 YES g < P LDK A1,0 g V P LCR A2,A8 GET CHAR. g h ANK A2,/FF g P IFT SNA+EBCDIC=2 . =5 g P LC A2,CONASC,A2 CONVERT g XIF g P ADKL A8,1 g ADKL A9,1 g PGD
0x00c088…00c21c Dummy {f00=0x0004, f01=0x0190, f02=» * g | @ P* PAID STORE AID IN BUFFER * h 0 @ P* * h t @ P*********************************************************** h P* REGISTERS
0x00c21c…00c3b0 Dummy {f00=0x0004, f01=0x0190, f02=»**************** h f PPAID EQU * i P CF A14,PDCCH STORE AID i * P RTN A14 i J P EJECT i Z > P********************************************************** i h > P* * i > P* BUFADR STORE
0x00c3b0…00c544 Dummy {f00=0x0004, f01=0x0190, f02=»************************** i p P* REGISTERS j " P* j 6 P* A2= CHAR. j @ P* A3= RESERVED j T P* A4= RESERVED j j P* A5= RESERVED j P* A6= RESERVED j P* A8= RESERVED j P* A9= RESERVED j P* A10= RESERVED j P* A11= RESERVED j P
0x00c544…00c6d8 Dummy {f00=0x0004, f01=0x0190, f02=» j P LDR A2,A1 GET REL. POS. k P SRL A2,6 k ( P ANK A2,/3F k : & P LC A2,CONADR,A2 CONVERT TO ASCII k N $ P CF A14,PDCCH STORE IN DC-BUFFER k x P LDR A2,A1 GET REL. POS. k P ANK A2,/3F k & P LC A2,CONADR,A2 CONVERT TO ASCII k $ P CF A14,PD
0x00c6d8…00c86c Dummy {f00=0x0004, f01=0x0190, f02=» * k @ P* RESMDT RESET ALL MDT-BITS IN ATTRIBUTES * l < @ P* * l @ P************************************************************ l P
0x00c86c…00ca00 Dummy {f00=0x0004, f01=0x0190, f02=»RESERVED l P* A8= RESERVED m P* A9= RESERVED m & P* A10= RESERVED m < P* A11= CREDIT WORK AREA m T P* A12= RESERVED m t P* A13= RESERVED m P* m B P************************************************************* m PRESMDT EQU * m P
0x00ca00…00cb94 (1, 15) Dummy {f00=0x0004, f01=0x0190, f02=»NL) RESM90 YES m P LCR A2,A3 GET CHAR. n P CCK A2,/8080 ATTRIBUTE? n 2 P RF(L) RESM20 NO n R P ANK A2,/FE RESET MDT-BIT n j P SCR A2,A3 RESTORE n PRESM20 EQU * n P ADK A1,1 n P ADK A3,1 n P RB RESM10 n PRESM90 EQU * n P RTN
0x00cb94…00cd28 Dummy {f00=0x0004, f01=0x018e, f02=» * n b 2 P* P1WCC PROCESS WCC BEFORE UPDATE o < P* * o H < P******************************************************** o P* REGISTERS o P* o P* A2= CHAR. o P* A3= RESERVED
0x00cd28…00cebc Dummy {f00=0x0004, f01=0x0190, f02=» o ~ P* A11= CREDIT WORK AREA p P* A12= RESERVED p ( P* A13= RESERVED p @ P* p X 8 P*************************************************** p b PP1WCC EQU * p P LC A2,CONATT,A2 IN EBCDIC p P ST A2,WCC,A11 SAVE p P ANK A2,1 RESET MDT-BITS
0x00cebc…00d050 Dummy {f00=0x0004, f01=0x018e, f02=»*********************************************** p > P* * q 8 > P* P2WCC TAKE CARE OF WCC AFTER UPDATE * q z > P* * q > P**********
0x00d050…00d1e4 Dummy {f00=0x0004, f01=0x0190, f02=» q ~ P* A13= RESERVED r P* r > P********************************************************** r * PP2WCC EQU * r l " P CF A14,SAVE2 KEEP IT AWAY =4 r P LD A3,WCC,A11 . =4 r P LC A4,TCT01,A11 . =6 r P CCK A4,VDUCOD VDU? =6 r " P RF(NE) P2
0x00d1e4…00d378 Dummy {f00=0x0004, f01=0x0190, f02=»QU * r P ANK A3,8 COPY? =4 s P RF(Z) P2W300 NO s & P CCK A4,VDUCOD VDU? =4 s > P RF(NE) P2W200 NO PRINTER =4 s P CF A14,COPY COPY s P RF P2W300 . =4 s PP2W200 EQU * . =4 s " P CF A14,COPP COPY DIRECTLY =4 s PP2W300 EQU * s " P C
0x00d378…00d50c Dummy {f00=0x0004, f01=0x0190, f02=» F P* * t F P* SAVE SAVE PACK AND UNPACK INFORMATION * t N F P* * t F P**************************************
0x00d50c…00d6a0 Dummy {f00=0x0004, f01=0x0190, f02=»SS t z P* A4= REL CURSOR POS. u P* A5= REL STTRIBUTE POS. u ( P* A6= ATTRIBUTE CHAR. u H P* A10= INTERNAL INDICATOR u f P* A11= CREDIT WORK AREA u P* A12= RESERVED u P* A13= RESERVED u P* u D P**************************************
0x00d6a0…00d834 (1, 16) Dummy {f00=0x0004, f01=0x0190, f02=»L A1,STACK2 u PSAVE EQU * v P ADR A1,A11 v & P STR A2,A1 v : P ADK A1,2 v L P STR A3,A1 v ^ P ADK A1,2 v p P STR A4,A1 v P ADK A1,2 v P STR A5,A1 v P ADK A1,2 v P STR A6,A1 v P ADK A1,2 v P STR A7,A1 v P ADK A1,
0x00d834…00d9c8 Dummy {f00=0x0004, f01=0x0190, f02=»* * v H P* RESTOR RESTORE PACK AND UNPACK INFORMATION * w L H P* * w H P************************************
0x00d9c8…00db5c Dummy {f00=0x0004, f01=0x018e, f02=»DDRESS w ~ P* A4= REL. CURSOR POS. x P* A5= REL. ATTRIBUTE POS. x , P* A6= ATTRIBUTE CHAR. x N P* A7= RESERVED x l P* A10= INTERNAL INDICATOR x P* A11= CREDIT WORK AREA x P* A12= RESERVED x P* A13= RESERVED x P* x D P**********
0x00db5c…00dcf0 Dummy {f00=0x0004, f01=0x0190, f02=» x PREST2 EQU * y P LDKL A1,STACK2 y PRESTOR EQU * y 4 P ADR A1,A11 y H P LDR* A2,A1 y P ADK A1,2 y p P LDR* A3,A1 y P ADK A1,2 y P LDR* A4,A1 y P ADK A1,2 y P LDR* A5,A1 y P ADK A1,2 y P LDR* A6,A1 y P
0x00dcf0…00de84 Dummy {f00=0x0004, f01=0x018e, f02=»************************* y r < P* * z " < P* BUFFER POOL * z b < P* * z < P**************************************
0x00de84…00e018 Dummy {f00=0x0004, f01=0x0190, f02=» z P IFF BUFFNR=2 { P DATA *+LINK { P RES BUFFL { 2 P IFF BUFFNR=3 { D P DATA *+LINK { Z P RES BUFFL { n P IFF BUFFNR=4 { P DATA *+LINK { P RES BUFFL { P IFF BUFFNR=5 { P DATA *+LINK { P RES BUFFL { P IFF BUFFNR=6 {
0x00e018…00e1ac Dummy {f00=0x0004, f01=0x0190, f02=»NK { P RES BUFFL | P IFF BUFFNR=9 | P DATA *+LINK | 2 P RES BUFFL | F P IFF BUFFNR=10 | X P DATA *+LINK | n P RES BUFFL | P IFF BUFFNR=11 | P DATA *+LINK | P RES BUFFL | P IFF BUFFNR=12 | P DATA *+LINK | P RES BUFFL |
0x00e1ac…00e340 Dummy {f00=0x0004, f01=0x0190, f02=»15 | P DATA *+LINK } P RES BUFFL } P IFF BUFFNR=16 } 0 P DATA *+LINK } F P RES BUFFL } Z P IFF BUFFNR=17 } l P DATA *+LINK } P RES BUFFL } P IFF BUFFNR=18 } P DATA *+LINK } P RES BUFFL } P IFF BUFFNR=19 } P DATA *+LINK }
0x00e340…00e4d4 (1, 17) Dummy {f00=0x0004, f01=0x0190, f02=» } P IFF BUFFNR=22 ~ P DATA *+LINK ~ P RES BUFFL ~ 2 P IFF BUFFNR=23 ~ D P DATA *+LINK ~ Z P RES BUFFL ~ n P IFF BUFFNR=24 ~ P DATA *+LINK ~ P RES BUFFL ~ P IFF BUFFNR=25 ~ P DATA *+LINK ~ P RES BUFFL ~ P IFF BUFFNR=26 ~
0x00e4d4…00e668 Dummy {f00=0x0004, f01=0x0190, f02=»NK ~ P RES BUFFL P IFF BUFFNR=29 P DATA *+LINK 2 P RES BUFFL F P IFF BUFFNR=30 X P DATA *+LINK n P RES BUFFL P IFF BUFFNR=31 P DATA *+LINK P RES BUFFL P IFF BUFFNR=32 P DATA *+LINK P RES BUFFL
0x00e668…00e7fc Dummy {f00=0x0004, f01=0x0190, f02=» * < P* GETBUF GET BUFFER * 8 < P* * x < P******************************************************* P* REGISTERS
0x00e7fc…00e990 Dummy {f00=0x0004, f01=0x0190, f02=»3= RESERVED P* < P******************************************************** PGETBUF EQU * ^ P LDKL A7,BUFFER r PGETB10 EQU * P LDR* A8,A7 P RF(NZ) GETB90 BUFFER FREE P LKM P DATA 0 SWITCH TASK P RB GETB10
0x00e990…00eb24 Dummy {f00=0x0004, f01=0x018e, f02=» EJECT > P********************************************************* > P* * P > P* RELBUF RELEASE BUFFER * > P*
0x00eb24…00ecb8 Dummy {f00=0x0004, f01=0x418c, f02=» P* A11= RESERVED P* A13= RESERVED P* 4 > P********************************************************* > PRELBUF EQU * P LDKL A7,BUFFER P SUKL A8,2 POINT TO LINK PRELB10 EQU * P LDR* A1,A7 P RF(Z) RELB90
0x00ecb8…00ee4c Dummy {f00=0x0004, f01=0x2008, f02=»
0x00ee4c…00efe0 Dummy {f00=0x0004, f01=0x0190, f02=» p & P EXTRN ECBRL ECB REQUESTED LENGTHH & P EXTRN ECBEL ECB EFFECTIVE LENGTH 2 P EXTRN ECBRC ECB RETURN CODE " P EXTRN ECBCW ECB CONTROL WORD P EXTRN ILLINT P EXTRN INTSAV * P EXTRN PFPOST WAIT FOR POWER UP IF SET & P EXTRN T
0x00efe0…00f174 (1, 18) Opaque[0x194]
0x00f174…00f308 # DirEnt {nam=»VDU «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x00a0, f03=0x0000}
0x00f174…00f308 IdxSect {
0x00f174…00f308 f00 = 0x0005 // 0xf174 @0x0
0x00f174…00f308 f01 = 0x0022 // 0xf176 @0x2
0x00f174…00f308 gno = [ // 0xf178 @0x4
0x00f174…00f308 [0x00]: C0x0005.0x0.0
0x00f174…00f308 [0x01]: C0x0005.0x1.0
0x00f174…00f308 [0x02]: C0x0005.0x2.0
0x00f174…00f308 [0x03]: C0x0005.0x3.0
0x00f174…00f308 [0x04]: C0x0006.0x0.0
0x00f174…00f308 [0x05]: C0x0006.0x1.0
0x00f174…00f308 [0x06]: C0x0006.0x2.0
0x00f174…00f308 [0x07]: C0x0006.0x3.0
0x00f174…00f308 [0x08]: C0x0007.0x0.0
0x00f174…00f308 [0x09]: C0x0007.0x1.0
0x00f174…00f308 [0x0a]: C0x0007.0x2.0
0x00f174…00f308 [0x0b]: C0x0007.0x3.0
0x00f174…00f308 [0x0c]: C0x0008.0x0.0
0x00f174…00f308 [0x0d]: C0x0008.0x1.0
0x00f174…00f308 [0x0e]: C0x0008.0x2.0
0x00f174…00f308 [0x0f]: C0x0008.0x3.0
0x00f174…00f308 [0x10]: C0x0009.0x0.0
0x00f174…00f308 ]
0x00f174…00f308 }
0x00f308…00f49c Dummy {f00=0x0005, f01=0x0190, f02=» . P IDENT VDU REL 11.1 82-03-16 870150541110 P 6 P =3, NONDISPLAY ERROR > P 82-02-12 ^ P =2, NATIONAL CHAR r P 81-04-08 P =1, LINFLG AT UNFORM. P 81-01-26 D P**************************************************
0x00f49c…00f630 Dummy {f00=0x0005, f01=0x0190, f02=» * f D P* MODULE HANDLING THE DISPLAY SCREEN AND * D P* BUFFER * f D P* (EMULATION 3270 SNA/SDLC, BSC) * D P*
0x00f630…00f7c4 Dummy {f00=0x0005, f01=0x0190, f02=» @ P*********************************************************** P* H P* LIST OF ROUTINES R P* l 2 P* DISMOD DISPLAY MODIFIED FIELDS v & P* DISLIN DISPLAY LINE 6 P* SPACES MOVE SPACES INTO ECB BUFFER
0x00f7c4…00f958 Dummy {f00=0x0005, f01=0x0190, f02=»RT CHAR. v * P* UPDCNT UPDATE COUNTERS 2 P* GETVDU GET CHAR. IN VDU BUFFER > 2 P* STOVDU STORE CHAR IN VDU BUFFER t 0 P* SCRINF GET SCREEN INFORMATION 2 P* STOINF STORE SCREEN INFORMA
0x00f958…00faec Dummy {f00=0x0005, f01=0x0190, f02=»INE WRAP p * P* LINE UPDATE LINE FLAG < P* LINATT UPDATE LINFLG AT ATTRIBUTE CHANGE > * P* NLROUT NEW LINE ROUTINE ~ . P* ERASE ERASE ENTIRE SCREEN 0 P* ERASUP ERASE ALL UNPROTECTE
0x00faec…00fc80 Dummy {f00=0x0005, f01=0x0190, f02=» DISID DISPLAY HARDCOPY TASKID , P* DISSTA DISPLAY STATISTICS . $ P* MOVTXT MOVE TEXT ^ * P* CONASC CONVERT TO ASCII 2 P* ATMASF SEARCH ATTRIBUTE FORWARD 4 P* ATMASB SEARCH A
0x00fc80…00fe14 (1, 19) Dummy {f00=0x0005, f01=0x0190, f02=» RFMDUP REPLACE FM OR DUP CHAR. IF ANY ( P* DISCHA DISPLAY CHAR. : P* f F P***************************************************************** p P EJECT H P****************************************************************
0x00fe14…00ffa8 Dummy {f00=0x0005, f01=0x0190, f02=» * ` H P* * H P******************************************************************** h P " P ENTRY INSMOD INSERT CHARACTER , P ENTRY GETVDU GET CHAR. FROM VDU BUFFE
0x00ffa8…01013c Dummy {f00=0x0005, f01=0x0190, f02=»ION n 0 P ENTRY POSUNP MOVE TO NEXT UNPROTECTED POS. , P ENTRY ATMASB SEARCH ATTRIBUTE BACKWARDS @ , P ENTRY ATMASF SEARCH ATTRIBUTE FOREWARD p P ENTRY DISCHA DISPLAY CHAR. * P ENTRY WCHAR DISPLAY CHAR. AND CURSOR * P ENTRY DISMOD DISPLAY
0x01013c…0102d0 Dummy {f00=0x0005, f01=0x0190, f02=» ENTIRE SCREEN ~ $ P ENTRY SOUND SOUND ALARM ON VDU ( P ENTRY ERASUP ERASE ALL UNPROTECTED > $ P ENTRY WRAP CHECK IF WRAP AROUND j " P ENTRY NLROUT NEW LINE ROUTINE " P ENTRY LINWRP CHECK LINE WRAP P ENTRY LINE UPDATE LINE FLAG P ENTRY
0x0102d0…010464 Dummy {f00=0x0005, f01=0x0190, f02=»**************** H P* * H P* EXTERNAL REFERENCES * d H P* * H P************
0x010464…0105f8 Dummy {f00=0x0005, f01=0x0190, f02=»N MOVE CURSOR UNPROTECTED NEXT LINE (KEYB) 4 P EXTRN RDHOME UNPROTECTED FIRST ON SCREEN (KEYB) 2 & P EXTRN SAVE1 SAVE REGISTERS (PAD) j ( P EXTRN REST1 RESTORE REGISTERS (PAD) * P EXTRN CONNAT TRANSFORM OF NAT.CHAR =2 P EJECT P P
0x0105f8…01078c Dummy {f00=0x0005, f01=0x0190, f02=» * Z J P* CONDITIONAL ASSEMBLY PARAMETERS * J P* * f J P********************************************************************* P $
0x01078c…010920 Dummy {f00=0x0005, f01=0x0190, f02=» , PTRANAT EQU X:R TRANSFORM OF NAT.CHAR =2 P EJECT 8 D ?*************************************************************** F D ?* * & P* DECLARATIONS OF DATA AND EQUATES D ?*
0x010920…010ab4 (1, 20) Dummy {f00=0x0005, f01=0x0190, f02=» * $ * EQUATES FOR ECB HANDLING * : ECBBA EQU 2 BUFFER ADDRESS D ECBRL EQU 4 REQUESTED LENGTH f ECBEL EQU 6 EFFECTIVE LENGTH ECBRC EQU 8 RETURN CODE ECBCW EQU 10 CONTROL WORD P* P* SPECIAL CHAR
0x010ab4…010c48 Dummy {f00=0x0005, f01=0x018e, f02=» EQU /19 END MESSAGE CHAR. " PDUPCH EQU /1C DUPLICATE CHAR. " " PFMCH EQU /1E FIELD MARK CHAR. H P* n P* TASK IDENTIFICATION CODE x P* PVDUCOD EQU 'VV' VDU KB TASK P* P* INTERNAL STATUS P* " PLINUPD EQU /0001 L
0x010c48…010ddc Dummy {f00=0x0005, f01=0x0190, f02=» v PLBVDU EQU 1920 TOTAL SIZE P IFT TEST=1 * P* > P* STAT. LAYOUT H P* ^ , PNUMLIN EQU 13 NUMBER OF LINES YO DISPLAY h * PSTALIN EQU 5 STARTING LINE OF DISPLAY & PSTAPOS EQU 5 STARTTING POS ON LINE ( PTXTSIZ EQU 15 SIZE OF PE
0x010ddc…010f70 Dummy {f00=0x0005, f01=0x0190, f02=» IN | P* TERMINAL WORKBLOCK P* ( $ PTCT01 EQU 0 TASK IDENTIFICATION 2 " PBVDU EQU TCT01+2 SCREEN BUFFER Z , PLINFLG EQU BVDU+1920 INTERNAL LINE FLAGS & PPCURS EQU LINFLG+24 CURSOR ADDRESS * PATTRIB EQU PCURS+2 LAST ATTRIBUTE CHAR P
0x010f70…011104 Dummy {f00=0x0005, f01=0x0190, f02=»K REGISTER z PECBVDU EQU REGI+40 P* , P* RELATIVE ADDRESSES IN 6 P* COMMON WORKBLOCK V P* p " PIDTEXT EQU 2 IDENT TEXT LAYOUT z P IFT TEST=1 . PSTATXT EQU IDTEXT+22 STATISTIC TEXT LAYOUT P XIF P EJECT > P********
0x011104…011298 Dummy {f00=0x0005, f01=0x0190, f02=»MOD DISPLAY MODIFIED FIELDS * > P* * 6 > P********************************************************* x P* REGISTERS P* P* A2= CHAR. P* A3= ADDRESS IN VDU-BUFFER
0x011298…01142c Dummy {f00=0x0005, f01=0x018e, f02=»ECB P* A9= INTENSITY COUNTER P* A10= INDICATOR , P* A11= CREDIT WORK AREA D P* A13= RESERVED d P* | : P***************************************************** PDISMOD EQU * P LD A8,ECBVDU,A11 P LDKL A1,/101 LINE 1 P
0x01142c…0115c0 Dummy {f00=0x0005, f01=0x0190, f02=» P ADR A3,A11 P CF A14,SCRINF " P LDK A4,0 FIRST SCREEN POS./=3 . ( P CF A14,SPACES SPACES IN ECB BUFFER T P ST A5,REGI,A11 P LDKL A1,LBVDU+1 P LDR A5,A11 P CW A1,REGI,A11 P RF(NE) DIS100 NO P LDK A2,0 LOW INTE
0x0115c0…011754 (1, 21) Dummy {f00=0x0005, f01=0x0190, f02=»R. n P LDR A1,A10 P SUR A10,A10 P LDR A1,A1 2 P RF(N) DIS800 NONDISPLAY D P RF(NZ) DIS400 DISPLAY LINE d $ P LD A2,ECBCW,A8 NO MODIFICATION P CWK A2,/1901 ALLDISPLAYED P RB(NE) DIS100 NO P RF DIS900 PDIS400 EQU
0x011754…0118e8 Dummy {f00=0x0005, f01=0x0190, f02=» * & P LCR A2,A3 GET CHAR. IN VDU-BUFFER & P CF A14,SETIND SET SPACE INDICATOR 4 P CCK A2,/8000 ATTRIBUTE? ^ P RF(NL) DIS700 YES ~ " P CF A14,UPDCNT UPDATE COUNTERS P CWK A2,NULL NULL CHAR.? P RB(E) DIS400 YES " P CWK A2,NEWLIN N
0x0118e8…011a7c Dummy {f00=0x0005, f01=0x0190, f02=»FEED CHAR.? | P RB(E) DIS400 YES , P CF A14,RFMDUP REPLACE DUP AND FM CHAR. . P IFF TRANAT=0 . =2 ^ * P LC A2,CONNAT,A2 TRANSFORM NAT.CHAR =2 x P XIF . =2 * P SC A2,-1,A6 STORE CHAR. IN ECB BUFFER P RB DIS400 PDIS700 EQU *
0x011a7c…011c10 Dummy {f00=0x0005, f01=0x0190, f02=» P RF(Z) DIS715 YES " P CF A14,UPDCNT UPDATE COUNTERS P RF DIS800 NONDISPLAY D PDIS715 EQU * b P LDK A2,/1F HIGH v P RF DIS750 PDIS725 EQU * P LDK A2,/1E LOW PDIS750 EQU * ( P SCR A2,A6 SAVE CHAR. IN ECB BUFFER
0x011c10…011da4 Dummy {f00=0x0005, f01=0x018e, f02=»OMPLETED? | P RF(L) DIS850 NO P CF A14,DISLIN DISPLAY LINE * P RB DIS100 N PDIS850 EQU * ` & P LCR A2,A3 GET CHAR. IN VDU-BUFFER t P CCK A2,/8000 ATTRIBUTE? P RB(NL) DIS700 YES " P CF A14,UPDCNT UPDATE COUNTERS P RB DIS800
0x011da4…011f38 Dummy {f00=0x0005, f01=0x0190, f02=» P RTN A14 P EJECT @ P*********************************************************** " @ P* * f @ P* DISLIN DISPLAY LINE ON VDU * @ P*
0x011f38…0120cc Dummy {f00=0x0005, f01=0x0190, f02=» P* A3= RESERVED P* A4= RESERVED P* A5= RESERVED 0 P* A6= RESERVED F P* A8= ECB VDU P* A9= INTENSITY COUNTER r P* A10= INDICATOR P* A11= RESERVED P* A13= RESERVED P* @ P************************************
0x0120cc…012260 Dummy {f00=0x0005, f01=0x0190, f02=»F(Z) DISL10 YES P LDKL A7,LLINE+2 REQ. LENGTH , P ADR A7,A9 ADD NUMBER OF INTENSITY CHAR. < PDISL10 EQU * l P ST A7,ECBRL,A8 & P LDKL A7,/8B SET CURSOR AND WRITE P LKM P DATA 1 $ P LD A1,ECBCW,A8 GET CURSOR POS. P A
0x012260…0123f4 (1, 22) Dummy {f00=0x0006, f01=0x0190, f02=» SC A2,1,A6 P LDKL A2,/1420 P SC A2,3,A6 * P SRL A2,8 > P SC A2,2,A6 P P LDK A2,84 d P ST A2,ECBRL,A8 v P LDK A7,/86 WRITE P LKM P DATA 1 PDISL90 EQU * P ADK A5,1 P LDK A2,1 FIRST POS. ON LINE
0x0123f4…012588 Dummy {f00=0x0006, f01=0x0190, f02=» P CWK A2,/1901 END OF SCREEN P RF(NE) DISL95 NO ( P LDKL A10,1 B PDISL95 EQU * V , P CF A14,SPACES MOVE SPACES TO ECB BUFFER j P RTN A14 P EJECT @ P************************************************************ @ P*
0x012588…01271c Dummy {f00=0x0006, f01=0x0190, f02=» * @ P************************************************************ 8 P* REGISTERS | P* P* A2= CHAR. P* A3= RESERVED P* A4= RESERVED P* A5= RESERVED P* A6= ADDRESS IN ECB BUF
0x01271c…0128b0 Dummy {f00=0x0006, f01=0x0190, f02=» P* A13= RESERVED ! P* ! @ P************************************************************ ! & PSPACES EQU * ! j & P LD A6,ECBBA,A8 GET BUFFER ADDRESS ! ~ P ADK A6,2 ! P LDK A7,LLINE LINE LENGTH ! P ADR A7,A7 BUFFER LENGTH ! P LDKL A2,'
0x0128b0…012a44 Dummy {f00=0x0006, f01=0x0190, f02=» SPAC10 NO ! P LDK A2,0 CHAR. " " P LD A6,ECBBA,A8 BUFFER ADDRESS " * P ADK A6,2 " P " P LDK A7,0 RESET CHAR. COUNTER " b P RTN A14 " P EJECT " > P********************************************************* " > P*
0x012a44…012bd8 Dummy {f00=0x0006, f01=0x0190, f02=» * " l > P********************************************************* # P* REGISTERS # ` P* # t P* A2= CHAR. # ~ P* A3= RESERVED # P* A4= RESERVED # P* A5= RESERVED # P* A6= ADDRESS IN ECB BUFFER # P* A7= RESERVED #
0x012bd8…012d6c Dummy {f00=0x0006, f01=0x018e, f02=» P* $ 4 P************************************************ $ PINTCHK EQU * $ F & P SUR A9,A9 RESET INTENSITY COUNTER $ Z " P LC A2,LINFLG,A5 GET LINE FLAG $ P ANK A2,1 MODIFIED? $ P RF(NZ) INT100 YES $ P ADK A3,LLINE NEXT LINE $ P ADK A4,
0x012d6c…012f00 Dummy {f00=0x0006, f01=0x0190, f02=» $ P RF INT900 % PINT100 EQU * % P LC A2,LINFLG,A5 % . P ANK A2,2 % F P SC A2,LINFLG,A5 % X P LDKL A10,1 % p P LD A2,REGI,A11 % ( P CWK A2,LBVDU+1 UNFORMATTED SCREEN? % P RF(E) INT200 YES % P CF A14,SAVE1 % P LDR A1,A4 %
0x012f00…013094 (1, 23) Dummy {f00=0x0006, f01=0x0190, f02=»5,A2 % P LDR A6,A3 & P CF A14,STOINF & P CF A14,REST1 & 4 P LDK A7,0 & J PINT200 EQU * & P LD A2,INTATT,A11 & p P LDR A1,A2 & P ANK A1,8 LOW INTENSITY? & P RF(Z) INT300 YES & P ANK A2,4 HIGH INTENSITY? & " P RF(NZ) INT800 N
0x013094…013228 Dummy {f00=0x0006, f01=0x018e, f02=»A6 SAVE IN ECB BUFFER & P ADK A6,1 ' P ADKL A9,1 ' 0 P RF INT900 ' B PINT800 EQU * ' T P LDKL A10,/8000 ' h PINT900 EQU * ' P RTN A14 ' P EJECT ' 4 P************************************************ ' 4 P*
0x013228…0133bc Dummy {f00=0x0006, f01=0x0190, f02=» 4 P************************************************ ( P* REGISTERS ( < P* ( P P* A2= CHAR ( Z P* A3= RESERVED ( l P* A4= RESERVED ( P* A5= RESERVED ( P* A6= RESERVED ( P* A7= RESERVED ( P* A8= RESERVED ( P* A9= RESERVED ( P*
0x0133bc…013550 Dummy {f00=0x0006, f01=0x0190, f02=» EQU * ( P CWK A2,NULL NULL CHAR? ) P RF(E) SETI90 YES ) . ( P ORKL A10,1 INDICATE NOT ONLY SPACES ) H PSETI90 EQU * ) t P RTN A14 ) P EJECT ) D P**************************************************************** ) D P*
0x013550…0136e4 Dummy {f00=0x0006, f01=0x0190, f02=» * ) ~ D P**************************************************************** * 6 P* REGISTERS * ~ P* * D P* A1= AT RETURN 0=NULL IN POS., 1=NORMAL INSERT, 2=NOT ALLOWED * P* A2= RESERVED * P* A4= REL. CUR
0x0136e4…013878 Dummy {f00=0x0006, f01=0x0190, f02=»* * D P*************************************************************** + PINSMOD EQU * + R P IFT IN:DL=1 + f P LDR A1,A4 + z * P CF A14,GETVDU GET CHAR. IN VDU BUFFER + P CCK A7,NULL NULL CHAR.? + P RF(NE) INS100 NO + * P LDK A1,0 INDICATE N
0x013878…013a0c Dummy {f00=0x0006, f01=0x0190, f02=»200 YES + P LDR A8,A6 SAVE OLD , P LDR A9,A5 SAVE OLD , , , P CF A14,ATMASF SEARCH ATTRIBUTE FORWARD , H P LDR A3,A5 , x P ST A8,ATTRIB,A11 RESTORE , P ST A9,CURATT,A11 RESTORE , P LDR A6,A8 , P LDR A5,A9 , PINS200 EQU * , $ P C
0x013a0c…013ba0 Dummy {f00=0x0006, f01=0x0190, f02=» , PINS300 EQU * - ( P CWK A5,LBVDU+1 UNFORMATTED SCREEN? - P RF(E) INS350 YES - H * P ORK A6,1 SET MDT-BIT ON IN ATTRIBUTE - b P ST A6,ATTRIB,A11 - P LDR A1,A5 - P LDR A7,A6 - 4 P CF A14,STOVDU SAVE NEW ATTRIBUTE IN VDU-BUFFER - PIN
0x013ba0…013d34 (1, 24) Dummy {f00=0x0006, f01=0x0190, f02=» P LDR A9,A1 . " P CF A14,LINE UPDATE LINE FLAG . P LDR A1,A9 . < PINS400 EQU * . N . P CWK A1,0 CHAR TO MOVE IN LAST SCREEN POS? . b P RF(E) INS500 YES . P SUK A1,1 . * P CF A14,GETVDU GET CHAR IN VDU BUFFER . P ADK A1,1 . P LDR A9,
0x013d34…013ec8 Dummy {f00=0x0006, f01=0x0190, f02=»A9,LINFLG,A6 . , P CF A14,STOVDU STORE CHAR IN VDU BUFFER / P SUK A1,1 / D P SUK A4,1 / V PINS450 EQU * / h P CW A1,REGI,A11 ALL SHIFTED? / | P RF(E) INS600 YES / P RB INS400 / PINS500 EQU * / " P LDKL A1,LBVDU-1 GET LAST CHAR / * P C
0x013ec8…01405c Dummy {f00=0x0006, f01=0x018e, f02=» P CF A14,LINE 0 P LDR A1,A9 0 P LC A9,LINFLG,A6 0 * P ORKL A9,1 0 B P SC A9,LINFLG,A6 0 T , P CF A14,STOVDU STORE CHAR IN VDU BUFFER 0 l & P LDKL A1,LBVDU-1 LAST SCREEN POS. 0 P LDKL A4,LBVDU-1 0 P RB INS450 0 PINS600 EQU * 0 P LDR
0x01405c…0141f0 Dummy {f00=0x0006, f01=0x0190, f02=» P LC A9,LINFLG,A6 1 P ORKL A9,1 1 P SC A9,LINFLG,A6 1 . P IM PCURS,A11 MOVE CURSOR 1 F P LD A4,REGI,A11 1 h P ADK A4,1 1 P CWK A4,LBVDU-1 WRAP AROUND? 1 P RF(NG) INS700 NO 1 " P LDK A4,0 FIRST POS. ON SCREEN 1 P CM PCURS,A11 1
0x0141f0…014384 Dummy {f00=0x0006, f01=0x0190, f02=»14 1 P XIF 2 P EJECT 2 > P********************************************************* 2 $ > P* * 2 f > P* UPDCNT UPDATE COUNTERS * 2 > P*
0x014384…014518 Dummy {f00=0x0006, f01=0x0190, f02=» P* A3= ADDRESS IN VDU BUFFER 3 P* A4= REL CURSOR POS 3 ( P* A5= RESERVED 3 D P* A6= ADDRESS IN ECB 3 Z P* A7= INDEX IN ECB 3 v P* A8= RESERVED 3 P* A9= RESERVED 3 P* A10= RESERVED 3 P* A11= RESERVED 3 P* A13= RESERVED 3 P* 3
0x014518…0146ac Dummy {f00=0x0006, f01=0x0190, f02=»1 3 P ADK A7,1 4 P RTN A14 4 P EJECT 4 , D P**************************************************************** 4 : D P* * 4 D P* GETVDU GET CHAR. IN VDU BUFFER
0x0146ac…014840 Dummy {f00=0x0006, f01=0x0190, f02=»********** 4 Z P* REGISTERS 5 P* 5 & P* A1= REL. POS IN VDU BUFFER 5 0 P* A2= RESERVED 5 T P* A3= RESERVED 5 j P* A4= RESERVED 5 P* A5= RESERVED 5 P* A6= RESERVED 5 P* A7= CHAR. FROM VDU BUFFER 5 P* A8= RESERVED 5 P* A9= RESERV
0x014840…0149d4 (1, 25) Dummy {f00=0x0006, f01=0x0190, f02=»******************** 5 l PGETVDU EQU * 6 P LDKL A7,BVDU 6 0 P ADR A7,A11 6 F P ADR A7,A1 6 Z P LCR A7,A7 6 l P ANK A7,/FF 6 ~ P RTN A14 6 P EJECT 6 B P************************************************************** 6 B P*
0x0149d4…014b68 Dummy {f00=0x0006, f01=0x0190, f02=» * 6 B P************************************************************** 7 8 P* REGISTERS 7 ~ P* 7 " P* A1= REL. POS. IN VDU BUFFER 7 P* A2= RESERVED 7 P* A3= RESERVED 7 P* A4= RESERVED 7 P* A5
0x014b68…014cfc Dummy {f00=0x0006, f01=0x0190, f02=»REDIT WORK AREA 7 P* A13= RESERVED 8 P* 8 0 < P******************************************************** 8 : PSTOVDU EQU * 8 z P LDKL A8,BVDU 8 P ADR A8,A11 8 P ADR A8,A1 8 P SCR A7,A8 8 P RTN A14 8 P EJECT 8 < P**************
0x014cfc…014e90 Dummy {f00=0x0006, f01=0x0190, f02=»GET SCREEN INFORMATION * 8 z < P* * 9 * < P******************************************************** 9 j P* REGISTERS 9 P* 9 P* A2= RESERVED 9 P* A4= REL. CURSOR POS. 9 P* A5= REL. A
0x014e90…015024 Dummy {f00=0x0006, f01=0x0190, f02=»************************************* 9 ~ PSCRINF EQU * : . $ P LD A4,PCURS,A11 GET CURSOR POS. : B ( P LD A5,CURATT,A11 GET ATTRIBUTE POS. : j * P LD A6,ATTRIB,A11 GET ATTRIBUTE CHAR. : P RTN A14 : P EJECT : < P**************************************
0x015024…0151b8 Dummy {f00=0x0006, f01=0x0190, f02=» * : b < P* * ; < P******************************************************** ; R P* REGISTERS ; P* ; P* A4= REL. CURSOR POS. ; P* A5= REL. ATTRIBUTE POS. ; P* A6= ATTRIBUTE CHAR. ;
0x0151b8…01534c Dummy {f00=0x0006, f01=0x0190, f02=»STOINF EQU * ; P ST A4,PCURS,A11 < P ST A5,CURATT,A11 < , P ST A6,ATTRIB,A11 < F P RTN A14 < ` P EJECT < p < P******************************************************* < ~ < P* * < < P* S
0x01534c…0154e0 Dummy {f00=0x0006, f01=0x018e, f02=»************************************* < ~ P* REGISTERS = . P* = B P* A1= RETURN CODE = L P* A8= ECBVDU = f P* A11= CREDIT WORK AREA = z P* A13= RESERVED = P* = < P******************************************************* = PSOUND EQU *
0x0154e0…015674 (1, 26) Dummy {f00=0x0007, f01=0x0190, f02=» = x P SC A2,2,A1 > P LDK A2,3 REQ. LENGTH > P ST A2,ECBRL,A8 > : P LDK A7,/86 > R P LKM > f P DATA 1 > r $ P LD A1,ECBRC,A8 GET RETURN CODE > P RTN A14 > P EJECT > : P***************************************************** > : P*
0x015674…015808 Dummy {f00=0x0007, f01=0x0190, f02=» * > : P***************************************************** ? 0 P* REGISTERS ? n P* ? P* A2= RESERVED ? P* A3= ADDRESS IN VDU BUFFER ? P* A4= REL. CURSOR POS. ? P* A5= RESERVED ? P* A6= RESERVED
0x015808…01599c Dummy {f00=0x0007, f01=0x0190, f02=» RESERVED ? P* @ : P***************************************************** @ PWRAP EQU * @ Z P CWK A4,LBVDU WRAP AROUND @ l P RF(L) WRAP90 NO @ P LDK A4,0 FIRST SCREEN POS. @ P LDKL A3,BVDU @ P ADR A3,A11 @ PWRAP90 EQU * @ P
0x01599c…015b30 Dummy {f00=0x0007, f01=0x0190, f02=» * @ j B P* LINWRP CHECK LINE WRAP * A @ P* * A d @ P************************************************************ A P* REGISTERS A P* A
0x015b30…015cc4 Dummy {f00=0x0007, f01=0x0190, f02=»RESERVED A P* A10= RESERVED B P* A11= RESERVED B ( P* A13= RESERVED B @ P* B X @ P*********************************************************** B b PLINWRP EQU * B P CWR A5,A4 END OF LINE? B P RF(G) LINW10 NO B " P CF A14,LINE UPDATE LI
0x015cc4…015e58 Dummy {f00=0x0007, f01=0x0190, f02=» * B @ P* LINE UPDATE LINE FLAG * C B @ P* * C B P*************************************************************
0x015e58…015fec Dummy {f00=0x0007, f01=0x0190, f02=»* A6= INTERNAL LINE FLAG ADDRESS C P* A8= RESERVED D ( P* A9= RESERVED D > P* A10= RESERFED D T P* A11= CREDIT WORK AREA D l P* A13= RESERVED D P* D @ P*********************************************************** D PLINE EQU * D P CWR
0x015fec…016180 Dummy {f00=0x0007, f01=0x018e, f02=» D P LC A1,LINFLG,A6 E P ORK A1,2 E P SC A1,LINFLG,A6 E 2 PLIN100 EQU * E J P SUR A6,A11 E ^ P ADK A6,1 UPDATE ADDRESS E r P CWK A6,23 WRAP SCREEN? E P RF(G) LIN300 YES E P ADK A5,LLINE E P ADR A6,A11 E P RB LINE E PLI
0x016180…016314 (1, 27) Dummy {f00=0x0007, f01=0x0190, f02=» PLIN400 EQU * F P SUR A5,A4 F P CWK A5,81 F , P RF(L) LIN500 THIS LINE F > P LDK A5,LLINE F ^ P LDR A6,A11 F t P RB LINE F PLIN500 EQU * F P ADR A5,A4 RESTORE F P RTN A14 F P EJECT F B P************************************
0x016314…0164a8 Dummy {f00=0x0007, f01=0x0190, f02=»FLG AT ATTRIBUTE CHANGE * F p B P* * G & B P************************************************************* G l P* REGISTERS G P* G P* A3= ADDRESS IN VDU BUFFER G P* A4= REL CURSOR POS
0x0164a8…01663c Dummy {f00=0x0007, f01=0x0190, f02=»ERVED G P* A11= CREDIT WORK AREA H P* A13= RESERVED H . P* H F B P************************************************************** H P PLINATT EQU * H P CF A14,SAVE1 H P SUR A6,A11 H P LDK A2,0 H P LDR A10,A4 . =1 H PLINA10 EQU
0x01663c…0167d0 Dummy {f00=0x0007, f01=0x0190, f02=»A6 H P ORK A1,1 I P SC A1,LINFLG,A6 I P SUR A6,A11 I 4 P ADK A6,1 I H P CWK A6,23 WRAP AROUND? I Z P RF(G) LINA20 YES I z P ADK A5,LLINE I P RF LINA30 I PLINA20 EQU * I P LDK A6,0 I P LDK A4,0 I P LDKL A3,BVDU I
0x0167d0…016964 Dummy {f00=0x0007, f01=0x0190, f02=»A3 I P CWK A2,/80 ATTRIBUTE J P RB(NG) LINA10 YES J ( PLINA40 EQU * . =1 J B P CF A14,REST1 J P RTN A14 J r P EJECT J @ P*********************************************************** J @ P*
0x016964…016af8 Dummy {f00=0x0007, f01=0x0190, f02=» * J @ P*********************************************************** K P* REGISTERS K T P* K h P* A3= ADDRES IN VDU BUFFER K r P* A4= REL CURSOR POS K P* A5= RESERVED K P* A6= RESERVED K P* A8= RESERVED K P* A9= RESERVED K P
0x016af8…016c8c Dummy {f00=0x0007, f01=0x0190, f02=»***** K Z PNLROUT EQU * L P LDR A1,A4 SAVE CURSOR POS. L " . P CF A14,CRDOWN MOVE CURSOR ON E LINE DOWN L F P LDK A7,0 L x PNLR100 EQU * L ( P SUK A4,LLINE COMPUTE LEFTMOST POS. L P RF(N) NLR200 L P ADK A7,LLINE L P RB NLR100 L P
0x016c8c…016e20 Dummy {f00=0x0007, f01=0x0190, f02=»CR A2,A3 NULL IN VDU BUFFER L P LC A1,LINFLG,A6 M $ P ORKL A1,1 M < P SC A1,LINFLG,A6 M N P ADK A3,1 M f P ADK A4,1 M x P CF A14,LINWRP M P RB NLR300 M PNLR900 EQU * M P RTN A14 M P EJECT M H P************************************
0x016e20…016fb4 (1, 28) Dummy {f00=0x0007, f01=0x0190, f02=» ERASE ENTIRE SCREEN * M | H P* * N 8 H P******************************************************************* N P* REGISTERS N P* N P* A2= CHAR. N P* A3=
0x016fb4…017148 Dummy {f00=0x0007, f01=0x0190, f02=»T WORK AREA N P* A13= RESERVED O P* O , > P********************************************************* O 6 PERASE EQU * O x P LDK A4,0 FIRST SCREEN POS. O P LDKL A3,BVDU O P ADR A3,A11 O " P LDK A2,NULL STORE NULL CHAR. O PERAS10 E
0x017148…0172dc Dummy {f00=0x0007, f01=0x0190, f02=» A4,1 O P RB ERAS10 P PERAS20 EQU * P P LDK A4,0 FIRST SCREEN POS. P 4 ( P LDKL A5,LBVDU+1 UNFORMATTED SCREEN P X P LDK A6,0 P * P CF A14,STOINF SAVE SCREEN INFORMATION P P LC A1,TCT01,A11 P " P CCK A1,VDUCOD PRINTER UNPACK? P P RF(NE
0x0172dc…017470 Dummy {f00=0x0007, f01=0x0190, f02=» LENGTH P P ST A1,ECBRL,A8 Q P LDK A7,/86 WRITE Q ( P LKM Q B P DATA 1 Q N PERAS30 EQU * Q ^ P RTN A14 Q r P EJECT Q > P********************************************************* Q > P*
0x017470…017604 Dummy {f00=0x0007, f01=0x0190, f02=» Q V > P********************************************************* R P* REGISTERS R J P* R ^ P* A2= CHAR. R h P* A3= ADDRESS IN VDU-BUFFER R | P* A4= REL. CURSOR POS. R P* A5= REL. ATTRIBUTE POS. R $ P* A6= INTERNAL LINE FLAG ADDRESS R P
0x017604…017798 Dummy {f00=0x0007, f01=0x0190, f02=»UP EQU * R " P LDK A1,2 RESTORE KEYBOARD-BIT S P ST A1,WCC,A11 S 6 P LDK A4,0 FIRST SCREEN POS. S L P LDKL A3,BVDU S p P ADR A3,A11 S " P LDK A7,NULL STORE NULL CHAR. S ( P CWK A5,LBVDU+1 UNFORMATTED SCREEN? S P RF(NE) ERUP10 NO S P C
0x017798…01792c Dummy {f00=0x0007, f01=0x0190, f02=» S ~ P ADK A3,1 T P ADK A4,1 T P RB ERUP10 T , PERUP20 EQU * T > $ P LDR A9,A4 FIRST ATTRIBUTE POS. T R P LDK A5,LLINE T z P LDR A6,A11 T P SUR A10,A10 T P CF A14,LINE T P RF ERUP47 T PERUP30 EQU * T P ADK A3,1 T P ADK
0x01792c…017ac0 Dummy {f00=0x0007, f01=0x0190, f02=» T PERUP45 EQU * U P CWR A9,A4 ALL SCANNED? U P RF(E) ERUP70 YES U < PERUP47 EQU * U V P LDR A1,A2 U j P ANK A1,/20 PROTECTED? U | P RB(NZ) ERUP30 YES U P ANK A2,/FE RESET MDT-BIT U P SCR A2,A3 SAVE ATTRIBUTE U P LC A1,LINFLG,A6
0x017ac0…017c54 (1, 29) Dummy {f00=0x0007, f01=0x0190, f02=» AROUND U r P LCR A2,A3 GET CHAR. V P CCK A2,/8000 ATTRIBUTE? V , P RB(NL) ERUP45 YES V L . P SCR A7,A3 STORE NULL CHAR. IN VDU BUFFER V f P LC A1,LINFLG,A6 V P ORK A1,1 V P SC A1,LINFLG,A6 V P ADK A3,1 V P ADK A4,1 V P RB ERUP50
0x017c54…017de8 Dummy {f00=0x0007, f01=0x0190, f02=»************************************************************** V P* W F D P* ERASUA ERASE UNPROTECTED TO ADDRESS * W P D P* * W D P****************************************
0x017de8…017f7c Dummy {f00=0x0007, f01=0x0190, f02=» W t P* A4= REL. CURSOR POS. X P* A5= REL ATTRIBUTE POS. X & P* A6= ATTRIBUTE CHAR. X F P* A7= NULL CHAR. X d P* A11= CREDIT WORK AREA X | P* A13= RESERVED X P* X D P**************************************************************** X PER
0x017f7c…018110 Dummy {f00=0x0007, f01=0x0190, f02=»LBVDU+1 UNFORMATTED SCREEN? X P RF(E) ERUA47 YES Y $ $ P LDR A2,A6 GET CURRENT ATTRIBUTE Y > & P CWR A5,A4 STANDING ON ATTRIBUTE? Y f P RF(NE) ERUA10 NO Y P ADK A3,1 Y P ADK A4,1 Y P CWR A1,A4 ALL NULLED? Y P RF(E) ERUA70 YES Y & P C
0x018110…0182a4 Dummy {f00=0x0007, f01=0x0190, f02=» & P CF A14,WRAP CHECK IF WRAP AROUND Z P LCR A2,A3 GET CHAR. Z . P ADK A3,1 Z J P ADK A4,1 Z P CWR A1,A4 ALL NULLED? Z n P RF(E) ERUA70 YES Z P CCK A2,/8000 ATTRIBUTE? Z P RB(L) ERUA30 NO Z PERUA45 EQU * Z P LDR A8,A2 Z P ANK
0x0182a4…018438 Dummy {f00=0x0007, f01=0x0190, f02=»F A14,LINE Z P LDR A1,A8 [ P RF ERUA60 [ $ PERUA50 EQU * [ 6 P LDR A8,A1 [ J P CF A14,LINWRP [ P LDR A1,A8 [ r P CWR A1,A4 ALL NULLED? [ P RF(E) ERUA70 YES [ PERUA60 EQU * [ P LCR A2,A3 GET CHAR. [ P CCK A2,/8000 ATTRIBUTE? [
0x018438…0185cc Dummy {f00=0x0007, f01=0x0190, f02=»A6 [ P ADK A3,1 P ADK A4,1 P RB ERUA50 . PERUA70 EQU * @ P RTN A14 T P EJECT d > P********************************************************** r > P* * > P* POSUNP
0x0185cc…018760 Dummy {f00=0x0007, f01=0x0190, f02=»************************************ z P* REGISTERS ] , P* ] @ P* A2= RESERVED ] J P* A4= REL. CURSOR POS. ] ` P* A5= REL. ATTRIBUTE POS. ] ~ P* A6= ATTRIBUTE CHAR ] P* A11= CREDIT WORK AREA ] P* A13= RESERVED ] P* ] @ P**********
0x018760…0188f4 (1, 30) Dummy {f00=0x0008, f01=0x0190, f02=» " P LDK A4,0 FIRST POS. ON SCREEN ^ P ST A4,PCURS,A11 ^ * PPOSU20 EQU * ^ B P LDR A1,A4 ^ V * P CF A14,GETVDU GET CHAR IN VDU BUFFER ^ h P CCK A7,/8000 ATTRIBUTE? ^ P RF(L) POSU30 NO ^ P LDR A6,A7 ^ P ANK A7,/30 ^ & P CWK A7,/30 PROTECTE
0x0188f4…018a88 Dummy {f00=0x0008, f01=0x0190, f02=»AP AROUND? ^ ~ P RF(NG) POSU23 NO _ P LDK A4,0 _ , PPOSU23 EQU * _ > * P CF A14,STOINF SAVE SCREEN INFORMATION _ R P LDK A1,2 REQ. LENGTH _ P CF A14,DISCHA SET CURSOR _ P RF POSU30 _ PPOSU25 EQU * _ * P CF A14,TAB TAB NEXT UNPROTECTED F
0x018a88…018c1c Dummy {f00=0x0008, f01=0x0190, f02=»LINE? _ x P RF(NZ) POSU90 NO ` P LDK A1,2 REQ. LENGTH ` ( P CF A14,DISCHA SET CURSOR ` F PPOSU90 EQU * ` h P RTN A14 ` | P EJECT ` @ P************************************************************ ` @ P*
0x018c1c…018db0 Dummy {f00=0x0008, f01=0x0190, f02=» * ` f @ P************************************************************ a P* REGISTERS a ^ P* a ~ P* a @ P************************************************************ a PDISID EQU * a P LD A8,ECBVDU,A11 a & P CF
0x018db0…018f44 Dummy {f00=0x0008, f01=0x0190, f02=»DR A5,A3 POINT ON IDBUFFER a P ADK A6,46 b " P LDK A3,6 b 4 P ANK A4,1 PRINTER OPERABLE? b F P RF(Z) DISI10 YES b j P ADK A3,16 b PDISI10 EQU * b " P SUK A3,2 MOVE INTO ECBBUFFER b P RF(N) DISI20 COMPLETED b P LDR* A2,A5 b P STR
0x018f44…0190d8 Dummy {f00=0x0008, f01=0x0190, f02=»TASK ID IN BUFFER b x & P LC A2,X'1F' HIGH INTENSITY CHAR. c P SC A2,ECBBA+45,A6 c D ( P LDKL A10,1 INDICATE NOT ONLY SPACES c ^ P LDKL A9,1 1 INTENSITY CHAR. c ( P LDKL A2,X'1801' DISPLAY ON LAST ROW c P ST A2,ECBCW,A8 c & P CF A14,DISLIN DISPLAY
0x0190d8…01926c Dummy {f00=0x0008, f01=0x0190, f02=»TA DISPLAY STATISTICS c P* d D P*************************************************************** d ( P* REGISTERS d p P* d P* d D P*************************************************************** d PDISSTA EQU * d P IFT TEST=1 d
0x01926c…019400 Dummy {f00=0x0008, f01=0x018e, f02=»LINE d r P ST A2,ECBCW,A8 e $ P CF A14,SPACES CLEAN THE BUFFER e $ P LDK A5,0 RESET INDEX e L P LD A3,6,A13 e j P ADK A3,STATXT POINT TO TEXT e ~ PDISS10 EQU * e P LDK A2,/1F HIGH INTENSITY e P SCR A2,A6 e P ADK A6,1 e P LDKL A9,1 e
0x019400…019594 (1, 31) Dummy {f00=0x0008, f01=0x0190, f02=» P LC A1,INDEX,A5 f P SLL A1,1 f $ P ADR A1,A12 POINT OUT STAT VALUE f . P LCR A2,A1 f V " P CF A14,CONASC MAKE IT VISABLE f h P LDR A4,A2 f P LCR A2,A1 f P SRL A2,4 f P CF A14,CONASC f P SLL A2,8 f P ORR A2,A4 f P SC A2,+1,
0x019594…019728 Dummy {f00=0x0008, f01=0x0190, f02=»C A2,+1,A1 f P SRL A2,4 g P CF A14,CONASC g $ P SLL A2,8 g : P ORR A2,A4 g L P SC A2,+1,A6 g ^ P SRL A2,8 g r P SCR A2,A6 g P LDKL A10,1 NOT ONLY SPACES g P CF A14,DISLIN DISPLAY STAT. g " P CWK A5,NUMLIN LIMIT REACHED? g P RB(
0x019728…0198bc Dummy {f00=0x0008, f01=0x0190, f02=»******* g P* h P* MOVTXT MOVE TEXT h P* h 4 @ P*********************************************************** h > P* REGISTERS h P* h P* h > P********************************************************** h P h PMOVTXT EQU * h
0x0198bc…019a50 Dummy {f00=0x0008, f01=0x0190, f02=» P EJECT i > P********************************************************** i P* i T P* CONASC CONVERT TO ASCII i ^ P* i < P******************************************************** i P* REGISTERS i P* i P* i < P********************
0x019a50…019be4 Dummy {f00=0x0008, f01=0x0190, f02=»/30 i P RF CONA90 j PCONA10 EQU * j P ADK A2,/37 j 2 PCONA90 EQU * j F P RTN A14 j Z P XIF j j P EJECT j v > P********************************************************* j > P* * j > P
0x019be4…019d78 Dummy {f00=0x0008, f01=0x0190, f02=»***************************************************** j P* REGISTERS k > P* k R ( P* A1= AT ENTRY START SEARCH ADDRESS k P* A2= RESERVED k P* A3= RESERVED k P* A4= REL. CURSOR POS. k P* A5= REL. ATTRIBUTE POS. k P* A6= ATTRIBUTE CHAR
0x019d78…019f0c Dummy {f00=0x0008, f01=0x0190, f02=» k > P********************************************************* l PATMASF EQU * l J P ST A1,REGI,A11 l ^ PASF100 EQU * l v P ADK A1,1 l P CWK A1,LBVDU-1 WRAP AROUND? l P RF(NG) ASF200 NO l " P LDK A1,0 FIRST POS. ON SCREEN l PASF200 E
0x019f0c…01a0a0 Dummy {f00=0x0008, f01=0x0190, f02=»7,/8000 ATTRIBUTE? l P RB(L) ASF100 NO m P LDR A6,A7 m 2 P LDR A5,A1 m D . P CF A14,STOINF SAVE NEW SCREEN INFORMATION m V PASF900 EQU * m P RTN A14 m P EJECT m L P*********************************************************************** m L
0x01a0a0…01a234 (1, 32) Dummy {f00=0x0008, f01=0x0190, f02=» * m Z L P* * n L P*********************************************************************** n j P* REGISTERS n P* n $ P* A1= ATENTRY START SEARCH ADDR. n P* A2= RE
0x01a234…01a3c8 Dummy {f00=0x0008, f01=0x0190, f02=»RESERVED n P* A9= RESERVED o P* A10= RESERVED o & P* A11= CREDIT WORK AREA o > P* A13= RESERVED o ^ P* o v L P************************************************************************ o PATMASB EQU * o P ST A1,REGI,A11 o PASB100 EQU *
0x01a3c8…01a55c Dummy {f00=0x0008, f01=0x0190, f02=») ASB200 NOT WRAP AROUND o ( P LDKL A1,LBVDU-1 LAST POS. ON SCREEN p PASB200 EQU * p L * P CW A1,REGI,A11 WHOLE SCREEN SEARCHED? p ` P RF(E) ASB900 YES p P RB ASB100 p PASB300 EQU * p P LDR A6,A7 p P LDR A5,A1 p * P CF A14,STOINF SAVE SC
0x01a55c…01a6f0 Dummy {f00=0x0008, f01=0x0190, f02=»* p R D P* * q D P* SNULL SEARCH FIRST NULL CHAR. * q R D P* * q D P**************************************
0x01a6f0…01a884 Dummy {f00=0x0008, f01=0x0190, f02=» B P* A3= AT ENTRY LAST SEARCH ADDR., AT RETURN NULL ADDR. IF ANY r P* A4= REL. CURSOR POS. r J P* A5= RESERVED r h P* A6= RESERVED r ~ P* A11= CREDIT WORK AREA r P* A13= RESERVED r P* r D P**************************************************
0x01a884…01aa18 Dummy {f00=0x0008, f01=0x0190, f02=»F(NG) SNU200 NO r P LDK A1,0 FIRST SCREEN POS. s PSNU200 EQU * s < P CWR A1,A3 ALL SEARCHED? s P P RF(E) SNU300 YES s p * P CF A14,GETVDU GET CHAR IN VDU BUFFER s P CCK A7,NULL NULL CHAR? s P RB(NE) SNU100 NO s P LDR A3,A1 s " P LDK
0x01aa18…01abac Dummy {f00=0x0008, f01=0x0190, f02=» @ P************************************************************ t @ P* * t H @ P* WCHAR DISPLAY CHAR. AND CURSOR * t @ P*
0x01abac…01ad40 Dummy {f00=0x0008, f01=0x0190, f02=»= REL. CURSOR POS. t P* A5= REL. ATTRIBUTE POS. u P* A6= ATTRIBUTE CHAR. u < P* A8= VDU-ECB u Z P* A11= CREDIT WORK AREA u p P* A13= RESERVED u P* u B P************************************************************* u PWCHAR EQU * u
0x01ad40…01aed4 (1, 33) Dummy {f00=0x0008, f01=0x0190, f02=»0 YES u P LDR A7,A6 v $ P ANK A7,/4 INTENSIFIED DISPLAY? v P RF(NZ) WCH200 NO v H $ P LDK A1,/1F HIGH INTENSITY CHAR. v b P RF WCH300 v PWCH200 EQU * v P LDK A2,/20 NONDISPLAY v PWCH300 EQU * v & P LD A7,ECBBA,A8 GET BUFFER ADDRESS v
0x01aed4…01b068 Dummy {f00=0x0008, f01=0x0190, f02=»NSFORM NAT.CHAR =2 v | P XIF . =2 w * P SC A2,3,A7 STORE CHAR. IN VDU BUFFER w , P LDK A1,4 REQ. LENGTH w Z P CF A14,DISCHA DISPLAY w x P ADK A4,1 w P IM PCURS,A11 w ( P CWK A5,LBVDU+1 UNFORMATTED SCREEN? w P RF(E) WCH900 YES w ( P ORK
0x01b068…01b1fc Dummy {f00=0x0008, f01=0x0190, f02=»BUFFER w n PWCH900 EQU * x P RTN A14 x " P EJECT x 2 > P********************************************************* x @ > P* * x > P* RFMDUP REPLACE FM OR DUP CHAR IF PRESENT * x > P*
0x01b1fc…01b390 Dummy {f00=0x0008, f01=0x0190, f02=»ISTERS x P* A2= KEY-CHAR y P* A4= RESERVED y $ P* A5= RESERVED y : P* A6= RESERVED y P P* A11= CREDIT WORK AREA y f P* A13= RESERVED y P* y 4 P*********************************************** y PRFMDUP EQU * y P CWK A2,DUPCH DUP CH
0x01b390…01b524 Dummy {f00=0x0008, f01=0x018e, f02=»F(NE) RFMD90 NO y P LDK A2,/3B REPLACE z PRFMD90 EQU * z 4 P RTN A14 z H P EJECT z X 4 P************************************************ z f 4 P* * z 4 P* DISCHA DISPLAY CHAR * z
0x01b524…01b6b8 Dummy {f00=0x0008, f01=0x0190, f02=» P* { P* A1= REQ. LENGTH { P* A2= RESERVED { ( P* A4= RESERVED { > P* A5= RESERVED { T P* A6= RESERVED { j P* A8= VDU-ECB { P* A11= CREDIT WORK AREA { P* A13= RESERVED { P* { 6 P************************************************
0x01b6b8…01b84c Dummy {f00=0x0008, f01=0x018e, f02=» { ~ P ST A1,ECBRL,A8 | ( P LDKL A1,/101 START AT LINE 1 POS. 1 | P ST A1,ECBCW,A8 | L P LDKL A1,/100 | d P LDR A7,A4 CURSOR POS. | z PDISC10 EQU * | P CWK A7,LLINE NEXT LINE? | P RF(L) DISC90 NO | & P ADS A1,ECBCW,A8 MOVE TO NEXT LINE |
0x01b84c…01b9e0 Dummy {f00=0x0008, f01=0x4054, f02=» | P DATA 1 } PDISC95 EQU * } P RTN A14 } , P } < P END } D@ } PCBCW,A8 | L P LDKL A1,/100 | d P LDR A7,A4 CURSOR POS. | z PDISC10 EQU * | P CWK A7,LLINE NEXT LINE? | P RF(L) DISC90 NO | & P ADS A1,ECBCW,A8 MOVE TO NEXT LINE |
0x01b9e0…01bb74 (1, 34) Dummy {f00=0x0009, f01=0x2008, f02=» ~ ) DATA PF 24 * * $ END * ,@ * 8 6 ) 4 DATA PF 7 ) F DATA PF 8 ) X DATA PF 9 ) j DATA PF 10 ) | DATA PF 11 ) DATA PF 12 ) DATA PF 13 ) DATA PF 14 ) DATA PF 15 ) *C0 ) DATA PF
0x01bb74…01bd08 Dummy {f00=0x0009, f01=0x0190, f02=» BASE n PBMM EQU * o P INH o ( P LD A1,DWTATP,A6 ACT. TIMER RUNNING? o , " P RF(NZ) BMM20 YES, RESTART IT o X * P CF A5,SUPTIM START ACTIVITY SUP TIMER o ~ P RF BMM30 o PBMM20 EQU * o P LDKL A2,-TIMACT o " P STR A2,A1 RESTART ACT. TIMER
0x01bd08…01be9c Dummy {f00=0x0009, f01=0x0190, f02=»,DWTST,A7 GET INPUT STATUS o P ABL(NN) POLL READ REQUEST p " P ABL TDISP p D P EJECT p V P* p d 0 P* OUTPUT: PERFORM OUTPUT OR CONTROL REQUEST p n P* p POUTPUT EQU * p $ P LD A8,DWTECB,A6 GET ECB ADDRESS p P ST A8,DWTSAV+10,A6 p 2 P ST
0x01be9c…01c030 Dummy {f00=0x0009, f01=0x0190, f02=»ORDER 06:WRITE p P SUK A1,/24-6 q & P ABL(Z) OUT400 ORDER 24:CLOSE LINE q , P SUK A1,2 q V ( P ABL(Z) OUT200 ORDER 26:HALT POLLING q h P SUK A1,1 q * P ABL(Z) OUT350 ORDER 27:START POLLING q P SUK A1,/10 q " P RF(Z) OUT100 ORDER 37:OPEN TC q
0x01c030…01c1c4 Dummy {f00=0x0009, f01=0x0190, f02=»DR A3,A6 q * P LD A2,PLIST,A3 RELOAD P-LIST POINTER r P CM PLIST,A3 r > P LDR A1,A3 r R P SUK A1,2 r d P CM PLIST,A1 r v P SUK A1,2 r 4 P LD A4,PLIST,A1 CHECK IF TIMER POINTER IS ZERO r P RF(Z) CLTC20 r > P CF A5,RELBLK RELEASE ALLOCATE
0x01c1c4…01c358 Dummy {f00=0x0009, f01=0x0190, f02=»D A1,NBRTCA,A6 GET NBR OF TC'S IN POLLIST r P SUK A1,1 s 2 4 P RF(NZ) CLTC10 AT LEAST ONE TC STILL IN POLLIST s D , P CM PACT,A6 INDICATE NO TC'S IN POLLIST s | P CM PINACT,A6 s PCLTC10 EQU * s & P ST A1,NBRTCA,A6 RESTORE NEW VALUE s P* s *
0x01c358…01c4ec Dummy {f00=0x0009, f01=0x0190, f02=» CF A5,TRUF s P CF A5,RDUSTI t P CF A5,HALTIN t * P LDK A1,0 t @ P CF A15,TENDIO t R P ABL BMM00 t h P EJECT t z P* t P* ORDER 37:OPEN TC t P* t POUT100 EQU * t P LD A2,ECBCW,A8 GET TCA t P INH t " P CF A15,FINDTC A
0x01c4ec…01c680 Dummy {f00=0x0009, f01=0x0190, f02=» RF(Z) OUT110 t $ P LDKL A1,LSTOVF POLLIST OVERFLOW u P RF OUT310 COMPLETE REQUEST u > POUT110 EQU * u b * P SC A4,DWTORI,A6 SAVE INDEX IN POLLIST u v P IM NBRTCA,A6 u P LD A1,ECBCW,A8 GET TCA u $ P ORKL A1,/8000 SET TCA INACTIVE u & P STR A
0x01c680…01c814 (1, 35) Opaque[0x194]
0x01c814…01c9a8 # DirEnt {nam=»KEYB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0128, f03=0x0000}
0x01c814…01c9a8 IdxSect {
0x01c814…01c9a8 f00 = 0x0009 // 0x1c814 @0x0
0x01c814…01c9a8 f01 = 0x002e // 0x1c816 @0x2
0x01c814…01c9a8 gno = [ // 0x1c818 @0x4
0x01c814…01c9a8 [0x00]: C0x0009.0x1.0
0x01c814…01c9a8 [0x01]: C0x0009.0x2.0
0x01c814…01c9a8 [0x02]: C0x0009.0x3.0
0x01c814…01c9a8 [0x03]: C0x000a.0x0.0
0x01c814…01c9a8 [0x04]: C0x000a.0x1.0
0x01c814…01c9a8 [0x05]: C0x000a.0x2.0
0x01c814…01c9a8 [0x06]: C0x000a.0x3.0
0x01c814…01c9a8 [0x07]: C0x000b.0x0.0
0x01c814…01c9a8 [0x08]: C0x000b.0x1.0
0x01c814…01c9a8 [0x09]: C0x000b.0x2.0
0x01c814…01c9a8 [0x0a]: C0x000b.0x3.0
0x01c814…01c9a8 [0x0b]: C0x000c.0x0.0
0x01c814…01c9a8 [0x0c]: C0x000c.0x1.0
0x01c814…01c9a8 [0x0d]: C0x000c.0x2.0
0x01c814…01c9a8 [0x0e]: C0x000c.0x3.0
0x01c814…01c9a8 [0x0f]: C0x000d.0x0.0
0x01c814…01c9a8 [0x10]: C0x000d.0x1.0
0x01c814…01c9a8 [0x11]: C0x000d.0x2.0
0x01c814…01c9a8 [0x12]: C0x000d.0x3.0
0x01c814…01c9a8 [0x13]: C0x000e.0x0.0
0x01c814…01c9a8 [0x14]: C0x000e.0x1.0
0x01c814…01c9a8 [0x15]: C0x000e.0x2.0
0x01c814…01c9a8 [0x16]: C0x000e.0x3.0
0x01c814…01c9a8 ]
0x01c814…01c9a8 }
0x01c9a8…01cb3c Dummy {f00=0x0009, f01=0x0190, f02=» . P IDENT KEYB REL 11.1 82-02-12 870150541110 P 6 P =4 ERROR IN DELETE FUNC. > & P =3 INCORRECT A14 STACK POINTER b P 81-11-20 * P =2 CLEAR AT OFFLINE, POWER ON AT KB , P ABORT AT PFX AND PAX, ATTRIBUTE CHECK P 81-04-0
0x01cb3c…01ccd0 Dummy {f00=0x0009, f01=0x0190, f02=»* * D ?* MODULE KEYB * H D ?* MODULE HANDLING THE KEYBOARD DEVICE * D ?* (EMULATION 3270 SNA/SDLC, BSC
0x01ccd0…01ce64 Dummy {f00=0x0009, f01=0x018e, f02=»*********************** h EJECT D ?*************************************************************** . D ?* * v D ?* LIST OF ROUTINES * D ?*
0x01ce64…01cff8 Dummy {f00=0x0009, f01=0x0190, f02=» N D ?* CPLKB KB-COMPLETION TABLE FOR DIFF. MODES * < P* KBCPLO KB-COMPLETION ROUTINE IN LOCAL MODE P D ?* KBCPSY KB-COMPLETION ROUTINE IN SYSTEM MODE * D ?* KBCPJO KB-COMPLETION ROUTINE IN MY
0x01cff8…01d18c Dummy {f00=0x0009, f01=0x0190, f02=»ER * h . P* ICVRED KB/VDU INTERTASK READ ( P* ICINP INTERTASK INPUT R . P* ICSET SET INTERTASK TIMEOUT ~ ( P* ICREAD READ INTERTASK ( P* ICWRT WRITE INTERTASK D ?
0x01d18c…01d320 Dummy {f00=0x0009, f01=0x0190, f02=» P D ?* SDISP SIGNAL ROUTINE * D ?* KEYTAB KEY-TABLE, FIXED ENTRY FOR EACH FUNC. * P D ?* CHAR ALPHA. CHAR HANDLING * D ?* NUM NUM. CHAR HANDLIN
0x01d320…01d4b4 (1, 36) Dummy {f00=0x0009, f01=0x0190, f02=» ON SCREEN * p D ?* BAKTAB TAB. UNPROT. BACKWARDS * 4 D ?* TAB TAB. UNPROT. FORWARDS * | D ?* CRNL TAB. UNPROT. NEXT LINE *
0x01d4b4…01d648 Dummy {f00=0x0009, f01=0x0190, f02=» * T D ?* ERINPT ERASE UNPROT. ENTIRE SCREEN * D ?* INSERT INSERT HANDLING * T D ?* DELETE DELETE HANDLING * D ?* RESET RESET HANDLING
0x01d648…01d7dc Dummy {f00=0x0009, f01=0x0190, f02=»RK HANDLING * t D ?* ZERO:2,3 DOUBLE & TRIPLE ZERO HANDLING * , D ?* OFLINE OFFLINE HANDLING * t D ?* MFCHGE MAIN FRAME CHANGE * D ?*
0x01d7dc…01d970 Dummy {f00=0x0009, f01=0x018e, f02=» D ?* KEYL KEYLOCK STATUS HANDLING * " P* TESTM TEST MODE L D ?* ENTER ENTER HANDLING * r D ?* CLEAR CLEAR HANDLING * D ?*
0x01d970…01db04 Dummy {f00=0x0009, f01=0x0190, f02=» D P* PA PROGRAM ACCESS HANDLING * D ?* PF PROGRAM FUNCTION HANDLING * L D ?* RETURN RETURN * D ?*
0x01db04…01dc98 Dummy {f00=0x0009, f01=0x0190, f02=»***************************** z 8 P* * & 8 P* ENTRY POINTS * b 8 P* * 8 P**********************************************
0x01dc98…01de2c Dummy {f00=0x0009, f01=0x0190, f02=» n P ENTRY LMP1ON LAMPROUTINES P ENTRY LMP1OF . * P ENTRY LMP2ON . B P ENTRY LMP2OF . Z P ENTRY LMP3ON . r P ENTRY LMP3OF . P ENTRY LMP4ON . P ENTRY LMP4OF . P ENTRY LMP5ON . P ENTRY LMP5OF . P ENTRY
0x01de2c…01dfc0 Dummy {f00=0x0009, f01=0x0190, f02=» ERROR ERROR INDICATION ( P ENTRY TAB TAB FOREWARD UNPROTECTED , P ENTRY CRDOWN MOVE CURSOR DOWN ONE LINE L $ P ENTRY ICVRED VDU INTERTASK READ | P ENTRY ICINP INTERTASK INPUT & P ENTRY ICSET SET INTERTASK TIMEOUT P ENTRY ICWRT WRITE INT
0x01dfc0…01e154 (1, 37) Dummy {f00=0x0009, f01=0x018e, f02=» * : P* EXTERNAL REFERENCES * < : P* * z : P****************************************************** P & P EXTRN I:R
0x01e154…01e2e8 Dummy {f00=0x0009, f01=0x0190, f02=» 0 P EXTRN DCABOR ABORT DC-REQUEST (DCSNA,DCBSC) * P EXTRN ERASE ERASE ENTIRE SCREEN (VDU) 8 8 P EXTRN ERASUA ERASE ALL UNPROTECTED TO ADDRESS (VDU) f . P EXTRN ERASUP ERASE ALL UNPROTECTED (VDU) 2 P EXTRN TRPA TRANSMIT SHORT READ (DCSNA,DCBSC) 4
0x01e2e8…01e47c Dummy {f00=0x0009, f01=0x0190, f02=» CURSOR (VDU) r . P EXTRN SOUND SOUND ALARM ON DISPLAY (VDU) . P EXTRN SCRINF GET SCREEN INFORMATION (VDU) H 0 P EXTRN STOINF SAVE SCREEN INFORMATION (VDU) z 0 P EXTRN GETVDU GET CHAR. IN VDU BUFFER (VDU) 2 P EXTRN STOVDU STORE CHAR. IN VDU BUFFE
0x01e47c…01e610 Dummy {f00=0x0009, f01=0x0190, f02=» MODE ROUTINE (VDU) | 6 P EXTRN DCOFLN INDICATE OFFLINE TO DC (DCSNA,DCBSC) 0 P EXTRN DISMOD DISPLAY MODIFIED FIELDS (VDU) V . P EXTRN CONPF CONVERT PF-KEY TABLE (CONVER) * P EXTRN OPSYS OPEN SYSTEM (DCSNA,DCBSC) $ P EXTRN LINE GET LINE FLAG (VDU
0x01e610…01e7a4 Dummy {f00=0x0009, f01=0x0190, f02=» " P EXTRN GETBUF GET BUFFER (PAD) & P EXTRN RELBUF RELEASE BUFFER (PAD) * * P EXTRN DISSTA DISPLAY STATISTICS (VDU) T * P EXTRN RDSTAT READ STATISTICS (DCBSC) 2 P EXTRN CHKSTA CHECK LINE STATUS (DCBSC,DCSNA) $ P EXTRN SETSTA SET STATUS (DCSNA)
0x01e7a4…01e938 Dummy {f00=0x0009, f01=0x0190, f02=» * b B =* CONDITIONAL ASSEMBLY PARAMETERS * B =* * ^ B =************************************************************* P * PX:A EQU 0 SNA HANDLING
0x01e938…01eacc Dummy {f00=0x0009, f01=0x0190, f02=»-2) t PNBRLIN EQU X:D $ PX:F EQU 0 KEY-LOCK STATUS IF:=1 " PKEYLST EQU X:F J $ PX:G EQU 0 PF KEY HANDLING IF:=1 ` PPFX EQU X:G $ PX:H EQU 0 PA KEY HANDLING IF :=1 PPAX EQU X:H , PX:I EQU 1 INSERT/DELETE HANDLING IF :=1 P
0x01eacc…01ec60 Dummy {f00=0x0009, f01=0x0190, f02=» EQU X:M & PX:O EQU 0 TEST MODE INCLUDED IF:=1 PTEST EQU X:O : 0 PX:P EQU 0 COPY LOCK FUNCTION INCLUDED IF:=1 N PCOPL EQU X:P EJECT D ?*************************************************************** D ?*
0x01ec60…01edf4 (1, 38) Dummy {f00=0x000a, f01=0x0190, f02=» * ^ D ?*************************************************************** ^ * f * PREDEFINED KEYS p * * PCRUP EQU /80 FIRST "MOVE CURSOR " KEY , (ERFKEY EQU /88 ERASE TO END OF FIELD-KEY $ ERIKEY EQU /89 E
0x01edf4…01ef88 Dummy {f00=0x000a, f01=0x0190, f02=»QU /9C LAST KEYLOCK VALUE ( PFIPA EQU /9F FIRST PROGRAM ATTN. KEY " PENTKEY EQU /A0 ENTER KEY N & PSYSKEY EQU /A1 SYSTEM REQUEST KEY n PCLRKEY EQU /A2 CLEAR KEY & PPFKEY EQU /B1 PROGRAM FUNTION KEY ( PLAKEY EQU /C9 LAST KEY IN KEY-TABLE
0x01ef88…01f11c Dummy {f00=0x000a, f01=0x0190, f02=»ECBEL EQU 6 EFFECTIVE LENGTH ECBRC EQU 8 RETURN CODE $ ECBCW EQU 10 CONTROL WORD D P* f P* SPECIAL CHARACTERS p P* PNULL EQU 0 NULL CHAR. " PDUPCH EQU /1C DUPLICATE CHAR. " PFMCH EQU /1E FIELD MARK CHAR. P*
0x01f11c…01f2b0 Dummy {f00=0x000a, f01=0x018e, f02=»EQU /20 PLAMP2 EQU /10 PLAMP3 EQU 8 & PLAMP4 EQU 4 : PLAMP5 EQU 2 N PLAMP6 EQU 1 b P XIF v P IFF KB6272=1 PLAMP1 EQU 0 PLAMP2 EQU 0 PLAMP3 EQU 1 PLAMP4 EQU 2 PLAMP5 EQU 4 PLAMP6 EQU 8
0x01f2b0…01f444 Dummy {f00=0x000a, f01=0x0190, f02=» P* MODES P* PNEWMOD EQU /8000 NEW MODE " * PHCPMOD EQU /4000 HARDCOPY OUTSTANDING D PMYJOB EQU /0004 MY JOB MODE r ( PSYSOP EQU /0002 SYSTEM OPERATOR MODE PLOCMOD EQU /0000 LOCAL MODE * P* TASK IDENTIFICATION CO
0x01f444…01f5d8 Dummy {f00=0x000a, f01=0x0190, f02=» P* PBVDU EQU 2 VDU SCREEN BUFFER $ PLINFLG EQU BVDU+1920 LINE FLAGS 2 PWCC EQU LINFLG+30 WCC CHAR. Z . PKBINH EQU WCC+2 KEYBOARD INHIBIT INDICATOR ~ $ POFFFLG EQU KBINH+8 OFFLINE FLAG ( PPRTID EQU OFFFLG+2 HARDCOPY PRINTER PMAIN
0x01f5d8…01f76c Dummy {f00=0x000a, f01=0x018e, f02=»NCH ADDRESS TO NEXT KB-KEY z 2 PCURPOS EQU RDMORE+2 CURSOR POS. IN SYSTEM MODE " PREGI EQU CURPOS+4 SAVE AREA X PSNAMOD EQU REGI+32 SNA MODE | PBSCMOD EQU SNAMOD BSC MODE PECBKB EQU BSCMOD+2 ECB KB ( PECBSD EQU ECBKB+4 ECB SIGNAL DISPLAY
0x01f76c…01f900 Dummy {f00=0x000a, f01=0x0190, f02=» v P* COMMON WORKBLOCK P* " P IFF TEST=1 , PTSKTAB EQU 24 TASK TABLE @ P XIF ` P IFT TEST=1 l PTSKTAB EQU 219 TASK TABLE P XIF EJECT D @**************************************************************** D @*
0x01f900…01fa94 (1, 39) Dummy {f00=0x000a, f01=0x0190, f02=» D @* * D @**************************************************************** L P* REGISTERS P* P* A2= KEY-CHAR. P* A3= KEY-TABLE INDEX P* A4= RESERVED P* A5= RESE
0x01fa94…01fc28 Dummy {f00=0x000a, f01=0x018e, f02=»*********************************************************** KBINP EQU * D P LD A1,ECBCW,A8 KEYS? =2 X P RF(N) KBIN10 YES =2 x P LD A3,ECBRC,A8 POWER ON? =2 P RF(Z) KBIN80 YES =2 " P RF KBIN20 TAKE CARE OF KEY =2 PKBIN10 EQU * .
0x01fc28…01fdbc Dummy {f00=0x000a, f01=0x0190, f02=» l * P ADKL A2,FKLKEY-/70 PREPARE FOR TABLE P SC* A2,ECBBA,A8 RESTORE 6 P XIF V PKBIN20 EQU * . =2 b P ANKL A3,/FFF3 | P RF(NZ) KBIN80 YES P LD A1,KBINH,A11 ANK A1,1 KB TOTALY INHIBIT? P RF(NZ) KBIN80 YES $ LC* A
0x01fdbc…01ff50 Dummy {f00=0x000a, f01=0x018e, f02=» CWK A2,RSET RESET KEY? ! IFT SNA=1 ! $ RF(E) KBIN30 YES ! 6 & " CWK A2,SYSKEY SYSTEM REQUEST KEY? ! P XIF ! z P RF(NE) KBIN80 NO ! KBIN30 EQU * ! P LDR A3,A2 ! " P SUK A3,/20 INDEX TO KEY-TABLE ! P RF(N) KBIN80 ILLEGAL CHAR !
0x01ff50…0200e4 Dummy {f00=0x000a, f01=0x0190, f02=» 2 - CFI A14,CPLKB,A1 COMPLETE KB IN CURRENT MODE " XIF " : IFF SNA=1 " F P LDK A7,0 " X " CWK A2,FIPA PROGRAM ATTN KEY? " j RF(L) KBIN40 NO " P CM MODE,A11 " $ P CF A14,LMP6OF CLEAR INSERT MODE " CF A14,DCABOR " KBIN40 EQU * "
0x0200e4…020278 Dummy {f00=0x000a, f01=0x0190, f02=»1 KEY IN SEQUENCE? " RF(Z) KBIN50 NO # ( # CFR A14,A1 CONTINUE AT SAVED LABEL # 2 RF KBIN90 # ^ KBIN50 EQU * # p 2 P CFI A14,KEYTAB,A3 BRANCH TO RESP. KEY-HANDLER # P RF KBIN90 # PKBIN80 EQU * # " P CF A14,RESKB RESET KB BUFFER # KB
0x020278…02040c Dummy {f00=0x000a, f01=0x0190, f02=» # J J E* * $ J E* CPLKB KB-COMPLETION TABLE * $ V J E* * $ J E**********************
0x02040c…0205a0 Dummy {f00=0x000a, f01=0x018e, f02=»COMPL. IN SYSTEM MODE $ * % DATA KBCPJO KB-COMPL. IN MY JOB MODE % EJECT % L J E********************************************************************* % Z J E* * % J P* KBCLO
0x0205a0…020734 (1, 40) Dummy {f00=0x000a, f01=0x0190, f02=» J E********************************************************************* & P* REGISTERS & R P* & f P* A2= KEY-CHAR & p P* A3= KEY-TABLE INDEX & P* A4= RESERVED & P* A5= RESERVED & P* A6= RESERVED & P* A7= KEY-HANDLING INDICATOR &
0x020734…0208c8 Dummy {f00=0x000a, f01=0x0190, f02=»KBCPLO EQU * & $ LDK A7,0 INDICATE KEY-HANDLING ' $ CWK A2,FIPA PROGRAM ATTN, KEY? ' < P RF(NG) KBCL90 NO ' d LDK A7,1 NO KEY-HANDLING ' ~ " CWK A2,SYSKEY SYSTEM REQUEST? ' P RF(NE) KBCL80 NO ' & P CF A14,OPSYS START COMMUNICATION '
0x0208c8…020a5c Dummy {f00=0x000a, f01=0x0190, f02=»RKL A1,/8000 INDICATE MODE ACTIVATION ' P ST A1,SNAMOD,A11 ( . P RF KBCL90 ( H PKBCL80 EQU * ( Z P CWK A2,ENTKEY ENTER KEY? ( n P RF(NE) KBCL85 NO ( , P LD A1,RDMORE,A11 INSIDE IDENT ROUTINE? ( P RF(Z) KBCL85 NO ( $ P LDK A7,0 INDICATE KEY
0x020a5c…020bf0 Dummy {f00=0x000a, f01=0x0190, f02=» H D******************************************************************** ) H D* * ) P H D* KBCPSY KB-COMPLETION IN SYSTEM MODE * ) H D*
0x020bf0…020d84 Dummy {f00=0x000a, f01=0x018e, f02=» P* * P* A2= KEY-CHAR * P* A3= KEY-TABLE INDEX * $ P* A4= RESERVED * B P* A5= RESERVED * X P* A6= RESERVED * n P* A7= KEY-HANDLING INDICATOR * P* A11= CREDIT WORK AREA * P* A13= RESERVED * P* * @ P******************************
0x020d84…020f18 Dummy {f00=0x000a, f01=0x0190, f02=» P RF(L) KBCS20 NO + 0 P CWK A2,CLRKEY UNALLOWED PROGRAM ATTN. KEY? + P RF(NE) KBCS10 NOT CLEAR KEY + P & P LDK A7,1 INDICATE NO KEY-HANDLING + t & P CF A14,ERASE ERASE ENTIRE SCREEN + P RF KBCS80 + PKBCS10 EQU * + RF(G) KBCS70 YES + P
0x020f18…0210ac Dummy {f00=0x000a, f01=0x0190, f02=»2,ERIKEY ERASE INPUT KEY? + RF(E) KBCS80 YES , " * & CWK A2,ERFKEY ERASE END OF FIELD KEY? , < RF(E) KBCS80 YES , j $ P CWK A2,CRUP INITIATE CURSOR? =1 , P RF(NL) KBCS90 NO =1 , P LD A1,CURPOS,A11 , " P CWK A1,/800 CURSOR INITIATED? ,
0x0210ac…021240 Dummy {f00=0x000a, f01=0x0190, f02=» * , CF A14,ERROR INDICATE ERROR - LDK A7,1 NO KEY-HANDLING - . RF KBCS90 - P KBCS80 EQU * - b , P LDKL A1,NEWMOD INDICATE MODE ACTIVATION - v P ORS A1,SNAMOD,A11 - KBCS90 EQU * - RTN A14 - EJECT - F B**********************
0x021240…0213d4 (1, 41) Dummy {f00=0x000a, f01=0x0190, f02=»CPJO KB-COMPLETION IN MY JOB MODE * - F B* * . @ F B****************************************************************** . P* REGISTERS . P* . P* A2= KEY-CHAR . P
0x0213d4…021568 Dummy {f00=0x000a, f01=0x0190, f02=»1= CREDIT WORK AREA . P* A13= RESERVED / P* / 4 @ P************************************************************ / > KBCPJO EQU * / $ LDK A7,0 INDICATE KEY-HANDLING / $ CWK A2,FIPA PROGRAM ATTN. KEY? / P RF(L) KBCJ90 NO / P IFT OFLIN
0x021568…0216fc Dummy {f00=0x000a, f01=0x0190, f02=»ABOR ABORT DC / P IFT OFLIN=1 0 P RF KBCJ90 0 * PKBCJ80 EQU * 0 < P CF A14,ERROR INDICATE ERROR 0 P P LDK A7,1 NO KEY-HANDLING 0 t P XIF 0 P IFT SNA=1 0 KBCJ90 EQU * 0 RTN A14 0 P XIF 0 EJECT 0 D ?**********************
0x0216fc…021890 Dummy {f00=0x000a, f01=0x0190, f02=» READ KEYBOARD WITH NO WAIT * 0 D ?* * 1 : D ?*************************************************************** 1 P* REGISTERS 1 P* 1 P* A8= KB-ECB 1 P* A1
0x021890…021a24 Dummy {f00=0x000a, f01=0x0190, f02=» 1 P LD A8,ECBKB,A11 2 LDK A7,1 2 ST A7,ECBRL,A8 2 2 & P CM ECBCW,A8 CLEAR TO SEE KEYS =2 2 J P LDK A7,2 STANDARD READ 2 t LKM 2 DATA 1 2 RTN A14 2 EJECT 2 D ?**********************************************************
0x021a24…021bb8 Dummy {f00=0x000a, f01=0x0190, f02=» * 2 ^ D ?* * 3 D ?*************************************************************** 3 ^ P* REGISTERS 3 P* 3 P* A11= CREDIT WORK AREA 3 P* A13= RESERVED 3 P
0x021bb8…021d4c Dummy {f00=0x000a, f01=0x0190, f02=»YBOARD BUFFER 3 | LKM 4 DATA 1 4 " RTN A14 4 2 P EJECT 4 B @ P*********************************************************** 4 P @ P* * 4 " P* ICVRED KB/VDU INTERTASK READ 4 @ P*
0x021d4c…021ee0 Dummy {f00=0x000a, f01=0x0190, f02=» REGISTERS 4 P* 5 P* A2= RESERVED 5 P* A11= CREDIT WORK AREA 5 4 P* A13= RESERVED 5 T P* 5 l @ P*********************************************************** 5 v PICVRED EQU * 5 P LD A8,ECBICR,A11 5 P CF A14,ICSET SET NO TIMEOUT 5
0x021ee0…022074 (1, 42) Dummy {f00=0x000b, f01=0x0190, f02=»EGI 5 P ADR A3,A11 6 P LDK A2,2 LENGTH 6 " P CF A14,ICREAD READ INTERTASK 6 8 P RTN A14 6 ^ P EJECT 6 n D P**************************************************************** 6 | D P* * 6
0x022074…022208 Dummy {f00=0x000b, f01=0x0190, f02=» * 6 T D P**************************************************************** 7 P* REGISTERS 7 T P* 7 t P* A11= CREDIT WORK AREA 7 ~ P* A13= RESERVED 7 P* 7 D P**************************************************************** 7 P
0x022208…02239c Dummy {f00=0x000b, f01=0x0190, f02=»U BUFFER TO SEND 7 P ADR A3,A11 8 P IFT COPL=1 8 , ( P LCR A2,A3 CHECK IF ALLOWED TO COPY 8 @ P CCK A2,/8000 ATTRIBUTE? 8 l P RF(L) ICIN20 NO 8 P ANK A2,/20 PROTECTED? 8 " P RF(NZ) ICIN90 YES DON'T COPY 8 PICIN20 EQU * 8 P XIF 8 P
0x02239c…022530 Dummy {f00=0x000b, f01=0x018e, f02=» LDKL A2,LBVDU+/20 LENGTH 8 P CF A14,ICWRT SEND IT AWAY 9 " ( P LDKL A1,HCPMOD HARDCOPY OUTSTANDING 9 D P ORS A1,BSCMOD,A11 9 p P RF ICIN90 9 PICIN80 EQU * 9 P XIF 9 . P LDKL A1,HCPMOD RESET HARDCOPY OUTSTANDING 9 P IFT SNA=1 9 P XRS A1,
0x022530…0226c4 Dummy {f00=0x000b, f01=0x0190, f02=» 9 | P CF A14,LMP5FL : PICIN90 EQU * : P RTN A14 : 2 P EJECT : B @ P*********************************************************** : P > P* * : @ P* ICSET SET INTERTASK TIMEOUT
0x0226c4…022858 Dummy {f00=0x000b, f01=0x0190, f02=»******* : P* REGISTERS ; P* ; 0 P* A2= RESERVED ; : P* A8= INTERTASK ECB ; P P* A11= RESERVED ; l P* A13= RESERVED ; P* ; > P********************************************************** ; PICSET EQU * ; P LDKL A1,-1
0x022858…0229ec Dummy {f00=0x000b, f01=0x0190, f02=»********************************************************* ; B P* * < B B P* ICREAD INTERTASK READ * < B P*
0x0229ec…022b80 Dummy {f00=0x000b, f01=0x0190, f02=» ID < P* A2= LENGTH = P* A3= BUFFER ADDRESS = P* A8= INTETASK READ ECB = < P* A11= RESERVED = P* A13= RESERVED = t P* = B P************************************************************* = PICREAD EQU * = P ST A1,ECBCW,A8 TASK ID
0x022b80…022d14 (1, 43) Dummy {f00=0x000b, f01=0x0190, f02=» = P EJECT > D P*************************************************************** > D P* * > ^ D P* ICWRT INTERTASK WRITE * > D P*
0x022d14…022ea8 Dummy {f00=0x000b, f01=0x018e, f02=»EGISTERS > ~ P* ? P* A1= TASK ID ? P* A2= LENGTH ? 0 P* A3= BUFFER ADDRESS ? D P* A8= INTERTASK WRITE ECB ? ` P* A11= RESERVED ? P* A13= RESERVED ? P* ? D P**************************************************************** ? PICWR
0x022ea8…02303c Dummy {f00=0x000b, f01=0x0190, f02=» ? | P LKM @ P DATA 1 @ P RTN A14 @ $ P EJECT @ 4 H P******************************************************************* @ B H P* * @ H P* ERROR ILLEGAL KEY-HANDLING
0x02303c…0231d0 Dummy {f00=0x000b, f01=0x018e, f02=»************************************* @ r P* REGISTERS A . P* A J P* A11= CREDIT WORK AREA A T P* A13= RESERVED A t P* A < P******************************************************* A PERROR EQU * A ( P CF A14,LMP5ON TURN ON 'ERROR'
0x0231d0…023364 Dummy {f00=0x000b, f01=0x0190, f02=» P EJECT B B P************************************************************* B B P* * B X B P* LAMPROUTINES * B B P*
0x023364…0234f8 Dummy {f00=0x000b, f01=0x0190, f02=»LMPON B PLMP1OF LDK A1,LAMP1 C P RF LMPOF C * PLMP2ON LDK A1,LAMP2 C < P RF LMPON C X PLMP2OF LDK A1,LAMP2 C j P RF LMPOF C PLMP3ON LDK A1,LAMP3 C P RF LMPON C PLMP3OF LDK A1,LAMP3 C P RF LMPOF C PLMP4ON LDK A1,LAMP4
0x0234f8…02368c Dummy {f00=0x000b, f01=0x0190, f02=»5 C ~ P RF LMPOF D PLMP5FL LDK A1,LAMP5 D P RF LMPFL D 8 PLMP6ON LDK A1,LAMP6 D J P RF LMPON D f PLMP6OF LDK A1,LAMP6 D x P RF LMPOF D P* D PLMPON LDK A7,LON D P RF SDISP D PLMPOF LDK A7,LOF D P RF SDISP D PLMPF
0x02368c…023820 Dummy {f00=0x000b, f01=0x0190, f02=» * D B P* SDISP SIGNAL ROUTINE * E 8 B P* * E ~ B P************************************************************* E
0x023820…0239b4 (1, 44) Dummy {f00=0x000b, f01=0x0190, f02=»************************************************* E PSDISP EQU * F : P LD A8,ECBSD,A11 F N P ST A1,ECBCW,A8 F f P LKM F ~ P DATA 1 F P RTN A14 F EJECT F D @**************************************************************** F D @*
0x0239b4…023b48 Dummy {f00=0x000b, f01=0x0190, f02=»* * F D @**************************************************************** G H KEYTAB EQU * G *20 G DATA CHAR SPACE G DATA CHAR ! G DATA CHAR " G P DATA CHAR G DATA
0x023b48…023cdc Dummy {f00=0x000b, f01=0x0190, f02=»ATA CHAR + G DATA CHAR , H DATA NUM - H & DATA NUM . H : DATA CHAR / H N *30 H b DATA NUM 0 H n DATA NUM 1 H DATA NUM 2 H DATA NUM 3 H DATA NUM 4 H DATA NUM 5 H DATA NUM 6 H DATA NUM 7 H
0x023cdc…023e70 Dummy {f00=0x000b, f01=0x0190, f02=» > H DATA CHAR ? I *40 I P DATA CHAR I * DATA CHAR A I < DATA CHAR B I P DATA CHAR C I d DATA CHAR D I x DATA CHAR E I DATA CHAR F I DATA CHAR G I DATA CHAR H I DATA CHAR I I DATA CHAR J I DAT
0x023e70…024004 Dummy {f00=0x000b, f01=0x0190, f02=»AR Q I DATA CHAR R J DATA CHAR S J DATA CHAR T J 4 DATA CHAR U J H DATA CHAR V J DATA CHAR W J p DATA CHAR X J DATA CHAR Y J DATA CHAR Z J P DATA CHAR J P DATA CHAR J P DATA CHAR J DATA CHAR ^ J
0x024004…024198 Dummy {f00=0x000b, f01=0x0190, f02=» DATA CHAR d J DATA CHAR e K DATA CHAR f K ( DATA CHAR g K < DATA CHAR h K P DATA CHAR i K d DATA CHAR j K x DATA CHAR k K DATA CHAR l K DATA CHAR m K DATA CHAR n K DATA CHAR o K P*70 K DATA CHAR p
0x024198…02432c Dummy {f00=0x000b, f01=0x0190, f02=»AR w K DATA CHAR x L DATA CHAR y L DATA CHAR z L 4 P DATA CHAR L H P DATA CHAR L Z P DATA CHAR L l P DATA CHAR L ~ DATA RETURN L *80 L P DATA CURMOV L P DATA CURMOV L P DATA CURMOV L P DATA CURMOV L DATA BA
0x02432c…0244c0 Dummy {f00=0x000b, f01=0x0190, f02=»SERT L DATA DELETE M XIF M IFF IN:DL=1 M , DATA RETURN M @ DATA RETURN M T XIF M h DATA RESET M t DATA DUP M DATA FLDMRK M DATA ZERO:2 M *90 M DATA ZERO:3 M DATA NUMCOM M DATA COPY M
0x0244c0…024654 (1, 45) Dummy {f00=0x000b, f01=0x0190, f02=»A KEYL M DATA KEYL N DATA KEYL N XIF N 2 IFF KEYLST=1 N > DATA RETURN N T DATA RETURN N h DATA RETURN N | DATA RETURN N DATA RETURN N DATA RETURN N DATA RETURN N DATA RETURN N XIF N 8 P DATA RE
0x024654…0247e8 Dummy {f00=0x000b, f01=0x0190, f02=»FOR NEW KEY (NOT P. A. KEY) N x P*FIRST P. A. KEY O $ P IFT OFLIN=1 O < P DATA OFLINE O P P XIF O d P IFF OFLIN=1 O p P DATA RETURN O P XIF O P*A0 O P DATA ENTER O P IFT SNA=1 O P DATA SYSREQ O P DATA CLEAR O P DATA ATTN
0x0247e8…02497c Dummy {f00=0x000b, f01=0x018e, f02=»A MFCHGE O P XIF P P IFF NBRLIN=2 P P DATA RETURN P 2 P XIF P F IFT PAX=1 P R DATA PAEX P d XIF P v IFF PAX=1 P DATA RETURN P XIF P DATA PA1 P DATA PA2 P DATA PA3 P $ P DATA PAALFA PA4-PA10 (ALFASKO
0x02497c…024b10 Dummy {f00=0x000b, f01=0x0190, f02=» P IFT PFX=1 Q DATA PFEX Q XIF Q , IFF PFX=1 Q 8 DATA RETURN Q J XIF Q ^ DATA PF 1 Q j DATA PF 2 Q | DATA PF 3 Q DATA PF 4 Q DATA PF 5 Q DATA PF 6 Q DATA PF 7 Q DATA PF 8 Q DATA PF 9 Q
0x024b10…024ca4 Dummy {f00=0x000b, f01=0x0190, f02=» DATA PF 16 Q DATA PF 17 R DATA PF 18 R ( DATA PF 19 R < DATA PF 20 R P DATA PF 21 R d DATA PF 22 R x DATA PF 23 R DATA PF 24 R P IFF TEST=1 R P DATA RETURN R P XIF R P IFT TEST=1 R P DATA TESTM
0x024ca4…024e38 Dummy {f00=0x000b, f01=0x0190, f02=» * R p B P* CHAR ALPHABETIC AND SPEC. CHAR UPDAT. DISPL. * S ( B P* * S n B P************************************************************** S P* REGISTERS S
0x024e38…024fcc Dummy {f00=0x000b, f01=0x0190, f02=»A11= RESERVED S P* A13= RESERVED T P* T . B P************************************************************** T 8 PCHAR EQU * T ~ $ P LDK A3,/30 LOAD ATTRIBUTE MASK T & P CF A14,ANCOMM TAKE CARE OF CHAR. T P RTN A14 T P EJECT T B P********
0x024fcc…025160 Dummy {f00=0x000b, f01=0x018e, f02=» NUM NUMERIC UPDAT. DISPL. * T B P* NUMCOM NUMERIC COMMA * U B D P* * U B P********************************************************
0x025160…0252f4 (1, 46) Dummy {f00=0x000c, f01=0x0190, f02=» P* A6= RESERVED V P* A11= RESERVED V P* A13= RESERVED V 2 P* V J B P************************************************************* V T PNUMCOM EQU * V P LDK A2,/2C INSERT COMMA V PNUM EQU * V $ P LDK A3,/20 LOAD ATTRIBUTE MASK V & P
0x0252f4…025488 Dummy {f00=0x000c, f01=0x0190, f02=» V P D P* * W D P* ANCOMM COMMON ROUTINE FOR ALPHANUM. CHAR. * W P D P* * W D P****************************************
0x025488…02561c Dummy {f00=0x000c, f01=0x0190, f02=»SOR POS. W P* A5= REL. ATTRIBUTE POS. X P* A6= ATTRIBUTE CHAR. X 2 P* A11= CREDIT WORK AREA X P P* A13= RESERVED X p P* X D P*************************************************************** X PANCOMM EQU * X * P CF A14,SCRINF GET SCREEN
0x02561c…0257b0 Dummy {f00=0x000c, f01=0x0190, f02=» RF(NZ) ANC800 NO X P IFT IN:DL=1 Y P LD A1,MODE,A11 INSERT MODE? Y . P RF(Z) ANC100 NO Y R P CF A14,INSMOD Y j P LDR A7,A1 Y P ANK A7,1 INSRETED NORMAL? Y P RF(NZ) ANC900 YES Y " P ANK A1,2 INSERT NOT ALLOWED? Y P RF(NZ) ANC800 YES Y
0x0257b0…025944 Dummy {f00=0x000c, f01=0x0190, f02=»HAR DISPLAY CHAR AND CURSOR Y 8 P CF A14,POSUNP MOVE CURSOR TO NEXT UNPROTECTED POS. Z $ P RF ANC900 Z ` PANC800 EQU * Z r P CF A14,ERROR INDICATE ERROR Z PANC900 EQU * Z P RTN A14 Z P EJECT Z @ P********************************************
0x025944…025ad8 Dummy {f00=0x000c, f01=0x0190, f02=» * Z d @ P* * [ @ P************************************************************ [ P* REGISTERS [ P* [ P* A2= KEY-CHAR [ P* A4= REL. CURSOR POS. [ P* A5= REL. ATTRIBUTE P
0x025ad8…025c6c Dummy {f00=0x000c, f01=0x0190, f02=»********************** [ j PCURMOV EQU * $ P CF A14,SCRINF GET SCREEN INFO. 2 P SUK A2,CRUP GET INDEX Z P ADR A2,A2 x , P CFI A14,CURTAB,A2 JUMP IN CURSOR TABLE * P CF A14,STOINF SAVE SCREEN INFORMATION & P CWK A5,LBVDU+1 UNFORMATTED SCRE
0x025c6c…025e00 Dummy {f00=0x000c, f01=0x018e, f02=» z P CF A14,DISCHA SET CURSOR ] P RTN A14 ] * P EJECT ] : $ P* CURTAB CURSOR JUMP TABLE ] H PCURTAB EQU * ] p $ P DATA CRLEFT MOVE CURSOR TO LEFT ] & P DATA CRRIGT MOVE CURSOR TO RIGHT ] " P DATA CRDOWN MOVE CURSOR DOWN ] P DATA CURUP
0x025e00…025f94 (1, 47) Dummy {f00=0x000c, f01=0x0190, f02=» ] n ( P LDKL A4,LBVDU-1 LAST POS. ON SCREEN ^ P RF CRRET ^ 4 ( P* CRRIGT MOVE CURSOR TO RIGHT ^ F PCRRIGT EQU * ^ r P ADK A4,1 ^ P CWK A4,LBVDU END OF BUFFER? ^ P RF(L) CRRET NO ^ P LDK A4,0 ^ P RF CRRET ^ $ P* CRDOWN M
0x025f94…026128 Dummy {f00=0x000c, f01=0x0190, f02=» ^ P RF CRRET _ P* CURUP MOVE CURSOR UP _ PCURUP EQU * _ > P SUKL A4,LLINE _ R P RF(NN) CRRET UPMOST LINE _ h P ADKL A4,LBVDU _ PCRRET EQU * _ P RTN A14 _ P EJECT _ B P******************************************************
0x026128…0262bc Dummy {f00=0x000c, f01=0x0190, f02=» * _ ^ B P* * ` B P************************************************************** ` Z P* REGISTERS ` P* ` P* A4= REL. CURSOR POS. ` P* A5= REL. ATTRIBUTE POS. ` P* A6= ATTR
0x0262bc…026450 Dummy {f00=0x000c, f01=0x018e, f02=»********************************************* ` ~ PBAKTAB EQU * a 6 * P CF A14,SCRINF GET SCREEN INFORMATION a J P LDR A9,A5 a x ( P CWK A5,LBVDU+1 UNFORMATTED SCREEN? a P RF(E) BAK600 YES a & P CWR A4,A5 STANDING ON ATTRIBUTE? a P RF(E) BAK300
0x026450…0265e4 Dummy {f00=0x000c, f01=0x0190, f02=» a 0 P CWR A4,A5 STANDING ON POS. AFTER ATTRIBUTE? b P RF(E) BAK300 YES b < P LDR A4,A5 b V P LDR A7,A6 b h P ANK A7,/20 PROTECTED FIELD? b z P RF(Z) BAK500 NO b PBAK300 EQU * b P SUK A4,1 b P RF(NN) BAK400 b P LDKL A4,LBVDU-1 b
0x0265e4…026778 Dummy {f00=0x000c, f01=0x018e, f02=»ECTED FIELD? b P RF(Z) BAK500 NO c P LDR A4,A5 c , & P CWR A5,A9 WHOLE SCREEN SEARCHED? c > P RB(NE) BAK300 NO c h P LDK A1,0 FIRST SCREEN POS. c , P CF A14,ATMASB UPDATE FIELD INFORMATION c P RF BAK600 c PBAK500 EQU * c P LDR A4,A5 c
0x026778…02690c Dummy {f00=0x000c, f01=0x0190, f02=» c r PBAK700 EQU * d * P CF A14,STOINF SAVE SCREEN INFORMATION d P LDK A1,2 REQ. LENGTH d J P CF A14,DISCHA SET CURSOR d h P RTN A14 d P EJECT d B P************************************************************* d B P*
0x02690c…026aa0 Dummy {f00=0x000c, f01=0x0190, f02=» * d z B P************************************************************* e 0 P* REGISTERS e v P* e P* A4= REL. CURSOR POS. e P* A5= REL. ATTRIBUTE POS. e P* A6= ATTRIBUTE CHAR. e $ P* A9= REL. ATTRIBUTE S
0x026aa0…026c34 (1, 48) Dummy {f00=0x000c, f01=0x018e, f02=»** e T PTAB EQU * f * P CF A14,SCRINF GET SCREEN INFORMATION f P LDR A9,A5 f J ( P CWK A5,LBVDU+1 UNFORMATTED SCREEN? f P RF(E) TAB200 YES f PTAB100 EQU * f P LDR A1,A4 f , P CF A14,ATMASF SEARCH ATTRIBUTE FORWARD f P LDR A4,A5 NEW C
0x026c34…026dc8 Dummy {f00=0x000c, f01=0x0190, f02=» P RB(NE) TAB100 NO g " P LDK A1,0 FIRST POS. ON SCREEN g , P CF A14,ATMASB UPDATE FIELD INFORMATION g D P RF TAB200 g t PTAB150 EQU * g P ADK A4,1 g & P CWK A4,LBVDU-1 LAST SCREEN POS.? g P RF(NG) TAB300 NO g PTAB200 EQU * g P LDK
0x026dc8…026f5c Dummy {f00=0x000c, f01=0x0190, f02=»DISCHA SET CURSOR g P RTN A14 h P EJECT h * H P******************************************************************* h 8 H P* * h H P* CRNL TAB. UNPROTECTED TO NEXT LINE
0x026f5c…0270f0 Dummy {f00=0x000c, f01=0x0190, f02=»*************************** h h P* REGISTERS i $ P* i 8 P* A4= REL. CURSOR POS. i B P* A5= REL. ATTRIBUTE POS. i ` P* A6= ATTRIBUTE CHAR. i P* A11= RESERVED i P* A13= RESERVED i P* i F P**********************************************
0x0270f0…027284 Dummy {f00=0x000c, f01=0x0190, f02=» A1,0 COMPUTE LEFTMOST POS. i PCRN100 EQU * j $ P SUK A4,LLINE j 8 P RF(N) CRN200 j N P ADK A1,LLINE j d P RB CRN100 j z PCRN200 EQU * j P LDR A4,A1 j ( P CWK A5,LBVDU+1 UNFORMATTED SCREEN? j P RF(E) CRN800 YES j * P CF A14,GETVDU G
0x027284…027418 Dummy {f00=0x000c, f01=0x0190, f02=»IBUTE BACKWARD j v P LDR A7,A6 k P ANK A7,/20 PROTECTED? k ( P RF(Z) CRN800 NO k F P RF CRN500 k ^ PCRN400 EQU * k p P SUK A4,1 k " P RF(NN) CRN500 NOT WRAP AROUND k & P LDKL A4,LBVDU-1 LAST SCREEN POS. k PCRN500 EQU * k * P CF A14,STOINF
0x027418…0275ac Dummy {f00=0x000c, f01=0x0190, f02=»REEN INFORMATION k z P LDK A1,2 REQ. LENGTH l P CF A14,DISCHA SET CURSOR l 6 PCRN900 EQU * l X P RTN A14 l l P EJECT l | J P********************************************************************* l J P*
0x0275ac…027740 Dummy {f00=0x000c, f01=0x0190, f02=» * l t J P********************************************************************* m 2 P* REGISTERS m P* m P* A4= REL. CURSOR POS. m P* A5= REL. ATTRIBUTE POS. m P* A6= ATTRIBUTE CHAR. m P* A11= RESER
0x027740…0278d4 (1, 49) Dummy {f00=0x000c, f01=0x0190, f02=» m * P CF A14,SCRINF GET SCREEN INFORMATION n " P LDK A4,0 FIRST POS. ON SCREEN n 6 P CF A14,STOINF n ( P CWK A5,LBVDU+1 UNFORMATTED SCREEN? n r P RF(E) RDH800 YES n P LDR A1,A4 n * P CF A14,GETVDU GET CHAR. IN VDU BUFFER n P CCK A7,/8000 AT
0x0278d4…027a68 Dummy {f00=0x000c, f01=0x0190, f02=»00 n PRDH100 EQU * o P LDR A1,A4 o * P CF A14,ATMASB GET ATTRIBUTE BACKWARD o 0 P LDR A7,A6 o ^ P ANK A7,/20 PROTECTED? o p P RF(Z) RDH800 NO o PRDH300 EQU * o ( P CF A14,TAB TAB. UNPROTECTED FORWARD o P RF RDH900 o PRDH800 EQU * o
0x027a68…027bfc Dummy {f00=0x000c, f01=0x018e, f02=»TN A14 o P EJECT p B P************************************************************* p B P* * p b B P* EREOF ERASE TO END OF FIELD * p @ P*
0x027bfc…027d90 Dummy {f00=0x000c, f01=0x0190, f02=» p P* A4= REL. CURSOR POS. q P* A5= REL. ATTRIBUTE POS. q & P* A6= ATTRIBUTE CHAR. q H P* A11= RESERVED q f P* A13= RESERVED q ~ P* q H P******************************************************************* q PEREOF EQU * q * P CF A14,
0x027d90…027f24 Dummy {f00=0x000c, f01=0x0190, f02=»0 PROTECTED FIELD? q P RF(NZ) ERE600 YES r & P CWR A5,A4 STANDING ON ATTRIBUTE? r 4 P RF(E) ERE600 YES r ^ P LDR A1,A4 r x P LDR A8,A6 SAVE OLD r P LDR A9,A5 SAVE OLD r , P CF A14,ATMASF SEARCH ATTRIBUTE FORWARD r P LDR A3,A5 r P LDR
0x027f24…0280b8 Dummy {f00=0x000c, f01=0x0190, f02=»TTRIBUTE IN VDU BUFFER r v . P CF A14,STOINF SAVE NEW SCREEN INFORMATION s P LDR A1,A3 STOP ADDRESS s P P RF ERE800 s p PERE600 EQU * s P CF A14,ERROR INDICATE ERROR s P RF ERE900 s PERE700 EQU * s P LDR A10,A4 s & P CF A14,ERASE ERASE
0x0280b8…02824c Dummy {f00=0x000c, f01=0x0190, f02=»E800 EQU * s P SUR A10,A10 t 0 P CF A14,ERASUA ERASE UNPROTECTED TO ADDRESS t & * P CF A14,DISMOD DISPLAY MODIFIED FIELD t Z PERE900 EQU * t P RTN A14 t P EJECT t H P******************************************************************* t H P*
0x02824c…0283e0 Dummy {f00=0x000c, f01=0x0190, f02=» * t R H P* * u H P******************************************************************* u Z P* REGISTERS u P* u P* A4= REL. CURSOR POS. u P* A5= REL. ATTRIBUTE POS. u P* A6
0x0283e0…028574 (1, 50) Dummy {f00=0x000d, f01=0x0190, f02=»*************** u PERINPT EQU * v * P CF A14,SCRINF GET SCREEN INFORMATION v , ( P CWK A5,LBVDU+1 UNFORMATTED SCREEN? v Z P RF(NE) ERI100 NO v & P CF A14,ERASE ERASE ENTIRE SCREEN v P RF ERI900 v PERI100 EQU * v ( P CF A14,ERASUP ERASE ALL
0x028574…028708 Dummy {f00=0x000d, f01=0x0190, f02=» P RTN A14 w P EJECT w P IFT IN:DL=1 w " < P******************************************************** w 6 < P* * w v < P* INSERT INSERT KEY HANDLING * w < P*
0x028708…02889c Dummy {f00=0x000d, f01=0x0190, f02=» P* A11= CREDIT WORK AREA x P* A13= RESERVED x $ P* x < 8 P*************************************************** x F PINSERT EQU * x P IM MODE,A11 SET INSERT MODE x . P CF A14,LMP6ON TURN ON "INSERT MODE" LAMP x P RTN A14 x P EJECT x :
0x02889c…028a30 Dummy {f00=0x000d, f01=0x0190, f02=»ELETE DELETE CHAR. HANDLING * x : P* * y 4 < P******************************************************* y r P* REGISTERS y P* y P* A4= REL. CURSOR POS. y P* A5= REL. ATTRIBUTE POS.
0x028a30…028bc4 Dummy {f00=0x000d, f01=0x0190, f02=»*********************** y p PDELETE EQU * z * P CF A14,SCRINF GET SCREEN INFORMATION z 4 P LDKL A3,-1 z b PDEL025 EQU * z v P ADK A3,LLINE z * P CWR A3,A4 LAST POS. ON CURRENT LINE? z P RB(L) DEL025 NO z ( P CWK A5,LBVDU+1 UNFORMATTED SCREEN
0x028bc4…028d58 Dummy {f00=0x000d, f01=0x018e, f02=»OTECTED? z P RF(NZ) DEL700 YES { P ORK A6,1 SET MDT-BIT { * P LDR A7,A6 { H P LDR A1,A5 { Z & P CF A14,STOVDU SAVE NEW ATTRIBUTE { l P LDR A8,A6 SAVE OLD { P LDR A9,A5 SAVE OLD { , P CF A14,ATMASF SEARCH ATTRIBUTE FORWARD { P LDR A1,A5
0x028d58…028eec Dummy {f00=0x000d, f01=0x018e, f02=» P RF(NG) DEL200 NO | P LDR A3,A1 | PDEL200 EQU * | 0 P LDR A1,A4 | D PDEL300 EQU * | V " P CWR A1,A3 ALREADY ON LAST? =4 | j P RF(E) DEL400 YES =4 | P ADK A1,1 | , P CF A14,GETVDU GET CHAR. IN VDU BUFFER | P SUK A1,1 | , P CF A14,
0x028eec…029080 Dummy {f00=0x000d, f01=0x0190, f02=» | | P LDK A7,NULL GET NULL CHAR. } 0 P CF A14,STOVDU STORE NULL CHAR IN VDU BUFFER } , P CF A14,SAVE1 } ` P LDK A5,LLINE } v P LDR A6,A11 } P SUR A10,A10 } P CF A14,LINE GET LINE FLAG } P LC A1,LINFLG,A6 } P ORK A1,1 } P SC A1,L
0x029080…029214 (1, 51) Dummy {f00=0x000d, f01=0x018e, f02=»DICATE ERROR } PDEL900 EQU * ~ P RTN A14 ~ ( P XIF ~ 8 P EJECT ~ D < P******************************************************** ~ R < P* * ~ < P* RESET RESET KEY HANDLING
0x029214…0293a8 Dummy {f00=0x000d, f01=0x0190, f02=» P* REGISTERS P* P* A11= CREDIT WORK AREA " P* A13= RESERVED B P* Z 8 P**************************************************** d PRESET EQU * " P CM MODE,A11 RESET INSERT MODE * P CF A14,LMP6OF TURN OFF "INSERT" LAMP $ P
0x0293a8…02953c Dummy {f00=0x000d, f01=0x0190, f02=» P RTN A14 P EJECT @ P*********************************************************** " @ P* * f @ P* DUP DUPLICATE KEY * @ P*
0x02953c…0296d0 Dummy {f00=0x000d, f01=0x0190, f02=» P* A2= KEY-CHAR P* A11= RESERVED P* A13= RESERVED 2 P* J @ P************************************************************ T PDUP EQU * P LDK A2,DUPCH GET DUP CHAR. P CF A14,NUM P CF A14,TAB P RTN A14 P E
0x0296d0…029864 Dummy {f00=0x000d, f01=0x0190, f02=» * X @ P* FLDMRK FIELD MARK KEY * @ P* * P @ P*********************************************************** P* REGISTERS P* P* A2= KEY-CHAR
0x029864…0299f8 Dummy {f00=0x000d, f01=0x0190, f02=» EQU * & P LDK A2,FMCH GET FIELD MARK CHAR. P CF A14,NUM 8 P RTN A14 L P EJECT D P*************************************************************** j P* & P* Z E R O : 3 TRIPLE ZERO KEY ( P* Z E R O : 2 DOUBLE ZERO KE
0x0299f8…029b8c Dummy {f00=0x000d, f01=0x0190, f02=» RESERVED P* A13= RESERVED P* * > P********************************************************* 4 P v PZERO:3 EQU * ~ P LDK A2,/30 ZERO CHAR. " P CF A14,NUM DISPLAY CHARACTER PZERO:2 EQU * P LDK A2,/30 ZERO CHAR. " P
0x029b8c…029d20 Dummy {f00=0x000d, f01=0x0190, f02=»FT OFLIN=1 < P******************************************************** < P* * R < P* OFLINE OFFLINE KEY HANDLING * < P*
0x029d20…029eb4 (1, 52) Dummy {f00=0x000d, f01=0x0190, f02=»* A13= RESERVED P* < P******************************************************* " POFLINE EQU * b ( P CF A14,ERASE ERASE ENTIRE SCREEN =2 v P CF A14,RESET * P CF A14,DCOFLN INDICATE OFFLINE TO DC ( P CF A14,LMP6ON TURN ON OFFLINE LAM
0x029eb4…02a048 Dummy {f00=0x000d, f01=0x018e, f02=» j P LD A12,4,A14 $ P ADKL A14,4 UPDATE STACK POINTER * P ABL I:RT1 RETURN TO "OFFLINE" PROGRAM F P XIF t P EJECT > P********************************************************* > P*
0x02a048…02a1dc Dummy {f00=0x000d, f01=0x0190, f02=» T > P********************************************************* P* REGISTERS J P* ^ P* A11= CREDIT WORK AREA h P* A13= RESERVED P* < P******************************************************* P IFT NBRLIN=2 PMFCHGE E
0x02a1dc…02a370 Dummy {f00=0x000d, f01=0x0190, f02=»1 P XRK A1,1 P RF(NZ) MFCH10 P CF A14,LMP1ON 2 P RF MFCH90 H PMFCH10 EQU * Z P CF A14,LMP2ON n PMFCH90 EQU * P ST A1,MAIN,A11 $ P CF A14,CHKSTA CHECK LINE STATUS P RTN A14 P XIF P EJECT @ P******
0x02a370…02a504 Dummy {f00=0x000d, f01=0x0190, f02=» COPY LOCAL HARDCOPY * @ P* * > @ P*********************************************************** P* REGISTERS P* P* A11= CREDIT WORK AREA
0x02a504…02a698 Dummy {f00=0x000d, f01=0x0190, f02=»,SNAMOD,A11 2 P ANKL A1,HCPMOD HARDCOPY ALREADY OUTSTANDING? $ P RF(NZ) COPY80 YES,WAIT A WHILE J P LD A1,PRTID,A11 r & P RF(Z) COPY80 PRINTER NOT ASSIGNED 2 P ANK A1,/FF CHECK IF PRINTER OK IN TASK TABLE P SUK A1,/30 P SLL A1,2
0x02a698…02a82c Dummy {f00=0x000d, f01=0x0190, f02=»3,A3 P ANK A1,/FF PRINTER OK? P RF(Z) COPY10 YES , * P CF A14,LMP5FL INDICATE PRINTER ERROR F P RF COPY90 t PCOPY10 EQU * ( P LDK A1,/38 INDICATE HARDCOPY IN WCC P ST A1,WCC,A11 P LDKL A3,BVDU BUFFER P ADR A3,A11 AD
0x02a82c…02a9c0 Dummy {f00=0x000d, f01=0x0190, f02=» BUFFER LENGTH ~ " P CF A14,ICWRT WRITE INTERTASK P IFT SNA=1 < 2 P LDKL A1,HCPMOD INDICATE HARDCOPY OUTSTANDING N P ORS A1,SNAMOD,A11 P XIF P IFF SNA=1 2 P LDKL A1,HCPMOD INDICATE HARDCOPY OUTSTANDING P ORS A1,BSCMOD,A11
0x02a9c0…02ab54 (1, 53) Dummy {f00=0x000d, f01=0x0190, f02=»***************************************************** D P* * > 0 P* IDENT PRINTER IDENT. HANDLING D P* * D P******
0x02ab54…02ace8 Dummy {f00=0x000d, f01=0x0190, f02=» t P* A11= CREDIT WORK AREA P* A13= T:A ADDRESS ( P* B B P************************************************************* L PIDENT EQU * ( P LD A1,PRTID,A11 GET CURRENT TASKID $ P LD A4,+6,A13 COMMON BLOCK BASE P ANK A1,X'FF'
0x02ace8…02ae7c Dummy {f00=0x000d, f01=0x018e, f02=» LCR A5,A3 GET ID P SLL A5,8 P LC A5,+1,A3 , P LC A4,+3,A3 GET STATUS @ P CF A14,SAVE1 SAVE REGISTERS ` P CF A14,DISID DISPLAY TASKID " P LDKL A1,IDEN40 NEXT KEY ENTRY P ST A1,RDMORE,A11 P RF IDEN90 NEXT KEY PIDEN
0x02ae7c…02b010 Dummy {f00=0x000d, f01=0x0190, f02=» P RF(E) IDEN80 YES " P CWK A9,IDKEY GET NEXT TASKID? ( P RF(NE) IDEN90 NO KEEP THE FIRST ONE D PIDEN50 EQU * p & P ADK A3,4 SEARCH FOR NEXT PRINTER P LCR A2,A3 P ANK A2,/FF P LDR A1,A2 P RB(Z) IDEN50 P SLL A1,8
0x02b010…02b1a4 Dummy {f00=0x000d, f01=0x0190, f02=»TAB P LD A3,6,A13 P ADR A3,A2 P SUK A3,4 2 P RB IDEN50 D PIDEN80 EQU * V " P LCR A1,A3 GET PRINTER TO SAVE j P SLL A1,8 P LC A1,+1,A3 ( P ST A1,PRTID,A11 NEW HARDCOPY TASKID PIDEN90 EQU * P RTN A14 P E
0x02b1a4…02b338 Dummy {f00=0x000d, f01=0x0190, f02=» * Z B P* KEYL KEYLOCK STATUS * B P* * V B P************************************************************* P* REGISTERS P* P* A2= KE
0x02b338…02b4cc Dummy {f00=0x000d, f01=0x0190, f02=»************ ^ P IFT KEYLST=1 P IFT KB6272=1 * PKEYL EQU * @ * P SUK A2,LKLKEY GET NEG KEY LOCK VALUE R P LD A3,KEYS,A11 OLD STATUS P LDK A4,/10 PKEYL10 EQU * P SRL A4,1 P ADK A2,2 1 = OFF,0 = ON P RB(N) KEYL1
0x02b4cc…02b660 Dummy {f00=0x000d, f01=0x0190, f02=» n P RF KEYL30 NOW ON PKEYL20 EQU * WAS ON " P LDR A2,A2 > $ P RF(Z) KEYL99 NOW ON, NO CHANGE P PKEYL30 EQU * CHANGE x P LD A3,KEYS,A11 P XRR A3,A4 CHANGE STATUS $ P ST A3,KEYS,A11 STORE NEW STATUS P* P* KEYLOCK
0x02b660…02b7f4 (1, 54) Dummy {f00=0x000e, f01=0x0190, f02=»A3 l ( P* A2 = 1, IF CHANGED TO OFF ELSE 0 P* 6 * P* INSERT USER ROUTINE BELOW THIS LINE @ P* n PKEYL99 EQU * x P RTN A14 P XIF P EJECT > P********************************************************** P* P* TEST
0x02b7f4…02b988 Dummy {f00=0x000e, f01=0x0190, f02=»1= RESERVED P* A13= RESERVED P* , > P********************************************************* 6 P IFT TEST=1 x PTESTM EQU * P CF A14,ERASE P CF A14,GETBUF P CF A14,RDSTAT P CF A14,DISSTA P LDR A8,A12
0x02b988…02bb1c Dummy {f00=0x000e, f01=0x0190, f02=» * > P* ENTER ENTER KEY HANDLING * @ > P* * > P********************************************************* P*
0x02bb1c…02bcb0 Dummy {f00=0x000e, f01=0x0190, f02=»***************************** t PENTER EQU * & P LDK A2,/27 AID-CODE : . P CF A14,LMP4ON TURN ON "KEYBOARD INHIBIT" V . P CF A14,TRPF AID+MODIFIED FIELDS+TRANSMIT P RTN A14 P EJECT B P************************************************
0x02bcb0…02be44 Dummy {f00=0x000e, f01=0x018e, f02=» * d B P* * B P************************************************************** ` P* REGISTERS P* P* A2= AID-CODE P* A11= RESERVED P* A13= RESERVED
0x02be44…02bfd8 Dummy {f00=0x000e, f01=0x0190, f02=» . P CF A14,LMP4ON TURN ON "KEYBOARD INHIBIT" ( P CF A14,TRPA UPDATE AID AND TRANSMIT 6 & P CF A14,ERASE ERASE ENTIRE SCREEN b P RTN A14 P EJECT D P*************************************************************** D P*
0x02bfd8…02c16c Dummy {f00=0x000e, f01=0x0190, f02=» * D P*************************************************************** : P* REGISTERS P* P* A11= CREDIT WORK AREA P* A13= RESERVED P* 8 P**************************************
0x02c16c…02c300 Dummy {f00=0x000e, f01=0x0190, f02=»1 ACTIVE? P RF(Z) SYS100 YES & P LDK A1,LOCMOD INDICATE LOCAL MODE , P RF SYS500 V PSYS100 EQU * h P LDR A2,A1 GET STATUS | P ANKL A2,/C00 MY JOB MODE? P RF(NZ) SYS200 NO & P CF A14,CLEAR CLEAR SCREEN AND DC ( P CF A14,
0x02c300…02c494 (1, 55) Dummy {f00=0x000e, f01=0x0190, f02=» AND NOT LU-LU? | P RF(NE) SYS300 NO & P LDK A1,SYSOP INDICATE SYSTEM MODE 2 P RF SYS500 PSYS300 EQU * n $ P ANKL A2,/800 SSCP-LU AND LU-LU? P RF(NZ) SYS400 YES & P LDK A1,SYSOP INDICATE SYSTEM MODE P RF SYS500 PSYS400 E
0x02c494…02c628 Dummy {f00=0x000e, f01=0x0190, f02=»MOD,A11 P RTN A14 P XIF P EJECT , D P*************************************************************** : D P* * D P* ATTN ATTENTION KEY HANDLING
0x02c628…02c7bc Dummy {f00=0x000e, f01=0x0190, f02=»********* Z P* REGISTERS P* 0 P* A11= RESERVED : P* A13= RESERVED R P* j > P********************************************************** t P IFT SNA=1 PATTN EQU * $ P LDK A1,/4B SIGNAL ATTENTION KEY P CF A1
0x02c7bc…02c950 Dummy {f00=0x000e, f01=0x0190, f02=» B P* * @ P* PA PROGRAM ACCESS KEY HANDLING * J B P* * B P****************************************************
0x02c950…02cae4 Dummy {f00=0x000e, f01=0x0190, f02=»****************************************************** PPA1 EQU * > P LDK A2,/25 AID-CODE P P RF PA500 l PPA2 EQU * ~ P LDK A2,/3E AID-CODE P RF PA500 PPA3 EQU * P LDK A2,/2C AID-CODE PPA500 EQU * , P CF A14,
0x02cae4…02cc78 Dummy {f00=0x000e, f01=0x0190, f02=»TN A14 P EJECT H P******************************************************************* H P* * h H P* PAEX PAEX KEY FOLLOWED BY NUMBER * H P*
0x02cc78…02ce0c Dummy {f00=0x000e, f01=0x0190, f02=» L P* REGISTERS P* P* A11= CREDIT WORK AREA & P* A13= RESERVED F P* ^ 8 P*************************************************** h P IFT PAX=1 PPAEX EQU * P LDKL A1,PAEXA P ST A1,RDMORE,A11 P RTN A14 P
0x02ce0c…02cfa0 Dummy {f00=0x000e, f01=0x018e, f02=»1-3 x P RF(G) PAERR ILLEGAL CHAR. ( P CF A14,DCABOR ABORT TEST MESSAGE =2 . P RF(NZ) PAEX10 Z P CF A14,PA3 PA3 KEY p P RF PARET PPAEX10 EQU * P ADK A2,1 P RF(NZ) PAEX20 P CF A14,PA2 PA2 KEY P RF PARET P
0x02cfa0…02d134 (1, 56) Dummy {f00=0x000e, f01=0x0190, f02=» P RTN A14 P XIF P EJECT $ F P****************************************************************** 2 F P* * | F P* PF PROGRAM FUNTION KEY HANDLING *
0x02d134…02d2c8 Dummy {f00=0x000e, f01=0x0190, f02=»************ Z P* REGISTERS P* ( P* A2= AID-CODE 2 P* A11= RESERVED H P* A13= RESERVED ` P* x F P****************************************************************** PPF EQU * & P SUK A2,PFKEY GET INDEX TO CONVERT P L
0x02d2c8…02d45c Dummy {f00=0x000e, f01=0x0190, f02=» A14 P EJECT F P***************************************************************** F P* * d F P* PFEX PFEX KEY FOLLOWED BY NUMBER * F P*
0x02d45c…02d5f0 Dummy {f00=0x000e, f01=0x0190, f02=»EGISTERS P* P* A11= CREDIT WORK AREA P* A13= RESERVED : P* R 6 P************************************************* P IFT PFX=1 PPFEX EQU * P LDKL A1,PFEXA P RF PFNXT PPFEXA EQU * P CM RDMORE,A11
0x02d5f0…02d784 Dummy {f00=0x000e, f01=0x0190, f02=» P RF PFNXT NEXT NUMBER PPFEX10 EQU * " P SUK A2,1 6 P RF(NZ) PFEX20 H P LDKL A1,PF1A FIRST NUM 1 ^ P RF PFNXT NEXT NUMBER PPFEX20 EQU * P SUK A2,1 P RF(NZ) PFERR ILLEGAL NUM P LDKL A1,PF2A FIRST NUM 2 P
0x02d784…02d918 Dummy {f00=0x000e, f01=0x018e, f02=»ILLEGAL NUM? P RF(NN) PFERR YES P ADK A2,/9+PFKEY PF1-PF9 . P RF PFHAND N PPF1A EQU * ` P CM RDMORE,A11 r P SUK A2,/30 ILLEGAL NUM? P RF(N) PFERR YES P SUK A2,/A ILLEGAL NUM? P RF(NN) PFERR YES " P ADK A2,/A+PFK
0x02d918…02daac Dummy {f00=0x000e, f01=0x0190, f02=» P SUK A2,5 ILLEGAL NUM? P RF(NN) PFERR YES " " P ADK A2,/5+PFKEY+/13 PF20-PF24 < PPFHAND EQU * b ( P CF A14,DCABOR ABORT TEST MESSAGE =2 v , P CF A14,PF PROGRAM FUNCTION KEY HANDLING P RF PFRET PPFNXT EQU * P ST A1,RDMORE,A1
0x02daac…02dc40 Dummy {f00=0x000e, f01=0x0190, f02=» > P********************************************************** > P* * F > P* RETURN RETURN * > P* *
0x02dc40…02ddd4 (1, 57) Dummy {f00=0x000e, f01=0x409c, f02=»A13= RESERVED P* < P******************************************************** PRETURN EQU * ` P RTN A14 t P END @
0x02ddd4…02df68 Dummy {f00=0x000e, f01=0x2008, f02=» ) DATA PF 24 * * $ END * ,@ * 8 6 ) 4 DATA PF 7 ) F DATA PF 8 ) X DATA PF 9 ) j DATA PF 10 ) | DATA PF 11 ) DATA PF 12 ) DATA PF 13 ) DATA PF 14 ) DATA PF 15 ) *C0 ) DATA PF
0x02df68…02e0fc Dummy {f00=0x000e, f01=0x0190, f02=»FCFF P ECR A2,A2 CND WORD FROM PRG P ORR A1,A2 CND WRD CHANGED 0 P ST A1,6,A5 STORE IN STACK R P RTN A5 t P EJECT P IFT DCM-MMUMUX=-2 PBUFADR EQU * =MMU P INH * P SUKL A15,32 ADJUST STACKPOINTER =MMU . P TS 2,A1
0x02e0fc…02e290 Dummy {f00=0x000e, f01=0x0190, f02=»A4,DWTUEC,A7 USER ECB ADDRESS =MMU , P EL A4,ECBBA,A4 USER BUFFER ADDRESS =MMU * P LDR A1,A4 SAVE IT =MMU Z 8 P ANKL A4,/FFF GET TWELVE LEAST SIGNIFICANT BITS =MMU z * P SRL A1,11 GET INDEX IN MMU TABLE =MMU ( P ADR A3,A1 ADD TO TTAB ADDRESS =MMU
0x02e290…02e424 Dummy {f00=0x000e, f01=0x0190, f02=»AVE IT =MMU 6 P SLL A1,2 GET BITS 12-15 OF PHYSICAL ADDRESS =MMU 4 P ORR A4,A1 COMBINE IT WITH LOCICAL ADDRESS =MMU N < P ANKL A3,/C000 GET BITS 16 AND 17 OF PHYSICAL ADDR. =MMU 8 P SRL A3,1 PUT IN RIGHT POSITION FOR WER INSTR. =MMU P RTN A
0x02e424…02e5b8 Dummy {f00=0x000e, f01=0x0190, f02=»ESS z P* P* DESTROYS: A1, A4 P* 0 P* : PSUPTIM EQU * D P LDR A1,A6 PARAMETER X P LDR A4,A6 t ( P ADK A4,DWTATP TIMER POINTER ADDRESS P INH P CF A15,SETIMP START TIMER 0 P DATA OLI159,TIMACT ACT ADDRESS, TIMER V
0x02e5b8…02e74c Dummy {f00=0x000e, f01=0x0190, f02=»T t P* A3= DWT ADDRESS P* * P* DESTROYS A1,A3,A4 4 P* V PSETPLT EQU * ` . P CF A15,GETBLK A3, A2 STORED IN DATA BLOCK t $ P LDR A1,A4 SAVE ADDRESS TO BLOCK P LDR A4,A6 GET DWT ADDRESS P ADR A4,A2 GET ENTRY ADD
0x02e74c…02e8e0 Dummy {f00=0x000e, f01=0x0190, f02=») h 2 P SUK A4,4 ADJUST ADDRESS TO TIMER POINTER WORD P CF A15,SETIMP START TIMER @ P DATA PTMOUT,POLTIM b P RTN A5 ~ P* P* & P* TIMEOUT FOR POLL-INACTIVE TIMER P* * PPTMOUT EQU * A1=ADDRESS TO DATA BLOCK 2 P LDR
0x02e8e0…02f580 (2, 0) DirGranule ((2, 0)) {
0x02e8e0…02f580 DirEnt {nam=»U3270.«, typ=»2 «, f00=0x0000, f01=0x0000, f02=0x01e0, f03=0x0000}
0x02e8e0…02f580 DirEnt {nam=»PRINT «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x01e8, f03=0x0000}
0x02e8e0…02f580 DirEnt {nam=»DSPBSC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0238, f03=0x0000}
0x02e8e0…02f580 DirEnt {nam=»DCBSC «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0268, f03=0x0000}
0x02e8e0…02f580 DirEnt {nam=»DATBSC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02a8, f03=0x0000}
0x02e8e0…02f580 }
0x02f580…02f714 (2, 1) Opaque[0x194]
0x02f714…02f8a8 # DirEnt {nam=»PRINT «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x01e8, f03=0x0000}
0x02f714…02f8a8 IdxSect {
0x02f714…02f8a8 f00 = 0x000f // 0x2f714 @0x0
0x02f714…02f8a8 f01 = 0x0014 // 0x2f716 @0x2
0x02f714…02f8a8 gno = [ // 0x2f718 @0x4
0x02f714…02f8a8 [0x00]: C0x000f.0x1.0
0x02f714…02f8a8 [0x01]: C0x000f.0x2.0
0x02f714…02f8a8 [0x02]: C0x000f.0x3.0
0x02f714…02f8a8 [0x03]: C0x0010.0x0.0
0x02f714…02f8a8 [0x04]: C0x0010.0x1.0
0x02f714…02f8a8 [0x05]: C0x0010.0x2.0
0x02f714…02f8a8 [0x06]: C0x0010.0x3.0
0x02f714…02f8a8 [0x07]: C0x0011.0x0.0
0x02f714…02f8a8 [0x08]: C0x0011.0x1.0
0x02f714…02f8a8 [0x09]: C0x0011.0x2.0
0x02f714…02f8a8 ]
0x02f714…02f8a8 }
0x02f8a8…02fa3c Dummy {f00=0x000f, f01=0x0190, f02=» 0 P IDENT PRINT REL 11.1 82-02-12 870150541110 8 & P =7 TEST PRINTER BEFORE CONNECT @ P =6 SET PRINTER STATUS j " P =5 DIFFERENT FF CH FOR GP74 P 82-01-26 P =4 NATIONAL CHAR P 81-11-20 P =3 SPACE SUPRESSI
0x02fa3c…02fbd0 Dummy {f00=0x000f, f01=0x0190, f02=»********************************************************* H C* * B H C* MODULE PRINT : H C* MODULE HANDLING THE PRIN
0x02fbd0…02fd64 Dummy {f00=0x000f, f01=0x0190, f02=»ON 3270 SNA/SDLC, BSC * r H C* * . H C******************************************************************* z P EJECT < P****************************************************
0x02fd64…02fef8 Dummy {f00=0x000f, f01=0x0190, f02=»N CURRENT MODE r 0 P* IOCPL COMPLETE IN CURRENT MODE ( P* DCPINP DC PRINTER INPUT J ( P* ICPINP INTERTASK INPUT v & P* ICPRED INTERTASK READ ( P* ICPWRT INTERTASK WRITE ( P* ICABOR
0x02fef8…03008c Dummy {f00=0x000f, f01=0x0190, f02=» NL NEW LINE , P* FFDUM SIMULATED FORM FEED " P* FFVAL FORM FEED J ( P* CR CARRIAGE RETURN p $ P* EM END MESSAGE . P* INVAL INVALID PRINTER ORDER , P* FFCHK
0x03008c…030220 Dummy {f00=0x000f, f01=0x0190, f02=»DWARE t ( P* GETTAB GET ORDER INDEX P* : @ P*********************************************************** D EJECT H C******************************************************************* H C*
0x030220…0303b4 (2, 2) Dummy {f00=0x000f, f01=0x0190, f02=» * z H C******************************************************************* 6 8 4 ENTRY PRINT START LABEL FROM DATA DIVISION (CREDIT) 0 P ENTRY COPP COPY SCREEN BUFFER TO PRINTER =2 H C******
0x0303b4…030548 Dummy {f00=0x000f, f01=0x0190, f02=»* N H C* EXTERNAL REFERENCES * H C* * V H C******************************************************************* 2 . EXTRN COMINI COMM
0x030548…0306dc Dummy {f00=0x000f, f01=0x0190, f02=» OPEN OPEN (DCBSC) ( P EXTRN CONCT CONNECT PASSIVE (DCBSC) , P EXTRN SETTIM SET REQUEST TIMER (DCBSC) F , P EXTRN ATMASB SEARCH ATTRIBUTE BACKWARDS v & P EXTRN TSTMES TEST MESSAGE (DCSNA) ( P EXTRN READW READ WITH WAIT (DCSNA) , P EXTRN READN
0x0306dc…030870 Dummy {f00=0x000f, f01=0x0190, f02=» DC BUFFER (PAD) | ( P EXTRN ECBINI INIT IF ECB:S (DSPSNA) . P EXTRN ICSET SET INTERTASK TIMEOUT (KEYB) D ( P EXTRN ICWRT INTERTASK WRITE (KEYB) v ( P EXTRN ICREAD INTERTASK READ (KEYB) $ P EXTRN SETSTA SET STATUS (DCBSC) * P EXTRN CONNAT TRAN
0x030870…030a04 Dummy {f00=0x000f, f01=0x0190, f02=» * z D P* CONDITIONAL ASSEMBLY * 2 D P* * z D P***************************************************************
0x030a04…030b98 Dummy {f00=0x000f, f01=0x0190, f02=»U 0 TEST MODE IF:=1 PTEST EQU X:O , PX:R EQU 0 TRANSFORM OF NAT.CHAR IF:=1 =4 0 PTRANAT EQU X:R . =4 ` EJECT | H C******************************************************************* H C*
0x030b98…030d2c Dummy {f00=0x000f, f01=0x0190, f02=» L H C******************************************************************* T P* P* TABLE OF PRINTER TYPES f P* PPRTTAB EQU * & P DATA /0004 NUMBER OF PRINTERTYPES P DATA 'TT',0 GTP P DATA 'LL',2 LINE PRINTER P
0x030d2c…030ec0 Dummy {f00=0x000f, f01=0x0190, f02=»ES/PAGE z " P* BYTE2= NUMBER OF CHAR./LINE * 6 PPRTLEN DATA /2382 GTP @ P DATA /2382 LP ^ P DATA /2382 GP 74 t P DATA /2382 COPY 80 * " * LINE LENGTHS FROM WCC * 4 /LINLEN DATA /0028,/4050 40, 64 AND 8
0x030ec0…031054 (2, 3) Dummy {f00=0x000f, f01=0x0190, f02=»D LENGTH | ECBEL EQU 6 EFFECTIVE LENGTH ECBRC EQU 8 RETURN CODE 4 ECBCW EQU 10 CONTROL WORD T * v P* PRINTER MODES * LOCAL EQU 0 LOCAL MODE SHARED EQU 2 SHARED MODE P* P* PRINTER STATUS IN PRTMOD
0x031054…0311e8 Dummy {f00=0x000f, f01=0x0190, f02=»CHAR. v " PENDPRT EQU /4000 END PRINTING $ PNTONLY EQU /2000 NOT ONLY SPACES 4 PCRREC EQU /1000 CR RECEIVED * ( #* RELATIVE POS. IN ECB-BLOCK * IC EQU 2 INTERTASK P* P* SCREEN SIZE P* PLBVD
0x0311e8…03137c Dummy {f00=0x000f, f01=0x0190, f02=» IN | P* TERMINAL WORKBLOCK * ( PBVDU EQU 2 SCREEN BUFFER 2 PWCC EQU BVDU+1950 WCC R " PLINCNT EQU WCC+4 LINE COUNTER p 2 PDCLENG EQU LINCNT+2 LENGTH OF RECEIVED BUFFER & PPRTID EQU DCLENG+6 PRINTER TASKID $ PPRTTYP EQU PRTID+2
0x03137c…031510 Dummy {f00=0x000f, f01=0x018e, f02=» PREGI EQU BUFPNT+2 SAVE AREA $ PPRTMOD EQU REGI+32 PRINTER MODE ( $ PECBPRT EQU PRTMOD+4 PRINTER ECB P * PECBICR EQU ECBPRT+6 INTERTASK READ ECB x , PECBICW EQU ECBICR+2 INTERTASK WRITE ECB PECBDC EQU ECBICW+2 ECB DC " PECBDC1 EQU ECBDC
0x031510…0316a4 Dummy {f00=0x000f, f01=0x0190, f02=» P IFF TEST=1 PTSKTAB EQU 24 DEVICE TABLE P XIF > P IFT TEST=1 J PTSKTAB EQU 219 ^ P XIF t EJECT H C******************************************************************* H C*
0x0316a4…031838 Dummy {f00=0x000f, f01=0x0190, f02=» * r H C******************************************************************* . PRINT EQU * z CF A14,INIT INIT ROUTINE $ P CF A14,TSTPRT TEST HARDWARE =7 P IFT SNA=1 , ' CF A14,OPINIT OPEN CONNECTION
0x031838…0319cc Dummy {f00=0x000f, f01=0x0190, f02=» ~ P RF(N) PRI100 NO DC INVOLVED P LDKL A8,20 , P LKM @ P DATA 6 L " P CF A14,CONCT CONNECT PASSIVE & P CF A14,SETTIM SET REQUEST TIMEOUT P XIF ( P LDK A1,SHARED ALWAYS SHARED IN BSC P ST A1,PRTMOD,A11 PRI100 EQU
0x0319cc…031b60 Dummy {f00=0x000f, f01=0x0190, f02=» ADR A7,A11 LKM DATA 7 MULTIPLE WAIT * P CF A14,IOCPL COMPLET IN CURRENT MODE > P LD A1,PRTMOD,A11 l " P ANKL A1,PRTERR PRINTER ERROR? P RB(Z) PRI200 NO P XRS A1,PRTMOD,A11 P RB PRI100 TRY TO FIX IT EJECT
0x031b60…031cf4 (2, 4) Dummy {f00=0x0010, f01=0x0190, f02=» * Z $ P* IOACT ACTIVATE IN CURRENT MODE J E* * @ J E********************************************************************* PIOACT EQU * P LDK A4,0 & P LD A1
0x031cf4…031e88 Dummy {f00=0x0010, f01=0x0190, f02=»NDING ALREADY? n P RF(NZ) IOAC10 YES P CM MAIN,A11 INDICATE LINE 1 0 P CF A14,TSTMES TEST MESSAGE T P ST A8,ECBBLK+4,A11 x PIOAC10 EQU * P IFT NBRLIN=2 P ADK A4,1 ADD MORE WAITS P LD A2,ECBBLK+6,A11 ALREADY? P RF(NZ
0x031e88…03201c Dummy {f00=0x0010, f01=0x0190, f02=»20 EQU * P ADK A4,1 P LD A2,ECBBLK+2,A11 ALREADY? " P RF(NZ) IOAC30 YES F " P CF A14,ICPRED READ INTERTASK ` P ST A8,ECBBLK+2,A11 PIOAC30 EQU * & P ST A4,ECBBLK,A11 NUMBER OF WAITS P RTN A14 EJECT J E**********
0x03201c…0321b0 Dummy {f00=0x0010, f01=0x0190, f02=»* L $ P* IOCPL COMPLETE IN CURRENT MODE J E* * 2 J E********************************************************************* PIOCPL EQU * " P CW A8,ECBBLK+2,A11 INTERTASK? P
0x0321b0…032344 Dummy {f00=0x0010, f01=0x0190, f02=»K+4,A11 DC LINE 1? P IFT NBRLIN=2 P RF(NE) IOCP20 NO 0 P XIF J P IFF NBRLIN=2 V P RF(NE) IOCP90 NO FORGET IT l P XIF P CM ECBBLK+4,A11 P CM MAIN,A11 INDICATE LINE 1 P RF IOCP30 P IFT NBRLIN=2 PIOCP20 E
0x032344…0324d8 Dummy {f00=0x0010, f01=0x0190, f02=» XIF PIOCP30 EQU * " P CF A14,DCPINP TAKE CARE OF DC PIOCP90 EQU * F P RTN A14 Z P EJECT j D P*************************************************************** x D P* * D P
0x0324d8…03266c Dummy {f00=0x0010, f01=0x0190, f02=» P D P*************************************************************** PDCPINP EQU * P ( P CF A14,ICABOR ABORT LOCAL HARD COPY d " P LDR A7,A7 ALREADY COMPLETED? P RF(Z) DCP100 NO * P CF A14,ICPINP TAKE CARE OF THAT FIRST PDCP100 EQU *
0x03266c…032800 Dummy {f00=0x0010, f01=0x0190, f02=»DCP150 EQU * P XIF P IFT SNA=1 P LD A1,ECBRC,A8 OK? 2 P ANKL A1,/701 OK? N P RF(NZ) DCP500 NO STOP IT h P XIF P CF A14,GETBUF GET BUFFER P LDR A3,A8 $ P CF A14,READW READ FIRST BUFFER P ANK A1,3 ERROR?
0x032800…032994 (2, 5) Dummy {f00=0x0010, f01=0x0190, f02=» RESET INTERNAL UNPACK STATUS P IFT SNA=1 . =1 & P ANK A1,2 . =1 > P RF(Z) DCP450 . =1 T P ORKL A10,LICREC . =1 n PDCP450 EQU * . =1 P XIF . =1 P LD A1,ECBEL,A8 " P ST A1,DCLENG,A11 SAVE LENGTH * P ST A12,BUFPNT,A11
0x032994…032b28 Dummy {f00=0x0010, f01=0x0190, f02=»IT r P XIF ( P CF A14,UNPACK UPDATE SCREEN BUFFER PDCP500 EQU * B P IFF SNA=1 V P LDK A1,0 h " P CF A14,SETSTA SET DEVICE END z P XIF P RTN A14 P EJECT D P**************************************************************
0x032b28…032cbc Dummy {f00=0x0010, f01=0x018e, f02=» * Z D P* * D P**************************************************************** Z PICPINP EQU * P CF A14,COPP MAKE HARDCOPP , P ST A1,REGI,A11 RETURN CODE TO TERMINAL " P
0x032cbc…032e50 Dummy {f00=0x0010, f01=0x0190, f02=» L F P* * ! F P* ICPRED INTERTASK READ * ! R F P* * ! F P**********************************
0x032e50…032fe4 Dummy {f00=0x0010, f01=0x0190, f02=»ADDRESSED READ ! P LDKL A3,BVDU " P ADR A3,A11 " , P LDKL A2,LBVDU+/20 " @ " P CF A14,ICREAD READ INTERTASK " Z P RTN A14 " P EJECT " H P******************************************************************** " H P*
0x032fe4…033178 Dummy {f00=0x0010, f01=0x0190, f02=» * " H P******************************************************************** # > PICPWRT EQU * # P LD A8,ECBICW,A11 # P CF A14,ICSET SET NO TIMEOUT # P LD A1,ECBICR,A11 # P LD A1,ECBCW,A1 GE
0x033178…03330c Dummy {f00=0x0010, f01=0x0190, f02=»WRT WRITE INTERTASK # PICPW90 EQU * $ P RTN A14 $ 0 P EJECT $ @ B P************************************************************* $ N B P* * $ B P* ICABOR INTERTASK ABORT
0x03330c…0334a0 Dummy {f00=0x0010, f01=0x0190, f02=»******************* $ f PICABOR EQU * % P LDK A7,0 % 0 P CM ECBBLK+IC,A11 % B P LD A8,ECBICR,A11 % P LKM % v P DATA 10 % P RTN A14 % EJECT % J E********************************************************************* % J E*
0x0334a0…033634 (2, 6) Dummy {f00=0x0010, f01=0x0190, f02=»* % L J E* * & J E********************************************************************* & X * REGISTERS & * & P* A2= CHAR. & " P* A3= SCREEN BUFFER POINTER
0x033634…0337c8 Dummy {f00=0x0010, f01=0x0190, f02=»ER & x P* A9= ECB BUFFER INDEX ' P* A10= INTERNAL STATUS ' * P* A11= TASK BLOCK BASE ' J P* A13= ECB BASE ' j * ' J E********************************************************************* ' PCOPP EQU * . =2 ' P LD A8,ECBPRT,A11 '
0x0337c8…03395c Dummy {f00=0x0010, f01=0x0190, f02=»WARDS ' l & P CM LINCNT,A11 RESET LINE COUNTER ( LD A1,WCC,A11 ( 8 ANK A1,/38 MASK RELEVANT ( N LDR A5,A1 ( p P ANK A1,8 START PRINT? ( P RF(Z) COP900 NO FORGET IT ( P SRL A5,4 ( $ P LC A5,LINLEN,A5 GET LINE LENGTH ( ( $ LDR A5,A5 N
0x03395c…033af0 Dummy {f00=0x0010, f01=0x0190, f02=» EQU * ( P LDKL A3,BVDU ) P ADR A3,A11 ) $ P LD A8,ECBBA,A8 ) 8 P CMR A8 RESET CONTROL CHAR. ) P P ADKL A8,2 ) t P SUR A9,A9 ) P LDK A2,0 ) P LDK A4,0 ) P SUR A10,A10 RESET STATUS ) PCOP200 EQU * ) P CWK A4,LBVDU ALL PRIN
0x033af0…033c84 Dummy {f00=0x0010, f01=0x0190, f02=» PRINTER ERROR? ) P RF(NZ) COP900 YES * PCOP400 EQU * * 2 P LCR A2,A3 GET CHAR. * F P ANK A2,/FF * b P RF(Z) COP650 NULL CHAR. * v P CCK A2,/8000 ATTRIBUTE? * P RF(L) COP500 NO * P LDR A6,A2 GET NEW ATTRIBUTE * P RF COP650 * PCOP5
0x033c84…033e18 Dummy {f00=0x0010, f01=0x0190, f02=»P550 EQU * * " P CF A14,GETTAB GET ORDERINDEX + " P CFR A14,A1 TAKE CARE OF ORDER + 8 P LDR A1,A1 PRINTER ERROR? + ^ P RF(NZ) COP900 YES + P LDR A1,A10 GET STATUS + P RF(N) COP800 GET NEXT CHAR. + P SLL A1,1 + P RF(N) COP850 END + P
0x033e18…033fac Dummy {f00=0x0010, f01=0x0190, f02=»LY INIDICATE NOT ONLY NOT + P RF COP700 , " PCOP650 EQU * , 4 " P LDK A2,/20 REPLACE WITH SPACE , H PCOP700 EQU * , n P IFF TRANAT=0 . =4 , * P LC A2,CONNAT,A2 TRANSFORM NAT.CHAR =4 , P XIF . =4 , P SCR A2,A8 , P ADKL A9,1 , P ADKL A8
0x033fac…034140 Dummy {f00=0x0010, f01=0x0190, f02=»CBRL,A1 UPDATE LAST POS. NOT SPACE =3 , PCOP800 EQU * - . 2 P ANKL A10,/FFFF-NXTCHA RESET TAKE NEXT CHAR =3 - B P ADK A3,1 - x P ADK A4,1 - P RB COP200 - PCOP850 EQU * - ( P LDR A9,A9 SOMETHING LEFT TO PRINT? - P RF(Z) COP900 NO - " P C
0x034140…0342d4 (2, 7) Dummy {f00=0x0010, f01=0x0190, f02=»BLE - p " P CF A14,PRLINE EXTRA LINE FEED . PCOP900 EQU * . 2 P LDR A1,A1 PRINTER FAILED? . F P RF(Z) COP950 NO . h " P LDKL A2,PRTERR INDICATE ERROR . P ORS A2,PRTMOD,A11 . PCOP950 EQU * . P RTN A14 . P EJECT . L P**********************
0x0342d4…034468 Dummy {f00=0x0010, f01=0x0190, f02=»************************************************ . x PPRTORD EQU * / 8 & P DATA /0004 NUMBER OF ORDER CODES / L $ P DATA /0A0A,NL,NL,NL,NL NEW LINE / v 2 P DATA /0C0C,FFDUM,FFVAL,FFVAL,FFDUM FORM FEED / ( P DATA /0D0D,CR,CR,CR,CR CARR. RETURN / ( P DATA /1
0x034468…0345fc Dummy {f00=0x0010, f01=0x0190, f02=»**************************** / ` P P* * 0 $ P P* NL NEW LINE * 0 x P P*
0x0345fc…034790 Dummy {f00=0x0010, f01=0x0190, f02=»NE PRINT LINE AFTER NEW LINE 0 * P ORKL A10,NXTCHA+NTONLY GET NEXT CHAR. 1 $ P RTN A14 1 R P EJECT 1 b J P********************************************************************** 1 p J P* * 1
0x034790…034924 Dummy {f00=0x0010, f01=0x0190, f02=» * 1 Z J P********************************************************************** 2 PFFDUM EQU * 2 f . P CF A14,FFCHK CHECK IF FORM FEED IS VALID 2 z P LDR A1,A1 VALID? 2 P RF(NZ) FFD400 NO 2 P LDK A7,0 RESET 2 & P LD A1,PRTTYP,A1
0x034924…034ab8 Dummy {f00=0x0010, f01=0x0190, f02=»T TO MANY 2 | P RF(E) FFD300 YES FINISHED 3 P ORKL A10,NTONLY 3 4 P ST A7,REGI,A11 SAVE 3 L $ P CF A14,PRLINE ADVANCE ONE LINE 3 h P LD A7,REGI,A11 RESTORE 3 P LDR A1,A1 PRINTER ERROR? 3 P RF(NZ) FFD500 YES 3 P RB FFD100 3 PFFD200 EQU
0x034ab8…034c4c Dummy {f00=0x0010, f01=0x0190, f02=»GE 3 x & P LDK A2,/20 REPLACE FF WITH SPACE 4 PFFD400 EQU * 4 4 P LDK A1,0 RETURN CODE 4 H PFFD500 EQU * 4 f P RTN A14 4 z P EJECT 4 J P********************************************************************* 4 J P*
0x034c4c…034de0 Dummy {f00=0x0010, f01=0x0190, f02=» * 4 J P********************************************************************* 5 @ PFFVAL EQU * 5 $ P CF A14,FFCHK CHECK IF FF VALID 5 P LDR A1,A1 VALID? 5 P RF(NZ) FFV200 NO 5 P LDK A1,/0
0x034de0…034f74 (2, 8) Dummy {f00=0x0011, f01=0x0190, f02=»1 YES!DIFF. FF CONTROL CH =5 5 PFFV100 EQU * . =5 6 $ ( P SC A1,-1,A8 STORE FF CONTROL CHAR. 6 > & P LDK A2,/20 REPLACE FF WITH SPACE 6 j P CM LINCNT,A11 TOP OF PAGE 6 PFFV200 EQU * 6 P LDK A1,0 RETURN CODE 6 P RTN A14 6 P EJECT 6 J P**
0x034f74…035108 Dummy {f00=0x0011, f01=0x0190, f02=» * 6 T J P* CR CARRIAGE RETURN * 7 J P* * 7 ` J P********************************************************************** 7 PCR EQU * 7
0x035108…03529c Dummy {f00=0x0011, f01=0x0190, f02=»NK A1,/30 FORMATTED? 7 P RF(NZ) CR100 NO 8 & P ORKL A10,NTONLY+CRREC CR RECEIVED 8 4 PCR100 EQU * 8 ^ " P LDK A2,/20 REPLACE WITH SPACE 8 r P LDK A1,0 RETURN CODE 8 P RTN A14 8 P EJECT 8 J P****************************************************
0x03529c…035430 Dummy {f00=0x0011, f01=0x0190, f02=» * 8 n H P* * 9 * H P******************************************************************** 9 v PEM EQU * 9 " P ORKL A10,ENDPRT END PRINTING 9 P LDK A1,0 RETURN
0x035430…0355c4 Dummy {f00=0x0011, f01=0x0190, f02=» * 9 ~ F P* INVAL INVALID PRINTER ORDER * : 8 F P* * : F P************************************************************
0x0355c4…035758 Dummy {f00=0x0011, f01=0x0190, f02=» RTN A14 : P EJECT ; F P***************************************************************** ; F P* * ; h F P* FFCHK CHECK IF FF IS VALID * ; F P*
0x035758…0358ec Dummy {f00=0x0011, f01=0x018e, f02=»FFCHK EQU * ; P LD A1,WCC,A11 < P ANK A1,/30 < * P XRK A1,/30 FORMATTED? < > 0 P RF(NZ) FFCH10 YES BUT NOT AS LOCAL HARDCOPY < P LD A1,WCC,A11 < P ANK A1,/40 LOCAL HARD COPY? < & P RF(Z) FFCH20 YES, FF NOT ALLOWED < PFFCH10 EQU * < P
0x0358ec…035a80 Dummy {f00=0x0011, f01=0x0190, f02=» PFFCH20 EQU * = " P LDK A2,/20 REPLACE WITH SPACE = P LDK A1,1 RETURN CODE = > P RF FFCH40 = PFFCH30 EQU * = n * P ANKL A10,/FFFF-CRREC RESET CR RCV =3 = P LDR A9,A9 EMPTY LINE = P RF(Z) FFCH35 YES = P CF A14,PRLINE PRINT LINE =
0x035a80…035c14 (2, 9) Dummy {f00=0x0011, f01=0x018e, f02=»**************************************************************** = D P* * > H D P* PRLINE PRINT LINE * > D P*
0x035c14…035da8 Dummy {f00=0x0011, f01=0x0190, f02=» > | P LDR A1,A10 ? P ANKL A1,NTONLY ONLY RUBB.? ? P RF(NZ) PRL050 NO ? @ P LD A1,WCC,A11 ? Z P LDR A2,A1 ? p P ANK A1,/30 ? P XRK A1,/30 HRADCOPY? ? P RF(NZ) PRL200 NO ? P ANK A2,/40 HARDCOPY????? ? P RF(NZ) PRL200 NO ?
0x035da8…035f3c Dummy {f00=0x0011, f01=0x0190, f02=» A9,ECBRL,A8 . =3 ? P LDK A7,/06 PRINT @ P LKM @ 4 P DATA 1 @ @ P LDK A1,50 NUMBER OF DELAYS @ P PPRL100 EQU * @ t P LDKL A8,1 WAIT FOR A WHILE @ P LKM @ P DATA 6 @ P LD A8,ECBPRT,A11 @ P LDR* A2,A8 PRINT COMPL.? @ P RF(
0x035f3c…0360d0 Dummy {f00=0x0011, f01=0x0190, f02=»HED AT LAST @ ~ & P LDK A1,1 NO CONSIDER IT AS #$&%$ A P RF PRL300 A > PPRL150 EQU * A P P LKM A d P DATA 2 RESYNCHRONIZE A r P IM LINCNT,A11 ANOTHER LINE A & P CM ECBRL,A8 RESET PRINT LENGTH =3 A P LD A1,ECBRC,A8 OK? A P RF(NZ) PRL300
0x0360d0…036264 Dummy {f00=0x0011, f01=0x0190, f02=»,2 A P LDK A1,0 RETURN CODE B P RF PRL900 . =6 B ( PPRL300 EQU * B @ * P LD A2,PRTID,A11 GET PRINTER TASKID =6 B T P ANK A2,/FF . =6 B P SUK A2,/30 . =6 B P SLL A2,2 . =6 B & P LD A3,+6,A13 COMMON BLOCK BASE =6 B P ADK A3,TSKTAB . =6 B
0x036264…0363f8 Dummy {f00=0x0011, f01=0x0190, f02=»*********************************************************** B H C* * C D H C* INIT INIT ROUTINE * C H C*
0x0363f8…03658c Dummy {f00=0x0011, f01=0x0190, f02=»MINI COMMON INIT C P CF A14,ECBINI INIT OF ECB:S D P LCR A2,A1 D < P SLL A2,8 D N P LC A2,+1,A1 D ` & P ST A2,PRTID,A11 SAVE WHOLE TASKID D t 2 - LCR A2,A1 GET TYPE OF PRINTER AND MAKE INDEX D " P LD A7,PRTTAB NUMBER OF TYPES D , P LDKL A1,PRTTA
0x03658c…036720 Dummy {f00=0x0011, f01=0x0190, f02=»UK A7,1 ILLEGAL ID? D P RB(NZ) INI100 NO E P LDKL A1,* E 6 P ST A1,REGI,A11 E H P LKM E ` P DATA 3 FORGET IT E l PINI200 EQU * E P LD A1,+2,A1 E ( P ST A1,PRTTYP,A11 SAVE PRINTER TYPE E RTN A14 E EJECT E F A****************
0x036720…0368b4 (2, 10) Dummy {f00=0x0011, f01=0x0190, f02=» TSTPRT TEST HARDWARE * E F A* * F F F A***************************************************************** F TSTPRT EQU * F P . =6 F P LD A8,ECB
0x0368b4…036a48 Dummy {f00=0x0011, f01=0x018e, f02=»=6 F P . =6 G P LD A2,PRTID,A11 . =6 G ANK A2,/FF G 8 SUK A2,/30 G L P SLL A2,2 G ` LD A3,+6,A13 G r LDK A1,TSKTAB G ADR A3,A1 G ADR A3,A2 G P . =6 G 0 P SC A4,+3,A3 INDICATE STATUS IN DEV TABLE =6 G P A
0x036a48…036bdc Dummy {f00=0x0011, f01=0x0190, f02=» G P . =6 H RB TSTP10 H P . =6 H * P . =6 H : P . =6 H J P . =6 H Z TSTP90 EQU * H j RTN A14 H ~ P EJECT H H P******************************************************************* H H P*
0x036bdc…036d70 Dummy {f00=0x0011, f01=0x0190, f02=» * H H P******************************************************************* I < PGETTAB EQU * I . P LD A7,PRTORD NUMBER OF VALID ORDER CODES I & P LDKL A1,PRTORD+2 ORDERTABLE BASE I PGETT10 EQU * I
0x036d70…036f04 Dummy {f00=0x0011, f01=0x40fc, f02=» SUK A7,1 ORDER FOUND? I P RF(Z) GETT30 NO INVALID J P RB GETT10 TRY AGAIN J > PGETT20 EQU * J Z P ADK A1,2 J n P LD A2,PRTTYP,A11 J P ADR A1,A2 J PGETT30 EQU * J P LDR* A1,A1 J P RTN A14 J J END J @ J 10 EQU * I
0x036f04…037098 Dummy {f00=0x0011, f01=0x2008, f02=» K A1,TSKTAB ADR A3,A1 ADR A3,A2 0 LDK A1,1 B " SC A1,+2,A3 INDICATE NOT OP. T LKM z DATA 0 SWITCH TASK $ LDK A2,1 INDICATE ONCE NOT OP. RB TSTP10 TSTP80 EQU * LDR A2,A2 NOT OP. ONC
0x037098…03722c Dummy {f00=0x0011, f01=0x0000, f02=»
[…0x1…]
0x0373c0…037554 (2, 11) Opaque[0x194]
0x037554…0376e8 # DirEnt {nam=»DSPBSC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0238, f03=0x0000}
0x037554…0376e8 IdxSect {
0x037554…0376e8 f00 = 0x0011 // 0x37554 @0x0
0x037554…0376e8 f01 = 0x000c // 0x37556 @0x2
0x037554…0376e8 gno = [ // 0x37558 @0x4
0x037554…0376e8 [0x00]: C0x0011.0x3.0
0x037554…0376e8 [0x01]: C0x0012.0x0.0
0x037554…0376e8 [0x02]: C0x0012.0x1.0
0x037554…0376e8 [0x03]: C0x0012.0x2.0
0x037554…0376e8 [0x04]: C0x0012.0x3.0
0x037554…0376e8 [0x05]: C0x0013.0x0.0
0x037554…0376e8 ]
0x037554…0376e8 }
0x0376e8…03787c Dummy {f00=0x0011, f01=0x0190, f02=» 0 P IDENT DSPBSC REL 11.1 82-02-12 870150541110 8 P =4 IMPROVEMENT OF =1 @ P =3 SAVE A12 ` $ P =2 IND. PRINTER NOT OP INIT. v P 81-11-20 $ P =1 TEST DEVICE BEFORE CONNECT P 81-04-08 B =**************************
0x03787c…037a10 Dummy {f00=0x0011, f01=0x0190, f02=»DSPBSC * z B =* MODULE HANDLING THE START UP OF THE * 0 B =* VDUKB TASK, CONTROLLING SNA MODES * v B =* AND MULTIPLE WAIT FOR KB AND DC. * < P*
0x037a10…037ba4 Dummy {f00=0x0011, f01=0x0190, f02=»***************************************************** EJECT > D P**************************************************************** L D P* * D P* LIST OF ROUTINES
0x037ba4…037d38 Dummy {f00=0x0011, f01=0x0190, f02=» * l $ P* IOACT I/O ACTIVATION $ $ P* IOCPL I/O COMPLETION L . P* MATCH MATCH ADDRESS AND TASKID t D P* INIT INITIALIZE THE TASK * * P* COMINI COMMON I
0x037d38…037ecc Dummy {f00=0x0011, f01=0x0190, f02=» * D P**************************************************************** D EJECT > :********************************************************** > :*
0x037ecc…038060 Dummy {f00=0x0011, f01=0x0190, f02=» * ` > :********************************************************** P T 0 , ENTRY VDUKB START LABEL FROM DATSNA(CREDIT) & P ENTRY COMINI COMMON INIT ROUTINE P ENTRY ECBINI INIT OF ECB:S . P ENTRY MATCH MATCH TASID AND PHYS. ADDRESS
0x038060…0381f4 (2, 12) Dummy {f00=0x0012, f01=0x0190, f02=» * Z > :* EXTERNAL REFERENCES * > :* * N > :********************************************************** P , ' EXTRN I:EVA0 CREDIT EVALUATION ROUTINE
0x0381f4…038388 Dummy {f00=0x0012, f01=0x0190, f02=»RASE ERASE SCREEN AND VDU BUFFER (VDU) . P EXTRN TSTMES TEST IF ANY MESSAGE (DCSNA) . 4 / EXTRN READKB READ KEYBOARD WITH NO WAIT (KEYB) ` 4 / EXTRN KBINP MAIN ROUTINE IN KEYB-MODULE (KEYB) 6 P EXTRN DCINP MAIN ROUTINE IN DCSNA-MODULE (DCSNA) *
0x038388…03851c Dummy {f00=0x0012, f01=0x0190, f02=» SOUND ALARM AT DISPLAY (VDU) & P EXTRN LMP5ON ERROR LAMP ON (KEYB) & ( P EXTRN LMP5OF ERROR LAMP OFF (KEYB) P . ) EXTRN RESKB RESET KEYBOARD BUFFER (KEYB) | 0 P EXTRN STOINF SAVE SCREEN INFORMATION (VDU) ( P EXTRN ICVRED INTERTASK READ (KEYB)
0x03851c…0386b0 Dummy {f00=0x0012, f01=0x0190, f02=»*********************************** v B =* * , B =* CONDITIONAL ASSEMBLY PARAMETERS * r B =* * B =**********
0x0386b0…038844 Dummy {f00=0x0012, f01=0x0190, f02=»U 0 OFFLINE HANDLING IF :=1 OFLIN EQU X:C $ $ PX:D EQU 1 NUMBER OF LINES (1-2) : PNBRLIN EQU X:D b * PX:M EQU 0 COPY COMMNAND INCLUDED IF:=1 x PCOPCMD EQU X:M " PX:O EQU 0 TEST INCLUDED IF:=1 PTEST EQU X:O EJECT @ ;****
0x038844…0389d8 Dummy {f00=0x0012, f01=0x0190, f02=»CLARATIONS OF DATA AND EQUATES @ ;* * & @ ;*********************************************************** j P* P* ECB INDEX TABLE P* PECBIND EQU * P DATA 8 NUMBER O
0x0389d8…038b6c Dummy {f00=0x0012, f01=0x0190, f02=»B VDU $ P DATA X'5008' ECB INTERTASK READ & P DATA X'510A' ECB INTERTASK WRITE 6 P DATA X'610C' ECB DC LINE1 ` P DATA X'620E' ECB DC LINE2 P* $ P* SCREEN SIZE ON DISPLAY P* PLBVDU EQU 1920 P* P* MODES
0x038b6c…038d00 Dummy {f00=0x0012, f01=0x0190, f02=»/VDU ~ P EJECT P* P* RELATIVE ADDRESSES IN $ P* TERMINAL WORKBLOCK TB1 D P* d POFFFLG EQU 1962 OFFLINE FLAG n * PPRTID EQU OFFFLG+2 TASKID FOR HARDCOPY " PMAIN EQU PRTID+6 WHICH DC LINE . PECBBLK EQU MAIN+6 ECBBLK FOR MULTI
0x038d00…038e94 (2, 13) Dummy {f00=0x0012, f01=0x018e, f02=»* RELATIVE ADDRESSES IN P* COMMON WORKBLOCK CB1 P* > * PMF1CU EQU 0 SYMBOLIC CLUSTER ADDDRESS H P IFF TEST=1 v " PTSKTAB EQU MF1CU+24 TASK TABLE P XIF P IFT TEST=1 $ PTSKTAB EQU MF1CU+219 TASK TABLE P XIF EJE
0x038e94…039028 Dummy {f00=0x0012, f01=0x0190, f02=» T > 9* VDUKB MAIN ROUTINE * > 9* * J > 9********************************************************* P* REGISTERS P* P* A11= RESERVED P* A1
0x039028…0391bc Dummy {f00=0x0012, f01=0x018e, f02=»NITIALIZE THE TASK VDU200 EQU * " P CF A14,IOACT PREPARE ECB-BLK . LDKL A7,ECBBLK T P ADR A7,A11 l LKM DATA 7 MULTIPLE WAIT & P CF A14,IOCPL TAKE CARE OF REQUEST P RB VDU200 HERE WE GO AGAIN P EJECT P*
0x0391bc…039350 Dummy {f00=0x0012, f01=0x0190, f02=» P* P* BLK 2 3 P* KB KB 4 P* DC DC X P* IC | P* P* P* EJECT @ <************************************************************
0x039350…0394e4 Dummy {f00=0x0012, f01=0x018e, f02=» * @ <************************************************************ 4 P* REGISTERS x P* ( P* A4= NUMBER OF ENTRIES IN ECB BLOCK P* A11= CREDIT WORK AREA P* A13= RESERVED P*
0x0394e4…039678 Dummy {f00=0x0012, f01=0x0190, f02=» ( P ADK A4,1 INCREMENT NUMBER OF WAITS , P LD A2,ECBBLK+4,A11 REQ. ALREADY OUTST.? 0 P RF(NZ) IOAC10 YES ` P CF A14,TSTMES TEST MESSAGE z P ST A8,ECBBLK+4,A11 PIOAC10 EQU * P IFT COPCMD=1 * P ANKL A1,HCPMOD HARDCOPY OUTSTANDING
0x039678…03980c Dummy {f00=0x0012, f01=0x0190, f02=»ERTASK ALREDY OUTSTANDING ~ " P CF A14,ICVRED READ INTERATSK " P ST A8,ECBBLK+6,A11 H PIOAC30 EQU * d P ADK A4,1 EVEN MORE x ( P LD A2,ECBBLK+2,A11 KB OUTSTANDING? P RF(NZ) IOAC40 YES P CF A14,READKB READ KEYBOARD P ST A8,ECB
0x03980c…0399a0 Dummy {f00=0x0012, f01=0x0190, f02=»************************************** z @ P* * . ( P* IOCPL I/O COMPLETION r @ P* * @ P**************************************
0x0399a0…039b34 (2, 14) Dummy {f00=0x0012, f01=0x0190, f02=»************************************************** PIOCPL EQU * : P CW A8,ECBBLK+2,A11 KB INPUT N P RF(NE) IOCP10 NO r P CM ECBBLK+2,A11 " P CF A14,KBINP TAKE CARE OF KB P RF IOCP90 PIOCP10 EQU * P CW A8,ECBBLK+4,A11 DC?
0x039b34…039cc8 Dummy {f00=0x0012, f01=0x0190, f02=»M ECBBLK+6,A11 ( P CF A14,ICINP TAKE CARE OF INTERTASK PIOCP90 EQU * B P RTN A14 V P EJECT f D P*************************************************************** t P* * P* MATCH MATCH TASKID AND PHYS. ADDRESS P* D P**********
0x039cc8…039e5c Dummy {f00=0x0012, f01=0x0190, f02=»************************************** v PMATCH EQU * . P IFT COPCMD=1 B ( P LDK A1,NBRTSK GET NUMBER OF ENTRIES X P LD A3,6,A13 " P ADKL A3,TSKTAB START OF TABLE PMATC10 EQU * P CC A2,+2,A3 SAME ADDRESS? P RF(E) MATC30 YES
0x039e5c…039ff0 Dummy {f00=0x0012, f01=0x0190, f02=» P RF MATC90 PMATC30 EQU * P LCR A1,A3 * , P CCK A1,VDUCOD COPY IN RIGHT DIRECTION? < P RB(NE) MATC20 NO l P LDK A1,0 P LDR* A2,A3 PMATC90 EQU * P XIF P RTN A14 EJECT @ <******************************
0x039ff0…03a184 Dummy {f00=0x0012, f01=0x018e, f02=» THE TASK * r @ <* * & @ <************************************************************ j P* REGISTERS P* P* A11= CREDIT WORK AREA P* A13= RESERVED P*
0x03a184…03a318 Dummy {f00=0x0012, f01=0x0190, f02=» | . P LD A1,2,A14 SAVE A12&A13 ON A14-STACK =3 P LD A2,4,A14 . =3 : P ST A12,4,A14 . =3 T P ST A13,2,A14 . =3 n P STR A2,A14 . =3 P ST A1,-2,A14 . =3 ( P SUKL A14,4 UPDATE STACK POINTER =3 P XIF . =3 P CF A14,ECBINI I
0x03a318…03a4ac Dummy {f00=0x0012, f01=0x0190, f02=»F A14,CONCT CONNECT DC & P CF A14,SETTIM SET REQUEST TIMEOUT * P LDK A2,NBRTSK NUMBER OF TASK ENTRIES H , P LD A9,REGI,A11 RESTORE TASKTAB ADDRESS v PINIT10 EQU * P SUK A2,1 P RF(N) INIT20 P ADKL A9,4 P LCR A1,A9 P A
0x03a4ac…03a640 Dummy {f00=0x0012, f01=0x0190, f02=» LC A1,+1,A9 P ST A1,PRTID,A11 PINIT20 EQU * , IFT OFLIN=1 @ P . =3 T P . =3 d P . =3 t P . =3 P . =3 P . =3 P . =3 P CM OFFFLG,A11 ( P CF A14,LMP6OF TURN OFF OFFLINE LAMP X
0x03a640…03a7d4 (2, 15) Dummy {f00=0x0012, f01=0x0190, f02=» CF A14,ERASE ERASE THE WHOLE SCREEN P IFT NBRLIN=2 , P LD A1,MAIN,A11 DC LINE 1? B P RF(Z) INIT30 YES d & P CF A14,LMP2ON INDICATE DC LINE 2 ~ P RF INIT40 PINIT30 EQU * P XIF & P CF A14,LMP1ON INDICATE DC LINE 1 PINIT
0x03a7d4…03a968 Dummy {f00=0x0012, f01=0x0190, f02=»******** ^ > P* * > P* COMINI COMMON INIT ROUTINE * R > P* * > P**************************************************
0x03a968…03aafc Dummy {f00=0x0012, f01=0x0190, f02=»************************************************ PCOMINI EQU * 8 P CF A14,I:EVA0 L $ P LDR A11,A9 LOAD TASK AREA BASE b P LDR* A2,A11 GET TASKID " P LD A3,6,A13 COMMON BLOCK BASE P LDR A1,A2 P ANK A1,X'FF' * P SUK A1,X'30' GE
0x03aafc…03ac90 Dummy {f00=0x0012, f01=0x0190, f02=»LE t ( P ST A1,REGI,A11 SAVE TASKTAB ADDRESS ! P SC A2,+1,A1 SAVE TASKID ! 6 P SRL A2,8 ! V P SCR A2,A1 ! h $ P CCK A2,VDUCOD DISPLAY TASK? =2 ! z P RF(E) COMI10 YES! =2 ! P LDK A2,1 . =2 ! ( P SC A2,+3,A1 IND. PRINTER NOT OP =2 ! PCOMI10
0x03ac90…03ae24 Dummy {f00=0x0012, f01=0x0190, f02=»SPLACEMENT I/O FILECODE ! P* " . 2 P* 0 KB /20 " 8 2 P* 2 PRINTER /30 " n 2 P* 4 SIGNAL/DISP. /40 " 2 P* 6 VDU /42
0x03ae24…03afb8 Dummy {f00=0x0012, f01=0x0190, f02=» DC LINE 1 /61 " | 2 P* 14 DC LINE 2 /62 # " P* # X P* # b P* # l P* # v P EJECT # B P************************************************************* # B P*
0x03afb8…03b14c Dummy {f00=0x0012, f01=0x0190, f02=» * # ` B P************************************************************* $ P* REGISTERS $ P* $ x P* A4 = NUMBER OF ENTRIES $ P* A5 = NUMBER OF FC ALLOWED $ P* A6 = DAT POINTER $ P* A7 = ECB FC POINTER $ P* A8 = DAT
0x03b14c…03b2e0 Dummy {f00=0x0012, f01=0x0190, f02=»************ $ ` PECBINI EQU * % " P LD A2,-8,A13 GET T:D ADDRESS % ( & P LD A4,+4,A2 GET NUMBER OF ENTRIES % N P LD A8,+6,A2 % x P ADR A8,A13 % P LDR A6,A8 DAT POINTER % P SUKL A8,20 DATA SET POINTER % PECBI10 EQU * % P LD A5,ECBIND NUMB
0x03b2e0…03b474 (2, 16) Dummy {f00=0x0013, f01=0x0190, f02=»C CONFIGURED? % x P RF(E) ECBI30 YES & P ADK A7,2 NEXT & 0 P SUK A5,1 NOT FOUND? & F P RB(NZ) ECBI20 NOT YET & b P LDKL A1,* DIAGNOSTIC & P ST A1,REGI,A11 & P LKM & P DATA 3 WRONG GENERATION & PECBI30 EQU * & $ P SC A2,+1,A8 SAVE
0x03b474…03b608 Dummy {f00=0x0013, f01=0x0190, f02=»F ANY & p " P ST A2,+2,A8 SAVE IN DATA SET ' ( P LC A2,+1,A7 GET INDEX TO ECB TABLE ' 4 P ANK A2,/FF ' ` P ADR A2,A11 ' t & P ST A8,ECBTAB,A2 SAVE ECB ADDRESS ' P ADK A6,4 ' P SUKL A8,20 ' P SUK A4,1 ALL DONE? ' P RB(NZ) ECBI10 NO '
0x03b608…03b79c Dummy {f00=0x0013, f01=0x0190, f02=» * ' r B =* TSTDEV TEST KEYBOARD AND DISPLAY * ( ( B =* * ( n B =************************************************************* ( P* REGISTERS (
0x03b79c…03b930 Dummy {f00=0x0013, f01=0x0190, f02=» TSTDEV EQU * ) , ( CF A14,SOUND TURN ON SOUND ALARM AT VDU ) ANK A1,/1 OPERABLE? ) H RF(Z) TSTD10 YES ) d ( P CF A14,LMP5ON TRY TO INDICATE ERROR ) ~ P LDKL A8,300 WAIT ) P LKM ) P DATA 6 ) RB TSTDEV TRY AGAIN ) TSTD10 EQU *
0x03b930…03bac4 Dummy {f00=0x0013, f01=0x40b2, f02=» LDKL A8,300 WAIT ) P LKM * P DATA 6 * & RB TSTD10 TRY AGAIN * 6 TSTD90 EQU * * R CF A14,RESKB RESET KEYBOARD * f RTN A14 * * END * @ * ,300 WAIT ) P LKM ) P DATA 6 ) RB TSTDEV TRY AGAIN ) TSTD10 EQU *
0x03bac4…03bc58 Dummy {f00=0x0013, f01=0x2008, f02=» + * ! j @ <************************************************************ " I/OACT EQU * " b * & DATA VDU400 ACT. ONLY KB IN OPEN MODE " v . * DATA VDU300 ACT. KB AND DC IN SYSTEM MODE " . * DATA VDU300 ACT. KB AND DC IN MY JOB MODE "
0x03bc58…03bdec Dummy {f00=0x0013, f01=0x0190, f02=»B DWT'S TABLE LENGTH k , P LDKL A2,/8000 MASK TO RESET DWT STATUS l , P LDK A1,MODNOP RETURN CODE: MODEM NOT OP l L PDRM000 EQU * l | P SUK A3,2 l P RF(Z) DRM300 END OF TABLE l P LD A6,DWMTAB,A3 DWT ADDRESS l & P ANS A2,DWTST,A6 RESET DWT STATU
0x03bdec…03bf80 Dummy {f00=0x0013, f01=0x0190, f02=» EQU * l P LDR* A4,A6 DEVICE ADDRESS m P ANK A4,/10 m 0 P RF(NZ) DRM200 OUTPUT DWT m D ( P CM DWTINP,A6 INDICATE I/P INACTIVE m f , P LD A4,DWTTP,A6 RESPONSE TIMER RUNNING? m P RB(Z) DRM000 m P CMR A4 KILL TIMER m P CM DWTTP,A6 CLEAR POI
0x03bf80…03c114 (2, 17) Opaque[0x194]
0x03c114…03c2a8 # DirEnt {nam=»DCBSC «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0268, f03=0x0000}
0x03c114…03c2a8 IdxSect {
0x03c114…03c2a8 f00 = 0x0013 // 0x3c114 @0x0
0x03c114…03c2a8 f01 = 0x0010 // 0x3c116 @0x2
0x03c114…03c2a8 gno = [ // 0x3c118 @0x4
0x03c114…03c2a8 [0x00]: C0x0013.0x1.0
0x03c114…03c2a8 [0x01]: C0x0013.0x2.0
0x03c114…03c2a8 [0x02]: C0x0013.0x3.0
0x03c114…03c2a8 [0x03]: C0x0014.0x0.0
0x03c114…03c2a8 [0x04]: C0x0014.0x1.0
0x03c114…03c2a8 [0x05]: C0x0014.0x2.0
0x03c114…03c2a8 [0x06]: C0x0014.0x3.0
0x03c114…03c2a8 [0x07]: C0x0015.0x0.0
0x03c114…03c2a8 ]
0x03c114…03c2a8 }
0x03c2a8…03c43c Dummy {f00=0x0013, f01=0x0190, f02=» 0 P IDENT DCBSC REL 11.1 82-02-12 870150541110 8 " P =3 CONNECT FOR VDU/PRINTER @ P 81-11-20 f * P =2 DISCONNECT AT OFFLINE, RET. CODE z P 81-04-08 P =1, CHARAC. ADDR. P 81-01-26 D @****************************
0x03c43c…03c5d0 Dummy {f00=0x0013, f01=0x0190, f02=» DCBSC * | D @* MODULE HANDLING THE COMMUNICATION * 4 D @* BETWEEN THE SLU AND CLUSTER CONTROLLER * | @ P* (EMULATION 3270 BSC) * D @
0x03c5d0…03c764 Dummy {f00=0x0013, f01=0x0190, f02=» P P EJECT @ P*********************************************************** @ P* * Z @ P* ROUTINES * @ P*
0x03c764…03c8f8 Dummy {f00=0x0013, f01=0x0190, f02=» * j @ P* DCWRIT WRITE DC BUFFER * @ P* TSTMES TEST MESSAGE * b @ P* SETSTA SET STATUS * @ P* TSTSTA TEST STATUS
0x03c8f8…03ca8c Dummy {f00=0x0013, f01=0x0190, f02=»TUS * r @ P* DCOFLN INDICATE OFFLINE TO CLUSTER * & @ P* TRPA TRANSMIT SHORT READ * j @ P* TRPF TRANSMIT READ MODIFIED * @ P*
0x03ca8c…03cc20 Dummy {f00=0x0013, f01=0x018e, f02=»******************************************************** D @* * @ D @* ENTRY POINTS * D @*
0x03cc20…03cdb4 (2, 18) Dummy {f00=0x0013, f01=0x0190, f02=» P ENTRY TSTSTA TEST STATUS P ENTRY SETSTA SET STATUS & P ENTRY OPEN OPEN F P ENTRY CONCT CONNECT PASSIVE ^ $ P ENTRY SETTIM SET REQUEST TIMER P ENTRY TSTMES TEST MESSAGE. " P ENTRY DCABOR ABORT DC REQUEST $ P ENTRY TRPA TRANSMIT
0x03cdb4…03cf48 Dummy {f00=0x0013, f01=0x0190, f02=»TATUS x " P ENTRY DCWRIT WRITE DC BUFFER " P ENTRY READW READ DC WITH WAIT 4 " P ENTRY RDSTAT READ STATISTICS Z P B =************************************************************* B =*
0x03cf48…03d0dc Dummy {f00=0x0013, f01=0x0190, f02=» * Z B =************************************************************* V " P EXTRN GETBUF GET BUFFER (PAD) ^ & P EXTRN RELBUF RELEASE BUFFER (PAD) 2 P EXTRN PAID STORE AID-CODE IN DC BUFFER (PAD) . P EXTRN SCRINF GET SCREEN INFORMATION
0x03d0dc…03d270 Dummy {f00=0x0013, f01=0x0190, f02=»INHIBIT LAMP OFF (KEYB) 0 P EXTRN DISMOD DISPLAY MODIFIED FIELDS (VDU) ( P EXTRN UNPACK UNPACK DC BUFFER (PAD) T & P EXTRN ERROR INDICATE ERROR (KEYB) . P EXTRN RESKB RESET KEYBOARD BUFFER (KEYB) ( P EXTRN LMP3OF SYSTEM AVAIL. LAMP OFF ( P
0x03d270…03d404 Dummy {f00=0x0013, f01=0x0190, f02=» * > P* CONDITIONAL ASSEMBLY PARAMETERS * 6 > P* * x > P********************************************************* & PX:C EQU 0 OF
0x03d404…03d598 Dummy {f00=0x0013, f01=0x0190, f02=»MEOUT IN 100 MS z PREQTIM EQU X:E * PX:L EQU 1000 MAX BUFFER SIZE IN WORDS . PBUFFL EQU X:L " PX:O EQU 0 TEST INCLUDED IF:=1 r PTEST EQU X:O P EJECT D ?*************************************************************** D ?*
0x03d598…03d72c Dummy {f00=0x0013, f01=0x0190, f02=» * t D ?*************************************************************** , t * | $ * EQUATES FOR ECB HANDLING * ECBBA EQU 2 BUFFER ADDRESS ECBRL EQU 4 REQUESTED LENGTH ECBEL EQU
0x03d72c…03d8c0 Dummy {f00=0x0013, f01=0x0190, f02=» P* RELATIVE POS. IN ECBBLK P* & PDC EQU 4 0 P EJECT @ P* N P* RELATIVE ADDRESSES IN X P* TERMINAL WORKBLOCK x P* PWCC EQU 1952 WCC CHAR. ( PKBINH EQU WCC+2 KB INHIBIT INDICATOR 0 PDCLENG EQU KBINH+4 DC READ EFFEC
0x03d8c0…03da54 (2, 19) Dummy {f00=0x0013, f01=0x0190, f02=»SAVE AREA ~ $ PECBDC1 EQU REGI+46 ECB DC LINE 1 & PECBDC2 EQU ECBDC1+2 ECB DC LINE 2 : P* d P* RELATIVE ADDRESSES IN n P* COMMON WORKBLOCK P* PMF1CU EQU 0 SYMBOLIC ADDRESS EJECT @ <************************************
0x03da54…03dbe8 Dummy {f00=0x0013, f01=0x0190, f02=»OUTINE * l @ <* * @ <************************************************************ d * REGISTERS * P* A11= CREDIT WORK AREA P* A13= RESERVED P* 0 ,
0x03dbe8…03dd7c Dummy {f00=0x0013, f01=0x0190, f02=»W READ ONE BUFFER P ANK A1,8 OK? P RF(Z) DCIN10 YES 0 P LDR A8,A12 J " P CF A14,RELBUF RELEASE BUFFER ^ P RF DCIN15 PDCIN10 EQU * P LD A1,ECBEL,A8 " P ST A1,DCLENG,A11 SAVE LENGTH P ST A12,BUFPNT,A11 $ P CF A1
0x03dd7c…03df10 Dummy {f00=0x0013, f01=0x0190, f02=» ANK A1,1 KEYBOARD TOTALLY INHIBIT? P RF(Z) DCIN20 NO , , P ANK A2,/E KEYBOARD NOT TOTALLY INHIBIT D P LD A1,WCC,A11 t P ANK A1,2 RESTORE KEYBOARD? P RF(Z) DCIN30 NO PDCIN20 EQU * ( P CF A14,LMP4OF TUR OFF INHIBIT LAMP P A
0x03df10…03e0a4 Dummy {f00=0x0013, f01=0x0190, f02=» A14 P EJECT B P************************************************************** B P* * ` P* OPEN OPEN B P* * B P********
0x03e0a4…03e238 Dummy {f00=0x0013, f01=0x0190, f02=» x P* A13= RESERVED P* B P************************************************************** * POPEN EQU * p P ADKL A14,4 ADJUST STACK & P LD A8,ECBDC1,A11 GET ECB ADDRESS P LDK A4,0 RESET INDICATOR P LD A3,6,A13 GET BASE
0x03e238…03e3cc Dummy {f00=0x0013, f01=0x0190, f02=» P LD A1,ECBRC,A8 P RF(N) OPEN20 P IFT NBRLIN=2 2 $ P LDR A4,A4 ANOTHER LINE TO OPEN H P RF(NZ) OPEN20 NO p P LD A8,ECBDC2,A11 GET LINE 2 P LDK A4,1 P RB OPEN10 P XIF POPEN20 EQU * & P ABR* A14 RETURN WITH
0x03e3cc…03e560 Dummy {f00=0x0013, f01=0x0190, f02=» * l P* CONCT CONNECT PASSIVE > P* * > > P********************************************************* P* REGISTERS P* P* A8= DC ECB P* A11= CREDIT WORK A
0x03e560…03e6f4 (2, 20) Dummy {f00=0x0014, f01=0x0190, f02=»UF GET BUFFER P LD A8,ECBDC1,A11 GET LINE 1 P LDK A4,0 RESET INDICATOR : PCONC10 EQU * P ST A12,ECBBA,A8 p P LDR* A1,A11 GET TASKID P ANK A1,/FF ( P SC A1,+1,A12 SAVE ADDRESS IN BUFFER P LDK A1,2 LENGTH P ST A1,E
0x03e6f4…03e888 Dummy {f00=0x0014, f01=0x0190, f02=» LCR A1,A11 FIRST CH IN TASKID =3 P CCK A1,'VV' VDU? =3 * P RF(E) CONC15 YES! =3 F * P LDKL A7,/1A7 CONN PAS FOR PRINTER =3 d PCONC15 EQU * . =3 P LKM P DATA 1 4 P LD A1,REGI,A11 GET TABLE TO SAVE PHYS. ADDRESS P LD A2,E
0x03e888…03ea1c Dummy {f00=0x0014, f01=0x0190, f02=») CONC20 NO P LDK A4,1 NO MORE P LD A8,ECBDC2,A11 LINE 2 . P RB CONC10 N PCONC20 EQU * ` P XIF t P LDR A8,A12 " P CF A14,RELBUF RELEASE BUFFER P RTN A14 P EJECT < P************************************************
0x03ea1c…03ebb0 Dummy {f00=0x0014, f01=0x0190, f02=» $ P LD A8,ECBDC1,A11 GET DC ECB =2 P IFT NBRLIN=2 . =2 0 $ P LD A1,MAIN,A11 IS IT LINE 2? =2 J 4 P RF(Z) DCOF10 NO, KEEP ALREDAY LOADED LINE 1 =2 r ( P LD A8,ECBDC2,A11 GET ECB LINE 2 =2 PDCOF10 EQU * . =2 P XIF . =2 P LDK A
0x03ebb0…03ed44 Dummy {f00=0x0014, f01=0x0190, f02=»*************************** j P* $ P* SETTIM SET REQUEST TIMEOUT . P* R F P***************************************************************** P* REGISTERS P* P* F P**********************************************
0x03ed44…03eed8 Dummy {f00=0x0014, f01=0x0190, f02=»TIMEOUT VALUE | PSETT10 EQU * P ST A1,ECBCW1,A8 * P LDK A7,/B9 SET TIMEOUT B P LKM b P DATA 1 n P IFT NBRLIN=2 ~ P LDR A4,A4 MORE TO TIME? P RF(NZ) SETT20 NO P LD A8,ECBDC2,A11 GET LINE 2 P LDK A4,1 NO MORE
0x03eed8…03f06c Dummy {f00=0x0014, f01=0x0190, f02=»******* ^ > P* * P* READW RECEIVE R > P* * j > P********************************************************* P* REGISTERS P*
0x03f06c…03f200 Dummy {f00=0x0014, f01=0x0190, f02=»*************************************** ~ PREADW EQU * 0 P LD A8,ECBDC1,A11 LINE 1 D P IFT NBRLIN=2 d P LD A1,MAIN,A11 MORE LINES z P RF(Z) REDW10 NO P LD A8,ECBDC2,A11 LINE 2 PREDW10 EQU * P XIF $ P LDKL A1,BUFFL+BUFFL
0x03f200…03f394 (2, 21) Dummy {f00=0x0014, f01=0x0190, f02=»,A8 P ANK A1,/5B OK? P RF(Z) REDW20 YES $ P CF A14,CHKSTA CHECK STATUS > P LDK A1,8 INDICATE ERROR b P RF REDW30 PREDW20 EQU * P LDK A1,2 PREDW30 EQU * P RTN A14 P EJECT > P****************************
0x03f394…03f528 Dummy {f00=0x0014, f01=0x018e, f02=» * > P********************************************************* 8 P* REGISTERS z P* 0 P* A1= AT ENTRY CHAIN INDICATOR, RETURN CODE P* A8= DC ECB P* A9= DC BUFFER LENGTH P* A11= CRE
0x03f528…03f6bc Dummy {f00=0x0014, f01=0x0190, f02=» P LD A8,ECBDC1,A11 LINE P IFT NBRLIN=2 " P LD A1,MAIN,A11 LINE 2? 8 P RF(Z) DCWR10 NO X P LD A8,ECBDC2,A11 LINE 2 p PDCWR10 EQU * P XIF , P LDK A2,2 KEYBOARD INHIBIT BUT RESETABLE P ORS A2,KBINH,A11 P LDK A7,/86 WR
0x03f6bc…03f850 Dummy {f00=0x0014, f01=0x0190, f02=» v P ANK A1,/5B ! P RF(Z) DCWR90 NO ! P CF A14,ERROR ! 4 " P CF A14,CHKSTA CHECK DC STATUS ! J P LD A1,KBINH,A11 ! p $ P ANK A1,/D RESET KEYBOARD PARTLY ! P ST A1,KBINH,A11 ! $ P CF A14,LMP4OF INHIBIT LAMP OFF ! " P CF A14,RESKB RESET KB B
0x03f850…03f9e4 Dummy {f00=0x0014, f01=0x0190, f02=»*************** ! f > 9* * " > 9* TSTMES TEST IF ANY MESSAGE, NO WAIT * " Z > 9* * " > 9******************************************
0x03f9e4…03fb78 Dummy {f00=0x0014, f01=0x018e, f02=» TO ECB AREA " * # > 9********************************************************* # TSTMES EQU * # ` P LD A8,ECBDC1,A11 LINE 1 # t P IFT NBRLIN=2 # P LD A1,MAIN,A11 LINE 2 # P RF(Z) TSTM10 NO # P LD A8,ECBDC2,A11 LINE 2 # PTSTM10 E
0x03fb78…03fd0c Dummy {f00=0x0014, f01=0x0190, f02=» DATA 1 $ RTN A14 $ EJECT $ $ B =************************************************************* $ 2 B =* * $ x B =* SETSTA SET STATUS * $ B =*
0x03fd0c…03fea0 Dummy {f00=0x0014, f01=0x0190, f02=»* REGISTERS $ * % P* A1= AT ENTRY STATUS % * A8= DC ECB % < * A11= RESERVED % P * A13= ADDRESS TO ECB AREA % h * % @ <************************************************************ % SETSTA EQU * % P LD A8,ECBDC1,A11 % P I
0x03fea0…040034 (2, 22) Dummy {f00=0x0014, f01=0x0190, f02=» % P ST A1,ECBCW1,A8 & P LKM & P DATA 1 & , RTN A14 & < EJECT & L : 6****************************************************** & Z : 6* * & : 6* TSTSTA TEST STATUS
0x040034…0401c8 Dummy {f00=0x0014, f01=0x0190, f02=»* REGISTERS & * ' P* A1= RETURN CODE ' * A8= DC ECB ' 8 * A11= RESERVED ' L * A13= ADDRESS TO ECB AREA ' d * ' : 5***************************************************** ' TSTSTA EQU * ' P LD A8,ECBDC1,A11 LINE 1 ' P IFT N
0x0401c8…04035c Dummy {f00=0x0014, f01=0x0190, f02=» CM ECBCW1,A8 INDICATE TEST STATUS ' P LDK A7,0 ( * LKM ( < DATA 1 ( H P LD A1,ECBCW1,A8 ( X RTN A14 ( p P EJECT ( J P********************************************************************* ( P* ( P* RDSTAT READ STATISTICS ( P*
0x04035c…0404f0 Dummy {f00=0x0014, f01=0x0190, f02=»******************************************************************* ( PRDSTAT EQU * ) L P IFT TEST=1 ) ` P LD A8,ECBDC1,A11 ) t P IFT NBRLIN=2 ) " P LD A1,MAIN,A11 THE OTHER LINE ) P RF(Z) RDST10 NO ) P LD A8,ECBDC2,A11 ) PRDST10 EQU *
0x0404f0…040684 Dummy {f00=0x0014, f01=0x0190, f02=»ET AFTERWARDS ) | P LDK A7,/AD * P LKM * * P DATA 1 * 6 P RTN A14 * F P XIF * V EJECT * b > :********************************************************** * p > :* * * > :* DCABOR
0x040684…040818 Dummy {f00=0x0014, f01=0x0190, f02=»********************************** * x * REGISTERS + * * + > * A8= DC ECB + H ( #* A11= ADDRESS TO CREDIT WORK AREA + * A13= ADDRESS TO ECB AREA + * + > 9********************************************************* + DCABOR EQU * +
0x040818…0409ac Dummy {f00=0x0014, f01=0x0190, f02=» + x PDCAB10 EQU * , P XIF , LDK A7,0 , ( LKM , : DATA 10 , F P LDR A7,A7 OK? , V ( P RF(NZ) DCAB10 NO,ALREADY COMPLETED , l P CM ECBBLK+DC,A11 , PDCAB10 EQU * , RTN A14 , P EJECT , P* , P* , P* , P* DC R
0x0409ac…040b40 Dummy {f00=0x0014, f01=0x0190, f02=» 2 RESERVED , P* - $ P* 9 REQUEST TIMEOUT - $ $ P* 11 SEQUENCE ERROR - L & P* 12 INCORRECT LENGTH - t P* 13 RESERVED - ( P* 14 TRANSMISSION ERROR - " P* 15 NO CONNECTI
0x040b40…040cd4 (2, 23) Dummy {f00=0x0014, f01=0x0190, f02=» * - | : P* CHKSTA CHECK DC STATUS * . * : P* * . h : P****************************************************** . P* REGISTERS . P* . . P* A1=
0x040cd4…040e68 Dummy {f00=0x0014, f01=0x0190, f02=»***************************** . v PCHKSTA EQU * / & P CF A14,TSTSTA TEST STATUS / : P ANKL A1,/2211 LINE OK? / P XRKL A1,/2211 / | P RF(NZ) CHKS10 NO / P CF A14,LMP3ON SYSTEM AVAIL. / P RF CHKS20 / PCHKS10 EQU * / P CF A14,LMP3OF /
0x040e68…040ffc Dummy {f00=0x0014, f01=0x018e, f02=» * / > P* DCOFLN INDICATE OFFLINE TO CLUSTER * 0 2 > P* * 0 t > P********************************************************* 0 P* REGISTERS 0
0x040ffc…041190 Dummy {f00=0x0014, f01=0x0190, f02=» PDCOFLN EQU * 1 P IFT OFLIN=1 1 P CF A14,DCABOR 1 , P CF A14,DISC DISCONNECT =2 1 B P XIF 1 d P RTN A14 1 p EJECT 1 : 5***************************************************** 1 : 5* * 1 :
0x041190…041324 Dummy {f00=0x0014, f01=0x018e, f02=»******************************************* 1 * REGISTERS 2 4 * 2 H P* A2= AID CODE 2 R P* A11= CREDIT WORK AREA 2 h P* A13= RESERVED 2 * 2 : 5***************************************************** 2 TRPA EQU * 2 & " CF A14,GETBUF
0x041324…0414b8 Dummy {f00=0x0014, f01=0x018e, f02=» " P CF A14,RELBUF RELEASE BUFFER 3 RTN A14 3 * EJECT 3 : : 6****************************************************** 3 H : 6* * 3 : 6* TRPF TRANSMIT MODIFIED READ AT PF-KEY * 3 : 6*
0x0414b8…04164c Dummy {f00=0x0014, f01=0x0190, f02=» * 4 P* A2= AID CODE 4 P* A4= REL CURSOR POS. 4 $ P* A5= RESERVED 4 B P* A6= RESERVED 4 X P* A11= CREDIT WORK AREA 4 n P* A13= RESERVED 4 * 4 : 6****************************************************** 4 TRPF EQU * 4 & " CF A14,
0x04164c…0417e0 Dummy {f00=0x0014, f01=0x40ac, f02=»ESS 4 z 2 - CF A14,BUFADR STORE CURSOR ADDRESS IN BUFFER 5 > P CF A14,PACK PACK BUFFER WITH MODIFIED FIELDS AND TRANSMIT 5 B RTN A14 5 5 END 5 @ 5 : 6****************************************************** 4 TRPF EQU * 4 & " CF A14,
0x0417e0…041974 (2, 24) Dummy {f00=0x0015, f01=0x2008, f02=» 6 FIED FIELDS v CF A14,DCWRTE TRANSMIT RTN A14 < L END T@ `RANSMIT BUFFER P & ! LD A1,SNAMOD,TCABAS GET SNA MODE z CWK A1,2 SYSTEM MODE? RF(E) TRPF10 YES * % CF A14,SCRINF GET SCREEN INFORMATION
0x041974…041b08 Dummy {f00=0x0015, f01=0x0190, f02=» ADR A4,A3 GET BUFFER ADDESS " P ECR A1,A2 ODD OR EVEN ADDRESS $ P SCR A1,A4 J P SRL A1,8 P SC A1,+1,A4 n & P SUR A4,A3 RESTITUTE START POINTER P ADK A3,2 P CW A3,DCBUCU,A7 $ P RF(L) IHI300 NO BUFFER OVERFLOW , P SUK A3,2
0x041b08…041c9c Dummy {f00=0x0015, f01=0x0190, f02=» EQU * P ST A3,DWTSAV,A7 P ST A4,DWTSAV+2,A7 & P ST A5,DWTSAV+4,A7 @ P ABL RETURN Z P EJECT n P* | . P* STATUS INTERRUPT HANDLER,CHLC RECEIVER P* , P* A2 INPUT REGISTER FOR STATUS INFO P* PSSTIN0 EQU *
0x041c9c…041e30 Dummy {f00=0x0015, f01=0x0190, f02=»QU * P HLT $ P LD A1,DWTINP,A7 INPUT ACTIVE ? , P ABL(Z) TDISP NO, INTERRUPTS NOT ALLOWED B P IFF LOGG=0 r P CF A5,LOGSST P XIF $ P LDR A1,A2 SAVE STATUS IN REG A1 , P ANKL A1,SSTMSK ISOLATE SIGNIFICANT BITS P RF(NZ)
0x041e30…041fc4 Dummy {f00=0x0015, f01=0x0190, f02=»DDRESS AGAIN =2 | P SLL A1,1 IN RIGHT PLACE =2 ( P OR A1,RERA1 ADD RER A1,0 OP.CODE =2 < " P ST A1,SSTRER PUT IN OBJECT =2 h 2 PSSTRER DATA 0 READ RESIDUAL LENGTH IN WORDS =2 P ST A1,SSTRER SAVE A1 =MMU $ P ANKL A1,/FFF BITS 4-15 ONLY =2
0x041fc4…042158 Dummy {f00=0x0015, f01=0x0190, f02=» SUR A3,A1 COMPUTE ACTUAL LENGTH =2 P XIF =2 , P ANKL A2,/0F00 > P RF(Z) SSTI07 T " P SUK A3,1 1 CHAR IN LAST WORD j PSSTI07 EQU * P LDK A2,2 P RF SST22 P* $ P* HERE TO HANDLE RECEIVER STATUS P* PSST1
0x042158…0422ec Dummy {f00=0x0015, f01=0x0190, f02=»* P LDK A2,0 P RF SST22 YES,INDICATE IT PSST20 EQU * > P LDR A1,A2 R P ANK A1,SSTTHR d P RF(NZ) SST21 z P* 2 P* CRC ERROR (RESTART INPUT) & BUFFER OVERFLOW P* * P ST A2,DWTSAV,A7 SAVE HARDWARE STATUS P
0x0422ec…042480 Dummy {f00=0x0015, f01=0x0190, f02=»7 P RF(Z) SST23 P LDKL A1,-2 P ST* A1,DWTTP,A7 2 P RF SST23 J P* P* THROUGPUT ERROR f P* PSST21 LDK A2,1 PSST22 EQU * P LD A1,DWTTP,A7 P RF(Z) SST23 P CMR A1 P CM DWTTP,A7 PSST2
0x042480…042614 (2, 25) Opaque[0x194]
0x042614…0427a8 # DirEnt {nam=»DATBSC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02a8, f03=0x0000}
0x042614…0427a8 IdxSect {
0x042614…0427a8 f00 = 0x0015 // 0x42614 @0x0
0x042614…0427a8 f01 = 0x0006 // 0x42616 @0x2
0x042614…0427a8 gno = [ // 0x42618 @0x4
0x042614…0427a8 [0x00]: C0x0015.0x1.0
0x042614…0427a8 [0x01]: C0x0015.0x2.0
0x042614…0427a8 [0x02]: C0x0015.0x3.0
0x042614…0427a8 ]
0x042614…0427a8 }
0x0427a8…04293c Dummy {f00=0x0015, f01=0x0190, f02=» 0 P IDENT DATBSC REL 11.1 82-02-12 870150541110 P 8 P =1 SYNTAX ERROR @ P 81-04-08 Z P n L P************************************************************************ v L P*
0x04293c…042ad0 Dummy {f00=0x0015, f01=0x0190, f02=»LSO CONTAINS THE * f L P* CREDIT CODED START-UP ROUTINES. * " L P* * r L P**********************************************************************
0x042ad0…042c64 Dummy {f00=0x0015, f01=0x0190, f02=»H ONE DC-LINE t P* 8 P**************************************************** P TERM K1 P* l P CWB CB1 v P TWB TB1 P* P START KBVGO P* & PDSKBAN DSET FC=X'20',DEV=KA,BUFL=2 & PDSKBSD DSET FC=X'40',DEV=KI,BUFL
0x042c64…042df8 Dummy {f00=0x0015, f01=0x0190, f02=»X'61' P EJECT 8 P*************************************************** P* X . P* KB/VDU TERMINAL WITH TWO DC-LINES b P* 8 P*************************************************** P* TERM K2 P* P* CWB CB1 P
0x042df8…042f8c Dummy {f00=0x0015, f01=0x0190, f02=»L=2 p ( P*DSVDU DSET FC=X'42',DEV=DY,BUFL=162 P*DSICR DSET FC=X'50',DEV=II 8 P*DSICW DSET FC=X'51',DEV=IO P*DSDC1 DSET FC=X'61' P*DSDC2 DSET FC=X'62' P EJECT 8 P**************************************************** P*
0x042f8c…043120 Dummy {f00=0x0015, f01=0x018e, f02=» P* P CWB CB1 P TWB TB1 P* . P START PRTGO 8 P* L @ PPDSPRT DSET FC=X'30',BUFL=134 GENERAL DATA SET FOR PRINTERS V PPDSICR DSET FC=X'50',DEV=II PPDSICW DSET FC=X'51',DEV=IO PPDSDC1 DSET FC=X'61' P EJECT
0x043120…0432b4 (2, 26) Dummy {f00=0x0015, f01=0x0190, f02=» : P****************************************************** P* TERM P2 B P* T P* CWB CB1 ^ P* TWB TB1 p P* P* START PRTGO P* @ P*PDSPRT DSET FC=X'30',BUFL=134 GENERAL DATA SET FOR PRINTERS P*PDSICR DSET FC=X'50',DE
0x0432b4…043448 Dummy {f00=0x0015, f01=0x018e, f02=»********************************************************** L P* * B L P* WORK AREA FOR KB/VDU TASKS * L P*
0x043448…0435dc Dummy {f00=0x0015, f01=0x0190, f02=» P* & PTCT01 BIN 4X'0' TID AND STACKBASE ( PBVDU STRG 3840X'0' VDU SCREEN BUFFER 8 * PLINFLG STRG 48X'0' INTERNAL LINE FLAGS d ( PPCURS STRG 4X'0' REL. CURSOR ADDRESS . PATTRIB STRG 4X'0' LAST ATTRIBUTE CHARACTER , PCURATT STRG 4X'0' REL. A
0x0435dc…043770 Dummy {f00=0x0015, f01=0x0190, f02=» STRG 4X'0' DC READ EFFECTIVE LENGTH * PINTATT STRG 4X'0' INTENSITY ATTRIBUTE , " POFFFLG STRG 4X'0' OFFLINE FLAG Z ( PPRTID STRG 4X'0' TASKID FOR HARDCOPY PBRAGE STRG 152X'0' LEKSAND P* " P* FORMATION OF BRAGE - LEKSAND P* $ P
0x043770…043904 Dummy {f00=0x0015, f01=0x0190, f02=»X KEY LOCK STATUS 0 P* ECBBLK 20X ECB BLOCK FOR MULTIPLE WAIT 2 P* RDMORE 4X NEXT ADDRESS OF READ MORE KEYS P $ P* CURPOS 4X CURSOR POSITION " P* BUFPNT 4X BUFFER POINTER P* REGI 4X SAVE AREA P* STACK1 28X SA
0x043904…043a98 Dummy {f00=0x0015, f01=0x018e, f02=»B TABLE ~ P* ECBKB 4X ECB KB P* ECBPRT 4X ECB PRINTER . & P* ECBSD 4X ECB SIGNAL DISPLAY R P* ECBVDU 4X ECB VDU | & P* ECBICR 4X ECB INTERTASK READ ( P* ECBICW 4X ECB INTERTASK WRITE " P* ECBDC1 4X ECB DC
0x043a98…043c2c Dummy {f00=0x0015, f01=0x0190, f02=» L F P* * F P* COMMON WORK AREA FOR ALL TASKS * R F P* * F P**********************************
0x043c2c…043dc0 Dummy {f00=0x0015, f01=0x018e, f02=»NT NOT OPERABLE ' IDENT KEY TEXT ~ 2 P***STATXT STRG 15'DTE ADDRESS ' STAT LAYOUT , " P***SA STRG 15'STAT OVERFLOW ' b " P***SB STRG 15'PRO REC BLOCKS ' " P***SC STRG 15'PRO REC REJ-BSY' " P***SD STRG 15'PRO REC REJ-OVF' " P***SE STRG 15'
0x043dc0…043f54 (2, 27) Dummy {f00=0x0015, f01=0x0190, f02=» " P***SI STRG 15'PRO POLL-TIMOUT' " P***SJ STRG 15'DTE REC ERROR ' * 2 P***SK STRG 30'DTE SND ERROR DCE ERROR ' P . PTSKTAB STRG 256X'0' TASK TABLE WITH STATUS " PENDTAB STRG 4X'FFFF' END MARK P PDIV P* 2 P* ENTRY POI
0x043f54…0440e8 Dummy {f00=0x0015, f01=0x0190, f02=»T TASK IDENTITY 4 P** EXT OFFLNE CREDIT APPLICATION START ADDR =1 P EJECT P , P**************************************** ^ P* " P* START ADDRESS FOR VDU TASK P* , P**************************************** P PKBVGO
0x0440e8…04427c Dummy {f00=0x0015, f01=0x412e, f02=»BM-3270 EMULATION | P EJECT 2 P********************************************* ( P* ^ ( P* START ADDRESS FOR PRINTER TASK h P* 2 P********************************************* P PPRTGO P CALL GETTID,TCT01 P CAL
0x04427c…044410 Dummy {f00=0x0015, f01=0x2008, f02=» * END @ * $ * . GP1 BLK 8 * H GPAREA STRG 2000 R EJECT j PDIV x * * ENTRY KBGO ENTRY VDUGO ENTRY GTPGO * EXT VDUKB EXT VDTASK E
0x044410…0445a4 Dummy {f00=0x0015, f01=0x0190, f02=»G INITIATED ! r " P* BIT 15 =0 LINE CLOSED " " P* BIT 15 =1 LINE OPENED " : P* " ` P****************** " j P* CHLC RECEIVER STATUS " P****************** " P* " 0 P* STATUS :/00 MODEM READY,CARRIER DETECTED " $ P* :/0
0x0445a4…044738 Dummy {f00=0x0015, f01=0x0190, f02=»,ABORT DETECTED " v P* # P******************* # " P* # > P EJECT # H P* # V P* DEVICE WORK TABLE # ` P* # | P IFF LINE01=0 # P* # ( P* DWT FOR LINE 01,OUTPUT AND CONTROL # P* # PDW8202 EQU * TABLE ENTRY # P DATA DAMU01
0x044738…0448cc Dummy {f00=0x0015, f01=0x018e, f02=»O ADDRESS BLOCK # z P DATA 0 TTAB ADDRESS $ P DATA 0 W/A INDICATOR $ 4 P DATA 0 TASK QUEUE $ R P IFT MMUPAG=1 $ l P DATA 0 ADDRESS OF USER ECB $ & P DATA MECB02 ADDRESS OF DRIVER ECB $ P XIF $ P IFT MLIN01=1 $ P DATA 0 TIMER POINTER
0x0448cc…044a60 Dummy {f00=0x0015, f01=0x0190, f02=» $ v P DATA DW8201 INPUT DWT % P DATA 0 A8 % & P DATA 0 PACT % 8 P DATA 0 PINACT % L P DATA 0 SENDF % b P DATA 0 LNR % x P DATA 0 CPS % P DATA 0 VSS % P DATA 0 VRS % P DATA 0 RETRY % P DATA 0 INPUT INDEX % P DATA 0 OUTPUT
0x044a60…045700 (3, 0) DirGranule ((3, 0)) {
0x044a60…045700 DirEnt {nam=»UPD1A «, typ=» «, f00=0x0000, f01=0x0000, f02=0x02c0, f03=0x0000}
0x044a60…045700 DirEnt {nam=»SYSLDM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02c8, f03=0x0000}
0x044a60…045700 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x0488, f03=0x0000}
0x044a60…045700 }
0x045700…045894 (3, 1) Opaque[0x194]
0x045894…045a28 # DirEnt {nam=»SYSLDM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02c8, f03=0x0000}
0x045894…045a28 IdxSect {
0x045894…045a28 f00 = 0x0016 // 0x45894 @0x0
0x045894…045a28 f01 = 0x0070 // 0x45896 @0x2
0x045894…045a28 gno = [ // 0x45898 @0x4
0x045894…045a28 [0x00]: C0x0016.0x1.0
0x045894…045a28 [0x01]: C0x0016.0x2.0
0x045894…045a28 [0x02]: C0x0016.0x3.0
0x045894…045a28 [0x03]: C0x0017.0x0.0
0x045894…045a28 [0x04]: C0x0017.0x1.0
0x045894…045a28 [0x05]: C0x0017.0x2.0
0x045894…045a28 [0x06]: C0x0017.0x3.0
0x045894…045a28 [0x07]: C0x0018.0x0.0
0x045894…045a28 [0x08]: C0x0018.0x1.0
0x045894…045a28 [0x09]: C0x0018.0x2.0
0x045894…045a28 [0x0a]: C0x0018.0x3.0
0x045894…045a28 [0x0b]: C0x0019.0x0.0
0x045894…045a28 [0x0c]: C0x0019.0x1.0
0x045894…045a28 [0x0d]: C0x0019.0x2.0
0x045894…045a28 [0x0e]: C0x0019.0x3.0
0x045894…045a28 [0x0f]: C0x001a.0x0.0
0x045894…045a28 [0x10]: C0x001a.0x1.0
0x045894…045a28 [0x11]: C0x001a.0x2.0
0x045894…045a28 [0x12]: C0x001a.0x3.0
0x045894…045a28 [0x13]: C0x001b.0x0.0
0x045894…045a28 [0x14]: C0x001b.0x1.0
0x045894…045a28 [0x15]: C0x001b.0x2.0
0x045894…045a28 [0x16]: C0x001b.0x3.0
0x045894…045a28 [0x17]: C0x001c.0x0.0
0x045894…045a28 [0x18]: C0x001c.0x1.0
0x045894…045a28 [0x19]: C0x001c.0x2.0
0x045894…045a28 [0x1a]: C0x001c.0x3.0
0x045894…045a28 [0x1b]: C0x001d.0x0.0
0x045894…045a28 [0x1c]: C0x001d.0x1.0
0x045894…045a28 [0x1d]: C0x001d.0x2.0
0x045894…045a28 [0x1e]: C0x001d.0x3.0
0x045894…045a28 [0x1f]: C0x001e.0x0.0
0x045894…045a28 [0x20]: C0x001e.0x1.0
0x045894…045a28 [0x21]: C0x001e.0x2.0
0x045894…045a28 [0x22]: C0x001e.0x3.0
0x045894…045a28 [0x23]: C0x001f.0x0.0
0x045894…045a28 [0x24]: C0x001f.0x1.0
0x045894…045a28 [0x25]: C0x001f.0x2.0
0x045894…045a28 [0x26]: C0x001f.0x3.0
0x045894…045a28 [0x27]: C0x0020.0x0.0
0x045894…045a28 [0x28]: C0x0020.0x1.0
0x045894…045a28 [0x29]: C0x0020.0x2.0
0x045894…045a28 [0x2a]: C0x0020.0x3.0
0x045894…045a28 [0x2b]: C0x0021.0x0.0
0x045894…045a28 [0x2c]: C0x0021.0x1.0
0x045894…045a28 [0x2d]: C0x0021.0x2.0
0x045894…045a28 [0x2e]: C0x0021.0x3.0
0x045894…045a28 [0x2f]: C0x0022.0x0.0
0x045894…045a28 [0x30]: C0x0022.0x1.0
0x045894…045a28 [0x31]: C0x0022.0x2.0
0x045894…045a28 [0x32]: C0x0022.0x3.0
0x045894…045a28 [0x33]: C0x0023.0x0.0
0x045894…045a28 [0x34]: C0x0023.0x1.0
0x045894…045a28 [0x35]: C0x0023.0x2.0
0x045894…045a28 [0x36]: C0x0023.0x3.0
0x045894…045a28 [0x37]: C0x0024.0x0.0
0x045894…045a28 ]
0x045894…045a28 }
0x045a28…045bbc Dummy {f00=0x0016, f01=0x0190, f02=» 2 P IDENT SYSLDM REL 11.0 81-08-19 870105041100 P : $ P =10,CORRECTION =9 NOT CORRECT B P REL 11.0 81-07-28 j 0 P =9,FOR MONITOR EXTENTS APLREL AND APLLAC * P =9,POINTS AT 1 WORD TO HIGH ADDRESS * P =8,BUILD REAL-TIME INTERRUPT
0x045bbc…045d50 Dummy {f00=0x0016, f01=0x0190, f02=»RUPT TABLE x P REL 11.0 81-02-16 2 P =6,INIT UNUSED MMU ENTRIES,AND INIT ACBSTA . ( P AND ACBREL FOR MONITOR EXTENTS d P REL 11.0 81-01-26 . P =5,CHANGES IN CONDITIONAL ASSEMBLY WHEN ( P BUILDING COMMON DEVICE TABLES
0x045d50…045ee4 Dummy {f00=0x0016, f01=0x0190, f02=» PRR 11.0 80-12-03 0 P =3,APPLICATION CONTROL BLOCK IS EXTENDED P WITH 1 WORD R P PRR 11.0 80-12-01 l , P =2,IF NO S-BLOCK IN CONF.DATA,PROCESS , P EVEN NEXT CREDIT APPL. CONVERT A $ P BINARY VALUE >99 TO ASCII
0x045ee4…046078 Dummy {f00=0x0016, f01=0x0190, f02=» WHEN BUILDING r P USER TASK TABLES P PRR 11.0 80-11-20 4 8 P =1,IF NO D-BLOCK IN CONF. DATA, SKIP DCT-CREATION T P PRR 11.0 80-11-19 P ENTRY SYSLDM P* 0 P* EXTERNALS DEFINED IN SYSTEM CONTROL TABLE P*
0x046078…04620c Dummy {f00=0x0016, f01=0x0190, f02=»XTRN SCTCDT COMMON DEVICE TABLE ADDRESS $ P EXTRN SCTDCT DATA COMMUNICATION 0 . P EXTRN SCTDMI DM: INDEX BUFFER RECORD SIZE X ( P EXTRN SCTDMT DATA MANAGEMENT TASKS " P EXTRN SCTEFA END OF FREE AREA , P EXTRN SCTFWL FM: FILE WORK TABLE LENGTH
0x04620c…0463a0 Dummy {f00=0x0016, f01=0x018e, f02=»NT&SEGMENT TABLE v . P EXTRN SCTNFT DM/FM: NUMBER OF FILES/TASK ( P EXTRN SCTNOF DM/FM: NUMBER OF FILES J " P EXTRN SCTNOP NUMBER OF PAGES v 6 P EXTRN SCTNOS NUMBER OF SEGMENTS/TASK (BASIC ONLY) P EXTRN SCTOPT SYSTEM OPTIONS $ P EXTRN SCTPAG
0x0463a0…046534 (3, 2) Dummy {f00=0x0016, f01=0x018e, f02=» n $ P EXTRN SCTTCT TASK CONTROL TABLE P EJECT 0 P* > " P* EXTERNALS DEFINED IN MONTAB H P* n * P EXTRN FREQUE FREE PAGES QUEUE ANCHOR x " P EXTRN INTLT1 LOCAL CONNECTION $ P EXTRN INTRT1 REMOTE CONNECTION " P EXTRN INTVU1 VIDEO
0x046534…0466c8 Dummy {f00=0x0016, f01=0x0190, f02=» h ( P EXTRN INTSL1 SYNCHRONOUS CONNECTION P* 4 P* MISCELLANOEUS EXTERNALS > P* ` ( P EXTRN REL RELOCATION BASE IN SYSINI j , P EXTRN SCLASS SPECIAL DEVICE CLASS TABLE . P EXTRN TCLASS TERMINAL DEVICE CLASS TABLE " P EXTRN SYSLOD ST
0x0466c8…04685c Dummy {f00=0x0016, f01=0x0190, f02=»OUTINES P* P EXTRN ERROR ERROR HANDLING $ P EXTRN MOVE MOVE AREAS IN MEMORY > P EXTRN MULT MULTIPLY f ( P EXTRN PSW STORE PROGRAM STATUS WORD $ P EXTRN CMPADR COMPARE ADDRESSES . P EXTRN CONVRT CONVERT FROM ASCII TO BINARY * P
0x04685c…0469f0 Dummy {f00=0x0016, f01=0x0190, f02=»RN INBIMA INIT MMU ALLOCATION BIT MAP . P EXTRN PUSH SAVE REGISTER A1-A14 ON STACK . 2 P EXTRN POB RESTORE REGISTER A1-A14 FROM STACK ` 8 P EXTRN GETAPP GET NEXT APPLICATION OF SPECIFIED TYPE P EJECT P* P* TTAB DISPLACEMENTS P
0x0469f0…046b84 Dummy {f00=0x0016, f01=0x0190, f02=»XTRN TTB:CB CURRENT SEGMENT BASE POINTER ( P EXTRN TTB:SP SEGMENT TABLE POINTER 0 ( P EXTRN TTB:SB SEGMENT BLOCK POINTER P EXTRN TTB:ID TASK ID P EXTRN TTB:ST STATUS " P EXTRN TTB:PP PENDING POINTER & P EXTRN TTB:PW PROGRAM STATUS WOR
0x046b84…046d18 Dummy {f00=0x0016, f01=0x018e, f02=»XTRN DWTCHP CHANNEL PARAMETER-1 P EXTRN DWTST STATUS ( P EXTRN DWTECB ECB ADDRESS D P EXTRN DWTOR ORDER f P EXTRN DWTADR ADDRESS BLOCK P EXTRN DWTTAB TTAB ADDRESS * P EXTRN DWTWAT WAIT/ACTIVATE INDICATOR P EXTRN DWTTQ TERMINA
0x046d18…046eac Dummy {f00=0x0016, f01=0x0190, f02=» P EXTRN DWTDEV DEVICE STATUS P EXTRN DWTECH ECHO DEVICE ( P EXTRN DWTSQ START OF QUEUE J P EJECT n P | P , P*************************************** , P* CONDITIONAL ASSEMBLY * , P****************************
0x046eac…047040 Dummy {f00=0x0016, f01=0x0190, f02=»LE WORK BLOCK HANDLING x * PEDM EQU 0 1 - EXTENDED DATA MANAGEMENT PX:A EQU 1 L PX:B EQU 1 ^ PX:C EQU 1 p PX:D EQU 1 PX:E EQU 1 PX:F EQU 1 PX:G EQU 1 PX:H EQU 1 PX:I EQU 1 PX:J EQU 1 PX:K EQU
0x047040…0471d4 (3, 3) Dummy {f00=0x0016, f01=0x0190, f02=» PFT80 EQU X:E PPLCL EQU X:F PPLCR EQU X:G , PVIDEO EQU X:H @ PTEDVCL EQU X:I V PSPDVCL EQU X:J l PNOEXMB EQU X:K PFM EQU X:L PDC EQU X:M P EJECT P* * P* COMMON DISPLACEMENTS AND CONSTANTS P*
0x0471d4…047368 Dummy {f00=0x0016, f01=0x0190, f02=»ER r ( PBUFSIZ EQU 14 TEMPORARY BUFFER SIZE . PCONLEN EQU 0 LENGTH OF CONFIGURATION DATA 6 , PCONSTA EQU 2 START OF CONFIGURATION DATA h ( PDATEND EQU 34 END OF DDIV PROTOTYPE : PFSTADR EQU 20 1ST FREE ADDRESS WHEN ALLOCATING BUFFER * PFSTPAG
0x047368…0474fc Dummy {f00=0x0016, f01=0x0190, f02=»RT ` ( PMAPLEN EQU 30 LENGTH OF AREA TO MAP * PMMFROM EQU 36 2ND MMU TABLE WORK AREA 6 ( PMMTO EQU 38 1:ST MMU TABLE WORK AREA d $ PM:REL EQU 16 RELOCATION CONSTANT , PSYSBUF EQU 28 START OF TEMPORARY BUFFER 2 PSWBFSA EQU 4 SWB-FILE START ADDR
0x0474fc…047690 Dummy {f00=0x0016, f01=0x0190, f02=»N SAVE AREA 1 ~ $ PCOM02 EQU 42 COMMON SAVE AREA 2 $ PCOM03 EQU 44 COMMON SAVE AREA 3 > * PTOTSGM EQU 46 TOTAL NUMBER OF SEGMENTS f , PSWBFLG EQU 48 SWAPPPABLE WORK BLOCK FLAG $ PCOM04 EQU 50 COMMON SAVE AREA 4 ( PDCBLK EQU 54 START OF DC CON
0x047690…047824 Dummy {f00=0x0016, f01=0x0190, f02=»QU 2 ADDRESS TO SCLASS & PCUTENT EQU 4 FIRST USER TASK ENTRY ( PFWTSIZ EQU 6 FWT AREA SIZE IN WORDS H , PAPCTAB EQU 8 CURRENT APPL CONTROL BLOCK t * PSFASAV EQU 10 SAVE START OF FREE AREA * PNBRTSK EQU 12 NUMBER OF TASKS IN CLASS & PTASKID E
0x047824…0479b8 Dummy {f00=0x0016, f01=0x0190, f02=»QU 22 TEMP INTTERRUPT TABLE $ PFWTSTA EQU 24 START OF FWT AREA $ , PLIMIT EQU 26 CURRENT END OF SYSTEM AREA L ( PNBRCOM EQU 28 NUMBER OF COMMON TDC:S | PCLASID EQU 30 CLASS ID " PCONTYP EQU 32 CONNECTION TYPE ( PLCNBR EQU 34 LINE CONNECTION
0x0479b8…047b4c Dummy {f00=0x0016, f01=0x0190, f02=»K2 EQU 44 WORK AREA 2 PWRK3 EQU 46 WORK AREA 3 PWRK4 EQU 48 WORK AREA 4 > " PBRDTAB EQU 50 BOARD CONF TABLE ^ , PLCDSTA EQU 52 CONFIGURATION DATA POINTER 2 PNBRSDC EQU 54 NUMBER OF SPECIAL DEVICE CLASSES 4 PNBRTDC EQU 56 NUMBER OF TERMIN
0x047b4c…047ce0 Dummy {f00=0x0016, f01=0x0190, f02=»R t * PNUMDTE EQU 64 NUMBER OF DTE:S DEFINED & PDTENAM EQU 66 SDTE IDENTIFICATION 8 $ PDTETYP EQU 68 TYPE OF CONNECTION b 4 PNASTRT EQU 70 START OF NETW. ADDR. IN CONF. DATA * PNALNG EQU 72 LENGTH OF NETWORK ADDRESS , PDTENSA EQU 74 NO OF SUBA
0x047ce0…047e74 (3, 4) Dummy {f00=0x0017, f01=0x0190, f02=»QU APCTAB CURRENT APPLICATION CONTROL BLOCK 4 PSCBTAB EQU APCTAB CURRENT SEGMENT CONTROL BLOCK 4 2 PEXCTAB EQU SCBTAB CURRENT EXTENT CONTROL BLOCK l , PNBRSWB EQU FWTSIZ NUMBER OF SWB RECORDS . PSWBBLK EQU FWTFLG START OF SWB CONF. DATA * PSWBN
0x047e74…048008 Dummy {f00=0x0017, f01=0x0190, f02=» TASKID NUMBER OF SWB:S P EJECT P* . 0 P* DISPLACEMENT IN APPLICATION CONTROL TABLE 8 P* l 0 PAPLREL EQU 18 APPLICATION RELOCATION BASE =6 v , PAPLIOE EQU 0 APPLICATION RESTART ADDRESS * PAPLLAC EQU 14 APPLICATION LOAD ADDRESS & P
0x048008…04819c Dummy {f00=0x0017, f01=0x018e, f02=»LMMP EQU 8 SEGMENT START MMU ENTRY . PAPLSEG EQU 4 PHYSICAL START OF 1ST SEGMENT * . PAPLNPE EQU 6 NUMBER OF PAGE ENTRIES IN MMU " PAPLSWB EQU 2 SWB TABLE ADDRESS , PAPLSTA EQU 16 APPL PROGRAM START ADDRESS " PAPLTYP EQU 8 APPLICATION TYPE 8
0x04819c…048330 Dummy {f00=0x0017, f01=0x0190, f02=» P* P* CONSTANTS P* " * PS:BTAB EQU 40 DISPL. TO S:BTAB ADDRESS , PSWBLEN EQU 4 LENGTH OF SWB Z ( PSWBSEC EQU 6 DISPL. TO SECTOR LENGTH | 0 PUP:REC EQU 6 RECORD LENGTH IN INITIAL S:BTAB PUPNAME EQU 4 PROTOTYPE NAME $ PWBLEN EQ
0x048330…0484c4 Dummy {f00=0x0017, f01=0x0190, f02=» $ P******************************* P , P* TASK DEFINITION BLOCK: 8 PTDBBT EQU 0 1A BLOCK TYPE X ( PTDBNT EQU TDBBT+1 2N NUMBER OF TASKS z , PTDBID EQU TDBNT+2 6A TASK ID START VALUE , PTDBMC EQU TDBID+6 6A MATCHING TASK CLASS $ PTD
0x0484c4…048658 Dummy {f00=0x0017, f01=0x018e, f02=»ERM DEF v $ PTDC EQU 7 TERMINAL DEVICE CLASS PTLC EQU 7 LINE CONNECTION 8 ( PTDBREC EQU TDC+TLC TDB-RECORD LENGTH Z P* * PSDC EQU 7 SPECIAL DEVICE CLASS-RECORD P* P* COMMON DEVICE DEF. BLOCK: P* PCDBBT EQU 0 1A BLO
0x048658…0487ec Dummy {f00=0x0017, f01=0x0190, f02=» & P* USER WORK BLOCK TYPE DEF. BLOCK P* . PUDBBT EQU 0 1A BLOCK TYPE 8 , PUDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES Z P* ( PUDBFST EQU UDBNU+3 FIRST UDB-RECORD PNAMUWB EQU 3 NAME OF UWB " PNUMUBL EQU 3 NUMBER OF BLOCKS . PUD
0x0487ec…048980 Dummy {f00=0x0017, f01=0x018e, f02=»ER OFFSET z & PTYPOFS EQU 7 START OF TYPE RECORD , PNANSA EQU 2 NA-NSA RECORD QUALIFIER POS. < " PNAOFS EQU 3 START OF NA NUMBER l $ PNSAOFS EQU 4 START OF NSA RECORD & PDTEFIX EQU 8 FIX PART OF DTE BLOCK P EJECT P****************
0x048980…048b14 (3, 5) Dummy {f00=0x0017, f01=0x0190, f02=» PLMP2 EQU /200 NOT USED " PLMP3 EQU /100 MEMORY OVERFLOW " , PLMP4 EQU /80 ERROR IN CONFIGURATION DATA H PLMP5 EQU /40 NOT USED x PLMP6 EQU /20 NOT USED PLMP7 EQU /10 NOT USED PLMP8 EQU 8 NOT USED PLMP9 EQU 4 NOT USED
0x048b14…048ca8 Dummy {f00=0x0017, f01=0x0190, f02=» N F P* CALL-FORMAT, PERFORMS: CFR A14,A13 * F P* DATA [REL-ADDRESS] * R F P* * F P**********************************
0x048ca8…048e3c Dummy {f00=0x0017, f01=0x018e, f02=»TAB DISPLACEMENTS P* $ PMXSBL EQU 6 SEGMENT BLOCK LENGTH $ " PMXNOX EQU 6 NUMBER OF EXTENTS L * PMX:NOS EQU 8 NUMBER OF SEGMENT TABLES r , PMX:EBL EQU 6 MONITOR EXTENT BLOCK LENGTH ( PMX:LEV EQU /0031 MONITOR TASK LEVEL & PMX:LEN EQU 4
0x048e3c…048fd0 Dummy {f00=0x0017, f01=0x0190, f02=» Z 2 PMX:NOX EQU MX:DA2+2 NUMBER OF MONITOR EXTENTS ! , PMX:SBL EQU 6 MONITOR EXTENT BLOCK LENGTH ! > . PMX:STA EQU 2 MONITOR EXTENT START ADDRESS ! n P EJECT ! P* ! " P* *********** ! " P* * PAGTAB * ! " P*
0x048fd0…049164 Dummy {f00=0x0017, f01=0x0190, f02=»U 4 PAGE ADDRESS ! & PPAGSB EQU 6 SEGMENT BLOCK ADDRESS " P EJECT " B P* " P & P* ************* " Z & P* * SEGTAB * " & P* ************* " P* " PSEGPB EQU 6 SEGMENT POINTER " " PSE
0x049164…0492f8 Dummy {f00=0x0017, f01=0x0190, f02=»ISCELLANOUES * " z * P* ******************* # P* # F PBUFLEN EQU -4 # P PDEVIND EQU -2 # f PDWTLEN EQU 6 # | PTDCDD1 EQU 5 # PTDCDD2 EQU 6 # ( PTDCLCN EQU 10 DISP. TO LINE CON. NBR # $ PSLL0 EQU /3940 SLL A1,0 CONSTANT #
0x0492f8…04948c Dummy {f00=0x0017, f01=0x0190, f02=» : P* * $ : P* * $ B : P* THIS IS THE MONITOR CONFIGURATION PROGRAM ENTRY * $ : P* * $ : P* IT IS EN
0x04948c…049620 Dummy {f00=0x0017, f01=0x0190, f02=» * $ x : P* A1 - POINTER TO CURRENT LOCATION OF SYSLDX * % & : P* A2 - POINTER TO PREVIOUS LOCATION OF SYSLDX * % d : P* * % : P*
0x049620…0497b4 (3, 6) Dummy {f00=0x0017, f01=0x0190, f02=» , P LDKL A1,REL+2 RELOCATION ROUTINE ENTRY & ( P AD A1,STKCOM+M:REL RELOCATE ADDRESS & 4 P CFR A8,A1 & ` $ P LDKL A11,SYSLOD START OF SYSLOD & r * P LDKL A2,TCLASS GET ADDRESS TO TCLASS & . P CWK A2,SCLASS SAME AS ADDRESS TO SCLASS? & $ P RF(E) NO:TCL
0x0497b4…049948 Dummy {f00=0x0017, f01=0x0190, f02=»:TCL LDKL A2,SCLASS GET ADDRESS TO SCLASS & , P CALL CHPTRS RELOCATE POINTERS IN SCLASS ' 2 0 P ST A2,STKEND+SCLA SAVE RELOCATED TO SCLASS ' b P RF CLEAR ' P EJECT ' 4 P*********************************************** ' 4 P* CHPTRS - CHANGE POINTER
0x049948…049adc Dummy {f00=0x0017, f01=0x018e, f02=» ' h ( P* A11 - SYSLOD START ADDRESS ( ( P* A12 - RELOCATION CONSTANT ( 4 P* ( ` 2 P* EXIT: A2 - POINTER TO MOVED TCLASS/SCLASS ( j P* ( P* WORK REGISTER:A1-A7 ( P* ( P* SUBROUTINES: ( P* ( PCHPTRS EQU * ( P
0x049adc…049c70 Dummy {f00=0x0017, f01=0x0190, f02=» PCHPT10 EQU * ) . P SUK A4,2 MOORE ENTRIES I TCLASS/SCLASS ? ) P RF(Z) CHPT30 NO! ) J P ADK A3,2 NEXT ENTRY ) d $ P LDR* A5,A3 GET POINTER TO CLASS ) P ADR A5,A12 RELOCATE ) P STR A5,A3 STORE ) $ P LDR* A6,A5 GET LENGTH OF CLASS ) PCHPT
0x049c70…049e04 Dummy {f00=0x0017, f01=0x0190, f02=»T-ADDRESS ) ~ P LDR A9,A7 GET DWT-ADDRESS * " P CALL CMPADR COMPARE ADDRESSES * 4 P RB(G) CHPT20 DWT IN DRIVER! * Z P ADR A7,A12 RELOCATE * ~ * P STR A7,A5 STORE RELOCATED DW-ADDRESS * " P LD A8,SCTOPT GET OPTION WORD * P ANKL A8,1 MMU IN SYSTEM?
0x049e04…049f98 Dummy {f00=0x0017, f01=0x0190, f02=»DDRESS ALREADY RELOCATED? * P RB(NZ) CHPT20 YES! + " P ADR A8,A12 RELOCATE + > . P ADKL A8,1 INDICATE DWT-ADDRESS RELOCATED + Z , P ST A8,DWTMEC,A7 STORE RELOCATED ADDRESS + P RB CHPT20 + PCHPT30 EQU * + P RTN A14 + P EJECT + PCLEAR EQ
0x049f98…04a12c Dummy {f00=0x0017, f01=0x0190, f02=»RSYS EQU * + P SUK A1,2 , P CMR A1 , $ P CWR A1,A2 , 4 P RB(NE) CLRSYS , F P LDKL A1,CONMON , P AD A1,STKCOM+M:REL , t P ABR A1 , P EJECT , 6 P************************************************** , 6 P* B:TCT - BUILD TASK CONTROL TA
0x04a12c…04a2c0 Dummy {f00=0x0017, f01=0x0190, f02=»* , P* ENTRY: - P* - P* EXIT: - & P* - 6 & P* WORK REGISTERS: A1-A7,A11,A12 - @ P* - j P* SUBROUTINES: - t P* - . P* TASK CONTROL TABLE LAYOUT - . P* _________________________ - . P*
0x04a2c0…04a454 (3, 7) Dummy {f00=0x0017, f01=0x0190, f02=»* _________________________ - . P* I USER TASKS I . 2 . P* __________________________ . d P* . P EJECT . PB:TCT EQU * . * P LD A12,SCTSFA GET START OF FREE AREA . * P ST A12,SCTTCT STORE ADD
0x04a454…04a5e8 Dummy {f00=0x0017, f01=0x0190, f02=»TENT . f P* AND MONITOR SEGMENT TASKS / P* / 0 ( P LD A2,SCTMXS GET ADDRESS TO MXSTAB / : P RF(Z) BTCT20 NOT PRESENT! / f . P CALL MX:TDB GET FIRST MONITOR EXTENT TDB / 0 PBTCT02 SUK A7,1 DECREMENT NUMBER OF EXTENTS / P RF(N) BTCT05 NO MORE! /
0x04a5e8…04a77c Dummy {f00=0x0017, f01=0x0190, f02=»N) BTCT02 NO MORE! / P LDR* A2,A1 GET TASK ID 0 ( P CALL RESTCT RESERVE ENTRY IN TCTAB 0 : P RB BTCT04 0 f 4 PBTCT05 CALL MX:STD GET FIRST MONITOR SEGMENT TDB 0 x > PBTCT06 SUK A6,1 DECREMENT NUMBER OF MONITOR SEGMENT TABLES 0 P RF(N) BTCT20 NO MORE!
0x04a77c…04a910 Dummy {f00=0x0017, f01=0x0190, f02=» RB(N) BTCT06 NO MORE 0 P LDR* A2,A1 GET TASK ID 1 $ P CALL RESTCT RESERVE ENTRY TCTAB 1 > P RB BTCT08 1 f P XIF 1 x P EJECT 1 P* 1 . P* RESERVE ENTRIES IN TCTAB FOR USER TASKS 1 P* 1 PBTCT20 EQU * 1 6 P ST A12,STKEND+CUTENT SAVE C
0x04a910…04aaa4 Dummy {f00=0x0017, f01=0x018e, f02=»BTCT30 SUK A7,1 MORE APPLICATIONS? 1 P RF(N) BTCT70 NO! 2 * 6 P LD A11,APLMMC,A4 GET START OF CONFIGURATION DATA 2 D * P AD A11,STKCOM+CONSTA RELOCATE POINTER 2 ~ 2 P ST A12,APLMMC,A4 STORE FIRST USER TASK ENTRY 2 P LCR A2,A11 GET BLOCK TYPE 2 ( P CCK
0x04aaa4…04ac38 Dummy {f00=0x0017, f01=0x018e, f02=» PBTCT35 EQU * 3 P* 3 0 P* COMPUTE NUMBER OF TASK IN EACH TASK CLASS 3 " P* 3 V PBTCT40 EQU * 3 ` $ P CALL GETTSK GET NUMBER OF TASKS 3 t PBTCT50 EQU * 3 . P ADKL A12,2 RESERV ANOTHER ENTRY IN TC:TAB 3 ( P SUK A1,1 MOORE TASKS IN THIS CLASS? 3
0x04ac38…04adcc Dummy {f00=0x0017, f01=0x0190, f02=» 3 | PBTCT60 EQU * 4 , P ADK A4,ACBLEN NEXT APPL. CONTROL BLOCK 4 P RB BTCT30 4 L P* 4 ^ 4 P* ENTRIES FOR ALL USER TASKS RESERVED IN TC:TAB 4 h P* 4 0 PBTCT70 ST A12,SCTSFA UPDATE END OF FREE AREA 4 " P SU A12,SCTTCT COMPUTE LENGTH 4 P ST*
0x04adcc…04af60 Dummy {f00=0x0017, f01=0x0190, f02=»* * 4 : P* RESTCT - RESERVE ENTRY IN TCTAB * 5 > : P* =============================== * 5 | : P* * 5 : P* REFERENCED IN
0x04af60…04b0f4 (3, 8) Dummy {f00=0x0018, f01=0x018e, f02=» ID * 5 t : P* A12 - NEXT FREE ENTRY IN TCTAB * 6 " : P* * 6 ` : P* EXIT: A12 - NEXT FREE ENTRY IN TCTAB * 6 : P*
0x04b0f4…04b288 Dummy {f00=0x0018, f01=0x0190, f02=» 6 X : P* SUBROUTINES: * 7 : P* * 7 F : P***************************************************** 7 PRESTCT EQU * 7 P LDR A3,A12 GET END OF TCTAB 7 PREST10 SUK A3,
0x04b288…04b41c Dummy {f00=0x0018, f01=0x0190, f02=»DKL A12,2 NEXT FREEE ENTRY IN TCTAB 7 PREST20 RTN A14 RETURN 8 , , PREST30 CWR* A2,A3 CHECK IF SAME TASK ID 8 J P RB(NE) REST10 NOT THE SAME 8 z " P RB REST20 COINCIDENCE: RETURN 8 P XIF 8 P IFF FM=0 8 P EJECT 8 8 P************************
0x04b41c…04b5b0 Dummy {f00=0x0018, f01=0x0190, f02=» * 8 h 8 P* ============================= * 9 8 P* * 9 P 8 P*************************************************** 9 8 P* * 9 8 P* R
0x04b5b0…04b744 Dummy {f00=0x0018, f01=0x0190, f02=»NUMBER OF FM-FILES PER TASK * 9 | 8 P* SCTNOF - NUMBER OF GENERAL FM-FILES * : ( 8 P* SCTFWL - FILE WORK TABLE LENGTH IN * : d 8 P* BYTES * : 8 P*
0x04b744…04b8d8 Dummy {f00=0x0018, f01=0x0190, f02=»* * : 8 P* WORK REGISTERS: A2,A3 * ; < 8 P* * ; x 8 P* SUBROUTINES: ERROR,MULT * ; 8 P*
0x04b8d8…04ba6c Dummy {f00=0x0018, f01=0x0190, f02=»FOR * ; h 8 P* FILE WORK TABLES. * < 8 P* SIZE OF THE AREA RESERVED IS GIVEN BY THE * < P 8 P* FORMULA: A=L*(G+N*T) * < 8 P* WHERE A=AREA SIZE IN BYTES * < 8 P*
0x04ba6c…04bc00 Dummy {f00=0x0018, f01=0x0190, f02=»R OF FM-FILES PER TASK * < | 8 P* N=NUMBER OF USER TASKS * = ( 8 P* * = d 8 P*************************************************** = P EJECT = PB:FWT EQU * = & P LD* A2,SC
0x04bc00…04bd94 (3, 9) Dummy {f00=0x0018, f01=0x0190, f02=»ER OF USER TASKS = 2 P LD A3,SCTNFT GET NUMBER OF FM-FILES PER TASK > P CALL MULT MULTIPLY > N 0 P AD A3,SCTNOF ADD NUMBER OF GENERAL FM-FILES > j 0 P ST A3,SCTNOF STORE TOTAL NUMBER OF FM-FILES > , P LD A2,SCTFWL GET FILE WORK TABLE LENGTH > P CALL
0x04bd94…04bf28 Dummy {f00=0x0018, f01=0x0190, f02=»,STKEND+FWTSIZ SAVE FWT AREA SIZE IN WORDS > ( P LD A2,SCTSFA GET START OF FREE AREA ? 2 , P ST A2,SCTFWT STORE ADDRESS TO FIRST FWT ? ^ 0 P ST A2,STKEND+FWTSTA SAVE START OF FWT AREA ? 0 P ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA ? . PFWT50 CW A2,STKEND
0x04bf28…04c0bc Dummy {f00=0x0018, f01=0x0190, f02=»R A2 CLEAR FWT AREA ? " P ADK A2,2 RESERVE ANOTHER WORD @ $ P SUK A3,1 DECREMENT WORD COUNTER @ B * P RB(NZ) FWT50 CHECK IF MEMORY OVERFLOW @ j , P ST A2,SCTSFA UPDATE START OF FREE AREA @ P SUK A2,2 @ 0 P ST A2,STKEND+INTTAB SAVE ADDRESS TO T.I.T. @
0x04c0bc…04c250 Dummy {f00=0x0018, f01=0x0190, f02=» * @ l * P************************************** A P* A 8 ( P* NUMBER OF BLOCKS TO BE GENERATED: A B ( P* 20+N*(NUMBER OF TASKS IN SYSTEM) A n $ P* WHERE N IS A SYSTEM CONSTANT A $ P* DEFINED AT SYSTEM GENERATION A P* A P* A P* REFEREN
0x04c250…04c3e4 Dummy {f00=0x0018, f01=0x018e, f02=»XIT: BLOCKS - POINTER TO FIRST BLOCK A P* B . $ P* WORK REGISTERS: A1,A2,A7,A12 B 8 P* B ` P* SUBROUTINES: BLKGEN B j P* B P EJECT B PMONBLK EQU * B P LDK A1,0 B & P LD A12,SCTSFA START OF FREE AREA B . P ST A12,FREQUE SAVE PO
0x04c3e4…04c578 Dummy {f00=0x0018, f01=0x0190, f02=» B 0 P* GET NUMBER OF BLOCKS PER TASK TO GENERATE C P* C < P LD A2,SCTBLK C F 0 P ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA C PMON:10 EQU * C P SUK A7,2 MOORE TASKS? C P RF(Z) MON:20 NO C P CALL BLKGEN C P RB MON:10 C PMON:20
0x04c578…04c70c Dummy {f00=0x0018, f01=0x0190, f02=» AD A2,SCTNOF C P CALL BLKGEN D P* D * P* GENERATE END BLOCK D 4 P* D R P STR A1,A12 D P ST A1,2,A12 D p P ST A1,4,A12 D P* D F P* CHECK IF BUFFER GREATER THAN 2 WORDS RESERVED FOR SYSLOD PART A D 0 P* IF NOT - USE LAST MONITOR
0x04c70c…04c8a0 Dummy {f00=0x0018, f01=0x0190, f02=» P LDK A1,4 BUFFER SIZE E 0 P ST A1,STKCOM+BUFSIZ UPDATE MAX BUFFER SIZE E " P ADKL A12,2 E V 0 P ST A12,STKCOM+SYSBUF UPDATE BUFFER ADDRESS E j PMON:30 EQU * E P ADKL A12,6 E P E * P ST A12,SCTSFA UPDATE END OF FREE AREA E P RTN A14 E
0x04c8a0…04ca34 (3, 10) Dummy {f00=0x0018, f01=0x018e, f02=»*********** E v P* F P* REFERENCED IN: MONBLK F P* F @ P* ENTRY: A1=0 F J 4 P* A2 - NUMBER OF BLOCKS TO BE GENERATED F b $ P* A12 - NEXT FREE ENTRY F P* F P* EXIT: A1=0 F " P* A12 - NEXT FREE ENTRY F P
0x04ca34…04cbc8 Dummy {f00=0x0018, f01=0x0190, f02=» 0 P* -------------------- G 0 P* I DATA *+6 I G 8 0 P* -------------------- G l 0 P* I DATA 0 I G 0 P* -------------------- G 0 P
0x04cbc8…04cd5c Dummy {f00=0x0018, f01=0x0190, f02=»QU * G P LDR A3,A2 H PBLK:10 EQU * H P RF(Z) BLKEX H 4 $ P LDK A4,3 NUMBER OF WORDS/BLOCK H H 0 PBLK:20 CW A12,STKEND+LIMIT MEMORY OVERFLOW? H p P RF(NE) BLK:30 NOT YET! H * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW H P CALL ERROR H * PBL
0x04cd5c…04cef0 Dummy {f00=0x0018, f01=0x0190, f02=»4,A12 H P ST A1,-2,A12 I P SUK A3,1 I $ P RB BLK:10 I 6 PBLKEX EQU * I H P RTN A14 I P IFF EDM=0 I l P EJECT I ~ H P******************************************************************* I H P*
0x04cef0…04d084 Dummy {f00=0x0018, f01=0x0190, f02=»======================== * I p H P* * J , H P* REFERENCED IN: SYSLDM * J x H P* *
0x04d084…04d218 Dummy {f00=0x0018, f01=0x0190, f02=» * J H P* EXIT: * K H P* * K d H P* WORK REGISTERS: A4 * K H P*
0x04d218…04d3ac Dummy {f00=0x0018, f01=0x0190, f02=» H P* * L H P******************************************************************* L P PB:MXTT EQU * L ( P LD A2,SCTMXS GET ADDRESS TO MXSTAB L P RF(Z) BMX99 NOT PRESENT L 0 P LDK A4,2 DI
0x04d3ac…04d540 Dummy {f00=0x0018, f01=0x018e, f02=»GET ADDRESS TO START-ADDRESS TABLE L " P RF(NZ) BMX05 ALREADY DEFINED M * $ P LD A4,SCTSFA START OF FREE AREA M P 0 P ST A4,SCTMOX ADDRESS TO START-ADDRESS TABLE M x 4 P LDK A4,2 INITIAL LENGTH OF START-ADDRESS TABLE M & P ST* A4,SCTMOX STORE IN FIRST WORD M
0x04d540…04d6d4 (3, 11) Dummy {f00=0x0018, f01=0x0190, f02=» M PBMX01 SUK A3,1 MORE EXTENTS? N P RF(N) BMX03 NO N , * P ADK A2,2 ADDRESS NUMBER OF TASK ID:S N D ( P LDR* A6,A2 GET NUMBER OF TASK ID:S N r ( P ADR* A4,A2 ADD NUMBER OF TASK ID:S N " PBMX02 SUK A6,1 MORE TASK ID:S? N P RB(N) BMX01 NO N " P
0x04d6d4…04d868 Dummy {f00=0x0018, f01=0x0190, f02=»TABLE N f , P AD A4,SCTSFA END OF START-ADDRESS TABLE O , P ST A4,SCTSFA UPDATE START OF FREE AREA O > P LDR A11,A4 GET TABLE END O n " P LDR A9,P GET CURRENT LOCATION O " P CALL CMPADR COMPARE ADDRESSES O P RF(NG) BMXS05 OK O * P LDKL A1,LMP3 INDI
0x04d868…04d9fc Dummy {f00=0x0018, f01=0x0190, f02=»K A7,1 DECREMENT NUMBER OF EXTENTS O P RF(N) BMX99 NO MORE P * * P LD A12,SCTSFA GET START OF FREE AREA P F 6 P ST A12,STKEND+EXCTAB SAVE ADDRESS TO CONTR. BLOCK P t 4 P ADKL A12,ACBLEN RESERVE AREA FOR CONTROL BLOCK P , P ST A12,SCTSFA UPDATE START OF FRE
0x04d9fc…04db90 Dummy {f00=0x0018, f01=0x0190, f02=»ID:S P h P RB(N) BMX10 NO MORE Q P ADK A1,2 NEXT TASK ID Q ( P CALL MXTTAB Q F P RB BMX20 Q Z PBMX99 RTN A14 RETURN Q l P EJECT Q H P******************************************************************** Q H P*
0x04db90…04dd24 Dummy {f00=0x0018, f01=0x0190, f02=»=================================== * Q z H P* * R 6 H P* ENTRY: A1 -POINTER TO TASK ID IN MXSTAB * R H P* A5 - POINTER TO MONITOR EXTENT BLOCK
0x04dd24…04deb8 Dummy {f00=0x0018, f01=0x0190, f02=» * R f H P* EXIT: A1 - POINTER TO TASK ID IN MXSTAB * S " H P* A5 - POINTER TO MONITOR EXTENT BLOCK * S n H P* * S H P*
0x04deb8…04e04c Dummy {f00=0x0018, f01=0x0190, f02=» * S R H P* SUBROUTINES: IMXTT,STRMOX,INBIMA * T H P* * T Z H P******************************************************************** T P EJECT T PMXTTAB E
0x04e04c…04e1e0 Dummy {f00=0x0018, f01=0x0190, f02=» P LDR* A2,A1 GET TASK ID U P CALL STRMOX STORE IN MOXTAB U $ & P LD A2,MX:STA,A5 GET START ADDRESS U H 4 P LD A3,STKEND+EXCTAB GET CURRENT EXTENT BLOCK =6 U r , P ST A2,APLSTA,A3 STORE START ADDRESS =6 U P CALL STRMOX STORE IN MOXTAB U " P LDR* A2,A
0x04e1e0…04e374 (3, 12) Dummy {f00=0x0019, f01=0x0190, f02=»ENT BASE ADDRESS U l & P ADK A2,12 5 WORDS FOR DEBUGGER =9 V 0 P ST A2,TTB:SA+26,A12 STORE IN A13 SAVE-AREA V B : P LD A3,STKEND+EXCTAB GET CURRENT EXTENT CONTROL BLOCK V v P SUK A2,2 =10 V 8 P ST A2,APLLAC,A3 STORE LOGICAL ADDR. TO COMMON PART V . P S
0x04e374…04e508 Dummy {f00=0x0019, f01=0x0190, f02=»LOCK V f 8 P ST A3,TTB:AP,A12 STORE EXTENT CONTROL BLOCK ADDRESS W " P LD A2,SCTOPT GET OPTION WORD W H P ANK A2,/20 EMM? W n P RF(Z) MXTT20 NO W & P LD A2,MX:LEN,A5 GET EXTENT LENGTH W P ST A2,MAPLEN,A13 SAVE W & P ST A12,TTAB,A13 SAVE TTAB ADDRESS
0x04e508…04e69c Dummy {f00=0x0019, f01=0x0190, f02=»******************************* W 2 P* * X ( 2 P* STRMOX - STORE START ADDRRESS IN MOXTAB * X ^ 2 P* ======================================= * X 2 P* * X 2 P* REFER
0x04e69c…04e830 Dummy {f00=0x0019, f01=0x0190, f02=» * X l 2 P* * Y 2 P* EXIT: * Y H 2 P* * Y ~ 2 P* WORK REGISTERS: * Y 2 P*
0x04e830…04e9c4 Dummy {f00=0x0019, f01=0x0190, f02=»***************************************** Y PSTRMOX EQU * Z 2 & P LD* A3,SCTMOX GET CURRENT LENGTH Z F , P AD A3,SCTMOX ADDRESS TO NEXT FREE ENTRY Z p " P STR A2,A3 STORE START ADDRESS Z P IM* SCTMOX INCREMENT LENGTH Z P IM* SCTMOX TWICE Z P RTN
0x04e9c4…04eb58 Dummy {f00=0x0019, f01=0x0190, f02=» * Z f 8 P* IMXTT - INIT MMU TABLE FOR MONITOR EXTENT TASK * [ 8 P* ============================================== * [ N 8 P* * [ 8 P* REFERENCED IN: MXTTAB * [ 8 P*
0x04eb58…04ecec Dummy {f00=0x0019, f01=0x0190, f02=»NTRY POINTER * [ z 8 P* * & 8 P* EXIT: * b 8 P* * 8 P* WORK REGISTERS: A2,A3,A4,A9,A11
0x04ecec…04ee80 Dummy {f00=0x0019, f01=0x0190, f02=» * 8 P**************************************************** ] : P EJECT ] v PIMXTT EQU * ] P LDR A2,A12 GET TTAB ENTRY ] * P ADKL A2,TTB:MT GET START OF MMU TABLE ] . P LDR* A3,A5 GET PHYSICAL ADDRESS
0x04ee80…04f014 (3, 13) Dummy {f00=0x0019, f01=0x0190, f02=»T 12 BITS ] & P LDKL A9,/1000 PHYSICAL PAGE SIZE ^ P SUR A9,A4 SAVE ^ < ( P LD A11,MX:LEN,A5 GET EXTENT LENGTH ^ T 0 P CALL CMPADR ENOUGTH SPACE IN CURRENT PAGE? ^ P RF(G) IMX10 NO! ^ & P XRR A11,A11 INDICATE SINGLE ENTRY ^ P RF IMX20 ^ < P
0x04f014…04f1a8 Dummy {f00=0x0019, f01=0x0190, f02=»DDRESS ^ r & P ADK A2,2 INCREMENT ENTRY POINTER _ " P ADKL A11,0 ONE ENTRY ENOUGTH? _ 8 P RF(Z) IMX99 YES! _ ^ P RF(NN) IMX30 <32KB _ x $ P SUKL A11,/1000 DECREMENT LENGTH _ P RB IMX20 _ & PIMX30 STR A3,A2 STORE PAGE ADDRESS _ ( P ADKL A3,/400 IN
0x04f1a8…04f33c Dummy {f00=0x0019, f01=0x0190, f02=»EQU * =6 _ " P LDR A4,A12 GET TTAB ENTRY =6 ` . P ADKL A4,TTB:MT+32 GET END OF MMU-TABLE =6 ` 8 P LDKL A3,/FC00 =6 ` j PIMX100 EQU * =6 ` , P CWR A4,A2 ENTRIES LEFT IN MMU-TABLE? =6 ` P RF(E) IMX110 NO! =6 ` 0 P STR A3,A2 STORE PAGE ERROR IN M
0x04f33c…04f4d0 Dummy {f00=0x0019, f01=0x0190, f02=»******************************************************** ` < P* * a @ < P* B:MSEG - BUILD MONITOR TASK SEGMENT TABLES & TTABS * a < P* ================================================== * a < P*
0x04f4d0…04f664 Dummy {f00=0x0019, f01=0x0190, f02=» * a < P* ENTRY: * b 0 < P* * b p < P* EXIT: * b < P*
0x04f664…04f7f8 Dummy {f00=0x0019, f01=0x0190, f02=» * b p < P* SUBROUTINES: MX:MST,MX:STD,BMSTAB,CHKTAD,BMXSTT * c < P* * c ` < P******************************************************** c P EJECT c PB:MSEG EQU * c 2 P CALL
0x04f7f8…04f98c Dummy {f00=0x0019, f01=0x0190, f02=» SEGTABS c l : P LDR A8,A1 SAVE POINTER TO FIRST MONITOR SEGMENT TABLE d 6 P CALL MX:STD FIND FIRST MONITOR SEGMENT TABLE TASK d N P DEFINITION BLOCK d > PBMSG10 SUK A6,1 DECREMENT NUMBER OF MONITOR SEGMENT TABLES d P RF(N) BMSG99 NO MORE! d < P CM
0x04f98c…04fb20 Dummy {f00=0x0019, f01=0x0190, f02=»TER TO NUMBER OF SEGMENTS d x , P CALL BMSTAB BUILD MONITOR SEGMENT TABLE e " . P LDR* A7,A1 GET NUMBER OF TASKS IN SEGTAB e R PBMSG20 ADK A1,2 NEXT TASK ID e , P SUK A7,1 DECREMENT NUMBER OF TASK ID:S e P RB(N) BMSG10 NO MORE! e . P CALL CHKTAD CHECK
0x04fb20…04fcb4 (3, 14) Dummy {f00=0x0019, f01=0x0190, f02=»A10,STKEND+SCBTAB GET SEGMENT CONTROL BLOCK e 2 P RF(NZ) BMSG25 SEGMENT CONTROL BLOCK GENERATED f 4 * P LD A12,SCTSFA GET START OF FREE AREA f j P LDR A10,A12 SAVE f 6 P ADKL A12,ACBLEN RESERVE FOR SEGMENT CONTROL BLOCK f , P ST A12,SCTSFA UPDATE START
0x04fcb4…04fe48 Dummy {f00=0x0019, f01=0x0190, f02=»POINTER f d < P LD A10,TTB:AP,A12 GET ADDRESS TO SEGMENT CONTROL BLOCK g 2 P LD A3,STKEND+MAXSGM GET MAXIMUM SEGMENT SIZE g P * P ADKL A3,/FFFF NUMBER OF 4K-MULTIPLES g 2 P ANKL A3,/F000 ISOLATE NUMBER OF 4K-MULTIPLES g ( P LDKL A2,/F000 END OF LOGICAL
0x04fe48…04ffdc Dummy {f00=0x0019, f01=0x0190, f02=»K-MULTIPLE? g | P RF(NZ) BMSG40 NO! h & P ADKL A2,/1000 SAVE ONE MMU ENTRY h . : PBMSG40 ST A2,APLLAP,A10 STORE IN SEGMENT CONTROL TABLE h X P SRL A2,12 MMU TABLE ENTRY h $ P LDK A3,16 NUMBER OF MMU ENTRIES h . P SUR A3,A2 COMPUTE NUMBER OF PAGE ENTRIE
0x04ffdc…050170 Dummy {f00=0x0019, f01=0x0190, f02=»T h l . P ADKL A3,TTB:CB DISPL TO END OF MMU TABLE i 4 P ST A3,APLMMP,A10 STORE IN SEGMENT CONTROL TABLE i < 2 P LD A3,STKEND+MAXSGM GET MAXIMUM SEGMENT SIZE i t 0 P ADKL A3,/3FF COMPUTE NUMBER OF 1K-MULTIPLES i 2 P ANKL A3,/FC00 ISOLATE NUMBER OF 1K-MULTIP
0x050170…050304 Dummy {f00=0x0019, f01=0x0190, f02=» i j P RB(L) BMSG20 NO j * P ST A3,SCTPSZ UPDATE MAX SEGMENT SIZE j P RB BMSG20 j N PBMSG99 RTN A14 RETURN j ` P EJECT j ~ > P********************************************************** j > P* *
0x050304…050498 Dummy {f00=0x0019, f01=0x0190, f02=» > P* * k > P* REFERENCED IN: B:MSEG * k F > P* * k > P* ENTRY: A4 - POINTER TO NUMBER OF SEGMENTS * k
0x050498…05062c Dummy {f00=0x0019, f01=0x0190, f02=»* EXIT: A5 - SEGMENT TABLE ADDRESS * k > P* * l B > P* WORK REGISTERS: A2,A3,A9,A11 * l > P* * l > P
0x05062c…0507c0 Dummy {f00=0x0019, f01=0x0190, f02=»****************************************************** l P EJECT m > PBMSTAB EQU * m L * P STR A1,A15 SAVE REGISTER A1 ON STACK m ` ( P LD A5,SCTSFA GET START OF FREE AREA m * P LD A2,SCTIPL GET PROGRAM LOAD DEVICE m & P STR A2,A5 STORE IN SEGMENT TABL
0x0507c0…050954 (3, 15) Dummy {f00=0x0019, f01=0x0190, f02=»RE IN SEGMENT TABLE m < P ADS A9,STKCOM+TOTSGM INCREMENT TOTAL NUMBER OF SEGMENTS n " P ADK A5,2 SEGMENT TABLE ENTRY n P LDR A3,A5 SAVE n P* n P* BUILD SEGMENT BLOCK 0 n P* n ( P LDKL A2,/8400 STATUS FOR SEGMENT 0 n ( P STR A2,A3 STO
0x050954…050ae8 Dummy {f00=0x0019, f01=0x0190, f02=»D+LIMIT GET END OF SYSTEM AREA n * P LDR A11,A3 GET END OF SEGMENT BLOCKS o & " P CALL CMPADR COMPARE ADDRESSES o T P RF(NG) BMST25 OK o z * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW o P CALL ERROR o & PBMST25 LDR* A2,A8 GET SEGMENT TYPE o P SRL A2,
0x050ae8…050c7c Dummy {f00=0x0019, f01=0x0190, f02=»DISC PAGING? o P RF(Z) BMST40 NO! p P* p . * P* DISC PAGING & DISC RESIDENT SEGMENT p 8 P* p f ( P LD A1,SCTMXS GET ADDRESS TO MXSTAB p p 0 P LD A2,MX:DA2,A1 GET DISC ADDRESS BITS 16-31 p 0 P LD A1,MX:DA1,A1 GET DISC ADDRESS BITS 0-15 p $ P LD
0x050c7c…050e10 Dummy {f00=0x0019, f01=0x0190, f02=» p v P ADK A1,1 ADD CARRY q P RF(P) BMST30 NOT OVERFLOW q $ ( P LDKL A1,LMP10 DISC ADDRESS OVERFLOW q F P CALL ERROR q r 4 PBMST30 ORKL A1,/4000 INDICATE ASSEMBLER SEGMENT q 4 P STR A1,A3 STORE SEGMENT DISC ADDRESS BITS 0-15 q 6 P ST A2,2,A3 STORE
0x050e10…050fa4 Dummy {f00=0x0019, f01=0x0190, f02=»DKL A2,/8800 STATUS FOR DISC RESIDENT SEGMENT q & P STR A2,A3 STORE IN SEGMENT BLOCK r 6 ( PBMST50 LD A9,4,A8 GET SEGMENT LENGTH r ` 4 P LD A11,STKEND+MAXSGM GET MAXIMUM SEGMENT LENGTH r P CALL CMPADR r . P RF(NL) BMST55 CURRENT SEGMENT NOT GREATER r 6
0x050fa4…051138 Dummy {f00=0x0019, f01=0x0190, f02=»NCREMENT POINTER IN MXSTAB r 0 P LD A1,STKEND+SGMCNT GET NUMBER OF SEGMENTS s " P SUK A1,1 s V P RB(NZ) BMST20 MORE SEGMENTS s h " P ADK A3,8 END OF SEGMENT TABLE s 2 PBMST60 ST A3,SCTSFA UPDATE START OF FREE AREA s $ P LDR* A1,A15 RESTORE REGISTER A1
0x051138…0512cc Dummy {f00=0x0019, f01=0x0190, f02=» * s r @ P* CHKTAD - CHECK IF TASK ALREADY DEFINED * t & @ P* ====================================== * t j @ P* * t @ P* REFERENCED IN: B:M
0x0512cc…051460 Dummy {f00=0x0019, f01=0x0190, f02=»R TO TASK ID * t z @ P* FOR MONITOR SEGMENT TASK * u . @ P* * u r @ P* EXIT: A12 - TTAB ADDRESS IF TASK ALREADY DEFINED * u @ P* A12
0x051460…0515f4 (3, 16) Dummy {f00=0x001a, f01=0x018e, f02=»ERS: A2,A3 * u @ P* * v 6 @ P* SUBROUTINES: PSW * v z @ P* * v @ P******
0x0515f4…051788 Dummy {f00=0x001a, f01=0x0190, f02=» P AD A2,SCTTCT END OF TCTAB w . PCHKT20 SUK A2,2 DECREMENT POINTER IN TCTAB w & " P CW A2,SCTTCT START OF TCTAB? w X * P RF(E) CHKT30 YES: ALL TASKS CHECKED! w ~ $ P LDR* A3,A2 GET POINTER TO TTAB w P LD A3,TTB:ID,A3 GET TASK ID w ( P CWR* A3,A1 EQUA
0x051788…05191c Dummy {f00=0x001a, f01=0x0190, f02=» TASK NOT FOUND w v . PCHKT50 CFI A14,PSW,A13 STORE PSW ON STACK x P RTN A14 x J P EJECT x Z H P******************************************************************* x h H P* * x H P*
0x05191c…051ab0 Dummy {f00=0x001a, f01=0x0190, f02=» x L H P* * y H P* REFERENCED IN: MXTTAB,B:MSEG * y T H P* * y H P* ENTRY:
0x051ab0…051c44 Dummy {f00=0x001a, f01=0x0190, f02=»2 - TTAB ADDRESS * y H P* * z @ H P* WORK REGISTERS: A2,A9,A10,A11 * z H P*
0x051c44…051dd8 Dummy {f00=0x001a, f01=0x0190, f02=» * z p H P******************************************************************* { , PBMXSTT EQU * { x * P LD A12,SCTSFA GET START OF FREE AREA { , P LDKL A10,TTB:TD+2 STANDARD TTAB LENGTH { " P LD A2,SCTOPT GET OPTION WORD
0x051dd8…051f6c Dummy {f00=0x001a, f01=0x0190, f02=»A10,TTB:AM INCLUDE LENGTH { P RF BMXS40 | " ( PBMXS20 LD A2,SCTOPT GET OPTION WORD | 4 P ANK A2,1 MMU OPTION? | ` P RF(Z) BMXS30 NO! | ~ . P SUKL A12,TTB:MT INCLUDE MMU TABLE IN TTAB | $ P SUKL A10,TTB:MT INCLUDE LENGTH | P RF BMXS40 | ( PBMXS
0x051f6c…052100 Dummy {f00=0x001a, f01=0x0190, f02=»GING | d & P SUKL A10,TTB:CB INCLUDE IN LENGTH } 4 PBMXS40 AD A10,SCTSFA COMPUTE START OF FREE AREA } 6 P LDR A9,A10 SAVE } n 0 P LD A11,STKEND+LIMIT GET END OF SYSTEM AREA } " P CALL CMPADR MEMORY OVERFLOW? } P RF(NL) BMXS50 NO! } P LDKL A1,LMP3
0x052100…052294 (3, 17) Dummy {f00=0x001a, f01=0x0190, f02=»GTH } r * P AD A2,SCTTCT COMPUTE NEXT FREE ENTRY ~ " P STR A12,A2 STORE TTAB ADDRESS ~ : ( P IM* SCTTCT INCREMENT CURRENT LENGTH ~ ` P IM* SCTTCT TWICE ~ P LDR* A2,A1 GET TASK ID ~ $ P ST A2,TTB:ID,A12 STORE IN TTAB ~ * P LDKL A2,MX:LEV GET MONITO
0x052294…052428 Dummy {f00=0x001a, f01=0x0190, f02=»ORE PROGRAM STATUS WORD ~ | : P LD A2,STKEND+EXCTAB GET EXTENT CONTROL BLOCK ADDRESS $ P ST A2,TTB:AP,A12 STORE IN TTAB ^ P LDK A2,2 0 P ST A2,TTB:TD,A12 STORE DEVICE TABLE LENGTH P RTN A14 RETURN P EJECT B P**********************
0x052428…0525bc Dummy {f00=0x001a, f01=0x018e, f02=»================================= * ~ B P* * 4 B P* REFERENCED IN: MX:MST * z B P* * B P*
0x0525bc…052750 Dummy {f00=0x001a, f01=0x0190, f02=» B P* EXIT: A1 - POINTER TO FIRST MONITOR EXTENT BLOCK * B P* A5 - POINTER TO NUMBER OF SEGTABS * J B P* A6 - NUMBER OF MONITOR SEGMENT TABLES * B P* A7 - NUMBER OF MONITOR EXTENTS
0x052750…0528e4 Dummy {f00=0x001a, f01=0x018e, f02=» * b B P* * B P* SUBROUTINES: * ^ B P* * B P******************************
0x0528e4…052a78 Dummy {f00=0x001a, f01=0x018e, f02=» ~ P RF(Z) MEB99 NOT PRESENT * P LD A2,MX:NOS,A7 GET NUMBER OF SEGTABS ( P LDR A6,A2 SAVE V & P LDR A1,A7 SAVE ADDRESS TO MXSTAB n * P LD A7,MX:NOX,A7 GET NUMBER OF EXTENTS , P ADK A1,MX:NOS ADDRESS NUMBER OF SEGTABS P LDR A5,A1 SAVE
0x052a78…052c0c Dummy {f00=0x001a, f01=0x0190, f02=» z P EJECT B P************************************************************** B P* * B P* MX:MST - GET FIRST MONITOR SEGMENT TABLE * B P* =====================
0x052c0c…052da0 Dummy {f00=0x001a, f01=0x0190, f02=» * t B P* * * B P* ENTRY: SCTMXS - ADDRESS TO MXSTAB * p B P* * B P* EXIT: A1
0x052da0…052f34 (3, 18) Dummy {f00=0x001a, f01=0x0190, f02=» A6 - NUMBER OF MONITOR SEGMENT TABLES * B P* A7 - NUMBER OF MONITOR EXTENTS * > B P* * B P* WORK REGISTERS: A2 *
0x052f34…0530c8 Dummy {f00=0x001a, f01=0x0190, f02=» * V B P* * B P************************************************************** R P EJECT PMX:MST EQU * : P CALL MX:MEB GET POINTER TO FIRST MONITOR EXTENT BLOCK 2 P LDR A2,A7 GET N
0x0530c8…05325c Dummy {f00=0x001a, f01=0x018e, f02=»TS n 4 P ADK A1,MX:EBL ADDRESS NEXT MONITOR EXTENT BLOCK P RB MST10 B PMST99 RTN A14 RETURN T P EJECT p B P************************************************************* ~ B P* * B
0x05325c…0533f0 Dummy {f00=0x001a, f01=0x0190, f02=» P B P* * B P* REFERENCED IN: MX:STD * N B P* * B P* ENTRY: SCTMXS - ADDRESS TO MXSTAB
0x0533f0…053584 Dummy {f00=0x001a, f01=0x0190, f02=»ENT TASK * f B P* DEFINITION BLOCK * B P* A5 - POINTER TO FIRST MONITOR EXTENT BLOCK * b B P* A6 - NUMBER OF MONITOR SEGMENT TABLES * B P* A7 - NUMBER OF MO
0x053584…053718 Dummy {f00=0x001a, f01=0x0190, f02=»,A3 * z B P* * 0 B P* SUBROUTINES: MX:MST * v B P* * B P******
0x053718…0538ac Dummy {f00=0x001a, f01=0x0190, f02=» TABLE j , P LDR A2,A6 GET NUMBER OF SEGMENT TABLES . PTDB10 ADK A5,2 ADDRESS NUMBER OF SEGMENTS > * P SUK A2,1 DECREMENT NUMBER OF SEGTABS p P RF(N) TDB99 NO MORE SEGTABS & P LDR* A3,A5 GET NUMBER OF SEGMENTS 0 PTDB20 SUK A3,1 DECREMENT NUM
0x0538ac…053a40 Dummy {f00=0x001a, f01=0x0190, f02=»B99 RTN A14 RETURN P EJECT B P************************************************************** ( B P* * n B P* MS:STD - GET FIRST MONITOR SEGMENT TASK DEFINITION BLOCK * B P* ===========
0x053a40…053bd4 (3, 19) Dummy {f00=0x001a, f01=0x0190, f02=»CED IN: B:MXST * B P* * < B P* ENTRY: * B P* *
0x053bd4…053d68 Dummy {f00=0x001a, f01=0x0190, f02=» * T B P* A5 - POINTER TO FIRST MONITOR EXTENT BLOCK * B P* A6 - NUMBER OF MONITOR SEGMENT TABLES * P B P* A7 - NUMBER OF MONITOR EXTENTS * B P*
0x053d68…053efc Dummy {f00=0x001a, f01=0x0190, f02=» * h B P* SUBROUTINES: MX:TDB * B P* * d B P************************************************************** P EJECT PMX:STD EQU
0x053efc…054090 Dummy {f00=0x001a, f01=0x0190, f02=» NUMBER OF MONITOR EXTENTS x P RF(N) STD99 NO MORE EXTENTS " . P LDR* A3,A1 GET NUMBER OF TASKS IN EXTENT F " PSTD20 ADK A1,2 ADDRESS TASK ID x ( P SUK A3,1 DECREMENT NUMBER OF TASKS P RB(NN) STD20 MORE TASKS P RB STD10 NEXT EXTENT P
0x054090…054224 Dummy {f00=0x001a, f01=0x0190, f02=»************************ P* P* REFERENCED IN: SYSLDM * P* J P* ENTRY: T P* f 8 P* EXIT: TC:TAB CONTAIN POINTERS TO ALL TASK TABLES p P* P* WORK REGISERS: A1-A12 P* 8 P* SUBROUTINES: CONVRT,GETTSK,TETTDC,
0x054224…0543b8 Dummy {f00=0x001a, f01=0x0190, f02=» TTB:AM I MMU ALLOCATION I * P* I BIT MAP (4 WORDS) I * * P* I______________________I X * P* TTB:MT I MMU I * P* I TABLE I * P* I 16 I
0x0543b8…05454c Dummy {f00=0x001a, f01=0x0190, f02=» I l * P* I______________________I * P* TTB:SP I SEGTAB POINTER I 8 * P* I______________________I f * P* TTB:SB I SEGM. BLOCK POINTER I * P* I----------------------I * P* TTB:AP I ACB
0x05454c…0546e0 Dummy {f00=0x001a, f01=0x0190, f02=»---------------- z * P* TTB:ID I TASK IDENTIFICATION I * P* ------------------------ F * P* TTB:ST I STATUS/LEVEL I t * P* ------------------------ * P* TTB:PP I PENDING QUEUE I * P*
0x0546e0…054874 (3, 20) Dummy {f00=0x001b, f01=0x018e, f02=»SA I DISPATCH ADDRESS I * P* ------------------------ & * P* I REGISTER I T * P* I SAVE I * P* I AREA I * P* I 14 I
0x054874…054a08 Dummy {f00=0x001b, f01=0x0190, f02=» h * P* I SAVE01URATION I * P* I TABLE I 6 * P* : : d * P* : : * P* I______________________I 2 P* TASK SAVE01U
0x054a08…054b9c Dummy {f00=0x001b, f01=0x0190, f02=» ------------------------------ 0 P* I INDEX/FILCODE I 0 0 P* ------------------------------ d 0 P* I DWT-ADDRESS I 0 P* ------------------------------ 0 P*
0x054b9c…054d30 Dummy {f00=0x001b, f01=0x0190, f02=»---- h 0 P* I INDEX/FILECODE I 0 P* ------------------------------ @ 0 P* I DWT-ADDRESS I t 0 P* ------------------------------ P EJECT PB:TT EQU * & P CALL FSTAPL
0x054d30…054ec4 Dummy {f00=0x001b, f01=0x0190, f02=»END OF SYSTEM AREA v * P ST P,STKEND+WRK1 SAVE PROGRAM COUNTER : P ST A11,STKEND+LCDSTA SAVE CONFIGURATION DATA POINTER H * P ST P,STKEND+WRK2 SAVE PROGRAM COUNTER P* ( P* GET NUMBER OF TASKS IN THIS CLASS P* P CALL GETTSK . P
0x054ec4…055058 Dummy {f00=0x001b, f01=0x0190, f02=»CHAR p P SLL A5,8 MOVE TO LEFT BYTE * P LC A5,TDBID+5,A11 GET SECOND ID DIGIT 0 2 P ST A5,STKEND+TASKID SAVE TASK ID START VALUE ^ P* " P* CHECK IF CREDIT APPLICATION P* 6 P LD A5,STKEND+APCSTA GET APPLICATION CONTROL BLOCK * P
0x055058…0551ec Dummy {f00=0x001b, f01=0x0190, f02=»ET TASK CLASS TO MATCH VALUE P* $ , P LC A5,TDBMC+4,A11 GET FIRST CHAR IN TCL . P SLL A5,8 MOVE TO LEFT BYTE ^ . P LC A5,TDBMC+5,A11 GET SECOND CHAR IN TCL $ P CALL GETTCL GET TCL START VALUE P ST A5,STKEND+TCLSAV SAVE PBTT21 EQU
0x0551ec…055380 Dummy {f00=0x001b, f01=0x0190, f02=» TO LEFT BYTE 0 P LC A5,TDBTL+5,A11 GET SECOND DIGIT IN LEVEL " P CALL CONVRT CONVERT TO BINARY J P ST A1,STKEND+TSKLEV SAVE p P EJECT P* B P* COMPUTE SIZE OF CONFIGURATION DEPENDENT PART OF TASK TABLE P* & P LDKL A10,TTB:
0x055380…055514 (3, 21) Dummy {f00=0x001b, f01=0x0190, f02=»TH INCLUDED? P RF(NZ) BTT22 NO! 0 P SUKL A10,TTB:AM+2 INCLUDE BIT MAP IN LENGTH . . P SUKL A12,TTB:AM RESERV SPACE FOR BIT MAP b P RF BTT30 PBTT22 LD A5,SCTOPT P SRC A5,1 MMU PAGING? P RF(NN) BTT25 NO . P SUKL A10,TTB:MT+2
0x055514…0556a8 Dummy {f00=0x001b, f01=0x018e, f02=»SC PAGING? P RF(NN) BTT30 NO! 6 P SUKL A10,TTB:CB+2 FOUR WORD EXTRA IF DISC PAGING , 0 P SUKL A12,TTB:CB RESERV SPACE FOR EXTRA WORD f PBTT30 EQU * P EJECT P* < P* COMPUTE SIZE OF TERMINAL DEVICE CLASS DEPENDENT PART " P*
0x0556a8…05583c Dummy {f00=0x001b, f01=0x0190, f02=» 4 P ADKL A9,TDBFST TERMINAL DEVICE CLASS DEFINITION $ P CALL GETTDC GET NUMBER OF TDC:S < P LDR A7,A1 SAVE d PBTT35 EQU * | P RF(Z) BTT40 ( P CALL GETCLN GET CLASS NUMBER (1-99) & P ADR A1,A1 2*(BINARY CLASS NUMBER) , P LD A8,STKEND+
0x05583c…0559d0 Dummy {f00=0x001b, f01=0x0190, f02=»ALL ERROR INDICATE FORMAT ERROR PBTT37 EQU * ( " P ADR A8,A1 GET ENTRY IN TCLASS < $ P LDR* A8,A8 GET POINTER TO CLASS b $ P LDR* A8,A8 GET LENGTH OF CLASS " P SUKL A8,2 EXCLUDE LENGTH WORD ( P ADR A10,A8 ADD TO TOTAL TTAB LENGTH . P ADR
0x0559d0…055b64 Dummy {f00=0x001b, f01=0x0190, f02=» P EJECT PBTT40 EQU * P* * > P* COMPUTE SIZE OF SPECIAL DEVICE CLASS DEPENDENT PART OF 4 P* TASK CONFIGURATION TABLE v P* 6 P CALL GETSDC GET NUMBER OF SPECIAL DEVICE CLASSES P ADKL A9,2 FIRST SDC RECORD P LDR A
0x055b64…055cf8 Dummy {f00=0x001b, f01=0x0190, f02=»RY CLASS NUMBER) ~ , P LD A8,STKEND+SCLA GET POINTER TO SCLASS P LDR* A2,A8 H P SUK A2,2 P CWR A1,A2 n P RF(NG) BTT52 P LDKL A1,LMP4 & P CALL ERROR INDICATE FORMAT ERROR PBTT52 EQU * " P ADR A8,A1 GET ENTRY IN SCLASS
0x055cf8…055e8c Dummy {f00=0x001b, f01=0x0190, f02=»8 ADD TO TOTAL TTAB LENGTH . P ADR A6,A8 ADD TO TASK CONF. TABLE LENGTH " P ADKL A9,SDC NEXT CLASS T ( P SUK A7,1 DECREMENT NUMBER OF SDC:S t P RB BTT50 PBTT55 EQU * P IFF EDM=0 & P ADKL A10,14 7 EXTRA WORDS FOR EDM P XIF
0x055e8c…056020 Dummy {f00=0x001b, f01=0x0190, f02=»ASKS IN THIS CLASS l PBTT60 EQU * P RF(Z) BTT70 . P ST A9,STKEND+WRK3 SAVE A9 B P ST A11,STKEND+WRK4 SAVE A11 d P LDR A9,A10 GET TTAB LENGTH 4 P AD A9,STKEND+SFASAV COMPUTE END OF FREE AREA =2 P ST A9,STKEND+SFASAV =2 0 P LD
0x056020…0561b4 (3, 22) Dummy {f00=0x001b, f01=0x0190, f02=»3 INDICATE MEMORY OVERFLOW P CALL ERROR " & PBTT61 LD A9,STKEND+WRK3 RESTORE A9 6 $ P LD A11,STKEND+WRK4 RESTORE A11 ` P* 8 P* STORE LENGTH OF TASK SAVE01URATION TABLE IN TTAB P* P ST A6,TTB:TD,A12 P* : P* STORE TAS
0x0561b4…056348 Dummy {f00=0x001b, f01=0x0190, f02=» p P* < P* STORE TASK LEVEL IN LEFT BYTE OF PROGRAM STATUS WORD P* R & P SLL A5,10 MOVE LEVEL TO LEFT BYTE P ORKL A5,/00C0 " P LD A2,SCTOPT GET OPTION WORD P ANK A2,1 MMU OPTION? P ORR A5,A2 SET BIT 15 IF MMU $ P ST
0x056348…0564dc Dummy {f00=0x001b, f01=0x0190, f02=»IDENTIFICATION IN TTAB P* * PBTT62 LD A5,STKEND+TASKID GET TASK ID ( $ P ST A5,TTB:ID,A12 STORE IN TTAB V P ADK A5,1 INCREMENT TASK ID ~ 8 P ST A5,STKEND+TASKID SAVE TO NEXT TASK IN SAME CLASS 0 P LD A5,STKEND+APCSTA GET APPL. CONTROL BLO
0x0564dc…056670 Dummy {f00=0x001b, f01=0x0190, f02=»T65 NO P* ( P* STORE TASK CLASS TO MATCH IN TTAB P* D , P LD A5,STKEND+TCLSAV GET TCL START VALUE N " P ST A5,TTB:PP,A12 SAVE IN TTAB ~ P ADK A5,1 INCREMENT TCL P ST A5,STKEND+TCLSAV SAVE PBTT65 EQU * , P STR A12,A7 SA
0x056670…056804 Dummy {f00=0x001b, f01=0x0190, f02=»12,A10 NEXT TTAB ENTRY IN THIS TASK CLASS 6 P SUKL A8,1 DECREMENT NUMBER OF TASKS IN THIS CLASS 2 P RB BTT60 l P EJECT ~ PBTT70 EQU * P* * P* RESET POINTER TO START OF FREE AREA P* P LD A12,STKEND+SFASAV PBTT90 EQ
0x056804…056998 Dummy {f00=0x001b, f01=0x0190, f02=» PBTT95 EQU * " P CALL NXTAPL NEXT APPLICATION P RF(Z) BTT98 > P LD P,STKEND+WRK1 R 0 PBTT98 ST A12,SCTSFA SAVE START OF FREE AREA l P SU A7,SCTTCT COMPUTE LENGTH P ST* A7,SCTTCT STORE P RTN A14 RETURN P IFF SWPBLK=0
0x056998…056b2c Dummy {f00=0x001b, f01=0x0190, f02=»ON INCLUDED ~ P RF(Z) BSWT42 NO 0 P CM STKCOM+APPLNO RESET APPLICATION COUNTER , , P ST P,STKEND+LIMIT SAVE LOCATION COUNTER ` 0 PBSWT05 LDKL A1,'CR' APPLICATION TYPE=CREDIT , P CALL GETAPP GET NEXT CREDIT APPLICATION & P RF(Z) BSWT42 NO MOR
0x056b2c…056cc0 Dummy {f00=0x001b, f01=0x0190, f02=» : P* SEARCH FOR SWB TYPE DEFINITION BLOCK IN CONF. FILE P* F & PBSWT10 CALL NXTBLK GET NEXT BLOCK P ( P CCK A2,'TT' TASK DEFINITION BLOCK? z P RB(E) BSWT10 YES! 0 P CCK A2,'CC' COMMON DEVICE DEFINITION BLOCK? P RF(NE) BSWT20 NO!
0x056cc0…056e54 (3, 23) Dummy {f00=0x001b, f01=0x0190, f02=» ~ P ADKL A11,1 NUMBER OF TYPES P LDR A6,A11 , & P CALL GETNUM NUMBER OF UWB RECORDS @ P LDR A1,A5 SAVE j $ P RF(Z) SWBERR ILLEGAL NUMBER!!! ( P ADKL A11,UDBFST-1 FIRST UWB RECORD ( PBSWT30 ADKL A11,6 BYPASS UWB RECORD $ P SUK A
0x056e54…056fe8 Dummy {f00=0x001b, f01=0x0190, f02=» TYPE DEFINITION BLOCK z P RF(E) BSWT44 YES! ( P LDKL A1,0 NO SWB DEFINITION BLOCK! 8 ( P ST A1,APLSWB,A10 CLEAR SWB POINTER d : P LD P,STKEND+LIMIT PROCESS NEXT CREDIT APPLICATION =2 & PBSWT42 CALL POB RESTORE REGISTERS P RTN A14 & P
0x056fe8…05717c Dummy {f00=0x001b, f01=0x0190, f02=»S x P LDR A5,A5 ZERO? $ P RF(Z) SWBERR ILLEGAL NUMBER!!! " 0 P ST A5,STKEND+NBRSWB SAVE NUMBER OF RECORDS J P ST A5,STKEND+WRK1 SAVE ~ . P LD A8,STKCOM+SWBFLG GET ADDRESS TO $SWAPP P RF(NZ) BSWT48 FILE CREATED " PSWBERR LDKL A1,LMP6
0x05717c…057310 Dummy {f00=0x001b, f01=0x0190, f02=»UNTER l P ADKL A12,2 FIRST POINTER P LDR A10,A12 SAVE 0 $ PBSWT50 ADKL A10,2 BYPASS POINTER J ( P SUK A5,1 DECREMENT NUMBER OF TYPES r P RB(P) BSWT50 P* & P* GET ADDRESS TO S:BTAB PROTOTYPE P* , P LD A2,STKEND+APCSTA G
0x057310…0574a4 Dummy {f00=0x001b, f01=0x0190, f02=»ADDRESS t $ P CALL GETCON GET P:MTAB ADDRESS P LDR A2,A1 SAVE 8 , P ADKL A2,S:BTAB DISPL. TO S:BTAB ADDRESS P $ P CALL GETCON GET S:BTAB ADDRESS * P LDR A2,A1 GET ADDRESS TO PROT. S:BTAB * P RB(Z) SWBERR NO SWB:S IN APPLICATION! P ADK
0x0574a4…057638 Dummy {f00=0x001b, f01=0x018e, f02=»GTH OF PROT. S:BTAB | P LDR A4,A1 SAVE P* 4 2 P* CHECK IF ENOUGTH MEMORY IN FIRST PARTITION > P* t P XRR A2,A2 RESET COUNTER ~ $ PBSWT52 SUK A1,6 DECREMENT LENGTH $ P RF(N) BSWT55 NO MORE SWB-BLOCKS " P ADK A2,1 INCR. BLOCK COUN
0x057638…0577cc Dummy {f00=0x001b, f01=0x0190, f02=» * P LD A11,STKEND+LIMIT GET CURRENT LIMIT " P CALL CMPADR MEMORY OVERFLOW? 2 P RF(NL) BSWT57 NO! X * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW r P CALL ERROR $ PBSWT57 SUK A4,2 SKIP LENGTH WORD " P LDKL A9,0 RESET BLOCK COUNTER , PBSWT60
0x0577cc…057960 Dummy {f00=0x001b, f01=0x0190, f02=»END+NBRSWB NUMBER OF SWB RECORDS 4 PBSWT65 LD A2,STKEND+SWBNAM NAME RECORD IN PROT. ( $ P CALL GETCON GET TWO FIRST CHAR. ` ( P ADKL A11,NAMUWB NAME IN CONF. FILE P LCR A3,A11 GET FIRST CHAR. P SLL A3,8 MOVE TO LEFT BYTE " P LC A3,1,A11
0x057960…057af4 (3, 24) Dummy {f00=0x001c, f01=0x0190, f02=»L GETCON GET THIRD CHAR. P SRL A1,8 ISOLATE CHAR. 0 P LC A3,2,A11 GET THIRD CHAR. FROM CONF. FILE @ P ANK A3,/FF ISOLATE CHAR. t " P CWR A1,A3 THIRD CHAR. EQUAL? P RF(E) BSWT75 YES! $ PBSWT70 ADKL A11,NAMUWB SKIP NAME ( P SUK A7,1
0x057af4…057c88 Dummy {f00=0x001c, f01=0x0190, f02=»IN THIS BLOCK T P* P STR A7,A10 1:ST WORD P ST A7,2,A10 2:ND WORD > P ST A7,4,A10 3:RD WORD P ST A7,6,A10 4:TH WORD z P RF BSWT95 PBSWT75 EQU * P* P* MATCHING NAME FOUND P* . P LD A3,STKEND+WRK1 GET N
0x057c88…057e1c Dummy {f00=0x001c, f01=0x018e, f02=»A11 P LDR A3,A2 SAVE POINTER & P CALL GETNUM GET NUMBER OF COPIES , , P SLL A5,8 NUMBER OF COPIES IN LEFT BYTE V > P OR A5,STKCOM+SWBFSA+2 DISC ADDRESS BITS 0-7 IN RIGHT BYTE " P STR A5,A10 STORE IN SWB BLOCK , P SRL A5,8 NUMBER OF COPIES
0x057e1c…057fb0 Dummy {f00=0x001c, f01=0x0190, f02=» $ P SUK A2,UPNAME PROTOTYPE ADDRESS & P CALL GETCON GET PROTOTYPE ADDRESS , P LDR A2,A1 SAVE V & P SUK A2,UPNAME LENGTH OF WORKBLOCK n P CALL GETCON * P ST A1,SWBLEN,A10 STORE LENGTH OF SWB 0 PBSWT85 LD A3,SWBLEN,A10 GET LENGTH OF BLOCK
0x057fb0…058144 Dummy {f00=0x001c, f01=0x0190, f02=» PBSWT88 IM STKCOM+SWBFSA+2 P CM STKCOM+SWBFSA & PBSWT90 EQU * @ & P ADK A1,1 INCREMENT SECTOR COUNTER T " P SUKL A3,256 DECREMENT LENGTH ~ P RB(P) BSWT86 MOORE SECTORS? P SUK A5,1 MOORE COPIES? P RB(P) BSWT85 YES! * P ST A1
0x058144…0582d8 Dummy {f00=0x001c, f01=0x0190, f02=»M+SWBFSE+2 ( P RF(G) BSWT98 $SWAP-FILE TOO SMALL! P RF(L) BSWT95 > P LD A8,STKCOM+SWBFSA T P CW A8,STKCOM+SWBFSE p ( P RF(G) BSWT98 SWAPP-FILE TOO SMALL! * PBSWT95 ADKL A10,8 START OF NEXT BLOCK P ADKL A12,2 NEXT POINTER & P A
0x0582d8…05846c Dummy {f00=0x001c, f01=0x0190, f02=»S:BTAB l P ST A2,STKEND+SWBNAM SAVE 4 P LD A4,STKEND+SWBTBL GET LENGTH OF PROT. S:BTAB 0 P SUK A4,UP:REC DECREMENT h P RB(P) BSWT60 MOORE TYPES . P LD A8,STKCOM+SWBCNT ANY BLOCKS GENERATED? P RF(Z) BSWT98 NO! . P LD A8,STKEND+WRK1
0x05846c…058600 Dummy {f00=0x001c, f01=0x0190, f02=»FA UPDATE START OF FREE AREA ~ 2 P LD A10,STKEND+APCSTA GET CURRENT ACB ADDRESS $ * P ST* A9,APLSWB,A10 NUMBER OF SWB TYPES Z 6 P LD P,STKEND+LIMIT PROCESS NEXT CREDIT APPLICATION P XIF P IFF MMUPAG+DSKPAG=0 P EJECT 8 P****************
0x058600…058794 (3, 25) Dummy {f00=0x001c, f01=0x0190, f02=»T TABLES * p 8 P* ============================= * 8 P* * X 8 P* REFERENCED IN: SYSLDM * 8 P* *
0x058794…058928 Dummy {f00=0x001c, f01=0x0190, f02=» * 8 P* * 0 8 P* WORK REGISTERS: A1-A14 (THEIR ORIGINAL * l 8 P* CONTENTS ARE SAVED ON STACK * 8 P* AND RESTORED BEF
0x058928…058abc Dummy {f00=0x001c, f01=0x0190, f02=» 8 P* FOR BASIC ONE SEGMENT TABLE AREA/TASK IS * 8 P* RESERVED. THE FIFTH WORD IN EACH SEGMENT TABLE * D 8 P* CONTAINS A POINTER TO THE FIFTH WORD IN NEXT * 8 P* EXCEPT THE LAST CONTAINS A PONTER TO THE FIFTH * 8 P* WORD IN THE N
0x058abc…058c50 Dummy {f00=0x001c, f01=0x0190, f02=»IONS ONE SEGMENT * p 8 P* TABLE PER APPLICATION IS GENERATED. STATUS, * 8 P* DISK ADDRESS AND LENGTH FOR EACH SEGMENT IS * X 8 P* WRITTEN IN CORRESPONDING SEGBLK. THE SEGMENT * 8 P* TABLE ADDRESS IS STORED IN THE TTAB FOR EACH *
0x058c50…058de4 Dummy {f00=0x001c, f01=0x0190, f02=»*************************************** P EJECT 0 PB:STAB EQU * > $ P CALL PUSH SAVE A1-A14 ON STACK R & P CALL FSTAPL GET FIRST APPLICATION z " P LDR A9,P GET LIMIT FOR WRITE < PBST010 LD A10,STKEND+APCSTA SAVE POINTER TO CURRENT ACB .
0x058de4…058f78 Dummy {f00=0x001c, f01=0x0190, f02=»,SCTTCT END OF TCTAB P RF BST040 4 PBST020 LD A2,APLMMC,A2 GET END OF TCTAB ENTRIES . $ PBST040 ST A2,STKEND+TCTEND SAVE f P LDR A8,P 8 PBST045 ADKL A8,BST400-BST045 RELOCATE BRANCH ADDRESS 2 P LD A5,APLMMP,A10 GET CURRENT APPLICATION TY
0x058f78…05910c Dummy {f00=0x001c, f01=0x0190, f02=»TCTAB ENTRY t P CWK A5,'BA' BASIC? P RF(NE) BST050 NO 0 P SUR A2,A8 2*NUMBER OF TASKS J P SRL A2,1 NUMBER OF TASKS n P ST A2,STKEND+WRK1 SAVE P ST A2,APLNPE,A10 SAVE . P LD A3,SCTNOS GET NUMBER OF SEGMENTS/TASK P SLL A3,
0x05910c…0592a0 Dummy {f00=0x001c, f01=0x0190, f02=» AREA f P RF BST090 P EJECT ( PBST050 LD A2,SCTOPT GET OPTION WORD . P ANK A2,1 MMU? Z P RF(Z) BST070 NO p P LDR* A7,A8 GET TTAB ADDRESS P TL TTB:MT,A7 LOAD MMU TABLE * PBST070 LD A2,APLLAC,A10 ADDRESS S:GTAB * P ADK A2,10
0x0592a0…059434 (3, 26) Dummy {f00=0x001c, f01=0x0190, f02=»3 MULTIPLY BY 8 $ P ADK A3,12 INCLUDE 6 FIRST WORDS 0 PBST090 LD A12,SCTSFA GET START OF FREE AREA @ ( P LDR A2,A11 SAVE CONF. DATA POINTER t P LDR A11,A12 SAVE * P ADR A11,A3 END OF SEGMENT TABLE AREA " P CALL CMPADR MEMORY OVERFLOW?
0x059434…0595c8 Dummy {f00=0x001c, f01=0x018e, f02=» FREE AREA j * P LDR A11,A2 RESTORE CONF. DATA POINTER P CWK A5,'BA' BASIC? @ P RF(NE) BST200 NO * P LD A2,STKEND+WRK1 GET NUMBER OF TASKS v . P LD A3,SCTNOS GET NUMBER OF SEGMENTS/TASK 0 P ADK A3,NBRDPS ADD NUMBER OF DATA PAGES/TASK
0x0595c8…05975c Dummy {f00=0x001c, f01=0x0190, f02=» : P ST A12,APLSEG,A10 STORE ADDRESS TO SEGMENT TABLE POOL P EJECT B P* P P* CLEAR SEGMENT TABLE AREA Z P* ~ 0 P LD A2,SCTSFA GET END OF SEGMENT TABLE AREA & PBST110 SUK A2,2 DECREMENT POINTER P CMR A2 CLEAR , P CWR A2,A12
0x05975c…0598f0 Dummy {f00=0x001c, f01=0x0190, f02=» SEGMENT TABLE AREA? | P RF(E) BST400 YES 2 P ADK A2,8 ADDRESS FIFTH WORD IN SEGMENT TABLE 6 2 P ST A2,8,A12 STORE IN PRECEDING SEGMENT TABLE l , P ADR A12,A4 START OF NEXT SEGMENT TABLE P LDR A2,A12 SAVE P RB BST120 0 PBST200 ST A6
0x0598f0…059a84 Dummy {f00=0x001c, f01=0x0190, f02=» Z 0 P LD A3,SCTIPL GET FILE-CODE FOR LOAD DEVICE P STR A3,A12 STORE < ( P ADKL A12,4 ADDRESS SEGMENT BLOCK 0 V P LDR A4,A12 SAVE . PBST210 LDKL A2,/8400 STATUS FOR SEGMENT 0 " P STR A2,A12 STORE IN SEGBLK 0 * P LD A2,APLLAC,A10 GET
0x059a84…059c18 Dummy {f00=0x001c, f01=0x0190, f02=» GET P:BAS " P ST A1,2,A12 STORE IN SEGBLK 0 * P LD A2,APLLAC,A10 GET START OF S:GTAB 8 * P ADK A2,10 ADDRESS NUMBER OF SEGMENTS f ( PBST220 ADKL A12,8 NEXT SEGMENT BLOCK P SUK A6,1 ANY MORE SEGMENTS? P RF(N) BST300 NO P LDK A7,0 IN
0x059c18…059dac Dummy {f00=0x001c, f01=0x018e, f02=» SAVE $ P ANK A3,/FF ISOLATE DISC ADDRESS " P SRL A1,8 ISOLATE SEGMENT TYPE 6 ( P CCK A1,'RR' CORE RESIDENT SEGMENT? P RF(E) BST230 YES " P LD A1,SCTOPT GET OPTION WORD P ANK A1,2 DISC PAGING? P RF(NZ) BST240 YES " P XRR A3,
0x059dac…059f40 Dummy {f00=0x001c, f01=0x0190, f02=» ^ P RF BST270 : PBST230 LDKL A7,/8800 INDICATE CORE RESIDENT AND LOADED * PBST240 ADK A2,2 DISC ADDRESS BIT 8-23 X * P CALL GETCON GET SEGMENT DISC ADDRESS 0 P AD A1,APLADA+2,A10 RELOCATE PART 2 OF D. A. P RF(O) BST250 CARRY P RF
0x059f40…05a0d4 (3, 27) Dummy {f00=0x001c, f01=0x0190, f02=»LOCATE PART 1 OF D. A. v . P CWK A3,255 OVERFLOW IN PART 1 OF D. A. ? P RF(NG) BST270 NO! P ( P LDKL A1,LMP10 INDICATE DEVICE ERROR j P CALL ERROR 2 PBST270 ORR A7,A3 MERGE STATUS AND DISC ADDRESS P STR A7,A12 STORE , P ST A1,2,A12 S
0x05a0d4…05a268 Dummy {f00=0x001c, f01=0x018e, f02=»SEGTAB z & P CM 6,A12 CLEAR PAGEBLOCK POINTER P RB BST220 8 0 PBST300 CW A8,STKEND+TCTEND LAST TCTAB ENTRY? J P RF(E) BST400 YES ~ P LDR* A2,A8 GET TTAB ADDRESS 0 P ST A4,TTB:SP,A2 STORE SEGMENT TABLE POINTER * P ADKL A8,2 INCREMENT POI
0x05a268…05a3fc Dummy {f00=0x001c, f01=0x0190, f02=» l P ABR A9 NEXT APPLICATION PBST410 EQU * ( P CALL POB RESTORE REGISTERS < P RTN A14 RETURN ` P XIF x P IFF SPDVCL+TEDVCL=0 P EJECT L P************************************************************************ J P* B:DWTS
0x05a3fc…05a590 Dummy {f00=0x001c, f01=0x0190, f02=»**** L P* P* REFERENCED IN: MONCON P* 6 , P* ENTRY: SCTSFA - START OF FREE ARE (X) @ 2 P* CONSTA - START OF CONFIGURATION DATA p ( P* SCTEFA - END OF FREE AREA P* P* EXIT: P* P* WORK REGISTERS:
0x05a590…05a724 Dummy {f00=0x001c, f01=0x0190, f02=» & P* GET START OF CONFIGURATION FILE P* 2 & P LD A12,SCTSFA START OF FREE AREA < P* f 6 P* CHECK IF FIRST BLOCK IS A TASK DEFINITION BLOCK p P* & P CALL FSTAPL GET FIRST APPLICATION 0 P ST P,STKEND+LIMIT UPDATE END OF SYSTEM AR
0x05a724…05a8b8 Dummy {f00=0x001c, f01=0x0190, f02=» FIRST TCTAB ENTRY v P SUK A7,2 P EJECT , PDWTS10 EQU * : P* N . P* GET NUMBER OF TASKS IN THIS TASK CLASS X P* P CALL GETTSK PDWTS20 EQU * P ST A1,STKEND+NBRTSK SAVE P* * P* GET CORRESPONDING TASK TABLE
0x05a8b8…05aa4c Dummy {f00=0x001c, f01=0x018e, f02=»+2 TASK DEVICE TABLE ENTRY P* " 0 P* INIT SUB-POINTER IN TASK DEFINITION BLOCK , P* ` . P LDR A9,A11 START OF TASK DEFINITION BLOCK j , P ADKL A9,TDBFST START OF TDC DEFINITION P EJECT P* 4 P* GET NUMBER OF TERMINAL DEVICES IN
0x05aa4c…05abe0 Dummy {f00=0x001c, f01=0x018e, f02=» v P ADR A1,A1 , P LD A8,STKEND+TCLA GET POINTER TO TCLASS P ADR A8,A1 GET CLASS ENTRY J $ P LDR* A8,A8 GET POINTER TO CLASS l $ P LDR* A8,A8 GET LENGTH OF CLASS " P SUKL A8,2 EXCLUDE LENGTH WORD * P ADR A10,A8 INCREMENT POINTER IN TTAB
0x05abe0…05ad74 (3, 28) Dummy {f00=0x001d, f01=0x0190, f02=» P* , P* GET NUMBER OF SPECIAL DEVICE CLASSES P* B P CALL GETSDC L P ADKL A9,SDCFST-CDBNC ` P LDR A1,A1 ~ PDWTS50 EQU * P RF(Z) DWTS90 P ST A1,STKEND+NBRSDC SAVE P* & P* GET SPECIAL DEVICE CLASS NUMBER
0x05ad74…05af08 Dummy {f00=0x001d, f01=0x0190, f02=» LD A6,STKEND+SCLA POINTER TO SCLASS P ADR A6,A1 SELECT ENTRY , $ P LDR* A6,A6 GET POINTER TO CLASS L P LDR A5,A6 SAVE t P LDR* A6,A6 GET LENGTH " P SUK A6,2 EXCLUDE LENGTH WORD PDWTS60 EQU * P ADK A5,4 GET DEVICE ( P LDR* A1
0x05af08…05b09c Dummy {f00=0x001d, f01=0x0190, f02=» P LDR A2,A12 TO-ADDRESS , P ADR A12,A3 UPDATE POINTER TO FREE AREA & P CALL CHKMOV COPY DWT V P EJECT t P* 4 P* RELOCATE MONITOR ECB ADDRESS IF MMU IN SYSTEM P* " P LD A3,SCTOPT GET OPTION WORD P ANK A3,1 MMU IN SYS
0x05b09c…05b230 Dummy {f00=0x001d, f01=0x018e, f02=»WTMEC,A2 GET MONITOR ECB-ADDRESS P SUR A4,A3 RELOCATE ( $ P ANKL A4,/FFFE MAKE EVEN ADDRESS D " P ST A4,DWTMEC,A2 STORE IT BACK l PDWTS65 EQU * $ P LDR A1,A2 DT-ADDRESS TO BE USED PDWTS70 EQU * P* . P* STORE FILE-CODE AND DWT-A
0x05b230…05b3c4 Dummy {f00=0x001d, f01=0x0190, f02=» v 2 P ADKL A10,4 UPDATE TASK CONFIGURATION POINTER PDWTS80 EQU * > * P SUK A6,4 DECREMENT NUMBER OF DEVICES R P RB(P) DWTS60 NEXT DEVICE P EJECT P* 4 P* CHECK IF MOORE SPECIAL DEVICES IN THIS CLASS P* P ADKL A9,SDC
0x05b3c4…05b558 Dummy {f00=0x001d, f01=0x0190, f02=» SAME CONFIGURATION p P* P LD A1,STKEND+NBRTSK & P SUK A1,1 B P RB(P) DWTS20 T P* j , P* CHECK IF MOORE TASK DEFINITION BLOCKS t P* P CALL NXTBLK ( P CCK A2,'TT' TASK DEFINITION BLOCK? P RB(E) DWTS10 YES & P
0x05b558…05b6ec Dummy {f00=0x001d, f01=0x0190, f02=»EA TO BE USED FOR ECHO DEVICE & P* AND TEMPORARY INTERRUPT TABLES & P* P & P LDR A1,P GET LOCATION COUNTER =4 Z 0 PDWTS95 SUK A1,2 DECREMENT MEMORY ADDRESS =4 P CMR A1 CLEAR MEMORY AREA =4 ( P CW A1,SCTSFA ALL WORDS CLEARED? =4 P
0x05b6ec…05b880 Dummy {f00=0x001d, f01=0x0190, f02=»************** n 4 P* B:DWTT - BUILD TERMINAL DEVICE WORK TABLES * 4 P************************************************ N 4 P************************************************ P* P* REFERENCED IN: MONCON P* P* ENTRY: P*
0x05b880…05ba14 (3, 29) Dummy {f00=0x001d, f01=0x0190, f02=»TBLK T P* P EJECT PB:DWTT EQU * $ $ P CM STKEND+FWTFLG CLEAR FWT FLAG 8 $ P LD A1,SCTFWT START OF FWT AREA ` $ P RF(NZ) BDWT15 FWT AREA RESERVED P LD A1,STKEND+LIMIT 8 P ST A1,STKEND+INTTAB START OF T.I.T. IF NO FWT AREA P
0x05ba14…05bba8 Dummy {f00=0x001d, f01=0x0190, f02=»L FSTAPL GET FIRST APPLICATION * P LD A12,SCTSFA GET START OF FREE AREA & P* T B P* INIT TC:TAB ENTRY POINTER TO POINT AT FIRST USER TASK ENTRY ^ P* . P LD A5,APLMMC,A2 GET FIRST USER TASK ENTRY : P ST A5,STKEND+CUTENT STORE IN CURRENT US
0x05bba8…05bd3c Dummy {f00=0x001d, f01=0x0190, f02=»OF TASKS x PBDWT50 EQU * * P ST A1,STKEND+NBRTSK SAVE BINARY VALUE $ P* R @ P* GET NUMBER OF TERMINAL DEVICE CLASSES IN THIS TASK CLASS P* P CALL GETTDC P* $ P* CHECK IF TASK WITHOUT DEVICES P* $ P LDR A1,A1 ANY
0x05bd3c…05bed0 Dummy {f00=0x001d, f01=0x0190, f02=»ET TTAB ADDRESS x 6 P ADKL A10,TTB:TD DISPLACEMENT TO TASK CONF. TABLE P* R ( P* GET TERMINAL DEVICE CLASS NUMBER P* . P LDR A9,A11 START OF TASK DEFINITION BLOCK 4 P ADKL A9,TDBFST TERMINAL DEVICE CLASS DEFINITION PBDWT55 EQU *
0x05bed0…05c064 Dummy {f00=0x001d, f01=0x0190, f02=»ICE CLASS IN TCLASS n P* 6 P LD A2,STKEND+CLANBR GET BINARY VALUE OF CLASS ID & P ADR A2,A2 2*ID ` ( P LD A7,STKEND+TCLA POINTER TO TCLASS x P ADR A7,A2 GET ENTRY $ P LDR* A7,A7 GET POINTER TO CLASS P* @ P* GET LINE CONNECTION
0x05c064…05c1f8 Dummy {f00=0x001d, f01=0x0190, f02=»A1 SAVE BINARY VALUE , P LC A4,TDC+6,A9 GET LINE CONNECTION TYPE $ P CCK A4,'AA' ASCU4Z CONNECTION? L P RF(NE) BDWT58 NO! t . P LDR* A8,A7 YES! GET LENGTH OF THIS CLASS $ P SUKL A8,2 EXCLUSIVE LENGTH WORD P CWK A8,4 ONE DEVICE? P R
0x05c1f8…05c38c Dummy {f00=0x001d, f01=0x0190, f02=»F(E) BDWT58 YES! PBDWT57 EQU * . P ADK A1,1 INCREMENT LINE CONNECTION NUMBER , PBDWT58 EQU * ^ . P ADK A1,1 INCREMENT LINE CONNECTION NUMBER r 4 P CALL BINASC CONVERT INCREMENTED VALUE TO ASCII ( P SC A1,TDC+5,A9 STORE ASCII DIGIT =2 & P
0x05c38c…05c520 Dummy {f00=0x001d, f01=0x0190, f02=» EJECT P* $ P* GENERATE DWT:S FOR THIS CLASS 2 P* A6 - LINE CONNECTION NUMBER (BINARY VALUE) @ , P* A7 - POINTER TO TERMINAL DEVICE CLASS v P* . P* THE ENTRY IN TEMPORARY INTERRUPT TABLE . P* IS DERIVED FROM LINE CONNECTION NUM
0x05c520…05c6b4 (3, 30) Dummy {f00=0x001d, f01=0x0190, f02=»D+NBRTDC GET NUMBER OF TERMINAL DEVICE CLASSES , P SUK A1,1 ANY MOORE IN THIS TASK CLASS? 6 P RF(Z) BDW100 NO f . P ST A1,STKEND+NBRTDC SAVE REMAINING NUMBER ~ $ P ADKL A9,TDC+TLC NEXT TDC RECORD P RB BDWT55 PBDW100 EQU * " P CALL ECHO
0x05c6b4…05c848 Dummy {f00=0x001d, f01=0x0190, f02=»END+CUTENT SAVE : P LD A1,STKEND+NBRTSK GET NUMBER OF TASKS IN THIS CLASS " P SUK A1,1 ANY MOORE TASKS LEFT V P RB(P) BDWT50 YES | , P* CHECK IF MOORE TASK DEFINITION BLOCKS P* $ P CALL NXTBLK SKIP TO NEXT BLOCK ( P CCK A2,'TT' TAS
0x05c848…05c9dc Dummy {f00=0x001d, f01=0x0190, f02=»A12,SCTSFA UPDATE START OF FREE AREA P RTN A14 RETURN , P XIF D P EJECT P , P**************************************** ` , P* B:CDT - BUILD COMMON DEVICE TABLE * , P**************************************** P* P* REFERENCED
0x05c9dc…05cb70 Dummy {f00=0x001d, f01=0x0190, f02=» SCTEFA - END OF FREE AREA P* ( 4 P* EXIT: CDTAB - POINTER TO COMMON DEVICE TABLE 2 P* j P* WORK REGISTERS: A1-A12 t P* < P* SUBROUTINES: NXTBLK,GETCTC,GETLCN,GETSDC,GETCLN,MOVE P* P EJECT PB:CDT EQU *
0x05cb70…05cd04 Dummy {f00=0x001d, f01=0x0190, f02=»OMMON DEVICE DEFINITION BLOCK P* & PCDG:10 EQU * 0 P CALL NXTBLK D ( P CCK A2,'TT' TASK DEFINITION BLOCK? X P RB(E) CDG:10 YES ( P CCK A2,'CC' COMMON DEV. DEF. BLOCK? P RF(NE) BCDTEX NO P EJECT P* : P* RESERVE A
0x05cd04…05ce98 Dummy {f00=0x001d, f01=0x0190, f02=»T OF COMMON DEFINITION BLOCK 6 P ADKL A9,SDCFST NUMBER OF COMMON TERMINAL CLASSES $ & P CALL GETCTC GET NUMBER OF C.T.C. ^ P LDR A6,A1 SAVE " PB:CT10 RF(Z) B:CT30 NO MOORE! . P CALL GETCLN GET CLASS IDENT NUMBER (1-99) , P ADR A1,A1 DISPL
0x05ce98…05d02c Dummy {f00=0x001d, f01=0x0190, f02=»E LENGTH & P CWR A1,A2 MAKE SURE CLASS EXISTS P RF(NG) B:CT20 OK! : P LDKL A1,LMP4 FORMAT ERROR! T P CALL ERROR x , PB:CT20 ADR A1,A5 SELECT ENTRY IN TCLASS $ P LDR* A1,A1 GET POINTER TO CLASS $ P LDR* A1,A1 GET LENGTH OF CLASS
0x05d02c…05d1c0 Dummy {f00=0x001d, f01=0x0190, f02=»UK A6,1 DECR. NBR OF C.T.C. P RB B:CT10 $ P EJECT 6 PB:CT30 EQU * D P* X : P* RESERVE AREA IN COMMON DEVICE TABLE FOR FILE-CODES b 8 P* AND DWT-ADDRESSES USED BY COMMON SPECIAL DEVICES P* P CALL GETSDC P ADKL A9,SDCFS
0x05d1c0…05d354 (3, 31) Dummy {f00=0x001d, f01=0x0190, f02=» POINTER TO SCLASS z P LDR* A2,A5 P SUK A2,2 . P CWR A1,A2 @ P RF(NG) BCDT15 R P LDKL A1,LMP4 h P CALL ERROR ~ PBCDT15 EQU * P ADR A1,A5 SELECT ENTRY $ P LDR* A1,A1 GET POINTER TO CLASS P LDR* A1,A1 GET LENGTH
0x05d354…05d4e8 Dummy {f00=0x001d, f01=0x0190, f02=»T APPLICATION | $ P RB(P) CDG:10 MORE APPLICATIONS? & P CALL FSTAPL GET FIRST APPLICATION > & PB:CT35 CALL NXTBLK GET NEXT BLOCK h ( P CCK A2,'TT' TASK DEFINITION BLOCK? P RB(E) B:CT35 YES P EJECT P* < P* RESERV ENTRIES IN COM
0x05d4e8…05d67c Dummy {f00=0x001d, f01=0x0190, f02=»OMMON DEVICE TABLE FOR t @ P* FILE-CODES AND DWT-ADDRESSES USED FOR DATA COMMUNICATION P* b J P* FILE-CODES AND DWT-ADDRESSES ARE STORED IN THE LAST CLASS IN SCLASS l P* & P LD A1,SCTDCT DATA COMMUNICATION? " P LD A6,SCTDMT DATA MANAGEM
0x05d67c…05d810 Dummy {f00=0x001d, f01=0x0190, f02=»ST SCLASS IF NOT ZERO ~ P RF(Z) CDG:12 NO! , P LD A6,STKEND+SCLA GET POINTER TO SCLASS 8 $ P LDR* A1,A6 GET LENGTH OF SCLASS h " P SUK A1,2 EXCLUDE LENGTH WORD $ P ADR A6,A1 LAST ENTRY IN SCLASS * P LDR* A6,A6 GET POINTER TO LAST CLASS
0x05d810…05d9a4 Dummy {f00=0x001d, f01=0x0190, f02=»QU * P ADK A7,2 P STR A7,A12 P ST A12,SCTCDT 2 P ADR A12,A7 H P ST A11,STKEND+WRK1 SAVE A11 " P LDR A11,A12 GET END OF CDTAB . P LD A9,STKEND+LIMIT GET END OF SYSTEM AREA * P CALL CMPADR CHECK IF MEMORY OVERFLOW P R
0x05d9a4…05db38 Dummy {f00=0x001d, f01=0x0190, f02=» EJECT P* 6 P* INIT POINTER TO START OF FREE AREA AND TO CDTAB P* R ( P LD A10,SCTCDT FIRST ENTRY IN SCTCDT * PCDG:15 LCR A2,A11 GET FIRST CHARACTER . PCDG:16 CCK A2,'TT' TASK DEFINITION BLOCK/ P RF(NE) CDG:17 NO! P CALL
0x05db38…05dccc Dummy {f00=0x001d, f01=0x018e, f02=»E NO COMMON WORK BLOCKS ~ ( PCDG:18 RF(N) CDG:EX CDTAB COMPLETE! & P CALL NXTAPL GET NEXT APPLICATION L $ P RB(P) CDG:15 MORE APPLICATIONS v " P RF CDGEX NO MORE APPLICATIONS PCDG:19 EQU * P* > P* GENERATE DEVICE WORK TABLES FOR COM
0x05dccc…05de60 Dummy {f00=0x001d, f01=0x0190, f02=» & P CALL GETCTC GET NUMBER OF C.T.C. , P LDR A1,A1 ANY COMMON TERMINAL CLASSES? 2 PB:CT40 RF(Z) B:CT50 NO! b P ST A1,STKEND+NBRCOM SAVE ( P CALL GETCLN GET CLASS IDENT NUMBER P ST A1,STKEND+CLASID SAVE , P CALL GETLCN GET LINE
0x05de60…05dff4 (3, 32) Dummy {f00=0x001e, f01=0x0190, f02=» n , P LD A7,STKEND+TCLA GET POINTER TO TCLASS & P ADR A7,A2 SELECT ENTRY IN TCLASS 8 $ P LDR* A7,A7 GET POINTER TO CLASS b . P CALL DWTGEN GENERATE DWT:S FOR THIS CLASS . P ADKL A9,TDC+TLC NEXT RECORD IN CONF. FILE . P LD A1,STKEND+NBRCOM GET N
0x05dff4…05e188 Dummy {f00=0x001e, f01=0x0190, f02=»BER OF SPECIAL DEVICE CLASSES P* & P CALL GETSDC 0 P ADKL A9,SDCFST-CDBNC D P LDR A8,A1 b PCDG:20 EQU * t P RB(NP) CDG:18 P* & P* GET SPECIAL DEVICE CLASS NUMBER P* P CALL GETCLN P* 0 P* GET CORRESP
0x05e188…05e31c Dummy {f00=0x001e, f01=0x0190, f02=»CLASS ~ & P LDR* A5,A6 SAVE POINTER TO CLASS $ P LDR* A6,A6 GET POINTER TO CLASS 8 $ P LDR* A6,A6 GET LENGTH OF CLASS ` " P SUK A6,2 EXCLUDE LENGTH WORD PCDG:30 EQU * P ADK A5,4 NEXT DEVICE P LDR* A1,A5 GET DWT-ADDRESS ( P LD
0x05e31c…05e4b0 Dummy {f00=0x001e, f01=0x0190, f02=»DR A12,A3 UPDATE POINTER TO FREE AREA P CALL CHKMOV COPY DWT . P* L 4 P* RELOCATE MONITOR ECB ADDRESS IF MMU IN SYSTEM V P* " P LD A3,SCTOPT GET OPTION WORD P ANK A3,1 MMU IN SYSTEM? P RF(Z) CDG:35 NO! ( P LDR A3,A1 GET P
0x05e4b0…05e644 Dummy {f00=0x001e, f01=0x0190, f02=» MAKE IT EVEN! P SUR A4,A3 RELOCATE " P ST A4,DWTMEC,A2 STORE IT BACK 2 PCDG:35 EQU * X " P LDR A1,A2 DWT-ADDRESS TO USE l PCDG:40 EQU * P* . P* STORE FILE-CODE AND DWT-ADDRESS IN TTAB P* " P ST A1,4,A10 STORE DWT-ADDRE
0x05e644…05e7d8 Dummy {f00=0x001e, f01=0x0190, f02=»T DEVICE COUNTER ~ P RB(P) CDG:30 NEXT DEVICE P EJECT : P* H , P* CHECK IF MOORE SPECIAL DEVICE CLASSES R P* P ADKL A9,SDC P SUKL A8,1 P RB CDG:20 PCDGEX EQU * " P LD A1,SCTDMT DATA MANAGEMENT $ P LD A5,SCT
0x05e7d8…05e96c Dummy {f00=0x001e, f01=0x0190, f02=» ORR A1,A5 COPY LAST SCLASS IF NOT ZERO P RF(Z) CDG:EX NO! 0 , P LD A5,STKEND+SCLA GET POINTER TO SCLASS J $ P LDR* A1,A5 GET LENGTH OF SCLASS z " P SUK A1,2 EXCLUDE LENGTH WORD P ADR A5,A1 GET LAST ENTRY * P LDR* A5,A5 GET POINTER TO LAS
0x05e96c…05eb00 Dummy {f00=0x001e, f01=0x0190, f02=» ST A12,SCTSFA UPDATE START OF FREE AREA P RTN A14 RETURN 0 P =6 H P EJECT V J P********************************************************************** d H P* DWTGEN - GENERATE DEVICE WORK TABLES FOR A TERMINAL DEVICE CLASS J P**********
0x05eb00…05ec94 (3, 33) Dummy {f00=0x001e, f01=0x018e, f02=» A7 - POINTER TO TERMINAL DEVICE CLASS IN TCLASS * P* A6 - LINE CONNECTION NUMBER @ P* n P* EXIT: x P* P* WORK REGISTERS: A1-A8 P* P* SUBROUTINES: I:CHP,MOVE P* P EJECT PDWTGEN EQU * 4
0x05ec94…05ee28 Dummy {f00=0x001e, f01=0x0190, f02=» n P ADK A7,2 FIRST FILECODE PDWT05 EQU * ( . P LD A1,2,A7 GET ADDRESS OF PROTOTYPE DWT < 2 P LD A6,STKEND+LCNBR GET LINE CONNECTION NUMBER n P* P* CHECK CONNECTION TYPE P* , P LC A4,TDC+6,A9 GET LINE CONNECTION TYPE $ P
0x05ee28…05efbc Dummy {f00=0x001e, f01=0x0190, f02=»DWT10 CCK A4,'AA' ASCU4Z CONNECTION? P RF(NE) DWT07 NO! , . P CALL I:CHAZ INIT CHANEL PARAMETERS ASCU4Z F P RF DWT31 x * PDWT07 CCK A4,'VV' VCCU1/4 CONNECTION? P RF(NE) DWT11 0 P CALL I:CHVC INIT CHANNEL PARAMETERS VCCU1/4 P RF DW
0x05efbc…05f150 Dummy {f00=0x001e, f01=0x018e, f02=»T31 $ PDWT12 CCK A4,'LL' LT CONNECTION? P RF(NE) DWT08 NO! 4 , P CALL I:CHLT INIT CHANNEL PARAMETERS LT N P RF DWT31 ~ $ PDWT08 CCK A4,'RR' RT CONNECTION? P RF(NE) DWT09 NO! =8 . P CALL I:CHRT INIT CHANNEL PARAMETERS RT =8 P R
0x05f150…05f2e4 Dummy {f00=0x001e, f01=0x0190, f02=» P CALL ERROR 6 PDWT06 CALL I:CHRI INIT CHANNEL PARAMETERS RWSI =8 PDWT31 EQU * R P ST A3,STKEND+CONTYP SAVE f P ST A5,STKEND+WRK3 SAVE P ST A6,STKEND+WRK4 SAVE P* 2 P* CHECK IF DWT ALREADY GENERATED ON THIS LINE P
0x05f2e4…05f478 Dummy {f00=0x001e, f01=0x0190, f02=»T13 EQU * P RF(Z) DWT32 6 P LD A3,STKEND+CONTYP GET LINE AND CONNECTION TYPE & P CW A3,-4,A4 EQUAL? ` P RF(Z) DWT15 YES! | PDWT14 EQU * " P LDR* A4,A4 GET NEXT BLOCK =7 ( P SUK A5,1 DECREMENT NUMBER OF BLOCKS P RB DWT13
0x05f478…05f60c Dummy {f00=0x001e, f01=0x0190, f02=»T DEVICE ADDRESS . P LD A3,STKEND+WRK3 GET CHANNEL PARAMETER-2 $ P ANK A3,/003F GET DEVICE ADDRESS J P SUR A3,A6 EQUAL? r P RB(NE) DWT14 NO! & P LD A6,DWTST,A2 GET DEVICE STATUS " P ANK A6,/00C0 GET BITS 8 AND 9 & P LD A3,DWTST,A1 GE
0x05f60c…05f7a0 Dummy {f00=0x001e, f01=0x0190, f02=»E TYPE v $ P ANKL A6,/8000 ISOLATE ECHO BIT $ P LD A3,DWTTAB,A1 GET DEVICE TYPE 6 $ P ANKL A3,/8000 ISOLATE ECHO BIT ^ P SUR A3,A6 EQUAL? P RB(NE) DWT14 NO! P CALL DWT50 P LDKL A1,DWT70 P AD A1,STKCOM+M:REL P ABR A1
0x05f7a0…05f934 (3, 34) Dummy {f00=0x001e, f01=0x0190, f02=»DEVICE TYPE DWT P* P LDR A2,A12 TO-ADDRESS " P LD A3,DWTOR,A1 LENGTH @ P ADR A12,A3 NEXT FREE ENTRY ^ P CALL CHKMOV P EJECT P* $ P* A1 - ADDRESS TO PROTOTYPE DWT P* A2 - ADDRESS TO REAL DWT P* P LD
0x05f934…05fac8 Dummy {f00=0x001e, f01=0x0190, f02=»-2 f P* P* CHECK IF INPUT DEVICE P* 4 P LD A3,2,A1 GET DWT STATUS > P ANK A3,/0040 INPUT DEVICE? ` P RF(Z) DWT45 NO P* P* INPUT DEVICE: P* CHECK IF KEYBOARD P* P LD A3,DWTADR,A1 P LD A3,DEV
0x05fac8…05fc5c Dummy {f00=0x001e, f01=0x0190, f02=» , P* STORE ADDRESS OF KEYBOARD RUNTIME-DWT : P* AND ECHO DEVICE PROTOTYPE-DWT IN ECHO DEVICE TABLE 4 P* r P* | P LD A5,DWTECH,A1 ECHO? P RF(Z) DWT40 NO P AD A5,STKCOM+M:REL : P LD* A3,STKEND+ECHTAB GET LENGTH OF ECHO DEVICE
0x05fc5c…05fdf0 Dummy {f00=0x001e, f01=0x0190, f02=»NGTH x ( P AD A4,STKEND+ECHTAB NEXT FREE ENTRY 8 P STR A2,A4 SAVE RUNTIME DWT-ADDRESS FOR INPUT DEVICE 8 < P ST A5,2,A4 SAVE PROTOTYPE DWT ADDRESS FOR OUTPUT DEVICE t P ADK A3,4 UPDATE LENGTH * P ST* A3,STKEND+ECHTAB SAVE NEW LENGTH P EJECT
0x05fdf0…05ff84 Dummy {f00=0x001e, f01=0x0190, f02=» ADKL A5,DWTSQ DISPLACEMENT TO START OF BUFFER $ P ST A5,DWTSQ-4,A2 STORE POINTER 6 $ P ST A5,DWTSQ-2,A2 STORE POINTER ^ P* P* IF DOUBLE KEYBOARD: D P* ADD 1 TO DWT-ADDRESS AND SAVE IT IN TEMPORARY INTERRUPT TABLE 6 P* IN ENTRY CORRES
0x05ff84…060118 Dummy {f00=0x001e, f01=0x0190, f02=»BITS p $ P RF(Z) DWT60 NOT DOUBLE KEYBOARD $ P LDR A5,A2 GET REAL DWT-ADDRESS 4 P ADK A5,1 ADD ONE * P CALL B:TTAB BUILD ONE BLOCK IN T.I.T. v P SUK A5,1 $ P LDR A2,A5 GET REAL DWT-ADDRESS P RF DWT60 P EJECT PDWT45 CALL
0x060118…0602ac Dummy {f00=0x001e, f01=0x0190, f02=»* THE DEVICE IS TO BE USED FOR ECHOING ON. 6 P* THE ADDRESSES OF THE PROTOTYPE- AND RUNTIME-DWT 4 0 P* IS THEN STORED IN THE ECHO DEVICE TABLE. n P* 0 P LD A5,DWTTAB,A1 GET DEVICE TYPE CHARACTERS , P RF(NN) DWT59 NO ECHOING ON THIS DEVICE
0x0602ac…060440 Dummy {f00=0x001e, f01=0x0190, f02=» x PDWT55 LDR A4,A3 SAVE LENGTH ( P AD A4,STKEND+ECHTAB NEXT FREE ENTRY , . P STR A1,A4 STORE ADDRESS OF PROTOTYPE DWT X , P ST A2,2,A4 STORE ADDRESS OF RUNTIME DWT P ADK A3,4 UPDATE LENGTH * P ST* A3,STKEND+ECHTAB STORE NEW LENGTH P
0x060440…0605d4 (3, 35) Dummy {f00=0x001e, f01=0x018e, f02=»MMU PAGING? P RF(Z) DWT70 P EJECT ( , P LD A5,DWTMEC,A2 GET MONITOR ECB ADDRESS 6 ( P LDR A4,A1 GET PROTOTYPE DWT-ADDRESS f * P SUR A4,A2 COMPUTE RELOCATION CONSTANT , P SUR A5,A4 RELOCATE MONITOR ECB ADDRESS $ P ANKL A5,/FFFE MAKE EVEN
0x0605d4…060768 Dummy {f00=0x001e, f01=0x0190, f02=» & P LD A5,DWTADR,A2 GET ADDRESS BLOCK 2 P LD A4,BUFLEN,A5 GET LENGTH OF INTERNAL BUFFER . $ P RF(Z) DWT70 ALLOCATE NO BUFFER! d P* L P* ALLOCATE INTERNAL BUFFER AND STORE ADDRESS IN SECOND WORD OF INTERNAL P* , P LD A5,DWTMEC,A2 GET MON
0x060768…0608fc Dummy {f00=0x001e, f01=0x0190, f02=» ST A3,2,A5 SAVE P LDR A3,A4 GET LENGTH & P ADK A3,3 ADD BO FERMS CONSTANT+1 8 , P ANKL A3,/FFFE MAKE SURE OF EVEN LENGTH b P EJECT P* 4 P* CHECK IF INTERNAL BUFFER SIZE IS GREATER THAN 6 P* THE SIZE OF BUFFER RESERVED FOR SYS
0x0608fc…060a90 Dummy {f00=0x001e, f01=0x0190, f02=»W A3,STKCOM+BUFSIZ P RF(NG) DWT65 P ST A3,STKCOM+BUFSIZ 2 P ST A12,STKCOM+SYSBUF N PDWT65 EQU * l P ADR A12,A3 NEXT FREE ENTRY P EJECT PDWT70 EQU * P* . P* STORE FILE-CODE AND DWT-ADDRESS IN TTAB P*
0x060a90…060c24 Dummy {f00=0x001e, f01=0x0190, f02=»2 NEXT ENTRY IN TTAB " P STR A2,A10 STORE DWT-ADDRESS P* B , P* CHECK IF MOORE DEVICES IN THIS CLASS L P* | P SUKL A8,4 P RF(Z) DWTEX P ADK A7,4 NEXT DEVICE P LDKL A1,DWT05 P AD A1,STKCOM+M:REL P ABR A1
0x060c24…060db8 Dummy {f00=0x001e, f01=0x018e, f02=» FIRST POINTER IN ONE POINTER-SET 4 P* AND SECOND POINTER IN THE OTHER POINTER-SET: * 0 P* STORE SECOND POINTER OF FIRST POINTER-SET b 2 P* IN RUNTIME-DWT POINTED AT BY FIRST POINTER 2 P* OF SECOND POINTER-SET AND CLEAR POINTERS OF P* SEC
0x060db8…060f4c Dummy {f00=0x001e, f01=0x0190, f02=» > PECHO LD* A3,STKEND+ECHTAB GET LENGTH OF ECHO DEVICE TABLE " P RF(Z) DWT160 NO ECHO DEVICES! F : P AD A3,STKEND+ECHTAB COMPUTE END OF ECHO DEVICE TABLE l 8 P LD A1,STKEND+ECHTAB GET START OF ECHO DEVICE TABLE P ADK A1,2 BYPASS LENGTH < PDW
0x060f4c…0610e0 Dummy {f00=0x001e, f01=0x0190, f02=»RST SET f > PDWT110 CWR* A4,A2 COMPARE WITH FIRST POINTER IN SECOND SET P RF(E) DWT130 COINCIDENCE! R P ADK A2,4 NEXT POINTER-SET t ( P CWR A2,A3 END OF ECHO DEVICE TABLE $ P RB(NE) DWT110 NO:CHECK NEXT SET P RF DWT140 : PDWT130 LD A4
0x0610e0…061274 (3, 36) Dummy {f00=0x001f, f01=0x0190, f02=»ADDRESS TO ECHO-DEVICE r P CMR A1 CLEAR FIRST POINTER " P CM 2,A1 CLEAR SECOND POINTER B $ PDWT140 ADK A1,4 NEXT POINTER-SET h ( P CWR A1,A3 END OF ECHO DEVICE TABLE P RB(NE) DWT90 NO! * PDWT150 CM* STKEND+ECHTAB CLEAR LENGTH PDWT1
0x061274…061408 Dummy {f00=0x001f, f01=0x0190, f02=»TAB - BUILD REAL-TIME INTERRUPT TABLE * 2 P********************************************** 0 P* f P* REFERENCED IN: DWTGEN p P* * P* ENTRY: SCTSFA - START OF FREE AREA P* , P* EXIT: REAL TIME INTERRUPT TABLES FOR 2 P*
0x061408…06159c Dummy {f00=0x001f, f01=0x0190, f02=»NTERRUPT TABLES r 0 P LD A1,STKEND+FWTFLG T.I.T. IN FREE AREA? =7 P RF(P) B:ITLT YES? =7 L 4 P ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA =7 j P LDR A1,P =7 PBIT05 EQU * =7 * P SUK A1,2 DECREMENT MEMORY ADDRESS =7 P CMR A1 CL
0x06159c…061730 Dummy {f00=0x001f, f01=0x0190, f02=»TABLES FOR LT t P* P XIF PB:ITLT EQU * , P IFF SUML=0 @ $ P LDKL A8,0 CONNECTION TYPE = LT T P LDKL A9,7 1:ST BOARD | . P LDK A1,16 MAX.LENGTH OF BOARD CONF. TABLE P ST A1,STKEND+WRK4 SAVE P CM STKEND+WRK1 CLEAR
0x061730…0618c4 Dummy {f00=0x001f, f01=0x018e, f02=»WRK2 GET INDEX IN MONTAB " P LD A2,STKEND+WRK3 ANY LINES? P RF(Z) BIT15 NO! F P CM STKEND+WRK3 CLEAR ^ : P LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONF. TABLE | P ST A2,INTLT1,A1 SAVE PBIT15 EQU * P ADK A1,2 & P ST A1,STK
0x0618c4…061a58 Dummy {f00=0x001f, f01=0x0190, f02=» x P RF(G) B:ITRT YES! P RB BIT10 " P XIF 4 P EJECT @ P* N . P* BUILD REAL-TIME INTERRUPT TABLES FOR RT X P* PB:ITRT EQU * P IFF SUMR=0 $ P LDKL A8,1 CONNECTION TYPE = RT P LDKL A9,3 1:ST BOARD . P LDK A
0x061a58…061bec Dummy {f00=0x001f, f01=0x0190, f02=» CM STKEND+WRK3 CLEAR PBRT10 EQU * P CALL B:BTAB 2 P CALL B:LTAB F * P LD A1,STKEND+WRK2 GET INDEX IN MONTAB Z " P LD A2,STKEND+WRK3 ANY LINES? P RF(Z) BRT15 NO! P CM STKEND+WRK3 CLEAR : P LD A2,STKEND+BRDTAB GET ADDRESS TO
0x061bec…061d80 Dummy {f00=0x001f, f01=0x0190, f02=» ADKL A9,1 P ST A9,STKEND+WRK1 STORE P ADKL A9,3 NEXT BOARD 2 P CWK A9,15 LAST BOARD? P P RF(G) B:ITPC YES! n P RB BRT10 P XIF P EJECT P* 4 P* BUILD REAL-TIME INTERRUPT TABLES FOR PLC-LOCAL P* PB:ITPC E
0x061d80…061f14 (3, 37) Dummy {f00=0x001f, f01=0x0190, f02=»F.TABLE =2 n P ST A1,STKEND+WRK4 P LDK A1,1 =2 , P ST A1,STKEND+WRK1 =2 B P CM STKEND+WRK2 CLEAR ` P CM STKEND+WRK3 CLEAR ~ PBPC10 EQU * P CALL B:BTAB P CALL B:LTAB * P LD A1,STKEND+WRK2 GET INDEX IN MONTAB " P L
0x061f14…0620a8 Dummy {f00=0x001f, f01=0x0190, f02=»ION TABLE P ST A2,INTPL1,A1 SAVE PBPC15 EQU * 0 P ADK A1,2 D & P ST A1,STKEND+WRK2 STORE NEW INDEX V P ADKL A9,1 P ST A9,STKEND+WRK1 P ADKL A9,31 NEXT BOARD P CWK A9,128 LAST BOARD? P RF(G) B:ITPR YES! =8 P
0x0620a8…06223c Dummy {f00=0x001f, f01=0x0190, f02=» P IFF PLCR=0 * P LDKL A8,6 CONNECTION TYPE=PLC-REMOTE P LDKL A9,32 1:ST BOARD J 0 P LDK A1,66 MAX LENGHT OF BOARD CONF.TABLE =2 h P ST A1,STKEND+WRK4 P LDK A1,1 =2 P ST A1,STKEND+WRK1 =2 P CM STKEND+WRK2 CLEAR P
0x06223c…0623d0 Dummy {f00=0x001f, f01=0x0190, f02=» LD A2,STKEND+WRK3 ANY LINES? P RF(Z) BPR15 NO! ! & P CM STKEND+WRK3 ! > B P LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONFIGURATION TABLE ! V P ST A2,INTPR1,A1 SAVE ! PBPR15 EQU * ! P ADK A1,2 ! & P ST A1,STKEND+WRK2 STORE NEW INDEX !
0x0623d0…062564 Dummy {f00=0x001f, f01=0x0190, f02=»B BPR10 ! P XIF " P EJECT " P " * P* " 2 2 P* BUILD REAL-TIME INTERRUPT TABLES FOR VCCU1/4 " < P* " r PB:ITVU EQU * " | P IFF VIDEO=0 " ( P LDKL A8,7 CONNECTION TYPE = VCCU1/4 " P LDKL A9,3 1:ST BOARD " . P LDK A1,8 MAX.LENGTH OF BO
0x062564…0626f8 Dummy {f00=0x001f, f01=0x0190, f02=»R " | PBVU10 EQU * # P CALL B:BTAB # P CALL B:LTAB # 2 * P LD A1,STKEND+WRK2 GET INDEX IN MONTAB # F " P LD A2,STKEND+WRK3 ANY LINES? # t P RF(Z) BVU15 NO! # P CM STKEND+WRK3 CLEAR # : P LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONF. TABLE #
0x0626f8…06288c Dummy {f00=0x001f, f01=0x0190, f02=»T A9,STKEND+WRK1 STORE # P ADKL A9,3 NEXT BOARD $ P CWK A9,31 LAST BOARD? $ < P RF(G) B:ITSZ YES! $ Z P RB BVU10 $ t P XIF $ P $ P EJECT $ P* $ 2 P* BUILD REAL-TIME INTERRUPT TABLES FOR SALCUZ $ P* $ PB:ITSZ EQU * $ P I
0x06288c…062a20 Dummy {f00=0x001f, f01=0x0190, f02=» $ f P ST A1,STKEND+WRK4 % P CM STKEND+WRK1 CLEAR % " P CM STKEND+WRK2 CLEAR % @ P CM STKEND+WRK3 CLEAR % ^ PBSZ10 EQU * % | P CALL B:BTAB % P CALL B:LTAB % * P LD A1,STKEND+WRK2 GET INDEX IN MONTAB % " P LD A2,STKEND+WRK3 ANY LINES? %
0x062a20…062bb4 (3, 38) Dummy {f00=0x001f, f01=0x0190, f02=» PBSZ15 EQU * & P ADK A1,2 & & P ST A1,STKEND+WRK2 STORE NEW INDEX & * P ADKL A9,1 & T P ST A9,STKEND+WRK1 & f P CWK A9,7 LAST BOARD? & P RF(G) B:ITAZ YES! & P RB BSZ10 & P XIF & P EJECT & P* & 2 P* BUILD REAL-TIME INTERRUP
0x062bb4…062d48 Dummy {f00=0x001f, f01=0x0190, f02=»:ST BOARD & . P LDK A1,8 MAX. LENGTH OF BOARD CONF.TABLE ' P ST A1,STKEND+WRK4 ' D P CM STKEND+WRK1 CLEAR ' ^ P CM STKEND+WRK2 CLEAR ' | P CM STKEND+WRK3 CLEAR ' PBAZ10 EQU * ' P CALL B:BTAB ' P CALL B:LTAB ' * P LD A1,STKEND+WRK2 G
0x062d48…062edc Dummy {f00=0x001f, f01=0x0190, f02=»SS TO BOARD CONFIGURATION TABLE ' r P ST A2,INTAS1,A1 SAVE ( ( PBAZ15 EQU * ( F P ADK A1,2 ( Z & P ST A1,STKEND+WRK2 STORE NEW INDEX ( l P ADKL A9,1 ( P ST A9,STKEND+WRK1 ( P ADKL A9,3 NEXT BOARD ( P CWK A9,31 LAST BOARD? ( P RF(G) BAZ
0x062edc…063070 Dummy {f00=0x001f, f01=0x0190, f02=»***** ( h 2 P* I:CHSZ - INIT CHANNEL PARAMETERS SALCUZ * ) 2 P********************************************* ) D P* ) z P* REFERENCED IN: DWTGEN ) P* ) , P* ENTRY: A1 - POINTER TO PROTOTYPE DWT ) ( P* A2 - POINTER TO REAL DWT ) *
0x063070…063204 Dummy {f00=0x001f, f01=0x018e, f02=»R - 2 ) p . P* A3 - BITS 12-15 CONNECTION TYPE * * P* BITS 4 -11 LINE NUMBER * @ P* WORK REGISTERS: * n P* * P* SUBROUTINES: * P* * PI:CHSZ EQU * * P IFF SALCUZ=0 * $ P CWK A6,8 CONNECTION NUMBER <=8? * P R
0x063204…063398 Dummy {f00=0x001f, f01=0x018e, f02=» 0 P LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT + $ P ANK A5,/3F CLEAR BITS TO MODIFY + 8 0 P LDR A3,A6 GET MODIFY LINE CONNECTION NUMBER + ` " P SLL A3,4 MOVE TO BITS 4 - 11 + ( P ADK A3,2 ADD CONNECTION TYPE SALCUZ + . P ADKL A6,/0200 ADD CONNECTION TYPE
0x063398…06352c Dummy {f00=0x001f, f01=0x0190, f02=» + : P***************************************************** , 2 P* I:CHAZ - INIT CHANNEL PARAMETERS ASCU4Z * , F : P***************************************************** , | P* , P* REFERENCED IN: DWTGEN , P* , , P* ENTRY: A1 - POINTER TO
0x06352c…0636c0 Dummy {f00=0x001f, f01=0x0190, f02=»CTION NUMBER , v P* - * P* EXIT: A6 - CHANNEL PARAMETER - 1 - * P* A5 - CHANNEL PARAMETER - 2 - L . P* A3 - BITS 12-15 CONNECTION TYPE - z * P* BITS 4-11 LINE NUMBER - P* - P* WORK REGISTERS: - P* - P
0x0636c0…063854 (3, 39) Dummy {f00=0x001f, f01=0x0190, f02=» - ~ $ P CWK A6,1 CONNECTION NUMBER >=1? . P RF(L) NUMERR NO! . 0 , P SUK A6,1 MODIFY LINE CONNECTION NUMBER . J 0 P LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT . z $ P ANK A5,/3F CLEAR BITS TO MODIFY . 0 P LDR A3,A6 GET MODIFY LINE CONNECTION NUMBER .
0x063854…0639e8 Dummy {f00=0x001f, f01=0x0190, f02=»IFIED LINE CONNECTION NUMBER . ~ P SLL A3,4 / $ , P ANK A6,/1C GET BITS 11-13 BOARD NUMBER / 6 P SRL A6,2 MOVE TO BITS 12-15 / f ( P ADK A3,3 ADD CONNECTION TYPE ASCU4Z / . P ADKL A6,/0300 ADD CONNECTION TYPE ASCU4Z / P RTN A14 / P XIF / P IFT
0x0639e8…063b7c Dummy {f00=0x001f, f01=0x0190, f02=»*** / ^ 2 P* I:CHAZ - INIT CHANNEL PARAMETERS VCCU1/4 * 0 : P***************************************************** 0 B P* 0 P* REFERENCED IN: DWTGEN 0 P* 0 , P* ENTRY: A1 - POINTER TO PROTOTYPE DWT 0 ( P* A2 - POINTER TO REAL DWT
0x063b7c…063d10 Dummy {f00=0x001f, f01=0x0190, f02=»METER - 1 0 t * P* A5 - CHANNEL PARAMETER - 2 1 . P* A3 - BITS 12-15 CONNECTION TYPE 1 @ * P* BITS 4-11 LINE NUMBER 1 r P* 1 P* WORK REGISTERS: 1 P* 1 P* SUBROUTINES: 1 P* 1 PI:CHVC EQU * 1 P IFF
0x063d10…063ea4 Dummy {f00=0x001f, f01=0x0190, f02=»R NO! 1 , P SUK A6,1 MODIFY LINE CONNECTION NUMBER 2 0 P LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT 2 > $ P ANK A5,/3F CLEAR BITS TO MODIFY 2 r 0 P LDR A3,A6 GET MODIFY LINE CONNECTION NUMBER 2 P ANK A3,3 GET BITS 14-15 2 & P SLL A3,8 MOVE TO BITS TO
0x063ea4…064038 Dummy {f00=0x001f, f01=0x0190, f02=»6,/1C GET BITS 11-13 BOARD NUMBER 2 P SRL A6,2 MOVE TO BITS 12-15 3 * * P ADK A3,7 ADD CONNECTION TYPE VCCU1/4 3 N . P ADKL A6,/0700 ADD CONNECTION TYPE VCCU1/4 3 | P RTN A14 3 P XIF 3 P IFT VIDEO=0 3 P LDKL A1,LMP4 3 P CALL ERROR 3 P
0x064038…0641cc Dummy {f00=0x001f, f01=0x0190, f02=»********************************** 3 P* 4 * P* REFERENCED IN: DWTGEN 4 4 P* 4 T , P* ENTRY: A1 - POINTER TO PROTOTYPE DWT 4 ^ ( P* A2 - POINTER TO REAL DWT 4 * P* A6 - LINE CONNECTION NUMBER 4 P* 4 * P* EXIT: A6 - CHANNE
0x0641cc…064360 Dummy {f00=0x001f, f01=0x0190, f02=»BITS 4 -11 LINE NUMBER 4 P* 5 P* WORK REGISTERS: 5 ( P* SUBROUTINES: 5 B P* 5 Z PI:CHPC EQU * 5 d P IFF PLCL=0 5 x ( P CWK A6,128 CONNECTION NUMBER <=128? 5 P RF(G) NUMERR NO! 5 $ P CWK A6,1 CONNECTION NUMBER >=1? 5 P RF(L) NUMERR
0x064360…0644f4 (3, 40) Dummy {f00=0x0020, f01=0x0190, f02=» LINE CONNECTION NUMBER 5 P ANK A3,/1F GET BITS 11 - 15 6 P ADK A3,1 6 D P SLL A3,8 MOVE TO BITS 2 - 7 6 V & P ORR A5,A3 MERGE WITH OLD CONTENTS 6 z * P LDR A3,A6 GET LINE CONNECTION NUMBER 6 P ADK A3,1 6 " P SLL A3,4 MOVE TO BITS 4 - 11 6 &
0x0644f4…064688 Dummy {f00=0x0020, f01=0x0190, f02=»A6,/0500 ADD CONNECTION TYPE PLC 6 P RTN A14 7 ( P XIF 7 8 P IFT PLCL=0 7 D P LDKL A1,LMP4 7 X P CALL ERROR 7 n P XIF 7 P EJECT 7 . P****************************************** 7 2 P* I:CHPC - INIT CHANNEL PARAMETERS RWSI * =8 7 . P****
0x064688…06481c Dummy {f00=0x0020, f01=0x0190, f02=»WT 7 j ( P* A2 - POINTER TO REAL DWT 8 * P* A6 - LINE CONNECTION NUMBER 8 6 P* 8 d * P* EXIT: A6 - CHANNEL PARAMETER - 1 8 n * P* A5 - CHANNEL PARAMETER - 2 8 . P* A3 - BITS 12-15 CONNECTION TYPE 8 * P*
0x06481c…0649b0 Dummy {f00=0x0020, f01=0x0190, f02=» 8 ( P CWK A6,128 CONNECTION NUMBER <=128? 9 P RF(G) NUMERR NO! 9 4 $ P CWK A6,1 CONNECTION NUMBER >=1? 9 N P RF(L) NUMERR NO! 9 v P SUK A6,1 9 0 P LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT 9 $ P ANK A5,/3F CLEAR BITS TO MODIFY 9 * P LDR A3,A6
0x0649b0…064b44 Dummy {f00=0x0020, f01=0x0190, f02=» MERGE WITH OLD CONTENTS 9 * P LDR A3,A6 GET LINE CONNECTION NUMBER : P ADK A3,1 : N " P SLL A3,4 MOVE TO BITS 4 - 11 : ` , P ADK A3,6 ADD CONNECTION TYPE PLC-REMOTE : , P ANK A6,/60 GET BITS 9 - 10 BOARD NUMBER : " P SRL A6,5 MOVE TO BITS 12 - 15 :
0x064b44…064cd8 Dummy {f00=0x0020, f01=0x0190, f02=»ERROR : r P CALL ERROR ; P EJECT ; " * P************************************* ; 0 . P* I:CHLT - INIT CHANNEL PARAMETERS LT * ; ^ * P************************************* ; P* ; P* REFERENCED IN: DWTGEN ; P* ; , P* ENTRY: A1 - POINTE
0x064cd8…064e6c Dummy {f00=0x0020, f01=0x0190, f02=» A6 - CHANNEL PARAMETERS -1 ; * P* A5 - CHANNEL PARAMETERS -2 < $ . P* A3 - BITS 12-15 CONNECTION TYPE < R * P* BITS 4-11 LINE NUMBER < P* < P* WORK REGISTERS: < P* < P* SUBROUTINES: < P* < P EJECT
0x064e6c…065000 Dummy {f00=0x0020, f01=0x0190, f02=»ONNECTION NUMBER >=01? < P RB(L) NUMERR NO =8! = , P SUK A6,1 MODIFY LINE CONNECTION NUMBER = : 0 P LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT = j ( P ANKL A5,/003F CLEAR BITS TO MODIFY = 2 P LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER = P ANK A3,
0x065000…065194 (3, 41) Dummy {f00=0x0020, f01=0x0190, f02=»ION NUMBER = l P SLL A3,4 > P ANK A6,/18 GET BITS 11-12 > $ P SRL A6,3 MOVE TO BITS 14-15 > F P RTN A14 > j P XIF > z P IFT SUML=0 > P LDKL A1,LMP4 > P CALL ERROR > P XIF > P EJECT > . P*****************************************
0x065194…065328 Dummy {f00=0x0020, f01=0x018e, f02=»DWTGEN > ~ P* ? , P* ENTRY: A1 - POINTER TO PROTOTYPE DWT ? ( P* A2 - POINTER TO REAL DWT ? H * P* A6 - LINE CONNECTION NUMBER ? t P* ? * P* EXIT: A6 - CHANNEL PARAMETERS - 1 ? * P* A5 - CHANNEL PARAMETERS - 2 ? . P
0x065328…0654bc Dummy {f00=0x0020, f01=0x0190, f02=» ? P* SUBROUTINES: @ P* @ P EJECT @ * PI:CHRT EQU * @ 8 P IFF SUMR=0 @ L * P CWK A6,0016 CONNECTION NUMBER <= 16? @ ` P RB(G) NUMERR NO =8! @ ( P CWK A6,0001 CONNECTION NUMBER >=1? @ P RB(L) NUMERR NO =8! @ , P SUK A6,1 MODIFY LINE
0x0654bc…065650 Dummy {f00=0x0020, f01=0x0190, f02=» MODIFIED LINE CONNECTION NUMBER @ P ANK A3,3 GET BITS 14-15 A ( P SLL A3,8 MOVE TO BITS 6-7 A H & P ORR A5,A3 MERGE WITH OLD CONTENTS A j 2 P LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER A P SLL A3,4 A $ P ADK A3,1 ADD CONNECTION TYPE RT A P ANK
0x065650…0657e4 Dummy {f00=0x0020, f01=0x0190, f02=» P IFT SUMR=0 =8 B P LDKL A1,LMP4 B P CALL ERROR B 0 P XIF =8 B D P IFT DC=1 B T P EJECT B f < P******************************************************* B t < P* * B < P* B:CNA BUILD COM
0x0657e4…065978 Dummy {f00=0x0020, f01=0x0190, f02=» * B t < P* SCANS POSSIBLE D-BLOCK IN CONFIGURATION DATA * C $ < P* AND BUILDS DATA COMMUNICATION TABLE IN MEMORY. * C d < P* TABLE START IS DEFINED BY THE POINTER SCTDCT * C < P* IN SYSTAB.
0x065978…065b0c Dummy {f00=0x0020, f01=0x0190, f02=»SYSLOD) * C d < P* * D < P* REFERENCED IN: CONMON * D T < P* SUBROUTINES CALLED: GETDTE, P:DTE * D < P* WORK REGISTERS: A1-A12
0x065b0c…065ca0 Dummy {f00=0x0020, f01=0x0190, f02=» P E P E PB:CNA EQU * E P LD A11,DCBLK+STKCOM E 0 * P RF(Z) B:CN20 NO DATA COMMUNICATION =1 E L P* E z < P AD A11,CONSTA+STKCOM GET D BLOCK ADDRESS IN CONF. DATA E * P LD A12,SCTSFA GET START OF FREE AREA E ( P ST A12,SCTDCT UPDATE
0x065ca0…065e34 (3, 42) Dummy {f00=0x0020, f01=0x0190, f02=»E TO START OF SDTE RECORD E ~ PB:CN00 EQU * F " P SUK A1,1 F 6 2 P RF(N) B:CN10 NO DTE BLOCKS LEFT IN CONF. DATA F H P* F ~ . P ST A1,NUMDTE+STKEND SAVE NO OF DTE:S LEFT F , P ADKL A11,5 ADVANCE TO 1ST CHAR. IN NAME F & P CALL P:DTE PROCESS THIS DTE B
0x065e34…065fc8 Dummy {f00=0x0020, f01=0x0190, f02=» PB:CN10 EQU * G P CM 0,A12 AND RESET IT G P ADKL A12,2 G 6 , P ST A12,SCTSFA UPDATE START OF FREE AREA G J PB:CN20 EQU * =1 G z P RTN A14 G P EJECT G < P******************************************************* G < P*
0x065fc8…06615c Dummy {f00=0x0020, f01=0x0190, f02=»==================== * G r < P* * H " < P* SCANS DTE BLOCK IN CONF. DATA AND BUILDS CORRE- * H b < P* SPONDING DTE-BLOCK IN SCTDCT. IF MULTIPLE COPIES * H < P* ARE DEFINED CURRENT DTE IS DUPLICA
0x06615c…0662f0 Dummy {f00=0x0020, f01=0x018e, f02=» * H b < P* ON ENTRY: A11 ADDRESS TO 1ST CHARACTER IN * I < P* SDTE NAME IN CONF. DATA * I R < P* A12 POINTER TO START OF CURRENT * I < P* DTE BLOCK IN SCTDCT TABLE
0x0662f0…066484 Dummy {f00=0x0020, f01=0x0190, f02=» < P* PROCESSED DTE-BLOCK IN CONF. DATA * J < P* A12 POINTER TO LAST DEFINED DTE-BLOCK * J D < P* DEFINED IN SCTDCT TABLE * J < P* * J < P*
0x066484…066618 Dummy {f00=0x0020, f01=0x0190, f02=» AND MOVE * J < P* * K 4 < P******************************************************* K t P K P K PP:DTE EQU * K * P LDKL A1,/3000 INITIALIZE NAME FILLER K
0x066618…0667ac Dummy {f00=0x0020, f01=0x0190, f02=» START OF TYPE RECORD? K P RF(E) PDTE00 YES! L P* L 8 & P SLL A1,8 NO LEFT ADJUST CHAR. AND L B $ P LC A1,1,A11 GET NEXT CHARACTER L l P ADKL A11,1 L PPDTE00 EQU * L , P ST A1,DTENAM+STKEND SAVE NAME IN STACK L " P CALL GETCOP GET NO OF COPIE
0x0667ac…066940 Dummy {f00=0x0020, f01=0x0190, f02=»YPE IDENTIFIER L P LC A1,2,A11 M & P ST A1,DTETYP+STKEND SAVE IN STACK M * P ADKL A11,2 M T ( P LDK A2,0 RESET NETWORK ADDR. LENGTH M h P CALL ENDBLK END OF D-BLOCK? M P LDR A8,A8 M P RF(Z) PDTE05 YES! M P* M . P LC A7,NANSA,A11 GET NA-NS
0x066940…066ad4 (3, 43) Dummy {f00=0x0020, f01=0x0190, f02=»NA M h & P ST A11,NASTRT+STKEND SAVE ADDRESS N & P CALL P:NA PROCESS NETWORK ADDRESS N 4 P LC A7,2,A11 N ^ PPDTE05 EQU * N r * P ST A2,NALNG+STKEND SAVE LENGTH OF NA N P LDK A1,0 N P CALL ENDBLK END OF D-BLOCK? N P LDR A8,A8 N P RF(Z) PDTE0
0x066ad4…066c68 Dummy {f00=0x0020, f01=0x0190, f02=» P CALL GETNSA O * P ADKL A11,2 SKIP NSA NR IN CONF. DATA O PPDTE07 EQU * O F 2 P ST A1,DTENSA+STKEND SAVE NO OF SUBADDR. DEF. O Z $ P CWK A1,/FF LOOK IF LEGAL NUMBER O P RF(NG) PDTE10 YES! O P* O PNSAERR EQU * O * P LDKL A1,LMP4 NO, ERRO
0x066c68…066dfc Dummy {f00=0x0020, f01=0x0190, f02=»1,NSAADR+STKEND SAVE ADDR. OF 1ST SUBADDR. O P SLL A1,1 P 2 . P ADR A11,A1 CALCULATE STAT OF NEXT RECORD P D PPDTE15 EQU * P v 2 P CALL DTESIZ CALCULATE SIZE OF THIS DTE BLOCK P ( P CALL UPDDTE UPDATE DTE BLOCK IN DCT P * P LD A7,DTECOP+STKEND GET NO
0x066dfc…066f90 Dummy {f00=0x0020, f01=0x0190, f02=»ONSTANT P p * P LD A4,DTENAM+STKEND GET PREVIOUS NAME Q P LDR A3,A4 Q > * P ANK A3,/FF ISOLATE RIGHT BYTE OF NAME Q P P CWK A3,/5F UPPER BOUNDARY? Q ~ P RF(L) PDTE25 NO! Q P* Q , P LC A4,/30 RESET RIGHT BYTE TO ASCII '0' Q & P SLL A5,8 LEFT BYT
0x066f90…067124 Dummy {f00=0x0020, f01=0x0190, f02=» END OF D-BLOCK? Q P LDR A8,A8 R P RF(Z) PDTE35 YES! R * P* R D . P LC A1,2,A11 GET 2ND CHAR. IN NEXT RECORD R N 0 P CCK A1,'DD' IF A SDTE-RECORD USE OLD ADDR. R P RF(E) PDTE35 R P* R P CCK A1,'SS' IF NSA RECORD R * P RF(E) PDTE30 USE
0x067124…0672b8 Dummy {f00=0x0020, f01=0x018e, f02=» NETWORK ADDRESS R ~ * P ST A2,NALNG+STKEND SAVE LENGTH OF NA S P* S F P CALL ENDBLK END OF D-BLOCK? S P P LDR A8,A8 S t P RF(Z) PDTE35 YES! S P* S P LC A1,2,A11 S P CCK A1,'SS' S ( P RF(NE) PDTE35 NO NSA RECORD PRESENT S P* S P
0x0672b8…06744c Dummy {f00=0x0020, f01=0x0190, f02=» P ADKL A11,2 T P LDR A1,A1 T P RF(Z) PDTE35 NO SUBADDRESSE T * P* T N P CWK A1,/FF T X , P RB(G) NSAERR TOO MANY SUBADDR. DEFINED T l P* T 4 P ST A11,NSAADR+STKEND SAVE START OF 1ST SUBADDR. T P SLL A1,1 T . P ADR A11,A1 CALCULATE ST
0x06744c…0675e0 Dummy {f00=0x0020, f01=0x0190, f02=»E BLOCK T h P CALL UPDDTE U P RB PDTE20 U $ P* U 6 PPDTE40 EQU * U @ P RTN A14 U T P EJECT U d < P******************************************************** U r < P* * U < P* DTESIZ CALCULATES
0x0675e0…067774 (3, 44) Dummy {f00=0x0021, f01=0x0190, f02=» * U r < P* ON ENTRY: A12 START OF CURRENT DTE BLOCK * V " < P* * V b < P* WORK REGISTER: A1,A9 * V < P*
0x067774…067908 Dummy {f00=0x0021, f01=0x0190, f02=»K1+STKEND V 6 P LD A1,NALNG+STKEND GET LENGTH OF NETWORK ADDRESS W P ADK A1,1 W L $ P SRL A1,1 2 DIGITS IN EACH BYTE W ^ , P AD A1,DTENSA+STKEND ADD NO OF SUBADDR. W . P ADK A1,DTEFIX+1 AND LENGTH OF FIX PART+1 W P ANKL A1,/FFFE MAKE EVEN W ( P
0x067908…067a9c Dummy {f00=0x0021, f01=0x0190, f02=» 0 P LD A11,LIMIT+STKEND GET END OF SYSTEM AREA X " P CALL CMPADR MEMORY OVERFLOW? X 8 P RF(NL) DTSIZ0 NO! X ^ P* X x P LDKL A1,LMP3 YES! X P CALL ERROR X P* X PDTSIZ0 EQU * X 6 P LD A11,WRK1+STKEND RESTORE POSITION IN CONF. DATA X P
0x067a9c…067c30 Dummy {f00=0x0021, f01=0x018e, f02=» * X f < P* UPDDTE UPDATES CURRENT DTE BLOCK WITH ITS: * Y < P* ====== * Y V < P* NAME * Y < P* TYPE
0x067c30…067dc4 Dummy {f00=0x0021, f01=0x0190, f02=» Y V < P* * Z < P******************************************************** Z H P Z P Z PUPDDTE EQU * Z 4 P LDR A6,A12 GET START OF CURRENT DTE BLOCK ENTRY Z P ADK A6,2 SKIP LINK ENTRY Z , P L
0x067dc4…067f58 Dummy {f00=0x0021, f01=0x0190, f02=»OM STACK Z p P STR A1,A6 AND SAVE IN DCT [ P ADK A6,2 [ 2 P LDK A5,4 GET NO OF SHIFTS [ D . P ORKL A5,SLL0 AND CONFIG. SLL A1,8 INSTR. [ f 4 P LD A2,NALNG+STKEND GET LENGTH OF NETWORK ADDR. [ $ P LDR A3,A2 SAVE NO OF CHARACTERS [ P SLL A2,8 LEFT A
0x067f58…0680ec Dummy {f00=0x0021, f01=0x0190, f02=»XCPY COPY AND PACK NA TO DCT [ $ P ANKL A5,/1F ISOLATE SHIFT COUNT $ & P CWK A5,4 LESS THAN ONE BYTE LEFT? L P RF(NG) UPDTE2 YES! v PUPDTE0 EQU * P LDK A5,0 SET NO OF SHIFTS P RF UPDTE4 P* PUPDTE2 EQU * P STR A2,A6 STORE
0x0680ec…068280 Dummy {f00=0x0021, f01=0x0190, f02=»QU * , P ORKL A5,SLL0 CONFIGURE SSL A1,N INSTR. ] 4 P LD A1,DTENSA+STKEND GET NO OF SUBADDR. DEFINED ] < & P RF(Z) UPDTE8 NO SUBADDR. DEFINED ] t P* ] 4 P LD A4,NSAADR+STKEND GET ADDRESS TO 1ST SUBADDR. ] P LDR A3,A1 ] * P SLL A3,1 2 DIGITS FOR
0x068280…068414 (3, 45) Dummy {f00=0x0021, f01=0x0190, f02=»O! ] P* ^ P STR A2,A6 YES! SAVE IN DCT ^ P LDK A2,0 CLEAR TABLE WORD ^ 8 " P ADK A6,2 ADVANCE DCT POINTER ^ Z P LDK A5,16 NO OF SHIFTS ^ , P ORKL A5,SLL0 CONFIGURE SLL A1,12 INSTR. ^ PUPDTE6 EQU * ^ P SUK A5,4 NEXT NIBBLE ^ ( P CALL
0x068414…0685a8 Dummy {f00=0x0021, f01=0x0190, f02=»************************** ^ r < P* * _ " < P* HEXCPY COPIES AND PACKS 4 HEXADECIMAL DIGITS * _ b < P* IN ONE WORD. * _ < P*
0x0685a8…06873c Dummy {f00=0x0021, f01=0x018e, f02=» * _ b < P* A4 ADDRESS TO FIRST ASCII DIGIT * ` < P* A5 PACKING INSTR. (SLL A1,N TIMES) * ` R < P* A6 POINTER WHERE TO STORE PACKED WORD * ` < P*
0x06873c…0688d0 Dummy {f00=0x0021, f01=0x0190, f02=» < P* PROCESSED DIGIT * a < P* A5 PACKING INSTR. (SLL A1,N TIMES) * a D < P* A6 POINTER WHERE TO STORE NEXT WORD * a < P* * a < P****
0x0688d0…068a64 Dummy {f00=0x0021, f01=0x0190, f02=»T CHARACTER a P CALL HEXCNV CONVERT TO HEX b P EXR A5 SHIFT b 8 " P ORR A2,A1 CONFIGURE DCT WORD b N ( P SUK A3,1 DECREMENT NO OF CHARACTERS b t $ P RF(Z) HXCPY8 WHOLE NA PROCESSED b P* b P CWK A5,SLL0 FULL WORD? b P RF(NE) HXCPY6 NO! b
0x068a64…068bf8 Dummy {f00=0x0021, f01=0x0190, f02=»O OF SHIFTS b , P ORKL A5,SLL0 CONFIGURE SSL A1,16 INSTR. c PHXCPY6 EQU * c D P SUK A5,4 NEXT NIBBLE c X * P ADK A4,1 NEXT CHARACTER IN CONF. DATA c v P RB HEXCPY c P* c PHXCPY8 EQU * c P RTN A14 c P EJECT c < P**********************
0x068bf8…068d8c Dummy {f00=0x0021, f01=0x0190, f02=»IMAL DIGIT IN ASCII CODE * c r < P* TO CORRESPONDING HEXADECIMAL VALUE * d " < P* (4 BITS BINARY CODE) * d b < P* * d < P* ON ENTRY: A1 CHARACTER TO CONVERT
0x068d8c…068f20 Dummy {f00=0x0021, f01=0x0190, f02=» * d b < P* * e < P******************************************************** e R P e P e PHEXCNV EQU * e " P ANK A1,/FF ISOLATE CHARACTER e P CWK A1,/29 e P RF(L) TYPERR ER
0x068f20…0690b4 (3, 46) Dummy {f00=0x0021, f01=0x0190, f02=»* e " P CWK A1,/46 DIGIT BETWEEN A-F? f P RF(G) TYPERR NO f 0 P* f H P ADK A1,9 YES! f R PHXCN00 EQU * f h " P ANK A1,/F ISOLATE HEX NUMBER f | P RTN A14 f P* f PTYPERR EQU * f " P LDKL A1,LMP4 CONF. DATA ERROR f P CALL ERROR f
0x0690b4…069248 Dummy {f00=0x0021, f01=0x0190, f02=» f X < P* P:NA PROCESS NETWORK ADDRESS * g < P* * g H < P* SCANS THE NETWORK ADDRESS RECORD (NA=..) IN CONF. * g < P* DATA AND REPACKS THE RECORD, OVERWRITING POSSIBLE * g < P
0x069248…0693dc Dummy {f00=0x0021, f01=0x0190, f02=»S. * g < P* * h 8 < P* ON ENTRY: A11 ADDRESS TO 1ST CHARACTER IN NETWORK * h x < P* ADDRESS. * h < P*
0x0693dc…069570 Dummy {f00=0x0021, f01=0x018e, f02=»OF NSA RECORD IN CONF. DATA * h x < P* * i ( < P******************************************************** i h P i P i PP:NA EQU * i $ P LDK A4,1 RESET PACKING CONSTANT i " P LDK A2,0 RESE
0x069570…069704 Dummy {f00=0x0021, f01=0x0190, f02=» $ P RF(Z) P:NA06 END OF CONF. DATA j P* j , P CCK A1,/FF END OF D-BLOCK? j 6 P RF(E) P:NA05 YES! j Z P* j t & P CCK A1,'==' CONTINUATION RECORD? j ~ P RF(E) P:NA04 YES! j P* j . P CCK A1,'NN' NO! START OF NA OR NSA RECORD j P RF(E) P:N
0x069704…069898 Dummy {f00=0x0021, f01=0x0190, f02=»DDRESS LENGTH j x P CWK A2,/FF TOO MANY DIGITS? k P RF(NG) P:NA02 NO! k : P* k T * P LDKL A1,LMP4 YES! ERROR IN CONF. DATA k ^ P CALL ERROR k PP:NA02 EQU * k P LDR A3,A4 k " P ADR A3,A11 REPACKING ADDRESS k * P SCR A1,A3 PUT CHARACTER BAC
0x069898…069a2c Dummy {f00=0x0021, f01=0x0190, f02=»RD IDENTIFIER k p $ P SUK A4,2 SET REPACKING CONSTANT l * P ADKL A11,1 ADVANCE TO NEXT CHARACTER l > P RB P:NA00 l l P* l ~ PP:NA05 EQU * l " P SUK A2,1 DECREMENT NA LENGTH l * P SUKL A11,1 AND POSITION IN CONF. DATA l P* l PP:NA06 EQU * l
0x069a2c…069bc0 Dummy {f00=0x0021, f01=0x0190, f02=» * l t < P* ENDBLK LOOKS FOR END OF DATA COMMUNICATION BLOCK * m $ < P* ================================================= * m d < P* * m < P* END OF BLOCK IS DEFINED BY A REC
0x069bc0…069d54 (3, 47) Dummy {f00=0x0021, f01=0x0190, f02=»OF * m d < P* CONFIGURATION DATA. * n < P* * n T < P* ON ENTRY: A11 CURRENT POSITION IN CONF. DATA * n < P*
0x069d54…069ee8 Dummy {f00=0x0021, f01=0x018e, f02=» < P* * o < P******************************************************** o D P o P o PENDBLK EQU * o $ P LC A8,1,A11 GET NEXT CHARACTER o " P CCK A8,/00 END OF CONF. DATA? o P RF(E) ENDBL0 YES!
0x069ee8…06a07c Dummy {f00=0x0021, f01=0x0190, f02=» o ( P SUR A8,A8 SET END OF D-BLOCK COND. p PENDBL2 EQU * p 4 P RTN A14 p H P XIF p X P EJECT p d T P*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= p r 6 P* GENERAL SUBROUTINES * p T P*=*=
0x06a07c…06a210 Dummy {f00=0x0021, f01=0x0190, f02=»************************ p t 8 P* GETTSK - GET NUMBER OF TASKS IN A TASK-CLASS * q P* q 6 P* GETCTC - GET NUMBER OF COMMON TERMINAL CLASSES q f P* q 8 P**************************************************** q P* q " P* REFERENCED IN: B:TCT
0x06a210…06a3a4 Dummy {f00=0x0021, f01=0x0190, f02=»THE TASK CLASS (BINARY VALUE) q l P* r & P* WORK REGISTERS: A5 r 0 P* r N P* SUBROUTINES: CONVRT r X P* r x PGETTSK EQU * r PGETCTC EQU * r . PGETDTE EQU * GET NO OF DTE BLOCKS DEFINED r . PGETCOP EQU * GET NO OF COPIES OF LAST DTE r
0x06a3a4…06a538 Dummy {f00=0x0021, f01=0x0190, f02=»RT r P RTN A14 s P EJECT s 8 P**************************************************** s ( 8 P* GETTDC - GET NUMBER OF TERMINAL DEVICE CLASSES * s d 8 P**************************************************** s P* s P* REFERENCED IN: B:TT s P*
0x06a538…06a6cc Dummy {f00=0x0021, f01=0x0190, f02=»BINRY VALUE) s P* t P* WORK REGISTERS: A5 t P* t < P* SUBROUTINES: CONVRT t F P* t d PGETTDC EQU * t n P LC A5,TDBNC,A11 t P SLL A5,8 t P LC A5,TDBNC+1,A11 t P CALL CONVRT t P RTN A14 t P EJECT t 8 P****************
0x06a6cc…06a860 Dummy {f00=0x0021, f01=0x018e, f02=»******************* t p P* u P* REFERENCED IN: B:TT u & P* u F 4 P* ENTRY: A9 - POINTER TO NUMBER OF SDC RECORD u P P* u D P* EXIT: A1 - NUMBER OF SPECIAL DEVICE CLASSES (BINARY VALUE) u P* u P* WORK REGISTERS: A5 u P* u
0x06a860…06a9f4 (3, 48) Dummy {f00=0x0022, f01=0x0190, f02=» u P RTN A14 v P EJECT v 2 P********************************************** v & 2 P* GETCLN - GET CLASS IDENTIFICATION NUMBER * v 2 P********************************************** v P* v P* REFERENCED IN: B:TT v P* v 6 P* ENTRY: A
0x06a9f4…06ab88 Dummy {f00=0x0022, f01=0x0190, f02=»ORK REGISTERS: A5 v P* w P* SUBROUTINES: CONVRT w $ P* w D PGETCLN EQU * w N P LC A5,TDCDD1,A9 w b P SLL A5,8 w z P LC A5,TDCDD2,A9 w P CALL CONVRT w P RTN A14 RETURN w P EJECT w . P*****************************************
0x06ab88…06ad1c Dummy {f00=0x0022, f01=0x0190, f02=» B:DWTT w ~ P* x 8 P* ENTRY: A9 - POINTER TO CLASS DEFINITION RECORD x P* x V : P* EXIT: A1 - LINE CONNECTION NUMBER (BINARY VALUE) x ` P* x P* WORK REGISTERS: A5 x P* x P* SUBROUTINES: CONVRT x P* x PGETLCN EQU * x
0x06ad1c…06aeb0 Dummy {f00=0x0022, f01=0x0190, f02=» 2 P ADK A6,TDCLCN ADDRESS LINE CONNECTION NUMBER y , P CALL GETNUM GET LINE CONNECTION NUMBER y : P LDR A1,A5 SAVE BINARY VALUE y j 0 P LDR* A6,A15 RESTORE REGISTER A6 FROM STACK y 0 P LDR* A4,A15 RESTORE REGISTER A4 FROM STACK y P RTN A14 y P E
0x06aeb0…06b044 Dummy {f00=0x0022, f01=0x0190, f02=»* GETTCL - GET TASK CLASS TO MATCH * y : P* ================================ * z > : P* * z | : P* REFERENCED IN: B:TT * z : P*
0x06b044…06b1d8 Dummy {f00=0x0022, f01=0x018e, f02=» * z t : P* EXIT: A5 - TCL START VALUE FOR THIS TASK CLASS * { " : P* * { ` : P* WORK REGISTERS: A1-A7,A10 * { : P*
0x06b1d8…06b36c Dummy {f00=0x0022, f01=0x0190, f02=» { X : P***************************************************** | P | F PGETTCL EQU * | N P LDR A6,A5 SAVE TCL | b P LDR A7,A6 TCL START VALUE | ~ 8 P LDR A10,A11 SAVE POINTER TO CURRENT TASK DEF. BLOCK | 6 P LD A11,STKEND+LCDSTA START OF CONFIGURATION
0x06b36c…06b500 Dummy {f00=0x0022, f01=0x0190, f02=»L | h P SLL A5,8 MOVE TO LEFT BYTE } . P LC A5,TDBMC+5,A11 GET SECOND CHAR IN TCL } . P CWR A5,A6 SAME TCL? } ` P RF(NE) TCL:50 NO! } | & P CALL GETTSK GET NUMBER OF COPIES } P ADR A7,A1 INCREMENT TCL } 0 PTCL:50 CALL NXTBLK GET NEXT TASK DEF. BL
0x06b500…06b694 (3, 49) Dummy {f00=0x0022, f01=0x018e, f02=»************* } t . P* GETCON - GET CONTENT IN MEMORY WORD * ~ . P***************************************** ~ H P* ~ z P* REFERENCED IN: SEGGEN ~ P* ~ " P* ENTRY: A2 - MEMORY ADDRESS ~ . P* MMUOPT - MMU OPTION SWITCH (X) ~ P
0x06b694…06b828 Dummy {f00=0x0022, f01=0x018e, f02=» PGETCON EQU * " P LD A1,SCTOPT GET OPTION WORD P ANK A1,1 MMU OPTION > P RF(Z) GCON10 NO MMU Z P ELR A1,A2 v P RF GCON20 PGCON10 EQU * P LDR* A1,A2 PGCON20 EQU * P RTN A14 RETURN P EJECT . P************
0x06b828…06b9bc Dummy {f00=0x0022, f01=0x0190, f02=» P* P* REFERENCED IN: DWTGEN P* . 4 P* ENTRY: INTTAB - START OF TEMP.INTERRUPT TABLE 8 6 P* CONTYP - CONNECTION TYPE AND LINE NUMBER p , P* A5 - RUN TIME DWT-ADDRESS P* P* EXIT: P* P* WORK RE
0x06b9bc…06bb50 Dummy {f00=0x0022, f01=0x0190, f02=»T.I.T. n $ P LDR* A2,A4 GET NUMBER OF BLOCKS P SUK A4,2 6 P H P LDR A2,A2 ZERO? P PTTA10 EQU * h P RF(Z) TTA11 YES! | ( P LDR* A4,A4 GET START OF NEXT BLOCK P SUK A2,1 ZERO? P RB TTA10 P* P* AREA TO BUILD BL
0x06bb50…06bce4 Dummy {f00=0x0022, f01=0x0190, f02=»JECT P* P* BUILD BLOCKS IN FWT AREA P* 8 PTTA09 EQU * B P LDK A3,5 V PTTA12 EQU * h P SUK A2,2 | < P CW A2,STKEND+FWTSTA START OF FWT OR USED PART OF SYSLDM P RF(E) TTA14 P SUK A3,1 P RF(Z) TTA20 P
0x06bce4…06be78 Dummy {f00=0x0022, f01=0x018e, f02=» AREA z P* PTTA15 EQU * P LDK A3,5 , PTTA16 EQU * > P SUK A2,2 R P CWR A2,A12 d P RF(E) TTA17 x P ST A2,STKEND+LIMIT P SUK A3,1 P RF(Z) TTA20 P RB TTA16 PTTA17 EQU * P LDKL A1,LMP3
0x06be78…06c00c Dummy {f00=0x0022, f01=0x018e, f02=» PTTA30 EQU * P ADK A2,4 0 P STR A2,A4 STRORE POINTER TO NEXT FREE BLOCK * P* ^ P* STORE NUMBER OF BLOCKS h P* . P IM* STKEND+INTTAB INCREMENT BLOCK COUNTER P RTN A14 RETURN P EJECT 2 P******************************
0x06c00c…06c1a0 Dummy {f00=0x0022, f01=0x0190, f02=» P* REFERENCED IN: B:ITAB P* ( " P* ENTRY: A8 - CONNECTION TYPE 2 P* A9 - BOARD NUMBER X 8 P* SAVE20 - MAX. LENGTH OF BOARD CONF. TABLE | P* & P* EXIT: A12 - START OF FREE AREA P* , P* WORK REGISTERS:
0x06c1a0…06c334 (3, 50) Dummy {f00=0x0022, f01=0x0190, f02=»ST IF MEMORY OVERFLOW? , P LD A12,SCTSFA NO!GET START OF FREE AREA P LDR A11,A12 SAVE N P ADKL A12,2 h P ST A12,STKEND+BRDTAB STORE | @ P LD A10,STKEND+INTTAB GET START OF TEMPORARY INTERRUPT TABLE , P LDR* A1,A10 GET NUMBER OF BLOCKS.ZE
0x06c334…06c4c8 Dummy {f00=0x0022, f01=0x018e, f02=»BER AND CONNECTION TYPE v P LDR A3,A2 SAVE $ P ANK A3,/0F GET CONNECTION TYPE 8 P SUR A3,A8 RIGHT TYPE? ` P RF(Z) BTA30 YES! ~ PBTA20 EQU * $ P LDR* A10,A10 NO!GET NEXT BLOCK P SUK A1,1 LAST BLOCK? P RB BTA10 PBTA3
0x06c4c8…06c65c Dummy {f00=0x0022, f01=0x0190, f02=» P RB(G) BTA20 NO! P* P LD A3,STKEND+WRK1 & P CWR A2,A3 @ P RB(L) BTA20 NO! R P* j & P* BUILD BOARD CONFIGURATION TABLE t P* P IM STKEND+WRK3 " P CWK A8,5 LWSI CONNECTION? =2 P RF(E) BTA34 YES! =2 " P CWK A
0x06c65c…06c7f0 Dummy {f00=0x0022, f01=0x018e, f02=»A3 P ADR A2,A2 P LDR A12,A11 P ADKL A12,2 0 ( P ADR A12,A2 GET ENTRY IN BOARD TABLE D P STR A11,A12 STORE p P RB BTA20 PBTA40 EQU * P* 2 P* COMPUTE LENGTH OF BOARD CONFIGURATION TABLE P* : P LD A1,STKEND+
0x06c7f0…06c984 Dummy {f00=0x0022, f01=0x0190, f02=» P LDR* A2,A12 P RF(NZ) BTA60 P SUK A1,2 2 P RF(Z) BTA70 D P SUKL A12,2 X P RB BTA50 l PBTA60 EQU * ~ : P STR A1,A11 STORE LENGTH OF BOARD CONFIGURATION TABLE P ADKL A12,2 0 P ST A12,SCTSFA STORE NEW START OF FR
0x06c984…06cb18 Dummy {f00=0x0022, f01=0x0190, f02=»B - BUILD LINE CONFIGURATION TABLES * 2 P********************************************** . P* d P* REFERENCED IN: B:ITAB n P* " P* ENTRY: WRK1 - BOARD NUMBER & P* A8 - CONNECTION TYPE P* & P* EXIT: A12 - START
0x06cb18…06ccac Dummy {f00=0x0022, f01=0x0190, f02=»FIGURATION TABLE l P RF(Z) BLT70 P LDKL A3,-1 LINE COUNTER , P RF BLT15 L PBLT10 EQU * ^ P SUK A1,2 DECREMENT LENGTH r P RF(Z) BLT70 RETURN P* PBLT15 EQU * P LDR A2,A12 P ADK A2,24 B P ST A2,STKEND+FWTFLG
0x06ccac…06ce40 Dummy {f00=0x0022, f01=0x018e, f02=»ER x P ADKL A11,2 P LDR* A2,A11 READ LINE.ZERO? P RB(Z) BLT10 YES! B P LDK A4,32 GET TEST LENGTH ( P CALL M:TST TEST IF MEMORY OVERFLOW? ~ P* $ P* SCAN TEMPORARY INTERRUPT TABLE P* ( P LD A2,STKEND+WRK1 GET BOARD NUMBE
0x06ce40…06cfd4 (3, 51) Dummy {f00=0x0022, f01=0x0190, f02=» z PBLT16 EQU * =8 P SUK A2,1 =2 PBLT17 EQU * =2 4 P ADR A2,A3 ADD LINE NUMBER L P SLL A2,4 n " P ADR A2,A8 ADD CONNECTION TYPE . P LD A10,STKEND+INTTAB GET START OF T.I.T. & P LDR* A4,A10 GET NUMBER OF BLOCKS P SUKL
0x06cfd4…06d168 Dummy {f00=0x0022, f01=0x0190, f02=» ~ P* < P* STORE RUN-TIME DWT-ADDRESS IN LINE CONFIGURATION TABLE P* R * P LD A5,-2,A10 GET RUN TIME DWT-ADDRESS P LDR A6,A5 " P ANK A6,/0001 DOUBLE KEYBOARD? P RF(Z) BLT25 N0! & P LD A6,DWTDEV,A5 GET DEVICE STATUS ( P ANK
0x06d168…06d2fc Dummy {f00=0x0022, f01=0x0190, f02=»HANNEL PARAMETERS-2 z P ANK A6,7 GET DEVICE ADDRESS PBLT26 EQU * @ P ADR A6,A6 T P LDR A7,A12 SAVE f P ADR A7,A6 ~ P LD A6,2,A7 ZERO? P RF(Z) BLT27 YES! ( P LD A6,DWTST,A5 NO!GET DEVICE STATUS P ANK A6,/0040 INPUT DEVI
0x06d2fc…06d490 Dummy {f00=0x0022, f01=0x0190, f02=»6,2 ADD * P STR A5,A6 STORE RUN TIME DWT-ADDRESS & P ST A6,STKEND+FWTFLG STORE POINTER > * P LD A5,-2,A10 GET RUM TIME DWT-ADDRESS h PBLT27 EQU * * P ST A5,2,A7 STORE RUN TIME DWT-ADDRESS P RF BLT30 PBLT28 EQU * 2 P LD A6,STK
0x06d490…06d624 Dummy {f00=0x0022, f01=0x0190, f02=» PBLT30 EQU * P LDR* A10,A10 GET NEXT BLOCK P SUK A4,1 LAST BLOCK? < P RF(Z) BLT40 YES! Z P RB BLT20 NO! t P* D P* MOVE DWT-ADR.IN TEMP.AREA TO FREE LOCATIONS IN LINE CONF.TABLE P* PBLT40 EQU * 2 P LD A6,STKEND+
0x06d624…06d7b8 Dummy {f00=0x0022, f01=0x0190, f02=» A4,A12 PBLT41 EQU * P ADK A4,2 $ P LDR* A2,A4 6 P RF(Z) BLT42 J P RB BLT41 ^ PBLT42 EQU * p * P STR A5,A4 STORE RUN TIME DWT-ADDRESS P SUK A6,2 P RB BLT43 P* P* CLEAR TEMP.AREA P* PBLT4
0x06d7b8…06d94c Dummy {f00=0x0022, f01=0x018e, f02=»LT48 YES! P CMR A6 NO!CLEAR MEMORY WORD P SUK A6,2 DECREMENT POINTER 6 P RB BLT46 Z P* l 0 P* COMPUTE LENGTH OF LINE CONFIGURATION TABLE v P* PBLT48 EQU * P LDR A2,A12 SAVE 2 P ADK A2,22 ADD. MAX LENGTH OF LINE CONF.
0x06d94c…06dae0 Dummy {f00=0x0022, f01=0x0190, f02=» x P SUK A2,2 P RB BLT50 PBLT60 EQU * , 8 P STR A4,A12 STORE LENGTH OF LINE CONFIGURATION TABLE @ P ADKL A12,2 | J P STR A12,A11 STORE THE ADDRESS IN BOARD CONF.TABLE TO LINE CONF.TABLE 4 P ADR A12,A4 A12 - START OF NEXT LINE CONF.
0x06dae0…06dc74 (3, 52) Dummy {f00=0x0023, f01=0x0190, f02=» P EJECT * P************************************* * P* M:TST - TEST IF MEMORY OVERFLOW * @ * P************************************* n P* P* ENTRY: A4 - TEST LENGTH P* P* WORK REGISTERS: A2,A4 P* PM:TST EQU *
0x06dc74…06de08 Dummy {f00=0x0023, f01=0x0190, f02=»LIMIT P RF(NE) MTST20 P LDKL A1,LMP3 $ P CALL ERROR MEMORY OVERFLOW : PMTST20 EQU * ^ P CWR A2,A4 r P RB(NE) MTST10 P RTN A14 RETURN P EJECT B P************************************************************** B P*
0x06de08…06df9c Dummy {f00=0x0023, f01=0x0190, f02=» * V P* B P************************************************************** P* ^ P* REFERENCED IN: B:DWTT h P* , P* ENTRY: A1 - BINARY NUMBER TO CONVERT P* $ P* EXIT: A1,A5 - ASCII OUTPUT P* P* WORK
0x06df9c…06e130 Dummy {f00=0x0023, f01=0x018e, f02=»L) BIN:10 =2 P SUKL A1,100 =2 P LDKL A5,/100 =2 . PBIN:10 CWK A1,10 =2 H P RF(L) BIN:20 =2 d P SUK A1,10 =2 ~ P ADK A5,/1 =2 P RB BIN:10 =2 PBIN:20 ORKL A5,/3030 =2 P ORK A1,/30 =2 P SRC A5,8 =2
0x06e130…06e2c4 Dummy {f00=0x0023, f01=0x0190, f02=» P EJECT : P****************************************************** : P* * T : P* MMUINI - INIT MMU TABLE IN TTAB * : P* =============================== *
0x06e2c4…06e458 Dummy {f00=0x0023, f01=0x0190, f02=» * : P* ENTRY: APCSTA - APPL. CONTROL BLOCK ADDRESS * 8 : P* * v : P* EXIT: * : P*
0x06e458…06e5ec Dummy {f00=0x0023, f01=0x0190, f02=» * n : P* SUBROUTINES: * : P* * Z : P****************************************************** P EJECT PMMUINI EQU * < P LD A2,STKEND+AP
0x06e5ec…06e780 Dummy {f00=0x0023, f01=0x018e, f02=»NTRY NUMBER x . P LD A2,APLLAP,A2 GET LOGICAL PAGE ADDRESS ( P SRL A2,12 ISOLATE MMU ENTRY NUMBER F P RF(NZ) MMI:10 PAGES DEFINED r ( P LDK A2,16 MAX NUMBER OF MMU ENTRIES 0 PMMI:10 SUR A2,A3 NUMBER OF ENTRIES TO WRITE P SLL A3,1 TWICE
0x06e780…06e914 (3, 53) Dummy {f00=0x0023, f01=0x0190, f02=» 8 P ADKL A5,TTB:MT ADD DISPL. TO START OF MMU TABLE =6 P LDKL A4,/FC00 =6 @ PMMI:15 EQU * =6 Z 2 P CWR A5,A3 INIT MMU ENTRY WHITH PAGE ERROR? =6 r P RF(E) MMI:16 NO! =6 0 P STR A4,A5 STORE PAGE ERROR IN MMU TABLE =6 P ADK A5,2 NEXT M
0x06e914…06eaa8 Dummy {f00=0x0023, f01=0x0190, f02=»I:20 SUK A2,1 MORE ENTRIES TO WRITE? P RF(N) MMI:30 NO , " P STR A4,A3 STORE PAGE ADDRESS D P ADK A3,2 NEXT MMU ENTRY j $ P ADKL A4,/400 NEXT PAGE ADDRESS P RB MMI:20 PMMI:30 RTN A14 RETURN P XIF P EJECT 6 P************
0x06eaa8…06ec3c Dummy {f00=0x0023, f01=0x0190, f02=»ICATION * p 6 P* ============================== * 6 P* * T 6 P* REFERENCED IN: * 6 P* * 6 P* ENT
0x06ec3c…06edd0 Dummy {f00=0x0023, f01=0x0190, f02=»PPL. CONTROL BLOCK * v 6 P* A11- START OF CONFIGURATION DATA * 6 P* * Z 6 P* WORK REGISTERS: A2 * 6 P* * 6 P
0x06edd0…06ef64 Dummy {f00=0x0023, f01=0x0190, f02=»***************************** | PFSTAPL EQU * & , P LD A2,SYSLOD GET NUMBER OF APPLICATIONS : P ST A2,STKEND+APLNO SAVE j 6 P LDKL A2,SYSLOD+2 FIRST APPLICATION CONTROL BLOCK P ST A2,STKEND+APCSTA SAVE 6 P LD A11,STKCOM+CONSTA START OF CON
0x06ef64…06f0f8 Dummy {f00=0x0023, f01=0x0190, f02=» * 6 P* NXTAPL - GET NEXT APPLICATION * * 6 P* ============================= * d 6 P* * 6 P* REFERENCED IN:
0x06f0f8…06f28c Dummy {f00=0x0023, f01=0x0190, f02=»PCSTA - CURRENT APPL. CONTROL * 6 P* BLOCK ADDRESS * 0 6 P* * j 6 P* EXIT: APLNO - REMAINING NUMBER OF APPL.-1 * 6 P* APCSTA - NEXT APPL. CONTROL BLOCK
0x06f28c…06f420 Dummy {f00=0x0023, f01=0x0190, f02=»ORK REGISTERS: A1,A2 * 6 P* * 6 6 P* SUBROUTINES: * p 6 P* * 6 P************************************
0x06f420…06f5b4 (3, 54) Dummy {f00=0x0023, f01=0x0190, f02=» ST A2,STKEND+APLNO SAVE REMAINING NUMBER OF APPL. P RF(Z) NOAPL NO MORE! : * P CALL NXTADB GET NEXT APPL DEF. BLOCK X @ P LD A2,STKEND+APCSTA GET ADDRESS TO CURRENT APPL. CTRL BLOCK ( P ADK A2,ACBLEN NEXT APPL. CTRL BLOCK & P ST A2,STKEND+APCS
0x06f5b4…06f748 Dummy {f00=0x0023, f01=0x0190, f02=» RTN A14 RETURN P EJECT D P**************************************************************** & D P* * n D P* NXTADB - GET NEXT APPLICATION DEF. BLOCK * D P*
0x06f748…06f8dc Dummy {f00=0x0023, f01=0x0190, f02=» REFERENCED IN: NXTAPL * D P* * F D P* ENTRY: A11 - CURRENT POINTER TO CONFIGURATION DATA * D P*
0x06f8dc…06fa70 Dummy {f00=0x0023, f01=0x0190, f02=»EXT APPL. DEF BLOCK * f D P* * D P* WORK REGISTERS: * f D P* * D P* SUBROUTINES: E
0x06fa70…06fc04 Dummy {f00=0x0023, f01=0x0190, f02=»****************************************************** PNXT10 ADKL A11,1 NEXT CHAR > ( PNXTADB LCR A2,A11 GET NEXT CHARACTER ` $ P CCK A2,/0000 END OF CONF DATA? P RF(NE) NEXT20 NOT YET P LDKL A1,LMP4 FORMAT ERROR P CALL ERROR 2 P
0x06fc04…06fd98 Dummy {f00=0x0023, f01=0x0190, f02=» v P RTN A14 RETURN P EJECT 2 P********************************************* . 2 P* * d 2 P* CHKMOV - CHECK MEMORY OVERFLOW AND MOVE * 2 P* ======================================= * 2 P*
0x06fd98…06ff2c Dummy {f00=0x0023, f01=0x018e, f02=» * r 2 P* ENTRY: A1 - FROM-ADDRESS * 2 P* A2 - TO-ADDRESS * N 2 P* A3 - LENGTH * 2 P* STKEND+LIMIT - END OF SYSTEM * 2 P*
0x06ff2c…0700c0 Dummy {f00=0x0023, f01=0x0190, f02=» 2 P* * 2 P* WORK REGISTERS: * : 2 P* * p 2 P* SUBROUTINES: MOVE,ERROR * 2 P*
0x0700c0…070254 (3, 55) Dummy {f00=0x0023, f01=0x0190, f02=»E A11 ON STACK P LDR A11,A3 GET LENGTH . P XRR A9,A9 PHYSICAL END OF FIRST PARTITION 4 0 P SUR A9,A2 COMPUTE AREA LEFT IN FIRST PART. f & P CALL CMPADR ENOUGTH MEMORY LEFT? P RF(L) CHK20 YES 0 PCHK10 LDKL A1,LMP3 INDICATE MEMORY OVERFLOW
0x070254…0703e8 Dummy {f00=0x0023, f01=0x018e, f02=»RE ADDRESSES ~ & P RB(G) CHK10 SYSTEM AREA OVERFLOW! P CALL MOVE MOVE AREA > P LDR* A11,A15 RESTORE A11 Z P LDR* A9,A15 RESTORE A9 | P RTN A14 P EJECT D P**************************************************************** D P*
0x0703e8…07057c Dummy {f00=0x0023, f01=0x0190, f02=» PCONMON EQU * ( P CALL B:TCT BUILD TASK CONTROL TABLE P IFF FM=0 D & P CALL B:FWT BUILD FILE WORK TABLES V P XIF ( P CALL MONBLK GENERATE MONITOR BLOCKS P IFF EDM=0 2 P CALL B:MXTT BUILD MONITOR EXTENT TASK TABLES 6 P CALL B:
0x07057c…070710 Dummy {f00=0x0023, f01=0x0190, f02=»BT BUILD SWAPPABLE WORK BLOCK TABLE P XIF , P IFF MMUPAG+DSKPAG=0 8 ( P CALL B:STAB BUILD SEGMENT TABLE(S) T P XIF P IFF SPDVCL+TEDVCL=0 2 P CALL B:DWTS BUILD SPECIAL DEVICE WORK TABLES P XIF P IFF TEDVCL=0 2 P CALL B:
0x070710…0708a4 Dummy {f00=0x0023, f01=0x0190, f02=»B:ITAB BUILD INTERRUPT TABLE =7 P XIF ( P IFT DC=1 =7 4 6 P CALL B:CNA BUILD COMPUTER NETWORK ARCHITECTURE =7 J P XIF P EJECT F P***************************************************************** F P* END OF MONITOR SA
0x0708a4…070a38 Dummy {f00=0x0023, f01=0x4046, f02=»********************************************* | P END 6@ B 6 P CALL B:CNA BUILD COMPUTER NETWORK ARCHITECTURE =7 J P XIF P EJECT F P***************************************************************** F P* END OF MONITOR SA
0x070a38…070bcc Dummy {f00=0x0023, f01=0x403c, f02=» 0 P******************************************** @ 8********************************************************* 4 F P* END OF MONITOR SAVE01URATION PART * ~ F P* -CONTINUE WITH APPLICATION SAVE01URATION PART
0x070bcc…070d60 Dummy {f00=0x0023, f01=0x2008, f02=» P X ` h p
0x070d60…070ef4 (3, 56) Dummy {f00=0x0024, f01=0x0190, f02=»FDS1,ACFDS1,ACFDOK,ACFDRS | 2 P CAENT4 RQ+S:MSTS,ACFDOK,ACFDR2,ACFDR2,ACFDR2 " PFDTSE EQU * X , P CAENT4 M:00,ACFDS2,ACFDS2,ACFDOK,ACFDS2 l P EJECT P* P* P* P* FDTAC - ACTION TABLE P* PFDTAC EQU * P D
0x070ef4…071088 Dummy {f00=0x0024, f01=0x0190, f02=»FDAC EQU *-FDTAC P DATA HSFD40 ACFPR PACFDPR EQU *-FDTAC 2 P DATA HSFD92 ACFDOK L PACFDOK EQU *-FDTAC h P . RECEIVE ERRORS P DATA HSFD80 ACFDR1 PACFDR1 EQU *-FDTAC P DATA HSFD81 RECEIVE ERROR PACFDR2 EQU *-FDTAC
0x071088…07121c Dummy {f00=0x0024, f01=0x0190, f02=» P EJECT P* P* ACTIONS P* . PHSFD30 EQU * RESET 8 4 P CF A14,SSUS59 SAVE REGS FOR SESSION AREA RESET R 2 P CF A14,HSCRST RESET SESSION AREA +RSP(CLEAR) P CF A14,SSUR59 LOAD REGS P LDK A5,SC:FRS STATUS RESET P RF
0x07121c…0713b0 Dummy {f00=0x0024, f01=0x0190, f02=»DK A5,SC:FAC STATUS ACTIVE P RF HSFD90 " PHSFD40 EQU * PENDING RESET 4 ( P LDK A5,SC:FPR STATUS PENDING RESET V P RF HSFD90 P* P* PHSFD80 EQU * RECEIVE ERROR . P LDK A1,S:CMDI SNC=0809 MODE INCONSISTANCY P RF HSFD95
0x0713b0…071544 Dummy {f00=0x0024, f01=0x018e, f02=» x * P LDK A1,R:CMDI RC= MODE INCONSISTANCY P RF HSFD95 6 PHSFD84 EQU * SEND ERROR H * P LDK A1,R:CDTR RC= DATA TRAFFIC RESET h P RF HSFD95 P EJECT P* P* P* UPDATE FMS FDT P* PHSFD90 EQU * , P ANKL A6
0x071544…0716d8 Dummy {f00=0x0024, f01=0x0190, f02=» P ADKL A14,BYTE4 P SUR A1,A1 ++++ REPL " P ABR* A14 REUTRN WITH COND SET 8 P EJECT ^ T P******************************************************************************** l P* P* NAME DESCRIPTION 8 P* HSFSTS TC FSM FOR MESSAGE SEQU
0x0716d8…07186c Dummy {f00=0x0024, f01=0x0190, f02=»**************************************************** t P EJECT < PHSFSTS EQU * J P ++++++ ADDD ^ P ADKL A14,BYTE4 t P SUR A1,A1 ++++REPLACE 0 P ABR* A14 RETURN TO CALLER WITH COND REG SET P EJECT T P****************************
0x07186c…071a00 Dummy {f00=0x0024, f01=0x0190, f02=» 6 P* CALLED FROM HSSCR AND HSSCS FOR CHECK AN UPDATE P* > P* H T P******************************************************************************** R P EJECT PHSFRQR EQU * P +++++ ADDD P ADKL A14,BYTE4 P SUR A1,A1 +++
0x071a00…071b94 (3, 57) Opaque[0x194]
0x071b94…071d28 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x0488, f03=0x0000}
0x071b94…071d28 IdxSect {
0x071b94…071d28 f00 = 0x0024 // 0x71b94 @0x0
0x071b94…071d28 f01 = 0x0008 // 0x71b96 @0x2
0x071b94…071d28 gno = [ // 0x71b98 @0x4
0x071b94…071d28 [0x00]: C0x0024.0x1.0
0x071b94…071d28 [0x01]: C0x0024.0x2.0
0x071b94…071d28 [0x02]: C0x0024.0x3.0
0x071b94…071d28 [0x03]: C0x0025.0x0.0
0x071b94…071d28 ]
0x071b94…071d28 }
0x071d28…071ebc Dummy {f00=0x0024, f01=0x0190, f02=» J F IDENT DEBUGM REL 11.0 81-07-26 870105041100 dBUG R |BUG ` , ( A :U A A p , ( ! @ ~ A A ~ @ A A , ( A @ A A @ A A " a
0x071ebc…072050 Dummy {f00=0x0024, f01=0x0190, f02=» h , ( , ( $ ( , 0 4 8 , ( 8 < h , ( 9 , ( Y , ( y
0x072050…0721e4 Dummy {f00=0x0024, f01=0x0190, f02=» T :a R T <a Z _ = , ( :A , >a @ ( , ( " A P UW B X , ( 9 @ = / M Q , ( Y R S T Y G P H L , ( y V I U _v
0x0721e4…072378 Dummy {f00=0x0024, f01=0x0190, f02=» P A A x , ( . , + - ; # , ( $ : X " H W X " H TTB:AP x ACBRELA , ( * 9 H H A W W L , ( W@ H A A _p @ P A 1+ , ( !T u X A
0x072378…07250c Dummy {f00=0x0024, f01=0x0190, f02=»NDTID , ( ! ? > " @ , ( D @ T " ( ^ @ P > , ( R A A " @ T @ n , ( 3 W @ A W W 0 , ( $ S _, W W , ( s
0x07250c…0726a0 Dummy {f00=0x0024, f01=0x0190, f02=» _` A , ( @ T @ W @ T @ W @ @ . , ( >a @ A ^ , ( 3 A , ( S ;a ]@ 1 _L W @ , ( s $ 0
0x0726a0…072834 (3, 58) Dummy {f00=0x0024, f01=0x0190, f02=» @ Q A @ ~ , ( BT A " T @ W @ A , ( ! A P @ _2 N , ( 3 T 0 P P ~ , ( S _ @ @ , ( P s @ @ P
0x072834…0729c8 Dummy {f00=0x0024, f01=0x0190, f02=» ) " A n , ( U H A @ , ( * @ @ T A A > , ( 3 P @ P n , ( @ S @ ! T A @ A # , ( E s A ~ RE XRN Y , ( P ME
0x0729c8…072b5c Dummy {f00=0x0024, f01=0x0190, f02=» T P #~ > V . >A , ( P Y X W ^ ? ? . , ( @ 3 @ ' P Y Y W Y Y @ ^ PRUNN ACBLACA , ( S @" P @ = ] , ( m ] ] W A A A W
0x072b5c…072cf0 Dummy {f00=0x0024, f01=0x0190, f02=» A p , ( A > > > > , ( > > > > ^ _ ^ _ ? ? ? ? @ , ( @ - ? A ^ @ ? ? p , ( @ M > > > > > > > , ( D m @ > , ( (
0x072cf0…072e84 Dummy {f00=0x0024, f01=0x0190, f02=» # H A " A 0 , ( R 9U AR FQ 0:D A 0 , ( - _* A " A A ` , ( M T A A " , ( m R _U . " , ( A : A
0x072e84…073018 Dummy {f00=0x0024, f01=0x0190, f02=» " A A P R :UT , ( @ @ W 9D) 9 I 9 ^ @ W TTB:MT P $ - ? H > " b , ( ! R :W W , ( W W ?W /W : A W ! A A , ( P _ @ _
0x073018…0731ac Dummy {f00=0x0024, f01=0x0190, f02=» A A @ z , ( B A A @ > @ _ , ( " a z | I R M A P T @ T J , ( D @ P A W ` @ @ P @ z , ( T A P A < V A @ H D ! )
0x0731ac…073340 Dummy {f00=0x0024, f01=0x0190, f02=» ? F C I M Q , U Y j ] d a l e . i : m q u H D ! y } 4 p p j T P B H D ! 0 d d | H N # /W* 3 GW K MW Q g H D !j| mP P W P W
0x073340…0734d4 (3, 59) Dummy {f00=0x0024, f01=0x0190, f02=»V W r H D ! > T j W T W # ' + 3 7 > ; . H D ! ? I j M h ] g oW W P z H D !6n P P P T W < P # b + 5 b ;
0x0734d4…073668 Dummy {f00=0x0024, f01=0x018e, f02=»W T V W~ P ^ H D ! P P P W TR PJ V P %W ;P EW UP$ yW } H D ! W P T T V 3 : K r f H D ! Q P < R$ U R Q + < / 9 < E f I h H D ! M Q
0x073668…0737fc Dummy {f00=0x0024, f01=0x40c6, f02=» J H D ! R T W( @ ) @ +W R W" W W W W W H D !P W PL T T P T$ 5 < oR> wP6 T. P W T P T V @ < R$ U R Q + < / 9 < E f I h H D ! M Q
0x0737fc…073990 Dummy {f00=0x0024, f01=0x2008, f02=» L = FIX.DISC DATE = 81-06-30 6876PACK NBR = 0001 x ;
0x073990…073b24 Dummy {f00=0x0024, f01=0x0190, f02=» P$PCASE PEND P$PCASF * PMES ILLEGEL PARAMETER COMBINATION!!!! , 2 PMES M,M+A,A,M+A+C,M+A+C+D IS OK SO TRY AGAIN! Z * PMES AND DON'T DO ANY MORE MISTAKES!!!! PEND P$PCASE PWEF 3,2 PULD 3 PMES END OF $PC
0x073b24…073cb8 Dummy {f00=0x0024, f01=0x0190, f02=»OUT=@M=,FC=@FC=F4,FT=M,SOP=@SOP=01,INP=@M=,DATE=@DATE PSCR /L @A= > PMOV @A=,/L,@AU Z PRUN PDISC,0 A=@A= p D POPT OUT=@AOUT=@A=,FC=@FC=F4,FT=A,SOP=@SOP=01,INP=@A=,DATE=@DATE PSCR /A @C= PMOV @C=,/A,@CU PRUN
0x073cb8…073e4c Dummy {f00=0x0024, f01=0x018e, f02=» PRUN PDISC,0 D=@D= D POPT OUT=@DOUT=@D=,FC=@FC=F4,FT=D,SOP=@SOP=01,INP=@D=,DATE=@DATE " P$PDISCE P=@M= j P$PDISCE P=@A= P$PDISCE P=@C= P$PDISCE D=@D= * PMES ILLEGAL PARAMETER COMBINATION !!! * PMES FOLLOWING COMBINATIO
0x073e4c…073fe0 Dummy {f00=0x0024, f01=0x0190, f02=» : PMES 3 C,C+CU,C+COUT,C+CU+COUT FOR CONFIGURATION FILE 2 PMES 4 D,D+DU,D+DOUT,D+DU+DOUT FOR DATA FILE B 2 PMES 5 FC FILE CODE. DEFAULT VALUE IS F4 x 8 PMES 6 SOP SOP SWITCH NUMBER. DEFAUL VALUE IS 01 PMES 7 DATE UPDATING DATE
0x073fe0…074174 (3, 60) Dummy {f00=0x0025, f01=0x403e, f02=» #M90 (@ :
0x074174…074308 Dummy {f00=0x0025, f01=0x0014, f02=» x
0x074308…07449c Dummy {f00=0x0025, f01=0x0190, f02=»h Ln # # #$ A~ X - _ H*f* + + ,0-T
0x07449c…074630 Dummy {f00=0x0025, f01=0x0190, f02=»
0x074630…0747c4 Dummy {f00=0x0025, f01=0x0190, f02=» h ( "D r !f9 : G p O $ $ %Z&>F F % 9 K DMC>MCGVHDB(WMC RYD*RDD*ASEDABF PSF RSG0 & TY J- LP / TK Kv
0x0747c4…074958 Dummy {f00=0x0025, f01=0x0190, f02=» $ DK W DK 8 W P DK W DK ( W DK _d ^ DK _d 8DK ) _d
0x074958…074aec Dummy {f00=0x0025, f01=0x0190, f02=» ? ? ? ? ? ? ? N & ? ? ? ? ? ? ? f" ? ? ? ? ? ? ? L 2b
0x074aec…074c80 Dummy {f00=0x0025, f01=0x0190, f02=» f l Z f Z f D Z
0x074c80…075920 (4, 0) DirGranule ((4, 0)) {
0x074c80…075920 DirEnt {nam=»UPD2 «, typ=» «, f00=0x0000, f01=0x0000, f02=0x04a8, f03=0x0000}
0x074c80…075920 DirEnt {nam=»INFO «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x04b0, f03=0x0000}
0x074c80…075920 DirEnt {nam=»UP11 «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x04b8, f03=0x0000}
0x074c80…075920 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x04d8, f03=0x0000}
0x074c80…075920 DirEnt {nam=»DRDU01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x04f0, f03=0x0000}
0x074c80…075920 DirEnt {nam=»SYSLCR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0588, f03=0x0000}
0x074c80…075920 }
0x075920…075ab4 (4, 1) Opaque[0x194]
0x075ab4…075c48 # DirEnt {nam=»INFO «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x04b0, f03=0x0000}
0x075ab4…075c48 IdxSect {
0x075ab4…075c48 f00 = 0x0025 // 0x75ab4 @0x0
0x075ab4…075c48 f01 = 0x0002 // 0x75ab6 @0x2
0x075ab4…075c48 gno = [ // 0x75ab8 @0x4
0x075ab4…075c48 [0x00]: C0x0025.0x2.0
0x075ab4…075c48 ]
0x075ab4…075c48 }
0x075c48…075ddc Dummy {f00=0x0025, f01=0x0190, f02=» 4 PTHIS FLEXIBLE DISC CONTAINS UPDATES FOR PTS TOSS PRELEASE 11.0. < , PTHE FOLLOWING MODULES HAVE BEEN UPDATED: R P * PUSER-ID ! MODULE ! DATE ! COMMENT @ P------------------------------------------------------------ < PTOSS11 ! DR
0x075ddc…075f70 Dummy {f00=0x0025, f01=0x0100, f02=» ! | P @ PYOU CAN UPDATE YOUR SYSTEM SOFTWARE BY ENTERING THE COMMAND PASG /E0,DK,UP11 ^ < PIF YOU DON'T WANT TO HAVE ANY OF YOUR OLD MODULES TO BE v 6 PREPLACED BY THESE NEW MODULES, YOU MUST CHANGE THE PFILE 'UP11'. 11 ! DR
0x075f70…076104 Dummy {f00=0x0025, f01=0x2008, f02=» ! | P @ PYOU CAN UPDATE YOUR SYSTEM SOFTWARE BY ENTERING THE COMMAND PASG /E0,DK,UP11 ^ < PIF YOU DON'T WANT TO HAVE ANY OF YOUR OLD MODULES TO BE v 6 PREPLACED BY THESE NEW MODULES, YOU MUST CHANGE THE PFILE 'UP11'. 11 ! DR
0x076104…076298 Dummy {f00=0x0025, f01=0xffff, f02=»
[…0x2…]
0x0765c0…076754 (4, 2) Opaque[0x194]
0x076754…0768e8 # DirEnt {nam=»UP11 «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x04b8, f03=0x0000}
0x076754…0768e8 IdxSect {
0x076754…0768e8 f00 = 0x0025 // 0x76754 @0x0
0x076754…0768e8 f01 = 0x0002 // 0x76756 @0x2
0x076754…0768e8 gno = [ // 0x76758 @0x4
0x076754…0768e8 [0x00]: C0x0025.0x3.0
0x076754…0768e8 ]
0x076754…0768e8 }
0x0768e8…076a7c Dummy {f00=0x0025, f01=0x0190, f02=» 4 PMES NOW YOUR SYSTEM SOFTWARE WILL BE UPDATED. 8 PMES YOUR SYSTEM SOFTWARE IS EXPECTED TO BE ON THE < $ PMES DISC WITH FILE-CODE /F0. x : PMES IF THIS IS OK, THEN PRESS THE INT-BUTTON ON THE 8 PMES FULL PANEL AND ENTER 'RS', OTHERWIS
0x076a7c…076c10 Dummy {f00=0x0025, f01=0x0190, f02=» PMOV DRDU01,/S,TOSS11 PKPF /S,DRDU01 $ 8 PMES REPLACING MODULE SYSLCR 11.0 IN USER TOSSWORK : PDEL SYSLCR,/S v PMOV SYSLCR,/S,TOSS11 PKPF /S,SYSLCR B PMES REPLACING MODULE SYSLCR 11.0 IN USER TOSSWORK (OBJECT) PDEL
0x076c10…076da4 Dummy {f00=0x0025, f01=0x0014, f02=» PASG /E0,TY10 S,TOSS11 PKPF /S,DRDU01 $ 8 PMES REPLACING MODULE SYSLCR 11.0 IN USER TOSSWORK : PDEL SYSLCR,/S v PMOV SYSLCR,/S,TOSS11 PKPF /S,SYSLCR B PMES REPLACING MODULE SYSLCR 11.0 IN USER TOSSWORK (OBJECT) PDEL
0x076da4…076f38 Dummy {f00=0x0025, f01=0x2008, f02=» /E0,TY10 S,TOSS11 PKPF /S,DRDU01 $ 8 PMES REPLACING MODULE SYSLCR 11.0 IN USER TOSSWORK : PDEL SYSLCR,/S v PMOV SYSLCR,/S,TOSS11 PKPF /S,SYSLCR B PMES REPLACING MODULE SYSLCR 11.0 IN USER TOSSWORK (OBJECT) PDEL
0x076f38…0770cc Dummy {f00=0x0025, f01=0xffff, f02=»
[…0x1…]
0x077260…0773f4 (4, 3) Opaque[0x194]
0x0773f4…077588 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x04d8, f03=0x0000}
0x0773f4…077588 IdxSect {
0x0773f4…077588 f00 = 0x0026 // 0x773f4 @0x0
0x0773f4…077588 f01 = 0x0006 // 0x773f6 @0x2
0x0773f4…077588 gno = [ // 0x773f8 @0x4
0x0773f4…077588 [0x00]: C0x0026.0x3.0
0x0773f4…077588 [0x01]: C0x0027.0x0.0
0x0773f4…077588 [0x02]: C0x0027.0x1.0
0x0773f4…077588 ]
0x0773f4…077588 }
0x077588…07771c Dummy {f00=0x0026, f01=0x018e, f02=» > @ IDENT SYSLCR REL 11.0 81-10-06 870105041100 SYSLCR F SYSLCR X STKEND l STKMOV ~ SCTSFA , ( H ) @ A x STKCOM GETAPP , ( I A |
0x07771c…0778b0 Dummy {f00=0x0026, f01=0x0190, f02=» ERROR , ( i x | R , ( @ - @ x - J N !TTP H , ( N :H N TBT K W x , ( 2 " T @ X 2 N CONVRT NXTBLK , ( =H
0x0778b0…077a44 Dummy {f00=0x0026, f01=0x0190, f02=» $ @ n GETNUM , ( + 2 .:H , ( G @ N R P V _ N N , ( e S S YB : ~ * & @@ @ x @ A INILEN , ( d A x A j
0x077a44…077bd8 Dummy {f00=0x0026, f01=0x0190, f02=» MULT , ( @ F * E H K @ , ( L " A N J @ , ( N P " 4X 1 p , ( = R Z0 % _ k k , ( ] :A K J 4 P 5 _ K * & }
0x077bd8…077d6c Dummy {f00=0x0026, f01=0x0190, f02=» A A SCTEFA , * & CR T @ A @ > , ( A b D J @ l , ( L A " A R @ T A , ( ' R K J @ L A f , ( AD .
0x077d6c…077f00 Dummy {f00=0x0026, f01=0x0190, f02=» K ) G J ) , ( K G ) G " * , ( H@ A N A t N P R Z , ( @ P _ A t R X4 GETTTB TTB:PP , ( _ J P I
0x077f00…078094 (4, 4) Dummy {f00=0x0027, f01=0x0190, f02=» ! P & I ( * , ( W! A t N P R & , ( s , " E V , ( R A t R R P , ( R X^ _dW T : , ( @@ A p _ A r
0x078094…078228 Dummy {f00=0x0027, f01=0x0190, f02=» H E v , ( E #_h A P @ L A " J ( MOVE F , ( _ A N J $ K , J V , ( { J | | N P GETTAB , ( DH | . 1 I * @ ! P , ( I
0x078228…0783bc Dummy {f00=0x0027, f01=0x0190, f02=» h , ( H@ 0 0 0P & & QUEJOB 8 * & X ' * @ b H H J , ( 5 H 2_0 A r A P @ R T @ x , ( M A @ @ R P J MOVING * & e V @ A A R
0x0783bc…078550 Dummy {f00=0x0027, f01=0x0190, f02=» $ @ v v , ( " M : Z A V @ H , ( R R Y R F * & <B @ p " 1 A v @ r : v , ( D Z _D @ V Z : A T R , ( 5 @ P A p _ , (
0x078550…0786e4 Dummy {f00=0x0027, f01=0x018e, f02=» , ( @ E _: Q , ( V 4 , ( E _z " D T E d , ( @ E D E % : Z " , ( @ R ;B D D " P P R , ( ; P P
0x0786e4…078878 Dummy {f00=0x0027, f01=0x0190, f02=» , ( " 6 : A H W A H ?AP ^ , ( @ 6 : 4P " D H 4 , ( H * M j - I " d , ( Y& : f : R , ( X A h @ N T : N @ , ( f A H
0x078878…078a0c Dummy {f00=0x0027, f01=0x0190, f02=» T T _v , ( J , V P _ N " , ( L % J J G G U R , ( R G : P V , ( (! : @ t P A p * & _$ 8 @ z @ p % @ n % :
0x078a0c…078ba0 Dummy {f00=0x0027, f01=0x418a, f02=» P0 H D ! P P> CP ePV i P H D ! W T P^ . T C X G Pl P d H D !l Q P . X P& IT aP iV R0 9 ;P O cP {Pr H D ! P T
0x078ba0…078d34 (4, 5) Dummy {f00=0x0027, f01=0x2008, f02=» L = FIX0 DATE = 83 02 07 1216PACK NBR = 0000
0x078d34…078ec8 Dummy {f00=0x0027, f01=0x0190, f02=» P$ ( W ~ , ( H $ ( W ( ( , ( A 4 4 : 4 N ( ( 1NORMAL END OF SPL_TASK ~ , ( 1STACK_ " ( OVERFLOW IN PROCEDURE , ( /
0x078ec8…07905c Dummy {f00=0x0027, f01=0x409a, f02=» P * : , ( ? ? $ , ( T @ SPL_TASK ~ , ( 1STACK_ " ( OVERFLOW IN PROCEDURE , ( /
0x07905c…0791f0 Dummy {f00=0x0027, f01=0x2008, f02=»
0x0791f0…079384 Dummy {f00=0x0027, f01=0x0190, f02=» R _ v ( $ PF;A <A Q W , ( $ D E % R _6;a B , ( R K .?A R >`W r ( $ >@ J 6 J 8=A>A T X ( $ P Q W T X $ , ( + D (
0x079384…079518 Dummy {f00=0x0027, f01=0x018e, f02=» J * v , ( & [ F n [ * & $ )R Q Y : : : z , ( PP PR Q W $ )R8Q< , ( Y P FW P F $ )R * (
0x079518…0796ac Dummy {f00=0x0027, f01=0x0190, f02=» f , ( K @ K 2 J . R , ( Q R P T P 8 8 8 8 , ( J . < > 8! 8 h , ( R<T R6 K 8 K : J 8 K . , ( J < K < J . J 2R$T J 4R , ( )
0x0796ac…079840 Dummy {f00=0x0027, f01=0x0190, f02=» P | , ( K 2 J . K < J 0 J 2 J , ( < K . J 0 J 4 J . P L W : | , ( 8c :m F V J F : , ( K @ T P T P P
0x079840…0799d4 (4, 6) Opaque[0x194]
0x0799d4…079b68 # DirEnt {nam=»DRDU01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x04f0, f03=0x0000}
0x0799d4…079b68 IdxSect {
0x0799d4…079b68 f00 = 0x0027 // 0x799d4 @0x0
0x0799d4…079b68 f01 = 0x0026 // 0x799d6 @0x2
0x0799d4…079b68 gno = [ // 0x799d8 @0x4
0x0799d4…079b68 [0x00]: C0x0027.0x2.0
0x0799d4…079b68 [0x01]: C0x0027.0x3.0
0x0799d4…079b68 [0x02]: C0x0028.0x0.0
0x0799d4…079b68 [0x03]: C0x0028.0x1.0
0x0799d4…079b68 [0x04]: C0x0028.0x2.0
0x0799d4…079b68 [0x05]: C0x0028.0x3.0
0x0799d4…079b68 [0x06]: C0x0029.0x0.0
0x0799d4…079b68 [0x07]: C0x0029.0x1.0
0x0799d4…079b68 [0x08]: C0x0029.0x2.0
0x0799d4…079b68 [0x09]: C0x0029.0x3.0
0x0799d4…079b68 [0x0a]: C0x002a.0x0.0
0x0799d4…079b68 [0x0b]: C0x002a.0x1.0
0x0799d4…079b68 [0x0c]: C0x002a.0x2.0
0x0799d4…079b68 [0x0d]: C0x002a.0x3.0
0x0799d4…079b68 [0x0e]: C0x002b.0x0.0
0x0799d4…079b68 [0x0f]: C0x002b.0x1.0
0x0799d4…079b68 [0x10]: C0x002b.0x2.0
0x0799d4…079b68 [0x11]: C0x002b.0x3.0
0x0799d4…079b68 [0x12]: C0x002c.0x0.0
0x0799d4…079b68 ]
0x0799d4…079b68 }
0x079b68…079cfc Dummy {f00=0x0027, f01=0x0190, f02=» 2 P IDENT DRDU01 REL 11.0 81-08-12 870105041100 P : 0 P =4, ERROR WHEN A3 AND PASSING LIMIT /FFFE B P =4, REL 11.0 81-05-18 v ( P =3, CONDITION FOR CPU857 CHANGED P =3, REL 11.0 81-04-02 * P =2, A2 AND A3 DISCS IN SAME SYSTEM
0x079cfc…079e90 Dummy {f00=0x0027, f01=0x0190, f02=» 6 P************************************************** P* > $ P* PHILIPS TERMINAL SYSTEM PTS H P* p . P* DRDU01 = DRIVER FOR ONE/TWO DISC UNITS z P* 0 P* PTS 6875 (X1215) AND/OR PTS 6876 (X1216) P* P* P* P
0x079e90…07a024 Dummy {f00=0x0027, f01=0x0190, f02=» DISC j 4 P* DRIVES X1215,X1216 CONNECTED TO CPU VIA IOP P* ON MULTIPLEX CHANNEL F P* f P* p * P* THE FOLLOWING ORDERS ARE TREATED : z P* P* /00 TEST STATUS P* /01 BASIC READ P* /05 BASIC WRITE
0x07a024…07a1b8 Dummy {f00=0x0027, f01=0x0190, f02=» x P* P* P*********** P* ENTRIES * 0 P*********** D P* X P* b $ P ENTRY DUADR ACTIVATION ADDRESS l P ENTRY DUON RECOVERY ROUTINE 2 P ENTRY IHDU1 INTERRUPT HANDLER DISC UNIT NO. 1 2 P ENTRY IHDU INTERRUPT HAND
0x07a1b8…07a34c Dummy {f00=0x0027, f01=0x0190, f02=»CT DRDU01 P* P* P************* ( P* EXTERNALS * > P************* T P* j P* t P EXTRN TDISP DISPATCHER ~ P EXTRN TENDIO END I/O . P EXTRN SAVE8 SAVE REGS. A1-A8 ON A15 STACK , P EXTRN NVLCHK CHECK IF NEW
0x07a34c…07a4e0 Dummy {f00=0x0027, f01=0x0190, f02=»RN VOLCLR CLEAR VOLUME NAMES IN DWT . P EXTRN INXDWT DOUBLED INDEX + DWT ADDRESS , P EXTRN DISIOE REQUEST ERROR ^ & P EXTRN INIFLG INITIALIZATION FLAG * P EXTRN PFPOST PWF POST PROCESSING FLAG * P EXTRN INTSAV SAVE AREA LAST INTERRUPT P
0x07a4e0…07a674 (4, 7) Dummy {f00=0x0027, f01=0x0190, f02=»ND ORDER x P EXTRN DWTA2 SAVE AREA A2 P EXTRN DWTA4 SAVE AREA A4 2 P EXTRN DWTA5 SAVE AREA A5 T & P EXTRN DWTSB1 STACK BASE 1 IN DWT v & P EXTRN DWTSB2 STACK BASE 2 IN DWT " P EXTRN DWTUEC USER ECB ADDRESS & P EXTRN DWTORD SAVE AREA
0x07a674…07a808 Dummy {f00=0x0027, f01=0x0190, f02=» EXTRN ECBBA ECB BUFFER ADDRESS & P EXTRN ECBRL ECB REQUESTED LENGTH ( & P EXTRN ECBEL ECB EFFECTIVE LENGTH R P EXTRN ECBRC ECB RETURN CODE | ( P EXTRN ECBCW1 ECB 1:ST CONTROL WORD ( P EXTRN ECBCW2 ECB 2:ND CONTROL WORD P EXTRN DK:DIX DE
0x07a808…07a99c Dummy {f00=0x0027, f01=0x0190, f02=»DITIONAL ASSEMBLY * P* * P* > P* H 6 P* READ AFTER WRITE MAY BE EXCLUDED FOR ORDER /15 R P* BY SETTING X:A = 0 P* PX:A EQU 0 PRAW EQU X:A P* P* . P* THIS DRIVER CAN HANDLE
0x07a99c…07ab30 Dummy {f00=0x0027, f01=0x0190, f02=»N USING TOSS MMU PAGING ~ * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* N PMMUPAG EQU 0 X P* l P* v 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 1
0x07ab30…07acc4 Dummy {f00=0x0027, f01=0x0190, f02=»ETTING CPU857 EQU 1 v P* PCPU857 EQU 0 =3 & P* > P* H P* PROGRAM VERSION FOR FORMAT R , P* A2 IS OBTAINED BY SETTING VERSA2 EQU 1 v , P* A3 IS OBTAINED BY SETTING VERSA3 EQU 1 P* PX:C EQU 1 PVERSA2 EQU X:C P
0x07acc4…07ae58 Dummy {f00=0x0027, f01=0x0190, f02=» P* CONSTANTS * P************* P* 4 P* > 0 PDAF1 EQU /28 DEVICE ADDRESS FIXED DISC NO. 1 H 4 PDAC1 EQU /08 DEVICE ADDRESS CARTRIDGE DISC NO. 1 | 0 PDAF2 EQU /38 DEVICE ADDRESS FIXED DISC NO. 2 4 PDAC2 EQU /18 DEVICE ADDRESS CART
0x07ae58…07afec Dummy {f00=0x0027, f01=0x0190, f02=»NO OF SECTORS ON UNPACKED PTS 6875 | , PSECLEN EQU 256 SECTOR LENGTH, CHARACTERS * * PPHSECL EQU 384 PHYSICAL SECTOR LENGTH Z PQRETRY EQU 4 NO OF RETRIES PTIME EQU 1000 1 MIN 40 SEC P* P* P EJECT DRDU01 DRDU01 P*
0x07afec…07b180 Dummy {f00=0x0027, f01=0x0190, f02=»ABORT ROUTINE ADDRESS P* P IFT VERSA3=1 ( PBUFFER RES 193 > P XIF T P* ` P IFT VERSA3=0 j PBUFFER RES 25 P* P IFT RAW=1 P RES 103 P XIF P IFT VERSA2=1 =2 ( PCYLBUF RES 2 CYL ID CHECK BUFFER
0x07b180…07b314 (4, 8) Dummy {f00=0x0028, f01=0x018e, f02=» ~ P* ACTIVATION * P* * " P***************** < P* V P* ` PDUAD EQU * j " P CM DWTRTY,A6 RETRY INDICATOR | 0 P CM DWTFBU,A6 RESET DRIVER BUFFER INDICATOR P LDK A1,0 P LC A1,DWTOR,A6 GET INDEX
0x07b314…07b4a8 Dummy {f00=0x0028, f01=0x0190, f02=» r P* PDUA:00 EQU * P* & P LDK A5,DWTSB3 0 P ADR A5,A6 LOAD STACK BASE F P IFT MMUPAG=1 h ( P MLR 2,A8 GET 18 BIT BUFFER ADDRESS ~ P SLC A1,4 MOST SIGN. BITS P ANK A1,3 P SRL A2,1 WORD ADDDRESS & P CF A5,MMU
0x07b4a8…07b63c Dummy {f00=0x0028, f01=0x0190, f02=» ADK A7,0 SET CR ( P RF(NZ) DUA:05 NOT TEST STATUS ORDER P* D P EJECT DRDU01 N P* d P* n P********************* x P* * P* TEST STATUS * P* * P*********************
0x07b63c…07b7d0 Dummy {f00=0x0028, f01=0x0190, f02=» LDK A2,1 * P ST A2,DWTSAV,A6 INDICATE TEST STATUS " P CF A5,VO:NAM READ VOLUME NAME @ P ADK A1,0 f P RF(NZ) TESEND NOT OPERABLE x , P LD A2,DWTORD,A6 RESTORE INDEX AND ORDER P ST A2,DWTOR,A6 P LD A8,DWTECB,A6 ECB ADDRESS 6 P
0x07b7d0…07b964 Dummy {f00=0x0028, f01=0x0190, f02=»T A2,DWTSAV,A6 INDICATE TEST STATUS DONE P ABL END:IO PERFORM ENDIO 0 P* R P EJECT DRDU01 P* t , P*************************************** ~ , P* * , P* NEW VOLUME LOADED CHECK *
0x07b964…07baf8 Dummy {f00=0x0028, f01=0x0190, f02=»***** n P* . P* INPUT: A1=NVL RETURN CODE FROM NVLCHK P* A7=ORDER CODE J P* j P* t PDUA:05 EQU * ~ ( P ADK A1,0 CHECK IF NEW VOLUME LOADED " P ABL(NZ) END:IO PERFORM TENDIO P SUK A7,1 P RF(Z) DUA:10 BASI
0x07baf8…07bc8c Dummy {f00=0x0028, f01=0x0190, f02=» P RF(Z) DUA:10 PHYSICAL WRITE P SUK A7,10 ( P RF(Z) FORMAT FORMAT VOLUME : P* ^ " PDUERR ABL DISIOE REQUEST ERROR h P* ( PINCLEN EQU * REQUESTED LENGTH ERROR P LDKL A1,/8008 P ABL END:20 P EJECT DRDU01 P*
0x07bc8c…07be20 Dummy {f00=0x0028, f01=0x0190, f02=» * P************************** P* 4 P* > PFORMAT EQU * H 0 P LDK A7,204 NUMBER OF CYLINDERS ON PTS 6875 " P LD A1,ECBCW1,A8 GET DISC TYPE P IFT VERSA2+VERSA3=2 P ECR A2,A1 P XIF P ANK A1,1 P RF(NZ
0x07be20…07bfb4 (4, 9) Dummy {f00=0x0028, f01=0x0190, f02=» LDKL A1,/C001 WRITE ONE WORD P ANK A2,3 & P SUK A2,3 8 P RF(NZ) FORM05 A1 OR A2 J " P LDKL A1,/C0C1 WRITE 386 BYTES j P ADKL A3,PHSECL PFORM05 EQU * " P ST A1,DWTFBU,A6 SAVE 1ST WER P XIF P* P IFT VERSA2=1
0x07bfb4…07c148 Dummy {f00=0x0028, f01=0x0190, f02=»SECL POSITION FOR CYL ID ~ P XIF P* , $ P STR A3,A6 DRIVER BUFFER POINTER 6 P IFT NUNITS=2 ^ P CF A5,INXUNI t P CM DWTCYL,A2 CYLINDER ZERO P XIF P IFT NUNITS=1 P CM DWTCYL,A6 CYLINDER ZERO P XIF P*
0x07c148…07c2dc Dummy {f00=0x0028, f01=0x0190, f02=»NXUNI GET UNIT INDEX P XIF P CF A5,SEEK SEEK CYLINDER ( P SLL A1,5 STATUS J P RF(NN) FORM40 SEEK ERROR b P IFT NUNITS=2 P CF A5,INXUNI P LD A1,DWTCYL,A2 P XIF P IFT NUNITS=1 P LD A1,DWTCYL,A6 P XIF
0x07c2dc…07c470 Dummy {f00=0x0028, f01=0x0190, f02=»WRITE SECTOR 8 ON ODD CYLINDERS P ORK A3,1 ORDER CODE: WRITE ( P* L P IFT VERSA2+VERSA3=2 V P LD A1,DWTFBU,A6 GET 1ST WER r P XIF P* P IFT VERSA2=1 P IFT VERSA3=0 P LDKL A1,/C002 P XIF P* P IFT
0x07c470…07c604 Dummy {f00=0x0028, f01=0x0190, f02=»A5,CIO:50 CIO:50 SECTOR P ANK A1,/1F P RF(NZ) FORM40 WRITE ERROR 4 P IFT NUNITS=2 V P CF A5,INXUNI l P IM DWTCYL,A2 P XIF P IFT NUNITS=1 P IM DWTCYL,A6 P XIF ( P SUK A7,1 DECREMENT CYLINDER COUNTER P
0x07c604…07c798 Dummy {f00=0x0028, f01=0x0190, f02=» P CF A5,SEEKZ SEEK CYLINDER 0 P SLL A1,6 ( P RF(N) FORM50 SEEK ERROR : P SUK A4,1 RETRY COUNTER Z P RB(NZ) FORM30 RETRY z PFORM50 EQU * $ P LDK A1,2 SEEK ERROR RETURN CODE P ABL END:IO PERFORM END IO P EJECT DRDU01 DR
0x07c798…07c92c Dummy {f00=0x0028, f01=0x0190, f02=» * b 6 P* CHECK IF ALLOWED SECTOR LENGTH, BUFFER SIZE * 6 P* AND SECTOR NUMBER * F 6 P* SAVE BUFFER ADDRESS AND SET SECTOR COUNTER * 6 P* * 6 P********************
0x07c92c…07cac0 Dummy {f00=0x0028, f01=0x018e, f02=»ER POINTER t P* P* PDUA:10 EQU * & $ P LD A3,ECBRL,A8 REQUESTED LENGTH : P RB(Z) INCLEN b 6 P ECR A7,A3 DIVIDE BY 256 TO GET NUMBER OF SECTORS x & P ANK A3,/FF SET CONDITION REGISTER 4 P RB(NZ) INCLEN NOT AN INTEGER NUMBER OF SECT
0x07cac0…07cc54 (4, 10) Dummy {f00=0x0028, f01=0x0190, f02=» ~ * P RB(NL) DUERR INCORRECT SECTOR NUMBER P ADR A3,A7 6 P CW A3,DWTSMX,A2 H ( P RB(G) INCLEN SECTOR NUMBER OVERFLOW ` P* P IFT MMUPAG=0 P LD A1,ECBBA,A8 ( P ST A1,DWTUBU,A6 USER BUFFER POINTER P XIF P* P E
0x07cc54…07cde8 Dummy {f00=0x0028, f01=0x0190, f02=» * | " P* DISC VERSION SEPARATION * " P* * 8 " P***************************** ^ P* P* P LD A2,DWTFOR,A2 P SUK A2,2 P RF(Z) RW:800 VERSION A2 P XIF P* P EJECT DRDU01
0x07cde8…07cf7c Dummy {f00=0x0028, f01=0x0190, f02=» * P* * * P* GET PHYSICAL SECTOR NUMBER BY * 2 * P* DIVIDE BY 3 * ` * P* * * P************************************* P* P IFT CPU852=0 "
0x07cf7c…07d110 Dummy {f00=0x0028, f01=0x018e, f02=»OSITION p 2 P* A2=QUOTIENT=PHYSICAL SECTOR NUMBER ON DISC ! P XIF ! F P* ! R P IFT VERSA3=1 ! P IFT CPU852=1 ! r P LD A1,ECBCW2,A8 ! P LDR A3,A1 SECTOR NUMBER ! P LDK A2,0 ! PDVK:00 EQU * ! P ADR A2,A3 I:= I+I/4 ! P SRL A
0x07d110…07d2a4 Dummy {f00=0x0028, f01=0x0190, f02=» P SUK A2,1 " PDVK:10 EQU * " P ADK A2,1 " * P SUK A1,3 DIVIDE BY 3 " < P RB(NN) DVK:10 " Z P ADK A1,3 REST " p , P* A1=REMAINER=LOGICAL SECTOR POSITION " 2 P* A2=QUOTIENT=PHYSICAL SECTOR NUMBER ON DISC " P* " P EJECT DRDU01 "
0x07d2a4…07d438 Dummy {f00=0x0028, f01=0x018e, f02=» * " p * P* SAVE PHYSICAL SECTOR NUMBER * # * P* AND SECTOR POSITION * # < * P* BRANCH ACCORDING TO SECTOR * # j * P* POSITION * # * P* * # * P********************
0x07d438…07d5cc Dummy {f00=0x0028, f01=0x018e, f02=» # P* $ P ADR A2,A2 $ * P STR A2,A6 SAVE PHYSICAL SECTOR NUMBER $ $ P SUK A1,1 $ R P IFT RAW=1 $ d * P ST A1,DWTSEP,A6 SAVE SECTOR POSITION $ v 2 P ST A2,DWTSEI,A6 SAVE 1ST PHYS. SECTOR NUMBER $ P XIF $ P* $ P IFT VERSA3=1 $ P*
0x07d5cc…07d760 Dummy {f00=0x0028, f01=0x0190, f02=» P* % P EJECT DRDU01 % P* % $ * P************************************* % . * P* * % * P* READ/WRITE FROM SECTOR IN * % * P* POSITION , , xxxx, * % * P*
0x07d760…07d8f4 (4, 11) Dummy {f00=0x0028, f01=0x0190, f02=»TSEI,A6 SAVE FOR READ AFTER WRITE % P XIF & * P* & 6 P IFT VERSA3=1 & @ P CF A5,IOROUT & V P DATA /0084 & l P SUK A7,1 & P RF RW:300 & P* & P EJECT DRDU01 & P* & * P************************************* & * P*
0x07d8f4…07da88 Dummy {f00=0x0028, f01=0x0190, f02=» * & * P************************************* ' $ P* ' R P* ' PRW:200 EQU * ' f P CF A5,IOROUT ' z P DATA /0048 ' P SUK A7,2 NUMBER OF SECTORS ' P RF(N) RW:230 1 SECTOR IN IO ' $ P RF(NZ) RW:260 >2 SECTORS IN
0x07da88…07dc1c Dummy {f00=0x0028, f01=0x0190, f02=» CF A5,IOROUT ' P DATA /0040 ( P RF RW:600 ( * PRW:260 EQU * , XX,XXXXXX, ( < P CF A5,IOROUT ( ` P DATA /80C0 ( v P* ( P EJECT DRDU01 ( P* ( ( P************************************ ( ( P* * (
0x07dc1c…07ddb0 Dummy {f00=0x0028, f01=0x0190, f02=»************************************ ( P* ) , P* ) 6 PRW:300 EQU * ) @ P SUK A7,3 SECTOR COUNTER ) T 0 P RF(NG) RW:500 LESS THAN FOUR SECTORS IN IO ) t P CF A5,IOROUT ) P DATA /80C0 ) P CF A5,IOROUT ) P DATA /80C0 ) P RB RW:300 )
0x07ddb0…07df44 Dummy {f00=0x0028, f01=0x0190, f02=»* READ/WRITE ON THE LAST SECTORS * ) ( P* IN IO * * , ( P* * * X ( P************************************ * P* * P* * PRW:500 EQU * * P RF(Z) RW:580 3 SECTORS * P ADK A7,2 *
0x07df44…07e0d8 Dummy {f00=0x0028, f01=0x0190, f02=» * P RF RW:600 + PRW:560 EQU * ,XXXXXX,XX , + P CF A5,IOROUT + > P DATA /80C0 + T P CF A5,IOROUT + h P DATA /0040 + ~ P RF RW:600 + PRW:580 EQU * ,XXXXXX,XXXXXX, + P CF A5,IOROUT + P DATA /80C0 + P CF A5,IOROUT + P
0x07e0d8…07e26c Dummy {f00=0x0028, f01=0x0190, f02=»******** + P* * , P* READ AFTER WRITE * , 0 P* * , P P************************ , p P* , 0 P* DWTSEI=1:ST PHYSICAL SECTOR NUMBER IN IO , 8 P* 1ST POS IN DWT=LAST PHYSICAL SECTOR NUMBER IN IO ,
0x07e26c…07e400 Dummy {f00=0x0028, f01=0x0190, f02=»HYSICAL WRITE , | P LDKL A2,-/100 - , P LD A1,DWTSEP,A6 GET 1ST SECTOR POSITION - , P RF(Z) RW:645 , XX, - P RF(P) RW:640 , XXXX, - z P ADK A2,/80 - PRW:640 EQU * - P ADK A2,/80 - PRW:645 EQU * - , P ST A2,ECBEL,A8 PREPARE EFFECTIV
0x07e400…07e594 (4, 12) Dummy {f00=0x0029, f01=0x0190, f02=»CTORS - l P STR A1,A6 . P* . P EJECT DRDU01 . * P* . @ P* . J PRW:650 EQU * . T P CF A5,IOROUT . h P DATA /40C0 . ~ P IMR A6 NEXT PHYSICAL SECTOR . P LDKL A1,PHSECL . " P ADS A1,ECBEL,A8 UPDATE ECBEL . P SUK A7,1 . P R
0x07e594…07e728 Dummy {f00=0x0029, f01=0x018e, f02=»RW:700 EQU * . P LDK A1,0 RETURN CODE / P ABL END:20 ENDIO / 2 P* / L P XIF / V P* / b P EJECT DRDU01 / l P* / P IFT VERSA2=1 / P* / P* / & P********************************* / & P* * / &
0x07e728…07e8bc Dummy {f00=0x0029, f01=0x0190, f02=» P* 0 PRW:800 EQU * 0 P CF A5,DIV31 0 " P IFT RAW=1 0 6 @ P ST A7,DWTSEI,A6 SAVE NUMBER OF SECTORS FOR READ AFTER WRITE 0 H P XIF 0 P* 0 P IFT VERSA2=1 0 PRW:850 EQU * 0 P CF A5,IOROUT 0 " P DATA /A080 INDICATE FORMAT A2 0 P
0x07e8bc…07ea50 Dummy {f00=0x0029, f01=0x0190, f02=» 0 P EJECT DRDU01 1 P* 1 P* 1 ( P IFT RAW=1 1 2 P LD A7,DWTOR,A6 GET ORDER 1 D P ANK A7,/FF 1 f P SUK A7,/15 1 z P* 1 P IFT VERSA3=1 1 & P RB(NZ) RW:700 NOT PHYSICAL WRITE 1 P XIF 1 P* 1 P IFT VERSA3=0 1 P IFT
0x07ea50…07ebe4 Dummy {f00=0x0029, f01=0x018e, f02=»PARE FOR READ AFTER WRITE 1 P LD A7,DWTSEI,A6 2 " P CF A5,DIV31 2 : P* 2 N P EJECT DRDU01 2 X P* 2 n P* 2 x PRW:900 EQU * 2 P CF A5,IOROUT 2 P DATA /E080 READ AFTER WRITE 2 P SUK A7,1 2 P RB(NZ) RW:900 2 P XIF 2 P* 2
0x07ebe4…07ed78 Dummy {f00=0x0029, f01=0x0190, f02=» P LDK A1,0 RESET RETURN CODE 3 P ABL END:20 3 ( P XIF 3 < P* 3 H P EJECT DRDU01 3 R P* 3 h 4 P*********************************************** 3 r 4 P* * 3 4 P* IOROUT PERFORM READ OR WRITE AND S
0x07ed78…07ef0c Dummy {f00=0x0029, f01=0x0190, f02=»***************************************** 3 P* 4 2 & P* INPUT : ONE DATA WORD AFTER CF 4 < * P* BIT 0 :INDICATES DIRECT IO 4 f 0 P* BIT 1 :INDICATES READ AFTER WRITE 4 * P* BIT 2 :INDICATES FORMAT A2 4 * P* BIT 8-1
0x07ef0c…07f0a0 Dummy {f00=0x0029, f01=0x0190, f02=»AD 4 Z @ P* DWTBSE CONTAINS THE PRESENT SECTOR IN THE DRIVER BUFFER 5 & P* DWTRTY INDICATES RETRIES DONE 5 N H P* DWTSWD SAVED WORD FROM USER BUFFER WHEN IO NOT VIA DRIVER BUFFER 5 x P* 5 PIOROUT EQU * 5 * P LDR* A3,A6 GET PHYSICAL SECTOR NUMBER
0x07f0a0…07f234 (4, 13) Dummy {f00=0x0029, f01=0x0190, f02=» RF(NN) SEE:05 FORMAT A3 5 P ADK A3,0 6 P XIF 6 2 P* 6 > P EJECT DRDU01 6 H P* 6 ^ P* 6 h P IFT VERSA2=1 6 r " P RF(NZ) SEE:05 NOT CYLINDER 0 6 P CF A5,SEEKZ 6 P SLL A1,6 6 P RF(N) SEE:20 ERROR 6 P IFT NUNITS=2 6 P C
0x07f234…07f3c8 Dummy {f00=0x0029, f01=0x0190, f02=»TCYL,A6 6 P RF VA2BR 7 P XIF 7 " P* 7 . P EJECT DRDU01 7 8 P* 7 N P* 7 X PSEE:05 EQU * 7 b P IFT NUNITS=2 7 v P CF A5,INXUNI 7 * P CW A3,DWTCYL,A2 COMPARE WITH PRESENT 7 P XIF 7 P IFT NUNITS=1 7 P CW A3,DWTCYL,A6 7
0x07f3c8…07f55c Dummy {f00=0x0029, f01=0x0190, f02=»FT VERSA3=1 7 " P RF(E) SEE:90 HEAD IN POSITION 8 P XIF 8 : P* 8 F P IFT VERSA2+VERSA3=2 8 P $ P RF(NE) SEE:07 NOT SAME CYLINDER 8 l P ADK A4,0 8 P RF(N) VA2BR FORMAT A2 8 P RF SEE:90 8 P* 8 P EJECT DRDU01 8 P* 8 P* 8
0x07f55c…07f6f0 Dummy {f00=0x0029, f01=0x0190, f02=» NUNITS=2 8 " P ST A3,DWTCYL,A2 NEW CYLINDER 9 P XIF 9 8 $ P LDK A4,QRETRY NUMBER OF RETRIES 9 D PSEE:10 EQU * 9 l P IFT NUNITS=2 9 $ P CF A5,INXUNI DOUBLED UNIT INDEX 9 P XIF 9 P CF A5,SEEK 9 P SLC A1,5 RETURN CODE 9 P RF(N) SEE:3
0x07f6f0…07f884 Dummy {f00=0x0029, f01=0x0190, f02=»ODE 9 ~ P RF(N) SEE:20 ERROR : P IM DWTRTY,A6 INDICATE RETRY : ( P SUK A4,1 RETRY COUNTER : L P RB(NZ) SEE:10 TRY AGAIN : l PSEE:20 EQU * : P LDKL A3,/FFFF : P IFT NUNITS=2 : P CF A5,INXUNI : * P ST A3,DWTCYL,A2 DUMMY CYLINDER NUMBER
0x07f884…07fa18 Dummy {f00=0x0029, f01=0x0190, f02=»SEE:35 END IO : P* ; P EJECT DRDU01 ; P* ; 6 P* ; @ PSEE:30 EQU * ; J P IFT NUNITS=2 ; ^ P CF A5,INXUNI ; t P XIF ; P IFT VERSA2+VERSA3=2 ; P LD* A1,4,A5 GET DATA WORD ; P SLL A1,2 ; P RF(NN) SEE:31 FORMAT A3 ; P X
0x07fa18…07fbac Dummy {f00=0x0029, f01=0x0190, f02=»F A5,SKEW ; P LDKL A1,/8002 READ 2 WORDS < 4 P LDKL A2,CYLBUF READ TO CYLINDER CHECK BUFFER =2 < 6 P CF A5,CIO:50 < n P ANK A1,/1F ERROR CHECK < P RF(NZ) SEE:32 < $ P LD A3,CYLBUF GET CYLINDER ID =2 < P IFT NUNITS=2 < P CF A5,INXUNI <
0x07fbac…07fd40 Dummy {f00=0x0029, f01=0x0190, f02=»SAME CYLINDER < v P XIF = P IFT VERSA2=1 = " " P RB(NE) SEE:15 NOT SAME CYL ID = 8 PVA2BR EQU * = ^ P ABL VA2:00 = r P XIF = P* = P IFT VERSA3=1 = P EJECT DRDU01 = P* = P* = P* FORMAT A3 = P* = PSEE:31 EQU *
0x07fd40…07fed4 (4, 14) Dummy {f00=0x0029, f01=0x018e, f02=»IF = P* > P IFT VERSA3=1 > P SLL A3,5 GET SECTOR NUMBER > * $ P ST A3,DWTBSE,A6 SAVE FOR BSELOD > N P LDK A3,0 > v . P CF A5,SKEW TO READ SECTOR 0 OR 8 ON DISC > 0 P IM DWTFBU,A6 INDICATE READ TO DRIVER BUFFER > P CF A5,READ > 2 P LD A3
0x07fed4…080068 Dummy {f00=0x0029, f01=0x0190, f02=» > P* ? PSEE:32 EQU * ? P IM DWTRTY,A6 INDICATE RETRY ? & P SUK A4,1 RETRY COUNTER ? J P RB(NZ) SEE:15 RETRY ? j PSEE:35 EQU * ? P ABL END:10 ? P* ? P IFT VERSA3=1 ? P* ? P EJECT DRDU01 ? P* ? P* ? PSEE:40
0x080068…0801fc Dummy {f00=0x0029, f01=0x0190, f02=» IFT NUNITS=1 ? ( P LD A3,DWTCYL,A6 GET CYLINDER NUMBER @ P XIF @ B P IFT VERSA3=1 @ N , P CW A3,BUFFER+PHSECL COMPARE WITH CYL ID @ d P RB(NE) SEE:15 RETRY @ P* @ P EJECT DRDU01 @ P* @ P************************* @ P*
0x0801fc…080390 Dummy {f00=0x0029, f01=0x0190, f02=»************* @ P* A PSEE:90 EQU * A P LD A4,DWTOR,A6 GET ORDER A 4 P ANK A4,4 A V P RF(Z) READ00 READ ORDER A h P LD* A2,4,A5 A 0 P RF(N) WRIT20 WRITE DIRECT FROM USER BUFFER A P SLL A2,1 A P IFT RAW=1 A " P RF(N) READWR READ A
0x080390…080524 Dummy {f00=0x0029, f01=0x0190, f02=»DWTFBU,A6 INDICATE READ TO DRIVER BUFFER A $ P CF A5,REA:00 READ BEFORE WRITE B 0 P* B X P EJECT DRDU01 B b P* B x P* B PWRIT10 EQU * B P LD* A2,4,A5 GET DATA WORD B P LDR A4,A2 B , P ANK A4,/C0 GET NUMBER OF WORDS TO MOVE B P SLL
0x080524…0806b8 Dummy {f00=0x0029, f01=0x0190, f02=»ITS=2 B P CF A5,INXUNI C ( P LD A2,DWTCYL,A2 GET CYLINDER NUMBER C $ P XIF C P P IFT VERSA3=1 C P IFT NUNITS=1 C r ( P LD A2,DWTCYL,A6 GET CYLINDER NUMBER C P XIF C P IFT VERSA3=1 C . P ST A2,BUFFER+PHSECL PUT IN DRIVER BUFFER C 4 P
0x0806b8…08084c Dummy {f00=0x0029, f01=0x0190, f02=» DRDU01 C P* D P* D PWRIT20 EQU * D $ P IFT MMUPAG=0 D 8 * P LDKL A2,PHSECL PHYSICAL SECTOR LENGTH D N 0 P ADS A2,DWTUBU,A6 UPDATE USER BUFFER POINTER D | . P LD* A4,DWTUBU,A6 GET WORD IN USER BUFFER D P ST A4,DWTSWD,A6 SAVE WORD D & P IM
0x08084c…0809e0 Dummy {f00=0x0029, f01=0x0190, f02=»TUBU,A6 PUT IN USER BUFFER D P XIF E " P IFT VERSA3=1 E . P IFT MMUPAG=0 E D P IFT NUNITS=1 E Z P LD A2,DWTCYL,A6 E p ( P ST* A2,DWTUBU,A6 PUT IN USER BUFFER E P XIF E P* E P IFT VERSA3=1 E P IFT MMUPAG=1 E P IFT NUNITS=2 E
0x0809e0…080b74 (4, 15) Dummy {f00=0x0029, f01=0x0190, f02=»S=1 E ( P LD A4,DWTCYL,A6 GET CYLINDER NUMBER F P XIF F 8 P IFT VERSA3=1 F D P IFT MMUPAG=1 F Z ( P TS -30,A15 SAVE REGISTERS ON STACK F p ( P TL DWTPAG,A6 LOAD PAGE WITH CYL ID F 0 P LD A2,DWTUBU,A6 GET LOGICAL BUFFER POINTER F & P EL A3,PHSEC
0x080b74…080d08 Dummy {f00=0x0029, f01=0x0190, f02=»RD F x & P IM DWTFSW,A6 INDICATE SAVED WORD G P XIF G 4 P* G @ P IFT VERSA3=1 G J 2 P CM DWTFBU,A6 INDICATE WRITE FROM USER BUFFER G ` 0 P CF A5,WRI:00 WRITE SECTOR FROM USER BUFFER G . P CF A5,REWORD RESTORE WORD TO USER BUFFER G P RF SEE:95 G
0x080d08…080e9c Dummy {f00=0x0029, f01=0x0190, f02=»F SEE:97 G P XIF H P* H P IFT VERSA3=1 H & PREAD00 EQU * H < P LD* A2,4,A5 GET DATA WORD H P P RF(N) READ20 DIRECT READ H r 0 P IM DWTFBU,A6 INDICATE READ TO DRIVER BUFFER H ( P CF A5,REA:00 READ TO DRIVER BUFFER H P LD* A1,4,A5 GET DAT
0x080e9c…081030 Dummy {f00=0x0029, f01=0x0190, f02=» SLL A1,4 H P CF A5,MOVRED I P RF SEE:95 I ( PREAD20 EQU * I : P IFT MMUPAG=0 I N P LDKL A3,PHSECL I d 0 P ADS A3,DWTUBU,A6 UPDATE USER BUFFER POINTER I | P XIF I P* I P IFT VERSA3=1 I . P CM DWTFBU,A6 INDICATE READ TO USER BUFFER I
0x081030…0811c4 Dummy {f00=0x0029, f01=0x0190, f02=» EJECT DRDU01 I P* J P* J PSEE:96 EQU * J * P LD* A2,4,A5 GET DATA WORD J > P ANK A2,/C0 LENGTH J ` P SLL A2,1 J z " P ADS A2,ECBEL,A8 UPDATE ECBEL J P* J P IFT MMUPAG=1 J P LDK A1,0 J P SRL A2,1 WORD MODE J 0 P DA DWTB
0x0811c4…081358 Dummy {f00=0x0029, f01=0x0190, f02=»2 UPDATE RETURN J P ADS A1,4,A5 K P RTN A5 K , P* K < P EJECT DRDU01 K F P* K P IFT VERSA2=1 K f P* K | P* K $ P******************************** K $ P* * K $ P* DISC FORMAT A2 * K $ P
0x081358…0814ec Dummy {f00=0x0029, f01=0x0190, f02=»ETRIES K PVA2:10 EQU * L P IFT NUNITS=2 L " P CF A5,INXUNI L 8 P XIF L N P IFT VERSA2=1 L Z $ P CF A5,INLACE INTERLACE AND SKEW L p P* L P IFT MMUPAG=0 L P LDKL A1,/8080 1ST WER L P IFT RAW=1 L P LD* A2,4,A5 L P SLL A2,1 L
0x0814ec…081680 Dummy {f00=0x0029, f01=0x0190, f02=»FT VERSA2=1 L P IFT MMUPAG=1 M " P LDKL A1,/0808 1ST WER SHIFTED M * P XIF M P P* M P IFT VERSA2=1 M f P IFT RAW=1 M | P IFT MMUPAG=1 M P LD* A2,4,A5 M P SLL A2,1 M ( P RF(NN) VA2:20 NOT READ AFTER WRITE M P LDKL A1,/8080 M
0x081680…081814 (4, 16) Dummy {f00=0x002a, f01=0x0190, f02=» M v P ANK A2,4 N P RF(Z) VA2:30 READ N P* N 4 P IFT MMUPAG=0 N > P LDKL A1,/C080 N T P XIF N j P* N v P IFT VERSA2=1 N P IFT MMUPAG=1 N " P LDKL A1,/080C 1ST WER SHIFTED N P XIF N P* N P IFT VERSA2=1 N " P ADK A3,1
0x081814…0819a8 Dummy {f00=0x002a, f01=0x0190, f02=»A2,DWTUBU,A6 2ND WER N P XIF O P* O ( P IFT VERSA2=1 O 2 P IFT MMUPAG=1 O H P LDK A2,0 O ^ P DA DWTBA1,A6 O p " P SRC A1,4 1ST WER IN POSITION O " P SLL A2,1 2ND WER IN POSITION O P XIF O P* O P IFT VERSA2=1 O PVA2:35 EQU
0x0819a8…081b3c Dummy {f00=0x002a, f01=0x0190, f02=» RETRY O P RF WRI:50 ERROR P P* P & P EJECT DRDU01 P 0 P* P F P* P P PVA2:40 EQU * P Z * P LDR* A3,A6 GET PHYSICAL SECTOR NUMBER P n P ADK A3,1 NEXT SECTOR P P LDR A2,A3 P P CWK A2,31 P " P RF(NE) VA2:50 NOT CYLINDER 0 P & P ADK
0x081b3c…081cd0 Dummy {f00=0x002a, f01=0x0190, f02=» P z PVA2:60 EQU * Q & P STR A3,A6 PHYSICAL SECTOR NUMBER Q P RB SEE:96 Q F P XIF Q X P* Q d P IFT VERSA3=1 Q n P EJECT DRDU01 Q P* Q P**************************** Q P* * Q P* SUBROUTINES FOR WRITE *
0x081cd0…081e64 Dummy {f00=0x002a, f01=0x0190, f02=»******** Q | P* R PWRI:00 EQU * R P LDK A4,QRETRY RETRIES R . PWRI:20 EQU * R L P IFT NUNITS=2 R ` P CF A5,INXUNI R v P XIF R P IFT VERSA3=1 R * P CF A5,INLACE INTERLACE SECTOR NUMBER R P CF A5,WRITE CIO R P ANK A1,/1F RETURN C
0x081e64…081ff8 Dummy {f00=0x002a, f01=0x0190, f02=»UNTER R t P RB(NZ) WRI:20 S , P CF A5,REWORD RESTORE WORD IF NECESSARY S $ P XIF S T P* S ` PWRI:50 EQU * S j P ABL END:10 ERROR END IO S ~ P* S P IFT VERSA3=1 S P* S PWRI:80 EQU * S P RTN A5 S P* S P EJECT DRDU01 S
0x081ff8…08218c Dummy {f00=0x002a, f01=0x0190, f02=» & P* USER BUFFER : * T & P* DRIVER BUFFER : * T . & P* * T X & P********************************* T P* T PREA:00 EQU * T P LD A3,DWTOR,A6 GET INDEX T P ANKL A3,/300 T P SLL A
0x08218c…082320 Dummy {f00=0x002a, f01=0x0190, f02=» T P LDK A4,QRETRY U PREA:20 EQU * U P IFT NUNITS=2 U 2 P CF A5,INXUNI U H P XIF U ^ P IFT VERSA3=1 U j * P CF A5,INLACE INTERLACE SECTOR NUMBER U P CF A5,READ READ SECTOR U P ANK A1,/F U 0 P CF A5,BSELOD UPDATE DRIVER BUFFER INDIC
0x082320…0824b4 (4, 17) Dummy {f00=0x002a, f01=0x0190, f02=»R U p P RB(NZ) REA:20 RETRY V P ABL END:20 V & P* V : P EJECT DRDU01 V D P* V Z P* V d PREA:30 EQU * V n & P LD A3,BUFFER+PHSECL GET CYL ID =4 V P LD A2,DWTFBU,A6 V , P RF(NZ) REA:50 READ TO DRIVER BUFFER =4 V P IFT MMUPAG=0 V 6
0x0824b4…082648 Dummy {f00=0x002a, f01=0x018e, f02=»5 SAVE REGISTERS V P TL DWTPAG,A6 LOAD MMUPAGE W 0 P LD A3,DWTUBU,A6 GET LOGICAL BUFFER POINTER W : P EL A3,PHSECL,A3 GET CYL ID W n P TL -30,A15 RESET REGISTERS W P XIF W P* W P IFT VERSA3=1 W PREA:50 EQU * W P IFT NUNITS=2 W
0x082648…0827dc Dummy {f00=0x002a, f01=0x0190, f02=» W P IFT VERSA3=1 X $ P RF(E) REA:90 RIGHT CYLINDER ID X P LDK A1,2 SEEK ERROR X F P* X b P EJECT DRDU01 X l P* X P* X P RB REA:25 X PREA:85 EQU * X P LD A1,DWTFBU,A6 X ( P RF(NZ) REA:90 READ TO DRIVER BUFFER X $ P LDKL A4
0x0827dc…082970 Dummy {f00=0x002a, f01=0x0190, f02=» P XIF Y P IFT VERSA3=1 Y & P CF A5,MOVRED MOVE TO USER BUFFER Y & PREA:90 EQU * Y P P RTN A5 Y d P* Y t P EJECT DRDU01 Y ~ P* Y P* Y * P************************************* Y * P* * Y * P*
0x082970…082b04 Dummy {f00=0x002a, f01=0x0190, f02=»IVER BUFFER TO USER BUFFER * Y * P* MOVRED * Z ( * P* * Z V * P************************************* Z P* Z P* A1 BUFFER ADDRESS IN Z P* A2 BUFFER ADDRESS OUT Z P* A4
0x082b04…082c98 Dummy {f00=0x002a, f01=0x0190, f02=»WTUBU,A6 PRESENT POINT IN USER BUFFER Z P XIF [ . P* [ : P IFT VERSA3=1 [ D P IFT CPU852+MMUPAG=0 [ Z P IFT CPU857=1 [ v , P LD A2,DWTUBU,A6 GET USER BUFFER POINTER [ 0 P ADS A4,DWTUBU,A6 UPDATE USER BUFFER POINTER [ P MVB A4 [ P XIF [
0x082c98…082e2c Dummy {f00=0x002a, f01=0x018e, f02=» A2,1 BYTE MODE [ P TS -30,A15 SAVE REGISTERS P TL DWTPAG,A6 : ( P LD A2,DWTUBU,A6 GET LOGICAL ADDRESS P P MVSU A4 | P XIF P* P IFT VERSA3=1 P RF MOV:00 P* P EJECT DRDU01 P* P* PMOVWRI EQU
0x082e2c…082fc0 Dummy {f00=0x002a, f01=0x0190, f02=» P XIF ] P* ] P IFT VERSA3=1 ] P IFT CPU852+MMUPAG=0 ] 0 P IFT CPU857=1 ] L , P LD A1,DWTUBU,A6 GET USER BUFFER POINTER ] b 0 P ADS A4,DWTUBU,A6 UPDATE USER BUFFER POINTER ] P MVB A4 ] P XIF ] P* ] P IFT VERSA3=1 ] P IFT C
0x082fc0…083154 (4, 18) Dummy {f00=0x002a, f01=0x0190, f02=»EGISTERS ] ~ P TL DWTPAG,A6 ^ ( P LD A1,DWTUBU,A6 GET LOGICAL ADDRESS ^ & P MVUS A4 ^ R P XIF ^ b P* ^ n P IFT VERSA3=1 ^ x PMOV:00 EQU * ^ P IFT MMUPAG+CPU857=0 ^ 0 P ADS A4,DWTUBU,A6 UPDATE USER BUFFER POINTER ^ P XIF ^ P* ^ P
0x083154…0832e8 Dummy {f00=0x002a, f01=0x0190, f02=»CPU857=0 ^ P IFT CPU852=1 _ P* _ & P EJECT DRDU01 _ 0 P* _ F P* _ P PMOV:10 EQU * _ Z P LDR* A3,A1 _ n P STR A3,A2 _ P ADK A1,2 _ P ADK A2,2 _ P SUK A4,2 _ P RB(P) MOV:10 _ P XIF _ P* _ P IFT VERSA3=1 _
0x0832e8…08347c Dummy {f00=0x002a, f01=0x0190, f02=»DR A10,A2 OUTPUT ADDRESS _ P LDR A9,A1 INPUT ADDRESS ` $ P LDKL A12,16 BYTES IN EACH LOOP ` @ PMOV:15 EQU * ` h P MLR 8,A9 ` | P MSR 8,A10 ` P ADR A10,A12 ` P ADR A9,A12 ` P SUR A11,A12 ` P RB(P) MOV:15 ` , P MLR 12,A15 RESTORE RE
0x08347c…083610 Dummy {f00=0x002a, f01=0x0190, f02=» P EJECT DRDU01 a P* a P* a $ P*************************** a . P* * a R P* DIV31 * a v P* * a P*************************** a P* a , P* INPUT: ECBCW2=LOGICAL SE
0x083610…0837a4 Dummy {f00=0x002a, f01=0x0190, f02=»D A1,ECBCW2,A8 GET LOGICAL SECTOR NUMBER a P LDR A3,A1 b 0 P LDK A2,0 b B PDIV:20 EQU * b T P ADR A2,A3 I0:=I0+I1 b h P SRL A3,5 I1:=I1/32 b P RB(NZ) DIV:20 b P LDR A3,A2 b P ANKL A3,/FFE0 32* b P SRL A2,5 TRUNCATE b P SUR A3,A2 b
0x0837a4…083938 Dummy {f00=0x002a, f01=0x0190, f02=»F(Z) DIV:50 CYLINDER 0 b P ADR A1,A2 c P ADK A1,1 c 0 P* c B P EJECT DRDU01 c L P* c b P* c l PDIV:50 EQU * c v 0 P STR A1,A6 PUT PHYSICAL SECTOR NUMBER IN DWT c P RTN A5 c P* c P XIF c P* c P IFT VERSA2=1 c P IFT
0x083938…083acc Dummy {f00=0x002a, f01=0x0190, f02=» ADK A2,0 c P RF(Z) DIV:10 CYLINDER 0 d P ADK A2,1 d 2 PDIV:10 EQU * d D & P ADRS A2,A6 PHYSICAL SECTOR NUMBER d X P RTN A5 d P XIF d P* d P EJECT DRDU01 d P* d & P********************************* d & P*
0x083acc…083c60 Dummy {f00=0x002a, f01=0x0190, f02=»* d p & P* * e & P********************************* e 4 P* e ^ B P* OUTPUT : A3 CONTAINING INTERLACED AND SKEWED SECTOR NUMBER e h P* e PINLACE EQU * e * P LDR* A3,A6 GET PHYSICAL SECTOR NUMBER e P LDR A1,A3 e
0x083c60…083df4 (4, 19) Dummy {f00=0x002a, f01=0x018e, f02=»ER e n P XIF f P IFT NUNITS=1 f ( P LD A2,DWTCYL,A6 GET CYLINDER NUMBER f , P XIF f X P ANK A2,1 f d P RF(Z) INLAC5 EVEN CYLINDER f v " P ADK A3,8 SKEW FACTOR 180 DEG. f PINLAC5 EQU * f P ANK A3,/1F f P SLL A3,2 IN POSITION f P R
0x083df4…083f88 Dummy {f00=0x002a, f01=0x0190, f02=» f P* g 4 P* OUTPUT A2=DOUBLED UNIT INDEX + DWT ADDRESS g P* g J PINXUNI EQU * g T P LC A2,DWTOR,A6 g h P ANK A2,2 g P ADR A2,A6 g P RTN A5 g P XIF g P* g P IFT MMUPAG=1 g P EJECT DRDU01 g P* g P* g .
0x083f88…08411c Dummy {f00=0x002a, f01=0x018e, f02=»ND * g n . P* PAGE * h . P* * h B . P****************************************** h t P* h P* h PMMULOG EQU * h . P MS 2,DWTBA1,A6 SAVE PHYSICAL WORD ADDRESS h P DLA 4 h
0x08411c…0842b0 Dummy {f00=0x002a, f01=0x0190, f02=» h j P SRL A2,3 i $ P ST A2,DWTUBU,A6 LOGICAL ADDRESS i P RTN A5 i B P* i R P XIF i P* i h P EJECT DRDU01 i r P* i P IFT VERSA3=1 i P* i P* i " P****************************** i P* i & P* UPDATE DRIVER BUFFER IN
0x0842b0…084444 Dummy {f00=0x002a, f01=0x0190, f02=»BSE=DRIVER BUFFER INDICATOR i P* j $ PBSELOD EQU * j . & P LDR* A3,A6 GET READ SECTOR NUMBER j B " PBSEL00 EQU * FROM SEEK VERIFY j l P LD A2,DWTFBU,A6 j , P RF(Z) BSEL50 READ/WRITE TO USER BUFFER j P LDKL A2,/FFFF DUMMY j P ADK A1,0 j P
0x084444…0845d8 Dummy {f00=0x002a, f01=0x0190, f02=» * j 4 P ST A2,DWTBSE,A6 UPDATE DRIVER BUFFER INDICATOR k PBSEL50 EQU * k B P RTN A5 k V P* k f P EJECT DRDU01 k p P* k P* k , P*************************************** k , P* * k , P* RESTORE WO
0x0845d8…08476c Dummy {f00=0x002a, f01=0x0190, f02=»********************************* k P* l * * P* INPUT: DWTFSW=SAVED WORD INDICATOR l 4 P* DWTSWD=SAVED WORD l b , P* DWTUBU=POINTER TO USER BUFFER l P* l PREWORD EQU * l P LD A3,DWTFSW,A6 l P RF(Z) REWO50 NO SAVED WORD
0x08476c…084900 Dummy {f00=0x002a, f01=0x0190, f02=»WTUBU,A6 GET LOGICAL BUFFER ADDRESS l ( P ES A3,PHSECL,A2 RESTORE SAVED WORD m , P TL -30,A15 RESET REGISTERS m X P XIF m | P* m P IFT VERSA3=1 m P IFT MMUPAG=0 m ( P ST* A3,DWTUBU,A6 RESTORE SAVED WORD m P XIF m P* m P IFT VER
0x084900…084a94 (4, 20) Dummy {f00=0x002b, f01=0x0190, f02=»RDU01 DRDU01 m P* n P* n P******************* n * P* * n F P* SEEK CYLINDER * n b P* * n ~ P******************* n P* n P* n PSEEK EQU * n P IFT NUNITS=2 n $ P LD A3,DWTCYL,A2 CYLIN
0x084a94…084c28 Dummy {f00=0x002b, f01=0x0190, f02=»UTE CIO-START n P* o PSEEKZ EQU * o P LDK A3,3 o 4 P RF CIO EXECUTE CIO-START o F P* o h P EJECT DRDU01 o r P* o P* o & P********************************** o & P* * o & P* CIO: READ AND WRITE
0x084c28…084dbc Dummy {f00=0x002b, f01=0x0190, f02=»CTOR NUMBER SHIFTED o x P* p P IFT VERSA3=1 p & P IFT MMUPAG=0 p < PREAD EQU * p R P LDKL A1,/80C1 1ST WER p d P RF CIO:20 p PWRITE EQU * p P LDKL A1,/C0C1 1ST WER p P ADK A3,1 ORDER CODE p PCIO:20 EQU * p P LD A2,DWTFBU,A6 p
0x084dbc…084f50 Dummy {f00=0x002b, f01=0x0190, f02=» PCIO:30 EQU * q * P LDKL A2,BUFFER DRIVER BUFFER ADDRESS q P XIF q F P* q R P IFT VERSA3=1 q P IFT MMUPAG=1 q r PREAD EQU * q " P LDKL A1,/0C18 1ST WER SHIFTED q P RF CIO:20 q PWRITE EQU * q " P LDKL A1,/0C1C 1ST WER SHIFTED q
0x084f50…0850e4 Dummy {f00=0x002b, f01=0x0190, f02=»6 GET USER BUFFER ADDRESS q P SLL A2,1 BYTE MODE ADDRESS r " P RF CIO:40 r F PCIO:30 EQU * r X * P LDKL A2,BUFFER DRIVER BUFFER ADDRESS r l PCIO:40 EQU * r " P SRC A1,4 1ST WER IN POSITION r P XIF r P* r PCIO:50 EQU * r P WER A1,WE
0x0850e4…085278 Dummy {f00=0x002b, f01=0x0190, f02=» r x P LD A2,PFPOST s ( P RF(NZ) CIOAB PWF POST PROCESSING ON s * P CF A15,INXDWT GET INDEXED DWT ADDRESS s J $ P EX DWTCIO,A4 EXECUTE CIO-START s x & P ABL(3) END:30 CU ADDRESS UNKNOWN s PCIOAB EQU * s " P ST A5,DWTA5,A6 A5 s ( P ST
0x085278…08540c Dummy {f00=0x002b, f01=0x0190, f02=» s P* t P********************** t P* * t 0 P* RECOVERY ROUTINE * t N P* * t l P********************** t P* t P* t PDUON EQU * t P* t P IFT CPU852=1 t & P CF A15,SAVE8 SAVE A1-A8 O
0x08540c…0855a0 Dummy {f00=0x002b, f01=0x0190, f02=» t " P LDK A5,DWTSB3 GET STACK BASE u P ADR A5,A6 u . 0 P LDKL A1,/7FFE UNIT BUSY AND RECOVERY ON =1 u @ P ANS A1,DWTST,A6 =1 u t $ P CM DWTSAV,A6 INDICATE RECOVERY u & P LD A1,INIFLG INITIALIZATION FLAG u P RF(NZ) DUON05 NOT POWER UP u P*
0x0855a0…085734 (4, 21) Dummy {f00=0x002b, f01=0x0190, f02=» RF(NZ) DUON26 NOT OPERABLE u P IFT NUNITS=2 v $ P LDK A1,2 v : P SC A1,DWTOR,A6 NEXT UNIT v L P CF A5,SEEKZ v n P ANK A1,1 v P RF(NZ) DUON26 NOT OPERABLE v P XIF v P* v P EJECT DRDU01 v P* v P* v PDUON05 EQU * v
0x085734…0858c8 Dummy {f00=0x002b, f01=0x0190, f02=» VOLCLR v x P LDK A1,12 w P CF A15,VOLCLR w " PDUON07 EQU * w 8 P IFT NUNITS=2 w L P LDK A1,2 OTHER DISC UNIT w b P SC A1,DWTOR,A6 w P CF A5,VO:NAM w P ANK A1,1 w P RF(Z) DUON08 NO ERROR w P LDK A1,2 OTHER DISC UNIT w P SC
0x0858c8…085a5c Dummy {f00=0x002b, f01=0x0190, f02=» P LDKL A1,-1 x " P ST A1,DWTSAV,A6 RECOVERY DONE x P* x > P EJECT DRDU01 x H P* x ^ P* x h $ P LD A8,DWTECB,A6 GET ECB ADDRESS x r P RF(Z) END:IO NO REQUEST ON? x P* x $ PDUON10 LD A7,DWTORD,A6 GET ORDER x , P ST A7,DWTOR,A6 RESTORE
0x085a5c…085bf0 Dummy {f00=0x002b, f01=0x018e, f02=»* x ( P CM ECBEL,A8 RESET EFFECTIVE LENGTH y P ABL DUA:00 REPEAT REQUEST y 6 P* y X P EJECT DRDU01 y b P* y z P* READY INTERRUPT y P* y PDUREDY LD A1,TIMER y " P RF(Z) DUON50 NO TIMER ACTIVE y P* y P IFT NUNITS=1 y
0x085bf0…085d84 Dummy {f00=0x002b, f01=0x0190, f02=» P* z P EJECT DRDU01 z P* z & P* z 0 PDUON26 EQU * z : ( P LDKL A4,TIMER TIMER POINTER ADDRESS z N P LDR* A3,A4 z z " P RF(Z) DUON30 NO TIMER ACTIVE z P LDKL A1,-TIME z P STR A1,A3 RESTART TIMER z P RB T:DISP z P* z P*
0x085d84…085f18 Dummy {f00=0x002b, f01=0x0190, f02=» z P* { PDUON40 LDKL A6,DWDU01 { P CM TIMER { 0 PDUON50 EQU * { B 4 P LDKL A5,/7FFE SET UNIT BUSY AND RECOVERY ON =1 { V P ANS A5,DWTST,A6 =1 { $ P CM DWTSAV,A6 INDICATE RECOVERY { " P LDK A5,DWTSB3 GET STACK BASE { P ADR A5,A6 {
0x085f18…0860ac Dummy {f00=0x002b, f01=0x018e, f02=»* { z P* INTERRUPT HANDLER * | P* * | * P*********************** | J P* | j P* | t PIHDU EQU * | ~ PIHDU1 EQU * | PIHDU2 EQU * | $ P ST P,INTSAV SAVE LAST INTERRUPT | P* | P IFT CPU852=1 | & P CF A15,
0x0860ac…086240 Dummy {f00=0x002b, f01=0x0190, f02=» $ P LDKL A6,DWDU01 DISC UNIT NO. 1 } P* } , P EJECT DRDU01 } 6 P* } N P* } X " PIHDU10 SST A1,CUADR GET STATUS } b * PIHDU20 ANKL A1,/460F MASK RETURN CODE } P SLL A1,1 } " P RB(N) DUREDY READY INTERRUPT } P SRL A1,1 } P LDR A2,
0x086240…0863d4 (4, 22) Dummy {f00=0x002b, f01=0x0190, f02=» * } P LD A8,DWTECB,A6 ECB ADDRESS ~ P LD A2,DWTSAV,A6 ~ . P RF(NN) GET ~ F P LDR A3,A1 ~ Z P ANK A3,1 ~ l * P RF(NZ) END:IO DISC UNIT NOT OPERABLE ~ ~ P* ~ * PGET LD A5,DWTA5,A6 RELOAD REGISTERS A5 ~ ( P LD A4,DWTA4,A6 A4
0x0863d4…086568 Dummy {f00=0x002b, f01=0x018e, f02=»*********** ~ P* * P* PERFORM ENDIO * 0 P* * L P******************* h P* P* $ PEND:30 EQU * CU ADDRESS UNKNOWN P LDK A1,1 NOT OPERABLE . P ORS A1,DWTST,A6 INDICATE RECOVERY DONE =1
0x086568…0866fc Dummy {f00=0x002b, f01=0x0190, f02=» " P RF(N) END:20 READ AFTER WRITE P LD A7,DWTORD,A6 . P ANK A7,/FF GET ORDER F P SUK A7,/15 d ( P RF(NZ) END:20 NOT READ AFTER WRITE x $ P CM ECBEL,A8 RESET SECTORS DONE P XIF P* PEND:20 EQU * P LDKL A2,/FF00
0x0866fc…086890 Dummy {f00=0x002b, f01=0x0190, f02=» RETURN CODE v P EJECT DRDU01 P* * P* 4 PEND:IO EQU * > P CF A15,TENDIO PERFORM ENDIO R P ABL TDISP GO TO DISPATCHER v P* P EJECT DRDU01 P* P* PVO:NAM EQU * P CF A5,SEEKZ SEEK SECTOR 0 P
0x086890…086a24 Dummy {f00=0x002b, f01=0x0190, f02=» P CM DWTCYL,A2 CYLINDER 0 P XIF ( P IFT NUNITS=1 4 P CM DWTCYL,A6 J P XIF ` P LDK A3,0 SECTOR 0 l P* P IFT VERSA3=1 ( P IM DWTFBU,A6 READ TO DRIVER BUFFER P CF A5,READ P ANK A1,3 0 P CF A5,BSELOD UP
0x086a24…086bb8 Dummy {f00=0x002b, f01=0x0190, f02=»TO DRIVER BUFFER P CF A5,CIO:50 P ANK A1,3 ERROR ? . P XIF H P* T 0 P RF(NZ) VO:NA8 THROUGHPUT ERROR,NOT OPERABLE ^ P LDKL A2,BUFFER P LDK A3,/F0 FILE CODE P LD A1,DWTSAV,A6 P RF(Z) VO:NA6 ( P LDKL A3,/80F0 IND
0x086bb8…086d4c Dummy {f00=0x002b, f01=0x0190, f02=» PDUNA40 EQU * P LDK A1,1 6 P LDK A7,1 TO INDICATE NOT TRANSFER PARAMETER ORDER . ( P LD A2,BUFFER+32 CHECK IF TOSS DISC h P CWK A2,'TO' P RF(NE) DUNA70 NO TOSS 4 P LD A2,BUFFER+40 CHECK IF RELEASE 10 OR GREATER P CWK A2,/2
0x086d4c…086ee0 Dummy {f00=0x002b, f01=0x0190, f02=» TRANSFER PARAMETER ORDER z * P CF A15,INXDWT GET INDEXED DWT ADDRESS " & P ECR A3,A2 SEPARATE THE PARAMETERS P P ANK A3,/3 z P ANK A2,/3 * P ST A3,DWTFOR,A4 SAVE FORMAT PARAMETER ( P LDKL A1,6324 SECTORS ON VERSION A2 P SUK A3,2 FORMAT
0x086ee0…087074 (4, 23) Dummy {f00=0x002b, f01=0x0190, f02=»8-6324 PDUNA60 EQU * P SUK A2,1 " P RF(Z) DUNA70 PTS 6875 4 , P ADR A1,A1 PTS 6876 2*MAXSEC ON PTS 6875 R PDUNA70 EQU * * P ST A1,DWTSMX,A4 MAX SECTOR NO IN DWT 4 P LDK A1,0 RESET RETURN CODE FOR TRANSFER PARAM. * P ADK A7,0 CH
0x087074…087208 Dummy {f00=0x002b, f01=0x0190, f02=»Y COUNTER t P LC A1,DWTOR,A6 P ADK A1,1 * P SC A1,DWTOR,A6 < P ANK A1,1 T P RB(NZ) VO:NAM f P RF VO:NA9 | PVO:NA8 EQU * P LDK A1,1 ERROR CODE PVO:NA9 EQU * P RTN A5 P* P* TIMER POINTER P*
0x087208…08739c Dummy {f00=0x002b, f01=0x0190, f02=»***** p * P* * * P* DEVICE WORK TABLE * < * P* * j * P************************************* P* P* PDWDU01 EQU * " P DATA 0 PHYSICAL SECTOR NU
0x08739c…087530 Dummy {f00=0x002b, f01=0x0190, f02=»0 TTAB ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE > P* P IFT MMUPAG=1 f & P DATA 0 SAVE AREA USER ECB ADDRESS | P DATA ECBDU1 MMU ECB ADDRESS P XIF P* PDWTFSW EQU *-DWDU01 P DATA 0
0x087530…0876c4 Dummy {f00=0x002b, f01=0x0190, f02=» P DATA 0 PDWTSWD EQU *-DWDU01 P DATA 0 0 P* @ P EJECT DRDU01 J P* ` P* j PDWTRTY EQU *-DWDU01 t P DATA 0 P DATA 0 P DATA /C000 FIXED 4 P DATA /8000 NEW VOLUME LOADED INDICATOR CARTR. 1 P DATA
0x0876c4…087858 Dummy {f00=0x002b, f01=0x0190, f02=»F,/FFFF,/FFFF VOLUME NAME 1ST CARTRIDGE P* 0 P IFT NUNITS=2 : 2 P DATA /FFFF,/FFFF,/FFFF VOLUME NAME 2ND FIXED P 6 P DATA /FFFF,/FFFF,/FFFF VOLUME NAME 2ND CARTRIDGE P XIF P* P EJECT DRDU01 P* P* PDWTSAV E
0x087858…0879ec Dummy {f00=0x002b, f01=0x0190, f02=»START x P CIO A3,1,DAF1 P CIO A3,1,DAC1 $ P* : P IFT NUNITS=2 D P CIO A3,1,DAF2 Z P CIO A3,1,DAC2 p P XIF P* PDWTCYL EQU *-DWDU01 P DATA /FFFF CYLINDER NUMBER P* P IFT NUNITS=2 P DATA /FFFF
0x0879ec…087b80 Dummy {f00=0x002b, f01=0x0190, f02=»IDGE t P* P IFT NUNITS=2 P DATA 1 2ND UNIT , P DATA 1 2ND UNIT D P XIF P* h PDWTFOR EQU *-DWDU01 r P DATA 0 DISC FORMAT ON FIXED " P DATA 0 DISC FORMAT CARTRIDGE P* P IFT NUNITS=2 P DATA 0 P
0x087b80…087d14 (4, 24) Dummy {f00=0x002c, f01=0x0190, f02=» P IFT RAW=1 PDWTSEP EQU *-DWDU01 P DATA 0 6 PDWTSEI EQU *-DWDU01 F P DATA 0 b P XIF r P* ~ P IFT MMUPAG=1 PECBDU1 EQU * P DATA 0,0,0,0,0,0,0 PDWTBA1 EQU *-DWDU01 P DATA 0 PDWTBA2 EQU *-D
0x087d14…087ea8 Dummy {f00=0x002c, f01=0x4014, f02=» P END @ PDWTSEP EQU *-DWDU01 P DATA 0 6 PDWTSEI EQU *-DWDU01 F P DATA 0 b P XIF r P* ~ P IFT MMUPAG=1 PECBDU1 EQU * P DATA 0,0,0,0,0,0,0 PDWTBA1 EQU *-DWDU01 P DATA 0 PDWTBA2 EQU *-D
0x087ea8…08803c Dummy {f00=0x002c, f01=0x2008, f02=» -DWDU01 2:ND WER INSTRUCTION - P WER A3,WER1+1 . , PDWTNAM EQU *-DWDU01 . B PDWTVOL EQU *-DWDU01 . ^ & P DATA 0,0,0 VOLUME NAME FIXED DISC . z * P DATA 0,0,0 VOLUME NAME CARTRIDGE DISC . PDWTSAV EQU *-DWDU01 . P DATA -1 . P END . @
0x08803c…0881d0 Dummy {f00=0x002c, f01=0x0190, f02=»PLSEG APLNPE APLSWB $ APLSTA 8 APLTYP L NUMSEG ` PRGLG1 t SYSLOD STKEND SCTIPL SCTANO , ( I$ A 0 A A " A A STK
0x0881d0…088364 Dummy {f00=0x002c, f01=0x0190, f02=» A. z bREL TABBE ( , ( O UU @>B @ A 8 , ( k @ D E D E P h MMDDIV , ( $_( W V W V P ERROR SCTMSZ SCTEFA
0x088364…0884f8 Dummy {f00=0x002c, f01=0x018e, f02=» @ @ A , ( ! P A @ , ( ! @ $ A A @ P , ( H @ @ E E E E E , ( 9A A & E @ F CRP , ( U <A COP <A BAP AS<A E ASP
0x0884f8…08868c Dummy {f00=0x002c, f01=0x0190, f02=» , ( F ;j , ( Y P F P 4 , ( @ P - P _ d , ( :L E A W , ( F D AST =l R , ( ? W R Q
0x08868c…088820 Dummy {f00=0x002c, f01=0x0190, f02=» :L AST , ( A A E E A A " , ( 8 P W 89B @ V R , ( $ W Zb A @ @ , ( A A @ D , ( # B AS @ A
0x088820…0889b4 (4, 25) Opaque[0x194]
0x0889b4…088b48 # DirEnt {nam=»SYSLCR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0588, f03=0x0000}
0x0889b4…088b48 IdxSect {
0x0889b4…088b48 f00 = 0x002c // 0x889b4 @0x0
0x0889b4…088b48 f01 = 0x0044 // 0x889b6 @0x2
0x0889b4…088b48 gno = [ // 0x889b8 @0x4
0x0889b4…088b48 [0x00]: C0x002c.0x1.0
0x0889b4…088b48 [0x01]: C0x002c.0x2.0
0x0889b4…088b48 [0x02]: C0x002c.0x3.0
0x0889b4…088b48 [0x03]: C0x002d.0x0.0
0x0889b4…088b48 [0x04]: C0x002d.0x1.0
0x0889b4…088b48 [0x05]: C0x002d.0x2.0
0x0889b4…088b48 [0x06]: C0x002d.0x3.0
0x0889b4…088b48 [0x07]: C0x002e.0x0.0
0x0889b4…088b48 [0x08]: C0x002e.0x1.0
0x0889b4…088b48 [0x09]: C0x002e.0x2.0
0x0889b4…088b48 [0x0a]: C0x002e.0x3.0
0x0889b4…088b48 [0x0b]: C0x002f.0x0.0
0x0889b4…088b48 [0x0c]: C0x002f.0x1.0
0x0889b4…088b48 [0x0d]: C0x002f.0x2.0
0x0889b4…088b48 [0x0e]: C0x002f.0x3.0
0x0889b4…088b48 [0x0f]: C0x0030.0x0.0
0x0889b4…088b48 [0x10]: C0x0030.0x1.0
0x0889b4…088b48 [0x11]: C0x0030.0x2.0
0x0889b4…088b48 [0x12]: C0x0030.0x3.0
0x0889b4…088b48 [0x13]: C0x0031.0x0.0
0x0889b4…088b48 [0x14]: C0x0031.0x1.0
0x0889b4…088b48 [0x15]: C0x0031.0x2.0
0x0889b4…088b48 [0x16]: C0x0031.0x3.0
0x0889b4…088b48 [0x17]: C0x0032.0x0.0
0x0889b4…088b48 [0x18]: C0x0032.0x1.0
0x0889b4…088b48 [0x19]: C0x0032.0x2.0
0x0889b4…088b48 [0x1a]: C0x0032.0x3.0
0x0889b4…088b48 [0x1b]: C0x0033.0x0.0
0x0889b4…088b48 [0x1c]: C0x0033.0x1.0
0x0889b4…088b48 [0x1d]: C0x0033.0x2.0
0x0889b4…088b48 [0x1e]: C0x0033.0x3.0
0x0889b4…088b48 [0x1f]: C0x0034.0x0.0
0x0889b4…088b48 [0x20]: C0x0034.0x1.0
0x0889b4…088b48 [0x21]: C0x0034.0x2.0
0x0889b4…088b48 ]
0x0889b4…088b48 }
0x088b48…088cdc Dummy {f00=0x002c, f01=0x0190, f02=» 2 P IDENT SYSLCR REL 11.0 81-10-06 870105041100 P : P =5,NOT CORRECT CHANGE IN B P REL 11.0 81-09-16 f . P =4,T:A FOR TRABUG COMMON FOR ALL TASKS P REL 11.0 81-05-19 , P =3,WHEN MMUPAG=1 APPLICATION CODE IS * P
0x088cdc…088e70 Dummy {f00=0x002c, f01=0x018e, f02=»ING BUFFERS p P FROM TOP P PRR 11.0 80-12-03 * 0 P =1,APPLICATION CONTROL BLOCK IS EXTENDED J P WITH 1 WORD ~ P PRR 11.0 80-11-19 P P > P********************************************************
0x088e70…089004 Dummy {f00=0x002c, f01=0x0190, f02=» N P* P* P* P* & P* 0 P* : > P********************************************************** D P* P* CREDIT APPLICATION: F P* SYSLCR READS CONFIGURATION FILE (ALREADY IN CORE) AND BUILD B P* SHADOW-
0x089004…089198 Dummy {f00=0x002c, f01=0x0190, f02=»F TO FOLLOW MONITOR AND WILL ALSO MOVE r P* DDIV-PROTOTYPE . . P* N H P* APPLICATION WORKBLOCKS, DESCRIPTORS, STACK AND TABLES ARE NOW X H P* BUILT FROM 'BOTTOM' (HIGHEST FREE ADDRESS) OF MEMORY. BUFFERS H P* ARE, IN CASE OF M
0x089198…08932c Dummy {f00=0x002c, f01=0x018e, f02=» P* 'OVER' SYSLCR. P EJECT " P 0 P*************************** < P* * ` P* ENTRIES AND EXTERNALS * P* * P*************************** P P* LABEL ENTR
0x08932c…0894c0 Dummy {f00=0x002c, f01=0x0190, f02=» 2 P EXTRN XMOVE MOVE BLOCKS INSIDE MEMORY VIA MMU P EXTRN MOVMMT MOVE MM-TABLE > $ P EXTRN GETTAB FIND TTAB-ADDRESS b $ P EXTRN GETTTB FIND TTAB-ADDRESS 0 P EXTRN MMENT FIND LAST USED ENTRY IN MM-TAB ( P EXTRN ERROR ERROR HANDLING ROUTIN
0x0894c0…089654 (4, 26) Dummy {f00=0x002c, f01=0x0190, f02=»DEFINITION BLOCK p * P EXTRN CONVRT CONVERSION ASCII-BINARY 2 P EXTRN GETNUM CONVERT 3 ASCII-DIGITS TO BINARY F & P EXTRN MULT MULTIPLICATION ROUTINE | 4 P EXTRN GETAPP FIND APPLICATION AND ITS CONF.FILE P EXTRN QUEJOB QUEUE TASK P " P*
0x089654…0897e8 Dummy {f00=0x002c, f01=0x0190, f02=»RN MMEND ABSOLUTE END ADDRESS OF WORK-TAB 1 2 P EXTRN MMDDIV WORK-TABLE 2 (MM) RELATIVE 'REL' 4 P EXTRN PSW j " P EXTRN INILEN LENGTH OF SYSINI | , P EXTRN LSTPAG DISPL. TO 'ENTRY-POINTER' P EXTRN MMBEG P P EJECT $ P* SYSTEM CON
0x0897e8…08997c Dummy {f00=0x002c, f01=0x0190, f02=» " P EXTRN SCTEFA END OF FREE AREA " P EXTRN SCTNOP NUMBER OF PAGES * P EXTRN SCTPSZ PAGE SIZE P P EXTRN SCTOPT SYSTEM OPTION p $ P EXTRN SCTPAG PAGE TABLE ADDRESS 4 P EXTRN SCTSWB ADDRESS TO SWB CONTROL BLOCK TABLE P EXTRN SCTBUG BUGGER
0x08997c…089b10 Dummy {f00=0x002c, f01=0x0190, f02=»OF COMMON-PAD AREA | P P* EXTERNAL LABELS " P < P* D , P EXTRN TTB:SA START OF SAVE AREA IN TTAB N 8 P EXTRN TTB:CB DISPL. TO CURRENT SEGMENT BASE ADDRESS ~ & P EXTRN TTB:MT DISPL. TO MMU TABLE $ P EXTRN TTB:ID DISPL. TO TASK ID
0x089b10…089ca4 Dummy {f00=0x002c, f01=0x018e, f02=»********************************* , P* CONDITIONAL ASSEMBLY * * , P*************************************** Z P PMMUPAG EQU 0 0 = NO MMU P . PSWPBLK EQU 0 0 = NO SWAPPABLE WORK BLOCKS P 2 P********************
0x089ca4…089e38 Dummy {f00=0x002c, f01=0x0190, f02=» ` 2 P* ==================== * 2 P* * > 2 P********************************************* t P 4 PAPLADA EQU 22 APPL. DISC FILE ADDR. (2 WORDS) =1 ( PAPLREL EQU 18 APPL. RELOCATION
0x089e38…089fcc Dummy {f00=0x002c, f01=0x0190, f02=»APPLICATION LOAD ADDR. (LOGICAL ADDR.) & PAPLLAP EQU 12 LOGICAL PAGE ADDRESS . 8 PAPLLDA EQU 0 APPLICATION LOAD ADDR. (PHYSICAL ADDR.) X . PAPLMMC EQU 10 APPLICATION MMU START ENTRY ( PAPLMMP EQU 8 SEGMENT START MMU ENTRY . PAPLSEG EQU 4 PHYSICAL
0x089fcc…08a160 Dummy {f00=0x002c, f01=0x018e, f02=»M START ADDRESS z " PAPLTYP EQU 8 APPLICATION TYPE . PAPLPSZ EQU 20 APPLICATION SEGMENT SIZE =1 > P EJECT p P ~ P PROGRAM STRUCTURE: P F P* ENTRY ->! * SYSLCR ENTRY * ! N P* ! READ
0x08a160…08a2f4 (4, 27) Dummy {f00=0x002c, f01=0x0190, f02=» F P* ! T:ATAB: ! F P* ! -A TABLE OF 'NUMBER OF REAL TASKS'IS BUILT AT ! N F P* ! THE END OF MONITOR. ! F P* ! U:BTAB:
0x08a2f4…08a488 Dummy {f00=0x002c, f01=0x0190, f02=»OTYPE. ! v F P* ! ! 0 F P* ! -RELOCATE ALL W.B.-ADDRESSES IN DDIV-PROTOTYPE. ! z F P* ! -REMOVE NOT USED ENTRIES IN T:ATAB !
0x08a488…08a61c Dummy {f00=0x002c, f01=0x0190, f02=» ! X < P* ! SYSLCO AND SYSLBA),SYSINI AND CONF.DATA , P* ! TO FOLLOW SHADOW-TABLES T F P* ! -CONTINUE IN PART 2.A ! F P* -----------------------------------------------
0x08a61c…08a7b0 Dummy {f00=0x002c, f01=0x0190, f02=» ! ~ F P* ! C O M D A T ! 8 F P* ! GENERATE COMMON DATA AREA. PROCESS CWB'S & UWB'S. ! F P* ! -MOVE D.T. AND W.B., COPY UWB'S ACCORDING TO
0x08a7b0…08a944 Dummy {f00=0x002c, f01=0x0190, f02=» ! ` F P* ! C L A D A T ! F P* ! BUILD TASK CLASS DATA AREAS. PROCESS CWB'S, UWB'S ! d F P* ! AND DWB'S. ! F P* ! -B
0x08a944…08aad8 Dummy {f00=0x002c, f01=0x0190, f02=» ! -MOVE D.T. & W.B., COPY UWB'S ! F P* ! -MOVE D.T.'S OF SWB'S AND TWB'S ! F F P* ! -SEARCH DBLK-TAB FOR DWB'S. MOVE D.T. AND UPDATE ! F P* ! W.B.-ADDRESS
0x08aad8…08ac6c Dummy {f00=0x002c, f01=0x0190, f02=» ! n F P* ! BUILD PROTOTYPE TASK-LOCAL DATA AREAS. ! ( F P* ! -GENERATE TWB'S AND RESERVE FOR SWB'S ! r F P* ! -ALLOCATE FIXED BUFFERS AND TERMINAL STACK ! F P*
0x08ac6c…08ae00 Dummy {f00=0x002c, f01=0x0190, f02=» ! P F P* ! -CONTINUE IN PART 2.B ! F P* !-----------------------------------------------------! T P P* ! R E A L T A ! PART 2.B F P* ! BUILD RE
0x08ae00…08af94 (4, 28) Dummy {f00=0x002d, f01=0x0190, f02=» ! -COPY T:A'S ACCORDING TO SHADOW-TABLE ! F P* ! -BUILD TWB'S AND RESERVE FOR SWB'S ! @ F P* ! -ALLOCATE FIXED BUFFERS AND STACK ! F P* ! -UPDATE TID IN T:A AND SAVE TID IN T:A
0x08af94…08b128 Dummy {f00=0x002d, f01=0x0190, f02=» PARTS IN THIS PROGRAM ! h F P* !-----------------------------------------------------! & P EJECT p . P***************************************** ~ . P* * . P* COMMON DISPLACEMENTS AND CONSTANTS
0x08b128…08b2bc Dummy {f00=0x002d, f01=0x0190, f02=»DRESS TO APPL. CONTROL TABLE $ PAPPLNO EQU 18 APPLICATION NUMBER $ ( PBUFSIZ EQU 14 TEMPORARY BUFFER SIZE L . PCONLEN EQU 0 LENGTH OF CONFIGURATION DATA x , PCONSTA EQU 2 START OF CONFIGURATION DATA ( PDATEND EQU 34 END OF DDIV PROTOTYPE $ PDY
0x08b2bc…08b450 Dummy {f00=0x002d, f01=0x0190, f02=»L) l , PFYSPAG EQU 24 LAST PHYSICAL PAGE NUMBER 6 PLSTADR EQU 26 LAST ADDRESS WHEN BUILDING DATA PART : ( PMAPLEN EQU 30 LENGTH OF AREA TO MAP t * PMMFROM EQU 36 2ND MMU TABLE WORK AREA ( PMMTO EQU 38 1:ST MMU TABLE WORK AREA $ PM:REL EQU 16 R
0x08b450…08b5e4 Dummy {f00=0x002d, f01=0x0190, f02=»ILE END ADDRESS ~ ( PTTAB EQU 32 WORK AREA FOR MMU TABLE * PTOTSGM EQU 46 TOTAL NUMBER OF SEGMENTS D , PSWBFLG EQU 48 SWAPPABLE WORK BLOCK FLAG r $ PCOM01 EQU 40 COMMON WORK AREA 1 $ PCOM02 EQU 42 COMMON WORK AREA 2 $ PCOM03 EQU 44 COMMON WO
0x08b5e4…08b778 Dummy {f00=0x002d, f01=0x0190, f02=» t P*************************** P* , & PT:ATOD EQU 0 T:ATAB 'OLD' ADDRESS 6 & PU:BTOD EQU 2 U:BTAB 'OLD' ADDRESS ` & PS:BTOD EQU 4 S:BTAB 'OLD' ADDRESS & PT:ATNW EQU 6 T:ATAB 'NEW' ADDRESS & PU:BTNW EQU 8 U:BTAB 'NEW' ADDRESS & P
0x08b778…08b90c Dummy {f00=0x002d, f01=0x0190, f02=»T:ANO EQU 16 TOT. NUMBER OF T:A'S * PDDIVFR EQU 18 PROT. DDIV FROM ADDRESS * ( PS:BLEN EQU 20 LENGTH OF REAL S:BTAB X , PPDDIVL EQU 22 LENGTH OF PDDIV AND S:GTAB P EJECT & P********************************* & P* SCRATCH-PAD DISPLACEMENT
0x08b90c…08baa0 Dummy {f00=0x002d, f01=0x0190, f02=»SUPER-LOOP | ( PCSTAPP EQU 74 CONF.START FOR A APPL. 4 PDDIVST EQU 76 START OF DDIV-PROTOTYPE AFTER MOVE > : PENDADD EQU 78 END-ADDRESS INDICATOR FOR TABLE-SCANNING v 4 PFLAG EQU 80 REAL TASK DATA PROCESSING INDICATOR $ PMMREL1 EQU 96 PHYSICAL PAGE
0x08baa0…08bc34 (4, 29) Dummy {f00=0x002d, f01=0x0190, f02=»NGTH 1 z PMOVLE2 EQU 108 MOVE LENGTH 2 ( PNEWAD1 EQU 110 SAVE FOR W.B.ADDRESS 2 ( PNEWAD2 EQU 112 SAVE FOR D.T. ADDRESS ^ , PPDDIV EQU 82 INDICATE IF SPACE IN PDDIV , PRELOCA EQU 100 SAVE FOR RELOCATION BASE PSWITCH EQU 114 D.T.INDICATOR
0x08bc34…08bdc8 Dummy {f00=0x002d, f01=0x0190, f02=»ICATOR z $ PWBADD EQU 118 SAVE W.B.-ADDRESS PSAVE01 EQU 124 6 PSAVE02 EQU 126 L PSAVE03 EQU 128 b PSAVE04 EQU 84 x PSAVE05 EQU 86 PSAVE06 EQU 88 PSAVE07 EQU 90 2 PSAEFA1 EQU 92 SAVE SCTEFA BITS 0-5 PAGE NUMBER 2 PSA
0x08bdc8…08bf5c Dummy {f00=0x002d, f01=0x0190, f02=»** ** P ** CONSTANTS ** P ***************** 6 P ** ** R P ***************** n P P********** P* P:MTAB * P********** PT:ATAB EQU 0 PU:BTAB EQU 2 PP:BAS EQU 6 SEGMENT
0x08bf5c…08c0f0 Dummy {f00=0x002d, f01=0x0190, f02=»RESS p , PI:RSTE EQU 42 INTERPRETER RESTART ENTRY ! & PTRABUG EQU 44 TASK ID. FOR TRABUG ! < P ! f P ! n P********** ! v P* U:BTAB * ! P********** ! 0 PUP:REC EQU 6 RECORD LENGTH IN INITIAL U:BTAB ! " PUPADDR EQU 2 PROTOTYPE ADDRESS ! PUP
0x08c0f0…08c284 Dummy {f00=0x002d, f01=0x0190, f02=»AL U:BTAB ! p * PURADDR EQU 2 ADDRESS TO FIRST REAL UWB " PURNUMB EQU 4 NUMBER OF UWB'S " @ PURLENG EQU 6 LENGTH OF UWB " d P EJECT " P " P " P " $ P******************************* " $ P* CONFIGURATION FILE (CONFIG) * " $ P
0x08c284…08c418 Dummy {f00=0x002d, f01=0x0190, f02=»2N NUMBER OF TASKS " ~ , PTDBID EQU TDBNT+2 6A TASK ID START VALUE # , PTDBMC EQU TDBID+6 6A MATCHING TASK CLASS # J $ PTDBTL EQU TDBMC+6 6A TASK LEVEL # z : PTDBNC EQU TDBTL+6 2N NUMBER OF TERMINAL DEVICE CLASSES # P* # & PTDBFST EQU TDBNC+2 FIRST TERM
0x08c418…08c5ac Dummy {f00=0x002d, f01=0x0190, f02=» * PSDC EQU 7 SPECIAL DEVICE CLASS-RECORD $ P* $ 2 P* COMMON DEVICE DEF. BLOCK: $ < PCDBBT EQU 0 1A BLOCK TYPE $ ` 6 PCDBNC EQU CDBBT+1 2N NUMBER OF SPEC. DEV. CLASSES $ ( PSDCFST EQU CDBNC+2 FIRST SDC-RECORD $ P* $ P* $ & P* USER WORK
0x08c5ac…08c740 Dummy {f00=0x002d, f01=0x0190, f02=»NU+3 FIRST UDB-RECORD $ PNAMUWB EQU 3 NAME OF UWB % " PNUMUBL EQU 3 NUMBER OF BLOCKS % > . PUDBREC EQU NAMUWB+NUMUBL UDB RECORD-LENGTH % d P EJECT % P % P % P********* % P* T:A * % P********* % PT:ASTA EQU -14 T:A STA
0x08c740…08c8d4 (4, 30) Dummy {f00=0x002d, f01=0x0190, f02=»NUMBER (HERE LENGTH % t 2 P OF ALL DSCB-RECORDS & PT:DAD EQU -8 ADDRESS TO T:D & R * PCIA EQU -6 CURRENT INSTUCTION ADDRESS & v ( P (HERE: DISPLACEMENT TO T:A-START) & P & PT:ATID EQU -4 TASK ID & PSTKE EQU -2 ST
0x08c8d4…08ca68 Dummy {f00=0x002d, f01=0x0190, f02=»D: & PDSCBL EQU 20 RECORD LENGTH ' " PBL EQU 2 LENGTH OF FIX BUFFER ' , 2 PSB EQU 4 INDEX TO DSCB WHICH SHARE THE BUFFER ' R PBP EQU 18 BUFFER POINTER ' P EJECT ' P ' P ' P********* ' P* T:D * ' P********* ' ( PFCD
0x08ca68…08cbfc Dummy {f00=0x002d, f01=0x018e, f02=»DATTAB EQU 6 DISPLACEMENT TO BEGINNING OF DAT-TABLE ' & PWATLEN EQU 8 NUMBER OF WATELEMENTS ( < 0 PTWBMSK EQU 10 MASK FOR TWB'S (ONE BIT/ENTRY) ( f * PSWBMSK EQU 12 MASK FOR SWB'S -"- ( * PCWBMSK EQU 14 MASK FOR CWB'S -"- ( * PUWBMSK EQU 16 MASK
0x08cbfc…08cd90 Dummy {f00=0x002d, f01=0x0190, f02=» P ) P**************** ) P* SOP-HANDLING * ) $ P**************** ) < PSOP EQU /2E DEVICE ADDRESS ) T P ) v P LAMP CODE MEANING ) ~ P --------- ------- ) PLMP1 EQU /400 SYSLOAD RUNS ) PLMP2 EQU /200 READ ERROR ) " PLMP3 EQU /10
0x08cd90…08cf24 Dummy {f00=0x002d, f01=0x0190, f02=»LMP7 EQU /10 MM-TABLE OVERFLOW ) PLMP8 EQU 8 * & PLMP9 EQU 4 * 8 PLMP10 EQU 2 * J PLMP11 EQU 1 * ^ P EJECT * r P********************* * P* OTHER CONSTA+STKCOMNTS * * P********************* * P * & PWBLEN EQU -4 LENGTH OF WORK-
0x08cf24…08d0b8 Dummy {f00=0x002d, f01=0x018e, f02=» FIRST DSET * | $ PFCBDD2 EQU 10 DISP TO 2:ND DSET + $ PFCBDD3 EQU 64 DISP. TO 1:ST DAT + < $ PFCBDD4 EQU 66 DISP. TO 2:ND DAT + d P + $ PSTKSZ EQU 128 DEFAULT STACK-SIZE + P + ( PSEGREC EQU 6 RECORD LENGTH IN S:GTAB + 8 PNUMSEG EQU 10 DI
0x08d0b8…08d24c Dummy {f00=0x002d, f01=0x0190, f02=» + ( PNTPA EQU 4 INTERPRETER START ADDRESS , & PIHRTC EQU 4 RTC INTERRUPT ADDRESS , 4 $ PRTCDA EQU /1B RTC DEVICE ADDRESS , ^ P , > PTABLEN EQU 24 LENGTH OF EACH APL.TABLE IN SCRATCH-PAD AREA , 0 PACBLEN EQU 26 APPL. CONTROL BLOCK LENGTH =1 , P
0x08d24c…08d3e0 Dummy {f00=0x002d, f01=0x0190, f02=» * , Z F P* DATA [REL-ADDRESS] * - F P* * - ^ F P***************************************************************** - P - P -
0x08d3e0…08d574 (4, 31) Dummy {f00=0x002d, f01=0x0190, f02=»******* ******* - 2 P** ** . 6 2 P* SYSLOAD PART 1 * . l 2 P** ** . 2 P***** ***** .
0x08d574…08d708 Dummy {f00=0x002d, f01=0x0190, f02=»-TABLES * . 2 P* * / , 2 P********************************************* / b P / P EJECT / P / P* START OF PROGRAM PART 1 * / P / P / PSYSLCR EQU * / P*
0x08d708…08d89c Dummy {f00=0x002d, f01=0x0190, f02=»PAD AREA / n PSYA10 SUK A2,2 0 P CMR A2 CLEAR MEMORY WORD 0 & " P CWR A1,A2 ALL WORDS CLEARED? 0 H P RB(NE) SYA10 NO 0 n PSYA20 EQU * 0 P LD A1,SCTSFA 0 8 P ST A1,SHADST+STKEND SAVE START OF 1:ST SHADOW-TABLE 0 * P LDKL A10,STKEND START OF 1:
0x08d89c…08da30 Dummy {f00=0x002d, f01=0x0190, f02=»APPLICATION 0 P* 1 PSYA100 EQU * 1 $ P LDKL A1,'CR' CREDIT APPLICATION 1 2 . P CALL GETAPP FIND APPL. AND ITS CONF.FILE 1 Z 2 P RF(NZ) SYA105 MORE APPLICATIONS OF THIS TYPE 1 P LD A2,APPLNO+STKCOM 1 P RF(NZ) SYA102 1 P LDKL A2,LCREND 1
0x08da30…08dbc4 Dummy {f00=0x002d, f01=0x0190, f02=»COM 1 P ABR A2 GO TO SYA152 2 PSYA105 EQU * 2 ( 8 P ST A11,CSTAPP+STKEND SAVE CONF.START FOR THIS APPL. 2 < P EJECT 2 x P 2 , P* READ CONFIG FILE AND BUILD SHADOWTABLE 2 P 2 P IFT MMUPAG=0 2 * P LD* A2,APLLAC,A1 GET START OF P:MTA
0x08dbc4…08dd58 Dummy {f00=0x002d, f01=0x0190, f02=»B,A2 GET U:BTAB FROM P:MTAB 2 " P SUK A4,2 INCLUDE LENGTH-WORD 3 $ P ST A4,U:BTOD,A10 3 J P XIF 3 d P IFT SWPBLK-MMUPAG=1 3 p ( P LD A4,S:BTAB,A2 GET S:BTAB ADDRESS 3 $ P SUK A4,2 ADJUST FOR LENGTH WORD 3 P ST A4,S:BTOD,A10 SAVE 3 P XIF 3
0x08dd58…08deec Dummy {f00=0x002d, f01=0x0190, f02=»STKEND ADD LAST SHADOW (MONITOR) END ADDRESS 3 P* CHECK ADDRESSES 4 4 P 4 N " P LDR A11,A3 END OF SHADOW-TAB 4 V . P LD A9,SAVE01+STKEND GET LOCATION COUNTER 4 | P CALL CMPADR 4 P RF(L) SYA110 OK! 4 " P LDKL A1,LMP3 MEMORY OVERFLOW 4 P CALL
0x08deec…08e080 Dummy {f00=0x002d, f01=0x0190, f02=»2 NEXT 4 P STR A2,A3 CLEAR 5 P CW A3,SHADST+STKEND ALL? 5 & P RB(NE) ZERO NO! 5 H " P STR A4,A3 STORE TABLE LENGTH 5 ` P* 5 ( P* READ CONF.FILE AND GET TASK CLASS 5 P* 5 8 P LD A11,CSTAPP+STKEND GET CONF.START FOR THIS APPL. 5 " P LC A2
0x08e080…08e214 (4, 32) Dummy {f00=0x002e, f01=0x018e, f02=» 5 ( PSYA120 LC A2,TDBMC+4,A11 GET TASK ID 6 P SLL A2,8 . 6 4 P LC A2,TDBMC+5,A11 ... 6 H P CWK A2,'TB' BUGGER TASK? 6 f P RF(NE) SYA125 NO! 6 2 P ST A2,BTASK,A10 INDICATE BUGGER TASK PRESENT 6 " P RF SYA136 SKIP TO NEXT BLOCK 6 PSYA125 LDR
0x08e214…08e3a8 Dummy {f00=0x002e, f01=0x0190, f02=» 6 PSYA130 ADKL A8,2 NEXT T:A 7 P LDR* A6,A8 GET T:A ADDRESS 7 * P SUK A4,2 7 N P RF(NZ) SYA135 7 ` 0 P LDK A1,LMP5 NO PROTOTYPE FOUND (TID ERROR) 7 v P CALL ERROR 7 PSYA135 EQU * 7 P CW A2,T:ATID,A6 TID EQUAL? 7 P RB(NE) SYA130 NO!
0x08e3a8…08e53c Dummy {f00=0x002e, f01=0x0190, f02=» P XIF 8 P IFT MMUPAG=1 8 6 P LD A2,FYSPAG+STKCOM GET LAST PHYSICAL PAGE NUMBER 8 & P ST A2,SAEFA1+STKEND SAVE 8 ` * P LD A2,LSTADR+STKCOM GET LAST ADDRESS 8 P ANKL A2,/FFF GET OFFSET 8 P ST A2,SAEFA2+STKEND SAVE 8 , P LD* A2,APLMMC,A1 GET
0x08e53c…08e6d0 Dummy {f00=0x002e, f01=0x018e, f02=» ADDRESS 8 x $ P SUKL A12,2 INCLUDE LENGTH WORD 9 & P ST A12,T:ATOD,A10 SAVE IN APPTAB 9 8 $ P EL A4,U:BTAB,A2 U:BTAB ADDRESS 9 b $ P SUK A4,2 ADJUST FOR LENGTH WORD 9 $ P ST A4,U:BTOD,A10 SAVE IN APPTAB 9 P XIF 9 P IFT MMUPAG+SWPBLK=2 9 ( P EL A4
0x08e6d0…08e864 Dummy {f00=0x002e, f01=0x0190, f02=» 9 P* T:ATAB PROCESSING: : P : $ P ELR A4,A12 T:ATAB-LENGTH : 0 P LDR A3,A4 SAVE : R 0 P SLL A3,1 RESERVE FOR MM-TABLE ADDRESS TABLE : j > P AD A3,SHADST+STKEND ADD LAST SHADOW (MONITOR) END ADDRESS : P* CHECK ADDRESSES : P : $ P LDR A
0x08e864…08e9f8 Dummy {f00=0x002e, f01=0x0190, f02=»A1,LMP3 MEMORY OVERFLOW : P CALL ERROR ; ( PSYA110 LDR A9,A2 GET P:MTAB ADDRESS ; 4 P* CLEAR T:ATAB SHADOW-TABLE: ; ` P ; PSYA115 SUK A3,2 NEXT ; P CMR A3 CLEAR ; P CW A3,SHADST+STKEND ALL? ; P RB(NE) SYA115 NO! ; " P STR A4,A3
0x08e9f8…08eb8c Dummy {f00=0x002e, f01=0x0190, f02=»S APPL. ; d " P LC A2,TDBBT,A11 GET BLOCKTYPE < P CCK A2,'TT' TASK DEF? < 6 P RF(E) SYA120 OK! < T P LDK A1,LMP4 NO TASK PRESENT < n P CALL ERROR < ( PSYA120 LC A2,TDBMC+4,A11 GET TASK ID < P SLL A2,8 . < P LC A2,TDBMC+5,A11 ... < P CWK
0x08eb8c…08ed20 Dummy {f00=0x002e, f01=0x0190, f02=»CK < x PSYA125 LDR A8,A12 SAVE = P ELR A4,A12 T:ATAB LENGTH = ( P* = J P* SCAN T:ATAB = T * P* FIND CORRESPONDING TASK CLASS IN T:A = j P* = PSYA130 ADKL A8,2 NEXT T:A = P ELR A6,A8 GET T:A ADDRESS = P SUK A4,2 = P RF(NZ) SYA135 =
0x08ed20…08eeb4 (4, 33) Dummy {f00=0x002e, f01=0x0190, f02=» TID EQUAL? = P RB(NE) SYA130 NO! > P* > . , P* STORE NUMBER OF TASKS IN SHADOW-TABLE > 8 P* FOR THIS TASK CLASS > h P* > P ELR A5,A12 > P SUR A4,A5 T:ATAB LENGTH > P XIF > . P NGR A4,A4 => A4=DISPLACEM. IN SHADOW-TAB > ( P LC A5
0x08eeb4…08f048 Dummy {f00=0x002e, f01=0x018e, f02=»OW TABLE > n P ADR A2,A4 ? 6 P ADRS A1,A2 STORE NUMBER OF TASKS IN SHADOW TABLE ? " P ? P* SKIP TO NEXT BLOCK ? h P ? PSYA136 CALL NXTBLK ? PSYA137 EQU * ? P CCK A2,'TT' ? & P RB(E) SYA120 NEXT TASK DEF BLOCK ? P CCK A2,'CC'
0x08f048…08f1dc Dummy {f00=0x002e, f01=0x0190, f02=» P RF(NE) SYA141 NO UWB'S @ 2 P LD A8,U:BTOD,A10 GET MODIFIED U:BTAB ADDRESS @ $ 6 P CALL USWBTP INSERT NUMBER OF COPIES IN PROTOTYPE @ Z PSYA141 EQU * @ P IFT SWPBLK=1 @ P LCR A2,A11 @ P CCK A2,'SS' @ P RF(NE) SYA143 @ P LD A8,S:BTO
0x08f1dc…08f370 Dummy {f00=0x002e, f01=0x0190, f02=»0 SAVE IN APPTAB @ P LDR* A1,A2 GET LENGTH A P IFT MMUPAG=1 A 6 * P SLL A1,1 RESERVE FOR MM-ADDRESS-TABLE A L P XIF A z : P ADS A1,SHADST+STKEND SAVE START OF NEXT SHADOW-TABLE A P ADKL A10,TABLEN NEXT APPTAB A P LDKL A1,SYA100 A P AD A1,M
0x08f370…08f504 Dummy {f00=0x002e, f01=0x0190, f02=»************* A V L P* * B L P* USWBTP - INSERT NUMBER OF COPIES IN U:BTAB/S:BTAB PROTOTYPE TABLE * B f L P* ================================================================= * B L P*
0x08f504…08f698 Dummy {f00=0x002e, f01=0x0190, f02=» * B V L P* * C L P* ENTRY: A8 - MODIFIED ADDRESS TO U:BTAB/S:BTAB PROTOTYPE TABLE * C f L P* A11- POINTER IN CONFIGURATION TABLE TO 'U' OR 'S' BLOCK * C L P*
0x08f698…08f82c Dummy {f00=0x002e, f01=0x0190, f02=» * C V L P* * D J P* WORK REGISTERS: A1,A2,A3,A4,A6,A12 * D f L P* * D L P* S
0x08f82c…08f9c0 Dummy {f00=0x002e, f01=0x018e, f02=» * D T L P*********************************************************************** E P E d PUSWBTP EQU * E l P E P IFT MMUPAG=0 E P ADKL A11,1 E P LDR A6,A11 E * P CALL GETNUM PACK 3 DIG. RESULT IN A5 E $ P LDR A1,A5 SAVE NUMB
0x08f9c0…08fb54 (4, 34) Dummy {f00=0x002e, f01=0x0190, f02=» E j PSYA145 EQU * F 0 P LCR A2,A11 GET FIRST CHARACTER FROM CONFIG F P SLL A2,8 F P P LC A2,1,A11 GET 2:ND CHAR F b 6 P CW A2,UPNAME,A12 COMPARE W. 1:ST WORD IN PROTOTYP F * P RF(E) FRSTOK FIRST TWO CHARACTERS OK! F 0 PSYA147 SUK A3,UP:REC DEC. NU
0x08fb54…08fce8 Dummy {f00=0x002e, f01=0x0190, f02=» ADD TO NEXT RECORD F P RB SYA145 G $ PFRSTOK LC A2,2,A11 GET 3:RD CHAR G . P CC A2,UPNAME+2,A12 G V P RB(NE) SYA147 .NEQ. G r P EJECT G P G P* PROTOTYPE FOUND * G P G 8 P ADKL A11,NAMUWB SKIP TO 'NUMBER OF BOCKS' IN CONFIG G
0x08fce8…08fe7c Dummy {f00=0x002e, f01=0x0190, f02=»CONFIG FILE G r P RB(P) SYA142 H P ADKL A11,UDBFST-1 H * P RTN A14 H D P XIF H T P IFT MMUPAG=1 H ` P ADKL A11,1 H v P LDR A6,A11 H * P CALL GETNUM PACK 3 DIG. RESULT IN A5 H $ P LDR A1,A5 SAVE NUMBER OF UWB'S H PSYA142 EQU * H P
0x08fe7c…090010 Dummy {f00=0x002e, f01=0x018e, f02=»CR A2,A11 GET FIRST CHARACTER FROM CONFIG H P SLL A2,8 I 2 P LC A2,1,A11 GET 2:ND CHAR I D 2 P EL A4,UPNAME,A12 GET FIRST WORD IN PROTOTYPE I f P CWR A2,A4 I P RF(E) FRSTOK FIRST WORD OK! I 0 PSYA147 SUK A3,UP:REC DEC. NUMBER OF PROT.'S I P R
0x090010…0901a4 Dummy {f00=0x002e, f01=0x0190, f02=» P RB SYA145 J 0 PFRSTOK LC A4,2,A11 GET 3:RD CHAR FROM CONFIG J 0 P EL A2,UPNAME+2,A12 GET 3:RD CHAR FROM PROY J J P SRL A2,8 J ~ P ANK A4,/FF J P CWR A4,A2 J P RB(NE) SYA147 .NEQ. J P EJECT J P J P* PROTOTYPE FOUND * J P
0x0901a4…090338 Dummy {f00=0x002e, f01=0x0190, f02=»VERT J 4 P EL A4,UPNUMB-1,A12 SAVE IN U:BTAB SHADOW-TABLE K P ANKL A4,/FF00 K D P ORR A4,A5 K Z P ES A4,UPNUMB-1,A12 K l . P SUK A1,1 DEC. NO OF TYPES IN CONFIG FILE K P RB(P) SYA142 K P ADKL A11,UDBFST-1 K P RTN A14 K P XIF K P E
0x090338…0904cc Dummy {f00=0x002e, f01=0x0190, f02=»W-TABLES) K d P ADK A7,1 L P ANKL A7,/FFFE EVEN ADDRESS L $ P* L H P* CALULATE RELOCATION L R P* L p & P LDKL A2,PART2 GET START OF PART2 L z , P AD A2,M:REL+STKCOM ADD RELOCATION BASE L P LDR A3,A2 L P SUR A2,A7 MOVE LENGTH L P NGR
0x0904cc…090660 Dummy {f00=0x002e, f01=0x0190, f02=»Y EXIST SYSLCO AND SYSLBA) L h P* CONF.FILE AND SYSINI M " P* M @ " P LDR A2,A7 TO-ADDRESS (SYSLCR) M J P ANKL A2,/F000 FIRST PAGE M p , P ST A2,MMREL1+STKEND SAVE PHYSIVAL PAGE M " P SRL A2,2 SHIFT FOR MM-PAGING M P LDKL A11,MMDDIV M , P ADR A11
0x090660…0907f4 (4, 35) Dummy {f00=0x002e, f01=0x0190, f02=» M z P ADKL A2,/400 PAGE INCREMENT N P SUK A1,1 ALL? N , P N B P RB(NZ) SYA157 NO! N J * P ANKL A7,/FFF GET DISPLACEMENT IN PAGE N d P XIF N 2 P ST A7,SHADST+STKEND SAVE (LOGICAL) TO-ADDRESS N $ P LDR A2,A13 A13=START OF SYSINI N P SUR A2,A3 L
0x0907f4…090988 Dummy {f00=0x002e, f01=0x0190, f02=»NGTH TO MOVE N t 0 P AD A2,CONLEN+STKCOM ADD LENGTH OF CONF.FILE O P ADR A7,A2 O H 6 P ST A7,DDIVST+STKEND SAVE START OF DDIV AFTER MOVE O Z P* O " P* CALCULATE DDIV FROM-ADDRESS O P* O , P CM APPLNO+STKCOM RESET NUMBER OF APPL. O * P LDKL A10,
0x090988…090b1c Dummy {f00=0x002e, f01=0x0190, f02=»ON O r P CALL GETAPP ANY APPLICATION P P ABR(Z) A5 NO P . " P LD A3,SCTOPT GET OPTION WORD P D P IFT MMUPAG=0 P j * P LD A2,APLLAC,A1 GET ADDRESS TO S:GTAB P $ P LDR* A9,A2 GET START OF P:MTAB P 0 P ST A3,OPTION,A9 STORE OPTION WORD IN P:MTAB P 0
0x090b1c…090cb0 Dummy {f00=0x002e, f01=0x0190, f02=» P XIF Q P IFT MMUPAG=1 Q * P LD A2,APLLAC,A1 GET ADDRESS TO S:GTAB Q & " P ELR A9,A2 GET START OF P:MTAB Q T 0 P ES A3,OPTION,A9 STORE OPTION WORD IN P:MTAB Q z 0 P EL A3,I:RSTE,A9 GET INTERPRETER ERROR ENTRY Q " P ST A3,APLIOE,A1 STORE IN ACB Q , P
0x090cb0…090e44 Dummy {f00=0x002e, f01=0x0190, f02=»LT A2*A3 RESULT IN A3 Q P ADR A1,A3 R P ADK A1,NUMSEG+2 R 0 , P ST A1,DDIVFR,A10 SAVE DDIV FROM ADDRESS R H 6 P LD A6,DDIVST+STKEND GET START OF DDIV AFTER MOVE R x " P SUR A6,A1 RELOCATION FOR DDIV R P EJECT R P R P R P R 0 P*
0x090e44…090fd8 Dummy {f00=0x002e, f01=0x0190, f02=» * R l . P* A9=P:MTAB A6=MOVE-RELOC * S . P***************************************** S @ P IFT MMUPAG=0 S r P S P* INITIATE POINTERS S P S ( P LD A8,T:ATOD,A10 GET T:ATAB ADDRESS S P LDR* A3,A8 GET LENGTH S P ADR A3,A8
0x090fd8…09116c Dummy {f00=0x002e, f01=0x0190, f02=» S x & P LDR A2,A8 2:ND POINTER IN T:ATAB T & P LDK A3,2 SET 'NEW' T:ATAB COUNTER T 2 . P SUR A11,A11 CLEAR REAL LENGTH ACCUMULATOR T P T P* SCAN T:ATAB: T P T " PSYA160 ADKL A8,2 TAKE NEXT T:A T $ P ADK A5,2 NEXT T:A IN SHADOW-TAB T P CW A8
0x09116c…091300 Dummy {f00=0x002e, f01=0x0190, f02=»160 THIS T:A IS NOT USED!!!!! T " P ADR A11,A7 ACCUMULATE LENGTH U & , P ADK A3,2 INCREMENT 'NEW' T:ATAB LENGTH U L , P ADK A4,2 UPDATE 2:ND SHADOW-TAB ADDRESS U | ( P ADK A2,2 UPDATE 2:ND T:ATAB ADDRESS U 8 P STR A7,A4 STORE NUMBER OF T:A'S (EV. ON NEW PLA
0x091300…091494 (4, 36) Dummy {f00=0x002f, f01=0x018e, f02=» W.B.-ADDRESSES U P V $ P LD A12,T:DAD,A1 GET T:D-ADDRESS V $ P LD A7,WATLEN,A12 LENGTH OF WAT V H . P ADK A1,WATFST+2 ADD TO FIRST W.B.-ADDRESS V p PSYA165 SUK A7,1 DEC. COUNTER V P RB(N) SYA160 TAKE NEXT T:A V P ADRS A6,A1 RELOCATE V P X
0x091494…091628 Dummy {f00=0x002f, f01=0x0190, f02=» P ADR A3,A8 END OF T:ATAB W P ST A3,ENDADD+STKEND SAVE W $ 4 P LD A5,SHADOW,A10 GET START OF T:ATAB SHADOW-TAB W F P LDR A4,A5 2:ND POINTER W ~ & P LDR A2,A8 2:ND POINTER IN T:ATAB W & P LDK A3,2 SET 'NEW' T:ATAB COUNTER W . P SUR A11,A11 CLEAR REA
0x091628…0917bc Dummy {f00=0x002f, f01=0x0190, f02=» W p P CW A8,ENDADD+STKEND X P RF(E) SYA170 ALL DONE X $ P ELR A1,A8 GET T:A X B * P LDR* A7,A5 GET CONTENTS OF SHADOW-TAB X , P RB(Z) SYA160 THIS T:A IS NOT USED!!!!! X " P ADR A11,A7 ACCUMULATE LENGTH X , P ADK A3,2 INCREMENT 'NEW' T:ATAB LENGTH
0x0917bc…091950 Dummy {f00=0x002f, f01=0x0190, f02=». ON NEW PLACE) X l P ELR A12,A8 GET T:A-ADDRESS Y P ADR A12,A6 RELOCATE Y < . P ESR A12,A2 STORE ADDR. (EV. ON NEW PLACE) Y X P* RELOCATE W.B.-ADDRESSES Y P Y $ P EL A12,T:DAD,A1 GET T:D-ADDRESS Y $ P EL A7,WATLEN,A12 LENGTH OF WAT Y . P ADK
0x091950…091ae4 Dummy {f00=0x002f, f01=0x0190, f02=»END SAVE Y ~ P ELR A10,A1 GET ADDRESS Z P ADR A10,A6 RELOCATE Z 0 P ESR A10,A1 Z L " P LD A10,SAVE04+STKEND RESTORE Z ` P XIF Z P ADK A1,4 NEXT W.B. Z P RB SYA165 Z P Z PSYA170 EQU * Z > P ST* A3,SHADOW,A10 STORE NEW TABLE LENGTH IN
0x091ae4…091c78 Dummy {f00=0x002f, f01=0x0190, f02=» AND IN T:ATAB Z ~ P XIF [ 0 P LDR A2,A11 GET NUMBER OF T:A'S ACCUMULATOR [ " ( P SLL A2,1 CALC. REAL LENGTH (BYTES) [ V P ADK A2,2 [ . P ST A2,T:ANO,A10 SAVE TOT. NUMBER OF T:A'S [ P [ P EJECT [ " P****************************** [ $ P*
0x091c78…091e0c Dummy {f00=0x002f, f01=0x0190, f02=»G=0 [ $ P LD A5,U:BTOD,A10 U:BTAB ADDRESS P LDR* A3,A5 LENGTH 4 P ADK A5,2 SKIP LENGTH WORD N P SUK A3,2 -"- p " PSYA180 RF(Z) SYA185 ALL DONE! P ADRS A6,A5 RELOCATE P XIF P IFT MMUPAG=1 $ P LD A5,U:BTOD,A10 U:BTAB ADD
0x091e0c…091fa0 Dummy {f00=0x002f, f01=0x0190, f02=»04+STKEND STORE P ELR A10,A5 GET ADDRESS ] P ADR A10,A6 RELOCATE ] 8 P ESR A10,A5 ] T " P LD A10,SAVE04+STKEND RESTORE ] h P XIF ] 8 P ADK A5,UP:REC ADD TO NEXT RECORD IN U:BTAB PROTOTYP ] P SUK A3,UP:REC ] P RB SYA180 ] P EJECT ]
0x091fa0…092134 (4, 37) Dummy {f00=0x002f, f01=0x0190, f02=» ADDRESS ] x " P ELR A3,A5 LENGTH OF PROTOTYPE ^ P LDR A2,A3 SAVE ^ 6 " P SUK A3,2 EXCLUDE LENGTH WORD ^ N , PSYA190 RF(Z) SYA199 ALL RECORDS SCANNED! ^ t $ P EL A4,2,A5 GET PROT. W.B.-ADDR. ^ P ADR A4,A6 RELOCATE ^ P ES A4,2,A5 STORE IT BACK ^ ,
0x092134…0922c8 Dummy {f00=0x002f, f01=0x0190, f02=»DK A2,2 INCREMENT LENGTH ^ ( P SUK A4,1 DECREMENT NUMBER OF COPIES _ P RB SYA192 _ L 8 PSYA194 ADK A5,UP:REC NEXT RECORD IN S:BTAB PROTOTYPE _ ^ $ P SUK A3,UP:REC DECREMENT LENGTH _ P RB SYA190 _ P XIF _ P IFT SWPBLK-MMUPAG=1 _ $ P LD A5,S:BTO
0x0922c8…09245c Dummy {f00=0x002f, f01=0x0190, f02=»SYA195 RF(Z) SYA199 ALL RECORDS SCANNED! _ $ P LD A4,2,A5 GET PROT. W.B.-ADDR. ` 0 P ADR A4,A6 RELOCATE ` X P ST A4,2,A5 STORE IT BACK ` t , P LD A4,UPNUMB-1,A5 GET NUMBER OF COPIES ` P ANK A4,/FF ` . PSYA196 RF(Z) SYA198 NO MOORE OF THIS TYPE! `
0x09245c…0925f0 Dummy {f00=0x002f, f01=0x0190, f02=»S:BTAB PROTOTYPE ` l $ P SUK A3,UP:REC DECREMENT LENGTH a P RB SYA195 a @ P XIF a R P IFT SWPBLK=1 a ^ 4 PSYA199 ADS A6,S:BTOD,A10 RELOCATE S:BTAB ADDRESS a t 0 P ST A2,S:BLEN,A10 SAVE LENGTH OF REAL S:BTAB a P XIF a P EJECT a P a 6 P* RELO
0x0925f0…092784 Dummy {f00=0x002f, f01=0x0190, f02=»T APPTAB a | P LDKL A1,SYA156 b P AD A1,M:REL+STKCOM b ( P ABR A1 b D POUT01 EQU * b T P* b h 8 P* MOVE SYSLCR (AND IF THEY EXIST SYSLCO AND SYSLBA) b r P* AND SYSINI b P* b ( P LD A2,SHADST+STKEND GET TO-ADDRESS b * P OR A2,MMREL1+ST
0x092784…092918 Dummy {f00=0x002f, f01=0x0190, f02=»RT OF PART2 b z , P AD A1,M:REL+STKCOM ADD RELOCATION BASE c P c D ( P LD A3,MOVLE2+STKEND LENGTH TO MOVE c L , P LD A4,RELOCA+STKEND GET RELOCATION BASE c x , P ADS A4,M:REL+STKCOM NEW RELOCATION BASE c P EJECT c P* c , P* JUMP TO MOVE ROUTINE
0x092918…092aac Dummy {f00=0x002f, f01=0x0190, f02=» A7=RETURN-ADDRESS c P* d $ P ABL STKMOV JUMP TO MOVE ROUTINE d & P EJECT d N P d P* ************************** d d " P* START OF PROGRAM PART 2.A * d " P***************************** d P d P d PPART2 EQU * d " P LDR A8,P LO
0x092aac…092c40 Dummy {f00=0x002f, f01=0x0190, f02=»A1,CONSTA+STKCOM GET FROM ADDRESS d 0 P LD A3,CONLEN+STKCOM GET LENGTH OF CONF.FILE e * P LDR A7,P e ^ P ADK A7,10 e p 4 P ST A2,CONSTA+STKCOM UPDATE START OF CONF. DATA e $ P ABL STKMOV JUMP TO MOVE-ROUTINE e * P LDKL A10,STKEND START OF 1:ST APPTAB
0x092c40…092dd4 (4, 38) Dummy {f00=0x002f, f01=0x0190, f02=»CR' CREDIT APPLICATION e " P CALL GETAPP FIND APPLICATION f * P RF(NZ) SYA205 MORE APPL.OF THIS TYPE f D P IFT MMUPAG=1 f r " P LD A2,SAEFA1+STKEND GET PAGE f P ST A2,FYSPAG+STKCOM f * P LD A2,SAEFA2+STKEND GET DISPLACEMENT f P ST A2,LSTADR+ST
0x092dd4…092f68 Dummy {f00=0x002f, f01=0x0190, f02=»PL. OF THIS TYPE f v P AD A2,M:REL+STKCOM g P ABR A2 g 4 PSYA205 EQU * g D : P ST A1,APCBLK+STKEND SAVE START OF APPL. CONTROL TABLE g X P LDR A4,A1 SAVE g * P LD A2,APLLAC,A1 GET ADDRESS TO S:GTAB g P IFT MMUPAG=0 g $ P LDR* A9,A2 GET START
0x092f68…0930fc Dummy {f00=0x002f, f01=0x0190, f02=»,DDIVFR,A10 END - START g & P AD A5,DDIVST+STKEND ADD NEW START h P ST A5,DATEND+STKCOM STORE h J P* h l * P* CALCULATE LENGTH OF PDDIV AND S:GTAB h v P* h " P LDR A3,A9 GET START OF P:MTAB h . P SUR A3,A2 GET LENGTH OF PDDIV AND S:GTAB h P I
0x0930fc…093290 Dummy {f00=0x002f, f01=0x0190, f02=» NO! h $ P CM PDDIV+STKEND YES!RESET FLAG i PSYA206 EQU * i 4 6 P ST A3,PDDIVL,A10 STORE LENGTH OF PDDIV AND S:GTAB i H P XIF i P IFT MMUPAG=1 i " P ELR A9,A2 GET START OF P:MTAB i * P ST A9,APLLAC,A1 SAVE START OF P:MTAB i P* i P* CALC
0x093290…093424 Dummy {f00=0x002f, f01=0x0190, f02=» P LDR A6,A5 j . P ANKL A6,/F000 GET LOGICAL PAGE (MM-ENTRY) j $ P SRL A6,11 ADJUST FOR ADDRESSING j H . P ADKL A6,MMDDIV ADD RELATIVE START ADDRESS j p P ADR A6,A13 RELOCATE j & P LDR* A6,A6 GET MM-TABLE CONTENTS j P ST A6,FSTPAG+STKCOM SAVE j "
0x093424…0935b8 Dummy {f00=0x002f, f01=0x018e, f02=»A9 SAVE A9 j " P LDR A9,A6 GET FIRST FREE PAGE k , P LD A11,SAEFA1+STKEND GET LAST FREE PAGE k 8 P CALL CMPADR k h P RF(G) SYA201 OK! k | P RF(L) SYA208 NOK! k P LDR A9,A5 GET DISPLACEMENT k P LD A11,SAEFA2+STKEND k P CALL CMPADR k P R
0x0935b8…09374c Dummy {f00=0x002f, f01=0x0190, f02=» k ( P* CHECK IF START OF S:GTAB = SCTEFA l P* l 4 $ P LDR A3,A2 GET ADDRESS TO S:GTAB l > . P ANKL A3,/F000 GET LOGICAL PAGE (MM-ENTRY) l f $ P SRL A3,11 ADJUST FOR ADDRESSING l . P ADKL A3,MMTAB ADD RELATIVE START ADDRESS l P ADR A3,A13 RELOCATE l
0x09374c…0938e0 Dummy {f00=0x002f, f01=0x0190, f02=»DR A3,A2 YES! COMPARE OFFSET l P ANKL A3,/0FFF GET OFFSET m $ P CM PDDIV+STKEND RESET FLAG m F P CW A3,SAEFA2+STKEND m j P RF(E) SYA203 OFFSET EQUAL? m P* m * P* CALCULATE LENGTH OF PDDIV AND S:GTAB m P* m PSYA202 EQU * m " P LDR A3,
0x0938e0…093a74 (4, 39) Dummy {f00=0x002f, f01=0x0190, f02=» A3,A2 GET START OF S:GTAB m & P ANKL A2,/F000 NO!GET PAGE NUMBER n " P ADKL A2,/1000 ADD n L P CWR A2,A9 n f P RF(NG) SYA204 n x P LDR A2,A3 n PSYA204 EQU * n " P LDR A3,A9 GET START OF P:MTAB n * P SUR A3,A2 LENGTH OF PDDIV AND S:GTAB n P
0x093a74…093c08 Dummy {f00=0x002f, f01=0x0190, f02=»LES ADDRESSES n P* o P LDKL A4,MMDDIV o " P ADR A4,A13 GET TABLE ADDRESS o 8 2 P ST A4,MMTO+STKCOM SAVE 1:ST MM-TABLE ADDRESS o ^ P LDKL A4,MMTAB o " P ADR A4,A13 GET TABLE ADDRESS o 0 P ST A4,MMFROM+STKCOM SAVE 2:ND TABLE ADDRESS o P XIF
0x093c08…093d9c Dummy {f00=0x002f, f01=0x0190, f02=»ADDRESS o t P LDR A4,A2 p P SUR A3,A1 LENGTH OF DDIV p " " P SUR A4,A1 RELOCATION FOR DDIV p D P ST A4,MOVADD+STKEND SAVE p j P IFT MMUPAG=0 p P LD A8,STKCOM+TOTSGM PAGING? p P RF(NZ) PAGING YES! p & P LD A8,SCTOPT NO! GET OPTION WORD p
0x093d9c…093f30 Dummy {f00=0x002f, f01=0x0190, f02=»STADR+STKCOM IF SEGMENTS! p x P RF SEGMTS q " 2 PNOSGMT LD A8,SCTSFA ALLOCATE BUFFERS FROM TOP q 4 $ PSEGMTS ST A8,FSTADR+STKCOM STORE q j PMOVNXT LDR* A4,A1 GET WORD q P STR A4,A2 STORE q P ADK A1,2 q P ADK A2,2 q P SUK A3,2 DEC LENGTH q
0x093f30…0940c4 Dummy {f00=0x002f, f01=0x0190, f02=» CALL CMPADR q P RF(NG) SYA207 r P LDKL A1,LMP3 r * P CALL ERROR r @ PSYA207 EQU * r T " P LDR A9,A3 GET P:MTAB ADDRESS r h , P SUK A3,10 RESERVE 5 WORDS FOR DEBUGGER r P XIF r P IFT MMUPAG=1 r P CALL XMOVE r & P* REMOVE DDIV ENTRIE
0x0940c4…094258 Dummy {f00=0x002f, f01=0x0190, f02=»B ADDRESS-5WORDS =3 r | $ P SRL A1,11 ADJUST FOR ADDRESSING s P ANK A1,/1E s D & P LDKL A2,MMTAB-2 GET TABLE ADDRESS s X P ADR A2,A13 RELOCATE s , P ADR A1,A2 P:MTAB-5WORDS START ENTRY =3 s P LDKL A4,/FC00 s PSYA206 CWR A1,A2 ALL? s P RF(E)
0x094258…0943ec Dummy {f00=0x002f, f01=0x0190, f02=»CHANGE TABLE - ADDRESSES s P* t P LD A4,MMFROM+STKCOM t * P LD A5,MMTO+STKCOM t F P ST A4,MMTO+STKCOM t ` P ST A5,MMFROM+STKCOM t z P XIF t P ANKL A3,/FFFE EVEN ADDRESS t . P ST A3,LSTADR+STKCOM SAVE END OF FREE AREA t P t P t P
0x0943ec…094580 Dummy {f00=0x002f, f01=0x0190, f02=» t l P ADR A3,A13 u , P* FIND LAST USED ENTRY IN REAL MMUTAB * u P u L P CALL MMENT u T P ST A9,TTAB+STKCOM u h , P ST A1,FYSPAG+STKCOM SAVE PHYSICALL PAGE u * P LD A3,T:ANO,A10 GET LENGTH OF T:ATAB u P LDR A5,A3 SAVE u * P CALL CALLMO RES
0x094580…094714 (4, 40) Dummy {f00=0x0030, f01=0x0190, f02=» T:ATAB ADDRESS u v P ADK A2,2 SKIP LENGTH WORD v 8 P LD A1,APCBLK+STKEND GET START OF APLL.CONTROL BLOCK v : ( P LD A9,APLLAC,A1 GET P:MTAB ADDRESS v v $ P ES A2,T:ATAB,A9 STORE IN P:MTAB v $ P* RESERVE PLACE FOR T:AID TABLE v P v P LDR A3,A5 GET
0x094714…0948a8 Dummy {f00=0x0030, f01=0x0190, f02=» A5,A2 STORE TABLE LENGTH IN T:TID-TABLE v " P ADK A2,2 ADJUST TABLE ADDRESS w 0 P ESR A2,A3 STORE IN P:MTAB w V $ P LD A5,U:BTOD,A10 U:BTAB ADDRESS w x ( P TL* MMFROM+STKCOM SET CORRECT TABLE w P ELR A3,A5 GET LENGTH w P LDR A5,A3 SAVE w P CALL
0x0948a8…094a3c Dummy {f00=0x0030, f01=0x018e, f02=» GET U:BTOD LENGTH w ~ P LDR A5,A3 SAVE x P CALL CALLMO RESERVE SPACE x 2 4 P ST A2,U:BTNW,A10 SAVE NEW (REAL) U:BTAB ADDRESS x T P STR A5,A2 STORE LENGTH x P ADK A2,2 x : P ST A2,U:BTAB,A9 SAVE 'REAL' U:BTAB-ADDRESS IN P:MTAB x * P LD A3,T:ANO
0x094a3c…094bd0 Dummy {f00=0x0030, f01=0x018e, f02=» x p . P ST A2,T:ATNW,A10 SAVE NEW T:ATAB ADDRESS y P ADK A2,2 y : & P ST A2,T:ATAB,A9 SAVE REAL ADDRESS y L P* RESERVE FOR T:AID TABLE y v P y P LDR A3,A5 LENGTH y P CALL CALLMO y P STR A5,A2 STORE LENGTH y $ P ADK A2,2 ADJUST FOR LENGT
0x094bd0…094d64 Dummy {f00=0x0030, f01=0x0190, f02=» P ESR A5,A2 STORE LENGTH z P ADK A2,2 SKIP LENGTH WORD z $ $ P ES A2,U:BTAB,A9 STORE IN P:MTAB z F P XIF z n P IFT SWPBLK=1 z z P* z * P* RESERV SPACE FOR REAL S:BTAB TABLE z P* z $ P LD A5,S:BTOD,A10 S:BTAB ADDRESS z 0 P LD A3,S:BLEN,
0x094d64…094ef8 Dummy {f00=0x0030, f01=0x0190, f02=»LK=2 z P TL* MMTO+STKCOM { P ESR A5,A2 { $ P ADK A2,2 { 6 P ES A2,S:BTAB,A9 { H P CALL B:RSWT { ` P XIF { t P IFT SWPBLK-MMUPAG=1 { P STR A5,A2 { P ADK A2,2 { P ST A2,S:BTAB,A9 { P CALL B:RSWT { P XIF { P IFT MMUPAG=1 {
0x094ef8…09508c Dummy {f00=0x0030, f01=0x0190, f02=»******** { ~ P* SEARCH CWB'S: | P | ( ( P LD A8,T:ATOD,A10 GET T:ATAB ADDRESS | 4 P IFT MMUPAG=0 | ` P LDR* A3,A8 GET LENGTH | v P XIF | P IFT MMUPAG=1 | P ELR A3,A8 GET LENGTH | P XIF | P ADR A3,A8 | 4 P ST A3,ENDADD+STKEND S
0x09508c…095220 Dummy {f00=0x0030, f01=0x0190, f02=» ALL DONE? | | P RF(E) SYA245 YES! =5 } $ P CALL T:DADD T:D-ADDRESS TO A12 } 0 P IFT MMUPAG=0 } X " P LD A7,CWBMSK,A12 GET CWB-MASK } n P XIF } P IFT MMUPAG=1 } P EL A7,CWBMSK,A12 } P XIF } P CALL SHIFT SUPER-LOOPA } PSYA220 RF(Z)
0x095220…0953b4 (4, 41) Dummy {f00=0x0030, f01=0x0190, f02=»* SEARCH UWB'S: } P* ~ ( P IM UWB+STKEND INDICATE UWB-SCANNING ~ " P IFT MMUPAG=0 ~ N P LD A7,UWBMSK,A12 ~ d P XIF ~ ~ P IFT MMUPAG=1 ~ P EL A7,UWBMSK,A12 ~ P XIF ~ P CALL SHIFT ~ " PSYA230 RB(Z) SYA210 ALL DONE! ~ PSYA235 C
0x0953b4…095548 Dummy {f00=0x0030, f01=0x0190, f02=»QU * =5 ~ * P LD A1,BTASK,A10 BUGGER TASK INCLUDED? P RF(Z) CLADAT NO! > . P LDK A3,2 RESERVE ONE WORD FOR TRABUG-T:A X P CALL CALLMO P LDR A8,A2 SAVE CSB-POINTER 2 P CALL GETTTB GET TTAB ADDRESS. TID 'TB' IN A1 ( P CM TTB:PP,A2 CL
0x095548…0956dc Dummy {f00=0x0030, f01=0x018e, f02=» * P LD A3,TTB:ID,A2 GET TRABUG'S TASK ID P IFT MMUPAG=0 6 8 P LD A1,APCBLK+STKEND GET START OF APL. CONTROL TABLE L ( P LD A1,APLLAC,A1 GET START OF P:MTAB 4 P ST A3,TRABUG,A1 SAVE TRABUG'S TASK ID IN P:MTAB P LD A1,P:BAS,A1 GET P:BAS
0x0956dc…095870 Dummy {f00=0x0030, f01=0x0190, f02=» P XIF 0 P ST A8,TTB:CB,A2 SAVE ADDRESS TO CSB-POINTER . P CM TTB:SB,A2 CLEAR SEGMENT BLOCK ADDRESS D PSYA272 EQU * v 2 P SUKL A8,CSB ADD DISPL. TO CURRENT SEGMENT BAE P ST A8,TTB:SA+26,A2 SAVE A13 P IFT MMUPAG=1 8 P LD A1,APCBLK+
0x095870…095a04 Dummy {f00=0x0030, f01=0x0190, f02=»S A3,TRABUG,A1 SAVE TRABUG'S TASK ID IN P:MTAB P EL A1,P:BAS,A1 GET P:BAS 6 ( P TL MMBEG,A2 LOAD TRABUG'S MMU-TABLE X , P ES A1,CSB,A8 STORE CURRENT SEGMENT BASE ( P TL* MMFROM+STKCOM RELOAD DDIV TABLE P XIF P EJECT P * P*
0x095a04…095b98 Dummy {f00=0x0030, f01=0x0190, f02=»SET POINTER TO LENGTH INT:ATAB ~ P IFT MMUPAG=0 & & PSYA250 CM UWB+STKEND INDICATE CWB < ( P ADKL A8,2 STEP TO NEXT T:A ADDRESS f P CW A8,ENDADD+STKEND P RF(E) SYA270 ALL T:A'S DONE ( P CALL T:DADD GET T:D ADDRESS TO A12 P P*
0x095b98…095d2c Dummy {f00=0x0030, f01=0x018e, f02=»ESS x ( P ADK A1,DWBFST+4 ADD DISPL. TO FIRST * P LDR A3,A1 GET NUMBER OF START-POINTS 8 P ADR A3,A12 ADD T:D-ADDRESS f P LDR* A3,A3 . 0 P LDK A2,STPREC GET STARTPOINTS RECORD LENGTH P CALL MULT AND MULTIPLY P ADK A3,2 'NUMBER-WO
0x095d2c…095ec0 Dummy {f00=0x0030, f01=0x0190, f02=» * P ST A2,T:DAD,A1 STORE NEW T:D ADDRESS " P LD A7,CWBMSK,A12 GET CWBMASK 2 P XIF X P IFT MMUPAG=1 d ( P* INITIATE MM-ADDRESS TABLE POINTER z P ( P LD A1,SHADOW,A10 SHADOW TABLE START * P AD* A1,SHADOW,A10 ADDRESS TABLE START P
0x095ec0…096054 (4, 42) Dummy {f00=0x0030, f01=0x0190, f02=»KEND " P RF(E) SYA270 ALL T:A'S DONE! " P CALL GETTAB GET TTAB-ADDRESS 2 P CALL MOVMMT MOVE MM-TABLE X " P* FILL MM-TABLE ADDRESS TABLE z P P LD A1,SAVE02+STKEND & P ADK A1,2 INCREMENT TABLE POINTER P ST A1,SAVE02+STKEND RESTO
0x096054…0961e8 Dummy {f00=0x0030, f01=0x0190, f02=» P P* CALCULATE LENGTH OF T:D P . 2 P EL A1,WATLEN,A12 NUMBER OF BYTES-1 IN DBLKTAB 6 P ADK A1,2 l P ANKL A1,/FFFE EVEN ADDRESS ~ ( P ADK A1,DWBFST+4 ADD DISPL. TO FIRST , P LDR A3,A1 GET NUMB. OF START-POINTS... P ADR A3,A1
0x0961e8…09637c Dummy {f00=0x0030, f01=0x0190, f02=»RD' | P ADR A3,A1 =>LENGTH P LDR A1,A12 FROM-ADDRESS ( P CALL CALLMO MOVE T:D H P ELR A1,A8 GET T:A ADDRESS f * P ES A2,T:DAD,A1 ESORE NEW T:D ADDRESS " P EL A7,CWBMSK,A12 GET CWBMASK P XIF P P CALL MOVCLA P EJE
0x09637c…096510 Dummy {f00=0x0030, f01=0x0190, f02=»NG n P IFT MMUPAG=0 " P LD A7,UWBMSK,A12 GET UWBMASK P XIF F P IFT MMUPAG=1 R P EL A7,UWBMSK,A12 h P XIF P CALL MOVCLA P EJECT P P " P* MOVE DT:S OF SWB'S & TWB'S * " P**************************
0x096510…0966a4 Dummy {f00=0x0030, f01=0x0190, f02=»A265 LD A7,TWBMSK,A12 P XIF P IFT MMUPAG=1 * P EL A7,SWBMSK,A12 @ P RF(Z) SYA265 NONE Z P CALL SKRITT t PSYA265 EL A7,TWBMSK,A12 P XIF P RB(Z) SYA250 P CALL SKRITT P RB SYA250 P PSYA270 RF PR
0x0966a4…096838 Dummy {f00=0x0030, f01=0x018e, f02=» ** r 4 P** MOVE D.T ** 4 P** ** R 4 P*********************************************** PSKRITT EQU * P CALL SHIFT PNO RF(NZ) NES P RTN A14
0x096838…0969cc Dummy {f00=0x0030, f01=0x0190, f02=» P RB NO P EJECT P $ & P* BUILD TASKDATA PROTOTYPE AREA * 0 & P********************************* Z PPRODAT EQU * 4 P IM SWITCH+STKEND INDICATE: -NO MORE D.T. MOVE! $ P LD A8,T:ATOD,A10 T:ATAB ADDRESS PSYA280 ADKL A8,2
0x0969cc…096b60 Dummy {f00=0x0030, f01=0x0190, f02=»DAD,A12 . 0 P CALL TWBSWB MOVE TWB'S & RESERVE FOR SWB'S P F " P* CALCULATE LENGTH OF DSCB'S * R " P*** *** x P P LDR* A1,A8 GET T:A-ADDRESS & P LD A3,DATLEN,A12 A12=T:D-ADDRESS P LDK A2,DSCBL DS
0x096b60…096cf4 (4, 43) Dummy {f00=0x0030, f01=0x0190, f02=» P ADKL A2,T:ASTA ( P AD A4,DATTAB,A12 GET START OF DSCB P SUR A2,A4 LENGTH OF DAT'S H , P ADR A3,A2 A3=LENGTH OF DSCB'S AND DAT'S j ( P LD A2,FCD,A12 GET FCB-DISPLACEMENT P RF(NZ) SYA285 FCB PRESENT & P SUR A2,A3 MOVD30E A3(DSCB-LENGT
0x096cf4…096e88 Dummy {f00=0x0030, f01=0x0190, f02=»TACK SIZE | $ P ST A2,CSE,A1 AND SAVE TEMPORARY 8 P LD A2,APCBLK+STKEND GET START OF APL.CONTROL TABLE : ( P LD A2,APLLAC,A2 GET START OF P:MTAB v P LD A2,P:BAS,A2 GET P:BAS P ST A2,CSB,A1 AND SAVE " P CALL ALLBUF ALLOCATE BUFFERS P
0x096e88…09701c Dummy {f00=0x0030, f01=0x0190, f02=»TAB-ADDRESS v , P LD A12,T:DSAV,A2 GET 'OLD' T:D-ADDRESS P D 2 P* GET LAST USED ENTRY IN CLASS-LOCAL MM-TABLE L P ( P TL MMBEG,A2 LOAD CLASS LOCAL TABLE * P LDKL A3,MMTAB GET WORK TABLE ADDRESS P ADR A3,A13 $ P TSR A3 STORE TA
0x09701c…0971b0 Dummy {f00=0x0030, f01=0x0190, f02=»L TWBSWB MOVE TWB'S & RESERVE FOR SWB'S " P* CALCULATE LENGTH OF DSCB'S * 0 " P*** *** V P | P ELR A1,A8 GET T:A-ADDRESS & P EL A3,DATLEN,A12 A12=T:D-ADDRESS P LDK A2,DSCBL DSCB-LENGTH ( P CALL MULT A3() X
0x0971b0…097344 Dummy {f00=0x0030, f01=0x0190, f02=»LACEMENT v P ADR A4,A1 GET START OF DSCB P SUR A2,A4 LENGTH OF DAT'S 4 , P ADR A3,A2 A3=LENGTH OF DSCB'S AND DAT'S V ( P EL A2,FCD,A12 GET FCB-DISPLACEMENT P RF(NZ) SYA285 FCB PRESENT & P SUR A2,A3 MOVD30E A3(DSCB-LENGTH) , P ADKL A2,T
0x097344…0974d8 Dummy {f00=0x0030, f01=0x0190, f02=»S A2,CSE,A1 AND SAVE (TEMPORARY) 8 P LD A2,APCBLK+STKEND GET START OF APL.CONTROL TABLE ( ( P LD A2,APLLAC,A2 GET START OF P:MTAB d ( P TL* MMTO+STKCOM LOAD CORRECT TABLE P EL A2,P:BAS,A2 GET P:BAS ( P TL* MMFROM+STKCOM RELOAD DDIV TABLE
0x0974d8…09766c Dummy {f00=0x0030, f01=0x0190, f02=»AB l P XIF P RB SYA280 NEXT P EJECT . PSYA290 EQU * < 6 P IM FLAG+STKEND INDICATE REAL DATA-PART PROCESSING P P* P* INCLUDE DDIV IN FREE AREA P* P LD A1,DDIVST+STKEND P IFT MMUPAG=1 P LDR A2,A1 P A
0x09766c…097800 Dummy {f00=0x0030, f01=0x0190, f02=»A2,/FFF P ST A2,FSTADR+STKCOM P XIF , P IFT MMUPAG=0 8 P ST A1,DATEND+STKCOM N P XIF j P* MOVE T:ATAB v P . P LD A2,T:ATNW,A10 GET REAL T:A-TAB ADDRESS P IFT MMUPAG=0 P LDR* A1,A2 REAL LENGTH $ P ADR A2,A1 E
0x097800…097994 (4, 44) Dummy {f00=0x0031, f01=0x0190, f02=» SUR A2,A3 TO-ADDRESS P ST A2,T:ATOD,A10 SAVE P CALL MOVE < P XIF N P IFT MMUPAG=1 Z ( P TL* MMTO+STKCOM LOAD CORRECT TABLE p & P ELR A1,A2 GET REAL T:ATAB LENGTH $ P TL* MMFROM+STKCOM RELOAD TABLE P ADR A2,A1 END ADDRESS
0x097994…097b28 Dummy {f00=0x0031, f01=0x0190, f02=» P SUR A2,A3 TO-ADDRESS P ST A2,T:ATOD,A10 SAVE " P CALL XMOVE @ P XIF T P ` P EJECT h P v P ~ 4 P************************************************ 4 P*** *** 4 P** SYSL
0x097b28…097cbc Dummy {f00=0x0031, f01=0x0190, f02=»****** f P 4 P* BUILD REAL T:A'S. COPY T:A'S ACCORDING TO * 4 P* SHADOW TABLE * N 4 P* * 4 P************************************************ P PPART2B EQU
0x097cbc…097e50 Dummy {f00=0x0031, f01=0x0190, f02=» f * P LD A7,T:ATNW,A10 REAL T:ATAB ADDRESS P ADK A7,2 6 P ST A8,SAVE01+STKEND SAVE A8 H * PSYA310 LD A8,SAVE01+STKEND RESTORE A8 l P ADKL A8,2 P CW A8,ENDADD+STKEND ALL? P RF(E) SYA350 YES! P ST A8,SAVE01+STKEND SAVE $
0x097e50…097fe4 Dummy {f00=0x0031, f01=0x0190, f02=»TASK FLAG ~ : P ST A3,TTB:SA+26,A2 SAVE T:A ADDR. IN TTAB (SAVE-A13) " P LD A1,SCTOPT GET OPTION WORD P P ANK A1,2 DISC PAGING? v P RF(Z) SYA320 NO! P LDR A1,A3 GET T:A-ADDRESS 0 P ADKL A1,CSB ADDRESS TO CURRENT SEGMENT BASE " P ST
0x097fe4…098178 Dummy {f00=0x0031, f01=0x0190, f02=»DR* A6,A5 GET NUMBER OF COPIES P EJECT & PSYA340 SUK A6,1 4 P RF(P) SYA345 NEXT TASK L 2 P CALL CHTAID REPLACE TCL:S IN THIS TASK-CLASS l P RB SYA310 NEXT TASK-CLASS * PSYA345 LD A12,T:DAD,A1 GET T:D-ADDRESS P CALL MOVT:A MOVE T:A
0x098178…09830c Dummy {f00=0x0031, f01=0x0190, f02=»ORRESPONDING TTAB AND QUEUE ~ P IMR A4 SET QUEUE TASK FLAG $ 0 P ST A3,TTB:SA+26,A2 SAVE T:A-ADDRESS IN TTAB H " P LD A1,SCTOPT GET OPTION WORD | P ANK A1,2 DISC PAGING? P RF(Z) SYA348 NO! P LDR A1,A3 GET T:A-ADDRESS 0 P ADKL A1,CSB
0x09830c…0984a0 Dummy {f00=0x0031, f01=0x0190, f02=»BSWB MOVE TWB'S AND RESERVE FOR SWB'S " P CALL ALLBUF ALLOCATE BUFFERS . P XIF T P IFT MMUPAG=1 ` * P* GET ACTUAL MM-TABLE ADDRESS AND LOAD v P P LDR A1,A5 . P AD* A1,SHADOW,A10 ADD SHADOW-TABLE LENGTH $ P LDR* A1,A1 GET MM-TABLE
0x0984a0…098634 (4, 45) Dummy {f00=0x0031, f01=0x0190, f02=»EUE TASK FLAG : P ST A3,TTB:SA+26,A2 SAVE T:A ADDR. IN TTAB (SAVE-A13) P LDR A1,A3 GET T:A-ADDRESS T 0 P ADKL A1,CSB ADDRESS TO CURRENT SEGMENT BASE v " P ST A1,TTB:CB,A2 STORE IN TTAB 0 P LD A1,T:DSAV,A2 GET CLASS-LOCAL LAST ENTRY * P LDK
0x098634…0987c8 Dummy {f00=0x0031, f01=0x0190, f02=»BLE l P P SUK A2,2 START OF TABLE P LDKL A12,/FC00 4 PSYA320 SUK A1,2 NEXT ENTRY L P CWR A1,A2 ALL? n P RF(E) SYA330 YES! P STR A12,A1 REMOVE ENTRY P RB SYA320 PSYA330 EQU * P ELR A1,A8 GET T:A ADDRESS $ P
0x0987c8…09895c Dummy {f00=0x0031, f01=0x0190, f02=»REAL T:ATAB x $ P LDR* A6,A5 GET NUMBER OF COPIES PSYA340 SUK A6,1 < P RF(P) SYA345 NEXT TASK T 2 P CALL CHTAID REPLACE TCL:S IN THIS TASK-CLASS t P RB SYA310 NEXT TASK-CLASS PSYA345 ADK A1,1 NEXT T:A ID ( P CALL GETTTB FIND CORRES
0x09895c…098af0 Dummy {f00=0x0031, f01=0x0190, f02=»A7 STORE IN REAL T:ATAB @ P ST A2,TTB:SA+26,A9 PUT T:A-ADDRESS IN TTAB. A9=TTAB ADDRESS P LDR A8,A2 GET T:A-ADDRESS d 0 P ADKL A8,CSB ADDRESS TO CURRENT SEGMENT BASE " P ST A8,TTB:CB,A9 STORE IN TTAB " P LDR A8,A7 CHANGE T:A TO COPY , P A
0x098af0…098c84 Dummy {f00=0x0031, f01=0x018e, f02=»STKCOM GET TO-TABLE 2 P ST A1,MMFROM+STKCOM CHANGE T:A ADDRESS-TABLE P TLR A1 R " P CALL ALLBUF ALLOCATE BUFFERS b ( P LD A1,TTAB+STKCOM GET TTAB-ADDRESS * P CM LSTPAG,A1 CLEAR SAVE-AREA IN TTAB $ P ELR A3,A8 GET T:A-ADDRESS (NEW)
0x098c84…098e18 Dummy {f00=0x0031, f01=0x018e, f02=» ( P* SCAN TCTAB FOR TASKS TO BE QUEUED P* 4 , PSYA350 LD* A9,SCTTCT GET LENGTH OF TCTAB > $ P AD A9,SCTTCT ADD START OF TCTAB n ( PSYA355 SUKL A9,2 NEXT ENTRY IN TCTAB & P CW A9,SCTTCT ALL ENTRIES SCANNED? P RF(E) SYA360 YES P L
0x098e18…098fac Dummy {f00=0x0031, f01=0x018e, f02=» ~ $ P STR A5,A9 RESET QUEUE TASK FLAG ( P LD A12,TTB:SA+26,A5 GET T:A ADDRESS 0 , P LD A2,APCBLK+STKEND GET ADDRESS TO ACB ( P LD A2,APLLAC,A2 GET P:MTAB ADDRESS P IFT MMUPAG=1 & P TL TTB:MT,A5 LOAD TASKS MMU TABLE P EL A12,T:DAD,A1
0x098fac…099140 Dummy {f00=0x0031, f01=0x0190, f02=» 0 P LD A2,NTPA,A2 GET INTERPRETER START ADDRESS P XIF 8 P CALL QUEJOB QUEUE TASK D P RB SYA355 d P EJECT v PSYA360 EQU * P ADKL A10,TABLEN NEXT TABLEN P CM SWITCH+STKEND P CM FLAG+STKEND P LD A1,PDDIV+STKEND GET FL
0x099140…0992d4 (4, 46) Dummy {f00=0x0031, f01=0x0190, f02=» f P ST A1,SCTEFA+2 SAVE P XIF $ P IFT MMUPAG=1 0 6 P LD A1,FYSPAG+STKCOM GET LAST PHYSICAL PAGE NUMBER F P ST A1,SAEFA1+STKEND STORE * P LD A1,LSTADR+STKCOM GET LAST ADDRESS P ANKL A1,/FFF GET OFFSET P ST A1,SAEFA2+STKEND STO
0x0992d4…099468 Dummy {f00=0x0031, f01=0x0190, f02=»,FYSPAG+STKCOM GET LAST PHYSICAL PAGE P SLL A2,2 . P ORR A1,A2 @ P ST A1,SCTEFA+2 R P LD A1,FYSPAG+STKCOM j P SRL A1,14 P ST A1,SCTEFA P XIF PSYA370 EQU * P LDKL A1,SYA200 P AD A1,M:REL+STKCOM & P ABR A
0x099468…0995fc Dummy {f00=0x0031, f01=0x0190, f02=»N TO ALL PARTS IN THIS PROGRAM * z < P******************************************************* * P EJECT j 2 P** C A L L M O ** x 2 P** ** 2 P** CHECK IF MORE SPACE IN PDDIV ARE
0x0995fc…099790 Dummy {f00=0x0031, f01=0x0190, f02=» PDDIV = IF "1" INDICATE THAT ** 2 P** MORE SPACE IN PDDIV ** , 2 P** PDDIVL = LENGTH OF PDDIV AND ** b 2 P** S:GTAB ** 2 P** OUTPUT: PDDIVL AND LSTADR IS UPDATED ** 2 P**
0x099790…099924 Dummy {f00=0x0031, f01=0x0190, f02=» ** p 2 P** SUBROUTINES: MOVING ** 2 P** ** L 2 P********************************************* P* PCALLMO EQU * 2 P LD A2,PDDIV+STKEND MORE SPACE IN PDDIV AREA?
0x099924…099ab8 Dummy {f00=0x0031, f01=0x0190, f02=»PAG=0 , P LD A2,SCTEFA+2 N0! GET END OF FREE AREA , P ST A2,LSTADR+STKCOM UPDATE LAST ADDRESS > P XIF n P IFT MMUPAG=1 z P LD A2,SAEFA2+STKEND , P ST A2,LSTADR+STKCOM UPDATE LAST ADDRESS P LD A2,SAEFA1+STKEND 4 P ST A2,FYSPAG+ST
0x099ab8…099c4c Dummy {f00=0x0031, f01=0x0190, f02=»DDIVL v PCALL:10 EQU * P CALL MOVING $ P RTN A14 8 P EJECT H P V 4 P** G E T W B ** b 4 P** ** 4 P** ** 4
0x099c4c…099de0 Dummy {f00=0x0031, f01=0x0190, f02=» ** z 4 P** INPUT : A8= POINTER TO T:A-ADD IN T:ATAB ** " 4 P** BIT=BIT NUMBER SAT IN MASK (0-15)** Z 4 P** OUTPUT: A4=W.B. DISPLACEMENT IN T:A ** 4 P** TADISP=A4 ** 4 P**
0x099de0…099f74 (4, 47) Dummy {f00=0x0031, f01=0x0190, f02=»***************** r P PGETWB EQU * & $ P LD A4,BIT+STKEND GET BIT NUMBER : $ P SLL A4,2 ADJUST FOR ADDRESSING b P ADK A4,WATFST+2 * P ST A4,TADISP+STKEND SAVE DISPLACEMENT P IFT MMUPAG=0 P LDR* A11,A8 GET T:A-ADDRESS
0x099f74…09a108 Dummy {f00=0x0031, f01=0x0190, f02=» 2 P LD A11,FLAG+STKEND REAL TASK-DATA PROCESSING? P RF(Z) GETW10 NO! > " P TL* MMTO+STKCOM LOAD TO-TABLE X & PGETW10 ELR A11,A8 GET T:A-ADDRESS ~ P ADR A11,A4 ADD DISPLACEMENT P ST A11,WBADD+STKEND SAVE " P ELR A11,A11 GET W.B.-ADDR
0x09a108…09a29c Dummy {f00=0x0031, f01=0x018e, f02=» M O V W B ** 8 P** ** . 8 P** ** j 8 P** MOVE WORK-BLOCK. W.B.-ADDRESS IS UPDATED ** 8 P**
0x09a29c…09a430 Dummy {f00=0x0031, f01=0x0190, f02=» Z 8 P** WORK-REGS: A1-A4 ** 8 P**************************************************** D P PMOVWB EQU * P LDR A1,A11 GET ADDRESS P ADKL A1,WBLEN FROM-ADDRESS P IFT MMUPAG=0 P LDR* A3,A1 LE
0x09a430…09a5c4 Dummy {f00=0x0031, f01=0x0190, f02=» MOVE b P XIF P IFT MMUPAG=1 P ELR A3,A1 LENGTH 0 P CALL CALLMO J 6 P SUKL A2,WBLEN ADJUST TO-ADDRESS FOR DISPLACEMENT ^ 2 P LD A4,FLAG+STKEND REAL DATA-PART PROCESSING? P RF(Z) MOVW10 NO! " P TL* MMTO+STKCOM LOAD TO-TABLE
0x09a5c4…09a758 Dummy {f00=0x0031, f01=0x0190, f02=» P EJECT P P " : P** M O V D T ** . : P** ** l : P** ** : P** MOVE DISCRIPTOR TABLE. D.T.-
0x09a758…09a8ec Dummy {f00=0x0031, f01=0x0190, f02=»:A ** d : P** OUTPUT: A3=POINTER TO W.B.-ADDRESS ** : P** WORK REGS: A1-A4 ** P : P***************************************************** P PMOVDT EQU * : P LD A1,WBADD+STKEND GET POIN
0x09a8ec…09aa80 Dummy {f00=0x0031, f01=0x018e, f02=»A1,DTLEN ADJUST FOR LENGTH WORD " P AD A1,MOVADD+STKEND RELOCATE ( P LDR* A3,A1 LENGTH N P CALL CALLMO h P LD A3,WBADD+STKEND | P SUKL A2,DTLEN P SUKL A1,DTLEN 4 P ST A2,-2,A3 UPDATE D.T-ADDRESS. A2=NEW ADDRESS P XIF P
0x09aa80…09ac14 (4, 48) Dummy {f00=0x0032, f01=0x0190, f02=» P ELR A3,A1 LENGTH P CALL CALLMO P LD A3,WBADD+STKEND 2 P SUKL A2,DTLEN N P SUKL A1,DTLEN d 4 P ES A2,-2,A3 UPDATE D.T-ADDRESS. A2=NEW ADDRESS z P XIF P RTN A14 P EJECT P < P** M O V D W
0x09ac14…09ada8 Dummy {f00=0x0032, f01=0x0190, f02=» ** h < P** SEARCH T:D FOR DUMMY W.B. IF ANY FOUND, MOVE D.T. ** < P** AND UPDATE ADDRESSES (W.B. & D.T.) ** X < P** ** < P** INPUT : A12=T:D-ADDRESS
0x09ada8…09af3c Dummy {f00=0x0032, f01=0x0190, f02=» X < P** WORK.REGS: A1-A4 ** < P******************************************************** H P PMOVDWB EQU * " P ST A10,SAVE07+STKEND SAVE A10 P ST A6,SAVE05+STKEND SAVE A6 P LDK A6,0 * PMOVD
0x09af3c…09b0d0 Dummy {f00=0x0032, f01=0x018e, f02=» P IFT MMUPAG=1 P EL A2,WATLEN,A12 P XIF 4 " P SUR A2,A6 ACTUAL TABLE LENGTH @ P ADR A6,A12 A6=TABLE POINTER f " PMOVD20 ADK A6,1 A6=TABLE INDEX P SUK A2,1 ALL? P RF(N) MOVD60 YES! P IFT MMUPAG=0 " P CC A4,DWBFST,A6 S
0x09b0d0…09b264 Dummy {f00=0x0032, f01=0x0190, f02=» P RF(N) MOVD30 RIGHT! P ANKL A10,/FF00 P ECR A10,A10 8 P RF MOVD40 L PMOVD30 ANKL A10,/FF ^ " PMOVD40 SLC A6,1 ADJUST POINTER z P CWR A4,A10 SHARED W.B.? P XIF P RB(NE) MOVD20 NO! P* DWB FOUND * , P NGR A4,A2 C
0x09b264…09b3f8 Dummy {f00=0x0032, f01=0x0190, f02=» ~ P ADR A4,A10 P XIF P LDR A6,A4 SAVE TABLE INDEX ( P SUK A4,1 L P SLL A4,2 ^ P ADK A4,WATFST+2 p . P LD A3,NEWAD2+STKEND GET NEW W.B.-ADDRESS P IFT MMUPAG=0 2 P ADR* A4,A8 A4=POINTER TO W.B.-ADDRESS IN T:A " P S
0x09b3f8…09b58c Dummy {f00=0x0032, f01=0x0190, f02=»0 NO! " P TL* MMTO+STKCOM LOAD TO-TABLE PMOVD50 EQU * 4 . P ELR A10,A8 A4=POINTER TO W.B.-ADDR IN T:A H P ADR A4,A10 z " P ESR A3,A4 CHANGE W.B.-ADDRESS ( P TL* MMFROM+STKCOM RELOAD FROM-TABLE P XIF P ST A4,WBADD+STKEND 0 P
0x09b58c…09b720 Dummy {f00=0x0032, f01=0x018e, f02=»VE D.T. P RB MOVD10 PMOVD60 EQU * " $ P LD A6,SAVE05+STKEND RESTORE A6 6 & P LD A10,SAVE07+STKEND RESTORE A10 ^ P RTN A14 P EJECT P P 4 P** T W B S W B ** 4 P**
0x09b720…09b8b4 (4, 49) Dummy {f00=0x0032, f01=0x018e, f02=» ^ 4 P** INPUT : A8=ACTUAL T:A-ADDRESS ** 4 P** A12=T:D-ADDRESS ** @ 4 P** WORK-REGS: A1-A4, A11 ** x 4 P************************************************ P PTWBSWB EQU * P ST
0x09b8b4…09ba48 Dummy {f00=0x0032, f01=0x0190, f02=» P CALL SHIFT " PTWSW10 RF(Z) TWSW20 ALL DONE! P CALL GETWB B P CALL MOVWB V , P ST A2,NEWAD2+STKEND SAVE NEW WB-ADDRESS j & P CALL MOVDWB CHANGE DWB-ADDRESSES P CALL SKIFTA P RB TWSW10 PTWSW20 EQU * P IFT SWPBL
0x09ba48…09bbdc Dummy {f00=0x0032, f01=0x0190, f02=»FT SWPBLK-MMUPAG=1 P LD A7,SWBMSK,A12 P XIF 4 P IFT MMUPAG+SWPBLK=2 @ P EL A7,SWBMSK,A12 P XIF v P IFT SWPBLK=1 P CALL SHIFT PTWSW30 RF(Z) TARZAN ALL DONE P CALL GETWB P CALL MOVWB RESERVE SPACE * P S
0x09bbdc…09bd70 Dummy {f00=0x0032, f01=0x0190, f02=» P XIF $ P LD A7,SAVE04+STKEND RESTORE A7 P RTN A14 < P EJECT L P Z P b 4 P** A L L B U F ** j 4 P** ** 4 P** ALLOCATE FIXED DATA SET BUFFERS AND
0x09bd70…09bf04 Dummy {f00=0x0032, f01=0x018e, f02=»=ACTUAL T:A-ADDRESS IN T:ATAB ** 4 P** A12=T:D-ADDRESS ** * 4 P** CSN (IN T:A)=LENGTH OF DSCB'S ** b 4 P** CIA (IN T:A)=DISPL. TO T:A-START ** 4 P** CSE (IN T:A)=STACKSIZE ** 4
0x09bf04…09c098 Dummy {f00=0x0032, f01=0x0190, f02=» P IFT MMUPAG=0 2 P LD A9,FSTADR+STKCOM GET BUFFER START ADDRESS P LDR* A1,A8 GET T:A-ADDRESS T ( P LD A3,CSN,A1 GET DSCB TOTAL LENGTH x P RF(Z) ALLB70 NO DSCB'S 2 P AD A1,DATTAB,A12 CALC. START OF DSCB RECORDS " P LDR A11,A1 SA
0x09c098…09c22c Dummy {f00=0x0032, f01=0x0190, f02=» RF(Z) ALLB70 NO DSCB * P EL A11,DATTAB,A12 GET DISPL. TO DAT'S P ADR A1,A11 START OF DAT'S L " P LDR A11,A1 SAVE START ADDRESS n P XIF P SUR A3,A1 P NGR A3,A3 P SUK A3,DSCBL END CONDITION < P ST A3,SAVE04+STKEND SAVE ADDRES
0x09c22c…09c3c0 Dummy {f00=0x0032, f01=0x0190, f02=»LLB70 YES! P IFT MMUPAG=0 : P LD A3,BL,A1 GET LENGTH OF THE REQUESTED BUFFER.ZERO? ( P RB(Z) ALLB10 YES! f * P LD A2,SB,A1 GET INDEX.SHARED BUFFER? P RF(Z) NOTSH NO! P LDK A3,DSCBL LENGTH OF DSCB " P CALL MULT A2*A3 RESULT IN A3
0x09c3c0…09c554 (4, 50) Dummy {f00=0x0032, f01=0x0190, f02=»TORE IN CURRENT DSCB P XIF P IFT MMUPAG=1 ( 0 P EL A3,BL,A1 GET LENGTH OF REQ.BUFFER.ZERO? > P RB(Z) ALLB10 YES! r * P EL A2,SB,A1 GET INDEX.SHARED BUFFER? P RF(Z) NOTSH NO! P LDK A3,DSCBL LENGTH OF DSCB " P CALL MULT A2*A3 R
0x09c554…09c6e8 Dummy {f00=0x0032, f01=0x0190, f02=»S A4,BP,A1 STORE IN CURRENT DSCB P XIF ( P RB ALLB10 4 P F P IFT MMUPAG=0 N : PNOTSH ADK A3,2 ONE EXTRA WORD USED BY THE INTERPRETER d P LDR A9,A9 PAGING? P RF(NZ) NOTS10 NO! , P CALL CALLMO ALLOCATE BUFFER FROM BOTTOM & P A
0x09c6e8…09c87c Dummy {f00=0x0032, f01=0x0190, f02=»9,A9 , P SUR A9,A2 MAX LENGTH OF REM. MEM. AREA P LDR A4,A11 SAVE REGISTER < P LDR A11,A3 LENGTH OF BUFFER ^ P CALL CMPADR ENOUGTH MEMORY? P RF(G) ALLB50 NO! ( P LDR A9,A2 GET START OF MEMORY AREA ( P ADR A9,A3 ALLOCATE BUFFER F
0x09c87c…09ca10 Dummy {f00=0x0032, f01=0x0190, f02=»RT r P CALL CMPADR P RF(NL) ALLB60 OK! PALLB50 LDKL A1,LMP3 8 P CALL ERROR T PALLB60 EQU * h P LDR A11,A4 RESTORE REGISTER | & P ADK A2,2 BUFFER MASK AT DISPL. -2 & P ST A2,BP,A1 STORE BUFFER POINTER 0 P ST A9,FSTADR+STKCOM
0x09ca10…09cba4 Dummy {f00=0x0032, f01=0x0190, f02=»XTRA WORD USED BY THE INTERPRETER | . P CALL CALLMO ALLOCATE BUFFER FROM 'BOTTOM' * & P ADK A2,2 BUFFER MASK AT DISPL. -2 & P ES A2,BP,A1 STORE BUFFER ADDRESS P XIF P RB ALLB10 P , P* RESERVE STACK AND SET STACKPOINTERS *
0x09cba4…09cd38 Dummy {f00=0x0032, f01=0x018e, f02=»80 $ P LDK A3,STKSZ DEFAULT STACKSIZE PALLB80 EQU * 2 , P ST A3,STKB,A1 STORE ACTUAL STACK SIZE F P CALL CALLMO ALLOCATE STACK v P ST A2,STKE,A1 SET STACK-END " P LD A3,STKB,A1 GET STACK SIZE " P ADR A2,A3 COMPUTE STACK BASE "
0x09cd38…09cecc Dummy {f00=0x0032, f01=0x0190, f02=» P IFT MMUPAG=1 P ELR A1,A8 GET T:A-ADDRESS P EL A3,CSE,A1 GET STACK SIZE < * P RF(NZ) ALLB80 USER DEFINED STACK SIZE ` $ P LDK A3,STKSZ DEFAULT STACK SIZE ( PALLB80 ES A3,STKB,A1 SAVE STACK SIZE P CALL CALLMO ALLOCATE STACK " P E
0x09cecc…09d060 Dummy {f00=0x0032, f01=0x0190, f02=»T WORD x $ P ES A2,STKB,A1 STORE STACK BASE * P ESR A2,A1 STORE CURRENT STACK POINTER 6 P XIF d P RTN A14 p P EJECT P 4 P** M O V T : A ** 4 P** ** 4 P**
0x09d060…09d1f4 (4, 51) Dummy {f00=0x0032, f01=0x0190, f02=» ** v 4 P** INPUT : A8=T:A-ADDRESS ** 4 P** A12=T:D-ADDRESS ** V 4 P** CIA (IN T:A)=DISL. TO T:A-START ** 4 P** OUTPUT: A2=NEW T:A-ADDRESS ** 4 P** WORKRE
0x09d1f4…09d388 Dummy {f00=0x0032, f01=0x0190, f02=»0,SAVE07+STKEND SAVE A10 P IFT MMUPAG=0 P LDR* A1,A8 GET T:A-ADDRESS 6 ( P LD A3,WATLEN,A12 GET LENGTH OF WAT Z P SLL A3,2 BYTES , P SU A3,CIA,A1 ADD DISPLACEMENT TO START P ADK A3,WATFST A3=LENGTH P AD A1,CIA,A1 FROM-ADDRESS
0x09d388…09d51c Dummy {f00=0x0032, f01=0x018e, f02=»COMPUTE AND STORE ADDRESSES TO DATA-SETS IN FCB * P : P LD A3,FCD,A12 ANY FCD? B P RF(Z) MOVT10 NO! b P ADR A3,A2 START OF FCB | P LDR A4,A2 SAVE T:A-ADDRESS 2 P LD A10,FLAG+STKEND REAL TASK DATA PROCESSING? P RF(Z) MOVT05 NO!
0x09d51c…09d6b0 Dummy {f00=0x0032, f01=0x0190, f02=» | P ADS A4,FCBDD3,A3 P ADS A4,FCBDD4,A3 " , PMOVT10 LD A10,SAVE07+STKEND RESTORE A10 < P RTN A14 l P XIF | P IFT MMUPAG=1 P P ELR A1,A8 GET T:A-ADDRESS ( P EL A3,WATLEN,A12 GET LENGTH OF WAT P SLL A3,2 BYTES
0x09d6b0…09d844 Dummy {f00=0x0032, f01=0x0190, f02=»0,SAVE07+STKEND RESTORE A10 P CALL CALLMO $ P ELR A4,A8 8 P EL A10,CIA,A4 J P SUR A2,A10 NEW T:A-ADDRESS ` " P SUR A1,A10 'OLD' T:A-ADDRESS 8 P* COMPUTE AND STORE ADDRESSES TO DATA-SETS IN FCB * P P EL A3,FCD,A12 ANY FCD?
0x09d844…09d9d8 Dummy {f00=0x0032, f01=0x018e, f02=»! 8 P SUR A4,A1 ADJUST FOR OLD RELOCATION (OLD T:A-ADDR.) PMOVT05 EQU * F P ADR A3,A2 START OF FCB Z " P TL* MMTO+STKCOM LOAD TO-TABLE z P EL A10,FCBDD1,A3 P ADR A10,A4 P ES A10,FCBDD1,A3 P EL A10,FCBDD2,A3 P ADR A
0x09d9d8…09db6c Dummy {f00=0x0032, f01=0x0190, f02=» P ADR A10,A4 P ES A10,FCBDD4,A3 ( P TL* MMFROM+STKCOM RELOAD FROM-TABLE 2 , PMOVT10 LD A10,SAVE07+STKEND RESTORE A10 ^ P RTN A14 P XIF P EJECT D P*************************************************************** D P*
0x09db6c…09dd00 Dummy {f00=0x0032, f01=0x0190, f02=»* ===================================== * D P* * H D P* REFERENCED IN: MOVCOM * D P*
0x09dd00…09de94 (4, 52) Dummy {f00=0x0033, f01=0x0190, f02=» * h D P* BIT - BIT NUMBER SET IN CWB- OR UWB-MASK * D P* * h D P* EXIT: CORRESPONDING BIT IN CURRENT STATCK POINTER * D P* IN T:A
0x09de94…09e028 Dummy {f00=0x0033, f01=0x0190, f02=»REGISTERS: A1,A2 * D P* * @ D P* SUBROUTINES: * D P*
0x09e028…09e1bc Dummy {f00=0x0033, f01=0x0190, f02=» SET BIT 0 8 P LD A2,BIT+STKEND GET BIT NUMBER IN CWB- OR UWB-MASK " PIBAM10 RF(Z) IBAM20 BIT FOUND N & P SRL A1,1 SHIFT BIT RIGHT ONE STEP t $ P SUK A2,1 DECREMENT BIT COUNTER P RB IBAM10 P* & P* UPDATE MOVED MASK IN FIRST T:A
0x09e1bc…09e350 Dummy {f00=0x0033, f01=0x0190, f02=»E CURRENT BLOCK MOVED ~ * P STR A3,A2 STORE NEW MOVED BLOCK MASK P* L & P* UPDATE MOVED MASK IN SECOND T:A V P* P LDR* A2,A6 GET T:A POINTER $ P LDR* A3,A2 GET MOVED BLOCK MASK , P ORR A3,A1 INDICATE CURRENT BLOCK MOVED * P S
0x09e350…09e4e4 Dummy {f00=0x0033, f01=0x0190, f02=»ED BLOCK MASK ~ , P ORR A3,A1 INDICATE CURRENT BLOCK MOVED * P ESR A3,A2 STORE NEW MOVED BLOCK MASK F P* t & P* UPDATE MOVED MASK IN SECOND T:A ~ P* P ELR A2,A6 GET T:A POINTER $ P ELR A3,A2 GET MOVED BLOCK MASK , P ORR A3,A1 I
0x09e4e4…09e678 Dummy {f00=0x0033, f01=0x0190, f02=»******************************************************************* J P* * L J P* CHKMVD - CHECK IF BLOCK ALREADY MOVED * J P* ================
0x09e678…09e80c Dummy {f00=0x0033, f01=0x0190, f02=»D IN: MOVCOM,MOVCLA * J P* * B J P* ENTRY: A8 - POINTER TO T:A * J P* BIT - BIT NUMBER IN CWB- OR UWB-
0x09e80c…09e9a0 Dummy {f00=0x0033, f01=0x0190, f02=»EADY MOVED THEN CR=2 ELSE CR<>2 * z J P* * 8 J P* WORK REGISTER: A1,A2 * J P*
0x09e9a0…09eb34 (4, 53) Dummy {f00=0x0033, f01=0x0190, f02=» * p J P********************************************************************* . P EJECT | PCHKMVD EQU * P IFT MMUPAG=0 P LDR* A1,A8 GET T:A POINTER $ P LDR* A1,A1 GET MOVED BLOCK MASK P XIF
0x09eb34…09ecc8 Dummy {f00=0x0033, f01=0x0190, f02=»END GET BIT SET IN CWB- OR UWB-MASK 6 PCHKM10 RF(Z) CHKM20 BIT IN MOVED BLOCK MASK FOUND , * P SLL A1,1 NEXT BIT IN MOVED BLOCK MASK f $ P SUK A2,1 DECREMENT BIT COUNTER P RB CHKM10 PCHKM20 ADK A1,0 SET CR * P CFI A14,PSW,A13 PUT CONDITI
0x09ecc8…09ee5c Dummy {f00=0x0033, f01=0x0190, f02=» ** : P** S H I F T & SKIFTA ** < : P** ** z : P** CALCULATES BIT NUMBER SAT IN MASK-WORD ** : P** INPUT : A7=MAS
0x09ee5c…09eff0 Dummy {f00=0x0033, f01=0x0190, f02=»PSW ON RETURN ** r : P****************************************************** P ^ PSHIFT EQU * j $ P CM BIT+STKEND RESET BIT COUNTER ~ P LDR A7,A7 P RF SHIF20 & PSKIFTA EQU * ENTRY: CONTINUE SHIFT PSHIF10 IM BIT+STKEND
0x09eff0…09f184 Dummy {f00=0x0033, f01=0x0190, f02=»OND IN PSW t P RTN A14 P EJECT " @ P************************************************************ 0 @ P* * t @ P* CHTAID - CHANGE T:A-ID AND CLEAR TCL SAVE AREA IN TTAB * B P*
0x09f184…09f318 Dummy {f00=0x0033, f01=0x0190, f02=» * @ P* * : @ P* REFERENCED IN: SYSLDA PART 2 B. * ~ @ P* * @ P*
0x09f318…09f4ac Dummy {f00=0x0033, f01=0x018e, f02=» * @ P* EXIT: * B @ P* * @ P* WORK REGISTERS: A1,A3,A6,A8 *
0x09f4ac…09f640 Dummy {f00=0x0033, f01=0x0190, f02=» R @ P* * @ P************************************************************ L PCHTAID EQU * 2 P LDR A8,A7 GET NEXT FREE ENTRY IN REAL T:ATAB $ P LDR* A6,A5 GET NUMBER OF COPIES " PCHT:10
0x09f640…09f7d4 (4, 54) Dummy {f00=0x0033, f01=0x0190, f02=»T:A p $ P LD A1,T:ATID,A1 GET TCL IN T:A . PCHT:20 CALL GETTTB GET CORRESPONDING TTAB 4 * P LD A4,TTBTID,A2 GET REAL TID IN TTAB f 6 P LD A3,TTB:SA+26,A2 GET CORRESPONDING T:A-ADDRESS ( P ST A4,T:ATID,A3 REPLACE TCL IN T:A & P LDR A3,A8 GET
0x09f7d4…09f968 Dummy {f00=0x0033, f01=0x0190, f02=»IF P IFT MMUPAG=1 & P ELR A1,A8 GET POINTER TO REAL T:A $ P EL A1,T:ATID,A1 GET TCL IN T:A J . PCHT:20 CALL GETTTB GET CORRESPONDING TTAB r ( P LDR A3,A2 GET POINTER TO TTAB ENTRY 2 P ADKL A3,MMBEG START OF MM-TABLE FOR THIS TTAB P T
0x09f968…09fafc Dummy {f00=0x0033, f01=0x018e, f02=»:ATID,A3 REPLACE TCL IN T:A *79-04-11* 0 P EL* A3,T:ATNW,A10 GET LENGTH OF REAL T:ATAB . $ P NGR A3,A3 NEGATIVE DISPLACEMENT b . P ADR A3,A8 COMPUTE ENTRY IN AUX. TID TABLE 8 P ESR A4,A3 SAVE TID FOR DEBUGGER PURPOSE *79-04-11* P XIF & P CM
0x09fafc…09fc90 Dummy {f00=0x0033, f01=0x0190, f02=» j P RB(P) CHT:20 NEXT COPY PCHT:90 RTN A14 ( P > 4 P** T : D A D D ** J 4 P** ** 4 P** ** 4 P** GET T:D - ADDRESS
0x09fc90…09fe24 Dummy {f00=0x0033, f01=0x018e, f02=»** b 4 P** OUTPUT: A12=T:D ADDRESS ** 4 P************************************************ B PT:DADD EQU * z P IFT MMUPAG=0 P LDR* A12,A8 T:A ADDRESS P LD A12,T:DAD,A12 P XIF P IFT MMUPAG=1 P ELR A12
0x09fe24…09ffb8 Dummy {f00=0x0033, f01=0x0190, f02=» P 6 P** M O V C O M ** 6 P** ** N 6 P** ** 6 P** SEARCH T:A'S FOR COMMON WORK BLOCKS THAT ** 6 P** ARE COMM
0x09ffb8…0a014c Dummy {f00=0x0033, f01=0x018e, f02=» ** p 6 P** INPUT : A8=POINTER IN T:ATAB ** 6 P** BIT=BIT NUMBER, SAT IN MASK ** T 6 P** ENDADD=ENDADDRESS OF T:ATAB ** 6 P** TADISP=W.B.-ADDR DISPLACEM. IN T:A ** 6 P** WO
0x0a014c…0a02e0 Dummy {f00=0x0033, f01=0x0190, f02=» & P CALL CHKMVD BLOCK ALREADY MOVED? P RF(N) MOVC20 YES! 2 : P CALL GETWB POINTER TO WB ADD TO 'WBADD',A5=T:A-DISPL L , P ST A11,SAVE06+STKEND SAVE W.B.-ADDRESS * P CM MOVED+STKEND CLEAR MOVED INDICATOR P LDR A6,A8 PMOVC10 ADK A6,
0x0a02e0…0a0474 (4, 55) Dummy {f00=0x0033, f01=0x0190, f02=»30 LDR* A11,A6 P LD A2,T:DAD,A11 T:D-ADDRESS " P AD A2,MOVADD+STKEND RELOCATE : P ST A2,SAVE03+STKEND SAVE ` , P LD A2,WATLEN,A2 NUMBER OF WAT-ELEMENTS P CW A2,BIT+STKEND ENOUGHT? 6 P RB(NG) MOVC10 TO FEW WAT ELEMENTS. TAKE NEXT T:A
0x0a0474…0a0608 Dummy {f00=0x0033, f01=0x018e, f02=»IF P IFT MMUPAG=1 PMOVC30 ELR A11,A6 P EL A2,T:DAD,A11 T:D-ADDRESS : " P AD A2,MOVADD+STKEND RELOCATE ^ 4 P ST A2,SAVE03+STKEND SAVE T:D-ADDRESS TEMPORARY , P EL A2,WATLEN,A2 NUMBER OF WAT-ELEMENTS P CW A2,BIT+STKEND ENOUGHT?
0x0a0608…0a079c Dummy {f00=0x0033, f01=0x0190, f02=» 0 P CW A11,SAVE06+STKEND COMPARE W.B.-ADDRESSES P XIF 8 P RB(NE) MOVC10 .NEQ. D , P LD A9,MOVED+STKEND W.B. ALREADY MOVED? ` . P RF(NZ) MOVC50 YES! CHANGE ADDRESSES ONLY & P CALL MOVDT MOVE DESCRIPTOR-TABLE * P ST A2,NEWAD1+STKEND SAVE D.
0x0a079c…0a0930 Dummy {f00=0x0033, f01=0x0190, f02=» MOVC40 NO! " P CALL GETPRO CREATE REAL UWB'S 8 PMOVC40 ST A2,NEWAD2+STKEND SAVE NEW ADDRESS TO W.B. : P CALL MOVDWB v & PMOVC50 CALL CHADR CHANGE ADDRESSES . P CALL ICBMVD INDICATE CURRENT BLOCK MOVED P LDR A11,A8 SAVE T:A-POINTER *
0x0a0930…0a0ac4 Dummy {f00=0x0033, f01=0x0190, f02=» P CALL MOVDWB P LDR A8,A11 , P LD A12,SAVE04+STKEND RELOAD T:D-ADDRESS , P RB MOVC10 P EJECT n P | P 4 P** G E T P R O ** 4 P** ** 4 P**
0x0a0ac4…0a0c58 Dummy {f00=0x0033, f01=0x0190, f02=» ** t 4 P** ** 4 P** INPUT : A11=PROTOTYPE ADDRESS ** T 4 P** A2=LAST W.B. - ADDRESS ** 4 P** OUTPUT: A2=NEW ADDRESS ** 4 P** WORK-REG
0x0a0c58…0a0dec Dummy {f00=0x0033, f01=0x018e, f02=»A3,U:BTOD,A10 GET U:BTAB ADDRESS P IFT MMUPAG=0 ( P LDR* A4,A3 LENGTH > PGETP10 EQU * X 6 P SUK A4,UP:REC SUB RECORD LENGTH FRM TABLE LENGTH l P RF(NN) GETP20 P LDK A1,LMP6 W.B. NOT FOUND! P CALL ERROR PGETP20 EQU * P
0x0a0dec…0a0f80 Dummy {f00=0x0033, f01=0x0190, f02=» 0 P* GET NUMBER OF COPIES * 0 P* A3 POINTS AT PROTOTYPE ADDRESS IN U:BTAB * < P p PGETP30 EQU * x P LD A4,WBLEN,A11 W.B.-LENGTH * P LC A5,UPNUMB,A3 GET NUMBER OF COPIES P ANK A5,/FF , P SU A3,U:BTOD,A10 GET
0x0a0f80…0a1114 (4, 56) Dummy {f00=0x0034, f01=0x0190, f02=»A5,URNUMB,A9 STORE IN REAL U:BTAB 0 P* COPY NUMBER OF WORKBLOCKS TO COMMON AREA * * 0 P******************************************** ^ . P SUK A5,1 ONE ALREADY MOVED (IN 'MOVCOM') P RF(NP) GETP50 PGETP40 CALL MOVWB P SUK A5,1 P R
0x0a1114…0a12a8 Dummy {f00=0x0034, f01=0x018e, f02=» ST A2,URADDR,A9 STORE ADDRESS TO FIRST IN U:BTAB P XIF : P IFT MMUPAG=1 F P ELR A4,A3 LENGTH PGETP10 EQU * v 6 P SUK A4,UP:REC SUB RECORD LENGTH FRM TABLE LENGTH P RF(NN) GETP20 P LDK A1,LMP6 W.B. NOT FOUND! P CALL ERRO
0x0a12a8…0a143c Dummy {f00=0x0034, f01=0x018e, f02=» f P ADK A3,UP:REC NEXT P RB GETP10 $ P 6 0 P* GET NUMBER OF COPIES * B 0 P* A3 POINTS AT PROTOTYPE ADDRESS IN U:BTAB * v 0 P******************************************** P PGETP30 EQU * P EL A4,WBLEN,A
0x0a143c…0a15d0 Dummy {f00=0x0034, f01=0x0190, f02=» . P AD A3,U:BTNW,A10 ADD TO NEW TABLE ADDRESS P LDR A9,A3 6 " P TL* MMTO+STKCOM LOAD TO-TABLE H * P ES A5,URNUMB,A9 ESORE IN REAL U:BTAB n " P ES A4,URLENG,A9 STORE LENGTH ( P TL* MMFROM+STKCOM RELOAD FROM TABLE 0 P* COPY NUMBER OF WORKBLOCK
0x0a15d0…0a1764 Dummy {f00=0x0034, f01=0x0190, f02=»GETP50 PGETP40 CALL MOVWB P SUK A5,1 ( P RB(NZ) GETP40 : P P & P* UPDATE POINTER IN REAL U:BTAB * & P********************************* PGETP50 EQU * P TL* MMTO+STKCOM 6 P ES A2,URADDR,A9 ESORE ADDRESS TO FIRES IN U
0x0a1764…0a18f8 Dummy {f00=0x0034, f01=0x0190, f02=» ** f 2 P** ** 2 P** ** B 2 P** CHECKS IF W.B. ALREADY MOVED TO COMMON ** x 2 P** AREA. IF NOT MOVE W.B. & D.T. AND ** 2 P** CHECK IF ANY DWB'S
0x0a18f8…0a1a8c Dummy {f00=0x0034, f01=0x0190, f02=»*********************************** P , PMOVCLA EQU * 4 P CALL SHIFT H P RF(Z) MVCL30 * PMVCL10 CALL GETWB W.B.-ADDRESS TO A11 r & P CALL CHKMVD BLOCK ALREADY MOVED? P RF(NN) MVCL40 NO! , PMVCL20 CALL SKIFTA GET NEXT BIT IN M
0x0a1a8c…0a1c20 Dummy {f00=0x0034, f01=0x0190, f02=» P RF(Z) MVCL50 NO! P CALL GETPRO DUPLICATE WB'S 0 PMVCL50 ST A2,NEWAD2+STKEND SAVE W.B.-ADDRESS B P CALL MOVDWB PROCESS DWB'S v P RB MVCL20 P EJECT P P 6 P** C H A D R ** 6
0x0a1c20…0a1db4 (4, 57) Dummy {f00=0x0034, f01=0x0190, f02=» TO W.B. & D.T. IN T:A, ** ~ 6 P** BLOCKS ALREDY MOVED ** ( 6 P** ** b 6 P** INPUT : A6=POINTER IN T:ATAB TO T:A ** 6 P** NEWADR1=NEW D.T.-ADDRESS **
0x0a1db4…0a1f48 Dummy {f00=0x0034, f01=0x0190, f02=»S: A1,A2 ** 6 P************************************************* . P h PCHADR EQU * t P IFT MMUPAG=0 P LDR* A1,A6 T:A-ADDRESS 2 P AD A1,TADISP+STKEND ADDRESS TO W.B.-ADDRESS P LD A2,NEWAD2+STKEND
0x0a1f48…0a20dc Dummy {f00=0x0034, f01=0x0190, f02=»G=1 P ELR A1,A6 T:A-ADDRESS 2 P AD A1,TADISP+STKEND ADDRESS TO W.B.-ADDRESS * P LD A2,NEWAD2+STKEND ` P ESR A2,A1 | & P SUK A1,2 ADDRESS TO D.T.-ADDRESS P LD A2,NEWAD1+STKEND P ESR A2,A1 P XIF P RTN A14 P IFT S
0x0a20dc…0a2270 Dummy {f00=0x0034, f01=0x0190, f02=» * l B P* * " B P* B:RSWT - BUILD REAL SWB CONTROL TABLE * h B P* ===================================== * B P*
0x0a2270…0a2404 Dummy {f00=0x0034, f01=0x0190, f02=» * B P* ENTRY: A2 - POINTER TO FIRST RECORD IN REAL S:BTAB * 6 B P* A5 - LENGTH OF REAL S:BTAB * | B P* * B P
0x0a2404…0a2598 Dummy {f00=0x0034, f01=0x0190, f02=» B P* WORK REGISTERS: A1-A7 * B P* * J B P* SUBROUTINES: * B P*
0x0a2598…0a272c Dummy {f00=0x0034, f01=0x0190, f02=»AVE POINTER TO FIRST BLOCK 8 P LD A1,APCBLK+STKEND GET START OF APL.CONTROL TABLE " 0 P LD A1,APLSWB,A1 POINTER TO SWB BLOCK TABLE ^ * P RF(Z) RSWBEX NO SWB:S IN APPLICATION P LDR* A3,A1 NUMBER OF TYPES P RF(Z) RSWBEX NO MOORE P LDK A
0x0a272c…0a28c0 Dummy {f00=0x0034, f01=0x0190, f02=» COPIES | $ P LD A7,SWBLEN,A4 LENGTH IN BYTES P XIF 8 P IFT MMUPAG+SWPBLK=2 D & P ES A6,2,A2 STORE NUMBER OF COPIES ` , P ES A7,4,A2 STORE LENGTH OF SWB IN BYTES P XIF P IFT SWPBLK-MMUPAG=1 & P ST A6,2,A2 STORE NUMBER OF COPIES
0x0a28c0…0a2a54 (4, 58) Dummy {f00=0x0034, f01=0x0190, f02=»6 INCREMENT POINTER IN BLOCK ( P SUK A3,1 DECREMENT NUMBER OF TYPES $ P RB(P) RSWB10 P P LDR A4,A2 f P* x 4 P* INIT POINTERS TO TID BLOCKS FOR EACH SWB TYPE ( P* AND RESET ALL WORDS IN TID BLOCKS P* PRSWB20 EQU * ( P LDR
0x0a2a54…0a2be8 Dummy {f00=0x0034, f01=0x018e, f02=» t P RF(Z) RSWB50 NO COPIES! * P STR A6,A8 STORE POINTER TO TID BLOCK ( PRSWB30 STR A3,A2 RESET TID V , P ADK A2,2 INCREMENT POINTER IN TID BLOCK x . P SUK A5,2 DECREMENT LENGTH OF REAL S:BTAB $ P SUK A1,1 DECR. NUMBER OF COPIES P RB(P)
0x0a2be8…0a2d7c Dummy {f00=0x0034, f01=0x0190, f02=» * P ESR A6,A8 STORE POINTER TO TID BLOCK PRSWB40 ESR A3,A2 RESET TID 2 , P ADK A2,2 INCREMENT POINTER IN TID BLOCK T . P SUK A5,2 DECREMENT LENGTH OF REAL S:BTAB ( P SUK A1,1 DECREMENT NUMBER OF COPIES P RB(P) RSWB40 NEXT COPY P XIF
0x0a2d7c…0a2f10 Dummy {f00=0x0034, f01=0x4098, f02=» RSWBEX YES P LDKL A1,LMP6 SWB ERROR! P CALL ERROR 4 PRSWBEX RTN A14 H P XIF ^ PLCREND EQU * j P ~ P END @ LENGTH OF REAL S:BTAB ( P SUK A1,1 DECREMENT NUMBER OF COPIES P RB(P) RSWB40 NEXT COPY P XIF
0x0a2f10…0a30a4 Dummy {f00=0x0034, f01=0x2008, f02=» -ADDRESS w v PHINKAS SUK A1,1 DEC. COUNTER x P RB(N) HINKA TAKE NEXT T:A x < P ADRS A6,A2 RELOCATE x ^ P ADK A2,4 NEXT W.B. x z P RB HINKAS x P x PSTICK EQU * x P* CONTINUE IN PART 2 * x P x P LDKL A1,START2 x " P A
0x0a30a4…0a3238 Dummy {f00=0x0034, f01=0x0190, f02=» EFCFCA Z G T Z O W . O N 8A:a P N W O ^ O dT G " Z F C N V G G T N X G < O T N T S 0QB? R O R 8A:a T V N T= R U W N T O T_N N T S 0U G W
0x0a3238…0a33cc Dummy {f00=0x0034, f01=0x0190, f02=» F ? F @ F B F ? T O pW O p . G T@ V F F O F F . B B O n n F =P O p EFCTUS F 91 T C & T & & T 0 G T O q T O N T " " P` V O n F W N n G O NT
0x0a33cc…0a3560 Dummy {f00=0x0034, f01=0x0190, f02=» f >EFCILE F G G #T C T G $ G TD G T G Q W G Q & 0 G T F " O 8A:a 8A:a P, 8A:a n 8A:a P n O _$ 6 o W 6 G " O }P O }T< 2
0x0a3560…0a4200 (5, 0) DirGranule ((5, 0)) {
0x0a3560…0a4200 DirEnt {nam=»UPD3 «, typ=» «, f00=0x0000, f01=0x0000, f02=0x04c0, f03=0x0000}
0x0a3560…0a4200 DirEnt {nam=»INFO «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x04c8, f03=0x0000}
0x0a3560…0a4200 DirEnt {nam=»UP11 «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x04d0, f03=0x0000}
0x0a3560…0a4200 DirEnt {nam=»DRTP02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0698, f03=0x0000}
0x0a3560…0a4200 DirEnt {nam=»DRSU01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x06e8, f03=0x0000}
0x0a3560…0a4200 DirEnt {nam=»DRGP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0798, f03=0x0000}
0x0a3560…0a4200 }
0x0a4200…0a4394 (5, 1) Opaque[0x194]
0x0a4394…0a4528 # DirEnt {nam=»INFO «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x04c8, f03=0x0000}
0x0a4394…0a4528 IdxSect {
0x0a4394…0a4528 f00 = 0x0026 // 0xa4394 @0x0
0x0a4394…0a4528 f01 = 0x0002 // 0xa4396 @0x2
0x0a4394…0a4528 gno = [ // 0xa4398 @0x4
0x0a4394…0a4528 [0x00]: C0x0026.0x1.0
0x0a4394…0a4528 ]
0x0a4394…0a4528 }
0x0a4528…0a46bc Dummy {f00=0x0026, f01=0x0190, f02=» 4 PTHIS FLEXIBLE DISC CONTAINS UPDATES FOR PTS TOSS PRELEASE 11.0. < , PTHE FOLLOWING MODULES HAVE BEEN UPDATED: R P * PUSER-ID ! MODULE ! DATE ! COMMENT @ P------------------------------------------------------------ < PTOSS11 ! DR
0x0a46bc…0a4850 Dummy {f00=0x0026, f01=0x0140, f02=»81-08-31 ! SOLUTION OF PROBLEM: 8556 | " P ! ! ! , P R @ PYOU CAN UPDATE YOUR SYSTEM SOFTWARE BY ENTERING THE COMMAND Z PASG /E0,DK,UP11 < PIF YOU DON'T WANT TO HAVE ANY OF YOUR OLD MODULES TO BE 6 PREPLACED BY THESE
0x0a4850…0a49e4 Dummy {f00=0x0026, f01=0x2008, f02=» ! SOLUTION OF PROBLEM: 8556 | " P ! ! ! , P R @ PYOU CAN UPDATE YOUR SYSTEM SOFTWARE BY ENTERING THE COMMAND Z PASG /E0,DK,UP11 < PIF YOU DON'T WANT TO HAVE ANY OF YOUR OLD MODULES TO BE 6 PREPLACED BY THESE
0x0a49e4…0a4b78 Dummy {f00=0x0026, f01=0x2008, f02=» MUST CHANGE THE v PFILE 'UP11'. ! DRSU01 ! 81-08-31 ! SOLUTION OF PROBLEM: 8556 , < P ! DRGP01 ! 81-08-31 ! SOLUTION OF PROBLEM: 8556 l " P ! ! ! P @ PYOU CAN UPDATE YOUR SYSTEM SOFTWARE BY ENTERIN
0x0a4b78…0a4d0c Dummy {f00=0x0026, f01=0x0190, f02=»NO OF SECTORS ON UNPACKED PTS 6875 | , PSECLEN EQU 256 SECTOR LENGTH, CHARACTERS * * PPHSECL EQU 384 PHYSICAL SECTOR LENGTH Z PQRETRY EQU 4 NO OF RETRIES PTIME EQU 1000 1 MIN 40 SEC P* P* P EJECT DRDU01 DRDU01 P*
0x0a4d0c…0a4ea0 Dummy {f00=0x0026, f01=0x0190, f02=»ABORT ROUTINE ADDRESS P* P IFT VERSA3=1 ( PBUFFER RES 193 > P XIF T P* ` P IFT VERSA3=0 j PBUFFER RES 25 P* P IFT RAW=1 P RES 103 P XIF P IFT VERSA2=1 =2 ( PCYLBUF RES 2 CYL ID CHECK BUFFER
0x0a4ea0…0a5034 (5, 2) Opaque[0x194]
0x0a5034…0a51c8 # DirEnt {nam=»UP11 «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x04d0, f03=0x0000}
0x0a5034…0a51c8 IdxSect {
0x0a5034…0a51c8 f00 = 0x0026 // 0xa5034 @0x0
0x0a5034…0a51c8 f01 = 0x0002 // 0xa5036 @0x2
0x0a5034…0a51c8 gno = [ // 0xa5038 @0x4
0x0a5034…0a51c8 [0x00]: C0x0026.0x2.0
0x0a5034…0a51c8 ]
0x0a5034…0a51c8 }
0x0a51c8…0a535c Dummy {f00=0x0026, f01=0x0190, f02=» 4 PMES NOW YOUR SYSTEM SOFTWARE WILL BE UPDATED. 8 PMES YOUR SYSTEM SOFTWARE IS EXPECTED TO BE ON THE < $ PMES DISC WITH FILE-CODE /F0. x : PMES IF THIS IS OK, THEN PRESS THE INT-BUTTON ON THE 8 PMES FULL PANEL AND ENTER 'RS', OTHERWIS
0x0a535c…0a54f0 Dummy {f00=0x0026, f01=0x0190, f02=» PMOV DRTP02,/S,TOSS11 PKPF /S,DRTP02 $ 8 PMES REPLACING MODULE DRSU01 11.0 IN USER TOSSWORK : PDEL DRSU01,/S v PMOV DRSU01,/S,TOSS11 PKPF /S,DRSU01 8 PMES REPLACING MODULE DRGP01 11.0 IN USER TOSSWORK PDEL DRGP01,/S
0x0a54f0…0a5684 Dummy {f00=0x0026, f01=0x0014, f02=» PASG /E0,TY10 S,TOSS11 PKPF /S,DRTP02 $ 8 PMES REPLACING MODULE DRSU01 11.0 IN USER TOSSWORK : PDEL DRSU01,/S v PMOV DRSU01,/S,TOSS11 PKPF /S,DRSU01 8 PMES REPLACING MODULE DRGP01 11.0 IN USER TOSSWORK PDEL DRGP01,/S
0x0a5684…0a5818 Dummy {f00=0x0026, f01=0x2008, f02=» /E0,TY10 S,TOSS11 PKPF /S,DRTP02 $ 8 PMES REPLACING MODULE DRSU01 11.0 IN USER TOSSWORK : PDEL DRSU01,/S v PMOV DRSU01,/S,TOSS11 PKPF /S,DRSU01 8 PMES REPLACING MODULE DRGP01 11.0 IN USER TOSSWORK PDEL DRGP01,/S
0x0a5818…0a59ac Dummy {f00=0x0026, f01=0x0190, f02=»NO OF SECTORS ON UNPACKED PTS 6875 | , PSECLEN EQU 256 SECTOR LENGTH, CHARACTERS * * PPHSECL EQU 384 PHYSICAL SECTOR LENGTH Z PQRETRY EQU 4 NO OF RETRIES PTIME EQU 1000 1 MIN 40 SEC P* P* P EJECT DRDU01 DRDU01 P*
0x0a59ac…0a5b40 Dummy {f00=0x0026, f01=0x0190, f02=»ABORT ROUTINE ADDRESS P* P IFT VERSA3=1 ( PBUFFER RES 193 > P XIF T P* ` P IFT VERSA3=0 j PBUFFER RES 25 P* P IFT RAW=1 P RES 103 P XIF P IFT VERSA2=1 =2 ( PCYLBUF RES 2 CYL ID CHECK BUFFER
0x0a5b40…0a5cd4 (5, 3) Opaque[0x194]
0x0a5cd4…0a5e68 # DirEnt {nam=»DRTP02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0698, f03=0x0000}
0x0a5cd4…0a5e68 IdxSect {
0x0a5cd4…0a5e68 f00 = 0x0034 // 0xa5cd4 @0x0
0x0a5cd4…0a5e68 f01 = 0x0014 // 0xa5cd6 @0x2
0x0a5cd4…0a5e68 gno = [ // 0xa5cd8 @0x4
0x0a5cd4…0a5e68 [0x00]: C0x0034.0x3.0
0x0a5cd4…0a5e68 [0x01]: C0x0035.0x0.0
0x0a5cd4…0a5e68 [0x02]: C0x0035.0x1.0
0x0a5cd4…0a5e68 [0x03]: C0x0035.0x2.0
0x0a5cd4…0a5e68 [0x04]: C0x0035.0x3.0
0x0a5cd4…0a5e68 [0x05]: C0x0036.0x0.0
0x0a5cd4…0a5e68 [0x06]: C0x0036.0x1.0
0x0a5cd4…0a5e68 [0x07]: C0x0036.0x2.0
0x0a5cd4…0a5e68 [0x08]: C0x0036.0x3.0
0x0a5cd4…0a5e68 [0x09]: C0x0037.0x0.0
0x0a5cd4…0a5e68 ]
0x0a5cd4…0a5e68 }
0x0a5e68…0a5ffc Dummy {f00=0x0034, f01=0x0190, f02=» 2 P IDENT DRTP02 REL 11.0 81-08-31 870105041100 P : & P =3, CHARACTER BLOCKING CHANGED; B $ P ORDER & ECB-ADDRESS RELOADED; l $ P LF AFTER CUT & PERF. REMOVED; P REL 11.0 81-02-16 " P =2, STATUS HANDLING CHANGED P REL 11.
0x0a5ffc…0a6190 Dummy {f00=0x0034, f01=0x018e, f02=» X < P* * < P* PHILIPS TERMINAL SYSTEM PTS * H < P* * < P* DRTP02 = DRIVER TELLER TERMINAL PRINTER * < P
0x0a6190…0a6324 Dummy {f00=0x0034, f01=0x0190, f02=» P* P* < P* * < P******************************************************* X P* > P* THIS DRIVER HANDLES TELLER TERMINAL PRINTERS PTS 6221, P* 6222 OR 6223 P* P*
0x0a6324…0a64b8 Dummy {f00=0x0034, f01=0x0190, f02=»: INTERRUPT HANDLER P* $ P* R C T P : RECOVERY ROUTINE ( P* P P* Z 6 P* THE DRIVER CONTAINS THE FOLLOWING SUBROUTINES: d P* B P* P R B U F : GET CHARACTERS FROM ECB-BUFFER AND SEND THEM P* 6 P* B C D T B Y
0x0a64b8…0a664c Dummy {f00=0x0034, f01=0x0190, f02=»ER IN OUTPUT BUFFER P* . P* G R A S P : SEND GRASP TO VOUCHER & P* X 4 P* R E L E A S : SEND LIFT TO TOP AND RELEASE b P EJECT P* * P* THE FOLLOWING ORDERS ARE TREATED: P* $ P* ORDER 00 : TEST STATU
0x0a664c…0a67e0 Dummy {f00=0x0034, f01=0x0190, f02=»* ORDER 26 : PERFORATE JOURNAL . P* ORDER 37 : GRASP VOUCHER/PASSBOOK . 0 P* ORDER 38 : RELEASE VOUCHER/PASSBOOK ` P* , P* THE FOLLOWING RETURN CODES ARE USED: P* & P* BIT 0 : REQUEST ERROR 8 P* BI
0x0a67e0…0a6974 (5, 4) Dummy {f00=0x0035, f01=0x0190, f02=»HECK ERROR v $ P* BIT 15 : NOT OPERABLE P* : P* D P* N P* NORMAL REGISTER USAGE: X P* z " P* REGISTER A1: WORK REGISTER " P* A2: INPUT/OUTPUT $ P* A3: BUFFER POINTER $ P* A4:
0x0a6974…0a6b08 Dummy {f00=0x0035, f01=0x0190, f02=» A8: ECB-ADDRESS P* P EJECT & P* 4 P* SYSTEM ADAPTATION: > P* D P* BY MEANS OF CONDITIONAL ASSEMBLY THE FOLLOWING FUNCTIONS CAN f P* BE EXCLUDED: P* > P* RETURN CODE IS SET IF RECOVERY IS EXECUTED ON REQUES
0x0a6b08…0a6c9c Dummy {f00=0x0035, f01=0x0190, f02=»REQUEST AT 'VOUCHER OUT' BEFORE MESSAGE IS WRITTEN ~ P* : P* D @ P* THE CHARACTER CODES FOR ROOMLESS POINT DIGITS IS DEFINED N > P* IN A TABLE NAMED ROMTAB.STANDARD IS SHB CHARACTER SET P* P* P EJECT P* P********
0x0a6c9c…0a6e30 Dummy {f00=0x0035, f01=0x0190, f02=»************* P* EXTERNALS * P************* , P* B P* L , P EXTRN LDISP DISPATCHING FROM INTERRUPT V $ P EXTRN LENDER DISPATCH I/O ERROR & P EXTRN LENDIS END I/O AND DISPATCH P EXTRN TENDIO END I/O & P EXTRN OUTPUT OUTP
0x0a6e30…0a6fc4 Dummy {f00=0x0035, f01=0x0190, f02=» 2 IN DWT x P EXTRN DWTDEV DEVICE STATUS & P EXTRN STABLK DEF. START OF BLOCK 6 $ P EXTRN ENDBLK DEF. END OF BLOCK ` . P EXTRN NDSAV8 SAVE A3-A5, A7-A8 IN DWT =2 , P EXTRN NDREP GET REGISTERS AND RETURN =2 P EJECT P* P* ECB
0x0a6fc4…0a7158 Dummy {f00=0x0035, f01=0x0190, f02=» r P EXTRN ECBRC RETURN CODE P EXTRN ECBCW CONTROL WORD ( P EJECT J P************************ X P* CONDITIONAL ASSEMBLY * x P************************ P* P* < P* WHEN RECOVERY EXECUTED ON REQUEST RETURN CODE IS SET
0x0a7158…0a72ec Dummy {f00=0x0035, f01=0x0190, f02=»E CUT/PERFORATED FOR PTS 6223 BY z P* SETTING X:B = 1 ( P* D P* N PX:B EQU 0 X PCUTPER EQU X:B j P* P* B P* SPECIAL CHARACTER /13, /14 IS ACCEPTED BY SETTING X:C = 1 P* AND X:D = 1 RESPECTIVLY P* P
0x0a72ec…0a7480 Dummy {f00=0x0035, f01=0x018e, f02=»INTING VOUCHER/PASSBOOK, IS COMPLETED IF : P* PRINT OBJECT IS REMOVED UNDER PRINTING IF X:E = 1 0 P* n P* x PX:E EQU 0 PCOMPL EQU X:E P* P* > P* IN SITUATIONS WHERE PRINTER HARDWARE OR SELECTOR UNIT < P* IS I
0x0a7480…0a7614 (5, 5) Dummy {f00=0x0035, f01=0x0190, f02=» PX:F EQU 0 PRELEND EQU X:F P* 0 P* : P* MMU BUFFER SIZE D P* ` P* j PX:H EQU 20 t PDVBLEN EQU X:H P* P EJECT P* P* P************* P* CONSTANTS * P*************
0x0a7614…0a77a8 Dummy {f00=0x0035, f01=0x018e, f02=» /8 'VOUCHER IN' BIT IN DATA-REQUEST 2 PEOJT EQU /4 'END OF JOURNAL' BIT IN DATA-REQ. , 8 PWAICHA EQU /100 BIT #7 DWTDEV;WAIT FOR STATUS CHANGE b @ PVOCHA EQU /200 BIT #6 DWTDEV;VOUCHER STATUS CH. NOT ALLOWED 4 PMESS EQU /400 BIT #5 DWTDEV;TEST MESSA
0x0a77a8…0a793c Dummy {f00=0x0035, f01=0x0190, f02=» h PCR1 EQU /0D CR JOURNAL TAPE PLF1 EQU /18 LF JOURNAL TAPE , . PCR2 EQU /09 CR TALLY ROLL,VOUCHER/PASSBOOK P PLF2 EQU /19 LF TALLY ROLL $ PLDO EQU /0B LIFT DOWN 1 POSITION $ PLUP EQU /0A LIFT UP ONE POSITION $ PLFF EQU /0C LIFT TO
0x0a793c…0a7ad0 Dummy {f00=0x0035, f01=0x018e, f02=»TACH PRINT HEAD " PRPH EQU /1E RETURN PRINT HEAD 4 PTETX EQU /83 LAST DUMMY AFTER GRASP AND RELEASE > P* v P* P********************* P* DWT-DISPLACEMENTS * P********************* P* $ PRLN EQU /4 REQUESTED LINE
0x0a7ad0…0a7c64 Dummy {f00=0x0035, f01=0x0190, f02=» P*********** P* P* " " PBUF1 DATA /020D,/1D00 CR1,APH , P IFT CUTPER=0 R PBUF2 DATA /0209 CR2 h P XIF P IFT CUTPER=1 PBUF2 DATA /0309 P XIF P DATA /1D20 APH,SPACE " PBUF3 DATA /0209,/1D00 CR2,APH
0x0a7c64…0a7df8 Dummy {f00=0x0035, f01=0x0190, f02=» MMU BUFFER SIZE P DATA 2 DEVICE INDEX PTPAD EQU * ADDRESS BLOCK 4 P DATA ACTP ACTIVATIONDRIVER T " P DATA 1 ABORT ROUTINE ADDRESS x P DATA IHTP INTERRUPTHANDLER P DATA RCTP RECOVERY ROUTINE P* $ P* TABLE TO GET ROOMLE
0x0a7df8…0a7f8c Dummy {f00=0x0035, f01=0x0190, f02=» l P* P* PLFTAB EQU * , P DATA /1819 LINE FEED JOURNAL/TALLY ROLL 0 P IFT CUTPER=1 ` : PCPTAB DATA /1F0F CODES FOR PERFORATE/CUT JOURNAL TAPE v P XIF PTPTAB EQU * ORDER TABLE P DATA /0002,/0607,/080D P IFT CUT
0x0a7f8c…0a8120 Dummy {f00=0x0035, f01=0x0190, f02=»P P* 2 P* THIS IS THE ACTIVATION PART OF THE DRIVER > P* CHECKS VALIDITY OF ORDERS AND JUMPS TO ORDER PROCESSOR J P* P* P* PACTP EQU * ACTIVATION ENTRY P* P* < P* GET DWT INDEX: 0=JOURNAL,1=TALLY,2
0x0a8120…0a82b4 (5, 6) Dummy {f00=0x0035, f01=0x0190, f02=»WTOR+1,A6 SAVE NEW ORDER IN DWT P LDK A4,0 ACTIVATION ( PACT005 LDK A3,TPLEN-1 D 2 PACT010 CC A7,TPTAB,A3 FIND OUT IF LEGAL ORDER b P RF(E) ACT020 VALID ORDER P SUK A3,1 P RB(NN) ACT010 TRY NEXT P* P ABL LENDER ILLEGA
0x0a82b4…0a8448 Dummy {f00=0x0035, f01=0x0190, f02=» ABI TPFUC,A3 EXECUTE ORDER 8 PTPFUC DATA TPTEST,TPTEST,TP200,TP405,ACT055,ACT050 $ P IFT CUTPER=1 ` P DATA TP700,TP750 v P XIF P DATA TP800,TP900 P EJECT P* P* P* ORDER 00: TEST H P*
0x0a8448…0a85dc Dummy {f00=0x0035, f01=0x0190, f02=» * P LDK A2,/5 BLOCK LENGTH P CF A5,STABLK START OF BLOCK * P RF(NZ) ERTP1 JMP IF ERROR N P LDK A2,/02 SEND CHAR /02 p P CF A5,OUTPUT P RF(NZ) ERTP1 JMP IF ERROR ( P LDK A2,0 SEND CHAR /00=END OF TEST P CF A5,OUTPUT
0x0a85dc…0a8770 Dummy {f00=0x0035, f01=0x018e, f02=» h > P* GET REQUESTED LINE NUMBER AND SAVE IN DWT P* J P* T P* ^ B PACT050 LD A1,ECBCW,A8 GET LINE NUMBER FROM CONTROL WORD IN ECB h P RF ACT085 P* , PACT055 LD A3,ECBBA,A8 GET BUFFER ADDRESS & P LC A3,1,A3 GE
0x0a8770…0a8904 Dummy {f00=0x0035, f01=0x0190, f02=» P RF(NE) ACT060 P LDK A3,2 /30 = TWO LF P RF ACT080 < ( PACT060 RF(G) ACT080 /31-/39 = 1-9 LF N P ADK A3,/5 z P ABL(Z) TP605 /2B = NO LF PACT070 LDK A3,1 ONE LF 8 PACT080 LC A1,DWTDEV+RLN,A6 GET LINE NUMBER FROM DWT * P
0x0a8904…0a8a98 Dummy {f00=0x0035, f01=0x018e, f02=»O l P* PACT090 LDR A4,A4 RECOVERY ? P RF(NZ) TP605 YES 8 4 P SC A1,DWTDEV+RLN,A6 SAVE REQUESTED LINE NUMBER R P RF TP605 P EJECT P* P* P* P* ORDER 06 : PRINT JOURNAL P* P* P* *
0x0a8a98…0a8c2c Dummy {f00=0x0035, f01=0x0190, f02=» P CF A5,STABLK START OF BLOCK $ PERTP1 RF(NZ) ERTP2 JMP IF ERROR ( 2 P LC A1,DWTDEV,A6 GET LEFT BYTE IN STATUS WORD P $ P ANK A1,4 TEXT MESSAGE WRITTEN ? ( P RF(NE) TP220 YES; COMPLETE REQUEST ( P LD A1,ECBRL,A8 GET REQUESTED LENGTH $ P S
0x0a8c2c…0a8dc0 Dummy {f00=0x0035, f01=0x018e, f02=»C A2,2,A1 THIRD CHARACTER $ P CCK A2,/2020 CONTROL CHARACTER " P RF(NL) TP215 J P RF TP220 ` PTP215 EQU * r P CF A5,BUFCHR SEND BUFFER " P CF A5,PRBUF PRINT ECB-BUFFER PTP220 EQU * P LDK A1,0 6 PTP230 LDKL A2,/FDFF
0x0a8dc0…0a8f54 (5, 7) Dummy {f00=0x0035, f01=0x0190, f02=» * P* SEND LINE FEED IF JOURNAL OR TALLY P* 6 P* @ PTPLF EQU * J P LDR A1,A1 P RF(NE) TPLF10 n " P LDK A2,RPH DETACH PRINT HEAD P CF A5,OUTPUT SEND P RF(NZ) ERTP2 JMP IF ERROR . P LDKL A1,MESS INDICATE MESSAGE PRI
0x0a8f54…0a90e8 Dummy {f00=0x0035, f01=0x018e, f02=»2 GET INDEX TABLE $ P LC A2,LFTAB,A7 GET LF CHARACTER P CF A5,OUTPUT SEND LF CHAR. B P RF(NZ) ERTP2 JMP IF ERROR f . PTPL010 LD A1,ECBRL,A8 GET REQUESTED LENGTH * P ST A1,ECBEL,A8 STORE EFFECTIVE LENGTH P EJECT P* P*
0x0a90e8…0a927c Dummy {f00=0x0035, f01=0x0190, f02=» P CF A5,OUTPUT P RF(NZ) ERTP2 JMP IF ERROR " P CF A5,ENDBLK END OF BLOCK =3 @ & PERTP2 RF(NZ) ERTP3 JMP IF ERROR =3 f P EJECT P* P* 0 P* CHECK STATUS AFTER LAST DUMMY CHARACTER P* PTPTST EQU * P LD
0x0a927c…0a9410 Dummy {f00=0x0035, f01=0x0190, f02=»TST005 LC A2,DWTDEV+1,A6 GET STATUS =2 P ANK A2,VOIN VOUCHER OUT ? ! . P RF(NZ) ENDIO NO ! P P RF TST015 YES ! h P* ! ~ PTST010 SUK A7,4 ! P IFT CUTPER=0 ! * P RF(G) ENDIO NOT TEST STATUS, JOURNAL ! P XIF ! P IFT CUTPER=1 ! * P R
0x0a9410…0a95a4 Dummy {f00=0x0035, f01=0x0190, f02=»JOURNAL TAPE? ! | $ P RF(NZ) ENDIO NO: PERFORM ENDIO " * PTST015 ORKL A1,PROUT SET RETURN CODE: " > P " l ( P END OF JOURNAL TAPE, VOUCHER OUT " t P* " , P* PERFORM END I/O AND GO TO DISPATCHER " P* " PENDIO EQU * " P =3 " 0 P L
0x0a95a4…0a9738 Dummy {f00=0x0035, f01=0x0190, f02=» TO DISPATCHER " n P* # P IFT CUTPER=1 # PTST020 SUK A7,16 # 6 " P RB(L) ENDIO VOUCHER/PASSBOOK # N P SUK A7,4 # t P RB(G) ENDIO GRASP,RELEASE # P RB TST012 CUT,PERFORATE # P XIF # P EJECT # P* # P* # P* # $ P* ORDE
0x0a9738…0a98cc Dummy {f00=0x0035, f01=0x0190, f02=»407 LDKL A3,BUF3 SEND CR2 AND ATTACH # PTP410 EQU * $ , P LDKL A1,VOCHA $ @ @ P ORS A1,DWTDEV,A6 INDICATE VOUCHER STATUS CHANGE NOT ALLOWED $ V P RB TP210 $ P EJECT $ P* $ P* $ P* $ * P* ORDER 06 : WRITE VOUCHER/PASSBOOK $ * P*
0x0a98cc…0a9a60 Dummy {f00=0x0035, f01=0x018e, f02=»ART OF BLOCK =2 $ " P RF(NZ) ERTP3 JMP IF ERROR =2 % " P CF A5,GRASP GRASP VOUCHER =2 % > 2 P LC A2,DWTDEV+RLN,A6 GET REQUESTED LINE NO. =2 % d P ANK A2,/FF CLEAN =2 % ( P SUR A2,A3 GET /REQ.-ACT./ LINE NO. % P RF(NN) TP608 % P =2 % P N
0x0a9a60…0a9bf4 (5, 8) Dummy {f00=0x0036, f01=0x0190, f02=» % P* & P* & * P* SEND ELEVATOR UP/DOWN UNTIL ACTUAL & & P* LINE NUMBER IS EQUAL REQUESTED & J P* & t P* & ~ 2 PTP610 CC A3,DWTDEV+RLN,A6 COMPARE LINE NUMBER & P RF(E) TP650 EQUAL & " P RF(G) TP630 SEND ELEVATOR UP & " P LDK A2,LD
0x0a9bf4…0a9d88 Dummy {f00=0x0036, f01=0x018e, f02=»UK A3,1 DECREMENT ACTUAL LINE NUMBER & P* ' , & PTP640 CF A5,OUTPUT SEND LIFT CHAR ' 6 P RF(NZ) ERTP3 JMP IF ERROR ' ` P* ' 0 P SC A3,DWTDEV+ALN,A6 SAVE ACTUAL LINE NUMBER ' $ P LC A2,DWTDEV+1,A6 GET STATUS =2 ' P ANK A2,VOIN VOUCHER IN ? '
0x0a9d88…0a9f1c Dummy {f00=0x0036, f01=0x018e, f02=» ' 2 P RB(NZ) TP610 YES: CHECK IF LIFT IS POSITIONED ( & PTP645 LDKL A1,PROUT 'VOUCHER OUT' ( > , P ORS A1,ECBRC,A8 INDICATE IN RETURN CODE ( h P LDK A2,RPH RETURN PRINTHEAD ( P CF A5,OUTPUT ( P RF(NZ) ERTP3 JMP IF ERROR ( P RB TPDUMY ( P X
0x0a9f1c…0aa0b0 Dummy {f00=0x0036, f01=0x0190, f02=» P* ) P* ) PTP650 EQU * ) P CF A5,ENDBLK END OF BLOCK ) , $ PERTP3 RF(NZ) ERTP4 JMP IF ERROR ) N & P LDKL A3,BUF2 SEND CR2 AND ATTACH ) v P RB TP410 PRINT ECB-BUFFER ) P EJECT ) P IFT CUTPER=1 ) P* ) 4 P* ORDER 22 AND 26 CU
0x0aa0b0…0aa244 Dummy {f00=0x0036, f01=0x0190, f02=»0 SET INDEX ) PTP760 LDK A2,/4 BLOCK LENGTH * P CF A5,STABLK START OF BLOCK * 8 P RF(NZ) ERTP4 JMP IF ERROR * P LC A2,CPTAB,A3 GET CHAR * ~ P CF A5,OUTPUT SEND * P RF(NZ) ERTP4 JMP IF ERROR * P =3 * P RB TPDUMY * P XIF * P*
0x0aa244…0aa3d8 Dummy {f00=0x0036, f01=0x0190, f02=»F A5,STABLK START OF BLOCK * P RF(NZ) ERTP4 JMP IF ERROR + " P CF A5,GRASPA + D " PTP850 LDK A2,1 BLOCK LENGTH =2 + Z $ P CF A5,STABLK START OF BLOCK =2 + " P RF(NZ) ERTP4 JMP IF ERROR =2 + P RB TPDUMY + PTP900 EQU * + P CF A5,RELEAS +
0x0aa3d8…0aa56c Dummy {f00=0x0036, f01=0x0190, f02=»R UNTIL REQUESTED + ` P* LENGTH IS REACHED , P* , 8 . PPRBUF LD A4,ECBRL,A8 GET REQUESTED LENGTH , B & P SUK A4,2 ADJUST REQUESTED LENGTH , t " P LD A3,ECBBA,A8 BUFFER ADDRESS , ( P* SKIP PRECEDING SPACES IN BUFFER , P ADK A3,2 , " PPRB010
0x0aa56c…0aa700 Dummy {f00=0x0036, f01=0x018e, f02=»10 GET NEXT CHARACTER , > P* LOOK IF CARRIAGE RETURN CHAR (/09,/0D) LAST IN BUFFER - $ PPRB050 LDR A1,A3 GET ADDRESS TO - ` ( P ADR A1,A4 LAST CHARACTER IN BUFFER - P LC A1,-1,A1 GET CHAR - * P CCK A1,/0909 CARRIAGE RETURN - CR2 ? - P RF(E) P
0x0aa700…0aa894 (5, 9) Dummy {f00=0x0036, f01=0x0190, f02=» - . PPRB060 SUK A4,1 DECREMENT REQUESTED LENGTH . , PPRB070 ST A1,ECBEL,A8 SAVE CHAR. IN ECB . : P* . j P* . t . PPRB100 SUK A4,1 DECREMENT REQUESTED LENGTH . ~ P RF(NN) PRB105 PRINT BUFFER . 6 P LD A2,ECBEL,A8 GET CARRIAGE RETURN CHAR (/09,/0D) .
0x0aa894…0aaa28 Dummy {f00=0x0036, f01=0x0190, f02=»LOCK . z P =3 / $ PERTP4 RF(NZ) ERTP5 JMP IF ERROR / P =3 / B P LDK A2,2 BLOCK LENGTH =3 / P P CF A5,STABLK START OF BLOCK / r P RF(NZ) ERTP5 JMP IF ERROR / P =3 / PPRB102 RTN A5 / P EJECT / P* / P* / P* / P
0x0aaa28…0aabbc Dummy {f00=0x0036, f01=0x018e, f02=»DER =3 / ~ P RF(L) PRB200 PRINT JOURNAL 0 P RF(G) PRB110 PRINT VOUCHER 0 2 P EJECT 0 V P* 0 d P* 0 n P* 0 x P* PRINT TALLY ROLL 0 P* 0 P* 0 P* 0 $ P LC A2,DWTDEV+1,A6 GET STATUS =2 0 P ANK A2,VOIN VOUCHER IN ? 0 " P R
0x0aabbc…0aad50 Dummy {f00=0x0036, f01=0x0190, f02=» 0 t * P ABL TP405 SEND LIFT TO TOP AND RELEAS 1 P* 1 6 P* 1 @ P* 1 J P* PRINT VOUCHER/PASSBOOK 1 T P* 1 v P* 1 * PPRB110 LC A2,DWTDEV+1,A6 GET STATUS =2 1 P ANK A2,VOIN VOUCHER IN ? 1 P IFT COMPL=0 1 & P RF(Z) RCTP ERROR .VOUCHER
0x0aad50…0aaee4 Dummy {f00=0x0036, f01=0x0190, f02=» 3? 1 $ P RF(N) PRB200 YES: NO TABULATION 2 P LDK A1,TAB 2 4 P CC A1,-2,A3 TABULATION? 2 H P RF(NE) PRB200 NO 2 h P EJECT 2 P* 2 P* 2 4 P* IF TABULATION CHARACTER: DETACH PRINT HEAD, 2 < P* SEND CHARACTERS UNTIL TABULATION POSITIO
0x0aaee4…0ab078 Dummy {f00=0x0036, f01=0x0190, f02=» DETACH 2 ~ P RF(NZ) ERTP5 JMP IF ERROR 3 , PPRB117 LC A2,-1,A3 GET 1ST TAB POS CHAR 3 2 $ P LCR A1,A3 GET 2ND TAB POS CHAR 3 b P ANK A1,/F LINE UNIT 3 P SLL A2,4 3 P ANK A2,/F0 LINE DECADE 3 " P ORR A1,A2 DECIMAL LINE NUMBER 3 $ P CF A5,BCD
0x0ab078…0ab20c Dummy {f00=0x0036, f01=0x018e, f02=»* 3 P* 4 0 P IM DWTDEV+PCO,A6 INCREMENT POSITION COUNTER 4 P LDK A2,/20 LOAD BLANK 4 H ( P CF A5,OUTPUT SEND BLANKS OR DETACH 4 f $ PERTP5 RF(NZ) ERTP6 JMP IF ERROR 4 P RB PRB117 4 P* 4 P* 4 P* 4 . PPRB125 SUK A4,2 DECREMENT REQU
0x0ab20c…0ab3a0 Dummy {f00=0x0036, f01=0x0190, f02=» 4 P* 5 P* 5 2 P* GET OUTPUT CHARACTER FROM BUFFER. CHECK IF 5 P* - ROOMLESS POINT 5 R P* - ILLEGAL CHARACTER 5 n & P* - SPECIAL CHARACTER (/13,/14) 5 P* 5 PPRB200 EQU * 5 * PPRB205 LCR A7,A3 LOAD OUTPUT CHARACTER 5 " P CCK
0x0ab3a0…0ab534 (5, 10) Dummy {f00=0x0036, f01=0x0190, f02=»UTPUT CHARACTER 5 P ANK A7,/F MASK 6 & P LC A7,ROMTAB,A7 GET CODE IN TABLE 6 0 P* 6 Z P* 6 d P* 6 n , PPRB210 CCK A7,/2020 ILLEGAL CHARACTER ? 6 x P RF(L) PRB225 YES 6 , PPRB215 CCK A7,/5F5F ILLEGAL CHARACTER ? 6 P RF(NG) PRB230 NO 6
0x0ab534…0ab6c8 Dummy {f00=0x0036, f01=0x0190, f02=» 6 P IFT CHR14=1 7 & P CCK A7,/1414 SPECIAL CHARACTER ? 7 P RF(E) PRB230 YES 7 F P XIF 7 ` P* 7 l " P LDK A1,CCERR CODE CHECK ERROR 7 v * P ORS A1,ECBRC,A8 STORE IN RETURN CODE 7 P RF PRB245 7 P* 7 P* 7 P* 7 2 PPRB230 IM DWTD
0x0ab6c8…0ab85c Dummy {f00=0x0036, f01=0x0190, f02=»JMP IF ERROR 7 , PPRB245 SUR A3,A4 START OF BUFFER ADDRESS 8 P LD A7,DWTOR,A6 GET ORDER 8 D P ANK A7,/FF 8 f P RB PRB100 8 z P* 8 P* 8 P* 8 P EJECT 8 P* 8 P* I H T P 8 P* 8 0 P* INTERRUPT HANDLER: PROCESS OF INTERR
0x0ab85c…0ab9f0 Dummy {f00=0x0036, f01=0x0190, f02=»AVE OLD STATUS =2 8 2 P SC A2,DWTDEV+1,A6 STORE NEW STATUS IN DWT =2 9 . P ANKL A4,VOCHA STATUS CHANGE ALLOWED ? =2 9 P P RF(Z) IHTP10 YES =2 9 " P XRS A4,DWTDEV,A6 RESET BIT =2 9 , P XRR A3,A2 COMPARE OLD AND NEW STATUS =2 9 , P ANK A3,VOIN VOUCHER
0x0ab9f0…0abb84 Dummy {f00=0x0036, f01=0x0190, f02=»TE STATUS CHANGE =2 9 ~ $ P RF RCTP FOR RECOVERY ROUTINE =2 : " PIHTP10 LDR A4,A3 OLD STATUS =2 : D 2 P ANKL A4,WAICHA WAITING FOR STATUS CHANGE ? =2 : j * P RF(Z) RCTP10 NO, GO TO DISPATCHER =2 : , P XRR A3,A2 COMPARE OLD AND NEW STATUS =2 : , P ANK A3,VO
0x0abb84…0abd18 Dummy {f00=0x0036, f01=0x0190, f02=» 0 P ABL NDREP GET A3-A5,A7-A8 AND RET VIA A5 =2 ; P* ; 8 P* ; B P* ; L P EJECT ; V P* ; d P* R C T P ; n P* ; > P* RECOVERY ROUTINE: REPRINTS RUNNING REQUEST AT POWER ON ; P* ; PRCTP EQU * ; P* ; P LDKL A2,/FFFF-WAICH
0x0abd18…0abeac Dummy {f00=0x0036, f01=0x0190, f02=» LDKL A5,DWTSB2 STACK BASE ; P ADR A5,A6 < " P LDK A2,/3 BLOCK LENGTH < 4 P CF A5,STABLK START OF BLOCK < T " PERTP6 RF(NZ) ERTP JMP IF ERROR < x P LD A2,DWTECB,A6 < & P RF(Z) RCTP05 REQUEST NOT RUNNING < P* < < P LDK A2,REMOT RESET PRINT BU
0x0abeac…0ac040 Dummy {f00=0x0036, f01=0x0190, f02=»ATUS CHANGE ? < P RF(Z) RCTP05 NO = P ABL TP645 COMPLETE REQUEST = . P XIF = R PRCTP05 EQU * = ^ P LDK A2,0 = r 6 P SC A2,DWTDEV+ALN,A6 STORE 0 AS ACTUAL LINE NUMBER = P LDK A2,LFF LIFT TO TOP = P CF A5,OUTPUT = P RF(NZ) ERTP JMP IF
0x0ac040…0ac1d4 (5, 11) Dummy {f00=0x0036, f01=0x0190, f02=»LENDIS REQUEST NOT RUNNING =3 = PRCTP07 EQU * > & P IFT RECOV=1 > < $ P LDKL A2,/100 INDICATE POWER OFF > P P ORS A2,8,A8 SET RETURN CODE > x P XIF > P LDK A4,1 IND RECOVERY > P =3 > $ P LD A7,DWTOR,A6 SET ORDER IN A7 > P ANK A7,/FF
0x0ac1d4…0ac368 Dummy {f00=0x0036, f01=0x0190, f02=» > P* ? 4 P* SUBROUTINE TO CONVERT TO BINARY FROM DECIMAL ? P* ? J P* ? T P* ? ^ . PBCDTBY LDR A2,A1 PUT DECIMAL NUMBER IN A2 ? h PBCDTB1 SUK A2,/10 ? P RF(N) BCDTB2 END ? P SUK A1,6 DECREMENT BY 6 ? P RB BCDTB1 ? " PBCDTB2
0x0ac368…0ac4fc Dummy {f00=0x0036, f01=0x0190, f02=» GRASP TO VOUCHER/PASSBOOK ? z P* @ " P* @ , PGRASPA EQU * @ 6 P LDK A2,LFF LIFT TO TOP @ J P CF A5,OUTPUT @ j P RF(NZ) ERTP JMP IF ERROR @ PGRASP EQU * @ P LDK A3,0 @ P LDK A2,GRA GRASP @ P CF A5,OUTPUT @ P RF(NZ) ERTP JMP
0x0ac4fc…0ac690 Dummy {f00=0x0036, f01=0x0190, f02=» LC A3,DWTDEV+ALN,A6 GET ACTUAL LINE NO. =2 @ ( PGRAS10 CF A5,ENDBLK END OF BLOCK =2 A 4 P RF(NZ) ERTP JMP IF ERROR =2 A ` P RTN A5 RETURN =2 A P* A P* A P* A P* A 0 P* ERROR ROUTINE FOR STABLK,OUTPUT AND ENDBLK A P* A P* IN
0x0ac690…0ac824 Dummy {f00=0x0036, f01=0x018e, f02=» RF(NZ) ERTP20 ORDER /00 ? A ( PERTP15 LDK A1,1 YES,SET RETURN CODE B " * P ABL LENDIS NOT OPER. & END OF REQUEST B N 8 PERTP20 ANK A1,/1A SOFTW. TIME OUT,LRC OR LINK ERROR B | P RB(NZ) RCTP YES RECOVERY B P IFT RELEND=0 B P ABL LDISP DISPATCH B
0x0ac824…0ac9b8 Dummy {f00=0x0036, f01=0x0190, f02=» P* C 2 P* SUBROUTINE TO SEND LIFT TO TOP AND RELEASE C P* C D P* C N P* C X PRELEAS EQU * C b P LDK A2,/4 BLOCK LENGTH C v P CF A5,STABLK START OF BLOCK C P RB(NZ) ERTP JMP IF ERROR C P LDK A1,0 C 4 P SC A1,DWTDEV+ALN,A6 SET A
0x0ac9b8…0acb4c Dummy {f00=0x0036, f01=0x0190, f02=» GET STATUS =2 C ~ P ANK A4,VOIN VOUCHER IN ? =2 D P RB(Z) GRAS10 NO, RETURN =2 D : P LDK A2,REL RELEASE =2 D ^ P CF A5,OUTPUT =2 D | P RB(NZ) ERTP JMP IF ERROR =2 D P* D 4 P* COMMON END FOR GRASP AND RELEASE SUBROUTINES D 2 P* WHEN A C
0x0acb4c…0acce0 Dummy {f00=0x0036, f01=0x0190, f02=» P CF A5,OUTPUT =2 E P RB(NZ) ERTP JMP IF ERROR =2 E " P CF A5,ENDBLK END OF BLOCK =2 E B P RB(NZ) ERTP JMP IF ERROR =2 E h $ P LC A2,DWTDEV+1,A6 GET STATUS =2 E 2 P XRR A4,A2 VOUCHER ST. CHANGED SINCE LAST? =2 E & P RF(NZ) COM020 YES, DON'T WAIT
0x0acce0…0ace74 (5, 12) Dummy {f00=0x0037, f01=0x0190, f02=»C H R E P* F < P* SUBROUTINE TO OUTPUT A NUMBER OF CHARACTERS GIVEN IN F ( P* FIRST CHARACTER IN OUTPUT BUFFER F X P* F P* F 4 PBUFCHR LCR A4,A3 GET NUMBER OF OUTPUT CHARACTERS F P ANK A4,/FF MASK F , PBUFC10 ADK A3,1 INCREMENT BUFFER
0x0ace74…0ad008 Dummy {f00=0x0037, f01=0x0190, f02=»DECREMENT COUNTER F & P RB(NZ) BUFC10 NOT LAST CHARACTER G PBUFRTN EQU * G D P RTN A5 RETURN TO CALLER G X P* G x P* G P* W A I T G P* G 4 P* SUBROUTINE USED TO INITIATE WAIT FOR CHANGE G P* IN VOUCHER STATUS. G 0 P* RETU
0x0ad008…0ad19c Dummy {f00=0x0037, f01=0x40e8, f02=» =2 G . P CF A15,NDSAV8 SAVE A3-A5,A7-A8 IN DWT =2 H P LDKL A3,WAICHA =2 H > 4 P ORS A3,DWTDEV,A6 INDICATE 'WAIT FOR STATUS' =2 H Z P ABL LDISP DISPATCH =2 H P* H P* H P* H P* H P END H @ H VOUCHER STATUS. G 0 P* RETU
0x0ad19c…0ad330 Dummy {f00=0x0037, f01=0x2008, f02=» I * 8 P* 8 P* 8 P* 8 & P* 8 0 P END 8 :@ 8 F 7 H 4 PBUFCHR LCR A4,A3 GET NUMBER OF OUTPUT CHARACTERS 7 R P ANK A4,/FF MASK 7 , PBUFC10 ADK A3,1 INCREMENT BUFFER POINTER 7 $ P LCR A2,A3 GET OUTPUT CHARACTER 7 P CF A5,OUTPUT
0x0ad330…0ad4c4 Dummy {f00=0x0037, f01=0x0190, f02=» UP TO FOUR REMOTE CHANNEL CARDS. P* * PX:D EQU 0 4 PRECHAN EQU X:D F P* P* f P EJECT p P* ~ , P* REMFC IS " REMOTE TEST FILE CODE " P* STANDARD IS /15 P* PX:E EQU /15 PREMFC EQU X:E P
0x0ad4c4…0ad658 Dummy {f00=0x0037, f01=0x0190, f02=»LUDED. Z @ P* THE EXCLUSION IS ONLY POSSIBLE IF THE DRIVER IS ADAPTED , P* FOR ONLY LOCAL TERMINALS (RECHAN=0). R P* PX:F EQU 1 U =4 PSOFTIM EQU X:F U =4 P* P* B P* IF X:G = 1 THE DRIVER CAN HANDLE OUTPUT TO KEYBOAR
0x0ad658…0ad7ec Dummy {f00=0x0037, f01=0x0190, f02=» P* 8 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION 0 P* SET IS OBTAINED BY SETTING CPU852 EQU 0. J P* ~ PCPU852 EQU 1 P* P* < P* THIS DRIVER CAN BE ADAPTED TO MEMORY MANAGEMENT UNIT P* BY SETTING MMUPAG TO
0x0ad7ec…0ad980 Dummy {f00=0x0037, f01=0x0190, f02=»ENTS * ~ P*************************** P* 6 " P* LOCAL AND REMOTE TERMINALS @ P* f P* p PCWTLDW EQU 0 LAST OUTPUT DWT z " PCWTLOW EQU 2 LAST OUTPUT WORD , PCWTITA EQU 4 ADDRESS TO INTERRUPT TABLE PCWTINR EQU 6 INR
0x0ad980…0adb14 (5, 13) Opaque[0x194]
0x0adb14…0adca8 # DirEnt {nam=»DRSU01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x06e8, f03=0x0000}
0x0adb14…0adca8 IdxSect {
0x0adb14…0adca8 f00 = 0x0037 // 0xadb14 @0x0
0x0adb14…0adca8 f01 = 0x002c // 0xadb16 @0x2
0x0adb14…0adca8 gno = [ // 0xadb18 @0x4
0x0adb14…0adca8 [0x00]: C0x0037.0x1.0
0x0adb14…0adca8 [0x01]: C0x0037.0x2.0
0x0adb14…0adca8 [0x02]: C0x0037.0x3.0
0x0adb14…0adca8 [0x03]: C0x0038.0x0.0
0x0adb14…0adca8 [0x04]: C0x0038.0x1.0
0x0adb14…0adca8 [0x05]: C0x0038.0x2.0
0x0adb14…0adca8 [0x06]: C0x0038.0x3.0
0x0adb14…0adca8 [0x07]: C0x0039.0x0.0
0x0adb14…0adca8 [0x08]: C0x0039.0x1.0
0x0adb14…0adca8 [0x09]: C0x0039.0x2.0
0x0adb14…0adca8 [0x0a]: C0x0039.0x3.0
0x0adb14…0adca8 [0x0b]: C0x003a.0x0.0
0x0adb14…0adca8 [0x0c]: C0x003a.0x1.0
0x0adb14…0adca8 [0x0d]: C0x003a.0x2.0
0x0adb14…0adca8 [0x0e]: C0x003a.0x3.0
0x0adb14…0adca8 [0x0f]: C0x003b.0x0.0
0x0adb14…0adca8 [0x10]: C0x003b.0x1.0
0x0adb14…0adca8 [0x11]: C0x003b.0x2.0
0x0adb14…0adca8 [0x12]: C0x003b.0x3.0
0x0adb14…0adca8 [0x13]: C0x003c.0x0.0
0x0adb14…0adca8 [0x14]: C0x003c.0x1.0
0x0adb14…0adca8 [0x15]: C0x003c.0x2.0
0x0adb14…0adca8 ]
0x0adb14…0adca8 }
0x0adca8…0ade3c Dummy {f00=0x0037, f01=0x0190, f02=» 2 P IDENT DRSU01 REL 11.0 81-08-31 870105041100 P : 0 P =5, SEND ETX AFTER ETB TO REM. DR-DEVICE B P REL 11.0 81-05-25 v , P =4, LOOPT & POW-ON CORR;NEW COND ASS P REL 11.0 81-02-17 & P =3, HANG UP ON REMOTE RECOVERY P
0x0ade3c…0adfd0 Dummy {f00=0x0037, f01=0x0190, f02=» P PRR 11.0 80-12-02 P* 4 P************************************************ * P* b $ P* PHILIPS TERMINAL SYSTEM PTS l P* . P* DRSU01 = DRIVER CHANNEL UNIT FOR LOCAL & P* AND REMOTE TERMINALS " P* C
0x0adfd0…0ae164 Dummy {f00=0x0037, f01=0x018e, f02=»IS IS THE DRIVER TO CHANNEL UNITS FOR LOCAL AND REMOTE TERMINALS * P* CONNECTED TO SELECTOR UNIT (SUM). H P* v : P* THE DRIVER IS CALLED FROM TERMINAL DEVICE DRIVERS. P* : P* THE DRIVER HAS SEPARATED ENTRIES FOR LOCAL AND FOR P*
0x0ae164…0ae2f8 Dummy {f00=0x0037, f01=0x0190, f02=» P* : P* AT INTERRUPT AN INPUT WORD IS READ TO REGISTER A2. B P* THE WORD IS EXAMINED AND SUITABLE ACTIONS ARE CARRIED OUT. L P* 0 P* CONTROL WORK TABLES FOR THE CHANNELS ARE P* INCLUDED IN THE DRIVER. P EJECT P*
0x0ae2f8…0ae48c Dummy {f00=0x0037, f01=0x018e, f02=» P* A3 = LINE NUMBER * 2 P* A4 = DEVICE NUMBER * 2 $ P* A5 = CWT-ADDRESS F P* A6 = DWT-ADDRESS b & P* A7 = LOCAL/REMOTE INDICATION: ~ & P* 0 IF LOCAL CONNECTION : P* ADJUSTED CWT-ADDRESS IF REMOTE CONNECTION
0x0ae48c…0ae620 Dummy {f00=0x0037, f01=0x018e, f02=» P*************** P* P* & 8 P ENTRY CHLT1 INTERRUPT FROM FIRST CHANNEL UNIT LOCAL 0 : P ENTRY CHLT2 INTERRUPT FROM SECOND CHANNEL UNIT LOCAL l 4 P ENTRY CHLT3 INTERRUPT FROM THIRD CHANNEL LOCAL 4 P ENTRY CHLT4 INTERRUPT FROM FOURTH CHA
0x0ae620…0ae7b4 (5, 14) Dummy {f00=0x0037, f01=0x0190, f02=» X 4 P ENTRY CHRT3 INTERRUPT FROM THIRD CHANNEL REMOTE 6 P ENTRY CHRT4 INTERRUPT FROM FOURTH CHANNEL REMOTE @ ( P ENTRY CHLTON START OF CHLT AND CHRT z P ENTRY CHTAB CHANNEL TABLE @ P ENTRY DWREMU DWT-DUMMY FOR LOOP-TESTING OF REMOTE CHANNELS
0x0ae7b4…0ae948 Dummy {f00=0x0037, f01=0x0190, f02=»E CODE t 6 P ENTRY SUMLOG LOGG AREA FOR LOCAL AND REMOTE TERM. P* H * P ENTRY LTCHRI CHARACTER INPUT (LOCAL) R 0 P ENTRY LTSTBL START OF OUTPUT BLOCK (LOCAL) * P ENTRY LTCHRO CHARACTER OUTPUT (LOCAL) . P ENTRY LTENBL END OF OUTPUT BLOCK (LOC
0x0ae948…0aeadc Dummy {f00=0x0037, f01=0x0190, f02=» OUTPUT BLOCK (REM0TE) z , P ENTRY RTCHRO CHARACTER OUTPUT (REMOTE) . P ENTRY RTENBL END OF OUTPUT BLOCK (REMOTE) N , P ENTRY RTDISP LOCAL DISPATCHER (REMOTE) P* P EJECT P* P* * P************************************** *
0x0aeadc…0aec70 Dummy {f00=0x0037, f01=0x0190, f02=»STERS A1-A8 z P EXTRN TDISP DISPATCHER P EXTRN SETIMP SET TIME 4 P* R 6 P EXTRN INTLT1 INTERRUPT TABLE FOR LOCAL CHANNEL 1 6 P EXTRN INTLT2 INTERRUPT TABLE FOR LOCAL CHANNEL 2 6 P EXTRN INTLT3 INTERRUPT TABLE FOR LOCAL CHANNEL 3 6
0x0aec70…0aee04 Dummy {f00=0x0037, f01=0x0190, f02=»RRUPT TABLE FOR REMOTE CHANNEL 2 ~ 6 P EXTRN INTRT3 INTERRUPT TABLE FOR REMOTE CHANNEL 3 ( 6 P EXTRN INTRT4 INTERRUPT TABLE FOR REMOTE CHANNEL 4 b P* $ P EXTRN LENDER I/O REQUEST ERROR & P EXTRN LENDIS END I/O AND DISPATCH * P EXTRN INTSAV SA
0x0aee04…0aef98 Dummy {f00=0x0037, f01=0x0190, f02=» EXTRN NDGET8 GET A3-A5, A7-A8 IN DWT * P EXTRN NDREDW CALL RECOVERY FOR DEVICE . 2 P EXTRN NDRETO SET OK & RETURN TO DEVICE DRIVER 6 P EXTRN NDREP GET REGISTERS & RETURN TO DEV. DRIVER P* P EJECT P* P* P****************
0x0aef98…0af12c Dummy {f00=0x0037, f01=0x0190, f02=»UTPUT CHARACTER | P EXTRN DWTECB ECB-ADDRESS * P EXTRN DWTADR ADDRESS TO ADDRESS-BLOCK : P EXTRN DWTST STATUS h P EXTRN DWTOTQ OUTPUT QUEUE & P EXTRN DWTSB2 STACK BASE 2 IN DWT P EXTRN DWTLD1 TIMER POINTER & P EXTRN DWTCP2 CHANNE
0x0af12c…0af2c0 Dummy {f00=0x0037, f01=0x0190, f02=»VERY ADDRESS DISPLACEMENT ~ P* " P EJECT , P* : P* D P******************** N P* CONSTANTS * j P******************** P* P* ( PNOERR EQU 1 RETURN CODE NOT OPERABLE ( PLRCERR EQU /02 RETURN CODE LRC-ERROR
0x0af2c0…0af454 (5, 15) Dummy {f00=0x0037, f01=0x0190, f02=»E r 4 PDEWDRQ EQU /80 MASK DEVICE WITHOUT DATA REQUEST $ PDEVINP EQU /40 MASK INPUT DEVICE B , PINDARQ EQU /20 MASK INPUT DATA REQUESTED j & PRECTRI EQU /10 FLAG RECOVERY TRIAL $ PLRCSEN EQU /08 FLAG LRC-SENDING ( PLMPQUE EQU /04 FLAG LAMP COD
0x0af454…0af5e8 Dummy {f00=0x0037, f01=0x018e, f02=»EXT z * PETB EQU /97 END OF TRANSMISSION BLOCK PETX EQU /03 END OF TEXT : ( PESCKB EQU /1C ESCAPE CODE DATA TO KB Z 4 PDUMMSP EQU /3 SPECIAL DUMMY TO GET DATA REQUEST ( P FIRST WHEN PRINTERBUFFER IS EMPTY 0 PDRQTIM EQU 30 TIME TO NEXT ACK
0x0af5e8…0af77c Dummy {f00=0x0037, f01=0x018e, f02=» f , P*************************************** P* 8 P* B < P* A LOGG FUNCTION OF EVERY INPUT AND OUTPUT CHARACTER L 8 P* MAY BE INCLUDED TO THE DRIVER BY SETTING X:A=1 P* PX:A EQU 1 PLOGING EQU X:A P* P*
0x0af77c…0af910 Dummy {f00=0x0037, f01=0x0190, f02=» PLOCHAN EQU X:B P* P* $ 8 P* ACKUMULATORS FOR NAK, RETRANSMISSION FAULT AND . 4 P* UNDEFINED CONTROL CHARACTERS ARE UPDATED IN j 8 P* THE DRIVER. THIS FUNCTION CAN BE EXCLUDED FROM $ P* DRIVER BY SETTING X:C = 0. P*
0x0af910…0afaa4 Dummy {f00=0x0037, f01=0x0190, f02=» UP TO FOUR REMOTE CHANNEL CARDS. P* * PX:D EQU 0 4 PRECHAN EQU X:D F P* P* f P EJECT p P* ~ , P* REMFC IS " REMOTE TEST FILE CODE " P* STANDARD IS /15 P* PX:E EQU /15 PREMFC EQU X:E P
0x0afaa4…0afc38 Dummy {f00=0x0037, f01=0x0190, f02=»LUDED. Z @ P* THE EXCLUSION IS ONLY POSSIBLE IF THE DRIVER IS ADAPTED , P* FOR ONLY LOCAL TERMINALS (RECHAN=0). R P* PX:F EQU 1 U =4 PSOFTIM EQU X:F U =4 P* P* B P* IF X:G = 1 THE DRIVER CAN HANDLE OUTPUT TO KEYBOAR
0x0afc38…0afdcc Dummy {f00=0x0037, f01=0x0190, f02=» P* 8 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION 0 P* SET IS OBTAINED BY SETTING CPU852 EQU 0. J P* ~ PCPU852 EQU 1 P* P* < P* THIS DRIVER CAN BE ADAPTED TO MEMORY MANAGEMENT UNIT P* BY SETTING MMUPAG TO
0x0afdcc…0aff60 Dummy {f00=0x0037, f01=0x0190, f02=»ENTS * ~ P*************************** P* 6 " P* LOCAL AND REMOTE TERMINALS @ P* f P* p PCWTLDW EQU 0 LAST OUTPUT DWT z " PCWTLOW EQU 2 LAST OUTPUT WORD , PCWTITA EQU 4 ADDRESS TO INTERRUPT TABLE PCWTINR EQU 6 INR
0x0aff60…0b00f4 (5, 16) Dummy {f00=0x0038, f01=0x0190, f02=»CKMUL=1 PCWTADD EQU 18 ACKUMULATORS . PACKTIM EQU 24 PRINTER TIME-OUT ACKUMULATOR 2 PCWTTP EQU 26 TIMER POINTER d P XIF P IFT ACKMUL=0 PCWTTP EQU 18 TIMER POINTER P XIF P* P* ONLY REMOTE TERMINALS P*
0x0b00f4…0b0288 Dummy {f00=0x0038, f01=0x0190, f02=»CKUMULATORS x 8 PCWTRST EQU CWTTP+12 CHANNEL STATUS WORD (LOOP-TESTS) 0 PCWTBLK EQU CWTTP+14 BLOCK SENDING INDICATOR P P* P EJECT : P***************************************************** : P* C W T L T 1
0x0b0288…0b041c Dummy {f00=0x0038, f01=0x0190, f02=» ` P* PDWA1 EQU /03 DEVICEADDRESS P* 4 PCWTLT1 EQU * TABLE ENTRY > P* ^ P IFF LOCHAN=0 h P* ~ P DATA 0 LAST OUTPUT DWT P DATA 0 LAST OUTPUT WORD , P DATA INTLT1 ADDRESS TO INTERRUPT TABLE P INR A2,0,DWA1 I
0x0b041c…0b05b0 Dummy {f00=0x0038, f01=0x0190, f02=»QUEUE 2 P* P IFT ACKMUL=1 P* 0 P DATA 0 NAK-ACKUMULATOR : $ P DATA 0 RETR. FAULT-ACKUMULATOR Z , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR P* P XIF P* P EJECT
0x0b05b0…0b0744 Dummy {f00=0x0038, f01=0x0190, f02=» * ^ : P***************************************************** P* J 4 P* CONTROL WORK TABLE FOR LOCAL CHANNEL NO. 2 T P* PCWTLT2 EQU * P* P IFF LOCHAN=0 P IFF LOCHAN=1 P* P* P* PDWA2 EQU /
0x0b0744…0b08d8 Dummy {f00=0x0038, f01=0x0190, f02=» INR A2,0,DWA2 INR P OTR A2,0,DWA2 OTR P CIO A2,1,DWA2 CIO-START 4 " P DATA 0 RETRANSMISSION COUNTER T P DATA 0 QUEUE z P DATA 0 SECOND QUEUE P* P IFT ACKMUL=1 P* P DATA 0 NAK-ACKUMULATOR $ P DATA 0 RETR. FAUL
0x0b08d8…0b0a6c Dummy {f00=0x0038, f01=0x018e, f02=»* P EJECT P* P* " : P***************************************************** , : P* C W T L T 3 * j : P***************************************************** P* 4 P* CONTROL WORK TABLE
0x0b0a6c…0b0c00 Dummy {f00=0x0038, f01=0x0190, f02=» P* P* P* PDWA3 EQU /23 DEVICE ADDRESS " P* F P DATA 0 LAST OUTPUT DWT P P DATA 0 LAST OUTPUT WORD p P DATA INTLT3 INTERRUPT TABLE P INR A2,0,DWA3 INR P OTR A2,0,DWA3 OTR P CIO A2,1,DWA3 CIO-START " P
0x0b0c00…0b0d94 (5, 17) Dummy {f00=0x0038, f01=0x0190, f02=»0 NAK-ACKUMULATOR $ P DATA 0 RETR. FAULT-ACKUMULATOR , P DATA 0 UNDEFINED- INTERRUPT-ACKUMULATOR B ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR r P* P XIF P* P EJECT P* P* : P****************************************
0x0b0d94…0b0f28 Dummy {f00=0x0038, f01=0x0190, f02=»* P* 4 P* CONTROL WORK TABLE FOR LOCAL CHANNEL NO. 4 P* L PCWTLT4 EQU * V P* j P IFT LOCHAN=4 t P* P* P* PDWA4 EQU /33 P* P DATA 0 LAST OUTPUT DWT P DATA 0 LAST OUTPUT WORD P D
0x0b0f28…0b10bc Dummy {f00=0x0038, f01=0x018e, f02=»SION COUNTER ~ P DATA 0 QUEUE P DATA 0 SECOND QUEUE * P* F P IFT ACKMUL=1 P P* f P DATA 0 NAK-ACKUMULATOR p $ P DATA 0 RETR. FAULT-ACKUMULATOR , P DATA 0 UNDEFINED- INTERRUPT-ACKUMULATOR ( P DATA 0 PRINTER TIMEOUT ACKUMULA
0x0b10bc…0b1250 Dummy {f00=0x0038, f01=0x0190, f02=» $ P******************************* ! 4 P* CONTROL WORK TABLE FOR REMOTE CHANNEL NO. 1 ! , P* CONNECTED TO FIRST CHRT ! d P* ! PCWTRT1 EQU * ! P* ! P IFF RECHAN=0 ! P* ! PDWA5 EQU /1 DEVICE ADDRESS ! P* ! P DATA 0 LAST
0x0b1250…0b13e4 Dummy {f00=0x0038, f01=0x0190, f02=» P CIO A2,1,DWA5 CIO-START " " P DATA 0 RETRANSMISSION COUNTER " $ P DATA 0 QUEUE TERMINAL 1 " J P DATA 0 QUEUE TERMINAL 2 " j P* " P IFT ACKMUL=1 " P* " P DATA 0 NAK-ACKUMULATOR " $ P DATA 0 BLOCK ERROR ACKUMULATOR " , P DATA 0 UNDE
0x0b13e4…0b1578 Dummy {f00=0x0038, f01=0x0190, f02=»ATA 0 TIMER POINTER " P DATA /7055 SYNC CHARACTER # 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 # > 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 # r & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 # & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 # , P DATA 0 CHANNE
0x0b1578…0b170c Dummy {f00=0x0038, f01=0x0190, f02=» # $ P******************************** $ $ P* C W T R T 2 * $ 0 $ P******************************** $ X : P* CHANNEL UNIT WORK TABLE FOR REMOTE CHANNEL NO. 2 $ P* CONNECTED TO FIRST CHRT $ P* $ PCWTRT2 EQU * $ P* $
0x0b170c…0b18a0 Dummy {f00=0x0038, f01=0x0190, f02=»NR A2,0,DWA5 INR $ P OTR A2,1,DWA5 OTR % P CIO A2,1,DWA5 CIO-START % 2 " P DATA 0 RETRANSMISSION COUNTER % R P DATA 0 QUEUE TERMINAL 1 % x P DATA 0 QUEUE TERMINAL 2 % P* % P IFT ACKMUL=1 % P* % P DATA 0 NAK-ACKUMULATOR % $ P DATA
0x0b18a0…0b1a34 (5, 18) Dummy {f00=0x0038, f01=0x0190, f02=» XIF % P* & P IFF RECHAN=0 & P DATA 0 TIMER POINTER & , P DATA /7255 SYNC-CHARACTER & J 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 & l 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 & & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 & & P DATA 0 LR
0x0b1a34…0b1bc8 Dummy {f00=0x0038, f01=0x0190, f02=»CT & $ P******************************** ' $ P* C W T R T 3 * ' 2 $ P******************************** ' Z P* ' : P* CHANNEL UNIT WORK TABLE FOR REMOTE CHANNEL NO. 1 ' " P* CONNECTED TO SECOND CHRT ' P* ' PCWTRT3 EQU * '
0x0b1bc8…0b1d5c Dummy {f00=0x0038, f01=0x0190, f02=»DWT ' | P DATA 0 LAST OUTPUT WORD ( P DATA INTRT2 INTERRUPT TABLE ( , P INR A2,0,DWA6 INR ( P P OTR A2,0,DWA6 OTR ( j P CIO A2,1,DWA6 CIO-START ( " P DATA 0 RETRANSMISSION COUNTER ( P DATA 0 QUEUE TERMINAL 1 ( P DATA 0 QUEUE TERMINAL 2 (
0x0b1d5c…0b1ef0 Dummy {f00=0x0038, f01=0x0190, f02=»KUMULATOR ( r ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR ) P* ) > P XIF ) H P IFF RECHAN=0 ) T P IFF RECHAN=1 ) j P DATA 0 TIMER POINTER ) P DATA /7055 SYNC-CHARACTER ) 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 ) 0 P DATA 0 DWT OF GOING
0x0b1ef0…0b2084 Dummy {f00=0x0038, f01=0x0190, f02=»US WORD (LOOP-TESTS) ) | $ P DATA 1 BLOCK SENDING INDICATOR * P XIF * D P EJECT * P $ P******************************** * ^ $ P* C W T R T 4 * * $ P******************************** * P* * : P* CHANNEL UNIT WORK TABLE FOR REMOTE
0x0b2084…0b2218 Dummy {f00=0x0038, f01=0x0190, f02=» * P DATA 0 LAST OUTPUT DWT + P DATA 0 LAST OUTPUT WORD + ( P DATA INTRT2 INTERRUPT TABLE + H P INR A2,0,DWA6 INR + l P OTR A2,1,DWA6 OTR + P CIO A2,1,DWA6 CIO-START + " P DATA 0 RETRANSMISSION COUNTER + P DATA 0 QUEUE TERMINAL 1 + P D
0x0b2218…0b23ac Dummy {f00=0x0038, f01=0x0190, f02=»ATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR + ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR , . P XIF , Z P IFF RECHAN=0 , f P IFF RECHAN=1 , | P DATA 0 TIMER POINTER , P DATA /7255 SYNC-CHARACTER , 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 , 0 P D
0x0b23ac…0b2540 Dummy {f00=0x0038, f01=0x0190, f02=»ATA 0 CHANNEL STATUS WORD (LOOP-TESTS) , $ P DATA 1 BLOCK SENDING INDICATOR - . P* - V P XIF - ` P EJECT - l $ P******************************** - z $ P* C W T R T 5 * - $ P******************************** - P* - : P* CHANNEL
0x0b2540…0b26d4 (5, 19) Dummy {f00=0x0038, f01=0x018e, f02=»FF RECHAN=0 - P IFF RECHAN=1 . P IFF RECHAN=2 . * P* . @ PDWA7 EQU /21 DEVICE ADDRESS . J P* . n P DATA 0 LAST OUTPUT DWT . x P DATA 0 LAST OUTPUT WORD . P DATA INTRT3 INTERRUPT TABLE . P INR A2,0,DWA7 INR . P OTR A2,0,DWA7 OTR
0x0b26d4…0b2868 Dummy {f00=0x0038, f01=0x0190, f02=» . v P* / P IFT ACKMUL=1 / P DATA 0 NAK-ACKUMULATOR / ( $ P DATA 0 BLOCK ERROR ACKUMULATOR / H , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR / p ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR / P* / P XIF / P IFF RECHAN=0 / P IFF RECHAN=1 /
0x0b2868…0b29fc Dummy {f00=0x0038, f01=0x0190, f02=» / d 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 0 & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 0 < & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 0 f , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) 0 $ P DATA 1 BLOCK SENDING INDICATOR 0 P XIF 0 P EJECT 0 $ P******
0x0b29fc…0b2b90 Dummy {f00=0x0038, f01=0x0190, f02=» UNIT WORK TABLE FOR REMOTE CHANNEL NO. 2 0 P* CONNECTED TO THIRD CHRT 1 2 P* 1 V PCWTRT6 EQU * 1 ` P* 1 t P IFF RECHAN=0 1 ~ P IFF RECHAN=1 1 P IFF RECHAN=2 1 P DATA 0 LAST OUTPUT DWT 1 P DATA 0 LAST OUTPUT WORD 1 P DATA IN
0x0b2b90…0b2d24 Dummy {f00=0x0038, f01=0x0190, f02=»OUNTER 1 x P DATA 0 QUEUE TERMINAL 1 2 P DATA 0 QUEUE TERMINAL 2 2 . P* 2 N P IFT ACKMUL=1 2 X P DATA 0 NAK-ACKUMULATOR 2 n $ P DATA 0 BLOCK ERROR ACKUMULATOR 2 , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR 2 ( P DATA 0 PRINTER TIMEOUT ACKUMULATO
0x0b2d24…0b2eb8 Dummy {f00=0x0038, f01=0x0190, f02=»255 SYNC-CHARACTER 2 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 3 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 3 N & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 3 & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 3 , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) 3 $ P D
0x0b2eb8…0b304c Dummy {f00=0x0038, f01=0x0190, f02=» 3 p $ P******************************** 4 : P* CHANNEL UNIT WORK TABLE FOR REMOTE CHANNEL NO. 1 4 0 " P* CONNECTED TO FOURTH CHRT 4 n P* 4 PCWTRT7 EQU * 4 P* 4 P IFT RECHAN=4 4 P* 4 PDWA8 EQU /31 DEVICE ADDRESS 4 P* 4
0x0b304c…0b31e0 Dummy {f00=0x0038, f01=0x0190, f02=»0,DWA8 OTR 4 P CIO A2,1,DWA8 CIO-START 5 " P DATA 0 RETRANSMISSION COUNTER 5 2 P DATA 0 QUEUE TERMINAL 1 5 X P DATA 0 QUEUE TERMINAL 2 5 x P* 5 P IFT ACKMUL=1 5 P DATA 0 NAK-ACKUMULATOR 5 $ P DATA 0 BLOCK ERROR ACKUMULATOR 5 , P DATA 0
0x0b31e0…0b3374 (5, 20) Dummy {f00=0x0039, f01=0x0190, f02=»TIMER POINTER 5 P DATA /7055 SYNC-CHARACTER 6 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 6 8 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 6 l & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 6 & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 6 , P DATA 0 CHANNEL STAT
0x0b3374…0b3508 Dummy {f00=0x0039, f01=0x018e, f02=» C W T R T 8 * 6 $ P******************************** 7 & P* 7 N : P* CHANNEL UNIT WORK TABLE FOR REMOTE CHANNEL NO. 2 7 X " P* CONNECTED TO FOURTH CHRT 7 P* 7 PCWTRT8 EQU * 7 P* 7 P IFT RECHAN=4 7 P DATA 0 LAST O
0x0b3508…0b369c Dummy {f00=0x0039, f01=0x0190, f02=» P CIO A2,1,DWA8 CIO-START 8 " P DATA 0 RETRANSMISSION COUNTER 8 $ P DATA 0 QUEUE TERMINAL 1 8 J P DATA 0 QUEUE TERMINAL 2 8 j P* 8 P IFT ACKMUL=1 8 P DATA 0 NAK-ACKUMULATOR 8 $ P DATA 0 BLOCK ERROR ACKUMULATOR 8 , P DATA 0 UNDEFINED-INTE
0x0b369c…0b3830 Dummy {f00=0x0039, f01=0x0190, f02=» 8 z P DATA /7255 SYNC-CHARACTER 9 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 9 * 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 9 ^ & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 9 & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 9 , P DATA 0 CHANNEL STATUS WORD (LOOP-
0x0b3830…0b39c4 Dummy {f00=0x0039, f01=0x018e, f02=»************* 9 l 6 P* C H T A B * : 6 P************************************************* : P P* : 6 P* THIS TABLE HOLDS ADDRESSES OF CONTROLLER WORK : 8 P* TABLES CWT TO CHANNEL UNITS FOR LOCAL OR REMOTE :
0x0b39c4…0b3b58 Dummy {f00=0x0039, f01=0x018e, f02=» : P DATA 0 ; P DATA 0 ; P DATA 0 ; ( P DATA 0 ; 8 P XIF ; H P* ; T P IFT LOCHAN=1 ; ^ P DATA CWTLT1 ; t P DATA 0 ; P DATA 0 ; P DATA 0 ; P XIF ; P* ; P IFT LOCHAN=2 ; P DATA CWTLT1 ; P DATA CWTLT2 ;
0x0b3b58…0b3cec Dummy {f00=0x0039, f01=0x0190, f02=» ; P DATA 0 < P XIF < P IFT LOCHAN=4 < $ P DATA CWTLT1 < : P DATA CWTLT2 < N P DATA CWTLT3 < b P DATA CWTLT4 < v P XIF < P* < P IFT RECHAN=1 < P DATA CWTRT1 < P DATA CWTRT2 < P XIF < P* < P IFT RECHAN=2 <
0x0b3cec…0b3e80 Dummy {f00=0x0039, f01=0x0190, f02=»T1 < P DATA CWTRT2 = P DATA CWTRT3 = P DATA CWTRT4 = 2 P DATA CWTRT5 = F P DATA CWTRT6 = Z P XIF = n P* = z P IFT RECHAN=4 = P DATA CWTRT1 = P DATA CWTRT2 = P DATA CWTRT3 = P DATA CWTRT4 = P DATA CWTRT5 = P DATA CWTR
0x0b3e80…0b4014 (5, 21) Dummy {f00=0x0039, f01=0x0190, f02=» ( P************************************ > ( P* D W R E M U * > 0 ( P************************************ > P* > . P* DUMMY TABLE USED WHEN LOOP-TESTING OF > $ P* REMOTE CHANNELS ARE NEEDED. > P* > PDWREMU EQU * >
0x0b4014…0b41a8 Dummy {f00=0x0039, f01=0x0190, f02=»0,0 > P IFT MMUPAG=1 U =4 ? * P DATA 0 SAVE AREA USER ECB ADDRESS =4 ? & $ P DATA DEVECB MMU ECB ADDRESS =4 ? T & PDEVECB DATA 0,0,0,0,0,0 MMU ECB =4 ? | P XIF U =4 ? P IFF RECHAN=0 U =4 ? P EJECT ? P* ? P* ? * P* L O O P - T E S
0x0b41a8…0b433c Dummy {f00=0x0039, f01=0x018e, f02=»VEN IN CONTROL WORD OF ECB. ? v 6 P* THE REQUEST IS COMPLETED WITH FOLLOWING BITS @ $ P* IN RETURN CODE OF ECB: @ ^ P* @ 2 P* BIT 9: CHANNEL UNIT NOT IN ACTIVE STATUS @ P* @ P* @ . P* BIT 14: ACK NOT RECEIVED AFTER OUTPUT @ P
0x0b433c…0b44d0 Dummy {f00=0x0039, f01=0x0190, f02=» P IFF RECHAN=0 U =4 A PAREM DATA LOPTST A " P DATA 0 ABORT ROUTINE ADDRESS A 6 " P DATA IHLOP INTERRUPT HANDLER A PLOPTST EQU * A $ P LD A2,10,A8 GET CHANNEL NUMBER A P ANK A2,/FF A P RF(E) DISIIE A ( P CWK A2,RECHAN+RECHAN CHANNEL 1-
0x0b44d0…0b4664 Dummy {f00=0x0039, f01=0x018e, f02=»ER ? A | P RF(E) LOPT10 NO B ( PDISIIE ABL LENDER I/O REQUEST ERROR B $ PLOPT10 EQU * B P , P LD A1,CWTRST,A2 GET CHANNEL LOOP STATUS B d P LDR A5,A2 CWT-ADDRESS B P ANK A1,/40 B , P RF(NE) IHLP20 CHANNEL UNIT NOT BUSY =4 B & P LDK A5,/E0 INDICA
0x0b4664…0b47f8 Dummy {f00=0x0039, f01=0x0190, f02=» P* C PIHLOP EQU * C P LDR A5,A1 GET CWT-ADDRESS C " , P LD A1,CWTRST,A5 GET CHANNEL LOOP STATUS C D P ANK A1,3 C t P XRK A1,3 C PIHLP10 EQU * C P LDK A2,0 C : P SC A2,CWTRST+1,A5 RESET RIGHT BYTE IN CHANNEL STATUS C PIHLP20 EQU *
0x0b47f8…0b498c Dummy {f00=0x0039, f01=0x018e, f02=» 1 / C H R T 2 C P* D 8 P* THIS IS THE INTERRUPT HANDLER FOR CHLT AND CHRT D P* D 2 P* WHEN INTERRUPT FROM A CHANNEL UNIT OCCURS D f 2 P* DRIVER FIRST RELATES INTERRUPT TO A CWT. D 0 P* THEN DRIVER GETS THE INTERRUPT MESSAGE, D 2 P*
0x0b498c…0b4b20 Dummy {f00=0x0039, f01=0x0190, f02=» 2 P* FOLLOWING TYPES OF INTERRUPT ARE RELEVANT E P* E : . P* D = DEVICE ADDRESS C = CHARACTER E D P* E v 8 P* ACK OUTPUT ACKNOWLEDGED D = 0 C = 7 E 8 P* NAK OUTPUT ERROR D = 0 C = 5 E 8 P* OER T
0x0b4b20…0b4cb4 (5, 22) Dummy {f00=0x0039, f01=0x018e, f02=»DIATE SIGN BIT SET E p 8 P* ABC+ BLOCK TR. ACKNOWLEDGED D = 0 C = 8 F 8 P* ABC-L LRC ERROR IN BLOCK D = 0 C = A F X 8 P* ABC-V VRC ERROR IN BLOCK D = 0 C = C F 8 P* ABC-LV LRC O VRC ERROR IN BLOCK D = 0 C = E F
0x0b4cb4…0b4e48 Dummy {f00=0x0039, f01=0x0190, f02=» 8 P* STD STATUS MESSAGE D # 0 C # 0 G 2 P* DIN DATA INPUT D # 0 G @ P EJECT G v P* G P* C H L T 1 G P* G P* INTERRUPT FROM CHLT1 G P* G PCHLT1 EQU * G P IFF LOCHAN=0 G $ P ST
0x0b4e48…0b4fdc Dummy {f00=0x0039, f01=0x0190, f02=» LOCHAN=0 G P IFT CPU852=0 H " P MSR 8,A15 SAVE A1-A8 ON STACK H ( P XIF H N P* H Z P IFF LOCHAN=0 H d P LDK A7,2 INDICATE CHLT1 H z P RF CLT010 H P XIF H P* H P* H P* C H L T 2 H P* H P* INTERRUPT FROM CHLT2 H
0x0b4fdc…0b5170 Dummy {f00=0x0039, f01=0x0190, f02=»PU852=1 H & P CF A15,SAVE8 SAVE A1-A8 ON STACK I P XIF I : P* I F P IFF LOCHAN=0 I P P IFF LOCHAN=1 I f P IFT CPU852=0 I | " P MSR 8,A15 SAVE A1-A8 ON STACK I P XIF I P* I P IFF LOCHAN=0 I P IFF LOCHAN=1 I P LDK A7,4 INDI
0x0b5170…0b5304 Dummy {f00=0x0039, f01=0x0190, f02=» I PCHLT3 EQU * J P IFF LOCHAN=0 J P IFF LOCHAN=1 J 2 P IFF LOCHAN=2 J H $ P ST P,INTSAV SAVE LAST INTERRUPT J ^ P* J P IFT CPU852=1 J & P CF A15,SAVE8 SAVE A1-A8 ON STACK J P XIF J P* J P IFF LOCHAN=0 J P IFF LOCHAN=
0x0b5304…0b5498 Dummy {f00=0x0039, f01=0x018e, f02=» IFF LOCHAN=1 J P IFF LOCHAN=2 K P LDK A7,6 INDICATE CHLT3 K , P RF CLT010 K L P XIF K ^ P* K j P* K t P* C H L T 4 K ~ P* K P* INTERRUPT FROM CHLT4 K P* K PCHLT4 EQU * K P IFT LOCHAN=4 K $ P ST P,INTSAV SAVE LA
0x0b5498…0b562c Dummy {f00=0x0039, f01=0x0190, f02=» P IFT CPU852=0 L " P MSR 8,A15 SAVE A1-A8 ON STACK L P XIF L @ P* L L P IFT LOCHAN=4 L V P LDK A7,8 INDICATE CHLT4 L l P RF CLT010 L P* L P XIF L P* L P EJECT L P* L P* L P* C H R T 1 L P* INTERRUPT FRO
0x0b562c…0b57c0 Dummy {f00=0x0039, f01=0x0190, f02=»VE A1-A8 ON STACK L P XIF M P* M & P IFF RECHAN=0 M 0 P IFT CPU852=0 M F " P MSR 8,A15 SAVE A1-A8 ON STACK M P XIF M P* M P IFF RECHAN=0 M P LDK A7,10 INDICATE CHRT1 M P RF CLT010 M P XIF M P* M P* C H R T 2 M
0x0b57c0…0b5954 (5, 23) Dummy {f00=0x0039, f01=0x0190, f02=» SAVE LAST INTERRUPT M P* N P IFT CPU852=1 N & & P CF A15,SAVE8 SAVE A1-A8 ON STACK N < P XIF N f P* N r P IFF RECHAN=0 N | P IFF RECHAN=1 N P IFT CPU852=0 N " P MSR 8,A15 SAVE A1-A8 ON STACK N P XIF N P* N P IFF RECHAN=0
0x0b5954…0b5ae8 Dummy {f00=0x0039, f01=0x018e, f02=»* N P* INTERRUPT FROM CHRT3 O P* O , PCHRT3 EQU * O 6 P IFF RECHAN=0 O J P IFF RECHAN=1 O ` P IFF RECHAN=2 O v $ P ST P,INTSAV SAVE LAST INTERRUPT O P* O P IFT CPU852=1 O & P CF A15,SAVE8 SAVE A1-A8 ON STACK O P XIF O
0x0b5ae8…0b5c7c Dummy {f00=0x0039, f01=0x0190, f02=» P XIF P P* P P IFF RECHAN=0 P P IFF RECHAN=1 P 0 P IFF RECHAN=2 P F P LDK A7,18 INDICATE CHRT3 P P RF CLT010 P ~ P XIF P P* P P* P P* C H R T 4 P P* P P* INTERRUPT FROM CHRT4 P P* P PCHRT4 EQU *
0x0b5c7c…0b5e10 Dummy {f00=0x0039, f01=0x018e, f02=» P n P XIF Q P* Q P IFT RECHAN=4 Q P IFT CPU852=0 Q 4 " P MSR 8,A15 SAVE A1-A8 ON STACK Q J P XIF Q p P* Q | P IFT RECHAN=4 Q P LDK A7,22 INDICATE CHRT4 Q P XIF Q P* Q P EJECT Q P* Q ( P* COMMON PART FOR ALL INT
0x0b5e10…0b5fa4 Dummy {f00=0x0039, f01=0x018e, f02=» P IFF RECHAN=0 U =4 R P ABL(NA) TDISP R P XIF U =4 R 4 P* R F P IFT LOGING=1 R P P* R f 4 PCLT012 CF A15,LOGG ** LOGG OF INPUT CHARACTER ** R p P* R P XIF R P EJECT R P* R & P* DETERMINE TYPE OF INTERRUPT. R 4 P* MOR
0x0b5fa4…0b6138 Dummy {f00=0x0039, f01=0x0190, f02=» P SUK A7,10 S P U =4 S P IFF LOCHAN=0 S & $ P RF(NN) CLT014 REMOTE INTERRUPT S < & P LDK A7,0 INDICATE LOCAL INTERRUPT S d P RF CLT018 S PCLT014 EQU * S P XIF S P IFF RECHAN=0 S P LDR A3,A2 S . P SLC A3,6 REMOTE FIRST OR SECOND
0x0b6138…0b62cc Dummy {f00=0x0039, f01=0x0190, f02=»RT OR RESTART SYNC-TIMER S x * P ANK A3,/2 FIRST OR SECOND TERMINAL ? T P LDR A7,A5 T N P ADR A7,A3 T ` & P LD A3,CWTRST,A5 LOOP TEST MODE ? T r P ABL(N) CLT170 YES T P XIF T & PCLT018 LDK A1,0 RESET RETURN CODE T ( P LDR A3,A2 DATA REQUEST IMME
0x0b62cc…0b6460 Dummy {f00=0x0039, f01=0x0190, f02=», STD OR DRD T x P EJECT U P* U " P* U , , P* DETERMINE TYPE OF CONTROL CHARACTER U 6 P* U f P LDR A3,A2 U p . P ANK A3,/FF DELETE DEVICE AND LINE NUMBER U P RF(E) CLT030 OER U P SUK A3,7 U P RF(E) CLT050 ACK U P ADK A3,2 U
0x0b6460…0b65f4 (5, 24) Dummy {f00=0x003a, f01=0x0190, f02=»OCAL ? U P RF(NZ) CLT022 NO V P XIF V ( P IFF LOCHAN=0 V 4 & P SUK A3,/18 RETRANSMISSION FAULT ? V J * P RF(NE) CLT025 NO, UNDEFINED INTERRUPT V t P* V P IFT ACKMUL=1 V 6 P IM CWTADD+2,A5 UPDATE RETRANSM. FAULT ACKUMULATOR V P XIF V P
0x0b65f4…0b6788 Dummy {f00=0x003a, f01=0x0190, f02=»/80 ABC-ANSWER ALLOWED ? V P TM A6,A4 W P RF(E) EXIIT NO W 2 P XRK A4,/80 YES, RESET BIT W J P SC A4,LRCACK,A7 AND STORE W l " P LD A6,LRCDWT,A7 LRC-DEVICE ? W P RF(E) EXIIT W P ANK A4,/7F W P RF(Z) CLT046 YES W 8 P CF A15,RESLRC RES
0x0b6788…0b691c Dummy {f00=0x003a, f01=0x0190, f02=» W r P SUK A3,5 X P RF(E) CLT043 ABC+ =5 X P IFT ACKMUL=1 X 8 P* X N , P IM CWTADD+2,A5 UPDATE ERROR ACKUMULATOR X X P XIF X P IFF RECHAN=0 X P* X P SUK A3,4 VRC-ERROR ? X P RF(E) CLT042 YES X & P LDK A1,LRCERR INDICATE LRC-
0x0b691c…0b6ab0 Dummy {f00=0x003a, f01=0x0190, f02=» X h P XIF Y PCLT025 EQU * Y P IFT ACKMUL=1 Y ( 8 P IM CWTADD+4,A5 UPDATE UNDEF. INTERRUPT ACKUMULATOR Y > P XIF Y z P EJECT Y P* Y 0 P* RESOLVE QUEUE AND EXAMINE RECOVERY BIT. Y 4 P* RETURN TO DEVICE DRIVER WITH RETURN CODE : Y 0
0x0b6ab0…0b6c44 Dummy {f00=0x003a, f01=0x0190, f02=»ST OER OR UNDEFINED Y v " P* INTERRUPT Z P* Z B PCLT030 EQU * Z L P IFF RECHAN=0 Z ` P IFF LOCHAN=0 Z v P LDR A7,A7 REMOTE ? Z P RF(Z) CLTQUE NO Z P XIF Z P IFF RECHAN=0 Z P LD A6,LRCDWT,A7 Z P CWR* A6,A5 LR
0x0b6c44…0b6dd8 Dummy {f00=0x003a, f01=0x018e, f02=»RESOLVE QUEUE Z | " P ANK A2,/FF CLEAN CHARACTER =5 [ P SUK A2,5 SEVEN NAK ? [ < P RF(Z) CLT045 YES [ Z * PCLT031 LD A2,DWTST,A6 GET STATUS WORD [ t P LDR A3,A2 [ 0 P ANKL A2,DEVECH+RECTRI ECHO AND RECOVERY BIT [ P RF(NE) CLT045 [ 0 P ORK A3,RE
0x0b6dd8…0b6f6c Dummy {f00=0x003a, f01=0x018e, f02=» [ ( P ABL CLT107 RETURN TO DEVICE DRIVER P IFF RECHAN=0 4 P EJECT J P* X P* ABC- VRC-ERROR b P* ~ 8 P* IF BLOCKSENDING SAME PROCEDURE AS FOR THE OTHER P* ERRORS OF TYPE ABC-. 4 P* IF OUTPUT TO PRINTERS WITH LR
0x0b6f6c…0b7100 Dummy {f00=0x003a, f01=0x0190, f02=» p P RB(NZ) CLT031 YES ] P U =5 ] " P* ] 2 P* ABC+ VRC-ERROR ] < P* ] X 6 P* SEND ETX TO REMOTE PRINTERS WITH DATA REQUEST ] b 4 P* RETURN TO DEV. DRIVER IF OTHER DEVICE TYPE ] P* ] PCLT043 EQU * U =5 ] 0 P ANK A4,DEWDRQ D
0x0b7100…0b7294 (5, 25) Dummy {f00=0x003a, f01=0x0190, f02=»A15,OUTLIN PRINTERS WITH DATA REQUEST =5 ] " P RF EXIIT GO TO DISPATCHER =5 ^ 0 P XIF ^ V P EJECT ^ b P* ^ p P* POWER ON ^ z P* ^ 8 P* RECOVERY ROUTINES ARE STARTED FOR EVERY DEVICE ^ < P* ON ACTUAL LINE EXCEPT THOSE OCCUPYING CHANNEL
0x0b7294…0b7428 Dummy {f00=0x003a, f01=0x0190, f02=»TC,A5 RESET RETRANSMISSION COUNTER ^ P IFF RECHAN=0 _ * P IFF LOCHAN=0 _ @ P LDR A7,A7 REMOTE ? _ V P RF(Z) CPO010 NO _ r P XIF _ P IFF RECHAN=0 _ P U =1 _ . P CM LRCDWT,A7 RESET LRC-DEVICE POINTER =1 _ P LDK A7,1 U =1 _ 6 P ANS
0x0b7428…0b75bc Dummy {f00=0x003a, f01=0x018e, f02=» ADDRESS POINTER _ PCPO020 EQU * ` P LDR* A6,A1 GET DWT-ADDRESS ` , P RF(E) CPO030 ` P P SRC A6,1 ` f P RF(N) CPO030 ` x P SLC A6,1 ` P U =4 ` P LDKL A7,/FFFF-RECTRI-LRCSEN ` 6 P ANS A7,DWTST,A6 RESET RECOVERY BIT AND LRC-BIT =1 `
0x0b75bc…0b7750 Dummy {f00=0x003a, f01=0x0190, f02=» P ANK A7,/20 ECHO MODE ? a P RF(NE) CPO030 YES a $ PCPO023 EQU * U =4 a > 0 P CWR A6,A2 DEVICE WAITING FOR CHANNEL ANSWER a X P RF(E) CPO030 YES a PCPO025 EQU * a & P LDK A4,3 RECOVERY CAUSE: POWER ON a ( P CF A15,NDREDW CALL RECOVERY ROUTINE
0x0b7750…0b78e4 Dummy {f00=0x003a, f01=0x0190, f02=» a P EJECT b P* b 6 P* INDICATE NOT OPERABLE BEFORE GOING TO DRIVER b P* b Z PCLT045 EQU * b d P LDKL A1,/FFFF-RECTRI b x ( P ANS A1,DWTST,A6 RESET RECOVERY BIT b ( P LDK A1,NOERR INDICATE NOT OPERABLE b & P ABL CLT107 RESET TIMER AN
0x0b78e4…0b7a78 Dummy {f00=0x003a, f01=0x0190, f02=»HEN EXAMINE LAST b r 0 P* OUTPUT DWT. IF NOT DEFINED UPDATE ERROR c 6 P* ACKUMULATOR AND GO TO DISPATCHER. IF SYNC-ACK c L P* DROP IT. c 8 P* NORMAL ACK OR DRI WILL RESULT IN A RESETTING OF c 8 P* RECOVERY BIT IN DWT. THEN A SIMULATION OF D
0x0b7a78…0b7c0c Dummy {f00=0x003a, f01=0x0190, f02=» : P* HANDLING ANSWERS FROM DEVICE IS AFFECTED AND THEN d > P* IF DRI A BRANCH IS MADE TO THE DATA REQUEST SECTION. d B * P* IF ACK WE HAVE TO WAIT FOR A DRD. d PCLT050 EQU * d P IFF RECHAN=0 d & P LC A3,CWTLOW,A5 LAST OUTPUT WORD d " P A
0x0b7c0c…0b7da0 Dummy {f00=0x003a, f01=0x0190, f02=» RECOVERY BIT IN STATUS WORD d z P IFF RECHAN=0 e $ P IFF LOCHAN=0 e : P LDR A7,A7 REMOTE ? e P P RF(Z) CLT052 NO e l P XIF e P IFF RECHAN=0 e P LDK A4,2 e 4 P ORS A4,CWTRST,A5 INDICATE ACK IN CHANNEL STATUS e P LDR A8,A3 OBC-ACK ? e
0x0b7da0…0b7f34 (5, 26) Dummy {f00=0x003a, f01=0x0190, f02=»QU * e " P LD A3,DWTST,A6 DEVICE STATUS f 0 P ANK A3,DEWDRQ DEVICE WITHOUT DATA REQUEST ? f 2 P RF(Z) CLT055 NO f f P IFF RECHAN=0 f ~ P IFF LOCHAN=0 f P LDR A7,A7 REMOTE ? f , P RB(Z) CLT046 NO, RETURN TO DEV. DRIVER f P XIF f P IFF R
0x0b7f34…0b80c8 Dummy {f00=0x003a, f01=0x0190, f02=» P XIF g P EJECT g P* g P* g ( H P* PRINTER TIMING AND TIMING FOR MISSING BLOCK CONTROL CHARACTERS g 2 P* g ~ PCLT055 EQU * g P IFF SOFTIM+RECHAN=0 U =4 g P INH g , P LD A3,DWTLD1,A6 ADDRESS TO TIMER BLOCK g P RF(E) CLT060
0x0b80c8…0b825c Dummy {f00=0x003a, f01=0x0190, f02=»* g P* START TIMER h P* h " PCLT060 EQU * h , P LDR A1,A6 PARAMETER h @ " P LDKL A4,DWTLD1 TIMER POINTER h P ADR A4,A6 ADD DWT-ADDRESS h " P CF A15,SETIMP GET TIMER BLOCK h > P DATA DRQTUT,DRQTIM ADDRESS TO TIME-OUT ROUTINE AND DELAY h
0x0b825c…0b83f0 Dummy {f00=0x003a, f01=0x0190, f02=»CE STATUS h | 0 P ANK A4,DEWDRQ DEVICE WITHOUT DATA REQUEST ? i 0 P RB(NZ) CLT046 YES, RETURN TO DEVICE DRIVER i F ( P LDR A2,A2 DATA REQUEST IMMEDIATE ? i z P ABL(N) CLT110 YES =2 i P XIF i " PEXIT ABL TDISP DISPATCHER EXIT i P IFF SOFTIM+RECHAN
0x0b83f0…0b8584 Dummy {f00=0x003a, f01=0x0190, f02=» CONNECTED DEVICES i l 8 P* USING THE LRC-FUNCTION , MISSING BLOCK CONTROL j . P* CHARACTERS (ABC) FROM SELECTOR UNIT. j V P* j PDRQTUT EQU * j P LDR A6,A1 GET DWT-ADDRESS j . P CM DWTLD1,A6 RESET POINTER TO TIMER BLOCK j P LD A3,DWTST,A
0x0b8584…0b8718 Dummy {f00=0x003a, f01=0x0190, f02=» EXIT U =2 j P U =2 k PDRQT10 EQU * k " P* k 6 P IFT ACKMUL=1 k @ " P CF A15,GETCWT GET CWT-ADDRESS k V ( P IM ACKTIM,A5 INCREMENT ACKUMULATOR k | P XIF k P* k P IFF SOFTIM+RECHAN=0 U =4 k . P LDK A1,TIMERR INDICATE SOFTWARE TIME-OU
0x0b8718…0b88ac Dummy {f00=0x003a, f01=0x0190, f02=»LRC-ERROR k x PDRQT20 EQU * l P XIF l & P IFF SOFTIM+RECHAN=0 U =4 l 2 ( P ABL CLT107 RETURN TO DEVICE DRIVER l T P XIF U =4 l P EJECT l P* l P* N A K l P* l 8 P* ERROR ACKUMULATOR AND RETRANSMISSION COUNTER IS l 8 P* U
0x0b88ac…0b8a40 Dummy {f00=0x003a, f01=0x018e, f02=»OT OPERABLE IS SENT TO DEVICE DRIVER. l ~ P* m . PCLT080 EQU * m 8 $ P LDR* A6,A5 GET LAST OUTPUT DWT m L P RB(E) EXIT m t P* m P IFT ACKMUL=1 m P* m * P IM CWTADD,A5 UPDATE ERROR ACKUMULATOR m P* m P XIF m P* m P IFF REC
0x0b8a40…0b8bd4 (5, 27) Dummy {f00=0x003a, f01=0x0190, f02=» P LD A4,CWTRTC,A5 GET COUNTER n P SUK A4,7 SEVEN TIMES ? n ( P ABL(E) CLT030 n H * P LD A2,CWTLOW,A5 GET LAST OUTPUT WORD n ^ $ P EX CWTOTR,A5 EXECUTE OTR-INSTR. n P IFT LOGING=1 n 2 P CF A15,LOGG ** LOGG INPUT CHARACTER ** n P XIF n
0x0b8bd4…0b8d68 Dummy {f00=0x003a, f01=0x0190, f02=»N=0 n P ANK A2,/FF o , P XRS A2,LRCACK,A7 UPDATE LRC-ACKUMULATOR o . P CF A15,RESTSY START OR RESTART SYNC-TIMER o P P XIF o PCLT090 ABL TDISP o P EJECT o P* o P* o $ P* DATA INPUT AND DATA REQUEST o P* o > P* ALWAYS:
0x0b8d68…0b8efc Dummy {f00=0x003a, f01=0x0190, f02=» DEVICE DRIVER. o B P* IF INPUT NOT REQUESTED, GO TO INTERRUPT p * 4 P* ROUTINE OF DEVICE DRIVER. p p P* p P* DATA REQUEST: p P* p < P* LOCAL DEVICES: STORE PRINTER STATUS IN DWTD
0x0b8efc…0b9090 Dummy {f00=0x003a, f01=0x0190, f02=» STATUS MESSAGE (ONLY FOR REMOTE DEVICES): p D P* GO TO INTERRUPT ROUTINE OF DEVICE DRIVER. q 2 P* q z P* q PCLT100 EQU * q P LDR A3,A2 q P SRL A3,8 q P LDR A4,A3 q . P ANK A3,/E 2 * LINE NUMBER FOR LOCAL CONN. q
0x0b9090…0b9224 Dummy {f00=0x003a, f01=0x0190, f02=» A3,/02 MASK CHANNEL NUMBER q " P SLL A3,1 TO CORRECT POSITION r $ & P CWR A7,A5 TERMINAL 2 ON CHANNEL ? r J P RF(E) CLT103 NO r t & P ADK A3,2 YES, ADD TERMINAL NUMBER r P XIF r PCLT103 EQU * r P SRL A4,3 r P ANK A4,/E 2 * DEVICE NUMBER r
0x0b9224…0b93b8 Dummy {f00=0x003a, f01=0x0190, f02=»,A5 ADDRESS TO INTERRUPT TABLE r P RB(Z) EXIT s & P CW A3,-2,A8 WITHIN TABLE ? s : P RB(NL) EXIT NO s ^ P ADR A8,A3 s v , P LDR* A8,A8 ADDRESS TO TERMINAL SECTION s P RB(Z) EXIT NOT DEFINED s P LD A6,-2,A8 GET ID-WORD s P SUR A6,A4 s $
0x0b93b8…0b954c Dummy {f00=0x003a, f01=0x0190, f02=»T-ADDRESS s x P LDR* A6,A8 GET DWT-ADDRESS t P RB(E) EXIT t 6 P ANK A2,/FF CLEAN CHARACTER t J " P LD A3,DWTST,A6 DEVICE STATUS t n 8 P ANK A3,DEVINP+INDARQ MASK INPUT DEV. AND INPUT REQ. t P SUK A3,DEVINP t 4 P RF(Z) CLT115 INPUT DEV. BUT NO IN
0x0b954c…0b96e0 Dummy {f00=0x003a, f01=0x0190, f02=»WITHOUT DATA REQUEST ? t z P RB(NZ) EXIT YES u P IFF RECHAN=0 u 6 P IFF LOCHAN=0 u L P LDR A7,A7 REMOTE ? u b P RF(NZ) CLT120 YES u ~ P XIF u P IFT LOCHAN=0 u P RF CLT120 u P XIF u P IFF LOCHAN=0 u . P SC A2,DWTDEV+1,A6 SAVE PR
0x0b96e0…0b9874 (5, 28) Dummy {f00=0x003b, f01=0x0190, f02=»RESTIM RESET TIMER u P XIF U =4 v P RF CLT110 v , PCLT108 EQU * v > P LDKL A7,/FFFF-INDARQ v R 2 P ANS A7,DWTST,A6 RESET FLAG 'INPUT REQUESTED' v p P* v P* RETURN TO DEVICE DRIVER v , P* (USED BY ALL DEVICES FOR RETURN) v P* v
0x0b9874…0b9a08 Dummy {f00=0x003b, f01=0x0190, f02=» PCLT115 EQU * w " P LD A1,DWTADR,A6 ADDRESS BLOCK w . P LD A1,INTADR,A1 INTERRUPT ENTRY DEFINED ? w > $ P RB(Z) CLT090 NO, SKIP CHARACTER w p P LDR A5,A6 DWT ADDRESS w P ADKL A5,DWTSB2 STACK BASE w * P ABR A1 DEVICE DRIVER INTERRUPT ENTRY w P*
0x0b9a08…0b9b9c Dummy {f00=0x003b, f01=0x0190, f02=»E DATA REQUEST ? w z P ANK A7,/FF x P U =2 x , ( P RB(NZ) CLT115 NO, STATUS MESSAGE =2 x < $ P CWR* A6,A5 DRD BEFORE ANSWER ? x h P ABL(E) EXIT YES x P U =2 x . P LC A3,DWTOCH,A6 LAST OUTPUT CHARACTER =5 x P ANK A3,/7F CLEAN =5 x & P S
0x0b9b9c…0b9d30 Dummy {f00=0x003b, f01=0x0190, f02=» P* y P* y P* TFU IN LOOP MODE y P* y 6 PCLT150 EQU * y @ P LDK A4,1 y T P CWR* A4,A5 SYNC SENT ? y f P RF(NE) CLT154 y < P LDKL A4,/8001 INDICATE LOOP MODE AND SYNC-ACK RECEIVED y PCLT152 EQU * y P ORS A4,CWTRST,A5 y
0x0b9d30…0b9ec4 Dummy {f00=0x003b, f01=0x0190, f02=» P SUK A3,3 POWER ON ? z P RF(E) CLT179 YES z $ P LDR* A4,A5 GET LAST OUTPUT DWT z : P LDR* A6,A5 z b P SUK A4,1 SYNC ? z v P RF(E) CLT178 YES z ( P LDK A1,NOERR INDICATE NOT OPERABLE z PCLT177 RB CLT110 z PCLT178 EQU * z P SUK A3,
0x0b9ec4…0ba058 Dummy {f00=0x003b, f01=0x0190, f02=» PCLT179 EQU * { P LDK A3,/E3 { * P ANS A3,CWTRST,A5 RESET LOOP TEST BIT { , P ABL CLT100 { Z P XIF { n P EJECT { z P* { P* QUEUE { P* { 2 P* GET LAST OUTPUT DWT AND SET CHANNEL FREE. { 4 P* IF LOCAL DEVICE CHECK OUTPUT QU
0x0ba058…0ba1ec Dummy {f00=0x003b, f01=0x0190, f02=»F SOMETHING THERE. IF NOTHING I { x < P* IN THAT QUEUE, CHECK QUEUE OF INTERRUPTING TERMINAL | ( & P* AND SEND IF SOMETHING THERE. | h P* | PQUEUE EQU * | $ P LDR* A4,A5 GET LAST OUTPUT DWT | . P CM CWTRTC,A5 RESET RETRANSMISSION COUNTER |
0x0ba1ec…0ba380 Dummy {f00=0x003b, f01=0x0190, f02=» | P IFF RECHAN=0 } P IFF LOCHAN=0 } * P LDK A1,0 INDICATE READY FOR LOCAL =4 } 4 P LDR A7,A7 LOCAL ? } b P RF(Z) QUEU01 YES } | P XIF } P IFF RECHAN=0 } " P LDK A1,1 INDICATE FIRST TRIAL } " P CWR A7,A5 REMOTE TERMINAL 2 ? } P RF(
0x0ba380…0ba514 (5, 29) Dummy {f00=0x003b, f01=0x0190, f02=»QU * } P LDR* A6,A8 QUEUE EMPTY ? ~ P U =4 ~ . P IFT RECHAN=0 U =4 ~ > P RF(E) QUEU05 YES =4 ~ X P XIF U =4 ~ t P IFF RECHAN=0 ~ P RF(E) QUEU10 YES =4 ~ P IFF LOCHAN=0 ~ P LDR A7,A7 ~ " P RF(Z) QUEU06 PREVENT HANG UP ~ P
0x0ba514…0ba6a8 Dummy {f00=0x003b, f01=0x0190, f02=»U05 BLOCK SENDING RUNNING ~ P XIF " PQUEU06 EQU * . * P LD A2,DWTOTQ,A6 TAKE DWT OUT OF QUEUE D * P STR A2,A8 SET NEXT DWT FIRST IN QUEUE r . P LC A2,DWTOCH,A6 GET LAST OUTPUT CHARACTER P CF A15,OUTLIN SEND IT PQUEU05 LDR* A2,A15 RELOA
0x0ba6a8…0ba83c Dummy {f00=0x003b, f01=0x0190, f02=»0 UNDEFINED INTERRUPT P IFF RECHAN=0 P CWK A6,1 SYNC ANSWER ? 4 P RF(E) QUEU30 YES T P U =4 n P LDK A1,0 ~ P XIF U =4 P ABL RTNA15 P IFF RECHAN=0 U =4 PQUEU10 LDR A1,A1 READY ? P RB(E) QUEU05 P L
0x0ba83c…0ba9d0 Dummy {f00=0x003b, f01=0x0190, f02=» RB QUEU03 P XIF PQUEU30 ADKL A15,4 P RF LTDISP 8 P IFF RECHAN=0 J P EJECT ` P* n P* x 0 P* RESTSY = SUBROUTINE TO START OR RESTART * P* A TIMER FOR SYNC-SENDING P* PRESTSY EQU * P STR A
0x0ba9d0…0bab64 Dummy {f00=0x003b, f01=0x0190, f02=»DR A4,A5 ADD CWT-ADDRESS P CF A15,SETIMP SET TIMER P DATA SYNCUT,TIME @ P RF RESY30 Z PRESY20 LDKL A4,-TIME l " P ST* A4,CWTTP,A5 RESTART TIME PRESY30 LDR* A4,A15 RELOAD A4 P ADKL A15,2 P LDR* P,A15 P EJECT P
0x0bab64…0bacf8 Dummy {f00=0x003b, f01=0x018e, f02=»R IS SENT. ~ P* PSYNCUT EQU * $ P CM CWTTP,A1 RESET TIMER POINTER 0 P LDR A5,A1 X ( P LD A2,CWSYNC,A1 GET SYNC CHARACTER j ( P XRKL A2,/800 CHANGE TERMINAL NUMBER P ST A2,CWSYNC,A1 STORE P LDK A6,1 PSYNC02 EX CWTOTR,A1 OU
0x0bacf8…0bae8c Dummy {f00=0x003b, f01=0x018e, f02=» , P STR A6,A1 STORE "1" AS LAST OUTPUT DWT P* 8 P IFT LOGING=1 B P* X * P CF A15,LOGG LOGG OF OUTPUT CHARACTER b P XIF P* P IFF RECHAN=0 P LDR A3,A2 P SLL A3,4 P RF(NN) SYNC05 P ADK A5,2 P
0x0bae8c…0bb020 Dummy {f00=0x003b, f01=0x0190, f02=» P ANK A4,/80 P RF(E) EXITA NO P ANK A3,/60 4 P RF(E) SYNC20 THIRD SYNC H P SUK A3,/20 h P RF(NE) SYNC10 FIRST SYNC | P LDK A3,/20 SECOND SYNC * PSYNC10 XRS A3,CWTRST,A1 CHANGE COUNTER PEXITA ABL TDISP DISPATCH
0x0bb020…0bb1b4 (5, 30) Dummy {f00=0x003b, f01=0x0190, f02=» LD A3,DWTADR,A6 ADDRESS TO ADDRESSBLOCK P ENB 0 * P ABI INTADR,A3 GO TO INTERRUPT HANDLER < P XIF j P EJECT v P* P* CHARACTER INPUT P* PLTCHRI EQU * PRTCHRI EQU * P LDK A2,INDARQ 0 P ORS A2,DWTST,A6 SET I
0x0bb1b4…0bb348 Dummy {f00=0x003b, f01=0x0190, f02=»R OUTPUT P* PLTCHRO EQU * PRTCHRO EQU * . , P CF A15,NDSAV8 SAVE A3-A5, A7-A8 IN DWT B " P CF A15,OUTLIN SEND CHARACTER r P* P* LOCAL DISPATCHER P* PLTDISP EQU * PRTDISP EQU * P ABL TDISP GO TO DISPATC
0x0bb348…0bb4dc Dummy {f00=0x003b, f01=0x0190, f02=» < 3 x ( P RF(N) LTSTBL YES, SEND WITHOUT LRC " P LD A2,DWTST,A6 DEVICE STATUS 8 6 P ANKL A2,DEVECH+LRCSEN ECHO MODE OR LRC RUNNING ? ^ ( P RF(NZ) LTSTBL YES, SEND WITHOUT LRC P LDK A2,STX LOAD STX P RB RTCHRO SEND P XIF P*
0x0bb4dc…0bb670 Dummy {f00=0x003b, f01=0x0190, f02=» A2,LRCSEN LRC-SENDING ? P RF(Z) LTENBL NO P LDK A2,ETB LOAD ETB 8 P RB RTCHRO SEND T P XIF l P* x P* END OF A BLOCK (LOCAL) P* PLTENBL EQU * P IFF SOFTIM+RECHAN=0 U =4 " P LD A2,DWTST,A6 DEVICE STATUS
0x0bb670…0bb804 Dummy {f00=0x003b, f01=0x0190, f02=» * P XIF U =4 P* " P* START OF A BLOCK (LOCAL) & P* L PLTSTBL EQU * V 0 P ABL NDRETO SET OK & RETURN TO DEVICE DRIVER j P* P EJECT P* P* G E T C W T P* & P* SUBROUTINE TO GET CWT-ADDRESS
0x0bb804…0bb998 Dummy {f00=0x003b, f01=0x018e, f02=»* A6 = DWT-ADDRESS P* P* ON EXIT: * P* A5 = CWT-ADDRESS @ & P* A7 = 0 IF LOCAL CONNECTION ` P* PGETCWT EQU * " P LDR* A5,A6 CHANNEL PARAMETERS P ANK A5,/F P SLL A5,1 DOUBLE INDEX P IFF RECHA
0x0bb998…0bbb2c Dummy {f00=0x003b, f01=0x0190, f02=» P XIF P IFF RECHAN=0 * P LC A7,DWTCP2,A6 CHANNEL PARAMETERS 2 & P SRL A7,1 T P ANK A7,1 CHANNEL NUMBER f * P ORR A5,A7 COMBINE WITH CH. UNIT INDEX P ADK A5,4 ADJUST FOR LOCAL $ P SLL A5,1 GET CHTAB DISPLACEMENT * P LDR A7,A5
0x0bbb2c…0bbcc0 Dummy {f00=0x003b, f01=0x0190, f02=»4 h P LDR* P,A15 RETURN =4 P IFF SOFTIM+RECHAN=0 U =4 ( P EJECT J P* X P* b P* R E S T I M l P* 2 P* SUBROUTINE TO RESET TIMER FOR SUPERVISION 4 P* OF MISSING DATA REQUESTS AND MISSING BLOCK P* CONTROL
0x0bbcc0…0bbe54 (5, 31) Dummy {f00=0x003b, f01=0x0190, f02=»SAVE A7 ON STACK & P LD A7,DWTLD1,A6 GET TIMER POINTER & P RF(Z) REST20 TIMER ALREADY RESET B P CM* DWTLD1,A6 RESET TIMER l & P CM DWTLD1,A6 RESET TIMER POINTER PREST20 LDR* A7,A15 RELOAD A7 P U =4 P RB GETRTN RETURN =4 P
0x0bbe54…0bbfe8 Dummy {f00=0x003b, f01=0x0190, f02=»-DEVICE POINTER, t < P* BLOCKSENDING RUNNING INDICATOR AND LRC-SENDING BIT. P* X P* ON ENTRY: b P* A5 = CWT-ADDRESS x P* A6 = DWT-ADDRESS . P* A7 = TERMINAL ADJUSTED CWT-ADDRESS P* PRESLRC EQU * P
0x0bbfe8…0bc17c Dummy {f00=0x003b, f01=0x0190, f02=»RC-SENDING BIT x P LDK A4,1 6 P ANS A4,CWTBLK,A5 RESET BLOCKSENDING RUNNING IND. ( P LDR* A4,A15 RELOAD A4 b P RB GETRTN RETURN =4 P XIF P EJECT P* P* O U T L I N P* 6 P* OUTLIN = SUBROUTINE TO SEND ONE C
0x0bc17c…0bc310 Dummy {f00=0x003b, f01=0x0190, f02=» R 8 P* RUNNING LRC-PROCESS CAN STOP OUTPUT FROM OTHER 8 P* DEVICES ON SAME LINE. IF CHANNEL UNIT NOT FREE D P* QUEUE OUTPUT P* POUTLIN EQU * P IFT CPU852=1 & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF P*
0x0bc310…0bc4a4 Dummy {f00=0x003b, f01=0x0190, f02=»OR INDICATION z P XIF U =4 P ANK A2,/FF ( " P CF A15,GETCWT GET CWT-ADDRESS < P IFF RECHAN=0 b P IFF LOCHAN=0 x P LDR A7,A7 LOCAL ? P RF(Z) OUL100 YES P XIF P IFF RECHAN=0 * P LC A3,DWTCP2,A6 CHANNEL PARAMETERS
0x0bc4a4…0bc638 Dummy {f00=0x003b, f01=0x0190, f02=»WT-ADDRESS r P XIF P EJECT P* , ( P* IF UNIT NOT FREE QUEUE OUTPUT. 6 2 P* IF REMOTE DEVICE AND LRC-PROCESS ALREADY b 0 P* RUNNING ON TERMINAL FOR ANOTHER DEVICE, 0 P* QUEUE THIS NEW OUTPUT IF LRC-CONTROL ON P* IT
0x0bc638…0bc7cc Dummy {f00=0x003b, f01=0x018e, f02=»O P IFF RECHAN=0 P IFF LOCHAN=0 P LDR A7,A7 REMOTE ? 6 P RF(Z) OUL400 NO R P XIF j P IFF RECHAN=0 v P LDR A3,A2 P SUK A3,/82 STX ? P RF(NE) OUL200 NO P EJECT P* P* S T X P* * P L
0x0bc7cc…0bc960 Dummy {f00=0x003b, f01=0x0190, f02=» P LDK A2,0 $ P ST A6,LRCDWT,A7 SET LRC-DEVICE , P CM LRCACK,A7 RESET LRC-ACKUMULATOR AND > P INDICATE FIRST OBC n 0 POUL150 LD A4,DWTCP2,A6 CHANNEL PARAMETERS 2 ( P LDK A3,0 SET DEVICE NUMBER TO ZER0 P RF OUL505 & POUL175 CWR
0x0bc960…0bcaf4 (5, 32) Dummy {f00=0x003c, f01=0x0190, f02=» ~ P EJECT P* P* E T B P* 2 & P SC A2,LRCACK,A7 INDICATE LAST OBC < * P LC A2,LRCACK+1,A7 GET LRC-ACKUMULATOR f P RB OUL150 P* P* OTHER OUTPUT P* 0 POUL300 LD A8,DWTCP2,A6 CHANNEL PARAMETERS 2 2 P
0x0bcaf4…0bcc88 Dummy {f00=0x003c, f01=0x0190, f02=»RUNNING p * P RF OUL800 BLOCKSENDING RUNNING, QUEUE P > ( POUL350 LD A3,DWTST,A6 DEVICE STATUS F 0 P ANK A3,DEWDRQ DEVICE WITHOUT DATA REQUEST ? r " P RF(Z) OUL500 DEVICE WITH DRD P LD A3,CWTBLK,A5 P RF(Z) OUL500 ( P ORKL A2,/8000
0x0bcc88…0bce1c Dummy {f00=0x003c, f01=0x0190, f02=»DDRESS f : P* FROM CHANNEL PARAMETERS AND PUT INTO OUTPUT WORD P* L POUL400 EQU * U =4 V P IFT KBDIR=1 U =4 p , P LD A8,DWTCP2,A6 CHANNEL PARAMETERS 2 =4 P XIF U =4 POUL500 EQU * * P LD A3,DWTCP2,A6 CHANNEL PARAMETERS 2
0x0bce1c…0bcfb0 Dummy {f00=0x003c, f01=0x0190, f02=» LDR A7,A7 LOCAL ? P RF(NZ) OUL505 NO P XIF 4 P IFF LOCHAN=0 @ P ANKL A4,/0700 WS-ADDRESS V P SLC A4,1 TO CORRECT PLACE x P IFF RECHAN=0 P RF OUL508 P XIF P IFF RECHAN=0 POUL505 EQU * ( P ANKL A4,/0200 R
0x0bcfb0…0bd144 Dummy {f00=0x003c, f01=0x0190, f02=»TE TERMINAL NUMBER P SRC A4,5 TO CORRECT PLACE P XIF < POUL508 EQU * H . P ORR A3,A4 COMBINE DEV.ADDR. AND WS-ADDR. P IFT KBDIR=1 U =4 , P ANKL A8,KBLAMP KB-LAMPS ON VDU-OUTPUT ? 4 P RF(NZ) OUL900 YES, PUT LAMP CODE FIRST IN QUEUE
0x0bd144…0bd2d8 Dummy {f00=0x003c, f01=0x0190, f02=» P* P IFF RECHAN=0 U =4 $ P LDK A1,25 LOOP COUNTER FOR OTR ( P XIF U =4 P POUL515 EX CWTOTR,A5 OTR b P RF(A) OUL520 ACCEPTED P IFT RECHAN=0 U =4 P RF(R) OUL800 QUEUE =4 P XIF U =4 P IFF RECHAN=0 U =4 P RF(
0x0bd2d8…0bd46c Dummy {f00=0x003c, f01=0x0190, f02=»A15,20 RESET STACK " P LDK A1,NOERR SET NOT OPERABLE 6 P ABL NDREP GET REGISTERS AND RETURN TO DEV.DRIVER @ POUL520 EQU * z P* P IFT LOGING=1 P* 0 P CF A15,LOGG ** LOGG OF OUTPUT CHARACTER ** P* P XIF P*
0x0bd46c…0bd600 Dummy {f00=0x003c, f01=0x0190, f02=» A7,A7 REMOTE ? P RF(Z) OUL550 NO P XIF 0 P IFF RECHAN=0 < P EJECT R P* ` N P* INDICATE BLOCKSENDING RUNNING IF STX TO DEVICE WITHOUT DATA REQUEST. j . P* UPDATE LRC-ACKUMULATOR AND SYNC-TIMER P* & P ANKL A3,/7000 M
0x0bd600…0bd794 (5, 33) Dummy {f00=0x003c, f01=0x0190, f02=»TA REQUEST ? p " P RF(Z) OUL540 DEVICE WITH DRD , P LD A3,CWTBLK,A5 BLOCK SENDING INDICATOR : * P RF(Z) OUL540 BLOCKSENDING NOT ALLOWED j P LDK A3,/80 2 P SC A3,CWTBLK,A5 INDICATE BLOCKSENDING RUNNING POUL540 EQU * P ANK A2,/FF ,
0x0bd794…0bd928 Dummy {f00=0x003c, f01=0x0190, f02=» OUTPUT CHARACTER IN DWT AND RETURN P* , POUL550 EQU * U =4 6 P IFT KBDIR=1 U =4 P * P LDR A8,A8 KB-LAMPS ON VDU-OUTPUT ? =4 j P RF(NZ) OUL700 YES P XIF U =4 4 POUL600 SC A2,DWTOCH,A6 SET LAST OUTPUT CHARACTER POUL700 EQU *
0x0bd928…0bdabc Dummy {f00=0x003c, f01=0x0190, f02=» A1-A8 FROM STACK... ~ P INH * P ADKL A15,2 ...ADJUST STACK POINTER... * P LDR* P,A15 ...AND RETURN X P XIF z P* P EJECT P* : P* NORMALLY DWT-ADDRESS IS PUT LAST IN OUTPUT QUEUE P* POUL800 EQU * P IFF
0x0bdabc…0bdc50 Dummy {f00=0x003c, f01=0x0190, f02=»A5 CWT-ADDRESS P XIF , POUL805 LD A4,CWTEQ,A7 GET QUEUE POINTER " P RF(E) OUL820 R POUL810 CWR A6,A4 h & P RB(E) OUL600 DWT ALREADY IN QUEUE P LD A3,DWTOTQ,A4 P RF(E) OUL830 P LDR A4,A3 FOLLOW THE THREAD P RB OUL810
0x0bdc50…0bdde4 Dummy {f00=0x003c, f01=0x0190, f02=»HREAD p P RB OUL600 P IFT KBDIR=1 U =4 P EJECT : P* H & P* KEYBOARD LAMPS ON VDU OUTPUT R 4 P* (KEYBOARD CONNECTED TO VDU INSTEAD OF SUM) | P* , P* PUT LAMP CODE FIRST IN OUTPUT QUEUE . P* LOAD ESCAPE CODE FOR
0x0bdde4…0bdf78 Dummy {f00=0x003c, f01=0x0190, f02=»FF-LMPQUE 2 P ANS A1,DWTST,A6 RESET BIT 'LAMP CODE QUEUED' P ANK A4,LMPQUE H , P RB(NZ) OUL510 LAMP CODE ALREADY QUEUED ^ P LDR A1,A5 CWT-ADDRESS P IFF RECHAN=0 P IFF LOCHAN=0 P LDR A7,A7 REMOTE ? P RF(Z) OUL910 NO
0x0bdf78…0be10c Dummy {f00=0x003c, f01=0x0190, f02=» U =4 & POUL910 LD A4,CWTEQ,A1 OUTPUT QUEUE P RF(Z) OUL920 QUEUE EMPTY 8 P CWR A6,A4 Z , P RB(E) OUL600 THIS DWT ALREADY IN QUEUE l * POUL920 ST A4,DWTOTQ,A6 MOVE QUEUE LINK $ P ST A6,CWTEQ,A1 QUEUE LAMP CODE , P SC A2,DWTOCH,A6 STORE
0x0be10c…0be2a0 Dummy {f00=0x003c, f01=0x0190, f02=»O KB l P RB OUL510 P XIF U =4 P EJECT 0 P* > P* H P* C H L T O N R P* j > P* SUBROUTINE TO RESET CWT AND PERFORM CIO-START OF EVERY t @ P* CHLT IN SYSTEM. THE SUBROUTINE IS ENTERED FROM 'PFINIT' P* P*
0x0be2a0…0be434 (5, 34) Dummy {f00=0x003c, f01=0x0190, f02=» ADKL A15,2 RETURN AND ENABLE P ENB & P LDR* P,A15 2 PCON020 EQU * F P INH Z $ P LD A5,CHTAB,A4 LOAD CWT-ADDRESS f P RB(Z) CON010 P IFF RECHAN=0 P IFF LOCHAN=0 P CWK A4,/A LOCAL ? P RF(L) CON030 YES P XIF
0x0be434…0be5c8 Dummy {f00=0x003c, f01=0x0190, f02=» RF(U) CON027 $ P LDK A3,0 INDICATE CHANNEL BUSY . P CF A15,RESTSY START OR RESTART SYNC-TIMER > PCON027 EQU * p 2 P ST A3,CWTRST,A5 INDICATE C.U. PRESENT OR NOT P RF CON035 P XIF PCON030 EQU * $ P EX CWTCIS,A5 EXECUTE CIO-ST
0x0be5c8…0be75c Dummy {f00=0x003c, f01=0x018e, f02=»E) CON010 P XIF P CMR A5 RESET LAST OUTPUT P LDK A2,/00 DUMMY @ P CF A15,OUTLIN SEND IT Z P RB CON010 x P EJECT P* P* L O G G P* 8 P* IF CONDITIONALY ASSEMBLY IS SET EVERY INPUT AND $ P* OUTPUT C
0x0be75c…0be8f0 Dummy {f00=0x003c, f01=0x0190, f02=» & P CWK A1,BUFE BUFE IS MAX LOGG AREA P RF(NE) L1 2 ( P LDKL A1,BUF SET FIRST LOGG ADDRESS D PL1 ST A1,POINT p & P STR A2,A1 LOGG OF INR OR OTR WORD P LDR* A1,A15 P ADKL A15,2 P LDR* P,A15 RETURN P* P* P X
0x0be8f0…0bea84 Dummy {f00=0x003c, f01=0x409e, f02=»GG AREA P XIF P IFT LOGING=1 P IFF RECHAN=0 2 PBUF RES 1000 LOGG AREA H P XIF f PBUFE EQU * r P* P END @ R OTR WORD P LDR* A1,A15 P ADKL A15,2 P LDR* P,A15 RETURN P* P* P X
0x0bea84…0bec18 Dummy {f00=0x003c, f01=0x2008, f02=» INR OR OTR WORD e P LDR* A1,A15 f P ADKL A15,2 f 4 P LDR* P,A15 RETURN f H P* f b P* f l PPOINT DATA BUF LOGG POINTER f v P* f PBUF RES 500 LOGG AREA f PBUFE EQU * f P* f P XIF f P* f P END f @ f
0x0bec18…0bedac Dummy {f00=0x003c, f01=0x0190, f02=»ESSAGE WRITTEN ? ( P RF(NE) TP220 YES; COMPLETE REQUEST ( P LD A1,ECBRL,A8 GET REQUESTED LENGTH D $ P SUK A1,3 REQUESTED LENGTH 0-2 ? p & P RF(N) TP230 YES; COMPLETE REQUEST P RF(P) TP215 P LD A1,2,A8 BUFFER ADDRESS P LC A2,2,A1 THIR
0x0bedac…0bef40 Dummy {f00=0x003c, f01=0x0190, f02=»ND BUFFER " P CF A5,PRBUF PRINT ECB-BUFFER PTP220 EQU * 8 P LDK A1,0 L 6 PTP230 LDKL A2,/FDFF VOUCHER STATUS CHANGE ALLOWED ^ P ANS A2,DWTDEV,A6 P EJECT P* P* P* ECB-BUFFER IS WRITTEN P* * P* SEND
0x0bef40…0bf0d4 (5, 35) Opaque[0x194]
0x0bf0d4…0bf268 # DirEnt {nam=»DRGP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0798, f03=0x0000}
0x0bf0d4…0bf268 IdxSect {
0x0bf0d4…0bf268 f00 = 0x003c // 0xbf0d4 @0x0
0x0bf0d4…0bf268 f01 = 0x0010 // 0xbf0d6 @0x2
0x0bf0d4…0bf268 gno = [ // 0xbf0d8 @0x4
0x0bf0d4…0bf268 [0x00]: C0x003c.0x3.0
0x0bf0d4…0bf268 [0x01]: C0x003d.0x0.0
0x0bf0d4…0bf268 [0x02]: C0x003d.0x1.0
0x0bf0d4…0bf268 [0x03]: C0x003d.0x2.0
0x0bf0d4…0bf268 [0x04]: C0x003d.0x3.0
0x0bf0d4…0bf268 [0x05]: C0x003e.0x0.0
0x0bf0d4…0bf268 [0x06]: C0x003e.0x1.0
0x0bf0d4…0bf268 [0x07]: C0x003e.0x2.0
0x0bf0d4…0bf268 ]
0x0bf0d4…0bf268 }
0x0bf268…0bf3fc Dummy {f00=0x003c, f01=0x0190, f02=» 2 P IDENT DRGP01 REL 11.0 81-08-31 870105041100 P : & P =13,CHARACTER BLOCKING CHANGED B P REL 11.0 81-05-25 l P =12,COND. ASS. FOR ECHO P REL 11.0 81-01-26 P =11,BRANCH ADDR. OVERFLOW P PRR 11.0 80-11-19 " P
0x0bf3fc…0bf590 Dummy {f00=0x003c, f01=0x0190, f02=»ABORT ROUTINE IMPLEMENTED P PRR 11.0 80-07-28 " P =7,BRANCH ADDR. OVERFL. > P PRR 11.0 80-04-29 ` $ P =6,IMPROV. OF ERROR HANDLING | P PRR 11.0 80-03-18 P =5,TENDIO AT ECHO END P PRR 11.0 80-03-13 * P =4,CORREC
0x0bf590…0bf724 Dummy {f00=0x003c, f01=0x0190, f02=»GEN UPDATE TO 8.2+ STATUS P REL 8.2 79-03-16 " P =2,IMPROV. OF TEST ORDER > P REL 8.2 78-11-19 b " P =1,ECHO OF LF AND CR, ABIS ~ P REL 8.2 78-09-15 P* P* 6 P**************************************************
0x0bf724…0bf8b8 Dummy {f00=0x003c, f01=0x0190, f02=» P* P* P* 6 P************************************************* " P* P* f 6 P* THIS DRIVER HANDLES GENERAL TERMINAL PRINTER p < P* PTS 6321 CONNECTED TO THE SYSTEM VIA CHLT OR CHRT. P* 8 P* THE DRIVER ALSO
0x0bf8b8…0bfa4c Dummy {f00=0x003c, f01=0x0190, f02=» TO ANY KEY- j 4 P* BOARD, THAT RUNS UNDER THE GENERAL KEYBOARD P* DRIVER DRKB04. L P* h P* r 0 P* THE DRIVER CONSISTS OF FOLLOWING PARTS: | P* & P* A C G P ACTIVATION PART P* $ P* A B G P ABORT R
0x0bfa4c…0bfbe0 Dummy {f00=0x003c, f01=0x0190, f02=» P* * P* THE FOLLOWING ORDERS ARE TREATED: P* @ P* ORDER 00: TEST STATUS J P* 05: BASIC WRITE l " P* 06: STANDARD WRITE P* P* NORMAL REGISTER USAGE P* " P* REGISTER A1 = RETURN CODE
0x0bfbe0…0bfd74 (5, 36) Dummy {f00=0x003d, f01=0x0190, f02=» A5 = STACK BASE " P* A6 = DWT-ADDRESS " P* A7 = ORDER H " P* A8 = ECB-ADDRESS h P* P* P* SYSTEM ADAPTATION P* : P* THE CODES FOR ECHO OF BACKSPACE (GPBSP) AND CLEAR ( P
0x0bfd74…0bff08 Dummy {f00=0x003d, f01=0x0190, f02=» FOLLOWING FUNCTIONS. z P* --ROOMLESS POINT : P* --ACCEPTANCE OF SPECIAL CHARACTER /13,/14 OR BOTH < P* z D P* --EXCLUDE ECHOING OF AN EXTRA SPACE BETWEEN EACH CHARACTER 6 P* --SUPPRESS ECHOING OF END OF RECORD CHARACTER * P**
0x0bff08…0c009c Dummy {f00=0x003d, f01=0x0190, f02=»CTER CODES FOR ROOMLESS POINT DIGITS F P* IS DEFINED IN A SPECIAL TABLE. STANDARD IS SHB CHARACTER SET , P EJECT v P* P* P* P* P*********** P* ENTRIES * P*********** P* P* P* ( P E
0x0c009c…0c0230 Dummy {f00=0x003d, f01=0x0190, f02=»*************************************** . P* EXTERNAL TOSS MODULE ENTRIES * 0 . P***************************************** b P* P* & P EXTRN LENDER I/O REQUEST ERROR =3 . P EXTRN OUTPUT SUBROUTINE TO SEND CHARACTER P EXT
0x0c0230…0c03c4 Dummy {f00=0x003d, f01=0x0190, f02=»TER FROM ECB-BUFFER x $ P EXTRN STABLK START OF BLOCK =3 " P EXTRN ENDBLK END OF BLOCK =3 D P EJECT j P* x P* P************************ P* DWT PARAMETERS * P************************ P* P* P EXTRN D
0x0c03c4…0c0558 Dummy {f00=0x003d, f01=0x0190, f02=» P EJECT P* P* P************* * P* CONSTANTS * @ P************* V P* l P* v : PSOH EQU /01 RESET PRINT BUFFER REMOTE AND LOCAL DUMMY PSTX EQU /82 START OF MESSAGE PETB EQU /97 END OF MESSAGE PETX
0x0c0558…0c06ec Dummy {f00=0x003d, f01=0x0190, f02=»E ~ 0 PPROUT EQU /04 PAPER OUT OR READY SWITCH OFF P* > & PBLKMAX EQU 140 MAX BLOCK LENGTH =3 H P EJECT r P* P* * P************************************** * P* CONDITIONAL ASSEMBLY * * P************************
0x0c06ec…0c0880 Dummy {f00=0x003d, f01=0x0190, f02=»X:A EQU 1 PCROOM EQU X:A P* ( 4 P* ACCEPTANCE OF SPECIAL CHARACTER /13 CAN BE 2 0 P* INCLUDED IN THE DRIVER BY SETTING X:B=1 j P* PX:B EQU 0 PTRETON EQU X:B P* 4 P* ACCEPTANCE OF SPECIAL CHARACTER /14 CAN B
0x0c0880…0c0a14 (5, 37) Dummy {f00=0x003d, f01=0x0190, f02=»LING IS INCLUDED IF ECHO = 1 P* $ PX:D EQU 1 U =12 . PECHO EQU X:D U =12 F P* ` . P* IT IS POSSIBLE TO EXCLUDE ECHOING OF j , P* AN EXTRA SPACE AFTER EACH CHARACTER P* BY SETTING X:E=0 P* PX:E EQU 0 PCOSP
0x0c0a14…0c0ba8 Dummy {f00=0x003d, f01=0x0190, f02=» OF END OF RECORD CHARACTER. x 8 P* THIS IS ATTAINED BY SETTING THE CONSTANT X:F=0. $ P* ` PX:F EQU 0 j PEORECH EQU X:F | P* 4 P* SUPPRESSING OF SPACES IN RIGHT HAND OF LINE P* BY SETTING X:G=1 P* PX:G EQU 0
0x0c0ba8…0c0d3c Dummy {f00=0x003d, f01=0x0190, f02=»NACTIVE CAN BE CHOSEN BY SETTING P* THE CONSTANT RECEND = 1 ( PX:H EQU 0 J PRECEND EQU X:H P* r P* | 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 1
0x0c0d3c…0c0ed0 Dummy {f00=0x003d, f01=0x0190, f02=»ITION FOR ABIS PRINTER =1 PABIS EQU 0 =1 " P EJECT 8 P* F P* P $ P******************************** Z $ P* DWT-DISPLACEMENT * $ P******************************** P* P* P =3 ( PDWTAP EQU /2 HEAD PO
0x0c0ed0…0c1064 Dummy {f00=0x003d, f01=0x0190, f02=»************ v , P* SPECIAL KEYS FOR ECHO FUNCTION * * P************************************** D P* r PGPBSP EQU /2D BACK SPACE | PGPCLR EQU /3F CLEAR P* P******************** P* RETURN CODES * P**************
0x0c1064…0c11f8 Dummy {f00=0x003d, f01=0x0190, f02=»T ERROR z ( POPERR EQU /1 NOT OPERABLE, POWER OFF P* < P EJECT F P* T P* ^ P********** h P* TABLES * z P********** P* P* P IFT CROOM=1 P* PROMTAB EQU * * P TABLE FOR ROOMLESS POINT CHARACTE
0x0c11f8…0c138c Dummy {f00=0x003d, f01=0x0190, f02=» r P DATA 2 DEVICE INDEX PGPAD EQU * ADDRESS BLOCK $ P DATA ACGP ACTIVATION DRIVER D ( P DATA ABGP ABORT ROUTINE ADDRESS =8 h P DATA 0 INTERRUPT HANDLER P DATA RCGP RECOVERY ROUTINE . P DATA ECHOGP DEVICE-DEPENDENT ECHO-ROUTINE
0x0c138c…0c1520 Dummy {f00=0x003d, f01=0x0190, f02=» TEST STATUS. DUMMY IS SENT TO PRINTER AND RETURN CODE < P* IS SET IF PAPER OUT OR READY SWITCH OFF. > H P* RETURN CODE IS ALSO SET IF TIME-OUT IS SIGNALLED FROM ~ P* CHANNEL UNIT. P* > P* ORDER 05: B
0x0c1520…0c16b4 (5, 38) Dummy {f00=0x003d, f01=0x0190, f02=»ERS ARE SENT TO PRINTER FROM j < P* ECB-BUFFER AFTER INDIVIDUAL CODE CHECK. $ P* d PACGP EQU * n P =3 P LDR A3,A7 =1 P RF(Z) ACGP10 ORDER 0 =2 " P LDK A2,BLKMAX BLOCK LENGTH =3 $ P CF A5,STABLK START OF BLOCK =
0x0c16b4…0c1848 Dummy {f00=0x003d, f01=0x0190, f02=»F(E) ACGP00 ORDER 6 =3 " P CF A5,ENDBLK END OF BLOCK =3 $ P ABL LENDER I/O REQUEST ERROR =3 D PACGP00 EQU * =3 l * P LD A3,4,A8 ORDER 6 GET REQ LENGTH =1 P RF(Z) ACGP01 =1 & P LD A3,2,A8 GET BUFFER ADDRESS =1 ( P LC A3,1,A3 GET CO
0x0c1848…0c19dc Dummy {f00=0x003d, f01=0x0190, f02=» $ P LDK A3,2 START BUFFER INDEX =3 P RF ACGP19 =3 , PACGP02 EQU * =3 B P LDK A2,CR =1 Z P CF A5,OUTPUT =1 p P RF(NZ) ERGP1 ERROR =3 P IFT ABIS=1 =1 P LDK A2,FFED =1 P CWK A3,/31-/2B =1 $ P RF(E) ACGP03 CONTRO
0x0c19dc…0c1b70 Dummy {f00=0x003d, f01=0x0190, f02=»F A5,OUTPUT =1 P RF(NZ) ERGP1 ERROR =3 P LDK A2,LF =1 6 , PACGP03 LDK A1,1 RESET HEAD POS COUNTR =1 L " P ST A1,DWTAP+DWTDEV,A6 =3(=1) | * PACGP06 LDK A3,2 START BUFFER INDEX =1 PACGP09 CF A5,OUTPUT =1 PERGP1 RF(NZ) ERGP2 ERROR
0x0c1b70…0c1d04 Dummy {f00=0x003d, f01=0x0190, f02=»19 =1 P EJECT =2 P* =2 " P* ORDER 00: TEST =2 2 N P* IMPROVED TEST OF BOTH SUM OFF AND PRINTER NOT THERE =2 P P* =2 PACGP10 EQU * " P LDK A2,2 BLOCK LENGTH =10(=3) $ P CF A5,STABLK START OF BLOCK
0x0c1d04…0c1e98 Dummy {f00=0x003d, f01=0x0190, f02=» A2,0 SEND CHAR /00=END OF TEST =2 P CF A5,OUTPUT =2 * P RF(NZ) ERGP2 ERROR =3 D P RF AGP400 =10(=2) b P EJECT ~ P* & P* GET, CHECK AND SEND CHARACTER P* (IF ORDER 5 NO CHECK) P* PACGP17 CF A5,OUTPUT P
0x0c1e98…0c202c Dummy {f00=0x003d, f01=0x018e, f02=» LINE FEED DONE z P ORS A4,DWTDEV,A6 =3 P IFT SUPSPA=1 6 4 P CF A15,SKIPSP SKIP SPACES IN END OF ECB-BUFFER L P XIF P LDK A4,0 6 PACGP20 CF A15,GETCHR GET CHARACTER FROM ECB-BUFFER P LDR A1,A1 LAST CHARACTER? P RF(NP) AG
0x0c202c…0c21c0 Dummy {f00=0x003d, f01=0x018e, f02=» P RF(NE) ACGP22 : P ST A4,DWTAP+DWTDEV,A6 RESET HEAD POSITION POINTER =3 P RB ACGP17 X * PACGP22 SUK A1,8 TABULATION CHARACTER ? j P RF(E) ACGP40 P IFT ABIS=1 =1 P CWK A2,/07 BELL ? =1 P RB(E) ACGP09 =1 P XIF =1
0x0c21c0…0c2354 (5, 39) Dummy {f00=0x003d, f01=0x0190, f02=» P IFT TRETON=0 P IFT FJOTON=1 P* 0 P SUK A1,3 /14? : P RB(E) ACGP17 P P SUK A1,/C LESS THAN /20 ? f P* P XIF P* P* P IFT TRETON=1 P IFT FJOTON=0 P* P SUK A1,2 /13 ? P RB(E) A
0x0c2354…0c24e8 Dummy {f00=0x003d, f01=0x0190, f02=»UK A1,2 /13? P RB(E) ACGP17 P SUK A1,1 /14? * P RB(E) ACGP17 @ P SUK A1,/C LESS THAN /20 ? V P* x P XIF P* & P RF(N) ACGP30 YES,CODE CHECK ERROR & P SUK A1,/8E ROOMLESS POINT? (AE) P RF(E) AGP100 P ADK A
0x0c24e8…0c267c Dummy {f00=0x003d, f01=0x0190, f02=»N /60 TO /7F j & P TO CHARACTER BETWEEN /40 TO /5F P RB ACGP17 > PACGP24 EQU * P P SUK A1,/D d P RF(NZ) ACGP26 NOT CR v 2 P CM DWTPOC+DWTDEV,A6 RESET POSITION COUNTER =3 2 P CM DWTAP+DWTDEV,A6 RESET HEAD POS.POINTER =3 PACGP26 A
0x0c267c…0c2810 Dummy {f00=0x003d, f01=0x0190, f02=»17 P EJECT ! P* ! P* CODE CHECK ERROR ! " P* ! @ PACGP30 EQU * ! J P LDK A1,CCERR ! ^ P ORS A1,8,A8 RETURN CODE ! t P RB ACGP20 ! P EJECT ! P* ! P* TABULATION ! P* ! PACGP40 EQU * ! , P CF A15,GETCHR GET F
0x0c2810…0c29a4 Dummy {f00=0x003d, f01=0x018e, f02=»E) ACGP44 ! 0 PACGP43 ADK A2,/A FROM DECIMAL TO HEXADECIMAL " P SUK A4,1 " F P RB(NE) ACGP43 " X B PACGP44 SU A2,DWTAP+DWTDEV,A6 SUBTRACT HEAD POSITION POINTER =3 " n P LC A4,DWTBC+DWTDEV,A6 =3 " , P SUR A2,A4 AND REQUESTS POSITION COUNTER " & P
0x0c29a4…0c2b38 Dummy {f00=0x003d, f01=0x0190, f02=» " X PACGP46 CF A5,OUTPUT # PERGP2 RF(NZ) ERGP ERROR =3 # $ 2 P IM DWTPOC+DWTDEV,A6 INCREMENT BUFFER INDEX =3 # F P SUK A4,1 # | P RB(P) ACGP45 # P LDR A3,A3 RECOVERY? # P RB(NE) ACGP20 NO # 4 P SC A4,DWTBC+DWTDEV,A6 RESET POSITION POINTER
0x0c2b38…0c2ccc Dummy {f00=0x003d, f01=0x018e, f02=» * # P* $ P IFT CROOM=1 $ P* $ ( ( P CF A15,GETCHR GET CHARACTER TO SEND $ 2 P ANK A2,/F $ ^ P LC A2,ROMTAB,A2 TRANSFORM $ p P* $ P XIF $ P* $ P* $ P IFF CROOM=1 $ P* $ P ANK A2,/7F $ P* $ P XIF $ P* $
0x0c2ccc…0c2e60 Dummy {f00=0x003d, f01=0x0190, f02=» P* % PAGP400 EQU * % P =3 % " P =13(=10) % 0 PAGP410 LDK A2,ETX LAST DUMMY % D P CF A5,OUTPUT SEND % h P RF(NZ) ERGP ERROR =6 % " P CF A5,ENDBLK END OF BLOCK =6 % P RF(NZ) ERGP ERROR =6 % PAGP415 EQU * =1 % P IFT ABIS=1
0x0c2e60…0c2ff4 (5, 40) Dummy {f00=0x003e, f01=0x0190, f02=» EQU * % 0 P CF A15,UPDAPP UPDATE HEAD POSITION COUNTER & P LDKL A4,/FBFF =3 & B 2 P ANS A4,DWTDEV,A6 RESET 'LINE FEED CONTROL' =3 & PENDIO EQU * & P =6(=3) & P CF A15,TENDIO END I/O & & PEXIT ABL LDISP GO TO DISPATCHER =3 & PAGP430 E
0x0c2ff4…0c3188 Dummy {f00=0x003e, f01=0x018e, f02=»= SUBROUTINE TO UPDATE HEAD & , P* POSITION POINTER WHEN END ' $ ( P* OF REQUEST IS REACHED ' T PUPDAPP EQU * ' 2 P LC A3,DWTBC+DWTDEV,A6 GET POSITION COUNTER =3 ' < P ADS A3,DWTAP+DWTDEV,A6 UPDATE HEAD POSITION POINTER =3 '
0x0c3188…0c331c Dummy {f00=0x003e, f01=0x0190, f02=» P* ( * P* SKIPSP = SUBROTINE TO SKIP SPACES ( ( P* IN END OF ECB-BUFFER. ( < 6 P* REQUESTED LENGTH IN ECB IS UPDATED. ( h & P* A1,A2,A4 - WORK REG ( P* ( PSKIPSP EQU * ( ( P LD A1,2,A8 GET BUFFER ADDRESS
0x0c331c…0c34b0 Dummy {f00=0x003e, f01=0x0190, f02=» RL < 3 ( P SUK A1,1 DECR. BA ) P LCR A4,A1 GET CHAR ) * P CCK A4,/2020 SPACE ? ) F P RF(NE) SKIP20 NO ) d PSKIP07 SUK A2,1 DECR RL ) ~ P RB SKIP05 GET NEXT ) PSKIP20 CWK A2,4 ) P RF(NG) SKIP30 RL < 5 ) P LC A4,-2,A1 GET CHAR )
0x0c34b0…0c3644 Dummy {f00=0x003e, f01=0x018e, f02=»ET NEXT ) P* * " PSKIP30 ST A2,4,A8 STORE NEW RL * P RTN A15 * @ P XIF * P P EJECT * P* * j P* E R G P * t P* * P* ERROR ROUTINE * P* * P* * PERGP EQU * =3 * $ P LDR A2,A1 SAVE RETURN CODE =10 * 4 P ANK A1,/1
0x0c3644…0c37d8 Dummy {f00=0x003e, f01=0x0190, f02=» * P RF(NZ) ERGP10 NO =6 + 2 P LDK A1,OPERR SET RETURN CODE NOT OPERABLE =6 + $ P RB ENDIO END I/O =6 + Z P* + v PERGP10 EQU * =6 + ( P ANK A2,/08 SOFTWARE TIME-OUT ? =10 + * P RF(NZ) RCGP YES,EXECUTE RECOVERY =10 + P =9(=6) + P
0x0c37d8…0c396c Dummy {f00=0x003e, f01=0x0190, f02=»T OPERABLE =6 + p P RB AGP430 =3 , P XIF =3 , , P EJECT , > P* , L P* E C H O G P , V P* , n 0 P* ECHOGP = DEVICE-DEPENDENT ECHO-ROUTINE , x P* , PECHOGP EQU * , P IFT ECHO=1 U =12 , P LDK A4,COSPAC , P LDR A7,A7 END
0x0c396c…0c3b00 Dummy {f00=0x003e, f01=0x018e, f02=»ES , P ADK A2,/80 - P* - P XIF - ( P IFT ECHO=1 U =12 - 4 P* - N P LDR A1,A2 - X P ANK A1,/7F - j P SUK A1,/8 - ~ P RF(E) ECGP40 BACKSPACE - P SUK A1,/2 LINE FEED =1 - P RF(E) ECGP05 YES =3(=1) - P SUK A1,/3 CR =1 - P
0x0c3b00…0c3c94 (5, 41) Dummy {f00=0x003e, f01=0x0190, f02=» - Z P RF(N) ECGP20 . P SUK A1,/5F-/20 . P RF(P) ECGP20 . 6 PECGP05 EQU * =3 . L P LDR A3,A2 SAVE CHARACTER =3 . d $ P LDK A2,COSPAC+1 BLOCK LENGTH =3 . $ P CF A5,STABLK START OF BLOCK =3 . P RF(NZ) ECGP20 ERROR =6 . P LDR A2,A3 GET C
0x0c3c94…0c3e28 Dummy {f00=0x003e, f01=0x0190, f02=»ER =3 . f P SUK A4,1 READY ? / P RF(N) ECGP80 YES =3 / ( * P RF(P) ECGP60 NO, GO TO CLEAR SECTION / D P* / r P IFT COSPAC=1 / | P* / P LDK A2,SPACE NO SEND SPACE / P RB ECGP10 / P* / P XIF / P* / P IFT ECHO=1 U =12 /
0x0c3e28…0c3fbc Dummy {f00=0x003e, f01=0x0190, f02=»CHRTN RETURN TO KEYBOARD / P IFT ECHO=1 U =12 0 P EJECT 0 : P* 0 H P* BACKSPACE 0 R P* 0 h PECGP40 EQU * 0 r & P LDK A2,GPBSP BACKSPACE CHARACTER 0 P RB ECGP05 =3 0 P* 0 P* CANCEL 0 P* 0 PECGP50 EQU * 0 * P LC A3
0x0c3fbc…0c4150 Dummy {f00=0x003e, f01=0x0190, f02=»PACE CHARACTERS =3 0 v $ P ADK A2,2 ADD TO BLOCK LENGTH =3 1 $ P CF A5,STABLK START OF BLOCK =3 1 B P RB(NZ) ECGP20 ERROR =6 1 j " P LDK A2,GPCLR CLEAR CHARACTER 1 P LDK A4,3 1 P RB ECGP10 1 PECGP60 LDK A2,LF LINE FEED 1 P =3 1 " PECGP
0x0c4150…0c42e4 Dummy {f00=0x003e, f01=0x0190, f02=» LDK A3,0 1 4 P SC A3,DWTBC+DWTDEV,A6 RESET POSITION COUNTER =3 2 PECGP80 EQU * =3 2 J " P CF A5,ENDBLK END OF BLOCK =3 2 b P RB ECGP20 2 P XIF U =12 2 P EJECT 2 P* 2 P* R C G P 2 P* 2 0 P* RCGP = RECOVERY ROUTINE GENERAL
0x0c42e4…0c4478 Dummy {f00=0x003e, f01=0x0190, f02=» 2 P* 3 P* A6 = DWT-ADDRESS 3 P* A7 = ORDER 3 0 P* A8 = ECB-ADDRESS 3 H PRCGP EQU * 3 f P =3 3 x P =6 3 P LDR A8,A8 BUSY ? =6 3 P ABL(Z) ENDIO NO =11(=6) 3 " P LDK A2,1 BLOCK LENGTH =10(=3) 3 $ P CF A5,STABLK STAR
0x0c4478…0c460c Dummy {f00=0x003e, f01=0x0190, f02=»GP ERROR =3 3 " P CF A5,ENDBLK END OF BLOCK =10 4 P RB(NZ) ERGP ERROR =10 4 : P CWK A7,5 4 X P RF(E) RCGP10 4 j P CWK A7,6 ORDER 6? 4 P RF(E) RCGP05 YES 4 P =10(=6) 4 P =10(=6) 4 P CWK A7,0 ORDER 0? 4 P ABL(E) ENDIO U =7
0x0c460c…0c47a0 Dummy {f00=0x003e, f01=0x0190, f02=»INE FEED DONE ? 4 P ABL(E) ACGP NO =3(=10) 5 $ P LDK A2,BLKMAX BLOCK LENGTH =10 5 8 $ P CF A5,STABLK START OF BLOCK =10 5 ` P RB(NZ) ERGP ERROR =10 5 P LDK A2,SPACE 5 P CF A5,OUTPUT SEND SPACE 5 P RB(NZ) ERGP ERROR =3 5 P =3 5 P
0x0c47a0…0c4934 (5, 42) Dummy {f00=0x003e, f01=0x4170, f02=» =6 5 PRCGP10 EQU * =6 6 P =10(=6) 6 $ P =10(=6) 6 8 $ P LDK A1,TPERR SET RETURN CODE =6 6 L P ABL AGP430 6 t P* 6 P* 6 P* A B G P 6 P* 6 P* ABORT ROUTINE 6 P* 6 PABGP EQU * U =8 6 2 P CF A15,UPDAPP UPD
0x0c4934…0c4ac8 Dummy {f00=0x003e, f01=0x2008, f02=» 7 YTE OF STATUS WORD % ~ P ANK A2,/4 LINE FEED DONE ? & " P ABL(E) ACGP NO & F P LDK A2,STX & ^ P CF A5,OUTPUT SEND STX & r P LDK A2,CR CARRIAGE RETURN & P LDK A3,0 & 0 P LD A4,DWTAP,A6 GET NUMBER OF SPACES TO SEND & P RB ACGP46 & (
0x0c4ac8…0c4c5c Dummy {f00=0x003e, f01=0x0190, f02=»G+OVL=2 * P RF(Z) OVL020 NO D/R OVERLAYS PRESENT POVL015 EQU * > " P ADKL A3,/FFE CALCULATE NO OF R P SRL A3,12 4K BLOCKS NEEDED x P NGR A3,A3 2 P AD A3,MMUENT+STKEND MMU ENTRY WHERE TO BEGIN 0 P ABL(N) TABOVF LOGICAL MEMORY OVERFL
0x0c4c5c…0c4df0 Dummy {f00=0x003e, f01=0x0190, f02=» | P ST A3,APLREL,A1 SAVE IN ACB P LD A2,OVLTLN+STKEND , & P ADK A2,4 CALCULATE START OF THIS H * P AD A2,ACBEND+STKEND OVERLAY TABLE AND r ( P ST A2,APLOVL,A1 SAVE IN CURRENT ACB * P LD A2,SCTSFA SET START OF THIS TABLE P ST A2,CURTAB+
0x0c4df0…0c4f84 Dummy {f00=0x003e, f01=0x0190, f02=»8 DON'T COPY FIRST FOUR WORDS P LDR A10,A3 SAVE LENGTH & 2 P ADS A3,OVLTLN+STKEND ADD LENGTH TO TABLE AREA F P LD A7,SCTSFA | & P ADS A3,SCTSFA RESERVE AREA NEEDED P LDR A8,A7 P IFT MMUPAG+OVL=2 . P ANKL A8,/FFF ISOLATE LOGICAL LO
0x0c4f84…0c5118 Dummy {f00=0x003e, f01=0x0190, f02=»E ( P SRL A3,12 AND NO OF ENTRIES TO EDIT ( P CF A14,MMUEDT UPDATE MMU REGISTERS 6 P XIF b P IFT OVL=1 n P ST A8,LLDADR+STKEND SAVE , P LD A8,APLREL,A1 GET RELOCATION CONSTANT 6 P CM FSTSEC+STKEND SKIP FOUR FIRST WORDS IN SECTOR
0x0c5118…0c52ac Dummy {f00=0x003e, f01=0x0190, f02=»L+STKEND RESTORE CURRENT ACB ADDRESS ( P LD A2,CURTAB+STKEND GET TABLE START , P LD A3,SCTIPL X & P STR A3,A2 FILE CODE FOR OVERLAYS n " P LD A3,2,A2 AND NO OF OVERLAYS , P ADK A2,4 ADVANCE TO CURRENT LOAD BLOCK 4 P LD A4,WINDOW+STKEND ONLY
0x0c52ac…0c5440 Dummy {f00=0x003e, f01=0x0190, f02=» LC A3,OVLTYP,A2 GET TYPE OF OVERLAY P CCK A3,'OO' NORMAL OVERLAY? , P RF(NE) OVL070 P P* f P LD A4,SCTOPT p P SRC A4,2 DISC PAGING? , P RF(NN) OVL100 NO ILLEGAL MONITOR OPTION P* P LDK A3,/FF & P ANS A3,OVLTYP,A2 INIT
0x0c5440…0c60e0 (6, 0) DirGranule ((6, 0)) {
0x0c5440…0c60e0 DirEnt {nam=»UPD4 «, typ=» «, f00=0x0000, f01=0x0000, f02=0x07d8, f03=0x0000}
0x0c5440…0c60e0 DirEnt {nam=»INFO «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x07e0, f03=0x0000}
0x0c5440…0c60e0 DirEnt {nam=»UP11 «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x07e8, f03=0x0000}
0x0c5440…0c60e0 DirEnt {nam=»UP11PT«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x07f0, f03=0x0000}
0x0c5440…0c60e0 DirEnt {nam=»LRPINT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x07f8, f03=0x0000}
0x0c5440…0c60e0 DirEnt {nam=»DRDC15«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0828, f03=0x0000}
0x0c5440…0c60e0 }
0x0c60e0…0c6274 (6, 1) Opaque[0x194]
0x0c6274…0c6408 # DirEnt {nam=»INFO «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x07e0, f03=0x0000}
0x0c6274…0c6408 IdxSect {
0x0c6274…0c6408 f00 = 0x003f // 0xc6274 @0x0
0x0c6274…0c6408 f01 = 0x0002 // 0xc6276 @0x2
0x0c6274…0c6408 gno = [ // 0xc6278 @0x4
0x0c6274…0c6408 [0x00]: C0x003f.0x0.0
0x0c6274…0c6408 ]
0x0c6274…0c6408 }
0x0c6408…0c659c Dummy {f00=0x003f, f01=0x0190, f02=» 4 PTHIS FLEXIBLE DISC CONTAINS UPDATES FOR PTS TOSS PRELEASE 11.0. < , PTHE FOLLOWING MODULES HAVE BEEN UPDATED: R P * PUSER-ID ! MODULE ! DATE ! COMMENT @ P------------------------------------------------------------ < PTOSS11 ! LR
0x0c659c…0c6730 Dummy {f00=0x003f, f01=0x0100, f02=» ! | P @ PYOU CAN UPDATE YOUR SYSTEM SOFTWARE BY ENTERING THE COMMAND PASG /E0,DK,UP11 ^ < PIF YOU DON'T WANT TO HAVE ANY OF YOUR OLD MODULES TO BE v 6 PREPLACED BY THESE NEW MODULES, YOU MUST CHANGE THE PFILE 'UP11'. 11 ! LR
0x0c6730…0c68c4 Dummy {f00=0x003f, f01=0x2008, f02=» ! | P @ PYOU CAN UPDATE YOUR SYSTEM SOFTWARE BY ENTERING THE COMMAND PASG /E0,DK,UP11 ^ < PIF YOU DON'T WANT TO HAVE ANY OF YOUR OLD MODULES TO BE v 6 PREPLACED BY THESE NEW MODULES, YOU MUST CHANGE THE PFILE 'UP11'. 11 ! LR
0x0c68c4…0c6a58 Dummy {f00=0x003f, f01=0x0190, f02=»
[…0x2…]
0x0c6d80…0c6f14 (6, 2) Opaque[0x194]
0x0c6f14…0c70a8 # DirEnt {nam=»UP11 «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x07e8, f03=0x0000}
0x0c6f14…0c70a8 IdxSect {
0x0c6f14…0c70a8 f00 = 0x003f // 0xc6f14 @0x0
0x0c6f14…0c70a8 f01 = 0x0002 // 0xc6f16 @0x2
0x0c6f14…0c70a8 gno = [ // 0xc6f18 @0x4
0x0c6f14…0c70a8 [0x00]: C0x003f.0x1.0
0x0c6f14…0c70a8 ]
0x0c6f14…0c70a8 }
0x0c70a8…0c723c Dummy {f00=0x003f, f01=0x0190, f02=» 4 PMES NOW YOUR SYSTEM SOFTWARE WILL BE UPDATED. 8 PMES YOUR SYSTEM SOFTWARE IS EXPECTED TO BE ON THE < $ PMES DISC WITH FILE-CODE /F0. x : PMES IF THIS IS OK, THEN PRESS THE INT-BUTTON ON THE 8 PMES FULL PANEL AND ENTER 'RS', OTHERWIS
0x0c723c…0c73d0 Dummy {f00=0x003f, f01=0x0120, f02=» PMOV LRPINT,/S,TOSS11 PKPF /S,LRPINT $ 8 PMES REPLACING MODULE DRDC15 11.0 IN USER TOSSWORK : PDEL DRDC15,/S v PMOV DRDC15,/S,TOSS11 PKPF /S,DRDC15 PBYE PUPDATE 4 PMES UPDATING FINISHED AND BACK IN USER UPDATE
0x0c73d0…0c7564 Dummy {f00=0x003f, f01=0x2008, f02=» MOV LRPINT,/S,TOSS11 PKPF /S,LRPINT $ 8 PMES REPLACING MODULE DRDC15 11.0 IN USER TOSSWORK : PDEL DRDC15,/S v PMOV DRDC15,/S,TOSS11 PKPF /S,DRDC15 PBYE PUPDATE 4 PMES UPDATING FINISHED AND BACK IN USER UPDATE
0x0c7564…0c76f8 Dummy {f00=0x003f, f01=0x2008, f02=» MUST CHANGE THE v PFILE 'UP11'. ! DRSU01 ! 81-08-31 ! SOLUTION OF PROBLEM: 8556 , < P ! DRGP01 ! 81-08-31 ! SOLUTION OF PROBLEM: 8556 l " P ! ! ! P @ PYOU CAN UPDATE YOUR SYSTEM SOFTWARE BY ENTERIN
0x0c76f8…0c788c Dummy {f00=0x003f, f01=0x0190, f02=»NO OF SECTORS ON UNPACKED PTS 6875 | , PSECLEN EQU 256 SECTOR LENGTH, CHARACTERS * * PPHSECL EQU 384 PHYSICAL SECTOR LENGTH Z PQRETRY EQU 4 NO OF RETRIES PTIME EQU 1000 1 MIN 40 SEC P* P* P EJECT DRDU01 DRDU01 P*
0x0c788c…0c7a20 Dummy {f00=0x003f, f01=0x0190, f02=»ABORT ROUTINE ADDRESS P* P IFT VERSA3=1 ( PBUFFER RES 193 > P XIF T P* ` P IFT VERSA3=0 j PBUFFER RES 25 P* P IFT RAW=1 P RES 103 P XIF P IFT VERSA2=1 =2 ( PCYLBUF RES 2 CYL ID CHECK BUFFER
0x0c7a20…0c7bb4 (6, 3) Opaque[0x194]
0x0c7bb4…0c7d48 # DirEnt {nam=»UP11PT«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x07f0, f03=0x0000}
0x0c7bb4…0c7d48 IdxSect {
0x0c7bb4…0c7d48 f00 = 0x003f // 0xc7bb4 @0x0
0x0c7bb4…0c7d48 f01 = 0x0002 // 0xc7bb6 @0x2
0x0c7bb4…0c7d48 gno = [ // 0xc7bb8 @0x4
0x0c7bb4…0c7d48 [0x00]: C0x003f.0x2.0
0x0c7bb4…0c7d48 ]
0x0c7bb4…0c7d48 }
0x0c7d48…0c7edc Dummy {f00=0x003f, f01=0x018e, f02=» 4 PMES NOW YOUR SYSTEM SOFTWARE WILL BE UPDATED. 8 PMES YOUR SYSTEM SOFTWARE IS EXPECTED TO BE ON THE < $ PMES DISC WITH FILE-CODE /F0. x : PMES IF THIS IS OK, THEN PRESS THE INT-BUTTON ON THE 8 PMES FULL PANEL AND ENTER 'RS', OTHERWIS
0x0c7edc…0c8070 Dummy {f00=0x003f, f01=0x0120, f02=» PMOV LRPINT,/S,TOSS11 PKPF /S,LRPINT $ 8 PMES REPLACING MODULE DRDC15 11.0 IN USER TOSSWORK : PDEL DRDC15,/S v PMOV DRDC15,/S,TOSS11 PKPF /S,DRDC15 PBYE PUPDATE 4 PMES UPDATING FINISHED AND BACK IN USER UPDATE
0x0c8070…0c8204 Dummy {f00=0x003f, f01=0x2008, f02=» MOV LRPINT,/S,TOSS11 PKPF /S,LRPINT $ 8 PMES REPLACING MODULE DRDC15 11.0 IN USER TOSSWORK : PDEL DRDC15,/S v PMOV DRDC15,/S,TOSS11 PKPF /S,DRDC15 PBYE PUPDATE 4 PMES UPDATING FINISHED AND BACK IN USER UPDATE
0x0c8204…0c8398 Dummy {f00=0x003f, f01=0x0190, f02=»
[…0x2…]
0x0c86c0…0c8854 (6, 4) Opaque[0x194]
0x0c8854…0c89e8 # DirEnt {nam=»LRPINT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x07f8, f03=0x0000}
0x0c8854…0c89e8 IdxSect {
0x0c8854…0c89e8 f00 = 0x003f // 0xc8854 @0x0
0x0c8854…0c89e8 f01 = 0x000c // 0xc8856 @0x2
0x0c8854…0c89e8 gno = [ // 0xc8858 @0x4
0x0c8854…0c89e8 [0x00]: C0x003f.0x3.0
0x0c8854…0c89e8 [0x01]: C0x0040.0x0.0
0x0c8854…0c89e8 [0x02]: C0x0040.0x1.0
0x0c8854…0c89e8 [0x03]: C0x0040.0x2.0
0x0c8854…0c89e8 [0x04]: C0x0040.0x3.0
0x0c8854…0c89e8 [0x05]: C0x0041.0x0.0
0x0c8854…0c89e8 ]
0x0c8854…0c89e8 }
0x0c89e8…0c8b7c Dummy {f00=0x003f, f01=0x0190, f02=» 2 P IDENT LRPINT REL 11.0 81-09-16 870105041100 P : P =2, POWER FAIL IN MOVES B P REL 11.0 81-07-27 d P =1,60 HZ COND BUG P REL 11.0 81-01-26 P P* P* 6 P**************************************************
0x0c8b7c…0c8d10 Dummy {f00=0x003f, f01=0x0190, f02=»OWER FAILURE ~ P* P* P* ( P* 2 P* < 6 P************************************************** F P* P* : P* THIS MODULE CONTAINS MANDATORY INTERRUPT HANDLERS P* FOR TOSS. THESE ARE: P* P* -IHLKM:
0x0c8d10…0c8ea4 Dummy {f00=0x003f, f01=0x0190, f02=»E FOLLOWING ENTRIES ARE USED TO QUEUE TASKS: P* 4 6 P* -LKMRQE: SET A7 = -1, QUEUE TASK AND DISPATCH > P* x H P* -LKMSRC: SET A7 TO RETURN CODE (C(A2)), QUEUE TASK AND DISPATCH P* ( P* -LKMQDI: QUEUE TASK AND DISPATCH P*
0x0c8ea4…0c9038 Dummy {f00=0x003f, f01=0x0190, f02=» IHLKM LKM INTERRUPT HANDLER 4 P ENTRY LKM030 SPECIAL TLDSEG REQUEST ERROR ENTRY $ $ P ENTRY LKMRQE LKM REQUEST ERROR 4 P ENTRY LKMERR HALT SYSTEM DUE TO FATAL LKM ERROR * P ENTRY LKMQDI QUEUE TASK AND DISPATCH 0 P ENTRY LKMSRC SET RETURN CODE
0x0c9038…0c91cc Dummy {f00=0x003f, f01=0x018e, f02=»O MONITOR CLOCK 2 P ENTRY IHPFAR POWER FAILURE INTERRUPT HANDLER & P ENTRY INIFLG INITIALIZATION FLAG N * P ENTRY PFPOST PWF POST PROCESSING FLAG x P EJECT LRPINT P* P* P************* P* EXTERNALS * P**********
0x0c91cc…0c9360 Dummy {f00=0x003f, f01=0x0190, f02=» n " P EXTRN MEXIT MONITOR TASK EXIT , P EXTRN MONMMU MONITOR (SYSTEM) MMU TABLE . P EXTRN QTJOB QUEUE TASK ^ $ P EXTRN QMJOB QUEUE MONITOR TASK ~ $ P EXTRN SWL48 SWITCH TO LEVEL 48 $ P EXTRN SWLXY SWITCH TO LEVEL XY P EXTRN FREBLK SET
0x0c9360…0c94f4 (6, 5) Dummy {f00=0x0040, f01=0x0190, f02=»NTSAV INTERRUPT SAVE MODULE P EXTRN RELPAG RELEASE PAGE $ , P EXTRN TLDSEG LOAD SEGMENT LKM PROCESSOR F ( P EXTRN TTB:SB SEGMENT BLOCK POINTER v & P EXTRN TTB:PW PROGRAM STATUS WORD 2 P EXTRN TTB:SA FIRST WORD OF SAVE AREA IN TTAB " P EXTRN
0x0c94f4…0c9688 Dummy {f00=0x0040, f01=0x0190, f02=»* CONDITIONAL ASSEMBLY P* . P***************************************** ( P* Z . P* A PROGRAM VERSION USING TOSS MMU PAGING d * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 0 P* P* 6 P* A PROGRAM VERSIO
0x0c9688…0c981c Dummy {f00=0x0040, f01=0x0190, f02=» . P* A PROGRAM VERSION USING TOSS DISC PAGING * P* IS OBTAINED BY SETTING DSKPAG EQU 1. 6 P* d PDSKPAG EQU 0 n P* P* 8 P* A PROGRAM VERSION USING NO MONITOR CLOCK FUNCTIONS * P* IS OBTAINED BY SETTING MONCLK EQU 0. P*
0x0c981c…0c99b0 Dummy {f00=0x0040, f01=0x0190, f02=»TIONS h 2 P* IS OBTAINED BY SETTING MONDAT = MONCLK = 1. P* D PX:B EQU 0 N PMONDAT EQU X:B ` P* v P* 4 P* A PROGRAM VERSION WITH MONITOR CLOCK FUNCTIONS 4 P* ADAPTED TO 60 HERTZ NET FREQUENCY (USA/CANADA) , P* IS OBTAINED
0x0c99b0…0c9b44 Dummy {f00=0x0040, f01=0x0190, f02=» LRPINT P* P* P* I H L K M & P* < P* F 8 P* THIS IS THE LKM INTERRUPT HANDLER. THE FOLLOWING P P* STEPS ARE CARRIED OUT: P* * P* - IF STACK OVERFLOW SYSTEM HALTS. P* D P* - ELSE REGISTERS A1
0x0c9b44…0c9cd8 Dummy {f00=0x0040, f01=0x0190, f02=»E LKM PROCESSOR. P* P* EXIT CONDITIONS ARE: " P* B * P* A4 = LABEL ADDRESS OF LKM REQUEST L 8 P* (A4 = 0 INDICATES NO LABEL IN LKM REQUEST) z * P* A5 = TTAB ADDRESS OF CALLING TASK P* A6 = LKM DATA DIRECTIVE P
0x0c9cd8…0c9e6c Dummy {f00=0x0040, f01=0x0190, f02=»U * $ P ST P,INTSAV SAVE LAST INTERRUPT * P RIT /1D RESET INTERNAL INTERRUPT FLAG 4 P* b P EJECT LRPINT l P* P* P ST A15,LKM010 SAVE A15 " P LD A15,PRUN LOAD TTAB ADDRESS P* P IFT CPU852=1 4 P ADKL A15,
0x0c9e6c…0ca000 Dummy {f00=0x0040, f01=0x0190, f02=» ~ P STR A11,A15 -A11 P STR A10,A15 -A10 " P STR A9,A15 -A9 < P STR A8,A15 -A8 T P STR A7,A15 -A7 l P STR A6,A15 -A6 P STR A5,A15 -A5 P STR A4,A15 -A4 P STR A3,A15 -A3 P STR A2,A15 -A2 P STR A1,A15
0x0ca000…0ca194 (6, 6) Dummy {f00=0x0040, f01=0x0190, f02=» LD A5,PRUN TTAB ADDRESS OF CALLING TASK * P LDKL A15,0 RESTORE A15 STACK POINTER 0 PLKM010 EQU *-2 ^ P* t P EJECT LRPINT ~ P* " P* GET LKM REQUEST PARAMETERS P* P LDR* A3,A15 4 P LDR* A2,A15 LOAD P.C. AND ADJUST ST
0x0ca194…0ca328 Dummy {f00=0x0040, f01=0x0190, f02=»* A6,A2 DATA DIRECTIVE P XIF P* * P IFT MMUPAG=1 4 P ANK A3,1 J P RF(NZ) LKM015 USER MODE * P TL MONMMU NO, LOAD MONITOR MMU TABLE | P* PLKM015 EQU * " P EL A3,-2,A2 INSTRUCTION CODE P ELR A6,A2 DATA DIRECTIVE
0x0ca328…0ca4bc Dummy {f00=0x0040, f01=0x0190, f02=»* STACK OVERFLOW: HALT SYSTEM P* ( P LDK A1,7 HALT PARAMETER 2 0 P RF LKM070 HALT SYSTEM DUE TO STACK OVERFLOW R P* P EJECT LRPINT P* P* PLKM025 EQU * & P ADK A2,2 UPDATE DISPATCH ADDRESS P* P IFF
0x0ca4bc…0ca650 Dummy {f00=0x0040, f01=0x0190, f02=»PAG=1 * P LD A3,TTB:SB,A5 SEGMENT BLOCK ADDRESS P RF(Z) LKM030 NO SEGMENT < P LCR A4,A3 SEGMENT STATUS , P ANK A4,/5E CHECK IF CORE RESIDENT OR... ~ 2 P RF(NZ) LKM030 ...USED BY AN INTERRUPTED TASK P CF A15,RELPAG RELEASE PAGE P
0x0ca650…0ca7e4 Dummy {f00=0x0040, f01=0x0190, f02=»5,SWL48 SWITCH TO LEVEL 48 P LDK A4,0 " P LDR A3,A6 DATA DIRECTIVE 4 P RF(NN) LKM050 NO LABEL V P* v P* LKM REQUEST WITH LABEL P* P IFT MMUPAG=0 P LDR* A4,A2 LABEL P XIF P* P IFT MMUPAG=1 P
0x0ca7e4…0ca978 Dummy {f00=0x0040, f01=0x018e, f02=»* P EJECT LRPINT P* " . P* UPDATE TTB:SA AND GO TO LKM PROCESSOR , P* ^ PLKM050 EQU * h . P ST A2,TTB:SA,A5 SET NEXT DISPATCH ADDRESS | P ADR A3,A3 INDEX IN LKMAL & P RF(Z) LKMQDI TASK SWITCH REQUEST P CW A3,LKMAL
0x0ca978…0cab0c Dummy {f00=0x0040, f01=0x0190, f02=» P EJECT LRPINT P* P* * P* L K M E R R 4 P* L P* V > PLKMERR LDK A1,15 INDICATE REQUESTED LKM PROC. NOT PRESENT ` P* PLKM070 EQU * P CF A15,HALT HALT SYSTEM P* P* P* L K M R Q E
0x0cab0c…0caca0 Dummy {f00=0x0040, f01=0x0190, f02=» P LDKL A2,-1 P* P* & P* L K M S R C 0 P* H . P* SET A7 = A2, QUEUE TASK AND DISPATCH. R P* P* A2 = RETURN CODE P* A5 = TTAB ADDRESS P* P* PLKMSRC EQU * 8 P ST A2,TTB:SA+14,A5 SET
0x0caca0…0cae34 (6, 7) Dummy {f00=0x0040, f01=0x0190, f02=» P* P* A5 = TTAB ADDRESS P* , P* 6 PLKMQDI EQU * @ P CF A15,QTJOB T P* j * PT:DISP EQU * COMMON EXIT TO DISPATCHER t P ABL TDISP GO TO DISPATCHER P* P EJECT LRPINT P P* P* I H P F A
0x0cae34…0cafc8 Dummy {f00=0x0040, f01=0x0190, f02=»BLOCK ADDRESS P DATA 0 & PTTABPF DATA 0 TTAB FOR POWER FAIL & P DATA '#P' P P DATA 0 b PA15SAV DATA 0 r P DATA /00C0 P DATA PFTASK P P P P P & PPFX DATA 1 POWER ON/OFF INDICATOR $ P P=P
0x0cafc8…0cb15c Dummy {f00=0x0040, f01=0x0190, f02=»F POST PROCESSING FLAG P NZ=PWF POST PROCESSING P EJECT LRPINT @ P X P* ` * P* POWER FAIL/AUTO RESTART INTERRUPT j P* P PIHPFAR EQU * $ P ST P,INTSAV SAVE LAST INTERRUPT & P RIT /17 RESET INTERNAL INTERRUP
0x0cb15c…0cb2f0 Dummy {f00=0x0040, f01=0x018e, f02=»1 & P CF A15,SAVE8 SAVE A1-A14 ON STACK P STR A9,A15 4 P STR A10,A15 H P STR A11,A15 P STR A12,A15 p P STR A13,A15 P STR A14,A15 P XIF P P IFT CPU852=0 $ P MSR 14,A15 SAVE A1-A14 ON STACK P XIF
0x0cb2f0…0cb484 Dummy {f00=0x0040, f01=0x0190, f02=» P EJECT LRPINT P P* ( P* POWER ON 2 P* F P P " PPOWON LD A15,A15SAV RELOAD A15 X P ~ P IFT MMUPAG=1 $ P TL -30,A15 RESTORE MMU TABLE =2 P XIF P IFT CPU852=1 P LDR* A14,A15 RESTORE A9-A14
0x0cb484…0cb618 Dummy {f00=0x0040, f01=0x0190, f02=»PU852=0 P MLR 14,A15 RESTORE A9-A14 P MSR 8,A15 2 P XIF D P P 4 P LD A1,DISQUE QUEUE PFTASK FIRST FOR DISPATCHING X P LDKL A2,TTABPF P CWR A1,A2 4 P RB(E) T:DISP ALREADY QUEUED, PWF DURING PFPOST P STR A1,A2 P ST
0x0cb618…0cb7ac Dummy {f00=0x0040, f01=0x0190, f02=»FAIL TASK . P* STARTED AFTER ALL PWF POST PROCESSING P* D P N . PPFTASK CM PFPOST CLEAR PWF POST PROC FLAG V P CM INIFLG AND INIT FLAG & P CF A15,PFINIT RESTART I/O DEVICES P CM PRUN EXIT PFTASK P RB T:DISP P EJECT
0x0cb7ac…0cb940 Dummy {f00=0x0040, f01=0x0190, f02=»WILL BE PROCESSED EACH 100 MS. | P* & * PIHRTC ST P,INTSAV SAVE LAST INTERRUPT 0 " P RIT /1B RESET INTERRUPT FLAG ^ P IM COUNT $ P RF(P) RTC010 CHECK TIMER QUEUE P RTN A15 P* PRTC010 EQU * P IFT CPU852=1 & P CF A1
0x0cb940…0cbad4 (6, 8) Dummy {f00=0x0040, f01=0x0190, f02=» P EJECT LRPINT P* P* & P IFT NETFRQ=50 0 " P LDKL A4,-4 SET 100 MS SWITCH F P XIF l P* x P IFT NETFRQ=60 " P LDKL A4,-5 SET 100 MS SWITCH P XIF P ST A4,COUNT =1 P* . P LDKL A2,CLOCK QUEUE CLOCK R
0x0cbad4…0cbc68 Dummy {f00=0x0040, f01=0x0190, f02=» XIF P* PSWDISP EQU * $ P CF A15,SWLXY SWITCH TO LEVEL XY * P RB T:DISP R P* d P EJECT LRPINT n P* P* P IFT MONCLK=1 P* < P* MONITOR CLOCK UPDATING ROUTINE STARTED EACH SECOND. P* PRTC0
0x0cbc68…0cbdfc Dummy {f00=0x0040, f01=0x018e, f02=»ES AND SECONDS p P* ( PMCLO20 IM MONCLO+2,A4 INCREMENT TIME . P XR A3,MONCLO+2,A4 CHANGE MINUTES OR HOURS L $ P RB(NE) SWDISP GO TO DISPATCHER ~ ( P CM MONCLO+2,A4 RESTART TIME COUNTER P SUK A4,2 END 6 P RF(N) MCLO30 MIDNIGHT CARRY AND
0x0cbdfc…0cbf90 Dummy {f00=0x0040, f01=0x0190, f02=» ( P IM MCARRY INCREMENT MIDNIGHT CARRY ! P* ! 4 P EJECT LRPINT ! > P* ! V P* ! ` P IFT MONDAT=1 ! j P* ! P* UPDATE DAY, MONTH AND YEAR ! P* ! P IFT CPU852=1 ! P LDKL A1,MONTH MONTH ADDRESS ! P LDKL A2,DAY DAY ADDRE
0x0cbf90…0cc124 Dummy {f00=0x0040, f01=0x0190, f02=»H AND DAY ADDRESS TO A1 AND A2 ! z P XIF " & P* " 2 P IFT MONCLK+MONDAT=2 " < P IMR A2 INCREMENT DAY " X P LDR* A4,A1 MONTH " v P LDR A6,A4 " P LDR* A5,A2 NEW DAY " " P SUK A5,29 CHECK IF DAY WAS 28 " 0 P RF(Z) MCLO40 YES, GO AND CHECK IF F
0x0cc124…0cc2b8 Dummy {f00=0x0040, f01=0x0190, f02=» RETURN " ~ ( P RF MCLO50 YES, WE HAVE A NEW MONTH # P* # < PMCLO40 EQU * # F P SUK A6,2 CHECK IF FEBRUARY # Z P RB(NZ) SWDISP NO, RETURN # ~ P* # P EJECT LRPINT # P* # & P* CHANGE TO NEW MONTH (AND YEAR?) # P* # P* #
0x0cc2b8…0cc44c Dummy {f00=0x0040, f01=0x0190, f02=»NZ) SWDISP NO, RETURN # $ P STR A3,A1 SET MONTH TO JANUARY $ P IM YEAR HAPPY NEW YEAR!!! $ F P RB SWDISP RETURN $ h P* $ PMCLO60 EQU * $ P LDR A7,A6 MONTH $ P ANK A6,1 $ P RF(Z) MCLO70 MONTH EVEN $ P SUK A7,7 $ ( P RB(P) MCLO5
0x0cc44c…0cc5e0 Dummy {f00=0x0040, f01=0x0190, f02=»O50 APRIL OR JUNE $ P XIF % P* % & P IFT MONCLK=1 % 0 P RB SWDISP RETURN % F P XIF % ` P* % l P EJECT LRPINT % v P* % P* % P* M O N C L O % P* % P* % P IFT MONCLK+MONDAT=2 % , P DATA 0 THIS WORD USED BY MONT
0x0cc5e0…0cc774 (6, 9) Dummy {f00=0x0041, f01=0x0190, f02=» , PMCARRY DATA 0 ACKUMULATED 24 HOUR CARRY & P DATA 0 HOUR & 4 P DATA 0 MINUTE & H P DATA 0 SECOND & ^ PSECOND DATA 0 SECOND SWITCH & t P XIF & P* & P EJECT LRPINT & P* & * P* CLOCK ROUTINE STARTED EACH 100 MS. & P* & P
0x0cc774…0cc908 Dummy {f00=0x0041, f01=0x0190, f02=»CK & v P ABL(Z) MEXIT END OF QUEUE ' P IM 4,A4 INCREMENT TIMER ' , P RB(N) CLK10 NOT TIME OUT ' L P RF(Z) CLK30 TIME OUT ' n P LDR* A3,A4 RELEASE TIMER ' P STR A3,A6 ' P CF A15,FREBLK ' P LDR A4,A2 ' P CF A15,FREBLK ' P RB CLK20
0x0cc908…0cca9c Dummy {f00=0x0041, f01=0x0190, f02=»VEL 48 ' v P INH ( P RB CLK10 ( P* ( , PCLK40 EQU * ( 6 P IFT CPU852=1 ( J & P CF A15,SAVE8 SAVE A1-A8 ON STACK ( ` P XIF ( P* ( P IFT CPU852=0 ( " P MSR 8,A15 SAVE A1-A8 ON STACK ( P XIF ( P* ( & P LDKL A1,/C4C0 LEVEL 4
0x0cca9c…0ccc30 Dummy {f00=0x0041, f01=0x4124, f02=»2 GO TO TIME OUT ROUTINE ( P* ) P* ) * PCOUNT DATA 0 100 MS SWITCH ) 4 P* ) V P* ) ` P* T I M Q U E ) j P* ) . P* POINTER TO FIRST BLOCK IN TIMER QUEUE ) P* ) P* ) PTIMQUE EQU * ) P DATA 0 ) P* ) P* )
0x0ccc30…0ccdc4 Dummy {f00=0x0041, f01=0x2008, f02=» * POINTER z PPFA210 EQU *-2 ( P CM INIFLG RESET INITIALIZATION FLAG . * P CF A15,PFINIT RESTART COMMON DEVICES Z 4 P ABL RETU14 RESTORE A1-A14 FROM INTERRUPT STACK P END @ 13,A15 P STR A14,A15 * P ST A15,PFA210 SAVE A1
0x0ccdc4…0ccf58 Dummy {f00=0x0041, f01=0x0190, f02=» _ : @ | ` |U WP L P _ @ P _" l 0 W r P . ! A . @ : ;h 0 :C # : .=H N zZ y .=H N zZ y N : d 8" R _ ZY QY : L ? ? R
0x0ccf58…0cd0ec Dummy {f00=0x0041, f01=0x0190, f02=»P _ _ @ @ :b @ :b V W U4 T 9BW P P( X V W Y P @ Q @ P A. @ @ P _l A 9n A :B A @ | < | P: N P4 9b .V 3 S S :b Y* AS
0x0cd0ec…0cd280 Dummy {f00=0x0041, f01=0x0190, f02=» S @ P 3 _ ) 3 ) | Z A. @ @ W A 2 J : A $ ) _ > +* } } } P~N 1~ 2~ } @ / KB ~$
0x0cd280…0cd414 (6, 10) Opaque[0x194]
0x0cd414…0cd5a8 # DirEnt {nam=»DRDC15«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0828, f03=0x0000}
0x0cd414…0cd5a8 IdxSect {
0x0cd414…0cd5a8 f00 = 0x0041 // 0xcd414 @0x0
0x0cd414…0cd5a8 f01 = 0x003e // 0xcd416 @0x2
0x0cd414…0cd5a8 gno = [ // 0xcd418 @0x4
0x0cd414…0cd5a8 [0x00]: C0x0041.0x1.0
0x0cd414…0cd5a8 [0x01]: C0x0041.0x2.0
0x0cd414…0cd5a8 [0x02]: C0x0041.0x3.0
0x0cd414…0cd5a8 [0x03]: C0x0042.0x0.0
0x0cd414…0cd5a8 [0x04]: C0x0042.0x1.0
0x0cd414…0cd5a8 [0x05]: C0x0042.0x2.0
0x0cd414…0cd5a8 [0x06]: C0x0042.0x3.0
0x0cd414…0cd5a8 [0x07]: C0x0043.0x0.0
0x0cd414…0cd5a8 [0x08]: C0x0043.0x1.0
0x0cd414…0cd5a8 [0x09]: C0x0043.0x2.0
0x0cd414…0cd5a8 [0x0a]: C0x0043.0x3.0
0x0cd414…0cd5a8 [0x0b]: C0x0044.0x0.0
0x0cd414…0cd5a8 [0x0c]: C0x0044.0x1.0
0x0cd414…0cd5a8 [0x0d]: C0x0044.0x2.0
0x0cd414…0cd5a8 [0x0e]: C0x0044.0x3.0
0x0cd414…0cd5a8 [0x0f]: C0x0045.0x0.0
0x0cd414…0cd5a8 [0x10]: C0x0045.0x1.0
0x0cd414…0cd5a8 [0x11]: C0x0045.0x2.0
0x0cd414…0cd5a8 [0x12]: C0x0045.0x3.0
0x0cd414…0cd5a8 [0x13]: C0x0046.0x0.0
0x0cd414…0cd5a8 [0x14]: C0x0046.0x1.0
0x0cd414…0cd5a8 [0x15]: C0x0046.0x2.0
0x0cd414…0cd5a8 [0x16]: C0x0046.0x3.0
0x0cd414…0cd5a8 [0x17]: C0x0047.0x0.0
0x0cd414…0cd5a8 [0x18]: C0x0047.0x1.0
0x0cd414…0cd5a8 [0x19]: C0x0047.0x2.0
0x0cd414…0cd5a8 [0x1a]: C0x0047.0x3.0
0x0cd414…0cd5a8 [0x1b]: C0x0048.0x0.0
0x0cd414…0cd5a8 [0x1c]: C0x0048.0x1.0
0x0cd414…0cd5a8 [0x1d]: C0x0048.0x2.0
0x0cd414…0cd5a8 [0x1e]: C0x0048.0x3.0
0x0cd414…0cd5a8 ]
0x0cd414…0cd5a8 }
0x0cd5a8…0cd73c Dummy {f00=0x0041, f01=0x0190, f02=» 0 P IDENT DRDC15 REL 11.0 81-09-09 870105041100 P 8 " P =17, RETURN CODE AT CONNECT @ ( P =16, DLOBUF DESTROYED AT CONNECT f . P =15, NO NEED TO RES 1 WORD BEFORE DATA * P =14, LOSS OF DRIVER RECEIVE BUFFER P REL 11.0 81-05-21
0x0cd73c…0cd8d0 Dummy {f00=0x0041, f01=0x0190, f02=»11, PROCEDURE TIMER PROBLEM P =10, EOT ON SPECIFIC POLL $ $ P =9, REMAINING TIME IN ECBCW1 H P REL 11.0 81-04-12 p " P =8, ODD USER BUFFER ADDRESS P =7, BINARY STORE PROBLEM P REL 11.0 81-04-07 ( P =6, ERROR IN POLL T
0x0cd8d0…0cda64 Dummy {f00=0x0041, f01=0x0190, f02=»INSTRUCTIONS NOT USED $ P =2, CHANGES IN STATUS HANLING ( P =1, ERROR IN OPEN/CLOSE REQUESTS F P REL 11.0 81-01-26 r P* P* 2 P********************************************* P* $ P* PHILIPS TERMINAL SYSTEM PTS
0x0cda64…0cdbf8 Dummy {f00=0x0041, f01=0x0190, f02=» t P* P* P* P* & P* 0 8 P**************************************************** : P EJECT v P* P* P* ENTRY POINTS P* 2 P ENTRY DC15AD ADDRESS BLOCK TERMINAL REQUESTS " P ENTRY IH1501 INPUT INTERR
0x0cdbf8…0cdd8c Dummy {f00=0x0041, f01=0x0190, f02=» P* P* P* EXTERNAL REFERENCES P* : " P EXTRN TDISP DISPATCHER ENTRY D ( P EXTRN SAVE8 SAVE A1-A8 ON A15 STACK j $ P EXTRN TENDIO COMPLETE I/O EVENT P EXTRN SETIME SET TIMER P EXTRN DWTCHP DWT ADDRESS P EXTRN D
0x0cdd8c…0cdf20 Dummy {f00=0x0041, f01=0x0190, f02=» ECB IF MMU ~ P EXTRN DWTMEC MMU ECB P EXTRN ECBFC FILE CODE 2 P EXTRN ECBBA BUFFER ADDRESS P " P EXTRN ECBRL REQUESTED LENGTH t " P EXTRN ECBEL EFFECTIVE LENGTH P EXTRN ECBCW1 CONTROL WORD 1 P EXTRN ECBCW2 CONTROL WORD 2 P
0x0cdf20…0ce0b4 (6, 11) Dummy {f00=0x0041, f01=0x0190, f02=»ASCII TABLE x . P EXTRN DCSRED READ STATISTICS ENTRY POINT : P EXTRN DCSRLL RESET ALL STATISTICS BUFFERS ENTRY POINT F : P EXTRN DCSUPS UPDATE STATISTICS ENTRY POINT IN DCSTAT 8 P EXTRN GETDNA VALIDATE AND CONVERT SYMBOLIC DTE ADDR 8 P EXTRN GET
0x0ce0b4…0ce248 Dummy {f00=0x0041, f01=0x0190, f02=» h 0 P EXTRN DISEND COMPLETE REQUEST AND DISPATCH * P EXTRN PFPOST WAIT FOR POWER UP IF SET < P EJECT j J P********************************************************************** z P* P* REGISTER USAGE: P* P* A1 WORK (RETURN
0x0ce248…0ce3dc Dummy {f00=0x0041, f01=0x0190, f02=»A6 DWT ADDRESS $ P* A7 ORDER CODE, DTETAB ADDRESS P* A8 ECB ADDRESS > P* V L P************************************************************************ ` P EJECT < P******************************************************* P* * P
0x0ce3dc…0ce570 Dummy {f00=0x0041, f01=0x0190, f02=»U 0 IF 1 INTERRUPT LOGGING PLOGG EQU X:B " " PX:C EQU 600 POLL TIMEOUT VALUE 6 PTIMPOL EQU X:C * PX:D EQU 0 STATUS AND RVI HANDLING IF=1 r PSTARVI EQU X:D ( PX:E EQU 0 READ COMMAND HANDLING IF=1 PRCOM EQU X:E & PX:F EQU 254 TRANSM
0x0ce570…0ce704 Dummy {f00=0x0041, f01=0x018e, f02=»LL HANDLING v PSPECP EQU X:H , PX:I EQU 0 IF = 1 LINE SPEED SET TO HIGH * ( P IF = 0 LINE SPEED IS SET TO LOW Z PSPEED EQU X:I * PX:J EQU 0 IF 1 SIEMENS MSV1 PROCEDURE PMSV1 EQU X:J . PX:K EQU 2 NUMBER OF RECEIVE BUFFERS (2-5)
0x0ce704…0ce898 Dummy {f00=0x0041, f01=0x0190, f02=» , PLCUIN EQU X:M DEVICE ADDRESS OF RECEIVER P XIF 8 P IFT P6805=1 D , PLCUIN EQU /0A DEVICE ADDRESS OF RECEIVER X P XIF P IFT P6805=0 SALCUZ < PLCUUT EQU LCUIN+/10 DEVICE ADDRESS OF TRANSMITTER SALCUZ P XIF SALCUZ P I
0x0ce898…0cea2c Dummy {f00=0x0041, f01=0x0190, f02=» IF 1 IBM CHARACTER HANDLING . PX:O EQU 0 IF 1 MESSAGE PASSING TO DC TASK $ PMESPAS EQU X:O V 4 PX:P EQU 0 IBM-3270 EMULATION PACKAGE, IF NOT = 0 l PEM3270 EQU X:P PX:Q EQU 0 * PTPMODE EQU X:Q IF = 1 TRANSPARANT MODE PX:R EQU 0
0x0cea2c…0cebc0 Dummy {f00=0x0041, f01=0x0190, f02=»RY TRANSMISSION z , PDMRK EQU 0 SPECIAL CONDITION FOR DENMARK 4 PNOWACK EQU 0 WHEN WORKING WITH A MAIN-FRAME THAT H 0 P DOESN'T ACCEPT WACK RESPONSE TO A SELECT 0 P SEQUENCE, NOWACK SHOULD BE SET TO "ONE". P =2 P PREMTIM EQU
0x0cebc0…0ced54 (6, 12) Dummy {f00=0x0041, f01=0x0190, f02=»ECEIVE REQUESTS =9 P* P IFT SPEED=1 $ PLSPEED EQU /0200 8 P XIF P P IFT SPEED=0 PLSPEED EQU 0 p P XIF P EJECT P* P* . P***************************************** P* P* CONDITIONAL ASSEMBLY
0x0ced54…0ceee8 Dummy {f00=0x0041, f01=0x0190, f02=»D BY SETTING MMUPAG EQU 1. P* " PMMUPAG EQU 0 , P* @ P* J 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION T . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 1 P* 0 PDEVIND EQU 0 DEVICE INDEX DATA C
0x0ceee8…0cf07c Dummy {f00=0x0041, f01=0x018e, f02=»** l * 2 -* DCDEFS COMMON DEFS FOR DC DRIVERS/PACKAGES * J * &************************************** T , '*************************************** * * TABLE AND PACKET LAYOUTS * , '**********************
0x0cf07c…0cf210 Dummy {f00=0x0041, f01=0x0190, f02=» * * DWT, DEVICE WORK TABLE * . L P************************************************************************ 8 * P* ................... P* 0 . DWTCHP . P* ................... P* 2 . DWTST
0x0cf210…0cf3a4 Dummy {f00=0x0041, f01=0x018e, f02=» DWTOR . P* ................... P* 8 . DWTADR . 4 P* ................... V P* 10 . DWTTAB . x P* ................... P* 12 . DWTWAT . P* ................... P* 14 .
0x0cf3a4…0cf538 Dummy {f00=0x0041, f01=0x0190, f02=» t , P* (18). DWTMEC . IF MMUPAG P* ................... 8 $ P* DWTDRD +2 . DWTSTB . Z $ P* ................... P* +4 . DWTCHD . P* ................... P* +6 . DWTCHN .
0x0cf538…0cf6cc Dummy {f00=0x0041, f01=0x0190, f02=» v P* ................... P* +12 . DWTDR1/SUB . * P* ................... L P* +14 . DWTRCL . n P* ................... P* +16 . DWTRTV . P* ................... P* +18 . DWTRTP
0x0cf6cc…0cf860 Dummy {f00=0x0041, f01=0x0190, f02=» . ~ P* ................... P* +24 . DWTIPC . 2 P* ................... T P* +26 . DWTIPT . v P* ................... P* +28 . . P* / DRIVER DEPEND / P* /
0x0cf860…0cf9f4 (6, 13) Dummy {f00=0x0042, f01=0x0190, f02=»TSTB /=0 d P* / BUFFER / P* ................... 2 P* T P EJECT ^ P* l > P********************************************************* v P* & P* D W T D I S P L A C E M E N T S P* > P******************
0x0cf9f4…0cfb88 Dummy {f00=0x0042, f01=0x0190, f02=»TART OF DRIVER DEPENDENT AREA | P XIF & P IFT MMUPAG=1 2 6 PDWTDRD EQU DWTTQ+6 START OF DRIVER DEPENDENT AREA H P XIF D PDWTSTB EQU DWTDRD OFFSET REL START DWT TO STATISTIC BUFF IF ANY 2 PDWTCHD EQU DWTDRD+2 CONFIG CHAIN LINK HEAD DWT
0x0cfb88…0cfd1c Dummy {f00=0x0042, f01=0x018e, f02=»TE SYMBOLIC DTE ADDRESS x * PDWTDR1 EQU DWTDRD+10 DRIVER DEP WORD 1 * PDWTSUB EQU DWTDR1 SYMBOLIC SUBADDRESS N . PDWTRCL EQU DWTDRD+12 REQUEST CONTROL WORD | , PDWTRTV EQU DWTDRD+14 REQUEST TIMER VALUE . PDWTRTP EQU DWTDRD+16 REQUEST TIMER POINTER
0x0cfd1c…0cfeb0 Dummy {f00=0x0042, f01=0x0190, f02=» 2 PDWTIPC EQU DWTDRD+22 I/P DATA Q LINK TO BUFFER 0 PDWTIPT EQU DWTDRD+24 I/P DATA TIMER POINTER : ( PDWTCUR EQU DWTDRD+26 CURSOR ADDRESS n . PDWTBUF EQU DWTDRD+28 DEVICE BUFFER ADDRESS $ PDWTSTA EQU DWTDRD+30 DWT STATUS EJECT J P******
0x0cfeb0…0d0044 Dummy {f00=0x0042, f01=0x0190, f02=»************************************************************ * D P* ................... N P* 0 . DTECHP . p P* ................... P* 2 . DTEST . P* ................... P* 4 . DTEECB
0x0d0044…0d01d8 Dummy {f00=0x0042, f01=0x0190, f02=» . P* ................... P* 10 . DTETAB . 4 P* ................... V P* 12 . DTEWAT . x P* ................... P* 14 . DTETQ . P* ................... , P* (16).
0x0d01d8…0d036c Dummy {f00=0x0042, f01=0x018e, f02=»........... $ P* DTEDRD +2 . DTESTB . $ P* ................... < P* +4 . DTECHD . d P* ................... P* +6 . DTECHN . P* ................... P* +8 . DTELAD .
0x0d036c…0d0500 Dummy {f00=0x0042, f01=0x018e, f02=» t P* / / P* ................... * 8 P* . STATISTIC . IF STAT AND DTESTB /=0 L P* / BUFFER / P* ................... P* PDTETQ EQU 14 PDTEUEC EQU DTETQ+2 PDTEM
0x0d0500…0d0694 (6, 14) Dummy {f00=0x0042, f01=0x0190, f02=» 2 PDTEDRD EQU DTEMEC+2 START OF DC DEPENDENT AREA P XIF > D PDTESTB EQU DTEDRD OFFSET REL START DTE TO STATISTIC BUFF IF ANY J 2 PDTECHD EQU DTEDRD+2 CONFIG CHAIN LINK HEAD DTE 2 PDTECHN EQU DTEDRD+4 CONFIG CHAIN LINK NEXT DTE 2 PDTELAD EQU
0x0d0694…0d0828 Dummy {f00=0x0042, f01=0x0190, f02=»10 DATA LINK STATUS ~ $ PDTESTA EQU DTEDRD+12 DTE STATUS ( PDTEDWT EQU DTEDRD+14 CHAIN LINK DWT D 0 PDTEDDT EQU DTEDRD+16 CHAIN LINK DISCARD DWT p P* STATITICS BUFFER 2 PSTWSID EQU DTEDRD+18 RESERVED FOR SYMBOLIC ID . PSTWCST EQU DTEDRD+20
0x0d0828…0d09bc Dummy {f00=0x0042, f01=0x018e, f02=»************************************************************** P* F , P* COUNTER INDECES - PARAMETER-1 EQUATES P P* P* REQUEST LEVEL COUNTERS: P* D P*************************************************************** P* * P
0x0d09bc…0d0b50 Dummy {f00=0x0042, f01=0x0190, f02=» n & PCSRCHR EQU /C5 CHARACTERS RECEIVED ! ( PCSRMST EQU /06 MESSAGES TRANSMITTED ! 2 * PCSRCHT EQU /C8 CHARACTERS TRANSMITTED ! ^ PCSRTOP EQU /09 TIMEOUT ! PCSRABT EQU /0A ABORTED ! PCSRERR EQU /0B ERROR ! & PCSRTRE EQU /0C TRANSMISSION ERROR !
0x0d0b50…0d0ce4 Dummy {f00=0x0042, f01=0x0190, f02=»VED ! j : PCSSRBY EQU /11 " DATA BLOCKS REJECTED BUFFER BUSY " > PCSSRBO EQU /12 " DATA BLOCKS REJECTED BUFFER OVERFLOW " J 6 PCSSRAB EQU /13 " DATA BLOCKS REJECTED ABORTED " : PCSSRPE EQU /14 " DATA BLOCKS REJECTED PARITY ERROR " 0 PCSST
0x0d0ce4…0d0e78 Dummy {f00=0x0042, f01=0x0190, f02=»BORTED " n 4 PCSSXC1 EQU /18 NBR OF REPLY REQUESTS TRANSMITTED # & PCSSXC2 EQU /19 PROCEDURE TIME OUTS # F 8 PCSSXC3 EQU /1A NBR OF TIMES POLL TIMEOUT HAS OCCURED # p P # P # P EJECT # P* DTE/DCE LEVEL COUNTERS # P # $ PCSCDTE EQU /28 D
0x0d0e78…0d100c Dummy {f00=0x0042, f01=0x0190, f02=»PERABLE # x * PCSCXC1 EQU /2C CONTROL UNIT DEPENDENT $ PCSCXC2 EQU /2D " $ > PCSCXC3 EQU /2E " $ Z P EJECT $ v P* $ P* $ P* REQUEST HANDLING $ P* $ P* $ P* ORDER CODE (A7) $ P* $ POPEN EQU /21 OPEN $ PCLOS
0x0d100c…0d11a0 Dummy {f00=0x0042, f01=0x0190, f02=»06 SEND $ PRSTAT EQU /00 READ STATUS % PSSTAT EQU /38 SET STATUS % 2 ( PSTATIS EQU /2D READ/RESET STATISTICS % R $ PSTIMOT EQU /39 SET TIMEOUT VALUE % ~ P* % P* OPTIONS: % P* % 2 PTYPRR EQU /4343 RESET STATISTICS AFTER READ =5 % P EJECT
0x0d11a0…0d1334 (6, 15) Dummy {f00=0x0042, f01=0x0190, f02=» % f P* & > P********************************************************** & P* & T L P*---------------------------------------------------------------------- & ^ " PR:REQ EQU /8000 REQUEST ERROR & $ PR:ABRT EQU /4000 REQUEST ABORTED & PR:2 EQU /200
0x0d1334…0d14c8 Dummy {f00=0x0042, f01=0x0190, f02=»EQU /0400 & PR:6 EQU /0200 ' , PR:DATA EQU /0100 DATA AVAILABLE (QUEUED) ' ( J P*--------------------------------------------------------------------- ' X PR:8 EQU /0080 ' PR:TIME EQU /0040 TIME OUT ' PR:10 EQU /0020 ' " PR:SEQ EQU /0010 SEQU
0x0d14c8…0d165c Dummy {f00=0x0042, f01=0x0190, f02=»R:13 EQU /0004 ' . PR:LOGC EQU /0002 LOGICAL CONNECTION ERROR ( . PR:PHYC EQU /0001 PHYSICAL CONNECTION ERROR ( H L P*---------------------------------------------------------------------- ( z P* ( P EJECT ( P* ( < P****************************
0x0d165c…0d17f0 Dummy {f00=0x0042, f01=0x0190, f02=»***************************= ( r P* ) $ L P*---------------------------------------------------------------------- ) . PH:0 EQU /8000 ) ~ PH:1 EQU /4000 ) PH:2 EQU /2000 ) PH:3 EQU /1000 ) L P*-------------------------------------------------
0x0d17f0…0d1984 Dummy {f00=0x0042, f01=0x0190, f02=»----------------------------------------------------- ) ~ PH:8 EQU /0080 * > PH:9 EQU /0040 * T PH:CARR EQU /0020 CARRIER OFF * j PH:11 EQU /0010 * J P*-------------------------------------------------------------------- * PH:12 EQU /0008 * " P
0x0d1984…0d1b18 Dummy {f00=0x0042, f01=0x0190, f02=»----------------------------------------------------- * ~ P EJECT + > > P********************************************************** + P P* + P* LINE CONTROL CHAR EQU:S + P* + > P**********************************************************
0x0d1b18…0d1cac Dummy {f00=0x0042, f01=0x0190, f02=» PITB EQU /1F , PSOH EQU /01 , PENQ EQU /05 , , PDLE EQU /10 , @ PEOT EQU /04 , T PNAK EQU /15 , h PESC EQU /1B , | PSBA EQU /11 , PGP EQU /22 , PRDBCOM EQU /32 , PRDMCOM EQU /36 , P EJECT , P IFT CODE=0 , PPAR
0x0d1cac…0d1e40 Dummy {f00=0x0042, f01=0x0190, f02=» XIF , P IFT CODE=0 - P IFT MSV1=1 - 0 PWACK EQU /BF =WABT - SIEMENS MSV1 PROCEDURE - 4 P XIF - h P IFT CODE=1 - t PPAR EQU /00 - PWACK EQU /2C - PRVI EQU /40 - PACK0 EQU /18 - PACK1 EQU /2F - PSYNEBC EQU /32 - PENQEBC
0x0d1e40…0d1fd4 (6, 16) Dummy {f00=0x0042, f01=0x0190, f02=»0+PAR - P XIF . P IFT P6805=1 . PENQPAR EQU ENQ . . PRVIPAR EQU RVI . D PACKPAR EQU ACK0 . Z P XIF . r P EJECT . ~ P* . P* . $ P* 3270 SENSE/STATUS INFORMATION . P* . P* . P IFF STARVI=0 . . PSSTAB EQU * S/S 0 : NO
0x0d1fd4…0d2168 Dummy {f00=0x0042, f01=0x0190, f02=»EQUIRED . j , PIR EQU /26 S/S 1 : INTERVENTION REQUIRED / P XIF / @ P* / L P* / V P* TIMER VALUES / ` P* / v P* / ( PTIMPRO EQU 30 PROCEDURE TIMER 3 SEC / P* / P* / P EJECT / B P************************************************
0x0d2168…0d22fc Dummy {f00=0x0042, f01=0x0190, f02=»***************** / d P* 0 P IFT CODE=0 0 $ PSYNC EQU /16 0 8 P XIF 0 L P IFT CODE=1 0 X PSYNC EQU /32 0 l P XIF 0 P IFT P6805=0 0 PCBCARR EQU /100+LSPEED 0 P XIF 0 P IFT P6805=1 0 PCBSTOP EQU /00 0 P IFT CODE=0 0 P
0x0d22fc…0d2490 Dummy {f00=0x0042, f01=0x0190, f02=»************************************* 0 P* 1 . ( P* LINE CONTROL UNIT SST STATUS BITS 1 8 P* 1 d 8 P*************************************************** 1 n P* 1 P IFT P6805=0 1 & PH:ERR EQU /23 H:NOOP+H:THRU+H:CARR 1 P XIF 1 P IFT P6805
0x0d2490…0d2624 Dummy {f00=0x0042, f01=0x0190, f02=»****************** 1 b P* 2 P* DRIVER ADDRESS BLOCK 2 $ P* 2 B D P*************************************************************** 2 L P* 2 P DATA BUFLEN MMU BUFFER SIZE 2 P DATA DEVIND DEVICE INDEX 2 ( PDC15AD DATA DCACT ACTIVATION ADDRESS
0x0d2624…0d27b8 Dummy {f00=0x0042, f01=0x018e, f02=»TINE STACK FOR INTERRUPTS 2 PSTB RES 1 3 " P EJECT 3 4 P 3 B @ P************************************************************ 3 J P* 3 P* ABORT ROUTINE 3 P* 3 P************************ 3 P 3 ( PABORT LD A1,DWTRTP,A6 TIMER POINTER
0x0d27b8…0d294c Dummy {f00=0x0042, f01=0x0190, f02=» 3 n P ANK A2,/7F 4 P SUK A2,6 4 P RF(NE) AB:RTN 4 . . P CF A15,REMOVW REMOVE DWT FROM WRITE QUEUE 4 D & P LD A2,FDWTUT WRITING DWT ADDRESS 4 v P CWR A2,A6 4 P RF(NE) AB:RTN NOT THIS DWT 4 P CM FDWTUT REST SENDING DWT 4 P CM XACK RESET
0x0d294c…0d2ae0 Dummy {f00=0x0042, f01=0x0190, f02=»****************** 4 J P********************************************************************** 5 P* 5 h P* 5 r , P* REQUEST HANDLER/APPLICATION INTERFACE 5 | P* 5 P* 5 J P********************************************************************** 5
0x0d2ae0…0d2c74 (6, 17) Dummy {f00=0x0043, f01=0x0190, f02=» 5 PDCACT EQU * 6 P LDK A1,0 PRESET RETURN CODE 6 & P LDR A2,A7 ORDER CODE AS PARAMETER 6 @ P LDKL A7,DTETAB DTE TAB ADDR 6 j & P ANK A2,/FF STRIP OFF OPTION BITS 6 : P CF A15,LOOKUP BRANCH ON CODES, TABLE ADDRESS TO STACK 6 0 P DATA TREQX,RTREQ
0x0d2c74…0d2e08 Dummy {f00=0x0043, f01=0x0190, f02=»EN REQUEST 6 | $ P DATA CLOSE,RQCLOS CLOSE REQUEST 7 . P DATA CONPAS,RQCON CONNECT PASSIVE REQUEST 7 : ( P DATA DISCO,RQDIS DISCONNECT REQUEST 7 l * P DATA RSTAT,RQRSTS READ STATUS REQUEST 7 ( P DATA SSTAT,RQSST SET STATUS REQUEST 7 , P DATA STIMOT,RQTIME SE
0x0d2e08…0d2f9c Dummy {f00=0x0043, f01=0x0190, f02=» 7 P* 8 P* ACTIVATION PARAMETERS: 8 $ P* SYMBOLIC DTE-ADDRESS (ECBCW2) 8 2 P* 8 Z P* FUNCTIONS: 8 d 8 P* 1. CHECK IF ALREADY OPEN & IF SO SAME DTE-ADDRESS 8 x & P* 2. CONVERT & VERIFY DTE ADDRESS 8 P* 8 PRQOPEN EQU * 8 . P LD A1,ECBCW
0x0d2f9c…0d3130 Dummy {f00=0x0043, f01=0x0190, f02=» BRANCH ON INDEX IN TABLE 8 & PRQOPTB DATA RQOP20 CLOSED/INACTIVE 9 " " P DATA RQOP15 OPEN IN PROGRESS 9 L P DATA RQOP10 OPEN 9 r " P DATA RQOP15 CLOSE IN PROGRESS 9 PRQOP10 EQU * 9 2 P CW A1,DTELAD,A7 SAME AS THE ONE WHO OPENED ? 9 P RF(E) RQOP9
0x0d3130…0d32c4 Dummy {f00=0x0043, f01=0x0190, f02=»PROGRESS 9 v . P ST A1,DTELAD,A7 SAVE SYMBOLIC DTE ADDRESS : 2 P LDR A2,A7 ADDR TO SELECT AND POLL IN DTE TAB : B 0 P CF A15,GETDNA CONVERT AND VALIDATE DTE ADDR : x P LDR A1,A1 : P RF(NN) RQOP80 OK : P CM DTELAD,A7 CLEAR DTE ADDR : " P CM DTESTA,A
0x0d32c4…0d3458 Dummy {f00=0x0043, f01=0x0190, f02=»ESS IN EBCDIC : | P LDR A1,A2 ; P ANK A2,/FF ; ( P RF(Z) RQOP30 ONLY ONE BYTE ; < ( P LC A2,TASCII,A2 CONVERT INTO ASCII ; ` P SLL A2,8 ; PRQOP30 EQU * ; P ECR A1,A1 ; P ANK A1,/FF ; P LC A2,TASCII,A1 ; * P STR A2,A7 SAVE ASCII VA
0x0d3458…0d35ec Dummy {f00=0x0043, f01=0x0190, f02=»ON ? ; n P ABL(NZ) RTOK YES RETURN OK < * P ABL RTPHYC RETURN PHYSICAL CONNECTION < 0 P EJECT < ^ P* < l P* CLOSE REQUEST < v P* < P* ACTIVATION PARAMETERS: < " P* OPTION /00 = UNCONDITIONAL < P* /80 = CONDITIONAL < P* FUNCTIONS:
0x0d35ec…0d3780 Dummy {f00=0x0043, f01=0x0190, f02=»SCONNECT ALL DWT:S < v P* = PRQCLOS EQU * = $ ( P LD A5,DWTOR,A6 GET OPTION AND ORDER = 8 , P LD A2,ECBCW2,A8 GET SYMBOLIC DTE - ADDR = d P RF(Z) RQCL20 = " P CW A2,DTELAD,A7 CORRECT DTE ? = ( P ABL(NE) RTREQ RETURN: REQUEST ERROR = PRQCL20 EQU *
0x0d3780…0d3914 (6, 18) Dummy {f00=0x0043, f01=0x018e, f02=»UENCE ERROR = v $ P IM DTESTA,A7 CLOSE IN PROGRESS > ( P LDR A8,A6 SAVE REQUESTING DWT-ADDR > < P* > h PRQCL40 EQU * > r P IFT MESPAS=1 > * P LD A6,DTEDDT,A7 GET DISCARD DWT ADDR > P RF(Z) RQCL50 > " P LDR A5,A5 CONDITIONAL CLOSE ? > P R
0x0d3914…0d3aa8 Dummy {f00=0x0043, f01=0x0190, f02=» > PRQCL50 EQU * ? P XIF ? " P LD A6,DTEDWT,A7 GET DWT ADDR ? ( " P RF(Z) RQCL90 NO DWT IN QUEUE ? N " P LDR A5,A5 CONDITIONAL CLOSE ? ? t P RF(N) RQCL95 YES ! ? 6 P LD A2,DWTCHN,A6 GET POINTER TO NEXT DWT IN CHAIN ? 0 P ST A2,DTEDWT,A7 DWT FIR
0x0d3aa8…0d3c3c Dummy {f00=0x0043, f01=0x0190, f02=»M DWTSTA,A6 CLEAR DWT-STATUS ? P LDK A1,0 PRESET RETURN CODE @ $ P CWR A8,A6 REQUESTING DWT ? @ H & P RF(E) RQCL80 YES-COMPLETE REQUEST @ l ( P LD A2,DWTST,A6 A PENDING REQUEST ? @ " P RB(N) RQCL40 NO TAKE NEXT DWT @ 6 P LDK A1,R:SEQ COMPLETE REQUEST W
0x0d3c3c…0d3dd0 Dummy {f00=0x0043, f01=0x018e, f02=»QU * @ P =1 A & P LDR A6,A8 GET REQUESTING DWT ADDR A ( P LD A8,DWTECB,A6 RESTORE ECB ADDRESS A D P =1 A p . P RF(Z) RQCL92 REQUEST ALREADY COMPLETED =1 A ~ P LDK A1,0 RC=0 =1 A , P CF A15,TENDIO COMPLETE CLOSE REQUEST =1 A PRQCL92 EQU *
0x0d3dd0…0d3f64 Dummy {f00=0x0043, f01=0x0190, f02=» P LDK A2,0 =1 B ( P CIO A2,1,LCUIN DISCONNECT MODEM =1 B P XIF =1 B F P IFT P6805=1 =1 B X " P LDK A2,1 DISCONNECT ORDER =1 B p ( P CIO A2,0,LCUIN DISCONNECT MODEM =1 B P XIF =1 B & P CMR A7 REMOVE NETWORK ADDRESS =1 B " P CM DTESTA
0x0d3f64…0d40f8 Dummy {f00=0x0043, f01=0x0190, f02=» CM DCTPGP CLEAR POINTER =6 B PRQCL94 EQU * =6 C $ , P CM DTEDLS,A7 INDICATE DATA LINK DOWN =6 C < P ABL TDISP =1 C l PRQCL95 EQU * C P LDK A2,2 C ( P ST A2,DTESTA,A7 SET DTE OPEN AGAIN C " P LDR A6,A8 RESTORE DWT ADDRESS C P ABL RTSEQ SEQ
0x0d40f8…0d428c Dummy {f00=0x0043, f01=0x0190, f02=»BADDRESS (RIGHTMOST BYTE IN ECBBA-BFR) C & P* - DEVICE ADDRESSES IN ECBBA-BFR D . " P* - LENGTH OF BUFFER (ECBRL) D X & P* - SYMBOLIC DTE-ADDRESS (ECBCW2) D ~ P* D P* FUNCTIONS: D 0 P* 1. VERIFY DTE-ADDRESS AS PER OPEN REQUEST D . P* 2. VERIFY &
0x0d428c…0d4420 Dummy {f00=0x0043, f01=0x018e, f02=»CON EQU * D & P LD A2,DTELAD,A7 SYMBOLIC DTE-ADDR E " P CW A2,ECBCW2,A8 CORRECT DTE ? E < , P ABL(NE) RTREQ NO, RETURN: REQUEST ERROR E b $ P LD A2,DTESTA,A7 GET DTE STATUS E P SUK A2,2 OPEN ? E . P ABL(NZ) RTSEQ NO, RETURN: SEQUENCE ERROR E $ P LD
0x0d4420…0d45b4 (6, 19) Dummy {f00=0x0043, f01=0x0190, f02=» E | P LDK A2,/40 OPTION CODE =13 F & P CC A2,DWTOPT,A6 DISCARD DWT ? =13 F , P RF(NE) RQCN10 NO =13 F V * P CM DWTCHP,A6 INDICATE DISCARD DWT =13 F t 0 P LD A1,DTEDDT,A7 POINTER TO DISCARD DWT =13 F 0 P RF(NZ) RQCN50 MORE THAN ONE DISC. DWT ? =13 F 8
0x0d45b4…0d4748 Dummy {f00=0x0043, f01=0x0190, f02=»MUPAG=0 F * P LDKL A4,SUBBUF MMU BUFFER ADDRESS =16 G P ST A4,ECBBA,A8 TO ECB G > * P CF A15,DC:MOT MOVE DATA TO MMU BUFFER G P XIF G * P LD A4,ECBBA,A8 GET ECB-BUFFER ADDRESS G P IFT MSV1=1 G P LDK A2,0 RESET A2 G & P LCR A2,A4 GET SELECT
0x0d4748…0d48dc Dummy {f00=0x0043, f01=0x0190, f02=»E AND TRANSLATE THE SUB-ADDR G z P LDR A1,A1 IS IT OK ? H $ P RF(NN) RQCN20 YES H B $ P CM DWTSUB,A7 CLEAR SUB-ADDRESS H $ P ABL RTREQ RETURN REQUEST ERROR H PRQCN20 EQU * H P IFT CODE=1 H 2 P LC A1,TASCII,A1 CONVERT FROM EBCDIC TO ASCII H
0x0d48dc…0d4a70 Dummy {f00=0x0043, f01=0x0190, f02=» SC A2,DWTSUB+1,A6 SAVE IT IN THE DWT H . P LD A1,ECBCW2,A8 GET SYMBOLIC DTE ADDRESS I . ( P ST A1,DWTLAD,A6 SAVE IT IN THE DWT I ` : P CF A15,GETSNA VALIDATE AND TRANSLATE THE SUB-ADDRESS I P LDR A1,A1 IS IT OK ? I P RF(NN) RQCN30 YES I $ P CM DW
0x0d4a70…0d4c04 Dummy {f00=0x0043, f01=0x0190, f02=»FT CODE=1 I 2 P LC A1,TASCII,A1 CONVERT FROM EBCDIC TO ASCII J P XIF J H , P SC A1,DWTCHP+1,A6 SAVE NETWORK ADDRESS J T P IFT EM3270=1 J P ST A1,ECBCW2,A8 J P XIF J P* J P* J & P* LINK DWT TO CONFIGURATION CHAIN J P* J P
0x0d4c04…0d4d98 Dummy {f00=0x0043, f01=0x0190, f02=»TER TO DWT QUEUE J v P RF RQCN60 K PRQCN50 EQU * K * P LDR A2,A1 MOV ADDR TO A2 K > ( P LD A1,DWTCHN,A2 POINTER TO NEXT DWT K ` . P RB(NZ) RQCN50 KEEP ON UNTIL LAST IN CHAIN K * P ST A6,DWTCHN,A2 ADD NEW DWT TO CHAIN K PRQCN60 EQU * K & P CM DWTC
0x0d4d98…0d4f2c Dummy {f00=0x0043, f01=0x0190, f02=»ED K l P LDKL A2,/8000 L $ P ST A2,DWTRTV,A6 STORE NO TIMING L P =13 L H P IFT STARVI=1 L X & P LD A1,DWTCHP,A6 DISCARD DWT ? =13 L n * P RF(Z) RQCN65 YES, DO NOT SEND DE =13 L P LDK A1,4 STORE DEVICE L $ P ORS A1,DWTST,A6 END IN THE DWT L
0x0d4f2c…0d50c0 Dummy {f00=0x0043, f01=0x018e, f02=» LD A2,DCTPGP POLL TIMER POINTER L , P RF(NZ) RQCN70 TIMER ALREADY STARTED =6 M ( P CF A15,SPOTIM M X PRQCN70 EQU * M n P ABL RQOP90 M P EJECT M P* M P* DISCONNECT REQUEST M P* M P* ACTIVATION PARAMETERS: M P* DWT-ADDRESS (A6)
0x0d50c0…0d5254 (6, 20) Dummy {f00=0x0043, f01=0x0190, f02=» & P* 3. SET DWT STATUS DISCONNECTED N P* N . P* COMPLETION PARAMETERS: N 8 P* RETURN CODE (A1) N X P* N t PRQDIS EQU * N ~ 0 P LD A2,DWTSTA,A6 DWT STATUS = DISCONNECTED ? N P ABL(Z) RTOK YES, RETURN: OK N * P LD A3,DTEDWT,A7 FIRST DWT ADD
0x0d5254…0d53e8 Dummy {f00=0x0043, f01=0x0190, f02=»FFERS N p 2 P LD A3,DWTCHN,A6 YES-TAKE POINTER TO NEXT DWT O P CM DWTSTA,A6 SET DWT FREE O D . P ST A3,DTEDWT,A7 STORE DWT-ADDR IN DTETAB O f P RB RQCN70 O PRQDI10 EQU * O . P LDR A5,A3 A5 CONTAINES PREVIOUS DWT-ADDR O < P LD A3,DWTCHN,A5 A3 CONT
0x0d53e8…0d557c Dummy {f00=0x0043, f01=0x0190, f02=»IN O n * P CF A15,RELBUF RELEASE QUEUED BUFFERS P 2 P LD A3,DWTCHN,A6 YES-TAKE POINTER TO NEXT DWT P 8 2 P ST A3,DWTCHN,A5 AND STORE IT IN PREVIOUS DWT P n P CM DWTSTA,A6 SET DWT FREE P P RB RQCN70 P PRQDI20 EQU * P P IFT MESPAS=1 P . P LD A3
0x0d557c…0d5710 Dummy {f00=0x0043, f01=0x0190, f02=»FERS QUEUED P v P CM DTEDDT,A7 Q P CM DWTSTA,A6 SET DWT FREE Q * P RB RQCN70 Q L PRQDI30 EQU * Q ^ P XIF Q r P ABL RTSEQ SEQUENCE ERROR Q ~ P EJECT Q P* Q P* Q P* READ STATUS REQUEST Q P* Q P* ACTIVATION PARAMETERS: Q
0x0d5710…0d58a4 Dummy {f00=0x0043, f01=0x0190, f02=»* COMPLETION PARAMETERS: Q * P* LOGICAL CONNECTION STATUS (ECBCW1) R P* R N . P* 0 3 4 7 8 11 12 15 R X . P* ........................................ R . P* . DWT . DTE . DATA . PHYS . R . P* . STATE . STATE . LI
0x0d58a4…0d5a38 Dummy {f00=0x0043, f01=0x0190, f02=»RSTS EQU * R P IFT EM3270=1 S $ P LD A2,ECBCW1,A8 GET OPTION CODE S ( & P RF(NZ) RQRS10 TEST IF ANY MESSAGE S P P XIF S z P LD A2,DWTSTA,A6 DWT STATUS S P SLL A2,4 BITS 0-3 S P AD A2,DTESTA,A7 DTE STATUS S P SLL A2,4 BITS 4-7 S & P AD A2
0x0d5a38…0d5bcc Dummy {f00=0x0043, f01=0x018e, f02=»1,A8 STATUS TO ECB CONTROL WORD 1 S P ABL RTOK RETURN: OK T * P IFT EM3270=1 T F P* T P* T f . P* ANY MESSAGE ORDER (ONLY IF EM3270 = 1) T p P* T PRQRS10 EQU * T $ P LD A2,DTESTA,A7 GET DTE STATUS T P SUK A2,2 OPEN ? T $ P ABL(NZ)
0x0d5bcc…0d5d60 Dummy {f00=0x0043, f01=0x0190, f02=» T n 6 P LD A4,DWTIPC,A6 ANY QUEUED MESSAGE ON THIS DWT ? U * P ABL(NZ) RTOK YES COMPLETE THE REQUEST U B P ABL TDISP TO DISPATCHER U p P XIF U P EJECT U P* U P* SET STATUS REQUEST U P* U P* U P* ACTIVATION PARAMETERS U P* D
0x0d5d60…0d5ef4 (6, 21) Dummy {f00=0x0044, f01=0x018e, f02=»00' U z P* V ( P* IR INTERVENTION REQUIRED : X'01' V P* V B P* DB DEVICE BUSY :X'10' V L P* V l P* COMPLETION PARAMETERS: V v P* RETURN CODE (A1) V P* V PRQSST EQU * V P IFT STARVI=0 V & P ABL RTREQ SET STATUS NOT INCLUDED
0x0d5ef4…0d6088 Dummy {f00=0x0044, f01=0x0190, f02=» V x & P LD A1,DWTST,A6 GET DEVICE STATUS W ( P ANK A1,/B WACK SENT, DB OR IR ? =2 W 2 P RF(Z) RQST90 NO =2 W ^ , P CF A15,INSSQ INSERT DWT IN STATUS QUEUE W z P LDK A1,4 SET DE W PRQST90 EQU * W P ST A1,DWTST,A6 SAVE STATUS W P ABL RTOK RETY
0x0d6088…0d621c Dummy {f00=0x0044, f01=0x0190, f02=» TYPE = BITS 0-7 OF ECBCW1 W P* ECB-ADDRESS (A8) X " ( P* DWT-ADDRESS OF LOW-LEVEL DWT (A6) X > P* X j P* FUNCTIONS: X t & P* 1. READ STATISTICS TO USER AREA X & P* 2. RESET ALL STATISTICS BUFFERS X P* X P* COMPLETION PARAMETERS: X * P*
0x0d621c…0d63b0 Dummy {f00=0x0044, f01=0x0190, f02=»C : REQUEST ERROR NO STATISTICS INCLUDED X P XIF Y 0 P IFF STTSTS=0 Y < " P CF A15,DCSRED READ STATISTICS Y R P LDR A1,A1 OK? Y x , P ABL(NZ) RTREQ NO, RETURN: REQUEST ERROR Y P LD A1,ECBCW1,A8 GET TYPE Y & P SRL A1,8 TYPE FIELD TO LEFT BYTE Y
0x0d63b0…0d6544 Dummy {f00=0x0044, f01=0x0190, f02=» Y x , P ABL(NZ) RTREQ NO, RETURN: REQUEST ERROR Z PRQST40 EQU * Z 8 P ABL RTOK RETURN: OK Z L P XIF Z h P EJECT Z t P* Z P* SET TIMEOUT VALUE Z P* Z P* ACTIVATION PARAMETERS: Z , P* ECBCW1 >= 0 : ACTIVATE TIMING CONTROL Z : P*
0x0d6544…0d66d8 Dummy {f00=0x0044, f01=0x0190, f02=»ING CONTROL Z p P* [ P* FUNCTIONS: [ , P* STORE VALUE DIRECTLY IN CALLER'S DWT [ 2 P* [ b P* COMPLETION PARAMETERS: [ l & P* DWTRTV = TIMEOUT VALUE = ECBCW1 [ P* [ PRQTIME EQU * [ 0 P LD A2,ECBCW1,A8 GET TIMEOUT VALUE FROM ECB [ " P
0x0d66d8…0d686c Dummy {f00=0x0044, f01=0x0190, f02=»ARAMETERS: [ P* BUFFER ADDRESS (ECBBA) P* BUFFER LENGTH (ECBRL) 4 P* SUBTERMINAL ADDRESS (DWT) T P* ECB CONTROL WORD 1 x P* P* FUNCTIONS: < P* 1. VERIFY THAT LOGICAL & PHYSICAL CONNECTIONS EXIST. $ P* 2. VERIFY BUFFER
0x0d686c…0d6a00 Dummy {f00=0x0044, f01=0x0190, f02=»,DWTSTA,A6 GET DWT STATUS P SUK A2,2 CONNECTED ? ] " . P ABL(NZ) RTSEQ NO, RETURN: SEQUENCE ERROR ] @ 2 P LD A2,DTEPLS,A7 PHYSICAL CONNECTION ACTICE ? ] r 8 P ABL(Z) RTPHYC NO, RETURN: PHYSICAL CONNECTION ERROR ] 0 P LD A2,DTEDLS,A7 LOGICAL CONNECTION
0x0d6a00…0d6b94 (6, 22) Dummy {f00=0x0044, f01=0x0190, f02=»Z) RQSE10 THERE IS NO OPTION ] P SUK A2,/20 WHICH OPTION ? ^ $ . P ABL(NZ) RTREQ WRONG OPTION :REQUEST ERROR ^ F * P CF A15,RELBUF RELEASE BUFFERS QUEUED ^ x PRQSE10 EQU * ^ P IFT MMUPAG=1 ^ $ P LD A2,ECBRL,A8 REQUESTED LENGTH ^ $ P CWK A2,BUFLEN I
0x0d6b94…0d6d28 Dummy {f00=0x0044, f01=0x0190, f02=»INSWQ QUEUE SEND REQUEST ^ P ABL TDISP _ P* _ 2 P EJECT _ < P* _ J P* RECEIVE REQUEST _ T P* _ n P* ACTIVATION PARAMETERS: _ x P* BUFFER ADDRESS (ECBBA) _ 0 P* REQUESTED BUFFER LENGTH IN CHARS. (ECBRL) _ P* SUBTERMINAL ADDRESS (DW
0x0d6d28…0d6ebc Dummy {f00=0x0044, f01=0x0190, f02=»N ANY MESSAGE QUEUED FOR THE DWT, _ p @ P* 3. COMPLETE WHEN MESSAGE RECEIVED OR NO MESSAGE RECEIVED ` * P* WITHIN TIMEOUT PERIOD. ` n P* ` P* COMPLETION PARAMETERS: ` 0 P* ACTUAL LENGTH OF RECEIVED MESSAGE (ECBEL) ` P* RETURN CODE (A1) `
0x0d6ebc…0d7050 Dummy {f00=0x0044, f01=0x018e, f02=»NCE ERROR ` p 2 P LD A2,DTEPLS,A7 PHYSICAL CONNECTION ACTIVE ? a 8 P ABL(Z) RTPHYC NO, RETURN: PHYSICAL CONNECTION ERROR a H * P LD A4,DWTIPC,A6 ANY BUFFER ON QUEUE ? a P RF(NZ) RQRE10 YES a 0 P LD A2,DTEDLS,A7 LOGICAL CONNECTION ACTIVE ? a 8 P ABL(Z)
0x0d7050…0d71e4 Dummy {f00=0x0044, f01=0x0190, f02=» a P LD A3,2,A4 EFFECTIVE LENGTH b P ST A3,ECBEL,A8 b , * P LD A1,DWTLAD,A6 SYMBOLIC DTE-ADDRESS b D $ P LD A2,4,A4 NETWORK SUB-ADDRESS b r , P CF A15,GETSSA GET SYMBOLIC SUB-ADDRESS b ( P ST A1,ECBCW2,A8 AND SAVE IT IN ECB b P IFT REMTIM=1 =9
0x0d71e4…0d7378 Dummy {f00=0x0044, f01=0x018e, f02=»DK A1,0 RC : ACCEPTED AND COMPLETED b ( P LDR* A2,A4 GET NEXT BUFFER IN QUEUE c , * P RF(Z) RQRE20 NO MORE BUFFERS IN QUEUE c X 0 P ORKL A1,R:DATA RC: AND MORE DATA AVAILABLE c PRQRE20 EQU * c . P ST A2,DWTIPC,A6 STORE AS FIRST IN QUEUE c P ADK A4,
0x0d7378…0d750c Dummy {f00=0x0044, f01=0x0190, f02=» P* d $ P* COMPLETE APPLICATION REQUEST d P* d 6 PRTREQ EQU * d @ & P LDKL A1,R:REQ RC = REQUEST ERROR d T P RF RQRTN d ~ PRTABRT EQU * d P LDKL A1,R:ABRT RC = ABORTED d P RF RQRTN d PRTTIME EQU * d P LDK A1,R:TIME RC = TIME O
0x0d750c…0d76a0 Dummy {f00=0x0044, f01=0x0190, f02=»R:LGTH RC = ILLEGAL LENGTH d P RF RQRTN e " PRTLOGC EQU * e 4 0 P LDK A1,R:LOGC RC = LOGICAL CONNECTION ERROR e H P RF RQRTN e | PRTPHYC EQU * e 2 P LDK A1,R:PHYC RC = PHYSICAL CONNECTION ERROR e P RF RQRTN e PRTOK EQU * e P LDK A1,0 RC
0x0d76a0…0d7834 (6, 23) Dummy {f00=0x0044, f01=0x0190, f02=»EY IN TABLE & BRANCH ON ADDRESS e | P* f ( P* CALL: f 2 8 P* CF A15,LOOKUP TABLE ADDRESS TO STACK f B < P* DATA LAST,ADDRE LAST ENTRY; ERROR ADDRESS f ~ > P* DATA KEY1,ADDR1 KEY (A2); ADDRESS FOR BRANCH f P* "
0x0d7834…0d79c8 Dummy {f00=0x0044, f01=0x0190, f02=»LOOKUP EQU * f < P LDR* A3,A15 POINT TO NEXT INSTRUCTION ADDRESS IN STACK g . P LDR* A3,A15 GET CONTENTS = TABLE ADDRESS g T & P LDR* A4,A3 GET LAST LEGAL ADDRESS g P LD A1,2,A3 ERROR ADDRESS g P* g PLOOK50 EQU * LOOP ENTRY g * P ADK A3,4 GE
0x0d79c8…0d7b5c Dummy {f00=0x0044, f01=0x0190, f02=»? g p ( P RB(NE) LOOK50 NO - CHECK NEXT ENTRY h & P ABI 2,A3 BRANCH TO TABLE ADDRESS h 6 P* KEY NOT FOUND h ` PLOOK90 EQU * h x " P LDR P,A1 GO TO ERROR ADDRESS h P EJECT h P* h P* h P* h " P* REQUEST TIMER HANDLING PART h P* h
0x0d7b5c…0d7cf0 Dummy {f00=0x0044, f01=0x0190, f02=»UE h p P RF(N) TIMRTN NO TIMING i . P RF(Z) ITOUTR TIMER=0 => IMMEDIATE TIMEOUT i * P ST A2,TIMERR i P CF A15,SETIME i r P DATA TOUTRE i PTIMERR DATA 0 i ( P ST A4,DWTRTP,A6 STORE TIMER POINTER i PTIMRTN EQU * i P ABL RTNA15 i P*
0x0d7cf0…0d7e84 Dummy {f00=0x0044, f01=0x018e, f02=»ETCH DWT i P CM DWTRTP,A6 j * P RF TIMOUT COMPLETE REQUEST RC=TIMEOUT j & P* j T P* j ^ " P* RETURN FROM TIMER HANDLING j h P* j P EJECT j P* j P* SEND TIMER=TIMWR j P* j PTIMEWR LDR A1,A6 j & P LD A2,DWTRTV,A6 GET TIMEOUT
0x0d7e84…0d8018 Dummy {f00=0x0044, f01=0x0190, f02=» P DATA TOUTWR k PTIMWR DATA 0 k P ST A4,DWTRTP,A6 k , P RB TIMRTN k D P* k V P* TIMEOUT WRITE TIMER k ` P* k ~ PTOUTWR EQU * k P LDR A6,A1 FETCH DWT k P CM DWTRTP,A6 k * P CF A15,REMOVW REMOVE FROM WRITE QUEUE k P* k P*
0x0d8018…0d81ac Dummy {f00=0x0044, f01=0x0190, f02=»MOUT THIS DWT IS NOT WRITING k ( P CM XACK INDICATE 'ACK NOT EXPECTED' l $ P CM FDWTUT l P PTIMOUT EQU * l b , P ABL RTTIME COMPLETE REQUEST RC=TIMEOUT l v P EJECT l P* l P* l P* STOP REQUEST TIMING l P* l & P* REMAINING TIME IS RETU
0x0d81ac…0d8340 Dummy {f00=0x0044, f01=0x0190, f02=»FT REMTIM=1 =9 l P LDR* A2,A2 =9 m $ P NGR A2,A2 GET REMAINING TIME =9 m 0 P XIF =9 m X P CM* DWTRTP,A6 KILL TIMER =9 m j P CM DWTRTP,A6 m P =3 m PCTIM10 EQU * m P ABL RTNA15 m P EJECT m P* m P* GET RECEIVE BUFFER m
0x0d8340…0d84d4 (6, 24) Dummy {f00=0x0044, f01=0x0190, f02=»A2 AND A3 ARE DESTROYED m P* n P* n * ( PGRBUF LDKL A2,DCRBUF RECEIVE BUFFERS n 4 P INH n ` P LDR* A4,A2 n l P RF(Z) GBUF10 NO BUFFER FREE n . P LDR* A3,A4 REMOVE BUFFER FROM FREE CHAIN n P STR A3,A2 n PGBUF10 EQU * n P ABL RTNA15
0x0d84d4…0d8668 Dummy {f00=0x0044, f01=0x0190, f02=»CE: CF A15,RRBUF n P* A2 AND A3 ARE DESTROYED o P* o : P* o D ( PRRBUF LDKL A2,DCRBUF RECEIVE BUFFERS o N P INH o z PRBUF10 EQU * o P LDR* A3,A2 o P RF(Z) RBUF20 o P LDR A2,A3 o P RB RBUF10 o PRBUF20 EQU * o P STR A4,A2 o
0x0d8668…0d87fc Dummy {f00=0x0044, f01=0x0190, f02=»* o P* A6 - DWT ADDR p P* A1 AND A4 ARE DESTROYED p " ( P* CALLING SEQUENCE: CF A15,RELBUF p D P* p p P* p z PRELBUF EQU * p * P LDK A1,DWTIPC SET BUFFER QUEUE DISP. p P ADR A1,A6 p PRLBU10 EQU * p $ P LDR* A4,A1 NEXT IN BUFFER Q
0x0d87fc…0d8990 Dummy {f00=0x0044, f01=0x0190, f02=»10 p P EJECT q P* q P* q " & P* INSERT DWT IN SEND REQUEST QUEUE q , P* q V P* A2,A3,A4 DESTROYED q ` P* A6=DWT q | P* q ( PINSWQ LDKL A2,DCWRQ GET QUEUE ANCHOR q P LDK A4,DWTOPN q PINSWQ2 LDR* A3,A2 q $ P RF(Z) INSWQ3 END OF Q
0x0d8990…0d8b24 Dummy {f00=0x0044, f01=0x018e, f02=»QUEUE q x P RB GBUF10 RETURN r P EJECT r ( P* r 6 P* r @ ( P* REMOVE DWT FROM SEND REQUEST QUEUE r J P* r v P* A2,A3,A4 DESTROYED r P* A6=DWT r P* r * PREMOVW LDKL A2,DCWRQ GET QUEUE ANCHOR r . P LDK A4,DWTOPN GET DWT-LINK TO BE RE
0x0d8b24…0d8cb8 Dummy {f00=0x0044, f01=0x018e, f02=» P RF(E) REM15 s P LDR A2,A3 GET NEXT s P RB REM10 s 4 PREM15 LDR* A3,A4 REMOVE s F P STR A3,A2 s f P RB GBUF10 RETURN s x P EJECT s P* s P* s P* INSERT DWT IN STATUS QUEUE s P* s P IFF STARVI=0 s P* A2,A3,A4 DESTR
0x0d8cb8…0d8e4c Dummy {f00=0x0044, f01=0x0190, f02=» s " P* REMOVE DWT FROM STATUS QUEUE t P* t . P* A2,A3,A4 DESTROYED t 8 P* A6=DWT t T P* t d * PREMOVS LDKL A2,DCSTQ GET QUEUE ANCHOR t n P LDK A4,DWTOPE t P RB REM06 t P XIF t P EJECT t P* t P* t $ P* QUEUE ALLOCATED RECE
0x0d8e4c…0d8fe0 Dummy {f00=0x0044, f01=0x0190, f02=»TIPC SET BUFFER QUEUE DISP. t P ADR A2,A6 u $ PQR100 EQU * u 6 P LDR* A3,A2 u J $ P RF(Z) QR200 END OF QUEUE FOUND u ^ P LDR A2,A3 u P RB QR100 u & PQR200 STR A4,A2 INSERT INTO QUEUE u " P CMR A4 INDICATE END OF QUEUE u P RTN A5 u
0x0d8fe0…0d9174 (6, 25) Dummy {f00=0x0045, f01=0x0190, f02=» P ST A4,LCA4 v P ST A5,LCA5 v P ST A6,LCA6 v , P ST A7,LCA7 v @ P ST A8,LCA8 v T P RF RTNA15 RETURN v h P* v P* v P* RESTORE v $ P* CALLING SEQUENCE: CF A15,LDREG v P* v PLDREG LDKL A3,0 v PLCA3 EQU *-2 v P L
0x0d9174…0d9308 Dummy {f00=0x0045, f01=0x018e, f02=»QU *-2 v P LDKL A8,0 w PLCA8 EQU *-2 w P* w 4 P* w > P* RETURN VIA REGISTER 15 w H P* w j PRTNA15 EQU * w t P ADKL A15,4 w P ABR* A15 w P EJECT w P* w P* POLL TIME OUT w P* w ( PPTOUT LDKL A5,STB LOAD A5 STACK
0x0d9308…0d949c Dummy {f00=0x0045, f01=0x0190, f02=» P* COUNT POLL TIME OUT x P* x " P LDK A1,CSSXC3 x , P CF A15,DCSUPS x B P XIF x X $ P CF A15,SPOTIM START POLL TIMER x d P ABL TDISP x P* x 4 P* RESTART POLL TIMER WHEN POLL HAS BEEN RECEIVED x P* x PCPTIM EQU * x P LDK A2,1
0x0d949c…0d9630 Dummy {f00=0x0045, f01=0x0190, f02=» P* START POLL TIMER y P* y PSPOTIM EQU * y ( , P LDR A1,A6 LOAD DWT ADDRESS AS PARAMETER y < P CF A15,SETIME START TIMER y l P DATA PTOUT,TIMPOL y & P ST A4,DCTPGP STORE TIMER POINTER y P RB RTNA15 RETURN y P EJECT y P* y P* ST
0x0d9630…0d97c4 Dummy {f00=0x0045, f01=0x0190, f02=»PRO y $ P ST A4,DCTPP SAVE TIMER POINTER z P RTN A5 z 4 P* z D P* PROCEDURE TIMEOUT z N P* z j PPRTOUT CM DCTPP z t P LDR A6,A1 RELOAD A6 z P LDKL A5,STB LOAD STACK BASE z P LDKL A7,DTETAB z P IFT STTSTS=1 z P* z P* z
0x0d97c4…0d9958 Dummy {f00=0x0045, f01=0x0190, f02=»OPEN SALCUZ z t P LD A1,XACK { " P RF(Z) PRT10 ACK NOT EXPECTED { ( P CF A5,TRENQ SEND ENQ { N & P CF A5,SPTIM START PROCEDURE TIMER { l PPRT10 ABL BRM { P EJECT { P* { P* STOP PROCEDURE TIMER { P* { ( PHPTIM LD A1,DCTPP GET TIMER
0x0d9958…0d9aec Dummy {f00=0x0045, f01=0x0190, f02=» ( P* WAIT 1 SEC. FOR MODEM CONNECTION | P* | 0 P | : PDTE:ON LDR A1,A6 DWT ADDRESS | B P CF A15,SETIME WAIT 1 SEC. | f P DATA DTE:10,10 | P =1 | P LDKL A5,STB =1 | " P CF A5,CSYNCI CONNECT MODEM =1 | * P CF A5,CHALTI NO INTERRUPTS
0x0d9aec…0d9c80 Dummy {f00=0x0045, f01=0x018e, f02=»DR A6,A1 DWT ADDRESS | P LDKL A7,DTETAB } $ P IM DTESTA,A7 SET OPEN STATUS =1 } 4 P LDKL A5,STB =1 } * P CF A5,CSYNCI PUT CU IN ACTIVE MODE =1 } t 8 P CF A5,CHALTI HALT I/P DEVICE TO GET MODEM STATUS =1 } 0 P IM DTEPLS,A7 PRESET PHYSICAL STATUS = OK
0x0d9c80…0d9e14 (6, 26) Dummy {f00=0x0045, f01=0x0190, f02=» } ~ " P LDR A1,A2 SET RETURN CODE =1 ~ * P CF A15,TENDIO COMPLETE THE REQUEST =1 ~ . & P CF A15,SPOTIM START POLL TIMER =6 ~ P ABL BRM START I/P =1 ~ P EJECT ~ P IFT MESPAS=1 ~ P* ~ P* ~ P* GET DWT ADDRESS ~ P* ~ PMESDWT E
0x0d9e14…0d9fa8 Dummy {f00=0x0045, f01=0x0190, f02=» DDT-ADDR ~ P RF(E) MES200 YES " P LD A2,DWTST,A6 ANY REQUEST ? , P RF(N) MESD50 NO R ( P LD A2,DWTOR,A6 ANY MESSAGE ORDER ? j P ANK A2,/FF P RF(Z) MES200 YES & P SUK A2,RECEIVE A RECEIVE ORDER ? P RF(Z) MES200 YES P
0x0d9fa8…0da13c Dummy {f00=0x0045, f01=0x0190, f02=»00 PMES100 EQU * P LDR A6,A7 GET DTETAB-ADDR PMES200 EQU * @ P ABL RTNA15 RETURN VIA A15 T P XIF v P EJECT P* P* P* BASIC RECEIVE MODE P* " P* ENTERED EVERY TIME A MESSAGE & P* IS EXPECTED FROM THE M
0x0da13c…0da2d0 Dummy {f00=0x0045, f01=0x0190, f02=»EAR TRANSPARENT TEXT , P CF A5,CSYNCI START INPUT WITH SYNC DEF P* L P* V P* ` P CF A5,READP READ CHARACTER j P RF(NZ) BRM120 PARITY ERROR P* P* * P* CHECK IF IT IS A CONTROL CHARACTER P* P LDR A1,A2
0x0da2d0…0da464 Dummy {f00=0x0045, f01=0x0190, f02=»A STX,STX100 STX RECEIVED " P DATA EOT,EOT100 EOT RECEIVED " " P DATA ENQ,ENQ100 ENQ RECEIVED H " P DATA DLE,DLE100 DLE RECEIVED n ( PBRM100 DATA NAK,NAK100 NAK RECEIVED P EJECT P* P* P* THROUGHPUT ERROR P* P
0x0da464…0da5f8 Dummy {f00=0x0045, f01=0x0190, f02=» SYNC DEF r P* P* $ P* WAIT FOR MARK HOLD TO RESYNC. & P* N PBRM120 EQU * X P CF A5,READ READ CHARACTER l 0 P LD A1,DCSTCU ANY STATUS FROM CONTROL UNIT ? P RF(NZ) BRM130 YES P ANK A2,/7F P SUK A2,/7F P RB(
0x0da5f8…0da78c Dummy {f00=0x0045, f01=0x0190, f02=»IT IS A POLL OR A SELECT SEQUENCE P* * PBRM200 EQU * 4 P IFT MSV1=0 H P LDR A4,A2 P CF A5,READP READ CHARACTER n P CWR A2,A4 $ P RB(NE) BRM120 INVALID SEQUENCE P XIF P LDK A3,0 P CC A2,1,A7 IS IT A POLL ?
0x0da78c…0da920 Dummy {f00=0x0045, f01=0x018e, f02=»QU * P CF A5,READP READ 1:ST STA P RB(NZ) BRM PARITY ERROR . P LDR A4,A2 N P IFT MSV1=0 ` P CF A5,READP READ 2:ND STA t P CWR A2,A4 $ P RB(NE) BRM120 INVALID SEQUENCE P XIF P CF A5,READP READ ENQ P SUK A2,ENQ
0x0da920…0daab4 (6, 27) Dummy {f00=0x0045, f01=0x018e, f02=» P EJECT P* P* 0 P* CHECK IF IT IS A SELECT OR A POLL ADDRESS & P* Z P LDK A1,1 d P ST A1,CACK LOAD ACK-COUNTER v P LDR A2,A4 P SUK A3,2 P RF(Z) SELECT SELECTING P* P* P* POLLING P*
0x0daab4…0dac48 Dummy {f00=0x0045, f01=0x0190, f02=» P EJECT P* P* & P* SPECIFIC POLL HAS BEEN RECEIVED * P* T P* ^ P IFF STARVI+SPECP=0 h P LD A1,XACK P RF(NZ) POL100 ACK EXPECTED * P LDR A6,A3 LOAD DWT ADDRESS IN A6 =10 8 P RF(Z) POL150 REQ. DEV. NOT CO
0x0dac48…0daddc Dummy {f00=0x0045, f01=0x018e, f02=» " P RF(NZ) POL120 PENDING STATUS P XIF * P IFF STARVI+SPECP=0 6 P LD A1,DWTST,A6 R P RF(N) POL150 NO REQUEST j P LD A1,DWTOR,A6 GET ORDER & P ANK A1,/FF MASK AWAY OPTION PART P SUK A1,6 P RF(Z) POL170 WRITE REQUEST
0x0daddc…0daf70 Dummy {f00=0x0045, f01=0x0190, f02=» PGPOLL EQU * P LD A1,XACK " P RF(Z) POL110 ACK NOT EXPECTED , P =11 R PPOL100 EQU * b * P CF A5,HPTIM KILL PROCEDURE TIMER =11 v P CF A5,TRENQ SEND ENQ & P CF A5,SPTIM START PROCEDURE TIMER P ABL BRM WAIT FOR RESPONSE
0x0daf70…0db104 Dummy {f00=0x0045, f01=0x0190, f02=» BE SENT v " P SUK A6,DWTOPE GET DWT ADDRESS PPOL120 EQU * 6 P CF A5,TRSTA SEND STATUS J & P CF A5,SPTIM START PROCEDURE TIMER j P IM XACK SET 'ACK EXPECTED' P XIF P IFF STARVI=1 P RF POL140 P XIF PPOL130 EQU *
0x0db104…0db298 Dummy {f00=0x0045, f01=0x0190, f02=»EOT ~ P RB POL130 PPOL160 EQU * " P SUK A6,DWTOPN GET DWT ADDRESS 2 PPOL170 EQU * X $ P LD A8,DWTECB,A6 GET ECB ADDRESS l P RF(NZ) POL180 P CF A15,REMOVW P RB POL150 PPOL180 EQU * P ST A8,FECB SAVE ECB ADDRESS
0x0db298…0db42c Dummy {f00=0x0045, f01=0x0190, f02=»E DATA FROM USER BUFFER ~ P XIF & P LD A4,ECBBA,A8 GET BUFFER ADDRESS , P LD A3,ECBRL,A8 GET LENGTH V PPOL190 EQU * x & P ST A4,FECBBA SAVE BUFFER ADDRESS P . =15 P ST A3,FECBRL SAVE LENGTH P CM FBAX RESET BUFFER INDEX
0x0db42c…0db5c0 Dummy {f00=0x0045, f01=0x0190, f02=»RE TIMER v P IM XACK SET 'ACK EXPECTED' P RB POL130 4 P EJECT F P* T P* ^ P* SELECT HAS BEEN RECEIVED h P* PSELECT EQU * P CF A5,FINTES P LDR A6,A3 GET DWT-ADDR P RF(NZ) SEL100 P IFT MESPAS=1
0x0db5c0…0db754 (6, 28) Dummy {f00=0x0045, f01=0x0190, f02=»A1,XACK & P RB(NZ) POL100 ERROR. ACK EXPECTED P IFF STARVI=0 : P LD A1,DWTST,A6 GET STATUS P P LDR A3,A1 r P ANK A1,1 $ P RF(Z) SEL120 NO PENDING STATUS P CF A5,TRRVI SEND RVI P XIF P IFF STARVI=1 P RF SEL120
0x0db754…0db8e8 Dummy {f00=0x0045, f01=0x0190, f02=» OR DB ? =2 | P RF(NZ) SEL140 YES =2 P XIF 2 P =2 > P LD A1,DCRBUF L $ P RF(NZ) SEL150 BUFFER AVAILABLE b P IFT STTSTS=1 ( P LDK A1,CSSRBY BUFFER NOT AVAILABLE $ P CF A15,DCSUPS INCREMENT COUNTER P XIF PSEL140 E
0x0db8e8…0dba7c Dummy {f00=0x0045, f01=0x0190, f02=»F A5,PRREC PREPARE FOR TEXT RECEPTION P ADK A1,6 . P ST A1,FBLST @ P CF A5,TRACK SEND ACK,0 T P RB SEL110 t P EJECT P* P* P* EOT HAS BEEN RECEIVED P* P* PEOT100 EQU * & P CF A5,HPTIM STOP PROCED
0x0dba7c…0dbc10 Dummy {f00=0x0045, f01=0x0190, f02=»D p " P LD A6,FDWTUT GET WRITING DWT P RF(Z) EOT110 NO ONE WRITING 0 P LDK A1,2 SET RC=2 T ( P CF A5,CWRITE COMPLETE WRITE REQUEST n PEOT110 EQU * " P CM XACK RESET 'ACK EXPECTED' PEOT120 EQU * P CM XSEL RESET 'SELECTED'
0x0dbc10…0dbda4 Dummy {f00=0x0045, f01=0x018e, f02=» P IFT TPMODE=1 P ABL BRM120 INVALID SEQENCE PSTX110 EQU * B P XIF V P LD A1,XSEL b P RF(Z) STX150 NOT SELECTED v P LD A1,DCRBUF P IFF STTSTS=1 & P ABL(Z) BRM120 NO BUFFER AVAILABLE P XIF P IFT STTSTS=1
0x0dbda4…0dbf38 Dummy {f00=0x0045, f01=0x018e, f02=» n P ABL BRM120 P XIF PSTX120 EQU * ( P CF A5,RDMESS READ MESSAGE < P IFT STTSTS=1 ^ P* t P* ~ P* COUNT MESSAGES RECEIVED P* P LDK A1,CSSRBL P CF A15,DCSUPS P XIF P SUK A3,1 P RF(NZ) ST
0x0dbf38…0dc0cc Dummy {f00=0x0045, f01=0x0190, f02=» P ABL BRM PSTX150 EQU * P IFT RCOM=1 ( P LD A1,XACK < & P RF(Z) STX160 ACK IS NOT EXPECTED P P LD A1,DCRBUF z & P RF(Z) STX160 NO BUFFER AVAILABLE " P LD A6,FDWTUT GET WRITING DWT 0 P ABL(Z) BRM120 NO ONE WRITING. RESYNCHRO
0x0dc0cc…0dc260 Dummy {f00=0x0045, f01=0x0190, f02=» WRITE REQUEST z P CM CACK PRESET ACK-1 P RB STX120 READ THE MESSAGE 4 P XIF X ( PSTX160 CF A5,READ READ ONE CHARACTER d P CWK A2,ENQPAR IS IT ENQ ? ( P RB(Z) STX140 FORWARD ABORT SEQUENCE P RB EOT120 PSTX170 EQU * P IM
0x0dc260…0dc3f4 (6, 29) Dummy {f00=0x0046, f01=0x0190, f02=»LOCK v P IFF RCOM=0 P LDK A1,ESC P CCR A1,A4 4 P RB(NE) STX130 ESC NOT FOUND F P LC A1,1,A4 GET COMMAND CODE j P SUK A1,RDBCOM ( P RF(Z) RDBUF READ MODIFIED RECEIVED P SUK A1,RDMCOM-RDBCOM & P RF(Z) RDMOD READ BUFFER R
0x0dc3f4…0dc588 Dummy {f00=0x0046, f01=0x0190, f02=» MESPAS=1 P CF A15,MESDWT P XIF ( P CWR A7,A6 IS IT DTETAB ? 4 P RF(E) STX280 SEND ACK V P LD A2,DWTSTA,A6 . =14 t , P RF(Z) STX280 TERMINAL DISCONNECTED =14 P CM FBAX * P CF A15,GRBUF ALLOCATE RECEIVE BUFFER P ADK A4,
0x0dc588…0dc71c Dummy {f00=0x0046, f01=0x0190, f02=»UFFER v P RF(Z) STX200 NO P ST A2,+4,A1 STORE THE ADDR & PSTX200 EQU * J P XIF ^ " P LD A2,DWTST,A6 ANY REQUEST ? j P RF(N) STX220 NO P LD A2,DWTOR,A6 GET ORDER P IFT EM3270=1 & P RF(Z) STX210 ANY MESSAGE ORDER ?
0x0dc71c…0dc8b0 Dummy {f00=0x0046, f01=0x0190, f02=» ADDRESS x P LD A3,-4,A4 GET LENGTH * P ST A3,ECBEL,A8 STORE EFFECTIVE LENGTH 0 . P LD A1,DWTLAD,A6 SYMBOLIC DTE ADDRESS =12 ^ ( P LD A2,-2,A4 NETWORK SUB-ADDRESS =12 0 P CF A15,GETSSA GET SYMBOLIC SUB ADDRESS =12 , P ST A1,ECBCW2,A8 AND SAV
0x0dc8b0…0dca44 Dummy {f00=0x0046, f01=0x0190, f02=»A2,ECBCW1,A8 STORE REMAINING TIME P XIF =9 * PSTX220 EQU * < P IFT STARVI=1 P P LC A2,+2,A4 GET WCC/CCC f P ANK A2,/FF P LC A2,TEBCDIC,A2 P ANK A2,8 P RF(Z) STX230 P LD A2,DWTST,A6 P ORK A2,/A P S
0x0dca44…0dcbd8 Dummy {f00=0x0046, f01=0x0190, f02=» BUFFER ~ P RF STX270 PSTX240 EQU * " P LD A2,DWTOR,A6 GET ORDER 6 $ P CWK A2,RECEIVE RECEIVE ORDER ? X P RF(NE) STX260 NO P =12 P LDK A1,0 RESET RETURN CODE * P LD A2,DWTIPC,A6 ANY QUEUED MESSAGES ? P RF(Z) STX25
0x0dcbd8…0dcd6c Dummy {f00=0x0046, f01=0x0190, f02=» P CF A5,QRBUF QUEUE BUFFER P IFT EM3270=1 & P LD A2,DWTOR,A6 GET ORDER < ( P RF(NZ) STX270 NOT ANY MESSAGE ORDER ^ $ P CF A15,TENDIO COMPLETE REQUEST P XIF PSTX270 EQU * P IFT STARVI=1 P LD A1,DWTST,A6 GET STATUS
0x0dcd6c…0dcf00 Dummy {f00=0x0046, f01=0x0190, f02=»,TRACK SEND ACK PSTX290 EQU * P ABL BRM , P EJECT < P* J P* T , P* READ MODIFIED OR READ BUFFER RECEIVED ^ P* P* P IFF RCOM=0 $ PRDBUF EQU * READ BUFFER COMMAND PRDMOD EQU * " P CM XSEL RESET SELECT
0x0dcf00…0dd094 (6, 30) Dummy {f00=0x0046, f01=0x0190, f02=»ADDRESS x " P LDKL A3,1922 REQUESTED LENGTH " P IM XRB SET READ BUFFER SWITCH 6 P CM FDWTUT P LDK A1,1 n & P XRS A1,CACK INCREMENT ACK COUNTER P ABL POL190 P XIF P EJECT P* P* P* ENQ HAS BEEN RECEIVED
0x0dd094…0dd228 Dummy {f00=0x0046, f01=0x0190, f02=»OF MESSAGE r P OR A1,XSEL " P RF(Z) ENQ110 IN CONTROL STATE & . P CF A5,TRREP REPEAT LAST CONTROL SEQUENCE L PENQ110 EQU * ~ P ABL BRM P EJECT P* P* P* NAK HAS BEEN RECEIVED P* P* PNAK100 EQU *
0x0dd228…0dd3bc Dummy {f00=0x0046, f01=0x018e, f02=»IN CONTROL STATE P RF DLE160 PNAK110 EQU * * " P LD A6,FDWTUT GET WRITING DWT > P IFF STARVI=0 d P LD A1,XSTA z 0 P ABL(NZ) POL120 STATUS HAS BEEN TRANSMITTED P XIF 0 P LD A1,FBLST GET START POINT FOR LAST BLOCK & P SU A1
0x0dd3bc…0dd550 Dummy {f00=0x0046, f01=0x0190, f02=» P* P LDK A1,CSSTRT P CF A15,DCSUPS $ P XIF : P ABL POL200 F P EJECT Z P* h P* r P* DLE HAS BEEN RECEIVED | P* P* PDLE100 EQU * & P CF A5,HPTIM STOP PROCEDURE TIMER P LD A1,XACK P RF(NZ
0x0dd550…0dd6e4 Dummy {f00=0x0046, f01=0x0190, f02=» RB ENQ110 PDLE110 EQU * & P CF A5,READ READ SECOND CHARACTER & P CWK A2,ACKPAR IS IT ACK 0 ? P P RF(NE) DLE130 t P* P* ACK , 0 RECEIVED P* P LD A1,CACK GET ACKCOUNTER P RF(Z) DLE140 ACK,0 EXPECTED PDLE120 EQU
0x0dd6e4…0dd878 Dummy {f00=0x0046, f01=0x0190, f02=» P RF(NE) DLE180 P* P* ACK , 1 RECEIVED $ P* > P LD A1,CACK GET ACK COUNTER H $ P RB(Z) DLE120 ACK,1 NOT EXPECTED l PDLE140 EQU * P LD A1,XETX P RF(Z) DLE170 ETX NOT SENT P EJECT P* , P* ACK HAS BEEN REC
0x0dd878…0dda0c Dummy {f00=0x0046, f01=0x0190, f02=»DLE200 STATUS HAS BEEN TRANSMITTED P XIF * ( P CF A5,CWRITE COMPLETE WRITE REQUEST 6 PDLE160 EQU * b P CF A5,TREOT SEND EOT v P IFT RCOM=1 P CM XRB RESET READ BUFFER P XIF P RB ENQ110 PDLE170 EQU * P LDK A1,1
0x0dda0c…0ddba0 Dummy {f00=0x0046, f01=0x0190, f02=» INVALID DLE SEQUENCE " P CM XACK RESET 'EXPECTING ACK' P LD A1,XETX D $ P RF(NZ) DLE190 ETX HAS BEEN SENT X P LDK A1,2 SET RC=2 P RB DLE150 PDLE190 EQU * P LDK A1,0 SET RC=0 P RB DLE150 P EJECT P IFF STARVI=0
0x0ddba0…0ddd34 (6, 31) Dummy {f00=0x0046, f01=0x0190, f02=» r , P CF A15,REMOVS REMOVE FROM STATUS QUEUE P CM XSTA CLEAR 'STATUS SENT' 8 " P CM XACK CLEAR 'ACK EXPECTED' P LD A1,DWTST,A6 GET STATUS P ANK A1,4 P RB(Z) DLE160 NOT DE P LDKL A1,/8000 " P ANS A1,DWTST,A6 CLEAR STATUS
0x0ddd34…0ddec8 Dummy {f00=0x0046, f01=0x0190, f02=»CALLING SEQUENCE: CF A5,FINTER(S) P* A2=SUBTERMINAL ADDRESS * P* A4 DESTROYED J " P* A3#0: DWT TO FOUND TERMINAL ` P* B P* NOTE: FOR SIEMENS MSV1 - SEPARATE SELECT AND POLL ADDRESSES * P* ENTRY: FINTES - CHECK SELECT ADDRESS , P* F
0x0ddec8…0de05c Dummy {f00=0x0046, f01=0x0190, f02=»FINT05 P XIF PFINTEP EQU * P LDK A4,1 RIGTH BYTE . PFINT05 EQU * J " P LD A3,DTEDWT,A7 GET FIRST DWT ^ PFINT10 EQU * P RF(Z) FINT20 END QUEUE P ADR A3,A4 " P CCR A2,A3 THIS SUB-ADDRESS ? P RF(E) FINT20 YES
0x0de05c…0de1f0 Dummy {f00=0x0046, f01=0x018e, f02=»JECT P* P* P* PREPARE FOR TEXT RECEPTION P* D P* N PPRREC EQU * X P IM XSEL SET 'SELECTED' l P CM FBAX RESET BUFFER INDEX P IFT CODE=1 . P LC A2,TEBCDIC,A2 TRANSLATE STA TO EBCDIC P XIF $ P ST A2
0x0de1f0…0de384 Dummy {f00=0x0046, f01=0x0190, f02=» 6 P* CHECK IF THERE IS A SEND REQUEST TO BE COMPLETED P* > P* A1 CONTAINS RETURN CODE H P* j P* t PCWRITE LD A6,FDWTUT ~ $ P RF(Z) CWR900 NO WRITE GOING ON P LD A2,DWTST,A6 P RF(N) CWR900 NO REQUEST P LD A2,DWTOR,A
0x0de384…0de518 Dummy {f00=0x0046, f01=0x0190, f02=» ANY RECEIVED BUFFERS ON QUEU ? P RF(Z) CWR110 NO ( 0 P ORKL A1,R:DATA ACCEPTED AND DATA AVAILABLE @ PCWR110 EQU * t P LD A8,DWTECB,A6 P CF A15,CTIME STOP TIMER P IFT REMTIM=1 =9 P ST A2,ECBCW1,A8 P XIF =9 $ P CF
0x0de518…0de6ac Dummy {f00=0x0046, f01=0x0190, f02=» 'ACK EXPECTED' P CM FDWTUT P RTN A5 * P EJECT : P* H P* R P* READ ONE TEXT BLOCK P* z P* ON EXIT A3 CONTAINS : ( P* 0 : IF CORRECT ETX BLOCK RECEIVED 2 P* 1 : IF LRC OR PARITY ERROR , BUFFER OVERFLOW ( P*
0x0de6ac…0de840 Dummy {f00=0x0046, f01=0x0190, f02=» x P LDK A3,0 P LD A1,XSTA $ P RF(NZ) RDM050 LAST INPUT WAS OK . " P LD A1,FBLST COMPUTE NEW INDEX V P SUR A1,A4 | P ST A1,FBAX PRDM050 EQU * P AD A4,FBAX ADD BUFFER INDEX ( P ST A4,FBLST REMEMBER START OF BLOCK P C
0x0de840…0de9d4 (6, 32) Dummy {f00=0x0046, f01=0x018e, f02=»ST BLOCK z P CF A5,READP P RF(NZ) RDM120 PARITY ERROR $ P CWK A2,ESC H P RF(NE) RDM110 * P CF A5,READP SKIP NEXT TWO CHARACTERS r P CF A5,READP P XIF P IFF TPMODE=1 PRDM100 EQU * $ P CF A5,READP READ ONE CHARACTE
0x0de9d4…0deb68 Dummy {f00=0x0046, f01=0x0190, f02=» l PRDM100 CF A5,READ P CWK A2,DLE CHECK IF DLE " P RF(NE) RDM112 NO B 0 P CF A5,READ SKIP DLE AND READ NEXT CHARACTER P CWK A2,SYNEBC CHECK IF SYN P RB(E) RDM100 SKIP SYN P CF A5,CRCCAL CALCULATE CRC " P CWK A2,DLE CHECK
0x0deb68…0decfc Dummy {f00=0x0046, f01=0x0190, f02=»BC CHECK IF ETB P RF(E) RDM160 YES P CWK A2,ITB CHECK IF ITB 2 P RF(E) RDM175 YES R P CWK A2,ENQEBC CHECK IF ENQ l P RF(E) RDM140 YES SEND NAK P* P* P* GET END OF BLOCK P* PRDM105 EQU * P CF A5,REA
0x0decfc…0dee90 Dummy {f00=0x0046, f01=0x0190, f02=» A2,ETBEBC $ P RB(NE) RDM105 NOT END OF BLOCK PRDM110 EQU * : $ P CM TPM OUT OF TRANSPARENT TEXT N P CF A5,RDCRC v ( P RF RDM140 INDICATE INVALID MESSAGE & PRDM112 CF A5,CRCCAL CALCULATE CRC P XIF P IFF TPMODE=1 P CWK A
0x0dee90…0df024 Dummy {f00=0x0046, f01=0x0190, f02=»ITB RECEIVED P CWK A2,ENQ 2 P RF(E) RDM120 SKIP IF ENQ EMBEDDED IN MESSAGE ( P CWK A2,/FF ^ $ P RF(E) RDM140 MARK HOLD RECEIVED r P IFT CODE=0 P IFT BINTRM=1 P LDR A1,A2 P SUK A1,DC1+3 P RF(P) RDM115 NOT DC1-DC3
0x0df024…0df1b8 Dummy {f00=0x0046, f01=0x0190, f02=» j P RF(NZ) RDM120 PARITY ERROR P LCR A1,A4 =7 , * P SUK A2,/20 ASSEMBLE TO ONE CHARACTER B P ORR A2,A1 =7 p P XIF PRDM115 EQU * & P ADK A3,0 ERROR DETECTED EARLIER ? P RB(NZ) RDM100 YES !!! P SCR A2,A4 STORE CHARACTER
0x0df1b8…0df34c Dummy {f00=0x0046, f01=0x018e, f02=»NG) RDM100 NOT OVERFLOW P* P* BUFFER OVERFLOW * P* D & P LDK A3,1 INDICATE BUFFER OVERFLOW N P IFT STTSTS=1 x " P LDK A1,CSSRBO BUFFER OVERFLOW $ P CF A15,DCSUPS INCREMENT COUNTER P XIF P RB RDM100 P* P* PA
0x0df34c…0df4e0 Dummy {f00=0x0046, f01=0x0190, f02=» n P XIF & P LDK A3,1 INDICATE INVALID MESSAGE P SUK A2,/7F > $ P RF(Z) RDM150 MARK HOLD RECEIVED R P RB RDM100 z P* P* ETX RECEIVED P* PRDM130 EQU * $ P LD A1,DCRBUF GET BUFFER ADDRESS P LD A2,FBAX GET BUFFER
0x0df4e0…0df674 (6, 33) Dummy {f00=0x0047, f01=0x0190, f02=» P XIF P IFT CODE=1 & P CF A5,RDCRC READ CRC AND CHECK IT $ P RF(E) RDM150 CRC WAS OK N P XIF n PRDM140 EQU * z & P LDK A3,1 INDICATE INVALID MESSAGE PRDM150 EQU * P CF A5,CHALTI HALT INPUT P IFT P6805=1 P IFT COD
0x0df674…0df808 Dummy {f00=0x0047, f01=0x0190, f02=» & P CWK A3,1 ERROR DETECTED EARLIER ? P RF(NE) RDM158 NO . $ P CM TPM OUT OF TRANSPARENT TEXT H PRDM158 EQU * p P XIF P RTN A5 P* P* ETB RECEIVED P* PRDM160 EQU * P LDR A3,A3 " P RB(NZ) RDM130 ALREADY I
0x0df808…0df99c Dummy {f00=0x0047, f01=0x0190, f02=» CODE=1 P CF A5,RDLRC " P RB(NZ) RDM120 LRC WAS NOT OK $ P XIF J P IFT CODE=1 V & P CF A5,RDCRC READ CRC AND CHECK IT j " P RB(NE) RDM120 CRC WAS NOT OK P IFT TPMODE=1 * PRDM175 CM TPM OUT OF TRANSPARENT TEXT $ P CF A5,RDC
0x0df99c…0dfb30 Dummy {f00=0x0047, f01=0x0190, f02=»E) RDM180 SKIP SYN P CWK A2,DLE $ P RB(NE) RDM105 ILLEGAL CHARACTER . P CF A5,READ V P CWK A2,STX j $ P RB(NE) RDM105 ILLEGAL CHARACTER ~ P XIF P RB RDM100 P EJECT P* P* TRANSMIT ACK 0 OR 1 P* PTRAC
0x0dfb30…0dfcc4 Dummy {f00=0x0047, f01=0x018e, f02=»K0 | P RF TRDLE P* P* TRANSMIT WACK & P* > PTRWACK LDK A3,WACK LOAD WACK H P RF TRDLE l P* ~ P* TRANSMIT RVI P* P IFF STARVI=0 PTRRVI LDK A3,RVI LOAD RVI P XIF P* P* TRANSMIT DLE
0x0dfcc4…0dfe58 Dummy {f00=0x0047, f01=0x0190, f02=» P* P* TRANSMIT NAK P* ( PTRNAK LDK A3,NAK LOAD NAK 2 P RF TREN10 T P* f P* TRANSMIT EOT p P* PTREOT LDK A3,EOT LOAD EOT P RF TREN10 P* P* TRANSMIT ENQ P* PTRENQ LDK A3,ENQ LOAD ENQ
0x0dfe58…0dffec Dummy {f00=0x0047, f01=0x018e, f02=»T r & P LC A2,RESEND GET FIRST CHARACTER P CF A5,WRITEP SEND IT 4 & P LC A2,RESEND+1 GET NEXT CHARACTER R P CF A5,WRITEP SEND IT | PTRRE10 LDK A2,/FF P CF A5,WRIT05 SEND PAD P LDK A2,/FF P CF A5,WRIT05 P CF A5,CHALT
0x0dffec…0e0180 Dummy {f00=0x0047, f01=0x0190, f02=» P* P* TRANSMIT ONE TEXT BLOCK P* 0 P* : PTRTEXT EQU * D P CF A5,TRSYNC START OUTPUT X P IFF TPMODE=0 z P LDK A2,DLE P CF A5,WRIDLE SEND DLE P XIF P LDK A2,STX P CF A5,WRITE SEND STX P SUR A8,
0x0e0180…0e0314 (6, 34) Dummy {f00=0x0047, f01=0x0190, f02=» P . =15 & P LDK A3,0 RESET CHARACTER COUNTER P LD A1,FBAX GET BUFFER INDEX > " P RF(NZ) TRT100 NOT FIRST BLOCK b " P LDR* A2,A7 NETWORK POLL ADDR P CF A5,WRITEP SEND TCA " P LD A2,FDWTUT GET DWT-ADDRESS ( P LDR* A2,A2 GET NETWOR
0x0e0314…0e04a8 Dummy {f00=0x0047, f01=0x0190, f02=»A5,WRITEP " P LDK A2,/20 AND CURSOR ADDRESS P CF A5,WRITEP 8 P LDK A2,/20 N P CF A5,WRITEP b P XIF x P IFT RCOM=1 P & P LD A1,XRB READ BUFFER COMMAND ??? P RF(Z) TRT070 NO!! P P ********************
0x0e04a8…0e063c Dummy {f00=0x0047, f01=0x0190, f02=»ND LINE AND COLUMN NUMBER P LDK A3,5 SET BLOCK COUNT " P RF TRT100 D PTRT070 EQU * V P XIF j P v P LDK A3,2 ~ PTRT100 EQU * P IFT TPMODE=1 P IM TPM TRANSPARENT TEXT P XIF P LCR A2,A4 GET ONE CHARACTER
0x0e063c…0e07d0 Dummy {f00=0x0047, f01=0x0190, f02=»!! P @ P************************************************************ P* V , P* CHECK IF ATTRIBUTE CHARACTER OR NULL ` P* 4 P*********************************************** P & P CWK A2,X'20' ATTRIBUTE CHARACTER P RF(
0x0e07d0…0e0964 Dummy {f00=0x0047, f01=0x0190, f02=»A PTRT102 EQU * P CWK A2,/7D END OF MESSAGE ? " P RF(NE) TRT103 NO,GO TO TRT103 B P LDK A2,/19 h PTRT103 EQU * | P CWK A2,X'7F' NULL ?? P RF(NE) TRT105 P SUK A2,1 P XIF P IFT RCOM=1 P RF TRT105 P
0x0e0964…0e0af8 Dummy {f00=0x0047, f01=0x0190, f02=» l P ANK A2,X'7F' ( P LDR A1,A2 CONVERT TO IBM ATTRIBUTE P ANK A1,1 J P ANK A2,/1E MASK P SLL A2,1 t & P ORR A2,A1 IBM ATTRIBUTE COMPOSED " P ORK A2,/40 BIT ALWAYS SET ONE P LC A2,TASCII,A2 & P CWK A2,/18 CHECK SPECIAL
0x0e0af8…0e0c8c Dummy {f00=0x0047, f01=0x0190, f02=»TRT110 PTRT105 EQU * P XIF " P EJECT . P IFF TPMODE=1 < P CWK A2,/07 R ( P RF(L) TRT110 ILLEGAL CODE : SKIP IT f P XIF P CF A5,WRITEP SEND CHARACTER PTRT110 EQU * $ P IM FBAX INCREMENT BUFFER INDEX & P LD A1,FEC
0x0e0c8c…0e0e20 Dummy {f00=0x0047, f01=0x0190, f02=» CWK A3,TBLEN P IFT TPMODE=1 P RB(L) TRT105 NOT FULL BLOCK , P XIF P P RB(L) TRT100 NOT FULL BLOCK P IFT RCOM=1 , P LDK A1,SBA CHECK IF SBA AT END OF BLOCK P CC A1,-2,A4 P RF(E) TRT115 YES P CC A1,-1,A4 P R
0x0e0e20…0e0fb4 (6, 35) Dummy {f00=0x0047, f01=0x018e, f02=» P IM FBAX INCREMENT INDEX . PTRT115 LCR A2,A4 GET SECOND BYTE AFTER SBA $ P CF A5,WRITEP SEND IT V P IM FBAX INCREMENT INDEX t P XIF PTRT116 EQU * P IFT TPMODE=1 P LDK A2,DLE $ P CF A5,WRIDLE SEND AN EXTRA DLE P X
0x0e0fb4…0e1148 Dummy {f00=0x0047, f01=0x0190, f02=» P IFF CODE=1 P LDR A2,A8 GET LRC P CF A5,WRITEP SEND LRC 2 P XIF P P IFT CODE=1 P LDR A2,A6 p P ANK A2,/FF " P CF A5,WRIT05 SEND CRC BYTE 1 P ECR A2,A6 P ANK A2,/FF " P CF A5,WRIT05 SEND CRC BYTE 2 P
0x0e1148…0e12dc Dummy {f00=0x0047, f01=0x0190, f02=»PS P XIF P ABL TRRE10 HALT OUTPUT PTRT130 EQU * 6 P IM XETX INDICATE 'ETX SENT' J P IFT TPMODE=1 n P LDK A2,DLE $ P CF A5,WRIDLE SEND AN EXTRA DLE P XIF P LDK A2,ETX LOAD ETX P RB TRT120 SEND ETX AND LRC
0x0e12dc…0e1470 Dummy {f00=0x0047, f01=0x0190, f02=»M XSTA INDICATE 'STATUS SENT' P ST A6,FDWTUT SAVE A6 & P CF A5,TRSYNC START OUTPUT D P LDK A2,SOH f P CF A5,WRITE SEND SOH z P SUR A8,A8 RESET LRC P LDK A2,'%' P CF A5,WRITEP SEND '%' P LDK A2,'R' P CF A5,WRITEP
0x0e1470…0e1604 Dummy {f00=0x0047, f01=0x0190, f02=»T-ADDRESS | ( P LDR* A2,A4 GET NETWORK SUB-ADDRESS P CF A5,WRITEP SEND STA > P LD A1,DWTST,A4 GET STATUS P ANK A1,/06 MASK FOR S/S 0 ~ P SRL A1,1 $ P LC A2,SSTAB,A1 GET STATUS BYTE P CF A5,WRITEP SEND S/S 0 P LDK A2,NOIR P
0x0e1604…0e1798 Dummy {f00=0x0047, f01=0x0190, f02=»O IR IF DE P LDK A2,IR PTRST10 EQU * $ P CF A5,WRITEP SEND S/S 1 8 P RB TRT130 SEND ETX AND LRC X P XIF | P EJECT P* P* & P* TRSYNC : TRANSMIT SYNC SEQUENCE P* PTRSYNC EQU * ( P CF A5,CHALTI HALT INP
0x0e1798…0e192c Dummy {f00=0x0047, f01=0x0190, f02=»* SEND 4 SYN-CHARACTERS P* P LDK A3,4 * PTRS100 EQU * < P LDK A2,SYN P P CF A5,WRITE SEND CHARACTER d P SUK A3,1 P RB(NZ) TRS100 P RTN A5 RETURN TO CALLER P EJECT P* P* 0 P* CSYNCI :SEND SYNC-P
0x0e192c…0e1ac0 Dummy {f00=0x0047, f01=0x0190, f02=»STOP INPUT & P ST A5,DCLCI SET INPUT ACTIVE FLAG P IFT P6805=1 < . P LDK A2,PARITY CHAR PARITY FUNCTION FOR LC P P CIO A2,1,LCUIN START I/O P LDK A2,SYNC SYNC PATTERN 2 P OTR A2,1,LCUIN SEND INPUT SYNC-PATTERN TO LC P XIF P
0x0e1ac0…0e1c54 (6, 36) Dummy {f00=0x0047, f01=0x0190, f02=»IF PCSYN:I EQU * P RTN A5 RETURN TO CALLER P* > P* H " P* CHALTI : HALT INPUT CHANNEL R P* x PCHALTI EQU * P IFT P6805=1 $ P LDK A2,CBSTOP STOP FUNCTION BIT P XIF P CIO A2,0,LCUIN HALT INPUT & P CM DCLC
0x0e1c54…0e1de8 Dummy {f00=0x0047, f01=0x0190, f02=»PTED, SET MODEM ERR. =1 r PCHALTR EQU * =1 P IFF LOGG=0 8 $ P CF A5,LOGSST LOGG INPUT STATUS L P XIF t P RTN A5 RETURN TO CALLER P EJECT P* P* 0 P* CSYNCO : START TRANSMITTER WITH SYNC DEF P* PCSYNCO E
0x0e1de8…0e1f7c Dummy {f00=0x0047, f01=0x018e, f02=» P CIO A2,1,LCUUT CIO START P RF(A) CSYNC1 ACCEPTED & $ P SST A2,LCUUT TRY TO READ STATUS D * P ABL BRM NOT ACCEPTED TIMEOUT REQUEST l PCSYNC1 EQU * " P LDK A2,SYNC DEF SYNC PATTERN & P OTR A2,1,LCUUT SEND SYNC PATTERN P XIF
0x0e1f7c…0e2110 Dummy {f00=0x0047, f01=0x0190, f02=» P* $ P* CHALTO : HALT OUTPUT CHANNEL P* 6 PCHALTO EQU * @ P IFT P6805=1 T P LDK A2,CBSTOP STOP FUNCTION h P XIF P CIO A2,0,LCUUT HALT OUTPUT P IFT P6805=1 , P LDK A2,1 PRESET STATUS = MODEM ERROR =1 . P RF(NA)
0x0e2110…0e22a4 Dummy {f00=0x0047, f01=0x0190, f02=» P IFT STTSTS=1 P ANK A2,H:NOOP+H:THRU P RF(Z) CHLTO2 < $ P LDK A1,CSCDCE DCE NOT OPERABLE R P ANK A2,H:NOOP z P RF(NZ) CHLTO1 YES * P LDK A1,CSCDOT OUTPUT THROUGHPUT ERROR PCHLTO1 EQU * $ P CF A15,DCSUPS INCREMENT COU
0x0e22a4…0e2438 Dummy {f00=0x0047, f01=0x018e, f02=» P* P* PIH1501 EQU * P ST P,INTSAV , P IFT CPU852=1 @ P CF A15,SAVE8 SAVE A1-A8 V P XIF v P P IFF CPU852=1 P MSR 8,A15 SAVE A1-A8 P XIF * P CF A15,LDREG RESTORE DC REGS A3 - A8 P INR A2,0,LCUIN
0x0e2438…0e25cc Dummy {f00=0x0047, f01=0x0190, f02=» P IFT TPMODE=1 P C2 TPM 8 P RF(NZ) IHLC10 DO NOT SKIP SYNC IN TRANSPARENT TEXT . P XIF j P C2 SYNSW v 0 P RF(NZ) IHLC05 DO NOT SKIP SYNS IN BCC FRAME P CWK A2,SYNC P RF(E) READ PIHLC05 EQU * P IFT CODE=0
0x0e25cc…0e2760 Dummy {f00=0x0047, f01=0x0190, f02=»CII p P XIF PIHLC10 EQU * P LDR A1,A2 , * P ORKL A1,/FF00 SET FLAG FOR CARRIER ON > & P ST A1,DCLCI SET INPUT ACTIV FLAG l P CM DCSTCU CLEAR SST SAVE P LDK A1,1 P ST A1,DTEPLS,A7 CU OPERABLE P RTN A5 RETURN TO CALLER
0x0e2760…0e28f4 (6, 37) Dummy {f00=0x0048, f01=0x0190, f02=» P* P* PIH1502 EQU * P ST P,INTSAV , P IFT CPU852=1 @ P CF A15,SAVE8 SAVE A1 - A8 V P XIF x P P IFF CPU852=1 P MSR 8,A15 SAVE A1-A8 P XIF * P CF A15,LDREG RESTORE DC REGS A3 - A8 P RTN A5
0x0e28f4…0e2a88 Dummy {f00=0x0048, f01=0x0190, f02=»IT 13=PARITY ERROR (6805 ONLY) SALCUZ , P* BIT 14=THROUGHPUT ERROR . , P* BIT 15=MODEM NOT READY ^ P* PSST EQU * P SST A2,LCUIN GET STATUS P LDR A1,A2 P IFT LOGG=1 & P CF A5,LOGSST LOGG SST I
0x0e2a88…0e2c1c Dummy {f00=0x0048, f01=0x0190, f02=»S x * P RF(Z) SST125 INPUT NOT ACTIVE IGNORE ( P RF(N) SST100 INPUT ACTIVE WITH DATA 8 * P LDKL A2,CBCARR+SYNC DEF SYNC PATTERN d & P CIO A2,1,LCUIN START INPUT AGAIN $ P RF SST125 RETURN TO DISPATCHER P XIF P IFT P6805=1 P RF
0x0e2c1c…0e2db0 Dummy {f00=0x0048, f01=0x018e, f02=»075 NO P LD A2,DCLCI INPUT STATUS 0 P RF(Z) SST125 NOT ACTIVE IGNORE CARRIER OFF 0 P RF SST100 ACTIVE d PSST075 EQU * ~ P LDR A2,A1 $ P ANK A2,H:THRU THROUGHPUT ERROR P RF(Z) SST100 NO P IFT STTSTS=1 P* P*
0x0e2db0…0e2f44 Dummy {f00=0x0048, f01=0x0190, f02=» PSST100 EQU * P LDR A2,A1 P ANK A2,H:NOOP NOT OPERABLE . P RF(Z) SST200 R P IFT STTSTS=1 h P* ~ P* P* COUNT DCE NOT OPERABLE P* P LDK A1,CSCDCE P CF A15,DCSUPS P XIF P CF A15,STREG SAVE
0x0e2f44…0e30d8 Dummy {f00=0x0048, f01=0x0190, f02=»* PSST150 EQU * P CF A15,LDREG LOAD REGISTERS PSST200 EQU * B P LDR A2,A1 V . P ANK A2,H:CARR CHECK STATUS IF CARRIER OFF h P RF(Z) SST225 NO 4 P XRK A1,H:CARR CHECK STATUS IF ONLY CARRIER OFF P RF(Z) SST250 YES PSST2
0x0e30d8…0e326c Dummy {f00=0x0048, f01=0x0190, f02=» P* , P* WRITE FROM OR READ ONE CHARACTER TO A2 P* B P* L PWRITE EQU * V P IFT CODE=1 j P C2 TPM ~ & P RF(Z) WRIT02 NOT TRANSPARENT MODE P CWK A2,DLE CHECK IF DLE P RF(NZ) WRIT05 NO P CF A5,WRIDLE SEND EXT
0x0e326c…0e3400 Dummy {f00=0x0048, f01=0x018e, f02=»TION OF TRAILING PAD x * P LC A2,TEBCDIC,A2 TRANSLATE TO EBCDIC P XIF J PWRIT05 EQU * V " P OTR A2,0,LCUUT SEND CHARACTER j P RF(A) WRIT10 P IFF CODE=1 $ PWRIT10 XRR A8,A2 ACCUMULATE BCC P XIF P IFT CODE=1 & PWRIT10
0x0e3400…0e3594 (6, 38) Dummy {f00=0x0048, f01=0x0190, f02=» P* PREAD CF A15,STREG P ABL TDISP , P* > P* H < P* THESE INSTRUCTIONS ARE ONLY USED TO SEND AN EXTRA DLE R * P* WHEN TRANSPARENT MODE IS CONFIGURED P* PWRIDLE EQU * " P OTR A2,0,LCUUT SEND CHARACTER P RB(
0x0e3594…0e3728 Dummy {f00=0x0048, f01=0x0190, f02=»E A2 WITH PARITY P* P* " P IFT CODE+P6805=0 SALCUZ , PWRITEP ANK A2,/FF N P ECR A1,A2 h P ORK A2,/80 z PWRI100 SLL A1,1 P RB(P) WRI100 P RB(Z) WRITE WRITE P XRK A2,/80 P RB WRI100 P XIF P
0x0e3728…0e38bc Dummy {f00=0x0048, f01=0x0190, f02=» CHARACTER TO A2 AND CHECK PARITY P* * P* 4 PREADP CF A5,READ > P IFT CODE+P6805=0 SALCUZ V P ECR A1,A2 x PRE100 SLL A1,1 P RF(Z) RE110 P RB(NN) RE100 P XRK A2,/80 P RB RE100 PRE110 LDR A1,A2 P
0x0e38bc…0e3a50 Dummy {f00=0x0048, f01=0x0190, f02=» XRK A1,/80 P ABR* A5 P* $ P* . P EJECT 8 P* F P* P P* POWER ON FUNCTIONS Z P* v P* PDC15ON EQU * P IFT CPU852=1 P CF A15,SAVE8 SAVE A1-A8 P XIF P P IFF CPU852=1 P MSR 8,A15
0x0e3a50…0e3be4 Dummy {f00=0x0048, f01=0x0190, f02=»T,A7 GET FIRST DWT ADDR PDC1510 EQU * P RF(Z) DC1520 END OF CHAIN 4 & P ORS A5,DWTST,A6 STORE DEVICE END V , P CF A15,INSSQ INSERT DWT IN STAUS QUEUE * P LD A6,DWTCHN,A6 GET NEXT DWT IN CHAIN P RB DC1510 PDC1520 EQU * P
0x0e3be4…0e3d78 Dummy {f00=0x0048, f01=0x0190, f02=»DCLCI INIT LINE CONTROL UNIT INFO ( P LD A2,DCTPGP GET POLL TIMER POINTER * " P RF(NZ) DC1540 ALREADY STARTED V $ P CF A15,SPOTIM START POLL TIMER | PDC1540 EQU * P ABL BRM P EJECT P IFT CODE=1 P* P* P* CALCULAT
0x0e3d78…0e3f0c Dummy {f00=0x0048, f01=0x0190, f02=»2 P ST A2,CRCSAV+6 P ST A3,CRCSAV+10 " P ST A4,CRCSAV+14 : P LDK A1,8 R P LDR A4,A8 GET OLD CRC d PCRC100 LDR A3,A4 P SRL A4,1 P XRR A3,A2 P SRL A2,1 P ANK A3,1 P RF(Z) CRC110 P XRKL A4,/A001
0x0e3f0c…0e40a0 Dummy {f00=0x0048, f01=0x0190, f02=» P LDKL A3,0 P LDKL A4,0 P RTN A5 ( P EJECT 8 P* F P* P ( P* READ CRC CHARACTERS AND CHECK THEM Z P* CR = (E) IF CRC WAS OK P* P* PRDCRC EQU * P STR A8,A5 SAVE CURRENT CRC " P SUK A5,2 ADJUST STACK
0x0e40a0…0e4234 (6, 39) Dummy {f00=0x0048, f01=0x0190, f02=» BYTE 2 ( P CM SYNSW SYNCS CAN BE SKIPPED AGAIN P LD A2,CRCSAV+6 SAVE IT < P SLL A2,8 P XRR A2,A4 n P ADK A5,6 P CW A2,-4,A5 P ABR* A5 P XIF P IFT CODE=0 P* & P* RDLRC READ LRC CHARACTER "
0x0e4234…0e43c8 Dummy {f00=0x0048, f01=0x0190, f02=»LRCEND P ANKL A8,/007F PLRCEND EQU * $ P CM SYNSW 8 P ABR* A5 J P Z P XIF b P EJECT n , P**************************************** | P* P* DRIVER WORK AREAS P* , P****************************************
0x0e43c8…0e455c Dummy {f00=0x0048, f01=0x0190, f02=»2 FREE BUFFER ANCHOR P IFF RBUFNR=2 P DATA *+RLINK 2 P RES RBUFL+3 H P IFF RBUFNR=3 P DATA *+RLINK r P RES RBUFL+3 P IFF RBUFNR=4 P DATA *+RLINK P RES RBUFL+3 P XIF P DATA *+RLINK P RES RBUFL
0x0e455c…0e46f0 Dummy {f00=0x0048, f01=0x0190, f02=» RES 3 MMU BUFFER FOR CONNECT REQUEST =16 P XIF 2 P EJECT > P* L P* V P* INTERRUPT LOGGING ROUTINE ` P* P* P IFF LOGG=0 PLOGSST ST A2,SAVE2 P ORKL A2,/F000 P RF LOG10 PLOGOUT ST A2,SAVE2 P
0x0e46f0…0e4884 Dummy {f00=0x0048, f01=0x018e, f02=»A3,LOGPNT P STR A2,A3 P ADK A3,2 $ P CWK A3,LOGEND 6 P RF(L) LOGEXI L P LDKL A3,LOGSTA b PLOGEXI ST A3,LOGPNT z P LD A2,SAVE2 P LD A3,SAVE3 PLOGE10 RTN A5 P EJECT P* P* PLOGPNT DATA LOGSTA
0x0e4884…0e4a18 Dummy {f00=0x0048, f01=0x018e, f02=» P* P IFT RCOM=1 P EJECT " < P******************************************************* 0 P* p P* L I N C O L z P* : P* CONVERT CURSOR ADDRESS TO LINE AND COLUMN NUMBER P* > P**********************************
0x0e4a18…0e4bac Dummy {f00=0x0048, f01=0x0190, f02=» & P LC A2,LICO:T,A2 ASCII LINE NUMBER " P CF A5,WRITEP SEND LINE NUMBER . P T P LDR A2,A3 P ANK A2,X'3F' n ( P LC A2,LICO:T,A2 ASCII COLUMN NUMBER $ P CF A5,WRITEP SEND COLUMN NUMBER P RTN A5 RETURN P* P* P*
0x0e4bac…0e4d40 Dummy {f00=0x0048, f01=0x0190, f02=»F l * P DATA /264A,/4B4C,/4D4E,/4F50 /10-/17 * P DATA /5152,/5D24,/2A29,/3B5E /18-/1F 8 * P DATA /2D2F,/5354,/5556,/5758 /20-/27 f * P DATA /595A,/7C2C,/255F,/3E3F /28-/2F ( P DATA /3031,/3233,/3435,/3637 /30-37 ( P DATA /3839,/3A23,/4027,/3
0x0e4d40…0e4ed4 (6, 40) Dummy {f00=0x0048, f01=0x0190, f02=» DATA 0,0 P DATA 0,0,0,0,0,0 P IFT MMUPAG=1 , P DATA 0,0 B P XIF T P* DRIVER DEPENDENT PART ` 2 P DATA DTESBU-DTETAB START OF STATISTIC BUFFER P DATA 0,0,0,0,0,0 P DATA 0,0,0,0,0,0 * PDTESBU EQU * P DATA 0
0x0e4ed4…0e5068 Dummy {f00=0x0048, f01=0x0190, f02=» P* P* P* PROCEDURE WORK AREAS P* : P* D * PFDWTIN RES 1 CURRENT DWT FOR RECEPTION N . PFDWTUT RES 1 CURRENT DWT FOR TRANSMISSION | PXACK DATA 0 ACK EXPECTED PXSEL DATA 0 SELECTED PXETX DATA 0 ETX SENT 2 PXS
0x0e5068…0e51fc Dummy {f00=0x0048, f01=0x0190, f02=»=SKIP SYNS, 1=DON'T SKIP & PTPM DATA 0 IF =1 TRANSPARENT TEXT P* J PFECB RES 1 WRITING ECB T ( PFECBBA RES 1 WRITING BUFFER ADDRESS r & PFECBRL RES 1 WRITING BUFFER LENGTH PFBAX DATA 0 BUFFER INDEX 0 PFBLST DATA 0 START OF LAST TRANS
0x0e51fc…0e5390 Dummy {f00=0x0048, f01=0x412e, f02=» QUEUE v , PRESEND DATA 0 CONTROL SEQUENCE SAVE AREA P* > P EJECT H P* V P* ` P* CONSTANTS AND WORK AREAS j P* P* PDCSTCU DATA 0 CURRENT STATUS , PDCTPGP DATA 0 TIMER POINTER GENERAL POLL & PDCLCI DATA 0 DC UNIT
0x0e5390…0e5524 Dummy {f00=0x0048, f01=0x2008, f02=» H P X ` h p x
0x0e5524…0e56b8 Dummy {f00=0x0048, f01=0x0190, f02=» ECBCW1 , ( K X .:D :D :D C , ( i B Y X . B DWTOPT r , ( @ X " P , ( X . ECBEL * & X &T
0x0e56b8…0e584c Dummy {f00=0x0048, f01=0x0190, f02=» W @ W v DISEND , ( @W W W W W > > ( , ( 5 , L Q , L X R P X SETIME , ( U A " Y W Y , ( s W X Z X A " Y , ( _. Y
0x0e584c…0e59e0 Dummy {f00=0x0048, f01=0x0190, f02=» 0 % _ $ (P _ ) 1_@ , ( $ (XL P _ 0 )_Z & * , ( 1 (P _ ) 1 4 A A A A A Z , ( Q W , ( q > * ] , ( @ ] a 4 "
0x0e59e0…0e6680 (7, 0) DirGranule ((7, 0)) {
0x0e59e0…0e6680 DirEnt {nam=»UPD5.1«, typ=» «, f00=0x0000, f01=0x0000, f02=0x0920, f03=0x0000}
0x0e59e0…0e6680 DirEnt {nam=»DRDY02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0928, f03=0x0000}
0x0e59e0…0e6680 }
0x0e6680…0e6814 (7, 1) Opaque[0x194]
0x0e6814…0e69a8 # DirEnt {nam=»DRDY02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0928, f03=0x0000}
0x0e6814…0e69a8 IdxSect {
0x0e6814…0e69a8 f00 = 0x0049 // 0xe6814 @0x0
0x0e6814…0e69a8 f01 = 0x0020 // 0xe6816 @0x2
0x0e6814…0e69a8 gno = [ // 0xe6818 @0x4
0x0e6814…0e69a8 [0x00]: C0x0049.0x1.0
0x0e6814…0e69a8 [0x01]: C0x0049.0x2.0
0x0e6814…0e69a8 [0x02]: C0x0049.0x3.0
0x0e6814…0e69a8 [0x03]: C0x004a.0x0.0
0x0e6814…0e69a8 [0x04]: C0x004a.0x1.0
0x0e6814…0e69a8 [0x05]: C0x004a.0x2.0
0x0e6814…0e69a8 [0x06]: C0x004a.0x3.0
0x0e6814…0e69a8 [0x07]: C0x004b.0x0.0
0x0e6814…0e69a8 [0x08]: C0x004b.0x1.0
0x0e6814…0e69a8 [0x09]: C0x004b.0x2.0
0x0e6814…0e69a8 [0x0a]: C0x004b.0x3.0
0x0e6814…0e69a8 [0x0b]: C0x004c.0x0.0
0x0e6814…0e69a8 [0x0c]: C0x004c.0x1.0
0x0e6814…0e69a8 [0x0d]: C0x004c.0x2.0
0x0e6814…0e69a8 [0x0e]: C0x004c.0x3.0
0x0e6814…0e69a8 [0x0f]: C0x004d.0x0.0
0x0e6814…0e69a8 ]
0x0e6814…0e69a8 }
0x0e69a8…0e6b3c Dummy {f00=0x0049, f01=0x0190, f02=» 2 P IDENT DRDY02 REL 11.0 81-09-30 870105041100 P : 6 P =9 ERR. FOR 6342/51 AND EMPTY BLOCK IN ORD. /05 B : P CHAR. CHECK AT FAST OUTPUT. ULINE&LOWINT ON 6387 | P REL 11.0 81-09-17 2 P = 8 ERROR FOR 6342 & 6351 IN ORDER 0B & 31
0x0e6b3c…0e6cd0 Dummy {f00=0x0049, f01=0x0190, f02=»G BLANKS" REMOVED FROM BASIC WRITE r P REL 11.0 81-06-24 * . P = 5 SUPPRESSION OF TABULATION CORRECTED F P REL 11.0 81-05-24 x 8 P = 4 GREEK CHARACTER SET HANDLING & NEW CONDITIONS P REL 11.0 81-04-06 8 P = 3 ASS. ERROR IF FAST0=1
0x0e6cd0…0e6e64 Dummy {f00=0x0049, f01=0x0190, f02=» | 0 P = 1 ECB-ADDRESS CHECKED IN ERROR-ROUTINE P REL 11.0 81-02-03 < P* X @ P************************************************************ b P* P* P* & P* PHILIPS TERMINAL SYSTEM P T S & P* DRDY02 = DRIVER VIDEO
0x0e6e64…0e6ff8 Dummy {f00=0x0049, f01=0x0190, f02=»VER HANDLES OUTPUT TO THE VIDEO 0 P* DISPLAYS PTS 6342, 6344, 6346 AND TO THE ( * P* DISPLAYS PTS 6351, 6385 AND 6386. 2 P* THE DRIVER INCLUDES DEVICE DEPENDENT ECHO- 0 P* FUNCTIONS WHICH MAKES IT POSSIBLE TO USE 2 P* THE DISPLAY AS A
0x0e6ff8…0e718c Dummy {f00=0x0049, f01=0x0190, f02=»R 00 TEST STATUS P* 05 BASIC WRITE " P* 06 STANDARD WRITE @ ( P* 0B SET CURSOR AND WRITE f P* 31 ERASE P* P* P* NORMAL REGISTER USAGE : P* $ P* REGISTER A1 = R
0x0e718c…0e7320 Dummy {f00=0x0049, f01=0x0190, f02=»EGISTER r $ P* A5 = STACK BASE $ P* A6 = DWT-ADDRESS 8 P* A7 = ORDER ` $ P* A8 = ECB-ADDRESS P* P* P* ENTRIES P* P* ( P ENTRY DYAD ADDRESS TO ADDRESSBLOC
0x0e7320…0e74b4 (7, 2) Dummy {f00=0x0049, f01=0x0190, f02=»ROR t " P EXTRN LENDIS END I/O-REQUEST P EXTRN STABLK START OF BLOCK 2 P EXTRN OUTPUT SEND V P EXTRN ENDBLK END OF BLOCK p 2 P EXTRN GETCHR FETCH CHARACTER FROM ECB-BUFFER $ P EXTRN ECHRTN RETURN TO KEYBOARD P EXTRN TENDIO END OF I/O
0x0e74b4…0e7648 Dummy {f00=0x0049, f01=0x018e, f02=» EXTRN DWTOR ORDER P EXTRN DWTSB2 STACK BASE P* : P* ECB DISPLACEMENTS D P* b P EXTRN ECBBA BUFFER ADDRESS l " P EXTRN ECBRL REQUESTED LENGTH " P EXTRN ECBEL EFFECTIVE LENGTH P EXTRN ECBRC RETURN CODE P EXTRN ECBCW
0x0e7648…0e77dc Dummy {f00=0x0049, f01=0x0190, f02=» @ P************************************************************ P* L P* DWT DISPLACEMENTS V P* t & PDWTAP EQU /2 HEAD POSITION POINTER ~ " PDWTBC EQU /1 POSITION COUNTER PDWTLIN EQU /4 LINES PDWTPOS EQU /5 POSITIONS &
0x0e77dc…0e7970 Dummy {f00=0x0049, f01=0x0190, f02=» NON-DESTRUCTIVE BACKSPACE PLF EQU /0A LINE FEED " PHOME EQU /0B CURSOR HOME > ( PCLEHOM EQU /0C CLEAR AND CURSOR HOME ^ PCR EQU /0D CARRIAGE RETURN PCURRIG EQU /10 CURSOR RIGHT $ PSCADD EQU /11 SET CURSOR ADDRESS " PULSTOP EQU /13 U
0x0e7970…0e7b04 Dummy {f00=0x0049, f01=0x0190, f02=»OP EQU /1F LOW INTENSITY STOP PSPACE EQU /20 SPACE & P* B P* RETURN CODES L P* d " PCCERR EQU /4 CODE CHECK ERROR n P* P* OTHER P* PMINBLK EQU 6 BLOCK SIZE @ PFASTNR EQU 6 LEAST NUMBER OF CHARS TO SEND WIT
0x0e7b04…0e7c98 Dummy {f00=0x0049, f01=0x0190, f02=»* @ P************************************************************ P DATA DVBLEN BUFFER LENGTH N P DATA 2 DEVICE INDEX p PDYAD EQU * ( P DATA ACDY DRIVER ACTIVATION ADDRESS P DATA ABDY ABORT ROUTINE P DATA 0 NO INTERRUPT HANDLER
0x0e7c98…0e7e2c Dummy {f00=0x0049, f01=0x018e, f02=»********** ^ P* P* CONDITIONAL ASSEMBLY P* < @ P************************************************************ F P* 4 P* IF THE CONSTANT X:A IS SET TO 1, FAST OUTPUT < P* WILL BE USED IF A NUMBER (SEE THE CONSTANT "FASTNR")
0x0e7e2c…0e7fc0 Dummy {f00=0x0049, f01=0x0190, f02=» P* P* H P* BY SETTING X:B=1 THE DRIVER HANDLES OTHER DISPLAYS THAN PTS 6344 P* 6346, 6385 AND 6386. d P* PX:B EQU 0 PWHATDY EQU X:B P* P* 8 P* BY SETTING X:C TO 1 LOWER CASE CHAR. GENERATOR & P*
0x0e7fc0…0e8154 (7, 3) Dummy {f00=0x0049, f01=0x0190, f02=»Y IT IS POSSIBLE l 8 P* TO SUPPRESS ECHOING OF END OF RECORD CHARACTER. 8 P* THIS IS ATTAINED BY SETTING THE CONSTANT X:G=0 T P* PX:D EQU 0 PEORECH EQU X:D P* 0 P* BY SETTING THE CONSTANT TRASPA = 1 IT IS T P* POSS
0x0e8154…0e82e8 Dummy {f00=0x0049, f01=0x0190, f02=» 2 P* BY SETTING X:F = 1, CURSOR WILL BE STEADY P* INSTEAD OF BLINKING. : P* Z PX:F EQU 1 d PSTEADY EQU X:F v P* 4 P* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POS- . P* SIBLE TO CHOOSE BETWEEN TEN DIFFERENT , P* CHAR
0x0e82e8…0e847c Dummy {f00=0x0049, f01=0x0190, f02=»E P* 4 I/CH P* 5 S/SF P* 6 DK/N * P* 7 P : P* 8 YU H P* 9 US V PX:G EQU 0 d PCOUNTRY EQU X:G v P* & P* MEMORY MANAGEMENT BUFFER SIZE P* PX:H EQU 82 PDVBLEN EQU X:H P* P* MAXIMU
0x0e847c…0e8610 Dummy {f00=0x0049, f01=0x0190, f02=»UDED IN SYSTEM =4 Z P* PX:I EQU 0 $ PPLASM EQU X:I 6 P* L 2 P* IF X:K = 1 IT IS POSSIBLE TO USE GREEK =4 V P* CHARACTER SET =4 P* PX:K EQU 0 =4 PGREECE EQU X:K =4 P* 4 P* IF DISPLAY VD 87 IS US
0x0e8610…0e87a4 Dummy {f00=0x0049, f01=0x0190, f02=»***************************** x P* & & P* A C T I V A T I O N P A R T 0 P* Z 4 P* THIS PART MAKES A START OF BLOCK, CHECKS THE d 8 P* REQUESTED ORDER AND BRANCHES TO THE APPROPRIATE P* PART OF THE DRIVER. P* < P******
0x0e87a4…0e8938 Dummy {f00=0x0049, f01=0x0190, f02=»DEV,A6 CLEAR CHARACTER COUNTER $ P LDKL A2,MAXBLK MAX. BLOCK SIZE & P CF A5,STABLK START OF BLOCK N P RF(NZ) DYER10 r P* P* TEST ORDER P* P LDR A7,A7 GET ORDER & P RF(Z) DY100 ORDER 00, TEST STATUS P* P SUK A
0x0e8938…0e8acc Dummy {f00=0x0049, f01=0x0190, f02=» SUK A7,/5 0 P ABL(Z) DY600 ORDER 0B, SET CURSOR AND WRITE P* F P SUK A7,/26 P " P ABL(Z) DY700 ORDER 31, ERASE d P IFT VD87=1 =7 P ADK A7,/A 0 P ABL(Z) ORD27 ORDER /27, TRANSFER PARAMETERS P XIF P* P* I/O-RE
0x0e8acc…0e8c60 Dummy {f00=0x0049, f01=0x0190, f02=»CT P* @ P************************************************************ P* X P* ORDER 00, TEST STATUS. b 8 P* THIS PART SENDS A DUMMY CHARACTER TO THE DISPLAY : P* AND SETS BIT 15 IN THE RETURN CODE IF THE DISPLAY P* IS NOT
0x0e8c60…0e8df4 (7, 4) Dummy {f00=0x004a, f01=0x0190, f02=» P* THE RIGHT. P* @ P************************************************************ $ P* h PDY100 EQU * r P LDK A2,DUMMY P CF A5,OUTPUT SEND DUMMY P RF(NZ) DYER10 P* . P LD A4,DWTAP+DWTDEV,A6 GET CURSOR POSITION
0x0e8df4…0e8f88 Dummy {f00=0x004a, f01=0x0190, f02=»********************************** v P* * P* ORDER 05, BASIC WRITE. 4 0 P* THIS ORDER SENDS THE REQUESTED NUMBER OF V . P* CHARACTERS TO THE DISPLAY AND SETS THE 0 P* INTERNAL CURSOR POSITION COUNTER TO HOME P* POSITION. (/0101)
0x0e8f88…0e911c Dummy {f00=0x004a, f01=0x0190, f02=»HARACTER FROM ECB-BUFFER z 0 P LDR A1,A1 IS THERE ANY CHARACTER TO SEND ? P RF(NP) DY210 NO T P IFT GREECE=1 =4 l P CF A15,GRCHAR =4 P XIF P* & P CF A5,OUTPUT YES ! SEND CHARACTER P RF(NZ) DYER05 P* * P CF A15,
0x0e911c…0e92b0 Dummy {f00=0x004a, f01=0x0190, f02=»* 4 P IM DWTBLC+DWTDEV,A6 INCREMENT CHARACTER COUNTER " P LDKL A2,MAXBLK GET BLOCKSIZE B * P CW A2,DWTBLC+DWTDEV,A6 BLOCK FILLED ? h P* $ P RB(G) DY200 NO ! NEXT CHARACTER P* $ P CF A15,GETCHR MORE TO SEND ? =9 P LDR A1,A1 =9
0x0e92b0…0e9444 Dummy {f00=0x004a, f01=0x0190, f02=»ER05 " P LDKL A2,MAXBLK GET BLOCKSIZE " P CF A5,STABLK START NEW BLOCK 2 P RF(NZ) DYER05 X 0 P CM DWTBLC+DWTDEV,A6 RESET CHARACTER COUNTER n P RB DY200 NEXT CHARACTER P* PDY210 EQU * * P CF A15,UPDAPP RESET POSITION COUNTER
0x0e9444…0e95d8 Dummy {f00=0x004a, f01=0x0190, f02=»V,A6 RESET CHARACTERS-IN-BLOCK COUNTER P* . P ABL DY493 END REQUEST 8 P* V PDYER05 EQU * ` B P CM DWTBLC+DWTDEV,A6 RESET CHARACTERS-IN-BLOCK COUNTER BEFORE t ( P RF DYER10 ERROR ROUTINE IS ENTERED P EJECT P* @ P**********
0x0e95d8…0e976c Dummy {f00=0x004a, f01=0x0190, f02=»QUESTED LENGTH IS ZERO. r > P* IF IT IS, CARRIAGE RETURN AND LINE FEED ARE SENT, AND " P* THE REQUEST IS COMPLETED. b F P* ELSE THIS PART LOOKS FOR A CONTROL CHARACTER IN THE FIRST WORD @ P* IN THE ECB-BUFFER AND CARRIES OUT THE DESIRED FUNC
0x0e976c…0e9900 Dummy {f00=0x004a, f01=0x0190, f02=» L P* CHARACTER ( /07, /11, /12, /13, /14, /1E, /1F, /AE ) IS RECOGNIZED. B P* IF A SPECIAL CHARACTER IS FOUND, THE APPROPRIATE FUNCTION T 6 P* IS CARRIED OUT BEFORE NEXT CHARACTER IS SENT. < P* WHEN ALL CHARACTERS ARE SENT, THE CURSOR POSITIO
0x0e9900…0e9a94 (7, 5) Dummy {f00=0x004a, f01=0x0190, f02=»* PDY300 EQU * P* P* TEST REQUESTED LENGTH ( P* J 6 P LD A2,ECBRL,A8 GET REQUESTED LENGTH. IS IT ZERO ? T P RF(Z) DY307 YES ! P* P* TEST CONTROL CHARACTER P* PDY305 EQU * & P LD A2,ECBBA,A8 GET BU
0x0e9a94…0e9c28 Dummy {f00=0x004a, f01=0x0190, f02=» A2,/2B $ P RF(Z) DY335 NO MOVING OF CURSOR PDY307 EQU * 8 P* L 0 P LDK A4,1 FIRST POSITION AND ONE LINE FEED. V 8 P SC A4,DWTAP+DWTDEV+1,A6 RESET HEAD POSITION COUNTER P* P SUK A2,/5 TWO LINE FEED ? P RF(NZ) DY310 NO !
0x0e9c28…0e9dbc Dummy {f00=0x004a, f01=0x0190, f02=»RACTER MEANS ERASE r P* P LDK A2,CR CARRIAGE RETURN $ P* F PDY320 EQU * P P CF A5,OUTPUT SEND d PDYER10 RF(NZ) DYER15 ~ P* P SUK A4,1 READY ? 0 P RF(N) DY335 YES ! START WRITING ON DISPLAY P* < P LC A1,DWTLI
0x0e9dbc…0e9f50 Dummy {f00=0x004a, f01=0x0190, f02=» . P LDKL A2,/100 NO ! INCREMENT LINE COUNTER ! P ADS A2,DWTAP+DWTDEV,A6 ! : PDY325 EQU * ! Z " P LDK A2,LF LINE FEED CHARACTER ! n " P RB DY320 SEND NEXT LINE FEED ! P* ! PDY330 EQU * ! . P SC A4,DWTAP+DWTDEV,A6 RESET LINE COUNTER ! (
0x0e9f50…0ea0e4 Dummy {f00=0x004a, f01=0x0190, f02=»* ! P* " 8 P* WRITING PART, ORDER 06 (ALSO USED BY ORDER 0B). " P* " P P* " Z PDY335 EQU * " d P IFT TRASPA=1 " x * P CF A15,TRASP SUPPRESS TRAILING SPACES " P XIF " PDY340 EQU * " 0 P CF A15,GETCHR GET CHARACTER FROM ECB-BUFFER
0x0ea0e4…0ea278 Dummy {f00=0x004a, f01=0x018e, f02=» P XIF # P* # P LDR A4,A2 CHECK CODE LIMITS # P SUK A4,/20 # > * P RF(N) DY380 TEST IF SPECIAL CHARACTER # R P SUK A4,/5F # * P RF(P) DY380 TEST IF SPECIAL CHARACTER # P IFT FASTO=1 # P IFT WHATDY=1 # 6 P LDK A4,0 RESET A4 BEFORE EN
0x0ea278…0ea40c Dummy {f00=0x004a, f01=0x0190, f02=» P IFT FASTO=1 $ P* $ P* $ " 2 P* FAST OUTPUT SHOULD BE USED IF A NUMBER OF $ , $ P* CHARACTERS ARE FOUND EQUAL. $ b P* $ P* $ & P LD A1,ECBBA,A8 GET BUFFER ADDRESS $ P ADR A1,A3 ADD BUFFER INDEX $ P* $ P* $ 4 P LC A4,D
0x0ea40c…0ea5a0 Dummy {f00=0x004a, f01=0x0190, f02=»1 INCREMENT CHARACTER COUNTER $ 6 P CCR A2,A1 NEXT CHAR. IN BUFFER EQUAL TO CURRENT ? % & P RF(NE) FAST40 NO ! % ` P* % | , P CC A4,DWTPOS+DWTDEV,A6 MAX. POSITIONS ? % P RF(NL) FAST40 YES ! % P* % & P CW A3,ECBRL,A8 REQUESTED LENGTH ? % P R
0x0ea5a0…0ea734 (7, 6) Dummy {f00=0x004a, f01=0x0190, f02=» PFAST40 EQU * & : P LD A1,DWTAP+DWTDEV,A6 GET NUMBER OF EQUAL CHARACTERS & P AD A1,DWTBC+DWTDEV,A6 & V P ANK A1,/FF & t P SUR A4,A1 & P* & 6 P CWK A4,FASTNR COND. FOR FAST OUTPUT FULLFILLED ? & P RF(L) FAST80 NO ! & P* & . P* YE
0x0ea734…0ea8c8 Dummy {f00=0x004a, f01=0x018e, f02=»UFFER POINTER & P ADR A4,A3 ' P* ' ( P IFT LOWCHA=0 ' 2 P LDR A3,A2 ' H P SUK A3,/5F ' Z P RF(NP) FAST30 ' n P SUK A2,/20 ' PFAST30 EQU * ' P XIF ' P IFT FASTO=1 ' $ P LDR A3,A2 PUT CHARACTER INTO A3 ' P* ' P CF A5,FAS
0x0ea8c8…0eaa5c Dummy {f00=0x004a, f01=0x0190, f02=» ' d P ANK A4,/FF ( P AD A4,DWTAP+DWTDEV,A6 ( P* ( : P CF A5,CURPOS SET CURSOR ( D P RB DY340 NEXT CHARACTER ( d PFAST80 EQU * ( P XIF ( P* ( $ P IFT LOWCHA=0 LOWER CASE IS USED ( P LDR A1,A2 ( P SUK A1,/5F ( P RF(NP) DY36
0x0eaa5c…0eabf0 Dummy {f00=0x004a, f01=0x0190, f02=»R20 ( ~ * P CF A15,POSUPD POSITION COUNTER UPDATE ) P IFT FASTO=1 ) : P IFT WHATDY=1 ) N * P LD A1,DWTDEV,A6 6344, 6385 OR 6386 ? ) d P ANKL A1,/1000 ) P RF(NZ) FAST90 NO ! ) P XIF ) P IFT FASTO=1 ) * P SUK A4,1 DECREMENT CHARACTER COUNTE
0x0eabf0…0ead84 Dummy {f00=0x004a, f01=0x0190, f02=»C A2,-1,A2 ) P ANK A2,/7F MASK CHARACTER * P RB FAST80 * 4 PFAST90 EQU * * F P XIF * Z P RB DY340 NEXT CHARACTER * f P* * " P* TEST IF SPECIAL CHARACTER * P* * PDY380 EQU * * P LDK A4,0 RESET A4 * P LDR A1,A2 CHARACTER *
0x0ead84…0eaf18 Dummy {f00=0x004a, f01=0x0190, f02=»ADY140 YES ! GO TO TABULATION ROUTINE * P* + . $ P SUK A1,/3 FAST OUTPUT ( /14 ) ? + 8 * P RF(Z) DY390 YES ! GO TO THAT ROUTINE + ` P* + P SUK A1,/9A POINT ( /AE ) ? + $ P RF(Z) DY410 YES ! LOAD AND SEND + P IFF WHATDY+PLASM=0 =4 + 0 P LD
0x0eaf18…0eb0ac Dummy {f00=0x004a, f01=0x0190, f02=» ! + l PDY382 EQU * =9 , P XIF , " P* , . * P ADK A1,/9C UNDERLINE START ( /12 ) ? , 8 P RF(Z) DY467 YES ! , f P* , ( P SUK A1,/1 UNDERLINE STOP ( /13 ) ? , P RF(Z) DY467 YES ! , P* , , P SUK A1,/B LOW INTENSITY START ( /1E) ? ,
0x0eb0ac…0eb240 Dummy {f00=0x004a, f01=0x018e, f02=»ARACTER , P* - PDY385 EQU * - " P LDK A1,CCERR CODE CHECK ERROR - . , P ORS A1,ECBRC,A8 SET RETURN CODE OF ECB - T P RB DY340 NEXT CHARACTER - P EJECT - P* - P* ROUTINE FOR FAST OUTPUT - P* - PDY390 EQU * - P IFT TRASP
0x0eb240…0eb3d4 (7, 7) Dummy {f00=0x004a, f01=0x0190, f02=» P* . $ P LD A4,ECBRL,A8 REQUESTED LENGTH . 0 P SUR A4,A3 GET NUMBER OF CHARACTERS TO SEND . 6 P RF(NP) DY400 NONE ! . j P IFT GREECE=1 =4 . P CF A15,GRCHAR =4 . P XIF . P* . $ P LDR A3,A2 LOAD CHARACTER IN A3 . P SUK A2,/20 IS C
0x0eb3d4…0eb568 Dummy {f00=0x004a, f01=0x0190, f02=»ST OUTPUT . v P* / PDY400 EQU * / 6 P LD A3,ECBRL,A8 GET REQ. LEN. TO STORE IN EFF. LEN / 0 P* / j $ PDY405 RF DY470 GO TO COMMON END / t P* / P* SEND A POINT / P* / PDY410 EQU * / " P LDK A2,/2E GET CODE FOR POINT / P RB DY
0x0eb568…0eb6fc Dummy {f00=0x004a, f01=0x0190, f02=»40 NEXT CHARACTER ! / P EJECT 0 @ P************************************************************ 0 * P* 0 n P* TABULATION 0 x P* 0 @ P************************************************************ 0 PADY140 EQU * 0 , P CF A15,GETCHR GET FIR
0x0eb6fc…0eb890 Dummy {f00=0x004a, f01=0x0190, f02=» ADY144 0 0 PADY143 ADK A2,/A FROM DECIMAL TO HEXADECIMAL 1 P SUK A4,1 1 D P RB(NE) ADY143 1 V " PADY144 LC A4,DWTAP+DWTDEV+1,A6 1 l . P SUR A2,A4 SUBTRACT HEAD POSITION POINTER 1 P LC A4,DWTBC+DWTDEV,A6 1 , P SUR A2,A4 AND REQUESTS POSITION COUNT
0x0eb890…0eba24 Dummy {f00=0x004a, f01=0x018e, f02=»RIGHT 1 t P CF A5,OUTPUT 2 P RF(NZ) DYER20 2 $ , P CF A15,POSUPD POSITION COUNTER UPDATING 2 : P SUK A4,1 READY ? 2 j P RB(NE) ADY145 NO 2 P ABL DY340 NEXT CHARACTER 2 P EJECT 2 B P**********************************************************
0x0eba24…0ebbb8 Dummy {f00=0x004a, f01=0x0190, f02=» P* 3 B P************************************************************* 3 P* 3 T PDY470 EQU * 3 ^ " P LDK A2,ULSTOP UNDERLINE STOP 3 r P CF A5,OUTPUT SEND 3 PDYER20 RF(NZ) DYER30 3 P* 3 & P LDK A2,LISTOP LOW INTENSITY STOP 3 P CF A5
0x0ebbb8…0ebd4c Dummy {f00=0x004a, f01=0x0190, f02=»FT TRASPA=1 3 P LD A2,ECBCW,A8 4 0 P ST A2,ECBRL,A8 RESTORE OLD REQUESTED LENGTH 4 , P XIF 4 ` , P ST A3,ECBEL,A8 STORE EFF. LENGTH IN ECB 4 l 4 P LD A2,DWTAP+DWTDEV,A6 SET HEAD POSITION POINTER 4 * P ST A2,ECBCW,A8 IN CONTROL WORD OF ECB 4 PENDIO
0x0ebd4c…0ebee0 Dummy {f00=0x004a, f01=0x0190, f02=»************************************ 4 x P* 5 , ( P* ORDER 0B, SET CURSOR AND WRITE. 5 6 8 P* THIS ORDER SETS CURSOR TO THE POSITION GIVEN IN 5 b 8 P* THE CONTROL WORD OF ECB AND SENDS THE CHARACTERS 5 : P* TO THE DISPLAY, CHECKING THE SAME SPECIAL
0x0ebee0…0ec074 (7, 8) Dummy {f00=0x004b, f01=0x0190, f02=»600 EQU * 5 P IFT WHATDY=1 6 0 P LD A4,DWTDEV,A6 6344, 6346, 6385 OR 6386 ? 6 ( P ANKL A4,/1000 6 P RF(Z) DY610 YES ! 6 r P* GET LINE 6 P LDK A4,0 =8 6 & P LC A4,ECBCW,A8 GET REQUESTED LINE 6 , P CC A4,DWTLIN+DWTDEV,A6 OUTSIDE SCREEN
0x0ec074…0ec208 Dummy {f00=0x004b, f01=0x018e, f02=»V,A6 GET ACTUAL LINE 6 ~ PADY210 CWR A4,A3 7 . P RF(N) ADY250 REQUESTED LINE ABOVE ACTUAL 7 4 P RF(E) ADY300 SAME LINE 7 f P LDK A2,LF LINE FEED 7 * P ADK A3,1 INCREMENT ACTUAL LINE NUMBER 7 PADY230 CF A5,OUTPUT SEND 7 P RF(NZ) DYER30 7 P L
0x0ec208…0ec39c Dummy {f00=0x004b, f01=0x0190, f02=» & P LDK A3,1 RESET ACTUAL LINE NUMBER 8 * P ST A3,DWTAP+DWTDEV,A6 RESET POSITION 8 . P RB ADY230 8 P* 8 n P* 8 x P* GET POSITION 8 P* 8 : PADY300 SC A4,DWTAP+DWTDEV,A6 UPDATE HEAD LINE COUNTER 8 , P LC A4,ECBCW+1,A8 GET REQUESTED POSI
0x0ec39c…0ec530 Dummy {f00=0x004b, f01=0x0190, f02=»03 EQU * 8 P CWK A4,1 FIRST POSITION ? 9 P RF(NE) ADY305 NO 9 2 P CWR A4,A3 FIRST LINE ? 9 L P RF(NE) ADY305 NO 9 l P LDK A2,HOME CURSOR GO HOME 9 P RF ADY330 9 * PADY305 RF(NL) ADY307 REQ. POS NOT ZERO 9 P LDK A4,1 9 6 PADY307 LC A3
0x0ec530…0ec6c4 Dummy {f00=0x004b, f01=0x0190, f02=» CWR A4,A3 FORWARDS OR BACKWARDS 9 P RF(E) ADY370 POSITION FOUND : ( P RF(N) ADY340 BACK : L P LDK A2,CURRIG CURSOR RIGHT : f & P ADK A3,1 UPDATE POSITION COUNTER : PADY330 CF A5,OUTPUT SEND : P RF(NZ) DYER30 : P RB ADY310 : . PADY340 SUR A
0x0ec6c4…0ec858 Dummy {f00=0x004b, f01=0x0190, f02=»RIAGE RETURN : & P LDK A3,1 INDICATE FIRST POSITION ; P RB ADY330 ; > " PADY345 LDK A2,BACKSP BACKSPACE ; P P CF A5,OUTPUT SEND ; v P RF(NZ) DYER30 ; P SUK A3,1 LAST BACKSPACE ? ; P RB(NE) ADY345 ; @ PADY370 SC A4,DWTAP+DWTDEV+1,A6 UPDATE HEAD
0x0ec858…0ec9ec Dummy {f00=0x004b, f01=0x0190, f02=»,DWTAP+DWTDEV,A6 UPDATE HEAD POSITION COUNTER ; ( P CF A5,CURPOS SET CURSOR ON DISPLAY < 6 P* < b PDY620 EQU * < l P LDK A3,2 START BUFFER INDEX < 2 P ABL DY335 SEND CHARACTERS WITH STANDARD WRITE < P EJECT < @ P********************************
0x0ec9ec…0ecb80 Dummy {f00=0x004b, f01=0x018e, f02=»TION AND LINE) < d P* = @ P************************************************************ = PCURPOS EQU * = d $ P LDK A2,SCADD SET CURSOR ADDRESS = x P CF A5,OUTPUT SEND = P RF(NZ) DYER30 = P* = P LDR A2,A4 GET POSITIONS = 6 P CC A4,DWTPOS+
0x0ecb80…0ecd14 (7, 9) Dummy {f00=0x004b, f01=0x0190, f02=» PCURR10 ADK A2,/1F CONVERT > P CF A5,OUTPUT SEND > & PDYER30 RF(NZ) DYER32 > @ P* > P LDR A2,A4 > f P SRL A2,8 GET LINES > x 2 P CC A2,DWTLIN+DWTDEV,A6 MORE THAN MAX. LINES ? > P RF(NG) CURR20 NO ! > 0 P LC A2,DWTLIN+DWTDEV,A6 YES ! SET
0x0ecd14…0ecea8 Dummy {f00=0x004b, f01=0x0190, f02=» A5 > P EJECT ? P IFT VD87=1 =7 ? < P******************************************************** ? 2 P* ? r ( P* ORDER /27. TRANSFER PARAMETERS. ? | ( P* THIS ORDER MAKES IT POSSIBLE TO ? , P* CHANGE BACKGROUND COLOUR, CHARACTER ? , P*
0x0ecea8…0ed03c Dummy {f00=0x004b, f01=0x0190, f02=» ? > P********************************************************* @ P* @ J PORD27 EQU * @ T $ P LD A3,ECBCW,A8 GET CONTROL WORD @ h & P SLC A3,1 ADJUST CW FOR SUBROUTINE @ $ P CF A15,TSTBIT CHECK BITS IN CW @ P LDR A2,A2 @ & P RF(Z) TEST10 NO CHA
0x0ed03c…0ed1d0 Dummy {f00=0x004b, f01=0x0190, f02=» @ P* A ( P LCK A4,/3000 GET CONTROL CHARACTER A P CF A5,PSEND1 AND SEND IT A > P* A ` PTEST10 EQU * A j $ P CF A15,TSTBIT CHECK BITS IN CW A ~ P LDR A2,A2 A $ P RF(Z) TEST20 NO CHANGE IN WITDH A P* A P SLC A4,5 CHANGE WIDTH A P
0x0ed1d0…0ed364 Dummy {f00=0x004b, f01=0x0190, f02=»,/0101 CURSOR IS SET TO HOME POS. A 0 P ST A4,DWTAP+DWTDEV,A6 WHEN WIDTH IS CHANGED B * P* B ^ PTEST20 EQU * B h P CF A15,TSTBIT CHECK CW B | P LDR A2,A2 B ( P RF(Z) TEST30 NO CHANGE IN INTENSITY B P* B P SLC A4,6 CHANGE INTENSITY B P C
0x0ed364…0ed4f8 Dummy {f00=0x004b, f01=0x018e, f02=» * B P CF A15,TSTBIT CHECK CW C P LDR A2,A2 C * & P RF(Z) TEST40 NO CHANGE OF CURSOR C < P* C f P SLC A4,7 CHANGE CURSOR MODE C p P CF A15,SETBIT C P SRC A2,7 C P ST A2,DWTDEV,A6 C P LCK A4,/1500 C P CF A5,PSEND2 C P* C
0x0ed4f8…0ed68c Dummy {f00=0x004b, f01=0x0190, f02=» C R P* D P* ORDER 31, ERASE. D < P* SENDS THE NUMBER OF SPACES THAT IS GIVEN IN CONTROL D . . P* WORD OF ECB. THE CURSOR IS NOT MOVED. D n P* D @ P************************************************************ D P* D PDY700 EQU * D
0x0ed68c…0ed820 Dummy {f00=0x004b, f01=0x0190, f02=»L A1,/1000 D P RF(Z) DY750 YES ! E P* E , , P LD A2,DWTPOS+DWTDEV,A6 MAX. CHARACTERS E 6 P ANK A2,/FF E f . P LC A3,DWTAP+DWTDEV+1,A6 CURRENT POSITION E z P ANK A3,/FF E , P SUR A2,A3 NR OF CHARS. TO END OF SCREEN E P LDK A3,0 ADJUST =8 E
0x0ed820…0ed9b4 (7, 10) Dummy {f00=0x004b, f01=0x018e, f02=» SUK A3,1 =8 E PDY710 EQU * F " P ADR A3,A4 CHARACTERS TO ERASE F * PDY720 EQU * =8 F P P LDK A2,/20 SPACE F h , P SUK A4,1 DECREMENT NUMBER OF CHARACTERS F P RF(N) DY730 ERASE READY F P* F P CF A5,OUTPUT SEND F P RF(NZ) DYER40 F
0x0ed9b4…0edb48 Dummy {f00=0x004b, f01=0x0190, f02=» F t $ P CF A5,STABLK START OF NEW BLOCK G P RF(NZ) DYER40 G 0 P LDR A4,A3 RESET COUNTER G F PDY740 EQU * =8 G f " P LDK A2,BACKSP CURSOR LEFT =8 G ~ , P SUK A4,1 CURSOR IN ORIGINAL POSITION ? G P ABL(N) ENDIO YES ! G . P CF A5,OUTPUT NO ! SEND
0x0edb48…0edcdc Dummy {f00=0x004b, f01=0x0190, f02=»R SEND WITH FAST OUTPUT G P ABL ENDIO H P EJECT H 2 @ P************************************************************ H @ P* H . P* ECHODY, DEVICE-DEPENDENT ECHO-ROUTINE H 0 P* THIS ROUTINE CHECKS IF THE ECHO-CHARCTER H . P* IS A BACKSPACE,
0x0edcdc…0ede70 Dummy {f00=0x004b, f01=0x0190, f02=»SENT TO THE DISPLAY. H P* I @ P************************************************************ I & P* I j PECHODY EQU * I t P LDR A7,A7 END OF ECHOING ? I P RF(NN) EDY110 NO ! I P* I P* I 0 P CF A15,UPDAPP UPDATE HEAD POSITION COUNTER
0x0ede70…0ee004 Dummy {f00=0x004b, f01=0x0190, f02=»Y120 I P* J PEDY110 EQU * J 0 P LDR A4,A1 SAVE "MORE CHARACTERS" INDICATION J * P IFT GREECE=1 =4 J ^ P CF A15,GRCHAR =4 =4 J x P XIF =4 J P LDR A3,A2 SAVE CHARACTER J P* J P IFT EORECH=0 J P SUK A3,/80 J $ P RF(NN) ED
0x0ee004…0ee198 Dummy {f00=0x004b, f01=0x0190, f02=» CWK A1,MINBLK YES ! IS IT FULL ? J P RF(L) EDY118 NO ! K * 6 P CM DWTBLC+DWTDEV,A6 YES ! CLEAR CHARACTER COUNTER K D P CF A5,ENDBLK FINISH BLOCK K ~ PDYER35 RF(NZ) DYER40 K PEDY116 EQU * K P LDK A2,MINBLK K P CF A5,STABLK DECLARE BLOCK K
0x0ee198…0ee32c Dummy {f00=0x004b, f01=0x0190, f02=» K ~ P ADK A3,/10 BACKSPACE ? L P RF(Z) DY800 YES ! L ( P* L B P* L L & P* SEND CHARACTER TO ECHO-DEVICE L V P* L * P IM DWTBLC+DWTDEV,A6 INCREMENT COUNTER L P CF A5,OUTPUT SEND L PDYER40 RF(NZ) DYER45 L , P CF A15,POSUPD POSITION CO
0x0ee32c…0ee4c0 Dummy {f00=0x004b, f01=0x0190, f02=» BLOCK L | P RF(NZ) DYER45 M & P CM DWTBLC+DWTDEV,A6 RESET COUNTER M $ ( PEDY130 ABL ECHRTN RETURN TO KEYBOARD M N P EJECT M z @ P************************************************************ M P* M P* BACKSPACE M 6 P* CHECKS CURSOR POSITION,
0x0ee4c0…0ee654 (7, 11) Dummy {f00=0x004b, f01=0x018e, f02=»******************************************************** M P* N @ PDY800 EQU * N J 0 P LC A3,DWTBC+DWTDEV,A6 GET POSITION COUNTER N ^ P ANK A3,/FF N P RB(Z) EDY120 FIRST POSITION N P* N " P CF A5,ENDBLK FINISH OLD BLOCK N P RF(NZ) DYER45
0x0ee654…0ee7e8 Dummy {f00=0x004b, f01=0x0190, f02=» N n $ P SUK A3,1 INDICATE ONE BACKSTEP O 0 P SC A3,DWTBC+DWTDEV,A6 SET POSITION COUNTER O 0 " P ADK A3,1 GET POSITION ON LINE O d P AD A3,DWTAP+DWTDEV,A6 O 4 P CC A3,DWTPOS+DWTDEV,A6 LAST POSITION ON LINE ? O P RF(L) DY810 NO ! O P RB(G) DY800 N
0x0ee7e8…0ee97c Dummy {f00=0x004b, f01=0x0190, f02=»45 O P* P PDY810 EQU * P , P LDK A2,BACKSP NON-DESTRUCTIVE BACKSPACE P ( P CF A5,OUTPUT SEND P X P RF(NZ) DYER45 P r P* P P SUK A4,1 SEND AGAIN ? P P RB(NZ) DY805 YES ! P P* NO, BACKSPACE FINISHED P P RB EDY120 P P EJECT P
0x0ee97c…0eeb10 Dummy {f00=0x004b, f01=0x018e, f02=»R WHERE LAST P j 4 P* REQUEST ENDED AND SENDS SPACES TO ERASE THE Q 2 P* CHARACTERS WRITTEN DURING CURRENT REQUEST. Q L P* Q @ P************************************************************ Q P* Q PDY850 EQU * Q " P CF A5,ENDBLK FINISH OLD B
0x0eeb10…0eeca4 Dummy {f00=0x004b, f01=0x0190, f02=» 0 P LC A3,DWTBC+DWTDEV,A6 GET POSITION COUNTER R P ANK A3,/FF R 8 P RB(Z) EDY120 FIRST POSITION R L P* R p P IFT WHATDY=1 R z . P LD A1,DWTDEV,A6 PTS 6344, 6385 OR 6386 ? R P ANKL A1,/1000 R P RF(Z) DY860 YES ! R ( P CF A5,BACCAN ERASE CU
0x0eeca4…0eee38 Dummy {f00=0x004b, f01=0x0190, f02=»URPOS SET CURSOR R P* S $ P LDR A4,A3 GET POSITION COUNTER S " & P ADK A4,1 UPDATE POSITION COUNTER S J $ P LDK A3,SPACE GET SPACE TO SEND S t ( P CF A5,FASTER SEND WITH FAST OUTPUT S P* S 2 P SC A1,DWTBC+DWTDEV,A6 RESET POSITION COUNTER S P
0x0eee38…0eefcc Dummy {f00=0x004b, f01=0x0190, f02=» BACCAN = SUBROUTINE TO POSITION CURSOR S 0 P* AT THE PLACE BEFORE REQUEST IF T 0 P* CLEAR. T d P* T @ P************************************************************ T PBACCAN EQU * T 0 P CM DWTBLC+DWTDEV,A6 RESET CHARACTER C
0x0eefcc…0ef160 Dummy {f00=0x004b, f01=0x0190, f02=»POSITION COUNTER T p P ANK A2,/FF U * P CC A2,DWTPOS+DWTDEV,A6 LAST POSITION U , P RF(NP) BACA10 NO U Z $ P LDK A2,SPACE DESTRUCTIVE SPACE U t P RF BACA20 U PBACA10 EQU * U 4 P IM DWTBLC+DWTDEV,A6 INCREMENT CHARACTER COUNTER U ( P LDKL A2,MAXBL
0x0ef160…0ef2f4 (7, 12) Dummy {f00=0x004c, f01=0x0190, f02=»NDBLK YES ! END OLD BLOCK U P RF(NZ) DYER50 V " P LDKL A2,MAXBLK BLOCK SIZE V 8 $ P CF A5,STABLK START A NEW BLOCK V Z P RF(NZ) DYER50 V 0 P CM DWTBLC+DWTDEV,A6 RESET CHARACTER COUNTER V PBACA30 EQU * V P LDK A2,BACKSP BACKSPACE V P CF A5,O
0x0ef2f4…0ef488 Dummy {f00=0x004c, f01=0x0190, f02=»BACKSP BACKSPACE V PBACA20 CF A5,OUTPUT SEND W P RF(NZ) DYER50 W 8 P SUK A4,1 W N P RB(NE) BACA10 W ` P NGR A3,A3 NEGATE REGISTER W v 4 P ADS A3,DWTBC+DWTDEV,A6 UPDATE POSITION COUNTER W P RTN A5 W P XIF W P EJECT W @ P**************
0x0ef488…0ef61c Dummy {f00=0x004c, f01=0x018e, f02=»4 = NUMBER OF CHARACTERS W x 2 P* A3 = CHARACTER TO SEND X P* X V @ P************************************************************ X ` PFASTER EQU * X P IFT WHATDY=1 X P LD A2,DWTDEV,A6 PTS X " P ANKL A2,/1000 6342 OR 6351 ?
0x0ef61c…0ef7b0 Dummy {f00=0x004c, f01=0x0190, f02=» X x ( P AD A2,DWTAP+DWTDEV,A6 GET POSITION Y P ANK A2,/FF Y 4 ( P ADR A2,A4 ADD NUMBER OF CHARACTERS Y H P* Y t . P LD A1,DWTPOS+DWTDEV,A6 GET MAX. POSITIONS Y ~ P ANK A1,/FF Y P SUR A1,A2 COMPARE Y P RF(NN) FAS002 LENGTH OK Y P ADR A4,A1
0x0ef7b0…0ef944 Dummy {f00=0x004c, f01=0x0190, f02=»OF CHARACTERS Y x P RF FAS007 =9 Z P* Z , PFAS002 EQU * Z 6 P* Z J & P LDR A2,A4 PUT TWO COUNTERS IN A4 Z T PFAS007 EQU * =9 Z ~ P SLL A2,8 Z P ORR A4,A2 Z P* Z PFAS004 EQU * Z $ P LDR A2,A3 GET CHARACTER TO SEND Z P CF A5,O
0x0ef944…0efad8 Dummy {f00=0x004c, f01=0x0190, f02=»RACTER Z z P* [ & P CF A5,ENDBLK START A NEW BLOCK TO [ $ P RF(NZ) DYER50 AVOID OVERFLOW IN [ B P LDKL A2,MAXBLK THE OLD ONE [ j P CF A5,STABLK [ P RF(NZ) DYER50 [ P* [ P SRL A4,8 GET LENGTH COUNTER [ * P RF(Z) FAS008 NO BACKSPACE TO SE
0x0efad8…0efc6c Dummy {f00=0x004c, f01=0x0190, f02=»UNTER [ z P RB(P) FAS003 NEXT PFAS008 EQU * =9 ( P RTN A5 @ PFAS005 EQU * P P XIF d 6 P CC A4,DWTPOS+DWTDEV,A6 TEST NUMBER OF CHARACTERS p . P RF(L) FAS010 NUMBER OF CHAR NOT TOO LONG : P LC A4,DWTPOS+DWTDEV,A6 GET MAX. POSITIONS O
0x0efc6c…0efe00 Dummy {f00=0x004c, f01=0x0190, f02=» RF(NZ) DYER50 P LDR A2,A4 NO OF CHAR ] P ANK A2,/FF ] 4 P CF A5,OUTPUT SEND ] H P RF(NZ) DYER50 ] b P LDR A2,A3 ] x P CF A5,OUTPUT SEND ] P RF(NZ) DYER50 ] P RTN A5 ] P EJECT ] 8 P************************************************
0x0efe00…0eff94 (7, 13) Dummy {f00=0x004c, f01=0x018e, f02=»**************************************************** ] PDYER50 EQU * ^ < P LD A7,DWTST,A6 ^ P P SLC A7,2 ECHO ? ^ h * P ABL(N) ECHRTN YES ! RETURN FROM ECHO ^ P* ^ " P SRC A1,5 OUTPUT ERROR (HER) ? ^ & P ABL(N) RCDY YES ! GO TO RECOVERY ^ P
0x0eff94…0f0128 Dummy {f00=0x004c, f01=0x0190, f02=» P SUK A7,5 ORDER 5 ? _ P RF(Z) DYER52 YES ! _ P SUK A7,/2B ORDER 31 ? _ < P RF(Z) DYER52 YES ! _ Z P* _ v P SRC A1,2 LRC-ERROR ? _ P RF(N) DYER70 YES ! _ P SLC A1,2 _ PDYER52 SRC A1,3 LINK ERROR ? _ P RF(NN) DYER55 NO ! _
0x0f0128…0f02bc Dummy {f00=0x004c, f01=0x0190, f02=»Z) DYER60 NO ECB-ADDRESS (SYSTEM START) =1 _ 2 P CM ECBCW,A8 CLEAR INSIGNIFICANT CONTROL WORD ` 2 PDYER60 EQU * =1 ` h P ABL LENDIS COMPLETE REQUEST ` P* ` P* LRC-ERROR ` P* ` PDYER70 EQU * ` ( P LDKL A5,DWTSB2 INITIALIZE A5 STACK
0x0f02bc…0f0450 Dummy {f00=0x004c, f01=0x0190, f02=» ( P LD A4,DWTDEV,A6 6344,6385 OR 6386 ? a P ANKL A4,/1000 a 0 P RF(Z) DYER90 YES ! a F 6 P LC A4,DWTBC+DWTDEV,A6 GET NUMBER OF POS. TO BACK a b P ANK A4,/FF a P RF(Z) DYER80 a . P CF A5,BACCAN SEND BACKSPACES AND RUB OUT a P LDK A3,2 SET BU
0x0f0450…0f05e4 Dummy {f00=0x004c, f01=0x018e, f02=»NTER a h ( P CF A5,CURPOS SET CURSOR ON DISPLAY b P LDK A3,0 RESET BUFFER INDEX b 8 P LD A7,DWTOR,A6 GET ORDER b P ANK A7,/FF b ~ P ABL ACDY b P EJECT b @ P************************************************************ b P* b , P* UPD
0x0f05e4…0f0778 Dummy {f00=0x004c, f01=0x0190, f02=» b @ P************************************************************ c PUPDAPP EQU * c L 0 P LC A2,DWTBC+DWTDEV,A6 GET POSITION COUNTER c ` P ANK A2,/FF c 8 P ADS A2,DWTAP+DWTDEV,A6 UPDATE HEAD POSITION POINTER c P LDK A2,0 c 2 P SC A2,DWTBC+DWTDE
0x0f0778…0f090c Dummy {f00=0x004c, f01=0x018e, f02=»OSUPD = SUBROUTINE TO UPDATE ACTUAL POSITION c 0 P* COUNTER WHEN REQUEST RUNNING. d 4 D P* A CHECK THAT POINTER NOT EXCEEDS THE LIMIT IS DONE d h P* d @ P************************************************************ d PPOSUPD EQU
0x0f090c…0f0aa0 Dummy {f00=0x004c, f01=0x0190, f02=» d ( P CC A2,DWTPOS+DWTDEV,A6 END OF ROW ? e P RF(G) POSU10 e 4 ( P IM DWTBC+DWTDEV,A6 POSITION COUNTER e J PPOSU10 RTN A15 e v P IFT GREECE=1 =4 e P EJECT =4 e : P*************************************************** =4 e P* e : P* GR
0x0f0aa0…0f0c34 (7, 14) Dummy {f00=0x004c, f01=0x0190, f02=»***************************************** =4 e PGRCHAR EQU * = f 4 , P LDR A1,A2 IS IT A GREEK CHARACTER ? =4 f L P SUK A1,/B9 =4 f | P RF(P) GRCH10 NO =4 f P ADK A1,9 =4 f P RF(N) GRCH10 NO =4 f P* =4 f 0 P ADKL A1,GRTAB GET THE
0x0f0c34…0f0dc8 Dummy {f00=0x004c, f01=0x0190, f02=» =4 f PGRTAB EQU * =4 g , P DATA /265B,/5C23,/5D22,/4021,/5E5F =4 g $ P XIF =4 g T P IFT TRASPA=1 g f P EJECT g | 6 P************************************************** g P* g 4 P* TRASP = SUBROUTINE THAT ELIMINATES TRAILING g 4 P*
0x0f0dc8…0f0f5c Dummy {f00=0x004c, f01=0x0190, f02=»D TABULATIONS. g r P* h 6 P************************************************** h P* h Z PTRASP EQU * h d , P LD A1,ECBBA,A8 GET BUFFER ADDRESS (BA) h x , P LD A2,ECBRL,A8 GET REQUESTED LENGTH(RL) h P ADR A1,A2 GET END OF BUFFER h PSKIP05 CWK A
0x0f0f5c…0f10f0 Dummy {f00=0x004c, f01=0x0190, f02=» h | P RF(Z) SKIP07 YES i P ADK A4,1 LOW INT. STOP ? i " P RF(Z) SKIP07 YES ! i D P ADK A4,1 LOW INT. START ? i ` P RF(Z) SKIP07 YES ! i P CWK A2,4 i " P RF(NG) SKIP30 REQ, LENGTH < 5 i P LC A4,-2,A1 GET CHARACTER i & P SUK A4,/11 TABU
0x0f10f0…0f1284 Dummy {f00=0x004c, f01=0x0190, f02=»IP05 GET NEXT i PSKIP30 EQU * j P LD A4,ECBRL,A8 j * ( P ST A4,ECBCW,A8 SAVE OLD REQ. LENGTH j B P* j n P ST A2,ECBRL,A8 STORE NEW RL j x P* j P RTN A15 j P XIF j P IFT VD87=1 =7 j P EJECT j P* j D P**********************
0x0f1284…0f1418 Dummy {f00=0x004c, f01=0x0190, f02=», RIGHT BYTE: CONTROL CHAR. FOR FIRST TYPE j J P* A4, LEFT BYTE: BIT 0 = 0 FOR FIRST TYPE, 1 = SECOND TYPE k 2 < P* PSEND1 SENDS CHARACTER /1B BEFORE CONTROL CHARACTER k P* k D P**************************************************************
0x0f1418…0f15ac Dummy {f00=0x004c, f01=0x0190, f02=» k PPSEND2 EQU * l P LDR A2,A4 FIRST TYPE ? l P RF(NN) PS10 YES ! l < * P ADK A2,1 NO, CHANGE CONTROL CHARACTER l V PPS10 EQU * l ( P CF A5,OUTPUT SEND CONTROL CHARACTER l P RF(NZ) RCER NOT OK ! l P RTN A5 RETURN l P* l P EJECT l
0x0f15ac…0f1740 Dummy {f00=0x004c, f01=0x0190, f02=» l F P***************************************************************** m P* m R PTSTBIT EQU * m P LD A4,DWTDEV,A6 m p P SRC A3,2 m P LDR A2,A3 m P ANKL A2,/8001 m P RTN A15 m P* m F P********************************************
0x0f1740…0f18d4 (7, 15) Dummy {f00=0x004c, f01=0x0190, f02=» IS ACTUAL INDICATION BIT m b . P* A2=INDICATION BIT IN BIT 15 n " @ P* ON EXIT: A2 AND A4=DWTDEV WITH NEW IND. BIT IN BIT ZERO n T P* n F P***************************************************************** n P* n PSETBIT EQU * n
0x0f18d4…0f1a68 Dummy {f00=0x004c, f01=0x0190, f02=»O BIT ZERO n p P LDR A4,A2 o P RTN A15 o $ P XIF o 4 P EJECT o @ @ P************************************************************ o N P* o P* RCDY = RECOVERY ROUTINE o 6 P* CLEARS DISPLAY AND SETS CURSOR & HEAD POSITION o , P* COUNTER TO
0x0f1a68…0f1bfc Dummy {f00=0x004c, f01=0x018e, f02=» P LDKL A2,/7FFF p " P ANS A2,DWTST,A6 INDICATE BUSY p P* p @ $ P LDKL A2,MAXBLK MAX. BLOCK SIZE p J P CF A5,STABLK START OF BLOCK p r PRCER ABL(NZ) DYER50 p P IFT VD87=1 =7 p P* p 2 P* THIS PART IS ONLY USED BY THE VD87 DISPLAY p
0x0f1bfc…0f1d90 Dummy {f00=0x004c, f01=0x0190, f02=» p j 2 P LCK A4,/3000 CONTR. CHAR. FOR BACKGR. COLOUR q " P CF A5,PSEND1 SEND PARAMETERS q > P* q d P SLL A4,1 q n ( P LCK A4,/3200 CONTR. CHAR. FOR WIDTH q P CF A5,PSEND1 q P* q P SLL A4,1 q 4 P LCK A4,/3600 CONTR. CHAR. FOR SCREEN INTE
0x0f1d90…0f1f24 Dummy {f00=0x004c, f01=0x0190, f02=»05 EQU * q P XIF r P IFF STEADY+VD87=0 r & P LD A2,DWTDEV,A6 GET DEVICE STATUS r 6 & P ANKL A2,/2000 PTS 6385 OR 6386 ? r ` P RF(Z) RCDY20 NO ! r ( P LDK A3,/40 SET UP TRANSFER COUNTER r P* r 0 PRCDY10 LDK A2,STILL-1 SET UP CURSOR BLINKING r
0x0f1f24…0f20b8 Dummy {f00=0x004c, f01=0x0190, f02=»T TRANSFER COUNTER r ~ & P RB(P) RCDY10 NOT ENOUGH TRANSFERS s P XIF s D P IFF COUNTRY=0 s P * P LDK A2,CTYCOD SEND "SET COUNTRY CODE" s f P CF A5,OUTPUT s P RB(NZ) RCER s P IFT VD87=1 =7 s P* s D P* SEND AN EXTRA CONTROL CHARACTER TO V
0x0f20b8…0f224c Dummy {f00=0x004c, f01=0x0190, f02=»ND C.C. s P RB(NZ) RCER NOT OK ! t PNOT87 EQU * t . P XIF t B P IFF COUNTRY=0 t N ( P LDK A2,COUNTRY SEND "COUNTRY CODE" t d P ORK A2,/30 MAKE ASCII DIGIT t P CF A5,OUTPUT t P RB(NZ) RCER t P XIF t PRCDY20 EQU * t P* t ( P
0x0f224c…0f23e0 Dummy {f00=0x004c, f01=0x0190, f02=» ST A2,DWTAP+DWTDEV,A6 SET HEAD POSITION COUNTER t P LDK A2,0 u 8 : P SC A2,DWTBC+DWTDEV,A6 RESET CURRENT POSITION COUNTER u J P* u P ABL ENDIO u P* u , P**************************************** u P* u P* ABORT ROUTINE u P* u
0x0f23e0…0f2574 (7, 16) Dummy {f00=0x004d, f01=0x4024, f02=»DIS END I/O u P END v @ v
0x0f2574…0f2708 Dummy {f00=0x004d, f01=0x2008, f02=» w E & | CF A5,STABLK START OF BLOCK ' * ' 6 ( $ LDK A2,CLEHOM CLEAR AND CURSOR HOME ' @ CF A5,OUTPUT SEND ' l * ' LDKL A2,/0101 HOME POSITION ' 4 0 ST A2,DWTAP+DWTDEV,A6 SET HEAD POSITION COUNTER ' * ' ABL ENDIO '
0x0f2708…0f289c Dummy {f00=0x004d, f01=0x0190, f02=» WRITE TO THE APPLICATION; P$FRAME; " P 2 P : * P LD A14,TC:STK,A13 RESET STACK POINTER B P LDR A8,A13 A8 -> WSM-TCA p P ADKL A8,TC:IC A8 -> ITC-ECB ( P LD A1,W:ICFC LOAD OUTPUT FILE CODE $ P SC A1,ECB:FC+1,A8 STORE IN ECB .
0x0f289c…0f2a30 Dummy {f00=0x004d, f01=0x018e, f02=»UESTED LENGTH x . P LDK A7,WRITE SET ORDER = WRITE WITH WAIT P H PSTR500 EQU * P P LKM d P DATA 1 p P & P LD A1,ECB:RC,A8 LOAD RETURN-CODE P ANK A1,/40 TIME OUT ? $ P RB(NZ) STR500 -YES, TRY AGAIN ! P 4 P LC A1,P
0x0f2a30…0f2bc4 Dummy {f00=0x004d, f01=0x403e, f02=» & P RB STR020 -NO, GO TO ADDR READ ! P END .@ :T P H PSTR500 EQU * P P LKM d P DATA 1 p P & P LD A1,ECB:RC,A8 LOAD RETURN-CODE P ANK A1,/40 TIME OUT ? $ P RB(NZ) STR500 -YES, TRY AGAIN ! P 4 P LC A1,P
0x0f2bc4…0f2d58 Dummy {f00=0x004d, f01=0x2008, f02=» STR020 -NO, GO TO ADDR READ ! P END .@ :T P H PSTR500 EQU * P P LKM d P DATA 1 p P & P LD A1,ECB:RC,A8 LOAD RETURN-CODE P ANK A1,/40 TIME OUT ? $ P RB(NZ) STR500 -YES, TRY AGAIN ! P 4 P LC A1,P
0x0f2d58…0f2eec Dummy {f00=0x004d, f01=0x018e, f02=» PDOTEND EQU * P EJECT P & P$FRAME; . P$C PREPARE INPUT BUFFER ; > P$FRAME; ` P p $ P LD A4,TC:CFD,A13 A4 -> DF DATA x 2 P ADK A4,1 A4 -> DF DATA AFTER DECORATION BYTE P LCR A3,A4 2 P CF A14,W:PIB MOVE COMPRESSED TO
0x0f2eec…0f3080 Dummy {f00=0x004d, f01=0x018e, f02=» n 0 P CF A14,W:TSTP CHECK IF INPUT SHOULD BE MADE P RF(Z) DIN050 - YES ! < P RF(P) DIN025 - NO ! Z * P LDK A1,K1:DUPL - NO, BUT AUTO DUPL ! v P RF DIN200 PDIN025 EQU * 4 P LD A1,PB:KID,A13 - SKIP INPUT, SEE IF VAL. ETC P RF
0x0f3080…0f3d20 (8, 0) DirGranule ((8, 0)) {
0x0f3080…0f3d20 DirEnt {nam=»UPD5.2«, typ=» «, f00=0x0000, f01=0x0000, f02=0x09a8, f03=0x0000}
0x0f3080…0f3d20 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x09b0, f03=0x0000}
0x0f3080…0f3d20 }
0x0f3d20…0f3eb4 (8, 1) Opaque[0x194]
0x0f3eb4…0f4048 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x09b0, f03=0x0000}
0x0f3eb4…0f4048 IdxSect {
0x0f3eb4…0f4048 f00 = 0x004d // 0xf3eb4 @0x0
0x0f3eb4…0f4048 f01 = 0x0008 // 0xf3eb6 @0x2
0x0f3eb4…0f4048 gno = [ // 0xf3eb8 @0x4
0x0f3eb4…0f4048 [0x00]: C0x004d.0x2.0
0x0f3eb4…0f4048 [0x01]: C0x004d.0x3.0
0x0f3eb4…0f4048 [0x02]: C0x004e.0x0.0
0x0f3eb4…0f4048 [0x03]: C0x004e.0x1.0
0x0f3eb4…0f4048 ]
0x0f3eb4…0f4048 }
0x0f4048…0f41dc Dummy {f00=0x004d, f01=0x0190, f02=» > @ IDENT T:ENLI T,REL=11.0,810615,870137141100 T:DNL T:DSL F I:EVNO I:ECPY n I:EPIC I:ETXT I:ETAB I:EBRI I:EBRB I:EBR * &
0x0f41dc…0f4370 Dummy {f00=0x004d, f01=0x0190, f02=» I:ESKI . I:EXPY @ I:RET R I:ATTR b T:DSL , t T:GRFC , ( ! H " $ & ( Y . T:DNL : , ( 5 Y ,W ( Y . X ( X ." P X
0x0f4370…0f4504 Dummy {f00=0x004d, f01=0x018e, f02=» . l I:ECTR , ( X . X 2Q Y *T 0 : " , ( P X 0U X *# P P T N I:ER16 ~ T:ENIN , ( " T : " 2 Y . 4 , ( Y ( ( Y *T "
0x0f4504…0f4698 Dummy {f00=0x004d, f01=0x401e, f02=» r @ X . X 2Q Y *T 0 : " , ( P X 0U X *# P P T N I:ER16 ~ T:ENIN , ( " T : " 2 Y . 4 , ( Y ( ( Y *T "
0x0f4698…0f482c Dummy {f00=0x004d, f01=0x0190, f02=» > @ IDENT T:DEDT T,REL=11.0,810615,870137141100 . * T:TABC T:TABD T:TABE T:TABN T:SCR2 F I:EVNO x I:ESKI I:EVA0 I:EBRI I:EBRB I:EBR , (
0x0f482c…0f49c0 Dummy {f00=0x004d, f01=0x0190, f02=» z T:DSL I:RET * T:TABC , : T:TABD 0 N T:TABE 4 b , ( ! W W v , ( 5 X 0Q Y ( Y *P T:EDWI I:EVT I:EDSK ,
0x0f49c0…0f4b54 (8, 2) Dummy {f00=0x004d, f01=0x0190, f02=»V _` " P T " | T:ENIN T:LOPS . , ( ! P & (W " P Y @ , ( 0] Y (_z P P T p T:EDWF , ( " X _@ " P * X *# P B I:ER16 , ( 1
0x0f4b54…0f4ce8 Dummy {f00=0x004d, f01=0x4136, f02=» P z , ( _@ . C W @ X (T W X y 6 T:TABN J T:RCR ^ " } @ Y ( : X (;n 0 n H D ! /W 3W ;Q ? 2 C 0 OP Q P PR V PL T Ph Wp P P < 8 P T0 P" P W P =P CP IT
0x0f4ce8…0f4e7c Dummy {f00=0x004d, f01=0x018e, f02=» > @ IDENT I:EDT T,REL=11.0,810615,870137141100 F B I:EDT I:EDW I:ED1 I:EDSK I:EVT I:ETAB I:EXIT I:ETXT I:ECPY F D @ I:ECTR I:ESL I:ENL I:EOR I:ECW I:ECWC I:EFIL I:EFLA I:SCB $ I:FFSN I:EXPY I:RET I:ATTR , (
0x0f4e7c…0f5010 Dummy {f00=0x004d, f01=0x0190, f02=» I:EVA5 I:EVB I:EGTB * I:EVI < I:EVA3 L I:EVA0 ^ * & AUT p I:EVNO I:EPIC I:ESKI I:EBRI I:EBRB I:EBR * &
0x0f5010…0f51a4 Dummy {f00=0x004d, f01=0x0190, f02=»DSK ~ , ( { 6 K K I:EDT > I:ED1 P I:EDW b , ( K K V K : t I:EVA6 , ( R B " V , ( V Z P 2 "
0x0f51a4…0f5338 Dummy {f00=0x004d, f01=0x0190, f02=»SEG , ( 7 _Z Z [ Z P I:ERR9 < , ( W@ $ [ V N I:RET ~ ~ I:EXIT P:MTAB , ( u@ & 7_ W Z , ( B @ " (! P $ Z 7
0x0f5338…0f54cc Dummy {f00=0x004d, f01=0x0190, f02=» * j I:ETAB , ( @ * : R J P v I < : I:ECPY N , ( J Q : b I:ETXT 4 I:EXPY 4 I:ATTR F I:ECTR H , ( ) P 4 ! T _ P 4 W
0x0f54cc…0f5660 Dummy {f00=0x004d, f01=0x0190, f02=»CW | T:EDWE * & i W _& X ,W X & I:ECWC L I:EFIL ` I:SCB t I:ERRD , ( . J K : V : J T @ 0 1 H D ! U Y 4 [ e r g i | k 8 m
0x0f5660…0f57f4 (8, 3) Dummy {f00=0x004e, f01=0x404a, f02=» EWV O QWJ U X WW _ r c n mW. {W V T | 4@ F
0x0f57f4…0f5988 Dummy {f00=0x004e, f01=0x2008, f02=» L = REL11 DATE = 811025 6879 PACK NBR = 0011
0x0f5988…0f5b1c Dummy {f00=0x004e, f01=0x0190, f02=»
[…0xd…]
0x0f6fa0…0f7c40 (9, 0) DirGranule ((9, 0)) {
0x0f6fa0…0f7c40 DirEnt {nam=»UPD5.3«, typ=» «, f00=0x0000, f01=0x0000, f02=0x09d0, f03=0x0000}
0x0f6fa0…0f7c40 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x09d8, f03=0x0000}
0x0f6fa0…0f7c40 }
0x0f7c40…0f7dd4 (9, 1) Opaque[0x194]
0x0f7dd4…0f7f68 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x09d8, f03=0x0000}
0x0f7dd4…0f7f68 IdxSect {
0x0f7dd4…0f7f68 f00 = 0x004e // 0xf7dd4 @0x0
0x0f7dd4…0f7f68 f01 = 0x0008 // 0xf7dd6 @0x2
0x0f7dd4…0f7f68 gno = [ // 0xf7dd8 @0x4
0x0f7dd4…0f7f68 [0x00]: C0x004e.0x3.0
0x0f7dd4…0f7f68 [0x01]: C0x004f.0x0.0
0x0f7dd4…0f7f68 [0x02]: C0x004f.0x1.0
0x0f7dd4…0f7f68 [0x03]: C0x004f.0x2.0
0x0f7dd4…0f7f68 ]
0x0f7dd4…0f7f68 }
0x0f7f68…0f80fc Dummy {f00=0x004e, f01=0x0190, f02=» > @ IDENT T:ENLI P,REL=11.0,810615,870136941100 T:DNL T:DSL F I:EVNO I:ECPY n I:EPIC I:ETXT I:ETAB I:EBRI I:EBRB I:EBR * &
0x0f80fc…0f8290 Dummy {f00=0x004e, f01=0x0190, f02=» I:ESKI . I:EXPY @ I:RET R I:ATTR b T:DSL , t T:GRFC , ( ! H " $ & ( Y . T:DNL : , ( 5 Y ,W ( Y . X ( X ." P X
0x0f8290…0f8424 Dummy {f00=0x004e, f01=0x4190, f02=» . l I:ECTR , ( X . X 2Q Y *T 0 : " , ( P X 0U X *# P P T N T:ENIN ~ * & @ " T : Y . 2 Y ( , ( ( Y *T " T ! 1 W ! ) 0 : H
0x0f8424…0f85b8 Dummy {f00=0x004e, f01=0x0190, f02=» > @ IDENT T:DEDT P,REL=11.0,810615,870136941100 . * T:TABC T:TABD T:TABE T:TABN T:SCR2 F I:EVNO x I:ESKI I:EVA0 I:EBRI I:EBRB I:EBR , (
0x0f85b8…0f874c Dummy {f00=0x004e, f01=0x0190, f02=» z T:DSL I:RET * T:TABC , : T:TABD 0 N T:TABE 4 b , ( ! W W v , ( 5 X 0Q Y ( Y *P T:EDWI I:EVT I:EDSK ,
0x0f874c…0f88e0 Dummy {f00=0x004e, f01=0x0190, f02=» P X 0P V _` " P T T:LOPS , , ( & (W " P Y 0] > T:EDWF n , ( @ Y (_t " X _. * X *# , ( P B 1 *W " P T:SCR2 , ( X X$ C
0x0f88e0…0f8a74 (9, 2) Dummy {f00=0x004f, f01=0x40a8, f02=» y 6 Y ( : X (;n . H D ! /W 3W ;Q ? C OP Qp P P: Vp P4 T WT P P W & P P /W 7T ;W r X @ , ( P B 1 *W " P T:SCR2 , ( X X$ C
0x0f8a74…0f8c08 Dummy {f00=0x004f, f01=0x018e, f02=» > @ IDENT I:EDT P,REL=11.0,810615,870136941100 F B I:EDT I:EDW I:ED1 I:EDSK I:EVT I:ETAB I:EXIT I:ETXT I:ECPY F D @ I:ECTR I:ESL I:ENL I:EOR I:ECW I:ECWC I:EFIL I:EFLA I:SCB $ I:FFSN I:EXPY I:RET I:ATTR , (
0x0f8c08…0f8d9c Dummy {f00=0x004f, f01=0x0190, f02=» I:EVA5 I:EVB I:EGTB * I:EVI < I:EVA3 L I:EVA0 ^ * & AUT p I:EVNO I:EPIC I:ESKI I:EBRI I:EBRB I:EBR * &
0x0f8d9c…0f8f30 Dummy {f00=0x004f, f01=0x0190, f02=»DSK ~ , ( { 6 K K I:EDT > I:ED1 P I:EDW b , ( K K V K : t I:EVA6 , ( R B " V , ( V Z P 2 "
0x0f8f30…0f90c4 Dummy {f00=0x004f, f01=0x0190, f02=»SEG , ( 7 _Z Z [ Z P I:RET r < , ( W@ $ [ V 7_ N I:EXIT x ~ P:MTAB * & u W Z @ " &! P , ( $ Z 7 Z Z P $ I:F
0x0f90c4…0f9258 Dummy {f00=0x004f, f01=0x0190, f02=» , ( J P v I < : J I:ECPY : I:ETXT ( N I:EXPY ( b , ( Q : P 4 ! T _ v I:ATTR : I:ECTR < I:ESL F , ( ) P 4 W K W
0x0f9258…0f93ec Dummy {f00=0x004f, f01=0x4188, f02=»E I:ECWC z I:EFIL , ( i @X *W X & , J K : 2 I:SCB b V : 1 t H D ! U Y ( [ e f g x i p k 8 m P s u F y ( { r } : @ H D ! @ P T W T W ? U
0x0f93ec…0f9580 Dummy {f00=0x004f, f01=0x2008, f02=» L = REL11 DATE = 811025 6879 PACK NBR = 0011
0x0f9580…0f9714 (9, 3) Dummy {f00=0x004f, f01=0x0190, f02=»
[…0xf…]
0x0faec0…0fbb60 (10, 0) DirGranule ((10, 0)) {
0x0faec0…0fbb60 DirEnt {nam=»UPD6.1«, typ=» «, f00=0x0000, f01=0x0000, f02=0x09f8, f03=0x0000}
0x0faec0…0fbb60 DirEnt {nam=»SYSLOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a00, f03=0x0000}
0x0faec0…0fbb60 }
0x0fbb60…0fbcf4 (10, 1) Opaque[0x194]
0x0fbcf4…0fbe88 # DirEnt {nam=»SYSLOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a00, f03=0x0000}
0x0fbcf4…0fbe88 IdxSect {
0x0fbcf4…0fbe88 f00 = 0x0050 // 0xfbcf4 @0x0
0x0fbcf4…0fbe88 f01 = 0x005a // 0xfbcf6 @0x2
0x0fbcf4…0fbe88 gno = [ // 0xfbcf8 @0x4
0x0fbcf4…0fbe88 [0x00]: C0x0050.0x0.0
0x0fbcf4…0fbe88 [0x01]: C0x0050.0x1.0
0x0fbcf4…0fbe88 [0x02]: C0x0050.0x2.0
0x0fbcf4…0fbe88 [0x03]: C0x0050.0x3.0
0x0fbcf4…0fbe88 [0x04]: C0x0051.0x0.0
0x0fbcf4…0fbe88 [0x05]: C0x0051.0x1.0
0x0fbcf4…0fbe88 [0x06]: C0x0051.0x2.0
0x0fbcf4…0fbe88 [0x07]: C0x0051.0x3.0
0x0fbcf4…0fbe88 [0x08]: C0x0052.0x0.0
0x0fbcf4…0fbe88 [0x09]: C0x0052.0x1.0
0x0fbcf4…0fbe88 [0x0a]: C0x0052.0x2.0
0x0fbcf4…0fbe88 [0x0b]: C0x0052.0x3.0
0x0fbcf4…0fbe88 [0x0c]: C0x0053.0x0.0
0x0fbcf4…0fbe88 [0x0d]: C0x0053.0x1.0
0x0fbcf4…0fbe88 [0x0e]: C0x0053.0x2.0
0x0fbcf4…0fbe88 [0x0f]: C0x0053.0x3.0
0x0fbcf4…0fbe88 [0x10]: C0x0054.0x0.0
0x0fbcf4…0fbe88 [0x11]: C0x0054.0x1.0
0x0fbcf4…0fbe88 [0x12]: C0x0054.0x2.0
0x0fbcf4…0fbe88 [0x13]: C0x0054.0x3.0
0x0fbcf4…0fbe88 [0x14]: C0x0055.0x0.0
0x0fbcf4…0fbe88 [0x15]: C0x0055.0x1.0
0x0fbcf4…0fbe88 [0x16]: C0x0055.0x2.0
0x0fbcf4…0fbe88 [0x17]: C0x0055.0x3.0
0x0fbcf4…0fbe88 [0x18]: C0x0056.0x0.0
0x0fbcf4…0fbe88 [0x19]: C0x0056.0x1.0
0x0fbcf4…0fbe88 [0x1a]: C0x0056.0x2.0
0x0fbcf4…0fbe88 [0x1b]: C0x0056.0x3.0
0x0fbcf4…0fbe88 [0x1c]: C0x0057.0x0.0
0x0fbcf4…0fbe88 [0x1d]: C0x0057.0x1.0
0x0fbcf4…0fbe88 [0x1e]: C0x0057.0x2.0
0x0fbcf4…0fbe88 [0x1f]: C0x0057.0x3.0
0x0fbcf4…0fbe88 [0x20]: C0x0058.0x0.0
0x0fbcf4…0fbe88 [0x21]: C0x0058.0x1.0
0x0fbcf4…0fbe88 [0x22]: C0x0058.0x2.0
0x0fbcf4…0fbe88 [0x23]: C0x0058.0x3.0
0x0fbcf4…0fbe88 [0x24]: C0x0059.0x0.0
0x0fbcf4…0fbe88 [0x25]: C0x0059.0x1.0
0x0fbcf4…0fbe88 [0x26]: C0x0059.0x2.0
0x0fbcf4…0fbe88 [0x27]: C0x0059.0x3.0
0x0fbcf4…0fbe88 [0x28]: C0x005a.0x0.0
0x0fbcf4…0fbe88 [0x29]: C0x005a.0x1.0
0x0fbcf4…0fbe88 [0x2a]: C0x005a.0x2.0
0x0fbcf4…0fbe88 [0x2b]: C0x005a.0x3.0
0x0fbcf4…0fbe88 [0x2c]: C0x005b.0x0.0
0x0fbcf4…0fbe88 ]
0x0fbcf4…0fbe88 }
0x0fbe88…0fc01c Dummy {f00=0x0050, f01=0x0190, f02=» 2 P IDENT SYSLOD REL 11.0 81-12-17 870105041100 P : 0 P =15, LOADING SEVERAL APPL. FROM 80M DISC B P =15, REL 11.0 81-11-10 v * P =14,LOADING SEGMENTS FROM CASSETTE " P =14,REL 11.0 81-09-25 SVBU ( P =13, ERROR WHEN SEGMENT S
0x0fc01c…0fc1b0 Dummy {f00=0x0050, f01=0x0190, f02=» IN READ ROUT. FOR 16M,80M P =11,REL 11.0 81-05-11 " , P =10,TWO WORDS IN INTERRUPT TABLE ARE B P =10,DESTROYED r P =10,REL 11.0 81-04-08 ( P =9,NEW CONTROL UNIT 16M,80M DISC P =9,REL 11.0 81-04-06 2 P =8,WHEN CFTEST=
0x0fc1b0…0fc344 Dummy {f00=0x0050, f01=0x018e, f02=» * P =6,DC BLOCK DESTROYED WHEN CFTEST=0 P =6,REL 11.0 81-02-06 2 2 P =5,SUPPORTS LOADING FROM TWO HARDDISC UNITS R P =5,REL 11.0 81-01-29 P =4,FLOPPY MUX CORRECTED P =4,REL 11.0 81-01-26 & P =3,IF 256 KBYTE MEMORY OVER
0x0fc344…0fc4d8 Dummy {f00=0x0050, f01=0x0190, f02=» b 0 P =2,REDESIGNED SEGMENT ALLOCATION ALGORITM P =2,PRR 11.0 80-11-20 < * P =1,MXSTAB ADDR. NOT REL IF CFTEST=0 P =1,PRR 11.0 80-11-19 P ENTRY SYSLOD P ENTRY SYSBAS P ENTRY NUMSEG P ENTRY PRGLG1 P ENTRY
0x0fc4d8…0fc66c Dummy {f00=0x0050, f01=0x0190, f02=»NPE P ENTRY APLREL P ENTRY APLSTA " P ENTRY APLTYP 8 P ENTRY APLIOE N P ENTRY APLSEG d P ENTRY APLSWB z P*************************** P* * P* ENTRIES AND EXTERNALS * P*
0x0fc66c…0fc800 Dummy {f00=0x0050, f01=0x018e, f02=»H SAVE REGISTER CONTENTS P EXTRN SYSLDM P EXTRN SCTANO 6 P EXTRN SCTBUG L P EXTRN SCTEFA b P EXTRN SCTMSZ x 2 P EXTRN SCTMXS ADDRESS TO MONITOR EXTENT TABLE P EXTRN SCTNOP P EXTRN SCTOPT P EXTRN SCTIPL P E
0x0fc800…0fc994 (10, 2) Dummy {f00=0x0050, f01=0x0190, f02=» P EXTRN TABBE P EXTRN MMEND P EXTRN CMPADR , P EXTRN MOVE B 4 P EXTRN TTB:MT DISPLACEMENT TO MMU TABLE IN TTAB V P EXTRN TTB:CB P EXTRN STKCOM P EXTRN STKEND P EJECT P P $ P******************
0x0fc994…0fcb28 Dummy {f00=0x0050, f01=0x0190, f02=»K: z PTDBBT EQU 0 1A BLOCK TYPE ( PTDBNT EQU TDBBT+1 2N NUMBER OF TASKS , , PTDBID EQU TDBNT+2 6A TASK ID START VALUE X , PTDBMC EQU TDBID+6 6A MATCHING TASK CLASS $ PTDBTL EQU TDBMC+6 6A TASK LEVEL : PTDBNC EQU TDBTL+6 2N NUMBER OF TERMINAL
0x0fcb28…0fccbc Dummy {f00=0x0050, f01=0x0190, f02=»ION z ( PTDBREC EQU TDC+TLC TDB-RECORD LENGTH P* 8 * PSDC EQU 7 SPECIAL DEVICE CLASS-RECORD B P* p P* COMMON DEVICE DEF. BLOCK: z PCDBBT EQU 0 1A BLOCK TYPE 6 PCDBNC EQU CDBBT+1 2N NUMBER OF SPEC. DEV. CLASSES ( PSDCFST EQU CDB
0x0fccbc…0fce50 Dummy {f00=0x0050, f01=0x0190, f02=»UDBBT+1 3A NUMBER OF UWB TYPES P* & ( PUDBFST EQU UDBNU+3 SAVE05 UDB-RECORD 0 PNAMUWB EQU 3 NAME OF UWB " PNUMUBL EQU 3 NUMBER OF BLOCKS | . PUDBREC EQU NAMUWB+NUMUBL UDB RECORD-LENGTH P EJECT P**************** P* SOP-HANDLING
0x0fce50…0fcfe4 Dummy {f00=0x0050, f01=0x0190, f02=» EQU /100 PLMP4 EQU /80 PLMP5 EQU /40 & PLMP6 EQU /20 : PLMP7 EQU /10 N PLMP8 EQU 8 b PLMP9 EQU 4 t PLMP10 EQU 2 PLMP11 EQU 1 P EJECT P P ( P*********************************** ( P* MXSTAB DISPLA
0x0fcfe4…0fd178 Dummy {f00=0x0050, f01=0x0190, f02=»NT CLUSTERS t P P 2 P********************************************* $ 2 P* * Z 2 P* APCTAB DISPLACEMENTS * 2 P* ==================== * 2 P*
0x0fd178…0fd30c Dummy {f00=0x0050, f01=0x0190, f02=»N DISC FILE ADDRESS =2 x . PAPLREL EQU 18 APPLICATION RELOCATION BASE , PAPLIOE EQU 0 APPLICATION RESTART ADDRESS P 8 PAPLLAC EQU 14 APPLICATION LOAD ADDR. (LOGICAL ADDR.) & PAPLLAP EQU 12 LOGICAL PAGE ADDRESS 8 PAPLLDA EQU 0 APPLICATION LOAD ADDR
0x0fd30c…0fd4a0 Dummy {f00=0x0050, f01=0x0190, f02=»SICAL START OF 1ST SEGMENT . PAPLNPE EQU 6 NUMBER OF PAGE ENTRIES IN MMU " . PAPLPSZ EQU 20 APPLICATION SEGMENT SIZE =2 T PAPLSWB EQU 2 APPLICATION SWB * PAPLSTA EQU 16 APPL. PGM START ADDRESS " PAPLTYP EQU 8 APPLICATION TYPE P EJECT
0x0fd4a0…0fd634 (10, 3) Dummy {f00=0x0050, f01=0x0190, f02=» * ~ " P* * " P****************************** : P ` P l 6 PACBLEN EQU 26 APPLICATION CONTROL BLOCK LENGTH =2 x 0 PAPLTAB EQU 12 ADDRESS TO APPL. CONTROL TABLE $ PAPPLNO EQU 18 APPLICATION NUMBER
0x0fd634…0fd7c8 Dummy {f00=0x0050, f01=0x0190, f02=»DATA l ( PDATEND EQU 34 END OF DDIV PROTOTYPE : PFSTADR EQU 20 1ST FREE ADDRESS WHEN ALLOCATING BUFFER 8 * PFSTPAG EQU 22 1ST FREE PAGE (PHYSICAL) v , PFYSPAG EQU 24 LAST PHYSICAL PAGE NUMBER 6 PLSTADR EQU 26 LAST ADDRESS WHEN BUILDING DATA PART
0x0fd7c8…0fd95c Dummy {f00=0x0050, f01=0x0190, f02=» $ PM:REL EQU 16 RELOCATION CONSTANT , PSYSBUF EQU 28 START OF TEMPORARY BUFFER , 2 PSWBFSA EQU 4 SWB-FILE START ADDRESS (2 WORDS) 0 PSWBFSE EQU 8 SWB-FILE END ADDRESS (2 WORDS) ( PTTAB EQU 32 WORK AREA FOR MMU TABLE $ PCOM01 EQU 40 COMMON SA
0x0fd95c…0fdaf0 Dummy {f00=0x0050, f01=0x018e, f02=» j , PSWBFLG EQU 48 SWAPPPABLE WORK BLOCK FLAG $ PCOM04 EQU 50 COMMON SAVE AREA 4 8 ( PDCBLK EQU 54 START OF DC CONF. DATA ` P EJECT " P****************************** " P* * " P* LOCAL DISPLACEMENTS *
0x0fdaf0…0fdc84 Dummy {f00=0x0050, f01=0x0190, f02=» , PAPLCNT EQU 4 NO OF APPLICATIONS TO LOAD & PBLKLEN EQU 6 SEGMENT BLOCK LENGTH 8 8 PCARFIX EQU 54 CARTRIDGE OR FIX INDICATOR 16M DISC =9 b ( PCBLEN EQU 256 CASSETTE BUFFER LENGTH , PCOMLG EQU 4 LENGTH OF CORE RESIDENT PART * PCONDAD EQU 44
0x0fdc84…0fde18 Dummy {f00=0x0050, f01=0x0190, f02=»LOCK l PDEVTYP EQU 50 DEVICE TYPE 6 PDISCAD EQU 28 SAVE AREA FOR DISC ADDRESS (2 WORDS) . $ PECNFBF EQU 6 END OF CONF. BUFFER h $ PEINPBF EQU 2 END OF INPUT BUFFER $ PESYSTA EQU 0 END OF SYSTEM AREA & PEXLEN EQU 4 MONITOR EXTENT LENGTH 6
0x0fde18…0fdfac Dummy {f00=0x0050, f01=0x0190, f02=»LOAD DEVICE p & PIPLTYP EQU 48 PGM LOAD DEVICE TYPE & PLLDADR EQU 12 LOGICAL LOAD ADDRESS > , PLSTREC EQU 20 LAST RECORD OF CONF. FILE h 0 PLSTASG EQU 8 LOGICAL START OF FIRST SEGMENT PMONNO EQU 22 MONITOR NUMBER * PNCHAID EQU 8 NO OF CHAR.
0x0fdfac…0fe140 Dummy {f00=0x0050, f01=0x0190, f02=» OF SEGM. IN S:GTAB v . POPTION EQU 52 SAVE AREA FOR OPTOIN WORD =2 & PPAGLG EQU 8 PAGE LENGTH IN S:GTAB N ( PPAGSIZ EQU /1000 PHYSICAL PAGE SIZE x ( PPLDADR EQU 14 PHYSICAL LOAD ADDRESS , PPRGLG1 EQU 2 PROGRAM LENGTH DISPLACEMENT : PPSECNL E
0x0fe140…0fe2d4 (10, 4) Dummy {f00=0x0050, f01=0x0190, f02=»AL SECTOR PART (0-2) | ( PREWFLG EQU 56 REWIND INDICATION =14 " PSEGCNT EQU 10 SEGMENT COUNTER H $ PSWPFEL EQU 14 FILE EXTENT LENGTH n * PTNBRSG EQU 26 TOTAL NUMBER OF SEGMENTS P EJECT P*********************** P* CASSETTE HANDLING
0x0fe2d4…0fe468 Dummy {f00=0x0050, f01=0x0190, f02=»EARCH BEGINNING OF TAPE ( PSTMF EQU /C SEARCH TAPEMARK FORWARD P* L " P* DISC/FLEXIBLE DISC HANDLING V P* | ( PBUFLEN EQU 256 LENGTH OF READ BUFFER * PDKBA3 EQU 514 BUFFER LENGTH VERSION A3 2 PRECLEN EQU 9 CONFIGURATION FILE RECORD L
0x0fe468…0fe5fc Dummy {f00=0x0050, f01=0x0190, f02=»XCC EQU /8080 1:ST MUX WORD * PMXCCD3 EQU /80C1 BYTE2=NUMBER OF WORDS $ PQBLFAC EQU 6 BLOCKING FACTOR R , PCIO EQU /41C0 I/O INSTR. CONF. CONSTANT v P EJECT P F P***************************************************************** F
0x0fe5fc…0fe790 Dummy {f00=0x0050, f01=0x0190, f02=» * T F P* * F P***************************************************************** X P P P PCALL FORM 16=/F697,16 P EJECT P**********************
0x0fe790…0fe924 Dummy {f00=0x0050, f01=0x0190, f02=» r P* P P PX:A EQU 1 " PX:B EQU 1 4 PX:C EQU 1 F PX:D EQU 0 X PX:E EQU 0 j PX:F EQU 0 =9 | PX:G EQU 1 =9 P ( PMMUPAG EQU 0 1-MMU HARDWARE PRESENT . PEDM EQU 0 1-SUPPORTS EXTENDED MONITORS =12
0x0fe924…0feab8 Dummy {f00=0x0050, f01=0x0190, f02=»LOAD DEVICE = FLEXIBLE DISC v : PMFDISC EQU X:D 1-PROGRAM LOAD DEVICE = MINI FIXED DISC $ 6 PCDDISC EQU X:E 1-PROGRAM LOAD DEVICE=80M CDC DISC b : PCDDI16 EQU X:F 1-PROGRAM LOAD DEVICE = 16M CDC DISC =9 2 PCFTEST EQU X:G 1-TEST OF CONFIGURATION FILE =9
0x0feab8…0fec4c Dummy {f00=0x0050, f01=0x0190, f02=»** : P* * : P* APPLICATION LOAD PART OF SYSLOD * H : P* =============================== * : P* * 8 P* ENT
0x0fec4c…0fede0 Dummy {f00=0x0050, f01=0x0190, f02=»ICATION NUMBER * | : P* A7 - APPLICATION DISC ADDRESS BIT 16-31 * * : P* A8 - APPLICATION DISC ADDRESS BIT 0-15 * h : P* A9 - START OF FREE AREA * : P* A13 - MONITOR START ADDRES
0x0fede0…0fef74 (10, 5) Dummy {f00=0x0051, f01=0x018e, f02=» * ` : P* * : P* SUBROUTINES: CASSIN,SOPIN,CHCRIO,LODCOM * L : P* LODSEG,REBUF,MOVBUF,RDBLK, * : P* CONLOD,CONEX,MOVREV * : P*
0x0fef74…0ff108 Dummy {f00=0x0051, f01=0x0190, f02=» P* P* SAVE REGISTERS P* , 4 P ST A1,IPLTYP+STKEND SAVE FORMAT AND DEVICE TYPE 6 * P ST A2,SCTIPL SAVE PROGRAM LOAD DEVICE n P ST A2,IPLDEV+STKEND 2 P CM CONDEV+STKEND RESET CONF. DATA DEV. ADDR. $ P ST A3,SCTANO APPLICATION
0x0ff108…0ff29c Dummy {f00=0x0051, f01=0x0190, f02=»E AREA t " P LDK A1,1 INITIATE NO OF APPL. P STR A1,A3 AND SAVE IN TABLE 4 > P ST A8,APLADA+2,A3 SAVE APPLICATION DISC ADDRESS BIT 0-15 X > P ST A7,APLADA+4,A3 SAVE APPLICATION DISC ADDRESS BIT 16-31 * P ST A9,SCTSFA SAVE START OF FREE AREA
0x0ff29c…0ff430 Dummy {f00=0x0051, f01=0x018e, f02=» 8 P ANK A2,1 TEST IF DEBUG ADDRESS IS ODD,IF TRUE START ! P ABR(NZ) A1 ! @ P* ! T PSYS110 EQU * ! ^ " P LD A15,SCTSTB LOAD STACK BASE ! r " P SUKL A15,4 ADJUST STACK BASE ! P* ! P* INDICATE SYSLOD RUNS ! P* ! P LDKL A1,LMP1 ! P
0x0ff430…0ff5c4 Dummy {f00=0x0051, f01=0x018e, f02=» ! n P* " P LDR A8,P RETURN ADDRESS " & P LDKL A3,REL+2 RELOCATION ROUTINE " 2 P CFR A8,A3 " $ P LDKL A5,/5555 LOAD TEST PATTERN " n P LDK A6,64 INIT PAGE COUNTER " P IFT MMUPAG=1 " P EJECT " P* " > P* EXECUTION PATH FOR SYSTEMS WI
0x0ff5c4…0ff758 Dummy {f00=0x0051, f01=0x0190, f02=» " P LD A2,TABBE GET PAGE ADDRESS # 2 P SUKL A2,/400 DECREMENT PHYSICAL PAGE ADDRESS # * P ST A2,TABBE STORE IT BACK # ` P TL TABBE LOAD MMU REGISTERS # 0 P EL A3,PAGSIZ-2,A1 SAVE OLD MEMORY CONTENTS # * P ES A5,PAGSIZ-2,A1 STORE TEST PATTERN # * P
0x0ff758…0ff8ec Dummy {f00=0x0051, f01=0x0190, f02=» # l P RF(E) AP:020 $ ( P SUK A6,4 DECREMENT NUMBER OF PAGES $ P RB AP:010 $ J P* $ $ P* CHECK IF MMU HARDWARE PRESENT $ f P* $ PAP:020 LDKL A1,/FC00 $ 6 P ST A1,MMDDIV,A13 SET 1ST ENTRY IN MMU TABLE AREA $ , P TL MMDDIV,A13 TRY TO LOAD
0x0ff8ec…0ffa80 Dummy {f00=0x0051, f01=0x0190, f02=»SENT $ v P LDKL A1,LMP9 % . P CALL ERROR INDICATE HARDWARE NOT PRESENT % " $ PAP:030 CM TABBE RESET MMU TABLE % T P* % | D P* END OF EXECUTION PATH FOR SYSTEMS WITH MMU OPTION EXCLUSIVELY % P* % P XIF % P IFT MMUPAG=0 % P EJECT % P
0x0ffa80…0ffc14 (10, 6) Dummy {f00=0x0051, f01=0x0190, f02=»FFFE % t PAP:110 EQU * & & P SUKL A1,PAGSIZ NEXT PHYSICAL PAGE & ( P LDR* A2,A1 SAVE OLD MEMORY CONTENT & J " P STR A5,A1 STORE TEST PATTERN & v P CWR* A5,A1 CHECK IF MEMORY & " P RF(E) AP:120 MEMORY END FOUND & 0 P SUK A6,4 DECREMENT NUMBER OF PHYS
0x0ffc14…0ffda8 Dummy {f00=0x0051, f01=0x0190, f02=» FOR SYSTEMS WITHOUT MMU OPTION EXCLUSIVELY & x P* ' 4 P XIF ' > P EJECT ' J P* ' X P* COMMON EXECUTION PATH ' b P* ' PAP:200 EQU * ' 0 P ST A6,SCTMSZ SAVE NUMBER OF PHYSICAL PAGES ' " P SRL A6,2 MAKE NO OF 4K FRAMES ' " P SLL A6,10 MAK
0x0ffda8…0fff3c Dummy {f00=0x0051, f01=0x0190, f02=» LD A1,SCTOPT GET OPTION WORD =2 ' P ST A1,OPTION+STKEND =2 ( ( $ P ANKL A1,/FFF RESET TYPE BITS =2 ( J * P ST A1,SCTOPT AND SET AS NEW OPTION =2 ( r P* ( H P* INIT POINTER TO READ BUFFER. INIT DEVICE ADDRESS FOR READ-ROUTINE ( ( P LD A9,SCTSFA POIN
0x0fff3c…1000d0 Dummy {f00=0x0051, f01=0x018e, f02=»IZE PROGRAM LOAD DEVICE ( P* ) P CF A14,LODDEV ) * P LDR A3,A9 SAVE ) @ . P AD A3,SAVCON COMPUTE START OF APPL. TABLE ) X " P ST A3,SCTSFA STORE IN SYSTAB ) P LDR A1,A1 ) " P RF(Z) AP:233 CASSETTE LOADING ) P* ) 2 P ST A2,SCTIPL SET FILE
0x1000d0…100264 Dummy {f00=0x0051, f01=0x018e, f02=» ) l P* * ( P CF A14,LODMEX LOAD MONITOR EXTENTS * P XIF * > P* * J $ P* SCAN CONF. FILE FOR POSSIBLE * T $ P* APPLICATION DEFINITION BLOCKS * | P* * P CF A14,SCNCON * ( P LD A1,APLTAB+STKCOM GET ADDRESS TO * ( P ADK A1,2 CURRENT APPL.
0x100264…1003f8 Dummy {f00=0x0051, f01=0x0190, f02=» ( P LD A10,READ GET SUBROUTINE ADDRESS + " P CFR A14,A10 READ FIRST SECTOR + 0 PAP:233 EQU * + V 0 P LD A1,APLTAB+STKCOM GET APPL. TABLE ADDRESS + j ( P LDR* A6,A1 GET NO OF APPL. TO LOAD + P NGR A6,A6 NEGATE AND SAVE + $ P ST A6,APLCNT+STKEND AS COUN
0x1003f8…10058c Dummy {f00=0x0051, f01=0x0190, f02=»TO USE + r ( P LD A5,SCTEFA+2 AND AREA EMPTY IN IT , : P LD A1,CURAPL+STKEND RESTORE APPL. CONTROL BLOCK ADDR. , : P EJECT , x PAP:235 EQU * , P* , . P* SAVE INFORMATION ABOUT THE LOAD MODULE , P* , 4 P CM APLLAP,A1 RESET NO OF MMU ENTRIES TO
0x10058c…100720 Dummy {f00=0x0051, f01=0x0190, f02=»REL. POSITION OF CONF. DATA , | . P CM APLPSZ,A1 CLEAR SEGMENT SIZE ENTRY =2 - $ 0 P CM TNBRSG+STKEND CLEAR NBR. OF SEGMENTS =5 - V : P LDR* A6,A9 GET PGM. START ADDRESS (UNSEGMENTED APPL.) - P ST A6,APLSTA,A1 SAVE - " P LD A2,SCTOPT GET OPTION WORD -
0x100720…1008b4 (10, 7) Dummy {f00=0x0051, f01=0x0190, f02=» - p P RF(E) AP2340 . P* . . P SLL A4,1 BIT SETTING FOR COBOL (BIT 2=1) . ( $ P CWK A6,'CO' COBOL APPLICATION? . Z P RF(E) AP2340 . P* . . P SLL A4,1 BIT SETTING FOR BASIC (BIT 1=1) . " P CWK A6,'BA' BASIC APLICATION? . P RF(E) AP2340
0x1008b4…100a48 Dummy {f00=0x0051, f01=0x0190, f02=»A6,APLTYP,A1 SAVE APPLICATION TYPE . , P CWK A6,'AS' ASSEMBLER ALWAYS ALLOWED =2 / * P RF(E) AP2345 =2 / Z 6 P AN A4,OPTION+STKEND LOOK IF THIS TYPE ALLOWED =2 / t P RF(NZ) AP2345 YES =2 / , P LDK A1,LMP9 NO, WRONG MONITOR OPTION =2 / P CALL ERROR
0x100a48…100bdc Dummy {f00=0x0051, f01=0x0190, f02=» AP2350 SKIP IF ASSEMBLER APPL. / P* 0 ( , P LD A3,PAGLG+8,A9 GET DEFINED PAGE SIZE 0 2 ( P LD A2,SCTPSZ GET PREVIOUS VALUE =13 0 b " P SRL A2,1 MAKE WORD COUNT =13 0 $ P SRL A3,1 NEW SIZE IN WORDS =13 0 " P CWR A3,A2 MEW SIZE > OLD? =13 0 ( P RF(NG
0x100bdc…100d70 Dummy {f00=0x0051, f01=0x0190, f02=»AP2350 EQU * =13 0 P SLL A3,1 =13 1 PAP2352 EQU * =13 1 0 P IFT MMUPAG=1 1 J P EJECT 1 ` P* 1 n 2 P* EXECUTION PATH FOR SYSTEMS WITH MMU OPTION 1 x P* 1 ( P CWK A6,'AS' ASSEMBLER APPLICATION? 1 $ P ABL(E) AP:330 YES! NO SEGMENTS 1
0x100d70…100f04 Dummy {f00=0x0051, f01=0x0190, f02=»INDICATE PAGE SIZE ERROR 1 P* 2 PAP:237 EQU * 2 * 2 P LD A2,NUMSEG+8,A9 NUMBER OF SEGMENTS DEFINED 2 > P* 2 t PAP:238 EQU * 2 ~ P ABL(Z) AP:330 NO SEGMENTS! 2 P* 2 2 P CF A14,ALOCSG RESERVE AREA FOR RESIDENT SEGM. 2 P* 2 2 P* A1 -
0x100f04…101098 Dummy {f00=0x0051, f01=0x0190, f02=»RAME ADDR. (PHYS. ADDR.) 2 , P* A4 - AREA LEFT IN LAST 4K PAGE FRAME 3 P* 3 P ( P* STORE ADDRESS(ES) TO PAGE FRAMES 3 Z & P* HOLDING THE FIRST LOGICAL PAGE 3 P* 3 , P SRL A3,10 SEGMENT SIZE IN 1K BLOCKS =2 3 ( P LDKL A6,MMEND GET END OF MMU-
0x101098…10122c Dummy {f00=0x0051, f01=0x0190, f02=»T MMU ENTRY ADDR. 3 ~ * P SUKL A8,1 DECREMENT MMU ENTRY POINTER 4 2 P SUK A3,4 DECREMENT PAGE SIZE WITH FRAME SIZE 4 H P RB(P) AP:295 4 ~ $ P RF(Z) AP:300 EVEN 4K BYTES PAGE 4 P* 4 " P* RESERVE ONE EXTRA MMU ENTRY 4 P* WHEN PAGE SIZE IS NOT AN
0x10122c…1013c0 Dummy {f00=0x0051, f01=0x0190, f02=»WK A3,/400 PAGE SIZE = 1K? 4 ( P RF(E) AP:300 YES! ONE ENTRY ENOUGH 5 " P* 5 N & P SUK A6,2 ALLOCATE ONE ENTRY EXTRA 5 X P SUKL A8,1 5 P* 5 PAP:300 EQU * 5 4 P LD A3,SEGCNT+STKEND ANY CORE RESIDENT SEGMENTS? 5 P RF(Z) AP:310 NO! 5 P* 5
0x1013c0…101554 (10, 8) Dummy {f00=0x0051, f01=0x0190, f02=»SS TO PAGE FRAME 5 z * P ADK A3,2 INCREMENT MMU ENTRY ADDRESS 6 $ P CWK A3,MMEND END OF MMU TABLE? 6 F P RF(E) AP:310 YES! 6 n P* 6 , P ADKL A2,/400 INCREMENT PAGE FRAME ADDR. 6 P RB AP:305 6 P* 6 PAP:310 EQU * 6 P* 6 P* SAVE LOGI
0x101554…1016e8 Dummy {f00=0x0051, f01=0x0190, f02=»LAP,A1 SAVE IN APPLICATION CONTROL BLOCK 6 ( P ORR A2,A4 CONCATENATE DISPLACEMENT 7 0 8 P ST A2,LSTASG+STKEND AND SAVE AS LOGICAL START ADDR. 7 P RF AP:335 7 P* 7 P* NO SEGMENTS DEFINED 7 P* 7 PAP:330 EQU * 7 0 P LDK A3,0 RESET NO OF MM
0x1016e8…10187c Dummy {f00=0x0051, f01=0x0190, f02=»N LAST FRAME 7 z PAP:335 EQU * 8 P* 8 ( ( P* COMPUTE APPLICATION START ADDRESS 8 2 P* 8 ^ 0 P* A1 - POINTER TO APPLICATION CONTROL BLOCK 8 h , P* A4 - AREA LEFT IN CURRENT PAGE FRAME 8 " P* A7 - PHYSICAL PAGE ADDRESS 8 P* A6 - MMU ENTRY ADDR
0x10187c…101a10 Dummy {f00=0x0051, f01=0x0190, f02=»TION TYPE 8 t P CWK A3,'AS' ASSEMBLER? 9 P RF(NE) AP:336 NO! 9 2 P* 9 L , P ADK A2,10 YES, ADD 5 WORDS FOR DEBUGGER 9 V PAP:336 EQU * 9 P ADK A2,1 9 $ P ANKL A2,/FFFE MAKE EVEN LENGTH 9 P* 9 $ P* IF APPLICATION IS LARGER THAN 9 P*
0x101a10…101ba4 Dummy {f00=0x0051, f01=0x0190, f02=» 9 P LDR A5,A2 : P SRL A5,12 NO OF 4K BLOCKS : P CWK A5,15 >60 KBYTES? : < P RF(L) AP:337 NO! : Z P* : t $ P LDK A4,0 START ON A 4K BOUNDARY : ~ P RF AP:341 : P* : PAP:337 EQU * : & P ADK A2,0 RESTORE LENGTH CONDITION : & P RF(N) A
0x101ba4…101d38 Dummy {f00=0x0051, f01=0x0190, f02=»T ALLOCATED PAGE? : P* ; P CWR A2,A4 ; $ P RF(G) AP:340 LARGER ; 6 P* ; R ( P* APPLICATION LENGTH LESS THAN AREA ; P* LEFT IN LAST PAGE ; P* COPY FRAME ADDRESS IN NEXT ; P* MMU ENTRY ; P* ; P* ; P SUKL A8,1 ; " P RF(N)
0x101d38…101ecc Dummy {f00=0x0051, f01=0x0190, f02=» ; h P RF AP:351 < P* < PAP:340 EQU * < $ P* < 8 ( P* RESERVE ENTRIES IN MMU TABLE FOR < B " P* COMMON PART OF APPLICATION < n P* < $ P* A4 - AREA MAPPED BUT NOT USED < P* IN LAST MMU ENTRY < " P* A2 - LENGTH OF COMMON PART <
0x101ecc…102060 Dummy {f00=0x0051, f01=0x0190, f02=» < ~ P* = ( P SUK A6,2 ADVANCE TO NEXT MMU ENTRY = & P STR A7,A6 AND COPY FRAME ADDRESS = > PAP:341 EQU * = h 2 P SUR A2,A4 SUBTRACT AREA LEFT IN CURRENT FRAME = | , P LDK A4,0 RESET AREA LEFT IN LAST FRAME = * P LDR A5,A2 SAVE REMAINING AREA NEEDED
0x102060…1021f4 (10, 9) Dummy {f00=0x0052, f01=0x0190, f02=» REMAINDER = P* > & P ADK A2,1 ALLOCATE ONE MORE ENTRY > P* > F P* UPDTE MMU ENTRIES > P P* > l PAP:342 EQU * > v & P SUK A2,1 MORE ENTRIES TO UPDATE? > P RF(N) AP:350 NO! > P* > * P SUKL A8,1 DECREMENT MMU ENTRY POINTER > " P R
0x1021f4…102388 Dummy {f00=0x0052, f01=0x0190, f02=» STR A7,A6 STORE FRAME ADDRESS > P RB AP:342 ? & P* ? 8 PTABOVF EQU * ? B P LDK A1,LMP7 ? V & P CALL ERROR SIGNAL TABBE OVERFLOW! ? j PMEMOVF EQU * ? P LDKL A1,LMP3 ? P CALL ERROR MEMORY OVERFLOW! ? P* ? PAP:350 EQU * ? P* ? 0
0x102388…10251c Dummy {f00=0x0052, f01=0x0190, f02=» ? 4 P SUR A4,A5 ALLOCATE REMAINIG AREA IN LAST FRAME @ P LDR A2,A8 GET MMU ENTRY @ @ * P SLL A2,12 MOVE TO FOUR LEFTMOST BITS @ ` P LDR A8,A2 @ $ P ORR A8,A4 LOGICAL START ADDRESS @ ( P CWK A3,'AS' ASSEMBLER APPLICATION? @ P RF(NE) AP:352 NO! @
0x10251c…1026b0 Dummy {f00=0x0052, f01=0x0190, f02=»VE @ | , P ST A4,SCTEFA+2 SAVE OFFSET WITHIN FRAME A : P ST A7,APLLDA,A1 SAVE APPLICATION LOAD ADDR. (BIT 0-5) A : $ P ST A4,APLLDA+2,A1 AND BIT 6-17 A x , P ST A7,FYSPAG+STKCOM SAVE LAST PHYSICAL A & P ST A4,LSTADR+STKCOM ADDRESS USED A , P LDR* A1,A6 GE
0x1026b0…102844 Dummy {f00=0x0052, f01=0x0190, f02=» RF AP:354 A PAP:353 EQU * B $ P LDR* A1,A6 GET PHYSICAL ADDRESS B & P SLL A1,2 B N P ADR A1,A4 ADD DISPLACEMENT B ` ( P LD A2,SCTSFA GET START OF FREE AREA B ( P TNM A1,A2 ON SAME SIDE OF 32K-LIMIT B P RF(NN) AP3532 YES! B P CWR A2,A1 B
0x102844…1029d8 Dummy {f00=0x0052, f01=0x0190, f02=»STKEND SAVE B . P LD A10,COMLG,A9 LOAD COMLG OF COMMON PART C P TL TABBE LOAD MMU REGISTERS C F P XIF C j P IFT MMUPAG=0 C v P EJECT C PAP:240 EQU * C P* C @ P* EXECUTION PATH EXCLUSIVELY FOR SYSTEMS WITHOUT MMU OPTION C P* C P*
0x1029d8…102b6c Dummy {f00=0x0052, f01=0x0190, f02=»,NUMSEG+8,A9 NUMBER OF SEGMENTS C P RF(Z) AP:275 NO SEGMENTS! D ( , P CF A14,ALOCSG RESERVE AREA FOR SEGMENTS D J , P LDR A2,A7 CONFIGURE LOGICAL START ADDR. D z P SLL A2,2 TO FIRST SEGMENT D P ORR A2,A5 D P ST A2,LSTASG+STKEND D PAP:275 EQU * D
0x102b6c…102d00 Dummy {f00=0x0052, f01=0x0190, f02=»F(NE) AP:276 NO! D P* E . P ADKL A10,10 YES, ADD 5 WORDS FOR DEBUGGER E " PAP:276 EQU * E T P ADKL A10,1 E h $ P ANKL A10,/FFFE MAKE EVEN LENGTH E | 8 P RF(N) AP:278 APPLICATION IS LARGER THAN FRAME SIZE E P* E > P CWR A10,A5 APPL. IS SMALLER T
0x102d00…102e94 (10, 10) Dummy {f00=0x0052, f01=0x0190, f02=»RAME E f , P LDK A5,0 NO AREA LEFT IN CURRENT FRAME F $ P LDR A2,A10 GET REMAINING LENGTH F < $ P SRL A2,12 COUNT NO OF 4K BLOCKS F d , P SRL A7,10 FRAME ADDRESS AS BLOCK COUNT F $ P SUR A7,A2 SUBTRACT AREA NEEDED F " P RF(N) MEMOVF MEMORY OVERFLOW! F
0x102e94…103028 Dummy {f00=0x0052, f01=0x0190, f02=»W FRAME F r P SUK A7,1 G " P RF(N) MEMOVF MEMORY OVERFLOW! G " P* G H PAP:279 EQU * G R $ P SLL A7,10 RESTORE FRAME ADDRESS G f PAP:280 EQU * G 2 P SUR A5,A10 ALLOCATE AREA NEEDED IN LAST FRAME G P LDR A4,A9 SAVE A9 G P LDR A8,A11 SAVE A11 G
0x103028…1031bc Dummy {f00=0x0052, f01=0x0190, f02=»0-5) G b 2 P ST A5,APLLDA+2,A1 AND BIT 6-17 OF APPLICATION H , P ST A7,FYSPAG+STKCOM SAVE LAST PHYSICAL H B & P ST A5,LSTADR+STKCOM ADDRESS USED H r P SLL A7,2 H P LDR A11,A7 H . P ORR A11,A5 MAKE ADDRESS AS A 16 BIT ADDR. H ( P LD A9,SCTSFA GET ST
0x1031bc…103350 Dummy {f00=0x0052, f01=0x0190, f02=» OVERFLOW! H | P CALL ERROR I P* I & PAP:290 EQU * I 0 ( P CWK A3,'AS' ASSEMBLER APPLICATION? I D P RF(NE) AP:295 NO! I p P* I ( P ADKL A11,10 SKIP 5 PRECEEDING WORDS I PAP:295 EQU * I 2 P ST A11,LLDADR+STKEND SAVE APPL. LOAD ADDRESS I
0x103350…1034e4 Dummy {f00=0x0052, f01=0x0190, f02=»ND SAVE APPLICATION LOAD-ADDRESS I ~ . P LD A10,COMLG,A9 GET LENGTH OF COMMON PART J ( P XIF J Z P EJECT J f P* J t P* COMMON EXECUTION PATH J ~ P* J : P* READ AND RELOCATE CORE RESIDENT PART OF APPLICATION J P* J $ P* A8 - APPLICATION LOAD
0x1034e4…103678 Dummy {f00=0x0052, f01=0x0190, f02=»LOCK POINTER J d * P ST A8,APLLAC,A1 SAVE LOGICAL ADDRESS K 6 P ST A8,APLREL,A1 SAVE APPLICATION RELOCATION BASE K B 4 P CM FSTSEC+STKEND RESET FIRST SECTOR/BLOCK IND. K | 6 P LDKL A7,240 INITIATE NR OF CODE WORDS/SECT/BLOCK K $ P ST A7,LOD:10 MODIFY INSTR
0x103678…10380c Dummy {f00=0x0052, f01=0x0190, f02=»STKEND GET CURRENT APPL. CONTR. BLOCK K , P LD A2,APLTYP,A1 AND TYPE OF THIS APPL. L . ( P CWK A2,'AS' ASSEMBLER APPLICATION? L ^ P ABL(E) AP:400 YES L : P LD A8,LSTASG+STKEND GET LOGICAL ADDRESS TO FIRST PAGE L 0 P LD A2,TNBRSG+STKEND GET NUMBER OF SEG
0x10380c…1039a0 Dummy {f00=0x0052, f01=0x0190, f02=»MUPAG=1 L . P TS MMDDIV,A13 SAVE MMU REGISTER CONTENTS M P XIF M B PAP:360 EQU * M N P* M b & P* READ AND RELOCATE THE SEGMENTS M l P* M . P* A8 - LOGICAL ADDRESS OF SAVE05 SEGMENT M P* A10 - SEGMENT LENGTH M P* M 6 P LD A3,CURAP
0x1039a0…103b34 (10, 11) Dummy {f00=0x0052, f01=0x0190, f02=»EGCNT+STKEND GET SEGMENT COUNTER M PAP:365 EQU * N ( P RF(Z) AP:370 N < P ADK A2,BLKLEN NEXT BLOCK N R & P SUK A1,1 DECREMENT BLOCK COUNTER N t P RB AP:365 N PAP:370 EQU * N . P LD A1,SCTIPL IF LOADING FROM CASSETTE =14 N P SUK A1,/F0 . =14
0x103b34…103cc8 Dummy {f00=0x0052, f01=0x0190, f02=» P ANK A1,2 DISC PAGING? O P RF(Z) AP:376 NO! O " P* O < & P* CHECK IF CORE RESIDENT SEGMENT O F P* O p " P CALL GETCON GET SEGMENT TYPE O z * P LDR A12,A1 GET MOST SIGNIFICANT PART O " P ANKL A12,/FF OF DISC ADDRESS O * P SRL A1,8 SEGMENT TY
0x103cc8…103e5c Dummy {f00=0x0052, f01=0x0190, f02=»THIS SEGMENT AND CHECK NEXT O P* P $ , P LD A1,SEGCNT+STKEND GET SEGMENT COUNTER P . 6 P LD A2,TNBRSG+STKEND GET TOTAL NUMBER OF SEGMENTS P ^ P ADK A1,1 INCREMENT P P CWR A1,A2 LAST SEGMENT? P P ABL(E) AP:400 YES! P 4 P ST A1,SEGCNT+STKEND SAV
0x103e5c…103ff0 Dummy {f00=0x0052, f01=0x0190, f02=» * P " P ADK A2,2 DISC SECTOR ADDRESS Q * P LD A1,SCTIPL IF CASSETTE LOADING =14 Q 0 P SUK A1,/F0 . =14 Q ^ 4 P RF(N) AP378B SKIP DISC ADDRESS CALCULATION =14 Q x ( P CALL GETCON GET DISC SECTOR ADDRESS Q P LDR A11,A1 SAVE Q 8 P AD A11,APLADA+2,A3
0x103ff0…104184 Dummy {f00=0x0052, f01=0x0190, f02=»F DISC ADDRESS Q n " P ANKL A11,/7FFF RESET OVERFLOW R 4 PAP:378 AD A12,APLADA,A3 ADD M. S. P. OF A. D. A. R < P CWK A12,255 OVERFLOW? R t , P RB(G) AP:375 YES: ILLEGAL DISC ADDRESS! R PAP378B EQU * . =14 R P ADK A2,2 SEGMENT LENGTH R $ P CALL GETCON
0x104184…104318 Dummy {f00=0x0052, f01=0x0190, f02=» P CF A14,LODSEG LOAD SEGMENT S , P LD A1,SEGCNT+STKEND GET SEGMENT COUNTER S ( 6 P LD A2,TNBRSG+STKEND GET TOTAL NUMBER OF SEGMENTS S X ( P ADK A1,1 INCREMENT SEGMENT COUNTER S $ P CWR A1,A2 ALL SEGMENTS LOADED? S P ABL(E) AP:400 YES! S . P ST A1
0x104318…1044ac Dummy {f00=0x0052, f01=0x0190, f02=» SIZE DEFINED =2 S t P IFT MMUPAG=0 T , P ADR A8,A4 COMPUTE ADDRESS TO NEXT PAGE T . P RB AP:360 T ^ P XIF T p P IFT MMUPAG=1 T | P EJECT T PAP:379 EQU * T P LDR A1,A4 SAVE T . P ANKL A4,/0C00 GET MODULO 4K DISCRIMINANT T " P RF(Z) AP:
0x1044ac…104640 Dummy {f00=0x0052, f01=0x0190, f02=» DISCRIMINANT T t 0 P ANKL A1,/F000 LOGICAL ADDRESS TO NEXT PAGE U 2 P ANKL A8,/F000 LOGICAL ADDRESS TO CURRENT PAGE U J * P SUR A1,A8 COMPUTE PHYSICAL INCREMENT U PAP:380 EQU * U * P LD A8,APLLAP,A3 LOGICAL PAGE ADDRESS U P LDR A2,A8 SAVE U 4 P
0x104640…1047d4 (10, 12) Dummy {f00=0x0052, f01=0x0190, f02=»2,A13 U & P ADKL A2,MMDDIV MMU ENTRY ADDRESS V P LDR A3,A13 V 8 P ADKL A3,MMDDIV+32 V L * P SRL A1,2 MAP PHYSICAL ADDRESS ON MMU V f PAP:385 EQU * V , P ADRS A1,A2 LOGICAL ADDRESS TO NEXT PAGE V P ADK A2,2 NEXT MMU ENTRY V P CWR A2,A3 V
0x1047d4…104968 Dummy {f00=0x0052, f01=0x0190, f02=» 8 P LD A1,CURAPL+STKEND GET CURRENT APPL.CONTROL BLOCK W P IM APLCNT+STKEND W @ * P ABL(Z) CONLOD ALL APPLICATIONS LOADED W Z P* W . P ADK A1,ACBLEN ADVANCE TO NEXT APPLICATION W 2 P ST A1,CURAPL+STKEND APPLICATION CONTROL BLOCK W 4 P LD A12,APLADA
0x104968…104afc Dummy {f00=0x0052, f01=0x0190, f02=» W l " P CFR A14,A10 READ FIRST SECTOR X P ABL AP:234 X . P EJECT X B 2 P********************************************* X P 2 P* * X 2 P* * X 2 P* ALOCS
0x104afc…104c90 Dummy {f00=0x0052, f01=0x0190, f02=» 2 P* RESERVE PAGES FOR RESIDENT SEGMENTS * Y 2 P* * Y : 2 P* * Y p 2 P********************************************* Y P* Y P* Y PALOCSG EQU * Y 0 P ST
0x104c90…104e24 Dummy {f00=0x0052, f01=0x0190, f02=» RESIDENT SEGMENTS Y n * P ST A3,APLPSZ,A1 SAVE SEGMENT SIZE =2 Z " P LD A4,SCTOPT GET OPTION WORD Z H P SRC A4,2 DISC PAGING? Z n P RF(NN) ALSG04 NO! Z P* Z * P LD A4,SCTIPL GET PROGRAM LOAD DEVICE Z " P SUK A4,/F0 CHECK IF CASSETTE Z 0 P RF(
0x104e24…104fb8 Dummy {f00=0x0052, f01=0x0190, f02=»APPLICATION Z | & P ADK A6,14 START OF SEGMENT BLOCKS [ PALSG00 EQU * [ > P ADK A6,6 NEXT SEGMENT BLOCK [ R P* LOOK IF OUTSIDE BUFFER [ v P* IF SO READ NEXT [ P* SECTOR BLOCK [ P* [ $ P LDR A4,A6 SAVE BUFFER POSITION [ P SUR A4,A9 R
0x104fb8…10514c Dummy {f00=0x0052, f01=0x0190, f02=»ICATION =14 [ p $ P CF A14,NXTSEC READ NEXT SECTOR 8 P SUK A6,BUFLEN-16 COMPENSATE FOR RELOCATION BITS =5 < $ P AND RESET BUFFER POSITION =5 x P* PALSG01 EQU * P LCR A4,A6 GET SEGMENT TYPE ( P CCK A4,'RR' CORE RESIDENT SEGMENT?
0x10514c…1052e0 Dummy {f00=0x0052, f01=0x0190, f02=»? x P RB(NZ) ALSG00 YES! ] 4 P LD A2,SEGCNT+STKEND NUMBER OF RESIDENT SEGMENTS ] & ( P RF(Z) ALSG12 NO RESIDENT SEGMENTS! ] ^ PALSG04 EQU * ] 6 P ST A2,SEGCNT+STKEND SAVE NBR OF RESIDENT SEGMENTS ] 4 P ADS A2,SCTNOP ACKUMULATE NO OF CORE RES. SEGM.
0x1052e0…105474 (10, 13) Dummy {f00=0x0053, f01=0x0190, f02=» SIZE ] z P ANKL A6,/FFF ^ . P RF(NZ) ALSG08 NOT A MULTIPLE OF 4K BYTES ^ $ P* ^ V 0 P LDR A5,A5 LOOK IF ALREADY ON A 4K BOUNDARY ^ ` P RF(Z) ALSG08 YES ^ P* ^ $ P LDK A5,0 START ON A 4K BOUNDARY ^ PALSG08 EQU * ^ * P LDR A7,A7 LOOK IF 2
0x105474…105608 Dummy {f00=0x0053, f01=0x0190, f02=»FRAME =3 ^ p PALSG8B EQU * _ . P ANKL A5,/1C00 ALWAYS START ON 1K BOUNDARY _ $ . P SRL A3,1 MAKE SEGMENT LENGTH IN WORDS =2 _ V ( P SRL A5,1 AND REMAINING AREA TOO =2 _ * P SRL A7,10 CONVERT TO NO OF FRAMES =2 _ " P LDR A4,A3 GET SEGMENT SIZE =2 _ . P
0x105608…10579c Dummy {f00=0x0053, f01=0x0190, f02=» _ z & P SUK A7,1 DECREMENT FRAME COUNT =2 ` , P ADKL A5,/800 ALLOCATE ANOTHER FRAME =2 ` 2 $ P RB(P) ALSG09 LOOK IF ENOUGH =2 ` b PALSG10 EQU * =2 ` 4 P TNM A5,A3 FREE AREA GREATER THAN 32K WORDS? =2 ` P RF(N) ALS11A YES =2 ` . P SUR A5,A3 ALLOCAT
0x10579c…105930 Dummy {f00=0x0053, f01=0x0190, f02=»QU * =2 ` * P SUK A2,1 DECREMENT SEGMENT COUNTS =2 a $ P RB(NZ) ALSG09 MORE SEGMENTS =2 a > P LDR A7,A7 =2 a f $ P ABL(N) MEMOVF MEMORY OVERFLOW! a | P* a $ P SLL A7,10 RESTORE FRAME ADDRESS a . P ST A7,APLSEG,A1 SAVE PHYSICAL ADDRESS TO a , P
0x105930…105ac4 Dummy {f00=0x0053, f01=0x0190, f02=»ENT a j PALSG12 EQU * b P* b * P* REREAD FIRST SECTOR OF APPLICATION b * * P* IF S:GTAB IS LARGER THAN ONE SECTOR b X P* b < P LD A2,REWFLG+STKEND DO WE HAVE TO REWIND THE FILE? =14 b P RF(Z) ALSG30 NO! =14 b P* b P IFT CASS=1 =14
0x105ac4…105c58 Dummy {f00=0x0053, f01=0x0190, f02=» THE TAPE TO =14 b ~ $ P* BEGINNING OF APPLICATION =14 c P* c @ " P CALL PUSH SAVE REGISTERS =14 c J . P LDK A1,SBOT SEARCH BEGINNING OF TAPE =14 c p P CF A14,CHCRIO . =14 c P LDK A1,STMF . =14 c . P CF A14,CHCRIO SEARCH START OF MONITOR =14 c
0x105c58…105dec Dummy {f00=0x0053, f01=0x0190, f02=» CALL POB RESTORE REGISTERS =14 c P RF ALSG30 . =14 d ( PALSG14 EQU * . =14 d @ P XIF =14 d Z 8 P LD A12,APLADA,A1 GET MOST SIGN. PART OF DISC ADDR. d l 2 P LD A11,APLADA+2,A1 AND LEAST SIGNIFICANT PART d & P CF A14,NXTSEC REREAD FIRST SECTOR d P
0x105dec…105f80 Dummy {f00=0x0053, f01=0x0190, f02=»READ READ NEXT SECTOR d P CFR A14,A10 e 8 P ST A11,DISCAD+STKEND SAVE CURRENT SECTOR/BLOCK =10 e 2 ( P ST A12,DISCAD+2+STKEND ADDRESS =10 e n . P CALL POB RESTORE FORMER REGISTER CONTENTS e : P LD A11,DISCAD+STKEND RESTORE CURRENT SECTOR/BLOCK =10 e (
0x105f80…106114 (10, 14) Dummy {f00=0x0053, f01=0x0190, f02=»*********** e l 4 P* * f 4 P* LODMEX - LOAD MONITOR EXTENT(S) * f L 4 P* =============================== * f 4 P* * f 4 P* REFERENCED IN: S
0x106114…1062a8 Dummy {f00=0x0053, f01=0x0190, f02=» * f d 4 P* * g 4 P* EXIT: * g D 4 P* * g | 4 P* WORK REGISTERS: A1-A12 * g 4 P*
0x1062a8…10643c Dummy {f00=0x0053, f01=0x0190, f02=» 4 P*********************************************** h PLODMEX EQU * h < & P LD A1,SCTMXS MONITOR EXTENT TABLE h P PMSX10 EQU * h z P RF(Z) MSX99 h P* h ( P LD A1,SCTOPT GET MONITOR OPTION =12 h ( P SRC A1,1 LOOK IF MMU OPTION ON =12 h P RF(
0x10643c…1065d0 Dummy {f00=0x0053, f01=0x0190, f02=»A14,GETMON GET MONITOR DISC ADDRESS h * P LD A3,MX:NOX,A1 GET NUMBER OF EXTENTS i , 4 P LD A6,MX:NOS,A1 GET NUMBER OF SEGMENT CLUSTERS i Z $ P SLL A6,1 MAKE BYTE DISPLACEMENT i P ADK A6,4 i " P ADR A6,A1 FIRST EXTENT BLOCK i PMSX20 EQU * i & P S
0x1065d0…106764 Dummy {f00=0x0053, f01=0x018e, f02=»XT EXTENT BLOCK i $ P LD A7,SCTEFA RESTORE ADDRESS TO j $ P LD A5,SCTEFA+2 END OF FREE AREA j @ P RF(NZ) MSX25 j h P* j ~ 2 P LDKL A5,PAGSIZ EMPTY FRAME, START ON NEXT ONE j P SUKL A7,/400 j PMSX25 EQU * j ( P LD A2,EXLEN,A6 GET LENGTH OF EX
0x106764…1068f8 Dummy {f00=0x0053, f01=0x0190, f02=» j f 0 P ADK A2,0 EXTENT LENGTH LESS THAN 32K BYTES? k P RF(N) MSX30 NO k < P* k T 2 P CWR A2,A5 EXTENT LESS THAN AREA LEFT IN FRAME k ^ P RF(L) MSX40 YES! k P* k PMSX30 EQU * k P LDR A1,A2 k . P SRL A1,12 CONVERT LENGTH TO NO OF FRAMES
0x1068f8…106a8c Dummy {f00=0x0053, f01=0x0190, f02=»ES! k P* l ( P LDKL A5,PAGSIZ START ON 4K BOUNDARY l P SUK A7,1 l B PMSX35 EQU * l T 0 P SUR A2,A5 SUBTRACT AREA LEFT IN LAST FRAME l h " P LDK A5,0 AND SET EMPTY FRAME l P LDR A1,A2 l . P SRL A1,12 CONVERT LENGTH TO NO OF FRAMES l , P S
0x106a8c…106c20 Dummy {f00=0x0053, f01=0x0190, f02=» RF(Z) MSX45 l P* m * P LDKL A5,PAGSIZ TAKE NEXT EMPTY FRAME m P SUK A7,1 m L PMSX40 EQU * m ^ 4 P SUR A5,A2 SUBTACT FROM AREA LEFT IN LAST FRAME m r PMSX45 EQU * m & P CWK A7,15 LOOK IF FIRST PARTITION m * P ABL(NG) MEMOVF YES, MEMORY OVER
0x106c20…106db4 (10, 15) Dummy {f00=0x0053, f01=0x0190, f02=»HYSICAL ADDRESS m z & P ST A7,SCTEFA TO END OF FREE AREA n P* n B $ P LD A4,SCTMXS GET MXSTAB ADDRESS n L " P ADK A4,2 MONITOR DISC ADDRESS n t P XRR A1,A1 RESET REG. A1 n * P LDR* A2,A6 GET MONITOR EXTENT ADDRESS n ( P DAR* A4 AND RELOCATE EXTENT ADD
0x106db4…106f48 Dummy {f00=0x0053, f01=0x0190, f02=»ERT PHYSICAL LOAD ADDRESS n $ P ORR A1,A7 TO A 16 BITS ADDRESS o " " P STR A1,A6 AND SAVE IN MXSTAB o J P* o p * P ADK A5,10 SKIP PRECCEDING FIVE WORDS o z : P ST A5,LLDADR+STKEND SAVE AS PGM LOAD ADDR. (LOGICAL) o $ P LDR A8,A5 SAVE RELOCATION BASE o
0x106f48…1070dc Dummy {f00=0x0053, f01=0x0190, f02=»TRY COUNTER o z , P LDKL A2,TABBE GET ADDRESS TO MMU TABLE p 6 P ST A3,FSTSEC+STKEND RESET FIRST SECTOR INDICATOR p D PMSX50 EQU * p ~ " P STR A7,A2 STORE PAGE ADDRESS p $ P ADKL A7,/400 NEXT PAGE ADDRESS p P ADK A2,2 NEXT MMU ENTRY p & P ADK A3,
0x1070dc…107270 Dummy {f00=0x0053, f01=0x0190, f02=»TERS p x P CALL LOD:70 LOAD EXTENT q & P LDR* A3,A15 RESTORE NO OF EXTENTS q , P RB MSX20 q V P* q h PMSX99 EQU * q r P RTN A14 q P EJECT q 4 P*********************************************** q P* q P* GETMON q P*
0x107270…107404 Dummy {f00=0x0053, f01=0x0190, f02=»IES. q ~ P* r 4 P************************************************ r P* r N P* r X PGETMON EQU * r b ( P LD A1,SCTANO GET APPLICATION NUMBER r v P ST A1,MONNO+STKEND SAVE r 2 P CF A14,GETNBR GET CORRESPONDING ENTRY IN VTOC r 0 P LC A1,8,A4 GET
0x107404…107598 Dummy {f00=0x0053, f01=0x0190, f02=»TNBR SEARCH FOR APPL. NBR. 0 (MONITOR) r P* s . PGTMON2 EQU * s 8 0 P LD A1,MONNO+STKEND GET MONITOR NO (BIT 0-7) s L ( P CW A1,8,A4 IS IT THE RIGHT MONITOR? s P RF(E) GTMON4 YES! s P* s 8 P CF A14,GTNBR4 NO, CONTINUE TO NEXT MONITOR IN VTOC s
0x107598…10772c Dummy {f00=0x0053, f01=0x0190, f02=»-15) s d " P ST A2,2,A1 AND SAVE IN MXSTAB t 6 P LD A2,18,A4 AND MONITOR DISC ADDRESS (BIT 16-31) t 2 " P ST A2,4,A1 AND SAVE IN MXSTAB t l P RTN A14 RETURN t P EJECT t PGETNBR EQU * t $ P CF A14,GETVLB READ VOLUME LABEL t PGTNBR0 EQU * t P
0x10772c…1078c0 Dummy {f00=0x0053, f01=0x0190, f02=»APPLICATION NUMBER t x PGTNBR2 EQU * u . P LCR A2,A4 GET 1ST CHARACTER IN FILE NAME u . P CCK A2,/2020 UNUSED? u ` P RF(E) GTNBR4 YES! u ~ P* u ( P CC A1,9,A4 SAME APPLICATION NUMBER? u P RF(E) GTNBR6 YES, RETURN u P* u PGTNBR4 EQU * u
0x1078c0…107a54 (10, 16) Dummy {f00=0x0053, f01=0x0190, f02=»TNBR2 YES! u P* v $ P RB GTNBR0 NO, READ NEXT SECTOR v P* v D PGTNBR6 EQU * v N P RTN A14 v b P XIF v r P EJECT v ~ > P********************************************************** v > P* *
0x107a54…107be8 Dummy {f00=0x0053, f01=0x0190, f02=» > P* * w > P* ENTRY: A9 - BUFFER ADDRESS * w F > P* * w > P* EXIT: * w
0x107be8…107d7c Dummy {f00=0x0053, f01=0x0190, f02=»* * w > P********************************************************** x B PCONLOD EQU * x & P LD A1,SCTEFA GET END OF FREE AREA x P LDR A2,A1 SAVE x " P ANKL A1,/3C00 ISOLATE BIT 2-5 x P SLL A1,
0x107d7c…107f10 Dummy {f00=0x0053, f01=0x0190, f02=»ISOLATE IT x P ST A2,SCTEFA AND SAVE y 8 P LD A1,CURAPL+STKEND START OF LAST APPL. CTRL. BLOCK y 0 0 P ADK A1,ACBLEN END OF LAST APPL. CTRL. BLOCK y l , P ST A1,SCTSFA UPDATE START OF FREE AREA y 8 P LD A1,APLTAB+STKCOM GET START OF APPL. CONTR. TABLE y
0x107f10…1080a4 Dummy {f00=0x0053, f01=0x0190, f02=»XT APPLICATION y t & P ST A1,CURAPL+STKEND CONTROL BLOCK z * P LD A1,SCTIPL GET PROGRAM LOAD DEVICE z @ " P SUK A1,/F0 CHECK DEVICE TYPE z n P RF(NN) CONRAD NOT CASSETTE z P IFT CFTEST+CASS=2 z P* z & P* PROGRAM LOAD DEVICE = CASSETTE z P*
0x1080a4…108238 Dummy {f00=0x0053, f01=0x0190, f02=» P LDKL A1,/0100 { P ST A1,COR:38 MODIFY { P LDR A1,A9 START OF BUFFER { 6 " P ADKL A1,BUFLEN END OF BUFFER { X , P ST A1,PLDADR+STKEND SAVE END OF BUFFER { ~ P ST A1,EINPBF+STKEND SAVE { , P ST A1,CONSTA+STKCOM START OF CONF. DATA { P CF A14,
0x108238…1083cc Dummy {f00=0x0053, f01=0x0190, f02=»EMARK? { P RF(Z) TST:10 NO! | . P CF A14,CASSIN INIT CONFIGURATION CASSETTE | ( P CALL CON:40 | Z P RF TST:10 | n PCONEX EQU * | P* | > P* UNLOAD CASSETTE IF NO APPLICATION DATA ON SAME CASSETTE | P* | " P CF A14,RDBLK READ NEXT BLOCK
0x1083cc…108560 Dummy {f00=0x0053, f01=0x0190, f02=»F A14,RDBLK BYPASS TAPEMARK | P RF CON:90 } $ PCON:80 EQU * } 6 P LDK A1,/F } J " P CF A14,CHCRIO UNLOAD CASSETTE } PCON:90 EQU * } P ABL CONMOV } P XIF } P IFT CFTEST=1 } P EJECT } PCONRAD EQU * } P* } 6 P* LOAD CONFIGUR
0x108560…1086f4 (10, 17) Dummy {f00=0x0054, f01=0x0190, f02=»M LOAD DEVICE } x P* ~ 0 P CF A14,CONFLD INITIATE CONF. DATA LOAD DEV. ~ PCONRA0 EQU * ~ T * P LD A11,CONDAD+STKEND GET START SECTOR ~ h 2 P LD A12,CONDAD+2+STKEND MOST SIGNIFICANT PART ~ " P LDR A1,A9 GET START OF BUFFER ~ $ P ADKL A1,BUFLEN-6 END
0x1086f4…108888 Dummy {f00=0x0054, f01=0x018e, f02=»ER ~ p P ST A1,EINPBF+STKEND SAVE =2 , P ST A1,CONSTA+STKCOM START OF CONF. DATA . $ P LDKL A10,0 RESET RECORD COUNTER ^ P* 0 P* READ ONE SECTOR FROM RANDOM ACCESS DEVICE P* P CALL READC READ SECTOR P* 0 P* TEST THE SYNTA
0x108888…108a1c Dummy {f00=0x0054, f01=0x0190, f02=» P CALL TEST P CALL AA P CALL CONRD * P CALL TCL > P CALL TEST P P CALL AA b P CALL CONRD r P CALL LEV P CALL TEST P CALL NN1 PTST:20 CALL CONRD P CALL NN1 P CALL CONRD B PTST:30 LD A5
0x108a1c…108bb0 Dummy {f00=0x0054, f01=0x0190, f02=»L TDCT P CALL TEST P CALL NN P CALL CONRD 0 P CALL LC D P CALL TEST T P CALL NNL f P CALL CONRD x P RB TST:30 PTST:40 EQU * P CALL NN1 P CALL CONRD PTST:50 EQU * < P LD A5,NDEVCL+STKEND GET NUM
0x108bb0…108d44 Dummy {f00=0x0054, f01=0x018e, f02=»ST P CALL NN P CALL CONRD P RB TST:50 . PTST:60 EQU * @ P LCR A5,A4 GET CHARACTER T , P CCK A5,'TT' BLOCK TYPE T? (MOD. INSTR.) t PTST:70 EQU *-2 P RB(E) TST:10 YES! P LDKL A3,/FFFF * P ST A3,TST:70 MODIFY INSTRUCTI
0x108d44…108ed8 Dummy {f00=0x0054, f01=0x0190, f02=» P CALL T P RB TST:20 PTST:80 EQU * & . P LDR A1,A5 SAVE FIRST CHARACTER IN RECORD : & P ADK A4,1 INCREMENT BUFFER POINTER l P LCR A5,A4 GET CHARACTER P CCK A5,';;' END OF RECORD P ABL(NE) CONERR NO! PTST:85 EQU * . P
0x108ed8…10906c Dummy {f00=0x0054, f01=0x0190, f02=»NE) TST:87 NO! P* 8 P LD A1,EINPBF+STKEND CURRENT POSITION IN CONF. DATA 4 P SU A1,CONSTA+STKCOM CALCULATE RELATIVE POSITION P ST A1,DCBLK+STKCOM SAVE PTST:87 EQU * ( P CALL CONRD MOVE AND GET NEXT RECORD $ P LCR A1,A4 AND FIRST
0x10906c…109200 Dummy {f00=0x0054, f01=0x0190, f02=»D z P* SCAN CONFIGURATION DATA P* , : P LDKL A1,/FF3B SUBSTITUTE 'A;' WITH 'HEX. FF' AND ';' 6 P STR A1,A8 t 4 P LD A2,CURAPL+STKEND CURRENT APPL. CONTR. BLOCK 8 P LD A1,EINPBF+STKEND CURRENT POSITION IN CONF. DATA P ADK A1,1 SKIP
0x109200…109394 (10, 18) Dummy {f00=0x0054, f01=0x0190, f02=» P ADK A2,ACBLEN < P ST A2,CURAPL+STKEND ADVANCE TO NEXT APPL. CONTR. BLOCK $ P CALL CONRD MOVE AND PACK RECORD Z ( P ADKL A10,1 INCREMENT RECORD COUNTER & P CW A10,LSTREC+STKEND LAST RECORD P RF(E) COR:50 YES! . P ADKL A8,RECLEN+1 INCR
0x109394…109528 Dummy {f00=0x0054, f01=0x0190, f02=»T:95 EQU * * P LDKL A1,'TT' LOOK FOR TASK DEF. BLOCK P ST A1,TST:70 MODIFY INSTR. @ P ST A1,T:10 d P LDR A4,A8 x P ABL TST:10 SCAN CONF. DATA P* PCOR:50 EQU * " P LD A1,SCTOPT GET OPTION WORD P ANK A1,8 SWB:S?
0x109528…1096bc Dummy {f00=0x0054, f01=0x0190, f02=»,IPLDEV+STKEND . P CF A14,LODDEV INITIALIZE PGM LOAD DEVICE P CF A14,GETFIL H P* ^ P* UNLOCK FLEXIBLE DISC h P* PCOR:55 EQU * 4 P LD A1,CONDEV+STKEND GET CONF. DATA LOAD DEVICE , P RF(Z) COR:58 SAME AS APPL. LOAD DEVICE
0x1096bc…109850 Dummy {f00=0x0054, f01=0x018e, f02=» CFTEST+FLDISC=2 ( P CF A14,UNLOCK UNLOCK FLEXIBLE DISC P XIF D P IFT CFTEST=1 P PCOR:58 EQU * f * P LD A1,SCTIPL GET PROGRAM LOAD DEVICE z P SUK A1,/F8 CHECK TYPE $ P RF(N) COR:60 NOT FLEXIBLE DISC P* P XIF " P SUK
0x109850…1099e4 Dummy {f00=0x0054, f01=0x0190, f02=» P ANK A1,2 DISC PAGING? $ P RF(NZ) COR:60 YES! DON'T UNLOCK " P* J P LD A1,IPLDEV+STKEND T ( P CF A14,UNLOCK UNLOCK FLEXIBLE DISC p P XIF P IFT CFTEST=1 PCOR:60 EQU * P EJECT PCONMOV EQU * P* 4 P* MOVE CO
0x1099e4…109b78 Dummy {f00=0x0054, f01=0x0190, f02=». DATA j < PCMOV10 LD A3,EINPBF+STKEND GET END OF CONFIGURATION DATA 0 P LD A2,ESYSTA+STKEND GET END OF SYSTEM AREA N * P CM -2,A2 MAKE SURE CONFIGURATION FILE " P SUK A2,1 IS FOLLOWED BY X'00' , P SUR A3,A1 LENGTH OF CONFIGURATION DATA 2 P S
0x109b78…109d0c Dummy {f00=0x0054, f01=0x0190, f02=» P CALL MOVE : P ST A2,CONSTA+STKCOM SAVE START OF CONFIGURATION DATA 2 P LD A1,CONLEN+STKCOM GET LENGTH OF CONF. DATA T 0 P ADK A1,2 INCLUDE TRAILING ZEROES IN LENGTH P ANKL A1,/FFFE AND MAKE EVEN P ST A1,CONLEN+STKCOM & P LDR A1,A9
0x109d0c…109ea0 Dummy {f00=0x0054, f01=0x0190, f02=»LOCATION CONSTANT t $ P LD A2,SCTMXS GET MXSTAB ADDRESS $ P RF(Z) CMOV20 NO MXSTAB PRESENT B P* j 0 P AD A2,M:REL+STKCOM RELOCATE MXSTAB ADDRESS t * P ST A2,SCTMXS AND SAVE AS NEW ADDRESS PCMOV20 EQU * , P LD A2,CONSTA+STKCOM GET START
0x109ea0…10a034 (10, 19) Dummy {f00=0x0054, f01=0x0190, f02=»DM P SUK A1,2 P SUK A2,2 P LDR* A4,A1 . P STR A4,A2 B P CWR A1,A13 T P RB(NE) MOPRO h ( P ABR A2 CONTINUE EXECUTION IN SYSLDM ~ P EJECT D P*************************************************************** D P* SUROU
0x10a034…10a1c8 Dummy {f00=0x0054, f01=0x0190, f02=» EJECT PCONRD EQU * P* " 2 P* COMPUTE NUMBER OF CHARACTERS IN THIS RECORD , P* b 6 P LD A1,EINPBF+STKEND GET CURRENT POINTER IN BUFFER l P LDR A2,A1 SAVE & P LDK A3,0 RESET CHARACTER COUNTER P LDR A4,A8 START OF RECORD
0x10a1c8…10a35c Dummy {f00=0x0054, f01=0x0190, f02=» CWK A3,RECLEN MAXIMUM SIZE ACHIEVED? PCOR:38 EQU *-2 . P RF(E) COR:40 YES! D * P CW A1,ESYSTA+STKEND MEMORY OVERFLOW? ^ P RF(E) MEMOFL YES! & P ADK A1,1 INCREMENT BUFFER POINTER * P ADK A3,1 INCREMENT CHARACTER COUNTER & P ADK A4,1
0x10a35c…10a4f0 Dummy {f00=0x0054, f01=0x018e, f02=»OLONS? z P RF(NE) COR:45 NO! * P CWK A3,NCHTID CHECK IF END OF RECORD ( 4 P RB(E) COR:35 NO: SEMICOLON CHARACTER IN RECORD V PCOR:45 EQU * 2 P ST A1,EINPBF+STKEND SAVE CURRENT DESTINATION P LDR A1,A8 START OF RECORD P CALL MOVE
0x10a4f0…10a684 Dummy {f00=0x0054, f01=0x0190, f02=» . P ADKL A8,RECLEN+1 INCREMENT RECORD POINTER & P CW A8,PLDADR+STKEND END OF BUFFER 6 P RF(NE) COR:10 NO! ` P CALL READC READ SECTOR z $ PCOR:10 LDR A4,A8 START OF RECORD P RTN A14 P XIF P IFT CFTEST+CASS=2 PCON:40 EQU *
0x10a684…10a818 Dummy {f00=0x0054, f01=0x0190, f02=» OF BUFFER | P RTN A14 P XIF " P IFT CFTEST=1 . PMEMOFL EQU * D * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW X P CALL ERROR P EJECT PREADC EQU * P CF A14,RDSEC READ SECTOR P LDR A8,A9 " P LDR A4,A8 GET START OF
0x10a818…10a9ac Dummy {f00=0x0054, f01=0x018e, f02=»(NE) CONERR & P ADK A4,1 INCREMENT BUFFER POINTER " P LCR A5,A4 GET NEXT CHARACTER > P CCK A5,';;' END OF RECORD? d P ABL(NE) CONERR NO! P RTN A14 P EJECT PNNL EQU * * P LDK A3,3 NO OF DIGITS IN LINE NUMBER & P CF A1
0x10a9ac…10ab40 Dummy {f00=0x0054, f01=0x0190, f02=» " P LCR A5,A4 GET NEXT CHARACTER P CCK A5,'LL' LINE L? * P RF(E) NN:40 YES! F P CCK A5,'RR' LINE R? ` P RF(E) NN:40 YES! | P CCK A5,'AA' LINE A? P RF(E) NN:40 YES! P CCK A5,'SS' LINE S? P RF(E) NN:40 YES! P CCK A
0x10ab40…10acd4 (10, 20) Dummy {f00=0x0054, f01=0x0190, f02=» YES! P RF CONERR PNN:40 EQU * & P ADK A4,1 INCREMENT BUFFER POINTER 4 P RF NN:50 ^ P* p PNN EQU * z $ P LDK A3,2 NO OF DIGITS IN NUMBER & P CF A14,NUMB LOOK IF LEGAL DIGITS $ P LDR A1,A1 SET RETURN CONDITION " P RF(
0x10acd4…10ae68 Dummy {f00=0x0054, f01=0x0190, f02=»N NUMBER x & P CF A14,NUMB LOOK IF LEGAL DIGITS $ P ST A5,NDEVCL+STKEND SAVE NUMBER : " PNN:50 LCR A5,A4 GET CHARACTER b P CCK A5,';;' END OF RECORD? P RF(NE) CONERR NO! P RTN A14 P EJECT PAA EQU * P LDK A3,2 PAA
0x10ae68…10affc Dummy {f00=0x0054, f01=0x0190, f02=»939 ALPHA-NUMERIC CHARACTER > 39? P RF(NG) AA:20 NO! * 0 P CCK A5,/4141 ALPHA-NUMERIC CHARACTER < 41? D P RF(L) CONERR x 0 P CCK A5,/5A5A ALPHA-NUMERIC CHARACTER > 5A? P RF(G) CONERR PAA:20 EQU * & P ADK A4,1 INCREMENT BUFFER P
0x10affc…10b190 Dummy {f00=0x0054, f01=0x0190, f02=»CONERR NO! P RTN A14 P EJECT " PTID EQU * 0 " P LDKL A2,SEQ1 SELECT SEQUENCE B & P LDK A3,4 GET NUMBER OF CHARACTERS h P RTN A14 PTCL EQU * " P LDKL A2,SEQ2 SELECT SEQUENCE & P LDK A3,4 GET NUMBER OF CHARACTERS P RTN
0x10b190…10b324 Dummy {f00=0x0054, f01=0x0190, f02=» PTDCT EQU * " P LDKL A2,SEQ4 SELECT SEQUENCE & P LDK A3,5 GET NUMBER OF CHARACTERS < P RTN A14 f PLC EQU * v " P LDKL A2,SEQ5 SELECT SEQUENCE & P LDK A3,3 GET NUMBER OF CHARACTERS P RTN A14 PSDCS EQU * " P LDKL A2,SEQ6 SE
0x10b324…10b4b8 Dummy {f00=0x0054, f01=0x0190, f02=» x P CCR A5,A2 P RF(NE) CONERR & P ADK A4,1 INCREMENT BUFFER POINTER 0 ( P ADK A2,1 INCREMENT SEQUENCE POINTER Z . P SUK A3,1 MORE CHARACTERS IN THE SEQUENCE? P RB(NZ) TEST YES! P RTN A14 P EJECT PSUKASC EQU * 2 P CCK
0x10b4b8…10b64c Dummy {f00=0x0054, f01=0x0190, f02=»VCL+STKEND STORE NUMBER OF CLASSES P RTN A14 * P EJECT : PNUMB EQU * H * P LDK A1,0 RESET NO OF NON ZERO DIGITS Z PNUMB00 EQU * " P LCR A5,A4 GET DIGIT IN NUMBER & P ADK A4,1 INCREMENT BUFFER POINTER ( P CCK A5,/3939 NUMERIC CHARAC
0x10b64c…10b7e0 Dummy {f00=0x0054, f01=0x0190, f02=»NUMERIC CHARACTER =0 P* . P ADK A1,1 INCREMENT NO OF NON ZERO DIGITS & PNUMB10 EQU * X & P SUK A3,1 DECREMENT DIGIT COUNTER l & P RF(Z) NUMB20 ALL DIGITS PROCESSED P* , P SLL A5,8 LAST DIGIT TO LEAST SIGN. BYTE " P RB NUMB00 PRO
0x10b7e0…10b974 (10, 21) Dummy {f00=0x0055, f01=0x0190, f02=»************************** x 6 P* * " 6 P* SEQUENCES * 6 P* * 6 P**************************************************
0x10b974…10bb08 Dummy {f00=0x0055, f01=0x0190, f02=» P DATA 'L=' PSEQ3 EQU * LEV= P DATA 'LE' 2 P DATA 'V=' D PSEQ4 EQU * TDC=T V P DATA 'TD' n P DATA 'C=' P DATA 'T0' PSEQ5 EQU * LC= P DATA 'LC' P DATA '=0' PSEQ6 EQU * SDC=S P DATA 'SD' P
0x10bb08…10bc9c Dummy {f00=0x0055, f01=0x0190, f02=»CON:30 EQU * P LDR A1,A9 START OF BUFFER " P ADKL A1,BUFLEN END OF BUFFER 6 , P ST A1,PLDADR+STKEND SAVE END OF BUFFER P ST A1,EINPBF+STKEND SAVE 4 P ST A1,CONSTA+STKCOM START OF CONFIGURATION DATA P CF A14,RDBLK READ ONE BLOCK "
0x10bc9c…10be30 Dummy {f00=0x0055, f01=0x0190, f02=» f PCON:40 EQU * " P CF A14,RDBLK READ NEXT BLOCK P LDR A1,A1 TAPEMARK? B P RF(NZ) CONEX YES! ^ PCON:50 EQU * x P* 2 P* COMPUTE NUMBER OF CHARACTERS IN THIS BLOCK P* 6 P LD A1,EINPBF+STKEND GET CURRENT POINTER IN BUFFER
0x10be30…10bfc4 Dummy {f00=0x0055, f01=0x018e, f02=» A5,A4 GET CHARACTER IN BUFFER P CCK A5,';;' CHECK IF SPACE & & P RF(E) CON:70 NO MOORE CHARACTERS J PCON:65 EQU * t P CWK A3,CBLEN END OF BUFFER? P RF(E) CON:75 YES! * P CW A1,ESYSTA+STKEND MEMORY OVERFLOW? P RF(E) MEMOFL YES!
0x10bfc4…10c158 Dummy {f00=0x0055, f01=0x0190, f02=» l P RB CON:60 PCON:70 EQU * " P LC A5,1,A4 GET NEXT CHARACTER . " P CCK A5,';;' TWO SEMI-COLONS? T P RF(NE) CON:75 NO! z * P CWK A3,NCHTID CHECK IF END OF RECORD 4 P RB(E) CON:65 NO: SEMI-COLON CHARACTER IN RECORD PCON:75 EQU *
0x10c158…10c2ec Dummy {f00=0x0055, f01=0x0190, f02=»NEX EQU * P* > P* UNLOAD CASSETTE IF NO APPLICATION DATA ON SAME CASSETTE P* ^ " P CF A14,RDBLK READ NEXT BLOCK h P LDR A1,A1 APPLICATION DATA? P RF(NZ) CON:80 NO! P LDK A1,/D * P CF A14,CHCRIO SEARCH TAPEMARK REVERSE
0x10c2ec…10c480 Dummy {f00=0x0055, f01=0x0190, f02=»CON:90 EQU * P ABL CONMOV P XIF ( PCONERR EQU * 4 P LDKL A1,LMP4 H P CALL ERROR ^ P IFF CFTEST=1 r PMEMOFL EQU * * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW P CALL ERROR P EJECT PCONRAD EQU * P* 6
0x10c480…10c614 (10, 22) Dummy {f00=0x0055, f01=0x0190, f02=» CONRA0 SAME AS PGM LOAD DEVICE P* ( 0 P CF A14,CONFLD INITIATE CONF. DATA LOAD DEV. 2 PCONRA0 EQU * f * P LD A11,CONDAD+STKEND GET START SECTOR z 2 P LD A12,CONDAD+2+STKEND MOST SIGNIFICANT PART " P LDR A1,A9 GET START OF BUFFER $ P ADK
0x10c614…10c7a8 Dummy {f00=0x0055, f01=0x0190, f02=»START OF SAVE BUFFER P ST A1,EINPBF+STKEND SAVE =2 P ST A1,CONSTA+STKCOM @ $ P LDKL A10,0 RESET RECORD COUNTER PCOR:10 EQU * P* 0 P* READ ONE SECTOR FROM RANDOM ACCESS DEVICE P* P CF A14,RDSEC READ SECTOR " P LDR A
0x10c7a8…10c93c Dummy {f00=0x0055, f01=0x0190, f02=»PBF+STKEND GET CURRENT POINTER IN BUFFER P LDR A2,A1 SAVE 0 & P LDK A3,0 RESET CHARACTER COUNTER H P LDR A4,A8 START OF RECORD r P* P* LOOK IF WE HAVE AN P* APPLICATION CONTROL BLOCK P* & P LDR* A5,A4 GET 1ST WORD IN BU
0x10c93c…10cad0 Dummy {f00=0x0055, f01=0x0190, f02=» l P RF(NE) COR:30 NO! P* " * P LDKL A5,/FF3B YES, SUBSTITUTE A; WITH , P STR A5,A4 'HEX FF' AND ';' Z 8 P LD A5,CURAPL+STKEND GET CURRENT APPL. CONTR. BLOCK ~ P ADK A1,1 SKIP BLOCK MARKER 6 P ST A1,EINPBF+STKEND SAVE CURRENT BUFFER P
0x10cad0…10cc64 Dummy {f00=0x0055, f01=0x018e, f02=»A8 START OF RECORD 0 P ADK A3,1 INCREMENT NO OF CHARACTERS TO MOVE P CALL MOVE N P ADKL A10,2 SKIP NEXT RECORD ` P* . P ADKL A8,RECLEN+1 INCREMENT RECORD POINTER ( P CW A8,PLDADR+STKEND END OF BUFFER? P RF(L) COR:48 NO! P*
0x10cc64…10cdf8 Dummy {f00=0x0055, f01=0x0190, f02=» : P LD A5,EINPBF+STKEND CURRENT POSITION IN CONF. DATA =6 8 P SU A5,CONSTA+STKCOM CALCULATE RELATIVE POSITION =6 F P ST A5,DCBLK+STKCOM SAVE =6 PCOR:30 EQU * P LCR A5,A4 GET CHARACTER P CCK A5,';;' END OF RECORD? P RF(E) COR
0x10cdf8…10cf8c Dummy {f00=0x0055, f01=0x0190, f02=»OVERFLOW? t P RB(E) MEMOFL YES! & P ADK A1,1 INCREMENT BUFFER POINTER , * P ADK A3,1 INCREMENT CHARACTER COUNTER V & P ADK A4,1 INCREMENT RECORD POINTER P RB COR:30 LOOP PCOR:40 EQU * " P LC A5,1,A4 GET NEXT CHARACTER P CCK A5,
0x10cf8c…10d120 Dummy {f00=0x0055, f01=0x0190, f02=»R IN RECORD l PCOR:45 EQU * 2 P ST A1,EINPBF+STKEND SAVE CURRENT DESTINATION ( P LDR A1,A8 START OF RECORD ^ P CALL MOVE ( P ADKL A10,1 INCREMENT RECORD COUNTER & P CW A10,LSTREC+STKEND LAST RECORD P RF(E) COR:50 YES! PCOR:48
0x10d120…10d2b4 (10, 23) Dummy {f00=0x0055, f01=0x0190, f02=» P RB COR:20 NEXT RECORD PCOR:50 EQU * " " P LD A1,SCTOPT GET OPTION WORD 6 P ANK A1,8 SWB:S? P RF(Z) COR:55 NO t P LDK A3,'S' & P SC A3,GET:25+1 MODIFY INSTRUCTION & P SC A3,GET:60+1 MODIFY INSTRUCTION P LD A1,IPLDEV+STKEND
0x10d2b4…10d448 Dummy {f00=0x0055, f01=0x0190, f02=»55 EQU * 4 P LD A1,CONDEV+STKEND GET CONF. DATA LOAD DEVICE , P RF(Z) COR:58 SAME AS APPL. LOAD DEVICE H P* x P LDR A2,A1 P ANK A2,/F P SUK A2,9 $ P RF(NZ) COR:58 NOT FLEXIBLE DISC P XIF P IFT CFTFLD+FLDISC=2 ( P
0x10d448…10d5dc Dummy {f00=0x0055, f01=0x0190, f02=» j P SUK A1,/F8 CHECK TYPE $ P RF(N) COR:60 NOT FLEXIBLE DISC & P* N " P SUK A1,/FC-/F8 FLEXIBLE DISC? X P RF(NN) COR:60 NO! ~ P* P XIF P IFT CFTFLD+FLDISC=2 " P LD A2,SCTOPT GET OPTION WORD P ANK A1,2 DISC PAGING?
0x10d5dc…10d770 Dummy {f00=0x0055, f01=0x0190, f02=» P IFF CFTEST=1 P IFF CFTEST=1 PCOR:60 EQU * 0 P EJECT D PCONMOV EQU * R P* f 4 P* MOVE CONFIGURATION DATA TO END OF SYSTEM AREA p P* & P CIO A1,0,SOP INHIBIT SOP SWITCHES " P LDR A1,A9 GET START OF BUFFER ( P AD A1
0x10d770…10d904 Dummy {f00=0x0055, f01=0x0190, f02=»STEM AREA n * P CM -2,A2 MAKE SURE CONFIGURATION FILE " P SUK A2,1 IS FOLLOWED BY X'00' @ , P SUR A3,A1 LENGTH OF CONFIGURATION DATA f 2 P ST A3,CONLEN+STKCOM SAVE LENGTH OF CONF. DATA P SUR A2,A3 TO-ADDRESS P* $ P ANKL A2,/FFFE MAKE
0x10d904…10da98 Dummy {f00=0x0055, f01=0x0190, f02=»ONF. DATA l 0 P ADK A1,2 INCLUDE TRAILING ZEROES IN LENGTH P ANKL A1,/FFFE AND MAKE EVEN F P ST A1,CONLEN+STKCOM j & P LDR A1,A9 GET START OF FREE AREA P LDR A12,A2 END OF FREE AREA $ P SUR A12,A1 SUBTRACT MONITOR END 2 P ST A12,M:RE
0x10da98…10dc2c Dummy {f00=0x0055, f01=0x0190, f02=» * P ADR A2,A12 RELOCATE MXSTAB ADDRESS =1 , P ST A2,SCTMXS AND SAVE AS NEW ADDRESS =1 6 PCMOV20 EQU * =1 f , P LD A2,CONSTA+STKCOM GET START OF CONFF P* < P* MOVE SYSLDA+SYSLDM+DWT-PROTOTYPES TO END OF FREE AREA P* PMOPR
0x10dc2c…10ddc0 Dummy {f00=0x0055, f01=0x0190, f02=»B(NE) MOPRO ( P ABR A2 CONTINUE EXECUTION IN SYSLDM P XIF @ P EJECT L L P************************************************************************ Z L P* SUBROUTINES USED IN THE APPLICATION AND CONFIGURATION LOADING PHASE O L P**************
0x10ddc0…10df54 (10, 24) Dummy {f00=0x0055, f01=0x0190, f02=»* r $ P* ========================= * $ P* * 2 $ P* ENTRY: * Z $ P* * $ P* EXIT: A1 - SOP INPUT * $ P* BIT 6 - SWITCH 1 * $ P* BIT
0x10df54…10e0e8 Dummy {f00=0x0055, f01=0x0190, f02=»* r $ P* SUBROUTINES: * $ P* * 2 $ P******************************* Z PSOPIN EQU * P CIO A1,1,SOP P INR A1,0,SOP P RB(NA) *-2 P RTN A14 P EJECT ( P********************
0x10e0e8…10e27c Dummy {f00=0x0055, f01=0x0190, f02=»===== * x ( P* * ( P* USED FOR CONFIGURATION OF * @ ( P* PROGRAM LOAD DEVICE AND * l ( P* CONFIGURATION DATA LOAD * ( P* DEVICE (IF DIFFERENT). * ( P*
0x10e27c…10e410 Dummy {f00=0x0055, f01=0x018e, f02=» * t ( P*********************************** P < P D PLODDEV EQU * L P LDKL A3,BUFLEN ` * P ST A3,SAVCON INITIALIZE BUFFER LENGTH x P LDKL A2,-1 $ P ST A2,CYLNBR SET SEEK CONDITION P LDR A2,A1 $ P ANK A2,/80 CHECK IF
0x10e410…10e5a4 Dummy {f00=0x0055, f01=0x0190, f02=» j * P LC A3,IPLTYP+1+STKEND GET DEVICE TYPE P ANK A3,/FF 6 P SUK A3,3 J P RF(N) DISC:0 DISC P RF(Z) MFD:0 MINI FIXED DISC v P SUK A3,3 =9 P RF(N) CDC:0 80M CDC DISC P RF FLEX:0 FLEXIBLE DISC P EJECT PCASS:0 E
0x10e5a4…10e738 Dummy {f00=0x0055, f01=0x0190, f02=»ON CONTR. BLOCK f * P CM APLADA+2,A1 CLEAR APPLICATION DISC ( P CM APLADA+4,A1 FILE ADDRESS ENTRIES F * P LDKL A1,RDBLK GET SUBROUTINE ADDRESS r P LDR A10,A1 0 P ST A1,READ STORE IN PROGRAM LOAD SUBROUTINE PCASS:2 EQU * * P CF A14,RDBL
0x10e738…10e8cc Dummy {f00=0x0055, f01=0x0190, f02=»SSETTE n P RB CASS:2 P XIF P IFF CASS=1 , P LDKL A1,LMP9 @ & P CALL ERROR ILLEGAL MONITOR OPTION V P XIF P EJECT PFLEX:0 EQU * P IFT FLDISC=1 P* * P* PROGRAM LOAD DEVICE = FLEXIBLE DISC P* P*
0x10e8cc…10ea60 Dummy {f00=0x0055, f01=0x0190, f02=»* P* INIT FLEXIBLE DISC P* ( P CF A14,FDINIT 2 P RF FINISH H P* Z P XIF d P IFF FLDISC=1 p P LDKL A1,LMP9 & P CALL ERROR ILLEGAL MONITOR OPTION P XIF P EJECT PMFD:0 EQU * P IFT MFDISC=1
0x10ea60…10ebf4 (10, 25) Dummy {f00=0x0056, f01=0x0190, f02=»/F4 ( P ST A2,FILCOD+STKEND SAVE FILE CODE P* 8 P* INIT MINI FIXED DISC B P* ` P CF A14,MDINIT j P RF FINISH RETURN P* P XIF P IFF MFDISC=1 P LDKL A1,LMP9 & P CALL ERROR ILLEGAL MONITOR OPTION P X
0x10ebf4…10ed88 Dummy {f00=0x0056, f01=0x0190, f02=»ODIFY SCTIPL: /F1 - CARTRIDGE DISC /F0 - FIX DISC P* : & P LC A2,FCTAB,A2 LOAD FILE CODE =5 D ( P ST A2,FILCOD+STKEND SAVE FILE CODE n P* P* INITIALIZE DISC COMMANDS P* P CF A14,DUINIT P XIF P IFF DISC=1 P
0x10ed88…10ef1c Dummy {f00=0x0056, f01=0x0190, f02=» * P LD A2,FILCOD+STKEND RESTORE FILE CODE P RTN A14 6 P EJECT F PCDC:0 EQU * T P IFF CDDISC+CDDI16=0 h P* 0 P* PROGRAM LOAD DEVICE = 16M OR 80M CDC DISC P* P* P* MODIFY SCTIPL: /FC - /FD P* $ P SRC A
0x10ef1c…10f0b0 Dummy {f00=0x0056, f01=0x018e, f02=»USED =9 x P ORK A2,/FC FILE CODE ( P ST A2,FILCOD+STKEND SAVE FILE CODE . P* Z P* INITIALISE DISC COMMANDS d P* P CF A14,CDINIT INIT DEVICE P RB FINISH RETURN P XIF P IFT CDDISC+CDDI16=0 =9 P LDKL A1,LMP9
0x10f0b0…10f244 Dummy {f00=0x0056, f01=0x0190, f02=» < P* * < P* CONFLD - SELECT LOAD UNIT FOR CONF. DATA * D < P* ======================================== * < P* * < P*
0x10f244…10f3d8 Dummy {f00=0x0056, f01=0x0190, f02=»******************************************* P 4 P < PCONFLD EQU * D P LDKL A2,-1 X $ P ST A2,CYLNBR SET SEEK CONDITION l " P LDR A2,A1 SAVE DEVICE ADDRESS " P ANK A2,/F ISOLATE LAST DIGIT P SUK A2,7 P RB(N) MFD:0 MINI FIXE
0x10f3d8…10f56c Dummy {f00=0x0056, f01=0x0190, f02=»EX:0 FLEXIBLE DISC DEVICE P EJECT " P IFT CASS=1 0 < P******************************************************* D < P* CASSIN - CASSETTE INITIATING ROUTINE * < P* ==================================== * < P*
0x10f56c…10f700 Dummy {f00=0x0056, f01=0x0190, f02=» * < P* ENTRY: * 4 < P* * t < P* EXIT: * < P*
0x10f700…10f894 (10, 26) Dummy {f00=0x0056, f01=0x0190, f02=» * t < P* SUBROUTINES: SOPIN,CHCRIO * $ < P* * d < P******************************************************* PCASSIN EQU * P LDK A1,/F "
0x10f894…10fa28 Dummy {f00=0x0056, f01=0x0190, f02=» CF A14,SOPIN READ SOP $ P ANKL A1,/0300 ALLOWED SWITCHES? P RB(Z) CAS:10 NO! F & P LDKL A3,LMP1 SWITCH ON LOAD LAMP ` P OTR A3,0,SOP P SRL A1,8 RIGHT ALIGN P ANK A1,1 SELECT UNIT P CF A14,CHCRIO SELECT UNIT P LDK A1,LO
0x10fa28…10fbbc Dummy {f00=0x0056, f01=0x0190, f02=»4,CHCRIO SEARCH BEGINNING OF TAPE P LDK A1,STMF * * P CF A14,CHCRIO SEARCH TAPEMARK FORWARD > P RTN A14 l P EJECT | 2 P********************************************* 2 P* CHCRIO - CASSETTE I/O EXECUTING ROUTINE * 2 P* ===============
0x10fbbc…10fd50 Dummy {f00=0x0056, f01=0x0190, f02=» b 2 P* * 2 P* ENTRY: A1 - I/O INSTRUCTION COMMAND * > 2 P* * t 2 P* EXIT: * 2 P*
0x10fd50…10fee4 Dummy {f00=0x0056, f01=0x0190, f02=»: * 2 P* * ( 2 P********************************************* ^ PCHCRIO EQU * P CIO A1,1,CHCR P SST A3,CHCR P RB(NA) CHCRIO P RTN A14 P EJECT 6 P**
0x10fee4…110078 Dummy {f00=0x0056, f01=0x0190, f02=»ONE CASSETTE BLOCK * z 6 P* =============================== * $ 6 P* * ^ 6 P* REFERENCED IN: SYSLOD * 6 P* *
0x110078…11020c Dummy {f00=0x0056, f01=0x0190, f02=»UMBER OF CHARACTERS IN BLOCK * 6 P* * * : P* WORK REGISTERS: A1,A2,A3,A4,A5 * d 6 P* * 6 P* SUBROUTINES:
0x11020c…1103a0 Dummy {f00=0x0056, f01=0x0190, f02=»3,A9 START OF BUFFER & P LDK A2,0 RESET CHARACTER COUNTER $ P LDR A4,A3 SAVE START OF BUFFER F P ADKL A3,CBLEN END OF BUFFER n P LDK A1,/A P CIO A1,1,CHCR READ BLOCK P RF(NA) RDERR3 PRDB:20 EQU * P INR A1,0,CHCR P R
0x1103a0…110534 (10, 27) Dummy {f00=0x0056, f01=0x0190, f02=»ARACTER COUNTER z & P ADK A4,1 INCREMENT BUFFER POINTER PRDB:30 EQU * B P SST A1,CHCR V P RB(NA) RDB:20 l P ANKL A1,/FCFF CHECK STATUS P LDR A4,A1 SAVE STATUS P RF(Z) RDBEX OK P SLC A4,3 CHECK IF TAPEMARK P RF(N) R
0x110534…1106c8 Dummy {f00=0x0056, f01=0x0190, f02=»OCK IF NOT 3 ATTEMPTS ALREADY HAS BEEN MADE P* 4 P ADK A5,1 NEXT ATTEMPT > P CWK A5,3 THIRD ATTEMPT? P RF(E) RDERR3 YES - GIVE UP! | P LDK A1,/E REVERSE ONE BLOCK P CIO A1,1,CHCR EXECUTE ORDER $ P RB(NA) *-2 LOOP UNTIL ACCEPTED
0x1106c8…11085c Dummy {f00=0x0056, f01=0x0190, f02=» IFT DISC=1 P EJECT ( P*********************************** " ( P* * N ( P* DUINIT - INITIALIZE DISC UNIT * z ( P* ============================= * ( P* * ( P* REFEREN
0x11085c…1109f0 Dummy {f00=0x0056, f01=0x0190, f02=» * ( P* EXIT: * ( P* * J * P* WORK REGISTERS: A2,A3 * v ( P* * ( P* SUBROUTINES: * ( P*
0x1109f0…110b84 Dummy {f00=0x0056, f01=0x0190, f02=»DDRESS p P LDR A5,A1 SAVE FILE CODE P EJECT 0 P* > $ P* INIT DISC COMMANDS VERSION A2 H P* p , P ORKL A1,CIO+8 CONF. CIO A1,1,XX INSTR. z P ST A1,SEEK20 ( P ORKL A1,/800 FORM SST A1,XX INSTR. P ST A1,SEEK21 * P XRKL
0x110b84…110d18 Dummy {f00=0x0056, f01=0x0190, f02=»D INIT SUBROUTINE ADDRESSES P ST A2,READS $ P LDK A2,4 8 $ P XRS A2,CRCCHK DISCARD CRC CHECK J $ P CF A14,GETVLB GET VOLUME LABEL r P LDK A2,4 P ORS A2,CRCCHK SET CRC CHECK P LC A2,FORDEV,A9 GET FORMAT P ANK A2,1 P R
0x110d18…110eac Dummy {f00=0x0056, f01=0x0190, f02=»INIT DISC COMMANDS VERSION A3 P* & , P LDKL A3,DKBA3 BUFFER LENGTH VERSION A3 0 * P ST A3,SAVCON BUFFER LENGTH VERSION A3 ` P ORKL A1,CIO+8 , P XRKL A1,/500 CONFIG. CIO A4,1,XX INSTR. P ST A1,SEEK30 ( P ORKL A1,/800 FORM SST A4,XX I
0x110eac…111040 Dummy {f00=0x0056, f01=0x0190, f02=»TR. p P ST A1,READ31 P* " P* INIT SUBROUTINE ADDRESSES , P* P " PDUI:40 ST A2,READ READ PROGRAM Z ( P ST A2,READS READ CONFIGURATION DATA PDUI:50 EQU * P RTN A14 P EJECT 4 P******************************************
0x111040…1111d4 (10, 28) Dummy {f00=0x0056, f01=0x0190, f02=»========================== * 4 P* * . 4 P* REFERENCED IN: SYSLOD * f 4 P* * " P* ENTRY: A9 = BUFFER ADDRESS 4 P*
0x1111d4…111368 Dummy {f00=0x0056, f01=0x0190, f02=» * l 4 P* EXIT: * 4 P* * L ( P* WORK REGISTERS: A1,A2,A3,A4,A7 4 P* * 4 P* SUBROUTINES: ERROR
0x111368…1114fc Dummy {f00=0x0056, f01=0x0190, f02=»* P EJECT P* " P* READ DISC SECTOR VERSION A2 " P* H PRDSEC2 EQU * R P LDK A2,0 f * P LDR A1,A11 GET LOGICAL SECTOR NUMBER x PDIV200 EQU * P ADR A2,A1 P SRL A1,5 ( P RB(NZ) DIV200 MORE IN SERIE TO ADD
0x1114fc…111690 Dummy {f00=0x0056, f01=0x0190, f02=»RECTION OF RESULT | P ADK A2,1 PDIV210 EQU * , . P LDR A2,A2 A2:=CYL NBR = LOG SEC NBR / 31 @ P RF(Z) DIV220 CYLINDER 0 r P ADK A2,1 PDIV220 EQU * 4 P ADR A2,A11 A2:=PHYS. SEC NBR BEFORE INTERLACING P* P LDR A1,A2
0x111690…111824 Dummy {f00=0x0056, f01=0x0190, f02=»SET BIT 14 P EJECT P* P* SEEK CYLINDER * P* B PSEEK20 CIO A1,1,0 L P RB(NA) SEEK20 f P* | PSEEK21 SST A1,0 P RB(NA) SEEK21 P* P* INTERLACING P* PINT200 EQU * P LDR A1,A2 P ADR
0x111824…1119b8 Dummy {f00=0x0056, f01=0x0190, f02=»F(Z) INT210 EVEN CYLINDER P ADK A2,8 " PINT210 EQU * 4 P ANK A2,/1F H , P SLL A2,2 PHYSICAL SECTOR AND ORDER CODE P ST A2,SECNBR P EJECT P* P* READ SECTOR P* P LDR A1,A9 BUFFER ADDRESS ( PREAD20 LDKL
0x1119b8…111b4c Dummy {f00=0x0056, f01=0x0190, f02=»0 READ SECTOR & P RB(NA) READ21 LOOP UNTIL ACCEPTED PREAD22 SST A2,0 STATUS @ & P RB(NA) READ22 LOOP UNTIL ACCEPTED ^ PCRCCHK EQU * P ANK A2,/1F STATUS P RF(NZ) DUERR READING ERROR ( P ADKL A11,1 INCREMENT SECTOR COUNTER P R
0x111b4c…111ce0 Dummy {f00=0x0056, f01=0x0190, f02=»GET LOGICAL SECTOR NUMBER P LDKL A7,/1000 " P LDKL A4,/3000 8 PDIV300 EQU * N P SUR A1,A4 b P RF(N) DIV310 t P ADR A2,A7 P RB DIV300 PDIV310 EQU * P ADR A1,A4 ADJUST DIVIDEND P SRL A4,4 P SRL A7,4 P
0x111ce0…111e74 (10, 29) Dummy {f00=0x0057, f01=0x0190, f02=» , b P ADK A2,1 , , XXXX, PCASE10 EQU * . P LDR A4,A2 B P SRL A4,5 T P CW A4,CYLNBR f P RF(E) INT300 | , P ST A4,CYLNBR STORE NEW CYLINDER NUMBER P SLL A4,3 P ORK A4,2 SET BIT 14 P EJECT P* P
0x111e74…112008 Dummy {f00=0x0057, f01=0x018e, f02=»EK31 P* P* INTERLACING P* , PINT300 EQU * 6 P LDR A3,A2 J P ADR A2,A2 $ P ADR A2,A3 INTERLACING FACTOR 3 n P ANK A2,/1F & P LD A4,CYLNBR GET CYLINDER NUMBER P ANK A4,1 & P RF(Z) INT310 EVEN CYLINDER NUMBER
0x112008…11219c Dummy {f00=0x0057, f01=0x0190, f02=» . P ST A2,SECNBR STORE PHYSICAL SECTOR NUMBER P EJECT 6 P* D P* READ SECTOR N P* d P LDR A7,A9 BUFFER ADDRESS n * PREAD34 LDKL A4,MXCCD3 NUMBER OF WORDS , PWERIO3 WER A4,/10 WRITE NUMBER OF WORDS $ P WER A7,/11 WRITE BUFFER A
0x11219c…112330 Dummy {f00=0x0057, f01=0x0190, f02=»ATUS z & P RB(NA) READ31 LOOP UNTIL ACCEPTED P ANK A2,/1F STATUS 6 P RF(NZ) DUERR READING ERROR P P LDR A2,A9 BUFFER ADDRESS t P LDR A1,A1 " P RF(N) RETURN ,XXXX , , " P RF(P) READ33 , , XXXX, P ADKL A2,256 SOURCE
0x112330…1124c4 Dummy {f00=0x0057, f01=0x0190, f02=» A2,2 P ADK A7,2 P SUK A4,1 " P RB(NZ) READ32 CONTINUE MOVING 2 P LD A1,SAVMEM X P RF(P) RETURN n ( P LD A2,SECNBR PHYSICAL SECTOR NUMBER " P ADK A2,/C NEW SECTOR TO READ P ANK A2,/7C P SUK A1,1 P RB READ34
0x1124c4…112658 Dummy {f00=0x0057, f01=0x0190, f02=»RETURN ADKL A11,1 INCREMENT SECTOR NUMBER P RTN A14 2 P B PDUERR EQU * J P LDKL A1,LMP2 ^ P CALL ERROR t P XIF P IFT MFDISC=1 P EJECT < P******************************************************** < P*
0x112658…1127ec Dummy {f00=0x0057, f01=0x0190, f02=»================== * x < P* * ( < P* REFERENCED IN: SYSLOD,GETFIL * h < P* * < P* ENTRY: A1 = DEVICE ADDRESS
0x1127ec…112980 Dummy {f00=0x0057, f01=0x0190, f02=» * h < P* * < P* WORK REGISTERS: * X < P* * < P* SUBROUTINES: ERROR
0x112980…112b14 (10, 30) Dummy {f00=0x0057, f01=0x018e, f02=» X PMDINIT EQU * P* $ P* INIT MINI FIXED DISC COMMANDS & P* N PMDI:00 EQU * X , P ORKL A1,CIO CONFIG. CIO A1,1,XX INSTR. l P ST A1,READM2 ( P ORKL A1,/800 FORM SST A1,XX INSTR. P ST A1,READM3 * P XRKL A1,/B00 FORM C
0x112b14…112ca8 Dummy {f00=0x0057, f01=0x0190, f02=» * P LDKL A2,MRDSEC GET SUBROUTINE ADDRESS P ST A2,READ 2 P ST A2,READS F P RTN A14 Z P EJECT j : P****************************************************** x : P* * : P* MRDSEC - READ ONE
0x112ca8…112e3c Dummy {f00=0x0057, f01=0x018e, f02=» * p : P* REFERENCED IN: SYSLOD * : P* * : P* ENTRY: A9 = BUFFER ADDRESS * : P* A11 = SECTOR NUMBER
0x112e3c…112fd0 Dummy {f00=0x0057, f01=0x0190, f02=» : P* * : P* WORK REGISTERS: * B : P* * : P* SUBROUTINES: * : P*
0x112fd0…113164 Dummy {f00=0x0057, f01=0x0190, f02=» A1,0 PREPARE FOR DIVISION * P LDR A2,A11 GET LOGICAL SECTOR NUMBER " P DVK 104 DIVIDE BY 104 P P SLL A2,2 n P ORK A2,3 SET BIT 14 AND 15 P* " P* A1=SECTOR NUMBER ON CYLINDER P* A2=CYLINDER NUMBER P* & P ST A1,SECNBR
0x113164…1132f8 Dummy {f00=0x0057, f01=0x0190, f02=» EJECT P* P* SEEK CYLINDER P* 0 " PSEEKM1 CIO A2,1,0 SEEK COMMAND : & P RB(NA) SEEKM1 LOOP UNTIL ACCEPTED ` P* PSEEKM2 SST A2,0 GET STATUS & P RB(NA) SEEKM2 WAIT UNTIL ACCEPTED P* P* INTERLACING P*
0x1132f8…11348c Dummy {f00=0x0057, f01=0x0190, f02=» " P SLL A2,2 A2:=4*SECTOR NUMBER " P LDK A1,0 PREPARE FOR DIVISION . P DVK 52 T , P ADR A1,A2 A1:=INTERLACED SECTOR NUMBER d P* " P* A1:=INTERLACED SECTOR NUMBER P* & P LD A2,CYLNBR GET CYLINDER NUMBER P SRC A2,3 (
0x11348c…113620 Dummy {f00=0x0057, f01=0x0190, f02=» P SLL A1,2 6 P LD A2,SECNBR GET SECTOR NUMBER BEFORE INTERLACING P CWK A2,52 P P RF(L) INTM40 HEAD NUMBER 0 b P ORKL A1,/4000 HEAD NUMBER 1 PINTM40 EQU * P* P* READ SECTOR P* PREADM1 EQU * " P LDKL A4,MUX
0x113620…1137b4 (10, 31) Dummy {f00=0x0057, f01=0x0190, f02=»ER ADDRESS | P* " PREADM2 CIO A1,1,0 READ SECTOR & P RB(NA) READM2 LOOP UNTIL ACCEPTED B P* l PREADM3 SST A1,0 GET STATUS v & P RB(NA) READM3 LOOP UNTIL ACCEPTED P ANK A1,/1F STATUS P RF(NZ) MFDERR READING ERROR ( P ADKL A1
0x1137b4…113948 Dummy {f00=0x0057, f01=0x0190, f02=»FT FLDISC=1 P EJECT 4 P************************************************ " 4 P* * Z 4 P* FDINIT - INITIALIZE FLEXIBLE DISC * 4 P* ================================= * 4 P*
0x113948…113adc Dummy {f00=0x0057, f01=0x0190, f02=» * r 4 P* ENTRY: A1 - DEVICE ADDRESS * 4 P* * R 4 P* EXIT: * 4 P* * 4 P* WORK REGIST
0x113adc…113c70 Dummy {f00=0x0057, f01=0x018e, f02=» * j 4 P* * 4 P************************************************ J PFDINIT EQU * P ANK A1,/10 0 P ORKL A1,CIO+9 CONFIG. CIO+9 A1,1,XX INSTR. P ST A1,FRD:10 < P LDKL A2,FRDS25 ADDR
0x113c70…113e04 Dummy {f00=0x0057, f01=0x0190, f02=» P RB(NA) FDI:05 P* P ANK A1,/10 ( ( P RF(NZ) FDI:10 0.25 MEG FLOPPY DRIVE < P* h . P LDKL A1,FRD:B1+/5700 RF FRD:40 INSTR. =4 r ( P ST A1,FRD:20 MODIFY INR INSTRUCTION P LDKL A1,/41F " P ST A1,FRD:42 MODIFY SST MASK
0x113e04…113f98 Dummy {f00=0x0057, f01=0x0190, f02=» EQU * P ST A2,READ P ST A2,READS " $ P CF A14,GETVLB GET VOLUME LABEL 6 P LD A1,FORDEV,A9 GET FORMAT ^ P ST A1,DEVTYP+STKEND P RTN A14 P EJECT 0 P******************************************** 0 P*
0x113f98…11412c Dummy {f00=0x0057, f01=0x0190, f02=» ============================= * 0 P* * 0 0 P* ON ENTRY: A1 = DEVICE ADDRESS * d 0 P* * 0 P******************************************** P P
0x11412c…1142c0 Dummy {f00=0x0057, f01=0x0190, f02=»COMMAND v $ P RB(NA) *-4 LOOP UNTIL ACCEPTED P* 8 P EX FRD:40 SENSE STATUS B $ P RB(NA) *-4 LOOP UNTIL ACCEPTED b P RTN A14 P EJECT @ P*********************************************************** @ P*
0x1142c0…114454 (10, 32) Dummy {f00=0x0057, f01=0x0190, f02=»==================== * t @ P* * ( @ P* REFERENCED IN: SYSLOD * l @ P* * @ P* ENTRY: A9 - BUFF
0x114454…1145e8 Dummy {f00=0x0057, f01=0x0190, f02=» * | @ P* EXIT: * 0 @ P* * t @ P* WORK REGISTERS: A1,A2,A3 * @ P*
0x1145e8…11477c Dummy {f00=0x0057, f01=0x0190, f02=» * @ P*********************************************************** 8 PFRDSEC EQU * | " P LDR A2,A11 GET SECTOR NUMBER * P LDKL A4,/340 26 SHIFTED 10 STEPS LEFT $ P LD A1,DEVTYP+STKEND DEVICE TYPE
0x11477c…114910 Dummy {f00=0x0057, f01=0x0190, f02=» * P SLL A2,1 A2=0-25,PHYSICAL SECTOR NBR P RF DVK26 2 PNOTCY0 EQU * D P ADK A2,13 X P EJECT j P* x P* A2=PHYSICAL SECTOR NUMBER P* PDVK26 EQU * P LDK A1,0 PDVK26A EQU * P SLL A1,5 PDVK26B EQU *
0x114910…114aa4 Dummy {f00=0x0057, f01=0x0190, f02=» " P RB(NZ) DVK26A NEXT FIVE BITS P EJECT * P* 8 P* A2=SECTOR NUMBER B P* A1=CYLINDER NUMBER P* x $ P LD A4,DEVTYP+STKEND DEVICE TYPE P ANK A4,1 , P RF(NZ) DBHEAD 1 MEG FLOPPY,DOUBLE HEAD P SLL A1,1 ONLY ONE HEAD
0x114aa4…114c38 Dummy {f00=0x0057, f01=0x0190, f02=» CORRECT POSITION v $ P ORR A2,A4 A2=CIO READ REGISTER 2 P SLL A1,1 CYLINDER NUMBER IN CORRECT POSITION B " P ORK A1,3 A1=CIO SEEK REGISTER x 4 P CW A1,CYLNBR COMPARE OLD AN NEW CYLINDER NUMBER P RF(E) NOSEEK NO SEEK NEEDED & P ST A1,CYLNBR
0x114c38…114dcc Dummy {f00=0x0057, f01=0x0190, f02=»L A1,/611 P RF(NZ) FRD:50 SEEK ERROR PNOSEEK EQU * 4 P LDR A1,A2 H P RF FRD:05 Z P EJECT l PFRDS25 EQU * z P LDR A1,A11 SECTOR NO P SLL A1,4 8 P ORKL A1,/4000 NUMBER OF SECTORS=2 (BIT 0 - BIT 1) PFRD:05 EQU *
0x114dcc…114f60 Dummy {f00=0x0057, f01=0x0190, f02=» LDR A2,A3 BUFFER START ADDRESS $ P AD A2,SAVCON BUFFER END ADDRESS ( P* P $ PFRD:10 CIO A1,1,FDCU START READ Z P RB(NA) FRD:10 P* P EJECT CRVOL P* P* PFRD:20 INR A1,0,FDCU P RF(NA) FRD:40 =4 P STR A
0x114f60…1150f4 (10, 33) Dummy {f00=0x0058, f01=0x0190, f02=»FRD:40 SST A1,FDCU P RB(NA) FRD:20 PFRD:42 EQU *+2 0 P ANKL A1,/4E15 FATAL ERROR ? F P RF(NZ) FRD:50 YES! j PFRD:43 CWR A3,A2 =4 ( P RF(E) FRD:44 PROGRAMMED CHANNEL =4 . P LDKL A1,FRD:B1+/5700 RF FRD:40 INSTR. =4 & P ST A1,F
0x1150f4…115288 Dummy {f00=0x0058, f01=0x0190, f02=»TR. =4 t P ABI READ READ AGAIN =4 PFRD:45 EQU * . ( P ADKL A11,1 INCRMENT SECTOR ADDRESS B P RF(NN) FRD:48 n 0 P SUR A11,A11 RESET LEAST SIGN. PART OF D.A. 2 P ADKL A12,1 INCREMENT MOST SIGN. PART OF D.A. $ P RF(O) FRD:50 DISC ADDRESS
0x115288…11541c Dummy {f00=0x0058, f01=0x0190, f02=»-2 =4 x " PFRD:B2 EQU FRD:45-FRD:43-2 =4 P XIF 4 P IFT CDDISC=1 @ P IFT CDDI16=0 =9 V P EJECT p ( P*********************************** ~ ( P* * ( P* CDINIT - INITIALIZE DISC UNIT * ( P* ===
0x11541c…1155b0 Dummy {f00=0x0058, f01=0x0190, f02=» * ( P* ENTRY: A1 - DEVICE ADDRESS * " ( P* * N ( P* EXIT: * z ( P* * ( P* WORK REGISTERS: A1,A2 * ( P*
0x1155b0…115744 Dummy {f00=0x0058, f01=0x0190, f02=»********************* P PCDINIT EQU * & P* : P* INIT 80M CDC DISC COMMANDS D P* h , P ORKL A1,CIO CONFIG CIO A1,1,XX INSTR. r P ST A1,READC1 ( P ORKL A1,/800 FORM SST A1,XX INSTR. P ST A1,READC2 * P XRKL A1,/B00
0x115744…1158d8 Dummy {f00=0x0058, f01=0x0190, f02=» 2 P ST A2,PSECNL+STKEND INIT VALUE FOR SECTOR NBR & P LDKL A2,/300 BUFLEN 80M CDC DISC : P ST A2,SAVCON SAVE LENGTH d 4 P LDKL A2,CRDSEC GET READ SECTOR SUBROUTINE ADDR. P ST A2,READ P ST A2,READS P RTN A14 P EJECT 4 P****
0x1158d8…115a6c Dummy {f00=0x0058, f01=0x0190, f02=»ROM DISC * t 4 P* ================================= * 4 P* * T 4 P* REFERENCED IN: SYSLOD * 4 P* * 4 P* ENTRY: A
0x115a6c…115c00 Dummy {f00=0x0058, f01=0x0190, f02=»NIFICANT * l 4 P* A12 - SECTOR NBR MOST SIGNIFICANT * 4 P* * L 4 P* EXIT: A12,A11 = A12,A11 + 1 * 4 P* * 4 P* WORK REGISTERS:
0x115c00…115d94 (10, 34) Dummy {f00=0x0058, f01=0x0190, f02=» * d 4 P* * 4 P*********************************************** D P* | PCRDSEC EQU * P* P* SET BUFFER ADDRESS P* P LDR A1,A9 BUFFER ADDRESS P ADKL A1,256 P ST A1,C
0x115d94…115f28 Dummy {f00=0x0058, f01=0x0190, f02=» A1,CIOTOT RESET BITS . P LDR A1,A12 SECTOR NUMBER MOST SIGNIFICANT 0 P LDR A2,A11 SECTOR NUMBER LEAST SIGNIFICANT P P EJECT P* P* DIVIDE LOGICAL WITH 3 P* P LDK A3,0 PRED100 EQU * P ADK A3,1 P SUK A1,3
0x115f28…1160bc Dummy {f00=0x0058, f01=0x0190, f02=»RESS MEANS NEW READ n P CW A2,PSECNL+STKEND , P RF(NE) RED110 NOT SAME PHYSICAL SEC NBR 8 P CW A3,PSECNM+STKEND h , P RF(NE) RED110 NOT SAME PHYSICAL SEC NBR P CW A1,PSECPA+STKEND & P RF(E) TURN SAME LOG SEC AS BEFORE . P RF(G) REDMOV
0x1160bc…116250 Dummy {f00=0x0058, f01=0x0190, f02=» A1,A3 P DVK 115 P EJECT P* A1=HEAD NBR * SECTOR NBR , P* A2=CYLINDER NBR N P LDR A3,A2 h P LDR A2,A1 z P LDK A1,0 P DVK 23 P* A1=SECTOR NBR P* A2=HEAD NBR $ P ORKL A2,/800 SET INTERRUPT BIT " P ST
0x116250…1163e4 Dummy {f00=0x0058, f01=0x0190, f02=» SLC A3,1 ( P RF(NN) INT100 EVEN CYLINDER NUMBER P ADK A2,12 SKEW FACTOR > PINT100 EQU * P DVK 23 p P SLL A1,5 IN POSITION $ P ORS A1,CIOTAB UPDATE CIO TABLE P SRC A3,1 RESTORE A3 P CW A3,CYLNBR & P RF(E) READER SA
0x1163e4…116578 Dummy {f00=0x0058, f01=0x0190, f02=»MMAND z P ST A3,SEKTAB P LDKL A2,SEKTAB $ PSEEKC1 EQU * < P CIO A2,1,0 SEEK P P RB(NA) SEEKC1 h PSEEKC2 EQU * ~ P SST A2,0 P RB(NA) SEEKC2 P EJECT P* P* READ P* PREADER EQU * $ P LDK A
0x116578…11670c Dummy {f00=0x0058, f01=0x0190, f02=»READC1 LOOP UNTIL ACCEPTED P* " PREADC2 SST A1,0 STATUS , & P RB(NA) READC2 LOOP UNTIL ACCEPTED J P ANKL A1,/FF0F STATUS t P RF(NZ) RET30 READING ERROR > P LD A1,PSECPA+STKEND GET RELATIV LOG SECT IN PHYSICAL =11 0 P RF(NZ) REDMOV N
0x11670c…1168a0 Dummy {f00=0x0058, f01=0x0190, f02=» z P RF TURN20 PTURN10 EQU * P SUR A11,A11 RESET A11 . P ADKL A12,1 L PTURN20 EQU * ` P RTN A14 t P EJECT P* " P* MOVE UP NEXT LOGICAL SECTOR P* PREDMOV EQU * 6 P ST A1,PSECPA+STKEND SAVE NEW LOGICAL SE
0x1168a0…116a34 (10, 35) Dummy {f00=0x0058, f01=0x0190, f02=»128 LENGTH IN WORDS PRMOV10 EQU * P LDR* A4,A1 . =15 0 P STR A4,A2 . =15 J P ADK A1,2 b P ADK A2,2 t P SUK A3,1 P RB(P) RMOV10 NEXT WORD P RB TURN P P P PNOFOND EQU * P LDKL A1,LMP2 &
0x116a34…116bc8 Dummy {f00=0x0058, f01=0x0190, f02=»1 . =15 P RB(NZ) REA100 NEW TRY P LC A1,CIOTAB . P ANK A1,/C0 D 4 P RF(NZ) RET31 LAST RETRY WITH EARLY OR LATE D.S X P LDKL A2,/8000 0 P ORS A2,CIOTAB PREPARE FOR EARLY DATA STROBE P RB READER PRET31 EQU * P ANK A1,
0x116bc8…116d5c Dummy {f00=0x0058, f01=0x0190, f02=» P RB READER PRET32 EQU * P LDKL A2,/3FFF * * P ANS A2,CIOTAB RESET LATE DATA STROBE @ P LC A1,CIOTOT n P ANK A1,/C0 4 P RF(NZ) RET33 LAST RETRY CARRIAGE+ OR CARRIAGE- P LDKL A2,/8000 ( P ORS A2,CIOTOT PREPARE FOR CARRIAG
0x116d5c…116ef0 Dummy {f00=0x0058, f01=0x018e, f02=»OTOT FROM CARRIAGE+ TO CARRIGE- P RB READER ( P EJECT : P* H P* SEEK TABLE R P* f PSEKTAB EQU * p P DATA 0 P* P* CIO TABLE P* PCIOTAB EQU * & P DATA 0 ORDER,SECTOR NBR,HEAD NBR PCIOTOT EQU *
0x116ef0…117084 Dummy {f00=0x0058, f01=0x0190, f02=» PCIOAD1 EQU * P DATA 0 ADDRESS 1 PCIOPA2 EQU * 6 P DATA /4000+128 J PCIOAD2 EQU * b P DATA 0 ADDRESS 2 v PCIOPA3 EQU * P DATA 128 PCIOAD3 EQU * P DATA 0 ADDRESS 3 P XIF P IFT CDDI16=1 =9
0x117084…117218 Dummy {f00=0x0058, f01=0x0190, f02=» * p ( P* ============================= * ( P* * 8 ( P* REFERENCED IN: SYSLOD,GETFIL * d ( P* * ( P* ENTRY: A1 - DEVICE ADDRESS * ( P*
0x117218…1173ac Dummy {f00=0x0058, f01=0x0190, f02=» l ( P* * ( P* SUBROUTINES: * 4 ( P* * ` ( P*********************************** P PCDINIT EQU * P* ( P* INIT 16M OR 80M CDC DISC COMMANDS
0x1173ac…117540 Dummy {f00=0x0058, f01=0x0190, f02=»0 =9 < P ST A2,CARFIX+STKEND SAVE FIX OR CARTRIDGE INDICATOR =9 , P ORKL A1,CIO CONFIG CIO A1,1,XX INSTR. N P ST A1,READC1 ~ ( P ORKL A1,/800 FORM SST A1,XX INSTR. P ST A1,READC2 * P XRKL A1,/B00 FORM CIO A2,1,XX INSTR. P ST
0x117540…1176d4 (10, 36) Dummy {f00=0x0058, f01=0x0190, f02=»FOR SECTOR NBR p & P LDKL A2,/300 BUFLEN 80M CDC DISC P ST A2,SAVCON SAVE LENGTH @ 4 P LDKL A2,CRDSEC GET READ SECTOR SUBROUTINE ADDR. b P ST A2,READ P ST A2,READS & P CF A14,GETVLB GET VOLUME LABEL =9 $ P LC A2,FORDEV+1,A9 GET FORMA
0x1176d4…117868 Dummy {f00=0x0058, f01=0x0190, f02=»CONSTANT FOR 80M DISC =9 PCDI:10 EQU * =9 ( P ST A2,DIVCON SET DIVIDE CONSTANT =9 8 P RTN A14 d P EJECT t 4 P*********************************************** 4 P* * 4 P* CRDSEC- READ ONE SE
0x117868…1179fc Dummy {f00=0x0058, f01=0x018e, f02=»* b 4 P* REFERENCED IN: SYSLOD * 4 P* * B 4 P* ENTRY: A9 = BUFFER ADDRESS * z 4 P* * 4 P* A11 - SECTOR NBR LEA
0x1179fc…117b90 Dummy {f00=0x0058, f01=0x018e, f02=» 4 P* EXIT: A12,A11 = A12,A11 + 1 * 4 P* * < 4 P* WORK REGISTERS: A1,A2,A3,A4 * t 4 P* * 4 P* SUBROUTINES: ERROR
0x117b90…117d24 Dummy {f00=0x0058, f01=0x018e, f02=» PCRDSEC EQU * P* P* SET BUFFER ADDRESS & P* B P LDR A1,A9 BUFFER ADDRESS L P ADKL A1,256 n P ST A1,CIOAD2 ADDRESS 2 P ADKL A1,256 P ST A1,CIOAD3 ADDRESS 3 P LDKL A1,/3FFF P ANS A1,CIOTAB RESET BITS
0x117d24…117eb8 Dummy {f00=0x0058, f01=0x0190, f02=» b P EJECT P* P* DIVIDE LOGICAL WITH 3 P* @ P LDK A3,0 J PRED100 EQU * P ADK A3,1 p P SUK A1,3 P RB(NN) RED100 P ADK A1,3 P SUK A3,1 P DVK 3 P CW A9,CIOAD1 : P RF(NE) RED110 NOT SAM
0x117eb8…11804c Dummy {f00=0x0058, f01=0x0190, f02=» | , P RF(NE) RED110 NOT SAME PHYSICAL SEC NBR P CW A1,PSECPA+STKEND 8 & P RF(E) TURN SAME LOG SEC AS BEFORE T . P RF(G) REDMOV MOVE UP NEXT LOGICAL SECTOR ~ PRED110 EQU * P ST A9,CIOAD1 ADDRESS 1 ( P MS 3,PSECPA+STKEND SAVE NEW VALUES
0x11804c…1181e0 Dummy {f00=0x0058, f01=0x0190, f02=»R P LDR A3,A2 P LDR A2,A1 P LDK A1,0 . P DVK 23 @ P* A1=SECTOR NBR P P* A2=HEAD NBR h $ P ORKL A2,/800 SET INTERRUPT BIT ~ , P OR A2,CARFIX+STKEND FIX OR CARTRIDGE =9 " P ST A2,CIOTAB UPDATE CIO TABLE P EJECT
0x1181e0…118374 (10, 37) Dummy {f00=0x0059, f01=0x0190, f02=»NDER NUMBER x P ADK A2,12 SKEW FACTOR PINT100 EQU * 2 P DVK 23 F P SLL A1,5 IN POSITION V $ P ORS A1,CIOTAB UPDATE CIO TABLE t P SLC A3,1 RESTORE A3 =9 P CW A3,CYLNBR & P RF(E) READER SAME CYLINDER NUMBER P EJECT
0x118374…118508 Dummy {f00=0x0059, f01=0x018e, f02=»DKL A2,SEKTAB PSEEKC1 EQU * P CIO A2,1,0 SEEK * P RB(NA) SEEKC1 B PSEEKC2 EQU * X P SST A2,0 l P RB(NA) SEEKC2 ~ P EJECT P* P* READ P* PREADER EQU * $ P LDK A4,3 NUMBER OF RETRIES =15 PREA1
0x118508…11869c Dummy {f00=0x0059, f01=0x0190, f02=» PREADC2 SST A1,0 STATUS & P RB(NA) READC2 LOOP UNTIL ACCEPTED & P ANKL A1,/FF0F STATUS P P RF(NZ) RET30 READING ERROR n : P LD A1,PSECPA+STKEND GET LOGICAL SECT. IN PHYSICAL =11 : P RF(NZ) REDMOV NOT FIRST LOGICAL SECT. IN PHYSICAL =11
0x11869c…118830 Dummy {f00=0x0059, f01=0x0190, f02=»10 EQU * P SUR A11,A11 RESET A11 ! P ADKL A12,1 ! . PTURN20 EQU * ! B P RTN A14 ! V P EJECT ! f P* ! t " P* MOVE UP NEXT LOGICAL SECTOR ! ~ P* ! PREDMOV EQU * ! 6 P ST A1,PSECPA+STKEND SAVE NEW LOGICAL SECTOR PART ! P SLL A1,1 =
0x118830…1189c4 Dummy {f00=0x0059, f01=0x0190, f02=» LDR A2,A9 DESTINATION ADDRESS ! P LDK A3,128 LENGTH IN WORDS " & PRMOV10 EQU * " J P LDR* A4,A1 . =15 " ^ P STR A4,A2 . =15 " x P ADK A1,2 " P ADK A2,2 " P SUK A3,1 " P RB(P) RMOV10 NEXT WORD " P RB TURN " P " P " P "
0x1189c4…118b58 Dummy {f00=0x0059, f01=0x0190, f02=» " z P* # PRET30 EQU * # P SUK A4,1 . =15 # & P RB(NZ) REA100 NEW TRY # > P LC A1,CIOTAB # P ANK A1,/C0 # r 4 P RF(NZ) RET31 LAST RETRY WITH EARLY OR LATE D.S # P LDKL A2,/8000 # 0 P ORS A2,CIOTAB PREPARE FOR EARLY DATA STROBE # P
0x118b58…118cec Dummy {f00=0x0059, f01=0x0190, f02=»RS A2,CIOTAB CHANGE FROM EARLY TO LATE D.S # P RB READER $ 2 PRET32 EQU * $ D P LDKL A2,/3FFF $ X * P ANS A2,CIOTAB RESET LATE DATA STROBE $ n P LC A1,CIOTOT $ P ANK A1,/C0 $ 4 P RF(NZ) RET33 LAST RETRY CARRIAGE+ OR CARRIAGE- $ P LDKL A2,/
0x118cec…118e80 Dummy {f00=0x0059, f01=0x0190, f02=»ERROR $ z P LDKL A2,/C000 % . P XRS A2,CIOTOT FROM CARRIAGE+ TO CARRIGE- % $ P RB READER % V P EJECT % h P* % v P* SEEK TABLE % P* % PSEKTAB EQU * % P DATA 0 % P* % P* CIO TABLE % P* % PCIOTAB EQU * % & P DATA 0 OR
0x118e80…119014 (10, 38) Dummy {f00=0x0059, f01=0x018e, f02=»/4000+128 DATA CHAINING BIT,NUMBER OF WORDS % " P DATA 0 ADDRESS1 MOST SIGN. =9 & 4 PCIOAD1 EQU * & Z P DATA 0 ADDRESS 1 & n PCIOPA2 EQU * & P DATA /4000+128 & $ P DATA 0 ADDRESS 2 MOST SIGN. =9 & PCIOAD2 EQU * & P DATA 0 ADDRESS 2 &
0x119014…1191a8 Dummy {f00=0x0059, f01=0x0190, f02=» P EJECT ' 8 P*************************************************** ' 8 P* * ' N 8 P* GETFIL - GET CONFIGURATION FILE * ' 8 P* =============================== * ' 8 P*
0x1191a8…11933c Dummy {f00=0x0059, f01=0x0190, f02=» * ' z 8 P* ENTRY: A9 - BUFFER ADDRESS * ( & 8 P* * ( b 8 P* EXIT: A11 - SECTOR ADDRESS TO CONF. FILE * ( 8 P*
0x11933c…1194d0 Dummy {f00=0x0059, f01=0x0190, f02=»UBROUTINES: READVL,READCF * ( 8 P* * ) 8 8 P*************************************************** ) t PGETFIL EQU * ) P CF A14,GETVLB ) PGET:10 EQU * ) " P CF A14,RDSEC GET VOLUME L
0x1194d0…119664 Dummy {f00=0x0059, f01=0x0190, f02=» ) z P CCR A5,A6 UNUSED FILE? * P RF(E) GET:50 YES! * ( P LDR A4,A6 START OF RECORD * B ( P LDK A5,'S' STANDARD FILE CHARACTER * d P CC A5,27,A6 STANDARD FILE? * P RF(NE) GET:50 NO! * * P LDK A5,'$' LEADING CHAR IN CONF. FILE * " P CCR A5,A4 C
0x119664…1197f8 Dummy {f00=0x0059, f01=0x0190, f02=» FILE? * r P RF(NE) GET:85 NO! + P ADK A4,5 SIXTH CHARACTER + ( , P LDK A5,':' CHARACTER TO PRECEED NUMBER + J ( PGET:30 CCR A5,A4 CONFIGURATION FILE? + z P RF(E) GET:40 YES! + P SUK A4,1 TRY NEXT CHARACTER + P CWR A4,A6 FIRST IN NAME? + P R
0x1197f8…11998c Dummy {f00=0x0059, f01=0x0190, f02=»FT DIGIT + ~ P SLL A5,8 SHIFT TO LEFT BYTE , P LC A5,2,A4 GET RIGHT DIGIT , 4 " P CALL CONVRT CONVERT TO BINARY , X , P CW A1,SCTANO SAME AS APPLICATION NUMBER , ~ P RF(NE) GET:50 , P* , P* CONFIGURATION FILE FOUND , P* , $ P LD A1,22,A6
0x11998c…119b20 Dummy {f00=0x0059, f01=0x0190, f02=» P* - PGET:50 EQU * - P ADR A6,A8 NEXT VTOC RECORD - " & P ADK A6,1 BYPASS STATUS CHARACTER - F , P SUK A7,1 MOORE RECORDS IN THIS SECTOR? - p P RB(P) GET:20 YES! - " P CWR A11,A10 LAST VTOC SECTOR? - P RB(NE) GET:10 NO! - 2 PGET:60 LDK A3,
0x119b20…119cb4 (10, 39) Dummy {f00=0x0059, f01=0x0190, f02=» FILE NOT FOUND - READ SOP AND SELECT - * P* LOAD MEDIUM FOR CONFIGURATION FILE . . P* . P* . f P LDKL A2,/7F8 . p & P OTR A2,0,SOP SWITCH ON SOP LAMPS . PGET:70 EQU * . P CF A14,SOPIN . " P ANKL A1,/7FC ALLOWED SWITCH? . P RB(Z) G
0x119cb4…119e48 Dummy {f00=0x0059, f01=0x0190, f02=» . l PGET:75 EQU * / 6 P SC A1,CONDEV+1+STKEND SAVE CONF. DATA LOAD DEVICE / ( P CF A14,CONFLD CONFIGURE LOAD DEVICE / V P RB GETFIL / PGET:85 EQU * / $ P CCK A3,'SS' LOOKING FOR $SWAPP? / P RF(NE) GET:99 NO! / & P LDK A5,0 RESET CHARACTER COUN
0x119e48…119fdc Dummy {f00=0x0059, f01=0x0190, f02=»DK A4,1 NEXT CHARACTER / * P ADK A5,1 INCREMENT CHARACTER COUNTER 0 & P CWK A5,8 ALL CHARACTERS CHECKED? 0 L P RB(NE) GET:90 NO! 0 v P* 0 : P* SWAPPABLE WORK BLOCK FILE FOUND - SAVE DISC ADDRESS 0 , P* TO FILE AND TO NEXT SECTOR AFTER FILE 0 P
0x119fdc…11a170 Dummy {f00=0x0059, f01=0x018e, f02=»WBFSA+STKCOM+2 SAVE 0 , P LD A3,SWPFEL,A6 GET BIT 16-31 OF LENGTH 1 . P LD A4,SWPFEL-2,A6 GET BIT 0-15 OF LENGTH 1 L ( P ADR A4,A2 ADD MOST SIGNIFICANT PART 1 ~ * P ADR A3,A1 ADD LEAST SIGNIFICANT PART 1 & P RF(O) GET:92 OVERFLOW - ADD CARRY 1 P RF GE
0x11a170…11a304 Dummy {f00=0x0059, f01=0x0190, f02=» 1 0 P ST A4,SWBFSE+STKCOM+2 SAVE BIT 0-15 OF D.A. 2 . P IM SWBFLG+STKCOM INDICATE SWB-FILE FOUND 2 < PGET:99 RTN A14 2 n P EJECT 2 : P***************************************************** 2 : P* * 2
0x11a304…11a498 Dummy {f00=0x0059, f01=0x0190, f02=» * 2 : P* LODSEG - LOAD ONE SEGMENT * 3 8 : P* ========================= * 3 v : P* * 3 : P* ENTRY: A8 - RELOCA
0x11a498…11a62c Dummy {f00=0x0059, f01=0x0190, f02=» * 3 n : P* EXIT: * 4 : P* * 4 Z : P* WORK REGISTERS: A1,A2,A3,A4,A7 * 4 : P*
0x11a62c…11a7c0 Dummy {f00=0x0059, f01=0x0190, f02=»***************************************************** 4 PLODCOM EQU * 5 > , P LD A9,MXBUF GET ADDRESS TO READ BUFFER 5 R " P LDR A3,A9 GET START OF BUFFER 5 P LDR A2,A3 SAVE 5 & P LDKL A7,240 NUMBER OF CODE WORDS 5 PLOD:10 EQU *-2 5 P LDR A10
0x11a7c0…11a954 (10, 40) Dummy {f00=0x0059, f01=0x0190, f02=»K IF IN END OF OF SEGMENT 5 P RF(P) LOD:50 NO YET! 6 " " P CWK A7,256 128 WORDS/SECTOR? 6 @ P RF(NE) LOD:30 NO! 6 f , P ADR A7,A10 COMPUTE NUMBER OF CODE WORDS 6 ( P LDKL A10,0 INDICATE END OF SEGMENT 6 P RF LOD:52 6 PLOD:30 EQU * 6 2 P ADR A
0x11a954…11aae8 Dummy {f00=0x0059, f01=0x0190, f02=»OCK 6 d P RF(NZ) LOD:50 NO! 7 P* 7 & 2 P ADK A7,8 YES, ADD 8 TO COMPENSATE FOR HEADER 7 0 : P CWK A7,240 LOOK IF OUTSIDE CODE PART OF SECTOR/BLOCK 7 f P RF(L) LOD:50 NO! 7 P* 7 ( P SUK A7,240 YES, GET WORDS REMAINING 7 P LDR A10,A7 AND SAVE
0x11aae8…11ac7c Dummy {f00=0x0059, f01=0x018e, f02=» ADR A2,A7 START OF RELOCATION BITS 7 P CF A14,REBUF RELOCATE 8 , PLOD:52 EQU * 8 J " P LDR A1,A9 START OF CODE PART 8 ^ , P LD A4,FSTSEC+STKEND FIRST SECTOR/BLOCK? 8 P RF(NZ) LOD:55 NO! 8 6 P IM FSTSEC+STKEND INDICATE NOT FIRST SECTOR/BLOCK 8 0 P
0x11ac7c…11ae10 Dummy {f00=0x0059, f01=0x0190, f02=» 4 P RF(N) LOD:54 APPL. LARGER THAN ONE SECTOR/BLOCK 9 P* 9 < 0 P CWK A3,240 SINGLE SECTOR/BLOCK APPLICATION? 9 F P RF(NG) LOD:55 YES! 9 z P* 9 PLOD:54 ADKL A10,8 9 PLOD:55 EQU * 9 , P LDR A3,A7 NUMBER OF CHARACTERS TO MOVE 9 ( P LD A2,LLD
0x11ae10…11afa4 Dummy {f00=0x0059, f01=0x0190, f02=»TEM 9 t P XIF : P IFT MMUPAG=0 : P CALL MOVE : . P XIF : @ P LDR A10,A10 END OF SEGMENT? : L P RF(NZ) LOD:70 : p P RTN A14 EXIT : PLODSEG EQU * : ( P LDKL A1,256 NUMBER OF WORDS/SECTOR : $ P ST A1,LOD:10 MODIFY INSTRUCTION : PLOD:
0x11afa4…11b138 Dummy {f00=0x0059, f01=0x0190, f02=»* : ` 6 P* * ; 6 P* REBUF - RELOCATE BUFFER ROUTINE * ; D 6 P* =============================== * ; ~ 6 P* * ; 6 P* REFERENCED IN: LOD
0x11b138…11b2cc Dummy {f00=0x0059, f01=0x0190, f02=» * ; f 6 P* A2 - START OF RELOCATION TABLE * < 6 P* * < J 6 P* EXIT: * < 6 P* * < 6 P* WORK REGISTER
0x11b2cc…11b460 Dummy {f00=0x0059, f01=0x0190, f02=» * < l 6 P* * = 6 P************************************************* = P PREBUF EQU * = . P LDR A4,A2 GET START OPF RELOCATION TABLE = P SUK A4,2 = PREB:10 EQU * = " P ADK A4,2 NEXT REL
0x11b460…11b5f4 (10, 41) Dummy {f00=0x005a, f01=0x0190, f02=»30 DON'T RELOCATE THIS WORD! = P LDR* A5,A3 GET CODE WORD > $ P ADR A5,A8 RELOCATE > F P STR A5,A3 STORE IT BACK > b PREB:30 EQU * > P ADK A3,2 NEXT CODE WORD > & P CWR A3,A2 END OF CODE WORD PART? > P RF(E) EXREL YES! > $ P SUK A6,1 MOOR
0x11b5f4…11b788 Dummy {f00=0x005a, f01=0x0190, f02=» > P EJECT ? . P***************************************** ? . P* GETCON - GET CONTENT IN MEMORY WORD * ? H . P***************************************** ? z P* ? P* REFERENCED IN: SEGGEN ? P* ? " P* ENTRY: A2 - MEMORY ADDRESS ? . P
0x11b788…11b91c Dummy {f00=0x005a, f01=0x0190, f02=» ? ~ P* @ P* SUBROUTINES: @ P* @ * PGETCON EQU * @ 4 " P LD A1,SCTOPT GET OPTION WORD @ H P ANK A1,1 MMU OPTION @ n P RF(Z) GCON10 NO MMU @ P ELR A1,A2 @ P RF GCON20 @ PGCON10 EQU * @ P LDR* A1,A2 @ PGCON20 EQU * @ P R
0x11b91c…11bab0 Dummy {f00=0x005a, f01=0x0190, f02=» @ b 2 P* SCNCON * A 2 P* ====== * A > 2 P* * A t 2 P* SCAN CONFIGURATION FILE FOR POSSIBLE * A 2 P* APPLICATION DEFINITION BLOCKS. IF
0x11bab0…11bc44 Dummy {f00=0x005a, f01=0x0190, f02=» * A 2 P* ENTRY: A9 INPUT BUFFER ADDRESS * B . 2 P* * B d 2 P* WORK REGISTERS A1-A8,A10 * B 2 P* * B 2 P*
0x11bc44…11bdd8 Dummy {f00=0x005a, f01=0x0190, f02=» * B r 2 P* * C 2 P********************************************* C N P* C P* C PSCNCON EQU * C * P CF A14,GETFIL GET CONFIGURATION FILE C 6 P ST A11,CONDAD+STKEND SAVE CONF. DISC FILE ADD
0x11bdd8…11bf6c Dummy {f00=0x005a, f01=0x0190, f02=»ED C j , P ST A8,ECNFBF+STKEND AND SAVE BUFFER END D P* D : $ P LDKL A10,0 RESET RECORD COUNTER D D 2 P LD A6,APLTAB+STKCOM GET APLTAB+STKCOM ADDRESS D l * P ADK A6,ACBLEN+2 SKIP 1ST TABLE BLOCK D $ P CF A14,RDSEC READ FIRST SECTOR D " P LDR A4,A9 GET S
0x11bf6c…11c100 Dummy {f00=0x005a, f01=0x0190, f02=» A1,'A;' APPLICATION DEFINITION BLOCK? D P RF(NE) SCAN10 NO! E . P* E H * P CF A14,APLID YES GET APPLICATION NAME E R PSCAN10 EQU * E ( P ADKL A10,1 INCREMENT RECORD COUNTER E & P CW A10,LSTREC+STKEND LAST RECORD? E P RF(E) SCNEND YES! E P* E
0x11c100…11c294 (10, 42) Dummy {f00=0x005a, f01=0x018e, f02=» CF A14,RDSEC READ NEXT SECTOR E $ P LDR A8,A9 RESET RECORD ADDRESS F & PSCAN20 EQU * F N P LDR A4,A8 GET RECORD START F b $ P RB SCAN00 CONTINUE SCAN PROCESS F P* F $ P* THE WHOLE CONFIGURATION FILE F $ P* IS PROCESSED. SEARCH VTOC FOR F " P
0x11c294…11c428 Dummy {f00=0x005a, f01=0x0190, f02=» 0 P LD A1,IPLDEV+STKEND CONFIGURE PGM LOAD DEV. G P CF A14,LODDEV G 8 8 P LD A6,APLTAB+STKCOM GET APLTAB+STKCOM START ADDRESS G N * P ADK A6,ACBLEN+2 SKIP 1ST TABLE BLOCK G 0 P LD* A1,APLTAB+STKCOM GET NO OF APPLICATIONS G P SUK A1,1 DECREMENT G $ P
0x11c428…11c5bc Dummy {f00=0x005a, f01=0x0190, f02=»PDATE APPLIC. DISC ADDR. G P* H PRTRN EQU * H * P RTN A14 END OF SCNCON H < P EJECT H Z 2 P********************************************* H h 2 P* * H 2 P* * H 2
0x11c5bc…11c750 Dummy {f00=0x005a, f01=0x0190, f02=» * H v 2 P* APLID TAKES THE NAME OF APPLICATION * I 2 P* AND MOVES IT FROM CONF. FILE TO * I R 8 P* APLTAB+STKCOM. FOR EACH APPLICATION A ENTRY * I 8 P* IN APLTAB+STKCOM IS CREATED ACCORDINGLY: * I 2 P*
0x11c750…11c8e4 Dummy {f00=0x005a, f01=0x018e, f02=» * I l 2 P* * J 2 P* THE NAME ENTRY CONSISTS OF 1-4 WORDS * J H 2 P* * J ~ 8 P* ENTRY: A6 POINTER INTO APLTAB+STKCOM * J 2 P* A8 RECORD POIN
0x11c8e4…11ca78 Dummy {f00=0x005a, f01=0x0190, f02=» 2 P* WORK REGISTERS: A1-A5 * K 2 P* * K : 2 P********************************************* K p P* K P* K PAPLID EQU * K ( P ADKL A10,1 INCREMENT RECORD COUNTER K & P CW A10,LSTREC
0x11ca78…11cc0c Dummy {f00=0x005a, f01=0x0190, f02=» K f ( P CW A8,ECNFBF+STKEND OUTSIDE SECTOR? L P RF(NE) APLID0 NO! L 4 P* L N " P CF A14,RDSEC READ NEXT SECTOR L X P LDR A8,A9 GET RECORD START L ~ PAPLID0 EQU * L P LDR A4,A8 RECORD START L & P LDK A5,0 RESET CHARACTER COUNTER L PAPLID2 E
0x11cc0c…11cda0 Dummy {f00=0x005a, f01=0x0190, f02=»DK A4,1 INCREMENT CHARACTER POINTER L ( P ADK A5,1 INCREMENT CHARACTER COUNT M , & P CWK A5,NCHAID END OF THIS RECORD? M X ( P RB(NE) APLID2 NO GET NEXT CHARACTER M P* M " P* END OF NAME RECORD, LOOK IF M $ P* NEXT CHARACTER IS A DELIMITER M P*
0x11cda0…11cf34 (10, 43) Dummy {f00=0x005a, f01=0x0190, f02=»DK A5,0 M . P ABL(Z) CONERR NO LEGAL CHARACTER IN NAME N P* N B P LDR A3,A6 SAVE BLOCK START N L 0 P STR A5,A3 SAVE NAME LENGTH IN APLTAB+STKCOM N p . P IM* APLTAB+STKCOM INCREMENT NO OF APPLIC. N ( P LDR A4,A8 GET START OF NAME RECORD N ( P ADK A
0x11cf34…11d0c8 Dummy {f00=0x005a, f01=0x0190, f02=»R N r * P LDR* A1,A4 MOVE 2 CHARACTERS OF NAME O P STR A1,A3 TO APLTAB+STKCOM O 8 ( P ADK A4,2 ADVANCE CHARACTER POINTER O " P SUK A5,1 DECREMENT WORD COUNT O * P RB(P) APLID6 MORE CHARACTERS TO MOVE O P* O 0 P ADK A6,ACBLEN PREPARE FOR NEXT TA
0x11d0c8…11d25c Dummy {f00=0x005a, f01=0x0190, f02=» * O z 2 P* * P 2 P* GETAPL * P V 2 P* ====== * P 2 P* * P 2 P* SCANS VTOC FO
0x11d25c…11d3f0 Dummy {f00=0x005a, f01=0x0190, f02=»THE LENGTH * P r 8 P* OF APLTAB+STKCOM IS THEN USED TO CALCULATE * Q 2 P* START OF FREE AREA. * Q T 2 P* * Q 8 P* ENTRY: A6 - 1ST ENTRY IN APLTAB+STKCOM * Q @ P* AP
0x11d3f0…11d584 Dummy {f00=0x005a, f01=0x0190, f02=»******************* Q v P* R P* R & PGETAPL EQU * R 0 $ P CF A14,GETVLB READ VOLUME LABEL R D PGETAP0 EQU * R l P CF A14,RDSEC READ SECTOR R ( P LDK A7,QBLFAC VTOC BLOCKING FACTOR R " P LDR A4,A9 GET START OF RECORD R PGETAP2 EQU * R ( P
0x11d584…11d718 Dummy {f00=0x005a, f01=0x0190, f02=» CHAR. ENTRY R | . P LCR A2,A4 GET 1ST CHARACTER IN FILE NAME S P CCK A2,/2020 UNUSED? S F P RF(E) GETAP4 YES! S d P* S ~ " P CF A14,CMPSYM COMPARE SYMBOLS S P ADK A5,0 S P RF(Z) FOUND EQUAL S P* S $ P* NO MATCH, TRY NEXT VTOC ENTRY S
0x11d718…11d8ac Dummy {f00=0x005a, f01=0x0190, f02=»THIS SECTOR S v P RB(P) GETAP2 YES! T P* T . " P CWR A11,A10 LAST VTOC SECTOR? T 8 & P ABL(E) CONERR ERROR IN CONF. FILE T ^ P* T P RB GETAP0 T P* T PFOUND EQU * T $ P LDK A2,'L' LOAD FILE CHARACTER T P CC A2,27,A4 LOAD FILE? T *
0x11d8ac…11da40 Dummy {f00=0x005a, f01=0x0190, f02=»TAB+STKCOM T t . P LD A2,18,A4 GET DISC ADDRESS (BITS 16-31) U 0 P ST A2,APLADA+2,A6 AND SAVE IN APLTAB+STKCOM U D . P ADK A6,ACBLEN ADVANCE TO NEXT TABLE BLOCK U x P* U 2 P IM APLCNT+STKEND INCREMENT APPLICATION COUNT U P RB(NZ) GETAPL MORE TO DO! U
0x11da40…11dbd4 (10, 44) Dummy {f00=0x005a, f01=0x0190, f02=» * U x 2 P* * V 2 P* CMPSYM * V T 2 P* ====== * V 2 P* * V 2 P* COMPARE TWO SYM
0x11dbd4…11dd68 Dummy {f00=0x005a, f01=0x0190, f02=» V b 2 P* A1 - START OF SYMBOL 2 * W 2 P* A5 - LENGTH OF SYMBOL 2 * W > 2 P* * W t 2 P* EXIT: A5 = 0 IF SYMBOLS EQUAL * W 2 P*
0x11dd68…11defc Dummy {f00=0x005a, f01=0x018e, f02=»SYMBOL 1 W t 2 P CCR A2,A1 COMPARE WITH CHARACTER IN SYMBOL 2 X ( P RF(NE) CMPEND IF NOT EQUAL, RETURN X F P* X r ( P ADK A3,1 ADVANCE CHARACTER POINTERS X | P ADK A1,1 X ( P SUK A5,1 DECREMENT CHARACTER COUNT X , P RB(NZ) CMPSYM CONTINUE THE COMPAR
0x11defc…11e090 Dummy {f00=0x005a, f01=0x0190, f02=» P* Y . P LCR A2,A3 GET NEXT CHARACTER IN FILE NAME Y $ P CCK A2,/2020 END OF FILE NAME? Y @ P RF(E) CMPEND YES! Y h P* Y P LDK A5,1 NO, NOT EQUAL! Y PCMPEND EQU * Y P RTN A14 END OF CMPSYM Y P EJECT Y 2 P****************************
0x11e090…11e224 Dummy {f00=0x005a, f01=0x0190, f02=» GETVLB * Y 2 P* ====== * Z 4 2 P* * Z j 2 P* READ SECTOR CONTAINIG VOLUME LABEL * Z 2 P* * Z
0x11e224…11e3b8 Dummy {f00=0x005a, f01=0x0190, f02=»RD LENGTH * Z x 2 P* * [ 2 P********************************************* [ T P* [ P* [ PGETVLB EQU * [ P SUR A11,A11 VOLUME LABEL [ P SUR A12,A12 [ " P CF A14,RDSEC GET VOLUME LABEL [
0x11e3b8…11e54c Dummy {f00=0x005a, f01=0x0190, f02=»ENGTH [ r . P AD A11,46,A9 FIRST FILE SECTOR IN VTOC =7 P RTN A14 END OF GETVLB @ P* ^ P EJECT h 2 P********************************************* v 2 P* * 2 P*
0x11e54c…11e6e0 Dummy {f00=0x005a, f01=0x0190, f02=» * 2 P* READS A SECTOR FROM INPUT DISC. * ] * 2 P* * ] ` 2 P* ENTRY: A9 - BUFFER ADDRESS * ] 2 P* A11- SECTOR ADDRESS * ] 2 P*
0x11e6e0…11e874 (10, 45) Dummy {f00=0x005b, f01=0x0190, f02=»*********** ] n P* ^ P* ^ PRDSEC EQU * ^ ( " P CF A14,READS MODIFIED ADDRESS ^ < PREADS EQU *-2 ^ b P RTN A14 ^ x P EJECT ^ P* ^ P* DATA AREA DEFINITION ^ P* ^ PSYSBAS EQU * ^ PSAVCON DATA BUFLEN ^ 2 PMXBUF DATA 0 DIS
0x11e874…11ea08 Dummy {f00=0x005b, f01=0x4168, f02=»ECTOR NUMBER ^ x P IFT CDDISC=1 =9 _ P IFT CDDI16=0 =9 _ . * PDEVTAB DATA 0,/1909,/3717,/2808,/1404 _ H P XIF =9 _ v P IFF CDDISC-CDDI16=1 =9 _ , PDEVTAB DATA 0,/1909,/3717,/2808,/5717 =9 _ P XIF =9 _ $ PSWPTAB DATA '$S','WA','P ','
0x11ea08…11eb9c Dummy {f00=0x005b, f01=0x2008, f02=» ` P X ` h p
0x11eb9c…11ed30 Dummy {f00=0x005b, f01=0x0000, f02=» DUPLICATES_NOT_ALLOWED DUPLICATES_ALLOWED CON_TYPES NOT_COND YES EXP_TYPES IDENTICAL UNIDENTICAL FPB FM_COMMAND_CODES FM_OPEN FM_CREATE FM_EXTEND wFM_CLOSE FM_DELETE FM_READ_FILE_PARAMETERS F
0x11ed30…11eec4 Dummy {f00=0x005b, f01=0x0000, f02=» D F ;z @ D F ;z A D F0 ;z B D F@ ;z C D FP ;z D D P ;z F D " ;z P Fp F`F ) ;z P C F`
0x11eec4…11f058 Dummy {f00=0x005b, f01=0x0000, f02=»
0x11f058…11f1ec Dummy {f00=0x005b, f01=0x0000, f02=» SOP_SWITCH_NR NO_OF_INDEX_FILES KEY_ADDRESS DUMMY_5 EDM_PART ORDER_FIELD ECB ^FILLER_0 FILE_NUMBER BUFFER_ADDRESS FPB_ADDRESS REQUESTED_LENGTH BLOCK_LENGTH EFFECTIVE_LENGTH RETURN_CODE RETURN_CO
0x11f1ec…11f380 Dummy {f00=0x005b, f01=0x0000, f02=» C C ;z ;z D D F` ;z D- D D= ;z D DM ;z D D] ;z D Dm " ;z D D} ( ;z D D -
0x11f380…120020 (11, 0) DirGranule ((11, 0)) {
0x11f380…120020 DirEnt {nam=»UPD6.2«, typ=» «, f00=0x0000, f01=0x0000, f02=0x0b68, f03=0x0000}
0x11f380…120020 DirEnt {nam=»TOSSUT«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0b70, f03=0x0000}
0x11f380…120020 }
0x120020…1201b4 (11, 1) Opaque[0x194]
0x1201b4…120348 # DirEnt {nam=»TOSSUT«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0b70, f03=0x0000}
0x1201b4…120348 IdxSect {
0x1201b4…120348 f00 = 0x005b // 0x1201b4 @0x0
0x1201b4…120348 f01 = 0x0018 // 0x1201b6 @0x2
0x1201b4…120348 gno = [ // 0x1201b8 @0x4
0x1201b4…120348 [0x00]: C0x005b.0x2.0
0x1201b4…120348 [0x01]: C0x005b.0x3.0
0x1201b4…120348 [0x02]: C0x005c.0x0.0
0x1201b4…120348 [0x03]: C0x005c.0x1.0
0x1201b4…120348 [0x04]: C0x005c.0x2.0
0x1201b4…120348 [0x05]: C0x005c.0x3.0
0x1201b4…120348 [0x06]: C0x005d.0x0.0
0x1201b4…120348 [0x07]: C0x005d.0x1.0
0x1201b4…120348 [0x08]: C0x005d.0x2.0
0x1201b4…120348 [0x09]: C0x005d.0x3.0
0x1201b4…120348 [0x0a]: C0x005e.0x0.0
0x1201b4…120348 [0x0b]: C0x005e.0x1.0
0x1201b4…120348 ]
0x1201b4…120348 }
0x120348…1204dc Dummy {f00=0x005b, f01=0x0190, f02=» . ] h : j 0 ,* # +, + RC:
0x1204dc…120670 Dummy {f00=0x005b, f01=0x0190, f02=» "END OF ; PROGRAM ABORTED BY
0x120670…120804 Dummy {f00=0x005b, f01=0x0190, f02=» B B $ A T C A T C B ZVT @ lT J B R [ B : B ; [ H * % A J B A B L ( B Tj @ B! F A F a FP4 @ J T @ H A H R _F P a H A H_T W a H B
0x120804…120998 Dummy {f00=0x005b, f01=0x0190, f02=»P I , =Z I , * _: 8 ,>A P 8 Z : ; L , [ A " j , 9 : Z : [ * J / L Z : R < !LLP !XXP : T D @ L 4T 4 6T A j : T @ h A j : @ L 6T T W T @ j A hW
0x120998…120b2c Dummy {f00=0x005b, f01=0x0190, f02=»Sd S _4 SN _ SD _: A R Z T T @ RT W" >P T Z Z Z Z : [ _* [ [ Q. , 0R" 9U AR FQ 0 P =D _, [ Z Z : = ! U 9 - Y : [ [ [ [ [ [ [
0x120b2c…120cc0 Dummy {f00=0x005b, f01=0x0190, f02=» J T7v ^ Xv V _T W6 [ Z Z Z Z Z Z Z : T1$>EV U2(ZN T T T W T. C @ L 4T 3 6T @ d ) A d TD @ j @ f:B @ f E A f 7v D & @ L 6T
0x120cc0…120e54 (11, 2) Dummy {f00=0x005b, f01=0x0190, f02=» @ P r>AV 54W W | r T A fW T A d @ P @ L 4T T T @ T >BV -Wt>AV -Wl>AVh B j R _ TJ B V@ R6 _ @ T M @ R - B RL M M WB T69 A T B f R& T1$> R > @ L T
0x120e54…120fe8 Dummy {f00=0x005b, f01=0x0190, f02=» A ' A * J / L A f A d P _ @/ @ j EXT ( H/ P X$_ @ l I/ :a A L A N ;a L1 # A A P A TH #( W0 @ P #( : > M ^ / R 0 ;a;A _ @ L
0x120fe8…12117c Dummy {f00=0x005b, f01=0x0190, f02=» R A _. @ L <R A L T @ T S 7< P^Q0 T$ W2FUNCTION NOT IN THIS PACKAGE ; nW ;A @ L H8z , & P J @ L:A H/ A ` H/ A b X & ( J LLPOP SLX TK1 TK2 MT1 MT2 pqCSH FLOGFI
0x12117c…121310 Dummy {f00=0x005b, f01=0x0190, f02=» P II S R : t @ j AP IP QP : : @ j !NNP !YYP t A P : R l @ @ S : @ L .P 0P T S : S : S : S ( ! T ) : R !IIP !EEP : @ j! P P t A P : @6H" ( " R @ P
0x121310…1214a4 Dummy {f00=0x005b, f01=0x0190, f02=» t A P : NW t @ j CDP" FDP MDP DUT : S : W A : @ j $P WZ 9a D A P : @ j I P ^ : : R I j W$ : @ j! YT A P @ L &T : X : @ j NEX$ EQX,_ @ P @Y$ : A W* A A A A W$ A A
0x1214a4…121638 Dummy {f00=0x005b, f01=0x0190, f02=» P P _ @ T A A W @ P A _ A _ ( ] ' ( = ( ' ( = P P P P _* _0 ( ] @ @ A ( B A A ( @ L 2Pv @( !LLPD !XXP> A A !DDT A
0x121638…1217cc Dummy {f00=0x005b, f01=0x0190, f02=» TYPE; P P j 8 D: 8 @ @ P ]( ^ @ ( ] ' ( = ( ' ( = P P P P P _, _2 @ L *T @ L *T ( B C W @ P @ T ( B C @
0x1217cc…121960 Dummy {f00=0x005b, f01=0x0190, f02=» P W ( @ b Q 9A D: T T 8FATAL DM OPEN ERROR ; FATAL FM OPEN ERROR ; DISC I/O ERROR; ' T @ T *] : @ j DKTj A : @ j DKP WX A : @ j DKX. W6 S DK A H H P
0x121960…121af4 (11, 3) Dummy {f00=0x005c, f01=0x0190, f02=» P : @ j @ l "P ^ W C ;b : @ j! YT A P : P Wb _ 0 W 0 W WH : @ j R< I : @ L P$ @ P W @ j! P !P T A P : [ : VW A 2W _ A W< @ P # ( B # TlW IBM LABEL;TOSS LABEL;
0x121af4…121c88 Dummy {f00=0x005c, f01=0x0190, f02=» & _ j N Z rQ@ , 0P @ X N : %U : : ,! 9D ," : , 0 & N 0_. A R l @ P A ` V m j^ i 00 jR _ a V j ] @ Y : : : R_ _ S : W @ A P
0x121c88…121e1c Dummy {f00=0x005c, f01=0x0190, f02=» C C ( B P A j :
0x121e1c…121fb0 Dummy {f00=0x005c, f01=0x0190, f02=»
[…0xe…]
0x1235c8…12375c Dummy {f00=0x005c, f01=0x0190, f02=» CC: TRY AGAIN!! CRV CRF DLF PVC XEYf ,eh ik g g g 8
0x12375c…1238f0 Dummy {f00=0x005c, f01=0x0190, f02=» j#g kqpc[ ]^_d`ah tuvscr[ ]^_d`ah w{xh )*+h h 9:h Zc[ ]^_d`abh Z c[ ]^_d`abh NP B AI k wx yz | A A V! VAW!T T"V"$, B A A A A A A AVAVA T A A A A V!VAVA A A
0x1238f0…123a84 Dummy {f00=0x005c, f01=0x0190, f02=» T QT A A A A " A
0x123a84…123c18 Dummy {f00=0x005c, f01=0x0190, f02=» c N @ d
0x123c18…123dac Dummy {f00=0x005c, f01=0x0190, f02=» | N B B B ( , N B R 2 8 R R R V B R z B R B B r B B R R
0x123dac…123f40 Dummy {f00=0x005c, f01=0x0190, f02=» 6 4 5 " ( . 5 : 8 * H < 8 ( ( . 2 e K WF]l B
0x123f40…1240d4 (11, 6) Dummy {f00=0x005c, f01=0x0190, f02=»; =d=t= ;N= = = ; =d<0 = = >l= = > <6>4>B>T>l>r>z> ; > > ; > ? >l? ? ? <n; ?4; ?F?T?h?z? ? ? ? ? ? ? @ @* @B?T;&@z@ @ @ @ @ @ @ @ ; ;*?T;*A ; A A,< 8 9 9 9.9:9D9N9`9p9p9 9 9 9 9 9 9 9 9 9 : : :B:P:^:n:x:.: Z8 8 b8 x8 {8 8 k8 8 8
0x1240d4…124268 Dummy {f00=0x005c, f01=0x0190, f02=»D EXE C,C BbBbA H8HPA F A@A B B B E HhG C C,C@CbCtC C C C C C B E B A@A A E F G G A@A D`A@A DzB BvA@A B B B D D A@A B B B D D.D A@A D D D EDA@A A D C,C B D E E B B B C,C B GxE E B B B E0E C,C EnB B B A@C,C B D E E B B E C F F I>F IX A D DJ BJ
0x124268…1243fc Dummy {f00=0x005c, f01=0x0190, f02=» Fh A@PRINT DEVICE:;SOURCE RESP. DESTINATION DISC:;VOLUME NAME:; VOLUME NAMES:;OLD FILE NAME:; NUMBER OF VTOC ENTRIES:;CREATION DATE:; RETENTION PERIOD:;BLOCKING FACTOR:; EFFECTIVE RECORD LENGTH:; MAXIMUM NUMBER OF RECORDS:; SECTOR NUMBER:;
0x1243fc…124590 Dummy {f00=0x005c, f01=0x0190, f02=»TPUT DEVICE:; LABELLED TAPE:; SEQ. NUMBER INPUT TAPE:;SEQ. NUMBER OUTPUT TAPE:; BLOCK FACTOR INPUT TAPE:; BLOCK FACTOR OUTPUT TAPE:;TAPE VOLUME ID:;RECORD LIMITS:; PRINT FORMAT:;RECORD KEYS IN LISTING:;CHARACTER CODE:;PROGRAM LENGTH:;MONITOR NUMBER:;START SWITCH O
0x124590…124724 Dummy {f00=0x005c, f01=0x0190, f02=»ION:; DATASET NUMBER:;NUMBER OF INDEX FILES:; KEY ADDRESS WITHIN DATA RECORD:;KEY LENGTH IN DATA RECORD:; RECORD LENGTH INPUT TAPE:;LOAD FACTOR:; INDEX FILE NAME:; MASTER INDEX FILE NAME:;INPUT DEVICE:;PTS 6876 DISC :;MAX NO OF RECORDS ON OUTPUT INDEX FILE:;SUB-KE
0x124724…1248b8 Dummy {f00=0x005c, f01=0x0190, f02=»DING ORDER:;REORGANIZE DISC:; DISC VERSION:;INDEX VOLUME NAME:; DUPL. ALLOWED: ; COND. INDEX: ; EXP. TYPE:; COND ITEM DISPL.:; COND ITEM VALUE:; ITEM DISPL.:; ITEM LENGTH:; INDEX FILE LENGTH:; *** INDEX DESCRIPTION ***;*** KEY DESCRIPTION ***;TESTIN
0x1248b8…124a4c Dummy {f00=0x005c, f01=0x0190, f02=»EVICE :; EXTENSION SIZE :; FUNCTION :; USAGE :;USAGE :;VOLUME NAME OF WORKFILE:; ALL INDICES:; LOG FILE VOLUME NAME:;LOWER RECORD LIMIT:;UPPER RECORD LIMIT:;DISC NOT OPERABLE;BADSPOT ON SYSTEM AREA. DISC NOT USEABLE; MORE THAN 18 BADSPOTS.DISC NOT USABLE;DISC I
0x124a4c…124be0 Dummy {f00=0x005c, f01=0x0190, f02=»NGTH; VTOC OVERFLOW;NO FREE SPACE ENTRY AVAILABLE;FILE NAME ALREADY USED; NO TOSS DISC FORMAT;TAPE UNIT NOT OPERABLE; OUTPUT DISC NOT EMPTY;FAULTY RECORD LENGTH; OUTPUT FILE NOT LARGE ENOUGH; OUTPUT FILE NOT EMPTY;TAPE UNIT NOT LOCKED/LOADED;INCORRECT TNR;OUTPUT I
0x124be0…124d74 (11, 7) Dummy {f00=0x005d, f01=0x0190, f02=»L RECORD; LABEL RECORD MISSING; UNEXPECTED TAPE MARK; LABEL RECORD ERROR; ILLEGAL BLOCK LENGTH ON INPUT;EOF INSIDE SPLITTED RECORD; INPUT VOLUME NAME UNKNOWN;OUTPUT VOLUME NAME UNKNOWN; OLD FILE NAME UNKNOWN;FLEX. DISC ALREADY LOCKED;FLEX. DISC NOT LOCKED;FLEX. DI
0x124d74…124f08 Dummy {f00=0x005d, f01=0x0190, f02=»; KEY DEF. ERROR; LOAD FACTOR TOO SMALL;KEY SEQUENCE ERROR; DATA SET DEF. ERROR;ILLEGAL SECTOR NUMBER;CARD READER NOT OPERABLE; FILE ORG. ERROR;CORE AREA TOO SMALL;RECORD NOT IN FILE-END OF MEDIUM; ILLEGAL POSITION NUMBER;NOT ALLOWED TO MIX DISCSIZES; NOT ENOUGH C
0x124f08…12509c Dummy {f00=0x005d, f01=0x0190, f02=»; TOTAL KEY LENGTH TOO LONG;FM I/O-ERROR: ; DESCRIPTOR BLOCK TOO LONG;OPERATOR ABORTED; FILE ATTACHED;ONLY D-PART DELETED;DATA ERROR ON ONE OR MORE DISC SECTORS;TAPE WRITE PROTECTED; FATAL TAPE ERROR; TAPE NOT CREATED BY CDT;COPY NOT SUCCESSFULL; DUPLICATE KEYS I
0x12509c…125230 Dummy {f00=0x005d, f01=0x0190, f02=»ATION ERROR;KEY ALREADY EXISTS; NOT EXISTING KEY; NO INDEX LEFT;SOURCE DISC DATA ERROR:;DEST. DISC DATA ERROR:; NO INDICES; USER INFORMATION CONFLICTS WITH LOG INFORMATIOM ;CREATE BUFFER FILE NOT SUCCESSFUL ;ERROR ON FUNKTION LOG FILE ;BUFFER FILE NOT BIG ENOUGH
0x125230…1253c4 Dummy {f00=0x005d, f01=0x0190, f02=»ECT MMU-BUFFER LENGTH ; ( 8 ) 9 DUFDMD [ ; @I HI -P Z : : HI M :B L # ;A HI @ P 0!? T P $ _@ P ZH P ! _ DU2 DU1 DU4 DU3 MD1 MD2 MD3 MD4 FD1 FD2 FD3 FD4 CD1 CD2 CD3 CD4 TOSS UTILITIES
0x1253c4…125558 Dummy {f00=0x005d, f01=0x0190, f02=» AJ AJ AJ AJ AJ AJ AK AK R % KZ P AJ @J P Wp @J : R !LLPB !XXPh R 1 R 2 Y AK AK AK Y AK AK @K W S 1 AK S 2 AK AJ K N : S 1 AK S 2 AK _.
0x125558…1256ec Dummy {f00=0x005d, f01=0x0190, f02=» Q* ( , X "' P [& I _ "' AJ @J M R 0 $' R T W $ T AJ R !LLP @J T AJ AJ R 1 R 6 AJ R 4! AJ PJ AJ AJ @J @J w AJ AJ S$ @J @J w Y4 @J AJ @J AJ W : AJ AJ @J @J @K w
0x1256ec…125880 Dummy {f00=0x005d, f01=0x0190, f02=» @J @J w AJ AJ AJ R AJ AJ AJ . AK 9H AK AK AJ AJ AJ @J P AJ AJ B AK ( B P @J C C C ( C B / P : @K :c AK AJ AJ AJ AJ @J AJ @J AJ AJ @J @J w AJ AJ @J AK C C
0x125880…125a14 (11, 8) Dummy {f00=0x005d, f01=0x0190, f02=»J 0 AJ @J T @J X @J @J R&Q @J @J R @K AK @J AJ @J AJ @J @J Z Q @J @J Z @J @J RBQ @J @J U6 @J @J Y R @J @J Y AJ @K AK @J AJ @J AJ _ @J AJ @J AJ @J AJ @J AJ @K AK Q* U Tr Q 1 Q Q T AW@ AJ J R AJ @K A
0x125a14…125ba8 Dummy {f00=0x005d, f01=0x0190, f02=»( B / P @W@ : @W@ P R @J AJ @J AJ !LLPZ @J T @J @K V @K AK R P P AJ P AJ @J @J @J @J w AJ AJ Rv P$W8 @J @J @J @J w AJ AJ SH @J P P AJ P AJ @J @J P P w Q Q @J Q @J 1 U P P> P
0x125ba8…125d3c Dummy {f00=0x005d, f01=0x0190, f02=» w Q Q P AJ 0 AJ @J @J @J w AJ AJ T Q Q @J Q @J 1 @J @J @J @J w AJ AJ AJ AJ @J P @J @J @J @J w AJ AJ U P P> P AJ AJ @J ? N : AK P> ( P6 . P. @J P @J AJ @J AJ @J AK T K N :
0x125d3c…125ed0 Dummy {f00=0x005d, f01=0x0190, f02=» _ J X`_2 AJ : @J T SL @J P Q : J SL @J Z` @J K @J K @J K @J K @J K @J K K K R 2 K R 1:H R K R !LLT R 4:H R 5 K K $ K & AJ ( Z` . " Z` R !LLP R : K % R 8 K & K ( K ) (
0x125ed0…126064 Dummy {f00=0x005d, f01=0x0190, f02=»J SJ AJ V 2 AJ @K % @J R 2 R 1 % Y @J AJ @J AJ @J @J AJ AJ w AJ AJ J @K C @J AJ @J AK ( C @J @J @K @J P @J w AJ AJ @J @J YXR @J @J Yd @J AJ @J AJ @K C @J AJ @J AK ( C @J
0x126064…1261f8 Dummy {f00=0x005d, f01=0x0190, f02=» Z Z` AZr ( Z 9 AZ ( Z Z` @J 0 AZ @J @J Z wn @J @J [ wn J [ @J T [ Z` Z A AZ ( J @J : AJ AK AK R % Wl T @J T : AJ AJ K AJ T@W AK P> SL @J P& T ( P .
0x1261f8…12638c Dummy {f00=0x005d, f01=0x0190, f02=»K 9c AK @K R C @J C AK AK R AJ P Z. R R4 B C AK AW@ C ( B / P R @W@ 0 AWB 0 AWD @WBT @WD Z P @J T @K AK P @J W AJ AJ AW@ @WB @WD P P w AWB AWD @J @J @W@ @J @WBT @J @WDT P AJ
0x12638c…126520 Dummy {f00=0x005d, f01=0x0190, f02=» P> K K P ] = ] ] W AJ AJ AW@ P P @J @J w AWB AWD @J @J @W@ @J @WB XT @J @WD XT @J Q @J Q AK P>_ @K AK XT W R P @J I @J ) @J I @J I W ( - : Zz FILE Z 9 VOLUME N
0x126520…1266b4 (11, 9) Dummy {f00=0x005d, f01=0x0190, f02=» DELETEDDU1 DU2 DU3 DU4 MD1 MD2 FD1 FD2 1 0 0VOLUME NAME: DISC: 0FREE SPACE TABLE 0EXT BASE EXT LENGTH OF ENTRIES USED 0VOLUME TABLE OF CONTENTS 0FILE
0x1266b4…126848 Dummy {f00=0x005d, f01=0x0190, f02=» EXT BASE EXT LEN ORG LENGTH FACT REC NO SEC NO EXT NO DATE PER FILES ADDRESS NO NO/SOP 0NUMBER OF FREE ENTRIES IN VTOC = ( - : ]( C ( B bD b8 : ]4 2 A] A[ A] R A]) R A]
0x126848…1269dc Dummy {f00=0x005d, f01=0x0190, f02=» C ( B & B & b< B b2 2 R A]6 ]6 [b , 9 TO 4 bH 4 I[z Y [J ]F [R $ ]F [x ]F , A[ , A[ , A[ " , A[ @[ >c A[ A] ] C ( B . b2 B & b< A] [N ]F [ ]F [
0x1269dc…126b70 Dummy {f00=0x005d, f01=0x0190, f02=»[ wn [ ]F Y W Y @[ [ vh @[ [ vh [ ]F [N ]F [ ]F n ]F n ]F [ [ [ [ [ b ] ( B . b2 B & b< [ [ ]B *% a R p [ R ]8 J U !
0x126b70…126d04 Dummy {f00=0x005d, f01=0x0190, f02=» - U T U Z J 8 vh J ? vh J J wn J J wn - J J wn J " ( vh E ]8 " N ]8 J !LLP6 J " vh J !SST J % T vh J & X vh [ R p $ ! R !__Q Y . % Y p ]F W A
0x126d04…126e98 Dummy {f00=0x005d, f01=0x0190, f02=» b 0NUMBER O
0x126e98…12702c Dummy {f00=0x005d, f01=0x0190, f02=»SS REL 11.0 NUMBER OF CATALOGED BADSPOTS = Z $ Ad D Ad D Ad D Ad D Ad" [ : Z $ Ad D Ad D Ad D Ad D Ad [ : Z $ Ad$ D Ad& D Ad( D Ad, [ : cR C
0x12702c…1271c0 Dummy {f00=0x005d, f01=0x0190, f02=»e8 e8 e8 : cD 2 C C ( B & m B .P " T m : 0 Ac Ad. UU Ad6 Ad8 Ad< @ AcH Ac: d R ' P gB P P0 PV P| P d } ~ dT M g d dT [g [h 4 d [4 4 g
0x1271c0…127354 (11, 10) Dummy {f00=0x005d, f01=0x0190, f02=» g R P P W< dT &? &@ d h h h g d y z { dT g d z { | dT &? &@ g R P P W< d h h h dT L L g d y z { dT 1g 1h g d z { | dT L L g 2 AcF Ac8 $ AcS $ Ac7 AcE R ! R
0x127354…1274e8 Dummy {f00=0x005d, f01=0x0190, f02=»9 R ! T : m m cD C C C B % E E AdR ( B ! : m C x AcF AcF m cD R R C & V8 c d cD P T R IT C W C ( C ( B R % R E R E B Nc % Z R
0x1274e8…12767c Dummy {f00=0x005d, f01=0x0190, f02=» IP @dRP t m AdB 2 AcF d6 Ac c d cD @dBP W AcH 2 d e( d @dBT e( d ( AdB B & m B m P2 T m dN dP B >( r m dN dP e( @d @d U Y
0x12767c…127810 Dummy {f00=0x005d, f01=0x0190, f02=»( dBP e8 e8W eV c6 B & m B P Wt @c: Y 2 d2 d4 d: @d< Ad: @d: $T d: @d< Ad: @d: $P d2 d4W( @d6 $ Y P e(_R d2 d4W. T m dN dP @c:>( r m dN dP @dBP eH e( e( AdB Ac:W eH eH @d T* @d
0x127810…1279a4 Dummy {f00=0x005d, f01=0x0190, f02=» , d2 d4 d: @d< Ad: @d: $T d: @d< Ad: @d: $P d2 d4Wn @d6 $ Y P e(_R d2 d4 eH eH @d Tl @d Q @dDP c6( k< QL AcH Q> AcHW4 T RF dN dP @cH>( r m dN dP eH eH c6( k( dDT( cD( l W W
0x1279a4…127b38 Dummy {f00=0x005d, f01=0x0190, f02=» c $ d W cf $ d c4 b 4 Pr @bR 4 T T T w 4 T w 1 Q 4 PB 4 T w 1 Q T T 4 T w 4 P _8 @bR W @d @d w Q 1 Q AbR AcH bP b 2 P T 0PV 0 % % (
0x127b38…127ccc Dummy {f00=0x005d, f01=0x0190, f02=»d@ Y @d@ Ad* 2 T T 4 R _ T 4 w U 5 cb ed @d* 2 % P ed _ AcH 2 AcF pD Acd @d* Q U( _ 2 % 2 * % Y : b pD 2 * , P Pv * BA % DS % PO %
0x127ccc…127e60 Dummy {f00=0x005d, f01=0x0190, f02=»ed Y Ad2 R " T `d$ Ad2 9A Dd$ 2 @d2R V 2 U Ad2 ed ]D 2 2 @cd % % cb ) % % Z @d % @d % @d" % c ( % Y 2 % @d* O . R O 1 R O 0 B W E d E ~
0x127e60…127ff4 (11, 11) Dummy {f00=0x005e, f01=0x0190, f02=»r~ r Ar Ar b Ar| @rzT tV t. t r r~ t@ s r~ r t sp t t @r| r t t. @r| 0 4 @r| @r| 8 < w 1 5 @r| @r| @b <! $ ) Y @b % % % % @b Ab @rz Arz t. @b b t2 @r| Ar| `r| r
0x127ff4…128188 Dummy {f00=0x005e, f01=0x0190, f02=»t2 @b @b @r| $ ) Y tV W rz : $ ) : Y : @r~ @r| ) @r ) @r ) @r ) Arz @b Ab : ( ( $ ( w T T W : @r| 0 4 @r @r w 1 5 : @r| , , , , w w Ar Ar : cD C C C 2 C
0x128188…12831c Dummy {f00=0x005e, f01=0x0190, f02=» C R C ( B u rt rp rp]L *% P0 @rt 8 BT rv @rt 0 0 r rv rt_J W : R _ P 0 - : ; [ V - - ' v v d v v v Z : : ; vb v : V *W
0x12831c…1284b0 Dummy {f00=0x005e, f01=0x0190, f02=» B@ v v ' v v d v v v Z Z Z Z : : ; wf v : V *W R - _ 1 T R Pwf - _ : [ S Q"R S P W S _ R Q _ ;A [ : [
0x1284b0…128644 Dummy {f00=0x005e, f01=0x0190, f02=»? 0OUTPUT VOLUME NAME: x C C ( : : B x $ ) Y xr x xl x AxZ xP( xl x `xR! YP 4 : %? v S : S f S 6 S b% =A S ^ S ` x UU x 3 2P _ , ) p
0x128644…1287d8 Dummy {f00=0x005e, f01=0x0190, f02=» T G.G K. A ;A; G. x ] S z . N 0 N S W P X _ R z R 6"? R ~ | z P LLT #P " 0 B. T P ' " P : P S | P S
0x1287d8…12896c Dummy {f00=0x005e, f01=0x0190, f02=» %? v S @ S l S < S h% =A S d S f V UU > 3 2P _ , ) 0 R _ <d?d U ?e R P S ?C/ G O % R ' P % =B S t w E M % t
0x12896c…128b00 Dummy {f00=0x005e, f01=0x0190, f02=» . N 0 R N S 4 W P X _ R R <"? R }H P LLT #P " 0 B. T P ' " P : P S P S P " h_"W W W W W + # @ # P s v
0x128b00…128c94 (11, 12) Dummy {f00=0x005e, f01=0x0190, f02=» S DW ` S D S t S p S $ S $ M % T S ( p jW L p . N 0 S # T S r p N S W p P X _ T R t S $ M R R R $" R D P * W8W p
0x128c94…128e28 Dummy {f00=0x005e, f01=0x0190, f02=» " ~_6 XW W W W @ R T V ?AW =E R _ <e R P =A $ < ?B =A- R P S S $ M W W =D @ t w E M T 1 E _ M = R = @ T P W S ( W S H R p : V 6 "? UU j 3 2P _ 4 , 5
0x128e28…128fbc Dummy {f00=0x005e, f01=0x0190, f02=» . N 0 S & N S W P X _ R R "? R R h:B* S R P S B J 4R 4 :B 4 R : V V 49B R 4R @ t w A I ! j : P LLT #P
0x128fbc…129150 Dummy {f00=0x005e, f01=0x0190, f02=» T G.G K. A ;A; G. S S ( S S $ S ] S S ] ] S . N 0 S W h S S S ? S S R ^ 9B % s S
0x129150…1292e4 Dummy {f00=0x005e, f01=0x0190, f02=» S _> ? S R ! T S _X! P S _f @ @ N S W j P X"_ R R "? R R S j P LLT #P " Y4 B. T P ! " P S P S : P S P
0x1292e4…129478 Dummy {f00=0x005e, f01=0x0190, f02=»A ;A; G. S S S S h ] x S S $ S f ] ] x ~ W " S t S z S ? S p S r R ^ P P t % R $ S p ; V 9E S p; R P S
0x129478…12960c Dummy {f00=0x005e, f01=0x0190, f02=» S r_f @ @ S f . N 0 S ! T s S f N S W f P X"_ R R "? R $9B R R S f P LLT #P " Y4 B. T P ! " P S
0x12960c…1297a0 Dummy {f00=0x005e, f01=0x018e, f02=» | 8 P LDKL A2,LIBRLE SET RECORD LENGTH FOR LIB. FILES =1 P ST A2,RECLEN,A12 D P LDK A2,1 =20 ^ P ST A2,BLKSLE =20 t P* PCRF020 CM HEAD < P CALL GETVOL GET RIGHT VOLUME AND READ FREE BLOCK SECTOR P ADK A1,0 4 P ABL(Z)