|
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: 52502 (0xcd16)
Notes: pts_type(SC)
Names: »PAD.SC«
└─⟦928b1fd3e⟧ Bits:30009671 Philips computer tape "600131"
└─⟦this⟧ »UPDATE/PAD.SC«
IDENT PAD REL 11.0 DK 81-10-11 870150541100 =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 0 X:K EQU 2 NUMBER OF BUFFERS (1-32) BUFFNR EQU 02 X:L EQU 1000 MAX BUFFER SIZE IN WORDS BUFFL EQU 1150 X:M EQU 0 COPY COMMAND INCLUDED IF:=1 COPCMD EQU 1 X:N EQU 1 EBCDIC CHAR IF:=1 EBCDIC EQU 1 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 ADK A4,1 ADK A3,1 RB PT400 PT500 EQU * ANK A2,/20 PROTECTED? RB(NZ) PT400 YES 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 EBCDIC=1 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 EBCDIC=1 * EBCDIC-ASCII CONVERSION DELETED PR. 8625,DK* 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 A1,WCC,A11 LDR A7,A1 ANK A7,4 SOUND? RF(Z) P2W100 NO CF A14,SOUND SOUND P2W100 EQU * ANK A1,8 COPY? RF(Z) P2W300 NO LC A1,TCT01,A11 . =4 CCK A1,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…0034 (0, 0, 400) Head {h00=0x0030, h01=0x0050, text=» IDENT PAD REL 11.0 DK 81-10-11 870150541100«, t00=0x0000, t01=0x0004}
0x0034…003c Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0038}
0x003c…005a Head {h00=0x001a, h01=0x0050, text=» =4 COPY TO PRINTER «, t00=0x0000, t01=0x0040}
0x005a…006e Head {h00=0x0010, h01=0x0050, text=» 81-05-06 «, t00=0x0000, t01=0x005e}
0x006e…008a Head {h00=0x0018, h01=0x0050, text=» =3, MISSING ITEM «, t00=0x0000, t01=0x0072}
0x008a…009e Head {h00=0x0010, h01=0x0050, text=» 81-01-26 «, t00=0x0000, t01=0x008e}
0x009e…00b6 Head {h00=0x0014, h01=0x0050, text=» =2, SAVE REG.«, t00=0x0000, t01=0x00a2}
0x00b6…00ca Head {h00=0x0010, h01=0x0050, text=» 81-01-26 «, t00=0x0000, t01=0x00ba}
0x00ca…00ea Head {h00=0x001c, h01=0x0050, text=» =1, RA ON EUQ ADDRESS«, t00=0x0000, t01=0x00ce}
0x00ea…00fe Head {h00=0x0010, h01=0x0050, text=» 81-01-26 «, t00=0x0000, t01=0x00ee}
0x00fe…0144 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0000, t01=0x0102}
0x0144…018a Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0000, t01=0x0148}
0x018a…01d0 Head {h00=0x0042, h01=0x0050, text=»* MODULE PAD * «, t00=0x0000, t01=0x018e}
0x01d0…0216 Head {h00=0x0042, h01=0x0050, text=»* MODULE HANDLING THE PACKING AND * «, t00=0x0001, t01=0x0044}
0x0216…025c Head {h00=0x0042, h01=0x0050, text=»* UNPACKING OF THE DCBUFFER. THE VDU * «, t00=0x0001, t01=0x008a}
0x025c…02a2 Head {h00=0x0042, h01=0x0050, text=»* BUFFER IS UPDATED * «, t00=0x0001, t01=0x00d0}
0x02a2…02e8 Head {h00=0x0042, h01=0x0050, text=»* (EMULATION 3270 SNA/SDLC, BSC) * «, t00=0x0001, t01=0x0116}
0x02e8…032e Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0001, t01=0x015c}
0x032e…0374 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0002, t01=0x0012}
0x0374…0382 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0058}
0x0382…03cc Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0002, t01=0x0066}
0x03cc…03d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00b0}
0x03d6…03f0 Head {h00=0x0016, h01=0x0050, text=»* LIST OF ROUTINES«, t00=0x0002, t01=0x00ba}
0x03f0…03fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00d4}
0x03fa…043e Head {h00=0x0040, h01=0x0050, text=»* PACK PACK MODIFIED VDU-FIELDS INTO DC-BUFFER «, t00=0x0002, t01=0x00de}
0x043e…047a Head {h00=0x0038, h01=0x0050, text=»* UNPACK UNPACK DC-BUFFER AND UPDATE VDU «, t00=0x0002, t01=0x0122}
0x047a…04a6 Head {h00=0x0028, h01=0x0050, text=»* RETTAB RETURN ADDRESSES«, t00=0x0002, t01=0x015e}
0x04a6…04d2 Head {h00=0x0028, h01=0x0050, text=»* UNPCOM UNPACK COMMANDS «, t00=0x0002, t01=0x018a}
0x04d2…04fc Head {h00=0x0026, h01=0x0050, text=»* UNPORD UNPACK ORDERS «, t00=0x0003, t01=0x0026}
0x04fc…0524 Head {h00=0x0024, h01=0x0050, text=»* ORDTAB ORDER TABLE «, t00=0x0003, t01=0x0050}
0x0524…054c Head {h00=0x0024, h01=0x0050, text=»* SF START FIELD «, t00=0x0003, t01=0x0078}
0x054c…057a Head {h00=0x002a, h01=0x0050, text=»* SBA SET BUFFER ADDRESS«, t00=0x0003, t01=0x00a0}
0x057a…05a4 Head {h00=0x0026, h01=0x0050, text=»* IC INSERT CURSOR «, t00=0x0003, t01=0x00ce}
0x05a4…05cc Head {h00=0x0024, h01=0x0050, text=»* PT PROGRAM TAB.«, t00=0x0003, t01=0x00f8}
0x05cc…05fa Head {h00=0x002a, h01=0x0050, text=»* RA REPEAT TO ADDRESS «, t00=0x0003, t01=0x0120}
0x05fa…062e Head {h00=0x0030, h01=0x0050, text=»* EUA ERASE UNPRO. TO ADDRESS «, t00=0x0003, t01=0x014e}
0x062e…065a Head {h00=0x0028, h01=0x0050, text=»* CHAR < /20 BUT NOT ORDERS«, t00=0x0003, t01=0x0182}
0x065a…0694 Head {h00=0x0036, h01=0x0050, text=»* PACKSY PACK DC-BUFFER IN SYSTEM MODE «, t00=0x0004, t01=0x001e}
0x0694…06d0 Head {h00=0x0038, h01=0x0050, text=»* UNPSYS UNPACK DC-BUFFER IN SYSTEM MODE «, t00=0x0004, t01=0x0058}
0x06d0…0706 Head {h00=0x0032, h01=0x0050, text=»* GETNXT GET AND CHECK NEXT BUFFER «, t00=0x0004, t01=0x0094}
0x0706…0742 Head {h00=0x0038, h01=0x0050, text=»* PUTCHA PUT CHAR. IN DC-BUFFER AND WRITE«, t00=0x0004, t01=0x00ca}
0x0742…0772 Head {h00=0x002c, h01=0x0050, text=»* PDCCH PUT CHAR. IN BUFFER «, t00=0x0004, t01=0x0106}
0x0772…07a2 Head {h00=0x002c, h01=0x0050, text=»* GDCCH GET CHAR. IN BUFFER «, t00=0x0004, t01=0x0136}
0x07a2…07d2 Head {h00=0x002c, h01=0x0050, text=»* PAID STORE AID IN BUFFER «, t00=0x0004, t01=0x0166}
0x07d2…0810 Head {h00=0x003a, h01=0x0050, text=»* BUFADR STORE BUFFER ADDRESS IN DC-BUFFER «, t00=0x0005, t01=0x0008}
0x0810…084c Head {h00=0x0038, h01=0x0050, text=»* RESMDT RESET ALL MDT-BITS IN ATTRIBUTES«, t00=0x0005, t01=0x0046}
0x084c…0882 Head {h00=0x0032, h01=0x0050, text=»* P1WCC PROCESS WCC BEFORE UPDATE «, t00=0x0005, t01=0x0082}
0x0882…08bc Head {h00=0x0036, h01=0x0050, text=»* P2WCC TAKE CARE OF WCC AFTER UPDATE «, t00=0x0005, t01=0x00b8}
0x08bc…08f8 Head {h00=0x0038, h01=0x0050, text=»* SAVE SAVE PACK AND UNPACK INFORMATION«, t00=0x0005, t01=0x00f2}
0x08f8…0938 Head {h00=0x003c, h01=0x0050, text=»* RESTOR RESTORE PACK AND UNPACK INFORMATION «, t00=0x0005, t01=0x012e}
0x0938…0960 Head {h00=0x0024, h01=0x0050, text=»* BUFFER BUFFER POOL «, t00=0x0005, t01=0x016e}
0x0960…0986 Head {h00=0x0022, h01=0x0050, text=»* GETBUF GET BUFFER«, t00=0x0006, t01=0x0008}
0x0986…09b0 Head {h00=0x0026, h01=0x0050, text=»* RELBUF RELEASE BUFFER«, t00=0x0006, t01=0x002e}
0x09b0…09ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0058}
0x09ba…0a04 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0006, t01=0x0062}
0x0a04…0a12 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x00ac}
0x0a12…0a58 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0006, t01=0x00ba}
0x0a58…0a9e Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0006, t01=0x0100}
0x0a9e…0ae4 Head {h00=0x0042, h01=0x0050, text=»* ENTRY POINTS * «, t00=0x0006, t01=0x0146}
0x0ae4…0b2a Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0006, t01=0x018c}
0x0b2a…0b70 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0007, t01=0x0042}
0x0b70…0b78 Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x0088}
0x0b78…0bac Head {h00=0x0030, h01=0x0050, text=» ENTRY PACK PACK MOD. FIELDS INTO DC BUFFER «, t00=0x0007, t01=0x0090}
0x0bac…0be2 Head {h00=0x0032, h01=0x0050, text=» ENTRY UNPACK UNPACK DC BUFFER AND UPDATE VDU «, t00=0x0007, t01=0x00c4}
0x0be2…0c18 Head {h00=0x0032, h01=0x0050, text=» ENTRY UNPSYS UNPACK DC BUFFER IN SYSTEM MODE «, t00=0x0007, t01=0x00fa}
0x0c18…0c3c Head {h00=0x0020, h01=0x0050, text=» ENTRY GETBUF GET DC BUFFER «, t00=0x0007, t01=0x0130}
0x0c3c…0c64 Head {h00=0x0024, h01=0x0050, text=» ENTRY RELBUF RELEASE DC BUFFER «, t00=0x0007, t01=0x0154}
0x0c64…0c94 Head {h00=0x002c, h01=0x0050, text=» ENTRY PAID STORE AID CODE IN DC BUFFER «, t00=0x0007, t01=0x017c}
0x0c94…0cca Head {h00=0x0032, h01=0x0050, text=» ENTRY BUFADR SORE BUFFER ADDRESS IN DC BUFFER«, t00=0x0008, t01=0x001c}
0x0cca…0cfe Head {h00=0x0030, h01=0x0050, text=» ENTRY PACKSY PACK DC BUFFER IN SYSTEM MODE «, t00=0x0008, t01=0x0052}
0x0cfe…0d22 Head {h00=0x0020, h01=0x0050, text=» ENTRY SAVE1 SAVE REGISTERS «, t00=0x0008, t01=0x0086}
0x0d22…0d48 Head {h00=0x0022, h01=0x0050, text=» ENTRY REST1 RESTORE REGISTERS«, t00=0x0008, t01=0x00aa}
0x0d48…0d50 Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x00d0}
0x0d50…0d5e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x00d8}
0x0d5e…0d9a Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0008, t01=0x00e6}
0x0d9a…0dd6 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x0008, t01=0x0122}
0x0dd6…0e12 Head {h00=0x0038, h01=0x0050, text=»* EXTERNAL REFERENCES * «, t00=0x0008, t01=0x015e}
0x0e12…0e4e Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x0009, t01=0x000a}
0x0e4e…0e8a Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0009, t01=0x0046}
0x0e8a…0e92 Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x0082}
0x0e92…0ec6 Head {h00=0x0030, h01=0x0050, text=» EXTRN CONEBC CONVERT ASCII-EBCDIC (CONVER)«, t00=0x0009, t01=0x008a}
0x0ec6…0efa Head {h00=0x0030, h01=0x0050, text=» EXTRN CONASC CONVERT EBCDIC-ASCII (CONVER)«, t00=0x0009, t01=0x00be}
0x0efa…0f28 Head {h00=0x002a, h01=0x0050, text=» EXTRN ERASE ERASE ENTIRE SCREEN (VDU)«, t00=0x0009, t01=0x00f2}
0x0f28…0f60 Head {h00=0x0034, h01=0x0050, text=» EXTRN ERASUA ERASE UNPROTECTED TO ADDRESS (VDU)«, t00=0x0009, t01=0x0120}
0x0f60…0f96 Head {h00=0x0032, h01=0x0050, text=» EXTRN CONORD CONVERT ORDER TO INDEX (CONVER)«, t00=0x0009, t01=0x0158}
0x0f96…0fc8 Head {h00=0x002e, h01=0x0050, text=» EXTRN CONATT CONVERT ATTRIBUTE (CONVER) «, t00=0x0009, t01=0x018e}
0x0fc8…0ffa Head {h00=0x002e, h01=0x0050, text=» EXTRN SCRINF GET SCREEN INFORMATION (VDU)«, t00=0x000a, t01=0x0030}
0x0ffa…1036 Head {h00=0x0038, h01=0x0050, text=» EXTRN ERASUP ERASE UNPROTECTED ENTIRE SCREEN (VDU) «, t00=0x000a, t01=0x0062}
0x1036…1060 Head {h00=0x0026, h01=0x0050, text=» EXTRN COPY LOCAL HARDCOPY (KEYB) «, t00=0x000a, t01=0x009e}
0x1060…108e Head {h00=0x002a, h01=0x0050, text=» EXTRN SOUND SOUND ALARM ON VDU (VDU) «, t00=0x000a, t01=0x00c8}
0x108e…10c4 Head {h00=0x0032, h01=0x0050, text=» EXTRN ATMASB SEARCH ATTRIBUTE BACKWARDS (VDU)«, t00=0x000a, t01=0x00f6}
0x10c4…10fa Head {h00=0x0032, h01=0x0050, text=» EXTRN CONADR CONVERT BUFFER ADDRESS (CONVER)«, t00=0x000a, t01=0x012c}
0x10fa…1128 Head {h00=0x002a, h01=0x0050, text=» EXTRN WRAP CHECK IF WRAP AROUND (VDU)«, t00=0x000a, t01=0x0162}
0x1128…115c Head {h00=0x0030, h01=0x0050, text=» EXTRN STOINF SAVE SCREEN INFORMATION (VDU) «, t00=0x000a, t01=0x0190}
0x115c…1188 Head {h00=0x0028, h01=0x0050, text=» EXTRN LMP4ON INHIBIT LAMP ON (KEYB)«, t00=0x000b, t01=0x0034}
0x1188…11be Head {h00=0x0032, h01=0x0050, text=» EXTRN READNW READ WITH NO WAIT (DCSNA,DCBSC) «, t00=0x000b, t01=0x0060}
0x11be…11ec Head {h00=0x002a, h01=0x0050, text=» EXTRN WAIT SYNCHRONIZE (DCSNA,DCBSC) «, t00=0x000b, t01=0x0096}
0x11ec…1220 Head {h00=0x0030, h01=0x0050, text=» EXTRN DCWRIT WRITE DC BUFFER (DCSNA,DCBSC) «, t00=0x000b, t01=0x00c4}
0x1220…1254 Head {h00=0x0030, h01=0x0050, text=» EXTRN DISMOD DISPLAY MODIFIED FIELDS (VDU) «, t00=0x000b, t01=0x00f8}
0x1254…1286 Head {h00=0x002e, h01=0x0050, text=» EXTRN THRBUF THROW BUFFERS (DCSNA,DCBSC) «, t00=0x000b, t01=0x012c}
0x1286…12b2 Head {h00=0x0028, h01=0x0050, text=» EXTRN NLROUT NEW LINE ROUTINE (VDU)«, t00=0x000b, t01=0x015e}
0x12b2…12d8 Head {h00=0x0022, h01=0x0050, text=» EXTRN LINE WRAP ROUTINE (VDU)«, t00=0x000b, t01=0x018a}
0x12d8…130e Head {h00=0x0032, h01=0x0050, text=» EXTRN LINATT INTERNAL LINEFLAG ROUTINE (VDU) «, t00=0x000c, t01=0x0020}
0x130e…133e Head {h00=0x002c, h01=0x0050, text=» EXTRN LINWRP ANOTHER WRAP ROUTINE (VDU)«, t00=0x000c, t01=0x0056}
0x133e…1368 Head {h00=0x0026, h01=0x0050, text=» EXTRN ERROR ERROR INCATOR (KEYB) «, t00=0x000c, t01=0x0086}
0x1368…139e Head {h00=0x0032, h01=0x0050, text=» EXTRN MATCH MATCH ADDRESS AND TASKID (DSPBSC)«, t00=0x000c, t01=0x00b0}
0x139e…13cc Head {h00=0x002a, h01=0x0050, text=» EXTRN ICSET INTERTASK TIMEOUT (KEYB) «, t00=0x000c, t01=0x00e6}
0x13cc…13f8 Head {h00=0x0028, h01=0x0050, text=» EXTRN ICWRT INTERTASK WRITE (KEYB) «, t00=0x000c, t01=0x0114}
0x13f8…1428 Head {h00=0x002c, h01=0x0050, text=» EXTRN COPP COPY ON PRINTER DIRECTLY =4 «, t00=0x000c, t01=0x0140}
0x1428…1436 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0170}
0x1436…1472 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x000c, t01=0x017e}
0x1472…14ae Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x000d, t01=0x002a}
0x14ae…14ea Head {h00=0x0038, h01=0x0050, text=»* CONDITIONAL ASSEMBLY PARAMETERS * «, t00=0x000d, t01=0x0066}
0x14ea…1526 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x000d, t01=0x00a2}
0x1526…1562 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x000d, t01=0x00de}
0x1562…156a Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x011a}
0x156a…158e Head {h00=0x0020, h01=0x0050, text=»X:A EQU 0 SNA HANDLING IF:=1«, t00=0x000d, t01=0x0122}
0x158e…15a0 Head {h00=0x000e, h01=0x0050, text=»SNA EQU 0 «, t00=0x000d, t01=0x0146}
0x15a0…15ca Head {h00=0x0026, h01=0x0050, text=»X:K EQU 2 NUMBER OF BUFFERS (1-32)«, t00=0x000d, t01=0x0158}
0x15ca…15e0 Head {h00=0x0012, h01=0x0050, text=»BUFFNR EQU 02 «, t00=0x000d, t01=0x0182}
0x15e0…160e Head {h00=0x002a, h01=0x0050, text=»X:L EQU 1000 MAX BUFFER SIZE IN WORDS «, t00=0x000e, t01=0x0008}
0x160e…1624 Head {h00=0x0012, h01=0x0050, text=»BUFFL EQU 1150«, t00=0x000e, t01=0x0036}
0x1624…1652 Head {h00=0x002a, h01=0x0050, text=»X:M EQU 0 COPY COMMAND INCLUDED IF:=1 «, t00=0x000e, t01=0x004c}
0x1652…1666 Head {h00=0x0010, h01=0x0050, text=»COPCMD EQU 1«, t00=0x000e, t01=0x007a}
0x1666…168a Head {h00=0x0020, h01=0x0050, text=»X:N EQU 1 EBCDIC CHAR IF:=1 «, t00=0x000e, t01=0x008e}
0x168a…169e Head {h00=0x0010, h01=0x0050, text=»EBCDIC EQU 1«, t00=0x000e, t01=0x00b2}
0x169e…16cc Head {h00=0x002a, h01=0x0050, text=»X:Z EQU 1 =0,WHOLE,=1 CHAIN,=2 SEGMENT«, t00=0x000e, t01=0x00c6}
0x16cc…16e2 Head {h00=0x0012, h01=0x0050, text=»DISHOW EQU X:Z«, t00=0x000e, t01=0x00f4}
0x16e2…16f0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x010a}
0x16f0…1738 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x000e, t01=0x0118}
0x1738…1780 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x000e, t01=0x0160}
0x1780…17aa Head {h00=0x0026, h01=0x0050, text=»* DECLARATION OF DATA AND EQUATES «, t00=0x000f, t01=0x0018}
0x17aa…17f2 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x000f, t01=0x0042}
0x17f2…183a Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x000f, t01=0x008a}
0x183a…1842 Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x00d2}
0x1842…184c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00da}
0x184c…1874 Head {h00=0x0024, h01=0x0050, text=»* EQUATES FOR ECB HANDLING«, t00=0x000f, t01=0x00e4}
0x1874…187e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x010c}
0x187e…18a0 Head {h00=0x001e, h01=0x0050, text=»ECBBA EQU 2 BUFFER ADDRESS«, t00=0x000f, t01=0x0116}
0x18a0…18c4 Head {h00=0x0020, h01=0x0050, text=»ECBRL EQU 4 REQUESTED LENGTH«, t00=0x000f, t01=0x0138}
0x18c4…18e8 Head {h00=0x0020, h01=0x0050, text=»ECBEL EQU 6 EFFECTIVE LENGTH«, t00=0x000f, t01=0x015c}
0x18e8…1908 Head {h00=0x001c, h01=0x0050, text=»ECBRC EQU 8 RETURN CODE «, t00=0x000f, t01=0x0180}
0x1908…192a Head {h00=0x001e, h01=0x0050, text=»ECBCW EQU 10 CONTROL WORD «, t00=0x0010, t01=0x0010}
0x192a…1934 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0032}
0x1934…194e Head {h00=0x0016, h01=0x0050, text=»* INTERNAL STATUS «, t00=0x0010, t01=0x003c}
0x194e…1958 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0056}
0x1958…1988 Head {h00=0x002c, h01=0x0050, text=»LICREC EQU /2000 LAST IN CHAIN RECEIVED «, t00=0x0010, t01=0x0060}
0x1988…19ae Head {h00=0x0022, h01=0x0050, text=»THROWB EQU /0800 THROW BUFFERS«, t00=0x0010, t01=0x0090}
0x19ae…19d0 Head {h00=0x001e, h01=0x0050, text=»NEWCH EQU /0400 NEW CHAIN «, t00=0x0010, t01=0x00b6}
0x19d0…19fc Head {h00=0x0028, h01=0x0050, text=»ATTREC EQU /0002 ATTRIBUTE RECEIVED «, t00=0x0010, t01=0x00d8}
0x19fc…1a26 Head {h00=0x0026, h01=0x0050, text=»PTORD EQU /0001 PT ORDER INDICATOR«, t00=0x0010, t01=0x0104}
0x1a26…1a38 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0010, t01=0x012e}
0x1a38…1a42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0140}
0x1a42…1a5c Head {h00=0x0016, h01=0x0050, text=»* SNA MODES «, t00=0x0010, t01=0x014a}
0x1a5c…1a66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0164}
0x1a66…1a86 Head {h00=0x001c, h01=0x0050, text=»LOCMOD EQU 0 LOCAL MODE «, t00=0x0010, t01=0x016e}
0x1a86…1aa6 Head {h00=0x001c, h01=0x0050, text=»SYSOP EQU 2 SYSTEM MODE «, t00=0x0010, t01=0x018e}
0x1aa6…1ac6 Head {h00=0x001c, h01=0x0050, text=»MYJOB EQU 4 MY JOB MODE «, t00=0x0011, t01=0x001e}
0x1ac6…1ad2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x003e}
0x1ad2…1adc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x004a}
0x1adc…1afe Head {h00=0x001e, h01=0x0050, text=»* TASK IDENTIFICATION CODE«, t00=0x0011, t01=0x0054}
0x1afe…1b08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0076}
0x1b08…1b2c Head {h00=0x0020, h01=0x0050, text=»VDUCOD EQU 'VV' VDU KB TASK «, t00=0x0011, t01=0x0080}
0x1b2c…1b36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00a4}
0x1b36…1b52 Head {h00=0x0018, h01=0x0050, text=»* SPECIAL CHARACTERS«, t00=0x0011, t01=0x00ae}
0x1b52…1b5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00ca}
0x1b5c…1b7a Head {h00=0x001a, h01=0x0050, text=»NULL EQU 0 NULL CHAR. «, t00=0x0011, t01=0x00d4}
0x1b7a…1b9a Head {h00=0x001c, h01=0x0050, text=»SBACH EQU /11 SBA CHAR. «, t00=0x0011, t01=0x00f2}
0x1b9a…1bbe Head {h00=0x0020, h01=0x0050, text=»ESCCHA EQU /1B ESCAPE CHAR. «, t00=0x0011, t01=0x0112}
0x1bbe…1bc8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0136}
0x1bc8…1be2 Head {h00=0x0016, h01=0x0050, text=»* VDU SCREEN SIZE «, t00=0x0011, t01=0x0140}
0x1be2…1bec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x015a}
0x1bec…1c0e Head {h00=0x001e, h01=0x0050, text=»LBVDU EQU 1920 TOTAL SIZE «, t00=0x0011, t01=0x0164}
0x1c0e…1c2e Head {h00=0x001c, h01=0x0050, text=»LLINE EQU 80 LINE LENGTH«, t00=0x0011, t01=0x0186}
0x1c2e…1c38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0016}
0x1c38…1c5c Head {h00=0x0020, h01=0x0050, text=»* BUFFER LINK LENGTH «, t00=0x0012, t01=0x0020}
0x1c5c…1c66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0044}
0x1c66…1c84 Head {h00=0x001a, h01=0x0050, text=»LINK EQU BUFFL+BUFFL+2«, t00=0x0012, t01=0x004e}
0x1c84…1c92 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x006c}
0x1c92…1c9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x007a}
0x1c9c…1cbc Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x0012, t01=0x0084}
0x1cbc…1cd8 Head {h00=0x0018, h01=0x0050, text=»* TERMINAL WORKBLOCK«, t00=0x0012, t01=0x00a4}
0x1cd8…1ce2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00c0}
0x1ce2…1d0a Head {h00=0x0024, h01=0x0050, text=»TCT01 EQU 0 TASK IDENTIFICATION «, t00=0x0012, t01=0x00ca}
0x1d0a…1d30 Head {h00=0x0022, h01=0x0050, text=»BVDU EQU TCT01+2 SCREEN BUFFER«, t00=0x0012, t01=0x00f2}
0x1d30…1d60 Head {h00=0x002c, h01=0x0050, text=»LINFLG EQU BVDU+1920 INTERNAL LINE FLAGS«, t00=0x0012, t01=0x0118}
0x1d60…1d94 Head {h00=0x0030, h01=0x0050, text=»PCURS EQU LINFLG+24 CURSOR ADDRESS , BINARY «, t00=0x0012, t01=0x0148}
0x1d94…1dae Head {h00=0x0016, h01=0x0050, text=»CURATT EQU PCURS+4«, t00=0x0012, t01=0x017c}
0x1dae…1dd8 Head {h00=0x0026, h01=0x0050, text=»WCC EQU CURATT+2 WCC/CCC CHARACTER«, t00=0x0013, t01=0x0008}
0x1dd8…1e02 Head {h00=0x0026, h01=0x0050, text=»KBINH EQU WCC+2 INHIBIT INDICATOR «, t00=0x0013, t01=0x0032}
0x1e02…1e30 Head {h00=0x002a, h01=0x0050, text=»DCLENG EQU KBINH+4 LENGTH OF DC BUFFER«, t00=0x0013, t01=0x005c}
0x1e30…1e66 Head {h00=0x0032, h01=0x0050, text=»CURPOS EQU DCLENG+30 CURSOR POS IN SYSTEM MODE«, t00=0x0013, t01=0x008a}
0x1e66…1e90 Head {h00=0x0026, h01=0x0050, text=»BUFPNT EQU CURPOS+2 BUFFER ADDRESS«, t00=0x0013, t01=0x00c0}
0x1e90…1eb8 Head {h00=0x0024, h01=0x0050, text=»REGI EQU BUFPNT+2 WORK REGISTER «, t00=0x0013, t01=0x00ea}
0x1eb8…1ee0 Head {h00=0x0024, h01=0x0050, text=»STACK1 EQU REGI+2 INTERNAL STACK«, t00=0x0013, t01=0x0112}
0x1ee0…1efc Head {h00=0x0018, h01=0x0050, text=»STACK2 EQU STACK1+14«, t00=0x0013, t01=0x013a}
0x1efc…1f24 Head {h00=0x0024, h01=0x0050, text=»UNPMOD EQU STACK2+14 UNPACK MODE«, t00=0x0013, t01=0x0156}
0x1f24…1f48 Head {h00=0x0020, h01=0x0050, text=»SNAMOD EQU UNPMOD+2 SNA MODE«, t00=0x0013, t01=0x017e}
0x1f48…1f7c Head {h00=0x0030, h01=0x0050, text=»ECBICW EQU SNAMOD+12 ECB INTERTASK WRITE =3 «, t00=0x0014, t01=0x0012}
0x1f7c…1f8a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x0046}
0x1f8a…1fce Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0014, t01=0x0054}
0x1fce…2012 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0014, t01=0x0098}
0x2012…2058 Head {h00=0x0042, h01=0x0050, text=»* PACK PACK MODIFIED VDU-FIELDS INTO DC-BUFFER * «, t00=0x0014, t01=0x00dc}
0x2058…209e Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0014, t01=0x0122}
0x209e…20e4 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0014, t01=0x0168}
0x20e4…20f8 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0015, t01=0x001e}
0x20f8…2102 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0032}
0x2102…2116 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0015, t01=0x003c}
0x2116…213a Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x0015, t01=0x0050}
0x213a…2158 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0015, t01=0x0074}
0x2158…217a Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x0015, t01=0x0092}
0x217a…2196 Head {h00=0x0018, h01=0x0050, text=»* A6= ATTRIBUTE CHAR«, t00=0x0015, t01=0x00b4}
0x2196…21b8 Head {h00=0x001e, h01=0x0050, text=»* A8= ADDRESS IN DC-BUFFER«, t00=0x0015, t01=0x00d0}
0x21b8…21d6 Head {h00=0x001a, h01=0x0050, text=»* A9= DC-BUFFER INDEX «, t00=0x0015, t01=0x00f2}
0x21d6…21f2 Head {h00=0x0018, h01=0x0050, text=»* A10= START ADDRESS«, t00=0x0015, t01=0x0110}
0x21f2…220a Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0015, t01=0x012c}
0x220a…2228 Head {h00=0x001a, h01=0x0050, text=»* A12= BUFFER ADDRESS «, t00=0x0015, t01=0x0144}
0x2228…2240 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0015, t01=0x0162}
0x2240…224a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x017a}
0x224a…228e Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0015, t01=0x0184}
0x228e…22a0 Head {h00=0x000e, h01=0x0050, text=»PACK EQU *«, t00=0x0016, t01=0x0038}
0x22a0…22ce Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x0016, t01=0x004a}
0x22ce…22f2 Head {h00=0x0020, h01=0x0050, text=» LDK A4,0 FIRST SCREEN POS. «, t00=0x0016, t01=0x0078}
0x22f2…2308 Head {h00=0x0012, h01=0x0050, text=» LDKL A3,BVDU «, t00=0x0016, t01=0x009c}
0x2308…231c Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0016, t01=0x00b2}
0x231c…2340 Head {h00=0x0020, h01=0x0050, text=» LDR A10,A4 INITIATE ADDRESS«, t00=0x0016, t01=0x00c6}
0x2340…236c Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x0016, t01=0x00ea}
0x236c…2386 Head {h00=0x0016, h01=0x0050, text=» RF(E) PACK70 YES «, t00=0x0016, t01=0x0116}
0x2386…239a Head {h00=0x0010, h01=0x0050, text=»PACK10 EQU *«, t00=0x0016, t01=0x0130}
0x239a…23b6 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x0016, t01=0x0144}
0x23b6…23d6 Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x0016, t01=0x0160}
0x23d6…23f0 Head {h00=0x0016, h01=0x0050, text=» RF(NL) PACK15 YES«, t00=0x0016, t01=0x0180}
0x23f0…2402 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0017, t01=0x000a}
0x2402…2414 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0017, t01=0x001c}
0x2414…2426 Head {h00=0x000e, h01=0x0050, text=» RB PACK10«, t00=0x0017, t01=0x002e}
0x2426…243a Head {h00=0x0010, h01=0x0050, text=»PACK15 EQU *«, t00=0x0017, t01=0x0040}
0x243a…245c Head {h00=0x001e, h01=0x0050, text=» LDR A10,A4 START ADDRESS «, t00=0x0017, t01=0x0054}
0x245c…246e Head {h00=0x000e, h01=0x0050, text=» RF PACK30«, t00=0x0017, t01=0x0076}
0x246e…2482 Head {h00=0x0010, h01=0x0050, text=»PACK20 EQU *«, t00=0x0017, t01=0x0088}
0x2482…24ac Head {h00=0x0026, h01=0x0050, text=» CF A14,WRAP CHECK IF WRAP AROUND «, t00=0x0017, t01=0x009c}
0x24ac…24cc Head {h00=0x001c, h01=0x0050, text=» CWR A10,A4 ALL SCANNED?«, t00=0x0017, t01=0x00c6}
0x24cc…24e6 Head {h00=0x0016, h01=0x0050, text=» RF(E) PACK80 YES «, t00=0x0017, t01=0x00e6}
0x24e6…24fa Head {h00=0x0010, h01=0x0050, text=»PACK30 EQU *«, t00=0x0017, t01=0x0100}
0x24fa…2516 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x0017, t01=0x0114}
0x2516…2528 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0017, t01=0x0130}
0x2528…253a Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0017, t01=0x0142}
0x253a…255a Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x0017, t01=0x0154}
0x255a…2572 Head {h00=0x0014, h01=0x0050, text=» RB(L) PACK20 NO«, t00=0x0017, t01=0x0174}
0x2572…2594 Head {h00=0x001e, h01=0x0050, text=» ANK A2,1 MODIFIED FIELD? «, t00=0x0017, t01=0x018c}
0x2594…25ae Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PACK50 YES«, t00=0x0018, t01=0x001e}
0x25ae…25c0 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0018, t01=0x0038}
0x25c0…25d2 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0018, t01=0x004a}
0x25d2…25e4 Head {h00=0x000e, h01=0x0050, text=» RB PACK20«, t00=0x0018, t01=0x005c}
0x25e4…25f8 Head {h00=0x0010, h01=0x0050, text=»PACK50 EQU *«, t00=0x0018, t01=0x006e}
0x25f8…261e Head {h00=0x0022, h01=0x0050, text=» LDK A2,SBACH SBA TO DC-BUFFER«, t00=0x0018, t01=0x0082}
0x261e…2642 Head {h00=0x0020, h01=0x0050, text=» LDKL A1,/8000 INDICATE SBA «, t00=0x0018, t01=0x00a8}
0x2642…266c Head {h00=0x0026, h01=0x0050, text=» CF A14,PUTCHA PUT CHAR. IN BUFFER«, t00=0x0018, t01=0x00cc}
0x266c…2690 Head {h00=0x0020, h01=0x0050, text=» LDR A1,A1 TRANSMISSION OK? «, t00=0x0018, t01=0x00f6}
0x2690…26aa Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PACK90 NO «, t00=0x0018, t01=0x011a}
0x26aa…26d8 Head {h00=0x002a, h01=0x0050, text=» LDR A1,A4 BUFFER ADDRESS TO DC-BUFFER«, t00=0x0018, t01=0x0134}
0x26d8…26ee Head {h00=0x0012, h01=0x0050, text=» CF A14,BUFADR«, t00=0x0018, t01=0x0162}
0x26ee…2702 Head {h00=0x0010, h01=0x0050, text=»PACK60 EQU *«, t00=0x0018, t01=0x0178}
0x2702…272c Head {h00=0x0026, h01=0x0050, text=» CF A14,WRAP CHECK IF WRAP AROUND «, t00=0x0018, t01=0x018c}
0x272c…274c Head {h00=0x001c, h01=0x0050, text=» CWR A10,A4 ALL SCANNED?«, t00=0x0019, t01=0x0026}
0x274c…2766 Head {h00=0x0016, h01=0x0050, text=» RF(E) PACK80 YES «, t00=0x0019, t01=0x0046}
0x2766…277a Head {h00=0x0010, h01=0x0050, text=»PACK70 EQU *«, t00=0x0019, t01=0x0060}
0x277a…2796 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x0019, t01=0x0074}
0x2796…27b6 Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x0019, t01=0x0090}
0x27b6…27d0 Head {h00=0x0016, h01=0x0050, text=» RB(NL) PACK20 YES«, t00=0x0019, t01=0x00b0}
0x27d0…27f0 Head {h00=0x001c, h01=0x0050, text=» CWK A2,NULL NULL CHAR? «, t00=0x0019, t01=0x00ca}
0x27f0…2816 Head {h00=0x0022, h01=0x0050, text=» RF(E) PACK75 YES,DON'T STORE «, t00=0x0019, t01=0x00ea}
0x2816…2840 Head {h00=0x0026, h01=0x0050, text=» CF A14,PUTCHA PUT CHAR. IN BUFFER«, t00=0x0019, t01=0x0110}
0x2840…2864 Head {h00=0x0020, h01=0x0050, text=» LDR A1,A1 TRANSMISSION OK? «, t00=0x0019, t01=0x013a}
0x2864…287e Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PACK90 NO «, t00=0x0019, t01=0x015e}
0x287e…2892 Head {h00=0x0010, h01=0x0050, text=»PACK75 EQU *«, t00=0x0019, t01=0x0178}
0x2892…28a4 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0019, t01=0x018c}
0x28a4…28b6 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x001a, t01=0x000e}
0x28b6…28c8 Head {h00=0x000e, h01=0x0050, text=» RB PACK60«, t00=0x001a, t01=0x0020}
0x28c8…28dc Head {h00=0x0010, h01=0x0050, text=»PACK80 EQU *«, t00=0x001a, t01=0x0032}
0x28dc…2904 Head {h00=0x0024, h01=0x0050, text=» LDK A1,0 INDICATE LAST IN CHAIN«, t00=0x001a, t01=0x0046}
0x2904…292a Head {h00=0x0022, h01=0x0050, text=» CF A14,DCWRIT WRITE DC BUFFER«, t00=0x001a, t01=0x006e}
0x292a…293e Head {h00=0x0010, h01=0x0050, text=»PACK90 EQU *«, t00=0x001a, t01=0x0094}
0x293e…2964 Head {h00=0x0022, h01=0x0050, text=» LDR A8,A12 BUFFER TO RELEASE «, t00=0x001a, t01=0x00a8}
0x2964…298a Head {h00=0x0022, h01=0x0050, text=» CF A14,RELBUF RELEASE BUFFER «, t00=0x001a, t01=0x00ce}
0x298a…299a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001a, t01=0x00f4}
0x299a…29a8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x0104}
0x29a8…29ec Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x001a, t01=0x0112}
0x29ec…2a30 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x001a, t01=0x0156}
0x2a30…2a74 Head {h00=0x0040, h01=0x0050, text=»* UNPACK UNPACK DC-BUFFER AND UPDATE VDU *«, t00=0x001b, t01=0x000a}
0x2a74…2ab8 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x001b, t01=0x004e}
0x2ab8…2afc Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x001b, t01=0x0092}
0x2afc…2b10 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x001b, t01=0x00d6}
0x2b10…2b1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00ea}
0x2b1a…2b2e Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x001b, t01=0x00f4}
0x2b2e…2b52 Head {h00=0x0020, h01=0x0050, text=»* A3= POINTER IN VDU-BUFFER «, t00=0x001b, t01=0x0108}
0x2b52…2b70 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x001b, t01=0x012c}
0x2b70…2b92 Head {h00=0x001e, h01=0x0050, text=»* A5= LAST IN ROW REL POS «, t00=0x001b, t01=0x014a}
0x2b92…2bba Head {h00=0x0024, h01=0x0050, text=»* A6= INTERNAL LINE FLAG ADDRESS«, t00=0x001b, t01=0x016c}
0x2bba…2bdc (28, 0, 400) Head {h00=0x001e, h01=0x0050, text=»* A8= ADDRESS IN DC-BUFFER«, t00=0x001c, t01=0x0004}
0x2bdc…2bfa Head {h00=0x001a, h01=0x0050, text=»* A9= DC-BUFFER INDEX «, t00=0x001c, t01=0x0026}
0x2bfa…2c12 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x001c, t01=0x0044}
0x2c12…2c32 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x001c, t01=0x005c}
0x2c32…2c4a Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x001c, t01=0x007c}
0x2c4a…2c62 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x001c, t01=0x0094}
0x2c62…2c6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00ac}
0x2c6c…2cac Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x001c, t01=0x00b6}
0x2cac…2cc0 Head {h00=0x0010, h01=0x0050, text=»UNPACK EQU *«, t00=0x001c, t01=0x00f6}
0x2cc0…2ce4 Head {h00=0x0020, h01=0x0050, text=» LDK A1,3 KB TOTALLY INHIBIT«, t00=0x001c, t01=0x010a}
0x2ce4…2cfe Head {h00=0x0016, h01=0x0050, text=» ORS A1,KBINH,A11 «, t00=0x001c, t01=0x012e}
0x2cfe…2d16 Head {h00=0x0014, h01=0x0050, text=» LC A1,TCT01,A11«, t00=0x001c, t01=0x0148}
0x2d16…2d3c Head {h00=0x0022, h01=0x0050, text=» CCK A1,VDUCOD PRINTER UNPACK?«, t00=0x001c, t01=0x0160}
0x2d3c…2d56 Head {h00=0x0016, h01=0x0050, text=» RF(NE) UNP050 YES«, t00=0x001c, t01=0x0186}
0x2d56…2d7c Head {h00=0x0022, h01=0x0050, text=» CF A14,LMP4ON INHIBIT LAMP ON«, t00=0x001d, t01=0x0010}
0x2d7c…2d90 Head {h00=0x0010, h01=0x0050, text=»UNP050 EQU *«, t00=0x001d, t01=0x0036}
0x2d90…2dbe Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x001d, t01=0x004a}
0x2dbe…2dd2 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x001d, t01=0x0078}
0x2dd2…2de8 Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x001d, t01=0x008c}
0x2de8…2e16 Head {h00=0x002a, h01=0x0050, text=» CF A14,LINE CHECK WRAP AND LINE FLAG «, t00=0x001d, t01=0x00a2}
0x2e16…2e28 Head {h00=0x000e, h01=0x0050, text=» SUR A9,A9«, t00=0x001d, t01=0x00d0}
0x2e28…2e54 Head {h00=0x0028, h01=0x0050, text=» LD A8,BUFPNT,A11 GET BUFFER ADDRESS«, t00=0x001d, t01=0x00e2}
0x2e54…2e7a Head {h00=0x0022, h01=0x0050, text=» LDK A1,ICOMND PROCESS COMMAND«, t00=0x001d, t01=0x010e}
0x2e7a…2e94 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x001d, t01=0x0134}
0x2e94…2ea8 Head {h00=0x0010, h01=0x0050, text=»UNP100 EQU *«, t00=0x001d, t01=0x014e}
0x2ea8…2ec8 Head {h00=0x001c, h01=0x0050, text=» CF A14,GDCCH GET CHAR. «, t00=0x001d, t01=0x0162}
0x2ec8…2eea Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 ANYTHING LEFT? «, t00=0x001d, t01=0x0182}
0x2eea…2f04 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) UNP200 NO «, t00=0x001e, t01=0x0014}
0x2f04…2f36 Head {h00=0x002e, h01=0x0050, text=» LD A1,UNPMOD,A11 GET ADDRESS TO START AT «, t00=0x001e, t01=0x002e}
0x2f36…2f58 Head {h00=0x001e, h01=0x0050, text=» CFI A14,RETTAB,A1 RESTART«, t00=0x001e, t01=0x0060}
0x2f58…2f78 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A1 PROCESS OKEY?«, t00=0x001e, t01=0x0082}
0x2f78…2f92 Head {h00=0x0016, h01=0x0050, text=» RB(Z) UNP100 YES «, t00=0x001e, t01=0x00a2}
0x2f92…2fa4 Head {h00=0x000e, h01=0x0050, text=» RF UNP300«, t00=0x001e, t01=0x00bc}
0x2fa4…2fb8 Head {h00=0x0010, h01=0x0050, text=»UNP200 EQU *«, t00=0x001e, t01=0x00ce}
0x2fb8…2fca Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x001e, t01=0x00e2}
0x2fca…2ff0 Head {h00=0x0022, h01=0x0050, text=» CF A14,GETNXT GET NEXT BUFFER«, t00=0x001e, t01=0x00f4}
0x2ff0…300c Head {h00=0x0018, h01=0x0050, text=» LDR A1,A1 FINISHED?«, t00=0x001e, t01=0x011a}
0x300c…3024 Head {h00=0x0014, h01=0x0050, text=» RB(Z) UNP100 NO«, t00=0x001e, t01=0x0136}
0x3024…3030 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x014e}
0x3030…3044 Head {h00=0x0010, h01=0x0050, text=»UNP300 EQU *«, t00=0x001e, t01=0x015a}
0x3044…306a Head {h00=0x0022, h01=0x0050, text=» CF A14,SCRINF GET LATEST NEWS«, t00=0x001e, t01=0x016e}
0x306a…307c (31, 0, 400) Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x001f, t01=0x0004}
0x307c…30ae Head {h00=0x002e, h01=0x0050, text=» CF A14,ATMASB SEARCH ATTRIBUTE BACKWARDS «, t00=0x001f, t01=0x0016}
0x30ae…30c0 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x001f, t01=0x0048}
0x30c0…30e8 Head {h00=0x0024, h01=0x0050, text=» ANKL A10,THROWB THROW BUFFERS? «, t00=0x001f, t01=0x005a}
0x30e8…3100 Head {h00=0x0014, h01=0x0050, text=» RF(Z) UNP400 NO«, t00=0x001f, t01=0x0082}
0x3100…3124 Head {h00=0x0020, h01=0x0050, text=» CF A14,THRBUF THROW BUFFERS«, t00=0x001f, t01=0x009a}
0x3124…3136 Head {h00=0x000e, h01=0x0050, text=» RF UNP600«, t00=0x001f, t01=0x00be}
0x3136…314a Head {h00=0x0010, h01=0x0050, text=»UNP400 EQU *«, t00=0x001f, t01=0x00d0}
0x314a…3160 Head {h00=0x0012, h01=0x0050, text=» IFF DISHOW=2 «, t00=0x001f, t01=0x00e4}
0x3160…3178 Head {h00=0x0014, h01=0x0050, text=» LC A1,TCT01,A11«, t00=0x001f, t01=0x00fa}
0x3178…318e Head {h00=0x0012, h01=0x0050, text=» CCK A1,VDUCOD«, t00=0x001f, t01=0x0112}
0x318e…31a4 Head {h00=0x0012, h01=0x0050, text=» RF(NE) UNP500«, t00=0x001f, t01=0x0128}
0x31a4…31de Head {h00=0x0036, h01=0x0050, text=» CF A14,DISMOD TESTINGTESTINGTESTING!!!!!!!!!!!!! «, t00=0x001f, t01=0x013e}
0x31de…31f2 Head {h00=0x0010, h01=0x0050, text=»UNP500 EQU *«, t00=0x001f, t01=0x0178}
0x31f2…31fe Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x018c}
0x31fe…322c Head {h00=0x002a, h01=0x0050, text=» CF A14,P2WCC CHECK IT A LAST TIME =4 «, t00=0x0020, t01=0x0008}
0x322c…3256 Head {h00=0x0026, h01=0x0050, text=» LDR A8,A12 GET BUFFER TO RELEASE «, t00=0x0020, t01=0x0036}
0x3256…327c Head {h00=0x0022, h01=0x0050, text=» CF A14,RELBUF RELEASE BUFFER «, t00=0x0020, t01=0x0060}
0x327c…3290 Head {h00=0x0010, h01=0x0050, text=»UNP600 EQU *«, t00=0x0020, t01=0x0086}
0x3290…32a0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0020, t01=0x009a}
0x32a0…32ae Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x00aa}
0x32ae…32fc Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0020, t01=0x00b8}
0x32fc…334a Head {h00=0x004a, h01=0x0050, text=»* *«, t00=0x0020, t01=0x0106}
0x334a…3398 Head {h00=0x004a, h01=0x0050, text=»* INDEX FOR RETURNS AFTER GET CHARCTER *«, t00=0x0020, t01=0x0154}
0x3398…33e6 Head {h00=0x004a, h01=0x0050, text=»* *«, t00=0x0021, t01=0x0012}
0x33e6…3434 Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0021, t01=0x0060}
0x3434…343c Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x00ae}
0x343c…3450 Head {h00=0x0010, h01=0x0050, text=»ICOMND EQU 0«, t00=0x0021, t01=0x00b6}
0x3450…346c Head {h00=0x0018, h01=0x0050, text=»ICOMN1 EQU ICOMND+2 «, t00=0x0021, t01=0x00ca}
0x346c…3482 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0021, t01=0x00e6}
0x3482…349e Head {h00=0x0018, h01=0x0050, text=»ICOCOP EQU ICOMN1+2 «, t00=0x0021, t01=0x00fc}
0x349e…34ba Head {h00=0x0018, h01=0x0050, text=»ICOWCC EQU ICOCOP+2 «, t00=0x0021, t01=0x0118}
0x34ba…34c6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x0134}
0x34c6…34dc Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0021, t01=0x0140}
0x34dc…34f8 Head {h00=0x0018, h01=0x0050, text=»ICOWCC EQU ICOMN1+2 «, t00=0x0021, t01=0x0156}
0x34f8…3504 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x0172}
0x3504…3520 Head {h00=0x0018, h01=0x0050, text=»IORDER EQU ICOWCC+2 «, t00=0x0021, t01=0x017e}
0x3520…353c Head {h00=0x0018, h01=0x0050, text=»IOSFAT EQU IORDER+2 «, t00=0x0022, t01=0x000a}
0x353c…3558 Head {h00=0x0018, h01=0x0050, text=»IOSBA1 EQU IOSFAT+2 «, t00=0x0022, t01=0x0026}
0x3558…3574 Head {h00=0x0018, h01=0x0050, text=»IOSBA2 EQU IOSBA1+2 «, t00=0x0022, t01=0x0042}
0x3574…3590 Head {h00=0x0018, h01=0x0050, text=»IORAA1 EQU IOSBA2+2 «, t00=0x0022, t01=0x005e}
0x3590…35ac Head {h00=0x0018, h01=0x0050, text=»IORAA2 EQU IORAA1+2 «, t00=0x0022, t01=0x007a}
0x35ac…35c8 Head {h00=0x0018, h01=0x0050, text=»IORACH EQU IORAA2+2 «, t00=0x0022, t01=0x0096}
0x35c8…35e4 Head {h00=0x0018, h01=0x0050, text=»IOEUA1 EQU IORACH+2 «, t00=0x0022, t01=0x00b2}
0x35e4…3600 Head {h00=0x0018, h01=0x0050, text=»IOEUA2 EQU IOEUA1+2 «, t00=0x0022, t01=0x00ce}
0x3600…360e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x00ea}
0x360e…365c Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0022, t01=0x00f8}
0x365c…36aa Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0022, t01=0x0146}
0x36aa…36f8 (35, 0, 400) Head {h00=0x004a, h01=0x0050, text=»* RETURN ADDRESSES AFTER GET CHARACTER * «, t00=0x0023, t01=0x0004}
0x36f8…3746 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0023, t01=0x0052}
0x3746…3794 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0023, t01=0x00a0}
0x3794…37a8 Head {h00=0x0010, h01=0x0050, text=»RETTAB EQU *«, t00=0x0023, t01=0x00ee}
0x37a8…37d2 Head {h00=0x0026, h01=0x0050, text=» DATA UNPCOM PROCESS COMMAND CHAR.«, t00=0x0023, t01=0x0102}
0x37d2…3806 Head {h00=0x0030, h01=0x0050, text=» DATA UNC100 PROCESS COMMAND CHAR AFTER ESC.«, t00=0x0023, t01=0x012c}
0x3806…381c Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0023, t01=0x0160}
0x381c…3844 Head {h00=0x0024, h01=0x0050, text=» DATA UNC150 PROCESS FROM DEVICE«, t00=0x0023, t01=0x0176}
0x3844…3850 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x000e}
0x3850…3870 Head {h00=0x001c, h01=0x0050, text=» DATA UNC600 PROCESS WCC«, t00=0x0024, t01=0x001a}
0x3870…389e Head {h00=0x002a, h01=0x0050, text=» DATA UNPORD PROCESS ORDERS AND CHAR. «, t00=0x0024, t01=0x003a}
0x389e…38c4 Head {h00=0x0022, h01=0x0050, text=» DATA SF100 PROCESS ATTRIBUTE «, t00=0x0024, t01=0x0068}
0x38c4…38f4 Head {h00=0x002c, h01=0x0050, text=» DATA SBA100 PROCESS FIRST ADDRESS BYTE «, t00=0x0024, t01=0x008e}
0x38f4…3924 Head {h00=0x002c, h01=0x0050, text=» DATA SBA200 PROCESS SECOND ADDRESS BYTE«, t00=0x0024, t01=0x00be}
0x3924…3952 Head {h00=0x002a, h01=0x0050, text=» DATA RA100 PROCESS FIRST ADDRESS BYTE«, t00=0x0024, t01=0x00ee}
0x3952…3982 Head {h00=0x002c, h01=0x0050, text=» DATA RA200 PROCESS SECOND ADDRESS BYTE «, t00=0x0024, t01=0x011c}
0x3982…39ae Head {h00=0x0028, h01=0x0050, text=» DATA RA250 PROCESS CHAR. TO REPEAT «, t00=0x0024, t01=0x014c}
0x39ae…39de Head {h00=0x002c, h01=0x0050, text=» DATA EUA100 PROCESS FIRST ADDRESS BYTE «, t00=0x0024, t01=0x0178}
0x39de…3a0e Head {h00=0x002c, h01=0x0050, text=» DATA EUA200 PROCESS FIRST ADDRESS BYTE «, t00=0x0025, t01=0x0018}
0x3a0e…3a1c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x0048}
0x3a1c…3a6c Head {h00=0x004c, h01=0x0050, text=»*********************************************************************** «, t00=0x0025, t01=0x0056}
0x3a6c…3abc Head {h00=0x004c, h01=0x0050, text=»* * «, t00=0x0025, t01=0x00a6}
0x3abc…3b0c Head {h00=0x004c, h01=0x0050, text=»* UNPCOM UNPACK COMMAND * «, t00=0x0025, t01=0x00f6}
0x3b0c…3b5c Head {h00=0x004c, h01=0x0050, text=»* * «, t00=0x0025, t01=0x0146}
0x3b5c…3bac Head {h00=0x004c, h01=0x0050, text=»*********************************************************************** «, t00=0x0026, t01=0x0008}
0x3bac…3bc0 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0026, t01=0x0058}
0x3bc0…3bca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x006c}
0x3bca…3bde Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0026, t01=0x0076}
0x3bde…3c02 Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x0026, t01=0x008a}
0x3c02…3c24 Head {h00=0x001e, h01=0x0050, text=»* A4= REL. CURSOR ADDRESS «, t00=0x0026, t01=0x00ae}
0x3c24…3c46 Head {h00=0x001e, h01=0x0050, text=»* A5= LAST IN ROW REL POS «, t00=0x0026, t01=0x00d0}
0x3c46…3c6e Head {h00=0x0024, h01=0x0050, text=»* A6= INTERNAL LINE FLAG ADDRESS«, t00=0x0026, t01=0x00f2}
0x3c6e…3c90 Head {h00=0x001e, h01=0x0050, text=»* A8= ADDRESS IN DC-BUFFER«, t00=0x0026, t01=0x011a}
0x3c90…3ca6 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x0026, t01=0x013c}
0x3ca6…3cbe Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0026, t01=0x0152}
0x3cbe…3cde Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0026, t01=0x016a}
0x3cde…3cf6 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0026, t01=0x018a}
0x3cf6…3d0e Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0027, t01=0x0012}
0x3d0e…3d18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x002a}
0x3d18…3d68 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0027, t01=0x0034}
0x3d68…3d94 Head {h00=0x0028, h01=0x0050, text=»UNPCOM EQU * ENTRY LABEL FROM RETTAB«, t00=0x0027, t01=0x0084}
0x3d94…3da6 Head {h00=0x000e, h01=0x0050, text=» IFF SNA=1«, t00=0x0027, t01=0x00b0}
0x3da6…3dce Head {h00=0x0024, h01=0x0050, text=» LDK A1,ICOMN1 WHERE TO CONTINUE«, t00=0x0027, t01=0x00c2}
0x3dce…3de8 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0027, t01=0x00ea}
0x3de8…3e06 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0027, t01=0x0104}
0x3e06…3e24 Head {h00=0x001a, h01=0x0050, text=» CWK A2,ESCCHA ESCAPE?«, t00=0x0027, t01=0x0122}
0x3e24…3e3e Head {h00=0x0016, h01=0x0050, text=» RF(E) UNC900 YES «, t00=0x0027, t01=0x0140}
0x3e3e…3e62 Head {h00=0x0020, h01=0x0050, text=» LDK A1,1 NO INDICATE ERROR «, t00=0x0027, t01=0x015a}
0x3e62…3e74 Head {h00=0x000e, h01=0x0050, text=» RF UNC900«, t00=0x0027, t01=0x017e}
0x3e74…3e80 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x0190}
0x3e80…3e94 Head {h00=0x0010, h01=0x0050, text=»UNC100 EQU *«, t00=0x0028, t01=0x000c}
0x3e94…3eae Head {h00=0x0016, h01=0x0050, text=» CWK A2,/31 WRITE?«, t00=0x0028, t01=0x0020}
0x3eae…3ec8 Head {h00=0x0016, h01=0x0050, text=» RF(E) UNC500 YES «, t00=0x0028, t01=0x003a}
0x3ec8…3eec Head {h00=0x0020, h01=0x0050, text=» CWK A2,/35 ERASE AND WITE? «, t00=0x0028, t01=0x0054}
0x3eec…3f06 Head {h00=0x0016, h01=0x0050, text=» RF(E) UNC200 YES «, t00=0x0028, t01=0x0078}
0x3f06…3f30 Head {h00=0x0026, h01=0x0050, text=» CWK A2,/3F ERASE ALL UNPROTECTED?«, t00=0x0028, t01=0x0092}
0x3f30…3f4a Head {h00=0x0016, h01=0x0050, text=» RF(E) UNC300 YES «, t00=0x0028, t01=0x00bc}
0x3f4a…3f60 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0028, t01=0x00d6}
0x3f60…3f82 Head {h00=0x001e, h01=0x0050, text=» CWK A2,/37 COPY COMMAND? «, t00=0x0028, t01=0x00ec}
0x3f82…3f9c Head {h00=0x0016, h01=0x0050, text=» RF(NE) UNC175 NO «, t00=0x0028, t01=0x010e}
0x3f9c…3fc0 Head {h00=0x0020, h01=0x0050, text=» LDK A1,ICOCOP RESTART ENTRY«, t00=0x0028, t01=0x0128}
0x3fc0…3fd2 Head {h00=0x000e, h01=0x0050, text=» RF UNC800«, t00=0x0028, t01=0x014c}
0x3fd2…3ffe Head {h00=0x0028, h01=0x0050, text=»UNC150 EQU * ENTRY LABEL FROM RETTAB«, t00=0x0028, t01=0x015e}
0x3ffe…401e Head {h00=0x001c, h01=0x0050, text=» CF A14,MATCH GET TASKID«, t00=0x0028, t01=0x018a}
0x401e…4034 Head {h00=0x0012, h01=0x0050, text=» LDR A1,A1 OK?«, t00=0x0029, t01=0x001a}
0x4034…404e Head {h00=0x0016, h01=0x0050, text=» RF(NZ) UNC175 NO «, t00=0x0029, t01=0x0030}
0x404e…4088 Head {h00=0x0036, h01=0x0050, text=» LDKL A1,/8000 RETURN CODE TO INDICATE COPY COMND.«, t00=0x0029, t01=0x004a}
0x4088…40a0 Head {h00=0x0014, h01=0x0050, text=» ST A1,REGI,A11 «, t00=0x0029, t01=0x0084}
0x40a0…40ba Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBICW,A11 «, t00=0x0029, t01=0x009c}
0x40ba…40dc Head {h00=0x001e, h01=0x0050, text=» CF A14,ICSET SET TIMEOUT «, t00=0x0029, t01=0x00b6}
0x40dc…40fc Head {h00=0x001c, h01=0x0050, text=» LDR A1,A2 TASK TO CALL «, t00=0x0029, t01=0x00d8}
0x40fc…4114 Head {h00=0x0014, h01=0x0050, text=» LDK A2,2 LENGTH«, t00=0x0029, t01=0x00f8}
0x4114…412a Head {h00=0x0012, h01=0x0050, text=» LDKL A3,REGI «, t00=0x0029, t01=0x0110}
0x412a…4144 Head {h00=0x0016, h01=0x0050, text=» ADR A3,A11 BUFFER«, t00=0x0029, t01=0x0126}
0x4144…4162 Head {h00=0x001a, h01=0x0050, text=» CF A14,ICWRT SEND IT «, t00=0x0029, t01=0x0140}
0x4162…4176 Head {h00=0x0010, h01=0x0050, text=»UNC175 EQU *«, t00=0x0029, t01=0x015e}
0x4176…4182 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x0172}
0x4182…41aa Head {h00=0x0024, h01=0x0050, text=» LDKL A10,THROWB THROW THE REST «, t00=0x0029, t01=0x017e}
0x41aa…41ca Head {h00=0x001c, h01=0x0050, text=» LDK A1,1 INDICATE ERROR«, t00=0x002a, t01=0x0016}
0x41ca…41ec Head {h00=0x001e, h01=0x0050, text=» RF UNC900 INVALID COMMAND«, t00=0x002a, t01=0x0036}
0x41ec…4200 Head {h00=0x0010, h01=0x0050, text=»UNC200 EQU *«, t00=0x002a, t01=0x0058}
0x4200…4218 Head {h00=0x0014, h01=0x0050, text=» ST A8,REGI,A11 «, t00=0x002a, t01=0x006c}
0x4218…4242 Head {h00=0x0026, h01=0x0050, text=» CF A14,ERASE ERASE ENTIRE SCREEN «, t00=0x002a, t01=0x0084}
0x4242…425a Head {h00=0x0014, h01=0x0050, text=» LD A8,REGI,A11 «, t00=0x002a, t01=0x00ae}
0x425a…426e Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x002a, t01=0x00c6}
0x426e…4284 Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x002a, t01=0x00da}
0x4284…42ae Head {h00=0x0026, h01=0x0050, text=» LDK A4,0 INITIATE BUFFER ADDRESS «, t00=0x002a, t01=0x00f0}
0x42ae…42c0 Head {h00=0x000e, h01=0x0050, text=» RF UNC500«, t00=0x002a, t01=0x011a}
0x42c0…42d4 Head {h00=0x0010, h01=0x0050, text=»UNC300 EQU *«, t00=0x002a, t01=0x012c}
0x42d4…4300 Head {h00=0x0028, h01=0x0050, text=» CF A14,ERASUP ERASE ALL UNPROTECTED«, t00=0x002a, t01=0x0140}
0x4300…4326 Head {h00=0x0022, h01=0x0050, text=» LDKL A10,THROWB THROW IT AWAY«, t00=0x002a, t01=0x016c}
0x4326…4346 (43, 0, 400) Head {h00=0x001c, h01=0x0050, text=» LDK A1,1 INDICATE ERROR«, t00=0x002b, t01=0x0004}
0x4346…4358 Head {h00=0x000e, h01=0x0050, text=» RF UNC900«, t00=0x002b, t01=0x0024}
0x4358…436c Head {h00=0x0010, h01=0x0050, text=»UNC500 EQU *«, t00=0x002b, t01=0x0036}
0x436c…438c Head {h00=0x001c, h01=0x0050, text=» LDK A1,ICOWCC GET INDEX«, t00=0x002b, t01=0x004a}
0x438c…43a6 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x002b, t01=0x006a}
0x43a6…43b8 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x002b, t01=0x0084}
0x43b8…43ca Head {h00=0x000e, h01=0x0050, text=» RF UNC900«, t00=0x002b, t01=0x0096}
0x43ca…43f6 Head {h00=0x0028, h01=0x0050, text=»UNC600 EQU * ENTRY LABEL FROM RETTAB«, t00=0x002b, t01=0x00a8}
0x43f6…4426 Head {h00=0x002c, h01=0x0050, text=» CF A14,P1WCC PROCESS WCC BEFORE UPDATE «, t00=0x002b, t01=0x00d4}
0x4426…4438 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A4«, t00=0x002b, t01=0x0104}
0x4438…445e Head {h00=0x0022, h01=0x0050, text=» ADKL A3,BVDU GET REAL ADDRESS«, t00=0x002b, t01=0x0116}
0x445e…4472 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x002b, t01=0x013c}
0x4472…449c Head {h00=0x0026, h01=0x0050, text=» ORKL A10,PTORD INDICATE PT ORDER «, t00=0x002b, t01=0x0150}
0x449c…44c6 Head {h00=0x0026, h01=0x0050, text=» LDK A1,IORDER INDICATE NEXT CALL «, t00=0x002b, t01=0x017a}
0x44c6…44da Head {h00=0x0010, h01=0x0050, text=»UNC800 EQU *«, t00=0x002c, t01=0x0014}
0x44da…44f4 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x002c, t01=0x0028}
0x44f4…4506 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x002c, t01=0x0042}
0x4506…451a Head {h00=0x0010, h01=0x0050, text=»UNC900 EQU *«, t00=0x002c, t01=0x0054}
0x451a…452a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002c, t01=0x0068}
0x452a…4538 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x0078}
0x4538…457a Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x002c, t01=0x0086}
0x457a…45bc Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x002c, t01=0x00c8}
0x45bc…45fe Head {h00=0x003e, h01=0x0050, text=»* UNPORD UNPACK ORDERS *«, t00=0x002c, t01=0x010a}
0x45fe…4640 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x002c, t01=0x014c}
0x4640…4682 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x002c, t01=0x018e}
0x4682…4696 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x002d, t01=0x0040}
0x4696…46a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0054}
0x46a0…46b4 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x002d, t01=0x005e}
0x46b4…46d8 Head {h00=0x0020, h01=0x0050, text=»* A3= POINTER IN VDU BUFFER «, t00=0x002d, t01=0x0072}
0x46d8…46f6 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x002d, t01=0x0096}
0x46f6…4718 Head {h00=0x001e, h01=0x0050, text=»* A5= LAST IN ROW REL POS «, t00=0x002d, t01=0x00b4}
0x4718…4740 Head {h00=0x0024, h01=0x0050, text=»* A6= INTERNAL LINE FLAG ADDRESS«, t00=0x002d, t01=0x00d6}
0x4740…4756 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x002d, t01=0x00fe}
0x4756…476c Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x002d, t01=0x0114}
0x476c…4784 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x002d, t01=0x012a}
0x4784…479c Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x002d, t01=0x0142}
0x479c…47b4 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x002d, t01=0x015a}
0x47b4…47cc Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x002d, t01=0x0172}
0x47cc…47d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x018a}
0x47d6…4818 (46, 0, 398) Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x002e, t01=0x0004}
0x4818…4844 Head {h00=0x0028, h01=0x0050, text=»UNPORD EQU * ENTRY LABEL FROM RETTAB«, t00=0x002e, t01=0x0046}
0x4844…485e Head {h00=0x0016, h01=0x0050, text=» CWK A2,/20 ORDER?«, t00=0x002e, t01=0x0072}
0x485e…4878 Head {h00=0x0016, h01=0x0050, text=» RF(L) UNO100 YES «, t00=0x002e, t01=0x008c}
0x4878…48a6 Head {h00=0x002a, h01=0x0050, text=» XRKL A10,PTORD INDICATE FOR PT ORDER «, t00=0x002e, t01=0x00a6}
0x48a6…48c2 Head {h00=0x0018, h01=0x0050, text=» CWR A5,A4 NEW LINE?«, t00=0x002e, t01=0x00d4}
0x48c2…48da Head {h00=0x0014, h01=0x0050, text=» RF(G) UNO050 NO«, t00=0x002e, t01=0x00f0}
0x48da…48fa Head {h00=0x001c, h01=0x0050, text=» CF A14,LINE CHECK WRAP «, t00=0x002e, t01=0x0108}
0x48fa…490e Head {h00=0x0010, h01=0x0050, text=»UNO050 EQU *«, t00=0x002e, t01=0x0128}
0x490e…493a Head {h00=0x0028, h01=0x0050, text=» SCR A2,A3 STORE CHAR. IN VDU BUFFER«, t00=0x002e, t01=0x013c}
0x493a…4952 Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x002e, t01=0x0168}
0x4952…4964 Head {h00=0x000e, h01=0x0050, text=» ORK A1,1 «, t00=0x002e, t01=0x0180}
0x4964…497c (47, 0, 400) Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x002f, t01=0x0004}
0x497c…498e Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x002f, t01=0x001c}
0x498e…49a0 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x002f, t01=0x002e}
0x49a0…49b2 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x002f, t01=0x0040}
0x49b2…49c4 Head {h00=0x000e, h01=0x0050, text=» RF UNO200«, t00=0x002f, t01=0x0052}
0x49c4…49d8 Head {h00=0x0010, h01=0x0050, text=»UNO100 EQU *«, t00=0x002f, t01=0x0064}
0x49d8…4a00 Head {h00=0x0024, h01=0x0050, text=» LC A1,CONORD,A2 GET ORDER INDEX«, t00=0x002f, t01=0x0078}
0x4a00…4a2e Head {h00=0x002a, h01=0x0050, text=» CFI A14,ORDTAB,A1 TAKE CARE OF ORDER «, t00=0x002f, t01=0x00a0}
0x4a2e…4a42 Head {h00=0x0010, h01=0x0050, text=»UNO200 EQU *«, t00=0x002f, t01=0x00ce}
0x4a42…4a52 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002f, t01=0x00e2}
0x4a52…4a60 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002f, t01=0x00f2}
0x4a60…4aa6 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x002f, t01=0x0100}
0x4aa6…4aec Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x002f, t01=0x0146}
0x4aec…4b32 Head {h00=0x0042, h01=0x0050, text=»* ORDTAB ORDER TABLE * «, t00=0x002f, t01=0x018c}
0x4b32…4b78 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0030, t01=0x0042}
0x4b78…4bbe Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0030, t01=0x0088}
0x4bbe…4bd2 Head {h00=0x0010, h01=0x0050, text=»ORDTAB EQU *«, t00=0x0030, t01=0x00ce}
0x4bd2…4bf4 Head {h00=0x001e, h01=0x0050, text=» DATA INVAL INVALID CHAR. «, t00=0x0030, t01=0x00e2}
0x4bf4…4c10 Head {h00=0x0018, h01=0x0050, text=» DATA SF START FIELD«, t00=0x0030, t01=0x0104}
0x4c10…4c34 Head {h00=0x0020, h01=0x0050, text=» DATA SBA SET BUFFER ADDRESS«, t00=0x0030, t01=0x0120}
0x4c34…4c52 Head {h00=0x001a, h01=0x0050, text=» DATA IC INSERT CURSOR«, t00=0x0030, t01=0x0144}
0x4c52…4c68 Head {h00=0x0012, h01=0x0050, text=» DATA PT TAB. «, t00=0x0030, t01=0x0162}
0x4c68…4c8a Head {h00=0x001e, h01=0x0050, text=» DATA RA REPEAT TO AADRESS«, t00=0x0030, t01=0x0178}
0x4c8a…4cb8 Head {h00=0x002a, h01=0x0050, text=» DATA EUA ERASE UNPROTECTED TO ADDRESS«, t00=0x0031, t01=0x000a}
0x4cb8…4cd0 Head {h00=0x0014, h01=0x0050, text=» DATA ESC ESCAPE«, t00=0x0031, t01=0x0038}
0x4cd0…4cf0 Head {h00=0x001c, h01=0x0050, text=» DATA NULCHA NULL CHAR. «, t00=0x0031, t01=0x0050}
0x4cf0…4d0a Head {h00=0x0016, h01=0x0050, text=» DATA NL NEW LINE «, t00=0x0031, t01=0x0070}
0x4d0a…4d24 Head {h00=0x0016, h01=0x0050, text=» DATA FF FORM FEED«, t00=0x0031, t01=0x008a}
0x4d24…4d40 Head {h00=0x0018, h01=0x0050, text=» DATA EM END MESSAGE«, t00=0x0031, t01=0x00a4}
0x4d40…4d60 Head {h00=0x001c, h01=0x0050, text=» DATA CR CARRIAGE RETURN«, t00=0x0031, t01=0x00c0}
0x4d60…4d6e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0031, t01=0x00e0}
0x4d6e…4db2 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0031, t01=0x00ee}
0x4db2…4df6 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0031, t01=0x0132}
0x4df6…4e3a Head {h00=0x0040, h01=0x0050, text=»* SF START FIELD * «, t00=0x0031, t01=0x0176}
0x4e3a…4e7e Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0032, t01=0x002a}
0x4e7e…4ec2 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0032, t01=0x006e}
0x4ec2…4ed6 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0032, t01=0x00b2}
0x4ed6…4ee0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00c6}
0x4ee0…4efa Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x0032, t01=0x00d0}
0x4efa…4f10 Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x0032, t01=0x00ea}
0x4f10…4f34 Head {h00=0x0020, h01=0x0050, text=»* A3= POINTER IN VDU BUFFER «, t00=0x0032, t01=0x0100}
0x4f34…4f52 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0032, t01=0x0124}
0x4f52…4f68 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0032, t01=0x0142}
0x4f68…4f7e Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0032, t01=0x0158}
0x4f7e…4f94 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0032, t01=0x016e}
0x4f94…4fb2 Head {h00=0x001a, h01=0x0050, text=»* A9= DC-BUFFER INDEX «, t00=0x0032, t01=0x0184}
0x4fb2…4fca Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0033, t01=0x0012}
0x4fca…4fea Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0033, t01=0x002a}
0x4fea…5002 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0033, t01=0x004a}
0x5002…501a Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0033, t01=0x0062}
0x501a…5024 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x007a}
0x5024…5068 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0033, t01=0x0084}
0x5068…5078 Head {h00=0x000c, h01=0x0050, text=»SF EQU *«, t00=0x0033, t01=0x00c8}
0x5078…50a2 Head {h00=0x0026, h01=0x0050, text=» LDK A1,IOSFAT INDICATE NEXT CALL «, t00=0x0033, t01=0x00d8}
0x50a2…50bc Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0033, t01=0x0102}
0x50bc…50d8 Head {h00=0x0018, h01=0x0050, text=» RF SF900 GET CHAR. «, t00=0x0033, t01=0x011c}
0x50d8…5104 Head {h00=0x0028, h01=0x0050, text=»SF100 EQU * ENTRY LABEL FROM RETTAB «, t00=0x0033, t01=0x0138}
0x5104…5126 Head {h00=0x001e, h01=0x0050, text=» LDK A1,IORDER NEXT ALBEL «, t00=0x0033, t01=0x0164}
0x5126…5140 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0033, t01=0x0186}
0x5140…5162 Head {h00=0x001e, h01=0x0050, text=» LC A2,CONATT,A2 IN EBCDIC«, t00=0x0034, t01=0x0010}
0x5162…5180 Head {h00=0x001a, h01=0x0050, text=» ORK A2,/80 ATTR. BIT «, t00=0x0034, t01=0x0032}
0x5180…5196 Head {h00=0x0012, h01=0x0050, text=» CM CURATT,A11«, t00=0x0034, t01=0x0050}
0x5196…51b4 Head {h00=0x001a, h01=0x0050, text=» ORKL A10,ATTREC+PTORD«, t00=0x0034, t01=0x0066}
0x51b4…51d6 Head {h00=0x001e, h01=0x0050, text=» CF A14,LINWRP CHECK WRAP «, t00=0x0034, t01=0x0084}
0x51d6…51ee Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x0034, t01=0x00a6}
0x51ee…520e Head {h00=0x001c, h01=0x0050, text=» ANK A1,2 LINE IN FIELD?«, t00=0x0034, t01=0x00be}
0x520e…5226 Head {h00=0x0014, h01=0x0050, text=» RF(Z) SF600 NO «, t00=0x0034, t01=0x00de}
0x5226…5258 Head {h00=0x002e, h01=0x0050, text=» CF A14,LINATT INDICATE ATTRIBUTE OVERRUN «, t00=0x0034, t01=0x00f6}
0x5258…526c Head {h00=0x0010, h01=0x0050, text=»SF600 EQU * «, t00=0x0034, t01=0x0128}
0x526c…52a0 Head {h00=0x0030, h01=0x0050, text=» ORKL A10,ATTREC INDICATE ATTRIBUTE RECEIVED«, t00=0x0034, t01=0x013c}
0x52a0…52be Head {h00=0x001a, h01=0x0050, text=» SCR A2,A3 STORE CHAR.«, t00=0x0034, t01=0x0170}
0x52be…52d0 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0034, t01=0x018e}
0x52d0…52e2 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0035, t01=0x0010}
0x52e2…52f6 Head {h00=0x0010, h01=0x0050, text=»SF900 EQU * «, t00=0x0035, t01=0x0022}
0x52f6…5308 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0035, t01=0x0036}
0x5308…5318 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0035, t01=0x0048}
0x5318…5326 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0035, t01=0x0058}
0x5326…536a Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0035, t01=0x0066}
0x536a…53ae Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0035, t01=0x00aa}
0x53ae…53f2 Head {h00=0x0040, h01=0x0050, text=»* SBA SET BUFFER ADDRESS * «, t00=0x0035, t01=0x00ee}
0x53f2…5436 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0035, t01=0x0132}
0x5436…547a Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0035, t01=0x0176}
0x547a…548e Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0036, t01=0x002a}
0x548e…5498 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x003e}
0x5498…54b2 Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x0036, t01=0x0048}
0x54b2…54c6 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0036, t01=0x0062}
0x54c6…54dc Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x0036, t01=0x0076}
0x54dc…54f2 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0036, t01=0x008c}
0x54f2…5508 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0036, t01=0x00a2}
0x5508…551e Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0036, t01=0x00b8}
0x551e…5534 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0036, t01=0x00ce}
0x5534…554a Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x0036, t01=0x00e4}
0x554a…5562 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0036, t01=0x00fa}
0x5562…5582 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0036, t01=0x0112}
0x5582…559a Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0036, t01=0x0132}
0x559a…55b2 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0036, t01=0x014a}
0x55b2…55bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0162}
0x55bc…5600 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0036, t01=0x016c}
0x5600…5612 Head {h00=0x000e, h01=0x0050, text=»SBA EQU * «, t00=0x0037, t01=0x0020}
0x5612…5634 Head {h00=0x001e, h01=0x0050, text=» LDK A1,IOSBA1 NEXT LABEL «, t00=0x0037, t01=0x0032}
0x5634…564e Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0037, t01=0x0054}
0x564e…5660 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0037, t01=0x006e}
0x5660…567e Head {h00=0x001a, h01=0x0050, text=» RF SBA900 FIRST BYTE «, t00=0x0037, t01=0x0080}
0x567e…56aa Head {h00=0x0028, h01=0x0050, text=»SBA100 EQU * ENTRY LABEL FROM RETTAB«, t00=0x0037, t01=0x009e}
0x56aa…56ca Head {h00=0x001c, h01=0x0050, text=» LC A7,CONATT,A2 CONVERT«, t00=0x0037, t01=0x00ca}
0x56ca…56de Head {h00=0x0010, h01=0x0050, text=» ANK A7,/3F «, t00=0x0037, t01=0x00ea}
0x56de…56f0 Head {h00=0x000e, h01=0x0050, text=» SLL A7,6 «, t00=0x0037, t01=0x00fe}
0x56f0…5706 Head {h00=0x0012, h01=0x0050, text=» LDK A1,IOSBA2«, t00=0x0037, t01=0x0110}
0x5706…5720 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0037, t01=0x0126}
0x5720…5732 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0037, t01=0x0140}
0x5732…574e Head {h00=0x0018, h01=0x0050, text=» RF SBA900 NEXT BYTE«, t00=0x0037, t01=0x0152}
0x574e…577a Head {h00=0x0028, h01=0x0050, text=»SBA200 EQU * ENTRY LABEL FROM RETTAB«, t00=0x0037, t01=0x016e}
0x577a…5792 Head {h00=0x0014, h01=0x0050, text=» LC A2,CONATT,A2«, t00=0x0038, t01=0x000a}
0x5792…57a6 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x0038, t01=0x0022}
0x57a6…57b8 Head {h00=0x000e, h01=0x0050, text=» ORR A7,A2«, t00=0x0038, t01=0x0036}
0x57b8…57da Head {h00=0x001e, h01=0x0050, text=» LDK A1,IORDER NEXT LABEL «, t00=0x0038, t01=0x0048}
0x57da…57f4 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0038, t01=0x006a}
0x57f4…581a Head {h00=0x0022, h01=0x0050, text=» CWK A7,LBVDU ILLEGAL ADDRESS?«, t00=0x0038, t01=0x0084}
0x581a…5834 Head {h00=0x0016, h01=0x0050, text=» RF(NL) SBA800 YES«, t00=0x0038, t01=0x00aa}
0x5834…5846 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A7«, t00=0x0038, t01=0x00c4}
0x5846…5858 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x0038, t01=0x00d6}
0x5858…586e Head {h00=0x0012, h01=0x0050, text=» ADKL A3,BVDU «, t00=0x0038, t01=0x00e8}
0x586e…5882 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0038, t01=0x00fe}
0x5882…58ac Head {h00=0x0026, h01=0x0050, text=» ORKL A10,PTORD INDICATE PT ORDER «, t00=0x0038, t01=0x0112}
0x58ac…58da Head {h00=0x002a, h01=0x0050, text=» CF A14,LINE CHECK WRAP AND LINE FLAGS«, t00=0x0038, t01=0x013c}
0x58da…58f6 Head {h00=0x0018, h01=0x0050, text=» LDK A1,0 REURN CODE«, t00=0x0038, t01=0x016a}
0x58f6…5908 Head {h00=0x000e, h01=0x0050, text=» RF SBA900«, t00=0x0038, t01=0x0186}
0x5908…591c Head {h00=0x0010, h01=0x0050, text=»SBA800 EQU *«, t00=0x0039, t01=0x0008}
0x591c…5942 Head {h00=0x0022, h01=0x0050, text=» ORKL A10,THROWB DON'T SAVE IT«, t00=0x0039, t01=0x001c}
0x5942…5960 Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 RETURN CODE «, t00=0x0039, t01=0x0042}
0x5960…5974 Head {h00=0x0010, h01=0x0050, text=»SBA900 EQU *«, t00=0x0039, t01=0x0060}
0x5974…5984 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0039, t01=0x0074}
0x5984…5992 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0039, t01=0x0084}
0x5992…59d4 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0039, t01=0x0092}
0x59d4…5a16 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x0039, t01=0x00d4}
0x5a16…5a58 Head {h00=0x003e, h01=0x0050, text=»* IC INSERT CURSOR *«, t00=0x0039, t01=0x0116}
0x5a58…5a9a Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x0039, t01=0x0158}
0x5a9a…5adc Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x003a, t01=0x000a}
0x5adc…5af0 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x003a, t01=0x004c}
0x5af0…5afa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0060}
0x5afa…5b14 Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x003a, t01=0x006a}
0x5b14…5b2a Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x003a, t01=0x0084}
0x5b2a…5b40 Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x003a, t01=0x009a}
0x5b40…5b5e Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x003a, t01=0x00b0}
0x5b5e…5b74 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x003a, t01=0x00ce}
0x5b74…5b8a Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x003a, t01=0x00e4}
0x5b8a…5ba0 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x003a, t01=0x00fa}
0x5ba0…5bb8 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x003a, t01=0x0110}
0x5bb8…5bd8 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x003a, t01=0x0128}
0x5bd8…5bf0 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x003a, t01=0x0148}
0x5bf0…5c08 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x003a, t01=0x0160}
0x5c08…5c12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0178}
0x5c12…5c4a Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x003a, t01=0x0182}
0x5c4a…5c5a Head {h00=0x000c, h01=0x0050, text=»IC EQU *«, t00=0x003b, t01=0x002a}
0x5c5a…5c72 Head {h00=0x0014, h01=0x0050, text=» ST A4,PCURS,A11«, t00=0x003b, t01=0x003a}
0x5c72…5c92 Head {h00=0x001c, h01=0x0050, text=» ORKL A10,PTORD INDICATE«, t00=0x003b, t01=0x0052}
0x5c92…5cb0 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x003b, t01=0x0072}
0x5cb0…5cc0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003b, t01=0x0090}
0x5cc0…5cce Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003b, t01=0x00a0}
0x5cce…5d12 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x003b, t01=0x00ae}
0x5d12…5d56 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x003b, t01=0x00f2}
0x5d56…5d9a Head {h00=0x0040, h01=0x0050, text=»* PT PROGRAM TAB. * «, t00=0x003b, t01=0x0136}
0x5d9a…5dde Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x003b, t01=0x017a}
0x5dde…5e22 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x003c, t01=0x002e}
0x5e22…5e36 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x003c, t01=0x0072}
0x5e36…5e40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0086}
0x5e40…5e5a Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x003c, t01=0x0090}
0x5e5a…5e6e Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x003c, t01=0x00aa}
0x5e6e…5e92 Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x003c, t01=0x00be}
0x5e92…5eb0 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x003c, t01=0x00e2}
0x5eb0…5ec6 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x003c, t01=0x0100}
0x5ec6…5ee4 Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x003c, t01=0x0116}
0x5ee4…5efa Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x003c, t01=0x0134}
0x5efa…5f10 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x003c, t01=0x014a}
0x5f10…5f28 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x003c, t01=0x0160}
0x5f28…5f40 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x003c, t01=0x0178}
0x5f40…5f58 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x003c, t01=0x0190}
0x5f58…5f70 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x003d, t01=0x0018}
0x5f70…5f7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0030}
0x5f7a…5fbe Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x003d, t01=0x003a}
0x5fbe…5fce Head {h00=0x000c, h01=0x0050, text=»PT EQU *«, t00=0x003d, t01=0x007e}
0x5fce…5fe2 Head {h00=0x0010, h01=0x0050, text=» LDR A1,A10 «, t00=0x003d, t01=0x008e}
0x5fe2…6014 Head {h00=0x002e, h01=0x0050, text=» ANK A1,PTORD FOLLOWING ORDER OR COMMAND? «, t00=0x003d, t01=0x00a2}
0x6014…602e Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PT400 YES «, t00=0x003d, t01=0x00d4}
0x602e…6062 Head {h00=0x0030, h01=0x0050, text=» LDK A7,NULL FILL WITH NULLS TO END OF FIELD«, t00=0x003d, t01=0x00ee}
0x6062…6076 Head {h00=0x0010, h01=0x0050, text=»PT200 EQU * «, t00=0x003d, t01=0x0122}
0x6076…6098 Head {h00=0x001e, h01=0x0050, text=» CF A14,LINWRP CHECK WRAP «, t00=0x003d, t01=0x0136}
0x6098…60ba Head {h00=0x001e, h01=0x0050, text=» LDR A4,A4 END OF BUFFER? «, t00=0x003d, t01=0x0158}
0x60ba…60e0 Head {h00=0x0022, h01=0x0050, text=» RF(Z) PT800 YES, KUNTA KINTE «, t00=0x003d, t01=0x017a}
0x60e0…60f2 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A3«, t00=0x003e, t01=0x0010}
0x60f2…6110 Head {h00=0x001a, h01=0x0050, text=» ANK A2,/80 ATTRIBUTE?«, t00=0x003e, t01=0x0022}
0x6110…612a Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PT400 YES «, t00=0x003e, t01=0x0040}
0x612a…614e Head {h00=0x0020, h01=0x0050, text=» SCR A7,A3 STORE NULL CHAR. «, t00=0x003e, t01=0x005a}
0x614e…6166 Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x003e, t01=0x007e}
0x6166…6178 Head {h00=0x000e, h01=0x0050, text=» ORK A1,1 «, t00=0x003e, t01=0x0096}
0x6178…6190 Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x003e, t01=0x00a8}
0x6190…61a2 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x003e, t01=0x00c0}
0x61a2…61b4 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x003e, t01=0x00d2}
0x61b4…61c6 Head {h00=0x000e, h01=0x0050, text=» RB PT200 «, t00=0x003e, t01=0x00e4}
0x61c6…61da Head {h00=0x0010, h01=0x0050, text=»PT400 EQU * «, t00=0x003e, t01=0x00f6}
0x61da…61fc Head {h00=0x001e, h01=0x0050, text=» CF A14,LINWRP CHECK WRAP «, t00=0x003e, t01=0x010a}
0x61fc…621e Head {h00=0x001e, h01=0x0050, text=» LDR A4,A4 END OF BUFFER? «, t00=0x003e, t01=0x012c}
0x621e…6242 Head {h00=0x0020, h01=0x0050, text=» RF(Z) PT700 YES OS AND DOS «, t00=0x003e, t01=0x014e}
0x6242…625e Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x003e, t01=0x0172}
0x625e…627c Head {h00=0x001a, h01=0x0050, text=» ANK A2,/80 ATTRIBUTE?«, t00=0x003e, t01=0x018e}
0x627c…6296 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PT500 YES «, t00=0x003f, t01=0x001c}
0x6296…62a8 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x003f, t01=0x0036}
0x62a8…62ba Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x003f, t01=0x0048}
0x62ba…62cc Head {h00=0x000e, h01=0x0050, text=» RB PT400 «, t00=0x003f, t01=0x005a}
0x62cc…62e0 Head {h00=0x0010, h01=0x0050, text=»PT500 EQU * «, t00=0x003f, t01=0x006c}
0x62e0…62fe Head {h00=0x001a, h01=0x0050, text=» ANK A2,/20 PROTECTED?«, t00=0x003f, t01=0x0080}
0x62fe…6318 Head {h00=0x0016, h01=0x0050, text=» RB(NZ) PT400 YES «, t00=0x003f, t01=0x009e}
0x6318…632a Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x003f, t01=0x00b8}
0x632a…633c Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x003f, t01=0x00ca}
0x633c…635e Head {h00=0x001e, h01=0x0050, text=» CF A14,LINWRP CHECK WRAP «, t00=0x003f, t01=0x00dc}
0x635e…6372 Head {h00=0x0010, h01=0x0050, text=»PT700 EQU * «, t00=0x003f, t01=0x00fe}
0x6372…638a Head {h00=0x0014, h01=0x0050, text=» ORKL A10,PTORD «, t00=0x003f, t01=0x0112}
0x638a…639e Head {h00=0x0010, h01=0x0050, text=»PT800 EQU * «, t00=0x003f, t01=0x012a}
0x639e…63bc Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x003f, t01=0x013e}
0x63bc…63cc Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003f, t01=0x015c}
0x63cc…63da Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003f, t01=0x016c}
0x63da…6420 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x003f, t01=0x017a}
0x6420…6466 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0040, t01=0x0030}
0x6466…64ac Head {h00=0x0042, h01=0x0050, text=»* RA REPEAT TO ADDRESS * «, t00=0x0040, t01=0x0076}
0x64ac…64f2 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0040, t01=0x00bc}
0x64f2…6538 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0040, t01=0x0102}
0x6538…654c Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0040, t01=0x0148}
0x654c…6556 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x015c}
0x6556…6570 Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x0040, t01=0x0166}
0x6570…6592 Head {h00=0x001e, h01=0x0050, text=»* A2= CHAR. TO BE REPEATED«, t00=0x0040, t01=0x0180}
0x6592…65b6 Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x0041, t01=0x0012}
0x65b6…65d4 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0041, t01=0x0036}
0x65d4…65ea Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0041, t01=0x0054}
0x65ea…6612 Head {h00=0x0024, h01=0x0050, text=»* A6= INTERNAL LINE FLAG ADDRESS«, t00=0x0041, t01=0x006a}
0x6612…6628 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0041, t01=0x0092}
0x6628…6646 Head {h00=0x001a, h01=0x0050, text=»* A9= DC-BUFFER INDEX «, t00=0x0041, t01=0x00a8}
0x6646…665e Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0041, t01=0x00c6}
0x665e…667e Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0041, t01=0x00de}
0x667e…6696 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0041, t01=0x00fe}
0x6696…66ae Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0041, t01=0x0116}
0x66ae…66b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x012e}
0x66b8…66f2 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0041, t01=0x0138}
0x66f2…6702 Head {h00=0x000c, h01=0x0050, text=»RA EQU *«, t00=0x0041, t01=0x0172}
0x6702…6724 Head {h00=0x001e, h01=0x0050, text=» LDK A1,IORAA1 NEXT LABEL «, t00=0x0041, t01=0x0182}
0x6724…673e Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0042, t01=0x0014}
0x673e…6750 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0042, t01=0x002e}
0x6750…676c Head {h00=0x0018, h01=0x0050, text=» RF RA900 FIRST BYTE«, t00=0x0042, t01=0x0040}
0x676c…6798 Head {h00=0x0028, h01=0x0050, text=»RA100 EQU * ENTRY LABEL FROM RETTAB «, t00=0x0042, t01=0x005c}
0x6798…67b8 Head {h00=0x001c, h01=0x0050, text=» LC A7,CONATT,A2 CONVERT«, t00=0x0042, t01=0x0088}
0x67b8…67cc Head {h00=0x0010, h01=0x0050, text=» ANK A7,/3F «, t00=0x0042, t01=0x00a8}
0x67cc…67de Head {h00=0x000e, h01=0x0050, text=» SLL A7,6 «, t00=0x0042, t01=0x00bc}
0x67de…6800 Head {h00=0x001e, h01=0x0050, text=» LDK A1,IORAA2 NEXT LABEL «, t00=0x0042, t01=0x00ce}
0x6800…681a Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0042, t01=0x00f0}
0x681a…682c Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0042, t01=0x010a}
0x682c…684a Head {h00=0x001a, h01=0x0050, text=» RF RA900 SECOND BYTE «, t00=0x0042, t01=0x011c}
0x684a…6876 Head {h00=0x0028, h01=0x0050, text=»RA200 EQU * ENTRY LABEL FROM RETTAB «, t00=0x0042, t01=0x013a}
0x6876…688e Head {h00=0x0014, h01=0x0050, text=» LC A2,CONATT,A2«, t00=0x0042, t01=0x0166}
0x688e…68a2 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x0042, t01=0x017e}
0x68a2…68b4 (67, 0, 400) Head {h00=0x000e, h01=0x0050, text=» ORR A7,A2«, t00=0x0043, t01=0x0004}
0x68b4…68da Head {h00=0x0022, h01=0x0050, text=» CWK A7,LBVDU INVALID ADDRESS «, t00=0x0043, t01=0x0016}
0x68da…68f4 Head {h00=0x0016, h01=0x0050, text=» RF(NL) RA800 YES «, t00=0x0043, t01=0x003c}
0x68f4…6916 Head {h00=0x001e, h01=0x0050, text=» LDK A1,IORACH NEXT LABEL «, t00=0x0043, t01=0x0056}
0x6916…6930 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0043, t01=0x0078}
0x6930…6942 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0043, t01=0x0092}
0x6942…695e Head {h00=0x0018, h01=0x0050, text=» RF RA900 CHAR. BYTE«, t00=0x0043, t01=0x00a4}
0x695e…698a Head {h00=0x0028, h01=0x0050, text=»RA250 EQU * ENTRY LABEL FROM RETTAB «, t00=0x0043, t01=0x00c0}
0x698a…69a0 Head {h00=0x0012, h01=0x0050, text=» LDK A1,IORDER«, t00=0x0043, t01=0x00ec}
0x69a0…69ba Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0043, t01=0x0102}
0x69ba…69ce Head {h00=0x0010, h01=0x0050, text=»RA300 EQU * «, t00=0x0043, t01=0x011c}
0x69ce…69f4 Head {h00=0x0022, h01=0x0050, text=» SCR A2,A3 STORE IN VDU-BUFFER«, t00=0x0043, t01=0x0130}
0x69f4…6a0c Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x0043, t01=0x0156}
0x6a0c…6a1e Head {h00=0x000e, h01=0x0050, text=» ORK A1,1 «, t00=0x0043, t01=0x016e}
0x6a1e…6a36 Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x0043, t01=0x0180}
0x6a36…6a48 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0044, t01=0x0008}
0x6a48…6a5a Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0044, t01=0x001a}
0x6a5a…6a7e Head {h00=0x0020, h01=0x0050, text=» CF A14,LINWRP CHECK WRAP =1«, t00=0x0044, t01=0x002c}
0x6a7e…6aa2 Head {h00=0x0020, h01=0x0050, text=» CWR A4,A7 ALL REPEATED? =1 «, t00=0x0044, t01=0x0050}
0x6aa2…6abe Head {h00=0x0018, h01=0x0050, text=» RB(NE) RA300 NO =1 «, t00=0x0044, t01=0x0074}
0x6abe…6ae8 Head {h00=0x0026, h01=0x0050, text=» ORKL A10,PTORD INDICATE PT ORDER «, t00=0x0044, t01=0x0090}
0x6ae8…6b06 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0044, t01=0x00ba}
0x6b06…6b18 Head {h00=0x000e, h01=0x0050, text=» RF RA900 «, t00=0x0044, t01=0x00d8}
0x6b18…6b2c Head {h00=0x0010, h01=0x0050, text=»RA800 EQU * «, t00=0x0044, t01=0x00ea}
0x6b2c…6b52 Head {h00=0x0022, h01=0x0050, text=» ORKL A10,THROWB THROW IT AWAY«, t00=0x0044, t01=0x00fe}
0x6b52…6b70 Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 RETURN CODE «, t00=0x0044, t01=0x0124}
0x6b70…6b84 Head {h00=0x0010, h01=0x0050, text=»RA900 EQU * «, t00=0x0044, t01=0x0142}
0x6b84…6b94 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0044, t01=0x0156}
0x6b94…6ba2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0044, t01=0x0166}
0x6ba2…6be0 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0044, t01=0x0174}
0x6be0…6c1e Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0045, t01=0x0022}
0x6c1e…6c5c Head {h00=0x003a, h01=0x0050, text=»* EUA ERASE UNPRO. TO ADDRESS *«, t00=0x0045, t01=0x0060}
0x6c5c…6c9a Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0045, t01=0x009e}
0x6c9a…6cd8 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0045, t01=0x00dc}
0x6cd8…6cec Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0045, t01=0x011a}
0x6cec…6cf6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x012e}
0x6cf6…6d10 Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x0045, t01=0x0138}
0x6d10…6d24 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0045, t01=0x0152}
0x6d24…6d3a Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x0045, t01=0x0166}
0x6d3a…6d50 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0045, t01=0x017c}
0x6d50…6d66 (70, 0, 400) Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0046, t01=0x0004}
0x6d66…6d7c Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0046, t01=0x001a}
0x6d7c…6d92 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0046, t01=0x0030}
0x6d92…6da8 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x0046, t01=0x0046}
0x6da8…6dc0 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0046, t01=0x005c}
0x6dc0…6de0 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0046, t01=0x0074}
0x6de0…6df8 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0046, t01=0x0094}
0x6df8…6e10 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0046, t01=0x00ac}
0x6e10…6e1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00c4}
0x6e1a…6e5a Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0046, t01=0x00ce}
0x6e5a…6e6c Head {h00=0x000e, h01=0x0050, text=»EUA EQU * «, t00=0x0046, t01=0x010e}
0x6e6c…6e8e Head {h00=0x001e, h01=0x0050, text=» LDK A1,IOEUA1 NEXT LABEL «, t00=0x0046, t01=0x0120}
0x6e8e…6ea8 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0046, t01=0x0142}
0x6ea8…6eba Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0046, t01=0x015c}
0x6eba…6ed8 Head {h00=0x001a, h01=0x0050, text=» RF EUA900 FIRST BYTE «, t00=0x0046, t01=0x016e}
0x6ed8…6f04 Head {h00=0x0028, h01=0x0050, text=»EUA100 EQU * ENTRY LABEL FROM RETTAB«, t00=0x0046, t01=0x018c}
0x6f04…6f24 Head {h00=0x001c, h01=0x0050, text=» LC A7,CONATT,A2 CONVERT«, t00=0x0047, t01=0x0028}
0x6f24…6f38 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/3F «, t00=0x0047, t01=0x0048}
0x6f38…6f4a Head {h00=0x000e, h01=0x0050, text=» SLL A7,6 «, t00=0x0047, t01=0x005c}
0x6f4a…6f6c Head {h00=0x001e, h01=0x0050, text=» LDK A1,IOEUA2 NEXT LABEL «, t00=0x0047, t01=0x006e}
0x6f6c…6f86 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0047, t01=0x0090}
0x6f86…6f98 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0047, t01=0x00aa}
0x6f98…6fb6 Head {h00=0x001a, h01=0x0050, text=» RF EUA900 SECOND BYTE«, t00=0x0047, t01=0x00bc}
0x6fb6…6fe2 Head {h00=0x0028, h01=0x0050, text=»EUA200 EQU * ENTRY LABEL FROM RETTAB«, t00=0x0047, t01=0x00da}
0x6fe2…6ffa Head {h00=0x0014, h01=0x0050, text=» LC A2,CONATT,A2«, t00=0x0047, t01=0x0106}
0x6ffa…700e Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x0047, t01=0x011e}
0x700e…7020 Head {h00=0x000e, h01=0x0050, text=» ORR A7,A2«, t00=0x0047, t01=0x0132}
0x7020…7042 Head {h00=0x001e, h01=0x0050, text=» LDK A1,IORDER NEXT LABEL «, t00=0x0047, t01=0x0144}
0x7042…705c Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0047, t01=0x0166}
0x705c…7082 Head {h00=0x0022, h01=0x0050, text=» CWK A1,LBVDU INVALID ADDRESS?«, t00=0x0047, t01=0x0180}
0x7082…709c Head {h00=0x0016, h01=0x0050, text=» RF(NL) EUA800 YES«, t00=0x0048, t01=0x0016}
0x709c…70ae Head {h00=0x000e, h01=0x0050, text=» LDR A1,A7«, t00=0x0048, t01=0x0030}
0x70ae…70dc Head {h00=0x002a, h01=0x0050, text=» CF A14,ERASUA ERASE UNPRO. TO ADDRESS«, t00=0x0048, t01=0x0042}
0x70dc…70f2 Head {h00=0x0012, h01=0x0050, text=» CF A14,SCRINF«, t00=0x0048, t01=0x0070}
0x70f2…7110 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0048, t01=0x0086}
0x7110…713a Head {h00=0x0026, h01=0x0050, text=» ORKL A10,PTORD INDICATE PT ORDER «, t00=0x0048, t01=0x00a4}
0x713a…714c Head {h00=0x000e, h01=0x0050, text=» RF EUA900«, t00=0x0048, t01=0x00ce}
0x714c…7160 Head {h00=0x0010, h01=0x0050, text=»EUA800 EQU *«, t00=0x0048, t01=0x00e0}
0x7160…717e Head {h00=0x001a, h01=0x0050, text=» ORKL A10,THROWB RUBB.«, t00=0x0048, t01=0x00f4}
0x717e…719c Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 RETURN CODE «, t00=0x0048, t01=0x0112}
0x719c…71b0 Head {h00=0x0010, h01=0x0050, text=»EUA900 EQU *«, t00=0x0048, t01=0x0130}
0x71b0…71c0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0048, t01=0x0144}
0x71c0…71ce Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0048, t01=0x0154}
0x71ce…720e Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0048, t01=0x0162}
0x720e…724e Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0049, t01=0x0012}
0x724e…728e Head {h00=0x003c, h01=0x0050, text=»* CHAR. < /20 BUT NOT ORDER *«, t00=0x0049, t01=0x0052}
0x728e…72ce Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0049, t01=0x0092}
0x72ce…730e Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0049, t01=0x00d2}
0x730e…7322 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0049, t01=0x0112}
0x7322…732c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0126}
0x732c…7346 Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x0049, t01=0x0130}
0x7346…735a Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0049, t01=0x014a}
0x735a…737e Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x0049, t01=0x015e}
0x737e…739c Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0049, t01=0x0182}
0x739c…73b2 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x004a, t01=0x0010}
0x73b2…73da Head {h00=0x0024, h01=0x0050, text=»* A6= INTERNAL LINE FLAG ADDRESS«, t00=0x004a, t01=0x0026}
0x73da…73f0 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x004a, t01=0x004e}
0x73f0…7406 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x004a, t01=0x0064}
0x7406…741e Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x004a, t01=0x007a}
0x741e…743e Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x004a, t01=0x0092}
0x743e…7456 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x004a, t01=0x00b2}
0x7456…746e Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x004a, t01=0x00ca}
0x746e…7478 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x00e2}
0x7478…74b0 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x004a, t01=0x00ec}
0x74b0…74c2 Head {h00=0x000e, h01=0x0050, text=»ESC EQU * «, t00=0x004a, t01=0x0124}
0x74c2…74ec Head {h00=0x0026, h01=0x0050, text=» ORKL A10,LICREC INDICATE COMMAND «, t00=0x004a, t01=0x0136}
0x74ec…7510 Head {h00=0x0020, h01=0x0050, text=» LDK A1,1 STOP ORDER PROCESS«, t00=0x004a, t01=0x0160}
0x7510…7522 Head {h00=0x000e, h01=0x0050, text=» RF CHARET«, t00=0x004a, t01=0x0184}
0x7522…7536 Head {h00=0x0010, h01=0x0050, text=»INVAL EQU * «, t00=0x004b, t01=0x0008}
0x7536…755c Head {h00=0x0022, h01=0x0050, text=» ORKL A10,/9800 END UNPACKING «, t00=0x004b, t01=0x001c}
0x755c…756e Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x004b, t01=0x0042}
0x756e…7580 Head {h00=0x000e, h01=0x0050, text=» RF CHARET«, t00=0x004b, t01=0x0054}
0x7580…7594 Head {h00=0x0010, h01=0x0050, text=»NULCHA EQU *«, t00=0x004b, t01=0x0066}
0x7594…75a4 Head {h00=0x000c, h01=0x0050, text=»NL EQU *«, t00=0x004b, t01=0x007a}
0x75a4…75b4 Head {h00=0x000c, h01=0x0050, text=»FF EQU *«, t00=0x004b, t01=0x008a}
0x75b4…75c4 Head {h00=0x000c, h01=0x0050, text=»EM EQU *«, t00=0x004b, t01=0x009a}
0x75c4…75d4 Head {h00=0x000c, h01=0x0050, text=»CR EQU *«, t00=0x004b, t01=0x00aa}
0x75d4…75f6 Head {h00=0x001e, h01=0x0050, text=» CF A14,LINWRP CHECK WRAP «, t00=0x004b, t01=0x00ba}
0x75f6…7614 Head {h00=0x001a, h01=0x0050, text=» SCR A2,A3 STORE CHAR.«, t00=0x004b, t01=0x00dc}
0x7614…762c Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x004b, t01=0x00fa}
0x762c…763e Head {h00=0x000e, h01=0x0050, text=» ORK A1,1 «, t00=0x004b, t01=0x0112}
0x763e…7656 Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x004b, t01=0x0124}
0x7656…7680 Head {h00=0x0026, h01=0x0050, text=» XRKL A10,PTORD INDICATE PT ORDER «, t00=0x004b, t01=0x013c}
0x7680…7692 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x004b, t01=0x0166}
0x7692…76a4 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x004b, t01=0x0178}
0x76a4…76be Head {h00=0x0016, h01=0x0050, text=» LDK A1,0 CONTINUE«, t00=0x004b, t01=0x018a}
0x76be…76d2 Head {h00=0x0010, h01=0x0050, text=»CHARET EQU *«, t00=0x004c, t01=0x0014}
0x76d2…76e2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x004c, t01=0x0028}
0x76e2…76f0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004c, t01=0x0038}
0x76f0…7738 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x004c, t01=0x0046}
0x7738…7780 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x004c, t01=0x008e}
0x7780…77c8 Head {h00=0x0044, h01=0x0050, text=»* PACKSY PACK DC BUFFER IN SYSTEM MODE *«, t00=0x004c, t01=0x00d6}
0x77c8…7810 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x004c, t01=0x011e}
0x7810…7858 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x004c, t01=0x0166}
0x7858…786c Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x004d, t01=0x001e}
0x786c…7876 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0032}
0x7876…7888 Head {h00=0x000e, h01=0x0050, text=»* A2= CHAR«, t00=0x004d, t01=0x003c}
0x7888…78ac Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x004d, t01=0x004e}
0x78ac…78ca Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x004d, t01=0x0072}
0x78ca…78e0 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x004d, t01=0x0090}
0x78e0…78f6 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x004d, t01=0x00a6}
0x78f6…7918 Head {h00=0x001e, h01=0x0050, text=»* A8= ADDRESS IN DC-BUFFER«, t00=0x004d, t01=0x00bc}
0x7918…7938 Head {h00=0x001c, h01=0x0050, text=»* A9= INDEX IN DC-BUFFER«, t00=0x004d, t01=0x00de}
0x7938…7958 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x004d, t01=0x00fe}
0x7958…7976 Head {h00=0x001a, h01=0x0050, text=»* A12= BUFFER ADDRESS «, t00=0x004d, t01=0x011e}
0x7976…798e Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x004d, t01=0x013c}
0x798e…7998 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0154}
0x7998…79e0 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x004d, t01=0x015e}
0x79e0…79f4 Head {h00=0x0010, h01=0x0050, text=»PACKSY EQU *«, t00=0x004e, t01=0x0016}
0x79f4…7a06 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x004e, t01=0x002a}
0x7a06…7a20 Head {h00=0x0016, h01=0x0050, text=» LDKL A9,0 COUNTER«, t00=0x004e, t01=0x003c}
0x7a20…7a48 Head {h00=0x0024, h01=0x0050, text=» LD A3,CURPOS,A11 GET START POS.«, t00=0x004e, t01=0x0056}
0x7a48…7a72 Head {h00=0x0026, h01=0x0050, text=» CWK A3,/800 ANY CHAR. ON DISPLAY?«, t00=0x004e, t01=0x007e}
0x7a72…7a8a Head {h00=0x0014, h01=0x0050, text=» RF(E) PASY40 NO«, t00=0x004e, t01=0x00a8}
0x7a8a…7ab8 Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x004e, t01=0x00c0}
0x7ab8…7aca Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x004e, t01=0x00ee}
0x7aca…7af2 Head {h00=0x0024, h01=0x0050, text=» SUR A1,A3 GET LENGTH OF MESSAGE«, t00=0x004e, t01=0x0100}
0x7af2…7b18 Head {h00=0x0022, h01=0x0050, text=» RF(NN) PASY10 NOT WRAP AROUND«, t00=0x004e, t01=0x0128}
0x7b18…7b44 Head {h00=0x0028, h01=0x0050, text=» LDKL A1,LBVDU-1 LAST POS. ON SCREEN«, t00=0x004e, t01=0x014e}
0x7b44…7b68 Head {h00=0x0020, h01=0x0050, text=» SUR A1,A3 GET LENGTH AGAIN «, t00=0x004e, t01=0x017a}
0x7b68…7b7c Head {h00=0x0010, h01=0x0050, text=»PASY10 EQU *«, t00=0x004f, t01=0x000e}
0x7b7c…7ba0 Head {h00=0x0020, h01=0x0050, text=» CWK A1,256 ILLEGAL LENGTH? «, t00=0x004f, t01=0x0022}
0x7ba0…7bba Head {h00=0x0016, h01=0x0050, text=» RF(NG) PASY20 NO «, t00=0x004f, t01=0x0046}
0x7bba…7bdc Head {h00=0x001e, h01=0x0050, text=» LDKL A1,256 ADJUST LENGTH«, t00=0x004f, t01=0x0060}
0x7bdc…7bf0 Head {h00=0x0010, h01=0x0050, text=»PASY20 EQU *«, t00=0x004f, t01=0x0082}
0x7bf0…7c06 Head {h00=0x0012, h01=0x0050, text=» ADKL A3,BVDU «, t00=0x004f, t01=0x0096}
0x7c06…7c1a Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x004f, t01=0x00ac}
0x7c1a…7c2e Head {h00=0x0010, h01=0x0050, text=»PASY30 EQU *«, t00=0x004f, t01=0x00c0}
0x7c2e…7c4e Head {h00=0x001c, h01=0x0050, text=» CWR A1,A9 ALL EXAMINED?«, t00=0x004f, t01=0x00d4}
0x7c4e…7c68 Head {h00=0x0016, h01=0x0050, text=» RF(E) PASY40 YES «, t00=0x004f, t01=0x00f4}
0x7c68…7c92 Head {h00=0x0026, h01=0x0050, text=» LCR A2,A3 GET CHAR IN VDU BUFFER «, t00=0x004f, t01=0x010e}
0x7c92…7ca4 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x004f, t01=0x0138}
0x7ca4…7cc4 Head {h00=0x001c, h01=0x0050, text=» CWK A2,NULL NULL CHAR.?«, t00=0x004f, t01=0x014a}
0x7cc4…7cea Head {h00=0x0022, h01=0x0050, text=» RB(E) PASY30 YES, DON'T STORE«, t00=0x004f, t01=0x016a}
0x7cea…7d18 Head {h00=0x002a, h01=0x0050, text=» CF A14,PDCCH STORE CHAR. IN DC BUFFER«, t00=0x004f, t01=0x0190}
0x7d18…7d2a Head {h00=0x000e, h01=0x0050, text=» RB PASY30«, t00=0x0050, t01=0x002e}
0x7d2a…7d3e Head {h00=0x0010, h01=0x0050, text=»PASY40 EQU *«, t00=0x0050, t01=0x0040}
0x7d3e…7d66 Head {h00=0x0024, h01=0x0050, text=» LDK A1,0 INDICATE LAST IN CHAIN«, t00=0x0050, t01=0x0054}
0x7d66…7d88 Head {h00=0x001e, h01=0x0050, text=» CF A14,DCWRIT SEND BUFFER«, t00=0x0050, t01=0x007c}
0x7d88…7db2 Head {h00=0x0026, h01=0x0050, text=» LDR A8,A12 GET BUFFER TO RELEASE «, t00=0x0050, t01=0x009e}
0x7db2…7dd8 Head {h00=0x0022, h01=0x0050, text=» CF A14,RELBUF RELEASE BUFFER «, t00=0x0050, t01=0x00c8}
0x7dd8…7de4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0050, t01=0x00ee}
0x7de4…7df4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0050, t01=0x00fa}
0x7df4…7e02 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0050, t01=0x010a}
0x7e02…7e48 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0050, t01=0x0118}
0x7e48…7e8e Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0050, t01=0x015e}
0x7e8e…7ed4 Head {h00=0x0042, h01=0x0050, text=»* UNPSYS UNPACK DC BUFFER IN SYSTEM MODE * «, t00=0x0051, t01=0x0014}
0x7ed4…7f1a Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0051, t01=0x005a}
0x7f1a…7f60 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0051, t01=0x00a0}
0x7f60…7f74 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0051, t01=0x00e6}
0x7f74…7f7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x00fa}
0x7f7e…7f92 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0051, t01=0x0104}
0x7f92…7fb6 Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x0051, t01=0x0118}
0x7fb6…7fd4 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0051, t01=0x013c}
0x7fd4…7ff6 Head {h00=0x001e, h01=0x0050, text=»* A5= LAST IN ROW REL POS «, t00=0x0051, t01=0x015a}
0x7ff6…801e Head {h00=0x0024, h01=0x0050, text=»* A6= INTERNAL LINE FLAG ADDRESS«, t00=0x0051, t01=0x017c}
0x801e…8040 Head {h00=0x001e, h01=0x0050, text=»* A8= ADDRESS IN DC-BUFFER«, t00=0x0052, t01=0x0014}
0x8040…8060 Head {h00=0x001c, h01=0x0050, text=»* A9= INDEX IN DC-BUFFER«, t00=0x0052, t01=0x0036}
0x8060…8078 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0052, t01=0x0056}
0x8078…8098 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0052, t01=0x006e}
0x8098…80b0 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0052, t01=0x008e}
0x80b0…80c8 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0052, t01=0x00a6}
0x80c8…80d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x00be}
0x80d2…8118 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0052, t01=0x00c8}
0x8118…812c Head {h00=0x0010, h01=0x0050, text=»UNPSYS EQU *«, t00=0x0052, t01=0x010e}
0x812c…813e Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0052, t01=0x0122}
0x813e…8156 Head {h00=0x0014, h01=0x0050, text=» LD A1,KBINH,A11«, t00=0x0052, t01=0x0134}
0x8156…8168 Head {h00=0x000e, h01=0x0050, text=» ORK A1,3 «, t00=0x0052, t01=0x014c}
0x8168…8180 Head {h00=0x0014, h01=0x0050, text=» ST A1,KBINH,A11«, t00=0x0052, t01=0x015e}
0x8180…8196 Head {h00=0x0012, h01=0x0050, text=» CF A14,LMP4ON«, t00=0x0052, t01=0x0176}
0x8196…81c4 Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x0052, t01=0x018c}
0x81c4…81e6 Head {h00=0x001e, h01=0x0050, text=» LDR A3,A4 CURSOR ADDRESS «, t00=0x0053, t01=0x002a}
0x81e6…81fc Head {h00=0x0012, h01=0x0050, text=» ADKL A3,BVDU «, t00=0x0053, t01=0x004c}
0x81fc…8222 Head {h00=0x0022, h01=0x0050, text=» ADR A3,A11 VDU BUFFER ADDRESS«, t00=0x0053, t01=0x0062}
0x8222…8252 Head {h00=0x002c, h01=0x0050, text=» LD A8,BUFPNT,A11 GET DC BUFFER ADDRESS «, t00=0x0053, t01=0x0088}
0x8252…8278 Head {h00=0x0022, h01=0x0050, text=» SUR A9,A9 INDEX IN DC BUFFER «, t00=0x0053, t01=0x00b8}
0x8278…828c Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x0053, t01=0x00de}
0x828c…82a2 Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x0053, t01=0x00f2}
0x82a2…82cc Head {h00=0x0026, h01=0x0050, text=» CF A14,LINE GET INTERNAL LINEFLAG«, t00=0x0053, t01=0x0108}
0x82cc…82e0 Head {h00=0x0010, h01=0x0050, text=»UNPS05 EQU *«, t00=0x0053, t01=0x0132}
0x82e0…830e Head {h00=0x002a, h01=0x0050, text=» CF A14,GDCCH GET CHAR. IN DC BUFFER «, t00=0x0053, t01=0x0146}
0x830e…8330 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 ANYTHING LEFT? «, t00=0x0053, t01=0x0174}
0x8330…834a Head {h00=0x0016, h01=0x0050, text=» RF(NZ) UNPS60 NO «, t00=0x0054, t01=0x0008}
0x834a…8364 Head {h00=0x0016, h01=0x0050, text=» CWK A2,/31 BIND? «, t00=0x0054, t01=0x0022}
0x8364…8386 Head {h00=0x001e, h01=0x0050, text=» RF(E) UNPS50 YES,PERHAPS «, t00=0x0054, t01=0x003c}
0x8386…839a Head {h00=0x0010, h01=0x0050, text=»UNPS07 EQU *«, t00=0x0054, t01=0x005e}
0x839a…83b4 Head {h00=0x0016, h01=0x0050, text=» CWK A2,/20 ORDER?«, t00=0x0054, t01=0x0072}
0x83b4…83ce Head {h00=0x0016, h01=0x0050, text=» RF(NL) UNPS40 NO «, t00=0x0054, t01=0x008c}
0x83ce…83ec Head {h00=0x001a, h01=0x0050, text=» CWK A2,/0A NEW LINE? «, t00=0x0054, t01=0x00a6}
0x83ec…8406 Head {h00=0x0016, h01=0x0050, text=» RF(NE) UNPS10 NO «, t00=0x0054, t01=0x00c4}
0x8406…842e Head {h00=0x0024, h01=0x0050, text=» CF A14,NLROUT PERFORM NEW LINE «, t00=0x0054, t01=0x00de}
0x842e…8440 Head {h00=0x000e, h01=0x0050, text=» RB UNPS05«, t00=0x0054, t01=0x0106}
0x8440…8454 Head {h00=0x0010, h01=0x0050, text=»UNPS10 EQU *«, t00=0x0054, t01=0x0118}
0x8454…846c Head {h00=0x0014, h01=0x0050, text=» CWK A2,/1C IFS?«, t00=0x0054, t01=0x012c}
0x846c…8486 Head {h00=0x0016, h01=0x0050, text=» RF(NE) UNPS20 NO «, t00=0x0054, t01=0x0144}
0x8486…84a8 Head {h00=0x001e, h01=0x0050, text=» LDK A2,/2A REPLACE WITH *«, t00=0x0054, t01=0x015e}
0x84a8…84ba Head {h00=0x000e, h01=0x0050, text=» RF UNPS40«, t00=0x0054, t01=0x0180}
0x84ba…84ce (85, 0, 400) Head {h00=0x0010, h01=0x0050, text=»UNPS20 EQU *«, t00=0x0055, t01=0x0004}
0x84ce…84e6 Head {h00=0x0014, h01=0x0050, text=» CWK A2,/1E IRS?«, t00=0x0055, t01=0x0018}
0x84e6…8500 Head {h00=0x0016, h01=0x0050, text=» RF(NE) UNPS30 NO «, t00=0x0055, t01=0x0030}
0x8500…8522 Head {h00=0x001e, h01=0x0050, text=» LDK A2,/3B REPLACE WITH ;«, t00=0x0055, t01=0x004a}
0x8522…8534 Head {h00=0x000e, h01=0x0050, text=» RF UNPS40«, t00=0x0055, t01=0x006c}
0x8534…8548 Head {h00=0x0010, h01=0x0050, text=»UNPS30 EQU *«, t00=0x0055, t01=0x007e}
0x8548…8562 Head {h00=0x0016, h01=0x0050, text=» CWK A2,NULL NULL?«, t00=0x0055, t01=0x0092}
0x8562…857c Head {h00=0x0016, h01=0x0050, text=» RF(NE) UNPS40 NO «, t00=0x0055, t01=0x00ac}
0x857c…85a2 Head {h00=0x0022, h01=0x0050, text=» LDK A2,/20 REPLACE WITH SPACE«, t00=0x0055, t01=0x00c6}
0x85a2…85b6 Head {h00=0x0010, h01=0x0050, text=»UNPS40 EQU *«, t00=0x0055, t01=0x00ec}
0x85b6…85d8 Head {h00=0x001e, h01=0x0050, text=» CF A14,LINWRP CHECK WRAP «, t00=0x0055, t01=0x0100}
0x85d8…85fe Head {h00=0x0022, h01=0x0050, text=» SCR A2,A3 STORE IN VDU BUFFER«, t00=0x0055, t01=0x0122}
0x85fe…8616 Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x0055, t01=0x0148}
0x8616…8628 Head {h00=0x000e, h01=0x0050, text=» ORK A1,1 «, t00=0x0055, t01=0x0160}
0x8628…8640 Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x0055, t01=0x0172}
0x8640…8652 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0055, t01=0x018a}
0x8652…8664 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0056, t01=0x000c}
0x8664…8676 Head {h00=0x000e, h01=0x0050, text=» RB UNPS05«, t00=0x0056, t01=0x001e}
0x8676…868a Head {h00=0x0010, h01=0x0050, text=»UNPS50 EQU *«, t00=0x0056, t01=0x0030}
0x868a…86a0 Head {h00=0x0012, h01=0x0050, text=» CF A14,GDCCH «, t00=0x0056, t01=0x0044}
0x86a0…86c2 Head {h00=0x001e, h01=0x0050, text=» ANK A2,/FE SHURE OF BIND?«, t00=0x0056, t01=0x005a}
0x86c2…86de Head {h00=0x0018, h01=0x0050, text=» RF(Z) UNPS55 ALMOST«, t00=0x0056, t01=0x007c}
0x86de…86f0 Head {h00=0x000e, h01=0x0050, text=» SUKL A8,2«, t00=0x0056, t01=0x0098}
0x86f0…8702 Head {h00=0x000e, h01=0x0050, text=» SUKL A9,2«, t00=0x0056, t01=0x00aa}
0x8702…8718 Head {h00=0x0012, h01=0x0050, text=» CF A14,GDCCH «, t00=0x0056, t01=0x00bc}
0x8718…872a Head {h00=0x000e, h01=0x0050, text=» RB UNPS07«, t00=0x0056, t01=0x00d2}
0x872a…873e Head {h00=0x0010, h01=0x0050, text=»UNPS55 EQU *«, t00=0x0056, t01=0x00e4}
0x873e…8768 Head {h00=0x0026, h01=0x0050, text=» LDK A1,MYJOB INDICATE MY JOB MODE«, t00=0x0056, t01=0x00f8}
0x8768…8792 Head {h00=0x0026, h01=0x0050, text=» ADKL A1,/8000 NEW MODE ACTIVATION«, t00=0x0056, t01=0x0122}
0x8792…87ac Head {h00=0x0016, h01=0x0050, text=» ST A1,SNAMOD,A11 «, t00=0x0056, t01=0x014c}
0x87ac…87ca Head {h00=0x001a, h01=0x0050, text=» LDKL A10,1 NO DISPLAY«, t00=0x0056, t01=0x0166}
0x87ca…87dc Head {h00=0x000e, h01=0x0050, text=» RF UNPS70«, t00=0x0056, t01=0x0184}
0x87dc…87f0 Head {h00=0x0010, h01=0x0050, text=»UNPS60 EQU *«, t00=0x0057, t01=0x0008}
0x87f0…8808 Head {h00=0x0014, h01=0x0050, text=» LDKL A5,LBVDU+1«, t00=0x0057, t01=0x001c}
0x8808…881a Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x0057, t01=0x0034}
0x881a…884c Head {h00=0x002e, h01=0x0050, text=» CF A14,STOINF SAVE NEW SCREEN INFORMATION«, t00=0x0057, t01=0x0046}
0x884c…8860 Head {h00=0x0010, h01=0x0050, text=» LDKL A10,0 «, t00=0x0057, t01=0x0078}
0x8860…8874 Head {h00=0x0010, h01=0x0050, text=»UNPS70 EQU *«, t00=0x0057, t01=0x008c}
0x8874…88a4 Head {h00=0x002c, h01=0x0050, text=» LD A8,BUFPNT,A11 GET BUFFER TO RELEASE «, t00=0x0057, t01=0x00a0}
0x88a4…88ca Head {h00=0x0022, h01=0x0050, text=» CF A14,RELBUF RELEASE BUFFER «, t00=0x0057, t01=0x00d0}
0x88ca…88d6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0057, t01=0x00f6}
0x88d6…88e6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0057, t01=0x0102}
0x88e6…88f4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0057, t01=0x0112}
0x88f4…8938 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0057, t01=0x0120}
0x8938…897c Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0057, t01=0x0164}
0x897c…89b4 Head {h00=0x0034, h01=0x0050, text=»* GETNXT GET AND CHECK NEXT BUFFER «, t00=0x0058, t01=0x0018}
0x89b4…89f8 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0058, t01=0x0050}
0x89f8…8a3c Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0058, t01=0x0094}
0x8a3c…8a50 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0058, t01=0x00d8}
0x8a50…8a5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x00ec}
0x8a5a…8a74 Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x0058, t01=0x00f6}
0x8a74…8a94 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0058, t01=0x0110}
0x8a94…8ab2 Head {h00=0x001a, h01=0x0050, text=»* A12= BUFFER ADDRESS «, t00=0x0058, t01=0x0130}
0x8ab2…8aca Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0058, t01=0x014e}
0x8aca…8ad4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0166}
0x8ad4…8b18 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0058, t01=0x0170}
0x8b18…8b2c Head {h00=0x0010, h01=0x0050, text=»GETNXT EQU *«, t00=0x0059, t01=0x0024}
0x8b2c…8b3e Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0059, t01=0x0038}
0x8b3e…8b6c Head {h00=0x002a, h01=0x0050, text=» CF A14,SAVE2 SAVE UNPACK INFORMATION «, t00=0x0059, t01=0x004a}
0x8b6c…8b9c Head {h00=0x002c, h01=0x0050, text=» LD A8,BUFPNT,A11 GET BUFFER TO RELEASE «, t00=0x0059, t01=0x0078}
0x8b9c…8bc2 Head {h00=0x0022, h01=0x0050, text=» CF A14,RELBUF RELEASE BUFFER «, t00=0x0059, t01=0x00a8}
0x8bc2…8bd8 Head {h00=0x0012, h01=0x0050, text=» IFT DISHOW=2 «, t00=0x0059, t01=0x00ce}
0x8bd8…8bf0 Head {h00=0x0014, h01=0x0050, text=» LC A1,TCT01,A11«, t00=0x0059, t01=0x00e4}
0x8bf0…8c16 Head {h00=0x0022, h01=0x0050, text=» CCK A1,VDUCOD PRINTER UNPACK?«, t00=0x0059, t01=0x00fc}
0x8c16…8c30 Head {h00=0x0016, h01=0x0050, text=» RF(NE) GETC10 YES«, t00=0x0059, t01=0x0122}
0x8c30…8c5e Head {h00=0x002a, h01=0x0050, text=» CF A14,DISMOD DISPLAY MODIFIED FIELDS«, t00=0x0059, t01=0x013c}
0x8c5e…8c6a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0059, t01=0x016a}
0x8c6a…8c7c Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0059, t01=0x0176}
0x8c7c…8c90 Head {h00=0x0010, h01=0x0050, text=»GETC10 EQU *«, t00=0x0059, t01=0x0188}
0x8c90…8cb0 Head {h00=0x001c, h01=0x0050, text=» CF A14,WAIT SYNCHRONIZE«, t00=0x005a, t01=0x000c}
0x8cb0…8cd6 Head {h00=0x0022, h01=0x0050, text=» LD A2,ECBEL,A8 SAVE LENGTH =4«, t00=0x005a, t01=0x002c}
0x8cd6…8cf4 Head {h00=0x001a, h01=0x0050, text=» ST A2,DCLENG,A11 . =4«, t00=0x005a, t01=0x0052}
0x8cf4…8d06 Head {h00=0x000e, h01=0x0050, text=» LDR A9,A1«, t00=0x005a, t01=0x0070}
0x8d06…8d1c Head {h00=0x0012, h01=0x0050, text=» CF A14,REST2 «, t00=0x005a, t01=0x0082}
0x8d1c…8d3e Head {h00=0x001e, h01=0x0050, text=» LDR A1,A9 GET RETURN CODE«, t00=0x005a, t01=0x0098}
0x8d3e…8d6a Head {h00=0x0028, h01=0x0050, text=» SRC A1,1 FIRST OR MODDLE IN CHAIN? «, t00=0x005a, t01=0x00ba}
0x8d6a…8d84 Head {h00=0x0016, h01=0x0050, text=» RF(NN) GETC30 NO «, t00=0x005a, t01=0x00e6}
0x8d84…8dac Head {h00=0x0024, h01=0x0050, text=» LDR A1,A10 GET INTERNAL STATUS «, t00=0x005a, t01=0x0100}
0x8dac…8ddc Head {h00=0x002c, h01=0x0050, text=» ANKL A1,LICREC LAST IN CHAIN RECEIVED? «, t00=0x005a, t01=0x0128}
0x8ddc…8df4 Head {h00=0x0014, h01=0x0050, text=» RF(Z) GETC60 NO«, t00=0x005a, t01=0x0158}
0x8df4…8e0c Head {h00=0x0014, h01=0x0050, text=» LC A1,TCT01,A11«, t00=0x005a, t01=0x0170}
0x8e0c…8e32 Head {h00=0x0022, h01=0x0050, text=» CCK A1,VDUCOD PRINTER UNPACK?«, t00=0x005a, t01=0x0188}
0x8e32…8e4c Head {h00=0x0016, h01=0x0050, text=» RF(NE) GETC20 YES«, t00=0x005b, t01=0x001e}
0x8e4c…8e80 Head {h00=0x0030, h01=0x0050, text=» CF A14,P2WCC TAKE CARE OF WCC AFTER UPDATE «, t00=0x005b, t01=0x0038}
0x8e80…8e94 Head {h00=0x0010, h01=0x0050, text=»GETC20 EQU *«, t00=0x005b, t01=0x006c}
0x8e94…8ec0 Head {h00=0x0028, h01=0x0050, text=» XRKL A10,LICREC RESET LAST IN CHAIN«, t00=0x005b, t01=0x0080}
0x8ec0…8ee2 Head {h00=0x001e, h01=0x0050, text=» ORKL A10,NEWCH NEW CHAIN «, t00=0x005b, t01=0x00ac}
0x8ee2…8ef4 Head {h00=0x000e, h01=0x0050, text=» RF GETC60«, t00=0x005b, t01=0x00ce}
0x8ef4…8f08 Head {h00=0x0010, h01=0x0050, text=»GETC30 EQU *«, t00=0x005b, t01=0x00e0}
0x8f08…8f32 Head {h00=0x0026, h01=0x0050, text=» SRC A1,1 LAST IN CHAIN RECEIVED? «, t00=0x005b, t01=0x00f4}
0x8f32…8f4c Head {h00=0x0016, h01=0x0050, text=» RF(NN) GETC90 NO «, t00=0x005b, t01=0x011e}
0x8f4c…8f60 Head {h00=0x0010, h01=0x0050, text=»GETC40 EQU *«, t00=0x005b, t01=0x0138}
0x8f60…8f88 Head {h00=0x0024, h01=0x0050, text=» LDR A1,A10 GET INTERNAL STATUS «, t00=0x005b, t01=0x014c}
0x8f88…8fb8 Head {h00=0x002c, h01=0x0050, text=» ORKL A10,LICREC LAST IN CHAIN RECEIVED «, t00=0x005b, t01=0x0174}
0x8fb8…8fe8 Head {h00=0x002c, h01=0x0050, text=» ANKL A1,LICREC LAST IN CHAIN RECEIVED? «, t00=0x005c, t01=0x0014}
0x8fe8…9000 Head {h00=0x0014, h01=0x0050, text=» RF(Z) GETC60 NO«, t00=0x005c, t01=0x0044}
0x9000…9034 Head {h00=0x0030, h01=0x0050, text=» CF A14,P2WCC TAKE CARE OF WCC AFTER UPDATE «, t00=0x005c, t01=0x005c}
0x9034…9056 Head {h00=0x001e, h01=0x0050, text=» ORKL A10,NEWCH NEW CHAIN «, t00=0x005c, t01=0x0090}
0x9056…906a Head {h00=0x0010, h01=0x0050, text=»GETC60 EQU *«, t00=0x005c, t01=0x00b2}
0x906a…9098 Head {h00=0x002a, h01=0x0050, text=» ST A12,BUFPNT,A11 SAVE BUFFER ADDRESS«, t00=0x005c, t01=0x00c6}
0x9098…90c2 Head {h00=0x0026, h01=0x0050, text=» CF A14,SAVE2 SAVE INFORMATION =2 «, t00=0x005c, t01=0x00f4}
0x90c2…90e8 Head {h00=0x0022, h01=0x0050, text=» CF A14,GETBUF GET NEW BUFFER «, t00=0x005c, t01=0x011e}
0x90e8…910e Head {h00=0x0022, h01=0x0050, text=» LDR A3,A8 GET BUFFER ADDRESS «, t00=0x005c, t01=0x0144}
0x910e…9136 Head {h00=0x0024, h01=0x0050, text=» CF A14,READNW READ WITH NO WAIT«, t00=0x005c, t01=0x016a}
0x9136…9166 (93, 0, 400) Head {h00=0x002c, h01=0x0050, text=» CF A14,REST2 RESTORE UNPACK INFORMATION«, t00=0x005d, t01=0x0004}
0x9166…917a Head {h00=0x0010, h01=0x0050, text=» LDR A1,A10 «, t00=0x005d, t01=0x0034}
0x917a…919c Head {h00=0x001e, h01=0x0050, text=» ANKL A1,NEWCH NEW CHAIN? «, t00=0x005d, t01=0x0048}
0x919c…91b4 Head {h00=0x0014, h01=0x0050, text=» RF(Z) GETC80 NO«, t00=0x005d, t01=0x006a}
0x91b4…91ca Head {h00=0x0012, h01=0x0050, text=» IFT DISHOW=1 «, t00=0x005d, t01=0x0082}
0x91ca…91e8 Head {h00=0x001a, h01=0x0050, text=» XRKL A10,NEWCH RESET «, t00=0x005d, t01=0x0098}
0x91e8…9200 Head {h00=0x0014, h01=0x0050, text=» LC A1,TCT01,A11«, t00=0x005d, t01=0x00b6}
0x9200…9216 Head {h00=0x0012, h01=0x0050, text=» CCK A1,VDUCOD«, t00=0x005d, t01=0x00ce}
0x9216…922c Head {h00=0x0012, h01=0x0050, text=» RF(NE) GETC70«, t00=0x005d, t01=0x00e4}
0x922c…9242 Head {h00=0x0012, h01=0x0050, text=» CF A14,SAVE2 «, t00=0x005d, t01=0x00fa}
0x9242…9258 Head {h00=0x0012, h01=0x0050, text=» CF A14,DISMOD«, t00=0x005d, t01=0x0110}
0x9258…926e Head {h00=0x0012, h01=0x0050, text=» CF A14,REST2 «, t00=0x005d, t01=0x0126}
0x926e…927a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005d, t01=0x013c}
0x927a…928c Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x005d, t01=0x0148}
0x928c…92a0 Head {h00=0x0010, h01=0x0050, text=»GETC70 EQU *«, t00=0x005d, t01=0x015a}
0x92a0…92c2 Head {h00=0x001e, h01=0x0050, text=» LDK A1,ICOMN1 NEXT LABEL «, t00=0x005d, t01=0x016e}
0x92c2…92dc Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x005d, t01=0x0190}
0x92dc…92f0 Head {h00=0x0010, h01=0x0050, text=»GETC80 EQU *«, t00=0x005e, t01=0x001a}
0x92f0…930a Head {h00=0x0016, h01=0x0050, text=» LD A8,BUFPNT,A11 «, t00=0x005e, t01=0x002e}
0x930a…931c Head {h00=0x000e, h01=0x0050, text=» SUR A9,A9«, t00=0x005e, t01=0x0048}
0x931c…933a Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETUR N CODE«, t00=0x005e, t01=0x005a}
0x933a…934e Head {h00=0x0010, h01=0x0050, text=»GETC90 EQU *«, t00=0x005e, t01=0x0078}
0x934e…935a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005e, t01=0x008c}
0x935a…936a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005e, t01=0x0098}
0x936a…9378 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005e, t01=0x00a8}
0x9378…93be Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x005e, t01=0x00b6}
0x93be…9404 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x005e, t01=0x00fc}
0x9404…944a Head {h00=0x0042, h01=0x0050, text=»* PUTCHA PUT CHAR. IN DC BUFFER * «, t00=0x005e, t01=0x0142}
0x944a…9490 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x005e, t01=0x0188}
0x9490…94d6 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x005f, t01=0x003e}
0x94d6…94ea Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x005f, t01=0x0084}
0x94ea…94f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x0098}
0x94f4…950e Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x005f, t01=0x00a2}
0x950e…952e Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x005f, t01=0x00bc}
0x952e…9546 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x005f, t01=0x00dc}
0x9546…955e Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x005f, t01=0x00f4}
0x955e…9568 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x010c}
0x9568…95ae Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x005f, t01=0x0116}
0x95ae…95c2 Head {h00=0x0010, h01=0x0050, text=»PUTCHA EQU *«, t00=0x005f, t01=0x015c}
0x95c2…95e2 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A1 SBA TO STORE?«, t00=0x005f, t01=0x0170}
0x95e2…95fc Head {h00=0x0016, h01=0x0050, text=» RF(N) PUTC10 YES «, t00=0x005f, t01=0x0190}
0x95fc…9624 Head {h00=0x0024, h01=0x0050, text=» CWK A9,BUFFL+BUFFL BUFFER FULL?«, t00=0x0060, t01=0x001a}
0x9624…963e Head {h00=0x0016, h01=0x0050, text=» RF(NL) PUTC20 YES«, t00=0x0060, t01=0x0042}
0x963e…9650 Head {h00=0x000e, h01=0x0050, text=» RF PUTC30«, t00=0x0060, t01=0x005c}
0x9650…9664 Head {h00=0x0010, h01=0x0050, text=»PUTC10 EQU *«, t00=0x0060, t01=0x006e}
0x9664…9682 Head {h00=0x001a, h01=0x0050, text=» LDKL A1,BUFFL+BUFFL-3«, t00=0x0060, t01=0x0082}
0x9682…96ae Head {h00=0x0028, h01=0x0050, text=» SUR A1,A9 ROOM FOR SBA AND ADDRESS?«, t00=0x0060, t01=0x00a0}
0x96ae…96c8 Head {h00=0x0016, h01=0x0050, text=» RF(NN) PUTC30 YES«, t00=0x0060, t01=0x00cc}
0x96c8…96dc Head {h00=0x0010, h01=0x0050, text=»PUTC20 EQU *«, t00=0x0060, t01=0x00e6}
0x96dc…96ee Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0060, t01=0x00fa}
0x96ee…971a Head {h00=0x0028, h01=0x0050, text=» CF A14,SAVE2 SAVE PACK INFORMATION «, t00=0x0060, t01=0x010c}
0x971a…9746 Head {h00=0x0028, h01=0x0050, text=» LDK A1,1 INDICATE NOT LAST IN CHAIN«, t00=0x0060, t01=0x0138}
0x9746…976c Head {h00=0x0022, h01=0x0050, text=» CF A14,DCWRIT WRITE DC BUFFER«, t00=0x0060, t01=0x0164}
0x976c…977e Head {h00=0x000e, h01=0x0050, text=» LDR A9,A1«, t00=0x0060, t01=0x018a}
0x977e…9794 Head {h00=0x0012, h01=0x0050, text=» CF A14,REST2 «, t00=0x0061, t01=0x000c}
0x9794…97b8 Head {h00=0x0020, h01=0x0050, text=» LDR A9,A9 TRANSMISSION OK? «, t00=0x0061, t01=0x0022}
0x97b8…97d2 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PUTC90 NO «, t00=0x0061, t01=0x0046}
0x97d2…97f2 Head {h00=0x001c, h01=0x0050, text=» SUR A9,A9 BUFFER INDEX «, t00=0x0061, t01=0x0060}
0x97f2…9814 Head {h00=0x001e, h01=0x0050, text=» LDR A8,A12 BUFFER ADDRESS«, t00=0x0061, t01=0x0080}
0x9814…9820 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0061, t01=0x00a2}
0x9820…9832 Head {h00=0x000e, h01=0x0050, text=» IFF SNA=1«, t00=0x0061, t01=0x00ae}
0x9832…9848 Head {h00=0x0012, h01=0x0050, text=» CF A14,ERROR «, t00=0x0061, t01=0x00c0}
0x9848…985a Head {h00=0x000e, h01=0x0050, text=» LDKL A1,*«, t00=0x0061, t01=0x00d6}
0x985a…9872 Head {h00=0x0014, h01=0x0050, text=» ST A1,REGI,A11 «, t00=0x0061, t01=0x00e8}
0x9872…987e Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0061, t01=0x0100}
0x987e…988e Head {h00=0x000c, h01=0x0050, text=» DATA 3 «, t00=0x0061, t01=0x010c}
0x988e…989a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0061, t01=0x011c}
0x989a…98ae Head {h00=0x0010, h01=0x0050, text=»PUTC30 EQU *«, t00=0x0061, t01=0x0128}
0x98ae…98da Head {h00=0x0028, h01=0x0050, text=» CF A14,PDCCH PUT CHAR. IN DC BUFFER«, t00=0x0061, t01=0x013c}
0x98da…98f8 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0061, t01=0x0168}
0x98f8…990c Head {h00=0x0010, h01=0x0050, text=»PUTC90 EQU *«, t00=0x0061, t01=0x0186}
0x990c…991c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0062, t01=0x000a}
0x991c…992a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0062, t01=0x001a}
0x992a…9964 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0062, t01=0x0028}
0x9964…999e Head {h00=0x0036, h01=0x0050, text=»* *«, t00=0x0062, t01=0x0062}
0x999e…99d8 Head {h00=0x0036, h01=0x0050, text=»* PDCCH PUT CHAR. IN DC BUFFER *«, t00=0x0062, t01=0x009c}
0x99d8…9a12 Head {h00=0x0036, h01=0x0050, text=»* *«, t00=0x0062, t01=0x00d6}
0x9a12…9a4c Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0062, t01=0x0110}
0x9a4c…9a60 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0062, t01=0x014a}
0x9a60…9a6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x015e}
0x9a6a…9a7e Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0062, t01=0x0168}
0x9a7e…9a94 Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x0062, t01=0x017c}
0x9a94…9aaa (99, 0, 400) Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0063, t01=0x0004}
0x9aaa…9ac0 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0063, t01=0x001a}
0x9ac0…9ad6 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0063, t01=0x0030}
0x9ad6…9af8 Head {h00=0x001e, h01=0x0050, text=»* A8= ADDRESS IN DC-BUFFER«, t00=0x0063, t01=0x0046}
0x9af8…9b16 Head {h00=0x001a, h01=0x0050, text=»* A9= DC-BUFFER INDEX «, t00=0x0063, t01=0x0068}
0x9b16…9b2e Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0063, t01=0x0086}
0x9b2e…9b46 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0063, t01=0x009e}
0x9b46…9b5e Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0063, t01=0x00b6}
0x9b5e…9b76 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0063, t01=0x00ce}
0x9b76…9b80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x00e6}
0x9b80…9bbc Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0063, t01=0x00f0}
0x9bbc…9bd0 Head {h00=0x0010, h01=0x0050, text=»PDCCH EQU * «, t00=0x0063, t01=0x012c}
0x9bd0…9bf6 Head {h00=0x0022, h01=0x0050, text=» CWK A9,BUFFL+BUFFL OVERFLOW? «, t00=0x0063, t01=0x0140}
0x9bf6…9c10 Head {h00=0x0016, h01=0x0050, text=» RF(NL) PDC100 YES«, t00=0x0063, t01=0x0166}
0x9c10…9c24 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0063, t01=0x0180}
0x9c24…9c3a (100, 0, 400) Head {h00=0x0012, h01=0x0050, text=» IFT EBCDIC=1 «, t00=0x0064, t01=0x0004}
0x9c3a…9c5a Head {h00=0x001c, h01=0x0050, text=» LC A2,CONEBC,A2 CONVERT«, t00=0x0064, t01=0x001a}
0x9c5a…9c66 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0064, t01=0x003a}
0x9c66…9c8c Head {h00=0x0022, h01=0x0050, text=» SCR A2,A8 STORE IN DC-BUFFER «, t00=0x0064, t01=0x0046}
0x9c8c…9c9e Head {h00=0x000e, h01=0x0050, text=» ADKL A8,1«, t00=0x0064, t01=0x006c}
0x9c9e…9cb0 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0064, t01=0x007e}
0x9cb0…9cc4 Head {h00=0x0010, h01=0x0050, text=»PDC100 EQU *«, t00=0x0064, t01=0x0090}
0x9cc4…9cd4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0064, t01=0x00a4}
0x9cd4…9ce2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0064, t01=0x00b4}
0x9ce2…9d2a Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0064, t01=0x00c2}
0x9d2a…9d72 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0064, t01=0x010a}
0x9d72…9dba Head {h00=0x0044, h01=0x0050, text=»* GDCCH GET CHAR. IN DC BUFFER * «, t00=0x0064, t01=0x0152}
0x9dba…9e02 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0065, t01=0x000a}
0x9e02…9e4a Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0065, t01=0x0052}
0x9e4a…9e5e Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0065, t01=0x009a}
0x9e5e…9e68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x00ae}
0x9e68…9e82 Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x0065, t01=0x00b8}
0x9e82…9e96 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0065, t01=0x00d2}
0x9e96…9eba Head {h00=0x0020, h01=0x0050, text=»* A3= POINTER IN VDU BUFFER «, t00=0x0065, t01=0x00e6}
0x9eba…9ed0 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0065, t01=0x010a}
0x9ed0…9ee6 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0065, t01=0x0120}
0x9ee6…9efc Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0065, t01=0x0136}
0x9efc…9f1e Head {h00=0x001e, h01=0x0050, text=»* A8= ADDRESS IN DC-BUFFER«, t00=0x0065, t01=0x014c}
0x9f1e…9f3c Head {h00=0x001a, h01=0x0050, text=»* A9= DC-BUFFER INDEX «, t00=0x0065, t01=0x016e}
0x9f3c…9f54 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0065, t01=0x018c}
0x9f54…9f74 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0066, t01=0x0014}
0x9f74…9f8c Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0066, t01=0x0034}
0x9f8c…9fa4 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0066, t01=0x004c}
0x9fa4…9fae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x0064}
0x9fae…9fea Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0066, t01=0x006e}
0x9fea…9ffe Head {h00=0x0010, h01=0x0050, text=»GDCCH EQU * «, t00=0x0066, t01=0x00aa}
0x9ffe…a01c Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 PRESET ERROR«, t00=0x0066, t01=0x00be}
0xa01c…a046 Head {h00=0x0026, h01=0x0050, text=» CW A9,DCLENG,A11 BUFFER EMPTIED? «, t00=0x0066, t01=0x00dc}
0xa046…a060 Head {h00=0x0016, h01=0x0050, text=» RF(NL) GDCC90 YES«, t00=0x0066, t01=0x0106}
0xa060…a072 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0066, t01=0x0120}
0xa072…a08e Head {h00=0x0018, h01=0x0050, text=» LCR A2,A8 GET CHAR.«, t00=0x0066, t01=0x0132}
0xa08e…a0a2 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0066, t01=0x014e}
0xa0a2…a0b8 Head {h00=0x0012, h01=0x0050, text=» IFT EBCDIC=1 «, t00=0x0066, t01=0x0162}
0xa0b8…a0f0 Head {h00=0x0034, h01=0x0050, text=»* EBCDIC-ASCII CONVERSION DELETED PR. 8625,DK* «, t00=0x0066, t01=0x0178}
0xa0f0…a0fc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0067, t01=0x0020}
0xa0fc…a10e Head {h00=0x000e, h01=0x0050, text=» ADKL A8,1«, t00=0x0067, t01=0x002c}
0xa10e…a120 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0067, t01=0x003e}
0xa120…a134 Head {h00=0x0010, h01=0x0050, text=»GDCC90 EQU *«, t00=0x0067, t01=0x0050}
0xa134…a144 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0067, t01=0x0064}
0xa144…a152 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0067, t01=0x0074}
0xa152…a196 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0067, t01=0x0082}
0xa196…a1da Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0067, t01=0x00c6}
0xa1da…a21e Head {h00=0x0040, h01=0x0050, text=»* PAID STORE AID IN BUFFER * «, t00=0x0067, t01=0x010a}
0xa21e…a262 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0067, t01=0x014e}
0xa262…a2a6 (104, 0, 400) Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0068, t01=0x0004}
0xa2a6…a2ba Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0068, t01=0x0048}
0xa2ba…a2c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x005c}
0xa2c4…a2d6 Head {h00=0x000e, h01=0x0050, text=»* A2= AID «, t00=0x0068, t01=0x0066}
0xa2d6…a2ee Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0068, t01=0x0078}
0xa2ee…a306 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0068, t01=0x0090}
0xa306…a310 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x00a8}
0xa310…a352 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0068, t01=0x00b2}
0xa352…a364 Head {h00=0x000e, h01=0x0050, text=»PAID EQU *«, t00=0x0068, t01=0x00f4}
0xa364…a384 Head {h00=0x001c, h01=0x0050, text=» CF A14,PDCCH STORE AID «, t00=0x0068, t01=0x0106}
0xa384…a394 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0068, t01=0x0126}
0xa394…a3a2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0068, t01=0x0136}
0xa3a2…a3e4 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0068, t01=0x0144}
0xa3e4…a426 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x0068, t01=0x0186}
0xa426…a468 Head {h00=0x003e, h01=0x0050, text=»* BUFADR STORE BUFFER ADDRESS IN DC-BUFFER *«, t00=0x0069, t01=0x0038}
0xa468…a4aa Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x0069, t01=0x007a}
0xa4aa…a4ec Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0069, t01=0x00bc}
0xa4ec…a500 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0069, t01=0x00fe}
0xa500…a50a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x0112}
0xa50a…a51e Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0069, t01=0x011c}
0xa51e…a534 Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x0069, t01=0x0130}
0xa534…a54a Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0069, t01=0x0146}
0xa54a…a560 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0069, t01=0x015c}
0xa560…a576 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0069, t01=0x0172}
0xa576…a58c Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0069, t01=0x0188}
0xa58c…a5a2 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x006a, t01=0x000e}
0xa5a2…a5ba Head {h00=0x0014, h01=0x0050, text=»* A10= RESERVED «, t00=0x006a, t01=0x0024}
0xa5ba…a5d2 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x006a, t01=0x003c}
0xa5d2…a5ea Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x006a, t01=0x0054}
0xa5ea…a602 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x006a, t01=0x006c}
0xa602…a60c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x0084}
0xa60c…a64e Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x006a, t01=0x008e}
0xa64e…a662 Head {h00=0x0010, h01=0x0050, text=»BUFADR EQU *«, t00=0x006a, t01=0x00d0}
0xa662…a682 Head {h00=0x001c, h01=0x0050, text=» LDR A2,A1 GET REL. POS.«, t00=0x006a, t01=0x00e4}
0xa682…a694 Head {h00=0x000e, h01=0x0050, text=» SRL A2,6 «, t00=0x006a, t01=0x0104}
0xa694…a6a8 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x006a, t01=0x0116}
0xa6a8…a6d2 Head {h00=0x0026, h01=0x0050, text=» LC A2,CONADR,A2 CONVERT TO ASCII «, t00=0x006a, t01=0x012a}
0xa6d2…a6fa Head {h00=0x0024, h01=0x0050, text=» CF A14,PDCCH STORE IN DC-BUFFER«, t00=0x006a, t01=0x0154}
0xa6fa…a71a Head {h00=0x001c, h01=0x0050, text=» LDR A2,A1 GET REL. POS.«, t00=0x006a, t01=0x017c}
0xa71a…a72e Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x006b, t01=0x000c}
0xa72e…a758 Head {h00=0x0026, h01=0x0050, text=» LC A2,CONADR,A2 CONVERT TO ASCII «, t00=0x006b, t01=0x0020}
0xa758…a780 Head {h00=0x0024, h01=0x0050, text=» CF A14,PDCCH STORE IN DC-BUFFER«, t00=0x006b, t01=0x004a}
0xa780…a790 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006b, t01=0x0072}
0xa790…a79e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006b, t01=0x0082}
0xa79e…a7e2 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x006b, t01=0x0090}
0xa7e2…a826 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x006b, t01=0x00d4}
0xa826…a86a Head {h00=0x0040, h01=0x0050, text=»* RESMDT RESET ALL MDT-BITS IN ATTRIBUTES *«, t00=0x006b, t01=0x0118}
0xa86a…a8ae Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x006b, t01=0x015c}
0xa8ae…a8f2 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x006c, t01=0x0010}
0xa8f2…a906 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x006c, t01=0x0054}
0xa906…a910 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0068}
0xa910…a924 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x006c, t01=0x0072}
0xa924…a948 Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x006c, t01=0x0086}
0xa948…a95e Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x006c, t01=0x00aa}
0xa95e…a974 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x006c, t01=0x00c0}
0xa974…a98a Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x006c, t01=0x00d6}
0xa98a…a9a0 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x006c, t01=0x00ec}
0xa9a0…a9b6 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x006c, t01=0x0102}
0xa9b6…a9ce Head {h00=0x0014, h01=0x0050, text=»* A10= RESERVED «, t00=0x006c, t01=0x0118}
0xa9ce…a9ee Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x006c, t01=0x0130}
0xa9ee…aa06 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x006c, t01=0x0150}
0xaa06…aa1e Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x006c, t01=0x0168}
0xaa1e…aa28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0180}
0xaa28…aa6e Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x006c, t01=0x018a}
0xaa6e…aa82 Head {h00=0x0010, h01=0x0050, text=»RESMDT EQU *«, t00=0x006d, t01=0x0040}
0xaa82…aaa6 Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 FIRST SCREEN POS. «, t00=0x006d, t01=0x0054}
0xaaa6…aabc Head {h00=0x0012, h01=0x0050, text=» LDKL A3,BVDU «, t00=0x006d, t01=0x0078}
0xaabc…aad0 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x006d, t01=0x008e}
0xaad0…aae4 Head {h00=0x0010, h01=0x0050, text=»RESM10 EQU *«, t00=0x006d, t01=0x00a2}
0xaae4…ab06 Head {h00=0x001e, h01=0x0050, text=» CWK A1,LBVDU ALL SCANNED?«, t00=0x006d, t01=0x00b6}
0xab06…ab20 Head {h00=0x0016, h01=0x0050, text=» RF(NL) RESM90 YES«, t00=0x006d, t01=0x00d8}
0xab20…ab3c Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x006d, t01=0x00f2}
0xab3c…ab5c Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8080 ATTRIBUTE?«, t00=0x006d, t01=0x010e}
0xab5c…ab74 Head {h00=0x0014, h01=0x0050, text=» RF(L) RESM20 NO«, t00=0x006d, t01=0x012e}
0xab74…ab96 Head {h00=0x001e, h01=0x0050, text=» ANK A2,/FE RESET MDT-BIT «, t00=0x006d, t01=0x0146}
0xab96…abb0 Head {h00=0x0016, h01=0x0050, text=» SCR A2,A3 RESTORE«, t00=0x006d, t01=0x0168}
0xabb0…abc4 Head {h00=0x0010, h01=0x0050, text=»RESM20 EQU *«, t00=0x006d, t01=0x0182}
0xabc4…abd6 Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x006e, t01=0x0008}
0xabd6…abe8 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x006e, t01=0x001a}
0xabe8…abfa Head {h00=0x000e, h01=0x0050, text=» RB RESM10«, t00=0x006e, t01=0x002c}
0xabfa…ac0e Head {h00=0x0010, h01=0x0050, text=»RESM90 EQU *«, t00=0x006e, t01=0x003e}
0xac0e…ac1e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006e, t01=0x0052}
0xac1e…ac2c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006e, t01=0x0062}
0xac2c…ac6c Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x006e, t01=0x0070}
0xac6c…acac Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x006e, t01=0x00b0}
0xacac…ace2 Head {h00=0x0032, h01=0x0050, text=»* P1WCC PROCESS WCC BEFORE UPDATE«, t00=0x006e, t01=0x00f0}
0xace2…ad22 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x006e, t01=0x0126}
0xad22…ad62 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x006e, t01=0x0166}
0xad62…ad76 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x006f, t01=0x0016}
0xad76…ad80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x002a}
0xad80…ad94 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x006f, t01=0x0034}
0xad94…adaa Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x006f, t01=0x0048}
0xadaa…adc0 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x006f, t01=0x005e}
0xadc0…add6 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x006f, t01=0x0074}
0xadd6…adec Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x006f, t01=0x008a}
0xadec…ae02 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x006f, t01=0x00a0}
0xae02…ae18 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x006f, t01=0x00b6}
0xae18…ae30 Head {h00=0x0014, h01=0x0050, text=»* A10= RESERVED «, t00=0x006f, t01=0x00cc}
0xae30…ae50 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x006f, t01=0x00e4}
0xae50…ae68 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x006f, t01=0x0104}
0xae68…ae80 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x006f, t01=0x011c}
0xae80…ae8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0134}
0xae8a…aec6 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x006f, t01=0x013e}
0xaec6…aeda Head {h00=0x0010, h01=0x0050, text=»P1WCC EQU * «, t00=0x006f, t01=0x017a}
0xaeda…aefc Head {h00=0x001e, h01=0x0050, text=» LC A2,CONATT,A2 IN EBCDIC«, t00=0x006f, t01=0x018e}
0xaefc…af18 Head {h00=0x0018, h01=0x0050, text=» ST A2,WCC,A11 SAVE «, t00=0x0070, t01=0x0020}
0xaf18…af3a Head {h00=0x001e, h01=0x0050, text=» ANK A2,1 RESET MDT-BITS? «, t00=0x0070, t01=0x003c}
0xaf3a…af52 Head {h00=0x0014, h01=0x0050, text=» RF(Z) P1W900 NO«, t00=0x0070, t01=0x005e}
0xaf52…af7c Head {h00=0x0026, h01=0x0050, text=» CF A14,RESMDT RESET ALL MDT-BITS «, t00=0x0070, t01=0x0076}
0xaf7c…af90 Head {h00=0x0010, h01=0x0050, text=»P1W900 EQU *«, t00=0x0070, t01=0x00a0}
0xaf90…afa0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0070, t01=0x00b4}
0xafa0…afae Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0070, t01=0x00c4}
0xafae…aff0 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0070, t01=0x00d2}
0xaff0…b032 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0070, t01=0x0114}
0xb032…b074 Head {h00=0x003e, h01=0x0050, text=»* P2WCC TAKE CARE OF WCC AFTER UPDATE * «, t00=0x0070, t01=0x0156}
0xb074…b0b6 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0071, t01=0x0008}
0xb0b6…b0f8 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0071, t01=0x004a}
0xb0f8…b10c Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0071, t01=0x008c}
0xb10c…b116 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x00a0}
0xb116…b136 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0071, t01=0x00aa}
0xb136…b14e Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0071, t01=0x00ca}
0xb14e…b166 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0071, t01=0x00e2}
0xb166…b170 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x00fa}
0xb170…b1b2 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0071, t01=0x0104}
0xb1b2…b1c6 Head {h00=0x0010, h01=0x0050, text=»P2WCC EQU * «, t00=0x0071, t01=0x0146}
0xb1c6…b1ec Head {h00=0x0022, h01=0x0050, text=» CF A14,SAVE2 KEEP IT AWAY =4 «, t00=0x0071, t01=0x015a}
0xb1ec…b202 Head {h00=0x0012, h01=0x0050, text=» LD A1,WCC,A11«, t00=0x0071, t01=0x0180}
0xb202…b214 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A1«, t00=0x0072, t01=0x0008}
0xb214…b22c Head {h00=0x0014, h01=0x0050, text=» ANK A7,4 SOUND?«, t00=0x0072, t01=0x001a}
0xb22c…b244 Head {h00=0x0014, h01=0x0050, text=» RF(Z) P2W100 NO«, t00=0x0072, t01=0x0032}
0xb244…b260 Head {h00=0x0018, h01=0x0050, text=» CF A14,SOUND SOUND «, t00=0x0072, t01=0x004a}
0xb260…b274 Head {h00=0x0010, h01=0x0050, text=»P2W100 EQU *«, t00=0x0072, t01=0x0066}
0xb274…b28c Head {h00=0x0014, h01=0x0050, text=» ANK A1,8 COPY? «, t00=0x0072, t01=0x007a}
0xb28c…b2a4 Head {h00=0x0014, h01=0x0050, text=» RF(Z) P2W300 NO«, t00=0x0072, t01=0x0092}
0xb2a4…b2c2 Head {h00=0x001a, h01=0x0050, text=» LC A1,TCT01,A11 . =4 «, t00=0x0072, t01=0x00aa}
0xb2c2…b2e0 Head {h00=0x001a, h01=0x0050, text=» CCK A1,VDUCOD VDU =4 «, t00=0x0072, t01=0x00c8}
0xb2e0…b304 Head {h00=0x0020, h01=0x0050, text=» RF(NE) P2W200 NO PRINTER =4«, t00=0x0072, t01=0x00e6}
0xb304…b31e Head {h00=0x0016, h01=0x0050, text=» CF A14,COPY COPY «, t00=0x0072, t01=0x010a}
0xb31e…b336 Head {h00=0x0014, h01=0x0050, text=» RF P2W300 . =4 «, t00=0x0072, t01=0x0124}
0xb336…b350 Head {h00=0x0016, h01=0x0050, text=»P2W200 EQU * . =4 «, t00=0x0072, t01=0x013c}
0xb350…b376 Head {h00=0x0022, h01=0x0050, text=» CF A14,COPP COPY DIRECTLY =4 «, t00=0x0072, t01=0x0156}
0xb376…b38a Head {h00=0x0010, h01=0x0050, text=»P2W300 EQU *«, t00=0x0072, t01=0x017c}
0xb38a…b3b0 Head {h00=0x0022, h01=0x0050, text=» CF A14,REST2 TAKE IT BACK =4 «, t00=0x0072, t01=0x0190}
0xb3b0…b3c0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0073, t01=0x0026}
0xb3c0…b3ce Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0073, t01=0x0036}
0xb3ce…b418 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0073, t01=0x0044}
0xb418…b462 Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x0073, t01=0x008e}
0xb462…b4ac Head {h00=0x0046, h01=0x0050, text=»* SAVE SAVE PACK AND UNPACK INFORMATION *«, t00=0x0073, t01=0x00d8}
0xb4ac…b4f6 Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x0073, t01=0x0122}
0xb4f6…b540 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0073, t01=0x016c}
0xb540…b554 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0074, t01=0x0026}
0xb554…b55e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x003a}
0xb55e…b57a Head {h00=0x0018, h01=0x0050, text=»* A1= STACK POINTER «, t00=0x0074, t01=0x0044}
0xb57a…b58e Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0074, t01=0x0060}
0xb58e…b5ae Head {h00=0x001c, h01=0x0050, text=»* A3= VDU BUFFER ADDRESS«, t00=0x0074, t01=0x0074}
0xb5ae…b5cc Head {h00=0x001a, h01=0x0050, text=»* A4= REL CURSOR POS. «, t00=0x0074, t01=0x0094}
0xb5cc…b5ec Head {h00=0x001c, h01=0x0050, text=»* A5= REL STTRIBUTE POS.«, t00=0x0074, t01=0x00b2}
0xb5ec…b60a Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x0074, t01=0x00d2}
0xb60a…b62c Head {h00=0x001e, h01=0x0050, text=»* A10= INTERNAL INDICATOR «, t00=0x0074, t01=0x00f0}
0xb62c…b64c Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0074, t01=0x0112}
0xb64c…b664 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0074, t01=0x0132}
0xb664…b67c Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0074, t01=0x014a}
0xb67c…b686 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x0162}
0xb686…b6ce Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0074, t01=0x016c}
0xb6ce…b6e2 Head {h00=0x0010, h01=0x0050, text=»SAVE1 EQU * «, t00=0x0075, t01=0x0024}
0xb6e2…b70c Head {h00=0x0026, h01=0x0050, text=» LDKL A1,STACK1 GET STACK ADDRESS «, t00=0x0075, t01=0x0038}
0xb70c…b71c Head {h00=0x000c, h01=0x0050, text=» RF SAVE«, t00=0x0075, t01=0x0062}
0xb71c…b730 Head {h00=0x0010, h01=0x0050, text=»SAVE2 EQU * «, t00=0x0075, t01=0x0072}
0xb730…b748 Head {h00=0x0014, h01=0x0050, text=» LDKL A1,STACK2 «, t00=0x0075, t01=0x0086}
0xb748…b75a Head {h00=0x000e, h01=0x0050, text=»SAVE EQU *«, t00=0x0075, t01=0x009e}
0xb75a…b76e Head {h00=0x0010, h01=0x0050, text=» ADR A1,A11 «, t00=0x0075, t01=0x00b0}
0xb76e…b780 Head {h00=0x000e, h01=0x0050, text=» STR A2,A1«, t00=0x0075, t01=0x00c4}
0xb780…b792 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0075, t01=0x00d6}
0xb792…b7a4 Head {h00=0x000e, h01=0x0050, text=» STR A3,A1«, t00=0x0075, t01=0x00e8}
0xb7a4…b7b6 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0075, t01=0x00fa}
0xb7b6…b7c8 Head {h00=0x000e, h01=0x0050, text=» STR A4,A1«, t00=0x0075, t01=0x010c}
0xb7c8…b7da Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0075, t01=0x011e}
0xb7da…b7ec Head {h00=0x000e, h01=0x0050, text=» STR A5,A1«, t00=0x0075, t01=0x0130}
0xb7ec…b7fe Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0075, t01=0x0142}
0xb7fe…b810 Head {h00=0x000e, h01=0x0050, text=» STR A6,A1«, t00=0x0075, t01=0x0154}
0xb810…b822 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0075, t01=0x0166}
0xb822…b834 Head {h00=0x000e, h01=0x0050, text=» STR A7,A1«, t00=0x0075, t01=0x0178}
0xb834…b846 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0075, t01=0x018a}
0xb846…b85a Head {h00=0x0010, h01=0x0050, text=» STR A10,A1 «, t00=0x0076, t01=0x000c}
0xb85a…b86a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0076, t01=0x0020}
0xb86a…b878 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0076, t01=0x0030}
0xb878…b8c4 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0076, t01=0x003e}
0xb8c4…b910 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0076, t01=0x008a}
0xb910…b95c Head {h00=0x0048, h01=0x0050, text=»* RESTOR RESTORE PACK AND UNPACK INFORMATION * «, t00=0x0076, t01=0x00d6}
0xb95c…b9a8 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0076, t01=0x0122}
0xb9a8…b9f4 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0076, t01=0x016e}
0xb9f4…ba08 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0077, t01=0x002a}
0xba08…ba12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x003e}
0xba12…ba2e Head {h00=0x0018, h01=0x0050, text=»* A1= STACK POINTER «, t00=0x0077, t01=0x0048}
0xba2e…ba42 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0077, t01=0x0064}
0xba42…ba62 Head {h00=0x001c, h01=0x0050, text=»* A3= VDU BUFFER ADDRESS«, t00=0x0077, t01=0x0078}
0xba62…ba80 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0077, t01=0x0098}
0xba80…baa2 Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x0077, t01=0x00b6}
0xbaa2…bac0 Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x0077, t01=0x00d8}
0xbac0…bad6 Head {h00=0x0012, h01=0x0050, text=»* A7= RESERVED«, t00=0x0077, t01=0x00f6}
0xbad6…baf8 Head {h00=0x001e, h01=0x0050, text=»* A10= INTERNAL INDICATOR «, t00=0x0077, t01=0x010c}
0xbaf8…bb18 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0077, t01=0x012e}
0xbb18…bb30 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0077, t01=0x014e}
0xbb30…bb48 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0077, t01=0x0166}
0xbb48…bb52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x017e}
0xbb52…bb9a Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0077, t01=0x0188}
0xbb9a…bbae Head {h00=0x0010, h01=0x0050, text=»REST1 EQU * «, t00=0x0078, t01=0x0040}
0xbbae…bbd8 Head {h00=0x0026, h01=0x0050, text=» LDKL A1,STACK1 GET STACK ADDRESS «, t00=0x0078, t01=0x0054}
0xbbd8…bbea Head {h00=0x000e, h01=0x0050, text=» RF RESTOR«, t00=0x0078, t01=0x007e}
0xbbea…bbfe Head {h00=0x0010, h01=0x0050, text=»REST2 EQU * «, t00=0x0078, t01=0x0090}
0xbbfe…bc16 Head {h00=0x0014, h01=0x0050, text=» LDKL A1,STACK2 «, t00=0x0078, t01=0x00a4}
0xbc16…bc2a Head {h00=0x0010, h01=0x0050, text=»RESTOR EQU *«, t00=0x0078, t01=0x00bc}
0xbc2a…bc3e Head {h00=0x0010, h01=0x0050, text=» ADR A1,A11 «, t00=0x0078, t01=0x00d0}
0xbc3e…bc52 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A1 «, t00=0x0078, t01=0x00e4}
0xbc52…bc64 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0078, t01=0x00f8}
0xbc64…bc78 Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A1 «, t00=0x0078, t01=0x010a}
0xbc78…bc8a Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0078, t01=0x011e}
0xbc8a…bc9e Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A1 «, t00=0x0078, t01=0x0130}
0xbc9e…bcb0 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0078, t01=0x0144}
0xbcb0…bcc4 Head {h00=0x0010, h01=0x0050, text=» LDR* A5,A1 «, t00=0x0078, t01=0x0156}
0xbcc4…bcd6 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0078, t01=0x016a}
0xbcd6…bcea Head {h00=0x0010, h01=0x0050, text=» LDR* A6,A1 «, t00=0x0078, t01=0x017c}
0xbcea…bcfc Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0078, t01=0x0190}
0xbcfc…bd10 Head {h00=0x0010, h01=0x0050, text=» LDR* A7,A1 «, t00=0x0079, t01=0x0012}
0xbd10…bd22 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0079, t01=0x0026}
0xbd22…bd36 Head {h00=0x0010, h01=0x0050, text=» LDR* A10,A1«, t00=0x0079, t01=0x0038}
0xbd36…bd46 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0079, t01=0x004c}
0xbd46…bd54 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0079, t01=0x005c}
0xbd54…bd94 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0079, t01=0x006a}
0xbd94…bdd4 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0079, t01=0x00aa}
0xbdd4…be14 Head {h00=0x003c, h01=0x0050, text=»* BUFFER POOL * «, t00=0x0079, t01=0x00ea}
0xbe14…be54 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0079, t01=0x012a}
0xbe54…be94 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0079, t01=0x016a}
0xbe94…bea8 Head {h00=0x0010, h01=0x0050, text=»BUFFER EQU *«, t00=0x007a, t01=0x001a}
0xbea8…becc Head {h00=0x0020, h01=0x0050, text=» DATA *+2 POINTER FIRST FREE«, t00=0x007a, t01=0x002e}
0xbecc…bee2 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=1 «, t00=0x007a, t01=0x0052}
0xbee2…bef6 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007a, t01=0x0068}
0xbef6…bf08 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007a, t01=0x007c}
0xbf08…bf1e Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=2 «, t00=0x007a, t01=0x008e}
0xbf1e…bf32 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007a, t01=0x00a4}
0xbf32…bf44 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007a, t01=0x00b8}
0xbf44…bf5a Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=3 «, t00=0x007a, t01=0x00ca}
0xbf5a…bf6e Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007a, t01=0x00e0}
0xbf6e…bf80 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007a, t01=0x00f4}
0xbf80…bf96 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=4 «, t00=0x007a, t01=0x0106}
0xbf96…bfaa Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007a, t01=0x011c}
0xbfaa…bfbc Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007a, t01=0x0130}
0xbfbc…bfd2 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=5 «, t00=0x007a, t01=0x0142}
0xbfd2…bfe6 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007a, t01=0x0158}
0xbfe6…bff8 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007a, t01=0x016c}
0xbff8…c00e Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=6 «, t00=0x007a, t01=0x017e}
0xc00e…c022 (123, 0, 398) Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007b, t01=0x0004}
0xc022…c034 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007b, t01=0x0018}
0xc034…c04a Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=7 «, t00=0x007b, t01=0x002a}
0xc04a…c05e Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007b, t01=0x0040}
0xc05e…c070 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007b, t01=0x0054}
0xc070…c086 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=8 «, t00=0x007b, t01=0x0066}
0xc086…c09a Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007b, t01=0x007c}
0xc09a…c0ac Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007b, t01=0x0090}
0xc0ac…c0c2 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=9 «, t00=0x007b, t01=0x00a2}
0xc0c2…c0d6 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007b, t01=0x00b8}
0xc0d6…c0e8 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007b, t01=0x00cc}
0xc0e8…c0fe Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=10«, t00=0x007b, t01=0x00de}
0xc0fe…c112 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007b, t01=0x00f4}
0xc112…c124 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007b, t01=0x0108}
0xc124…c13a Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=11«, t00=0x007b, t01=0x011a}
0xc13a…c14e Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007b, t01=0x0130}
0xc14e…c160 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007b, t01=0x0144}
0xc160…c176 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=12«, t00=0x007b, t01=0x0156}
0xc176…c18a Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007b, t01=0x016c}
0xc18a…c19c Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007b, t01=0x0180}
0xc19c…c1b2 (124, 0, 398) Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=13«, t00=0x007c, t01=0x0004}
0xc1b2…c1c6 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007c, t01=0x001a}
0xc1c6…c1d8 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007c, t01=0x002e}
0xc1d8…c1ee Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=14«, t00=0x007c, t01=0x0040}
0xc1ee…c202 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007c, t01=0x0056}
0xc202…c214 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007c, t01=0x006a}
0xc214…c22a Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=15«, t00=0x007c, t01=0x007c}
0xc22a…c23e Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007c, t01=0x0092}
0xc23e…c250 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007c, t01=0x00a6}
0xc250…c266 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=16«, t00=0x007c, t01=0x00b8}
0xc266…c27a Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007c, t01=0x00ce}
0xc27a…c28c Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007c, t01=0x00e2}
0xc28c…c2a2 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=17«, t00=0x007c, t01=0x00f4}
0xc2a2…c2b6 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007c, t01=0x010a}
0xc2b6…c2c8 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007c, t01=0x011e}
0xc2c8…c2de Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=18«, t00=0x007c, t01=0x0130}
0xc2de…c2f2 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007c, t01=0x0146}
0xc2f2…c304 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007c, t01=0x015a}
0xc304…c31a Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=19«, t00=0x007c, t01=0x016c}
0xc31a…c32e Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007c, t01=0x0182}
0xc32e…c340 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007d, t01=0x0008}
0xc340…c356 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=20«, t00=0x007d, t01=0x001a}
0xc356…c36a Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007d, t01=0x0030}
0xc36a…c37c Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007d, t01=0x0044}
0xc37c…c392 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=21«, t00=0x007d, t01=0x0056}
0xc392…c3a6 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007d, t01=0x006c}
0xc3a6…c3b8 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007d, t01=0x0080}
0xc3b8…c3ce Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=22«, t00=0x007d, t01=0x0092}
0xc3ce…c3e2 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007d, t01=0x00a8}
0xc3e2…c3f4 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007d, t01=0x00bc}
0xc3f4…c40a Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=23«, t00=0x007d, t01=0x00ce}
0xc40a…c41e Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007d, t01=0x00e4}
0xc41e…c430 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007d, t01=0x00f8}
0xc430…c446 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=24«, t00=0x007d, t01=0x010a}
0xc446…c45a Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007d, t01=0x0120}
0xc45a…c46c Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007d, t01=0x0134}
0xc46c…c482 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=25«, t00=0x007d, t01=0x0146}
0xc482…c496 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007d, t01=0x015c}
0xc496…c4a8 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007d, t01=0x0170}
0xc4a8…c4be Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=26«, t00=0x007d, t01=0x0182}
0xc4be…c4d2 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007e, t01=0x0008}
0xc4d2…c4e4 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007e, t01=0x001c}
0xc4e4…c4fa Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=27«, t00=0x007e, t01=0x002e}
0xc4fa…c50e Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007e, t01=0x0044}
0xc50e…c520 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007e, t01=0x0058}
0xc520…c536 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=28«, t00=0x007e, t01=0x006a}
0xc536…c54a Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007e, t01=0x0080}
0xc54a…c55c Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007e, t01=0x0094}
0xc55c…c572 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=29«, t00=0x007e, t01=0x00a6}
0xc572…c586 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007e, t01=0x00bc}
0xc586…c598 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007e, t01=0x00d0}
0xc598…c5ae Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=30«, t00=0x007e, t01=0x00e2}
0xc5ae…c5c2 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007e, t01=0x00f8}
0xc5c2…c5d4 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007e, t01=0x010c}
0xc5d4…c5ea Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=31«, t00=0x007e, t01=0x011e}
0xc5ea…c5fe Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007e, t01=0x0134}
0xc5fe…c610 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007e, t01=0x0148}
0xc610…c626 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=32«, t00=0x007e, t01=0x015a}
0xc626…c63a Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007e, t01=0x0170}
0xc63a…c64c Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007e, t01=0x0184}
0xc64c…c658 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007f, t01=0x0008}
0xc658…c668 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007f, t01=0x0014}
0xc668…c67a Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007f, t01=0x0024}
0xc67a…c688 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007f, t01=0x0036}
0xc688…c6c8 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x007f, t01=0x0044}
0xc6c8…c708 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x007f, t01=0x0084}
0xc708…c748 Head {h00=0x003c, h01=0x0050, text=»* GETBUF GET BUFFER * «, t00=0x007f, t01=0x00c4}
0xc748…c788 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x007f, t01=0x0104}
0xc788…c7c8 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x007f, t01=0x0144}
0xc7c8…c7dc Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x007f, t01=0x0184}
0xc7dc…c7e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0008}
0xc7e6…c806 Head {h00=0x001c, h01=0x0050, text=»* A8= DC-BUFFER ADDRESS «, t00=0x0080, t01=0x0012}
0xc806…c826 Head {h00=0x001c, h01=0x0050, text=»* A9= INDEX IN DC-BUFFER«, t00=0x0080, t01=0x0032}
0xc826…c83e Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0080, t01=0x0052}
0xc83e…c85c Head {h00=0x001a, h01=0x0050, text=»* A12= BUFFER ADDRESS «, t00=0x0080, t01=0x006a}
0xc85c…c874 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0080, t01=0x0088}
0xc874…c87e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x00a0}
0xc87e…c8be Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0080, t01=0x00aa}
0xc8be…c8d2 Head {h00=0x0010, h01=0x0050, text=»GETBUF EQU *«, t00=0x0080, t01=0x00ea}
0xc8d2…c8ea Head {h00=0x0014, h01=0x0050, text=» LDKL A7,BUFFER «, t00=0x0080, t01=0x00fe}
0xc8ea…c8fe Head {h00=0x0010, h01=0x0050, text=»GETB10 EQU *«, t00=0x0080, t01=0x0116}
0xc8fe…c912 Head {h00=0x0010, h01=0x0050, text=» LDR* A8,A7 «, t00=0x0080, t01=0x012a}
0xc912…c934 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) GETB90 BUFFER FREE«, t00=0x0080, t01=0x013e}
0xc934…c940 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0080, t01=0x0160}
0xc940…c95c Head {h00=0x0018, h01=0x0050, text=» DATA 0 SWITCH TASK «, t00=0x0080, t01=0x016c}
0xc95c…c96e Head {h00=0x000e, h01=0x0050, text=» RB GETB10«, t00=0x0080, t01=0x0188}
0xc96e…c982 Head {h00=0x0010, h01=0x0050, text=»GETB90 EQU *«, t00=0x0081, t01=0x000a}
0xc982…c996 Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A8 «, t00=0x0081, t01=0x001e}
0xc996…c9a8 Head {h00=0x000e, h01=0x0050, text=» STR A1,A7«, t00=0x0081, t01=0x0032}
0xc9a8…c9ba Head {h00=0x000e, h01=0x0050, text=» ADKL A8,2«, t00=0x0081, t01=0x0044}
0xc9ba…c9ce Head {h00=0x0010, h01=0x0050, text=» LDR A12,A8 «, t00=0x0081, t01=0x0056}
0xc9ce…c9e0 Head {h00=0x000e, h01=0x0050, text=» SUR A9,A9«, t00=0x0081, t01=0x006a}
0xc9e0…c9f0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0081, t01=0x007c}
0xc9f0…c9fe Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0081, t01=0x008c}
0xc9fe…ca40 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0081, t01=0x009a}
0xca40…ca82 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0081, t01=0x00dc}
0xca82…cac4 Head {h00=0x003e, h01=0x0050, text=»* RELBUF RELEASE BUFFER * «, t00=0x0081, t01=0x011e}
0xcac4…cb06 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0081, t01=0x0160}
0xcb06…cb48 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0082, t01=0x0012}
0xcb48…cb5c Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0082, t01=0x0054}
0xcb5c…cb66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x0068}
0xcb66…cb82 Head {h00=0x0018, h01=0x0050, text=»* A8= BUFFER ADDRESS«, t00=0x0082, t01=0x0072}
0xcb82…cb9a Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0082, t01=0x008e}
0xcb9a…cbb2 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0082, t01=0x00a6}
0xcbb2…cbbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x00be}
0xcbbc…cbfe Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0082, t01=0x00c8}
0xcbfe…cc12 Head {h00=0x0010, h01=0x0050, text=»RELBUF EQU *«, t00=0x0082, t01=0x010a}
0xcc12…cc2a Head {h00=0x0014, h01=0x0050, text=» LDKL A7,BUFFER «, t00=0x0082, t01=0x011e}
0xcc2a…cc4a Head {h00=0x001c, h01=0x0050, text=» SUKL A8,2 POINT TO LINK«, t00=0x0082, t01=0x0136}
0xcc4a…cc5e Head {h00=0x0010, h01=0x0050, text=»RELB10 EQU *«, t00=0x0082, t01=0x0156}
0xcc5e…cc72 Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A7 «, t00=0x0082, t01=0x016a}
0xcc72…cc88 Head {h00=0x0012, h01=0x0050, text=» RF(Z) RELB90 «, t00=0x0082, t01=0x017e}
0xcc88…cc9a (131, 2, 134) Head {h00=0x000e, h01=0x0050, text=» LDR A7,A1«, t00=0x0083, t01=0x0004}
0xcc9a…ccac Head {h00=0x000e, h01=0x0050, text=» RB RELB10«, t00=0x0083, t01=0x0016}
0xccac…ccc0 Head {h00=0x0010, h01=0x0050, text=»RELB90 EQU *«, t00=0x0083, t01=0x0028}
0xccc0…ccd2 Head {h00=0x000e, h01=0x0050, text=» STR A8,A7«, t00=0x0083, t01=0x003c}
0xccd2…cce2 Head {h00=0x000c, h01=0x0050, text=» CMR A8 «, t00=0x0083, t01=0x004e}
0xcce2…ccf2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0083, t01=0x005e}
0xccf2…ccfa Head {h00=0x0004, h01=0x0050, t00=0x0083, t01=0x006e}
0xccfa…cd06 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0083, t01=0x0076}
0xcd06…cd0a Head {h00=0x4004, h01=0x0000}
0xcd0a…cd0e 00 83 00 82 ┆ ┆
0xcd0e…cd16 (132, 1, 8) 20 04 00 00 00 84 00 04 ┆ ┆