|
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 - metrics - download
Length: 52774 (0xce26)
Notes: pts_type(SC)
Names: »PAD.SC«
└─⟦a16d9b08d⟧ Bits:30009712 Philips computer tape "TOSS11"
└─⟦this⟧ »U3270.1/PAD.SC«
IDENT PAD REL 11.1 82-03-16 870150541110 =7 ERRORS IN PROGRAM TAB 82-02-12 =6 NO BELL FROM PRINTER =5 NATIONAL CHAR 81-05-12 =4 COPY TO PRINTER 81-05-06 =3, MISSING ITEM 81-01-26 =2, SAVE REG. 81-01-26 =1, RA ON EUQ ADDRESS 81-01-26 ************************************************************* * * * MODULE PAD * * MODULE HANDLING THE PACKING AND * * UNPACKING OF THE DCBUFFER. THE VDU * * BUFFER IS UPDATED * * (EMULATION 3270 SNA/SDLC, BSC) * * * ************************************************************* EJECT ***************************************************************** * * LIST OF ROUTINES * * PACK PACK MODIFIED VDU-FIELDS INTO DC-BUFFER * UNPACK UNPACK DC-BUFFER AND UPDATE VDU * RETTAB RETURN ADDRESSES * UNPCOM UNPACK COMMANDS * UNPORD UNPACK ORDERS * ORDTAB ORDER TABLE * SF START FIELD * SBA SET BUFFER ADDRESS * IC INSERT CURSOR * PT PROGRAM TAB. * RA REPEAT TO ADDRESS * EUA ERASE UNPRO. TO ADDRESS * CHAR < /20 BUT NOT ORDERS * PACKSY PACK DC-BUFFER IN SYSTEM MODE * UNPSYS UNPACK DC-BUFFER IN SYSTEM MODE * GETNXT GET AND CHECK NEXT BUFFER * PUTCHA PUT CHAR. IN DC-BUFFER AND WRITE * PDCCH PUT CHAR. IN BUFFER * GDCCH GET CHAR. IN BUFFER * PAID STORE AID IN BUFFER * BUFADR STORE BUFFER ADDRESS IN DC-BUFFER * RESMDT RESET ALL MDT-BITS IN ATTRIBUTES * P1WCC PROCESS WCC BEFORE UPDATE * P2WCC TAKE CARE OF WCC AFTER UPDATE * SAVE SAVE PACK AND UNPACK INFORMATION * RESTOR RESTORE PACK AND UNPACK INFORMATION * BUFFER BUFFER POOL * GETBUF GET BUFFER * RELBUF RELEASE BUFFER * ****************************************************************** EJECT ************************************************************* * * * ENTRY POINTS * * * ************************************************************* ENTRY PACK PACK MOD. FIELDS INTO DC BUFFER ENTRY UNPACK UNPACK DC BUFFER AND UPDATE VDU ENTRY UNPSYS UNPACK DC BUFFER IN SYSTEM MODE ENTRY GETBUF GET DC BUFFER ENTRY RELBUF RELEASE DC BUFFER ENTRY PAID STORE AID CODE IN DC BUFFER ENTRY BUFADR SORE BUFFER ADDRESS IN DC BUFFER ENTRY PACKSY PACK DC BUFFER IN SYSTEM MODE ENTRY SAVE1 SAVE REGISTERS ENTRY REST1 RESTORE REGISTERS EJECT *************************************************** * * * EXTERNAL REFERENCES * * * *************************************************** EXTRN CONEBC CONVERT ASCII-EBCDIC (CONVER) EXTRN CONASC CONVERT EBCDIC-ASCII (CONVER) EXTRN ERASE ERASE ENTIRE SCREEN (VDU) EXTRN ERASUA ERASE UNPROTECTED TO ADDRESS (VDU) EXTRN CONORD CONVERT ORDER TO INDEX (CONVER) EXTRN CONATT CONVERT ATTRIBUTE (CONVER) EXTRN SCRINF GET SCREEN INFORMATION (VDU) EXTRN ERASUP ERASE UNPROTECTED ENTIRE SCREEN (VDU) EXTRN COPY LOCAL HARDCOPY (KEYB) EXTRN SOUND SOUND ALARM ON VDU (VDU) EXTRN ATMASB SEARCH ATTRIBUTE BACKWARDS (VDU) EXTRN CONADR CONVERT BUFFER ADDRESS (CONVER) EXTRN WRAP CHECK IF WRAP AROUND (VDU) EXTRN STOINF SAVE SCREEN INFORMATION (VDU) EXTRN LMP4ON INHIBIT LAMP ON (KEYB) EXTRN READNW READ WITH NO WAIT (DCSNA,DCBSC) EXTRN WAIT SYNCHRONIZE (DCSNA,DCBSC) EXTRN DCWRIT WRITE DC BUFFER (DCSNA,DCBSC) EXTRN DISMOD DISPLAY MODIFIED FIELDS (VDU) EXTRN THRBUF THROW BUFFERS (DCSNA,DCBSC) EXTRN NLROUT NEW LINE ROUTINE (VDU) EXTRN LINE WRAP ROUTINE (VDU) EXTRN LINATT INTERNAL LINEFLAG ROUTINE (VDU) EXTRN LINWRP ANOTHER WRAP ROUTINE (VDU) EXTRN ERROR ERROR INCATOR (KEYB) EXTRN MATCH MATCH ADDRESS AND TASKID (DSPBSC) EXTRN ICSET INTERTASK TIMEOUT (KEYB) EXTRN ICWRT INTERTASK WRITE (KEYB) EXTRN COPP COPY ON PRINTER DIRECTLY =4 EJECT *************************************************** * * * CONDITIONAL ASSEMBLY PARAMETERS * * * *************************************************** X:A EQU 0 SNA HANDLING IF:=1 SNA EQU X:A X:K EQU 2 NUMBER OF BUFFERS (1-32) BUFFNR EQU X:K X:L EQU 1000 MAX BUFFER SIZE IN WORDS BUFFL EQU X:L X:M EQU 0 COPY COMMAND INCLUDED IF:=1 COPCMD EQU X:M X:N EQU 1 EBCDIC CHAR IF:=1 EBCDIC EQU X:N X:Z EQU 1 =0,WHOLE,=1 CHAIN,=2 SEGMENT DISHOW EQU X:Z EJECT *************************************************************** * * * DECLARATION OF DATA AND EQUATES * * *************************************************************** * * EQUATES FOR ECB HANDLING * ECBBA EQU 2 BUFFER ADDRESS ECBRL EQU 4 REQUESTED LENGTH ECBEL EQU 6 EFFECTIVE LENGTH ECBRC EQU 8 RETURN CODE ECBCW EQU 10 CONTROL WORD * * INTERNAL STATUS * LICREC EQU /2000 LAST IN CHAIN RECEIVED THROWB EQU /0800 THROW BUFFERS NEWCH EQU /0400 NEW CHAIN ATTREC EQU /0002 ATTRIBUTE RECEIVED PTORD EQU /0001 PT ORDER INDICATOR IFT SNA=1 * * SNA MODES * LOCMOD EQU 0 LOCAL MODE SYSOP EQU 2 SYSTEM MODE MYJOB EQU 4 MY JOB MODE XIF * * TASK IDENTIFICATION CODE * VDUCOD EQU 'VV' VDU KB TASK * * SPECIAL CHARACTERS * NULL EQU 0 NULL CHAR. SBACH EQU /11 SBA CHAR. ESCCHA EQU /1B ESCAPE CHAR. * * VDU SCREEN SIZE * LBVDU EQU 1920 TOTAL SIZE LLINE EQU 80 LINE LENGTH * * BUFFER LINK LENGTH * LINK EQU BUFFL+BUFFL+2 EJECT * * RELATIVE ADDRESSES IN * TERMINAL WORKBLOCK * TCT01 EQU 0 TASK IDENTIFICATION BVDU EQU TCT01+2 SCREEN BUFFER LINFLG EQU BVDU+1920 INTERNAL LINE FLAGS PCURS EQU LINFLG+24 CURSOR ADDRESS , BINARY CURATT EQU PCURS+4 WCC EQU CURATT+2 WCC/CCC CHARACTER KBINH EQU WCC+2 INHIBIT INDICATOR DCLENG EQU KBINH+4 LENGTH OF DC BUFFER CURPOS EQU DCLENG+30 CURSOR POS IN SYSTEM MODE BUFPNT EQU CURPOS+2 BUFFER ADDRESS REGI EQU BUFPNT+2 WORK REGISTER STACK1 EQU REGI+2 INTERNAL STACK STACK2 EQU STACK1+14 UNPMOD EQU STACK2+14 UNPACK MODE SNAMOD EQU UNPMOD+2 SNA MODE ECBICW EQU SNAMOD+12 ECB INTERTASK WRITE =3 EJECT ************************************************************ * * * PACK PACK MODIFIED VDU-FIELDS INTO DC-BUFFER * * * ************************************************************* * REGISTERS * * A2= CHAR. * A3= ADDRESS IN VDU-BUFFER * A4= REL. CURSOR POS. * A5= REL. ATTRIBUTE POS. * A6= ATTRIBUTE CHAR * A8= ADDRESS IN DC-BUFFER * A9= DC-BUFFER INDEX * A10= START ADDRESS * A11= RESERVED * A12= BUFFER ADDRESS * A13= RESERVED * ************************************************************ PACK EQU * CF A14,SCRINF GET SCREEN INFORMATION LDK A4,0 FIRST SCREEN POS. LDKL A3,BVDU ADR A3,A11 LDR A10,A4 INITIATE ADDRESS CWK A5,LBVDU+1 UNFORMATTED SCREEN? RF(E) PACK70 YES PACK10 EQU * LCR A2,A3 GET CHAR. CCK A2,/8000 ATTRIBUTE? RF(NL) PACK15 YES ADK A3,1 ADK A4,1 RB PACK10 PACK15 EQU * LDR A10,A4 START ADDRESS RF PACK30 PACK20 EQU * CF A14,WRAP CHECK IF WRAP AROUND CWR A10,A4 ALL SCANNED? RF(E) PACK80 YES PACK30 EQU * LCR A2,A3 GET CHAR. ADK A3,1 ADK A4,1 CCK A2,/8000 ATTRIBUTE? RB(L) PACK20 NO ANK A2,1 MODIFIED FIELD? RF(NZ) PACK50 YES ADK A3,1 ADK A4,1 RB PACK20 PACK50 EQU * LDK A2,SBACH SBA TO DC-BUFFER LDKL A1,/8000 INDICATE SBA CF A14,PUTCHA PUT CHAR. IN BUFFER LDR A1,A1 TRANSMISSION OK? RF(NZ) PACK90 NO LDR A1,A4 BUFFER ADDRESS TO DC-BUFFER CF A14,BUFADR PACK60 EQU * CF A14,WRAP CHECK IF WRAP AROUND CWR A10,A4 ALL SCANNED? RF(E) PACK80 YES PACK70 EQU * LCR A2,A3 GET CHAR. CCK A2,/8000 ATTRIBUTE? RB(NL) PACK20 YES CWK A2,NULL NULL CHAR? RF(E) PACK75 YES,DON'T STORE CF A14,PUTCHA PUT CHAR. IN BUFFER LDR A1,A1 TRANSMISSION OK? RF(NZ) PACK90 NO PACK75 EQU * ADK A3,1 ADK A4,1 RB PACK60 PACK80 EQU * LDK A1,0 INDICATE LAST IN CHAIN CF A14,DCWRIT WRITE DC BUFFER PACK90 EQU * LDR A8,A12 BUFFER TO RELEASE CF A14,RELBUF RELEASE BUFFER RTN A14 EJECT ************************************************************ * * * UNPACK UNPACK DC-BUFFER AND UPDATE VDU * * * ************************************************************ * REGISTERS * * A2= CHAR. * A3= POINTER IN VDU-BUFFER * A4= REL. CURSOR POS. * A5= LAST IN ROW REL POS * A6= INTERNAL LINE FLAG ADDRESS * A8= ADDRESS IN DC-BUFFER * A9= DC-BUFFER INDEX * A10= INDICATOR * A11= CREDIT WORK AREA * A12= RESERVED * A13= RESERVED * ******************************************************** UNPACK EQU * LDK A1,3 KB TOTALLY INHIBIT ORS A1,KBINH,A11 LC A1,TCT01,A11 CCK A1,VDUCOD PRINTER UNPACK? RF(NE) UNP050 YES CF A14,LMP4ON INHIBIT LAMP ON UNP050 EQU * CF A14,SCRINF GET SCREEN INFORMATION LDR A6,A11 LDK A5,LLINE CF A14,LINE CHECK WRAP AND LINE FLAG SUR A9,A9 LD A8,BUFPNT,A11 GET BUFFER ADDRESS LDK A1,ICOMND PROCESS COMMAND ST A1,UNPMOD,A11 UNP100 EQU * CF A14,GDCCH GET CHAR. LDR A1,A1 ANYTHING LEFT? RF(NZ) UNP200 NO LD A1,UNPMOD,A11 GET ADDRESS TO START AT CFI A14,RETTAB,A1 RESTART LDR A1,A1 PROCESS OKEY? RB(Z) UNP100 YES RF UNP300 UNP200 EQU * IFT SNA=1 CF A14,GETNXT GET NEXT BUFFER LDR A1,A1 FINISHED? RB(Z) UNP100 NO XIF UNP300 EQU * CF A14,SCRINF GET LATEST NEWS LDR A1,A4 CF A14,ATMASB SEARCH ATTRIBUTE BACKWARDS IFT SNA=1 ANKL A10,THROWB THROW BUFFERS? RF(Z) UNP400 NO CF A14,THRBUF THROW BUFFERS RF UNP600 UNP400 EQU * IFF DISHOW=2 LC A1,TCT01,A11 CCK A1,VDUCOD RF(NE) UNP500 CF A14,DISMOD TESTINGTESTINGTESTING!!!!!!!!!!!!! UNP500 EQU * XIF CF A14,P2WCC CHECK IT A LAST TIME =4 LDR A8,A12 GET BUFFER TO RELEASE CF A14,RELBUF RELEASE BUFFER UNP600 EQU * RTN A14 EJECT ********************************************************************** * * * INDEX FOR RETURNS AFTER GET CHARCTER * * * ********************************************************************** ICOMND EQU 0 ICOMN1 EQU ICOMND+2 IFT COPCMD=1 ICOCOP EQU ICOMN1+2 ICOWCC EQU ICOCOP+2 XIF IFF COPCMD=1 ICOWCC EQU ICOMN1+2 XIF IORDER EQU ICOWCC+2 IOSFAT EQU IORDER+2 IOSBA1 EQU IOSFAT+2 IOSBA2 EQU IOSBA1+2 IORAA1 EQU IOSBA2+2 IORAA2 EQU IORAA1+2 IORACH EQU IORAA2+2 IOEUA1 EQU IORACH+2 IOEUA2 EQU IOEUA1+2 EJECT ********************************************************************* * * * RETURN ADDRESSES AFTER GET CHARACTER * * * ********************************************************************* RETTAB EQU * DATA UNPCOM PROCESS COMMAND CHAR. DATA UNC100 PROCESS COMMAND CHAR AFTER ESC. IFT COPCMD=1 DATA UNC150 PROCESS FROM DEVICE XIF DATA UNC600 PROCESS WCC DATA UNPORD PROCESS ORDERS AND CHAR. DATA SF100 PROCESS ATTRIBUTE DATA SBA100 PROCESS FIRST ADDRESS BYTE DATA SBA200 PROCESS SECOND ADDRESS BYTE DATA RA100 PROCESS FIRST ADDRESS BYTE DATA RA200 PROCESS SECOND ADDRESS BYTE DATA RA250 PROCESS CHAR. TO REPEAT DATA EUA100 PROCESS FIRST ADDRESS BYTE DATA EUA200 PROCESS FIRST ADDRESS BYTE EJECT *********************************************************************** * * * UNPCOM UNPACK COMMAND * * * *********************************************************************** * REGISTERS * * A2= CHAR. * A3= ADDRESS IN VDU-BUFFER * A4= REL. CURSOR ADDRESS * A5= LAST IN ROW REL POS * A6= INTERNAL LINE FLAG ADDRESS * A8= ADDRESS IN DC-BUFFER * A9= RESERVED * A10= INDICATOR * A11= CREDIT WORK AREA * A12= RESERVED * A13= RESERVED * ************************************************************************ UNPCOM EQU * ENTRY LABEL FROM RETTAB IFF SNA=1 LDK A1,ICOMN1 WHERE TO CONTINUE ST A1,UNPMOD,A11 LDK A1,0 RETURN CODE CWK A2,ESCCHA ESCAPE? RF(E) UNC900 YES LDK A1,1 NO INDICATE ERROR RF UNC900 XIF UNC100 EQU * CWK A2,/31 WRITE? RF(E) UNC500 YES CWK A2,/35 ERASE AND WITE? RF(E) UNC200 YES CWK A2,/3F ERASE ALL UNPROTECTED? RF(E) UNC300 YES IFT COPCMD=1 CWK A2,/37 COPY COMMAND? RF(NE) UNC175 NO LDK A1,ICOCOP RESTART ENTRY RF UNC800 UNC150 EQU * ENTRY LABEL FROM RETTAB CF A14,MATCH GET TASKID LDR A1,A1 OK? RF(NZ) UNC175 NO LDKL A1,/8000 RETURN CODE TO INDICATE COPY COMND. ST A1,REGI,A11 LD A8,ECBICW,A11 CF A14,ICSET SET TIMEOUT LDR A1,A2 TASK TO CALL LDK A2,2 LENGTH LDKL A3,REGI ADR A3,A11 BUFFER CF A14,ICWRT SEND IT UNC175 EQU * XIF LDKL A10,THROWB THROW THE REST LDK A1,1 INDICATE ERROR RF UNC900 INVALID COMMAND UNC200 EQU * ST A8,REGI,A11 CF A14,ERASE ERASE ENTIRE SCREEN LD A8,REGI,A11 LDR A6,A11 LDK A5,LLINE LDK A4,0 INITIATE BUFFER ADDRESS RF UNC500 UNC300 EQU * CF A14,ERASUP ERASE ALL UNPROTECTED LDKL A10,THROWB THROW IT AWAY LDK A1,1 INDICATE ERROR RF UNC900 UNC500 EQU * LDK A1,ICOWCC GET INDEX ST A1,UNPMOD,A11 LDK A1,0 RF UNC900 UNC600 EQU * ENTRY LABEL FROM RETTAB CF A14,P1WCC PROCESS WCC BEFORE UPDATE LDR A3,A4 ADKL A3,BVDU GET REAL ADDRESS ADR A3,A11 ORKL A10,PTORD INDICATE PT ORDER LDK A1,IORDER INDICATE NEXT CALL UNC800 EQU * ST A1,UNPMOD,A11 LDK A1,0 UNC900 EQU * RTN A14 EJECT ********************************************************** * * * UNPORD UNPACK ORDERS * * * ********************************************************** * REGISTERS * * A2= CHAR. * A3= POINTER IN VDU BUFFER * A4= REL. CURSOR POS. * A5= LAST IN ROW REL POS * A6= INTERNAL LINE FLAG ADDRESS * A8= RESERVED * A9= RESERVED * A10= INDICATOR * A11= RESERVED * A12= RESERVED * A13= RESERVED * ********************************************************** UNPORD EQU * ENTRY LABEL FROM RETTAB CWK A2,/20 ORDER? RF(L) UNO100 YES XRKL A10,PTORD INDICATE FOR PT ORDER CWR A5,A4 NEW LINE? RF(G) UNO050 NO CF A14,LINE CHECK WRAP UNO050 EQU * SCR A2,A3 STORE CHAR. IN VDU BUFFER LC A1,LINFLG,A6 ORK A1,1 SC A1,LINFLG,A6 ADK A4,1 ADK A3,1 LDK A1,0 RF UNO200 UNO100 EQU * LC A1,CONORD,A2 GET ORDER INDEX CFI A14,ORDTAB,A1 TAKE CARE OF ORDER UNO200 EQU * RTN A14 EJECT ************************************************************* * * * ORDTAB ORDER TABLE * * * ************************************************************* ORDTAB EQU * DATA INVAL INVALID CHAR. DATA SF START FIELD DATA SBA SET BUFFER ADDRESS DATA IC INSERT CURSOR DATA PT TAB. DATA RA REPEAT TO AADRESS DATA EUA ERASE UNPROTECTED TO ADDRESS DATA ESC ESCAPE DATA NULCHA NULL CHAR. DATA NL NEW LINE DATA FF FORM FEED DATA EM END MESSAGE DATA CR CARRIAGE RETURN EJECT *********************************************************** * * * SF START FIELD * * * *********************************************************** * REGISTERS * * A1= RETURN CODE * A2= RESERVED * A3= POINTER IN VDU BUFFER * A4= REL. CURSOR POS. * A5= RESERVED * A6= RESERVED * A8= RESERVED * A9= DC-BUFFER INDEX * A10= INDICATOR * A11= CREDIT WORK AREA * A12= RESERVED * A13= RESERVED * ************************************************************ SF EQU * LDK A1,IOSFAT INDICATE NEXT CALL ST A1,UNPMOD,A11 RF SF900 GET CHAR. SF100 EQU * ENTRY LABEL FROM RETTAB LDK A1,IORDER NEXT ALBEL ST A1,UNPMOD,A11 LC A2,CONATT,A2 IN EBCDIC ORK A2,/80 ATTR. BIT CM CURATT,A11 ORKL A10,ATTREC+PTORD CF A14,LINWRP CHECK WRAP LC A1,LINFLG,A6 ANK A1,2 LINE IN FIELD? RF(Z) SF600 NO CF A14,LINATT INDICATE ATTRIBUTE OVERRUN SF600 EQU * ORKL A10,ATTREC INDICATE ATTRIBUTE RECEIVED SCR A2,A3 STORE CHAR. ADK A3,1 ADK A4,1 SF900 EQU * LDK A1,0 RTN A14 EJECT *********************************************************** * * * SBA SET BUFFER ADDRESS * * * *********************************************************** * REGISTERS * * A1= RETURN CODE * A2= CHAR. * A3= RESERVED * A4= RESERVED * A5= RESERVED * A6= RESERVED * A8= RESERVED * A9= RESERVED * A10= INDICATOR * A11= CREDIT WORK AREA * A12= RESERVED * A13= RESERVED * *********************************************************** SBA EQU * LDK A1,IOSBA1 NEXT LABEL ST A1,UNPMOD,A11 LDK A1,0 RF SBA900 FIRST BYTE SBA100 EQU * ENTRY LABEL FROM RETTAB LC A7,CONATT,A2 CONVERT ANK A7,/3F SLL A7,6 LDK A1,IOSBA2 ST A1,UNPMOD,A11 LDK A1,0 RF SBA900 NEXT BYTE SBA200 EQU * ENTRY LABEL FROM RETTAB LC A2,CONATT,A2 ANK A2,/3F ORR A7,A2 LDK A1,IORDER NEXT LABEL ST A1,UNPMOD,A11 CWK A7,LBVDU ILLEGAL ADDRESS? RF(NL) SBA800 YES LDR A3,A7 LDR A4,A3 ADKL A3,BVDU ADR A3,A11 ORKL A10,PTORD INDICATE PT ORDER CF A14,LINE CHECK WRAP AND LINE FLAGS LDK A1,0 REURN CODE RF SBA900 SBA800 EQU * ORKL A10,THROWB DON'T SAVE IT LDK A1,1 RETURN CODE SBA900 EQU * RTN A14 EJECT ********************************************************** * * * IC INSERT CURSOR * * * ********************************************************** * REGISTERS * * A1= RETURN CODE * A2= RESERVED * A3= RESERVED * A4= REL. CURSOR POS. * A5= RESERVED * A6= RESERVED * A9= RESERVED * A10= INDICATOR * A11= CREDIT WORK AREA * A12= RESERVED * A13= RESERVED * *********************************************** IC EQU * ST A4,PCURS,A11 ORKL A10,PTORD INDICATE LDK A1,0 RETURN CODE RTN A14 EJECT *********************************************************** * * * PT PROGRAM TAB. * * * *********************************************************** * REGISTERS * * A1= RETURN CODE * A2= CHAR. * A3= ADDRESS IN VDU-BUFFER * A4= REL. CURSOR POS. * A5= RESERVED * A6= ATTRIBUTE CHAR. * A8= RESERVED * A9= RESERVED * A10= INDICATOR * A11= RESERVED * A12= RESERVED * A13= RESERVED * ************************************************************ PT EQU * LDR A1,A10 ANK A1,PTORD FOLLOWING ORDER OR COMMAND? RF(NZ) PT400 YES LDK A7,NULL FILL WITH NULLS TO END OF FIELD PT200 EQU * CF A14,LINWRP CHECK WRAP LDR A4,A4 END OF BUFFER? RF(Z) PT800 YES, KUNTA KINTE LCR A2,A3 ANK A2,/80 ATTRIBUTE? RF(NZ) PT400 YES SCR A7,A3 STORE NULL CHAR. LC A1,LINFLG,A6 ORK A1,1 SC A1,LINFLG,A6 ADK A3,1 ADK A4,1 RB PT200 PT400 EQU * CF A14,LINWRP CHECK WRAP LDR A4,A4 END OF BUFFER? RF(Z) PT700 YES OS AND DOS LCR A2,A3 GET CHAR. ANK A2,/80 ATTRIBUTE? RF(NZ) PT500 YES PT410 EQU * . =7 ADK A4,1 ADK A3,1 RB PT400 PT500 EQU * LCR A2,A3 GET CHAR. =7 ANK A2,/20 PROTECTED? RB(NZ) PT410 . =7 ADK A4,1 ADK A3,1 CF A14,LINWRP CHECK WRAP PT700 EQU * ORKL A10,PTORD PT800 EQU * LDK A1,0 RETURN CODE RTN A14 EJECT ************************************************************* * * * RA REPEAT TO ADDRESS * * * ************************************************************* * REGISTERS * * A1= RETURN CODE * A2= CHAR. TO BE REPEATED * A3= ADDRESS IN VDU-BUFFER * A4= REL. CURSOR POS. * A5= RESERVED * A6= INTERNAL LINE FLAG ADDRESS * A8= RESERVED * A9= DC-BUFFER INDEX * A10= INDICATOR * A11= CREDIT WORK AREA * A12= RESERVED * A13= RESERVED * ************************************************** RA EQU * LDK A1,IORAA1 NEXT LABEL ST A1,UNPMOD,A11 LDK A1,0 RF RA900 FIRST BYTE RA100 EQU * ENTRY LABEL FROM RETTAB LC A7,CONATT,A2 CONVERT ANK A7,/3F SLL A7,6 LDK A1,IORAA2 NEXT LABEL ST A1,UNPMOD,A11 LDK A1,0 RF RA900 SECOND BYTE RA200 EQU * ENTRY LABEL FROM RETTAB LC A2,CONATT,A2 ANK A2,/3F ORR A7,A2 CWK A7,LBVDU INVALID ADDRESS RF(NL) RA800 YES LDK A1,IORACH NEXT LABEL ST A1,UNPMOD,A11 LDK A1,0 RF RA900 CHAR. BYTE RA250 EQU * ENTRY LABEL FROM RETTAB LDK A1,IORDER ST A1,UNPMOD,A11 RA300 EQU * SCR A2,A3 STORE IN VDU-BUFFER LC A1,LINFLG,A6 ORK A1,1 SC A1,LINFLG,A6 ADK A3,1 ADK A4,1 CF A14,LINWRP CHECK WRAP =1 CWR A4,A7 ALL REPEATED? =1 RB(NE) RA300 NO =1 ORKL A10,PTORD INDICATE PT ORDER LDK A1,0 RETURN CODE RF RA900 RA800 EQU * ORKL A10,THROWB THROW IT AWAY LDK A1,1 RETURN CODE RA900 EQU * RTN A14 EJECT ****************************************************** * * * EUA ERASE UNPRO. TO ADDRESS * * * ****************************************************** * REGISTERS * * A1= RETURN CODE * A2= CHAR. * A3= RESERVED * A4= RESERVED * A5= RESERVED * A6= RESERVED * A8= RESERVED * A9= RESERVED * A10= INDICATOR * A11= CREDIT WORK AREA * A12= RESERVED * A13= RESERVED * ******************************************************* EUA EQU * LDK A1,IOEUA1 NEXT LABEL ST A1,UNPMOD,A11 LDK A1,0 RF EUA900 FIRST BYTE EUA100 EQU * ENTRY LABEL FROM RETTAB LC A7,CONATT,A2 CONVERT ANK A7,/3F SLL A7,6 LDK A1,IOEUA2 NEXT LABEL ST A1,UNPMOD,A11 LDK A1,0 RF EUA900 SECOND BYTE EUA200 EQU * ENTRY LABEL FROM RETTAB LC A2,CONATT,A2 ANK A2,/3F ORR A7,A2 LDK A1,IORDER NEXT LABEL ST A1,UNPMOD,A11 CWK A1,LBVDU INVALID ADDRESS? RF(NL) EUA800 YES LDR A1,A7 CF A14,ERASUA ERASE UNPRO. TO ADDRESS CF A14,SCRINF LDK A1,0 RETURN CODE ORKL A10,PTORD INDICATE PT ORDER RF EUA900 EUA800 EQU * ORKL A10,THROWB RUBB. LDK A1,1 RETURN CODE EUA900 EQU * RTN A14 EJECT ******************************************************** * * * CHAR. < /20 BUT NOT ORDER * * * ******************************************************** * REGISTERS * * A1= RETURN CODE * A2= CHAR. * A3= ADDRESS IN VDU-BUFFER * A4= REL. CURSOR POS. * A5= RESERVED * A6= INTERNAL LINE FLAG ADDRESS * A8= RESERVED * A9= RESERVED * A10= INDICATOR * A11= CREDIT WORK AREA * A12= RESERVED * A13= RESERVED * ************************************************ ESC EQU * ORKL A10,LICREC INDICATE COMMAND LDK A1,1 STOP ORDER PROCESS RF CHARET INVAL EQU * ORKL A10,/9800 END UNPACKING LDK A1,1 RF CHARET NULCHA EQU * NL EQU * FF EQU * EM EQU * CR EQU * CF A14,LINWRP CHECK WRAP SCR A2,A3 STORE CHAR. LC A1,LINFLG,A6 ORK A1,1 SC A1,LINFLG,A6 XRKL A10,PTORD INDICATE PT ORDER ADK A3,1 ADK A4,1 LDK A1,0 CONTINUE CHARET EQU * RTN A14 EJECT **************************************************************** * * * PACKSY PACK DC BUFFER IN SYSTEM MODE * * * **************************************************************** * REGISTERS * * A2= CHAR * A3= ADDRESS IN VDU-BUFFER * A4= REL. CURSOR POS. * A5= RESERVED * A6= RESERVED * A8= ADDRESS IN DC-BUFFER * A9= INDEX IN DC-BUFFER * A11= CREDIT WORK AREA * A12= BUFFER ADDRESS * A13= RESERVED * *************************************************************** PACKSY EQU * IFT SNA=1 LDKL A9,0 COUNTER LD A3,CURPOS,A11 GET START POS. CWK A3,/800 ANY CHAR. ON DISPLAY? RF(E) PASY40 NO CF A14,SCRINF GET SCREEN INFORMATION LDR A1,A4 SUR A1,A3 GET LENGTH OF MESSAGE RF(NN) PASY10 NOT WRAP AROUND LDKL A1,LBVDU-1 LAST POS. ON SCREEN SUR A1,A3 GET LENGTH AGAIN PASY10 EQU * CWK A1,256 ILLEGAL LENGTH? RF(NG) PASY20 NO LDKL A1,256 ADJUST LENGTH PASY20 EQU * ADKL A3,BVDU ADR A3,A11 PASY30 EQU * CWR A1,A9 ALL EXAMINED? RF(E) PASY40 YES LCR A2,A3 GET CHAR IN VDU BUFFER ADK A3,1 CWK A2,NULL NULL CHAR.? RB(E) PASY30 YES, DON'T STORE CF A14,PDCCH STORE CHAR. IN DC BUFFER RB PASY30 PASY40 EQU * LDK A1,0 INDICATE LAST IN CHAIN CF A14,DCWRIT SEND BUFFER LDR A8,A12 GET BUFFER TO RELEASE CF A14,RELBUF RELEASE BUFFER XIF RTN A14 EJECT ************************************************************* * * * UNPSYS UNPACK DC BUFFER IN SYSTEM MODE * * * ************************************************************* * REGISTERS * * A2= CHAR. * A3= ADDRESS IN VDU-BUFFER * A4= REL. CURSOR POS. * A5= LAST IN ROW REL POS * A6= INTERNAL LINE FLAG ADDRESS * A8= ADDRESS IN DC-BUFFER * A9= INDEX IN DC-BUFFER * A10= INDICATOR * A11= CREDIT WORK AREA * A12= RESERVED * A13= RESERVED * ************************************************************** UNPSYS EQU * IFT SNA=1 LD A1,KBINH,A11 ORK A1,3 ST A1,KBINH,A11 CF A14,LMP4ON CF A14,SCRINF GET SCREEN INFORMATION LDR A3,A4 CURSOR ADDRESS ADKL A3,BVDU ADR A3,A11 VDU BUFFER ADDRESS LD A8,BUFPNT,A11 GET DC BUFFER ADDRESS SUR A9,A9 INDEX IN DC BUFFER LDR A6,A11 LDK A5,LLINE CF A14,LINE GET INTERNAL LINEFLAG UNPS05 EQU * CF A14,GDCCH GET CHAR. IN DC BUFFER LDR A1,A1 ANYTHING LEFT? RF(NZ) UNPS60 NO CWK A2,/31 BIND? RF(E) UNPS50 YES,PERHAPS UNPS07 EQU * CWK A2,/20 ORDER? RF(NL) UNPS40 NO CWK A2,/0A NEW LINE? RF(NE) UNPS10 NO CF A14,NLROUT PERFORM NEW LINE RB UNPS05 UNPS10 EQU * CWK A2,/1C IFS? RF(NE) UNPS20 NO LDK A2,/2A REPLACE WITH * RF UNPS40 UNPS20 EQU * CWK A2,/1E IRS? RF(NE) UNPS30 NO LDK A2,/3B REPLACE WITH ; RF UNPS40 UNPS30 EQU * CWK A2,NULL NULL? RF(NE) UNPS40 NO LDK A2,/20 REPLACE WITH SPACE UNPS40 EQU * CF A14,LINWRP CHECK WRAP SCR A2,A3 STORE IN VDU BUFFER LC A1,LINFLG,A6 ORK A1,1 SC A1,LINFLG,A6 ADK A3,1 ADK A4,1 RB UNPS05 UNPS50 EQU * CF A14,GDCCH ANK A2,/FE SHURE OF BIND? RF(Z) UNPS55 ALMOST SUKL A8,2 SUKL A9,2 CF A14,GDCCH RB UNPS07 UNPS55 EQU * LDK A1,MYJOB INDICATE MY JOB MODE ADKL A1,/8000 NEW MODE ACTIVATION ST A1,SNAMOD,A11 LDKL A10,1 NO DISPLAY RF UNPS70 UNPS60 EQU * LDKL A5,LBVDU+1 LDK A6,0 CF A14,STOINF SAVE NEW SCREEN INFORMATION LDKL A10,0 UNPS70 EQU * LD A8,BUFPNT,A11 GET BUFFER TO RELEASE CF A14,RELBUF RELEASE BUFFER XIF RTN A14 EJECT ************************************************************ * * * GETNXT GET AND CHECK NEXT BUFFER * * ************************************************************ * REGISTERS * * A1= RETURN CODE * A11= CREDIT WORK AREA * A12= BUFFER ADDRESS * A13= RESERVED * ************************************************************ GETNXT EQU * IFT SNA=1 CF A14,SAVE2 SAVE UNPACK INFORMATION LD A8,BUFPNT,A11 GET BUFFER TO RELEASE CF A14,RELBUF RELEASE BUFFER IFT DISHOW=2 LC A1,TCT01,A11 CCK A1,VDUCOD PRINTER UNPACK? RF(NE) GETC10 YES CF A14,DISMOD DISPLAY MODIFIED FIELDS XIF IFT SNA=1 GETC10 EQU * CF A14,WAIT SYNCHRONIZE LD A2,ECBEL,A8 SAVE LENGTH =4 ST A2,DCLENG,A11 . =4 LDR A9,A1 CF A14,REST2 LDR A1,A9 GET RETURN CODE SRC A1,1 FIRST OR MODDLE IN CHAIN? RF(NN) GETC30 NO LDR A1,A10 GET INTERNAL STATUS ANKL A1,LICREC LAST IN CHAIN RECEIVED? RF(Z) GETC60 NO LC A1,TCT01,A11 CCK A1,VDUCOD PRINTER UNPACK? RF(NE) GETC20 YES CF A14,P2WCC TAKE CARE OF WCC AFTER UPDATE GETC20 EQU * XRKL A10,LICREC RESET LAST IN CHAIN ORKL A10,NEWCH NEW CHAIN RF GETC60 GETC30 EQU * SRC A1,1 LAST IN CHAIN RECEIVED? RF(NN) GETC90 NO GETC40 EQU * LDR A1,A10 GET INTERNAL STATUS ORKL A10,LICREC LAST IN CHAIN RECEIVED ANKL A1,LICREC LAST IN CHAIN RECEIVED? RF(Z) GETC60 NO CF A14,P2WCC TAKE CARE OF WCC AFTER UPDATE ORKL A10,NEWCH NEW CHAIN GETC60 EQU * ST A12,BUFPNT,A11 SAVE BUFFER ADDRESS CF A14,SAVE2 SAVE INFORMATION =2 CF A14,GETBUF GET NEW BUFFER LDR A3,A8 GET BUFFER ADDRESS CF A14,READNW READ WITH NO WAIT CF A14,REST2 RESTORE UNPACK INFORMATION LDR A1,A10 ANKL A1,NEWCH NEW CHAIN? RF(Z) GETC80 NO IFT DISHOW=1 XRKL A10,NEWCH RESET LC A1,TCT01,A11 CCK A1,VDUCOD RF(NE) GETC70 CF A14,SAVE2 CF A14,DISMOD CF A14,REST2 XIF IFT SNA=1 GETC70 EQU * LDK A1,ICOMN1 NEXT LABEL ST A1,UNPMOD,A11 GETC80 EQU * LD A8,BUFPNT,A11 SUR A9,A9 LDK A1,0 RETUR N CODE GETC90 EQU * XIF RTN A14 EJECT ************************************************************* * * * PUTCHA PUT CHAR. IN DC BUFFER * * * ************************************************************* * REGISTERS * * A1= RETURN CODE * A11= CREDIT WORK AREA * A12= RESERVED * A13= RESERVED * ************************************************************* PUTCHA EQU * LDR A1,A1 SBA TO STORE? RF(N) PUTC10 YES CWK A9,BUFFL+BUFFL BUFFER FULL? RF(NL) PUTC20 YES RF PUTC30 PUTC10 EQU * LDKL A1,BUFFL+BUFFL-3 SUR A1,A9 ROOM FOR SBA AND ADDRESS? RF(NN) PUTC30 YES PUTC20 EQU * IFT SNA=1 CF A14,SAVE2 SAVE PACK INFORMATION LDK A1,1 INDICATE NOT LAST IN CHAIN CF A14,DCWRIT WRITE DC BUFFER LDR A9,A1 CF A14,REST2 LDR A9,A9 TRANSMISSION OK? RF(NZ) PUTC90 NO SUR A9,A9 BUFFER INDEX LDR A8,A12 BUFFER ADDRESS XIF IFF SNA=1 CF A14,ERROR LDKL A1,* ST A1,REGI,A11 LKM DATA 3 XIF PUTC30 EQU * CF A14,PDCCH PUT CHAR. IN DC BUFFER LDK A1,0 RETURN CODE PUTC90 EQU * RTN A14 EJECT ************************************************** * * * PDCCH PUT CHAR. IN DC BUFFER * * * ************************************************** * REGISTERS * * A2= CHAR. * A3= RESERVED * A4= RESERVED * A5= RESERVED * A6= RESERVED * A8= ADDRESS IN DC-BUFFER * A9= DC-BUFFER INDEX * A10= INDICATOR * A11= RESERVED * A12= RESERVED * A13= RESERVED * *************************************************** PDCCH EQU * CWK A9,BUFFL+BUFFL OVERFLOW? RF(NL) PDC100 YES ANK A2,/FF IFT SNA+EBCDIC=2 . =5 LC A2,CONEBC,A2 CONVERT XIF SCR A2,A8 STORE IN DC-BUFFER ADKL A8,1 ADKL A9,1 PDC100 EQU * RTN A14 EJECT *************************************************************** * * * GDCCH GET CHAR. IN DC BUFFER * * * *************************************************************** * REGISTERS * * A1= RETURN CODE * A2= CHAR. * A3= POINTER IN VDU BUFFER * A4= RESERVED * A5= RESERVED * A6= RESERVED * A8= ADDRESS IN DC-BUFFER * A9= DC-BUFFER INDEX * A10= INDICATOR * A11= CREDIT WORK AREA * A12= RESERVED * A13= RESERVED * **************************************************** GDCCH EQU * LDK A1,1 PRESET ERROR CW A9,DCLENG,A11 BUFFER EMPTIED? RF(NL) GDCC90 YES LDK A1,0 LCR A2,A8 GET CHAR. ANK A2,/FF IFT SNA+EBCDIC=2 . =5 LC A2,CONASC,A2 CONVERT XIF ADKL A8,1 ADKL A9,1 GDCC90 EQU * RTN A14 EJECT *********************************************************** * * * PAID STORE AID IN BUFFER * * * *********************************************************** * REGISTERS * * A2= AID * A11= RESERVED * A13= RESERVED * ********************************************************** PAID EQU * CF A14,PDCCH STORE AID RTN A14 EJECT ********************************************************** * * * BUFADR STORE BUFFER ADDRESS IN DC-BUFFER * * * ********************************************************** * REGISTERS * * A2= CHAR. * A3= RESERVED * A4= RESERVED * A5= RESERVED * A6= RESERVED * A8= RESERVED * A9= RESERVED * A10= RESERVED * A11= RESERVED * A12= RESERVED * A13= RESERVED * ********************************************************** BUFADR EQU * LDR A2,A1 GET REL. POS. SRL A2,6 ANK A2,/3F LC A2,CONADR,A2 CONVERT TO ASCII CF A14,PDCCH STORE IN DC-BUFFER LDR A2,A1 GET REL. POS. ANK A2,/3F LC A2,CONADR,A2 CONVERT TO ASCII CF A14,PDCCH STORE IN DC-BUFFER RTN A14 EJECT ************************************************************ * * * RESMDT RESET ALL MDT-BITS IN ATTRIBUTES * * * ************************************************************ * REGISTERS * * A2= CHAR. * A3= ADDRESS IN VDU-BUFFER * A4= RESERVED * A5= RESERVED * A6= RESERVED * A8= RESERVED * A9= RESERVED * A10= RESERVED * A11= CREDIT WORK AREA * A12= RESERVED * A13= RESERVED * ************************************************************* RESMDT EQU * LDK A1,0 FIRST SCREEN POS. LDKL A3,BVDU ADR A3,A11 RESM10 EQU * CWK A1,LBVDU ALL SCANNED? RF(NL) RESM90 YES LCR A2,A3 GET CHAR. CCK A2,/8080 ATTRIBUTE? RF(L) RESM20 NO ANK A2,/FE RESET MDT-BIT SCR A2,A3 RESTORE RESM20 EQU * ADK A1,1 ADK A3,1 RB RESM10 RESM90 EQU * RTN A14 EJECT ******************************************************** * * * P1WCC PROCESS WCC BEFORE UPDATE * * ******************************************************** * REGISTERS * * A2= CHAR. * A3= RESERVED * A4= RESERVED * A5= RESERVED * A6= RESERVED * A8= RESERVED * A9= RESERVED * A10= RESERVED * A11= CREDIT WORK AREA * A12= RESERVED * A13= RESERVED * *************************************************** P1WCC EQU * LC A2,CONATT,A2 IN EBCDIC ST A2,WCC,A11 SAVE ANK A2,1 RESET MDT-BITS? RF(Z) P1W900 NO CF A14,RESMDT RESET ALL MDT-BITS P1W900 EQU * RTN A14 EJECT ********************************************************* * * * P2WCC TAKE CARE OF WCC AFTER UPDATE * * * ********************************************************* * REGISTERS * * A11= CREDIT WORK AREA * A12= RESERVED * A13= RESERVED * ********************************************************** P2WCC EQU * CF A14,SAVE2 KEEP IT AWAY =4 LD A3,WCC,A11 . =4 LC A4,TCT01,A11 . =6 CCK A4,VDUCOD VDU? =6 RF(NE) P2W100 NO! NO SOUND =6 LDR A7,A3 . =4 ANK A7,4 SOUND? RF(Z) P2W100 NO CF A14,SOUND SOUND P2W100 EQU * ANK A3,8 COPY? =4 RF(Z) P2W300 NO CCK A4,VDUCOD VDU? =4 RF(NE) P2W200 NO PRINTER =4 CF A14,COPY COPY RF P2W300 . =4 P2W200 EQU * . =4 CF A14,COPP COPY DIRECTLY =4 P2W300 EQU * CF A14,REST2 TAKE IT BACK =4 RTN A14 EJECT ****************************************************************** * * * SAVE SAVE PACK AND UNPACK INFORMATION * * * ****************************************************************** * REGISTERS * * A1= STACK POINTER * A2= CHAR. * A3= VDU BUFFER ADDRESS * A4= REL CURSOR POS. * A5= REL STTRIBUTE POS. * A6= ATTRIBUTE CHAR. * A10= INTERNAL INDICATOR * A11= CREDIT WORK AREA * A12= RESERVED * A13= RESERVED * **************************************************************** SAVE1 EQU * LDKL A1,STACK1 GET STACK ADDRESS RF SAVE SAVE2 EQU * LDKL A1,STACK2 SAVE EQU * ADR A1,A11 STR A2,A1 ADK A1,2 STR A3,A1 ADK A1,2 STR A4,A1 ADK A1,2 STR A5,A1 ADK A1,2 STR A6,A1 ADK A1,2 STR A7,A1 ADK A1,2 STR A10,A1 RTN A14 EJECT ******************************************************************* * * * RESTOR RESTORE PACK AND UNPACK INFORMATION * * * ******************************************************************* * REGISTERS * * A1= STACK POINTER * A2= CHAR. * A3= VDU BUFFER ADDRESS * A4= REL. CURSOR POS. * A5= REL. ATTRIBUTE POS. * A6= ATTRIBUTE CHAR. * A7= RESERVED * A10= INTERNAL INDICATOR * A11= CREDIT WORK AREA * A12= RESERVED * A13= RESERVED * *************************************************************** REST1 EQU * LDKL A1,STACK1 GET STACK ADDRESS RF RESTOR REST2 EQU * LDKL A1,STACK2 RESTOR EQU * ADR A1,A11 LDR* A2,A1 ADK A1,2 LDR* A3,A1 ADK A1,2 LDR* A4,A1 ADK A1,2 LDR* A5,A1 ADK A1,2 LDR* A6,A1 ADK A1,2 LDR* A7,A1 ADK A1,2 LDR* A10,A1 RTN A14 EJECT ******************************************************* * * * BUFFER POOL * * * ******************************************************* BUFFER EQU * DATA *+2 POINTER FIRST FREE IFF BUFFNR=1 DATA *+LINK RES BUFFL IFF BUFFNR=2 DATA *+LINK RES BUFFL IFF BUFFNR=3 DATA *+LINK RES BUFFL IFF BUFFNR=4 DATA *+LINK RES BUFFL IFF BUFFNR=5 DATA *+LINK RES BUFFL IFF BUFFNR=6 DATA *+LINK RES BUFFL IFF BUFFNR=7 DATA *+LINK RES BUFFL IFF BUFFNR=8 DATA *+LINK RES BUFFL IFF BUFFNR=9 DATA *+LINK RES BUFFL IFF BUFFNR=10 DATA *+LINK RES BUFFL IFF BUFFNR=11 DATA *+LINK RES BUFFL IFF BUFFNR=12 DATA *+LINK RES BUFFL IFF BUFFNR=13 DATA *+LINK RES BUFFL IFF BUFFNR=14 DATA *+LINK RES BUFFL IFF BUFFNR=15 DATA *+LINK RES BUFFL IFF BUFFNR=16 DATA *+LINK RES BUFFL IFF BUFFNR=17 DATA *+LINK RES BUFFL IFF BUFFNR=18 DATA *+LINK RES BUFFL IFF BUFFNR=19 DATA *+LINK RES BUFFL IFF BUFFNR=20 DATA *+LINK RES BUFFL IFF BUFFNR=21 DATA *+LINK RES BUFFL IFF BUFFNR=22 DATA *+LINK RES BUFFL IFF BUFFNR=23 DATA *+LINK RES BUFFL IFF BUFFNR=24 DATA *+LINK RES BUFFL IFF BUFFNR=25 DATA *+LINK RES BUFFL IFF BUFFNR=26 DATA *+LINK RES BUFFL IFF BUFFNR=27 DATA *+LINK RES BUFFL IFF BUFFNR=28 DATA *+LINK RES BUFFL IFF BUFFNR=29 DATA *+LINK RES BUFFL IFF BUFFNR=30 DATA *+LINK RES BUFFL IFF BUFFNR=31 DATA *+LINK RES BUFFL IFF BUFFNR=32 DATA *+LINK RES BUFFL XIF DATA 0 RES BUFFL EJECT ******************************************************* * * * GETBUF GET BUFFER * * * ******************************************************* * REGISTERS * * A8= DC-BUFFER ADDRESS * A9= INDEX IN DC-BUFFER * A11= RESERVED * A12= BUFFER ADDRESS * A13= RESERVED * ******************************************************** GETBUF EQU * LDKL A7,BUFFER GETB10 EQU * LDR* A8,A7 RF(NZ) GETB90 BUFFER FREE LKM DATA 0 SWITCH TASK RB GETB10 GETB90 EQU * LDR* A1,A8 STR A1,A7 ADKL A8,2 LDR A12,A8 SUR A9,A9 RTN A14 EJECT ********************************************************* * * * RELBUF RELEASE BUFFER * * * ********************************************************* * REGISTERS * * A8= BUFFER ADDRESS * A11= RESERVED * A13= RESERVED * ********************************************************* RELBUF EQU * LDKL A7,BUFFER SUKL A8,2 POINT TO LINK RELB10 EQU * LDR* A1,A7 RF(Z) RELB90 LDR A7,A1 RB RELB10 RELB90 EQU * STR A8,A7 CMR A8 RTN A14 END
0x0000…0032 (0, 0, 400) Head {h00=0x002e, h01=0x0050, text=» IDENT PAD REL 11.1 82-03-16 870150541110 «, t00=0x0000, t01=0x0004}
0x0032…003a Head {h00=0x0004, h01=0x0002, t00=0x0000, t01=0x0036}
0x003a…005e Head {h00=0x0020, h01=0x0050, text=» =7 ERRORS IN PROGRAM TAB «, t00=0x0000, t01=0x003e}
0x005e…0072 Head {h00=0x0010, h01=0x0050, text=» 82-02-12 «, t00=0x0000, t01=0x0062}
0x0072…0094 Head {h00=0x001e, h01=0x0050, text=» =6 NO BELL FROM PRINTER«, t00=0x0000, t01=0x0076}
0x0094…00b0 Head {h00=0x0018, h01=0x0050, text=» =5 NATIONAL CHAR «, t00=0x0000, t01=0x0098}
0x00b0…00c4 Head {h00=0x0010, h01=0x0050, text=» 81-05-12 «, t00=0x0000, t01=0x00b4}
0x00c4…00e2 Head {h00=0x001a, h01=0x0050, text=» =4 COPY TO PRINTER «, t00=0x0000, t01=0x00c8}
0x00e2…00f6 Head {h00=0x0010, h01=0x0050, text=» 81-05-06 «, t00=0x0000, t01=0x00e6}
0x00f6…0112 Head {h00=0x0018, h01=0x0050, text=» =3, MISSING ITEM «, t00=0x0000, t01=0x00fa}
0x0112…0126 Head {h00=0x0010, h01=0x0050, text=» 81-01-26 «, t00=0x0000, t01=0x0116}
0x0126…013e Head {h00=0x0014, h01=0x0050, text=» =2, SAVE REG.«, t00=0x0000, t01=0x012a}
0x013e…0152 Head {h00=0x0010, h01=0x0050, text=» 81-01-26 «, t00=0x0000, t01=0x0142}
0x0152…0172 Head {h00=0x001c, h01=0x0050, text=» =1, RA ON EUQ ADDRESS«, t00=0x0000, t01=0x0156}
0x0172…0186 Head {h00=0x0010, h01=0x0050, text=» 81-01-26 «, t00=0x0000, t01=0x0176}
0x0186…01cc Head {h00=0x0042, h01=0x003d, text=»************************************************************* «, t00=0x0000, t01=0x018a}
0x01cc…0212 Head {h00=0x0042, h01=0x003d, text=»* * «, t00=0x0001, t01=0x0040}
0x0212…0258 Head {h00=0x0042, h01=0x003d, text=»* MODULE PAD * «, t00=0x0001, t01=0x0086}
0x0258…029e Head {h00=0x0042, h01=0x003d, text=»* MODULE HANDLING THE PACKING AND * «, t00=0x0001, t01=0x00cc}
0x029e…02e4 Head {h00=0x0042, h01=0x003d, text=»* UNPACKING OF THE DCBUFFER. THE VDU * «, t00=0x0001, t01=0x0112}
0x02e4…032a Head {h00=0x0042, h01=0x003d, text=»* BUFFER IS UPDATED * «, t00=0x0001, t01=0x0158}
0x032a…0370 Head {h00=0x0042, h01=0x003d, text=»* (EMULATION 3270 SNA/SDLC, BSC) * «, t00=0x0002, t01=0x000e}
0x0370…03b6 Head {h00=0x0042, h01=0x003d, text=»* * «, t00=0x0002, t01=0x0054}
0x03b6…03fc Head {h00=0x0042, h01=0x003d, text=»************************************************************* «, t00=0x0002, t01=0x009a}
0x03fc…040a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x00e0}
0x040a…0454 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0002, t01=0x00ee}
0x0454…045e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0138}
0x045e…0478 Head {h00=0x0016, h01=0x0050, text=»* LIST OF ROUTINES«, t00=0x0002, t01=0x0142}
0x0478…0482 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x015c}
0x0482…04c6 Head {h00=0x0040, h01=0x0050, text=»* PACK PACK MODIFIED VDU-FIELDS INTO DC-BUFFER «, t00=0x0002, t01=0x0166}
0x04c6…0502 Head {h00=0x0038, h01=0x0050, text=»* UNPACK UNPACK DC-BUFFER AND UPDATE VDU «, t00=0x0003, t01=0x001a}
0x0502…052e Head {h00=0x0028, h01=0x0050, text=»* RETTAB RETURN ADDRESSES«, t00=0x0003, t01=0x0056}
0x052e…055a Head {h00=0x0028, h01=0x0050, text=»* UNPCOM UNPACK COMMANDS «, t00=0x0003, t01=0x0082}
0x055a…0584 Head {h00=0x0026, h01=0x0050, text=»* UNPORD UNPACK ORDERS «, t00=0x0003, t01=0x00ae}
0x0584…05ac Head {h00=0x0024, h01=0x0050, text=»* ORDTAB ORDER TABLE «, t00=0x0003, t01=0x00d8}
0x05ac…05d4 Head {h00=0x0024, h01=0x0050, text=»* SF START FIELD «, t00=0x0003, t01=0x0100}
0x05d4…0602 Head {h00=0x002a, h01=0x0050, text=»* SBA SET BUFFER ADDRESS«, t00=0x0003, t01=0x0128}
0x0602…062c Head {h00=0x0026, h01=0x0050, text=»* IC INSERT CURSOR «, t00=0x0003, t01=0x0156}
0x062c…0654 Head {h00=0x0024, h01=0x0050, text=»* PT PROGRAM TAB.«, t00=0x0003, t01=0x0180}
0x0654…0682 Head {h00=0x002a, h01=0x0050, text=»* RA REPEAT TO ADDRESS «, t00=0x0004, t01=0x0018}
0x0682…06b6 Head {h00=0x0030, h01=0x0050, text=»* EUA ERASE UNPRO. TO ADDRESS «, t00=0x0004, t01=0x0046}
0x06b6…06e2 Head {h00=0x0028, h01=0x0050, text=»* CHAR < /20 BUT NOT ORDERS«, t00=0x0004, t01=0x007a}
0x06e2…071c Head {h00=0x0036, h01=0x0050, text=»* PACKSY PACK DC-BUFFER IN SYSTEM MODE «, t00=0x0004, t01=0x00a6}
0x071c…0758 Head {h00=0x0038, h01=0x0050, text=»* UNPSYS UNPACK DC-BUFFER IN SYSTEM MODE «, t00=0x0004, t01=0x00e0}
0x0758…078e Head {h00=0x0032, h01=0x0050, text=»* GETNXT GET AND CHECK NEXT BUFFER «, t00=0x0004, t01=0x011c}
0x078e…07ca Head {h00=0x0038, h01=0x0050, text=»* PUTCHA PUT CHAR. IN DC-BUFFER AND WRITE«, t00=0x0004, t01=0x0152}
0x07ca…07fa Head {h00=0x002c, h01=0x0050, text=»* PDCCH PUT CHAR. IN BUFFER «, t00=0x0004, t01=0x018e}
0x07fa…082a Head {h00=0x002c, h01=0x0050, text=»* GDCCH GET CHAR. IN BUFFER «, t00=0x0005, t01=0x002e}
0x082a…085a Head {h00=0x002c, h01=0x0050, text=»* PAID STORE AID IN BUFFER «, t00=0x0005, t01=0x005e}
0x085a…0898 Head {h00=0x003a, h01=0x0050, text=»* BUFADR STORE BUFFER ADDRESS IN DC-BUFFER «, t00=0x0005, t01=0x008e}
0x0898…08d4 Head {h00=0x0038, h01=0x0050, text=»* RESMDT RESET ALL MDT-BITS IN ATTRIBUTES«, t00=0x0005, t01=0x00cc}
0x08d4…090a Head {h00=0x0032, h01=0x0050, text=»* P1WCC PROCESS WCC BEFORE UPDATE «, t00=0x0005, t01=0x0108}
0x090a…0944 Head {h00=0x0036, h01=0x0050, text=»* P2WCC TAKE CARE OF WCC AFTER UPDATE «, t00=0x0005, t01=0x013e}
0x0944…0980 Head {h00=0x0038, h01=0x0050, text=»* SAVE SAVE PACK AND UNPACK INFORMATION«, t00=0x0005, t01=0x0178}
0x0980…09c0 Head {h00=0x003c, h01=0x0050, text=»* RESTOR RESTORE PACK AND UNPACK INFORMATION «, t00=0x0006, t01=0x0024}
0x09c0…09e8 Head {h00=0x0024, h01=0x0050, text=»* BUFFER BUFFER POOL «, t00=0x0006, t01=0x0064}
0x09e8…0a0e Head {h00=0x0022, h01=0x0050, text=»* GETBUF GET BUFFER«, t00=0x0006, t01=0x008c}
0x0a0e…0a38 Head {h00=0x0026, h01=0x0050, text=»* RELBUF RELEASE BUFFER«, t00=0x0006, t01=0x00b2}
0x0a38…0a42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00dc}
0x0a42…0a8c Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0006, t01=0x00e6}
0x0a8c…0a9a Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0006, t01=0x0130}
0x0a9a…0ae0 Head {h00=0x0042, h01=0x003d, text=»************************************************************* «, t00=0x0006, t01=0x013e}
0x0ae0…0b26 Head {h00=0x0042, h01=0x003d, text=»* * «, t00=0x0006, t01=0x0184}
0x0b26…0b6c Head {h00=0x0042, h01=0x003d, text=»* ENTRY POINTS * «, t00=0x0007, t01=0x003a}
0x0b6c…0bb2 Head {h00=0x0042, h01=0x003d, text=»* * «, t00=0x0007, t01=0x0080}
0x0bb2…0bf8 Head {h00=0x0042, h01=0x003d, text=»************************************************************* «, t00=0x0007, t01=0x00c6}
0x0bf8…0c00 Head {h00=0x0004, h01=0x0002, t00=0x0007, t01=0x010c}
0x0c00…0c34 Head {h00=0x0030, h01=0x0050, text=» ENTRY PACK PACK MOD. FIELDS INTO DC BUFFER «, t00=0x0007, t01=0x0114}
0x0c34…0c6a Head {h00=0x0032, h01=0x0050, text=» ENTRY UNPACK UNPACK DC BUFFER AND UPDATE VDU «, t00=0x0007, t01=0x0148}
0x0c6a…0ca0 Head {h00=0x0032, h01=0x0050, text=» ENTRY UNPSYS UNPACK DC BUFFER IN SYSTEM MODE «, t00=0x0007, t01=0x017e}
0x0ca0…0cc4 Head {h00=0x0020, h01=0x0050, text=» ENTRY GETBUF GET DC BUFFER «, t00=0x0008, t01=0x0024}
0x0cc4…0cec Head {h00=0x0024, h01=0x0050, text=» ENTRY RELBUF RELEASE DC BUFFER «, t00=0x0008, t01=0x0048}
0x0cec…0d1c Head {h00=0x002c, h01=0x0050, text=» ENTRY PAID STORE AID CODE IN DC BUFFER «, t00=0x0008, t01=0x0070}
0x0d1c…0d52 Head {h00=0x0032, h01=0x0050, text=» ENTRY BUFADR SORE BUFFER ADDRESS IN DC BUFFER«, t00=0x0008, t01=0x00a0}
0x0d52…0d86 Head {h00=0x0030, h01=0x0050, text=» ENTRY PACKSY PACK DC BUFFER IN SYSTEM MODE «, t00=0x0008, t01=0x00d6}
0x0d86…0daa Head {h00=0x0020, h01=0x0050, text=» ENTRY SAVE1 SAVE REGISTERS «, t00=0x0008, t01=0x010a}
0x0daa…0dd0 Head {h00=0x0022, h01=0x0050, text=» ENTRY REST1 RESTORE REGISTERS«, t00=0x0008, t01=0x012e}
0x0dd0…0dd8 Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x0154}
0x0dd8…0de6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x015c}
0x0de6…0e22 Head {h00=0x0038, h01=0x0033, text=»*************************************************** «, t00=0x0008, t01=0x016a}
0x0e22…0e5e Head {h00=0x0038, h01=0x0033, text=»* * «, t00=0x0009, t01=0x0016}
0x0e5e…0e9a Head {h00=0x0038, h01=0x0033, text=»* EXTERNAL REFERENCES * «, t00=0x0009, t01=0x0052}
0x0e9a…0ed6 Head {h00=0x0038, h01=0x0033, text=»* * «, t00=0x0009, t01=0x008e}
0x0ed6…0f12 Head {h00=0x0038, h01=0x0033, text=»*************************************************** «, t00=0x0009, t01=0x00ca}
0x0f12…0f1a Head {h00=0x0004, h01=0x0002, t00=0x0009, t01=0x0106}
0x0f1a…0f4e Head {h00=0x0030, h01=0x0050, text=» EXTRN CONEBC CONVERT ASCII-EBCDIC (CONVER)«, t00=0x0009, t01=0x010e}
0x0f4e…0f82 Head {h00=0x0030, h01=0x0050, text=» EXTRN CONASC CONVERT EBCDIC-ASCII (CONVER)«, t00=0x0009, t01=0x0142}
0x0f82…0fb0 Head {h00=0x002a, h01=0x0050, text=» EXTRN ERASE ERASE ENTIRE SCREEN (VDU)«, t00=0x0009, t01=0x0176}
0x0fb0…0fe8 Head {h00=0x0034, h01=0x0050, text=» EXTRN ERASUA ERASE UNPROTECTED TO ADDRESS (VDU)«, t00=0x000a, t01=0x0014}
0x0fe8…101e Head {h00=0x0032, h01=0x0050, text=» EXTRN CONORD CONVERT ORDER TO INDEX (CONVER)«, t00=0x000a, t01=0x004c}
0x101e…1050 Head {h00=0x002e, h01=0x0050, text=» EXTRN CONATT CONVERT ATTRIBUTE (CONVER) «, t00=0x000a, t01=0x0082}
0x1050…1082 Head {h00=0x002e, h01=0x0050, text=» EXTRN SCRINF GET SCREEN INFORMATION (VDU)«, t00=0x000a, t01=0x00b4}
0x1082…10be Head {h00=0x0038, h01=0x0050, text=» EXTRN ERASUP ERASE UNPROTECTED ENTIRE SCREEN (VDU) «, t00=0x000a, t01=0x00e6}
0x10be…10e8 Head {h00=0x0026, h01=0x0050, text=» EXTRN COPY LOCAL HARDCOPY (KEYB) «, t00=0x000a, t01=0x0122}
0x10e8…1116 Head {h00=0x002a, h01=0x0050, text=» EXTRN SOUND SOUND ALARM ON VDU (VDU) «, t00=0x000a, t01=0x014c}
0x1116…114c Head {h00=0x0032, h01=0x0050, text=» EXTRN ATMASB SEARCH ATTRIBUTE BACKWARDS (VDU)«, t00=0x000a, t01=0x017a}
0x114c…1182 Head {h00=0x0032, h01=0x0050, text=» EXTRN CONADR CONVERT BUFFER ADDRESS (CONVER)«, t00=0x000b, t01=0x0020}
0x1182…11b0 Head {h00=0x002a, h01=0x0050, text=» EXTRN WRAP CHECK IF WRAP AROUND (VDU)«, t00=0x000b, t01=0x0056}
0x11b0…11e4 Head {h00=0x0030, h01=0x0050, text=» EXTRN STOINF SAVE SCREEN INFORMATION (VDU) «, t00=0x000b, t01=0x0084}
0x11e4…1210 Head {h00=0x0028, h01=0x0050, text=» EXTRN LMP4ON INHIBIT LAMP ON (KEYB)«, t00=0x000b, t01=0x00b8}
0x1210…1246 Head {h00=0x0032, h01=0x0050, text=» EXTRN READNW READ WITH NO WAIT (DCSNA,DCBSC) «, t00=0x000b, t01=0x00e4}
0x1246…1274 Head {h00=0x002a, h01=0x0050, text=» EXTRN WAIT SYNCHRONIZE (DCSNA,DCBSC) «, t00=0x000b, t01=0x011a}
0x1274…12a8 Head {h00=0x0030, h01=0x0050, text=» EXTRN DCWRIT WRITE DC BUFFER (DCSNA,DCBSC) «, t00=0x000b, t01=0x0148}
0x12a8…12dc Head {h00=0x0030, h01=0x0050, text=» EXTRN DISMOD DISPLAY MODIFIED FIELDS (VDU) «, t00=0x000b, t01=0x017c}
0x12dc…130e Head {h00=0x002e, h01=0x0050, text=» EXTRN THRBUF THROW BUFFERS (DCSNA,DCBSC) «, t00=0x000c, t01=0x0020}
0x130e…133a Head {h00=0x0028, h01=0x0050, text=» EXTRN NLROUT NEW LINE ROUTINE (VDU)«, t00=0x000c, t01=0x0052}
0x133a…1360 Head {h00=0x0022, h01=0x0050, text=» EXTRN LINE WRAP ROUTINE (VDU)«, t00=0x000c, t01=0x007e}
0x1360…1396 Head {h00=0x0032, h01=0x0050, text=» EXTRN LINATT INTERNAL LINEFLAG ROUTINE (VDU) «, t00=0x000c, t01=0x00a4}
0x1396…13c6 Head {h00=0x002c, h01=0x0050, text=» EXTRN LINWRP ANOTHER WRAP ROUTINE (VDU)«, t00=0x000c, t01=0x00da}
0x13c6…13f0 Head {h00=0x0026, h01=0x0050, text=» EXTRN ERROR ERROR INCATOR (KEYB) «, t00=0x000c, t01=0x010a}
0x13f0…1426 Head {h00=0x0032, h01=0x0050, text=» EXTRN MATCH MATCH ADDRESS AND TASKID (DSPBSC)«, t00=0x000c, t01=0x0134}
0x1426…1454 Head {h00=0x002a, h01=0x0050, text=» EXTRN ICSET INTERTASK TIMEOUT (KEYB) «, t00=0x000c, t01=0x016a}
0x1454…1480 Head {h00=0x0028, h01=0x0050, text=» EXTRN ICWRT INTERTASK WRITE (KEYB) «, t00=0x000d, t01=0x0008}
0x1480…14b0 Head {h00=0x002c, h01=0x0050, text=» EXTRN COPP COPY ON PRINTER DIRECTLY =4 «, t00=0x000d, t01=0x0034}
0x14b0…14be Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x000d, t01=0x0064}
0x14be…14fa Head {h00=0x0038, h01=0x0033, text=»*************************************************** «, t00=0x000d, t01=0x0072}
0x14fa…1536 Head {h00=0x0038, h01=0x0033, text=»* * «, t00=0x000d, t01=0x00ae}
0x1536…1572 Head {h00=0x0038, h01=0x0033, text=»* CONDITIONAL ASSEMBLY PARAMETERS * «, t00=0x000d, t01=0x00ea}
0x1572…15ae Head {h00=0x0038, h01=0x0033, text=»* * «, t00=0x000d, t01=0x0126}
0x15ae…15ea Head {h00=0x0038, h01=0x0033, text=»*************************************************** «, t00=0x000d, t01=0x0162}
0x15ea…15f2 Head {h00=0x0004, h01=0x0002, t00=0x000e, t01=0x000e}
0x15f2…1616 Head {h00=0x0020, h01=0x0050, text=»X:A EQU 0 SNA HANDLING IF:=1«, t00=0x000e, t01=0x0016}
0x1616…162a Head {h00=0x0010, h01=0x0050, text=»SNA EQU X:A «, t00=0x000e, t01=0x003a}
0x162a…1654 Head {h00=0x0026, h01=0x0050, text=»X:K EQU 2 NUMBER OF BUFFERS (1-32)«, t00=0x000e, t01=0x004e}
0x1654…166a Head {h00=0x0012, h01=0x0050, text=»BUFFNR EQU X:K«, t00=0x000e, t01=0x0078}
0x166a…1698 Head {h00=0x002a, h01=0x0050, text=»X:L EQU 1000 MAX BUFFER SIZE IN WORDS «, t00=0x000e, t01=0x008e}
0x1698…16ae Head {h00=0x0012, h01=0x0050, text=»BUFFL EQU X:L «, t00=0x000e, t01=0x00bc}
0x16ae…16dc Head {h00=0x002a, h01=0x0050, text=»X:M EQU 0 COPY COMMAND INCLUDED IF:=1 «, t00=0x000e, t01=0x00d2}
0x16dc…16f2 Head {h00=0x0012, h01=0x0050, text=»COPCMD EQU X:M«, t00=0x000e, t01=0x0100}
0x16f2…1716 Head {h00=0x0020, h01=0x0050, text=»X:N EQU 1 EBCDIC CHAR IF:=1 «, t00=0x000e, t01=0x0116}
0x1716…172c Head {h00=0x0012, h01=0x0050, text=»EBCDIC EQU X:N«, t00=0x000e, t01=0x013a}
0x172c…175a Head {h00=0x002a, h01=0x0050, text=»X:Z EQU 1 =0,WHOLE,=1 CHAIN,=2 SEGMENT«, t00=0x000e, t01=0x0150}
0x175a…1770 Head {h00=0x0012, h01=0x0050, text=»DISHOW EQU X:Z«, t00=0x000e, t01=0x017e}
0x1770…177e (15, 0, 398) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x0004}
0x177e…17c6 Head {h00=0x0044, h01=0x003f, text=»*************************************************************** «, t00=0x000f, t01=0x0012}
0x17c6…180e Head {h00=0x0044, h01=0x003f, text=»* * «, t00=0x000f, t01=0x005a}
0x180e…1838 Head {h00=0x0026, h01=0x0050, text=»* DECLARATION OF DATA AND EQUATES «, t00=0x000f, t01=0x00a2}
0x1838…1880 Head {h00=0x0044, h01=0x003f, text=»* * «, t00=0x000f, t01=0x00cc}
0x1880…18c8 Head {h00=0x0044, h01=0x003f, text=»*************************************************************** «, t00=0x000f, t01=0x0114}
0x18c8…18d0 Head {h00=0x0004, h01=0x0002, t00=0x000f, t01=0x015c}
0x18d0…18da Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000f, t01=0x0164}
0x18da…1902 Head {h00=0x0024, h01=0x0020, text=»* EQUATES FOR ECB HANDLING«, t00=0x000f, t01=0x016e}
0x1902…190c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0010, t01=0x0008}
0x190c…192e Head {h00=0x001e, h01=0x001a, text=»ECBBA EQU 2 BUFFER ADDRESS«, t00=0x0010, t01=0x0012}
0x192e…1952 Head {h00=0x0020, h01=0x001c, text=»ECBRL EQU 4 REQUESTED LENGTH«, t00=0x0010, t01=0x0034}
0x1952…1976 Head {h00=0x0020, h01=0x001c, text=»ECBEL EQU 6 EFFECTIVE LENGTH«, t00=0x0010, t01=0x0058}
0x1976…1996 Head {h00=0x001c, h01=0x0017, text=»ECBRC EQU 8 RETURN CODE «, t00=0x0010, t01=0x007c}
0x1996…19b8 Head {h00=0x001e, h01=0x0019, text=»ECBCW EQU 10 CONTROL WORD «, t00=0x0010, t01=0x009c}
0x19b8…19c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00be}
0x19c2…19dc Head {h00=0x0016, h01=0x0050, text=»* INTERNAL STATUS «, t00=0x0010, t01=0x00c8}
0x19dc…19e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00e2}
0x19e6…1a16 Head {h00=0x002c, h01=0x0050, text=»LICREC EQU /2000 LAST IN CHAIN RECEIVED «, t00=0x0010, t01=0x00ec}
0x1a16…1a3c Head {h00=0x0022, h01=0x0050, text=»THROWB EQU /0800 THROW BUFFERS«, t00=0x0010, t01=0x011c}
0x1a3c…1a5e Head {h00=0x001e, h01=0x0050, text=»NEWCH EQU /0400 NEW CHAIN «, t00=0x0010, t01=0x0142}
0x1a5e…1a8a Head {h00=0x0028, h01=0x0050, text=»ATTREC EQU /0002 ATTRIBUTE RECEIVED «, t00=0x0010, t01=0x0164}
0x1a8a…1ab4 Head {h00=0x0026, h01=0x0050, text=»PTORD EQU /0001 PT ORDER INDICATOR«, t00=0x0010, t01=0x0190}
0x1ab4…1ac6 Head {h00=0x000e, h01=0x000a, text=» IFT SNA=1«, t00=0x0011, t01=0x002a}
0x1ac6…1ad0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0011, t01=0x003c}
0x1ad0…1aea Head {h00=0x0016, h01=0x0011, text=»* SNA MODES «, t00=0x0011, t01=0x0046}
0x1aea…1af4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0011, t01=0x0060}
0x1af4…1b14 Head {h00=0x001c, h01=0x0050, text=»LOCMOD EQU 0 LOCAL MODE «, t00=0x0011, t01=0x006a}
0x1b14…1b34 Head {h00=0x001c, h01=0x0017, text=»SYSOP EQU 2 SYSTEM MODE «, t00=0x0011, t01=0x008a}
0x1b34…1b54 Head {h00=0x001c, h01=0x0017, text=»MYJOB EQU 4 MY JOB MODE «, t00=0x0011, t01=0x00aa}
0x1b54…1b60 Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x0011, t01=0x00ca}
0x1b60…1b6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00d6}
0x1b6a…1b8c Head {h00=0x001e, h01=0x0050, text=»* TASK IDENTIFICATION CODE«, t00=0x0011, t01=0x00e0}
0x1b8c…1b96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0102}
0x1b96…1bba Head {h00=0x0020, h01=0x0050, text=»VDUCOD EQU 'VV' VDU KB TASK «, t00=0x0011, t01=0x010c}
0x1bba…1bc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0130}
0x1bc4…1be0 Head {h00=0x0018, h01=0x0050, text=»* SPECIAL CHARACTERS«, t00=0x0011, t01=0x013a}
0x1be0…1bea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0156}
0x1bea…1c08 Head {h00=0x001a, h01=0x0050, text=»NULL EQU 0 NULL CHAR. «, t00=0x0011, t01=0x0160}
0x1c08…1c28 Head {h00=0x001c, h01=0x0050, text=»SBACH EQU /11 SBA CHAR. «, t00=0x0011, t01=0x017e}
0x1c28…1c4c Head {h00=0x0020, h01=0x0050, text=»ESCCHA EQU /1B ESCAPE CHAR. «, t00=0x0012, t01=0x000e}
0x1c4c…1c56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0032}
0x1c56…1c70 Head {h00=0x0016, h01=0x0050, text=»* VDU SCREEN SIZE «, t00=0x0012, t01=0x003c}
0x1c70…1c7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0056}
0x1c7a…1c9c Head {h00=0x001e, h01=0x0050, text=»LBVDU EQU 1920 TOTAL SIZE «, t00=0x0012, t01=0x0060}
0x1c9c…1cbc Head {h00=0x001c, h01=0x0050, text=»LLINE EQU 80 LINE LENGTH«, t00=0x0012, t01=0x0082}
0x1cbc…1cc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00a2}
0x1cc6…1cea Head {h00=0x0020, h01=0x0050, text=»* BUFFER LINK LENGTH «, t00=0x0012, t01=0x00ac}
0x1cea…1cf4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00d0}
0x1cf4…1d12 Head {h00=0x001a, h01=0x0050, text=»LINK EQU BUFFL+BUFFL+2«, t00=0x0012, t01=0x00da}
0x1d12…1d20 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x00f8}
0x1d20…1d2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0106}
0x1d2a…1d4a Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x0012, t01=0x0110}
0x1d4a…1d66 Head {h00=0x0018, h01=0x0050, text=»* TERMINAL WORKBLOCK«, t00=0x0012, t01=0x0130}
0x1d66…1d70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x014c}
0x1d70…1d98 Head {h00=0x0024, h01=0x0050, text=»TCT01 EQU 0 TASK IDENTIFICATION «, t00=0x0012, t01=0x0156}
0x1d98…1dbe Head {h00=0x0022, h01=0x0050, text=»BVDU EQU TCT01+2 SCREEN BUFFER«, t00=0x0012, t01=0x017e}
0x1dbe…1dee Head {h00=0x002c, h01=0x0050, text=»LINFLG EQU BVDU+1920 INTERNAL LINE FLAGS«, t00=0x0013, t01=0x0014}
0x1dee…1e22 Head {h00=0x0030, h01=0x0050, text=»PCURS EQU LINFLG+24 CURSOR ADDRESS , BINARY «, t00=0x0013, t01=0x0044}
0x1e22…1e3c Head {h00=0x0016, h01=0x0050, text=»CURATT EQU PCURS+4«, t00=0x0013, t01=0x0078}
0x1e3c…1e66 Head {h00=0x0026, h01=0x0050, text=»WCC EQU CURATT+2 WCC/CCC CHARACTER«, t00=0x0013, t01=0x0092}
0x1e66…1e90 Head {h00=0x0026, h01=0x0050, text=»KBINH EQU WCC+2 INHIBIT INDICATOR «, t00=0x0013, t01=0x00bc}
0x1e90…1ebe Head {h00=0x002a, h01=0x0050, text=»DCLENG EQU KBINH+4 LENGTH OF DC BUFFER«, t00=0x0013, t01=0x00e6}
0x1ebe…1ef4 Head {h00=0x0032, h01=0x0050, text=»CURPOS EQU DCLENG+30 CURSOR POS IN SYSTEM MODE«, t00=0x0013, t01=0x0114}
0x1ef4…1f1e Head {h00=0x0026, h01=0x0050, text=»BUFPNT EQU CURPOS+2 BUFFER ADDRESS«, t00=0x0013, t01=0x014a}
0x1f1e…1f46 Head {h00=0x0024, h01=0x0050, text=»REGI EQU BUFPNT+2 WORK REGISTER «, t00=0x0013, t01=0x0174}
0x1f46…1f6e Head {h00=0x0024, h01=0x0050, text=»STACK1 EQU REGI+2 INTERNAL STACK«, t00=0x0014, t01=0x000c}
0x1f6e…1f8a Head {h00=0x0018, h01=0x0050, text=»STACK2 EQU STACK1+14«, t00=0x0014, t01=0x0034}
0x1f8a…1fb2 Head {h00=0x0024, h01=0x0050, text=»UNPMOD EQU STACK2+14 UNPACK MODE«, t00=0x0014, t01=0x0050}
0x1fb2…1fd6 Head {h00=0x0020, h01=0x0050, text=»SNAMOD EQU UNPMOD+2 SNA MODE«, t00=0x0014, t01=0x0078}
0x1fd6…200a Head {h00=0x0030, h01=0x0050, text=»ECBICW EQU SNAMOD+12 ECB INTERTASK WRITE =3 «, t00=0x0014, t01=0x009c}
0x200a…2018 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x00d0}
0x2018…205c Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0014, t01=0x00de}
0x205c…20a0 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0014, t01=0x0122}
0x20a0…20e6 Head {h00=0x0042, h01=0x0050, text=»* PACK PACK MODIFIED VDU-FIELDS INTO DC-BUFFER * «, t00=0x0014, t01=0x0166}
0x20e6…212c Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0015, t01=0x001c}
0x212c…2172 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0015, t01=0x0062}
0x2172…2186 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0015, t01=0x00a8}
0x2186…2190 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00bc}
0x2190…21a4 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0015, t01=0x00c6}
0x21a4…21c8 Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x0015, t01=0x00da}
0x21c8…21e6 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0015, t01=0x00fe}
0x21e6…2208 Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x0015, t01=0x011c}
0x2208…2224 Head {h00=0x0018, h01=0x0050, text=»* A6= ATTRIBUTE CHAR«, t00=0x0015, t01=0x013e}
0x2224…2246 Head {h00=0x001e, h01=0x0050, text=»* A8= ADDRESS IN DC-BUFFER«, t00=0x0015, t01=0x015a}
0x2246…2264 Head {h00=0x001a, h01=0x0050, text=»* A9= DC-BUFFER INDEX «, t00=0x0015, t01=0x017c}
0x2264…2280 Head {h00=0x0018, h01=0x0050, text=»* A10= START ADDRESS«, t00=0x0016, t01=0x000a}
0x2280…2298 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0016, t01=0x0026}
0x2298…22b6 Head {h00=0x001a, h01=0x0050, text=»* A12= BUFFER ADDRESS «, t00=0x0016, t01=0x003e}
0x22b6…22ce Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0016, t01=0x005c}
0x22ce…22d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0074}
0x22d8…231c Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0016, t01=0x007e}
0x231c…232e Head {h00=0x000e, h01=0x0050, text=»PACK EQU *«, t00=0x0016, t01=0x00c2}
0x232e…235c Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x0016, t01=0x00d4}
0x235c…2380 Head {h00=0x0020, h01=0x0050, text=» LDK A4,0 FIRST SCREEN POS. «, t00=0x0016, t01=0x0102}
0x2380…2396 Head {h00=0x0012, h01=0x0050, text=» LDKL A3,BVDU «, t00=0x0016, t01=0x0126}
0x2396…23aa Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0016, t01=0x013c}
0x23aa…23ce Head {h00=0x0020, h01=0x0050, text=» LDR A10,A4 INITIATE ADDRESS«, t00=0x0016, t01=0x0150}
0x23ce…23fa Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x0016, t01=0x0174}
0x23fa…2414 Head {h00=0x0016, h01=0x0050, text=» RF(E) PACK70 YES «, t00=0x0017, t01=0x0010}
0x2414…2428 Head {h00=0x0010, h01=0x0050, text=»PACK10 EQU *«, t00=0x0017, t01=0x002a}
0x2428…2444 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x0017, t01=0x003e}
0x2444…2464 Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x0017, t01=0x005a}
0x2464…247e Head {h00=0x0016, h01=0x0050, text=» RF(NL) PACK15 YES«, t00=0x0017, t01=0x007a}
0x247e…2490 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0017, t01=0x0094}
0x2490…24a2 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0017, t01=0x00a6}
0x24a2…24b4 Head {h00=0x000e, h01=0x0050, text=» RB PACK10«, t00=0x0017, t01=0x00b8}
0x24b4…24c8 Head {h00=0x0010, h01=0x0050, text=»PACK15 EQU *«, t00=0x0017, t01=0x00ca}
0x24c8…24ea Head {h00=0x001e, h01=0x0050, text=» LDR A10,A4 START ADDRESS «, t00=0x0017, t01=0x00de}
0x24ea…24fc Head {h00=0x000e, h01=0x0050, text=» RF PACK30«, t00=0x0017, t01=0x0100}
0x24fc…2510 Head {h00=0x0010, h01=0x0050, text=»PACK20 EQU *«, t00=0x0017, t01=0x0112}
0x2510…253a Head {h00=0x0026, h01=0x0050, text=» CF A14,WRAP CHECK IF WRAP AROUND «, t00=0x0017, t01=0x0126}
0x253a…255a Head {h00=0x001c, h01=0x0050, text=» CWR A10,A4 ALL SCANNED?«, t00=0x0017, t01=0x0150}
0x255a…2574 Head {h00=0x0016, h01=0x0050, text=» RF(E) PACK80 YES «, t00=0x0017, t01=0x0170}
0x2574…2588 Head {h00=0x0010, h01=0x0050, text=»PACK30 EQU *«, t00=0x0017, t01=0x018a}
0x2588…25a4 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x0018, t01=0x000e}
0x25a4…25b6 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0018, t01=0x002a}
0x25b6…25c8 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0018, t01=0x003c}
0x25c8…25e8 Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x0018, t01=0x004e}
0x25e8…2600 Head {h00=0x0014, h01=0x0050, text=» RB(L) PACK20 NO«, t00=0x0018, t01=0x006e}
0x2600…2622 Head {h00=0x001e, h01=0x0050, text=» ANK A2,1 MODIFIED FIELD? «, t00=0x0018, t01=0x0086}
0x2622…263c Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PACK50 YES«, t00=0x0018, t01=0x00a8}
0x263c…264e Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0018, t01=0x00c2}
0x264e…2660 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0018, t01=0x00d4}
0x2660…2672 Head {h00=0x000e, h01=0x0050, text=» RB PACK20«, t00=0x0018, t01=0x00e6}
0x2672…2686 Head {h00=0x0010, h01=0x0050, text=»PACK50 EQU *«, t00=0x0018, t01=0x00f8}
0x2686…26ac Head {h00=0x0022, h01=0x0050, text=» LDK A2,SBACH SBA TO DC-BUFFER«, t00=0x0018, t01=0x010c}
0x26ac…26d0 Head {h00=0x0020, h01=0x0050, text=» LDKL A1,/8000 INDICATE SBA «, t00=0x0018, t01=0x0132}
0x26d0…26fa Head {h00=0x0026, h01=0x0050, text=» CF A14,PUTCHA PUT CHAR. IN BUFFER«, t00=0x0018, t01=0x0156}
0x26fa…271e Head {h00=0x0020, h01=0x0050, text=» LDR A1,A1 TRANSMISSION OK? «, t00=0x0018, t01=0x0180}
0x271e…2738 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PACK90 NO «, t00=0x0019, t01=0x0014}
0x2738…2766 Head {h00=0x002a, h01=0x0050, text=» LDR A1,A4 BUFFER ADDRESS TO DC-BUFFER«, t00=0x0019, t01=0x002e}
0x2766…277c Head {h00=0x0012, h01=0x0050, text=» CF A14,BUFADR«, t00=0x0019, t01=0x005c}
0x277c…2790 Head {h00=0x0010, h01=0x0050, text=»PACK60 EQU *«, t00=0x0019, t01=0x0072}
0x2790…27ba Head {h00=0x0026, h01=0x0050, text=» CF A14,WRAP CHECK IF WRAP AROUND «, t00=0x0019, t01=0x0086}
0x27ba…27da Head {h00=0x001c, h01=0x0050, text=» CWR A10,A4 ALL SCANNED?«, t00=0x0019, t01=0x00b0}
0x27da…27f4 Head {h00=0x0016, h01=0x0050, text=» RF(E) PACK80 YES «, t00=0x0019, t01=0x00d0}
0x27f4…2808 Head {h00=0x0010, h01=0x0050, text=»PACK70 EQU *«, t00=0x0019, t01=0x00ea}
0x2808…2824 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x0019, t01=0x00fe}
0x2824…2844 Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x0019, t01=0x011a}
0x2844…285e Head {h00=0x0016, h01=0x0050, text=» RB(NL) PACK20 YES«, t00=0x0019, t01=0x013a}
0x285e…287e Head {h00=0x001c, h01=0x0050, text=» CWK A2,NULL NULL CHAR? «, t00=0x0019, t01=0x0154}
0x287e…28a4 Head {h00=0x0022, h01=0x0050, text=» RF(E) PACK75 YES,DON'T STORE «, t00=0x0019, t01=0x0174}
0x28a4…28ce Head {h00=0x0026, h01=0x0050, text=» CF A14,PUTCHA PUT CHAR. IN BUFFER«, t00=0x001a, t01=0x000a}
0x28ce…28f2 Head {h00=0x0020, h01=0x0050, text=» LDR A1,A1 TRANSMISSION OK? «, t00=0x001a, t01=0x0034}
0x28f2…290c Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PACK90 NO «, t00=0x001a, t01=0x0058}
0x290c…2920 Head {h00=0x0010, h01=0x0050, text=»PACK75 EQU *«, t00=0x001a, t01=0x0072}
0x2920…2932 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x001a, t01=0x0086}
0x2932…2944 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x001a, t01=0x0098}
0x2944…2956 Head {h00=0x000e, h01=0x0050, text=» RB PACK60«, t00=0x001a, t01=0x00aa}
0x2956…296a Head {h00=0x0010, h01=0x0050, text=»PACK80 EQU *«, t00=0x001a, t01=0x00bc}
0x296a…2992 Head {h00=0x0024, h01=0x0050, text=» LDK A1,0 INDICATE LAST IN CHAIN«, t00=0x001a, t01=0x00d0}
0x2992…29b8 Head {h00=0x0022, h01=0x0050, text=» CF A14,DCWRIT WRITE DC BUFFER«, t00=0x001a, t01=0x00f8}
0x29b8…29cc Head {h00=0x0010, h01=0x0050, text=»PACK90 EQU *«, t00=0x001a, t01=0x011e}
0x29cc…29f2 Head {h00=0x0022, h01=0x0050, text=» LDR A8,A12 BUFFER TO RELEASE «, t00=0x001a, t01=0x0132}
0x29f2…2a18 Head {h00=0x0022, h01=0x0050, text=» CF A14,RELBUF RELEASE BUFFER «, t00=0x001a, t01=0x0158}
0x2a18…2a28 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001a, t01=0x017e}
0x2a28…2a36 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x001a, t01=0x018e}
0x2a36…2a7a Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x001b, t01=0x000c}
0x2a7a…2abe Head {h00=0x0040, h01=0x003c, text=»* *«, t00=0x001b, t01=0x0050}
0x2abe…2b02 Head {h00=0x0040, h01=0x003c, text=»* UNPACK UNPACK DC-BUFFER AND UPDATE VDU *«, t00=0x001b, t01=0x0094}
0x2b02…2b46 Head {h00=0x0040, h01=0x003c, text=»* *«, t00=0x001b, t01=0x00d8}
0x2b46…2b8a Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x001b, t01=0x011c}
0x2b8a…2b9e Head {h00=0x0010, h01=0x000c, text=»* REGISTERS«, t00=0x001b, t01=0x0160}
0x2b9e…2ba8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001b, t01=0x0174}
0x2ba8…2bbc Head {h00=0x0010, h01=0x000b, text=»* A2= CHAR. «, t00=0x001b, t01=0x017e}
0x2bbc…2be0 (28, 0, 398) Head {h00=0x0020, h01=0x001b, text=»* A3= POINTER IN VDU-BUFFER «, t00=0x001c, t01=0x0004}
0x2be0…2bfe Head {h00=0x001a, h01=0x0016, text=»* A4= REL. CURSOR POS.«, t00=0x001c, t01=0x0028}
0x2bfe…2c20 Head {h00=0x001e, h01=0x0050, text=»* A5= LAST IN ROW REL POS «, t00=0x001c, t01=0x0046}
0x2c20…2c48 Head {h00=0x0024, h01=0x0050, text=»* A6= INTERNAL LINE FLAG ADDRESS«, t00=0x001c, t01=0x0068}
0x2c48…2c6a Head {h00=0x001e, h01=0x0050, text=»* A8= ADDRESS IN DC-BUFFER«, t00=0x001c, t01=0x0090}
0x2c6a…2c88 Head {h00=0x001a, h01=0x0015, text=»* A9= DC-BUFFER INDEX «, t00=0x001c, t01=0x00b2}
0x2c88…2ca0 Head {h00=0x0014, h01=0x0010, text=»* A10= INDICATOR«, t00=0x001c, t01=0x00d0}
0x2ca0…2cc0 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x001c, t01=0x00e8}
0x2cc0…2cd8 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x001c, t01=0x0108}
0x2cd8…2cf0 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x001c, t01=0x0120}
0x2cf0…2cfa Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001c, t01=0x0138}
0x2cfa…2d3a Head {h00=0x003c, h01=0x0038, text=»********************************************************«, t00=0x001c, t01=0x0142}
0x2d3a…2d4e Head {h00=0x0010, h01=0x000c, text=»UNPACK EQU *«, t00=0x001c, t01=0x0182}
0x2d4e…2d72 Head {h00=0x0020, h01=0x0050, text=» LDK A1,3 KB TOTALLY INHIBIT«, t00=0x001d, t01=0x0008}
0x2d72…2d8c Head {h00=0x0016, h01=0x0050, text=» ORS A1,KBINH,A11 «, t00=0x001d, t01=0x002c}
0x2d8c…2da4 Head {h00=0x0014, h01=0x0050, text=» LC A1,TCT01,A11«, t00=0x001d, t01=0x0046}
0x2da4…2dca Head {h00=0x0022, h01=0x0050, text=» CCK A1,VDUCOD PRINTER UNPACK?«, t00=0x001d, t01=0x005e}
0x2dca…2de4 Head {h00=0x0016, h01=0x0050, text=» RF(NE) UNP050 YES«, t00=0x001d, t01=0x0084}
0x2de4…2e0a Head {h00=0x0022, h01=0x0050, text=» CF A14,LMP4ON INHIBIT LAMP ON«, t00=0x001d, t01=0x009e}
0x2e0a…2e1e Head {h00=0x0010, h01=0x0050, text=»UNP050 EQU *«, t00=0x001d, t01=0x00c4}
0x2e1e…2e4c Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x001d, t01=0x00d8}
0x2e4c…2e60 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x001d, t01=0x0106}
0x2e60…2e76 Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x001d, t01=0x011a}
0x2e76…2ea4 Head {h00=0x002a, h01=0x0050, text=» CF A14,LINE CHECK WRAP AND LINE FLAG «, t00=0x001d, t01=0x0130}
0x2ea4…2eb6 Head {h00=0x000e, h01=0x0050, text=» SUR A9,A9«, t00=0x001d, t01=0x015e}
0x2eb6…2ee2 Head {h00=0x0028, h01=0x0050, text=» LD A8,BUFPNT,A11 GET BUFFER ADDRESS«, t00=0x001d, t01=0x0170}
0x2ee2…2f08 Head {h00=0x0022, h01=0x0050, text=» LDK A1,ICOMND PROCESS COMMAND«, t00=0x001e, t01=0x000c}
0x2f08…2f22 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x001e, t01=0x0032}
0x2f22…2f36 Head {h00=0x0010, h01=0x0050, text=»UNP100 EQU *«, t00=0x001e, t01=0x004c}
0x2f36…2f56 Head {h00=0x001c, h01=0x0050, text=» CF A14,GDCCH GET CHAR. «, t00=0x001e, t01=0x0060}
0x2f56…2f78 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 ANYTHING LEFT? «, t00=0x001e, t01=0x0080}
0x2f78…2f92 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) UNP200 NO «, t00=0x001e, t01=0x00a2}
0x2f92…2fc4 Head {h00=0x002e, h01=0x0050, text=» LD A1,UNPMOD,A11 GET ADDRESS TO START AT «, t00=0x001e, t01=0x00bc}
0x2fc4…2fe6 Head {h00=0x001e, h01=0x0050, text=» CFI A14,RETTAB,A1 RESTART«, t00=0x001e, t01=0x00ee}
0x2fe6…3006 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A1 PROCESS OKEY?«, t00=0x001e, t01=0x0110}
0x3006…3020 Head {h00=0x0016, h01=0x0050, text=» RB(Z) UNP100 YES «, t00=0x001e, t01=0x0130}
0x3020…3032 Head {h00=0x000e, h01=0x0050, text=» RF UNP300«, t00=0x001e, t01=0x014a}
0x3032…3046 Head {h00=0x0010, h01=0x0050, text=»UNP200 EQU *«, t00=0x001e, t01=0x015c}
0x3046…3058 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x001e, t01=0x0170}
0x3058…307e Head {h00=0x0022, h01=0x0050, text=» CF A14,GETNXT GET NEXT BUFFER«, t00=0x001e, t01=0x0182}
0x307e…309a Head {h00=0x0018, h01=0x0050, text=» LDR A1,A1 FINISHED?«, t00=0x001f, t01=0x0018}
0x309a…30b2 Head {h00=0x0014, h01=0x0050, text=» RB(Z) UNP100 NO«, t00=0x001f, t01=0x0034}
0x30b2…30be Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x004c}
0x30be…30d2 Head {h00=0x0010, h01=0x0050, text=»UNP300 EQU *«, t00=0x001f, t01=0x0058}
0x30d2…30f8 Head {h00=0x0022, h01=0x0050, text=» CF A14,SCRINF GET LATEST NEWS«, t00=0x001f, t01=0x006c}
0x30f8…310a Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x001f, t01=0x0092}
0x310a…313c Head {h00=0x002e, h01=0x0050, text=» CF A14,ATMASB SEARCH ATTRIBUTE BACKWARDS «, t00=0x001f, t01=0x00a4}
0x313c…314e Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x001f, t01=0x00d6}
0x314e…3176 Head {h00=0x0024, h01=0x0050, text=» ANKL A10,THROWB THROW BUFFERS? «, t00=0x001f, t01=0x00e8}
0x3176…318e Head {h00=0x0014, h01=0x0050, text=» RF(Z) UNP400 NO«, t00=0x001f, t01=0x0110}
0x318e…31b2 Head {h00=0x0020, h01=0x0050, text=» CF A14,THRBUF THROW BUFFERS«, t00=0x001f, t01=0x0128}
0x31b2…31c4 Head {h00=0x000e, h01=0x0050, text=» RF UNP600«, t00=0x001f, t01=0x014c}
0x31c4…31d8 Head {h00=0x0010, h01=0x0050, text=»UNP400 EQU *«, t00=0x001f, t01=0x015e}
0x31d8…31ee Head {h00=0x0012, h01=0x0050, text=» IFF DISHOW=2 «, t00=0x001f, t01=0x0172}
0x31ee…3206 Head {h00=0x0014, h01=0x0050, text=» LC A1,TCT01,A11«, t00=0x001f, t01=0x0188}
0x3206…321c Head {h00=0x0012, h01=0x0050, text=» CCK A1,VDUCOD«, t00=0x0020, t01=0x0010}
0x321c…3232 Head {h00=0x0012, h01=0x0050, text=» RF(NE) UNP500«, t00=0x0020, t01=0x0026}
0x3232…326c Head {h00=0x0036, h01=0x0050, text=» CF A14,DISMOD TESTINGTESTINGTESTING!!!!!!!!!!!!! «, t00=0x0020, t01=0x003c}
0x326c…3280 Head {h00=0x0010, h01=0x0050, text=»UNP500 EQU *«, t00=0x0020, t01=0x0076}
0x3280…328c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x008a}
0x328c…32ba Head {h00=0x002a, h01=0x0050, text=» CF A14,P2WCC CHECK IT A LAST TIME =4 «, t00=0x0020, t01=0x0096}
0x32ba…32e4 Head {h00=0x0026, h01=0x0050, text=» LDR A8,A12 GET BUFFER TO RELEASE «, t00=0x0020, t01=0x00c4}
0x32e4…330a Head {h00=0x0022, h01=0x0050, text=» CF A14,RELBUF RELEASE BUFFER «, t00=0x0020, t01=0x00ee}
0x330a…331e Head {h00=0x0010, h01=0x0050, text=»UNP600 EQU *«, t00=0x0020, t01=0x0114}
0x331e…332e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0020, t01=0x0128}
0x332e…333c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x0138}
0x333c…338a Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0020, t01=0x0146}
0x338a…33d8 (33, 0, 400) Head {h00=0x004a, h01=0x0050, text=»* *«, t00=0x0021, t01=0x0004}
0x33d8…3426 Head {h00=0x004a, h01=0x0050, text=»* INDEX FOR RETURNS AFTER GET CHARCTER *«, t00=0x0021, t01=0x0052}
0x3426…3474 Head {h00=0x004a, h01=0x0050, text=»* *«, t00=0x0021, t01=0x00a0}
0x3474…34c2 Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0021, t01=0x00ee}
0x34c2…34ca Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x013c}
0x34ca…34de Head {h00=0x0010, h01=0x0050, text=»ICOMND EQU 0«, t00=0x0021, t01=0x0144}
0x34de…34fa Head {h00=0x0018, h01=0x0050, text=»ICOMN1 EQU ICOMND+2 «, t00=0x0021, t01=0x0158}
0x34fa…3510 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0021, t01=0x0174}
0x3510…352c Head {h00=0x0018, h01=0x0050, text=»ICOCOP EQU ICOMN1+2 «, t00=0x0021, t01=0x018a}
0x352c…3548 Head {h00=0x0018, h01=0x0050, text=»ICOWCC EQU ICOCOP+2 «, t00=0x0022, t01=0x0016}
0x3548…3554 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x0032}
0x3554…356a Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0022, t01=0x003e}
0x356a…3586 Head {h00=0x0018, h01=0x0050, text=»ICOWCC EQU ICOMN1+2 «, t00=0x0022, t01=0x0054}
0x3586…3592 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x0070}
0x3592…35ae Head {h00=0x0018, h01=0x0050, text=»IORDER EQU ICOWCC+2 «, t00=0x0022, t01=0x007c}
0x35ae…35ca Head {h00=0x0018, h01=0x0050, text=»IOSFAT EQU IORDER+2 «, t00=0x0022, t01=0x0098}
0x35ca…35e6 Head {h00=0x0018, h01=0x0050, text=»IOSBA1 EQU IOSFAT+2 «, t00=0x0022, t01=0x00b4}
0x35e6…3602 Head {h00=0x0018, h01=0x0050, text=»IOSBA2 EQU IOSBA1+2 «, t00=0x0022, t01=0x00d0}
0x3602…361e Head {h00=0x0018, h01=0x0050, text=»IORAA1 EQU IOSBA2+2 «, t00=0x0022, t01=0x00ec}
0x361e…363a Head {h00=0x0018, h01=0x0050, text=»IORAA2 EQU IORAA1+2 «, t00=0x0022, t01=0x0108}
0x363a…3656 Head {h00=0x0018, h01=0x0050, text=»IORACH EQU IORAA2+2 «, t00=0x0022, t01=0x0124}
0x3656…3672 Head {h00=0x0018, h01=0x0050, text=»IOEUA1 EQU IORACH+2 «, t00=0x0022, t01=0x0140}
0x3672…368e Head {h00=0x0018, h01=0x0050, text=»IOEUA2 EQU IOEUA1+2 «, t00=0x0022, t01=0x015c}
0x368e…369c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x0178}
0x369c…36ea Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0022, t01=0x0186}
0x36ea…3738 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0023, t01=0x0044}
0x3738…3786 Head {h00=0x004a, h01=0x0050, text=»* RETURN ADDRESSES AFTER GET CHARACTER * «, t00=0x0023, t01=0x0092}
0x3786…37d4 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0023, t01=0x00e0}
0x37d4…3822 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0023, t01=0x012e}
0x3822…3836 Head {h00=0x0010, h01=0x0050, text=»RETTAB EQU *«, t00=0x0023, t01=0x017c}
0x3836…3860 Head {h00=0x0026, h01=0x0050, text=» DATA UNPCOM PROCESS COMMAND CHAR.«, t00=0x0023, t01=0x0190}
0x3860…3894 Head {h00=0x0030, h01=0x0050, text=» DATA UNC100 PROCESS COMMAND CHAR AFTER ESC.«, t00=0x0024, t01=0x002a}
0x3894…38aa Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0024, t01=0x005e}
0x38aa…38d2 Head {h00=0x0024, h01=0x0050, text=» DATA UNC150 PROCESS FROM DEVICE«, t00=0x0024, t01=0x0074}
0x38d2…38de Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x009c}
0x38de…38fe Head {h00=0x001c, h01=0x0050, text=» DATA UNC600 PROCESS WCC«, t00=0x0024, t01=0x00a8}
0x38fe…392c Head {h00=0x002a, h01=0x0050, text=» DATA UNPORD PROCESS ORDERS AND CHAR. «, t00=0x0024, t01=0x00c8}
0x392c…3952 Head {h00=0x0022, h01=0x0050, text=» DATA SF100 PROCESS ATTRIBUTE «, t00=0x0024, t01=0x00f6}
0x3952…3982 Head {h00=0x002c, h01=0x0050, text=» DATA SBA100 PROCESS FIRST ADDRESS BYTE «, t00=0x0024, t01=0x011c}
0x3982…39b2 Head {h00=0x002c, h01=0x0050, text=» DATA SBA200 PROCESS SECOND ADDRESS BYTE«, t00=0x0024, t01=0x014c}
0x39b2…39e0 Head {h00=0x002a, h01=0x0050, text=» DATA RA100 PROCESS FIRST ADDRESS BYTE«, t00=0x0024, t01=0x017c}
0x39e0…3a10 Head {h00=0x002c, h01=0x0050, text=» DATA RA200 PROCESS SECOND ADDRESS BYTE «, t00=0x0025, t01=0x001a}
0x3a10…3a3c Head {h00=0x0028, h01=0x0050, text=» DATA RA250 PROCESS CHAR. TO REPEAT «, t00=0x0025, t01=0x004a}
0x3a3c…3a6c Head {h00=0x002c, h01=0x0050, text=» DATA EUA100 PROCESS FIRST ADDRESS BYTE «, t00=0x0025, t01=0x0076}
0x3a6c…3a9c Head {h00=0x002c, h01=0x0050, text=» DATA EUA200 PROCESS FIRST ADDRESS BYTE «, t00=0x0025, t01=0x00a6}
0x3a9c…3aaa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x00d6}
0x3aaa…3afa Head {h00=0x004c, h01=0x0050, text=»*********************************************************************** «, t00=0x0025, t01=0x00e4}
0x3afa…3b4a Head {h00=0x004c, h01=0x0050, text=»* * «, t00=0x0025, t01=0x0134}
0x3b4a…3b9a Head {h00=0x004c, h01=0x0050, text=»* UNPCOM UNPACK COMMAND * «, t00=0x0025, t01=0x0184}
0x3b9a…3bea Head {h00=0x004c, h01=0x0050, text=»* * «, t00=0x0026, t01=0x0044}
0x3bea…3c3a Head {h00=0x004c, h01=0x0050, text=»*********************************************************************** «, t00=0x0026, t01=0x0094}
0x3c3a…3c4e Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0026, t01=0x00e4}
0x3c4e…3c58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00f8}
0x3c58…3c6c Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0026, t01=0x0102}
0x3c6c…3c90 Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x0026, t01=0x0116}
0x3c90…3cb2 Head {h00=0x001e, h01=0x0050, text=»* A4= REL. CURSOR ADDRESS «, t00=0x0026, t01=0x013a}
0x3cb2…3cd4 Head {h00=0x001e, h01=0x0050, text=»* A5= LAST IN ROW REL POS «, t00=0x0026, t01=0x015c}
0x3cd4…3cfc Head {h00=0x0024, h01=0x0050, text=»* A6= INTERNAL LINE FLAG ADDRESS«, t00=0x0026, t01=0x017e}
0x3cfc…3d1e Head {h00=0x001e, h01=0x0050, text=»* A8= ADDRESS IN DC-BUFFER«, t00=0x0027, t01=0x0016}
0x3d1e…3d34 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x0027, t01=0x0038}
0x3d34…3d4c Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0027, t01=0x004e}
0x3d4c…3d6c Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0027, t01=0x0066}
0x3d6c…3d84 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0027, t01=0x0086}
0x3d84…3d9c Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0027, t01=0x009e}
0x3d9c…3da6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00b6}
0x3da6…3df6 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0027, t01=0x00c0}
0x3df6…3e22 Head {h00=0x0028, h01=0x0050, text=»UNPCOM EQU * ENTRY LABEL FROM RETTAB«, t00=0x0027, t01=0x0110}
0x3e22…3e34 Head {h00=0x000e, h01=0x0050, text=» IFF SNA=1«, t00=0x0027, t01=0x013c}
0x3e34…3e5c Head {h00=0x0024, h01=0x0050, text=» LDK A1,ICOMN1 WHERE TO CONTINUE«, t00=0x0027, t01=0x014e}
0x3e5c…3e76 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0027, t01=0x0176}
0x3e76…3e94 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0027, t01=0x0190}
0x3e94…3eb2 Head {h00=0x001a, h01=0x0050, text=» CWK A2,ESCCHA ESCAPE?«, t00=0x0028, t01=0x001e}
0x3eb2…3ecc Head {h00=0x0016, h01=0x0050, text=» RF(E) UNC900 YES «, t00=0x0028, t01=0x003c}
0x3ecc…3ef0 Head {h00=0x0020, h01=0x0050, text=» LDK A1,1 NO INDICATE ERROR «, t00=0x0028, t01=0x0056}
0x3ef0…3f02 Head {h00=0x000e, h01=0x0050, text=» RF UNC900«, t00=0x0028, t01=0x007a}
0x3f02…3f0e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x008c}
0x3f0e…3f22 Head {h00=0x0010, h01=0x0050, text=»UNC100 EQU *«, t00=0x0028, t01=0x0098}
0x3f22…3f3c Head {h00=0x0016, h01=0x0050, text=» CWK A2,/31 WRITE?«, t00=0x0028, t01=0x00ac}
0x3f3c…3f56 Head {h00=0x0016, h01=0x0050, text=» RF(E) UNC500 YES «, t00=0x0028, t01=0x00c6}
0x3f56…3f7a Head {h00=0x0020, h01=0x0050, text=» CWK A2,/35 ERASE AND WITE? «, t00=0x0028, t01=0x00e0}
0x3f7a…3f94 Head {h00=0x0016, h01=0x0050, text=» RF(E) UNC200 YES «, t00=0x0028, t01=0x0104}
0x3f94…3fbe Head {h00=0x0026, h01=0x0050, text=» CWK A2,/3F ERASE ALL UNPROTECTED?«, t00=0x0028, t01=0x011e}
0x3fbe…3fd8 Head {h00=0x0016, h01=0x0050, text=» RF(E) UNC300 YES «, t00=0x0028, t01=0x0148}
0x3fd8…3fee Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0028, t01=0x0162}
0x3fee…4010 Head {h00=0x001e, h01=0x0050, text=» CWK A2,/37 COPY COMMAND? «, t00=0x0028, t01=0x0178}
0x4010…402a Head {h00=0x0016, h01=0x0050, text=» RF(NE) UNC175 NO «, t00=0x0029, t01=0x000a}
0x402a…404e Head {h00=0x0020, h01=0x0050, text=» LDK A1,ICOCOP RESTART ENTRY«, t00=0x0029, t01=0x0024}
0x404e…4060 Head {h00=0x000e, h01=0x0050, text=» RF UNC800«, t00=0x0029, t01=0x0048}
0x4060…408c Head {h00=0x0028, h01=0x0050, text=»UNC150 EQU * ENTRY LABEL FROM RETTAB«, t00=0x0029, t01=0x005a}
0x408c…40ac Head {h00=0x001c, h01=0x0050, text=» CF A14,MATCH GET TASKID«, t00=0x0029, t01=0x0086}
0x40ac…40c2 Head {h00=0x0012, h01=0x0050, text=» LDR A1,A1 OK?«, t00=0x0029, t01=0x00a6}
0x40c2…40dc Head {h00=0x0016, h01=0x0050, text=» RF(NZ) UNC175 NO «, t00=0x0029, t01=0x00bc}
0x40dc…4116 Head {h00=0x0036, h01=0x0050, text=» LDKL A1,/8000 RETURN CODE TO INDICATE COPY COMND.«, t00=0x0029, t01=0x00d6}
0x4116…412e Head {h00=0x0014, h01=0x0050, text=» ST A1,REGI,A11 «, t00=0x0029, t01=0x0110}
0x412e…4148 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBICW,A11 «, t00=0x0029, t01=0x0128}
0x4148…416a Head {h00=0x001e, h01=0x0050, text=» CF A14,ICSET SET TIMEOUT «, t00=0x0029, t01=0x0142}
0x416a…418a Head {h00=0x001c, h01=0x0050, text=» LDR A1,A2 TASK TO CALL «, t00=0x0029, t01=0x0164}
0x418a…41a2 Head {h00=0x0014, h01=0x0050, text=» LDK A2,2 LENGTH«, t00=0x0029, t01=0x0184}
0x41a2…41b8 Head {h00=0x0012, h01=0x0050, text=» LDKL A3,REGI «, t00=0x002a, t01=0x000c}
0x41b8…41d2 Head {h00=0x0016, h01=0x0050, text=» ADR A3,A11 BUFFER«, t00=0x002a, t01=0x0022}
0x41d2…41f0 Head {h00=0x001a, h01=0x0050, text=» CF A14,ICWRT SEND IT «, t00=0x002a, t01=0x003c}
0x41f0…4204 Head {h00=0x0010, h01=0x0050, text=»UNC175 EQU *«, t00=0x002a, t01=0x005a}
0x4204…4210 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x006e}
0x4210…4238 Head {h00=0x0024, h01=0x0050, text=» LDKL A10,THROWB THROW THE REST «, t00=0x002a, t01=0x007a}
0x4238…4258 Head {h00=0x001c, h01=0x0050, text=» LDK A1,1 INDICATE ERROR«, t00=0x002a, t01=0x00a2}
0x4258…427a Head {h00=0x001e, h01=0x0050, text=» RF UNC900 INVALID COMMAND«, t00=0x002a, t01=0x00c2}
0x427a…428e Head {h00=0x0010, h01=0x0050, text=»UNC200 EQU *«, t00=0x002a, t01=0x00e4}
0x428e…42a6 Head {h00=0x0014, h01=0x0050, text=» ST A8,REGI,A11 «, t00=0x002a, t01=0x00f8}
0x42a6…42d0 Head {h00=0x0026, h01=0x0050, text=» CF A14,ERASE ERASE ENTIRE SCREEN «, t00=0x002a, t01=0x0110}
0x42d0…42e8 Head {h00=0x0014, h01=0x0050, text=» LD A8,REGI,A11 «, t00=0x002a, t01=0x013a}
0x42e8…42fc Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x002a, t01=0x0152}
0x42fc…4312 Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x002a, t01=0x0166}
0x4312…433c Head {h00=0x0026, h01=0x0050, text=» LDK A4,0 INITIATE BUFFER ADDRESS «, t00=0x002a, t01=0x017c}
0x433c…434e Head {h00=0x000e, h01=0x0050, text=» RF UNC500«, t00=0x002b, t01=0x0016}
0x434e…4362 Head {h00=0x0010, h01=0x0050, text=»UNC300 EQU *«, t00=0x002b, t01=0x0028}
0x4362…438e Head {h00=0x0028, h01=0x0050, text=» CF A14,ERASUP ERASE ALL UNPROTECTED«, t00=0x002b, t01=0x003c}
0x438e…43b4 Head {h00=0x0022, h01=0x0050, text=» LDKL A10,THROWB THROW IT AWAY«, t00=0x002b, t01=0x0068}
0x43b4…43d4 Head {h00=0x001c, h01=0x0050, text=» LDK A1,1 INDICATE ERROR«, t00=0x002b, t01=0x008e}
0x43d4…43e6 Head {h00=0x000e, h01=0x0050, text=» RF UNC900«, t00=0x002b, t01=0x00ae}
0x43e6…43fa Head {h00=0x0010, h01=0x0050, text=»UNC500 EQU *«, t00=0x002b, t01=0x00c0}
0x43fa…441a Head {h00=0x001c, h01=0x0050, text=» LDK A1,ICOWCC GET INDEX«, t00=0x002b, t01=0x00d4}
0x441a…4434 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x002b, t01=0x00f4}
0x4434…4446 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x002b, t01=0x010e}
0x4446…4458 Head {h00=0x000e, h01=0x0050, text=» RF UNC900«, t00=0x002b, t01=0x0120}
0x4458…4484 Head {h00=0x0028, h01=0x0050, text=»UNC600 EQU * ENTRY LABEL FROM RETTAB«, t00=0x002b, t01=0x0132}
0x4484…44b4 Head {h00=0x002c, h01=0x0050, text=» CF A14,P1WCC PROCESS WCC BEFORE UPDATE «, t00=0x002b, t01=0x015e}
0x44b4…44c6 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A4«, t00=0x002b, t01=0x018e}
0x44c6…44ec Head {h00=0x0022, h01=0x0050, text=» ADKL A3,BVDU GET REAL ADDRESS«, t00=0x002c, t01=0x0010}
0x44ec…4500 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x002c, t01=0x0036}
0x4500…452a Head {h00=0x0026, h01=0x0050, text=» ORKL A10,PTORD INDICATE PT ORDER «, t00=0x002c, t01=0x004a}
0x452a…4554 Head {h00=0x0026, h01=0x0050, text=» LDK A1,IORDER INDICATE NEXT CALL «, t00=0x002c, t01=0x0074}
0x4554…4568 Head {h00=0x0010, h01=0x0050, text=»UNC800 EQU *«, t00=0x002c, t01=0x009e}
0x4568…4582 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x002c, t01=0x00b2}
0x4582…4594 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x002c, t01=0x00cc}
0x4594…45a8 Head {h00=0x0010, h01=0x0050, text=»UNC900 EQU *«, t00=0x002c, t01=0x00de}
0x45a8…45b8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002c, t01=0x00f2}
0x45b8…45c6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x0102}
0x45c6…4608 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x002c, t01=0x0110}
0x4608…464a Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x002c, t01=0x0152}
0x464a…468c (45, 0, 400) Head {h00=0x003e, h01=0x0050, text=»* UNPORD UNPACK ORDERS *«, t00=0x002d, t01=0x0004}
0x468c…46ce Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x002d, t01=0x0046}
0x46ce…4710 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x002d, t01=0x0088}
0x4710…4724 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x002d, t01=0x00ca}
0x4724…472e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00de}
0x472e…4742 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x002d, t01=0x00e8}
0x4742…4766 Head {h00=0x0020, h01=0x0050, text=»* A3= POINTER IN VDU BUFFER «, t00=0x002d, t01=0x00fc}
0x4766…4784 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x002d, t01=0x0120}
0x4784…47a6 Head {h00=0x001e, h01=0x0050, text=»* A5= LAST IN ROW REL POS «, t00=0x002d, t01=0x013e}
0x47a6…47ce Head {h00=0x0024, h01=0x0050, text=»* A6= INTERNAL LINE FLAG ADDRESS«, t00=0x002d, t01=0x0160}
0x47ce…47e4 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x002d, t01=0x0188}
0x47e4…47fa Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x002e, t01=0x000e}
0x47fa…4812 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x002e, t01=0x0024}
0x4812…482a Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x002e, t01=0x003c}
0x482a…4842 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x002e, t01=0x0054}
0x4842…485a Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x002e, t01=0x006c}
0x485a…4864 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0084}
0x4864…48a6 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x002e, t01=0x008e}
0x48a6…48d2 Head {h00=0x0028, h01=0x0050, text=»UNPORD EQU * ENTRY LABEL FROM RETTAB«, t00=0x002e, t01=0x00d0}
0x48d2…48ec Head {h00=0x0016, h01=0x0050, text=» CWK A2,/20 ORDER?«, t00=0x002e, t01=0x00fc}
0x48ec…4906 Head {h00=0x0016, h01=0x0050, text=» RF(L) UNO100 YES «, t00=0x002e, t01=0x0116}
0x4906…4934 Head {h00=0x002a, h01=0x0050, text=» XRKL A10,PTORD INDICATE FOR PT ORDER «, t00=0x002e, t01=0x0130}
0x4934…4950 Head {h00=0x0018, h01=0x0050, text=» CWR A5,A4 NEW LINE?«, t00=0x002e, t01=0x015e}
0x4950…4968 Head {h00=0x0014, h01=0x0050, text=» RF(G) UNO050 NO«, t00=0x002e, t01=0x017a}
0x4968…4988 (47, 0, 400) Head {h00=0x001c, h01=0x0050, text=» CF A14,LINE CHECK WRAP «, t00=0x002f, t01=0x0004}
0x4988…499c Head {h00=0x0010, h01=0x0050, text=»UNO050 EQU *«, t00=0x002f, t01=0x0024}
0x499c…49c8 Head {h00=0x0028, h01=0x0050, text=» SCR A2,A3 STORE CHAR. IN VDU BUFFER«, t00=0x002f, t01=0x0038}
0x49c8…49e0 Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x002f, t01=0x0064}
0x49e0…49f2 Head {h00=0x000e, h01=0x0050, text=» ORK A1,1 «, t00=0x002f, t01=0x007c}
0x49f2…4a0a Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x002f, t01=0x008e}
0x4a0a…4a1c Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x002f, t01=0x00a6}
0x4a1c…4a2e Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x002f, t01=0x00b8}
0x4a2e…4a40 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x002f, t01=0x00ca}
0x4a40…4a52 Head {h00=0x000e, h01=0x0050, text=» RF UNO200«, t00=0x002f, t01=0x00dc}
0x4a52…4a66 Head {h00=0x0010, h01=0x0050, text=»UNO100 EQU *«, t00=0x002f, t01=0x00ee}
0x4a66…4a8e Head {h00=0x0024, h01=0x0050, text=» LC A1,CONORD,A2 GET ORDER INDEX«, t00=0x002f, t01=0x0102}
0x4a8e…4abc Head {h00=0x002a, h01=0x0050, text=» CFI A14,ORDTAB,A1 TAKE CARE OF ORDER «, t00=0x002f, t01=0x012a}
0x4abc…4ad0 Head {h00=0x0010, h01=0x0050, text=»UNO200 EQU *«, t00=0x002f, t01=0x0158}
0x4ad0…4ae0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002f, t01=0x016c}
0x4ae0…4aee Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x002f, t01=0x017c}
0x4aee…4b34 Head {h00=0x0042, h01=0x003d, text=»************************************************************* «, t00=0x002f, t01=0x018a}
0x4b34…4b7a Head {h00=0x0042, h01=0x003d, text=»* * «, t00=0x0030, t01=0x0040}
0x4b7a…4bc0 Head {h00=0x0042, h01=0x003d, text=»* ORDTAB ORDER TABLE * «, t00=0x0030, t01=0x0086}
0x4bc0…4c06 Head {h00=0x0042, h01=0x003d, text=»* * «, t00=0x0030, t01=0x00cc}
0x4c06…4c4c Head {h00=0x0042, h01=0x003d, text=»************************************************************* «, t00=0x0030, t01=0x0112}
0x4c4c…4c60 Head {h00=0x0010, h01=0x000c, text=»ORDTAB EQU *«, t00=0x0030, t01=0x0158}
0x4c60…4c82 Head {h00=0x001e, h01=0x0050, text=» DATA INVAL INVALID CHAR. «, t00=0x0030, t01=0x016c}
0x4c82…4c9e Head {h00=0x0018, h01=0x0014, text=» DATA SF START FIELD«, t00=0x0030, t01=0x018e}
0x4c9e…4cc2 Head {h00=0x0020, h01=0x001c, text=» DATA SBA SET BUFFER ADDRESS«, t00=0x0031, t01=0x001a}
0x4cc2…4ce0 Head {h00=0x001a, h01=0x0016, text=» DATA IC INSERT CURSOR«, t00=0x0031, t01=0x003e}
0x4ce0…4cf6 Head {h00=0x0012, h01=0x000d, text=» DATA PT TAB. «, t00=0x0031, t01=0x005c}
0x4cf6…4d18 Head {h00=0x001e, h01=0x001a, text=» DATA RA REPEAT TO AADRESS«, t00=0x0031, t01=0x0072}
0x4d18…4d46 Head {h00=0x002a, h01=0x0026, text=» DATA EUA ERASE UNPROTECTED TO ADDRESS«, t00=0x0031, t01=0x0094}
0x4d46…4d5e Head {h00=0x0014, h01=0x0010, text=» DATA ESC ESCAPE«, t00=0x0031, t01=0x00c2}
0x4d5e…4d7e Head {h00=0x001c, h01=0x0017, text=» DATA NULCHA NULL CHAR. «, t00=0x0031, t01=0x00da}
0x4d7e…4d98 Head {h00=0x0016, h01=0x0050, text=» DATA NL NEW LINE «, t00=0x0031, t01=0x00fa}
0x4d98…4db2 Head {h00=0x0016, h01=0x0050, text=» DATA FF FORM FEED«, t00=0x0031, t01=0x0114}
0x4db2…4dce Head {h00=0x0018, h01=0x0050, text=» DATA EM END MESSAGE«, t00=0x0031, t01=0x012e}
0x4dce…4dee Head {h00=0x001c, h01=0x0050, text=» DATA CR CARRIAGE RETURN«, t00=0x0031, t01=0x014a}
0x4dee…4dfc Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0031, t01=0x016a}
0x4dfc…4e40 Head {h00=0x0040, h01=0x003b, text=»*********************************************************** «, t00=0x0031, t01=0x0178}
0x4e40…4e84 Head {h00=0x0040, h01=0x003b, text=»* * «, t00=0x0032, t01=0x002c}
0x4e84…4ec8 Head {h00=0x0040, h01=0x003b, text=»* SF START FIELD * «, t00=0x0032, t01=0x0070}
0x4ec8…4f0c Head {h00=0x0040, h01=0x003b, text=»* * «, t00=0x0032, t01=0x00b4}
0x4f0c…4f50 Head {h00=0x0040, h01=0x003b, text=»*********************************************************** «, t00=0x0032, t01=0x00f8}
0x4f50…4f64 Head {h00=0x0010, h01=0x000c, text=»* REGISTERS«, t00=0x0032, t01=0x013c}
0x4f64…4f6e Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0032, t01=0x0150}
0x4f6e…4f88 Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x0032, t01=0x015a}
0x4f88…4f9e Head {h00=0x0012, h01=0x000e, text=»* A2= RESERVED«, t00=0x0032, t01=0x0174}
0x4f9e…4fc2 Head {h00=0x0020, h01=0x001b, text=»* A3= POINTER IN VDU BUFFER «, t00=0x0032, t01=0x018a}
0x4fc2…4fe0 Head {h00=0x001a, h01=0x0016, text=»* A4= REL. CURSOR POS.«, t00=0x0033, t01=0x001e}
0x4fe0…4ff6 Head {h00=0x0012, h01=0x000e, text=»* A5= RESERVED«, t00=0x0033, t01=0x003c}
0x4ff6…500c Head {h00=0x0012, h01=0x000e, text=»* A6= RESERVED«, t00=0x0033, t01=0x0052}
0x500c…5022 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0033, t01=0x0068}
0x5022…5040 Head {h00=0x001a, h01=0x0015, text=»* A9= DC-BUFFER INDEX «, t00=0x0033, t01=0x007e}
0x5040…5058 Head {h00=0x0014, h01=0x0010, text=»* A10= INDICATOR«, t00=0x0033, t01=0x009c}
0x5058…5078 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0033, t01=0x00b4}
0x5078…5090 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0033, t01=0x00d4}
0x5090…50a8 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0033, t01=0x00ec}
0x50a8…50b2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0033, t01=0x0104}
0x50b2…50f6 Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x0033, t01=0x010e}
0x50f6…5106 Head {h00=0x000c, h01=0x0008, text=»SF EQU *«, t00=0x0033, t01=0x0152}
0x5106…5130 Head {h00=0x0026, h01=0x0050, text=» LDK A1,IOSFAT INDICATE NEXT CALL «, t00=0x0033, t01=0x0162}
0x5130…514a Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0033, t01=0x018c}
0x514a…5166 Head {h00=0x0018, h01=0x0050, text=» RF SF900 GET CHAR. «, t00=0x0034, t01=0x0016}
0x5166…5192 Head {h00=0x0028, h01=0x0050, text=»SF100 EQU * ENTRY LABEL FROM RETTAB «, t00=0x0034, t01=0x0032}
0x5192…51b4 Head {h00=0x001e, h01=0x0050, text=» LDK A1,IORDER NEXT ALBEL «, t00=0x0034, t01=0x005e}
0x51b4…51ce Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0034, t01=0x0080}
0x51ce…51f0 Head {h00=0x001e, h01=0x0050, text=» LC A2,CONATT,A2 IN EBCDIC«, t00=0x0034, t01=0x009a}
0x51f0…520e Head {h00=0x001a, h01=0x0050, text=» ORK A2,/80 ATTR. BIT «, t00=0x0034, t01=0x00bc}
0x520e…5224 Head {h00=0x0012, h01=0x0050, text=» CM CURATT,A11«, t00=0x0034, t01=0x00da}
0x5224…5242 Head {h00=0x001a, h01=0x0050, text=» ORKL A10,ATTREC+PTORD«, t00=0x0034, t01=0x00f0}
0x5242…5264 Head {h00=0x001e, h01=0x0050, text=» CF A14,LINWRP CHECK WRAP «, t00=0x0034, t01=0x010e}
0x5264…527c Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x0034, t01=0x0130}
0x527c…529c Head {h00=0x001c, h01=0x0050, text=» ANK A1,2 LINE IN FIELD?«, t00=0x0034, t01=0x0148}
0x529c…52b4 Head {h00=0x0014, h01=0x0050, text=» RF(Z) SF600 NO «, t00=0x0034, t01=0x0168}
0x52b4…52e6 Head {h00=0x002e, h01=0x0050, text=» CF A14,LINATT INDICATE ATTRIBUTE OVERRUN «, t00=0x0034, t01=0x0180}
0x52e6…52fa Head {h00=0x0010, h01=0x0050, text=»SF600 EQU * «, t00=0x0035, t01=0x0022}
0x52fa…532e Head {h00=0x0030, h01=0x0050, text=» ORKL A10,ATTREC INDICATE ATTRIBUTE RECEIVED«, t00=0x0035, t01=0x0036}
0x532e…534c Head {h00=0x001a, h01=0x0050, text=» SCR A2,A3 STORE CHAR.«, t00=0x0035, t01=0x006a}
0x534c…535e Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0035, t01=0x0088}
0x535e…5370 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0035, t01=0x009a}
0x5370…5384 Head {h00=0x0010, h01=0x0050, text=»SF900 EQU * «, t00=0x0035, t01=0x00ac}
0x5384…5396 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0035, t01=0x00c0}
0x5396…53a6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0035, t01=0x00d2}
0x53a6…53b4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0035, t01=0x00e2}
0x53b4…53f8 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0035, t01=0x00f0}
0x53f8…543c Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0035, t01=0x0134}
0x543c…5480 Head {h00=0x0040, h01=0x0050, text=»* SBA SET BUFFER ADDRESS * «, t00=0x0035, t01=0x0178}
0x5480…54c4 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0036, t01=0x002c}
0x54c4…5508 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0036, t01=0x0070}
0x5508…551c Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0036, t01=0x00b4}
0x551c…5526 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00c8}
0x5526…5540 Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x0036, t01=0x00d2}
0x5540…5554 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0036, t01=0x00ec}
0x5554…556a Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x0036, t01=0x0100}
0x556a…5580 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0036, t01=0x0116}
0x5580…5596 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0036, t01=0x012c}
0x5596…55ac Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0036, t01=0x0142}
0x55ac…55c2 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0036, t01=0x0158}
0x55c2…55d8 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x0036, t01=0x016e}
0x55d8…55f0 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0036, t01=0x0184}
0x55f0…5610 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0037, t01=0x000c}
0x5610…5628 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0037, t01=0x002c}
0x5628…5640 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0037, t01=0x0044}
0x5640…564a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x005c}
0x564a…568e Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0037, t01=0x0066}
0x568e…56a0 Head {h00=0x000e, h01=0x0050, text=»SBA EQU * «, t00=0x0037, t01=0x00aa}
0x56a0…56c2 Head {h00=0x001e, h01=0x0050, text=» LDK A1,IOSBA1 NEXT LABEL «, t00=0x0037, t01=0x00bc}
0x56c2…56dc Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0037, t01=0x00de}
0x56dc…56ee Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0037, t01=0x00f8}
0x56ee…570c Head {h00=0x001a, h01=0x0050, text=» RF SBA900 FIRST BYTE «, t00=0x0037, t01=0x010a}
0x570c…5738 Head {h00=0x0028, h01=0x0050, text=»SBA100 EQU * ENTRY LABEL FROM RETTAB«, t00=0x0037, t01=0x0128}
0x5738…5758 Head {h00=0x001c, h01=0x0050, text=» LC A7,CONATT,A2 CONVERT«, t00=0x0037, t01=0x0154}
0x5758…576c Head {h00=0x0010, h01=0x0050, text=» ANK A7,/3F «, t00=0x0037, t01=0x0174}
0x576c…577e Head {h00=0x000e, h01=0x0050, text=» SLL A7,6 «, t00=0x0037, t01=0x0188}
0x577e…5794 Head {h00=0x0012, h01=0x0050, text=» LDK A1,IOSBA2«, t00=0x0038, t01=0x000a}
0x5794…57ae Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0038, t01=0x0020}
0x57ae…57c0 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0038, t01=0x003a}
0x57c0…57dc Head {h00=0x0018, h01=0x0050, text=» RF SBA900 NEXT BYTE«, t00=0x0038, t01=0x004c}
0x57dc…5808 Head {h00=0x0028, h01=0x0050, text=»SBA200 EQU * ENTRY LABEL FROM RETTAB«, t00=0x0038, t01=0x0068}
0x5808…5820 Head {h00=0x0014, h01=0x0050, text=» LC A2,CONATT,A2«, t00=0x0038, t01=0x0094}
0x5820…5834 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x0038, t01=0x00ac}
0x5834…5846 Head {h00=0x000e, h01=0x0050, text=» ORR A7,A2«, t00=0x0038, t01=0x00c0}
0x5846…5868 Head {h00=0x001e, h01=0x0050, text=» LDK A1,IORDER NEXT LABEL «, t00=0x0038, t01=0x00d2}
0x5868…5882 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0038, t01=0x00f4}
0x5882…58a8 Head {h00=0x0022, h01=0x0050, text=» CWK A7,LBVDU ILLEGAL ADDRESS?«, t00=0x0038, t01=0x010e}
0x58a8…58c2 Head {h00=0x0016, h01=0x0050, text=» RF(NL) SBA800 YES«, t00=0x0038, t01=0x0134}
0x58c2…58d4 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A7«, t00=0x0038, t01=0x014e}
0x58d4…58e6 Head {h00=0x000e, h01=0x000a, text=» LDR A4,A3«, t00=0x0038, t01=0x0160}
0x58e6…58fc Head {h00=0x0012, h01=0x000d, text=» ADKL A3,BVDU «, t00=0x0038, t01=0x0172}
0x58fc…5910 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0038, t01=0x0188}
0x5910…593a Head {h00=0x0026, h01=0x0050, text=» ORKL A10,PTORD INDICATE PT ORDER «, t00=0x0039, t01=0x000c}
0x593a…5968 Head {h00=0x002a, h01=0x0050, text=» CF A14,LINE CHECK WRAP AND LINE FLAGS«, t00=0x0039, t01=0x0036}
0x5968…5984 Head {h00=0x0018, h01=0x0050, text=» LDK A1,0 REURN CODE«, t00=0x0039, t01=0x0064}
0x5984…5996 Head {h00=0x000e, h01=0x0050, text=» RF SBA900«, t00=0x0039, t01=0x0080}
0x5996…59aa Head {h00=0x0010, h01=0x0050, text=»SBA800 EQU *«, t00=0x0039, t01=0x0092}
0x59aa…59d0 Head {h00=0x0022, h01=0x0050, text=» ORKL A10,THROWB DON'T SAVE IT«, t00=0x0039, t01=0x00a6}
0x59d0…59ee Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 RETURN CODE «, t00=0x0039, t01=0x00cc}
0x59ee…5a02 Head {h00=0x0010, h01=0x0050, text=»SBA900 EQU *«, t00=0x0039, t01=0x00ea}
0x5a02…5a12 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0039, t01=0x00fe}
0x5a12…5a20 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0039, t01=0x010e}
0x5a20…5a62 Head {h00=0x003e, h01=0x003a, text=»**********************************************************«, t00=0x0039, t01=0x011c}
0x5a62…5aa4 Head {h00=0x003e, h01=0x003a, text=»* *«, t00=0x0039, t01=0x015e}
0x5aa4…5ae6 Head {h00=0x003e, h01=0x003a, text=»* IC INSERT CURSOR *«, t00=0x003a, t01=0x0010}
0x5ae6…5b28 Head {h00=0x003e, h01=0x003a, text=»* *«, t00=0x003a, t01=0x0052}
0x5b28…5b6a Head {h00=0x003e, h01=0x003a, text=»**********************************************************«, t00=0x003a, t01=0x0094}
0x5b6a…5b7e Head {h00=0x0010, h01=0x000c, text=»* REGISTERS«, t00=0x003a, t01=0x00d6}
0x5b7e…5b88 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x003a, t01=0x00ea}
0x5b88…5ba2 Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x003a, t01=0x00f4}
0x5ba2…5bb8 Head {h00=0x0012, h01=0x000e, text=»* A2= RESERVED«, t00=0x003a, t01=0x010e}
0x5bb8…5bce Head {h00=0x0012, h01=0x000e, text=»* A3= RESERVED«, t00=0x003a, t01=0x0124}
0x5bce…5bec Head {h00=0x001a, h01=0x0016, text=»* A4= REL. CURSOR POS.«, t00=0x003a, t01=0x013a}
0x5bec…5c02 Head {h00=0x0012, h01=0x000e, text=»* A5= RESERVED«, t00=0x003a, t01=0x0158}
0x5c02…5c18 Head {h00=0x0012, h01=0x000e, text=»* A6= RESERVED«, t00=0x003a, t01=0x016e}
0x5c18…5c2e Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x003a, t01=0x0184}
0x5c2e…5c46 Head {h00=0x0014, h01=0x0010, text=»* A10= INDICATOR«, t00=0x003b, t01=0x000a}
0x5c46…5c66 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x003b, t01=0x0022}
0x5c66…5c7e Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x003b, t01=0x0042}
0x5c7e…5c96 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x003b, t01=0x005a}
0x5c96…5ca0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x003b, t01=0x0072}
0x5ca0…5cd8 Head {h00=0x0034, h01=0x002f, text=»*********************************************** «, t00=0x003b, t01=0x007c}
0x5cd8…5ce8 Head {h00=0x000c, h01=0x0008, text=»IC EQU *«, t00=0x003b, t01=0x00b4}
0x5ce8…5d00 Head {h00=0x0014, h01=0x0050, text=» ST A4,PCURS,A11«, t00=0x003b, t01=0x00c4}
0x5d00…5d20 Head {h00=0x001c, h01=0x0050, text=» ORKL A10,PTORD INDICATE«, t00=0x003b, t01=0x00dc}
0x5d20…5d3e Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x003b, t01=0x00fc}
0x5d3e…5d4e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003b, t01=0x011a}
0x5d4e…5d5c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003b, t01=0x012a}
0x5d5c…5da0 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x003b, t01=0x0138}
0x5da0…5de4 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x003b, t01=0x017c}
0x5de4…5e28 Head {h00=0x0040, h01=0x0050, text=»* PT PROGRAM TAB. * «, t00=0x003c, t01=0x0030}
0x5e28…5e6c Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x003c, t01=0x0074}
0x5e6c…5eb0 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x003c, t01=0x00b8}
0x5eb0…5ec4 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x003c, t01=0x00fc}
0x5ec4…5ece Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0110}
0x5ece…5ee8 Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x003c, t01=0x011a}
0x5ee8…5efc Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x003c, t01=0x0134}
0x5efc…5f20 Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x003c, t01=0x0148}
0x5f20…5f3e Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x003c, t01=0x016c}
0x5f3e…5f54 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x003c, t01=0x018a}
0x5f54…5f72 Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x003d, t01=0x0010}
0x5f72…5f88 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x003d, t01=0x002e}
0x5f88…5f9e Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x003d, t01=0x0044}
0x5f9e…5fb6 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x003d, t01=0x005a}
0x5fb6…5fce Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x003d, t01=0x0072}
0x5fce…5fe6 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x003d, t01=0x008a}
0x5fe6…5ffe Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x003d, t01=0x00a2}
0x5ffe…6008 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00ba}
0x6008…604c Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x003d, t01=0x00c4}
0x604c…605c Head {h00=0x000c, h01=0x0050, text=»PT EQU *«, t00=0x003d, t01=0x0108}
0x605c…6070 Head {h00=0x0010, h01=0x0050, text=» LDR A1,A10 «, t00=0x003d, t01=0x0118}
0x6070…60a2 Head {h00=0x002e, h01=0x0050, text=» ANK A1,PTORD FOLLOWING ORDER OR COMMAND? «, t00=0x003d, t01=0x012c}
0x60a2…60bc Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PT400 YES «, t00=0x003d, t01=0x015e}
0x60bc…60f0 Head {h00=0x0030, h01=0x0050, text=» LDK A7,NULL FILL WITH NULLS TO END OF FIELD«, t00=0x003d, t01=0x0178}
0x60f0…6104 Head {h00=0x0010, h01=0x0050, text=»PT200 EQU * «, t00=0x003e, t01=0x001c}
0x6104…6126 Head {h00=0x001e, h01=0x0050, text=» CF A14,LINWRP CHECK WRAP «, t00=0x003e, t01=0x0030}
0x6126…6148 Head {h00=0x001e, h01=0x0050, text=» LDR A4,A4 END OF BUFFER? «, t00=0x003e, t01=0x0052}
0x6148…616e Head {h00=0x0022, h01=0x0050, text=» RF(Z) PT800 YES, KUNTA KINTE «, t00=0x003e, t01=0x0074}
0x616e…6180 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A3«, t00=0x003e, t01=0x009a}
0x6180…619e Head {h00=0x001a, h01=0x0050, text=» ANK A2,/80 ATTRIBUTE?«, t00=0x003e, t01=0x00ac}
0x619e…61b8 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PT400 YES «, t00=0x003e, t01=0x00ca}
0x61b8…61dc Head {h00=0x0020, h01=0x0050, text=» SCR A7,A3 STORE NULL CHAR. «, t00=0x003e, t01=0x00e4}
0x61dc…61f4 Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x003e, t01=0x0108}
0x61f4…6206 Head {h00=0x000e, h01=0x0050, text=» ORK A1,1 «, t00=0x003e, t01=0x0120}
0x6206…621e Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x003e, t01=0x0132}
0x621e…6230 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x003e, t01=0x014a}
0x6230…6242 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x003e, t01=0x015c}
0x6242…6254 Head {h00=0x000e, h01=0x0050, text=» RB PT200 «, t00=0x003e, t01=0x016e}
0x6254…6268 Head {h00=0x0010, h01=0x0050, text=»PT400 EQU * «, t00=0x003e, t01=0x0180}
0x6268…628a (63, 0, 400) Head {h00=0x001e, h01=0x0050, text=» CF A14,LINWRP CHECK WRAP «, t00=0x003f, t01=0x0004}
0x628a…62ac Head {h00=0x001e, h01=0x0050, text=» LDR A4,A4 END OF BUFFER? «, t00=0x003f, t01=0x0026}
0x62ac…62d0 Head {h00=0x0020, h01=0x0050, text=» RF(Z) PT700 YES OS AND DOS «, t00=0x003f, t01=0x0048}
0x62d0…62ec Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x003f, t01=0x006c}
0x62ec…630a Head {h00=0x001a, h01=0x0050, text=» ANK A2,/80 ATTRIBUTE?«, t00=0x003f, t01=0x0088}
0x630a…6324 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PT500 YES «, t00=0x003f, t01=0x00a6}
0x6324…633c Head {h00=0x0014, h01=0x0050, text=»PT410 EQU * . =7«, t00=0x003f, t01=0x00c0}
0x633c…634e Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x003f, t01=0x00d8}
0x634e…6360 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x003f, t01=0x00ea}
0x6360…6372 Head {h00=0x000e, h01=0x0050, text=» RB PT400 «, t00=0x003f, t01=0x00fc}
0x6372…6386 Head {h00=0x0010, h01=0x0050, text=»PT500 EQU * «, t00=0x003f, t01=0x010e}
0x6386…63a6 Head {h00=0x001c, h01=0x0050, text=» LCR A2,A3 GET CHAR. =7 «, t00=0x003f, t01=0x0122}
0x63a6…63c4 Head {h00=0x001a, h01=0x0050, text=» ANK A2,/20 PROTECTED?«, t00=0x003f, t01=0x0142}
0x63c4…63de Head {h00=0x0016, h01=0x0050, text=» RB(NZ) PT410 . =7«, t00=0x003f, t01=0x0160}
0x63de…63f0 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x003f, t01=0x017a}
0x63f0…6402 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x003f, t01=0x018c}
0x6402…6424 Head {h00=0x001e, h01=0x0050, text=» CF A14,LINWRP CHECK WRAP «, t00=0x0040, t01=0x000e}
0x6424…6438 Head {h00=0x0010, h01=0x0050, text=»PT700 EQU * «, t00=0x0040, t01=0x0030}
0x6438…6450 Head {h00=0x0014, h01=0x0050, text=» ORKL A10,PTORD «, t00=0x0040, t01=0x0044}
0x6450…6464 Head {h00=0x0010, h01=0x0050, text=»PT800 EQU * «, t00=0x0040, t01=0x005c}
0x6464…6482 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0040, t01=0x0070}
0x6482…6492 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0040, t01=0x008e}
0x6492…64a0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0040, t01=0x009e}
0x64a0…64e6 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0040, t01=0x00ac}
0x64e6…652c Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0040, t01=0x00f2}
0x652c…6572 Head {h00=0x0042, h01=0x0050, text=»* RA REPEAT TO ADDRESS * «, t00=0x0040, t01=0x0138}
0x6572…65b8 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0040, t01=0x017e}
0x65b8…65fe Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0041, t01=0x0034}
0x65fe…6612 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0041, t01=0x007a}
0x6612…661c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x008e}
0x661c…6636 Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x0041, t01=0x0098}
0x6636…6658 Head {h00=0x001e, h01=0x0050, text=»* A2= CHAR. TO BE REPEATED«, t00=0x0041, t01=0x00b2}
0x6658…667c Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x0041, t01=0x00d4}
0x667c…669a Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0041, t01=0x00f8}
0x669a…66b0 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0041, t01=0x0116}
0x66b0…66d8 Head {h00=0x0024, h01=0x0050, text=»* A6= INTERNAL LINE FLAG ADDRESS«, t00=0x0041, t01=0x012c}
0x66d8…66ee Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0041, t01=0x0154}
0x66ee…670c Head {h00=0x001a, h01=0x0050, text=»* A9= DC-BUFFER INDEX «, t00=0x0041, t01=0x016a}
0x670c…6724 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0041, t01=0x0188}
0x6724…6744 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0042, t01=0x0010}
0x6744…675c Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0042, t01=0x0030}
0x675c…6774 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0042, t01=0x0048}
0x6774…677e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0060}
0x677e…67b8 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0042, t01=0x006a}
0x67b8…67c8 Head {h00=0x000c, h01=0x0050, text=»RA EQU *«, t00=0x0042, t01=0x00a4}
0x67c8…67ea Head {h00=0x001e, h01=0x0050, text=» LDK A1,IORAA1 NEXT LABEL «, t00=0x0042, t01=0x00b4}
0x67ea…6804 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0042, t01=0x00d6}
0x6804…6816 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0042, t01=0x00f0}
0x6816…6832 Head {h00=0x0018, h01=0x0050, text=» RF RA900 FIRST BYTE«, t00=0x0042, t01=0x0102}
0x6832…685e Head {h00=0x0028, h01=0x0050, text=»RA100 EQU * ENTRY LABEL FROM RETTAB «, t00=0x0042, t01=0x011e}
0x685e…687e Head {h00=0x001c, h01=0x0050, text=» LC A7,CONATT,A2 CONVERT«, t00=0x0042, t01=0x014a}
0x687e…6892 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/3F «, t00=0x0042, t01=0x016a}
0x6892…68a4 Head {h00=0x000e, h01=0x0050, text=» SLL A7,6 «, t00=0x0042, t01=0x017e}
0x68a4…68c6 Head {h00=0x001e, h01=0x0050, text=» LDK A1,IORAA2 NEXT LABEL «, t00=0x0042, t01=0x0190}
0x68c6…68e0 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0043, t01=0x0022}
0x68e0…68f2 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0043, t01=0x003c}
0x68f2…6910 Head {h00=0x001a, h01=0x0050, text=» RF RA900 SECOND BYTE «, t00=0x0043, t01=0x004e}
0x6910…693c Head {h00=0x0028, h01=0x0050, text=»RA200 EQU * ENTRY LABEL FROM RETTAB «, t00=0x0043, t01=0x006c}
0x693c…6954 Head {h00=0x0014, h01=0x0050, text=» LC A2,CONATT,A2«, t00=0x0043, t01=0x0098}
0x6954…6968 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x0043, t01=0x00b0}
0x6968…697a Head {h00=0x000e, h01=0x0050, text=» ORR A7,A2«, t00=0x0043, t01=0x00c4}
0x697a…69a0 Head {h00=0x0022, h01=0x0050, text=» CWK A7,LBVDU INVALID ADDRESS «, t00=0x0043, t01=0x00d6}
0x69a0…69ba Head {h00=0x0016, h01=0x0050, text=» RF(NL) RA800 YES «, t00=0x0043, t01=0x00fc}
0x69ba…69dc Head {h00=0x001e, h01=0x0050, text=» LDK A1,IORACH NEXT LABEL «, t00=0x0043, t01=0x0116}
0x69dc…69f6 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0043, t01=0x0138}
0x69f6…6a08 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0043, t01=0x0152}
0x6a08…6a24 Head {h00=0x0018, h01=0x0050, text=» RF RA900 CHAR. BYTE«, t00=0x0043, t01=0x0164}
0x6a24…6a50 Head {h00=0x0028, h01=0x0050, text=»RA250 EQU * ENTRY LABEL FROM RETTAB «, t00=0x0043, t01=0x0180}
0x6a50…6a66 Head {h00=0x0012, h01=0x0050, text=» LDK A1,IORDER«, t00=0x0044, t01=0x001c}
0x6a66…6a80 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0044, t01=0x0032}
0x6a80…6a94 Head {h00=0x0010, h01=0x0050, text=»RA300 EQU * «, t00=0x0044, t01=0x004c}
0x6a94…6aba Head {h00=0x0022, h01=0x0050, text=» SCR A2,A3 STORE IN VDU-BUFFER«, t00=0x0044, t01=0x0060}
0x6aba…6ad2 Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x0044, t01=0x0086}
0x6ad2…6ae4 Head {h00=0x000e, h01=0x0050, text=» ORK A1,1 «, t00=0x0044, t01=0x009e}
0x6ae4…6afc Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x0044, t01=0x00b0}
0x6afc…6b0e Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0044, t01=0x00c8}
0x6b0e…6b20 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0044, t01=0x00da}
0x6b20…6b44 Head {h00=0x0020, h01=0x0050, text=» CF A14,LINWRP CHECK WRAP =1«, t00=0x0044, t01=0x00ec}
0x6b44…6b68 Head {h00=0x0020, h01=0x0050, text=» CWR A4,A7 ALL REPEATED? =1 «, t00=0x0044, t01=0x0110}
0x6b68…6b84 Head {h00=0x0018, h01=0x0050, text=» RB(NE) RA300 NO =1 «, t00=0x0044, t01=0x0134}
0x6b84…6bae Head {h00=0x0026, h01=0x0050, text=» ORKL A10,PTORD INDICATE PT ORDER «, t00=0x0044, t01=0x0150}
0x6bae…6bcc Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0044, t01=0x017a}
0x6bcc…6bde Head {h00=0x000e, h01=0x0050, text=» RF RA900 «, t00=0x0045, t01=0x0008}
0x6bde…6bf2 Head {h00=0x0010, h01=0x0050, text=»RA800 EQU * «, t00=0x0045, t01=0x001a}
0x6bf2…6c18 Head {h00=0x0022, h01=0x0050, text=» ORKL A10,THROWB THROW IT AWAY«, t00=0x0045, t01=0x002e}
0x6c18…6c36 Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 RETURN CODE «, t00=0x0045, t01=0x0054}
0x6c36…6c4a Head {h00=0x0010, h01=0x0050, text=»RA900 EQU * «, t00=0x0045, t01=0x0072}
0x6c4a…6c5a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0045, t01=0x0086}
0x6c5a…6c68 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0045, t01=0x0096}
0x6c68…6ca6 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0045, t01=0x00a4}
0x6ca6…6ce4 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0045, t01=0x00e2}
0x6ce4…6d22 Head {h00=0x003a, h01=0x0050, text=»* EUA ERASE UNPRO. TO ADDRESS *«, t00=0x0045, t01=0x0120}
0x6d22…6d60 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0045, t01=0x015e}
0x6d60…6d9e Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0046, t01=0x000c}
0x6d9e…6db2 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0046, t01=0x004a}
0x6db2…6dbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x005e}
0x6dbc…6dd6 Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x0046, t01=0x0068}
0x6dd6…6dea Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0046, t01=0x0082}
0x6dea…6e00 Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x0046, t01=0x0096}
0x6e00…6e16 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0046, t01=0x00ac}
0x6e16…6e2c Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0046, t01=0x00c2}
0x6e2c…6e42 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0046, t01=0x00d8}
0x6e42…6e58 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0046, t01=0x00ee}
0x6e58…6e6e Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x0046, t01=0x0104}
0x6e6e…6e86 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0046, t01=0x011a}
0x6e86…6ea6 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0046, t01=0x0132}
0x6ea6…6ebe Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0046, t01=0x0152}
0x6ebe…6ed6 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0046, t01=0x016a}
0x6ed6…6ee0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0182}
0x6ee0…6f20 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0046, t01=0x018c}
0x6f20…6f32 Head {h00=0x000e, h01=0x0050, text=»EUA EQU * «, t00=0x0047, t01=0x003c}
0x6f32…6f54 Head {h00=0x001e, h01=0x0050, text=» LDK A1,IOEUA1 NEXT LABEL «, t00=0x0047, t01=0x004e}
0x6f54…6f6e Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0047, t01=0x0070}
0x6f6e…6f80 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0047, t01=0x008a}
0x6f80…6f9e Head {h00=0x001a, h01=0x0050, text=» RF EUA900 FIRST BYTE «, t00=0x0047, t01=0x009c}
0x6f9e…6fca Head {h00=0x0028, h01=0x0050, text=»EUA100 EQU * ENTRY LABEL FROM RETTAB«, t00=0x0047, t01=0x00ba}
0x6fca…6fea Head {h00=0x001c, h01=0x0050, text=» LC A7,CONATT,A2 CONVERT«, t00=0x0047, t01=0x00e6}
0x6fea…6ffe Head {h00=0x0010, h01=0x0050, text=» ANK A7,/3F «, t00=0x0047, t01=0x0106}
0x6ffe…7010 Head {h00=0x000e, h01=0x0050, text=» SLL A7,6 «, t00=0x0047, t01=0x011a}
0x7010…7032 Head {h00=0x001e, h01=0x0050, text=» LDK A1,IOEUA2 NEXT LABEL «, t00=0x0047, t01=0x012c}
0x7032…704c Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0047, t01=0x014e}
0x704c…705e Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0047, t01=0x0168}
0x705e…707c Head {h00=0x001a, h01=0x0050, text=» RF EUA900 SECOND BYTE«, t00=0x0047, t01=0x017a}
0x707c…70a8 Head {h00=0x0028, h01=0x0050, text=»EUA200 EQU * ENTRY LABEL FROM RETTAB«, t00=0x0048, t01=0x0008}
0x70a8…70c0 Head {h00=0x0014, h01=0x0050, text=» LC A2,CONATT,A2«, t00=0x0048, t01=0x0034}
0x70c0…70d4 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x0048, t01=0x004c}
0x70d4…70e6 Head {h00=0x000e, h01=0x0050, text=» ORR A7,A2«, t00=0x0048, t01=0x0060}
0x70e6…7108 Head {h00=0x001e, h01=0x0050, text=» LDK A1,IORDER NEXT LABEL «, t00=0x0048, t01=0x0072}
0x7108…7122 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0048, t01=0x0094}
0x7122…7148 Head {h00=0x0022, h01=0x0050, text=» CWK A1,LBVDU INVALID ADDRESS?«, t00=0x0048, t01=0x00ae}
0x7148…7162 Head {h00=0x0016, h01=0x0050, text=» RF(NL) EUA800 YES«, t00=0x0048, t01=0x00d4}
0x7162…7174 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A7«, t00=0x0048, t01=0x00ee}
0x7174…71a2 Head {h00=0x002a, h01=0x0050, text=» CF A14,ERASUA ERASE UNPRO. TO ADDRESS«, t00=0x0048, t01=0x0100}
0x71a2…71b8 Head {h00=0x0012, h01=0x0050, text=» CF A14,SCRINF«, t00=0x0048, t01=0x012e}
0x71b8…71d6 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0048, t01=0x0144}
0x71d6…7200 Head {h00=0x0026, h01=0x0050, text=» ORKL A10,PTORD INDICATE PT ORDER «, t00=0x0048, t01=0x0162}
0x7200…7212 Head {h00=0x000e, h01=0x0050, text=» RF EUA900«, t00=0x0048, t01=0x018c}
0x7212…7226 Head {h00=0x0010, h01=0x0050, text=»EUA800 EQU *«, t00=0x0049, t01=0x000e}
0x7226…7244 Head {h00=0x001a, h01=0x0050, text=» ORKL A10,THROWB RUBB.«, t00=0x0049, t01=0x0022}
0x7244…7262 Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 RETURN CODE «, t00=0x0049, t01=0x0040}
0x7262…7276 Head {h00=0x0010, h01=0x0050, text=»EUA900 EQU *«, t00=0x0049, t01=0x005e}
0x7276…7286 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0049, t01=0x0072}
0x7286…7294 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0049, t01=0x0082}
0x7294…72d4 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0049, t01=0x0090}
0x72d4…7314 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0049, t01=0x00d0}
0x7314…7354 Head {h00=0x003c, h01=0x0050, text=»* CHAR. < /20 BUT NOT ORDER *«, t00=0x0049, t01=0x0110}
0x7354…7394 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0049, t01=0x0150}
0x7394…73d4 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0049, t01=0x0190}
0x73d4…73e8 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x004a, t01=0x0040}
0x73e8…73f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0054}
0x73f2…740c Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x004a, t01=0x005e}
0x740c…7420 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x004a, t01=0x0078}
0x7420…7444 Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x004a, t01=0x008c}
0x7444…7462 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x004a, t01=0x00b0}
0x7462…7478 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x004a, t01=0x00ce}
0x7478…74a0 Head {h00=0x0024, h01=0x0050, text=»* A6= INTERNAL LINE FLAG ADDRESS«, t00=0x004a, t01=0x00e4}
0x74a0…74b6 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x004a, t01=0x010c}
0x74b6…74cc Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x004a, t01=0x0122}
0x74cc…74e4 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x004a, t01=0x0138}
0x74e4…7504 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x004a, t01=0x0150}
0x7504…751c Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x004a, t01=0x0170}
0x751c…7534 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x004a, t01=0x0188}
0x7534…753e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0010}
0x753e…7576 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x004b, t01=0x001a}
0x7576…7588 Head {h00=0x000e, h01=0x0050, text=»ESC EQU * «, t00=0x004b, t01=0x0052}
0x7588…75b2 Head {h00=0x0026, h01=0x0050, text=» ORKL A10,LICREC INDICATE COMMAND «, t00=0x004b, t01=0x0064}
0x75b2…75d6 Head {h00=0x0020, h01=0x0050, text=» LDK A1,1 STOP ORDER PROCESS«, t00=0x004b, t01=0x008e}
0x75d6…75e8 Head {h00=0x000e, h01=0x0050, text=» RF CHARET«, t00=0x004b, t01=0x00b2}
0x75e8…75fc Head {h00=0x0010, h01=0x0050, text=»INVAL EQU * «, t00=0x004b, t01=0x00c4}
0x75fc…7622 Head {h00=0x0022, h01=0x0050, text=» ORKL A10,/9800 END UNPACKING «, t00=0x004b, t01=0x00d8}
0x7622…7634 Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x004b, t01=0x00fe}
0x7634…7646 Head {h00=0x000e, h01=0x0050, text=» RF CHARET«, t00=0x004b, t01=0x0110}
0x7646…765a Head {h00=0x0010, h01=0x0050, text=»NULCHA EQU *«, t00=0x004b, t01=0x0122}
0x765a…766a Head {h00=0x000c, h01=0x0050, text=»NL EQU *«, t00=0x004b, t01=0x0136}
0x766a…767a Head {h00=0x000c, h01=0x0050, text=»FF EQU *«, t00=0x004b, t01=0x0146}
0x767a…768a Head {h00=0x000c, h01=0x0050, text=»EM EQU *«, t00=0x004b, t01=0x0156}
0x768a…769a Head {h00=0x000c, h01=0x0050, text=»CR EQU *«, t00=0x004b, t01=0x0166}
0x769a…76bc Head {h00=0x001e, h01=0x0050, text=» CF A14,LINWRP CHECK WRAP «, t00=0x004b, t01=0x0176}
0x76bc…76da Head {h00=0x001a, h01=0x0050, text=» SCR A2,A3 STORE CHAR.«, t00=0x004c, t01=0x0008}
0x76da…76f2 Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x004c, t01=0x0026}
0x76f2…7704 Head {h00=0x000e, h01=0x0050, text=» ORK A1,1 «, t00=0x004c, t01=0x003e}
0x7704…771c Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x004c, t01=0x0050}
0x771c…7746 Head {h00=0x0026, h01=0x0050, text=» XRKL A10,PTORD INDICATE PT ORDER «, t00=0x004c, t01=0x0068}
0x7746…7758 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x004c, t01=0x0092}
0x7758…776a Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x004c, t01=0x00a4}
0x776a…7784 Head {h00=0x0016, h01=0x0050, text=» LDK A1,0 CONTINUE«, t00=0x004c, t01=0x00b6}
0x7784…7798 Head {h00=0x0010, h01=0x0050, text=»CHARET EQU *«, t00=0x004c, t01=0x00d0}
0x7798…77a8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x004c, t01=0x00e4}
0x77a8…77b6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004c, t01=0x00f4}
0x77b6…77fe Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x004c, t01=0x0102}
0x77fe…7846 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x004c, t01=0x014a}
0x7846…788e (77, 0, 400) Head {h00=0x0044, h01=0x0050, text=»* PACKSY PACK DC BUFFER IN SYSTEM MODE *«, t00=0x004d, t01=0x0004}
0x788e…78d6 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x004d, t01=0x004c}
0x78d6…791e Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x004d, t01=0x0094}
0x791e…7932 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x004d, t01=0x00dc}
0x7932…793c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x00f0}
0x793c…794e Head {h00=0x000e, h01=0x0050, text=»* A2= CHAR«, t00=0x004d, t01=0x00fa}
0x794e…7972 Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x004d, t01=0x010c}
0x7972…7990 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x004d, t01=0x0130}
0x7990…79a6 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x004d, t01=0x014e}
0x79a6…79bc Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x004d, t01=0x0164}
0x79bc…79de Head {h00=0x001e, h01=0x0050, text=»* A8= ADDRESS IN DC-BUFFER«, t00=0x004d, t01=0x017a}
0x79de…79fe Head {h00=0x001c, h01=0x0050, text=»* A9= INDEX IN DC-BUFFER«, t00=0x004e, t01=0x000c}
0x79fe…7a1e Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x004e, t01=0x002c}
0x7a1e…7a3c Head {h00=0x001a, h01=0x0050, text=»* A12= BUFFER ADDRESS «, t00=0x004e, t01=0x004c}
0x7a3c…7a54 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x004e, t01=0x006a}
0x7a54…7a5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0082}
0x7a5e…7aa6 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x004e, t01=0x008c}
0x7aa6…7aba Head {h00=0x0010, h01=0x0050, text=»PACKSY EQU *«, t00=0x004e, t01=0x00d4}
0x7aba…7acc Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x004e, t01=0x00e8}
0x7acc…7ae6 Head {h00=0x0016, h01=0x0050, text=» LDKL A9,0 COUNTER«, t00=0x004e, t01=0x00fa}
0x7ae6…7b0e Head {h00=0x0024, h01=0x0050, text=» LD A3,CURPOS,A11 GET START POS.«, t00=0x004e, t01=0x0114}
0x7b0e…7b38 Head {h00=0x0026, h01=0x0050, text=» CWK A3,/800 ANY CHAR. ON DISPLAY?«, t00=0x004e, t01=0x013c}
0x7b38…7b50 Head {h00=0x0014, h01=0x0050, text=» RF(E) PASY40 NO«, t00=0x004e, t01=0x0166}
0x7b50…7b7e Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x004e, t01=0x017e}
0x7b7e…7b90 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x004f, t01=0x001c}
0x7b90…7bb8 Head {h00=0x0024, h01=0x0050, text=» SUR A1,A3 GET LENGTH OF MESSAGE«, t00=0x004f, t01=0x002e}
0x7bb8…7bde Head {h00=0x0022, h01=0x0050, text=» RF(NN) PASY10 NOT WRAP AROUND«, t00=0x004f, t01=0x0056}
0x7bde…7c0a Head {h00=0x0028, h01=0x0050, text=» LDKL A1,LBVDU-1 LAST POS. ON SCREEN«, t00=0x004f, t01=0x007c}
0x7c0a…7c2e Head {h00=0x0020, h01=0x0050, text=» SUR A1,A3 GET LENGTH AGAIN «, t00=0x004f, t01=0x00a8}
0x7c2e…7c42 Head {h00=0x0010, h01=0x0050, text=»PASY10 EQU *«, t00=0x004f, t01=0x00cc}
0x7c42…7c66 Head {h00=0x0020, h01=0x0050, text=» CWK A1,256 ILLEGAL LENGTH? «, t00=0x004f, t01=0x00e0}
0x7c66…7c80 Head {h00=0x0016, h01=0x0050, text=» RF(NG) PASY20 NO «, t00=0x004f, t01=0x0104}
0x7c80…7ca2 Head {h00=0x001e, h01=0x0050, text=» LDKL A1,256 ADJUST LENGTH«, t00=0x004f, t01=0x011e}
0x7ca2…7cb6 Head {h00=0x0010, h01=0x0050, text=»PASY20 EQU *«, t00=0x004f, t01=0x0140}
0x7cb6…7ccc Head {h00=0x0012, h01=0x0050, text=» ADKL A3,BVDU «, t00=0x004f, t01=0x0154}
0x7ccc…7ce0 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x004f, t01=0x016a}
0x7ce0…7cf4 Head {h00=0x0010, h01=0x0050, text=»PASY30 EQU *«, t00=0x004f, t01=0x017e}
0x7cf4…7d14 (80, 0, 400) Head {h00=0x001c, h01=0x0050, text=» CWR A1,A9 ALL EXAMINED?«, t00=0x0050, t01=0x0004}
0x7d14…7d2e Head {h00=0x0016, h01=0x0050, text=» RF(E) PASY40 YES «, t00=0x0050, t01=0x0024}
0x7d2e…7d58 Head {h00=0x0026, h01=0x0050, text=» LCR A2,A3 GET CHAR IN VDU BUFFER «, t00=0x0050, t01=0x003e}
0x7d58…7d6a Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0050, t01=0x0068}
0x7d6a…7d8a Head {h00=0x001c, h01=0x0050, text=» CWK A2,NULL NULL CHAR.?«, t00=0x0050, t01=0x007a}
0x7d8a…7db0 Head {h00=0x0022, h01=0x0050, text=» RB(E) PASY30 YES, DON'T STORE«, t00=0x0050, t01=0x009a}
0x7db0…7dde Head {h00=0x002a, h01=0x0050, text=» CF A14,PDCCH STORE CHAR. IN DC BUFFER«, t00=0x0050, t01=0x00c0}
0x7dde…7df0 Head {h00=0x000e, h01=0x0050, text=» RB PASY30«, t00=0x0050, t01=0x00ee}
0x7df0…7e04 Head {h00=0x0010, h01=0x0050, text=»PASY40 EQU *«, t00=0x0050, t01=0x0100}
0x7e04…7e2c Head {h00=0x0024, h01=0x0050, text=» LDK A1,0 INDICATE LAST IN CHAIN«, t00=0x0050, t01=0x0114}
0x7e2c…7e4e Head {h00=0x001e, h01=0x0050, text=» CF A14,DCWRIT SEND BUFFER«, t00=0x0050, t01=0x013c}
0x7e4e…7e78 Head {h00=0x0026, h01=0x0050, text=» LDR A8,A12 GET BUFFER TO RELEASE «, t00=0x0050, t01=0x015e}
0x7e78…7e9e Head {h00=0x0022, h01=0x0050, text=» CF A14,RELBUF RELEASE BUFFER «, t00=0x0050, t01=0x0188}
0x7e9e…7eaa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0051, t01=0x001e}
0x7eaa…7eba Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0051, t01=0x002a}
0x7eba…7ec8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0051, t01=0x003a}
0x7ec8…7f0e Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0051, t01=0x0048}
0x7f0e…7f54 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0051, t01=0x008e}
0x7f54…7f9a Head {h00=0x0042, h01=0x0050, text=»* UNPSYS UNPACK DC BUFFER IN SYSTEM MODE * «, t00=0x0051, t01=0x00d4}
0x7f9a…7fe0 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0051, t01=0x011a}
0x7fe0…8026 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0051, t01=0x0160}
0x8026…803a Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0052, t01=0x0016}
0x803a…8044 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x002a}
0x8044…8058 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0052, t01=0x0034}
0x8058…807c Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x0052, t01=0x0048}
0x807c…809a Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0052, t01=0x006c}
0x809a…80bc Head {h00=0x001e, h01=0x0050, text=»* A5= LAST IN ROW REL POS «, t00=0x0052, t01=0x008a}
0x80bc…80e4 Head {h00=0x0024, h01=0x0050, text=»* A6= INTERNAL LINE FLAG ADDRESS«, t00=0x0052, t01=0x00ac}
0x80e4…8106 Head {h00=0x001e, h01=0x0050, text=»* A8= ADDRESS IN DC-BUFFER«, t00=0x0052, t01=0x00d4}
0x8106…8126 Head {h00=0x001c, h01=0x0050, text=»* A9= INDEX IN DC-BUFFER«, t00=0x0052, t01=0x00f6}
0x8126…813e Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0052, t01=0x0116}
0x813e…815e Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0052, t01=0x012e}
0x815e…8176 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0052, t01=0x014e}
0x8176…818e Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0052, t01=0x0166}
0x818e…8198 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x017e}
0x8198…81de Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0052, t01=0x0188}
0x81de…81f2 Head {h00=0x0010, h01=0x0050, text=»UNPSYS EQU *«, t00=0x0053, t01=0x003e}
0x81f2…8204 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0053, t01=0x0052}
0x8204…821c Head {h00=0x0014, h01=0x0050, text=» LD A1,KBINH,A11«, t00=0x0053, t01=0x0064}
0x821c…822e Head {h00=0x000e, h01=0x0050, text=» ORK A1,3 «, t00=0x0053, t01=0x007c}
0x822e…8246 Head {h00=0x0014, h01=0x0050, text=» ST A1,KBINH,A11«, t00=0x0053, t01=0x008e}
0x8246…825c Head {h00=0x0012, h01=0x0050, text=» CF A14,LMP4ON«, t00=0x0053, t01=0x00a6}
0x825c…828a Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x0053, t01=0x00bc}
0x828a…82ac Head {h00=0x001e, h01=0x0050, text=» LDR A3,A4 CURSOR ADDRESS «, t00=0x0053, t01=0x00ea}
0x82ac…82c2 Head {h00=0x0012, h01=0x0050, text=» ADKL A3,BVDU «, t00=0x0053, t01=0x010c}
0x82c2…82e8 Head {h00=0x0022, h01=0x0050, text=» ADR A3,A11 VDU BUFFER ADDRESS«, t00=0x0053, t01=0x0122}
0x82e8…8318 Head {h00=0x002c, h01=0x0050, text=» LD A8,BUFPNT,A11 GET DC BUFFER ADDRESS «, t00=0x0053, t01=0x0148}
0x8318…833e Head {h00=0x0022, h01=0x0050, text=» SUR A9,A9 INDEX IN DC BUFFER «, t00=0x0053, t01=0x0178}
0x833e…8352 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x0054, t01=0x000e}
0x8352…8368 Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x0054, t01=0x0022}
0x8368…8392 Head {h00=0x0026, h01=0x0050, text=» CF A14,LINE GET INTERNAL LINEFLAG«, t00=0x0054, t01=0x0038}
0x8392…83a6 Head {h00=0x0010, h01=0x0050, text=»UNPS05 EQU *«, t00=0x0054, t01=0x0062}
0x83a6…83d4 Head {h00=0x002a, h01=0x0050, text=» CF A14,GDCCH GET CHAR. IN DC BUFFER «, t00=0x0054, t01=0x0076}
0x83d4…83f6 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 ANYTHING LEFT? «, t00=0x0054, t01=0x00a4}
0x83f6…8410 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) UNPS60 NO «, t00=0x0054, t01=0x00c6}
0x8410…842a Head {h00=0x0016, h01=0x0050, text=» CWK A2,/31 BIND? «, t00=0x0054, t01=0x00e0}
0x842a…844c Head {h00=0x001e, h01=0x0050, text=» RF(E) UNPS50 YES,PERHAPS «, t00=0x0054, t01=0x00fa}
0x844c…8460 Head {h00=0x0010, h01=0x0050, text=»UNPS07 EQU *«, t00=0x0054, t01=0x011c}
0x8460…847a Head {h00=0x0016, h01=0x0050, text=» CWK A2,/20 ORDER?«, t00=0x0054, t01=0x0130}
0x847a…8494 Head {h00=0x0016, h01=0x0050, text=» RF(NL) UNPS40 NO «, t00=0x0054, t01=0x014a}
0x8494…84b2 Head {h00=0x001a, h01=0x0050, text=» CWK A2,/0A NEW LINE? «, t00=0x0054, t01=0x0164}
0x84b2…84cc Head {h00=0x0016, h01=0x0050, text=» RF(NE) UNPS10 NO «, t00=0x0054, t01=0x0182}
0x84cc…84f4 Head {h00=0x0024, h01=0x0050, text=» CF A14,NLROUT PERFORM NEW LINE «, t00=0x0055, t01=0x000c}
0x84f4…8506 Head {h00=0x000e, h01=0x0050, text=» RB UNPS05«, t00=0x0055, t01=0x0034}
0x8506…851a Head {h00=0x0010, h01=0x0050, text=»UNPS10 EQU *«, t00=0x0055, t01=0x0046}
0x851a…8532 Head {h00=0x0014, h01=0x0050, text=» CWK A2,/1C IFS?«, t00=0x0055, t01=0x005a}
0x8532…854c Head {h00=0x0016, h01=0x0050, text=» RF(NE) UNPS20 NO «, t00=0x0055, t01=0x0072}
0x854c…856e Head {h00=0x001e, h01=0x0050, text=» LDK A2,/2A REPLACE WITH *«, t00=0x0055, t01=0x008c}
0x856e…8580 Head {h00=0x000e, h01=0x0050, text=» RF UNPS40«, t00=0x0055, t01=0x00ae}
0x8580…8594 Head {h00=0x0010, h01=0x0050, text=»UNPS20 EQU *«, t00=0x0055, t01=0x00c0}
0x8594…85ac Head {h00=0x0014, h01=0x0050, text=» CWK A2,/1E IRS?«, t00=0x0055, t01=0x00d4}
0x85ac…85c6 Head {h00=0x0016, h01=0x0050, text=» RF(NE) UNPS30 NO «, t00=0x0055, t01=0x00ec}
0x85c6…85e8 Head {h00=0x001e, h01=0x0050, text=» LDK A2,/3B REPLACE WITH ;«, t00=0x0055, t01=0x0106}
0x85e8…85fa Head {h00=0x000e, h01=0x0050, text=» RF UNPS40«, t00=0x0055, t01=0x0128}
0x85fa…860e Head {h00=0x0010, h01=0x0050, text=»UNPS30 EQU *«, t00=0x0055, t01=0x013a}
0x860e…8628 Head {h00=0x0016, h01=0x0050, text=» CWK A2,NULL NULL?«, t00=0x0055, t01=0x014e}
0x8628…8642 Head {h00=0x0016, h01=0x0050, text=» RF(NE) UNPS40 NO «, t00=0x0055, t01=0x0168}
0x8642…8668 Head {h00=0x0022, h01=0x0050, text=» LDK A2,/20 REPLACE WITH SPACE«, t00=0x0055, t01=0x0182}
0x8668…867c Head {h00=0x0010, h01=0x0050, text=»UNPS40 EQU *«, t00=0x0056, t01=0x0018}
0x867c…869e Head {h00=0x001e, h01=0x0050, text=» CF A14,LINWRP CHECK WRAP «, t00=0x0056, t01=0x002c}
0x869e…86c4 Head {h00=0x0022, h01=0x0050, text=» SCR A2,A3 STORE IN VDU BUFFER«, t00=0x0056, t01=0x004e}
0x86c4…86dc Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x0056, t01=0x0074}
0x86dc…86ee Head {h00=0x000e, h01=0x0050, text=» ORK A1,1 «, t00=0x0056, t01=0x008c}
0x86ee…8706 Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x0056, t01=0x009e}
0x8706…8718 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0056, t01=0x00b6}
0x8718…872a Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0056, t01=0x00c8}
0x872a…873c Head {h00=0x000e, h01=0x0050, text=» RB UNPS05«, t00=0x0056, t01=0x00da}
0x873c…8750 Head {h00=0x0010, h01=0x0050, text=»UNPS50 EQU *«, t00=0x0056, t01=0x00ec}
0x8750…8766 Head {h00=0x0012, h01=0x0050, text=» CF A14,GDCCH «, t00=0x0056, t01=0x0100}
0x8766…8788 Head {h00=0x001e, h01=0x0050, text=» ANK A2,/FE SHURE OF BIND?«, t00=0x0056, t01=0x0116}
0x8788…87a4 Head {h00=0x0018, h01=0x0050, text=» RF(Z) UNPS55 ALMOST«, t00=0x0056, t01=0x0138}
0x87a4…87b6 Head {h00=0x000e, h01=0x0050, text=» SUKL A8,2«, t00=0x0056, t01=0x0154}
0x87b6…87c8 Head {h00=0x000e, h01=0x0050, text=» SUKL A9,2«, t00=0x0056, t01=0x0166}
0x87c8…87de Head {h00=0x0012, h01=0x0050, text=» CF A14,GDCCH «, t00=0x0056, t01=0x0178}
0x87de…87f0 Head {h00=0x000e, h01=0x0050, text=» RB UNPS07«, t00=0x0056, t01=0x018e}
0x87f0…8804 Head {h00=0x0010, h01=0x0050, text=»UNPS55 EQU *«, t00=0x0057, t01=0x0010}
0x8804…882e Head {h00=0x0026, h01=0x0050, text=» LDK A1,MYJOB INDICATE MY JOB MODE«, t00=0x0057, t01=0x0024}
0x882e…8858 Head {h00=0x0026, h01=0x0050, text=» ADKL A1,/8000 NEW MODE ACTIVATION«, t00=0x0057, t01=0x004e}
0x8858…8872 Head {h00=0x0016, h01=0x0050, text=» ST A1,SNAMOD,A11 «, t00=0x0057, t01=0x0078}
0x8872…8890 Head {h00=0x001a, h01=0x0050, text=» LDKL A10,1 NO DISPLAY«, t00=0x0057, t01=0x0092}
0x8890…88a2 Head {h00=0x000e, h01=0x0050, text=» RF UNPS70«, t00=0x0057, t01=0x00b0}
0x88a2…88b6 Head {h00=0x0010, h01=0x0050, text=»UNPS60 EQU *«, t00=0x0057, t01=0x00c2}
0x88b6…88ce Head {h00=0x0014, h01=0x0050, text=» LDKL A5,LBVDU+1«, t00=0x0057, t01=0x00d6}
0x88ce…88e0 Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x0057, t01=0x00ee}
0x88e0…8912 Head {h00=0x002e, h01=0x0050, text=» CF A14,STOINF SAVE NEW SCREEN INFORMATION«, t00=0x0057, t01=0x0100}
0x8912…8926 Head {h00=0x0010, h01=0x0050, text=» LDKL A10,0 «, t00=0x0057, t01=0x0132}
0x8926…893a Head {h00=0x0010, h01=0x0050, text=»UNPS70 EQU *«, t00=0x0057, t01=0x0146}
0x893a…896a Head {h00=0x002c, h01=0x0050, text=» LD A8,BUFPNT,A11 GET BUFFER TO RELEASE «, t00=0x0057, t01=0x015a}
0x896a…8990 Head {h00=0x0022, h01=0x0050, text=» CF A14,RELBUF RELEASE BUFFER «, t00=0x0057, t01=0x018a}
0x8990…899c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0058, t01=0x0020}
0x899c…89ac Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0058, t01=0x002c}
0x89ac…89ba Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0058, t01=0x003c}
0x89ba…89fe Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0058, t01=0x004a}
0x89fe…8a42 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0058, t01=0x008e}
0x8a42…8a7a Head {h00=0x0034, h01=0x0050, text=»* GETNXT GET AND CHECK NEXT BUFFER «, t00=0x0058, t01=0x00d2}
0x8a7a…8abe Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0058, t01=0x010a}
0x8abe…8b02 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0058, t01=0x014e}
0x8b02…8b16 (89, 0, 400) Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0059, t01=0x0004}
0x8b16…8b20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0018}
0x8b20…8b3a Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x0059, t01=0x0022}
0x8b3a…8b5a Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0059, t01=0x003c}
0x8b5a…8b78 Head {h00=0x001a, h01=0x0050, text=»* A12= BUFFER ADDRESS «, t00=0x0059, t01=0x005c}
0x8b78…8b90 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0059, t01=0x007a}
0x8b90…8b9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0092}
0x8b9a…8bde Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0059, t01=0x009c}
0x8bde…8bf2 Head {h00=0x0010, h01=0x0050, text=»GETNXT EQU *«, t00=0x0059, t01=0x00e0}
0x8bf2…8c04 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0059, t01=0x00f4}
0x8c04…8c32 Head {h00=0x002a, h01=0x0050, text=» CF A14,SAVE2 SAVE UNPACK INFORMATION «, t00=0x0059, t01=0x0106}
0x8c32…8c62 Head {h00=0x002c, h01=0x0050, text=» LD A8,BUFPNT,A11 GET BUFFER TO RELEASE «, t00=0x0059, t01=0x0134}
0x8c62…8c88 Head {h00=0x0022, h01=0x0050, text=» CF A14,RELBUF RELEASE BUFFER «, t00=0x0059, t01=0x0164}
0x8c88…8c9e Head {h00=0x0012, h01=0x0050, text=» IFT DISHOW=2 «, t00=0x0059, t01=0x018a}
0x8c9e…8cb6 Head {h00=0x0014, h01=0x0050, text=» LC A1,TCT01,A11«, t00=0x005a, t01=0x0010}
0x8cb6…8cdc Head {h00=0x0022, h01=0x0050, text=» CCK A1,VDUCOD PRINTER UNPACK?«, t00=0x005a, t01=0x0028}
0x8cdc…8cf6 Head {h00=0x0016, h01=0x0050, text=» RF(NE) GETC10 YES«, t00=0x005a, t01=0x004e}
0x8cf6…8d24 Head {h00=0x002a, h01=0x0050, text=» CF A14,DISMOD DISPLAY MODIFIED FIELDS«, t00=0x005a, t01=0x0068}
0x8d24…8d30 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005a, t01=0x0096}
0x8d30…8d42 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x005a, t01=0x00a2}
0x8d42…8d56 Head {h00=0x0010, h01=0x0050, text=»GETC10 EQU *«, t00=0x005a, t01=0x00b4}
0x8d56…8d76 Head {h00=0x001c, h01=0x0050, text=» CF A14,WAIT SYNCHRONIZE«, t00=0x005a, t01=0x00c8}
0x8d76…8d9c Head {h00=0x0022, h01=0x0050, text=» LD A2,ECBEL,A8 SAVE LENGTH =4«, t00=0x005a, t01=0x00e8}
0x8d9c…8dba Head {h00=0x001a, h01=0x0050, text=» ST A2,DCLENG,A11 . =4«, t00=0x005a, t01=0x010e}
0x8dba…8dcc Head {h00=0x000e, h01=0x0050, text=» LDR A9,A1«, t00=0x005a, t01=0x012c}
0x8dcc…8de2 Head {h00=0x0012, h01=0x0050, text=» CF A14,REST2 «, t00=0x005a, t01=0x013e}
0x8de2…8e04 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A9 GET RETURN CODE«, t00=0x005a, t01=0x0154}
0x8e04…8e30 Head {h00=0x0028, h01=0x0050, text=» SRC A1,1 FIRST OR MODDLE IN CHAIN? «, t00=0x005a, t01=0x0176}
0x8e30…8e4a Head {h00=0x0016, h01=0x0050, text=» RF(NN) GETC30 NO «, t00=0x005b, t01=0x0012}
0x8e4a…8e72 Head {h00=0x0024, h01=0x0050, text=» LDR A1,A10 GET INTERNAL STATUS «, t00=0x005b, t01=0x002c}
0x8e72…8ea2 Head {h00=0x002c, h01=0x0050, text=» ANKL A1,LICREC LAST IN CHAIN RECEIVED? «, t00=0x005b, t01=0x0054}
0x8ea2…8eba Head {h00=0x0014, h01=0x0050, text=» RF(Z) GETC60 NO«, t00=0x005b, t01=0x0084}
0x8eba…8ed2 Head {h00=0x0014, h01=0x0050, text=» LC A1,TCT01,A11«, t00=0x005b, t01=0x009c}
0x8ed2…8ef8 Head {h00=0x0022, h01=0x0050, text=» CCK A1,VDUCOD PRINTER UNPACK?«, t00=0x005b, t01=0x00b4}
0x8ef8…8f12 Head {h00=0x0016, h01=0x0050, text=» RF(NE) GETC20 YES«, t00=0x005b, t01=0x00da}
0x8f12…8f46 Head {h00=0x0030, h01=0x0050, text=» CF A14,P2WCC TAKE CARE OF WCC AFTER UPDATE «, t00=0x005b, t01=0x00f4}
0x8f46…8f5a Head {h00=0x0010, h01=0x0050, text=»GETC20 EQU *«, t00=0x005b, t01=0x0128}
0x8f5a…8f86 Head {h00=0x0028, h01=0x0050, text=» XRKL A10,LICREC RESET LAST IN CHAIN«, t00=0x005b, t01=0x013c}
0x8f86…8fa8 Head {h00=0x001e, h01=0x0050, text=» ORKL A10,NEWCH NEW CHAIN «, t00=0x005b, t01=0x0168}
0x8fa8…8fba Head {h00=0x000e, h01=0x0050, text=» RF GETC60«, t00=0x005b, t01=0x018a}
0x8fba…8fce Head {h00=0x0010, h01=0x0050, text=»GETC30 EQU *«, t00=0x005c, t01=0x000c}
0x8fce…8ff8 Head {h00=0x0026, h01=0x0050, text=» SRC A1,1 LAST IN CHAIN RECEIVED? «, t00=0x005c, t01=0x0020}
0x8ff8…9012 Head {h00=0x0016, h01=0x0050, text=» RF(NN) GETC90 NO «, t00=0x005c, t01=0x004a}
0x9012…9026 Head {h00=0x0010, h01=0x0050, text=»GETC40 EQU *«, t00=0x005c, t01=0x0064}
0x9026…904e Head {h00=0x0024, h01=0x0050, text=» LDR A1,A10 GET INTERNAL STATUS «, t00=0x005c, t01=0x0078}
0x904e…907e Head {h00=0x002c, h01=0x0050, text=» ORKL A10,LICREC LAST IN CHAIN RECEIVED «, t00=0x005c, t01=0x00a0}
0x907e…90ae Head {h00=0x002c, h01=0x0050, text=» ANKL A1,LICREC LAST IN CHAIN RECEIVED? «, t00=0x005c, t01=0x00d0}
0x90ae…90c6 Head {h00=0x0014, h01=0x0050, text=» RF(Z) GETC60 NO«, t00=0x005c, t01=0x0100}
0x90c6…90fa Head {h00=0x0030, h01=0x0050, text=» CF A14,P2WCC TAKE CARE OF WCC AFTER UPDATE «, t00=0x005c, t01=0x0118}
0x90fa…911c Head {h00=0x001e, h01=0x0050, text=» ORKL A10,NEWCH NEW CHAIN «, t00=0x005c, t01=0x014c}
0x911c…9130 Head {h00=0x0010, h01=0x0050, text=»GETC60 EQU *«, t00=0x005c, t01=0x016e}
0x9130…915e Head {h00=0x002a, h01=0x0050, text=» ST A12,BUFPNT,A11 SAVE BUFFER ADDRESS«, t00=0x005c, t01=0x0182}
0x915e…9188 Head {h00=0x0026, h01=0x0050, text=» CF A14,SAVE2 SAVE INFORMATION =2 «, t00=0x005d, t01=0x0020}
0x9188…91ae Head {h00=0x0022, h01=0x0050, text=» CF A14,GETBUF GET NEW BUFFER «, t00=0x005d, t01=0x004a}
0x91ae…91d4 Head {h00=0x0022, h01=0x0050, text=» LDR A3,A8 GET BUFFER ADDRESS «, t00=0x005d, t01=0x0070}
0x91d4…91fc Head {h00=0x0024, h01=0x0050, text=» CF A14,READNW READ WITH NO WAIT«, t00=0x005d, t01=0x0096}
0x91fc…922c Head {h00=0x002c, h01=0x0050, text=» CF A14,REST2 RESTORE UNPACK INFORMATION«, t00=0x005d, t01=0x00be}
0x922c…9240 Head {h00=0x0010, h01=0x0050, text=» LDR A1,A10 «, t00=0x005d, t01=0x00ee}
0x9240…9262 Head {h00=0x001e, h01=0x0050, text=» ANKL A1,NEWCH NEW CHAIN? «, t00=0x005d, t01=0x0102}
0x9262…927a Head {h00=0x0014, h01=0x0050, text=» RF(Z) GETC80 NO«, t00=0x005d, t01=0x0124}
0x927a…9290 Head {h00=0x0012, h01=0x0050, text=» IFT DISHOW=1 «, t00=0x005d, t01=0x013c}
0x9290…92ae Head {h00=0x001a, h01=0x0050, text=» XRKL A10,NEWCH RESET «, t00=0x005d, t01=0x0152}
0x92ae…92c6 Head {h00=0x0014, h01=0x0050, text=» LC A1,TCT01,A11«, t00=0x005d, t01=0x0170}
0x92c6…92dc Head {h00=0x0012, h01=0x0050, text=» CCK A1,VDUCOD«, t00=0x005d, t01=0x0188}
0x92dc…92f2 Head {h00=0x0012, h01=0x0050, text=» RF(NE) GETC70«, t00=0x005e, t01=0x000e}
0x92f2…9308 Head {h00=0x0012, h01=0x0050, text=» CF A14,SAVE2 «, t00=0x005e, t01=0x0024}
0x9308…931e Head {h00=0x0012, h01=0x0050, text=» CF A14,DISMOD«, t00=0x005e, t01=0x003a}
0x931e…9334 Head {h00=0x0012, h01=0x0050, text=» CF A14,REST2 «, t00=0x005e, t01=0x0050}
0x9334…9340 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005e, t01=0x0066}
0x9340…9352 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x005e, t01=0x0072}
0x9352…9366 Head {h00=0x0010, h01=0x0050, text=»GETC70 EQU *«, t00=0x005e, t01=0x0084}
0x9366…9388 Head {h00=0x001e, h01=0x0050, text=» LDK A1,ICOMN1 NEXT LABEL «, t00=0x005e, t01=0x0098}
0x9388…93a2 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x005e, t01=0x00ba}
0x93a2…93b6 Head {h00=0x0010, h01=0x0050, text=»GETC80 EQU *«, t00=0x005e, t01=0x00d4}
0x93b6…93d0 Head {h00=0x0016, h01=0x0050, text=» LD A8,BUFPNT,A11 «, t00=0x005e, t01=0x00e8}
0x93d0…93e2 Head {h00=0x000e, h01=0x0050, text=» SUR A9,A9«, t00=0x005e, t01=0x0102}
0x93e2…9400 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETUR N CODE«, t00=0x005e, t01=0x0114}
0x9400…9414 Head {h00=0x0010, h01=0x0050, text=»GETC90 EQU *«, t00=0x005e, t01=0x0132}
0x9414…9420 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005e, t01=0x0146}
0x9420…9430 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005e, t01=0x0152}
0x9430…943e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005e, t01=0x0162}
0x943e…9484 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x005e, t01=0x0170}
0x9484…94ca Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x005f, t01=0x0026}
0x94ca…9510 Head {h00=0x0042, h01=0x0050, text=»* PUTCHA PUT CHAR. IN DC BUFFER * «, t00=0x005f, t01=0x006c}
0x9510…9556 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x005f, t01=0x00b2}
0x9556…959c Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x005f, t01=0x00f8}
0x959c…95b0 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x005f, t01=0x013e}
0x95b0…95ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x0152}
0x95ba…95d4 Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x005f, t01=0x015c}
0x95d4…95f4 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x005f, t01=0x0176}
0x95f4…960c Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0060, t01=0x0008}
0x960c…9624 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0060, t01=0x0020}
0x9624…962e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x0038}
0x962e…9674 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0060, t01=0x0042}
0x9674…9688 Head {h00=0x0010, h01=0x0050, text=»PUTCHA EQU *«, t00=0x0060, t01=0x0088}
0x9688…96a8 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A1 SBA TO STORE?«, t00=0x0060, t01=0x009c}
0x96a8…96c2 Head {h00=0x0016, h01=0x0050, text=» RF(N) PUTC10 YES «, t00=0x0060, t01=0x00bc}
0x96c2…96ea Head {h00=0x0024, h01=0x0050, text=» CWK A9,BUFFL+BUFFL BUFFER FULL?«, t00=0x0060, t01=0x00d6}
0x96ea…9704 Head {h00=0x0016, h01=0x0050, text=» RF(NL) PUTC20 YES«, t00=0x0060, t01=0x00fe}
0x9704…9716 Head {h00=0x000e, h01=0x0050, text=» RF PUTC30«, t00=0x0060, t01=0x0118}
0x9716…972a Head {h00=0x0010, h01=0x0050, text=»PUTC10 EQU *«, t00=0x0060, t01=0x012a}
0x972a…9748 Head {h00=0x001a, h01=0x0050, text=» LDKL A1,BUFFL+BUFFL-3«, t00=0x0060, t01=0x013e}
0x9748…9774 Head {h00=0x0028, h01=0x0050, text=» SUR A1,A9 ROOM FOR SBA AND ADDRESS?«, t00=0x0060, t01=0x015c}
0x9774…978e Head {h00=0x0016, h01=0x0050, text=» RF(NN) PUTC30 YES«, t00=0x0060, t01=0x0188}
0x978e…97a2 Head {h00=0x0010, h01=0x0050, text=»PUTC20 EQU *«, t00=0x0061, t01=0x0012}
0x97a2…97b4 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0061, t01=0x0026}
0x97b4…97e0 Head {h00=0x0028, h01=0x0050, text=» CF A14,SAVE2 SAVE PACK INFORMATION «, t00=0x0061, t01=0x0038}
0x97e0…980c Head {h00=0x0028, h01=0x0050, text=» LDK A1,1 INDICATE NOT LAST IN CHAIN«, t00=0x0061, t01=0x0064}
0x980c…9832 Head {h00=0x0022, h01=0x0050, text=» CF A14,DCWRIT WRITE DC BUFFER«, t00=0x0061, t01=0x0090}
0x9832…9844 Head {h00=0x000e, h01=0x0050, text=» LDR A9,A1«, t00=0x0061, t01=0x00b6}
0x9844…985a Head {h00=0x0012, h01=0x0050, text=» CF A14,REST2 «, t00=0x0061, t01=0x00c8}
0x985a…987e Head {h00=0x0020, h01=0x0050, text=» LDR A9,A9 TRANSMISSION OK? «, t00=0x0061, t01=0x00de}
0x987e…9898 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PUTC90 NO «, t00=0x0061, t01=0x0102}
0x9898…98b8 Head {h00=0x001c, h01=0x0050, text=» SUR A9,A9 BUFFER INDEX «, t00=0x0061, t01=0x011c}
0x98b8…98da Head {h00=0x001e, h01=0x0050, text=» LDR A8,A12 BUFFER ADDRESS«, t00=0x0061, t01=0x013c}
0x98da…98e6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0061, t01=0x015e}
0x98e6…98f8 Head {h00=0x000e, h01=0x0050, text=» IFF SNA=1«, t00=0x0061, t01=0x016a}
0x98f8…990e Head {h00=0x0012, h01=0x0050, text=» CF A14,ERROR «, t00=0x0061, t01=0x017c}
0x990e…9920 (98, 0, 400) Head {h00=0x000e, h01=0x0050, text=» LDKL A1,*«, t00=0x0062, t01=0x0004}
0x9920…9938 Head {h00=0x0014, h01=0x0050, text=» ST A1,REGI,A11 «, t00=0x0062, t01=0x0016}
0x9938…9944 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0062, t01=0x002e}
0x9944…9954 Head {h00=0x000c, h01=0x0050, text=» DATA 3 «, t00=0x0062, t01=0x003a}
0x9954…9960 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0062, t01=0x004a}
0x9960…9974 Head {h00=0x0010, h01=0x0050, text=»PUTC30 EQU *«, t00=0x0062, t01=0x0056}
0x9974…99a0 Head {h00=0x0028, h01=0x0050, text=» CF A14,PDCCH PUT CHAR. IN DC BUFFER«, t00=0x0062, t01=0x006a}
0x99a0…99be Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0062, t01=0x0096}
0x99be…99d2 Head {h00=0x0010, h01=0x0050, text=»PUTC90 EQU *«, t00=0x0062, t01=0x00b4}
0x99d2…99e2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0062, t01=0x00c8}
0x99e2…99f0 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0062, t01=0x00d8}
0x99f0…9a2a Head {h00=0x0036, h01=0x0032, text=»**************************************************«, t00=0x0062, t01=0x00e6}
0x9a2a…9a64 Head {h00=0x0036, h01=0x0032, text=»* *«, t00=0x0062, t01=0x0120}
0x9a64…9a9e Head {h00=0x0036, h01=0x0032, text=»* PDCCH PUT CHAR. IN DC BUFFER *«, t00=0x0062, t01=0x015a}
0x9a9e…9ad8 (99, 0, 400) Head {h00=0x0036, h01=0x0032, text=»* *«, t00=0x0063, t01=0x0004}
0x9ad8…9b12 Head {h00=0x0036, h01=0x0032, text=»**************************************************«, t00=0x0063, t01=0x003e}
0x9b12…9b26 Head {h00=0x0010, h01=0x000c, text=»* REGISTERS«, t00=0x0063, t01=0x0078}
0x9b26…9b30 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0063, t01=0x008c}
0x9b30…9b44 Head {h00=0x0010, h01=0x000b, text=»* A2= CHAR. «, t00=0x0063, t01=0x0096}
0x9b44…9b5a Head {h00=0x0012, h01=0x000e, text=»* A3= RESERVED«, t00=0x0063, t01=0x00aa}
0x9b5a…9b70 Head {h00=0x0012, h01=0x000e, text=»* A4= RESERVED«, t00=0x0063, t01=0x00c0}
0x9b70…9b86 Head {h00=0x0012, h01=0x000e, text=»* A5= RESERVED«, t00=0x0063, t01=0x00d6}
0x9b86…9b9c Head {h00=0x0012, h01=0x000e, text=»* A6= RESERVED«, t00=0x0063, t01=0x00ec}
0x9b9c…9bbe Head {h00=0x001e, h01=0x0050, text=»* A8= ADDRESS IN DC-BUFFER«, t00=0x0063, t01=0x0102}
0x9bbe…9bdc Head {h00=0x001a, h01=0x0015, text=»* A9= DC-BUFFER INDEX «, t00=0x0063, t01=0x0124}
0x9bdc…9bf4 Head {h00=0x0014, h01=0x0010, text=»* A10= INDICATOR«, t00=0x0063, t01=0x0142}
0x9bf4…9c0c Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0063, t01=0x015a}
0x9c0c…9c24 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0063, t01=0x0172}
0x9c24…9c3c Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0063, t01=0x018a}
0x9c3c…9c46 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0064, t01=0x0012}
0x9c46…9c82 Head {h00=0x0038, h01=0x0033, text=»*************************************************** «, t00=0x0064, t01=0x001c}
0x9c82…9c96 Head {h00=0x0010, h01=0x000b, text=»PDCCH EQU * «, t00=0x0064, t01=0x0058}
0x9c96…9cbc Head {h00=0x0022, h01=0x0050, text=» CWK A9,BUFFL+BUFFL OVERFLOW? «, t00=0x0064, t01=0x006c}
0x9cbc…9cd6 Head {h00=0x0016, h01=0x0012, text=» RF(NL) PDC100 YES«, t00=0x0064, t01=0x0092}
0x9cd6…9cea Head {h00=0x0010, h01=0x000b, text=» ANK A2,/FF «, t00=0x0064, t01=0x00ac}
0x9cea…9d08 Head {h00=0x001a, h01=0x0050, text=» IFT SNA+EBCDIC=2 . =5«, t00=0x0064, t01=0x00c0}
0x9d08…9d28 Head {h00=0x001c, h01=0x0050, text=» LC A2,CONEBC,A2 CONVERT«, t00=0x0064, t01=0x00de}
0x9d28…9d34 Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x0064, t01=0x00fe}
0x9d34…9d5a Head {h00=0x0022, h01=0x0050, text=» SCR A2,A8 STORE IN DC-BUFFER «, t00=0x0064, t01=0x010a}
0x9d5a…9d6c Head {h00=0x000e, h01=0x0050, text=» ADKL A8,1«, t00=0x0064, t01=0x0130}
0x9d6c…9d7e Head {h00=0x000e, h01=0x000a, text=» ADKL A9,1«, t00=0x0064, t01=0x0142}
0x9d7e…9d92 Head {h00=0x0010, h01=0x000c, text=»PDC100 EQU *«, t00=0x0064, t01=0x0154}
0x9d92…9da2 Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x0064, t01=0x0168}
0x9da2…9db0 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0064, t01=0x0178}
0x9db0…9df8 Head {h00=0x0044, h01=0x003f, text=»*************************************************************** «, t00=0x0064, t01=0x0186}
0x9df8…9e40 Head {h00=0x0044, h01=0x003f, text=»* * «, t00=0x0065, t01=0x003e}
0x9e40…9e88 Head {h00=0x0044, h01=0x003f, text=»* GDCCH GET CHAR. IN DC BUFFER * «, t00=0x0065, t01=0x0086}
0x9e88…9ed0 Head {h00=0x0044, h01=0x003f, text=»* * «, t00=0x0065, t01=0x00ce}
0x9ed0…9f18 Head {h00=0x0044, h01=0x003f, text=»*************************************************************** «, t00=0x0065, t01=0x0116}
0x9f18…9f2c Head {h00=0x0010, h01=0x000c, text=»* REGISTERS«, t00=0x0065, t01=0x015e}
0x9f2c…9f36 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0065, t01=0x0172}
0x9f36…9f50 Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x0065, t01=0x017c}
0x9f50…9f64 Head {h00=0x0010, h01=0x000b, text=»* A2= CHAR. «, t00=0x0066, t01=0x0008}
0x9f64…9f88 Head {h00=0x0020, h01=0x001b, text=»* A3= POINTER IN VDU BUFFER «, t00=0x0066, t01=0x001c}
0x9f88…9f9e Head {h00=0x0012, h01=0x000e, text=»* A4= RESERVED«, t00=0x0066, t01=0x0040}
0x9f9e…9fb4 Head {h00=0x0012, h01=0x000e, text=»* A5= RESERVED«, t00=0x0066, t01=0x0056}
0x9fb4…9fca Head {h00=0x0012, h01=0x000e, text=»* A6= RESERVED«, t00=0x0066, t01=0x006c}
0x9fca…9fec Head {h00=0x001e, h01=0x0050, text=»* A8= ADDRESS IN DC-BUFFER«, t00=0x0066, t01=0x0082}
0x9fec…a00a Head {h00=0x001a, h01=0x0015, text=»* A9= DC-BUFFER INDEX «, t00=0x0066, t01=0x00a4}
0xa00a…a022 Head {h00=0x0014, h01=0x0010, text=»* A10= INDICATOR«, t00=0x0066, t01=0x00c2}
0xa022…a042 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0066, t01=0x00da}
0xa042…a05a Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0066, t01=0x00fa}
0xa05a…a072 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0066, t01=0x0112}
0xa072…a07c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0066, t01=0x012a}
0xa07c…a0b8 Head {h00=0x0038, h01=0x0034, text=»****************************************************«, t00=0x0066, t01=0x0134}
0xa0b8…a0cc Head {h00=0x0010, h01=0x000b, text=»GDCCH EQU * «, t00=0x0066, t01=0x0170}
0xa0cc…a0ea Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 PRESET ERROR«, t00=0x0066, t01=0x0184}
0xa0ea…a114 Head {h00=0x0026, h01=0x0050, text=» CW A9,DCLENG,A11 BUFFER EMPTIED? «, t00=0x0067, t01=0x0012}
0xa114…a12e Head {h00=0x0016, h01=0x0050, text=» RF(NL) GDCC90 YES«, t00=0x0067, t01=0x003c}
0xa12e…a140 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0067, t01=0x0056}
0xa140…a15c Head {h00=0x0018, h01=0x0050, text=» LCR A2,A8 GET CHAR.«, t00=0x0067, t01=0x0068}
0xa15c…a170 Head {h00=0x0010, h01=0x000b, text=» ANK A2,/FF «, t00=0x0067, t01=0x0084}
0xa170…a18e Head {h00=0x001a, h01=0x0050, text=» IFT SNA+EBCDIC=2 . =5«, t00=0x0067, t01=0x0098}
0xa18e…a1ae Head {h00=0x001c, h01=0x0050, text=» LC A2,CONASC,A2 CONVERT«, t00=0x0067, t01=0x00b6}
0xa1ae…a1ba Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x0067, t01=0x00d6}
0xa1ba…a1cc Head {h00=0x000e, h01=0x0050, text=» ADKL A8,1«, t00=0x0067, t01=0x00e2}
0xa1cc…a1de Head {h00=0x000e, h01=0x000a, text=» ADKL A9,1«, t00=0x0067, t01=0x00f4}
0xa1de…a1f2 Head {h00=0x0010, h01=0x0050, text=»GDCC90 EQU *«, t00=0x0067, t01=0x0106}
0xa1f2…a202 Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x0067, t01=0x011a}
0xa202…a210 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0067, t01=0x012a}
0xa210…a254 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0067, t01=0x0138}
0xa254…a298 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0067, t01=0x017c}
0xa298…a2dc Head {h00=0x0040, h01=0x0050, text=»* PAID STORE AID IN BUFFER * «, t00=0x0068, t01=0x0030}
0xa2dc…a320 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0068, t01=0x0074}
0xa320…a364 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0068, t01=0x00b8}
0xa364…a378 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0068, t01=0x00fc}
0xa378…a382 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0110}
0xa382…a394 Head {h00=0x000e, h01=0x0050, text=»* A2= AID «, t00=0x0068, t01=0x011a}
0xa394…a3ac Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0068, t01=0x012c}
0xa3ac…a3c4 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0068, t01=0x0144}
0xa3c4…a3ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x015c}
0xa3ce…a410 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0068, t01=0x0166}
0xa410…a422 Head {h00=0x000e, h01=0x0050, text=»PAID EQU *«, t00=0x0069, t01=0x0018}
0xa422…a442 Head {h00=0x001c, h01=0x0050, text=» CF A14,PDCCH STORE AID «, t00=0x0069, t01=0x002a}
0xa442…a452 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0069, t01=0x004a}
0xa452…a460 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0069, t01=0x005a}
0xa460…a4a2 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0069, t01=0x0068}
0xa4a2…a4e4 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x0069, t01=0x00aa}
0xa4e4…a526 Head {h00=0x003e, h01=0x0050, text=»* BUFADR STORE BUFFER ADDRESS IN DC-BUFFER *«, t00=0x0069, t01=0x00ec}
0xa526…a568 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x0069, t01=0x012e}
0xa568…a5aa Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0069, t01=0x0170}
0xa5aa…a5be Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x006a, t01=0x0022}
0xa5be…a5c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x0036}
0xa5c8…a5dc Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x006a, t01=0x0040}
0xa5dc…a5f2 Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x006a, t01=0x0054}
0xa5f2…a608 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x006a, t01=0x006a}
0xa608…a61e Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x006a, t01=0x0080}
0xa61e…a634 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x006a, t01=0x0096}
0xa634…a64a Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x006a, t01=0x00ac}
0xa64a…a660 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x006a, t01=0x00c2}
0xa660…a678 Head {h00=0x0014, h01=0x0050, text=»* A10= RESERVED «, t00=0x006a, t01=0x00d8}
0xa678…a690 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x006a, t01=0x00f0}
0xa690…a6a8 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x006a, t01=0x0108}
0xa6a8…a6c0 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x006a, t01=0x0120}
0xa6c0…a6ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x0138}
0xa6ca…a70c Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x006a, t01=0x0142}
0xa70c…a720 Head {h00=0x0010, h01=0x0050, text=»BUFADR EQU *«, t00=0x006a, t01=0x0184}
0xa720…a740 Head {h00=0x001c, h01=0x0050, text=» LDR A2,A1 GET REL. POS.«, t00=0x006b, t01=0x0008}
0xa740…a752 Head {h00=0x000e, h01=0x0050, text=» SRL A2,6 «, t00=0x006b, t01=0x0028}
0xa752…a766 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x006b, t01=0x003a}
0xa766…a790 Head {h00=0x0026, h01=0x0050, text=» LC A2,CONADR,A2 CONVERT TO ASCII «, t00=0x006b, t01=0x004e}
0xa790…a7b8 Head {h00=0x0024, h01=0x0050, text=» CF A14,PDCCH STORE IN DC-BUFFER«, t00=0x006b, t01=0x0078}
0xa7b8…a7d8 Head {h00=0x001c, h01=0x0050, text=» LDR A2,A1 GET REL. POS.«, t00=0x006b, t01=0x00a0}
0xa7d8…a7ec Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x006b, t01=0x00c0}
0xa7ec…a816 Head {h00=0x0026, h01=0x0050, text=» LC A2,CONADR,A2 CONVERT TO ASCII «, t00=0x006b, t01=0x00d4}
0xa816…a83e Head {h00=0x0024, h01=0x0050, text=» CF A14,PDCCH STORE IN DC-BUFFER«, t00=0x006b, t01=0x00fe}
0xa83e…a84e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006b, t01=0x0126}
0xa84e…a85c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006b, t01=0x0136}
0xa85c…a8a0 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x006b, t01=0x0144}
0xa8a0…a8e4 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x006b, t01=0x0188}
0xa8e4…a928 Head {h00=0x0040, h01=0x0050, text=»* RESMDT RESET ALL MDT-BITS IN ATTRIBUTES *«, t00=0x006c, t01=0x003c}
0xa928…a96c Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x006c, t01=0x0080}
0xa96c…a9b0 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x006c, t01=0x00c4}
0xa9b0…a9c4 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x006c, t01=0x0108}
0xa9c4…a9ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x011c}
0xa9ce…a9e2 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x006c, t01=0x0126}
0xa9e2…aa06 Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x006c, t01=0x013a}
0xaa06…aa1c Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x006c, t01=0x015e}
0xaa1c…aa32 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x006c, t01=0x0174}
0xaa32…aa48 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x006c, t01=0x018a}
0xaa48…aa5e Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x006d, t01=0x0010}
0xaa5e…aa74 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x006d, t01=0x0026}
0xaa74…aa8c Head {h00=0x0014, h01=0x0050, text=»* A10= RESERVED «, t00=0x006d, t01=0x003c}
0xaa8c…aaac Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x006d, t01=0x0054}
0xaaac…aac4 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x006d, t01=0x0074}
0xaac4…aadc Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x006d, t01=0x008c}
0xaadc…aae6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x00a4}
0xaae6…ab2c Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x006d, t01=0x00ae}
0xab2c…ab40 Head {h00=0x0010, h01=0x0050, text=»RESMDT EQU *«, t00=0x006d, t01=0x00f4}
0xab40…ab64 Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 FIRST SCREEN POS. «, t00=0x006d, t01=0x0108}
0xab64…ab7a Head {h00=0x0012, h01=0x0050, text=» LDKL A3,BVDU «, t00=0x006d, t01=0x012c}
0xab7a…ab8e Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x006d, t01=0x0142}
0xab8e…aba2 Head {h00=0x0010, h01=0x0050, text=»RESM10 EQU *«, t00=0x006d, t01=0x0156}
0xaba2…abc4 Head {h00=0x001e, h01=0x0050, text=» CWK A1,LBVDU ALL SCANNED?«, t00=0x006d, t01=0x016a}
0xabc4…abde Head {h00=0x0016, h01=0x0050, text=» RF(NL) RESM90 YES«, t00=0x006d, t01=0x018c}
0xabde…abfa Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x006e, t01=0x0016}
0xabfa…ac1a Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8080 ATTRIBUTE?«, t00=0x006e, t01=0x0032}
0xac1a…ac32 Head {h00=0x0014, h01=0x0050, text=» RF(L) RESM20 NO«, t00=0x006e, t01=0x0052}
0xac32…ac54 Head {h00=0x001e, h01=0x0050, text=» ANK A2,/FE RESET MDT-BIT «, t00=0x006e, t01=0x006a}
0xac54…ac6e Head {h00=0x0016, h01=0x0050, text=» SCR A2,A3 RESTORE«, t00=0x006e, t01=0x008c}
0xac6e…ac82 Head {h00=0x0010, h01=0x0050, text=»RESM20 EQU *«, t00=0x006e, t01=0x00a6}
0xac82…ac94 Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x006e, t01=0x00ba}
0xac94…aca6 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x006e, t01=0x00cc}
0xaca6…acb8 Head {h00=0x000e, h01=0x0050, text=» RB RESM10«, t00=0x006e, t01=0x00de}
0xacb8…accc Head {h00=0x0010, h01=0x0050, text=»RESM90 EQU *«, t00=0x006e, t01=0x00f0}
0xaccc…acdc Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006e, t01=0x0104}
0xacdc…acea Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006e, t01=0x0114}
0xacea…ad2a Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x006e, t01=0x0122}
0xad2a…ad6a Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x006e, t01=0x0162}
0xad6a…ada0 Head {h00=0x0032, h01=0x0050, text=»* P1WCC PROCESS WCC BEFORE UPDATE«, t00=0x006f, t01=0x0012}
0xada0…ade0 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x006f, t01=0x0048}
0xade0…ae20 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x006f, t01=0x0088}
0xae20…ae34 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x006f, t01=0x00c8}
0xae34…ae3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x00dc}
0xae3e…ae52 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x006f, t01=0x00e6}
0xae52…ae68 Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x006f, t01=0x00fa}
0xae68…ae7e Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x006f, t01=0x0110}
0xae7e…ae94 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x006f, t01=0x0126}
0xae94…aeaa Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x006f, t01=0x013c}
0xaeaa…aec0 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x006f, t01=0x0152}
0xaec0…aed6 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x006f, t01=0x0168}
0xaed6…aeee Head {h00=0x0014, h01=0x0050, text=»* A10= RESERVED «, t00=0x006f, t01=0x017e}
0xaeee…af0e Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0070, t01=0x0008}
0xaf0e…af26 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0070, t01=0x0028}
0xaf26…af3e Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0070, t01=0x0040}
0xaf3e…af48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0058}
0xaf48…af84 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0070, t01=0x0062}
0xaf84…af98 Head {h00=0x0010, h01=0x0050, text=»P1WCC EQU * «, t00=0x0070, t01=0x009e}
0xaf98…afba Head {h00=0x001e, h01=0x0050, text=» LC A2,CONATT,A2 IN EBCDIC«, t00=0x0070, t01=0x00b2}
0xafba…afd6 Head {h00=0x0018, h01=0x0050, text=» ST A2,WCC,A11 SAVE «, t00=0x0070, t01=0x00d4}
0xafd6…aff8 Head {h00=0x001e, h01=0x0050, text=» ANK A2,1 RESET MDT-BITS? «, t00=0x0070, t01=0x00f0}
0xaff8…b010 Head {h00=0x0014, h01=0x0050, text=» RF(Z) P1W900 NO«, t00=0x0070, t01=0x0112}
0xb010…b03a Head {h00=0x0026, h01=0x0050, text=» CF A14,RESMDT RESET ALL MDT-BITS «, t00=0x0070, t01=0x012a}
0xb03a…b04e Head {h00=0x0010, h01=0x0050, text=»P1W900 EQU *«, t00=0x0070, t01=0x0154}
0xb04e…b05e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0070, t01=0x0168}
0xb05e…b06c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0070, t01=0x0178}
0xb06c…b0ae Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0070, t01=0x0186}
0xb0ae…b0f0 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0071, t01=0x0038}
0xb0f0…b132 Head {h00=0x003e, h01=0x0050, text=»* P2WCC TAKE CARE OF WCC AFTER UPDATE * «, t00=0x0071, t01=0x007a}
0xb132…b174 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0071, t01=0x00bc}
0xb174…b1b6 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0071, t01=0x00fe}
0xb1b6…b1ca Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0071, t01=0x0140}
0xb1ca…b1d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x0154}
0xb1d4…b1f4 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0071, t01=0x015e}
0xb1f4…b20c Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0071, t01=0x017e}
0xb20c…b224 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0072, t01=0x0008}
0xb224…b22e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x0020}
0xb22e…b270 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0072, t01=0x002a}
0xb270…b284 Head {h00=0x0010, h01=0x0050, text=»P2WCC EQU * «, t00=0x0072, t01=0x006c}
0xb284…b2aa Head {h00=0x0022, h01=0x0050, text=» CF A14,SAVE2 KEEP IT AWAY =4 «, t00=0x0072, t01=0x0080}
0xb2aa…b2c6 Head {h00=0x0018, h01=0x0050, text=» LD A3,WCC,A11 . =4 «, t00=0x0072, t01=0x00a6}
0xb2c6…b2e4 Head {h00=0x001a, h01=0x0050, text=» LC A4,TCT01,A11 . =6 «, t00=0x0072, t01=0x00c2}
0xb2e4…b302 Head {h00=0x001a, h01=0x0050, text=» CCK A4,VDUCOD VDU? =6«, t00=0x0072, t01=0x00e0}
0xb302…b328 Head {h00=0x0022, h01=0x0050, text=» RF(NE) P2W100 NO! NO SOUND =6«, t00=0x0072, t01=0x00fe}
0xb328…b340 Head {h00=0x0014, h01=0x0050, text=» LDR A7,A3 . =4 «, t00=0x0072, t01=0x0124}
0xb340…b358 Head {h00=0x0014, h01=0x0050, text=» ANK A7,4 SOUND?«, t00=0x0072, t01=0x013c}
0xb358…b370 Head {h00=0x0014, h01=0x0050, text=» RF(Z) P2W100 NO«, t00=0x0072, t01=0x0154}
0xb370…b38c Head {h00=0x0018, h01=0x0050, text=» CF A14,SOUND SOUND «, t00=0x0072, t01=0x016c}
0xb38c…b3a0 Head {h00=0x0010, h01=0x0050, text=»P2W100 EQU *«, t00=0x0072, t01=0x0188}
0xb3a0…b3ba Head {h00=0x0016, h01=0x0050, text=» ANK A3,8 COPY? =4«, t00=0x0073, t01=0x000c}
0xb3ba…b3d2 Head {h00=0x0014, h01=0x0050, text=» RF(Z) P2W300 NO«, t00=0x0073, t01=0x0026}
0xb3d2…b3f0 Head {h00=0x001a, h01=0x0050, text=» CCK A4,VDUCOD VDU? =4«, t00=0x0073, t01=0x003e}
0xb3f0…b414 Head {h00=0x0020, h01=0x0050, text=» RF(NE) P2W200 NO PRINTER =4«, t00=0x0073, t01=0x005c}
0xb414…b42e Head {h00=0x0016, h01=0x0050, text=» CF A14,COPY COPY «, t00=0x0073, t01=0x0080}
0xb42e…b446 Head {h00=0x0014, h01=0x0050, text=» RF P2W300 . =4 «, t00=0x0073, t01=0x009a}
0xb446…b460 Head {h00=0x0016, h01=0x0050, text=»P2W200 EQU * . =4 «, t00=0x0073, t01=0x00b2}
0xb460…b486 Head {h00=0x0022, h01=0x0050, text=» CF A14,COPP COPY DIRECTLY =4 «, t00=0x0073, t01=0x00cc}
0xb486…b49a Head {h00=0x0010, h01=0x0050, text=»P2W300 EQU *«, t00=0x0073, t01=0x00f2}
0xb49a…b4c0 Head {h00=0x0022, h01=0x0050, text=» CF A14,REST2 TAKE IT BACK =4 «, t00=0x0073, t01=0x0106}
0xb4c0…b4d0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0073, t01=0x012c}
0xb4d0…b4de Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0073, t01=0x013c}
0xb4de…b528 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0073, t01=0x014a}
0xb528…b572 (116, 0, 400) Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x0074, t01=0x0004}
0xb572…b5bc Head {h00=0x0046, h01=0x0050, text=»* SAVE SAVE PACK AND UNPACK INFORMATION *«, t00=0x0074, t01=0x004e}
0xb5bc…b606 Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x0074, t01=0x0098}
0xb606…b650 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0074, t01=0x00e2}
0xb650…b664 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0074, t01=0x012c}
0xb664…b66e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x0140}
0xb66e…b68a Head {h00=0x0018, h01=0x0050, text=»* A1= STACK POINTER «, t00=0x0074, t01=0x014a}
0xb68a…b69e Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0074, t01=0x0166}
0xb69e…b6be Head {h00=0x001c, h01=0x0050, text=»* A3= VDU BUFFER ADDRESS«, t00=0x0074, t01=0x017a}
0xb6be…b6dc Head {h00=0x001a, h01=0x0050, text=»* A4= REL CURSOR POS. «, t00=0x0075, t01=0x000a}
0xb6dc…b6fc Head {h00=0x001c, h01=0x0050, text=»* A5= REL STTRIBUTE POS.«, t00=0x0075, t01=0x0028}
0xb6fc…b71a Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x0075, t01=0x0048}
0xb71a…b73c Head {h00=0x001e, h01=0x0050, text=»* A10= INTERNAL INDICATOR «, t00=0x0075, t01=0x0066}
0xb73c…b75c Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0075, t01=0x0088}
0xb75c…b774 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0075, t01=0x00a8}
0xb774…b78c Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0075, t01=0x00c0}
0xb78c…b796 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x00d8}
0xb796…b7de Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0075, t01=0x00e2}
0xb7de…b7f2 Head {h00=0x0010, h01=0x0050, text=»SAVE1 EQU * «, t00=0x0075, t01=0x012a}
0xb7f2…b81c Head {h00=0x0026, h01=0x0050, text=» LDKL A1,STACK1 GET STACK ADDRESS «, t00=0x0075, t01=0x013e}
0xb81c…b82c Head {h00=0x000c, h01=0x0050, text=» RF SAVE«, t00=0x0075, t01=0x0168}
0xb82c…b840 Head {h00=0x0010, h01=0x0050, text=»SAVE2 EQU * «, t00=0x0075, t01=0x0178}
0xb840…b858 Head {h00=0x0014, h01=0x0050, text=» LDKL A1,STACK2 «, t00=0x0075, t01=0x018c}
0xb858…b86a Head {h00=0x000e, h01=0x0050, text=»SAVE EQU *«, t00=0x0076, t01=0x0014}
0xb86a…b87e Head {h00=0x0010, h01=0x0050, text=» ADR A1,A11 «, t00=0x0076, t01=0x0026}
0xb87e…b890 Head {h00=0x000e, h01=0x0050, text=» STR A2,A1«, t00=0x0076, t01=0x003a}
0xb890…b8a2 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0076, t01=0x004c}
0xb8a2…b8b4 Head {h00=0x000e, h01=0x0050, text=» STR A3,A1«, t00=0x0076, t01=0x005e}
0xb8b4…b8c6 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0076, t01=0x0070}
0xb8c6…b8d8 Head {h00=0x000e, h01=0x0050, text=» STR A4,A1«, t00=0x0076, t01=0x0082}
0xb8d8…b8ea Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0076, t01=0x0094}
0xb8ea…b8fc Head {h00=0x000e, h01=0x0050, text=» STR A5,A1«, t00=0x0076, t01=0x00a6}
0xb8fc…b90e Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0076, t01=0x00b8}
0xb90e…b920 Head {h00=0x000e, h01=0x0050, text=» STR A6,A1«, t00=0x0076, t01=0x00ca}
0xb920…b932 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0076, t01=0x00dc}
0xb932…b944 Head {h00=0x000e, h01=0x0050, text=» STR A7,A1«, t00=0x0076, t01=0x00ee}
0xb944…b956 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0076, t01=0x0100}
0xb956…b96a Head {h00=0x0010, h01=0x0050, text=» STR A10,A1 «, t00=0x0076, t01=0x0112}
0xb96a…b97a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0076, t01=0x0126}
0xb97a…b988 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0076, t01=0x0136}
0xb988…b9d4 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0076, t01=0x0144}
0xb9d4…ba20 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0076, t01=0x0190}
0xba20…ba6c Head {h00=0x0048, h01=0x0050, text=»* RESTOR RESTORE PACK AND UNPACK INFORMATION * «, t00=0x0077, t01=0x004c}
0xba6c…bab8 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0077, t01=0x0098}
0xbab8…bb04 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0077, t01=0x00e4}
0xbb04…bb18 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0077, t01=0x0130}
0xbb18…bb22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x0144}
0xbb22…bb3e Head {h00=0x0018, h01=0x0050, text=»* A1= STACK POINTER «, t00=0x0077, t01=0x014e}
0xbb3e…bb52 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0077, t01=0x016a}
0xbb52…bb72 Head {h00=0x001c, h01=0x0050, text=»* A3= VDU BUFFER ADDRESS«, t00=0x0077, t01=0x017e}
0xbb72…bb90 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0078, t01=0x000e}
0xbb90…bbb2 Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x0078, t01=0x002c}
0xbbb2…bbd0 Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x0078, t01=0x004e}
0xbbd0…bbe6 Head {h00=0x0012, h01=0x0050, text=»* A7= RESERVED«, t00=0x0078, t01=0x006c}
0xbbe6…bc08 Head {h00=0x001e, h01=0x0050, text=»* A10= INTERNAL INDICATOR «, t00=0x0078, t01=0x0082}
0xbc08…bc28 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0078, t01=0x00a4}
0xbc28…bc40 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0078, t01=0x00c4}
0xbc40…bc58 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0078, t01=0x00dc}
0xbc58…bc62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x00f4}
0xbc62…bcaa Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0078, t01=0x00fe}
0xbcaa…bcbe Head {h00=0x0010, h01=0x0050, text=»REST1 EQU * «, t00=0x0078, t01=0x0146}
0xbcbe…bce8 Head {h00=0x0026, h01=0x0050, text=» LDKL A1,STACK1 GET STACK ADDRESS «, t00=0x0078, t01=0x015a}
0xbce8…bcfa Head {h00=0x000e, h01=0x0050, text=» RF RESTOR«, t00=0x0078, t01=0x0184}
0xbcfa…bd0e Head {h00=0x0010, h01=0x0050, text=»REST2 EQU * «, t00=0x0079, t01=0x0008}
0xbd0e…bd26 Head {h00=0x0014, h01=0x0050, text=» LDKL A1,STACK2 «, t00=0x0079, t01=0x001c}
0xbd26…bd3a Head {h00=0x0010, h01=0x0050, text=»RESTOR EQU *«, t00=0x0079, t01=0x0034}
0xbd3a…bd4e Head {h00=0x0010, h01=0x0050, text=» ADR A1,A11 «, t00=0x0079, t01=0x0048}
0xbd4e…bd62 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A1 «, t00=0x0079, t01=0x005c}
0xbd62…bd74 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0079, t01=0x0070}
0xbd74…bd88 Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A1 «, t00=0x0079, t01=0x0082}
0xbd88…bd9a Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0079, t01=0x0096}
0xbd9a…bdae Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A1 «, t00=0x0079, t01=0x00a8}
0xbdae…bdc0 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0079, t01=0x00bc}
0xbdc0…bdd4 Head {h00=0x0010, h01=0x0050, text=» LDR* A5,A1 «, t00=0x0079, t01=0x00ce}
0xbdd4…bde6 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0079, t01=0x00e2}
0xbde6…bdfa Head {h00=0x0010, h01=0x0050, text=» LDR* A6,A1 «, t00=0x0079, t01=0x00f4}
0xbdfa…be0c Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0079, t01=0x0108}
0xbe0c…be20 Head {h00=0x0010, h01=0x0050, text=» LDR* A7,A1 «, t00=0x0079, t01=0x011a}
0xbe20…be32 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0079, t01=0x012e}
0xbe32…be46 Head {h00=0x0010, h01=0x0050, text=» LDR* A10,A1«, t00=0x0079, t01=0x0140}
0xbe46…be56 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0079, t01=0x0154}
0xbe56…be64 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0079, t01=0x0164}
0xbe64…bea4 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0079, t01=0x0172}
0xbea4…bee4 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x007a, t01=0x0022}
0xbee4…bf24 Head {h00=0x003c, h01=0x0050, text=»* BUFFER POOL * «, t00=0x007a, t01=0x0062}
0xbf24…bf64 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x007a, t01=0x00a2}
0xbf64…bfa4 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x007a, t01=0x00e2}
0xbfa4…bfb8 Head {h00=0x0010, h01=0x0050, text=»BUFFER EQU *«, t00=0x007a, t01=0x0122}
0xbfb8…bfdc Head {h00=0x0020, h01=0x0050, text=» DATA *+2 POINTER FIRST FREE«, t00=0x007a, t01=0x0136}
0xbfdc…bff2 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=1 «, t00=0x007a, t01=0x015a}
0xbff2…c006 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007a, t01=0x0170}
0xc006…c018 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007a, t01=0x0184}
0xc018…c02e Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=2 «, t00=0x007b, t01=0x0008}
0xc02e…c042 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007b, t01=0x001e}
0xc042…c054 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007b, t01=0x0032}
0xc054…c06a Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=3 «, t00=0x007b, t01=0x0044}
0xc06a…c07e Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007b, t01=0x005a}
0xc07e…c090 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007b, t01=0x006e}
0xc090…c0a6 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=4 «, t00=0x007b, t01=0x0080}
0xc0a6…c0ba Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007b, t01=0x0096}
0xc0ba…c0cc Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007b, t01=0x00aa}
0xc0cc…c0e2 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=5 «, t00=0x007b, t01=0x00bc}
0xc0e2…c0f6 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007b, t01=0x00d2}
0xc0f6…c108 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007b, t01=0x00e6}
0xc108…c11e Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=6 «, t00=0x007b, t01=0x00f8}
0xc11e…c132 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007b, t01=0x010e}
0xc132…c144 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007b, t01=0x0122}
0xc144…c15a Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=7 «, t00=0x007b, t01=0x0134}
0xc15a…c16e Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007b, t01=0x014a}
0xc16e…c180 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007b, t01=0x015e}
0xc180…c196 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=8 «, t00=0x007b, t01=0x0170}
0xc196…c1aa Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007b, t01=0x0186}
0xc1aa…c1bc Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007c, t01=0x000a}
0xc1bc…c1d2 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=9 «, t00=0x007c, t01=0x001c}
0xc1d2…c1e6 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007c, t01=0x0032}
0xc1e6…c1f8 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007c, t01=0x0046}
0xc1f8…c20e Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=10«, t00=0x007c, t01=0x0058}
0xc20e…c222 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007c, t01=0x006e}
0xc222…c234 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007c, t01=0x0082}
0xc234…c24a Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=11«, t00=0x007c, t01=0x0094}
0xc24a…c25e Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007c, t01=0x00aa}
0xc25e…c270 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007c, t01=0x00be}
0xc270…c286 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=12«, t00=0x007c, t01=0x00d0}
0xc286…c29a Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007c, t01=0x00e6}
0xc29a…c2ac Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007c, t01=0x00fa}
0xc2ac…c2c2 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=13«, t00=0x007c, t01=0x010c}
0xc2c2…c2d6 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007c, t01=0x0122}
0xc2d6…c2e8 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007c, t01=0x0136}
0xc2e8…c2fe Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=14«, t00=0x007c, t01=0x0148}
0xc2fe…c312 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007c, t01=0x015e}
0xc312…c324 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007c, t01=0x0172}
0xc324…c33a Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=15«, t00=0x007c, t01=0x0184}
0xc33a…c34e Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007d, t01=0x000a}
0xc34e…c360 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007d, t01=0x001e}
0xc360…c376 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=16«, t00=0x007d, t01=0x0030}
0xc376…c38a Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007d, t01=0x0046}
0xc38a…c39c Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007d, t01=0x005a}
0xc39c…c3b2 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=17«, t00=0x007d, t01=0x006c}
0xc3b2…c3c6 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007d, t01=0x0082}
0xc3c6…c3d8 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007d, t01=0x0096}
0xc3d8…c3ee Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=18«, t00=0x007d, t01=0x00a8}
0xc3ee…c402 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007d, t01=0x00be}
0xc402…c414 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007d, t01=0x00d2}
0xc414…c42a Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=19«, t00=0x007d, t01=0x00e4}
0xc42a…c43e Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007d, t01=0x00fa}
0xc43e…c450 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007d, t01=0x010e}
0xc450…c466 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=20«, t00=0x007d, t01=0x0120}
0xc466…c47a Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007d, t01=0x0136}
0xc47a…c48c Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007d, t01=0x014a}
0xc48c…c4a2 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=21«, t00=0x007d, t01=0x015c}
0xc4a2…c4b6 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007d, t01=0x0172}
0xc4b6…c4c8 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007d, t01=0x0186}
0xc4c8…c4de Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=22«, t00=0x007e, t01=0x0008}
0xc4de…c4f2 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007e, t01=0x001e}
0xc4f2…c504 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007e, t01=0x0032}
0xc504…c51a Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=23«, t00=0x007e, t01=0x0044}
0xc51a…c52e Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007e, t01=0x005a}
0xc52e…c540 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007e, t01=0x006e}
0xc540…c556 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=24«, t00=0x007e, t01=0x0080}
0xc556…c56a Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007e, t01=0x0096}
0xc56a…c57c Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007e, t01=0x00aa}
0xc57c…c592 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=25«, t00=0x007e, t01=0x00bc}
0xc592…c5a6 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007e, t01=0x00d2}
0xc5a6…c5b8 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007e, t01=0x00e6}
0xc5b8…c5ce Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=26«, t00=0x007e, t01=0x00f8}
0xc5ce…c5e2 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007e, t01=0x010e}
0xc5e2…c5f4 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007e, t01=0x0122}
0xc5f4…c60a Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=27«, t00=0x007e, t01=0x0134}
0xc60a…c61e Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007e, t01=0x014a}
0xc61e…c630 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007e, t01=0x015e}
0xc630…c646 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=28«, t00=0x007e, t01=0x0170}
0xc646…c65a Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007e, t01=0x0186}
0xc65a…c66c Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007f, t01=0x000a}
0xc66c…c682 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=29«, t00=0x007f, t01=0x001c}
0xc682…c696 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007f, t01=0x0032}
0xc696…c6a8 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007f, t01=0x0046}
0xc6a8…c6be Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=30«, t00=0x007f, t01=0x0058}
0xc6be…c6d2 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007f, t01=0x006e}
0xc6d2…c6e4 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007f, t01=0x0082}
0xc6e4…c6fa Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=31«, t00=0x007f, t01=0x0094}
0xc6fa…c70e Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007f, t01=0x00aa}
0xc70e…c720 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007f, t01=0x00be}
0xc720…c736 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=32«, t00=0x007f, t01=0x00d0}
0xc736…c74a Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007f, t01=0x00e6}
0xc74a…c75c Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007f, t01=0x00fa}
0xc75c…c768 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007f, t01=0x010c}
0xc768…c778 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007f, t01=0x0118}
0xc778…c78a Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007f, t01=0x0128}
0xc78a…c798 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007f, t01=0x013a}
0xc798…c7d8 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x007f, t01=0x0148}
0xc7d8…c818 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x007f, t01=0x0188}
0xc818…c858 Head {h00=0x003c, h01=0x0050, text=»* GETBUF GET BUFFER * «, t00=0x0080, t01=0x0038}
0xc858…c898 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0080, t01=0x0078}
0xc898…c8d8 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0080, t01=0x00b8}
0xc8d8…c8ec Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0080, t01=0x00f8}
0xc8ec…c8f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x010c}
0xc8f6…c916 Head {h00=0x001c, h01=0x0050, text=»* A8= DC-BUFFER ADDRESS «, t00=0x0080, t01=0x0116}
0xc916…c936 Head {h00=0x001c, h01=0x0050, text=»* A9= INDEX IN DC-BUFFER«, t00=0x0080, t01=0x0136}
0xc936…c94e Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0080, t01=0x0156}
0xc94e…c96c Head {h00=0x001a, h01=0x0050, text=»* A12= BUFFER ADDRESS «, t00=0x0080, t01=0x016e}
0xc96c…c984 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0080, t01=0x018c}
0xc984…c98e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x0014}
0xc98e…c9ce Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0081, t01=0x001e}
0xc9ce…c9e2 Head {h00=0x0010, h01=0x0050, text=»GETBUF EQU *«, t00=0x0081, t01=0x005e}
0xc9e2…c9fa Head {h00=0x0014, h01=0x0050, text=» LDKL A7,BUFFER «, t00=0x0081, t01=0x0072}
0xc9fa…ca0e Head {h00=0x0010, h01=0x0050, text=»GETB10 EQU *«, t00=0x0081, t01=0x008a}
0xca0e…ca22 Head {h00=0x0010, h01=0x0050, text=» LDR* A8,A7 «, t00=0x0081, t01=0x009e}
0xca22…ca44 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) GETB90 BUFFER FREE«, t00=0x0081, t01=0x00b2}
0xca44…ca50 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0081, t01=0x00d4}
0xca50…ca6c Head {h00=0x0018, h01=0x0050, text=» DATA 0 SWITCH TASK «, t00=0x0081, t01=0x00e0}
0xca6c…ca7e Head {h00=0x000e, h01=0x0050, text=» RB GETB10«, t00=0x0081, t01=0x00fc}
0xca7e…ca92 Head {h00=0x0010, h01=0x0050, text=»GETB90 EQU *«, t00=0x0081, t01=0x010e}
0xca92…caa6 Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A8 «, t00=0x0081, t01=0x0122}
0xcaa6…cab8 Head {h00=0x000e, h01=0x0050, text=» STR A1,A7«, t00=0x0081, t01=0x0136}
0xcab8…caca Head {h00=0x000e, h01=0x0050, text=» ADKL A8,2«, t00=0x0081, t01=0x0148}
0xcaca…cade Head {h00=0x0010, h01=0x0050, text=» LDR A12,A8 «, t00=0x0081, t01=0x015a}
0xcade…caf0 Head {h00=0x000e, h01=0x0050, text=» SUR A9,A9«, t00=0x0081, t01=0x016e}
0xcaf0…cb00 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0081, t01=0x0180}
0xcb00…cb0e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0081, t01=0x0190}
0xcb0e…cb50 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0082, t01=0x000e}
0xcb50…cb92 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0082, t01=0x0050}
0xcb92…cbd4 Head {h00=0x003e, h01=0x0050, text=»* RELBUF RELEASE BUFFER * «, t00=0x0082, t01=0x0092}
0xcbd4…cc16 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0082, t01=0x00d4}
0xcc16…cc58 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0082, t01=0x0116}
0xcc58…cc6c Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0082, t01=0x0158}
0xcc6c…cc76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x016c}
0xcc76…cc92 Head {h00=0x0018, h01=0x0050, text=»* A8= BUFFER ADDRESS«, t00=0x0082, t01=0x0176}
0xcc92…ccaa (131, 2, 396) Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0083, t01=0x0004}
0xccaa…ccc2 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0083, t01=0x001c}
0xccc2…cccc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x0034}
0xcccc…cd0e Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0083, t01=0x003e}
0xcd0e…cd22 Head {h00=0x0010, h01=0x0050, text=»RELBUF EQU *«, t00=0x0083, t01=0x0080}
0xcd22…cd3a Head {h00=0x0014, h01=0x0050, text=» LDKL A7,BUFFER «, t00=0x0083, t01=0x0094}
0xcd3a…cd5a Head {h00=0x001c, h01=0x0050, text=» SUKL A8,2 POINT TO LINK«, t00=0x0083, t01=0x00ac}
0xcd5a…cd6e Head {h00=0x0010, h01=0x0050, text=»RELB10 EQU *«, t00=0x0083, t01=0x00cc}
0xcd6e…cd82 Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A7 «, t00=0x0083, t01=0x00e0}
0xcd82…cd98 Head {h00=0x0012, h01=0x0050, text=» RF(Z) RELB90 «, t00=0x0083, t01=0x00f4}
0xcd98…cdaa Head {h00=0x000e, h01=0x0050, text=» LDR A7,A1«, t00=0x0083, t01=0x010a}
0xcdaa…cdbc Head {h00=0x000e, h01=0x0050, text=» RB RELB10«, t00=0x0083, t01=0x011c}
0xcdbc…cdd0 Head {h00=0x0010, h01=0x0050, text=»RELB90 EQU *«, t00=0x0083, t01=0x012e}
0xcdd0…cde2 Head {h00=0x000e, h01=0x0050, text=» STR A8,A7«, t00=0x0083, t01=0x0142}
0xcde2…cdf2 Head {h00=0x000c, h01=0x0050, text=» CMR A8 «, t00=0x0083, t01=0x0154}
0xcdf2…ce02 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0083, t01=0x0164}
0xce02…ce0a Head {h00=0x0004, h01=0x0050, t00=0x0083, t01=0x0174}
0xce0a…ce16 Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0083, t01=0x017c}
0xce16…ce1a Head {h00=0x4004, h01=0x0000}
0xce1a…ce1e 00 83 01 88 ┆ ┆
0xce1e…ce26 (132, 1, 8) 20 04 00 00 00 84 00 04 ┆ ┆