|
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: 52594 (0xcd72)
Notes: pts_type(SC)
Names: »PAD.SC«
└─⟦928b1fd3e⟧ Bits:30009671 Philips computer tape "600131"
└─⟦this⟧ »SAVE/PAD.SC«
IDENT PAD REL 11.0 DK 82-03-08 870150541100 DK PROGRAM TAB =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 LMP3ON INHIBIT LAMP ON (KEYB) EXTRN READNW READ WITH NO WAIT (DCSNA,DCBSC) EXTRN WAIT SYNCHRONIZE (DCSNA,DCBSC) EXTRN DCWRIT WRITE DC BUFFER (DCSNA,DCBSC) EXTRN DISMOD DISPLAY MODIFIED FIELDS (VDU) EXTRN THRBUF THROW BUFFERS (DCSNA,DCBSC) EXTRN NLROUT NEW LINE ROUTINE (VDU) EXTRN LINE WRAP ROUTINE (VDU) EXTRN LINATT INTERNAL LINEFLAG ROUTINE (VDU) EXTRN LINWRP ANOTHER WRAP ROUTINE (VDU) EXTRN ERROR ERROR INCATOR (KEYB) EXTRN MATCH MATCH ADDRESS AND TASKID (DSPBSC) EXTRN ICSET INTERTASK TIMEOUT (KEYB) EXTRN ICWRT INTERTASK WRITE (KEYB) EXTRN COPP COPY ON PRINTER DIRECTLY =4 EJECT *************************************************** * * * CONDITIONAL ASSEMBLY PARAMETERS * * * *************************************************** X:A EQU 0 SNA HANDLING IF:=1 SNA EQU 0 X:K EQU 2 NUMBER OF BUFFERS (1-32) BUFFNR EQU 02 X:L EQU 1150 MAX BUFFER SIZE IN WORDS BUFFL EQU 1150 X:M EQU 0 COPY COMMAND INCLUDED IF:=1 COPCMD EQU 1 X:N EQU 1 EBCDIC CHAR IF:=1 EBCDIC EQU 1 X:Z EQU 1 =0,WHOLE,=1 CHAIN,=2 SEGMENT DISHOW EQU X:Z EJECT *************************************************************** * * * DECLARATION OF DATA AND EQUATES * * *************************************************************** * * EQUATES FOR ECB HANDLING * ECBBA EQU 2 BUFFER ADDRESS ECBRL EQU 4 REQUESTED LENGTH ECBEL EQU 6 EFFECTIVE LENGTH ECBRC EQU 8 RETURN CODE ECBCW EQU 10 CONTROL WORD * * INTERNAL STATUS * LICREC EQU /2000 LAST IN CHAIN RECEIVED THROWB EQU /0800 THROW BUFFERS NEWCH EQU /0400 NEW CHAIN ATTREC EQU /0002 ATTRIBUTE RECEIVED PTORD EQU /0001 PT ORDER INDICATOR IFT SNA=1 * * SNA MODES * LOCMOD EQU 0 LOCAL MODE SYSOP EQU 2 SYSTEM MODE MYJOB EQU 4 MY JOB MODE XIF * * TASK IDENTIFICATION CODE * VDUCOD EQU 'VV' VDU KB TASK * * SPECIAL CHARACTERS * NULL EQU 0 NULL CHAR. SBACH EQU /11 SBA CHAR. ESCCHA EQU /1B ESCAPE CHAR. * * VDU SCREEN SIZE * LBVDU EQU 1920 TOTAL SIZE LLINE EQU 80 LINE LENGTH * * BUFFER LINK LENGTH * LINK EQU BUFFL+BUFFL+2 EJECT * * RELATIVE ADDRESSES IN * TERMINAL WORKBLOCK * TCT01 EQU 0 TASK IDENTIFICATION BVDU EQU TCT01+2 SCREEN BUFFER LINFLG EQU BVDU+1920 INTERNAL LINE FLAGS PCURS EQU LINFLG+24 CURSOR ADDRESS , BINARY CURATT EQU PCURS+4 WCC EQU CURATT+2 WCC/CCC CHARACTER KBINH EQU WCC+2 INHIBIT INDICATOR DCLENG EQU KBINH+4 LENGTH OF DC BUFFER CURPOS EQU DCLENG+30 CURSOR POS IN SYSTEM MODE BUFPNT EQU CURPOS+2 BUFFER ADDRESS REGI EQU BUFPNT+2 WORK REGISTER STACK1 EQU REGI+2 INTERNAL STACK STACK2 EQU STACK1+14 UNPMOD EQU STACK2+14 UNPACK MODE SNAMOD EQU UNPMOD+2 SNA MODE ECBICW EQU SNAMOD+12 ECB INTERTASK WRITE =3 EJECT ************************************************************ * * * PACK PACK MODIFIED VDU-FIELDS INTO DC-BUFFER * * * ************************************************************* * REGISTERS * * A2= CHAR. * A3= ADDRESS IN VDU-BUFFER * A4= REL. CURSOR POS. * A5= REL. ATTRIBUTE POS. * A6= ATTRIBUTE CHAR * A8= ADDRESS IN DC-BUFFER * A9= DC-BUFFER INDEX * A10= START ADDRESS * A11= RESERVED * A12= BUFFER ADDRESS * A13= RESERVED * ************************************************************ PACK EQU * CF A14,SCRINF GET SCREEN INFORMATION LDK A4,0 FIRST SCREEN POS. LDKL A3,BVDU ADR A3,A11 LDR A10,A4 INITIATE ADDRESS CWK A5,LBVDU+1 UNFORMATTED SCREEN? RF(E) PACK70 YES PACK10 EQU * LCR A2,A3 GET CHAR. CCK A2,/8000 ATTRIBUTE? RF(NL) PACK15 YES ADK A3,1 ADK A4,1 RB PACK10 PACK15 EQU * LDR A10,A4 START ADDRESS RF PACK30 PACK20 EQU * CF A14,WRAP CHECK IF WRAP AROUND CWR A10,A4 ALL SCANNED? RF(E) PACK80 YES PACK30 EQU * LCR A2,A3 GET CHAR. ADK A3,1 ADK A4,1 CCK A2,/8000 ATTRIBUTE? RB(L) PACK20 NO ANK A2,1 MODIFIED FIELD? RF(NZ) PACK50 YES ADK A3,1 ADK A4,1 RB PACK20 PACK50 EQU * LDK A2,SBACH SBA TO DC-BUFFER LDKL A1,/8000 INDICATE SBA CF A14,PUTCHA PUT CHAR. IN BUFFER LDR A1,A1 TRANSMISSION OK? RF(NZ) PACK90 NO LDR A1,A4 BUFFER ADDRESS TO DC-BUFFER CF A14,BUFADR PACK60 EQU * CF A14,WRAP CHECK IF WRAP AROUND CWR A10,A4 ALL SCANNED? RF(E) PACK80 YES PACK70 EQU * LCR A2,A3 GET CHAR. CCK A2,/8000 ATTRIBUTE? RB(NL) PACK20 YES CWK A2,NULL NULL CHAR? RF(E) PACK75 YES,DON'T STORE CF A14,PUTCHA PUT CHAR. IN BUFFER LDR A1,A1 TRANSMISSION OK? RF(NZ) PACK90 NO PACK75 EQU * ADK A3,1 ADK A4,1 RB PACK60 PACK80 EQU * LDK A1,0 INDICATE LAST IN CHAIN CF A14,DCWRIT WRITE DC BUFFER PACK90 EQU * LDR A8,A12 BUFFER TO RELEASE CF A14,RELBUF RELEASE BUFFER RTN A14 EJECT ************************************************************ * * * UNPACK UNPACK DC-BUFFER AND UPDATE VDU * * * ************************************************************ * REGISTERS * * A2= CHAR. * A3= POINTER IN VDU-BUFFER * A4= REL. CURSOR POS. * A5= LAST IN ROW REL POS * A6= INTERNAL LINE FLAG ADDRESS * A8= ADDRESS IN DC-BUFFER * A9= DC-BUFFER INDEX * A10= INDICATOR * A11= CREDIT WORK AREA * A12= RESERVED * A13= RESERVED * ******************************************************** UNPACK EQU * LDK A1,3 KB TOTALLY INHIBIT ORS A1,KBINH,A11 LC A1,TCT01,A11 CCK A1,VDUCOD PRINTER UNPACK? RF(NE) UNP050 YES CF A14,LMP3ON INHIBIT LAMP ON UNP050 EQU * CF A14,SCRINF GET SCREEN INFORMATION LDR A6,A11 LDK A5,LLINE CF A14,LINE CHECK WRAP AND LINE FLAG SUR A9,A9 LD A8,BUFPNT,A11 GET BUFFER ADDRESS LDK A1,ICOMND PROCESS COMMAND ST A1,UNPMOD,A11 UNP100 EQU * CF A14,GDCCH GET CHAR. LDR A1,A1 ANYTHING LEFT? RF(NZ) UNP200 NO LD A1,UNPMOD,A11 GET ADDRESS TO START AT CFI A14,RETTAB,A1 RESTART LDR A1,A1 PROCESS OKEY? RB(Z) UNP100 YES RF UNP300 UNP200 EQU * IFT SNA=1 CF A14,GETNXT GET NEXT BUFFER LDR A1,A1 FINISHED? RB(Z) UNP100 NO XIF UNP300 EQU * CF A14,SCRINF GET LATEST NEWS LDR A1,A4 CF A14,ATMASB SEARCH ATTRIBUTE BACKWARDS IFT SNA=1 ANKL A10,THROWB THROW BUFFERS? RF(Z) UNP400 NO CF A14,THRBUF THROW BUFFERS RF UNP600 UNP400 EQU * IFF DISHOW=2 LC A1,TCT01,A11 CCK A1,VDUCOD RF(NE) UNP500 CF A14,DISMOD TESTINGTESTINGTESTING!!!!!!!!!!!!! UNP500 EQU * XIF CF A14,P2WCC CHECK IT A LAST TIME =4 LDR A8,A12 GET BUFFER TO RELEASE CF A14,RELBUF RELEASE BUFFER UNP600 EQU * RTN A14 EJECT ********************************************************************** * * * INDEX FOR RETURNS AFTER GET CHARCTER * * * ********************************************************************** ICOMND EQU 0 ICOMN1 EQU ICOMND+2 IFT COPCMD=1 ICOCOP EQU ICOMN1+2 ICOWCC EQU ICOCOP+2 XIF IFF COPCMD=1 ICOWCC EQU ICOMN1+2 XIF IORDER EQU ICOWCC+2 IOSFAT EQU IORDER+2 IOSBA1 EQU IOSFAT+2 IOSBA2 EQU IOSBA1+2 IORAA1 EQU IOSBA2+2 IORAA2 EQU IORAA1+2 IORACH EQU IORAA2+2 IOEUA1 EQU IORACH+2 IOEUA2 EQU IOEUA1+2 EJECT ********************************************************************* * * * RETURN ADDRESSES AFTER GET CHARACTER * * * ********************************************************************* RETTAB EQU * DATA UNPCOM PROCESS COMMAND CHAR. DATA UNC100 PROCESS COMMAND CHAR AFTER ESC. IFT COPCMD=1 DATA UNC150 PROCESS FROM DEVICE XIF DATA UNC600 PROCESS WCC DATA UNPORD PROCESS ORDERS AND CHAR. DATA SF100 PROCESS ATTRIBUTE DATA SBA100 PROCESS FIRST ADDRESS BYTE DATA SBA200 PROCESS SECOND ADDRESS BYTE DATA RA100 PROCESS FIRST ADDRESS BYTE DATA RA200 PROCESS SECOND ADDRESS BYTE DATA RA250 PROCESS CHAR. TO REPEAT DATA EUA100 PROCESS FIRST ADDRESS BYTE DATA EUA200 PROCESS FIRST ADDRESS BYTE EJECT *********************************************************************** * * * UNPCOM UNPACK COMMAND * * * *********************************************************************** * REGISTERS * * A2= CHAR. * A3= ADDRESS IN VDU-BUFFER * A4= REL. CURSOR ADDRESS * A5= LAST IN ROW REL POS * A6= INTERNAL LINE FLAG ADDRESS * A8= ADDRESS IN DC-BUFFER * A9= RESERVED * A10= INDICATOR * A11= CREDIT WORK AREA * A12= RESERVED * A13= RESERVED * ************************************************************************ UNPCOM EQU * ENTRY LABEL FROM RETTAB IFF SNA=1 LDK A1,ICOMN1 WHERE TO CONTINUE ST A1,UNPMOD,A11 LDK A1,0 RETURN CODE CWK A2,ESCCHA ESCAPE? RF(E) UNC900 YES LDK A1,1 NO INDICATE ERROR RF UNC900 XIF UNC100 EQU * CWK A2,/31 WRITE? RF(E) UNC500 YES CWK A2,/35 ERASE AND WITE? RF(E) UNC200 YES CWK A2,/3F ERASE ALL UNPROTECTED? RF(E) UNC300 YES IFT COPCMD=1 CWK A2,/37 COPY COMMAND? RF(NE) UNC175 NO LDK A1,ICOCOP RESTART ENTRY RF UNC800 UNC150 EQU * ENTRY LABEL FROM RETTAB CF A14,MATCH GET TASKID LDR A1,A1 OK? RF(NZ) UNC175 NO LDKL A1,/8000 RETURN CODE TO INDICATE COPY COMND. ST A1,REGI,A11 LD A8,ECBICW,A11 CF A14,ICSET SET TIMEOUT LDR A1,A2 TASK TO CALL LDK A2,2 LENGTH LDKL A3,REGI ADR A3,A11 BUFFER CF A14,ICWRT SEND IT UNC175 EQU * XIF LDKL A10,THROWB THROW THE REST LDK A1,1 INDICATE ERROR RF UNC900 INVALID COMMAND UNC200 EQU * ST A8,REGI,A11 CF A14,ERASE ERASE ENTIRE SCREEN LD A8,REGI,A11 LDR A6,A11 LDK A5,LLINE LDK A4,0 INITIATE BUFFER ADDRESS RF UNC500 UNC300 EQU * CF A14,ERASUP ERASE ALL UNPROTECTED LDKL A10,THROWB THROW IT AWAY LDK A1,1 INDICATE ERROR RF UNC900 UNC500 EQU * LDK A1,ICOWCC GET INDEX ST A1,UNPMOD,A11 LDK A1,0 RF UNC900 UNC600 EQU * ENTRY LABEL FROM RETTAB CF A14,P1WCC PROCESS WCC BEFORE UPDATE LDR A3,A4 ADKL A3,BVDU GET REAL ADDRESS ADR A3,A11 ORKL A10,PTORD INDICATE PT ORDER LDK A1,IORDER INDICATE NEXT CALL UNC800 EQU * ST A1,UNPMOD,A11 LDK A1,0 UNC900 EQU * RTN A14 EJECT ********************************************************** * * * UNPORD UNPACK ORDERS * * * ********************************************************** * REGISTERS * * A2= CHAR. * A3= POINTER IN VDU BUFFER * A4= REL. CURSOR POS. * A5= LAST IN ROW REL POS * A6= INTERNAL LINE FLAG ADDRESS * A8= RESERVED * A9= RESERVED * A10= INDICATOR * A11= RESERVED * A12= RESERVED * A13= RESERVED * ********************************************************** UNPORD EQU * ENTRY LABEL FROM RETTAB CWK A2,/20 ORDER? RF(L) UNO100 YES XRKL A10,PTORD INDICATE FOR PT ORDER CWR A5,A4 NEW LINE? RF(G) UNO050 NO CF A14,LINE CHECK WRAP UNO050 EQU * SCR A2,A3 STORE CHAR. IN VDU BUFFER LC A1,LINFLG,A6 ORK A1,1 SC A1,LINFLG,A6 ADK A4,1 ADK A3,1 LDK A1,0 RF UNO200 UNO100 EQU * LC A1,CONORD,A2 GET ORDER INDEX CFI A14,ORDTAB,A1 TAKE CARE OF ORDER UNO200 EQU * RTN A14 EJECT ************************************************************* * * * ORDTAB ORDER TABLE * * * ************************************************************* ORDTAB EQU * DATA INVAL INVALID CHAR. DATA SF START FIELD DATA SBA SET BUFFER ADDRESS DATA IC INSERT CURSOR DATA PT TAB. DATA RA REPEAT TO AADRESS DATA EUA ERASE UNPROTECTED TO ADDRESS DATA ESC ESCAPE DATA NULCHA NULL CHAR. DATA NL NEW LINE DATA FF FORM FEED DATA EM END MESSAGE DATA CR CARRIAGE RETURN EJECT *********************************************************** * * * SF START FIELD * * * *********************************************************** * REGISTERS * * A1= RETURN CODE * A2= RESERVED * A3= POINTER IN VDU BUFFER * A4= REL. CURSOR POS. * A5= RESERVED * A6= RESERVED * A8= RESERVED * A9= DC-BUFFER INDEX * A10= INDICATOR * A11= CREDIT WORK AREA * A12= RESERVED * A13= RESERVED * ************************************************************ SF EQU * LDK A1,IOSFAT INDICATE NEXT CALL ST A1,UNPMOD,A11 RF SF900 GET CHAR. SF100 EQU * ENTRY LABEL FROM RETTAB LDK A1,IORDER NEXT ALBEL ST A1,UNPMOD,A11 LC A2,CONATT,A2 IN EBCDIC ORK A2,/80 ATTR. BIT CM CURATT,A11 ORKL A10,ATTREC+PTORD CF A14,LINWRP CHECK WRAP LC A1,LINFLG,A6 ANK A1,2 LINE IN FIELD? RF(Z) SF600 NO CF A14,LINATT INDICATE ATTRIBUTE OVERRUN SF600 EQU * ORKL A10,ATTREC INDICATE ATTRIBUTE RECEIVED SCR A2,A3 STORE CHAR. ADK A3,1 ADK A4,1 SF900 EQU * LDK A1,0 RTN A14 EJECT *********************************************************** * * * SBA SET BUFFER ADDRESS * * * *********************************************************** * REGISTERS * * A1= RETURN CODE * A2= CHAR. * A3= RESERVED * A4= RESERVED * A5= RESERVED * A6= RESERVED * A8= RESERVED * A9= RESERVED * A10= INDICATOR * A11= CREDIT WORK AREA * A12= RESERVED * A13= RESERVED * *********************************************************** SBA EQU * LDK A1,IOSBA1 NEXT LABEL ST A1,UNPMOD,A11 LDK A1,0 RF SBA900 FIRST BYTE SBA100 EQU * ENTRY LABEL FROM RETTAB LC A7,CONATT,A2 CONVERT ANK A7,/3F SLL A7,6 LDK A1,IOSBA2 ST A1,UNPMOD,A11 LDK A1,0 RF SBA900 NEXT BYTE SBA200 EQU * ENTRY LABEL FROM RETTAB LC A2,CONATT,A2 ANK A2,/3F ORR A7,A2 LDK A1,IORDER NEXT LABEL ST A1,UNPMOD,A11 CWK A7,LBVDU ILLEGAL ADDRESS? RF(NL) SBA800 YES LDR A3,A7 LDR A4,A3 ADKL A3,BVDU ADR A3,A11 ORKL A10,PTORD INDICATE PT ORDER CF A14,LINE CHECK WRAP AND LINE FLAGS LDK A1,0 REURN CODE RF SBA900 SBA800 EQU * ORKL A10,THROWB DON'T SAVE IT LDK A1,1 RETURN CODE SBA900 EQU * RTN A14 EJECT ********************************************************** * * * IC INSERT CURSOR * * * ********************************************************** * REGISTERS * * A1= RETURN CODE * A2= RESERVED * A3= RESERVED * A4= REL. CURSOR POS. * A5= RESERVED * A6= RESERVED * A9= RESERVED * A10= INDICATOR * A11= CREDIT WORK AREA * A12= RESERVED * A13= RESERVED * *********************************************** IC EQU * ST A4,PCURS,A11 ORKL A10,PTORD INDICATE LDK A1,0 RETURN CODE RTN A14 EJECT *********************************************************** * * * PT PROGRAM TAB. * * * *********************************************************** * REGISTERS * * A1= RETURN CODE * A2= CHAR. * A3= ADDRESS IN VDU-BUFFER * A4= REL. CURSOR POS. * A5= RESERVED * A6= ATTRIBUTE CHAR. * A8= RESERVED * A9= RESERVED * A10= INDICATOR * A11= RESERVED * A12= RESERVED * A13= RESERVED * ************************************************************ PT EQU * LDR A1,A10 ANK A1,PTORD FOLLOWING ORDER OR COMMAND? RF(NZ) PT400 YES LDK A7,NULL FILL WITH NULLS TO END OF FIELD PT200 EQU * CF A14,LINWRP CHECK WRAP LDR A4,A4 END OF BUFFER? RF(Z) PT800 YES, KUNTA KINTE LCR A2,A3 ANK A2,/80 ATTRIBUTE? RF(NZ) PT400 YES SCR A7,A3 STORE NULL CHAR. LC A1,LINFLG,A6 ORK A1,1 SC A1,LINFLG,A6 ADK A3,1 ADK A4,1 RB PT200 PT400 EQU * CF A14,LINWRP CHECK WRAP LDR A4,A4 END OF BUFFER? RF(Z) PT700 YES OS AND DOS LCR A2,A3 GET CHAR. ANK A2,/80 ATTRIBUTE? RF(NZ) PT500 YES ADK A4,1 ADK A3,1 RB PT400 PT500 EQU * LCR A2,A3 GET CHAR. AGAIN DK ANK A2,/20 PROTECTED? RB(NZ) PT400 YES ADK A4,1 ADK A3,1 CF A14,LINWRP CHECK WRAP PT700 EQU * ORKL A10,PTORD PT800 EQU * LDK A1,0 RETURN CODE RTN A14 EJECT ************************************************************* * * * RA REPEAT TO ADDRESS * * * ************************************************************* * REGISTERS * * A1= RETURN CODE * A2= CHAR. TO BE REPEATED * A3= ADDRESS IN VDU-BUFFER * A4= REL. CURSOR POS. * A5= RESERVED * A6= INTERNAL LINE FLAG ADDRESS * A8= RESERVED * A9= DC-BUFFER INDEX * A10= INDICATOR * A11= CREDIT WORK AREA * A12= RESERVED * A13= RESERVED * ************************************************** RA EQU * LDK A1,IORAA1 NEXT LABEL ST A1,UNPMOD,A11 LDK A1,0 RF RA900 FIRST BYTE RA100 EQU * ENTRY LABEL FROM RETTAB LC A7,CONATT,A2 CONVERT ANK A7,/3F SLL A7,6 LDK A1,IORAA2 NEXT LABEL ST A1,UNPMOD,A11 LDK A1,0 RF RA900 SECOND BYTE RA200 EQU * ENTRY LABEL FROM RETTAB LC A2,CONATT,A2 ANK A2,/3F ORR A7,A2 CWK A7,LBVDU INVALID ADDRESS RF(NL) RA800 YES LDK A1,IORACH NEXT LABEL ST A1,UNPMOD,A11 LDK A1,0 RF RA900 CHAR. BYTE RA250 EQU * ENTRY LABEL FROM RETTAB LDK A1,IORDER ST A1,UNPMOD,A11 RA300 EQU * SCR A2,A3 STORE IN VDU-BUFFER LC A1,LINFLG,A6 ORK A1,1 SC A1,LINFLG,A6 ADK A3,1 ADK A4,1 CF A14,LINWRP CHECK WRAP =1 CWR A4,A7 ALL REPEATED? =1 RB(NE) RA300 NO =1 ORKL A10,PTORD INDICATE PT ORDER LDK A1,0 RETURN CODE RF RA900 RA800 EQU * ORKL A10,THROWB THROW IT AWAY LDK A1,1 RETURN CODE RA900 EQU * RTN A14 EJECT ****************************************************** * * * EUA ERASE UNPRO. TO ADDRESS * * * ****************************************************** * REGISTERS * * A1= RETURN CODE * A2= CHAR. * A3= RESERVED * A4= RESERVED * A5= RESERVED * A6= RESERVED * A8= RESERVED * A9= RESERVED * A10= INDICATOR * A11= CREDIT WORK AREA * A12= RESERVED * A13= RESERVED * ******************************************************* EUA EQU * LDK A1,IOEUA1 NEXT LABEL ST A1,UNPMOD,A11 LDK A1,0 RF EUA900 FIRST BYTE EUA100 EQU * ENTRY LABEL FROM RETTAB LC A7,CONATT,A2 CONVERT ANK A7,/3F SLL A7,6 LDK A1,IOEUA2 NEXT LABEL ST A1,UNPMOD,A11 LDK A1,0 RF EUA900 SECOND BYTE EUA200 EQU * ENTRY LABEL FROM RETTAB LC A2,CONATT,A2 ANK A2,/3F ORR A7,A2 LDK A1,IORDER NEXT LABEL ST A1,UNPMOD,A11 CWK A1,LBVDU INVALID ADDRESS? RF(NL) EUA800 YES LDR A1,A7 CF A14,ERASUA ERASE UNPRO. TO ADDRESS CF A14,SCRINF LDK A1,0 RETURN CODE ORKL A10,PTORD INDICATE PT ORDER RF EUA900 EUA800 EQU * ORKL A10,THROWB RUBB. LDK A1,1 RETURN CODE EUA900 EQU * RTN A14 EJECT ******************************************************** * * * CHAR. < /20 BUT NOT ORDER * * * ******************************************************** * REGISTERS * * A1= RETURN CODE * A2= CHAR. * A3= ADDRESS IN VDU-BUFFER * A4= REL. CURSOR POS. * A5= RESERVED * A6= INTERNAL LINE FLAG ADDRESS * A8= RESERVED * A9= RESERVED * A10= INDICATOR * A11= CREDIT WORK AREA * A12= RESERVED * A13= RESERVED * ************************************************ ESC EQU * ORKL A10,LICREC INDICATE COMMAND LDK A1,1 STOP ORDER PROCESS RF CHARET INVAL EQU * ORKL A10,/9800 END UNPACKING LDK A1,1 RF CHARET NULCHA EQU * NL EQU * FF EQU * EM EQU * CR EQU * CF A14,LINWRP CHECK WRAP SCR A2,A3 STORE CHAR. LC A1,LINFLG,A6 ORK A1,1 SC A1,LINFLG,A6 XRKL A10,PTORD INDICATE PT ORDER ADK A3,1 ADK A4,1 LDK A1,0 CONTINUE CHARET EQU * RTN A14 EJECT **************************************************************** * * * PACKSY PACK DC BUFFER IN SYSTEM MODE * * * **************************************************************** * REGISTERS * * A2= CHAR * A3= ADDRESS IN VDU-BUFFER * A4= REL. CURSOR POS. * A5= RESERVED * A6= RESERVED * A8= ADDRESS IN DC-BUFFER * A9= INDEX IN DC-BUFFER * A11= CREDIT WORK AREA * A12= BUFFER ADDRESS * A13= RESERVED * *************************************************************** PACKSY EQU * IFT SNA=1 LDKL A9,0 COUNTER LD A3,CURPOS,A11 GET START POS. CWK A3,/800 ANY CHAR. ON DISPLAY? RF(E) PASY40 NO CF A14,SCRINF GET SCREEN INFORMATION LDR A1,A4 SUR A1,A3 GET LENGTH OF MESSAGE RF(NN) PASY10 NOT WRAP AROUND LDKL A1,LBVDU-1 LAST POS. ON SCREEN SUR A1,A3 GET LENGTH AGAIN PASY10 EQU * CWK A1,256 ILLEGAL LENGTH? RF(NG) PASY20 NO LDKL A1,256 ADJUST LENGTH PASY20 EQU * ADKL A3,BVDU ADR A3,A11 PASY30 EQU * CWR A1,A9 ALL EXAMINED? RF(E) PASY40 YES LCR A2,A3 GET CHAR IN VDU BUFFER ADK A3,1 CWK A2,NULL NULL CHAR.? RB(E) PASY30 YES, DON'T STORE CF A14,PDCCH STORE CHAR. IN DC BUFFER RB PASY30 PASY40 EQU * LDK A1,0 INDICATE LAST IN CHAIN CF A14,DCWRIT SEND BUFFER LDR A8,A12 GET BUFFER TO RELEASE CF A14,RELBUF RELEASE BUFFER XIF RTN A14 EJECT ************************************************************* * * * UNPSYS UNPACK DC BUFFER IN SYSTEM MODE * * * ************************************************************* * REGISTERS * * A2= CHAR. * A3= ADDRESS IN VDU-BUFFER * A4= REL. CURSOR POS. * A5= LAST IN ROW REL POS * A6= INTERNAL LINE FLAG ADDRESS * A8= ADDRESS IN DC-BUFFER * A9= INDEX IN DC-BUFFER * A10= INDICATOR * A11= CREDIT WORK AREA * A12= RESERVED * A13= RESERVED * ************************************************************** UNPSYS EQU * IFT SNA=1 LD A1,KBINH,A11 ORK A1,3 ST A1,KBINH,A11 CF A14,LMP3ON 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 ** ASCII - EBCDIC CONVERSION DELETED PR. 8625, DK** XIF SCR A2,A8 STORE IN DC-BUFFER ADKL A8,1 ADKL A9,1 PDC100 EQU * RTN A14 EJECT *************************************************************** * * * GDCCH GET CHAR. IN DC BUFFER * * * *************************************************************** * REGISTERS * * A1= RETURN CODE * A2= CHAR. * A3= POINTER IN VDU BUFFER * A4= RESERVED * A5= RESERVED * A6= RESERVED * A8= ADDRESS IN DC-BUFFER * A9= DC-BUFFER INDEX * A10= INDICATOR * A11= CREDIT WORK AREA * A12= RESERVED * A13= RESERVED * **************************************************** GDCCH EQU * LDK A1,1 PRESET ERROR CW A9,DCLENG,A11 BUFFER EMPTIED? RF(NL) GDCC90 YES LDK A1,0 LCR A2,A8 GET CHAR. ANK A2,/FF IFT EBCDIC=1 * EBCDIC-ASCII CONVERSION DELETED PR. 8625,DK* XIF ADKL A8,1 ADKL A9,1 GDCC90 EQU * RTN A14 EJECT *********************************************************** * * * PAID STORE AID IN BUFFER * * * *********************************************************** * REGISTERS * * A2= AID * A11= RESERVED * A13= RESERVED * ********************************************************** PAID EQU * CF A14,PDCCH STORE AID RTN A14 EJECT ********************************************************** * * * BUFADR STORE BUFFER ADDRESS IN DC-BUFFER * * * ********************************************************** * REGISTERS * * A2= CHAR. * A3= RESERVED * A4= RESERVED * A5= RESERVED * A6= RESERVED * A8= RESERVED * A9= RESERVED * A10= RESERVED * A11= RESERVED * A12= RESERVED * A13= RESERVED * ********************************************************** BUFADR EQU * LDR A2,A1 GET REL. POS. SRL A2,6 ANK A2,/3F LC A2,CONADR,A2 CONVERT TO ASCII CF A14,PDCCH STORE IN DC-BUFFER LDR A2,A1 GET REL. POS. ANK A2,/3F LC A2,CONADR,A2 CONVERT TO ASCII CF A14,PDCCH STORE IN DC-BUFFER RTN A14 EJECT ************************************************************ * * * RESMDT RESET ALL MDT-BITS IN ATTRIBUTES * * * ************************************************************ * REGISTERS * * A2= CHAR. * A3= ADDRESS IN VDU-BUFFER * A4= RESERVED * A5= RESERVED * A6= RESERVED * A8= RESERVED * A9= RESERVED * A10= RESERVED * A11= CREDIT WORK AREA * A12= RESERVED * A13= RESERVED * ************************************************************* RESMDT EQU * LDK A1,0 FIRST SCREEN POS. LDKL A3,BVDU ADR A3,A11 RESM10 EQU * CWK A1,LBVDU ALL SCANNED? RF(NL) RESM90 YES LCR A2,A3 GET CHAR. CCK A2,/8080 ATTRIBUTE? RF(L) RESM20 NO ANK A2,/FE RESET MDT-BIT SCR A2,A3 RESTORE RESM20 EQU * ADK A1,1 ADK A3,1 RB RESM10 RESM90 EQU * RTN A14 EJECT ******************************************************** * * * P1WCC PROCESS WCC BEFORE UPDATE * * ******************************************************** * REGISTERS * * A2= CHAR. * A3= RESERVED * A4= RESERVED * A5= RESERVED * A6= RESERVED * A8= RESERVED * A9= RESERVED * A10= RESERVED * A11= CREDIT WORK AREA * A12= RESERVED * A13= RESERVED * *************************************************** P1WCC EQU * LC A2,CONATT,A2 IN EBCDIC ST A2,WCC,A11 SAVE ANK A2,1 RESET MDT-BITS? RF(Z) P1W900 NO CF A14,RESMDT RESET ALL MDT-BITS P1W900 EQU * RTN A14 EJECT ********************************************************* * * * P2WCC TAKE CARE OF WCC AFTER UPDATE * * * ********************************************************* * REGISTERS * * A11= CREDIT WORK AREA * A12= RESERVED * A13= RESERVED * ********************************************************** P2WCC EQU * CF A14,SAVE2 KEEP IT AWAY =4 LD A1,WCC,A11 LDR A7,A1 ANK A7,4 SOUND? RF(Z) P2W100 NO CF A14,SOUND SOUND P2W100 EQU * ANK A1,8 COPY? RF(Z) P2W300 NO LC A1,TCT01,A11 . =4 CCK A1,VDUCOD VDU =4 RF(NE) P2W200 NO PRINTER =4 CF A14,COPY COPY RF P2W300 . =4 P2W200 EQU * . =4 CF A14,COPP COPY DIRECTLY =4 P2W300 EQU * CF A14,REST2 TAKE IT BACK =4 RTN A14 EJECT ****************************************************************** * * * SAVE SAVE PACK AND UNPACK INFORMATION * * * ****************************************************************** * REGISTERS * * A1= STACK POINTER * A2= CHAR. * A3= VDU BUFFER ADDRESS * A4= REL CURSOR POS. * A5= REL STTRIBUTE POS. * A6= ATTRIBUTE CHAR. * A10= INTERNAL INDICATOR * A11= CREDIT WORK AREA * A12= RESERVED * A13= RESERVED * **************************************************************** SAVE1 EQU * LDKL A1,STACK1 GET STACK ADDRESS RF SAVE SAVE2 EQU * LDKL A1,STACK2 SAVE EQU * ADR A1,A11 STR A2,A1 ADK A1,2 STR A3,A1 ADK A1,2 STR A4,A1 ADK A1,2 STR A5,A1 ADK A1,2 STR A6,A1 ADK A1,2 STR A7,A1 ADK A1,2 STR A10,A1 RTN A14 EJECT ******************************************************************* * * * RESTOR RESTORE PACK AND UNPACK INFORMATION * * * ******************************************************************* * REGISTERS * * A1= STACK POINTER * A2= CHAR. * A3= VDU BUFFER ADDRESS * A4= REL. CURSOR POS. * A5= REL. ATTRIBUTE POS. * A6= ATTRIBUTE CHAR. * A7= RESERVED * A10= INTERNAL INDICATOR * A11= CREDIT WORK AREA * A12= RESERVED * A13= RESERVED * *************************************************************** REST1 EQU * LDKL A1,STACK1 GET STACK ADDRESS RF RESTOR REST2 EQU * LDKL A1,STACK2 RESTOR EQU * ADR A1,A11 LDR* A2,A1 ADK A1,2 LDR* A3,A1 ADK A1,2 LDR* A4,A1 ADK A1,2 LDR* A5,A1 ADK A1,2 LDR* A6,A1 ADK A1,2 LDR* A7,A1 ADK A1,2 LDR* A10,A1 RTN A14 EJECT ******************************************************* * * * BUFFER POOL * * * ******************************************************* BUFFER EQU * DATA *+2 POINTER FIRST FREE IFF BUFFNR=1 DATA *+LINK RES BUFFL IFF BUFFNR=2 DATA *+LINK RES BUFFL IFF BUFFNR=3 DATA *+LINK RES BUFFL IFF BUFFNR=4 DATA *+LINK RES BUFFL IFF BUFFNR=5 DATA *+LINK RES BUFFL IFF BUFFNR=6 DATA *+LINK RES BUFFL IFF BUFFNR=7 DATA *+LINK RES BUFFL IFF BUFFNR=8 DATA *+LINK RES BUFFL IFF BUFFNR=9 DATA *+LINK RES BUFFL IFF BUFFNR=10 DATA *+LINK RES BUFFL IFF BUFFNR=11 DATA *+LINK RES BUFFL IFF BUFFNR=12 DATA *+LINK RES BUFFL IFF BUFFNR=13 DATA *+LINK RES BUFFL IFF BUFFNR=14 DATA *+LINK RES BUFFL IFF BUFFNR=15 DATA *+LINK RES BUFFL IFF BUFFNR=16 DATA *+LINK RES BUFFL IFF BUFFNR=17 DATA *+LINK RES BUFFL IFF BUFFNR=18 DATA *+LINK RES BUFFL IFF BUFFNR=19 DATA *+LINK RES BUFFL IFF BUFFNR=20 DATA *+LINK RES BUFFL IFF BUFFNR=21 DATA *+LINK RES BUFFL IFF BUFFNR=22 DATA *+LINK RES BUFFL IFF BUFFNR=23 DATA *+LINK RES BUFFL IFF BUFFNR=24 DATA *+LINK RES BUFFL IFF BUFFNR=25 DATA *+LINK RES BUFFL IFF BUFFNR=26 DATA *+LINK RES BUFFL IFF BUFFNR=27 DATA *+LINK RES BUFFL IFF BUFFNR=28 DATA *+LINK RES BUFFL IFF BUFFNR=29 DATA *+LINK RES BUFFL IFF BUFFNR=30 DATA *+LINK RES BUFFL IFF BUFFNR=31 DATA *+LINK RES BUFFL IFF BUFFNR=32 DATA *+LINK RES BUFFL XIF DATA 0 RES BUFFL EJECT ******************************************************* * * * GETBUF GET BUFFER * * * ******************************************************* * REGISTERS * * A8= DC-BUFFER ADDRESS * A9= INDEX IN DC-BUFFER * A11= RESERVED * A12= BUFFER ADDRESS * A13= RESERVED * ******************************************************** GETBUF EQU * LDKL A7,BUFFER GETB10 EQU * LDR* A8,A7 RF(NZ) GETB90 BUFFER FREE LKM DATA 0 SWITCH TASK RB GETB10 GETB90 EQU * LDR* A1,A8 STR A1,A7 ADKL A8,2 LDR A12,A8 SUR A9,A9 RTN A14 EJECT ********************************************************* * * * RELBUF RELEASE BUFFER * * * ********************************************************* * REGISTERS * * A8= BUFFER ADDRESS * A11= RESERVED * A13= RESERVED * ********************************************************* RELBUF EQU * LDKL A7,BUFFER SUKL A8,2 POINT TO LINK RELB10 EQU * LDR* A1,A7 RF(Z) RELB90 LDR A7,A1 RB RELB10 RELB90 EQU * STR A8,A7 CMR A8 RTN A14 END
0x0000…0034 (0, 0, 400) Head {h00=0x0030, h01=0x0050, text=» IDENT PAD REL 11.0 DK 82-03-08 870150541100«, t00=0x0000, t01=0x0004}
0x0034…003c Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0038}
0x003c…0056 Head {h00=0x0016, h01=0x0050, text=» DK PROGRAM TAB «, t00=0x0000, t01=0x0040}
0x0056…0074 Head {h00=0x001a, h01=0x0050, text=» =4 COPY TO PRINTER «, t00=0x0000, t01=0x005a}
0x0074…0088 Head {h00=0x0010, h01=0x0050, text=» 81-05-06 «, t00=0x0000, t01=0x0078}
0x0088…00a4 Head {h00=0x0018, h01=0x0050, text=» =3, MISSING ITEM «, t00=0x0000, t01=0x008c}
0x00a4…00b8 Head {h00=0x0010, h01=0x0050, text=» 81-01-26 «, t00=0x0000, t01=0x00a8}
0x00b8…00d0 Head {h00=0x0014, h01=0x0050, text=» =2, SAVE REG.«, t00=0x0000, t01=0x00bc}
0x00d0…00e4 Head {h00=0x0010, h01=0x0050, text=» 81-01-26 «, t00=0x0000, t01=0x00d4}
0x00e4…0104 Head {h00=0x001c, h01=0x0050, text=» =1, RA ON EUQ ADDRESS«, t00=0x0000, t01=0x00e8}
0x0104…0118 Head {h00=0x0010, h01=0x0050, text=» 81-01-26 «, t00=0x0000, t01=0x0108}
0x0118…015e Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0000, t01=0x011c}
0x015e…01a4 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0000, t01=0x0162}
0x01a4…01ea Head {h00=0x0042, h01=0x0050, text=»* MODULE PAD * «, t00=0x0001, t01=0x0018}
0x01ea…0230 Head {h00=0x0042, h01=0x0050, text=»* MODULE HANDLING THE PACKING AND * «, t00=0x0001, t01=0x005e}
0x0230…0276 Head {h00=0x0042, h01=0x0050, text=»* UNPACKING OF THE DCBUFFER. THE VDU * «, t00=0x0001, t01=0x00a4}
0x0276…02bc Head {h00=0x0042, h01=0x0050, text=»* BUFFER IS UPDATED * «, t00=0x0001, t01=0x00ea}
0x02bc…0302 Head {h00=0x0042, h01=0x0050, text=»* (EMULATION 3270 SNA/SDLC, BSC) * «, t00=0x0001, t01=0x0130}
0x0302…0348 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0001, t01=0x0176}
0x0348…038e Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0002, t01=0x002c}
0x038e…039c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0072}
0x039c…03e6 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0002, t01=0x0080}
0x03e6…03f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00ca}
0x03f0…040a Head {h00=0x0016, h01=0x0050, text=»* LIST OF ROUTINES«, t00=0x0002, t01=0x00d4}
0x040a…0414 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00ee}
0x0414…0458 Head {h00=0x0040, h01=0x0050, text=»* PACK PACK MODIFIED VDU-FIELDS INTO DC-BUFFER «, t00=0x0002, t01=0x00f8}
0x0458…0494 Head {h00=0x0038, h01=0x0050, text=»* UNPACK UNPACK DC-BUFFER AND UPDATE VDU «, t00=0x0002, t01=0x013c}
0x0494…04c0 Head {h00=0x0028, h01=0x0050, text=»* RETTAB RETURN ADDRESSES«, t00=0x0002, t01=0x0178}
0x04c0…04ec Head {h00=0x0028, h01=0x0050, text=»* UNPCOM UNPACK COMMANDS «, t00=0x0003, t01=0x0014}
0x04ec…0516 Head {h00=0x0026, h01=0x0050, text=»* UNPORD UNPACK ORDERS «, t00=0x0003, t01=0x0040}
0x0516…053e Head {h00=0x0024, h01=0x0050, text=»* ORDTAB ORDER TABLE «, t00=0x0003, t01=0x006a}
0x053e…0566 Head {h00=0x0024, h01=0x0050, text=»* SF START FIELD «, t00=0x0003, t01=0x0092}
0x0566…0594 Head {h00=0x002a, h01=0x0050, text=»* SBA SET BUFFER ADDRESS«, t00=0x0003, t01=0x00ba}
0x0594…05be Head {h00=0x0026, h01=0x0050, text=»* IC INSERT CURSOR «, t00=0x0003, t01=0x00e8}
0x05be…05e6 Head {h00=0x0024, h01=0x0050, text=»* PT PROGRAM TAB.«, t00=0x0003, t01=0x0112}
0x05e6…0614 Head {h00=0x002a, h01=0x0050, text=»* RA REPEAT TO ADDRESS «, t00=0x0003, t01=0x013a}
0x0614…0648 Head {h00=0x0030, h01=0x0050, text=»* EUA ERASE UNPRO. TO ADDRESS «, t00=0x0003, t01=0x0168}
0x0648…0674 Head {h00=0x0028, h01=0x0050, text=»* CHAR < /20 BUT NOT ORDERS«, t00=0x0004, t01=0x000c}
0x0674…06ae Head {h00=0x0036, h01=0x0050, text=»* PACKSY PACK DC-BUFFER IN SYSTEM MODE «, t00=0x0004, t01=0x0038}
0x06ae…06ea Head {h00=0x0038, h01=0x0050, text=»* UNPSYS UNPACK DC-BUFFER IN SYSTEM MODE «, t00=0x0004, t01=0x0072}
0x06ea…0720 Head {h00=0x0032, h01=0x0050, text=»* GETNXT GET AND CHECK NEXT BUFFER «, t00=0x0004, t01=0x00ae}
0x0720…075c Head {h00=0x0038, h01=0x0050, text=»* PUTCHA PUT CHAR. IN DC-BUFFER AND WRITE«, t00=0x0004, t01=0x00e4}
0x075c…078c Head {h00=0x002c, h01=0x0050, text=»* PDCCH PUT CHAR. IN BUFFER «, t00=0x0004, t01=0x0120}
0x078c…07bc Head {h00=0x002c, h01=0x0050, text=»* GDCCH GET CHAR. IN BUFFER «, t00=0x0004, t01=0x0150}
0x07bc…07ec Head {h00=0x002c, h01=0x0050, text=»* PAID STORE AID IN BUFFER «, t00=0x0004, t01=0x0180}
0x07ec…082a Head {h00=0x003a, h01=0x0050, text=»* BUFADR STORE BUFFER ADDRESS IN DC-BUFFER «, t00=0x0005, t01=0x0020}
0x082a…0866 Head {h00=0x0038, h01=0x0050, text=»* RESMDT RESET ALL MDT-BITS IN ATTRIBUTES«, t00=0x0005, t01=0x005e}
0x0866…089c Head {h00=0x0032, h01=0x0050, text=»* P1WCC PROCESS WCC BEFORE UPDATE «, t00=0x0005, t01=0x009a}
0x089c…08d6 Head {h00=0x0036, h01=0x0050, text=»* P2WCC TAKE CARE OF WCC AFTER UPDATE «, t00=0x0005, t01=0x00d0}
0x08d6…0912 Head {h00=0x0038, h01=0x0050, text=»* SAVE SAVE PACK AND UNPACK INFORMATION«, t00=0x0005, t01=0x010a}
0x0912…0952 Head {h00=0x003c, h01=0x0050, text=»* RESTOR RESTORE PACK AND UNPACK INFORMATION «, t00=0x0005, t01=0x0146}
0x0952…097a Head {h00=0x0024, h01=0x0050, text=»* BUFFER BUFFER POOL «, t00=0x0005, t01=0x0186}
0x097a…09a0 Head {h00=0x0022, h01=0x0050, text=»* GETBUF GET BUFFER«, t00=0x0006, t01=0x001e}
0x09a0…09ca Head {h00=0x0026, h01=0x0050, text=»* RELBUF RELEASE BUFFER«, t00=0x0006, t01=0x0044}
0x09ca…09d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x006e}
0x09d4…0a1e Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0006, t01=0x0078}
0x0a1e…0a2c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x00c2}
0x0a2c…0a72 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0006, t01=0x00d0}
0x0a72…0ab8 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0006, t01=0x0116}
0x0ab8…0afe Head {h00=0x0042, h01=0x0050, text=»* ENTRY POINTS * «, t00=0x0006, t01=0x015c}
0x0afe…0b44 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0007, t01=0x0012}
0x0b44…0b8a Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0007, t01=0x0058}
0x0b8a…0b92 Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x009e}
0x0b92…0bc6 Head {h00=0x0030, h01=0x0050, text=» ENTRY PACK PACK MOD. FIELDS INTO DC BUFFER «, t00=0x0007, t01=0x00a6}
0x0bc6…0bfc Head {h00=0x0032, h01=0x0050, text=» ENTRY UNPACK UNPACK DC BUFFER AND UPDATE VDU «, t00=0x0007, t01=0x00da}
0x0bfc…0c32 Head {h00=0x0032, h01=0x0050, text=» ENTRY UNPSYS UNPACK DC BUFFER IN SYSTEM MODE «, t00=0x0007, t01=0x0110}
0x0c32…0c56 Head {h00=0x0020, h01=0x0050, text=» ENTRY GETBUF GET DC BUFFER «, t00=0x0007, t01=0x0146}
0x0c56…0c7e Head {h00=0x0024, h01=0x0050, text=» ENTRY RELBUF RELEASE DC BUFFER «, t00=0x0007, t01=0x016a}
0x0c7e…0cae (8, 0, 400) Head {h00=0x002c, h01=0x0050, text=» ENTRY PAID STORE AID CODE IN DC BUFFER «, t00=0x0008, t01=0x0004}
0x0cae…0ce4 Head {h00=0x0032, h01=0x0050, text=» ENTRY BUFADR SORE BUFFER ADDRESS IN DC BUFFER«, t00=0x0008, t01=0x0034}
0x0ce4…0d18 Head {h00=0x0030, h01=0x0050, text=» ENTRY PACKSY PACK DC BUFFER IN SYSTEM MODE «, t00=0x0008, t01=0x006a}
0x0d18…0d3c Head {h00=0x0020, h01=0x0050, text=» ENTRY SAVE1 SAVE REGISTERS «, t00=0x0008, t01=0x009e}
0x0d3c…0d62 Head {h00=0x0022, h01=0x0050, text=» ENTRY REST1 RESTORE REGISTERS«, t00=0x0008, t01=0x00c2}
0x0d62…0d6a Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x00e8}
0x0d6a…0d78 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x00f0}
0x0d78…0db4 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0008, t01=0x00fe}
0x0db4…0df0 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x0008, t01=0x013a}
0x0df0…0e2c Head {h00=0x0038, h01=0x0050, text=»* EXTERNAL REFERENCES * «, t00=0x0008, t01=0x0176}
0x0e2c…0e68 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x0009, t01=0x0022}
0x0e68…0ea4 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0009, t01=0x005e}
0x0ea4…0eac Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x009a}
0x0eac…0ee0 Head {h00=0x0030, h01=0x0050, text=» EXTRN CONEBC CONVERT ASCII-EBCDIC (CONVER)«, t00=0x0009, t01=0x00a2}
0x0ee0…0f14 Head {h00=0x0030, h01=0x0050, text=» EXTRN CONASC CONVERT EBCDIC-ASCII (CONVER)«, t00=0x0009, t01=0x00d6}
0x0f14…0f42 Head {h00=0x002a, h01=0x0050, text=» EXTRN ERASE ERASE ENTIRE SCREEN (VDU)«, t00=0x0009, t01=0x010a}
0x0f42…0f7a Head {h00=0x0034, h01=0x0050, text=» EXTRN ERASUA ERASE UNPROTECTED TO ADDRESS (VDU)«, t00=0x0009, t01=0x0138}
0x0f7a…0fb0 Head {h00=0x0032, h01=0x0050, text=» EXTRN CONORD CONVERT ORDER TO INDEX (CONVER)«, t00=0x0009, t01=0x0170}
0x0fb0…0fe2 Head {h00=0x002e, h01=0x0050, text=» EXTRN CONATT CONVERT ATTRIBUTE (CONVER) «, t00=0x000a, t01=0x0016}
0x0fe2…1014 Head {h00=0x002e, h01=0x0050, text=» EXTRN SCRINF GET SCREEN INFORMATION (VDU)«, t00=0x000a, t01=0x0048}
0x1014…1050 Head {h00=0x0038, h01=0x0050, text=» EXTRN ERASUP ERASE UNPROTECTED ENTIRE SCREEN (VDU) «, t00=0x000a, t01=0x007a}
0x1050…107a Head {h00=0x0026, h01=0x0050, text=» EXTRN COPY LOCAL HARDCOPY (KEYB) «, t00=0x000a, t01=0x00b6}
0x107a…10a8 Head {h00=0x002a, h01=0x0050, text=» EXTRN SOUND SOUND ALARM ON VDU (VDU) «, t00=0x000a, t01=0x00e0}
0x10a8…10de Head {h00=0x0032, h01=0x0050, text=» EXTRN ATMASB SEARCH ATTRIBUTE BACKWARDS (VDU)«, t00=0x000a, t01=0x010e}
0x10de…1114 Head {h00=0x0032, h01=0x0050, text=» EXTRN CONADR CONVERT BUFFER ADDRESS (CONVER)«, t00=0x000a, t01=0x0144}
0x1114…1142 Head {h00=0x002a, h01=0x0050, text=» EXTRN WRAP CHECK IF WRAP AROUND (VDU)«, t00=0x000a, t01=0x017a}
0x1142…1176 Head {h00=0x0030, h01=0x0050, text=» EXTRN STOINF SAVE SCREEN INFORMATION (VDU) «, t00=0x000b, t01=0x0018}
0x1176…11a2 Head {h00=0x0028, h01=0x0050, text=» EXTRN LMP3ON INHIBIT LAMP ON (KEYB)«, t00=0x000b, t01=0x004c}
0x11a2…11d8 Head {h00=0x0032, h01=0x0050, text=» EXTRN READNW READ WITH NO WAIT (DCSNA,DCBSC) «, t00=0x000b, t01=0x0078}
0x11d8…1206 Head {h00=0x002a, h01=0x0050, text=» EXTRN WAIT SYNCHRONIZE (DCSNA,DCBSC) «, t00=0x000b, t01=0x00ae}
0x1206…123a Head {h00=0x0030, h01=0x0050, text=» EXTRN DCWRIT WRITE DC BUFFER (DCSNA,DCBSC) «, t00=0x000b, t01=0x00dc}
0x123a…126e Head {h00=0x0030, h01=0x0050, text=» EXTRN DISMOD DISPLAY MODIFIED FIELDS (VDU) «, t00=0x000b, t01=0x0110}
0x126e…12a0 Head {h00=0x002e, h01=0x0050, text=» EXTRN THRBUF THROW BUFFERS (DCSNA,DCBSC) «, t00=0x000b, t01=0x0144}
0x12a0…12cc Head {h00=0x0028, h01=0x0050, text=» EXTRN NLROUT NEW LINE ROUTINE (VDU)«, t00=0x000b, t01=0x0176}
0x12cc…12f2 Head {h00=0x0022, h01=0x0050, text=» EXTRN LINE WRAP ROUTINE (VDU)«, t00=0x000c, t01=0x0012}
0x12f2…1328 Head {h00=0x0032, h01=0x0050, text=» EXTRN LINATT INTERNAL LINEFLAG ROUTINE (VDU) «, t00=0x000c, t01=0x0038}
0x1328…1358 Head {h00=0x002c, h01=0x0050, text=» EXTRN LINWRP ANOTHER WRAP ROUTINE (VDU)«, t00=0x000c, t01=0x006e}
0x1358…1382 Head {h00=0x0026, h01=0x0050, text=» EXTRN ERROR ERROR INCATOR (KEYB) «, t00=0x000c, t01=0x009e}
0x1382…13b8 Head {h00=0x0032, h01=0x0050, text=» EXTRN MATCH MATCH ADDRESS AND TASKID (DSPBSC)«, t00=0x000c, t01=0x00c8}
0x13b8…13e6 Head {h00=0x002a, h01=0x0050, text=» EXTRN ICSET INTERTASK TIMEOUT (KEYB) «, t00=0x000c, t01=0x00fe}
0x13e6…1412 Head {h00=0x0028, h01=0x0050, text=» EXTRN ICWRT INTERTASK WRITE (KEYB) «, t00=0x000c, t01=0x012c}
0x1412…1442 Head {h00=0x002c, h01=0x0050, text=» EXTRN COPP COPY ON PRINTER DIRECTLY =4 «, t00=0x000c, t01=0x0158}
0x1442…1450 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0188}
0x1450…148c Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x000d, t01=0x0008}
0x148c…14c8 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x000d, t01=0x0044}
0x14c8…1504 Head {h00=0x0038, h01=0x0050, text=»* CONDITIONAL ASSEMBLY PARAMETERS * «, t00=0x000d, t01=0x0080}
0x1504…1540 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x000d, t01=0x00bc}
0x1540…157c Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x000d, t01=0x00f8}
0x157c…1584 Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x0134}
0x1584…15a8 Head {h00=0x0020, h01=0x0050, text=»X:A EQU 0 SNA HANDLING IF:=1«, t00=0x000d, t01=0x013c}
0x15a8…15ba Head {h00=0x000e, h01=0x0050, text=»SNA EQU 0 «, t00=0x000d, t01=0x0160}
0x15ba…15e4 Head {h00=0x0026, h01=0x0050, text=»X:K EQU 2 NUMBER OF BUFFERS (1-32)«, t00=0x000d, t01=0x0172}
0x15e4…15fa Head {h00=0x0012, h01=0x0050, text=»BUFFNR EQU 02 «, t00=0x000e, t01=0x000c}
0x15fa…1628 Head {h00=0x002a, h01=0x0050, text=»X:L EQU 1150 MAX BUFFER SIZE IN WORDS «, t00=0x000e, t01=0x0022}
0x1628…163e Head {h00=0x0012, h01=0x0050, text=»BUFFL EQU 1150«, t00=0x000e, t01=0x0050}
0x163e…166c Head {h00=0x002a, h01=0x0050, text=»X:M EQU 0 COPY COMMAND INCLUDED IF:=1 «, t00=0x000e, t01=0x0066}
0x166c…1680 Head {h00=0x0010, h01=0x0050, text=»COPCMD EQU 1«, t00=0x000e, t01=0x0094}
0x1680…16a4 Head {h00=0x0020, h01=0x0050, text=»X:N EQU 1 EBCDIC CHAR IF:=1 «, t00=0x000e, t01=0x00a8}
0x16a4…16b8 Head {h00=0x0010, h01=0x0050, text=»EBCDIC EQU 1«, t00=0x000e, t01=0x00cc}
0x16b8…16e6 Head {h00=0x002a, h01=0x0050, text=»X:Z EQU 1 =0,WHOLE,=1 CHAIN,=2 SEGMENT«, t00=0x000e, t01=0x00e0}
0x16e6…16fc Head {h00=0x0012, h01=0x0050, text=»DISHOW EQU X:Z«, t00=0x000e, t01=0x010e}
0x16fc…170a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x0124}
0x170a…1752 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x000e, t01=0x0132}
0x1752…179a Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x000e, t01=0x017a}
0x179a…17c4 Head {h00=0x0026, h01=0x0050, text=»* DECLARATION OF DATA AND EQUATES «, t00=0x000f, t01=0x0032}
0x17c4…180c Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x000f, t01=0x005c}
0x180c…1854 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x000f, t01=0x00a4}
0x1854…185c Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x00ec}
0x185c…1866 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00f4}
0x1866…188e Head {h00=0x0024, h01=0x0050, text=»* EQUATES FOR ECB HANDLING«, t00=0x000f, t01=0x00fe}
0x188e…1898 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0126}
0x1898…18ba Head {h00=0x001e, h01=0x0050, text=»ECBBA EQU 2 BUFFER ADDRESS«, t00=0x000f, t01=0x0130}
0x18ba…18de Head {h00=0x0020, h01=0x0050, text=»ECBRL EQU 4 REQUESTED LENGTH«, t00=0x000f, t01=0x0152}
0x18de…1902 Head {h00=0x0020, h01=0x0050, text=»ECBEL EQU 6 EFFECTIVE LENGTH«, t00=0x000f, t01=0x0176}
0x1902…1922 Head {h00=0x001c, h01=0x0050, text=»ECBRC EQU 8 RETURN CODE «, t00=0x0010, t01=0x000a}
0x1922…1944 Head {h00=0x001e, h01=0x0050, text=»ECBCW EQU 10 CONTROL WORD «, t00=0x0010, t01=0x002a}
0x1944…194e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x004c}
0x194e…1968 Head {h00=0x0016, h01=0x0050, text=»* INTERNAL STATUS «, t00=0x0010, t01=0x0056}
0x1968…1972 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0070}
0x1972…19a2 Head {h00=0x002c, h01=0x0050, text=»LICREC EQU /2000 LAST IN CHAIN RECEIVED «, t00=0x0010, t01=0x007a}
0x19a2…19c8 Head {h00=0x0022, h01=0x0050, text=»THROWB EQU /0800 THROW BUFFERS«, t00=0x0010, t01=0x00aa}
0x19c8…19ea Head {h00=0x001e, h01=0x0050, text=»NEWCH EQU /0400 NEW CHAIN «, t00=0x0010, t01=0x00d0}
0x19ea…1a16 Head {h00=0x0028, h01=0x0050, text=»ATTREC EQU /0002 ATTRIBUTE RECEIVED «, t00=0x0010, t01=0x00f2}
0x1a16…1a40 Head {h00=0x0026, h01=0x0050, text=»PTORD EQU /0001 PT ORDER INDICATOR«, t00=0x0010, t01=0x011e}
0x1a40…1a52 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0010, t01=0x0148}
0x1a52…1a5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x015a}
0x1a5c…1a76 Head {h00=0x0016, h01=0x0050, text=»* SNA MODES «, t00=0x0010, t01=0x0164}
0x1a76…1a80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x017e}
0x1a80…1aa0 Head {h00=0x001c, h01=0x0050, text=»LOCMOD EQU 0 LOCAL MODE «, t00=0x0010, t01=0x0188}
0x1aa0…1ac0 Head {h00=0x001c, h01=0x0050, text=»SYSOP EQU 2 SYSTEM MODE «, t00=0x0011, t01=0x0018}
0x1ac0…1ae0 Head {h00=0x001c, h01=0x0050, text=»MYJOB EQU 4 MY JOB MODE «, t00=0x0011, t01=0x0038}
0x1ae0…1aec Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x0058}
0x1aec…1af6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0064}
0x1af6…1b18 Head {h00=0x001e, h01=0x0050, text=»* TASK IDENTIFICATION CODE«, t00=0x0011, t01=0x006e}
0x1b18…1b22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0090}
0x1b22…1b46 Head {h00=0x0020, h01=0x0050, text=»VDUCOD EQU 'VV' VDU KB TASK «, t00=0x0011, t01=0x009a}
0x1b46…1b50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00be}
0x1b50…1b6c Head {h00=0x0018, h01=0x0050, text=»* SPECIAL CHARACTERS«, t00=0x0011, t01=0x00c8}
0x1b6c…1b76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00e4}
0x1b76…1b94 Head {h00=0x001a, h01=0x0050, text=»NULL EQU 0 NULL CHAR. «, t00=0x0011, t01=0x00ee}
0x1b94…1bb4 Head {h00=0x001c, h01=0x0050, text=»SBACH EQU /11 SBA CHAR. «, t00=0x0011, t01=0x010c}
0x1bb4…1bd8 Head {h00=0x0020, h01=0x0050, text=»ESCCHA EQU /1B ESCAPE CHAR. «, t00=0x0011, t01=0x012c}
0x1bd8…1be2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0150}
0x1be2…1bfc Head {h00=0x0016, h01=0x0050, text=»* VDU SCREEN SIZE «, t00=0x0011, t01=0x015a}
0x1bfc…1c06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0174}
0x1c06…1c28 Head {h00=0x001e, h01=0x0050, text=»LBVDU EQU 1920 TOTAL SIZE «, t00=0x0011, t01=0x017e}
0x1c28…1c48 Head {h00=0x001c, h01=0x0050, text=»LLINE EQU 80 LINE LENGTH«, t00=0x0012, t01=0x0010}
0x1c48…1c52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0030}
0x1c52…1c76 Head {h00=0x0020, h01=0x0050, text=»* BUFFER LINK LENGTH «, t00=0x0012, t01=0x003a}
0x1c76…1c80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x005e}
0x1c80…1c9e Head {h00=0x001a, h01=0x0050, text=»LINK EQU BUFFL+BUFFL+2«, t00=0x0012, t01=0x0068}
0x1c9e…1cac Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x0086}
0x1cac…1cb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0094}
0x1cb6…1cd6 Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x0012, t01=0x009e}
0x1cd6…1cf2 Head {h00=0x0018, h01=0x0050, text=»* TERMINAL WORKBLOCK«, t00=0x0012, t01=0x00be}
0x1cf2…1cfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00da}
0x1cfc…1d24 Head {h00=0x0024, h01=0x0050, text=»TCT01 EQU 0 TASK IDENTIFICATION «, t00=0x0012, t01=0x00e4}
0x1d24…1d4a Head {h00=0x0022, h01=0x0050, text=»BVDU EQU TCT01+2 SCREEN BUFFER«, t00=0x0012, t01=0x010c}
0x1d4a…1d7a Head {h00=0x002c, h01=0x0050, text=»LINFLG EQU BVDU+1920 INTERNAL LINE FLAGS«, t00=0x0012, t01=0x0132}
0x1d7a…1dae Head {h00=0x0030, h01=0x0050, text=»PCURS EQU LINFLG+24 CURSOR ADDRESS , BINARY «, t00=0x0012, t01=0x0162}
0x1dae…1dc8 Head {h00=0x0016, h01=0x0050, text=»CURATT EQU PCURS+4«, t00=0x0013, t01=0x0008}
0x1dc8…1df2 Head {h00=0x0026, h01=0x0050, text=»WCC EQU CURATT+2 WCC/CCC CHARACTER«, t00=0x0013, t01=0x0022}
0x1df2…1e1c Head {h00=0x0026, h01=0x0050, text=»KBINH EQU WCC+2 INHIBIT INDICATOR «, t00=0x0013, t01=0x004c}
0x1e1c…1e4a Head {h00=0x002a, h01=0x0050, text=»DCLENG EQU KBINH+4 LENGTH OF DC BUFFER«, t00=0x0013, t01=0x0076}
0x1e4a…1e80 Head {h00=0x0032, h01=0x0050, text=»CURPOS EQU DCLENG+30 CURSOR POS IN SYSTEM MODE«, t00=0x0013, t01=0x00a4}
0x1e80…1eaa Head {h00=0x0026, h01=0x0050, text=»BUFPNT EQU CURPOS+2 BUFFER ADDRESS«, t00=0x0013, t01=0x00da}
0x1eaa…1ed2 Head {h00=0x0024, h01=0x0050, text=»REGI EQU BUFPNT+2 WORK REGISTER «, t00=0x0013, t01=0x0104}
0x1ed2…1efa Head {h00=0x0024, h01=0x0050, text=»STACK1 EQU REGI+2 INTERNAL STACK«, t00=0x0013, t01=0x012c}
0x1efa…1f16 Head {h00=0x0018, h01=0x0050, text=»STACK2 EQU STACK1+14«, t00=0x0013, t01=0x0154}
0x1f16…1f3e Head {h00=0x0024, h01=0x0050, text=»UNPMOD EQU STACK2+14 UNPACK MODE«, t00=0x0013, t01=0x0170}
0x1f3e…1f62 Head {h00=0x0020, h01=0x0050, text=»SNAMOD EQU UNPMOD+2 SNA MODE«, t00=0x0014, t01=0x0008}
0x1f62…1f96 Head {h00=0x0030, h01=0x0050, text=»ECBICW EQU SNAMOD+12 ECB INTERTASK WRITE =3 «, t00=0x0014, t01=0x002c}
0x1f96…1fa4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x0060}
0x1fa4…1fe8 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0014, t01=0x006e}
0x1fe8…202c Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0014, t01=0x00b2}
0x202c…2072 Head {h00=0x0042, h01=0x0050, text=»* PACK PACK MODIFIED VDU-FIELDS INTO DC-BUFFER * «, t00=0x0014, t01=0x00f6}
0x2072…20b8 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0014, t01=0x013c}
0x20b8…20fe Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0014, t01=0x0182}
0x20fe…2112 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0015, t01=0x0038}
0x2112…211c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x004c}
0x211c…2130 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0015, t01=0x0056}
0x2130…2154 Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x0015, t01=0x006a}
0x2154…2172 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0015, t01=0x008e}
0x2172…2194 Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x0015, t01=0x00ac}
0x2194…21b0 Head {h00=0x0018, h01=0x0050, text=»* A6= ATTRIBUTE CHAR«, t00=0x0015, t01=0x00ce}
0x21b0…21d2 Head {h00=0x001e, h01=0x0050, text=»* A8= ADDRESS IN DC-BUFFER«, t00=0x0015, t01=0x00ea}
0x21d2…21f0 Head {h00=0x001a, h01=0x0050, text=»* A9= DC-BUFFER INDEX «, t00=0x0015, t01=0x010c}
0x21f0…220c Head {h00=0x0018, h01=0x0050, text=»* A10= START ADDRESS«, t00=0x0015, t01=0x012a}
0x220c…2224 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0015, t01=0x0146}
0x2224…2242 Head {h00=0x001a, h01=0x0050, text=»* A12= BUFFER ADDRESS «, t00=0x0015, t01=0x015e}
0x2242…225a Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0015, t01=0x017c}
0x225a…2264 (22, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0004}
0x2264…22a8 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0016, t01=0x000e}
0x22a8…22ba Head {h00=0x000e, h01=0x0050, text=»PACK EQU *«, t00=0x0016, t01=0x0052}
0x22ba…22e8 Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x0016, t01=0x0064}
0x22e8…230c Head {h00=0x0020, h01=0x0050, text=» LDK A4,0 FIRST SCREEN POS. «, t00=0x0016, t01=0x0092}
0x230c…2322 Head {h00=0x0012, h01=0x0050, text=» LDKL A3,BVDU «, t00=0x0016, t01=0x00b6}
0x2322…2336 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0016, t01=0x00cc}
0x2336…235a Head {h00=0x0020, h01=0x0050, text=» LDR A10,A4 INITIATE ADDRESS«, t00=0x0016, t01=0x00e0}
0x235a…2386 Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x0016, t01=0x0104}
0x2386…23a0 Head {h00=0x0016, h01=0x0050, text=» RF(E) PACK70 YES «, t00=0x0016, t01=0x0130}
0x23a0…23b4 Head {h00=0x0010, h01=0x0050, text=»PACK10 EQU *«, t00=0x0016, t01=0x014a}
0x23b4…23d0 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x0016, t01=0x015e}
0x23d0…23f0 Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x0016, t01=0x017a}
0x23f0…240a Head {h00=0x0016, h01=0x0050, text=» RF(NL) PACK15 YES«, t00=0x0017, t01=0x000a}
0x240a…241c Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0017, t01=0x0024}
0x241c…242e Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0017, t01=0x0036}
0x242e…2440 Head {h00=0x000e, h01=0x0050, text=» RB PACK10«, t00=0x0017, t01=0x0048}
0x2440…2454 Head {h00=0x0010, h01=0x0050, text=»PACK15 EQU *«, t00=0x0017, t01=0x005a}
0x2454…2476 Head {h00=0x001e, h01=0x0050, text=» LDR A10,A4 START ADDRESS «, t00=0x0017, t01=0x006e}
0x2476…2488 Head {h00=0x000e, h01=0x0050, text=» RF PACK30«, t00=0x0017, t01=0x0090}
0x2488…249c Head {h00=0x0010, h01=0x0050, text=»PACK20 EQU *«, t00=0x0017, t01=0x00a2}
0x249c…24c6 Head {h00=0x0026, h01=0x0050, text=» CF A14,WRAP CHECK IF WRAP AROUND «, t00=0x0017, t01=0x00b6}
0x24c6…24e6 Head {h00=0x001c, h01=0x0050, text=» CWR A10,A4 ALL SCANNED?«, t00=0x0017, t01=0x00e0}
0x24e6…2500 Head {h00=0x0016, h01=0x0050, text=» RF(E) PACK80 YES «, t00=0x0017, t01=0x0100}
0x2500…2514 Head {h00=0x0010, h01=0x0050, text=»PACK30 EQU *«, t00=0x0017, t01=0x011a}
0x2514…2530 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x0017, t01=0x012e}
0x2530…2542 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0017, t01=0x014a}
0x2542…2554 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0017, t01=0x015c}
0x2554…2574 Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x0017, t01=0x016e}
0x2574…258c Head {h00=0x0014, h01=0x0050, text=» RB(L) PACK20 NO«, t00=0x0017, t01=0x018e}
0x258c…25ae Head {h00=0x001e, h01=0x0050, text=» ANK A2,1 MODIFIED FIELD? «, t00=0x0018, t01=0x0016}
0x25ae…25c8 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PACK50 YES«, t00=0x0018, t01=0x0038}
0x25c8…25da Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0018, t01=0x0052}
0x25da…25ec Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0018, t01=0x0064}
0x25ec…25fe Head {h00=0x000e, h01=0x0050, text=» RB PACK20«, t00=0x0018, t01=0x0076}
0x25fe…2612 Head {h00=0x0010, h01=0x0050, text=»PACK50 EQU *«, t00=0x0018, t01=0x0088}
0x2612…2638 Head {h00=0x0022, h01=0x0050, text=» LDK A2,SBACH SBA TO DC-BUFFER«, t00=0x0018, t01=0x009c}
0x2638…265c Head {h00=0x0020, h01=0x0050, text=» LDKL A1,/8000 INDICATE SBA «, t00=0x0018, t01=0x00c2}
0x265c…2686 Head {h00=0x0026, h01=0x0050, text=» CF A14,PUTCHA PUT CHAR. IN BUFFER«, t00=0x0018, t01=0x00e6}
0x2686…26aa Head {h00=0x0020, h01=0x0050, text=» LDR A1,A1 TRANSMISSION OK? «, t00=0x0018, t01=0x0110}
0x26aa…26c4 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PACK90 NO «, t00=0x0018, t01=0x0134}
0x26c4…26f2 Head {h00=0x002a, h01=0x0050, text=» LDR A1,A4 BUFFER ADDRESS TO DC-BUFFER«, t00=0x0018, t01=0x014e}
0x26f2…2708 Head {h00=0x0012, h01=0x0050, text=» CF A14,BUFADR«, t00=0x0018, t01=0x017c}
0x2708…271c (25, 0, 400) Head {h00=0x0010, h01=0x0050, text=»PACK60 EQU *«, t00=0x0019, t01=0x0004}
0x271c…2746 Head {h00=0x0026, h01=0x0050, text=» CF A14,WRAP CHECK IF WRAP AROUND «, t00=0x0019, t01=0x0018}
0x2746…2766 Head {h00=0x001c, h01=0x0050, text=» CWR A10,A4 ALL SCANNED?«, t00=0x0019, t01=0x0042}
0x2766…2780 Head {h00=0x0016, h01=0x0050, text=» RF(E) PACK80 YES «, t00=0x0019, t01=0x0062}
0x2780…2794 Head {h00=0x0010, h01=0x0050, text=»PACK70 EQU *«, t00=0x0019, t01=0x007c}
0x2794…27b0 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x0019, t01=0x0090}
0x27b0…27d0 Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x0019, t01=0x00ac}
0x27d0…27ea Head {h00=0x0016, h01=0x0050, text=» RB(NL) PACK20 YES«, t00=0x0019, t01=0x00cc}
0x27ea…280a Head {h00=0x001c, h01=0x0050, text=» CWK A2,NULL NULL CHAR? «, t00=0x0019, t01=0x00e6}
0x280a…2830 Head {h00=0x0022, h01=0x0050, text=» RF(E) PACK75 YES,DON'T STORE «, t00=0x0019, t01=0x0106}
0x2830…285a Head {h00=0x0026, h01=0x0050, text=» CF A14,PUTCHA PUT CHAR. IN BUFFER«, t00=0x0019, t01=0x012c}
0x285a…287e Head {h00=0x0020, h01=0x0050, text=» LDR A1,A1 TRANSMISSION OK? «, t00=0x0019, t01=0x0156}
0x287e…2898 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PACK90 NO «, t00=0x0019, t01=0x017a}
0x2898…28ac (26, 0, 400) Head {h00=0x0010, h01=0x0050, text=»PACK75 EQU *«, t00=0x001a, t01=0x0004}
0x28ac…28be Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x001a, t01=0x0018}
0x28be…28d0 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x001a, t01=0x002a}
0x28d0…28e2 Head {h00=0x000e, h01=0x0050, text=» RB PACK60«, t00=0x001a, t01=0x003c}
0x28e2…28f6 Head {h00=0x0010, h01=0x0050, text=»PACK80 EQU *«, t00=0x001a, t01=0x004e}
0x28f6…291e Head {h00=0x0024, h01=0x0050, text=» LDK A1,0 INDICATE LAST IN CHAIN«, t00=0x001a, t01=0x0062}
0x291e…2944 Head {h00=0x0022, h01=0x0050, text=» CF A14,DCWRIT WRITE DC BUFFER«, t00=0x001a, t01=0x008a}
0x2944…2958 Head {h00=0x0010, h01=0x0050, text=»PACK90 EQU *«, t00=0x001a, t01=0x00b0}
0x2958…297e Head {h00=0x0022, h01=0x0050, text=» LDR A8,A12 BUFFER TO RELEASE «, t00=0x001a, t01=0x00c4}
0x297e…29a4 Head {h00=0x0022, h01=0x0050, text=» CF A14,RELBUF RELEASE BUFFER «, t00=0x001a, t01=0x00ea}
0x29a4…29b4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001a, t01=0x0110}
0x29b4…29c2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x0120}
0x29c2…2a06 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x001a, t01=0x012e}
0x2a06…2a4a Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x001a, t01=0x0172}
0x2a4a…2a8e Head {h00=0x0040, h01=0x0050, text=»* UNPACK UNPACK DC-BUFFER AND UPDATE VDU *«, t00=0x001b, t01=0x0026}
0x2a8e…2ad2 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x001b, t01=0x006a}
0x2ad2…2b16 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x001b, t01=0x00ae}
0x2b16…2b2a Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x001b, t01=0x00f2}
0x2b2a…2b34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0106}
0x2b34…2b48 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x001b, t01=0x0110}
0x2b48…2b6c Head {h00=0x0020, h01=0x0050, text=»* A3= POINTER IN VDU-BUFFER «, t00=0x001b, t01=0x0124}
0x2b6c…2b8a Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x001b, t01=0x0148}
0x2b8a…2bac Head {h00=0x001e, h01=0x0050, text=»* A5= LAST IN ROW REL POS «, t00=0x001b, t01=0x0166}
0x2bac…2bd4 Head {h00=0x0024, h01=0x0050, text=»* A6= INTERNAL LINE FLAG ADDRESS«, t00=0x001b, t01=0x0188}
0x2bd4…2bf6 Head {h00=0x001e, h01=0x0050, text=»* A8= ADDRESS IN DC-BUFFER«, t00=0x001c, t01=0x0020}
0x2bf6…2c14 Head {h00=0x001a, h01=0x0050, text=»* A9= DC-BUFFER INDEX «, t00=0x001c, t01=0x0042}
0x2c14…2c2c Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x001c, t01=0x0060}
0x2c2c…2c4c Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x001c, t01=0x0078}
0x2c4c…2c64 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x001c, t01=0x0098}
0x2c64…2c7c Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x001c, t01=0x00b0}
0x2c7c…2c86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00c8}
0x2c86…2cc6 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x001c, t01=0x00d2}
0x2cc6…2cda Head {h00=0x0010, h01=0x0050, text=»UNPACK EQU *«, t00=0x001c, t01=0x0112}
0x2cda…2cfe Head {h00=0x0020, h01=0x0050, text=» LDK A1,3 KB TOTALLY INHIBIT«, t00=0x001c, t01=0x0126}
0x2cfe…2d18 Head {h00=0x0016, h01=0x0050, text=» ORS A1,KBINH,A11 «, t00=0x001c, t01=0x014a}
0x2d18…2d30 Head {h00=0x0014, h01=0x0050, text=» LC A1,TCT01,A11«, t00=0x001c, t01=0x0164}
0x2d30…2d56 Head {h00=0x0022, h01=0x0050, text=» CCK A1,VDUCOD PRINTER UNPACK?«, t00=0x001c, t01=0x017c}
0x2d56…2d70 Head {h00=0x0016, h01=0x0050, text=» RF(NE) UNP050 YES«, t00=0x001d, t01=0x0012}
0x2d70…2d96 Head {h00=0x0022, h01=0x0050, text=» CF A14,LMP3ON INHIBIT LAMP ON«, t00=0x001d, t01=0x002c}
0x2d96…2daa Head {h00=0x0010, h01=0x0050, text=»UNP050 EQU *«, t00=0x001d, t01=0x0052}
0x2daa…2dd8 Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x001d, t01=0x0066}
0x2dd8…2dec Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x001d, t01=0x0094}
0x2dec…2e02 Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x001d, t01=0x00a8}
0x2e02…2e30 Head {h00=0x002a, h01=0x0050, text=» CF A14,LINE CHECK WRAP AND LINE FLAG «, t00=0x001d, t01=0x00be}
0x2e30…2e42 Head {h00=0x000e, h01=0x0050, text=» SUR A9,A9«, t00=0x001d, t01=0x00ec}
0x2e42…2e6e Head {h00=0x0028, h01=0x0050, text=» LD A8,BUFPNT,A11 GET BUFFER ADDRESS«, t00=0x001d, t01=0x00fe}
0x2e6e…2e94 Head {h00=0x0022, h01=0x0050, text=» LDK A1,ICOMND PROCESS COMMAND«, t00=0x001d, t01=0x012a}
0x2e94…2eae Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x001d, t01=0x0150}
0x2eae…2ec2 Head {h00=0x0010, h01=0x0050, text=»UNP100 EQU *«, t00=0x001d, t01=0x016a}
0x2ec2…2ee2 Head {h00=0x001c, h01=0x0050, text=» CF A14,GDCCH GET CHAR. «, t00=0x001d, t01=0x017e}
0x2ee2…2f04 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 ANYTHING LEFT? «, t00=0x001e, t01=0x000e}
0x2f04…2f1e Head {h00=0x0016, h01=0x0050, text=» RF(NZ) UNP200 NO «, t00=0x001e, t01=0x0030}
0x2f1e…2f50 Head {h00=0x002e, h01=0x0050, text=» LD A1,UNPMOD,A11 GET ADDRESS TO START AT «, t00=0x001e, t01=0x004a}
0x2f50…2f72 Head {h00=0x001e, h01=0x0050, text=» CFI A14,RETTAB,A1 RESTART«, t00=0x001e, t01=0x007c}
0x2f72…2f92 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A1 PROCESS OKEY?«, t00=0x001e, t01=0x009e}
0x2f92…2fac Head {h00=0x0016, h01=0x0050, text=» RB(Z) UNP100 YES «, t00=0x001e, t01=0x00be}
0x2fac…2fbe Head {h00=0x000e, h01=0x0050, text=» RF UNP300«, t00=0x001e, t01=0x00d8}
0x2fbe…2fd2 Head {h00=0x0010, h01=0x0050, text=»UNP200 EQU *«, t00=0x001e, t01=0x00ea}
0x2fd2…2fe4 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x001e, t01=0x00fe}
0x2fe4…300a Head {h00=0x0022, h01=0x0050, text=» CF A14,GETNXT GET NEXT BUFFER«, t00=0x001e, t01=0x0110}
0x300a…3026 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A1 FINISHED?«, t00=0x001e, t01=0x0136}
0x3026…303e Head {h00=0x0014, h01=0x0050, text=» RB(Z) UNP100 NO«, t00=0x001e, t01=0x0152}
0x303e…304a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x016a}
0x304a…305e Head {h00=0x0010, h01=0x0050, text=»UNP300 EQU *«, t00=0x001e, t01=0x0176}
0x305e…3084 Head {h00=0x0022, h01=0x0050, text=» CF A14,SCRINF GET LATEST NEWS«, t00=0x001e, t01=0x018a}
0x3084…3096 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x001f, t01=0x0020}
0x3096…30c8 Head {h00=0x002e, h01=0x0050, text=» CF A14,ATMASB SEARCH ATTRIBUTE BACKWARDS «, t00=0x001f, t01=0x0032}
0x30c8…30da Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x001f, t01=0x0064}
0x30da…3102 Head {h00=0x0024, h01=0x0050, text=» ANKL A10,THROWB THROW BUFFERS? «, t00=0x001f, t01=0x0076}
0x3102…311a Head {h00=0x0014, h01=0x0050, text=» RF(Z) UNP400 NO«, t00=0x001f, t01=0x009e}
0x311a…313e Head {h00=0x0020, h01=0x0050, text=» CF A14,THRBUF THROW BUFFERS«, t00=0x001f, t01=0x00b6}
0x313e…3150 Head {h00=0x000e, h01=0x0050, text=» RF UNP600«, t00=0x001f, t01=0x00da}
0x3150…3164 Head {h00=0x0010, h01=0x0050, text=»UNP400 EQU *«, t00=0x001f, t01=0x00ec}
0x3164…317a Head {h00=0x0012, h01=0x0050, text=» IFF DISHOW=2 «, t00=0x001f, t01=0x0100}
0x317a…3192 Head {h00=0x0014, h01=0x0050, text=» LC A1,TCT01,A11«, t00=0x001f, t01=0x0116}
0x3192…31a8 Head {h00=0x0012, h01=0x0050, text=» CCK A1,VDUCOD«, t00=0x001f, t01=0x012e}
0x31a8…31be Head {h00=0x0012, h01=0x0050, text=» RF(NE) UNP500«, t00=0x001f, t01=0x0144}
0x31be…31f8 Head {h00=0x0036, h01=0x0050, text=» CF A14,DISMOD TESTINGTESTINGTESTING!!!!!!!!!!!!! «, t00=0x001f, t01=0x015a}
0x31f8…320c (32, 0, 400) Head {h00=0x0010, h01=0x0050, text=»UNP500 EQU *«, t00=0x0020, t01=0x0004}
0x320c…3218 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x0018}
0x3218…3246 Head {h00=0x002a, h01=0x0050, text=» CF A14,P2WCC CHECK IT A LAST TIME =4 «, t00=0x0020, t01=0x0024}
0x3246…3270 Head {h00=0x0026, h01=0x0050, text=» LDR A8,A12 GET BUFFER TO RELEASE «, t00=0x0020, t01=0x0052}
0x3270…3296 Head {h00=0x0022, h01=0x0050, text=» CF A14,RELBUF RELEASE BUFFER «, t00=0x0020, t01=0x007c}
0x3296…32aa Head {h00=0x0010, h01=0x0050, text=»UNP600 EQU *«, t00=0x0020, t01=0x00a2}
0x32aa…32ba Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0020, t01=0x00b6}
0x32ba…32c8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x00c6}
0x32c8…3316 Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0020, t01=0x00d4}
0x3316…3364 Head {h00=0x004a, h01=0x0050, text=»* *«, t00=0x0020, t01=0x0122}
0x3364…33b2 Head {h00=0x004a, h01=0x0050, text=»* INDEX FOR RETURNS AFTER GET CHARCTER *«, t00=0x0020, t01=0x0170}
0x33b2…3400 Head {h00=0x004a, h01=0x0050, text=»* *«, t00=0x0021, t01=0x002e}
0x3400…344e Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0021, t01=0x007c}
0x344e…3456 Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x00ca}
0x3456…346a Head {h00=0x0010, h01=0x0050, text=»ICOMND EQU 0«, t00=0x0021, t01=0x00d2}
0x346a…3486 Head {h00=0x0018, h01=0x0050, text=»ICOMN1 EQU ICOMND+2 «, t00=0x0021, t01=0x00e6}
0x3486…349c Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0021, t01=0x0102}
0x349c…34b8 Head {h00=0x0018, h01=0x0050, text=»ICOCOP EQU ICOMN1+2 «, t00=0x0021, t01=0x0118}
0x34b8…34d4 Head {h00=0x0018, h01=0x0050, text=»ICOWCC EQU ICOCOP+2 «, t00=0x0021, t01=0x0134}
0x34d4…34e0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x0150}
0x34e0…34f6 Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0021, t01=0x015c}
0x34f6…3512 Head {h00=0x0018, h01=0x0050, text=»ICOWCC EQU ICOMN1+2 «, t00=0x0021, t01=0x0172}
0x3512…351e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x018e}
0x351e…353a Head {h00=0x0018, h01=0x0050, text=»IORDER EQU ICOWCC+2 «, t00=0x0022, t01=0x000a}
0x353a…3556 Head {h00=0x0018, h01=0x0050, text=»IOSFAT EQU IORDER+2 «, t00=0x0022, t01=0x0026}
0x3556…3572 Head {h00=0x0018, h01=0x0050, text=»IOSBA1 EQU IOSFAT+2 «, t00=0x0022, t01=0x0042}
0x3572…358e Head {h00=0x0018, h01=0x0050, text=»IOSBA2 EQU IOSBA1+2 «, t00=0x0022, t01=0x005e}
0x358e…35aa Head {h00=0x0018, h01=0x0050, text=»IORAA1 EQU IOSBA2+2 «, t00=0x0022, t01=0x007a}
0x35aa…35c6 Head {h00=0x0018, h01=0x0050, text=»IORAA2 EQU IORAA1+2 «, t00=0x0022, t01=0x0096}
0x35c6…35e2 Head {h00=0x0018, h01=0x0050, text=»IORACH EQU IORAA2+2 «, t00=0x0022, t01=0x00b2}
0x35e2…35fe Head {h00=0x0018, h01=0x0050, text=»IOEUA1 EQU IORACH+2 «, t00=0x0022, t01=0x00ce}
0x35fe…361a Head {h00=0x0018, h01=0x0050, text=»IOEUA2 EQU IOEUA1+2 «, t00=0x0022, t01=0x00ea}
0x361a…3628 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x0106}
0x3628…3676 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0022, t01=0x0114}
0x3676…36c4 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0022, t01=0x0162}
0x36c4…3712 Head {h00=0x004a, h01=0x0050, text=»* RETURN ADDRESSES AFTER GET CHARACTER * «, t00=0x0023, t01=0x0020}
0x3712…3760 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0023, t01=0x006e}
0x3760…37ae Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0023, t01=0x00bc}
0x37ae…37c2 Head {h00=0x0010, h01=0x0050, text=»RETTAB EQU *«, t00=0x0023, t01=0x010a}
0x37c2…37ec Head {h00=0x0026, h01=0x0050, text=» DATA UNPCOM PROCESS COMMAND CHAR.«, t00=0x0023, t01=0x011e}
0x37ec…3820 Head {h00=0x0030, h01=0x0050, text=» DATA UNC100 PROCESS COMMAND CHAR AFTER ESC.«, t00=0x0023, t01=0x0148}
0x3820…3836 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0023, t01=0x017c}
0x3836…385e (36, 0, 398) Head {h00=0x0024, h01=0x0050, text=» DATA UNC150 PROCESS FROM DEVICE«, t00=0x0024, t01=0x0004}
0x385e…386a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x002c}
0x386a…388a Head {h00=0x001c, h01=0x0050, text=» DATA UNC600 PROCESS WCC«, t00=0x0024, t01=0x0038}
0x388a…38b8 Head {h00=0x002a, h01=0x0050, text=» DATA UNPORD PROCESS ORDERS AND CHAR. «, t00=0x0024, t01=0x0058}
0x38b8…38de Head {h00=0x0022, h01=0x0050, text=» DATA SF100 PROCESS ATTRIBUTE «, t00=0x0024, t01=0x0086}
0x38de…390e Head {h00=0x002c, h01=0x0050, text=» DATA SBA100 PROCESS FIRST ADDRESS BYTE «, t00=0x0024, t01=0x00ac}
0x390e…393e Head {h00=0x002c, h01=0x0050, text=» DATA SBA200 PROCESS SECOND ADDRESS BYTE«, t00=0x0024, t01=0x00dc}
0x393e…396c Head {h00=0x002a, h01=0x0050, text=» DATA RA100 PROCESS FIRST ADDRESS BYTE«, t00=0x0024, t01=0x010c}
0x396c…399c Head {h00=0x002c, h01=0x0050, text=» DATA RA200 PROCESS SECOND ADDRESS BYTE «, t00=0x0024, t01=0x013a}
0x399c…39c8 Head {h00=0x0028, h01=0x0050, text=» DATA RA250 PROCESS CHAR. TO REPEAT «, t00=0x0024, t01=0x016a}
0x39c8…39f8 Head {h00=0x002c, h01=0x0050, text=» DATA EUA100 PROCESS FIRST ADDRESS BYTE «, t00=0x0025, t01=0x0008}
0x39f8…3a28 Head {h00=0x002c, h01=0x0050, text=» DATA EUA200 PROCESS FIRST ADDRESS BYTE «, t00=0x0025, t01=0x0038}
0x3a28…3a36 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x0068}
0x3a36…3a86 Head {h00=0x004c, h01=0x0050, text=»*********************************************************************** «, t00=0x0025, t01=0x0076}
0x3a86…3ad6 Head {h00=0x004c, h01=0x0050, text=»* * «, t00=0x0025, t01=0x00c6}
0x3ad6…3b26 Head {h00=0x004c, h01=0x0050, text=»* UNPCOM UNPACK COMMAND * «, t00=0x0025, t01=0x0116}
0x3b26…3b76 Head {h00=0x004c, h01=0x0050, text=»* * «, t00=0x0025, t01=0x0166}
0x3b76…3bc6 Head {h00=0x004c, h01=0x0050, text=»*********************************************************************** «, t00=0x0026, t01=0x0026}
0x3bc6…3bda Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0026, t01=0x0076}
0x3bda…3be4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x008a}
0x3be4…3bf8 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0026, t01=0x0094}
0x3bf8…3c1c Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x0026, t01=0x00a8}
0x3c1c…3c3e Head {h00=0x001e, h01=0x0050, text=»* A4= REL. CURSOR ADDRESS «, t00=0x0026, t01=0x00cc}
0x3c3e…3c60 Head {h00=0x001e, h01=0x0050, text=»* A5= LAST IN ROW REL POS «, t00=0x0026, t01=0x00ee}
0x3c60…3c88 Head {h00=0x0024, h01=0x0050, text=»* A6= INTERNAL LINE FLAG ADDRESS«, t00=0x0026, t01=0x0110}
0x3c88…3caa Head {h00=0x001e, h01=0x0050, text=»* A8= ADDRESS IN DC-BUFFER«, t00=0x0026, t01=0x0138}
0x3caa…3cc0 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x0026, t01=0x015a}
0x3cc0…3cd8 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0026, t01=0x0170}
0x3cd8…3cf8 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0026, t01=0x0188}
0x3cf8…3d10 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0027, t01=0x0018}
0x3d10…3d28 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0027, t01=0x0030}
0x3d28…3d32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0048}
0x3d32…3d82 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0027, t01=0x0052}
0x3d82…3dae Head {h00=0x0028, h01=0x0050, text=»UNPCOM EQU * ENTRY LABEL FROM RETTAB«, t00=0x0027, t01=0x00a2}
0x3dae…3dc0 Head {h00=0x000e, h01=0x0050, text=» IFF SNA=1«, t00=0x0027, t01=0x00ce}
0x3dc0…3de8 Head {h00=0x0024, h01=0x0050, text=» LDK A1,ICOMN1 WHERE TO CONTINUE«, t00=0x0027, t01=0x00e0}
0x3de8…3e02 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0027, t01=0x0108}
0x3e02…3e20 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0027, t01=0x0122}
0x3e20…3e3e Head {h00=0x001a, h01=0x0050, text=» CWK A2,ESCCHA ESCAPE?«, t00=0x0027, t01=0x0140}
0x3e3e…3e58 Head {h00=0x0016, h01=0x0050, text=» RF(E) UNC900 YES «, t00=0x0027, t01=0x015e}
0x3e58…3e7c Head {h00=0x0020, h01=0x0050, text=» LDK A1,1 NO INDICATE ERROR «, t00=0x0027, t01=0x0178}
0x3e7c…3e8e Head {h00=0x000e, h01=0x0050, text=» RF UNC900«, t00=0x0028, t01=0x000c}
0x3e8e…3e9a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x001e}
0x3e9a…3eae Head {h00=0x0010, h01=0x0050, text=»UNC100 EQU *«, t00=0x0028, t01=0x002a}
0x3eae…3ec8 Head {h00=0x0016, h01=0x0050, text=» CWK A2,/31 WRITE?«, t00=0x0028, t01=0x003e}
0x3ec8…3ee2 Head {h00=0x0016, h01=0x0050, text=» RF(E) UNC500 YES «, t00=0x0028, t01=0x0058}
0x3ee2…3f06 Head {h00=0x0020, h01=0x0050, text=» CWK A2,/35 ERASE AND WITE? «, t00=0x0028, t01=0x0072}
0x3f06…3f20 Head {h00=0x0016, h01=0x0050, text=» RF(E) UNC200 YES «, t00=0x0028, t01=0x0096}
0x3f20…3f4a Head {h00=0x0026, h01=0x0050, text=» CWK A2,/3F ERASE ALL UNPROTECTED?«, t00=0x0028, t01=0x00b0}
0x3f4a…3f64 Head {h00=0x0016, h01=0x0050, text=» RF(E) UNC300 YES «, t00=0x0028, t01=0x00da}
0x3f64…3f7a Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0028, t01=0x00f4}
0x3f7a…3f9c Head {h00=0x001e, h01=0x0050, text=» CWK A2,/37 COPY COMMAND? «, t00=0x0028, t01=0x010a}
0x3f9c…3fb6 Head {h00=0x0016, h01=0x0050, text=» RF(NE) UNC175 NO «, t00=0x0028, t01=0x012c}
0x3fb6…3fda Head {h00=0x0020, h01=0x0050, text=» LDK A1,ICOCOP RESTART ENTRY«, t00=0x0028, t01=0x0146}
0x3fda…3fec Head {h00=0x000e, h01=0x0050, text=» RF UNC800«, t00=0x0028, t01=0x016a}
0x3fec…4018 Head {h00=0x0028, h01=0x0050, text=»UNC150 EQU * ENTRY LABEL FROM RETTAB«, t00=0x0028, t01=0x017c}
0x4018…4038 Head {h00=0x001c, h01=0x0050, text=» CF A14,MATCH GET TASKID«, t00=0x0029, t01=0x0018}
0x4038…404e Head {h00=0x0012, h01=0x0050, text=» LDR A1,A1 OK?«, t00=0x0029, t01=0x0038}
0x404e…4068 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) UNC175 NO «, t00=0x0029, t01=0x004e}
0x4068…40a2 Head {h00=0x0036, h01=0x0050, text=» LDKL A1,/8000 RETURN CODE TO INDICATE COPY COMND.«, t00=0x0029, t01=0x0068}
0x40a2…40ba Head {h00=0x0014, h01=0x0050, text=» ST A1,REGI,A11 «, t00=0x0029, t01=0x00a2}
0x40ba…40d4 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBICW,A11 «, t00=0x0029, t01=0x00ba}
0x40d4…40f6 Head {h00=0x001e, h01=0x0050, text=» CF A14,ICSET SET TIMEOUT «, t00=0x0029, t01=0x00d4}
0x40f6…4116 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A2 TASK TO CALL «, t00=0x0029, t01=0x00f6}
0x4116…412e Head {h00=0x0014, h01=0x0050, text=» LDK A2,2 LENGTH«, t00=0x0029, t01=0x0116}
0x412e…4144 Head {h00=0x0012, h01=0x0050, text=» LDKL A3,REGI «, t00=0x0029, t01=0x012e}
0x4144…415e Head {h00=0x0016, h01=0x0050, text=» ADR A3,A11 BUFFER«, t00=0x0029, t01=0x0144}
0x415e…417c Head {h00=0x001a, h01=0x0050, text=» CF A14,ICWRT SEND IT «, t00=0x0029, t01=0x015e}
0x417c…4190 Head {h00=0x0010, h01=0x0050, text=»UNC175 EQU *«, t00=0x0029, t01=0x017c}
0x4190…419c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x0190}
0x419c…41c4 Head {h00=0x0024, h01=0x0050, text=» LDKL A10,THROWB THROW THE REST «, t00=0x002a, t01=0x000c}
0x41c4…41e4 Head {h00=0x001c, h01=0x0050, text=» LDK A1,1 INDICATE ERROR«, t00=0x002a, t01=0x0034}
0x41e4…4206 Head {h00=0x001e, h01=0x0050, text=» RF UNC900 INVALID COMMAND«, t00=0x002a, t01=0x0054}
0x4206…421a Head {h00=0x0010, h01=0x0050, text=»UNC200 EQU *«, t00=0x002a, t01=0x0076}
0x421a…4232 Head {h00=0x0014, h01=0x0050, text=» ST A8,REGI,A11 «, t00=0x002a, t01=0x008a}
0x4232…425c Head {h00=0x0026, h01=0x0050, text=» CF A14,ERASE ERASE ENTIRE SCREEN «, t00=0x002a, t01=0x00a2}
0x425c…4274 Head {h00=0x0014, h01=0x0050, text=» LD A8,REGI,A11 «, t00=0x002a, t01=0x00cc}
0x4274…4288 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x002a, t01=0x00e4}
0x4288…429e Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x002a, t01=0x00f8}
0x429e…42c8 Head {h00=0x0026, h01=0x0050, text=» LDK A4,0 INITIATE BUFFER ADDRESS «, t00=0x002a, t01=0x010e}
0x42c8…42da Head {h00=0x000e, h01=0x0050, text=» RF UNC500«, t00=0x002a, t01=0x0138}
0x42da…42ee Head {h00=0x0010, h01=0x0050, text=»UNC300 EQU *«, t00=0x002a, t01=0x014a}
0x42ee…431a Head {h00=0x0028, h01=0x0050, text=» CF A14,ERASUP ERASE ALL UNPROTECTED«, t00=0x002a, t01=0x015e}
0x431a…4340 Head {h00=0x0022, h01=0x0050, text=» LDKL A10,THROWB THROW IT AWAY«, t00=0x002a, t01=0x018a}
0x4340…4360 Head {h00=0x001c, h01=0x0050, text=» LDK A1,1 INDICATE ERROR«, t00=0x002b, t01=0x0020}
0x4360…4372 Head {h00=0x000e, h01=0x0050, text=» RF UNC900«, t00=0x002b, t01=0x0040}
0x4372…4386 Head {h00=0x0010, h01=0x0050, text=»UNC500 EQU *«, t00=0x002b, t01=0x0052}
0x4386…43a6 Head {h00=0x001c, h01=0x0050, text=» LDK A1,ICOWCC GET INDEX«, t00=0x002b, t01=0x0066}
0x43a6…43c0 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x002b, t01=0x0086}
0x43c0…43d2 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x002b, t01=0x00a0}
0x43d2…43e4 Head {h00=0x000e, h01=0x0050, text=» RF UNC900«, t00=0x002b, t01=0x00b2}
0x43e4…4410 Head {h00=0x0028, h01=0x0050, text=»UNC600 EQU * ENTRY LABEL FROM RETTAB«, t00=0x002b, t01=0x00c4}
0x4410…4440 Head {h00=0x002c, h01=0x0050, text=» CF A14,P1WCC PROCESS WCC BEFORE UPDATE «, t00=0x002b, t01=0x00f0}
0x4440…4452 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A4«, t00=0x002b, t01=0x0120}
0x4452…4478 Head {h00=0x0022, h01=0x0050, text=» ADKL A3,BVDU GET REAL ADDRESS«, t00=0x002b, t01=0x0132}
0x4478…448c Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x002b, t01=0x0158}
0x448c…44b6 Head {h00=0x0026, h01=0x0050, text=» ORKL A10,PTORD INDICATE PT ORDER «, t00=0x002b, t01=0x016c}
0x44b6…44e0 Head {h00=0x0026, h01=0x0050, text=» LDK A1,IORDER INDICATE NEXT CALL «, t00=0x002c, t01=0x0008}
0x44e0…44f4 Head {h00=0x0010, h01=0x0050, text=»UNC800 EQU *«, t00=0x002c, t01=0x0032}
0x44f4…450e Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x002c, t01=0x0046}
0x450e…4520 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x002c, t01=0x0060}
0x4520…4534 Head {h00=0x0010, h01=0x0050, text=»UNC900 EQU *«, t00=0x002c, t01=0x0072}
0x4534…4544 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002c, t01=0x0086}
0x4544…4552 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x0096}
0x4552…4594 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x002c, t01=0x00a4}
0x4594…45d6 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x002c, t01=0x00e6}
0x45d6…4618 Head {h00=0x003e, h01=0x0050, text=»* UNPORD UNPACK ORDERS *«, t00=0x002c, t01=0x0128}
0x4618…465a Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x002c, t01=0x016a}
0x465a…469c Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x002d, t01=0x001c}
0x469c…46b0 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x002d, t01=0x005e}
0x46b0…46ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0072}
0x46ba…46ce Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x002d, t01=0x007c}
0x46ce…46f2 Head {h00=0x0020, h01=0x0050, text=»* A3= POINTER IN VDU BUFFER «, t00=0x002d, t01=0x0090}
0x46f2…4710 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x002d, t01=0x00b4}
0x4710…4732 Head {h00=0x001e, h01=0x0050, text=»* A5= LAST IN ROW REL POS «, t00=0x002d, t01=0x00d2}
0x4732…475a Head {h00=0x0024, h01=0x0050, text=»* A6= INTERNAL LINE FLAG ADDRESS«, t00=0x002d, t01=0x00f4}
0x475a…4770 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x002d, t01=0x011c}
0x4770…4786 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x002d, t01=0x0132}
0x4786…479e Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x002d, t01=0x0148}
0x479e…47b6 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x002d, t01=0x0160}
0x47b6…47ce Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x002d, t01=0x0178}
0x47ce…47e6 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x002d, t01=0x0190}
0x47e6…47f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0018}
0x47f0…4832 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x002e, t01=0x0022}
0x4832…485e Head {h00=0x0028, h01=0x0050, text=»UNPORD EQU * ENTRY LABEL FROM RETTAB«, t00=0x002e, t01=0x0064}
0x485e…4878 Head {h00=0x0016, h01=0x0050, text=» CWK A2,/20 ORDER?«, t00=0x002e, t01=0x0090}
0x4878…4892 Head {h00=0x0016, h01=0x0050, text=» RF(L) UNO100 YES «, t00=0x002e, t01=0x00aa}
0x4892…48c0 Head {h00=0x002a, h01=0x0050, text=» XRKL A10,PTORD INDICATE FOR PT ORDER «, t00=0x002e, t01=0x00c4}
0x48c0…48dc Head {h00=0x0018, h01=0x0050, text=» CWR A5,A4 NEW LINE?«, t00=0x002e, t01=0x00f2}
0x48dc…48f4 Head {h00=0x0014, h01=0x0050, text=» RF(G) UNO050 NO«, t00=0x002e, t01=0x010e}
0x48f4…4914 Head {h00=0x001c, h01=0x0050, text=» CF A14,LINE CHECK WRAP «, t00=0x002e, t01=0x0126}
0x4914…4928 Head {h00=0x0010, h01=0x0050, text=»UNO050 EQU *«, t00=0x002e, t01=0x0146}
0x4928…4954 Head {h00=0x0028, h01=0x0050, text=» SCR A2,A3 STORE CHAR. IN VDU BUFFER«, t00=0x002e, t01=0x015a}
0x4954…496c Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x002e, t01=0x0186}
0x496c…497e Head {h00=0x000e, h01=0x0050, text=» ORK A1,1 «, t00=0x002f, t01=0x000e}
0x497e…4996 Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x002f, t01=0x0020}
0x4996…49a8 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x002f, t01=0x0038}
0x49a8…49ba Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x002f, t01=0x004a}
0x49ba…49cc Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x002f, t01=0x005c}
0x49cc…49de Head {h00=0x000e, h01=0x0050, text=» RF UNO200«, t00=0x002f, t01=0x006e}
0x49de…49f2 Head {h00=0x0010, h01=0x0050, text=»UNO100 EQU *«, t00=0x002f, t01=0x0080}
0x49f2…4a1a Head {h00=0x0024, h01=0x0050, text=» LC A1,CONORD,A2 GET ORDER INDEX«, t00=0x002f, t01=0x0094}
0x4a1a…4a48 Head {h00=0x002a, h01=0x0050, text=» CFI A14,ORDTAB,A1 TAKE CARE OF ORDER «, t00=0x002f, t01=0x00bc}
0x4a48…4a5c Head {h00=0x0010, h01=0x0050, text=»UNO200 EQU *«, t00=0x002f, t01=0x00ea}
0x4a5c…4a6c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002f, t01=0x00fe}
0x4a6c…4a7a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002f, t01=0x010e}
0x4a7a…4ac0 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x002f, t01=0x011c}
0x4ac0…4b06 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x002f, t01=0x0162}
0x4b06…4b4c Head {h00=0x0042, h01=0x0050, text=»* ORDTAB ORDER TABLE * «, t00=0x0030, t01=0x0018}
0x4b4c…4b92 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0030, t01=0x005e}
0x4b92…4bd8 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0030, t01=0x00a4}
0x4bd8…4bec Head {h00=0x0010, h01=0x0050, text=»ORDTAB EQU *«, t00=0x0030, t01=0x00ea}
0x4bec…4c0e Head {h00=0x001e, h01=0x0050, text=» DATA INVAL INVALID CHAR. «, t00=0x0030, t01=0x00fe}
0x4c0e…4c2a Head {h00=0x0018, h01=0x0050, text=» DATA SF START FIELD«, t00=0x0030, t01=0x0120}
0x4c2a…4c4e Head {h00=0x0020, h01=0x0050, text=» DATA SBA SET BUFFER ADDRESS«, t00=0x0030, t01=0x013c}
0x4c4e…4c6c Head {h00=0x001a, h01=0x0050, text=» DATA IC INSERT CURSOR«, t00=0x0030, t01=0x0160}
0x4c6c…4c82 Head {h00=0x0012, h01=0x0050, text=» DATA PT TAB. «, t00=0x0030, t01=0x017e}
0x4c82…4ca4 (49, 0, 398) Head {h00=0x001e, h01=0x0050, text=» DATA RA REPEAT TO AADRESS«, t00=0x0031, t01=0x0004}
0x4ca4…4cd2 Head {h00=0x002a, h01=0x0050, text=» DATA EUA ERASE UNPROTECTED TO ADDRESS«, t00=0x0031, t01=0x0026}
0x4cd2…4cea Head {h00=0x0014, h01=0x0050, text=» DATA ESC ESCAPE«, t00=0x0031, t01=0x0054}
0x4cea…4d0a Head {h00=0x001c, h01=0x0050, text=» DATA NULCHA NULL CHAR. «, t00=0x0031, t01=0x006c}
0x4d0a…4d24 Head {h00=0x0016, h01=0x0050, text=» DATA NL NEW LINE «, t00=0x0031, t01=0x008c}
0x4d24…4d3e Head {h00=0x0016, h01=0x0050, text=» DATA FF FORM FEED«, t00=0x0031, t01=0x00a6}
0x4d3e…4d5a Head {h00=0x0018, h01=0x0050, text=» DATA EM END MESSAGE«, t00=0x0031, t01=0x00c0}
0x4d5a…4d7a Head {h00=0x001c, h01=0x0050, text=» DATA CR CARRIAGE RETURN«, t00=0x0031, t01=0x00dc}
0x4d7a…4d88 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0031, t01=0x00fc}
0x4d88…4dcc Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0031, t01=0x010a}
0x4dcc…4e10 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0031, t01=0x014e}
0x4e10…4e54 (50, 0, 400) Head {h00=0x0040, h01=0x0050, text=»* SF START FIELD * «, t00=0x0032, t01=0x0004}
0x4e54…4e98 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0032, t01=0x0048}
0x4e98…4edc Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0032, t01=0x008c}
0x4edc…4ef0 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0032, t01=0x00d0}
0x4ef0…4efa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00e4}
0x4efa…4f14 Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x0032, t01=0x00ee}
0x4f14…4f2a Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x0032, t01=0x0108}
0x4f2a…4f4e Head {h00=0x0020, h01=0x0050, text=»* A3= POINTER IN VDU BUFFER «, t00=0x0032, t01=0x011e}
0x4f4e…4f6c Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0032, t01=0x0142}
0x4f6c…4f82 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0032, t01=0x0160}
0x4f82…4f98 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0032, t01=0x0176}
0x4f98…4fae Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0032, t01=0x018c}
0x4fae…4fcc Head {h00=0x001a, h01=0x0050, text=»* A9= DC-BUFFER INDEX «, t00=0x0033, t01=0x0012}
0x4fcc…4fe4 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0033, t01=0x0030}
0x4fe4…5004 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0033, t01=0x0048}
0x5004…501c Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0033, t01=0x0068}
0x501c…5034 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0033, t01=0x0080}
0x5034…503e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0098}
0x503e…5082 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0033, t01=0x00a2}
0x5082…5092 Head {h00=0x000c, h01=0x0050, text=»SF EQU *«, t00=0x0033, t01=0x00e6}
0x5092…50bc Head {h00=0x0026, h01=0x0050, text=» LDK A1,IOSFAT INDICATE NEXT CALL «, t00=0x0033, t01=0x00f6}
0x50bc…50d6 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0033, t01=0x0120}
0x50d6…50f2 Head {h00=0x0018, h01=0x0050, text=» RF SF900 GET CHAR. «, t00=0x0033, t01=0x013a}
0x50f2…511e Head {h00=0x0028, h01=0x0050, text=»SF100 EQU * ENTRY LABEL FROM RETTAB «, t00=0x0033, t01=0x0156}
0x511e…5140 Head {h00=0x001e, h01=0x0050, text=» LDK A1,IORDER NEXT ALBEL «, t00=0x0033, t01=0x0182}
0x5140…515a Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0034, t01=0x0014}
0x515a…517c Head {h00=0x001e, h01=0x0050, text=» LC A2,CONATT,A2 IN EBCDIC«, t00=0x0034, t01=0x002e}
0x517c…519a Head {h00=0x001a, h01=0x0050, text=» ORK A2,/80 ATTR. BIT «, t00=0x0034, t01=0x0050}
0x519a…51b0 Head {h00=0x0012, h01=0x0050, text=» CM CURATT,A11«, t00=0x0034, t01=0x006e}
0x51b0…51ce Head {h00=0x001a, h01=0x0050, text=» ORKL A10,ATTREC+PTORD«, t00=0x0034, t01=0x0084}
0x51ce…51f0 Head {h00=0x001e, h01=0x0050, text=» CF A14,LINWRP CHECK WRAP «, t00=0x0034, t01=0x00a2}
0x51f0…5208 Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x0034, t01=0x00c4}
0x5208…5228 Head {h00=0x001c, h01=0x0050, text=» ANK A1,2 LINE IN FIELD?«, t00=0x0034, t01=0x00dc}
0x5228…5240 Head {h00=0x0014, h01=0x0050, text=» RF(Z) SF600 NO «, t00=0x0034, t01=0x00fc}
0x5240…5272 Head {h00=0x002e, h01=0x0050, text=» CF A14,LINATT INDICATE ATTRIBUTE OVERRUN «, t00=0x0034, t01=0x0114}
0x5272…5286 Head {h00=0x0010, h01=0x0050, text=»SF600 EQU * «, t00=0x0034, t01=0x0146}
0x5286…52ba Head {h00=0x0030, h01=0x0050, text=» ORKL A10,ATTREC INDICATE ATTRIBUTE RECEIVED«, t00=0x0034, t01=0x015a}
0x52ba…52d8 Head {h00=0x001a, h01=0x0050, text=» SCR A2,A3 STORE CHAR.«, t00=0x0034, t01=0x018e}
0x52d8…52ea Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0035, t01=0x001c}
0x52ea…52fc Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0035, t01=0x002e}
0x52fc…5310 Head {h00=0x0010, h01=0x0050, text=»SF900 EQU * «, t00=0x0035, t01=0x0040}
0x5310…5322 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0035, t01=0x0054}
0x5322…5332 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0035, t01=0x0066}
0x5332…5340 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0035, t01=0x0076}
0x5340…5384 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0035, t01=0x0084}
0x5384…53c8 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0035, t01=0x00c8}
0x53c8…540c Head {h00=0x0040, h01=0x0050, text=»* SBA SET BUFFER ADDRESS * «, t00=0x0035, t01=0x010c}
0x540c…5450 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0035, t01=0x0150}
0x5450…5494 (54, 0, 400) Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0036, t01=0x0004}
0x5494…54a8 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0036, t01=0x0048}
0x54a8…54b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x005c}
0x54b2…54cc Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x0036, t01=0x0066}
0x54cc…54e0 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0036, t01=0x0080}
0x54e0…54f6 Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x0036, t01=0x0094}
0x54f6…550c Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0036, t01=0x00aa}
0x550c…5522 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0036, t01=0x00c0}
0x5522…5538 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0036, t01=0x00d6}
0x5538…554e Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0036, t01=0x00ec}
0x554e…5564 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x0036, t01=0x0102}
0x5564…557c Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0036, t01=0x0118}
0x557c…559c Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0036, t01=0x0130}
0x559c…55b4 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0036, t01=0x0150}
0x55b4…55cc Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0036, t01=0x0168}
0x55cc…55d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0180}
0x55d6…561a Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0036, t01=0x018a}
0x561a…562c Head {h00=0x000e, h01=0x0050, text=»SBA EQU * «, t00=0x0037, t01=0x003e}
0x562c…564e Head {h00=0x001e, h01=0x0050, text=» LDK A1,IOSBA1 NEXT LABEL «, t00=0x0037, t01=0x0050}
0x564e…5668 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0037, t01=0x0072}
0x5668…567a Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0037, t01=0x008c}
0x567a…5698 Head {h00=0x001a, h01=0x0050, text=» RF SBA900 FIRST BYTE «, t00=0x0037, t01=0x009e}
0x5698…56c4 Head {h00=0x0028, h01=0x0050, text=»SBA100 EQU * ENTRY LABEL FROM RETTAB«, t00=0x0037, t01=0x00bc}
0x56c4…56e4 Head {h00=0x001c, h01=0x0050, text=» LC A7,CONATT,A2 CONVERT«, t00=0x0037, t01=0x00e8}
0x56e4…56f8 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/3F «, t00=0x0037, t01=0x0108}
0x56f8…570a Head {h00=0x000e, h01=0x0050, text=» SLL A7,6 «, t00=0x0037, t01=0x011c}
0x570a…5720 Head {h00=0x0012, h01=0x0050, text=» LDK A1,IOSBA2«, t00=0x0037, t01=0x012e}
0x5720…573a Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0037, t01=0x0144}
0x573a…574c Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0037, t01=0x015e}
0x574c…5768 Head {h00=0x0018, h01=0x0050, text=» RF SBA900 NEXT BYTE«, t00=0x0037, t01=0x0170}
0x5768…5794 Head {h00=0x0028, h01=0x0050, text=»SBA200 EQU * ENTRY LABEL FROM RETTAB«, t00=0x0037, t01=0x018c}
0x5794…57ac Head {h00=0x0014, h01=0x0050, text=» LC A2,CONATT,A2«, t00=0x0038, t01=0x0028}
0x57ac…57c0 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x0038, t01=0x0040}
0x57c0…57d2 Head {h00=0x000e, h01=0x0050, text=» ORR A7,A2«, t00=0x0038, t01=0x0054}
0x57d2…57f4 Head {h00=0x001e, h01=0x0050, text=» LDK A1,IORDER NEXT LABEL «, t00=0x0038, t01=0x0066}
0x57f4…580e Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0038, t01=0x0088}
0x580e…5834 Head {h00=0x0022, h01=0x0050, text=» CWK A7,LBVDU ILLEGAL ADDRESS?«, t00=0x0038, t01=0x00a2}
0x5834…584e Head {h00=0x0016, h01=0x0050, text=» RF(NL) SBA800 YES«, t00=0x0038, t01=0x00c8}
0x584e…5860 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A7«, t00=0x0038, t01=0x00e2}
0x5860…5872 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x0038, t01=0x00f4}
0x5872…5888 Head {h00=0x0012, h01=0x0050, text=» ADKL A3,BVDU «, t00=0x0038, t01=0x0106}
0x5888…589c Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0038, t01=0x011c}
0x589c…58c6 Head {h00=0x0026, h01=0x0050, text=» ORKL A10,PTORD INDICATE PT ORDER «, t00=0x0038, t01=0x0130}
0x58c6…58f4 Head {h00=0x002a, h01=0x0050, text=» CF A14,LINE CHECK WRAP AND LINE FLAGS«, t00=0x0038, t01=0x015a}
0x58f4…5910 Head {h00=0x0018, h01=0x0050, text=» LDK A1,0 REURN CODE«, t00=0x0038, t01=0x0188}
0x5910…5922 Head {h00=0x000e, h01=0x0050, text=» RF SBA900«, t00=0x0039, t01=0x0014}
0x5922…5936 Head {h00=0x0010, h01=0x0050, text=»SBA800 EQU *«, t00=0x0039, t01=0x0026}
0x5936…595c Head {h00=0x0022, h01=0x0050, text=» ORKL A10,THROWB DON'T SAVE IT«, t00=0x0039, t01=0x003a}
0x595c…597a Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 RETURN CODE «, t00=0x0039, t01=0x0060}
0x597a…598e Head {h00=0x0010, h01=0x0050, text=»SBA900 EQU *«, t00=0x0039, t01=0x007e}
0x598e…599e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0039, t01=0x0092}
0x599e…59ac Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0039, t01=0x00a2}
0x59ac…59ee Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0039, t01=0x00b0}
0x59ee…5a30 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x0039, t01=0x00f2}
0x5a30…5a72 Head {h00=0x003e, h01=0x0050, text=»* IC INSERT CURSOR *«, t00=0x0039, t01=0x0134}
0x5a72…5ab4 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x0039, t01=0x0176}
0x5ab4…5af6 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x003a, t01=0x0028}
0x5af6…5b0a Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x003a, t01=0x006a}
0x5b0a…5b14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x007e}
0x5b14…5b2e Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x003a, t01=0x0088}
0x5b2e…5b44 Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x003a, t01=0x00a2}
0x5b44…5b5a Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x003a, t01=0x00b8}
0x5b5a…5b78 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x003a, t01=0x00ce}
0x5b78…5b8e Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x003a, t01=0x00ec}
0x5b8e…5ba4 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x003a, t01=0x0102}
0x5ba4…5bba Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x003a, t01=0x0118}
0x5bba…5bd2 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x003a, t01=0x012e}
0x5bd2…5bf2 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x003a, t01=0x0146}
0x5bf2…5c0a Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x003a, t01=0x0166}
0x5c0a…5c22 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x003a, t01=0x017e}
0x5c22…5c2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0008}
0x5c2c…5c64 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x003b, t01=0x0012}
0x5c64…5c74 Head {h00=0x000c, h01=0x0050, text=»IC EQU *«, t00=0x003b, t01=0x004a}
0x5c74…5c8c Head {h00=0x0014, h01=0x0050, text=» ST A4,PCURS,A11«, t00=0x003b, t01=0x005a}
0x5c8c…5cac Head {h00=0x001c, h01=0x0050, text=» ORKL A10,PTORD INDICATE«, t00=0x003b, t01=0x0072}
0x5cac…5cca Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x003b, t01=0x0092}
0x5cca…5cda Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003b, t01=0x00b0}
0x5cda…5ce8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003b, t01=0x00c0}
0x5ce8…5d2c Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x003b, t01=0x00ce}
0x5d2c…5d70 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x003b, t01=0x0112}
0x5d70…5db4 Head {h00=0x0040, h01=0x0050, text=»* PT PROGRAM TAB. * «, t00=0x003b, t01=0x0156}
0x5db4…5df8 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x003c, t01=0x000a}
0x5df8…5e3c Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x003c, t01=0x004e}
0x5e3c…5e50 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x003c, t01=0x0092}
0x5e50…5e5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00a6}
0x5e5a…5e74 Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x003c, t01=0x00b0}
0x5e74…5e88 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x003c, t01=0x00ca}
0x5e88…5eac Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x003c, t01=0x00de}
0x5eac…5eca Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x003c, t01=0x0102}
0x5eca…5ee0 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x003c, t01=0x0120}
0x5ee0…5efe Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x003c, t01=0x0136}
0x5efe…5f14 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x003c, t01=0x0154}
0x5f14…5f2a Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x003c, t01=0x016a}
0x5f2a…5f42 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x003c, t01=0x0180}
0x5f42…5f5a Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x003d, t01=0x0008}
0x5f5a…5f72 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x003d, t01=0x0020}
0x5f72…5f8a Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x003d, t01=0x0038}
0x5f8a…5f94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0050}
0x5f94…5fd8 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x003d, t01=0x005a}
0x5fd8…5fe8 Head {h00=0x000c, h01=0x0050, text=»PT EQU *«, t00=0x003d, t01=0x009e}
0x5fe8…5ffc Head {h00=0x0010, h01=0x0050, text=» LDR A1,A10 «, t00=0x003d, t01=0x00ae}
0x5ffc…602e Head {h00=0x002e, h01=0x0050, text=» ANK A1,PTORD FOLLOWING ORDER OR COMMAND? «, t00=0x003d, t01=0x00c2}
0x602e…6048 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PT400 YES «, t00=0x003d, t01=0x00f4}
0x6048…607c Head {h00=0x0030, h01=0x0050, text=» LDK A7,NULL FILL WITH NULLS TO END OF FIELD«, t00=0x003d, t01=0x010e}
0x607c…6090 Head {h00=0x0010, h01=0x0050, text=»PT200 EQU * «, t00=0x003d, t01=0x0142}
0x6090…60b2 Head {h00=0x001e, h01=0x0050, text=» CF A14,LINWRP CHECK WRAP «, t00=0x003d, t01=0x0156}
0x60b2…60d4 Head {h00=0x001e, h01=0x0050, text=» LDR A4,A4 END OF BUFFER? «, t00=0x003d, t01=0x0178}
0x60d4…60fa Head {h00=0x0022, h01=0x0050, text=» RF(Z) PT800 YES, KUNTA KINTE «, t00=0x003e, t01=0x000a}
0x60fa…610c Head {h00=0x000e, h01=0x0050, text=» LCR A2,A3«, t00=0x003e, t01=0x0030}
0x610c…612a Head {h00=0x001a, h01=0x0050, text=» ANK A2,/80 ATTRIBUTE?«, t00=0x003e, t01=0x0042}
0x612a…6144 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PT400 YES «, t00=0x003e, t01=0x0060}
0x6144…6168 Head {h00=0x0020, h01=0x0050, text=» SCR A7,A3 STORE NULL CHAR. «, t00=0x003e, t01=0x007a}
0x6168…6180 Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x003e, t01=0x009e}
0x6180…6192 Head {h00=0x000e, h01=0x0050, text=» ORK A1,1 «, t00=0x003e, t01=0x00b6}
0x6192…61aa Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x003e, t01=0x00c8}
0x61aa…61bc Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x003e, t01=0x00e0}
0x61bc…61ce Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x003e, t01=0x00f2}
0x61ce…61e0 Head {h00=0x000e, h01=0x0050, text=» RB PT200 «, t00=0x003e, t01=0x0104}
0x61e0…61f4 Head {h00=0x0010, h01=0x0050, text=»PT400 EQU * «, t00=0x003e, t01=0x0116}
0x61f4…6216 Head {h00=0x001e, h01=0x0050, text=» CF A14,LINWRP CHECK WRAP «, t00=0x003e, t01=0x012a}
0x6216…6238 Head {h00=0x001e, h01=0x0050, text=» LDR A4,A4 END OF BUFFER? «, t00=0x003e, t01=0x014c}
0x6238…625c Head {h00=0x0020, h01=0x0050, text=» RF(Z) PT700 YES OS AND DOS «, t00=0x003e, t01=0x016e}
0x625c…6278 (63, 0, 400) Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x003f, t01=0x0004}
0x6278…6296 Head {h00=0x001a, h01=0x0050, text=» ANK A2,/80 ATTRIBUTE?«, t00=0x003f, t01=0x0020}
0x6296…62b0 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PT500 YES «, t00=0x003f, t01=0x003e}
0x62b0…62c2 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x003f, t01=0x0058}
0x62c2…62d4 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x003f, t01=0x006a}
0x62d4…62e6 Head {h00=0x000e, h01=0x0050, text=» RB PT400 «, t00=0x003f, t01=0x007c}
0x62e6…62fa Head {h00=0x0010, h01=0x0050, text=»PT500 EQU * «, t00=0x003f, t01=0x008e}
0x62fa…6320 Head {h00=0x0022, h01=0x0050, text=» LCR A2,A3 GET CHAR. AGAIN DK «, t00=0x003f, t01=0x00a2}
0x6320…633e Head {h00=0x001a, h01=0x0050, text=» ANK A2,/20 PROTECTED?«, t00=0x003f, t01=0x00c8}
0x633e…6358 Head {h00=0x0016, h01=0x0050, text=» RB(NZ) PT400 YES «, t00=0x003f, t01=0x00e6}
0x6358…636a Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x003f, t01=0x0100}
0x636a…637c Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x003f, t01=0x0112}
0x637c…639e Head {h00=0x001e, h01=0x0050, text=» CF A14,LINWRP CHECK WRAP «, t00=0x003f, t01=0x0124}
0x639e…63b2 Head {h00=0x0010, h01=0x0050, text=»PT700 EQU * «, t00=0x003f, t01=0x0146}
0x63b2…63ca Head {h00=0x0014, h01=0x0050, text=» ORKL A10,PTORD «, t00=0x003f, t01=0x015a}
0x63ca…63de Head {h00=0x0010, h01=0x0050, text=»PT800 EQU * «, t00=0x003f, t01=0x0172}
0x63de…63fc Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x003f, t01=0x0186}
0x63fc…640c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0040, t01=0x0014}
0x640c…641a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0040, t01=0x0024}
0x641a…6460 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0040, t01=0x0032}
0x6460…64a6 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0040, t01=0x0078}
0x64a6…64ec Head {h00=0x0042, h01=0x0050, text=»* RA REPEAT TO ADDRESS * «, t00=0x0040, t01=0x00be}
0x64ec…6532 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0040, t01=0x0104}
0x6532…6578 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0040, t01=0x014a}
0x6578…658c Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0040, t01=0x0190}
0x658c…6596 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0014}
0x6596…65b0 Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x0041, t01=0x001e}
0x65b0…65d2 Head {h00=0x001e, h01=0x0050, text=»* A2= CHAR. TO BE REPEATED«, t00=0x0041, t01=0x0038}
0x65d2…65f6 Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x0041, t01=0x005a}
0x65f6…6614 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0041, t01=0x007e}
0x6614…662a Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0041, t01=0x009c}
0x662a…6652 Head {h00=0x0024, h01=0x0050, text=»* A6= INTERNAL LINE FLAG ADDRESS«, t00=0x0041, t01=0x00b2}
0x6652…6668 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0041, t01=0x00da}
0x6668…6686 Head {h00=0x001a, h01=0x0050, text=»* A9= DC-BUFFER INDEX «, t00=0x0041, t01=0x00f0}
0x6686…669e Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0041, t01=0x010e}
0x669e…66be Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0041, t01=0x0126}
0x66be…66d6 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0041, t01=0x0146}
0x66d6…66ee Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0041, t01=0x015e}
0x66ee…66f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0176}
0x66f8…6732 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0041, t01=0x0180}
0x6732…6742 Head {h00=0x000c, h01=0x0050, text=»RA EQU *«, t00=0x0042, t01=0x002a}
0x6742…6764 Head {h00=0x001e, h01=0x0050, text=» LDK A1,IORAA1 NEXT LABEL «, t00=0x0042, t01=0x003a}
0x6764…677e Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0042, t01=0x005c}
0x677e…6790 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0042, t01=0x0076}
0x6790…67ac Head {h00=0x0018, h01=0x0050, text=» RF RA900 FIRST BYTE«, t00=0x0042, t01=0x0088}
0x67ac…67d8 Head {h00=0x0028, h01=0x0050, text=»RA100 EQU * ENTRY LABEL FROM RETTAB «, t00=0x0042, t01=0x00a4}
0x67d8…67f8 Head {h00=0x001c, h01=0x0050, text=» LC A7,CONATT,A2 CONVERT«, t00=0x0042, t01=0x00d0}
0x67f8…680c Head {h00=0x0010, h01=0x0050, text=» ANK A7,/3F «, t00=0x0042, t01=0x00f0}
0x680c…681e Head {h00=0x000e, h01=0x0050, text=» SLL A7,6 «, t00=0x0042, t01=0x0104}
0x681e…6840 Head {h00=0x001e, h01=0x0050, text=» LDK A1,IORAA2 NEXT LABEL «, t00=0x0042, t01=0x0116}
0x6840…685a Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0042, t01=0x0138}
0x685a…686c Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0042, t01=0x0152}
0x686c…688a Head {h00=0x001a, h01=0x0050, text=» RF RA900 SECOND BYTE «, t00=0x0042, t01=0x0164}
0x688a…68b6 Head {h00=0x0028, h01=0x0050, text=»RA200 EQU * ENTRY LABEL FROM RETTAB «, t00=0x0042, t01=0x0182}
0x68b6…68ce Head {h00=0x0014, h01=0x0050, text=» LC A2,CONATT,A2«, t00=0x0043, t01=0x001e}
0x68ce…68e2 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x0043, t01=0x0036}
0x68e2…68f4 Head {h00=0x000e, h01=0x0050, text=» ORR A7,A2«, t00=0x0043, t01=0x004a}
0x68f4…691a Head {h00=0x0022, h01=0x0050, text=» CWK A7,LBVDU INVALID ADDRESS «, t00=0x0043, t01=0x005c}
0x691a…6934 Head {h00=0x0016, h01=0x0050, text=» RF(NL) RA800 YES «, t00=0x0043, t01=0x0082}
0x6934…6956 Head {h00=0x001e, h01=0x0050, text=» LDK A1,IORACH NEXT LABEL «, t00=0x0043, t01=0x009c}
0x6956…6970 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0043, t01=0x00be}
0x6970…6982 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0043, t01=0x00d8}
0x6982…699e Head {h00=0x0018, h01=0x0050, text=» RF RA900 CHAR. BYTE«, t00=0x0043, t01=0x00ea}
0x699e…69ca Head {h00=0x0028, h01=0x0050, text=»RA250 EQU * ENTRY LABEL FROM RETTAB «, t00=0x0043, t01=0x0106}
0x69ca…69e0 Head {h00=0x0012, h01=0x0050, text=» LDK A1,IORDER«, t00=0x0043, t01=0x0132}
0x69e0…69fa Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0043, t01=0x0148}
0x69fa…6a0e Head {h00=0x0010, h01=0x0050, text=»RA300 EQU * «, t00=0x0043, t01=0x0162}
0x6a0e…6a34 Head {h00=0x0022, h01=0x0050, text=» SCR A2,A3 STORE IN VDU-BUFFER«, t00=0x0043, t01=0x0176}
0x6a34…6a4c Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x0044, t01=0x000c}
0x6a4c…6a5e Head {h00=0x000e, h01=0x0050, text=» ORK A1,1 «, t00=0x0044, t01=0x0024}
0x6a5e…6a76 Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x0044, t01=0x0036}
0x6a76…6a88 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0044, t01=0x004e}
0x6a88…6a9a Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0044, t01=0x0060}
0x6a9a…6abe Head {h00=0x0020, h01=0x0050, text=» CF A14,LINWRP CHECK WRAP =1«, t00=0x0044, t01=0x0072}
0x6abe…6ae2 Head {h00=0x0020, h01=0x0050, text=» CWR A4,A7 ALL REPEATED? =1 «, t00=0x0044, t01=0x0096}
0x6ae2…6afe Head {h00=0x0018, h01=0x0050, text=» RB(NE) RA300 NO =1 «, t00=0x0044, t01=0x00ba}
0x6afe…6b28 Head {h00=0x0026, h01=0x0050, text=» ORKL A10,PTORD INDICATE PT ORDER «, t00=0x0044, t01=0x00d6}
0x6b28…6b46 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0044, t01=0x0100}
0x6b46…6b58 Head {h00=0x000e, h01=0x0050, text=» RF RA900 «, t00=0x0044, t01=0x011e}
0x6b58…6b6c Head {h00=0x0010, h01=0x0050, text=»RA800 EQU * «, t00=0x0044, t01=0x0130}
0x6b6c…6b92 Head {h00=0x0022, h01=0x0050, text=» ORKL A10,THROWB THROW IT AWAY«, t00=0x0044, t01=0x0144}
0x6b92…6bb0 Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 RETURN CODE «, t00=0x0044, t01=0x016a}
0x6bb0…6bc4 Head {h00=0x0010, h01=0x0050, text=»RA900 EQU * «, t00=0x0044, t01=0x0188}
0x6bc4…6bd4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0045, t01=0x000c}
0x6bd4…6be2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0045, t01=0x001c}
0x6be2…6c20 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0045, t01=0x002a}
0x6c20…6c5e Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0045, t01=0x0068}
0x6c5e…6c9c Head {h00=0x003a, h01=0x0050, text=»* EUA ERASE UNPRO. TO ADDRESS *«, t00=0x0045, t01=0x00a6}
0x6c9c…6cda Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0045, t01=0x00e4}
0x6cda…6d18 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0045, t01=0x0122}
0x6d18…6d2c Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0045, t01=0x0160}
0x6d2c…6d36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0174}
0x6d36…6d50 Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x0045, t01=0x017e}
0x6d50…6d64 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0046, t01=0x0008}
0x6d64…6d7a Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x0046, t01=0x001c}
0x6d7a…6d90 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0046, t01=0x0032}
0x6d90…6da6 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0046, t01=0x0048}
0x6da6…6dbc Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0046, t01=0x005e}
0x6dbc…6dd2 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0046, t01=0x0074}
0x6dd2…6de8 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x0046, t01=0x008a}
0x6de8…6e00 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0046, t01=0x00a0}
0x6e00…6e20 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0046, t01=0x00b8}
0x6e20…6e38 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0046, t01=0x00d8}
0x6e38…6e50 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0046, t01=0x00f0}
0x6e50…6e5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0108}
0x6e5a…6e9a Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0046, t01=0x0112}
0x6e9a…6eac Head {h00=0x000e, h01=0x0050, text=»EUA EQU * «, t00=0x0046, t01=0x0152}
0x6eac…6ece Head {h00=0x001e, h01=0x0050, text=» LDK A1,IOEUA1 NEXT LABEL «, t00=0x0046, t01=0x0164}
0x6ece…6ee8 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0046, t01=0x0186}
0x6ee8…6efa Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0047, t01=0x0010}
0x6efa…6f18 Head {h00=0x001a, h01=0x0050, text=» RF EUA900 FIRST BYTE «, t00=0x0047, t01=0x0022}
0x6f18…6f44 Head {h00=0x0028, h01=0x0050, text=»EUA100 EQU * ENTRY LABEL FROM RETTAB«, t00=0x0047, t01=0x0040}
0x6f44…6f64 Head {h00=0x001c, h01=0x0050, text=» LC A7,CONATT,A2 CONVERT«, t00=0x0047, t01=0x006c}
0x6f64…6f78 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/3F «, t00=0x0047, t01=0x008c}
0x6f78…6f8a Head {h00=0x000e, h01=0x0050, text=» SLL A7,6 «, t00=0x0047, t01=0x00a0}
0x6f8a…6fac Head {h00=0x001e, h01=0x0050, text=» LDK A1,IOEUA2 NEXT LABEL «, t00=0x0047, t01=0x00b2}
0x6fac…6fc6 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0047, t01=0x00d4}
0x6fc6…6fd8 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0047, t01=0x00ee}
0x6fd8…6ff6 Head {h00=0x001a, h01=0x0050, text=» RF EUA900 SECOND BYTE«, t00=0x0047, t01=0x0100}
0x6ff6…7022 Head {h00=0x0028, h01=0x0050, text=»EUA200 EQU * ENTRY LABEL FROM RETTAB«, t00=0x0047, t01=0x011e}
0x7022…703a Head {h00=0x0014, h01=0x0050, text=» LC A2,CONATT,A2«, t00=0x0047, t01=0x014a}
0x703a…704e Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x0047, t01=0x0162}
0x704e…7060 Head {h00=0x000e, h01=0x0050, text=» ORR A7,A2«, t00=0x0047, t01=0x0176}
0x7060…7082 Head {h00=0x001e, h01=0x0050, text=» LDK A1,IORDER NEXT LABEL «, t00=0x0047, t01=0x0188}
0x7082…709c Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0048, t01=0x001a}
0x709c…70c2 Head {h00=0x0022, h01=0x0050, text=» CWK A1,LBVDU INVALID ADDRESS?«, t00=0x0048, t01=0x0034}
0x70c2…70dc Head {h00=0x0016, h01=0x0050, text=» RF(NL) EUA800 YES«, t00=0x0048, t01=0x005a}
0x70dc…70ee Head {h00=0x000e, h01=0x0050, text=» LDR A1,A7«, t00=0x0048, t01=0x0074}
0x70ee…711c Head {h00=0x002a, h01=0x0050, text=» CF A14,ERASUA ERASE UNPRO. TO ADDRESS«, t00=0x0048, t01=0x0086}
0x711c…7132 Head {h00=0x0012, h01=0x0050, text=» CF A14,SCRINF«, t00=0x0048, t01=0x00b4}
0x7132…7150 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0048, t01=0x00ca}
0x7150…717a Head {h00=0x0026, h01=0x0050, text=» ORKL A10,PTORD INDICATE PT ORDER «, t00=0x0048, t01=0x00e8}
0x717a…718c Head {h00=0x000e, h01=0x0050, text=» RF EUA900«, t00=0x0048, t01=0x0112}
0x718c…71a0 Head {h00=0x0010, h01=0x0050, text=»EUA800 EQU *«, t00=0x0048, t01=0x0124}
0x71a0…71be Head {h00=0x001a, h01=0x0050, text=» ORKL A10,THROWB RUBB.«, t00=0x0048, t01=0x0138}
0x71be…71dc Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 RETURN CODE «, t00=0x0048, t01=0x0156}
0x71dc…71f0 Head {h00=0x0010, h01=0x0050, text=»EUA900 EQU *«, t00=0x0048, t01=0x0174}
0x71f0…7200 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0048, t01=0x0188}
0x7200…720e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0049, t01=0x0008}
0x720e…724e Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0049, t01=0x0016}
0x724e…728e Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0049, t01=0x0056}
0x728e…72ce Head {h00=0x003c, h01=0x0050, text=»* CHAR. < /20 BUT NOT ORDER *«, t00=0x0049, t01=0x0096}
0x72ce…730e Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0049, t01=0x00d6}
0x730e…734e Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0049, t01=0x0116}
0x734e…7362 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0049, t01=0x0156}
0x7362…736c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x016a}
0x736c…7386 Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x0049, t01=0x0174}
0x7386…739a Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0049, t01=0x018e}
0x739a…73be Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x004a, t01=0x0012}
0x73be…73dc Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x004a, t01=0x0036}
0x73dc…73f2 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x004a, t01=0x0054}
0x73f2…741a Head {h00=0x0024, h01=0x0050, text=»* A6= INTERNAL LINE FLAG ADDRESS«, t00=0x004a, t01=0x006a}
0x741a…7430 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x004a, t01=0x0092}
0x7430…7446 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x004a, t01=0x00a8}
0x7446…745e Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x004a, t01=0x00be}
0x745e…747e Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x004a, t01=0x00d6}
0x747e…7496 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x004a, t01=0x00f6}
0x7496…74ae Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x004a, t01=0x010e}
0x74ae…74b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0126}
0x74b8…74f0 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x004a, t01=0x0130}
0x74f0…7502 Head {h00=0x000e, h01=0x0050, text=»ESC EQU * «, t00=0x004a, t01=0x0168}
0x7502…752c Head {h00=0x0026, h01=0x0050, text=» ORKL A10,LICREC INDICATE COMMAND «, t00=0x004a, t01=0x017a}
0x752c…7550 Head {h00=0x0020, h01=0x0050, text=» LDK A1,1 STOP ORDER PROCESS«, t00=0x004b, t01=0x0014}
0x7550…7562 Head {h00=0x000e, h01=0x0050, text=» RF CHARET«, t00=0x004b, t01=0x0038}
0x7562…7576 Head {h00=0x0010, h01=0x0050, text=»INVAL EQU * «, t00=0x004b, t01=0x004a}
0x7576…759c Head {h00=0x0022, h01=0x0050, text=» ORKL A10,/9800 END UNPACKING «, t00=0x004b, t01=0x005e}
0x759c…75ae Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x004b, t01=0x0084}
0x75ae…75c0 Head {h00=0x000e, h01=0x0050, text=» RF CHARET«, t00=0x004b, t01=0x0096}
0x75c0…75d4 Head {h00=0x0010, h01=0x0050, text=»NULCHA EQU *«, t00=0x004b, t01=0x00a8}
0x75d4…75e4 Head {h00=0x000c, h01=0x0050, text=»NL EQU *«, t00=0x004b, t01=0x00bc}
0x75e4…75f4 Head {h00=0x000c, h01=0x0050, text=»FF EQU *«, t00=0x004b, t01=0x00cc}
0x75f4…7604 Head {h00=0x000c, h01=0x0050, text=»EM EQU *«, t00=0x004b, t01=0x00dc}
0x7604…7614 Head {h00=0x000c, h01=0x0050, text=»CR EQU *«, t00=0x004b, t01=0x00ec}
0x7614…7636 Head {h00=0x001e, h01=0x0050, text=» CF A14,LINWRP CHECK WRAP «, t00=0x004b, t01=0x00fc}
0x7636…7654 Head {h00=0x001a, h01=0x0050, text=» SCR A2,A3 STORE CHAR.«, t00=0x004b, t01=0x011e}
0x7654…766c Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x004b, t01=0x013c}
0x766c…767e Head {h00=0x000e, h01=0x0050, text=» ORK A1,1 «, t00=0x004b, t01=0x0154}
0x767e…7696 Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x004b, t01=0x0166}
0x7696…76c0 Head {h00=0x0026, h01=0x0050, text=» XRKL A10,PTORD INDICATE PT ORDER «, t00=0x004b, t01=0x017e}
0x76c0…76d2 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x004c, t01=0x0018}
0x76d2…76e4 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x004c, t01=0x002a}
0x76e4…76fe Head {h00=0x0016, h01=0x0050, text=» LDK A1,0 CONTINUE«, t00=0x004c, t01=0x003c}
0x76fe…7712 Head {h00=0x0010, h01=0x0050, text=»CHARET EQU *«, t00=0x004c, t01=0x0056}
0x7712…7722 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x004c, t01=0x006a}
0x7722…7730 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004c, t01=0x007a}
0x7730…7778 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x004c, t01=0x0088}
0x7778…77c0 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x004c, t01=0x00d0}
0x77c0…7808 Head {h00=0x0044, h01=0x0050, text=»* PACKSY PACK DC BUFFER IN SYSTEM MODE *«, t00=0x004c, t01=0x0118}
0x7808…7850 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x004c, t01=0x0160}
0x7850…7898 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x004d, t01=0x0018}
0x7898…78ac Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x004d, t01=0x0060}
0x78ac…78b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0074}
0x78b6…78c8 Head {h00=0x000e, h01=0x0050, text=»* A2= CHAR«, t00=0x004d, t01=0x007e}
0x78c8…78ec Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x004d, t01=0x0090}
0x78ec…790a Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x004d, t01=0x00b4}
0x790a…7920 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x004d, t01=0x00d2}
0x7920…7936 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x004d, t01=0x00e8}
0x7936…7958 Head {h00=0x001e, h01=0x0050, text=»* A8= ADDRESS IN DC-BUFFER«, t00=0x004d, t01=0x00fe}
0x7958…7978 Head {h00=0x001c, h01=0x0050, text=»* A9= INDEX IN DC-BUFFER«, t00=0x004d, t01=0x0120}
0x7978…7998 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x004d, t01=0x0140}
0x7998…79b6 Head {h00=0x001a, h01=0x0050, text=»* A12= BUFFER ADDRESS «, t00=0x004d, t01=0x0160}
0x79b6…79ce Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x004d, t01=0x017e}
0x79ce…79d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0008}
0x79d8…7a20 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x004e, t01=0x0012}
0x7a20…7a34 Head {h00=0x0010, h01=0x0050, text=»PACKSY EQU *«, t00=0x004e, t01=0x005a}
0x7a34…7a46 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x004e, t01=0x006e}
0x7a46…7a60 Head {h00=0x0016, h01=0x0050, text=» LDKL A9,0 COUNTER«, t00=0x004e, t01=0x0080}
0x7a60…7a88 Head {h00=0x0024, h01=0x0050, text=» LD A3,CURPOS,A11 GET START POS.«, t00=0x004e, t01=0x009a}
0x7a88…7ab2 Head {h00=0x0026, h01=0x0050, text=» CWK A3,/800 ANY CHAR. ON DISPLAY?«, t00=0x004e, t01=0x00c2}
0x7ab2…7aca Head {h00=0x0014, h01=0x0050, text=» RF(E) PASY40 NO«, t00=0x004e, t01=0x00ec}
0x7aca…7af8 Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x004e, t01=0x0104}
0x7af8…7b0a Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x004e, t01=0x0132}
0x7b0a…7b32 Head {h00=0x0024, h01=0x0050, text=» SUR A1,A3 GET LENGTH OF MESSAGE«, t00=0x004e, t01=0x0144}
0x7b32…7b58 Head {h00=0x0022, h01=0x0050, text=» RF(NN) PASY10 NOT WRAP AROUND«, t00=0x004e, t01=0x016c}
0x7b58…7b84 (79, 0, 400) Head {h00=0x0028, h01=0x0050, text=» LDKL A1,LBVDU-1 LAST POS. ON SCREEN«, t00=0x004f, t01=0x0004}
0x7b84…7ba8 Head {h00=0x0020, h01=0x0050, text=» SUR A1,A3 GET LENGTH AGAIN «, t00=0x004f, t01=0x0030}
0x7ba8…7bbc Head {h00=0x0010, h01=0x0050, text=»PASY10 EQU *«, t00=0x004f, t01=0x0054}
0x7bbc…7be0 Head {h00=0x0020, h01=0x0050, text=» CWK A1,256 ILLEGAL LENGTH? «, t00=0x004f, t01=0x0068}
0x7be0…7bfa Head {h00=0x0016, h01=0x0050, text=» RF(NG) PASY20 NO «, t00=0x004f, t01=0x008c}
0x7bfa…7c1c Head {h00=0x001e, h01=0x0050, text=» LDKL A1,256 ADJUST LENGTH«, t00=0x004f, t01=0x00a6}
0x7c1c…7c30 Head {h00=0x0010, h01=0x0050, text=»PASY20 EQU *«, t00=0x004f, t01=0x00c8}
0x7c30…7c46 Head {h00=0x0012, h01=0x0050, text=» ADKL A3,BVDU «, t00=0x004f, t01=0x00dc}
0x7c46…7c5a Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x004f, t01=0x00f2}
0x7c5a…7c6e Head {h00=0x0010, h01=0x0050, text=»PASY30 EQU *«, t00=0x004f, t01=0x0106}
0x7c6e…7c8e Head {h00=0x001c, h01=0x0050, text=» CWR A1,A9 ALL EXAMINED?«, t00=0x004f, t01=0x011a}
0x7c8e…7ca8 Head {h00=0x0016, h01=0x0050, text=» RF(E) PASY40 YES «, t00=0x004f, t01=0x013a}
0x7ca8…7cd2 Head {h00=0x0026, h01=0x0050, text=» LCR A2,A3 GET CHAR IN VDU BUFFER «, t00=0x004f, t01=0x0154}
0x7cd2…7ce4 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x004f, t01=0x017e}
0x7ce4…7d04 Head {h00=0x001c, h01=0x0050, text=» CWK A2,NULL NULL CHAR.?«, t00=0x004f, t01=0x0190}
0x7d04…7d2a Head {h00=0x0022, h01=0x0050, text=» RB(E) PASY30 YES, DON'T STORE«, t00=0x0050, t01=0x0020}
0x7d2a…7d58 Head {h00=0x002a, h01=0x0050, text=» CF A14,PDCCH STORE CHAR. IN DC BUFFER«, t00=0x0050, t01=0x0046}
0x7d58…7d6a Head {h00=0x000e, h01=0x0050, text=» RB PASY30«, t00=0x0050, t01=0x0074}
0x7d6a…7d7e Head {h00=0x0010, h01=0x0050, text=»PASY40 EQU *«, t00=0x0050, t01=0x0086}
0x7d7e…7da6 Head {h00=0x0024, h01=0x0050, text=» LDK A1,0 INDICATE LAST IN CHAIN«, t00=0x0050, t01=0x009a}
0x7da6…7dc8 Head {h00=0x001e, h01=0x0050, text=» CF A14,DCWRIT SEND BUFFER«, t00=0x0050, t01=0x00c2}
0x7dc8…7df2 Head {h00=0x0026, h01=0x0050, text=» LDR A8,A12 GET BUFFER TO RELEASE «, t00=0x0050, t01=0x00e4}
0x7df2…7e18 Head {h00=0x0022, h01=0x0050, text=» CF A14,RELBUF RELEASE BUFFER «, t00=0x0050, t01=0x010e}
0x7e18…7e24 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0050, t01=0x0134}
0x7e24…7e34 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0050, t01=0x0140}
0x7e34…7e42 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0050, t01=0x0150}
0x7e42…7e88 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0050, t01=0x015e}
0x7e88…7ece Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0051, t01=0x0014}
0x7ece…7f14 Head {h00=0x0042, h01=0x0050, text=»* UNPSYS UNPACK DC BUFFER IN SYSTEM MODE * «, t00=0x0051, t01=0x005a}
0x7f14…7f5a Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0051, t01=0x00a0}
0x7f5a…7fa0 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0051, t01=0x00e6}
0x7fa0…7fb4 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0051, t01=0x012c}
0x7fb4…7fbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0140}
0x7fbe…7fd2 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0051, t01=0x014a}
0x7fd2…7ff6 Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x0051, t01=0x015e}
0x7ff6…8014 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0051, t01=0x0182}
0x8014…8036 Head {h00=0x001e, h01=0x0050, text=»* A5= LAST IN ROW REL POS «, t00=0x0052, t01=0x0010}
0x8036…805e Head {h00=0x0024, h01=0x0050, text=»* A6= INTERNAL LINE FLAG ADDRESS«, t00=0x0052, t01=0x0032}
0x805e…8080 Head {h00=0x001e, h01=0x0050, text=»* A8= ADDRESS IN DC-BUFFER«, t00=0x0052, t01=0x005a}
0x8080…80a0 Head {h00=0x001c, h01=0x0050, text=»* A9= INDEX IN DC-BUFFER«, t00=0x0052, t01=0x007c}
0x80a0…80b8 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0052, t01=0x009c}
0x80b8…80d8 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0052, t01=0x00b4}
0x80d8…80f0 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0052, t01=0x00d4}
0x80f0…8108 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0052, t01=0x00ec}
0x8108…8112 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0104}
0x8112…8158 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0052, t01=0x010e}
0x8158…816c Head {h00=0x0010, h01=0x0050, text=»UNPSYS EQU *«, t00=0x0052, t01=0x0154}
0x816c…817e Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0052, t01=0x0168}
0x817e…8196 Head {h00=0x0014, h01=0x0050, text=» LD A1,KBINH,A11«, t00=0x0052, t01=0x017a}
0x8196…81a8 (83, 0, 400) Head {h00=0x000e, h01=0x0050, text=» ORK A1,3 «, t00=0x0053, t01=0x0004}
0x81a8…81c0 Head {h00=0x0014, h01=0x0050, text=» ST A1,KBINH,A11«, t00=0x0053, t01=0x0016}
0x81c0…81d6 Head {h00=0x0012, h01=0x0050, text=» CF A14,LMP3ON«, t00=0x0053, t01=0x002e}
0x81d6…8204 Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x0053, t01=0x0044}
0x8204…8226 Head {h00=0x001e, h01=0x0050, text=» LDR A3,A4 CURSOR ADDRESS «, t00=0x0053, t01=0x0072}
0x8226…823c Head {h00=0x0012, h01=0x0050, text=» ADKL A3,BVDU «, t00=0x0053, t01=0x0094}
0x823c…8262 Head {h00=0x0022, h01=0x0050, text=» ADR A3,A11 VDU BUFFER ADDRESS«, t00=0x0053, t01=0x00aa}
0x8262…8292 Head {h00=0x002c, h01=0x0050, text=» LD A8,BUFPNT,A11 GET DC BUFFER ADDRESS «, t00=0x0053, t01=0x00d0}
0x8292…82b8 Head {h00=0x0022, h01=0x0050, text=» SUR A9,A9 INDEX IN DC BUFFER «, t00=0x0053, t01=0x0100}
0x82b8…82cc Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x0053, t01=0x0126}
0x82cc…82e2 Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x0053, t01=0x013a}
0x82e2…830c Head {h00=0x0026, h01=0x0050, text=» CF A14,LINE GET INTERNAL LINEFLAG«, t00=0x0053, t01=0x0150}
0x830c…8320 Head {h00=0x0010, h01=0x0050, text=»UNPS05 EQU *«, t00=0x0053, t01=0x017a}
0x8320…834e Head {h00=0x002a, h01=0x0050, text=» CF A14,GDCCH GET CHAR. IN DC BUFFER «, t00=0x0053, t01=0x018e}
0x834e…8370 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 ANYTHING LEFT? «, t00=0x0054, t01=0x002c}
0x8370…838a Head {h00=0x0016, h01=0x0050, text=» RF(NZ) UNPS60 NO «, t00=0x0054, t01=0x004e}
0x838a…83a4 Head {h00=0x0016, h01=0x0050, text=» CWK A2,/31 BIND? «, t00=0x0054, t01=0x0068}
0x83a4…83c6 Head {h00=0x001e, h01=0x0050, text=» RF(E) UNPS50 YES,PERHAPS «, t00=0x0054, t01=0x0082}
0x83c6…83da Head {h00=0x0010, h01=0x0050, text=»UNPS07 EQU *«, t00=0x0054, t01=0x00a4}
0x83da…83f4 Head {h00=0x0016, h01=0x0050, text=» CWK A2,/20 ORDER?«, t00=0x0054, t01=0x00b8}
0x83f4…840e Head {h00=0x0016, h01=0x0050, text=» RF(NL) UNPS40 NO «, t00=0x0054, t01=0x00d2}
0x840e…842c Head {h00=0x001a, h01=0x0050, text=» CWK A2,/0A NEW LINE? «, t00=0x0054, t01=0x00ec}
0x842c…8446 Head {h00=0x0016, h01=0x0050, text=» RF(NE) UNPS10 NO «, t00=0x0054, t01=0x010a}
0x8446…846e Head {h00=0x0024, h01=0x0050, text=» CF A14,NLROUT PERFORM NEW LINE «, t00=0x0054, t01=0x0124}
0x846e…8480 Head {h00=0x000e, h01=0x0050, text=» RB UNPS05«, t00=0x0054, t01=0x014c}
0x8480…8494 Head {h00=0x0010, h01=0x0050, text=»UNPS10 EQU *«, t00=0x0054, t01=0x015e}
0x8494…84ac Head {h00=0x0014, h01=0x0050, text=» CWK A2,/1C IFS?«, t00=0x0054, t01=0x0172}
0x84ac…84c6 Head {h00=0x0016, h01=0x0050, text=» RF(NE) UNPS20 NO «, t00=0x0054, t01=0x018a}
0x84c6…84e8 Head {h00=0x001e, h01=0x0050, text=» LDK A2,/2A REPLACE WITH *«, t00=0x0055, t01=0x0014}
0x84e8…84fa Head {h00=0x000e, h01=0x0050, text=» RF UNPS40«, t00=0x0055, t01=0x0036}
0x84fa…850e Head {h00=0x0010, h01=0x0050, text=»UNPS20 EQU *«, t00=0x0055, t01=0x0048}
0x850e…8526 Head {h00=0x0014, h01=0x0050, text=» CWK A2,/1E IRS?«, t00=0x0055, t01=0x005c}
0x8526…8540 Head {h00=0x0016, h01=0x0050, text=» RF(NE) UNPS30 NO «, t00=0x0055, t01=0x0074}
0x8540…8562 Head {h00=0x001e, h01=0x0050, text=» LDK A2,/3B REPLACE WITH ;«, t00=0x0055, t01=0x008e}
0x8562…8574 Head {h00=0x000e, h01=0x0050, text=» RF UNPS40«, t00=0x0055, t01=0x00b0}
0x8574…8588 Head {h00=0x0010, h01=0x0050, text=»UNPS30 EQU *«, t00=0x0055, t01=0x00c2}
0x8588…85a2 Head {h00=0x0016, h01=0x0050, text=» CWK A2,NULL NULL?«, t00=0x0055, t01=0x00d6}
0x85a2…85bc Head {h00=0x0016, h01=0x0050, text=» RF(NE) UNPS40 NO «, t00=0x0055, t01=0x00f0}
0x85bc…85e2 Head {h00=0x0022, h01=0x0050, text=» LDK A2,/20 REPLACE WITH SPACE«, t00=0x0055, t01=0x010a}
0x85e2…85f6 Head {h00=0x0010, h01=0x0050, text=»UNPS40 EQU *«, t00=0x0055, t01=0x0130}
0x85f6…8618 Head {h00=0x001e, h01=0x0050, text=» CF A14,LINWRP CHECK WRAP «, t00=0x0055, t01=0x0144}
0x8618…863e Head {h00=0x0022, h01=0x0050, text=» SCR A2,A3 STORE IN VDU BUFFER«, t00=0x0055, t01=0x0166}
0x863e…8656 Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x0055, t01=0x018c}
0x8656…8668 Head {h00=0x000e, h01=0x0050, text=» ORK A1,1 «, t00=0x0056, t01=0x0014}
0x8668…8680 Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x0056, t01=0x0026}
0x8680…8692 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0056, t01=0x003e}
0x8692…86a4 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0056, t01=0x0050}
0x86a4…86b6 Head {h00=0x000e, h01=0x0050, text=» RB UNPS05«, t00=0x0056, t01=0x0062}
0x86b6…86ca Head {h00=0x0010, h01=0x0050, text=»UNPS50 EQU *«, t00=0x0056, t01=0x0074}
0x86ca…86e0 Head {h00=0x0012, h01=0x0050, text=» CF A14,GDCCH «, t00=0x0056, t01=0x0088}
0x86e0…8702 Head {h00=0x001e, h01=0x0050, text=» ANK A2,/FE SHURE OF BIND?«, t00=0x0056, t01=0x009e}
0x8702…871e Head {h00=0x0018, h01=0x0050, text=» RF(Z) UNPS55 ALMOST«, t00=0x0056, t01=0x00c0}
0x871e…8730 Head {h00=0x000e, h01=0x0050, text=» SUKL A8,2«, t00=0x0056, t01=0x00dc}
0x8730…8742 Head {h00=0x000e, h01=0x0050, text=» SUKL A9,2«, t00=0x0056, t01=0x00ee}
0x8742…8758 Head {h00=0x0012, h01=0x0050, text=» CF A14,GDCCH «, t00=0x0056, t01=0x0100}
0x8758…876a Head {h00=0x000e, h01=0x0050, text=» RB UNPS07«, t00=0x0056, t01=0x0116}
0x876a…877e Head {h00=0x0010, h01=0x0050, text=»UNPS55 EQU *«, t00=0x0056, t01=0x0128}
0x877e…87a8 Head {h00=0x0026, h01=0x0050, text=» LDK A1,MYJOB INDICATE MY JOB MODE«, t00=0x0056, t01=0x013c}
0x87a8…87d2 Head {h00=0x0026, h01=0x0050, text=» ADKL A1,/8000 NEW MODE ACTIVATION«, t00=0x0056, t01=0x0166}
0x87d2…87ec Head {h00=0x0016, h01=0x0050, text=» ST A1,SNAMOD,A11 «, t00=0x0056, t01=0x0190}
0x87ec…880a Head {h00=0x001a, h01=0x0050, text=» LDKL A10,1 NO DISPLAY«, t00=0x0057, t01=0x001a}
0x880a…881c Head {h00=0x000e, h01=0x0050, text=» RF UNPS70«, t00=0x0057, t01=0x0038}
0x881c…8830 Head {h00=0x0010, h01=0x0050, text=»UNPS60 EQU *«, t00=0x0057, t01=0x004a}
0x8830…8848 Head {h00=0x0014, h01=0x0050, text=» LDKL A5,LBVDU+1«, t00=0x0057, t01=0x005e}
0x8848…885a Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x0057, t01=0x0076}
0x885a…888c Head {h00=0x002e, h01=0x0050, text=» CF A14,STOINF SAVE NEW SCREEN INFORMATION«, t00=0x0057, t01=0x0088}
0x888c…88a0 Head {h00=0x0010, h01=0x0050, text=» LDKL A10,0 «, t00=0x0057, t01=0x00ba}
0x88a0…88b4 Head {h00=0x0010, h01=0x0050, text=»UNPS70 EQU *«, t00=0x0057, t01=0x00ce}
0x88b4…88e4 Head {h00=0x002c, h01=0x0050, text=» LD A8,BUFPNT,A11 GET BUFFER TO RELEASE «, t00=0x0057, t01=0x00e2}
0x88e4…890a Head {h00=0x0022, h01=0x0050, text=» CF A14,RELBUF RELEASE BUFFER «, t00=0x0057, t01=0x0112}
0x890a…8916 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0057, t01=0x0138}
0x8916…8926 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0057, t01=0x0144}
0x8926…8934 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0057, t01=0x0154}
0x8934…8978 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0057, t01=0x0162}
0x8978…89bc Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0058, t01=0x0016}
0x89bc…89f4 Head {h00=0x0034, h01=0x0050, text=»* GETNXT GET AND CHECK NEXT BUFFER «, t00=0x0058, t01=0x005a}
0x89f4…8a38 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0058, t01=0x0092}
0x8a38…8a7c Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0058, t01=0x00d6}
0x8a7c…8a90 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0058, t01=0x011a}
0x8a90…8a9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x012e}
0x8a9a…8ab4 Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x0058, t01=0x0138}
0x8ab4…8ad4 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0058, t01=0x0152}
0x8ad4…8af2 Head {h00=0x001a, h01=0x0050, text=»* A12= BUFFER ADDRESS «, t00=0x0058, t01=0x0172}
0x8af2…8b0a Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0058, t01=0x0190}
0x8b0a…8b14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0018}
0x8b14…8b58 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0059, t01=0x0022}
0x8b58…8b6c Head {h00=0x0010, h01=0x0050, text=»GETNXT EQU *«, t00=0x0059, t01=0x0066}
0x8b6c…8b7e Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0059, t01=0x007a}
0x8b7e…8bac Head {h00=0x002a, h01=0x0050, text=» CF A14,SAVE2 SAVE UNPACK INFORMATION «, t00=0x0059, t01=0x008c}
0x8bac…8bdc Head {h00=0x002c, h01=0x0050, text=» LD A8,BUFPNT,A11 GET BUFFER TO RELEASE «, t00=0x0059, t01=0x00ba}
0x8bdc…8c02 Head {h00=0x0022, h01=0x0050, text=» CF A14,RELBUF RELEASE BUFFER «, t00=0x0059, t01=0x00ea}
0x8c02…8c18 Head {h00=0x0012, h01=0x0050, text=» IFT DISHOW=2 «, t00=0x0059, t01=0x0110}
0x8c18…8c30 Head {h00=0x0014, h01=0x0050, text=» LC A1,TCT01,A11«, t00=0x0059, t01=0x0126}
0x8c30…8c56 Head {h00=0x0022, h01=0x0050, text=» CCK A1,VDUCOD PRINTER UNPACK?«, t00=0x0059, t01=0x013e}
0x8c56…8c70 Head {h00=0x0016, h01=0x0050, text=» RF(NE) GETC10 YES«, t00=0x0059, t01=0x0164}
0x8c70…8c9e Head {h00=0x002a, h01=0x0050, text=» CF A14,DISMOD DISPLAY MODIFIED FIELDS«, t00=0x0059, t01=0x017e}
0x8c9e…8caa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005a, t01=0x001c}
0x8caa…8cbc Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x005a, t01=0x0028}
0x8cbc…8cd0 Head {h00=0x0010, h01=0x0050, text=»GETC10 EQU *«, t00=0x005a, t01=0x003a}
0x8cd0…8cf0 Head {h00=0x001c, h01=0x0050, text=» CF A14,WAIT SYNCHRONIZE«, t00=0x005a, t01=0x004e}
0x8cf0…8d16 Head {h00=0x0022, h01=0x0050, text=» LD A2,ECBEL,A8 SAVE LENGTH =4«, t00=0x005a, t01=0x006e}
0x8d16…8d34 Head {h00=0x001a, h01=0x0050, text=» ST A2,DCLENG,A11 . =4«, t00=0x005a, t01=0x0094}
0x8d34…8d46 Head {h00=0x000e, h01=0x0050, text=» LDR A9,A1«, t00=0x005a, t01=0x00b2}
0x8d46…8d5c Head {h00=0x0012, h01=0x0050, text=» CF A14,REST2 «, t00=0x005a, t01=0x00c4}
0x8d5c…8d7e Head {h00=0x001e, h01=0x0050, text=» LDR A1,A9 GET RETURN CODE«, t00=0x005a, t01=0x00da}
0x8d7e…8daa Head {h00=0x0028, h01=0x0050, text=» SRC A1,1 FIRST OR MODDLE IN CHAIN? «, t00=0x005a, t01=0x00fc}
0x8daa…8dc4 Head {h00=0x0016, h01=0x0050, text=» RF(NN) GETC30 NO «, t00=0x005a, t01=0x0128}
0x8dc4…8dec Head {h00=0x0024, h01=0x0050, text=» LDR A1,A10 GET INTERNAL STATUS «, t00=0x005a, t01=0x0142}
0x8dec…8e1c Head {h00=0x002c, h01=0x0050, text=» ANKL A1,LICREC LAST IN CHAIN RECEIVED? «, t00=0x005a, t01=0x016a}
0x8e1c…8e34 Head {h00=0x0014, h01=0x0050, text=» RF(Z) GETC60 NO«, t00=0x005b, t01=0x000a}
0x8e34…8e4c Head {h00=0x0014, h01=0x0050, text=» LC A1,TCT01,A11«, t00=0x005b, t01=0x0022}
0x8e4c…8e72 Head {h00=0x0022, h01=0x0050, text=» CCK A1,VDUCOD PRINTER UNPACK?«, t00=0x005b, t01=0x003a}
0x8e72…8e8c Head {h00=0x0016, h01=0x0050, text=» RF(NE) GETC20 YES«, t00=0x005b, t01=0x0060}
0x8e8c…8ec0 Head {h00=0x0030, h01=0x0050, text=» CF A14,P2WCC TAKE CARE OF WCC AFTER UPDATE «, t00=0x005b, t01=0x007a}
0x8ec0…8ed4 Head {h00=0x0010, h01=0x0050, text=»GETC20 EQU *«, t00=0x005b, t01=0x00ae}
0x8ed4…8f00 Head {h00=0x0028, h01=0x0050, text=» XRKL A10,LICREC RESET LAST IN CHAIN«, t00=0x005b, t01=0x00c2}
0x8f00…8f22 Head {h00=0x001e, h01=0x0050, text=» ORKL A10,NEWCH NEW CHAIN «, t00=0x005b, t01=0x00ee}
0x8f22…8f34 Head {h00=0x000e, h01=0x0050, text=» RF GETC60«, t00=0x005b, t01=0x0110}
0x8f34…8f48 Head {h00=0x0010, h01=0x0050, text=»GETC30 EQU *«, t00=0x005b, t01=0x0122}
0x8f48…8f72 Head {h00=0x0026, h01=0x0050, text=» SRC A1,1 LAST IN CHAIN RECEIVED? «, t00=0x005b, t01=0x0136}
0x8f72…8f8c Head {h00=0x0016, h01=0x0050, text=» RF(NN) GETC90 NO «, t00=0x005b, t01=0x0160}
0x8f8c…8fa0 Head {h00=0x0010, h01=0x0050, text=»GETC40 EQU *«, t00=0x005b, t01=0x017a}
0x8fa0…8fc8 Head {h00=0x0024, h01=0x0050, text=» LDR A1,A10 GET INTERNAL STATUS «, t00=0x005b, t01=0x018e}
0x8fc8…8ff8 Head {h00=0x002c, h01=0x0050, text=» ORKL A10,LICREC LAST IN CHAIN RECEIVED «, t00=0x005c, t01=0x0026}
0x8ff8…9028 Head {h00=0x002c, h01=0x0050, text=» ANKL A1,LICREC LAST IN CHAIN RECEIVED? «, t00=0x005c, t01=0x0056}
0x9028…9040 Head {h00=0x0014, h01=0x0050, text=» RF(Z) GETC60 NO«, t00=0x005c, t01=0x0086}
0x9040…9074 Head {h00=0x0030, h01=0x0050, text=» CF A14,P2WCC TAKE CARE OF WCC AFTER UPDATE «, t00=0x005c, t01=0x009e}
0x9074…9096 Head {h00=0x001e, h01=0x0050, text=» ORKL A10,NEWCH NEW CHAIN «, t00=0x005c, t01=0x00d2}
0x9096…90aa Head {h00=0x0010, h01=0x0050, text=»GETC60 EQU *«, t00=0x005c, t01=0x00f4}
0x90aa…90d8 Head {h00=0x002a, h01=0x0050, text=» ST A12,BUFPNT,A11 SAVE BUFFER ADDRESS«, t00=0x005c, t01=0x0108}
0x90d8…9102 Head {h00=0x0026, h01=0x0050, text=» CF A14,SAVE2 SAVE INFORMATION =2 «, t00=0x005c, t01=0x0136}
0x9102…9128 Head {h00=0x0022, h01=0x0050, text=» CF A14,GETBUF GET NEW BUFFER «, t00=0x005c, t01=0x0160}
0x9128…914e Head {h00=0x0022, h01=0x0050, text=» LDR A3,A8 GET BUFFER ADDRESS «, t00=0x005c, t01=0x0186}
0x914e…9176 Head {h00=0x0024, h01=0x0050, text=» CF A14,READNW READ WITH NO WAIT«, t00=0x005d, t01=0x001c}
0x9176…91a6 Head {h00=0x002c, h01=0x0050, text=» CF A14,REST2 RESTORE UNPACK INFORMATION«, t00=0x005d, t01=0x0044}
0x91a6…91ba Head {h00=0x0010, h01=0x0050, text=» LDR A1,A10 «, t00=0x005d, t01=0x0074}
0x91ba…91dc Head {h00=0x001e, h01=0x0050, text=» ANKL A1,NEWCH NEW CHAIN? «, t00=0x005d, t01=0x0088}
0x91dc…91f4 Head {h00=0x0014, h01=0x0050, text=» RF(Z) GETC80 NO«, t00=0x005d, t01=0x00aa}
0x91f4…920a Head {h00=0x0012, h01=0x0050, text=» IFT DISHOW=1 «, t00=0x005d, t01=0x00c2}
0x920a…9228 Head {h00=0x001a, h01=0x0050, text=» XRKL A10,NEWCH RESET «, t00=0x005d, t01=0x00d8}
0x9228…9240 Head {h00=0x0014, h01=0x0050, text=» LC A1,TCT01,A11«, t00=0x005d, t01=0x00f6}
0x9240…9256 Head {h00=0x0012, h01=0x0050, text=» CCK A1,VDUCOD«, t00=0x005d, t01=0x010e}
0x9256…926c Head {h00=0x0012, h01=0x0050, text=» RF(NE) GETC70«, t00=0x005d, t01=0x0124}
0x926c…9282 Head {h00=0x0012, h01=0x0050, text=» CF A14,SAVE2 «, t00=0x005d, t01=0x013a}
0x9282…9298 Head {h00=0x0012, h01=0x0050, text=» CF A14,DISMOD«, t00=0x005d, t01=0x0150}
0x9298…92ae Head {h00=0x0012, h01=0x0050, text=» CF A14,REST2 «, t00=0x005d, t01=0x0166}
0x92ae…92ba Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005d, t01=0x017c}
0x92ba…92cc Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x005d, t01=0x0188}
0x92cc…92e0 Head {h00=0x0010, h01=0x0050, text=»GETC70 EQU *«, t00=0x005e, t01=0x000a}
0x92e0…9302 Head {h00=0x001e, h01=0x0050, text=» LDK A1,ICOMN1 NEXT LABEL «, t00=0x005e, t01=0x001e}
0x9302…931c Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x005e, t01=0x0040}
0x931c…9330 Head {h00=0x0010, h01=0x0050, text=»GETC80 EQU *«, t00=0x005e, t01=0x005a}
0x9330…934a Head {h00=0x0016, h01=0x0050, text=» LD A8,BUFPNT,A11 «, t00=0x005e, t01=0x006e}
0x934a…935c Head {h00=0x000e, h01=0x0050, text=» SUR A9,A9«, t00=0x005e, t01=0x0088}
0x935c…937a Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETUR N CODE«, t00=0x005e, t01=0x009a}
0x937a…938e Head {h00=0x0010, h01=0x0050, text=»GETC90 EQU *«, t00=0x005e, t01=0x00b8}
0x938e…939a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005e, t01=0x00cc}
0x939a…93aa Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005e, t01=0x00d8}
0x93aa…93b8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005e, t01=0x00e8}
0x93b8…93fe Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x005e, t01=0x00f6}
0x93fe…9444 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x005e, t01=0x013c}
0x9444…948a Head {h00=0x0042, h01=0x0050, text=»* PUTCHA PUT CHAR. IN DC BUFFER * «, t00=0x005e, t01=0x0182}
0x948a…94d0 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x005f, t01=0x0038}
0x94d0…9516 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x005f, t01=0x007e}
0x9516…952a Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x005f, t01=0x00c4}
0x952a…9534 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x00d8}
0x9534…954e Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x005f, t01=0x00e2}
0x954e…956e Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x005f, t01=0x00fc}
0x956e…9586 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x005f, t01=0x011c}
0x9586…959e Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x005f, t01=0x0134}
0x959e…95a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x014c}
0x95a8…95ee Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x005f, t01=0x0156}
0x95ee…9602 Head {h00=0x0010, h01=0x0050, text=»PUTCHA EQU *«, t00=0x0060, t01=0x000c}
0x9602…9622 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A1 SBA TO STORE?«, t00=0x0060, t01=0x0020}
0x9622…963c Head {h00=0x0016, h01=0x0050, text=» RF(N) PUTC10 YES «, t00=0x0060, t01=0x0040}
0x963c…9664 Head {h00=0x0024, h01=0x0050, text=» CWK A9,BUFFL+BUFFL BUFFER FULL?«, t00=0x0060, t01=0x005a}
0x9664…967e Head {h00=0x0016, h01=0x0050, text=» RF(NL) PUTC20 YES«, t00=0x0060, t01=0x0082}
0x967e…9690 Head {h00=0x000e, h01=0x0050, text=» RF PUTC30«, t00=0x0060, t01=0x009c}
0x9690…96a4 Head {h00=0x0010, h01=0x0050, text=»PUTC10 EQU *«, t00=0x0060, t01=0x00ae}
0x96a4…96c2 Head {h00=0x001a, h01=0x0050, text=» LDKL A1,BUFFL+BUFFL-3«, t00=0x0060, t01=0x00c2}
0x96c2…96ee Head {h00=0x0028, h01=0x0050, text=» SUR A1,A9 ROOM FOR SBA AND ADDRESS?«, t00=0x0060, t01=0x00e0}
0x96ee…9708 Head {h00=0x0016, h01=0x0050, text=» RF(NN) PUTC30 YES«, t00=0x0060, t01=0x010c}
0x9708…971c Head {h00=0x0010, h01=0x0050, text=»PUTC20 EQU *«, t00=0x0060, t01=0x0126}
0x971c…972e Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0060, t01=0x013a}
0x972e…975a Head {h00=0x0028, h01=0x0050, text=» CF A14,SAVE2 SAVE PACK INFORMATION «, t00=0x0060, t01=0x014c}
0x975a…9786 Head {h00=0x0028, h01=0x0050, text=» LDK A1,1 INDICATE NOT LAST IN CHAIN«, t00=0x0060, t01=0x0178}
0x9786…97ac Head {h00=0x0022, h01=0x0050, text=» CF A14,DCWRIT WRITE DC BUFFER«, t00=0x0061, t01=0x0014}
0x97ac…97be Head {h00=0x000e, h01=0x0050, text=» LDR A9,A1«, t00=0x0061, t01=0x003a}
0x97be…97d4 Head {h00=0x0012, h01=0x0050, text=» CF A14,REST2 «, t00=0x0061, t01=0x004c}
0x97d4…97f8 Head {h00=0x0020, h01=0x0050, text=» LDR A9,A9 TRANSMISSION OK? «, t00=0x0061, t01=0x0062}
0x97f8…9812 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PUTC90 NO «, t00=0x0061, t01=0x0086}
0x9812…9832 Head {h00=0x001c, h01=0x0050, text=» SUR A9,A9 BUFFER INDEX «, t00=0x0061, t01=0x00a0}
0x9832…9854 Head {h00=0x001e, h01=0x0050, text=» LDR A8,A12 BUFFER ADDRESS«, t00=0x0061, t01=0x00c0}
0x9854…9860 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0061, t01=0x00e2}
0x9860…9872 Head {h00=0x000e, h01=0x0050, text=» IFF SNA=1«, t00=0x0061, t01=0x00ee}
0x9872…9888 Head {h00=0x0012, h01=0x0050, text=» CF A14,ERROR «, t00=0x0061, t01=0x0100}
0x9888…989a Head {h00=0x000e, h01=0x0050, text=» LDKL A1,*«, t00=0x0061, t01=0x0116}
0x989a…98b2 Head {h00=0x0014, h01=0x0050, text=» ST A1,REGI,A11 «, t00=0x0061, t01=0x0128}
0x98b2…98be Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0061, t01=0x0140}
0x98be…98ce Head {h00=0x000c, h01=0x0050, text=» DATA 3 «, t00=0x0061, t01=0x014c}
0x98ce…98da Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0061, t01=0x015c}
0x98da…98ee Head {h00=0x0010, h01=0x0050, text=»PUTC30 EQU *«, t00=0x0061, t01=0x0168}
0x98ee…991a Head {h00=0x0028, h01=0x0050, text=» CF A14,PDCCH PUT CHAR. IN DC BUFFER«, t00=0x0061, t01=0x017c}
0x991a…9938 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0062, t01=0x0018}
0x9938…994c Head {h00=0x0010, h01=0x0050, text=»PUTC90 EQU *«, t00=0x0062, t01=0x0036}
0x994c…995c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0062, t01=0x004a}
0x995c…996a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0062, t01=0x005a}
0x996a…99a4 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0062, t01=0x0068}
0x99a4…99de Head {h00=0x0036, h01=0x0050, text=»* *«, t00=0x0062, t01=0x00a2}
0x99de…9a18 Head {h00=0x0036, h01=0x0050, text=»* PDCCH PUT CHAR. IN DC BUFFER *«, t00=0x0062, t01=0x00dc}
0x9a18…9a52 Head {h00=0x0036, h01=0x0050, text=»* *«, t00=0x0062, t01=0x0116}
0x9a52…9a8c Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0062, t01=0x0150}
0x9a8c…9aa0 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0062, t01=0x018a}
0x9aa0…9aaa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x000e}
0x9aaa…9abe Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0063, t01=0x0018}
0x9abe…9ad4 Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x0063, t01=0x002c}
0x9ad4…9aea Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0063, t01=0x0042}
0x9aea…9b00 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0063, t01=0x0058}
0x9b00…9b16 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0063, t01=0x006e}
0x9b16…9b38 Head {h00=0x001e, h01=0x0050, text=»* A8= ADDRESS IN DC-BUFFER«, t00=0x0063, t01=0x0084}
0x9b38…9b56 Head {h00=0x001a, h01=0x0050, text=»* A9= DC-BUFFER INDEX «, t00=0x0063, t01=0x00a6}
0x9b56…9b6e Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0063, t01=0x00c4}
0x9b6e…9b86 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0063, t01=0x00dc}
0x9b86…9b9e Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0063, t01=0x00f4}
0x9b9e…9bb6 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0063, t01=0x010c}
0x9bb6…9bc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0124}
0x9bc0…9bfc Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0063, t01=0x012e}
0x9bfc…9c10 Head {h00=0x0010, h01=0x0050, text=»PDCCH EQU * «, t00=0x0063, t01=0x016a}
0x9c10…9c36 Head {h00=0x0022, h01=0x0050, text=» CWK A9,BUFFL+BUFFL OVERFLOW? «, t00=0x0063, t01=0x017e}
0x9c36…9c50 Head {h00=0x0016, h01=0x0050, text=» RF(NL) PDC100 YES«, t00=0x0064, t01=0x0014}
0x9c50…9c64 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0064, t01=0x002e}
0x9c64…9c7a Head {h00=0x0012, h01=0x0050, text=» IFT EBCDIC=1 «, t00=0x0064, t01=0x0042}
0x9c7a…9cb6 Head {h00=0x0038, h01=0x0050, text=»** ASCII - EBCDIC CONVERSION DELETED PR. 8625, DK** «, t00=0x0064, t01=0x0058}
0x9cb6…9cc2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0064, t01=0x0094}
0x9cc2…9ce8 Head {h00=0x0022, h01=0x0050, text=» SCR A2,A8 STORE IN DC-BUFFER «, t00=0x0064, t01=0x00a0}
0x9ce8…9cfa Head {h00=0x000e, h01=0x0050, text=» ADKL A8,1«, t00=0x0064, t01=0x00c6}
0x9cfa…9d0c Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0064, t01=0x00d8}
0x9d0c…9d20 Head {h00=0x0010, h01=0x0050, text=»PDC100 EQU *«, t00=0x0064, t01=0x00ea}
0x9d20…9d30 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0064, t01=0x00fe}
0x9d30…9d3e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0064, t01=0x010e}
0x9d3e…9d86 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0064, t01=0x011c}
0x9d86…9dce Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0064, t01=0x0164}
0x9dce…9e16 Head {h00=0x0044, h01=0x0050, text=»* GDCCH GET CHAR. IN DC BUFFER * «, t00=0x0065, t01=0x001c}
0x9e16…9e5e Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0065, t01=0x0064}
0x9e5e…9ea6 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0065, t01=0x00ac}
0x9ea6…9eba Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0065, t01=0x00f4}
0x9eba…9ec4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0108}
0x9ec4…9ede Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x0065, t01=0x0112}
0x9ede…9ef2 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0065, t01=0x012c}
0x9ef2…9f16 Head {h00=0x0020, h01=0x0050, text=»* A3= POINTER IN VDU BUFFER «, t00=0x0065, t01=0x0140}
0x9f16…9f2c Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0065, t01=0x0164}
0x9f2c…9f42 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0065, t01=0x017a}
0x9f42…9f58 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0065, t01=0x0190}
0x9f58…9f7a Head {h00=0x001e, h01=0x0050, text=»* A8= ADDRESS IN DC-BUFFER«, t00=0x0066, t01=0x0016}
0x9f7a…9f98 Head {h00=0x001a, h01=0x0050, text=»* A9= DC-BUFFER INDEX «, t00=0x0066, t01=0x0038}
0x9f98…9fb0 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0066, t01=0x0056}
0x9fb0…9fd0 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0066, t01=0x006e}
0x9fd0…9fe8 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0066, t01=0x008e}
0x9fe8…a000 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0066, t01=0x00a6}
0xa000…a00a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x00be}
0xa00a…a046 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0066, t01=0x00c8}
0xa046…a05a Head {h00=0x0010, h01=0x0050, text=»GDCCH EQU * «, t00=0x0066, t01=0x0104}
0xa05a…a078 Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 PRESET ERROR«, t00=0x0066, t01=0x0118}
0xa078…a0a2 Head {h00=0x0026, h01=0x0050, text=» CW A9,DCLENG,A11 BUFFER EMPTIED? «, t00=0x0066, t01=0x0136}
0xa0a2…a0bc Head {h00=0x0016, h01=0x0050, text=» RF(NL) GDCC90 YES«, t00=0x0066, t01=0x0160}
0xa0bc…a0ce Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0066, t01=0x017a}
0xa0ce…a0ea Head {h00=0x0018, h01=0x0050, text=» LCR A2,A8 GET CHAR.«, t00=0x0066, t01=0x018c}
0xa0ea…a0fe Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0067, t01=0x0018}
0xa0fe…a114 Head {h00=0x0012, h01=0x0050, text=» IFT EBCDIC=1 «, t00=0x0067, t01=0x002c}
0xa114…a14c Head {h00=0x0034, h01=0x0050, text=»* EBCDIC-ASCII CONVERSION DELETED PR. 8625,DK* «, t00=0x0067, t01=0x0042}
0xa14c…a158 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0067, t01=0x007a}
0xa158…a16a Head {h00=0x000e, h01=0x0050, text=» ADKL A8,1«, t00=0x0067, t01=0x0086}
0xa16a…a17c Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0067, t01=0x0098}
0xa17c…a190 Head {h00=0x0010, h01=0x0050, text=»GDCC90 EQU *«, t00=0x0067, t01=0x00aa}
0xa190…a1a0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0067, t01=0x00be}
0xa1a0…a1ae Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0067, t01=0x00ce}
0xa1ae…a1f2 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0067, t01=0x00dc}
0xa1f2…a236 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0067, t01=0x0120}
0xa236…a27a Head {h00=0x0040, h01=0x0050, text=»* PAID STORE AID IN BUFFER * «, t00=0x0067, t01=0x0164}
0xa27a…a2be Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0068, t01=0x0018}
0xa2be…a302 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0068, t01=0x005c}
0xa302…a316 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0068, t01=0x00a0}
0xa316…a320 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x00b4}
0xa320…a332 Head {h00=0x000e, h01=0x0050, text=»* A2= AID «, t00=0x0068, t01=0x00be}
0xa332…a34a Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0068, t01=0x00d0}
0xa34a…a362 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0068, t01=0x00e8}
0xa362…a36c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0100}
0xa36c…a3ae Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0068, t01=0x010a}
0xa3ae…a3c0 Head {h00=0x000e, h01=0x0050, text=»PAID EQU *«, t00=0x0068, t01=0x014c}
0xa3c0…a3e0 Head {h00=0x001c, h01=0x0050, text=» CF A14,PDCCH STORE AID «, t00=0x0068, t01=0x015e}
0xa3e0…a3f0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0068, t01=0x017e}
0xa3f0…a3fe Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0068, t01=0x018e}
0xa3fe…a440 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0069, t01=0x000c}
0xa440…a482 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x0069, t01=0x004e}
0xa482…a4c4 Head {h00=0x003e, h01=0x0050, text=»* BUFADR STORE BUFFER ADDRESS IN DC-BUFFER *«, t00=0x0069, t01=0x0090}
0xa4c4…a506 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x0069, t01=0x00d2}
0xa506…a548 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0069, t01=0x0114}
0xa548…a55c Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0069, t01=0x0156}
0xa55c…a566 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x016a}
0xa566…a57a Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0069, t01=0x0174}
0xa57a…a590 Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x0069, t01=0x0188}
0xa590…a5a6 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x006a, t01=0x000e}
0xa5a6…a5bc Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x006a, t01=0x0024}
0xa5bc…a5d2 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x006a, t01=0x003a}
0xa5d2…a5e8 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x006a, t01=0x0050}
0xa5e8…a5fe Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x006a, t01=0x0066}
0xa5fe…a616 Head {h00=0x0014, h01=0x0050, text=»* A10= RESERVED «, t00=0x006a, t01=0x007c}
0xa616…a62e Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x006a, t01=0x0094}
0xa62e…a646 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x006a, t01=0x00ac}
0xa646…a65e Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x006a, t01=0x00c4}
0xa65e…a668 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x00dc}
0xa668…a6aa Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x006a, t01=0x00e6}
0xa6aa…a6be Head {h00=0x0010, h01=0x0050, text=»BUFADR EQU *«, t00=0x006a, t01=0x0128}
0xa6be…a6de Head {h00=0x001c, h01=0x0050, text=» LDR A2,A1 GET REL. POS.«, t00=0x006a, t01=0x013c}
0xa6de…a6f0 Head {h00=0x000e, h01=0x0050, text=» SRL A2,6 «, t00=0x006a, t01=0x015c}
0xa6f0…a704 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x006a, t01=0x016e}
0xa704…a72e Head {h00=0x0026, h01=0x0050, text=» LC A2,CONADR,A2 CONVERT TO ASCII «, t00=0x006a, t01=0x0182}
0xa72e…a756 Head {h00=0x0024, h01=0x0050, text=» CF A14,PDCCH STORE IN DC-BUFFER«, t00=0x006b, t01=0x001c}
0xa756…a776 Head {h00=0x001c, h01=0x0050, text=» LDR A2,A1 GET REL. POS.«, t00=0x006b, t01=0x0044}
0xa776…a78a Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x006b, t01=0x0064}
0xa78a…a7b4 Head {h00=0x0026, h01=0x0050, text=» LC A2,CONADR,A2 CONVERT TO ASCII «, t00=0x006b, t01=0x0078}
0xa7b4…a7dc Head {h00=0x0024, h01=0x0050, text=» CF A14,PDCCH STORE IN DC-BUFFER«, t00=0x006b, t01=0x00a2}
0xa7dc…a7ec Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006b, t01=0x00ca}
0xa7ec…a7fa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006b, t01=0x00da}
0xa7fa…a83e Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x006b, t01=0x00e8}
0xa83e…a882 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x006b, t01=0x012c}
0xa882…a8c6 Head {h00=0x0040, h01=0x0050, text=»* RESMDT RESET ALL MDT-BITS IN ATTRIBUTES *«, t00=0x006b, t01=0x0170}
0xa8c6…a90a Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x006c, t01=0x0024}
0xa90a…a94e Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x006c, t01=0x0068}
0xa94e…a962 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x006c, t01=0x00ac}
0xa962…a96c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x00c0}
0xa96c…a980 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x006c, t01=0x00ca}
0xa980…a9a4 Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x006c, t01=0x00de}
0xa9a4…a9ba Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x006c, t01=0x0102}
0xa9ba…a9d0 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x006c, t01=0x0118}
0xa9d0…a9e6 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x006c, t01=0x012e}
0xa9e6…a9fc Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x006c, t01=0x0144}
0xa9fc…aa12 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x006c, t01=0x015a}
0xaa12…aa2a Head {h00=0x0014, h01=0x0050, text=»* A10= RESERVED «, t00=0x006c, t01=0x0170}
0xaa2a…aa4a Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x006c, t01=0x0188}
0xaa4a…aa62 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x006d, t01=0x0018}
0xaa62…aa7a Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x006d, t01=0x0030}
0xaa7a…aa84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x0048}
0xaa84…aaca Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x006d, t01=0x0052}
0xaaca…aade Head {h00=0x0010, h01=0x0050, text=»RESMDT EQU *«, t00=0x006d, t01=0x0098}
0xaade…ab02 Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 FIRST SCREEN POS. «, t00=0x006d, t01=0x00ac}
0xab02…ab18 Head {h00=0x0012, h01=0x0050, text=» LDKL A3,BVDU «, t00=0x006d, t01=0x00d0}
0xab18…ab2c Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x006d, t01=0x00e6}
0xab2c…ab40 Head {h00=0x0010, h01=0x0050, text=»RESM10 EQU *«, t00=0x006d, t01=0x00fa}
0xab40…ab62 Head {h00=0x001e, h01=0x0050, text=» CWK A1,LBVDU ALL SCANNED?«, t00=0x006d, t01=0x010e}
0xab62…ab7c Head {h00=0x0016, h01=0x0050, text=» RF(NL) RESM90 YES«, t00=0x006d, t01=0x0130}
0xab7c…ab98 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x006d, t01=0x014a}
0xab98…abb8 Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8080 ATTRIBUTE?«, t00=0x006d, t01=0x0166}
0xabb8…abd0 Head {h00=0x0014, h01=0x0050, text=» RF(L) RESM20 NO«, t00=0x006d, t01=0x0186}
0xabd0…abf2 Head {h00=0x001e, h01=0x0050, text=» ANK A2,/FE RESET MDT-BIT «, t00=0x006e, t01=0x000e}
0xabf2…ac0c Head {h00=0x0016, h01=0x0050, text=» SCR A2,A3 RESTORE«, t00=0x006e, t01=0x0030}
0xac0c…ac20 Head {h00=0x0010, h01=0x0050, text=»RESM20 EQU *«, t00=0x006e, t01=0x004a}
0xac20…ac32 Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x006e, t01=0x005e}
0xac32…ac44 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x006e, t01=0x0070}
0xac44…ac56 Head {h00=0x000e, h01=0x0050, text=» RB RESM10«, t00=0x006e, t01=0x0082}
0xac56…ac6a Head {h00=0x0010, h01=0x0050, text=»RESM90 EQU *«, t00=0x006e, t01=0x0094}
0xac6a…ac7a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006e, t01=0x00a8}
0xac7a…ac88 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006e, t01=0x00b8}
0xac88…acc8 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x006e, t01=0x00c6}
0xacc8…ad08 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x006e, t01=0x0106}
0xad08…ad3e Head {h00=0x0032, h01=0x0050, text=»* P1WCC PROCESS WCC BEFORE UPDATE«, t00=0x006e, t01=0x0146}
0xad3e…ad7e Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x006e, t01=0x017c}
0xad7e…adbe Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x006f, t01=0x002c}
0xadbe…add2 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x006f, t01=0x006c}
0xadd2…addc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0080}
0xaddc…adf0 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x006f, t01=0x008a}
0xadf0…ae06 Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x006f, t01=0x009e}
0xae06…ae1c Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x006f, t01=0x00b4}
0xae1c…ae32 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x006f, t01=0x00ca}
0xae32…ae48 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x006f, t01=0x00e0}
0xae48…ae5e Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x006f, t01=0x00f6}
0xae5e…ae74 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x006f, t01=0x010c}
0xae74…ae8c Head {h00=0x0014, h01=0x0050, text=»* A10= RESERVED «, t00=0x006f, t01=0x0122}
0xae8c…aeac Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x006f, t01=0x013a}
0xaeac…aec4 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x006f, t01=0x015a}
0xaec4…aedc Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x006f, t01=0x0172}
0xaedc…aee6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x018a}
0xaee6…af22 (112, 0, 400) Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0070, t01=0x0004}
0xaf22…af36 Head {h00=0x0010, h01=0x0050, text=»P1WCC EQU * «, t00=0x0070, t01=0x0040}
0xaf36…af58 Head {h00=0x001e, h01=0x0050, text=» LC A2,CONATT,A2 IN EBCDIC«, t00=0x0070, t01=0x0054}
0xaf58…af74 Head {h00=0x0018, h01=0x0050, text=» ST A2,WCC,A11 SAVE «, t00=0x0070, t01=0x0076}
0xaf74…af96 Head {h00=0x001e, h01=0x0050, text=» ANK A2,1 RESET MDT-BITS? «, t00=0x0070, t01=0x0092}
0xaf96…afae Head {h00=0x0014, h01=0x0050, text=» RF(Z) P1W900 NO«, t00=0x0070, t01=0x00b4}
0xafae…afd8 Head {h00=0x0026, h01=0x0050, text=» CF A14,RESMDT RESET ALL MDT-BITS «, t00=0x0070, t01=0x00cc}
0xafd8…afec Head {h00=0x0010, h01=0x0050, text=»P1W900 EQU *«, t00=0x0070, t01=0x00f6}
0xafec…affc Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0070, t01=0x010a}
0xaffc…b00a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0070, t01=0x011a}
0xb00a…b04c Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0070, t01=0x0128}
0xb04c…b08e Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0070, t01=0x016a}
0xb08e…b0d0 Head {h00=0x003e, h01=0x0050, text=»* P2WCC TAKE CARE OF WCC AFTER UPDATE * «, t00=0x0071, t01=0x001c}
0xb0d0…b112 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0071, t01=0x005e}
0xb112…b154 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0071, t01=0x00a0}
0xb154…b168 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0071, t01=0x00e2}
0xb168…b172 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x00f6}
0xb172…b192 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0071, t01=0x0100}
0xb192…b1aa Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0071, t01=0x0120}
0xb1aa…b1c2 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0071, t01=0x0138}
0xb1c2…b1cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x0150}
0xb1cc…b20e Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0071, t01=0x015a}
0xb20e…b222 Head {h00=0x0010, h01=0x0050, text=»P2WCC EQU * «, t00=0x0072, t01=0x000c}
0xb222…b248 Head {h00=0x0022, h01=0x0050, text=» CF A14,SAVE2 KEEP IT AWAY =4 «, t00=0x0072, t01=0x0020}
0xb248…b25e Head {h00=0x0012, h01=0x0050, text=» LD A1,WCC,A11«, t00=0x0072, t01=0x0046}
0xb25e…b270 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A1«, t00=0x0072, t01=0x005c}
0xb270…b288 Head {h00=0x0014, h01=0x0050, text=» ANK A7,4 SOUND?«, t00=0x0072, t01=0x006e}
0xb288…b2a0 Head {h00=0x0014, h01=0x0050, text=» RF(Z) P2W100 NO«, t00=0x0072, t01=0x0086}
0xb2a0…b2bc Head {h00=0x0018, h01=0x0050, text=» CF A14,SOUND SOUND «, t00=0x0072, t01=0x009e}
0xb2bc…b2d0 Head {h00=0x0010, h01=0x0050, text=»P2W100 EQU *«, t00=0x0072, t01=0x00ba}
0xb2d0…b2e8 Head {h00=0x0014, h01=0x0050, text=» ANK A1,8 COPY? «, t00=0x0072, t01=0x00ce}
0xb2e8…b300 Head {h00=0x0014, h01=0x0050, text=» RF(Z) P2W300 NO«, t00=0x0072, t01=0x00e6}
0xb300…b31e Head {h00=0x001a, h01=0x0050, text=» LC A1,TCT01,A11 . =4 «, t00=0x0072, t01=0x00fe}
0xb31e…b33c Head {h00=0x001a, h01=0x0050, text=» CCK A1,VDUCOD VDU =4 «, t00=0x0072, t01=0x011c}
0xb33c…b360 Head {h00=0x0020, h01=0x0050, text=» RF(NE) P2W200 NO PRINTER =4«, t00=0x0072, t01=0x013a}
0xb360…b37a Head {h00=0x0016, h01=0x0050, text=» CF A14,COPY COPY «, t00=0x0072, t01=0x015e}
0xb37a…b392 Head {h00=0x0014, h01=0x0050, text=» RF P2W300 . =4 «, t00=0x0072, t01=0x0178}
0xb392…b3ac Head {h00=0x0016, h01=0x0050, text=»P2W200 EQU * . =4 «, t00=0x0072, t01=0x0190}
0xb3ac…b3d2 Head {h00=0x0022, h01=0x0050, text=» CF A14,COPP COPY DIRECTLY =4 «, t00=0x0073, t01=0x001a}
0xb3d2…b3e6 Head {h00=0x0010, h01=0x0050, text=»P2W300 EQU *«, t00=0x0073, t01=0x0040}
0xb3e6…b40c Head {h00=0x0022, h01=0x0050, text=» CF A14,REST2 TAKE IT BACK =4 «, t00=0x0073, t01=0x0054}
0xb40c…b41c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0073, t01=0x007a}
0xb41c…b42a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0073, t01=0x008a}
0xb42a…b474 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0073, t01=0x0098}
0xb474…b4be Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x0073, t01=0x00e2}
0xb4be…b508 Head {h00=0x0046, h01=0x0050, text=»* SAVE SAVE PACK AND UNPACK INFORMATION *«, t00=0x0073, t01=0x012c}
0xb508…b552 Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x0073, t01=0x0176}
0xb552…b59c Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0074, t01=0x0030}
0xb59c…b5b0 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0074, t01=0x007a}
0xb5b0…b5ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x008e}
0xb5ba…b5d6 Head {h00=0x0018, h01=0x0050, text=»* A1= STACK POINTER «, t00=0x0074, t01=0x0098}
0xb5d6…b5ea Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0074, t01=0x00b4}
0xb5ea…b60a Head {h00=0x001c, h01=0x0050, text=»* A3= VDU BUFFER ADDRESS«, t00=0x0074, t01=0x00c8}
0xb60a…b628 Head {h00=0x001a, h01=0x0050, text=»* A4= REL CURSOR POS. «, t00=0x0074, t01=0x00e8}
0xb628…b648 Head {h00=0x001c, h01=0x0050, text=»* A5= REL STTRIBUTE POS.«, t00=0x0074, t01=0x0106}
0xb648…b666 Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x0074, t01=0x0126}
0xb666…b688 Head {h00=0x001e, h01=0x0050, text=»* A10= INTERNAL INDICATOR «, t00=0x0074, t01=0x0144}
0xb688…b6a8 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0074, t01=0x0166}
0xb6a8…b6c0 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0074, t01=0x0186}
0xb6c0…b6d8 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0075, t01=0x000e}
0xb6d8…b6e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x0026}
0xb6e2…b72a Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0075, t01=0x0030}
0xb72a…b73e Head {h00=0x0010, h01=0x0050, text=»SAVE1 EQU * «, t00=0x0075, t01=0x0078}
0xb73e…b768 Head {h00=0x0026, h01=0x0050, text=» LDKL A1,STACK1 GET STACK ADDRESS «, t00=0x0075, t01=0x008c}
0xb768…b778 Head {h00=0x000c, h01=0x0050, text=» RF SAVE«, t00=0x0075, t01=0x00b6}
0xb778…b78c Head {h00=0x0010, h01=0x0050, text=»SAVE2 EQU * «, t00=0x0075, t01=0x00c6}
0xb78c…b7a4 Head {h00=0x0014, h01=0x0050, text=» LDKL A1,STACK2 «, t00=0x0075, t01=0x00da}
0xb7a4…b7b6 Head {h00=0x000e, h01=0x0050, text=»SAVE EQU *«, t00=0x0075, t01=0x00f2}
0xb7b6…b7ca Head {h00=0x0010, h01=0x0050, text=» ADR A1,A11 «, t00=0x0075, t01=0x0104}
0xb7ca…b7dc Head {h00=0x000e, h01=0x0050, text=» STR A2,A1«, t00=0x0075, t01=0x0118}
0xb7dc…b7ee Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0075, t01=0x012a}
0xb7ee…b800 Head {h00=0x000e, h01=0x0050, text=» STR A3,A1«, t00=0x0075, t01=0x013c}
0xb800…b812 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0075, t01=0x014e}
0xb812…b824 Head {h00=0x000e, h01=0x0050, text=» STR A4,A1«, t00=0x0075, t01=0x0160}
0xb824…b836 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0075, t01=0x0172}
0xb836…b848 Head {h00=0x000e, h01=0x0050, text=» STR A5,A1«, t00=0x0075, t01=0x0184}
0xb848…b85a Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0076, t01=0x0008}
0xb85a…b86c Head {h00=0x000e, h01=0x0050, text=» STR A6,A1«, t00=0x0076, t01=0x001a}
0xb86c…b87e Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0076, t01=0x002c}
0xb87e…b890 Head {h00=0x000e, h01=0x0050, text=» STR A7,A1«, t00=0x0076, t01=0x003e}
0xb890…b8a2 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0076, t01=0x0050}
0xb8a2…b8b6 Head {h00=0x0010, h01=0x0050, text=» STR A10,A1 «, t00=0x0076, t01=0x0062}
0xb8b6…b8c6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0076, t01=0x0076}
0xb8c6…b8d4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0076, t01=0x0086}
0xb8d4…b920 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0076, t01=0x0094}
0xb920…b96c Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0076, t01=0x00e0}
0xb96c…b9b8 Head {h00=0x0048, h01=0x0050, text=»* RESTOR RESTORE PACK AND UNPACK INFORMATION * «, t00=0x0076, t01=0x012c}
0xb9b8…ba04 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0076, t01=0x0178}
0xba04…ba50 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0077, t01=0x0034}
0xba50…ba64 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0077, t01=0x0080}
0xba64…ba6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x0094}
0xba6e…ba8a Head {h00=0x0018, h01=0x0050, text=»* A1= STACK POINTER «, t00=0x0077, t01=0x009e}
0xba8a…ba9e Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0077, t01=0x00ba}
0xba9e…babe Head {h00=0x001c, h01=0x0050, text=»* A3= VDU BUFFER ADDRESS«, t00=0x0077, t01=0x00ce}
0xbabe…badc Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0077, t01=0x00ee}
0xbadc…bafe Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x0077, t01=0x010c}
0xbafe…bb1c Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x0077, t01=0x012e}
0xbb1c…bb32 Head {h00=0x0012, h01=0x0050, text=»* A7= RESERVED«, t00=0x0077, t01=0x014c}
0xbb32…bb54 Head {h00=0x001e, h01=0x0050, text=»* A10= INTERNAL INDICATOR «, t00=0x0077, t01=0x0162}
0xbb54…bb74 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0077, t01=0x0184}
0xbb74…bb8c Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0078, t01=0x0014}
0xbb8c…bba4 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0078, t01=0x002c}
0xbba4…bbae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x0044}
0xbbae…bbf6 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0078, t01=0x004e}
0xbbf6…bc0a Head {h00=0x0010, h01=0x0050, text=»REST1 EQU * «, t00=0x0078, t01=0x0096}
0xbc0a…bc34 Head {h00=0x0026, h01=0x0050, text=» LDKL A1,STACK1 GET STACK ADDRESS «, t00=0x0078, t01=0x00aa}
0xbc34…bc46 Head {h00=0x000e, h01=0x0050, text=» RF RESTOR«, t00=0x0078, t01=0x00d4}
0xbc46…bc5a Head {h00=0x0010, h01=0x0050, text=»REST2 EQU * «, t00=0x0078, t01=0x00e6}
0xbc5a…bc72 Head {h00=0x0014, h01=0x0050, text=» LDKL A1,STACK2 «, t00=0x0078, t01=0x00fa}
0xbc72…bc86 Head {h00=0x0010, h01=0x0050, text=»RESTOR EQU *«, t00=0x0078, t01=0x0112}
0xbc86…bc9a Head {h00=0x0010, h01=0x0050, text=» ADR A1,A11 «, t00=0x0078, t01=0x0126}
0xbc9a…bcae Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A1 «, t00=0x0078, t01=0x013a}
0xbcae…bcc0 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0078, t01=0x014e}
0xbcc0…bcd4 Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A1 «, t00=0x0078, t01=0x0160}
0xbcd4…bce6 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0078, t01=0x0174}
0xbce6…bcfa Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A1 «, t00=0x0078, t01=0x0186}
0xbcfa…bd0c Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0079, t01=0x000a}
0xbd0c…bd20 Head {h00=0x0010, h01=0x0050, text=» LDR* A5,A1 «, t00=0x0079, t01=0x001c}
0xbd20…bd32 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0079, t01=0x0030}
0xbd32…bd46 Head {h00=0x0010, h01=0x0050, text=» LDR* A6,A1 «, t00=0x0079, t01=0x0042}
0xbd46…bd58 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0079, t01=0x0056}
0xbd58…bd6c Head {h00=0x0010, h01=0x0050, text=» LDR* A7,A1 «, t00=0x0079, t01=0x0068}
0xbd6c…bd7e Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0079, t01=0x007c}
0xbd7e…bd92 Head {h00=0x0010, h01=0x0050, text=» LDR* A10,A1«, t00=0x0079, t01=0x008e}
0xbd92…bda2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0079, t01=0x00a2}
0xbda2…bdb0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0079, t01=0x00b2}
0xbdb0…bdf0 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0079, t01=0x00c0}
0xbdf0…be30 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0079, t01=0x0100}
0xbe30…be70 Head {h00=0x003c, h01=0x0050, text=»* BUFFER POOL * «, t00=0x0079, t01=0x0140}
0xbe70…beb0 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0079, t01=0x0180}
0xbeb0…bef0 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x007a, t01=0x0030}
0xbef0…bf04 Head {h00=0x0010, h01=0x0050, text=»BUFFER EQU *«, t00=0x007a, t01=0x0070}
0xbf04…bf28 Head {h00=0x0020, h01=0x0050, text=» DATA *+2 POINTER FIRST FREE«, t00=0x007a, t01=0x0084}
0xbf28…bf3e Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=1 «, t00=0x007a, t01=0x00a8}
0xbf3e…bf52 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007a, t01=0x00be}
0xbf52…bf64 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007a, t01=0x00d2}
0xbf64…bf7a Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=2 «, t00=0x007a, t01=0x00e4}
0xbf7a…bf8e Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007a, t01=0x00fa}
0xbf8e…bfa0 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007a, t01=0x010e}
0xbfa0…bfb6 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=3 «, t00=0x007a, t01=0x0120}
0xbfb6…bfca Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007a, t01=0x0136}
0xbfca…bfdc Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007a, t01=0x014a}
0xbfdc…bff2 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=4 «, t00=0x007a, t01=0x015c}
0xbff2…c006 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007a, t01=0x0172}
0xc006…c018 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007a, t01=0x0186}
0xc018…c02e Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=5 «, t00=0x007b, t01=0x0008}
0xc02e…c042 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007b, t01=0x001e}
0xc042…c054 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007b, t01=0x0032}
0xc054…c06a Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=6 «, t00=0x007b, t01=0x0044}
0xc06a…c07e Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007b, t01=0x005a}
0xc07e…c090 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007b, t01=0x006e}
0xc090…c0a6 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=7 «, t00=0x007b, t01=0x0080}
0xc0a6…c0ba Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007b, t01=0x0096}
0xc0ba…c0cc Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007b, t01=0x00aa}
0xc0cc…c0e2 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=8 «, t00=0x007b, t01=0x00bc}
0xc0e2…c0f6 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007b, t01=0x00d2}
0xc0f6…c108 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007b, t01=0x00e6}
0xc108…c11e Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=9 «, t00=0x007b, t01=0x00f8}
0xc11e…c132 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007b, t01=0x010e}
0xc132…c144 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007b, t01=0x0122}
0xc144…c15a Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=10«, t00=0x007b, t01=0x0134}
0xc15a…c16e Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007b, t01=0x014a}
0xc16e…c180 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007b, t01=0x015e}
0xc180…c196 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=11«, t00=0x007b, t01=0x0170}
0xc196…c1aa Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007b, t01=0x0186}
0xc1aa…c1bc Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007c, t01=0x000a}
0xc1bc…c1d2 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=12«, t00=0x007c, t01=0x001c}
0xc1d2…c1e6 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007c, t01=0x0032}
0xc1e6…c1f8 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007c, t01=0x0046}
0xc1f8…c20e Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=13«, t00=0x007c, t01=0x0058}
0xc20e…c222 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007c, t01=0x006e}
0xc222…c234 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007c, t01=0x0082}
0xc234…c24a Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=14«, t00=0x007c, t01=0x0094}
0xc24a…c25e Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007c, t01=0x00aa}
0xc25e…c270 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007c, t01=0x00be}
0xc270…c286 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=15«, t00=0x007c, t01=0x00d0}
0xc286…c29a Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007c, t01=0x00e6}
0xc29a…c2ac Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007c, t01=0x00fa}
0xc2ac…c2c2 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=16«, t00=0x007c, t01=0x010c}
0xc2c2…c2d6 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007c, t01=0x0122}
0xc2d6…c2e8 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007c, t01=0x0136}
0xc2e8…c2fe Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=17«, t00=0x007c, t01=0x0148}
0xc2fe…c312 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007c, t01=0x015e}
0xc312…c324 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007c, t01=0x0172}
0xc324…c33a Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=18«, t00=0x007c, t01=0x0184}
0xc33a…c34e Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007d, t01=0x000a}
0xc34e…c360 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007d, t01=0x001e}
0xc360…c376 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=19«, t00=0x007d, t01=0x0030}
0xc376…c38a Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007d, t01=0x0046}
0xc38a…c39c Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007d, t01=0x005a}
0xc39c…c3b2 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=20«, t00=0x007d, t01=0x006c}
0xc3b2…c3c6 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007d, t01=0x0082}
0xc3c6…c3d8 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007d, t01=0x0096}
0xc3d8…c3ee Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=21«, t00=0x007d, t01=0x00a8}
0xc3ee…c402 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007d, t01=0x00be}
0xc402…c414 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007d, t01=0x00d2}
0xc414…c42a Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=22«, t00=0x007d, t01=0x00e4}
0xc42a…c43e Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007d, t01=0x00fa}
0xc43e…c450 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007d, t01=0x010e}
0xc450…c466 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=23«, t00=0x007d, t01=0x0120}
0xc466…c47a Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007d, t01=0x0136}
0xc47a…c48c Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007d, t01=0x014a}
0xc48c…c4a2 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=24«, t00=0x007d, t01=0x015c}
0xc4a2…c4b6 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007d, t01=0x0172}
0xc4b6…c4c8 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007d, t01=0x0186}
0xc4c8…c4de Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=25«, 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=26«, 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=27«, 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=28«, 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=29«, 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=30«, 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=31«, 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=32«, 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…c6b4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007f, t01=0x0058}
0xc6b4…c6c4 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007f, t01=0x0064}
0xc6c4…c6d6 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007f, t01=0x0074}
0xc6d6…c6e4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007f, t01=0x0086}
0xc6e4…c724 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x007f, t01=0x0094}
0xc724…c764 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x007f, t01=0x00d4}
0xc764…c7a4 Head {h00=0x003c, h01=0x0050, text=»* GETBUF GET BUFFER * «, t00=0x007f, t01=0x0114}
0xc7a4…c7e4 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x007f, t01=0x0154}
0xc7e4…c824 (128, 0, 400) Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0080, t01=0x0004}
0xc824…c838 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0080, t01=0x0044}
0xc838…c842 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0058}
0xc842…c862 Head {h00=0x001c, h01=0x0050, text=»* A8= DC-BUFFER ADDRESS «, t00=0x0080, t01=0x0062}
0xc862…c882 Head {h00=0x001c, h01=0x0050, text=»* A9= INDEX IN DC-BUFFER«, t00=0x0080, t01=0x0082}
0xc882…c89a Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0080, t01=0x00a2}
0xc89a…c8b8 Head {h00=0x001a, h01=0x0050, text=»* A12= BUFFER ADDRESS «, t00=0x0080, t01=0x00ba}
0xc8b8…c8d0 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0080, t01=0x00d8}
0xc8d0…c8da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x00f0}
0xc8da…c91a Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0080, t01=0x00fa}
0xc91a…c92e Head {h00=0x0010, h01=0x0050, text=»GETBUF EQU *«, t00=0x0080, t01=0x013a}
0xc92e…c946 Head {h00=0x0014, h01=0x0050, text=» LDKL A7,BUFFER «, t00=0x0080, t01=0x014e}
0xc946…c95a Head {h00=0x0010, h01=0x0050, text=»GETB10 EQU *«, t00=0x0080, t01=0x0166}
0xc95a…c96e Head {h00=0x0010, h01=0x0050, text=» LDR* A8,A7 «, t00=0x0080, t01=0x017a}
0xc96e…c990 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) GETB90 BUFFER FREE«, t00=0x0080, t01=0x018e}
0xc990…c99c Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0081, t01=0x0020}
0xc99c…c9b8 Head {h00=0x0018, h01=0x0050, text=» DATA 0 SWITCH TASK «, t00=0x0081, t01=0x002c}
0xc9b8…c9ca Head {h00=0x000e, h01=0x0050, text=» RB GETB10«, t00=0x0081, t01=0x0048}
0xc9ca…c9de Head {h00=0x0010, h01=0x0050, text=»GETB90 EQU *«, t00=0x0081, t01=0x005a}
0xc9de…c9f2 Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A8 «, t00=0x0081, t01=0x006e}
0xc9f2…ca04 Head {h00=0x000e, h01=0x0050, text=» STR A1,A7«, t00=0x0081, t01=0x0082}
0xca04…ca16 Head {h00=0x000e, h01=0x0050, text=» ADKL A8,2«, t00=0x0081, t01=0x0094}
0xca16…ca2a Head {h00=0x0010, h01=0x0050, text=» LDR A12,A8 «, t00=0x0081, t01=0x00a6}
0xca2a…ca3c Head {h00=0x000e, h01=0x0050, text=» SUR A9,A9«, t00=0x0081, t01=0x00ba}
0xca3c…ca4c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0081, t01=0x00cc}
0xca4c…ca5a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0081, t01=0x00dc}
0xca5a…ca9c Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0081, t01=0x00ea}
0xca9c…cade Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0081, t01=0x012c}
0xcade…cb20 Head {h00=0x003e, h01=0x0050, text=»* RELBUF RELEASE BUFFER * «, t00=0x0081, t01=0x016e}
0xcb20…cb62 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0082, t01=0x0020}
0xcb62…cba4 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0082, t01=0x0062}
0xcba4…cbb8 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0082, t01=0x00a4}
0xcbb8…cbc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x00b8}
0xcbc2…cbde Head {h00=0x0018, h01=0x0050, text=»* A8= BUFFER ADDRESS«, t00=0x0082, t01=0x00c2}
0xcbde…cbf6 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0082, t01=0x00de}
0xcbf6…cc0e Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0082, t01=0x00f6}
0xcc0e…cc18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x010e}
0xcc18…cc5a Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0082, t01=0x0118}
0xcc5a…cc6e Head {h00=0x0010, h01=0x0050, text=»RELBUF EQU *«, t00=0x0082, t01=0x015a}
0xcc6e…cc86 Head {h00=0x0014, h01=0x0050, text=» LDKL A7,BUFFER «, t00=0x0082, t01=0x016e}
0xcc86…cca6 Head {h00=0x001c, h01=0x0050, text=» SUKL A8,2 POINT TO LINK«, t00=0x0082, t01=0x0186}
0xcca6…ccba Head {h00=0x0010, h01=0x0050, text=»RELB10 EQU *«, t00=0x0083, t01=0x0016}
0xccba…ccce Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A7 «, t00=0x0083, t01=0x002a}
0xccce…cce4 Head {h00=0x0012, h01=0x0050, text=» RF(Z) RELB90 «, t00=0x0083, t01=0x003e}
0xcce4…ccf6 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A1«, t00=0x0083, t01=0x0054}
0xccf6…cd08 Head {h00=0x000e, h01=0x0050, text=» RB RELB10«, t00=0x0083, t01=0x0066}
0xcd08…cd1c Head {h00=0x0010, h01=0x0050, text=»RELB90 EQU *«, t00=0x0083, t01=0x0078}
0xcd1c…cd2e Head {h00=0x000e, h01=0x0050, text=» STR A8,A7«, t00=0x0083, t01=0x008c}
0xcd2e…cd3e Head {h00=0x000c, h01=0x0050, text=» CMR A8 «, t00=0x0083, t01=0x009e}
0xcd3e…cd4e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0083, t01=0x00ae}
0xcd4e…cd56 Head {h00=0x0004, h01=0x0050, t00=0x0083, t01=0x00be}
0xcd56…cd62 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0083, t01=0x00c6}
0xcd62…cd66 Head {h00=0x4004, h01=0x0000}
0xcd66…cd6a 00 83 00 d2 ┆ ┆
0xcd6a…cd72 (132, 1, 8) 20 04 00 00 00 84 00 04 ┆ ┆