|
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: 55774 (0xd9de)
Notes: pts_type(SC)
Names: »PAD.SC«
└─⟦7a1dcd5a9⟧ Bits:30009673 Philips computer tape "600134"
└─⟦this⟧ »PT3272/PAD.SC«
└─⟦928b1fd3e⟧ Bits:30009671 Philips computer tape "600131"
└─⟦this⟧ »PT3272/PAD.SC«
IDENT PAD REL 11.0 DK 82-09-28 870150541100 =9, CORRECTION IN PTORD #8 CALL TO COPP 82-05-27 =7,ERROR IN SF =6,2ND ERROR IN EUA =5 ERROR IN ERASE UNPROT TO ADDR 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 ANKL A10,/FFFF-PTORD =9 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 CF A14,LINWRP CHECK WRAP =7 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 LDR A1,A7 RESTORE ADDR. =6 CWK A1,LBVDU INVALID ADDRESS? RF(NL) EUA800 YES LDR A2,A1 SAVE A1 =6 LDR A1,A4 =6 CF A14,ATMASB SEARCH ATTR. BACKWARDS =6 LDR A1,A2 RESTORE A1 =6 STR A8,A14 SAVE DCBF-POINTER =5 SUKL A14,2 ADJUST STACK POINTER =5 CF A14,ERASUA ERASE UNPRO. TO ADDRESS ADKL A14,2 ADJUST STACK POINTER =5 LDR* A8,A14 RESTORE DCBF-POINTER =5 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 ANKL A10,/FFFF-PTORD =9 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 CF A14,COPP PRINT #8 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-09-28 870150541100«, t00=0x0000, t01=0x0004}
0x0034…003c Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0038}
0x003c…005e Head {h00=0x001e, h01=0x0050, text=» =9, CORRECTION IN PTORD«, t00=0x0000, t01=0x0040}
0x005e…0078 Head {h00=0x0016, h01=0x0050, text=» #8 CALL TO COPP«, t00=0x0000, t01=0x0062}
0x0078…008c Head {h00=0x0010, h01=0x0050, text=» 82-05-27 «, t00=0x0000, t01=0x007c}
0x008c…00a6 Head {h00=0x0016, h01=0x0050, text=» =7,ERROR IN SF «, t00=0x0000, t01=0x0090}
0x00a6…00c4 Head {h00=0x001a, h01=0x0050, text=» =6,2ND ERROR IN EUA«, t00=0x0000, t01=0x00aa}
0x00c4…00f0 Head {h00=0x0028, h01=0x0050, text=» =5 ERROR IN ERASE UNPROT TO ADDR«, t00=0x0000, t01=0x00c8}
0x00f0…011a Head {h00=0x0026, h01=0x0050, text=» DK1, ATTRIBUTE ERROR + 2X PRINT«, t00=0x0000, t01=0x00f4}
0x011a…0138 Head {h00=0x001a, h01=0x0050, text=» =4 COPY TO PRINTER «, t00=0x0000, t01=0x011e}
0x0138…014c Head {h00=0x0010, h01=0x0050, text=» 81-05-06 «, t00=0x0000, t01=0x013c}
0x014c…0168 Head {h00=0x0018, h01=0x0050, text=» =3, MISSING ITEM «, t00=0x0000, t01=0x0150}
0x0168…017c Head {h00=0x0010, h01=0x0050, text=» 81-01-26 «, t00=0x0000, t01=0x016c}
0x017c…0194 Head {h00=0x0014, h01=0x0050, text=» =2, SAVE REG.«, t00=0x0000, t01=0x0180}
0x0194…01a8 Head {h00=0x0010, h01=0x0050, text=» 81-01-26 «, t00=0x0001, t01=0x0008}
0x01a8…01c8 Head {h00=0x001c, h01=0x0050, text=» =1, RA ON EUQ ADDRESS«, t00=0x0001, t01=0x001c}
0x01c8…01dc Head {h00=0x0010, h01=0x0050, text=» 81-01-26 «, t00=0x0001, t01=0x003c}
0x01dc…0222 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0001, t01=0x0050}
0x0222…0268 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0001, t01=0x0096}
0x0268…02ae Head {h00=0x0042, h01=0x0050, text=»* MODULE PAD * «, t00=0x0001, t01=0x00dc}
0x02ae…02f4 Head {h00=0x0042, h01=0x0050, text=»* MODULE HANDLING THE PACKING AND * «, t00=0x0001, t01=0x0122}
0x02f4…033a Head {h00=0x0042, h01=0x0050, text=»* UNPACKING OF THE DCBUFFER. THE VDU * «, t00=0x0001, t01=0x0168}
0x033a…0380 Head {h00=0x0042, h01=0x0050, text=»* BUFFER IS UPDATED * «, t00=0x0002, t01=0x001e}
0x0380…03c6 Head {h00=0x0042, h01=0x0050, text=»* (EMULATION 3270 SNA/SDLC, BSC) * «, t00=0x0002, t01=0x0064}
0x03c6…040c Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0002, t01=0x00aa}
0x040c…0452 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0002, t01=0x00f0}
0x0452…0460 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0136}
0x0460…04aa Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0002, t01=0x0144}
0x04aa…04b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x018e}
0x04b4…04ce Head {h00=0x0016, h01=0x0050, text=»* LIST OF ROUTINES«, t00=0x0003, t01=0x0008}
0x04ce…04d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0022}
0x04d8…051c Head {h00=0x0040, h01=0x0050, text=»* PACK PACK MODIFIED VDU-FIELDS INTO DC-BUFFER «, t00=0x0003, t01=0x002c}
0x051c…0558 Head {h00=0x0038, h01=0x0050, text=»* UNPACK UNPACK DC-BUFFER AND UPDATE VDU «, t00=0x0003, t01=0x0070}
0x0558…0584 Head {h00=0x0028, h01=0x0050, text=»* RETTAB RETURN ADDRESSES«, t00=0x0003, t01=0x00ac}
0x0584…05b0 Head {h00=0x0028, h01=0x0050, text=»* UNPCOM UNPACK COMMANDS «, t00=0x0003, t01=0x00d8}
0x05b0…05da Head {h00=0x0026, h01=0x0050, text=»* UNPORD UNPACK ORDERS «, t00=0x0003, t01=0x0104}
0x05da…0602 Head {h00=0x0024, h01=0x0050, text=»* ORDTAB ORDER TABLE «, t00=0x0003, t01=0x012e}
0x0602…062a Head {h00=0x0024, h01=0x0050, text=»* SF START FIELD «, t00=0x0003, t01=0x0156}
0x062a…0658 Head {h00=0x002a, h01=0x0050, text=»* SBA SET BUFFER ADDRESS«, t00=0x0003, t01=0x017e}
0x0658…0682 Head {h00=0x0026, h01=0x0050, text=»* IC INSERT CURSOR «, t00=0x0004, t01=0x001c}
0x0682…06aa Head {h00=0x0024, h01=0x0050, text=»* PT PROGRAM TAB.«, t00=0x0004, t01=0x0046}
0x06aa…06d8 Head {h00=0x002a, h01=0x0050, text=»* RA REPEAT TO ADDRESS «, t00=0x0004, t01=0x006e}
0x06d8…070c Head {h00=0x0030, h01=0x0050, text=»* EUA ERASE UNPRO. TO ADDRESS «, t00=0x0004, t01=0x009c}
0x070c…0738 Head {h00=0x0028, h01=0x0050, text=»* CHAR < /20 BUT NOT ORDERS«, t00=0x0004, t01=0x00d0}
0x0738…0772 Head {h00=0x0036, h01=0x0050, text=»* PACKSY PACK DC-BUFFER IN SYSTEM MODE «, t00=0x0004, t01=0x00fc}
0x0772…07ae Head {h00=0x0038, h01=0x0050, text=»* UNPSYS UNPACK DC-BUFFER IN SYSTEM MODE «, t00=0x0004, t01=0x0136}
0x07ae…07e4 Head {h00=0x0032, h01=0x0050, text=»* GETNXT GET AND CHECK NEXT BUFFER «, t00=0x0004, t01=0x0172}
0x07e4…0820 Head {h00=0x0038, h01=0x0050, text=»* PUTCHA PUT CHAR. IN DC-BUFFER AND WRITE«, t00=0x0005, t01=0x0018}
0x0820…0850 Head {h00=0x002c, h01=0x0050, text=»* PDCCH PUT CHAR. IN BUFFER «, t00=0x0005, t01=0x0054}
0x0850…0880 Head {h00=0x002c, h01=0x0050, text=»* GDCCH GET CHAR. IN BUFFER «, t00=0x0005, t01=0x0084}
0x0880…08b0 Head {h00=0x002c, h01=0x0050, text=»* PAID STORE AID IN BUFFER «, t00=0x0005, t01=0x00b4}
0x08b0…08ee Head {h00=0x003a, h01=0x0050, text=»* BUFADR STORE BUFFER ADDRESS IN DC-BUFFER «, t00=0x0005, t01=0x00e4}
0x08ee…092a Head {h00=0x0038, h01=0x0050, text=»* RESMDT RESET ALL MDT-BITS IN ATTRIBUTES«, t00=0x0005, t01=0x0122}
0x092a…0960 Head {h00=0x0032, h01=0x0050, text=»* P1WCC PROCESS WCC BEFORE UPDATE «, t00=0x0005, t01=0x015e}
0x0960…099a (6, 0, 400) Head {h00=0x0036, h01=0x0050, text=»* P2WCC TAKE CARE OF WCC AFTER UPDATE «, t00=0x0006, t01=0x0004}
0x099a…09d6 Head {h00=0x0038, h01=0x0050, text=»* SAVE SAVE PACK AND UNPACK INFORMATION«, t00=0x0006, t01=0x003e}
0x09d6…0a16 Head {h00=0x003c, h01=0x0050, text=»* RESTOR RESTORE PACK AND UNPACK INFORMATION «, t00=0x0006, t01=0x007a}
0x0a16…0a3e Head {h00=0x0024, h01=0x0050, text=»* BUFFER BUFFER POOL «, t00=0x0006, t01=0x00ba}
0x0a3e…0a64 Head {h00=0x0022, h01=0x0050, text=»* GETBUF GET BUFFER«, t00=0x0006, t01=0x00e2}
0x0a64…0a8e Head {h00=0x0026, h01=0x0050, text=»* RELBUF RELEASE BUFFER«, t00=0x0006, t01=0x0108}
0x0a8e…0a98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0132}
0x0a98…0ae2 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0006, t01=0x013c}
0x0ae2…0af0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0186}
0x0af0…0b36 (7, 0, 400) Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0007, t01=0x0004}
0x0b36…0b7c Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0007, t01=0x004a}
0x0b7c…0bc2 Head {h00=0x0042, h01=0x0050, text=»* ENTRY POINTS * «, t00=0x0007, t01=0x0090}
0x0bc2…0c08 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0007, t01=0x00d6}
0x0c08…0c4e Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0007, t01=0x011c}
0x0c4e…0c56 Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x0162}
0x0c56…0c8a Head {h00=0x0030, h01=0x0050, text=» ENTRY PACK PACK MOD. FIELDS INTO DC BUFFER «, t00=0x0007, t01=0x016a}
0x0c8a…0cc0 Head {h00=0x0032, h01=0x0050, text=» ENTRY UNPACK UNPACK DC BUFFER AND UPDATE VDU «, t00=0x0008, t01=0x000e}
0x0cc0…0cf6 Head {h00=0x0032, h01=0x0050, text=» ENTRY UNPSYS UNPACK DC BUFFER IN SYSTEM MODE «, t00=0x0008, t01=0x0044}
0x0cf6…0d1a Head {h00=0x0020, h01=0x0050, text=» ENTRY GETBUF GET DC BUFFER «, t00=0x0008, t01=0x007a}
0x0d1a…0d42 Head {h00=0x0024, h01=0x0050, text=» ENTRY RELBUF RELEASE DC BUFFER «, t00=0x0008, t01=0x009e}
0x0d42…0d72 Head {h00=0x002c, h01=0x0050, text=» ENTRY PAID STORE AID CODE IN DC BUFFER «, t00=0x0008, t01=0x00c6}
0x0d72…0da8 Head {h00=0x0032, h01=0x0050, text=» ENTRY BUFADR SORE BUFFER ADDRESS IN DC BUFFER«, t00=0x0008, t01=0x00f6}
0x0da8…0ddc Head {h00=0x0030, h01=0x0050, text=» ENTRY PACKSY PACK DC BUFFER IN SYSTEM MODE «, t00=0x0008, t01=0x012c}
0x0ddc…0e00 Head {h00=0x0020, h01=0x0050, text=» ENTRY SAVE1 SAVE REGISTERS «, t00=0x0008, t01=0x0160}
0x0e00…0e26 Head {h00=0x0022, h01=0x0050, text=» ENTRY REST1 RESTORE REGISTERS«, t00=0x0008, t01=0x0184}
0x0e26…0e2e Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x001a}
0x0e2e…0e3c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0022}
0x0e3c…0e78 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0009, t01=0x0030}
0x0e78…0eb4 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x0009, t01=0x006c}
0x0eb4…0ef0 Head {h00=0x0038, h01=0x0050, text=»* EXTERNAL REFERENCES * «, t00=0x0009, t01=0x00a8}
0x0ef0…0f2c Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x0009, t01=0x00e4}
0x0f2c…0f68 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0009, t01=0x0120}
0x0f68…0f70 Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x015c}
0x0f70…0fa4 Head {h00=0x0030, h01=0x0050, text=» EXTRN CONEBC CONVERT ASCII-EBCDIC (CONVER)«, t00=0x0009, t01=0x0164}
0x0fa4…0fd8 Head {h00=0x0030, h01=0x0050, text=» EXTRN CONASC CONVERT EBCDIC-ASCII (CONVER)«, t00=0x000a, t01=0x0008}
0x0fd8…1006 Head {h00=0x002a, h01=0x0050, text=» EXTRN ERASE ERASE ENTIRE SCREEN (VDU)«, t00=0x000a, t01=0x003c}
0x1006…103e Head {h00=0x0034, h01=0x0050, text=» EXTRN ERASUA ERASE UNPROTECTED TO ADDRESS (VDU)«, t00=0x000a, t01=0x006a}
0x103e…1074 Head {h00=0x0032, h01=0x0050, text=» EXTRN CONORD CONVERT ORDER TO INDEX (CONVER)«, t00=0x000a, t01=0x00a2}
0x1074…10a6 Head {h00=0x002e, h01=0x0050, text=» EXTRN CONATT CONVERT ATTRIBUTE (CONVER) «, t00=0x000a, t01=0x00d8}
0x10a6…10d8 Head {h00=0x002e, h01=0x0050, text=» EXTRN SCRINF GET SCREEN INFORMATION (VDU)«, t00=0x000a, t01=0x010a}
0x10d8…1114 Head {h00=0x0038, h01=0x0050, text=» EXTRN ERASUP ERASE UNPROTECTED ENTIRE SCREEN (VDU) «, t00=0x000a, t01=0x013c}
0x1114…113e Head {h00=0x0026, h01=0x0050, text=» EXTRN COPY LOCAL HARDCOPY (KEYB) «, t00=0x000a, t01=0x0178}
0x113e…116c Head {h00=0x002a, h01=0x0050, text=» EXTRN SOUND SOUND ALARM ON VDU (VDU) «, t00=0x000b, t01=0x0012}
0x116c…11a2 Head {h00=0x0032, h01=0x0050, text=» EXTRN ATMASB SEARCH ATTRIBUTE BACKWARDS (VDU)«, t00=0x000b, t01=0x0040}
0x11a2…11d8 Head {h00=0x0032, h01=0x0050, text=» EXTRN CONADR CONVERT BUFFER ADDRESS (CONVER)«, t00=0x000b, t01=0x0076}
0x11d8…1206 Head {h00=0x002a, h01=0x0050, text=» EXTRN WRAP CHECK IF WRAP AROUND (VDU)«, t00=0x000b, t01=0x00ac}
0x1206…123a Head {h00=0x0030, h01=0x0050, text=» EXTRN STOINF SAVE SCREEN INFORMATION (VDU) «, t00=0x000b, t01=0x00da}
0x123a…1266 Head {h00=0x0028, h01=0x0050, text=» EXTRN LMP4ON INHIBIT LAMP ON (KEYB)«, t00=0x000b, t01=0x010e}
0x1266…129c Head {h00=0x0032, h01=0x0050, text=» EXTRN READNW READ WITH NO WAIT (DCSNA,DCBSC) «, t00=0x000b, t01=0x013a}
0x129c…12ca Head {h00=0x002a, h01=0x0050, text=» EXTRN WAIT SYNCHRONIZE (DCSNA,DCBSC) «, t00=0x000b, t01=0x0170}
0x12ca…12fe Head {h00=0x0030, h01=0x0050, text=» EXTRN DCWRIT WRITE DC BUFFER (DCSNA,DCBSC) «, t00=0x000c, t01=0x000e}
0x12fe…1332 Head {h00=0x0030, h01=0x0050, text=» EXTRN DISMOD DISPLAY MODIFIED FIELDS (VDU) «, t00=0x000c, t01=0x0042}
0x1332…1364 Head {h00=0x002e, h01=0x0050, text=» EXTRN THRBUF THROW BUFFERS (DCSNA,DCBSC) «, t00=0x000c, t01=0x0076}
0x1364…1390 Head {h00=0x0028, h01=0x0050, text=» EXTRN NLROUT NEW LINE ROUTINE (VDU)«, t00=0x000c, t01=0x00a8}
0x1390…13b6 Head {h00=0x0022, h01=0x0050, text=» EXTRN LINE WRAP ROUTINE (VDU)«, t00=0x000c, t01=0x00d4}
0x13b6…13ec Head {h00=0x0032, h01=0x0050, text=» EXTRN LINATT INTERNAL LINEFLAG ROUTINE (VDU) «, t00=0x000c, t01=0x00fa}
0x13ec…141c Head {h00=0x002c, h01=0x0050, text=» EXTRN LINWRP ANOTHER WRAP ROUTINE (VDU)«, t00=0x000c, t01=0x0130}
0x141c…1446 Head {h00=0x0026, h01=0x0050, text=» EXTRN ERROR ERROR INCATOR (KEYB) «, t00=0x000c, t01=0x0160}
0x1446…147c Head {h00=0x0032, h01=0x0050, text=» EXTRN MATCH MATCH ADDRESS AND TASKID (DSPBSC)«, t00=0x000c, t01=0x018a}
0x147c…14aa Head {h00=0x002a, h01=0x0050, text=» EXTRN ICSET INTERTASK TIMEOUT (KEYB) «, t00=0x000d, t01=0x0030}
0x14aa…14d6 Head {h00=0x0028, h01=0x0050, text=» EXTRN ICWRT INTERTASK WRITE (KEYB) «, t00=0x000d, t01=0x005e}
0x14d6…1506 Head {h00=0x002c, h01=0x0050, text=» EXTRN COPP COPY ON PRINTER DIRECTLY =4 «, t00=0x000d, t01=0x008a}
0x1506…151c Head {h00=0x0012, h01=0x0050, text=» EXTRN LMP3ON «, t00=0x000d, t01=0x00ba}
0x151c…152a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x00d0}
0x152a…1566 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x000d, t01=0x00de}
0x1566…15a2 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x000d, t01=0x011a}
0x15a2…15de Head {h00=0x0038, h01=0x0050, text=»* CONDITIONAL ASSEMBLY PARAMETERS * «, t00=0x000d, t01=0x0156}
0x15de…161a (14, 0, 400) Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x000e, t01=0x0004}
0x161a…1656 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x000e, t01=0x0040}
0x1656…165e Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x007c}
0x165e…1682 Head {h00=0x0020, h01=0x0050, text=»X:A EQU 0 SNA HANDLING IF:=1«, t00=0x000e, t01=0x0084}
0x1682…1694 Head {h00=0x000e, h01=0x0050, text=»SNA EQU 0 «, t00=0x000e, t01=0x00a8}
0x1694…16be Head {h00=0x0026, h01=0x0050, text=»X:K EQU 2 NUMBER OF BUFFERS (1-32)«, t00=0x000e, t01=0x00ba}
0x16be…16d4 Head {h00=0x0012, h01=0x0050, text=»BUFFNR EQU 02 «, t00=0x000e, t01=0x00e4}
0x16d4…1702 Head {h00=0x002a, h01=0x0050, text=»X:L EQU 1000 MAX BUFFER SIZE IN WORDS «, t00=0x000e, t01=0x00fa}
0x1702…1718 Head {h00=0x0012, h01=0x0050, text=»BUFFL EQU 1150«, t00=0x000e, t01=0x0128}
0x1718…1746 Head {h00=0x002a, h01=0x0050, text=»X:M EQU 0 COPY COMMAND INCLUDED IF:=1 «, t00=0x000e, t01=0x013e}
0x1746…175a Head {h00=0x0010, h01=0x0050, text=»COPCMD EQU 1«, t00=0x000e, t01=0x016c}
0x175a…177e Head {h00=0x0020, h01=0x0050, text=»X:N EQU 1 EBCDIC CHAR IF:=1 «, t00=0x000e, t01=0x0180}
0x177e…1792 Head {h00=0x0010, h01=0x0050, text=»EBCDIC EQU 1«, t00=0x000f, t01=0x0014}
0x1792…17c0 Head {h00=0x002a, h01=0x0050, text=»X:Z EQU 1 =0,WHOLE,=1 CHAIN,=2 SEGMENT«, t00=0x000f, t01=0x0028}
0x17c0…17d6 Head {h00=0x0012, h01=0x0050, text=»DISHOW EQU X:Z«, t00=0x000f, t01=0x0056}
0x17d6…17e4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x006c}
0x17e4…182c Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x000f, t01=0x007a}
0x182c…1874 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x000f, t01=0x00c2}
0x1874…189e Head {h00=0x0026, h01=0x0050, text=»* DECLARATION OF DATA AND EQUATES «, t00=0x000f, t01=0x010a}
0x189e…18e6 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x000f, t01=0x0134}
0x18e6…192e Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x000f, t01=0x017c}
0x192e…1936 Head {h00=0x0004, h01=0x0050, t00=0x0010, t01=0x0034}
0x1936…1940 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x003c}
0x1940…1968 Head {h00=0x0024, h01=0x0050, text=»* EQUATES FOR ECB HANDLING«, t00=0x0010, t01=0x0046}
0x1968…1972 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x006e}
0x1972…1994 Head {h00=0x001e, h01=0x0050, text=»ECBBA EQU 2 BUFFER ADDRESS«, t00=0x0010, t01=0x0078}
0x1994…19b8 Head {h00=0x0020, h01=0x0050, text=»ECBRL EQU 4 REQUESTED LENGTH«, t00=0x0010, t01=0x009a}
0x19b8…19dc Head {h00=0x0020, h01=0x0050, text=»ECBEL EQU 6 EFFECTIVE LENGTH«, t00=0x0010, t01=0x00be}
0x19dc…19fc Head {h00=0x001c, h01=0x0050, text=»ECBRC EQU 8 RETURN CODE «, t00=0x0010, t01=0x00e2}
0x19fc…1a1e Head {h00=0x001e, h01=0x0050, text=»ECBCW EQU 10 CONTROL WORD «, t00=0x0010, t01=0x0102}
0x1a1e…1a28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0124}
0x1a28…1a42 Head {h00=0x0016, h01=0x0050, text=»* INTERNAL STATUS «, t00=0x0010, t01=0x012e}
0x1a42…1a4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0148}
0x1a4c…1a7c Head {h00=0x002c, h01=0x0050, text=»LICREC EQU /2000 LAST IN CHAIN RECEIVED «, t00=0x0010, t01=0x0152}
0x1a7c…1aa2 Head {h00=0x0022, h01=0x0050, text=»THROWB EQU /0800 THROW BUFFERS«, t00=0x0010, t01=0x0182}
0x1aa2…1ac4 Head {h00=0x001e, h01=0x0050, text=»NEWCH EQU /0400 NEW CHAIN «, t00=0x0011, t01=0x0018}
0x1ac4…1af0 Head {h00=0x0028, h01=0x0050, text=»ATTREC EQU /0002 ATTRIBUTE RECEIVED «, t00=0x0011, t01=0x003a}
0x1af0…1b1a Head {h00=0x0026, h01=0x0050, text=»PTORD EQU /0001 PT ORDER INDICATOR«, t00=0x0011, t01=0x0066}
0x1b1a…1b2c Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0011, t01=0x0090}
0x1b2c…1b36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00a2}
0x1b36…1b50 Head {h00=0x0016, h01=0x0050, text=»* SNA MODES «, t00=0x0011, t01=0x00ac}
0x1b50…1b5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00c6}
0x1b5a…1b7a Head {h00=0x001c, h01=0x0050, text=»LOCMOD EQU 0 LOCAL MODE «, t00=0x0011, t01=0x00d0}
0x1b7a…1b9a Head {h00=0x001c, h01=0x0050, text=»SYSOP EQU 2 SYSTEM MODE «, t00=0x0011, t01=0x00f0}
0x1b9a…1bba Head {h00=0x001c, h01=0x0050, text=»MYJOB EQU 4 MY JOB MODE «, t00=0x0011, t01=0x0110}
0x1bba…1bc6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x0130}
0x1bc6…1bd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x013c}
0x1bd0…1bf2 Head {h00=0x001e, h01=0x0050, text=»* TASK IDENTIFICATION CODE«, t00=0x0011, t01=0x0146}
0x1bf2…1bfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0168}
0x1bfc…1c20 Head {h00=0x0020, h01=0x0050, text=»VDUCOD EQU 'VV' VDU KB TASK «, t00=0x0011, t01=0x0172}
0x1c20…1c2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0008}
0x1c2a…1c46 Head {h00=0x0018, h01=0x0050, text=»* SPECIAL CHARACTERS«, t00=0x0012, t01=0x0012}
0x1c46…1c50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x002e}
0x1c50…1c6e Head {h00=0x001a, h01=0x0050, text=»NULL EQU 0 NULL CHAR. «, t00=0x0012, t01=0x0038}
0x1c6e…1c8e Head {h00=0x001c, h01=0x0050, text=»SBACH EQU /11 SBA CHAR. «, t00=0x0012, t01=0x0056}
0x1c8e…1cb2 Head {h00=0x0020, h01=0x0050, text=»ESCCHA EQU /1B ESCAPE CHAR. «, t00=0x0012, t01=0x0076}
0x1cb2…1cbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x009a}
0x1cbc…1cd6 Head {h00=0x0016, h01=0x0050, text=»* VDU SCREEN SIZE «, t00=0x0012, t01=0x00a4}
0x1cd6…1ce0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00be}
0x1ce0…1d02 Head {h00=0x001e, h01=0x0050, text=»LBVDU EQU 1920 TOTAL SIZE «, t00=0x0012, t01=0x00c8}
0x1d02…1d22 Head {h00=0x001c, h01=0x0050, text=»LLINE EQU 80 LINE LENGTH«, t00=0x0012, t01=0x00ea}
0x1d22…1d2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x010a}
0x1d2c…1d50 Head {h00=0x0020, h01=0x0050, text=»* BUFFER LINK LENGTH «, t00=0x0012, t01=0x0114}
0x1d50…1d5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0138}
0x1d5a…1d78 Head {h00=0x001a, h01=0x0050, text=»LINK EQU BUFFL+BUFFL+2«, t00=0x0012, t01=0x0142}
0x1d78…1d86 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x0160}
0x1d86…1d90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x016e}
0x1d90…1db0 Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x0012, t01=0x0178}
0x1db0…1dcc Head {h00=0x0018, h01=0x0050, text=»* TERMINAL WORKBLOCK«, t00=0x0013, t01=0x0008}
0x1dcc…1dd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0024}
0x1dd6…1dfe Head {h00=0x0024, h01=0x0050, text=»TCT01 EQU 0 TASK IDENTIFICATION «, t00=0x0013, t01=0x002e}
0x1dfe…1e24 Head {h00=0x0022, h01=0x0050, text=»BVDU EQU TCT01+2 SCREEN BUFFER«, t00=0x0013, t01=0x0056}
0x1e24…1e54 Head {h00=0x002c, h01=0x0050, text=»LINFLG EQU BVDU+1920 INTERNAL LINE FLAGS«, t00=0x0013, t01=0x007c}
0x1e54…1e88 Head {h00=0x0030, h01=0x0050, text=»PCURS EQU LINFLG+24 CURSOR ADDRESS , BINARY «, t00=0x0013, t01=0x00ac}
0x1e88…1ea2 Head {h00=0x0016, h01=0x0050, text=»CURATT EQU PCURS+4«, t00=0x0013, t01=0x00e0}
0x1ea2…1ecc Head {h00=0x0026, h01=0x0050, text=»WCC EQU CURATT+2 WCC/CCC CHARACTER«, t00=0x0013, t01=0x00fa}
0x1ecc…1ef6 Head {h00=0x0026, h01=0x0050, text=»KBINH EQU WCC+2 INHIBIT INDICATOR «, t00=0x0013, t01=0x0124}
0x1ef6…1f24 Head {h00=0x002a, h01=0x0050, text=»DCLENG EQU KBINH+4 LENGTH OF DC BUFFER«, t00=0x0013, t01=0x014e}
0x1f24…1f5a Head {h00=0x0032, h01=0x0050, text=»CURPOS EQU DCLENG+30 CURSOR POS IN SYSTEM MODE«, t00=0x0013, t01=0x017c}
0x1f5a…1f84 Head {h00=0x0026, h01=0x0050, text=»BUFPNT EQU CURPOS+2 BUFFER ADDRESS«, t00=0x0014, t01=0x0022}
0x1f84…1fac Head {h00=0x0024, h01=0x0050, text=»REGI EQU BUFPNT+2 WORK REGISTER «, t00=0x0014, t01=0x004c}
0x1fac…1fd4 Head {h00=0x0024, h01=0x0050, text=»STACK1 EQU REGI+2 INTERNAL STACK«, t00=0x0014, t01=0x0074}
0x1fd4…1ff0 Head {h00=0x0018, h01=0x0050, text=»STACK2 EQU STACK1+14«, t00=0x0014, t01=0x009c}
0x1ff0…2018 Head {h00=0x0024, h01=0x0050, text=»UNPMOD EQU STACK2+14 UNPACK MODE«, t00=0x0014, t01=0x00b8}
0x2018…203c Head {h00=0x0020, h01=0x0050, text=»SNAMOD EQU UNPMOD+2 SNA MODE«, t00=0x0014, t01=0x00e0}
0x203c…2070 Head {h00=0x0030, h01=0x0050, text=»ECBICW EQU SNAMOD+12 ECB INTERTASK WRITE =3 «, t00=0x0014, t01=0x0104}
0x2070…207e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x0138}
0x207e…20c2 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0014, t01=0x0146}
0x20c2…2106 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0014, t01=0x018a}
0x2106…214c Head {h00=0x0042, h01=0x0050, text=»* PACK PACK MODIFIED VDU-FIELDS INTO DC-BUFFER * «, t00=0x0015, t01=0x003e}
0x214c…2192 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0015, t01=0x0084}
0x2192…21d8 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0015, t01=0x00ca}
0x21d8…21ec Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0015, t01=0x0110}
0x21ec…21f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0124}
0x21f6…220a Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0015, t01=0x012e}
0x220a…222e Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x0015, t01=0x0142}
0x222e…224c Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0015, t01=0x0166}
0x224c…226e Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x0015, t01=0x0184}
0x226e…228a Head {h00=0x0018, h01=0x0050, text=»* A6= ATTRIBUTE CHAR«, t00=0x0016, t01=0x0016}
0x228a…22ac Head {h00=0x001e, h01=0x0050, text=»* A8= ADDRESS IN DC-BUFFER«, t00=0x0016, t01=0x0032}
0x22ac…22ca Head {h00=0x001a, h01=0x0050, text=»* A9= DC-BUFFER INDEX «, t00=0x0016, t01=0x0054}
0x22ca…22e6 Head {h00=0x0018, h01=0x0050, text=»* A10= START ADDRESS«, t00=0x0016, t01=0x0072}
0x22e6…22fe Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0016, t01=0x008e}
0x22fe…231c Head {h00=0x001a, h01=0x0050, text=»* A12= BUFFER ADDRESS «, t00=0x0016, t01=0x00a6}
0x231c…2334 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0016, t01=0x00c4}
0x2334…233e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00dc}
0x233e…2382 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0016, t01=0x00e6}
0x2382…2394 Head {h00=0x000e, h01=0x0050, text=»PACK EQU *«, t00=0x0016, t01=0x012a}
0x2394…23c2 Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x0016, t01=0x013c}
0x23c2…23e6 Head {h00=0x0020, h01=0x0050, text=» LDK A4,0 FIRST SCREEN POS. «, t00=0x0016, t01=0x016a}
0x23e6…23fc Head {h00=0x0012, h01=0x0050, text=» LDKL A3,BVDU «, t00=0x0016, t01=0x018e}
0x23fc…2410 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0017, t01=0x0014}
0x2410…2434 Head {h00=0x0020, h01=0x0050, text=» LDR A10,A4 INITIATE ADDRESS«, t00=0x0017, t01=0x0028}
0x2434…2460 Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x0017, t01=0x004c}
0x2460…247a Head {h00=0x0016, h01=0x0050, text=» RF(E) PACK70 YES «, t00=0x0017, t01=0x0078}
0x247a…248e Head {h00=0x0010, h01=0x0050, text=»PACK10 EQU *«, t00=0x0017, t01=0x0092}
0x248e…24aa Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x0017, t01=0x00a6}
0x24aa…24ca Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x0017, t01=0x00c2}
0x24ca…24e4 Head {h00=0x0016, h01=0x0050, text=» RF(NL) PACK15 YES«, t00=0x0017, t01=0x00e2}
0x24e4…24f6 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0017, t01=0x00fc}
0x24f6…2508 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0017, t01=0x010e}
0x2508…251a Head {h00=0x000e, h01=0x0050, text=» RB PACK10«, t00=0x0017, t01=0x0120}
0x251a…252e Head {h00=0x0010, h01=0x0050, text=»PACK15 EQU *«, t00=0x0017, t01=0x0132}
0x252e…2550 Head {h00=0x001e, h01=0x0050, text=» LDR A10,A4 START ADDRESS «, t00=0x0017, t01=0x0146}
0x2550…2562 Head {h00=0x000e, h01=0x0050, text=» RF PACK30«, t00=0x0017, t01=0x0168}
0x2562…2576 Head {h00=0x0010, h01=0x0050, text=»PACK20 EQU *«, t00=0x0017, t01=0x017a}
0x2576…25a0 Head {h00=0x0026, h01=0x0050, text=» CF A14,WRAP CHECK IF WRAP AROUND «, t00=0x0017, t01=0x018e}
0x25a0…25c0 Head {h00=0x001c, h01=0x0050, text=» CWR A10,A4 ALL SCANNED?«, t00=0x0018, t01=0x0028}
0x25c0…25da Head {h00=0x0016, h01=0x0050, text=» RF(E) PACK80 YES «, t00=0x0018, t01=0x0048}
0x25da…25ee Head {h00=0x0010, h01=0x0050, text=»PACK30 EQU *«, t00=0x0018, t01=0x0062}
0x25ee…260a Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x0018, t01=0x0076}
0x260a…261c Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0018, t01=0x0092}
0x261c…262e Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0018, t01=0x00a4}
0x262e…264e Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x0018, t01=0x00b6}
0x264e…2666 Head {h00=0x0014, h01=0x0050, text=» RB(L) PACK20 NO«, t00=0x0018, t01=0x00d6}
0x2666…2688 Head {h00=0x001e, h01=0x0050, text=» ANK A2,1 MODIFIED FIELD? «, t00=0x0018, t01=0x00ee}
0x2688…26a2 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PACK50 YES«, t00=0x0018, t01=0x0110}
0x26a2…26d0 Head {h00=0x002a, h01=0x0050, text=»* POINTER UPDATE REMOVED DK1 «, t00=0x0018, t01=0x012a}
0x26d0…26e2 Head {h00=0x000e, h01=0x0050, text=» RB PACK20«, t00=0x0018, t01=0x0158}
0x26e2…26f6 Head {h00=0x0010, h01=0x0050, text=»PACK50 EQU *«, t00=0x0018, t01=0x016a}
0x26f6…271c Head {h00=0x0022, h01=0x0050, text=» LDK A2,SBACH SBA TO DC-BUFFER«, t00=0x0018, t01=0x017e}
0x271c…2740 Head {h00=0x0020, h01=0x0050, text=» LDKL A1,/8000 INDICATE SBA «, t00=0x0019, t01=0x0014}
0x2740…276a Head {h00=0x0026, h01=0x0050, text=» CF A14,PUTCHA PUT CHAR. IN BUFFER«, t00=0x0019, t01=0x0038}
0x276a…278e Head {h00=0x0020, h01=0x0050, text=» LDR A1,A1 TRANSMISSION OK? «, t00=0x0019, t01=0x0062}
0x278e…27a8 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PACK90 NO «, t00=0x0019, t01=0x0086}
0x27a8…27d6 Head {h00=0x002a, h01=0x0050, text=» LDR A1,A4 BUFFER ADDRESS TO DC-BUFFER«, t00=0x0019, t01=0x00a0}
0x27d6…27ec Head {h00=0x0012, h01=0x0050, text=» CF A14,BUFADR«, t00=0x0019, t01=0x00ce}
0x27ec…2800 Head {h00=0x0010, h01=0x0050, text=»PACK60 EQU *«, t00=0x0019, t01=0x00e4}
0x2800…282a Head {h00=0x0026, h01=0x0050, text=» CF A14,WRAP CHECK IF WRAP AROUND «, t00=0x0019, t01=0x00f8}
0x282a…284a Head {h00=0x001c, h01=0x0050, text=» CWR A10,A4 ALL SCANNED?«, t00=0x0019, t01=0x0122}
0x284a…2864 Head {h00=0x0016, h01=0x0050, text=» RF(E) PACK80 YES «, t00=0x0019, t01=0x0142}
0x2864…2878 Head {h00=0x0010, h01=0x0050, text=»PACK70 EQU *«, t00=0x0019, t01=0x015c}
0x2878…2894 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x0019, t01=0x0170}
0x2894…28b4 Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x0019, t01=0x018c}
0x28b4…28ce Head {h00=0x0016, h01=0x0050, text=» RB(NL) PACK20 YES«, t00=0x001a, t01=0x001c}
0x28ce…28ee Head {h00=0x001c, h01=0x0050, text=» CWK A2,NULL NULL CHAR? «, t00=0x001a, t01=0x0036}
0x28ee…2914 Head {h00=0x0022, h01=0x0050, text=» RF(E) PACK75 YES,DON'T STORE «, t00=0x001a, t01=0x0056}
0x2914…293e Head {h00=0x0026, h01=0x0050, text=» CF A14,PUTCHA PUT CHAR. IN BUFFER«, t00=0x001a, t01=0x007c}
0x293e…2962 Head {h00=0x0020, h01=0x0050, text=» LDR A1,A1 TRANSMISSION OK? «, t00=0x001a, t01=0x00a6}
0x2962…297c Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PACK90 NO «, t00=0x001a, t01=0x00ca}
0x297c…2990 Head {h00=0x0010, h01=0x0050, text=»PACK75 EQU *«, t00=0x001a, t01=0x00e4}
0x2990…29a2 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x001a, t01=0x00f8}
0x29a2…29b4 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x001a, t01=0x010a}
0x29b4…29c6 Head {h00=0x000e, h01=0x0050, text=» RB PACK60«, t00=0x001a, t01=0x011c}
0x29c6…29da Head {h00=0x0010, h01=0x0050, text=»PACK80 EQU *«, t00=0x001a, t01=0x012e}
0x29da…2a02 Head {h00=0x0024, h01=0x0050, text=» LDK A1,0 INDICATE LAST IN CHAIN«, t00=0x001a, t01=0x0142}
0x2a02…2a28 Head {h00=0x0022, h01=0x0050, text=» CF A14,DCWRIT WRITE DC BUFFER«, t00=0x001a, t01=0x016a}
0x2a28…2a3c Head {h00=0x0010, h01=0x0050, text=»PACK90 EQU *«, t00=0x001a, t01=0x0190}
0x2a3c…2a62 Head {h00=0x0022, h01=0x0050, text=» LDR A8,A12 BUFFER TO RELEASE «, t00=0x001b, t01=0x0014}
0x2a62…2a88 Head {h00=0x0022, h01=0x0050, text=» CF A14,RELBUF RELEASE BUFFER «, t00=0x001b, t01=0x003a}
0x2a88…2a98 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001b, t01=0x0060}
0x2a98…2aa6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x0070}
0x2aa6…2aea Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x001b, t01=0x007e}
0x2aea…2b2e Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x001b, t01=0x00c2}
0x2b2e…2b72 Head {h00=0x0040, h01=0x0050, text=»* UNPACK UNPACK DC-BUFFER AND UPDATE VDU *«, t00=0x001b, t01=0x0106}
0x2b72…2bb6 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x001b, t01=0x014a}
0x2bb6…2bfa Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x001b, t01=0x018e}
0x2bfa…2c0e Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x001c, t01=0x0042}
0x2c0e…2c18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0056}
0x2c18…2c2c Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x001c, t01=0x0060}
0x2c2c…2c50 Head {h00=0x0020, h01=0x0050, text=»* A3= POINTER IN VDU-BUFFER «, t00=0x001c, t01=0x0074}
0x2c50…2c6e Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x001c, t01=0x0098}
0x2c6e…2c90 Head {h00=0x001e, h01=0x0050, text=»* A5= LAST IN ROW REL POS «, t00=0x001c, t01=0x00b6}
0x2c90…2cb8 Head {h00=0x0024, h01=0x0050, text=»* A6= INTERNAL LINE FLAG ADDRESS«, t00=0x001c, t01=0x00d8}
0x2cb8…2cda Head {h00=0x001e, h01=0x0050, text=»* A8= ADDRESS IN DC-BUFFER«, t00=0x001c, t01=0x0100}
0x2cda…2cf8 Head {h00=0x001a, h01=0x0050, text=»* A9= DC-BUFFER INDEX «, t00=0x001c, t01=0x0122}
0x2cf8…2d10 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x001c, t01=0x0140}
0x2d10…2d30 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x001c, t01=0x0158}
0x2d30…2d48 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x001c, t01=0x0178}
0x2d48…2d60 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x001c, t01=0x0190}
0x2d60…2d6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0018}
0x2d6a…2daa Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x001d, t01=0x0022}
0x2daa…2dbe Head {h00=0x0010, h01=0x0050, text=»UNPACK EQU *«, t00=0x001d, t01=0x0062}
0x2dbe…2de2 Head {h00=0x0020, h01=0x0050, text=» LDK A1,3 KB TOTALLY INHIBIT«, t00=0x001d, t01=0x0076}
0x2de2…2dfc Head {h00=0x0016, h01=0x0050, text=» ORS A1,KBINH,A11 «, t00=0x001d, t01=0x009a}
0x2dfc…2e14 Head {h00=0x0014, h01=0x0050, text=» LC A1,TCT01,A11«, t00=0x001d, t01=0x00b4}
0x2e14…2e3a Head {h00=0x0022, h01=0x0050, text=» CCK A1,VDUCOD PRINTER UNPACK?«, t00=0x001d, t01=0x00cc}
0x2e3a…2e54 Head {h00=0x0016, h01=0x0050, text=» RF(NE) UNP050 YES«, t00=0x001d, t01=0x00f2}
0x2e54…2e7a Head {h00=0x0022, h01=0x0050, text=» CF A14,LMP3ON INHIBIT LAMP ON«, t00=0x001d, t01=0x010c}
0x2e7a…2e8e Head {h00=0x0010, h01=0x0050, text=»UNP050 EQU *«, t00=0x001d, t01=0x0132}
0x2e8e…2ebc Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x001d, t01=0x0146}
0x2ebc…2ed0 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x001d, t01=0x0174}
0x2ed0…2ee6 Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x001d, t01=0x0188}
0x2ee6…2f14 Head {h00=0x002a, h01=0x0050, text=» CF A14,LINE CHECK WRAP AND LINE FLAG «, t00=0x001e, t01=0x000e}
0x2f14…2f26 Head {h00=0x000e, h01=0x0050, text=» SUR A9,A9«, t00=0x001e, t01=0x003c}
0x2f26…2f52 Head {h00=0x0028, h01=0x0050, text=» LD A8,BUFPNT,A11 GET BUFFER ADDRESS«, t00=0x001e, t01=0x004e}
0x2f52…2f78 Head {h00=0x0022, h01=0x0050, text=» LDK A1,ICOMND PROCESS COMMAND«, t00=0x001e, t01=0x007a}
0x2f78…2f92 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x001e, t01=0x00a0}
0x2f92…2fa6 Head {h00=0x0010, h01=0x0050, text=»UNP100 EQU *«, t00=0x001e, t01=0x00ba}
0x2fa6…2fc6 Head {h00=0x001c, h01=0x0050, text=» CF A14,GDCCH GET CHAR. «, t00=0x001e, t01=0x00ce}
0x2fc6…2fe8 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 ANYTHING LEFT? «, t00=0x001e, t01=0x00ee}
0x2fe8…3002 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) UNP200 NO «, t00=0x001e, t01=0x0110}
0x3002…3034 Head {h00=0x002e, h01=0x0050, text=» LD A1,UNPMOD,A11 GET ADDRESS TO START AT «, t00=0x001e, t01=0x012a}
0x3034…3056 Head {h00=0x001e, h01=0x0050, text=» CFI A14,RETTAB,A1 RESTART«, t00=0x001e, t01=0x015c}
0x3056…3076 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A1 PROCESS OKEY?«, t00=0x001e, t01=0x017e}
0x3076…3090 Head {h00=0x0016, h01=0x0050, text=» RB(Z) UNP100 YES «, t00=0x001f, t01=0x000e}
0x3090…30a2 Head {h00=0x000e, h01=0x0050, text=» RF UNP300«, t00=0x001f, t01=0x0028}
0x30a2…30b6 Head {h00=0x0010, h01=0x0050, text=»UNP200 EQU *«, t00=0x001f, t01=0x003a}
0x30b6…30c8 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x001f, t01=0x004e}
0x30c8…30ee Head {h00=0x0022, h01=0x0050, text=» CF A14,GETNXT GET NEXT BUFFER«, t00=0x001f, t01=0x0060}
0x30ee…310a Head {h00=0x0018, h01=0x0050, text=» LDR A1,A1 FINISHED?«, t00=0x001f, t01=0x0086}
0x310a…3122 Head {h00=0x0014, h01=0x0050, text=» RB(Z) UNP100 NO«, t00=0x001f, t01=0x00a2}
0x3122…312e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x00ba}
0x312e…3142 Head {h00=0x0010, h01=0x0050, text=»UNP300 EQU *«, t00=0x001f, t01=0x00c6}
0x3142…3168 Head {h00=0x0022, h01=0x0050, text=» CF A14,SCRINF GET LATEST NEWS«, t00=0x001f, t01=0x00da}
0x3168…317a Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x001f, t01=0x0100}
0x317a…31ac Head {h00=0x002e, h01=0x0050, text=» CF A14,ATMASB SEARCH ATTRIBUTE BACKWARDS «, t00=0x001f, t01=0x0112}
0x31ac…31be Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x001f, t01=0x0144}
0x31be…31e6 Head {h00=0x0024, h01=0x0050, text=» ANKL A10,THROWB THROW BUFFERS? «, t00=0x001f, t01=0x0156}
0x31e6…31fe Head {h00=0x0014, h01=0x0050, text=» RF(Z) UNP400 NO«, t00=0x001f, t01=0x017e}
0x31fe…3222 Head {h00=0x0020, h01=0x0050, text=» CF A14,THRBUF THROW BUFFERS«, t00=0x0020, t01=0x0008}
0x3222…3234 Head {h00=0x000e, h01=0x0050, text=» RF UNP600«, t00=0x0020, t01=0x002c}
0x3234…3248 Head {h00=0x0010, h01=0x0050, text=»UNP400 EQU *«, t00=0x0020, t01=0x003e}
0x3248…325e Head {h00=0x0012, h01=0x0050, text=» IFF DISHOW=2 «, t00=0x0020, t01=0x0052}
0x325e…3276 Head {h00=0x0014, h01=0x0050, text=» LC A1,TCT01,A11«, t00=0x0020, t01=0x0068}
0x3276…328c Head {h00=0x0012, h01=0x0050, text=» CCK A1,VDUCOD«, t00=0x0020, t01=0x0080}
0x328c…32a2 Head {h00=0x0012, h01=0x0050, text=» RF(NE) UNP500«, t00=0x0020, t01=0x0096}
0x32a2…32dc Head {h00=0x0036, h01=0x0050, text=» CF A14,DISMOD TESTINGTESTINGTESTING!!!!!!!!!!!!! «, t00=0x0020, t01=0x00ac}
0x32dc…32f0 Head {h00=0x0010, h01=0x0050, text=»UNP500 EQU *«, t00=0x0020, t01=0x00e6}
0x32f0…32fc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x00fa}
0x32fc…332a Head {h00=0x002a, h01=0x0050, text=» CF A14,P2WCC CHECK IT A LAST TIME =4 «, t00=0x0020, t01=0x0106}
0x332a…3354 Head {h00=0x0026, h01=0x0050, text=» LDR A8,A12 GET BUFFER TO RELEASE «, t00=0x0020, t01=0x0134}
0x3354…337a Head {h00=0x0022, h01=0x0050, text=» CF A14,RELBUF RELEASE BUFFER «, t00=0x0020, t01=0x015e}
0x337a…338e Head {h00=0x0010, h01=0x0050, text=»UNP600 EQU *«, t00=0x0020, t01=0x0184}
0x338e…339e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0021, t01=0x0008}
0x339e…33ac Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x0018}
0x33ac…33fa Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0021, t01=0x0026}
0x33fa…3448 Head {h00=0x004a, h01=0x0050, text=»* *«, t00=0x0021, t01=0x0074}
0x3448…3496 Head {h00=0x004a, h01=0x0050, text=»* INDEX FOR RETURNS AFTER GET CHARCTER *«, t00=0x0021, t01=0x00c2}
0x3496…34e4 Head {h00=0x004a, h01=0x0050, text=»* *«, t00=0x0021, t01=0x0110}
0x34e4…3532 Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0021, t01=0x015e}
0x3532…353a Head {h00=0x0004, h01=0x0050, t00=0x0022, t01=0x001c}
0x353a…354e Head {h00=0x0010, h01=0x0050, text=»ICOMND EQU 0«, t00=0x0022, t01=0x0024}
0x354e…356a Head {h00=0x0018, h01=0x0050, text=»ICOMN1 EQU ICOMND+2 «, t00=0x0022, t01=0x0038}
0x356a…3580 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0022, t01=0x0054}
0x3580…359c Head {h00=0x0018, h01=0x0050, text=»ICOCOP EQU ICOMN1+2 «, t00=0x0022, t01=0x006a}
0x359c…35b8 Head {h00=0x0018, h01=0x0050, text=»ICOWCC EQU ICOCOP+2 «, t00=0x0022, t01=0x0086}
0x35b8…35c4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x00a2}
0x35c4…35da Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0022, t01=0x00ae}
0x35da…35f6 Head {h00=0x0018, h01=0x0050, text=»ICOWCC EQU ICOMN1+2 «, t00=0x0022, t01=0x00c4}
0x35f6…3602 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x00e0}
0x3602…361e Head {h00=0x0018, h01=0x0050, text=»IORDER EQU ICOWCC+2 «, t00=0x0022, t01=0x00ec}
0x361e…363a Head {h00=0x0018, h01=0x0050, text=»IOSFAT EQU IORDER+2 «, t00=0x0022, t01=0x0108}
0x363a…3656 Head {h00=0x0018, h01=0x0050, text=»IOSBA1 EQU IOSFAT+2 «, t00=0x0022, t01=0x0124}
0x3656…3672 Head {h00=0x0018, h01=0x0050, text=»IOSBA2 EQU IOSBA1+2 «, t00=0x0022, t01=0x0140}
0x3672…368e Head {h00=0x0018, h01=0x0050, text=»IORAA1 EQU IOSBA2+2 «, t00=0x0022, t01=0x015c}
0x368e…36aa Head {h00=0x0018, h01=0x0050, text=»IORAA2 EQU IORAA1+2 «, t00=0x0022, t01=0x0178}
0x36aa…36c6 (35, 0, 400) Head {h00=0x0018, h01=0x0050, text=»IORACH EQU IORAA2+2 «, t00=0x0023, t01=0x0004}
0x36c6…36e2 Head {h00=0x0018, h01=0x0050, text=»IOEUA1 EQU IORACH+2 «, t00=0x0023, t01=0x0020}
0x36e2…36fe Head {h00=0x0018, h01=0x0050, text=»IOEUA2 EQU IOEUA1+2 «, t00=0x0023, t01=0x003c}
0x36fe…370c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x0058}
0x370c…375a Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0023, t01=0x0066}
0x375a…37a8 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0023, t01=0x00b4}
0x37a8…37f6 Head {h00=0x004a, h01=0x0050, text=»* RETURN ADDRESSES AFTER GET CHARACTER * «, t00=0x0023, t01=0x0102}
0x37f6…3844 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0023, t01=0x0150}
0x3844…3892 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0024, t01=0x000e}
0x3892…38a6 Head {h00=0x0010, h01=0x0050, text=»RETTAB EQU *«, t00=0x0024, t01=0x005c}
0x38a6…38d0 Head {h00=0x0026, h01=0x0050, text=» DATA UNPCOM PROCESS COMMAND CHAR.«, t00=0x0024, t01=0x0070}
0x38d0…3904 Head {h00=0x0030, h01=0x0050, text=» DATA UNC100 PROCESS COMMAND CHAR AFTER ESC.«, t00=0x0024, t01=0x009a}
0x3904…391a Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0024, t01=0x00ce}
0x391a…3942 Head {h00=0x0024, h01=0x0050, text=» DATA UNC150 PROCESS FROM DEVICE«, t00=0x0024, t01=0x00e4}
0x3942…394e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x010c}
0x394e…396e Head {h00=0x001c, h01=0x0050, text=» DATA UNC600 PROCESS WCC«, t00=0x0024, t01=0x0118}
0x396e…399c Head {h00=0x002a, h01=0x0050, text=» DATA UNPORD PROCESS ORDERS AND CHAR. «, t00=0x0024, t01=0x0138}
0x399c…39c2 Head {h00=0x0022, h01=0x0050, text=» DATA SF100 PROCESS ATTRIBUTE «, t00=0x0024, t01=0x0166}
0x39c2…39f2 Head {h00=0x002c, h01=0x0050, text=» DATA SBA100 PROCESS FIRST ADDRESS BYTE «, t00=0x0024, t01=0x018c}
0x39f2…3a22 Head {h00=0x002c, h01=0x0050, text=» DATA SBA200 PROCESS SECOND ADDRESS BYTE«, t00=0x0025, t01=0x002c}
0x3a22…3a50 Head {h00=0x002a, h01=0x0050, text=» DATA RA100 PROCESS FIRST ADDRESS BYTE«, t00=0x0025, t01=0x005c}
0x3a50…3a80 Head {h00=0x002c, h01=0x0050, text=» DATA RA200 PROCESS SECOND ADDRESS BYTE «, t00=0x0025, t01=0x008a}
0x3a80…3aac Head {h00=0x0028, h01=0x0050, text=» DATA RA250 PROCESS CHAR. TO REPEAT «, t00=0x0025, t01=0x00ba}
0x3aac…3adc Head {h00=0x002c, h01=0x0050, text=» DATA EUA100 PROCESS FIRST ADDRESS BYTE «, t00=0x0025, t01=0x00e6}
0x3adc…3b0c Head {h00=0x002c, h01=0x0050, text=» DATA EUA200 PROCESS FIRST ADDRESS BYTE «, t00=0x0025, t01=0x0116}
0x3b0c…3b1a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x0146}
0x3b1a…3b6a Head {h00=0x004c, h01=0x0050, text=»*********************************************************************** «, t00=0x0025, t01=0x0154}
0x3b6a…3bba Head {h00=0x004c, h01=0x0050, text=»* * «, t00=0x0026, t01=0x0014}
0x3bba…3c0a Head {h00=0x004c, h01=0x0050, text=»* UNPCOM UNPACK COMMAND * «, t00=0x0026, t01=0x0064}
0x3c0a…3c5a Head {h00=0x004c, h01=0x0050, text=»* * «, t00=0x0026, t01=0x00b4}
0x3c5a…3caa Head {h00=0x004c, h01=0x0050, text=»*********************************************************************** «, t00=0x0026, t01=0x0104}
0x3caa…3cbe Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0026, t01=0x0154}
0x3cbe…3cc8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0168}
0x3cc8…3cdc Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0026, t01=0x0172}
0x3cdc…3d00 Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x0026, t01=0x0186}
0x3d00…3d22 Head {h00=0x001e, h01=0x0050, text=»* A4= REL. CURSOR ADDRESS «, t00=0x0027, t01=0x001a}
0x3d22…3d44 Head {h00=0x001e, h01=0x0050, text=»* A5= LAST IN ROW REL POS «, t00=0x0027, t01=0x003c}
0x3d44…3d6c Head {h00=0x0024, h01=0x0050, text=»* A6= INTERNAL LINE FLAG ADDRESS«, t00=0x0027, t01=0x005e}
0x3d6c…3d8e Head {h00=0x001e, h01=0x0050, text=»* A8= ADDRESS IN DC-BUFFER«, t00=0x0027, t01=0x0086}
0x3d8e…3da4 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x0027, t01=0x00a8}
0x3da4…3dbc Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0027, t01=0x00be}
0x3dbc…3ddc Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0027, t01=0x00d6}
0x3ddc…3df4 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0027, t01=0x00f6}
0x3df4…3e0c Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0027, t01=0x010e}
0x3e0c…3e16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0126}
0x3e16…3e66 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0027, t01=0x0130}
0x3e66…3e92 Head {h00=0x0028, h01=0x0050, text=»UNPCOM EQU * ENTRY LABEL FROM RETTAB«, t00=0x0027, t01=0x0180}
0x3e92…3ea4 Head {h00=0x000e, h01=0x0050, text=» IFF SNA=1«, t00=0x0028, t01=0x001c}
0x3ea4…3ecc Head {h00=0x0024, h01=0x0050, text=» LDK A1,ICOMN1 WHERE TO CONTINUE«, t00=0x0028, t01=0x002e}
0x3ecc…3ee6 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0028, t01=0x0056}
0x3ee6…3f04 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0028, t01=0x0070}
0x3f04…3f22 Head {h00=0x001a, h01=0x0050, text=» CWK A2,ESCCHA ESCAPE?«, t00=0x0028, t01=0x008e}
0x3f22…3f3c Head {h00=0x0016, h01=0x0050, text=» RF(E) UNC900 YES «, t00=0x0028, t01=0x00ac}
0x3f3c…3f60 Head {h00=0x0020, h01=0x0050, text=» LDK A1,1 NO INDICATE ERROR «, t00=0x0028, t01=0x00c6}
0x3f60…3f72 Head {h00=0x000e, h01=0x0050, text=» RF UNC900«, t00=0x0028, t01=0x00ea}
0x3f72…3f7e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x00fc}
0x3f7e…3f92 Head {h00=0x0010, h01=0x0050, text=»UNC100 EQU *«, t00=0x0028, t01=0x0108}
0x3f92…3fac Head {h00=0x0016, h01=0x0050, text=» CWK A2,/31 WRITE?«, t00=0x0028, t01=0x011c}
0x3fac…3fc6 Head {h00=0x0016, h01=0x0050, text=» RF(E) UNC500 YES «, t00=0x0028, t01=0x0136}
0x3fc6…3fea Head {h00=0x0020, h01=0x0050, text=» CWK A2,/35 ERASE AND WITE? «, t00=0x0028, t01=0x0150}
0x3fea…4004 Head {h00=0x0016, h01=0x0050, text=» RF(E) UNC200 YES «, t00=0x0028, t01=0x0174}
0x4004…402e Head {h00=0x0026, h01=0x0050, text=» CWK A2,/3F ERASE ALL UNPROTECTED?«, t00=0x0028, t01=0x018e}
0x402e…4048 Head {h00=0x0016, h01=0x0050, text=» RF(E) UNC300 YES «, t00=0x0029, t01=0x0028}
0x4048…405e Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0029, t01=0x0042}
0x405e…4080 Head {h00=0x001e, h01=0x0050, text=» CWK A2,/37 COPY COMMAND? «, t00=0x0029, t01=0x0058}
0x4080…409a Head {h00=0x0016, h01=0x0050, text=» RF(NE) UNC175 NO «, t00=0x0029, t01=0x007a}
0x409a…40be Head {h00=0x0020, h01=0x0050, text=» LDK A1,ICOCOP RESTART ENTRY«, t00=0x0029, t01=0x0094}
0x40be…40d0 Head {h00=0x000e, h01=0x0050, text=» RF UNC800«, t00=0x0029, t01=0x00b8}
0x40d0…40fc Head {h00=0x0028, h01=0x0050, text=»UNC150 EQU * ENTRY LABEL FROM RETTAB«, t00=0x0029, t01=0x00ca}
0x40fc…411c Head {h00=0x001c, h01=0x0050, text=» CF A14,MATCH GET TASKID«, t00=0x0029, t01=0x00f6}
0x411c…4132 Head {h00=0x0012, h01=0x0050, text=» LDR A1,A1 OK?«, t00=0x0029, t01=0x0116}
0x4132…414c Head {h00=0x0016, h01=0x0050, text=» RF(NZ) UNC175 NO «, t00=0x0029, t01=0x012c}
0x414c…4186 Head {h00=0x0036, h01=0x0050, text=» LDKL A1,/8000 RETURN CODE TO INDICATE COPY COMND.«, t00=0x0029, t01=0x0146}
0x4186…419e Head {h00=0x0014, h01=0x0050, text=» ST A1,REGI,A11 «, t00=0x0029, t01=0x0180}
0x419e…41b8 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBICW,A11 «, t00=0x002a, t01=0x0008}
0x41b8…41da Head {h00=0x001e, h01=0x0050, text=» CF A14,ICSET SET TIMEOUT «, t00=0x002a, t01=0x0022}
0x41da…41fa Head {h00=0x001c, h01=0x0050, text=» LDR A1,A2 TASK TO CALL «, t00=0x002a, t01=0x0044}
0x41fa…4212 Head {h00=0x0014, h01=0x0050, text=» LDK A2,2 LENGTH«, t00=0x002a, t01=0x0064}
0x4212…4228 Head {h00=0x0012, h01=0x0050, text=» LDKL A3,REGI «, t00=0x002a, t01=0x007c}
0x4228…4242 Head {h00=0x0016, h01=0x0050, text=» ADR A3,A11 BUFFER«, t00=0x002a, t01=0x0092}
0x4242…4260 Head {h00=0x001a, h01=0x0050, text=» CF A14,ICWRT SEND IT «, t00=0x002a, t01=0x00ac}
0x4260…4274 Head {h00=0x0010, h01=0x0050, text=»UNC175 EQU *«, t00=0x002a, t01=0x00ca}
0x4274…4280 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x00de}
0x4280…42a8 Head {h00=0x0024, h01=0x0050, text=» LDKL A10,THROWB THROW THE REST «, t00=0x002a, t01=0x00ea}
0x42a8…42c8 Head {h00=0x001c, h01=0x0050, text=» LDK A1,1 INDICATE ERROR«, t00=0x002a, t01=0x0112}
0x42c8…42ea Head {h00=0x001e, h01=0x0050, text=» RF UNC900 INVALID COMMAND«, t00=0x002a, t01=0x0132}
0x42ea…42fe Head {h00=0x0010, h01=0x0050, text=»UNC200 EQU *«, t00=0x002a, t01=0x0154}
0x42fe…4316 Head {h00=0x0014, h01=0x0050, text=» ST A8,REGI,A11 «, t00=0x002a, t01=0x0168}
0x4316…4340 Head {h00=0x0026, h01=0x0050, text=» CF A14,ERASE ERASE ENTIRE SCREEN «, t00=0x002a, t01=0x0180}
0x4340…4358 Head {h00=0x0014, h01=0x0050, text=» LD A8,REGI,A11 «, t00=0x002b, t01=0x001a}
0x4358…436c Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x002b, t01=0x0032}
0x436c…4382 Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x002b, t01=0x0046}
0x4382…43ac Head {h00=0x0026, h01=0x0050, text=» LDK A4,0 INITIATE BUFFER ADDRESS «, t00=0x002b, t01=0x005c}
0x43ac…43be Head {h00=0x000e, h01=0x0050, text=» RF UNC500«, t00=0x002b, t01=0x0086}
0x43be…43d2 Head {h00=0x0010, h01=0x0050, text=»UNC300 EQU *«, t00=0x002b, t01=0x0098}
0x43d2…43fe Head {h00=0x0028, h01=0x0050, text=» CF A14,ERASUP ERASE ALL UNPROTECTED«, t00=0x002b, t01=0x00ac}
0x43fe…4424 Head {h00=0x0022, h01=0x0050, text=» LDKL A10,THROWB THROW IT AWAY«, t00=0x002b, t01=0x00d8}
0x4424…4444 Head {h00=0x001c, h01=0x0050, text=» LDK A1,1 INDICATE ERROR«, t00=0x002b, t01=0x00fe}
0x4444…4456 Head {h00=0x000e, h01=0x0050, text=» RF UNC900«, t00=0x002b, t01=0x011e}
0x4456…446a Head {h00=0x0010, h01=0x0050, text=»UNC500 EQU *«, t00=0x002b, t01=0x0130}
0x446a…448a Head {h00=0x001c, h01=0x0050, text=» LDK A1,ICOWCC GET INDEX«, t00=0x002b, t01=0x0144}
0x448a…44a4 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x002b, t01=0x0164}
0x44a4…44b6 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x002b, t01=0x017e}
0x44b6…44c8 Head {h00=0x000e, h01=0x0050, text=» RF UNC900«, t00=0x002b, t01=0x0190}
0x44c8…44f4 Head {h00=0x0028, h01=0x0050, text=»UNC600 EQU * ENTRY LABEL FROM RETTAB«, t00=0x002c, t01=0x0012}
0x44f4…4524 Head {h00=0x002c, h01=0x0050, text=» CF A14,P1WCC PROCESS WCC BEFORE UPDATE «, t00=0x002c, t01=0x003e}
0x4524…4536 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A4«, t00=0x002c, t01=0x006e}
0x4536…455c Head {h00=0x0022, h01=0x0050, text=» ADKL A3,BVDU GET REAL ADDRESS«, t00=0x002c, t01=0x0080}
0x455c…4570 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x002c, t01=0x00a6}
0x4570…459a Head {h00=0x0026, h01=0x0050, text=» ORKL A10,PTORD INDICATE PT ORDER «, t00=0x002c, t01=0x00ba}
0x459a…45c4 Head {h00=0x0026, h01=0x0050, text=» LDK A1,IORDER INDICATE NEXT CALL «, t00=0x002c, t01=0x00e4}
0x45c4…45d8 Head {h00=0x0010, h01=0x0050, text=»UNC800 EQU *«, t00=0x002c, t01=0x010e}
0x45d8…45f2 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x002c, t01=0x0122}
0x45f2…4604 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x002c, t01=0x013c}
0x4604…4618 Head {h00=0x0010, h01=0x0050, text=»UNC900 EQU *«, t00=0x002c, t01=0x014e}
0x4618…4628 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002c, t01=0x0162}
0x4628…4636 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x0172}
0x4636…4678 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x002c, t01=0x0180}
0x4678…46ba Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x002d, t01=0x0032}
0x46ba…46fc Head {h00=0x003e, h01=0x0050, text=»* UNPORD UNPACK ORDERS *«, t00=0x002d, t01=0x0074}
0x46fc…473e Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x002d, t01=0x00b6}
0x473e…4780 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x002d, t01=0x00f8}
0x4780…4794 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x002d, t01=0x013a}
0x4794…479e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x014e}
0x479e…47b2 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x002d, t01=0x0158}
0x47b2…47d6 Head {h00=0x0020, h01=0x0050, text=»* A3= POINTER IN VDU BUFFER «, t00=0x002d, t01=0x016c}
0x47d6…47f4 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x002d, t01=0x0190}
0x47f4…4816 Head {h00=0x001e, h01=0x0050, text=»* A5= LAST IN ROW REL POS «, t00=0x002e, t01=0x001e}
0x4816…483e Head {h00=0x0024, h01=0x0050, text=»* A6= INTERNAL LINE FLAG ADDRESS«, t00=0x002e, t01=0x0040}
0x483e…4854 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x002e, t01=0x0068}
0x4854…486a Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x002e, t01=0x007e}
0x486a…4882 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x002e, t01=0x0094}
0x4882…489a Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x002e, t01=0x00ac}
0x489a…48b2 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x002e, t01=0x00c4}
0x48b2…48ca Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x002e, t01=0x00dc}
0x48ca…48d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00f4}
0x48d4…4916 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x002e, t01=0x00fe}
0x4916…4942 Head {h00=0x0028, h01=0x0050, text=»UNPORD EQU * ENTRY LABEL FROM RETTAB«, t00=0x002e, t01=0x0140}
0x4942…495c Head {h00=0x0016, h01=0x0050, text=» CWK A2,/20 ORDER?«, t00=0x002e, t01=0x016c}
0x495c…4976 Head {h00=0x0016, h01=0x0050, text=» RF(L) UNO100 YES «, t00=0x002e, t01=0x0186}
0x4976…4998 Head {h00=0x001e, h01=0x0050, text=» ANKL A10,/FFFF-PTORD =9 «, t00=0x002f, t01=0x0010}
0x4998…49b4 Head {h00=0x0018, h01=0x0050, text=» CWR A5,A4 NEW LINE?«, t00=0x002f, t01=0x0032}
0x49b4…49cc Head {h00=0x0014, h01=0x0050, text=» RF(G) UNO050 NO«, t00=0x002f, t01=0x004e}
0x49cc…49ec Head {h00=0x001c, h01=0x0050, text=» CF A14,LINE CHECK WRAP «, t00=0x002f, t01=0x0066}
0x49ec…4a00 Head {h00=0x0010, h01=0x0050, text=»UNO050 EQU *«, t00=0x002f, t01=0x0086}
0x4a00…4a2c Head {h00=0x0028, h01=0x0050, text=» SCR A2,A3 STORE CHAR. IN VDU BUFFER«, t00=0x002f, t01=0x009a}
0x4a2c…4a44 Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x002f, t01=0x00c6}
0x4a44…4a56 Head {h00=0x000e, h01=0x0050, text=» ORK A1,1 «, t00=0x002f, t01=0x00de}
0x4a56…4a6e Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x002f, t01=0x00f0}
0x4a6e…4a80 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x002f, t01=0x0108}
0x4a80…4a92 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x002f, t01=0x011a}
0x4a92…4aa4 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x002f, t01=0x012c}
0x4aa4…4ab6 Head {h00=0x000e, h01=0x0050, text=» RF UNO200«, t00=0x002f, t01=0x013e}
0x4ab6…4aca Head {h00=0x0010, h01=0x0050, text=»UNO100 EQU *«, t00=0x002f, t01=0x0150}
0x4aca…4af2 Head {h00=0x0024, h01=0x0050, text=» LC A1,CONORD,A2 GET ORDER INDEX«, t00=0x002f, t01=0x0164}
0x4af2…4b20 Head {h00=0x002a, h01=0x0050, text=» CFI A14,ORDTAB,A1 TAKE CARE OF ORDER «, t00=0x002f, t01=0x018c}
0x4b20…4b34 Head {h00=0x0010, h01=0x0050, text=»UNO200 EQU *«, t00=0x0030, t01=0x002a}
0x4b34…4b44 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0030, t01=0x003e}
0x4b44…4b52 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x004e}
0x4b52…4b98 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0030, t01=0x005c}
0x4b98…4bde Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0030, t01=0x00a2}
0x4bde…4c24 Head {h00=0x0042, h01=0x0050, text=»* ORDTAB ORDER TABLE * «, t00=0x0030, t01=0x00e8}
0x4c24…4c6a Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0030, t01=0x012e}
0x4c6a…4cb0 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0030, t01=0x0174}
0x4cb0…4cc4 Head {h00=0x0010, h01=0x0050, text=»ORDTAB EQU *«, t00=0x0031, t01=0x002a}
0x4cc4…4ce6 Head {h00=0x001e, h01=0x0050, text=» DATA INVAL INVALID CHAR. «, t00=0x0031, t01=0x003e}
0x4ce6…4d02 Head {h00=0x0018, h01=0x0050, text=» DATA SF START FIELD«, t00=0x0031, t01=0x0060}
0x4d02…4d26 Head {h00=0x0020, h01=0x0050, text=» DATA SBA SET BUFFER ADDRESS«, t00=0x0031, t01=0x007c}
0x4d26…4d44 Head {h00=0x001a, h01=0x0050, text=» DATA IC INSERT CURSOR«, t00=0x0031, t01=0x00a0}
0x4d44…4d5a Head {h00=0x0012, h01=0x0050, text=» DATA PT TAB. «, t00=0x0031, t01=0x00be}
0x4d5a…4d7c Head {h00=0x001e, h01=0x0050, text=» DATA RA REPEAT TO AADRESS«, t00=0x0031, t01=0x00d4}
0x4d7c…4daa Head {h00=0x002a, h01=0x0050, text=» DATA EUA ERASE UNPROTECTED TO ADDRESS«, t00=0x0031, t01=0x00f6}
0x4daa…4dc2 Head {h00=0x0014, h01=0x0050, text=» DATA ESC ESCAPE«, t00=0x0031, t01=0x0124}
0x4dc2…4de2 Head {h00=0x001c, h01=0x0050, text=» DATA NULCHA NULL CHAR. «, t00=0x0031, t01=0x013c}
0x4de2…4dfc Head {h00=0x0016, h01=0x0050, text=» DATA NL NEW LINE «, t00=0x0031, t01=0x015c}
0x4dfc…4e16 Head {h00=0x0016, h01=0x0050, text=» DATA FF FORM FEED«, t00=0x0031, t01=0x0176}
0x4e16…4e32 Head {h00=0x0018, h01=0x0050, text=» DATA EM END MESSAGE«, t00=0x0031, t01=0x0190}
0x4e32…4e52 Head {h00=0x001c, h01=0x0050, text=» DATA CR CARRIAGE RETURN«, t00=0x0032, t01=0x001c}
0x4e52…4e60 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0032, t01=0x003c}
0x4e60…4ea4 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0032, t01=0x004a}
0x4ea4…4ee8 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0032, t01=0x008e}
0x4ee8…4f2c Head {h00=0x0040, h01=0x0050, text=»* SF START FIELD * «, t00=0x0032, t01=0x00d2}
0x4f2c…4f70 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0032, t01=0x0116}
0x4f70…4fb4 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0032, t01=0x015a}
0x4fb4…4fc8 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0033, t01=0x000e}
0x4fc8…4fd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0022}
0x4fd2…4fec Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x0033, t01=0x002c}
0x4fec…5002 Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x0033, t01=0x0046}
0x5002…5026 Head {h00=0x0020, h01=0x0050, text=»* A3= POINTER IN VDU BUFFER «, t00=0x0033, t01=0x005c}
0x5026…5044 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0033, t01=0x0080}
0x5044…505a Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0033, t01=0x009e}
0x505a…5070 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0033, t01=0x00b4}
0x5070…5086 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0033, t01=0x00ca}
0x5086…50a4 Head {h00=0x001a, h01=0x0050, text=»* A9= DC-BUFFER INDEX «, t00=0x0033, t01=0x00e0}
0x50a4…50bc Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0033, t01=0x00fe}
0x50bc…50dc Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0033, t01=0x0116}
0x50dc…50f4 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0033, t01=0x0136}
0x50f4…510c Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0033, t01=0x014e}
0x510c…5116 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0166}
0x5116…515a Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0033, t01=0x0170}
0x515a…516a Head {h00=0x000c, h01=0x0050, text=»SF EQU *«, t00=0x0034, t01=0x0024}
0x516a…5194 Head {h00=0x0026, h01=0x0050, text=» LDK A1,IOSFAT INDICATE NEXT CALL «, t00=0x0034, t01=0x0034}
0x5194…51ae Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0034, t01=0x005e}
0x51ae…51ca Head {h00=0x0018, h01=0x0050, text=» RF SF900 GET CHAR. «, t00=0x0034, t01=0x0078}
0x51ca…51f6 Head {h00=0x0028, h01=0x0050, text=»SF100 EQU * ENTRY LABEL FROM RETTAB «, t00=0x0034, t01=0x0094}
0x51f6…5218 Head {h00=0x001e, h01=0x0050, text=» LDK A1,IORDER NEXT ALBEL «, t00=0x0034, t01=0x00c0}
0x5218…5232 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0034, t01=0x00e2}
0x5232…5254 Head {h00=0x001e, h01=0x0050, text=» LC A2,CONATT,A2 IN EBCDIC«, t00=0x0034, t01=0x00fc}
0x5254…5272 Head {h00=0x001a, h01=0x0050, text=» ORK A2,/80 ATTR. BIT «, t00=0x0034, t01=0x011e}
0x5272…5288 Head {h00=0x0012, h01=0x0050, text=» CM CURATT,A11«, t00=0x0034, t01=0x013c}
0x5288…52a6 Head {h00=0x001a, h01=0x0050, text=» ORKL A10,ATTREC+PTORD«, t00=0x0034, t01=0x0152}
0x52a6…52c8 Head {h00=0x001e, h01=0x0050, text=» CF A14,LINWRP CHECK WRAP «, t00=0x0034, t01=0x0170}
0x52c8…52e0 (53, 0, 400) Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x0035, t01=0x0004}
0x52e0…5300 Head {h00=0x001c, h01=0x0050, text=» ANK A1,2 LINE IN FIELD?«, t00=0x0035, t01=0x001c}
0x5300…5318 Head {h00=0x0014, h01=0x0050, text=» RF(Z) SF600 NO «, t00=0x0035, t01=0x003c}
0x5318…534a Head {h00=0x002e, h01=0x0050, text=» CF A14,LINATT INDICATE ATTRIBUTE OVERRUN «, t00=0x0035, t01=0x0054}
0x534a…535e Head {h00=0x0010, h01=0x0050, text=»SF600 EQU * «, t00=0x0035, t01=0x0086}
0x535e…5392 Head {h00=0x0030, h01=0x0050, text=» ORKL A10,ATTREC INDICATE ATTRIBUTE RECEIVED«, t00=0x0035, t01=0x009a}
0x5392…53b0 Head {h00=0x001a, h01=0x0050, text=» SCR A2,A3 STORE CHAR.«, t00=0x0035, t01=0x00ce}
0x53b0…53c2 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0035, t01=0x00ec}
0x53c2…53d4 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0035, t01=0x00fe}
0x53d4…53f8 Head {h00=0x0020, h01=0x0050, text=» CF A14,LINWRP CHECK WRAP =7«, t00=0x0035, t01=0x0110}
0x53f8…540c Head {h00=0x0010, h01=0x0050, text=»SF900 EQU * «, t00=0x0035, t01=0x0134}
0x540c…541e Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0035, t01=0x0148}
0x541e…542e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0035, t01=0x015a}
0x542e…543c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0035, t01=0x016a}
0x543c…5480 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0035, t01=0x0178}
0x5480…54c4 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0036, t01=0x002c}
0x54c4…5508 Head {h00=0x0040, h01=0x0050, text=»* SBA SET BUFFER ADDRESS * «, t00=0x0036, t01=0x0070}
0x5508…554c Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0036, t01=0x00b4}
0x554c…5590 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0036, t01=0x00f8}
0x5590…55a4 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0036, t01=0x013c}
0x55a4…55ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0150}
0x55ae…55c8 Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x0036, t01=0x015a}
0x55c8…55dc Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0036, t01=0x0174}
0x55dc…55f2 Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x0036, t01=0x0188}
0x55f2…5608 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0037, t01=0x000e}
0x5608…561e Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0037, t01=0x0024}
0x561e…5634 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0037, t01=0x003a}
0x5634…564a Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0037, t01=0x0050}
0x564a…5660 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x0037, t01=0x0066}
0x5660…5678 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0037, t01=0x007c}
0x5678…5698 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0037, t01=0x0094}
0x5698…56b0 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0037, t01=0x00b4}
0x56b0…56c8 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0037, t01=0x00cc}
0x56c8…56d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00e4}
0x56d2…5716 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0037, t01=0x00ee}
0x5716…5728 Head {h00=0x000e, h01=0x0050, text=»SBA EQU * «, t00=0x0037, t01=0x0132}
0x5728…574a Head {h00=0x001e, h01=0x0050, text=» LDK A1,IOSBA1 NEXT LABEL «, t00=0x0037, t01=0x0144}
0x574a…5764 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0037, t01=0x0166}
0x5764…5776 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0037, t01=0x0180}
0x5776…5794 (56, 0, 400) Head {h00=0x001a, h01=0x0050, text=» RF SBA900 FIRST BYTE «, t00=0x0038, t01=0x0004}
0x5794…57c0 Head {h00=0x0028, h01=0x0050, text=»SBA100 EQU * ENTRY LABEL FROM RETTAB«, t00=0x0038, t01=0x0022}
0x57c0…57e0 Head {h00=0x001c, h01=0x0050, text=» LC A7,CONATT,A2 CONVERT«, t00=0x0038, t01=0x004e}
0x57e0…57f4 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/3F «, t00=0x0038, t01=0x006e}
0x57f4…5806 Head {h00=0x000e, h01=0x0050, text=» SLL A7,6 «, t00=0x0038, t01=0x0082}
0x5806…581c Head {h00=0x0012, h01=0x0050, text=» LDK A1,IOSBA2«, t00=0x0038, t01=0x0094}
0x581c…5836 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0038, t01=0x00aa}
0x5836…5848 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0038, t01=0x00c4}
0x5848…5864 Head {h00=0x0018, h01=0x0050, text=» RF SBA900 NEXT BYTE«, t00=0x0038, t01=0x00d6}
0x5864…5890 Head {h00=0x0028, h01=0x0050, text=»SBA200 EQU * ENTRY LABEL FROM RETTAB«, t00=0x0038, t01=0x00f2}
0x5890…58a8 Head {h00=0x0014, h01=0x0050, text=» LC A2,CONATT,A2«, t00=0x0038, t01=0x011e}
0x58a8…58bc Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x0038, t01=0x0136}
0x58bc…58ce Head {h00=0x000e, h01=0x0050, text=» ORR A7,A2«, t00=0x0038, t01=0x014a}
0x58ce…58f0 Head {h00=0x001e, h01=0x0050, text=» LDK A1,IORDER NEXT LABEL «, t00=0x0038, t01=0x015c}
0x58f0…590a Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0038, t01=0x017e}
0x590a…5930 Head {h00=0x0022, h01=0x0050, text=» CWK A7,LBVDU ILLEGAL ADDRESS?«, t00=0x0039, t01=0x0008}
0x5930…594a Head {h00=0x0016, h01=0x0050, text=» RF(NL) SBA800 YES«, t00=0x0039, t01=0x002e}
0x594a…595c Head {h00=0x000e, h01=0x0050, text=» LDR A3,A7«, t00=0x0039, t01=0x0048}
0x595c…596e Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x0039, t01=0x005a}
0x596e…5984 Head {h00=0x0012, h01=0x0050, text=» ADKL A3,BVDU «, t00=0x0039, t01=0x006c}
0x5984…5998 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0039, t01=0x0082}
0x5998…59c2 Head {h00=0x0026, h01=0x0050, text=» ORKL A10,PTORD INDICATE PT ORDER «, t00=0x0039, t01=0x0096}
0x59c2…59f0 Head {h00=0x002a, h01=0x0050, text=» CF A14,LINE CHECK WRAP AND LINE FLAGS«, t00=0x0039, t01=0x00c0}
0x59f0…5a0c Head {h00=0x0018, h01=0x0050, text=» LDK A1,0 REURN CODE«, t00=0x0039, t01=0x00ee}
0x5a0c…5a1e Head {h00=0x000e, h01=0x0050, text=» RF SBA900«, t00=0x0039, t01=0x010a}
0x5a1e…5a32 Head {h00=0x0010, h01=0x0050, text=»SBA800 EQU *«, t00=0x0039, t01=0x011c}
0x5a32…5a58 Head {h00=0x0022, h01=0x0050, text=» ORKL A10,THROWB DON'T SAVE IT«, t00=0x0039, t01=0x0130}
0x5a58…5a76 Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 RETURN CODE «, t00=0x0039, t01=0x0156}
0x5a76…5a8a Head {h00=0x0010, h01=0x0050, text=»SBA900 EQU *«, t00=0x0039, t01=0x0174}
0x5a8a…5a9a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0039, t01=0x0188}
0x5a9a…5aa8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003a, t01=0x0008}
0x5aa8…5aea Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x003a, t01=0x0016}
0x5aea…5b2c Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x003a, t01=0x0058}
0x5b2c…5b6e Head {h00=0x003e, h01=0x0050, text=»* IC INSERT CURSOR *«, t00=0x003a, t01=0x009a}
0x5b6e…5bb0 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x003a, t01=0x00dc}
0x5bb0…5bf2 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x003a, t01=0x011e}
0x5bf2…5c06 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x003a, t01=0x0160}
0x5c06…5c10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0174}
0x5c10…5c2a Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x003a, t01=0x017e}
0x5c2a…5c40 Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x003b, t01=0x0008}
0x5c40…5c56 Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x003b, t01=0x001e}
0x5c56…5c74 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x003b, t01=0x0034}
0x5c74…5c8a Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x003b, t01=0x0052}
0x5c8a…5ca0 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x003b, t01=0x0068}
0x5ca0…5cb6 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x003b, t01=0x007e}
0x5cb6…5cce Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x003b, t01=0x0094}
0x5cce…5cee Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x003b, t01=0x00ac}
0x5cee…5d06 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x003b, t01=0x00cc}
0x5d06…5d1e Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x003b, t01=0x00e4}
0x5d1e…5d28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00fc}
0x5d28…5d60 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x003b, t01=0x0106}
0x5d60…5d70 Head {h00=0x000c, h01=0x0050, text=»IC EQU *«, t00=0x003b, t01=0x013e}
0x5d70…5d88 Head {h00=0x0014, h01=0x0050, text=» ST A4,PCURS,A11«, t00=0x003b, t01=0x014e}
0x5d88…5da8 Head {h00=0x001c, h01=0x0050, text=» ORKL A10,PTORD INDICATE«, t00=0x003b, t01=0x0166}
0x5da8…5dc6 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x003b, t01=0x0186}
0x5dc6…5dd6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003c, t01=0x0014}
0x5dd6…5de4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003c, t01=0x0024}
0x5de4…5e28 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x003c, t01=0x0032}
0x5e28…5e6c Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x003c, t01=0x0076}
0x5e6c…5eb0 Head {h00=0x0040, h01=0x0050, text=»* PT PROGRAM TAB. * «, t00=0x003c, t01=0x00ba}
0x5eb0…5ef4 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x003c, t01=0x00fe}
0x5ef4…5f38 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x003c, t01=0x0142}
0x5f38…5f4c Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x003c, t01=0x0186}
0x5f4c…5f56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x000a}
0x5f56…5f70 Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x003d, t01=0x0014}
0x5f70…5f84 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x003d, t01=0x002e}
0x5f84…5fa8 Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x003d, t01=0x0042}
0x5fa8…5fc6 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x003d, t01=0x0066}
0x5fc6…5fdc Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x003d, t01=0x0084}
0x5fdc…5ffa Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x003d, t01=0x009a}
0x5ffa…6010 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x003d, t01=0x00b8}
0x6010…6026 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x003d, t01=0x00ce}
0x6026…603e Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x003d, t01=0x00e4}
0x603e…6056 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x003d, t01=0x00fc}
0x6056…606e Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x003d, t01=0x0114}
0x606e…6086 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x003d, t01=0x012c}
0x6086…6090 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0144}
0x6090…60d4 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x003d, t01=0x014e}
0x60d4…60e4 (62, 0, 400) Head {h00=0x000c, h01=0x0050, text=»PT EQU *«, t00=0x003e, t01=0x0004}
0x60e4…60f8 Head {h00=0x0010, h01=0x0050, text=» LDR A1,A10 «, t00=0x003e, t01=0x0014}
0x60f8…612a Head {h00=0x002e, h01=0x0050, text=» ANK A1,PTORD FOLLOWING ORDER OR COMMAND? «, t00=0x003e, t01=0x0028}
0x612a…6144 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PT300 YES «, t00=0x003e, t01=0x005a}
0x6144…6178 Head {h00=0x0030, h01=0x0050, text=» LDK A7,NULL FILL WITH NULLS TO END OF FIELD«, t00=0x003e, t01=0x0074}
0x6178…619e Head {h00=0x0022, h01=0x0050, text=» LDR A4,A4 AT POS. ZERO ? DK1 «, t00=0x003e, t01=0x00a8}
0x619e…61c6 Head {h00=0x0024, h01=0x0050, text=» RF(Z) PT210 YES, PROCESS IT DK1«, t00=0x003e, t01=0x00ce}
0x61c6…61da Head {h00=0x0010, h01=0x0050, text=»PT200 EQU * «, t00=0x003e, t01=0x00f6}
0x61da…61fc Head {h00=0x001e, h01=0x0050, text=» CF A14,LINWRP CHECK WRAP «, t00=0x003e, t01=0x010a}
0x61fc…621e Head {h00=0x001e, h01=0x0050, text=» LDR A4,A4 END OF BUFFER? «, t00=0x003e, t01=0x012c}
0x621e…6244 Head {h00=0x0022, h01=0x0050, text=» RF(Z) PT800 YES, KUNTA KINTE «, t00=0x003e, t01=0x014e}
0x6244…625c Head {h00=0x0014, h01=0x0050, text=»PT210 EQU * DK1«, t00=0x003e, t01=0x0174}
0x625c…626e Head {h00=0x000e, h01=0x0050, text=» LCR A2,A3«, t00=0x003e, t01=0x018c}
0x626e…628c Head {h00=0x001a, h01=0x0050, text=» ANK A2,/80 ATTRIBUTE?«, t00=0x003f, t01=0x000e}
0x628c…62a6 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PT400 YES «, t00=0x003f, t01=0x002c}
0x62a6…62ca Head {h00=0x0020, h01=0x0050, text=» SCR A7,A3 STORE NULL CHAR. «, t00=0x003f, t01=0x0046}
0x62ca…62e2 Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x003f, t01=0x006a}
0x62e2…62f4 Head {h00=0x000e, h01=0x0050, text=» ORK A1,1 «, t00=0x003f, t01=0x0082}
0x62f4…630c Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x003f, t01=0x0094}
0x630c…631e Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x003f, t01=0x00ac}
0x631e…6330 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x003f, t01=0x00be}
0x6330…6342 Head {h00=0x000e, h01=0x0050, text=» RB PT200 «, t00=0x003f, t01=0x00d0}
0x6342…635a Head {h00=0x0014, h01=0x0050, text=»PT300 EQU * DK1«, t00=0x003f, t01=0x00e2}
0x635a…6380 Head {h00=0x0022, h01=0x0050, text=» LDR A4,A4 AT POS. ZERO ? DK1 «, t00=0x003f, t01=0x00fa}
0x6380…63aa Head {h00=0x0026, h01=0x0050, text=» RF(Z) PT410 YES, PROCESS IT. DK1 «, t00=0x003f, t01=0x0120}
0x63aa…63be Head {h00=0x0010, h01=0x0050, text=»PT400 EQU * «, t00=0x003f, t01=0x014a}
0x63be…63e0 Head {h00=0x001e, h01=0x0050, text=» CF A14,LINWRP CHECK WRAP «, t00=0x003f, t01=0x015e}
0x63e0…6402 Head {h00=0x001e, h01=0x0050, text=» LDR A4,A4 END OF BUFFER? «, t00=0x003f, t01=0x0180}
0x6402…6426 Head {h00=0x0020, h01=0x0050, text=» RF(Z) PT700 YES OS AND DOS «, t00=0x0040, t01=0x0012}
0x6426…643e Head {h00=0x0014, h01=0x0050, text=»PT410 EQU * DK1«, t00=0x0040, t01=0x0036}
0x643e…645a Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x0040, t01=0x004e}
0x645a…6478 Head {h00=0x001a, h01=0x0050, text=» ANK A2,/80 ATTRIBUTE?«, t00=0x0040, t01=0x006a}
0x6478…6492 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PT500 YES «, t00=0x0040, t01=0x0088}
0x6492…64aa Head {h00=0x0014, h01=0x0050, text=»PT420 EQU * DK1«, t00=0x0040, t01=0x00a2}
0x64aa…64bc Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0040, t01=0x00ba}
0x64bc…64ce Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0040, t01=0x00cc}
0x64ce…64e0 Head {h00=0x000e, h01=0x0050, text=» RB PT400 «, t00=0x0040, t01=0x00de}
0x64e0…64f4 Head {h00=0x0010, h01=0x0050, text=»PT500 EQU * «, t00=0x0040, t01=0x00f0}
0x64f4…651e Head {h00=0x0026, h01=0x0050, text=» LCR A2,A3 GET ATTRIBUTE AGAIN DK1«, t00=0x0040, t01=0x0104}
0x651e…653c Head {h00=0x001a, h01=0x0050, text=» ANK A2,/20 PROTECTED?«, t00=0x0040, t01=0x012e}
0x653c…6556 Head {h00=0x0016, h01=0x0050, text=» RB(NZ) PT420 YES «, t00=0x0040, t01=0x014c}
0x6556…6568 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0040, t01=0x0166}
0x6568…657a Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0040, t01=0x0178}
0x657a…659c Head {h00=0x001e, h01=0x0050, text=» CF A14,LINWRP CHECK WRAP «, t00=0x0040, t01=0x018a}
0x659c…65b0 Head {h00=0x0010, h01=0x0050, text=»PT700 EQU * «, t00=0x0041, t01=0x001c}
0x65b0…65c8 Head {h00=0x0014, h01=0x0050, text=» ORKL A10,PTORD «, t00=0x0041, t01=0x0030}
0x65c8…65dc Head {h00=0x0010, h01=0x0050, text=»PT800 EQU * «, t00=0x0041, t01=0x0048}
0x65dc…65fa Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0041, t01=0x005c}
0x65fa…660a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0041, t01=0x007a}
0x660a…6618 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0041, t01=0x008a}
0x6618…665e Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0041, t01=0x0098}
0x665e…66a4 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0041, t01=0x00de}
0x66a4…66ea Head {h00=0x0042, h01=0x0050, text=»* RA REPEAT TO ADDRESS * «, t00=0x0041, t01=0x0124}
0x66ea…6730 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0041, t01=0x016a}
0x6730…6776 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0042, t01=0x0020}
0x6776…678a Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0042, t01=0x0066}
0x678a…6794 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x007a}
0x6794…67ae Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x0042, t01=0x0084}
0x67ae…67d0 Head {h00=0x001e, h01=0x0050, text=»* A2= CHAR. TO BE REPEATED«, t00=0x0042, t01=0x009e}
0x67d0…67f4 Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x0042, t01=0x00c0}
0x67f4…6812 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0042, t01=0x00e4}
0x6812…6828 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0042, t01=0x0102}
0x6828…6850 Head {h00=0x0024, h01=0x0050, text=»* A6= INTERNAL LINE FLAG ADDRESS«, t00=0x0042, t01=0x0118}
0x6850…6866 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0042, t01=0x0140}
0x6866…6884 Head {h00=0x001a, h01=0x0050, text=»* A9= DC-BUFFER INDEX «, t00=0x0042, t01=0x0156}
0x6884…689c Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0042, t01=0x0174}
0x689c…68bc Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0042, t01=0x018c}
0x68bc…68d4 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0043, t01=0x001c}
0x68d4…68ec Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0043, t01=0x0034}
0x68ec…68f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x004c}
0x68f6…6930 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0043, t01=0x0056}
0x6930…6940 Head {h00=0x000c, h01=0x0050, text=»RA EQU *«, t00=0x0043, t01=0x0090}
0x6940…6962 Head {h00=0x001e, h01=0x0050, text=» LDK A1,IORAA1 NEXT LABEL «, t00=0x0043, t01=0x00a0}
0x6962…697c Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0043, t01=0x00c2}
0x697c…698e Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0043, t01=0x00dc}
0x698e…69aa Head {h00=0x0018, h01=0x0050, text=» RF RA900 FIRST BYTE«, t00=0x0043, t01=0x00ee}
0x69aa…69d6 Head {h00=0x0028, h01=0x0050, text=»RA100 EQU * ENTRY LABEL FROM RETTAB «, t00=0x0043, t01=0x010a}
0x69d6…69f6 Head {h00=0x001c, h01=0x0050, text=» LC A7,CONATT,A2 CONVERT«, t00=0x0043, t01=0x0136}
0x69f6…6a0a Head {h00=0x0010, h01=0x0050, text=» ANK A7,/3F «, t00=0x0043, t01=0x0156}
0x6a0a…6a1c Head {h00=0x000e, h01=0x0050, text=» SLL A7,6 «, t00=0x0043, t01=0x016a}
0x6a1c…6a3e Head {h00=0x001e, h01=0x0050, text=» LDK A1,IORAA2 NEXT LABEL «, t00=0x0043, t01=0x017c}
0x6a3e…6a58 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0044, t01=0x000e}
0x6a58…6a6a Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0044, t01=0x0028}
0x6a6a…6a88 Head {h00=0x001a, h01=0x0050, text=» RF RA900 SECOND BYTE «, t00=0x0044, t01=0x003a}
0x6a88…6ab4 Head {h00=0x0028, h01=0x0050, text=»RA200 EQU * ENTRY LABEL FROM RETTAB «, t00=0x0044, t01=0x0058}
0x6ab4…6acc Head {h00=0x0014, h01=0x0050, text=» LC A2,CONATT,A2«, t00=0x0044, t01=0x0084}
0x6acc…6ae0 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x0044, t01=0x009c}
0x6ae0…6af2 Head {h00=0x000e, h01=0x0050, text=» ORR A7,A2«, t00=0x0044, t01=0x00b0}
0x6af2…6b18 Head {h00=0x0022, h01=0x0050, text=» CWK A7,LBVDU INVALID ADDRESS «, t00=0x0044, t01=0x00c2}
0x6b18…6b32 Head {h00=0x0016, h01=0x0050, text=» RF(NL) RA800 YES «, t00=0x0044, t01=0x00e8}
0x6b32…6b54 Head {h00=0x001e, h01=0x0050, text=» LDK A1,IORACH NEXT LABEL «, t00=0x0044, t01=0x0102}
0x6b54…6b6e Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0044, t01=0x0124}
0x6b6e…6b80 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0044, t01=0x013e}
0x6b80…6b9c Head {h00=0x0018, h01=0x0050, text=» RF RA900 CHAR. BYTE«, t00=0x0044, t01=0x0150}
0x6b9c…6bc8 Head {h00=0x0028, h01=0x0050, text=»RA250 EQU * ENTRY LABEL FROM RETTAB «, t00=0x0044, t01=0x016c}
0x6bc8…6bde Head {h00=0x0012, h01=0x0050, text=» LDK A1,IORDER«, t00=0x0045, t01=0x0008}
0x6bde…6bf8 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0045, t01=0x001e}
0x6bf8…6c0c Head {h00=0x0010, h01=0x0050, text=»RA300 EQU * «, t00=0x0045, t01=0x0038}
0x6c0c…6c32 Head {h00=0x0022, h01=0x0050, text=» SCR A2,A3 STORE IN VDU-BUFFER«, t00=0x0045, t01=0x004c}
0x6c32…6c4a Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x0045, t01=0x0072}
0x6c4a…6c5c Head {h00=0x000e, h01=0x0050, text=» ORK A1,1 «, t00=0x0045, t01=0x008a}
0x6c5c…6c74 Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x0045, t01=0x009c}
0x6c74…6c86 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0045, t01=0x00b4}
0x6c86…6c98 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0045, t01=0x00c6}
0x6c98…6cbc Head {h00=0x0020, h01=0x0050, text=» CF A14,LINWRP CHECK WRAP =1«, t00=0x0045, t01=0x00d8}
0x6cbc…6ce0 Head {h00=0x0020, h01=0x0050, text=» CWR A4,A7 ALL REPEATED? =1 «, t00=0x0045, t01=0x00fc}
0x6ce0…6cfc Head {h00=0x0018, h01=0x0050, text=» RB(NE) RA300 NO =1 «, t00=0x0045, t01=0x0120}
0x6cfc…6d26 Head {h00=0x0026, h01=0x0050, text=» ORKL A10,PTORD INDICATE PT ORDER «, t00=0x0045, t01=0x013c}
0x6d26…6d44 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0045, t01=0x0166}
0x6d44…6d56 Head {h00=0x000e, h01=0x0050, text=» RF RA900 «, t00=0x0045, t01=0x0184}
0x6d56…6d6a Head {h00=0x0010, h01=0x0050, text=»RA800 EQU * «, t00=0x0046, t01=0x0008}
0x6d6a…6d90 Head {h00=0x0022, h01=0x0050, text=» ORKL A10,THROWB THROW IT AWAY«, t00=0x0046, t01=0x001c}
0x6d90…6dae Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 RETURN CODE «, t00=0x0046, t01=0x0042}
0x6dae…6dc2 Head {h00=0x0010, h01=0x0050, text=»RA900 EQU * «, t00=0x0046, t01=0x0060}
0x6dc2…6dd2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0046, t01=0x0074}
0x6dd2…6de0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0046, t01=0x0084}
0x6de0…6e1e Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0046, t01=0x0092}
0x6e1e…6e5c Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0046, t01=0x00d0}
0x6e5c…6e9a Head {h00=0x003a, h01=0x0050, text=»* EUA ERASE UNPRO. TO ADDRESS *«, t00=0x0046, t01=0x010e}
0x6e9a…6ed8 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0046, t01=0x014c}
0x6ed8…6f16 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0046, t01=0x018a}
0x6f16…6f2a Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0047, t01=0x0038}
0x6f2a…6f34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x004c}
0x6f34…6f4e Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x0047, t01=0x0056}
0x6f4e…6f62 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0047, t01=0x0070}
0x6f62…6f78 Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x0047, t01=0x0084}
0x6f78…6f8e Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0047, t01=0x009a}
0x6f8e…6fa4 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0047, t01=0x00b0}
0x6fa4…6fba Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0047, t01=0x00c6}
0x6fba…6fd0 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0047, t01=0x00dc}
0x6fd0…6fe6 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x0047, t01=0x00f2}
0x6fe6…6ffe Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0047, t01=0x0108}
0x6ffe…701e Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0047, t01=0x0120}
0x701e…7036 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0047, t01=0x0140}
0x7036…704e Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0047, t01=0x0158}
0x704e…7058 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0170}
0x7058…7098 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0047, t01=0x017a}
0x7098…70aa Head {h00=0x000e, h01=0x0050, text=»EUA EQU * «, t00=0x0048, t01=0x002a}
0x70aa…70cc Head {h00=0x001e, h01=0x0050, text=» LDK A1,IOEUA1 NEXT LABEL «, t00=0x0048, t01=0x003c}
0x70cc…70e6 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0048, t01=0x005e}
0x70e6…70f8 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0048, t01=0x0078}
0x70f8…7116 Head {h00=0x001a, h01=0x0050, text=» RF EUA900 FIRST BYTE «, t00=0x0048, t01=0x008a}
0x7116…7142 Head {h00=0x0028, h01=0x0050, text=»EUA100 EQU * ENTRY LABEL FROM RETTAB«, t00=0x0048, t01=0x00a8}
0x7142…7162 Head {h00=0x001c, h01=0x0050, text=» LC A7,CONATT,A2 CONVERT«, t00=0x0048, t01=0x00d4}
0x7162…7176 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/3F «, t00=0x0048, t01=0x00f4}
0x7176…7188 Head {h00=0x000e, h01=0x0050, text=» SLL A7,6 «, t00=0x0048, t01=0x0108}
0x7188…71aa Head {h00=0x001e, h01=0x0050, text=» LDK A1,IOEUA2 NEXT LABEL «, t00=0x0048, t01=0x011a}
0x71aa…71c4 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0048, t01=0x013c}
0x71c4…71d6 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0048, t01=0x0156}
0x71d6…71f4 Head {h00=0x001a, h01=0x0050, text=» RF EUA900 SECOND BYTE«, t00=0x0048, t01=0x0168}
0x71f4…7220 Head {h00=0x0028, h01=0x0050, text=»EUA200 EQU * ENTRY LABEL FROM RETTAB«, t00=0x0048, t01=0x0186}
0x7220…7238 Head {h00=0x0014, h01=0x0050, text=» LC A2,CONATT,A2«, t00=0x0049, t01=0x0022}
0x7238…724c Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x0049, t01=0x003a}
0x724c…725e Head {h00=0x000e, h01=0x0050, text=» ORR A7,A2«, t00=0x0049, t01=0x004e}
0x725e…7280 Head {h00=0x001e, h01=0x0050, text=» LDK A1,IORDER NEXT LABEL «, t00=0x0049, t01=0x0060}
0x7280…729a Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0049, t01=0x0082}
0x729a…72be Head {h00=0x0020, h01=0x0050, text=» LDR A1,A7 RESTORE ADDR. =6 «, t00=0x0049, t01=0x009c}
0x72be…72e4 Head {h00=0x0022, h01=0x0050, text=» CWK A1,LBVDU INVALID ADDRESS?«, t00=0x0049, t01=0x00c0}
0x72e4…72fe Head {h00=0x0016, h01=0x0050, text=» RF(NL) EUA800 YES«, t00=0x0049, t01=0x00e6}
0x72fe…731c Head {h00=0x001a, h01=0x0050, text=» LDR A2,A1 SAVE A1 =6 «, t00=0x0049, t01=0x0100}
0x731c…7332 Head {h00=0x0012, h01=0x0050, text=» LDR A1,A4 =6«, t00=0x0049, t01=0x011e}
0x7332…7362 Head {h00=0x002c, h01=0x0050, text=» CF A14,ATMASB SEARCH ATTR. BACKWARDS =6«, t00=0x0049, t01=0x0134}
0x7362…7382 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A2 RESTORE A1 =6«, t00=0x0049, t01=0x0164}
0x7382…73aa Head {h00=0x0024, h01=0x0050, text=» STR A8,A14 SAVE DCBF-POINTER =5«, t00=0x0049, t01=0x0184}
0x73aa…73d6 Head {h00=0x0028, h01=0x0050, text=» SUKL A14,2 ADJUST STACK POINTER =5 «, t00=0x004a, t01=0x001c}
0x73d6…7404 Head {h00=0x002a, h01=0x0050, text=» CF A14,ERASUA ERASE UNPRO. TO ADDRESS«, t00=0x004a, t01=0x0048}
0x7404…7430 Head {h00=0x0028, h01=0x0050, text=» ADKL A14,2 ADJUST STACK POINTER =5 «, t00=0x004a, t01=0x0076}
0x7430…745c Head {h00=0x0028, h01=0x0050, text=» LDR* A8,A14 RESTORE DCBF-POINTER =5«, t00=0x004a, t01=0x00a2}
0x745c…747a Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x004a, t01=0x00ce}
0x747a…74a4 Head {h00=0x0026, h01=0x0050, text=» ORKL A10,PTORD INDICATE PT ORDER «, t00=0x004a, t01=0x00ec}
0x74a4…74b6 Head {h00=0x000e, h01=0x0050, text=» RF EUA900«, t00=0x004a, t01=0x0116}
0x74b6…74ca Head {h00=0x0010, h01=0x0050, text=»EUA800 EQU *«, t00=0x004a, t01=0x0128}
0x74ca…74e8 Head {h00=0x001a, h01=0x0050, text=» ORKL A10,THROWB RUBB.«, t00=0x004a, t01=0x013c}
0x74e8…7506 Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 RETURN CODE «, t00=0x004a, t01=0x015a}
0x7506…751a Head {h00=0x0010, h01=0x0050, text=»EUA900 EQU *«, t00=0x004a, t01=0x0178}
0x751a…752a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x004a, t01=0x018c}
0x752a…7538 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004b, t01=0x000c}
0x7538…7578 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x004b, t01=0x001a}
0x7578…75b8 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x004b, t01=0x005a}
0x75b8…75f8 Head {h00=0x003c, h01=0x0050, text=»* CHAR. < /20 BUT NOT ORDER *«, t00=0x004b, t01=0x009a}
0x75f8…7638 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x004b, t01=0x00da}
0x7638…7678 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x004b, t01=0x011a}
0x7678…768c Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x004b, t01=0x015a}
0x768c…7696 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x016e}
0x7696…76b0 Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x004b, t01=0x0178}
0x76b0…76c4 (76, 0, 400) Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x004c, t01=0x0004}
0x76c4…76e8 Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x004c, t01=0x0018}
0x76e8…7706 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x004c, t01=0x003c}
0x7706…771c Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x004c, t01=0x005a}
0x771c…7744 Head {h00=0x0024, h01=0x0050, text=»* A6= INTERNAL LINE FLAG ADDRESS«, t00=0x004c, t01=0x0070}
0x7744…775a Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x004c, t01=0x0098}
0x775a…7770 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x004c, t01=0x00ae}
0x7770…7788 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x004c, t01=0x00c4}
0x7788…77a8 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x004c, t01=0x00dc}
0x77a8…77c0 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x004c, t01=0x00fc}
0x77c0…77d8 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x004c, t01=0x0114}
0x77d8…77e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x012c}
0x77e2…781a Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x004c, t01=0x0136}
0x781a…782c Head {h00=0x000e, h01=0x0050, text=»ESC EQU * «, t00=0x004c, t01=0x016e}
0x782c…7856 Head {h00=0x0026, h01=0x0050, text=» ORKL A10,LICREC INDICATE COMMAND «, t00=0x004c, t01=0x0180}
0x7856…787a Head {h00=0x0020, h01=0x0050, text=» LDK A1,1 STOP ORDER PROCESS«, t00=0x004d, t01=0x001a}
0x787a…788c Head {h00=0x000e, h01=0x0050, text=» RF CHARET«, t00=0x004d, t01=0x003e}
0x788c…78a0 Head {h00=0x0010, h01=0x0050, text=»INVAL EQU * «, t00=0x004d, t01=0x0050}
0x78a0…78c6 Head {h00=0x0022, h01=0x0050, text=» ORKL A10,/9800 END UNPACKING «, t00=0x004d, t01=0x0064}
0x78c6…78d8 Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x004d, t01=0x008a}
0x78d8…78ea Head {h00=0x000e, h01=0x0050, text=» RF CHARET«, t00=0x004d, t01=0x009c}
0x78ea…78fe Head {h00=0x0010, h01=0x0050, text=»NULCHA EQU *«, t00=0x004d, t01=0x00ae}
0x78fe…790e Head {h00=0x000c, h01=0x0050, text=»NL EQU *«, t00=0x004d, t01=0x00c2}
0x790e…791e Head {h00=0x000c, h01=0x0050, text=»FF EQU *«, t00=0x004d, t01=0x00d2}
0x791e…792e Head {h00=0x000c, h01=0x0050, text=»EM EQU *«, t00=0x004d, t01=0x00e2}
0x792e…793e Head {h00=0x000c, h01=0x0050, text=»CR EQU *«, t00=0x004d, t01=0x00f2}
0x793e…7960 Head {h00=0x001e, h01=0x0050, text=» CF A14,LINWRP CHECK WRAP «, t00=0x004d, t01=0x0102}
0x7960…797e Head {h00=0x001a, h01=0x0050, text=» SCR A2,A3 STORE CHAR.«, t00=0x004d, t01=0x0124}
0x797e…7996 Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x004d, t01=0x0142}
0x7996…79a8 Head {h00=0x000e, h01=0x0050, text=» ORK A1,1 «, t00=0x004d, t01=0x015a}
0x79a8…79c0 Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x004d, t01=0x016c}
0x79c0…79e2 Head {h00=0x001e, h01=0x0050, text=» ANKL A10,/FFFF-PTORD =9 «, t00=0x004d, t01=0x0184}
0x79e2…79f4 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x004e, t01=0x0016}
0x79f4…7a06 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x004e, t01=0x0028}
0x7a06…7a20 Head {h00=0x0016, h01=0x0050, text=» LDK A1,0 CONTINUE«, t00=0x004e, t01=0x003a}
0x7a20…7a34 Head {h00=0x0010, h01=0x0050, text=»CHARET EQU *«, t00=0x004e, t01=0x0054}
0x7a34…7a44 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x004e, t01=0x0068}
0x7a44…7a52 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004e, t01=0x0078}
0x7a52…7a9a Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x004e, t01=0x0086}
0x7a9a…7ae2 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x004e, t01=0x00ce}
0x7ae2…7b2a Head {h00=0x0044, h01=0x0050, text=»* PACKSY PACK DC BUFFER IN SYSTEM MODE *«, t00=0x004e, t01=0x0116}
0x7b2a…7b72 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x004e, t01=0x015e}
0x7b72…7bba Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x004f, t01=0x0016}
0x7bba…7bce Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x004f, t01=0x005e}
0x7bce…7bd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0072}
0x7bd8…7bea Head {h00=0x000e, h01=0x0050, text=»* A2= CHAR«, t00=0x004f, t01=0x007c}
0x7bea…7c0e Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x004f, t01=0x008e}
0x7c0e…7c2c Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x004f, t01=0x00b2}
0x7c2c…7c42 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x004f, t01=0x00d0}
0x7c42…7c58 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x004f, t01=0x00e6}
0x7c58…7c7a Head {h00=0x001e, h01=0x0050, text=»* A8= ADDRESS IN DC-BUFFER«, t00=0x004f, t01=0x00fc}
0x7c7a…7c9a Head {h00=0x001c, h01=0x0050, text=»* A9= INDEX IN DC-BUFFER«, t00=0x004f, t01=0x011e}
0x7c9a…7cba Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x004f, t01=0x013e}
0x7cba…7cd8 Head {h00=0x001a, h01=0x0050, text=»* A12= BUFFER ADDRESS «, t00=0x004f, t01=0x015e}
0x7cd8…7cf0 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x004f, t01=0x017c}
0x7cf0…7cfa (80, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0004}
0x7cfa…7d42 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0050, t01=0x000e}
0x7d42…7d56 Head {h00=0x0010, h01=0x0050, text=»PACKSY EQU *«, t00=0x0050, t01=0x0056}
0x7d56…7d68 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0050, t01=0x006a}
0x7d68…7d82 Head {h00=0x0016, h01=0x0050, text=» LDKL A9,0 COUNTER«, t00=0x0050, t01=0x007c}
0x7d82…7daa Head {h00=0x0024, h01=0x0050, text=» LD A3,CURPOS,A11 GET START POS.«, t00=0x0050, t01=0x0096}
0x7daa…7dd4 Head {h00=0x0026, h01=0x0050, text=» CWK A3,/800 ANY CHAR. ON DISPLAY?«, t00=0x0050, t01=0x00be}
0x7dd4…7dec Head {h00=0x0014, h01=0x0050, text=» RF(E) PASY40 NO«, t00=0x0050, t01=0x00e8}
0x7dec…7e1a Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x0050, t01=0x0100}
0x7e1a…7e2c Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0050, t01=0x012e}
0x7e2c…7e54 Head {h00=0x0024, h01=0x0050, text=» SUR A1,A3 GET LENGTH OF MESSAGE«, t00=0x0050, t01=0x0140}
0x7e54…7e7a Head {h00=0x0022, h01=0x0050, text=» RF(NN) PASY10 NOT WRAP AROUND«, t00=0x0050, t01=0x0168}
0x7e7a…7ea6 Head {h00=0x0028, h01=0x0050, text=» LDKL A1,LBVDU-1 LAST POS. ON SCREEN«, t00=0x0050, t01=0x018e}
0x7ea6…7eca Head {h00=0x0020, h01=0x0050, text=» SUR A1,A3 GET LENGTH AGAIN «, t00=0x0051, t01=0x002a}
0x7eca…7ede Head {h00=0x0010, h01=0x0050, text=»PASY10 EQU *«, t00=0x0051, t01=0x004e}
0x7ede…7f02 Head {h00=0x0020, h01=0x0050, text=» CWK A1,256 ILLEGAL LENGTH? «, t00=0x0051, t01=0x0062}
0x7f02…7f1c Head {h00=0x0016, h01=0x0050, text=» RF(NG) PASY20 NO «, t00=0x0051, t01=0x0086}
0x7f1c…7f3e Head {h00=0x001e, h01=0x0050, text=» LDKL A1,256 ADJUST LENGTH«, t00=0x0051, t01=0x00a0}
0x7f3e…7f52 Head {h00=0x0010, h01=0x0050, text=»PASY20 EQU *«, t00=0x0051, t01=0x00c2}
0x7f52…7f68 Head {h00=0x0012, h01=0x0050, text=» ADKL A3,BVDU «, t00=0x0051, t01=0x00d6}
0x7f68…7f7c Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0051, t01=0x00ec}
0x7f7c…7f90 Head {h00=0x0010, h01=0x0050, text=»PASY30 EQU *«, t00=0x0051, t01=0x0100}
0x7f90…7fb0 Head {h00=0x001c, h01=0x0050, text=» CWR A1,A9 ALL EXAMINED?«, t00=0x0051, t01=0x0114}
0x7fb0…7fca Head {h00=0x0016, h01=0x0050, text=» RF(E) PASY40 YES «, t00=0x0051, t01=0x0134}
0x7fca…7ff4 Head {h00=0x0026, h01=0x0050, text=» LCR A2,A3 GET CHAR IN VDU BUFFER «, t00=0x0051, t01=0x014e}
0x7ff4…8006 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0051, t01=0x0178}
0x8006…8026 Head {h00=0x001c, h01=0x0050, text=» CWK A2,NULL NULL CHAR.?«, t00=0x0051, t01=0x018a}
0x8026…804c Head {h00=0x0022, h01=0x0050, text=» RB(E) PASY30 YES, DON'T STORE«, t00=0x0052, t01=0x001a}
0x804c…807a Head {h00=0x002a, h01=0x0050, text=» CF A14,PDCCH STORE CHAR. IN DC BUFFER«, t00=0x0052, t01=0x0040}
0x807a…808c Head {h00=0x000e, h01=0x0050, text=» RB PASY30«, t00=0x0052, t01=0x006e}
0x808c…80a0 Head {h00=0x0010, h01=0x0050, text=»PASY40 EQU *«, t00=0x0052, t01=0x0080}
0x80a0…80c8 Head {h00=0x0024, h01=0x0050, text=» LDK A1,0 INDICATE LAST IN CHAIN«, t00=0x0052, t01=0x0094}
0x80c8…80ea Head {h00=0x001e, h01=0x0050, text=» CF A14,DCWRIT SEND BUFFER«, t00=0x0052, t01=0x00bc}
0x80ea…8114 Head {h00=0x0026, h01=0x0050, text=» LDR A8,A12 GET BUFFER TO RELEASE «, t00=0x0052, t01=0x00de}
0x8114…813a Head {h00=0x0022, h01=0x0050, text=» CF A14,RELBUF RELEASE BUFFER «, t00=0x0052, t01=0x0108}
0x813a…8146 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0052, t01=0x012e}
0x8146…8156 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0052, t01=0x013a}
0x8156…8164 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0052, t01=0x014a}
0x8164…81aa Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0052, t01=0x0158}
0x81aa…81f0 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0053, t01=0x000e}
0x81f0…8236 Head {h00=0x0042, h01=0x0050, text=»* UNPSYS UNPACK DC BUFFER IN SYSTEM MODE * «, t00=0x0053, t01=0x0054}
0x8236…827c Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0053, t01=0x009a}
0x827c…82c2 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0053, t01=0x00e0}
0x82c2…82d6 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0053, t01=0x0126}
0x82d6…82e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x013a}
0x82e0…82f4 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0053, t01=0x0144}
0x82f4…8318 Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x0053, t01=0x0158}
0x8318…8336 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0053, t01=0x017c}
0x8336…8358 Head {h00=0x001e, h01=0x0050, text=»* A5= LAST IN ROW REL POS «, t00=0x0054, t01=0x000a}
0x8358…8380 Head {h00=0x0024, h01=0x0050, text=»* A6= INTERNAL LINE FLAG ADDRESS«, t00=0x0054, t01=0x002c}
0x8380…83a2 Head {h00=0x001e, h01=0x0050, text=»* A8= ADDRESS IN DC-BUFFER«, t00=0x0054, t01=0x0054}
0x83a2…83c2 Head {h00=0x001c, h01=0x0050, text=»* A9= INDEX IN DC-BUFFER«, t00=0x0054, t01=0x0076}
0x83c2…83da Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0054, t01=0x0096}
0x83da…83fa Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0054, t01=0x00ae}
0x83fa…8412 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0054, t01=0x00ce}
0x8412…842a Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0054, t01=0x00e6}
0x842a…8434 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x00fe}
0x8434…847a Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0054, t01=0x0108}
0x847a…848e Head {h00=0x0010, h01=0x0050, text=»UNPSYS EQU *«, t00=0x0054, t01=0x014e}
0x848e…84a0 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0054, t01=0x0162}
0x84a0…84b8 Head {h00=0x0014, h01=0x0050, text=» LD A1,KBINH,A11«, t00=0x0054, t01=0x0174}
0x84b8…84ca Head {h00=0x000e, h01=0x0050, text=» ORK A1,3 «, t00=0x0054, t01=0x018c}
0x84ca…84e2 Head {h00=0x0014, h01=0x0050, text=» ST A1,KBINH,A11«, t00=0x0055, t01=0x000e}
0x84e2…84f8 Head {h00=0x0012, h01=0x0050, text=» CF A14,LMP4ON«, t00=0x0055, t01=0x0026}
0x84f8…8526 Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x0055, t01=0x003c}
0x8526…8548 Head {h00=0x001e, h01=0x0050, text=» LDR A3,A4 CURSOR ADDRESS «, t00=0x0055, t01=0x006a}
0x8548…855e Head {h00=0x0012, h01=0x0050, text=» ADKL A3,BVDU «, t00=0x0055, t01=0x008c}
0x855e…8584 Head {h00=0x0022, h01=0x0050, text=» ADR A3,A11 VDU BUFFER ADDRESS«, t00=0x0055, t01=0x00a2}
0x8584…85b4 Head {h00=0x002c, h01=0x0050, text=» LD A8,BUFPNT,A11 GET DC BUFFER ADDRESS «, t00=0x0055, t01=0x00c8}
0x85b4…85da Head {h00=0x0022, h01=0x0050, text=» SUR A9,A9 INDEX IN DC BUFFER «, t00=0x0055, t01=0x00f8}
0x85da…85ee Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x0055, t01=0x011e}
0x85ee…8604 Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x0055, t01=0x0132}
0x8604…862e Head {h00=0x0026, h01=0x0050, text=» CF A14,LINE GET INTERNAL LINEFLAG«, t00=0x0055, t01=0x0148}
0x862e…8642 Head {h00=0x0010, h01=0x0050, text=»UNPS05 EQU *«, t00=0x0055, t01=0x0172}
0x8642…8670 Head {h00=0x002a, h01=0x0050, text=» CF A14,GDCCH GET CHAR. IN DC BUFFER «, t00=0x0055, t01=0x0186}
0x8670…8692 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 ANYTHING LEFT? «, t00=0x0056, t01=0x0024}
0x8692…86ac Head {h00=0x0016, h01=0x0050, text=» RF(NZ) UNPS60 NO «, t00=0x0056, t01=0x0046}
0x86ac…86c6 Head {h00=0x0016, h01=0x0050, text=» CWK A2,/31 BIND? «, t00=0x0056, t01=0x0060}
0x86c6…86e8 Head {h00=0x001e, h01=0x0050, text=» RF(E) UNPS50 YES,PERHAPS «, t00=0x0056, t01=0x007a}
0x86e8…86fc Head {h00=0x0010, h01=0x0050, text=»UNPS07 EQU *«, t00=0x0056, t01=0x009c}
0x86fc…8716 Head {h00=0x0016, h01=0x0050, text=» CWK A2,/20 ORDER?«, t00=0x0056, t01=0x00b0}
0x8716…8730 Head {h00=0x0016, h01=0x0050, text=» RF(NL) UNPS40 NO «, t00=0x0056, t01=0x00ca}
0x8730…874e Head {h00=0x001a, h01=0x0050, text=» CWK A2,/0A NEW LINE? «, t00=0x0056, t01=0x00e4}
0x874e…8768 Head {h00=0x0016, h01=0x0050, text=» RF(NE) UNPS10 NO «, t00=0x0056, t01=0x0102}
0x8768…8790 Head {h00=0x0024, h01=0x0050, text=» CF A14,NLROUT PERFORM NEW LINE «, t00=0x0056, t01=0x011c}
0x8790…87a2 Head {h00=0x000e, h01=0x0050, text=» RB UNPS05«, t00=0x0056, t01=0x0144}
0x87a2…87b6 Head {h00=0x0010, h01=0x0050, text=»UNPS10 EQU *«, t00=0x0056, t01=0x0156}
0x87b6…87ce Head {h00=0x0014, h01=0x0050, text=» CWK A2,/1C IFS?«, t00=0x0056, t01=0x016a}
0x87ce…87e8 Head {h00=0x0016, h01=0x0050, text=» RF(NE) UNPS20 NO «, t00=0x0056, t01=0x0182}
0x87e8…880a Head {h00=0x001e, h01=0x0050, text=» LDK A2,/2A REPLACE WITH *«, t00=0x0057, t01=0x000c}
0x880a…881c Head {h00=0x000e, h01=0x0050, text=» RF UNPS40«, t00=0x0057, t01=0x002e}
0x881c…8830 Head {h00=0x0010, h01=0x0050, text=»UNPS20 EQU *«, t00=0x0057, t01=0x0040}
0x8830…8848 Head {h00=0x0014, h01=0x0050, text=» CWK A2,/1E IRS?«, t00=0x0057, t01=0x0054}
0x8848…8862 Head {h00=0x0016, h01=0x0050, text=» RF(NE) UNPS30 NO «, t00=0x0057, t01=0x006c}
0x8862…8884 Head {h00=0x001e, h01=0x0050, text=» LDK A2,/3B REPLACE WITH ;«, t00=0x0057, t01=0x0086}
0x8884…8896 Head {h00=0x000e, h01=0x0050, text=» RF UNPS40«, t00=0x0057, t01=0x00a8}
0x8896…88aa Head {h00=0x0010, h01=0x0050, text=»UNPS30 EQU *«, t00=0x0057, t01=0x00ba}
0x88aa…88c4 Head {h00=0x0016, h01=0x0050, text=» CWK A2,NULL NULL?«, t00=0x0057, t01=0x00ce}
0x88c4…88de Head {h00=0x0016, h01=0x0050, text=» RF(NE) UNPS40 NO «, t00=0x0057, t01=0x00e8}
0x88de…8904 Head {h00=0x0022, h01=0x0050, text=» LDK A2,/20 REPLACE WITH SPACE«, t00=0x0057, t01=0x0102}
0x8904…8918 Head {h00=0x0010, h01=0x0050, text=»UNPS40 EQU *«, t00=0x0057, t01=0x0128}
0x8918…893a Head {h00=0x001e, h01=0x0050, text=» CF A14,LINWRP CHECK WRAP «, t00=0x0057, t01=0x013c}
0x893a…8960 Head {h00=0x0022, h01=0x0050, text=» SCR A2,A3 STORE IN VDU BUFFER«, t00=0x0057, t01=0x015e}
0x8960…8978 Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x0057, t01=0x0184}
0x8978…898a Head {h00=0x000e, h01=0x0050, text=» ORK A1,1 «, t00=0x0058, t01=0x000c}
0x898a…89a2 Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x0058, t01=0x001e}
0x89a2…89b4 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0058, t01=0x0036}
0x89b4…89c6 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0058, t01=0x0048}
0x89c6…89d8 Head {h00=0x000e, h01=0x0050, text=» RB UNPS05«, t00=0x0058, t01=0x005a}
0x89d8…89ec Head {h00=0x0010, h01=0x0050, text=»UNPS50 EQU *«, t00=0x0058, t01=0x006c}
0x89ec…8a02 Head {h00=0x0012, h01=0x0050, text=» CF A14,GDCCH «, t00=0x0058, t01=0x0080}
0x8a02…8a24 Head {h00=0x001e, h01=0x0050, text=» ANK A2,/FE SHURE OF BIND?«, t00=0x0058, t01=0x0096}
0x8a24…8a40 Head {h00=0x0018, h01=0x0050, text=» RF(Z) UNPS55 ALMOST«, t00=0x0058, t01=0x00b8}
0x8a40…8a52 Head {h00=0x000e, h01=0x0050, text=» SUKL A8,2«, t00=0x0058, t01=0x00d4}
0x8a52…8a64 Head {h00=0x000e, h01=0x0050, text=» SUKL A9,2«, t00=0x0058, t01=0x00e6}
0x8a64…8a7a Head {h00=0x0012, h01=0x0050, text=» CF A14,GDCCH «, t00=0x0058, t01=0x00f8}
0x8a7a…8a8c Head {h00=0x000e, h01=0x0050, text=» RB UNPS07«, t00=0x0058, t01=0x010e}
0x8a8c…8aa0 Head {h00=0x0010, h01=0x0050, text=»UNPS55 EQU *«, t00=0x0058, t01=0x0120}
0x8aa0…8aca Head {h00=0x0026, h01=0x0050, text=» LDK A1,MYJOB INDICATE MY JOB MODE«, t00=0x0058, t01=0x0134}
0x8aca…8af4 Head {h00=0x0026, h01=0x0050, text=» ADKL A1,/8000 NEW MODE ACTIVATION«, t00=0x0058, t01=0x015e}
0x8af4…8b0e Head {h00=0x0016, h01=0x0050, text=» ST A1,SNAMOD,A11 «, t00=0x0058, t01=0x0188}
0x8b0e…8b2c Head {h00=0x001a, h01=0x0050, text=» LDKL A10,1 NO DISPLAY«, t00=0x0059, t01=0x0012}
0x8b2c…8b3e Head {h00=0x000e, h01=0x0050, text=» RF UNPS70«, t00=0x0059, t01=0x0030}
0x8b3e…8b52 Head {h00=0x0010, h01=0x0050, text=»UNPS60 EQU *«, t00=0x0059, t01=0x0042}
0x8b52…8b6a Head {h00=0x0014, h01=0x0050, text=» LDKL A5,LBVDU+1«, t00=0x0059, t01=0x0056}
0x8b6a…8b7c Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x0059, t01=0x006e}
0x8b7c…8bae Head {h00=0x002e, h01=0x0050, text=» CF A14,STOINF SAVE NEW SCREEN INFORMATION«, t00=0x0059, t01=0x0080}
0x8bae…8bc2 Head {h00=0x0010, h01=0x0050, text=» LDKL A10,0 «, t00=0x0059, t01=0x00b2}
0x8bc2…8bd6 Head {h00=0x0010, h01=0x0050, text=»UNPS70 EQU *«, t00=0x0059, t01=0x00c6}
0x8bd6…8c06 Head {h00=0x002c, h01=0x0050, text=» LD A8,BUFPNT,A11 GET BUFFER TO RELEASE «, t00=0x0059, t01=0x00da}
0x8c06…8c2c Head {h00=0x0022, h01=0x0050, text=» CF A14,RELBUF RELEASE BUFFER «, t00=0x0059, t01=0x010a}
0x8c2c…8c38 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0059, t01=0x0130}
0x8c38…8c48 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0059, t01=0x013c}
0x8c48…8c56 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0059, t01=0x014c}
0x8c56…8c9a Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0059, t01=0x015a}
0x8c9a…8cde Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x005a, t01=0x000e}
0x8cde…8d16 Head {h00=0x0034, h01=0x0050, text=»* GETNXT GET AND CHECK NEXT BUFFER «, t00=0x005a, t01=0x0052}
0x8d16…8d5a Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x005a, t01=0x008a}
0x8d5a…8d9e Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x005a, t01=0x00ce}
0x8d9e…8db2 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x005a, t01=0x0112}
0x8db2…8dbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0126}
0x8dbc…8dd6 Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x005a, t01=0x0130}
0x8dd6…8df6 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x005a, t01=0x014a}
0x8df6…8e14 Head {h00=0x001a, h01=0x0050, text=»* A12= BUFFER ADDRESS «, t00=0x005a, t01=0x016a}
0x8e14…8e2c Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x005a, t01=0x0188}
0x8e2c…8e36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0010}
0x8e36…8e7a Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x005b, t01=0x001a}
0x8e7a…8e8e Head {h00=0x0010, h01=0x0050, text=»GETNXT EQU *«, t00=0x005b, t01=0x005e}
0x8e8e…8ea0 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x005b, t01=0x0072}
0x8ea0…8ece Head {h00=0x002a, h01=0x0050, text=» CF A14,SAVE2 SAVE UNPACK INFORMATION «, t00=0x005b, t01=0x0084}
0x8ece…8efe Head {h00=0x002c, h01=0x0050, text=» LD A8,BUFPNT,A11 GET BUFFER TO RELEASE «, t00=0x005b, t01=0x00b2}
0x8efe…8f24 Head {h00=0x0022, h01=0x0050, text=» CF A14,RELBUF RELEASE BUFFER «, t00=0x005b, t01=0x00e2}
0x8f24…8f3a Head {h00=0x0012, h01=0x0050, text=» IFT DISHOW=2 «, t00=0x005b, t01=0x0108}
0x8f3a…8f52 Head {h00=0x0014, h01=0x0050, text=» LC A1,TCT01,A11«, t00=0x005b, t01=0x011e}
0x8f52…8f78 Head {h00=0x0022, h01=0x0050, text=» CCK A1,VDUCOD PRINTER UNPACK?«, t00=0x005b, t01=0x0136}
0x8f78…8f92 Head {h00=0x0016, h01=0x0050, text=» RF(NE) GETC10 YES«, t00=0x005b, t01=0x015c}
0x8f92…8fc0 Head {h00=0x002a, h01=0x0050, text=» CF A14,DISMOD DISPLAY MODIFIED FIELDS«, t00=0x005b, t01=0x0176}
0x8fc0…8fcc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005c, t01=0x0014}
0x8fcc…8fde Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x005c, t01=0x0020}
0x8fde…8ff2 Head {h00=0x0010, h01=0x0050, text=»GETC10 EQU *«, t00=0x005c, t01=0x0032}
0x8ff2…9012 Head {h00=0x001c, h01=0x0050, text=» CF A14,WAIT SYNCHRONIZE«, t00=0x005c, t01=0x0046}
0x9012…9038 Head {h00=0x0022, h01=0x0050, text=» LD A2,ECBEL,A8 SAVE LENGTH =4«, t00=0x005c, t01=0x0066}
0x9038…9056 Head {h00=0x001a, h01=0x0050, text=» ST A2,DCLENG,A11 . =4«, t00=0x005c, t01=0x008c}
0x9056…9068 Head {h00=0x000e, h01=0x0050, text=» LDR A9,A1«, t00=0x005c, t01=0x00aa}
0x9068…907e Head {h00=0x0012, h01=0x0050, text=» CF A14,REST2 «, t00=0x005c, t01=0x00bc}
0x907e…90a0 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A9 GET RETURN CODE«, t00=0x005c, t01=0x00d2}
0x90a0…90cc Head {h00=0x0028, h01=0x0050, text=» SRC A1,1 FIRST OR MODDLE IN CHAIN? «, t00=0x005c, t01=0x00f4}
0x90cc…90e6 Head {h00=0x0016, h01=0x0050, text=» RF(NN) GETC30 NO «, t00=0x005c, t01=0x0120}
0x90e6…910e Head {h00=0x0024, h01=0x0050, text=» LDR A1,A10 GET INTERNAL STATUS «, t00=0x005c, t01=0x013a}
0x910e…913e Head {h00=0x002c, h01=0x0050, text=» ANKL A1,LICREC LAST IN CHAIN RECEIVED? «, t00=0x005c, t01=0x0162}
0x913e…9156 (93, 0, 400) Head {h00=0x0014, h01=0x0050, text=» RF(Z) GETC60 NO«, t00=0x005d, t01=0x0004}
0x9156…916e Head {h00=0x0014, h01=0x0050, text=» LC A1,TCT01,A11«, t00=0x005d, t01=0x001c}
0x916e…9194 Head {h00=0x0022, h01=0x0050, text=» CCK A1,VDUCOD PRINTER UNPACK?«, t00=0x005d, t01=0x0034}
0x9194…91ae Head {h00=0x0016, h01=0x0050, text=» RF(NE) GETC20 YES«, t00=0x005d, t01=0x005a}
0x91ae…91e2 Head {h00=0x0030, h01=0x0050, text=» CF A14,P2WCC TAKE CARE OF WCC AFTER UPDATE «, t00=0x005d, t01=0x0074}
0x91e2…91f6 Head {h00=0x0010, h01=0x0050, text=»GETC20 EQU *«, t00=0x005d, t01=0x00a8}
0x91f6…9222 Head {h00=0x0028, h01=0x0050, text=» XRKL A10,LICREC RESET LAST IN CHAIN«, t00=0x005d, t01=0x00bc}
0x9222…9244 Head {h00=0x001e, h01=0x0050, text=» ORKL A10,NEWCH NEW CHAIN «, t00=0x005d, t01=0x00e8}
0x9244…9256 Head {h00=0x000e, h01=0x0050, text=» RF GETC60«, t00=0x005d, t01=0x010a}
0x9256…926a Head {h00=0x0010, h01=0x0050, text=»GETC30 EQU *«, t00=0x005d, t01=0x011c}
0x926a…9294 Head {h00=0x0026, h01=0x0050, text=» SRC A1,1 LAST IN CHAIN RECEIVED? «, t00=0x005d, t01=0x0130}
0x9294…92ae Head {h00=0x0016, h01=0x0050, text=» RF(NN) GETC90 NO «, t00=0x005d, t01=0x015a}
0x92ae…92c2 Head {h00=0x0010, h01=0x0050, text=»GETC40 EQU *«, t00=0x005d, t01=0x0174}
0x92c2…92ea Head {h00=0x0024, h01=0x0050, text=» LDR A1,A10 GET INTERNAL STATUS «, t00=0x005d, t01=0x0188}
0x92ea…931a Head {h00=0x002c, h01=0x0050, text=» ORKL A10,LICREC LAST IN CHAIN RECEIVED «, t00=0x005e, t01=0x0020}
0x931a…934a Head {h00=0x002c, h01=0x0050, text=» ANKL A1,LICREC LAST IN CHAIN RECEIVED? «, t00=0x005e, t01=0x0050}
0x934a…9362 Head {h00=0x0014, h01=0x0050, text=» RF(Z) GETC60 NO«, t00=0x005e, t01=0x0080}
0x9362…9396 Head {h00=0x0030, h01=0x0050, text=» CF A14,P2WCC TAKE CARE OF WCC AFTER UPDATE «, t00=0x005e, t01=0x0098}
0x9396…93b8 Head {h00=0x001e, h01=0x0050, text=» ORKL A10,NEWCH NEW CHAIN «, t00=0x005e, t01=0x00cc}
0x93b8…93cc Head {h00=0x0010, h01=0x0050, text=»GETC60 EQU *«, t00=0x005e, t01=0x00ee}
0x93cc…93fa Head {h00=0x002a, h01=0x0050, text=» ST A12,BUFPNT,A11 SAVE BUFFER ADDRESS«, t00=0x005e, t01=0x0102}
0x93fa…9424 Head {h00=0x0026, h01=0x0050, text=» CF A14,SAVE2 SAVE INFORMATION =2 «, t00=0x005e, t01=0x0130}
0x9424…944a Head {h00=0x0022, h01=0x0050, text=» CF A14,GETBUF GET NEW BUFFER «, t00=0x005e, t01=0x015a}
0x944a…9470 Head {h00=0x0022, h01=0x0050, text=» LDR A3,A8 GET BUFFER ADDRESS «, t00=0x005e, t01=0x0180}
0x9470…9498 Head {h00=0x0024, h01=0x0050, text=» CF A14,READNW READ WITH NO WAIT«, t00=0x005f, t01=0x0016}
0x9498…94c8 Head {h00=0x002c, h01=0x0050, text=» CF A14,REST2 RESTORE UNPACK INFORMATION«, t00=0x005f, t01=0x003e}
0x94c8…94dc Head {h00=0x0010, h01=0x0050, text=» LDR A1,A10 «, t00=0x005f, t01=0x006e}
0x94dc…94fe Head {h00=0x001e, h01=0x0050, text=» ANKL A1,NEWCH NEW CHAIN? «, t00=0x005f, t01=0x0082}
0x94fe…9516 Head {h00=0x0014, h01=0x0050, text=» RF(Z) GETC80 NO«, t00=0x005f, t01=0x00a4}
0x9516…952c Head {h00=0x0012, h01=0x0050, text=» IFT DISHOW=1 «, t00=0x005f, t01=0x00bc}
0x952c…954a Head {h00=0x001a, h01=0x0050, text=» XRKL A10,NEWCH RESET «, t00=0x005f, t01=0x00d2}
0x954a…9562 Head {h00=0x0014, h01=0x0050, text=» LC A1,TCT01,A11«, t00=0x005f, t01=0x00f0}
0x9562…9578 Head {h00=0x0012, h01=0x0050, text=» CCK A1,VDUCOD«, t00=0x005f, t01=0x0108}
0x9578…958e Head {h00=0x0012, h01=0x0050, text=» RF(NE) GETC70«, t00=0x005f, t01=0x011e}
0x958e…95a4 Head {h00=0x0012, h01=0x0050, text=» CF A14,SAVE2 «, t00=0x005f, t01=0x0134}
0x95a4…95ba Head {h00=0x0012, h01=0x0050, text=» CF A14,DISMOD«, t00=0x005f, t01=0x014a}
0x95ba…95d0 Head {h00=0x0012, h01=0x0050, text=» CF A14,REST2 «, t00=0x005f, t01=0x0160}
0x95d0…95dc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005f, t01=0x0176}
0x95dc…95ee Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x005f, t01=0x0182}
0x95ee…9602 (96, 0, 400) Head {h00=0x0010, h01=0x0050, text=»GETC70 EQU *«, t00=0x0060, t01=0x0004}
0x9602…9624 Head {h00=0x001e, h01=0x0050, text=» LDK A1,ICOMN1 NEXT LABEL «, t00=0x0060, t01=0x0018}
0x9624…963e Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0060, t01=0x003a}
0x963e…9652 Head {h00=0x0010, h01=0x0050, text=»GETC80 EQU *«, t00=0x0060, t01=0x0054}
0x9652…966c Head {h00=0x0016, h01=0x0050, text=» LD A8,BUFPNT,A11 «, t00=0x0060, t01=0x0068}
0x966c…967e Head {h00=0x000e, h01=0x0050, text=» SUR A9,A9«, t00=0x0060, t01=0x0082}
0x967e…969c Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETUR N CODE«, t00=0x0060, t01=0x0094}
0x969c…96b0 Head {h00=0x0010, h01=0x0050, text=»GETC90 EQU *«, t00=0x0060, t01=0x00b2}
0x96b0…96bc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0060, t01=0x00c6}
0x96bc…96cc Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0060, t01=0x00d2}
0x96cc…96da Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0060, t01=0x00e2}
0x96da…9720 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0060, t01=0x00f0}
0x9720…9766 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0060, t01=0x0136}
0x9766…97ac Head {h00=0x0042, h01=0x0050, text=»* PUTCHA PUT CHAR. IN DC BUFFER * «, t00=0x0060, t01=0x017c}
0x97ac…97f2 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0061, t01=0x0032}
0x97f2…9838 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0061, t01=0x0078}
0x9838…984c Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0061, t01=0x00be}
0x984c…9856 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x00d2}
0x9856…9870 Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x0061, t01=0x00dc}
0x9870…9890 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0061, t01=0x00f6}
0x9890…98a8 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0061, t01=0x0116}
0x98a8…98c0 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0061, t01=0x012e}
0x98c0…98ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x0146}
0x98ca…9910 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0061, t01=0x0150}
0x9910…9924 Head {h00=0x0010, h01=0x0050, text=»PUTCHA EQU *«, t00=0x0062, t01=0x0008}
0x9924…9944 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A1 SBA TO STORE?«, t00=0x0062, t01=0x001c}
0x9944…995e Head {h00=0x0016, h01=0x0050, text=» RF(N) PUTC10 YES «, t00=0x0062, t01=0x003c}
0x995e…9986 Head {h00=0x0024, h01=0x0050, text=» CWK A9,BUFFL+BUFFL BUFFER FULL?«, t00=0x0062, t01=0x0056}
0x9986…99a0 Head {h00=0x0016, h01=0x0050, text=» RF(NL) PUTC20 YES«, t00=0x0062, t01=0x007e}
0x99a0…99b2 Head {h00=0x000e, h01=0x0050, text=» RF PUTC30«, t00=0x0062, t01=0x0098}
0x99b2…99c6 Head {h00=0x0010, h01=0x0050, text=»PUTC10 EQU *«, t00=0x0062, t01=0x00aa}
0x99c6…99e4 Head {h00=0x001a, h01=0x0050, text=» LDKL A1,BUFFL+BUFFL-3«, t00=0x0062, t01=0x00be}
0x99e4…9a10 Head {h00=0x0028, h01=0x0050, text=» SUR A1,A9 ROOM FOR SBA AND ADDRESS?«, t00=0x0062, t01=0x00dc}
0x9a10…9a2a Head {h00=0x0016, h01=0x0050, text=» RF(NN) PUTC30 YES«, t00=0x0062, t01=0x0108}
0x9a2a…9a3e Head {h00=0x0010, h01=0x0050, text=»PUTC20 EQU *«, t00=0x0062, t01=0x0122}
0x9a3e…9a50 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0062, t01=0x0136}
0x9a50…9a7c Head {h00=0x0028, h01=0x0050, text=» CF A14,SAVE2 SAVE PACK INFORMATION «, t00=0x0062, t01=0x0148}
0x9a7c…9aa8 Head {h00=0x0028, h01=0x0050, text=» LDK A1,1 INDICATE NOT LAST IN CHAIN«, t00=0x0062, t01=0x0174}
0x9aa8…9ace Head {h00=0x0022, h01=0x0050, text=» CF A14,DCWRIT WRITE DC BUFFER«, t00=0x0063, t01=0x0010}
0x9ace…9ae0 Head {h00=0x000e, h01=0x0050, text=» LDR A9,A1«, t00=0x0063, t01=0x0036}
0x9ae0…9af6 Head {h00=0x0012, h01=0x0050, text=» CF A14,REST2 «, t00=0x0063, t01=0x0048}
0x9af6…9b1a Head {h00=0x0020, h01=0x0050, text=» LDR A9,A9 TRANSMISSION OK? «, t00=0x0063, t01=0x005e}
0x9b1a…9b34 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PUTC90 NO «, t00=0x0063, t01=0x0082}
0x9b34…9b54 Head {h00=0x001c, h01=0x0050, text=» SUR A9,A9 BUFFER INDEX «, t00=0x0063, t01=0x009c}
0x9b54…9b76 Head {h00=0x001e, h01=0x0050, text=» LDR A8,A12 BUFFER ADDRESS«, t00=0x0063, t01=0x00bc}
0x9b76…9b82 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0063, t01=0x00de}
0x9b82…9b94 Head {h00=0x000e, h01=0x0050, text=» IFF SNA=1«, t00=0x0063, t01=0x00ea}
0x9b94…9baa Head {h00=0x0012, h01=0x0050, text=» CF A14,ERROR «, t00=0x0063, t01=0x00fc}
0x9baa…9bbc Head {h00=0x000e, h01=0x0050, text=» LDKL A1,*«, t00=0x0063, t01=0x0112}
0x9bbc…9bd4 Head {h00=0x0014, h01=0x0050, text=» ST A1,REGI,A11 «, t00=0x0063, t01=0x0124}
0x9bd4…9be0 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0063, t01=0x013c}
0x9be0…9bf0 Head {h00=0x000c, h01=0x0050, text=» DATA 3 «, t00=0x0063, t01=0x0148}
0x9bf0…9bfc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0063, t01=0x0158}
0x9bfc…9c10 Head {h00=0x0010, h01=0x0050, text=»PUTC30 EQU *«, t00=0x0063, t01=0x0164}
0x9c10…9c3c Head {h00=0x0028, h01=0x0050, text=» CF A14,PDCCH PUT CHAR. IN DC BUFFER«, t00=0x0063, t01=0x0178}
0x9c3c…9c5a Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0064, t01=0x0014}
0x9c5a…9c6e Head {h00=0x0010, h01=0x0050, text=»PUTC90 EQU *«, t00=0x0064, t01=0x0032}
0x9c6e…9c7e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0064, t01=0x0046}
0x9c7e…9c8c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0064, t01=0x0056}
0x9c8c…9cc6 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0064, t01=0x0064}
0x9cc6…9d00 Head {h00=0x0036, h01=0x0050, text=»* *«, t00=0x0064, t01=0x009e}
0x9d00…9d3a Head {h00=0x0036, h01=0x0050, text=»* PDCCH PUT CHAR. IN DC BUFFER *«, t00=0x0064, t01=0x00d8}
0x9d3a…9d74 Head {h00=0x0036, h01=0x0050, text=»* *«, t00=0x0064, t01=0x0112}
0x9d74…9dae Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0064, t01=0x014c}
0x9dae…9dc2 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0064, t01=0x0186}
0x9dc2…9dcc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x000a}
0x9dcc…9de0 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0065, t01=0x0014}
0x9de0…9df6 Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x0065, t01=0x0028}
0x9df6…9e0c Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0065, t01=0x003e}
0x9e0c…9e22 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0065, t01=0x0054}
0x9e22…9e38 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0065, t01=0x006a}
0x9e38…9e5a Head {h00=0x001e, h01=0x0050, text=»* A8= ADDRESS IN DC-BUFFER«, t00=0x0065, t01=0x0080}
0x9e5a…9e78 Head {h00=0x001a, h01=0x0050, text=»* A9= DC-BUFFER INDEX «, t00=0x0065, t01=0x00a2}
0x9e78…9e90 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0065, t01=0x00c0}
0x9e90…9ea8 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0065, t01=0x00d8}
0x9ea8…9ec0 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0065, t01=0x00f0}
0x9ec0…9ed8 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0065, t01=0x0108}
0x9ed8…9ee2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0120}
0x9ee2…9f1e Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0065, t01=0x012a}
0x9f1e…9f32 Head {h00=0x0010, h01=0x0050, text=»PDCCH EQU * «, t00=0x0065, t01=0x0166}
0x9f32…9f58 Head {h00=0x0022, h01=0x0050, text=» CWK A9,BUFFL+BUFFL OVERFLOW? «, t00=0x0065, t01=0x017a}
0x9f58…9f72 Head {h00=0x0016, h01=0x0050, text=» RF(NL) PDC100 YES«, t00=0x0066, t01=0x0010}
0x9f72…9f86 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0066, t01=0x002a}
0x9f86…9f9c Head {h00=0x0012, h01=0x0050, text=» IFT EBCDIC=1 «, t00=0x0066, t01=0x003e}
0x9f9c…9fca Head {h00=0x002a, h01=0x0050, text=»* CONVERSION DELETED * DK 82-03-30 *«, t00=0x0066, t01=0x0054}
0x9fca…9fd6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0066, t01=0x0082}
0x9fd6…9ffc Head {h00=0x0022, h01=0x0050, text=» SCR A2,A8 STORE IN DC-BUFFER «, t00=0x0066, t01=0x008e}
0x9ffc…a00e Head {h00=0x000e, h01=0x0050, text=» ADKL A8,1«, t00=0x0066, t01=0x00b4}
0xa00e…a020 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0066, t01=0x00c6}
0xa020…a034 Head {h00=0x0010, h01=0x0050, text=»PDC100 EQU *«, t00=0x0066, t01=0x00d8}
0xa034…a044 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0066, t01=0x00ec}
0xa044…a052 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0066, t01=0x00fc}
0xa052…a09a Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0066, t01=0x010a}
0xa09a…a0e2 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0066, t01=0x0152}
0xa0e2…a12a Head {h00=0x0044, h01=0x0050, text=»* GDCCH GET CHAR. IN DC BUFFER * «, t00=0x0067, t01=0x000a}
0xa12a…a172 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0067, t01=0x0052}
0xa172…a1ba Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0067, t01=0x009a}
0xa1ba…a1ce Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0067, t01=0x00e2}
0xa1ce…a1d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x00f6}
0xa1d8…a1f2 Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x0067, t01=0x0100}
0xa1f2…a206 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0067, t01=0x011a}
0xa206…a22a Head {h00=0x0020, h01=0x0050, text=»* A3= POINTER IN VDU BUFFER «, t00=0x0067, t01=0x012e}
0xa22a…a240 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0067, t01=0x0152}
0xa240…a256 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0067, t01=0x0168}
0xa256…a26c Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0067, t01=0x017e}
0xa26c…a28e (104, 0, 398) Head {h00=0x001e, h01=0x0050, text=»* A8= ADDRESS IN DC-BUFFER«, t00=0x0068, t01=0x0004}
0xa28e…a2ac Head {h00=0x001a, h01=0x0050, text=»* A9= DC-BUFFER INDEX «, t00=0x0068, t01=0x0026}
0xa2ac…a2c4 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0068, t01=0x0044}
0xa2c4…a2e4 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0068, t01=0x005c}
0xa2e4…a2fc Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0068, t01=0x007c}
0xa2fc…a314 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0068, t01=0x0094}
0xa314…a31e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x00ac}
0xa31e…a35a Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0068, t01=0x00b6}
0xa35a…a36e Head {h00=0x0010, h01=0x0050, text=»GDCCH EQU * «, t00=0x0068, t01=0x00f2}
0xa36e…a38c Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 PRESET ERROR«, t00=0x0068, t01=0x0106}
0xa38c…a3b6 Head {h00=0x0026, h01=0x0050, text=» CW A9,DCLENG,A11 BUFFER EMPTIED? «, t00=0x0068, t01=0x0124}
0xa3b6…a3d0 Head {h00=0x0016, h01=0x0050, text=» RF(NL) GDCC90 YES«, t00=0x0068, t01=0x014e}
0xa3d0…a3e2 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0068, t01=0x0168}
0xa3e2…a3fe Head {h00=0x0018, h01=0x0050, text=» LCR A2,A8 GET CHAR.«, t00=0x0068, t01=0x017a}
0xa3fe…a412 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0069, t01=0x0008}
0xa412…a428 Head {h00=0x0012, h01=0x0050, text=» IFT EBCDIC=1 «, t00=0x0069, t01=0x001c}
0xa428…a460 Head {h00=0x0034, h01=0x0050, text=»* EBCDIC-ASCII CONVERSION DELETED PR. 8625,DK* «, t00=0x0069, t01=0x0032}
0xa460…a46c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0069, t01=0x006a}
0xa46c…a47e Head {h00=0x000e, h01=0x0050, text=» ADKL A8,1«, t00=0x0069, t01=0x0076}
0xa47e…a490 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0069, t01=0x0088}
0xa490…a4a4 Head {h00=0x0010, h01=0x0050, text=»GDCC90 EQU *«, t00=0x0069, t01=0x009a}
0xa4a4…a4b4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0069, t01=0x00ae}
0xa4b4…a4c2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0069, t01=0x00be}
0xa4c2…a506 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0069, t01=0x00cc}
0xa506…a54a Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0069, t01=0x0110}
0xa54a…a58e Head {h00=0x0040, h01=0x0050, text=»* PAID STORE AID IN BUFFER * «, t00=0x0069, t01=0x0154}
0xa58e…a5d2 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x006a, t01=0x0008}
0xa5d2…a616 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x006a, t01=0x004c}
0xa616…a62a Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x006a, t01=0x0090}
0xa62a…a634 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x00a4}
0xa634…a646 Head {h00=0x000e, h01=0x0050, text=»* A2= AID «, t00=0x006a, t01=0x00ae}
0xa646…a65e Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x006a, t01=0x00c0}
0xa65e…a676 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x006a, t01=0x00d8}
0xa676…a680 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x00f0}
0xa680…a6c2 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x006a, t01=0x00fa}
0xa6c2…a6d4 Head {h00=0x000e, h01=0x0050, text=»PAID EQU *«, t00=0x006a, t01=0x013c}
0xa6d4…a6f4 Head {h00=0x001c, h01=0x0050, text=» CF A14,PDCCH STORE AID «, t00=0x006a, t01=0x014e}
0xa6f4…a704 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006a, t01=0x016e}
0xa704…a712 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006a, t01=0x017e}
0xa712…a754 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x006a, t01=0x018c}
0xa754…a796 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x006b, t01=0x003e}
0xa796…a7d8 Head {h00=0x003e, h01=0x0050, text=»* BUFADR STORE BUFFER ADDRESS IN DC-BUFFER *«, t00=0x006b, t01=0x0080}
0xa7d8…a81a Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x006b, t01=0x00c2}
0xa81a…a85c Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x006b, t01=0x0104}
0xa85c…a870 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x006b, t01=0x0146}
0xa870…a87a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x015a}
0xa87a…a88e Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x006b, t01=0x0164}
0xa88e…a8a4 Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x006b, t01=0x0178}
0xa8a4…a8ba Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x006b, t01=0x018e}
0xa8ba…a8d0 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x006c, t01=0x0014}
0xa8d0…a8e6 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x006c, t01=0x002a}
0xa8e6…a8fc Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x006c, t01=0x0040}
0xa8fc…a912 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x006c, t01=0x0056}
0xa912…a92a Head {h00=0x0014, h01=0x0050, text=»* A10= RESERVED «, t00=0x006c, t01=0x006c}
0xa92a…a942 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x006c, t01=0x0084}
0xa942…a95a Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x006c, t01=0x009c}
0xa95a…a972 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x006c, t01=0x00b4}
0xa972…a97c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x00cc}
0xa97c…a9be Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x006c, t01=0x00d6}
0xa9be…a9d2 Head {h00=0x0010, h01=0x0050, text=»BUFADR EQU *«, t00=0x006c, t01=0x0118}
0xa9d2…a9f2 Head {h00=0x001c, h01=0x0050, text=» LDR A2,A1 GET REL. POS.«, t00=0x006c, t01=0x012c}
0xa9f2…aa04 Head {h00=0x000e, h01=0x0050, text=» SRL A2,6 «, t00=0x006c, t01=0x014c}
0xaa04…aa18 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x006c, t01=0x015e}
0xaa18…aa42 Head {h00=0x0026, h01=0x0050, text=» LC A2,CONADR,A2 CONVERT TO ASCII «, t00=0x006c, t01=0x0172}
0xaa42…aa6a Head {h00=0x0024, h01=0x0050, text=» CF A14,PDCCH STORE IN DC-BUFFER«, t00=0x006d, t01=0x000c}
0xaa6a…aa8a Head {h00=0x001c, h01=0x0050, text=» LDR A2,A1 GET REL. POS.«, t00=0x006d, t01=0x0034}
0xaa8a…aa9e Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x006d, t01=0x0054}
0xaa9e…aac8 Head {h00=0x0026, h01=0x0050, text=» LC A2,CONADR,A2 CONVERT TO ASCII «, t00=0x006d, t01=0x0068}
0xaac8…aaf0 Head {h00=0x0024, h01=0x0050, text=» CF A14,PDCCH STORE IN DC-BUFFER«, t00=0x006d, t01=0x0092}
0xaaf0…ab00 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006d, t01=0x00ba}
0xab00…ab0e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006d, t01=0x00ca}
0xab0e…ab52 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x006d, t01=0x00d8}
0xab52…ab96 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x006d, t01=0x011c}
0xab96…abda Head {h00=0x0040, h01=0x0050, text=»* RESMDT RESET ALL MDT-BITS IN ATTRIBUTES *«, t00=0x006d, t01=0x0160}
0xabda…ac1e Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x006e, t01=0x0014}
0xac1e…ac62 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x006e, t01=0x0058}
0xac62…ac76 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x006e, t01=0x009c}
0xac76…ac80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x00b0}
0xac80…ac94 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x006e, t01=0x00ba}
0xac94…acb8 Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x006e, t01=0x00ce}
0xacb8…acce Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x006e, t01=0x00f2}
0xacce…ace4 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x006e, t01=0x0108}
0xace4…acfa Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x006e, t01=0x011e}
0xacfa…ad10 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x006e, t01=0x0134}
0xad10…ad26 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x006e, t01=0x014a}
0xad26…ad3e Head {h00=0x0014, h01=0x0050, text=»* A10= RESERVED «, t00=0x006e, t01=0x0160}
0xad3e…ad5e Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x006e, t01=0x0178}
0xad5e…ad76 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x006f, t01=0x0008}
0xad76…ad8e Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x006f, t01=0x0020}
0xad8e…ad98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0038}
0xad98…adde Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x006f, t01=0x0042}
0xadde…adf2 Head {h00=0x0010, h01=0x0050, text=»RESMDT EQU *«, t00=0x006f, t01=0x0088}
0xadf2…ae16 Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 FIRST SCREEN POS. «, t00=0x006f, t01=0x009c}
0xae16…ae2c Head {h00=0x0012, h01=0x0050, text=» LDKL A3,BVDU «, t00=0x006f, t01=0x00c0}
0xae2c…ae40 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x006f, t01=0x00d6}
0xae40…ae54 Head {h00=0x0010, h01=0x0050, text=»RESM10 EQU *«, t00=0x006f, t01=0x00ea}
0xae54…ae76 Head {h00=0x001e, h01=0x0050, text=» CWK A1,LBVDU ALL SCANNED?«, t00=0x006f, t01=0x00fe}
0xae76…ae90 Head {h00=0x0016, h01=0x0050, text=» RF(NL) RESM90 YES«, t00=0x006f, t01=0x0120}
0xae90…aeac Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x006f, t01=0x013a}
0xaeac…aecc Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8080 ATTRIBUTE?«, t00=0x006f, t01=0x0156}
0xaecc…aee4 Head {h00=0x0014, h01=0x0050, text=» RF(L) RESM20 NO«, t00=0x006f, t01=0x0176}
0xaee4…af06 Head {h00=0x001e, h01=0x0050, text=» ANK A2,/FE RESET MDT-BIT «, t00=0x006f, t01=0x018e}
0xaf06…af20 Head {h00=0x0016, h01=0x0050, text=» SCR A2,A3 RESTORE«, t00=0x0070, t01=0x0020}
0xaf20…af34 Head {h00=0x0010, h01=0x0050, text=»RESM20 EQU *«, t00=0x0070, t01=0x003a}
0xaf34…af46 Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0070, t01=0x004e}
0xaf46…af58 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0070, t01=0x0060}
0xaf58…af6a Head {h00=0x000e, h01=0x0050, text=» RB RESM10«, t00=0x0070, t01=0x0072}
0xaf6a…af7e Head {h00=0x0010, h01=0x0050, text=»RESM90 EQU *«, t00=0x0070, t01=0x0084}
0xaf7e…af8e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0070, t01=0x0098}
0xaf8e…af9c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0070, t01=0x00a8}
0xaf9c…afdc Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0070, t01=0x00b6}
0xafdc…b01c Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0070, t01=0x00f6}
0xb01c…b052 Head {h00=0x0032, h01=0x0050, text=»* P1WCC PROCESS WCC BEFORE UPDATE«, t00=0x0070, t01=0x0136}
0xb052…b092 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0070, t01=0x016c}
0xb092…b0d2 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0071, t01=0x001c}
0xb0d2…b0e6 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0071, t01=0x005c}
0xb0e6…b0f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x0070}
0xb0f0…b104 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0071, t01=0x007a}
0xb104…b11a Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x0071, t01=0x008e}
0xb11a…b130 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0071, t01=0x00a4}
0xb130…b146 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0071, t01=0x00ba}
0xb146…b15c Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0071, t01=0x00d0}
0xb15c…b172 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0071, t01=0x00e6}
0xb172…b188 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x0071, t01=0x00fc}
0xb188…b1a0 Head {h00=0x0014, h01=0x0050, text=»* A10= RESERVED «, t00=0x0071, t01=0x0112}
0xb1a0…b1c0 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0071, t01=0x012a}
0xb1c0…b1d8 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0071, t01=0x014a}
0xb1d8…b1f0 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0071, t01=0x0162}
0xb1f0…b1fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x017a}
0xb1fa…b236 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0071, t01=0x0184}
0xb236…b24a Head {h00=0x0010, h01=0x0050, text=»P1WCC EQU * «, t00=0x0072, t01=0x0030}
0xb24a…b26c Head {h00=0x001e, h01=0x0050, text=» LC A2,CONATT,A2 IN EBCDIC«, t00=0x0072, t01=0x0044}
0xb26c…b288 Head {h00=0x0018, h01=0x0050, text=» ST A2,WCC,A11 SAVE «, t00=0x0072, t01=0x0066}
0xb288…b2aa Head {h00=0x001e, h01=0x0050, text=» ANK A2,1 RESET MDT-BITS? «, t00=0x0072, t01=0x0082}
0xb2aa…b2c2 Head {h00=0x0014, h01=0x0050, text=» RF(Z) P1W900 NO«, t00=0x0072, t01=0x00a4}
0xb2c2…b2ec Head {h00=0x0026, h01=0x0050, text=» CF A14,RESMDT RESET ALL MDT-BITS «, t00=0x0072, t01=0x00bc}
0xb2ec…b300 Head {h00=0x0010, h01=0x0050, text=»P1W900 EQU *«, t00=0x0072, t01=0x00e6}
0xb300…b310 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0072, t01=0x00fa}
0xb310…b31e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0072, t01=0x010a}
0xb31e…b360 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0072, t01=0x0118}
0xb360…b3a2 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0072, t01=0x015a}
0xb3a2…b3e4 Head {h00=0x003e, h01=0x0050, text=»* P2WCC TAKE CARE OF WCC AFTER UPDATE * «, t00=0x0073, t01=0x000c}
0xb3e4…b426 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0073, t01=0x004e}
0xb426…b468 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0073, t01=0x0090}
0xb468…b47c Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0073, t01=0x00d2}
0xb47c…b486 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x00e6}
0xb486…b4a6 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0073, t01=0x00f0}
0xb4a6…b4be Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0073, t01=0x0110}
0xb4be…b4d6 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0073, t01=0x0128}
0xb4d6…b4e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0140}
0xb4e0…b522 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0073, t01=0x014a}
0xb522…b536 Head {h00=0x0010, h01=0x0050, text=»P2WCC EQU * «, t00=0x0073, t01=0x018c}
0xb536…b55c Head {h00=0x0022, h01=0x0050, text=» CF A14,SAVE2 KEEP IT AWAY =4 «, t00=0x0074, t01=0x0010}
0xb55c…b572 Head {h00=0x0012, h01=0x0050, text=» LD A1,WCC,A11«, t00=0x0074, t01=0x0036}
0xb572…b584 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A1«, t00=0x0074, t01=0x004c}
0xb584…b59c Head {h00=0x0014, h01=0x0050, text=» ANK A7,4 SOUND?«, t00=0x0074, t01=0x005e}
0xb59c…b5b4 Head {h00=0x0014, h01=0x0050, text=» RF(Z) P2W100 NO«, t00=0x0074, t01=0x0076}
0xb5b4…b5d0 Head {h00=0x0018, h01=0x0050, text=» CF A14,SOUND SOUND «, t00=0x0074, t01=0x008e}
0xb5d0…b5e4 Head {h00=0x0010, h01=0x0050, text=»P2W100 EQU *«, t00=0x0074, t01=0x00aa}
0xb5e4…b5fc Head {h00=0x0014, h01=0x0050, text=» ANK A1,8 COPY? «, t00=0x0074, t01=0x00be}
0xb5fc…b614 Head {h00=0x0014, h01=0x0050, text=» RF(Z) P2W300 NO«, t00=0x0074, t01=0x00d6}
0xb614…b632 Head {h00=0x001a, h01=0x0050, text=» LC A1,TCT01,A11 . =4 «, t00=0x0074, t01=0x00ee}
0xb632…b650 Head {h00=0x001a, h01=0x0050, text=» CCK A1,VDUCOD VDU =4 «, t00=0x0074, t01=0x010c}
0xb650…b674 Head {h00=0x0020, h01=0x0050, text=» RF(NE) P2W200 NO PRINTER =4«, t00=0x0074, t01=0x012a}
0xb674…b68e Head {h00=0x0016, h01=0x0050, text=» CF A14,COPY COPY «, t00=0x0074, t01=0x014e}
0xb68e…b6a6 Head {h00=0x0014, h01=0x0050, text=» RF P2W300 . =4 «, t00=0x0074, t01=0x0168}
0xb6a6…b6c0 Head {h00=0x0016, h01=0x0050, text=»P2W200 EQU * . =4 «, t00=0x0074, t01=0x0180}
0xb6c0…b6de Head {h00=0x001a, h01=0x0050, text=» CF A14,COPP PRINT #8 «, t00=0x0075, t01=0x000a}
0xb6de…b6f2 Head {h00=0x0010, h01=0x0050, text=»P2W300 EQU *«, t00=0x0075, t01=0x0028}
0xb6f2…b718 Head {h00=0x0022, h01=0x0050, text=» CF A14,REST2 TAKE IT BACK =4 «, t00=0x0075, t01=0x003c}
0xb718…b728 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0075, t01=0x0062}
0xb728…b736 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0075, t01=0x0072}
0xb736…b780 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0075, t01=0x0080}
0xb780…b7ca Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x0075, t01=0x00ca}
0xb7ca…b814 Head {h00=0x0046, h01=0x0050, text=»* SAVE SAVE PACK AND UNPACK INFORMATION *«, t00=0x0075, t01=0x0114}
0xb814…b85e Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x0075, t01=0x015e}
0xb85e…b8a8 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0076, t01=0x0018}
0xb8a8…b8bc Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0076, t01=0x0062}
0xb8bc…b8c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x0076}
0xb8c6…b8e2 Head {h00=0x0018, h01=0x0050, text=»* A1= STACK POINTER «, t00=0x0076, t01=0x0080}
0xb8e2…b8f6 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0076, t01=0x009c}
0xb8f6…b916 Head {h00=0x001c, h01=0x0050, text=»* A3= VDU BUFFER ADDRESS«, t00=0x0076, t01=0x00b0}
0xb916…b934 Head {h00=0x001a, h01=0x0050, text=»* A4= REL CURSOR POS. «, t00=0x0076, t01=0x00d0}
0xb934…b954 Head {h00=0x001c, h01=0x0050, text=»* A5= REL STTRIBUTE POS.«, t00=0x0076, t01=0x00ee}
0xb954…b972 Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x0076, t01=0x010e}
0xb972…b994 Head {h00=0x001e, h01=0x0050, text=»* A10= INTERNAL INDICATOR «, t00=0x0076, t01=0x012c}
0xb994…b9b4 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0076, t01=0x014e}
0xb9b4…b9cc Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0076, t01=0x016e}
0xb9cc…b9e4 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0076, t01=0x0186}
0xb9e4…b9ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x000e}
0xb9ee…ba36 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0077, t01=0x0018}
0xba36…ba4a Head {h00=0x0010, h01=0x0050, text=»SAVE1 EQU * «, t00=0x0077, t01=0x0060}
0xba4a…ba74 Head {h00=0x0026, h01=0x0050, text=» LDKL A1,STACK1 GET STACK ADDRESS «, t00=0x0077, t01=0x0074}
0xba74…ba84 Head {h00=0x000c, h01=0x0050, text=» RF SAVE«, t00=0x0077, t01=0x009e}
0xba84…ba98 Head {h00=0x0010, h01=0x0050, text=»SAVE2 EQU * «, t00=0x0077, t01=0x00ae}
0xba98…bab0 Head {h00=0x0014, h01=0x0050, text=» LDKL A1,STACK2 «, t00=0x0077, t01=0x00c2}
0xbab0…bac2 Head {h00=0x000e, h01=0x0050, text=»SAVE EQU *«, t00=0x0077, t01=0x00da}
0xbac2…bad6 Head {h00=0x0010, h01=0x0050, text=» ADR A1,A11 «, t00=0x0077, t01=0x00ec}
0xbad6…bae8 Head {h00=0x000e, h01=0x0050, text=» STR A2,A1«, t00=0x0077, t01=0x0100}
0xbae8…bafa Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0077, t01=0x0112}
0xbafa…bb0c Head {h00=0x000e, h01=0x0050, text=» STR A3,A1«, t00=0x0077, t01=0x0124}
0xbb0c…bb1e Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0077, t01=0x0136}
0xbb1e…bb30 Head {h00=0x000e, h01=0x0050, text=» STR A4,A1«, t00=0x0077, t01=0x0148}
0xbb30…bb42 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0077, t01=0x015a}
0xbb42…bb54 Head {h00=0x000e, h01=0x0050, text=» STR A5,A1«, t00=0x0077, t01=0x016c}
0xbb54…bb66 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0077, t01=0x017e}
0xbb66…bb78 Head {h00=0x000e, h01=0x0050, text=» STR A6,A1«, t00=0x0077, t01=0x0190}
0xbb78…bb8a Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0078, t01=0x0012}
0xbb8a…bb9c Head {h00=0x000e, h01=0x0050, text=» STR A7,A1«, t00=0x0078, t01=0x0024}
0xbb9c…bbae Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0078, t01=0x0036}
0xbbae…bbc2 Head {h00=0x0010, h01=0x0050, text=» STR A10,A1 «, t00=0x0078, t01=0x0048}
0xbbc2…bbd2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0078, t01=0x005c}
0xbbd2…bbe0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0078, t01=0x006c}
0xbbe0…bc2c Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0078, t01=0x007a}
0xbc2c…bc78 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0078, t01=0x00c6}
0xbc78…bcc4 Head {h00=0x0048, h01=0x0050, text=»* RESTOR RESTORE PACK AND UNPACK INFORMATION * «, t00=0x0078, t01=0x0112}
0xbcc4…bd10 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0078, t01=0x015e}
0xbd10…bd5c Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0079, t01=0x001a}
0xbd5c…bd70 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0079, t01=0x0066}
0xbd70…bd7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x007a}
0xbd7a…bd96 Head {h00=0x0018, h01=0x0050, text=»* A1= STACK POINTER «, t00=0x0079, t01=0x0084}
0xbd96…bdaa Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0079, t01=0x00a0}
0xbdaa…bdca Head {h00=0x001c, h01=0x0050, text=»* A3= VDU BUFFER ADDRESS«, t00=0x0079, t01=0x00b4}
0xbdca…bde8 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0079, t01=0x00d4}
0xbde8…be0a Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x0079, t01=0x00f2}
0xbe0a…be28 Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x0079, t01=0x0114}
0xbe28…be3e Head {h00=0x0012, h01=0x0050, text=»* A7= RESERVED«, t00=0x0079, t01=0x0132}
0xbe3e…be60 Head {h00=0x001e, h01=0x0050, text=»* A10= INTERNAL INDICATOR «, t00=0x0079, t01=0x0148}
0xbe60…be80 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0079, t01=0x016a}
0xbe80…be98 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0079, t01=0x018a}
0xbe98…beb0 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x007a, t01=0x0012}
0xbeb0…beba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x002a}
0xbeba…bf02 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x007a, t01=0x0034}
0xbf02…bf16 Head {h00=0x0010, h01=0x0050, text=»REST1 EQU * «, t00=0x007a, t01=0x007c}
0xbf16…bf40 Head {h00=0x0026, h01=0x0050, text=» LDKL A1,STACK1 GET STACK ADDRESS «, t00=0x007a, t01=0x0090}
0xbf40…bf52 Head {h00=0x000e, h01=0x0050, text=» RF RESTOR«, t00=0x007a, t01=0x00ba}
0xbf52…bf66 Head {h00=0x0010, h01=0x0050, text=»REST2 EQU * «, t00=0x007a, t01=0x00cc}
0xbf66…bf7e Head {h00=0x0014, h01=0x0050, text=» LDKL A1,STACK2 «, t00=0x007a, t01=0x00e0}
0xbf7e…bf92 Head {h00=0x0010, h01=0x0050, text=»RESTOR EQU *«, t00=0x007a, t01=0x00f8}
0xbf92…bfa6 Head {h00=0x0010, h01=0x0050, text=» ADR A1,A11 «, t00=0x007a, t01=0x010c}
0xbfa6…bfba Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A1 «, t00=0x007a, t01=0x0120}
0xbfba…bfcc Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x007a, t01=0x0134}
0xbfcc…bfe0 Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A1 «, t00=0x007a, t01=0x0146}
0xbfe0…bff2 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x007a, t01=0x015a}
0xbff2…c006 Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A1 «, t00=0x007a, t01=0x016c}
0xc006…c018 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x007a, t01=0x0180}
0xc018…c02c (123, 0, 400) Head {h00=0x0010, h01=0x0050, text=» LDR* A5,A1 «, t00=0x007b, t01=0x0004}
0xc02c…c03e Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x007b, t01=0x0018}
0xc03e…c052 Head {h00=0x0010, h01=0x0050, text=» LDR* A6,A1 «, t00=0x007b, t01=0x002a}
0xc052…c064 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x007b, t01=0x003e}
0xc064…c078 Head {h00=0x0010, h01=0x0050, text=» LDR* A7,A1 «, t00=0x007b, t01=0x0050}
0xc078…c08a Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x007b, t01=0x0064}
0xc08a…c09e Head {h00=0x0010, h01=0x0050, text=» LDR* A10,A1«, t00=0x007b, t01=0x0076}
0xc09e…c0ae Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007b, t01=0x008a}
0xc0ae…c0bc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007b, t01=0x009a}
0xc0bc…c0fc Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x007b, t01=0x00a8}
0xc0fc…c13c Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x007b, t01=0x00e8}
0xc13c…c17c Head {h00=0x003c, h01=0x0050, text=»* BUFFER POOL * «, t00=0x007b, t01=0x0128}
0xc17c…c1bc Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x007b, t01=0x0168}
0xc1bc…c1fc Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x007c, t01=0x0018}
0xc1fc…c210 Head {h00=0x0010, h01=0x0050, text=»BUFFER EQU *«, t00=0x007c, t01=0x0058}
0xc210…c234 Head {h00=0x0020, h01=0x0050, text=» DATA *+2 POINTER FIRST FREE«, t00=0x007c, t01=0x006c}
0xc234…c24a Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=1 «, t00=0x007c, t01=0x0090}
0xc24a…c25e Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007c, t01=0x00a6}
0xc25e…c270 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007c, t01=0x00ba}
0xc270…c286 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=2 «, t00=0x007c, t01=0x00cc}
0xc286…c29a Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007c, t01=0x00e2}
0xc29a…c2ac Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007c, t01=0x00f6}
0xc2ac…c2c2 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=3 «, t00=0x007c, t01=0x0108}
0xc2c2…c2d6 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007c, t01=0x011e}
0xc2d6…c2e8 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007c, t01=0x0132}
0xc2e8…c2fe Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=4 «, t00=0x007c, t01=0x0144}
0xc2fe…c312 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007c, t01=0x015a}
0xc312…c324 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007c, t01=0x016e}
0xc324…c33a Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=5 «, t00=0x007c, t01=0x0180}
0xc33a…c34e Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007d, t01=0x0008}
0xc34e…c360 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007d, t01=0x001c}
0xc360…c376 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=6 «, t00=0x007d, t01=0x002e}
0xc376…c38a Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007d, t01=0x0044}
0xc38a…c39c Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007d, t01=0x0058}
0xc39c…c3b2 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=7 «, t00=0x007d, t01=0x006a}
0xc3b2…c3c6 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007d, t01=0x0080}
0xc3c6…c3d8 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007d, t01=0x0094}
0xc3d8…c3ee Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=8 «, t00=0x007d, t01=0x00a6}
0xc3ee…c402 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007d, t01=0x00bc}
0xc402…c414 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007d, t01=0x00d0}
0xc414…c42a Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=9 «, t00=0x007d, t01=0x00e2}
0xc42a…c43e Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007d, t01=0x00f8}
0xc43e…c450 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007d, t01=0x010c}
0xc450…c466 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=10«, t00=0x007d, t01=0x011e}
0xc466…c47a Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007d, t01=0x0134}
0xc47a…c48c Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007d, t01=0x0148}
0xc48c…c4a2 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=11«, t00=0x007d, t01=0x015a}
0xc4a2…c4b6 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007d, t01=0x0170}
0xc4b6…c4c8 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007d, t01=0x0184}
0xc4c8…c4de Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=12«, t00=0x007e, t01=0x0008}
0xc4de…c4f2 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007e, t01=0x001e}
0xc4f2…c504 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007e, t01=0x0032}
0xc504…c51a Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=13«, t00=0x007e, t01=0x0044}
0xc51a…c52e Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007e, t01=0x005a}
0xc52e…c540 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007e, t01=0x006e}
0xc540…c556 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=14«, t00=0x007e, t01=0x0080}
0xc556…c56a Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007e, t01=0x0096}
0xc56a…c57c Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007e, t01=0x00aa}
0xc57c…c592 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=15«, t00=0x007e, t01=0x00bc}
0xc592…c5a6 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007e, t01=0x00d2}
0xc5a6…c5b8 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007e, t01=0x00e6}
0xc5b8…c5ce Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=16«, t00=0x007e, t01=0x00f8}
0xc5ce…c5e2 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007e, t01=0x010e}
0xc5e2…c5f4 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007e, t01=0x0122}
0xc5f4…c60a Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=17«, t00=0x007e, t01=0x0134}
0xc60a…c61e Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007e, t01=0x014a}
0xc61e…c630 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007e, t01=0x015e}
0xc630…c646 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=18«, t00=0x007e, t01=0x0170}
0xc646…c65a Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007e, t01=0x0186}
0xc65a…c66c Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007f, t01=0x000a}
0xc66c…c682 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=19«, t00=0x007f, t01=0x001c}
0xc682…c696 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007f, t01=0x0032}
0xc696…c6a8 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007f, t01=0x0046}
0xc6a8…c6be Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=20«, t00=0x007f, t01=0x0058}
0xc6be…c6d2 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007f, t01=0x006e}
0xc6d2…c6e4 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007f, t01=0x0082}
0xc6e4…c6fa Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=21«, t00=0x007f, t01=0x0094}
0xc6fa…c70e Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007f, t01=0x00aa}
0xc70e…c720 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007f, t01=0x00be}
0xc720…c736 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=22«, t00=0x007f, t01=0x00d0}
0xc736…c74a Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007f, t01=0x00e6}
0xc74a…c75c Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007f, t01=0x00fa}
0xc75c…c772 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=23«, t00=0x007f, t01=0x010c}
0xc772…c786 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007f, t01=0x0122}
0xc786…c798 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007f, t01=0x0136}
0xc798…c7ae Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=24«, t00=0x007f, t01=0x0148}
0xc7ae…c7c2 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007f, t01=0x015e}
0xc7c2…c7d4 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007f, t01=0x0172}
0xc7d4…c7ea Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=25«, t00=0x007f, t01=0x0184}
0xc7ea…c7fe Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x0080, t01=0x000a}
0xc7fe…c810 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x0080, t01=0x001e}
0xc810…c826 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=26«, t00=0x0080, t01=0x0030}
0xc826…c83a Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x0080, t01=0x0046}
0xc83a…c84c Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x0080, t01=0x005a}
0xc84c…c862 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=27«, t00=0x0080, t01=0x006c}
0xc862…c876 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x0080, t01=0x0082}
0xc876…c888 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x0080, t01=0x0096}
0xc888…c89e Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=28«, t00=0x0080, t01=0x00a8}
0xc89e…c8b2 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x0080, t01=0x00be}
0xc8b2…c8c4 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x0080, t01=0x00d2}
0xc8c4…c8da Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=29«, t00=0x0080, t01=0x00e4}
0xc8da…c8ee Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x0080, t01=0x00fa}
0xc8ee…c900 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x0080, t01=0x010e}
0xc900…c916 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=30«, t00=0x0080, t01=0x0120}
0xc916…c92a Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x0080, t01=0x0136}
0xc92a…c93c Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x0080, t01=0x014a}
0xc93c…c952 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=31«, t00=0x0080, t01=0x015c}
0xc952…c966 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x0080, t01=0x0172}
0xc966…c978 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x0080, t01=0x0186}
0xc978…c98e Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=32«, t00=0x0081, t01=0x0008}
0xc98e…c9a2 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x0081, t01=0x001e}
0xc9a2…c9b4 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x0081, t01=0x0032}
0xc9b4…c9c0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0081, t01=0x0044}
0xc9c0…c9d0 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0081, t01=0x0050}
0xc9d0…c9e2 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x0081, t01=0x0060}
0xc9e2…c9f0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0081, t01=0x0072}
0xc9f0…ca30 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0081, t01=0x0080}
0xca30…ca70 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0081, t01=0x00c0}
0xca70…cab0 Head {h00=0x003c, h01=0x0050, text=»* GETBUF GET BUFFER * «, t00=0x0081, t01=0x0100}
0xcab0…caf0 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0081, t01=0x0140}
0xcaf0…cb30 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0081, t01=0x0180}
0xcb30…cb44 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0082, t01=0x0030}
0xcb44…cb4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x0044}
0xcb4e…cb6e Head {h00=0x001c, h01=0x0050, text=»* A8= DC-BUFFER ADDRESS «, t00=0x0082, t01=0x004e}
0xcb6e…cb8e Head {h00=0x001c, h01=0x0050, text=»* A9= INDEX IN DC-BUFFER«, t00=0x0082, t01=0x006e}
0xcb8e…cba6 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0082, t01=0x008e}
0xcba6…cbc4 Head {h00=0x001a, h01=0x0050, text=»* A12= BUFFER ADDRESS «, t00=0x0082, t01=0x00a6}
0xcbc4…cbdc Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0082, t01=0x00c4}
0xcbdc…cbe6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x00dc}
0xcbe6…cc26 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0082, t01=0x00e6}
0xcc26…cc3a Head {h00=0x0010, h01=0x0050, text=»GETBUF EQU *«, t00=0x0082, t01=0x0126}
0xcc3a…cc52 Head {h00=0x0014, h01=0x0050, text=» LDKL A7,BUFFER «, t00=0x0082, t01=0x013a}
0xcc52…cc66 Head {h00=0x0010, h01=0x0050, text=»GETB10 EQU *«, t00=0x0082, t01=0x0152}
0xcc66…cc7a Head {h00=0x0010, h01=0x0050, text=» LDR* A8,A7 «, t00=0x0082, t01=0x0166}
0xcc7a…cc9c Head {h00=0x001e, h01=0x0050, text=» RF(NZ) GETB90 BUFFER FREE«, t00=0x0082, t01=0x017a}
0xcc9c…cca8 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0083, t01=0x000c}
0xcca8…ccc4 Head {h00=0x0018, h01=0x0050, text=» DATA 0 SWITCH TASK «, t00=0x0083, t01=0x0018}
0xccc4…ccd6 Head {h00=0x000e, h01=0x0050, text=» RB GETB10«, t00=0x0083, t01=0x0034}
0xccd6…ccea Head {h00=0x0010, h01=0x0050, text=»GETB90 EQU *«, t00=0x0083, t01=0x0046}
0xccea…ccfe Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A8 «, t00=0x0083, t01=0x005a}
0xccfe…cd10 Head {h00=0x000e, h01=0x0050, text=» STR A1,A7«, t00=0x0083, t01=0x006e}
0xcd10…cd22 Head {h00=0x000e, h01=0x0050, text=» ADKL A8,2«, t00=0x0083, t01=0x0080}
0xcd22…cd36 Head {h00=0x0010, h01=0x0050, text=» LDR A12,A8 «, t00=0x0083, t01=0x0092}
0xcd36…cd48 Head {h00=0x000e, h01=0x0050, text=» SUR A9,A9«, t00=0x0083, t01=0x00a6}
0xcd48…cd58 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0083, t01=0x00b8}
0xcd58…cd66 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0083, t01=0x00c8}
0xcd66…cda8 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0083, t01=0x00d6}
0xcda8…cdea Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0083, t01=0x0118}
0xcdea…ce2c Head {h00=0x003e, h01=0x0050, text=»* RELBUF RELEASE BUFFER * «, t00=0x0083, t01=0x015a}
0xce2c…ce6e Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0084, t01=0x000c}
0xce6e…ceb0 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0084, t01=0x004e}
0xceb0…cec4 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0084, t01=0x0090}
0xcec4…cece Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x00a4}
0xcece…ceea Head {h00=0x0018, h01=0x0050, text=»* A8= BUFFER ADDRESS«, t00=0x0084, t01=0x00ae}
0xceea…cf02 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0084, t01=0x00ca}
0xcf02…cf1a Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0084, t01=0x00e2}
0xcf1a…cf24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x00fa}
0xcf24…cf66 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0084, t01=0x0104}
0xcf66…cf7a Head {h00=0x0010, h01=0x0050, text=»RELBUF EQU *«, t00=0x0084, t01=0x0146}
0xcf7a…cf92 Head {h00=0x0014, h01=0x0050, text=» LDKL A7,BUFFER «, t00=0x0084, t01=0x015a}
0xcf92…cfb2 Head {h00=0x001c, h01=0x0050, text=» SUKL A8,2 POINT TO LINK«, t00=0x0084, t01=0x0172}
0xcfb2…cfc6 (133, 2, 196) Head {h00=0x0010, h01=0x0050, text=»RELB10 EQU *«, t00=0x0085, t01=0x0004}
0xcfc6…cfda Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A7 «, t00=0x0085, t01=0x0018}
0xcfda…cff0 Head {h00=0x0012, h01=0x0050, text=» RF(Z) RELB90 «, t00=0x0085, t01=0x002c}
0xcff0…d002 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A1«, t00=0x0085, t01=0x0042}
0xd002…d014 Head {h00=0x000e, h01=0x0050, text=» RB RELB10«, t00=0x0085, t01=0x0054}
0xd014…d028 Head {h00=0x0010, h01=0x0050, text=»RELB90 EQU *«, t00=0x0085, t01=0x0066}
0xd028…d03a Head {h00=0x000e, h01=0x0050, text=» STR A8,A7«, t00=0x0085, t01=0x007a}
0xd03a…d04a Head {h00=0x000c, h01=0x0050, text=» CMR A8 «, t00=0x0085, t01=0x008c}
0xd04a…d05a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0085, t01=0x009c}
0xd05a…d062 Head {h00=0x0004, h01=0x0050, t00=0x0085, t01=0x00ac}
0xd062…d06e Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0085, t01=0x00b4}
0xd06e…d072 Head {h00=0x4004, h01=0x0000}
0xd072…d076 00 85 00 c0 ┆ ┆
0xd076…d07e (134, 1, 8) 20 04 00 00 00 86 00 04 ┆ ┆
0xd07e…d0ce (135, 0, 400) 00 07 97 04 1e 01 5f 2e f6 97 c5 72 59 88 f6 97 c5 5c f6 97 d6 28 ea 21 54 54 58 0a 81 40 00 d2 86 40 00 c4 ae 04 81 40 00 c0 21 0e ae 04 50 12 86 40 00 dc 81 38 19 02 96 04 86 38 86 38 1e 02 97 18 17 02 87 33 84 c1 00 b6 94 9c 83 c1 01 04 ┆ _. rY ( !TTX @ @ @ ! P @ 8 8 8 3 ┆
0xd0ce…d11e 83 92 81 c0 00 f4 f6 97 d4 a8 55 08 81 20 01 00 f6 97 d3 28 83 c0 01 04 82 c0 00 b6 e2 2e ea 21 54 54 54 06 f6 97 d6 28 5f 0c ea 21 43 43 50 0c 98 82 52 dc f6 97 c5 72 59 1e 57 ae 81 8e 91 a0 00 03 f6 97 c2 56 81 04 50 30 81 41 00 f6 f6 97 ┆ U ( . !TTT (_ !CCP R rY W V P0 A ┆
0xd11e…d16e c2 84 81 41 00 f8 f6 97 c2 94 86 04 82 40 00 f8 92 08 87 40 00 da 97 08 87 3c f6 97 bb ee 91 a0 00 0e 81 40 00 f6 19 01 5f 32 f6 97 bd e2 f6 97 c2 76 91 a0 00 02 80 84 5d 58 f6 97 c2 84 91 04 86 40 00 dc 96 04 85 38 86 38 86 38 1e 02 15 04 ┆ A @ @ < @ _2 v ]X @ 8 8 8 ┆
0xd16e…d1be 81 34 83 44 00 06 50 24 82 12 94 8c f6 97 c5 b8 83 40 00 c0 23 01 50 12 83 04 9b 08 84 48 00 12 a4 20 ff fe 9c 0c 84 49 00 12 81 08 81 4b 00 04 81 54 ff fe 81 4b 00 02 92 a0 00 04 1e 04 59 42 91 a0 00 07 98 a0 00 01 5f 62 81 40 00 c4 85 40 ┆ 4 D P$ @ # P H I K T K YB _b @ @┆
0xd1be…d20e 00 d2 a9 14 85 40 00 c0 25 0e a9 14 50 12 85 40 00 dc 81 34 19 02 95 04 85 34 86 34 1e 02 5f 72 84 c1 00 a8 f0 3a 86 41 00 fc 80 bc 98 a0 00 02 17 02 81 5c 00 02 86 40 04 a1 48 40 09 28 54 10 10 22 a9 22 22 82 40 01 40 00 00 02 90 80 48 00 ┆ @ % P @ 4 4 4 _r : A @ H@ (T " "" @ @ H ┆
0xd20e…d25e (136, 0, 400) 00 fc e4 46 00 0d ec 21 53 53 54 06 f6 97 be e4 57 4e ec 21 41 41 54 06 f6 97 be ec 57 42 ec 21 56 56 54 06 f6 97 be f4 57 36 ec 21 50 50 54 06 f6 97 be fc 57 2a ec 21 4c 4c 54 06 f6 97 bf 64 57 1e ec 21 52 52 54 06 f6 97 bf 6c 57 12 ec 21 ┆ F !SST WN !AAT WB !VVT W6 !PPT W* !LLT dW !RRT lW !┆
0xd25e…d2ae 51 51 50 08 81 20 00 80 f6 97 d3 28 f6 97 bf 2c 83 41 00 fa 85 41 01 08 86 41 01 0a 84 40 00 f0 85 30 1c 02 85 14 50 56 83 40 00 fa eb 50 ff fc 50 06 84 30 1d 01 5f 12 82 50 ff fe 86 48 00 28 26 3f 83 40 01 08 23 3f 9b 18 5c 1a 86 48 00 02 ┆QQP ( , A A A @ 0 PV @ P P 0 _ P H (&? @ #? H ┆
0xd2ae…d2fe 26 c0 83 44 00 02 23 c0 9b 18 5c 2a 86 48 00 0a a6 20 80 00 83 44 00 0a a3 20 80 00 9b 18 5c 3e f6 97 bd 52 81 20 bd c0 91 40 01 80 8f 04 85 12 f6 97 c2 e4 82 12 83 44 00 06 94 8c f6 97 c5 b8 86 40 01 0a 85 40 01 08 86 29 85 49 00 28 83 44 ┆& D # * H D > R @ D @ @ ) I ( D┆
0xd2fe…d34e 00 02 23 40 50 56 83 44 00 08 83 4c ff fe eb 20 00 06 54 70 85 44 00 30 50 1e 95 40 01 80 83 60 01 16 54 02 13 02 84 0c 94 40 01 16 82 31 85 51 00 02 13 04 83 61 01 16 85 08 95 20 00 3e 85 49 00 3a 85 49 00 3c 83 44 00 2e 23 ff 50 36 85 08 ┆ #@PV D L Tp D 0P @ ` T @ 1 Q a > I : I < D .# P6 ┆
0xd34e…d39e 15 01 f6 97 c2 e4 1d 01 82 14 57 28 f6 97 bd 52 57 22 85 44 00 0a 56 1a 83 60 01 16 54 02 13 02 84 0c 94 40 01 16 81 31 82 51 00 02 13 04 83 61 01 16 f0 3a 85 40 00 c0 81 04 10 41 04 05 55 04 00 20 00 00 54 41 50 00 02 84 10 00 21 04 20 90 ┆ W( RW" D V ` T @ 1 Q a : @ A U TAP ! ┆
0xd39e…d3ee (137, 0, 400) 25 01 50 44 85 48 00 12 84 04 9c 08 9d 10 a5 20 ff fe 85 49 00 12 85 48 00 08 84 54 ff fc 50 28 85 48 00 12 83 12 13 01 a3 20 ff fe 83 55 00 02 83 10 13 03 a3 20 ff fe eb 40 01 7e 55 08 83 41 01 7e 84 c1 01 8c 94 8c 92 a0 00 02 85 3c 85 2b ┆% PD H I H T P( H U @ ~U A ~ < +┆
0xd3ee…d43e 92 a0 00 02 82 2b 98 a0 00 04 50 0c 17 04 81 20 bb fa 91 40 01 80 8f 04 f0 3a 83 60 01 16 50 3a 93 40 01 16 81 40 01 16 11 02 82 40 01 16 12 02 84 44 00 02 ec 28 50 08 12 04 ea 0c 5c 0a 57 10 84 48 00 02 82 24 84 49 00 30 a0 25 a0 45 00 02 ┆ + P @ : ` P: @ @ @ D (P W H $ I 0 % E ┆
0xd43e…d48e 11 04 e9 0c 5c 2c a0 61 01 16 f0 3a 81 40 00 ea 51 10 80 41 00 f4 81 00 19 02 a0 25 e9 40 00 a8 5c 0a 80 a0 00 05 81 a0 00 20 01 42 81 41 01 0a 01 01 81 41 01 04 a0 41 01 06 a0 41 01 08 f6 97 c3 46 f6 97 c3 d2 81 40 01 06 82 40 01 08 50 0c ┆ , a : @ Q A % @ B A A A A F @ @ P ┆
0xd48e…d4de a0 41 01 08 82 40 01 0c 82 45 9c aa 11 02 81 41 01 06 91 a0 00 01 81 c1 01 04 91 a0 00 1f e9 a0 00 80 51 02 5f 38 80 a0 00 06 81 a0 00 20 01 42 81 41 01 0a 01 01 81 41 01 04 a0 41 01 06 a0 41 01 08 f6 97 c3 46 f6 97 c3 d2 81 40 01 06 82 40 ┆ A @ E A Q _8 B A A A A F @ @┆
0xd4de…d52e 01 08 50 0c a0 41 01 08 82 40 01 0c 82 45 9c b2 11 02 81 41 01 06 91 a0 00 01 81 c1 01 04 91 a0 00 1f e9 a0 00 80 51 02 5f 38 f0 3a 81 20 00 80 f6 97 d3 28 81 20 00 80 00 00 00 04 a0 00 a2 52 00 00 09 21 01 2a aa 54 88 00 4a aa 95 22 00 40 ┆ P A @ E A Q _8 : ( R ! * T J " @┆
0xd52e…d57e (138, 0, 400) f6 97 d3 28 81 20 00 80 f6 97 d3 28 ee 20 00 80 51 5a ee 20 00 01 52 54 1e 01 85 44 00 28 25 3f 83 18 23 1f 13 01 3b 48 ad 0c 83 18 13 01 3b 44 13 05 26 60 3e 65 96 20 05 00 f0 3a ee 20 00 80 51 2a ee 20 00 01 52 24 1e 01 85 44 00 28 25 3f ┆ ( ( QZ RT D (%? # ;H ;D &`>e : Q* R$ D (%?┆
0xd57e…d5ce 83 18 23 1f 13 01 3b 48 ad 0c 83 18 13 01 3b 44 13 06 26 60 3e 65 96 20 06 00 f0 3a 81 20 00 80 f6 97 d3 28 81 20 00 80 f6 97 d3 28 81 20 00 80 f6 97 d3 28 83 c0 01 a6 50 3c 93 c0 01 72 84 c0 00 a8 84 c1 00 d2 80 41 00 f4 f6 97 c2 56 93 a0 ┆ # ;H ;D &`>e : ( ( ( P< r A V ┆
0xd5ce…d61e 00 02 19 01 52 14 81 41 01 1a 93 a0 00 05 f6 97 bf b8 81 40 01 1a 84 b2 5f 18 a0 53 00 00 94 a0 00 02 84 c1 00 a8 f0 3a 81 20 30 00 e1 4e 00 01 e2 4e 00 04 93 a0 00 01 ea 21 54 54 50 0a 39 48 e1 4e 00 01 93 a0 00 01 81 41 01 1c f6 97 c2 56 ┆ R A @ _ S : 0 N N !TTP 9H N A V┆
0xd61e…d66e 81 41 01 26 93 a0 00 07 e1 4e 00 01 39 48 e1 4e 00 02 81 41 01 1e 93 a0 00 02 02 00 f6 97 c2 42 80 82 50 1a e7 4e 00 02 ef 21 41 41 54 10 93 a0 00 03 83 c1 01 20 f6 97 c1 ee e7 4e 00 02 82 41 01 22 01 00 f6 97 c2 42 80 82 50 12 ef 21 53 53 ┆ A & N 9H N A B P N !AAT N A " B P !SS┆
0xd66e…d6be 54 0c 93 a0 00 04 f6 97 c2 56 93 a0 00 02 81 41 01 24 e9 20 00 ff 55 08 81 20 00 80 f6 97 d3 28 81 04 50 08 83 c1 01 28 39 41 93 84 f6 97 c0 f2 f6 97 c1 2a 87 40 01 26 44 00 00 00 00 00 00 44 52 aa 08 a0 20 00 05 40 21 00 28 90 08 81 11 50 ┆T V A $ U ( P (9A * @ &D DR @! ( P┆
0xd6be…d70e (139, 0, 400) 1f 01 50 84 05 01 84 40 01 1c 83 10 23 ff eb 20 00 5f 52 06 e4 40 00 30 3d 48 94 14 84 41 01 1c f6 97 c2 42 80 82 50 54 e1 4e 00 02 e9 21 44 44 50 4a e9 21 53 53 50 22 93 a0 00 03 83 c1 01 20 f6 97 c1 ee 82 41 01 22 f6 97 c2 42 80 82 50 2c ┆ P @ # _R @ 0=H A B PT N !DDPJ !SSP" A " B P,┆
0xd70e…d75e e1 4e 00 02 e9 21 53 53 54 22 93 a0 00 04 f6 97 c2 56 81 41 01 24 93 a0 00 02 81 04 50 0e e9 20 00 ff 59 94 83 c1 01 28 39 41 93 84 84 b2 f6 97 c0 f2 f6 97 c1 2a 5f 88 f0 3a 83 c1 01 04 81 40 01 22 11 01 39 61 91 40 01 24 11 09 a1 20 ff fe ┆ N !SST" V A $ P Y (9A *_ : @ " 9a @ $ ┆
0xd75e…d7ae 91 12 81 33 81 84 83 c1 01 04 83 c0 00 f4 f6 97 d4 a8 56 08 81 20 01 00 f6 97 d3 28 83 c0 01 04 f0 3a 86 12 16 02 81 40 01 1c 81 39 16 02 81 40 01 1e 81 39 16 02 05 04 ad 20 39 40 82 40 01 22 83 08 3a 48 50 12 84 40 01 20 f6 97 c1 9e a5 20 ┆ 3 V ( : @ 9 @ 9 9@ @ " :HP @ ┆
0xd7ae…d7fe 00 1f ed 20 00 04 55 04 05 00 57 08 82 39 02 00 16 02 05 08 ad 20 39 40 81 40 01 24 50 24 84 40 01 28 83 04 3b 41 f0 15 aa 04 ed 20 39 40 54 0c 82 39 02 00 16 02 05 10 ad 20 39 40 1d 04 f6 97 c1 9e 82 39 f0 3a 01 00 e1 50 00 01 f6 97 c1 ca ┆ U W 9 9@ @ $P$ @ ( ;A 9@T 9 9@ 9 : P ┆
0xd7fe…d84e f0 15 aa 04 1b 01 50 18 ed 20 39 40 54 0c 82 39 02 00 16 02 05 10 ad 20 39 40 1d 04 14 01 5f 2a f0 3a 21 ff e9 20 00 29 52 14 e9 20 00 40 52 0a 50 0c e9 20 00 46 51 06 08 01 40 01 54 00 a0 10 a2 88 0a 85 08 81 0a 00 04 80 00 81 00 00 00 00 ┆ P 9@T 9 9@ _* :! )R @R P FQ @ T ┆
0xd84e…d89e (140, 0, 400) 11 09 21 0f f0 3a 81 20 00 80 f6 97 d3 28 04 01 02 00 01 00 e1 4e 00 01 81 04 50 44 e9 21 00 ff 50 38 e9 21 3d 3d 50 28 e9 21 4e 4e 50 32 e9 21 53 53 50 2c 12 01 ea 20 00 ff 55 08 81 20 00 80 f6 97 d3 28 83 10 93 0e e1 2d 93 a0 00 01 5f 3e ┆ ! : ( N PD ! P8 !==P( !NNP2 !SSP, U ( - _>┆
0xd89e…d8ee 1a 01 1c 02 93 a0 00 01 5f 48 1a 01 9b a0 00 01 f0 3a e0 ce 00 01 e8 a1 00 00 50 06 e8 a1 41 41 54 02 98 82 f0 3a e5 4e 00 01 3d 48 e5 4e 00 02 f6 97 d6 0e f0 3a e5 4e 00 15 3d 48 e5 4e 00 16 f6 97 d6 0e f0 3a e5 26 3d 48 e5 46 00 01 f6 97 ┆ _H : P AAT : N =H N : N =H N : &=H F ┆
0xd8ee…d93e d6 0e f0 3a e5 46 00 05 3d 48 e5 46 00 06 f6 97 d6 0e f0 3a 84 3f 86 3f 86 06 16 0a f6 97 d6 66 81 14 86 3e 84 3e f0 3a 86 14 87 18 82 8e 83 c0 01 0e eb 8a 50 1a e5 4e 00 0d 3d 48 e5 4e 00 0e ed 18 54 06 f6 97 c2 56 97 04 f6 97 d6 28 5f 1e ┆ : F =H F : ? ? f > > : P N =H N T V (_ ┆
0xd93e…d98e 85 1c f0 3a 81 40 00 c0 21 01 50 04 d1 28 57 02 81 28 f0 3a 84 40 00 f0 82 30 1c 02 82 08 50 06 84 30 1a 01 5f 08 82 10 83 40 00 ea 51 18 03 05 1a 02 ea 40 00 f2 50 06 1b 01 50 24 5f 0e 82 40 00 f4 90 41 00 ea 03 05 1a 02 ea 12 50 0a 82 41 ┆ : @ ! P (W ( : @ 0 P 0 _ @ Q @ P P$_ @ A P A┆
0xd98e…d9de 00 f4 1b 01 50 0a 5f 10 81 20 01 00 f6 97 d3 28 85 51 ff fe 83 40 00 fa 83 51 ff fc 12 04 82 31 90 61 00 f0 f0 3a 84 40 01 0a f6 97 c4 c8 84 c0 00 a8 83 92 94 a0 00 02 02 00 00 00 40 00 00 00 40 40 80 81 00 80 12 10 10 04 20 a0 81 10 4a 80 ┆ P _ ( Q @ Q 1 a : @ @ @@ J ┆