|
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: 55690 (0xd98a)
Notes: pts_type(SC)
Names: »PAD.SC«
└─⟦928b1fd3e⟧ Bits:30009671 Philips computer tape "600131"
└─⟦this⟧ »MODIFY/PAD.SC«
IDENT PAD REL 11.0 DK 82-04-22 870150541100 DK1, ATTRIBUTE ERROR + 2X PRINT =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 EXTRN LMP3ON 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 * POINTER UPDATE REMOVED DK1 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,LMP3ON 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) PT300 YES LDK A7,NULL FILL WITH NULLS TO END OF FIELD LDR A4,A4 AT POS. ZERO ? DK1 RF(Z) PT210 YES, PROCESS IT DK1 PT200 EQU * CF A14,LINWRP CHECK WRAP LDR A4,A4 END OF BUFFER? RF(Z) PT800 YES, KUNTA KINTE PT210 EQU * DK1 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 PT300 EQU * DK1 LDR A4,A4 AT POS. ZERO ? DK1 RF(Z) PT410 YES, PROCESS IT. DK1 PT400 EQU * CF A14,LINWRP CHECK WRAP LDR A4,A4 END OF BUFFER? RF(Z) PT700 YES OS AND DOS PT410 EQU * DK1 LCR A2,A3 GET CHAR. ANK A2,/80 ATTRIBUTE? RF(NZ) PT500 YES PT420 EQU * DK1 ADK A4,1 ADK A3,1 RB PT400 PT500 EQU * LCR A2,A3 GET ATTRIBUTE AGAIN DK1 ANK A2,/20 PROTECTED? RB(NZ) PT420 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 * CONVERSION DELETED * DK 82-03-30 * 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 * CALL TO COPP REMOVED, DK1 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 82-04-22 870150541100«, t00=0x0000, t01=0x0004}
0x0034…003c Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0038}
0x003c…0066 Head {h00=0x0026, h01=0x0050, text=» DK1, ATTRIBUTE ERROR + 2X PRINT«, t00=0x0000, t01=0x0040}
0x0066…0084 Head {h00=0x001a, h01=0x0050, text=» =4 COPY TO PRINTER «, t00=0x0000, t01=0x006a}
0x0084…0098 Head {h00=0x0010, h01=0x0050, text=» 81-05-06 «, t00=0x0000, t01=0x0088}
0x0098…00b4 Head {h00=0x0018, h01=0x0050, text=» =3, MISSING ITEM «, t00=0x0000, t01=0x009c}
0x00b4…00c8 Head {h00=0x0010, h01=0x0050, text=» 81-01-26 «, t00=0x0000, t01=0x00b8}
0x00c8…00e0 Head {h00=0x0014, h01=0x0050, text=» =2, SAVE REG.«, t00=0x0000, t01=0x00cc}
0x00e0…00f4 Head {h00=0x0010, h01=0x0050, text=» 81-01-26 «, t00=0x0000, t01=0x00e4}
0x00f4…0114 Head {h00=0x001c, h01=0x0050, text=» =1, RA ON EUQ ADDRESS«, t00=0x0000, t01=0x00f8}
0x0114…0128 Head {h00=0x0010, h01=0x0050, text=» 81-01-26 «, t00=0x0000, t01=0x0118}
0x0128…016e Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0000, t01=0x012c}
0x016e…01b4 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0000, t01=0x0172}
0x01b4…01fa Head {h00=0x0042, h01=0x0050, text=»* MODULE PAD * «, t00=0x0001, t01=0x0028}
0x01fa…0240 Head {h00=0x0042, h01=0x0050, text=»* MODULE HANDLING THE PACKING AND * «, t00=0x0001, t01=0x006e}
0x0240…0286 Head {h00=0x0042, h01=0x0050, text=»* UNPACKING OF THE DCBUFFER. THE VDU * «, t00=0x0001, t01=0x00b4}
0x0286…02cc Head {h00=0x0042, h01=0x0050, text=»* BUFFER IS UPDATED * «, t00=0x0001, t01=0x00fa}
0x02cc…0312 Head {h00=0x0042, h01=0x0050, text=»* (EMULATION 3270 SNA/SDLC, BSC) * «, t00=0x0001, t01=0x0140}
0x0312…0358 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0001, t01=0x0186}
0x0358…039e Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0002, t01=0x003c}
0x039e…03ac Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0082}
0x03ac…03f6 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0002, t01=0x0090}
0x03f6…0400 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00da}
0x0400…041a Head {h00=0x0016, h01=0x0050, text=»* LIST OF ROUTINES«, t00=0x0002, t01=0x00e4}
0x041a…0424 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00fe}
0x0424…0468 Head {h00=0x0040, h01=0x0050, text=»* PACK PACK MODIFIED VDU-FIELDS INTO DC-BUFFER «, t00=0x0002, t01=0x0108}
0x0468…04a4 Head {h00=0x0038, h01=0x0050, text=»* UNPACK UNPACK DC-BUFFER AND UPDATE VDU «, t00=0x0002, t01=0x014c}
0x04a4…04d0 Head {h00=0x0028, h01=0x0050, text=»* RETTAB RETURN ADDRESSES«, t00=0x0002, t01=0x0188}
0x04d0…04fc Head {h00=0x0028, h01=0x0050, text=»* UNPCOM UNPACK COMMANDS «, t00=0x0003, t01=0x0024}
0x04fc…0526 Head {h00=0x0026, h01=0x0050, text=»* UNPORD UNPACK ORDERS «, t00=0x0003, t01=0x0050}
0x0526…054e Head {h00=0x0024, h01=0x0050, text=»* ORDTAB ORDER TABLE «, t00=0x0003, t01=0x007a}
0x054e…0576 Head {h00=0x0024, h01=0x0050, text=»* SF START FIELD «, t00=0x0003, t01=0x00a2}
0x0576…05a4 Head {h00=0x002a, h01=0x0050, text=»* SBA SET BUFFER ADDRESS«, t00=0x0003, t01=0x00ca}
0x05a4…05ce Head {h00=0x0026, h01=0x0050, text=»* IC INSERT CURSOR «, t00=0x0003, t01=0x00f8}
0x05ce…05f6 Head {h00=0x0024, h01=0x0050, text=»* PT PROGRAM TAB.«, t00=0x0003, t01=0x0122}
0x05f6…0624 Head {h00=0x002a, h01=0x0050, text=»* RA REPEAT TO ADDRESS «, t00=0x0003, t01=0x014a}
0x0624…0658 Head {h00=0x0030, h01=0x0050, text=»* EUA ERASE UNPRO. TO ADDRESS «, t00=0x0003, t01=0x0178}
0x0658…0684 Head {h00=0x0028, h01=0x0050, text=»* CHAR < /20 BUT NOT ORDERS«, t00=0x0004, t01=0x001c}
0x0684…06be Head {h00=0x0036, h01=0x0050, text=»* PACKSY PACK DC-BUFFER IN SYSTEM MODE «, t00=0x0004, t01=0x0048}
0x06be…06fa Head {h00=0x0038, h01=0x0050, text=»* UNPSYS UNPACK DC-BUFFER IN SYSTEM MODE «, t00=0x0004, t01=0x0082}
0x06fa…0730 Head {h00=0x0032, h01=0x0050, text=»* GETNXT GET AND CHECK NEXT BUFFER «, t00=0x0004, t01=0x00be}
0x0730…076c Head {h00=0x0038, h01=0x0050, text=»* PUTCHA PUT CHAR. IN DC-BUFFER AND WRITE«, t00=0x0004, t01=0x00f4}
0x076c…079c Head {h00=0x002c, h01=0x0050, text=»* PDCCH PUT CHAR. IN BUFFER «, t00=0x0004, t01=0x0130}
0x079c…07cc Head {h00=0x002c, h01=0x0050, text=»* GDCCH GET CHAR. IN BUFFER «, t00=0x0004, t01=0x0160}
0x07cc…07fc Head {h00=0x002c, h01=0x0050, text=»* PAID STORE AID IN BUFFER «, t00=0x0004, t01=0x0190}
0x07fc…083a Head {h00=0x003a, h01=0x0050, text=»* BUFADR STORE BUFFER ADDRESS IN DC-BUFFER «, t00=0x0005, t01=0x0030}
0x083a…0876 Head {h00=0x0038, h01=0x0050, text=»* RESMDT RESET ALL MDT-BITS IN ATTRIBUTES«, t00=0x0005, t01=0x006e}
0x0876…08ac Head {h00=0x0032, h01=0x0050, text=»* P1WCC PROCESS WCC BEFORE UPDATE «, t00=0x0005, t01=0x00aa}
0x08ac…08e6 Head {h00=0x0036, h01=0x0050, text=»* P2WCC TAKE CARE OF WCC AFTER UPDATE «, t00=0x0005, t01=0x00e0}
0x08e6…0922 Head {h00=0x0038, h01=0x0050, text=»* SAVE SAVE PACK AND UNPACK INFORMATION«, t00=0x0005, t01=0x011a}
0x0922…0962 Head {h00=0x003c, h01=0x0050, text=»* RESTOR RESTORE PACK AND UNPACK INFORMATION «, t00=0x0005, t01=0x0156}
0x0962…098a Head {h00=0x0024, h01=0x0050, text=»* BUFFER BUFFER POOL «, t00=0x0006, t01=0x0008}
0x098a…09b0 Head {h00=0x0022, h01=0x0050, text=»* GETBUF GET BUFFER«, t00=0x0006, t01=0x0030}
0x09b0…09da Head {h00=0x0026, h01=0x0050, text=»* RELBUF RELEASE BUFFER«, t00=0x0006, t01=0x0056}
0x09da…09e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0080}
0x09e4…0a2e Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0006, t01=0x008a}
0x0a2e…0a3c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x00d4}
0x0a3c…0a82 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0006, t01=0x00e2}
0x0a82…0ac8 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0006, t01=0x0128}
0x0ac8…0b0e Head {h00=0x0042, h01=0x0050, text=»* ENTRY POINTS * «, t00=0x0006, t01=0x016e}
0x0b0e…0b54 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0007, t01=0x0024}
0x0b54…0b9a Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0007, t01=0x006a}
0x0b9a…0ba2 Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x00b0}
0x0ba2…0bd6 Head {h00=0x0030, h01=0x0050, text=» ENTRY PACK PACK MOD. FIELDS INTO DC BUFFER «, t00=0x0007, t01=0x00b8}
0x0bd6…0c0c Head {h00=0x0032, h01=0x0050, text=» ENTRY UNPACK UNPACK DC BUFFER AND UPDATE VDU «, t00=0x0007, t01=0x00ec}
0x0c0c…0c42 Head {h00=0x0032, h01=0x0050, text=» ENTRY UNPSYS UNPACK DC BUFFER IN SYSTEM MODE «, t00=0x0007, t01=0x0122}
0x0c42…0c66 Head {h00=0x0020, h01=0x0050, text=» ENTRY GETBUF GET DC BUFFER «, t00=0x0007, t01=0x0158}
0x0c66…0c8e Head {h00=0x0024, h01=0x0050, text=» ENTRY RELBUF RELEASE DC BUFFER «, t00=0x0007, t01=0x017c}
0x0c8e…0cbe Head {h00=0x002c, h01=0x0050, text=» ENTRY PAID STORE AID CODE IN DC BUFFER «, t00=0x0008, t01=0x0014}
0x0cbe…0cf4 Head {h00=0x0032, h01=0x0050, text=» ENTRY BUFADR SORE BUFFER ADDRESS IN DC BUFFER«, t00=0x0008, t01=0x0044}
0x0cf4…0d28 Head {h00=0x0030, h01=0x0050, text=» ENTRY PACKSY PACK DC BUFFER IN SYSTEM MODE «, t00=0x0008, t01=0x007a}
0x0d28…0d4c Head {h00=0x0020, h01=0x0050, text=» ENTRY SAVE1 SAVE REGISTERS «, t00=0x0008, t01=0x00ae}
0x0d4c…0d72 Head {h00=0x0022, h01=0x0050, text=» ENTRY REST1 RESTORE REGISTERS«, t00=0x0008, t01=0x00d2}
0x0d72…0d7a Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x00f8}
0x0d7a…0d88 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0100}
0x0d88…0dc4 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0008, t01=0x010e}
0x0dc4…0e00 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x0008, t01=0x014a}
0x0e00…0e3c Head {h00=0x0038, h01=0x0050, text=»* EXTERNAL REFERENCES * «, t00=0x0008, t01=0x0186}
0x0e3c…0e78 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x0009, t01=0x0032}
0x0e78…0eb4 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0009, t01=0x006e}
0x0eb4…0ebc Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x00aa}
0x0ebc…0ef0 Head {h00=0x0030, h01=0x0050, text=» EXTRN CONEBC CONVERT ASCII-EBCDIC (CONVER)«, t00=0x0009, t01=0x00b2}
0x0ef0…0f24 Head {h00=0x0030, h01=0x0050, text=» EXTRN CONASC CONVERT EBCDIC-ASCII (CONVER)«, t00=0x0009, t01=0x00e6}
0x0f24…0f52 Head {h00=0x002a, h01=0x0050, text=» EXTRN ERASE ERASE ENTIRE SCREEN (VDU)«, t00=0x0009, t01=0x011a}
0x0f52…0f8a Head {h00=0x0034, h01=0x0050, text=» EXTRN ERASUA ERASE UNPROTECTED TO ADDRESS (VDU)«, t00=0x0009, t01=0x0148}
0x0f8a…0fc0 Head {h00=0x0032, h01=0x0050, text=» EXTRN CONORD CONVERT ORDER TO INDEX (CONVER)«, t00=0x0009, t01=0x0180}
0x0fc0…0ff2 Head {h00=0x002e, h01=0x0050, text=» EXTRN CONATT CONVERT ATTRIBUTE (CONVER) «, t00=0x000a, t01=0x0026}
0x0ff2…1024 Head {h00=0x002e, h01=0x0050, text=» EXTRN SCRINF GET SCREEN INFORMATION (VDU)«, t00=0x000a, t01=0x0058}
0x1024…1060 Head {h00=0x0038, h01=0x0050, text=» EXTRN ERASUP ERASE UNPROTECTED ENTIRE SCREEN (VDU) «, t00=0x000a, t01=0x008a}
0x1060…108a Head {h00=0x0026, h01=0x0050, text=» EXTRN COPY LOCAL HARDCOPY (KEYB) «, t00=0x000a, t01=0x00c6}
0x108a…10b8 Head {h00=0x002a, h01=0x0050, text=» EXTRN SOUND SOUND ALARM ON VDU (VDU) «, t00=0x000a, t01=0x00f0}
0x10b8…10ee Head {h00=0x0032, h01=0x0050, text=» EXTRN ATMASB SEARCH ATTRIBUTE BACKWARDS (VDU)«, t00=0x000a, t01=0x011e}
0x10ee…1124 Head {h00=0x0032, h01=0x0050, text=» EXTRN CONADR CONVERT BUFFER ADDRESS (CONVER)«, t00=0x000a, t01=0x0154}
0x1124…1152 Head {h00=0x002a, h01=0x0050, text=» EXTRN WRAP CHECK IF WRAP AROUND (VDU)«, t00=0x000a, t01=0x018a}
0x1152…1186 Head {h00=0x0030, h01=0x0050, text=» EXTRN STOINF SAVE SCREEN INFORMATION (VDU) «, t00=0x000b, t01=0x0028}
0x1186…11b2 Head {h00=0x0028, h01=0x0050, text=» EXTRN LMP4ON INHIBIT LAMP ON (KEYB)«, t00=0x000b, t01=0x005c}
0x11b2…11e8 Head {h00=0x0032, h01=0x0050, text=» EXTRN READNW READ WITH NO WAIT (DCSNA,DCBSC) «, t00=0x000b, t01=0x0088}
0x11e8…1216 Head {h00=0x002a, h01=0x0050, text=» EXTRN WAIT SYNCHRONIZE (DCSNA,DCBSC) «, t00=0x000b, t01=0x00be}
0x1216…124a Head {h00=0x0030, h01=0x0050, text=» EXTRN DCWRIT WRITE DC BUFFER (DCSNA,DCBSC) «, t00=0x000b, t01=0x00ec}
0x124a…127e Head {h00=0x0030, h01=0x0050, text=» EXTRN DISMOD DISPLAY MODIFIED FIELDS (VDU) «, t00=0x000b, t01=0x0120}
0x127e…12b0 Head {h00=0x002e, h01=0x0050, text=» EXTRN THRBUF THROW BUFFERS (DCSNA,DCBSC) «, t00=0x000b, t01=0x0154}
0x12b0…12dc Head {h00=0x0028, h01=0x0050, text=» EXTRN NLROUT NEW LINE ROUTINE (VDU)«, t00=0x000b, t01=0x0186}
0x12dc…1302 Head {h00=0x0022, h01=0x0050, text=» EXTRN LINE WRAP ROUTINE (VDU)«, t00=0x000c, t01=0x0022}
0x1302…1338 Head {h00=0x0032, h01=0x0050, text=» EXTRN LINATT INTERNAL LINEFLAG ROUTINE (VDU) «, t00=0x000c, t01=0x0048}
0x1338…1368 Head {h00=0x002c, h01=0x0050, text=» EXTRN LINWRP ANOTHER WRAP ROUTINE (VDU)«, t00=0x000c, t01=0x007e}
0x1368…1392 Head {h00=0x0026, h01=0x0050, text=» EXTRN ERROR ERROR INCATOR (KEYB) «, t00=0x000c, t01=0x00ae}
0x1392…13c8 Head {h00=0x0032, h01=0x0050, text=» EXTRN MATCH MATCH ADDRESS AND TASKID (DSPBSC)«, t00=0x000c, t01=0x00d8}
0x13c8…13f6 Head {h00=0x002a, h01=0x0050, text=» EXTRN ICSET INTERTASK TIMEOUT (KEYB) «, t00=0x000c, t01=0x010e}
0x13f6…1422 Head {h00=0x0028, h01=0x0050, text=» EXTRN ICWRT INTERTASK WRITE (KEYB) «, t00=0x000c, t01=0x013c}
0x1422…1452 Head {h00=0x002c, h01=0x0050, text=» EXTRN COPP COPY ON PRINTER DIRECTLY =4 «, t00=0x000c, t01=0x0168}
0x1452…1468 Head {h00=0x0012, h01=0x0050, text=» EXTRN LMP3ON «, t00=0x000d, t01=0x0008}
0x1468…1476 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x001e}
0x1476…14b2 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x000d, t01=0x002c}
0x14b2…14ee Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x000d, t01=0x0068}
0x14ee…152a Head {h00=0x0038, h01=0x0050, text=»* CONDITIONAL ASSEMBLY PARAMETERS * «, t00=0x000d, t01=0x00a4}
0x152a…1566 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x000d, t01=0x00e0}
0x1566…15a2 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x000d, t01=0x011c}
0x15a2…15aa Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x0158}
0x15aa…15ce Head {h00=0x0020, h01=0x0050, text=»X:A EQU 0 SNA HANDLING IF:=1«, t00=0x000d, t01=0x0160}
0x15ce…15e0 Head {h00=0x000e, h01=0x0050, text=»SNA EQU 0 «, t00=0x000d, t01=0x0184}
0x15e0…160a Head {h00=0x0026, h01=0x0050, text=»X:K EQU 2 NUMBER OF BUFFERS (1-32)«, t00=0x000e, t01=0x0008}
0x160a…1620 Head {h00=0x0012, h01=0x0050, text=»BUFFNR EQU 02 «, t00=0x000e, t01=0x0032}
0x1620…164e Head {h00=0x002a, h01=0x0050, text=»X:L EQU 1000 MAX BUFFER SIZE IN WORDS «, t00=0x000e, t01=0x0048}
0x164e…1664 Head {h00=0x0012, h01=0x0050, text=»BUFFL EQU 1150«, t00=0x000e, t01=0x0076}
0x1664…1692 Head {h00=0x002a, h01=0x0050, text=»X:M EQU 0 COPY COMMAND INCLUDED IF:=1 «, t00=0x000e, t01=0x008c}
0x1692…16a6 Head {h00=0x0010, h01=0x0050, text=»COPCMD EQU 1«, t00=0x000e, t01=0x00ba}
0x16a6…16ca Head {h00=0x0020, h01=0x0050, text=»X:N EQU 1 EBCDIC CHAR IF:=1 «, t00=0x000e, t01=0x00ce}
0x16ca…16de Head {h00=0x0010, h01=0x0050, text=»EBCDIC EQU 1«, t00=0x000e, t01=0x00f2}
0x16de…170c Head {h00=0x002a, h01=0x0050, text=»X:Z EQU 1 =0,WHOLE,=1 CHAIN,=2 SEGMENT«, t00=0x000e, t01=0x0106}
0x170c…1722 Head {h00=0x0012, h01=0x0050, text=»DISHOW EQU X:Z«, t00=0x000e, t01=0x0134}
0x1722…1730 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x014a}
0x1730…1778 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x000e, t01=0x0158}
0x1778…17c0 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x000f, t01=0x0010}
0x17c0…17ea Head {h00=0x0026, h01=0x0050, text=»* DECLARATION OF DATA AND EQUATES «, t00=0x000f, t01=0x0058}
0x17ea…1832 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x000f, t01=0x0082}
0x1832…187a Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x000f, t01=0x00ca}
0x187a…1882 Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x0112}
0x1882…188c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x011a}
0x188c…18b4 Head {h00=0x0024, h01=0x0050, text=»* EQUATES FOR ECB HANDLING«, t00=0x000f, t01=0x0124}
0x18b4…18be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x014c}
0x18be…18e0 Head {h00=0x001e, h01=0x0050, text=»ECBBA EQU 2 BUFFER ADDRESS«, t00=0x000f, t01=0x0156}
0x18e0…1904 Head {h00=0x0020, h01=0x0050, text=»ECBRL EQU 4 REQUESTED LENGTH«, t00=0x000f, t01=0x0178}
0x1904…1928 Head {h00=0x0020, h01=0x0050, text=»ECBEL EQU 6 EFFECTIVE LENGTH«, t00=0x0010, t01=0x000c}
0x1928…1948 Head {h00=0x001c, h01=0x0050, text=»ECBRC EQU 8 RETURN CODE «, t00=0x0010, t01=0x0030}
0x1948…196a Head {h00=0x001e, h01=0x0050, text=»ECBCW EQU 10 CONTROL WORD «, t00=0x0010, t01=0x0050}
0x196a…1974 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0072}
0x1974…198e Head {h00=0x0016, h01=0x0050, text=»* INTERNAL STATUS «, t00=0x0010, t01=0x007c}
0x198e…1998 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0096}
0x1998…19c8 Head {h00=0x002c, h01=0x0050, text=»LICREC EQU /2000 LAST IN CHAIN RECEIVED «, t00=0x0010, t01=0x00a0}
0x19c8…19ee Head {h00=0x0022, h01=0x0050, text=»THROWB EQU /0800 THROW BUFFERS«, t00=0x0010, t01=0x00d0}
0x19ee…1a10 Head {h00=0x001e, h01=0x0050, text=»NEWCH EQU /0400 NEW CHAIN «, t00=0x0010, t01=0x00f6}
0x1a10…1a3c Head {h00=0x0028, h01=0x0050, text=»ATTREC EQU /0002 ATTRIBUTE RECEIVED «, t00=0x0010, t01=0x0118}
0x1a3c…1a66 Head {h00=0x0026, h01=0x0050, text=»PTORD EQU /0001 PT ORDER INDICATOR«, t00=0x0010, t01=0x0144}
0x1a66…1a78 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0010, t01=0x016e}
0x1a78…1a82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0180}
0x1a82…1a9c Head {h00=0x0016, h01=0x0050, text=»* SNA MODES «, t00=0x0010, t01=0x018a}
0x1a9c…1aa6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0014}
0x1aa6…1ac6 Head {h00=0x001c, h01=0x0050, text=»LOCMOD EQU 0 LOCAL MODE «, t00=0x0011, t01=0x001e}
0x1ac6…1ae6 Head {h00=0x001c, h01=0x0050, text=»SYSOP EQU 2 SYSTEM MODE «, t00=0x0011, t01=0x003e}
0x1ae6…1b06 Head {h00=0x001c, h01=0x0050, text=»MYJOB EQU 4 MY JOB MODE «, t00=0x0011, t01=0x005e}
0x1b06…1b12 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x007e}
0x1b12…1b1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x008a}
0x1b1c…1b3e Head {h00=0x001e, h01=0x0050, text=»* TASK IDENTIFICATION CODE«, t00=0x0011, t01=0x0094}
0x1b3e…1b48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00b6}
0x1b48…1b6c Head {h00=0x0020, h01=0x0050, text=»VDUCOD EQU 'VV' VDU KB TASK «, t00=0x0011, t01=0x00c0}
0x1b6c…1b76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00e4}
0x1b76…1b92 Head {h00=0x0018, h01=0x0050, text=»* SPECIAL CHARACTERS«, t00=0x0011, t01=0x00ee}
0x1b92…1b9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x010a}
0x1b9c…1bba Head {h00=0x001a, h01=0x0050, text=»NULL EQU 0 NULL CHAR. «, t00=0x0011, t01=0x0114}
0x1bba…1bda Head {h00=0x001c, h01=0x0050, text=»SBACH EQU /11 SBA CHAR. «, t00=0x0011, t01=0x0132}
0x1bda…1bfe Head {h00=0x0020, h01=0x0050, text=»ESCCHA EQU /1B ESCAPE CHAR. «, t00=0x0011, t01=0x0152}
0x1bfe…1c08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0176}
0x1c08…1c22 Head {h00=0x0016, h01=0x0050, text=»* VDU SCREEN SIZE «, t00=0x0011, t01=0x0180}
0x1c22…1c2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x000a}
0x1c2c…1c4e Head {h00=0x001e, h01=0x0050, text=»LBVDU EQU 1920 TOTAL SIZE «, t00=0x0012, t01=0x0014}
0x1c4e…1c6e Head {h00=0x001c, h01=0x0050, text=»LLINE EQU 80 LINE LENGTH«, t00=0x0012, t01=0x0036}
0x1c6e…1c78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0056}
0x1c78…1c9c Head {h00=0x0020, h01=0x0050, text=»* BUFFER LINK LENGTH «, t00=0x0012, t01=0x0060}
0x1c9c…1ca6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0084}
0x1ca6…1cc4 Head {h00=0x001a, h01=0x0050, text=»LINK EQU BUFFL+BUFFL+2«, t00=0x0012, t01=0x008e}
0x1cc4…1cd2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x00ac}
0x1cd2…1cdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00ba}
0x1cdc…1cfc Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x0012, t01=0x00c4}
0x1cfc…1d18 Head {h00=0x0018, h01=0x0050, text=»* TERMINAL WORKBLOCK«, t00=0x0012, t01=0x00e4}
0x1d18…1d22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0100}
0x1d22…1d4a Head {h00=0x0024, h01=0x0050, text=»TCT01 EQU 0 TASK IDENTIFICATION «, t00=0x0012, t01=0x010a}
0x1d4a…1d70 Head {h00=0x0022, h01=0x0050, text=»BVDU EQU TCT01+2 SCREEN BUFFER«, t00=0x0012, t01=0x0132}
0x1d70…1da0 Head {h00=0x002c, h01=0x0050, text=»LINFLG EQU BVDU+1920 INTERNAL LINE FLAGS«, t00=0x0012, t01=0x0158}
0x1da0…1dd4 Head {h00=0x0030, h01=0x0050, text=»PCURS EQU LINFLG+24 CURSOR ADDRESS , BINARY «, t00=0x0012, t01=0x0188}
0x1dd4…1dee Head {h00=0x0016, h01=0x0050, text=»CURATT EQU PCURS+4«, t00=0x0013, t01=0x002c}
0x1dee…1e18 Head {h00=0x0026, h01=0x0050, text=»WCC EQU CURATT+2 WCC/CCC CHARACTER«, t00=0x0013, t01=0x0046}
0x1e18…1e42 Head {h00=0x0026, h01=0x0050, text=»KBINH EQU WCC+2 INHIBIT INDICATOR «, t00=0x0013, t01=0x0070}
0x1e42…1e70 Head {h00=0x002a, h01=0x0050, text=»DCLENG EQU KBINH+4 LENGTH OF DC BUFFER«, t00=0x0013, t01=0x009a}
0x1e70…1ea6 Head {h00=0x0032, h01=0x0050, text=»CURPOS EQU DCLENG+30 CURSOR POS IN SYSTEM MODE«, t00=0x0013, t01=0x00c8}
0x1ea6…1ed0 Head {h00=0x0026, h01=0x0050, text=»BUFPNT EQU CURPOS+2 BUFFER ADDRESS«, t00=0x0013, t01=0x00fe}
0x1ed0…1ef8 Head {h00=0x0024, h01=0x0050, text=»REGI EQU BUFPNT+2 WORK REGISTER «, t00=0x0013, t01=0x0128}
0x1ef8…1f20 Head {h00=0x0024, h01=0x0050, text=»STACK1 EQU REGI+2 INTERNAL STACK«, t00=0x0013, t01=0x0150}
0x1f20…1f3c Head {h00=0x0018, h01=0x0050, text=»STACK2 EQU STACK1+14«, t00=0x0013, t01=0x0178}
0x1f3c…1f64 (20, 0, 400) Head {h00=0x0024, h01=0x0050, text=»UNPMOD EQU STACK2+14 UNPACK MODE«, t00=0x0014, t01=0x0004}
0x1f64…1f88 Head {h00=0x0020, h01=0x0050, text=»SNAMOD EQU UNPMOD+2 SNA MODE«, t00=0x0014, t01=0x002c}
0x1f88…1fbc Head {h00=0x0030, h01=0x0050, text=»ECBICW EQU SNAMOD+12 ECB INTERTASK WRITE =3 «, t00=0x0014, t01=0x0050}
0x1fbc…1fca Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x0084}
0x1fca…200e Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0014, t01=0x0092}
0x200e…2052 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0014, t01=0x00d6}
0x2052…2098 Head {h00=0x0042, h01=0x0050, text=»* PACK PACK MODIFIED VDU-FIELDS INTO DC-BUFFER * «, t00=0x0014, t01=0x011a}
0x2098…20de Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0014, t01=0x0160}
0x20de…2124 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0015, t01=0x0016}
0x2124…2138 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0015, t01=0x005c}
0x2138…2142 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0070}
0x2142…2156 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0015, t01=0x007a}
0x2156…217a Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x0015, t01=0x008e}
0x217a…2198 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0015, t01=0x00b2}
0x2198…21ba Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x0015, t01=0x00d0}
0x21ba…21d6 Head {h00=0x0018, h01=0x0050, text=»* A6= ATTRIBUTE CHAR«, t00=0x0015, t01=0x00f2}
0x21d6…21f8 Head {h00=0x001e, h01=0x0050, text=»* A8= ADDRESS IN DC-BUFFER«, t00=0x0015, t01=0x010e}
0x21f8…2216 Head {h00=0x001a, h01=0x0050, text=»* A9= DC-BUFFER INDEX «, t00=0x0015, t01=0x0130}
0x2216…2232 Head {h00=0x0018, h01=0x0050, text=»* A10= START ADDRESS«, t00=0x0015, t01=0x014e}
0x2232…224a Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0015, t01=0x016a}
0x224a…2268 Head {h00=0x001a, h01=0x0050, text=»* A12= BUFFER ADDRESS «, t00=0x0015, t01=0x0182}
0x2268…2280 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0016, t01=0x0010}
0x2280…228a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0028}
0x228a…22ce Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0016, t01=0x0032}
0x22ce…22e0 Head {h00=0x000e, h01=0x0050, text=»PACK EQU *«, t00=0x0016, t01=0x0076}
0x22e0…230e Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x0016, t01=0x0088}
0x230e…2332 Head {h00=0x0020, h01=0x0050, text=» LDK A4,0 FIRST SCREEN POS. «, t00=0x0016, t01=0x00b6}
0x2332…2348 Head {h00=0x0012, h01=0x0050, text=» LDKL A3,BVDU «, t00=0x0016, t01=0x00da}
0x2348…235c Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0016, t01=0x00f0}
0x235c…2380 Head {h00=0x0020, h01=0x0050, text=» LDR A10,A4 INITIATE ADDRESS«, t00=0x0016, t01=0x0104}
0x2380…23ac Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x0016, t01=0x0128}
0x23ac…23c6 Head {h00=0x0016, h01=0x0050, text=» RF(E) PACK70 YES «, t00=0x0016, t01=0x0154}
0x23c6…23da Head {h00=0x0010, h01=0x0050, text=»PACK10 EQU *«, t00=0x0016, t01=0x016e}
0x23da…23f6 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x0016, t01=0x0182}
0x23f6…2416 Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x0017, t01=0x000e}
0x2416…2430 Head {h00=0x0016, h01=0x0050, text=» RF(NL) PACK15 YES«, t00=0x0017, t01=0x002e}
0x2430…2442 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0017, t01=0x0048}
0x2442…2454 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0017, t01=0x005a}
0x2454…2466 Head {h00=0x000e, h01=0x0050, text=» RB PACK10«, t00=0x0017, t01=0x006c}
0x2466…247a Head {h00=0x0010, h01=0x0050, text=»PACK15 EQU *«, t00=0x0017, t01=0x007e}
0x247a…249c Head {h00=0x001e, h01=0x0050, text=» LDR A10,A4 START ADDRESS «, t00=0x0017, t01=0x0092}
0x249c…24ae Head {h00=0x000e, h01=0x0050, text=» RF PACK30«, t00=0x0017, t01=0x00b4}
0x24ae…24c2 Head {h00=0x0010, h01=0x0050, text=»PACK20 EQU *«, t00=0x0017, t01=0x00c6}
0x24c2…24ec Head {h00=0x0026, h01=0x0050, text=» CF A14,WRAP CHECK IF WRAP AROUND «, t00=0x0017, t01=0x00da}
0x24ec…250c Head {h00=0x001c, h01=0x0050, text=» CWR A10,A4 ALL SCANNED?«, t00=0x0017, t01=0x0104}
0x250c…2526 Head {h00=0x0016, h01=0x0050, text=» RF(E) PACK80 YES «, t00=0x0017, t01=0x0124}
0x2526…253a Head {h00=0x0010, h01=0x0050, text=»PACK30 EQU *«, t00=0x0017, t01=0x013e}
0x253a…2556 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x0017, t01=0x0152}
0x2556…2568 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0017, t01=0x016e}
0x2568…257a Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0017, t01=0x0180}
0x257a…259a (24, 0, 400) Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x0018, t01=0x0004}
0x259a…25b2 Head {h00=0x0014, h01=0x0050, text=» RB(L) PACK20 NO«, t00=0x0018, t01=0x0024}
0x25b2…25d4 Head {h00=0x001e, h01=0x0050, text=» ANK A2,1 MODIFIED FIELD? «, t00=0x0018, t01=0x003c}
0x25d4…25ee Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PACK50 YES«, t00=0x0018, t01=0x005e}
0x25ee…261c Head {h00=0x002a, h01=0x0050, text=»* POINTER UPDATE REMOVED DK1 «, t00=0x0018, t01=0x0078}
0x261c…262e Head {h00=0x000e, h01=0x0050, text=» RB PACK20«, t00=0x0018, t01=0x00a6}
0x262e…2642 Head {h00=0x0010, h01=0x0050, text=»PACK50 EQU *«, t00=0x0018, t01=0x00b8}
0x2642…2668 Head {h00=0x0022, h01=0x0050, text=» LDK A2,SBACH SBA TO DC-BUFFER«, t00=0x0018, t01=0x00cc}
0x2668…268c Head {h00=0x0020, h01=0x0050, text=» LDKL A1,/8000 INDICATE SBA «, t00=0x0018, t01=0x00f2}
0x268c…26b6 Head {h00=0x0026, h01=0x0050, text=» CF A14,PUTCHA PUT CHAR. IN BUFFER«, t00=0x0018, t01=0x0116}
0x26b6…26da Head {h00=0x0020, h01=0x0050, text=» LDR A1,A1 TRANSMISSION OK? «, t00=0x0018, t01=0x0140}
0x26da…26f4 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PACK90 NO «, t00=0x0018, t01=0x0164}
0x26f4…2722 Head {h00=0x002a, h01=0x0050, text=» LDR A1,A4 BUFFER ADDRESS TO DC-BUFFER«, t00=0x0018, t01=0x017e}
0x2722…2738 Head {h00=0x0012, h01=0x0050, text=» CF A14,BUFADR«, t00=0x0019, t01=0x001c}
0x2738…274c Head {h00=0x0010, h01=0x0050, text=»PACK60 EQU *«, t00=0x0019, t01=0x0032}
0x274c…2776 Head {h00=0x0026, h01=0x0050, text=» CF A14,WRAP CHECK IF WRAP AROUND «, t00=0x0019, t01=0x0046}
0x2776…2796 Head {h00=0x001c, h01=0x0050, text=» CWR A10,A4 ALL SCANNED?«, t00=0x0019, t01=0x0070}
0x2796…27b0 Head {h00=0x0016, h01=0x0050, text=» RF(E) PACK80 YES «, t00=0x0019, t01=0x0090}
0x27b0…27c4 Head {h00=0x0010, h01=0x0050, text=»PACK70 EQU *«, t00=0x0019, t01=0x00aa}
0x27c4…27e0 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x0019, t01=0x00be}
0x27e0…2800 Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x0019, t01=0x00da}
0x2800…281a Head {h00=0x0016, h01=0x0050, text=» RB(NL) PACK20 YES«, t00=0x0019, t01=0x00fa}
0x281a…283a Head {h00=0x001c, h01=0x0050, text=» CWK A2,NULL NULL CHAR? «, t00=0x0019, t01=0x0114}
0x283a…2860 Head {h00=0x0022, h01=0x0050, text=» RF(E) PACK75 YES,DON'T STORE «, t00=0x0019, t01=0x0134}
0x2860…288a Head {h00=0x0026, h01=0x0050, text=» CF A14,PUTCHA PUT CHAR. IN BUFFER«, t00=0x0019, t01=0x015a}
0x288a…28ae Head {h00=0x0020, h01=0x0050, text=» LDR A1,A1 TRANSMISSION OK? «, t00=0x0019, t01=0x0184}
0x28ae…28c8 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PACK90 NO «, t00=0x001a, t01=0x0018}
0x28c8…28dc Head {h00=0x0010, h01=0x0050, text=»PACK75 EQU *«, t00=0x001a, t01=0x0032}
0x28dc…28ee Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x001a, t01=0x0046}
0x28ee…2900 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x001a, t01=0x0058}
0x2900…2912 Head {h00=0x000e, h01=0x0050, text=» RB PACK60«, t00=0x001a, t01=0x006a}
0x2912…2926 Head {h00=0x0010, h01=0x0050, text=»PACK80 EQU *«, t00=0x001a, t01=0x007c}
0x2926…294e Head {h00=0x0024, h01=0x0050, text=» LDK A1,0 INDICATE LAST IN CHAIN«, t00=0x001a, t01=0x0090}
0x294e…2974 Head {h00=0x0022, h01=0x0050, text=» CF A14,DCWRIT WRITE DC BUFFER«, t00=0x001a, t01=0x00b8}
0x2974…2988 Head {h00=0x0010, h01=0x0050, text=»PACK90 EQU *«, t00=0x001a, t01=0x00de}
0x2988…29ae Head {h00=0x0022, h01=0x0050, text=» LDR A8,A12 BUFFER TO RELEASE «, t00=0x001a, t01=0x00f2}
0x29ae…29d4 Head {h00=0x0022, h01=0x0050, text=» CF A14,RELBUF RELEASE BUFFER «, t00=0x001a, t01=0x0118}
0x29d4…29e4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001a, t01=0x013e}
0x29e4…29f2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x014e}
0x29f2…2a36 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x001a, t01=0x015c}
0x2a36…2a7a Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x001b, t01=0x0010}
0x2a7a…2abe Head {h00=0x0040, h01=0x0050, text=»* UNPACK UNPACK DC-BUFFER AND UPDATE VDU *«, t00=0x001b, t01=0x0054}
0x2abe…2b02 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x001b, t01=0x0098}
0x2b02…2b46 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x001b, t01=0x00dc}
0x2b46…2b5a Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x001b, t01=0x0120}
0x2b5a…2b64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0134}
0x2b64…2b78 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x001b, t01=0x013e}
0x2b78…2b9c Head {h00=0x0020, h01=0x0050, text=»* A3= POINTER IN VDU-BUFFER «, t00=0x001b, t01=0x0152}
0x2b9c…2bba Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x001b, t01=0x0176}
0x2bba…2bdc (28, 0, 398) Head {h00=0x001e, h01=0x0050, text=»* A5= LAST IN ROW REL POS «, t00=0x001c, t01=0x0004}
0x2bdc…2c04 Head {h00=0x0024, h01=0x0050, text=»* A6= INTERNAL LINE FLAG ADDRESS«, t00=0x001c, t01=0x0026}
0x2c04…2c26 Head {h00=0x001e, h01=0x0050, text=»* A8= ADDRESS IN DC-BUFFER«, t00=0x001c, t01=0x004e}
0x2c26…2c44 Head {h00=0x001a, h01=0x0050, text=»* A9= DC-BUFFER INDEX «, t00=0x001c, t01=0x0070}
0x2c44…2c5c Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x001c, t01=0x008e}
0x2c5c…2c7c Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x001c, t01=0x00a6}
0x2c7c…2c94 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x001c, t01=0x00c6}
0x2c94…2cac Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x001c, t01=0x00de}
0x2cac…2cb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00f6}
0x2cb6…2cf6 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x001c, t01=0x0100}
0x2cf6…2d0a Head {h00=0x0010, h01=0x0050, text=»UNPACK EQU *«, t00=0x001c, t01=0x0140}
0x2d0a…2d2e Head {h00=0x0020, h01=0x0050, text=» LDK A1,3 KB TOTALLY INHIBIT«, t00=0x001c, t01=0x0154}
0x2d2e…2d48 Head {h00=0x0016, h01=0x0050, text=» ORS A1,KBINH,A11 «, t00=0x001c, t01=0x0178}
0x2d48…2d60 (29, 0, 400) Head {h00=0x0014, h01=0x0050, text=» LC A1,TCT01,A11«, t00=0x001d, t01=0x0004}
0x2d60…2d86 Head {h00=0x0022, h01=0x0050, text=» CCK A1,VDUCOD PRINTER UNPACK?«, t00=0x001d, t01=0x001c}
0x2d86…2da0 Head {h00=0x0016, h01=0x0050, text=» RF(NE) UNP050 YES«, t00=0x001d, t01=0x0042}
0x2da0…2dc6 Head {h00=0x0022, h01=0x0050, text=» CF A14,LMP3ON INHIBIT LAMP ON«, t00=0x001d, t01=0x005c}
0x2dc6…2dda Head {h00=0x0010, h01=0x0050, text=»UNP050 EQU *«, t00=0x001d, t01=0x0082}
0x2dda…2e08 Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x001d, t01=0x0096}
0x2e08…2e1c Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x001d, t01=0x00c4}
0x2e1c…2e32 Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x001d, t01=0x00d8}
0x2e32…2e60 Head {h00=0x002a, h01=0x0050, text=» CF A14,LINE CHECK WRAP AND LINE FLAG «, t00=0x001d, t01=0x00ee}
0x2e60…2e72 Head {h00=0x000e, h01=0x0050, text=» SUR A9,A9«, t00=0x001d, t01=0x011c}
0x2e72…2e9e Head {h00=0x0028, h01=0x0050, text=» LD A8,BUFPNT,A11 GET BUFFER ADDRESS«, t00=0x001d, t01=0x012e}
0x2e9e…2ec4 Head {h00=0x0022, h01=0x0050, text=» LDK A1,ICOMND PROCESS COMMAND«, t00=0x001d, t01=0x015a}
0x2ec4…2ede Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x001d, t01=0x0180}
0x2ede…2ef2 Head {h00=0x0010, h01=0x0050, text=»UNP100 EQU *«, t00=0x001e, t01=0x000a}
0x2ef2…2f12 Head {h00=0x001c, h01=0x0050, text=» CF A14,GDCCH GET CHAR. «, t00=0x001e, t01=0x001e}
0x2f12…2f34 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 ANYTHING LEFT? «, t00=0x001e, t01=0x003e}
0x2f34…2f4e Head {h00=0x0016, h01=0x0050, text=» RF(NZ) UNP200 NO «, t00=0x001e, t01=0x0060}
0x2f4e…2f80 Head {h00=0x002e, h01=0x0050, text=» LD A1,UNPMOD,A11 GET ADDRESS TO START AT «, t00=0x001e, t01=0x007a}
0x2f80…2fa2 Head {h00=0x001e, h01=0x0050, text=» CFI A14,RETTAB,A1 RESTART«, t00=0x001e, t01=0x00ac}
0x2fa2…2fc2 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A1 PROCESS OKEY?«, t00=0x001e, t01=0x00ce}
0x2fc2…2fdc Head {h00=0x0016, h01=0x0050, text=» RB(Z) UNP100 YES «, t00=0x001e, t01=0x00ee}
0x2fdc…2fee Head {h00=0x000e, h01=0x0050, text=» RF UNP300«, t00=0x001e, t01=0x0108}
0x2fee…3002 Head {h00=0x0010, h01=0x0050, text=»UNP200 EQU *«, t00=0x001e, t01=0x011a}
0x3002…3014 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x001e, t01=0x012e}
0x3014…303a Head {h00=0x0022, h01=0x0050, text=» CF A14,GETNXT GET NEXT BUFFER«, t00=0x001e, t01=0x0140}
0x303a…3056 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A1 FINISHED?«, t00=0x001e, t01=0x0166}
0x3056…306e Head {h00=0x0014, h01=0x0050, text=» RB(Z) UNP100 NO«, t00=0x001e, t01=0x0182}
0x306e…307a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x000a}
0x307a…308e Head {h00=0x0010, h01=0x0050, text=»UNP300 EQU *«, t00=0x001f, t01=0x0016}
0x308e…30b4 Head {h00=0x0022, h01=0x0050, text=» CF A14,SCRINF GET LATEST NEWS«, t00=0x001f, t01=0x002a}
0x30b4…30c6 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x001f, t01=0x0050}
0x30c6…30f8 Head {h00=0x002e, h01=0x0050, text=» CF A14,ATMASB SEARCH ATTRIBUTE BACKWARDS «, t00=0x001f, t01=0x0062}
0x30f8…310a Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x001f, t01=0x0094}
0x310a…3132 Head {h00=0x0024, h01=0x0050, text=» ANKL A10,THROWB THROW BUFFERS? «, t00=0x001f, t01=0x00a6}
0x3132…314a Head {h00=0x0014, h01=0x0050, text=» RF(Z) UNP400 NO«, t00=0x001f, t01=0x00ce}
0x314a…316e Head {h00=0x0020, h01=0x0050, text=» CF A14,THRBUF THROW BUFFERS«, t00=0x001f, t01=0x00e6}
0x316e…3180 Head {h00=0x000e, h01=0x0050, text=» RF UNP600«, t00=0x001f, t01=0x010a}
0x3180…3194 Head {h00=0x0010, h01=0x0050, text=»UNP400 EQU *«, t00=0x001f, t01=0x011c}
0x3194…31aa Head {h00=0x0012, h01=0x0050, text=» IFF DISHOW=2 «, t00=0x001f, t01=0x0130}
0x31aa…31c2 Head {h00=0x0014, h01=0x0050, text=» LC A1,TCT01,A11«, t00=0x001f, t01=0x0146}
0x31c2…31d8 Head {h00=0x0012, h01=0x0050, text=» CCK A1,VDUCOD«, t00=0x001f, t01=0x015e}
0x31d8…31ee Head {h00=0x0012, h01=0x0050, text=» RF(NE) UNP500«, t00=0x001f, t01=0x0174}
0x31ee…3228 Head {h00=0x0036, h01=0x0050, text=» CF A14,DISMOD TESTINGTESTINGTESTING!!!!!!!!!!!!! «, t00=0x001f, t01=0x018a}
0x3228…323c Head {h00=0x0010, h01=0x0050, text=»UNP500 EQU *«, t00=0x0020, t01=0x0034}
0x323c…3248 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x0048}
0x3248…3276 Head {h00=0x002a, h01=0x0050, text=» CF A14,P2WCC CHECK IT A LAST TIME =4 «, t00=0x0020, t01=0x0054}
0x3276…32a0 Head {h00=0x0026, h01=0x0050, text=» LDR A8,A12 GET BUFFER TO RELEASE «, t00=0x0020, t01=0x0082}
0x32a0…32c6 Head {h00=0x0022, h01=0x0050, text=» CF A14,RELBUF RELEASE BUFFER «, t00=0x0020, t01=0x00ac}
0x32c6…32da Head {h00=0x0010, h01=0x0050, text=»UNP600 EQU *«, t00=0x0020, t01=0x00d2}
0x32da…32ea Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0020, t01=0x00e6}
0x32ea…32f8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x00f6}
0x32f8…3346 Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0020, t01=0x0104}
0x3346…3394 Head {h00=0x004a, h01=0x0050, text=»* *«, t00=0x0020, t01=0x0152}
0x3394…33e2 Head {h00=0x004a, h01=0x0050, text=»* INDEX FOR RETURNS AFTER GET CHARCTER *«, t00=0x0021, t01=0x0010}
0x33e2…3430 Head {h00=0x004a, h01=0x0050, text=»* *«, t00=0x0021, t01=0x005e}
0x3430…347e Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0021, t01=0x00ac}
0x347e…3486 Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x00fa}
0x3486…349a Head {h00=0x0010, h01=0x0050, text=»ICOMND EQU 0«, t00=0x0021, t01=0x0102}
0x349a…34b6 Head {h00=0x0018, h01=0x0050, text=»ICOMN1 EQU ICOMND+2 «, t00=0x0021, t01=0x0116}
0x34b6…34cc Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0021, t01=0x0132}
0x34cc…34e8 Head {h00=0x0018, h01=0x0050, text=»ICOCOP EQU ICOMN1+2 «, t00=0x0021, t01=0x0148}
0x34e8…3504 Head {h00=0x0018, h01=0x0050, text=»ICOWCC EQU ICOCOP+2 «, t00=0x0021, t01=0x0164}
0x3504…3510 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x0180}
0x3510…3526 Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0021, t01=0x018c}
0x3526…3542 Head {h00=0x0018, h01=0x0050, text=»ICOWCC EQU ICOMN1+2 «, t00=0x0022, t01=0x0012}
0x3542…354e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x002e}
0x354e…356a Head {h00=0x0018, h01=0x0050, text=»IORDER EQU ICOWCC+2 «, t00=0x0022, t01=0x003a}
0x356a…3586 Head {h00=0x0018, h01=0x0050, text=»IOSFAT EQU IORDER+2 «, t00=0x0022, t01=0x0056}
0x3586…35a2 Head {h00=0x0018, h01=0x0050, text=»IOSBA1 EQU IOSFAT+2 «, t00=0x0022, t01=0x0072}
0x35a2…35be Head {h00=0x0018, h01=0x0050, text=»IOSBA2 EQU IOSBA1+2 «, t00=0x0022, t01=0x008e}
0x35be…35da Head {h00=0x0018, h01=0x0050, text=»IORAA1 EQU IOSBA2+2 «, t00=0x0022, t01=0x00aa}
0x35da…35f6 Head {h00=0x0018, h01=0x0050, text=»IORAA2 EQU IORAA1+2 «, t00=0x0022, t01=0x00c6}
0x35f6…3612 Head {h00=0x0018, h01=0x0050, text=»IORACH EQU IORAA2+2 «, t00=0x0022, t01=0x00e2}
0x3612…362e Head {h00=0x0018, h01=0x0050, text=»IOEUA1 EQU IORACH+2 «, t00=0x0022, t01=0x00fe}
0x362e…364a Head {h00=0x0018, h01=0x0050, text=»IOEUA2 EQU IOEUA1+2 «, t00=0x0022, t01=0x011a}
0x364a…3658 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x0136}
0x3658…36a6 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0022, t01=0x0144}
0x36a6…36f4 (35, 0, 400) Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0023, t01=0x0004}
0x36f4…3742 Head {h00=0x004a, h01=0x0050, text=»* RETURN ADDRESSES AFTER GET CHARACTER * «, t00=0x0023, t01=0x0052}
0x3742…3790 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0023, t01=0x00a0}
0x3790…37de Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0023, t01=0x00ee}
0x37de…37f2 Head {h00=0x0010, h01=0x0050, text=»RETTAB EQU *«, t00=0x0023, t01=0x013c}
0x37f2…381c Head {h00=0x0026, h01=0x0050, text=» DATA UNPCOM PROCESS COMMAND CHAR.«, t00=0x0023, t01=0x0150}
0x381c…3850 Head {h00=0x0030, h01=0x0050, text=» DATA UNC100 PROCESS COMMAND CHAR AFTER ESC.«, t00=0x0023, t01=0x017a}
0x3850…3866 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0024, t01=0x001e}
0x3866…388e Head {h00=0x0024, h01=0x0050, text=» DATA UNC150 PROCESS FROM DEVICE«, t00=0x0024, t01=0x0034}
0x388e…389a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x005c}
0x389a…38ba Head {h00=0x001c, h01=0x0050, text=» DATA UNC600 PROCESS WCC«, t00=0x0024, t01=0x0068}
0x38ba…38e8 Head {h00=0x002a, h01=0x0050, text=» DATA UNPORD PROCESS ORDERS AND CHAR. «, t00=0x0024, t01=0x0088}
0x38e8…390e Head {h00=0x0022, h01=0x0050, text=» DATA SF100 PROCESS ATTRIBUTE «, t00=0x0024, t01=0x00b6}
0x390e…393e Head {h00=0x002c, h01=0x0050, text=» DATA SBA100 PROCESS FIRST ADDRESS BYTE «, t00=0x0024, t01=0x00dc}
0x393e…396e Head {h00=0x002c, h01=0x0050, text=» DATA SBA200 PROCESS SECOND ADDRESS BYTE«, t00=0x0024, t01=0x010c}
0x396e…399c Head {h00=0x002a, h01=0x0050, text=» DATA RA100 PROCESS FIRST ADDRESS BYTE«, t00=0x0024, t01=0x013c}
0x399c…39cc Head {h00=0x002c, h01=0x0050, text=» DATA RA200 PROCESS SECOND ADDRESS BYTE «, t00=0x0024, t01=0x016a}
0x39cc…39f8 Head {h00=0x0028, h01=0x0050, text=» DATA RA250 PROCESS CHAR. TO REPEAT «, t00=0x0025, t01=0x000a}
0x39f8…3a28 Head {h00=0x002c, h01=0x0050, text=» DATA EUA100 PROCESS FIRST ADDRESS BYTE «, t00=0x0025, t01=0x0036}
0x3a28…3a58 Head {h00=0x002c, h01=0x0050, text=» DATA EUA200 PROCESS FIRST ADDRESS BYTE «, t00=0x0025, t01=0x0066}
0x3a58…3a66 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x0096}
0x3a66…3ab6 Head {h00=0x004c, h01=0x0050, text=»*********************************************************************** «, t00=0x0025, t01=0x00a4}
0x3ab6…3b06 Head {h00=0x004c, h01=0x0050, text=»* * «, t00=0x0025, t01=0x00f4}
0x3b06…3b56 Head {h00=0x004c, h01=0x0050, text=»* UNPCOM UNPACK COMMAND * «, t00=0x0025, t01=0x0144}
0x3b56…3ba6 (38, 0, 400) Head {h00=0x004c, h01=0x0050, text=»* * «, t00=0x0026, t01=0x0004}
0x3ba6…3bf6 Head {h00=0x004c, h01=0x0050, text=»*********************************************************************** «, t00=0x0026, t01=0x0054}
0x3bf6…3c0a Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0026, t01=0x00a4}
0x3c0a…3c14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00b8}
0x3c14…3c28 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0026, t01=0x00c2}
0x3c28…3c4c Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x0026, t01=0x00d6}
0x3c4c…3c6e Head {h00=0x001e, h01=0x0050, text=»* A4= REL. CURSOR ADDRESS «, t00=0x0026, t01=0x00fa}
0x3c6e…3c90 Head {h00=0x001e, h01=0x0050, text=»* A5= LAST IN ROW REL POS «, t00=0x0026, t01=0x011c}
0x3c90…3cb8 Head {h00=0x0024, h01=0x0050, text=»* A6= INTERNAL LINE FLAG ADDRESS«, t00=0x0026, t01=0x013e}
0x3cb8…3cda Head {h00=0x001e, h01=0x0050, text=»* A8= ADDRESS IN DC-BUFFER«, t00=0x0026, t01=0x0166}
0x3cda…3cf0 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x0026, t01=0x0188}
0x3cf0…3d08 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0027, t01=0x000e}
0x3d08…3d28 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0027, t01=0x0026}
0x3d28…3d40 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0027, t01=0x0046}
0x3d40…3d58 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0027, t01=0x005e}
0x3d58…3d62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0076}
0x3d62…3db2 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0027, t01=0x0080}
0x3db2…3dde Head {h00=0x0028, h01=0x0050, text=»UNPCOM EQU * ENTRY LABEL FROM RETTAB«, t00=0x0027, t01=0x00d0}
0x3dde…3df0 Head {h00=0x000e, h01=0x0050, text=» IFF SNA=1«, t00=0x0027, t01=0x00fc}
0x3df0…3e18 Head {h00=0x0024, h01=0x0050, text=» LDK A1,ICOMN1 WHERE TO CONTINUE«, t00=0x0027, t01=0x010e}
0x3e18…3e32 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0027, t01=0x0136}
0x3e32…3e50 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0027, t01=0x0150}
0x3e50…3e6e Head {h00=0x001a, h01=0x0050, text=» CWK A2,ESCCHA ESCAPE?«, t00=0x0027, t01=0x016e}
0x3e6e…3e88 Head {h00=0x0016, h01=0x0050, text=» RF(E) UNC900 YES «, t00=0x0027, t01=0x018c}
0x3e88…3eac Head {h00=0x0020, h01=0x0050, text=» LDK A1,1 NO INDICATE ERROR «, t00=0x0028, t01=0x0016}
0x3eac…3ebe Head {h00=0x000e, h01=0x0050, text=» RF UNC900«, t00=0x0028, t01=0x003a}
0x3ebe…3eca Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x004c}
0x3eca…3ede Head {h00=0x0010, h01=0x0050, text=»UNC100 EQU *«, t00=0x0028, t01=0x0058}
0x3ede…3ef8 Head {h00=0x0016, h01=0x0050, text=» CWK A2,/31 WRITE?«, t00=0x0028, t01=0x006c}
0x3ef8…3f12 Head {h00=0x0016, h01=0x0050, text=» RF(E) UNC500 YES «, t00=0x0028, t01=0x0086}
0x3f12…3f36 Head {h00=0x0020, h01=0x0050, text=» CWK A2,/35 ERASE AND WITE? «, t00=0x0028, t01=0x00a0}
0x3f36…3f50 Head {h00=0x0016, h01=0x0050, text=» RF(E) UNC200 YES «, t00=0x0028, t01=0x00c4}
0x3f50…3f7a Head {h00=0x0026, h01=0x0050, text=» CWK A2,/3F ERASE ALL UNPROTECTED?«, t00=0x0028, t01=0x00de}
0x3f7a…3f94 Head {h00=0x0016, h01=0x0050, text=» RF(E) UNC300 YES «, t00=0x0028, t01=0x0108}
0x3f94…3faa Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0028, t01=0x0122}
0x3faa…3fcc Head {h00=0x001e, h01=0x0050, text=» CWK A2,/37 COPY COMMAND? «, t00=0x0028, t01=0x0138}
0x3fcc…3fe6 Head {h00=0x0016, h01=0x0050, text=» RF(NE) UNC175 NO «, t00=0x0028, t01=0x015a}
0x3fe6…400a Head {h00=0x0020, h01=0x0050, text=» LDK A1,ICOCOP RESTART ENTRY«, t00=0x0028, t01=0x0174}
0x400a…401c Head {h00=0x000e, h01=0x0050, text=» RF UNC800«, t00=0x0029, t01=0x0008}
0x401c…4048 Head {h00=0x0028, h01=0x0050, text=»UNC150 EQU * ENTRY LABEL FROM RETTAB«, t00=0x0029, t01=0x001a}
0x4048…4068 Head {h00=0x001c, h01=0x0050, text=» CF A14,MATCH GET TASKID«, t00=0x0029, t01=0x0046}
0x4068…407e Head {h00=0x0012, h01=0x0050, text=» LDR A1,A1 OK?«, t00=0x0029, t01=0x0066}
0x407e…4098 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) UNC175 NO «, t00=0x0029, t01=0x007c}
0x4098…40d2 Head {h00=0x0036, h01=0x0050, text=» LDKL A1,/8000 RETURN CODE TO INDICATE COPY COMND.«, t00=0x0029, t01=0x0096}
0x40d2…40ea Head {h00=0x0014, h01=0x0050, text=» ST A1,REGI,A11 «, t00=0x0029, t01=0x00d0}
0x40ea…4104 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBICW,A11 «, t00=0x0029, t01=0x00e8}
0x4104…4126 Head {h00=0x001e, h01=0x0050, text=» CF A14,ICSET SET TIMEOUT «, t00=0x0029, t01=0x0102}
0x4126…4146 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A2 TASK TO CALL «, t00=0x0029, t01=0x0124}
0x4146…415e Head {h00=0x0014, h01=0x0050, text=» LDK A2,2 LENGTH«, t00=0x0029, t01=0x0144}
0x415e…4174 Head {h00=0x0012, h01=0x0050, text=» LDKL A3,REGI «, t00=0x0029, t01=0x015c}
0x4174…418e Head {h00=0x0016, h01=0x0050, text=» ADR A3,A11 BUFFER«, t00=0x0029, t01=0x0172}
0x418e…41ac Head {h00=0x001a, h01=0x0050, text=» CF A14,ICWRT SEND IT «, t00=0x0029, t01=0x018c}
0x41ac…41c0 Head {h00=0x0010, h01=0x0050, text=»UNC175 EQU *«, t00=0x002a, t01=0x001a}
0x41c0…41cc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x002e}
0x41cc…41f4 Head {h00=0x0024, h01=0x0050, text=» LDKL A10,THROWB THROW THE REST «, t00=0x002a, t01=0x003a}
0x41f4…4214 Head {h00=0x001c, h01=0x0050, text=» LDK A1,1 INDICATE ERROR«, t00=0x002a, t01=0x0062}
0x4214…4236 Head {h00=0x001e, h01=0x0050, text=» RF UNC900 INVALID COMMAND«, t00=0x002a, t01=0x0082}
0x4236…424a Head {h00=0x0010, h01=0x0050, text=»UNC200 EQU *«, t00=0x002a, t01=0x00a4}
0x424a…4262 Head {h00=0x0014, h01=0x0050, text=» ST A8,REGI,A11 «, t00=0x002a, t01=0x00b8}
0x4262…428c Head {h00=0x0026, h01=0x0050, text=» CF A14,ERASE ERASE ENTIRE SCREEN «, t00=0x002a, t01=0x00d0}
0x428c…42a4 Head {h00=0x0014, h01=0x0050, text=» LD A8,REGI,A11 «, t00=0x002a, t01=0x00fa}
0x42a4…42b8 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x002a, t01=0x0112}
0x42b8…42ce Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x002a, t01=0x0126}
0x42ce…42f8 Head {h00=0x0026, h01=0x0050, text=» LDK A4,0 INITIATE BUFFER ADDRESS «, t00=0x002a, t01=0x013c}
0x42f8…430a Head {h00=0x000e, h01=0x0050, text=» RF UNC500«, t00=0x002a, t01=0x0166}
0x430a…431e Head {h00=0x0010, h01=0x0050, text=»UNC300 EQU *«, t00=0x002a, t01=0x0178}
0x431e…434a Head {h00=0x0028, h01=0x0050, text=» CF A14,ERASUP ERASE ALL UNPROTECTED«, t00=0x002a, t01=0x018c}
0x434a…4370 Head {h00=0x0022, h01=0x0050, text=» LDKL A10,THROWB THROW IT AWAY«, t00=0x002b, t01=0x0028}
0x4370…4390 Head {h00=0x001c, h01=0x0050, text=» LDK A1,1 INDICATE ERROR«, t00=0x002b, t01=0x004e}
0x4390…43a2 Head {h00=0x000e, h01=0x0050, text=» RF UNC900«, t00=0x002b, t01=0x006e}
0x43a2…43b6 Head {h00=0x0010, h01=0x0050, text=»UNC500 EQU *«, t00=0x002b, t01=0x0080}
0x43b6…43d6 Head {h00=0x001c, h01=0x0050, text=» LDK A1,ICOWCC GET INDEX«, t00=0x002b, t01=0x0094}
0x43d6…43f0 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x002b, t01=0x00b4}
0x43f0…4402 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x002b, t01=0x00ce}
0x4402…4414 Head {h00=0x000e, h01=0x0050, text=» RF UNC900«, t00=0x002b, t01=0x00e0}
0x4414…4440 Head {h00=0x0028, h01=0x0050, text=»UNC600 EQU * ENTRY LABEL FROM RETTAB«, t00=0x002b, t01=0x00f2}
0x4440…4470 Head {h00=0x002c, h01=0x0050, text=» CF A14,P1WCC PROCESS WCC BEFORE UPDATE «, t00=0x002b, t01=0x011e}
0x4470…4482 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A4«, t00=0x002b, t01=0x014e}
0x4482…44a8 Head {h00=0x0022, h01=0x0050, text=» ADKL A3,BVDU GET REAL ADDRESS«, t00=0x002b, t01=0x0160}
0x44a8…44bc Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x002b, t01=0x0186}
0x44bc…44e6 Head {h00=0x0026, h01=0x0050, text=» ORKL A10,PTORD INDICATE PT ORDER «, t00=0x002c, t01=0x000a}
0x44e6…4510 Head {h00=0x0026, h01=0x0050, text=» LDK A1,IORDER INDICATE NEXT CALL «, t00=0x002c, t01=0x0034}
0x4510…4524 Head {h00=0x0010, h01=0x0050, text=»UNC800 EQU *«, t00=0x002c, t01=0x005e}
0x4524…453e Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x002c, t01=0x0072}
0x453e…4550 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x002c, t01=0x008c}
0x4550…4564 Head {h00=0x0010, h01=0x0050, text=»UNC900 EQU *«, t00=0x002c, t01=0x009e}
0x4564…4574 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002c, t01=0x00b2}
0x4574…4582 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x00c2}
0x4582…45c4 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x002c, t01=0x00d0}
0x45c4…4606 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x002c, t01=0x0112}
0x4606…4648 Head {h00=0x003e, h01=0x0050, text=»* UNPORD UNPACK ORDERS *«, t00=0x002c, t01=0x0154}
0x4648…468a Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x002d, t01=0x0008}
0x468a…46cc Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x002d, t01=0x004a}
0x46cc…46e0 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x002d, t01=0x008c}
0x46e0…46ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00a0}
0x46ea…46fe Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x002d, t01=0x00aa}
0x46fe…4722 Head {h00=0x0020, h01=0x0050, text=»* A3= POINTER IN VDU BUFFER «, t00=0x002d, t01=0x00be}
0x4722…4740 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x002d, t01=0x00e2}
0x4740…4762 Head {h00=0x001e, h01=0x0050, text=»* A5= LAST IN ROW REL POS «, t00=0x002d, t01=0x0100}
0x4762…478a Head {h00=0x0024, h01=0x0050, text=»* A6= INTERNAL LINE FLAG ADDRESS«, t00=0x002d, t01=0x0122}
0x478a…47a0 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x002d, t01=0x014a}
0x47a0…47b6 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x002d, t01=0x0160}
0x47b6…47ce Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x002d, t01=0x0176}
0x47ce…47e6 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x002d, t01=0x018e}
0x47e6…47fe Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x002e, t01=0x0016}
0x47fe…4816 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x002e, t01=0x002e}
0x4816…4820 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0046}
0x4820…4862 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x002e, t01=0x0050}
0x4862…488e Head {h00=0x0028, h01=0x0050, text=»UNPORD EQU * ENTRY LABEL FROM RETTAB«, t00=0x002e, t01=0x0092}
0x488e…48a8 Head {h00=0x0016, h01=0x0050, text=» CWK A2,/20 ORDER?«, t00=0x002e, t01=0x00be}
0x48a8…48c2 Head {h00=0x0016, h01=0x0050, text=» RF(L) UNO100 YES «, t00=0x002e, t01=0x00d8}
0x48c2…48f0 Head {h00=0x002a, h01=0x0050, text=» XRKL A10,PTORD INDICATE FOR PT ORDER «, t00=0x002e, t01=0x00f2}
0x48f0…490c Head {h00=0x0018, h01=0x0050, text=» CWR A5,A4 NEW LINE?«, t00=0x002e, t01=0x0120}
0x490c…4924 Head {h00=0x0014, h01=0x0050, text=» RF(G) UNO050 NO«, t00=0x002e, t01=0x013c}
0x4924…4944 Head {h00=0x001c, h01=0x0050, text=» CF A14,LINE CHECK WRAP «, t00=0x002e, t01=0x0154}
0x4944…4958 Head {h00=0x0010, h01=0x0050, text=»UNO050 EQU *«, t00=0x002e, t01=0x0174}
0x4958…4984 Head {h00=0x0028, h01=0x0050, text=» SCR A2,A3 STORE CHAR. IN VDU BUFFER«, t00=0x002e, t01=0x0188}
0x4984…499c Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x002f, t01=0x0024}
0x499c…49ae Head {h00=0x000e, h01=0x0050, text=» ORK A1,1 «, t00=0x002f, t01=0x003c}
0x49ae…49c6 Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x002f, t01=0x004e}
0x49c6…49d8 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x002f, t01=0x0066}
0x49d8…49ea Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x002f, t01=0x0078}
0x49ea…49fc Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x002f, t01=0x008a}
0x49fc…4a0e Head {h00=0x000e, h01=0x0050, text=» RF UNO200«, t00=0x002f, t01=0x009c}
0x4a0e…4a22 Head {h00=0x0010, h01=0x0050, text=»UNO100 EQU *«, t00=0x002f, t01=0x00ae}
0x4a22…4a4a Head {h00=0x0024, h01=0x0050, text=» LC A1,CONORD,A2 GET ORDER INDEX«, t00=0x002f, t01=0x00c2}
0x4a4a…4a78 Head {h00=0x002a, h01=0x0050, text=» CFI A14,ORDTAB,A1 TAKE CARE OF ORDER «, t00=0x002f, t01=0x00ea}
0x4a78…4a8c Head {h00=0x0010, h01=0x0050, text=»UNO200 EQU *«, t00=0x002f, t01=0x0118}
0x4a8c…4a9c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002f, t01=0x012c}
0x4a9c…4aaa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002f, t01=0x013c}
0x4aaa…4af0 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x002f, t01=0x014a}
0x4af0…4b36 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x002f, t01=0x0190}
0x4b36…4b7c Head {h00=0x0042, h01=0x0050, text=»* ORDTAB ORDER TABLE * «, t00=0x0030, t01=0x0046}
0x4b7c…4bc2 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0030, t01=0x008c}
0x4bc2…4c08 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0030, t01=0x00d2}
0x4c08…4c1c Head {h00=0x0010, h01=0x0050, text=»ORDTAB EQU *«, t00=0x0030, t01=0x0118}
0x4c1c…4c3e Head {h00=0x001e, h01=0x0050, text=» DATA INVAL INVALID CHAR. «, t00=0x0030, t01=0x012c}
0x4c3e…4c5a Head {h00=0x0018, h01=0x0050, text=» DATA SF START FIELD«, t00=0x0030, t01=0x014e}
0x4c5a…4c7e Head {h00=0x0020, h01=0x0050, text=» DATA SBA SET BUFFER ADDRESS«, t00=0x0030, t01=0x016a}
0x4c7e…4c9c Head {h00=0x001a, h01=0x0050, text=» DATA IC INSERT CURSOR«, t00=0x0030, t01=0x018e}
0x4c9c…4cb2 Head {h00=0x0012, h01=0x0050, text=» DATA PT TAB. «, t00=0x0031, t01=0x001c}
0x4cb2…4cd4 Head {h00=0x001e, h01=0x0050, text=» DATA RA REPEAT TO AADRESS«, t00=0x0031, t01=0x0032}
0x4cd4…4d02 Head {h00=0x002a, h01=0x0050, text=» DATA EUA ERASE UNPROTECTED TO ADDRESS«, t00=0x0031, t01=0x0054}
0x4d02…4d1a Head {h00=0x0014, h01=0x0050, text=» DATA ESC ESCAPE«, t00=0x0031, t01=0x0082}
0x4d1a…4d3a Head {h00=0x001c, h01=0x0050, text=» DATA NULCHA NULL CHAR. «, t00=0x0031, t01=0x009a}
0x4d3a…4d54 Head {h00=0x0016, h01=0x0050, text=» DATA NL NEW LINE «, t00=0x0031, t01=0x00ba}
0x4d54…4d6e Head {h00=0x0016, h01=0x0050, text=» DATA FF FORM FEED«, t00=0x0031, t01=0x00d4}
0x4d6e…4d8a Head {h00=0x0018, h01=0x0050, text=» DATA EM END MESSAGE«, t00=0x0031, t01=0x00ee}
0x4d8a…4daa Head {h00=0x001c, h01=0x0050, text=» DATA CR CARRIAGE RETURN«, t00=0x0031, t01=0x010a}
0x4daa…4db8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0031, t01=0x012a}
0x4db8…4dfc Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0031, t01=0x0138}
0x4dfc…4e40 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0031, t01=0x017c}
0x4e40…4e84 Head {h00=0x0040, h01=0x0050, text=»* SF START FIELD * «, t00=0x0032, t01=0x0030}
0x4e84…4ec8 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0032, t01=0x0074}
0x4ec8…4f0c Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0032, t01=0x00b8}
0x4f0c…4f20 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0032, t01=0x00fc}
0x4f20…4f2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0110}
0x4f2a…4f44 Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x0032, t01=0x011a}
0x4f44…4f5a Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x0032, t01=0x0134}
0x4f5a…4f7e Head {h00=0x0020, h01=0x0050, text=»* A3= POINTER IN VDU BUFFER «, t00=0x0032, t01=0x014a}
0x4f7e…4f9c Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0032, t01=0x016e}
0x4f9c…4fb2 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0032, t01=0x018c}
0x4fb2…4fc8 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0033, t01=0x0012}
0x4fc8…4fde Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0033, t01=0x0028}
0x4fde…4ffc Head {h00=0x001a, h01=0x0050, text=»* A9= DC-BUFFER INDEX «, t00=0x0033, t01=0x003e}
0x4ffc…5014 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0033, t01=0x005c}
0x5014…5034 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0033, t01=0x0074}
0x5034…504c Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0033, t01=0x0094}
0x504c…5064 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0033, t01=0x00ac}
0x5064…506e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00c4}
0x506e…50b2 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0033, t01=0x00ce}
0x50b2…50c2 Head {h00=0x000c, h01=0x0050, text=»SF EQU *«, t00=0x0033, t01=0x0112}
0x50c2…50ec Head {h00=0x0026, h01=0x0050, text=» LDK A1,IOSFAT INDICATE NEXT CALL «, t00=0x0033, t01=0x0122}
0x50ec…5106 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0033, t01=0x014c}
0x5106…5122 Head {h00=0x0018, h01=0x0050, text=» RF SF900 GET CHAR. «, t00=0x0033, t01=0x0166}
0x5122…514e Head {h00=0x0028, h01=0x0050, text=»SF100 EQU * ENTRY LABEL FROM RETTAB «, t00=0x0033, t01=0x0182}
0x514e…5170 Head {h00=0x001e, h01=0x0050, text=» LDK A1,IORDER NEXT ALBEL «, t00=0x0034, t01=0x001e}
0x5170…518a Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0034, t01=0x0040}
0x518a…51ac Head {h00=0x001e, h01=0x0050, text=» LC A2,CONATT,A2 IN EBCDIC«, t00=0x0034, t01=0x005a}
0x51ac…51ca Head {h00=0x001a, h01=0x0050, text=» ORK A2,/80 ATTR. BIT «, t00=0x0034, t01=0x007c}
0x51ca…51e0 Head {h00=0x0012, h01=0x0050, text=» CM CURATT,A11«, t00=0x0034, t01=0x009a}
0x51e0…51fe Head {h00=0x001a, h01=0x0050, text=» ORKL A10,ATTREC+PTORD«, t00=0x0034, t01=0x00b0}
0x51fe…5220 Head {h00=0x001e, h01=0x0050, text=» CF A14,LINWRP CHECK WRAP «, t00=0x0034, t01=0x00ce}
0x5220…5238 Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x0034, t01=0x00f0}
0x5238…5258 Head {h00=0x001c, h01=0x0050, text=» ANK A1,2 LINE IN FIELD?«, t00=0x0034, t01=0x0108}
0x5258…5270 Head {h00=0x0014, h01=0x0050, text=» RF(Z) SF600 NO «, t00=0x0034, t01=0x0128}
0x5270…52a2 Head {h00=0x002e, h01=0x0050, text=» CF A14,LINATT INDICATE ATTRIBUTE OVERRUN «, t00=0x0034, t01=0x0140}
0x52a2…52b6 Head {h00=0x0010, h01=0x0050, text=»SF600 EQU * «, t00=0x0034, t01=0x0172}
0x52b6…52ea Head {h00=0x0030, h01=0x0050, text=» ORKL A10,ATTREC INDICATE ATTRIBUTE RECEIVED«, t00=0x0034, t01=0x0186}
0x52ea…5308 Head {h00=0x001a, h01=0x0050, text=» SCR A2,A3 STORE CHAR.«, t00=0x0035, t01=0x002a}
0x5308…531a Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0035, t01=0x0048}
0x531a…532c Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0035, t01=0x005a}
0x532c…5340 Head {h00=0x0010, h01=0x0050, text=»SF900 EQU * «, t00=0x0035, t01=0x006c}
0x5340…5352 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0035, t01=0x0080}
0x5352…5362 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0035, t01=0x0092}
0x5362…5370 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0035, t01=0x00a2}
0x5370…53b4 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0035, t01=0x00b0}
0x53b4…53f8 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0035, t01=0x00f4}
0x53f8…543c Head {h00=0x0040, h01=0x0050, text=»* SBA SET BUFFER ADDRESS * «, t00=0x0035, t01=0x0138}
0x543c…5480 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0035, t01=0x017c}
0x5480…54c4 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0036, t01=0x0030}
0x54c4…54d8 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0036, t01=0x0074}
0x54d8…54e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0088}
0x54e2…54fc Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x0036, t01=0x0092}
0x54fc…5510 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0036, t01=0x00ac}
0x5510…5526 Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x0036, t01=0x00c0}
0x5526…553c Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0036, t01=0x00d6}
0x553c…5552 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0036, t01=0x00ec}
0x5552…5568 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0036, t01=0x0102}
0x5568…557e Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0036, t01=0x0118}
0x557e…5594 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x0036, t01=0x012e}
0x5594…55ac Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0036, t01=0x0144}
0x55ac…55cc Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0036, t01=0x015c}
0x55cc…55e4 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0036, t01=0x017c}
0x55e4…55fc (55, 0, 400) Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0037, t01=0x0004}
0x55fc…5606 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x001c}
0x5606…564a Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0037, t01=0x0026}
0x564a…565c Head {h00=0x000e, h01=0x0050, text=»SBA EQU * «, t00=0x0037, t01=0x006a}
0x565c…567e Head {h00=0x001e, h01=0x0050, text=» LDK A1,IOSBA1 NEXT LABEL «, t00=0x0037, t01=0x007c}
0x567e…5698 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0037, t01=0x009e}
0x5698…56aa Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0037, t01=0x00b8}
0x56aa…56c8 Head {h00=0x001a, h01=0x0050, text=» RF SBA900 FIRST BYTE «, t00=0x0037, t01=0x00ca}
0x56c8…56f4 Head {h00=0x0028, h01=0x0050, text=»SBA100 EQU * ENTRY LABEL FROM RETTAB«, t00=0x0037, t01=0x00e8}
0x56f4…5714 Head {h00=0x001c, h01=0x0050, text=» LC A7,CONATT,A2 CONVERT«, t00=0x0037, t01=0x0114}
0x5714…5728 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/3F «, t00=0x0037, t01=0x0134}
0x5728…573a Head {h00=0x000e, h01=0x0050, text=» SLL A7,6 «, t00=0x0037, t01=0x0148}
0x573a…5750 Head {h00=0x0012, h01=0x0050, text=» LDK A1,IOSBA2«, t00=0x0037, t01=0x015a}
0x5750…576a Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0037, t01=0x0170}
0x576a…577c Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0037, t01=0x018a}
0x577c…5798 Head {h00=0x0018, h01=0x0050, text=» RF SBA900 NEXT BYTE«, t00=0x0038, t01=0x000c}
0x5798…57c4 Head {h00=0x0028, h01=0x0050, text=»SBA200 EQU * ENTRY LABEL FROM RETTAB«, t00=0x0038, t01=0x0028}
0x57c4…57dc Head {h00=0x0014, h01=0x0050, text=» LC A2,CONATT,A2«, t00=0x0038, t01=0x0054}
0x57dc…57f0 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x0038, t01=0x006c}
0x57f0…5802 Head {h00=0x000e, h01=0x0050, text=» ORR A7,A2«, t00=0x0038, t01=0x0080}
0x5802…5824 Head {h00=0x001e, h01=0x0050, text=» LDK A1,IORDER NEXT LABEL «, t00=0x0038, t01=0x0092}
0x5824…583e Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0038, t01=0x00b4}
0x583e…5864 Head {h00=0x0022, h01=0x0050, text=» CWK A7,LBVDU ILLEGAL ADDRESS?«, t00=0x0038, t01=0x00ce}
0x5864…587e Head {h00=0x0016, h01=0x0050, text=» RF(NL) SBA800 YES«, t00=0x0038, t01=0x00f4}
0x587e…5890 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A7«, t00=0x0038, t01=0x010e}
0x5890…58a2 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x0038, t01=0x0120}
0x58a2…58b8 Head {h00=0x0012, h01=0x0050, text=» ADKL A3,BVDU «, t00=0x0038, t01=0x0132}
0x58b8…58cc Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0038, t01=0x0148}
0x58cc…58f6 Head {h00=0x0026, h01=0x0050, text=» ORKL A10,PTORD INDICATE PT ORDER «, t00=0x0038, t01=0x015c}
0x58f6…5924 Head {h00=0x002a, h01=0x0050, text=» CF A14,LINE CHECK WRAP AND LINE FLAGS«, t00=0x0038, t01=0x0186}
0x5924…5940 Head {h00=0x0018, h01=0x0050, text=» LDK A1,0 REURN CODE«, t00=0x0039, t01=0x0024}
0x5940…5952 Head {h00=0x000e, h01=0x0050, text=» RF SBA900«, t00=0x0039, t01=0x0040}
0x5952…5966 Head {h00=0x0010, h01=0x0050, text=»SBA800 EQU *«, t00=0x0039, t01=0x0052}
0x5966…598c Head {h00=0x0022, h01=0x0050, text=» ORKL A10,THROWB DON'T SAVE IT«, t00=0x0039, t01=0x0066}
0x598c…59aa Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 RETURN CODE «, t00=0x0039, t01=0x008c}
0x59aa…59be Head {h00=0x0010, h01=0x0050, text=»SBA900 EQU *«, t00=0x0039, t01=0x00aa}
0x59be…59ce Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0039, t01=0x00be}
0x59ce…59dc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0039, t01=0x00ce}
0x59dc…5a1e Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0039, t01=0x00dc}
0x5a1e…5a60 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x0039, t01=0x011e}
0x5a60…5aa2 Head {h00=0x003e, h01=0x0050, text=»* IC INSERT CURSOR *«, t00=0x0039, t01=0x0160}
0x5aa2…5ae4 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x003a, t01=0x0012}
0x5ae4…5b26 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x003a, t01=0x0054}
0x5b26…5b3a Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x003a, t01=0x0096}
0x5b3a…5b44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00aa}
0x5b44…5b5e Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x003a, t01=0x00b4}
0x5b5e…5b74 Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x003a, t01=0x00ce}
0x5b74…5b8a Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x003a, t01=0x00e4}
0x5b8a…5ba8 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x003a, t01=0x00fa}
0x5ba8…5bbe Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x003a, t01=0x0118}
0x5bbe…5bd4 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x003a, t01=0x012e}
0x5bd4…5bea Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x003a, t01=0x0144}
0x5bea…5c02 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x003a, t01=0x015a}
0x5c02…5c22 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x003a, t01=0x0172}
0x5c22…5c3a (59, 0, 400) Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x003b, t01=0x0004}
0x5c3a…5c52 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x003b, t01=0x001c}
0x5c52…5c5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0034}
0x5c5c…5c94 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x003b, t01=0x003e}
0x5c94…5ca4 Head {h00=0x000c, h01=0x0050, text=»IC EQU *«, t00=0x003b, t01=0x0076}
0x5ca4…5cbc Head {h00=0x0014, h01=0x0050, text=» ST A4,PCURS,A11«, t00=0x003b, t01=0x0086}
0x5cbc…5cdc Head {h00=0x001c, h01=0x0050, text=» ORKL A10,PTORD INDICATE«, t00=0x003b, t01=0x009e}
0x5cdc…5cfa Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x003b, t01=0x00be}
0x5cfa…5d0a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003b, t01=0x00dc}
0x5d0a…5d18 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003b, t01=0x00ec}
0x5d18…5d5c Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x003b, t01=0x00fa}
0x5d5c…5da0 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x003b, t01=0x013e}
0x5da0…5de4 Head {h00=0x0040, h01=0x0050, text=»* PT PROGRAM TAB. * «, t00=0x003b, t01=0x0182}
0x5de4…5e28 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x003c, t01=0x0036}
0x5e28…5e6c Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x003c, t01=0x007a}
0x5e6c…5e80 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x003c, t01=0x00be}
0x5e80…5e8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00d2}
0x5e8a…5ea4 Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x003c, t01=0x00dc}
0x5ea4…5eb8 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x003c, t01=0x00f6}
0x5eb8…5edc Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x003c, t01=0x010a}
0x5edc…5efa Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x003c, t01=0x012e}
0x5efa…5f10 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x003c, t01=0x014c}
0x5f10…5f2e Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x003c, t01=0x0162}
0x5f2e…5f44 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x003c, t01=0x0180}
0x5f44…5f5a Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x003d, t01=0x0008}
0x5f5a…5f72 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x003d, t01=0x001e}
0x5f72…5f8a Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x003d, t01=0x0036}
0x5f8a…5fa2 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x003d, t01=0x004e}
0x5fa2…5fba Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x003d, t01=0x0066}
0x5fba…5fc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x007e}
0x5fc4…6008 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x003d, t01=0x0088}
0x6008…6018 Head {h00=0x000c, h01=0x0050, text=»PT EQU *«, t00=0x003d, t01=0x00cc}
0x6018…602c Head {h00=0x0010, h01=0x0050, text=» LDR A1,A10 «, t00=0x003d, t01=0x00dc}
0x602c…605e Head {h00=0x002e, h01=0x0050, text=» ANK A1,PTORD FOLLOWING ORDER OR COMMAND? «, t00=0x003d, t01=0x00f0}
0x605e…6078 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PT300 YES «, t00=0x003d, t01=0x0122}
0x6078…60ac Head {h00=0x0030, h01=0x0050, text=» LDK A7,NULL FILL WITH NULLS TO END OF FIELD«, t00=0x003d, t01=0x013c}
0x60ac…60d2 Head {h00=0x0022, h01=0x0050, text=» LDR A4,A4 AT POS. ZERO ? DK1 «, t00=0x003d, t01=0x0170}
0x60d2…60fa Head {h00=0x0024, h01=0x0050, text=» RF(Z) PT210 YES, PROCESS IT DK1«, t00=0x003e, t01=0x0008}
0x60fa…610e Head {h00=0x0010, h01=0x0050, text=»PT200 EQU * «, t00=0x003e, t01=0x0030}
0x610e…6130 Head {h00=0x001e, h01=0x0050, text=» CF A14,LINWRP CHECK WRAP «, t00=0x003e, t01=0x0044}
0x6130…6152 Head {h00=0x001e, h01=0x0050, text=» LDR A4,A4 END OF BUFFER? «, t00=0x003e, t01=0x0066}
0x6152…6178 Head {h00=0x0022, h01=0x0050, text=» RF(Z) PT800 YES, KUNTA KINTE «, t00=0x003e, t01=0x0088}
0x6178…6190 Head {h00=0x0014, h01=0x0050, text=»PT210 EQU * DK1«, t00=0x003e, t01=0x00ae}
0x6190…61a2 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A3«, t00=0x003e, t01=0x00c6}
0x61a2…61c0 Head {h00=0x001a, h01=0x0050, text=» ANK A2,/80 ATTRIBUTE?«, t00=0x003e, t01=0x00d8}
0x61c0…61da Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PT400 YES «, t00=0x003e, t01=0x00f6}
0x61da…61fe Head {h00=0x0020, h01=0x0050, text=» SCR A7,A3 STORE NULL CHAR. «, t00=0x003e, t01=0x0110}
0x61fe…6216 Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x003e, t01=0x0134}
0x6216…6228 Head {h00=0x000e, h01=0x0050, text=» ORK A1,1 «, t00=0x003e, t01=0x014c}
0x6228…6240 Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x003e, t01=0x015e}
0x6240…6252 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x003e, t01=0x0176}
0x6252…6264 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x003e, t01=0x0188}
0x6264…6276 Head {h00=0x000e, h01=0x0050, text=» RB PT200 «, t00=0x003f, t01=0x000a}
0x6276…628e Head {h00=0x0014, h01=0x0050, text=»PT300 EQU * DK1«, t00=0x003f, t01=0x001c}
0x628e…62b4 Head {h00=0x0022, h01=0x0050, text=» LDR A4,A4 AT POS. ZERO ? DK1 «, t00=0x003f, t01=0x0034}
0x62b4…62de Head {h00=0x0026, h01=0x0050, text=» RF(Z) PT410 YES, PROCESS IT. DK1 «, t00=0x003f, t01=0x005a}
0x62de…62f2 Head {h00=0x0010, h01=0x0050, text=»PT400 EQU * «, t00=0x003f, t01=0x0084}
0x62f2…6314 Head {h00=0x001e, h01=0x0050, text=» CF A14,LINWRP CHECK WRAP «, t00=0x003f, t01=0x0098}
0x6314…6336 Head {h00=0x001e, h01=0x0050, text=» LDR A4,A4 END OF BUFFER? «, t00=0x003f, t01=0x00ba}
0x6336…635a Head {h00=0x0020, h01=0x0050, text=» RF(Z) PT700 YES OS AND DOS «, t00=0x003f, t01=0x00dc}
0x635a…6372 Head {h00=0x0014, h01=0x0050, text=»PT410 EQU * DK1«, t00=0x003f, t01=0x0100}
0x6372…638e Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x003f, t01=0x0118}
0x638e…63ac Head {h00=0x001a, h01=0x0050, text=» ANK A2,/80 ATTRIBUTE?«, t00=0x003f, t01=0x0134}
0x63ac…63c6 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PT500 YES «, t00=0x003f, t01=0x0152}
0x63c6…63de Head {h00=0x0014, h01=0x0050, text=»PT420 EQU * DK1«, t00=0x003f, t01=0x016c}
0x63de…63f0 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x003f, t01=0x0184}
0x63f0…6402 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0040, t01=0x0008}
0x6402…6414 Head {h00=0x000e, h01=0x0050, text=» RB PT400 «, t00=0x0040, t01=0x001a}
0x6414…6428 Head {h00=0x0010, h01=0x0050, text=»PT500 EQU * «, t00=0x0040, t01=0x002c}
0x6428…6452 Head {h00=0x0026, h01=0x0050, text=» LCR A2,A3 GET ATTRIBUTE AGAIN DK1«, t00=0x0040, t01=0x0040}
0x6452…6470 Head {h00=0x001a, h01=0x0050, text=» ANK A2,/20 PROTECTED?«, t00=0x0040, t01=0x006a}
0x6470…648a Head {h00=0x0016, h01=0x0050, text=» RB(NZ) PT420 YES «, t00=0x0040, t01=0x0088}
0x648a…649c Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0040, t01=0x00a2}
0x649c…64ae Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0040, t01=0x00b4}
0x64ae…64d0 Head {h00=0x001e, h01=0x0050, text=» CF A14,LINWRP CHECK WRAP «, t00=0x0040, t01=0x00c6}
0x64d0…64e4 Head {h00=0x0010, h01=0x0050, text=»PT700 EQU * «, t00=0x0040, t01=0x00e8}
0x64e4…64fc Head {h00=0x0014, h01=0x0050, text=» ORKL A10,PTORD «, t00=0x0040, t01=0x00fc}
0x64fc…6510 Head {h00=0x0010, h01=0x0050, text=»PT800 EQU * «, t00=0x0040, t01=0x0114}
0x6510…652e Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0040, t01=0x0128}
0x652e…653e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0040, t01=0x0146}
0x653e…654c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0040, t01=0x0156}
0x654c…6592 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0040, t01=0x0164}
0x6592…65d8 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0041, t01=0x001a}
0x65d8…661e Head {h00=0x0042, h01=0x0050, text=»* RA REPEAT TO ADDRESS * «, t00=0x0041, t01=0x0060}
0x661e…6664 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0041, t01=0x00a6}
0x6664…66aa Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0041, t01=0x00ec}
0x66aa…66be Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0041, t01=0x0132}
0x66be…66c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0146}
0x66c8…66e2 Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x0041, t01=0x0150}
0x66e2…6704 Head {h00=0x001e, h01=0x0050, text=»* A2= CHAR. TO BE REPEATED«, t00=0x0041, t01=0x016a}
0x6704…6728 Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x0041, t01=0x018c}
0x6728…6746 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0042, t01=0x0020}
0x6746…675c Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0042, t01=0x003e}
0x675c…6784 Head {h00=0x0024, h01=0x0050, text=»* A6= INTERNAL LINE FLAG ADDRESS«, t00=0x0042, t01=0x0054}
0x6784…679a Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0042, t01=0x007c}
0x679a…67b8 Head {h00=0x001a, h01=0x0050, text=»* A9= DC-BUFFER INDEX «, t00=0x0042, t01=0x0092}
0x67b8…67d0 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0042, t01=0x00b0}
0x67d0…67f0 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0042, t01=0x00c8}
0x67f0…6808 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0042, t01=0x00e8}
0x6808…6820 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0042, t01=0x0100}
0x6820…682a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0118}
0x682a…6864 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0042, t01=0x0122}
0x6864…6874 Head {h00=0x000c, h01=0x0050, text=»RA EQU *«, t00=0x0042, t01=0x015c}
0x6874…6896 Head {h00=0x001e, h01=0x0050, text=» LDK A1,IORAA1 NEXT LABEL «, t00=0x0042, t01=0x016c}
0x6896…68b0 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0042, t01=0x018e}
0x68b0…68c2 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0043, t01=0x0018}
0x68c2…68de Head {h00=0x0018, h01=0x0050, text=» RF RA900 FIRST BYTE«, t00=0x0043, t01=0x002a}
0x68de…690a Head {h00=0x0028, h01=0x0050, text=»RA100 EQU * ENTRY LABEL FROM RETTAB «, t00=0x0043, t01=0x0046}
0x690a…692a Head {h00=0x001c, h01=0x0050, text=» LC A7,CONATT,A2 CONVERT«, t00=0x0043, t01=0x0072}
0x692a…693e Head {h00=0x0010, h01=0x0050, text=» ANK A7,/3F «, t00=0x0043, t01=0x0092}
0x693e…6950 Head {h00=0x000e, h01=0x0050, text=» SLL A7,6 «, t00=0x0043, t01=0x00a6}
0x6950…6972 Head {h00=0x001e, h01=0x0050, text=» LDK A1,IORAA2 NEXT LABEL «, t00=0x0043, t01=0x00b8}
0x6972…698c Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0043, t01=0x00da}
0x698c…699e Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0043, t01=0x00f4}
0x699e…69bc Head {h00=0x001a, h01=0x0050, text=» RF RA900 SECOND BYTE «, t00=0x0043, t01=0x0106}
0x69bc…69e8 Head {h00=0x0028, h01=0x0050, text=»RA200 EQU * ENTRY LABEL FROM RETTAB «, t00=0x0043, t01=0x0124}
0x69e8…6a00 Head {h00=0x0014, h01=0x0050, text=» LC A2,CONATT,A2«, t00=0x0043, t01=0x0150}
0x6a00…6a14 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x0043, t01=0x0168}
0x6a14…6a26 Head {h00=0x000e, h01=0x0050, text=» ORR A7,A2«, t00=0x0043, t01=0x017c}
0x6a26…6a4c Head {h00=0x0022, h01=0x0050, text=» CWK A7,LBVDU INVALID ADDRESS «, t00=0x0043, t01=0x018e}
0x6a4c…6a66 Head {h00=0x0016, h01=0x0050, text=» RF(NL) RA800 YES «, t00=0x0044, t01=0x0024}
0x6a66…6a88 Head {h00=0x001e, h01=0x0050, text=» LDK A1,IORACH NEXT LABEL «, t00=0x0044, t01=0x003e}
0x6a88…6aa2 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0044, t01=0x0060}
0x6aa2…6ab4 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0044, t01=0x007a}
0x6ab4…6ad0 Head {h00=0x0018, h01=0x0050, text=» RF RA900 CHAR. BYTE«, t00=0x0044, t01=0x008c}
0x6ad0…6afc Head {h00=0x0028, h01=0x0050, text=»RA250 EQU * ENTRY LABEL FROM RETTAB «, t00=0x0044, t01=0x00a8}
0x6afc…6b12 Head {h00=0x0012, h01=0x0050, text=» LDK A1,IORDER«, t00=0x0044, t01=0x00d4}
0x6b12…6b2c Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0044, t01=0x00ea}
0x6b2c…6b40 Head {h00=0x0010, h01=0x0050, text=»RA300 EQU * «, t00=0x0044, t01=0x0104}
0x6b40…6b66 Head {h00=0x0022, h01=0x0050, text=» SCR A2,A3 STORE IN VDU-BUFFER«, t00=0x0044, t01=0x0118}
0x6b66…6b7e Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x0044, t01=0x013e}
0x6b7e…6b90 Head {h00=0x000e, h01=0x0050, text=» ORK A1,1 «, t00=0x0044, t01=0x0156}
0x6b90…6ba8 Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x0044, t01=0x0168}
0x6ba8…6bba Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0044, t01=0x0180}
0x6bba…6bcc (69, 0, 400) Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0045, t01=0x0004}
0x6bcc…6bf0 Head {h00=0x0020, h01=0x0050, text=» CF A14,LINWRP CHECK WRAP =1«, t00=0x0045, t01=0x0016}
0x6bf0…6c14 Head {h00=0x0020, h01=0x0050, text=» CWR A4,A7 ALL REPEATED? =1 «, t00=0x0045, t01=0x003a}
0x6c14…6c30 Head {h00=0x0018, h01=0x0050, text=» RB(NE) RA300 NO =1 «, t00=0x0045, t01=0x005e}
0x6c30…6c5a Head {h00=0x0026, h01=0x0050, text=» ORKL A10,PTORD INDICATE PT ORDER «, t00=0x0045, t01=0x007a}
0x6c5a…6c78 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0045, t01=0x00a4}
0x6c78…6c8a Head {h00=0x000e, h01=0x0050, text=» RF RA900 «, t00=0x0045, t01=0x00c2}
0x6c8a…6c9e Head {h00=0x0010, h01=0x0050, text=»RA800 EQU * «, t00=0x0045, t01=0x00d4}
0x6c9e…6cc4 Head {h00=0x0022, h01=0x0050, text=» ORKL A10,THROWB THROW IT AWAY«, t00=0x0045, t01=0x00e8}
0x6cc4…6ce2 Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 RETURN CODE «, t00=0x0045, t01=0x010e}
0x6ce2…6cf6 Head {h00=0x0010, h01=0x0050, text=»RA900 EQU * «, t00=0x0045, t01=0x012c}
0x6cf6…6d06 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0045, t01=0x0140}
0x6d06…6d14 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0045, t01=0x0150}
0x6d14…6d52 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0045, t01=0x015e}
0x6d52…6d90 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0046, t01=0x000c}
0x6d90…6dce Head {h00=0x003a, h01=0x0050, text=»* EUA ERASE UNPRO. TO ADDRESS *«, t00=0x0046, t01=0x004a}
0x6dce…6e0c Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0046, t01=0x0088}
0x6e0c…6e4a Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0046, t01=0x00c6}
0x6e4a…6e5e Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0046, t01=0x0104}
0x6e5e…6e68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0118}
0x6e68…6e82 Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x0046, t01=0x0122}
0x6e82…6e96 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0046, t01=0x013c}
0x6e96…6eac Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x0046, t01=0x0150}
0x6eac…6ec2 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0046, t01=0x0166}
0x6ec2…6ed8 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0046, t01=0x017c}
0x6ed8…6eee (71, 0, 400) Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0047, t01=0x0004}
0x6eee…6f04 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0047, t01=0x001a}
0x6f04…6f1a Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x0047, t01=0x0030}
0x6f1a…6f32 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0047, t01=0x0046}
0x6f32…6f52 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0047, t01=0x005e}
0x6f52…6f6a Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0047, t01=0x007e}
0x6f6a…6f82 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0047, t01=0x0096}
0x6f82…6f8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x00ae}
0x6f8c…6fcc Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0047, t01=0x00b8}
0x6fcc…6fde Head {h00=0x000e, h01=0x0050, text=»EUA EQU * «, t00=0x0047, t01=0x00f8}
0x6fde…7000 Head {h00=0x001e, h01=0x0050, text=» LDK A1,IOEUA1 NEXT LABEL «, t00=0x0047, t01=0x010a}
0x7000…701a Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0047, t01=0x012c}
0x701a…702c Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0047, t01=0x0146}
0x702c…704a Head {h00=0x001a, h01=0x0050, text=» RF EUA900 FIRST BYTE «, t00=0x0047, t01=0x0158}
0x704a…7076 Head {h00=0x0028, h01=0x0050, text=»EUA100 EQU * ENTRY LABEL FROM RETTAB«, t00=0x0047, t01=0x0176}
0x7076…7096 Head {h00=0x001c, h01=0x0050, text=» LC A7,CONATT,A2 CONVERT«, t00=0x0048, t01=0x0012}
0x7096…70aa Head {h00=0x0010, h01=0x0050, text=» ANK A7,/3F «, t00=0x0048, t01=0x0032}
0x70aa…70bc Head {h00=0x000e, h01=0x0050, text=» SLL A7,6 «, t00=0x0048, t01=0x0046}
0x70bc…70de Head {h00=0x001e, h01=0x0050, text=» LDK A1,IOEUA2 NEXT LABEL «, t00=0x0048, t01=0x0058}
0x70de…70f8 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0048, t01=0x007a}
0x70f8…710a Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0048, t01=0x0094}
0x710a…7128 Head {h00=0x001a, h01=0x0050, text=» RF EUA900 SECOND BYTE«, t00=0x0048, t01=0x00a6}
0x7128…7154 Head {h00=0x0028, h01=0x0050, text=»EUA200 EQU * ENTRY LABEL FROM RETTAB«, t00=0x0048, t01=0x00c4}
0x7154…716c Head {h00=0x0014, h01=0x0050, text=» LC A2,CONATT,A2«, t00=0x0048, t01=0x00f0}
0x716c…7180 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x0048, t01=0x0108}
0x7180…7192 Head {h00=0x000e, h01=0x0050, text=» ORR A7,A2«, t00=0x0048, t01=0x011c}
0x7192…71b4 Head {h00=0x001e, h01=0x0050, text=» LDK A1,IORDER NEXT LABEL «, t00=0x0048, t01=0x012e}
0x71b4…71ce Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0048, t01=0x0150}
0x71ce…71f4 Head {h00=0x0022, h01=0x0050, text=» CWK A1,LBVDU INVALID ADDRESS?«, t00=0x0048, t01=0x016a}
0x71f4…720e Head {h00=0x0016, h01=0x0050, text=» RF(NL) EUA800 YES«, t00=0x0048, t01=0x0190}
0x720e…7220 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A7«, t00=0x0049, t01=0x001a}
0x7220…724e Head {h00=0x002a, h01=0x0050, text=» CF A14,ERASUA ERASE UNPRO. TO ADDRESS«, t00=0x0049, t01=0x002c}
0x724e…7264 Head {h00=0x0012, h01=0x0050, text=» CF A14,SCRINF«, t00=0x0049, t01=0x005a}
0x7264…7282 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0049, t01=0x0070}
0x7282…72ac Head {h00=0x0026, h01=0x0050, text=» ORKL A10,PTORD INDICATE PT ORDER «, t00=0x0049, t01=0x008e}
0x72ac…72be Head {h00=0x000e, h01=0x0050, text=» RF EUA900«, t00=0x0049, t01=0x00b8}
0x72be…72d2 Head {h00=0x0010, h01=0x0050, text=»EUA800 EQU *«, t00=0x0049, t01=0x00ca}
0x72d2…72f0 Head {h00=0x001a, h01=0x0050, text=» ORKL A10,THROWB RUBB.«, t00=0x0049, t01=0x00de}
0x72f0…730e Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 RETURN CODE «, t00=0x0049, t01=0x00fc}
0x730e…7322 Head {h00=0x0010, h01=0x0050, text=»EUA900 EQU *«, t00=0x0049, t01=0x011a}
0x7322…7332 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0049, t01=0x012e}
0x7332…7340 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0049, t01=0x013e}
0x7340…7380 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0049, t01=0x014c}
0x7380…73c0 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0049, t01=0x018c}
0x73c0…7400 Head {h00=0x003c, h01=0x0050, text=»* CHAR. < /20 BUT NOT ORDER *«, t00=0x004a, t01=0x003c}
0x7400…7440 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x004a, t01=0x007c}
0x7440…7480 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x004a, t01=0x00bc}
0x7480…7494 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x004a, t01=0x00fc}
0x7494…749e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0110}
0x749e…74b8 Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x004a, t01=0x011a}
0x74b8…74cc Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x004a, t01=0x0134}
0x74cc…74f0 Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x004a, t01=0x0148}
0x74f0…750e Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x004a, t01=0x016c}
0x750e…7524 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x004a, t01=0x018a}
0x7524…754c Head {h00=0x0024, h01=0x0050, text=»* A6= INTERNAL LINE FLAG ADDRESS«, t00=0x004b, t01=0x0010}
0x754c…7562 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x004b, t01=0x0038}
0x7562…7578 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x004b, t01=0x004e}
0x7578…7590 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x004b, t01=0x0064}
0x7590…75b0 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x004b, t01=0x007c}
0x75b0…75c8 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x004b, t01=0x009c}
0x75c8…75e0 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x004b, t01=0x00b4}
0x75e0…75ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00cc}
0x75ea…7622 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x004b, t01=0x00d6}
0x7622…7634 Head {h00=0x000e, h01=0x0050, text=»ESC EQU * «, t00=0x004b, t01=0x010e}
0x7634…765e Head {h00=0x0026, h01=0x0050, text=» ORKL A10,LICREC INDICATE COMMAND «, t00=0x004b, t01=0x0120}
0x765e…7682 Head {h00=0x0020, h01=0x0050, text=» LDK A1,1 STOP ORDER PROCESS«, t00=0x004b, t01=0x014a}
0x7682…7694 Head {h00=0x000e, h01=0x0050, text=» RF CHARET«, t00=0x004b, t01=0x016e}
0x7694…76a8 Head {h00=0x0010, h01=0x0050, text=»INVAL EQU * «, t00=0x004b, t01=0x0180}
0x76a8…76ce (76, 0, 400) Head {h00=0x0022, h01=0x0050, text=» ORKL A10,/9800 END UNPACKING «, t00=0x004c, t01=0x0004}
0x76ce…76e0 Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x004c, t01=0x002a}
0x76e0…76f2 Head {h00=0x000e, h01=0x0050, text=» RF CHARET«, t00=0x004c, t01=0x003c}
0x76f2…7706 Head {h00=0x0010, h01=0x0050, text=»NULCHA EQU *«, t00=0x004c, t01=0x004e}
0x7706…7716 Head {h00=0x000c, h01=0x0050, text=»NL EQU *«, t00=0x004c, t01=0x0062}
0x7716…7726 Head {h00=0x000c, h01=0x0050, text=»FF EQU *«, t00=0x004c, t01=0x0072}
0x7726…7736 Head {h00=0x000c, h01=0x0050, text=»EM EQU *«, t00=0x004c, t01=0x0082}
0x7736…7746 Head {h00=0x000c, h01=0x0050, text=»CR EQU *«, t00=0x004c, t01=0x0092}
0x7746…7768 Head {h00=0x001e, h01=0x0050, text=» CF A14,LINWRP CHECK WRAP «, t00=0x004c, t01=0x00a2}
0x7768…7786 Head {h00=0x001a, h01=0x0050, text=» SCR A2,A3 STORE CHAR.«, t00=0x004c, t01=0x00c4}
0x7786…779e Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x004c, t01=0x00e2}
0x779e…77b0 Head {h00=0x000e, h01=0x0050, text=» ORK A1,1 «, t00=0x004c, t01=0x00fa}
0x77b0…77c8 Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x004c, t01=0x010c}
0x77c8…77f2 Head {h00=0x0026, h01=0x0050, text=» XRKL A10,PTORD INDICATE PT ORDER «, t00=0x004c, t01=0x0124}
0x77f2…7804 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x004c, t01=0x014e}
0x7804…7816 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x004c, t01=0x0160}
0x7816…7830 Head {h00=0x0016, h01=0x0050, text=» LDK A1,0 CONTINUE«, t00=0x004c, t01=0x0172}
0x7830…7844 Head {h00=0x0010, h01=0x0050, text=»CHARET EQU *«, t00=0x004c, t01=0x018c}
0x7844…7854 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x004d, t01=0x0010}
0x7854…7862 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004d, t01=0x0020}
0x7862…78aa Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x004d, t01=0x002e}
0x78aa…78f2 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x004d, t01=0x0076}
0x78f2…793a Head {h00=0x0044, h01=0x0050, text=»* PACKSY PACK DC BUFFER IN SYSTEM MODE *«, t00=0x004d, t01=0x00be}
0x793a…7982 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x004d, t01=0x0106}
0x7982…79ca Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x004d, t01=0x014e}
0x79ca…79de Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x004e, t01=0x0008}
0x79de…79e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x001c}
0x79e8…79fa Head {h00=0x000e, h01=0x0050, text=»* A2= CHAR«, t00=0x004e, t01=0x0026}
0x79fa…7a1e Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x004e, t01=0x0038}
0x7a1e…7a3c Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x004e, t01=0x005c}
0x7a3c…7a52 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x004e, t01=0x007a}
0x7a52…7a68 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x004e, t01=0x0090}
0x7a68…7a8a Head {h00=0x001e, h01=0x0050, text=»* A8= ADDRESS IN DC-BUFFER«, t00=0x004e, t01=0x00a6}
0x7a8a…7aaa Head {h00=0x001c, h01=0x0050, text=»* A9= INDEX IN DC-BUFFER«, t00=0x004e, t01=0x00c8}
0x7aaa…7aca Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x004e, t01=0x00e8}
0x7aca…7ae8 Head {h00=0x001a, h01=0x0050, text=»* A12= BUFFER ADDRESS «, t00=0x004e, t01=0x0108}
0x7ae8…7b00 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x004e, t01=0x0126}
0x7b00…7b0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x013e}
0x7b0a…7b52 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x004e, t01=0x0148}
0x7b52…7b66 Head {h00=0x0010, h01=0x0050, text=»PACKSY EQU *«, t00=0x004e, t01=0x0190}
0x7b66…7b78 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x004f, t01=0x0014}
0x7b78…7b92 Head {h00=0x0016, h01=0x0050, text=» LDKL A9,0 COUNTER«, t00=0x004f, t01=0x0026}
0x7b92…7bba Head {h00=0x0024, h01=0x0050, text=» LD A3,CURPOS,A11 GET START POS.«, t00=0x004f, t01=0x0040}
0x7bba…7be4 Head {h00=0x0026, h01=0x0050, text=» CWK A3,/800 ANY CHAR. ON DISPLAY?«, t00=0x004f, t01=0x0068}
0x7be4…7bfc Head {h00=0x0014, h01=0x0050, text=» RF(E) PASY40 NO«, t00=0x004f, t01=0x0092}
0x7bfc…7c2a Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x004f, t01=0x00aa}
0x7c2a…7c3c Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x004f, t01=0x00d8}
0x7c3c…7c64 Head {h00=0x0024, h01=0x0050, text=» SUR A1,A3 GET LENGTH OF MESSAGE«, t00=0x004f, t01=0x00ea}
0x7c64…7c8a Head {h00=0x0022, h01=0x0050, text=» RF(NN) PASY10 NOT WRAP AROUND«, t00=0x004f, t01=0x0112}
0x7c8a…7cb6 Head {h00=0x0028, h01=0x0050, text=» LDKL A1,LBVDU-1 LAST POS. ON SCREEN«, t00=0x004f, t01=0x0138}
0x7cb6…7cda Head {h00=0x0020, h01=0x0050, text=» SUR A1,A3 GET LENGTH AGAIN «, t00=0x004f, t01=0x0164}
0x7cda…7cee Head {h00=0x0010, h01=0x0050, text=»PASY10 EQU *«, t00=0x004f, t01=0x0188}
0x7cee…7d12 Head {h00=0x0020, h01=0x0050, text=» CWK A1,256 ILLEGAL LENGTH? «, t00=0x0050, t01=0x000c}
0x7d12…7d2c Head {h00=0x0016, h01=0x0050, text=» RF(NG) PASY20 NO «, t00=0x0050, t01=0x0030}
0x7d2c…7d4e Head {h00=0x001e, h01=0x0050, text=» LDKL A1,256 ADJUST LENGTH«, t00=0x0050, t01=0x004a}
0x7d4e…7d62 Head {h00=0x0010, h01=0x0050, text=»PASY20 EQU *«, t00=0x0050, t01=0x006c}
0x7d62…7d78 Head {h00=0x0012, h01=0x0050, text=» ADKL A3,BVDU «, t00=0x0050, t01=0x0080}
0x7d78…7d8c Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0050, t01=0x0096}
0x7d8c…7da0 Head {h00=0x0010, h01=0x0050, text=»PASY30 EQU *«, t00=0x0050, t01=0x00aa}
0x7da0…7dc0 Head {h00=0x001c, h01=0x0050, text=» CWR A1,A9 ALL EXAMINED?«, t00=0x0050, t01=0x00be}
0x7dc0…7dda Head {h00=0x0016, h01=0x0050, text=» RF(E) PASY40 YES «, t00=0x0050, t01=0x00de}
0x7dda…7e04 Head {h00=0x0026, h01=0x0050, text=» LCR A2,A3 GET CHAR IN VDU BUFFER «, t00=0x0050, t01=0x00f8}
0x7e04…7e16 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0050, t01=0x0122}
0x7e16…7e36 Head {h00=0x001c, h01=0x0050, text=» CWK A2,NULL NULL CHAR.?«, t00=0x0050, t01=0x0134}
0x7e36…7e5c Head {h00=0x0022, h01=0x0050, text=» RB(E) PASY30 YES, DON'T STORE«, t00=0x0050, t01=0x0154}
0x7e5c…7e8a Head {h00=0x002a, h01=0x0050, text=» CF A14,PDCCH STORE CHAR. IN DC BUFFER«, t00=0x0050, t01=0x017a}
0x7e8a…7e9c Head {h00=0x000e, h01=0x0050, text=» RB PASY30«, t00=0x0051, t01=0x0018}
0x7e9c…7eb0 Head {h00=0x0010, h01=0x0050, text=»PASY40 EQU *«, t00=0x0051, t01=0x002a}
0x7eb0…7ed8 Head {h00=0x0024, h01=0x0050, text=» LDK A1,0 INDICATE LAST IN CHAIN«, t00=0x0051, t01=0x003e}
0x7ed8…7efa Head {h00=0x001e, h01=0x0050, text=» CF A14,DCWRIT SEND BUFFER«, t00=0x0051, t01=0x0066}
0x7efa…7f24 Head {h00=0x0026, h01=0x0050, text=» LDR A8,A12 GET BUFFER TO RELEASE «, t00=0x0051, t01=0x0088}
0x7f24…7f4a Head {h00=0x0022, h01=0x0050, text=» CF A14,RELBUF RELEASE BUFFER «, t00=0x0051, t01=0x00b2}
0x7f4a…7f56 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0051, t01=0x00d8}
0x7f56…7f66 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0051, t01=0x00e4}
0x7f66…7f74 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0051, t01=0x00f4}
0x7f74…7fba Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0051, t01=0x0102}
0x7fba…8000 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0051, t01=0x0148}
0x8000…8046 Head {h00=0x0042, h01=0x0050, text=»* UNPSYS UNPACK DC BUFFER IN SYSTEM MODE * «, t00=0x0051, t01=0x018e}
0x8046…808c Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0052, t01=0x0044}
0x808c…80d2 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0052, t01=0x008a}
0x80d2…80e6 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0052, t01=0x00d0}
0x80e6…80f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x00e4}
0x80f0…8104 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0052, t01=0x00ee}
0x8104…8128 Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x0052, t01=0x0102}
0x8128…8146 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0052, t01=0x0126}
0x8146…8168 Head {h00=0x001e, h01=0x0050, text=»* A5= LAST IN ROW REL POS «, t00=0x0052, t01=0x0144}
0x8168…8190 Head {h00=0x0024, h01=0x0050, text=»* A6= INTERNAL LINE FLAG ADDRESS«, t00=0x0052, t01=0x0166}
0x8190…81b2 Head {h00=0x001e, h01=0x0050, text=»* A8= ADDRESS IN DC-BUFFER«, t00=0x0052, t01=0x018e}
0x81b2…81d2 Head {h00=0x001c, h01=0x0050, text=»* A9= INDEX IN DC-BUFFER«, t00=0x0053, t01=0x0020}
0x81d2…81ea Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0053, t01=0x0040}
0x81ea…820a Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0053, t01=0x0058}
0x820a…8222 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0053, t01=0x0078}
0x8222…823a Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0053, t01=0x0090}
0x823a…8244 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x00a8}
0x8244…828a Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0053, t01=0x00b2}
0x828a…829e Head {h00=0x0010, h01=0x0050, text=»UNPSYS EQU *«, t00=0x0053, t01=0x00f8}
0x829e…82b0 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0053, t01=0x010c}
0x82b0…82c8 Head {h00=0x0014, h01=0x0050, text=» LD A1,KBINH,A11«, t00=0x0053, t01=0x011e}
0x82c8…82da Head {h00=0x000e, h01=0x0050, text=» ORK A1,3 «, t00=0x0053, t01=0x0136}
0x82da…82f2 Head {h00=0x0014, h01=0x0050, text=» ST A1,KBINH,A11«, t00=0x0053, t01=0x0148}
0x82f2…8308 Head {h00=0x0012, h01=0x0050, text=» CF A14,LMP4ON«, t00=0x0053, t01=0x0160}
0x8308…8336 Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x0053, t01=0x0176}
0x8336…8358 Head {h00=0x001e, h01=0x0050, text=» LDR A3,A4 CURSOR ADDRESS «, t00=0x0054, t01=0x0014}
0x8358…836e Head {h00=0x0012, h01=0x0050, text=» ADKL A3,BVDU «, t00=0x0054, t01=0x0036}
0x836e…8394 Head {h00=0x0022, h01=0x0050, text=» ADR A3,A11 VDU BUFFER ADDRESS«, t00=0x0054, t01=0x004c}
0x8394…83c4 Head {h00=0x002c, h01=0x0050, text=» LD A8,BUFPNT,A11 GET DC BUFFER ADDRESS «, t00=0x0054, t01=0x0072}
0x83c4…83ea Head {h00=0x0022, h01=0x0050, text=» SUR A9,A9 INDEX IN DC BUFFER «, t00=0x0054, t01=0x00a2}
0x83ea…83fe Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x0054, t01=0x00c8}
0x83fe…8414 Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x0054, t01=0x00dc}
0x8414…843e Head {h00=0x0026, h01=0x0050, text=» CF A14,LINE GET INTERNAL LINEFLAG«, t00=0x0054, t01=0x00f2}
0x843e…8452 Head {h00=0x0010, h01=0x0050, text=»UNPS05 EQU *«, t00=0x0054, t01=0x011c}
0x8452…8480 Head {h00=0x002a, h01=0x0050, text=» CF A14,GDCCH GET CHAR. IN DC BUFFER «, t00=0x0054, t01=0x0130}
0x8480…84a2 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 ANYTHING LEFT? «, t00=0x0054, t01=0x015e}
0x84a2…84bc Head {h00=0x0016, h01=0x0050, text=» RF(NZ) UNPS60 NO «, t00=0x0054, t01=0x0180}
0x84bc…84d6 Head {h00=0x0016, h01=0x0050, text=» CWK A2,/31 BIND? «, t00=0x0055, t01=0x000a}
0x84d6…84f8 Head {h00=0x001e, h01=0x0050, text=» RF(E) UNPS50 YES,PERHAPS «, t00=0x0055, t01=0x0024}
0x84f8…850c Head {h00=0x0010, h01=0x0050, text=»UNPS07 EQU *«, t00=0x0055, t01=0x0046}
0x850c…8526 Head {h00=0x0016, h01=0x0050, text=» CWK A2,/20 ORDER?«, t00=0x0055, t01=0x005a}
0x8526…8540 Head {h00=0x0016, h01=0x0050, text=» RF(NL) UNPS40 NO «, t00=0x0055, t01=0x0074}
0x8540…855e Head {h00=0x001a, h01=0x0050, text=» CWK A2,/0A NEW LINE? «, t00=0x0055, t01=0x008e}
0x855e…8578 Head {h00=0x0016, h01=0x0050, text=» RF(NE) UNPS10 NO «, t00=0x0055, t01=0x00ac}
0x8578…85a0 Head {h00=0x0024, h01=0x0050, text=» CF A14,NLROUT PERFORM NEW LINE «, t00=0x0055, t01=0x00c6}
0x85a0…85b2 Head {h00=0x000e, h01=0x0050, text=» RB UNPS05«, t00=0x0055, t01=0x00ee}
0x85b2…85c6 Head {h00=0x0010, h01=0x0050, text=»UNPS10 EQU *«, t00=0x0055, t01=0x0100}
0x85c6…85de Head {h00=0x0014, h01=0x0050, text=» CWK A2,/1C IFS?«, t00=0x0055, t01=0x0114}
0x85de…85f8 Head {h00=0x0016, h01=0x0050, text=» RF(NE) UNPS20 NO «, t00=0x0055, t01=0x012c}
0x85f8…861a Head {h00=0x001e, h01=0x0050, text=» LDK A2,/2A REPLACE WITH *«, t00=0x0055, t01=0x0146}
0x861a…862c Head {h00=0x000e, h01=0x0050, text=» RF UNPS40«, t00=0x0055, t01=0x0168}
0x862c…8640 Head {h00=0x0010, h01=0x0050, text=»UNPS20 EQU *«, t00=0x0055, t01=0x017a}
0x8640…8658 Head {h00=0x0014, h01=0x0050, text=» CWK A2,/1E IRS?«, t00=0x0055, t01=0x018e}
0x8658…8672 Head {h00=0x0016, h01=0x0050, text=» RF(NE) UNPS30 NO «, t00=0x0056, t01=0x0016}
0x8672…8694 Head {h00=0x001e, h01=0x0050, text=» LDK A2,/3B REPLACE WITH ;«, t00=0x0056, t01=0x0030}
0x8694…86a6 Head {h00=0x000e, h01=0x0050, text=» RF UNPS40«, t00=0x0056, t01=0x0052}
0x86a6…86ba Head {h00=0x0010, h01=0x0050, text=»UNPS30 EQU *«, t00=0x0056, t01=0x0064}
0x86ba…86d4 Head {h00=0x0016, h01=0x0050, text=» CWK A2,NULL NULL?«, t00=0x0056, t01=0x0078}
0x86d4…86ee Head {h00=0x0016, h01=0x0050, text=» RF(NE) UNPS40 NO «, t00=0x0056, t01=0x0092}
0x86ee…8714 Head {h00=0x0022, h01=0x0050, text=» LDK A2,/20 REPLACE WITH SPACE«, t00=0x0056, t01=0x00ac}
0x8714…8728 Head {h00=0x0010, h01=0x0050, text=»UNPS40 EQU *«, t00=0x0056, t01=0x00d2}
0x8728…874a Head {h00=0x001e, h01=0x0050, text=» CF A14,LINWRP CHECK WRAP «, t00=0x0056, t01=0x00e6}
0x874a…8770 Head {h00=0x0022, h01=0x0050, text=» SCR A2,A3 STORE IN VDU BUFFER«, t00=0x0056, t01=0x0108}
0x8770…8788 Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x0056, t01=0x012e}
0x8788…879a Head {h00=0x000e, h01=0x0050, text=» ORK A1,1 «, t00=0x0056, t01=0x0146}
0x879a…87b2 Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x0056, t01=0x0158}
0x87b2…87c4 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0056, t01=0x0170}
0x87c4…87d6 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0056, t01=0x0182}
0x87d6…87e8 (87, 0, 400) Head {h00=0x000e, h01=0x0050, text=» RB UNPS05«, t00=0x0057, t01=0x0004}
0x87e8…87fc Head {h00=0x0010, h01=0x0050, text=»UNPS50 EQU *«, t00=0x0057, t01=0x0016}
0x87fc…8812 Head {h00=0x0012, h01=0x0050, text=» CF A14,GDCCH «, t00=0x0057, t01=0x002a}
0x8812…8834 Head {h00=0x001e, h01=0x0050, text=» ANK A2,/FE SHURE OF BIND?«, t00=0x0057, t01=0x0040}
0x8834…8850 Head {h00=0x0018, h01=0x0050, text=» RF(Z) UNPS55 ALMOST«, t00=0x0057, t01=0x0062}
0x8850…8862 Head {h00=0x000e, h01=0x0050, text=» SUKL A8,2«, t00=0x0057, t01=0x007e}
0x8862…8874 Head {h00=0x000e, h01=0x0050, text=» SUKL A9,2«, t00=0x0057, t01=0x0090}
0x8874…888a Head {h00=0x0012, h01=0x0050, text=» CF A14,GDCCH «, t00=0x0057, t01=0x00a2}
0x888a…889c Head {h00=0x000e, h01=0x0050, text=» RB UNPS07«, t00=0x0057, t01=0x00b8}
0x889c…88b0 Head {h00=0x0010, h01=0x0050, text=»UNPS55 EQU *«, t00=0x0057, t01=0x00ca}
0x88b0…88da Head {h00=0x0026, h01=0x0050, text=» LDK A1,MYJOB INDICATE MY JOB MODE«, t00=0x0057, t01=0x00de}
0x88da…8904 Head {h00=0x0026, h01=0x0050, text=» ADKL A1,/8000 NEW MODE ACTIVATION«, t00=0x0057, t01=0x0108}
0x8904…891e Head {h00=0x0016, h01=0x0050, text=» ST A1,SNAMOD,A11 «, t00=0x0057, t01=0x0132}
0x891e…893c Head {h00=0x001a, h01=0x0050, text=» LDKL A10,1 NO DISPLAY«, t00=0x0057, t01=0x014c}
0x893c…894e Head {h00=0x000e, h01=0x0050, text=» RF UNPS70«, t00=0x0057, t01=0x016a}
0x894e…8962 Head {h00=0x0010, h01=0x0050, text=»UNPS60 EQU *«, t00=0x0057, t01=0x017c}
0x8962…897a Head {h00=0x0014, h01=0x0050, text=» LDKL A5,LBVDU+1«, t00=0x0057, t01=0x0190}
0x897a…898c Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x0058, t01=0x0018}
0x898c…89be Head {h00=0x002e, h01=0x0050, text=» CF A14,STOINF SAVE NEW SCREEN INFORMATION«, t00=0x0058, t01=0x002a}
0x89be…89d2 Head {h00=0x0010, h01=0x0050, text=» LDKL A10,0 «, t00=0x0058, t01=0x005c}
0x89d2…89e6 Head {h00=0x0010, h01=0x0050, text=»UNPS70 EQU *«, t00=0x0058, t01=0x0070}
0x89e6…8a16 Head {h00=0x002c, h01=0x0050, text=» LD A8,BUFPNT,A11 GET BUFFER TO RELEASE «, t00=0x0058, t01=0x0084}
0x8a16…8a3c Head {h00=0x0022, h01=0x0050, text=» CF A14,RELBUF RELEASE BUFFER «, t00=0x0058, t01=0x00b4}
0x8a3c…8a48 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0058, t01=0x00da}
0x8a48…8a58 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0058, t01=0x00e6}
0x8a58…8a66 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0058, t01=0x00f6}
0x8a66…8aaa Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0058, t01=0x0104}
0x8aaa…8aee Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0058, t01=0x0148}
0x8aee…8b26 Head {h00=0x0034, h01=0x0050, text=»* GETNXT GET AND CHECK NEXT BUFFER «, t00=0x0058, t01=0x018c}
0x8b26…8b6a Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0059, t01=0x0034}
0x8b6a…8bae Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0059, t01=0x0078}
0x8bae…8bc2 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0059, t01=0x00bc}
0x8bc2…8bcc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00d0}
0x8bcc…8be6 Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x0059, t01=0x00da}
0x8be6…8c06 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0059, t01=0x00f4}
0x8c06…8c24 Head {h00=0x001a, h01=0x0050, text=»* A12= BUFFER ADDRESS «, t00=0x0059, t01=0x0114}
0x8c24…8c3c Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0059, t01=0x0132}
0x8c3c…8c46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x014a}
0x8c46…8c8a Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0059, t01=0x0154}
0x8c8a…8c9e Head {h00=0x0010, h01=0x0050, text=»GETNXT EQU *«, t00=0x005a, t01=0x0008}
0x8c9e…8cb0 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x005a, t01=0x001c}
0x8cb0…8cde Head {h00=0x002a, h01=0x0050, text=» CF A14,SAVE2 SAVE UNPACK INFORMATION «, t00=0x005a, t01=0x002e}
0x8cde…8d0e Head {h00=0x002c, h01=0x0050, text=» LD A8,BUFPNT,A11 GET BUFFER TO RELEASE «, t00=0x005a, t01=0x005c}
0x8d0e…8d34 Head {h00=0x0022, h01=0x0050, text=» CF A14,RELBUF RELEASE BUFFER «, t00=0x005a, t01=0x008c}
0x8d34…8d4a Head {h00=0x0012, h01=0x0050, text=» IFT DISHOW=2 «, t00=0x005a, t01=0x00b2}
0x8d4a…8d62 Head {h00=0x0014, h01=0x0050, text=» LC A1,TCT01,A11«, t00=0x005a, t01=0x00c8}
0x8d62…8d88 Head {h00=0x0022, h01=0x0050, text=» CCK A1,VDUCOD PRINTER UNPACK?«, t00=0x005a, t01=0x00e0}
0x8d88…8da2 Head {h00=0x0016, h01=0x0050, text=» RF(NE) GETC10 YES«, t00=0x005a, t01=0x0106}
0x8da2…8dd0 Head {h00=0x002a, h01=0x0050, text=» CF A14,DISMOD DISPLAY MODIFIED FIELDS«, t00=0x005a, t01=0x0120}
0x8dd0…8ddc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005a, t01=0x014e}
0x8ddc…8dee Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x005a, t01=0x015a}
0x8dee…8e02 Head {h00=0x0010, h01=0x0050, text=»GETC10 EQU *«, t00=0x005a, t01=0x016c}
0x8e02…8e22 Head {h00=0x001c, h01=0x0050, text=» CF A14,WAIT SYNCHRONIZE«, t00=0x005a, t01=0x0180}
0x8e22…8e48 Head {h00=0x0022, h01=0x0050, text=» LD A2,ECBEL,A8 SAVE LENGTH =4«, t00=0x005b, t01=0x0010}
0x8e48…8e66 Head {h00=0x001a, h01=0x0050, text=» ST A2,DCLENG,A11 . =4«, t00=0x005b, t01=0x0036}
0x8e66…8e78 Head {h00=0x000e, h01=0x0050, text=» LDR A9,A1«, t00=0x005b, t01=0x0054}
0x8e78…8e8e Head {h00=0x0012, h01=0x0050, text=» CF A14,REST2 «, t00=0x005b, t01=0x0066}
0x8e8e…8eb0 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A9 GET RETURN CODE«, t00=0x005b, t01=0x007c}
0x8eb0…8edc Head {h00=0x0028, h01=0x0050, text=» SRC A1,1 FIRST OR MODDLE IN CHAIN? «, t00=0x005b, t01=0x009e}
0x8edc…8ef6 Head {h00=0x0016, h01=0x0050, text=» RF(NN) GETC30 NO «, t00=0x005b, t01=0x00ca}
0x8ef6…8f1e Head {h00=0x0024, h01=0x0050, text=» LDR A1,A10 GET INTERNAL STATUS «, t00=0x005b, t01=0x00e4}
0x8f1e…8f4e Head {h00=0x002c, h01=0x0050, text=» ANKL A1,LICREC LAST IN CHAIN RECEIVED? «, t00=0x005b, t01=0x010c}
0x8f4e…8f66 Head {h00=0x0014, h01=0x0050, text=» RF(Z) GETC60 NO«, t00=0x005b, t01=0x013c}
0x8f66…8f7e Head {h00=0x0014, h01=0x0050, text=» LC A1,TCT01,A11«, t00=0x005b, t01=0x0154}
0x8f7e…8fa4 Head {h00=0x0022, h01=0x0050, text=» CCK A1,VDUCOD PRINTER UNPACK?«, t00=0x005b, t01=0x016c}
0x8fa4…8fbe (92, 0, 400) Head {h00=0x0016, h01=0x0050, text=» RF(NE) GETC20 YES«, t00=0x005c, t01=0x0004}
0x8fbe…8ff2 Head {h00=0x0030, h01=0x0050, text=» CF A14,P2WCC TAKE CARE OF WCC AFTER UPDATE «, t00=0x005c, t01=0x001e}
0x8ff2…9006 Head {h00=0x0010, h01=0x0050, text=»GETC20 EQU *«, t00=0x005c, t01=0x0052}
0x9006…9032 Head {h00=0x0028, h01=0x0050, text=» XRKL A10,LICREC RESET LAST IN CHAIN«, t00=0x005c, t01=0x0066}
0x9032…9054 Head {h00=0x001e, h01=0x0050, text=» ORKL A10,NEWCH NEW CHAIN «, t00=0x005c, t01=0x0092}
0x9054…9066 Head {h00=0x000e, h01=0x0050, text=» RF GETC60«, t00=0x005c, t01=0x00b4}
0x9066…907a Head {h00=0x0010, h01=0x0050, text=»GETC30 EQU *«, t00=0x005c, t01=0x00c6}
0x907a…90a4 Head {h00=0x0026, h01=0x0050, text=» SRC A1,1 LAST IN CHAIN RECEIVED? «, t00=0x005c, t01=0x00da}
0x90a4…90be Head {h00=0x0016, h01=0x0050, text=» RF(NN) GETC90 NO «, t00=0x005c, t01=0x0104}
0x90be…90d2 Head {h00=0x0010, h01=0x0050, text=»GETC40 EQU *«, t00=0x005c, t01=0x011e}
0x90d2…90fa Head {h00=0x0024, h01=0x0050, text=» LDR A1,A10 GET INTERNAL STATUS «, t00=0x005c, t01=0x0132}
0x90fa…912a Head {h00=0x002c, h01=0x0050, text=» ORKL A10,LICREC LAST IN CHAIN RECEIVED «, t00=0x005c, t01=0x015a}
0x912a…915a Head {h00=0x002c, h01=0x0050, text=» ANKL A1,LICREC LAST IN CHAIN RECEIVED? «, t00=0x005c, t01=0x018a}
0x915a…9172 Head {h00=0x0014, h01=0x0050, text=» RF(Z) GETC60 NO«, t00=0x005d, t01=0x002a}
0x9172…91a6 Head {h00=0x0030, h01=0x0050, text=» CF A14,P2WCC TAKE CARE OF WCC AFTER UPDATE «, t00=0x005d, t01=0x0042}
0x91a6…91c8 Head {h00=0x001e, h01=0x0050, text=» ORKL A10,NEWCH NEW CHAIN «, t00=0x005d, t01=0x0076}
0x91c8…91dc Head {h00=0x0010, h01=0x0050, text=»GETC60 EQU *«, t00=0x005d, t01=0x0098}
0x91dc…920a Head {h00=0x002a, h01=0x0050, text=» ST A12,BUFPNT,A11 SAVE BUFFER ADDRESS«, t00=0x005d, t01=0x00ac}
0x920a…9234 Head {h00=0x0026, h01=0x0050, text=» CF A14,SAVE2 SAVE INFORMATION =2 «, t00=0x005d, t01=0x00da}
0x9234…925a Head {h00=0x0022, h01=0x0050, text=» CF A14,GETBUF GET NEW BUFFER «, t00=0x005d, t01=0x0104}
0x925a…9280 Head {h00=0x0022, h01=0x0050, text=» LDR A3,A8 GET BUFFER ADDRESS «, t00=0x005d, t01=0x012a}
0x9280…92a8 Head {h00=0x0024, h01=0x0050, text=» CF A14,READNW READ WITH NO WAIT«, t00=0x005d, t01=0x0150}
0x92a8…92d8 Head {h00=0x002c, h01=0x0050, text=» CF A14,REST2 RESTORE UNPACK INFORMATION«, t00=0x005d, t01=0x0178}
0x92d8…92ec Head {h00=0x0010, h01=0x0050, text=» LDR A1,A10 «, t00=0x005e, t01=0x0018}
0x92ec…930e Head {h00=0x001e, h01=0x0050, text=» ANKL A1,NEWCH NEW CHAIN? «, t00=0x005e, t01=0x002c}
0x930e…9326 Head {h00=0x0014, h01=0x0050, text=» RF(Z) GETC80 NO«, t00=0x005e, t01=0x004e}
0x9326…933c Head {h00=0x0012, h01=0x0050, text=» IFT DISHOW=1 «, t00=0x005e, t01=0x0066}
0x933c…935a Head {h00=0x001a, h01=0x0050, text=» XRKL A10,NEWCH RESET «, t00=0x005e, t01=0x007c}
0x935a…9372 Head {h00=0x0014, h01=0x0050, text=» LC A1,TCT01,A11«, t00=0x005e, t01=0x009a}
0x9372…9388 Head {h00=0x0012, h01=0x0050, text=» CCK A1,VDUCOD«, t00=0x005e, t01=0x00b2}
0x9388…939e Head {h00=0x0012, h01=0x0050, text=» RF(NE) GETC70«, t00=0x005e, t01=0x00c8}
0x939e…93b4 Head {h00=0x0012, h01=0x0050, text=» CF A14,SAVE2 «, t00=0x005e, t01=0x00de}
0x93b4…93ca Head {h00=0x0012, h01=0x0050, text=» CF A14,DISMOD«, t00=0x005e, t01=0x00f4}
0x93ca…93e0 Head {h00=0x0012, h01=0x0050, text=» CF A14,REST2 «, t00=0x005e, t01=0x010a}
0x93e0…93ec Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005e, t01=0x0120}
0x93ec…93fe Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x005e, t01=0x012c}
0x93fe…9412 Head {h00=0x0010, h01=0x0050, text=»GETC70 EQU *«, t00=0x005e, t01=0x013e}
0x9412…9434 Head {h00=0x001e, h01=0x0050, text=» LDK A1,ICOMN1 NEXT LABEL «, t00=0x005e, t01=0x0152}
0x9434…944e Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x005e, t01=0x0174}
0x944e…9462 Head {h00=0x0010, h01=0x0050, text=»GETC80 EQU *«, t00=0x005e, t01=0x018e}
0x9462…947c Head {h00=0x0016, h01=0x0050, text=» LD A8,BUFPNT,A11 «, t00=0x005f, t01=0x0012}
0x947c…948e Head {h00=0x000e, h01=0x0050, text=» SUR A9,A9«, t00=0x005f, t01=0x002c}
0x948e…94ac Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETUR N CODE«, t00=0x005f, t01=0x003e}
0x94ac…94c0 Head {h00=0x0010, h01=0x0050, text=»GETC90 EQU *«, t00=0x005f, t01=0x005c}
0x94c0…94cc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005f, t01=0x0070}
0x94cc…94dc Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005f, t01=0x007c}
0x94dc…94ea Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005f, t01=0x008c}
0x94ea…9530 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x005f, t01=0x009a}
0x9530…9576 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x005f, t01=0x00e0}
0x9576…95bc Head {h00=0x0042, h01=0x0050, text=»* PUTCHA PUT CHAR. IN DC BUFFER * «, t00=0x005f, t01=0x0126}
0x95bc…9602 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x005f, t01=0x016c}
0x9602…9648 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0060, t01=0x0022}
0x9648…965c Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0060, t01=0x0068}
0x965c…9666 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x007c}
0x9666…9680 Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x0060, t01=0x0086}
0x9680…96a0 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0060, t01=0x00a0}
0x96a0…96b8 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0060, t01=0x00c0}
0x96b8…96d0 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0060, t01=0x00d8}
0x96d0…96da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x00f0}
0x96da…9720 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0060, t01=0x00fa}
0x9720…9734 Head {h00=0x0010, h01=0x0050, text=»PUTCHA EQU *«, t00=0x0060, t01=0x0140}
0x9734…9754 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A1 SBA TO STORE?«, t00=0x0060, t01=0x0154}
0x9754…976e Head {h00=0x0016, h01=0x0050, text=» RF(N) PUTC10 YES «, t00=0x0060, t01=0x0174}
0x976e…9796 Head {h00=0x0024, h01=0x0050, text=» CWK A9,BUFFL+BUFFL BUFFER FULL?«, t00=0x0060, t01=0x018e}
0x9796…97b0 Head {h00=0x0016, h01=0x0050, text=» RF(NL) PUTC20 YES«, t00=0x0061, t01=0x0026}
0x97b0…97c2 Head {h00=0x000e, h01=0x0050, text=» RF PUTC30«, t00=0x0061, t01=0x0040}
0x97c2…97d6 Head {h00=0x0010, h01=0x0050, text=»PUTC10 EQU *«, t00=0x0061, t01=0x0052}
0x97d6…97f4 Head {h00=0x001a, h01=0x0050, text=» LDKL A1,BUFFL+BUFFL-3«, t00=0x0061, t01=0x0066}
0x97f4…9820 Head {h00=0x0028, h01=0x0050, text=» SUR A1,A9 ROOM FOR SBA AND ADDRESS?«, t00=0x0061, t01=0x0084}
0x9820…983a Head {h00=0x0016, h01=0x0050, text=» RF(NN) PUTC30 YES«, t00=0x0061, t01=0x00b0}
0x983a…984e Head {h00=0x0010, h01=0x0050, text=»PUTC20 EQU *«, t00=0x0061, t01=0x00ca}
0x984e…9860 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0061, t01=0x00de}
0x9860…988c Head {h00=0x0028, h01=0x0050, text=» CF A14,SAVE2 SAVE PACK INFORMATION «, t00=0x0061, t01=0x00f0}
0x988c…98b8 Head {h00=0x0028, h01=0x0050, text=» LDK A1,1 INDICATE NOT LAST IN CHAIN«, t00=0x0061, t01=0x011c}
0x98b8…98de Head {h00=0x0022, h01=0x0050, text=» CF A14,DCWRIT WRITE DC BUFFER«, t00=0x0061, t01=0x0148}
0x98de…98f0 Head {h00=0x000e, h01=0x0050, text=» LDR A9,A1«, t00=0x0061, t01=0x016e}
0x98f0…9906 Head {h00=0x0012, h01=0x0050, text=» CF A14,REST2 «, t00=0x0061, t01=0x0180}
0x9906…992a Head {h00=0x0020, h01=0x0050, text=» LDR A9,A9 TRANSMISSION OK? «, t00=0x0062, t01=0x0008}
0x992a…9944 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PUTC90 NO «, t00=0x0062, t01=0x002c}
0x9944…9964 Head {h00=0x001c, h01=0x0050, text=» SUR A9,A9 BUFFER INDEX «, t00=0x0062, t01=0x0046}
0x9964…9986 Head {h00=0x001e, h01=0x0050, text=» LDR A8,A12 BUFFER ADDRESS«, t00=0x0062, t01=0x0066}
0x9986…9992 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0062, t01=0x0088}
0x9992…99a4 Head {h00=0x000e, h01=0x0050, text=» IFF SNA=1«, t00=0x0062, t01=0x0094}
0x99a4…99ba Head {h00=0x0012, h01=0x0050, text=» CF A14,ERROR «, t00=0x0062, t01=0x00a6}
0x99ba…99cc Head {h00=0x000e, h01=0x0050, text=» LDKL A1,*«, t00=0x0062, t01=0x00bc}
0x99cc…99e4 Head {h00=0x0014, h01=0x0050, text=» ST A1,REGI,A11 «, t00=0x0062, t01=0x00ce}
0x99e4…99f0 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0062, t01=0x00e6}
0x99f0…9a00 Head {h00=0x000c, h01=0x0050, text=» DATA 3 «, t00=0x0062, t01=0x00f2}
0x9a00…9a0c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0062, t01=0x0102}
0x9a0c…9a20 Head {h00=0x0010, h01=0x0050, text=»PUTC30 EQU *«, t00=0x0062, t01=0x010e}
0x9a20…9a4c Head {h00=0x0028, h01=0x0050, text=» CF A14,PDCCH PUT CHAR. IN DC BUFFER«, t00=0x0062, t01=0x0122}
0x9a4c…9a6a Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0062, t01=0x014e}
0x9a6a…9a7e Head {h00=0x0010, h01=0x0050, text=»PUTC90 EQU *«, t00=0x0062, t01=0x016c}
0x9a7e…9a8e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0062, t01=0x0180}
0x9a8e…9a9c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0062, t01=0x0190}
0x9a9c…9ad6 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0063, t01=0x000e}
0x9ad6…9b10 Head {h00=0x0036, h01=0x0050, text=»* *«, t00=0x0063, t01=0x0048}
0x9b10…9b4a Head {h00=0x0036, h01=0x0050, text=»* PDCCH PUT CHAR. IN DC BUFFER *«, t00=0x0063, t01=0x0082}
0x9b4a…9b84 Head {h00=0x0036, h01=0x0050, text=»* *«, t00=0x0063, t01=0x00bc}
0x9b84…9bbe Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0063, t01=0x00f6}
0x9bbe…9bd2 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0063, t01=0x0130}
0x9bd2…9bdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0144}
0x9bdc…9bf0 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0063, t01=0x014e}
0x9bf0…9c06 Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x0063, t01=0x0162}
0x9c06…9c1c Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0063, t01=0x0178}
0x9c1c…9c32 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0063, t01=0x018e}
0x9c32…9c48 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0064, t01=0x0014}
0x9c48…9c6a Head {h00=0x001e, h01=0x0050, text=»* A8= ADDRESS IN DC-BUFFER«, t00=0x0064, t01=0x002a}
0x9c6a…9c88 Head {h00=0x001a, h01=0x0050, text=»* A9= DC-BUFFER INDEX «, t00=0x0064, t01=0x004c}
0x9c88…9ca0 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0064, t01=0x006a}
0x9ca0…9cb8 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0064, t01=0x0082}
0x9cb8…9cd0 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0064, t01=0x009a}
0x9cd0…9ce8 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0064, t01=0x00b2}
0x9ce8…9cf2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x00ca}
0x9cf2…9d2e Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0064, t01=0x00d4}
0x9d2e…9d42 Head {h00=0x0010, h01=0x0050, text=»PDCCH EQU * «, t00=0x0064, t01=0x0110}
0x9d42…9d68 Head {h00=0x0022, h01=0x0050, text=» CWK A9,BUFFL+BUFFL OVERFLOW? «, t00=0x0064, t01=0x0124}
0x9d68…9d82 Head {h00=0x0016, h01=0x0050, text=» RF(NL) PDC100 YES«, t00=0x0064, t01=0x014a}
0x9d82…9d96 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0064, t01=0x0164}
0x9d96…9dac Head {h00=0x0012, h01=0x0050, text=» IFT EBCDIC=1 «, t00=0x0064, t01=0x0178}
0x9dac…9dda Head {h00=0x002a, h01=0x0050, text=»* CONVERSION DELETED * DK 82-03-30 *«, t00=0x0064, t01=0x018e}
0x9dda…9de6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0065, t01=0x002c}
0x9de6…9e0c Head {h00=0x0022, h01=0x0050, text=» SCR A2,A8 STORE IN DC-BUFFER «, t00=0x0065, t01=0x0038}
0x9e0c…9e1e Head {h00=0x000e, h01=0x0050, text=» ADKL A8,1«, t00=0x0065, t01=0x005e}
0x9e1e…9e30 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0065, t01=0x0070}
0x9e30…9e44 Head {h00=0x0010, h01=0x0050, text=»PDC100 EQU *«, t00=0x0065, t01=0x0082}
0x9e44…9e54 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0065, t01=0x0096}
0x9e54…9e62 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0065, t01=0x00a6}
0x9e62…9eaa Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0065, t01=0x00b4}
0x9eaa…9ef2 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0065, t01=0x00fc}
0x9ef2…9f3a Head {h00=0x0044, h01=0x0050, text=»* GDCCH GET CHAR. IN DC BUFFER * «, t00=0x0065, t01=0x0144}
0x9f3a…9f82 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0065, t01=0x018c}
0x9f82…9fca Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0066, t01=0x0044}
0x9fca…9fde Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0066, t01=0x008c}
0x9fde…9fe8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x00a0}
0x9fe8…a002 Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x0066, t01=0x00aa}
0xa002…a016 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0066, t01=0x00c4}
0xa016…a03a Head {h00=0x0020, h01=0x0050, text=»* A3= POINTER IN VDU BUFFER «, t00=0x0066, t01=0x00d8}
0xa03a…a050 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0066, t01=0x00fc}
0xa050…a066 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0066, t01=0x0112}
0xa066…a07c Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0066, t01=0x0128}
0xa07c…a09e Head {h00=0x001e, h01=0x0050, text=»* A8= ADDRESS IN DC-BUFFER«, t00=0x0066, t01=0x013e}
0xa09e…a0bc Head {h00=0x001a, h01=0x0050, text=»* A9= DC-BUFFER INDEX «, t00=0x0066, t01=0x0160}
0xa0bc…a0d4 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0066, t01=0x017e}
0xa0d4…a0f4 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0067, t01=0x0008}
0xa0f4…a10c Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0067, t01=0x0028}
0xa10c…a124 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0067, t01=0x0040}
0xa124…a12e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0058}
0xa12e…a16a Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0067, t01=0x0062}
0xa16a…a17e Head {h00=0x0010, h01=0x0050, text=»GDCCH EQU * «, t00=0x0067, t01=0x009e}
0xa17e…a19c Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 PRESET ERROR«, t00=0x0067, t01=0x00b2}
0xa19c…a1c6 Head {h00=0x0026, h01=0x0050, text=» CW A9,DCLENG,A11 BUFFER EMPTIED? «, t00=0x0067, t01=0x00d0}
0xa1c6…a1e0 Head {h00=0x0016, h01=0x0050, text=» RF(NL) GDCC90 YES«, t00=0x0067, t01=0x00fa}
0xa1e0…a1f2 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0067, t01=0x0114}
0xa1f2…a20e Head {h00=0x0018, h01=0x0050, text=» LCR A2,A8 GET CHAR.«, t00=0x0067, t01=0x0126}
0xa20e…a222 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0067, t01=0x0142}
0xa222…a238 Head {h00=0x0012, h01=0x0050, text=» IFT EBCDIC=1 «, t00=0x0067, t01=0x0156}
0xa238…a270 Head {h00=0x0034, h01=0x0050, text=»* EBCDIC-ASCII CONVERSION DELETED PR. 8625,DK* «, t00=0x0067, t01=0x016c}
0xa270…a27c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0068, t01=0x0014}
0xa27c…a28e Head {h00=0x000e, h01=0x0050, text=» ADKL A8,1«, t00=0x0068, t01=0x0020}
0xa28e…a2a0 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0068, t01=0x0032}
0xa2a0…a2b4 Head {h00=0x0010, h01=0x0050, text=»GDCC90 EQU *«, t00=0x0068, t01=0x0044}
0xa2b4…a2c4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0068, t01=0x0058}
0xa2c4…a2d2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0068, t01=0x0068}
0xa2d2…a316 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0068, t01=0x0076}
0xa316…a35a Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0068, t01=0x00ba}
0xa35a…a39e Head {h00=0x0040, h01=0x0050, text=»* PAID STORE AID IN BUFFER * «, t00=0x0068, t01=0x00fe}
0xa39e…a3e2 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0068, t01=0x0142}
0xa3e2…a426 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0068, t01=0x0186}
0xa426…a43a Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0069, t01=0x003a}
0xa43a…a444 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x004e}
0xa444…a456 Head {h00=0x000e, h01=0x0050, text=»* A2= AID «, t00=0x0069, t01=0x0058}
0xa456…a46e Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0069, t01=0x006a}
0xa46e…a486 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0069, t01=0x0082}
0xa486…a490 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x009a}
0xa490…a4d2 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0069, t01=0x00a4}
0xa4d2…a4e4 Head {h00=0x000e, h01=0x0050, text=»PAID EQU *«, t00=0x0069, t01=0x00e6}
0xa4e4…a504 Head {h00=0x001c, h01=0x0050, text=» CF A14,PDCCH STORE AID «, t00=0x0069, t01=0x00f8}
0xa504…a514 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0069, t01=0x0118}
0xa514…a522 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0069, t01=0x0128}
0xa522…a564 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0069, t01=0x0136}
0xa564…a5a6 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x0069, t01=0x0178}
0xa5a6…a5e8 Head {h00=0x003e, h01=0x0050, text=»* BUFADR STORE BUFFER ADDRESS IN DC-BUFFER *«, t00=0x006a, t01=0x002a}
0xa5e8…a62a Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x006a, t01=0x006c}
0xa62a…a66c Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x006a, t01=0x00ae}
0xa66c…a680 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x006a, t01=0x00f0}
0xa680…a68a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x0104}
0xa68a…a69e Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x006a, t01=0x010e}
0xa69e…a6b4 Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x006a, t01=0x0122}
0xa6b4…a6ca Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x006a, t01=0x0138}
0xa6ca…a6e0 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x006a, t01=0x014e}
0xa6e0…a6f6 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x006a, t01=0x0164}
0xa6f6…a70c Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x006a, t01=0x017a}
0xa70c…a722 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x006a, t01=0x0190}
0xa722…a73a Head {h00=0x0014, h01=0x0050, text=»* A10= RESERVED «, t00=0x006b, t01=0x0016}
0xa73a…a752 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x006b, t01=0x002e}
0xa752…a76a Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x006b, t01=0x0046}
0xa76a…a782 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x006b, t01=0x005e}
0xa782…a78c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0076}
0xa78c…a7ce Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x006b, t01=0x0080}
0xa7ce…a7e2 Head {h00=0x0010, h01=0x0050, text=»BUFADR EQU *«, t00=0x006b, t01=0x00c2}
0xa7e2…a802 Head {h00=0x001c, h01=0x0050, text=» LDR A2,A1 GET REL. POS.«, t00=0x006b, t01=0x00d6}
0xa802…a814 Head {h00=0x000e, h01=0x0050, text=» SRL A2,6 «, t00=0x006b, t01=0x00f6}
0xa814…a828 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x006b, t01=0x0108}
0xa828…a852 Head {h00=0x0026, h01=0x0050, text=» LC A2,CONADR,A2 CONVERT TO ASCII «, t00=0x006b, t01=0x011c}
0xa852…a87a Head {h00=0x0024, h01=0x0050, text=» CF A14,PDCCH STORE IN DC-BUFFER«, t00=0x006b, t01=0x0146}
0xa87a…a89a Head {h00=0x001c, h01=0x0050, text=» LDR A2,A1 GET REL. POS.«, t00=0x006b, t01=0x016e}
0xa89a…a8ae Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x006b, t01=0x018e}
0xa8ae…a8d8 Head {h00=0x0026, h01=0x0050, text=» LC A2,CONADR,A2 CONVERT TO ASCII «, t00=0x006c, t01=0x0012}
0xa8d8…a900 Head {h00=0x0024, h01=0x0050, text=» CF A14,PDCCH STORE IN DC-BUFFER«, t00=0x006c, t01=0x003c}
0xa900…a910 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006c, t01=0x0064}
0xa910…a91e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006c, t01=0x0074}
0xa91e…a962 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x006c, t01=0x0082}
0xa962…a9a6 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x006c, t01=0x00c6}
0xa9a6…a9ea Head {h00=0x0040, h01=0x0050, text=»* RESMDT RESET ALL MDT-BITS IN ATTRIBUTES *«, t00=0x006c, t01=0x010a}
0xa9ea…aa2e Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x006c, t01=0x014e}
0xaa2e…aa72 (109, 0, 400) Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x006d, t01=0x0004}
0xaa72…aa86 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x006d, t01=0x0048}
0xaa86…aa90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x005c}
0xaa90…aaa4 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x006d, t01=0x0066}
0xaaa4…aac8 Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x006d, t01=0x007a}
0xaac8…aade Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x006d, t01=0x009e}
0xaade…aaf4 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x006d, t01=0x00b4}
0xaaf4…ab0a Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x006d, t01=0x00ca}
0xab0a…ab20 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x006d, t01=0x00e0}
0xab20…ab36 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x006d, t01=0x00f6}
0xab36…ab4e Head {h00=0x0014, h01=0x0050, text=»* A10= RESERVED «, t00=0x006d, t01=0x010c}
0xab4e…ab6e Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x006d, t01=0x0124}
0xab6e…ab86 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x006d, t01=0x0144}
0xab86…ab9e Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x006d, t01=0x015c}
0xab9e…aba8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x0174}
0xaba8…abee Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x006d, t01=0x017e}
0xabee…ac02 Head {h00=0x0010, h01=0x0050, text=»RESMDT EQU *«, t00=0x006e, t01=0x0034}
0xac02…ac26 Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 FIRST SCREEN POS. «, t00=0x006e, t01=0x0048}
0xac26…ac3c Head {h00=0x0012, h01=0x0050, text=» LDKL A3,BVDU «, t00=0x006e, t01=0x006c}
0xac3c…ac50 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x006e, t01=0x0082}
0xac50…ac64 Head {h00=0x0010, h01=0x0050, text=»RESM10 EQU *«, t00=0x006e, t01=0x0096}
0xac64…ac86 Head {h00=0x001e, h01=0x0050, text=» CWK A1,LBVDU ALL SCANNED?«, t00=0x006e, t01=0x00aa}
0xac86…aca0 Head {h00=0x0016, h01=0x0050, text=» RF(NL) RESM90 YES«, t00=0x006e, t01=0x00cc}
0xaca0…acbc Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x006e, t01=0x00e6}
0xacbc…acdc Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8080 ATTRIBUTE?«, t00=0x006e, t01=0x0102}
0xacdc…acf4 Head {h00=0x0014, h01=0x0050, text=» RF(L) RESM20 NO«, t00=0x006e, t01=0x0122}
0xacf4…ad16 Head {h00=0x001e, h01=0x0050, text=» ANK A2,/FE RESET MDT-BIT «, t00=0x006e, t01=0x013a}
0xad16…ad30 Head {h00=0x0016, h01=0x0050, text=» SCR A2,A3 RESTORE«, t00=0x006e, t01=0x015c}
0xad30…ad44 Head {h00=0x0010, h01=0x0050, text=»RESM20 EQU *«, t00=0x006e, t01=0x0176}
0xad44…ad56 Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x006e, t01=0x018a}
0xad56…ad68 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x006f, t01=0x000c}
0xad68…ad7a Head {h00=0x000e, h01=0x0050, text=» RB RESM10«, t00=0x006f, t01=0x001e}
0xad7a…ad8e Head {h00=0x0010, h01=0x0050, text=»RESM90 EQU *«, t00=0x006f, t01=0x0030}
0xad8e…ad9e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006f, t01=0x0044}
0xad9e…adac Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006f, t01=0x0054}
0xadac…adec Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x006f, t01=0x0062}
0xadec…ae2c Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x006f, t01=0x00a2}
0xae2c…ae62 Head {h00=0x0032, h01=0x0050, text=»* P1WCC PROCESS WCC BEFORE UPDATE«, t00=0x006f, t01=0x00e2}
0xae62…aea2 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x006f, t01=0x0118}
0xaea2…aee2 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x006f, t01=0x0158}
0xaee2…aef6 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0070, t01=0x0008}
0xaef6…af00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x001c}
0xaf00…af14 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0070, t01=0x0026}
0xaf14…af2a Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x0070, t01=0x003a}
0xaf2a…af40 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0070, t01=0x0050}
0xaf40…af56 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0070, t01=0x0066}
0xaf56…af6c Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0070, t01=0x007c}
0xaf6c…af82 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0070, t01=0x0092}
0xaf82…af98 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x0070, t01=0x00a8}
0xaf98…afb0 Head {h00=0x0014, h01=0x0050, text=»* A10= RESERVED «, t00=0x0070, t01=0x00be}
0xafb0…afd0 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0070, t01=0x00d6}
0xafd0…afe8 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0070, t01=0x00f6}
0xafe8…b000 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0070, t01=0x010e}
0xb000…b00a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0126}
0xb00a…b046 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0070, t01=0x0130}
0xb046…b05a Head {h00=0x0010, h01=0x0050, text=»P1WCC EQU * «, t00=0x0070, t01=0x016c}
0xb05a…b07c Head {h00=0x001e, h01=0x0050, text=» LC A2,CONATT,A2 IN EBCDIC«, t00=0x0070, t01=0x0180}
0xb07c…b098 Head {h00=0x0018, h01=0x0050, text=» ST A2,WCC,A11 SAVE «, t00=0x0071, t01=0x0012}
0xb098…b0ba Head {h00=0x001e, h01=0x0050, text=» ANK A2,1 RESET MDT-BITS? «, t00=0x0071, t01=0x002e}
0xb0ba…b0d2 Head {h00=0x0014, h01=0x0050, text=» RF(Z) P1W900 NO«, t00=0x0071, t01=0x0050}
0xb0d2…b0fc Head {h00=0x0026, h01=0x0050, text=» CF A14,RESMDT RESET ALL MDT-BITS «, t00=0x0071, t01=0x0068}
0xb0fc…b110 Head {h00=0x0010, h01=0x0050, text=»P1W900 EQU *«, t00=0x0071, t01=0x0092}
0xb110…b120 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0071, t01=0x00a6}
0xb120…b12e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0071, t01=0x00b6}
0xb12e…b170 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0071, t01=0x00c4}
0xb170…b1b2 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0071, t01=0x0106}
0xb1b2…b1f4 Head {h00=0x003e, h01=0x0050, text=»* P2WCC TAKE CARE OF WCC AFTER UPDATE * «, t00=0x0071, t01=0x0148}
0xb1f4…b236 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0071, t01=0x018a}
0xb236…b278 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0072, t01=0x003c}
0xb278…b28c Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0072, t01=0x007e}
0xb28c…b296 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x0092}
0xb296…b2b6 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0072, t01=0x009c}
0xb2b6…b2ce Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0072, t01=0x00bc}
0xb2ce…b2e6 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0072, t01=0x00d4}
0xb2e6…b2f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x00ec}
0xb2f0…b332 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0072, t01=0x00f6}
0xb332…b346 Head {h00=0x0010, h01=0x0050, text=»P2WCC EQU * «, t00=0x0072, t01=0x0138}
0xb346…b36c Head {h00=0x0022, h01=0x0050, text=» CF A14,SAVE2 KEEP IT AWAY =4 «, t00=0x0072, t01=0x014c}
0xb36c…b382 Head {h00=0x0012, h01=0x0050, text=» LD A1,WCC,A11«, t00=0x0072, t01=0x0172}
0xb382…b394 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A1«, t00=0x0072, t01=0x0188}
0xb394…b3ac Head {h00=0x0014, h01=0x0050, text=» ANK A7,4 SOUND?«, t00=0x0073, t01=0x000a}
0xb3ac…b3c4 Head {h00=0x0014, h01=0x0050, text=» RF(Z) P2W100 NO«, t00=0x0073, t01=0x0022}
0xb3c4…b3e0 Head {h00=0x0018, h01=0x0050, text=» CF A14,SOUND SOUND «, t00=0x0073, t01=0x003a}
0xb3e0…b3f4 Head {h00=0x0010, h01=0x0050, text=»P2W100 EQU *«, t00=0x0073, t01=0x0056}
0xb3f4…b40c Head {h00=0x0014, h01=0x0050, text=» ANK A1,8 COPY? «, t00=0x0073, t01=0x006a}
0xb40c…b424 Head {h00=0x0014, h01=0x0050, text=» RF(Z) P2W300 NO«, t00=0x0073, t01=0x0082}
0xb424…b442 Head {h00=0x001a, h01=0x0050, text=» LC A1,TCT01,A11 . =4 «, t00=0x0073, t01=0x009a}
0xb442…b460 Head {h00=0x001a, h01=0x0050, text=» CCK A1,VDUCOD VDU =4 «, t00=0x0073, t01=0x00b8}
0xb460…b484 Head {h00=0x0020, h01=0x0050, text=» RF(NE) P2W200 NO PRINTER =4«, t00=0x0073, t01=0x00d6}
0xb484…b49e Head {h00=0x0016, h01=0x0050, text=» CF A14,COPY COPY «, t00=0x0073, t01=0x00fa}
0xb49e…b4b6 Head {h00=0x0014, h01=0x0050, text=» RF P2W300 . =4 «, t00=0x0073, t01=0x0114}
0xb4b6…b4d0 Head {h00=0x0016, h01=0x0050, text=»P2W200 EQU * . =4 «, t00=0x0073, t01=0x012c}
0xb4d0…b4fa Head {h00=0x0026, h01=0x0050, text=»* CALL TO COPP REMOVED, DK1 «, t00=0x0073, t01=0x0146}
0xb4fa…b50e Head {h00=0x0010, h01=0x0050, text=»P2W300 EQU *«, t00=0x0073, t01=0x0170}
0xb50e…b534 Head {h00=0x0022, h01=0x0050, text=» CF A14,REST2 TAKE IT BACK =4 «, t00=0x0073, t01=0x0184}
0xb534…b544 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0074, t01=0x001a}
0xb544…b552 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0074, t01=0x002a}
0xb552…b59c Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0074, t01=0x0038}
0xb59c…b5e6 Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x0074, t01=0x0082}
0xb5e6…b630 Head {h00=0x0046, h01=0x0050, text=»* SAVE SAVE PACK AND UNPACK INFORMATION *«, t00=0x0074, t01=0x00cc}
0xb630…b67a Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x0074, t01=0x0116}
0xb67a…b6c4 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0074, t01=0x0160}
0xb6c4…b6d8 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0075, t01=0x001a}
0xb6d8…b6e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x002e}
0xb6e2…b6fe Head {h00=0x0018, h01=0x0050, text=»* A1= STACK POINTER «, t00=0x0075, t01=0x0038}
0xb6fe…b712 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0075, t01=0x0054}
0xb712…b732 Head {h00=0x001c, h01=0x0050, text=»* A3= VDU BUFFER ADDRESS«, t00=0x0075, t01=0x0068}
0xb732…b750 Head {h00=0x001a, h01=0x0050, text=»* A4= REL CURSOR POS. «, t00=0x0075, t01=0x0088}
0xb750…b770 Head {h00=0x001c, h01=0x0050, text=»* A5= REL STTRIBUTE POS.«, t00=0x0075, t01=0x00a6}
0xb770…b78e Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x0075, t01=0x00c6}
0xb78e…b7b0 Head {h00=0x001e, h01=0x0050, text=»* A10= INTERNAL INDICATOR «, t00=0x0075, t01=0x00e4}
0xb7b0…b7d0 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0075, t01=0x0106}
0xb7d0…b7e8 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0075, t01=0x0126}
0xb7e8…b800 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0075, t01=0x013e}
0xb800…b80a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x0156}
0xb80a…b852 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0075, t01=0x0160}
0xb852…b866 Head {h00=0x0010, h01=0x0050, text=»SAVE1 EQU * «, t00=0x0076, t01=0x0018}
0xb866…b890 Head {h00=0x0026, h01=0x0050, text=» LDKL A1,STACK1 GET STACK ADDRESS «, t00=0x0076, t01=0x002c}
0xb890…b8a0 Head {h00=0x000c, h01=0x0050, text=» RF SAVE«, t00=0x0076, t01=0x0056}
0xb8a0…b8b4 Head {h00=0x0010, h01=0x0050, text=»SAVE2 EQU * «, t00=0x0076, t01=0x0066}
0xb8b4…b8cc Head {h00=0x0014, h01=0x0050, text=» LDKL A1,STACK2 «, t00=0x0076, t01=0x007a}
0xb8cc…b8de Head {h00=0x000e, h01=0x0050, text=»SAVE EQU *«, t00=0x0076, t01=0x0092}
0xb8de…b8f2 Head {h00=0x0010, h01=0x0050, text=» ADR A1,A11 «, t00=0x0076, t01=0x00a4}
0xb8f2…b904 Head {h00=0x000e, h01=0x0050, text=» STR A2,A1«, t00=0x0076, t01=0x00b8}
0xb904…b916 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0076, t01=0x00ca}
0xb916…b928 Head {h00=0x000e, h01=0x0050, text=» STR A3,A1«, t00=0x0076, t01=0x00dc}
0xb928…b93a Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0076, t01=0x00ee}
0xb93a…b94c Head {h00=0x000e, h01=0x0050, text=» STR A4,A1«, t00=0x0076, t01=0x0100}
0xb94c…b95e Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0076, t01=0x0112}
0xb95e…b970 Head {h00=0x000e, h01=0x0050, text=» STR A5,A1«, t00=0x0076, t01=0x0124}
0xb970…b982 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0076, t01=0x0136}
0xb982…b994 Head {h00=0x000e, h01=0x0050, text=» STR A6,A1«, t00=0x0076, t01=0x0148}
0xb994…b9a6 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0076, t01=0x015a}
0xb9a6…b9b8 Head {h00=0x000e, h01=0x0050, text=» STR A7,A1«, t00=0x0076, t01=0x016c}
0xb9b8…b9ca Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0076, t01=0x017e}
0xb9ca…b9de Head {h00=0x0010, h01=0x0050, text=» STR A10,A1 «, t00=0x0076, t01=0x0190}
0xb9de…b9ee Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0077, t01=0x0014}
0xb9ee…b9fc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0077, t01=0x0024}
0xb9fc…ba48 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0077, t01=0x0032}
0xba48…ba94 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0077, t01=0x007e}
0xba94…bae0 Head {h00=0x0048, h01=0x0050, text=»* RESTOR RESTORE PACK AND UNPACK INFORMATION * «, t00=0x0077, t01=0x00ca}
0xbae0…bb2c Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0077, t01=0x0116}
0xbb2c…bb78 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0077, t01=0x0162}
0xbb78…bb8c Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0078, t01=0x001e}
0xbb8c…bb96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x0032}
0xbb96…bbb2 Head {h00=0x0018, h01=0x0050, text=»* A1= STACK POINTER «, t00=0x0078, t01=0x003c}
0xbbb2…bbc6 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0078, t01=0x0058}
0xbbc6…bbe6 Head {h00=0x001c, h01=0x0050, text=»* A3= VDU BUFFER ADDRESS«, t00=0x0078, t01=0x006c}
0xbbe6…bc04 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0078, t01=0x008c}
0xbc04…bc26 Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x0078, t01=0x00aa}
0xbc26…bc44 Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x0078, t01=0x00cc}
0xbc44…bc5a Head {h00=0x0012, h01=0x0050, text=»* A7= RESERVED«, t00=0x0078, t01=0x00ea}
0xbc5a…bc7c Head {h00=0x001e, h01=0x0050, text=»* A10= INTERNAL INDICATOR «, t00=0x0078, t01=0x0100}
0xbc7c…bc9c Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0078, t01=0x0122}
0xbc9c…bcb4 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0078, t01=0x0142}
0xbcb4…bccc Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0078, t01=0x015a}
0xbccc…bcd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x0172}
0xbcd6…bd1e Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0078, t01=0x017c}
0xbd1e…bd32 Head {h00=0x0010, h01=0x0050, text=»REST1 EQU * «, t00=0x0079, t01=0x0034}
0xbd32…bd5c Head {h00=0x0026, h01=0x0050, text=» LDKL A1,STACK1 GET STACK ADDRESS «, t00=0x0079, t01=0x0048}
0xbd5c…bd6e Head {h00=0x000e, h01=0x0050, text=» RF RESTOR«, t00=0x0079, t01=0x0072}
0xbd6e…bd82 Head {h00=0x0010, h01=0x0050, text=»REST2 EQU * «, t00=0x0079, t01=0x0084}
0xbd82…bd9a Head {h00=0x0014, h01=0x0050, text=» LDKL A1,STACK2 «, t00=0x0079, t01=0x0098}
0xbd9a…bdae Head {h00=0x0010, h01=0x0050, text=»RESTOR EQU *«, t00=0x0079, t01=0x00b0}
0xbdae…bdc2 Head {h00=0x0010, h01=0x0050, text=» ADR A1,A11 «, t00=0x0079, t01=0x00c4}
0xbdc2…bdd6 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A1 «, t00=0x0079, t01=0x00d8}
0xbdd6…bde8 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0079, t01=0x00ec}
0xbde8…bdfc Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A1 «, t00=0x0079, t01=0x00fe}
0xbdfc…be0e Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0079, t01=0x0112}
0xbe0e…be22 Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A1 «, t00=0x0079, t01=0x0124}
0xbe22…be34 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0079, t01=0x0138}
0xbe34…be48 Head {h00=0x0010, h01=0x0050, text=» LDR* A5,A1 «, t00=0x0079, t01=0x014a}
0xbe48…be5a Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0079, t01=0x015e}
0xbe5a…be6e Head {h00=0x0010, h01=0x0050, text=» LDR* A6,A1 «, t00=0x0079, t01=0x0170}
0xbe6e…be80 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0079, t01=0x0184}
0xbe80…be94 Head {h00=0x0010, h01=0x0050, text=» LDR* A7,A1 «, t00=0x007a, t01=0x0008}
0xbe94…bea6 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x007a, t01=0x001c}
0xbea6…beba Head {h00=0x0010, h01=0x0050, text=» LDR* A10,A1«, t00=0x007a, t01=0x002e}
0xbeba…beca Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007a, t01=0x0042}
0xbeca…bed8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007a, t01=0x0052}
0xbed8…bf18 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x007a, t01=0x0060}
0xbf18…bf58 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x007a, t01=0x00a0}
0xbf58…bf98 Head {h00=0x003c, h01=0x0050, text=»* BUFFER POOL * «, t00=0x007a, t01=0x00e0}
0xbf98…bfd8 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x007a, t01=0x0120}
0xbfd8…c018 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x007a, t01=0x0160}
0xc018…c02c Head {h00=0x0010, h01=0x0050, text=»BUFFER EQU *«, t00=0x007b, t01=0x0010}
0xc02c…c050 Head {h00=0x0020, h01=0x0050, text=» DATA *+2 POINTER FIRST FREE«, t00=0x007b, t01=0x0024}
0xc050…c066 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=1 «, t00=0x007b, t01=0x0048}
0xc066…c07a Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007b, t01=0x005e}
0xc07a…c08c Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007b, t01=0x0072}
0xc08c…c0a2 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=2 «, t00=0x007b, t01=0x0084}
0xc0a2…c0b6 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007b, t01=0x009a}
0xc0b6…c0c8 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007b, t01=0x00ae}
0xc0c8…c0de Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=3 «, t00=0x007b, t01=0x00c0}
0xc0de…c0f2 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007b, t01=0x00d6}
0xc0f2…c104 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007b, t01=0x00ea}
0xc104…c11a Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=4 «, t00=0x007b, t01=0x00fc}
0xc11a…c12e Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007b, t01=0x0112}
0xc12e…c140 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007b, t01=0x0126}
0xc140…c156 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=5 «, t00=0x007b, t01=0x0138}
0xc156…c16a Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007b, t01=0x014e}
0xc16a…c17c Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007b, t01=0x0162}
0xc17c…c192 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=6 «, t00=0x007b, t01=0x0174}
0xc192…c1a6 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007b, t01=0x018a}
0xc1a6…c1b8 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007c, t01=0x000e}
0xc1b8…c1ce Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=7 «, t00=0x007c, t01=0x0020}
0xc1ce…c1e2 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007c, t01=0x0036}
0xc1e2…c1f4 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007c, t01=0x004a}
0xc1f4…c20a Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=8 «, t00=0x007c, t01=0x005c}
0xc20a…c21e Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007c, t01=0x0072}
0xc21e…c230 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007c, t01=0x0086}
0xc230…c246 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=9 «, t00=0x007c, t01=0x0098}
0xc246…c25a Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007c, t01=0x00ae}
0xc25a…c26c Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007c, t01=0x00c2}
0xc26c…c282 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=10«, t00=0x007c, t01=0x00d4}
0xc282…c296 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007c, t01=0x00ea}
0xc296…c2a8 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007c, t01=0x00fe}
0xc2a8…c2be Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=11«, t00=0x007c, t01=0x0110}
0xc2be…c2d2 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007c, t01=0x0126}
0xc2d2…c2e4 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007c, t01=0x013a}
0xc2e4…c2fa Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=12«, t00=0x007c, t01=0x014c}
0xc2fa…c30e Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007c, t01=0x0162}
0xc30e…c320 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007c, t01=0x0176}
0xc320…c336 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=13«, t00=0x007c, t01=0x0188}
0xc336…c34a Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007d, t01=0x000e}
0xc34a…c35c Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007d, t01=0x0022}
0xc35c…c372 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=14«, t00=0x007d, t01=0x0034}
0xc372…c386 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007d, t01=0x004a}
0xc386…c398 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007d, t01=0x005e}
0xc398…c3ae Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=15«, t00=0x007d, t01=0x0070}
0xc3ae…c3c2 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007d, t01=0x0086}
0xc3c2…c3d4 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007d, t01=0x009a}
0xc3d4…c3ea Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=16«, t00=0x007d, t01=0x00ac}
0xc3ea…c3fe Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007d, t01=0x00c2}
0xc3fe…c410 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007d, t01=0x00d6}
0xc410…c426 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=17«, t00=0x007d, t01=0x00e8}
0xc426…c43a Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007d, t01=0x00fe}
0xc43a…c44c Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007d, t01=0x0112}
0xc44c…c462 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=18«, t00=0x007d, t01=0x0124}
0xc462…c476 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007d, t01=0x013a}
0xc476…c488 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007d, t01=0x014e}
0xc488…c49e Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=19«, t00=0x007d, t01=0x0160}
0xc49e…c4b2 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007d, t01=0x0176}
0xc4b2…c4c4 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007d, t01=0x018a}
0xc4c4…c4da Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=20«, t00=0x007e, t01=0x000c}
0xc4da…c4ee Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007e, t01=0x0022}
0xc4ee…c500 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007e, t01=0x0036}
0xc500…c516 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=21«, t00=0x007e, t01=0x0048}
0xc516…c52a Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007e, t01=0x005e}
0xc52a…c53c Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007e, t01=0x0072}
0xc53c…c552 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=22«, t00=0x007e, t01=0x0084}
0xc552…c566 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007e, t01=0x009a}
0xc566…c578 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007e, t01=0x00ae}
0xc578…c58e Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=23«, t00=0x007e, t01=0x00c0}
0xc58e…c5a2 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007e, t01=0x00d6}
0xc5a2…c5b4 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007e, t01=0x00ea}
0xc5b4…c5ca Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=24«, t00=0x007e, t01=0x00fc}
0xc5ca…c5de Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007e, t01=0x0112}
0xc5de…c5f0 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007e, t01=0x0126}
0xc5f0…c606 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=25«, t00=0x007e, t01=0x0138}
0xc606…c61a Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007e, t01=0x014e}
0xc61a…c62c Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007e, t01=0x0162}
0xc62c…c642 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=26«, t00=0x007e, t01=0x0174}
0xc642…c656 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007e, t01=0x018a}
0xc656…c668 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007f, t01=0x000e}
0xc668…c67e Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=27«, t00=0x007f, t01=0x0020}
0xc67e…c692 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007f, t01=0x0036}
0xc692…c6a4 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007f, t01=0x004a}
0xc6a4…c6ba Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=28«, t00=0x007f, t01=0x005c}
0xc6ba…c6ce Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007f, t01=0x0072}
0xc6ce…c6e0 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007f, t01=0x0086}
0xc6e0…c6f6 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=29«, t00=0x007f, t01=0x0098}
0xc6f6…c70a Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007f, t01=0x00ae}
0xc70a…c71c Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007f, t01=0x00c2}
0xc71c…c732 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=30«, t00=0x007f, t01=0x00d4}
0xc732…c746 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007f, t01=0x00ea}
0xc746…c758 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007f, t01=0x00fe}
0xc758…c76e Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=31«, t00=0x007f, t01=0x0110}
0xc76e…c782 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007f, t01=0x0126}
0xc782…c794 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007f, t01=0x013a}
0xc794…c7aa Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=32«, t00=0x007f, t01=0x014c}
0xc7aa…c7be Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007f, t01=0x0162}
0xc7be…c7d0 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007f, t01=0x0176}
0xc7d0…c7dc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007f, t01=0x0188}
0xc7dc…c7ec (128, 0, 398) Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0080, t01=0x0004}
0xc7ec…c7fe Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x0080, t01=0x0014}
0xc7fe…c80c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0080, t01=0x0026}
0xc80c…c84c Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0080, t01=0x0034}
0xc84c…c88c Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0080, t01=0x0074}
0xc88c…c8cc Head {h00=0x003c, h01=0x0050, text=»* GETBUF GET BUFFER * «, t00=0x0080, t01=0x00b4}
0xc8cc…c90c Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0080, t01=0x00f4}
0xc90c…c94c Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0080, t01=0x0134}
0xc94c…c960 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0080, t01=0x0174}
0xc960…c96a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0188}
0xc96a…c98a (129, 0, 400) Head {h00=0x001c, h01=0x0050, text=»* A8= DC-BUFFER ADDRESS «, t00=0x0081, t01=0x0004}
0xc98a…c9aa Head {h00=0x001c, h01=0x0050, text=»* A9= INDEX IN DC-BUFFER«, t00=0x0081, t01=0x0024}
0xc9aa…c9c2 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0081, t01=0x0044}
0xc9c2…c9e0 Head {h00=0x001a, h01=0x0050, text=»* A12= BUFFER ADDRESS «, t00=0x0081, t01=0x005c}
0xc9e0…c9f8 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0081, t01=0x007a}
0xc9f8…ca02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x0092}
0xca02…ca42 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0081, t01=0x009c}
0xca42…ca56 Head {h00=0x0010, h01=0x0050, text=»GETBUF EQU *«, t00=0x0081, t01=0x00dc}
0xca56…ca6e Head {h00=0x0014, h01=0x0050, text=» LDKL A7,BUFFER «, t00=0x0081, t01=0x00f0}
0xca6e…ca82 Head {h00=0x0010, h01=0x0050, text=»GETB10 EQU *«, t00=0x0081, t01=0x0108}
0xca82…ca96 Head {h00=0x0010, h01=0x0050, text=» LDR* A8,A7 «, t00=0x0081, t01=0x011c}
0xca96…cab8 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) GETB90 BUFFER FREE«, t00=0x0081, t01=0x0130}
0xcab8…cac4 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0081, t01=0x0152}
0xcac4…cae0 Head {h00=0x0018, h01=0x0050, text=» DATA 0 SWITCH TASK «, t00=0x0081, t01=0x015e}
0xcae0…caf2 Head {h00=0x000e, h01=0x0050, text=» RB GETB10«, t00=0x0081, t01=0x017a}
0xcaf2…cb06 Head {h00=0x0010, h01=0x0050, text=»GETB90 EQU *«, t00=0x0081, t01=0x018c}
0xcb06…cb1a Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A8 «, t00=0x0082, t01=0x0010}
0xcb1a…cb2c Head {h00=0x000e, h01=0x0050, text=» STR A1,A7«, t00=0x0082, t01=0x0024}
0xcb2c…cb3e Head {h00=0x000e, h01=0x0050, text=» ADKL A8,2«, t00=0x0082, t01=0x0036}
0xcb3e…cb52 Head {h00=0x0010, h01=0x0050, text=» LDR A12,A8 «, t00=0x0082, t01=0x0048}
0xcb52…cb64 Head {h00=0x000e, h01=0x0050, text=» SUR A9,A9«, t00=0x0082, t01=0x005c}
0xcb64…cb74 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0082, t01=0x006e}
0xcb74…cb82 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0082, t01=0x007e}
0xcb82…cbc4 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0082, t01=0x008c}
0xcbc4…cc06 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0082, t01=0x00ce}
0xcc06…cc48 Head {h00=0x003e, h01=0x0050, text=»* RELBUF RELEASE BUFFER * «, t00=0x0082, t01=0x0110}
0xcc48…cc8a Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0082, t01=0x0152}
0xcc8a…cccc (131, 0, 400) Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0083, t01=0x0004}
0xcccc…cce0 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0083, t01=0x0046}
0xcce0…ccea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x005a}
0xccea…cd06 Head {h00=0x0018, h01=0x0050, text=»* A8= BUFFER ADDRESS«, t00=0x0083, t01=0x0064}
0xcd06…cd1e Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0083, t01=0x0080}
0xcd1e…cd36 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0083, t01=0x0098}
0xcd36…cd40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x00b0}
0xcd40…cd82 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0083, t01=0x00ba}
0xcd82…cd96 Head {h00=0x0010, h01=0x0050, text=»RELBUF EQU *«, t00=0x0083, t01=0x00fc}
0xcd96…cdae Head {h00=0x0014, h01=0x0050, text=» LDKL A7,BUFFER «, t00=0x0083, t01=0x0110}
0xcdae…cdce Head {h00=0x001c, h01=0x0050, text=» SUKL A8,2 POINT TO LINK«, t00=0x0083, t01=0x0128}
0xcdce…cde2 Head {h00=0x0010, h01=0x0050, text=»RELB10 EQU *«, t00=0x0083, t01=0x0148}
0xcde2…cdf6 Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A7 «, t00=0x0083, t01=0x015c}
0xcdf6…ce0c Head {h00=0x0012, h01=0x0050, text=» RF(Z) RELB90 «, t00=0x0083, t01=0x0170}
0xce0c…ce1e Head {h00=0x000e, h01=0x0050, text=» LDR A7,A1«, t00=0x0083, t01=0x0186}
0xce1e…ce30 Head {h00=0x000e, h01=0x0050, text=» RB RELB10«, t00=0x0084, t01=0x0008}
0xce30…ce44 Head {h00=0x0010, h01=0x0050, text=»RELB90 EQU *«, t00=0x0084, t01=0x001a}
0xce44…ce56 Head {h00=0x000e, h01=0x0050, text=» STR A8,A7«, t00=0x0084, t01=0x002e}
0xce56…ce66 Head {h00=0x000c, h01=0x0050, text=» CMR A8 «, t00=0x0084, t01=0x0040}
0xce66…ce76 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0084, t01=0x0050}
0xce76…ce7e Head {h00=0x0004, h01=0x0050, t00=0x0084, t01=0x0060}
0xce7e…ce8a Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0084, t01=0x0068}
0xce8a…ce8e Head {h00=0x4004, h01=0x0000}
0xce8e…ce90 00 84 ┆ ┆
0xce90…ce92 00 74 ┆ t┆
0xce92…ce9a (133, 1, 8) 20 04 00 00 00 85 00 04 ┆ ┆
0xce9a…ceea (134, 0, 400) 85 4a 00 0e 84 14 82 02 03 02 9b 8e 90 a0 00 02 15 02 e8 c0 01 28 50 36 d1 22 87 34 58 12 93 9c 13 02 14 02 12 02 87 31 d4 a2 94 98 d4 a9 d4 c4 ff f8 d7 52 00 08 11 06 1f 01 5a 30 82 c1 01 2e d2 a4 92 98 d2 a5 82 c0 01 2e 11 04 5f 16 83 6b ┆ J (P6 " 4X 1 R Z0 . . _ k┆
0xceea…cf3a 00 0e d3 6b 00 00 82 0e 3a 41 12 02 82 4b 00 10 85 4a 00 02 d3 34 15 02 1b 02 50 14 82 c1 01 2e d2 b4 92 98 d2 b5 82 c0 01 2e 15 06 1b 06 5f 16 96 4b 00 00 96 4b 00 02 92 a0 00 18 81 20 95 82 91 40 01 80 8f 04 82 40 01 52 aa 40 01 3a 85 08 ┆ k :A K J 4 P . . _ K K @ @ R @ : ┆
0xcf3a…cf8a 95 40 01 44 87 08 81 20 96 8e 91 40 01 80 83 40 01 46 84 40 01 3e 94 41 01 80 8f 20 01 62 80 80 15 02 f0 95 81 40 01 72 83 40 01 70 87 00 17 0a 82 41 01 72 8f 20 01 62 82 a0 00 da a0 41 01 82 81 20 43 52 f6 97 a2 fc 54 1a 82 40 01 36 82 41 ┆ @ D @ @ F @ > A b @ r @ p A r b A CR T @ 6 A┆
0xcf8a…cfda 01 88 82 40 01 38 82 41 01 8a 82 20 9f c4 92 40 01 80 8f 08 81 41 01 3c 84 04 82 44 00 0e d1 a8 81 c5 00 0e 85 06 9d 4a 00 12 95 40 01 26 86 14 a6 20 f0 00 3e 6b 96 20 00 6c 96 16 86 38 86 41 01 86 a5 20 0f ff 85 41 01 84 83 06 81 98 83 c0 ┆ @ 8 A @ A < D J @ & >k l 8 A A ┆
0xcfda…d02a 01 36 f6 97 a2 02 51 16 52 0c 81 94 83 c0 01 38 f6 97 a2 02 56 08 81 20 01 00 f6 97 a0 82 81 8c 83 08 a3 20 f0 00 3b 6b 93 20 00 8c 93 16 83 2c a3 20 fc 00 eb 40 01 36 00 20 00 01 08 00 01 08 01 4a 4a aa 14 55 12 aa 90 02 00 88 a1 42 00 10 ┆ 6 Q R 8 V ;k , @ 6 JJ U B ┆
0xd02a…d07a (135, 0, 400) 54 10 83 08 a3 20 0f ff a0 41 01 2c eb 40 01 38 50 28 83 08 a3 20 0f ff 9b 20 08 00 55 10 83 08 a2 20 f0 00 92 20 10 00 ea 06 55 02 82 0c 83 06 9b 08 90 41 01 2c 83 4b 00 16 84 20 00 6c 94 16 84 41 01 96 84 20 00 8c 94 16 84 41 01 94 83 06 ┆T A , @ 8P( U U A , K l A A ┆
0xd07a…d0ca 81 4a 00 12 82 40 01 26 84 08 9b 04 9c 04 84 41 01 40 f6 97 a0 ae 83 06 1b 0a 81 0c 39 6b 21 1e 82 20 00 8a 92 16 91 08 84 20 fc 00 e9 08 50 06 84 25 19 02 5f 0a 84 40 01 94 85 40 01 96 84 41 01 96 85 41 01 94 a3 20 ff fe 83 41 01 8a 83 20 ┆ J @ & A @ 9k! P % _ @ @ A A A ┆
0xd0ca…d11a 00 8c 93 16 f6 97 a2 26 81 c1 01 90 81 41 01 88 83 4a 00 10 85 0c f6 97 9b c6 b8 60 01 96 d5 29 82 4b 00 06 12 02 81 40 01 3c 81 c4 00 0e d2 47 00 00 83 14 f6 97 9b c6 b8 60 01 96 83 06 13 20 d5 29 12 02 d2 2d 85 4a 00 02 b8 60 01 94 d3 34 ┆ & A J ` ) K @ < G ` ) - J ` 4┆
0xd11a…d16a 85 0c f6 97 9b c6 82 4b 00 08 b8 60 01 96 d5 29 12 02 d2 47 00 02 b8 60 01 94 80 ca 00 00 d3 22 93 02 83 41 01 28 a0 41 01 4e 90 a0 00 02 e8 c0 01 28 50 30 f6 97 9e 8a d7 52 00 0e f6 97 9e 30 50 0a f6 97 9e 96 f6 97 9e 38 5f 0c 90 41 01 4e ┆ K ` ) G ` " A ( A N (P0 R 0P 8_ A N┆
0xd16a…d1ba d7 52 00 10 f6 97 9e 30 58 34 f6 97 9e 96 f6 97 9e 38 5f 0c 81 4a 00 0c 50 4a 03 02 f6 97 9b c6 80 88 f6 97 a2 4c a0 49 00 06 f6 97 a4 1c 82 06 83 48 00 02 80 c9 ff f8 05 00 00 20 42 10 a0 00 0a a2 15 0a 08 14 02 22 08 28 91 29 12 81 22 00 ┆ R 0X4 8_ J PJ L I H B " ( ) " ┆
0xd1ba…d20a (136, 0, 400) a0 49 ff fc 98 a0 ff f4 80 c9 00 24 81 40 01 3c 81 44 00 0e b8 60 01 96 d3 45 00 2c d1 44 00 06 b8 48 ff d8 d1 43 ff f4 b8 60 01 94 80 ca 00 00 81 4a 00 0e 91 6a 00 0e 81 41 01 58 a0 41 01 4e 90 a0 00 02 e8 c0 01 28 50 6e f6 97 a2 42 f6 97 ┆ I $ @ < D ` E , D H C ` J j A X A N (Pn B ┆
0xd20a…d25a a4 1c 81 40 01 58 11 02 81 41 01 58 82 25 f6 97 9e 8a 84 c7 00 00 d1 52 00 08 11 02 a1 20 ff fe 11 16 83 04 93 12 d3 2c 02 04 f6 97 a2 12 13 02 93 04 81 12 f6 97 9b c6 d1 22 d2 45 ff f8 d7 52 00 0e f6 97 9f 7a 90 41 01 4e d7 52 00 10 f6 97 ┆ @ X A X % R , " E R z A N R ┆
0xd25a…d2aa 9f 7a d7 52 00 0c 50 04 f6 97 99 7a d7 52 00 0a 58 76 f6 97 99 7a 5f 7c 57 1e f6 97 9e 30 54 02 f0 3a f6 97 9b f2 f6 97 9c 3c a0 41 01 4a f6 97 9c 64 f6 97 9e 38 5f 1a 90 41 01 4c 80 ca 00 00 90 a0 00 02 e8 c0 01 28 50 80 f6 97 a2 42 84 c8 ┆ z R P z R Xv z_|W 0T : < A J d 8_ A L (P B ┆
0xd2aa…d2fa 00 00 b8 48 ff d8 83 20 00 8c 93 16 b8 2d b8 56 00 6c f6 97 a2 26 83 49 00 00 f6 97 9c e2 d1 22 d3 52 00 04 02 14 f6 97 a2 12 d3 45 ff f6 82 04 92 20 ff f2 d4 52 00 06 94 04 9a 10 93 08 d2 52 00 00 54 06 9a 0c 92 20 ff f2 d2 45 ff fa d2 44 ┆ H - V l & I " R E R R T E D┆
0xd2fa…d34a 00 02 d2 45 ff f2 82 40 01 3c 82 48 00 0e b8 60 01 96 d2 48 00 06 b8 60 01 94 d2 45 ff f4 f6 97 9d 10 f6 97 9d 86 d2 23 5f 8a 90 41 01 2a 81 40 01 26 82 04 a1 20 f0 00 01 10 04 05 12 a4 80 02 10 28 84 22 2a a4 12 00 22 08 00 00 08 88 a2 80 ┆ E @ < H ` H ` E #_ A * @ & ( "* " ┆
0xd34a…d39a (137, 0, 400) 39 6b 91 20 00 6c 91 16 81 24 81 41 01 86 a2 20 0f ff 82 41 01 84 82 4a 00 06 b8 60 01 96 d1 28 b8 60 01 94 92 04 82 41 01 28 81 4a 00 00 d3 24 9a 0c 82 4b 00 00 f6 97 a0 ae 85 4a 00 0e 80 ca 00 00 87 4a 00 06 17 02 80 c1 01 56 80 c0 01 56 ┆9k l $ A A J ` ( ` A ( J $ K J J V V┆
0xd39a…d3ea 90 a0 00 02 e8 c0 01 28 50 aa 80 c1 01 56 15 02 81 14 91 6a 00 0e 81 24 b8 24 81 41 01 94 f6 97 a2 42 90 31 83 49 00 24 81 0c 91 20 ff f4 81 49 ff f8 81 48 00 00 82 20 00 8c 92 16 b8 29 1a 02 84 a0 fc 00 19 02 e9 08 50 04 84 a5 5f 0a d1 22 ┆ (P V j $ $ A B 1 I $ I H ) P _ "┆
0xd3ea…d43a d1 3d d4 c4 ff f8 d1 44 ff fc 17 02 86 34 1e 01 51 06 f6 97 9e 48 5f 6c 11 01 f6 97 a2 4c 90 31 f6 97 a4 1c f6 97 9d 86 d2 3d 82 47 00 24 80 88 90 a0 ff f4 80 c7 ff f8 80 9c 17 02 f6 97 9c e2 81 40 01 96 81 41 01 94 b8 24 f6 97 9d 10 81 40 ┆ = D 4 Q H_l L 1 = G $ @ A $ @┆
0xd43a…d48a 01 90 a0 45 ff fc d3 22 d1 4c ff fc 11 01 d1 4d ff fc 5f 56 81 e0 00 b4 91 c0 00 b4 99 a0 00 02 e9 c0 00 b4 50 2a 85 26 a5 20 ff fe ed 26 58 14 85 27 84 d4 00 24 82 40 01 3c 82 48 00 0e b8 54 ff d8 d4 d2 ff f8 d2 48 00 04 f6 97 a3 de 5f 34 ┆ E " L M _V P* & &X ' $ @ < H T H _4┆
0xd48a…d4da 92 a0 00 18 a0 41 01 4c a0 41 01 2a 81 40 01 2c 54 32 81 40 01 88 81 41 01 36 81 40 01 8a a1 20 0f ff 81 41 01 38 81 40 01 8a a1 20 0f ff 82 40 01 88 3a 42 a9 08 81 41 02 22 48 08 05 12 02 80 00 00 00 22 50 01 52 80 14 40 08 02 15 2a 28 80 ┆ A L A * @ ,T2 @ A 6 @ A 8 @ @ :B A "H "P R @ *( ┆
0xd4da…d52a (138, 0, 400) 00 ae 81 40 01 88 39 6e 81 41 00 ac 81 20 96 b0 91 40 01 80 8f 04 82 40 01 2c 50 20 82 4a 00 16 9a 0c 56 14 82 40 01 38 82 41 01 8a 82 40 01 36 82 41 01 88 a0 41 01 2c 82 4b 00 16 f6 97 a1 2c f0 3a 84 40 01 22 3c 42 14 06 84 41 01 54 83 c0 ┆ @ 9n A @ @ ,P J V @ 8 A @ 6 A A , K , : @ "<B A T ┆
0xd52a…d57a 01 2a 50 04 b8 60 01 96 d3 a2 93 90 83 c1 01 50 d3 ae b8 60 01 94 f0 3a 81 0e 91 20 ff fc d3 24 f6 97 9b c6 9a 20 ff fc 84 40 01 2a 50 04 b8 60 01 96 d2 61 01 50 b8 60 01 94 f0 3a 81 40 01 50 19 02 d1 24 91 20 ff fe 91 40 01 40 d3 24 f6 97 ┆ *P ` P ` : $ @ *P ` a P ` : @ P $ @ @ $ ┆
0xd57a…d5ca 9b c6 83 40 01 50 9a 20 ff fe 99 20 ff fe d2 4d ff fe f0 3a 82 c1 01 34 86 41 01 30 06 00 84 40 01 22 14 01 d2 52 00 08 9a 18 96 12 16 01 1a 01 52 56 d2 d8 00 12 3e e1 52 08 a2 a0 ff 00 e2 8a 57 04 a2 a0 00 ff 3e c1 ec 0a 5c 20 9c 09 d2 d2 ┆ @ P M : 4 A 0 @ " R RV > R W > ┆
0xd5ca…d61a 00 08 94 0a 86 10 1c 01 3c 42 14 06 83 40 01 4a 82 40 01 2a 50 04 b8 60 01 96 d2 a2 94 0a d3 31 b8 60 01 94 84 41 01 50 82 40 01 4c 5c 60 82 c0 01 34 f6 97 9c 3c 5f 6a 86 40 01 30 82 c0 01 34 f0 3a 87 41 01 2e 87 52 00 0a d7 52 00 0a f6 97 ┆ <B @ J @ *P ` 1 ` A P @ L ` 4 <_j @ 0 4 : A . R R ┆
0xd61a…d66a 9e 30 50 16 f6 97 9b f2 f6 97 9c 18 82 41 01 4a f6 97 9c 64 f6 97 9e 38 5f 18 87 40 01 2e f0 3a d1 22 d3 44 ff f6 50 48 d3 d2 00 06 91 0e 83 84 9b 04 9b 0d 1b 14 83 41 a5 48 15 51 22 91 20 44 a9 04 a0 14 80 00 00 01 48 54 a5 20 95 52 00 00 ┆ 0P A J d 8_ @ . : " D PH A H Q" D HT R ┆
0xd66a…d6ba (139, 0, 400) 01 2e 19 14 e9 40 01 2e 50 2e d3 44 00 02 58 0e d2 44 00 04 50 14 03 14 f6 97 a2 12 82 0e 9a 0c d4 48 00 12 d4 45 00 12 5f 28 13 02 f6 97 9b c6 12 02 d2 45 00 12 5f 36 d1 22 d3 44 ff f2 54 02 03 80 d3 45 00 02 f6 97 9b c6 d2 45 ff fe d3 44 ┆ . @ .P. D X D P H E _( E _6 " D T E E D┆
0xd6ba…d70a 00 02 92 0c 1a 02 d2 45 00 02 d2 25 f0 3a 82 c1 01 34 d1 22 d3 52 00 08 3b 42 d2 c4 ff fa 9b 0a 13 04 91 0a 82 c0 01 34 f6 97 9b c6 d4 22 d2 d0 ff fa 9a 0a 99 0a d3 52 00 00 50 3c 84 08 82 c0 01 2a 50 02 9c 04 93 08 b8 60 01 96 d2 cc 00 08 ┆ E % : 4 " R ;B 4 " R P< *P ` ┆
0xd70a…d75a 92 90 d2 cd 00 08 d2 cc 00 0a 92 90 d2 cd 00 0a d2 cc 00 40 92 90 d2 cd 00 40 d2 cc 00 42 92 90 d2 cd 00 42 b8 60 01 94 82 c0 01 34 f0 3a 81 20 80 00 82 40 01 22 50 06 39 61 1a 01 5f 08 d2 22 d3 28 ab 04 d3 29 d2 38 d3 28 ab 04 d3 29 f0 3a ┆ @ @ B B ` 4 : @ "P 9a _ " ( ) 8 ( ) :┆
0xd75a…d7aa d1 22 d1 24 82 40 01 22 50 06 39 41 1a 01 5f 08 11 00 f6 d7 00 40 f0 3a a0 41 01 22 87 1c 57 06 90 41 01 22 3f 41 50 02 5e 0a f6 d7 00 40 f0 3a 80 9c 86 34 50 3a 98 a0 00 02 d1 22 d1 44 ff fc f6 97 a2 4c 83 08 93 20 ff d8 b8 2c 84 48 00 02 ┆ " $ @ "P 9A _ @ : A " W A "?AP ^ @ : 4P: " D L , H ┆
0xd7aa…d7fa 83 48 00 24 d4 4d ff fc d3 6a 00 06 9b 0d 93 02 d4 2d a0 49 00 06 19 01 98 a0 00 02 1e 01 59 30 f0 3a d4 a2 d4 d2 ff f8 94 c0 01 40 f0 3a f6 97 9e 18 52 16 f6 97 9b f2 90 04 01 00 08 00 80 14 00 84 00 00 14 20 00 10 04 40 00 40 00 00 04 90 ┆ H $ M j - I Y0 : @ : R @ @ ┆
0xd7fa…d84a (140, 0, 400) 83 c1 01 32 a0 41 01 42 86 02 16 02 ee 40 01 28 54 02 f0 3a d3 b8 d2 4e ff f8 92 40 01 40 82 41 01 5a d2 48 00 08 ea 40 01 22 5d 22 93 c0 01 54 d3 ae eb c0 01 32 5c 2e 81 c0 01 42 54 22 f6 97 9c 3c 82 41 01 48 f6 97 9c 18 90 41 01 42 84 40 ┆ 2 A B @ (T : N @ @ A Z H @ "]" T 2 . BT" < A H A B @┆
0xd84a…d89a 01 4e 50 04 f6 97 9f 20 82 41 01 4a f6 97 9c 64 f6 97 9f ae f6 97 9d f6 83 82 84 c1 01 2e 80 98 84 c0 01 5a f6 97 9c 64 80 8e 84 c0 01 2e 5f 76 83 4a 00 02 d4 2c 1c 06 56 06 01 20 f6 97 a0 82 d1 cc 00 02 eb 86 50 04 13 06 5f 16 d4 4e ff fc ┆ NP A J d . Z d ._v J , V P _ N ┆
0xd89a…d8ea d5 4c 00 06 25 ff 9b 4a 00 02 93 4a 00 08 81 8c b8 60 01 96 d5 47 00 04 d4 47 00 06 b8 60 01 94 1d 01 55 08 f6 97 9c 18 1d 01 5c 08 b8 60 01 96 d2 47 00 02 b8 60 01 94 f0 3a f6 97 9e 30 50 10 f6 97 9b f2 f6 97 9e 18 56 08 f6 97 9e 38 5c 10 ┆ L % J J ` G G ` U ` G ` : 0P V 8 ┆
0xd8ea…d93a f0 3a f6 97 9c 3c f6 97 9c 18 84 40 01 4e 50 04 f6 97 9f 20 82 41 01 4a f6 97 9c 64 5f 24 d1 38 91 40 01 54 82 40 01 4a d2 25 19 02 82 40 01 48 d2 25 f0 3a 81 20 a4 32 91 40 01 80 8f 04 57 4e 85 80 9d a0 00 04 03 42 93 16 83 57 00 40 86 a0 ┆ : < @ NP A J d_$ 8 @ T @ J % @ H % : 2 @ WN B W @ ┆
0xd93a…d98a 00 3e 96 96 f0 22 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 42 82 3b 82 5a 00 02 82 5b 51 02 89 24 aa 95 52 52 01 00 00 41 11 12 52 2a 54 51 14 00 00 00 00 00 ┆ > " B ; Z [Q $ RR A R*TQ ┆