1iSOURCE \ 3jvTOS91 NOP 0_^1_%FWRITE $FC,IOS911,IOS91M,IOS91L,A,0,0,I,,1_^1_%JMP- (ADISP)_^1IOS911 FREAD $FD,IOS912,IOS342,1,A,0,0,I,,1 WAIT FOR C/R_^1_%JMP- (ADISP)_^1IOS912 SQP IOS913_'SKIP IF NO ERROR_^1_%JMP* IOS911_'ERROR, REPEAT_^1IOS913 LDQ =XIOV_^1_%STQ- I_,RESTORE I_^1_%JMP* (IOS91)_%RETURN_^1IOS91M ALF *,COPY COMPLETED, C/R WHEN READY FOR NEXT COPY.*_^1IOS91L EQU IOS91L(*-IOS91M)_^1_%EJT_T63*1383_^1****_'NO CODE MAY BE ADDED AFTER THIS POINT_'**** 63*1383_^1*_]_^1IOS42V NUM 0_^1*_]_^1_%NUM $2020_^1IOBUF2 EQU IOBUF2(*)_#START OF IO BUFFER AREA_^1************_^1_%END IOUPV4_^__CYFT CSY/ N84 1_%NAM CYFT_)N84 A MSOS CCS 3.0_5SL-149_^1*_$CREDIT COLLECTION SYSTEM VERSION 3.0_^1*_$DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA_^1*_$COPYRIGHT CONTROL DATA CORPORATION 1979_^1_%SPC 2_^1_%ENT CYFT_^1*_]_^1CYFT_!NOP_]_^1GO_#RTJ READ_^1ZZ_#LDA =A N_)SET UP PARAMETER TO CAL LOOK_^1_%STA PARA1+1_%FOR NAM CARD_^1_%LDA =ANA_^1_%STA PARA2+1_^1_%LDA =AM_^1_%STA PARA3+1_^1_%LDA =AAM_^1_%STA PARA4+1_^1_%RTJ LOOK_)Q RETURNS WITH NUMBER OF_^1_%JMP* MOVE_)WORDS SEARCHED BEFORE A FIND_^1_%JMP* GO_^1_%JMP* GO_+RETURNS AT P WITH FIND,_^1*_CP+1 WITH NO FIND_^1*_CP+2 WITH BLANK FIND_^1*_]_^1MOVE_!LDA CRDIN,Q_^1_%SUB =A_+CHECK FOR TWO BLANKS_^1_%SAN LL_^1BMPQ_!INQ 1_^1_%JMP* MOVE_^1LL_#LDA CRDIN,Q_^1_%AND =N$FF00_^1_%SUB =N$2000_%CHECK FOR BLANK/X_^1_%SAN MM_^1_%JMP* ODD_*YES, BLANK X_^1MM_#LDA CRDIN,Q_^1_%SUB =AM_*CHECK FOR M/BLANK_^1_%SAN NN_^1_%JMP* BMPQ_^1NN_#LDA CRDIN,Q_%EVEN MOVE TREE WORDS_^1_%STA* DCK_*TO DCK/ AND HOL/_^1_%STA* HOL_*CARDS_^1_%INQ 1_^1_%LDA CRDIN,Q_^1_%STA* DCK+1_^1_%STA* HOL+1_^1_%INQ 1_^1_%LDA CRDIN,Q_^1_%STA* DCK+2_^1_%STA* HOL+2_^1_%JMP* INSERT_^1DCK_"ALF 20,XXXXXX DCK/ I,C_^1_%ALF 20,_^1HOL_"ALF 20,XXXXXX HOL/_^1_%ALF 20,_^1ODD_"STQ- I_^1_%LDA* CRDIN,I_%2031 XXXX_^1_%RAO- I_^1_%LDQ* CRDIN,I_%2031 3233_^1_%LLS 8_,3132 33XX_^1_%STA* HOL_*SAVE WORD ONE_^1_%STA* DCK_^1_%LLS 8_,3233 XXXX_^1_%RAO- I_^1_%LDQ* CRDIN,I_$2333 3435_^1_%LLS 8_,3334 35XX_^1_%STA* HOL+1_(SAVE WORD TWO_^1_%STA* DCK+1_^1_%LLS 8_,3435 XXXX_^1_%RAO- I_^1_%LDQ* CRDIN,I_%3435 3620_^1_%LLS 8_,3536 20XX_^1_%STA* HOL+2_(SAVE WORD THREE_^1_%STA* DCK+2_^1INSERT NOP 0_^1_%RTJ* WRDCK_(INSERT DCK/ CARD_^1_%RTJ* WRHOL_(INSERT HOL/ CARD_^1_%RTJ* WRITE_'COPY NAM CARD_^1_%RTJ* LSDCK_(LIST CURRENT DCK/ CARD_^1_%JMP ENDLK_(GO LOOK FOR END CARD_^1*_]_^1READ_!NOP 0_^1_%FREAD $F9,YY,CRDIN,40,A,,,I,,1 READ A CARD_+**MSOS 4.0_^1_%EXIT_^1YY_#LDA* READ+5_^1_%SAP YZ_$BIT 15 SYA ERROR_^1_%ALS 1_%YES_^1_%SAP YZ_#BIT 14 SAY FEWER WORDS_^1*_+YES_^1*_$ERROR + FEWER WORDS = END OF FILE_^1*_]_^1_%RTJ* WREND_$WRITE FINAL END/_^1_%EXIT_^1YZ_#JMP* (READ)_^1*_]_^1WRITE NOP 0_,COPY CARD_^1_%FWRITE $FA,WW,CRDIN,40,A,,,I,,1_7**MSOS 4.0_^1_%EXIT_^1WW_#JMP* (WRITE)_^1*_]_^1WRHOL NOP 0_,INSERT HOL/ CARD_^1_%FWRITE $FA,VV,HOL,40,A,,,I,,1_8**MSOS 4.0_^1_%EXIT_^1VV_#JMP* (WRHOL)_^1*_]_^1WRDCK NOP 0_,INSERT DCK/ CARD_^1_%FWRITE $FA,UU,DCK,40,A,,,I,,1_9**MSOS 4.0_^1_%EXIT_^1UU_#JMP* (WRDCK)_^1*_]_^1LSDCK NOP 0_,LIST DCK/ CARD INSERTED_^1_%FWRITE $FB,TT,DCK,13,A,,,I,,1_9**MSOS 4.0_^1_%EXIT_^1TT_#JMP* (LSDCK)_^1*_]_^1WREND NOP 0_,WRITE END/ CARD_^1_%FWRITE $FA,SS,END,40,A,,,I,,1_8**MSOS 4.0_^1_%EXIT_^1SS_#JMP* (WREND)_^1_%BZS CRDINZ  3kvh(80)_^1*_]_^1LOOK_!NOP 0_^1_%CLR Q_^1_%LDA* CRDIN,Q_^1_%AND =N$FF00_^1_%SUB =N$2000_%CHECK FIRST COLUMN_^1_%SAZ TEST_^1_%JMP* CPYOUT_^1TEST_!LDA* CRDIN,Q_^1PARA1 SUB =A N_)CHECK FOR N/ E_^1_%SAN AA_^1_%JMP* XX_+NAM/ END TEST_^1AA_#LDA* CRDIN,Q_%NAM /END TEST_^1_%SUB =N$2020_%CHECK FOR SPACE*SPACE_^1_%SAZ BB_^1_%JMP* CPYOUT_^1BB_#TRQ A_^1_%INA -32_*CHECK FOR BLANK CARD_^1_%SAN CC_^1_%RAO* LOOK_)BLANK FIND_^1_%RAO* LOOK_^1_%JMP* (LOOK)_^1CC_#INQ 1_^1_%LDA* CRDIN,Q_^1PARA2 SUB =ANA_)CHECK FOR NA/EN_^1_%SAZ DD_^1_%JMP* TEST_)TEST LOOP_^1DD_#INQ 1_^1_%LDA* CRDIN,Q_^1PARA3 SUB =AM_*M /D TEST_^1_%SAZ EE_^1_%JMP* CPYOUT_^1XX_#INQ 1_^1_%LDA* CRDIN,Q_^1PARA4 SUB =AAM_)AM/ND TEST_^1_%SAZ FF_^1_%JMP* CPYOUT_^1FF_#INQ 1_^1_%LDA* CRDIN,Q_^1_%AND =N$FF00_^1_%SUB =N$2000_%TEST FOR TRAILING BLANK_^1_%SAZ EE_^1_%JMP* CPYOUT_^1EE_#JMP* (LOOK)_'FIND_^1CPYOUT RAO* LOOK_^1_%JMP* (LOOK)_^1*_]_^1ENDLK NOP 0_^1_%RTJ READ_^1_%LDA =A E_)SET UP PARAMETER TO_^1_%STA* PARA1+1_)LOOK FOR END CARD_^1_%LDA =AEN_)CARD_^1_%STA* PARA2+1_^1_%LDA =AD_^1_%STA* PARA3+1_^1_%LDA =AND_^1_%STA* PARA4+1_^1_%RTJ* LOOK_^1_%JMP* TRY2_)FIND_(P_^1_%JMP* TRY1_)NO FIND_$P+1_^1_%JMP* ENDLK_(BLANK FIND_!P+2_^1TRY1_!RTJ WRITE_^1_%JMP* ENDLK_^1TRY2_!RTJ WRITE_'COPY END CARD_^1_%RTJ WREND_'WRITE END/ CARD_^1_%JMP GO_+GO LOOK FOR NAM CARD AGAIN_^1*_]_^1END_"ALF 20,_%END/_^1_%ALF 20,_^1_%END CYFT_^__LCOSY CSY/ N85 1_%NAM LCOSY_(N85 A MSOS CCS 3.0_5SL-149_^1*_$CREDIT COLLECTION SYSTEM VERSION 3.0_^1*_$DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA_^1*_$COPYRIGHT CONTROL DATA CORPORATION 1979_^1_%SPC 2_^1_%ENT LCOSY_^1_%BSS INBUF(193),OUTBUF(6)_^1CMATCH ALF 3, CSY/_^1EOL_"ALF 3, END/_^1ENDMSG ALF 12,_#END OF COSY LIBRARY_^1LCOSY NOP 0_^1_%RTJ* TYPEIT_^1_%LDQ =N192_^1CLEAR ENA 0_^1_%STA INBUF,Q_^1_%INQ -1_^1_%SQM 1_^1_%JMP* CLEAR_^1_%FREAD $F9,0,INBUF,193,A,0,0,I,0,1_5**MSOS 4.0_^1_%LDA* *-4_^1_%SAZ 1_^1_%JMP* *-2_^1_%LDA INBUF+3_^1_%SUB* EOL_^1_%SAZ 1_^1_%JMP* CCK_^1_%LDA INBUF+4_^1_%SUB* EOL+1_^1_%SAZ 1_^1_%JMP* CCK_^1_%LDA INBUF+5_^1_%SUB* EOL+2_^1_%SAZ 1_^1_%JMP* CCK_^1_%FWRITE $FB,0,ENDMSG,12,A,0,0,I,0,1_4**MSOS 4.0_^1_%EXIT_^1CCK_"LDA INBUF+3_^1_%SUB* CMATCH_^1_%SAZ 1_^1_%JMP* CLEAR-2_^1_%LDA INBUF+4_^1_%SUB* CMATCH+1_^1_%SAZ 1_^1_%JMP* CLEAR-2_^1_%LDA INBUF+5_^1_%SUB* CMATCH+2_^1_%SAZ 1_^1_%JMP* CLEAR-2_^1_%ENQ 5_^1MOVE_!LDA INBUF,Q_^1_%STA* OUTBUF,Q_^1_%INQ -1_^1_%SQM 1_^1_%JMP* MOVE_^1_%FWRITE $FB,0,OUTBUF,6,A,0,0,I,0,1_5**MSOS 4.0_^1_%RTJ PUNIT_!SEE IF WE PUNCH DCK CARDS_^1_%LDA* *-6_^1_%SAZ 1_^1_%JMP* *-2_^1_%JMP* CLEAR-2_^1TYPOUT ALF 10, :R DCK/ I ,H ,C_^1TYPEIT NOP_]_^1_(FWRITE_!$FC,0,TYPOUT,10,A,0,0,I,0,1_0**MSOS 4.0_^1_%FREAD $FD,0,TYBUFF,8,A,0,0,I,0,1_5**MSOS 4.0_^1_%LDA* *-4 PICKUP THREAD WORD_^1_%SAZ 1_^1_%JMP* *-2 LOOP ON BUSY_^1_%LDA* TYBUFF_^1_%TRA Q_^1_%AND* NUMCK_($1010_^1_%EOR* NUMCK_^1_%SAZ NUM010_^1_%ENA 0_^1_%LLS 8_^1_%INA -$2F_^1_%SAZ 1_^1_%JMP* TYPEIT+1 ERROR OUTPUT AGAIN_^1_%STA* DCKFLG_'CLR FLAG_^1TYPE10 JMP* (TYPEIT)_^1_%EJT_]_^1*_]_^1*_$THIS PART OF THE PROGRAM LOOKS FOR A SLASH_^1*_]_^1*_]_^1NUM010 STQ* DCKFLG_^1_%STQ* BUILD_(STORE I PARAMETERS_^1_%LDQ* TYBUFF+1_^1_%LLS 8_^1_%STQ* HOLD1_(CHAR1 OF H PARAMETER_^1_%INA -$2C_)CHECK FOR COMMA_^1_%SAZ 1_,COMMA_^1_%JMP* TYPEIT+1_$ERROR_^1_%LDQ* HOLD1_^1_%QLS 8_^1_%H  3lv|LDA* TYBUFF+2_^1_%LLS 8_^1_%TRQ A_,Q= H PARAMETER_^1_%AND* NUMCK_^1_%EOR* NUMCK_^1_%SAZ 3_^1_%ENA -0_^1_%STA* BUILD+1_^1_%JMP* NUM030 THIS SHOULD BE RIGHT_^1_%JMP* NUM020_^1_%BZS TYBUFF(9)_^1DCKFLG NUM 0_^1_%BZS BUILD(3)_^1HOLD1 NUM 0_^1CONTRL ALF 1,I=_^1_%ALF 1,H=_^1_%ALF 1,C=_^1NUMCK NUM $1010_^1*_]_^1*_]_^1*_]_^1*_]_^1NUM020 STQ* BUILD+1_%THIS IS FOR XX,XX,XX_^1_%LDQ* TYBUFF+3_$PICKUP C= PARAMETERS_^1_%TRQ A_^1_%AND* NUMCK_^1_%EOR* NUMCK_^1_%SAZ NUM025_'IS IT A NUMBER_^1_%ENA 0_^1_%LLS 8_^1_%INA -$2F_^1_%SAZ 1 CHECK FOR SLASH IF NOT ERROR_^1_%JMP* TYPEIT+1_^1_%ENQ -0_$NO,_!FLAG WITH NEG ZERO,_^1NUM025 STQ* BUILD+2 YES IA FOR XX,/,XX_^1_%JMP* NUM050 BUILD CARD_^1NUM030 LDQ* TYBUFF+2_^1_%ENA 0_^1_%LLS 8_^1_%INA -$2C_^1_%SAZ 1_^1_%JMP* TYPEIT+1_^1_%LDA* TYBUFF+2_$BUILD C PARAMETER_^1_%LDQ* TYBUFF+3_^1_%LLS 8_^1_%TRA Q_^1_%AND* NUMCK_(IS IT NUMERIC_^1_%EOR* NUMCK_^1_%SAZ 1_^1_%JMP* TYPEIT+1_$ERROR_^1_%STQ* BUILD+2_%YES ITS A NUMBER_^1_%EJT_]_^1*_]_^1*_$THIS PART OF THE PROGRAM PICKS UP THE LU_^1*_$AND ORS THEM WITH THE RIGHT PARAMETER AND STICKS IT IN_^1*_$THE CARD FEILD_^1NUM050 ENQ 0_^1_%STQ- I_,ZERO I_^1_%LDA* BUILD,I_^1_%SAM NUM055_^1_%LDQ* COMMA_^1_%SQZ 2_^1_%JMP* NUM070_^1NUM055 JMP* NUM060_^1_%LDQ* CONTRL,I_^1_%STA* FEILD+1_^1_%STQ* FEILD_^1_%STQ* COMMA_^1NUM060 RAO- I_^1_%JMP* NUM050+2_^1CARD_!ALF 3,_^1DCKK_!ALF 3, DCK/_^1FEILD ALF 10,_^1_%ALF 5,_^1_%ALF 5,_^1_%ALF 5,_^1_%ALF 5,_^1_%ALF 4,_^1COMMA NUM 0_^1NUM070 ENA $2C_*,_^1_%LDQ* CONTRL,I_$Z=_^1_%LLS 8_,,Z_^1_%STA* FEILD+2_^1_%CLR A_,ZERO A_^1_%LLS 8_,=_^1_%LDQ* BUILD,I_%XX_^1_%LLS 8_,*_^1_%STA* FEILD+3_%=X_^1*_$Q NOWS HAS LAST CHAR_^1*_]_^1_%LDA- I_^1_%INA -2_^1_%SAM NUM080_^1_%INQ $20_^1_%STQ* FEILD+4_^1NUM075 JMP (TYPEIT)_^1NUM080 INQ $2C_^1_%STQ FEILD+4_^1_%RAO- I_^1_%LDA* BUILD,I_^1_%INA_!0_^1_%SAZ NUM090_!SLASH IN C PARA_^1_%LDQ CONTRL,I_!FEILD SHOULD EQUAL_^1_%STQ* FEILD+5_^1_%STA* FEILD+6_%I=XX,H=XX,C=XX_^1_%JMP* NUM075_^1NUM090 INQ -$C_!SET COMMA BACK TO BLANK_^1_%STQ FEILD+4_^1_%JMP* NUM075_^1PUNIT NOP_]_^1_%LDA* DCKFLG_^1_%SAN 1_^1_%JMP* (PUNIT)_^1_%ENQ 2_^1PUT020 LDA OUTBUF,Q_!MOVE THE NAME TO PUNCH BUFFER_^1_%STA CARD,Q_^1_%SQZ 2_^1_%INQ -1_^1_%JMP* PUT020_^1_%FWRITE $FA,0,CARD,40,A,0,0,I,0,1_6**MSOS 4.0_^1_%LDA* *-4_^1_%SAZ 1_#SKIP IF POSTIVE ZERO_^1_%JMP* *-2_^1_%JMP* (PUNIT)_^1_%END LCOSY_^__LISTR CSY/ N86 1_%NAM LISTR_(N86 A MSOS CCS 3.0_5SL-149_^1*_$CREDIT COLLECTION SYSTEM VERSION 3.0_^1*_$DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA_^1*_$COPYRIGHT CONTROL DATA CORPORATION 1979_^1_%SPC 2_^1*_]_^1*_]_^1*_'THIS PROGRAM WILL LIST RELOCATABLE_^1*_'NAME BLOCKS AND CONTROL STATEMENTS_^1*_'FROM THE STANDARD INPUT DEVICE ON_^1*_'THE STANDARD LIST DEVICE._^1*_]_^1*_]_^1_(ENT_%LISTR_^1LISTR_"NOP_^1_%FWRITE $FB,LISTR1,TOP,1,A,0,0,I,,1_4**MSOS 4.0_^1_%JMP- ($EA)_^1LISTR1 NOP_]_^1_(RTJ_%INP_0INPUT_^1_(SAZ_%ERR_00 ERROR MESSAGE_^1_(SAP_%PLUS_/+1 NAME BLOCK_^1_%SAM INDR_)-1 * BLOCK_^1ERR_"JMP ERRA_^1INDR_!JMP MINUS_^1*_]_^1*_]_^1*_'THIS IS THE PLUS ROUTINE_^1*_'IT IS USED WHEN A NAME_^1*_'BLOCK IS FOUND ON THE RELO. INPUT_^1*_]_^1*_]_^1PLUS_#NOP_^1_(LDA_%=w  3mvN$2020_,BLANK THREE WORDS_^1_(STA_%BUFR_^1_(STA_%BUFR+1_^1_(STA_%BUFR+2_^1_(STA_%BUFR+3_^1_(STA_%BUFR+7_^1_(STA_%BUFR+8_^1_(STA_%BUFR+9_^1_(STA_%BUFR+10_^1_(STA_%BUFR+11_^1_(STA_%BUFR+12_^1_(STA_%BUFR+13_^1_(RTJ_%BLKOUT_^1_(RTJ_%MOVE_^1_(LDQ*_$ARCNT_^1_(RTJ*_$INCR_^1_(LDQ*_$ATRCNT_^1_(RTJ*_$INCR_^1CHKTR_"RTJ_%INP_^1_(SAZ_%YES_0NOT NAME OR * BLOCK_^1_%JMP* ERRA1_^1YES_$LDA_%BUFR_^1_(SUB_%=N$C050_,TRA BLOCK MASK_^1_(SAZ_%TRA_0SKIP IF TRA BLOCK_^1_(LDQ*_$ARCNT_^1_(RTJ*_$INCR_^1_(LDQ*_$ATRCNT_^1_(RTJ*_$INCR_^1_(JMP*_$CHKTR_^1TRA_$LDQ*_$ARCNT_^1_(RTJ*_$INCR_^1_(LDQ*_$ATRCNT_^1_(RTJ*_$INCR_^1_(LDQ*_$ALCNT_^1_(RTJ*_$INCR_^1_(RTJ*_$DUMP_^1_%JMP* LISTR1_^1ALCNT_"ADC_%LCNT+1_^1ARCNT_#ADC_$RCNT+1_^1ATRCNT_!ADC_%TRCNT+1_^1*_]_^1*_]_^1*_'THIS IS THE DUMP SUBROUTINE_^1*_'IT DUMPS A RECORD TO THE STD. LIST OUT_^1*_'IT ALSO CLEARS THE RECORD COUNT_^1*_'REGISTER AND HAS A SEL. STOP LOC._^1*_]_^1*_]_^1DUMP_#NOP_^1_%FWRITE $FB,BB,RECORD,41,B,,,I,,1_6**MSOS 4.0_^1_(EXIT_^1BB_%LDA_%=N$2B20_^1_(STA_%REC2_/STORE PLUS SIGN_^1_%FWRITE $FB,ZZ,REC2,41,B,,,I,,1 STANDARD LIST OUT_$**MSOS 4.0_^1_(EXIT_^1ZZ_%LDA_%=N$2020_^1_(STA_%REC2_/REMOVE PLUS SIGN_^1_(LDA_%=N$3030_,ZERO CODE_^1_(STA_%RCNT_^1_(STA_%RCNT+1_^1_(SLS_%0_^1_(JMP*_$(DUMP)_^1*_]_^1*_]_^1*_'THIS IS THE ASCII INCREMENT SUBROUTINE_^1*_'IT COLLECTS AN ADDRESS PARAMETER_^1*_'PASSED IN Q AND UPDATES_^1*_'THE TWO WORD REGISTER BY 1 ASCII_^1*_]_^1*_]_^1_(BZS_%PASS(1)_^1_(BZS_%SAVA(1)_^1INCR_#NOP_^1_(ENA_%+1_^1_(STA*_$PASS_/STORE PASS GOUNT_^1PASS2_"NOP_%0_3PASS TWO ENTRY POINT_^1_(STQ*_$ADRA+1_-STORE COUNTER ADR._^1_(STQ*_$ADRB+1_-STORE COUNTER ADDRESS_^1_(STQ*_$ADRC+1_-STORE COUNTER ADDRESS_^1_(STQ*_$ADRD+1_-STORE COUNTER ADDRESS_^1_(STQ*_$ADRE+1_-STORE COUNTER ADDRESS_^1ADRA_#RAO+_'$7FFF_/A_$Q INCR COUNTER_^1_(CLR_%A_30000_!3X3X_^1ADRB_#LDQ+_'$7FFF_.CHECK COUNTER_^1_(LLS_%16_23X3X_!0000_^1_(LLS_%12_2X000_!03X3_^1_(STA*_$SAVA_^1_(SUB_%=N$A000_-XXXX_!03X3_^1_(SAN_%IND_0SKIP,NO CARRY_^1*_EIF A=0,CARRY_^1*_HA_$Q_^1_(LDA*_$SAVA_0X000_"03X3_^1_(LLS_%12_2003X_"3X00_^1_(LDQ_%=N$3000_^1_(INA_%+1_2003X_!3X00_^1_(STA*_$SAVA_/SAVE IN CASE OF NO CARRY_^1*_GA_$Q_^1_(SUB_%=N$003A_-XXXX_!3X00_^1_(SAN_%IND+1_.SKIP NO CARRY_^1_(ENA_%$30_0CARRY A=0_^1*_GA_$Q_^1*_F0030_!3000_^1_(LLS_%8_33030_!0000_^1_(JMP*_$ADRC_^1IND_$JMP*_$JPA_^1_(JMP*_$JPB_^1ADRC_#STA+_'$7FFF_-SET COUNER_^1_(LDA*_$PASS_/CHECK PASS COUNT_^1_(SAZ_%DONE_/SKIP,END SECOND PASS_^1_(CLR_%A_^1_(STA*_$PASS_/SIGNAL END OF FIRST PASS_^1_(LDQ*_$ADRA+1_-COLLECT REGISTER ADR._^1_(INQ_%-1_1UPDATE COUNTER ADDRESS_^1_(JMP*_$PASS2_.PASS 2 ENTRY_^1*_GA_$Q_^1JPA_$LDA*_$SAVA_0X000_!0303_^1_(LLS_%16_20303_!X000_^1_(LLS_%4_3303X_!0000_^1ADRD_#STA+_'$7FFF_,SET COUNTER_^1DONE_#JMP*_$(INCR)_-RETURN_^1*_HA_"Q_^1JPB_$LDA*_$SAVA_000OX_!3000_^1_(LLS_%8_33X30_!0000_^1ADRE_#STA_($7FFF_,SET COUNTER_^1_(JMP*_$(INCR)_-RETURN_^1*_]_^1*_]_^1*_'THIS IS THE ERROR SUBROUTINE_^1*_'IT IS USED WHEN A BLOCK IS FOUND_^1*_'THAT IS OUT OF LOGICAL ORDER_^1*_'A NOTE IS ENTERED IN THE RECORD DUMP_^1*_]_^1*_]_^1GON_"RTJ* INP_^1_%SAN ERRA1_^1ERRA_!LDQ* ARCNT_^1_(RTJ*_$INCR_^1_(LDQ*_$ATRCNT_^1_(RTJ*_$INCR_^1_%JMP* GON_^1ERRA1 LDQ* ALCNT_^1_%RTJ* INCR_)INCREMENT LINE COUNT_^1_%ENQ 14_^1AGO_"LDA EMSG,Q_^1_%STA NME,Q_(MOVE EMSG TO NME_^1_%SQZ GONN_^1_%INQ -1_^1_%JMP* AGO_^1GONN_!RTJ* DUMP_^1ERRA2 LDA* FLAG_^1_%SAM MINUS_^1_%JMP PLUS_^1*_]_^1*_]_^1*_'THIS IS THE MINUS SUBROUTINE_^1*_'IT IS USED WHEN A * BLOCK_^1*_'(CONTROL STATEMENT) IS FOUND_^1*_'ON THE RELOCATABLE INPUT._^1*_]_^1*_]_^1MINUS_"NOP_^1_(RTJ*_$BLKOUT_^1_(RTJ*_$MOVE_^1_%LDQ ALCNT_^1_(RTJ*_$INCR_^1_%LDQ ARCNT_^1_%RTJ* INCR_^1_%LDQ ATRCNT_^1_%RTJ* INCR_^1_%RTJ DUMP_^1_%JMP LISTR1_^1*_]_^1*_]_^1*_'THIS IS THE INPUT SUBROUTINE_^1*_'FIRST IT CLEARS THE BUFR THEN_^1*_'IT DOES AN INPUT AND CHECKS THE_^1*_'TYPE OF RECORD READ._^1*_'PARAMETERS ARE PASSED IN A_^1*_'-1 INDICATEM  3nvS A * BLOCK_^1*_'+1 INDICATES A NAME BLOCK_^1*_'0 INDICATES ALL OTHERS_^1*_]_^1*_]_^1INP_$NOP_^1_(LDA_%=N$2020_^1_(ENQ_%+14_^1DOIT_#STA_%BUFR,Q_-BLANK BUFR AREA_^1_(INQ_%-1_^1_(SQZ_%1_^1_(JMP*_$DOIT_^1_%FREAD $F9,AA,BUFR,15,B,,,I,,1 STD INPUT DEVICE_%**MSOS 4.0_^1_(EXIT_^1AA_#SQP AB-*-1_^1_%EXIT 0_+EXIT IF ERROR OR EOF_^1AB_#LLS 16_+STATUS TO A_^1_(AND_%=N$4000_,BIT 14 SHORT READ MASK_^1_(SAN_%XX_1SKIP IF SHORT READ_^1_(LDA*_$BUFRAD_^1_(INA_%+13_0CALCULATE FAKE WORD COUNT_^1_(STA_%BUFR+14_,STORE FAKE WORD COUNT_^1XX_%LDA_%BUFR_^1_(ARS_%8_2DROP LOWER CHARACTER_^1_(SUB_%=N$002A_,MASK*_^1_(SAZ_%PARA1_.SKIP IF *_^1_(LDA_%BUFR_^1_(SUB_%=N$2050_,MASK FOR NAME BLOCK_^1_(SAZ_%PARA2_.SKIP IF NAME BLOCK_^1_(ENA_%0_2CLEAR A_^1_(STA*_$FLAG_/NOT NAME OR * BLOCK_^1_(JMP*_$(INP)_.RETURN_^1PARA1_"ENA_%-1_1* BLOCK FLAG_^1_(STA*_$FLAG_^1_(JMP*_$(INP)_.RETURN_^1PARA2_"ENA_%1_2NAME BLOCK FLAG_^1_(STA*_$FLAG_^1_(JMP*_$(INP)_.RETURN_^1_(BZS_%FLAG(1)_^1BUFRAD_!ADC_%BUFR_^1*_]_^1*_]_^1*_'THIS IS THE BLANK OUT SUBROUTINE_^1*_'IT STORES BLANKS IN THE_^1*_'OUTPUT RECORD AREA_^1*_]_^1*_]_^1BLKOUT_!NOP_^1_(LDA_%=N$2020_,BLANKS_^1_(ENQ_%14_1LOOP COUNT_^1SPIN_#STA*_$NME,Q_.FILL_^1_(INQ_%-1_^1_(SQZ_%GO_1CHECK SPIN COUNT_^1_(JMP*_$SPIN_/LOOP AGAIN_^1GO_%JMP*_$(BLKOUT)_+RETURN_^1*_]_^1*_]_^1*_'THIS IS THE MOVE SUBROUTINE_^1*_'IT MOVES THE INPUT BUFFER AREA_^1*_'TO THE RECORD OUTPUT AREA_^1*_'IT ALSO CHECKS FOR $FF IN_^1*_'THE LAST CHARACTER AND THROWS_^1*_'IT OUT IF FOUND._^1*_]_^1*_]_^1MOVE_#NOP_^1_(LDA_%BUFR+14_^1_(SUB*_$BUFRAD_-CALCULATE WORD COUNT_^1_(LLS_%16_1WORD COUNT TO Q_^1_(LDA_%BUFR,Q_^1_(AND_%=N$00FF_^1_(SUB_%=N$00FF_^1_(SAN_%AGAIN_^1_(LDA_%BUFR,Q_^1_(AND_%=N$FF00_^1_(JMP*_$AGAIN1_^1AGAIN_"LDA*_$BUFR,Q_^1AGAIN1_!STA*_$NME,Q_.MOVE THE DATA_^1_(SQZ_%RET_0SKIP WHEN DONE_^1_(INQ_%-1_1DECREMENT THE MODIFIER_^1_(JMP*_$AGAIN_.LOOP_^1RET_$JMP*_$(MOVE)_-RETUNN_^1*_]_^1*_'INPUT AND OUTPUT BUFFER AREA_^1*_]_^1EMSG_#ALF_%15,OUT OF ORDER INPUT BLOCK_^1RECORD_!ALF_%1,+_^1LCNT_#NUM_%$3030,$3030_^1_(NUM_%$2020_^1NME_$ALF_%15,_^1_(NUM_%$2020,$2020_^1REC2_#ALF_%21,_^1RCNT_#NUM_%$3030,$3030_^1_(NUM_%$2020_^1_(ALF_%4,RECORDS_^1_(NUM_%$2020,$2020_^1TRCNT_"NUM_%$3030,$3030_^1_(NUM_%$2020_^1_(ALF_%7,TOTAL RECORDS._^1_(NUM_%$2E03_^1_(BZS_%BUFR(20)_^1TOP_"ALF 1,1_^1_(END_%LISTR_^__ LULIST CSY/ N87 1_%NAM LULIST_'N87 A MSOS CCS 3.0_5SL-149_^1*_$CREDIT COLLECTION SYSTEM VERSION 3.0_^1*_$DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA_^1*_$COPYRIGHT CONTROL DATA CORPORATION 1979_^1_%SPC 2_^1*_$IDENTIFIES EQUIPMENTS FOR SYSTEM LOGICAL UNITS FOR MSOS 4.1_^1*_$1700 MASS STORAGE OPERATING SYSTEM VERSION 4.1_^1*_$SMALL COMPUTER DEVELOPMENT DIVISION, LA JOLLA, CALIFORNIA_^1*_$COPYRIGHT CONTROL DATA CORPORATION 1973_^1_%SPC 2_^1*_*THIS PROGRAM MUST BE RUN AS A JOB OR_^1*_*ADDED TO THE PROGRAM LIBRARY._^1*_*IT OPERATES BY MAKING A STATUS REQUEST FOR EACH LU_^1_%SPC 2_^1_%EQU TEN($46),SEVEN($5),FIVE($43),SIX($44)_^1_%EXT SYSMON,SYSDAY,SYSYER,SYSID_^1_%EQU LPMASK(2)_^1_%EQU AMONI($F4)_^1_%EXT LOG1A_^1_%ENT LULIST_^1_%EQU LULIST(*)_^1_%ENQ 15_+MOVE SYSTEM ID_^1MOVID LDA+ SYSID,Q_%FROM SYSDAT INTO_^1_%STA MSGID2,Q_$MESSAGE BUFFER_^1_%INQ -1_^1_%SQM IDMOVD_^1_%JMP* MOVID_^1IDMOVD LDA =XSYSMON_$MOVE SYSTEM DATE_^1_%STA MSGID3+1_$INTO MESSAGE BUFFER_^1_%LDA =XSYSYER_^1_%STA MSGID3+4_^1_%LDQ =N$2F2F_^1_%LDA =XSYSDAY_^1_%LLS 8_^1_%STA MSGID3+3_^1_%STQ MSGID3+2_^1_%RTJ- (AMONI)_%FWRITE HEADING PART 1_^1_%NUM $4C00_^x  3ov1_%NUM 0_^1_%NUM 0_^1_%NUM $18FB_^1_%NUM 39_^1_%ADC MSGIDO_^1_%RTJ- (AMONI)_^1_%NUM $4C00_(FWRITE HEADING PART 2_^1T0_#ADC 0,0,$18FB_^1_%ADC LL,M1_^1L0_#LDA* T0+1_)LOOP ON THREAD_^1_%SAZ A_^1_%JMP* L0_^1A_$LDA* B_^1_%INA 1_,ADD 1 TO LU IN REQUEST_^1_%STA* B_^1_%SUB LOG1A_(IS IT LAST LU_^1_%SAZ ZZ_^1_%SAP EXIT_^1ZZ_#LDQ* B_,LOGICAL UNIT_^1_%LDQ+ LOG1A,Q_%GET LOCATION OF PHYSTAB_^1_%LDQ- 8,Q_*GET WORD 8 OF PHYSTAB_^1_%STQ* XQ_+(REQUEST STATUS - TYPE CODE)_^1_%JMP* D_,GO TO PRINT SECTION_^1B_$NUM 0_^1XQ_#NUM 0_^1EXIT_!EXIT_^1_%SPC 1_^1D_$LDA* XQ_+STATUS WORD_^1_%AND =N$07F0_%GET TYPE CODE_^1_%ARS 4_^1_%INA -ALFN_^1_%SAM TYPE_)IF LESS THAN MAX TYPE CODE_^1_%ENA 0_,SET UP FOR MAX TYPE CODE_^1TYPE_!INA ALFN_^1_%ALS 4_,MULTIPLY BY 16_^1_%ADD =XALF_^1_%STA* E_,START OF EQUIP TYPE MSG_^1_%LDA* B_,COVERT LU TO ASCII_^1_%RTJ* CONVRT_^1_%STA* M1_^1_%ENQ 16_^1_%RTJ* MOVE_^1E_$ADC ALF_^1_%ADC M1B_^1_%SPC 2_^1_%LDA* XQ_+STATUS WORD_^1_%AND- SIX_*GET R/W CODE_^1_%ARS 1_^1_%MUI- FIVE_^1_%ADD =XARF_^1_%STA* F_,START OF R/W MSG_^1_%ENQ 5_^1_%RTJ* MOVE_^1F_$ADC ARF_^1_%ADC M1A_^1_%SPC 2_^1_%LDA* XQ_^1_%ARS 11_^1_%AND- SEVEN_(A = CLASS CODE_^1_%MUI- SEVEN_^1_%ADD =XARL_^1_%STA* F2_^1_%ENQ 7_^1_%RTJ* MOVE_)MOVE CLASS CODE MESSAGE TO OUT BUFFER_^1F2_#ADC ARL_^1_%ADC M1F_^1_%SPC 2_^1_%LDQ* B_^1_%LDQ+ LOG1A,Q_^1_%LDA- 7,Q_^1_%ARS 7_^1_%AND- LPMASK+4_^1_%RTJ* CONVRT_'CONVERT TO ASCII_^1_%STA* M1G+2_(STORE IT IN OUTPUT LINE_^1*_]_^1_%RTJ- (AMONI)_^1_%NUM $4C00_(FWRITE REQUEST_^1T1_#ADC 0,0,$18FB_^1_%ADC LL,M1_^1L1_#LDA* T1+1_)WAIT_^1_%SAZ GOBCK_^1_%JMP* L1_^1GOBCK JMP A_,RETURN TO START_^1_%SPC 3_^1MOVE_!NUM 0_,SUBROUTINE TO MOVE BLOCK OF CORE_^1_%LDA* MOVE_^1_%STA- I_^1_%LDA- (I)_^1_%STA* MOVL+1_^1_%LDA- 1,I_^1_%STA* MOVL1+1_^1MOVC_!INQ -1_^1_%SQP MOVL-*-1_^1_%RAO* MOVE_^1_%RAO* MOVE_^1_%JMP* (MOVE)_^1MOVL_!LDA+ MOVE,Q_^1MOVL1 STA+ MOVE,Q_^1_%JMP* MOVC_^1_%SPC 1_^1*_*HEX TO ASCII CONVERSION_^1*_*A-REG = $00 TO $63 ON ENTRY_^1*_*ROUTINE CONVERTS TO DECIMAL_^1*_*AND RETURNS WITH ASCII CHARS IN A_^1_%SPC 1_^1CONVRT NUM 0_,HEX TO ASC CONVERSION_^1_%ENQ 0_^1_%DVI- TEN_*MSB IN A, LSB IN Q_^1_%ALS 8_^1_%AAQ A_^1_%ADD =N$3030_%TWO ASCII CHARS IN A-REG_^1_%JMP* (CONVRT)_^1_%SPC 2_^1M1_#ALF 2,LU._^1M1B_"ALF 17,EQUIPMENT DESCRIPTION_^1M1A_"ALF 06,READ/WRITE_^1M1F_"ALF 08,CLASS CODE_^1M1G_"ALF 03, EQ NO_^1LL_#EQU LL(*-M1)_^1MSGIDO NUM $0C0D_(TOP OF FORM_^1MSGID1 ALF 17,MSOS 5.0 LOGICAL UNIT LISTING FOR_^1MSGID2 ALF 16,_^1MSGID3 ALF 5, MM/DD/YY_^1_%SPC 3_^1ARF_"EQU ARF(*)_^1_%ALF 05,RFIELD = 0_^1_%ALF 05,READ ONLY_^1_%ALF 05,WRITE ONLY_^1_%ALF 05,READ/WRITE_^1ALF_"EQU ALF(*)_^1_%ALF 16,1711 TELETYPEWRITER_^1_%ALF 16,1721/1722 PAPER TAPE READER_)1_^1_%ALF 16,1723/1724 PAPER TAPE PUNCH_*2_^1_%ALF 16,1752_$DRUM UNIT_13_^1_%ALF 16,713,10/711-100/713-120 CRT_)4_^1_%ALF 16,1738/853 DISK UNIT (1.5M)_*5_^1_%ALF 16,1751 DRUM_^1_%ALF 16,1739-1_"CARTRIDGE DISK UNIT_'7_^1_%ALF 16,1738/854 DISK UNIT (3.1M)_^1_%ALF 16,1731/601 MAGNETIC TAPE_^1_%ALF 16,SOFTWARE BUFFERING DEVICE_*10_^1_'ALF 16,COSY UNIT_;11_^1_%ALF 16,1728/430 CARD READER/PUNCH_)12_^1_%ALF 16,SOFTWARE CORE ALLOCATOR_,13_^1_%ALF 16,1733-1/854 DISK UNIT (3.1M)_)14_^1_%ALF 16,1733-2/856-2 DISK UNIT (2.2M)_'16_^1_%ALF 16,1733-2/856-4 DISK UNIT (4.5M)_'15_^1_%ALF 16,1742-30 LINE PRINTER_017_^1_%ALF 16,1742-120 LINE PRINTER_/18_^1_%ALF 16,1740/501 LINE PRINTER_.19_^1_%ALF 16,1732-2/615-73 MAG TAPE UNIT_^1_%ALF 16,1732-2/615-93 MAG TAPE UNIT_^1_%ALF 16,1732-1/1706/608 BUFR MAG. TAPE_^1_%ALF 16,1726/405 CARD READER_/23_^1_%ALF 16,1732-1/608 MAG TAPE UNIT_,24_^1_%ALF 16,1732-1/609 MAG TAPE UNIT_,25_^1_%ALF 16,1713_$TELETYPE KEYBOARD_)26_^1_%ALF 16,1713_$TTY PAPER TAPE PUNCH_%27_^1_%ALF 16,1713_$TTY PAPER TAPE READER_$28_^1_%ALF 16,1729-2_"CARD READER_/29  3pv_^1_%ALF 16,1732-1/1706/609 BUFR MAG TAPE_%30_^1_%ALF 16,SOFTWARE DUMMY ALTERNATE DEVICE_#31_^1_%ALF 16,364-4/361-1 HDX COMM DEVICE_^1_%ALF 16,364-4/361-4 FDX COMM DEVICE_^1_%ALF 16,1742ALrvP CCS20 F 16,1777 PAPER TAPE READER_.36_^1_%ALF 16,PSEUDO TAPE UNIT_435_^1_%ALF 16,1777 PAPER TAPE PUNCH_/37_^1_%ALF 16,1729-3 CARD READER_26_^1_%ALF 16,1733-1/853 DISK CCS 3.0 SYSTEM BUILD PROCEDURES 00010 00020 The following procedures show how transmittal materials from 00030 Development to I&E are compiled, assembled, and built into the 00040 CCS 3.0 customer delivery materials. The following is a list of 00050 materials transmitted to I&E. 00060 00070 The following items are diskettes: 00080 00090 1. NRZI Deadstart DTLP Flexible Diskette 00100 2. CCS 3 SMD Formatter Flexible Diskette 00110 00120 The following items are magnetic tapes: 00130 00140 3. CCS System DTLP Tape.(1 tape) 00150 4. CCS Build System File Reload - SYSVOL 00160 5. CCS Build System File Reload - SOURCE 00170 6. CCS Application RPG Cuddly 00180 7. LA Application RPG Cuddly 00190 8. CCS Data Files Tape 00200 9. ITK Update Test -Reactivate from SUMHIST 00210 10. ITK Update Test -Reactivate Inactive Accounts 00220 11. ITK UPDATE 400 -Nonfinancial Update 00230 12. ITK UPDATE 500 -Financial Update, Promise to Pay 00240 13. ITK UPDATE 500 -Financial Update, Payment Stacking 00250 14. ITK L/A UPDATE -Writeoff 10 Accounts 00260 15. ITK L/A LUD500 -First Financial Update 00270 16. ITK L/A LUD500 -Second Financial Update 00280 17. PL50 L430 CYBER CROSS Tape (see note) 00290 18. PL61 L446 CCP1.0 Tape (see note) 00300 00310 (NOTE: These are backup copies of the CCP1.0 tapes from the 00320 Sunnyvale Cyber 74 tape library. 00330 00340 Updated versions of the diskettes will be transmitted with Cycle II 00350 materials. These diskettes are the final Deadstart DTLP media 00360 included in the customer delivery materials. The tapes in items 00370 9 - 16 are data tapes which are included in the final customer 00380 delivery materials. 00390 00400 The items in 1-16 above are used in the following procedure to 00410 create the final two pieces of the customer delivery materials: 00420 the Operating System Install (DTLP) tape and the System Install 00430 (EDTLP) tapeB  3qv. Briefly, the procedure consists of five phases. 00440 00450 A. Create Build System 00460 B. Generate Listings and Install Tapes 00470 C. System Installation 00480 D. DTLP Generation 00490 E. EDTLP Generation 00500 00510 00520 In addition to the materials above, the following materials are 00530 required: 00540 00550 1. Two 1867-20 SMD Disk Pack 00560 2. 12 blank (new) tapes, used for intermediate and final output 00570 of procedures. Operator will be prompted to mount and label 00580 each tape when required. 00590 00600 The entire procedure should be executed on the following minimal 00610 hardware configuration: 00620 00630 1. Cyber 18-25 00640 2. 1811-2 Console 00650 3. 1860-4 or 1860-5 tape drive 00660 4. 1867-20 SMD Drive 00670 5. 1827-32 or 1827-60 Printer 00680. 00690 A. CREATE BUILD SYSTEM 00700 00710 I. DTLP TAPE INSTALLATION 00720 00730 Two disk packs, formatted for 64 sectors/track, are required. 00740 The formatting procedure is described in the Installation 00750 Test Kit manual, Section 1 (use 12000 account CCS system). 00760 Perform the following procedure: 00770 00780 1. Mount DTLP build system tape on magnetic tape unit 0 and ready 00790 the unit. This is the DTLP tape supplied initially with the 00800 system but can be replaced by the latest CCS 3.0 system DTLP. 00810 00820 2. Load the DTLP deadstart material, and ready the unit. 00830 00840 NOTE 00850 00860 Use 25IPS material for the 25IPS system; use 50IPS for the 00870 50IPS system. 00880 00890 3. Press STOP, MASTER CLEAR, DEADSTART on the control panel. 00900 00910 4. The syst4  3rvem responds: 00920 00930 4 DIG. EQ. CODE FOR: 00940 MAG TAPE 00950 00960 5. Enter: 00970 00980 0480(CR) (for 25 inch-per-second system) 00990 0601(CR) (for 50 inch-per-second system) 01000 01010 6. The system responds: 01020 01030 4 DIG. EQ. CODE FOR.. 01040 MASS MEMORY 01050 01060 7. Enter: 01070 01080 0700 (CR) 01090 01100 8. The system responds: 01110 01120 SCRATCH SECTOR IS $C1 IS -- xxxx 01130 TYPE LOAD FOR TAPE-TO-DISK, SAVE FOR DISK-TO-TAPE 01140 OR CARRIAGE RETURN 01150 01160 9. Enter: 01170 01180 LOAD (CR) 01190 01200 10. The system responds: 01210 01220 INPUT TAPE ON UNIT 0. READY 01230 01240 11. Enter: 01250 01260 (CR) 01270 01280 12. Upon completion the system responds: 01290 01300 xxxx SECTORS LOADED 01310 TYPE V FOR VERIFY, A FOR AUTOLOAD, 01320 OR CARRIAGE RETURN TO RESTART 01330 01340 13. Enter: 01350 01360 V (CR) 01370 01380 14. The system responds: 01390 V(  3sw 01400 VERIFY TAPE ON UNIT 0. READY? 01410 01420 15. Enter: 01430 01440 (CR) when the tape is at load point and ready. 01450 01460 16. Upon completion, the system responds; 01470 01480 xxxx SECTORS VERIFIED, 01490 TYPE V FOR VERIFY, A FOR AUTOLOAD, 01500 OR CARRIAGE REURN TO RESTART 01510 01520 17. Autoload the system 01530 01540 18. Press STOP, MASTERCLEAR, AUTOLOAD, and RUN on the control panel. 01550 01560 19. The system responds: 01570 01580 CCS 3.0 -- PSR LEVEL 138 mm/dd/yy 01590 nnnk BYTES OF MEMORY - CPUI 01600 nnnnk BYTES OF MEMORY - CPUII 01610 SYSTEM CONFIGURED FOR USE OF 1860-x MAG TAPES 01620 SET PROGRAM PROTECT (ESC J28@) 01630 01640 20. Enter: 01650 01660 (ESC) J28@ 01670 01680 21. The system responds: 01690 01700 CCS 3.0 (MM/DD/YY) 01710 01720 ENTER DATE/TIME MMDDYYHHMM 01730 01740 22. Enter the date and the time and press (CR). 01750 01760 23. The system responds 01770 01780 CP STARTED 0000 01790 DATE: 17 APR 79 TIME:1557:00 01800. 01810 01820 II. INITIALIZE SYSTEM VOLUME 01830 01840 The following procedure initializes the system volume: 01850 01860 1. Perform a manual interrupt. (CONTROL G) 01870 M  3tw 01880 2. The system responds: 01890 01900 MI 01910 > 01920 01930 3. Enter: 01940 01950 INIT (CR) 01960 01970 4. The system responds: 01980 01990 WARNING: ALL SYSTEM VOLUME FILES WILL BE PURGED 02000 02010 5. Enter: 02020 02030 OK (CR) 02040 02050 6. The system responds: 02060 02070 REQUEST COMPLETE 02080 02090 7. Perform a manual interrupt. 02100 02110 8. The system responds: 02120 02130 MI 02140 > 02150 02160 9. Enter: 02170 02180 START (CR) 02190 02200 10. The system responds: 02210 02220 BUILDING SYSTEM FILES 02230 CCS ACTIVE AT HHMM 02240. 02250 III. SET HOST LOGICAL UNIT 02260 02270 At this point, the logical unit number of the host must be set. This 02280 is accomplisted by the following steps at the master console: 02290 02300 Log-on +(CR) 02310 User-id (CR) 02320 REQUEST = UT(CR) 02330 READY > SET (CR) 02340 HO = > LOCL (CR) 02350 LU = > 13 (C~m  3uw0R) 02360 READY EX (CR) 02370 END UTIL 02380 02390 REQUEST = > EX (CR) 02400 02410 The following message is displayed to the master terminal. 02420 02430 CCS LOG OFF HH:MM:SS 02440. 02450 02460 IV. RELOADING CCS BUILD SYSTEM FILES 02470 02480 After the operating system is loaded, the data files required to 02490 generate the system must be loaded from tape. Two tapes are 02500 provided for this purpose. The first tape is labeled "System Data 02510 File Reload - SYSVOL"; the second tape is labeled "System Data File 02520 Reload - SOURCE". 02530 02540 1. At the master console, log into the system with CCS20 userid. 02550 02560 2. Mount SOURCE disk on unit 1. 02570 02580 3. Mount tape labeled "System Data File Reload - SYSVOL" on tape 02590 unit 0 and ready unit. 02600 02610 4. Enter UTIL and respond with the following: 02620 02630 READY RELOAD (CR) 02640 FN = (CR) 02650 OW = (CR) 02660 VL = SYSVOL (CR) 02670 I = TAPE0 (CR) 02680 02690 The files will reload from tape and the console will display 02700 name and owner as they are reloaded. See Appendix B for 02710 expected files to be loaded. 02720 02730 5. When the first tape has completed the reload, mount the tape 02740 labeled "System Data File Reload - SOURCE -" on unit 0 and ready 02750 the unit. (Disk pack for volume SOURCE should be on disk 02760 drive unit 1.) 02770 Enter UTIL to init and mount volume SOURCE with the following: 02780 READY INIT 02790 VL = SOURCE 02800 NF = 256 02810 DK = 1 02820 02830 REG,  3vwDADY MOUNT 02840 VL = SOURCE 02850 DK = 1 02860 02870 6. Enter UTIL and respond with the following: 02880 02890 READY RELOAD (CR) 02900 FN = (CR) 02910 OW = (CR) 02920 VL = SOURCE (CR) 02930 I = TAPE0(CR) 02940 02950 See Appendix B for expected files to be reloaded. 02960 02970 7. REQUEST = EX (CR) 02980 02990 CCS LOG OFF HH:MM:SS 03000 03010 8. Build system installation is complete. You may now proceed with 03020 the procedure to generate listings and install tapes. 03030. 03040 B. GENERATE LISTINGS AND INSTALL TAPES 03050 03060 1. Before compiliation and assembly of programs can begin, the 03070 CCS remote batch utility must be activated: 03080 03090 MI 03100 *BATCH,F 03110 03120 2. Two processes must be compiled at remote computer systems. These 03130 are: 03140 03150 . MICRO Assembler programs are compiled on House I system. 03160 03170 . Communications Processor programs are to be compiled at 03180 the SVLOPS system. 03190 03200 3. MICRO Assembler Procedure 03210 03220 a. Mount scratch tape labeled "MICRO Assembler Programs" on 03230 unit 0 and ready unit. 03240 03250 b. Under UTIL, batch CCSMIC.J 03260 03270 READY BATCH (CR) 03280 FN = CCSMIC.J (CR) 03290 OW = (CR) 03300 VL = (CR) 03310 HOAo  3wwX = (CR) 03320 TY = N(CR) 03330 03340 c. When CCSMIC.J has completed, submit tape labeled "MICRO 03350 Assembler Programs" plus one scratch tape labeled "MICRO 03360 Assembler Program Binaries" to House I for processing. 03370 03380 d. Tapes are to be mounted as follows: 03390 03400 LU TAPE 03410 6 "MICRO Assembler Programs" (9 track) 03420 16 "MICRO Assembler program Binaries"(9 track) 03430 03440 e. Start assembly on House I by: 03450 03460 MI 03470 *BATCH,6 03480 03490 f. At completion, the following message will appear: 03500 03510 "*CTO,MICRO ASSEMBLY COMPLETE". 03520 03530 Dismount tapes and hold for use in later processes. 03540 03550 4. Communications Processor Procedure 03560 03570 This procedure describes the process for creating a CCS 03580 compatable install file of the communications processor 03590 from the PL61 standard release tape for CCP1.0 2550 software. 03600 The first part of this process is run on the Cyber 74 at 03610 SVLOPS using the HOUSE 8 communications terminal. The second 03620 part is run on the HOUSE 1 computer. The data files and 03630 procedure streams (JCL) must initially be loaded from the 03640 CCS machine. CCSCP.J performs that process. 03650 03660 a. Have two scratch tapes available; one labeled "CCP Host 03670 Procedure" and the other labeled "CCP House1 Procedure". 03680 03690 b. Under UTIL, batch CCSCP.J 03700 03710 READY BATCH (CR) 03720 FN = CCSCP.J (CR) 03730 OW = (CR) 03740 VL = (CR) 03750 HO = (CR) 03760 TY = N(CR) 03770 03780 c. When CCSCP.J has completed dismount both tapes and 03790 hold8  3xwl for later processing. Schedule time on the HOUSE 8 03800 communications terminal. If time is not immediately available 03810 you may proceed to step 4 of this procedure but return to 03820 this step as soon as possible. 03830 03840 d. Using the House 8 communication terminal, initiate the 03850 compilation of the CCP 1.0 software as follows: 03860 . Set terminal for 2000 baud. 03870 . Load controlware. Place 2000 baud controlware deck 03880 in card reader and make ready. 03890 . STOP 03900 . MASTER CLEAR 03910 . Autoload 03920 03930 If necessary, ask the operator to reload the terminal. 03940 Press the 'TALK' button on the modem and dial 03950 9-1-408-734-7197 03960 When the tone sounds, press the 'DATA' button on the modem. 03970 Wait for 'PLEASE LOGIN' message to appear on the screen. 03980 03990 e. Enter the following: 04000 04010 . LOGIN,CINDY,041253305,SUP (SEND) 04020 . System responds with COMMAND 04030 . SCREEN,80,13 (SEND) 04040 (mount tape labeled "CCP Host Procedure" on the 04050 top tape drive and ready unit) 04060 . INP=M1 (STX) 04070 . LOAD (STX) 04080 . WAIT,CR1 (SEND) 04090 . GO,CR1 (SEND) 04100 (tape will be read; process will take several minutes. 04110 The COMMAND prompt will appear when the process is 04120 complete). 04130 . FILES (SEND) 04140 (This command will show the status of remote jobs. The 04150 following jobs will appear in the Remote input or Exec- 04160 uting queues: CJOB0aa,CJOB0Abb,CJOB1cc,CJOB2dd, 04170 CJOB3ee,CJOB4ff. Host system appends aa,bb,etc. to job 04180 names.) 04190 . LOGOUT (SEND) 04200 . Press 'TALK' on the modem, pick up phone and hang up. 04210 . This six step job stream will take from several hours to 04220 a day to complete depending to the Cyber 170 04230 load. Log in periodically and check the status of the 04240 six jobs with the FILES (SEND) command. 04250 (when all six jobs have completed and are in the output 04260 queue, continue...). 04270 . O  3ywMount tape labeled "CCP Host Output" on top unit and 04280 ready drive. 04290 . OUT=M1 (STX) 04300 . DEFINE,LP1,FCMT (SEND) 04310 . ON,LP1 (SEND) 04320 (Will write to tape, takes ten minutes. Device status 04330 will be displayed when process is complete. 04340 . TM,1,WF,2 (US) 04350 (Will write 2 files marks to tape) 04360 . OFF,LP1 (SEND) 04370 . OUT= LP1 (STX) 04380 . DEFINE,LP1 (SEND) 04390 . ON,LP1 (SEND) 04400 (Printer will produce a six inch list - will take about 04410 several hours. When all jobs have completed printing, 04420 log off as described above). 04430 04440 f. The next step must be run on HOUSE 4. It creates a CCS 04450 compatable install file of the communications processor 04460 on tape which is used by a later process. The required 04470 tapes are labeled: 04480 . CCP Host Output 04490 . CCP HOUSE1 procedure 04500 . CCP Install File 04510 . scratch tapes(2) 04520 04530 g. Mount scratch tape on unit 2 (lu=17). 04540 Mount 'CCP HOUSE1 PROCEDURE' on unit 0 (lu=6). 04550 Copy unit 0 to unit 2 via LIBEDT as follows: 04560 MI 04570 *BATCH,4 04580 *JOB 04590 *LIBEDT 04600 *T,6,A,17,A,,1 04610 *Z 04620 *REW,17 04630 *Z 04640 04650 Begin processing by entering: 04660 04670 MI 04680 *BATCH,17 04690 04700 h. This process will generate a new "CCP Install" tape. Retain 04710 this tape for later processing. 04720 04730 5. CCS Compilation 04740 04750 This steU  3zwp will compile all remaining programs in CCS. Total 04760 machine time required for this step is approximately 50 hours. 04770 Each of the 10 jobs should be submitted after successful 04780 completion of the previous job. 04790 04800 a. Under UTIL, batch CCSMSO.J - Compiles MSOS programs - 8 hours 04810 04820 READY BATCH (CR) 04830 FN = CCSMSO.J (CR) 04840 OW = (CR) 04850 VL = (CR) 04860 HO = (CR) 04870 TY = N (CR) 04880 04890 b. Under UTIL, batch CCSITO.J - compiles ITOS programs - 12 hour 04900 04910 READY BATCH (CR) 04920 FN = CCSITO.J (CR) 04930 OW = (CR) 04940 VL = (CR) 04950 HO = (CR) 04960 TY = N (CR) 04970 04980 c. Under UTIL, batch CCSDVR.J - Compiles driver programs - 04990 3 hours. 05000 05010 READY BATCH (CR) 05020 FN = CCSDVR.J (CR) 05030 OW = (CR) 05040 VL = (CR) 05050 HO = (CR) 05060 TY = N (CR) 05070 05080 d. Under UTIL, batch CCSASM.J - Compiles assembler programs - 05090 1/2 hour. 05100 05110 READY BATCH (CR) 05120 FN = CCSASM.J (CR) 05130 OW = (CR) 05140 VL = (CR) 05150 HO = (CR) 05160 TY = N (CR) 05170 05180 e. Under UTIL, batch CCSFTN.J - Compiles Fortran - 8 hours 05190 05200 READY BATCH (CR) 05210 FN = CCSFTN.J (CR) 05220 OW = (CR) 05230 VL)  3{w = (CR) 05240 HO = (CR) 05250 TY = N (CR) 05260 05270 f. Under UTIL, batch CCSRPG.J - Compile RPG - 10 hours 05280 05290 READY BATCH (CR) 05300 FN = CCSRPG.J (CR) 05310 OW = (CR) 05320 VL = (CR) 05330 HO = (CR) 05340 TY = N (CR) 05350 05360 g. Under UTIL, batch CCSAPF.J - Compiles CCS Fortran 05370 application programs - 3 hours 05380 05390 READY BATCH (CR) 05400 FN = CCSAPF.J (CR) 05410 OW = (CR) 05420 VL = (CR) 05430 HO = (CR) 05440 TY = N (CR) 05450 05460 h. Under UTIL, batch LAAPF.J - Compiles L/A Fortran 05470 application programs - 3 1/2 hours 05480 05490 READY BATCH 05500 FN = LAAPF.J 05510 OW = (CR) 05520 VL = (CR) 05530 HO = (CR) 05540 TY = N (CR) 05550 05560 i. Under UTIL,batch CCSAPR.J - Compiles CCS RPG 05570 application programs -1/2 hour, requires RPG Cuddly tape. 05580 05590 READY BATCH (CR) 05600 FN = CCSAPR.J (CR) 05610 OW = (CR) 05620 VL = (CR) 05630 HO = (CR) 05640 TY = N (CR) 05650 05660 j. Under UTIL, batch LAAPR.J - Compiles L/A RPG 05670 application programs - 1 hour, requires RPG Cuddly tape. 05680 05690 READY BATCH (CR) 05700 FN = LAAPR.J (CR) 05710 OW  3|w = (CR) 05720 VL = (CR) 05730 HO = (CR) 05740 TY = N (CR) 05750 05760 k. This step is complete. Go get some coffee. 05770. 05780 6. INSTALL TAPE GENERATION 05790 05800 The file INSTAL.J generates install tapes for all skeletons in 05810 the file MASTER.K against the binaries found in the file 05820 MASTER.B. Therefore, MASTER.K and MASTER.B must be loaded prior 05830 to batching INSTAL.J. Two separate batch executions of INSTAL.J 05840 must be run because all CCS binaries will not fit on maximum 05850 scratch available. 05860 05870 MASTER.B is loaded by batching MERGE1.J or MERGE2.J. 05880 05890 a. Under UTIL, batch MERGE1.J 05900 05910 READY BATCH (CR) 05920 FN = MERGE1.J (CR) 05930 OW = (CR) 05940 VL = (CR) 05950 HO = (CR) 05960 TY = N (CR) 05970 05980 The folowing binary files will be loaded into MASTER.B: 05990 06000 Type From file 06010 ---- --------- 06020 MSOS .................. CCSMSO.B 06030 ITOS .................. CCSITO.B 06040 DRIVERS ............... CCSDVR.B 06050 ASSEMBLY .............. CCSASM.B 06060 FORTRAN ............... CCSFTN.B 06070 CCS application FTN ... CCSAPF.B 06080 CCS application RPG ... CCSAPR.B 06090 06100 06110 b. The skeletons for the install tapes are loaded into MASTER.K 06120 by performing the following under UTIL: 06130 06140 READY CLEAR (CR) ** NOTE ** Each time MASTER.B is 06150 FN = MASTER.K (CR) loaded, it must first be 06160 VL = SYSVOL (CR) cleared. The ".N" jobs append 06170 to the existing contents. 06180 READY BATCH (CR) 06190 FN  3}[AL[P CCS20 A,$16,$D0A,$16,$D0A,0,0/_^11_]_^1C_#INTIALIZE LAST BLOCK FLAG AND OUTPUT LINE COUNTER._^1_$LASTBL = 0_^1_$LC = 0_^1C_#INITIALIZE RETURN VALUE FOR DISPLAY OF ADDITIONAMON01 DCK/ I,H 00010LEGAL DCK/ I,H 00020LPGGEN DCK/ I,H 00030LUD400 DCK/ I,H 00040LUPDAT DCK/ I,H 00050LUD500 DCK/ I,H 00060MON02 DCK/ I,H 00070CLXTRT DCK/ I,H 00080LACLPG DCK/ I,H 00090LACTAD DCK/ I,H 00100LACTMT DCK/ I,H 00110LAHEAD DCK/ I,H 00120LAVMCN DCK/ I,H 00130LAVMDP DCK/ I,H 00140LAXTRT DCK/ I,H 00150LBATUD DCK/ I,H 00160LBLDSR DCK/ I,H 00170LCCSSP DCK/ I,H 00180LCHUD2 DCK/ I,H 00190LCLIUD DCK/ I,H 00200LCMPDQ DCK/ I,H 00210LCMPSM DCK/ I,H 00220LDACRT DCK/ I,H 00230LIDACR DCK/ I,H 00240LDAQEL DCK/ I,H 00250LDECMT DCK/ I,H 00260LDHUPD DCK/ I,H 00270LFTND1 DCK/ I,H 00280LLTBLD DCK/ I,H 00290LLTPRT DCK/ I,H 00300LLTSTA DCK/ I,H 00310LMHUPD DCK/ I,H 00320LNMCHG DCK/ I,H 00330LPGBLK DCK/ I,H 00340LPGCT1 DCK/ I,H 00350LPGCT2 DCK/ I,H 00360LPGEN0 DCK/ I,H 00370LPGEN1 DCK/ I,H 00380LPGEN3 DCK/ I,H 00390LPGLST DCK/ I,H 00400LPGLTB DCK/ I,H 00410LPGN2E DCK/ I,H 00420LPGN2P DCK/ I,H 00430LPGPRG DCK/ I,H 00440LPHDL1 DCK/ I,H 00450LPHDL2 DCK/ I,H   3~[ 00460LPRNTT DCK/ I,H 00470LPRSCN DCK/ I,H 00480LPRTSR DCK/ I,H 00490LQLOAD DCK/ I,H 00500LRTVD1 DCK/ I,H 00510LSUMAC DCK/ I,H 00520LTRNDF DCK/ I,H 00530LTRNDU DCK/ I,H 00540LTRPLY DCK/ I,H 00550LUSEMT DCK/ I,H 00560LUTFMT DCK/ I,H 00570LWROFE DCK/ I,H 00580MON03 DCK/ I,H 00590CLIMAC DCK/ I,H 00600CLCHNG DCK/ I,H 00610CLDISP DCK/ I,H 00620CLIDAT DCK/ I,H 00630CLIENT DCK/ I,H 00640CLMAIN DCK/ I,H 00650CLNAME DCK/ I,H 00660MON04 DCK/ I,H 00670LEGMAC DCK/ I,H 00680FLEGAL DCK/ I,H 00690LACTED DCK/ I,H 00700LBLKDT DCK/ I,H 00710LCHEKQ DCK/ I,H 00720LCHENT DCK/ I,H 00730LCHSCR DCK/ I,H 00740LCLANX DCK/ I,H 00750LDAASC DCK/ I,H 00760LDSPLY DCK/ I,H 00770LEACTS DCK/ I,H 00780LEATRN DCK/ I,H 00790LNMSRC DCK/ I,H 00800LPCPRC DCK/ I,H 00810LPKAMT DCK/ I,H 00820LSVTRN DCK/ I,H 00830PAYENT DCK/ I,H 00840MON05 DCK/ I,H 00850UPDMAC DCK/ I=24,H 00860LAFUPD DCK/ I,H 00870LAUBLK DCK/ I,H 00880LAUNCU DCK/ I,H 00890MON06 DCK/ I,H 00900UP4MAC DCK/ I=24,H 00910LU4BLK DCK/ I,H 00920MON07 DCK/ I,H 00930ZLA83 DCK/ I,H s  3[ 00940ZLA84 DCK/ I,H 00950ZLA85 DCK/ I,H 00960ZLA86 DCK/ I,H 00970ZLA87 DCK/ I,H 00980ZLA88 DCK/ I,H 00990ZLA89 DCK/ I,H 01000ZLA90 DCK/ I,H 01010ZLA91 DCK/ I,H 01020ZLA92 DCK/ I,H 01030 END/ 01040_ @  3\  3\&  3\:  3\N  3\b m  3\v X  3\ C  3\ FER SIZE IS 80 BYTES. THE DIMENSIONED BUFFER SIZE_^1C_#MUST BE A LEAST ELEVEN BYTES LARGER TO ALLOW FOR OVERFLOW FROM THE_^1C_#EAL\P CCS20 ING IN COMMON MACRO._^11_]_^1M_#LEGMAC_^11_]_^1C_#LOCAL VARIABLES._^1_$INTEGER ASCNIN(5),ASCZER(5),AVALSP,CLRCUT,EDTLEN(10),LENSAV,NEEDSP_^1_$INTEGER NOINP,NXTBYT,SDE*JOB 00010*CTO,...FILE: LAAPF.J 00020*CTO, RUN TO COMPILE L/A ASEMBLER/FORTRAN PROGRAMS 00030*OPEN,FN=LAAPF.U,VL=SOURCE,OW=CCS20,LU=20,R 00040*OPEN,FN=LAAP.C,VL=SOURCE,OW=CCS20,LU=21,R 00050*OPEN,FN=SCRATCH,VL=SOURCE,OW=CCS20,LU=22,W 00060*OPEN,FN=LAAPF.B,VL=SOURCE,OW=CCS20,LU=23,W 00070*OPEN,FN=CCSAP.C,VL=SOURCE,OW=CCS20,LU=24,R 00080*K,I20 00090*CSY,I21,P22 00100*COSY 00110*K,I22,P23,L9 00120*CTO, MON01 GROUP BEING ASSEMBLED. 00130*ASSEM 00140*K,L12 00150*CTO, MON02 GROUP BEING COMPILED. 00160*FTN 00170*CTO, MON03 GROUP BEING COMPILED. 00180*FTN 00190*CTO, MON04 GROUP BEING COMPILED. 00200*FTN 00210*CTO, MON05 GROUP BEING COMPILED. D  3\ 00220*FTN 00230*CTO, MON06 GROUP BEING COMPILED. 00240*FTN 00250*CTO, MON07 GROUP BEING COMPILED. 00260*FTN 00270*CTO,COMPILE OF L/A ASSEMBLER/FORTRAN PROGRAMS COMPLETE. 00280*K,L14 00290_ PASS A FILLED OUTPUT BUFFER TO FIELD TYPE PROCES_^1C_#SING ROUTINES._^1 40 CALL CCSMVA(XYWORDAL+\P CCS20 ^1_$NXTBYT = NXTBYT + 2_^1_$CALL CCSMVA(SDEF(J),ONE,TWO,OBUF,NXTBYT,TWO)_^1_$NXTBYT = NXTBYT +2_^1_$ASSIGN 60 TO IRTN_^1C_#WRITE OUTPUT BUFFER._^1_$GO TO 400_^11_]_^1CHUPD1 DCK/ I,H 00010COLCHG DCK/ I,H 00020COLSTS DCK/ I,H 00030DALIST DCK/ I,H 00040DTLLST DCK/ I,H 00050ITKDTL DCK/ I,H 00060PGCMPR DCK/ I,H 00070PGLIST DCK/ I,H 00080PGUPTB DCK/ I,H 00090TIMUSE DCK/ I,H 00100TRENDP DCK/ I,H 00110UPD500 DCK/ I,H 00120WRTOFP DCK/ I,H 00130ZCCS16 DCK/ I,H 00140ZCCS17 DCK/ I,H 00150ZCCS18 DCK/ I,H 00160ZCCS19 DCK/ I,H 00170ZCCS20 DCK/ I,H 00180 END/ 00190_ v  3\   3\ ISTAT=SCREEN_^1C_#REPORT ERROR. ERROR FATAL, CLOSE ALL FILES ANDAL@\P CCS20 TSC,J,ISTAT,LU)_^1_$CALL LCLANX_^12_]_^1C_#OUTPUT COMPLETE. NORMAL TERMINATION._^1C_#RETRIEVE CHANGE SCREEN FIELD DESCRIPTIONS IF REQUIRED._^1 900 IF(SCREEN.EQ.33.AN*JOB 00010*CTO,...FILE: CCSAPR.J 00020*CTO,CCS APPLICATION RPG BINARY GENERATION. 00030*CTO, CCS CUDDLY TO HOLLERITH 00040*OPEN,FN=CCSAPR.U,OW=CCS20,VL=SOURCE,LU=20,R 00050*OPEN,FN=CCSAPR.B,OW=CCS20,VL=SOURCE,LU=21,W 00060*OPEN,FN=RPG.92.T,OW=CCS20,VL=SOURCE,LU=22,W 00070*CTO,MOUNT CCS 3.O CUDDLY TAPE ON UNIT 0 00080*PAUS 00090*K,I20 00100*CSY,I6,P22 00110*CUDDLY 00120*CTO, CUDDLY TO HOLERITH DONE 00130*CTO, PUNCH CCS RPG BINARIES 00140*K,I22,L12,P21 00150*RPGII 00160*RBDPCH 00170*RPGII 00180*RBDPCH 00190*RPGII 00200*RBDPCH 00210*RPGII 00220*RBDPCH 00230*RPGII 00240*RBDPCH 00250*RPGII 00260*RBDPCH 00270*RPGII 00280*RBDPCH q  3\ 00290*RPGII 00300*RBDPCH 00310*RPGII 00320*RBDPCH 00330*RPGII 00340*RBDPCH 00350*RPGII 00360*RBDPCH 00370*RPGII 00380*RBDPCH 00390*RPGII 00400*RBDPCH 00410*RPGII 00420*RBDPCH 00430*RPGII 00440*RBDPCH 00450*RPGII 00460*RBDPCH 00470*RPGII 00480*RBDPCH 00490*RPGII 00500*RBDPCH 00510*K,L14 00520*CTO,CCS APPLICATION BINARY GENERATION COMPLETE. 00530_ @  3]  3] 1_$IF(I.GT.0.AND.J.GE.0.AND.J.LE.MAXNCD) GO TO 385_^11_]_^11_]_^1C_#INVALID DATE_^1 355 CALL LDAL+]!P CCS20 TO 325_^11_]_^1C_#ACTION = SR. NCD AUTOMATICALLY SET ON TO NEXT DAY._^1 360 NCD=ICALJL(DATE,ONE)+1_^1_$GO TO 375_^11_]_^1C_#RESULT = PP. NCD AUTOMATICALLY SET TO A CCOMPAY DCK/ I,H 00010DIRPAY DCK/ I,H 00020INVCLI DCK/ I,H 00030INVCUS DCK/ I,H 00040LARPRT DCK/ I,H 00050LBATPT DCK/ I,H 00060LCHUD1 DCK/ I,H 00070LCOLCG DCK/ I,H 00080LCOLST DCK/ I,H 00090LDALST DCK/ I,H 00100LDTLST DCK/ I,H 00110LPGCMP DCK/ I,H 00120LPGLIS DCK/ I,H 00130LPGUTB DCK/ I,H 00140LTMUSE DCK/ I,H 00150LTRNDP DCK/ I,H 00160LUD50A DCK/ I,H 00170LUD50E DCK/ I,H 00180LWROFP DCK/ I,H 00190RECVRY DCK/ I,H u  3]* 00200ZLA21 DCK/ I,H 00210ZLA22 DCK/ I,H 00220ZLA23 DCK/ I,H 00230ZLA24 DCK/ I,H 00240ZLA25 DCK/ I,H 00250 END/ 00260_ j  3]> REQ.EQ.0) GO TO 300_^1C_#LETTER REQUIRED._^1_$CALL LDSPLY(EALTRQALU]LP CCS20 ]_^1C_#CHECK FOR NUMERIC ENTRY ON LETTER CODE._^1 160 CALL CCSGET(IOBUF,ONE,J)_^1_$CALL CCSGET(IOBUF,TWO,K)_^1_$IF(J.GE.$30.AND.J.LT.$3A.AND.K.GE.$30.AND.K.LT.$3A) G*JOB 00010*CTO,...FILE: LAAPR.J 00020*CTO,LEGAL/AGENCY RPG BINARY GENERATION. 00030*CTO, L/A CUDDLY TO HOLLERITH 00040*OPEN,FN=LAAPR.U,OW=CCS20,VL=SOURCE,LU=20,R 00050*OPEN,FN=LAAPR.B,OW=CCS20,VL=SOURCE,LU=21,W 00060*OPEN,FN=RPG.92.T,OW=CCS20,VL=SOURCE,LU=22,W 00070*CTO,MOUNT L/A 3.O CUDDLY TAPE ON UNIT 0 00080*PAUS 00090*K,I20 00100*CSY,I6,P22 00110*CUDDLY 00120l%  3]R*CTO, CUDDLY TO HOLERITH DONE 00130*CTO, PUNCH L/A RPG BINARIES 00140*K,I22,L12,P21 00150*RPGII 00160*RBDPCH 00170*RPGII 00180*RBDPCH 00190*RPGII 00200*RBDPCH 00210*RPGII 00220*RBDPCH 00230*RPGII 00240*RBDPCH 00250*RPGII 00260*RBDPCH 00270*RPGII 00280*RBDPCH 00290*RPGII 00300*RBDPCH 00310*RPGII 00320*RBDPCH 00330*RPGII 00340*RBDPCH 00350*RPGII 00360*RBDPCH 00370*RPGII 00380*RBDPCH 00390*RPGII 00400*RBDPCH 00410*RPGII 00420*RBDPCH 00430*RPGII 00440*RBDPCH 00450*RPGII 00460*RBDPCH 00470*RPGII 00480*RBDPCH 00490*RPGII 00500*RBDPCH 00510*RPGII 00520*RBDPCH 00530*RPGII 00540*RBDPCH 00550*RPGII 00560*RBDPCH 00570*RPGII 00580*RBDPCH 00590*RPGII 00600!  3]f*RBDPCH 00610*RPGII 00620*RBDPCH 00630*RPGII 00640*RBDPCH 00650*K,L14 00660*CTO,LEGAL/AGENCY RPG BINARY GENERATION COMPLETE. 00670_ Q  3]z G  3] ),_^1_#4_"STG(40),LTHACT(2)_^11_]_^1_$EXTERNAL FMRDEL_^11_]_^1_$DATA DEQREQ, ASNREQ / 48*0 /_^1_$DATA DDATA / 'LADLQMST', 8*$202AL]P CCS20 A / 'LADLYASN', 8*$2020, 0, 1, 0 /_^1_$DATA NUMREC / 23 /, ST / 0 /, EFG / 0 /, LTHACT / '0360' /_^1_$DATA QUE, PRI / 54*$2020 /_^1._]_^1C****_#SET UP THE DELQMST STA  3]*JOB,FILTAP,---------CREATE FILE INITIALIZATION AND LOAD TAPE 00010*CTO,...FILE: FILTAP.J 00020*CTO, THIS JOB WILL CREATE THE FILE INITIALIZATION AND LOAD TAPE 00030*CTO, MOUNT OUTPUT TAPE ON UNIT '1' 00040*CTO, MOUNT CCS APPLICATION RPG CUDDLY TAPE ON UNIT '0' 00050*PAUS 00060*OPEN,FN=CCSPAM.C,OW=CCS20,R,LU=20 00070*OPEN,FN=CCSAP.C,OW=CCS20,R,LU=21 00080*OPEN,FN=LAAP.C,OW=CCS20,R,LU=22 00090*OPEN,FN=CCSAPF.B,OW=CCS20,R,LU=23 00100*OPEN,FN=LAAPF.B,OW=CCS20,R,LU=24 00110*OPEN,FN=MASTER.B,OW=CCS20,W,LU=25 00120*CSY,I20,P16 00130*K,P16 00140*COSY 00150PSC00 DCK/ I,H 00160LODDAC DCK/ I=13,H 00170LODDAC HOL/ 00180SFDACRTECCS20 00190 END/ 00200DACRTE DCK/ I=21,H 00210R9BASE DCK/ I=21,H 00220R9FLDL DCK/ I=21,H 00230 END/ 00240*ADF,16,1 00250*BSR,16,2 00260*EOF 00270*CUDDLY 00280LODDTL DCK/ I=13,H 00290LODDTL HOL/ 00300SRDTLLSTCCS20 00310 END/ 00320DTLLST DCK/ I=6,H 00330 END/ 00340*UNL,6 00350*CTO, DISMOUNT CCS APPLICATION CUDDLY FROM TAPE UNIT '0' AND 00360*CTO, MOUNT LA APPLICATION CUDDLY TAPE ON UNIT '0' 00370*ADF,16,2 00380*BSR,16,1 00390*EOF 00400*COSY 00410LODLDA DCK/ I=13,H 00420LODLDA HOL/ 00430SFLDACRTLA 00440 END/ 00450LDACRT DCK/ I=22,H 00460R9BASE DCK/ I=21,H 00470R9FLDL DCK/ I=21,H 00480}  3] END/ 00490*ADF,16,3 00500*BSR,16,2 00510*EOF 00520*COSY 00530LODLAX DCK/ I=13,H 00540LODLAX HOL/ 00550SFLAXTRTLA 00560 END/ 00570LAXTRT DCK/ I=22,H 00580 END/ 00590*ADF,16,4 00600*BSR,16,2 00610*EOF 00620*CTO, LA APPLICATION CUDDLY TAPE ON UNIT '0'? 00630*PAUS 00640*CUDDLY 00650LODLDT DCK/ I=13,H 00660LODLDT HOL/ 00670SRLDTLSTLA 00680 END/ 00690LDTLST DCK/ I=6,H 00700 END/ 00710*ADF,16,5 00720*BSR,16,1 00730*EOF 00740*CUDDLY 00750LODLAR DCK/ I=13,H 00760LODLAR HOL/ 00770SRLARPRTLA 00780 END/ 00790LARPRT DCK/ I=6,H 00800 END/ 00810*ADF,16,6 00820*BSR,16,1 00830*EOF 00840*COSY 00850LODDIS DCK/ I=13,H 00860LODDIS HOL/ 00870DISCQT 00880 END/ 00890DISCQT DCK/ I,H 00900 END/ 00910*ADF,16,7 00920*BSR,16,2 00930*EOF 00940*COSY 00950LODUPI DCK/ I=13,H 00960P  3]LODUPI HOL/ 00970UPDATE.ICCS20 00980 END/ 00990UPDATI DCK/ I,H 01000 END/ 01010*ADF,16,8 01020*BSR,16,2 01030*EOF 01040*COSY 01050LODLUP DCK/ I=13,H 01060LODLUP HOL/ 01070LUPDAT.ILA 01080 END/ 01090LUPDTI DCK/ I,H 01100 END/ 01110*ADF,16,9 01120*BSR,16,2 01130*EOF 01140*UNL,6 01150*CTO, DISMOUNT LA APPLICATION CUDDLY TAPE FROM UNIT '0' AND MOUNT 01160*CTO, DATA FILES TAPE ON UNIT '0' 01170*REW,7 01180*COSY 01190LODUPB DCK/ I=13,H 01200LODUPB HOL/ 01210UPDATE.BCCS20 01220 END/ 01230UPDATS DCK/ I,H=7 01240 END/ 01250*ADF,16,10 01260*BSR,16,2 01270*CTO, PROPER RESPONSES TO THE NEXT THREE PROMPTS ARE: 01280*CTO, 1. '13(CR)' 01290*CTO, 2. '(CR)' 01300*CTO, 3. '*Z(CR)' 01310*LIBILD 01320 0133025 01340 0135023 01360 013707 01380*K,P25 01390*EOF 01400*K,P16 01410*REW,25 01420*LIBEDT 01430*T,25,B,16,B,,1 01440Go  3\AL\P CCS20 ING IN COMMON MACRO._^11_]_^1M_#LEGMAC_^11_]_^1C_#LOCAL VARIABLES._^1_$INTEGER ASCNIN(5),ASCZER(5),AVALSP,CLRCUT,EDTLEN(10),LENSAV,NEEDSP_^1_$INTEGER NOINP,NXTBYT,SDE*JOB 00010*CTO,...FILE: LAAPF.J 00020*CTO, RUN TO COMPILE L/A ASEMBLER/FORTRAN PROGRAMS 00030*OPEN,FN=LAAPF.U,VL=SOURCE,OW=CCS20,LU=20,R 00040*OPEN,FN=LAAP.C,VL=SOURCE,OW=CCS20,LU=21,R 00050*OPEN,FN=SCRATCH,VL=SOURCE,OW=CCS20,LU=22,W 00060*OPEN,FN=LAAPF.B,VL=SOURCE,OW=CCS20,LU=23,W 00070*OPEN,FN=CCSAP.C,VL=SOURCE,OW=CCS20,LU=24,R 00080*K,I20 00090*CSY,I21,P22 00100*COSY 00110*K,I22,P23,L9 00120*CTO, MON01 GROUP BEING ASSEMBLED. 00130*ASSEM 00140*K,L12 00150*CTO, MON02 GROUP BEING COMPILED. 00160*FTN 00170*CTO, MON03 GROUP BEING COMPILED. 00180*FTN 00190*CTO, MON04 GROUP BEING COMPILED. 00200*FTN 00210*CTO, MON05 GROUP BEING COMPILED. 00220*FTN 00230*CTO, MON06 GROUP BEING COMPILED. 00240*FTN 00250*CTO, MON07 GROUP BEING COMPILED. 00260*FTN 00270*CTO,COMPILE OF L/A ASSEMBLER/FORTRAN PROGRAMS COMPLETE. 00280*K,L14 00290_ PASS A FILLED OUTPUT BUFFER TO FIELD TYPE PROCES_^1C_#SING ROUTINES._^1 40 CALL CCSMVA(XYWORDAL+\P CCS20 ^1_$NXTBYT = NXTBYT + 2_^1_$CALL CCSMVA(SDEF(J),ONE,TWO,OBUF,NXTBYT,TWO)_^1_$NXTBYT = NXTBYT +2_^1_$ASSIGN 60 TO IRTN_^1C_#WRITE OUTPUT BUFFER._^1_$GO TO 400_^11_]_^1CHUPD1 DCK/ I,H 00010COLCHG DCK/ I,H 00020COLSTS DCK/ I,H 00030DALIST DCK/ I,H 00040DTLLST DCK/ I,H 00050ITKDTL DCK/ I,H 00060PGCMPR DCK/ I,H 00070PGLIST DCK/ I,H 00080PGUPTB DCK/ I,H 00090TIMUSE DCK/ I,H 00100TRENDP DCK/ I,H 00110UPD500 DCK/ I,H 00120  3\WRTOFP DCK/ I,H 00130ZCCS16 DCK/ I,H 00140ZCCS17 DCK/ I,H 00150ZCCS18 DCK/ I,H 00160ZCCS19 DCK/ I,H 00170ZCCS20 DCK/ I,H 00180 END/ 00190_ ?'  3qNALjqNO CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmSYSDAT DCK/ I,H 00010MMEXEC DCK/ I,H 00020PORTS DCK/ I,H 00030PARAME DCK/ I,H 00040T16 DCK/ I,H 00050DTIMER DCK/ I,H 00060TMINT DCK/ I,H 00070MAKQ DCK/ I,H 00080RW DCK/ I,H 00090NMONI DCK/ I,H 00100NIPROC DCK/ I,H 00110TRVEC DCK/ I,H 00120OFVOL DCK/ I,H 00130ALVOL DCK/ I,H 00140ALCORE DCK/ I,H 00150NCMPRQ DCK/ I,H 00160NFNR DCK/ I,H 00170ADEV DCK/ I,H 00180TOD DCK/ I,H 00190T14 DCK/ I,H 00200EFDATA DCK/ I,H 00210DUMMY DCK/ I,H 00220DMTSIM DCK/ I,H 00230LIBEDT DCK/ I,H 00240LOAD1 DCK/ I,H 00250BRNCH1 DCK/ I,H 00260LIDRV1 DCK/ I,H 00270LCDRV1 DCK/ I,H 00280LMDRV1 DCK/ I,H 00290LLDRV1 DCK/ I,H 00300ADJOF1 DCK/ I,H 00310CNVRT1 DCK/ I,H 00320LSTOT1 DCK/ I,H 00330LINK11 DCK/ I,H 00340LOADR1 DCK/ I,H 00350NAMPR1 DCK/ I,H 00360RBDBZ1 DCK/ I,H 00370ENTEX1 DCK/ I,H 00380XFRPR1 DCK/ I,H 00390STBASE DCK/ I,H 00400LNKENT DCK/ I,H 00410LNKCR1 DCK/ I,H 00420PATCH DCK/ I,H 00430TBSCH1 DCK/ I,H 00440HASH DCK/ I,H 00450TBSTR1 DCK/ I,H   3qb 00460PAGE DCK/ I,H 00470PROGLD DCK/ I,H 00480SCAN1 DCK/ I,H 00490CHPU1 DCK/ I,H 00500ADJOV2 DCK/ I,H 00510ADRPR1 DCK/ I,H 00520T11 DCK/ I,H 00530T7 DCK/ I,H 00540T5 DCK/ I,H 00550T3 DCK/ I,H 00560ONE DCK/ I,H 00570TWO DCK/ I,H 00580THREE DCK/ I,H 00590JBKILL DCK/ I,H 00600JPLOAD DCK/ I,H 00610JPCHGE DCK/ I,H 00620ASCHEX DCK/ I,H 00630T13 DCK/ I,H 00640JLGOV4 DCK/ I,H 00650NAMEV4 DCK/ I,H 00660RESTOR DCK/ I,H 00670RCOVER DCK/ I,H 00680OUTSEL DCK/ I,H 00690RDMPV4 DCK/ I,H 00700MASDMP DCK/ I,H 00710BRKPT1 DCK/ I,H 00720EFSTOR DCK/ I,H 00730EFLIST DCK/ I,H 00740ODBUG1 DCK/ I,H 00750GETREQ DCK/ I,H 00760LHXREQ DCK/ I,H 00770DPCREQ DCK/ I,H 00780SCNREQ DCK/ I,H 00790SETREQ DCK/ I,H 00800MBCREQ DCK/ I,H 00810SCHREQ DCK/ I,H 00820SPEREQ DCK/ I,H 00830CPPREQ DCK/ I,H 00840SPPREQ DCK/ I,H 00850ADHREQ DCK/ I,H 00860SBHREQ DCK/ I,H 00870ALCREQ DCK/ I,H 00880RELREQ DCK/ I,H 00890DACREQ DCK/ I,H 00900PTHREQ DCK/ I,H 00910MTRREQ DCK/ I,H 00920MSDREQ DCK/ I,H 00930CLUREQ DCK/ I,H  3qv 00940WCDREQ DCK/ I,H 00950LASREQ DCK/ I,H 00960DASREQ DCK/ I,H 00970MLUREQ DCK/ I,H 00980DPTREQ DCK/ I,H 00990SLDREQ DCK/ I,H 01000CWAREQ DCK/ I,H 01010DMHREQ DCK/ I,H 01020SMNREQ DCK/ I,H 01030SMPREQ DCK/ I,H 01040LSPREQ DCK/ I,H 01050DSPREQ DCK/ I,H 01060DMSREQ DCK/ I,H 01070LSOREQ DCK/ I,H 01080CCCREQ DCK/ I,H 01090CCMREQ DCK/ I,H 01100CMMREQ DCK/ I,H 01110MMMREQ DCK/ I,H 01120LICREQ DCK/ I,H 01130LIOREQ DCK/ I,H 01140LAMREQ DCK/ I,H 01150DDPREQ DCK/ I,H 01160LDPREQ DCK/ I,H 01170LDOREQ DCK/ I,H 01180DMDREQ DCK/ I,H 01190WDKREQ DCK/ I,H 01200LSTREQ DCK/ I,H 01210PRINT DCK/ I,H 01220GETFLD DCK/ I,H 01230ASHX DCK/ I,H 01240DMPBUF DCK/ I,H 01250ASCDEC DCK/ I,H 01260HXAS DCK/ I,H 01270DECDMP DCK/ I,H 01280FETMM DCK/ I,H 01290PNTMD DCK/ I,H 01300MASOT DCK/ I,H 01310CONFM DCK/ I,H 01320GETINT DCK/ I,H 01330FLCVSG DCK/ I,H 01340FLCVDB DCK/ I,H 01350NAMEMS DCK/ I,H 01360DCONV DCK/ I,H 01370LAZY2 DCK/ I,H 01380ODDFLT DCK/ I,H 01390ODDFTN DCK/ I,H 01400ECONV DCK/ I,H 01410LAZY1 DCK/ I,H r  3q 01420ODFLOT DCK/ I,H 01430ODFXFL DCK/ I,H 01440TDFUNC DCK/ I,H 01450SYSCOP DCK/ I,H 01460CO1ST DCK/ I,H 01470CO2ND DCK/ I,H 01480CO3RD DCK/ I,H 01490COLAST DCK/ I,H 01500IOUP DCK/ I,H 01510IOUPV4 DCK/ I,H 01520CYFT DCK/ I,H 01530LCOSY DCK/ I,H 01540LISTR DCK/ I,H 01550LULIST DCK/ I,H 01560OPSORT DCK/ I,H 01570DSKTAP DCK/ I,H 01580DSKEQC DCK/ I,H 01590DSKDHX DCK/ I,H 01600ILOAD DCK/ I,H 01610LDRTBL DCK/ I,H 01620I1 DCK/ I,H 01630MDRIV DCK/ I,H 01640IDRIV DCK/ I,H 01650VERFY1 DCK/ I,H 01660COSY DCK/ I,H 01670EESORT DCK/ I,H 01680LIBILD DCK/ I,H 01690LIBIDO DCK/ I,H 01700MESSY DCK/ I,H 01710MOVECH DCK/ I,H 01720PICKUP DCK/ I,H 01730IOSUB DCK/ I,H 01740HELPER DCK/ I,H 01750HELP14 DCK/ I,H 01760LJA2B DCK/ I,H 01770CONVRS DCK/ I,H 01780HELP0 DCK/ I,H 01790HELP1 DCK/ I,H 01800HELP2 DCK/ I,H 01810HELP3 DCK/ I,H 01820HELP4 DCK/ I,H 01830HELP5 DCK/ I,H 01840HELP8 DCK/ I,H 01850HELP9 DCK/ I,H 01860HELP10 DCK/ I,H 01870HELP11 DCK/ I,H 01880HELP12 DCK/ I,H 01890HELP13 DCK/ I,H  3q 01900SKED DCK/ I,H 01910SKFILE DCK/ I,H 01920COMMON DCK/ I,H 01930DCORE DCK/ I,H 01940RDISP DCK/ I,H 01950UPROTK DCK/ I,H 01960DTLP DCK/ I,H 01970SILP DCK/ I,H 01980PG2KRD DCK/ I,H 01990TSPO70 DCK/ I,H 02000TSPO72 DCK/ I,H 02010FORTR DCK/ I,H 02020TSPO75 DCK/ I,H 02030TSPO77 DCK/ I,H 02040TSPO79 DCK/ I,H 02050TSPO81 DCK/ I,H 02060TSPO83 DCK/ I,H 02070TSPO85 DCK/ I,H 02080TSPO87 DCK/ I,H 02090TSPO89 DCK/ I,H 02100NXTLOC DCK/ I,H 02110LODMIC DCK/ I,H 02120 END/ 02130_  3q mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmAL+qO CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmD1827 DCK/ I,H 00010K1827 DCK/ I,H 00020LPWAIT DCK/ I,H 00030CKGINT DCK/ I,H 00040EDIT DCK/ I,H 00050DUMMY DCK/ I,H 00060D1829 DCK/ I,H 00070K1829 DCK/ I,H 00080FORMT DCK/ I,H 00090FAULTN DCK/ I,H 00100ESTAT DCK/ I,H 00110D1860 DCK/ I,H 00120K1860 DCK/ I,H 00130CKREQ DCK/ I,H 00140REWCKL DCK/ I,H 00150FORMIT DCK/ I,H 00160WAIT DCK/ I,H 00170XMOT DCK/ I,H 00180XFER DCK/ I,H 00190NEXTIO DCK/ I,H 00200RECVRY DCK/ I,H 00210Q1810 DCK/ I,H 00220QMLCT9 DCK/ I,H 00230DTLCT9 DCK/ I,H 00240QCDDMY DCK/ I,H 00250DSMD DCK/ I,H 00260CSMD DCK/ I,H 00270ESMD DCK/ I,H 00280BSMD DCK/ I,H 00290ALMERR DCK/ I,H 00300XSMD DCK/ I,H 00310SSMD DCK/ I,H 7E  3q 00320LIKDUM DCK/ I,H 00330ECCALG DCK/ I,H 00340SMDNDR DCK/ I,H 00350SMD1DA DCK/ I,H 00360SMDCP DCK/ I,H 00370NODIAS DCK/ I,H 00380B18331 DCK/ I,H 00390MDRSMD DCK/ I,H 00400QPTDMY DCK/ I,H 00410Q1827 DCK/ I,H 00420ECMDMP DCK/ I,H 00430DSKCDR DCK/ I,H 00440D18326 DCK/ I,H 00450K18326 DCK/ I,H 00460B18326 DCK/ I,H 00470T18326 DCK/ I,H 00480V18326 DCK/ I,H 00490N18326 DCK/ I,H 00500L18326 DCK/ I,H 00510W18326 DCK/ I,H 00520R18326 DCK/ I,H 00530S18326 DCK/ I,H 00540Q8331I DCK/ I,H 00550S1811T DCK/ I,H 00560M18326 DCK/ I,H 00570QK8326 DCK/ I,H 00580QB8326 DCK/ I,H 00590QW8326 DCK/ I,H 00600QV8326 DCK/ I,H 00610QN8326 DCK/ I,H 00620QL8326 DCK/ I,H 00630QX8326 DCK/ I,H 00640QR8326 DCK/ I,H 00650QS8326 DCK/ I,H 00660QCOMP DCK/ I,H 00670CR2629 DCK/ I,H 00680DCONSL DCK/ I,H 00690TRMDVR DCK/ I,H 00700TRMIOR DCK/ I,H 00710CALLCP DCK/ I,H 00720CCPGO DCK/ I,H 00730CPTRAC DCK/ I,H 00740DRCCNV DCK/ I,H 00750GETSEC DCK/ I,H 00760KICKOF DCK/ I,H 00770PARAMS DCK/ I,H 00780DRCCP1 DCK/ I,H 00790DRCCP2 DCK/ I,H   3q 00800DRCCP3 DCK/ I,H 00810DRCCP4 DCK/ I,H 00820DRCCP5 DCK/ I,H 00830DRCCP6 DCK/ I,H 00840DRCCP7 DCK/ I,H 00850DRCCP8 DCK/ I,H 00860 END/ 00870_ mmmmmmmmmmmmmmmmALqO CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmWCNVT DCK/ I,H 00010WGPUT DCK/ I,H 00020WSMBL1 DCK/ I,H 00030WGETF1 DCK/ I,H 00040WGNST DCK/ I,H 00050WOTENT DCK/ I,H 00060WPHSEA DCK/ I,H 00070WPLBEL DCK/ I,H 00080WQ8QBS DCK/ I,H 00090WRLABL DCK/ I,H 00100WSCHAR DCK/ I,H 00110WTYPE DCK/ I,H 00120WSAVID DCK/ I,H 00130WARITH DCK/ I,H 00140WCMNPR DCK/ I,H 00150WDIMPR DCK/ I,H 00160WSBSCR DCK/ I,H 00170WTYPPR DCK/ I,H 00180WBYEQ DCK/ I,H 00190WCKF DCK/ I,H 00200WFGETC DCK/ I,H 00210WFORK DCK/ I,H 00220WSUB DCK/ I,H 00230WEXRL DCK/ I,H 00240+  3qWPEQVS DCK/ I,H 00250WPRTNM DCK/ I,H 00260WPUNT1 DCK/ I,H 00270WSYMS1 DCK/ I,H 00280WENDDO DCK/ I,H 00290WCONSB DCK/ I,H 00300WDATA DCK/ I,H 00310WASGN DCK/ I,H 00320WBDOPR DCK/ I,H 00330WCFVOC DCK/ I,H 00340WCKVC DCK/ I,H 00350WCKNAM DCK/ I,H 00360WIOSPR DCK/ I,H 00370WERBPR DCK/ I,H 00380WMODX DCK/ I,H 00390WASEMP DCK/ I,H 00400WTREE DCK/ I,H 00410WARAY DCK/ I,H 00420WLOOP DCK/ I,H 00430WDUMMY DCK/ I,H 00440WFCMK DCK/ I,H 00450WKCPRT DCK/ I,H 00460WKOTPT DCK/ I,H 00470WKPCK DCK/ I,H 00480WKPC3 DCK/ I,H 00490WKSYM DCK/ I,H 00500WLBKPC DCK/ I,H 00510WLABLR DCK/ I,H 00520WPUNT2 DCK/ I,H 00530WSMBL2 DCK/ I,H 00540WTSLOC DCK/ I,H 00550WASSEM DCK/ I,H 00560WBANAN DCK/ I,H 00570WBGNDO DCK/ I,H 00580WEND DCK/ I,H 00590WENTCD DCK/ I,H 00600WHELEN DCK/ I,H 00610WXRST DCK/ I,H 00620WNOPR DCK/ I,H 00630WPHSEB DCK/ I,H 00640WRDIR DCK/ I,H 00650WSUBFN DCK/ I,H 00660WACP DCK/ I,H 00670WAFIDL DCK/ I,H 00680WASPER DCK/ I,H 00690WCGOTO DCK/ I,H 00700WFINK DCK/ I,H 00710WTRAM DCK/ I,H 00720X  3rWPRTSB DCK/ I,H 00730WSUB1 DCK/ I,H 00740WSUB2 DCK/ I,H 00750WSUB3 DCK/ I,H 00760WRITHR DCK/ I,H 00770WBKDN1 DCK/ I,H 00780WBLDUP DCK/ I,H 00790WBSS DCK/ I,H 00800WCHKWD DCK/ I,H 00810WCHOP DCK/ I,H 00820WCL12 DCK/ I,H 00830WCON DCK/ I,H 00840WCNT1 DCK/ I,H 00850WDATST DCK/ I,H 00860WGSYM1 DCK/ I,H 00870WINOUT DCK/ I,H 00880WIXOPT DCK/ I,H 00890WPHSEC DCK/ I,H 00900WLABEL DCK/ I,H 00910WLABIN DCK/ I,H 00920WQXLD DCK/ I,H 00930WREED DCK/ I,H 00940WSKIP DCK/ I,H 00950WSYMS2 DCK/ I,H 00960WAMOT1 DCK/ I,H 00970WMAX1 DCK/ I,H 00980WGINO1 DCK/ I,H 00990WBKDN2 DCK/ I,H 01000WCNT2 DCK/ I,H 01010WFIN1 DCK/ I,H 01020WIACN1 DCK/ I,H 01030WIHCN1 DCK/ I,H 01040WDEX1 DCK/ I,H 01050WLABT1 DCK/ I,H 01060WNP2T1 DCK/ I,H 01070WNPUN1 DCK/ I,H 01080WNRIT1 DCK/ I,H 01090WPHS61 DCK/ I,H 01100WRBDX1 DCK/ I,H 01110WRBPK1 DCK/ I,H 01120WSYMS3 DCK/ I,H 01130WDEC1 DCK/ I,H 01140WUNPC1 DCK/ I,H 01150WAMOT2 DCK/ I,H 01160WMAX2 DCK/ I,H 01170WGINO2 DCK/ I,H 01180WBKDN3 DCK/ I,H 01190WCNT3 DCK/ I,H 01200h`  3rWFIN2 DCK/ I,H 01210WIACN2 DCK/ I,H 01220WIHCN2 DCK/ I,H 01230WDEX2 DCK/ I,H 01240WLABT2 DCK/ I,H 01250WNP2T2 DCK/ I,H 01260WNPUN2 DCK/ I,H 01270WNRIT2 DCK/ I,H 01280WPHS62 DCK/ I,H 01290WRBDX2 DCK/ I,H 01300WRBPK2 DCK/ I,H 01310WSPRT DCK/ I,H 01320WDEC2 DCK/ I,H 01330WUNPC2 DCK/ I,H 01340MON1 DCK/ I,H 01350WFTNB DCK/ I,H 01360WGOA DCK/ I,H 01370WCONV1 DCK/ I,H 01380WDIAG DCK/ I,H 01390WDXP9 DCK/ I,H 01400WDFLOT DCK/ I,H 01410WGSYM2 DCK/ I,H 01420WIOPRA DCK/ I,H 01430WPACK DCK/ I,H 01440WQ8P DCK/ I,H 01450WSTORE DCK/ I,H 01460WLA1 DCK/ I,H 01470WDA1 DCK/ I,H 01480WGETC1 DCK/ I,H 01490WIGTCF DCK/ I,H 01500WOPT DCK/ I,H 01510WELOC DCK/ I,H 01520WLA2 DCK/ I,H 01530WDA2 DCK/ I,H 01540WLA3 DCK/ I,H 01550WDA3 DCK/ I,H 01560WLA4 DCK/ I,H 01570WDA4 DCK/ I,H 01580WLA5 DCK/ I,H 01590WDA5 DCK/ I,H 01600WGOB DCK/ I,H 01610WIOPRB DCK/ I,H 01620WGOC DCK/ I,H 01630WIOPRC DCK/ I,H 01640WGOOD DCK/ I,H 01650WIOPRD DCK/ I,H 01660WGOE DCK/ I,H 01670WCONV2 DCK/ I,H 01680  3r*WSTORB DCK/ I,H 01690WDUMVL DCK/ I,H 01700HEADER DCK/ I,H 01710DIAGRG DCK/ I,H 01720GOF DCK/ I,H 01730GETSYR DCK/ I,H 01740TITLE DCK/ I,H 01750IFOVPF DCK/ I,H 01760ERRMSG DCK/ I,H 01770MON2 DCK/ I,H 01780PHASEF DCK/ I,H 01790GETSYM DCK/ I,H 01800ACON DCK/ I,H 01810HCON DCK/ I,H 01820LWRITE DCK/ I,H 01830MATCH DCK/ I,H 01840SORT DCK/ I,H 01850IREPAK DCK/ I,H 01860MON DCK/ I=20,H 01870MON HOL/ 01880 MON 01890 END/ 01900FORTR DCK/ I,H 01910Q8PRMR DCK/ I,H 01920PARABR DCK/ I,H 01930Q8F2IR DCK/ I,H 01940ABSR DCK/ I,H 01950SQRTFR DCK/ I,H 01960SIGNR DCK/ I,H 01970FXFLTR DCK/ I,H 01980EXPR DCK/ I,H 01990ALOGR DCK/ I,H 02000TANHR DCK/ I,H 02010SNCSR DCK/ I,H 02020ATANR DCK/ I,H 02030D1781R DCK/ I,H 02040FLOTR DCK/ I,H 02050COMFPR DCK/ I,H 02060Q8QIOR DCK/ I,H 02070BINARR DCK/ I,H 02080Q8QGTR DCK/ I,H 02090IOCODR DCK/ I,H 02100INITLR DCK/ I,H 02110RSTORR DCK/ I,H 02120GETCHR DCK/ I,H 02130IPACKR DCK/ I,H 02140UPDATR DCK/ I,H 02150DECPLR DCK/ I,H 02160ZW  3r>INTGRR DCK/ I,H 02170SPACER DCK/ I,H 02180HOLR DCK/ I,H 02190DCHXR DCK/ I,H 02200HXASCR DCK/ I,H 02210AFMTOR DCK/ I,H 02220RFMTOR DCK/ I,H 02230AFMTIR DCK/ I,H 02240RFMTIR DCK/ I,H 02250ASCHXR DCK/ I,H 02260HXDCR DCK/ I,H 02270FLOTIR DCK/ I,H 02280FOUTR DCK/ I,H 02290EOUTR DCK/ I,H 02300EWRITR DCK/ I,H 02310INTI1R DCK/ I,H 02320FORMTR DCK/ I,H 02330Q8QFIR DCK/ I,H 02340Q8QFLR DCK/ I,H 02350Q8QFXR DCK/ I,H 02360HEXAR DCK/ I,H 02370HEXDR DCK/ I,H 02380ASCIIR DCK/ I,H 02390DECHXR DCK/ I,H 02400AFORMR DCK/ I,H 02410RFORMR DCK/ I,H 02420FLOTGR DCK/ I,H 02430SGDBLR DCK/ I,H 02440Q8D2IR DCK/ I,H 02450DABSR DCK/ I,H 02460DSQRTR DCK/ I,H 02470DSIGNR DCK/ I,H 02480DEXPR DCK/ I,H 02490DLOGR DCK/ I,H 02500DRSTRR DCK/ I,H 02510DSNCSR DCK/ I,H 02520DATANR DCK/ I,H 02530DFLOTR DCK/ I,H 02540Q8QDFR DCK/ I,H 02550DOUTR DCK/ I,H 02560FORTN DCK/ I,H 02570Q8PRMS DCK/ I,H 02580Q8QF2I DCK/ I,H 02590ABS DCK/ I,H 02600SQRT DCK/ I,H 02610SIGN DCK/ I,H 02620FIXFLT DCK/ I,H 02630EXP DCK/ I,H 02640  3qAL+qO CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmD1827 DCK/ I,H 00010K1827 DCK/ I,H 00020LPWAIT DCK/ I,H 00030CKGINT DCK/ I,H 00040EDIT DCK/ I,H 00050DUMMY DCK/ I,H 00060D1829 DCK/ I,H 00070K1829 DCK/ I,H 00080FORMT DCK/ I,H 00090FAULTN DCK/ I,H 00100ESTAT DCK/ I,H 00110D1860 DCK/ I,H 00120K1860 DCK/ I,H 00130CKREQ DCK/ I,H 00140REWCKL DCK/ I,H 00150FORMIT DCK/ I,H 00160WAIT DCK/ I,H 00170XMOT DCK/ I,H 00180XFER DCK/ I,H 00190NEXTIO DCK/ I,H 00200RECVRY DCK/ I,H 00210Q1810 DCK/ I,H 00220QMLCT9 DCK/ I,H 00230DTLCT9 DCK/ I,H 00240QCDDMY DCK/ I,H 00250DSMD DCK/ I,H 00260CSMD DCK/ I,H 00270ESMD DCK/ I,H 00280BSMD DCK/ I,H 00290ALMERR DCK/ I,H 00300XSMD DCK/ I,H 00310SSMD DCK/ I,H 00320LIKDUM DCK/ I,H 00330ECCALG DCK/ I,H 00340SMDNDR DCK/ I,H 00350SMD1DA DCK/ I,H 00360SMDCP DCK/ I,H 00370NODIAS DCK/ I,H 00380B18331 DCK/ I,H 00390MDRSMD DCK/ I,H 00400QPTDMY DCK/ I,H 00410Q1827 DCK/ I,H 00420ECMDMP DCK/ I,H 00430DSKCDR DCK/ I,H 00440D18326 DCK/ I,H 00450K18326 DCK/ I,H V  3q 00460B18326 DCK/ I,H 00470T18326 DCK/ I,H 00480V18326 DCK/ I,H 00490N18326 DCK/ I,H 00500L18326 DCK/ I,H 00510W18326 DCK/ I,H 00520R18326 DCK/ I,H 00530S18326 DCK/ I,H 00540Q8331I DCK/ I,H 00550S1811T DCK/ I,H 00560M18326 DCK/ I,H 00570QK8326 DCK/ I,H 00580QB8326 DCK/ I,H 00590QW8326 DCK/ I,H 00600QV8326 DCK/ I,H 00610QN8326 DCK/ I,H 00620QL8326 DCK/ I,H 00630QX8326 DCK/ I,H 00640QR8326 DCK/ I,H 00650QS8326 DCK/ I,H 00660QCOMP DCK/ I,H 00670CR2629 DCK/ I,H 00680DCONSL DCK/ I,H 00690TRMDVR DCK/ I,H 00700TRMIOR DCK/ I,H 00710CALLCP DCK/ I,H 00720CCPGO DCK/ I,H 00730CPTRAC DCK/ I,H 00740DRCCNV DCK/ I,H 00750GETSEC DCK/ I,H 00760KICKOF DCK/ I,H 00770PARAMS DCK/ I,H 00780DRCCP1 DCK/ I,H 00790DRCCP2 DCK/ I,H 00800DRCCP3 DCK/ I,H 00810DRCCP4 DCK/ I,H 00820DRCCP5 DCK/ I,H 00830DRCCP6 DCK/ I,H 00840DRCCP7 DCK/ I,H 00850DRCCP8 DCK/ I,H 00860 END/ 00870_ G  3q mmmmmmmmmmmmmmmmALqO CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmWCNVT DCK/ I,H 00010WGPUT DCK/ I,H 00020WSMBL1 DCK/ I,H 00030WGETF1 DCK/ I,H 00040WGNST DCK/ I,H 00050WOTENT DCK/ I,H 00060WPHSEA DCK/ I,H 00070WPLBEL DCK/ I,H 00080WQ8QBS DCK/ I,H 00090WRLABL DCK/ I,H 00100WSCHAR DCK/ I,H 00110WTYPE DCK/ I,H 00120WSAVID DCK/ I,H 00130WARITH DCK/ I,H 00140WCMNPR DCK/ I,H 00150WDIMPR DCK/ I,H 00160WSBSCR DCK/ I,H 00170WTYPPR DCK/ I,H 00180WBYEQ DCK/ I,H 00190WCKF DCK/ I,H 00200WFGETC DCK/ I,H 00210WFORK DCK/ I,H 00220WSUB DCK/ I,H 00230WEXRL DCK/ I,H 00240WPEQVS DCK/ I,H 00250WPRTNM DCK/ I,H 00260WPUNT1 DCK/ I,H 00270WSYMS1 DCK/ I,H 00280WENDDO DCK/ I,H 00290WCONSB DCK/ I,H 00300WDATA DCK/ I,H 00310WASGN DCK/ I,H 00320WBDOPR DCK/ I,H 00330WCFVOC DCK/ I,H 00340WCKVC DCK/ I,H 00350WCKNAM DCK/ I,H 00360WIOSPR DCK/ I,H 00370WERBPR DCK/ I,H 00380WMODX DCK/ I,H F  3q 00390WASEMP DCK/ I,H 00400WTREE DCK/ I,H 00410WARAY DCK/ I,H 00420WLOOP DCK/ I,H 00430WDUMMY DCK/ I,H 00440WFCMK DCK/ I,H 00450WKCPRT DCK/ I,H 00460WKOTPT DCK/ I,H 00470WKPCK DCK/ I,H 00480WKPC3 DCK/ I,H 00490WKSYM DCK/ I,H 00500WLBKPC DCK/ I,H 00510WLABLR DCK/ I,H 00520WPUNT2 DCK/ I,H 00530WSMBL2 DCK/ I,H 00540WTSLOC DCK/ I,H 00550WASSEM DCK/ I,H 00560WBANAN DCK/ I,H 00570WBGNDO DCK/ I,H 00580WEND DCK/ I,H 00590WENTCD DCK/ I,H 00600WHELEN DCK/ I,H 00610WXRST DCK/ I,H 00620WNOPR DCK/ I,H 00630WPHSEB DCK/ I,H 00640WRDIR DCK/ I,H 00650WSUBFN DCK/ I,H 00660WACP DCK/ I,H 00670WAFIDL DCK/ I,H 00680WASPER DCK/ I,H 00690WCGOTO DCK/ I,H 00700WFINK DCK/ I,H 00710WTRAM DCK/ I,H 00720WPRTSB DCK/ I,H 00730WSUB1 DCK/ I,H 00740WSUB2 DCK/ I,H 00750WSUB3 DCK/ I,H 00760WRITHR DCK/ I,H 00770WBKDN1 DCK/ I,H 00780WBLDUP DCK/ I,H 00790WBSS DCK/ I,H 00800WCHKWD DCK/ I,H 00810WCHOP DCK/ I,H 00820WCL12 DCK/ I,H 00830WCON DCK/ I,H 00840WCNT1 DCK/ I,H 00850WDATST DCK/ I,H 00860WGSYM1 DCK/ I,H $U  3r 00870WINOUT DCK/ I,H 00880WIXOPT DCK/ I,H 00890WPHSEC DCK/ I,H 00900WLABEL DCK/ I,H 00910WLABIN DCK/ I,H 00920WQXLD DCK/ I,H 00930WREED DCK/ I,H 00940WSKIP DCK/ I,H 00950WSYMS2 DCK/ I,H 00960WAMOT1 DCK/ I,H 00970WMAX1 DCK/ I,H 00980WGINO1 DCK/ I,H 00990WBKDN2 DCK/ I,H 01000WCNT2 DCK/ I,H 01010WFIN1 DCK/ I,H 01020WIACN1 DCK/ I,H 01030WIHCN1 DCK/ I,H 01040WDEX1 DCK/ I,H 01050WLABT1 DCK/ I,H 01060WNP2T1 DCK/ I,H 01070WNPUN1 DCK/ I,H 01080WNRIT1 DCK/ I,H 01090WPHS61 DCK/ I,H 01100WRBDX1 DCK/ I,H 01110WRBPK1 DCK/ I,H 01120WSYMS3 DCK/ I,H 01130WDEC1 DCK/ I,H 01140WUNPC1 DCK/ I,H 01150WAMOT2 DCK/ I,H 01160WMAX2 DCK/ I,H 01170WGINO2 DCK/ I,H 01180WBKDN3 DCK/ I,H 01190WCNT3 DCK/ I,H 01200WFIN2 DCK/ I,H 01210WIACN2 DCK/ I,H 01220WIHCN2 DCK/ I,H 01230WDEX2 DCK/ I,H 01240WLABT2 DCK/ I,H 01250WNP2T2 DCK/ I,H 01260WNPUN2 DCK/ I,H 01270WNRIT2 DCK/ I,H 01280WPHS62 DCK/ I,H 01290WRBDX2 DCK/ I,H 01300WRBPK2 DCK/ I,H 01310WSPRT DCK/ I,H 01320WDEC2 DCK/ I,H 01330WUNPC2 DCK/ I,H 01340MON1 DCK/ I,H h  3r 01350WFTNB DCK/ I,H 01360WGOA DCK/ I,H 01370WCONV1 DCK/ I,H 01380WDIAG DCK/ I,H 01390WDXP9 DCK/ I,H 01400WDFLOT DCK/ I,H 01410WGSYM2 DCK/ I,H 01420WIOPRA DCK/ I,H 01430WPACK DCK/ I,H 01440WQ8P DCK/ I,H 01450WSTORE DCK/ I,H 01460WLA1 DCK/ I,H 01470WDA1 DCK/ I,H 01480WGETC1 DCK/ I,H 01490WIGTCF DCK/ I,H 01500WOPT DCK/ I,H 01510WELOC DCK/ I,H 01520WLA2 DCK/ I,H 01530WDA2 DCK/ I,H 01540WLA3 DCK/ I,H 01550WDA3 DCK/ I,H 01560WLA4 DCK/ I,H 01570WDA4 DCK/ I,H 01580WLA5 DCK/ I,H 01590WDA5 DCK/ I,H 01600WGOB DCK/ I,H 01610WIOPRB DCK/ I,H 01620WGOC DCK/ I,H 01630WIOPRC DCK/ I,H 01640WGOOD DCK/ I,H 01650WIOPRD DCK/ I,H 01660WGOE DCK/ I,H 01670WCONV2 DCK/ I,H 01680WSTORB DCK/ I,H 01690WDUMVL DCK/ I,H 01700HEADER DCK/ I,H 01710DIAGRG DCK/ I,H 01720GOF DCK/ I,H 01730GETSYR DCK/ I,H 01740TITLE DCK/ I,H 01750IFOVPF DCK/ I,H 01760ERRMSG DCK/ I,H 01770MON2 DCK/ I,H 01780PHASEF DCK/ I,H 01790GETSYM DCK/ I,H 01800ACON DCK/ I,H 01810HCON DCK/ I,H 01820LWRITE DCK/ I,H 2  3qALqO CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmWCNVT DCK/ I,H 00010WGPUT DCK/ I,H 00020WSMBL1 DCK/ I,H 00030WGETF1 DCK/ I,H 00040WGNST DCK/ I,H 00050WOTENT DCK/ I,H 00060WPHSEA DCK/ I,H 00070WPLBEL DCK/ I,H 00080WQ8QBS DCK/ I,H 00090WRLABL DCK/ I,H 00100WSCHAR DCK/ I,H 00110WTYPE DCK/ I,H 00120WSAVID DCK/ I,H 00130WARITH DCK/ I,H 00140WCMNPR DCK/ I,H 00150WDIMPR DCK/ I,H 00160WSBSCR DCK/ I,H 00170WTYPPR DCK/ I,H 00180WBYEQ DCK/ I,H 00190WCKF DCK/ I,H 00200WFGETC DCK/ I,H 00210WFORK DCK/ I,H 00220WSUB DCK/ I,H 00230WEXRL DCK/ I,H 00240WPEQVS DCK/ I,H 00250WPRTNM DCK/ I,H 00260WPUNT1 DCK/ I,H 00270WSYMS1 DCK/ I,H 00280WENDDO DCK/ I,H 00290WCONSB DCK/ I,H 00300WDATA DCK/ I,H 00310WASGN DCK/ I,H 00320WBDOPR DCK/ I,H 00330WCFVOC DCK/ I,H 00340WCKVC DCK/ I,H 00350WCKNAM DCK/ I,H 00360WIOSPR DCK/ I,H 00370WERBPR DCK/ I,H 00380WMODX DCK/ I,H 00390WASEMP DCK/ I,H 00400WTREE DCK/ I,H 00410WARAY DCK/ I,H 00420WLOOP DCK/ I,H 00430WDUMMY DCK/ I,H 00440WFCMK DCK/ I,H 00450WKCPRT DCK/ I,H x  3q 00460WKOTPT DCK/ I,H 00470WKPCK DCK/ I,H 00480WKPC3 DCK/ I,H 00490WKSYM DCK/ I,H 00500WLBKPC DCK/ I,H 00510WLABLR DCK/ I,H 00520WPUNT2 DCK/ I,H 00530WSMBL2 DCK/ I,H 00540WTSLOC DCK/ I,H 00550WASSEM DCK/ I,H 00560WBANAN DCK/ I,H 00570WBGNDO DCK/ I,H 00580WEND DCK/ I,H 00590WENTCD DCK/ I,H 00600WHELEN DCK/ I,H 00610WXRST DCK/ I,H 00620WNOPR DCK/ I,H 00630WPHSEB DCK/ I,H 00640WRDIR DCK/ I,H 00650WSUBFN DCK/ I,H 00660WACP DCK/ I,H 00670WAFIDL DCK/ I,H 00680WASPER DCK/ I,H 00690WCGOTO DCK/ I,H 00700WFINK DCK/ I,H 00710WTRAM DCK/ I,H 00720WPRTSB DCK/ I,H 00730WSUB1 DCK/ I,H 00740WSUB2 DCK/ I,H 00750WSUB3 DCK/ I,H 00760WRITHR DCK/ I,H 00770WBKDN1 DCK/ I,H 00780WBLDUP DCK/ I,H 00790WBSS DCK/ I,H 00800WCHKWD DCK/ I,H 00810WCHOP DCK/ I,H 00820WCL12 DCK/ I,H 00830WCON DCK/ I,H 00840WCNT1 DCK/ I,H 00850WDATST DCK/ I,H 00860WGSYM1 DCK/ I,H 00870WINOUT DCK/ I,H 00880WIXOPT DCK/ I,H 00890WPHSEC DCK/ I,H 00900WLABEL DCK/ I,H 00910WLABIN DCK/ I,H 00920WQXLD DCK/ I,H 00930WREED DCK/ I,H V  3r  00940WSKIP DCK/ I,H 00950WSYMS2 DCK/ I,H 00960WAMOT1 DCK/ I,H 00970WMAX1 DCK/ I,H 00980WGINO1 DCK/ I,H 00990WBKDN2 DCK/ I,H 01000WCNT2 DCK/ I,H 01010WFIN1 DCK/ I,H 01020WIACN1 DCK/ I,H 01030WIHCN1 DCK/ I,H 01040WDEX1 DCK/ I,H 01050WLABT1 DCK/ I,H 01060WNP2T1 DCK/ I,H 01070WNPUN1 DCK/ I,H 01080WNRIT1 DCK/ I,H 01090WPHS61 DCK/ I,H 01100WRBDX1 DCK/ I,H 01110WRBPK1 DCK/ I,H 01120WSYMS3 DCK/ I,H 01130WDEC1 DCK/ I,H 01140WUNPC1 DCK/ I,H 01150WAMOT2 DCK/ I,H 01160WMAX2 DCK/ I,H 01170WGINO2 DCK/ I,H 01180WBKDN3 DCK/ I,H 01190WCNT3 DCK/ I,H 01200WFIN2 DCK/ I,H 01210WIACN2 DCK/ I,H 01220WIHCN2 DCK/ I,H 01230WDEX2 DCK/ I,H 01240WLABT2 DCK/ I,H 01250WNP2T2 DCK/ I,H 01260WNPUN2 DCK/ I,H 01270WNRIT2 DCK/ I,H 01280WPHS62 DCK/ I,H 01290WRBDX2 DCK/ I,H 01300WRBPK2 DCK/ I,H 01310WSPRT DCK/ I,H 01320WDEC2 DCK/ I,H 01330WUNPC2 DCK/ I,H 01340MON1 DCK/ I,H 01350WFTNB DCK/ I,H 01360WGOA DCK/ I,H 01370WCONV1 DCK/ I,H 01380WDIAG DCK/ I,H 01390WDXP9 DCK/ I,H 01400WDFLOT DCK/ I,H 01410WGSYM2 DCK/ I,H i  3r 01420WIOPRA DCK/ I,H 01430WPACK DCK/ I,H 01440WQ8P DCK/ I,H 01450WSTORE DCK/ I,H 01460WLA1 DCK/ I,H 01470WDA1 DCK/ I,H 01480WGETC1 DCK/ I,H 01490WIGTCF DCK/ I,H 01500WOPT DCK/ I,H 01510WELOC DCK/ I,H 01520WLA2 DCK/ I,H 01530WDA2 DCK/ I,H 01540WLA3 DCK/ I,H 01550WDA3 DCK/ I,H 01560WLA4 DCK/ I,H 01570WDA4 DCK/ I,H 01580WLA5 DCK/ I,H 01590WDA5 DCK/ I,H 01600WGOB DCK/ I,H 01610WIOPRB DCK/ I,H 01620WGOC DCK/ I,H 01630WIOPRC DCK/ I,H 01640WGOOD DCK/ I,H 01650WIOPRD DCK/ I,H 01660WGOE DCK/ I,H 01670WCONV2 DCK/ I,H 01680WSTORB DCK/ I,H 01690WDUMVL DCK/ I,H 01700HEADER DCK/ I,H 01710DIAGRG DCK/ I,H 01720GOF DCK/ I,H 01730GETSYR DCK/ I,H 01740TITLE DCK/ I,H 01750IFOVPF DCK/ I,H 01760ERRMSG DCK/ I,H 01770MON2 DCK/ I,H 01780PHASEF DCK/ I,H 01790GETSYM DCK/ I,H 01800ACON DCK/ I,H 01810HCON DCK/ I,H 01820LWRITE DCK/ I,H 01830MATCH DCK/ I,H 01840SORT DCK/ I,H 01850IREPAK DCK/ I,H 01860MON DCK/ I=20,H 01870MON HOL/ 01880 MON 01890 END/ /  3r3 01900FORTR DCK/ I,H 01910Q8PRMR DCK/ I,H 01920PARABR DCK/ I,H 01930Q8F2IR DCK/ I,H 01940ABSR DCK/ I,H 01950SQRTFR DCK/ I,H 01960SIGNR DCK/ I,H 01970FXFLTR DCK/ I,H 01980EXPR DCK/ I,H 01990ALOGR DCK/ I,H 02000TANHR DCK/ I,H 02010SNCSR DCK/ I,H 02020ATANR DCK/ I,H 02030D1781R DCK/ I,H 02040FLOTR DCK/ I,H 02050COMFPR DCK/ I,H 02060Q8QIOR DCK/ I,H 02070BINARR DCK/ I,H 02080Q8QGTR DCK/ I,H 02090IOCODR DCK/ I,H 02100INITLR DCK/ I,H 02110RSTORR DCK/ I,H 02120GETCHR DCK/ I,H 02130IPACKR DCK/ I,H 02140UPDATR DCK/ I,H 02150DECPLR DCK/ I,H 02160INTGRR DCK/ I,H 02170SPACER DCK/ I,H 02180HOLR DCK/ I,H 02190DCHXR DCK/ I,H 02200HXASCR DCK/ I,H 02210AFMTOR DCK/ I,H 02220RFMTOR DCK/ I,H 02230AFMTIR DCK/ I,H 02240RFMTIR DCK/ I,H 02250ASCHXR DCK/ I,H 02260HXDCR DCK/ I,H 02270FLOTIR DCK/ I,H 02280FOUTR DCK/ I,H 02290EOUTR DCK/ I,H 02300EWRITR DCK/ I,H 02310INTI1R DCK/ I,H 02320FORMTR DCK/ I,H 02330Q8QFIR DCK/ I,H 02340Q8QFLR DCK/ I,H 02350Q8QFXR DCK/ I,H 02360HEXAR DCK/ I,H 02370HEXDR DCK/ I,H t  3rG 02380ASCIIR DCK/ I,H 02390DECHXR DCK/ I,H 02400AFORMR DCK/ I,H 02410RFORMR DCK/ I,H 02420FLOTGR DCK/ I,H 02430SGDBLR DCK/ I,H 02440Q8D2IR DCK/ I,H 02450DABSR DCK/ I,H 02460DSQRTR DCK/ I,H 02470DSIGNR DCK/ I,H 02480DEXPR DCK/ I,H 02490DLOGR DCK/ I,H 02500DRSTRR DCK/ I,H 02510DSNCSR DCK/ I,H 02520DATANR DCK/ I,H 02530DFLOTR DCK/ I,H 02540Q8QDFR DCK/ I,H 02550DOUTR DCK/ I,H 02560FORTN DCK/ I,H 02570Q8PRMS DCK/ I,H 02580Q8QF2I DCK/ I,H 02590ABS DCK/ I,H 02600SQRT DCK/ I,H 02610SIGN DCK/ I,H 02620FIXFLT DCK/ I,H 02630EXP DCK/ I,H 02640ALOG DCK/ I,H 02650TANH DCK/ I,H 02660SINCOS DCK/ I,H 02670ATAN DCK/ I,H 02680PARABN DCK/ I,H 02690D1781N DCK/ I,H 02700FLOTN DCK/ I,H 02710COMNFP DCK/ I,H 02720MON3 DCK/ I,H 02730Q8IFRM DCK/ I,H 02740Q8FS DCK/ I,H 02750Q8TRAN DCK/ I,H 02760Q8QINI DCK/ I,H 02770Q8QEND DCK/ I,H 02780Q8CMP DCK/ I,H 02790Q8RWBU DCK/ I,H 02800Q8ERRM DCK/ I,H 02810Q8DFIO DCK/ I,H 02820Q8QX DCK/ I,H 02830Q8QUNI DCK/ I,H 02840Q8FGET DCK/ I,H 02850Q8MAGT DCK/ I,H  3r[ 02860TAPCON DCK/ I,H 02870IOCK DCK/ I,H 02880PSSTOP DCK/ I,H 02890Q8PAND DCK/ I,H 02900Q8EXP1 DCK/ I,H 02910Q8EXP9 DCK/ I,H 02920Q8QGTX DCK/ I,H 02930Q8QIO DCK/ I,H 02940IOCODE DCK/ I,H 02950PSUEDO DCK/ I,H 02960IGETCH DCK/ I,H 02970IPACK DCK/ I,H 02980UPDATN DCK/ I,H 02990DECPL DCK/ I,H 03000INTGR DCK/ I,H 03010SPACEN DCK/ I,H 03020HOLRTH DCK/ I,H 03030DCHX DCK/ I,H 03040HXASC DCK/ I,H 03050AFRMOT DCK/ I,H 03060RFRMOT DCK/ I,H 03070AFRMIN DCK/ I,H 03080RFRMIN DCK/ I,H 03090ASCHX DCK/ I,H 03100HXDC DCK/ I,H 03110FLOTIN DCK/ I,H 03120FOUT DCK/ I,H 03130EOUT DCK/ I,H 03140EWRITE DCK/ I,H 03150INITL1 DCK/ I,H 03160FORMTN DCK/ I,H 03170Q8QFI DCK/ I,H 03180Q8QFL DCK/ I,H 03190Q8QFX DCK/ I,H 03200HEXASC DCK/ I,H 03210HEXDEC DCK/ I,H 03220ASCII DCK/ I,H 03230DECHEX DCK/ I,H 03240AFORM DCK/ I,H 03250RFORM DCK/ I,H 03260FLOATG DCK/ I,H 03270Q8QD2I DCK/ I,H 03280SGLDBL DCK/ I,H 03290DABS DCK/ I,H 03300DSQRT DCK/ I,H 03310DSIGN DCK/ I,H 03320DEXP DCK/ I,H 03330DLOG DCK/ I,H 9y  3ro 03340DSNCSN DCK/ I,H 03350DATAN DCK/ I,H 03360DFLOTN DCK/ I,H 03370DRSTOR DCK/ I,H 03380Q8DXP1 DCK/ I,H 03390Q8DXP9 DCK/ I,H 03400Q8QDFN DCK/ I,H 03410DOUTN DCK/ I,H 03420DBLDMY DCK/ I,H 03430 END/ 03440_   3r mmmmmmmmmmmmmmmmALtrO CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmRPGIIH DCK/ I,H 00010RPGIIF DCK/ I,H 00020RPGIIE DCK/ I,H 00030RPGIIL DCK/ I,H 00040RPGIII DCK/ I,H 00050RPGIIC DCK/ I,H 00060RPGIIO DCK/ I,H 00070RPGIIA DCK/ I,H 00080RPGIIM DCK/ I,H 00090RPGROT DCK/ I,H 00100RPGDMY DCK/ I,H 00110RPG DCK/ I,H 00120RPGII DCK/ I,H 00130R9ADSB DCK/ I,H 00140R9ARG DCK/ I,H 00150R9ARTH DCK/ I,H 00160R9ASQR DCK/ I,H 00170R9ATON DCK/ I,H 00180R9BDPR DCK/ I,H 00190R9BEG1 DCK/ I,H 00200R9BEG2 DCK/ I,H 00210R9BEG3 DCK/ I,H 00220R9BEG4 DCK/ I,H 00230R9BEG5 DCK/ I,H 00240R9BGCL DCK/ I,H 00250R9BGOT DCK/ I,H 00260R9BINP DCK/ I,H   3r 00270R9BINT DCK/ I,H 00280R9BITF DCK/ I,H 00290R9BITN DCK/ I,H 00300R9CALC DCK/ I,H 00310R9CHAN DCK/ I,H 00320R9CHAR DCK/ I,H 00330R9CHIN DCK/ I,H 00340R9CKXF DCK/ I,H 00350R9CLOS DCK/ I,H 00360R9CLPR DCK/ I,H 00370R9CLRC DCK/ I,H 00380R9CLRE DCK/ I,H 00390R9CLSV DCK/ I,H 00400R9CMBD DCK/ I,H 00410R9CMOV DCK/ I,H 00420R9CMPR DCK/ I,H 00430R9CNTR DCK/ I,H 00440R9COMP DCK/ I,H 00450R9CRIN DCK/ I,H 00460R9DEBG DCK/ I,H 00470R9DETP DCK/ I,H 00480R9DIVD DCK/ I,H 00490R9DMND DCK/ I,H 00500R9DSPY DCK/ I,H 00510R9DUM0 DCK/ I,H 00520R9DUM1 DCK/ I,H 00530R9ECOD DCK/ I,H 00540R9EDCN DCK/ I,H 00550R9EDIT DCK/ I,H 00560R9ELOC DCK/ I,H 00570R9ENDL DCK/ I,H 00580R9ENTS DCK/ I,H 00590R9EXCP DCK/ I,H 00600R9EXIT DCK/ I,H 00610R9FILR DCK/ I,H 00620R9FINS DCK/ I,H 00630R9FLDL DCK/ I,H 00640R9FLOW DCK/ I,H 00650R9FMAL DCK/ I,H 00660R9FNBG DCK/ I,H 00670R9FORC DCK/ I,H 00680R9FSTL DCK/ I,H 00690R9FTNX DCK/ I,H 00700R9FTOV DCK/ I,H 00710R9GETS DCK/ I,H 00720R9GOTO DCK/ I,H 00730R9GRAR DCK/ I,H 00740R9ICTL DCK/ I,H M  3r 00750R9IDMX DCK/ I,H 00760R9INDM DCK/ I,H 00770R9INIT DCK/ I,H 00780R9INMV DCK/ I,H 00790R9INTA DCK/ I,H 00800R9INTL DCK/ I,H 00810R9INTV DCK/ I,H 00820R9IOCL DCK/ I,H 00830R9IPBG DCK/ I,H 00840R9IPUT DCK/ I,H 00850R9ITLP DCK/ I,H 00860R9LAHD DCK/ I,H 00870R9LBY DCK/ I,H 00880R9LCAE DCK/ I,H 00890R9LEL DCK/ I,H 00900R9LKUP DCK/ I,H 00910R9LOAD DCK/ I,H 00920R9LOCL DCK/ I,H 00930R9LRCK DCK/ I,H 00940R9LSMB DCK/ I,H 00950R9MIB DCK/ I,H 00960R9MIW DCK/ I,H 00970R9MMOV DCK/ I,H 00980R9MOVA DCK/ I,H 00990R9MOVE DCK/ I,H 01000R9MOVZ DCK/ I,H 01010R9MTRN DCK/ I,H 01020R9MTWK DCK/ I,H 01030R9MULT DCK/ I,H 01040R9MVB DCK/ I,H 01050R9MVBX DCK/ I,H 01060R9MVTA DCK/ I,H 01070R9MVW DCK/ I,H 01080R9MVWD DCK/ I,H 01090R9MWI DCK/ I,H 01100R9NRMX DCK/ I,H 01110R9NSQR DCK/ I,H 01120R9NTOA DCK/ I,H 01130R9NXFL DCK/ I,H 01140R9NXRC DCK/ I,H 01150R9OPCD DCK/ I,H 01160R9OPNF DCK/ I,H 01170R9OPNV DCK/ I,H 01180R9OTMG DCK/ I,H 01190R9OTMV DCK/ I,H 01200R9OTPT DCK/ I,H 01210R9OVOP DCK/ I,H 01220R9OV50 DCK/ I,H   3r 01230R9PACK DCK/ I,H 01240R9PAGE DCK/ I,H 01250R9POSS DCK/ I,H 01260R9PRCL DCK/ I,H 01270R9PRFN DCK/ I,H 01280R9PTCH DCK/ I,H 01290R9PUTS DCK/ I,H 01300R9RCAD DCK/ I,H 01310R9RDEN DCK/ I,H 01320R9READ DCK/ I,H 01330R9ROOM DCK/ I,H 01340R9ROOT DCK/ I,H 01350R9RPRT DCK/ I,H 01360R9RSLT DCK/ I,H 01370R9RSTS DCK/ I,H 01380R9SAVE DCK/ I,H 01390R9SAV1 DCK/ I,H 01400R9SAV2 DCK/ I,H 01410R9SAV3 DCK/ I,H 01420R9SAV4 DCK/ I,H 01430R9SAV5 DCK/ I,H 01440R9SBY DCK/ I,H 01450R9SETF DCK/ I,H 01460R9SETN DCK/ I,H 01470R9SHFT DCK/ I,H 01480R9SKIP DCK/ I,H 01490R9SPAC DCK/ I,H 01500R9SPTP DCK/ I,H 01510R9SQRT DCK/ I,H 01520R9STH0 DCK/ I,H 01530R9STLL DCK/ I,H 01540R9STON DCK/ I,H 01550R9STUB DCK/ I,H 01560R9SWCH DCK/ I,H 01570R9TBOT DCK/ I,H 01580R9TIME DCK/ I,H 01590R9TP40 DCK/ I,H 01600R9TRAL DCK/ I,H 01610R9TRCE DCK/ I,H 01620R9TROT DCK/ I,H 01630R9TSTB DCK/ I,H 01640R9TSTN DCK/ I,H 01650R9TSTZ DCK/ I,H 01660R9TTOP DCK/ I,H 01670R9UNPK DCK/ I,H 01680R9WOTV DCK/ I,H 01690R9XCPT DCK/ I,H 01700R9XFOT DCK/ I,H JH  3r 01710R9XRSD DCK/ I,H 01720R9YCOD DCK/ I,H 01730R9ZADS DCK/ I,H 01740R9ZCOD DCK/ I,H 01750R9999B DCK/ I,H 01760CATGET DCK/ I,H 01770CATLOG DCK/ I,H 01780CATLU DCK/ I,H 01790CATSKL DCK/ I,H 01800CM00PT DCK/ I,H 01810CM02IN DCK/ I,H 01820CM03GO DCK/ I,H 01830CVASEB DCK/ I,H 01840ERRO46 DCK/ I,H 01850FMCALL DCK/ I,H 01860FORTN DCK/ I,H 01870IO00WR DCK/ I,H 01880MOUNT DCK/ I,H 01890Q8PRMS DCK/ I,H 01900SELMU DCK/ I,H 01910STRACE DCK/ I,H 01920SUBRAJ DCK/ I,H 01930SUBRED DCK/ I,H 01940SUBRFL DCK/ I,H 01950SUBRIN DCK/ I,H 01960SUBRMV DCK/ I,H 01970TRACER DCK/ I,H 01980OPEN01 DCK/ I,H 01990OPEN02 DCK/ I,H 02000OPEN03 DCK/ I,H 02010OPEN04 DCK/ I,H 02020READ09 DCK/ I,H 02030READ10 DCK/ I,H 02040READ11 DCK/ I,H 02050READ12 DCK/ I,H 02060READ13 DCK/ I,H 02070WRIT17 DCK/ I,H 02080WRIT18 DCK/ I,H 02090WRIT19 DCK/ I,H 02100WRIT20 DCK/ I,H 02110WRIT21 DCK/ I,H 02120WRIT23 DCK/ I,H 02130UPDT25 DCK/ I,H 02140UPDT26 DCK/ I,H 02150SETL33 DCK/ I,H 02160CLOS35 DCK/ I,H 02170CLOS36 DCK/ I,H 02180CLOS37 DCK/ I,H   3r 02190CLOS38 DCK/ I,H 02200ROOT43 DCK/ I,H 02210ROOT44 DCK/ I,H 02220ROOT45 DCK/ I,H 02230NTAP48 DCK/ I,H 02240NTAP49 DCK/ I,H 02250NTAP52 DCK/ I,H 02260NTAP53 DCK/ I,H 02270NTAP54 DCK/ I,H 02280NTAP55 DCK/ I,H 02290NTAP57 DCK/ I,H 02300NTAP58 DCK/ I,H 02310DELT59 DCK/ I,H 02320ROOT60 DCK/ I,H 02330ROOT61 DCK/ I,H 02340UPDT62 DCK/ I,H 02350FMMV63 DCK/ I,H 02360KEYR64 DCK/ I,H 02370PARABN DCK/ I,H 02380MON DCK/ I=20,H 02390MON HOL/ 02400 MON 02410 END/ 02420CATERR DCK/ I,H 02430CATFIL DCK/ I,H 02440CATMSG DCK/ I,H 02450CATOBJ DCK/ I,H 02460DISKRD DCK/ I,H 02470GETLPG DCK/ I,H 02480LIST DCK/ I,H 02490PUNCH DCK/ I,H 02500SWITCH DCK/ I,H 02510 END/ 02520_ R  3r mmmmmmmmmmmmmmmmmmmmALrO CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmDUMMY1 DCK/ I=20,H 00010DUMMY1 HOL/ 00020 OPT LPC 00030 END/ 00040AVMBIT DCK/ I,H 00050CCSADD DCK/ I,H 00060CCSBLK DCK/ I,H 00070CCSCST DCK/ I,H 00080CCSEAC DCK/ I,H 00090CCSGET DCK/ I,H 00100CCSHXA DCK/ I,H 00110CCSMVA DCK/ I,H 00120CCSPUT DCK/ I,H 00130CCSPYT DCK/ I,H 00140 DEL/ 13 00150 JMP* (CCSPYT) RETURN 00160 DEL/ 15 00170CCSTIM DCK/ I,H 00180COLECT DCK/ I,H 00190DATHAN DCK/ I,H 00200GETACT DCK/ I,H 00210ICCSAD DCK/ I,H 00220PGGEN DCK/ I,H 00230PUTACT DCK/ I,H 00240 DEL/ 416 00250 SPC 1 138*A009 00260RPGDT1 DCK/ I,H 00270TAPHAN DCK/ I,H 00280UPD400 DCK/ I,H 00290UPDATE DCK/ I,H 00300DUMMY2 DCK/ I=20,H 00310DUMMY2 HOL/ 00320 MON 00330 OPT LPC 00340 END/ 00350ACTADD DCK/ I,H 00360(I  3sACTMTN DCK/ I,H 00370ADDDT1 DCK/ I,H 00380ALVDT1 DCK/ I,H 00390APMDT1 DCK/ I,H 00400AREDT1 DCK/ I,H 00410ASCBIN DCK/ I,H 00420AVMCKD DCK/ I,H 00430AVMCKV DCK/ I,H 00440AVMCON DCK/ I,H 00450AVMDMP DCK/ I,H 00460AVMSRT DCK/ I,H 00470AVMVAC DCK/ I,H 00480BINASC DCK/ I,H 00490BLDSRN DCK/ I,H 00500BLKDT1 DCK/ I,H 00510CCSDMP DCK/ I,H 00520CCSPAS DCK/ I,H 00530CCSSPC DCK/ I,H 00540CHEKID DCK/ I,H 00550CHUPD2 DCK/ I,H 00560CLRFIL DCK/ I,H 00570CMPDLQ DCK/ I,H 00580CMPSUM DCK/ I,H 00590CPYIND DCK/ I,H 00600DAQUEL DCK/ I,H 00610DEBDT1 DCK/ I,H 00620DECMTN DCK/ I,H 00630DELDT1 DCK/ I,H 00640DELFIL DCK/ I,H 00650DHUPDT DCK/ I,H 00660DMPDAT DCK/ I,H 00670DMPFIL DCK/ I,H 00680DPTDT1 DCK/ I,H 00690DSPDT1 DCK/ I,H 00700EDIT DCK/ I,H 00710FILERR DCK/ I,H 00720FTNDT1 DCK/ I,H 00730GPMDT1 DCK/ I,H 00740GTPDT1 DCK/ I,H 00750GTSDT1 DCK/ I,H 00760INPUT DCK/ I,H 00770INTGR DCK/ I,H 00780ITKDAC DCK/ I,H 00790LCLRFL DCK/ I,H 00800LDELFL DCK/ I,H 00810LDTDT1 DCK/ I,H 00820LMOVDT DCK/ I,H 00830LODDAT DCK/ I,H 00840-  3s#LODFIL DCK/ I,H 00850LTPRNT DCK/ I,H 00860LTRBLD DCK/ I,H 00870LTRDTE DCK/ I,H 00880LTRPRT DCK/ I,H 00890LTRSTA DCK/ I,H 00900MHUPDT DCK/ I,H 00910MOVDAT DCK/ I,H 00920NEWS DCK/ I,H 00930NMCHNG DCK/ I,H 00940NUMDT1 DCK/ I,H 00950PGCNT1 DCK/ I,H 00960PGCNT2 DCK/ I,H 00970PGGBLK DCK/ I,H 00980PGGEN0 DCK/ I,H 00990PGGEN1 DCK/ I,H 01000PGGEN3 DCK/ I,H 01010PGGN2E DCK/ I,H 01020 DEL/ 87 01030 DATA F1300/' INTEGER REQBFE(24),IDATEX(15),EXTREC(68) '/ 01040PGGN2P DCK/ I,H 01050PGLTTB DCK/ I,H 01060PGPURG DCK/ I,H 01070PGSEDT DCK/ I,H 01080PGSJL DCK/ I,H 01090PGSJR DCK/ I,H 01100PGSLST DCK/ I,H 01110PHDEL1 DCK/ I,H 01120PHDEL2 DCK/ I,H 01130PMEDT1 DCK/ I,H 01140PRETSR DCK/ I,H 01150PRNTIT DCK/ I,H 01160PRTDT1 DCK/ I,H 01170PRTSCN DCK/ I,H 01180QLOAD DCK/ I,H 01190 INS/ 26 01200 INTEGER DT2(3) 01210 INS/ 50 01220 CALL CCSMVA(DT,1,6,DT2,1,6) 01230 DEL/ 54 01240 CALL WTREAD(LUNIT,-1,MSG1,44,-1,IBUF,6,ITC) 01250 DEL/ 58 01260 CALL CCSMVA(IBUF,1,6,DT2,1,6) 01270 DEL/ 61 01280 140 JLDT=ICALJL(DT2,1) 01290 DEL/ 63 01300 JLDTYR=ICCSAD(DT2(3)) 01310R9BASE DCK/ I,H 01320"  3s7R9FLDL DCK/ I,H 01330RESDT1 DCK/ I,H 01340RTVDT1 DCK/ I,H 01350SEEIT DCK/ I,H 01360SUMACL DCK/ I,H 01370SUMHD DCK/ I,H 01380 DEL/ 28,29 01390 DATA HDNG4A / 'DELINQUENT DELINQUENT CURRENT QUEUE ' / 01400 DATA HDNG4B / 'PROMISED TO PAY NEXT REVIEW ' / 01410TAPE DCK/ I,H 01420TOTEDT DCK/ I,H 01430TRENDF DCK/ I,H 01440TRENDU DCK/ I,H 01450TRHDT1 DCK/ I,H 01460TRNPLY DCK/ I,H 01470TVPDT1 DCK/ I,H 01480UIDMTN DCK/ I,H 01490USEMTN DCK/ I,H 01500UTFMTN DCK/ I,H 01510UTHEAD DCK/ I,H 01520VALDT1 DCK/ I,H 01530WRTOFE DCK/ I,H 01540XLAT DCK/ I,H 01550DUMMY3 DCK/ I=20,H 01560DUMMY3 HOL/ 01570 MON 01580 OPT LPC 01590 END/ 01600COLMAC DCK/ I,H 01610BLKDAT DCK/ I,H 01620ACTEDT DCK/ I,H 01630CHSCRN DCK/ I,H 01640CLANEX DCK/ I,H 01650DAAASC DCK/ I,H 01660DISPLY DCK/ I,H 01670EACTSQ DCK/ I,H 01680EATRNG DCK/ I,H 01690FCOLEC DCK/ I,H 01700GETCHF DCK/ I,H 01710ICHEKQ DCK/ I,H 01720ICHENT DCK/ I,H 01730NMSRCH DCK/ I,H 01740PCPROC DCK/ I,H 01750PIKAMT DCK/ I,H 01760SAVTRN DCK/ I,H 01770DUMMY4 DCK/ I=20,H 01780DUMMY4 HOL/ 01790 MON 01800Y  3sK OPT LPC 01810 END/ 01820UPDMAC DCK/ I,H 01830ADDIT DCK/ I,H 01840CHNGNF DCK/ I,H 01850CONUPD DCK/ I,H 01860COSUPD DCK/ I,H 01870FORMLN DCK/ I,H 01880FUPDAT DCK/ I,H 01890GETMAS DCK/ I,H 01900LABHAN DCK/ I,H 01910NXTRAN DCK/ I,H 01920PRTLIN DCK/ I,H 01930REACIT DCK/ I,H 01940RSWIT DCK/ I,H 01950TOTALP DCK/ I,H 01960UNCUPD DCK/ I,H 01970UPDBLK DCK/ I,H 01980UPDEND DCK/ I,H 01990UPDIT DCK/ I,H 02000UPINIT DCK/ I,H 02010DUMMY5 DCK/ I=20,H 02020DUMMY5 HOL/ 02030 MON 02040 OPT LPC 02050 END/ 02060UP4MAC DCK/ I,H 02070UP4BLK DCK/ I,H 02080FUPD4X DCK/ I,H 02090UP4INI DCK/ I,H 02100UP4LAB DCK/ I,H 02110UP4NXT DCK/ I,H 02120UP4TOT DCK/ I,H 02130UP4END DCK/ I,H 02140UP4GTM DCK/ I,H 02150UP4GTC DCK/ I,H 02160UP4PRT DCK/ I,H 02170UP4FML DCK/ I,H 02180 END/ 02190_  3s_ 5  3ss   3rALtrO CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmRPGIIH DCK/ I,H 00010RPGIIF DCK/ I,H 00020RPGIIE DCK/ I,H 00030RPGIIL DCK/ I,H 00040RPGIII DCK/ I,H 00050RPGIIC DCK/ I,H 00060RPGIIO DCK/ I,H 00070RPGIIA DCK/ I,H 00080RPGIIM DCK/ I,H 00090RPGROT DCK/ I,H 00100RPGDMY DCK/ I,H 00110RPG DCK/ I,H 00120RPGII DCK/ I,H 00130R9ADSB DCK/ I,H 00140R9ARG DCK/ I,H 00150R9ARTH DCK/ I,H 00160R9ASQR DCK/ I,H 00170R9ATON DCK/ I,H 00180R9BDPR DCK/ I,H 00190R9BEG1 DCK/ I,H 00200R9BEG2 DCK/ I,H 00210R9BEG3 DCK/ I,H 00220R9BEG4 DCK/ I,H 00230R9BEG5 DCK/ I,H 00240R9BGCL DCK/ I,H 00250R9BGOT DCK/ I,H 00260R9BINP DCK/ I,H 00270R9BINT DCK/ I,H 00280R9BITF DCK/ I,H 00290R9BITN DCK/ I,H 00300R9CALC DCK/ I,H 00310R9CHAN DCK/ I,H 00320R9CHAR DCK/ I,H 00330R9CHIN DCK/ I,H 00340R9CKXF DCK/ I,H 00350R9CLOS DCK/ I,H 00360R9CLPR DCK/ I,H 00370R9CLRC DCK/ I,H 00380R9CLRE DCK/ I,H 00390R9CLSV DCK/ I,H 00400R9CMBD DCK/ I,H 00410R9CMOV DCK/ I,H 00420R9CMPR DCK/ I,H 00430R9CNTR DCK/ I,H 00440R9COMP DCK/ I,H 00450R9CRIN DCK/ I,H   3r 00460R9DEBG DCK/ I,H 00470R9DETP DCK/ I,H 00480R9DIVD DCK/ I,H 00490R9DMND DCK/ I,H 00500R9DSPY DCK/ I,H 00510R9DUM0 DCK/ I,H 00520R9DUM1 DCK/ I,H 00530R9ECOD DCK/ I,H 00540R9EDCN DCK/ I,H 00550R9EDIT DCK/ I,H 00560R9ELOC DCK/ I,H 00570R9ENDL DCK/ I,H 00580R9ENTS DCK/ I,H 00590R9EXCP DCK/ I,H 00600R9EXIT DCK/ I,H 00610R9FILR DCK/ I,H 00620R9FINS DCK/ I,H 00630R9FLDL DCK/ I,H 00640R9FLOW DCK/ I,H 00650R9FMAL DCK/ I,H 00660R9FNBG DCK/ I,H 00670R9FORC DCK/ I,H 00680R9FSTL DCK/ I,H 00690R9FTNX DCK/ I,H 00700R9FTOV DCK/ I,H 00710R9GETS DCK/ I,H 00720R9GOTO DCK/ I,H 00730R9GRAR DCK/ I,H 00740R9ICTL DCK/ I,H 00750R9IDMX DCK/ I,H 00760R9INDM DCK/ I,H 00770R9INIT DCK/ I,H 00780R9INMV DCK/ I,H 00790R9INTA DCK/ I,H 00800R9INTL DCK/ I,H 00810R9INTV DCK/ I,H 00820R9IOCL DCK/ I,H 00830R9IPBG DCK/ I,H 00840R9IPUT DCK/ I,H 00850R9ITLP DCK/ I,H 00860R9LAHD DCK/ I,H 00870R9LBY DCK/ I,H 00880R9LCAE DCK/ I,H 00890R9LEL DCK/ I,H 00900R9LKUP DCK/ I,H 00910R9LOAD DCK/ I,H 00920R9LOCL DCK/ I,H 00930R9LRCK DCK/ I,H n  3r 00940R9LSMB DCK/ I,H 00950R9MIB DCK/ I,H 00960R9MIW DCK/ I,H 00970R9MMOV DCK/ I,H 00980R9MOVA DCK/ I,H 00990R9MOVE DCK/ I,H 01000R9MOVZ DCK/ I,H 01010R9MTRN DCK/ I,H 01020R9MTWK DCK/ I,H 01030R9MULT DCK/ I,H 01040R9MVB DCK/ I,H 01050R9MVBX DCK/ I,H 01060R9MVTA DCK/ I,H 01070R9MVW DCK/ I,H 01080R9MVWD DCK/ I,H 01090R9MWI DCK/ I,H 01100R9NRMX DCK/ I,H 01110R9NSQR DCK/ I,H 01120R9NTOA DCK/ I,H 01130R9NXFL DCK/ I,H 01140R9NXRC DCK/ I,H 01150R9OPCD DCK/ I,H 01160R9OPNF DCK/ I,H 01170R9OPNV DCK/ I,H 01180R9OTMG DCK/ I,H 01190R9OTMV DCK/ I,H 01200R9OTPT DCK/ I,H 01210R9OVOP DCK/ I,H 01220R9OV50 DCK/ I,H 01230R9PACK DCK/ I,H 01240R9PAGE DCK/ I,H 01250R9POSS DCK/ I,H 01260R9PRCL DCK/ I,H 01270R9PRFN DCK/ I,H 01280R9PTCH DCK/ I,H 01290R9PUTS DCK/ I,H 01300R9RCAD DCK/ I,H 01310R9RDEN DCK/ I,H 01320R9READ DCK/ I,H 01330R9ROOM DCK/ I,H 01340R9ROOT DCK/ I,H 01350R9RPRT DCK/ I,H 01360R9RSLT DCK/ I,H 01370R9RSTS DCK/ I,H 01380R9SAVE DCK/ I,H 01390R9SAV1 DCK/ I,H 01400R9SAV2 DCK/ I,H 01410R9SAV3 DCK/ I,H s  3r 01420R9SAV4 DCK/ I,H 01430R9SAV5 DCK/ I,H 01440R9SBY DCK/ I,H 01450R9SETF DCK/ I,H 01460R9SETN DCK/ I,H 01470R9SHFT DCK/ I,H 01480R9SKIP DCK/ I,H 01490R9SPAC DCK/ I,H 01500R9SPTP DCK/ I,H 01510R9SQRT DCK/ I,H 01520R9STH0 DCK/ I,H 01530R9STLL DCK/ I,H 01540R9STON DCK/ I,H 01550R9STUB DCK/ I,H 01560R9SWCH DCK/ I,H 01570R9TBOT DCK/ I,H 01580R9TIME DCK/ I,H 01590R9TP40 DCK/ I,H 01600R9TRAL DCK/ I,H 01610R9TRCE DCK/ I,H 01620R9TROT DCK/ I,H 01630R9TSTB DCK/ I,H 01640R9TSTN DCK/ I,H 01650R9TSTZ DCK/ I,H 01660R9TTOP DCK/ I,H 01670R9UNPK DCK/ I,H 01680R9WOTV DCK/ I,H 01690R9XCPT DCK/ I,H 01700R9XFOT DCK/ I,H 01710R9XRSD DCK/ I,H 01720R9YCOD DCK/ I,H 01730R9ZADS DCK/ I,H 01740R9ZCOD DCK/ I,H 01750R9999B DCK/ I,H 01760CATGET DCK/ I,H 01770CATLOG DCK/ I,H 01780CATLU DCK/ I,H 01790CATSKL DCK/ I,H 01800CM00PT DCK/ I,H 01810CM02IN DCK/ I,H 01820CM03GO DCK/ I,H 01830CVASEB DCK/ I,H 01840ERRO46 DCK/ I,H 01850FMCALL DCK/ I,H 01860FORTN DCK/ I,H 01870IO00WR DCK/ I,H 01880MOUNT DCK/ I,H 01890Q8PRMS DCK/ I,H  3r 01900SELMU DCK/ I,H 01910STRACE DCK/ I,H 01920SUBRAJ DCK/ I,H 01930SUBRED DCK/ I,H 01940SUBRFL DCK/ I,H 01950SUBRIN DCK/ I,H 01960SUBRMV DCK/ I,H 01970TRACER DCK/ I,H 01980OPEN01 DCK/ I,H 01990OPEN02 DCK/ I,H 02000OPEN03 DCK/ I,H 02010OPEN04 DCK/ I,H 02020READ09 DCK/ I,H 02030READ10 DCK/ I,H 02040READ11 DCK/ I,H 02050READ12 DCK/ I,H 02060READ13 DCK/ I,H 02070WRIT17 DCK/ I,H 02080WRIT18 DCK/ I,H 02090WRIT19 DCK/ I,H 02100WRIT20 DCK/ I,H 02110WRIT21 DCK/ I,H 02120WRIT23 DCK/ I,H 02130UPDT25 DCK/ I,H 02140UPDT26 DCK/ I,H 02150SETL33 DCK/ I,H 02160CLOS35 DCK/ I,H 02170CLOS36 DCK/ I,H 02180CLOS37 DCK/ I,H 02190CLOS38 DCK/ I,H 02200ROOT43 DCK/ I,H 02210ROOT44 DCK/ I,H 02220ROOT45 DCK/ I,H 02230NTAP48 DCK/ I,H 02240NTAP49 DCK/ I,H 02250NTAP52 DCK/ I,H 02260NTAP53 DCK/ I,H 02270NTAP54 DCK/ I,H 02280NTAP55 DCK/ I,H 02290NTAP57 DCK/ I,H 02300NTAP58 DCK/ I,H 02310DELT59 DCK/ I,H 02320ROOT60 DCK/ I,H 02330ROOT61 DCK/ I,H 02340UPDT62 DCK/ I,H 02350FMMV63 DCK/ I,H 02360KEYR64 DCK/ I,H 02370PARABN DCK/ I,H  3r 02380MON DCK/ I=20,H 02390MON HOL/ 02400 MON 02410 END/ 02420CATERR DCK/ I,H 02430CATFIL DCK/ I,H 02440CATMSG DCK/ I,H 02450CATOBJ DCK/ I,H 02460DISKRD DCK/ I,H 02470GETLPG DCK/ I,H 02480LIST DCK/ I,H 02490PUNCH DCK/ I,H 02500SWITCH DCK/ I,H 02510 END/ 02520_ mmmmmmmmmmmmmmmmmmmmALrO CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmDUMMY1 DCK/ I=20,H 00010DUMMY1 HOL/ 00020 OPT LPC 00030 END/ 00040AVMBIT DCK/ I,H 00050CCSADD DCK/ I,H 00060CCSBLK DCK/ I,H 00070CCSCST DCK/ I,H Y  3s 00080CCSEAC DCK/ I,H 00090CCSGET DCK/ I,H 00100CCSHXA DCK/ I,H 00110CCSMVA DCK/ I,H 00120CCSPUT DCK/ I,H 00130CCSPYT DCK/ I,H 00140 DEL/ 13 00150 JMP* (CCSPYT) RETURN 00160 DEL/ 15 00170CCSTIM DCK/ I,H 00180COLECT DCK/ I,H 00190DATHAN DCK/ I,H 00200GETACT DCK/ I,H 00210ICCSAD DCK/ I,H 00220PGGEN DCK/ I,H 00230PUTACT DCK/ I,H 00240 DEL/ 416 00250 SPC 1 138*A009 00260RPGDT1 DCK/ I,H 00270TAPHAN DCK/ I,H 00280UPD400 DCK/ I,H 00290UPDATE DCK/ I,H 00300DUMMY2 DCK/ I=20,H 00310DUMMY2 HOL/ 00320 MON 00330 OPT LPC 00340 END/ 00350ACTADD DCK/ I,H 00360ACTMTN DCK/ I,H 00370ADDDT1 DCK/ I,H 00380ALVDT1 DCK/ I,H 00390APMDT1 DCK/ I,H 00400AREDT1 DCK/ I,H 00410ASCBIN DCK/ I,H 00420AVMCKD DCK/ I,H 00430AVMCKV DCK/ I,H 00440AVMCON DCK/ I,H 00450AVMDMP DCK/ I,H 00460AVMSRT DCK/ I,H 00470AVMVAC DCK/ I,H 00480BINASC DCK/ I,H 00490BLDSRN DCK/ I,H 00500BLKDT1 DCK/ I,H 00510CCSDMP DCK/ I,H 00520CCSPAS DCK/ I,H 00530CCSSPC DCK/ I,H 00540CHEKID DCK/ I,H 00550CHUPD2 DCK/ I,H ,  3s 00560CLRFIL DCK/ I,H 00570CMPDLQ DCK/ I,H 00580CMPSUM DCK/ I,H 00590CPYIND DCK/ I,H 00600DAQUEL DCK/ I,H 00610DEBDT1 DCK/ I,H 00620DECMTN DCK/ I,H 00630DELDT1 DCK/ I,H 00640DELFIL DCK/ I,H 00650DHUPDT DCK/ I,H 00660DMPDAT DCK/ I,H 00670DMPFIL DCK/ I,H 00680DPTDT1 DCK/ I,H 00690DSPDT1 DCK/ I,H 00700EDIT DCK/ I,H 00710FILERR DCK/ I,H 00720FTNDT1 DCK/ I,H 00730GPMDT1 DCK/ I,H 00740GTPDT1 DCK/ I,H 00750GTSDT1 DCK/ I,H 00760INPUT DCK/ I,H 00770INTGR DCK/ I,H 00780ITKDAC DCK/ I,H 00790LCLRFL DCK/ I,H 00800LDELFL DCK/ I,H 00810LDTDT1 DCK/ I,H 00820LMOVDT DCK/ I,H 00830LODDAT DCK/ I,H 00840LODFIL DCK/ I,H 00850LTPRNT DCK/ I,H 00860LTRBLD DCK/ I,H 00870LTRDTE DCK/ I,H 00880LTRPRT DCK/ I,H 00890LTRSTA DCK/ I,H 00900MHUPDT DCK/ I,H 00910MOVDAT DCK/ I,H 00920NEWS DCK/ I,H 00930NMCHNG DCK/ I,H 00940NUMDT1 DCK/ I,H 00950PGCNT1 DCK/ I,H 00960PGCNT2 DCK/ I,H 00970PGGBLK DCK/ I,H 00980PGGEN0 DCK/ I,H 00990PGGEN1 DCK/ I,H 01000PGGEN3 DCK/ I,H 01010PGGN2E DCK/ I,H 01020 DEL/ 87 01030 DATA F1300٨  3s+/' INTEGER REQBFE(24),IDATEX(15),EXTREC(68) '/ 01040PGGN2P DCK/ I,H 01050PGLTTB DCK/ I,H 01060PGPURG DCK/ I,H 01070PGSEDT DCK/ I,H 01080PGSJL DCK/ I,H 01090PGSJR DCK/ I,H 01100PGSLST DCK/ I,H 01110PHDEL1 DCK/ I,H 01120PHDEL2 DCK/ I,H 01130PMEDT1 DCK/ I,H 01140PRETSR DCK/ I,H 01150PRNTIT DCK/ I,H 01160PRTDT1 DCK/ I,H 01170PRTSCN DCK/ I,H 01180QLOAD DCK/ I,H 01190 INS/ 26 01200 INTEGER DT2(3) 01210 INS/ 50 01220 CALL CCSMVA(DT,1,6,DT2,1,6) 01230 DEL/ 54 01240 CALL WTREAD(LUNIT,-1,MSG1,44,-1,IBUF,6,ITC) 01250 DEL/ 58 01260 CALL CCSMVA(IBUF,1,6,DT2,1,6) 01270 DEL/ 61 01280 140 JLDT=ICALJL(DT2,1) 01290 DEL/ 63 01300 JLDTYR=ICCSAD(DT2(3)) 01310R9BASE DCK/ I,H 01320R9FLDL DCK/ I,H 01330RESDT1 DCK/ I,H 01340RTVDT1 DCK/ I,H 01350SEEIT DCK/ I,H 01360SUMACL DCK/ I,H 01370SUMHD DCK/ I,H 01380 DEL/ 28,29 01390 DATA HDNG4A / 'DELINQUENT DELINQUENT CURRENT QUEUE ' / 01400 DATA HDNG4B / 'PROMISED TO PAY NEXT REVIEW ' / 01410TAPE DCK/ I,H 01420TOTEDT DCK/ I,H 01430TRENDF DCK/ I,H 01440TRENDU DCK/ I,H 01450TRHDT1 DCK/ I,H 01460TRNPLY DCK/ I,H 01470TVPDT1 DCK/ I,H 01480UIDMTN DCK/ I,H 01490USEMTN DCK/ I,H 01500UTFMTN DCK/ I,H 01510UTHEAD DCK/ I,H A  3s? 01520VALDT1 DCK/ I,H 01530WRTOFE DCK/ I,H 01540XLAT DCK/ I,H 01550DUMMY3 DCK/ I=20,H 01560DUMMY3 HOL/ 01570 MON 01580 OPT LPC 01590 END/ 01600COLMAC DCK/ I,H 01610BLKDAT DCK/ I,H 01620ACTEDT DCK/ I,H 01630CHSCRN DCK/ I,H 01640CLANEX DCK/ I,H 01650DAAASC DCK/ I,H 01660DISPLY DCK/ I,H 01670EACTSQ DCK/ I,H 01680EATRNG DCK/ I,H 01690FCOLEC DCK/ I,H 01700GETCHF DCK/ I,H 01710ICHEKQ DCK/ I,H 01720ICHENT DCK/ I,H 01730NMSRCH DCK/ I,H 01740PCPROC DCK/ I,H 01750PIKAMT DCK/ I,H 01760SAVTRN DCK/ I,H 01770DUMMY4 DCK/ I=20,H 01780DUMMY4 HOL/ 01790 MON 01800 OPT LPC 01810 END/ 01820UPDMAC DCK/ I,H 01830ADDIT DCK/ I,H 01840CHNGNF DCK/ I,H 01850CONUPD DCK/ I,H 01860COSUPD DCK/ I,H 01870FORMLN DCK/ I,H 01880FUPDAT DCK/ I,H 01890GETMAS DCK/ I,H 01900LABHAN DCK/ I,H 01910NXTRAN DCK/ I,H 01920PRTLIN DCK/ I,H 01930REACIT DCK/ I,H 01940RSWIT DCK/ I,H 01950TOTALP DCK/ I,H 01960UNCUPD DCK/ I,H 01970UPDBLK DCK/ I,H 01980UPDEND DCK/ I,H 01990UPDIT DCK/ I,H n  3sS 02000UPINIT DCK/ I,H 02010DUMMY5 DCK/ I=20,H 02020DUMMY5 HOL/ 02030 MON 02040 OPT LPC 02050 END/ 02060UP4MAC DCK/ I,H 02070UP4BLK DCK/ I,H 02080FUPD4X DCK/ I,H 02090UP4INI DCK/ I,H 02100UP4LAB DCK/ I,H 02110UP4NXT DCK/ I,H 02120UP4TOT DCK/ I,H 02130UP4END DCK/ I,H 02140UP4GTM DCK/ I,H 02150UP4GTC DCK/ I,H 02160UP4PRT DCK/ I,H 02170UP4FML DCK/ I,H 02180 END/ 02190_  3sg   3s{   3s ~  3\AL+\P CCS20 ^1_$NXTBYT = NXTBYT + 2_^1_$CALL CCSMVA(SDEF(J),ONE,TWO,OBUF,NXTBYT,TWO)_^1_$NXTBYT = NXTBYT +2_^1_$ASSIGN 60 TO IRTN_^1C_#WRITE OUTPUT BUFFER._^1_$GO TO 400_^11_]_^1CHUPD1 DCK/ I,H 00010COLCHG DCK/ I,H 00020COLSTS DCK/ I,H 00030DALIST DCK/ I,H 00040DTLLST DCK/ I,H 00050ITKDTL DCK/ I,H 00060PGCMPR DCK/ I,H 00070PGLIST DCK/ I,H 00080PGUPTB DCK/ I,H 00090TIMUSE DCK/ I,H 00100TRENDP DCK/ I,H 00110UPD500 DCK/ I,H 00120WRTOFP DCK/ I,H 00130ZCCS16 DCK/ I,H 00140ZCCS17 DCK/ I,H 00150ZCCS18 DCK/ I,H 00160ZCCS19 DCK/ I,H 00170ZCCS20 DCK/ I,H 00180 END/ 00190_ B  3\  3\ ISTAT=SCREEN_^1C_#REPORT ERROR. ERROR FATAL, CLOSE ALL FILES ANDAL@\P CCS20 TSC,J,ISTAT,LU)_^1_$CALL LCLANX_^12_]_^1C_#OUTPUT COMPLETE. NORMAL TERMINATION._^1C_#RETRIEVE CHANGE SCREEN FIELD DESCRIPTIONS IF REQUIRED._^1 900 IF(SCREEN.EQ.33.AN*JOB 00010*CTO,...FILE: CCSAPR.J 00020*CTO,CCS APPLICATION RPG BINARY GENERATION. 00030*CTO, CCS CUDDLY TO HOLLERITH 00040*OPEN,FN=CCSAPR.U,OW=CCS20,VL=SOURCE,LU=20,R 00050*OPEN,FN=CCSAPR.B,OW=CCS20,VL=SOURCE,LU=21,W 00060*OPEN,FN=RPG.92.T,OW=CCS20,VL=SOURCE,LU=22,W 00070*CTO,MOUNT CCS 3.O CUDDLY TAPE ON UNIT 0 00080*PAUS 00090*K,I20 00100*CSY,I6,P22 00110*CUDDLY 00120*CTO, CUDDLY TO HOLERITH DONE 00130*CTO, PUNCH CCS RPG BINARIES 00140*K,I22,L12,P21 00150*RPGII 00160*RBDPCH 00170*RPGII 00180*RBDPCH 00190*RPGII 00200*RBDPCH 00210*RPGII 00220*RBDPCH 00230*RPGII 00240*RBDPCH 00250*RPGII 00260*RBDPCH 00270*RPGII 00280*RBDPCH 00290*RPGII 00300*RBDPCH 00310*RPGII 00320*RBDPCH 00330*RPGII 00340*RBDPCH 00350*RPGII 00360*RBDPCH 00370*RPGII 00380*RBDPCH <  3\ 00390*RPGII 00400*RBDPCH 00410*RPGII 00420*RBDPCH 00430*RPGII 00440*RBDPCH 00450*RPGII 00460*RBDPCH 00470*RPGII 00480*RBDPCH 00490*RPGII 00500*RBDPCH 00510*K,L14 00520*CTO,CCS APPLICATION BINARY GENERATION COMPLETE. 00530_ 7*  3] z  3] 1_$IF(I.GT.0.AND.J.GE.0.AND.J.LE.MAXNCD) GO TO 385_^11_]_^11_]_^1C_#INVALID DATE_^1 355 CALL LDAL+]!P CCS20 TO 325_^11_]_^1C_#ACTION = SR. NCD AUTOMATICALLY SET ON TO NEXT DAY._^1 360 NCD=ICALJL(DATE,ONE)+1_^1_$GO TO 375_^11_]_^1C_#RESULT = PP. NCD AUTOMATICALLY SET TO A CCOMPAY DCK/ I,H 00010DIRPAY DCK/ I,H 00020INVCLI DCK/ I,H 00030INVCUS DCK/ I,H 00040LARPRT DCK/ I,H 00050LBATPT DCK/ I,H 00060LCHUD1 DCK/ I,H 00070LCOLCG DCK/ I,H 00080LCOLST DCK/ I,H 00090LDALST DCK/ I,H 00100LDTLST DCK/ I,H 00110LPGCMP DCK/ I,H 00120LPGLIS DCK/ I,H 00130LPGUTB DCK/ I,H 00140LTMUSE DCK/ I,H 00150LTRNDP DCK/ I,H 00160LUD50A DCK/ I,H 00170LUD50E DCK/ I,H 00180LWROFP DCK/ I,H 00190RECVRY DCK/ I,H 00200ZLA21 DCK/ I,H 00210ZLA22 DCK/ I,H 00220ZLA23 DCK/ I,H 00230ZLA24 DCK/ I,H 00240ZLA25 DCK/ I,H 00250 END/ 00260_   3\AL@\P CCS20 TSC,J,ISTAT,LU)_^1_$CALL LCLANX_^12_]_^1C_#OUTPUT COMPLETE. NORMAL TERMINATION._^1C_#RETRIEVE CHANGE SCREEN FIELD DESCRIPTIONS IF REQUIRED._^1 900 IF(SCREEN.EQ.33.AN*JOB 00010*CTO,...FILE: CCSAPR.J 00020*CTO,CCS APPLICATION RPG BINARY GENERATION. 00030*CTO, CCS CUDDLY TO HOLLERITH 00040*OPEN,FN=CCSAPR.U,OW=CCS20,VL=SOURCE,LU=20,R 00050*OPEN,FN=CCSAPR.B,OW=CCS20,VL=SOURCE,LU=21,W 00060*OPEN,FN=RPG.92.T,OW=CCS20,VL=SOURCE,LU=22,W 00070*CTO,MOUNT CCS 3.O CUDDLY TAPE ON UNIT 0 00080*PAUS 00090*K,I20 00100*CSY,I6,P22 00110*CUDDLY 00120*CTO, CUDDLY TO HOLERITH DONE 00130*CTO, PUNCH CCS RPG BINARIES 00140*K,I22,L12,P21 00150*RPGII 00160*RBDPCH 00170*RPGII 00180*RBDPCH 00190*RPGII 00200*RBDPCH 00210*RPGII 00220*RBDPCH 00230*RPGII 00240*RBDPCH 00250*RPGII 00260*RBDPCH 00270*RPGII 00280*RBDPCH 00290*RPGII 00300*RBDPCH 00310*RPGII 00320*RBDPCH 00330*RPGII 00340*RBDPCH 00350*RPGII 00360*RBDPCH 00370*RPGII 00380*RBDPCH 00390*RPGII 00400*RBDPCH 00410*RPGII 00420*RBDPCH 00430*RPGII 00440*RBDPCH 00450*RPGII I  3\ 00460*RBDPCH 00470*RPGII 00480*RBDPCH 00490*RPGII 00500*RBDPCH 00510*K,L14 00520*CTO,CCS APPLICATION BINARY GENERATION COMPLETE. 00530_ L  3]  s  3] 1_$IF(I.GT.0.AND.J.GE.0.AND.J.LE.MAXNCD) GO TO 385_^11_]_^11_]_^1C_#INVALID DATE_^1 355 CALL LDAL+]!P CCS20 TO 325_^11_]_^1C_#ACTION = SR. NCD AUTOMATICALLY SET ON TO NEXT DAY._^1 360 NCD=ICALJL(DATE,ONE)+1_^1_$GO TO 375_^11_]_^1C_#RESULT = PP. NCD AUTOMATICALLY SET TO A CCOMPAY DCK/ I,H 00010DIRPAY DCK/ I,H 00020INVCLI DCK/ I,H 00030INVCUS DCK/ I,H 00040LARPRT DCK/ I,H 00050LBATPT DCK/ I,H 00060LCHUD1 DCK/ I,H 00070LCOLCG DCK/ I,H 00080LCOLST DCK/ I,H 00090LDALST DCK/ I,H 00100LDTLST DCK/ I,H 00110LPGCMP DCK/ I,H 00120LPGLIS DCK/ I,H 00130LPGUTB DCK/ I,H 00140LTMUSE DCK/ I,H 00150LTRNDP DCK/ I,H 00160LUD50A DCK/ I,H 00170LUD50E DCK/ I,H 00180LWROFP DCK/ I,H 00190RECVRY DCK/ I,H 00200ZLA21 DCK/ I,H 00210ZLA22 DCK/ I,H 00220ZLA23 DCK/ I,H 00230ZLA24 DCK/ I,H 00240ZLA25 DCK/ I,H 00250 END/ 00260_   3]1 I  3]E REQ.EQ.0) GO TO 300_^1C_#LETTER REQUIRED._^1_$CALL LDSPLY(EALTRQALU]LP CCS20 ]_^1C_#CHECK FOR NUMERIC ENTRY ON LETTER CODE._^1 160 CALL CCSGET(IOBUF,ONE,J)_^1_$CALL CCSGET(IOBUF,TWO,K)_^1_$IF(J.GE.$30.AND.J.LT.$3A.AND.K.GE.$30.AND.K.LT.$3A) G*JOB 00010*CTO,...FILE: LAAPR.J 00020*CTO,LEGAL/AGENCY RPG BINARY GENERATION. 00030*CTO, L/A CUDDLY TO HOLLERITH 00040*OPEN,FN=LAAPR.U,OW=CCS20,VL=SOURCE,LU=20,R 00050*OPEN,FN=LAAPR.B,OW=CCS20,VL=SOURCE,LU=21,W 00060*OPEN,FN=RPG.92.T,OW=CCS20,VL=SOURCE,LU=22,W 00070*CTO,MOUNT L/A 3.O CUDDLY TAPE ON UNIT 0 00080*PAUS 00090*K,I20 00100*CSY,I6,P22 00110*CUDDLY 00120*CTO, CUDDLY TO HOLERITH DONE 00130*CTO, PUNCH L/A RPG BINARIES 00140*K,I22,L12,P21 00150*RPGII 00160*RBDPCH 00170*RPGII 00180*RBDPCH 00190*RPGII 00200*RBDPCH 00210*RPGII 00220*RBDPCH 00230*RPGII 00240*RBDPCH 00250*RPGII 00260*RBDPCH 00270*RPGII 00280*RBDPCH DM  3]Y 00290*RPGII 00300*RBDPCH 00310*RPGII 00320*RBDPCH 00330*RPGII 00340*RBDPCH 00350*RPGII 00360*RBDPCH 00370*RPGII 00380*RBDPCH 00390*RPGII 00400*RBDPCH 00410*RPGII 00420*RBDPCH 00430*RPGII 00440*RBDPCH 00450*RPGII 00460*RBDPCH 00470*RPGII 00480*RBDPCH 00490*RPGII 00500*RBDPCH 00510*RPGII 00520*RBDPCH 00530*RPGII 00540*RBDPCH 00550*RPGII 00560*RBDPCH 00570*RPGII 00580*RBDPCH 00590*RPGII 00600*RBDPCH 00610*RPGII 00620*RBDPCH 00630*RPGII 00640*RBDPCH 00650*K,L14 00660*CTO,LEGAL/AGENCY RPG BINARY GENERATION COMPLETE. 00670_   3]m  3sALZsO CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm IDENT DECDAG T02 M ITOS CCS 3.0 SL-149T0200001* MICRO CODE DECIMAL ARITHMETIC DIAGNOSTIC T0200002* CREDIT COLLECTION SYSTEM VERSION 3.0 T0200003* DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA T0200004* COPYRIGHT CONTROL DATA CORPORATION 1979 T0200005 SPACE 2 T0200006 CMP2 T0200007 ZMAP T0200008 PMAP T0200009 CPR 1979 T0200010- RELO DECAEND CPG1-2 T0200011 BOX T0200012* T0200013* T0200014* D E C I M A L A R I T H M E T I C T E S T T0200015* T0200016* T0200017* THE TESTS ADDS DECIMALY AND CHECKS THE FOLLOWING NUMBERST0200018* ON EXIT, IF A=0, THE TEST WAS DONE CORRECTLY. T0200019* IF A IS NOT ZERO, AN ERROR OCCURRED. T0200020* T0200021* ERROR CODES T0200022* T0200023* T0200024* ERROR 1 - ILLEGAL CARRY, BAD BOARD T0200025* ERROR 2 - NO CARRY ON ILLEGAL CHAR OR CARRYOUT, LOGIC PROBLEM T0200026* ON BOARD DUE TO WRONG WIREING CHANGES OR DEFECTIVE T0200027* CHIP. T0200028* ERROR 3 - NO CARRY ON NINE, 6 WIREING ERROR ON BACKPLANE. T0200029* T0200030* T0200031* 9999 9999 9999 9999 9999 9999 9999 9999 T0200032* + 0000 7777 6666 5555 4444 3333 2222 1112 T0200033* --------------------------------------------------------------T0200034* 0001 0000 7777 6666 5555 4444 3333 2222 1111 T0200035* T0200036 EBOX T0200037 SPACE 2 T0200038 EJECT T0200039 BOX T0200040* T0200041* S T A T U S / M O D E R E G I S T E R O N E SM100-SM115 T0200042* T0200043 EBOX T0200044 DBLEPREC EQU 0 ENABLE DOUBLE PRECISION ARITHMETIC T0200045 ONESCOMP EQU 1 +++ ENABLE ONES (RATHER [V  3sTHAN TWOS) COMPLEMENT ART0200046 NREGTOBG EQU 2 +++ ENABLE N REGISTER (RATHER C-FIELD) TO BIT GET0200047 SPLITADD EQU 3 ENABLE SPLIT ADDER OPTION T0200048 MACBPINT EQU 4 +++ MACRO-BREAKPOINT INTERRUPT OCCURRED T0200049 PROTFLT EQU 5 +++ 1700 PROTECT FAULT OCCURRED T0200050 MACROINT EQU 6 +++ ENABLE MACRO (1700) INTERRUPTS T0200051 DECARITH EQU 7 ENABLE DECIMAL ARITHMETIC (F1INPUT MUST BE CT0200052 MEMPERR EQU 8 +++ 1700 MEMORY PARITY ERROR OCCURRED T0200053 MICROHLT EQU 9 +++ ENABLE MICRO HALT OR SCIENT/COMMERCIAL INSTRT0200054 OVERFLOW EQU 10 +++ 1700 OVERFLOW OCCURRED T0200055 F1INPUT EQU 11 +++ ENABLE FILE 1 (RATHER THAN TRANSFORM) INPUT T0200056 BINOVFL EQU 12 ENABLE BINARY OVERFLOW (DECARITH MUST BE CLET0200057 RWXFORM EQU 13 ENABLE R/W MICROMEMORY VIA MA XFORM (RATHER T0200058 DELAYEMI EQU 14 +++ DELAY ENABLING OF MACRO INTERRUPTS UNTIL 1 GT0200059* EQU 15 NOT USED T0200060 BOX T0200061* T0200062* S T A T U S / M O D E R E G I S T E R T W O SM200-SM215 T0200063* T0200064 EBOX T0200065 ADTLINE EQU 0 +++ ENABLE AUTO-DATA TRANSFER MODE (SELECT LINE)T0200066 STROBE EQU 1 +++ STROBE DATA TO/FROM SELECTED M05 PERIPHERAL T0200067 READLINE EQU 1 +++ READ DATA FROM SELECTED A/Q PERIPHERAL T0200068 WRITLINE EQU 2 +++ WRITE DATA TO SELECTED A/Q PERIPHERAL T0200069 PORTLINE EQU 2 +++ ENABLE M05 TRANSFER MODE (PORT LINE) T0200070 TERMLINE EQU 3 +++ TERMINATE I/O TRANSFER AND GENERATE MACRO INT0200071 DEADSTR EQU 4 +++ DEADSTART LOADING TO MICRO/MACRO MEMORY OCCUT0200072* EQU 5 NOT USED T0200073* EQU 6 NOT USED T0200074 PAGXFORM EQU 7 +++ ENABLE PAGE SELECTION (IN S-FIELD) WITH MA TT0200075* EQU 8 NOT USED T0200076 UNPCHECK EQU 9 +++ ENABLE THE UNPROT INSTR FOLLOWED BY PROT INST0200077 POUTLINE EQU 10 +++ WRITE DATA TO PANEL DEVICE T0200078 PINPLINE EQU 11 +++ READ DATA FROM PANEL DEVICE T0200079 AFCRLINE EQU 12 +++ WRITE DATA TO AUXILARY FUNCTION CONTROL REGIT0200080 ENHXFORM EQU 13 +++ ENABLE 1700 ENHANCED TRANSFORMS T0200081 CONSOLGO EQU 14 +++ ENABLE CONSOLE CONTROL ON A GO RETURN T0200082 MACRORUN EQU 15 +++ ENABLE MACRO-INSTRUCTION RUN T0200083 SPACE 1 T0200084**********NOTE +++ INDICATES USED IN 1700 EMULATION************T0200085**********NOTE STATUS/MODE EQUATES ARE FIVE (5) BITS LONG**T0200086 SPACE 1 T0200087 EJECT T0200088 BOX T0200089* T0200090* S T A T U S / M O D E F L A G S 0-3=SM100-3, 4-7=T0200091* T0200092 EBOX T0200093 ONES EQU 0+ONESCOMP ENABLE ONES (RATHER =Q  3sTHAN TWOS) COMPLEMENT ART0200094 BGN EQU 0+NREGTOBG ENABLE N REGISTER (RATHER C-FIELD) TO BIT GET0200095 SADT EQU 4+ADTLINE ENABLE AUTO-DATA TRANSFER MODE (SELECT LINE)T0200096 SSTB EQU 4+STROBE STROBE DATA TO/FROM SELECTED M05 PERIPHERAL T0200097 READ EQU 4+READLINE READ DATA FROM SELECTED A/Q PERIPHERAL T0200098 WRIT EQU 4+WRITLINE WRITE DATA TO SELECTED A/Q PERIPHERAL T0200099 PORT EQU 4+PORTLINE ENABLE SET/SAMPLE MODE (PORT LINE) T0200100 TERM EQU 4+TERMLINE TERMINATE I/O TRANSFER AND GENERATE MACRO INT0200101 SPACE 3 T0200102 BOX T0200103* T0200104* B I T T E S T A S S I G N M E N T S BT 00 - 15 T0200105* T0200106 EBOX T0200107* EQU 0 NOT USED T0200108 COMPOPR EQU 1 +++ BIT 2 OF IXT IS ONE (COMPARE OPERATION) T0200109 DESTMEM EQU 2 +++ BIT 7 OF IXT IS ONE (MEMORY DESTINATION) T0200110 CHAROPR EQU 3 +++ BIT 6 OF IXT IS ONE (CHARACTER OPERATION) T0200111 EFFADRFF EQU 4 +++ EFFECTIVE ADDRESS IS 00FF (MUST AGREE WITH RT0200112 NPROTFLT EQU 5 +++ NO PROTECT FAULT (MUST AGREE WITH PROTFLT SMT0200113 SELSTOP EQU 6 +++ SELECTIVE STOP SWITCH SET T0200114 NSELSKIP EQU 7 +++ SELECTIVE SKIP SWITCH NOT SET T0200115 NMEMPERR EQU 8 +++ NO MEMORY PARITY ERROR (MUST AGREE WITH MEMPT0200116* EQU 9 NOT USED T0200117 DELZERO EQU 10 +++ BITS 08-15 OF IXT (DELTA) ARE ZERO T0200118 EANOTOPR EQU 11 +++ EFFECTIVE ADR. NOT OPERAND (MUST AGREE WITH T0200119 EVENPAR EQU 12 +++ MAIN MEMORY PARITY IS EVEN T0200120 F4.GE.8 EQU 13 +++ BIT 0 OF IXT IS ONE (MUST AGREE WITH ENHXFORT0200121 MULTIND EQU 14 +++ MULTI-LEVEL INDIRECT MODE T0200122 MEMABORT EQU 15 +++ PREVIOUS MEMORY WRITE ABORTED (MUST AGREE WIT0200123 SPACE 3 T0200124**********NOTE +++ INDICATES USED IN 1700 EMULATION************T0200125**********NOTE BIT TEST EQUATES ARE FOUR (4) BITS LONG*****T0200126**********NOTE NEXT UPPER IS EXECUTED IF CONDITION TRUE****T0200127 SPACE 3 T0200128 EJECT T0200129 BOX T0200130* T0200131* F I L E T W O R E G I S T E R S I N D E X E S T0200132* T0200133 EBOX T0200134* NAME NO. PRESET DESCRIPTION T0200135 F2FFFF EQU 0 FFFF CONSTANT FFFF (USED ALSO AS THE NULL REGISTET0200136 F2REG1 EQU 1 0000 REGISTER ONE T0200137 F2REG2 EQU 2 0000 REGISTER TWO T0200138 F2REG3 EQU 3 0000 REGISTER THREE T0200139 F2REG4 EQU 4 0000 REGISTER FOUR T0200140 F2QSAV EQU 5 0000 SAVE OF Q REGISTER T0200141 F2ASAV EQU 6 0000 SAVE OF A REGISTER  3t T0200142 F2IREG EQU 7 (FF) 1700 I REGISTER (ALSO AT LOCATION FFX) T0200143*F2TEMP1 EQU 8 0000 FILE 2 TEMPORARY, SEE BELOW T0200144*F2TEMP2 EQU 9 0000 FILE 2 TEMPORARY, SEE BELOW T0200145 F200FF EQU 10 00FF CONSTANT 00FF (MUST AGREE WITH AQ CHAR STATUT0200146 F2NUM2 EQU 11 0000 MSB OF PANEL INPUT/OUTPUT (MUST AGREE WITH CT0200147 F2NUM1 EQU 12 0000 LSB OF PANEL INPUT/OUTPUT T0200148 F2FCR1 EQU 13 0000 LSB OF SIMULATED FCR (MUST AGREE WITH BG4 = T0200149 F2PFCT EQU 14 0010 CURRENT OR LAST PANEL FUNCTION, SEE PAGE 7 BT0200150 F2FCR2 EQU 15 0000 MSB OF SIMULATED FCR (MUST AGREE WITH 000FX)T0200151 F2NKSAV EQU 16 0000 SAVE OF N,K REGISTERS (MUST AGREE WITH CNK =T0200152*F2TEMP3 EQU 17 0000 FILE 2 TEMPORARY, SEE BELOW T0200153*F2TEMP4 EQU 18 0000 FILE 2 TEMPORARY, SEE BELOW T0200154*F2TEMP5 EQU 19 0000 FILE 2 TEMPORARY, SEE BELOW T0200155*UINT B EQU 20 8000 DMI INFO FOR MICRO-INTERRUPT B T0200156*.... . ... .. .... ... .... ... ............... . T0200157*.... . ... .. .... ... .... ... ............... . T0200158*.... . ... .. .... ... .... ... ............... . T0200159*UINT 0 EQU 31 8000 DMI INFO FOR MICRO INTERRUPT 0 T0200160* DEFINITIONS OF FILE 2 TEMPORARIES T0200161 F2TPMI EQU 8 DMI INFO FOR PSEUDO U-INT. FOR EMS INSTR. (.T0200162 F2TPMS EQU 8 SAVE OF PAGE MODE STATUS FOR ADT INTERRUPT T0200163 F2MSAV EQU 8 SAVE OF M REGISTER FOR SRG/LRG (MUST BE EQUAT0200164 F2PSAV EQU 8 SAVE OF P REGISTER FOR COMMERICAL INSTRUCTIOT0200165 F2TUNP EQU 9 SAVE OF UNPROTECT FLAG FOR U-INT/EMS (MUST=UT0200166 F2TATA EQU 17 AUTO DATA TRANSFER TABLE ADDRESS FOR ADT INTT0200167 F2TABN EQU 18 ADT BLOCK NUMBER IN ADT TABLE FOR ADT MICRO T0200168 BOX T0200169* T0200170* F I L E O N E R E G I S T E R S I N D E X E S T0200171* T0200172 EBOX T0200173* EQU 000 NOT USED T0200174* ... ... ... .... T0200175* ... ... ... .... T0200176* ... ... ... .... T0200177* EQU 255 LAST VALUE OF P REGISTER BEFORE A MASTER CLET0200178 EJECT T0200179 BOX T0200180* T0200181* M A T R A N S F O R M E Q U A T E S T0200182* T0200183 EBOX T0200184 INT EQU 0 MICRO/MACRO INTERRUPTS BCX + (S2 11)*2 T0200185 IR2 EQU 1 INTERRREGISTER, TYPE 2 B8X + (IXT*11-12)T0200186 F3A EQU 2 FIELD INSTRUCTION D8X + (IXT*13-15)T0200187 DEST EQU 3 REGISTER DESTINATION 38X + (IXT*13-15)T0200188 COM EQU 4 COMMERCIAL INSTRUCTION E0X + (IXT*11-15)T0200189* EQU 5 NOT USED]  3t" T0200190 F2 EQU 6 F2 (ADR MODE) FOR ENHANCED A0X + (IXT*8-9)*4T0200191 S2 EQU 7 SELECTOR S2 (LOWER 8 BITS) 00X + (S2 08-15)T0200192 SK EQU 8 SKIP INSTRUCTION C0X + (IXT*08-11)T0200193 SH EQU 9 SHIFT INSTRUCTION B0X + (IXT*08-10)T0200194 DRP EQU 9 DECPREMENT AND REPEAT B0X + (IXT*08-10)T0200195 IR EQU 10 INTERREGISTER INSTRUCTION E0X + (IXT*12-15)T0200196 F3 EQU 10 MISCELANEOUS INSTRUCTION E0X + (IXT*12-15)T0200197 F EQU 11 F (OP CODE) FIELD 80X + (IXT 00-03)T0200198 F4 EQU 11 OP CODE FOR MR2 AND FIELD 80X + (IXT 00-03)T0200199 IM EQU 12 INTERREG. WITH M ORIGIN F0X + (IXT*08-11)T0200200 SKIP2 EQU 12 SKIP 2 INSTRUCTION F0X + (IXT*08-11)T0200201 SCI EQU 12 SCIENTIFIC INSTRUCTION F0X + (IXT*08-11)T0200202 F1 EQU 13 F1 (ADR MODE) FIELD 40X+F=0*32+(IXT4-T0200203 F* EQU 14 ALTERNATE F1 FIELD A0X + A*4 + (IXT T0200204 FM EQU 15 MISCELANEOUS F1 FIELD B8X + B*2 + C T0200205 SPACE 1 T0200206* NOTE, (A) = (F1=00XX) .OR. NOT(MULTI-LEVEL INDIRT0200207* (B) = (PROTECT VIOLATION) T0200208* (C) = (DELTA=NOT ZERO) .OR. (PROTECT VIOLAT0200209* (D=0) = (DELTA=ZERO) T0200210* (E) = NOT((IXT=0500) .OR. (S2 09)) T0200211$ (F=0) = (F FIELD = ZERO) T0200212 SPACE 1 T0200213 BOX T0200214* T0200215* K / N T R A N S F O R M E Q U A T E S T0200216* T0200217 EBOX T0200218 S2LSB EQU 0 SELECTOR S2 (LOWER 8 BITS) 00X + (S2 08-15)T0200219 SHCNT EQU 1 SHIFT COUNT ON A SHIFT 00X + (IXT*11-15)T0200220 FLDLTH EQU 2 FIELD LENGTH 00X + (IXT 04-07)T0200221 RA EQU 3 REGISTER RA 00X + (IXT*10-12)T0200222 RA* EQU 4 ALTERNATE REGISTER RA 00X + (IXT*08-10)T0200223 RB EQU 5 REGISTER RB 00X + (IXT*13-15)T0200224 MIR EQU 6 MIR REGISTER (LOWER 8 BITS)00X + (MIR 24-31)T0200225 FLDSTR EQU 7 NOT OF FIELD START BIT 00X + NOT(IXT 00-T0200226 SPACE 3 T0200227 EJECT T0200228 BOX T0200229* T0200230* 1 7 0 0 E M U L A T O R E Q U A T E S T0200231* T0200232 EBOX T0200233 BG8000X EQU 0 FOR ADDING 8000 VIA THE BIT GENERATOR T0200234 BG4000X EQU 1 FOR ADDING 4000 VIA THE BIT GENERATOR T0200235 BG2000X EQU 2 FOR ADDING 2000 VIA THE BIT GENERATOR T0200236 BG1000X EQU 3 FOR ADDING 1000 VIA THE BIT GENERATOR T0200237 BG800X EQU 4 FOR ADDING 800X VIA W  3t6THE BIT GENERATOR T0200238 BG400X EQU 5 FOR ADDING 400X VIA THE BIT GENERATOR T0200239 BG200X EQU 6 FOR ADDING 200X VIA THE BIT GENERATOR T0200240 BG100X EQU 7 FOR ADDING 100X VIA THE BIT GENERATOR T0200241 BG80X EQU 8 FOR ADDING 80X VIA THE BIT GENERATOR T0200242 BG40X EQU 9 FOR ADDING 40X VIA THE BIT GENERATOR T0200243 BG20X EQU 10 FOR ADDING 20X VIA THE BIT GENERATOR T0200244 BG10X EQU 11 FOR ADDING 10X VIA THE BIT GENERATOR T0200245 BG8 EQU 12 FOR ADDING 08X VIA THE BIT GENERATOR T0200246 BG4 EQU 13 FOR ADDING FOUR VIA THE BIT GENERATOR T0200247 BG2 EQU 14 FOR ADDING TWO VIA THE BIT GENERATOR T0200248 BG1 EQU 15 FOR ADDING ONE VIA THE BIT GENERATOR T0200249 BG0 EQU 16 FOR ADDING ZERO VIA THE BIT GENERATOR T0200250 SPACE 1 T0200251 BG EQU 20X FOR USING BG EQUATES IN ORG STATEMENTS T0200252 SPACE 1 T0200253 PAGE0 EQU 0 FOR JUMPING TO PAGE 0 USING THE S FIELD T0200254 PAGE1 EQU 1 FOR JUMPING TO PAGE 1 USING THE S FIELD T0200255 PAGE2 EQU 2 FOR JUMPING TO PAGE 2 USING THE S FIELD T0200256 PAGE3 EQU 3 FOR JUMPING TO PAGE 3 USING THE S FIELD T0200257 PAGE4 EQU 4 FOR JUMPING TO PAGE 4 USING THE S FIELD T0200258 PAGE5 EQU 5 FOR JUMPING TO PAGE 5 USING THE S FIELD T0200259 PAGE6 EQU 6 FOR JUMPING TO PAGE 6 USING THE S FIELD T0200260 PAGE7 EQU 7 FOR JUMPING TO PAGE 7 USING THE S FIELD T0200261 PAGE8 EQU 8 FOR JUMPING TO PAGE 8 USING THE S FIELD T0200262 PAGE9 EQU 9 FOR JUMPING TO PAGE 9 USING THE S FIELD T0200263 PAGEA EQU AX FOR JUMPING TO PAGE A USING THE S FIELD T0200264 PAGEB EQU BX FOR JUMPING TO PAGE B USING THE S FIELD T0200265 PAGEC EQU CX FOR JUMPING TO PAGE C USING THE S FIELD T0200266 PAGED EQU DX FOR JUMPING TO PAGE D USING THE S FIELD T0200267 PAGEE EQU EX FOR JUMPING TO PAGE E USING THE S FIELD T0200268 PAGEF EQU FX FOR JUMPING TO PAGE F USING THE S FIELD T0200269 EJECT T0200270 BOX T0200271* T0200272* 1 7 0 0 E Q U A T E S C O N T I N U E D T0200273* T0200274 EBOX T0200275 PG0 EQU PAGE0*100X FOR ADDRESSING INTO FIRST PAGE OF EMULATOR T0200276 PG1 EQU PAGE1*100X FOR ADDRESSING INTO SECOND PAGE OF EMULATOR T0200277 SPG1 EQU PAGE8*100X FOR ADDRESSING INTO FIRST PAGE OF SCIENTIFICT0200278 SPG2 EQU PAGE9*100X FOR ADDRESSING INTO SECOND PAGE OF SCIENTIFIT0200279 CNK EQU 0 FOR ADDRESSING WHERE BITS 28-29 OF C-FIELD MT0200280 CFK EQU 4 FOR ADDRESSING WHERE BITS 28-29 OF C-FIELD MT0200281 CFN EQU 8 FOR ADDRESSING WHERE BITS 28-29 OF C-FIELD MT0200282 PINPMASK EQU 15-12 FOR MASK REGISTER 1, PANEL INPUT INTERRUPT T0200283 POUTMASK EQU 15-13 FOR MASK REGISTER 1, PANEL OUTPUT INTERRUPT T0200284 BG0SSTOP EQU BG0+SELSTOP FOR MACRO STOP (INSTRUCTION STEP) ROUTINE T0200285 BG0MLIND EQU BG0+MULTIND FOR RTJ, TO ADD ZEROt  3tJ + CHECK IF MULTI-LEVEL T0200286 AUTODPLY EQU BG400X AUTO DISPLAY BIT IN SIMULATED FCR, LEAST SIGT0200287 RRMASK EQU 18X AQ REPLY/REJECT MASK FOR INP AND OUT INSTRUCT0200288 IOWAIT EQU 23 AQ INTERNAL REJECT TIMEOUT (IOWAIT=13USEC/56T0200289 SPACE 3 T0200290* DESCRIPTION OF PANEL FUNCTION WORD IN FILE TWO T0200291 TERMINP EQU BG1 TERMINATOR (COLON OR G) INPUT (MUST AGREE WIT0200292 INPERR EQU BG20X INPUT ERROR (OUTPUT AN ASTERISK) T0200293 SPOUT EQU BG40X SPACE AFTER CONTROL CHAR OUTPUT (MUST AGREE T0200294 CROUT EQU BG80X CARRIAGE RETURN OUTPUT (MUST AGREE WITH BG80T0200295 CCOUT EQU BG100X CONTROL CHARACTER (H,I,J,K,L) OUTPUT (MUST =T0200296 DIGINP EQU BG200X AT LEAST ONE DIGIT INPUT T0200297 CHRINP EQU AUTODPLY AT LEAST ONE DIGIT OR CONTROL CHARACTER INPUT0200298 DSCTR EQU BG800X DIGIT/SPACE COUNTER TO OUTPUT 8 DIGITS AND 8T0200299 D4S4FLG EQU DSCTR-3 DIGIT/SPACE FLAG TO OUTPUT ONLY 4 DIGITS + 4T0200300 BOX T0200301* T0200302* 1 7 0 0 E M U L A T I O N N O T E S T0200303* T0200304 EBOX T0200305* MEM USED FOR MINUS ZERO (FFFF) WHEN NOT ACCESSINT0200306* RPT DCR. N BY ONE, IF GOING FROM UPPER TO SAME T0200307* RPT USED AS RETURN JUMP FROM LOWER TO SAME UPPERT0200308* SUB- USED TO ADD ONE TO P REGISTER, BUT SEE PAGE T0200309 SPACE 3 T0200310 EJECT T0200311 BOX T0200312* T0200313* O R I G I N S F O R M A T R A N S F O R M S T0200314* T0200315 EBOX T0200316 INTMICRO EQU 30X+PG0 ORIGIN OF INTERNAL MICRO-INTERRUPTS T0200317 ADRF1 EQU 40X+PG0 ORIGIN OF ADDRESS MODE INSTRUCTIONS T0200318 REGREF EQU 60X+PG0 ORIGIN OF REGISTER REFERENCE INSTRUCTIONS (FT0200319 MEMREF1 EQU 80X+PG0 ORIGIN OF MEMORY REFERENCE TYPE 1 INSTRUCTIOT0200320 ADRF1A EQU A0X+PG0 ORIGIN OF ADDRESS MODE INSTRUCTIONS (ALTERNAT0200321 REGSHIFT EQU B0X+PG0 ORIGIN OF REGISTER SHIFT INSTRUCTIONS (F=0, T0200322 ADRF1M EQU B8X+PG0 ORIGIN OF ADDRESS MODE INSTRUCTIONS (MISCELLT0200323 INTORG EQU BCX+PG0 ORIGIN OF MICRO/MACRO INTERRUPTS T0200324 REGSKIP1 EQU C0X+PG0 ORIGIN OF REGISTER SKIP 1 INSTRUCTIONS (F=0,T0200325 INTREG1 EQU E0X+PG0 ORIGIN OF INTERREGISTER INSTRUCTIONS (F=0,F1T0200326 IRORGM EQU F0X+PG0 ORIGIN OF IR INSTRS WITH M AS ORIGIN (F=0,F1T0200327 PAGJMP EQU F0X+PG0 ORIGIN OF PAGE JUMPS VIA S2 TRANSFORM T0200328 SPACE 1 T0200329 KDISPLAY EQU 00X+PG1 ORIGIN OF K DISPLAY REGISTERS T0200330 FCTCHAR EQU 10X+PG1 ORIGIN OF FUNCTION CHARACTERS FOR SIMULATED T0200331 LDISPLAY EQU 20X+PG1 ORIGIN OF L DISPLAY REGISTERS T0200332 DESTREG EQU 38X+PG1 ORIGIN OF MEMORY REFERENCE 2 DESTINATION REGT0200333 MEMREF2 EQU 80X+PG1 ORIGIN OF MEMORY REFw  3t^ERENCE TYPE 2 INSTRUCTIOT0200334 ADRF2 EQU A0X+PG1 ORIGIN OF ADDRESS MODES FOR MEMORY REFERENCET0200335 DECRPT EQU B0X+PG1 ORIGIN OF DECREMENT AND REPEAT INSTRUCTIONS T0200336 MISREF EQU E0X+PG1 ORIGIN OF MISCELANEOUS INSTRUCTIONS T0200337 REGSKIP2 EQU F0X+PG1 ORIGIN OF REGISTER SKIP 2 INSTRUCTIONS T0200338 SPACE 1 T0200339 FLDREF EQU D8X+PG1 ORIGIN OF FIELD INSTRUCTIONS T0200340 INTREG2 EQU B8X+PG1 ORIGIN OF INTERREGISTER 2 INSTRUCTIONS T0200341 AZ EQU 0 A=0, IF (F1=00XX) .OR. NOT(MULTI-LEVEL INDIRT0200342 AN EQU 4 A=4, IF (F1=00XX) .OR. NOT(MULTI-LEVEL INDIRT0200343 BZ EQU 0 B=0, IF (PROTECT VIOLATION) = 0 T0200344 BN EQU 2 B=2, IF (PROTECT VIOLATION) = 1 T0200345 CZ EQU 0 C=0, IF (DELTA=NOTZERO) .OR. (PROTECT VIOLATT0200346 CN EQU 1 C=1, IF (DELTA=NOTZERO) .OR. (PROTECT VIOLATT0200347 DZ EQU 1 D=1, IF (DELTA=ZERO) = 0 T0200348 DN EQU 0 D=0, IF (DELTA=ZERO) = 1 T0200349 EZ EQU 0 E=0, IF NOT((IXT=0500) .OR. (S2 09)) = 0 T0200350 EN EQU 1 E=1, IF NOT((IXT=0500) .OR. (S2 09)) = 1 T0200351 SPACE 1 T0200352 COMINSTR EQU E0X+SPG2 ORIGIN OF COMMERCIAL INSTRUCTIONS T0200353 SCIINSTR EQU F0X+SPG2 ORIGIN OF SCIENTIFIC INSTRUCTIONS T0200354 SPACE 3 T0200355 CPG1 EQU SPG1 T0200356 ORG CPG1-2 T0200357+ DECATEST J NOT EXECUTED, TEST0200358- DECAEND J NOT EXECUTED, TEST0200359 HEX 00000 NO PRODUCT NUM. T0200360 EJECT T0200361 ORG CPG1 T0200362+DECATEST RTJ CLRF/ONES SET TWOS COMPLEMET0200363 A.-B SM1 BG SM1 OVERFLOW L CLEAR OVERFLOW T0200364 SPACE 1 T0200365+ DECADONE J TEST DONE, EXIT T0200366 SPACE 2 T0200367- A+B SM1 BG SM1 DECARITH SET DECIMAL ARITHT0200368 K=99X T0200369 ZERO F N=99X F = 0, N,K = 999T0200370 A.-B SM1 BG SM1 F1INPUT T0200371 SPACE 1 T0200372 ADD F N,K F F = 0 + 9999 T0200373 ADDT F F1 F T0200374 EOR F N,K K=11X ZL CHECK F=9999, NO T0200375+ B BG A BG1 RU NO, ERROR 1 T0200376 SPACE 1 T0200377- A.-B SM1 BG SM1 OVERFLOW OVFL T0200378+ N=11X U T0200379- B BG A BG1 RU NO, ERROR 1 T0200380 SPACE 1 T0200381+ B N,K Q >  3tr Q = 1111 T0200382 B Q X K=7 X = 1111 T0200383 SPACE 1 T0200384 DECALOOP ADD F X A DECK A = 9999 + X + CAT0200385 ADD+T A F1 A T0200386 EOR A X ZL CHECK A=X, WITH CT0200387+ B BG A BG2 RU NO, ERROR 2 T0200388 SPACE 1 T0200389- A.-B SM1 BG SM1 OVERFLOW OVFL NO, ERROR 2 T0200390+ B BG A BG2 RU T0200391 SPACE 1 T0200392- ADD+ F ZERO A KZU CHECK IF LOOP DONT0200393+ ADDT A F1 A ZL YES, CK 9999+00T0200394- ADD X Q X DECALOOP J NO, X = X + 111T0200395 SPACE 1 T0200396+ ADD MEM BG A BG4 RU NO, ERROR 3 T0200397- A.-B SM1 BG SM1 OVERFLOW OVFL T0200398+ ADD MEM BG A BG4 RU NO, ERROR 3 T0200399 SPACE 2 T0200400-DECADONE SETF/ONES ALL DONE, SET ONET0200401 A.-B SM1 BG SM1 DECARITH CLEAR DECIMAL ARIT0200402 3EX JL RETURN TO EMULATOT0200403 SPACE 2 T0200404-DECAEND HEX 0 CHECKSUM T0200405 SPACE 2 T0200406 END T0200407 IDENT CISCOM T03 M ITOS CCS 3.0 SL-149T0300001* MICRO CODE FOR COMMERCIAL INSTRUCTION SET T0300002* CREDIT COLLECTION SYSTEM VERSION 3.0 T0300003* DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA T0300004* COPYRIGHT CONTROL DATA CORPORATION 1979 T0300005 CPR 1979 T0300006 ZMAP T0300007 PMAP T0300008 CMP1 T0300009- RELO CISCKSM CPG1-2 T0300010 SPACE 2 T0300011 BOX T0300012*** T0300013* T0300014* COMMERCIAL INSTRUCTION SET T0300015* T0300016* DESCRIPTION T0300017* T0300018* ... T0300019* T0300020*** T0300021 EBOX T0300022 EJECT  3t T0300023 BOX T0300024* T0300025* S T A T U S / M O D E R E G I S T E R O N E SM100-SM115 T0300026* T0300027 EBOX T0300028 DBLEPREC EQU 0 ENABLE DOUBLE PRECISION ARITHMETIC T0300029 ONESCOMP EQU 1 +++ ENABLE ONES (RATHER THAN TWOS) COMPLEMENT ART0300030 NREGTOBG EQU 2 +++ ENABLE N REGISTER (RATHER C-FIELD) TO BIT GET0300031 SPLITADD EQU 3 ENABLE SPLIT ADDER OPTION T0300032 MACBPINT EQU 4 +++ MACRO-BREAKPOINT INTERRUPT OCCURRED T0300033 PROTFLT EQU 5 +++ 1700 PROTECT FAULT OCCURRED T0300034 MACROINT EQU 6 +++ ENABLE MACRO (1700) INTERRUPTS T0300035 DECARITH EQU 7 ENABLE DECIMAL ARITHMETIC (F1INPUT MUST BE CT0300036 MEMPERR EQU 8 +++ 1700 MEMORY PARITY ERROR OCCURRED T0300037 MICROHLT EQU 9 +++ ENABLE MICRO HALT OR SCIENT/COMMERCIAL INSTRT0300038 OVERFLOW EQU 10 +++ 1700 OVERFLOW OCCURRED T0300039 F1INPUT EQU 11 +++ ENABLE FILE 1 (RATHER THAN TRANSFORM) INPUT T0300040 BINOVFL EQU 12 ENABLE BINARY OVERFLOW (DECARITH MUST BE CLET0300041 RWXFORM EQU 13 ENABLE R/W MICROMEMORY VIA MA XFORM (RATHER T0300042 DELAYEMI EQU 14 +++ DELAY ENABLING OF MACRO INTERRUPTS UNTIL 1 GT0300043* EQU 15 NOT USED T0300044 BOX T0300045* T0300046* S T A T U S / M O D E R E G I S T E R T W O SM200-SM215 T0300047* T0300048 EBOX T0300049 ADTLINE EQU 0 +++ ENABLE AUTO-DATA TRANSFER MODE (SELECT LINE)T0300050 STROBE EQU 1 +++ STROBE DATA TO/FROM SELECTED M05 PERIPHERAL T0300051 READLINE EQU 1 +++ READ DATA FROM SELECTED A/Q PERIPHERAL T0300052 WRITLINE EQU 2 +++ WRITE DATA TO SELECTED A/Q PERIPHERAL T0300053 PORTLINE EQU 2 +++ ENABLE M05 TRANSFER MODE (PORT LINE) T0300054 TERMLINE EQU 3 +++ TERMINATE I/O TRANSFER AND GENERATE MACRO INT0300055 DEADSTR EQU 4 +++ DEADSTART LOADING TO MICRO/MACRO MEMORY OCCUT0300056* EQU 5 NOT USED T0300057* EQU 6 NOT USED T0300058 PAGXFORM EQU 7 +++ ENABLE PAGE SELECTION (IN S-FIELD) WITH MA TT0300059* EQU 8 NOT USED T0300060 UNPCHECK EQU 9 +++ ENABLE THE UNPROT INSTR FOLLOWED BY PROT INST0300061 POUTLINE EQU 10 +++ WRITE DATA TO PANEL DEVICE T0300062 PINPLINE EQU 11 +++ READ DATA FROM PANEL DEVICE T0300063 AFCRLINE EQU 12 +++ WRITE DATA TO AUXILARY FUNCTION CONTROL REGIT0300064 ENHXFORM EQU 13 +++ ENABLE 1700 ENHANCED TRANSFORMS T0300065 CONSOLGO EQU 14 +++ ENABLE CONSOLE CONTROL ON A GO RETURN T0300066 MACRORUN EQU 15 +++ ENABLE MACRO-INSTRUCTION RUN T0300067 SPACE 1 T0300068**********NOTE +++ INDICATES USED IN 1700 EMULATION************T0300069**********NOTE STATUS/MODE EQUATES ARE FIVE (5) BITS LONG**T0300070 SPACE 1  3t T0300071 EJECT T0300072 BOX T0300073* T0300074* S T A T U S / M O D E F L A G S 0-3=SM100-3, 4-7=T0300075* T0300076 EBOX T0300077 ONES EQU 0+ONESCOMP ENABLE ONES (RATHER THAN TWOS) COMPLEMENT ART0300078 BGN EQU 0+NREGTOBG ENABLE N REGISTER (RATHER C-FIELD) TO BIT GET0300079 SADT EQU 4+ADTLINE ENABLE AUTO-DATA TRANSFER MODE (SELECT LINE)T0300080 SSTB EQU 4+STROBE STROBE DATA TO/FROM SELECTED M05 PERIPHERAL T0300081 READ EQU 4+READLINE READ DATA FROM SELECTED A/Q PERIPHERAL T0300082 WRIT EQU 4+WRITLINE WRITE DATA TO SELECTED A/Q PERIPHERAL T0300083 PORT EQU 4+PORTLINE ENABLE SET/SAMPLE MODE (PORT LINE) T0300084 TERM EQU 4+TERMLINE TERMINATE I/O TRANSFER AND GENERATE MACRO INT0300085 SPACE 3 T0300086 BOX T0300087* T0300088* B I T T E S T A S S I G N M E N T S BT 00 - 15 T0300089* T0300090 EBOX T0300091* EQU 0 NOT USED T0300092 COMPOPR EQU 1 +++ BIT 2 OF IXT IS ONE (COMPARE OPERATION) T0300093 DESTMEM EQU 2 +++ BIT 7 OF IXT IS ONE (MEMORY DESTINATION) T0300094 CHAROPR EQU 3 +++ BIT 6 OF IXT IS ONE (CHARACTER OPERATION) T0300095 EFFADRFF EQU 4 +++ EFFECTIVE ADDRESS IS 00FF (MUST AGREE WITH RT0300096 NPROTFLT EQU 5 +++ NO PROTECT FAULT (MUST AGREE WITH PROTFLT SMT0300097 SELSTOP EQU 6 +++ SELECTIVE STOP SWITCH SET T0300098 NSELSKIP EQU 7 +++ SELECTIVE SKIP SWITCH NOT SET T0300099 NMEMPERR EQU 8 +++ NO MEMORY PARITY ERROR (MUST AGREE WITH MEMPT0300100* EQU 9 NOT USED T0300101 DELZERO EQU 10 +++ BITS 08-15 OF IXT (DELTA) ARE ZERO T0300102 EANOTOPR EQU 11 +++ EFFECTIVE ADR. NOT OPERAND (MUST AGREE WITH T0300103 EVENPAR EQU 12 +++ MAIN MEMORY PARITY IS EVEN T0300104 F4.GE.8 EQU 13 +++ BIT 0 OF IXT IS ONE (MUST AGREE WITH ENHXFORT0300105 MULTIND EQU 14 +++ MULTI-LEVEL INDIRECT MODE T0300106 MEMABORT EQU 15 +++ PREVIOUS MEMORY WRITE ABORTED (MUST AGREE WIT0300107 SPACE 3 T0300108**********NOTE +++ INDICATES USED IN 1700 EMULATION************T0300109**********NOTE BIT TEST EQUATES ARE FOUR (4) BITS LONG*****T0300110**********NOTE NEXT UPPER IS EXECUTED IF CONDITION TRUE****T0300111 SPACE 3 T0300112 EJECT T0300113 BOX T0300114* T0300115* F I L E T W O R E G I S T E R S I N D E X E S T0300116* T0300117 EBOX T0300118* NAME NO. PRESET DESCRIPTION n  3t T0300119 F2FFFF EQU 0 FFFF CONSTANT FFFF (USED ALSO AS THE NULL REGISTET0300120 F2REG1 EQU 1 0000 REGISTER ONE T0300121 F2REG2 EQU 2 0000 REGISTER TWO T0300122 F2REG3 EQU 3 0000 REGISTER THREE T0300123 F2REG4 EQU 4 0000 REGISTER FOUR T0300124 F2QSAV EQU 5 0000 SAVE OF Q REGISTER T0300125 F2ASAV EQU 6 0000 SAVE OF A REGISTER T0300126 F2IREG EQU 7 (FF) 1700 I REGISTER (ALSO AT LOCATION FFX) T0300127*F2TEMP1 EQU 8 0000 FILE 2 TEMPORARY, SEE BELOW T0300128*F2TEMP2 EQU 9 0000 FILE 2 TEMPORARY, SEE BELOW T0300129 F200FF EQU 10 00FF CONSTANT 00FF (MUST AGREE WITH AQ CHAR STATUT0300130 F2NUM2 EQU 11 0000 MSB OF PANEL INPUT/OUTPUT (MUST AGREE WITH CT0300131 F2NUM1 EQU 12 0000 LSB OF PANEL INPUT/OUTPUT T0300132 F2FCR1 EQU 13 0000 LSB OF SIMULATED FCR (MUST AGREE WITH BG4 = T0300133 F2PFCT EQU 14 0010 CURRENT OR LAST PANEL FUNCTION, SEE PAGE 7 BT0300134 F2FCR2 EQU 15 0000 MSB OF SIMULATED FCR (MUST AGREE WITH 000FX)T0300135 F2NKSAV EQU 16 0000 SAVE OF N,K REGISTERS (MUST AGREE WITH CNK =T0300136*F2TEMP3 EQU 17 0000 FILE 2 TEMPORARY, SEE BELOW T0300137*F2TEMP4 EQU 18 0000 FILE 2 TEMPORARY, SEE BELOW T0300138*F2TEMP5 EQU 19 0000 FILE 2 TEMPORARY, SEE BELOW T0300139*UINT B EQU 20 8000 DMI INFO FOR MICRO-INTERRUPT B T0300140*.... . ... .. .... ... .... ... ............... . T0300141*.... . ... .. .... ... .... ... ............... . T0300142*.... . ... .. .... ... .... ... ............... . T0300143*UINT 0 EQU 31 8000 DMI INFO FOR MICRO INTERRUPT 0 T0300144* DEFINITIONS OF FILE 2 TEMPORARIES T0300145 F2TPMI EQU 8 DMI INFO FOR PSEUDO U-INT. FOR EMS INSTR. (.T0300146 F2TPMS EQU 8 SAVE OF PAGE MODE STATUS FOR ADT INTERRUPT T0300147 F2MSAV EQU 8 SAVE OF M REGISTER FOR SRG/LRG (MUST BE EQUAT0300148 F2PSAV EQU 8 SAVE OF P REGISTER FOR COMMERICAL INSTRUCTIOT0300149 F2TUNP EQU 9 SAVE OF UNPROTECT FLAG FOR U-INT/EMS (MUST=UT0300150 F2TATA EQU 17 AUTO DATA TRANSFER TABLE ADDRESS FOR ADT INTT0300151 F2TABN EQU 18 ADT BLOCK NUMBER IN ADT TABLE FOR ADT MICRO T0300152 BOX T0300153* T0300154* F I L E O N E R E G I S T E R S I N D E X E S T0300155* T0300156 EBOX T0300157* EQU 000 NOT USED T0300158* ... ... ... .... T0300159* ... ... ... .... T0300160* ... ... ... .... T0300161* EQU 255 LAST VALUE OF P REGISTER BEFORE A MASTER CLET0300162 EJECT T0300163 BOX T0300164* T0300165* M A T R A N S F O R M E Q U A T E S T0300166*  3t T0300167 EBOX T0300168 INT EQU 0 MICRO/MACRO INTERRUPTS BCX + (S2 11)*2 T0300169 IR2 EQU 1 INTERRREGISTER, TYPE 2 B8X + (IXT*11-12)T0300170 F3A EQU 2 FIELD INSTRUCTION D8X + (IXT*13-15)T0300171 DEST EQU 3 REGISTER DESTINATION 38X + (IXT*13-15)T0300172 COM EQU 4 COMMERCIAL INSTRUCTION E0X + (IXT*11-15)T0300173* EQU 5 NOT USED T0300174 F2 EQU 6 F2 (ADR MODE) FOR ENHANCED A0X + (IXT*8-9)*4T0300175 S2 EQU 7 SELECTOR S2 (LOWER 8 BITS) 00X + (S2 08-15)T0300176 SK EQU 8 SKIP INSTRUCTION C0X + (IXT*08-11)T0300177 SH EQU 9 SHIFT INSTRUCTION B0X + (IXT*08-10)T0300178 DRP EQU 9 DECPREMENT AND REPEAT B0X + (IXT*08-10)T0300179 IR EQU 10 INTERREGISTER INSTRUCTION E0X + (IXT*12-15)T0300180 F3 EQU 10 MISCELANEOUS INSTRUCTION E0X + (IXT*12-15)T0300181 F EQU 11 F (OP CODE) FIELD 80X + (IXT 00-03)T0300182 F4 EQU 11 OP CODE FOR MR2 AND FIELD 80X + (IXT 00-03)T0300183 IM EQU 12 INTERREG. WITH M ORIGIN F0X + (IXT*08-11)T0300184 SKIP2 EQU 12 SKIP 2 INSTRUCTION F0X + (IXT*08-11)T0300185 SCI EQU 12 SCIENTIFIC INSTRUCTION F0X + (IXT*08-11)T0300186 F1 EQU 13 F1 (ADR MODE) FIELD 40X+F=0*32+(IXT4-T0300187 F* EQU 14 ALTERNATE F1 FIELD A0X + A*4 + (IXT T0300188 FM EQU 15 MISCELANEOUS F1 FIELD B8X + B*2 + C T0300189 SPACE 1 T0300190* NOTE, (A) = (F1=00XX) .OR. NOT(MULTI-LEVEL INDIRT0300191* (B) = (PROTECT VIOLATION) T0300192* (C) = (DELTA=NOT ZERO) .OR. (PROTECT VIOLAT0300193* (D=0) = (DELTA=ZERO) T0300194* (E) = NOT((IXT=0500) .OR. (S2 09)) T0300195$ (F=0) = (F FIELD = ZERO) T0300196 SPACE 1 T0300197 BOX T0300198* T0300199* K / N T R A N S F O R M E Q U A T E S T0300200* T0300201 EBOX T0300202 S2LSB EQU 0 SELECTOR S2 (LOWER 8 BITS) 00X + (S2 08-15)T0300203 SHCNT EQU 1 SHIFT COUNT ON A SHIFT 00X + (IXT*11-15)T0300204 FLDLTH EQU 2 FIELD LENGTH 00X + (IXT 04-07)T0300205 RA EQU 3 REGISTER RA 00X + (IXT*10-12)T0300206 RA* EQU 4 ALTERNATE REGISTER RA 00X + (IXT*08-10)T0300207 RB EQU 5 REGISTER RB 00X + (IXT*13-15)T0300208 MIR EQU 6 MIR REGISTER (LOWER 8 BITS)00X + (MIR 24-31)T0300209 FLDSTR EQU 7 NOT OF FIELD START BIT 00X + NOT(IXT 00-T0300210 SPACE 3 T0300211 EJECT T0300212 BOX T0300213* T0300214* 1 7 0 0 E M U L A T O R E Q U A T E S   3t T0300215* T0300216 EBOX T0300217 BG8000X EQU 0 FOR ADDING 8000 VIA THE BIT GENERATOR T0300218 BG4000X EQU 1 FOR ADDING 4000 VIA THE BIT GENERATOR T0300219 BG2000X EQU 2 FOR ADDING 2000 VIA THE BIT GENERATOR T0300220 BG1000X EQU 3 FOR ADDING 1000 VIA THE BIT GENERATOR T0300221 BG800X EQU 4 FOR ADDING 800X VIA THE BIT GENERATOR T0300222 BG400X EQU 5 FOR ADDING 400X VIA THE BIT GENERATOR T0300223 BG200X EQU 6 FOR ADDING 200X VIA THE BIT GENERATOR T0300224 BG100X EQU 7 FOR ADDING 100X VIA THE BIT GENERATOR T0300225 BG80X EQU 8 FOR ADDING 80X VIA THE BIT GENERATOR T0300226 BG40X EQU 9 FOR ADDING 40X VIA THE BIT GENERATOR T0300227 BG20X EQU 10 FOR ADDING 20X VIA THE BIT GENERATOR T0300228 BG10X EQU 11 FOR ADDING 10X VIA THE BIT GENERATOR T0300229 BG8 EQU 12 FOR ADDING 08X VIA THE BIT GENERATOR T0300230 BG4 EQU 13 FOR ADDING FOUR VIA THE BIT GENERATOR T0300231 BG2 EQU 14 FOR ADDING TWO VIA THE BIT GENERATOR T0300232 BG1 EQU 15 FOR ADDING ONE VIA THE BIT GENERATOR T0300233 BG0 EQU 16 FOR ADDING ZERO VIA THE BIT GENERATOR T0300234 SPACE 1 T0300235 BG EQU 20X FOR USING BG EQUATES IN ORG STATEMENTS T0300236 SPACE 1 T0300237 PAGE0 EQU 0 FOR JUMPING TO PAGE 0 USING THE S FIELD T0300238 PAGE1 EQU 1 FOR JUMPING TO PAGE 1 USING THE S FIELD T0300239 PAGE2 EQU 2 FOR JUMPING TO PAGE 2 USING THE S FIELD T0300240 PAGE3 EQU 3 FOR JUMPING TO PAGE 3 USING THE S FIELD T0300241 PAGE4 EQU 4 FOR JUMPING TO PAGE 4 USING THE S FIELD T0300242 PAGE5 EQU 5 FOR JUMPING TO PAGE 5 USING THE S FIELD T0300243 PAGE6 EQU 6 FOR JUMPING TO PAGE 6 USING THE S FIELD T0300244 PAGE7 EQU 7 FOR JUMPING TO PAGE 7 USING THE S FIELD T0300245 PAGE8 EQU 8 FOR JUMPING TO PAGE 8 USING THE S FIELD T0300246 PAGE9 EQU 9 FOR JUMPING TO PAGE 9 USING THE S FIELD T0300247 PAGEA EQU AX FOR JUMPING TO PAGE A USING THE S FIELD T0300248 PAGEB EQU BX FOR JUMPING TO PAGE B USING THE S FIELD T0300249 PAGEC EQU CX FOR JUMPING TO PAGE C USING THE S FIELD T0300250 PAGED EQU DX FOR JUMPING TO PAGE D USING THE S FIELD T0300251 PAGEE EQU EX FOR JUMPING TO PAGE E USING THE S FIELD T0300252 PAGEF EQU FX FOR JUMPING TO PAGE F USING THE S FIELD T0300253 EJECT T0300254 BOX T0300255* T0300256* 1 7 0 0 E Q U A T E S C O N T I N U E D T0300257* T0300258 EBOX T0300259 PG0 EQU PAGE0*100X FOR ADDRESSING INTO FIRST PAGE OF EMULATOR T0300260 PG1 EQU PAGE1*100X FOR ADDRESSING INTO SECOND PAGE OF EMULATOR T0300261 SPG1 EQU PAGE8*100X FOR ADDRESSING INTO FIRST PAGE OF SCIENTIFICT0300262 SPG2 EQU PAGE9*100X FOR ADDRESSING INTO W  3tSECOND PAGE OF SCIENTIFIT0300263 CNK EQU 0 FOR ADDRESSING WHERE BITS 28-29 OF C-FIELD MT0300264 CFK EQU 4 FOR ADDRESSING WHERE BITS 28-29 OF C-FIELD MT0300265 CFN EQU 8 FOR ADDRESSING WHERE BITS 28-29 OF C-FIELD MT0300266 PINPMASK EQU 15-12 FOR MASK REGISTER 1, PANEL INPUT INTERRUPT T0300267 POUTMASK EQU 15-13 FOR MASK REGISTER 1, PANEL OUTPUT INTERRUPT T0300268 BG0SSTOP EQU BG0+SELSTOP FOR MACRO STOP (INSTRUCTION STEP) ROUTINE T0300269 BG0MLIND EQU BG0+MULTIND FOR RTJ, TO ADD ZERO + CHECK IF MULTI-LEVEL T0300270 AUTODPLY EQU BG400X AUTO DISPLAY BIT IN SIMULATED FCR, LEAST SIGT0300271 RRMASK EQU 18X AQ REPLY/REJECT MASK FOR INP AND OUT INSTRUCT0300272 IOWAIT EQU 23 AQ INTERNAL REJECT TIMEOUT (IOWAIT=13USEC/56T0300273 SPACE 3 T0300274* DESCRIPTION OF PANEL FUNCTION WORD IN FILE TWO T0300275 TERMINP EQU BG1 TERMINATOR (COLON OR G) INPUT (MUST AGREE WIT0300276 INPERR EQU BG20X INPUT ERROR (OUTPUT AN ASTERISK) T0300277 SPOUT EQU BG40X SPACE AFTER CONTROL CHAR OUTPUT (MUST AGREE T0300278 CROUT EQU BG80X CARRIAGE RETURN OUTPUT (MUST AGREE WITH BG80T0300279 CCOUT EQU BG100X CONTROL CHARACTER (H,I,J,K,L) OUTPUT (MUST =T0300280 DIGINP EQU BG200X AT LEAST ONE DIGIT INPUT T0300281 CHRINP EQU AUTODPLY AT LEAST ONE DIGIT OR CONTROL CHARACTER INPUT0300282 DSCTR EQU BG800X DIGIT/SPACE COUNTER TO OUTPUT 8 DIGITS AND 8T0300283 D4S4FLG EQU DSCTR-3 DIGIT/SPACE FLAG TO OUTPUT ONLY 4 DIGITS + 4T0300284 BOX T0300285* T0300286* 1 7 0 0 E M U L A T I O N N O T E S T0300287* T0300288 EBOX T0300289* MEM USED FOR MINUS ZERO (FFFF) WHEN NOT ACCESSINT0300290* RPT DCR. N BY ONE, IF GOING FROM UPPER TO SAME T0300291* RPT USED AS RETURN JUMP FROM LOWER TO SAME UPPERT0300292* SUB- USED TO ADD ONE TO P REGISTER, BUT SEE PAGE T0300293 SPACE 3 T0300294 EJECT T0300295 BOX T0300296* T0300297* O R I G I N S F O R M A T R A N S F O R M S T0300298* T0300299 EBOX T0300300 INTMICRO EQU 30X+PG0 ORIGIN OF INTERNAL MICRO-INTERRUPTS T0300301 ADRF1 EQU 40X+PG0 ORIGIN OF ADDRESS MODE INSTRUCTIONS T0300302 REGREF EQU 60X+PG0 ORIGIN OF REGISTER REFERENCE INSTRUCTIONS (FT0300303 MEMREF1 EQU 80X+PG0 ORIGIN OF MEMORY REFERENCE TYPE 1 INSTRUCTIOT0300304 ADRF1A EQU A0X+PG0 ORIGIN OF ADDRESS MODE INSTRUCTIONS (ALTERNAT0300305 REGSHIFT EQU B0X+PG0 ORIGIN OF REGISTER SHIFT INSTRUCTIONS (F=0, T0300306 ADRF1M EQU B8X+PG0 ORIGIN OF ADDRESS MODE INSTRUCTIONS (MISCELLT0300307 INTORG EQU BCX+PG0 ORIGIN OF MICRO/MACRO INTERRUPTS T0300308 REGSKIP1 EQU C0X+PG0 ORIGIN OF REGISTER SKIP 1 INSTRUCTIONS (F=0,T0300309 INTREG1 EQU E0X+PG0 ORIGIN OF INTERREGISTER INSTRUCTIONS (F=0,F1T0300310 IRORGM EQU F0X+PG0 ORIGIN OF IR INSTRS  3tWITH M AS ORIGIN (F=0,F1T0300311 PAGJMP EQU F0X+PG0 ORIGIN OF PAGE JUMPS VIA S2 TRANSFORM T0300312 SPACE 1 T0300313 KDISPLAY EQU 00X+PG1 ORIGIN OF K DISPLAY REGISTERS T0300314 FCTCHAR EQU 10X+PG1 ORIGIN OF FUNCTION CHARACTERS FOR SIMULATED T0300315 LDISPLAY EQU 20X+PG1 ORIGIN OF L DISPLAY REGISTERS T0300316 DESTREG EQU 38X+PG1 ORIGIN OF MEMORY REFERENCE 2 DESTINATION REGT0300317 MEMREF2 EQU 80X+PG1 ORIGIN OF MEMORY REFERENCE TYPE 2 INSTRUCTIOT0300318 ADRF2 EQU A0X+PG1 ORIGIN OF ADDRESS MODES FOR MEMORY REFERENCET0300319 DECRPT EQU B0X+PG1 ORIGIN OF DECREMENT AND REPEAT INSTRUCTIONS T0300320 MISREF EQU E0X+PG1 ORIGIN OF MISCELANEOUS INSTRUCTIONS T0300321 REGSKIP2 EQU F0X+PG1 ORIGIN OF REGISTER SKIP 2 INSTRUCTIONS T0300322 SPACE 1 T0300323 FLDREF EQU D8X+PG1 ORIGIN OF FIELD INSTRUCTIONS T0300324 INTREG2 EQU B8X+PG1 ORIGIN OF INTERREGISTER 2 INSTRUCTIONS T0300325 AZ EQU 0 A=0, IF (F1=00XX) .OR. NOT(MULTI-LEVEL INDIRT0300326 AN EQU 4 A=4, IF (F1=00XX) .OR. NOT(MULTI-LEVEL INDIRT0300327 BZ EQU 0 B=0, IF (PROTECT VIOLATION) = 0 T0300328 BN EQU 2 B=2, IF (PROTECT VIOLATION) = 1 T0300329 CZ EQU 0 C=0, IF (DELTA=NOTZERO) .OR. (PROTECT VIOLATT0300330 CN EQU 1 C=1, IF (DELTA=NOTZERO) .OR. (PROTECT VIOLATT0300331 DZ EQU 1 D=1, IF (DELTA=ZERO) = 0 T0300332 DN EQU 0 D=0, IF (DELTA=ZERO) = 1 T0300333 EZ EQU 0 E=0, IF NOT((IXT=0500) .OR. (S2 09)) = 0 T0300334 EN EQU 1 E=1, IF NOT((IXT=0500) .OR. (S2 09)) = 1 T0300335 SPACE 1 T0300336 COMINSTR EQU E0X+SPG2 ORIGIN OF COMMERCIAL INSTRUCTIONS T0300337 SCIINSTR EQU F0X+SPG2 ORIGIN OF SCIENTIFIC INSTRUCTIONS T0300338 SPACE 3 T0300339 EJECT T0300340 BOX T0300341* COMMERCIAL INSTRUCTIONS EQUATES T0300342 EBOX T0300343 CPG1 EQU PAGE8*100X FOR ADDRESSING INTO FIRST PAGE OF COMMERCIALT0300344 CPG2 EQU PAGE9*100X FOR ADDRESSING INTO SECOND PAGE OF COMMERCIAT0300345 CPAG2 EQU CPG2/100X SECOND PAGE OF COMMERCIAL C/W T0300346 SSKTRTBL EQU DAX+CPG2 STRING SKIPS TRANSFORM TABLE LOCATION T0300347 CISCKSUM EQU EAX+CPG2 COMMERCIAL INSTRUCTION SET CHECKSUM LOCATIONT0300348 BOX T0300349* EMULATOR EQUATES T0300350 EBOX T0300351 RNI EQU 058X EMULATOR READ NEXT INSTRUCTION ENTRY POINT T0300352 CMPEQ EQU 19DX EMULATOR COMPARE EQUAL ENTRY POINT T0300353 CMPNE EQU 1A7X EMULATOR COMPARE NOT EQUAL ENTRY POINT T0300354 SPACE 2 T0300355 BOX T0300356* PROGRAM START AND END (FOR PROGRAM LOADING PURPOSES ONLY) T0300357 EBOX T0300358 FRSTINST EQU CPG1+00X FIRST MICRO INSTRUCTs  3uION OF COMMERCIAL PACKAGT0300359 LASTINST EQU CPG2+FFX LAST MICRO INSTRUCTION OF COMMERCIAL PACKAGT0300360 ORG CPG1-2 T0300361+ FRSTINST JU NO EXECUTE, PROGRT0300362- LASTINST JL NO EXECUTE, PROGRT0300363 HEX 18722 PRODUCT NUMBER T0300364* USED IN SYSDAT. T0300365 BOX T0300366* PROGRAM CHECKSUM T0300367 EBOX T0300368 ORG CISCKSUM T0300369-CISCKSM HEX 0 TWOS COMPLEMENT CHECKSUM OF CIS PROGRAM T0300370 EJECT T0300371 BOX T0300372 FILE 2 EQUATES T0300373 EBOX T0300374* EQUATES FOR MOVES AND COMPARES T0300375 F2STL1 EQU 6 SAVE OF LENGTH OF STRING 1 T0300376 F2STL2 EQU 17 SAVE OF LENGTH OF STRING 2 (MUST BE EQUAL TOT0300377 F2SWPF EQU 18 STRING SWAP FLAG, POSITIVE IMPLIES SWAP T0300378 SPACE 1 T0300379* EQUATES FOR DECIMAL ADD/SUBTRACT T0300380 F2A.SG EQU 5 SIGN OF ADD/SUBTRACT ANSWER T0300381 SPACE 1 T0300382* EQUATES FOR DECIMAL MULTIPLY T0300383 F2M.C EQU 4 CARRY FROM LAST OR CURRENT SINGLE MULTIPLY T0300384 F2M.I EQU 5 I IDX TO CURRENT MULTIPLICAND (I,I1,J MUST BT0300385 F2M.I1 EQU 6 I1 INDEX TO LEAST DIGNIFICANT NON-ZERO DIGITT0300386 F2M.J EQU 7 J INDEX TO CURRENT MULTIPLIER (MUST BE EQUALT0300387 F2M.2M EQU 9 MSB OF 2 * CURRENT MULTIPLICAND (USED BY DIVT0300388 F2M.MP EQU 17 CURRENT MULTIPLIER T0300389 SPACE 1 T0300390* EQUATES FOR DECIMAL DIVIDE T0300391 F2D.R EQU 4 REMAINDER, AND MSB(QUOT*V2) - REM T0300392 F2D.C EQU 4 CARRY DIGITS (MUST EQUAL CFK) T0300393 F2D.K EQU 5 K INDEX TO NEXT QUOT DIGITS, K1-9, (MUST EQUT0300394 F2D.MK EQU 5 M INDEX TO DIVIDEND FOR MUL/SUB LOOP *256 (9T0300395 F2D.V2 EQU 6 MS-1 FOUR DIGITS OF NORM. DIVISOR (MUST EQU T0300396 F2D.Q EQU 7 CURRENT FOUR DIGIT QUOTIENT (MUST EQUAL F2IRT0300397 F2D.TQ EQU 9 TRIAL QUOTIENT (MUST EQUAL CFN) T0300398 F2D.S EQU 9 TEMP FOR LSB(QUOT*V2) - U2 (3RD DIGIT OF DIVT0300399 F2D.IX EQU 17 I2 INDEX (NO. OF *2 NORM.) *256 + I1 (NO. *1T0300400 F2D.V1 EQU 18 MS FOUR DIGITS OF NORMALIZED DIVISOR T0300401 SPACE 1 T0300402* EQUATES FOR LOAD/STORE AND PACK/UNPACK T0300403 F2TARX EQU 5 TARGET FIELD INDEX (MUST BE EQUAL TO CFK) T0300404 F2PUTX EQU 6 PUTIX (0..3) T0300405 F2TTMP EQU 9 TEMP FOR INTERMEDIATE TARGET FIELD VALUES T0300406 F2SNZ EQU 17 TEMP FOR SIGN AND NOh\  3u&NZERO FLAG BIT (MUST EQUT0300407 EJECT T0300408 SPACE 15 T0300409 BOX T0300410* T0300411* T0300412* T0300413* T0300414* C O M M E R C I A L I N S T R U C T I O N S E T T0300415* T0300416* T0300417* T R A N S F O R M T A B L E T0300418* T0300419* T0300420* T0300421* T0300422 EBOX T0300423 SPACE 15 T0300424 EJECT T0300425 BOX T0300426 T0300427 TRANSFORM TABLE T0300428 T0300429 EBOX T0300430 CMP1 T0300431 ORG COMINSTR T0300432 SPACE 1 T0300433+ A X P RNI JL NOP = 0F00 T0300434 SPACE 1 T0300435+ MOV J MOV = 0F01 T0300436 SPACE 1 T0300437+ CMP J SEQ = 0F02 T0300438 SPACE 1 T0300439+ CMP J SNE = 0F03 T0300440 SPACE 1 T0300441+ CMP J SLE = 0F04 T0300442 SPACE 1 T0300443+ CMP J SLT = 0F05 T0300444 SPACE 1 T0300445+ CMP J SGE = 0F06 T0300446 SPACE 1 T0300447+ CMP J SGT = 0F07 T0300448 SPACE 1 T0300449+ ONE Q D.DADDSB J DAD = 0F08 T0300450 SPACE 1 T0300451+ ZERO Q D.DADDSB J DSB = 0F09 T0300452 SPACE 1 T0300453+ ONE X F2WR N=F2REG3 L DML = 0F0A T0300454 SPACE 1 5  3u: T0300455+ ZERO X F2WR N=F2REG3 DDV = 0F0B T0300456- D.MULDIV J T0300457 SPACE 1 T0300458+ DLD J DLD = 0F0C T0300459 SPACE 1 T0300460+ DST J DST = 0F0D T0300461 SPACE 1 T0300462+ DPK J DPK = 0F0E T0300463 SPACE 1 T0300464+ DUN J DUN = 0F0F T0300465 EJECT T0300466 SPACE 1 T0300467+ SUB- P MEM P RNI JL NOP = 0F10 T0300468- NOPEXT J NOP = 0800 T0300469 SPACE 1 T0300470+ DOV J DOV = 0F11 T0300471- NOPEXT J NOP = 0810 T0300472 SPACE 1 T0300473+ DCP J DEQ = 0F12 T0300474- NOPEXT J NOP = 0820 T0300475 SPACE 1 T0300476+ DCP J DNE = 0F13 T0300477- NOPEXT J NOP = 0830 T0300478 SPACE 1 T0300479+ DCP J DLE = 0F14 T0300480- NOPEXT J NOP = 0840 T0300481 SPACE 1 T0300482+ DCP J DLT = 0F15 T0300483- NOPEXT J NOP = 0850 T0300484 SPACE 1 T0300485+ DCP J DGE = 0F16 T0300486- NOPEXT J NOP = 0860 T0300487 SPACE 1 T0300488+ DCP J DGT = 0F17 T0300489- NOPEXT J NOP = 0870 T0300490 SPACE 1 T0300491+ SUB- P MEM P RNI JL NOP = 0F18 T0300492- NOPEXT J NOP = 0880 T0300493 SPACE 1 T0300494+ SUB- P MEM P RNI JL NOP = 0F19 T0300495- NOPEXT J NOP = 0890 T0300496 SPACE 1 T0300497+ SUB- P MEM P RNI JL NOP = 0F1A T0300498- NOPEXT J NOP = 08A0 T0300499 SPACE 1 T0300500+ SUB- P MEM P RNI JL NOP = 0F1B T0300501- NOPEXT J NOP = 08B0 T0300502 SPACE 1 o  3uN T0300503+ SUB- P MEM P RNI JL NOP = 0F1C T0300504- NOPEXT J NOP = 08C0 T0300505 SPACE 1 T0300506+ SUB- P MEM P RNI JL NOP = 0F1D T0300507- NOPEXT J NOP = 08D0 T0300508 SPACE 1 T0300509+ SUB- P MEM P RNI JL NOP = 0F1E T0300510- NOPEXT J NOP = 08E0 T0300511 SPACE 1 T0300512+ SUB- P MEM P RNI JL NOP = 0F1F T0300513- NOPEXT J NOP = 08F0 T0300514 SPACE 2 T0300515 ORG EEX+CPG2 T0300516-NOPEXT A.-B SM1 BG SM1 11 L T0300517- A X P RNI JL T0300518 EJECT T0300519 SPACE 15 T0300520 BOX T0300521* T0300522* T0300523* T0300524* T0300525* M O V E I N S T R U C T I O N T0300526* T0300527* T0300528* T0300529* T0300530 EBOX T0300531 SPACE 15 T0300532 EJECT T0300533 BOX T0300534* T0300535* M O V E I N S T R U C T I O N 0F01 T0300536* T0300537 EBOX T0300538 ORG 00X+CPG1 T0300539 CMP2 T0300540+MOV B Q X F2WR CLRF/ONES EXECUTE MOVE INSTT0300541- RTJ I.MOVCMP J DO INITIAL MOVE/CT0300542+ B X Q X GATEI MOV.CHK JNU CK IF WORD MOVE OT0300543 SPACE 2 T0300544* STRING 1 LENGTH OR STRING 2 LENGTH IS ZERO T0300545- A.-B X BG F GATEI K=0 ZL CHECK IF STRING 2T0300546+ A I N=20X NU CK IF STRING2 ON T0300547- MOV.EXIT J STRING 2 IS ZERO,T0300548 SPACE 1 T0300549+ B N,K L8EA WRCH/1 U BYTE, STORE 1STT0300550- MOV.SPC  3ub J CHECK IF STRING 2T0300551+ ADD F MEM F BYTE, DCR STR2 T0300552 SUB P MEM P MOV.SPC J CHECK IF STRING 2T0300553 SPACE 2 T0300554+MOV.OSET A A I MOV.WRDO J MOVE BLOCK OF WRDT0300555* RETURN IS TO MOV.WRTN J T0300556 SPACE 1 T0300557- A I NU STORE 1ST BYTE THT0300558+ A.-B A X Q L8EA MOV.BYTE J BYTE IS IN MSB T0300559- A.B A X Q MOV.BYTE J BYTE IS IN LSB T0300560* RETURN IS TO MOV.WRTN J T0300561 SPACE 3 T0300562+MOV.CHK -A X X RTJ MOV.WRDS J NO, DO BLOCK WORDT0300563- EOR P F RTJ MOV.OSET JZL YES, CK IF OVERLAT0300564 SPACE 3 T0300565+MOV.WRTN N=F2STL1 GET STRING LENGTHT0300566 A F2 A N=F2STL2 FILE 2. A=STR1T0300567 A F2 F K=0 T0300568 SPACE 1 T0300569 MOV.SPC B K X RTJ MOVE PROPER AMT OT0300570+ B A Q A GATEI F.MOVCMP J DO FINAL SPACE MOT0300571- B Q Q L8EA MOV.BYTE J MOVE BLOCK OF SPAT0300572 SPACE 1 T0300573 CMP1 T0300574+MOV.EXIT SETF/ONES MOVE EXIT T0300575 N=F2PSAV RESTORE P REGISTET0300576 SUB- F2 MEM P RNI JL ALL DONE, P=P+1, T0300577 EJECT T0300578 SPACE 15 T0300579 BOX T0300580* T0300581* T0300582* T0300583* T0300584* S T R I N G S K I P O R C O M P A R E T0300585* T0300586* T0300587* I N S T R U C T I O N S T0300588* T0300589* T0300590* T0300591* T0300592 EBOX T0300593 SPACE 15 T0300594 EJECT T0300595 BOX T0300596* T0300597* S T R I N G S K I P ( C O M P A R E ) I N S T R U C T I T0300598*   3uv T0300599 EBOX T0300600 CMP2 T0300601+CMP B Q X F2WR CLRF/ONES EXECUTE COMPARE IT0300602 A.-B A BG F BG8000X GET STRING1 LENGTT0300603 A.-B X BG Q BG8000X GET STRING2 LENGTT0300604 SUB- F Q Q N=F2REG1 NU CHECK IF STRING 2T0300605+ A A P CMP.INIT J YES, DO INITIAT0300606 SPACE 1 T0300607- B F2 X P GATEI N=F2REG2 NO, REVERSE STRINT0300608 B F2 F N=F2REG1 SWAP A AND Q (QT0300609 A I F F2WR N=F2REG2 SWAP REG 1 AND RET0300610 A A X F2WR NOW STRING 2 IS LT0300611 SPACE 1 T0300612 CMP.INIT B Q F N=F2SWPF SAVE SWAP FLAG INT0300613 A P A F2WR A=STR1 LTH, X=STRT0300614 SPACE 1 T0300615 RTJ I.MOVCMP J DO INITIAL MOVE/CT0300616+ B X Q X GATEI CMP.CHK JNU CK IF WORD MOVE OT0300617 SPACE 2 T0300618* STRING 1 LENGTH IS ZERO T0300619- A.-B X BG F GATEI BG8000X ZL STR1=0, CK IF STRT0300620+ A I K=FFX NU NO, CHK IF STR2T0300621- ZERO X CMP.EXIT J YES, STRING EQUT0300622 SPACE 1 T0300623+ READ U STR2 OFFSET, CK 1T0300624- CMP.SPC J COMPARE STR2 WITHT0300625+ A.B MEM K X GET FIRST BYTE OFT0300626 B BG Q BG20X Q = SPACE T0300627 ADD F MEM F DCR STRING 2 LENGT0300628 EOR X Q ZL CHECK IF BYTE NOTT0300629+ CMP.EXIT J 1ST BYTE NOT SPACT0300630- SUB P MEM P CMP.SPC J COMPARE STR2 WITHT0300631 SPACE 2 T0300632+CMP.CHK -A X X RTJ CMP.WRDS J NO, DO BLOCK WORDT0300633- A A I RTJ CMP.WRDO J COMPARE WORD BLOCT0300634 EJECT T0300635 BOX T0300636* STRING SKIP (COMPARE) INSTRUCTIONS (CONTINUED) T0300637 EBOX T0300638+CMP.WRTN N=F2STL1 GET STRING LENGTHT0300639 A F2 A N=F2STL2 FILE 2. A=STR1T0300640 A F2 F K=FFX T0300641 SPACE 1 T0300642 CMP.SPC B K X RTJ COMPARE REST WITHT0300643+ B A Q A GATEI F.MOVCMP J DO FINAL SPACE MOT0300644- A.B X Q Q CMP.BYTE J COMPARE BLOCK OF T0300645 SPACE 1 T0300646+CMP.EXIT A X F N=F2SWPF  3u CHECK IF SWAP FLAT0300647 A F2 N=F2PSAV NU YES, SWAP LAST T0300648 CMP1 T0300649+ B Q X SETF/ONES U NO, X=LAST BYTET0300650- B Q F SETF/ONES F=LAST BYTET0300651+CMP.INST A F2 P CPAG2 TMA/2 U TRANSFORM TO STRIT0300652 SPACE 2 T0300653 ORG SSKTRTBL T0300654+SEQINSTR EOR X F CMPEQ JZL SKIP IF EQUAL T0300655 SPACE 1 T0300656+SNEINSTR EOR F X CMPNE JZL SKIP IF NOT EQUALT0300657 SPACE 1 T0300658+SLEINSTR SUB F X CMPEQ JNU SKIP IF LESS OR ET0300659 SPACE 1 T0300660+SLTINSTR SUB X F CMPNE JNU SKIP IF LESS THANT0300661 SPACE 1 T0300662+SGEINSTR SUB X F CMPEQ JNU SKIP IF GREATER OT0300663 SPACE 1 T0300664+SGTINSTR SUB F X CMPNE JNU SKIP IF GREATER TT0300665 SPACE 1 T0300666 ORG CMP.INST+1 T0300667 EJECT T0300668 SPACE 15 T0300669 BOX T0300670* T0300671* T0300672* T0300673* T0300674* M O V E / C O M P A R E S T R I N G T0300675* T0300676* T0300677* S U B R O U T I N E S T0300678* T0300679* T0300680* T0300681* T0300682 EBOX T0300683 SPACE 15 T0300684 EJECT T0300685 BOX T0300686* T0300687* INITIAL MOVE/COMPARE OPERATION T0300688* T0300689 EBOX T0300690 CMP2 T0300691+I.MOVCMP N=F2REG2 X = STRING 2 LENGT0300692 A.-B X BG Q BG8000X ZL CHECK IF STRING2 T0300693+ A.-B A BG A GATEI BG8000X ZL CHECK IF STRING1 T0300694-   3u RL STRING 2 = 0 T0300695 SPACE 1 T0300696+ A F2 F N=F2REG1 U F = ADDRESS OF STT0300697- A F2 P RL STR1=0, SET AB, UT0300698 SPACE 1 T0300699+ A F2 P TN/5 P = ADDRESS OF STT0300700 EOR I X DECN NU CK START BOUNDARIT0300701+ A F P READ IMC.10 J NO, BOUNDARIES T0300702 SPACE 3 T0300703* BOUNDARIES ARE ALLIGNED T0300704- B F X GATEI K=0 NU CK IF START ON BYT0300705+ A I P READ L BYTE, READ FIRST0300706 SPACE 1 T0300707- ADD P MEM F N=F2REG1 WORD, BACKUP STT0300708+ ADD I MEM P F2WR IMC.40 J T0300709 SPACE 1 T0300710- A MEM F L8EA MOVE/CMP 1ST BYTET0300711+ B F X GATEI IMC.20 JNU FROM BOTH STRING T0300712 EJECT T0300713 BOX T0300714* INITIAL MOVE/COMPARE OPERATION (CONTINUED) T0300715 EBOX T0300716 IMC.10 B MEM X GATEI K=FFX NU CK IF STR2 ON BYTT0300717+IMC.20 A P P N=FFX NZU CHECK IF MOVE/COMT0300718- ADD P MEM P IMC.40 J WORD, BACKUP STT0300719 SPACE 2 T0300720+ A I L8EA WRCH/1 L MOVE, STORE FIRSTT0300721- READ IMC.50 J COMPARE, CK FIRSTT0300722 SPACE 1 T0300723+IMC.30 A F X CMP.EXIT J BYTES NOT EQUAL, T0300724 SPACE 1 T0300725- ADD A MEM A REDUCE BOTH STRINT0300726 ADD X MEM X RTN TO DO BLOCK MT0300727 SPACE 1 T0300728 IMC.40 A.-B X BG F BG8000X A,F=STR1/2 LTH, PT0300729 A.-B F BG Q BG1 STR2, GET MIN WT0300730 SUB A F NU COMPUTE MINIMUM LT0300731+ A.-B A BG Q BG1 STR1, GET MIN WT0300732 SPACE 1 T0300733- SUB F Q F N=F2STL2 DECREMENT BOTH STT0300734 SUB A Q F F2WR N=F2STL1 THIS MINIMUM WORDT0300735 B Q F F2WR RROE KZU SAVE RESULTS IN FT0300736+ ADD MEM BG Q L8EA BG100X U Q=FF00 FOR NO OFFT0300737- B K Q Q=00FF FOR OFFSETT0300738+ A I F A TK/S2LSB SET N,K TO MIN WOT0300739 B F F L8EA N=F2REG1 T0300740 A F2 F F TN/S2LSB RU F = ADR OF STRIT0300741 SPACE 3 T0300742 IMC.50 A.-B MEM N F   3u GET FIRST BYTE OFT0300743 A.B I N Q L8EA GET FIRST BYTE OFT0300744 EOR F Q IMC.30 JZL CHECK IF EQUAL T0300745 EJECT T0300746 BOX T0300747* T0300748* FINAL MOVE/COMPARE OPERATION T0300749* T0300750 EBOX T0300751-F.MOVCMP A F X Q TK/S2LSB ZL CHECK IF STRING2 T0300752+ A I N=1 ZL CHECK IF STRING 1T0300753- ONE X FMC.10 JKZU STRING 2 ZERO, T0300754 SPACE 1 T0300755+ B A BG Q GATEI BG2000X U CHAR IN LS BYTE T0300756- B BG A RPT BG20X U STRING1 LENGTH IST0300757+ A+B A Q A L8EA A = A*100X + SPACT0300758 EOR F BG BG1 ZL CHECK IF STRING 2T0300759+ A P P FMC.20 JKZU NO, CHECK IF MOT0300760 SPACE 1 T0300761- A P P KZU YES, CHECK IF MT0300762+ A A WRCH/0 U STORE LAST BYTE T0300763- A.B I X Q READ L COMPARE LAST BYTET0300764+FMC.10 MOV.EXIT J T0300765- A.-B MEM X X L8EA CMP.EXIT J T0300766 SPACE 3 T0300767+FMC.20 A A WRITE L STORE BYTE*100X +T0300768- A A Q READ FMC.40 J COMPARE TWO BYTEST0300769+FMC.30 EOR I Q A CMP.W20 J BYTES NOT EQUAL, T0300770 SPACE 2 T0300771- SUB F BG F BG2 DECREMENT STR2 LTT0300772 A F F GATEI RROE COMPUTE NO OF WRDT0300773 A X F A TK/S2LSB SET N, K TO THAT T0300774 B F X L8EA N=F2STL2 T0300775 A.B I BG F BG1 DCR STRING2 LENGTT0300776 A A X X F2WR TN/S2LSB RL NBR OF SPACES TO T0300777 SPACE 3 T0300778 FMC.40 EOR MEM Q GATEI FMC.30 JZL CHECK IF 2BYTES AT0300779 EJECT T0300780 BOX T0300781* T0300782* MOVE BLOCK OF WORDS TO ANOTHER WORD BLOCK T0300783* T0300784* T0300785* ENTRY T0300786* F = START ADDRESS - 1 OF BLOCK 1 T0300787* P = START ADDRESS - 1 OF BLOCK 2 T0300788* NK= BLOCK LENGTH (CAN BE ZERO) T0300789* X = FF T0300790* ]~  3u T0300791* EXIT T0300792* F = END ADDRESS + 1 OF BLOCK 1 T0300793* P = END ADDRESS + 1 OF BLOCK 2 T0300794* Q = NEXT SEQUENTIAL BYTE AFTER BLOCK 1 T0300795* NK= FFFF T0300796* X, A, I ARE SAVED T0300797* T0300798 EBOX T0300799+ SUB F MEM F MOV.INTC J INTERRUPT,SAVE ANT0300800 SPACE 2 T0300801-MOV.WRDS SUB F MEM F DECK KZU INC ADR1, DCR LS8T0300802+ SUB P MEM P READ DECN NZU INC ADR2, READ, CT0300803- SUB P MEM P READ L INC ADR2, READ DAT0300804+ A.-B MEM X Q L8EA RU ALL DONE, SAVE NET0300805 SPACE 2 T0300806- A MEM Q INPUT DATA T0300807 B Q WRITE MOV.WRDS JINTU WRITE DATA, CK INT0300808 EJECT T0300809 BOX T0300810* T0300811* MOVE OFFSET BLOCK OF WORDS TO A NON-OFFSET WORD BLOCK T0300812* T0300813* T0300814* ENTRY T0300815* F = START ADDRESS OF OFFSET BLOCK 1 (STARTS AT LS BYTE OT0300816* P = START ADDRESS - 1 OF BLOCK 2 T0300817* NK= BLOCK LENGTH (CAN BE ZERO) T0300818* I = FIRST BYTE OF BLOCK 1 IN LS BYTE OF I T0300819* X = FF T0300820* T0300821* EXIT T0300822* F = END ADDRESS + 1 OF BLOCK 1 T0300823* P = END ADDRESS + 1 OF BLOCK 2 T0300824* Q = NEXT SEQUENTIAL BYTE AFTER BLOCK 1 T0300825* NK= FFFF T0300826* X SAVED T0300827* A AND I NOT SAVED T0300828* T0300829 EBOX T0300830-MOV.WO10 A+B A Q L8EA WRHW0 INTU WRITE DATA, CK INT0300831+MOV.WO20 B BG A MOV.INTR J INTERRUPT,SET X T0300832 SPACE 2 T0300833-MOV.WRDO SUB F MEM F DECK KZU INC ADR1, DCR LS8T0300834+ A.B I X Q READ DECN NZU GET NEXT MSBYTE, T0300835- A.B I X Q READ L GET NEXT MSBYTE T0300836+ ADD P BG P BG1 RU ALL DONE, INC ADRT0300837 SPACE 2 T0300838- A.-B MEM X A GATEI   3u GET NXT LSBYTE, ST0300839 SUB P MEM P MOV.WO10 J INC ADR2, CK INTET0300840 EJECT T0300841 BOX T0300842* T0300843* MOVE ONE BYTE THROUGHOUT A BLOCK OF WORDS T0300844* T0300845* T0300846* ENTRY T0300847* P = START ADDRESS - 1 OF BLOCK 2 T0300848* NK= BLOCK LENGTH (CAN BE ZERO) T0300849* Q = BYTE TO BE MOVED IN LSB OF Q T0300850* X = FF T0300851* T0300852* EXIT T0300853* P = END ADDRESS + 1 OF BLOCK 2 T0300854* NK= FFFF T0300855* A = 0 T0300856* Q, X, F, I ARE SAVED T0300857* T0300858 EBOX T0300859-MOV.BYTE B Q A L8EA L A+Q = TWO SAME BYT0300860 SPACE 2 T0300861+ A P F MOV.WO20 J INTERRUPT,SAVE ANT0300862 SPACE 2 T0300863-MOV.B10 SUB P MEM P DECK KZU INC ADR2, DCR LS8T0300864+ RPT NZU DCR MS8B OF CTR, T0300865- A+B A Q WRITE MOV.B10 JINTU WRT 2BYTES, CK INT0300866+ ZERO A RU ALL DONE, EXIT T0300867 EJECT T0300868 BOX T0300869* T0300870* COMPARE BLOCK OF WORDS TO ANOTHER WORD BLOCK T0300871* T0300872* T0300873* ENTRY T0300874* F = START ADDRESS - 1 OF BLOCK 1 T0300875* P = START ADDRESS - 1 OF BLOCK 2 T0300876* NK= BLOCK LENGTH (CAN BE ZERO) T0300877* X = FF T0300878* T0300879* EXIT (FOR STRINGS EQUAL) T0300880* F = END ADDRESS + 1 OF BLOCK 1 T0300881* P = END ADDRESS + 1 OF BLOCK 2 T0300882* Q = NEXT SEQUENTIAL BYTE AFTER BLOCK 1 T0300883* NK= FFFF T0300884* I NOT SAVED T0300885* X AND A ARE SAVED T0300886* S  3u T0300887* EXIT (FOR STRINGS NOT EQUAL) T0300888* Q = STRING 1 BYTE T0300889* X = STRING 2 BYTE T0300890* F, P, A, I, AND NK ARE NOT SAVED T0300891* T0300892 EBOX T0300893 CMP.WRDS SUB F MEM F L INCREMENT ADDRESST0300894 SPACE 1 T0300895+ EOR I Q A CMP.W20 J WORD NOT EQUAL, CT0300896-CMP.W10 SUB P MEM P READ DECK KZU INC ADR, READ, DCT0300897+ A MEM Q DECN NZU GET 2 STR1 BYTES,T0300898- A MEM Q L GET 2 STR1 BYTES T0300899+ -A.B X Q Q L8EA RU ALL DONE, SAVE NET0300900 SPACE 2 T0300901- SUB F MEM F READ INC ADR1, READ OPT0300902 MEM GATEI INTU SAVE DATA, CK INTT0300903+ EOR I Q A ZL INTERRUPT, PROCEST0300904- EOR I Q CMP.W10 JZL CK IF 2 SETS BYTET0300905 SPACE 2 T0300906+CMP.W20 A.-B A X CMP.NEQU JZL CK IF UPPER BYTEST0300907-MOV.INTC ZERO A MOV.INTR J PROCESS INTERRUPTT0300908 EJECT T0300909 BOX T0300910* T0300911* COMPARE OFFSET BLOCK OF WORDS TO A NON-OFFSET WORD BLOCK T0300912* T0300913* T0300914* ENTRY T0300915* F = START ADDRESS OF OFFSET BLOCK 1 (STARTS AT LS BYTE OT0300916* P = START ADDRESS - 1 OF BLOCK 2 T0300917* NK= BLOCK LENGTH (CAN BE ZERO) T0300918* A = FIRST BYTE OF BLOCK 1 IN LS BYTE OF A T0300919* X = FF T0300920* T0300921* EXIT (FOR STRINGS EQUAL) T0300922* F = END ADDRESS + 1 OF BLOCK 1 T0300923* P = END ADDRESS + 1 OF BLOCK 2 T0300924* Q = NEXT SEQUENTIAL BYTE AFTER BLOCK 1 T0300925* NK= FFFF T0300926* X SAVED T0300927* A AND I NOT SAVED T0300928* T0300929* EXIT (FOR STRINGS NOT EQUAL) T0300930* Q = STRING 1 BYTE T0300931* X = STRING 2 BYTE T0300932* F, P, A, I, AND NK ARE NOT SAVED T0300933* T0300934 EBOX 1  3v T0300935+ EOR I Q A CMP.WO10 J WORD NOT EQUAL, CT0300936-CMP.WRDO SUB F MEM F DECK KZU INC ADR1, DCR LS8T0300937+ A.B A X Q READ DECN NZU GET NEXT MSBYTE, T0300938- A.B A X Q READ L GET NEXT MSBYTE T0300939+ ADD P BG P BG1 RU ALL DONE, INC ADRT0300940 SPACE 2 T0300941- A.-B MEM X A GATEI Q=NEXT LS BYTE T0300942 A+B A Q Q L8EA FORM WORD FROM TWT0300943 SUB P MEM P INCREMENT ADDRESST0300944 SPACE 1 T0300945 A I A READ READ TWO BYTES T0300946 A MEM I INTU SAVE DATA, CK INTT0300947+ EOR I Q A ZL INTERRUPT, PROCEST0300948- EOR I Q CMP.WRDO JZL CK IF 2 SETS BYTET0300949 SPACE 2 T0300950+CMP.WO10 A.-B A X CMP.NEQU JZL CK IF UPPER BYTEST0300951- B BG A MOV.INTR J INTERRUPT, SET X T0300952 EJECT T0300953 BOX T0300954* T0300955* COMPARE ONE BYTE TO A BLOCK OF WORDS T0300956* T0300957* T0300958* ENTRY T0300959* P = START ADDRESS - 1 OF BLOCK 2 T0300960* NK= BLOCK LENGTH (CAN BE ZERO) T0300961* Q = BYTE TO BE MOVED IN LSB OF Q T0300962* X = FF T0300963* T0300964* EXIT (FOR STRINGS EQUAL) T0300965* P = END ADDRESS + 1 OF BLOCK 2 T0300966* NK= FFFF T0300967* A = 0 T0300968* Q AND X ARE SAVED T0300969* F AND I ARE NOT SAVED T0300970* T0300971* EXIT (FOR STRINGS NOT EQUAL) T0300972* Q = STRING 1 BYTE T0300973* X = STRING 2 BYTE T0300974* F, P, A, I, AND NK ARE NOT SAVED T0300975* T0300976 EBOX T0300977+CMP.BYTE B Q A L8EA A+Q = TWO SAME BYT0300978 A+B A Q Q L T0300979 SPACE 1 T0300980+ A.-B A X CMP.NEQU JZL WORD NOT EQUAL, CT0300981-CMP.B10 SUB P MEM P DECK KZU INC ADR2, DCR LS8T0300982+ ZERO A READ DECN F  3v NZU READ, DCR MS8B, CT0300983- READ CMP.B20 J READ IN DATA T0300984+ A.B X Q Q RU ALL DONE, EXIT T0300985 SPACE 2 T0300986- EOR MEM Q GATEI CMP.B10 JZL CK IF 2 SETS BYTET0300987 SPACE 2 T0300988 CMP.B20 A MEM I INTU SAVE DATA, CK INTT0300989+ EOR I Q A ZL INTERRUPT, PROCEST0300990- EOR I Q A CMP.B10 JZL CK IF 2 SETS BYTET0300991 SPACE 2 T0300992+ A.-B A X CMP.NEQU JZL CK IF UPPER BYTEST0300993- ZERO A CMP.BINT J INTERRUPT,SAVE ANT0300994 EJECT T0300995 BOX T0300996* T0300997* STRINGS DID NOT COMPARE (NOT EQUAL), EXIT T0300998* T0300999 EBOX T0301000+CMP.NEQU -A.B X Q Q L8EA L NO, SAVE UPPER T0301001- A.B X Q Q YES, SAVE LOWERT0301002+ A.B I X X CMP.EXIT J T0301003-CMP.NE10 A.-B I X X L8EA CMP.EXIT J T0301004 SPACE 5 T0301005 BOX T0301006* T0301007* INTERRUPT DURING MOVE/COMPARE INSTRUCTION T0301008* T0301009 EBOX T0301010 ORG ECX+CPG2 T0301011-CMP.BINT B N,K X N=F2STL2 L INTERRUPT ON BYTET0301012- ADD X X X MOV.I10 J X=NBR BYTES NOT MT0301013 SPACE 2 T0301014 ORG E0X+BG8000X+CPG2 T0301015-MOV.INTR B N,K X L X=NBR WORDS NOT MT0301016- ADD X X X L X=NBR OF BYTES T0301017- A+B A X A N=F2STL1 L IOR IN OFFSET, IFT0301018- ADD A F2 A N=F2STL2 L ADJUST STRING LTHT0301019 SPACE 1 T0301020-MOV.I10 ADD F2 X Q N=F2REG1 L ADJUST STRING LTHT0301021- SUB P MEM F F2WR N=F2REG2 L SAVE STRING 1/2 AT0301022 SPACE 1 T0301023 CMP1 T0301024-D.INTXIT F2WR SETF/ONES L SET ONES COMPLEMET0301025- A.-B SM1 BG SM1 DECARITH L RESET DECIMAL ARIT0301026- N=F2PSAV L RESET P REGISTER T0301027- A F2 P RNI JL PROCESS INTERRUPTT0301028 SPACE 1 T0301029 ORG CMP.NE10+1 T0301030 EJECT  3v* T0301031 SPACE 15 T0301032 BOX T0301033* T0301034* T0301035* T0301036* T0301037* D E C I M A L A D D O R S U B T R A C T T0301038* T0301039* T0301040* I N S T R U C T I O N S T0301041* T0301042* T0301043* T0301044* T0301045 EBOX T0301046 SPACE 15 T0301047 EJECT T0301048 BOX T0301049* T0301050* D E C I M A L A D D / S U B T R A C T 0F08-0F09 T0301051* T0301052 EBOX T0301053 CMP2 T0301054+D.DADDSB F2WR N=F2REG2 GET SIGN AND ITS T0301055 RTJ D.CKZERO J OF OPERAND 2 T0301056+ D.OP2ZRO J OPERAND 2 IS ZEROT0301057 SPACE 1 T0301058- A I P N=F2REG1 NZU SAVE ADR IN X, SIT0301059+D.ADD10 EOR I BG P BG8000X SUBTRACT, CMP SIGT0301060 SPACE 1 T0301061- A A X RTJ D.CKZERO J GET SIGN/ADR OF OT0301062+ D.OP1ZRO J OPERAND 1 IS ZEROT0301063 SPACE 1 T0301064- A I F N=F2A.SG SAVE OPR1 SIGN INT0301065+ ZERO F F2WR N=F2REG3 GET OPERAND 3 ADDT0301066 A P Q K=10 T0301067 ADD F2 K P T0301068 EOR I Q K=0 NU CHECK IF SIGN DIFT0301069+ K=80X YES, SUBTRACT OT0301070 SPACE 1 T0301071- A P Q RTJ D.ADDSUB J ADD/SUB OPERANDS T0301072 SPACE 1 T0301073+ ONE X U NON-ZERO ANSWER T0301074- ZERO X ZERO ANSWER, CLR T0301075+ B Q Q N=F2A.SG STORE SIGN WORD T0301076 A.B F2 X WRITE D.ADDXIT J EXIT ADD/SUB ROUTT0301077 SPACE 2 T0301078+D.OP2ZRO ZERO Q N=F2REG1S  3v> L OP2=0, USE OPERANT0301079-D.OP1ZRO ZERO Q N=F2REG2 NZU OP1=0, USE OP2, CT0301080+ B BG Q BG8000X YES, COMPLEMENTT0301081- A F2 X N=F2REG3 X=OP ADR, F2(N)=OT0301082 SPACE 1 T0301083 D.OPZ10 ADD X K A GET NEXT OPERAND T0301084 ADD F2 K P READ READ, GET NEXT OPT0301085 EOR MEM Q F (COMP OP2, IF NET0301086 A F WRITE DECK KZU READ/WRITE 11 WORT0301087 SPACE 1 T0301088+D.ADDXIT N=41X U CLR DEC. ARITH, ST0301089- ZERO Q D.OPZ10 J CLR CMP FLAG, REPT0301090 SPACE 2 T0301091+ EOR SM1 N SM1 N=F2PSAV RESTORE P AND GOTT0301092 CMP1 T0301093 SUB- F2 MEM P RNI JL T0301094 EJECT T0301095 BOX T0301096* T0301097* DECIMAL ARITHMETIC ADD/SUBTRACT SUBROUTINE T0301098* T0301099* ENTRY T0301100* A = START ADDRESS - 1 OF OPERAND 1 T0301101* X = START ADDRESS - 1 OF OPERAND 2 T0301102* P = START ADDRESS - 1 OF ANSWER (Q = P) T0301103* F = 0 T0301104* K = 0 FOR ADD, 80X FOR SUBTRACT T0301105* OVERFLOW CLEARED T0301106* T0301107* EXIT Q = START ADDRESS - 1 OF ANSWER (SIGN WORD) T0301108* F = 0, IF ANSWER ZERO (SUBTRACT OF TWO EQUAL OPERANDS) T0301109* T0301110 EBOX T0301111 CMP2 T0301112+D.ADDSUB ADD X MEM X N=9 U DECREMENT OP2 ADDT0301113 SPACE 1 T0301114 D.AS10 A.-B SM1 BG SM1 OVERFLOW OVFL CLEAR/CHECK OVERFT0301115+ A F I READ KZU READ (OP2), CK T0301116- A F I READ DECK KZU READ (OP2), CK T0301117+ A MEM F D.AS20 J ADD, SAVE F AND AT0301118 SPACE 1 T0301119- A MEM F SUB, SAVE F AND ST0301120 ADD A MEM A DECREMENT OP1 ADDT0301121 ADD P MEM P READ K7L DCR R3, READ OPERT0301122+ SUB MEM F F U SUB WITH NO BORT0301123- SUB- MEM F F INCK SUB WITH BORROWT0301124+ SUBT F F1 F WRITE D.AS30 J SUB CORRECTION ANT0301125 SPACE 1 T0301126 D.AS20 ADD A MEM A _  3vR DECREMENT OP1 ADDT0301127 ADD P MEM P READ K7L DCR R3, READ OPERT0301128+ ADD MEM F F U ADD WITH NO CART0301129- ADD+ MEM F F INCK ADD WITH CARRY T0301130+ ADDT F F1 F WRITE ADD CORRECTION ANT0301131 SPACE 1 T0301132 D.AS30 A+B I F F DECN NZU (F = IOR OF RESULT0301133+ A.-B SM1 BG SM1 OVERFLOW OVFL EXIT, CLR/CHK T0301134- ADD X MEM X D.AS10 J DCR OP2 ADR, CONTT0301135+ A F RZL NO OVFL, RTN, CHKT0301136 EJECT T0301137 BOX T0301138* T0301139* DECIMAL ARITHMETIC ADD/SUBTRACT SUBROUTINE T0301140* T0301141 EBOX T0301142- B Q P N=F2A.SG KZU CHECK IF ADD OVERT0301143+ A F2 F WRITE D.SETOVF J YES, STORE SGN,T0301144 SPACE 3 T0301145* BORROW OCCURRED, ANSWER NEEDS TO BE COMPLEMENTED, SUBTRACT FROT0301146- EOR F2 BG F BG8000X COMPLEMENT SIGN BT0301147+ ZERO A F2WR K=10 SUBTRACT FROM A=0T0301148 SPACE 1 T0301149 D.AS40 ADD P MEM P DECK KZU DCR R3, DECREMENTT0301150+ A.-B SM1 BG SM1 OVERFLOW RU ANSWER CORRECTED,T0301151 SPACE 1 T0301152- A.-B SM1 BG SM1 OVERFLOW OVFL CLEAR/CHECK OVERFT0301153+ A P P READ U NO OVF, ISSUE RT0301154- A P P READ L OVF, ISSUE READT0301155+ SUB A MEM F U NO OVF, THEN NO BT0301156- SUB- A MEM F OVF, THEN BORROW T0301157+ SUBT F F1 F WRITE D.AS40 J ADD CORRECTION ANT0301158 EJECT T0301159 SPACE 15 T0301160 BOX T0301161* T0301162* T0301163* T0301164* T0301165* D E C I M A L M U L T I P L Y T0301166* T0301167* T0301168* I N S T R U C T I O N T0301169* T0301170* T0301171* T0301172* T0301173 EBOX T0301174 SPACE 15 ˎ  3vf T0301175 EJECT T0301176 BOX T0301177* T0301178* D E C I M A L M U L T I P L Y 0F0A T0301179* T0301180* D E C I M A L D I V I D E (PARTIAL) 0F0B T0301181* T0301182 EBOX T0301183 D.MULDIV -A F2 X TK/S2LSB ZL CHECK IF FIRST TIT0301184+ A F2 F N=10 L FIRST TIME ENTRY T0301185 SPACE 2 T0301186- B Q F D.MDRSTR J NOT 1ST, REENTRY T0301187 SPACE 2 T0301188+ SUB- F MEM F CLR PROD/QUOT TO T0301189- ZERO RPT WRHW0 U T0301190 SPACE 1 T0301191+ N=F2REG2 F = ADR OF PROD/QT0301192 RTJ D.CKZERO J CK MULTIPLIER/DIVT0301193+ D.ADDXIT J MULTIPLIER/DIVSORT0301194 SPACE 1 T0301195- A A P N=F2REG1 OK, P=OP1 ADR,ST0301196 A X Q Q = MULTIPLY/DIVIT0301197 A I X RTJ D.CKZERO J CK MULTIPLICAND/DT0301198+ D.ADDXIT J MULTICAND/DIVIDENT0301199 SPACE 1 T0301200- EOR I X N=20X NU CHECK IF LIKE SIGT0301201+ N=A0X SIGNS DIFF, SET NT0301202- B N WRITE STORE SIGN, NOT ZET0301203 EJECT T0301204 BOX T0301205* T0301206* DECIMAL MULTIPLY T0301207* T0301208 EBOX T0301209 A+B I X X RL0E CHECK IF 1/2 OPERT0301210 -A X Q TK/S2LSB NU T0301211+ ADD MEM MEM X D.CHKDIV JKZU CHECK IF DIVIDE/MT0301212 SPACE 2 T0301213* OVERFLOW, SET FLAT0301214-D.SETOVF ADD MEM MEM X K=60X K=OVF+NON-ZERO FLT0301215 -A F1 X N=F2REG3 X = 9999 T0301216- A F2 P N=9 T0301217 SPACE 1 T0301218+ A X WRITE STORE ALL NINES IT0301219- SUB P MEM P RPT U T0301220 SPACE 1 T0301221+ B K F L8EA RMW WRITE OUT FLAGS WT0301222 A+B MEM F WRITE D.ADDXIT1!  3vz J T0301223 SPACE 2 T0301224+D.CHKDIV ADD X X X D.DIVIDE J PROCESS DIVIDE, XT0301225- A F X RTJ D.FNDLSD J FIND LS NOT0 DIGIT0301226+ RTJ N=F2M.I1 F=INDEX TO DIGIT0301227- A P A F2WR D.FNDLSD J FIND LS NOT0 DIGIT0301228 SPACE 1 T0301229+ N=F2M.J SET J = J1 AND SAT0301230 F2WR K=10 T0301231 SPACE 2 T0301232 D.NXMPLR ZERO F F GATEI N=F2REG2 ON ENTRY, F REG =T0301233 ADD I F2 X N=F2M.I1 READ MULTIPIER, RT0301234 A F2 X READ N=F2M.C SET CARRY TO ZEROT0301235 A MEM F F2WR N=F2M.MP ZL SAVE MULTIPIER,CKT0301236+ A X F F2WR N=F2M.I INTU SET I = I1, CK INT0301237 SPACE 1 T0301238- D.CKMDON J MULTIPIER ZERO, KT0301239 EJECT T0301240 BOX T0301241* T0301242* DECIMAL MULTIPLY T0301243* T0301244 EBOX T0301245+ ZERO A D.INTMUL J INTERRUPT,EXIT TOT0301246 SPACE 1 T0301247-D.NXPROD F2WR ON ENTRY, F REG =T0301248 D.NTPROD ZERO A N=F2REG1 T0301249 ADD F2 F F GET ADR OF NEXT MT0301250 ZERO Q READ A,Q = 0, IF MULTCT0301251 A MEM X RTJ N=F2M.MP ZL X = MULTIPLICAND T0301252 SPACE 1 T0301253+ A F2 Q D.MUL1WD J Q = MULTIPLIER, GT0301254 SPACE 1 T0301255- A A F N=F2M.C A=MSB, Q=LSB OF PT0301256 ADD F2 Q P K=4 P = CARRY + LSB(PT0301257 ADDT P F1 P N=F2M.I U T0301258+ SUB F2 K A RTJ N=F2M.J GET K INDEX T0301259- A.-B SM1 BG SM1 OVERFLOW OVFL CHECK FOR CARRY OT0301260+ ADD A F2 A N=F2REG3 NU K=I+J-4, CK IF NET0301261- ADD+ F BG F D.CARRY1 J YES, ADD 1 TO MT0301262 SPACE 1 T0301263+ ADD A F2 Q D.NXP10 J KIDX NEG, DONT RET0301264- ADD A F2 Q K=10 FORM ADDRESS OF RT0301265 SUB A K READ NU CK IF K INDEX .GTT0301266+ ADD P MEM P U NO, READ R3(K) T0301267- D.NXP10 J YES, DONT READ T0301268+ ADDT P F1 P RTJ T0301269- A.-B SM1 BG SM1 OVERFLOW OVFL CHECK FOR CARRY OT0301270+D.NXP10 A P I N=F2M.C   3v U SAVE MSB (X) AS NT0301271- ADD+ F BG F D.CARRY1 J YES, ADD 1 TO MT0301272 SPACE 1 T0301273+ B Q P F2WR K=10 STORE LS (P) IF NT0301274- A A RTJ D.STODIG JNU NON-SIGN DIGITST0301275 SPACE 1 T0301276+ A F I N=F2M.I CHECK IF MULTIPIET0301277 ADD F2 MEM F NU MULTIPLIED ALL MUT0301278+ ADD P MEM P N=F2REG3 U YES, EXIT INNERT0301279- D.NXPROD JINTU NO, DCR I, CK IT0301280 SPACE 2 T0301281+ ADD A MEM A RTJ D.STODIG JNU STORE CARRY AS LAT0301282-D.CKMDON N=F2REG3 T0301283+ ADD F2 K A N=F2M.J CHECK IF ANY MORET0301284 ADD F2 MEM F NU MULTIPLIERS, DCT0301285+ A A X RTJ D.FNDLSD J ALL DONE, CK PRODT0301286- F2WR D.NXMPLR J NOT DONE, GET NEXT0301287 SPACE 1 T0301288+ D.ADDXIT J EXIT MULTIPLY T0301289 D.MDZERO ZERO WRITE D.ADDXIT J PROD/QUOT ZERO, CT0301290 EJECT T0301291 SPACE 15 T0301292 BOX T0301293* T0301294* T0301295* T0301296* T0301297* D E C I M A L D I V I D E T0301298* T0301299* T0301300* I N S T R U C T I O N T0301301* T0301302* T0301303* T0301304* T0301305 EBOX T0301306 SPACE 15 T0301307 EJECT T0301308 BOX T0301309* T0301310* D E C I M A L D I V I D E 0F0B T0301311* T0301312 EBOX T0301313+D.DIVIDE A F A N=F2REG1 FIND MS NOTO DIGIT0301314 A F2 P RTJ D.FNDMSB J T0301315+ SUB I X X N=F2REG2 X=INDEX TO DIGIT0301316 A F2 P RTJ D.FNDMSB J FIND MS NOTO DIGIT0301317 SPACE 1 T0301318+ ADD I MEM F K=11   3v COMPUTE INDEX TO T0301319 SUB X F F N=F2D.K NU OF QUOTIENT (K=T0301320+ D.SETOVF J QUOTIENT OVERFLOWT0301321 SPACE 1 T0301322- SUB F K F2WR DECK NU CHECK FOR TRUNCATT0301323+ ZERO Q RTJ N=F2REG2 U NORMALIZE THE DIVT0301324- ZERO X D.CKDDON J TRUNCATION, SETT0301325 SPACE 1 T0301326+ ADD I F2 P D.NORML2 J MAKE MS DIGITS.GET0301327 SPACE 1 T0301328- N=F2D.V2 SAVE MS TWO WORDST0301329 A X F F2WR N=F2D.V1 NORMALIZED DIVIT0301330 A+B I Q F F2WR N=F2D.IX SAVE THEIR I1/I2 T0301331 F2WR N=F2REG2 SET INTERRUPT SECT0301332 D.NEXT4Q K=0 INTU CHECK FOR INTERRUT0301333+ D.INTDV1 J PROCESS AN INTERRT0301334 SPACE 2 T0301335-D.NXQUOT A F2 P RTJ D.FNDMSB J FIND MS NON-ZERO T0301336+ ADD F2 F X D.NORML1 J NORM. DIVIDEND AST0301337 SPACE 1 T0301338- ADD F X X N=99X U IF V1=U(J), SET XT0301339+ ADDT X F1 X RTJ K=99X AND I=V1+U(J+1)T0301340- A.-B SM1 BG SM1 OVERFLOW OVFL T0301341+ B X N,K X GATEI U T0301342- B N,K X RU V1+U(J+1) OFL, SET0301343 SPACE 1 T0301344+ A P P N=F2D.V1 P,F = DIVIDEND T0301345 EOR P F2 RTJ ZL CHECK IF V1.EQ. UT0301346+ A F2 X D.DIV1WD J NO, DIVIDE AND T0301347 SPACE 1 T0301348- A I F N=F2D.R I=F = REMAINDER, T0301349 A X F F2WR N=F2D.Q X=F = QUOTIENT, ST0301350 ZERO A F2WR INTU CHECK INTERRUPTS T0301351+ D.INTDV2 J PROCESS AN INTERRT0301352 EJECT T0301353 BOX T0301354* T0301355* DECIMAL DIVIDE T0301356* T0301357 EBOX T0301358-D.CKQUOT A X Q RTJ N=F2D.V2 ZL CHECK IF MULTIPLIT0301359+ A F2 Q D.MUL1WD J NO, QUOT * V2 (T0301360- A A X N=F2REG2 A=X = MSB OF QUOTT0301361 A F2 P N=F2D.R Q = LSB OF QUOTT0301362 SUB X F2 F T0301363 SUBT F F1 F K=0 CK IF MSB(QUOT*V2T0301364 B Q F F2WR N=F2D.S (SAVE THIS DIFFT0301365 F2WR N=F2D.K LSB(QUOT*V2) IT0301366 A.-B SM1 BG SM1 OVERFLOW<  3v OVFL CHECK IF DIFFERENT0301367+ A P P RTJ D.FNDMSB J FIND MS NON-ZERO T0301368- ZERO X D.INITMS J NO (DIFF NEG), T0301369 SPACE 1 T0301370+ ADD+ F2 F X D.NORML3 J GET DIVID. 3RD DIT0301371 SPACE 1 T0301372- ZERO Q N=F2D.R CLEAR CARRY (Q) FT0301373 A F2 A N=F2D.V1 A = MSB(QUOT*V2) T0301374 A F2 I RTJ N=F2D.S U I = V1 T0301375+ SUB F2 F F N=F2D.V2 U F=LSB(Q*V2)-U2(ORT0301376 SPACE 1 T0301377-D.AJQUOT SUB F F2 F ADJUST TRIAL QUOTT0301378+ SUBT F F1 F (A,F = A,F-V1,VT0301379 A.-B SM1 BG SM1 OVERFLOW OVFL (NOTE THIS LOOPT0301380+ SUB A Q A U EITHER 0,1,2,T0301381- SUB- A Q A T0301382+ SUBT A F1 A INCK INC LOOP COUNT T0301383 A.-B SM1 BG SM1 OVERFLOW OVFL T0301384+ A+B A F X N=F2D.K ZL CK IF A,F EQUAL ZT0301385- N=F2D.K L OVFL, ALL DONE T0301386+ A I Q INCN RL SET Q = V1 AFTER T0301387 SPACE 2 T0301388-D.INITMS ADD F2 BG X L8EA BG4 INIT MUL/SUB LOOPT0301389 ZERO F2 F GATEI N=F2D.Q DCR QUOT BY ADJUST0301390 SUB F2 K A N=F2D.C T0301391 SUB A F1 F F2WR N=F2D.Q CLEAR MUL AND SUBT0301392 A+B I X F F2WR N=F2D.MK INTU CHECK FOR INTERRUT0301393 EJECT T0301394 BOX T0301395* T0301396* DECIMAL DIVIDE T0301397* T0301398 EBOX T0301399+ D.INTDV3 J PROCESS AN INTERRT0301400 SPACE 2 T0301401-D.MULSUB ZERO A F2WR K=FFX MULIPLY AND SUBTRT0301402 D.MULSB1 A.-B F K X L8EA GET DIVIDEND INDET0301403 A.B F K F GET QUOTIENT INDET0301404 SUB X F X N=F2REG2 COMPUTE DIVISOR IT0301405 ADD+ X BG X BG4 N = M - K + 5 T0301406 ADD X F2 X GATEI GET MULTIPLICAND,T0301407 A I READ NU CK IF DIVISOR INDT0301408+ ZERO Q D.SUBTRT J YES, CONSIDER IT0301409- A MEM X N=F2D.Q ZL CHECK IF MULTIPLIT0301410+ A F2 Q RTJ ZL NO, GET MULTIPLT0301411- ZERO Q D.SUBTRT J YES, ANSWER ZERT0301412 SPACE 1 T0301413+ D.MUL1WD J GET PRODUCT (A,Q=T0301414 SPACE 1 k6  3v T0301415-D.SUBTRT A A F N=F200FF SUBTRACT PRODUCT T0301416 ZERO F2 P GATEI N=F2D.MK CURRENT DIVIDENT0301417 -A.B I F2 A L8EA N=F2REG1 T0301418 ADD A F2 X K=10 T0301419 SUB A K READ NU READ R1(M), CK IFT0301420+ SUB MEM Q P K=0 U YES, USE R1(M) T0301421- SUB P Q P U NO, USE R1(M) T0301422+ SUBT P F1 P RTJ N=F2D.C SUBTRACT LSB OF RT0301423- A.-B SM1 BG SM1 OVERFLOW OVFL T0301424+ SUB P F2 P U T0301425- ADD+ F BG F D.CARRY1 J BORROW, ADD ONE TT0301426 SPACE 1 T0301427+ SUBT P F1 P RTJ SUBTRACT PREVIOUST0301428- A.-B SM1 BG SM1 OVERFLOW OVFL T0301429+ A X X F2WR KZU (SAVE CARRY FOR NT0301430- ADD+ F BG F D.CARRY1 J BORROW, ADD ONE TT0301431 SPACE 1 T0301432+ A P WRITE STORE PARTIAL DIVT0301433 SPACE 1 T0301434- A F A N=F2D.MK T0301435 SUB F2 MEM F GATEI INC K, IF MULSUB T0301436 SUB I BG F F2WR BG100X NU CHECK IF MULSUB DT0301437+ A A K=9 ZL YES, CHECK IF BT0301438-D.MSCINT D.MULSUB JINTU NO, CHECK FOR IT0301439 SPACE 1 T0301440 ORG C9X+BG0+CPG2 T0301441-D.CARRY1 ADD F F1 F RU ADD CORRECTION FOT0301442 ORG D.MSCINT+1 T0301443 EJECT T0301444 BOX T0301445* T0301446* DECIMAL DIVIDE T0301447* T0301448 EBOX T0301449+ SUB- I BG BG4 NU INITIALIZE ADD BAT0301450- ZERO Q D.STQUOT J NO BORROW, STORE T0301451 SPACE 1 T0301452+ ADD I BG X BG4 U SET M = K+9-5 =T0301453- B K X SET M = 9 (FOR T0301454+ SUB X F2 A N=F2REG1 T0301455 ADD+ F2 X P TK/S2LSB P = R1(M+1)ADR, KT0301456 ZERO Q N=F2REG2 T0301457 ADD+ A BG A BG4 N INDEX (A) = M -T0301458 ADD+ A F2 A A = R2(N) ADDRESST0301459 SPACE 1 T0301460 D.ADDBCK ADD P MEM P READ READ R2(N) T0301461 A MEM X T0301462 A P P READ   3v LQL READ R1(M) T0301463+ ADD MEM X X U T0301464- ADD+ MEM X X T0301465+ ADDT X F1 X WRITE R1(M) = R1(M)+R2(T0301466 A.-B SM1 BG SM1 OVERFLOW OVFL CHECK FOR CARRYOUT0301467+ ZERO Q DECK KZU NO T0301468- ONE Q DECK KZU YES T0301469 SPACE 1 T0301470+ B BG Q BG1 U DCR QUOTIENT BY OT0301471- ADD A MEM A D.ADDBCK J CONTINUE ADD BACKT0301472 SPACE 2 T0301473+D.STQUOT ADD I MEM A N=F2D.Q STORE 4 QUOTIENT T0301474 SUB F2 Q X (FIRST ADJUST IF T0301475 SUB X F1 X T0301476 A X I N=F2REG3 R3(K) = QUOT IN IT0301477 ADD A F2 P K=10 T0301478 A A RTJ D.STODIG JNU CK FOR OVERFLOW OT0301479 EJECT T0301480 BOX T0301481* T0301482* DECIMAL DIVIDE T0301483* T0301484 EBOX T0301485+D.CKDDON ZERO F N=F2M.J CLR J INDEX FOR MT0301486 SUB X MEM F2WR N=F2REG2 NU CHECK IF DIVIDE AT0301487+ D.NEXT4Q J NO, NEXT 4 QUOTT0301488 SPACE 2 T0301489* ADJUST REMAINDER, IF NECESSARY AND CHECK IF T0301490- B K X X = 10 T0301491 ADD F2 X A RTJ N=F2REG1 A = ADR OF OPERANT0301492 ADD F2 X P D.FNDLSD J P = ADR OF OPERANT0301493 SPACE 1 T0301494+ B BG A BG4 CK IF LS NON-ZEROT0301495 SUB A F F NU OF DIVIDEND .GT. T0301496+ ZERO F (NO, DONT SHIFTT0301497- SUB X F Q YES, F=SHIFT OFFST0301498 ZERO Q A TK/S2LSB K=10-OFFSET T0301499 ZERO Q CLEAR A AND Q T0301500 SUB- P F F N=9 F=STARTING OFFSETT0301501 SPACE 1 T0301502 D.REMLOP ADD P MEM P READ KZU READ, CK IF NEG IT0301503+ A GATEI U (YES, USE ZERO)T0301504- A+B MEM Q Q GATEI DECK SAVE DATA, Q=IOR T0301505+ A I RPT WRHW0 NZU WRITE SHIFTED REMT0301506- ADD F MEM F D.REMLOP J REPEAT 10 TIMES T0301507 SPACE 2 T0301508+ ADD P X P CHECK IF REMAINDET0301509 B Q K=10 ZL T0301510+ D.CKMDON~  3v J NO, CK IF QUOT ZET0301511-ORGP1S1 ZERO WRITE D.CKMDON J YES, ZERO SIGN WRT0301512 EJECT T0301513 SPACE 15 T0301514 BOX T0301515* T0301516* T0301517* T0301518* T0301519* D E C I M A L M U L T I P Y / D I V I D E T0301520* T0301521* T0301522* I N T E R R U P T H A N D L I N G R O U T I N E S T0301523* T0301524* T0301525* T0301526* T0301527 EBOX T0301528 SPACE 15 T0301529 EJECT T0301530 BOX T0301531* T0301532* INTERRUPT DURING DECIMAL MULTIPLY AND DIVIDE T0301533* T0301534* ON EXIT, MULTIPLY DIVIDE T0301535* R1 = ADDRESS OF OPERAND 1 ADDRESS OF OPERAND 1 T0301536* R2 = ADDRESS OF OPERAND 2 ADDRESS OF OPERAND 2 T0301537* R3 = -0 (FFFF) -0 (FFFF) T0301538* R4 = CURRENT CARRY REMAINDER OR CARRY T0301539* Q = ADDRESS OF OPERAND 3 ADDRESS OF OPERAND 3 T0301540* A = THREE INDEXES (J,I1,I,0) M INDEX*256 + K INDEX T0301541* I = DESTROYED CURRENT 4 QUOTIENT DIGIT0301542* T0301543 EBOX T0301544 ORG 00X+CPG2 T0301545 D.INTMUL ONE F F2WR K=2 K = 2 (3 INDEXES T0301546 ADD MEM BG X BG8 X = 7 (F2 ADR OF T0301547 SPACE 1 T0301548 D.IM10 X TN/S2LSB SET F2 ADDRESS T0301549 A+B A F2 A N=4 KZU GET NEXT INDEX, CT0301550+ AL0E N=F2REG3 L ALL DONE, A=3 IT0301551 SPACE 1 T0301552- AL0E DECK SHIFT INDEXES FORT0301553+ ADD X MEM X D.IM10 J DECREMENT F2 ADR T0301554 SPACE 1 T0301555- A F2 Q D.INTXIT J Q=OP3, R3=-0, PROT0301556 SPACE 3 T0301557+D.INTDV3 F2WR K=C0X U INTERRUPT ON SECTT0301558-D.INTDV2 K=80X 0  3w INTERRUPT ON SECTT0301559+D.INTDV1 B K X L8EA N=F2D.MK INT. ON SECTION 1T0301560 SPACE 1 T0301561 A+B F2 X A N=F2REG3 A = INT SECTION NT0301562 A F2 Q K=FFX Q = ADDRESS OF OPT0301563 B K F N=F2D.Q T0301564 A F2 WRITE N=F2REG3 STORE F2(7) IN LOT0301565 ONE F D.INTXIT J SET R3=-0, FOR RET0301566 EJECT T0301567 BOX T0301568* T0301569* DECIMAL MULTIPLY AND DIVIDE RESTART AFTER AN INTERRUPT T0301570* T0301571 EBOX T0301572+D.MDRSTR A.-B SM1 BG SM1 OVERFLOW CLEAR OVERFLOW T0301573 A+B SM1 BG SM1 DECARITH SET DECIMAL ARITHT0301574 F2WR CLRF/ONES R3=ADR OF OP3, SET0301575 A A F N=F2D.MK KZU CHECK IF DIVIDE OT0301576+ F2WR D.DIVSTR J DIVIDE, SAVE A T0301577 SPACE 1 T0301578- A A Q K=3 Q=J,I1,I,0, K=SHIT0301579 ADD MEM BG X BG8 X = 7 (F2 ADR OF T0301580 SPACE 1 T0301581 D.MR10 ZERO A N=4 KZU SHIFT NEXT INDEX T0301582+ A F F D.NTPROD J RESTART MULTIPLICT0301583 SPACE 1 T0301584- AQL0E DECK T0301585 A A X F TN/S2LSB RESTORE INDEX TO T0301586 ADD X MEM X F2WR D.MR10 J DECREMENT FILE 2 T0301587 SPACE 3 T0301588+D.DIVSTR ZERO Q RTJ N=F2REG2 FIND MS NOTO DIGIT0301589 A F2 P D.FNDMSB J T0301590 SPACE 1 T0301591+ A P P D.NORML2 J NORMALIZE THE DIVT0301592 SPACE 1 T0301593- N=F2D.V2 SAVE MS TWO WORDST0301594 A X F F2WR N=F2D.V1 NORMALIZED DIVIT0301595 A+B I Q F F2WR N=F2D.IX SAVE THEIR I1/I2 T0301596 ZERO A F2WR K=C0X SETUP INTERRUPT NT0301597 B K X L8EA N=F2D.MK T0301598 A.-B F2 X F GATEI K=FFX SAVE M AND K INDET0301599 SPACE 1 T0301600 A I X F2WR N=F2REG2 NU CHECK IF INTERRUPT0301601+ ADD X X N=F2D.Q NU NO, CK IF INTERT0301602 SPACE 1 T0301603- D.NXQUOT J GET NXT 4 QUOTIENT0301604 SPACE 1 T0301605+ A F F D.MULSB1 J INT 3, CONT. MUL T0301606 SPACE 1   3w T0301607-ORGP2S1 A F2 X D.CKQUOT J INT 2, X = TRIAL T0301608 SPACE 1 T0301609 ORG ORGP1S1+1 T0301610 EJECT T0301611 SPACE 15 T0301612 BOX T0301613* T0301614* T0301615* T0301616* T0301617* D E C I M A L A R I T H M E T I C T0301618* T0301619* T0301620* S U B R O U T I N E S T0301621* T0301622* T0301623* T0301624* T0301625 EBOX T0301626 SPACE 15 T0301627 EJECT T0301628 BOX T0301629* T0301630* CHECK FOR OPERAND ZERO T0301631* T0301632* ENTRY F2(N) = ADDRESS OF DECIMAL NUMBER T0301633* T0301634* EXIT A = ADDRESS OF DECIMAL NUMBER,S SIGN T0301635* I = SIGN WORD CONTENTS. IF ZERO, NO IS ZERO.T0301636* F = F (FOR SETTING AB OF OPERAND 3 FOR MUL/DT0301637* OVERFLOW CLEARED, TWOS COMPLEMENT SET T0301638* DECIMAL ARITHEMETIC SET T0301639* RETURN LOWER, UNLESS OPERAND ZERO T0301640* T0301641 EBOX T0301642 CMP1 T0301643+D.CKZERO A.-B SM1 BG SM1 K=10 CLEAR OVERFLOW, KT0301644 A+B SM1 BG SM1 DECARITH SET DECIMAL ARITHT0301645 CLRF/ONES SET TWO COMP ARITT0301646 CMP2 T0301647 ADD F2 K A SET A TO SIGN WORT0301648 A F Q F READ TN/S2LSB N = ADD(FF), SUB(T0301649 -A.B MEM BG GATEI BG2000X RZL I=SIGN WORD, RTN T0301650 SPACE 2 T0301651 BOX T0301652* T0301653* STORE DIGITS, IF NO OVERFLOW (NON-SIGNIFICANT DIGITS IGNORED) T0301654*  3w. T0301655* ENTRY A = NEG (OVERFLOW), POS (NO OVERFLOW) T0301656* I = FOUR DIGITS TO BE STORED T0301657* P = ADDRESS FOR THE STORAGE (AB ALREADY SETUT0301658* K = 10 T0301659* EXIT X = NEGATIVE IF DIGIT STORED, OTHERWISE POSIT0301660* T0301661 EBOX T0301662+D.STODIG A I D.STO10 JZL OVERFLOW, CHECK DT0301663 SPACE 1 T0301664 SUB A K NU CHECK FOR NON-SIGT0301665+ A I WRITE NO, STORE FOUR T0301666- SUB A K X RU YES, IGNORE ANDT0301667 SPACE 1 T0301668+D.STO10 D.SETOVF J NON-ZERO, SET OVFT0301669- SUB A K X RU ZERO, IGNORE AND T0301670 EJECT T0301671 BOX T0301672* T0301673* FIND LEAST SIGNIFICANT NON-ZERO DIGIT T0301674* T0301675* ENTRY, A = START ADR OF DECIMAL NO. (LSD) - 1 T0301676* X = ADDRESS OF OPERAND 3 SIGN WORD T0301677* EXIT, F = INDEX (0-9) OF LS NON-ZERO DIGIT T0301678* T0301679 EBOX T0301680+D.FNDLSD K=10 T0301681 ADD A MEM A D.F20 J DECREMENT TO 1ST T0301682 SPACE 2 T0301683+ A X X D.MDZERO J NUMBER IS ALL ZERT0301684 SPACE 1 T0301685-D.F10 A MEM DECK ZL CHECK IF DIGIT ZET0301686+ B K F RU NO, SET F=INDEXT0301687 SPACE 1 T0301688-D.F20 ADD A MEM A READ D.F10 JKZU DCR ADR, READ NEXT0301689 SPACE 2 T0301690 BOX T0301691* T0301692* FIND MOST SIGNIFICANT NON-ZERO DIGIT T0301693* T0301694* ENTRY, P = START ADR OF DECIMAL NO. (MS DIGITS), AB ALREAT0301695* A = ADDRESS OF OPERAND 3 SIGN WORD T0301696* T0301697* EXIT, I = INDEX (0-9) OF MS NON-ZERO DIGIT T0301698* F = I INDEX (I=K-J+5 -1) FOR DIVIDEND ENTRY T0301699* F2= START ADDRESS OF OPERAND 1 (DIVIDEND) T0301700* T0301701 EBOX T0301702+D.FNDMSB ONE F K=10 o  3 wB K= NUMBER OF WORDT0301703 D.FM10 SUB F MEM F READ DECK KZU READ MS DIGITS, IT0301704+ A A A D.MDZERO J NUMBER IS ALL ZERT0301705 SPACE 1 T0301706- A MEM N=F2D.K ZL CHECK IF DIGITS ZT0301707+ SUB- F BG F GATEI BG4 U NO, I=INDEX, F=T0301708- SUB P MEM P D.FM10 J READ NEXT DIGITS,T0301709 SPACE 1 T0301710+ ADD F F2 F N=F2REG1 COMPUTE I INDEX (T0301711 ADD F MEM F RU EXIT, F=I=K+J-5 -T0301712 EJECT T0301713 BOX T0301714* T0301715* DECIMAL MULTIPLY, 16 BITS * 16 BITS, ONE WORD T0301716* T0301717* (X=MULTIPLICAND) * (Q=MULTIPLIER) = (A,Q = PRODUCT) T0301718* T0301719* ON ENTRY, A = 0 T0301720* T0301721* ON EXIT, ALL OTHER REGISTERS NOT SAVED T0301722* T0301723 EBOX T0301724+D.MUL1WD ZERO F K=3 SET K TO LOOP 4 TT0301725 ZERO P N=0 N=0, FOR 1ST TIMET0301726 SPACE 1 T0301727+D.MUL10 ZERO RQR0E LQL CHECK NEXT BIT OFT0301728 SPACE 1 T0301729- A P Q RL ALL DONE, PRODUCTT0301730 SPACE 2 T0301731+ D.MUL20 J =0, SKIP ADD T0301732 SPACE 1 T0301733- ADD P X P Q =1, ADD LSB SHIT0301734 ADDT P F1 P T0301735 A.-B SM1 BG SM1 OVERFLOW OVFL CHECK FOR CARRY OT0301736+ ADD A F A D.MUL15 J NO, ADD MSB SHFT0301737- ADD+ A F A D.MUL15 J YES,ADD MSB SHF MT0301738 SPACE 1 T0301739 ORG ORGP2S1+1 T0301740+D.MUL15 ADD A F1 A DECK KZU CHECK IF FOUR TIMT0301741 SPACE 1 T0301742 D.MUL20 DECK KZU NO ADD, CK IF FOUT0301743+ ADD I X X K=3 U YES, 10* ORIGINAT0301744- ADD X X X D.MUL30 J NO, DOUBLE MULTIT0301745 SPACE 1 T0301746+ ADDT X F1 X FOURTH TIME, T0301747 A.-B SM1 BG SM1 OVERFLOW OVFL MCAND = 10*MCANT0301748+ ADD F2 F F D.MUL40 J = 8*MCANDT0301749- ADD+ F2 F F D.MUL40 J T0301750 SPACE 1 /  3 wV T0301751 D.MUL30 ADDT X F1 X NOT FOURTH TIME, T0301752 A.-B SM1 BG SM1 OVERFLOW OVFL 1.MCAND = 2*MCANDT0301753+ ADD F F F L 2.MCAND = 4*MCANDT0301754- ADD+ F F F L 3.MCAND = 8*MCANDT0301755 SPACE 1 T0301756+D.MUL40 ADD F F1 F N=0 L FOURTH TIME, RESET0301757 SPACE 1 T0301758- ADD F F1 F N=F2M.2M NZU CHECK IF FIRST TIT0301759+ A X I F2WR YES, SAVE 2*MCAT0301760- B Q D.MUL10 JZL CHECK IF DONE T0301761 EJECT T0301762 BOX T0301763* T0301764* DECIMAL DIVIDE, SINGLE PRECISION, ONE WORD QUOTIENT T0301765* T0301766* DIVIDEND (P,F) / DIVSOR (X) = QUOTIENT (X), REMAINDER (IT0301767* T0301768 EBOX T0301769+D.DIV1WD ZERO Q K=4 K = NO. DIGITS T0301770 ZERO F F GATEI N=F2D.TQ CLEAR QUOTIENT T0301771 SPACE 1 T0301772 D.DIV10 A I F F2WR DECK RESTORE DIVIDEND,T0301773 A X A N=4 T0301774 AQR0E DIVISOR (X,Q) = DT0301775 A A X N=FFX T0301776 SPACE 1 T0301777 D.DIV20 SUB F Q F GATEI INCN (P,F)-(X,Q), SAVET0301778 SUBT F F1 F T0301779 A.-B SM1 BG SM1 OVERFLOW OVFL CHECK FOR LS BORRT0301780+ SUB P X A U NO T0301781- SUB- P X A YES T0301782+ SUBT A F1 A T0301783 A.-B SM1 BG SM1 OVERFLOW OVFL CHECK FOR MS BORRT0301784+ A A P D.DIV20 J NO, INC CTR, COT0301785 SPACE 1 T0301786- B N F L8EA N=F2D.TQ STORE NEXT QUOTIET0301787 A F2 A N=4 AFTER SHIFTING T0301788 ALEA N=F2D.TQ KZU DIGITS INTO PLAT0301789+ A+B A F X RL ALL FOUR DIGITS=XT0301790 SPACE 2 T0301791- A+B A F F D.DIV10 J SAVE DIGITS IN FIT0301792 EJECT T0301793 BOX T0301794* T0301795* NORMALIZE OPERAND T0301796* T0301797* ENTRY 1,3 X = START ADDRESS OF OPERAND (SIGNICANT NON-ZERO DT0301798* ENTRY 1,3 F = INDEX TO FIRST NON-ZER$  3 wjO SIGNIFICANT DIGIT T0301799* ENTRY 2 P = START ADDRESS OF OPERAND (SIGNICANT NON-ZERO DT0301800* ENTRY 2 I = INDEX TO FIRST NON-ZERO SIGNIFICANT DIGIT T0301801* ENTRY 2 Q = 0 T0301802* T0301803* EXIT, X = NORMALIZED OPERAND, WORD 1 (P = X, FOR ENTRY 1T0301804* F = NORMALIZED OPERAND, WORD 2 T0301805* K = FFX (FOR ENTRY 1 AND 3 ONLY) T0301806* I+Q = INDEX1 AND INDEX2 (FOR ENTRY 2 ONLY) T0301807* T0301808 EBOX T0301809* NORMALIZE DIVIDEND (U(I+1),U(I+2)) BASED ON NORMALIZED DIVISORT0301810+D.NORML3 SUB F MEM F INCREMENT I INDEXT0301811 SPACE 1 T0301812* NORMALIZE DIVIDEND (U(I),U(I+1)) BASED ON NORMALIZED DIVISOR T0301813-D.NORML1 B F X P GATEI N=F2D.IX RESET AB ADDRESS T0301814 B F2 Q L8EA F2=I1, Q=I2 T0301815 SPACE 1 T0301816* NORMALIZE DIVISOR (V1,V2) T0301817 D.NORML2 A I K=10 NU CHECK IF I INDEX T0301818+ SUB I K F L YES, A = 0 T0301819- SUB I K F READ NU NO, CK IF INDEX TT0301820+ A MEM A U NO, A = 1ST OPET0301821- ZERO A YES, A = 0 T0301822 SPACE 1 T0301823+ SUB P MEM P INC OPERAND ADR T0301824 SUB F MEM F READ NU CHECK IF INDEX TOT0301825+ A MEM Q Q TK/S2LSB U NO, Q = 2ND OPET0301826- ZERO Q Q TK/S2LSB YES, Q = 0 T0301827 SPACE 1 T0301828+ SUB P MEM P INC OPERAND ADR T0301829 SUB F MEM F READ NU CK IF IDX STILL TT0301830+ A MEM F2 P TN/S2LSB KZU NO, P = 3RD OPET0301831- ZERO F2 P TN/S2LSB KZU YES, P = 0 T0301832 SPACE 1 T0301833+ ONE X D.N20 J ENTRY2, START NORT0301834- AQL0E N=F2D.IX NO, SHIFT 0,4,8T0301835 A F2 X D.N30 J X = I1 INDEX T0301836 EJECT T0301837 BOX T0301838* T0301839* NORMALIZE OPERAND T0301840* T0301841 EBOX T0301842 D.N20 SUB X MEM X N=F0X ENTRY 2, INCREMENT0301843 A.B A N F T0301844 A F N=4 ZL CHECK IF LESS THAT0301845+ ADD X X X RL0E U I1 = I1*4 T0301846- AQL0E D.N20  3 w~ J YES, SHIFT UP (T0301847 SPACE 1 T0301848 D.N30 B X Q F GATEI SHIFT UP OPERAND T0301849 A A X X TN/S2LSB (P) THE SAME AMOT0301850 ZERO Q T0301851 A P A T0301852 AQLEA N=30X T0301853 A+B F Q F DECK KZU CHECK ENTRY1 OR ET0301854+ B N,K P K=0 L ENTRY2, K=0, N=T0301855- N=0 L ENTRY1, K=COUNTT0301856 SPACE 1 T0301857+D.N40 ADD X F1 X CHECK IF ENTRY1/ET0301858- A A Q NZU T0301859+ A X P DECK KZU ENTRY1 CK IF COUT0301860- ADD P X INCK NU ENTRY2, CK LESS TT0301861+ B K Q L8EA RL NO, EXIT (ENTRYT0301862 SPACE 2 T0301863- ADD A Q A YES, SHIFT UP (T0301864 ADDT A F1 A T0301865 A.-B SM1 BG SM1 OVERFLOW OVFL (X,F,A) = (X,F,A)T0301866+ ADD F F F U T0301867- ADD+ F F F T0301868+ ADDT F F1 F T0301869 A.-B SM1 BG SM1 OVERFLOW OVFL T0301870+ ADD X X X D.N40 J T0301871- ADD+ X X X D.N40 J T0301872 EJECT T0301873 BOX T0301874*** T0301875* T0301876* THE FOLLOWING FOUR INSTRUCTIONS (LOAD, STORE, PACK, T0301877* AND UNPACK) USE A COMMON SET OF SUBROUTINES - T0301878* T0301879* GENERAL INITIALIZATION T0301880* INITIALIZES FILE 2 AND VARIOUS REGISTERS T0301881* T0301882* GET T0301883* GETS THE NEXT DIGIT FROM THE SOURCE FIELD T0301884* T0301885* PUT T0301886* PUTS A DIGIT INTO THE TARGET FIELD AND CHECKS FOR INTERRUPT0301887* T0301888* RESUME T0301889* REESTABLISHES FILE 2 AND THE REGISTERS AFTER AN INTERRUPT T0301890* T0301891* DEFINITIONS - T0301892* T0301893* DECA T0301894* DECIMAL ACCUMULATOR - MAY BE EITHEa  3 wR TARGET OR SOURCE FIELDT0301895* T0301896* GETIX (P-REGISTER) T0301897* POINTS TO THE NEXT DIGIT IN THE CURRENT SOURCE WORD T0301898* T0301899* SOURCE INDEX (X-REGISTER) T0301900* SOURCE FIELD INDEX - INDEX FOR CURRENT SOURCE WORD T0301901* T0301902* CURRENT SOURCE WORD (I-REGISTER) T0301903* T0301904* PUTIX (F2(6)) T0301905* POINTS TO THE NEXT DIGIT IN THE TARGET TEMP WORD T0301906* T0301907* TARX (F2(5)) T0301908* TARGET FIELD INDEX - INDEX FOR NEXT WORD TO BE T0301909* WRITTEN TO THE TARGET FIELD T0301910* T0301911* TTMP (F2(9)) T0301912* TARGET TEMP - HOLDING WORD FOR DIGITS TO BE STORED T0301913* INTO THE TARGET FIELD T0301914* T0301915* DIGIT COUNT (Q-REGISTER) T0301916* DECREMENTED TO ZERO AS DIGITS ARE MOVED T0301917* T0301918* (NOTE - PRIOR TO ENTERING THESE INSTRUCTIONS, THE T0301919* EMULATOR HAS STORED THE P-REGISTER IN THE T0301920* F-REGISTER AND SET THE N-REGISTER TO F2PSAV.) T0301921* T0301922*** T0301923 EBOX T0301924 EJECT T0301925 BOX T0301926*** T0301927* T0301928* LOAD INSTRUCTION T0301929* **************** T0301930* T0301931* FUNCTION T0301932* LOAD LOADS THE VALUE CONTAINED IN A PACKED DECIMAL T0301933* FIELD INTO A DECIMAL ACCUMULATOR(DECA). T0301934* T0301935* NARRATIVE T0301936* ON ENTRY, RESUME IS CALLED. IF THIS IS INITIAL ENTRY, T0301937* THE GENERAL INITIALIZATION ROUTINE IS CALLED. T0301938* T0301939* THE MAIN LOOP CONSISTS OF CALLS TO GET AND PUT. T0301940* T0301941* AT EOJ, THE LAST DIGITS AND THE ATTRIBUTE WORD ARE T0301942* WRITTEN TO THE DECA. THEN LOAD INCR0  3wEMENTS THE P-REGISTER T0301943* BY ONE AND RETURNS TO THE EMULATOR. T0301944* T0301945* ENTRY T0301946* R1 - ADDRESS OF PACKED DECIMAL FIELD T0301947* R2 - ADDRESS OF DECA T0301948* A - BITS T0301949* 15 - BYTE ADDRESS T0301950* 14-11 - NOT USED T0301951* 10-5 - SCALE FACTOR (-19..20), NO. OF DECIMAL PLACES T0301952* 4-0 - NUMBER OF DIGITS (0..31) T0301953* T0301954* EXIT T0301955* NORMALLY, THE CONTENTS OF THE PACKED DECIMAL FIELD T0301956* ARE LOADED INTO THE DECA. HOWEVER, IF THE DIGIT COUNT T0301957* EQUALS ZERO OR AN OUT-OF-BOUNDS CONDITION EXISTS, THE T0301958* DECA IS ZEROED-OUT. T0301959* T0301960* REGISTERS DESTROYED - A, Q, R1, R2, R3 T0301961* REGISTERS PRESERVED - I, R4 T0301962* T0301963*** T0301964 EBOX T0301965 EJECT T0301966 BOX T0301967 T0301968 L O A D I N S T R U C T I O N 0F0C T0301969 T0301970 EBOX T0301971 SPACE 2 T0301972 BOX T0301973 T0301974 INITIALIZATION T0301975 T0301976 EBOX T0301977 CMP1 T0301978 DLD RTJ RES J CHECK FOR RESUME T0301979+ DLD010 J INTERRUPTED, NOW T0301980- RTJ INI J 1ST ENTRY, INITIAT0301981+ B X F N=F2TARX N = F2 PTR T0301982 A P F F2WR N=F2PUTX INIT. DECA (TARGET0301983 A A P F2WR N=F2REG1 INIT. PUTIX (0..3T0301984 ZERO X RTJ INI030 J CONTINUE INITIALIT0301985 SPACE 4 T0301986 BOX T0301987 T0301988 MAIN LOOP T0301989 T0301990 EBOX J  3w T0301991+DLD010 RTJ GET J GET NEXT DIGIT T0301992- DLD090 J DIGIT CNT = 0, GOT0301993* (ALT. RETURN FRT0301994+ RTJ PUT J PUT DIGIT T0301995+ DLD010 J LOOP T0301996 EJECT T0301997 SPACE 3 T0301998 BOX T0301999 T0302000 EOJ T0302001 T0302002 EBOX T0302003- N=F2REG2 N = F2 PTR (FOR DT0302004* (ALT. RETURN FRT0302005 B F2 A N=F2TARX A-REG = DECA BASET0302006 ADD+ A F2 F N=F2TTMP AB = DECA ADDR INT0302007 B F2 WRITE WRITE LAST DIGITST0302008 SPACE 1 T0302009 A.B P BG BG2 ZL IS GETIX = 3 T0302010+ A I F L8EA N=0FX U YES, SIGN TO UPPET0302011- A I F N=0FX SIGN IN F-REG T0302012+ A.B F N F L8EA F-REG = 000S T0302013 N=F2SNZ N = F2 PTR T0302014 K=0DX K = MINUS SIGN T0302015 EOR F K ZL IS SIGN NEGATIVE T0302016+ ZERO F U NO T0302017- B BG F BG8000X YES T0302018+ A+B F F2 F K=10 COMBINE WITH NONZT0302019 ADD+ A K A AB = ADDR OF DECAT0302020 B F WRITE N=F2PSAV WRITE DECA ATTR. T0302021 DLD090 SUB- F2 MEM P RNI JL P = P+1, GO TO RNT0302022 EJECT T0302023 BOX T0302024*** T0302025* T0302026* STORE INSTRUCTION T0302027* ***************** T0302028* T0302029* FUNCTION T0302030* STORE STORES THE VALUE CONTAINED IN A DECIMAL ACCUMULATOR T0302031* (DECA) IN A PACKED DECIMAL FIELD. T0302032* T0302033* NARRATIVE T0302034* ON ENTRY, RESUME IS CALLED. IF THIS IS INITIAL ENTRY, T0302035* THE X-REGISTER IS SET ZERO AND THE GENERAL INITIALIZATION T0302036* ROUTINE IS CALLED. T0302037* T0302038* THE MAIN LOOP CONSISTS OF CALLS TO Gj  3wET AND PUT. T0302039* T0302040* AT EOJ, THE SIGN IS COMBINED WITH THE LAST DIGIT(S) OF THE T0302041* FIELD. IF THE FIELD ENDS IN THE LEFT-BYTE OF A WORD, THE T0302042* SIGN AND THE LAST DIGIT ARE COMBINED WITH THE RIGHT-BYTE T0302043* OF THE WORD BEFORE BEING STORED INTO THE FIELD. THEN STORE T0302044* INCREMENTS THE P-REGISTER BY ONE AND RETURNS TO THE EMULATORT0302045* T0302046* ENTRY T0302047* R1 - ADDRESS OF DECA T0302048* R2 - ADDRESS OF PACKED DECIMAL FIELD T0302049* A - BITS T0302050* 15 - BYTE ADDRESS T0302051* 14-11 - NOT USED T0302052* 10-5 - SCALE FACTOR (-19..20), NO. OF DECIMAL PLACES T0302053* 4-0 - NUMBER OF DIGITS (0..31) T0302054* T0302055* EXIT T0302056* NORMALLY, THE CONTENTS OF THE DECA ARE STORED INTO THE T0302057* PACKED DECIMAL FIELD. HOWEVER, IF THE DIGIT COUNT EQUALS T0302058* ZERO OR AN OUT-OF-BOUNDS CONDITION EXISTS, THE PACKED DECIMAT0302059* FIELD REMAINS UNCHANGED. T0302060* T0302061* REGISTERS DESTROYED - A, Q, R1, R2, R3 T0302062* REGISTERS PRESERVED - I, R4 T0302063* T0302064*** T0302065 EBOX T0302066 EJECT T0302067 BOX T0302068 T0302069 S T O R E I N S T R U C T I O N 0F0D T0302070 T0302071 EBOX T0302072 SPACE 2 T0302073 BOX T0302074 T0302075 INITIALIZATION T0302076 T0302077 EBOX T0302078 DST RTJ RES J CHECK FOR RESUME T0302079+ DST010 J INTERRUPTED, NOW T0302080- ZERO X RTJ INI010 J 1ST ENTRY, INITIAT0302081+ ZERO F N=F2TARX N = F2 PTR T0302082 A A F F2WR N=F2PUTX INIT. TARGET FLD T0302083 F2WR N=F2REG1 INIT. PUTIX (0..3T0302084 RTJ INI030 J CONTINUE INITIALIT0302085 SPACE 4 T0302086 BOX C  3w T0302087 T0302088 MAIN LOOP T0302089 T0302090 EBOX T0302091+DST010 RTJ GET J GET NEXT DIGIT T0302092- DST090 J DIGIT CNT = 0, GOT0302093* (ALT. RETURN FRT0302094+ RTJ PUT J PUT DIGIT T0302095+ DST010 J LOOP T0302096 EJECT T0302097 SPACE 3 T0302098 BOX T0302099 T0302100 EOJ T0302101 T0302102 EBOX T0302103- N=F2REG1 N = F2 PTR T0302104 K=10 K = 10 T0302105 ADD+ F2 K A AB = ADDR OF DECAT0302106 READ N=F2PUTX READ ATTR WORD T0302107 B MEM K=0FX NU IS SIGN NEGATIVE T0302108+ K=0DX YES T0302109- A.B F2 BG BG2 ZL TEST PUTIX T0302110+ B K A U PUTIX = 3 T0302111- B K A L8EA L PUTIX = 1 T0302112+ K=0 U SET MASK = 0 T0302113- K=FFX SET MASK = 00FF T0302114+ N=F2TTMP N = F2 PTR T0302115 A+B A F2 A N=F2REG2 COMBINE SIGN AND T0302116 B F2 F N=F2TARX BASE ADDR OF TARGT0302117 ADD+ F F2 F AB = ADDR LAST WDT0302118 READ READ LAST WD OF TT0302119 A.B MEM K X MASK, RESULT = 0 T0302120 B F F AB = ADDR LAST WDT0302121 A+B A X WRITE N=F2PSAV WRITE LAST WD OF T0302122 DST090 SUB- F2 MEM P RNI JL P = P+1, GO TO RNT0302123 EJECT T0302124 BOX T0302125*** T0302126* T0302127* PACK INSTRUCTION T0302128* **************** T0302129* T0302130* FUNCTION T0302131* PACK CONVERTS A NUMERIC ASCII FIELD TO PACKED DECIMAL AND T0302132* LOADS THE RESULT IN A DECIMAL ACCUMULATOR OF T T0302133 A.B MEM K X MASK, RESULT = 0 T0302134 B F F  3w AB = ADDR LAST WDT0302135 A+B A X WRITE N=F2PSAV WRITE LAST WD OF T0302136 DST090 SUB- F2 MEM P RNI JL P = P+1, GO TO RNT0302137 EJECT T0302138 BOX T0302139*** T0302140* T0302141* PACK INSTRUCTION T0302142* **************** T0302143* T0302144* FUNCTION T0302145* PACK CONVERTS A NUMERIC ASCII FIELD TO PACKED DECIMAL AND T0302146* LOADS THE RESULT IN A DECIMAL ACCUMULATOR (DECA). PRIOR T0302147* TO EXECUTING THE PACK INSTRUCTION, THE SIGN MUST HAVE BEEN T0302148* STRIPPED FROM THE DIGIT IT WAS COMBINED WITH. IF THE SIGN T0302149* IS NEGATIVE, BITS 14-11 OF THE A-REGISTER ARE SET TO $D. T0302150* ANY OTHER VALUE IN BITS 14-11 OF THE A-REGISTER INDICATES T0302151* A POSITIVE SIGN. T0302152* T0302153* NARRATIVE T0302154* ON ENTRY, RESUME IS CALLED. IF THIS IS INITIAL ENTRY, THE T0302155* GENERAL INITIALIZATION ROUTINE IS CALLED. T0302156* T0302157* THE MAIN LOOP CONSISTS OF CALLS TO GET AND PUT. T0302158* T0302159* AT EOJ, THE LAST DIGIT(S) AND THE ATTRIBUTE WORD ARE WRITTENT0302160* TO THE DECA. THEN PACK INCREMENTS THE P-REGISTER BY ONE ANDT0302161* RETURNS TO THE EMULATOR. T0302162* T0302163* ENTRY T0302164* R1 - ADDRESS OF NUMERIC ASCII FIELD T0302165* R2 - ADDRESS OF DECA T0302166* A - BITS T0302167* 15 - BYTE ADDRESS T0302168* 14-11 - SIGN ($D NEGATIVE, ALL OTHERS POSITIVE) T0302169* 10-5 - SCALE FACTOR (-19..20), NO. OF DECIMAL PLACES T0302170* 4-0 - NUMBER OF DIGITS (0..31) T0302171* T0302172* EXIT T0302173* NORMALLY, THE CONTENTS OF THE NUMERIC ASCII FIELD ARE T0302174* CONVERTED AND LOADED INTO THE DECA. HOWEVER, IF THE T0302175* DIGIT COUNT EQUALS ZERO OR AN OUT-OF-BOUNDS CONDITION T0302176* EXISTS, THE DECA IS ZEROED-OUT. T0302177* T0302178* REGISTERS DESTROYED - A, Q, R1, R2, R3 T0302179* REGISTERS PRESERVED - I, R4 T0302180* T0302181*** T0302182 EBOX Gj  3x  T0302183 EJECT T0302184 BOX T0302185 T0302186 P A C K I N S T R U C T I O N 0F0E T0302187 T0302188 EBOX T0302189 SPACE 2 T0302190 BOX T0302191 T0302192 INITIALIZATION T0302193 T0302194 EBOX T0302195 DPK RTJ RES J CHECK FOR RESUME T0302196+ DPK010 J INTERRUPTED, NOW T0302197- RTJ INI J 1ST ENTRY, INITIAT0302198+ B X F N=F2TARX N = F2 PTR T0302199 A P F F2WR N=F2PUTX INIT. DECA (TARGET0302200 A A P F2WR N=F2REG1 INIT. PUTIX (0..3T0302201 ZERO X RTJ INI030 J CONTINUE INITIALIT0302202 SPACE 4 T0302203 BOX T0302204 T0302205 MAIN LOOP T0302206 T0302207 EBOX T0302208+ A+B P BG P BG1 U MAKE GETIX ODD (1T0302209- DPK090 J DIGIT CNT = 0, GOT0302210* (ALT. RETURN FRT0302211+DPK010 RTJ GET J GET NEXT DIGIT T0302212+ ADD+ P ZERO P MAKE GETIX ODD (3T0302213 RTJ PUT J PUT DIGIT T0302214+ DPK010 J LOOP T0302215 EJECT T0302216 SPACE 3 T0302217 BOX T0302218 T0302219 EOJ T0302220 T0302221 EBOX T0302222- N=F2REG2 N = F2 PTR T0302223 B F2 A N=F2TARX A-REG = DECA BASET0302224 ADD+ A F2 F N=F2TTMP AB = DECA ADDR INT0302225 B F2 WRITE K=10 WRITE LAST DIGITST0302226 N=F2SNZ N = F2 PTR T0302227 ADD+ A K A AB = ADDR OF DECAT0302228 B F2 WRITE N=F2PSAV WRITE DECA ATTR. T0302229 DPK090 SUB- F2 MEM P RNI JL P = P+1, GO TO RNT0302230 EJECT U  3x T0302231 BOX T0302232*** T0302233* T0302234* UNPACK INSTRUCTION T0302235* ****************** T0302236* T0302237* FUNCTION T0302238* UNPACK CONVERTS THE VALUE CONTAINED IN A DECIMAL ACCUMULATORT0302239* (DECA) FROM PACKED DECIMAL TO ASCII AND STORES THE RESULT T0302240* IN THE TARGET FIELD. THE SIGN IS COMBINED WITH THE LOW-ORDET0302241* NUMERIC CHARACTER. T0302242* T0302243* NARRATIVE T0302244* ON ENTRY, RESUME IS CALLED. IF THIS IS INITIAL ENTRY, T0302245* THE X-REGISTER IS SET ZERO AND THE GENERAL INITIALIZATION T0302246* ROUTINE IS CALLED. T0302247* T0302248* THE MAIN LOOP GETS THE NEXT DIGIT, MASKS ON $30, AND COMBINET0302249* THE RESULT WITH THE PRIOR DIGIT (IF THERE IS ONE). THE RESUT0302250* ($3D00 OR TT3D) IS LEFT IN THE A-REGISTER. THE PUT INDEX IST0302251* INCREMENTED BY TWO (WILL BE 2 OR 4) AND THE PUT ROUTINE IS T0302252* ENTERED AT PUT010. T0302253* T0302254* AT EOJ, THE SIGN IS COMBINED WITH THE LAST DIGIT OF THE T0302255* FIELD, AND THE RESULT EITHER RE-COMBINED WITH THE PRIOR T0302256* DIGIT OR IF THE LAST DIGIT IS A LEFT-BYTE, IT IS COMBINED T0302257* WITH THE RIGHT-BYTE FROM THE WORD TO BE STORED INTO. THE T0302258* RESULT OF THE PRECEDING IS WRITTEN TO THE TARGET FIELD. T0302259* THEN UNPACK INCREMENTS THE P-REGISTER BY ONE AND RETURNS T0302260* TO THE EMULATOR. T0302261* T0302262* ENTRY T0302263* R1 - ADDRESS OF DECA T0302264* R2 - ADDRESS OF NUMERIC ASCII FIELD T0302265* A - BITS T0302266* 15 - BYTE ADDRESS T0302267* 14-11 - NOT USED T0302268* 10-5 - SCALE FACTOR (-19..20), NO. OF DECIMAL PLACES T0302269* 4-0 - NUMBER OF DIGITS (0..31) T0302270* T0302271* EXIT T0302272* NORMALLY, THE CONTENTS OF THE DECA ARE CONVERTED AND STORED T0302273* INTO THE NUMERIC ASCII FIELD. HOWEVER, IF THE DIGIT COUNT T0302274* EQUALS ZERO OR AN OUT-OF-BOUNDS CONDITION EXISTS, THE NUMERIT0302275* ASCII FIELD REMAINS UNCHANGED. T0302276* T0302277* REGISTERS DESTROYED - A, Q, R1, R2, R3 T0302278* REGISTERS PRESERVED - I, R4 q  3x2 T0302279* T0302280*** T0302281 EBOX T0302282 EJECT T0302283 BOX T0302284 T0302285 U N P A C K I N S T R U C T I O N 0F0F T0302286 T0302287 EBOX T0302288 SPACE 2 T0302289 BOX T0302290 T0302291 INITIALIZATION T0302292 T0302293 EBOX T0302294 DUN RTJ RES J CHECK FOR RESUME T0302295+ DUN010 J INTERRUPTED, NOW T0302296- ZERO X RTJ INI010 J 1ST ENTRY, INITIAT0302297+ ZERO F N=F2TARX N = F2 PTR T0302298 A A F F2WR N=F2PUTX INIT. TARGET FLD T0302299 F2WR N=F2REG1 INIT. PUTIX (0/1 T0302300 RTJ INI030 J CONTINUE INITIALIT0302301 SPACE 4 T0302302 BOX T0302303 T0302304 MAIN LOOP T0302305 T0302306 EBOX T0302307+DUN010 RTJ GET J GET NEXT DIGIT T0302308- DUN090 J DIGIT CNT = 0, GOT0302309* (ALT. RETURN FRT0302310+ N=F2TTMP N = F2 PTR T0302311 A+B A F2 A K=30X COMBINE DIG W/PRIT0302312 N=F2PUTX N = F2 PTR T0302313 A.B F2 BG BG2 ZL IS PUTIX = 2 T0302314+ A+B A K A U YES, A = TT3D T0302315- A+B A K A L8EA NO, A = 3D00 T0302316+ ADD F2 BG F BG2 F = PUTIX + 2 T0302317 RTJ PUT010 J GO TO PUT ROUTINET0302318+ DUN010 J LOOP T0302319 EJECT T0302320 SPACE 3 T0302321 BOX T0302322 T0302323 EOJ T0302324 T0302325 EBOX T0302326- N=F2TTMP$  3xF N = F2 PTR T0302327 A F2 A GATEI N=F2PUTX I = TARGET TEMP T0302328 A.B F2 BG BG2 ZL IS PUTIX = 2 T0302329+ A A A L8EA YES T0302330- K=0FX K = MASK T0302331 A.B A K A A = 000D T0302332 N=F2REG1 N = F2 PTR T0302333 K=10 K = 10 T0302334 ADD+ F2 K F AB = ADDR OF DECAT0302335 READ READ DECA ATTR WOT0302336 B MEM NU TEST SIGN T0302337+ A A K=49X ZL SIGN IS NEG., IS T0302338- K=30X SIGN IS POS. T0302339+ ADD A K A L A = 00DD T0302340- K=7DX K = 7D (MINUS ZERT0302341+ B K A A = 007D T0302342- N=F2REG2 N = F2 PTR T0302343 B F2 F N=F2TARX F = BASE ADDR OF T0302344 ADD+ F F2 F N=F2PUTX F = ADDR LAST WD T0302345 A.B F2 BG BG2 ZL IS PUTIX = 2 T0302346+ A A A L8EA L YES, A = DD00 T0302347- ZERO Q N=FFX NO T0302348+ A.B I N X U X = DD00 T0302349- B F F L AB = ADDR LAST WDT0302350+ A+B A X A L A = DDDD T0302351- READ K=FFX READ LAST WORD OFT0302352+ A.B MEM K Q Q = 00TT T0302353- B F F AB = ADDR LAST WDT0302354 A+B A Q WRITE N=F2PSAV WRITE LAST DIGIT T0302355 DUN090 SUB- F2 MEM P RNI JL P = P+1, GO TO RNT0302356 EJECT T0302357 BOX T0302358*** T0302359* T0302360* SUBROUTINE GENERAL INITIALIZATION T0302361* ********************************* T0302362* T0302363* THIS ROUTINE IS ENTERED AT INI BY LOAD AND PACK WHICH CLEARS T0302364* THE DECIMAL ACCUMULATOR TO ZERO. T0302365* T0302366* STORE AND UNPACK ENTER AT INI010 (WITH THE X-REGISTER EQUAL T0302367* ZERO). THE ADDRESSES CONTAINED IN BOTH R1 AND R2 ARE DECREMENT0302368* BY ONE USING SUB-. THE DECREMENTED ADDRESSES ALLOW INDEXING T0302369* TO TAKE PLACE USING ADD+ INSTEAD OF ADD WHICH PROVIDES FOR T0302370* WRAP-AROUND IN THE CASE ...,FFFE,FFFF,0000,0001,... T0302371* T0302372* THE DIGIT COUNT IS STORED IN THE Q-REGISTER. THE SIGN IS T0302373* CHECKED AND SAVED IN A FILE 2 TEMP. THE DECA INDEX (0..39) T0302374* IS COMPUTED AND CHECKED FOR LEGALITY (Dk  3xZERRORS ARE - DECA INDEX T0302375* LESS THAN ZERO, DECA INDEX GREATER THAN 39, DECA INDEX IN T0302376* CONJUNCTION WITH DIGIT COUNT REQUIRES STORING ACROSS LOWER T0302377* BOUND OF DECA. IF AN ERROR (OR OUT-OF-BOUNDS CONDITION) IS T0302378* DETECTED, THE DIGIT COUNT IS SET ZERO. T0302379* T0302380* THE A-REGISTER IS SET TO A FIELD DIGIT INDEX (0..3) BASED T0302381* ON BYTE ADDRESS AND ODD/EVEN DIGIT COUNT. THE X-REGISTER T0302382* IS SET TO A DECA WORD INDEX (0..9) AND THE P-REGISTER TO T0302383* A DECA DIGIT INDEX (0..3). T0302384* T0302385* THE GENERAL INITIALIZATION ROUTINE THEN RETURNS TEMPORARILY T0302386* TO THE CALLING ROUTINE FOR DISPOSITION OF THE VALUES IN THE T0302387* A, P, AND X REGISTERS. T0302388* T0302389* THE ROUTINE IS RE-ENTERED AT INI030. THE VARIOUS WORD AND T0302390* DIGIT INDICES HAVE NOW BEEN SET BY THE CALLING ROUTINE (AND T0302391* THE N-REGISTER HAS BEEN SET FOR R1). THE FIRST SOURCE WORD T0302392* IS READ AND STORED IN THE I-REGISTER. IF THE FIRST DIGIT T0302393* IS TO BE WRITTEN INTO THE LOWER HALF OF THE FIRST TARGET T0302394* FIELD WORD, THAT WORD IS READ UP, THE LOWER HALF MASKED OFF, T0302395* AND THE RESULT SAVED IN A FILE 2 TEMP (TARGET TEMP). T0302396* T0302397* IF THE DIGIT COUNT EQUALS ZERO, RETURN IS LOWER - OTHERWISE, T0302398* RETURN IS UPPER. (THE N-REGISTER IS SET TO F2PSAV ON EXIT.) T0302399* T0302400*** T0302401 EBOX T0302402 EJECT T0302403 BOX T0302404 T0302405 GENERAL INITIALIZATION T0302406 T0302407 EBOX T0302408+INI N=F2REG2 N = F2 PTR T0302409- B F2 F N=10 SET LOOP COUNT T0302410+ ZERO X WRITE WRITE ZERO TO DECT0302411- ADD+ F ZERO F RPT U REPEAT, SET AB T0302412 SPACE 1 T0302413+INI010 ADD+ X X X N=F2REG1 N = F2 PTR, X = 1T0302414 SUB- F2 X P N=F2REG2 R1 ADDR - 1 T0302415 SUB- F2 X F R2 ADDR - 1 T0302416 A P F F2WR N=F2REG1 SET R2 ADDR - 1 T0302417 ZERO P F2WR N=78X SET R1 ADDR - 1, T0302418 A A K=1FX NU IS BYTE ADDR SPECT0302419+ B BG P BG2 YES, P = 2 T0302420- A.B A K Q Q = DIGIT COUNT T0302421 A.B A N X N=68X ISOLATE SIGN T0302422 EOR X N D  3xn ZL IS SIGN NEGATIVE T0302423+ ZERO F U NO T0302424- B BG F BG8000X YES, SET SIGN BITT0302425+ N=F2SNZ N = F2 PTR T0302426 F2WR N=5 INIT. SIGN/NONZERT0302427 AL0E N=10 LEFT JUSTIFY SCALT0302428 ARSE K=20 SIGN EXTEND SCALET0302429 ADD A K X 20 + S/F T0302430 SUB X Q X K=40 NU X = 20 + S/F - DIT0302431* (X = DECAIX (0.T0302432* (IS DECAIX .LT.T0302433+ ZERO Q INI020 J YES, SET DIGCNT =T0302434- SUB X K F NU IS DECAIX .LT. 40T0302435+ ADD F Q F NU YES, OP CROSS DECT0302436- ZERO Q INI020 J NO, SET DIGCNT = T0302437+ INI020 J NO T0302438- B F F ZL OP STOP AT DECA BT0302439+ ZERO Q NO, SET DIGCNT = T0302440-INI020 A P A LQL IS DIGIT COUNT ODT0302441+ ADD+ A ZERO A A = FLD DIG INX (T0302442- K=3 K = MASK T0302443 A.B X K P P = DECA DIG INX T0302444 B X X RROE DIVIDE BY 2 T0302445 B X X RR0E RU X = DECA WRD INX T0302446* (RETURN) T0302447 EJECT T0302448 SPACE 3 T0302449 BOX T0302450 T0302451 RE-ENTER INITIALIZATION T0302452 T0302453 EBOX T0302454 INI030 ADD+ X F2 F AB = SOURCE ADDR T0302455 ZERO A READ READ 1ST SOURCE WT0302456 A MEM GATEI N=F2TARX I = 1ST SOURCE WOT0302457 B F2 F N=F2PUTX F = TARGET WRD INT0302458 A.B F2 BG BG2 ZL PUTIX = 2 OR 3 T0302459+ N=F2REG2 U YES T0302460- ZERO A INI040 J NO T0302461+ ADD+ F F2 F AB = TARGET ADDR T0302462 READ N=FFX READ 1ST TARGET WT0302463 A.B MEM N A A = TT00 T0302464 INI040 A A F N=F2TTMP N = F2 PTR T0302465 F2WR N=F2PSAV TARGET TEMP = 0 OT0302466 B Q RZL RETURN (LOWER IF T0302467 EJECT T0302468 BOX T0302469*** T0302470* )  3x T0302471* SUBROUTINE GET DIGIT T0302472* ******************** T0302473* T0302474* ON ENTRY, THE GET INDEX IS TESTED FOR FOUR. IF IT IS FOUR T0302475* (FIVE FOR PACK), THEN THE SOURCE FIELD INDEX IS INCREMENTED T0302476* BY ONE, ADDED TO THE SOURCE FIELD BASE ADDRESS, AND THE NEXT T0302477* WORD IS READ FROM THE SOURCE FIELD. GET INDEX IS CLEARED TO T0302478* ZERO (ONE FOR PACK) AND THE SOURCE WORD IS STORED IN THE T0302479* I-REGISTER. T0302480* T0302481* THE DIGIT CORRESPONDING TO THE VALUE OF GET INDEX (0..3) IS T0302482* EXTRACTED FROM THE CURRENT SOURCE WORD IN THE I-REGISTER T0302483* AND PLACED RIGHT-JUSTIFIED WITH LEADING ZEROS IN THE A-REGISTET0302484* GET INDEX IS INCREMENTED BY ONE AND THE NON-ZERO BIT SET IF T0302485* THE DIGIT IS NON-ZERO. GET THEN RETURNS UPPER. T0302486* T0302487*** T0302488 EBOX T0302489 EJECT T0302490 BOX T0302491 T0302492 GET DIGIT T0302493 T0302494 EBOX T0302495+GET N=F2REG1 N = F2 PTR T0302496- A.B P BG BG4 ZL IS GETIX = 4 T0302497* (OR 5 FOR PACK)T0302498+ ADD+ X ZERO X U YES, INCR. SOURCET0302499- GET010 J NO T0302500+ ADD+ F2 X A AB = SOURCE ADDR T0302501 EOR P BG P READ BG4 READ SOURCE WORD,T0302502* (OR GETIX = 1 FT0302503 A MEM GATEI I = CURR. SOURCE T0302504 SPACE 1 T0302505 GET010 A.B P BG BG1 ZL TEST GETIX T0302506+ A I A N=F2SNZ L GETIX = 1,3 T0302507- A I A N=4 GETIX = 0,2 T0302508+ AREA N=F2SNZ RIGHT SHIFT 1 DECT0302509- A.B P BG BG2 ZL TEST GETIX T0302510+ K=0FX U GETIX = 2,3 T0302511- A A A L8EA K=0FX GETIX = 0,1 T0302512+ B F2 F F = SIGN/NONZERO T0302513 A.B A K A ZL A = 000D, IS DIG.T0302514+ A+B F BG F BG2000X DIG. NONZERO, SETT0302515- ADD+ P ZERO P F2WR RU UPDATE GETIX/SNZ,T0302516 EJECT T0302517 BOX T0302518***   3x T0302519* T0302520* SUBROUTINE PUT DIGIT T0302521* ******************** T0302522* T0302523* ON ENTRY, THE A-REGISTER CONTAINS A DIGIT (RIGHT-JUSTIFIED T0302524* WITH LEADING ZEROS) TO BE STORED IN THE TARGET FIELD (EITHER T0302525* A DECIMAL ACCUMULATOR OR A NUMERIC FIELD). T0302526* T0302527* THE DIGIT IS POSITIONED FOR STORING IN A FILE 2 TEMP ACCORDINGT0302528* TO THE PUT INDEX VALUE (0..3). THE DIGIT IS THEN COMBINED T0302529* WITH PRIOR DIGITS AND STORED IN THE TEMP. PUT INDEX IS T0302530* INCREMENTED BY ONE. T0302531* T0302532* AT THIS POINT THE DIGIT COUNT IS DECREMENTED BY ONE, AND THE T0302533* NEW VALUE TESTED FOR ZERO. IF IT IS ZERO, PUT RETURNS LOWER T0302534* (TO THE FIRST INSTRUCTION OF THE CALLING ROUTINES EOJ LOGIC). T0302535* IF IT IS NON-ZERO, PUT INDEX IS TESTED FOR FOUR. IF THE PUT T0302536* INDEX DOES NOT EQUAL FOUR (THEREFORE 1..3), PUT RETURNS UPPER,T0302537* OTHERWISE, PUT INDEX EQUALS 4 WHICH IMPLIES THAT THE TEMP IS T0302538* FILLED UP AND IS READY TO BE WRITTEN TO THE TARGET FIELD. T0302539* T0302540* THE TARGET FIELD INDEX IS ADDED TO THE TARGET FIELD BASE T0302541* ADDRESS AND THE TEMP IS WRITTEN TO THE TARGET FIELD. THE T0302542* TARGET FIELD INDEX IS INCREMENTED BY ONE AND THE TEMP AND T0302543* PUT INDEX CLEARED TO ZERO. T0302544* T0302545* IF NO INTERRUPTS ARE PENDING, PUT RETURNS UPPER. IF INTERRUPTT0302546* ARE PENDING, THE GET INDEX (0..3), SOURCE INDEX, AND SIGN AND T0302547* NON-ZERO BITS ARE SAVED IN R3, AND THE DIGIT COUNT AND TARGET T0302548* INDEX ARE SAVED IN Q-REG. THE A-REGISTER IS SET TO $FFFF, THET0302549* P-REGISTER RESTORED (STILL POINTS TO CURRENT INSTRUCTION), ANDT0302550* THEN PUT EXITS TO THE EMULATOR. T0302551* T0302552* WHEN THE CURRENT INSTRUCTION IS AGAIN STARTED INTO EXECUTION, T0302553* RESUME WILL RESTORE THE FILE 2 TEMPS AND THE REGISTERS. T0302554* T0302555* (PUT010 IS AN ALTERATE ENTRY POINT USED BY UNPACK.) T0302556* T0302557* (TESTING FOR DIGIT COUNT EQUAL TO ZERO PRIOR TO TESTING PUT T0302558* INDEX FOR FOUR INSURES THAT THE LAST DIGITS OF THE FIELD ARE T0302559* IN THE TARGET TEMP WHEN THE CALLING ROUTINES EOJ LOGIC IS ENTT0302560* T0302561*** T0302562 EBOX T0302563 EJECT T0302564 BOX T0302565 T0302566 PUT DIGIT  3x T0302567 T0302568 EBOX T0302569 PUT N=F2PUTX N = F2 PTR T0302570 A.B F2 BG BG2 ZL TEST PUTIX T0302571+ A A F U PUTIX = 2,3 T0302572- A A F L8EA PUTIX = 0,1 T0302573+ A.B F2 BG BG1 ZL TEST PUTIX T0302574+ L PUTIX = 1,3 T0302575- ADD F F F RL0E PUTIX = 0,2 T0302576+ ADD F F F RL0E (LEFT SHIFT DIG. T0302577- N=F2TTMP N = F2 PTR (TARGET0302578 A+B F2 F A N=F2PUTX OR IN NEW DIGIT T0302579 ADD+ F2 ZERO F INCR. PUTIX T0302580 PUT010 A A F F2WR N=F2TTMP UPDATE PUTIX T0302581 F2WR UPDATE TARGET TEMT0302582 B Q F N=F2PUTX DIGCNT TO F T0302583 SUB F BG Q BG1 ZL Q = DIGCNT - 1, (T0302584+ A.B F2 BG BG4 ZL IS PUTIX = 4 T0302585- RL DIGCNT = 0, RETURT0302586+ N=F2REG2 U YES T0302587- RU NO, RETURN T0302588 SPACE 1 T0302589+ B F2 A N=F2TARX A = TARGET BASE AT0302590 ADD+ A F2 A N=F2TTMP AB = TARGET ADDR T0302591 B F2 WRITE N=F2TARX WRITE WORD TO TART0302592 ADD+ F2 ZERO F INCR. TARGET INDET0302593 ZERO F F2WR N=F2TTMP UPDATE TARGET INDT0302594 F2WR N=F2PUTX TARGET TEMP = 0 T0302595 A P F F2WR INTU PUTIX = 0 T0302596* (ANY INTERRUPTST0302597+ ADD F F F RL0E U YES T0302598- RU NO, RETURN T0302599 SPACE 1 T0302600+ ADD F F F RL0E LEFT SHIFT GETIX T0302601 A+B F X F N=F2SNZ COMBINE GETIX ANDT0302602 A+B F F2 F N=F2REG3 AND SIGN/NONZERT0302603 B Q A F2WR N=4 SAVE IN R3-REG T0302604 AL0E N=F2TARX DIGCNT LEFT SHIFTT0302605 A+B A F2 Q SAVE DIGCNT,TARX T0302606 ONE A N=F2PSAV A = FFFF T0302607 B F2 P RNI JL RESTORE P-REG T0302608* (EXIT TO EMULATT0302609 EJECT T0302610 BOX T0302611*** T0302612* T0302613* SUBROUTINE RESUME T0302614* ***************** 9  3x T0302615* T0302616* RESUME DETERMINES IF THE CALLING ROUTINE HAS BEEN INTERRUPTED T0302617* AND IS NOW BEING RESUMED. IF SO, IT RE-INITIALIZES THE REGISTT0302618* AND FILE 2 BEFORE RETURNING TO THE CALLER. T0302619* T0302620* IF THE A-REGISTER EQUALS $FFFF, THE INSTRUCTION IS BEING RESUMT0302621* RESUME RE-INITIALIZES IN THE FOLLOWING WAY - T0302622* T0302623* . TARGET FIELD INDEX RESTORED FROM LOWER 4 BITS OF THE Q-REGT0302624* . PUT INDEX SET ZERO T0302625* . TARGET TEMP SET ZERO T0302626* . DIGIT COUNT RIGHT SHIFTED 4 PLACES IN THE Q-REGISTER T0302627* . SIGN AND NON-ZERO BITS RESTORED FROM BITS 15 AND 13 OF R3 T0302628* . SOURCE INDEX RESTORED FROM LOWER 4 BITS OF R3 T0302629* . GET INDEX RESTORED FROM BITS (6..4) OF R3 T0302630* . SOURCE TEMP RESTORED FROM MAIN MEMORY T0302631* T0302632* RESUME SAVES THE P-REGISTER IN FILE 2. PRIOR TO ENTERING T0302633* RESUME THE P-REGISTER HAS BEEN STORED IN THE F-REGISTER AND T0302634* THE N-REGISTER SET TO F2PSAV. T0302635* T0302636* RESUME RETURNS UPPER IF THE INSTRUCTION IS BEING RESUMED, T0302637* LOWER IF THE INSTRUCTION IS BEING INITIATED. T0302638* T0302639*** T0302640 EBOX T0302641 EJECT T0302642 BOX T0302643 T0302644 RESUME T0302645 T0302646 EBOX T0302647+RES B Q F F2WR SAVE P-REG IN F2 T0302648 -EOR A ZERO K=0FX ZL IS RESUME FLAG SET0302649+ RL NO, RETURN LOWER T0302650- A.B F K F N=F2TARX YES, ISOLATE TAR T0302651 ZERO F F2WR N=F2PUTX SET TARGET FLD INT0302652 F2WR N=F2TTMP PUTIX = 0 T0302653 B Q A F2WR N=4 TARGET TEMP = 0 T0302654 AR0E K=A0X RIGHT JUSTIFY DIGT0302655 A A Q N=F2REG3 Q = DIGIT COUNT T0302656 B F2 A L8EA N=0 A = R3-REG T0302657 A.B A N,K F L8EA N=F2SNZ ISOLATE SIGN/NONZT0302658 F2WR N=0FX RESTORE SIGN/NONZT0302659 A.B A N X L8EA RESTORE SOURCE INT0302660 A A A L8EA N=4 N = SHIFT COUNT T0302661 AR0E K=07X RIGHT JUSTIFY GETT0302662 A.B A K P (  3x P = GETIX T0302663 ZERO F N=F2REG1 N = F2 PTR, (ENABT0302664 ADD+ F2 X F AB = SOURCE FLD AT0302665 READ READ SOURCE WORD T0302666 A MEM GATEI RU RESTORE SOURCE TET0302667* (RETURN) T0302668 EJECT T0302669 BOX T0302670*** T0302671* T0302672* REGISTER COMPARE INSTRUCTIONS T0302673* ***************************** T0302674* T0302675* FUNCTION T0302676* THE REGISTER COMPARE ROUTINE COMPARES TWO REGISTERS AND SETST0302677* A CONDITION CODE. T0302678* T0302679* NARRATIVE T0302680* THE MAGNITUDES OF THE TWO DECIMAL ACCUMULATORS WHOSE ADDRESST0302681* ARE IN R1 AND R2 ARE COMPARED WORD-BY-WORD FROM LEFT TO RIGHT0302682* IF THE MAGNITUDES ARE EQUAL, THE SIGNS ARE COMPARED AND THE T0302683* CONDITION CODE SET. IF THE MAGNITUDES ARE NOT EQUAL, THE TWT0302684* WORDS INVOLVED ARE SUBTRACTED FROM EACH OTHER IN DECIMAL MODT0302685* AND THE SIGN OF THE PERTINENT DECA CHECKED AND THE CONDITIONT0302686* CODE SET. T0302687* T0302688* TRANSFORM TMA/2 IS USED TO BRANCH INTO THE REGISTER COMPARE T0302689* INSTRUCTION TABLE. TMA/2 USES THE IXT REGISTER WHICH CONTAIT0302690* THE LOWER 3 BITS OF THE MACRO INSTRUCTION. T0302691* T0302692* CONDITION CODES ARE - T0302693* FFFE - DECA1 EQUALS DECA2 T0302694* 0000 - DECA1 GREATER THAN DECA2 T0302695* FFFF - DECA1 LESS THAN DECA2 T0302696* T0302697* ENTRY T0302698* R1 - ADDRESS OF DECA1 T0302699* R2 - ADDRESS OF DECA2 T0302700* T0302701* EXIT T0302702* REGISTERS DESTROYED - NONE T0302703* REGISTERS PRESERVED - A, Q, I, R1, R2, R3, R4 T0302704* T0302705*** T0302706 EBOX T0302707 EJECT T0302708 BOX T0302709 T0302710 R E G I S T E R S K I P ( C O M P A R(  3x E ) I N S T R U C T IT0302711 T0302712 EBOX T0302713+DCP N=F2REG1 N = F2 PTR T0302714- B F2 F N=F2REG2 F = DECA1 ADDR T0302715+ SUB- F BG F BG1 F = DECA1 ADDR - T0302716- B F2 X N=10 L X,AB = DECA2 ADDRT0302717+DCP010 DCP020 J DECA1 .NE. DECA2 T0302718- SUB- F MEM F READ READ DECA2 WORD T0302719+ MEM GATEI K=9 I = DECA2 WORD T0302720- SUB- X MEM X READ DECN NZU READ DECA1 WORD T0302721+ DCP030 J MAG. DECA1 .EQ. DT0302722- EOR I MEM DCP010 JZL IS DECA1 WRD = DET0302723+DCP020 A+B SM1 BG SM1 DECARITH SET DECIMAL ARITHT0302724- A.-B SM1 BG SM1 OVERFLOW CLEAR OVERFLOW T0302725+ B F F AB = DECA1 ADDR T0302726- READ READ DECA1 WORD T0302727+ SUB I MEM F DECA2 MINUS DECA1T0302728- SUBT F F1 F ADD CORRECTION T0302729+ A.-B SM1 BG SM1 DECARITH CLEAR DECIMAL ARIT0302730- A.-B SM1 BG SM1 OVERFLOW OVFL CLR/CHK OVERFLOW T0302731+ ONE X N=F2REG2 U MAG. DECA1 .LT. DT0302732- ZERO X N=F2REG1 MAG. DECA1 .GT. DT0302733+ ADD+ F2 K F AB = ADDR OF DECAT0302734- READ READ DECA1/2 ATTRT0302735+ B MEM NU IS SIGN NEGATIVE T0302736+ -B X X YES, REVERSE CONDT0302737- CPAG2 TMA/2 L TRANSFORM TO REG.T0302738+DCP030 N=F2REG1 N = F2 PTR T0302739 ADD+ F2 K F AB = ADDR OF DECAT0302740 READ N=F2REG2 READ DECA1 ATTR. T0302741 A.B MEM BG F BG8000X F = SIGN OF DECA1T0302742 ADD+ F2 K X AB = ADDR OF DECAT0302743 READ K=1 READ DECA2 ATTR. T0302744 A.B MEM BG X BG8000X X = SIGN OF DECA2T0302745 EOR X F N=0 ZL ARE SIGNS THE SAMT0302746+ B F NU NO, IS DECA1 NEGAT0302747- -B N,K X CPAG2 TMA/2 L YES, DECA1 .EQ. DT0302748+ ONE X CPAG2 TMA/2 L YES, DECA1 .LT. DT0302749-DCP099 ZERO X CPAG2 TMA/2 L NO, DECA1 .GT. DET0302750 EJECT T0302751 BOX T0302752 T0302753 REGISTER SKIP (COMPARE) TABLE T0302754 T0302755 CONDITION CODE CONTAINED IN X-REG T0302756 FFFE (DECA1 .EQ. DECA2) T0302757 0000 (DECA1 .GT. DECA2) T0302758 FFFF (DECA1 .LT. DECA2) v  3x T0302759 T0302760 EBOX T0302761 SPACE 2 T0302762 ORG SSKTRTBL T0302763 SPACE 1 T0302764-DEQINSTR SUB- X MEM X CMPNE JNU SKIP IF EQUAL T0302765 SPACE 1 T0302766-DNEINSTR SUB- X MEM X CMPEQ JNU SKIP IF NOT EQUALT0302767 SPACE 1 T0302768-DLEINSTR B X CMPNE JZL SKIP IF LESS OR ET0302769 SPACE 1 T0302770-DLTINSTR -B X CMPEQ JZL SKIP IF LESS THANT0302771 SPACE 1 T0302772-DGEINSTR -B X CMPNE JZL SKIP IF GREATER OT0302773 SPACE 1 T0302774-DGTINSTR B X CMPEQ JZL SKIP IF GREATER TT0302775 SPACE 1 T0302776 ORG DCP099+1 T0302777 EJECT T0302778 BOX T0302779*** T0302780* T0302781* SKIP ON OVERFLOW INSTRUCTION T0302782* **************************** T0302783* T0302784* FUNCTION T0302785* THIS ROUTINE CHECKS A DECIMAL ACCUMULATOR FOR OVERFLOW. T0302786* T0302787* NARRATIVE T0302788* THE OVERFLOW BIT OF THE DECIMAL ACCUMULATOR WHOSE ADDRESS T0302789* IS IN R1 IS TESTED. IF THE OVERFLOW BIT IS ON, ONE T0302790* INSTRUCTION (ONE WORD) IS SKIPPED, OTHERWISE, THE NEXT T0302791* INSTRUCTION IS EXECUTED. T0302792* T0302793* ENTRY T0302794* R1 - ADDRESS OF DECA T0302795* T0302796* EXIT T0302797* REGISTERS DESTROYED - NONE T0302798* REGISTERS PRESERVED - A, Q, I, R1, R2, R3, R4 T0302799* T0302800*** T0302801 EBOX T0302802 EJECT T0302803 BOX T0302804 T0302805 SKIP ON OVERFLOW 0F11 T0302806 =k  3 y T0302807 EBOX T0302808 SPACE 1 T0302809 DOV N=F2REG1 N = F2 PTR T0302810 K=9 K = INDEX TO DECAT0302811 ADD+ F2 K F AB = ADDR. OF DECT0302812 B BG X READ BG4000X READ DECA ATTR. WT0302813 A.B MEM X CMPNE JZL SKIP ON OVFL T0302814 SPACE 2 T0302815 END T0302816 IDENT MICROS E09 M DRVR CCS 3.0 SL-149B3100001* MICRO SUBROUTINES B3100002* CREDIT COLLECTION SYSTEM VERSION 3.0 B3100003* DATA SYSTEMS-LA JOLLA DIVISION, LA JOLLA, CALIFORNIA B3100004* COPYRIGHT CONTROL DATA CORPORATION 1977 B3100005* B3100006* B3100007 ENT MICROS B3100008- RELO CHECKSM PG1-2 LOADER INFO B3100009 CPR 1977 B3100010 SPACE 2 B3100011 BOX B3100012 MICRO-SUBROUTINES B3100013 ----- ----------- B3100014 CALL B3100015 4-REG = ADDRESS OF STARTM B3100016 A-REG = SUBROUTINE INDEX B3100017 O= SPARE B3100018 1= INTERRUPT CP B3100019 2= ACKNOWLEDGE CP INTERRUPT B3100020 3= MASTER CLEAR CP B3100021 4= START CP B3100022 5= SPARE B3100023 6= SPARE B3100024 7= MOVE MAIN MEMORY WORDS B3100025 8= SET UP ROUTINE FOR ADT INTERRUPT B3100026 9 TO 15 = SPARE B3100027 * B3100028 * B3100029 TIMESHARE 3.0 DRIVER ADT INTERRUPT RESPONSE. B3100030 --------- --- ------ --- --------- -------- B3100031 * B3100032 REQUIRED IF DRIVER IS USED FROM BACKGROUND AND B3100033 DATA TRANSFER IS DIRECT TO PAGED MEMORY. B3100034 * B3100035 PROCESSING OF MICRO INTERRUPT INCLUDES B3100036 1. SAVE CURRENT CPU STATE- B3100037 ABSOLUTE, PAGE MODE 0, PAGE MODE 1 B3100038 2. SET ABSOLUTE MODE j  3!y" B3100039 3. PROCESS DATA LIKE THE EMULATOR B3100040 4. RESTORE CPU STATE B3100041 * B3100042 * B3100043 PROGRAM MUST RESIDE WITHIN ONE PAGE BUT LOCATION OF B3100044 STARTM NEED NOT BE AT PAGE LOCATION ZERO. B3100045 LOADER USES FIRST TWO INSTRUCTIONS TO CALCULATE B3100046 LOAD ADDRESS AND LENGTH. LOADER LOADS FROM STARTM B3100047 TO AND INCLUDING ENDM. LOADER RECORDS LOCATION B3100048 OF STARTM FOR USE BY CALLER IN SETTING 4-REG. B3100049 * B3100050 FILE ONE USEAGE B3100051 ---- --- ------ B3100052 WORD 0-24 USED FOR ADT INTERRUPT PROCESSING B3100053 WORD 25 USED BY MOVE SUBROUTINE B3100054 EBOX B3100055 EJECT B3100056 BOX B3100057 EQUIVALENCES B3100058 EBOX B3100059 PAGE EQU AX B3100060 PG1 EQU PAGE*100X B3100061 PAG EQU PG1/100X B3100062 SPACE 1 B3100063* STATUS MODE REGISTER ONE B3100064 NREGTOBG EQU 2 ENABLE N REG TO BIT GENERATOR B3100065 SPACE 1 B3100066* STATUS MODE REGISTER TWO B3100067 ADTLINE EQU 0 ENABLE AUTO DATA TRANSFER B3100068 STROBE EQU 1 STROBE DATA TO/FROM MO5 B3100069 TERMLINE EQU 3 TERMINATE I/O TRANSFER B3100070 SPACE 1 B3100071* STATUS MODE FLAGS B3100072 BGN EQU 0+NREGTOBG ENABLE N REG TO BIT GENERATOR B3100073 SADT EQU 4+ADTLINE ENABLE AUTO DATA TRANSFER B3100074 SSTB EQU 4+STROBE STROBE DATA TO/FROM MO5 DEVICE B3100075 TERM EQU 4+TERMLINE TERMINATE I/O TRANSFER B3100076 SPACE 1 B3100077* FILE 2 REGISTER INDEXES B3100078 F2REG1 EQU 1 1-REG B3100079 F2REG2 EQU 2 2-REG B3100080 F2REG3 EQU 3 3-REG B3100081 F2REG4 EQU 4 4-REG B3100082 F2QSAV EQU 5 SAVE Q B3100083 F2ASAV EQU 6 SAVE A B3100084 F2TATA EQU 17 AUTO DATA TRANSFER TABLE ADDRESS B3100085 F2TABN EQU 18 ADT BLOCK NUMBER IN ADT TABLE B3100086 SPACE 1  3"y6 B3100087* EMULATOR EQUATES B3100088 BG8000X EQU 0 B3100089 BG4000X EQU 1 B3100090 BG2000X EQU 2 B3100091 BG1000X EQU 3 B3100092 BG800X EQU 4 B3100093 BG400X EQU 5 B3100094 BG200X EQU 6 B3100095 BG100X EQU 7 B3100096 BG80X EQU 8 B3100097 BG40X EQU 9 B3100098 BG20X EQU 10 B3100099 BG10X EQU 11 B3100100 BG8 EQU 12 B3100101 BG4 EQU 13 B3100102 BG2 EQU 14 B3100103 BG1 EQU 15 B3100104 BG0 EQU 16 B3100105 RRMASK EQU 18X AQ REPLY/REJECT MASK B3100106 IOWAIT EQU 23 AQ INTERNAL REJECT TIMEOUT B3100107 SPACE 1 B3100108* K/N TRANSFORMS B3100109 S2LSB EQU 0 SELECTOR S2 B3100110 SPACE 1 B3100111* EMULATOR ENTRY POINTS B3100112 INSTRINT EQU 5AX EMULATOR PROCESS B3100113 RNI EQU 3EX B3100114 EJECT B3100115 BOX B3100116 ORG MICRO PROGRAM TO START OF PAGE TO BE B3100117 COMPATABLE WITH LOADER. B3100118 EBOX B3100119 ORG PAGE*100X-2 B3100120+LOADVECTR STARTM J USED BY LOADER B3100121 ENDM J USED BY LOADER B3100122 HEX 00000 PRODUCT ID(NONE) B3100123 SPACE 2 B3100124 ORG PG1 B3100125+STARTM K=OFSET K=START OF JUMP TB3100126- ADD A K X ADD OFSET TO SUBRB3100127+ B X PAG TMA/7 U B3100128+BEGIN RNI JL INDEX= 0 B3100129+ INTCP J INTERRUPT CP 1 B3100130+ ACKCP J ACK CP 2 B3100131+ MCLRCP J CLEAR CP 3 B3100132+ STRTCP J START CP 4 B3100133+ RNI JL 5 B3100134+ RNI   3#yJ JL 6 B3100135+ MOVE J MOVE 7 B3100136+ SETUP J ADT SET UP 8 B3100137+ RNI JL 9 B3100138+ RNI JL 10B3100139+ RNI JL 11B3100140+ RNI JL 12B3100141+ RNI JL 13B3100142+ RNI JL 14B3100143+ RNI JL 15B3100144 PAGENBR EQU BEGIN/256 PAGE NUMBER B3100145 BPAGADD EQU PAGENBR*256 BEGIN ADDRESS OF B3100146 OFSET EQU BEGIN-BPAGADD JMP TABLE OFSET IB3100147 EJECT B3100148 BOX B3100149 TIMESHARE 3.0 HOST RESIDENT COMMUNICATIONS PROCESSOR B3100150 CONTROL ROUTINES B3100151 CAUSE CP INTERRUPT B3100152 ACKNOWLEDGE CP INTERRUPT B3100153 MASTER CLEAR CP B3100154 START CP B3100155 EBOX B3100156 SPACE 4 B3100157 BOX B3100158 CAUSE CP MACRO INTERRUPT VIA SM206 B3100159 EBOX B3100160 SPACE 2 B3100161+INTCP A+B SM2 BG SM2 6 SET SM206 B3100162 A.-B SM2 BG SM2 6 CLEAR SM206 B3100163 3EX JL RETURN B3100164 SPACE 2 B3100165 BOX B3100166 ACKNOWLEDGE CP INTERRUPT VIA SM115 B3100167 EBOX B3100168 SPACE 2 B3100169 ACKCP A.-B SM1 BG SM1 15 RESET SM115 B3100170 3EX JL RETURN B3100171 SPACE 2 B3100172 BOX B3100173 MASTER CLEAR CP VIA SM208 B3100174 EBOX B3100175 SPACE 2 B3100176 MCLRCP A+B SM2 BG SM2 8 SET SM208 B3100177 A.-B SM2 BG SM2 8 RESET SM208 B3100178 3EX JL RETURN B3100179 SPACE 2 B3100180 BOX B3100181 START CP VIA SM208 B3100182 EBOX   3$y^ B3100183 SPACE 2 B3100184 STRTCP A+B SM2 BG SM2 8 SET SM208 B3100185 3EX JL RETURN B3100186 EJECT B3100187 BOX B3100188 MOVE SUBROUTINE B3100189 MOVES DATA IN MAIN MEMORY B3100190 ENTRY B3100191 Q-REG= NUMBER OF WORDS TO MOVE B3100192 1-REG= STARTING SOURCE LOCATION-1 (FWA-1) B3100193 2-REG= STARTING DESTINATION LOCATION-1 (FWA-1) B3100194 EXIT B3100195 REGISTERS 1,2,4,A,Q NOT RESTORED B3100196 EBOX B3100197 SPACE 2 B3100198 SPACE 4 B3100199* INITIAL ENTRY B3100200* SAVE P-REG IN I-REG B3100201* SET N,K TO WORD COUNT FROM Q-REG B3100202* SET SORS TO X-REG FROM 1-REG B3100203* SET DEST TO P-REG FROM 2-REG B3100204* B3100205* IF SORS=DEST, RETURN B3100206* IF DEST HIGHER THAN SORS SET F-REG=-1 TO B3100207* MOVE FROM LAST ADDRESS TO FIRST ADDRESS B3100208* OTHERWISE SET F-REG=+1 TO MOVE FROM FIRST B3100209* ADDRESS TO LAST. B3100210 SPACE 2 B3100211+MOVE B P BG F GATEI BG1 SAVE P, BUMP=+1 B3100212 B Q TK/0 SET N,K TO WORD CB3100213 B Q X L8EA B3100214 B X TN/0 B3100215 N=F2REG1 B3100216 A F2 X N=F2REG2 X-REG= SORS LOCN B3100217 A F2 P P-REG= DEST LOCN B3100218 SUB P X NU UPPER IF DEST .LTB3100219+ MOVELOOP J MOVE START TO ENDB3100220- SUB P X ZL TEST SORS = DEST B3100221+ MOVEHILO J MOVE END TO STARTB3100222-MOVE.END A I P RNI JL DONE ,RESTORE P B3100223 MOVEHILO ADD+ X Q X SORS=LWA+1 B3100224 ADD+ P Q P DEST=LWA+1 B3100225 -B BG F BG1 L BUMP= -1 B3100226 EJECT B3100227* MOVE LOOP B3100228* BUMP SORS AND READ B3100229* BUMP DEST AND WRITE B3100230* DECREMENT AND TEST WORD COUNT +H  3%yr B3100231* TEST FOR INTERRUPT B3100232 SPACE 2 B3100233+MOVE.INT -B INTA A INTEXIT J ALLOW INTERRUPT B3100234-MOVELOOP ADD X F X DECK KZU WORD COUNT - 1 B3100235+ ADD P F P READ DECN NZU READ SORS, CHECK B3100236- ADD P F P READ L B3100237+ MOVE.END J B3100238- A MEM A B3100239+ A A WRITE MOVE.INT JINTU WRITE DEST, CHECKB3100240 SPACE 4 B3100241* EXIT FOR INTERRUPT B3100242* TEMPORARILY SAVE INTERRUPT MASK IN FILE 1 B3100243* SAVE BUMP IN A-REG B3100244* SAVE SORS IN 1-REG B3100245* SAVE DEST IN 2-REG B3100246* SAVE COUNT IN Q-REG B3100247* RESTORE P-REG FROM I-REG B3100248* SET P-REG TO LOCN OF EMS B3100249* SET 4-REG TO LOCN OF INTENT B3100250 SPACE 2 B3100251 INTEXIT B N,K Q SAVE WORD COUNT B3100252 A A F1 K=25 SAV INTRPT MSK B3100253 A F A N=F2REG1 SAVE BUMP B3100254 A X F SAVE SORS B3100255 F2WR N=F2REG2 B3100256 A P F K=INTLSB SAVE DEST B3100257 A I P F2WR N=INTMSB RESTORE P B3100258 SUB P BG P BG1 P=P-1 B3100259 B N,K F SET INTRPT RETURNB3100260 N=F2REG4 B3100261 F2WR PASS INTRPT ADDREB3100262 B F1 F K=25 RESTOR INT MSK B3100263 INSTRINT JU PROCES INTRUPT B3100264 EJECT B3100265* EMS ENTRY AFTER INTERRUPT B3100266* RESTORE BUMP TO F-REG B3100267* RESTORE SORS TO X-REG B3100268* SAVE P-REG IN I B3100269* RESTORE DEST TO P-REG B3100270* RESTORE WORD COUNT TO N,K B3100271 SPACE 2 B3100272+INTENT P GATEI N=F2REG1 SAVE P-REG B3100273 A F2 X N=F2REG2 RESTORE SORS B3100274 A F2 P RESTORE DEST B3100275 B Q TK/0 RESTORE COUNTER B3100276 B Q Q L8EA B3100277 B Q TN/0 B3100278 A A F MOVELOOP  3&y J RESTORE BUMP B3100279 INTMSB EQU INTENT/100X B3100280 INTLSB EQU -INTMSB*100X+INTENT B3100281 EJECT B3100282 BOX B3100283 ADT SETUP SUBROUTINE B3100284 --- ----- ---------- B3100285 CALLED BY EMS INSTRUCTION PRIOR TO DMI B3100286 INSTRUCTION. B3100287 1-REG= ADT TABLE LOCATION B3100288 Q-REG= MICRO INTERRUPT LINE NUMBER B3100289 RETURN B3100290 A-REG= P/MA ADDRESS OF ADT RESPONSE B3100291 ROUTINE WITH BIT 15 SET. B3100292 Q-REG SAVED B3100293 EBOX B3100294 SPACE 2 B3100295* CONVERT LINE NUMBER TO THE ADDRESS OF A TWO B3100296* WORD ENTRY IN FILE 1. (INDEX = LINE NBR * 2) B3100297* STORE ADT TABLE LOCATION IN FILE 1 WORD 1 OF ENTRY. B3100298* CALCULATE ADT INTERRUPT RESPONSE ROUTINE B3100299* ENTRY LOCATION AND RETURN IN A-REG. B3100300* A-REG = LOCN OF INTENT + LINE NBR + BIT 15 B3100301 SPACE 1 B3100302+SETUP B Q X RL0E FILE 1 INDEX B3100303 B X TK/0 SET K =X*2 B3100304 N=F2REG1 READ 1-REG B3100305 A F2 A ADT TABLE LOCN B3100306 A A F1 N=INMSB SAVE TABLE LOCN B3100307 B Q A K=INLSB INT RESP LOCN B3100308 ADD A N,K A ADD LINE NUMBER B3100309 ADD A BG A BG8000X ADD BIT 15 B3100310 RNI JL RETURN B3100311 EJECT B3100312 BOX B3100313 INTERRUPT RESPONSE VECTOR TABLE TO PASS LINE B3100314 NUMBER TO ADT ROUTINE. B3100315 ENTERED AS A RESULT OF ADT MICRO INTERRUPT. B3100316 EBOX B3100317+INENT K=0 K=LINE NBR B3100318 ADT.INTA J B3100319 K=1 B3100320 ADT.INTA J B3100321 K=2 B3100322 ADT.INTA J B3100323 K=3 B3100324 ADT.INTA J B3100325 K=4 B3100326 ADT.INTAC  3'y J B3100327 K=5 B3100328 ADT.INTA J B3100329 K=6 B3100330 ADT.INTA J B3100331 K=7 B3100332 ADT.INTA J B3100333 K=8 B3100334 ADT.INTA J B3100335 K=9 B3100336 ADT.INTA J B3100337 K=10 B3100338 ADT.INTA J B3100339 K=11 B3100340 ADT.INTA J B3100341 INMSB EQU INENT/100X B3100342 INLSB EQU -INMSB*100X+INENT B3100343 EJECT B3100344 BOX B3100345 AUTO DATA TRANSFER B3100346 ---- ---- -------- B3100347 ENTERED FROM VECTOR TABLE INENT WITH K=LINE NUMBER. B3100348 ADT TABLE LOCATION STORED IN FILE 1 IN A TWO WORD B3100349 ENTRY INDEXED BY LINE NUMBER. B3100350 WORD 1= ADT TABLE LOCN B3100351 WORD 2= LOCN TO SAVE CPU ADDRESSING MODE B3100352 EBOX B3100353* SET F TO FILE 1 INDEX - F=K*2 B3100354* SAVE INDEX IN FILE 1 WORD 24 B3100355+ADT.INTA B K F RL0E F1 INDEX=K*2 B3100356 B F F1 K=24 SAVE INDEX B3100357 SPACE 1 B3100358* ENABLE R/W OF PAGE REGISTERS B3100359* READ PAGE ZERO B3100360* SAVE CURRENT STATE IN FILE 1 ENTRY WORD 2 B3100361* SET STATE TO ABSOLUTE B3100362* SET F-REG TO ADT TABLE LOCN B3100363 SPACE 1 B3100364* ZERO GATE/58X ENABLE R/W PAG R B3100365 HEX 58D81058 B3100366 READ READ PAGE REG 0 B3100367 A MEM X B3100368 B F TK/0 SET FILE 1 IDX B3100369 A X F1 INCK SAVE STATE WD 2 B3100370* GATE/54X SET ABS MODE B3100371 HEX 58D83054 B3100372 DECK B3100373 NOP B3100374 B F1 F jS  3(y F=ADT TAB LOCN B3100375 EJECT B3100376 BOX B3100377* B3100378* A U T O D A T A T R A N S F E R M I C R O I N T E R R U P TB3100379* B3100380 EBOX B3100381-ADT.INT A F X READ N=F2TATA READ ADT DEVICE IB3100382 A MEM A SETF/SADT SET THE ADT LINE B3100383 -A.B A BG BG4000X ZL CHECK IF MULTI-AQB3100384+ A A IOA ADT.M05 JNU NO, CHECK IF AQB3100385 SPACE 1 B3100386- ADD F BG Q RTJ ADT.MAQ J MULTIAQ, INC ADT B3100387+ ADT.MDEV J RTN FROM MULTIAB3100388- ZERO F ADT.MDEV J RJT FROM MULTIAB3100389 SPACE 1 B3100390+ADT.M05 -A.B A BG K=BG400X ZL MO5 DEVICE, CHK IB3100391-ADT.SAQ A.B A BG ADT.CHR JZL SINGLE AQ, CK IF B3100392 SPACE 1 B3100393+ ADD+ X BG X ADT.CLK J PROCESS CLOCK U-IB3100394 SPACE 1 B3100395- B INRS F K=1CX L M05 DEVICE, GET DB3100396+ADT.MDEV B Q X K=7CX MULTI AQ, DEVICE B3100397- A.B F K F B3100398 ADD X F X INC TO PROPER ADTB3100399 READ N=F2TABN (SAVE ADT BLOCK B3100400 A MEM A F2WR READ ADT DEVICE IB3100401 A A IOA ADT.SAQ J SET ADR LINES, CHB3100402 SPACE 3 B3100403 ORG A0X+BG4+PG1 B3100404 ADT.MAQ F2WR N=40X SAVE ADT ADR IN FB3100405 A A IOA AQINPOUT J GET MULTIAQ ADT SB3100406 EJECT B3100407 BOX B3100408* B3100409* A U T O - D A T A T R A N S F E R C O N T I N U E D B3100410* B3100411 EBOX B3100412 ORG 80X+BG4000X+PG1 B3100413-ADT.ICHR EOR A BG A WRITE BG1000X L TOGGLE CHARACTER B3100414 SPACE 1 B3100415+ADT.CHR A X X ADT.ICHR J ADT CHARACTER OPEB3100416 SPACE 3 B3100417- ADD+ X BG X BG0 INC TO CURRENT ADB3100418 ADD+ X BG F READ BG0 INC TO LAST WORD B3100419 MEM GATEI I=CURRENT WORD ADB3100420 SPACE 1 B3100421 READ READ LAST WORD ADB3100422 SUB I MEM F N=40X   3)y ZL CHECK IF LWA = CWB3100423+ A.B A BG RTJ ADT.ICWA JZL NO, CHECK IF UPB3100424 SPACE 1 B3100425- A I F SETF/TERM L CWA=LWA, ADDRESS B3100426 SPACE 3 B3100427+ ADD+ I BG F WRITE BG0 INCREMENT CURRENTB3100428- -A.B A BG BG800X ZL CHECK IF A READ OB3100429+ ZERO IOD ADT.CTYP J YES, CHECK I/O B3100430 SPACE 1 B3100431- -A.B A BG READ BG1000X ZL WRITE, CHECK IF UB3100432+ A MEM IOD N=20X L WORD OR LOWER CHAB3100433- A MEM X L8EA UPPER CHAR WRITE B3100434+ A X IOD N=20X B3100435 SPACE 1 B3100436-ADT.CTYP A A ADT.IO JNU CHECK IF AQ OR M0B3100437 SPACE 3 B3100438 ORG C0X+BG1000X+PG1 B3100439+ADT.ICWA ADD+ I BG F BG0 RL UPPER CHAR, DONT B3100440 SPACE 1 B3100441- -EOR F BG BG1 ZL WORD OR LOWER CHAB3100442+ A X X RU NO, INC CWA B3100443- A X X SETF/TERMRU YES, INC CWA + B3100444 EJECT B3100445 BOX B3100446* B3100447* A U T O - D A T A T R A N S F E R C O N T I N U E D B3100448* B3100449 EBOX B3100450 ORG BFX+PG1 B3100451+ADT.IO A F I RTJ M05INOUT J EXECUTE M05 INPUTB3100452 SPACE 1 B3100453- A F I RTJ AQINPOUT J EXECUTE A/Q INPUTB3100454 SPACE 1 B3100455+ A.B X BG BG4 ZL CHK FOR RECEIVE TB3100456- ADT.COMP J NO REPLY, EXIT ADB3100457 SPACE 1 B3100458+ SETF/TERM RTERM SET, SET STB3100459 SPACE 1 B3100460- K=FFX SETUP FOR MEMORY B3100461 A.B F K X X = LOWER CHARACTB3100462 A X Q L8EA ADT.SAB J Q = UPPER CHARACTB3100463 SPACE 3 B3100464 ORG CBX+PG1 B3100465 ADT.SAB A I I RESET AB TO CURREB3100466 A.B A BG BG800X ZL CHECK IF READ OR B3100467+ ADT.CMAQ J WRITE, CHECK IF MB3100468 SPACE 1 B3100469- -A.B A BG BG2000X ZL READ, CHECK IF WOB3100470+ A F WRITE ADT.CMAQy  3*y J YES, WRITE TO MB3100471 SPACE 1 B3100472- A.B A BG BG1000X ZL CHECK IF UPPER CHB3100473+ B Q WRITE ADT.CMAQ J YES, WRITE TO MB3100474 SPACE 1 B3100475- RMW LOWER CHAR, GET UB3100476 A+B MEM X WRITE COMBINE AND WRITEB3100477 SPACE 1 B3100478 ADT.CMAQ -A.B A BG BG4000X ZL CHECK IF MULTI-AQB3100479+ ADT.COMP J NO, COMPLETE ADT B3100480 SPACE 1 B3100481- -A.B SM2 BG TERMLINE ZL CHECK IF SEND TERB3100482+ ADT.COMP J NO, COMPLETE ADT B3100483 EJECT B3100484 BOX B3100485* B3100486* A U T O - D A T A T R A N S F E R C O N T I N U E D B3100487* B3100488 EBOX B3100489* MULTIPLE AQ DEVICE WITH RECEIVE/SEND TERMINATE SET B3100490- N=F2TABN GET ADT BLOCK NUMB3100491 A F2 A N=2 B3100492 AR0E K=FX GET ACTUAL ADT BLB3100493 -A.B A N,K X SETF/BGN (MODULO 16) B3100494 X TN/S2LSB B3100495 B BG X CLRF/BGN X=2**(ADT BLOCK NB3100496 SPACE 1 B3100497 N=F2TATA GET START OF ADT B3100498 A.B A BG BG40X ZL CHECK IF BLOCK NUB3100499+ ADD F2 BG F BG2 U YES, GET NEXT WB3100500- ADD F2 BG F BG1 NO, GET NEXT WB3100501 RMW SET TERMINATE BITB3100502 A+B MEM X WRITE ADT.COMP J PONDING TO BLOCKB3100503 SPACE 3 B3100504 ORG 7FX+PG1 B3100505+ADT.CLK RMW INCREMENT CLOCK CB3100506 ADD+ MEM BG F WRITE BG0 B3100507 ADD+ X BG X BG0 READ UP CLOCK LIMB3100508 READ N=1 B3100509 EOR MEM F ADT.CLKO JZL CHECK IF LIMIT REB3100510 SPACE 3 B3100511 ORG B8X+PG1 B3100512+ADT.CLKO RTJ M05INOUT J CLEAR CLOCK U-INTB3100513- RPT SETF/TERM U LIMIT REACHED, CAB3100514 SPACE 1 B3100515+ADT.COMP N=F2QSAV COMPLETE ADT SEQUB3100516 A F2 Q N=F2ASAV RESTORE Q/A REGB3100517 A F2 A CLRF/TERM CLEAR TERMINATE AB3100518 CLRF/SAD  3+yT LINES AND RETURB3100519 ADT.INTX J B3100520 SPACE 3 B3100521 ORG DFX+PG1 M05 INPUT/OUTPUT B3100522-M05INOUT B INRD F SETF/SSTB SET/CLR STROBE LIB3100523 ZERO X CLRF/SSTBRU (INPUT ANY DATA)B3100524 EJECT B3100525 BOX B3100526 ADT MICRO INTERRUPT RESPONSE EXIT B3100527 EBOX B3100528* GET LINE ENTRY POINTER FROM WORD 24 IN FILE 1. B3100529* GET ENTRY CPU MODE FROM SECOND WORD OF LINE B3100530* ENTRY IN FILE 1. B3100531* BITS 15-14,0=ABS,2=PAGE MODE 1,3=PAGE MODE 2 B3100532* RESTORE ENTRY MODE IF NOT ABSOLUTE. B3100533-ADT.INTX K=24 GET LINE POINTER B3100534 B F1 X B3100535 B X TK/0 SET F1 INDEX B3100536 INCK B3100537 NOP B3100538 B F1 X READ CPU MODE B3100539 A.B X BG BG4000X ZL 0=ABS MODE B3100540+ A.B X BG BG2000X ZL 0=PAG MODE 0 B3100541- ADT.RET J RETURN B3100542* GATE/57X U SET PAGE MODE 1 B3100543+ HEX 58D83057 B3100544* GATE/56X SET PAGE MODE 0 B3100545 HEX 58D83056 B3100546 ADT.RET RNI JL RETURN B3100547 EJECT B3100548 BOX B3100549* B3100550* A Q I N P U T / O U T P U T S U B R O U T I N E B3100551* B3100552* O N E N T R Y , B3100553* N = 4 0 X , I N P U T B3100554* N = 2 0 X , O U T P U T B3100555* B3100556* O N E X I T , B3100557* R E P L Y , I F K = 0 B3100558* I N T E R N A L R E J E C T , I F K.EQ.0 ANB3100559* E X T E R N A L R E J E C T , I F F.NE.0 B3100560* B3100561 EBOX B3100562 ORG 8AX+PG1 B3100563+AQINPOUT A+B SM2 N SM2 K=RRMASK SET READ OR WRITEB3100564 B K X K=IOWAIT L SETUP REJECT/REPLB3100565 SPACE 3 B3100566+ A.-B SM2 N SM2   3,y RL TIMEOUT, INTERNALB3100567 SPACE 3 B3100568-AQRESPON A.B X INRS F DECK ZL CHECK FOR RESPONSB3100569+ -A.B F BG BG10X ZL YES, CHK FOR EXB3100570 SPACE 1 B3100571- ADD F F F AQRESPON JKZU NO RESPONSE, CHK B3100572 SPACE 3 B3100573+ B INRD F K=FFX REPLY, INPUT ANY B3100574 SPACE 1 B3100575- B INRS X INCK SAVE RESPONSE IN B3100576 A.-B SM2 N SM2 RKZU CLEAR READ OR WRIB3100577 CHECKSM HEX 0 LOADER INFO B3100578 SPACE 4 B3100579 ORG PG1+FFX B3100580+ENDM B3100581 END B3100582 FINIS B3100583 MON __mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmۇc  3-zmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3.z&mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmALz,O CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm O1'' ',',',' EMC O0T' ',1,',',' EMC O0T' ',2,',',' EMC O0T' ',3,',',' EMC O0T' ',4,',',' EMC O0T' ',5,',',' EMC O0T' ',6,',',' EMC O0T' ',7,',',' EMC O0T' ',0,',',' EMC IFC =====',EQ,====== VFD N8/4,N2/0,X3/',X3/' VFD N4/',N4/',N8/0 PCO 2 VFD X16/' I0 IFC A,NE,A EIF I5 IFC ',EQ,  3/z: IFC (((((',EQ,(((((( VFD N8/4,N1/1,N1/1,X3/',X3/' I1 IFC A,NE,A EIF VFD X8/4,X1/1,X1/0,X3/',X3/' EIF I1 VFD X4/',X4/' PCO 2 VFD X16/'-*-2 I0 IFC A,NE,A EIF I5 I6 IFC ',EQ,* IFC (((((',EQ,(((((( VFD N8/4,N1/1,N1/1,X3/',X3/' I2 IFC A,NE,A EIF VFD X8/4,X1/1,X1/0,X3/',X3/' EIF I2 IFR '-*,LT,128 IFR '-*,GT,-128 PCO 1 VFD X4/',X4/',X8/'-*-1 I0 IFC A,NE,A EIF I6 I7 IFC ',EQ,+ VFD X8/4,X1/0,X1/1,X3/',X3/' VFD X4/',X4/' PCO 2 IFC (((((',EQ,(((((( VFD N1/1,X15/' I3 IFC A,NE,A EIF VFD X1/0,X15/' EIF I3 I0 IFC A,NE,A EIF I7 I8 IFC ',EQ,- IFR ',LT,256 IFC (((((',EQ,(((((( VFD N8/4,N1/0,N1/1,X3/',X3/'  30zNI4 IFC A,NE,A EIF VFD X8/4,X1/0,X1/0,X3/',X3/' EIF I4 PCO 1 VFD X4/',X4/',X8/' I0 IFC A,NE,A EIF I8 EIF I0 PCO 0 EMC IFR ',LT,16 IFR ',GT,-1 IFR ',GT,0 IFR '+2,GT,' I5 IFC ',EQ, IFC (((((',EQ,(((((( VFD N8/5,N1/1,N1/1,X3/',X3/' I1 IFC A,NE,A EIF VFD N8/5,X1/1,X1/0,X3/',X3/' EIF I1 VFD X4/',X4/'-1 PCO 2 VFD X16/'-*-2 I0 IFC A,NE,A EIF I5 I6 IFC ',EQ,* IFC (((((',EQ,(((((( VFD N8/5,N1/1,N1/1,X3/',X3/' I2 IFC A,NE,A EIF VFD N8/5,X1/1,X1/0,X3/',X3/' EIF I2 IFR '-*,LT,128 IFR '-*,GT,-128 PCO 1 VFD X4/',X4/'-1,X8/'-*-1 I0 IFC A,NE,A  31zb EIF I6 I7 IFC ',EQ,+ VFD N8/5,X1/0,X1/1,X3/',X3/' VFD X4/',X4/'-1 IFC (((((',EQ,(((((( PCO 2 VFD N1/1,X15/' I3 IFC A,NE,A EIF VFD X1/0,X15/' EIF I3 I0 IFC A,NE,A EIF I7 I8 IFC ',EQ,- IFC (((((',EQ,(((((( VFD N8/5,X1/0,X1/1,X3/',X3/' I4 IFC A,NE,A EIF VFD N8/5,X1/0,X1/0,X3/',X3/' EIF I4 VFD X4/',X4/'-1,X8/' I0 IFC A,NE,A EIF I8 EIF I0 PCO 0 EMC VFD X8/',X3/',X2/',X3/' EMC IFR ',LT,16 IFR ',GT,-16 VFD N8/0,X2/',X2/',X4/' EMC O4' ',',' EMC O0OIS ',',',0 EMC O0OIS ',',',1 EMC O0OIS ',',',2 EMC  32zv O0OIS ',',',3 EMC O0OIS ',',',4 EMC O0OIS ',',',5 EMC O0OIS ',',',6 EMC O0OIS ',',',7 EMC O3'' ',',',' EMC O0G' ',',',0,' EMC O0G' ',',',1,' EMC O0G' ',',',2,' EMC O0G' ',',',3,' EMC O0G' ',',',4,' EMC O0G' ',',',5,' EMC O0G' ',',',6,' EMC O0G' ',',',7,' EMC O1'' ',0,',' EMC O1'' ',1,',' EMC O1'' ',2,',' EMC O1'' ',3,',' EMC O1'' ',4,',' EMC O1'' ',5,',' EMC t  33z O1'' ',6,',' EMC O1'' ',7,',' EMC O1'' ',7,5,0 EMC O1'' ',1,5,0 EMC O1'' ',2,5,0 EMC O1'' ',3,5,0 EMC O1'' ',4,5,0 EMC O1'' ',5,5,0 EMC O1'' ',6,5,0 EMC O1'' ',0,5,0 EMC O1'' ',7,8,0 EMC O1'' ',1,8,0 EMC O1'' ',2,8,0 EMC O1'' ',3,8,0 EMC O1'' ',4,8,0 EMC O1'' ',5,8,0 EMC O1'' ',6,8,0 EMC O1'' ',7,9,0 EMC O1'' ',1,9,0 EMC O1'' ',2,9,0 EMC `  34z O1'' ',3,9,0 EMC O1'' ',4,9,0 EMC O1'' ',5,9,0 EMC O1'' ',6,9,0 EMC O1'' ',7,10,0 EMC O1'' ',1,10,0 EMC O1'' ',2,10,0 EMC O1'' ',3,10,0 EMC O1'' ',4,10,0 EMC O1'' ',5,10,0 EMC O1'' ',6,10,0 EMC O1'' ',7,13,0 EMC O1'' ',1,13,0 EMC O1'' ',2,13,0 EMC O1'' ',3,13,0 EMC O1'' ',4,13,0 EMC O1'' ',5,13,0 EMC O1'' ',6,13,0 EMC O1'' ',7,12,0 EMC O1'' ',1,12,0 EMC ?  35z O1'' ',2,12,0 EMC O1'' ',3,12,0 EMC O1'' ',4,12,0 EMC O1'' ',5,12,0 EMC O1'' ',6,12,0 EMC O1'' ',7,12,1 EMC O1'' ',1,12,1 EMC O1'' ',2,12,1 EMC O1'' ',3,12,1 EMC O1'' ',4,12,1 EMC O1'' ',5,12,1 EMC O1'' ',6,12,1 EMC O1'' ',7,14,0 EMC O1'' ',1,14,0 EMC O1'' ',2,14,0 EMC O1'' ',3,14,0 EMC O1'' ',4,14,0 EMC O1'' ',5,14,0 EMC O1'' ',6,14,0 EMC O1'' ',7,10,1 EMC KY  36z O1'' ',1,10,1 EMC O1'' ',2,10,1 EMC O1'' ',3,10,1 EMC O1'' ',4,10,1 EMC O1'' ',5,10,1 EMC O1'' ',6,10,1 EMC O1'' ',7,13,1 EMC O1'' ',1,13,1 EMC O1'' ',2,13,1 EMC O1'' ',3,13,1 EMC O1'' ',4,13,1 EMC O1'' ',5,13,1 EMC O1'' ',6,13,1 EMC 01'' ',1,8,1 EMC O1'' ',2,8,1 EMC O1'' ',3,8,1 EMC O1'' ',4,8,1 EMC O1'' ',5,8,1 EMC O1'' ',6,8,1 EMC O1'' ',7,8,1 EMC   37z O1'' ',1,9,1 EMC O1'' ',2,9,1 EMC O1'' ',3,9,1 EMC O1'' ',4,9,1 EMC O1'' ',5,9,1 EMC O1'' ',6,9,1 EMC O1'' ',7,9,1 EMC O1'' ',1,11,0 EMC O1'' ',2,11,0 EMC O1'' ',3,11,0 EMC O1'' ',4,11,0 EMC O1'' ',5,11,0 EMC O1'' ',6,11,0 EMC O1'' ',7,11,0 EMC O1'' ',1,11,1 EMC O1'' ',2,11,1 EMC O1'' ',3,11,1 EMC O1'' ',4,11,1 EMC O1'' ',5,11,1 EMC O1'' ',6,11,1 EMC 0  38z O1'' ',7,11,1 EMC O1'' ',1,14,1 EMC O1'' ',2,14,1 EMC O1'' ',3,14,1 EMC O1'' ',4,14,1 EMC O1'' ',5,14,1 EMC O1'' ',6,14,1 EMC O1'' ',7,14,1 EMC O2'' ',',14,3 EMC O2'' ',',12,2 EMC O2'' ',',12,3 EMC O2'' ',',14,2 EMC O0OIR 7,0,1,' EMC O0OIR 7,0,2,' EMC O0OIR 7,0,3,' EMC O0OIR 7,0,4,' EMC O0OIR 7,0,5,' EMC O0OIR 7,0,6,' EMC O0OIR 7,0,7,' EMC O0OSRX 0,1,' EMC  39{ O0OSRX 0,2,' EMC O0OSRX 0,3,' EMC O0OSRX 0,0,' EMC O0OSRX 1,1,' EMC O0OSRX 1,2,' EMC O0OSRX 1,3,' EMC O0OSRX 1,0,' EMC O0OSRX 3,1,' EMC O0OSRX 3,2,' EMC O0OSRX 3,3,' EMC O0OSRX 3,0,' EMC O0OSRX 2,1,' EMC O0OSRX 2,2,' EMC O0OSRX 2,3,' EMC O0OSRX 2,0,' EMC O3'' ',',',4 EMC O3'' ',',',5 EMC O3'' ',',',2 EMC O3'' ',',',3 EMC O3'' ',',',6 EMC ސ  3:{ O3'' ',',',7 EMC O0OSB ',1 EMC O0OSB ',2 EMC O0OSB ',3 EMC O0OSB ',4 EMC O0OSB ',5 EMC O0OSB ',6 EMC O0OSB ',7 EMC IFR ',GT,-16 IFR ',LT,16 IFA ',LT,0 VFD X8/6,X3/',X1/0,X4/-' I0 IFC A,NE,A EIF VFD X8/6,X3/',X1/0,X4/' EIF I0 EMC IFC ',EQ, O0EX I0 IFC A,NE,A EIF IFC ',EQ,I O01 7,' I0 IFC A,NE,A EIF IFC ',EQ,A O01 6,' I0 IFC A,NE,A EIF IFC ',EQ,Q O01 5,' 7  3;{*I0 IFC A,NE,A EIF IFA ',GT,4 O0EX I0 IFC A,NE,A EIF IFA ',LT,1 O0EX I0 IFC A,NE,A EIF O01 ',' EIF I0 EMC VFD X8/11,X3/',X1/0,X4/' EMC VFD X8/11,X4/0,X4/4 EMC O00 ',0 EMC O00 ',1 EMC O00 ',2 EMC O00 ',3 EMC O00 ',4 EMC O00 ',5 EMC VFD N8/11,N8/10 EMC VFD N8/11,N8/11 EMC VFD N8/11,N8/12 EMC VFD N8/11,N8/13 EMC VFD N16/0 VFD N16/0,N16/0  3<{> EMC VFD N8/11,N8/8 EMC VFD N8/11,N8/9 EMC VFD X8/11,X4/0,X4/2 PCO 1 VFD X1/0,X15/' PCO 0 EMC VFD X8/11,X4/0,X4/3 PCO 1 VFD X1/0,X15/' PCO 0 EMC VFD N8/11,N8/1 EMC VFD N8/11,N8/7 EMC VFD N8/11,N8/6 EMC VFD N8/11,N8/5 EMC IIN 0 RTJ- ($BB) VOLATILE ASSIGN ADC '+3 LDA* ' STA- 3,I SAVE RETURN EIN 0 EMC IIN 0 LDA- 3,I RETRIEVE RETURN FROM VOLATILE IFC ',NE, INA ' BUMP RETURN BY ' IF SPECIFIED EIF STA' ' RESTORE RETURN ADDRESS $  3={R RTJ- ($BA) RELEASE VOLATILE EIN 0 JMP' (') RETURN EMC EXT HEXDEC RTJ+ HEXDEC HEX TO ASCII DECIMAL CONV. ADC' ' VARIABLE ADDRESS ' ADC' ' BUFFER ADDRESS ' 3 WORDS EMC EXT HEXASC RTJ+ HEXASC HEX TO ASCII CONV. ADC' ' VARIABLE ADDRESS ' ADC' ' BUFFER ADDRESS ' 2 WORDS EMC EXT ENCODE RTJ+ ENCODE ENCODE FOR OUTPUT ADC' ' OUTPUT BUF ADC' ' FORMAT STATEMENT ADC' ' NO VARIABLES ADC' ' VARIABLE LIST IFC ',NE, SAZ 2 JMP ' EIF EMC EXT DECODE RTJ+ DECODE DECODE INPUT ADC' ' INPUT BUFFER ADC' ' GORMAT STATEMENT ADC' ' NUMBER VARIABLES ADC' ' VARIABLE LIST IFC ',NE SAZ 2 JMP ' GO TO ERROR PROCESSOR EIF EMC   3>{f EXT DECHEX RTJ+ DECHEX ADC' ' BUFFER ADDRESS 3 WORDS ADC' ' VARIABLE ADDRESS EMC EXT ASCII RTJ+ ASCII ADC' ' BUFFER ADDRESS 2 WORDS ADC' ' VARIABLE ADDRESS EMC EXT FLOATG RTJ+ FLOATG CONVERT TO S.XXXXXXESNN ADC' ' ADDRESS FLOATING VARIABLE 2 WORDS ADC' ' ADDRESS OUT BUFFER 6 WORDS EMC LDA- $E8 137*A002 IFC ',NE, STA' ' EIF EMC FN' ADC ' MR' ADC ' IFC ',EQ, LU' ADC 8 EIF IFC ',NE, LU' ADC ' EIF RB' BZS RB'(12) RI' BZS RI'(1) NK' ADC ' KL' ADC ' FC' ADC ' RL' ADC ' RP' ADC 0,0 EMC  3?{z EXT DEFFIL RTJ+ DEFFIL DEFINE A FILE ' ADC' FN',MR',LU',RB',RI' EMC EXT DEFIDX RTJ+ DEFIDX DEFINE INDEXED ADC' FN',NK',KL',LU',RB',RI' EMC EXT LOKFIL LDA =X* STA FC' RTJ+ LOKFIL LOCK FILE ' ADC' FN',FC',RB',RI' EMC EXT UNLFIL RTJ+ UNLFIL UNLOCK FILE ' ADC' FN',FC',RB',RI' EMC EXT RELFIL RTJ+ RELFIL RELEASE FILE ' ADC' FN',RB',RI' EMC EXT STOSEQ IFC ',NE, LDA =X' STA RL' EIF RTJ+ STOSEQ STORE IN SEQUENTIAL FILE ' ADC' FN',RP',',RL',RB',RI' EMC EXT RTVSEQ RTJ+ RTVSEQ RETRIEVE FROM SEQUENTIAL ' ADC' FN',FC',RP',',RL',RB',RI' EMC EXT STOIDX RTJ+ STOIDX STORE INDEXED ' ADC' FN',',RP',',RL',RB',RI' EMC EXT RTVIDX RTJ+ RTVIDX RETRIEVE INDEXED ' {  3@{ ADC' FN',',FC',RP',',RL',RB',RI' EMC EXT RTVIDO RTJ+ RTVIDO RETRIEVE INDEXED ORDERED ' ADC' FN',',FC',RP',',RL',RB',RI' EMC EXT STODIR RTJ+ STODIR STORE DIRECT ' ADC' FN',FC',RP',',RB',RI' EMC EXT RTVDIR 85*2670 RTJ+ RTVDIR RETRIEVE DIRECT ' ADC' FN',FC',RP',',RL',RB',RI' EMC LDA RI' STATUS A FILE IFC ',NE, AND' ' MASK STATUS EIF IFC ',NE, SAZ 2 NOTHING TRUE JMP ' JUMP IF ANY SET EIF EMC RTJ- ($F4) IFC ' ,EQ, VFD N1/0,X1/' ,N5/4,N1/0,X4/',X4/' EIF I3 IFC ' ,NE, IFC ' ,EQ,0 VFD N1/0,X1/' ,N5/4,N1/0,X4/',X4/' EIF I3 IFC ' ,NE,0 VFD N1/0,X1/' ,N5/4,N1/1,X4/',X4/' EIF I3 ADC ',0 I1 IFC ',NE,B IFC ' ,EQ,R VFD N3/0,N1/1,N2/1,X10/' EIF Z}  3A{I1 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/1,N2/2,X10/' EIF I1 IFC ' ,NE,I VFD N3/0,N1/1,N2/0,X10/' EIF I1 I2 IFC ',EQ,B IFC ' ,EQ,R VFD N3/0,N1/0,N2/1,X10/' EIF I2 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/0,N2/2,X10/' EIF I2 IFC ' ,NE,I VFD N3/0,N1/0,N2/0,X10/' EIF I2 ADC ',' EMC RTJ- ($F4) IFC ' ,EQ, VFD N1/0,X1/' ,N5/6,N1/0,X4/',X4/' EIF I3 IFC ' ,NE, IFC ' ,EQ,0 VFD N1/0,X1/' ,N5/6,N1/0,X4/',X4/' EIF I3 IFC ' ,NE,0 VFD N1/0,X1/' ,N5/6,N1/1,X4/',X4/' EIF I3 ADC ',0 I1 IFC ',NE,B IFC ' ,EQ,R VFD N3/0,N1/1,N2/1,X10/' EIF I1 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/1,N2/2,X10/' EIF ~  3B{I1 IFC ' ,NE,I VFD N3/0,N1/1,N2/0,X10/' EIF I1 I2 IFC ',EQ,B IFC ' ,EQ,R VFD N3/0,N1/0,N2/1,X10/' EIF I2 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/0,N2/2,X10/' EIF I2 IFC ' ,NE,I VFD N3/0,N1/0,N2/0,X10/' EIF I2 ADC ',' EMC RTJ- ($F4) IFC ',EQ, VFD N1/0,X1/',N5/3,N1/0,N8/0 EIF I3 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/',N5/3,N1/0,N8/0 EIF I3 IFC ',NE,0 VFD N1/0,X1/',N5/3,N1/1,N8/0 EIF I3 IFC ',EQ,R VFD N4/0,N2/1,X10/' EIF I1 IFC ',NE,R IFC ',EQ,I VFD N4/0,N2/2,X10/' EIF I1 IFC ',NE,I VFD N4/0,N2/0,X10/' EIF I1 ADC ' EMC l  3C{ RTJ- ($F4) IFC ' ,EQ, VFD N1/0,X1/' ,N5/1,N1/0,X4/',X4/' EIF I3 IFC ' ,NE, IFC ' ,EQ,0 VFD N1/0,X1/' ,N5/1,N1/0,X4/',X4/' EIF I3 IFC ' ,NE,0 VFD N1/0,X1/' ,N5/1,N1/1,X4/',X4/' EIF I3 ADC ',0 I1 IFC ',NE,B IFC ' ,EQ,R VFD N3/0,N1/1,N2/1,X10/' EIF I1 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/1,N2/2,X10/' EIF I1 IFC ' ,NE,I VFD N3/0,N1/1,N2/0,X10/' EIF I1 I2 IFC ',EQ,B IFC ' ,EQ,R VFD N3/0,N1/0,N2/1,X10/' EIF I2 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/0,N2/2,X10/' EIF I2 IFC ' ,NE,I VFD N3/0,N1/0,N2/0,X10/' EIF I2 ADC ',' EMC RTJ- ($F4) IFC ' ,EQ, VFD N1/0,X1/' ,N5/2,N1/0,X4/',X4/' EIF C  3D{I3 IFC ' ,NE, IFC ' ,EQ,0 VFD N1/0,X1/' ,N5/2,N1/0,X4/',X4/' EIF I3 IFC ' ,NE,0 VFD N1/0,X1/' ,N5/2,N1/1,X4/',X4/' EIF I3 ADC ',0 I1 IFC ',NE,B IFC ' ,EQ,R VFD N3/0,N1/1,N2/1,X10/' EIF I1 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/1,N2/2,X10/' EIF I1 IFC ' ,NE,I VFD N3/0,N1/1,N2/0,X10/' EIF I1 I2 IFC ',EQ,B IFC ' ,EQ,R VFD N3/0,N1/0,N2/1,X10/' EIF I2 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/0,N2/2,X10/' EIF I2 IFC ' ,NE,I VFD N3/0,N1/0,N2/0,X10/' EIF I2 ADC ',' EMC RTJ- ($F4) IFC ',EQ,1 VFD N2/0,N5/16,N8/0 ADC ' EIF 0 81*2071 IFC ',NE,1 81*2071 ADC (') 81*2071 EIF 0 81*2071=  3E{ EMC RTJ- ($F4) VFD N1/0,N6/5,N1/0,N8/0 EMC RTJ- ($F4) VFD N1/0,N6/11,N1/0,N8/0 EMC RTJ- ($F4) VFD N1/0,N6/7,N1/0,N8/0 EMC RTJ- ($F4) VFD N2/0,N5/19,N1/0,N4/15,N4/15 ADC ' EMC RTJ- ($F4) VFD N2/0,N5/19,N1/0,N4/0,N4/0 ADC ' EMC RTJ- ($F4) IFC ',EQ, VFD N1/0,X1/',N5/9,N1/0,N4/0,X4/' EIF I3 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/',N5/9,N1/0,N4/0,X4/' EIF I3 IFC ',NE,0 VFD N1/0,X1/',N5/9,N1/1,N4/0,X4/' EIF I3 ADC ' EMC RTJ- ($F4) IFC ',EQ, VFD N2/0,N5/15,N1/0,X4/',X4/' EIF N  3F|I3 IFC ',NE, IFC ',EQ,0 VFD N2/0,N5/15,N1/0,X4/',X4/' EIF I3 IFC ',NE,0 VFD N2/0,N5/15,N1/0,X4/',X4/' EIF I3 ADC ',' EMC RTJ- ($F4) IFC ',EQ, VFD N1/0,X1/',N5/8,N1/0,X4/',X4/' EIF I3 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/',N5/8,N1/0,X4/',X4/' EIF I3 IFC ',NE,0 VFD N1/0,X1/',N5/8,N1/1,X4/',X4/' EIF I3 ADC ',' EMC RTJ- ($F4) IFC ',EQ, VFD N1/0,X1/' ,N5/13,N1/0,X4/',X4/' EIF I3 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/' ,N5/13,N1/0,X4/',X4/' EIF I3 IFC ',NE,0 VFD N1/0,X1/' ,N5/13,N1/1,X4/',X4/' EIF I3 ADC ',0 ADC $8C2,',' ADC ',' EMC uW  3G| RTJ- ($F4) IFC ',EQ, VFD N1/0,X1/',N5/10,N1/0,X4/',X4/' EIF I3 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/',N5/10,N1/0,X4/',X4/' EIF I3 IFC ',NE,0 VFD N1/0,X1/',N5/10,N1/1,X4/',X4/' EIF I3 ADC ',0,0,' EMC RTJ- ($F4) I1 IFC ',EQ, IFC ',EQ, VFD N1/0,X1/',N5/12,N9/0 EIF I1 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/',N5/12,N9/0 EIF I1 IFC ',NE,0 VFD N1/0,X1/',N5/12,N8/0,N1/1 EIF I1 I2 IFC ',NE, I1 IFC ',EQ,0 IFC ',EQ, VFD N1/0,X1/',N5/12,N9/0 EIF I1 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/',N5/12,N9/0 EIF I1 IFC ',NE,0 VFD N1/0,X1/',N5/12,N8/0,N1/1 EIF I1 I2 IFC ',NE,0 IFC ',EQ, '  3H|. VFD N1/0,X1/',N5/12,N1/1,N8/0 EIF I2 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/',N5/12,N1/1,N8/0 EIF I2 IFC ',NE,0 VFD N1/0,X1/',N5/12,N1/1,N7/0,N1/1 EIF I2 ADC ' EMC RTJ- ($F4) IFC ',EQ, VFD N1/0,X1/',N5/17,N1/0,X4/',X4/' EIF I3 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/',N5/17,N1/0,X4/',X4/' EIF I3 IFC ',NE,0 VFD N1/0,X1/',N5/17,N1/1,X4/',X4/' EIF I3 ADC ',0,0,',' EMC RTJ- ($F4) IFC ' ,EQ, VFD N1/0,X1/' ,N5/14,N1/0,X4/',X4/' EIF I3 IFC ' ,NE, IFC ' ,EQ,0 VFD N1/0,X1/' ,N5/14,N1/0,X4/',X4/' EIF I3 IFC ' ,NE,0 VFD N1/0,X1/' ,N5/14,N1/1,X4/',X4/' EIF I3 ADC ',0 I1 IFC ' ,NE,B IFC ' ,EQ,R Un  3I|B VFD N3/0,N1/1,N2/1,X10/' EIF I1 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/1,N2/2,X10/' EIF I1 IFC ' ,NE,I VFD N3/0,N1/1,N2/0,X10/' EIF I1 I2 IFC ' ,EQ,B IFC ' ,EQ,R VFD N3/0,N1/0,N2/1,X10/' EIF I2 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/0,N2/2,X10/' EIF I2 IFC ' ,NE,I VFD N3/0,N1/0,N2/0,X10/' EIF I2 IFC ',NE,R VFD X4/',X4/',X4/',X4/' EIF IFC ',EQ,R VFD N1/1,X3/',X12/' EIF EMC RTJ- ($F4) VFD N2/0,N5/18,N5/0,X4/' ADC ' EMC NLS IFC ',NE, EQU ' (') EIF 0 IFC ',EQ, IS THERE A PRIORITY EQU ' (0) NO EIF 0 IFC ',NE, i  3J|V EQU ' (') REPEAT MANY TIMES EIF 0 IFC ',EQ, EQU ' (1) REPEAT ONLY ONE TIME EIF 0 EQU ' ('*$1000+' ) SET UP NUM OF TIMES REPEATED IFC ',EQ, NO COMPLETION EQU ' (' *16+' +$5C00) EIF 0 C0 IFC ',NE, COMPLETION YES 88*2712 IFC ',EQ,* RELATIVE COMPLETION EQU ' (' *16+' +$1D00) 81*205 EIF 0 IFC ',EQ, ABS COMPLETION EQU ' (' *16+' +$5C00) EIF 0 EIF C0 88*2712 LST RTJ- ($F4) ADC ' NLS IFC ',EQ, LST ADC 0 COMPLETION NLS EIF 0 C1 IFC ',NE, IS THERE A COMPLETION ADDRESS 88*2712C2 IFC ',EQ,* IS IT RELATIVE 88*2712 LST ADC '-*+1 COMPLETION NLS EIF C2 88*2712C3 IFC ',EQ, 137*4266 LST ADC ' COMPLETION NLS EIF C3 88*2712 EIF C1 88*2712 LST NUM 0 THREAD (  3K|j NLS IFC ',EQ, IT IS THE LOGICAL UNIT LST ADC $0000+' NLS EIF 0 IFC ',EQ,R A RELATIVE DISTANCE LST VFD N6/1,X10/'-*+3 RELATIVE NLS EIF 0 IFC ',EQ,I A ABS CORE LOCATION LST VFD N6/2,X10/' ABS CORE LOCATION NLS EIF 0 LST ADC (' ) REPEAT TIMES N EMC NLS MOT' ',',',',',1 EMC NLS MOT' ',',',',',2 EMC NLS MOT' ',',',',',3 EMC NLS MOT' ',',',',',4 EMC NLS MOT' ',',',',',5 EMC }5  3L|~ NLS MOT' ',',',',',6 EMC NLS MOT' ',',',',',7 EMC LST JMP- ($EA) EMC SPC 1 EXT ISBUFR,CBWRIT,CBREAD,BOUTC SPC 1 NUM $520A 00 SCHEDULER CALL ADC ISBUFR 01 INITIATOR ADDRESS ADC 0 02 CONTINUATOR ADDRESS - NOT USED ADC 0 03 TIMEOUT ERROR ADDRESS - NOT USED NUM -1 04 DIAGNOSTIC CLOCK - NOT USED NUM 0 05 LOGICAL UNIT ADC 0 06 PARAMETER LOCATION NUM 0 07 CONVERTER, EQUIPMENT, STATION - NONE NUM $00A4 08 REQUEST STATUS NUM 0 09 DRIVER STATUS NUM 0 10 CURRENT LOCATION NUM 0 11 LAST LOCATION PLUS ONE NUM 0 12 DEVICE STATUS - NOT USED NUM 0 13 RESERVED NUM $7FFF 14 RESERVED NUM 0 15 RESERVED FOR FNR AND CMR ADC ' 16 LSB START OF BUFFER ADC ' 17 LSB END OF BUFFER ADC ' 18 CURRENT LSB START OF BUFFER ADC ' 19 CURRENT LSB END OF BUFFER NUM $44AA 20 MASS MEMORY WRITE REQUEST (UNFORMATTED) ADC CBWRIT 21 MASS MEMORY WRITE COMPLETION NUM 0 22 THREAD ADC ' 23 MASS MEMORY LOGICAL UNIT NUM 0 24 NUMBER OF WORDS   3M| NUM 0 25 STARTING DATA LOCATION ADC ' 26 MSB ADDRESS ADC ' 27 LSB ADDRESS NUM 0 28 CONTROL WORD NUM $42AA 29 MASS MEMORY READ REQUEST (UNFORMATTED) ADC CBREAD 30 MASS MEMORY READ COMPLETION NUM 0 31 THREAD ADC ' 32 MASS MEMORY LOGICAL UNIT NUM 0 33 NUMBER OF WORDS ADC ' 34 STARTING LOCATION (CHARACTER BUFFER) ADC ' 35 MSB ADDRESS ADC ' 36 LSB ADDRESS NUM 0 37 PARTIAL WORD OUTPUT FLAG NUM $4CAA 38 BUFFER WRITE REQUEST (FORMATTED) ADC BOUTC 39 BUFFER WRITE COMPLETION NUM 0 40 THREAD ADC ' 41 OUTPUT LOGICAL UNIT NUM 0 42 NUMBER OF WORDS ADC ' 43 STARTING LOCATION (CHARACTER BUFFER) ADC ' 44 CHARACTER BUFFER SIZE BZS '(') 45 CHARACTER BUFFER EMC O0S O11 `O12 O13  O14 O1Q O1A @O1I O1 O0T `O0G O0OIS O0OSRX O0OIR O4 @O41 O42 O43 `O44 O4Q  O4A O4I O0F @O3 O31 O32 `O33 O34  O3Q O3A O3I  @O2  O21 !O22 !`O23 !O24 " O2Q "O2A "O2I #@SJI #SJ1 $SJ2 $`SJ3 $SJ4 % SJQ %SJA %SJE &@ARI &AR1 'AR2 '`AR3 'AR4 ( ARQ (ARA (SBI )@SB1 )SB2 *SB3 *`SB4 *SBQ + SBA +ANI +AN1 ,@AN2 ,AN3 -AN4 -`ANQ -ANA . ORI .OR1 .OR2 /@OR3 /OR4 0ORQ 0`ORA 0LRI 1 LR1 1LR2 1LR3 2@LR4 2LRQ 3LRA 3`SRI 3SR1 4 SR2 4SR3 4SR4 5@SRQ 5SRA 6CIE 6`C1E 6C2E 7 C3E 7C4E 7CQE 8@CAE 8AMI 9AM1 9`AM2 9AM3 : AM4 :AMQ :AMA ;@OMI ;OM1 <OM2 <`OM3 @AS2 >AS3 ?AS4 ?`ASQ ?ASA @ ASI @SM1 @SM2 A@SM3 ASM4 BSMQ B`SMA BSMI C ER1 CER2 CER3 D@ER4 D]  3N|ERQ EERA E`ERI EEM1 F EM2 FEM3 FEM4 G@EMQ GEMA HEMI H`C1N HC2N I C3N IC4N ICQN J@CAN JCIN KCCN K`LCA KSCA L CCE LXF1 LXF2 M@XF3 MXF4 NXFQ N`XFA NXFI O S1Z OS2Z OS3Z P@S4Z PS1N QS2N Q`S3N QS4N R S1M RS2M RS3M S@S4M SS1P TS2P T`S3P TS4P U LFA USFA USFZ V@SFN VCLF WSEF W`D1P WD2P X D3P XD4P XDQP Y@DAP YDIP ZO0OSB Z`O00 \@O01 aSIO aLUB b@LLB bEMS cWPR c`RPR cECC d ASC dAPM dPM0 e@PM1 eO0EX fGPE fGPO g LRG gSRG hLMM iCBP j DMI jSPS jVOLA k@VOLR lHEXDECnHEXASCoENCODEpDECODEs DECHEXu`ASCII vFLOATGwCLOCK xFLDF yDEFFIL|DEFIDX}LOKFIL~`UNLFILRELFIL@STOSEQRTVSEQSTOIDX@RTVIDXRTVIDOSTODIRRTVDIR@STATFLFREAD FWRITE STATUS`READ WRITE INDIR `EXIT @CORE LOADERDISCHDENSCHD@SCHDLETIMPT1TIMER @GTFILE SPACE RELEASPTNCOR MOTION @SYSCHD MOT BSR ڠEOF `REW  UNL ADF ݠBSF `ADR  DISP ཪFFERGTFILE SPACE RELEASPTNCOR MOTION @SYSCHD MOT BSR ڠEOF `REW  __mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmAL|O CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm*JOB 00010*CTO,...FILE: CCSOS1.N 00020*CTO,OPERATING SYSTEM PART 1 SKELETON GENERATION 00030*OPEN,FN=CCSSK.C,OW=CCS20,VL=SOURCE,LU=20,R 00040*OPEN,FN=MASTER.K,OW=CCS20,VL=SYSVOL,LU=21,A K  3O| 00050*BSR,21,2 00060*K,I13 00070*COSY 00080CCSOS1 DCK/ I=20,H=21 00090 END/ 00100*CTO,PART 1 SKELETON TO FILE MASTER.K COMPLETE. 00110_ mmmmmmmmAL |O CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm   3P|*JOB 00010*CTO,...FILE: CCSOS2.N 00020*CTO,OPERATING SYSTEM PART 2 SKELETON GENERATION 00030*OPEN,FN=CCSSK.C,OW=CCS20,VL=SOURCE,LU=20,R 00040*OPEN,FN=MASTER.K,OW=CCS20,VL=SYSVOL,LU=21,A 00050*BSR,21,2 00060*K,I13 00070*COSY 00080CCSOS2 DCK/ I=20,H=21 00090 END/ 00100*CTO,PART 2 SKELETON TO FILE MASTER.K COMPLETE. 00110_ mmmmmmmmmmmmmmmmmmmmmmmmmmmmAL |O CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm*JOB 00010*CTO,...FILE: CCSFTN.N 00020*CTO,FORTRAN COMPILER SKELETON GENERATION. 00030*OPEN,FN=CCSSK.C,OW=CCS20,VL=SOURCE,LU=20,R 00040*OPEN,FN=MASTER.K,OW=CCS20,VL=SYSVOL,LU=21,A 00050*BSR,21,2 00060*K,I13 00070*COSY 00080CCSFTN DCK/ I=20,H=21 00090 END/ 00100*CTO,FORTRAN COMPILER SKELETON TO FILE MASTER.K COMPLETE. 00110_ 2  3Q| mmmmmmmmmmmmmmmmmmmmmmmmmmmmAL |O CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm*JOB 00010*CTO,...FILE: CCSRPG.N 00020*CTO,RPG COMPILER SKELETON GENERATION. 00030*OPEN,FN=CCSSK.C,OW=CCS20,VL=SOURCE,LU=20,R 00040*OPEN,FN=MASTER.K,OW=CCS20,VL=SYSVOL,LU=21,A 00050*BSR,21,2 00060*K,I13 00070*COSY 00080CCSRPG DCK/ I=20,H=21 00090 END/ 00100*CTO,RPG COMPILER SKELETON TO FILE MASTER.K COMPLETE. 00110_ mmmmmmmmmmmmmmmmmmmmmmmmmmmmAL |O CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm*JOB 00010*CTO,...FILE: CCSAP.N 00020*CTO,CCS APPLICATION SKELETON GENERATION. 00030*OPEN,FN=CCSSK.C,OW=CCS20,VL=SOURCE,LU=20,R 00040*OPEN,FN=MASTER.K,OW=CCS20,VL=SYSVOL,LU=21,A 00050*BSR,21,2 00060*K,I13 00070*COSY 00080CCSAP DCK/ I=20,H=21 00090 END/ >  3R| 00100*CTO,CCS APPLICATION SKELETON TO FILE MASTER.K COMPLETE. 00110_ mmmmmmmmmmmmmmmmmmmmmmmmmmmmAL |O CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm*JOB 00010*CTO,...FILE: LAAP.N 00020*CTO,LEGAL AND AGENCY SKELETON GENERATION. 00030*OPEN,FN=CCSSK.C,OW=CCS20,VL=SOURCE,LU=20,R 00040*OPEN,FN=MASTER.K,OW=CCS20,VL=SYSVOL,LU=21,A 00050*BSR,21,2 00060*K,I13 00070*COSY 00080LAAP DCK/ I=20,H=21 00090 END/ 00100*CTO,LEGAL AND AGENCY SKELETON TO FILE MASTER.K COMPLETE. 00110_ mmmmmmmmmmmmmmmmmmmmmmmmmmmmAL~} O CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm{  3S} *JOB 00010*CTO,...FILE: MERGE1.J 00020*CTO, LOAD ALL BINARY FILES INTO MASTER BINARY FILE(MASTER.B). 00030*OPEN,FN=MASTER.B,OW=CCS20,VL=SYSVOL,LU=20,W 00040*CTO,... 00050*CTO,MOUNT 'MICRO PROGRAM BINARIES' TAPE ON UNIT 0. 00060*PAUS 00070*LIBEDT 00080*T,6,B,20,B,,1 00090*Z 00100*CLOSE 00110*OPEN,FN=MASTER.B,OW=CCS20,VL=SYSVOL,LU=20,A 00120*OPEN,FN=CCSMSO.B,OW=CCS20,VL=SOURCE,LU=21,R 00130*OPEN,FN=CCSITO.B,OW=CCS20,VL=SOURCE,LU=22,R 00140*OPEN,FN=CCSDVR.B,OW=CCS20,VL=SOURCE,LU=23,R 00150*OPEN,FN=CCSASM.B,OW=CCS20,VL=SOURCE,LU=24,R 00160*OPEN,FN=CCSFTN.B,OW=CCS20,VL=SOURCE,LU=25,R 00170*BSR,20,1 00180*LIBEDT 00190*T,21,B,20,B,,1 00200*Z 00210*CTO, CCSMSO.B TRANSFERED. 00220*BSR,20,1 00230*LIBEDT 00240*T,22,B,20,B,,1 00250*Z 00260*CTO, CCSITO.B TRANSFERED. 00270*BSR,20,1 00280*LIBEDT 00290*T,23,B,20,B,,1 00300*Z 00310*CTO, CCSDVR.B TRANSFERED. 00320*BSR,20,1 00330*LIBEDT 00340*T,24,B,20,B,,1 00350*Z 00360*CTO, CCSASM.B TRANSFERED. 00370*BSR,20,1 00380*LIBEDT 00390*T,25,B,20,B,,1 00400*Z 00410*CTO, CCSFTN.B TRANSFERED. 00420*CLOSE 00430*OPEN,FN=MASTER.B,OW=CCS20,VL=SYSVOL,LU=20,A 00440*OPEN,FN=CCSAPF.B,OW=CCS20,VL=SOURCE,LU=21,R 00450*OPEN,FN=CCSAPR.B,OW=CCS20,VL=SOURCE,LU=22,R 00460*BSR,20,1 00470*LIBEDT 00480  3T}*T,21,B,20,B,,1 00490*Z 00500*CTO, CCSAPF.B TRANSFERED. 00510*BSR,20,1 00520*LIBEDT 00530*T,22,B,20,B,,1 00540*Z 00550*CTO, CCSAPR.B TRANSFERED. 00560*CTO,... 00570*CTO,LOAD OF 'MASTER.B' FILE COMPLETE. 00580_ }]  3U}2 t  3V}F t  3W}Z t  3X}n t  3Y} AL~}O CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm*JOB 00010*CTO,...FILE: MERGE2.J 00020*CTO, LOAD ALL BINARY FILES INTO MASTER BINARY FILE(MASTER.B). 00030*OPEN,FN=MASTER.B,OW=CCS20,VL=SYSVOL,LU=20,W 00040*OPEN,FN=CCSITO.B,OW=CCS20,VL=SOURCE,LU=21,R 00050*OPEN,FN=CCSFTN.B,OW=CCS20,VL=SOURCE,LU=22,R 00060*LIBEDT 00070*T,21,B,20,B,,1 00080*Z 00090*CTO, CCSITO.B TRANSFERED. 00100*BSR,20,1 00110*LIBEDT 00120*T,22,B,20,B,,1 00130*Z 00140*CTO, CCSFTN.B TRANSFERED. 00150*CLOSE 00160*OPEN,FN=MASTER.B,OW=CCS20,VL=SYSVOL,LU=20,A 00170*OPEN,FN=CCSRPG.B,OW=CCS20,VL=SOURCE,LU=21,R 00180*OPEN,FN=CCSAPF.B,OW=CCS20,VL=SOURCE,LU=22,R 00190*OPEN,FN=CCSAPR.B,OW=CCS20,VL=SOURCE,LU=23,R 00200*OPEN,FN=LAAPF.B,OW=CCS20,VL=SOURCE,LU=24,R 00210*OPEN,FN=LAAPR.B,OW=CCS20,VL=SOURCE,LU=25,R 00220*BSR,20,1 00230*LIBEDT 00240*T,21,B,20,B,,1 00250*Z 00260*CTO, CCSRPG.B TRANSFERED. 00270*BSR,20,1 00280*LIBEDT 00290*T,22,B,20,B,,1 00300*Z 00310*CTO, CCSAPF.B TRANSFERED. 00320*BSR,20,1 00330*LIBEDT z  3Z} 00340*T,23,B,20,B,,1 00350*Z 00360*CTO, CCSAPR.B TRANSFERED. 00370*BSR,20,1 00380*LIBEDT 00390*T,24,B,20,B,,1 00400*Z 00410*CTO, LAAPF.B TRANSFERED. 00420*BSR,20,1 00430*LIBEDT 00440*T,25,B,20,B,,1 00450*Z 00460*CTO, LAAPR.B TRANSFERED. 00470*CTO,... 00480*CTO,LOAD OF 'MASTER.B' FILE COMPLETE. 00490_ =  3[} tN  3\} t9  3]} t$  3^} t  3_} AL ~O CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm*N,CPFILE,,,B @ d p"L"VF6"`"j"t8"~"""  < um .u   !"@  ' 'f l b TA 'l l  'TT  h l T6:l   h l TFl   h l TRl    h l T[ l  5 h l T[ l 5! T h l TGfl T @ Da     `  hA@b b `*/f b`"f h$#`   f s  3`~` 0 f ؽ̼h ` ش `  f@  ( b  b  f @  !@  n!@ !@ i*@ i*@ @ @ @ d@$Tm dT!~}LQP@ h@T6     hEHEhA=hA : 7 DX-p d 0 d " z"6 d   ""&"DX z X d  zo  d %  "^dTi XY d  zADXI z6f H{"d60^ d VVk   - m  d"; T? bb H~h 4 4 W W W db0T _VVQ d "L b "hD>b)*71 b "h.) b)*  &h   b{  "  @ @!WCOPYRIGHT CONTROL DATA CORP. 1975,1976EyuFGDU  3a~"rUj\HWT A A @ @@ =}? HOST DOWN..] HOST UP..] HSԠDN.. ] HSԠUP.. ] HOST DOWN..] HOST UP..] 0123456789ABCDEF  =? =? _/?@  *WM] *ERR] * ] ȁȁ  ` p  T?    1234QAIM  * R 2 a : c B e J g Z i R k * j m< H&9?1I>Txx8Jo.$0  3b~6d  3c~J!!'!7   2  =@?@}`  c%sDkDDE EE5E@EEtt'~pp0ppp}pG "2$rG "2$rG "2$rG "2$rG "2$rG "2$r P0!g!g!h!k!z!{!!!!!!!!A@   ,@    @ $(! %(! %( 0%(,    3d~^p A p`p1ppI!yEpUPUQM0pM1]p}p} !!! ! ! ! ! ! ! U3U3U*3LpU3*Lp!W.E\ (1 LrDLrDL3C L3CFtD L3#L3#L2#L1#L1#L1#L1# 1FtD1 FqD, , FqDU,, FqD@@ @!!h h h$ h( h, h0 h4 h8 h< b2d"3"wR taq " ! hn @HH2"h"hn @HH2"h"hn @HHhD#`," h#%#>wd#_2#9D#8T$#ahLwlǜ2#TD#ST$#a H hP"h hT #hhh hmw#wd$2##whl# 2#D$T #hfh hLD$إأȘ1 ##@# "&2h#Dq#b"&2d#c#d#f 3$ @$T$$ $ qlT$o$$ #i L#j h 2$@T $!hD$N fh hh HH hD$ZT!$P ! d$| !  HHH$D$,"D$T! h$$ HH "Ad% L2 ! l wR taq " ! $h bhǘÖ 2 ! h$ hȹn @HHH@ dh h%P "d&>Ll2%MD&@ jҰ%Mh h hĔ 1T_ȿ&5%hȳ l%ȭ("dh d&?2 ! lȖ" ! %؍T|%؉̣1("2%df% % n̨ l l% "Ldl D&@" An2% nܵ&>1 l&1̪ (" " ! ld" ! &.̏ lT &>d%̇("d%%L(" f@ dT!%% lT!%%T_L% n l 1 %r2h&W h&^D2h HHwhh" h" h 2& h&D& D&!j٘&Ȫ& h&Ȣh&ȝ& h&Ȗ& h&X&E&Ch& h&X&E&Dh& h&hț D&A'D'.T &n h d'-' % f1'L nh HH hȭ'9T' h٘'!D'GXhȒhrh% D'WXh hD%2D'eXd& d&&d&rd&% D'|Xd&D%2'D%2&nD' n' h' &2'T''Δ'n'T''/ LD&LL'06 hh'%h 1 ! h H 2(T)A!(T)BIY  3e~r() n)#Ȱ (8D(4T)G)C)#hȞhrhD hh ! d)? ! (^T)D' ('' D(mT)G)E'%'D)@% n%(% D(T!T('('D(T!)#ΰd'̻d'rd'D d'd' ! lΕ ! Ѝ(T)F n%L%Φ n%Π)#% D(T!\')#'' D(T!E'D)@E nE)#E D)T!T(')#'!D)!T! LD'D'( 6   T aC@ )a a ){% )z%  b% D)xT!  1) )a a )% )% D)X) 1)̻a a )% Τ)% D)X)  1D)d)T! hhh h)Vh" hh* h*& D*T   wh h h hT*) d)ȩ *9 ȟ *RȓhT )hfΧhT*) Ȇ**T*) wd*2**~% D*zT!)*)) D*T!)  ! *T$*  D))    TaC@ a n " ! a " ! > a +ف "a d*T"*++ d*T"a Aζ  n n Ϋa  " ! > AΚ n a    T aaa a C@ 2+J a+T d 2+T aA <" " A <" "A      a    T aaaC@ " ! a a T_   ! a  ! >        T aC@ abs",",T+,,a2 ! a,T+,,a" ! a " ! > a,  " !T,,d-8-bs"-"-Twhl-d-9T,<-:-9-;T,-;͘1T,<-< t-;- n @HH " ! bs"-s"-rT+--h2-kNT0-pT,<- u--s  H   T aaC@ " ! D "f d-T,a@a- T_.B-"&2 D-T% D-T-% D-Ta̳("ζaA   w , % D.Tbs".>".= A  ; ]a d.4T,<.[.\T,<.] u.\.>T.X.L D.X"&2 D.WT    T C@ .w " W  . f  ! a ,0 . D.T0+T aA A A n  a d.d.T-  . n 2.%D.T .f%h h  hT .hh hwh"/ZD/|hػLD/}s" XLL3"XL XȔ h "/Y hL .ðX.L. /äX.D/`T!.Θ Ð.n .,"l d. d.b r "0'"0&T .e  3f~d. lwd.w d03/D04d.Ls" ö̆" L3"ë."   lҜ1"  .M /Ð.w ww" lDl  ! l̳  ! 0T/w.Ln.n0' L/~   T aaC@ " !wbs"0b"0a0b 0 " A Pn ba d0T0E D0a d0T!0" f g p0% D0Ta 0% D0Ta 0̞("A -d0 D0T-0d0T!   TC@ ad P <21" ta 1 d 1 ?1 ua1 a11Xd B sa S11 d Nd19T,<1V1W1ST d T w1X1Yd1RT.^ =SUALRPORDIQIAUNOCPDPACDERECA*SUP INACT] *ALM INACT] *RPT INACT] *ORD INACT] *DIA INACT] *Q= SUP]*Q= ALM]*Q= RPT]*Q= ORD]*Q= DIA] *ERR] R . ! d2 / ! 1L 1 0 ! l 1 ! 1 1 81Z1"̾1 91"̹wl22 w   S n D2]ŸE1[ L" ”1` ! d2\΄  ! 2ML n HH =X6=2^ h  ! d3  ! 2X6>2_  ! l  ! 3gb s"3^"3P UwR taq 22T d ȧ "1oD2T 6?6@T.^ 1^2ȓd T3^T l1D2T 6?6AT.^ 1^3^ d M3^ l3^ xR uedl3^2_ xR uedRl3^ O3& ld >lw d A3^"d s!d u3^ll3^d33J pT056B = d ?l3^-HCL^rT! S3}lT S136@w" *ìd T.^ 1^ 2` 3 l3 Q3X3 R - T ! -0 *d ̻d T6? l T+6C6Bd1ZXd BdlN 2 ! d5 zΐ2 ! 3  . ! Nl / ! 47 4 ! l ]  ! 4 d l4! l 45T d Rnd S̒  ! d Q l̷4"1ZÉ ;4[ lL" T34 : ! d5̬Ӭ4 llT"56DlT S156@̩4D5 D4T!Ld T.^ 1^4T2 2 ! l̯ ! l 3 ! л 4 <24T,<6E v6B d P4T04L 4&2LT n&2Χd Rn4  3 @ d1\ >%΃ ! d5 l Ad5d2 ! 51]bs"5"5}T,<6C .6B l5T,<6E v6BT,<6C /6B l5 d ? l 5p l <25nT,<6E v6B d P5pT0 =,5{T056B =5 5̚lLd"5 >1\lw l 5T8 AD5d5T,<6C56B d B 5 lT+6E6Bd1[l85 E69̍25T,<6E6F6B̃25 sl5 ulT,<6E1[6B69 <d6T,<6E v6B d P69" ! d6<" ! 6$ ?d O 6 lT06926-T46964X69T,<6E r6B  =}7lwhhh hT*6K6O6Q6 26 ј26D6T 6JfhLn h6 hȳ1Ȭȫ HHT 6JhnȈh hX667-"‚lD7 ήhT"6K7+Twd6GT*6K66G7)d7wd 7$LD7" D7D7" ]Č-T  3g~w7+7-7KT$o86J6M7FF2 D7ET$o8 d n7̨66 wl" ! l ! 7w6L6I D7uT!6J67T$o8  L6 ll l 08 l   d6G2 ! d8 2 ! 7   bs"7"7d7d7d7d7 T$o8 8  0lT"88lT {88E d T.^ 6K8Lw l d6H88ܖlT"6Kl윊 ! 6G878 1l &2d6N&2 nT78&2n6MD8 lDl  ! l̳  ! Ќ8 l8"L̯D8"Mܣ 1L w6HT!6M6J EP T$ l8T!6M6J\8d  78= h8 " !8 8T-z8 1   TC@  a *   T+) 9J9KD9d9T+) 9K a 2 ! a ؜ ! >M 9G d d   =   T aaC@ a  a9a A   "  = d9d9 a d9T+)9 a  1 = = *ERR SYS HLT] *ERR] * ] LIST EMPTY] SHSREHRSDRE1E2E3E4EQEAEIEMDPLHC C,EBRBBLDLDFEFBGBRLGLPDA b29" ! d:" ! h92 ! l" ! h H  d h h ^E " 2d>d:'>:D d9d ʈ ! l  ! :D l9¹lT"  :Z>: d9T 9>>ld" ! l 2 ! :  E D:T* 9:> 2:" f l̇b r ">"> F :T 9>>: l>: ll:T 9>>>E D:T9:9 l d>: -Mܖ1;! l;D;   lT+) >>D>9 n  1̿"̼  ! n ̱ ( > ;ET 9>>;H d >T9L >; d9 lL D> 쪖  L  = d T+) ?> n ;>>d հ; l>D> T+) ?>9T9 ;  d9 d>; -ð1;D;( lT+) >>n" ( >̢;̏l< ׸<̅ l̘l\ l\ <><; L   ! d _  ! d <4E d  T8> d9 " Ɛ ! d9l  ! Ѐ Зd> ٸlT9 l\ <{><("V  d9TS9 > l зl̽иl<܎̍("˜ ! l  ! Лl ! Бd9l9  ! Ѓ<>= "  lܙTG9 >  2 ! d> 2 ! =+D>   ! f =->>ٔ 2 ! l 2 ! =RT l MT+) ?>=T>> ؜2 ! lٜ2 ! =nT! =p>> 2 ! l " ! =T =T 9?>= "  d9 d9T"??d>=E D=T+) 9> l1 =>>2 ! l̹ " ! =̼(" lT"??l=ED>Λf̵ܰ1T =>> " ! l" ! Лl  " ! Бl" ! Љ>#>>'f W>2 ! d>2 ! >̹ d dRlT T+) ?> M L  >o >i>>mT >T+) ?>D>  / >>>T 9>>>&C  3h~XX||O ]  ! d> _  ! d> ^  ! >T,  *SYS HLT] *HLT XXXX]  T,?d? ^ " $T,Ӹ   =   TC@ a a 2 Nd Ca d "p0a d?T"@ a  2 ! a  " ! > d?T$@@T d @@a 2@@ a @= d@T$@@1A AT fAa@:T! @ a 1 a aa 2Ώa d@Wd@YT @ d@md@n a d@oT+)@ a D@d@d@T+)@ a  2Θ " ! a  2 ! >  m aA a 2 1  2 ! a  " ! > @FT$@ @@ d@T.^ @T!  =  TC@T$A-A.A*T d T A/A0T9L 'T$A- A.A&dA#T.^ A*T!  =   T aC@ a " %2 ! a 2 ! A2 a A n ֐2A2  TA @dADATAATn   T C@ ' B aa a " 2 ! "2 ! 22 ! 2 b r "B"Bΐ2 ! a 2 ! aB2 ! aBΐ2 ! aB////  ! >B(" ab r "B"B (DBHDBITrBT9L 'd !T-'B !TBT?BT? BT@BT? B DBv DBwTr cBT-' d !BTA1 BBP#',<BBTB  B ,s "b r "B"BLlB̳lBslB3lBlB  2BTCBȹ "hBTCBTB ld  H  1 C0 "n% DCT  C, d nC. lCw bl 1C] TwCGCKȺbȸw ww C[ lCwCiȡ lCwhCthȎb h DCC  h 1 C% DCTC hC DC "fC 1C wC hCnw wCC hCn Ȥ HTDD d d TBDDTBD T& hd DHDDmlw" D D<!lDF 'Ew d TDnD^ D^ *l D^lTDoDoL* ! -0  h h," hDDldDwd"DhhD d T$D D Al - T8 nD d D  T  ! dDLw"   ! DTE T {DTDk  ,QDDE ,Q -QT$ l -0 *d   d T$E  TC h nE1  !EU  d T9E9 TC h Tif TE{EG *d T$E| E}EqTC Eo,"E T.^ nEx !EU TE{   hE j 1w HTFFAhDU F b r "F"F A  A  A    E EXFT6FE  EE Ew/Fv dE wȅ2F  F  XFT6FEFTFF0MF dEE~ =  3i~dEFdwR taq 2FZb r "FX"FS  FX  FX  FXFcFc  Fܽ 1   2F 2F 2F   2FF F  TEF dE dE dET6FEDw/F wE    2FTFFv dFhFhT9F  "F "FhFhG"GhGh@dTT_ GTS͐ ! dGi G9 " lG3TGjG9 d TGḵ G@ ȡGI dP Г wճ w "l w("wL w("lDd r w("l w("wl\NlPT d q lL fܓ 1 ULP,-L-,l,wl\^lPP,dPwdMw("DPw-DPb L씺-DL,- L,-wL,-Lb d w w-f -  - - MB - ,DMK b L, - 2 ! dP2 ! M DPPLlwP-wL,-,wd s-AbM, "L,MP  3j~L-ML, 2 ! -ML,w-wM-w bP,d },wd xL,- TKndP,l,wlPDP,- U\~lP -LdPN/ ,"  d snLl۰N L DP,퀳L,Ы wNbwlNe wlNp ̸̴AbPNLPDP]wL b wLdP-wLP,-,d },wd x TKdP,l,wlL,- \lP, l,w l\  EU d O% - ! ``O d OP ld ,E , bO* `llTx P" lPP, d },w d xTK UOT   Ul `Tx P" dP, l,w l\ OE DOT!  lPO Ew m! m  wճ "mDP n bOTPlP d }d xLwPD "Lw"GDP rb r "PD"PBDP,1L,L,w- lPDL1Lӷ-sL쑯Ls-3L-L,-PL,- lPD zd vMEw yfb r "P"PPP }Pf lP 2Po lP rb r "P"P 2P lP 2P lP P 2P lP 9 zd xL“PE ܉̡PLƒTKdP7X*^ DJK  d# TRͰRD "  "  d DU Q2 Q2 l  ! dR`QD " dd td s t s mlDRlwl2Q Ql nL," l̫L," DQ,"DQT!̮lQ,"DQT! E` Q `Ub r "R"R Q d d ̚d lp`PЊ@ŐPE@ p`0L "lDb r "R("R&0Ű Š@ R(0PR(D "fR DRİRU DR,dR,RUd TP R R` d DU d Ew m! m ЋRw lRUlw! m lRUl lRjR d T_ lR̃d D "΀d T6R lQ d P 0d h bSvhSrTSRDU b 5r "Sn"SjT\SSnT\SSn 5UTSSnD " @ ! dS ldS d ! Sf  `  dR dRd d U S`TSSfTS dRT_Sn R l 2R dRSNdR lS%2SS S " DS  U̿DS%2b `TS lܬ1l̙S" 0d R "  MU w w `TT"  @d hTh hT%T%" TZTX TXXTDT,TuDT, -,TuX찆T쐀T " L%SDT mUDT-Lw-w `TT" T S2T1dST$@d T TUoUf bs"Uf"Ua UfD wDf wĴwL  3k~T6UpTUf d vUH " U>  UG  1UfŴf řUfq2Z TTW] DW\ 2  TW^U  ! dW[ w ! U  ! l" ! U dRUdR2Ud cU l .wTW_ Ew dwdT6W`WKḓUVW@Vd E DVTCbs"V"V2VȎd2VoE DV7ThWa2VU̕VN l /Ew TW_ VxVm  "Vj   wUVm  wVdR    wE DVThWbW_V  wVVVpW>E DVThWa2V  wWKdR$d E DVThWcE DV," "DVThWd   < wDW\lw" dUqsb r "W>"W6E DW ThWbWeW>L," W+E DW&ThWbWfW4E DW1ThWbWgW> WK$d T Ur PHlX  D[ 2   w 2Wd E DWTh[2WE DWTh[[WT[DW2W"Wd  2WE DWTh[ W !EwdT6[E DWTh[[X[ w  wbs"["[XX#X! < w  [ȠdDXS2X: "w2XC #w2XL $wlT6[2X}  lXnE DXiT\   "X}% DX|T[DXD[,QXXE DX,"DXT!XD[,Q -Q 2XYXX1b r "Y"YLlwX  wX 1d T[YXXY XXY"[E DY Th[ " ! d[ " ! Y>E DY(Th[[ %EwddT6[ZM cYM l /wT[b r "Yj"Yc dWkYj lYjldlT$[WkdWild ! l󸻸YYT  YD[dWjD[ ̰ldYLT lLn ̑ldZ4LLlw wE DYTh[@dRE DZ," "DZTh[   < wE DZ'Th[E DZ/Th[[ZM    wE DZ@Th[E DZHTh[[X[DZZZbZ` < w  [șd[I2ZD[ ZLD[dWjT l LnE DZTh[   < w@dR [G"ZdR[G ,ZL L΋D[̗L "bL [L ndWj  l[-T\Wj   "[<% D[;T[d d T[[QȁdR2[2[c 'Ew[q2[n (w[q )wdT6[d[D[D[ "fL("bL X[>Q DWhWlP ( `lXH h\d\Llwd h " &2hhn @H jh\GT\K\& h\FD "l d\JD d\F h d"? d"9T^7 A\LB\M"6\d       E Nd ":d T\"̘ _^ @l̏ ^<@EJZair|_^;" HlD` _̅_ MdR dR __    _M"6w_H__M w l d":   _|d^<d^=X d"<A^<B^=^>_^>d d  T___ _ _ _ " ! d_ ___0 ^? "5  dRn @H "5  dn @H "5 MdRn @H "5 Mdn @H "5 MdRn @H "5 Mdn @H "5  M n @ "5  N     n @"5  ` EDa` DM%D`TJ~  H `b r "b-"b'D@"9a%b\aF2a0aDa;aD`aDb-b-2aD"7"DbwPaba@aoVaa{aaa0aa aab\aD@"9aaaaȁa`aȂb-b-@aa2aaaa`aVab\ b% DbT$fb-b-̤a bb-bbJb-̓2b#b\b%b-b-- Dbw,bT`=r2qLT`=r  pXT`=rT]rrrT`=r qe  \r\r DrDrw" ]dj^bs"q"qTnVjjq\jjq\jjq\jjqTlKrT\% DqT$rd Tg`rT]rrrD@"9qTkTkhrT]rrr drsdrTlrrq\jjq\jjq\jjq\jjq\jjq zQQV[`e Dr llwd2rr|E DrTlT]rrrrFTkD ":rFTlrrT]rrr@r?\ rFrQ2rvTlKrTm;r drsdrTlrrrlT`=r\r  \rqT`=rT`~r  \rpX ne` P  <             sT r DrTs=T\ 2s DsTs=s,w wwsw DsTs=T\   3o:2s, Ds+Ts= H  ! ds  ! s Ts3shscshhTw" hs  ! lsœ ! lT\s>dsT\ d " ! бssȠh" F2h"F2nsTjT sATC s Lw ww"Mhss3sw"  s l  Lw"MhstTs3t+TgT$t,   th hdtt2thht[hhh2Dt%2n2L%2n t̵t lt bT!t.t țؚ1ht H tT h h fththh u h%2b%2Du" b Ȼtu ̹uȲluȭbu ȩh HTuu#TuDw " ! du 1duwd" ! u@Tuwb 1r "u"ub r "u"uT$u uT}M uT|n uh,"DuwT$uuud T$ lT}MuT|nuu uT|n uhT9uuT}- uT~uTuTuIPUUUDYY]] u  hh ! dv " ! u hv " bu hvMh ! l " ! v hvȷȳ" h " ! l " ! аv3 hvșh " ! lȑ " ! vGȄ" h ! lu  ! Ђl  ! dvu ! l " ! vv} lv b DvuEfu "l lu"  "   " ̥  T}-u uu ! dy dyd" ! v hx " b w hx lbd"w hx̎" hhh̅"  h w*ȫohw.ȥ`hȡhh " ! l ld" ! ДwgȂwS dvxvw\ lxvwe lxwv " ! dy " ! w lx " ! l o" ! w lxw dvDy, ! l,w ! w lxw lwl "ldvT$|{v||wT vdvw -Ew ud T|{|ju"  dv" ¿dvT'vvvxT!vv dvxxL l dyx" f1DyDu " b-sDy"lu-1,1x l̽ " 2 ! ll {xbܫ 2xlT|}x~̟("L m  w̍("b̂-Qv- v-w  2 ! dy dyd2 ! xyv-v-w dv bvx uf  $d T9|~vxn "xd ("DxTu"  "   "̼  MT}-u v "  b yV byCu̿" ̺"  ̴" T}-uyTT$|~u yTlT|~|~ys yl uf  "d T9|~TIuT$|~u  b (" bb r "y"yy% DyT9u" "  " T}-uu y b y Χn "lT9|~TIu  by n #lT9|~T$|~u y  by  by  y>>>Z>Z y]d ̹d T6|  H u" ! d{x ! l d{yd" ! lw ! zQX|{iDu " bs"{i"{e zqX|z bb r "z"z D{z%n  TIuX|z  dz T d v  3pN fT z ||T}- z f  #d T9|~  b  z  bz  z  zKPK{i zTz|{ z  \|{  \| b { Ήn "lT9|~{TJ`u{i {\|{U {$\|{UuuD{z"  u w L" w   d d fd d T|{i {a  {c\|{ivT$|~u|j z" duLwl"  du̜" du̖"  dȕ" l̊"  Eû" w {X  ! d|y ! | ! l d|zd" ! {u"  "   "  T}-u|u{Tyz|  ! l  ! б| Tz| du|;u  ! lu ! |9|,Tv|7 |5Ty |7 l|; l|RT$|~u |PlT|~|~|j!d D3u-Tg |jlT|~|~ Du{{) @Lwh"   | 0|h|h|hb r "}"}T$}9|} h|Ĉ"D}8غ 1T}M|}!d d ȧd  TjT}l lȗl TjT,"D}T$}:};}|lT$ d}7T}M}7}2 })lT}9}9 L| -0 *d d TB}T HT$~~}jT~~~D  ! d~ d~d" ! }T~ j "  hhD  ]hwb ,r "~f"~c b  ! l н}~~h   b~f b  ! l Р}~~d}X  b~f }}% D}T9 D~!%~D}V("D~ T~l]d}Z ~E    d d T6~  b ~6  b~9  b ~C  ~~~a b ~[ ηf  "d T9~  b~a  bTJ`}V~f7T d}U D~uT}U}W~ mwT}-}U }[ *~h Q~T$F~~ Q  Qh  dC w dDT)*CD 1~  Հh~hXhXhX s 2 ! l l sd2 !  DE!% D TGΨd T d n d TjTl~D, QlT!C~n L~Dw  ! h dF n d  l d lTƸl " DTȸ " d ȯ(" d ȧ 1l 0ld T Z 0db " UT$DT d f l sd" ! l s " ! " D DT Dc  ȩd TC h s " nllpl s("`О9 !EU  έd d T9 " "dSwȄlTXl wl  ! wll "  3  wd ̼D(2lXܲ1 llXܢ 1̙  d d     TaC@ a  3   !A  2 D wadX!a  ! >  l b !K A !%  -D*T a a d" ! a  " ! G lI a a " ! a  ! f a  n  A ΦE  dT a a ܅   d! nA λ  n a  h! ! T h l! " DT!h ! d! ! l  ! "h ! dT$ԁլT hb  3qb r ""   D %b !nN  w   LEb ǀ LE %b LΫEb  L "  )wT݂ n @DD !hT hT ./T+)؂ڃ0/T+ւڃ1/hT+)؂ڃ2/ m ?h lT,3T,<4 t5T-'5lT,<4 u5n @HH=    TaC@st2 ! a T$١ d_T"a )=w T a a  w       A a ;ºd 2  0 a a   AA;¡Þ ! a  ! >  T a % f a  dTx  T d E DT T.^ n H=   Taa a C@ a  d 2 ! A a ;   ! < "A A ;      VT,T,< t -d d T8T-'F ,n @HHH(10 *HALT     hD DfdL Ln d ?T,T,< thDT+)DT+)T-'TT?1n @ = g e;9a@TT7  3rvc\  3scG  3t4VG@ H`@b2  &  `TGb b hTSb  ` @@  )@  3uP dmddud fd "d("d id("d hȽ("fس 1 Rd("hȢAhi`h `dbkdTǡ        n f b b blfb4 d2L  3v E@\ FNC@ 0 @6t# ]_#v ߛ#R G\5.B \ !0V X E5.BCߝ3_+ _t] A@]PV@ NZA@ $0V^`@ޚ ED%D I Jߜ8.E@%5]5.B\#'N"ޚ@Eޚ EZD^ߝ FߙU@Zu T8*ޜA\ 5 6ZVw ޜ\3 A] Z%`@'u Tv A\ZCZ q PD7V W^u ڇ%__v A\__ u__ t /_\ !\PV Z aߘ@X $ Z Z \ BT)_ Vp UXeX UTe f\ P5.B@_ t5 y\$W _ _[W$ZG%u.B  3wޜAp : mGߜ 8.mߙ Aߚ:[ \ a $ ) @ߝߛ  \Z  ) A.6.v \( xNC'N x#0W Ө@ ^ t 7t# ]N Rp } @N$@[T N% @q ,!_+p ߝ#]W | ^_['Y$$N% @.v5 'ߟ0 &Sߟ q@xw#_U5o2Ө0\ &ߜ & \# uߛ3 V \ߟ ߟ ]M "p#!bY u nߘun0pq#*_ Nu#"վ*Q ^ !__t$ ] 5 6]Ө* * [5^  *W550q,ޜN =tX#* $]@> ݇%>ߟ >WT.7] $5]5 %ߟݬn@ Nu #] 5@= <*]  XUM=_ .ŘN_5 ) Lߜ>.) O.>ߜ 8Oߜ@PP ?h5? 8]@ #ߜ@ =ߜT *ߞ$\W [ \W [ 8ߟ$@]%u _$Tu ߟ$$u ߟ$%u ߟ$P5 ]@ mߜT :ߞ$\W [  ] @ژ@<ޜ 9.*]  XUM Q_XؠP>J 4]] X7X6]X5X4X $D0NVD@q ޜZ HuX#_N!ߟ _T@_ X_ qLޘHP>T q_Cq<ޜZ HV t p,H.]6 Ә@-(]\ޜ Y1NM\ߞ0pߞ ZY0[^ %Hߝ ] pߞZq$p$H XؠJ  (^XX ^A4T5_ $_D5ޜ ZVq u<ޜg efq X ߞ ZiN0eT0@_ X_@Tq Lq__،^$$Afߟ .]vӘgX ]@ P>u#h#[^ 1P>NLP>\ T0_ X$_$NV$ޜ p ޝ_ XU,i_ j^@qt  oX],R oT ؄i eХ iT@ `k3 p ` o\# o([]P@lV@V `V_ []P ߟDpߜ > (wv4vߝ wT4 ?ߘ@b ct*tP>NqP>]6 W5T00_X $_DsV$pX#j__ _5@F$iT$^p$i$_$tT3@[= kp 33`@Z#r\  oҘs o0$0VT $NP>]6 W5T00ߞX $_DV$pޜ#lS8t  tS8X#@__ X],` li@ X#_^$hT$l)$p_,$X#_F$tX$7] 0hq$>TX#] P>ܶq_ P>hP>TTRVڇ"_dTڇ>VuV!66ڇVڇ*Vڇ!Vڇ!6ڇ6ڇ!6ڇ6c6oV6# V P>Z P>T0% T0%-5K-Up U5U-U_4B_XP>@_@X#L_܀EP>@ _@_$LXހEP>@ ߝ ߝ ]v0]^X !^X% ߘԘ s0ߘ@# ][%(@#Nwu X] 5 6ߜ i @T6ߜ q V @oX ⟝ \_N.@p@p\E vq&\Po  3x % (  _X#@n_]G @nRh 4^%T0 \ߝ+v ^+ٟ\Gqߞ%ߞ 0ܟ r bN1Nj bܵ5q5 ^_00\\ b_ $b^00\ ^vq5 \ %֘ >ܞ b@A֞ > A٘ =٘@=䟙P> f۟@G@B@B@i V ߜ #] 0^%pT6㭽 ^\ ߜ ߝ(\ߘ ֟ \.|Nj i( ߛ֟N.]@2] (] ,] :T\ m][%  ߜ q5 V ߚV Xޜ ՟ \X_,\Z%iX@wޜ  ޘ0 bD b_\ u#c =d4cߝ dTTޜ#9_T"_ <\ ^@@*V Z4_^X !^XE [ W@t =چ>Z <ߝ u#d%49ߚ Z P> "hhhd d lp 30 MOVE PFACCT LEVEL1 COMPAY 000 0009901000CLR 30 PFACCT CHAINLADLQMST 50 COMPAY 000 0010001010CLR 30 LAPYOF ADD BTOT1 BTOT1 COMPAY 000 0010101020CLR 30 LAPYOF ADD BTOT2 BTOT2 COMPAY 000 0010201030C* COMPAY 000 0010301040CLR SETOF 203040 COMPAY 000 0010401050CLR SETOF 020390 COMPAY 000 0010501060CLR LINCTR ADD 1 LINCTR COMPAY 000 0010601070CLR LINCTR COMP 40 40 COMPAY 000 0010701080CLR 40 Z-ADD0 LINCTR COMPAY 000 0010801090C* COMPAY 000 0010901100CLR GOTO START COMPAY 000 0011001110C* COMPAY 000 0011101120C* END OF RECORD PROCESSING LOOP COMPAY 000 0011201130C* COMPAY 000 0011301140CLR EOJ TAG COMPAY 000 0011401150CLR EXCPT COMPAY 000 0011501160C* COMPAY 000 0011601170C* *************************************************************** COMPAY 000 0011701180O* COMPAY 000 0011801190O* **************** O U T P U T **************** COMPAY 000 0011901200O* COMPAY 000 0012001210O********************************************************************COMPAY 000 0012101220O* COMPAY 000 0012201230OPRINT E 20N90 COMPAY 000 0012301240O OR 30N20N90 COMPAY 000 0012401250O OR 10N90 COMPAY 000 0012501260O N50LAMNAM 30 COMPAY 000 0012601270O 50 14 '***WARNING!!! ' COMPAY 000 0012701280O 50 30 'ACCT NOT ON FILE' COMPAY 000 0012801290O LEVEL1 51 COMPAY 000 0012901300O IDAMT 1 69 '$' COMPAY 000 0013001310O DAMT 1 87 '$' COMPAY 000 0013101320O N50LAPYOF1 105 '$' COMPAY 000 0013201330O 50 113 '***WARNING!!! ACCT' COMPAY 000 0013301340O 50 129 'NOT ON LADLQMST' COMPAY 000 0013401350O E 2 20N90 COMPAY 000 0013501360O OR 2 10N90 COMPAY 000 0013601370O 5 'TOTAL' COMPAY 000 0013701380O IDTOT11 69 '$' COMPAY 000 0013801390O DTOT1 1 87 '$' COMPAY 000 0013901400O BTOT1 1 105 '$' CO…  3}RMPAY 000 0014001410O E 103 20 COMPAY 000 0014101420O OR 103 10 COMPAY 000 0014201430O OR 103 40 COMPAY 000 0014301440O 21 'LEGAL & AGENCY SYSTEM' COMPAY 000 0014401450O 65 'COMPLETE PAYMENTS' COMPAY 000 0014501460O 81 'RECEIVED REPORT' COMPAY 000 0014601470O 126 'PAGE NO.' COMPAY 000 0014701480O PAGE Z 130 COMPAY 000 0014801490O E 20 COMPAY 000 0014901500O OR 10 COMPAY 000 0015001510O OR 40 COMPAY 000 0015101520O 11 'VERSION 3.0' COMPAY 000 0015201530O 117 'RUN DATE:' COMPAY 000 0015301540O UDATE Y 126 COMPAY 000 0015401550O E 3 20 COMPAY 000 0015501560O OR 3 10 COMPAY 000 0015601570O OR 3 40 COMPAY 000 0015701580O 19 'SYSTEM VERIFICATION' COMPAY 000 0015801590O E 3 20 COMPAY 000 0015901600O OR 3 40 COMPAY 000 0016001610O 19 'ATTORNEY / AGENT #' COMPAY 000 0016101620O N90LEVEL2 24 COMPAY 000 0016201630O 90PFLGAA 24 COMPAY 000 0016301640O E 2 20 COMPAY 000 0016401650O OR 2 40 COMPAY 000 0016501660O 13 'CUSTOMER NAME' COMPAY 000 0016601670O 49 'ACCOUNT NUMBER' COMPAY 000 0016701680O 69 'INDIRECT' COMPAY 000 0016801690O 87 'DIRECT' COMPAY 000 0016901700O 105 'BALANCE' COMPAY 000 0017001710O E 33 10 COMPAY 000 0017101720O 69 'INDIRECT' COMPAY 000 0017201730O 87 'DIRECT' COMPAY 000 0017301740O 105 'BALANCE' COMPAY 000 0017401750O E 10 COMPAY 000 0017501760O 11 'GRAND TOTAL' COMPAY 000 0017601770O IDTOT21 69 '$' COMPAY 000 0017701780O DTOT2 1 87 '$' COMPAY 000 0017801790O BTOT2 1 105 '$' COMPAY 000 00179/* 01800 000 0018000010H DIRPAY 000 00001 X 1 G02 R LA CCS 3.0  3~f SL-149 00170 000 0000200030F* G02 R LA CCS 3.0 SL-149 D00180 000 0000300040F* D00190 000 0000400050F* LEGAL AND AGENCY VERSION 3 D00200 000 0000500060F* DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA D00210 000 0000600070F* COPYRIGHT CONTROL DATA CORPORATION, 1979 D00220 000 0000700080F* D00230 000 0000800090F* THIS PROGRAM USES THE PAYMENT FILE 'LAPMTFIL' (SORTED BY DIRPAY 000 0000900100F* CLIENT #) TO PROVIDE A LIST OF ALL DIRECT PAYMENTS RECEIVED DIRPAY 000 0001000110F* ON L/A ACCOUNTS SINCE THE LAST DIRECT PAYMENT STATEMENT WAS DIRPAY 000 0001100120F* PRODUCED. THE CUSTOMER NAME AND BALANCE DUE FIELDS ARE RE- DIRPAY 000 0001200130F* TRIEVED FROM THE L/A MASTER FILE 'LADLQMST'. DIRPAY 000 0001300140F* DIRPAY 000 0001400150F********************************************************************DIRPAY 000 0001500160F* DIRPAY 000 0001600170FNULL IP F 2 DISK DIRPAY 000 0001700180FLAPMTFILID F 40 DISK DIRPAY 000 0001800190FLADLQMSTIC F 2000R16AI 1 DISK DIRPAY 000 0001900200FPRINT O F 132 PRINTER DIRPAY 000 0002000210I* DIRPAY 000 0002100220I********************************************************************DIRPAY 000 0002200230I* DIRPAY 000 0002300240INULL AA 01 DIRPAY 000 0002400250ILAPMTFILAA 02 18 C5 DIRPAY 000 0002500260I 1 16 PFACCT DIRPAY 000 0002600270I 19 272PFAMT DIRPAY 000 0002700280I 28 330PFDATE DIRPAY 000 0002800290I 34 37 PFLGAA DIRPAY 000 0002900300ILAPMTFILAA 01 DIRPAY 000 0003000310ILADLQMSTAA 01 DIRPAY 000 0003100320I 18 47 LAMNAM DIRPAY 000 0003200330I 905 9132LAPYOF DIRPAY 000 0003300340C* DIRPAY 000 0003400350C********************************************************************DIRPAY 000 0003500360C* DIRPAY 000 0003600370C* ****** FUNCTION OF INDICATORS ****** DIRPAY 000 0003700380C* DIRPAY 000 0003800390C* INDICATOR FUNCTION DIRPAY 000 0003900400C* DIRPAY 000 0004000410C* 02 RECORD TYPE = DIRECT PAYMENT (LAPMTFIL) DIRPAY 000 0004100420C* 10 END-OF-FILE (LAPMTFIL) DIRPAY 000 0004200430C* 20 CLIENT # LEVEL BREAK DIRPAY 000 0004300440C* 30 #t  3z ACCOUNT # LEVEL BREAK DIRPAY 000 0004400450C* 40 DETAIL LINE-COUNTER (40 PER PAGE) DIRPAY 000 0004500460C* 50 RECORD-NOT-FOUND (LADLQMST) DIRPAY 000 0004600470C* 90 FIRST-TIME-THROUGH IND. DIRPAY 000 0004700480C* DIRPAY 000 0004800490C* *********** *********** *********** DIRPAY 000 0004900500C* DIRPAY 000 0005000510C* INITIALIZE VARIABLES DIRPAY 000 0005100520C* DIRPAY 000 0005200530CLR Z-ADD0 TOTAMT 92 DIRPAY 000 0005300540CLR Z-ADD0 TOTBAL 92 DIRPAY 000 0005400550CLR Z-ADD0 GRANDA 102 DIRPAY 000 0005500560CLR Z-ADD0 GRANDB 102 DIRPAY 000 0005600570CLR Z-ADD0 LINCTR 20 DIRPAY 000 0005700580CLR MOVE ' ' LEVEL2 4 DIRPAY 000 0005800590CLR MOVE ' 'LEVEL1 16 DIRPAY 000 0005900600CLR MOVEL' 'LEVEL1 DIRPAY 000 0006000610CLR SETON 90 DIRPAY 000 0006100620C* DIRPAY 000 0006200630C* BEGINNING OF RECORD PROCESSING LOOP DIRPAY 000 0006300640C* DIRPAY 000 0006400650CLR START TAG DIRPAY 000 0006500660CLR READ LAPMTFIL 10 DIRPAY 000 0006600670CLR 10 GOTO EOJ END-OF-FILE DIRPAY 000 0006700680CLRN02 GOTO START NOT DIRECT PAY DIRPAY 000 0006800690CLR PFLGAA COMP LEVEL2 2020 ON=NEW CLIENT DIRPAY 000 0006900700CLR 20 MOVE PFLGAA LEVEL2 DIRPAY 000 0007000710CLR 20 EXCPT DIRPAY 000 0007100720CLR 20N90 TOTAMT ADD GRANDA GRANDA DIRPAY 000 0007200730CLR 20N90 TOTBAL ADD GRANDB GRANDB DIRPAY 000 0007300740CLR 20N90 Z-ADD0 TOTAMT DIRPAY 000 0007400750CLR 20N90 Z-ADD0 TOTBAL DIRPAY 000 0007500760CLR PFACCT COMP LEVEL1 3030 ON=NEW ACCT # DIRPAY 000 0007600770CLRN20 EXCPT DIRPAY 000 0007700780CLR Z-ADDPFDATE DATFLD 60 DIRPAY 000 0007800790CLR Z-ADDPFAMT AMTFLD 92 DIRPAY 000 0007900800CLR PFAMT ADD TOTAMT TOTAMT DIRPAY 000 0008000810CLR 30 MOVE PFACCT LEVEL1 DIRPAY 000 0008100820CLR 30 PFACCT CHAINLADLQMST 50 DIRPAY 000 0008200830CLR 30 LAPYOF ADD TOTBAL TOTBAL DIRPAY 000 0008300840CLR SETOF 203040 DIRPAY 000 0008400850CLR SETOF 0290 DIRPAY 000 000850086:  30CLR LINCTR ADD 1 LINCTR DIRPAY 000 0008600870CLR LINCTR COMP 40 40 DIRPAY 000 0008700880CLR 40 Z-ADD0 LINCTR DIRPAY 000 0008800890CLR GOTO START DIRPAY 000 0008900900C* DIRPAY 000 0009000910C* END OF RECORD PROCESSING LOOP DIRPAY 000 0009100920C* DIRPAY 000 0009200930CLR EOJ TAG DIRPAY 000 0009300940CLR TOTAMT ADD GRANDA GRANDA DIRPAY 000 0009400950CLR TOTBAL ADD GRANDB GRANDB DIRPAY 000 0009500960CLR EXCPT DIRPAY 000 0009600970O* DIRPAY 000 0009700980O********************************************************************DIRPAY 000 0009800990O* DIRPAY 000 0009901000OPRINT E 20N30N90 DIRPAY 000 0010001010O OR 30N20N90 DIRPAY 000 0010101020O OR 10N90 DIRPAY 000 0010201030O N50LAMNAM 30 DIRPAY 000 0010301040O 50 14 '***WARNING!!! ' DIRPAY 000 0010401050O 50 30 'ACCT NOT ON FILE' DIRPAY 000 0010501060O LEVEL1 51 DIRPAY 000 0010601070O DATFLDY 64 DIRPAY 000 0010701080O AMTFLDJ 82 '$' DIRPAY 000 0010801090O N50LAPYOFJ 100 '$' DIRPAY 000 0010901100O 50 108 '***WARNING!!! ACCT' DIRPAY 000 0011001110O 50 124 'NOT ON LADLQMST' DIRPAY 000 0011101120O E 2 20N30N90 DIRPAY 000 0011201130O OR 2 10N90 DIRPAY 000 0011301140O 5 'TOTAL' DIRPAY 000 0011401150O TOTAMTJ 82 '$' DIRPAY 000 0011501160O TOTBALJ 100 '$' DIRPAY 000 0011601170O E 103 20N30 DIRPAY 000 0011701180O OR 103 10 DIRPAY 000 0011801190O OR 103 40 DIRPAY 000 0011901200O 21 'LEGAL & AGENCY SYSTEM' DIRPAY 000 0012001210O 64 'DIRECT PAYMENTS' DIRPAY 000 0012101220O 80 'RECEIVED REPORT' DIRPAY 000 0012201230O 126 'PAGE NO.' DIRPAY 000 0012301240O PAGE Z 130 DIRPAY 000 0012401250O E 20N30 DIRPAY 000 0012501260O OR 10 DIRPAY 000 0012601270O OR 40 >J  3 DIRPAY 000 0012701280O 11 'VERSION 3.0' DIRPAY 000 0012801290O 117 'RUN DATE:' DIRPAY 000 0012901300O UDATE Y 126 DIRPAY 000 0013001310O E 3 20N30 DIRPAY 000 0013101320O OR 3 10 DIRPAY 000 0013201330O OR 3 40 DIRPAY 000 0013301340O 19 'SYSTEM VERIFICATION' DIRPAY 000 0013401350O E 3 20N30 DIRPAY 000 0013501360O OR 3 40 DIRPAY 000 0013601370O 19 'ATTORNEY / AGENT #' DIRPAY 000 0013701380O LEVEL2 24 DIRPAY 000 0013801390O E 2 20N30 DIRPAY 000 0013901400O OR 2 40 DIRPAY 000 0014001410O 13 'CUSTOMER NAME' DIRPAY 000 0014101420O 49 'ACCOUNT NUMBER' DIRPAY 000 0014201430O 63 'DATE' DIRPAY 000 0014301440O 82 'AMOUNT' DIRPAY 000 0014401450O 100 'BALANCE' DIRPAY 000 0014501460O E N10N20N30 DIRPAY 000 0014601470O N50LAMNAM 30 DIRPAY 000 0014701480O 50 14 '***WARNING!!! ' DIRPAY 000 0014801490O 50 30 'ACCT NOT ON FILE' DIRPAY 000 0014901500O LEVEL1 51 DIRPAY 000 0015001510O DATFLDY 64 DIRPAY 000 0015101520O AMTFLDJ 82 '$' DIRPAY 000 0015201530O E 33 10 DIRPAY 000 0015301540O 82 'AMOUNT' DIRPAY 000 0015401550O 100 'BALANCE' DIRPAY 000 0015501560O E 10 DIRPAY 000 0015601570O 11 'GRAND TOTAL' DIRPAY 000 0015701580O GRANDAJ 82 '$' DIRPAY 000 0015801590O GRANDBJ 100 '$' DIRPAY 000 00159/* 01600 000 0016000010H INVCLI 000 00001 X 1 G03 R LA CCS 3.0 SL-149 00260 000 0000200030F* G03 R LA CCS 3.0 SL-149 I00270 000 0000300040F* I00280 000 0000400050F* LEGAL AND AGENCY VERSION 3 I00290 000 0000500060F* DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA I00300 000 0000600070F* COPYRIGHT CONTROL DATA CORPORATION, 1979 I00310 000 0000700080F* I00320 000 0000800090F* THIS PROGRAM USES THE CLIENT INVENTORY   3FILE 'LACLINV' (SORTED INVCLI 000 0000900100F* BY CLIENT #) TO PROVIDE AN INVENTORY REPORT BY ATTORNEY/AGENCY. INVCLI 000 0001000110F* THE PROGRAM ALLOWS FOR FIVE USER-DEFINED CLIENT TYPES, IDENT- INVCLI 000 0001100120F* IFIED BY A TWO CHARACTER TYPE CODE IN 'LAUTIFIL' CORRESPONDING INVCLI 000 0001200130F* TO THE FIRST TWO CHARACTERS OF THE CLIENT NUMBER. THE PROGRAM INVCLI 000 0001300140F* FURTHER ALLOWS FOR A SIXTH CLIENT TYPE, REFERRED TO AS 'MISCEL- INVCLI 000 0001400150F* LANEOUS', CONSISTING OF ALL RECORDS WHICH DO NOT FALL INTO ANY INVCLI 000 0001500160F* OF THE USER-DEFINED CLIENT TYPES.A CHAIN OPERATION IS PERFORMED INVCLI 000 0001600170F* TO 'LAUTIFIL' TO RETRIEVE THE CLIENT TYPE AND A 30 CHARACTER INVCLI 000 0001700180F* TYPE DESCRIPTION. INVCLI 000 0001800190F* INVCLI 000 0001900200F********************************************************************INVCLI 000 0002000210F* INVCLI 000 0002100220FNULL IP F 2 DISK INVCLI 000 0002200230FLACLINV ID F 80 DISK INVCLI 000 0002300240FLAUTIFILIC F 80R 4AI 1 DISK INVCLI 000 0002400250FPRINT O F 132 PRINTER INVCLI 000 0002500260I* INVCLI 000 0002600270I********************************************************************INVCLI 000 0002700280I* INVCLI 000 0002800290INULL AA 08 INVCLI 000 0002900300ILACLINV AA 08 INVCLI 000 0003000310I 1 16 INVACT INVCLI 000 0003100320I 17 18 INVTYP INVCLI 000 0003200330I 17 20 INVCLI 30 INVCLI 000 0003300340I 21 50 INVNAM INVCLI 000 0003400350I 51 560INVDAT INVCLI 000 0003500360I 57 652INVBAL INVCLI 000 0003600370ILAUTIFILAA 08 4 CL INVCLI 000 0003700380I 5 6 TYPE1 11 INVCLI 000 0003800390I 8 9 TYPE2 12 INVCLI 000 0003900400I 11 12 TYPE3 13 INVCLI 000 0004000410I 14 15 TYPE4 14 INVCLI 000 0004100420I 17 18 TYPE5 15 INVCLI 000 0004200430ILAUTIFILAA 08 4NCL INVCLI 000 0004300440I 5 34 TYPDSC INVCLI 000 0004400450C* INVCLI 000 0004500460C********************************************************************INVCLI 000 0004600470C* INVCLI 000 0004700480C* ****** FUNCTION OF INDICATORS ****** INVCLI 000 0004800490C* INVCLI 000 0004900500C* INDICATOR FUNCTION INVCLI 000 0005000510C* /  3 INVCLI 000 0005100520C* 01 CLIENT TYPE = TYPE1 INVCLI 000 0005200530C* 02 CLIENT TYPE = TYPE2 INVCLI 000 0005300540C* 03 CLIENT TYPE = TYPE3 INVCLI 000 0005400550C* 04 CLIENT TYPE = TYPE4 INVCLI 000 0005500560C* 05 CLIENT TYPE = TYPE5 INVCLI 000 0005600570C* 06 CLIENT TYPE = MISCELLANEOUS INVCLI 000 0005700580C* 07 MISCELLANEOUS CLIENT TYPE RECORDS PRESENT INVCLI 000 0005800590C* 08 RECORD IDENTIFYING IND. INVCLI 000 0005900600C* 10 END-OF-FILE (LACLINV ) INVCLI 000 0006000610C* 11 NO CLIENT TYPE1 IS DEFINED (FIELD IS BLANK) INVCLI 000 0006100620C* 12 NO CLIENT TYPE2 IS DEFINED (FIELD IS BLANK) INVCLI 000 0006200630C* 13 NO CLIENT TYPE3 IS DEFINED (FIELD IS BLANK) INVCLI 000 0006300640C* 14 NO CLIENT TYPE4 IS DEFINED (FIELD IS BLANK) INVCLI 000 0006400650C* 15 NO CLIENT TYPE5 IS DEFINED (FIELD IS BLANK) INVCLI 000 0006500660C* 20 NEW CLIENT (CLIENT # LEVEL BREAK) INVCLI 000 0006600670C* 21 NO TYPE-DESCRIPTION FOR CLIENT TYPE 1 INVCLI 000 0006700680C* 22 NO TYPE-DESCRIPTION FOR CLIENT TYPE 2 INVCLI 000 0006800690C* 23 NO TYPE-DESCRIPTION FOR CLIENT TYPE 3 INVCLI 000 0006900700C* 24 NO TYPE-DESCRIPTION FOR CLIENT TYPE 4 INVCLI 000 0007000710C* 25 NO TYPE-DESCRIPTION FOR CLIENT TYPE 5 INVCLI 000 0007100720C* 30 RCD IS UNASSIGNED (NO CLIENT #) INVCLI 000 0007200730C* 40 DETAIL LINE-COUNTER (40 PER PAGE) INVCLI 000 0007300740C* 90 FIRST-TIME-THROUGH IND. INVCLI 000 0007400750C* H1 FATAL ERROR - NO RCD FOUND 'LAUTIFIL' CHAIN INVCLI 000 0007500760C* INVCLI 000 0007600770C* *********** *********** *********** INVCLI 000 0007700780C* INVCLI 000 0007800790C* INITIALIZE VARIABLES INVCLI 000 0007900800C* INVCLI 000 0008000810CLR Z-ADD0 CLIBAL 102 INVCLI 000 0008100820CLR Z-ADD0 BAL1 92 INVCLI 000 0008200830CLR Z-ADD0 BAL2 92 INVCLI 000 0008300840CLR Z-ADD0 BAL3 92 INVCLI 000 0008400850CLR Z-ADD0 BAL4 92 INVCLI 000 0008500860CLR Z-ADD0 BAL5 92 INVCLI 000 0008600870CLR Z-ADD0 BAL6 92 INVCLI 000 0008700880CLR Z-ADD0 TOTBAL 102 INVCLI 000 0008800890CLR Z-ADD0 CTR1 40 INVCLI 000 0008900900CLR Z-ADD0 CTR2 40 INVCLI 000 0009000910CLR Z-ADD0 CTR3 40 INVCLI 000 0009100920CLR Z-ADD0 CTR4 40 INVCLI 000 00092  300930CLR Z-ADD0 CTR5 40 INVCLI 000 0009300940CLR Z-ADD0 CTR6 40 INVCLI 000 0009400950CLR Z-ADD0 TOTCTR 40 INVCLI 000 0009500960CLR Z-ADD0 LINCTR 20 INVCLI 000 0009600970CLR MOVE ' ' LEVEL1 4 INVCLI 000 0009700980CLR MOVE 'LACL' TYPKEY 4 INVCLI 000 0009800990CLR MOVE 'LAC1' TYPKY1 4 INVCLI 000 0009901000CLR MOVE 'LAC2' TYPKY2 4 INVCLI 000 0010001010CLR MOVE 'LAC3' TYPKY3 4 INVCLI 000 0010101020CLR MOVE 'LAC4' TYPKY4 4 INVCLI 000 0010201030CLR MOVE 'LAC5' TYPKY5 4 INVCLI 000 0010301040CLR SETON 90 INVCLI 000 0010401050C* INVCLI 000 0010501060C* PROCESS 'LACLINV' RECORDS INVCLI 000 0010601070C* INVCLI 000 0010701080CLR START TAG INVCLI 000 0010801090CLR READ LACLINV 10 INVCLI 000 0010901100CLR 10 GOTO EOJ END-OF-FILE INVCLI 000 0011001110CLR 30 GOTO START NO CLIENT # INVCLI 000 0011101120CLR INVCLI COMP LEVEL1 2020 ON=NEW CLIENT INVCLI 000 0011201130C* INVCLI 000 0011301140C* IF NEW CLIENT (IND. 20 ON) - PERFORM TOTAL CALC. AND OUTPUT INVCLI 000 0011401150C* INVCLI 000 0011501160CLR 20 EXCPT INVCLI 000 0011601170CLR 20 MOVE INVCLI LEVEL1 INVCLI 000 0011701180CLR 20 CLIBAL ADD TOTBAL TOTBAL INVCLI 000 0011801190CLR 20 Z-ADD0 CLIBAL INVCLI 000 0011901200C* INVCLI 000 0012001210C* FOR EACH RECORD PROCESSED: INCREMENT TOTAL-NUMBER-OF-ACCOUNTS INVCLI 000 0012101220C* FIELD AND ADD BALANCE-THIS-RECORD TO TOTAL-BALANCE-THIS-CLIENT. INVCLI 000 0012201230C* INVCLI 000 0012301240CLR INVBAL ADD CLIBAL CLIBAL INVCLI 000 0012401250CLR TOTCTR ADD 1 TOTCTR INVCLI 000 0012501260C* INVCLI 000 0012601270C* RETRIEVE THE TYPE-PARAMETERS FROM 'LAUTIFIL' AND COMPARE TO INVCLI 000 0012701280C* THE FIRST TWO CHARACTERS OF THE CLIENT NUMBER FROM THE CURRENT INVCLI 000 0012801290C* 'LACLINV' RECORD TO DETERMINE IT'S CLIENT TYPE. INVCLI 000 0012901300C* INVCLI 000 0013001310CLR TYPKEY CHAINLAUTIFIL H1 ON=ERROR INVCLI 000 0013101320CLR SETOF 06 INVCLI 000 0013201330CLRN11 INVTYP COMP TYPE1 01 INVCLI 000 0013301340CLRN12 INVTYP COMP TYPE2 02  3 INVCLI 000 0013401350CLRN13 INVTYP COMP TYPE3 03 INVCLI 000 0013501360CLRN14 INVTYP COMP TYPE4 04 INVCLI 000 0013601370CLRN15 INVTYP COMP TYPE5 05 INVCLI 000 0013701380CLRN01N02N03 INVCLI 000 0013801390CANN04N05 SETON 0607 INVCLI 000 0013901400C* INVCLI 000 0014001410C* UPDATE THE TOTAL-BALANCE AND TOTAL-NUMBER-OF-ACCOUNTS FIELDS INVCLI 000 0014101420C* FOR THE CURRENT CLIENT TYPE. INVCLI 000 0014201430C* INVCLI 000 0014301440CLR 01 INVBAL ADD BAL1 BAL1 INVCLI 000 0014401450CLR 02 INVBAL ADD BAL2 BAL2 INVCLI 000 0014501460CLR 03 INVBAL ADD BAL3 BAL3 INVCLI 000 0014601470CLR 04 INVBAL ADD BAL4 BAL4 INVCLI 000 0014701480CLR 05 INVBAL ADD BAL5 BAL5 INVCLI 000 0014801490CLR 06 INVBAL ADD BAL6 BAL6 INVCLI 000 0014901500CLR 01 CTR1 ADD 1 CTR1 INVCLI 000 0015001510CLR 02 CTR2 ADD 1 CTR2 INVCLI 000 0015101520CLR 03 CTR3 ADD 1 CTR3 INVCLI 000 0015201530CLR 04 CTR4 ADD 1 CTR4 INVCLI 000 0015301540CLR 05 CTR5 ADD 1 CTR5 INVCLI 000 0015401550CLR 06 CTR6 ADD 1 CTR6 INVCLI 000 0015501560C* INVCLI 000 0015601570C* DETAIL OUTPUT INVCLI 000 0015701580C* INVCLI 000 0015801590CLR SETOF 2090 INVCLI 000 0015901600CLR LINCTR ADD 1 LINCTR INVCLI 000 0016001610CLR LINCTR COMP 40 40 INVCLI 000 0016101620CLR 40 Z-ADD0 LINCTR INVCLI 000 0016201630CLR EXCPT INVCLI 000 0016301640CLR GOTO START INVCLI 000 0016401650C* INVCLI 000 0016501660C* END-OF-FILE: PERFORM TOTAL CALCULATIONS AND FINAL OUTPUT. INVCLI 000 0016601670C* RETRIEVE TYPE-DESCRIPTION FROM 'LAUTIFIL' FOR EACH TYPE PRESENT INVCLI 000 0016701680C* INVCLI 000 0016801690CLR EOJ TAG INVCLI 000 0016901700CLR CLIBAL ADD TOTBAL TOTBAL INVCLI 000 0017001710CLRN11 TYPKY1 CHAINLAUTIFIL 21 ON=NO HIT INVCLI 000 0017101720CLRN11N21 MOVE TYPDSC DESC1 30 INVCLI 000 0017201730CLRN12 TYPKY2 CHAINLAUTIFIL 22 ON=NO HIT INVCLI 000 0017301740CLRN12N22 MOVE TYPDSC DESC2 30 INVCLI 000 0017401750CLRN13 TYPKY3 CHAINLAUTIFIL 23 ON=NO HIT INVCLI 000 0017501760CLRN13N23 MOVE TYPDSC DE0  3SC3 30 INVCLI 000 0017601770CLRN14 TYPKY4 CHAINLAUTIFIL 24 ON=NO HIT INVCLI 000 0017701780CLRN14N24 MOVE TYPDSC DESC4 30 INVCLI 000 0017801790CLRN15 TYPKY5 CHAINLAUTIFIL 25 ON=NO HIT INVCLI 000 0017901800CLRN15N25 MOVE TYPDSC DESC5 30 INVCLI 000 0018001810CLR EXCPT INVCLI 000 0018101820C* INVCLI 000 0018201830O********************************************************************INVCLI 000 0018301840O* INVCLI 000 0018401850OPRINT E 2 20N90 INVCLI 000 0018501860O OR 2 10N90 INVCLI 000 0018601870O 5 'TOTAL' INVCLI 000 0018701880O CLIBAL1 90 '$' INVCLI 000 0018801890O E 103 20 INVCLI 000 0018901900O OR 103 10 INVCLI 000 0019001910O OR 103 40 INVCLI 000 0019101920O 21 'LEGAL & AGENCY SYSTEM' INVCLI 000 0019201930O 72 'INVENTORY REPORT' INVCLI 000 0019301940O 126 'PAGE NO.' INVCLI 000 0019401950O PAGE Z 130 INVCLI 000 0019501960O E 20 INVCLI 000 0019601970O OR 10 INVCLI 000 0019701980O OR 40 INVCLI 000 0019801990O 11 'VERSION 3.0' INVCLI 000 0019902000O 73 'BY ATTORNEY/AGENCY' INVCLI 000 0020002010O 117 'RUN DATE:' INVCLI 000 0020102020O UDATE Y 126 INVCLI 000 0020202030O E 3 20 INVCLI 000 0020302040O OR 3 10 INVCLI 000 0020402050O OR 3 40 INVCLI 000 0020502060O 19 'SYSTEM VERIFICATION' INVCLI 000 0020602070O E 3 20 INVCLI 000 0020702080O OR 3 40 INVCLI 000 0020802090O 16 'L/A CLIENT #' INVCLI 000 0020902100O INVCLI 21 INVCLI 000 0021002110O E 2 20 INVCLI 000 0021102120O OR 2 40 INVCLI 000 0021202130O 13 'CUSTOMER NAME' INVCLI 000 0021302140O 49 'ACCOUNT NUMBER' INVCLI 000 0021402150O 69 'REFERRAL DATE' INVCLI 000 0021502160O 93 'LAST BILLED BALANCE' INVCLI 000 0021602170O E N10N20 INVCLI 000 0021702180O ɫ  3 INVNAM 30 INVCLI 000 0021802190O INVACT 51 INVCLI 000 0021902200O INVDATY 66 INVCLI 000 0022002210O INVBAL1 90 '$' INVCLI 000 0022102220O E 33 10 INVCLI 000 0022202230O 69 'TOTALS PAGE' INVCLI 000 0022302240O E 33 10 INVCLI 000 0022402250O 16 'CLIENT TYPE CODE' INVCLI 000 0022502260O 42 'CLIENT TYPE DESCRIPTION' INVCLI 000 0022602270O 72 'NUMBER OF ACCOUNTS' INVCLI 000 0022702280O 91 'BILLED BALANCE' INVCLI 000 0022802290O E 2 10N11 INVCLI 000 0022902300O TYPE1 9 INVCLI 000 0023002310O N21DESC1 49 INVCLI 000 0023102320O 21 37 '** NO DESCRIPTION' INVCLI 000 0023202330O 21 48 'ON FILE **' INVCLI 000 0023302340O CTR1 65 INVCLI 000 0023402350O BAL1 1 91 '$' INVCLI 000 0023502360O E 2 10N12 INVCLI 000 0023602370O TYPE2 9 INVCLI 000 0023702380O N22DESC2 49 INVCLI 000 0023802390O 22 37 '** NO DESCRIPTION' INVCLI 000 0023902400O 22 48 'ON FILE **' INVCLI 000 0024002410O CTR2 65 INVCLI 000 0024102420O BAL2 1 91 '$' INVCLI 000 0024202430O E 2 10N13 INVCLI 000 0024302440O TYPE3 9 INVCLI 000 0024402450O N23DESC3 49 INVCLI 000 0024502460O 23 37 '** NO DESCRIPTION' INVCLI 000 0024602470O 23 48 'ON FILE **' INVCLI 000 0024702480O CTR3 65 INVCLI 000 0024802490O BAL3 1 91 '$' INVCLI 000 0024902500O E 2 10N14 INVCLI 000 0025002510O TYPE4 9 INVCLI 000 0025102520O N24DESC4 49 INVCLI 000 0025202530O 24 37 '** NO DESCRIPTION' INVCLI 000 0025302540O 24 48 'ON FILE **' INVCLI 000 0025402550O CTR4 65 INVCLI 000 0025502560O BAL4 1 91 '$' INVCLI 000 0025602570O E 2 10N15 INVCLI 000 0025702580O TYPE5 9 INVCLI 000 0025802590O N25DESC5 49 INVCLI 000 0  3.025902600O 25 37 '** NO DESCRIPTION' INVCLI 000 0026002610O 25 48 'ON FILE **' INVCLI 000 0026102620O CTR5 65 INVCLI 000 0026202630O BAL5 1 91 '$' INVCLI 000 0026302640O E 2 10N07 INVCLI 000 0026402650O 43 '- MISCELLANEOUS -' INVCLI 000 0026502660O CTR6 65 INVCLI 000 0026602670O BAL6 1 91 '$' INVCLI 000 0026702680O E 3 10 INVCLI 000 0026802690O 11 'GRAND TOTAL' INVCLI 000 0026902700O TOTCTR 65 INVCLI 000 0027002710O TOTBAL1 91 '$' INVCLI 000 00271/* 02720 000 0027200010H INVCUS 000 00001 X 1 G04 R LA CCS 3.0 SL-149 00350 000 0000200030F* G04 R LA CCS 3.0 SL-149 I00360 000 0000300040F* I00370 000 0000400050F* LEGAL AND AGENCY VERSION 3 I00380 000 0000500060F* DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA I00390 000 0000600070F* COPYRIGHT CONTROL DATA CORPORATION, 1979 I00400 000 0000700080F* I00410 000 0000800090F* THIS PROGRAM USES THE CLIENT INVENTORY FILE 'LACLINV' (SORTED INVCUS 000 0000900100F* BY ACCOUNT #) TO PROVIDE AN INVENTORY REPORT BY CUSTOMER. INVCUS 000 0001000110F* INVCUS 000 0001100120F********************************************************************INVCUS 000 0001200130F* INVCUS 000 0001300140FNULL IP F 2 DISK INVCUS 000 0001400150FLACLINV ID F 80 DISK INVCUS 000 0001500160FPRINT O F 132 PRINTER INVCUS 000 0001600170I* INVCUS 000 0001700180I********************************************************************INVCUS 000 0001800190I* INVCUS 000 0001900200INULL AA 01 INVCUS 000 0002000210ILACLINV AA 01 INVCUS 000 0002100220I 1 16 INVACT INVCUS 000 0002200230I 17 18 INVTYP INVCUS 000 0002300240I 17 20 INVCLI INVCUS 000 0002400250I 21 50 INVNAM INVCUS 000 0002500260I 51 560INVDAT INVCUS 000 0002600270I 57 652INVBAL INVCUS 000 0002700280C* INVCUS 000 0002800290C**********************************************************  3B**********INVCUS 000 0002900300C* INVCUS 000 0003000310C* ****** FUNCTION OF INDICATORS ****** INVCUS 000 0003100320C* INVCUS 000 0003200330C* INDICATOR FUNCTION INVCUS 000 0003300340C* INVCUS 000 0003400350C* 01 RECORD IDENTIFYING IND. INVCUS 000 0003500360C* 10 END-OF-FILE (LACLINV ) INVCUS 000 0003600370C* 40 DETAIL LINE-COUNTER (40 PER PAGE) INVCUS 000 0003700380C* 90 FIRST-TIME-THROUGH IND. INVCUS 000 0003800390C* INVCUS 000 0003900400C* *********** *********** *********** INVCUS 000 0004000410C* INVCUS 000 0004100420C* INITIALIZE VARIABLES INVCUS 000 0004200430C* INVCUS 000 0004300440CLR Z-ADD0 TOTCTR 40 INVCUS 000 0004400450CLR Z-ADD0 TOTBAL 102 INVCUS 000 0004500460CLR Z-ADD0 LINCTR 20 INVCUS 000 0004600470CLR SETON 90 INVCUS 000 0004700480C* INVCUS 000 0004800490C* PROCESS 'LACLINV' RECORDS INVCUS 000 0004900500C* INVCUS 000 0005000510CLR START TAG INVCUS 000 0005100520CLR READ LACLINV 10 INVCUS 000 0005200530CLR 10 GOTO EOJ END-OF-FILE INVCUS 000 0005300540C* INVCUS 000 0005400550C* FOR EACH RECORD PROCESSED: INCREMENT TOTAL-NUMBER-OF-ACCOUNTS INVCUS 000 0005500560C* FIELD AND ADD BALANCE-THIS-RECORD TO TOTAL-BALANCE. INVCUS 000 0005600570C* INVCUS 000 0005700580CLR INVBAL ADD TOTBAL TOTBAL INVCUS 000 0005800590CLR TOTCTR ADD 1 TOTCTR INVCUS 000 0005900600C* INVCUS 000 0006000610C* DETAIL OUTPUT INVCUS 000 0006100620C* INVCUS 000 0006200630CLR LINCTR ADD 1 LINCTR INVCUS 000 0006300640CLR LINCTR COMP 40 40 INVCUS 000 0006400650CLR 40 Z-ADD0 LINCTR INVCUS 000 0006500660CLR EXCPT INVCUS 000 0006600670CLR SETOF 90 INVCUS 000 0006700680CLR GOTO START INVCUS 000 0006800690C* INVCUS 000 0006900700C* END-OF-FILE: PERFORM TOTAL OUTPUT. INVCUS 000 0007000710C*  3V INVCUS 000 0007100720CLR EOJ TAG INVCUS 000 0007200730CLR EXCPT INVCUS 000 0007300740C* INVCUS 000 0007400750O********************************************************************INVCUS 000 0007500760O* INVCUS 000 0007600770OPRINT E 103 40 INVCUS 000 0007700780O OR 103 90 INVCUS 000 0007800790O 21 'LEGAL & AGENCY SYSTEM' INVCUS 000 0007900800O 72 'INVENTORY REPORT' INVCUS 000 0008000810O 126 'PAGE NO.' INVCUS 000 0008100820O PAGE Z 130 INVCUS 000 0008200830O E 40 INVCUS 000 0008300840O OR 90 INVCUS 000 0008400850O 11 'VERSION 3.0' INVCUS 000 0008500860O 69 'BY CUSTOMER' INVCUS 000 0008600870O 117 'RUN DATE:' INVCUS 000 0008700880O UDATE Y 126 INVCUS 000 0008800890O E 3 40 INVCUS 000 0008900900O OR 3 90 INVCUS 000 0009000910O 19 'SYSTEM VERIFICATION' INVCUS 000 0009100920O E 2 40 INVCUS 000 0009200930O OR 2 90 INVCUS 000 0009300940O 13 'CUSTOMER NAME' INVCUS 000 0009400950O 49 'ACCOUNT NUMBER' INVCUS 000 0009500960O 69 'REFERRAL DATE' INVCUS 000 0009600970O 86 'L/A CLIENT #' INVCUS 000 0009700980O 110 'LAST BILLED BALANCE' INVCUS 000 0009800990O E N10 INVCUS 000 0009901000O INVNAM 30 INVCUS 000 0010001010O INVACT 51 INVCUS 000 0010101020O INVDATY 66 INVCUS 000 0010201030O INVCLI 82 INVCUS 000 0010301040O INVBAL1 107 '$' INVCUS 000 0010401050O E 32 10 INVCUS 000 0010501060O 13 'GRAND TOTALS:' INVCUS 000 0010601070O E 10 INVCUS 000 0010701080O 19 'NUMBER OF ACCOUNTS:' INVCUS 000 0010801090O TOTCTR 24 INVCUS 000 0010901100O E 10 INVCUS 000 0011001110O 15 'BILLED BALANCE:' INVCUS 000 0011101120O TOTBAL1 33 '$' INVCUS 000 00112/* n  3j 001130 000 0011300020H LARPRT 000 00001 X 1 G05 R LA CCS 3.0 SL-149 00440 000 0000200040F* G05 R LA CCS 3.0 SL-149 L00450 000 0000300050F* L00460 000 0000400060F* LEGAL AND AGENCY VERSION 3 L00470 000 0000500070F* DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA L00480 000 0000600080F* CREDIT COLLECTION SYSTEM VERSION 2.1 L00490 000 0000700090F* L00500 000 0000800100F* THIS PROGRAM PRINTS THE L/A CLIENT REFERRAL LIST OF ALL LARPRT 000 0000900110F* ACCOUNTS EXTRACTED FROM THE C.C.S. SYSTEM BY THE L/A LARPRT 000 0001000120F* PROGRAM 'LAXTRT'. LARPRT 000 0001100130F* LARPRT 000 0001200140FNULL IP F 2 DISK LARPRT 000 0001300150FLADLQKEYID F 16 DISK LARPRT 000 0001400160FLADLQMSTIC F 2000R16AI 1 DISK LARPRT 000 0001500170FPRINT O F 132 PRINTER LARPRT 000 0001600180FDISPLAY O F 72 CONSOLE LARPRT 000 0001700190E* LARPRT 000 0001800200E ERR 1 1 50 INVALID KEY MSG LARPRT 000 0001900210I* LARPRT 000 0002000220I* ALL INPUT LINES PRECEDED BY '***' ARE NOT LARPRT 000 0002100230I* CURRENTLY BEING USED IN THIS PROGRAM. LARPRT 000 0002200240I* LARPRT 000 0002300250INULL AA 01 LARPRT 000 0002400260ILADLQKEYAA 01 LARPRT 000 0002500270I 1 16 KEY LARPRT 000 0002600280ILADLQMSTAA 01 LARPRT 000 0002700290I 1 16 MACCT LARPRT 000 0002800300I*** 17 17 MSLCD LARPRT 000 0002900310I 18 47 MNAM LARPRT 000 0003000320I 48 77 MADR1 LARPRT 000 0003100330I 78 107 MADR2 LARPRT 000 0003200340I 108 127 MCS LARPRT 000 0003300350I 128 1320MZP LARPRT 000 0003400360I 133 1350MPHN1 LARPRT 000 0003500370I 136 1380MPHN2 LARPRT 000 0003600380I 139 1420MPHN3 LARPRT 000 0003700390I 143 146 MEXT LARPRT 000 0003800400I 147 176 MBNM LARPRT 000 0003900410I 177 206 MBAD LARPRT 000 0004000420I 207 226 MBCS LARPRT 0  3~00 0004100430I 227 2310MBZP LARPRT 000 0004200440I 232 2340MBPH1 LARPRT 000 0004300450I 235 2370MBPH2 LARPRT 000 0004400460I 238 2410MBPH3 LARPRT 000 0004500470I 242 2450MBEX LARPRT 000 0004600480I*** 246 2610MADL LARPRT 000 0004700490I 262 2640MSOC1 LARPRT 000 0004800500I 265 2660MSOC2 LARPRT 000 0004900510I 267 2700MSOC3 LARPRT 000 0005000520I*** 271 274 MQUE LARPRT 000 0005100530I*** 275 2800MNXTC LARPRT 000 0005200540I*** 281 284 MPRI LARPRT 000 0005300550I*** 285 285 MPFG LARPRT 000 0005400560I*** 286 286 MBFG LARPRT 000 0005500570I*** 287 290 MSUP LARPRT 000 0005600580I*** 291 291 MRCD LARPRT 000 0005700590I*** 292 293 MSCD LARPRT 000 0005800600I*** 294 294 MQAS LARPRT 000 0005900610I*** 295 295 MOLS LARPRT 000 0006000620I*** 296 299 MPQU LARPRT 000 0006100630I*** 300 3050MPDQ LARPRT 000 0006200640I*** 306 306 MSTC LARPRT 000 0006300650I 667 696 MP1 LARPRT 000 0006400660I 697 726 MP2 LARPRT 000 0006500670I 727 756 MP3 LARPRT 000 0006600680I*** 757 786 MPAD1 LARPRT 000 0006700690I*** 787 816 MPAD1 LARPRT 000 0006800700I*** 817 836 MPCS LARPRT 000 0006900710I*** 837 8410MPZC LARPRT 000 0007000720I*** 842 8470MLLDT LARPRT 000 0007100730I*** 848 8560MLLAT LARPRT 000 0007200740I 857 8620MSTDT LARPRT 000 0007300750I*** 863 8680MUPDT LARPRT 000 0007400760I 869 8740MCCDT LARPRT 000 0007500770I*** 875 8800MDLDT LARPRT 000 0007600780I 881 8860MOPDT LARPRT 000 0007700790I*** 887 8952MADLQ LARPRT 000 0007800800I*** 896 9042MCBAL LARPRT 000 0007900810I*** 905 9132MPYOF LARPRT 000 0008000820I*** 914 9190MCPGD LARPRT 000 0008100830I*** 920 9282MNPA LARPRT 000 0008200840I*** 929 9372MOAMT   3 LARPRT 000 0008300850I*** 938 9380MCHN LARPRT 000 0008400860I*** 939 946 MTP LARPRT 000 0008500870I*** 947 949 MPTS LARPRT 000 0008600880I 950 9540MBBR LARPRT 000 0008700890I 955 962 MLON LARPRT 000 0008800900I 963 966 MTCD LARPRT 000 0008900910I*** 967 9680MTD3 LARPRT 000 0009000920I*** 969 9700MTD6 LARPRT 000 0009100930I*** 971 9720MTD9 LARPRT 000 0009200940I*** 9731012 MSDF LARPRT 000 0009300950I 101310150MDYDL LARPRT 000 0009400960I*** 10161021 MPPD LARPRT 000 0009500970I*** 102210302MPPA LARPRT 000 0009600980I*** 103110360MTHD LARPRT 000 0009700990I*** 103710380MPPK LARPRT 000 0009801000I*** 103910400MPPB LARPRT 000 0009901010I*** 10411056 MRESV LARPRT 000 0010001020I 105710620LATLA LARPRT 000 0010101030I 106310712LADUE LARPRT 000 0010201040C* LARPRT 000 0010301050CLR START TAG LARPRT 000 0010401060CLR READ LADLQKEY 10 LARPRT 000 0010501070CLR 10 GOTO EOJ LARPRT 000 0010601080CLR KEY CHAINLADLQMST 15 LARPRT 000 0010701090CLR EXCPT LARPRT 000 0010801100CLR GOTO START LARPRT 000 0010901110CLR EOJ TAG LARPRT 000 0011001120O* LARPRT 000 0011101130ODISPLAY E 15 LARPRT 000 0011201140O KEY 16 LARPRT 000 0011301150O ERR 70 LARPRT 000 0011401160OPRINT E 0301 15 LARPRT 000 0011501170O 20 '***** ERROR *****' LARPRT 000 0011601180O 38 'ACCOUNT NUMBER' LARPRT 000 0011701190O KEY 55 LARPRT 000 0011801200O 78 'IS NOT PRESENT IN THE' LARPRT 000 0011901210O 100 'L/A DELINQUENT MASTER' LARPRT 000 0012001220OPRINT E 103 N15 LARPRT 000 0012101230O 19 'LEGAL AGENCY SYSTEM' LARPRT 000 0012201240O 74 'CLIENT REFERRAL LIST' LARPRT 000 0012301250O 127 'PAGE' LARPRT 000 0012401260O PAGE  3 Z 132 LARPRT 000 0012501270O E N15 LARPRT 000 0012601280O 11 'VERSION 2.0' LARPRT 000 0012701290O 122 'RUN DATE:' LARPRT 000 0012801300O UDATE Y 131 LARPRT 000 0012901310O E 2 N15 LARPRT 000 0013001320O 19 'SYSTEM VERIFICATION' LARPRT 000 0013101330O E N15 LARPRT 000 0013201340O 27 'ACCOUNT BANK' LARPRT 000 0013301350O 55 'LOAN AMOUNT TO' LARPRT 000 0013401360O 90 'REFERRED TO:' LARPRT 000 0013501370O 108 '_______________' LARPRT 000 0013601380O 123 '_______________' LARPRT 000 0013701390O E N15 LARPRT 000 0013801400O 29 'NUMBER BRANCH' LARPRT 000 0013901410O 53 'OFFICER COLLECT' LARPRT 000 0014001420O 89 'L/A NUMBER:' LARPRT 000 0014101430O 97 '____' LARPRT 000 0014201440O E N15 LARPRT 000 0014301450O 92 'REFERRAL DATE:' LARPRT 000 0014401460O 99 '/ /' LARPRT 000 0014501470O E 2 N15 LARPRT 000 0014601480O MACCT 16 LARPRT 000 0014701490O MBBR 28 LARPRT 000 0014801500O MLON 31 LARPRT 000 0014901510O LADUE 1 58 '$' LARPRT 000 0015001520O 92 'BY (COLL-ID) :' LARPRT 000 0015101530O 97 '____' LARPRT 000 0015201540O E 2 N15 LARPRT 000 0015301550O 12 'DEBTOR:' LARPRT 000 0015401560O 87 'APPROVAL:' LARPRT 000 0015501570O 105 '____________' LARPRT 000 0015601580O E N15 LARPRT 000 0015701590O 4 'NAME' LARPRT 000 0015801600O MNAM 44 LARPRT 000 0015901610O 98 'REASON FOR REFERRAL:' LARPRT 000 0016001620O E N15 LARPRT 000 0016101630O 9 'ADDRESS-1' LARPRT 000 0016201640O MADR1 44 LARPRT 000 0016301650O E N15 LARPRT 000 0016401660O 9 'ADDRESS-2' LARPRT 000 0016501670O MADR2 44 LARPRT 000 0016601680O \  3 91 '( ) FILE SUIT' LARPRT 000 0016701690O E N15 LARPRT 000 0016801700O 11 'CITY,ST,ZIP' LARPRT 000 0016901710O MCS 34 LARPRT 000 0017001720O MZP 44 LARPRT 000 0017101730O 94 '( ) ATTACH WAGES' LARPRT 000 0017201740O E N15 LARPRT 000 0017301750O 5 'PHONE' LARPRT 000 0017401760O MPHN1 17 LARPRT 000 0017501770O 18 '/' LARPRT 000 0017601780O MPHN2 21 LARPRT 000 0017701790O 22 '-' LARPRT 000 0017801800O MPHN3 26 LARPRT 000 0017901810O 101 '( ) ATTACH BANK ACCOUNT' LARPRT 000 0018001820O E N15 LARPRT 000 0018101830O 9 'SOC SEC #' LARPRT 000 0018201840O MSOC1 17 LARPRT 000 0018301850O 18 '-' LARPRT 000 0018401860O MSOC2 20 LARPRT 000 0018501870O 21 '-' LARPRT 000 0018601880O MSOC3 25 LARPRT 000 0018701890O 94 '( ) SHERIFF SALE' LARPRT 000 0018801900O E N15 LARPRT 000 0018901910O 92 '( ) BANKRUPTCY' LARPRT 000 0019001920O E N15 LARPRT 000 0019101930O 23 'DAYS DATE IN LAST' LARPRT 000 0019201940O 44 'AR DATE ACCT' LARPRT 000 0019301950O 97 '( ) FILE FOR ESTATE' LARPRT 000 0019401960O E N15 LARPRT 000 0019501970O 21 'DELQ CCS UP' LARPRT 000 0019601980O 44 'DATE OPEN TYPE' LARPRT 000 0019701990O 103 'DATE OF DEATH: / /' LARPRT 000 0019802000O E N15 LARPRT 000 0019902010O 98 'LIEN ON PROPERTY' LARPRT 000 0020002020O E N15 LARPRT 000 0020102030O MDYDL 3 LARPRT 000 0020202040O MCCDT Y 16 LARPRT 000 0020302050O MSTDT Y 27 LARPRT 000 0020402060O MOPDT Y 38 LARPRT 000 0020502070O MTCD 44 LARPRT 000 0020602080O 92 '( ) ATTACH ALL' LARPRT 000 0020702090O 109 'AVAILABLE ASSETS' LARPRT=  3 000 0020802100O E N15 LARPRT 000 0020902110O 87 '( ) OTHER' LARPRT 000 0021002120O E 2 N15 LARPRT 000 0021102130O 16 'EMPLOYMENT:' LARPRT 000 0021202140O E N15 LARPRT 000 0021302150O 8 'EMPLOYER' LARPRT 000 0021402160O MBNM 44 LARPRT 000 0021502170O E N15 LARPRT 000 0021602180O 7 'ADDRESS' LARPRT 000 0021702190O MBAD 44 LARPRT 000 0021802200O 90 'GIVE DETAILS' LARPRT 000 0021902210O E N15 LARPRT 000 0022002220O 11 'CITY,ST,ZIP' LARPRT 000 0022102230O MBCS 34 LARPRT 000 0022202240O MBZP 44 LARPRT 000 0022302250O E N15 LARPRT 000 0022402260O 5 'PHONE' LARPRT 000 0022502270O MBPH1 17 LARPRT 000 0022602280O 18 '/' LARPRT 000 0022702290O MBPH2 21 LARPRT 000 0022802300O 22 '-' LARPRT 000 0022902310O MBPH3 26 LARPRT 000 0023002320O 29 'X(' LARPRT 000 0023102330O MBEX 33 LARPRT 000 0023202340O 34 ')' LARPRT 000 0023302350O 79 '*' LARPRT 000 0023402360O E N15 LARPRT 000 0023502370O 79 '*' LARPRT 000 0023602380O E N15 LARPRT 000 0023702390O 23 'PERMANENT COMMENTS' LARPRT 000 0023802400O 79 '*' LARPRT 000 0023902410O E N15 LARPRT 000 0024002420O 79 '*' LARPRT 000 0024102430O E N15 LARPRT 000 0024202440O MP1 30 LARPRT 000 0024302450O E N15 LARPRT 000 0024402460O MP2 30 LARPRT 000 0024502470O E N15 LARPRT 000 0024602480O MP3 30 LARPRT 000 00247** 002490 000 00248WARNING! KEY NOT PRESENT IN L/A DELINQUENT MASTER 002500 000 00249/*  3 002510 000 0025000020H LBATPT 000 00001 X 1 G06 R LA CCS 3.0 SL-149 00530 000 0000200040F* G06 R LA CCS 3.0 SL-149 00540 000 0000300050F* 00550 000 0000400060F* LEGAL AND AGENCY SYSTEM VERSION 3 00560 000 0000500070F* DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA CALIFORNIA 00570 000 0000600080F* COPYRIGHT CONTROL DATA CORPORATION, 1979 00580 000 0000700090F* 00590 000 0000800100F* THIS PROGRAM USES THE OUTPUT FROM THE BATCH UPDATE PROGRAM 000 0000900110F* - LBATUD - TO PRODUCE THE AUDIT TRAIL REPORT WHICH DETAILS 000 0001000120F* THE EFFECT OF EACH FINANCIAL TRANSACTION. ONLY THE FIELDS 000 0001100130F* WHCIH WERE ACTUALLY AFFECTED BY THE TRANSACTIONS ARE SHOWN 000 0001200140F* 000 0001300150FLADUMMY IP F 80 DISK 000 0001400160FLARPTDATISE F 160 DISK 00020 000 0001500170FLAUTIFILIC F 80R 4AI 1 DISK 00030 000 0001600180FPRINT O F 132 OV PRINTER 00040 000 0001700190ILADUMMY AA 01 000 0001800200ILARPTDATAA 12 00050 000 0001900210I 1 16 LACCT 00060 000 0002000220I 17 18 LTC 00070 000 0002100230I 19 272LAMT 00080 000 0002200240I 28 33 LDATE 00090 000 0002300250I 34 37 LCOID 00100 000 0002400260I 38 41 LGNO 00110 000 0002500270I 42 502LDAMT1 00120 000 0002600280I 51 592LDAMT2 00130 000 0002700290I 60 682LCBAL1 00140 000 0002800300I 69 772LCBAL2 00150 000 0002900310I 78 862LRCC1 00160 000 0003000320I 87 952LRCC2 00170 000 0003100330I 96 1042LNRCC1 00180 000 0003200340I 105 1132LNRCC2 00190 000 0003300350I 114 1222LFEE1 00200 000 0003400360I 123 1312LFEE2 00210 000 0003500370I 132 1402LACOL1 00220 000 0003600380I 141 1492LACOL2 00230 000 0003700390I 150 151 LECODE 00240 000 0003800400ILAUTIFILAA 31 00250 000 0003900410I 5 44 HEADER 00260 000 0004000420C***** SET UP REPORT HEADERS 00270 000 0004100430C SETOF  3 11 000 0004200440C 46 GOTO AROUND 00290 000 0004300450C 'HDR1' CHAINLAUTIFIL 32 00300 000 0004400460C N32 MOVE HEADER HDR1 40 00310 000 0004500470C 'HDR2' CHAINLAUTIFIL 32 00320 000 0004600480C N32 MOVE HEADER HDR2 40 00330 000 0004700490C 'HDR3' CHAINLAUTIFIL 32 00340 000 0004800500C N32 MOVE HEADER HDR3 40 00350 000 0004900510C SETON 4611 00360 000 0005000520C GOTO SKIP 000 0005100530C AROUND TAG 00370 000 0005200540C SETON 1013 000 0005300550C LTC COMP '05' 40 000 0005400560C LTC COMP '06' 41 000 0005500570C LTC COMP '07' 42 000 0005600580C LTC COMP '08' 43 000 0005700590C LTC COMP '09' 44 000 0005800600C LECODE COMP 'DN' 21 00380 000 0005900610C 21 GOTO SKIP 00390 000 0006000620C LECODE COMP 'CN' 22 00400 000 0006100630C 22 GOTO SKIP 00410 000 0006200640C LECODE COMP 'BL' 23 00420 000 0006300650C 23 GOTO SKIP 00430 000 0006400660C LECODE COMP 'IM' 24 00440 000 0006500670C 24 GOTO SKIP 00450 000 0006600680C LECODE COMP 'IY' 25 00460 000 0006700690C 25 GOTO SKIP 00470 000 0006800700C LTC COMP ' ' 26 000 0006900710C 26 GOTO SKIP 000 0007000720C LECODE COMP 'BC' 27 000 0007100730C 27 GOTO SKIP 000 0007200740C LECODE COMP 'IS' 28 000 0007300750C 28 GOTO SKIP 000 0007400760C SETOF 10 00480 000 0007500770C SKIP TAG 00490 000 0007600780OPRINT D 101 11 00500 000 0007700790O OR 101 OV 00510 000 0007800800O HDR1 41 00520 000 0007900810O 71 'LEGAL/AGENCY BATCH ' 00530 000 0008000820O 89 'UPDATE AUDIT TRAIL' 00540 000 0008100830O 128 'PAGE' 00550 000 0008200840O PAGE Z 132 00560 000 0008300850O s  3  D 1 11 00570 000 0008400860O OR 1 OV 00580 000 0008500870O HDR2 41 00590 000 0008600880O 61 'AS OF' 00600 000 0008700890O UDATE Y 70 00610 000 0008800900O D 1 11 00620 000 0008900910O OR 1 OV 00630 000 0009000920O HDR3 41 00640 000 0009100930O D 1 11 00650 000 0009200940O OR 1 OV 00660 000 0009300950O 23 '**** TRANSACTIO' 00670 000 0009400960O 46 'N ' 00680 000 0009500970O 69 ' **** **** LAD' 00690 000 0009600980O 92 'LQMST **** **** ' 00700 000 0009700990O 115 ' LACLIENT ' 00710 000 0009801000O 132 ' ****' 00720 000 0009901010O D 1 11 00730 000 0010001020O OR 1 OV 00740 000 0010101030O 85 'AMT DELQ CUR BAL ' 00750 000 0010201040O 109 'R.C.C. N.R.C.C. ' 00760 000 0010301050O 132 'FEE/COMM AMT COL ' 00770 000 0010401060O D 1 11 00790 000 0010501070O OR 1 OV 00800 000 0010601080O 85 'BEFORE BEFORE ' 00810 000 0010701090O 109 'BEFORE BEFORE ' 00820 000 0010801100O 132 'BEFORE BEFORE ' 00830 000 0010901110O D 1 11 00850 000 0011001120O OR 1 OV 00860 000 0011101130O 24 'ACCOUNT NUMBER TC AM' 00870 000 0011201140O 48 'OUNT DATE COID ' 00880 000 0011301150O 55 ' L/A NO' 00890 000 0011401160O 85 'AFTER AFTER ' 00900 000 0011501170O 109 'AFTER AFTER ' 00910 000 0011601180O 132 'AFTER AFTER ' 00920 000 0011701190O D 1 N10 00930 000 0011801200O AND 13 000 0011901210O LACCT 16 00950 000 0012001220O 40 20 '01' 00960 000 0012101230O 41 20 '02' 000 0012201240O 42 20 '03' 000 0012301250O 43 20 '04' 000 0012401260O 44 20 '05'  3 000 0012501270O LAMT J 33 00970 000 0012601280O LDATE 41 00980 000 0012701290O LCOID 47 00990 000 0012801300O LGNO 53 01000 000 0012901310O LDAMT1J 70 01010 000 0013001320O LCBAL1J 82 01020 000 0013101330O LRCC1 J 94 01030 000 0013201340O LNRCC1J 106 01040 000 0013301350O LFEE1 J 118 01050 000 0013401360O LACOL1J 130 01060 000 0013501370O D 2 N10 01070 000 0013601380O AND 13 000 0013701390O LDAMT2J 70 01090 000 0013801400O LCBAL2J 82 01100 000 0013901410O LRCC2 J 94 01110 000 0014001420O LNRCC2J 106 01120 000 0014101430O LFEE2 J 118 01130 000 0014201440O LACOL2J 130 01140 000 0014301450O D 2 10 01150 000 0014401460O AND 13 000 0014501470O LACCT 16 01170 000 0014601480O LTC 20 01180 000 0014701490O LAMT 31 01190 000 0014801500O LDATE 41 01200 000 0014901510O LCOID 47 01210 000 0015001520O LGNO 53 01220 000 0015101530O 21 73 'ACCT# NOT FOUND' 01230 000 0015201540O 22 74 'CLIENT NOT FOUND' 01240 000 0015301550O 23 75 'INVALID CLIENT NO' 01250 000 0015401560O 24 71 'INVALID DATE' 01260 000 0015501570O 25 71 'INVALID DATE' 01270 000 0015601580O 26 76 'REASSIGNMENT TRANS' 000 0015701590O 27 75 'BAD CLIENT RECORD' 000 0015801600O 28 70 'INVALID SIGN' 000 0015901610O T 3 LR 01280 000 0016001620O 80 '*** END OF REPORT ***' 01290 000 00161/* 01630 000 00162 H LCHUD1 000 00001 X 1 G07 R LA CCS 3.0 SL-149 00620 000 00002 F* G07 R LA CCS 3.0 SL-149 00630 000 00003 F* 00640 000 00004 F* LEGAL AND AGENCY VERSION 3 )  32 00650 000 00005 F* DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 00660 000 00006 F* COPYRIGHT CONTROL DATA CORPORATION, 1979 00670 000 00007 F* 00680 000 00008 F* DECK-ID L02 CCS 3.0 SUMMARY-138 00200 000 0000900040F* CHUPD1 000 0001000050F* COPYRIGTH CONTROL DATA CORPORATION, 1978 CHUPD1 000 0001100060F* DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA CHUPD1 000 00012 F* CREDIT COLLECTION SYSTEM VERSION 3.0 00220 000 0001300080F* CHUPD1 000 0001400090F* THIS PROGRAM PREPARES THE INPUT FILE FOR CHUPD2 WHICH CHUPD1 000 0001500100F* UPDATES THE ACTIVE ACCOUNTS MASTER FILES WITH DATA CHUPD1 000 0001600110F* CONTAINED IN THE TAPE ARCHIVES. CHUPD1 000 0001700120F* CHUPD1 000 00018 F**********************************************************138**L/A 00240 000 00019 FLAUPHSCMIP F 20 DISK 00250 000 00020 FLAUTIFILIC F 80R 4AI 1 DISK 00260 000 00021 FLADLQMSTIC F 2000R16AI 1 DISK 00270 000 00022 FLATAPARCIC F 46R16AI 1 DISK 00280 000 00023 FLAUPDREQO F 22 DISK A 00290 000 00024 F**********************************************************138**L/A 00300 000 0002500180FPRINT O F 132 OV PRINTER CHUPD1 000 00026 I**********************************************************138**L/A 00320 000 00027 ILAUPHSCMAA 01 00330 000 00028 I**********************************************************138**L/A 00340 000 0002900200I 1 16 ACCT CHUPD1 000 0003000210I 17 20 SUP CHUPD1 000 00031 I**********************************************************138**L/A 00360 000 00032 ILAUTIFILAA 02 00370 000 00033 I**********************************************************138**L/A 00380 000 0003400230I 5 44 HD CHUPD1 000 00035 I**********************************************************138**L/A 00400 000 00036 ILADLQMSTAA 03 00410 000 00037 I**********************************************************138**L/A 00420 000 0003800250I 18 47 NAME CHUPD1 000 00039 I**********************************************************138**L/A 00440 000 00040 ILATAPARCAA 04 00450 000 00041 I**********************************************************138**L/A 00460 000 0004200270I 17 220TP1 05 CHUPD1 000 0004300280I 23 280TP2 06 CHUPD1 000 0004400290I 29 340TP3 07 CHUPD1 000 0004500300I 35 400TP4 08 CHUPD1 000 0004600310I 2  3F 41 460TP5 09 CHUPD1 000 0004700320C SETOF 902030 CHUPD1 000 0004800330C 10 GOTO ARND CHUPD1 000 0004900340C* RETREIVE THE HEADINGS FROM THE UTILITY FILE CHUPD1 000 00050 C**********************************************************138**L/A 00480 000 00051 C 'HDR1' CHAINLAUTIFIL 11 00490 000 00052 C**********************************************************138**L/A 00500 000 0005300360C N11 MOVE HD HDR1 40 CHUPD1 000 00054 C**********************************************************138**L/A 00520 000 00055 C 'HDR2' CHAINLAUTIFIL 11 00530 000 00056 C**********************************************************138**L/A 00540 000 0005700380C N11 MOVE HD HDR2 40 CHUPD1 000 00058 C**********************************************************138**L/A 00560 000 00059 C 'HDR3' CHAINLAUTIFIL 11 00570 000 00060 C**********************************************************138**L/A 00580 000 0006100400C N11 MOVE HD HDR3 40 CHUPD1 000 0006200410C SETON 1090 CHUPD1 000 0006300420C ARND TAG CHUPD1 000 0006400430C* VERIFY THE MASTER RECORD EXISTS CHUPD1 000 00065 C**********************************************************138**L/A 00600 000 00066 C ACCT CHAINLADLQMST 20 00610 000 00067 C**********************************************************138**L/A 00620 000 0006800450C 20 GOTO END CHUPD1 000 0006900460C* GET THE TAPEARC RECORD WITH THE TAPE DATES CHUPD1 000 00070 C**********************************************************138**L/A 00640 000 00071 C ACCT CHAINLATAPARC 30 00650 000 00072 C**********************************************************138**L/A 00660 000 0007300480C 30 GOTO END CHUPD1 000 0007400490C* CREATE THE TAPE REQUEST RECORDS FOR CHUPD2 CHUPD1 000 0007500500C SETON 40 CHUPD1 000 0007600510C EXCPT CHUPD1 000 0007700520C SETOF 40 CHUPD1 000 0007800530C END TAG CHUPD1 000 00079 O**********************************************************138**L/A 00680 000 00080 OLAUPDREQEADD 40N05 00690 000 00081 O**********************************************************138**L/A 00700 000 0008200550O ACCT 16 CHUPD1 000 0008300560O TP1 22 CHUPD1 000 0008400570O EADD 40N06 CHUPD1 000 0008500580O ACCT 16 CHUPD1 000 0008600590O TP2 22 CHUPD1 000 0008700600O EADD 40N07 CHUPD1 000 000880061Y  3Z0O ACCT 16 CHUPD1 000 0008900620O TP3 22 CHUPD1 000 0009000630O EADD 40N08 CHUPD1 000 0009100640O ACCT 16 CHUPD1 000 0009200650O TP4 22 CHUPD1 000 0009300660O EADD 40N09 CHUPD1 000 0009400670O ACCT 16 CHUPD1 000 0009500680O TP5 22 CHUPD1 000 0009600690OPRINT D 01 90 CHUPD1 000 0009700700O OR 01 OV CHUPD1 000 0009800710O HDR1 40 CHUPD1 000 0009900720O 70 'UPDATE FROM TAPE ARCHIVE' CHUPD1 000 0010000730O 120 'PAGE' CHUPD1 000 0010100740O PAGE Z 125 CHUPD1 000 0010200750O D 1 90 CHUPD1 000 0010300760O OR 1 OV CHUPD1 000 0010400770O HDR2 40 CHUPD1 000 0010500780O 55 'AS OF:' CHUPD1 000 0010600790O UDATE Y 66 CHUPD1 000 0010700800O D 1 90 CHUPD1 000 0010800810O OR 1 OV CHUPD1 000 0010900820O HDR3 40 CHUPD1 000 0011000830O D 21 90 CHUPD1 000 0011100840O OR 21 OV CHUPD1 000 0011200850O 20 'ACCOUNT NUMBER' CHUPD1 000 0011300860O 40 'DATES OF TAPES' CHUPD1 000 0011400870O 56 'TO BE RETREIVED' CHUPD1 000 0011500880O D 1 01 03 04 CHUPD1 000 0011600890O ACCT 21 CHUPD1 000 0011700900O TP1 31 ' / / ' CHUPD1 000 0011800910O TP2 41 ' / / ' CHUPD1 000 0011900920O TP3 51 ' / / ' CHUPD1 000 0012000930O TP4 61 ' / / ' CHUPD1 000 0012100940O TP5 71 ' / / ' CHUPD1 000 0012200950O D 1 01 20 CHUPD1 000 0012300960O ACCT 21 CHUPD1 000 0012400970O 60 'ACCOUNT NOT IN DELQMST' CHUPD1 000 0012500980O 90 '*** ERROR' CHUPD1 000 0012600990O D 1 01 30N20 CHUPD1 000 0012701000O ACCT 21 CHUPD1 000 0012801010O 60 'ACCOUNT NOT IN TAPEARC' CHUPD1 000 0012901020O 90 '*** ERROR' ;  3n CHUPD1 000 0013001030O T 3 LR CHUPD1 000 0013101040O 65 '*** END OF REPORT ***' CHUPD1 000 00132/* 001050 000 00133 H LCOLCG 000 00001 X 1 G08 R LA CCS 3.0 SL-149 00710 000 00002 F* G08 R LA CCS 3.0 SL-149 00720 000 0000300040F* 00730 000 0000400050F* LEGAL AND AGENCY VERSION 3 00740 000 0000500060F* DATA SYSTEMS-LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 00750 000 00006 F* COPYRIGHT CONTROL DATA CORPORATION, 1979 00760 000 0000700080F* 00770 000 0000800090F* PRODUCES THE NON FINANCIAL CHANGE LIST REPORT - 000 0000900100F* ALL CHANGES MADE BY COLLECTOR, CLERICAL, OR SUPERVISOR 000 0001000110F* ARE REPORTED 000 0001100120F* 000 00012 F**********************************************************138**L/A 00790 000 00013 FLATRNSFLIPE F 138 DISK 00800 000 00014 FLAUTIFILIC F 80R 4AI 1 DISK 00810 000 00015 F**********************************************************138**L/A 00820 000 0001600150FPRINT O F 130 OF PRINTER 000 0001700160E HDR 3 40 000 00018 I**********************************************************138**L/A 00840 000 00019 ILATRNSFLAA 01 29 C0 30 C2 00850 000 00020 I**********************************************************138**L/A 00860 000 0002100180I OR 02 000 0002200190I 1 16 TACCT 000 00023 I 17 20 TCID L1 000 0002400210I 31 320TUP 000 0002500220I 33 62 TND 000 0002600230I 63 92 TPN 000 00027 I**********************************************************138**L/A 00880 000 00028 ILAUTIFILAA 41 00890 000 00029 I**********************************************************138**L/A 00900 000 00030 I 5 19 CNAM 00170 000 00031 I 20 20 CINT 00180 000 0003200250I 5 44 HEADER 000 0003300260C 46 GOTO AROUND 000 0003400270C SETON 46 000 00035 C**********************************************************138**L/A 00920 000 00036 C 'HDR1' CHAINLAUTIFIL 47 00930 000 00037 C**********************************************************138**L/A 00940 000 0003800290C N47 MOVEAHEADER HDR,1  3 000 00039 C**********************************************************138**L/A 00960 000 00040 C 'HDR2' CHAINLAUTIFIL 47 00970 000 00041 C**********************************************************138**L/A 00980 000 0004200310C N47 MOVEAHEADER HDR,2 000 00043 C**********************************************************138**L/A 01000 000 00044 C 'HDR3' CHAINLAUTIFIL 47 00100 000 00045 C**********************************************************138**L/A 01020 000 0004600330C N47 MOVEAHEADER HDR,3 000 0004700340C AROUND TAG 000 0004800350C* SET THE SCREEN LABEL FOR THE REPORT - WHICH SCREEN 000 0004900360C* DID THIS ITEM COME FROM 000 00050 C L1 TCID CHAINLAUTIFIL 47 00160 000 0005100370C SETOF 303132 000 0005200380C TUP COMP 90 33 33 000 0005300390C N33 TUP COMP 60 32 32 000 0005400400C N32N33 TUP COMP 30 313031 000 0005500410C 31 TUP SUB 30 TUP 000 0005600420C 32 TUP SUB 60 TUP 000 0005700430OPRINT D 101 OF 000 00058 O OR L1 01 000 0005900450O HDR,1 40 000 0006000460O 69 'COLLECTORS'' CHANGES TO ' 000 0006100470O 77 'ACCOUNTS' 000 0006200480O 120 'PAGE' 000 0006300490O PAGE Z 125 000 0006400500O D 1 OF 000 00065 O OR 1 L1 01 000 0006600520O HDR,2 40 000 0006700530O 59 'AS OF' 000 0006800540O UDATE Y 68 000 0006900550O D 1 OF 000 00070 O OR 1 L1 01 000 0007100570O HDR,3 40 000 00072 O D 12 OF 00220 000 00073 O OR 12 L1 01 00230 000 00074 O 22 'COLLECTOR:' 00240 000 00075 O CINT 25 00250 000 00076 O CNAM 42 00260 000 0007700580O D 12 OF 000 00078 O OR 12 L1 01 000 0007900600O 22 'ACCT NO' 000 0008000620O  3 60 'FIELD CODE-SCREEN' 000 00081 O 79 'NEW DATA' 000 00082 O 114 'OLD DATA' 000 0008300650O D 1 01 000 0008400660O TACCT 26 000 0008500680O TUP 50 000 0008600690O 30 60 'BORROWER' 000 0008700700O 31 60 'COSIGNER' 000 0008800710O 32 62 'SUPERVISOR' 000 00089 O TND 95 000 00090 O TPN 130 000 00091/* 00740 000 00092 H LCOLST 000 00001 X 1 G09 R LA CCS 3.0 SL-149 00800 000 00002 F* G09 R LA CCS 3.0 SL-149 00810 000 0000300040F* 00820 000 0000400050F* LEGAL AND AGENCY VERSION 3 00830 000 0000500060F* DATA SYSTEMS-LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 00840 000 00006 F* COPYRIGHT CONTROL DATA CORPORATION, 1979 00850 000 0000700080F* 00860 000 0000800090F* PRODUCES ANY OF THREE REPORTS : 000 0000900100F* - DAILY COLLECTOR STATISTICS ( U1 ON ) 000 0001000110F* - WEEKLY COLLECTOR STATISTICS ( U2 ON ) 000 0001100120F* - MONTHLY COLLECTOR STATISTICS ( U3 ON ) 000 0001200130F* - ZERO THE DAILY COUNTS ( U4 ON ) 000 0001300140F* - ZERO THE MONTHLY COUNTS ( U5 ON ) 000 0001400150F* THIS REPORT CONTAINS COUNTS OF ALL ACTIONS AND 000 0001500160F* ALL RESULTS THAT THE COLLECTOR HAS USED IN THE 000 0001600170F* REPORT PERIOD. 000 00017 F**********************************************************138**L/A 01110 000 00018 FLACOLSTSUP F 20 7AI 1 DISK 01120 000 00019 FLAUTIFILIC F 80R 4AI 1 DISK 01130 000 00020 F**********************************************************138**L/A 01140 000 0002100200FPRINT O F 132 OV PRINTER COLSTS 000 0002200210E CDE 16 2 COLSTS 000 0002300220E ACD 16 2 COLSTS 000 0002400230E BCD 16 2 COLSTS 000 00025 E RNAM 128 15 00310 000 00026 E RID 128 4 00320 000 00027 E RINT 128 1 00330 000 00028 E ACT 2048 4 0 00340 000 00029 E BCT 2048 4 0 00350 000 00030!  300280E LCT 16 4 0 COLSTS 000 0003100290E TCT 16 5 0 COLSTS 000 00032 E SCT 128 5 0 00370 000 00033 E BNAM 128 15 00380 000 00034 E BID 128 4 00390 000 00035 E BINT 128 1 00400 000 00036 I**********************************************************138**L/A 01160 000 00037 ILAUTIFILAA 01 01170 000 00038 I**********************************************************138**L/A 01180 000 0003900340I 5 44 HD COLSTS 000 0004000350I 5 36 HCD1 COLSTS 000 0004100360I 37 68 HCD2 COLSTS 000 0004200370I 5 19 CNAM COLSTS 000 00043 I 20 20 CINT 00420 000 00044 I**********************************************************138**L/A 01200 000 00045 ILACOLSTSAA 02 1 CA 01210 000 00046 I**********************************************************138**L/A 01220 000 0004700390I OR 03 1 CR COLSTS 000 0004800400I OR 04 COLSTS 000 0004900410I 1 1 AR L2 COLSTS 000 0005000420I 2 5 ID L1 COLSTS 000 0005100430I 6 7 CD COLSTS 000 00052 I 8 110DCNT 61 00120****** 00053 I 12 150WCNT 62 00130****** 00054 I 16 190MCNT 63 00140****** 00055 C SETOF 195465 00150****** 0005600490C 09 GOTO START COLSTS 000 0005700500C* LOCATE HEADERS AND CODES COLSTS 000 00058 C**********************************************************138**L/A 01240 000 00059 C 'HDR1' CHAINLAUTIFIL 10 01250 000 00060 C**********************************************************138**L/A 01260 000 0006100520C 01N10 MOVE HD HDR1 40 COLSTS 000 00062 C**********************************************************138**L/A 01280 000 00063 C 'HDR2' CHAINLAUTIFIL 10 01290 000 00064 C**********************************************************138**L/A 01300 000 0006500540C 01N10 MOVE HD HDR2 40 COLSTS 000 00066 C**********************************************************138**L/A 01320 000 00067 C 'HDR3' CHAINLAUTIFIL 10 01330 000 00068 C**********************************************************138**L/A 01340 000 0006900560C 01N10 MOVE HD HDR3 40 COLSTS 000 0007000570C SETOF 01 COLS S 000 0007100580C SETON 09 M  3z,ALz,O CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm O1'' ',',',' EMC O0T' ',1,',',' EMC O0T' ',2,',',' EMC O0T' ',3,',',' EMC O0T' ',4,',',' EMC O0T' ',5,',',' EMC O0T' ',6,',',' EMC O0T' ',7,',',' EMC O0T' ',0,',',' EMC IFC =====',EQ,====== VFD N8/4,N2/0,X3/',X3/' VFD N4/',N4/',N8/0 PCO 2 VFD X16/' I0 IFC A,NE,A EIF I5 IFC ',EQ, IFC (((((',EQ,(((((( VFD N8/4,N1/1,N1/1,X3/',X3/' I1 IFC A,NE,A EIF VFD X8/4,X1/1,X1/0,X3/',X3/' EIF I1 VFD X4/',X4/' PCO 2 VFD X16/'-*-2 I0 IFC A,NE,A EIF I5 I6 IFC ',EQ,* b  3z@ IFC (((((',EQ,(((((( VFD N8/4,N1/1,N1/1,X3/',X3/' I2 IFC A,NE,A EIF VFD X8/4,X1/1,X1/0,X3/',X3/' EIF I2 IFR '-*,LT,128 IFR '-*,GT,-128 PCO 1 VFD X4/',X4/',X8/'-*-1 I0 IFC A,NE,A EIF I6 I7 IFC ',EQ,+ VFD X8/4,X1/0,X1/1,X3/',X3/' VFD X4/',X4/' PCO 2 IFC (((((',EQ,(((((( VFD N1/1,X15/' I3 IFC A,NE,A EIF VFD X1/0,X15/' EIF I3 I0 IFC A,NE,A EIF I7 I8 IFC ',EQ,- IFR ',LT,256 IFC (((((',EQ,(((((( VFD N8/4,N1/0,N1/1,X3/',X3/' I4 IFC A,NE,A EIF VFD X8/4,X1/0,X1/0,X3/',X3/' EIF I4 PCO 1 VFD X4/',X4/',X8/' I0 IFC A,NE,A EIF I8 EIF I0 PCO 0 EMC  3zT IFR ',LT,16 IFR ',GT,-1 IFR ',GT,0 IFR '+2,GT,' I5 IFC ',EQ, IFC (((((',EQ,(((((( VFD N8/5,N1/1,N1/1,X3/',X3/' I1 IFC A,NE,A EIF VFD N8/5,X1/1,X1/0,X3/',X3/' EIF I1 VFD X4/',X4/'-1 PCO 2 VFD X16/'-*-2 I0 IFC A,NE,A EIF I5 I6 IFC ',EQ,* IFC (((((',EQ,(((((( VFD N8/5,N1/1,N1/1,X3/',X3/' I2 IFC A,NE,A EIF VFD N8/5,X1/1,X1/0,X3/',X3/' EIF I2 IFR '-*,LT,128 IFR '-*,GT,-128 PCO 1 VFD X4/',X4/'-1,X8/'-*-1 I0 IFC A,NE,A EIF I6 I7 IFC ',EQ,+ VFD N8/5,X1/0,X1/1,X3/',X3/' VFD X4/',X4/'-1 IFC (((((',EQ,(((((( PCO 2 VFD N1/1,X15/' I3 IFC A,NE,A EIF VFD X1/0,X15/' EIF I3 I0 IFC A,NE,A   3zh EIF I7 I8 IFC ',EQ,- IFC (((((',EQ,(((((( VFD N8/5,X1/0,X1/1,X3/',X3/' I4 IFC A,NE,A EIF VFD N8/5,X1/0,X1/0,X3/',X3/' EIF I4 VFD X4/',X4/'-1,X8/' I0 IFC A,NE,A EIF I8 EIF I0 PCO 0 EMC VFD X8/',X3/',X2/',X3/' EMC IFR ',LT,16 IFR ',GT,-16 VFD N8/0,X2/',X2/',X4/' EMC O4' ',',' EMC O0OIS ',',',0 EMC O0OIS ',',',1 EMC O0OIS ',',',2 EMC O0OIS ',',',3 EMC O0OIS ',',',4 EMC O0OIS ',',',5 EMC O0OIS ',',',6 EMC O0OIS ',',',7 EMC O3'' ',',',' EMC S  3z| O0G' ',',',0,' EMC O0G' ',',',1,' EMC O0G' ',',',2,' EMC O0G' ',',',3,' EMC O0G' ',',',4,' EMC O0G' ',',',5,' EMC O0G' ',',',6,' EMC O0G' ',',',7,' EMC O1'' ',0,',' EMC O1'' ',1,',' EMC O1'' ',2,',' EMC O1'' ',3,',' EMC O1'' ',4,',' EMC O1'' ',5,',' EMC O1'' ',6,',' EMC O1'' ',7,',' EMC O1'' ',7,5,0 EMC O1'' ',1,5,0 EMC O1'' ',2,5,0 EMC O1'' ',3,5,0 EMC #  3z O1'' ',4,5,0 EMC O1'' ',5,5,0 EMC O1'' ',6,5,0 EMC O1'' ',0,5,0 EMC O1'' ',7,8,0 EMC O1'' ',1,8,0 EMC O1'' ',2,8,0 EMC O1'' ',3,8,0 EMC O1'' ',4,8,0 EMC O1'' ',5,8,0 EMC O1'' ',6,8,0 EMC O1'' ',7,9,0 EMC O1'' ',1,9,0 EMC O1'' ',2,9,0 EMC O1'' ',3,9,0 EMC O1'' ',4,9,0 EMC O1'' ',5,9,0 EMC O1'' ',6,9,0 EMC O1'' ',7,10,0 EMC O1'' ',1,10,0 EMC S  3z O1'' ',2,10,0 EMC O1'' ',3,10,0 EMC O1'' ',4,10,0 EMC O1'' ',5,10,0 EMC O1'' ',6,10,0 EMC O1'' ',7,13,0 EMC O1'' ',1,13,0 EMC O1'' ',2,13,0 EMC O1'' ',3,13,0 EMC O1'' ',4,13,0 EMC O1'' ',5,13,0 EMC O1'' ',6,13,0 EMC O1'' ',7,12,0 EMC O1'' ',1,12,0 EMC O1'' ',2,12,0 EMC O1'' ',3,12,0 EMC O1'' ',4,12,0 EMC O1'' ',5,12,0 EMC O1'' ',6,12,0 EMC O1'' ',7,12,1 EMC `  3z O1'' ',1,12,1 EMC O1'' ',2,12,1 EMC O1'' ',3,12,1 EMC O1'' ',4,12,1 EMC O1'' ',5,12,1 EMC O1'' ',6,12,1 EMC O1'' ',7,14,0 EMC O1'' ',1,14,0 EMC O1'' ',2,14,0 EMC O1'' ',3,14,0 EMC O1'' ',4,14,0 EMC O1'' ',5,14,0 EMC O1'' ',6,14,0 EMC O1'' ',7,10,1 EMC O1'' ',1,10,1 EMC O1'' ',2,10,1 EMC O1'' ',3,10,1 EMC O1'' ',4,10,1 EMC O1'' ',5,10,1 EMC O1'' ',6,10,1 EMC Q  3z O1'' ',7,13,1 EMC O1'' ',1,13,1 EMC O1'' ',2,13,1 EMC O1'' ',3,13,1 EMC O1'' ',4,13,1 EMC O1'' ',5,13,1 EMC O1'' ',6,13,1 EMC 01'' ',1,8,1 EMC O1'' ',2,8,1 EMC O1'' ',3,8,1 EMC O1'' ',4,8,1 EMC O1'' ',5,8,1 EMC O1'' ',6,8,1 EMC O1'' ',7,8,1 EMC O1'' ',1,9,1 EMC O1'' ',2,9,1 EMC O1'' ',3,9,1 EMC O1'' ',4,9,1 EMC O1'' ',5,9,1 EMC O1'' ',6,9,1 EMC nT  3z O1'' ',7,9,1 EMC O1'' ',1,11,0 EMC O1'' ',2,11,0 EMC O1'' ',3,11,0 EMC O1'' ',4,11,0 EMC O1'' ',5,11,0 EMC O1'' ',6,11,0 EMC O1'' ',7,11,0 EMC O1'' ',1,11,1 EMC O1'' ',2,11,1 EMC O1'' ',3,11,1 EMC O1'' ',4,11,1 EMC O1'' ',5,11,1 EMC O1'' ',6,11,1 EMC O1'' ',7,11,1 EMC O1'' ',1,14,1 EMC O1'' ',2,14,1 EMC O1'' ',3,14,1 EMC O1'' ',4,14,1 EMC O1'' ',5,14,1 EMC  3z O1'' ',6,14,1 EMC O1'' ',7,14,1 EMC O2'' ',',14,3 EMC O2'' ',',12,2 EMC O2'' ',',12,3 EMC O2'' ',',14,2 EMC O0OIR 7,0,1,' EMC O0OIR 7,0,2,' EMC O0OIR 7,0,3,' EMC O0OIR 7,0,4,' EMC O0OIR 7,0,5,' EMC O0OIR 7,0,6,' EMC O0OIR 7,0,7,' EMC O0OSRX 0,1,' EMC O0OSRX 0,2,' EMC O0OSRX 0,3,' EMC O0OSRX 0,0,' EMC O0OSRX 1,1,' EMC O0OSRX 1,2,' EMC O0OSRX 1,3,' EMC T  3{ O0OSRX 1,0,' EMC O0OSRX 3,1,' EMC O0OSRX 3,2,' EMC O0OSRX 3,3,' EMC O0OSRX 3,0,' EMC O0OSRX 2,1,' EMC O0OSRX 2,2,' EMC O0OSRX 2,3,' EMC O0OSRX 2,0,' EMC O3'' ',',',4 EMC O3'' ',',',5 EMC O3'' ',',',2 EMC O3'' ',',',3 EMC O3'' ',',',6 EMC O3'' ',',',7 EMC O0OSB ',1 EMC O0OSB ',2 EMC O0OSB ',3 EMC O0OSB ',4 EMC O0OSB ',5 EMC Ċ  3{ O0OSB ',6 EMC O0OSB ',7 EMC IFR ',GT,-16 IFR ',LT,16 IFA ',LT,0 VFD X8/6,X3/',X1/0,X4/-' I0 IFC A,NE,A EIF VFD X8/6,X3/',X1/0,X4/' EIF I0 EMC IFC ',EQ, O0EX I0 IFC A,NE,A EIF IFC ',EQ,I O01 7,' I0 IFC A,NE,A EIF IFC ',EQ,A O01 6,' I0 IFC A,NE,A EIF IFC ',EQ,Q O01 5,' I0 IFC A,NE,A EIF IFA ',GT,4 O0EX I0 IFC A,NE,A EIF IFA ',LT,1 O0EX I0 IFC A,NE,A EIF O01 ',' EIF I0  3{0 EMC VFD X8/11,X3/',X1/0,X4/' EMC VFD X8/11,X4/0,X4/4 EMC O00 ',0 EMC O00 ',1 EMC O00 ',2 EMC O00 ',3 EMC O00 ',4 EMC O00 ',5 EMC VFD N8/11,N8/10 EMC VFD N8/11,N8/11 EMC VFD N8/11,N8/12 EMC VFD N8/11,N8/13 EMC VFD N16/0 VFD N16/0,N16/0 EMC VFD N8/11,N8/8 EMC VFD N8/11,N8/9 EMC VFD X8/11,X4/0,X4/2 PCO 1 VFD X1/0,X15/' PCO 0 EMC  3{D VFD X8/11,X4/0,X4/3 PCO 1 VFD X1/0,X15/' PCO 0 EMC VFD N8/11,N8/1 EMC VFD N8/11,N8/7 EMC VFD N8/11,N8/6 EMC VFD N8/11,N8/5 EMC IIN 0 RTJ- ($BB) VOLATILE ASSIGN ADC '+3 LDA* ' STA- 3,I SAVE RETURN EIN 0 EMC IIN 0 LDA- 3,I RETRIEVE RETURN FROM VOLATILE IFC ',NE, INA ' BUMP RETURN BY ' IF SPECIFIED EIF STA' ' RESTORE RETURN ADDRESS RTJ- ($BA) RELEASE VOLATILE EIN 0 JMP' (') RETURN EMC EXT HEXDEC RTJ+ HEXDEC HEX TO ASCII DECIMAL CONV. ADC' ' VARIABLE ADDRESS ' ADC' ' BUFFER ADDRESS ' 3 WORDS EMC EXT HEXASC RTJ+ HEXASC HEX TO ASCII CONV.   3{X ADC' ' VARIABLE ADDRESS ' ADC' ' BUFFER ADDRESS ' 2 WORDS EMC EXT ENCODE RTJ+ ENCODE ENCODE FOR OUTPUT ADC' ' OUTPUT BUF ADC' ' FORMAT STATEMENT ADC' ' NO VARIABLES ADC' ' VARIABLE LIST IFC ',NE, SAZ 2 JMP ' EIF EMC EXT DECODE RTJ+ DECODE DECODE INPUT ADC' ' INPUT BUFFER ADC' ' GORMAT STATEMENT ADC' ' NUMBER VARIABLES ADC' ' VARIABLE LIST IFC ',NE SAZ 2 JMP ' GO TO ERROR PROCESSOR EIF EMC EXT DECHEX RTJ+ DECHEX ADC' ' BUFFER ADDRESS 3 WORDS ADC' ' VARIABLE ADDRESS EMC EXT ASCII RTJ+ ASCII ADC' ' BUFFER ADDRESS 2 WORDS ADC' ' VARIABLE ADDRESS EMC s  3{l EXT FLOATG RTJ+ FLOATG CONVERT TO S.XXXXXXESNN ADC' ' ADDRESS FLOATING VARIABLE 2 WORDS ADC' ' ADDRESS OUT BUFFER 6 WORDS EMC LDA- $E8 137*A002 IFC ',NE, STA' ' EIF EMC FN' ADC ' MR' ADC ' IFC ',EQ, LU' ADC 8 EIF IFC ',NE, LU' ADC ' EIF RB' BZS RB'(12) RI' BZS RI'(1) NK' ADC ' KL' ADC ' FC' ADC ' RL' ADC ' RP' ADC 0,0 EMC EXT DEFFIL RTJ+ DEFFIL DEFINE A FILE ' ADC' FN',MR',LU',RB',RI' EMC EXT DEFIDX RTJ+ DEFIDX DEFINE INDEXED ADC' FN',NK',KL',LU',RB',RI' EMC EXT LOKFIL LDA =X* STA FC' RTJ+ LOKFIL LOCK FILE '  3{ ADC' FN',FC',RB',RI' EMC EXT UNLFIL RTJ+ UNLFIL UNLOCK FILE ' ADC' FN',FC',RB',RI' EMC EXT RELFIL RTJ+ RELFIL RELEASE FILE ' ADC' FN',RB',RI' EMC EXT STOSEQ IFC ',NE, LDA =X' STA RL' EIF RTJ+ STOSEQ STORE IN SEQUENTIAL FILE ' ADC' FN',RP',',RL',RB',RI' EMC EXT RTVSEQ RTJ+ RTVSEQ RETRIEVE FROM SEQUENTIAL ' ADC' FN',FC',RP',',RL',RB',RI' EMC EXT STOIDX RTJ+ STOIDX STORE INDEXED ' ADC' FN',',RP',',RL',RB',RI' EMC EXT RTVIDX RTJ+ RTVIDX RETRIEVE INDEXED ' ADC' FN',',FC',RP',',RL',RB',RI' EMC EXT RTVIDO RTJ+ RTVIDO RETRIEVE INDEXED ORDERED ' ADC' FN',',FC',RP',',RL',RB',RI' EMC EXT STODIR RTJ+ STODIR STORE DIRECT ' ADC' FN',FC',RP',',RB',RI' EMC EXT RTVDIR 85*2670 RTJ+ RTVDIR RETRIEVE DIRECT '   3{ ADC' FN',FC',RP',',RL',RB',RI' EMC LDA RI' STATUS A FILE IFC ',NE, AND' ' MASK STATUS EIF IFC ',NE, SAZ 2 NOTHING TRUE JMP ' JUMP IF ANY SET EIF EMC RTJ- ($F4) IFC ' ,EQ, VFD N1/0,X1/' ,N5/4,N1/0,X4/',X4/' EIF I3 IFC ' ,NE, IFC ' ,EQ,0 VFD N1/0,X1/' ,N5/4,N1/0,X4/',X4/' EIF I3 IFC ' ,NE,0 VFD N1/0,X1/' ,N5/4,N1/1,X4/',X4/' EIF I3 ADC ',0 I1 IFC ',NE,B IFC ' ,EQ,R VFD N3/0,N1/1,N2/1,X10/' EIF I1 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/1,N2/2,X10/' EIF I1 IFC ' ,NE,I VFD N3/0,N1/1,N2/0,X10/' EIF I1 I2 IFC ',EQ,B IFC ' ,EQ,R VFD N3/0,N1/0,N2/1,X10/' EIF I2 IFC ' ,NE,R [D  3{ IFC ' ,EQ,I VFD N3/0,N1/0,N2/2,X10/' EIF I2 IFC ' ,NE,I VFD N3/0,N1/0,N2/0,X10/' EIF I2 ADC ',' EMC RTJ- ($F4) IFC ' ,EQ, VFD N1/0,X1/' ,N5/6,N1/0,X4/',X4/' EIF I3 IFC ' ,NE, IFC ' ,EQ,0 VFD N1/0,X1/' ,N5/6,N1/0,X4/',X4/' EIF I3 IFC ' ,NE,0 VFD N1/0,X1/' ,N5/6,N1/1,X4/',X4/' EIF I3 ADC ',0 I1 IFC ',NE,B IFC ' ,EQ,R VFD N3/0,N1/1,N2/1,X10/' EIF I1 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/1,N2/2,X10/' EIF I1 IFC ' ,NE,I VFD N3/0,N1/1,N2/0,X10/' EIF I1 I2 IFC ',EQ,B IFC ' ,EQ,R VFD N3/0,N1/0,N2/1,X10/' EIF I2 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/0,N2/2,X10/' EIF I2 IFC ' ,NE,I  3{ VFD N3/0,N1/0,N2/0,X10/' EIF I2 ADC ',' EMC RTJ- ($F4) IFC ',EQ, VFD N1/0,X1/',N5/3,N1/0,N8/0 EIF I3 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/',N5/3,N1/0,N8/0 EIF I3 IFC ',NE,0 VFD N1/0,X1/',N5/3,N1/1,N8/0 EIF I3 IFC ',EQ,R VFD N4/0,N2/1,X10/' EIF I1 IFC ',NE,R IFC ',EQ,I VFD N4/0,N2/2,X10/' EIF I1 IFC ',NE,I VFD N4/0,N2/0,X10/' EIF I1 ADC ' EMC RTJ- ($F4) IFC ' ,EQ, VFD N1/0,X1/' ,N5/1,N1/0,X4/',X4/' EIF I3 IFC ' ,NE, IFC ' ,EQ,0 VFD N1/0,X1/' ,N5/1,N1/0,X4/',X4/' EIF I3 IFC ' ,NE,0 VFD N1/0,X1/' ,N5/1,N1/1,X4/',X4/' EIF I3 ADC ',0 }%  3{I1 IFC ',NE,B IFC ' ,EQ,R VFD N3/0,N1/1,N2/1,X10/' EIF I1 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/1,N2/2,X10/' EIF I1 IFC ' ,NE,I VFD N3/0,N1/1,N2/0,X10/' EIF I1 I2 IFC ',EQ,B IFC ' ,EQ,R VFD N3/0,N1/0,N2/1,X10/' EIF I2 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/0,N2/2,X10/' EIF I2 IFC ' ,NE,I VFD N3/0,N1/0,N2/0,X10/' EIF I2 ADC ',' EMC RTJ- ($F4) IFC ' ,EQ, VFD N1/0,X1/' ,N5/2,N1/0,X4/',X4/' EIF I3 IFC ' ,NE, IFC ' ,EQ,0 VFD N1/0,X1/' ,N5/2,N1/0,X4/',X4/' EIF I3 IFC ' ,NE,0 VFD N1/0,X1/' ,N5/2,N1/1,X4/',X4/' EIF I3 ADC ',0 I1 IFC ',NE,B IFC ' ,EQ,R VFD N3/0,N1/1,N2/1,X10/' EIF  3{I1 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/1,N2/2,X10/' EIF I1 IFC ' ,NE,I VFD N3/0,N1/1,N2/0,X10/' EIF I1 I2 IFC ',EQ,B IFC ' ,EQ,R VFD N3/0,N1/0,N2/1,X10/' EIF I2 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/0,N2/2,X10/' EIF I2 IFC ' ,NE,I VFD N3/0,N1/0,N2/0,X10/' EIF I2 ADC ',' EMC RTJ- ($F4) IFC ',EQ,1 VFD N2/0,N5/16,N8/0 ADC ' EIF 0 81*2071 IFC ',NE,1 81*2071 ADC (') 81*2071 EIF 0 81*2071 EMC RTJ- ($F4) VFD N1/0,N6/5,N1/0,N8/0 EMC RTJ- ($F4) VFD N1/0,N6/11,N1/0,N8/0 EMC RTJ- ($F4) VFD N1/0,N6/7,N1/0,N8/0 j  3{ EMC RTJ- ($F4) VFD N2/0,N5/19,N1/0,N4/15,N4/15 ADC ' EMC RTJ- ($F4) VFD N2/0,N5/19,N1/0,N4/0,N4/0 ADC ' EMC RTJ- ($F4) IFC ',EQ, VFD N1/0,X1/',N5/9,N1/0,N4/0,X4/' EIF I3 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/',N5/9,N1/0,N4/0,X4/' EIF I3 IFC ',NE,0 VFD N1/0,X1/',N5/9,N1/1,N4/0,X4/' EIF I3 ADC ' EMC RTJ- ($F4) IFC ',EQ, VFD N2/0,N5/15,N1/0,X4/',X4/' EIF I3 IFC ',NE, IFC ',EQ,0 VFD N2/0,N5/15,N1/0,X4/',X4/' EIF I3 IFC ',NE,0 VFD N2/0,N5/15,N1/0,X4/',X4/' EIF I3 ADC ',' EMC RTJ- ($F4) IFC ',EQ, g  3|  VFD N1/0,X1/',N5/8,N1/0,X4/',X4/' EIF I3 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/',N5/8,N1/0,X4/',X4/' EIF I3 IFC ',NE,0 VFD N1/0,X1/',N5/8,N1/1,X4/',X4/' EIF I3 ADC ',' EMC RTJ- ($F4) IFC ',EQ, VFD N1/0,X1/' ,N5/13,N1/0,X4/',X4/' EIF I3 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/' ,N5/13,N1/0,X4/',X4/' EIF I3 IFC ',NE,0 VFD N1/0,X1/' ,N5/13,N1/1,X4/',X4/' EIF I3 ADC ',0 ADC $8C2,',' ADC ',' EMC RTJ- ($F4) IFC ',EQ, VFD N1/0,X1/',N5/10,N1/0,X4/',X4/' EIF I3 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/',N5/10,N1/0,X4/',X4/' EIF I3 IFC ',NE,0 VFD N1/0,X1/',N5/10,N1/1,X4/',X4/' EIF I3 ADC ',0,0,' C  3|  EMC RTJ- ($F4) I1 IFC ',EQ, IFC ',EQ, VFD N1/0,X1/',N5/12,N9/0 EIF I1 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/',N5/12,N9/0 EIF I1 IFC ',NE,0 VFD N1/0,X1/',N5/12,N8/0,N1/1 EIF I1 I2 IFC ',NE, I1 IFC ',EQ,0 IFC ',EQ, VFD N1/0,X1/',N5/12,N9/0 EIF I1 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/',N5/12,N9/0 EIF I1 IFC ',NE,0 VFD N1/0,X1/',N5/12,N8/0,N1/1 EIF I1 I2 IFC ',NE,0 IFC ',EQ, VFD N1/0,X1/',N5/12,N1/1,N8/0 EIF I2 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/',N5/12,N1/1,N8/0 EIF I2 IFC ',NE,0 VFD N1/0,X1/',N5/12,N1/1,N7/0,N1/1 EIF I2 ADC ' EMC   3|4 RTJ- ($F4) IFC ',EQ, VFD N1/0,X1/',N5/17,N1/0,X4/',X4/' EIF I3 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/',N5/17,N1/0,X4/',X4/' EIF I3 IFC ',NE,0 VFD N1/0,X1/',N5/17,N1/1,X4/',X4/' EIF I3 ADC ',0,0,',' EMC RTJ- ($F4) IFC ' ,EQ, VFD N1/0,X1/' ,N5/14,N1/0,X4/',X4/' EIF I3 IFC ' ,NE, IFC ' ,EQ,0 VFD N1/0,X1/' ,N5/14,N1/0,X4/',X4/' EIF I3 IFC ' ,NE,0 VFD N1/0,X1/' ,N5/14,N1/1,X4/',X4/' EIF I3 ADC ',0 I1 IFC ' ,NE,B IFC ' ,EQ,R VFD N3/0,N1/1,N2/1,X10/' EIF I1 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/1,N2/2,X10/' EIF I1 IFC ' ,NE,I VFD N3/0,N1/1,N2/0,X10/' EIF I1 I2 IFC ' ,EQ,B IFC ' ,EQ,R VFD N3/0,N1/0,N2/1,X10/'  3|H EIF I2 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/0,N2/2,X10/' EIF I2 IFC ' ,NE,I VFD N3/0,N1/0,N2/0,X10/' EIF I2 IFC ',NE,R VFD X4/',X4/',X4/',X4/' EIF IFC ',EQ,R VFD N1/1,X3/',X12/' EIF EMC RTJ- ($F4) VFD N2/0,N5/18,N5/0,X4/' ADC ' EMC NLS IFC ',NE, EQU ' (') EIF 0 IFC ',EQ, IS THERE A PRIORITY EQU ' (0) NO EIF 0 IFC ',NE, EQU ' (') REPEAT MANY TIMES EIF 0 IFC ',EQ, EQU ' (1) REPEAT ONLY ONE TIME EIF 0 EQU ' ('*$1000+' ) SET UP NUM OF TIMES REPEATED IFC ',EQ, NO COMPLETION EQU ' (' *16+' +$5C00) EIF 0 C0 IFC ',NE, COMPLETION YES 88*2712 IFC ',EQ,* RELATIVE COMPLETION EQU ' (' *16+' +$1D00) 81*2057N  3|\ EIF 0 IFC ',EQ, ABS COMPLETION EQU ' (' *16+' +$5C00) EIF 0 EIF C0 88*2712 LST RTJ- ($F4) ADC ' NLS IFC ',EQ, LST ADC 0 COMPLETION NLS EIF 0 C1 IFC ',NE, IS THERE A COMPLETION ADDRESS 88*2712C2 IFC ',EQ,* IS IT RELATIVE 88*2712 LST ADC '-*+1 COMPLETION NLS EIF C2 88*2712C3 IFC ',EQ, 137*4266 LST ADC ' COMPLETION NLS EIF C3 88*2712 EIF C1 88*2712 LST NUM 0 THREAD NLS IFC ',EQ, IT IS THE LOGICAL UNIT LST ADC $0000+' NLS EIF 0 IFC ',EQ,R A RELATIVE DISTANCE LST VFD N6/1,X10/'-*+3 RELATIVE NLS EIF 0 IFC ',EQ,I A ABS CORE LOCATION (  3|p LST VFD N6/2,X10/' ABS CORE LOCATION NLS EIF 0 LST ADC (' ) REPEAT TIMES N EMC NLS MOT' ',',',',',1 EMC NLS MOT' ',',',',',2 EMC NLS MOT' ',',',',',3 EMC NLS MOT' ',',',',',4 EMC NLS MOT' ',',',',',5 EMC NLS MOT' ',',',',',6 EMC NLS MOT' ',',',',',7 EMC LST JMP- ($EA) EMC q  3| SPC 1 EXT ISBUFR,CBWRIT,CBREAD,BOUTC SPC 1 NUM $520A 00 SCHEDULER CALL ADC ISBUFR 01 INITIATOR ADDRESS ADC 0 02 CONTINUATOR ADDRESS - NOT USED ADC 0 03 TIMEOUT ERROR ADDRESS - NOT USED NUM -1 04 DIAGNOSTIC CLOCK - NOT USED NUM 0 05 LOGICAL UNIT ADC 0 06 PARAMETER LOCATION NUM 0 07 CONVERTER, EQUIPMENT, STATION - NONE NUM $00A4 08 REQUEST STATUS NUM 0 09 DRIVER STATUS NUM 0 10 CURRENT LOCATION NUM 0 11 LAST LOCATION PLUS ONE NUM 0 12 DEVICE STATUS - NOT USED NUM 0 13 RESERVED NUM $7FFF 14 RESERVED NUM 0 15 RESERVED FOR FNR AND CMR ADC ' 16 LSB START OF BUFFER ADC ' 17 LSB END OF BUFFER ADC ' 18 CURRENT LSB START OF BUFFER ADC ' 19 CURRENT LSB END OF BUFFER NUM $44AA 20 MASS MEMORY WRITE REQUEST (UNFORMATTED) ADC CBWRIT 21 MASS MEMORY WRITE COMPLETION NUM 0 22 THREAD ADC ' 23 MASS MEMORY LOGICAL UNIT NUM 0 24 NUMBER OF WORDS NUM 0 25 STARTING DATA LOCATION ADC ' 26 MSB ADDRESS ADC ' 27 LSB ADDRESS NUM 0 28 CONTROL WORD NUM $42AA 29 MASS MEMORY READ REQUEST (UNFORMATTED) ADC CBREAD 30 MASS MEMORY READ COMPLETION NUM 0 31 THREAD ADC ' 32 MASS MEMORY LOGICAL UNIT NUM 0 33 NUMBER OF WORDS ADC ' 34 STARTING LOCATION (CHARACTER BUFFER) ADC ' 35 MSB ADDRESS ADC ' 36 LSB ADDRESS   3| NUM 0 37 PARTIAL WORD OUTPUT FLAG NUM $4CAA 38 BUFFER WRITE REQUEST (FORMATTED) ADC BOUTC 39 BUFFER WRITE COMPLETION NUM 0 40 THREAD ADC ' 41 OUTPUT LOGICAL UNIT NUM 0 42 NUMBER OF WORDS ADC ' 43 STARTING LOCATION (CHARACTER BUFFER) ADC ' 44 CHARACTER BUFFER SIZE BZS '(') 45 CHARACTER BUFFER EMC O0S O11 `O12 O13  O14 O1Q O1A @O1I O1 O0T `O0G O0OIS O0OSRX O0OIR O4 @O41 O42 O43 `O44 O4Q  O4A O4I O0F @O3 O31 O32 `O33 O34  O3Q O3A O3I  @O2  O21 !O22 !`O23 !O24 " O2Q "O2A "O2I #@SJI #SJ1 $SJ2 $`SJ3 $SJ4 % SJQ %SJA %SJE &@ARI &AR1 'AR2 '`AR3 'AR4 ( ARQ (ARA (SBI )@SB1 )SB2 *SB3 *`SB4 *SBQ + SBA +ANI +AN1 ,@AN2 ,AN3 -AN4 -`ANQ -ANA . ORI .OR1 .OR2 /@OR3 /OR4 0ORQ 0`ORA 0LRI 1 LR1 1LR2 1LR3 2@LR4 2LRQ 3LRA 3`SRI 3SR1 4 SR2 4SR3 4SR4 5@SRQ 5SRA 6CIE 6`C1E 6C2E 7 C3E 7C4E 7CQE 8@CAE 8AMI 9AM1 9`AM2 9AM3 : AM4 :AMQ :AMA ;@OMI ;OM1 <OM2 <`OM3 @AS2 >AS3 ?AS4 ?`ASQ ?ASA @ ASI @SM1 @SM2 A@SM3 ASM4 BSMQ B`SMA BSMI C ER1 CER2 CER3 D@ER4 DERQ EERA E`ERI EEM1 F EM2 FEM3 FEM4 G@EMQ GEMA HEMI H`C1N HC2N I C3N IC4N ICQN J@CAN JCIN KCCN K`LCA KSCA L CCE LXF1 LXF2 M@XF3 MXF4 NXFQ N`XFA NXFI O S1Z OS2Z OS3Z P@S4Z PS1N QS2N Q`S3N QS4N R S1M RS2M RS3M S@S4M SS1P TS2P T`S3P TS4P U LFA USFA USFZ V@SFN VCLF WSEF W`D1P WD2P X D3P XD4P XDQP Y@DAP YDIP ZO0OSB Z`O00 \@O01 aSIO aLUB b@LLB bEMS cWPR c`RPR cECC d ASC dAPM dPM0 e@PM1 eO0EX fGPE fGPO g LRG gSRG hLMM iCBP j DMI jSPS jVOLA k@VOLR lHEXDECnHEXASCoENCODEpDECODEs DECHEXu`ASCII vFLOATGwCLOCK xFLDF yDEFFIL|DEFIDX}LOKFIL~`UNLFILRELFIL@d  3|STOSEQRTVSEQSTOIDX@RTVIDXRTVIDOSTODIRRTVDIR@STATFLFREAD FWRITE STATUS`READ WRITE INDIR `EXIT @CORE LOADERDISCHDENSCHD@SCHDLETIMPT1TIMER @GTFILE SPACE RELEASPTNCOR MOTION @SYSCHD MOT BSR ڠEOF `REW  UNL ADF ݠBSF `ADR  DISP ཪFFERGTFILE SPACE RELEASPTNCOR MOTION @SYSCHD MOT BSR ڠEOF `REW  __mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmAL|O CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm*JOB 00010*CTO,...FILE: CCSOS1.N 00020*CTO,OPERATING SYSTEM PART 1 SKELETON GENERATION 00030*OPEN,FN=CCSSK.C,OW=CCS20,VL=SOURCE,LU=20,R 00040*OPEN,FN=MASTER.K,OW=CCS20,VL=SYSVOL,LU=21,A 00050*BSR,21,2 00060*K,I13 00070*COSY 00080CCSOS1 DCK/ I=20,H=21 00090 END/ 00100*CTO,PART 1 SKELETON TO FILE MASTER.K COMPLETE. 00110_  3| mmmmmmmmAL |O CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm*JOB 00010*CTO,...FILE: CCSOS2.N 00020*CTO,OPERATING SYSTEM PART 2 SKELETON GENERATION 00030*OPEN,FN=CCSSK.C,OW=CCS20,VL=SOURCE,LU=20,R 00040*OPEN,FN=MASTER.K,OW=CCS20,VL=SYSVOL,LU=21,A 00050*BSR,21,2 00060*K,I13 00070*COSY 00080CCSOS2 DCK/ I=20,H=21 00090 END/ 00100*CTO,PART 2 SKELETON TO FILE MASTER.K COMPLETE. 00110_  3| mmmmmmmmmmmmmmmmmmmmmmmmmmmmAL |O CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm*JOB 00010*CTO,...FILE: CCSFTN.N 00020*CTO,FORTRAN COMPILER SKELETON GENERATION. 00030*OPEN,FN=CCSSK.C,OW=CCS20,VL=SOURCE,LU=20,R 00040*OPEN,FN=MASTER.K,OW=CCS20,VL=SYSVOL,LU=21,A 00050*BSR,21,2 00060*K,I13 00070*COSY 00080CCSFTN DCK/ I=20,H=21 00090 END/ 00100*CTO,FORTRAN COMPILER SKELETON TO FILE MASTER.K COMPLETE. 00110_ mmmmmmmmmmmmmmmmmmmmmmmmmmmmAL |O CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm*JOB 00010*CTO,...FILE: CCSRPG.N 00020*CTO,RPG COMPILER SKELETON GENERATION. 00030*OPEN,FN=CCSSK.C,OW=CCS20,VL=SOURCE,LU=20,R 00040*OPEN,FN=MASTER.K,OW=CCS20,VL=SYSVOL,LU=21,A =  3| 00050*BSR,21,2 00060*K,I13 00070*COSY 00080CCSRPG DCK/ I=20,H=21 00090 END/ 00100*CTO,RPG COMPILER SKELETON TO FILE MASTER.K COMPLETE. 00110_ mmmmmmmmmmmmmmmmmmmmmmmmmmmmAL |O CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm*JOB 00010*CTO,...FILE: CCSAP.N 00020*CTO,CCS APPLICATION SKELETON GENERATION. 00030*OPEN,FN=CCSSK.C,OW=CCS20,VL=SOURCE,LU=20,R 00040*OPEN,FN=MASTER.K,OW=CCS20,VL=SYSVOL,LU=21,A 00050*BSR,21,2 00060*K,I13 00070*COSY 00080CCSAP DCK/ I=20,H=21 00090 END/ 00100*CTO,CCS APPLICATION SKELETON TO FILE MASTER.K COMPLETE. 00110_ L  3| mmmmmmmmmmmmmmmmmmmmmmmmmmmmAL |O CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm*JOB 00010*CTO,...FILE: LAAP.N 00020*CTO,LEGAL AND AGENCY SKELETON GENERATION. 00030*OPEN,FN=CCSSK.C,OW=CCS20,VL=SOURCE,LU=20,R 00040*OPEN,FN=MASTER.K,OW=CCS20,VL=SYSVOL,LU=21,A 00050*BSR,21,2 00060*K,I13 00070*COSY 00080LAAP DCK/ I=20,H=21 00090 END/ 00100*CTO,LEGAL AND AGENCY SKELETON TO FILE MASTER.K COMPLETE. 00110_ mmmmmmmmmmmmmmmmmmmmmmmmmmmmAL~} O CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm*JOB 00010*CTO,...FILE: MERGE1.J 00020*CTO, LOAD ALL BINARY FILES INTO MASTER BINARY FILE(MASTER.B). 00030*OPEN,FN=MASTER.B,OW=CCS20,VL=SYSVOL,LU=20,W 00040*CTO,... 00050*CTO,MOUNT 'MICRO PROGRAM BINARIES' TAPE ON UNIT 0. 00060*PAUS 00070*LIBEDT 00080*T,6,B,20,B,,1 00090*Z 00100*CLOSE 00110*OPEN,FN=MASTER.B,OW=CCS20,VL=SYSVOL,LU=20,A 00120*OPEN,FN=CCSMSO.B,OW=CCS20,VL=SOURCE,LU=21,R 00130*OPEN,FN=CCSITO.B,OW=CCS20,VL=SOURCE,LU=22,R 00140*OPEN,FN=CCSDVR.B,OW=CCS20,VL=SO\  3}URCE,LU=23,R 00150*OPEN,FN=CCSASM.B,OW=CCS20,VL=SOURCE,LU=24,R 00160*OPEN,FN=CCSFTN.B,OW=CCS20,VL=SOURCE,LU=25,R 00170*BSR,20,1 00180*LIBEDT 00190*T,21,B,20,B,,1 00200*Z 00210*CTO, CCSMSO.B TRANSFERED. 00220*BSR,20,1 00230*LIBEDT 00240*T,22,B,20,B,,1 00250*Z 00260*CTO, CCSITO.B TRANSFERED. 00270*BSR,20,1 00280*LIBEDT 00290*T,23,B,20,B,,1 00300*Z 00310*CTO, CCSDVR.B TRANSFERED. 00320*BSR,20,1 00330*LIBEDT 00340*T,24,B,20,B,,1 00350*Z 00360*CTO, CCSASM.B TRANSFERED. 00370*BSR,20,1 00380*LIBEDT 00390*T,25,B,20,B,,1 00400*Z 00410*CTO, CCSFTN.B TRANSFERED. 00420*CLOSE 00430*OPEN,FN=MASTER.B,OW=CCS20,VL=SYSVOL,LU=20,A 00440*OPEN,FN=CCSAPF.B,OW=CCS20,VL=SOURCE,LU=21,R 00450*OPEN,FN=CCSAPR.B,OW=CCS20,VL=SOURCE,LU=22,R 00460*BSR,20,1 00470*LIBEDT 00480*T,21,B,20,B,,1 00490*Z 00500*CTO, CCSAPF.B TRANSFERED. 00510*BSR,20,1 00520*LIBEDT 00530*T,22,B,20,B,,1 00540*Z 00550*CTO, CCSAPR.B TRANSFERED. 00560*CTO,... 00570*CTO,LOAD OF 'MASTER.B' FILE COMPLETE. 00580_ ~;  3}$ tm  3}8 tX  3}L tC  3}` t.  3}t AL~}O CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm!x  3}*JOB 00010*CTO,...FILE: MERGE2.J 00020*CTO, LOAD ALL BINARY FILES INTO MASTER BINARY FILE(MASTER.B). 00030*OPEN,FN=MASTER.B,OW=CCS20,VL=SYSVOL,LU=20,W 00040*OPEN,FN=CCSITO.B,OW=CCS20,VL=SOURCE,LU=21,R 00050*OPEN,FN=CCSFTN.B,OW=CCS20,VL=SOURCE,LU=22,R 00060*LIBEDT 00070*T,21,B,20,B,,1 00080*Z 00090*CTO, CCSITO.B TRANSFERED. 00100*BSR,20,1 00110*LIBEDT 00120*T,22,B,20,B,,1 00130*Z 00140*CTO, CCSFTN.B TRANSFERED. 00150*CLOSE 00160*OPEN,FN=MASTER.B,OW=CCS20,VL=SYSVOL,LU=20,A 00170*OPEN,FN=CCSRPG.B,OW=CCS20,VL=SOURCE,LU=21,R 00180*OPEN,FN=CCSAPF.B,OW=CCS20,VL=SOURCE,LU=22,R 00190*OPEN,FN=CCSAPR.B,OW=CCS20,VL=SOURCE,LU=23,R 00200*OPEN,FN=LAAPF.B,OW=CCS20,VL=SOURCE,LU=24,R 00210*OPEN,FN=LAAPR.B,OW=CCS20,VL=SOURCE,LU=25,R 00220*BSR,20,1 00230*LIBEDT 00240*T,21,B,20,B,,1 00250*Z 00260*CTO, CCSRPG.B TRANSFERED. 00270*BSR,20,1 00280*LIBEDT 00290*T,22,B,20,B,,1 00300*Z 00310*CTO, CCSAPF.B TRANSFERED. 00320*BSR,20,1 00330*LIBEDT 00340*T,23,B,20,B,,1 00350*Z 00360*CTO, CCSAPR.B TRANSFERED. 00370*BSR,20,1 00380*LIBEDT 00390*T,24,B,20,B,,1 00400*Z 00410*CTO, LAAPF.B TRANSFERED. 00420*BSR,20,1 00430*LIBEDT 00440*T,25,B,20,B,,1 00450*Z 00460*CTO, LAAPR.B TRANSFERED. 00470*CTO,... 00480  3}*CTO,LOAD OF 'MASTER.B' FILE COMPLETE. 00490_  3} s  3} s  3} s  3} s  3~ AL ~O CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm*N,CPFILE,,,B @ d p"L"VF6"`"j"t8"~"""  < um .u   !"@  ' 'f l b TA 'l l  'TT  h l T6:l   h l TFl   h l TRl    h l T[ l  5 h l T[ l 5! T h l TGfl T @ Da     `  hA@b b `*/f b`"f h$#`   f ` 0 f ؽ̼h ` ش `  f@  ( b  b  f @  !@  n!@ !@ i*@ i*@ @ @ @ d@$Tm dT!~}LQP@ h@T6     hEHEhA=hA : 7 DX-p d 0 d " z"6 d   ""&"DX z X d  zo  d %  "^dTi XY d  zADXI z6f H{"d60^ d VVk   - m  d"; T? bb H~h 4 4 W W W db0T _VVQ d "L b "hD>b)*71 b "h.) b)*  &h   b{  "  @ @!WCOPYRIGHT CONTROL DATA CORP. 1975,1976EyuFGDrUj\HWT A A @ @@ =}? HOST DOWN..] HOST UP..] HSԠDN.. ] HSԠUP.. ] HOST DOWN..] HOST UP..] 0123456789ABCDEF  =? =? _/?@  *WM] *ERR] * ] ȁȁ  ` p  T?   j  3~( 1234QAIM  * R 2 a : c B e J g Z i R k * j m< H&9?1I>Txx8Jo.Pq  3~<!!'!7   3~P  2  =@?@}`  c%sDkDDE EE5E@EEtt'~pp0ppp}pG "2$rG "2$rG "2$rG "2$rG "2$rG "2$r P0!g!g!h!k!z!{!!!!!!!!A@   ,@    @ $(! %(! %( 0%(,  p A p`p1ppI!yEpUPUQM0pM1]p}p} !!! ! ! ! ! ! ! U3U3U*3LpU3*Lp!W.E\ (1 LrDLrDL3C L3CFtD L3#L3#L2#L1#L1#L1#L1# 1FtD1 FqD, , FqDU,, FqD@@ @!!h h h$ h( h, h0 h4 h8 h< b2d"3"wR taq " ! hn @HH2"h"hn e  3~d@HH2"h"hn @HHhD#`," h#%#>wd#_2#9D#8T$#ahLwlǜ2#TD#ST$#a H hP"h hT #hhh hmw#wd$2##whl# 2#D$T #hfh hLD$إأȘ1 ##@# "&2h#Dq#b"&2d#c#d#f 3$ @$T$$ $ qlT$o$$ #i L#j h 2$@T $!hD$N fh hh HH hD$ZT!$P ! d$| !  HHH$D$,"D$T! h$$ HH "Ad% L2 ! l wR taq " ! $h bhǘÖ 2 ! h$ hȹn @HHH@ dh h%P "d&>Ll2%MD&@ jҰ%Mh h hĔ 1T_ȿ&5%hȳ l%ȭ("dh d&?2 ! lȖ" ! %؍T|%؉̣1("2%df% % n̨ l l% "Ldl D&@" An2% nܵ&>1 l&1̪ (" " ! ld" ! &.̏ lT &>d%̇("d%%L(" f@ dT!%% lT!%%T_L% n l 1 %r2h&W h&^D2h HHwhh" h" h 2& h&D& D&!j٘&Ȫ& h&Ȣh&ȝ& h&Ȗ& h&X&E&Ch& h&X&E&Dh& h&hț D&A'D'.T &n h d'-' % f1'L nh HH hȭ'9T' h٘'!D'GXhȒhrh% D'WXh hD%2D'eXd& d&&d&rd&% D'|Xd&D%2'D%2&nD' n' h' &2'T''Δ'n'T''/ LD&LL'06 hh'%h 1 ! h H 2(T)A!(T)B٘() n)#Ȱ (8D(4T)G)C)#hȞhrhD hh ! d)? ! (^T)D' ('' D(mT)G)E'%'D)@% n%(% D(T!T('('D(T!)#ΰd'̻d'rd'D d'd' ! lΕ ! Ѝ(T)F n%L%Φ n%Π)#% D(T!\')#'' D(T!E'D)@E nE)#E D)T!T(')#'!D)!T! LD'D'( 6   T aC@ )a a ){% )z%  b% D)xT!  1) )a a )% )% D)X) 1)̻a a )% Τ)% D)X)  1D)d)T! hhh h)Vh" hh* h*& D*T   wh h h hT*) d)ȩ *9 ȟ *RȓhT )hfΧhT*) Ȇ**T*)Ӗ  3~x wd*2**~% D*zT!)*)) D*T!)  ! *T$*  D))    TaC@ a n " ! a " ! > a +ف "a d*T"*++ d*T"a Aζ  n n Ϋa  " ! > AΚ n a    T aaa a C@ 2+J a+T d 2+T aA <" " A <" "A      a    T aaaC@ " ! a a T_   ! a  ! >        T aC@ abs",",T+,,a2 ! a,T+,,a" ! a " ! > a,  " !T,,d-8-bs"-"-Twhl-d-9T,<-:-9-;T,-;͘1T,<-< t-;- n @HH " ! bs"-s"-rT+--h2-kNT0-pT,<- u--s  H   T aaC@ " ! D "f d-T,a@a- T_.B-"&2 D-T% D-T-% D-Ta̳("ζaA   w , % D.Tbs".>".= A  ; ]a d.4T,<.[.\T,<.] u.\.>T.X.L D.X"&2 D.WT    T C@ .w " W  . f  ! a ,0 . D.T0+T aA A A n  a d.d.T-  . n 2.%D.T .f%h h  hT .hh hwh"/ZD/|hػLD/}s" XLL3"XL XȔ h "/Y hL .ðX.L. /äX.D/`T!.Θ Ð.n .,"l d. d.b r "0'"0&T .d. lwd.w d03/D04d.Ls" ö̆" L3"ë."   lҜ1"  .M /Ð.w ww" lDl  ! l̳  ! 0T/w.Ln.n0' L/~   T aaC@ " !wbs"0b"0a0b 0 " A Pn ba d0T0E D0a d0T!0" f g p0% D0Ta 0% D0Ta 0̞("A -d0 D0T-0d0T!   TC@ ad P <21" ta 1 d 1 ?1 ua1 a11Xd B sa S11 d Nd19T,<1V1W1ST d T w1X1Yd1RT.^ =SUALRPORDIQIAUNOCPDPACDERECA*SUP INACT] *ALM INACT] *RPT INACT] *ORD INACT] *DIA INACT] *Q= SUP]*Q= ALM]*Q= RPT]*Q= ORD]*Q= DIA] *ERR] R . ! d2 / ! 1L 1 0 ! l 1 ! 1 10  3~ 81Z1"̾1 91"̹wl22 w   S n D2]ŸE1[ L" ”1` ! d2\΄  ! 2ML n HH =X6=2^ h  ! d3  ! 2X6>2_  ! l  ! 3gb s"3^"3P UwR taq 22T d ȧ "1oD2T 6?6@T.^ 1^2ȓd T3^T l1D2T 6?6AT.^ 1^3^ d M3^ l3^ xR uedl3^2_ xR uedRl3^ O3& ld >lw d A3^"d s!d u3^ll3^d33J pT056B = d ?l3^-HCL^rT! S3}lT S136@w" *ìd T.^ 1^ 2` 3 l3 Q3X3 R - T ! -0 *d ̻d T6? l T+6C6Bd1ZXd BdlN 2 ! d5 zΐ2 ! 3  . ! Nl / ! 47 4 ! l ]  ! 4 d l4! l 45T d Rnd S̒  ! d Q l̷4"1ZÉ ;4[ lL" T34 : ! d5̬Ӭ4 llT"56DlT S156@̩4D5 D4T!Ld T.^ 1^4T2 2 ! l̯ ! l 3 ! л 4 <24T,<6E v6B d P4T04L 4&2LT n&2Χd Rn4  3 @ d1\ >%΃ ! d5 l Ad5d2 ! 51]bs"5"5}T,<6C .6B l5T,<6E v6BT,<6C /6B l5 d ? l 5p l <25nT,<6E v6B d P5pT0 =,5{T056B =5 5̚lLd"5 >1\lw l 5T8 AD5d5T,<6C56B d B 5 lT+6E6Bd1[l85 E69̍25T,<6E6F6B̃25 sl5 ulT,<6E1[6B69 <d6T,<6E v6B d P69" ! d6<" ! 6$ ?d O 6 lT06926-T46964X69T,<6E r6B  =}7lwhhh hT*6K6O6Q6 26 ј26D6T 6JfhLn h6 hȳ1Ȭȫ HHT 6JhnȈh hX667-"‚lD7 ήhT"6K7+Twd6GT*6K66G7)d7wd 7$LD7" D7D7" ]Čw7+7-7KT$o86J6M7FF2 D7ET$o8 d n7̨66 wl" ! l ! 7w6L6I D7uT!6J67T$o8  L6 ll l 08 l   d6G2 ! d8 2 ! 7   bs"7"7d7d7d7d7 T$o8 8  0lT"88lT {88E d T.^ 6K8Lw l d6H88ܖlT"6Kl윊 ! 6G878 1l &2d6N&2 nT78&2n6MD8 lDl  ! l̳  ! Ќ8 l8"L̯D8"Mܣ 1L w6HT!6M6J EP T$ l8T!6M6J\8d  78= h8 " !8 8T-z8 1   TC@  a *   T+) 9J9KD9d9T+) 9K a 2 ! a ؜ ! >M 9G d d   =   T aaC@ a f  3~ a9a A   "  = d9d9 a d9T+)9 a  1 = = *ERR SYS HLT] *ERR] * ] LIST EMPTY] SHSREHRSDRE1E2E3E4EQEAEIEMDPLHC C,EBRBBLDLDFEFBGBRLGLPDA b29" ! d:" ! h92 ! l" ! h H  d h h ^E " 2d>d:'>:D d9d ʈ ! l  ! :D l9¹lT"  :Z>: d9T 9>>ld" ! l 2 ! :  E D:T* 9:> 2:" f l̇b r ">"> F :T 9>>: l>: ll:T 9>>>E D:T9:9 l d>: -Mܖ1;! l;D;   lT+) >>D>9 n  1̿"̼  ! n ̱ ( > ;ET 9>>;H d >T9L >; d9 lL D> 쪖  L  = d T+) ?> n ;>>d հ; l>D> T+) ?>9T9 ;  d9 d>; -ð1;D;( lT+) >>n" ( >̢;̏l< ׸<̅ l̘l\ l\ <><; L   ! d _  ! d <4E d  T8> d9 " Ɛ ! d9l  ! Ѐ Зd> ٸlT9 l\ <{><("V  d9TS9 > l зl̽иl<܎̍("˜ ! l  ! Лl ! Бd9l9  ! Ѓ<>= "  lܙTG9 >  2 ! d> 2 ! =+D>   ! f =->>ٔ 2 ! l 2 ! =RT l MT+) ?>=T>> ؜2 ! lٜ2 ! =nT! =p>> 2 ! l " ! =T =T 9?>= "  d9 d9T"??d>=E D=T+) 9> l1 =>>2 ! l̹ " ! =̼(" lT"??l=ED>Λf̵ܰ1T =>> " ! l" ! Лl  " ! Бl" ! Љ>#>>'f W>2 ! d>2 ! >̹ d dRlT T+) ?> M L  >o >i>>mT >T+) ?>D>  / >>>T 9>>>&CXX||O ]  ! d> _  ! d> ^  ! >T,  *SYS HLT] *HLT XXXX]  T,?d? ^ " $T,Ӹ   =   TC@ a a 2 Nd Ca d "p0a d?T"@ a  2 ! a  " ! > d?T$@@T d @@a 2@@ a @= d@T$@@1A AT fAa@:T! @ a 1 a aa 2Ώa d@Wd@YT @ d@md@n a d@oT+)@ a D@d@d@T+)@ a  2Θ " ! a  2 ! >  m aA a 2 1  2 ! a  " ! > @FT$@ @@ d@T.^(  3~ @T!  =  TC@T$A-A.A*T d T A/A0T9L 'T$A- A.A&dA#T.^ A*T!  =   T aC@ a " %2 ! a 2 ! A2 a A n ֐2A2  TA @dADATAATn   T C@ ' B aa a " 2 ! "2 ! 22 ! 2 b r "B"Bΐ2 ! a 2 ! aB2 ! aBΐ2 ! aB////  ! >B(" ab r "B"B (DBHDBITrBT9L 'd !T-'B !TBT?BT? BT@BT? B DBv DBwTr cBT-' d !BTA1 BBP#',<BBTB  B ,s "b r "B"BLlB̳lBslB3lBlB  2BTCBȹ "hBTCBTB ld  H  1 C0 "n% DCT  C, d nC. lCw bl 1C] TwCGCKȺbȸw ww C[ lCwCiȡ lCwhCthȎb h DCC  h 1 C% DCTC hC DC "fC 1C wC hCnw wCC hCn Ȥ HTDD d d TBDDTBD T& hd DHDDmlw" D D<!lDF 'Ew d TDnD^ D^ *l D^lTDoDoL* ! -0  h h," hDDldDwd"DhhD d T$D D Al - T8 nD d D  T  ! dDLw"   ! DTE T {DTDk  ,QDDE ,Q -QT$ l -0 *d   d T$E  TC h nE1  !EU  d T9E9 TC h Tif TE{EG *d T$E| E}EqTC Eo,"E T.^ nEx !EU TE{   hE j 1w HTFFAhDU F b r "F"F A  A  A    E EXFT6FE  EE Ew/Fv dE wȅ2F  F  XFT6FEFTFF0MF dEE~ dEFdwR taq 2FZb r "FX"FS  FX  FX  FXFcFc  Fܽ 1   2F 2F 2F   2FF F  TEF dE dE dET6FEDw/F wE    2FTFFv dFhFhT9F  "F "FhFhG"GhGh@dTT_ GTS͐ ! dGi G9 " lG3TGjG9 d TGḵ G@ ȡGI dP Г wճ w "l w("wL w("lDd r w("l w("wl\NlPT d q lL fܓ 1 ULP,-L-,l,wl\^lPP,dPwdMw("DPw-DPb L씺-DL,- L,-wL,-Lb d w w-f -  - - MB - ,DMK b L, - 2 ! dP2 ! M DPPLlwP-wL,-,wd s-AbM, "L,ML-ML, 2 ! -ML,w-wM-w bP,d },wd xL,- TKndP,l,wlPDP,- U\~lP -LdPN/ ,"  d snLl۰N L DP,퀳L,Ы wNbwlNe wlNp ̸̴AbPNLPDP]wL b wLdP-wLP,-,d },wd x TKdP,l,wlL,- \lP, l,w l\  EU d O% - ! ``O d OP ld ,E , bO* `llTx P" lPP, d },w d xTK UOT   Ul `Tx P" dP, l,w l\ OE DOT!  lPO Ew m! m  wճ "mDP n bOTPlP d }d xLwPD "Lw"GDP rb r  3~ "PD"PBDP,1L,L,w- lPDL1Lӷ-sL쑯Ls-3L-L,-PL,- lPD zd vMEw yfb r "P"PPP }Pf lP 2Po lP rb r "P"P 2P lP 2P lP P 2P lP 9 zd xL“PE ܉̡PLƒTKdP7X*^ DJK  d# TRͰRD "  "  d DU Q2 Q2 l  ! dR`QD " dd td s t s mlDRlwl2Q Ql nL," l̫L," DQ,"DQT!̮lQ,"DQT! E` Q `Ub r "R"R Q d d ̚d lp`PЊ@ŐPE@ p`0L "lDb r "R("R&0Ű Š@ R(0PR(D "fR DRİRU DR,dR,RUd TP R R` d DU d Ew m! m ЋRw lRUlw! m lRUl lRjR d T_ lR̃d D "΀d T6R lQ d P 0d h bSvhSrTSRDU b 5r "Sn"SjT\SSnT\SSn 5UTSSnD " @ ! dS ldS d ! Sf  `  dR dRd d U S`TSSfTS dRT_Sn R l 2R dRSNdR lS%2SS S " DS  U̿DS%2b `TS lܬ1l̙S" 0d R "  MU w w `TT"  @d hTh hT%T%" TZTX TXXTDT,TuDT, -,TuX찆T쐀T " L%SDT mUDT-Lw-w `TT" T S2T1dST$@d T TUoUf bs"Uf"Ua UfD wDf wĴwT6UpTUf d vUH " U>  UG  1UfŴf řUfq2Z TTW] DW\ 2  TW^U  ! dW[ w ! U  ! l" ! U dRUdR2Ud cU l .wTW_ Ew dwdT6W`WKḓUVW@Vd E DVTCbs"V"V2VȎd2VoE DV7ThWa2VU̕VN l /Ew TW_ VxVm  "Vj   wUVm  wVdR    wE DVThWbW_V  wVVVpW>E DVThWa2V  wWKdR$d E DVThWcE DV," "DVThWd   < wDW\lw" dUqsb r "W>"W6E DW ThWbWeW>L," W+E DW&ThWbWfW4E DW1ThWbWgW> WK$d T Ur n  3~PHlX  D[ 2   w 2Wd E DWTh[2WE DWTh[[WT[DW2W"Wd  2WE DWTh[ W !EwdT6[E DWTh[[X[ w  wbs"["[XX#X! < w  [ȠdDXS2X: "w2XC #w2XL $wlT6[2X}  lXnE DXiT\   "X}% DX|T[DXD[,QXXE DX,"DXT!XD[,Q -Q 2XYXX1b r "Y"YLlwX  wX 1d T[YXXY XXY"[E DY Th[ " ! d[ " ! Y>E DY(Th[[ %EwddT6[ZM cYM l /wT[b r "Yj"Yc dWkYj lYjldlT$[WkdWild ! l󸻸YYT  YD[dWjD[ ̰ldYLT lLn ̑ldZ4LLlw wE DYTh[@dRE DZ," "DZTh[   < wE DZ'Th[E DZ/Th[[ZM    wE DZ@Th[E DZHTh[[X[DZZZbZ` < w  [șd[I2ZD[ ZLD[dWjT l LnE DZTh[   < w@dR [G"ZdR[G ,ZL L΋D[̗L "bL [L ndWj  l[-T\Wj   "[<% D[;T[d d T[[QȁdR2[2[c 'Ew[q2[n (w[q )wdT6[d[D[D[ "fL("bL X[>Q DWhWlP ( `lXH h\d\Llwd h " &2hhn @H jh\GT\K\& h\FD "l d\JD d\F h d"? d"9T^7 A\LB\M"6\d       E Nd ":d T\"̘ _^ @l̏ ^<@EJZair|_^;" HlD` _̅_ MdR dR __    _M"6w_H__M w l d":   _|d^<d^=X d"<A^<B^=^>_^>d d  T___ _ _ _ " ! d_ ___0 ^? "5  dRn @H "5  dn @H "5 MdRn @H "5 Mdn @H "5 MdRn @H "5 Mdn @H "5  M n @ "5  N     n @"5  ` EDa` DM%D`TJ~  H `b r "b-"b'D@"9a%b\aF2a0aDa;aD`aDb-b-2aD"7"DbwPaba@aoVaa{aaa0aa aab\aD@"9aaaaȁa`aȂb-b-@aa2aaaa`aVab\ b% DbT$fb-b-̤a bb-bbJb-̓2b#b\b%b-b-- Dbw,bT`=r2qLT`=r  pXT`=rT]rrrT`=r qe  \r\r DrDrw" ]dj^bs"q"qTnVjjq\jjq\jjq\jjqTlKrT\% DqT$rd Tg`rT]rrrD@"9qTkTkhrT]rrr drsdrTlrrq\jjq\jjq\jjq\jjq\jjq zQQV[`e Dr llwd2rr|E DrTlT]rrrrFTkD ":rFTlrrT]rrr@r?\ rFrQ2rvTlKrTm;r drsdrTlrrrlT`=r\r  \rqT`=rT`~r  \rpX ne` P  <             sT r DrTs=T\ 2s DsTs=s,w wwsw DsTs=T\ 2s, Ds+Ts= H  ! ds  ! s Ts3shscshhTw" hs  ! lsœ ! lT\s>dsT\ d " ! бssȠh" F2h"F2nsTjT sATC s Lw ww"Mhss3sw"  s l  Lw"MhstTs3t+TgT$t,   th hdtt2thht[hhh2Dt%2n2L%2n t̵t lt bT!t.t țؚ1ht H tT h h fththh u h%2b%2Du" b Ȼtu ̹uȲluȭbu ȩh HTuu#TuDw " ! du 1duwd" ! u@Tuwb 1r "u"ub r "u"uT$u u  3|AL|O CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm*JOB 00010*CTO,...FILE: CCSOS1.N 00020*CTO,OPERATING SYSTEM PART 1 SKELETON GENERATION 00030*OPEN,FN=CCSSK.C,OW=CCS20,VL=SOURCE,LU=20,R 00040*OPEN,FN=MASTER.K,OW=CCS20,VL=SYSVOL,LU=21,A 00050*BSR,21,2 00060*K,I13 00070*COSY 00080CCSOS1 DCK/ I=20,H=21 00090 END/ 00100*CTO,PART 1 SKELETON TO FILE MASTER.K COMPLETE. 00110_   3| mmmmmmmmAL |O CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm*JOB 00010*CTO,...FILE: CCSOS2.N 00020*CTO,OPERATING SYSTEM PART 2 SKELETON GENERATION 00030*OPEN,FN=CCSSK.C,OW=CCS20,VL=SOURCE,LU=20,R 00040*OPEN,FN=MASTER.K,OW=CCS20,VL=SYSVOL,LU=21,A 00050*BSR,21,2 00060*K,I13 00070*COSY 00080CCSOS2 DCK/ I=20,H=21 00090 END/ 00100*CTO,PART 2 SKELETON TO FILE MASTER.K COMPLETE. 00110_ mmmmmmmmmmmmmmmmmmmmmmmmmmmmAL |O CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm*JOB 00010*CTO,...FILE: CCSFTN.N 00020*CTO,FORTRAN COMPILER SKELETON GENERATION. 00030*OPEN,FN=CCSSK.C,OW=CCS20,VL=SOURCE,LU=20,R 00040*OPEN,FN=MASTER.K,OW=CCS20,VL=SYSVOL,LU=21,A 00050*BSR,21,2 00060*K,I13 00070*COSY 00080CCSFTN DCK/ I=20,H=21 00090 END/ 00100*CTO,FORTRAN COMPILER SKELETON TO FILE MASTER.K COMPLETE. 00110_ Ы  3| mmmmmmmmmmmmmmmmmmmmmmmmmmmmAL |O CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm*JOB 00010*CTO,...FILE: CCSRPG.N 00020*CTO,RPG COMPILER SKELETON GENERATION. 00030*OPEN,FN=CCSSK.C,OW=CCS20,VL=SOURCE,LU=20,R 00040*OPEN,FN=MASTER.K,OW=CCS20,VL=SYSVOL,LU=21,A 00050*BSR,21,2 00060*K,I13 00070*COSY 00080CCSRPG DCK/ I=20,H=21 00090 END/ 00100*CTO,RPG COMPILER SKELETON TO FILE MASTER.K COMPLETE. 00110_ mmmmmmmmmmmmmmmmmmmmmmmmmmmmAL |O CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm*JOB 00010*CTO,...FILE: CCSAP.N 00020*CTO,CCS APPLICATION SKELETON GE  3|AL |O CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm*JOB 00010*CTO,...FILE: CCSOS2.N 00020*CTO,OPERATING SYSTEM PART 2 SKELETON GENERATION 00030*OPEN,FN=CCSSK.C,OW=CCS20,VL=SOURCE,LU=20,R 00040*OPEN,FN=MASTER.K,OW=CCS20,VL=SYSVOL,LU=21,A 00050*BSR,21,2 00060*K,I13 00070*COSY 00080CCSOS2 DCK/ I=20,H=21 00090 END/ 00100*CTO,PART 2 SKELETON TO FILE MASTER.K COMPLETE. 00110_ mmmmmmmmmmmmmmmmmmmmmmmmmmmmAL |O CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm*JOB 00010*CTO,...FILE: CCSFTN.N 00020*CTO,FORTRAN COMPILER SKELETON GENERATION. 00030*OPEN,FN=CCSSK.C,OW=CCS20,VL=SOURCE,LU=20,R 00040*OPEN,FN=MASTER.K,OW=CCS20,VL=SYSVOL,LU=21,A 00050*BSR,21,2 00060*K,I13 00070*COSY 00080CCSFTN DCK/ I=20,H=21 00090 END/ 00100*CTO,FORTRAN COMPILER SKELETON TO FILE MASTER.K COMPLETE. 00110_  3| mmmmmmmmmmmmmmmmmmmmmmmmmmmmAL |O CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm*JOB 00010*CTO,...FILE: CCSRPG.N 00020*CTO,RPG COMPILER SKELETON GENERATION. 00030*OPEN,FN=CCSSK.C,OW=CCS20,VL=SOURCE,LU=20,R 00040*OPEN,FN=MASTER.K,OW=CCS20,VL=SYSVOL,LU=21,A 00050*BSR,21,2 00060*K,I13 00070*COSY 00080CCSRPG DCK/ I=20,H=21 00090 END/ 00100*CTO,RPG COMPILER SKELETON TO FILE MASTER.K COMPLETE. 00110_ mmmmmmmmmmmmmmmmmmmmmmmmmmmmAL |O CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm*JOB 00010*CTO,...FILE: CCSAP.N 00020*CTO,CCS APPLICATION SKELETON GENERATION. 00030*OPEN,FN=CCSSK.C,OW=CCS20,VL=SOURCE,LU=20,R 00040*OPEN,FN=MASTER.K,OW=CCS20,VL=SYSVOL,LU=21,A 00050*BSR,21,2 00060*K,I13 00070*COSY  3|AL |O CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm*JOB 00010*CTO,...FILE: CCSFTN.N 00020*CTO,FORTRAN COMPILER SKELETON GENERATION. 00030*OPEN,FN=CCSSK.C,OW=CCS20,VL=SOURCE,LU=20,R 00040*OPEN,FN=MASTER.K,OW=CCS20,VL=SYSVOL,LU=21,A 00050*BSR,21,2 00060*K,I13 00070*COSY 00080CCSFTN DCK/ I=20,H=21 00090 END/ 00100*CTO,FORTRAN COMPILER SKELETON TO FILE MASTER.K COMPLETE. 00110_ mmmmmmmmmmmmmmmmmmmmmmmmmmmmAL |O CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm*JOB 00010*CTO,...FILE: CCSRPG.N 00020*CTO,RPG COMPILER SKELETON GENERATION. 00030*OPEN,FN=CCSSK.C,OW=CCS20,VL=SOURCE,LU=20,R 00040*OPEN,FN=MASTER.K,OW=CCS20,VL=SYSVOL,LU=21,A 00050*BSR,21,2 00060*K,I13 00070*COSY 00080CCSRPG DCK/ I=20,H=21 00090 END/ 00100*CTO,RPG COMPILER SKELETON TO FILE MASTER.K COMPLETE. 00110_ h  3| mmmmmmmmmmmmmmmmmmmmmmmmmmmmAL |O CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm*JOB 00010*CTO,...FILE: CCSAP.N 00020*CTO,CCS APPLICATION SKELETON GENERATION. 00030*OPEN,FN=CCSSK.C,OW=CCS20,VL=SOURCE,LU=20,R 00040*OPEN,FN=MASTER.K,OW=CCS20,VL=SYSVOL,LU=21,A 00050*BSR,21,2 00060*K,I13 00070*COSY 00080CCSAP DCK/ I=20,H=21 00090 END/ 00100*CTO,CCS APPLICATION SKELETON TO FILE MASTER.K COMPLETE. 00110_ mmmmmmmmmmmmmmmmmmmmmmmmmmmmAL |O CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm*JOB 00010*CTO,...FILE: LAAP.N 00020*CTO,LEGAL AND AGENCY SKELETON GENERATION. 00030*OPEN,FN=CCSSK.C,OW=CCS20,VL=SOURCE,LU=20,R 00040*OPEN,FN=MASTER.K,OW=CCS20,VL=SYSVOL,LU=21,A 00050*BSR,21,2 00060*K,I13 00070*COSY ,S  3|AL |O CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm*JOB 00010*CTO,...FILE: CCSRPG.N 00020*CTO,RPG COMPILER SKELETON GENERATION. 00030*OPEN,FN=CCSSK.C,OW=CCS20,VL=SOURCE,LU=20,R 00040*OPEN,FN=MASTER.K,OW=CCS20,VL=SYSVOL,LU=21,A 00050*BSR,21,2 00060*K,I13 00070*COSY 00080CCSRPG DCK/ I=20,H=21 00090 END/ 00100*CTO,RPG COMPILER SKELETON TO FILE MASTER.K COMPLETE. 00110_ mmmmmmmmmmmmmmmmmmmmmmmmmmmmAL |O CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm*JOB 00010*CTO,...FILE: CCSAP.N 00020*CTO,CCS APPLICATION SKELETON GENERATION. 00030*OPEN,FN=CCSSK.C,OW=CCS20,VL=SOURCE,LU=20,R 00040*OPEN,FN=MASTER.K,OW=CCS20,VL=SYSVOL,LU=21,A 00050*BSR,21,2 00060*K,I13 00070*COSY 00080CCSAP DCK/ I=20,H=21 00090 END/ 00100*CTO,CCS APPLICATION SKELETON TO FILE MASTER.K COMPLETE. 00110_   3| mmmmmmmmmmmmmmmmmmmmmmmmmmmmAL |O CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm*JOB 00010*CTO,...FILE: LAAP.N 00020*CTO,LEGAL AND AGENCY SKELETON GENERATION. 00030*OPEN,FN=CCSSK.C,OW=CCS20,VL=SOURCE,LU=20,R 00040*OPEN,FN=MASTER.K,OW=CCS20,VL=SYSVOL,LU=21,A 00050*BSR,21,2 00060*K,I13 00070*COSY 00080LAAP DCK/ I=20,H=21 00090 END/ 00100*CTO,LEGAL AND AGENCY SKELETON TO FILE MASTER.K COMPLETE. 00110_ mmmmmmmmmmmmmmmmmmmmmmmmmmmmAL~} O CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm*JOB 00010*CTO,...FILE: MERGE1.J 00020*CTO, LOAD ALL BINARY FILES INTO MASTER BINARY FILE(MASTER.B). 00030*OPEN,FN=MASTER.B,OW=CCS20,VL=SYSVOL,LU=20,W 00040*CTO,... 00050*CTO,MOUNT 'MICRO PROGRAM BINARIES' TAPE ON UNIT 0. 00060*PAUS 00070*LIBEDT  3|AL |O CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm*JOB 00010*CTO,...FILE: CCSAP.N 00020*CTO,CCS APPLICATION SKELETON GENERATION. 00030*OPEN,FN=CCSSK.C,OW=CCS20,VL=SOURCE,LU=20,R 00040*OPEN,FN=MASTER.K,OW=CCS20,VL=SYSVOL,LU=21,A 00050*BSR,21,2 00060*K,I13 00070*COSY 00080CCSAP DCK/ I=20,H=21 00090 END/ 00100*CTO,CCS APPLICATION SKELETON TO FILE MASTER.K COMPLETE. 00110_ mmmmmmmmmmmmmmmmmmmmmmmmmmmmAL |O CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm*JOB 00010*CTO,...FILE: LAAP.N 00020*CTO,LEGAL AND AGENCY SKELETON GENERATION. 00030*OPEN,FN=CCSSK.C,OW=CCS20,VL=SOURCE,LU=20,R 00040*OPEN,FN=MASTER.K,OW=CCS20,VL=SYSVOL,LU=21,A 00050*BSR,21,2 00060*K,I13 00070*COSY 00080LAAP DCK/ I=20,H=21 00090 END/ 00100*CTO,LEGAL AND AGENCY SKELETON TO FILE MASTER.K COMPLETE. 00110_  3} mmmmmmmmmmmmmmmmmmmmmmmmmmmmAL~} O CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm*JOB 00010*CTO,...FILE: MERGE1.J 00020*CTO, LOAD ALL BINARY FILES INTO MASTER BINARY FILE(MASTER.B). 00030*OPEN,FN=MASTER.B,OW=CCS20,VL=SYSVOL,LU=20,W 00040*CTO,... 00050*CTO,MOUNT 'MICRO PROGRAM BINARIES' TAPE ON UNIT 0. 00060*PAUS 00070*LIBEDT 00080*T,6,B,20,B,,1 00090*Z 00100*CLOSE 00110*OPEN,FN=MASTER.B,OW=CCS20,VL=SYSVOL,LU=20,A 00120*OPEN,FN=CCSMSO.B,OW=CCS20,VL=SOURCE,LU=21,R 00130*OPEN,FN=CCSITO.B,OW=CCS20,VL=SOURCE,LU=22,R 00140*OPEN,FN=CCSDVR.B,OW=CCS20,VL=SOURCE,LU=23,R 00150*OPEN,FN=CCSASM.B,OW=CCS20,VL=SOURCE,LU=24,R 00160*OPEN,FN=CCSFTN.B,OW=CCS20,VL=SOURCE,LU=25,R 00170*BSR,20,1 00180*LIBEDT 00190*T,21,B,20,B,,1 00200*Z 00210*CTO, CCSMSO.B TRANSFERED. 00220*BSR,20,1 00230*LIBEDT 00240*T,22,B,20,B,,1 00250*Z 00260*CTO, CCSITO.B TRANSFERED. 00270*BSR,20,1 00280*LIBEDT 00290*T,23,B,20,B,,1 00300*Z 00310*CTO, CCSDVR.B TRANSFERED. 00320*BSR,20,1 00330*LIBEDT 00340*T,24,B,20,B,,1 00350*Z 00360ޅ  3|AL |O CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm*JOB 00010*CTO,...FILE: LAAP.N 00020*CTO,LEGAL AND AGENCY SKELETON GENERATION. 00030*OPEN,FN=CCSSK.C,OW=CCS20,VL=SOURCE,LU=20,R 00040*OPEN,FN=MASTER.K,OW=CCS20,VL=SYSVOL,LU=21,A 00050*BSR,21,2 00060*K,I13 00070*COSY 00080LAAP DCK/ I=20,H=21 00090 END/ 00100*CTO,LEGAL AND AGENCY SKELETON TO FILE MASTER.K COMPLETE. 00110_ mmmmmmmmmmmmmmmmmmmmmmmmmmmmAL~} O CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm*JOB 00010*CTO,...FILE: MERGE1.J 00020*CTO, LOAD ALL BINARY FILES INTO MASTER BINARY FILE(MASTER.B). 00030*OPEN,FN=MASTER.B,OW=CCS20,VL=SYSVOL,LU=20,W 00040*CTO,... 00050*CTO,MOUNT 'MICRO PROGRAM BINARIES' TAPE ON UNIT 0. 00060*PAUS 00070*LIBEDT 00080*T,6,B,20,B,,1 00090*Z 00100*CLOSE 00110*OPEN,FN=MASTER.B,OW=CCS20,VL=SYSVOL,LU=20,A 00120*OPEN,FN=CCSMSO.B,OW=CCS20,VL=SOURCE,LU=21,R 00130*OPEN,FN=CCSITO.B,OW=CCS20,VL=SOURCE,LU=22,R 00140*OPEN,FN=CCSDVR.B,OW=CCS20,VL=SOURCE,LU=23,R 00150*OPEN,FN=CCSASM.B,OW=CCS20,VL=SOURCE,LU=24,R 00160*OPEN,FN=CCSFTN.B,OW=CCS20,VL=SOURCE,LU=25,R ~  3} 00170*BSR,20,1 00180*LIBEDT 00190*T,21,B,20,B,,1 00200*Z 00210*CTO, CCSMSO.B TRANSFERED. 00220*BSR,20,1 00230*LIBEDT 00240*T,22,B,20,B,,1 00250*Z 00260*CTO, CCSITO.B TRANSFERED. 00270*BSR,20,1 00280*LIBEDT 00290*T,23,B,20,B,,1 00300*Z 00310*CTO, CCSDVR.B TRANSFERED. 00320*BSR,20,1 00330*LIBEDT 00340*T,24,B,20,B,,1 00350*Z 00360*CTO, CCSASM.B TRANSFERED. 00370*BSR,20,1 00380*LIBEDT 00390*T,25,B,20,B,,1 00400*Z 00410*CTO, CCSFTN.B TRANSFERED. 00420*CLOSE 00430*OPEN,FN=MASTER.B,OW=CCS20,VL=SYSVOL,LU=20,A 00440*OPEN,FN=CCSAPF.B,OW=CCS20,VL=SOURCE,LU=21,R 00450*OPEN,FN=CCSAPR.B,OW=CCS20,VL=SOURCE,LU=22,R 00460*BSR,20,1 00470*LIBEDT 00480*T,21,B,20,B,,1 00490*Z 00500*CTO, CCSAPF.B TRANSFERED. 00510*BSR,20,1 00520*LIBEDT 00530*T,22,B,20,B,,1 00540*Z 00550*CTO, CCSAPR.B TRANSFERED. 00560*CTO,... 00570*CTO,LOAD OF 'MASTER.B' FILE COMPLETE. 00580_ O  3} AL~} O CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm*JOB 00010*CTO,...FILE: MERGE1.J 00020*CTO, LOAD ALL BINARY FILES INTO MASTER BINARY FILE(MASTER.B). 00030*OPEN,FN=MASTER.B,OW=CCS20,VL=SYSVOL,LU=20,W 00040*CTO,... 00050*CTO,MOUNT 'MICRO PROGRAM BINARIES' TAPE ON UNIT 0. 00060*PAUS 00070*LIBEDT 00080*T,6,B,20,B,,1 00090*Z 00100*CLOSE 00110*OPEN,FN=MASTER.B,OW=CCS20,VL=SYSVOL,LU=20,A 00120*OPEN,FN=CCSMSO.B,OW=CCS20,VL=SOURCE,LU=21,R 00130*OPEN,FN=CCSITO.B,OW=CCS20,VL=SOURCE,LU=22,R 00140*OPEN,FN=CCSDVR.B,OW=CCS20,VL=SOURCE,LU=23,R 00150*OPEN,FN=CCSASM.B,OW=CCS20,VL=SOURCE,LU=24,R 00160*OPEN,FN=CCSFTN.B,OW=CCS20,VL=SOURCE,LU=25,R 00170*BSR,20,1 00180*LIBEDT 00190*T,21,B,20,B,,1 00200*Z 00210*CTO, CCSMSO.B TRANSFERED. 00220*BSR,20,1 00230*LIBEDT 00240*T,22,B,20,B,,1 00250*Z 00260*CTO, CCSITO.B TRANSFERED. 00270*BSR,20,1 00280*LIBEDT 00290*T,23,B,20,B,,1 00300*Z 00310*CTO, CCSDVR.B TRANSFERED. 00320*BSR,20,1 00330*LIBEDT 00340*T,24,B,20,B,,1 00350*Z 00360*CTO, CCSASM.B TRANSFERED. 00370*BSR,20,1 00380*LIBEDT 00390*T,25,B,20,B,,1 00400*Z 00410*CTO, CCSFTN.B TRANSFERED. 00420*CLOSE 00430*OPEN,FN=MASTER.B,OW=CCS20,VL=SYSVOL,LU=20,A 00440*OPEN,FN=CCSAPF.B,OW=CCS20,VL=SOURCE,LU=21,R 00450*OPEN,FN=CCSAPR.B,OW=CCS20,VL=SOURCE,LU=22,R Q  3} 00460*BSR,20,1 00470*LIBEDT 00480*T,21,B,20,B,,1 00490*Z 00500*CTO, CCSAPF.B TRANSFERED. 00510*BSR,20,1 00520*LIBEDT 00530*T,22,B,20,B,,1 00540*Z 00550*CTO, CCSAPR.B TRANSFERED. 00560*CTO,... 00570*CTO,LOAD OF 'MASTER.B' FILE COMPLETE. 00580_ F  3}1 t6  3}E t!  3}Y t  3}m s  3} AL~}O CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm*JOB 00010*CTO,...FILE: MERGE2.J 00020*CTO, LOAD ALL BINARY FILES INTO MASTER BINARY FILE(MASTER.B). 00030*OPEN,FN=MASTER.B,OW=CCS20,VL=SYSVOL,LU=20,W 00040*OPEN,FN=CCSITO.B,OW=CCS20,VL=SOURCE,LU=21,R 00050*OPEN,FN=CCSFTN.B,OW=CCS20,VL=SOURCE,LU=22,R 00060*LIBEDT 00070*T,21,B,20,B,,1 00080*Z 00090*CTO, CCSITO.B TRANSFERED. 00100*BSR,20,1 00110*LIBEDT 00120*T,22,B,20,B,,1 00130*Z 00140*CTO, CCSFTN.B TRANSFERED. 00150*CLOSE 00160*OPEN,FN=MASTER.B,OW=CCS20,VL=SYSVOL,LU=20,A 00170*OPEN,FN=CCSRPG.B,OW=CCS20,VL=SOURCE,LU=21,R 00180*OPEN,FN=CCSAPF.B,OW=CCS20,VL=SOURCE,LU=22,R 00190*OPEN,FN=CCSAPR.B,OW=CCS20,VL=SOURCE,LU=23,R 00200*OPEN,FN=LAAPF.B,OW=CCS20,VL=SOURCE,LU=24,R 00210*OPEN,FN=LAAPR.B,OW=CCS20,VL=SOURCE,LU=25,R 00220*BSR,20,1 00230*LIBEDT 00240*T,21,B,20,B,,1 00250*Z 00260*CTO, CCSRPG.B TRANSFERED. 00270*BSR,20,1 00280*LIBEDT 00290*T,22,B,20,B,,1 00300*Z 00310*CTO, CCSAPF.B  3} TRANSFERED. 00320*BSR,20,1 00330*LIBEDT 00340*T,23,B,20,B,,1 00350*Z 00360*CTO, CCSAPR.B TRANSFERED. 00370*BSR,20,1 00380*LIBEDT 00390*T,24,B,20,B,,1 00400*Z 00410*CTO, LAAPF.B TRANSFERED. 00420*BSR,20,1 00430*LIBEDT 00440*T,25,B,20,B,,1 00450*Z 00460*CTO, LAAPR.B TRANSFERED. 00470*CTO,... 00480*CTO,LOAD OF 'MASTER.B' FILE COMPLETE. 00490_ #  3} s  3} s  3} s  3} sy  3} AL ~O CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm*N,CPFILE,,,B @ d p"L"VF6"`"j"t8"~"""  < um .u   !"@  ' 'f l b TA 'l l  'TT  h l T6:l   h l TFl   h l TRl    h l T[ l  5 h l T[ l 5! T h l (Y  3~ TGfl T @ Da     `  hA@b b `*/f b`"f h$#`   f ` 0 f ؽ̼h ` ش `  f@  ( b  b  f @  !@  n!@ !@ i*@ i*@ @ @ @ d@$Tm dT!~}LQP@ h@T6     hEHEhA=hA : 7 DX-p d 0 d " z"6 d   ""&"DX z X d  zo  d %  "^dTi XY d  zADXI z6f H{"d60^ d VVk   - m  d"; T? bb H~h 4 4 W W W db0T _VVQ d "L b "hD>b)*71 b "h.) b)*  &h   b{  "  @ @!WCOPYRIGHT CONTROL DATA CORP. 1975,1976  3~!EyuFGDrUj\HWT A A @ @@ =}? HOST DOWN..] HOST UP..] HSԠDN.. ] HSԠUP.. ] HOST DOWN..] HOST UP..] 0123456789ABCDEF  =? =? _/?@  *WM] *ERR] * ] ȁȁ  ` p  T?    1234QAIM  * R 2 a : c B e J g Z i R k * j m< H&9?1I>Txx8Jo.  3~5d  3]!AL+]!P CCS20 TO 325_^11_]_^1C_#ACTION = SR. NCD AUTOMATICALLY SET ON TO NEXT DAY._^1 360 NCD=ICALJL(DATE,ONE)+1_^1_$GO TO 375_^11_]_^1C_#RESULT = PP. NCD AUTOMATICALLY SET TO A CCOMPAY DCK/ I,H 00010DIRPAY DCK/ I,H 00020INVCLI DCK/ I,H 00030INVCUS DCK/ I,H 00040LARPRT DCK/ I,H 00050LBATPT DCK/ I,H 00060LCHUD1 DCK/ I,H 00070LCOLCG DCK/ I,H 00080LCOLST DCK/ I,H 00090LDALST DCK/ I,H 00100LDTLST DCK/ I,H 00110LPGCMP DCK/ I,H 00120LPGLIS DCK/ I,H 00130LPGUTB DCK/ I,H 00140LTMUSE DCK/ I,H 00150LTRNDP DCK/ I,H 00160LUD50A DCK/ I,H 00170LUD50E DCK/ I,H 00180LWROFP DCK/ I,H 00190RECVRY DCK/ I,H 00200ZLA21 DCK/ I,H 00210ZLA22 DCK/ I,H 00220ZLA23 DCK/ I,H 00230ZLA24 DCK/ I,H 00240ZLA25 DCK/ I,H 00250 END/ 00260_ "  3]5 #  3]I REQ.EQ.0) GO TO 300_^1C_#LETTER REQUIRED._^1_$CALL LDSPLY(EALTRQALU]LP CCS20 ]_^1C_#CHECK FOR NUMERIC ENTRY ON LETTER CODE._^1 160 CALL CCSGET(IOBUF,ONE,J)_^1_$CALL CCSGET(IOBUF,TWO,K)_^1_$IF(J.GE.$30.AND.J.LT.$3A.AND.K.GE.$30.AND.K.LT.$3A) G*JOB 00010*CTO,...FILE: LAAPR.J 00020*CTO,LEGAL/AGENCY RPG BINARY GENERATION. 00030*CTO, L/A CUDDLY TO HOLLERITH 00040*OPEN,FN=LAAPR.U,OW=CCS20,VL=SOURCE,LU=20,R 00050*OPEN,FN=LAAPR.B,OW=CCS20,VL=SOURCE,LU=21,W 00060*OPEN,FN=RPG.92.T,OW=CCS20,VL=SOURCE,LU=22,W 00070*CTO,MOUNT L/A 3.O CUDDLY TAPE ON UNIT 0 00080*PAUS 00090*K,I20 00100*CSY,I6,P22 00110*CUDDLY 00120*CTO, CUDDLY TO HOLERITH DONE 00130*CTO, PUNCH L/A RPG BINARIES 00140*K,I22,L12,P21 00150*RPGII 00160*RBDPCH 00170*RPGII 00180*RBDPCH 00190*RPGII 00200*RBDPCH 00210*RPGII 00220*RBDPCH 00230*RPGII 00240*RBDPCH 00250*RPGII 00260*RBDPCH 00270*RPGII 00280*RBDPCH 00290*RPGII 00300*RBDPCH 00310*RPGII 00320*RBDPCH 00330*RPGII 00340*RBDPCH 00350*RPGII 00360*RBDPCH 00370*RPGII 00380*RBDPCH L=  3]] 00390*RPGII 00400*RBDPCH 00410*RPGII 00420*RBDPCH 00430*RPGII 00440*RBDPCH 00450*RPGII 00460*RBDPCH 00470*RPGII 00480*RBDPCH 00490*RPGII 00500*RBDPCH 00510*RPGII 00520*RBDPCH 00530*RPGII 00540*RBDPCH 00550*RPGII 00560*RBDPCH 00570*RPGII 00580*RBDPCH 00590*RPGII 00600*RBDPCH 00610*RPGII 00620*RBDPCH 00630*RPGII 00640*RBDPCH 00650*K,L14 00660*CTO,LEGAL/AGENCY RPG BINARY GENERATION COMPLETE. 00670_  3]q  3]  3~AL ~O CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm*N,CPFILE,,,B @ d p"L"VF6"`"j"t8"~"""  < um .u   !"@  ' 'f l b TA 'l l  'TT  h l T6:l   h l TFl   h l TRl    h l T[ l  5 h l T[ l 5! T h l TGfl T @ Da     `  hA@b b `*/f b`"f h$#`   f ` 0 f ؽ̼h ` ش `  f@  ( b  b  f @  !@  n!@ !@ i*@ i*@ @ @ @ d@$Tm dT!~}LQP@ h@T6     hEHEhA=hA : 7 DX-p d 0 d " z"6 d   ""&"DX z X d  zo  d %  "^dTi XY d  zADXI z6f H{"d60^ d VVk   - m  d"; T? bb H~h 4 4 W W W db0T _VVQ d "L b "hD>b)*71 b "h.) b)*  &h   b{  "  @ @!WCOPYRIGHT CONTROL DATA CORP. 1975,1976EyuFGDrUj\HWT A A @ @@ =}? HOST DOWN..] HOST UP..] HSԠDN.. ] HSԠUP.. ] HOST DOWN..] HOST UP..] 0123456789ABCDEF  =? =? _/?@  *WM] *ERR] * ] ȁȁ  ` p  T?    1234QAIM  * R 2 a : c B e J g Z i R k * j m< H&9?1I>Txx8Jo.m  3~-d  3~A!!'!7   2  =@?@}`  c%sDkDDE EE5E@EEtt'~R  3~Upp0ppp}pG "2$rG "2$rG "2$rG "2$rG "2$rG "2$r P0!g!g!h!k!z!{!!!!!!!!A@   ,@    @ $(! %(! %( 0%(,  p A p`p1ppI!yEpUPUQM0pM1]p}p} !!! ! ! ! ! ! ! U3U3U*3LpU3*Lp!W.E\ (1 LrDLrDL3C L3CFtD L3#L3#L2#L1#L1#L1#L1# 1FtD1 FqD, , FqDU,, FqD@@ @!!h h h$ h( h, h0 h4 h8 h< b2d"3"wR taq " ! hn @HH2"h"hn @HH2"h"hn @HHhD#`," h#%#>wd#_2#9D#8T$#ahLwlǜ2#TD#ST$#a H hP"h hT #hhh hmw#wd$2##whl# 2#D$T #hfh hLD$إأȘ1 ##@# "&2h#Dq#b"&2d#c#d#f 3$ @$T$$ $ qlT$o$$ #i L#j h 2$@T $!hD$N fh hh HH hD$ZT!$P ! d$| !  HHH$D$,"D$T! h$$ HH "Ad% L2 !  3~il wR taq " ! $h bhǘÖ 2 ! h$ hȹn @HHH@ dh h%P "d&>Ll2%MD&@ jҰ%Mh h hĔ 1T_ȿ&5%hȳ l%ȭ("dh d&?2 ! lȖ" ! %؍T|%؉̣1("2%df% % n̨ l l% "Ldl D&@" An2% nܵ&>1 l&1̪ (" " ! ld" ! &.̏ lT &>d%̇("d%%L(" f@ dT!%% lT!%%T_L% n l 1 %r2h&W h&^D2h HHwhh" h" h 2& h&D& D&!j٘&Ȫ& h&Ȣh&ȝ& h&Ȗ& h&X&E&Ch& h&X&E&Dh& h&hț D&A'D'.T &n h d'-' % f1'L nh HH hȭ'9T' h٘'!D'GXhȒhrh% D'WXh hD%2D'eXd& d&&d&rd&% D'|Xd&D%2'D%2&nD' n' h' &2'T''Δ'n'T''/ LD&LL'06 hh'%h 1 ! h H 2(T)A!(T)B٘() n)#Ȱ (8D(4T)G)C)#hȞhrhD hh ! d)? ! (^T)D' ('' D(mT)G)E'%'D)@% n%(% D(T!T('('D(T!)#ΰd'̻d'rd'D d'd' ! lΕ ! Ѝ(T)F n%L%Φ n%Π)#% D(T!\')#'' D(T!E'D)@E nE)#E D)T!T(')#'!D)!T! LD'D'( 6   T aC@ )a a ){% )z%  b% D)xT!  1) )a a )% )% D)X) 1)̻a a )% Τ)% D)X)  1D)d)T! hhh h)Vh" hh* h*& D*T   wh h h hT*) d)ȩ *9 ȟ *RȓhT )hfΧhT*) Ȇ**T*) wd*2**~% D*zT!)*)) D*T!)  ! *T$*  D))    TaC@ a n " ! a " ! > a +ف "a d*T"*++ d*T"a Aζ  n n Ϋa  " ! > AΚ n a    T aaa a C@ 2+J a+T d 2+T aA <" " A <" "A      a      3~}T aaaC@ " ! a a T_   ! a  ! >        T aC@ abs",",T+,,a2 ! a,T+,,a" ! a " ! > a,  " !T,,d-8-bs"-"-Twhl-d-9T,<-:-9-;T,-;͘1T,<-< t-;- n @HH " ! bs"-s"-rT+--h2-kNT0-pT,<- u--s  H   T aaC@ " ! D "f d-T,a@a- T_.B-"&2 D-T% D-T-% D-Ta̳("ζaA   w , % D.Tbs".>".= A  ; ]a d.4T,<.[.\T,<.] u.\.>T.X.L D.X"&2 D.WT    T C@ .w " W  . f  ! a ,0 . D.T0+T aA A A n  a d.d.T-  . n 2.%D.T .f%h h  hT .hh hwh"/ZD/|hػLD/}s" XLL3"XL XȔ h "/Y hL .ðX.L. /äX.D/`T!.Θ Ð.n .,"l d. d.b r "0'"0&T .d. lwd.w d03/D04d.Ls" ö̆" L3"ë."   lҜ1"  .M /Ð.w ww" lDl  ! l̳  ! 0T/w.Ln.n0' L/~   T aaC@ " !wbs"0b"0a0b 0 " A Pn ba d0T0E D0a d0T!0" f g p0% D0Ta 0% D0Ta 0̞("A -d0 D0T-0d0T!   TC@ ad P <21" ta 1 d 1 ?1 ua1 a11Xd B sa S11 d Nd19T,<1V1W1ST d T w1X1Yd1RT.^ =SUALRPORDIQIAUNOCPDPACDERECA*SUP INACT] *ALM INACT] *RPT INACT] *ORD INACT] *DIA INACT] *Q= SUP]*Q= ALM]*Q= RPT]*Q= ORD]*Q= DIA] *ERR] R . ! d2 / ! 1L 1 0 ! l 1 ! 1 1 81Z1"̾1 91"̹wl22 w   S n D2]ŸE1[ L" ”1` ! d2\΄  ! 2ML n HH =X6=2^ h  ! d3  ! 2X6>2_  ! l  ! 3gb s"3^"3P UwR taq 22T d ȧ "1oD2T 6?6@T.^ 1^2ȓd T3^T l1D2T 6?6AT.^ 1^3^ d M3^ l3^ xR uedl3^2_ xR uedRl3^ O3& ld >lw d A3^"d s!d u3^ll3^d33J pT056B = d ?l3^-HCL^rT! S3}lT S136@w" *ìd T.^ 1^ 2` 3 l3 Q3X3 R - T ! -0 *d ̻d T6? l T+6C6BdV  3~1ZXd BdlN 2 ! d5 zΐ2 ! 3  . ! Nl / ! 47 4 ! l ]  ! 4 d l4! l 45T d Rnd S̒  ! d Q l̷4"1ZÉ ;4[ lL" T34 : ! d5̬Ӭ4 llT"56DlT S156@̩4D5 D4T!Ld T.^ 1^4T2 2 ! l̯ ! l 3 ! л 4 <24T,<6E v6B d P4T04L 4&2LT n&2Χd Rn4  3 @ d1\ >%΃ ! d5 l Ad5d2 ! 51]bs"5"5}T,<6C .6B l5T,<6E v6BT,<6C /6B l5 d ? l 5p l <25nT,<6E v6B d P5pT0 =,5{T056B =5 5̚lLd"5 >1\lw l 5T8 AD5d5T,<6C56B d B 5 lT+6E6Bd1[l85 E69̍25T,<6E6F6B̃25 sl5 ulT,<6E1[6B69 <d6T,<6E v6B d P69" ! d6<" ! 6$ ?d O 6 lT06926-T46964X69T,<6E r6B  =}7lwhhh hT*6K6O6Q6 26 ј26D6T 6JfhLn h6 hȳ1Ȭȫ HHT 6JhnȈh hX667-"‚lD7 ήhT"6K7+Twd6GT*6K66G7)d7wd 7$LD7" D7D7" ]Čw7+7-7KT$o86J6M7FF2 D7ET$o8 d n7̨66 wl" ! l ! 7w6L6I D7uT!6J67T$o8  L6 ll l 08 l   d6G2 ! d8 2 ! 7   bs"7"7d7d7d7d7 T$o8 8  0lT"88lT {88E d T.^ 6K8Lw l d6H88ܖlT"6Kl윊 ! 6G878 1l &2d6N&2 nT78&2n6MD8 lDl  ! l̳  ! Ќ8 l8"L̯D8"Mܣ 1L w6HT!6M6J EP T$ l8T!6M6J\8d  78= h8 " !8 8T-z8 1   TC@  a *   T+) 9J9KD9d9T+) 9K a 2 ! a ؜ ! >M 9G d d   =   T aaC@ a  a9a A   "  = d9d9 a d9T+)9 a  1 = = *ERR SYS HLT] *ERR] * ] LIST EMPTY] SHSREHRSDRE1E2E3E4EQEAEIEMDPLHC C,EBRBBLDLDFEFBGBRLGLPDA b29" ! d:" ! h92 ! l" ! h H  d h h ^E " 2d>d:'>:D d9d ʈ ! l  ! :D l9¹lT"  :Z>: d9T 9>>ld" ! l 2 ! :  E D:T* 9:> 2:" f l̇b r ">"> F :T 9>>: l>: ll:T 9>>>E D:T9:9 l d>: -Mܖ1;! l;D;   lT+) >>D>9 n  1̿"̼  ! n ̱ ( > ;ET  3~9>>;H d >T9L >; d9 lL D> 쪖  L  = d T+) ?> n ;>>d հ; l>D> T+) ?>9T9 ;  d9 d>; -ð1;D;( lT+) >>n" ( >̢;̏l< ׸<̅ l̘l\ l\ <><; L   ! d _  ! d <4E d  T8> d9 " Ɛ ! d9l  ! Ѐ Зd> ٸlT9 l\ <{><("V  d9TS9 > l зl̽иl<܎̍("˜ ! l  ! Лl ! Бd9l9  ! Ѓ<>= "  lܙTG9 >  2 ! d> 2 ! =+D>   ! f =->>ٔ 2 ! l 2 ! =RT l MT+) ?>=T>> ؜2 ! lٜ2 ! =nT! =p>> 2 ! l " ! =T =T 9?>= "  d9 d9T"??d>=E D=T+) 9> l1 =>>2 ! l̹ " ! =̼(" lT"??l=ED>Λf̵ܰ1T =>> " ! l" ! Лl  " ! Бl" ! Љ>#>>'f W>2 ! d>2 ! >̹ d dRlT T+) ?> M L  >o >i>>mT >T+) ?>D>  / >>>T 9>>>&CXX||O ]  ! d> _  ! d> ^  ! >T,  *SYS HLT] *HLT XXXX]  T,?d? ^ " $T,Ӹ   =   TC@ a a 2 Nd Ca d "p0a d?T"@ a  2 ! a  " ! > d?T$@@T d @@a 2@@ a @= d@T$@@1A AT fAa@:T! @ a 1 a aa 2Ώa d@Wd@YT @ d@md@n a d@oT+)@ a D@d@d@T+)@ a  2Θ " ! a  2 ! >  m aA a 2 1  2 ! a  " ! > @FT$@ @@ d@T.^ @T!  =  TC@T$A-A.A*T d T A/A0T9L 'T$A- A.A&dA#T.^ A*T!  =   T aC@ a " %2 ! a 2 ! A2 a A n ֐2A2  TA @dADATAATn   T C@ ' B aa a " 2 ! "2 ! 22 ! 2 b r "B"Bΐ2 ! a 2 ! aB2 ! aBΐ2 ! aB////  ! >B(" ab r "B"B (DBHDBITrBT9L 'd !T-'B !TBT?BT? BT@BT? B DBv DBwTr cBT-' d !BTA1 BBP#',<BBTB  B ,s "b r "B"BLlB̳lQJ  3 ~BslB3lBlB  2BTCBȹ "hBTCBTB ld  H  1 C0 "n% DCT  C, d nC. lCw bl 1C] TwCGCKȺbȸw ww C[ lCwCiȡ lCwhCthȎb h DCC  h 1 C% DCTC hC DC "fC 1C wC hCnw wCC hCn Ȥ HTDD d d TBDDTBD T& hd DHDDmlw" D D<!lDF 'Ew d TDnD^ D^ *l D^lTDoDoL* ! -0  h h," hDDldDwd"DhhD d T$D D Al - T8 nD d D  T  ! dDLw"   ! DTE T {DTDk  ,QDDE ,Q -QT$ l -0 *d   d T$E  TC h nE1  !EU  d T9E9 TC h Tif TE{EG *d T$E| E}EqTC Eo,"E T.^ nEx !EU TE{   hE j 1w HTFFAhDU F b r "F"F A  A  A    E EXFT6FE  EE Ew/Fv dE wȅ2F  F  XFT6FEFTFF0MF dEE~ dEFdwR taq 2FZb r "FX"FS  FX  FX  FXFcFc  Fܽ 1   2F 2F 2F   2FF F  TEF dE dE dET6FEDw/F wE    2FTFFv dFhFhT9F  "F "FhFhG"GhGh@dTT_ GTS͐ ! dGi G9 " lG3TGjG9 d TGḵ G@ ȡGI dP Г wճ w "l w("wL w("lDd r w("l w("wl\NlPT d q lL fܓ 1 ULP,-L-,l,wl\^lPP,dPwdMw("DPw-DPb L씺-DL,- L,-wL,-Lb d w w-f -  - - MB - ,DMK b L, - 2 ! dP2 ! M DPPLlwP-wL,-,wd s-AbM, "L,ML-ML, 2 ! -ML,w-wM-w bP,d },wd xL,- TKndP,l,wlPDP,- U\~lP -LdPN/ ,"  d snLl۰N L DP,퀳L,Ы wNbwlNe wlNp ̸̴AbPNLPDP]wL b wLdP-wLP,-,d },wd x TKdP,l,wlL,- \lP, l,w l\  EU d O% - ! ``O d OP ld ,E , bO* `llTx P" lPP, d },w d xTK UOT   Ul `Tx P" dP, l,w l\ OE DOT!  lPO Ew m! m  wճ "mDP n bOTPlP d }d xLwPD "Lw"GDP rb r "PD"PBDP,1L,L,w- lPDL1Lӷ-sL쑯Ls-3L-L,-PL,- lPD zd vMEw yfb r "P"PPP }Pf lP 2Po lP rb r "P"P 2P lP 2P lP P 2P lP 9 zd xL“PE ܉̡PLƒTKdP7X*^ DJK  d# TRͰRD "  "  d DU Q2 Q2 l  ! dR`QD " dd td s t s mlDRlwl2Q Ql nL," l̫L," DQ,"DQT!̮lQ,"DQT! E` Q `Ub r \  3 ~"R"R Q d d ̚d lp`PЊ@ŐPE@ p`0L "lDb r "R("R&0Ű Š@ R(0PR(D "fR DRİRU DR,dR,RUd TP R R` d DU d Ew m! m ЋRw lRUlw! m lRUl lRjR d T_ lR̃d D "΀d T6R lQ d P 0d h bSvhSrTSRDU b 5r "Sn"SjT\SSnT\SSn 5UTSSnD " @ ! dS ldS d ! Sf  `  dR dRd d U S`TSSfTS dRT_Sn R l 2R dRSNdR lS%2SS S " DS  U̿DS%2b `TS lܬ1l̙S" 0d R "  MU w w `TT"  @d hTh hT%T%" TZTX TXXTDT,TuDT, -,TuX찆T쐀T " L%SDT mUDT-Lw-w `TT" T S2T1dST$@d T TUoUf bs"Uf"Ua UfD wDf wĴwT6UpTUf d vUH " U>  UG  1UfŴf řUfq2Z TTW] DW\ 2  TW^U  ! dW[ w ! U  ! l" ! U dRUdR2Ud cU l .wTW_ Ew dwdT6W`WKḓUVW@Vd E DVTCbs"V"V2VȎd2VoE DV7ThWa2VU̕VN l /Ew TW_ VxVm  "Vj   wUVm  wVdR    wE DVThWbW_V  wVVVpW>E DVThWa2V  wWKdR$d E DVThWcE DV," "DVThWd   < wDW\lw" dUqsb r "W>"W6E DW ThWbWeW>L," W+E DW&ThWbWfW4E DW1ThWbWgW> WK$d T Ur PHlX  D[ 2   w 2Wd E DWTh[2WE DWTh[[WT[DW2W"Wd  2WE DWTh[ W !EwdT6[E DWTh[[X[ w  wbs"["[XX#X! < w  [ȠdDXS2X: "w2XC #w2XL $wlT6[2X}  lXnE DXiT\   "X}% DX|T[DXD[,QXXE DX,"DXT!XD[,Q -Q 2XYXX1b r "Y"YLlwX  wX 1d T[YXXY XXY"[E DY Th[ " ! d[ " ! Y>E DY(Th[[ %EwddT6[ZM c  3 ~YM l /wT[b r "Yj"Yc dWkYj lYjldlT$[WkdWild ! l󸻸YYT  YD[dWjD[ ̰ldYLT lLn ̑ldZ4LLlw wE DYTh[@dRE DZ," "DZTh[   < wE DZ'Th[E DZ/Th[[ZM    wE DZ@Th[E DZHTh[[X[DZZZbZ` < w  [șd[I2ZD[ ZLD[dWjT l LnE DZTh[   < w@dR [G"ZdR[G ,ZL L΋D[̗L "bL [L ndWj  l[-T\Wj   "[<% D[;T[d d T[[QȁdR2[2[c 'Ew[q2[n (w[q )wdT6[d[D[D[ "fL("bL X[>Q DWhWlP ( `lXH h\d\Llwd h " &2hhn @H jh\GT\K\& h\FD "l d\JD d\F h d"? d"9T^7 A\LB\M"6\d       E Nd ":d T\"̘ _^ @l̏ ^<@EJZair|_^;" HlD` _̅_ MdR dR __    _M"6w_H__M w l d":   _|d^<d^=X d"<A^<B^=^>_^>d d  T___ _ _ _ " ! d_ ___0 ^? "5  dRn @H "5  dn @H "5 MdRn @H "5 Mdn @H "5 MdRn @H "5 Mdn @H "5  M n @ "5  N      3   n @"5  ` EDa` DM%D`TJ~  H `b r "b-"b'D@"9a%b\aF2a0aDa;aD`aDb-b-2aD"7"DbwPaba@aoVaa{aaa0aa aab\aD@"9aaaaȁa`aȂb-b-@aa2aaaa`aVab\ b% DbT$fb-b-̤a bb-bbJb-̓2b#b\b%b-b-- Dbw,bT`=r2qLT`=r  pXT`=rT]rrrT`=r qe  \r\r DrDrw" ]dj^bs"q"qTnVjjq\jjq\jjq\jjqTlKrT\% DqT$rd Tg`rT]rrrD@"9qTkTkhrT]rrr drsdrTlrrq\jjq\jjq\jjq\jjq\jjq zQQV[`e Dr llwd2rr|E DrTlT]rrrrFTkD ":rFTlrrT]rrr@r?\ rFrQ2rvTlKrTm;r drsdrTlrrrlT`=r\r  \rqT`=rT`~r  \rpX ne` P  <             sT r DrTs=T\ 2s DsTs=s,w wwsw DsTs=T\ 2s, Ds+Ts= H  ! ds  ! s Ts3shscshhTw" hs  ! lsœ ! lT\s>dsT\ d " ! бssȠh" F2h"F2nsTjT sATC s Lw ww"Mhss3sw"  s l  Lw"MhstTs3t+TgT$t,   th hdtt2thht[hhh2Dt%2n2L%2n t̵t lt bT!t.t țؚ1ht H tT h h fththh u h%2b%2Du" b Ȼtu ̹uȲluȭbu ȩh HTuu#TuDw " ! du 1duwd" ! u@Tuwb 1r "u"ub r "u"uT$u uT}M uT|n uh,"DuwT$uuud T$ lT}MuT|nuu uT|n uhT9uuT}- uT~uTuTuIPUUUDYY]] u  hh ! dv " ! u hv " bu hvMh ! l " ! v hvȷȳ" h " ! l " ! аv3 hvșh " ! lȑ " ! vGȄ" h ! lu  ! Ђl  ! dvu ! l " ! vv} lv b DvuEfu "l lu"  "   " ̥  T}-u uu ! dy dyd" ! v hx " b w hx lbd"w hx̎" hhh̅"  h w*ȫohw.ȥ`hȡhh " ! l ld  3E" ! ДwgȂwS dvxvw\ lxvwe lxwv " ! dy " ! w lx " ! l o" ! w lxw dvDy, ! l,w ! w lxw lwl "ldvT$|{v||wT vdvw -Ew ud T|{|ju"  dv" ¿dvT'vvvxT!vv dvxxL l dyx" f1DyDu " b-sDy"lu-1,1x l̽ " 2 ! ll {xbܫ 2xlT|}x~̟("L m  w̍("b̂-Qv- v-w  2 ! dy dyd2 ! xyv-v-w dv bvx uf  $d T9|~vxn "xd ("DxTu"  "   "̼  MT}-u v "  b yV byCu̿" ̺"  ̴" T}-uyTT$|~u yTlT|~|~ys yl uf  "d T9|~TIuT$|~u  b (" bb r "y"yy% DyT9u" "  " T}-uu y b y Χn "lT9|~TIu  by n #lT9|~T$|~u y  by  by  y>>>Z>Z y]d ̹d T6|  H u" ! d{x ! l d{yd" ! lw ! zQX|{iDu " bs"{i"{e zqX|z bb r "z"z D{z%n  TIuX|z  dz T d fT z ||T}- z f  #d T9|~  b  z  bz  z  zKPK{i zTz|{ z  \|{  \| b { Ήn "lT9|~{TJ`u{i {\|{U {$\|{UuuD{z"  u w L" w   d d fd d T|{i {a  {c\|{ivT$|~u|j z" duLwl"  du̜" du̖"  dȕ" l̊"  Eû" w {X  ! d|y ! | ! l d|zd" ! {u"  "   "  T}-u|u{Tyz|  ! l  ! б| Tz| du|;u  ! lu ! |9|,Tv|7 |5Ty |7 l|; l|RT$|~u |PlT|~|~|j!d D3u-Tg |jlT|~|~ Du{{) @Lwh"   | 0|h|h|hb r "}"}T$}9|} h|Ĉ"D}8غ 1T}M|}!d d ȧd  TjT}l lȗl TjT,"D}T$}:};}|lT$ d}7T}M}7}2 })lT}9}9 L| -0 *d d TB}T HT$~~}jT~~~D  ! d~ d~d" ! }T~ j "  hhD  ]hwb ,r "~f"~c b  ! l н}~~h   b~f b  ! l Р}~~d}X  b~f }}% D}T9 D~!%~D}V("D~ T~l]d}Z ~E    d d T6~  b ~6  b~9  b ~C  ~~~a b ~[ ηf  "d T9~  b~a  bTJ`}V~f7T d}U D~uT}U}W~ mwT}-}U }[ *~h Q~T$F~~ Q  Qh  dC w  3YdDT)*CD 1~  Հh~hXhXhX s 2 ! l l sd2 !  DE!% D TGΨd T d n d TjTl~D, QlT!C~n L~Dw  ! h dF n d  l d lTƸl " DTȸ " d ȯ(" d ȧ 1l 0ld T Z 0db " UT$DT d f l sd" ! l s " ! " D DT Dc  ȩd TC h s " nllpl s("`О9 !EU  έd d T9 " "dSwȄlTXl wl  ! wll "  3  wd ̼D(2lXܲ1 llXܢ 1̙  d d     TaC@ a  3   !A  2 D wadX!a  ! >  l b !K A !%  -D*T a a d" ! a  " ! G lI a a " ! a  ! f a  n  A ΦE  dT a a ܅   d! nA λ  n a  h! ! T h l! " DT!h ! d! ! l  ! "h ! dT$ԁլT hb r ""   D %b !nN  w   LEb ǀ LE %b LΫEb  L "  )wT݂ n @DD !hT hT ./T+)؂ڃ0/T+ւڃ1/hT+)؂ڃ2/ m ?h lT,3T,<4 t5T-'5lT,<4 u5n @HH=    TaC@st2 ! a T$١ d_T"a )=w T a a  w       A a ;ºd 2  0 a a   AA;¡Þ ! a  ! >  T a % f a  dTx  T d E DT T.^ n H=   Taa a C@ a  d 2 ! A a ;   ! < "A A ;      VT,T,< t -d d T8T-'F ,n @HHH(10 *HALT     hD DfdL Ln d ?T,T,< thDT+)DT+)T-'TT?1n @ = g e;9a@TTv  3mb  3b  3b  34VG@ H`@b2  &  `TGb b hTSb  ` @@  )P dmddud fd "d("d id("d hȽ("fس 1 Rd("hȢAhi`h `dbkdTǡ        n f b b blfb4 d2,  3bq  3 E@\ FNC@ 0 @6t# ]_#v ߛ#R G\5.B \ !0V X E5.BCߝ3_+ _t] A@]PV@ NZA@ $0V^`@ޚ ED%D I Jߜ8.E@%5]5.B\#'N"ޚ@Eޚ EZD^ߝ FߙU@Zu T8*ޜA\ 5 6ZVw ޜ\3 A] Z%`@'u Tv A\ZCZ q PD7V W^u ڇ%__v A\__ u__ t /_\ !\PV Z aߘ@X $ Z Z \ BT)_ Vp UXeX UTe f\ P5.B@_ t5 y\$W _ _[W$ZG%u.BޜAp : mGߜ 8.mߙ Aߚ:[ \ a $ ) @ߝߛ  \Z  ) A.6.v \( xNC'N x#0W Ө@ ^ t 7t# ]N Rp } @N$@[T N% @q ,!_+p ߝ#]W | ^_['Y$$N% @.v5 'ߟ0 &Sߟ q@xw#_U5o2Ө0\ &ߜ & \# uߛ3 V \ߟ ߟ ]M "p#!bY u nߘun0pq#*_ Nu#"վ*Q ^ !__t$ ] 5 6]Ө* * [5^  *W550q,ޜN =tX#* $]@> ݇%>ߟ >WT.7] $5]5 %ߟݬn@ Nu #] 5@= <*]  XUM=_ .ŘN_5 ) Lߜ>.) O.>ߜ 8Oߜ@PP ?h5? 8]@ #ߜ@ =ߜT *ߞ$\W [ \W [ 8ߟ$@]%u _$Tu ߟ$$u ߟ$%u ߟ$P5 ]@ mߜT :ߞ$\W [  ] @ژ@<ޜ 9.*]  XUM Q_XؠP>J 4]] X7X6]X5X4X $D0NVD@q ޜZ HuX#_N!ߟ _T@_ X_ qLޘHP>T q_Cq<ޜZ HV t p,H.]6 Ә@-(]\ޜ Y1NM\ߞ0pߞ ZY0[^ %Hߝ ] pߞZq$p$H XؠJ  (^XX ^A4T5_ $_D5ޜ ZVq u<ޜg efq X ߞ ZiN0eT0@_ X_@Tq Lq__،^$$Afߟ .]vӘgX ]@ P>u#h#[^ 1P>NLP>\ T0_ X$_$NV$ޜ p ޝ_ XU,i_ j^@qt  oX],RA  3 oT ؄i eХ iT@ `k3 p ` o\# o([]P@lV@V `V_ []P ߟDpߜ > (wv4vߝ wT4 ?ߘ@b ct*tP>NqP>]6 W5T00_X $_DsV$pX#j__ _5@F$iT$^p$i$_$tT3@[= kp 33`@Z#r\  oҘs o0$0VT $NP>]6 W5T00ߞX $_DV$pޜ#lS8t  tS8X#@__ X],` li@ X#_^$hT$l)$p_,$X#_F$tX$7] 0hq$>TX#] P>ܶq_ P>hP>TTRVڇ"_dTڇ>VuV!66ڇVڇ*Vڇ!Vڇ!6ڇ6ڇ!6ڇ6c6oV6# V P>Z P>T0% T0%-5K-Up U5U-U_4B_XP>@_@X#L_܀EP>@ _@_$LXހEP>@ ߝ ߝ ]v0]^X !^X% ߘԘ s0ߘ@# ][%(@#Nwu X] 5 6ߜ i @T6ߜ q V @oX ⟝ \_N.@p@p\E vq&\P % (  _X#@n_]G @nRh 4^%T0 \ߝ+v ^+ٟ\Gqߞ%ߞ 0ܟ r bN1Nj bܵ5q5 ^_00\\ b_ $b^00\ ^vq5 \ %֘ >ܞ b@A֞ > A٘ =٘@=䟙P> f۟@G@B@B@i V ߜ #] 0^%pT6㭽 ^\ ߜ ߝ(\ߘ ֟ \.|Nj i( ߛ֟N.]@2] (] ,] :T\ m][%  ߜ q5 V ߚV Xޜ ՟ \X_,\Z%iX@wޜ  ޘ0 bD b_\ u#c =d4cߝ dTTޜ#9_T"_ <\ ^@@*V Z4_^X !^XE [ W@t =چ>Z <ߝ u#d%49ߚ Z P>  3 "hhhd d lp  3q DIRPAY 000 0002500260I 1 16 PFACCT DIRPAY 000 0002600270I 19 272PFAMT DIRPAY 000 0002700280I 28 330PFDATE DIRPAY 000 0002800290I 34 37 PFLGAA DIRPAY 000 0002900300ILAPMTFILAA 01 DIRPAY 000 0003000310ILADLQMSTAA 01 DIRPAY 000 0003100320I 18 47 LAMNAM DIRPAY 000 0003200330I 905 9132LAPYOF DIRPAY 000 0003300340C* DIRPAY 000 0003400350C********************************************************************DIRPAY 000 0003500360C* DIRPAY 000 0003600370C* ****** FUNCTION OF INDICATORS ****** DIRPAY 000 0003700380C* DIRPAY 000 0003800390C* INDICATOR FUNCTION DIRPAY 000 0003900400C* DIRPAY 000 0004000410C* 02 RECORD TYPE = DIRECT PAYMENT (LAPMTFIL) DIRPAY 000 0004100420C* 10 END-OF-FILE (LAPMTFIL) DIRPAY 000 0004200430C* 20 CLIENT # LEVEL BREAK DIRPAY 000 0004300440C* 30 ACCOUNT # LEVEL BREAK DIRPAY 000 0004400450C* 40 DETAIL LINE-COUNTER (40 PER PAGE) DIRPAY 000 0004500460C* 50 RECORD-NOT-FOUND (LADLQMST) DIRPAY 000 0004600470C* 90 FIRST-TIME-THROUGH IND. DIRPAY 000 0004700480C* DIRPAY 000 0004800490C* *********** *********** *********** DIRPAY 000 0004900500C* DIRPAY 000 0005000510C* INITIALIZE VARIABLES DIRPAY 000 0005100520C* DIRPAY 000 0005200530CLR Z-ADD0 TOTAMT 92 DIRPAY 000 0005300540CLR Z-ADD0 TOTBAL 92 DIRPAY 000 0005400550CLR Z-ADD0 GRANDA 102 DIRPAY 000 0005500560CLR Z-ADD0 GRANDB 102 DIRPAY 000 0005600570CLR Z-ADD0 LINCTR 20 DIRPAY 000 0005700580CLR MOVE ' ' LEVEL2 4 DIRPAY 000 0005800590CLR MOVE ' 'LEVEL1 16 DIRPAY 000 0005900600CLR MOVEL' 'LEVEL1 DIRPAY 000 0006000610CLR SETON 90 DIRPAY 000 0006100620C* DIRPAY 000 0006200630C* BEGINNING OF RECORD PROCESSING LOOP DIRPAY 000 0006300640C* DIRPAY 000 0006400650CLR START TAG DIRPAY 000 0006500660CLR READ LAPMTFIL 10 DIRPAY 000 0006600670CLR 10   3  GOTO EOJ END-OF-FILE DIRPAY 000 0006700680CLRN02 GOTO START NOT DIRECT PAY DIRPAY 000 0006800690CLR PFLGAA COMP LEVEL2 2020 ON=NEW CLIENT DIRPAY 000 0006900700CLR 20 MOVE PFLGAA LEVEL2 DIRPAY 000 0007000710CLR 20 EXCPT DIRPAY 000 0007100720CLR 20N90 TOTAMT ADD GRANDA GRANDA DIRPAY 000 0007200730CLR 20N90 TOTBAL ADD GRANDB GRANDB DIRPAY 000 0007300740CLR 20N90 Z-ADD0 TOTAMT DIRPAY 000 0007400750CLR 20N90 Z-ADD0 TOTBAL DIRPAY 000 0007500760CLR PFACCT COMP LEVEL1 3030 ON=NEW ACCT # DIRPAY 000 0007600770CLRN20 EXCPT DIRPAY 000 0007700780CLR Z-ADDPFDATE DATFLD 60 DIRPAY 000 0007800790CLR Z-ADDPFAMT AMTFLD 92 DIRPAY 000 0007900800CLR PFAMT ADD TOTAMT TOTAMT DIRPAY 000 0008000810CLR 30 MOVE PFACCT LEVEL1 DIRPAY 000 0008100820CLR 30 PFACCT CHAINLADLQMST 50 DIRPAY 000 0008200830CLR 30 LAPYOF ADD TOTBAL TOTBAL DIRPAY 000 0008300840CLR SETOF 203040 DIRPAY 000 0008400850CLR SETOF 0290 DIRPAY 000 0008500860CLR LINCTR ADD 1 LINCTR DIRPAY 000 0008600870CLR LINCTR COMP 40 40 DIRPAY 000 0008700880CLR 40 Z-ADD0 LINCTR DIRPAY 000 0008800890CLR GOTO START DIRPAY 000 0008900900C* DIRPAY 000 0009000910C* END OF RECORD PROCESSING LOOP DIRPAY 000 0009100920C* DIRPAY 000 0009200930CLR EOJ TAG DIRPAY 000 0009300940CLR TOTAMT ADD GRANDA GRANDA DIRPAY 000 0009400950CLR TOTBAL ADD GRANDB GRANDB DIRPAY 000 0009500960CLR EXCPT DIRPAY 000 0009600970O* DIRPAY 000 0009700980O********************************************************************DIRPAY 000 0009800990O* DIRPAY 000 0009901000OPRINT E 20N30N90 DIRPAY 000 0010001010O OR 30N20N90 DIRPAY 000 0010101020O OR 10N90 DIRPAY 000 0010201030O N50LAMNAM 30 DIRPAY 000 0010301040O 50 14 '***WARNING!!! ' DIRPAY 000 0010401050O 50 30 'ACCT NOT ON FILE' DIRPAY 000 0010501060O LEVEL1 51 DIRPAY 000 0010601070O DATFLDY 64 DIRPAY 000 0010701080O AMTFLDJ 82 '$' DIRPAY 000 00108v  3!01090O N50LAPYOFJ 100 '$' DIRPAY 000 0010901100O 50 108 '***WARNING!!! ACCT' DIRPAY 000 0011001110O 50 124 'NOT ON LADLQMST' DIRPAY 000 0011101120O E 2 20N30N90 DIRPAY 000 0011201130O OR 2 10N90 DIRPAY 000 0011301140O 5 'TOTAL' DIRPAY 000 0011401150O TOTAMTJ 82 '$' DIRPAY 000 0011501160O TOTBALJ 100 '$' DIRPAY 000 0011601170O E 103 20N30 DIRPAY 000 0011701180O OR 103 10 DIRPAY 000 0011801190O OR 103 40 DIRPAY 000 0011901200O 21 'LEGAL & AGENCY SYSTEM' DIRPAY 000 0012001210O 64 'DIRECT PAYMENTS' DIRPAY 000 0012101220O 80 'RECEIVED REPORT' DIRPAY 000 0012201230O 126 'PAGE NO.' DIRPAY 000 0012301240O PAGE Z 130 DIRPAY 000 0012401250O E 20N30 DIRPAY 000 0012501260O OR 10 DIRPAY 000 0012601270O OR 40 DIRPAY 000 0012701280O 11 'VERSION 3.0' DIRPAY 000 0012801290O 117 'RUN DATE:' DIRPAY 000 0012901300O UDATE Y 126 DIRPAY 000 0013001310O E 3 20N30 DIRPAY 000 0013101320O OR 3 10 DIRPAY 000 0013201330O OR 3 40 DIRPAY 000 0013301340O 19 'SYSTEM VERIFICATION' DIRPAY 000 0013401350O E 3 20N30 DIRPAY 000 0013501360O OR 3 40 DIRPAY 000 0013601370O 19 'ATTORNEY / AGENT #' DIRPAY 000 0013701380O LEVEL2 24 DIRPAY 000 0013801390O E 2 20N30 DIRPAY 000 0013901400O OR 2 40 DIRPAY 000 0014001410O 13 'CUSTOMER NAME' DIRPAY 000 0014101420O 49 'ACCOUNT NUMBER' DIRPAY 000 0014201430O 63 'DATE' DIRPAY 000 0014301440O 82 'AMOUNT' DIRPAY 000 0014401450O 100 'BALANCE' DIRPAY 000 0014501460O E N10N20N30 DIRPAY 000 0014601470O N50LAMNAM 30 DIRPAY 000 0014701480O 50 14 '***WARNING!!! ' DIRPAY 000 0014801490O 50 30 'ACCT NOT ON FILE' DIRPAY 000 0014901500O LEVEL1 51  3" DIRPAY 000 0015001510O DATFLDY 64 DIRPAY 000 0015101520O AMTFLDJ 82 '$' DIRPAY 000 0015201530O E 33 10 DIRPAY 000 0015301540O 82 'AMOUNT' DIRPAY 000 0015401550O 100 'BALANCE' DIRPAY 000 0015501560O E 10 DIRPAY 000 0015601570O 11 'GRAND TOTAL' DIRPAY 000 0015701580O GRANDAJ 82 '$' DIRPAY 000 0015801590O GRANDBJ 100 '$' DIRPAY 000 00159/* 01600 000 0016000010H INVCLI 000 00001 X 1 G03 R LA CCS 3.0 SL-149 00260 000 0000200030F* G03 R LA CCS 3.0 SL-149 I00270 000 0000300040F* I00280 000 0000400050F* LEGAL AND AGENCY VERSION 3 I00290 000 0000500060F* DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA I00300 000 0000600070F* COPYRIGHT CONTROL DATA CORPORATION, 1979 I00310 000 0000700080F* I00320 000 0000800090F* THIS PROGRAM USES THE CLIENT INVENTORY FILE 'LACLINV' (SORTED INVCLI 000 0000900100F* BY CLIENT #) TO PROVIDE AN INVENTORY REPORT BY ATTORNEY/AGENCY. INVCLI 000 0001000110F* THE PROGRAM ALLOWS FOR FIVE USER-DEFINED CLIENT TYPES, IDENT- INVCLI 000 0001100120F* IFIED BY A TWO CHARACTER TYPE CODE IN 'LAUTIFIL' CORRESPONDING INVCLI 000 0001200130F* TO THE FIRST TWO CHARACTERS OF THE CLIENT NUMBER. THE PROGRAM INVCLI 000 0001300140F* FURTHER ALLOWS FOR A SIXTH CLIENT TYPE, REFERRED TO AS 'MISCEL- INVCLI 000 0001400150F* LANEOUS', CONSISTING OF ALL RECORDS WHICH DO NOT FALL INTO ANY INVCLI 000 0001500160F* OF THE USER-DEFINED CLIENT TYPES.A CHAIN OPERATION IS PERFORMED INVCLI 000 0001600170F* TO 'LAUTIFIL' TO RETRIEVE THE CLIENT TYPE AND A 30 CHARACTER INVCLI 000 0001700180F* TYPE DESCRIPTION. INVCLI 000 0001800190F* INVCLI 000 0001900200F********************************************************************INVCLI 000 0002000210F* INVCLI 000 0002100220FNULL IP F 2 DISK INVCLI 000 0002200230FLACLINV ID F 80 DISK INVCLI 000 0002300240FLAUTIFILIC F 80R 4AI 1 DISK INVCLI 000 0002400250FPRINT O F 132 PRINTER INVCLI 000 0002500260I* INVCLI 000 0002600270I********************************************************************INVCLI 000 0002700280I* INVCLI 000 0002800290INULL AA 08 INVCLI 000 0002900300ILACLINV AA 08 INVCLI 000 0003000310I 1 16 INVACT INVCLI 000 0003100320I   3# 17 18 INVTYP INVCLI 000 0003200330I 17 20 INVCLI 30 INVCLI 000 0003300340I 21 50 INVNAM INVCLI 000 0003400350I 51 560INVDAT INVCLI 000 0003500360I 57 652INVBAL INVCLI 000 0003600370ILAUTIFILAA 08 4 CL INVCLI 000 0003700380I 5 6 TYPE1 11 INVCLI 000 0003800390I 8 9 TYPE2 12 INVCLI 000 0003900400I 11 12 TYPE3 13 INVCLI 000 0004000410I 14 15 TYPE4 14 INVCLI 000 0004100420I 17 18 TYPE5 15 INVCLI 000 0004200430ILAUTIFILAA 08 4NCL INVCLI 000 0004300440I 5 34 TYPDSC INVCLI 000 0004400450C* INVCLI 000 0004500460C********************************************************************INVCLI 000 0004600470C* INVCLI 000 0004700480C* ****** FUNCTION OF INDICATORS ****** INVCLI 000 0004800490C* INVCLI 000 0004900500C* INDICATOR FUNCTION INVCLI 000 0005000510C* INVCLI 000 0005100520C* 01 CLIENT TYPE = TYPE1 INVCLI 000 0005200530C* 02 CLIENT TYPE = TYPE2 INVCLI 000 0005300540C* 03 CLIENT TYPE = TYPE3 INVCLI 000 0005400550C* 04 CLIENT TYPE = TYPE4 INVCLI 000 0005500560C* 05 CLIENT TYPE = TYPE5 INVCLI 000 0005600570C* 06 CLIENT TYPE = MISCELLANEOUS INVCLI 000 0005700580C* 07 MISCELLANEOUS CLIENT TYPE RECORDS PRESENT INVCLI 000 0005800590C* 08 RECORD IDENTIFYING IND. INVCLI 000 0005900600C* 10 END-OF-FILE (LACLINV ) INVCLI 000 0006000610C* 11 NO CLIENT TYPE1 IS DEFINED (FIELD IS BLANK) INVCLI 000 0006100620C* 12 NO CLIENT TYPE2 IS DEFINED (FIELD IS BLANK) INVCLI 000 0006200630C* 13 NO CLIENT TYPE3 IS DEFINED (FIELD IS BLANK) INVCLI 000 0006300640C* 14 NO CLIENT TYPE4 IS DEFINED (FIELD IS BLANK) INVCLI 000 0006400650C* 15 NO CLIENT TYPE5 IS DEFINED (FIELD IS BLANK) INVCLI 000 0006500660C* 20 NEW CLIENT (CLIENT # LEVEL BREAK) INVCLI 000 0006600670C* 21 NO TYPE-DESCRIPTION FOR CLIENT TYPE 1 INVCLI 000 0006700680C* 22 NO TYPE-DESCRIPTION FOR CLIENT TYPE 2 INVCLI 000 0006800690C* 23 NO TYPE-DESCRIPTION FOR CLIENT TYPE 3 INVCLI 000 0006900700C* 24 NO TYPE-DESCRIPTION FOR CLIENT TYPE 4 INVCLI 000 0007000710C* 25 NO TYPE-DESCRIPTION FOR CLIENT TYPE 5 INVCLI 000 0007100720C* 30 RCD IS UNASSIGNED (NO CLIENT #) INVCLI 000 0007200730C* 40 DETAIL LINE-COUNTER (40 PER PAGE) INVCLI 000 0007300740C* 90  3$ FIRST-TIME-THROUGH IND. INVCLI 000 0007400750C* H1 FATAL ERROR - NO RCD FOUND 'LAUTIFIL' CHAIN INVCLI 000 0007500760C* INVCLI 000 0007600770C* *********** *********** *********** INVCLI 000 0007700780C* INVCLI 000 0007800790C* INITIALIZE VARIABLES INVCLI 000 0007900800C* INVCLI 000 0008000810CLR Z-ADD0 CLIBAL 102 INVCLI 000 0008100820CLR Z-ADD0 BAL1 92 INVCLI 000 0008200830CLR Z-ADD0 BAL2 92 INVCLI 000 0008300840CLR Z-ADD0 BAL3 92 INVCLI 000 0008400850CLR Z-ADD0 BAL4 92 INVCLI 000 0008500860CLR Z-ADD0 BAL5 92 INVCLI 000 0008600870CLR Z-ADD0 BAL6 92 INVCLI 000 0008700880CLR Z-ADD0 TOTBAL 102 INVCLI 000 0008800890CLR Z-ADD0 CTR1 40 INVCLI 000 0008900900CLR Z-ADD0 CTR2 40 INVCLI 000 0009000910CLR Z-ADD0 CTR3 40 INVCLI 000 0009100920CLR Z-ADD0 CTR4 40 INVCLI 000 0009200930CLR Z-ADD0 CTR5 40 INVCLI 000 0009300940CLR Z-ADD0 CTR6 40 INVCLI 000 0009400950CLR Z-ADD0 TOTCTR 40 INVCLI 000 0009500960CLR Z-ADD0 LINCTR 20 INVCLI 000 0009600970CLR MOVE ' ' LEVEL1 4 INVCLI 000 0009700980CLR MOVE 'LACL' TYPKEY 4 INVCLI 000 0009800990CLR MOVE 'LAC1' TYPKY1 4 INVCLI 000 0009901000CLR MOVE 'LAC2' TYPKY2 4 INVCLI 000 0010001010CLR MOVE 'LAC3' TYPKY3 4 INVCLI 000 0010101020CLR MOVE 'LAC4' TYPKY4 4 INVCLI 000 0010201030CLR MOVE 'LAC5' TYPKY5 4 INVCLI 000 0010301040CLR SETON 90 INVCLI 000 0010401050C* INVCLI 000 0010501060C* PROCESS 'LACLINV' RECORDS INVCLI 000 0010601070C* INVCLI 000 0010701080CLR START TAG INVCLI 000 0010801090CLR READ LACLINV 10 INVCLI 000 0010901100CLR 10 GOTO EOJ END-OF-FILE INVCLI 000 0011001110CLR 30 GOTO START NO CLIENT # INVCLI 000 0011101120CLR INVCLI COMP LEVEL1 2020 ON=NEW CLIENT INVCLI 000 0011201130C* INVCLI 000 0011301140C* IF NEW CLIENT (IND. 20 ON) - PERFORM TOTAL CALC. AND OUTPUT INVCLI 000 0011401150C* INVCLI 000 0X  3%011501160CLR 20 EXCPT INVCLI 000 0011601170CLR 20 MOVE INVCLI LEVEL1 INVCLI 000 0011701180CLR 20 CLIBAL ADD TOTBAL TOTBAL INVCLI 000 0011801190CLR 20 Z-ADD0 CLIBAL INVCLI 000 0011901200C* INVCLI 000 0012001210C* FOR EACH RECORD PROCESSED: INCREMENT TOTAL-NUMBER-OF-ACCOUNTS INVCLI 000 0012101220C* FIELD AND ADD BALANCE-THIS-RECORD TO TOTAL-BALANCE-THIS-CLIENT. INVCLI 000 0012201230C* INVCLI 000 0012301240CLR INVBAL ADD CLIBAL CLIBAL INVCLI 000 0012401250CLR TOTCTR ADD 1 TOTCTR INVCLI 000 0012501260C* INVCLI 000 0012601270C* RETRIEVE THE TYPE-PARAMETERS FROM 'LAUTIFIL' AND COMPARE TO INVCLI 000 0012701280C* THE FIRST TWO CHARACTERS OF THE CLIENT NUMBER FROM THE CURRENT INVCLI 000 0012801290C* 'LACLINV' RECORD TO DETERMINE IT'S CLIENT TYPE. INVCLI 000 0012901300C* INVCLI 000 0013001310CLR TYPKEY CHAINLAUTIFIL H1 ON=ERROR INVCLI 000 0013101320CLR SETOF 06 INVCLI 000 0013201330CLRN11 INVTYP COMP TYPE1 01 INVCLI 000 0013301340CLRN12 INVTYP COMP TYPE2 02 INVCLI 000 0013401350CLRN13 INVTYP COMP TYPE3 03 INVCLI 000 0013501360CLRN14 INVTYP COMP TYPE4 04 INVCLI 000 0013601370CLRN15 INVTYP COMP TYPE5 05 INVCLI 000 0013701380CLRN01N02N03 INVCLI 000 0013801390CANN04N05 SETON 0607 INVCLI 000 0013901400C* INVCLI 000 0014001410C* UPDATE THE TOTAL-BALANCE AND TOTAL-NUMBER-OF-ACCOUNTS FIELDS INVCLI 000 0014101420C* FOR THE CURRENT CLIENT TYPE. INVCLI 000 0014201430C* INVCLI 000 0014301440CLR 01 INVBAL ADD BAL1 BAL1 INVCLI 000 0014401450CLR 02 INVBAL ADD BAL2 BAL2 INVCLI 000 0014501460CLR 03 INVBAL ADD BAL3 BAL3 INVCLI 000 0014601470CLR 04 INVBAL ADD BAL4 BAL4 INVCLI 000 0014701480CLR 05 INVBAL ADD BAL5 BAL5 INVCLI 000 0014801490CLR 06 INVBAL ADD BAL6 BAL6 INVCLI 000 0014901500CLR 01 CTR1 ADD 1 CTR1 INVCLI 000 0015001510CLR 02 CTR2 ADD 1 CTR2 INVCLI 000 0015101520CLR 03 CTR3 ADD 1 CTR3 INVCLI 000 0015201530CLR 04 CTR4 ADD 1 CTR4 INVCLI 000 0015301540CLR 05 CTR5 ADD 1 CTR5 INVCLI 000 0015401550CLR 06 CTR6 ADD 1 CTR6 INVCLI 000 0015501560C* INVCLI 000 0015601570C* DETAIL OUTPUT Ʉ  3& INVCLI 000 0015701580C* INVCLI 000 0015801590CLR SETOF 2090 INVCLI 000 0015901600CLR LINCTR ADD 1 LINCTR INVCLI 000 0016001610CLR LINCTR COMP 40 40 INVCLI 000 0016101620CLR 40 Z-ADD0 LINCTR INVCLI 000 0016201630CLR EXCPT INVCLI 000 0016301640CLR GOTO START INVCLI 000 0016401650C* INVCLI 000 0016501660C* END-OF-FILE: PERFORM TOTAL CALCULATIONS AND FINAL OUTPUT. INVCLI 000 0016601670C* RETRIEVE TYPE-DESCRIPTION FROM 'LAUTIFIL' FOR EACH TYPE PRESENT INVCLI 000 0016701680C* INVCLI 000 0016801690CLR EOJ TAG INVCLI 000 0016901700CLR CLIBAL ADD TOTBAL TOTBAL INVCLI 000 0017001710CLRN11 TYPKY1 CHAINLAUTIFIL 21 ON=NO HIT INVCLI 000 0017101720CLRN11N21 MOVE TYPDSC DESC1 30 INVCLI 000 0017201730CLRN12 TYPKY2 CHAINLAUTIFIL 22 ON=NO HIT INVCLI 000 0017301740CLRN12N22 MOVE TYPDSC DESC2 30 INVCLI 000 0017401750CLRN13 TYPKY3 CHAINLAUTIFIL 23 ON=NO HIT INVCLI 000 0017501760CLRN13N23 MOVE TYPDSC DESC3 30 INVCLI 000 0017601770CLRN14 TYPKY4 CHAINLAUTIFIL 24 ON=NO HIT INVCLI 000 0017701780CLRN14N24 MOVE TYPDSC DESC4 30 INVCLI 000 0017801790CLRN15 TYPKY5 CHAINLAUTIFIL 25 ON=NO HIT INVCLI 000 0017901800CLRN15N25 MOVE TYPDSC DESC5 30 INVCLI 000 0018001810CLR EXCPT INVCLI 000 0018101820C* INVCLI 000 0018201830O********************************************************************INVCLI 000 0018301840O* INVCLI 000 0018401850OPRINT E 2 20N90 INVCLI 000 0018501860O OR 2 10N90 INVCLI 000 0018601870O 5 'TOTAL' INVCLI 000 0018701880O CLIBAL1 90 '$' INVCLI 000 0018801890O E 103 20 INVCLI 000 0018901900O OR 103 10 INVCLI 000 0019001910O OR 103 40 INVCLI 000 0019101920O 21 'LEGAL & AGENCY SYSTEM' INVCLI 000 0019201930O 72 'INVENTORY REPORT' INVCLI 000 0019301940O 126 'PAGE NO.' INVCLI 000 0019401950O PAGE Z 130 INVCLI 000 0019501960O E 20 INVCLI 000 0019601970O OR 10 INVCLI 000 0019701980O OR 40 INVCLI 000 0019801990O  3' 11 'VERSION 3.0' INVCLI 000 0019902000O 73 'BY ATTORNEY/AGENCY' INVCLI 000 0020002010O 117 'RUN DATE:' INVCLI 000 0020102020O UDATE Y 126 INVCLI 000 0020202030O E 3 20 INVCLI 000 0020302040O OR 3 10 INVCLI 000 0020402050O OR 3 40 INVCLI 000 0020502060O 19 'SYSTEM VERIFICATION' INVCLI 000 0020602070O E 3 20 INVCLI 000 0020702080O OR 3 40 INVCLI 000 0020802090O 16 'L/A CLIENT #' INVCLI 000 0020902100O INVCLI 21 INVCLI 000 0021002110O E 2 20 INVCLI 000 0021102120O OR 2 40 INVCLI 000 0021202130O 13 'CUSTOMER NAME' INVCLI 000 0021302140O 49 'ACCOUNT NUMBER' INVCLI 000 0021402150O 69 'REFERRAL DATE' INVCLI 000 0021502160O 93 'LAST BILLED BALANCE' INVCLI 000 0021602170O E N10N20 INVCLI 000 0021702180O INVNAM 30 INVCLI 000 0021802190O INVACT 51 INVCLI 000 0021902200O INVDATY 66 INVCLI 000 0022002210O INVBAL1 90 '$' INVCLI 000 0022102220O E 33 10 INVCLI 000 0022202230O 69 'TOTALS PAGE' INVCLI 000 0022302240O E 33 10 INVCLI 000 0022402250O 16 'CLIENT TYPE CODE' INVCLI 000 0022502260O 42 'CLIENT TYPE DESCRIPTION' INVCLI 000 0022602270O 72 'NUMBER OF ACCOUNTS' INVCLI 000 0022702280O 91 'BILLED BALANCE' INVCLI 000 0022802290O E 2 10N11 INVCLI 000 0022902300O TYPE1 9 INVCLI 000 0023002310O N21DESC1 49 INVCLI 000 0023102320O 21 37 '** NO DESCRIPTION' INVCLI 000 0023202330O 21 48 'ON FILE **' INVCLI 000 0023302340O CTR1 65 INVCLI 000 0023402350O BAL1 1 91 '$' INVCLI 000 0023502360O E 2 10N12 INVCLI 000 0023602370O TYPE2 9 INVCLI 000 0023702380O N22DESC2 49 INVCLI 000 0023802390O 22 37 '** NO DESCRIPTION' INVCLI 000 0023902400O 22 48 'ON FILE **' INVCLI 000 0024002410O %  3(% CTR2 65 INVCLI 000 0024102420O BAL2 1 91 '$' INVCLI 000 0024202430O E 2 10N13 INVCLI 000 0024302440O TYPE3 9 INVCLI 000 0024402450O N23DESC3 49 INVCLI 000 0024502460O 23 37 '** NO DESCRIPTION' INVCLI 000 0024602470O 23 48 'ON FILE **' INVCLI 000 0024702480O CTR3 65 INVCLI 000 0024802490O BAL3 1 91 '$' INVCLI 000 0024902500O E 2 10N14 INVCLI 000 0025002510O TYPE4 9 INVCLI 000 0025102520O N24DESC4 49 INVCLI 000 0025202530O 24 37 '** NO DESCRIPTION' INVCLI 000 0025302540O 24 48 'ON FILE **' INVCLI 000 0025402550O CTR4 65 INVCLI 000 0025502560O BAL4 1 91 '$' INVCLI 000 0025602570O E 2 10N15 INVCLI 000 0025702580O TYPE5 9 INVCLI 000 0025802590O N25DESC5 49 INVCLI 000 0025902600O 25 37 '** NO DESCRIPTION' INVCLI 000 0026002610O 25 48 'ON FILE **' INVCLI 000 0026102620O CTR5 65 INVCLI 000 0026202630O BAL5 1 91 '$' INVCLI 000 0026302640O E 2 10N07 INVCLI 000 0026402650O 43 '- MISCELLANEOUS -' INVCLI 000 0026502660O CTR6 65 INVCLI 000 0026602670O BAL6 1 91 '$' INVCLI 000 0026702680O E 3 10 INVCLI 000 0026802690O 11 'GRAND TOTAL' INVCLI 000 0026902700O TOTCTR 65 INVCLI 000 0027002710O TOTBAL1 91 '$' INVCLI 000 00271/* 02720 000 0027200010H INVCUS 000 00001 X 1 G04 R LA CCS 3.0 SL-149 00350 000 0000200030F* G04 R LA CCS 3.0 SL-149 I00360 000 0000300040F* I00370 000 0000400050F* LEGAL AND AGENCY VERSION 3 I00380 000 0000500060F* DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA I00390 000 0000600070F* COPYRIGHT CONTROL DATA CORPORATION, 1979 I00400 000 0000700080F* I00410 000 0000800090F* THIS PROGRAM USES THE CLIENT INVENTORY FILE 'LACLINV' (SORTED INVCUS 000 0000900100F* BY ACCOUNT #) TO PROVIDE AN INVENTORY REPORT BY CUSTOMER. INVCUS 0  3)900 0001000110F* INVCUS 000 0001100120F********************************************************************INVCUS 000 0001200130F* INVCUS 000 0001300140FNULL IP F 2 DISK INVCUS 000 0001400150FLACLINV ID F 80 DISK INVCUS 000 0001500160FPRINT O F 132 PRINTER INVCUS 000 0001600170I* INVCUS 000 0001700180I********************************************************************INVCUS 000 0001800190I* INVCUS 000 0001900200INULL AA 01 INVCUS 000 0002000210ILACLINV AA 01 INVCUS 000 0002100220I 1 16 INVACT INVCUS 000 0002200230I 17 18 INVTYP INVCUS 000 0002300240I 17 20 INVCLI INVCUS 000 0002400250I 21 50 INVNAM INVCUS 000 0002500260I 51 560INVDAT INVCUS 000 0002600270I 57 652INVBAL INVCUS 000 0002700280C* INVCUS 000 0002800290C********************************************************************INVCUS 000 0002900300C* INVCUS 000 0003000310C* ****** FUNCTION OF INDICATORS ****** INVCUS 000 0003100320C* INVCUS 000 0003200330C* INDICATOR FUNCTION INVCUS 000 0003300340C* INVCUS 000 0003400350C* 01 RECORD IDENTIFYING IND. INVCUS 000 0003500360C* 10 END-OF-FILE (LACLINV ) INVCUS 000 0003600370C* 40 DETAIL LINE-COUNTER (40 PER PAGE) INVCUS 000 0003700380C* 90 FIRST-TIME-THROUGH IND. INVCUS 000 0003800390C* INVCUS 000 0003900400C* *********** *********** *********** INVCUS 000 0004000410C* INVCUS 000 0004100420C* INITIALIZE VARIABLES INVCUS 000 0004200430C* INVCUS 000 0004300440CLR Z-ADD0 TOTCTR 40 INVCUS 000 0004400450CLR Z-ADD0 TOTBAL 102 INVCUS 000 0004500460CLR Z-ADD0 LINCTR 20 INVCUS 000 0004600470CLR SETON 90 INVCUS 000 0004700480C* INVCUS 000 0004800490C* PROCESS 'LACLINV' RECORDS INVCUS 000 0004900500C* INVCUS 000 0005000510CLR START TAG INVCUS 000 0005100520CLR READ LACLINV 10  3*M INVCUS 000 0005200530CLR 10 GOTO EOJ END-OF-FILE INVCUS 000 0005300540C* INVCUS 000 0005400550C* FOR EACH RECORD PROCESSED: INCREMENT TOTAL-NUMBER-OF-ACCOUNTS INVCUS 000 0005500560C* FIELD AND ADD BALANCE-THIS-RECORD TO TOTAL-BALANCE. INVCUS 000 0005600570C* INVCUS 000 0005700580CLR INVBAL ADD TOTBAL TOTBAL INVCUS 000 0005800590CLR TOTCTR ADD 1 TOTCTR INVCUS 000 0005900600C* INVCUS 000 0006000610C* DETAIL OUTPUT INVCUS 000 0006100620C* INVCUS 000 0006200630CLR LINCTR ADD 1 LINCTR INVCUS 000 0006300640CLR LINCTR COMP 40 40 INVCUS 000 0006400650CLR 40 Z-ADD0 LINCTR INVCUS 000 0006500660CLR EXCPT INVCUS 000 0006600670CLR SETOF 90 INVCUS 000 0006700680CLR GOTO START INVCUS 000 0006800690C* INVCUS 000 0006900700C* END-OF-FILE: PERFORM TOTAL OUTPUT. INVCUS 000 0007000710C* INVCUS 000 0007100720CLR EOJ TAG INVCUS 000 0007200730CLR EXCPT INVCUS 000 0007300740C* INVCUS 000 0007400750O********************************************************************INVCUS 000 0007500760O* INVCUS 000 0007600770OPRINT E 103 40 INVCUS 000 0007700780O OR 103 90 INVCUS 000 0007800790O 21 'LEGAL & AGENCY SYSTEM' INVCUS 000 0007900800O 72 'INVENTORY REPORT' INVCUS 000 0008000810O 126 'PAGE NO.' INVCUS 000 0008100820O PAGE Z 130 INVCUS 000 0008200830O E 40 INVCUS 000 0008300840O OR 90 INVCUS 000 0008400850O 11 'VERSION 3.0' INVCUS 000 0008500860O 69 'BY CUSTOMER' INVCUS 000 0008600870O 117 'RUN DATE:' INVCUS 000 0008700880O UDATE Y 126 INVCUS 000 0008800890O E 3 40 INVCUS 000 0008900900O OR 3 90 INVCUS 000 0009000910O 19 'SYSTEM VERIFICATION' INVCUS 000 0009100920O E 2 40 INVCUS 000 0009200930O OR 2 90 INVCUS 000 0009300940O q  3+a 13 'CUSTOMER NAME' INVCUS 000 0009400950O 49 'ACCOUNT NUMBER' INVCUS 000 0009500960O 69 'REFERRAL DATE' INVCUS 000 0009600970O 86 'L/A CLIENT #' INVCUS 000 0009700980O 110 'LAST BILLED BALANCE' INVCUS 000 0009800990O E N10 INVCUS 000 0009901000O INVNAM 30 INVCUS 000 0010001010O INVACT 51 INVCUS 000 0010101020O INVDATY 66 INVCUS 000 0010201030O INVCLI 82 INVCUS 000 0010301040O INVBAL1 107 '$' INVCUS 000 0010401050O E 32 10 INVCUS 000 0010501060O 13 'GRAND TOTALS:' INVCUS 000 0010601070O E 10 INVCUS 000 0010701080O 19 'NUMBER OF ACCOUNTS:' INVCUS 000 0010801090O TOTCTR 24 INVCUS 000 0010901100O E 10 INVCUS 000 0011001110O 15 'BILLED BALANCE:' INVCUS 000 0011101120O TOTBAL1 33 '$' INVCUS 000 00112/* 001130 000 0011300020H LARPRT 000 00001 X 1 G05 R LA CCS 3.0 SL-149 00440 000 0000200040F* G05 R LA CCS 3.0 SL-149 L00450 000 0000300050F* L00460 000 0000400060F* LEGAL AND AGENCY VERSION 3 L00470 000 0000500070F* DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA L00480 000 0000600080F* CREDIT COLLECTION SYSTEM VERSION 2.1 L00490 000 0000700090F* L00500 000 0000800100F* THIS PROGRAM PRINTS THE L/A CLIENT REFERRAL LIST OF ALL LARPRT 000 0000900110F* ACCOUNTS EXTRACTED FROM THE C.C.S. SYSTEM BY THE L/A LARPRT 000 0001000120F* PROGRAM 'LAXTRT'. LARPRT 000 0001100130F* LARPRT 000 0001200140FNULL IP F 2 DISK LARPRT 000 0001300150FLADLQKEYID F 16 DISK LARPRT 000 0001400160FLADLQMSTIC F 2000R16AI 1 DISK LARPRT 000 0001500170FPRINT O F 132 PRINTER LARPRT 000 0001600180FDISPLAY O F 72 CONSOLE LARPRT 000 0001700190E* LARPRT 000 0001800200E ERR 1 1 50 INVALID KEY MSG LARPRT 000 0001900210I* LARPRT 000 0002000220I* ALL INPUT LINES PRECEDED BY '***' ARE NOT LARPRT 000 0002100230I* CURRENTLY BEING USED IN THIS PROGRAM. LARPRT 000 0002200240I* b  3,u LARPRT 000 0002300250INULL AA 01 LARPRT 000 0002400260ILADLQKEYAA 01 LARPRT 000 0002500270I 1 16 KEY LARPRT 000 0002600280ILADLQMSTAA 01 LARPRT 000 0002700290I 1 16 MACCT LARPRT 000 0002800300I*** 17 17 MSLCD LARPRT 000 0002900310I 18 47 MNAM LARPRT 000 0003000320I 48 77 MADR1 LARPRT 000 0003100330I 78 107 MADR2 LARPRT 000 0003200340I 108 127 MCS LARPRT 000 0003300350I 128 1320MZP LARPRT 000 0003400360I 133 1350MPHN1 LARPRT 000 0003500370I 136 1380MPHN2 LARPRT 000 0003600380I 139 1420MPHN3 LARPRT 000 0003700390I 143 146 MEXT LARPRT 000 0003800400I 147 176 MBNM LARPRT 000 0003900410I 177 206 MBAD LARPRT 000 0004000420I 207 226 MBCS LARPRT 000 0004100430I 227 2310MBZP LARPRT 000 0004200440I 232 2340MBPH1 LARPRT 000 0004300450I 235 2370MBPH2 LARPRT 000 0004400460I 238 2410MBPH3 LARPRT 000 0004500470I 242 2450MBEX LARPRT 000 0004600480I*** 246 2610MADL LARPRT 000 0004700490I 262 2640MSOC1 LARPRT 000 0004800500I 265 2660MSOC2 LARPRT 000 0004900510I 267 2700MSOC3 LARPRT 000 0005000520I*** 271 274 MQUE LARPRT 000 0005100530I*** 275 2800MNXTC LARPRT 000 0005200540I*** 281 284 MPRI LARPRT 000 0005300550I*** 285 285 MPFG LARPRT 000 0005400560I*** 286 286 MBFG LARPRT 000 0005500570I*** 287 290 MSUP LARPRT 000 0005600580I*** 291 291 MRCD LARPRT 000 0005700590I*** 292 293 MSCD LARPRT 000 0005800600I*** 294 294 MQAS LARPRT 000 0005900610I*** 295 295 MOLS LARPRT 000 0006000620I*** 296 299 MPQU LARPRT 000 0006100630I*** 300 3050MPDQ LARPRT 000 0006200640I*** 306 306 MSTC LARPRT 000 0006300650I 667 696 MP1 LARPRT  3- 000 0006400660I 697 726 MP2 LARPRT 000 0006500670I 727 756 MP3 LARPRT 000 0006600680I*** 757 786 MPAD1 LARPRT 000 0006700690I*** 787 816 MPAD1 LARPRT 000 0006800700I*** 817 836 MPCS LARPRT 000 0006900710I*** 837 8410MPZC LARPRT 000 0007000720I*** 842 8470MLLDT LARPRT 000 0007100730I*** 848 8560MLLAT LARPRT 000 0007200740I 857 8620MSTDT LARPRT 000 0007300750I*** 863 8680MUPDT LARPRT 000 0007400760I 869 8740MCCDT LARPRT 000 0007500770I*** 875 8800MDLDT LARPRT 000 0007600780I 881 8860MOPDT LARPRT 000 0007700790I*** 887 8952MADLQ LARPRT 000 0007800800I*** 896 9042MCBAL LARPRT 000 0007900810I*** 905 9132MPYOF LARPRT 000 0008000820I*** 914 9190MCPGD LARPRT 000 0008100830I*** 920 9282MNPA LARPRT 000 0008200840I*** 929 9372MOAMT LARPRT 000 0008300850I*** 938 9380MCHN LARPRT 000 0008400860I*** 939 946 MTP LARPRT 000 0008500870I*** 947 949 MPTS LARPRT 000 0008600880I 950 9540MBBR LARPRT 000 0008700890I 955 962 MLON LARPRT 000 0008800900I 963 966 MTCD LARPRT 000 0008900910I*** 967 9680MTD3 LARPRT 000 0009000920I*** 969 9700MTD6 LARPRT 000 0009100930I*** 971 9720MTD9 LARPRT 000 0009200940I*** 9731012 MSDF LARPRT 000 0009300950I 101310150MDYDL LARPRT 000 0009400960I*** 10161021 MPPD LARPRT 000 0009500970I*** 102210302MPPA LARPRT 000 0009600980I*** 103110360MTHD LARPRT 000 0009700990I*** 103710380MPPK LARPRT 000 0009801000I*** 103910400MPPB LARPRT 000 0009901010I*** 10411056 MRESV LARPRT 000 0010001020I 105710620LATLA LARPRT 000 0010101030I 106310712LADUE LARPRT 000 0010201040C* LARPRT 000 0010301050CLR START TAG LARPRT 000 0010401060CLR READ LADLQKEY 10 LARPRT 000 0010501070CLR 10 GOTO EOJ N  3. LARPRT 000 0010601080CLR KEY CHAINLADLQMST 15 LARPRT 000 0010701090CLR EXCPT LARPRT 000 0010801100CLR GOTO START LARPRT 000 0010901110CLR EOJ TAG LARPRT 000 0011001120O* LARPRT 000 0011101130ODISPLAY E 15 LARPRT 000 0011201140O KEY 16 LARPRT 000 0011301150O ERR 70 LARPRT 000 0011401160OPRINT E 0301 15 LARPRT 000 0011501170O 20 '***** ERROR *****' LARPRT 000 0011601180O 38 'ACCOUNT NUMBER' LARPRT 000 0011701190O KEY 55 LARPRT 000 0011801200O 78 'IS NOT PRESENT IN THE' LARPRT 000 0011901210O 100 'L/A DELINQUENT MASTER' LARPRT 000 0012001220OPRINT E 103 N15 LARPRT 000 0012101230O 19 'LEGAL AGENCY SYSTEM' LARPRT 000 0012201240O 74 'CLIENT REFERRAL LIST' LARPRT 000 0012301250O 127 'PAGE' LARPRT 000 0012401260O PAGE Z 132 LARPRT 000 0012501270O E N15 LARPRT 000 0012601280O 11 'VERSION 2.0' LARPRT 000 0012701290O 122 'RUN DATE:' LARPRT 000 0012801300O UDATE Y 131 LARPRT 000 0012901310O E 2 N15 LARPRT 000 0013001320O 19 'SYSTEM VERIFICATION' LARPRT 000 0013101330O E N15 LARPRT 000 0013201340O 27 'ACCOUNT BANK' LARPRT 000 0013301350O 55 'LOAN AMOUNT TO' LARPRT 000 0013401360O 90 'REFERRED TO:' LARPRT 000 0013501370O 108 '_______________' LARPRT 000 0013601380O 123 '_______________' LARPRT 000 0013701390O E N15 LARPRT 000 0013801400O 29 'NUMBER BRANCH' LARPRT 000 0013901410O 53 'OFFICER COLLECT' LARPRT 000 0014001420O 89 'L/A NUMBER:' LARPRT 000 0014101430O 97 '____' LARPRT 000 0014201440O E N15 LARPRT 000 0014301450O 92 'REFERRAL DATE:' LARPRT 000 0014401460O 99 '/ /' LARPRT 000 0014501470O E 2 N15 LARPRT 000 0014601480O MACCT 16 LARPRT 000 0014701490O Ma  3/BBR 28 LARPRT 000 0014801500O MLON 31 LARPRT 000 0014901510O LADUE 1 58 '$' LARPRT 000 0015001520O 92 'BY (COLL-ID) :' LARPRT 000 0015101530O 97 '____' LARPRT 000 0015201540O E 2 N15 LARPRT 000 0015301550O 12 'DEBTOR:' LARPRT 000 0015401560O 87 'APPROVAL:' LARPRT 000 0015501570O 105 '____________' LARPRT 000 0015601580O E N15 LARPRT 000 0015701590O 4 'NAME' LARPRT 000 0015801600O MNAM 44 LARPRT 000 0015901610O 98 'REASON FOR REFERRAL:' LARPRT 000 0016001620O E N15 LARPRT 000 0016101630O 9 'ADDRESS-1' LARPRT 000 0016201640O MADR1 44 LARPRT 000 0016301650O E N15 LARPRT 000 0016401660O 9 'ADDRESS-2' LARPRT 000 0016501670O MADR2 44 LARPRT 000 0016601680O 91 '( ) FILE SUIT' LARPRT 000 0016701690O E N15 LARPRT 000 0016801700O 11 'CITY,ST,ZIP' LARPRT 000 0016901710O MCS 34 LARPRT 000 0017001720O MZP 44 LARPRT 000 0017101730O 94 '( ) ATTACH WAGES' LARPRT 000 0017201740O E N15 LARPRT 000 0017301750O 5 'PHONE' LARPRT 000 0017401760O MPHN1 17 LARPRT 000 0017501770O 18 '/' LARPRT 000 0017601780O MPHN2 21 LARPRT 000 0017701790O 22 '-' LARPRT 000 0017801800O MPHN3 26 LARPRT 000 0017901810O 101 '( ) ATTACH BANK ACCOUNT' LARPRT 000 0018001820O E N15 LARPRT 000 0018101830O 9 'SOC SEC #' LARPRT 000 0018201840O MSOC1 17 LARPRT 000 0018301850O 18 '-' LARPRT 000 0018401860O MSOC2 20 LARPRT 000 0018501870O 21 '-' LARPRT 000 0018601880O MSOC3 25 LARPRT 000 0018701890O 94 '( ) SHERIFF SALE' LARPRT 000 0018801900O E N15 LARPRT 000 0018901910O  30 92 '( ) BANKRUPTCY' LARPRT 000 0019001920O E N15 LARPRT 000 0019101930O 23 'DAYS DATE IN LAST' LARPRT 000 0019201940O 44 'AR DATE ACCT' LARPRT 000 0019301950O 97 '( ) FILE FOR ESTATE' LARPRT 000 0019401960O E N15 LARPRT 000 0019501970O 21 'DELQ CCS UP' LARPRT 000 0019601980O 44 'DATE OPEN TYPE' LARPRT 000 0019701990O 103 'DATE OF DEATH: / /' LARPRT 000 0019802000O E N15 LARPRT 000 0019902010O 98 'LIEN ON PROPERTY' LARPRT 000 0020002020O E N15 LARPRT 000 0020102030O MDYDL 3 LARPRT 000 0020202040O MCCDT Y 16 LARPRT 000 0020302050O MSTDT Y 27 LARPRT 000 0020402060O MOPDT Y 38 LARPRT 000 0020502070O MTCD 44 LARPRT 000 0020602080O 92 '( ) ATTACH ALL' LARPRT 000 0020702090O 109 'AVAILABLE ASSETS' LARPRT 000 0020802100O E N15 LARPRT 000 0020902110O 87 '( ) OTHER' LARPRT 000 0021002120O E 2 N15 LARPRT 000 0021102130O 16 'EMPLOYMENT:' LARPRT 000 0021202140O E N15 LARPRT 000 0021302150O 8 'EMPLOYER' LARPRT 000 0021402160O MBNM 44 LARPRT 000 0021502170O E N15 LARPRT 000 0021602180O 7 'ADDRESS' LARPRT 000 0021702190O MBAD 44 LARPRT 000 0021802200O 90 'GIVE DETAILS' LARPRT 000 0021902210O E N15 LARPRT 000 0022002220O 11 'CITY,ST,ZIP' LARPRT 000 0022102230O MBCS 34 LARPRT 000 0022202240O MBZP 44 LARPRT 000 0022302250O E N15 LARPRT 000 0022402260O 5 'PHONE' LARPRT 000 0022502270O MBPH1 17 LARPRT 000 0022602280O 18 '/' LARPRT 000 0022702290O MBPH2 21 LARPRT 000 0022802300O 22 '-' LARPRT 000 0022902310O MBPH3 26 LARPRT 000 0023002320O 29 'X(' LA  31RPRT 000 0023102330O MBEX 33 LARPRT 000 0023202340O 34 ')' LARPRT 000 0023302350O 79 '*' LARPRT 000 0023402360O E N15 LARPRT 000 0023502370O 79 '*' LARPRT 000 0023602380O E N15 LARPRT 000 0023702390O 23 'PERMANENT COMMENTS' LARPRT 000 0023802400O 79 '*' LARPRT 000 0023902410O E N15 LARPRT 000 0024002420O 79 '*' LARPRT 000 0024102430O E N15 LARPRT 000 0024202440O MP1 30 LARPRT 000 0024302450O E N15 LARPRT 000 0024402460O MP2 30 LARPRT 000 0024502470O E N15 LARPRT 000 0024602480O MP3 30 LARPRT 000 00247** 002490 000 00248WARNING! KEY NOT PRESENT IN L/A DELINQUENT MASTER 002500 000 00249/* 002510 000 0025000020H LBATPT 000 00001 X 1 G06 R LA CCS 3.0 SL-149 00530 000 0000200040F* G06 R LA CCS 3.0 SL-149 00540 000 0000300050F* 00550 000 0000400060F* LEGAL AND AGENCY SYSTEM VERSION 3 00560 000 0000500070F* DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA CALIFORNIA 00570 000 0000600080F* COPYRIGHT CONTROL DATA CORPORATION, 1979 00580 000 0000700090F* 00590 000 0000800100F* THIS PROGRAM USES THE OUTPUT FROM THE BATCH UPDATE PROGRAM 000 0000900110F* - LBATUD - TO PRODUCE THE AUDIT TRAIL REPORT WHICH DETAILS 000 0001000120F* THE EFFECT OF EACH FINANCIAL TRANSACTION. ONLY THE FIELDS 000 0001100130F* WHCIH WERE ACTUALLY AFFECTED BY THE TRANSACTIONS ARE SHOWN 000 0001200140F* 000 0001300150FLADUMMY IP F 80 DISK 000 0001400160FLARPTDATISE F 160 DISK 00020 000 0001500170FLAUTIFILIC F 80R 4AI 1 DISK 00030 000 0001600180FPRINT O F 132 OV PRINTER 00040 000 0001700190ILADUMMY AA 01 000 0001800200ILARPTDATAA 12 00050 000 0001900210I 1 16 LACCT 00060 000 0002000220I 17 18 LTC 00070 000 0002100230I 19 272LAMT 00080 000 0002200240I 28 33 _  32LDATE 00090 000 0002300250I 34 37 LCOID 00100 000 0002400260I 38 41 LGNO 00110 000 0002500270I 42 502LDAMT1 00120 000 0002600280I 51 592LDAMT2 00130 000 0002700290I 60 682LCBAL1 00140 000 0002800300I 69 772LCBAL2 00150 000 0002900310I 78 862LRCC1 00160 000 0003000320I 87 952LRCC2 00170 000 0003100330I 96 1042LNRCC1 00180 000 0003200340I 105 1132LNRCC2 00190 000 0003300350I 114 1222LFEE1 00200 000 0003400360I 123 1312LFEE2 00210 000 0003500370I 132 1402LACOL1 00220 000 0003600380I 141 1492LACOL2 00230 000 0003700390I 150 151 LECODE 00240 000 0003800400ILAUTIFILAA 31 00250 000 0003900410I 5 44 HEADER 00260 000 0004000420C***** SET UP REPORT HEADERS 00270 000 0004100430C SETOF 11 000 0004200440C 46 GOTO AROUND 00290 000 0004300450C 'HDR1' CHAINLAUTIFIL 32 00300 000 0004400460C N32 MOVE HEADER HDR1 40 00310 000 0004500470C 'HDR2' CHAINLAUTIFIL 32 00320 000 0004600480C N32 MOVE HEADER HDR2 40 00330 000 0004700490C 'HDR3' CHAINLAUTIFIL 32 00340 000 0004800500C N32 MOVE HEADER HDR3 40 00350 000 0004900510C SETON 4611 00360 000 0005000520C GOTO SKIP 000 0005100530C AROUND TAG 00370 000 0005200540C SETON 1013 000 0005300550C LTC COMP '05' 40 000 0005400560C LTC COMP '06' 41 000 0005500570C LTC COMP '07' 42 000 0005600580C LTC COMP '08' 43 000 0005700590C LTC COMP '09' 44 000 0005800600C LECODE COMP 'DN' 21 00380 000 0005900610C 21 GOTO SKIP 00390 000 0006000620C LECODE COMP 'CN' 22 00400 000 0006100630C 22 GOTO SKIP 00410 000 0006200640C LECODE COMP 'BL' 23 00420 000 0006300650C 23 GOTO SKIP 00430 000 0006400660C LECODE C  33OMP 'IM' 24 00440 000 0006500670C 24 GOTO SKIP 00450 000 0006600680C LECODE COMP 'IY' 25 00460 000 0006700690C 25 GOTO SKIP 00470 000 0006800700C LTC COMP ' ' 26 000 0006900710C 26 GOTO SKIP 000 0007000720C LECODE COMP 'BC' 27 000 0007100730C 27 GOTO SKIP 000 0007200740C LECODE COMP 'IS' 28 000 0007300750C 28 GOTO SKIP 000 0007400760C SETOF 10 00480 000 0007500770C SKIP TAG 00490 000 0007600780OPRINT D 101 11 00500 000 0007700790O OR 101 OV 00510 000 0007800800O HDR1 41 00520 000 0007900810O 71 'LEGAL/AGENCY BATCH ' 00530 000 0008000820O 89 'UPDATE AUDIT TRAIL' 00540 000 0008100830O 128 'PAGE' 00550 000 0008200840O PAGE Z 132 00560 000 0008300850O D 1 11 00570 000 0008400860O OR 1 OV 00580 000 0008500870O HDR2 41 00590 000 0008600880O 61 'AS OF' 00600 000 0008700890O UDATE Y 70 00610 000 0008800900O D 1 11 00620 000 0008900910O OR 1 OV 00630 000 0009000920O HDR3 41 00640 000 0009100930O D 1 11 00650 000 0009200940O OR 1 OV 00660 000 0009300950O 23 '**** TRANSACTIO' 00670 000 0009400960O 46 'N ' 00680 000 0009500970O 69 ' **** **** LAD' 00690 000 0009600980O 92 'LQMST **** **** ' 00700 000 0009700990O 115 ' LACLIENT ' 00710 000 0009801000O 132 ' ****' 00720 000 0009901010O D 1 11 00730 000 0010001020O OR 1 OV 00740 000 0010101030O 85 'AMT DELQ CUR BAL ' 00750 000 0010201040O 109 'R.C.C. N.R.C.C. ' 00760 000 0010301050O 132 'FEE/COMM AMT COL ' 00770 000 0010401060O D 1 11 00790 000 0010501070O OR 1 OV 00800 000 001060108o  34AL <O CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm00010H COMPAY 000 00001 X 1 G01 R LA CCS 3.0 SL-149 00080 000 0000200030F* G01 R LA CCS 3.0 SL-149 C00090 000 0000300040F* C00100 000 0000400050F* LEGAL AND AGENCY VERSION 3 C00110 000 0000500060F* DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA C00120 000 0000600070F* COPYRIGHT CONTROL DATA CORPORATION, 1979 C00130 000 0000700080F* C00140 000 0000800090F* THIS PROGRAM USES THE PAYMENT FILE 'LAPMTFIL' (SORTED BY COMPAY 000 0000900100F* CLIENT #) TO PROVIDE A LIST OF ALL PAYMENTS (DIRECT AND COMPAY 000 0001000110F* INDIRECT) RECEIVED ON L/A ACCOUNTS SINCE THE LAST PAYMENTS COMPAY 000 0001100120F* STATEMENT WAS PRODUCED. THE CUSTOMER NAME AND BALANCE DUE COMPAY 000 0001200130F* FIELDS ARE RETRIEVED FROM THE L/A MASTER FILE 'LADLQMST'. COMPAY 000 0001300140F* COMPAY 000 0001400150F********************************************************************COMPAY 000 0001500160F* COMPAY 000 0001600170FNULL IP F 2 DISK COMPAY 000 0001700180FLAPMTFILID F 40 DISK COMPAY 000 0001800190FLADLQMSTIC F 2000R16AI 1 DISK COMPAY 000 0001900200FPRINT O F 132 PRINTER COMPAY 000 0002000210I* COMPAY 000 0002100220I********************************************************************COMPAY 000 0002200230I* COMPAY 000 0002300240INULL AA 01 COMPAY 000 0002400250ILAPMTFILAA 02 18 C5 COMPAY 000 0002500260I 1 16 PFACCT COMPAY 000 0002600270I 19 272PFAMT COMPAY 000 0002700280I 34 37 PFLGAA COMPAY 000 0002800290ILAPMTFILAA 03 18 C6 COMPAY 000 0002900300I 1 16 PFACCT COMPAY 000 0003000310I 19 272PFAMT COMPAY 000 0003100320I 34 37 PFLGAA COMPAY 000 0003200330ILAPMTFILAA 01 COMPAY 000 0003300340ILADLQMSTAA 01 COMPAY 000 0003400350I 18 47 LAMNAM COMPAY 000 0003500360I 905 9132LAPYOF COMPAY 000 0003600370C* COMPAY 000 0003700380C********************************************************************COMPAY 000 0003800390C* COMPAY 000 0003900400C* ****** FUNCTION OF INDICATORS ****** ]  35" COMPAY 000 0004000410C* COMPAY 000 0004100420C* INDICATOR FUNCTION COMPAY 000 0004200430C* COMPAY 000 0004300440C* 02 RECORD TYPE = DIRECT PAYMENT (LAPMTFIL) COMPAY 000 0004400450C* 03 RECORD TYPE = INDIRECT PAYMENT (LAPMTFIL) COMPAY 000 0004500460C* 10 END-OF-FILE (LAPMTFIL) COMPAY 000 0004600470C* 20 CLIENT # LEVEL BREAK COMPAY 000 0004700480C* 30 ACCOUNT # LEVEL BREAK COMPAY 000 0004800490C* 40 DETAIL LINE-COUNTER (40 PER PAGE) COMPAY 000 0004900500C* 50 RECORD-NOT-FOUND (LADLQMST) COMPAY 000 0005000510C* 90 FIRST-TIME-THROUGH IND. COMPAY 000 0005100520C* COMPAY 000 0005200530C* *********** *********** *********** COMPAY 000 0005300540C* COMPAY 000 0005400550C* INITIALIZE VARIABLES COMPAY 000 0005500560C* COMPAY 000 0005600570CLR Z-ADD0 DAMT 92 COMPAY 000 0005700580CLR Z-ADD0 IDAMT 92 COMPAY 000 0005800590CLR Z-ADD0 DTOT1 92 COMPAY 000 0005900600CLR Z-ADD0 IDTOT1 92 COMPAY 000 0006000610CLR Z-ADD0 BTOT1 92 COMPAY 000 0006100620CLR Z-ADD0 DTOT2 102 COMPAY 000 0006200630CLR Z-ADD0 IDTOT2 102 COMPAY 000 0006300640CLR Z-ADD0 BTOT2 102 COMPAY 000 0006400650CLR Z-ADD0 LINCTR 20 COMPAY 000 0006500660CLR MOVE ' ' LEVEL2 4 COMPAY 000 0006600670CLR MOVE ' 'LEVEL1 16 COMPAY 000 0006700680CLR MOVEL' 'LEVEL1 COMPAY 000 0006800690CLR SETON 90 COMPAY 000 0006900700C* COMPAY 000 0007000710C* BEGINNING OF RECORD PROCESSING LOOP COMPAY 000 0007100720C* COMPAY 000 0007200730CLR START TAG COMPAY 000 0007300740CLR READ LAPMTFIL 10 COMPAY 000 0007400750CLR 10 GOTO EOJ END-OF-FILE COMPAY 000 0007500760CLRN02N03 GOTO START WRONG RCD TYPE COMPAY 000 0007600770CLR PFLGAA COMP LEVEL2 2020 ON=NEW CLIENT COMPAY 000 0007700780CLR 20 MOVE PFLGAA LEVEL2 COMPAY 000 0007800790CLR PFACCT COMP LEVEL1 3030 ON=NEW ACCT # COMPAY 000 0007900800CLR 20 COMPAY 000 0008000810COR 30N20 EXCPT COMPAY 000 0008100820CLR 20 SETON ?V  366 30 COMPAY 000 0008200830C* COMPAY 000 0008300840CLR 30N90 Z-ADD0 DAMT COMPAY 000 0008400850CLR 30N90 Z-ADD0 IDAMT COMPAY 000 0008500860C* COMPAY 000 0008600870CLR 20N90 Z-ADD0 DTOT1 COMPAY 000 0008700880CLR 20N90 Z-ADD0 IDTOT1 COMPAY 000 0008800890CLR 20N90 Z-ADD0 BTOT1 COMPAY 000 0008900900C* COMPAY 000 0009000910CLR 02 PFAMT ADD DAMT DAMT COMPAY 000 0009100920CLR 02 PFAMT ADD DTOT1 DTOT1 COMPAY 000 0009200930CLR 02 PFAMT ADD DTOT2 DTOT2 COMPAY 000 0009300940C* COMPAY 000 0009400950CLR 03 PFAMT ADD IDAMT IDAMT COMPAY 000 0009500960CLR 03 PFAMT ADD IDTOT1 IDTOT1 COMPAY 000 0009600970CLR 03 PFAMT ADD IDTOT2 IDTOT2 COMPAY 000 0009700980C* COMPAY 000 0009800990CLR 30 MOVE PFACCT LEVEL1 COMPAY 000 0009901000CLR 30 PFACCT CHAINLADLQMST 50 COMPAY 000 0010001010CLR 30 LAPYOF ADD BTOT1 BTOT1 COMPAY 000 0010101020CLR 30 LAPYOF ADD BTOT2 BTOT2 COMPAY 000 0010201030C* COMPAY 000 0010301040CLR SETOF 203040 COMPAY 000 0010401050CLR SETOF 020390 COMPAY 000 0010501060CLR LINCTR ADD 1 LINCTR COMPAY 000 0010601070CLR LINCTR COMP 40 40 COMPAY 000 0010701080CLR 40 Z-ADD0 LINCTR COMPAY 000 0010801090C* COMPAY 000 0010901100CLR GOTO START COMPAY 000 0011001110C* COMPAY 000 0011101120C* END OF RECORD PROCESSING LOOP COMPAY 000 0011201130C* COMPAY 000 0011301140CLR EOJ TAG COMPAY 000 0011401150CLR EXCPT COMPAY 000 0011501160C* COMPAY 000 0011601170C* *************************************************************** COMPAY 000 0011701180O* COMPAY 000 0011801190O* **************** O U T P U T **************** COMPAY 000 0011901200O* COMPAY 000 0012001210O********************************************************************COMPAY 000 0012101220O* COMPAY 000 0012201230OPRINT E 20N90 COMPAY 000 0012301240O  37J OR 30N20N90 COMPAY 000 0012401250O OR 10N90 COMPAY 000 0012501260O N50LAMNAM 30 COMPAY 000 0012601270O 50 14 '***WARNING!!! ' COMPAY 000 0012701280O 50 30 'ACCT NOT ON FILE' COMPAY 000 0012801290O LEVEL1 51 COMPAY 000 0012901300O IDAMT 1 69 '$' COMPAY 000 0013001310O DAMT 1 87 '$' COMPAY 000 0013101320O N50LAPYOF1 105 '$' COMPAY 000 0013201330O 50 113 '***WARNING!!! ACCT' COMPAY 000 0013301340O 50 129 'NOT ON LADLQMST' COMPAY 000 0013401350O E 2 20N90 COMPAY 000 0013501360O OR 2 10N90 COMPAY 000 0013601370O 5 'TOTAL' COMPAY 000 0013701380O IDTOT11 69 '$' COMPAY 000 0013801390O DTOT1 1 87 '$' COMPAY 000 0013901400O BTOT1 1 105 '$' COMPAY 000 0014001410O E 103 20 COMPAY 000 0014101420O OR 103 10 COMPAY 000 0014201430O OR 103 40 COMPAY 000 0014301440O 21 'LEGAL & AGENCY SYSTEM' COMPAY 000 0014401450O 65 'COMPLETE PAYMENTS' COMPAY 000 0014501460O 81 'RECEIVED REPORT' COMPAY 000 0014601470O 126 'PAGE NO.' COMPAY 000 0014701480O PAGE Z 130 COMPAY 000 0014801490O E 20 COMPAY 000 0014901500O OR 10 COMPAY 000 0015001510O OR 40 COMPAY 000 0015101520O 11 'VERSION 3.0' COMPAY 000 0015201530O 117 'RUN DATE:' COMPAY 000 0015301540O UDATE Y 126 COMPAY 000 0015401550O E 3 20 COMPAY 000 0015501560O OR 3 10 COMPAY 000 0015601570O OR 3 40 COMPAY 000 0015701580O 19 'SYSTEM VERIFICATION' COMPAY 000 0015801590O E 3 20 COMPAY 000 0015901600O OR 3 40 COMPAY 000 0016001610O 19 'ATTORNEY / AGENT #' COMPAY 000 0016101620O N90LEVEL2 24 COMPAY 000 0016201630O 90PFLGAA 24 COMPAY 000 0016301640O E 2 20 COMPAY 000 0016401650O OR 2 40 COMPAYC  38^ 000 0016501660O 13 'CUSTOMER NAME' COMPAY 000 0016601670O 49 'ACCOUNT NUMBER' COMPAY 000 0016701680O 69 'INDIRECT' COMPAY 000 0016801690O 87 'DIRECT' COMPAY 000 0016901700O 105 'BALANCE' COMPAY 000 0017001710O E 33 10 COMPAY 000 0017101720O 69 'INDIRECT' COMPAY 000 0017201730O 87 'DIRECT' COMPAY 000 0017301740O 105 'BALANCE' COMPAY 000 0017401750O E 10 COMPAY 000 0017501760O 11 'GRAND TOTAL' COMPAY 000 0017601770O IDTOT21 69 '$' COMPAY 000 0017701780O DTOT2 1 87 '$' COMPAY 000 0017801790O BTOT2 1 105 '$' COMPAY 000 00179/* 01800 000 0018000010H DIRPAY 000 00001 X 1 G02 R LA CCS 3.0 SL-149 00170 000 0000200030F* G02 R LA CCS 3.0 SL-149 D00180 000 0000300040F* D00190 000 0000400050F* LEGAL AND AGENCY VERSION 3 D00200 000 0000500060F* DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA D00210 000 0000600070F* COPYRIGHT CONTROL DATA CORPORATION, 1979 D00220 000 0000700080F* D00230 000 0000800090F* THIS PROGRAM USES THE PAYMENT FILE 'LAPMTFIL' (SORTED BY DIRPAY 000 0000900100F* CLIENT #) TO PROVIDE A LIST OF ALL DIRECT PAYMENTS RECEIVED DIRPAY 000 0001000110F* ON L/A ACCOUNTS SINCE THE LAST DIRECT PAYMENT STATEMENT WAS DIRPAY 000 0001100120F* PRODUCED. THE CUSTOMER NAME AND BALANCE DUE FIELDS ARE RE- DIRPAY 000 0001200130F* TRIEVED FROM THE L/A MASTER FILE 'LADLQMST'. DIRPAY 000 0001300140F* DIRPAY 000 0001400150F********************************************************************DIRPAY 000 0001500160F* DIRPAY 000 0001600170FNULL IP F 2 DISK DIRPAY 000 0001700180FLAPMTFILID F 40 DISK DIRPAY 000 0001800190FLADLQMSTIC F 2000R16AI 1 DISK DIRPAY 000 0001900200FPRINT O F 132 PRINTER DIRPAY 000 0002000210I* DIRPAY 000 0002100220I********************************************************************DIRPAY 000 0002200230I* DIRPAY 000 0002300240INULL AA 01 DIRPAY 000 0002400250ILAPMTFILAA 02 18 C5 DIRPAY 000 0002500260I 1 16 PFACCT DIRPAY 000 0002600270I 19 272PFAM2  39rT DIRPAY 000 0002700280I 28 330PFDATE DIRPAY 000 0002800290I 34 37 PFLGAA DIRPAY 000 0002900300ILAPMTFILAA 01 DIRPAY 000 0003000310ILADLQMSTAA 01 DIRPAY 000 0003100320I 18 47 LAMNAM DIRPAY 000 0003200330I 905 9132LAPYOF DIRPAY 000 0003300340C* DIRPAY 000 0003400350C********************************************************************DIRPAY 000 0003500360C* DIRPAY 000 0003600370C* ****** FUNCTION OF INDICATORS ****** DIRPAY 000 0003700380C* DIRPAY 000 0003800390C* INDICATOR FUNCTION DIRPAY 000 0003900400C* DIRPAY 000 0004000410C* 02 RECORD TYPE = DIRECT PAYMENT (LAPMTFIL) DIRPAY 000 0004100420C* 10 END-OF-FILE (LAPMTFIL) DIRPAY 000 0004200430C* 20 CLIENT # LEVEL BREAK DIRPAY 000 0004300440C* 30 ACCOUNT # LEVEL BREAK DIRPAY 000 0004400450C* 40 DETAIL LINE-COUNTER (40 PER PAGE) DIRPAY 000 0004500460C* 50 RECORD-NOT-FOUND (LADLQMST) DIRPAY 000 0004600470C* 90 FIRST-TIME-THROUGH IND. DIRPAY 000 0004700480C* DIRPAY 000 0004800490C* *********** *********** *********** DIRPAY 000 0004900500C* DIRPAY 000 0005000510C* INITIALIZE VARIABLES DIRPAY 000 0005100520C* DIRPAY 000 0005200530CLR Z-ADD0 TOTAMT 92 DIRPAY 000 0005300540CLR Z-ADD0 TOTBAL 92 DIRPAY 000 0005400550CLR Z-ADD0 GRANDA 102 DIRPAY 000 0005500560CLR Z-ADD0 GRANDB 102 DIRPAY 000 0005600570CLR Z-ADD0 LINCTR 20 DIRPAY 000 0005700580CLR MOVE ' ' LEVEL2 4 DIRPAY 000 0005800590CLR MOVE ' 'LEVEL1 16 DIRPAY 000 0005900600CLR MOVEL' 'LEVEL1 DIRPAY 000 0006000610CLR SETON 90 DIRPAY 000 0006100620C* DIRPAY 000 0006200630C* BEGINNING OF RECORD PROCESSING LOOP DIRPAY 000 0006300640C* DIRPAY 000 0006400650CLR START TAG DIRPAY 000 0006500660CLR READ LAPMTFIL 10 DIRPAY 000 0006600670CLR 10 GOTO EOJ END-OF-FILE DIRPAY 000 0006700680CLRN02 GOTO START NOT DIRECT PAY DIRPAY 000 0006800690CLR PFLGAA COMP U.  3:LEVEL2 2020 ON=NEW CLIENT DIRPAY 000 0006900700CLR 20 MOVE PFLGAA LEVEL2 DIRPAY 000 0007000710CLR 20 EXCPT DIRPAY 000 0007100720CLR 20N90 TOTAMT ADD GRANDA GRANDA DIRPAY 000 0007200730CLR 20N90 TOTBAL ADD GRANDB GRANDB DIRPAY 000 0007300740CLR 20N90 Z-ADD0 TOTAMT DIRPAY 000 0007400750CLR 20N90 Z-ADD0 TOTBAL DIRPAY 000 0007500760CLR PFACCT COMP LEVEL1 3030 ON=NEW ACCT # DIRPAY 000 0007600770CLRN20 EXCPT DIRPAY 000 0007700780CLR Z-ADDPFDATE DATFLD 60 DIRPAY 000 0007800790CLR Z-ADDPFAMT AMTFLD 92 DIRPAY 000 0007900800CLR PFAMT ADD TOTAMT TOTAMT DIRPAY 000 0008000810CLR 30 MOVE PFACCT LEVEL1 DIRPAY 000 0008100820CLR 30 PFACCT CHAINLADLQMST 50 DIRPAY 000 0008200830CLR 30 LAPYOF ADD TOTBAL TOTBAL DIRPAY 000 0008300840CLR SETOF 203040 DIRPAY 000 0008400850CLR SETOF 0290 DIRPAY 000 0008500860CLR LINCTR ADD 1 LINCTR DIRPAY 000 0008600870CLR LINCTR COMP 40 40 DIRPAY 000 0008700880CLR 40 Z-ADD0 LINCTR DIRPAY 000 0008800890CLR GOTO START DIRPAY 000 0008900900C* DIRPAY 000 0009000910C* END OF RECORD PROCESSING LOOP DIRPAY 000 0009100920C* DIRPAY 000 0009200930CLR EOJ TAG DIRPAY 000 0009300940CLR TOTAMT ADD GRANDA GRANDA DIRPAY 000 0009400950CLR TOTBAL ADD GRANDB GRANDB DIRPAY 000 0009500960CLR EXCPT DIRPAY 000 0009600970O* DIRPAY 000 0009700980O********************************************************************DIRPAY 000 0009800990O* DIRPAY 000 0009901000OPRINT E 20N30N90 DIRPAY 000 0010001010O OR 30N20N90 DIRPAY 000 0010101020O OR 10N90 DIRPAY 000 0010201030O N50LAMNAM 30 DIRPAY 000 0010301040O 50 14 '***WARNING!!! ' DIRPAY 000 0010401050O 50 30 'ACCT NOT ON FILE' DIRPAY 000 0010501060O LEVEL1 51 DIRPAY 000 0010601070O DATFLDY 64 DIRPAY 000 0010701080O AMTFLDJ 82 '$' DIRPAY 000 0010801090O N50LAPYOFJ 100 '$' DIRPAY 000 0010901100O 50 108 '***WARNING!!! ACCT' DIRPAY 000 0011001110O y  3; 50 124 'NOT ON LADLQMST' DIRPAY 000 0011101120O E 2 20N30N90 DIRPAY 000 0011201130O OR 2 10N90 DIRPAY 000 0011301140O 5 'TOTAL' DIRPAY 000 0011401150O TOTAMTJ 82 '$' DIRPAY 000 0011501160O TOTBALJ 100 '$' DIRPAY 000 0011601170O E 103 20N30 DIRPAY 000 0011701180O OR 103 10 DIRPAY 000 0011801190O OR 103 40 DIRPAY 000 0011901200O 21 'LEGAL & AGENCY SYSTEM' DIRPAY 000 0012001210O 64 'DIRECT PAYMENTS' DIRPAY 000 0012101220O 80 'RECEIVED REPORT' DIRPAY 000 0012201230O 126 'PAGE NO.' DIRPAY 000 0012301240O PAGE Z 130 DIRPAY 000 0012401250O E 20N30 DIRPAY 000 0012501260O OR 10 DIRPAY 000 0012601270O OR 40 DIRPAY 000 0012701280O 11 'VERSION 3.0' DIRPAY 000 0012801290O 117 'RUN DATE:' DIRPAY 000 0012901300O UDATE Y 126 DIRPAY 000 0013001310O E 3 20N30 DIRPAY 000 0013101320O OR 3 10 DIRPAY 000 0013201330O OR 3 40 DIRPAY 000 0013301340O 19 'SYSTEM VERIFICATION' DIRPAY 000 0013401350O E 3 20N30 DIRPAY 000 0013501360O OR 3 40 DIRPAY 000 0013601370O 19 'ATTORNEY / AGENT #' DIRPAY 000 0013701380O LEVEL2 24 DIRPAY 000 0013801390O E 2 20N30 DIRPAY 000 0013901400O OR 2 40 DIRPAY 000 0014001410O 13 'CUSTOMER NAME' DIRPAY 000 0014101420O 49 'ACCOUNT NUMBER' DIRPAY 000 0014201430O 63 'DATE' DIRPAY 000 0014301440O 82 'AMOUNT' DIRPAY 000 0014401450O 100 'BALANCE' DIRPAY 000 0014501460O E N10N20N30 DIRPAY 000 0014601470O N50LAMNAM 30 DIRPAY 000 0014701480O 50 14 '***WARNING!!! ' DIRPAY 000 0014801490O 50 30 'ACCT NOT ON FILE' DIRPAY 000 0014901500O LEVEL1 51 DIRPAY 000 0015001510O DATFLDY 64 DIRPAY 000 0015101520O AMTFLDJ 82 '$' DI  3<RPAY 000 0015201530O E 33 10 DIRPAY 000 0015301540O 82 'AMOUNT' DIRPAY 000 0015401550O 100 'BALANCE' DIRPAY 000 0015501560O E 10 DIRPAY 000 0015601570O 11 'GRAND TOTAL' DIRPAY 000 0015701580O GRANDAJ 82 '$' DIRPAY 000 0015801590O GRANDBJ 100 '$' DIRPAY 000 00159/* 01600 000 0016000010H INVCLI 000 00001 X 1 G03 R LA CCS 3.0 SL-149 00260 000 0000200030F* G03 R LA CCS 3.0 SL-149 I00270 000 0000300040F* I00280 000 0000400050F* LEGAL AND AGENCY VERSION 3 I00290 000 0000500060F* DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA I00300 000 0000600070F* COPYRIGHT CONTROL DATA CORPORATION, 1979 I00310 000 0000700080F* I00320 000 0000800090F* THIS PROGRAM USES THE CLIENT INVENTORY FILE 'LACLINV' (SORTED INVCLI 000 0000900100F* BY CLIENT #) TO PROVIDE AN INVENTORY REPORT BY ATTORNEY/AGENCY. INVCLI 000 0001000110F* THE PROGRAM ALLOWS FOR FIVE USER-DEFINED CLIENT TYPES, IDENT- INVCLI 000 0001100120F* IFIED BY A TWO CHARACTER TYPE CODE IN 'LAUTIFIL' CORRESPONDING INVCLI 000 0001200130F* TO THE FIRST TWO CHARACTERS OF THE CLIENT NUMBER. THE PROGRAM INVCLI 000 0001300140F* FURTHER ALLOWS FOR A SIXTH CLIENT TYPE, REFERRED TO AS 'MISCEL- INVCLI 000 0001400150F* LANEOUS', CONSISTING OF ALL RECORDS WHICH DO NOT FALL INTO ANY INVCLI 000 0001500160F* OF THE USER-DEFINED CLIENT TYPES.A CHAIN OPERATION IS PERFORMED INVCLI 000 0001600170F* TO 'LAUTIFIL' TO RETRIEVE THE CLIENT TYPE AND A 30 CHARACTER INVCLI 000 0001700180F* TYPE DESCRIPTION. INVCLI 000 0001800190F* INVCLI 000 0001900200F********************************************************************INVCLI 000 0002000210F* INVCLI 000 0002100220FNULL IP F 2 DISK INVCLI 000 0002200230FLACLINV ID F 80 DISK INVCLI 000 0002300240FLAUTIFILIC F 80R 4AI 1 DISK INVCLI 000 0002400250FPRINT O F 132 PRINTER INVCLI 000 0002500260I* INVCLI 000 0002600270I********************************************************************INVCLI 000 0002700280I* INVCLI 000 0002800290INULL AA 08 INVCLI 000 0002900300ILACLINV AA 08 INVCLI 000 0003000310I 1 16 INVACT INVCLI 000 0003100320I 17 18 INVTYP INVCLI 000 0003200330I 17 20 INVCLI 30 INVCLI 000 0003300340I 21 50 qE  3=INVNAM INVCLI 000 0003400350I 51 560INVDAT INVCLI 000 0003500360I 57 652INVBAL INVCLI 000 0003600370ILAUTIFILAA 08 4 CL INVCLI 000 0003700380I 5 6 TYPE1 11 INVCLI 000 0003800390I 8 9 TYPE2 12 INVCLI 000 0003900400I 11 12 TYPE3 13 INVCLI 000 0004000410I 14 15 TYPE4 14 INVCLI 000 0004100420I 17 18 TYPE5 15 INVCLI 000 0004200430ILAUTIFILAA 08 4NCL INVCLI 000 0004300440I 5 34 TYPDSC INVCLI 000 0004400450C* INVCLI 000 0004500460C********************************************************************INVCLI 000 0004600470C* INVCLI 000 0004700480C* ****** FUNCTION OF INDICATORS ****** INVCLI 000 0004800490C* INVCLI 000 0004900500C* INDICATOR FUNCTION INVCLI 000 0005000510C* INVCLI 000 0005100520C* 01 CLIENT TYPE = TYPE1 INVCLI 000 0005200530C* 02 CLIENT TYPE = TYPE2 INVCLI 000 0005300540C* 03 CLIENT TYPE = TYPE3 INVCLI 000 0005400550C* 04 CLIENT TYPE = TYPE4 INVCLI 000 0005500560C* 05 CLIENT TYPE = TYPE5 INVCLI 000 0005600570C* 06 CLIENT TYPE = MISCELLANEOUS INVCLI 000 0005700580C* 07 MISCELLANEOUS CLIENT TYPE RECORDS PRESENT INVCLI 000 0005800590C* 08 RECORD IDENTIFYING IND. INVCLI 000 0005900600C* 10 END-OF-FILE (LACLINV ) INVCLI 000 0006000610C* 11 NO CLIENT TYPE1 IS DEFINED (FIELD IS BLANK) INVCLI 000 0006100620C* 12 NO CLIENT TYPE2 IS DEFINED (FIELD IS BLANK) INVCLI 000 0006200630C* 13 NO CLIENT TYPE3 IS DEFINED (FIELD IS BLANK) INVCLI 000 0006300640C* 14 NO CLIENT TYPE4 IS DEFINED (FIELD IS BLANK) INVCLI 000 0006400650C* 15 NO CLIENT TYPE5 IS DEFINED (FIELD IS BLANK) INVCLI 000 0006500660C* 20 NEW CLIENT (CLIENT # LEVEL BREAK) INVCLI 000 0006600670C* 21 NO TYPE-DESCRIPTION FOR CLIENT TYPE 1 INVCLI 000 0006700680C* 22 NO TYPE-DESCRIPTION FOR CLIENT TYPE 2 INVCLI 000 0006800690C* 23 NO TYPE-DESCRIPTION FOR CLIENT TYPE 3 INVCLI 000 0006900700C* 24 NO TYPE-DESCRIPTION FOR CLIENT TYPE 4 INVCLI 000 0007000710C* 25 NO TYPE-DESCRIPTION FOR CLIENT TYPE 5 INVCLI 000 0007100720C* 30 RCD IS UNASSIGNED (NO CLIENT #) INVCLI 000 0007200730C* 40 DETAIL LINE-COUNTER (40 PER PAGE) INVCLI 000 0007300740C* 90 FIRST-TIME-THROUGH IND. INVCLI 000 0007400750C* H1 FATAL ERROR - NO RCD FOUND 'LAUTIFIL' CHAIN INVCLI 000 0007500760C* 3  3> INVCLI 000 0007600770C* *********** *********** *********** INVCLI 000 0007700780C* INVCLI 000 0007800790C* INITIALIZE VARIABLES INVCLI 000 0007900800C* INVCLI 000 0008000810CLR Z-ADD0 CLIBAL 102 INVCLI 000 0008100820CLR Z-ADD0 BAL1 92 INVCLI 000 0008200830CLR Z-ADD0 BAL2 92 INVCLI 000 0008300840CLR Z-ADD0 BAL3 92 INVCLI 000 0008400850CLR Z-ADD0 BAL4 92 INVCLI 000 0008500860CLR Z-ADD0 BAL5 92 INVCLI 000 0008600870CLR Z-ADD0 BAL6 92 INVCLI 000 0008700880CLR Z-ADD0 TOTBAL 102 INVCLI 000 0008800890CLR Z-ADD0 CTR1 40 INVCLI 000 0008900900CLR Z-ADD0 CTR2 40 INVCLI 000 0009000910CLR Z-ADD0 CTR3 40 INVCLI 000 0009100920CLR Z-ADD0 CTR4 40 INVCLI 000 0009200930CLR Z-ADD0 CTR5 40 INVCLI 000 0009300940CLR Z-ADD0 CTR6 40 INVCLI 000 0009400950CLR Z-ADD0 TOTCTR 40 INVCLI 000 0009500960CLR Z-ADD0 LINCTR 20 INVCLI 000 0009600970CLR MOVE ' ' LEVEL1 4 INVCLI 000 0009700980CLR MOVE 'LACL' TYPKEY 4 INVCLI 000 0009800990CLR MOVE 'LAC1' TYPKY1 4 INVCLI 000 0009901000CLR MOVE 'LAC2' TYPKY2 4 INVCLI 000 0010001010CLR MOVE 'LAC3' TYPKY3 4 INVCLI 000 0010101020CLR MOVE 'LAC4' TYPKY4 4 INVCLI 000 0010201030CLR MOVE 'LAC5' TYPKY5 4 INVCLI 000 0010301040CLR SETON 90 INVCLI 000 0010401050C* INVCLI 000 0010501060C* PROCESS 'LACLINV' RECORDS INVCLI 000 0010601070C* INVCLI 000 0010701080CLR START TAG INVCLI 000 0010801090CLR READ LACLINV 10 INVCLI 000 0010901100CLR 10 GOTO EOJ END-OF-FILE INVCLI 000 0011001110CLR 30 GOTO START NO CLIENT # INVCLI 000 0011101120CLR INVCLI COMP LEVEL1 2020 ON=NEW CLIENT INVCLI 000 0011201130C* INVCLI 000 0011301140C* IF NEW CLIENT (IND. 20 ON) - PERFORM TOTAL CALC. AND OUTPUT INVCLI 000 0011401150C* INVCLI 000 0011501160CLR 20 EXCPT INVCLI 000 0011601170CLR 20 MOVE INVCLI LEVEL1 INVCLI 000 001170118f  3?0CLR 20 CLIBAL ADD TOTBAL TOTBAL INVCLI 000 0011801190CLR 20 Z-ADD0 CLIBAL INVCLI 000 0011901200C* INVCLI 000 0012001210C* FOR EACH RECORD PROCESSED: INCREMENT TOTAL-NUMBER-OF-ACCOUNTS INVCLI 000 0012101220C* FIELD AND ADD BALANCE-THIS-RECORD TO TOTAL-BALANCE-THIS-CLIENT. INVCLI 000 0012201230C* INVCLI 000 0012301240CLR INVBAL ADD CLIBAL CLIBAL INVCLI 000 0012401250CLR TOTCTR ADD 1 TOTCTR INVCLI 000 0012501260C* INVCLI 000 0012601270C* RETRIEVE THE TYPE-PARAMETERS FROM 'LAUTIFIL' AND COMPARE TO INVCLI 000 0012701280C* THE FIRST TWO CHARACTERS OF THE CLIENT NUMBER FROM THE CURRENT INVCLI 000 0012801290C* 'LACLINV' RECORD TO DETERMINE IT'S CLIENT TYPE. INVCLI 000 0012901300C* INVCLI 000 0013001310CLR TYPKEY CHAINLAUTIFIL H1 ON=ERROR INVCLI 000 0013101320CLR SETOF 06 INVCLI 000 0013201330CLRN11 INVTYP COMP TYPE1 01 INVCLI 000 0013301340CLRN12 INVTYP COMP TYPE2 02 INVCLI 000 0013401350CLRN13 INVTYP COMP TYPE3 03 INVCLI 000 0013501360CLRN14 INVTYP COMP TYPE4 04 INVCLI 000 0013601370CLRN15 INVTYP COMP TYPE5 05 INVCLI 000 0013701380CLRN01N02N03 INVCLI 000 0013801390CANN04N05 SETON 0607 INVCLI 000 0013901400C* INVCLI 000 0014001410C* UPDATE THE TOTAL-BALANCE AND TOTAL-NUMBER-OF-ACCOUNTS FIELDS INVCLI 000 0014101420C* FOR THE CURRENT CLIENT TYPE. INVCLI 000 0014201430C* INVCLI 000 0014301440CLR 01 INVBAL ADD BAL1 BAL1 INVCLI 000 0014401450CLR 02 INVBAL ADD BAL2 BAL2 INVCLI 000 0014501460CLR 03 INVBAL ADD BAL3 BAL3 INVCLI 000 0014601470CLR 04 INVBAL ADD BAL4 BAL4 INVCLI 000 0014701480CLR 05 INVBAL ADD BAL5 BAL5 INVCLI 000 0014801490CLR 06 INVBAL ADD BAL6 BAL6 INVCLI 000 0014901500CLR 01 CTR1 ADD 1 CTR1 INVCLI 000 0015001510CLR 02 CTR2 ADD 1 CTR2 INVCLI 000 0015101520CLR 03 CTR3 ADD 1 CTR3 INVCLI 000 0015201530CLR 04 CTR4 ADD 1 CTR4 INVCLI 000 0015301540CLR 05 CTR5 ADD 1 CTR5 INVCLI 000 0015401550CLR 06 CTR6 ADD 1 CTR6 INVCLI 000 0015501560C* INVCLI 000 0015601570C* DETAIL OUTPUT INVCLI 000 0015701580C* INVCLI 000 0015801590CLR SETOF 2090   3@ INVCLI 000 0015901600CLR LINCTR ADD 1 LINCTR INVCLI 000 0016001610CLR LINCTR COMP 40 40 INVCLI 000 0016101620CLR 40 Z-ADD0 LINCTR INVCLI 000 0016201630CLR EXCPT INVCLI 000 0016301640CLR GOTO START INVCLI 000 0016401650C* INVCLI 000 0016501660C* END-OF-FILE: PERFORM TOTAL CALCULATIONS AND FINAL OUTPUT. INVCLI 000 0016601670C* RETRIEVE TYPE-DESCRIPTION FROM 'LAUTIFIL' FOR EACH TYPE PRESENT INVCLI 000 0016701680C* INVCLI 000 0016801690CLR EOJ TAG INVCLI 000 0016901700CLR CLIBAL ADD TOTBAL TOTBAL INVCLI 000 0017001710CLRN11 TYPKY1 CHAINLAUTIFIL 21 ON=NO HIT INVCLI 000 0017101720CLRN11N21 MOVE TYPDSC DESC1 30 INVCLI 000 0017201730CLRN12 TYPKY2 CHAINLAUTIFIL 22 ON=NO HIT INVCLI 000 0017301740CLRN12N22 MOVE TYPDSC DESC2 30 INVCLI 000 0017401750CLRN13 TYPKY3 CHAINLAUTIFIL 23 ON=NO HIT INVCLI 000 0017501760CLRN13N23 MOVE TYPDSC DESC3 30 INVCLI 000 0017601770CLRN14 TYPKY4 CHAINLAUTIFIL 24 ON=NO HIT INVCLI 000 0017701780CLRN14N24 MOVE TYPDSC DESC4 30 INVCLI 000 0017801790CLRN15 TYPKY5 CHAINLAUTIFIL 25 ON=NO HIT INVCLI 000 0017901800CLRN15N25 MOVE TYPDSC DESC5 30 INVCLI 000 0018001810CLR EXCPT INVCLI 000 0018101820C* INVCLI 000 0018201830O********************************************************************INVCLI 000 0018301840O* INVCLI 000 0018401850OPRINT E 2 20N90 INVCLI 000 0018501860O OR 2 10N90 INVCLI 000 0018601870O 5 'TOTAL' INVCLI 000 0018701880O CLIBAL1 90 '$' INVCLI 000 0018801890O E 103 20 INVCLI 000 0018901900O OR 103 10 INVCLI 000 0019001910O OR 103 40 INVCLI 000 0019101920O 21 'LEGAL & AGENCY SYSTEM' INVCLI 000 0019201930O 72 'INVENTORY REPORT' INVCLI 000 0019301940O 126 'PAGE NO.' INVCLI 000 0019401950O PAGE Z 130 INVCLI 000 0019501960O E 20 INVCLI 000 0019601970O OR 10 INVCLI 000 0019701980O OR 40 INVCLI 000 0019801990O 11 'VERSION 3.0' INVCLI 000 0019902000O 73 'BY ATTORNEY/AGENCY' INVCLI 000 0020002010O 117 'RUN  3A DATE:' INVCLI 000 0020102020O UDATE Y 126 INVCLI 000 0020202030O E 3 20 INVCLI 000 0020302040O OR 3 10 INVCLI 000 0020402050O OR 3 40 INVCLI 000 0020502060O 19 'SYSTEM VERIFICATION' INVCLI 000 0020602070O E 3 20 INVCLI 000 0020702080O OR 3 40 INVCLI 000 0020802090O 16 'L/A CLIENT #' INVCLI 000 0020902100O INVCLI 21 INVCLI 000 0021002110O E 2 20 INVCLI 000 0021102120O OR 2 40 INVCLI 000 0021202130O 13 'CUSTOMER NAME' INVCLI 000 0021302140O 49 'ACCOUNT NUMBER' INVCLI 000 0021402150O 69 'REFERRAL DATE' INVCLI 000 0021502160O 93 'LAST BILLED BALANCE' INVCLI 000 0021602170O E N10N20 INVCLI 000 0021702180O INVNAM 30 INVCLI 000 0021802190O INVACT 51 INVCLI 000 0021902200O INVDATY 66 INVCLI 000 0022002210O INVBAL1 90 '$' INVCLI 000 0022102220O E 33 10 INVCLI 000 0022202230O 69 'TOTALS PAGE' INVCLI 000 0022302240O E 33 10 INVCLI 000 0022402250O 16 'CLIENT TYPE CODE' INVCLI 000 0022502260O 42 'CLIENT TYPE DESCRIPTION' INVCLI 000 0022602270O 72 'NUMBER OF ACCOUNTS' INVCLI 000 0022702280O 91 'BILLED BALANCE' INVCLI 000 0022802290O E 2 10N11 INVCLI 000 0022902300O TYPE1 9 INVCLI 000 0023002310O N21DESC1 49 INVCLI 000 0023102320O 21 37 '** NO DESCRIPTION' INVCLI 000 0023202330O 21 48 'ON FILE **' INVCLI 000 0023302340O CTR1 65 INVCLI 000 0023402350O BAL1 1 91 '$' INVCLI 000 0023502360O E 2 10N12 INVCLI 000 0023602370O TYPE2 9 INVCLI 000 0023702380O N22DESC2 49 INVCLI 000 0023802390O 22 37 '** NO DESCRIPTION' INVCLI 000 0023902400O 22 48 'ON FILE **' INVCLI 000 0024002410O CTR2 65 INVCLI 000 0024102420O BAL2 1 91 '$' INVCLI 000 0024202430O E 2 1  3B&0N13 INVCLI 000 0024302440O TYPE3 9 INVCLI 000 0024402450O N23DESC3 49 INVCLI 000 0024502460O 23 37 '** NO DESCRIPTION' INVCLI 000 0024602470O 23 48 'ON FILE **' INVCLI 000 0024702480O CTR3 65 INVCLI 000 0024802490O BAL3 1 91 '$' INVCLI 000 0024902500O E 2 10N14 INVCLI 000 0025002510O TYPE4 9 INVCLI 000 0025102520O N24DESC4 49 INVCLI 000 0025202530O 24 37 '** NO DESCRIPTION' INVCLI 000 0025302540O 24 48 'ON FILE **' INVCLI 000 0025402550O CTR4 65 INVCLI 000 0025502560O BAL4 1 91 '$' INVCLI 000 0025602570O E 2 10N15 INVCLI 000 0025702580O TYPE5 9 INVCLI 000 0025802590O N25DESC5 49 INVCLI 000 0025902600O 25 37 '** NO DESCRIPTION' INVCLI 000 0026002610O 25 48 'ON FILE **' INVCLI 000 0026102620O CTR5 65 INVCLI 000 0026202630O BAL5 1 91 '$' INVCLI 000 0026302640O E 2 10N07 INVCLI 000 0026402650O 43 '- MISCELLANEOUS -' INVCLI 000 0026502660O CTR6 65 INVCLI 000 0026602670O BAL6 1 91 '$' INVCLI 000 0026702680O E 3 10 INVCLI 000 0026802690O 11 'GRAND TOTAL' INVCLI 000 0026902700O TOTCTR 65 INVCLI 000 0027002710O TOTBAL1 91 '$' INVCLI 000 00271/* 02720 000 0027200010H INVCUS 000 00001 X 1 G04 R LA CCS 3.0 SL-149 00350 000 0000200030F* G04 R LA CCS 3.0 SL-149 I00360 000 0000300040F* I00370 000 0000400050F* LEGAL AND AGENCY VERSION 3 I00380 000 0000500060F* DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA I00390 000 0000600070F* COPYRIGHT CONTROL DATA CORPORATION, 1979 I00400 000 0000700080F* I00410 000 0000800090F* THIS PROGRAM USES THE CLIENT INVENTORY FILE 'LACLINV' (SORTED INVCUS 000 0000900100F* BY ACCOUNT #) TO PROVIDE AN INVENTORY REPORT BY CUSTOMER. INVCUS 000 0001000110F* INVCUS 000 0001100120F********************************************************************INVCUS 000 00012/  3C:00130F* INVCUS 000 0001300140FNULL IP F 2 DISK INVCUS 000 0001400150FLACLINV ID F 80 DISK INVCUS 000 0001500160FPRINT O F 132 PRINTER INVCUS 000 0001600170I* INVCUS 000 0001700180I********************************************************************INVCUS 000 0001800190I* INVCUS 000 0001900200INULL AA 01 INVCUS 000 0002000210ILACLINV AA 01 INVCUS 000 0002100220I 1 16 INVACT INVCUS 000 0002200230I 17 18 INVTYP INVCUS 000 0002300240I 17 20 INVCLI INVCUS 000 0002400250I 21 50 INVNAM INVCUS 000 0002500260I 51 560INVDAT INVCUS 000 0002600270I 57 652INVBAL INVCUS 000 0002700280C* INVCUS 000 0002800290C********************************************************************INVCUS 000 0002900300C* INVCUS 000 0003000310C* ****** FUNCTION OF INDICATORS ****** INVCUS 000 0003100320C* INVCUS 000 0003200330C* INDICATOR FUNCTION INVCUS 000 0003300340C* INVCUS 000 0003400350C* 01 RECORD IDENTIFYING IND. INVCUS 000 0003500360C* 10 END-OF-FILE (LACLINV ) INVCUS 000 0003600370C* 40 DETAIL LINE-COUNTER (40 PER PAGE) INVCUS 000 0003700380C* 90 FIRST-TIME-THROUGH IND. INVCUS 000 0003800390C* INVCUS 000 0003900400C* *********** *********** *********** INVCUS 000 0004000410C* INVCUS 000 0004100420C* INITIALIZE VARIABLES INVCUS 000 0004200430C* INVCUS 000 0004300440CLR Z-ADD0 TOTCTR 40 INVCUS 000 0004400450CLR Z-ADD0 TOTBAL 102 INVCUS 000 0004500460CLR Z-ADD0 LINCTR 20 INVCUS 000 0004600470CLR SETON 90 INVCUS 000 0004700480C* INVCUS 000 0004800490C* PROCESS 'LACLINV' RECORDS INVCUS 000 0004900500C* INVCUS 000 0005000510CLR START TAG INVCUS 000 0005100520CLR READ LACLINV 10 INVCUS 000 0005200530CLR 10 GOTO EOJ END-OF-FILE INVCUS 000 0005300540C*  3DN INVCUS 000 0005400550C* FOR EACH RECORD PROCESSED: INCREMENT TOTAL-NUMBER-OF-ACCOUNTS INVCUS 000 0005500560C* FIELD AND ADD BALANCE-THIS-RECORD TO TOTAL-BALANCE. INVCUS 000 0005600570C* INVCUS 000 0005700580CLR INVBAL ADD TOTBAL TOTBAL INVCUS 000 0005800590CLR TOTCTR ADD 1 TOTCTR INVCUS 000 0005900600C* INVCUS 000 0006000610C* DETAIL OUTPUT INVCUS 000 0006100620C* INVCUS 000 0006200630CLR LINCTR ADD 1 LINCTR INVCUS 000 0006300640CLR LINCTR COMP 40 40 INVCUS 000 0006400650CLR 40 Z-ADD0 LINCTR INVCUS 000 0006500660CLR EXCPT INVCUS 000 0006600670CLR SETOF 90 INVCUS 000 0006700680CLR GOTO START INVCUS 000 0006800690C* INVCUS 000 0006900700C* END-OF-FILE: PERFORM TOTAL OUTPUT. INVCUS 000 0007000710C* INVCUS 000 0007100720CLR EOJ TAG INVCUS 000 0007200730CLR EXCPT INVCUS 000 0007300740C* INVCUS 000 0007400750O********************************************************************INVCUS 000 0007500760O* INVCUS 000 0007600770OPRINT E 103 40 INVCUS 000 0007700780O OR 103 90 INVCUS 000 0007800790O 21 'LEGAL & AGENCY SYSTEM' INVCUS 000 0007900800O 72 'INVENTORY REPORT' INVCUS 000 0008000810O 126 'PAGE NO.' INVCUS 000 0008100820O PAGE Z 130 INVCUS 000 0008200830O E 40 INVCUS 000 0008300840O OR 90 INVCUS 000 0008400850O 11 'VERSION 3.0' INVCUS 000 0008500860O 69 'BY CUSTOMER' INVCUS 000 0008600870O 117 'RUN DATE:' INVCUS 000 0008700880O UDATE Y 126 INVCUS 000 0008800890O E 3 40 INVCUS 000 0008900900O OR 3 90 INVCUS 000 0009000910O 19 'SYSTEM VERIFICATION' INVCUS 000 0009100920O E 2 40 INVCUS 000 0009200930O OR 2 90 INVCUS 000 0009300940O 13 'CUSTOMER NAME' INVCUS 000 0009400950O 49 'ACCOUNT NUMBER' INVCUS 000 0009500960O 69  3Eb'REFERRAL DATE' INVCUS 000 0009600970O 86 'L/A CLIENT #' INVCUS 000 0009700980O 110 'LAST BILLED BALANCE' INVCUS 000 0009800990O E N10 INVCUS 000 0009901000O INVNAM 30 INVCUS 000 0010001010O INVACT 51 INVCUS 000 0010101020O INVDATY 66 INVCUS 000 0010201030O INVCLI 82 INVCUS 000 0010301040O INVBAL1 107 '$' INVCUS 000 0010401050O E 32 10 INVCUS 000 0010501060O 13 'GRAND TOTALS:' INVCUS 000 0010601070O E 10 INVCUS 000 0010701080O 19 'NUMBER OF ACCOUNTS:' INVCUS 000 0010801090O TOTCTR 24 INVCUS 000 0010901100O E 10 INVCUS 000 0011001110O 15 'BILLED BALANCE:' INVCUS 000 0011101120O TOTBAL1 33 '$' INVCUS 000 00112/* 001130 000 0011300020H LARPRT 000 00001 X 1 G05 R LA CCS 3.0 SL-149 00440 000 0000200040F* G05 R LA CCS 3.0 SL-149 L00450 000 0000300050F* L00460 000 0000400060F* LEGAL AND AGENCY VERSION 3 L00470 000 0000500070F* DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA L00480 000 0000600080F* CREDIT COLLECTION SYSTEM VERSION 2.1 L00490 000 0000700090F* L00500 000 0000800100F* THIS PROGRAM PRINTS THE L/A CLIENT REFERRAL LIST OF ALL LARPRT 000 0000900110F* ACCOUNTS EXTRACTED FROM THE C.C.S. SYSTEM BY THE L/A LARPRT 000 0001000120F* PROGRAM 'LAXTRT'. LARPRT 000 0001100130F* LARPRT 000 0001200140FNULL IP F 2 DISK LARPRT 000 0001300150FLADLQKEYID F 16 DISK LARPRT 000 0001400160FLADLQMSTIC F 2000R16AI 1 DISK LARPRT 000 0001500170FPRINT O F 132 PRINTER LARPRT 000 0001600180FDISPLAY O F 72 CONSOLE LARPRT 000 0001700190E* LARPRT 000 0001800200E ERR 1 1 50 INVALID KEY MSG LARPRT 000 0001900210I* LARPRT 000 0002000220I* ALL INPUT LINES PRECEDED BY '***' ARE NOT LARPRT 000 0002100230I* CURRENTLY BEING USED IN THIS PROGRAM. LARPRT 000 0002200240I* LARPRT 000 0002300250INULL AA 01 LARPRT 000 0002400260ILADLQKEYAA 01_  3Fv LARPRT 000 0002500270I 1 16 KEY LARPRT 000 0002600280ILADLQMSTAA 01 LARPRT 000 0002700290I 1 16 MACCT LARPRT 000 0002800300I*** 17 17 MSLCD LARPRT 000 0002900310I 18 47 MNAM LARPRT 000 0003000320I 48 77 MADR1 LARPRT 000 0003100330I 78 107 MADR2 LARPRT 000 0003200340I 108 127 MCS LARPRT 000 0003300350I 128 1320MZP LARPRT 000 0003400360I 133 1350MPHN1 LARPRT 000 0003500370I 136 1380MPHN2 LARPRT 000 0003600380I 139 1420MPHN3 LARPRT 000 0003700390I 143 146 MEXT LARPRT 000 0003800400I 147 176 MBNM LARPRT 000 0003900410I 177 206 MBAD LARPRT 000 0004000420I 207 226 MBCS LARPRT 000 0004100430I 227 2310MBZP LARPRT 000 0004200440I 232 2340MBPH1 LARPRT 000 0004300450I 235 2370MBPH2 LARPRT 000 0004400460I 238 2410MBPH3 LARPRT 000 0004500470I 242 2450MBEX LARPRT 000 0004600480I*** 246 2610MADL LARPRT 000 0004700490I 262 2640MSOC1 LARPRT 000 0004800500I 265 2660MSOC2 LARPRT 000 0004900510I 267 2700MSOC3 LARPRT 000 0005000520I*** 271 274 MQUE LARPRT 000 0005100530I*** 275 2800MNXTC LARPRT 000 0005200540I*** 281 284 MPRI LARPRT 000 0005300550I*** 285 285 MPFG LARPRT 000 0005400560I*** 286 286 MBFG LARPRT 000 0005500570I*** 287 290 MSUP LARPRT 000 0005600580I*** 291 291 MRCD LARPRT 000 0005700590I*** 292 293 MSCD LARPRT 000 0005800600I*** 294 294 MQAS LARPRT 000 0005900610I*** 295 295 MOLS LARPRT 000 0006000620I*** 296 299 MPQU LARPRT 000 0006100630I*** 300 3050MPDQ LARPRT 000 0006200640I*** 306 306 MSTC LARPRT 000 0006300650I 667 696 MP1 LARPRT 000 0006400660I 697 726 MP2 LARPRT 000 0006500670I 727 756 MP3 LARPRT 000 0  3G006600680I*** 757 786 MPAD1 LARPRT 000 0006700690I*** 787 816 MPAD1 LARPRT 000 0006800700I*** 817 836 MPCS LARPRT 000 0006900710I*** 837 8410MPZC LARPRT 000 0007000720I*** 842 8470MLLDT LARPRT 000 0007100730I*** 848 8560MLLAT LARPRT 000 0007200740I 857 8620MSTDT LARPRT 000 0007300750I*** 863 8680MUPDT LARPRT 000 0007400760I 869 8740MCCDT LARPRT 000 0007500770I*** 875 8800MDLDT LARPRT 000 0007600780I 881 8860MOPDT LARPRT 000 0007700790I*** 887 8952MADLQ LARPRT 000 0007800800I*** 896 9042MCBAL LARPRT 000 0007900810I*** 905 9132MPYOF LARPRT 000 0008000820I*** 914 9190MCPGD LARPRT 000 0008100830I*** 920 9282MNPA LARPRT 000 0008200840I*** 929 9372MOAMT LARPRT 000 0008300850I*** 938 9380MCHN LARPRT 000 0008400860I*** 939 946 MTP LARPRT 000 0008500870I*** 947 949 MPTS LARPRT 000 0008600880I 950 9540MBBR LARPRT 000 0008700890I 955 962 MLON LARPRT 000 0008800900I 963 966 MTCD LARPRT 000 0008900910I*** 967 9680MTD3 LARPRT 000 0009000920I*** 969 9700MTD6 LARPRT 000 0009100930I*** 971 9720MTD9 LARPRT 000 0009200940I*** 9731012 MSDF LARPRT 000 0009300950I 101310150MDYDL LARPRT 000 0009400960I*** 10161021 MPPD LARPRT 000 0009500970I*** 102210302MPPA LARPRT 000 0009600980I*** 103110360MTHD LARPRT 000 0009700990I*** 103710380MPPK LARPRT 000 0009801000I*** 103910400MPPB LARPRT 000 0009901010I*** 10411056 MRESV LARPRT 000 0010001020I 105710620LATLA LARPRT 000 0010101030I 106310712LADUE LARPRT 000 0010201040C* LARPRT 000 0010301050CLR START TAG LARPRT 000 0010401060CLR READ LADLQKEY 10 LARPRT 000 0010501070CLR 10 GOTO EOJ LARPRT 000 0010601080CLR KEY CHAINLADLQMST 15 LARPRT 000 0010701090CLR EXCPT k  3H LARPRT 000 0010801100CLR GOTO START LARPRT 000 0010901110CLR EOJ TAG LARPRT 000 0011001120O* LARPRT 000 0011101130ODISPLAY E 15 LARPRT 000 0011201140O KEY 16 LARPRT 000 0011301150O ERR 70 LARPRT 000 0011401160OPRINT E 0301 15 LARPRT 000 0011501170O 20 '***** ERROR *****' LARPRT 000 0011601180O 38 'ACCOUNT NUMBER' LARPRT 000 0011701190O KEY 55 LARPRT 000 0011801200O 78 'IS NOT PRESENT IN THE' LARPRT 000 0011901210O 100 'L/A DELINQUENT MASTER' LARPRT 000 0012001220OPRINT E 103 N15 LARPRT 000 0012101230O 19 'LEGAL AGENCY SYSTEM' LARPRT 000 0012201240O 74 'CLIENT REFERRAL LIST' LARPRT 000 0012301250O 127 'PAGE' LARPRT 000 0012401260O PAGE Z 132 LARPRT 000 0012501270O E N15 LARPRT 000 0012601280O 11 'VERSION 2.0' LARPRT 000 0012701290O 122 'RUN DATE:' LARPRT 000 0012801300O UDATE Y 131 LARPRT 000 0012901310O E 2 N15 LARPRT 000 0013001320O 19 'SYSTEM VERIFICATION' LARPRT 000 0013101330O E N15 LARPRT 000 0013201340O 27 'ACCOUNT BANK' LARPRT 000 0013301350O 55 'LOAN AMOUNT TO' LARPRT 000 0013401360O 90 'REFERRED TO:' LARPRT 000 0013501370O 108 '_______________' LARPRT 000 0013601380O 123 '_______________' LARPRT 000 0013701390O E N15 LARPRT 000 0013801400O 29 'NUMBER BRANCH' LARPRT 000 0013901410O 53 'OFFICER COLLECT' LARPRT 000 0014001420O 89 'L/A NUMBER:' LARPRT 000 0014101430O 97 '____' LARPRT 000 0014201440O E N15 LARPRT 000 0014301450O 92 'REFERRAL DATE:' LARPRT 000 0014401460O 99 '/ /' LARPRT 000 0014501470O E 2 N15 LARPRT 000 0014601480O MACCT 16 LARPRT 000 0014701490O MBBR 28 LARPRT 000 0014801500O MLON 31 LARPRT 000 0014901510O LADUE 1 #  3I 58 '$' LARPRT 000 0015001520O 92 'BY (COLL-ID) :' LARPRT 000 0015101530O 97 '____' LARPRT 000 0015201540O E 2 N15 LARPRT 000 0015301550O 12 'DEBTOR:' LARPRT 000 0015401560O 87 'APPROVAL:' LARPRT 000 0015501570O 105 '____________' LARPRT 000 0015601580O E N15 LARPRT 000 0015701590O 4 'NAME' LARPRT 000 0015801600O MNAM 44 LARPRT 000 0015901610O 98 'REASON FOR REFERRAL:' LARPRT 000 0016001620O E N15 LARPRT 000 0016101630O 9 'ADDRESS-1' LARPRT 000 0016201640O MADR1 44 LARPRT 000 0016301650O E N15 LARPRT 000 0016401660O 9 'ADDRESS-2' LARPRT 000 0016501670O MADR2 44 LARPRT 000 0016601680O 91 '( ) FILE SUIT' LARPRT 000 0016701690O E N15 LARPRT 000 0016801700O 11 'CITY,ST,ZIP' LARPRT 000 0016901710O MCS 34 LARPRT 000 0017001720O MZP 44 LARPRT 000 0017101730O 94 '( ) ATTACH WAGES' LARPRT 000 0017201740O E N15 LARPRT 000 0017301750O 5 'PHONE' LARPRT 000 0017401760O MPHN1 17 LARPRT 000 0017501770O 18 '/' LARPRT 000 0017601780O MPHN2 21 LARPRT 000 0017701790O 22 '-' LARPRT 000 0017801800O MPHN3 26 LARPRT 000 0017901810O 101 '( ) ATTACH BANK ACCOUNT' LARPRT 000 0018001820O E N15 LARPRT 000 0018101830O 9 'SOC SEC #' LARPRT 000 0018201840O MSOC1 17 LARPRT 000 0018301850O 18 '-' LARPRT 000 0018401860O MSOC2 20 LARPRT 000 0018501870O 21 '-' LARPRT 000 0018601880O MSOC3 25 LARPRT 000 0018701890O 94 '( ) SHERIFF SALE' LARPRT 000 0018801900O E N15 LARPRT 000 0018901910O 92 '( ) BANKRUPTCY' LARPRT 000 0019001920O E N15 LARPRT 000 0019101930O  3J 23 'DAYS DATE IN LAST' LARPRT 000 0019201940O 44 'AR DATE ACCT' LARPRT 000 0019301950O 97 '( ) FILE FOR ESTATE' LARPRT 000 0019401960O E N15 LARPRT 000 0019501970O 21 'DELQ CCS UP' LARPRT 000 0019601980O 44 'DATE OPEN TYPE' LARPRT 000 0019701990O 103 'DATE OF DEATH: / /' LARPRT 000 0019802000O E N15 LARPRT 000 0019902010O 98 'LIEN ON PROPERTY' LARPRT 000 0020002020O E N15 LARPRT 000 0020102030O MDYDL 3 LARPRT 000 0020202040O MCCDT Y 16 LARPRT 000 0020302050O MSTDT Y 27 LARPRT 000 0020402060O MOPDT Y 38 LARPRT 000 0020502070O MTCD 44 LARPRT 000 0020602080O 92 '( ) ATTACH ALL' LARPRT 000 0020702090O 109 'AVAILABLE ASSETS' LARPRT 000 0020802100O E N15 LARPRT 000 0020902110O 87 '( ) OTHER' LARPRT 000 0021002120O E 2 N15 LARPRT 000 0021102130O 16 'EMPLOYMENT:' LARPRT 000 0021202140O E N15 LARPRT 000 0021302150O 8 'EMPLOYER' LARPRT 000 0021402160O MBNM 44 LARPRT 000 0021502170O E N15 LARPRT 000 0021602180O 7 'ADDRESS' LARPRT 000 0021702190O MBAD 44 LARPRT 000 0021802200O 90 'GIVE DETAILS' LARPRT 000 0021902210O E N15 LARPRT 000 0022002220O 11 'CITY,ST,ZIP' LARPRT 000 0022102230O MBCS 34 LARPRT 000 0022202240O MBZP 44 LARPRT 000 0022302250O E N15 LARPRT 000 0022402260O 5 'PHONE' LARPRT 000 0022502270O MBPH1 17 LARPRT 000 0022602280O 18 '/' LARPRT 000 0022702290O MBPH2 21 LARPRT 000 0022802300O 22 '-' LARPRT 000 0022902310O MBPH3 26 LARPRT 000 0023002320O 29 'X(' LARPRT 000 0023102330O MBEX 33 LARPRT 000 0023202340O 34 ')' LARPRT 0  3K00 0023302350O 79 '*' LARPRT 000 0023402360O E N15 LARPRT 000 0023502370O 79 '*' LARPRT 000 0023602380O E N15 LARPRT 000 0023702390O 23 'PERMANENT COMMENTS' LARPRT 000 0023802400O 79 '*' LARPRT 000 0023902410O E N15 LARPRT 000 0024002420O 79 '*' LARPRT 000 0024102430O E N15 LARPRT 000 0024202440O MP1 30 LARPRT 000 0024302450O E N15 LARPRT 000 0024402460O MP2 30 LARPRT 000 0024502470O E N15 LARPRT 000 0024602480O MP3 30 LARPRT 000 00247** 002490 000 00248WARNING! KEY NOT PRESENT IN L/A DELINQUENT MASTER 002500 000 00249/* 002510 000 0025000020H LBATPT 000 00001 X 1 G06 R LA CCS 3.0 SL-149 00530 000 0000200040F* G06 R LA CCS 3.0 SL-149 00540 000 0000300050F* 00550 000 0000400060F* LEGAL AND AGENCY SYSTEM VERSION 3 00560 000 0000500070F* DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA CALIFORNIA 00570 000 0000600080F* COPYRIGHT CONTROL DATA CORPORATION, 1979 00580 000 0000700090F* 00590 000 0000800100F* THIS PROGRAM USES THE OUTPUT FROM THE BATCH UPDATE PROGRAM 000 0000900110F* - LBATUD - TO PRODUCE THE AUDIT TRAIL REPORT WHICH DETAILS 000 0001000120F* THE EFFECT OF EACH FINANCIAL TRANSACTION. ONLY THE FIELDS 000 0001100130F* WHCIH WERE ACTUALLY AFFECTED BY THE TRANSACTIONS ARE SHOWN 000 0001200140F* 000 0001300150FLADUMMY IP F 80 DISK 000 0001400160FLARPTDATISE F 160 DISK 00020 000 0001500170FLAUTIFILIC F 80R 4AI 1 DISK 00030 000 0001600180FPRINT O F 132 OV PRINTER 00040 000 0001700190ILADUMMY AA 01 000 0001800200ILARPTDATAA 12 00050 000 0001900210I 1 16 LACCT 00060 000 0002000220I 17 18 LTC 00070 000 0002100230I 19 272LAMT 00080 000 0002200240I 28 33 LDATE 00090 000 0002300250I 34 37 LCOID 00100 000 0002400260I 38 41 LGNO  3L 00110 000 0002500270I 42 502LDAMT1 00120 000 0002600280I 51 592LDAMT2 00130 000 0002700290I 60 682LCBAL1 00140 000 0002800300I 69 772LCBAL2 00150 000 0002900310I 78 862LRCC1 00160 000 0003000320I 87 952LRCC2 00170 000 0003100330I 96 1042LNRCC1 00180 000 0003200340I 105 1132LNRCC2 00190 000 0003300350I 114 1222LFEE1 00200 000 0003400360I 123 1312LFEE2 00210 000 0003500370I 132 1402LACOL1 00220 000 0003600380I 141 1492LACOL2 00230 000 0003700390I 150 151 LECODE 00240 000 0003800400ILAUTIFILAA 31 00250 000 0003900410I 5 44 HEADER 00260 000 0004000420C***** SET UP REPORT HEADERS 00270 000 0004100430C SETOF 11 000 0004200440C 46 GOTO AROUND 00290 000 0004300450C 'HDR1' CHAINLAUTIFIL 32 00300 000 0004400460C N32 MOVE HEADER HDR1 40 00310 000 0004500470C 'HDR2' CHAINLAUTIFIL 32 00320 000 0004600480C N32 MOVE HEADER HDR2 40 00330 000 0004700490C 'HDR3' CHAINLAUTIFIL 32 00340 000 0004800500C N32 MOVE HEADER HDR3 40 00350 000 0004900510C SETON 4611 00360 000 0005000520C GOTO SKIP 000 0005100530C AROUND TAG 00370 000 0005200540C SETON 1013 000 0005300550C LTC COMP '05' 40 000 0005400560C LTC COMP '06' 41 000 0005500570C LTC COMP '07' 42 000 0005600580C LTC COMP '08' 43 000 0005700590C LTC COMP '09' 44 000 0005800600C LECODE COMP 'DN' 21 00380 000 0005900610C 21 GOTO SKIP 00390 000 0006000620C LECODE COMP 'CN' 22 00400 000 0006100630C 22 GOTO SKIP 00410 000 0006200640C LECODE COMP 'BL' 23 00420 000 0006300650C 23 GOTO SKIP 00430 000 0006400660C LECODE COMP 'IM' 24 00440 000 0006500670C 24 GOTO SKIP 00450 000 0006600680C LECODE COMP 'IY'  3M 25 00460 000 0006700690C 25 GOTO SKIP 00470 000 0006800700C LTC COMP ' ' 26 000 0006900710C 26 GOTO SKIP 000 0007000720C LECODE COMP 'BC' 27 000 0007100730C 27 GOTO SKIP 000 0007200740C LECODE COMP 'IS' 28 000 0007300750C 28 GOTO SKIP 000 0007400760C SETOF 10 00480 000 0007500770C SKIP TAG 00490 000 0007600780OPRINT D 101 11 00500 000 0007700790O OR 101 OV 00510 000 0007800800O HDR1 41 00520 000 0007900810O 71 'LEGAL/AGENCY BATCH ' 00530 000 0008000820O 89 'UPDATE AUDIT TRAIL' 00540 000 0008100830O 128 'PAGE' 00550 000 0008200840O PAGE Z 132 00560 000 0008300850O D 1 11 00570 000 0008400860O OR 1 OV 00580 000 0008500870O HDR2 41 00590 000 0008600880O 61 'AS OF' 00600 000 0008700890O UDATE Y 70 00610 000 0008800900O D 1 11 00620 000 0008900910O OR 1 OV 00630 000 0009000920O HDR3 41 00640 000 0009100930O D 1 11 00650 000 0009200940O OR 1 OV 00660 000 0009300950O 23 '**** TRANSACTIO' 00670 000 0009400960O 46 'N ' 00680 000 0009500970O 69 ' **** **** LAD' 00690 000 0009600980O 92 'LQMST **** **** ' 00700 000 0009700990O 115 ' LACLIENT ' 00710 000 0009801000O 132 ' ****' 00720 000 0009901010O D 1 11 00730 000 0010001020O OR 1 OV 00740 000 0010101030O 85 'AMT DELQ CUR BAL ' 00750 000 0010201040O 109 'R.C.C. N.R.C.C. ' 00760 000 0010301050O 132 'FEE/COMM AMT COL ' 00770 000 0010401060O D 1 11 00790 000 0010501070O OR 1 OV 00800 000 0010601080O 85 'BEFORE BEFORE ' 00810 000 0010701090O 109 'BEFORE BEFORE ' 00820 000 0010801100O o  3N 132 'BEFORE BEFORE ' 00830 000 0010901110O D 1 11 00850 000 0011001120O OR 1 OV 00860 000 0011101130O 24 'ACCOUNT NUMBER TC AM' 00870 000 0011201140O 48 'OUNT DATE COID ' 00880 000 0011301150O 55 ' L/A NO' 00890 000 0011401160O 85 'AFTER AFTER ' 00900 000 0011501170O 109 'AFTER AFTER ' 00910 000 0011601180O 132 'AFTER AFTER ' 00920 000 0011701190O D 1 N10 00930 000 0011801200O AND 13 000 0011901210O LACCT 16 00950 000 0012001220O 40 20 '01' 00960 000 0012101230O 41 20 '02' 000 0012201240O 42 20 '03' 000 0012301250O 43 20 '04' 000 0012401260O 44 20 '05' 000 0012501270O LAMT J 33 00970 000 0012601280O LDATE 41 00980 000 0012701290O LCOID 47 00990 000 0012801300O LGNO 53 01000 000 0012901310O LDAMT1J 70 01010 000 0013001320O LCBAL1J 82 01020 000 0013101330O LRCC1 J 94 01030 000 0013201340O LNRCC1J 106 01040 000 0013301350O LFEE1 J 118 01050 000 0013401360O LACOL1J 130 01060 000 0013501370O D 2 N10 01070 000 0013601380O AND 13 000 0013701390O LDAMT2J 70 01090 000 0013801400O LCBAL2J 82 01100 000 0013901410O LRCC2 J 94 01110 000 0014001420O LNRCC2J 106 01120 000 0014101430O LFEE2 J 118 01130 000 0014201440O LACOL2J 130 01140 000 0014301450O D 2 10 01150 000 0014401460O AND 13 000 0014501470O LACCT 16 01170 000 0014601480O LTC 20 01180 000 0014701490O LAMT 31 01190 000 0014801500O LDATE 41 01200 000 0014901510O LCOID 47 012108  3O* 000 0015001520O LGNO 53 01220 000 0015101530O 21 73 'ACCT# NOT FOUND' 01230 000 0015201540O 22 74 'CLIENT NOT FOUND' 01240 000 0015301550O 23 75 'INVALID CLIENT NO' 01250 000 0015401560O 24 71 'INVALID DATE' 01260 000 0015501570O 25 71 'INVALID DATE' 01270 000 0015601580O 26 76 'REASSIGNMENT TRANS' 000 0015701590O 27 75 'BAD CLIENT RECORD' 000 0015801600O 28 70 'INVALID SIGN' 000 0015901610O T 3 LR 01280 000 0016001620O 80 '*** END OF REPORT ***' 01290 000 00161/* 01630 000 00162 H LCHUD1 000 00001 X 1 G07 R LA CCS 3.0 SL-149 00620 000 00002 F* G07 R LA CCS 3.0 SL-149 00630 000 00003 F* 00640 000 00004 F* LEGAL AND AGENCY VERSION 3 00650 000 00005 F* DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 00660 000 00006 F* COPYRIGHT CONTROL DATA CORPORATION, 1979 00670 000 00007 F* 00680 000 00008 F* DECK-ID L02 CCS 3.0 SUMMARY-138 00200 000 0000900040F* CHUPD1 000 0001000050F* COPYRIGTH CONTROL DATA CORPORATION, 1978 CHUPD1 000 0001100060F* DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA CHUPD1 000 00012 F* CREDIT COLLECTION SYSTEM VERSION 3.0 00220 000 0001300080F* CHUPD1 000 0001400090F* THIS PROGRAM PREPARES THE INPUT FILE FOR CHUPD2 WHICH CHUPD1 000 0001500100F* UPDATES THE ACTIVE ACCOUNTS MASTER FILES WITH DATA CHUPD1 000 0001600110F* CONTAINED IN THE TAPE ARCHIVES. CHUPD1 000 0001700120F* CHUPD1 000 00018 F**********************************************************138**L/A 00240 000 00019 FLAUPHSCMIP F 20 DISK 00250 000 00020 FLAUTIFILIC F 80R 4AI 1 DISK 00260 000 00021 FLADLQMSTIC F 2000R16AI 1 DISK 00270 000 00022 FLATAPARCIC F 46R16AI 1 DISK 00280 000 00023 FLAUPDREQO F 22 DISK A 00290 000 00024 F**********************************************************138**L/A 00300 000 0002500180FPRINT O F 132 OV PRINTER CHUPD1 000 00026 I**********************************************************138**L/A 00320 000 00027 ILAUPHSCMAA 01 00330 000 00028 I**********************************************************138**L/A 00340 000 0002900200I 1 16 ACCTc  3P> CHUPD1 000 0003000210I 17 20 SUP CHUPD1 000 00031 I**********************************************************138**L/A 00360 000 00032 ILAUTIFILAA 02 00370 000 00033 I**********************************************************138**L/A 00380 000 0003400230I 5 44 HD CHUPD1 000 00035 I**********************************************************138**L/A 00400 000 00036 ILADLQMSTAA 03 00410 000 00037 I**********************************************************138**L/A 00420 000 0003800250I 18 47 NAME CHUPD1 000 00039 I**********************************************************138**L/A 00440 000 00040 ILATAPARCAA 04 00450 000 00041 I**********************************************************138**L/A 00460 000 0004200270I 17 220TP1 05 CHUPD1 000 0004300280I 23 280TP2 06 CHUPD1 000 0004400290I 29 340TP3 07 CHUPD1 000 0004500300I 35 400TP4 08 CHUPD1 000 0004600310I 41 460TP5 09 CHUPD1 000 0004700320C SETOF 902030 CHUPD1 000 0004800330C 10 GOTO ARND CHUPD1 000 0004900340C* RETREIVE THE HEADINGS FROM THE UTILITY FILE CHUPD1 000 00050 C**********************************************************138**L/A 00480 000 00051 C 'HDR1' CHAINLAUTIFIL 11 00490 000 00052 C**********************************************************138**L/A 00500 000 0005300360C N11 MOVE HD HDR1 40 CHUPD1 000 00054 C**********************************************************138**L/A 00520 000 00055 C 'HDR2' CHAINLAUTIFIL 11 00530 000 00056 C**********************************************************138**L/A 00540 000 0005700380C N11 MOVE HD HDR2 40 CHUPD1 000 00058 C**********************************************************138**L/A 00560 000 00059 C 'HDR3' CHAINLAUTIFIL 11 00570 000 00060 C**********************************************************138**L/A 00580 000 0006100400C N11 MOVE HD HDR3 40 CHUPD1 000 0006200410C SETON 1090 CHUPD1 000 0006300420C ARND TAG CHUPD1 000 0006400430C* VERIFY THE MASTER RECORD EXISTS CHUPD1 000 00065 C**********************************************************138**L/A 00600 000 00066 C ACCT CHAINLADLQMST 20 00610 000 00067 C**********************************************************138**L/A 00620 000 0006800450C 20 GOTO END CHUPD1 000 0006900460C* GET THE TAPEARC RECORD WITH THE TAPE DATES CHUPD1 000 00070 C**********************************************************138**L/A 00640 000 00071 C ACCT CHAIN  3QRLATAPARC 30 00650 000 00072 C**********************************************************138**L/A 00660 000 0007300480C 30 GOTO END CHUPD1 000 0007400490C* CREATE THE TAPE REQUEST RECORDS FOR CHUPD2 CHUPD1 000 0007500500C SETON 40 CHUPD1 000 0007600510C EXCPT CHUPD1 000 0007700520C SETOF 40 CHUPD1 000 0007800530C END TAG CHUPD1 000 00079 O**********************************************************138**L/A 00680 000 00080 OLAUPDREQEADD 40N05 00690 000 00081 O**********************************************************138**L/A 00700 000 0008200550O ACCT 16 CHUPD1 000 0008300560O TP1 22 CHUPD1 000 0008400570O EADD 40N06 CHUPD1 000 0008500580O ACCT 16 CHUPD1 000 0008600590O TP2 22 CHUPD1 000 0008700600O EADD 40N07 CHUPD1 000 0008800610O ACCT 16 CHUPD1 000 0008900620O TP3 22 CHUPD1 000 0009000630O EADD 40N08 CHUPD1 000 0009100640O ACCT 16 CHUPD1 000 0009200650O TP4 22 CHUPD1 000 0009300660O EADD 40N09 CHUPD1 000 0009400670O ACCT 16 CHUPD1 000 0009500680O TP5 22 CHUPD1 000 0009600690OPRINT D 01 90 CHUPD1 000 0009700700O OR 01 OV CHUPD1 000 0009800710O HDR1 40 CHUPD1 000 0009900720O 70 'UPDATE FROM TAPE ARCHIVE' CHUPD1 000 0010000730O 120 'PAGE' CHUPD1 000 0010100740O PAGE Z 125 CHUPD1 000 0010200750O D 1 90 CHUPD1 000 0010300760O OR 1 OV CHUPD1 000 0010400770O HDR2 40 CHUPD1 000 0010500780O 55 'AS OF:' CHUPD1 000 0010600790O UDATE Y 66 CHUPD1 000 0010700800O D 1 90 CHUPD1 000 0010800810O OR 1 OV CHUPD1 000 0010900820O HDR3 40 CHUPD1 000 0011000830O D 21 90 CHUPD1 000 0011100840O OR 21 OV CHUPD1 000 0011200850O 20 'ACCOUNT NUMBER' CHUPD1 000 0011300860O  3Rf 40 'DATES OF TAPES' CHUPD1 000 0011400870O 56 'TO BE RETREIVED' CHUPD1 000 0011500880O D 1 01 03 04 CHUPD1 000 0011600890O ACCT 21 CHUPD1 000 0011700900O TP1 31 ' / / ' CHUPD1 000 0011800910O TP2 41 ' / / ' CHUPD1 000 0011900920O TP3 51 ' / / ' CHUPD1 000 0012000930O TP4 61 ' / / ' CHUPD1 000 0012100940O TP5 71 ' / / ' CHUPD1 000 0012200950O D 1 01 20 CHUPD1 000 0012300960O ACCT 21 CHUPD1 000 0012400970O 60 'ACCOUNT NOT IN DELQMST' CHUPD1 000 0012500980O 90 '*** ERROR' CHUPD1 000 0012600990O D 1 01 30N20 CHUPD1 000 0012701000O ACCT 21 CHUPD1 000 0012801010O 60 'ACCOUNT NOT IN TAPEARC' CHUPD1 000 0012901020O 90 '*** ERROR' CHUPD1 000 0013001030O T 3 LR CHUPD1 000 0013101040O 65 '*** END OF REPORT ***' CHUPD1 000 00132/* 001050 000 00133 H LCOLCG 000 00001 X 1 G08 R LA CCS 3.0 SL-149 00710 000 00002 F* G08 R LA CCS 3.0 SL-149 00720 000 0000300040F* 00730 000 0000400050F* LEGAL AND AGENCY VERSION 3 00740 000 0000500060F* DATA SYSTEMS-LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 00750 000 00006 F* COPYRIGHT CONTROL DATA CORPORATION, 1979 00760 000 0000700080F* 00770 000 0000800090F* PRODUCES THE NON FINANCIAL CHANGE LIST REPORT - 000 0000900100F* ALL CHANGES MADE BY COLLECTOR, CLERICAL, OR SUPERVISOR 000 0001000110F* ARE REPORTED 000 0001100120F* 000 00012 F**********************************************************138**L/A 00790 000 00013 FLATRNSFLIPE F 138 DISK 00800 000 00014 FLAUTIFILIC F 80R 4AI 1 DISK 00810 000 00015 F**********************************************************138**L/A 00820 000 0001600150FPRINT O F 130 OF PRINTER 000 0001700160E HDR 3 40 000 00018 I**********************************************************138**L/A 00840 000 00019 ILATRNSFLAA 01 29 C0 30 C2 00850 000 00020 I**********************************************************138**L/A 00860 000 0002100180I OR 02 :  3Sz 000 0002200190I 1 16 TACCT 000 00023 I 17 20 TCID L1 000 0002400210I 31 320TUP 000 0002500220I 33 62 TND 000 0002600230I 63 92 TPN 000 00027 I**********************************************************138**L/A 00880 000 00028 ILAUTIFILAA 41 00890 000 00029 I**********************************************************138**L/A 00900 000 00030 I 5 19 CNAM 00170 000 00031 I 20 20 CINT 00180 000 0003200250I 5 44 HEADER 000 0003300260C 46 GOTO AROUND 000 0003400270C SETON 46 000 00035 C**********************************************************138**L/A 00920 000 00036 C 'HDR1' CHAINLAUTIFIL 47 00930 000 00037 C**********************************************************138**L/A 00940 000 0003800290C N47 MOVEAHEADER HDR,1 000 00039 C**********************************************************138**L/A 00960 000 00040 C 'HDR2' CHAINLAUTIFIL 47 00970 000 00041 C**********************************************************138**L/A 00980 000 0004200310C N47 MOVEAHEADER HDR,2 000 00043 C**********************************************************138**L/A 01000 000 00044 C 'HDR3' CHAINLAUTIFIL 47 00100 000 00045 C**********************************************************138**L/A 01020 000 0004600330C N47 MOVEAHEADER HDR,3 000 0004700340C AROUND TAG 000 0004800350C* SET THE SCREEN LABEL FOR THE REPORT - WHICH SCREEN 000 0004900360C* DID THIS ITEM COME FROM 000 00050 C L1 TCID CHAINLAUTIFIL 47 00160 000 0005100370C SETOF 303132 000 0005200380C TUP COMP 90 33 33 000 0005300390C N33 TUP COMP 60 32 32 000 0005400400C N32N33 TUP COMP 30 313031 000 0005500410C 31 TUP SUB 30 TUP 000 0005600420C 32 TUP SUB 60 TUP 000 0005700430OPRINT D 101 OF 000 00058 O OR L1 01 000 0005900450O HDR,1 40 000 0006000460O 69 'COLLECTORS'' CHANGES TO ' 000 0006100470O 77 'ACCOUNTS' 000 0006200480O 120 'PAGE' 000 0006300490O PAGE Z 125 z|  3T 000 0006400500O D 1 OF 000 00065 O OR 1 L1 01 000 0006600520O HDR,2 40 000 0006700530O 59 'AS OF' 000 0006800540O UDATE Y 68 000 0006900550O D 1 OF 000 00070 O OR 1 L1 01 000 0007100570O HDR,3 40 000 00072 O D 12 OF 00220 000 00073 O OR 12 L1 01 00230 000 00074 O 22 'COLLECTOR:' 00240 000 00075 O CINT 25 00250 000 00076 O CNAM 42 00260 000 0007700580O D 12 OF 000 00078 O OR 12 L1 01 000 0007900600O 22 'ACCT NO' 000 0008000620O 60 'FIELD CODE-SCREEN' 000 00081 O 79 'NEW DATA' 000 00082 O 114 'OLD DATA' 000 0008300650O D 1 01 000 0008400660O TACCT 26 000 0008500680O TUP 50 000 0008600690O 30 60 'BORROWER' 000 0008700700O 31 60 'COSIGNER' 000 0008800710O 32 62 'SUPERVISOR' 000 00089 O TND 95 000 00090 O TPN 130 000 00091/* 00740 000 00092 H LCOLST 000 00001 X 1 G09 R LA CCS 3.0 SL-149 00800 000 00002 F* G09 R LA CCS 3.0 SL-149 00810 000 0000300040F* 00820 000 0000400050F* LEGAL AND AGENCY VERSION 3 00830 000 0000500060F* DATA SYSTEMS-LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 00840 000 00006 F* COPYRIGHT CONTROL DATA CORPORATION, 1979 00850 000 0000700080F* 00860 000 0000800090F* PRODUCES ANY OF THREE REPORTS : 000 0000900100F* - DAILY COLLECTOR STATISTICS ( U1 ON ) 000 0001000110F* - WEEKLY COLLECTOR STATISTICS ( U2 ON ) 000 0001100120F* - MONTHLY COLLECTOR STATISTICS ( U3 ON ) 000 0001200130F* - ZERO THE DAILY COUNTS ( U4 ON ) 000 0001300140F* - ZERO THE MONT5  3UHLY COUNTS ( U5 ON ) 000 0001400150F* THIS REPORT CONTAINS COUNTS OF ALL ACTIONS AND 000 0001500160F* ALL RESULTS THAT THE COLLECTOR HAS USED IN THE 000 0001600170F* REPORT PERIOD. 000 00017 F**********************************************************138**L/A 01110 000 00018 FLACOLSTSUP F 20 7AI 1 DISK 01120 000 00019 FLAUTIFILIC F 80R 4AI 1 DISK 01130 000 00020 F**********************************************************138**L/A 01140 000 0002100200FPRINT O F 132 OV PRINTER COLSTS 000 0002200210E CDE 16 2 COLSTS 000 0002300220E ACD 16 2 COLSTS 000 0002400230E BCD 16 2 COLSTS 000 00025 E RNAM 128 15 00310 000 00026 E RID 128 4 00320 000 00027 E RINT 128 1 00330 000 00028 E ACT 2048 4 0 00340 000 00029 E BCT 2048 4 0 00350 000 0003000280E LCT 16 4 0 COLSTS 000 0003100290E TCT 16 5 0 COLSTS 000 00032 E SCT 128 5 0 00370 000 00033 E BNAM 128 15 00380 000 00034 E BID 128 4 00390 000 00035 E BINT 128 1 00400 000 00036 I**********************************************************138**L/A 01160 000 00037 ILAUTIFILAA 01 01170 000 00038 I**********************************************************138**L/A 01180 000 0003900340I 5 44 HD COLSTS 000 0004000350I 5 36 HCD1 COLSTS 000 0004100360I 37 68 HCD2 COLSTS 000 0004200370I 5 19 CNAM COLSTS 000 00043 I 20 20 CINT 00420 000 00044 I**********************************************************138**L/A 01200 000 00045 ILACOLSTSAA 02 1 CA 01210 000 00046 I**********************************************************138**L/A 01220 000 0004700390I OR 03 1 CR COLSTS 000 0004800400I OR 04 COLSTS 000 0004900410I 1 1 AR L2 COLSTS 000 0005000420I 2 5 ID L1 COLSTS 000 0005100430I 6 7 CD COLSTS 000 00052 I 8 110DCNT 61 00120****** 00053 I 12 150WCNT 62 00130****** 00054 I 16 190MCNT 63 00140****** 00055 N  3V C SETOF 195465 00150****** 0005600490C 09 GOTO START COLSTS 000 0005700500C* LOCATE HEADERS AND CODES COLSTS 000 00058 C**********************************************************138**L/A 01240 000 00059 C 'HDR1' CHAINLAUTIFIL 10 01250 000 00060 C**********************************************************138**L/A 01260 000 0006100520C 01N10 MOVE HD HDR1 40 COLSTS 000 00062 C**********************************************************138**L/A 01280 000 00063 C 'HDR2' CHAINLAUTIFIL 10 01290 000 00064 C**********************************************************138**L/A 01300 000 0006500540C 01N10 MOVE HD HDR2 40 COLSTS 000 00066 C**********************************************************138**L/A 01320 000 00067 C 'HDR3' CHAINLAUTIFIL 10 01330 000 00068 C**********************************************************138**L/A 01340 000 0006900560C 01N10 MOVE HD HDR3 40 COLSTS 000 0007000570C SETOF 01 COLS S 000 0007100580C SETON 09 COLSTS 000 0007200590C START TAG COLSTS 000 00073 C**********************************************************138**L/A 01360 000 00074 C L2 02 'ACTC' CHAINLAUTIFIL 11 01370 000 00075 C**********************************************************138**L/A 01380 000 0007600610C L2 11 SETON LR90 COLSTS 000 0007700620C L2 11 GOTO END COLSTS 000 0007800630C L2 02 SETON 22 COLSTS 000 0007900640C L2 02 SETOF 23 COLSTS 000 00080 C**********************************************************138**L/A 01400 000 00081 C L2 03 'RESC' CHAINLAUTIFIL 12 01410 000 00082 C**********************************************************138**L/A 01420 000 0008300660C L2 12 SETON LR90 COLSTS 000 0008400670C L2 12 GOTO END COLSTS 000 0008500680C L2 03 SETON 23 COLSTS 000 0008600690C L2 03 SETOF 22 COLSTS 000 0008700700C L2 01N04 MOVEAHCD1 ACD COLSTS 000 0008800710C L2 01N04 MOVEAHCD2 BCD COLSTS 000 0008900720C L2 Z-ADD0 I 40 COLSTS 000 0009000730C L2 MOVE I COL 40 COLSTS 000 0009100740C L2 Z-ADD0 K 30 COLSTS 000 0009200750C L2 MOVEABNAM RNAM COLSTS 000 00093 C L2 MOVEABINT RINT 00440 000 0009400760C L2 MOVEABID RID COLSTS 000 00095 C L1 K COMP 127 91 00460 000 0009600780C L1 91 SETON LR  3W COLSTS 000 0009700790C L1 91 GOTO END COLSTS 000 0009800800C L1 K ADD 1 K COLSTS 000 00099 C**********************************************************138**L/A 01460 000 00100 C L1 ID CHAINLAUTIFIL 14 01470 000 00101 C**********************************************************138**L/A 01480 000 0010200820C L1N14 MOVE CNAM RNAM,K COLSTS 000 00103 C L1N14 MOVE CINT RINT,K 00480 000 0010400830C L1 MOVE ID RID,K COLSTS 000 00105 C* IF THERE IS NO ACTIVITY (COUNT=ZERO) FOR THE CURRENT 00170****** 00106 C* PERIOD (DAILY,WEEKLY,MONTHLY) OF THE CURRENT REPORT 00180****** 00107 C* (ACTION,RESULT), THEN SET ON THE NO-PRINT INDICATOR. 00190****** 00108 C U1 61 00200****** 00109 COR U2 62 00210****** 00110 COR U3 63 SETON 65 00220****** 0011100840C* LOCATE ACTION/RESULT TO UPDATE COLSTS 000 0011200850C MOVE COL I COLSTS 000 0011300860C Z-ADD1 J 20 COLSTS 000 0011400870C 02 COLSTS 000 0011500880COR 03 CD LOKUPACD,J 30 COLSTS 000 0011600890C N30 GOTO NEXT COLSTS 000 0011700900C I ADD J I COLSTS 000 0011800910C U1 ACT,I ADD DCNT ACT,I COLSTS 000 0011900920C U2 ACT,I ADD WCNT ACT,I COLSTS 000 0012000930C U3 ACT,I ADD MCNT ACT,I COLSTS 000 0012100940C GOTO UZERO COLSTS 000 0012200950C NEXT TAG COLSTS 000 0012300960C Z-ADD1 J COLSTS 000 0012400970C 02 COLSTS 000 0012500980COR 03 CD LOKUPBCD,J 30 COLSTS 000 0012600990C N30 GOTO END COLSTS 000 0012701000C I ADD J I COLSTS 000 0012801010C U1 BCT,I ADD DCNT BCT,I COLSTS 000 0012901020C U2 BCT,I ADD WCNT BCT,I COLSTS 000 0013001030C U3 BCT,I ADD MCNT BCT,I COLSTS 000 0013101040C UZERO TAG COLSTS 000 0013201050C U4 Z-ADD0 DCNT COLSTS 000 0013301060C U5 Z-ADD0 WCNT COLSTS 000 0013401070C END TAG COLSTS 000 0013501080C* PRINT ACTION/RESULT REPORTS COLSTS 000 0013601090CL2 XFOOTBCT CZERO 60 COLSTS 000 0013701100CL2 CZERO COMP 0 35 COLSTS 000 0013801110CL2 35 Z-ADD0 FLAG   3X COLSTS 000 00139 CL2 35 MOVE ' TOTAL'TNAM 00240****** 0014001130CL2N35 Z-ADD1 FLAG 10 COLSTS 000 0014101140CL2N35 MOVE 'SUBTOTAL'TNAM 8 COLSTS 000 0014201150CL2 MOVEAACD CDE COLSTS 000 0014301160CL2 HEAD TAG COLSTS 000 0014401170CL2 SETON 70 COLSTS 000 0014501180CL2 70NU4NU5 EXCPT COLSTS 000 0014601190CL2 SETOF 70 COLSTS 000 00147 CL2 Z-ADD0 LINCTR 20 INT LINE CTR 00500 000 00148 CL2N50 Z-ADD1 K 00510 000 00149 CL2N50 Z-ADD0 I 00520 000 00150 CL2N50 Z-ADD0 J 00530 000 00151 CL2 SETOF 50 NEW PAGE IND 00540 000 0015201230CL2 REPEAT TAG COLSTS 000 00153 CL2N40 LINCTR ADD 1 LINCTR INCREMENT 00560 000 00154 CL2N40 LINCTR COMP 50 50 ON=FULL PAGE 00570 000 00155 CL2N40 50 GOTO HEAD GET NEW PAGE 00580 000 0015601240CL2 I ADD 1 I COLSTS 000 0015701250CL2 J ADD 1 J COLSTS 000 0015801260CL2 MOVE ACT,I LCT,J COLSTS 000 0015901270CL2N19 MOVE BCT,I ACT,I COLSTS 000 0016001280CL2 TCT,J ADD LCT,J TCT,J COLSTS 000 0016101290CL2 19 COLSTS 000 0016201300COR 35 SETON 54 COLSTS 000 0016301310CL2 54 Z-ADD0 ACT,I COLSTS 000 0016401320CL2 54 Z-ADD0 BCT,I COLSTS 000 0016501330CL2 J COMP 16 40 COLSTS 000 0016601340CL2 40 GOTO REPEAT COLSTS 000 0016701350CL2 MOVE RNAM,K PNAM 15 COLSTS 000 00168 CL2 MOVE RINT,K TINT 1 00600 000 0016901360CL2 MOVE RID,K IDT 4 COLSTS 000 0017001370CL2 XFOOTLCT TOT 50 COLSTS 000 0017101380CL2N19 COLSTS 000 0017201390COR 35 Z-ADD0 SCT,K COLSTS 000 0017301400CL2 SCT,K ADD TOT SCT,K COLSTS 000 0017401410CL2 MOVE SCT,K TOT COLSTS 000 0017501420CL2 GTOT ADD SCT,K GTOT 60 COLSTS 000 0017601430CL2 SETON 71 COLSTS 000 0017701440CL2 71 EXCPT COLSTS 000 0017801450CL2 SETOF 71 COLSTS 000 0017901460CL2 Z-ADD0 J COLSTS 000 0018001470CL2 K 3  3Y ADD 1 K COLSTS 000 0018101480CL2 RID,K COMP ' ' 41 COLSTS 000 00182 CL2N41 K COMP 127 41 00260****** 0018301490CL2N41 GOTO REPEAT COLSTS 000 0018401500CL2 SETON 72 COLSTS 000 0018501510CL2 72 EXCPT COLSTS 000 0018601520CL2 SETOF 72 COLSTS 000 0018701530CL2 FLAG SUB 1 FLAG 19 COLSTS 000 0018801540CL2N19 GOTO TEND COLSTS 000 0018901550CL2 MOVE 'TOTAL 'TNAM COLSTS 000 0019001560CL2 MOVEABCD CDE COLSTS 000 0019101570CL2 GOTO HEAD COLSTS 000 0019201580CL2 TEND TAG COLSTS 000 0019301590CL1 MOVE COL I COLSTS 000 0019401600CL1 I ADD 16 I COLSTS 000 0019501610CL1 MOVE I COL COLSTS 000 00196 O**********************************************************138**L/A 01520 000 00197 OLACOLSTSD 02 01530 000 00198 O**********************************************************138**L/A 01540 000 0019901630O OR 03 COLSTS 000 0020001640O DCNT 11 COLSTS 000 0020101650O WCNT 15 COLSTS 000 0020201660O MCNT 19 COLSTS 000 0020301670OPRINT E 01 70NU4NU5 COLSTS 000 0020401680O HDR1 40 COLSTS 000 0020501690O U1 72 'DAILY' COLSTS 000 0020601700O U2 72 'WEEKLY' COLSTS 000 0020701710O U3 72 'MONTHLY' COLSTS 000 0020801720O E 1 70NU4NU5 COLSTS 000 0020901730O HDR2 40 COLSTS 000 0021001740O 77 'COLLECTOR STATISTICS ' COLSTS 000 0021101750O 83 'REPORT' COLSTS 000 0021201760O 123 'PAGE' COLSTS 000 0021301770O PAGE Z 128 COLSTS 000 0021401780O E 11 70NU4NU5 COLSTS 000 0021501790O HDR3 40 COLSTS 000 0021601800O 69 'AS OF: ' COLSTS 000 0021701810O UDATE Y 77 COLSTS 000 0021801820O E 1 70NU4NU5 COLSTS 000 0021901830O 22 73 'ACTIONS' COLSTS 000 0022001840O 23 73 'RESULTS' COLSTS 000 0022101850O E 11 70NU4NU5 COLSTS 000 00222R  3Z01860O 15 ' COLLECTOR NAME' COLSTS 000 0022301880O CDE,1 27 COLSTS 000 0022401890O CDE,2 33 COLSTS 000 0022501900O CDE,3 39 COLSTS 000 0022601910O CDE,4 45 COLSTS 000 0022701920O CDE,5 51 COLSTS 000 0022801930O CDE,6 57 COLSTS 000 0022901940O CDE,7 63 COLSTS 000 0023001950O CDE,8 69 COLSTS 000 0023101960O CDE,9 75 COLSTS 000 0023201970O CDE,10 81 COLSTS 000 0023301980O CDE,11 87 COLSTS 000 0023401990O CDE,12 93 COLSTS 000 0023502000O CDE,13 99 COLSTS 000 0023602010O CDE,14 105 COLSTS 000 0023702020O CDE,15 111 COLSTS 000 0023802030O CDE,16 117 COLSTS 000 00239 O TNAM 131 00280****** 0024002050O T 3 LR COLSTS 000 0024102060O 91 39 '***ERROR-EXCEED OVER' COLSTS 000 00242 O 91 54 ' 128 COLLECTORS' 00630 000 0024302080O T 3 LR 90 COLSTS 000 0024402090O 41 '***ERROR IN UTILITY FILE' COLSTS 000 0024502100O 11 58 ' - NO ACTC RECORD' COLSTS 000 0024602110O 12 58 ' - NO RESC RECORD' COLSTS 000 0024702120O E 1 71NU4NU5 COLSTS 000 00248 O AND N65 00300****** 00249 O TINT 2 00650 000 00250 O PNAM B 18 00660 000 0025102150O LCT,1 ZB 27 COLSTS 000 0025202160O LCT,2 ZB 33 COLSTS 000 0025302170O LCT,3 ZB 39 COLSTS 000 0025402180O LCT,4 ZB 45 COLSTS 000 0025502190O LCT,5 ZB 51 COLSTS 000 0025602200O LCT,6 ZB 57 COLSTS 000 0025702210O LCT,7 ZB 63 COLSTS 000 0025802220O LCT,8 ZB 69 COLSTS 000 0025902230O LCT,9 ZB 75 COLSTS 000 0026002240O LCT,10ZB 81 COLSTS 000 0026102250O LCT,11ZB 87 COLSTS 000 0026202260O LCT,12ZB 93 COLSTS 000 0026302270O LCT,13ZB 99 ,C  3[ COLSTS 000 0026402280O LCT,14ZB 105 COLSTS 000 0026502290O LCT,15ZB 111 COLSTS 000 0026602300O LCT,16ZB 117 COLSTS 000 0026702310O TOT ZB 129 COLSTS 000 0026802320O E 2 72NU4NU5 COLSTS 000 0026902330O 19 'TOTALS' COLSTS 000 0027002340O TCT,1 ZB 27 COLSTS 000 0027102350O TCT,2 ZB 33 COLSTS 000 0027202360O TCT,3 ZB 39 COLSTS 000 0027302370O TCT,4 ZB 45 COLSTS 000 0027402380O TCT,5 ZB 51 COLSTS 000 0027502390O TCT,6 ZB 57 COLSTS 000 0027602400O TCT,7 ZB 63 COLSTS 000 0027702410O TCT,8 ZB 69 COLSTS 000 0027802420O TCT,9 ZB 75 COLSTS 000 0027902430O TCT,10ZB 81 COLSTS 000 0028002440O TCT,11ZB 87 COLSTS 000 0028102450O TCT,12ZB 93 COLSTS 000 0028202460O TCT,13ZB 99 COLSTS 000 0028302470O TCT,14ZB 105 COLSTS 000 0028402480O TCT,15ZB 111 COLSTS 000 0028502490O TCT,16ZB 117 COLSTS 000 0028602500O GTOT ZB 129 COLSTS 000 00287 O T 3 LRNU4NU5 00320****** 0028802520O 76 '*** END OF REPORT ***' COLSTS 000 00289/* 002530 000 00290 H LDALST 001 00001 X 1 G10 R LA CCS 3.0 SL-149 00890 001 00002 F* G10 R LA CCS 3.0 SL-149 00900 001 0000300040F* 00910 001 0000400050F* LEGAL AND AGENCY VERSION 3 00920 001 0000500060F* DATA SYSTEM-LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 00930 001 00006 F* COPYRIGHT CONTROL DATA CORPORATION, 1979 00940 001 0000700080F* 00950 001 0000800090F* PROVIDES HARDCOPY BACKUP OF DAILY ASSIGNMENTS FOR QUEUE. 001 0000900100F* READS THE SORTED DAILY ASSIGNMENT FILE, GETS THE ACCOUNT 001 0001000110F* NUMBERS AND RETRIEVES SPECIFIC INFORMATION (AS ACTIVITY 001 0001100120F* ETC.) FROM THE DELQMST RECORDS TO PRODUCE A SUMMARY OF 001 0001200130F* THE ACCOUNT. INPUT FROM THE CONSOLE REQUIRES A 3-DIGIT 001 0001300140F* NUMERICAL NUMBER, ALL, CR OR END TO PRINT REPORTS. 001 0001400150F* 001 00015 F**************************************  3\.********************138**L/A 01630 001 00016 FLADUMMY IP F 80 DISK 01640 001 00017 FLADLYASNID F 40 DISK 01650 001 00018 FLADLQMSTIC F 2000R16AI 1 DISK 01660 001 00019 FLAUTIFILIC F 80R 4AI 1 DISK 01670 001 00020 F**********************************************************138**L/A 01680 001 0002100200FCONS D F 80 CONSOLE DALIST 001 0002200210FPRINT O F 132 PRINTER DALIST 001 0002300220E STG 1 72 DALIST 001 0002400230E MACT 36 10 DALIST 001 0002500240E MCD 4 6 0 DALIST 001 0002600250E MAT 4 2 DALIST 001 0002700260E MRS 4 2 DALIST 001 0002800270E MLR 4 2 DALIST 001 0002900280E MCL 4 4 DALIST 001 0003000290E MCT 4 56 DALIST 001 0003100300E ARR 3 1 DALIST 001 0003200310E MSG 1 4 60 DALIST 001 0003300320E BLK 1 3 DALIST 001 0003400330E SPCS 1132 DALIST 001 0003500340E ARQD 8 9 DALIST 001 0003600350E ARQ 8 4 DALIST 001 0003700360E ARD 8 3 0 DALIST 001 00038 I**********************************************************138**L/A 01700 001 00039 ILADUMMY AA 05 01710 001 00040 ILAUTIFILFF 04 01720 001 00041 I**********************************************************138**L/A 01730 001 0004200390I 5 70DVALU DALIST 001 0004300400I 9 80 ARQD DALIST 001 0004400410I 5 44 HD DALIST 001 00045 I**********************************************************138**L/A 01750 001 00046 ILADLYASNAA 01 39 CR 01760 001 00047 I**********************************************************138**L/A 01770 001 0004800430I OR 01 39 CS DALIST 001 0004900440I OR 01 39 CW DALIST 001 0005000450I OR 03 DALIST 001 00051 I 1 16 DACCT1 001 0005200480I 17 20 DQID 78 DALIST 001 00053 I**********************************************************138**L/A 01790 001 00054 ILADLQMSTBB 02 01800 001 00055 I**********************************************************138**L/A 01810 001 00056 I 1 16 MACCT1 001 0005700520I H  3]B 18 47 MNAM DALIST 001 0005800530I 48 77 MADR1 DALIST 001 0005900540I 78 107 MADR2 DALIST 001 0006000550I 108 127 MCS DALIST 001 0006100560I 128 132 MZP DALIST 001 0006200570I 133 1420MPHN DALIST 001 0006300580I 143 146 MEXT DALIST 001 0006400590I 147 176 MBNM DALIST 001 0006500600I 232 2410MBPH DALIST 001 0006600610I 242 245 MBEX DALIST 001 0006700620I 275 284 MPRI DALIST 001 0006800630I 275 2800MPRI1 DALIST 001 0006900640I 281 284 MPRI2 DALIST 001 0007000650I 307 666 MACT DALIST 001 0007100660I 875 8800MDLDT DALIST 001 0007200670I 887 8952MADLQ DALIST 001 0007300680I 905 9132MPYOF DALIST 001 0007400690C* EDIT INPUT REQUESTS ENTERED FROM CONSOLE 001 0007500700C MOVEAMSG,1 DISA 60 DALIST 001 0007600710C DSP TAG DALIST 001 0007700720C MOVE BLK DISB 3 DALIST 001 0007800730C MOVE BLK WRK 3 DALIST 001 0007900740C DISA DSPLYCONS DISB DALIST 001 0008000750C MOVE DISB WRK DALIST 001 0008100760C WRK COMP 'END' 56 DALIST 001 0008200770C 56 GOTO ERROR DALIST 001 0008300780C WRK COMP 'ALL' 52 DALIST 001 0008400790C 52 GOTO UTIF DALIST 001 0008500800C WRK COMP ' ' 53 DALIST 001 0008600810C 53 GOTO UTIF DALIST 001 0008700820C Z-ADD1 K 10 DALIST 001 0008800830C MOVEAWRK ARR DALIST 001 0008900840C TST TAG DALIST 001 0009000850C SETOF 58 DALIST 001 0009100860C ARR,K COMP '0' 54 DALIST 001 0009200870C N54 ARR,K COMP '9' 5555 DALIST 001 0009300880C N55 GOTO EMSG DALIST 001 0009400890C SETOF 55 DALIST 001 0009500900C K COMP 3 58 DALIST 001 0009600910C K ADD 1 K DALIST 001 0009700920C 58 GOTO TST DALIST 001 0009800930C MOVE WRK WRK1 30 DALIST 001 0  3^V009900940C WRK1 COMP 0 22 DALIST 001 0010000950C 22 MOVEAMSG,3 DISA DALIST 001 0010100960C 22 DISA DSPLYCONS DALIST 001 0010200970C 22 SETON 18 DALIST 001 0010300980C GOTO UTIF DALIST 001 0010400990C EMSG TAG DALIST 001 0010501000C SETOF 54 DALIST 001 0010601010C MOVEAMSG,2 DISA DALIST 001 0010701020C GOTO DSP DALIST 001 0010801030C* LOCATE HEADERS AND 'DALT' VALUES 001 0010901040C UTIF TAG DALIST 001 00110 C**********************************************************138**L/A 01830 001 00111 C 'HDR1' CHAINLAUTIFIL 10 01840 001 00112 C**********************************************************138**L/A 01850 001 0011301060C 04N10 MOVE HD HDR1 40 DALIST 001 00114 C**********************************************************138**L/A 01870 001 00115 C 'HDR2' CHAINLAUTIFIL 10 01880 001 00116 C**********************************************************138**L/A 01890 001 0011701080C 04N10 MOVE HD HDR2 40 DALIST 001 00118 C**********************************************************138**L/A 01910 001 00119 C 'HDR3' CHAINLAUTIFIL 10 01920 001 00120 C**********************************************************138**L/A 01930 001 0012101100C 04N10 MOVE HD HDR3 40 DALIST 001 00122 C**********************************************************138**L/A 01950 001 00123 C 53 'DALT' CHAINLAUTIFIL 47 01960 001 00124 C**********************************************************138**L/A 01970 001 0012501120C 47 GOTO ERROR DALIST 001 0012601130C 53 04N47 EXSR SETAB DALIST 001 0012701140C* BEGIN PROCESSING ACCORDING TO REQUESTS FROM CONSOLE 001 0012801150C BEG TAG DALIST 001 0012901160C Z-ADD0 CNTO 60 DALIST 001 0013001170C* READ THE SORTED DAILY ASSIGNMENT FILE 001 0013101180C DLYRD TAG DALIST 001 0013201190C SETOF 010378 DALIST 001 00133 C**********************************************************138**L/A 01990 001 00134 C READ LADLYASN 23 02000 001 00135 C**********************************************************138**L/A 02010 001 0013601210C 23 GOTO ERROR DALIST 001 0013701220C* BYPASS THE RECORDS WITH INACTIVE STATUS CODE (R,S,OR W) 001 0013801230C 01 GOTO DLYRD DALIST 001 0013901240C* CHECK IF 'QUEUE' FIELD IS ZERO, DISPLAY 'NO ID' AND BYPASS IT 001 0014001250C 78 MOVEAMSG,4 DISA  3_j DALIST 001 0014101260C 78 DISA DSPLYCONS DALIST 001 0014201270C 78 GOTO DLYRD DALIST 001 0014301280C* IF A CONTROL BREACK OCCURS, PRINTS COUNT OF ACCOUNTS TO QUEUE. 001 0014401290C DQID COMP OQID 21 DALIST 001 0014501300C 21 GOTO PROCS DALIST 001 0014601310C 12 SETON 17 DALIST 001 0014701320C 12 EXCPT DALIST 001 0014801330C 12 SETOF 17 DALIST 001 0014901340C MOVE DQID OQID 4 DALIST 001 0015001350C Z-ADD0 CNT 60 DALIST 001 00151 C SETON 12 001 0015201360C* CLEAR COUNTER EXCEPT 'ALL' REQUEST 001 00153 C N52 Z-ADD0 I 40 001 0015401380C* CHECK IF CR ENTERED OCCURS, FIND THE QUEUE DEFAULT VALUE 001 0015501390C 53 Z-ADDDVALU WRK1 DALIST 001 0015601400C 53 Z-ADD1 X DALIST 001 0015701410C 53 DQID LOKUPARQ,X 36 DALIST 001 0015801420C 53 36 Z-ADDARD,X WRK1 DALIST 001 0015901430C* CONTROLS LINE COUNTER, ONLY IF 18 SET ON 001 0016001440C 28 1 ADD N N DALIST 001 0016101450C 28 N COMP 53 13 DALIST 001 0016201460C 28N13 GOTO PROCS DALIST 001 0016301470C* SETUP LINE COUNTER & PRINT HEADERS 001 0016401480C Z-ADD0 N 20 DALIST 001 0016501490C SETON 13 DALIST 001 0016601500C EXCPT DALIST 001 0016701510C SETOF 13 DALIST 001 0016801520C GOTO PROCS DALIST 001 0016901530C* PROCESS FOR CUMULATING COUNTS AND EXECUTE 001 0017001540C PROCS TAG DALIST 001 0017101550C CNT ADD 1 CNT DALIST 001 0017201560C CNTO ADD 1 CNTO DALIST 001 0017301570C* WHEN ZERO ENTERED, PROVIDES COUNTS ONLY 001 0017401580C 18 SETON 2812 DALIST 001 0017501590C 18 GOTO DLYRD DALIST 001 0017601600C* CHECK IF COUNTER REACHES DEFAULT VALUE EXCEPT 'ALL' REQUEST 001 0017701610C N52 I ADD 1 I DALIST 001 0017801620C N52 I COMP WRK1 24 DALIST 001 0017901630C 24 GOTO DLYRD DALIST 001 0018001640C* GET SPECIFIC INFORMATION FROM DELQMST FILE 001 0018101650C SETON 99 DALIST 001 0018201660C SETOF }  3`~ 33 DALIST 001 00183 C**********************************************************138**L/A 02030 001 00184 C DACCT1 CHAINLADLQMST 33 02040 001 00185 C**********************************************************138**L/A 02050 001 0018601680C 33 SETOF 99 DALIST 001 0018701690C 33 GOTO PRT DALIST 001 0018801700C* RETRIEVE ACTIVITY FROM ACTIVITY BUFFER IN MACT 001 0018901710C Z-ADD1 J 10 DALIST 001 0019001720C ACTGT TAG DALIST 001 00191 C MOVE '00' OSW 2 001 0019201740C MOVE '0360' LTH 4 DALIST 001 0019301750C EXIT GETACR DALIST 001 0019401760C RLABL STG DALIST 001 0019501770C RLABL MACT DALIST 001 0019601780C RLABL LTH DALIST 001 0019701790C RLABL OSW DALIST 001 0019801800C OSW COMP '01' 25 DALIST 001 0019901810C 25 GOTO PRT DALIST 001 0020001820C MOVELSTG MCD,J DALIST 001 0020101830C MOVE STG MCT,J DALIST 001 0020201840C MOVELSTG TEMP1 16 DALIST 001 0020301850C MOVE TEMP1 TEMP2 10 DALIST 001 0020401860C MOVE TEMP2 TEMP3 6 DALIST 001 0020501870C MOVELTEMP2 TEMP4 4 DALIST 001 0020601880C MOVE TEMP3 MCL,J DALIST 001 0020701890C MOVELTEMP3 MLR,J DALIST 001 0020801900C MOVE TEMP4 MRS,J DALIST 001 0020901910C MOVELTEMP4 MAT,J DALIST 001 0021001920C J COMP 4 26 DALIST 001 0021101930C J ADD 1 J DALIST 001 0021201940C 26 GOTO ACTGT DALIST 001 0021301950C* PRINT A SUMMARY OF THE ACCOUNT 001 0021401960C PRT TAG DALIST 001 0021501970C 33 DALIST 001 0021601980COR 99 EXCPT DALIST 001 0021701990C SETOF 3399 DALIST 001 0021802000C N ADD 11 N DALIST 001 0021902010C N COMP 55 13 DALIST 001 0022002020C 13 EXCPT DALIST 001 0022102030C 13 Z-ADD0 N DALIST 001 0022202040C SETOF 13 DALIST 001 0022302060C GOTO DLYRD DALIST 001 0022402070C* ERROR"  3a LISTING ON PRINTER 001 0022502080C ERROR TAG DALIST 001 0022602090C SETON LR DALIST 001 0022702100C LRN47N56 SETON 131718 DALIST 001 0022802110C LR 13 EXCPT DALIST 001 0022902120C END TAG DALIST 001 0023002130C* SETUP A DEFAULT VALUE TABLE FOR QUEUES 001 0023102140CSR SETAB BEGSR DALIST 001 0023202150CSR Z-ADD1 X 20 DALIST 001 0023302160CSR CYC TAG DALIST 001 0023402170CSR MOVEAARQD,X TMP 8 DALIST 001 0023502180CSR MOVELTMP ARQ,X DALIST 001 0023602190CSR MOVE TMP ARD,X DALIST 001 0023702200CSR X COMP 8 38 DALIST 001 0023802210CSR X ADD 1 X DALIST 001 0023902220CSR 38 GOTO CYC DALIST 001 0024002230CSR SEXIT ENDSR DALIST 001 0024102240OPRINT E 1 17 DALIST 001 0024202250O 9 '*****' DALIST 001 0024302260O CNT Z 16 DALIST 001 0024402270O 37 'ACCOUNTS ASSIGNED TO' DALIST 001 0024502280O 43 'QUEUE' DALIST 001 0024602290O OQID 49 DALIST 001 0024702300O E 101 13 DALIST 001 0024802310O HDR1 41 DALIST 001 0024902320O N18 74 'DAILY ASSIGNMENTS FOR' DALIST 001 0025002330O N18 80 'QUEUE' DALIST 001 0025102340O N18 OQID 86 DALIST 001 0025202350O 18 75 'NUMBER OF ACCOUNTS' DALIST 001 0025302360O 18 84 'ASSIGNED' DALIST 001 0025402370O 120 'PAGE' DALIST 001 0025502380O PAGE Z 125 DALIST 001 0025602390O E 1 13 DALIST 001 0025702400O HDR2 41 DALIST 001 0025802410O 68 'AS OF:' DALIST 001 0025902420O UDATE Y 77 DALIST 001 0026002430O E 2 13 DALIST 001 0026102440O HDR3 41 DALIST 001 0026202450O E 1 99 DALIST 001 00263 O MACCT1 41 001 0026402480O 65 'AMOUNT DELQ' DALIST 001 0026502490O MADLQ J 85 DALIST 0)  3b01 0026602500O 118 'PAYOFF/TOTAL DUE' DALIST 001 0026702510O MPYOF J 132 DALIST 001 0026802520O E 1 99 DALIST 001 0026902530O MNAM 31 DALIST 001 0027002540O 63 'DELQ DATE' DALIST 001 0027102550O MDLDT 82 ' / / ' DALIST 001 0027202560O 114 'CONTACT DATE' DALIST 001 0027302570O MPRI1 132 ' / / ' DALIST 001 0027402580O E 1 99 DALIST 001 0027502590O MADR1 31 DALIST 001 0027602600O 71 'HOME PHONE & EXT.' DALIST 001 0027702610O MPHN 84 ' - - ' DALIST 001 00278 O 85 '-' 001 0027902630O MEXT 89 DALIST 001 0028002650O 110 'PRIORITY' DALIST 001 0028102660O MPRI2 132 DALIST 001 0028202670O E 1 99 DALIST 001 0028302680O MADR2 31 DALIST 001 0028402690O 63 'BUS. NAME' DALIST 001 0028502700O MBNM 102 DALIST 001 0028602710O E 1 99 DALIST 001 0028702720O MCS 21 DALIST 001 0028802730O MZP 28 DALIST 001 0028902740O 71 'BUS. PHONE & EXT.' DALIST 001 0029002750O MBPH 84 ' - - ' DALIST 001 00291 O 85 '-' 001 0029202770O MBEX 89 DALIST 001 0029302790O E 1 99 DALIST 001 0029402800O 16 'DATE ACTION' DALIST 001 0029502810O 34 'RESULT LETTER' DALIST 001 0029602820O 49 'COLLECTOR-ID' DALIST 001 0029702830O 75 '***** COMMENTS *****' DALIST 001 0029802840O E 1 99 DALIST 001 0029902850O MCD,1 B 9 ' / / ' DALIST 001 0030002860O MAT,1 B 14 DALIST 001 0030102870O MRS,1 B 23 DALIST 001 0030202880O MLR,1 B 32 DALIST 001 0030302890O MCL,1 B 45 DALIST 001 0030402900O MCT,1 B 109 DALIST 001 0030502910O E 1 99 DALIST 001 0030602920O MCD,2 B 9 ' / / ' DALIST 001 0030702930O MAT,2 B 14  3c DALIST 001 0030802940O MRS,2 B 23 DALIST 001 0030902950O MLR,2 B 32 DALIST 001 0031002960O MCL,2 B 45 DALIST 001 0031102970O MCT,2 B 109 DALIST 001 0031202980O E 1 99 DALIST 001 0031302990O MCD,3 B 9 ' / / ' DALIST 001 0031403000O MAT,3 B 14 DALIST 001 0031503010O MRS,3 B 23 DALIST 001 0031603020O MLR,3 B 32 DALIST 001 0031703030O MCL,3 B 45 DALIST 001 0031803040O MCT,3 B 109 DALIST 001 0031903050O E 1 99 DALIST 001 0032003060O MCD,4 B 9 ' / / ' DALIST 001 0032103070O MAT,4 B 14 DALIST 001 0032203080O MRS,4 B 23 DALIST 001 0032303090O MLR,4 B 32 DALIST 001 0032403100O MCL,4 B 45 DALIST 001 0032503110O MCT,4 B 109 DALIST 001 0032603120O E 1 99 DALIST 001 0032703130O 43 '************************' DALIST 001 0032803140O 67 '************************' DALIST 001 0032903150O 91 '************************' DALIST 001 0033003160O 112 '*********************' DALIST 001 0033103170O E 23 33 DALIST 001 0033203180O SPCS 132 DALIST 001 0033303190O E 2 33 DALIST 001 0033403200O 15 'ACCOUNT NUMBER' DALIST 001 00335 O DACCT1 32 001 00336 O 52 'NOT IN DELQMST FILE' 001 0033703240O SPCS 132 DALIST 001 0033803250O E 1 33 DALIST 001 0033903260O 43 '************************' DALIST 001 0034003270O 67 '************************' DALIST 001 0034103280O 91 '************************' DALIST 001 0034203290O 112 '*********************' DALIST 001 0034303300O T 33 DALIST 001 0034403310O SPCS 132 DALIST 001 0034503320O T 33 LRN47N56 DALIST 001 0034603330O SPCS 132 DALIST 001 0034703340O T 1 LRN47N56 DALIST 001 0034803350O 54 '*****' DALIST 001 0034903360O  3d 79 'TOTAL ACCOUNTS ASSIGNED:' DALIST 001 0035003370O CNTO Z 86 DALIST 001 0035103380O 92 '*****' DALIST 001 0035203390O T 33 LR DALIST 001 0035303400O SPCS 132 DALIST 001 0035403410O T 33 LR DALIST 001 0035503420O SPCS 132 DALIST 001 0035603430O T 1 01 LR DALIST 001 0035703440O 47 30 '***ERROR IN UTILITY FILE' DALIST 001 0035803450O 47 47 ' - RUN ABORTED***' DALIST 001 0035903460O N47 79 '- END OF REPORT -' DALIST 001 00360** 003470 001 00361 HOW MANY ACCOUNTS TO PRINT-ENTER NNN,ALL,END OR CR 001 00362 ERROR IN DATA ENTERED- ENTER NNN, ALL, END OR CR 001 00363 ZERO ENTERED - RUN PROVIDES COUNTS ONLY 003500 001 00364 DLYASSN FILE CONTAINS RECORD WITH NO ID NUMBER- CONTINUED 003510 001 00365/* 003520 001 0036600010H LDTLST 001 00001 X 1 G11 R LA CCS 3.0 SL-149 00980 001 00002 F* G11 R LA CCS 3.0 SL-149 00990 001 00003 F* 01000 001 00004 F* LEGAL AND AGENCY VERSION 3 01010 001 00005 F* DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 01020 001 00006 F* COPYRIGHT CONTROL DATA CORPORATION, 1979 01030 001 00007 F* 01040 001 0000800030F* DECK-ID P01 CCS 2.0 SUMMARY-132 001 0000900040F* 001 0001000050FLADUMMY IP F 80 DISK 001 0001100060FLACOSIGNIC F 362R16AI 1 DISK 001 0001200070FLASREQDLID F 20 DISK 001 0001300080F* 001 0001400090F* COPYRIGHT CONTROL DATA CORPORATION, 1978 001 0001500100F* DATA SYSTEM-LA JOLLA DIVISION, LAJOLLA, CALIFORNIA 001 0001600110F* CREDIT COLLECTION SYSTEM VERSION 2.0 001 0001700120F* 001 0001800130FLAINACCTUD F 24 DISK 001 0001900140FLAACTFILID F 500 18AI 1 DISK 001 0002000150FLADLQMSTIC F 2000R16AI 1 DISK 001 0002100160FLAUTIFILIC F 80R 4AI 1 DISK 001 0002200170FPRINT O F 132 OV PRINTER 001 0002300180E STG 38 2 001 0002400190E OBLK 482 1 001 0002500200E   3e CMT 30 2 001 0002600210E HDR 3 40 001 0002700220ILADUMMY CC 01 001 0002800230I 1 80 DUM 001 0002900240ILACOSIGNBB 02 001 0003000250I 1 1 CACTFG 001 0003100260I 2 16 CACCT 001 0003200270I 1 16 CACC 001 0003300280I 17 17 CINIT 001 0003400290I 18 180CSLC1 001 0003500300I 19 190C1FG 001 0003600310I 20 49 CN1 001 0003700320I 50 79 CA1 001 0003800330I 80 99 CS1 001 0003900340I 100 1040CZ1 001 0004000350I 105 1180CH1 001 0004100360I 105 105 H1 001 0004200370I 105 118 CH11 001 0004300380I 119 1320CB1 001 0004400390I 119 119 B1 001 0004500400I 119 132 CB11 001 0004600410I 133 1330CSLC2 001 0004700420I 134 1340C2FG 001 0004800430I 135 164 CN2 001 0004900440I 165 194 CA2 001 0005000450I 195 214 CS2 001 0005100460I 215 2190CZ2 001 0005200470I 220 2330CH2 001 0005300480I 220 220 H2 001 0005400490I 220 233 CH21 001 0005500500I 234 2470CB2 001 0005600510I 234 234 B2 001 0005700520I 234 247 CB21 001 0005800530I 248 2480CSLC3 001 0005900540I 249 2490C3FG 001 0006000550I 250 279 CN3 001 0006100560I 280 309 CA3 001 0006200570I 310 329 CS3 001 0006300580I 330 3340CZ3 001 0006400590I 335 3480CH3 001 0006500600I 335 335 H3 001 0006600610I 335 348 CH31   3f 001 0006700620I 349 3620CB3 001 0006800630I 349 349 B3 001 0006900640I 349 362 CB31 001 0007000650ILASREQDLGG 03 001 0007100660I 1 16 EACT 001 0007200670I 17 20 SUPID 001 0007300680ILAINACCTEE 04 001 0007400690I 1 16 EACT 001 0007500700I 18 18 PFLAG 001 0007600710ILAACTFILFF 06 001 0007700720I 1 16 ACT 001 0007800730I 19 500 OBLK 001 0007900740I* L/A MASTER FILE DESCRIPTION INPUT 001 0008000750ILADLQMSTAA 10 001 0008100760I 1 1 MACTFG 001 0008200770I 2 16 MACCT 001 0008300780I 1 16 MACC 001 0008400790I 17 170MSLCD 001 0008500800I 18 47 MNAM 001 0008600810I 48 77 MADR1 001 0008700820I 78 107 MADR2 001 0008800830I 108 127 MCS 001 0008900840I 128 132 MZP 001 0009000850I 133 133 H 001 0009100860I 133 1420MPHN 001 0009200870I 133 142 MPHN1 001 0009300880I 143 146 MEXT 001 0009400890I 147 176 MBNM 001 0009500900I 177 206 MBAD 001 0009600910I 207 226 MBCS 001 0009700920I 227 231 MBZP 001 0009800930I 232 232 B 001 0009900940I 232 2410MBPH 001 0010000950I 232 241 MBPH1 001 0010100960I 242 245 MBEX 001 0010200970I 246 261 MADL 001 0010300980I 262 2700MSOC 001 0010400990I 271 274 MQUE 001 0010501000I 275 2800MPRID 001 0010601010I 281 284 MPRIC 001 0010701020I 285 285 MPFG 001 0010801030I 286 2860MBFG*]  3g  001 0010901040I 287 290 MSUP 001 0011001050I 291 295 MOLS 001 0011101060I 296 299 MPQU 001 0011201070I 300 3050MPDQ 001 0011301080I 306 306 MSTC 001 0011401090I 667 696 MP1 001 0011501100I 697 726 MP2 001 0011601110I 727 756 MP3 001 0011701120I 757 786 MPAD1 001 0011801130I 787 816 MPAD2 001 0011901140I 817 836 MPCS 001 0012001150I 837 841 MPZC 001 0012101160I 842 8470MLLDT 001 0012201170I 848 8562MLLAT 001 0012301180I 857 8620MSTDT 001 0012401190I 863 8680MUPDT 001 0012501200I 869 8740MCCDT 001 0012601210I 875 8800MDLDT 001 0012701220I 881 8860MOPDT 001 0012801230I 887 8952MADLQ 001 0012901240I 896 9042MCBAL 001 0013001250I 905 9132MPYOF 001 0013101260I 914 9190MCPGD 001 0013201270I 920 9282MNPA 001 0013301280I 929 9372MOAMT 001 0013401290I 938 9380MCMN 001 0013501300I 939 946 MTP 001 0013601310I 947 9490MPTS 001 0013701320I 950 954 MBBR 001 0013801330I 955 962 MLON 001 0013901340I 963 966 MTCD 001 0014001350I 967 9680MTD3 001 0014101360I 969 9700MTD6 001 0014201370I 971 9720MTD9 001 0014301380I 9731012 MSDF 001 0014401390I 101310150MDYDL 001 0014501400I 101610210MPPD 001 0014601410I 102210302MPPA 001 0014701420I 103110360MTLB 001 0014801430ILAUTIFILAA 31 001 0014901440I 5 44 HEADER 001 0015001450C***** SETUP REPORT V  3hHEADINGS 001 0015101460C 46 GOTO AROUND 001 0015201470C 'HDR1' CHAINLAUTIFIL 32 001 0015301480C N32 MOVE HEADER HDR,1 001 0015401490C 'HDR2' CHAINLAUTIFIL 32 001 0015501500C N32 MOVE HEADER HDR,2 001 0015601510C 'HDR3' CHAINLAUTIFIL 32 001 0015701520C N32 MOVE HEADER HDR,3 001 0015801530C MOVE '0482' LTH 4 001 0015901540C MOVE '01' OSW 2 001 0016001550C AROUND TAG 001 0016101560C START TAG 001 0016201570C SETON 46 001 0016301580C SETOF 010203 001 0016401590C SETOF 040506 001 0016501600C SETOF 101222 001 0016601610C SETOF 313216 001 0016701620C SETOF 818283 001 0016801630C SETOF 848586 001 0016901640C SETOF 878811 001 0017001650C RDACT TAG 001 0017101660C SETOF 1304 001 0017201670C U1 READ LAINACCT 12 001 0017301680C U1N12 PFLAG COMP 'P' 13 001 0017401690C U1N12N13 MOVE 'P' PFLAG 001 0017501700C U1N12 13 GOTO RDACT 001 0017601710C U2 READ LASREQDL 12 001 0017701720C 12 GOTO END 001 0017801730C EACT CHAINLADLQMST 22 001 0017901740C N22 H COMP '0' 81 001 0018001750C N22 B COMP '0' 82 001 0018101760C 22 GOTO ERROR 001 0018201770C EACT CHAINLACOSIGN 05 001 0018301780C N05 H1 COMP '0' 83 001 0018401790C N05 B1 COMP '0' 84 001 0018501800C N05 H2 COMP '0' 85 001 0018601810C N05 B2 COMP '0' 86 001 0018701820C N05 H3 COMP '0' 87 001 0018801830C N05 B3 COMP '0' 88 001 0018901840C EXCPT 001 0019001850C U1N12N13 001 0019101860COR U2 SETON 16 001 0019201870C* r  3i2 SET BOUNDS FOR LOCATING ACTIVITY INFORMATION 001 0019301880C 16 MOVE EACT SACT 16 001 0019401890C SETOF 0410 001 0019501900C 16 MOVELSACT LACCT 18 001 0019601910C 16 MOVE '00' LACCT 001 0019701920C 16 LACCT SETLLLAACTFIL 001 0019801930C GETBLK TAG 001 0019901940C SETOF 110614 001 0020001950C READ LAACTFIL 11 001 0020101960C 11 GOTO START 001 0020201970C N11 ACT COMP SACT 1111 001 0020301980C 11 GOTO START 001 0020401990C GETACT TAG 001 0020502000C MOVE '00' OSW 001 0020602010C EXIT GETACR 001 0020702020C RLABL STG 001 0020802030C RLABL OBLK 001 0020902040C RLABL LTH 001 0021002050C RLABL OSW 001 0021102060C OSW COMP '01' 14 001 0021202070C 14 GOTO GETBLK 001 0021302080C N14 MOVEASTG,9 CMT,1 001 0021402090C N14 MOVEASTG,10 CMT,2 001 0021502100C N14 MOVEASTG,11 CMT,3 001 0021602110C N14 MOVEASTG,12 CMT,4 001 0021702120C N14 MOVEASTG,13 CMT,5 001 0021802130C N14 MOVEASTG,14 CMT,6 001 0021902140C N14 MOVEASTG,15 CMT,7 001 0022002150C N14 MOVEASTG,16 CMT,8 001 0022102160C N14 MOVEASTG,17 CMT,9 001 0022202170C N14 MOVEASTG,18 CMT,10 001 0022302180C N14 MOVEASTG,19 CMT,11 001 0022402190C N14 MOVEASTG,20 CMT,12 001 0022502200C N14 MOVEASTG,21 CMT,13 001 0022602210C N14 MOVEASTG,22 CMT,14 001 0022702220C N14 MOVEASTG,23 CMT,15 001 0022802230C N14 MOVEASTG,24 CMT,16 001 0022902240C N14 MOVEASTG,25 CMT,17 001 0023002250C N14 MOVEASTG,26 CMT,18 001 0023102260C N14 MOVEASTG,27 CMT,19 001 0023202270C N14 MOVEASTG,28 CMT,20 001 0023302280C N14 MOVEASTG,29 CMT,21 Ц  3jF 001 0023402290C N14 MOVEASTG,30 CMT,22 001 0023502300C N14 MOVEASTG,31 CMT,23 001 0023602310C N14 MOVEASTG,32 CMT,24 001 0023702320C N14 MOVEASTG,33 CMT,25 001 0023802330C N14 MOVEASTG,34 CMT,26 001 0023902340C N14 MOVEASTG,35 CMT,27 001 0024002350C N14 MOVEASTG,36 CMT,28 001 0024102360C N14 MOVEASTG,37 CMT,29 001 0024202370C N14 MOVEASTG,38 CMT,30 001 0024302380C OV SETON 46 001 0024402390C N14 EXCPT 001 0024502400C N14 SETOF 46 001 0024602410C N14 GOTO GETACT 001 0024702420C ERROR TAG 001 0024802430C SETOF 100708 001 0024902440C SETON 70 001 0025002450C EXCPT 001 0025102460C SETOF 70 001 0025202470C GOTO START 001 0025302480C END TAG 001 0025402490C SETON LR 001 0025502500OLAINACCTE 04N13 001 0025602510O PFLAG 18 001 0025702520OPRINT E 101 10 46 001 0025802530O HDR,1 41 001 0025902540O 67 'DELINQUENT RECORD' 001 0026002550O 76 'CONTENTS' 001 0026102560O 03 103 'SUPERVISOR:' 001 0026202570O 03SUPID 108 001 0026302580O 128 'PAGE' 001 0026402590O PAGE Z 132 001 0026502600O E 1 10 46 001 0026602610O HDR,2 41 001 0026702620O 61 'AS OF' 001 0026802630O UDATE Y 70 001 0026902640O E 1 10 46 001 0027002650O HDR,3 41 001 0027102660O E 1 10 001 0027202670O 13 'ACCOUNT' 001 0027302680O 39 'ADDITIONAL' 001 0027402690O 49 'BANK' 001 0027502700O 57 'LOAN' D  3kZ 001 0027602710O 71 'AMOUNT TO' 001 0027702720O 80 'DELQ' 001 0027802730O 102 'LAST LETTER SENT' 001 0027902740O 113 'ASSIGNED' 001 0028002750O 118 'CR.' 001 0028102760O 132 'OPEN AMOUNT' 001 0028202770O E 1 10 001 0028302780O 11 'NO.' 001 0028402790O 40 'ACCOUNT NO.' 001 0028502800O 49 'BR.' 001 0028602810O 59 'OFFICER' 001 0028702820O 70 'COLLECT' 001 0028802830O 80 'DATE' 001 0028902840O 89 'DATE' 001 0029002850O 103 'AMOUNT' 001 0029102860O 111 'QUEUE' 001 0029202870O 118 'PTS' 001 0029302880O 132 'OR CR LIMIT' 001 0029402890O E 1 10 001 0029502900O MACC 17 001 0029602910O MADL 42 001 0029702920O MBBR 49 001 0029802930O MLON 59 001 0029902940O MADLQ L 72 001 0030002950O MDLDT 82 ' / / ' 001 0030102960O MLLDT 92 ' / / ' 001 0030202970O MLLAT L 104 001 0030302980O MQUE 111 001 0030402990O MPTS 118 001 0030503000O MOAMT L 132 001 0030603010O E 2 10 001 0030703020O 5 'NAME' 001 0030803030O MNAM 48 001 0030903040O 66 'SALUTATION CODE' 001 0031003050O MSLCD 68 001 0031103060O 98 'BUSINESS NAME' 001 0031203070O MBNM 132 001 0031303080O E 1 10 001 0031403090O 10 'ADDRESS 1' 001 0031503100O MADR1 48 001 0031603110O 70 'SOCIAL SECURITY NO.' 001 0031703120O |K  3ln MSOC 82 ' - - ' 001 0031803130O 96 'ST. ADDRESS' 001 0031903140O MBAD 132 001 0032003150O E 1 10 001 0032103160O 10 'ADDRESS 2' 001 0032203170O MADR2 48 001 0032303180O 67 'NO. OF COSIGNERS' 001 0032403190O MCMN 69 001 0032503200O 99 'CITY/STATE/ZIP' 001 0032603210O MBCS 122 001 0032703220O MBZP 132 001 0032803230O E 1 10 001 0032903240O 15 'CITY/STATE/ZIP' 001 0033003250O MCS 38 001 0033103260O MZP 48 001 0033203270O 62 'HOME PHONE:' 001 0033303280O N81MPHN 75 ' - - ' 001 0033403290O N81 76 '-' 001 0033503300O MEXT 80 001 0033603310O 81MPHN1 77 001 0033703320O 100 'BUSINESS PHONE:' 001 0033803330O N82MBPH 114 ' - - ' 001 0033903340O N82 115 '-' 001 0034003350O MBEX 119 001 0034103360O 82MBPH1 116 001 0034203370O E 2 10 001 0034303380O 12 'PRIORITY' 001 0034403390O 21 'TYPE' 001 0034503400O 34 'TIMES DELQ' 001 0034603410O 43 'STATUS' 001 0034703420O 49 'PAY' 001 0034803430O 64 'PROMISED TO' 001 0034903440O 78 'PROMISED TO' 001 0035003450O 100 'PREVIOUS ADDRESS 1' 001 0035103460O MPAD1 132 001 0035203470O E 1 10 001 0035303480O 7 'DATE' 001 0035403490O 14 'CODE' 001 0035503500O 21 'CODE' 001 0035603510O 34 '30 60 90' 001 0035703520O 42 'CODE' 001 0035803530O 50 'FLAG' 001 003590354  3m0O 62 'PAY DATE' 001 0036003550O 78 'PAY AMOUNT' 001 0036103560O 100 'PREVIOUS ADDRESS 2' 001 0036203570O MPAD2 132 001 0036303580O E 1 10 001 0036403590O MPRID 9 ' / / ' 001 0036503600O MPRIC 14 001 0036603610O MTCD 21 001 0036703620O MTD3 26 001 0036803630O MTD6 30 001 0036903640O MTD9 34 001 0037003650O MSTC 40 001 0037103660O MPFG 49 001 0037203670O MPPD 62 ' / / ' 001 0037303680O MPPA L 78 001 0037403690O 96 'CITY/STATE/ZIP' 001 0037503700O MPCS 122 001 0037603710O MPZC 132 001 0037703720O E 2 10 001 0037803730O 10 'CURRENT' 001 0037903740O 24 'CURRENT' 001 0038003750O 43 'CURRENT PAYOFF' 001 0038103760O 57 'NEXT PAYOFF' 001 0038203770O 69 'SUPERVISOR' 001 0038303780O 78 'ARCHIVE' 001 0038403790O 101 '* * S P E C I A L' 001 0038503800O 127 'I N S T R U C T I O N S' 001 0038603810O 132 '* *' 001 0038703820O E 1 10 001 0038803830O 10 'BALANCE' 001 0038903840O 23 'PAYOFF' 001 0039003850O 43 'EFFECTIVE DATE' 001 0039103860O 54 'AMOUNT' 001 0039203870O 66 'I.D.' 001 0039303880O 80 'TAPE DATE' 001 0039403890O E 1 10 001 0039503900O MCBAL L 12 001 0039603910O MPYOF L 26 001 0039703920O MCPGD 39 ' / / ' 001 0039803930O MNPA L 57 001 0039903940O MSUP 66 001 0040003950O MTLB 80 ' / / ' ]-  3n 001 0040103960O MSDF 128 001 0040203970O E 2 10 001 0040303980O 8 'STATUS' 001 0040403990O 20 'LAST COL' 001 0040504000O 29 'OPEN' 001 0040604010O 42 'DATE 1ST' 001 0040704020O 51 'LAST' 001 0040804030O 64 'QUEUE' 001 0040904040O 83 '* * * * * *' 001 0041004050O 102 'P E R M A N E N T' 001 0041104060O 119 'C O M M E N T' 001 0041204070O 132 '* * * * * *' 001 0041304080O E 1 10 001 0041404090O 7 'DATE' 001 0041504100O 19 'UPDATE' 001 0041604110O 29 'DATE' 001 0041704120O 41 'IN CCS' 001 0041804130O 51 'QUEUE' 001 0041904140O 67 'CHANGE DATE' 001 0042004150O MP1 132 001 0042104160O E 1 10 001 0042204170O MSTDT 9 ' / / ' 001 0042304180O MUPDT 20 ' / / ' 001 0042404190O MOPDT 31 ' / / ' 001 0042504200O MCCDT 42 ' / / ' 001 0042604210O MPQU 51 001 0042704220O MPDQ 65 ' / / ' 001 0042804230O MP2 132 001 0042904240O E 1 10 001 0043004250O MP3 132 001 0043104260O E 2 10N05 001 0043204270O 18 'C O S I G N E R S' 001 0043304280O 27 'N A M E' 001 0043404290O 44 'S T R E E T' 001 0043504300O 60 'A D D R E S S' 001 0043604310O 84 'C I T Y / S T A T E' 001 0043704320O 91 'Z I P' 001 0043804330O 111 'H O M E P H O N E' 001 0043904340O 132 'B U S . P H O N E' 001 0044004350O E 1 10N05 001 0044104360O CN1 31 001 0044204370O CA1 63   3o 001 0044304380O CS1 85 001 0044404390O CZ1 91 001 0044504400O N83CH1 110 ' - - - ' 001 0044604410O 83CH11 107 001 0044704420O N84CB1 132 ' - - - ' 001 0044804430O 84CB11 129 001 0044904440O E 1 10N05 001 0045004450O CN2 31 001 0045104460O CA2 63 001 0045204470O CS2 85 001 0045304480O CZ2 91 001 0045404490O N85CH2 110 ' - - - ' 001 0045504500O 85CH21 107 001 0045604510O N86CB2 132 ' - - - ' 001 0045704520O 86CB21 129 001 0045804530O E 1 10N05 001 0045904540O CN3 31 001 0046004550O CA3 63 001 0046104560O CS3 85 001 0046204570O CZ3 91 001 0046304580O N87CH3 110 ' - - - ' 001 0046404590O 87CH31 107 001 0046504600O N88CB3 132 ' - - - ' 001 0046604610O 88CB31 129 001 0046704620OPRINT E 101 16 46 001 0046804630O HDR,1 41 001 0046904640O 75 'COLLECTOR ACTIVITIES' 001 0047004650O 03 103 'SUPERVISOR' 001 0047104660O 03SUPID 108 001 0047204670O 128 'PAGE' 001 0047304680O PAGE Z 132 001 0047404690O E 1 16 46 001 0047504700O HDR,2 41 001 0047604710O 63 'AS OF' 001 0047704720O UDATE Y 72 001 0047804730O E 1 16 46 001 0047904740O HDR,3 41 001 0048004750O E 1 16 46 001 0048104760O 13 'ACCOUNT' 001 0048204770O 35 'CONTACT' 001 0048304780O 43 'ACTION' 001 0048404790O .  3p 51 'RESULT' 001 0048504800O 59 'LETTER' 001 0048604810O 70 'COLLECTOR' 001 0048704820O 87 '* * * * * * * *' 001 0048804830O 111 'C O M M E N T S' 001 0048904840O 132 '* * * * * * * * * *' 001 0049004850O E 11 16 46 001 0049104860O 11 'NO.' 001 0049204870O 33 'DATE' 001 0049304880O 42 'CODE' 001 0049404890O 50 'CODE' 001 0049504900O 58 'CODE' 001 0049604910O 68 'I. D.' 001 0049704920O E 1 06N14 001 0049804930O SACT 17 001 0049904940O STG,1 29 001 0050004950O 30 '/' 001 0050104960O STG,2 32 001 0050204970O 33 '/' 001 0050304980O STG,3 35 001 0050404990O STG,4 41 001 0050505000O STG,5 49 001 0050605010O STG,6 57 001 0050705020O STG,7 65 001 0050805030O STG,8 67 001 0050905040O CMT 132 001 0051005050O E 103 70 001 0051105060O 10 'ERROR' 001 0051205070O 22 28 'ACCOUNT NO.' 001 0051305080O 22 EACT 45 001 0051405090O 22 57 'NOT ON FILE' 001 0051505100OPRINT T 3 LR 001 0051605110O 75 '**** END OF REPORT ****' 001 00517/* 005120 001 00518 H LPGCMP 001 00001 X 1 G12 R LA CCS 3.0 SL-149 01070 001 00002 F* G12 R LA CCS 3.0 SL-149 01080 001 00003 F* 01090 001 0000400030F* LEGAL AND AGENCY VERSION 3 P01100 001 0000500040F* DATA SYSTEMS LA JOLLA DIVISION, LA JOLLA, CALIFORNIA P01110 001 00006 F* COPYRIGHT CONTROL DATA CORPORATION, 1979 01120 001 0000700070F* P01130 001 00008Y  3q00080F* REMARKS THIS PROGRAM COMPRESSES THE RPTTBL FILE BY REMOVING PGCMPR 001 0000900090F* THE RECORDS (DELETED) FLAGGED BY A D IN POSITION 80. PGCMPR 001 0001000100F* PGCMPR 001 0001100110F* PGCMPR 001 00012 F**********************************************************138**L/A 02150 001 00013 FLARPTTBLIPE F 80 6AI 1 DISK 02160 001 00014 FLATBLWRKO F 80 6AI 1 DISK 02170 001 00015 F**********************************************************138**L/A 02180 001 0001600140FCNSL D F 80 CONSOLE PGCMPR 001 0001700150F* PGCMPR 001 0001800160F* PGCMPR 001 00019 I**********************************************************138**L/A 02200 001 00020 ILARPTTBLAA 01 02210 001 00021 I**********************************************************138**L/A 02220 001 0002200180I 1 80 RTREC PGCMPR 001 0002300190I 80 80 RTFLAG PGCMPR 001 0002400200I* PGCMPR 001 0002500210I* PGCMPR 001 0002600220C BEGIN TAG PGCMPR 001 0002700230C 10 GOTO AROUND PGCMPR 001 0002800240C INIT TAG PGCMPR 001 0002900250C SETON 10 PGCMPR 001 0003000260C Z-ADD0 INREC 40 INITIALIZE PGCMPR 001 0003100270C Z-ADD0 TDELS 40 RECORD PGCMPR 001 0003200280C Z-ADD0 OUTREC 40 COUNTERS PGCMPR 001 0003300290C AROUND TAG PGCMPR 001 0003400300C INREC ADD 1 INREC PGCMPR 001 0003500310C RTFLAG COMP 'D' 20 PGCMPR 001 0003600320C 20 TDELS ADD 1 TDELS PGCMPR 001 0003700330C N20 OUTREC ADD 1 OUTREC PGCMPR 001 0003800340C END TAG PGCMPR 001 0003900350C* PGCMPR 001 0004000360CLR MOVE 'RECS IN 'DISA 8 PGCMPR 001 0004100370CLR DISA DSPLYCNSL PGCMPR 001 0004200380CLR INREC DSPLYCNSL PGCMPR 001 0004300390CLR MOVE 'RECS OUT'DISA PGCMPR 001 0004400400CLR DISA DSPLYCNSL PGCMPR 001 0004500410CLR OUTREC DSPLYCNSL PGCMPR 001 0004600420C* PGCMPR 001 0004700430C* PGCMPR 001 00048 O**********************************************************138**L/A 02240 001 00049 OLATBLWRKD N20N1P ;  3r 02250 001 00050 O**********************************************************138**L/A 02260 001 0005100450O RTREC 80 PGCMPR 001 0005200460O* PGCMPR 001 0005300470O* PGCMPR 001 00054/* 00480 001 00055 H LPGLIS 001 00001 X 1 G13 R LA CCS 3.0 SL-149 01160 001 00002 F* G13 R LA CCS 3.0 SL-149 01170 001 00003 F* 01180 001 0000400030F* LEGAL AND AGENCY VERSION 3 P01190 001 0000500040F* DATA SYSTEMS LA JOLLA DIVISION, LA JOLLA, CALIFORNIA P01200 001 00006 F* COPYRIGHT CONTROL DATA CORPORATION, 1979 01210 001 0000700060F* P01220 001 0000800070F* REMARKS THIS PROGRAM LISTS THE CONTENTS OF THE RPTPGMS FILE PGLIST 001 0000900080F* PROVIDING A DIRECTORY OF THE CURRENT GENERATED REPORT PGLIST 001 0001000090F* PROGRAMS. PGLIST 001 0001100100F* PGLIST 001 0001200110F* PGLIST 001 00013 F**********************************************************138**L/A 02350 001 00014 FLARPTPGMIPE F 80 6AI 1 DISK 02360 001 00015 FLAUTIFILIC F 80R 4AI 1 DISK 02370 001 00016 F**********************************************************138**L/A 02380 001 0001700140FPRINT O F 132 PRINTER PGLIST 001 0001800150F* PGLIST 001 0001900160F* PGLIST 001 0002000170E HDR 3 40 PGLIST 001 0002100180E* PGLIST 001 0002200190E BLK 1 1 80 PGLIST 001 0002300200E* PGLIST 001 0002400210E* PGLIST 001 00025 I**********************************************************138**L/A 02400 001 00026 ILARPTPGMAA 01 02410 001 00027 I**********************************************************138**L/A 02420 001 0002800230I 1 6 RPNAME PGLIST 001 0002900240I 7 12 RPDATE PGLIST 001 0003000250I 7 8 RPMO PGLIST 001 0003100260I 9 10 RPDA PGLIST 001 0003200270I 11 12 RPYR PGLIST 001 0003300280I 13 42 RPDESC PGLIST 001 0003400290I 1 80 RPREC PGLIST 001 0003500300I* PGLIST 001 00036 I**************************************2  3s********************138**L/A 02440 001 00037 ILAUTIFILBB 02 02450 001 00038 I**********************************************************138**L/A 02460 001 0003900320I 1 4 UTKEY PGLIST 001 0004000330I 5 44 UTHDR PGLIST 001 0004100340I 7 12 UTPGM PGLIST 001 0004200350I 1 80 UTREC PGLIST 001 0004300360I* PGLIST 001 0004400370I* PGLIST 001 0004500380C***** PGLIST 001 0004600390C* INITIALIZE STANDARD HEADINGS, ACCUMULATORS PGLIST 001 0004700400C***** PGLIST 001 0004800410C* PGLIST 001 0004900420C BEGIN TAG PGLIST 001 0005000430C 10 GOTO AROUND PGLIST 001 0005100440C INIT01 TAG PGLIST 001 0005200450C SETON 10 PGLIST 001 0005300460C MOVE 'HDR1' WKKEY 4 KEY, STD HDNG 1PGLIST 001 00054 C**********************************************************138**L/A 02480 001 00055 C WKKEY CHAINLAUTIFIL 11 02490 001 00056 C**********************************************************138**L/A 02500 001 0005700480C N11 MOVE UTHDR HDR,1 PGLIST 001 0005800490C 11 MOVEABLK HDR,1 PGLIST 001 0005900500C MOVE 'HDR2' WKKEY KEY, STD HDNG 2PGLIST 001 00060 C**********************************************************138**L/A 02520 001 00061 C WKKEY CHAINLAUTIFIL 11 02530 001 00062 C**********************************************************138**L/A 02540 001 0006300520C N11 MOVE UTHDR HDR,2 PGLIST 001 0006400530C 11 MOVEABLK HDR,2 PGLIST 001 0006500540C MOVE 'HDR3' WKKEY KEY, STD HDNG 3PGLIST 001 00066 C**********************************************************138**L/A 02560 001 00067 C WKKEY CHAINLAUTIFIL 11 02570 001 00068 C**********************************************************138**L/A 02580 001 0006900560C N11 MOVE UTHDR HDR,3 PGLIST 001 0007000570C 11 MOVEABLK HDR,3 PGLIST 001 0007100580C Z-ADD0 TINUSE 20 PGLIST 001 0007200590C Z-ADD0 TAVAIL 20 PGLIST 001 0007300600C Z-ADD63 LNCNT 20 PGLIST 001 0007400610C* PGLIST 001 0007500620C***** PGLIST 001 0007600630C* ACCUMULATE TOTAL # OF RECORDS PGLIST 001 0007700640C***** S PGLIST 001 0007800650C* _  3t S PGLIST 001 0007900660C AROUND TAG PGLIST 001 0008000670C TINUSE ADD 1 TINUSE PGLIST 001 0008100680C LNCNT COMP 55 40 PGLIST 001 0008200690C 40 Z-ADD7 LNCNT PGLIST 001 0008300700C LNCNT ADD 1 LNCNT PGLIST 001 0008400710C END TAG PGLIST 001 0008500720C***** PGLIST 001 0008600730C* LAST RECORD PROCESSING PGLIST 001 0008700740C* 1. GET TOTAL PGMS AVAIL PGLIST 001 0008800750C* 2. READ UTIFIL TO GET NEXT AVAIL PGM NAME PGLIST 001 0008900760C***** PGLIST 001 0009000770C* PGLIST 001 0009100780C* PGLIST 001 0009200790CLR 19 SUB TINUSE TAVAIL PGLIST 001 0009300800CLR MOVE 'RPTG' WKKEY PGLIST 001 00094 C**********************************************************138**L/A 02600 001 00095 CLR WKKEY CHAINLAUTIFIL 11 02610 001 00096 C**********************************************************138**L/A 02620 001 0009700820CLRN11 MOVE UTPGM NXTAVL 6 PGLIST 001 0009800830CLR 11 MOVE 'RPT000' NXTAVL PGLIST 001 0009900840C* PGLIST 001 0010000850C* PGLIST 001 0010100860OPRINT D 101 40 PGLIST 001 0010200870O HDR,1 40 PGLIST 001 0010300880O 113 'PAGE' PGLIST 001 0010400890O PAGE Z 118 PGLIST 001 0010500900O D 1 40 PGLIST 001 0010600910O HDR,2 40 PGLIST 001 0010700920O 113 'DATE RUN' PGLIST 001 0010800930O UDATE Y 123 PGLIST 001 0010900940O D 1 40 PGLIST 001 0011000950O HDR,3 40 PGLIST 001 0011100960O D 2 40 PGLIST 001 0011200970O 6 'PGLIST' PGLIST 001 0011300980O 69 'REPORT GENERATOR PROGRAM' PGLIST 001 0011400990O 84 ' DIRECTORY LIST' PGLIST 001 0011501000O D 2 40 PGLIST 001 0011601010O 7 'NAME' PGLIST 001 0011701020O 25 'DATE CREATED' PGLIST 001 0011801030O 48 'REPORT DESCRIPTION' PGLIST 001 0011901040O* PGLIST 001 0  3u"012001050O* PGLIST 001 0012101060O D 1 01 PGLIST 001 0012201070O RPNAME 8 PGLIST 001 0012301080O RPMO 17 PGLIST 001 0012401090O 18 '/' PGLIST 001 0012501100O RPDA 20 PGLIST 001 0012601110O 21 '/' PGLIST 001 0012701120O RPYR 23 PGLIST 001 0012801130O RPDESC 60 PGLIST 001 0012901140O* PGLIST 001 0013001150O T 12 LR PGLIST 001 0013101160O 26 'NEXT AVAILABLE PROGRAM ' PGLIST 001 0013201170O 30 'NAME' PGLIST 001 0013301180O NXTAVL 43 PGLIST 001 0013401190O T 1 LR PGLIST 001 0013501200O 26 'NUMBER OF PROGRAM NAMES ' PGLIST 001 0013601210O 33 'IN USE' PGLIST 001 0013701220O TINUSE 40 PGLIST 001 0013801230O T 1 LR PGLIST 001 0013901240O 26 'NUMBER OF PROGRAM NAMES ' PGLIST 001 0014001250O 35 'AVAILABLE' PGLIST 001 0014101260O TAVAIL 40 PGLIST 001 00142** 01270 001 00143 01280 001 00144/* 01290 001 00145 H LPGUTB 001 00001 X 1 G14 R LA CCS 3.0 SL-149 01250 001 00002 F* G15 R LA CCS 3.0 SL-149 01260 001 00003 F* 01270 001 0000400030F* LEGAL AND AGENCY VERSION 3 P01280 001 0000500040F* DATA SYSTEMS LA JOLLA DIVISION, LA JOLLA, CALIFORNIA P01290 001 00006 F* COPYRIGHT CONTROL DATA CORPORATION, 1979 01300 001 0000700060F* P01310 001 0000800070F* REMARKS THIS PROGRAM PROVIDES THE ABILITY TO ADD, DELETE, OR PGUPTB 001 0000900080F* CHANGE RECORDS IN THE RPTTBL FILE. INPUT CAN BE THRU PGUPTB 001 0001000090F* THE CONSOLE, CARD OR TAPE. THE DEVICE IS DETERMINED PGUPTB 001 0001100100F* BY A SWITCH SETTING. PGUPTB 001 0001200110F* CONSOLE = 00000000 PGUPTB 001 0001300120F* CARD = 10000000 PGUPTB 001 0001400130F* PGUPTB 001 0001500140F* PGUPTB 001 00016 F**********************************************************e  3v6138**L/A 02710 001 00017 FLADUMMY IP F 80 DISK 02720 001 00018 FLAUTIFILIC F 80R 4AI 1 DISK 02730 001 00019 F**********************************************************138**L/A 02740 001 0002000170FCNSLRC D F 80 CONSOLE PGUPTB 001 0002100180FCARDRC ID F 80 READER PGUPTB 001 00022 F**********************************************************138**L/A 02760 001 00023 FLARPTTBLUC F 80R 6AI 1 DISK A 02770 001 00024 F**********************************************************138**L/A 02780 001 0002500200FPRINT O F 132 PRINTER PGUPTB 001 0002600210F* PGUPTB 001 0002700220F* PGUPTB 001 0002800230E HDR 3 40 STANDARD HEADINGSPGUPTB 001 0002900240E* PGUPTB 001 0003000250E BLK 1 1 80 BLANKS PGUPTB 001 00031 E MSG 1 15 75 CONSOLE MSG 02800 001 0003200270E* PGUPTB 001 0003300280E* PGUPTB 001 0003400290E* PGUPTB 001 00035 I**********************************************************138**L/A 02820 001 00036 ILADUMMY AA 09 02830 001 00037 I**********************************************************138**L/A 02840 001 0003800310I 1 80 DUM PGUPTB 001 0003900320I* PGUPTB 001 00040 I**********************************************************138**L/A 02860 001 00041 ILAUTIFILBB 01 02870 001 00042 I**********************************************************138**L/A 02880 001 0004300340I 1 4 UTKEY PGUPTB 001 0004400350I 5 44 UTHDR PGUPTB 001 0004500360I 1 80 UTREC PGUPTB 001 0004600370I* PGUPTB 001 0004700380ICARDRC CC 02 PGUPTB 001 0004800390I 1 1 CDCODE PGUPTB 001 0004900400I 2 7 CDNAME PGUPTB 001 0005000410I 8 11 CDSTRT PGUPTB 001 0005100420I 12 15 CDLNG PGUPTB 001 0005200430I 16 16 CDTYPE PGUPTB 001 0005300440I 17 17 CDEDIT 77U7T2 001 0005400450I 18 18 CDCLAS PGUPTB 001 0005500460I 19 19 CDDPOS PGUPTB 001 0005600470I 20 49 CDDESC PGUPTB 001 0005700480I 50 79 CDSUBN PGUPTB 001 0005800490I   3wJ 50 55 CDSN1 PGUPT2 001 0005900500I 56 61 CDSN2 PGUPTB 001 0006000510I 62 67 CDSN3 PGUPTB 001 0006100520I 68 73 CDSN4 PGUPTB 001 0006200530I 74 79 CDSN5 PGUPTB 001 0006300540I* PGUPTB 001 0006400550I* PGUPTB 001 00065 I**********************************************************138**L/A 02900 001 00066 ILARPTTBLDD 03 02910 001 00067 I**********************************************************138**L/A 02920 001 0006800570I 1 80 RTREC PGUPTB 001 0006900580I 1 6 RTNAME PGUPTB 001 0007000590I 7 10 RTSTRT PGUPTB 001 0007100600I 11 14 RTLNG PGUPTB 001 0007200610I 15 15 RTTYPE PGUPTB 001 0007300620I 16 16 RTEDIT PGUPTB 001 0007400630I 17 17 RTCLAS PGUPTB 001 0007500640I 18 18 RTDPOS PGUPTB 001 0007600650I 19 48 RTDESC PGUPTB 001 0007700660I 49 78 RTSUBN PGUPTB 001 0007800670I 49 54 RTSN1 PGUPTB 001 0007900680I 55 60 RTSN2 PGUPTB 001 0008000690I 61 66 RTSN3 PGUPTB 001 0008100700I 67 72 RTSN4 PGUPTB 001 0008200710I 73 78 RTSN5 PGUPTB 001 0008300720I 80 80 RTFLAG PGUPTB 001 0008400730I* PGUPTB 001 0008500740I* PGUPTB 001 0008600750C***** PGUPTB 001 0008700760C* CHECK FOR LAST RECORD--FORCED ON 2ND CYCLE PGUPTB 001 0008800770C***** PGUPTB 001 0008900780C* PGUPTB 001 0009000790C BEGIN TAG PGUPTB 001 0009100800C 90 SETON LR PGUPTB 001 0009200810C LR GOTO END PGUPTB 001 0009300820C SETON 90 PGUPTB 001 0009400830C* PGUPTB 001 0009500840C***** PGUPTB 001 0009600850C* READ UTIFIL TO SET UP STANDARD HEADINGS PGUPTB 001 0009700860C***** PGUPTB 001 0009800870C* PGUPTB 001 0009900880C INIT TAG PGUPTB 001 0010000890C (d  3x^ MOVE 'HDR1' WKKEY 4 KEY, STD HDNG 1PGUPTB 001 00101 C**********************************************************138**L/A 02940 001 00102 C WKKEY CHAINLAUTIFIL 10 02950 001 00103 C**********************************************************138**L/A 02960 001 0010400910C N10 MOVE UTHDR HDR,1 PGUPTB 001 0010500920C 10 MOVEABLK HDR,1 PGUPTB 001 0010600930C MOVE 'HDR2' WKKEY KEY, STD HDNG 2PGUPTB 001 00107 C**********************************************************138**L/A 02980 001 00108 C WKKEY CHAINLAUTIFIL 10 02990 001 00109 C**********************************************************138**L/A 03000 001 0011000950C N10 MOVE UTHDR HDR,2 PGUPTB 001 0011100960C 10 MOVEABLK HDR,2 PGUPTB 001 0011200970C MOVE 'HDR3' WKKEY KEY, STD HDNG 3PGUPTB 001 00113 C**********************************************************138**L/A 03020 001 00114 C WKKEY CHAINLAUTIFIL 10 03030 001 00115 C**********************************************************138**L/A 03040 001 0011600990C N10 MOVE UTHDR HDR,3 PGUPTB 001 0011701000C 10 MOVEABLK HDR,3 PGUPTB 001 0011801010C* PGUPTB 001 0011901020C***** PGUPTB 001 0012001030C* CLEAR TOTAL ACCUMULATORS PGUPTB 001 0012101040C* SET LINE COUNTER TO FORCE HEADINGS TO BE PRINTED PGUPTB 001 0012201050C***** PGUPTB 001 0012301060C* PGUPTB 001 0012401070C Z-ADD0 TADDS 40 # ADDS PGUPTB 001 0012501080C Z-ADD0 TDELS 40 # DELETES PGUPTB 001 0012601090C Z-ADD0 TCHGS 40 # CHANGES PGUPTB 001 0012701100C Z-ADD0 TREJS 40 # REJECTS PGUPTB 001 0012801110C Z-ADD63 LNCNT 20 LINE COUNT PGUPTB 001 0012901120C* PGUPTB 001 0013001130C***** PGUPTB 001 0013101140C* DETERMINE DEVICE FROM WHICH CHANGE DATA IS COMING PGUPTB 001 0013201150C***** PGUPTB 001 0013301160C* PGUPTB 001 0013401170C DTRDEV TAG PGUPTB 001 0013501180C U1 GOTO CRD01 CARD INPUT PGUPTB 001 0013601190C GOTO CNS01 CONSOLE INPUT PGUPTB 001 0013701200C* PGUPTB 001 0013801210C***** PGUPTB 001 0013901220C* READ FROM CARD PGUPTB 001 0014001230C***** PGUPTB 001 0014101240C* PGUPTB 05  3yr01 0014201250C CRD01 TAG PGUPTB 001 0014301260C READ CARDRC 13 PGUPTB 001 0014401270C N13 MOVE CDCODE RCCODE 1 PGUPTB 001 0014501280C N13 MOVE CDNAME RCNAME 6 PGUPTB 001 0014601290C N13 MOVE CDSTRT RCSTRT 4 PGUPTB 001 0014701300C N13 MOVE CDLNG RCLNG 4 PGUPTB 001 0014801310C N13 MOVE CDTYPE RCTYPE 1 PGUPTB 001 0014901320C N13 MOVE CDEDIT RCEDIT 1 PGUPTB 001 0015001330C N13 MOVE CDCLAS RCCLAS 1 PGUPTB 001 0015101340C N13 MOVE CDDPOS RCDPOS 1 PGUPTB 001 0015201350C N13 MOVE CDDESC RCDESC 30 PGUPTB 001 0015301360C N13 MOVE CDSN1 RCSN1 6 PGUPTB 001 0015401370C N13 MOVE CDSN2 RCSN2 6 PGUPTB 001 0015501380C N13 MOVE CDSN3 RCSN3 6 PGUPTB 001 0015601390C N13 MOVE CDSN4 RCSN4 6 PGUPTB 001 0015701400C N13 MOVE CDSN5 RCSN5 6 PGUPTB 001 0015801410C N13 GOTO DTRTYP PGUPTB 001 0015901420C GOTO END PGUPTB 001 0016001430C* PGUPTB 001 0016101440C***** PGUPTB 001 0016201450C* READ FROM CONSOLE PGUPTB 001 0016301460C***** PGUPTB 001 0016401470C* PGUPTB 001 0016501480C CNS01 TAG PGUPTB 001 0016601490C SETOF 212223 PGUPTB 001 0016701500C SETOF 2425 PGUPTB 001 0016801510C MOVEABLK DISB 80 CLEAR WORK AREAPGUPTB 001 0016901520C MSG,1 DSPLYCNSLRC DISB DISPLAY MSG PGUPTB 001 0017001530C* PGUPTB 001 0017101540C MOVELDISB RCCODE 1 PGUPTB 001 0017201550C RCCODE COMP 'A' 21ADD PGUPTB 001 0017301560C N21 RCCODE COMP 'C' 22CHANGE PGUPTB 001 0017401570C N21N22 RCCODE COMP 'D' 23DELETE PGUPTB 001 0017501580C N21N22N23RCCODE COMP 'E' 24END PGUPTB 001 0017601590C 24 GOTO END YES, END PGUPTB 001 0017701600C N21N22N23 GOTO CNS01 INVLD RESPONSE PGUPTB 001 0017801610C* ASK AGAIN PGUPTB 001 0017901620C* ENTER DATA PGUPTB 001 0018001630C MOVEABLK DISB PGUPTB 001 0018101640C MSG,2 DSPLYCNSLRC DISB PGUPTB 001 0018201650C MOVELDISB RCNAME PGUPTB 001 0018301660C 23 GOTO CNSL10 DD<  3zELETE PGUPTB 001 0018401670C MOVEABLK DISB PGUPTB 001 0018501680C MSG,3 DSPLYCNSLRC DISB PGUPTB 001 0018601690C MOVELDISB RCSTRT PGUPTB 001 0018701700C MOVEABLK DISB PGUPTB 001 0018801710C MSG,4 DSPLYCNSLRC DISB PGUPTB 001 0018901720C MOVELDISB RCLNG PGUPTB 001 0019001730C MOVEABLK DISB PGUPTB 001 0019101740C MSG,5 DSPLYCNSLRC DISB PGUPTB 001 0019201750C MOVELDISB RCTYPE PGUPTB 001 0019301760C MOVEABLK DISB PGUPTB 001 0019401770C MSG,6 DSPLYCNSLRC DISB PGUPTB 001 0019501780C MOVELDISB RCEDIT PGUPTB 001 0019601790C MOVEABLK DISB PGUPTB 001 0019701830C MSG,8 DSPLYCNSLRC DISB PGUPTB 001 0019801840C MOVELDISB RCDPOS PGUPTB 001 0019901850C MOVEABLK DISB PGUPTB 001 0020001860C MSG,9 DSPLYCNSLRC DISB PGUPTB 001 0020101870C MOVELDISB RCDESC PGUPTB 001 0020201880C MOVEABLK DISB PGUPTB 001 0020301890C MSG,10 DSPLYCNSLRC DISB PGUPTB 001 0020401900C MOVELDISB RCSN1 PGUPTB 001 0020501910C MOVEABLK DISB PGUPTB 001 0020601920C MSG,11 DSPLYCNSLRC DISB PGUPTB 001 0020701930C MOVELDISB RCSN2 PGUPTB 001 0020801940C MOVEABLK DISB PGUPTB 001 0020901950C MSG,12 DSPLYCNSLRC DISB PGUPTB 001 0021001960C MOVELDISB RCSN3 PGUPTB 001 0021101970C MOVEABLK DISB PGUPTB 001 0021201980C MSG,13 DSPLYCNSLRC DISB PGUPTB 001 0021301990C MOVELDISB RCSN4 PGUPTB 001 0021402000C MOVEABLK DISB PGUPTB 001 0021502010C MSG,14 DSPLYCNSLRC DISB PGUPTB 001 0021602020C MOVELDISB RCSN5 PGUPTB 001 0021702030C CNSL10 TAG PGUPTB 001 0021802040C MSG,15 DSPLYCNSLRC DISB VERIFY DATA PGUPTB 001 0021902050C MOVELDISB WRK2 2 PGUPTB 001 0022002060C WRK2 COMP 'OK' 25IS IT OK PGUPTB 001 0022102070C N25 GOTO CNS01 NO, ASK AGAIN PGUPTB 001 0022202080C GOTO DTRTYP PGUPTB 001 0022302090C* PGUPTB 001 0022402100C***** PGUPTB 001 0022502110C* DETERMINE TYPE OF MAINTENT  3{ANCE--ADD,CHANGE,DELETE PGUPTB 001 0022602120C***** PGUPTB 001 0022702130C* PGUPTB 001 0022802140C DTRTYP TAG PGUPTB 001 0022902150C SETOF 202122 PGUPTB 001 0023002160C SETOF 231030 PGUPTB 001 0023102170C SETOF 505152 PGUPTB 001 0023202180C SETOF 535455 PGUPTB 001 0023302190C SETOF 565758 PGUPTB 001 0023402200C SETOF 596061 PGUPTB 001 0023502210C SETOF 626364 PGUPTB 001 0023602220C SETOF 654070 PGUPTB 001 0023702230C SETOF 71 PGUPTB 001 0023802240C RCCODE COMP 'A' 20ADD PGUPTB 001 0023902250C N20 RCCODE COMP 'C' 21CHANGE PGUPTB 001 0024002260C N20N21 RCCODE COMP 'D' 22DELETE PGUPTB 001 0024102270C N20N21N22 SETON 2350 INVALID,REJECT PGUPTB 001 0024202280C 23 GOTO DTRACC PGUPTB 001 0024302290C* PGUPTB 001 0024402300C***** PGUPTB 001 0024502310C* CHAIN TO EXISTING RPTTBL FILE PGUPTB 001 0024602320C* CHECK FOR DUPLICATES (ON ADD) PGUPTB 001 0024702330C* CHECK FOR RECORD NOT FOUND (CHANGE, DELETE) PGUPTB 001 0024802340C***** PGUPTB 001 0024902350C* PGUPTB 001 00250 C**********************************************************138**L/A 03060 001 00251 C RCNAME CHAINLARPTTBL 10 03070 001 00252 C**********************************************************138**L/A 03080 001 0025302370C* ADDS PGUPTB 001 0025402380C* IS IT A DUPLICATE PGUPTB 001 0025502390C 20 10 GOTO EDIT01 NO, OK ADD PGUPTB 001 0025602400C 20N10 SETON 70 YES, CHECK PGUPTB 001 0025702410C* YES, WAS IT DELETED PGUPTB 001 0025802420C 70 RTFLAG COMP 'D' 71 PGUPTB 001 0025902430C* YES, TREAT ADD AS CHANGE PGUPTB 001 0026002440C 71 SETOF 20 PGUPTB 001 0026102450C 71 SETON 2130 PGUPTB 001 0026202460C 71 GOTO EDIT01 PGUPTB 001 0026302470C 70N71 SETON 2351 DUPLICATE-REJ UP 001 0026402480C 70N71 SETON 2351 DUPLICATE-REJ PGUPTB 001 0026502490C 70N71 SETOF 20 PGUPTB 001 0026602500C 70N71 GOTO DTRACC PGUPTB 001 0026702510C*   3| PGUPTB 001 0026802520C* CHANGES + DELETES PGUPTB 001 0026902530C SETOF 7071 PGUPTB 001 0027002540C* WAS RECORD FOUND PGUPTB 001 0027102550C 21 10 PGUPTB 001 0027202560COR 22 10 SETON 2352 NOT FOUND-REJ PGUPTB 001 0027302570C 23 SETOF 2122 PGUPTB 001 0027402580C 23 GOTO DTRACC PGUPTB 001 0027502590C* YES, WAS IT DELETED PGUPTB 001 0027602600C RTFLAG COMP 'D' 71 PGUPTB 001 0027702610C 71 SETON 2352 PGUPTB 001 0027802620C 71 SETOF 212271 PGUPTB 001 0027902630C 23 GOTO DTRACC NOT FOUND, REJ PGUPTB 001 0028002640C 21 GOTO EDIT01 FOUND, OK CHNG PGUPTB 001 0028102650C 22 GOTO DELETE FOUND, OK DELETPGUPTB 001 0028202660C* SHOULD NEVER GET TO NEXT GOTO PGUPTB 001 0028302670C GOTO DTRACC PGUPTB 001 0028402680C* PGUPTB 001 0028502690C***** PGUPTB 001 0028602700C* EDIT DATA FOR VALIDITY--ADDS + CHANGES PGUPTB 001 0028702710C***** PGUPTB 001 0028802720C* PGUPTB 001 0028902730C EDIT01 TAG PGUPTB 001 0029002740C* EDIT STARTING POSITION 0001-2000 PGUPTB 001 0029102750C RCSTRT COMP '0001' 53 PGUPTB 001 0029202760C N53 RCSTRT COMP '2000' 53 PGUPTB 001 0029302770C 53 SETON 23 PGUPTB 001 0029402780C 53 SETOF 2021 PGUPTB 001 0029502790C 53 GOTO EDITEX PGUPTB 001 0029602800C* EDIT FIELD LENGTH 0001-2000 PGUPTB 001 0029702810C EDIT10 TAG PGUPTB 001 0029802820C RCLNG COMP '0001' 54 PGUPTB 001 0029902830C N54 RCLNG COMP '2000' 54 PGUPTB 001 0030002840C 54 SETON 23 PGUPTB 001 0030102850C 54 SETOF 2021 PGUPTB 001 0030202860C 54 GOTO EDITEX PGUPTB 001 0030302870C* ADD STARTING POSITION, FIELD LENGTH PGUPTB 001 0030402880C* CAN NOT EXCEED 2001 PGUPTB 001 0030502890C MOVE RCSTRT WKSTRT 40 PGUPTB 001 0030602900C MOVE RCLNG WKLNG 40 PGUPTB 001 0030702910C WKSTRT ADD WKLNG WKTOT 40 PGUPTB 001 0030802920C WKTOT COMP 2001 55 PGUPTB)  3} 001 0030902930C 55 SETON 23 PGUPTB 001 0031002940C 55 SETOF 2021 PGUPTB 001 0031102950C 55 GOTO EDITEX PGUPTB 001 0031202960C* EDIT DATA TYPE A, N OR T PGUPTB 001 0031302970C EDIT20 TAG PGUPTB 001 0031402980C SETOF 70 PGUPTB 001 0031502990C RCTYPE COMP 'A' 70 PGUPTB 001 0031603000C N70 RCTYPE COMP 'N' 70 PGUPTB 001 0031703010C N70 RCTYPE COMP 'T' 70 PGUPTB 001 0031803020C N70 SETON 5623 PGUPTB 001 0031903030C N70 SETOF 2021 PGUPTB 001 0032003040C 56 GOTO EDITEX PGUPTB 001 0032103050C* EDIT EDIT-CODE 1-4, A-D, J-M, Y OR BLANK PGUPTB 001 0032203060C* MUST BE TYPE CODE N OR T FOR ALL CODES PGUPTB 001 0032303070C* EXCEPT BLANK PGUPTB 001 0032403080C EDIT30 TAG PGUPTB 001 0032503090C SETOF 70 PGUPTB 001 0032603100C RCEDIT COMP ' ' 70 PGUPTB 001 0032703110C 70 GOTO EDIT40 001 0032803120C RCTYPE COMP 'A' 23 PGUPTB 001 0032903130C 23 GOTO EDIT34 PGUPTB 001 0033003140C RCEDIT COMP '1' 70 PGUPTB 001 0033103150C N70 RCEDIT COMP '2' 70 PGUPTB 001 0033203160C N70 RCEDIT COMP '3' 70 PGUPTB 001 0033303170C N70 RCEDIT COMP '4' 70 PGUPTB 001 0033403180C N70 RCEDIT COMP 'A' 70 PGUPTB 001 0033503190C N70 RCEDIT COMP 'B' 70 PGUPTB 001 0033603200C N70 RCEDIT COMP 'C' 70 PGUPTB 001 0033703210C N70 RCEDIT COMP 'D' 70 PGUPTB 001 0033803220C N70 RCEDIT COMP 'J' 70 PGUPTB 001 0033903230C N70 RCEDIT COMP 'K' 70 PGUPTB 001 0034003240C N70 RCEDIT COMP 'L' 70 PGUPTB 001 0034103250C N70 RCEDIT COMP 'M' 70 PGUPTB 001 0034203260C N70 RCEDIT COMP 'Y' 70 PGUPTB 001 0034303270C 70 GOTO EDIT40 001 0034403280C EDIT34 TAG PGUPTB 001 0034503290C SETON 5723 PGUPTB 001 0034603300C SETOF 2021 PGUPTB 001 0034703310C GOTO EDITEX PGUPTB 001 0034803320C* EDIT CLASSIFIED CODE 0 OR 1 PGUPTB 001 0034903330C EDIT40 TAG PGUPTB 001 0035003360C 58 SETON 23   3~ PGUPTB 001 0035103370C 58 SETOF 2021 PGUPTB 001 0035203380C 58 GOTO EDITEX PGUPTB 001 0035303390C* EDIT DECIMAL POSITIONS BLANK, 0-9 PGUPTB 001 0035403400C EDIT50 TAG PGUPTB 001 0035503410C SETOF 7071 PGUPTB 001 0035603420C RCDPOS COMP ' ' 70 PGUPTB 001 0035703430C N70 71 RCDPOS COMP '9' 7171 PGUPTB 001 0035803440C N70 RCDPOS COMP '0' 71 71 PGUPTB 001 0035903450C* IF 70, TYPE MUST BE ALPHA PGUPTB 001 0036003460C* IF 71, TYPE MUST BE N OR T PGUPTB 001 0036103470C* IF NEITHER, INVALID DECIMAL POSITIONS PGUPTB 001 0036203480C 70 RCTYPE COMP 'A' 2323 PGUPTB 001 0036303490C 71 RCTYPE COMP 'A' 23 PGUPTB 001 0036403500C N70N71 SETON 23 PGUPTB 001 0036503510C 23 SETON 59 PGUPTB 001 0036603520C 23 SETOF 2021 PGUPTB 001 0036703530C 23 GOTO EDITEX PGUPTB 001 0036803540C* EDIT REPORT DESCRIPTION PGUPTB 001 0036903550C* NOTE DOES NOT REJECT IF MISSING PGUPTB 001 0037003560C EDIT60 TAG PGUPTB 001 0037103570C RCDESC COMP BLK,1 60 PGUPTB 001 0037203580C* EDIT SUB DATA NAMES PGUPTB 001 0037303590C EDIT70 TAG PGUPTB 001 0037403595C SETOF 708182 001 0037503596C SETOF 838485 001 0037603600C Z-ADD0 LP 10 001 0037703610C MOVE RCSN1 RCKEY 6 001 0037803620C EDIT71 TAG 001 0037903630C RCKEY COMP ' ' 70 001 0038003640C 70 GOTO EDIT72 001 00381 C**********************************************************138**L/A 03100 001 00382 C RCKEY CHAINLARPTTBL 10 03110 001 00383 C**********************************************************138**L/A 03120 001 0038403660C 10 SETON 2362 001 0038503670C 10 GOTO EDIT76 001 0038603680C EDIT72 TAG 001 0038703690C LP ADD 1 LP 001 0038803700C LP COMP 1 81 001 0038903710C LP COMP 2 82 001 0039003720C LP COMP 3 83 001 0039103730C LP COMP 4 84 001 0039203740C LP COMP en  35 85 001 0039303750C 81 MOVE RCSN2 RCKEY 001 0039403760C 82 MOVE RCSN3 RCKEY 001 0039503770C 83 MOVE RCSN4 RCKEY 001 0039603780C 84 MOVE RCSN5 RCKEY 001 0039703790C 85 GOTO EDIT75 001 0039803800C GOTO EDIT71 001 0039903900C EDIT75 TAG PGUPTB 001 00400 C**********************************************************138**L/A 03140 001 00401 C RCNAME CHAINLARPTTBL 10 03150 001 00402 C**********************************************************138**L/A 03160 001 0040303920C GOTO DTRACC PGUPTB 001 0040403930C EDIT76 TAG ERROR PGUPTB 001 0040503940C SETOF 2021 PGUPTB 001 0040603950C* FATAL ERROR DURING EDITING PGUPTB 001 0040703960C EDITEX TAG PGUPTB 001 0040803970C GOTO DTRACC PGUPTB 001 0040903980C* PGUPTB 001 0041003990C***** PGUPTB 001 0041104000C* PROCESS DELETES PGUPTB 001 0041204010C***** PGUPTB 001 0041304020C* PGUPTB 001 0041404030C DELETE TAG PGUPTB 001 0041504040C MOVE 'D' RTFLAG SET DELETE FLAGPGUPTB 001 0041604050C GOTO DTRACC PGUPTB 001 0041704060C* PGUPTB 001 0041804070C***** PGUPTB 001 0041904080C* ADD TO ACCUMULATORS FOR ADDS, CHANGES, DELETES PGUPTB 001 0042004090C* ADD TO LINE COUNT + SET INDICATOR FOR HEADING IF OVERFLOW PGUPTB 001 0042104100C**** PGUPTB 001 0042204110C* PGUPTB 001 0042304120C DTRACC TAG PGUPTB 001 0042404130C 20 PGUPTB 001 0042504140COR 21 30 TADDS ADD 1 TADDS PGUPTB 001 0042604150C 21N30 TCHGS ADD 1 TCHGS PGUPTB 001 0042704160C 22 TDELS ADD 1 TDELS PGUPTB 001 0042804170C 23 TREJS ADD 1 TREJS PGUPTB 001 0042904180C LNCNT ADD 1 LNCNT PGUPTB 001 0043004190C LNCNT COMP 50 40 PGUPTB 001 0043104200C 40 Z-ADD8 LNCNT PGUPTB 001 0043204210C* PGUPTB 001 0043304220C***** PGUPTB 001 0043404230C* y  3 PRINT DETAIL LINE, HEADINGS IF NECESSARY PGUPTB 001 0043504240C* THEN GET NEXT RECORD PGUPTB 001 0043604250C***** PGUPTB 001 0043704260C* PGUPTB 001 0043804270C EXCPT PGUPTB 001 0043904280C GOTO DTRDEV PGUPTB 001 0044004290C END TAG PGUPTB 001 0044104300C* PGUPTB 001 0044204310C***** PGUPTB 001 0044304320C* PRINT TOTALS ON LAST RECORD PGUPTB 001 0044404330C***** PGUPTB 001 0044504340C* PGUPTB 001 0044604350CLR Z-ADDTADDS TTOTL1 40 PGUPTB 001 0044704360CLR TTOTL1 ADD TCHGS TTOTL1 PGUPTB 001 0044804370CLR TTOTL1 ADD TDELS TTOTL1 PGUPTB 001 0044904380CLR Z-ADDTTOTL1 TTOTL2 40 PGUPTB 001 0045004390CLR TTOTL2 ADD TREJS TTOTL2 PGUPTB 001 0045104400CLR LNCNT ADD 11 LNCNT PGUPTB 001 0045204410CLR LNCNT COMP 50 40 PGUPTB 001 0045304420CLR SETON 91 PGUPTB 001 0045404430CLR SETOF 202122 PGUPTB 001 0045504440CLR SETOF 23 PGUPTB 001 0045604450CLR EXCPT PGUPTB 001 0045704460O* PGUPTB 001 0045804470O* PGUPTB 001 00459 O**********************************************************138**L/A 03180 001 00460 OLARPTTBLE 21 03 03190 001 00461 O**********************************************************138**L/A 03200 001 0046204490O RCNAME 6 PGUPTB 001 0046304500O RCSTRT 10 PGUPTB 001 0046404510O RCLNG 14 PGUPTB 001 0046504520O RCTYPE 15 PGUPTB 001 0046604530O RCEDIT 16 PGUPTB 001 0046704540O RCCLAS 17 PGUPTB 001 0046804550O RCDPOS 18 PGUPTB 001 0046904560O RCDESC 48 PGUPTB 001 0047004570O RCSN1 54 PGUPTB 001 0047104580O RCSN2 60 PGUPTB 001 0047204590O RCSN3 66 PGUPTB 001 0047304600O RCSN4 72 PGUPTB 001 0047404610O RCSN5 78 PGUPTB 001 0047504620O 80 ' ' PGI  3UPTB 001 0047604630O E 22 03 PGUPTB 001 0047704640O RTREC 80 PGUPTB 001 0047804650O RCCODE 80 PGUPTB 001 0047904660O EADD 20 PGUPTB 001 0048004670O RCNAME 6 PGUPTB 001 0048104680O RCSTRT 10 PGUPTB 001 0048204690O RCLNG 14 PGUPTB 001 0048304700O RCTYPE 15 PGUPTB 001 0048404710O RCEDIT 16 PGUPTB 001 0048504720O RCCLAS 17 PGUPTB 001 0048604730O RCDPOS 18 PGUPTB 001 0048704740O RCDESC 48 PGUPTB 001 0048804750O RCSN1 54 PGUPTB 001 0048904760O RCSN2 60 PGUPTB 001 0049004770O RCSN3 66 PGUPTB 001 0049104780O RCSN4 72 PGUPTB 001 0049204790O RCSN5 78 PGUPTB 001 0049304800O 80 ' ' PGUPTB 001 0049404810O* PGUPTB 001 0049504820OPRINT E 101 40 PGUPTB 001 0049604830O HDR,1 40 PGUPTB 001 0049704840O 113 'PAGE' PGUPTB 001 0049804850O PAGE Z 118 PGUPTB 001 0049904860O E 1 40 PGUPTB 001 0050004870O HDR,2 40 PGUPTB 001 0050104880O 113 'DATE RUN' PGUPTB 001 0050204890O UDATE Y 123 PGUPTB 001 0050304900O E 1 40 PGUPTB 001 0050404910O HDR,3 40 PGUPTB 001 0050504920O E 2 40 PGUPTB 001 0050604930O 6 'PGUPTB' PGUPTB 001 0050704940O 63 'CHANGES TO THE REPORT ' PGUPTB 001 0050804950O 87 'GENERATOR DATA NAME LIST' PGUPTB 001 0050904960O E 1 40 PGUPTB 001 0051004970O 14 'STARTING' 77U7T2 001 00511 O 35 'DATA EDIT DEC' 001 0051204990O 99 ' SUB SUB SUB ' PGUPTB 001 0051305000O 117 'SUB SUB CHANGE' PGUPTB 001 0051405010O E 2 40 PGUPTB 001 0051505020O 22 ' NAME POSITION LENGTH ' PGUPTB 001 00516 O 35 'TYPE CODE POS' 001 0051705040O 56 ' DESCR"  3&IPTION' 001 0051805050O 98 'NAME1 NAME2 NAME3 ' P7UPT2 001 0051905060O 116 'NAME4 NAME5 CODE' PGUPTB 001 0052005070O E 1 20 PGUPTB 001 0052105080O OR 21 PGUPTB 001 0052205090O OR 22 PGUPTB 001 0052305100O OR 23 PGUPTB 001 0052405110O RCNAME 6 PGUPTB 001 0052505120O RCSTRT 12 PGUPTB 001 0052605130O RCLNG 20 PGUPTB 001 0052705140O RCTYPE 24 PGUPTB 001 0052805150O RCEDIT 29 PGUPTB 001 0052905160O RCDPOS 34 PGUPTB 001 0053005180O RCDESC 75 PGUPTB 001 0053105190O RCSN1 83 PGUPTB 001 0053205200O RCSN2 90 PGUPTB 001 0053305210O RCSN3 97 PGUPTB 001 0053405220O RCSN4 104 PGUPTB 001 0053505230O RCSN5 111 PGUPTB 001 0053605240O 22 RTNAME 6 PGUPTB 001 0053705250O 22 RTSTRT 12 PGUPTB 001 0053805260O 22 RTLNG 20 PGUPTB 001 0053905270O 22 RTTYPE 24 PGUPTB 001 0054005280O 22 RTEDIT 29 PGUPTB 001 0054105290O 22 RTDPOS 34 PGUPTB 001 0054205310O 22 RTDESC 75 PGUPTB 001 0054305320O 22 RTSN1 83 PGUPTB 001 0054405330O 22 RTSN2 90 PGUPTB 001 0054505340O 22 RTSN3 97 PGUPTB 001 0054605350O 22 RTSN4 104 PGUPTB 001 0054705360O 22 RTSN5 111 PGUPTB 001 0054805370O RCCODE 115 PGUPTB 001 0054905380O 50 132 'INVLD CHG CODE' PGUPTB 001 0055005390O 51 132 'DUPL RECORD ' PGUPTB 001 0055105400O 52 132 'REC NOT FOUND ' PGUPTB 001 0055205410O 53 132 'INVLD STRT POS' PGUPTB 001 0055305420O 54 132 'INVLD LENGTH ' PGUPTB 001 0055405430O 55 132 'DATA GT RC LNG' PGUPTB 001 0055505440O 56 132 'INVLD DATA TYP' PGUPTB 001 0055605450O 57 132 'INVLD EDT CODE' PGUPTB 001 0055705460O 58 132 'INVLD CLS CODE' PGUPTB 001 0055805470O 59 132 'INVLD DEC POS ' PGUPTB 001 0055905480O 61p  3: 132 'INVLD SUB NM1 ' PGUPTB 001 0056005490O 62 132 'INVLD SUB NM2 ' PGUPTB 001 0056105500O 63 132 'INVLD SUB NM3 ' PGUPTB 001 0056205510O 64 132 'INVLD SUB NM4 ' PGUPTB 001 0056305520O 65 132 'INVLD SUB NM5 ' PGUPTB 001 0056405530O E 21 91 PGUPTB 001 0056505540O 14 'ADDS ' PGUPTB 001 0056605550O TADDS 3 19 PGUPTB 001 0056705560O E 1 91 PGUPTB 001 0056805570O 14 'CHANGES' PGUPTB 001 0056905580O TCHGS 3 19 PGUPTB 001 0057005590O E 1 91 PGUPTB 001 0057105600O 14 'DELETES' PGUPTB 001 0057205610O TDELS 3 19 PGUPTB 001 0057305620O E 2 91 PGUPTB 001 0057405630O 14 'TOTAL ' PGUPTB 001 0057505640O TTOTL13 19 P7U732 001 0057605650O E 2 91 PGUPTB 001 0057705660O 14 'REJECTS' PGUPTB 001 0057805670O TREJS 3 19 PGUPTB 001 0057905680O E 1 91 PGUPTB 001 0058005690O 14 'TOTAL ' PGUPTB 001 0058105700O TTOTL23 19 P7UPT2 001 00582** 05710 001 00583 05720 001 00584** 05730 001 00585 ENTER A TO ADD, C TO CHANGE, D TO DELETE OR E TO EXIT 001 00586 ENTER DATA NAME MUST ENTER 6 CHARACTERS (XXXXXX) 001 00587 ENTER STARTING POSITION (XXXX) 0001-2000 001 00588 ENTER LENGTH (XXXX) 0001-2000 001 00589 ENTER DATA TYPE (X) A, N OR T 001 00590 ENTER EDIT CODE (X) BLANK,1-4,A-D,J-M,Y 001 00591 ENTER CLASSIFIED CODE (X) 0 OR 1 001 00592 ENTER # DECIMAL POSITIONS (X) 0-9 001 00593 ENTER DATA DESCRIPTION 30 CHARACTERS 001 00594 ENTER SUB DATA NAME 1 MUST ENTER 6 CHARACTERS (XXXXXX) 001 00595 ENTER SUB DATA NAME 2 MUST ENTER 6 CHARACTERS (XXXXXX) 001 00596 ENTER SUB DATA NAME 3 MUST ENTER 6 CHARACTERS (XXXXXX) 001 00597 ENTER SUB DATA NAME 4 MUST ENTER 6 CHARACTERS (XXXXXX) 001 00598 ENTER SUB DATA NAME 5 MUST ENTER 6 CHARACTERS (XXXXXX) 001 00599 VERIFY--ENTER OK TO ACCEPT DATA 001 00600/* 05870 001 00601 R  3N H LTMUSE 001 00001 X 1 G15 R LA CCS 3.0 SL-149 01340 001 00002 F* G15 R LA CCS 3.0 SL-149 01350 001 0000300040F* T01360 001 00004 F* LEGAL AND AGENCY VERSION 3 01370 001 00005 F* DATA SYSTEM-LA JOLLA DIVISION, LAJOLLA, CALIFORNIA 01380 001 00006 F* COPYRIGHT CONTROL DATA CORPORATION, 1979 01390 001 00007 F* 01400 001 00008 F* 001 0000900050F* THIS PROGRAM PRODUCES THE TIME USAGE REPORT, A REPORT OF TIMUSE 001 0001000060F* ALL ACCOUNT ACTIVITIES BY COLLECTOR. IT ALSO UPDATES THE TIMUSE 001 0001100070F* COLSTATS FILE FOR GENERATING THE COLLECTOR STATS REPORT. TIMUSE 001 0001200080F* TIMUSE 001 00013 F**********************************************************138**L/A 03290 001 00014 FLATRNSFLIP F 138 DISK 03300 001 00015 FLAUTIFILUC F 80R 4AI 1 DISK 03310 001 00016 FLACOLSTSUC F 20R 7AI 1 DISK A 03320 001 00017 FLADLYWRKO F 40 DISK 03330 001 00018 F**********************************************************138**L/A 03340 001 0001900120FPRINT O F 132 OV PRINTER TIMUSE 001 00020 I**********************************************************138**L/A 03360 001 00021 ILATRNSFLAA 01 29 C0 30 C1 03370 001 00022 I**********************************************************138**L/A 03380 001 0002300140I OR 02 TIMUSE 001 0002400150I 1 16 ACT L1 TIMUSE 001 0002500160I 17 20 ID L2 TIMUSE 001 0002600170I 21 220BTT TIMUSE 001 0002700180I 23 240BTA TIMUSE 001 0002800190I 21 240BT TIMUSE 001 0002900200I 25 260ETT TIMUSE 001 0003000210I 27 280ETA TIMUSE 001 0003100220I 25 280ET TIMUSE 001 00032 I 29 30 TC L3 001 0003300230I 31 36 DATE TIMUSE 001 0003400240I 37 38 AC TIMUSE 001 0003500250I 39 40 RC TIMUSE 001 0003600260I 41 42 LT TIMUSE 001 00037 I 43 98 CMT 001 00038 I 99 1040NCDT 001 0003900290I 134 134 AFLAG TIMUSE 001 00040 I**********************************************************138**L/A 03400 001 00041 ILACOLSTSAA 03 t  3b 03410 001 00042 I**********************************************************138**L/A 03420 001 0004300310I 8 110DCNT TIMUSE 001 0004400320I 12 150WCNT TIMUSE 001 0004500330I 16 190MCNT TIMUSE 001 00046 I**********************************************************138**L/A 03440 001 00047 ILAUTIFILAA 04 03450 001 00048 I**********************************************************138**L/A 03460 001 0004900350I 5 44 HD TIMUSE 001 0005000360I 5 19 CNAM TIMUSE 001 00051 I 20 20 CINT 00750 001 00052 I 37 40 SUPID 41 001 0005300370I 75 800ACTCNT 001 0005400380C SETOF 115071 TIMUSE 001 00055 C SETOF 40 06-07-78 001 00056 C 02 SETON LR12 001 0005700390C 02 GOTO END TIMUSE 001 0005800400C 10 GOTO ARND TIMUSE 001 0005900410C* PICK UP THE REPORT HEADINGS FROM THE UTIFIL FILE TIMUSE 001 00060 C**********************************************************138**L/A 03480 001 00061 C 'HDR1' CHAINLAUTIFIL 20 03490 001 00062 C**********************************************************138**L/A 03500 001 0006300430C N20 MOVE HD HDR1 40 TIMUSE 001 00064 C**********************************************************138**L/A 03520 001 00065 C 'HDR2' CHAINLAUTIFIL 20 03530 001 00066 C**********************************************************138**L/A 03540 001 0006700450C N20 MOVE HD HDR2 40 TIMUSE 001 00068 C**********************************************************138**L/A 03560 001 00069 C 'HDR3' CHAINLAUTIFIL 20 03570 001 00070 C**********************************************************138**L/A 03580 001 0007100470C N20 MOVE HD HDR3 40 TIMUSE 001 0007200480C SETON 1011 TIMUSE 001 0007300490C ARND TAG TIMUSE 001 0007400500C L1 TAR1 ADD 1 TAR1 40 001 0007500510C* IF NEW COLLECTOR - LOCATE NAME IN UTIFIL FILE TIMUSE 001 00076 C**********************************************************138**L/A 03600 001 00077 C L2 ID CHAINLAUTIFIL 20 03610 001 00078 C**********************************************************138**L/A 03620 001 0007900530C* PREPARE START/STOP TIMES FOR OUTPUT TIMUSE 001 0008000540C BTA COMP 99 60 TIMUSE 001 0008100550C AFLAG COMP '0' 61 TIMUSE 001 0008200560C AFLAG COMP 'L' 62 TIMUSE 001 0008300570C AFLAG COMP ' ' E  3v 6363 TIMUSE 001 0008400580C N62 63 TIMUSE 001 0008500590COR 60 TIMUSE 001 0008600600COR 61 GOTO UPDAT TIMUSE 001 0008700610C* TAKE CARE OF TIMES WHEN START AND STOP IN DIFFERENT HOURS TIMUSE 001 0008800620C ETT MULT 60 ETW 40 TIMUSE 001 0008900630C ETW ADD ETA ETW TIMUSE 001 0009000640C BTT MULT 60 BTW 40 TIMUSE 001 0009100650C BTW ADD BTA BTW TIMUSE 001 0009200660C ETW SUB BTW BTN 40 TIMUSE 001 0009300670C BTN COMP 0000 50 TIMUSE 001 0009400680C 50 Z-ADD1 BTN TIMUSE 001 0009500690C TBTN ADD BTN TBTN 60 TIMUSE 001 0009600700C BTN DIV 60 BTX 20 TIMUSE 001 0009700710C MVR ELT 40 TIMUSE 001 0009800720C MOVELBTX ELT TIMUSE 001 0009900730C SETON 50 TIMUSE 001 0010000740C UPDAT TAG 001 00101 C AC COMP 'SR' 40 001 0010200750C* UPDATE THE COUNTS IN THE COLSTATS FILE FOR THE ACTION/RESULT TIMUSE 001 0010300760C MOVE AC KY 6 TIMUSE 001 0010400770C MOVELID KY TIMUSE 001 0010500780C MOVE KY KEY 7 TIMUSE 001 0010600790C MOVEL'A' KEY TIMUSE 001 0010700800C NXT TAG TIMUSE 001 00108 C**********************************************************138**L/A 03640 001 00109 C KEY CHAINLACOLSTS 30 03650 001 00110 C**********************************************************138**L/A 03660 001 0011100820C N30 DCNT ADD 1 DCNT TIMUSE 001 0011200830C N30 WCNT ADD 1 WCNT TIMUSE 001 0011300840C N30 MCNT ADD 1 MCNT TIMUSE 001 0011400850C 30 Z-ADD1 DCNT TIMUSE 001 0011500860C 30 Z-ADD1 WCNT TIMUSE 001 0011600870C 30 Z-ADD1 MCNT TIMUSE 001 0011700880C SETON 70 TIMUSE 001 0011800890C EXCPT TIMUSE 001 0011900900C SETOF 70 TIMUSE 001 0012000910C 71 GOTO END TIMUSE 001 0012100920C MOVE RC KEY TIMUSE 001 0012200930C MOVEL'R' KEY TIMUSE 001 0012300940C SETON 71 TIMUSE 001 0012400950C GOTO NXT TIMUSE 001 0012500960C END oa  3 TAG TIMUSE 001 0012600970CL2 TBTN DIV 60 BTX 001 0012700980CL2 MVR TLT 40 001 0012800990CL2 MOVELBTX TLT 001 0012901000CL2 Z-ADD0 TBTN 001 0013001010CL2 Z-ADDTAR1 TAR 40 001 0013101020CL2 Z-ADD0 TAR1 40 001 0013201030CL2 TAR ADD ACTCNT ACTCNT 001 00133 CL2 SETOF 11 001 00134 O**********************************************************138**L/A 03680 001 00135 OLACOLSTSE 70N30 03690 001 00136 O**********************************************************138**L/A 03700 001 0013701050O DCNT 11 TIMUSE 001 0013801060O WCNT 15 TIMUSE 001 0013901070O MCNT 19 TIMUSE 001 0014001080O EADD 70 30 TIMUSE 001 0014101090O KEY 7 TIMUSE 001 0014201100O DCNT 11 TIMUSE 001 0014301110O WCNT 15 TIMUSE 001 0014401120O MCNT 19 TIMUSE 001 00145 OPRINT T 2 L2N11N12 001 0014601140O 27 'TOTALS- TIME' TIMUSE 001 0014701150O TLT 38 ' 0: ' TIMUSE 001 00148 O T 1 L2N11N12 001 0014901170O 27 'ACCOUNTS' 001 0015001180O TAR Z 38 001 0015101190O D 01 11 TIMUSE 001 0015201200O OR 01 OV TIMUSE 001 0015301210O OR 01 L2NLRN02 TIMUSE 001 0015401220O HDR1 40 TIMUSE 001 0015501230O D 1 11 TIMUSE 001 0015601240O OR 1 OV TIMUSE 001 0015701250O OR 1 L2NLRN02 TIMUSE 001 0015801260O HDR2 40 TIMUSE 001 0015901270O 75 'TIME USAGE REPORT' TIMUSE 001 0016001280O 121 'PAGE' TIMUSE 001 0016101290O PAGE 126 TIMUSE 001 0016201300O D 1 11 TIMUSE 001 0016301310O OR 1 OV TIMUSE 001 0016401320O OR 1 L2NLRN02 TIMUSE 001 0016501330O HDR3 40 TIMUSE 001 0016601340O 65 'AS OF:' TIMUSE 001 00167MJ  301350O UDATE Y 74 TIMUSE 001 0016801360O D 2 11 TIMUSE 001 0016901370O OR 2 OV TIMUSE 001 0017001380O OR 2 L2NLRN02 TIMUSE 001 0017101390O 17 'COLLECTOR:' TIMUSE 001 00172 O CINT 20 00770 001 00173 O N20 CNAM 37 001 0017401430O D 2 11 TIMUSE 001 0017501440O OR 2 OV TIMUSE 001 0017601450O OR 2 L2NLRN02 TIMUSE 001 0017701460O 17 'ACCOUNT' TIMUSE 001 0017801470O 26 'START' TIMUSE 001 0017901480O 33 'STOP' TIMUSE 001 0018001490O 38 'ELAP' TIMUSE 001 0018101500O 47 'NEXT' TIMUSE 001 0018201510O 53 'ACT' TIMUSE 001 0018301520O 58 'RES' TIMUSE 001 0018401530O 64 'LTR' TIMUSE 001 0018501540O D 11 11 TIMUSE 001 0018601550O OR 11 OV TIMUSE 001 0018701560O OR 11 L2NLRN02 TIMUSE 001 0018801570O 17 'NUMBER' TIMUSE 001 0018901580O 26 'TIME' TIMUSE 001 0019001590O 33 'TIME' TIMUSE 001 0019101600O 38 'TIME' TIMUSE 001 0019201610O 47 'CONTACT' TIMUSE 001 0019301620O 53 'CDE' TIMUSE 001 0019401630O 58 'CDE' TIMUSE 001 0019501640O 64 'CDE' TIMUSE 001 0019601650O 73 'COMMENT' TIMUSE 001 0019701660O D 1 01 TIMUSE 001 0019801670O L1 ACT 19 TIMUSE 001 0019901680O 50N62BT 26 ' 0: ' TIMUSE 001 0020001690O 61N62BT 26 ' 0: ' TIMUSE 001 0020101700O 50 ET 33 ' 0: ' TIMUSE 001 0020201710O 50 ELT 38 ' 0: ' TIMUSE 001 0020301720O NCDT 47 ' / / ' TIMUSE 001 0020401730O AC 53 TIMUSE 001 0020501740O RC 58 TIMUSE 001 0020601750O LT 64 TIMUSE 001 0020701760O CMT 126 TIMUSE 001 0020801770O T 3 LR H  3 TIMUSE 001 0020901780O 70 '*** END OF REPORT ***' 001 00210 O**********************************************************138**L/A 03720 001 00211 OLAUTIFILT L2 04 03730 001 00212 O**********************************************************138**L/A 03740 001 0021301800O ACTCNT 80 001 00214 O**********************************************************138**L/A 03760 001 00215 OLADLYWRKD 40 03770 001 00216 O**********************************************************138**L/A 03780 001 00217 O ACT 16 001 00218 O UDATE 26 001 00219 O 41 20 'SR ' 001 00220 O N41 SUPID 20 001 00221/* 01810 001 00222 H LTRNDP 001 00001 X 1 G16 R LA CCS 3.0 SL-149 01430 001 00002 F* G16 R LA CCS 3.0 SL-149 01440 001 0000300040F* 01450 001 0000400050F* LEGAL AND AGENCY VERSION 3 01460 001 0000500060F* DATA SYSTEMS-LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 01470 001 00006 F* COPYRIGHT CONTROL DATA CORPORATION, 1979 01480 001 0000700080F* 01490 001 0000800090F* THIS PROGRAM PRODUCES THE TREND ANALYSIS REPORT. THIS 001 0000900100F* REPORT SHOWS ACCOUNT MOVEMENT BETWEEN PERIODS(DAYS) OF 001 0001000110F* DELINQUENCY. THE FILE, AGEWRK, HAS BEEN UPDATED BY TRENDE 001 0001100120F* PRIOR TO EXECUTION OF THIS PROGRAM. THE REPORT IS PRINTED 001 0001200130F* EITHER BY QUEUE OR BY PRODUCT TYPE DETERMINED BY AN EXTERNAL 001 0001300140F* SWITCH SETTING: 001 0001400150F* IF U1 ON REPORT IS BY QUEUE 001 0001500160F* IF U1 OFF REPORT IS BY PRODUCT TYPE 001 00016 F* 001 00017 F* IF U2 ON CURRENT PAYOFF IS SUMMED 001 00018 F* IF U2 OFF AMOUNT PAST DUE IS SUMMED 001 00019 F* 001 00020 F* IF U3 ON GROUP BREAKS ARE IGNORED 001 00021 F* IF U3 OFF GROUP BREAKS ARE USED 001 0002200170F* 001 00023 F**********************************************************138**L/A 03870 001 00024 FLAAGEWRKIPE F 82 DISK 03880 001 00025 FLAUTIFILIC F 80R 4AI 1 DISK 03890 001 00026 F**********************************************************138**L/A 03900 001 0002700200FPRINT O F 132 PRINTER 001 0002800210F* [  3 001 0002900230E DAYS 10 10 3 0 001 0003000240E HDR 3 40 001 0003100250E BVD 99 9 0 BVC 6 0 BREAK VALUES 001 0003200260E TVD 99 9 0 TVC 6 0 TOTAL VALUES 001 0003300270E OD 11 9 0 OC 6 0 OUTPUT LINE 001 00034 I**********************************************************138**L/A 03920 001 00035 ILAAGEWRKAA 01 03930 001 00036 I**********************************************************138**L/A 03940 001 0003700290I 1 1 AACTFG 001 0003800300I 2 16 AACCT 001 00039 I 17 20 AQUE 03960 001 0004000320I 21 24 ALCID 001 0004100330I 25 28 ATCD 001 00042 I 29 340ADLDT 03980 001 0004300350I 35 370ADYDL 001 0004400360I 38 400ALDYS 001 0004500370I 41 470APYOF 001 0004600380I 50 560ALPYF 001 0004700390I 59 650ADLQ 001 0004800400I 68 740APADQ 001 0004900410I 77 77 ASTAT 001 0005000420I 78 79 AFLG1 001 0005100430I 80 81 AFLG2 001 0005200440I 82 82 AFLG3 001 00053 I 29 340RNDT 001 00054 I 35 400LRNDT 60 001 00055 I**********************************************************138**L/A 04000 001 00056 ILAUTIFILAA 41 04010 001 00057 I**********************************************************138**L/A 04020 001 0005800460I 5 44 HEADER 001 0005900470C* 001 0006000480C**** SETUP REPORT HEADINGS 001 0006100490C INIT TAG 001 0006200500C 46 GOTO AROUND 001 0006300510C MOVE ' ' WKBRK 4 001 0006400520C Z-ADD1 IX 20 001 00065 C**********************************************************138**L/A 04040 001 00066 C 'HDR1' CHAINLAUTIFIL 47 04050 001 00067 C**********************************************************138**L/A 04060 001 0006800540C N47 MOVEAHEADER HDR,1 001 00069 C**********************************************************138**L/A 04080 001 00070 C 'HD@m  3R2' CHAINLAUTIFIL 47 04090 001 00071 C**********************************************************138**L/A 04100 001 0007200560C N47 MOVEAHEADER HDR,2 001 00073 C**********************************************************138**L/A 04120 001 00074 C 'HDR3' CHAINLAUTIFIL 47 04130 001 00075 C**********************************************************138**L/A 04140 001 0007600580C N47 MOVEAHEADER HDR,3 001 00077 C MOVE RNDT RUND 60 001 00078 C N60 MOVE LRNDT LRUN 60 04160 001 00079 C N60 SETON 61 04170 001 00080 C SETOF 01 001 0008100590C AROUND TAG 001 0008200600C SETON 46 001 0008300610C PROC TAG 001 00084 C* SET UP CONTROL BREAKS 04190 001 0008500630C 01N57NU1 MOVELATCD WKBRK 001 00086 C 01N57 U1 MOVE AQUE WKBRK 04210 001 0008700650C 01N57 MOVE AACTFG WKCDE 1 001 0008800660C 01N57 SETON 57 001 0008900670C 01 U1 SETON 51 001 00090 C 01NU3 AACTFG COMP WKCDE 5050 001 0009100690C 01N50NU1ATCD COMP WKBRK 5050 001 00092 C 01N50 U1AQUE COMP WKBRK 5050 04230 001 0009300710C 01 50 EXSR ADDEM 001 0009400720C 01 50 EXSR SCRIBE 001 00095 C* SET UP CONTROL BREAKS 04250 001 0009600730C 01 50NU1 MOVELATCD WKBRK 001 00097 C 01 50 U1 MOVE AQUE WKBRK 04270 001 0009800750C 01 50 MOVE AACTFG WKCDE 001 0009900760C 01 50 SETOF 50 001 0010000770C 01 MOVE WKCDE TCA 1 001 0010100780C 01 MOVE WKBRK TCX 4 001 00102 C* 04290 001 00103 C* COMPUTE THE Y AND X AXIS FOR THIS RUN FROM DAYS DELQ 04300 001 00104 C* FIND THE CURRENT POSITION 04310 001 00105 C SETOF 0204 04320 001 00106 C* NOT YET DELQ 04330 001 00107 C 01 ALDYS COMP 0 02 04340 001 00108 C 01 ADYDL COMP 0 04 04350 001 00109 C 01 02 04 GOTO END2 04360 001 00110 C* NEWLY ADDED NOT DELQ LAST RUN 04370 001 00111 C 01 02 Z-ADD1 Y 04380 001 0  30112 C 01 02 EXSR SETX 04390 001 00113 C* NOT NEW THIS RUN OR LAST RUN 04400 001 00114 C 01N02 EXSR SETX 04410 001 00115 C 01N02 EXSR SETY 04420 001 00116 C* 04430 001 00117 C 01NU2 MOVE ADLQ WRKAMT 70 04440 001 00118 C 01 U2 MOVE APYOF WRKAMT 04450 001 00119 C* UPDATE FIELDS FOR CURRENT RUN 04460 001 00120 C 01 EXSR UPDATE 04470 001 00121 C* 04480 001 00122 C* COMPUTE THE X AND Y AXIS FOR LAST RUN 04490 001 00123 C* FIND LAST RUN POSITION 04500 001 00124 C* NEWLY ADDED NOT DELQ LAST RUN 04510 001 00125 C 01 02 Z-ADD1 Y 04520 001 00126 C 01 02 Z-ADD1 X 04530 001 00127 C* NOT NEW THIS RUN OR LAST RUN 04540 001 00128 C 01N02 Z-ADD1 X 04550 001 00129 C 01N02 EXSR SETY 04560 001 00130 C* 04570 001 00131 C 01NU2 02 MOVE ADLQ WRKAMT 04580 001 00132 C 01 U2 02 MOVE APYOF WRKAMT 04590 001 00133 C 01NU2N02 MOVE APADQ WRKAMT 04600 001 00134 C 01 U2N02 MOVE ALPYF WRKAMT 04610 001 00135 C* UPDATE FOR LAST RUN FIELDS 04620 001 00136 C 01 EXSR UPDATE 04630 001 00137 C END2 TAG 04640 001 00138 C* 04650 001 0013900870CLR EXSR ADDEM 001 0014000880CLR EXSR SCRIBE 001 0014100890CLR EXSR CLOSE 001 0014200900CLR EXSR SCRIBE 001 0014300910C* 001 00144 C* FIND THE Y POSITION IN THE MATRIX 04670 001 0014500920CSR SETY BEGSR 001 0014600930CSR Z-ADD1 Y 30 001 0014700940CSR SY1 TAG 001 0014800950CSR ALDYS COMP DAYS,Y 1010 001 0014900960CSRN10 1 ADD Y Y 001 0015000970CSRN10 GOTO SY1 001 0015100980CSR 1 ADD Y Y 001 0015200990CSR ENDSR 001 0015301000C*  3 001 0015401010C* 001 0015501020CSR SETX BEGSR 001 0015601030CSR Z-ADD1 X 30 001 0015701040CSR SX1 TAG 001 0015801050CSR ADYDL COMP DAYS,X 1010 001 0015901060CSRN10 1 ADD X X 001 0016001070CSRN10 GOTO SX1 001 0016101080CSR 1 ADD X X 001 0016201090CSR ENDSR 001 0016301100C* 001 0016401110C* 001 00165 C* FIND THE X POSITION IN THE MATRIX 04690 001 0016601120CSR UPDATE BEGSR 001 0016701130CSR Y SUB 1 N 30 001 0016801140CSR N MULT 11 N 001 0016901150CSR N ADD X N 001 00170 CSR WRKAMT ADD BVD,N BVD,N 04710 001 00171 CSR 1 ADD BVC,N BVC,N 04720 001 0017201180CSR ENDSR 001 0017301190C* 001 0017401200C* 001 00175 C* ADDS COLUMNS (DOWN) IN THE MATRIX 04740 001 0017601210CSR ADDEM BEGSR 001 0017701220CSR Z-ADD1 C 001 0017801230CSR Z-ADD1 A 001 0017901240CSR Z-ADD89 I 30 001 0018001250CSR PT1 TAG 001 0018101260CSR Z-ADD1 B 001 0018201270CSR PT2 TAG 001 0018301280CSR BVD,C ADD BVD,I BVD,I 001 0018401290CSR BVC,C ADD BVC,I BVC,I 001 0018501300CSR 11 ADD C C 001 0018601310CSR 1 ADD B B 001 00187 CSR B COMP 8 3232 001 0018801330CSR 32 GOTO PT2 001 0018901340CSR C SUB 87 C 001 0019001350CSR 1 ADD I I 001 0019101360CSR 1 ADD A A 001 0019201370CSR A COMP 11 3232 001 0019301380CSR 32 GOTO PT1 001 0019401390CSR ENDSR 001 0019501400C* 8  3 001 0019601410C* 001 00197 C* MOVES DATA TO OUTPUT BUFFER - ADDS TOTALS FOR TOTAL 04760 001 00198 C* PAGE WRITES ONE LINE ACROSS OR MATRIX 04770 001 0019901420CSR SCRIBE BEGSR 001 0020001430CSR 47 GOTO ENSRB 001 0020101440CSR SETON 20 001 0020201450CSR Z-ADD1 C 30 001 0020301460CSR Z-ADD1 A 30 001 0020401470CSR SC1 TAG 001 0020501480CSR SETOF 242526 001 0020601490CSR SETOF 272829 001 0020701500CSR SETOF 303133 001 0020801510CSR A COMP 2 232122 001 0020901520CSR 23 A COMP 4 252324 001 0021001530CSR 25 A COMP 6 272526 001 0021101540CSR 27 A COMP 8 332728 001 0021201550CSR Z-ADD1 B 30 001 0021301560CSR SC2 TAG 001 0021401570CSR MOVE BVD,C OD,B 001 0021501580CSR BVD,C ADD TVD,C TVD,C 001 0021601590CSR Z-ADD0 BVD,C 001 0021701600CSR MOVE BVC,C OC,B 001 0021801610CSR BVC,C ADD TVC,C TVC,C 001 0021901620CSR Z-ADD0 BVC,C 001 0022001630CSR 1 ADD C C 001 0022101640CSR 1 ADD B B 001 0022201650CSR B COMP 11 3232 001 0022301660CSR 32 GOTO SC2 001 0022401670CSR EXCPT 001 0022501680CSR 1 ADD A A 001 0022601690CSR A COMP 9 3232 001 0022701700CSR 32 GOTO SC1 001 0022801710CSR SETOF 20 001 0022901720CSR ENSRB TAG 001 0023001730CSR ENDSR 001 0023101740C* 001 0023201750C* 001 00233 C* MOVES TOTALS TO MATRIX BEFORE PRINTING 04790 001 0023401760CSR CLOSE BEGSR 001 0023501770CSR 47 GOTO END 001 0023601780CSR Z-ADD1 A 001 0023701790CSR  3* CL1 TAG 001 0023801800CSR MOVE TVD,A BVD,A 001 0023901810CSR MOVE TVC,A BVC,A 001 0024001820CSR 1 ADD A A 001 0024101830CSR A COMP 99 3232 001 0024201840CSR 32 GOTO CL1 001 0024301850CSR SETON 03 001 0024401860CSR END TAG 001 0024501870CSR ENDSR 001 0024601880C* 001 0024701890C* 001 0024801900OPRINT E 101 21 001 0024901910O HDR,1 40 001 00250 O 71 'DELINQUENT TREND' 001 00251 O 80 'ANALYSIS' 001 00252 O 127 'PAGE' 001 00253 O PAGE Z 132 001 0025401980O E 1 21 001 0025501990O HDR,2 40 001 00256 O N03NU3 64 'FOR GROUP' 001 00257 O N03NU3TCA 66 001 00258 O N03N51 75 'PRODUCT' 001 00259 O N03 51 75 ' QUEUE' 001 00260 O N03 TCX B 80 001 00261 O 03 70 'TOTALS' 001 00262 O 122 'RUN DATE :' 001 00263 O UDATE Y 132 001 0026402070O E 1 21 001 0026502080O HDR,3 40 001 00266 O 59 'FROM' 001 00267 O 61LRUN Y 68 04810 001 00268 O 71 'TO' 001 00269 O RUND Y 80 001 0027002110O E 31 21 001 0027102120O 25 '00 - 29' 001 0027202130O 37 '30 - 59' 001 0027302140O 49 '60 - 89 ' 001 00274 O 61 '90 - 119' 04830 001 0027502160O 73 '120 - 149' 001 0027602170O 85 '150 - 179' 001 0027702180O 97 '180 +' 001 0027802190O 109 'WRITE OFF' 001 0027902200O 121 'RELEASED' 001 0028002210O 132 'SATISFIED' 001 0028102220O E 1 21 001 0028202230O 13 'NEWLY ADDED' 001 0028302240O E 1 22 001 0028402250O 13 'FORMER STATUS' 001 0028502260O E 1 22 001 0028602270O 13 '00 - 29 ' 001 0028702280O E 1 23 001 0028802290O 13 '30 - 59 ' 001 0028902300O E 1 24 001 0029002310O 13 '60 - 89 ' 001 0029102320O E 1 25 001 0029202330O 13 '90 - 119 ' 001 0029302340O E 1 26 001 0029402350O 13 '120 - 149' 001 0029502360O E 1 27 001 0029602370O 13 '150 - 179' 001 0029702380O E 1 28 001 0029802390O 13 '180 + ' 001 0029902400O E 1 33 001 0030002410O N03 13 'PAGE TOTALS' 001 0030102420O 03 13 'REPORT TOTALS' 001 0030202430O E 1 20 001 0030302440O OD,1 1B 13 001 0030402450O OD,2 1B 25 001 0030502460O OD,3 1B 37 001 0030602470O OD,4 1B 49 001 0030702480O OD,5 1B 61 001 0030802490O OD,6 1B 73 001 0030902500O OD,7 1B 85 001 0031002510O OD,8 1B 97 001 0031102520O OD,9 1B 109 001 0031202530O OD,10 1B 121 001 0031302540O OD,11 1B 132 001 0031402550O E 2 001 0031502560O OC,1 Z 13 001 0031602570O OC,2 Z 25 001 0031702580O OC,3 Z 37 001 0031802590O OC,4 Z 49 001 0031902600O OC,5 Z 61 001 0032002610O OC,6 Z 73 M  3R 001 0032102620O OC,7 Z 85 001 0032202630O OC,8 Z 97 001 0032302640O OC,9 Z 109 001 0032402650O OC,10 Z 121 001 0032502660O OC,11 Z 132 001 0032602670O T 3 01 LR 001 0032702680O 73 '**** END OF REPORT ****' 001 00328** 02720 001 00329029059089119149179996997998999 02730 001 00330/* 02740 001 00331 H LUD50A 001 00001 X 1 G17 R LA CCS 3.0 SL-149 01520 001 0000200040F* G17 R LA CCS 3.0 SL-149 01530 001 0000300050F* 01540 001 0000400060F* LEGAL AND AGENCY VERSION 3 01550 001 0000500070F* DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA CALIFORNIA 01560 001 0000600080F* COPYRIGHT CONTROL DATA CORPORATION, 1979 01570 001 0000700090F* 01580 001 0000800100F* THIS PROGRAM ACCEPTS FINANCIAL TRANSACTIONS FROM THE HOST 001 0000900110F* COMPUTER WHICH HAVE BEEN FORMATTED AS: 001 0001000120F* POSITION 1 - 3 '505' (DIRECT PAYMENT) 001 0001100130F* '506' (INDIRECT PAYMENT) 001 0001200140F* '507' (NONRECOVERABLE COURT SCOST) 001 0001300150F* '508' (RECOVERABLE COURT COST) 001 0001400160F* '509' (FEE OR COMMISSION) 001 0001500170F* 4 - 16 ACCOUNT NUMBER 001 0001600180F* 20 - 25 TRANSACTION DATE 001 0001700190F* 26 - 34 TRANSACTION AMOUNTT 001 0001800200F* 35 - 38 CLIENT NUMBER 001 0001900210F* THESE TRANSACTIONS ARE REFORMATTED TO RESEMBLE THE 138 CHARACTER 001 0002000220F* RECORDS PRODUCED BY THE ONLINE PROGRAM 'LEGAL'. THE WORD 'HOST' 001 0002100230F* BECOMES THE COLLECTOR ID AND ZEROS FILL THE TIME FIELDS. '03' 001 0002200240F* IN INSERTED AS THE TRANSACTION TYPE, INDICATING A FINANCIAL 001 0002300250F* TRANSACTION FOR THE NIGHTLY BATCH UPDATE PROGRAM. THESE 001 0002400260F* TRANSACTIONS ARE WRITTEN TO A CUMULATIVE FILE - LAFILTMP 001 0002500270FTAPE IPE F 40 TAPE 001 0002600280FLAFILTMPO F 138 DISK A 001 00027 FCONS D F 80 CONSOLE 00810 001 00028 E DISP 1 2 75 00820 001 0002900290ITAPE AA 05 1 C5 001 0003000300I 1 3 LTCD 001 0003100310I ge  3f 4 19 LACCT 001 0003200320I 20 25 LDATE 001 0003300330I 26 34 LAMT 001 0003400340I 35 38 LANO 001 0003500350C SETOF 0102 001 0003600360C LTCD COMP '505' 01 001 0003700370C LTCD COMP '509' 01 001 0003800380C MOVEL'HOST' LCOID 4 001 0003900390C MOVEL'0000' LTIM1 4 001 0004000400C MOVEL'0000' LTIM2 4 001 0004100410C MOVEL'03' LTYPE 2 001 0004200420C N01 SETON 02 001 00043 C 02 RECNT ADD 1 RECNT 50 00840 001 00044 C N02 REJCT ADD 1 REJCT 50 00850 001 00045 CLR DISP,1 DSPLYCONS 00860 001 00046 CLR RECNT DSPLYCONS 00870 001 00047 CLR DISP,2 DSPLYCONS 00880 001 00048 CLR REJCT DSPLYCONS 00890 001 0004900430OLAFILTMPDADD 02 001 0005000440O LACCT 16 001 0005100450O LCOID 20 001 0005200460O LTIM1 24 001 0005300470O LTIM2 28 001 0005400480O LTYPE 30 001 0005500490O LAMT 39 001 0005600500O LDATE 45 001 0005700510O LANO 49 001 0005800520O LTCD 52 001 00059** 00910 001 00060FINANCIAL TRANSACTIONS TO BE PROCESSED BY NIGHTLY BATCH UPDATE 00920 001 00061FINANCIAL TRANSACTIONS REJECTED 00930 001 00062/* 000530 001 00063 H LUD50E 001 00001 X 1 G20 R LA CCS 3.0 SL-149 00730 001 00002 F* G20 R LA CCS 3.0 SL-149 00740 001 0000300050F* 01540 001 0000400060F* LEGAL AND AGENCY VERSION 3 01550 001 0000500070F* DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA CALIFORNIA 01560 001 0000600080F* COPYRIGHT CONTROL DATA CORPORATION, 1979 01570 001 0000700090F* 01580 001 0000800100F* THIS PROGRAM ACCEPTS FINANCIAL TRANSACTIONS FROM THE HOST 001 0000900110F* COMPUTER WHICH HAVE BEEN FORMATTED AS: 001 0001000120F*  3z POSITION 1 - 3 '505' (DIRECT PAYMENT) 001 0001100130F* '506' (INDIRECT PAYMENT) 001 0001200140F* '507' (NONRECOVERABLE COURT SCOST) 001 0001300150F* '508' (RECOVERABLE COURT COST) 001 0001400160F* '509' (FEE OR COMMISSION) 001 0001500170F* 4 - 16 ACCOUNT NUMBER 001 0001600180F* 20 - 25 TRANSACTION DATE 001 0001700190F* 26 - 34 TRANSACTION AMOUNTT 001 0001800200F* 35 - 38 CLIENT NUMBER 001 0001900210F* THESE TRANSACTIONS ARE REFORMATTED TO RESEMBLE THE 138 CHARACTER 001 0002000220F* RECORDS PRODUCED BY THE ONLINE PROGRAM 'LEGAL'. THE WORD 'HOST' 001 0002100230F* BECOMES THE COLLECTOR ID AND ZEROS FILL THE TIME FIELDS. '03' 001 0002200240F* IN INSERTED AS THE TRANSACTION TYPE, INDICATING A FINANCIAL 001 0002300250F* TRANSACTION FOR THE NIGHTLY BATCH UPDATE PROGRAM. THESE 001 0002400260F* TRANSACTIONS ARE WRITTEN TO A CUMULATIVE FILE - LAFILTMP 001 0002500270FTAPE IPE F 40 TAPE 001 00026 F KEBCDIC 00760 001 0002700280FLAFILTMPO F 138 DISK A 001 00028 FCONS D F 80 CONSOLE 00810 001 00029 E DISP 1 2 75 00820 001 0003000290ITAPE AA 05 1 C5 001 0003100300I 1 3 LTCD 001 0003200310I 4 19 LACCT 001 0003300320I 20 25 LDATE 001 0003400330I 26 34 LAMT 001 0003500340I 35 38 LANO 001 0003600350C SETOF 0102 001 0003700360C LTCD COMP '505' 01 001 0003800370C LTCD COMP '509' 01 001 0003900380C MOVEL'HOST' LCOID 4 001 0004000390C MOVEL'0000' LTIM1 4 001 0004100400C MOVEL'0000' LTIM2 4 001 0004200410C MOVEL'03' LTYPE 2 001 0004300420C N01 SETON 02 001 00044 C 02 RECNT ADD 1 RECNT 50 00840 001 00045 C N02 REJCT ADD 1 REJCT 50 00850 001 00046 CLR DISP,1 DSPLYCONS 00860 001 00047 CLR RECNT DSPLYCONS 00870 001 00048 CLR DISP,2 DSPLYCONS 00880 001 00049 CLR REJCT DSPLYCONS 00890 001 0005000430OLAFILTMPDADD 02 001 0005100440O LACCT 16 Fi  3 001 0005200450O LCOID 20 001 0005300460O LTIM1 24 001 0005400470O LTIM2 28 001 0005500480O LTYPE 30 001 0005600490O LAMT 39 001 0005700500O LDATE 45 001 0005800510O LANO 49 001 0005900520O LTCD 52 001 00060** 00910 001 00061FINANCIAL TRANSACTIONS TO BE PROCESSED BY NIGHTLY BATCH UPDATE 00920 001 00062FINANCIAL TRANSACTIONS REJECTED 00930 001 00063/* 000530 001 00064 H LWROFP 001 00001 X 1 G18 R LA CCS 3.0 SL-149 01610 001 00002 F* G18 R LA CCS 3.0 SL-149 01620 001 0000300020F* 01630 001 0000400030F* LEGAL AND AGENCY VERSION 3 01640 001 0000500040F* DATA SYSTEMS-LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 01650 001 00006 F* COPYRIGHT CONTROL DATA CORPORATION, 1979 01660 001 0000700060F* 01670 001 00008 F**********************************************************138**L/A 06380 001 00009 FLAWOEF IPE F 115 DISK 00240 001 0001000080FPRINT O F 132 OV LPRINTER 001 00011 FLAUTIFILIC F 80R 4AI 1 DISK 06410 001 00012 F**********************************************************138**L/A 06420 001 0001300100E HDR 3 40 001 0001400110LPRINT 070FL056OL 001 00015 I**********************************************************138**L/A 06440 001 00016 ILAWOEF AA 01 00260 001 00017 I**********************************************************138**L/A 06460 001 00018 I 1 16 MACCT 001 0001900150I 17 20 W1 L2 001 0002000160I 21 24 W2 L1 001 0002100170I 25 25 WMSTC L3 001 0002200180I 26 29 MCID 001 0002300190I 30 33 MTCD 001 0002400200I 34 63 MNAM 001 0002500210I 64 690MDLDT 001 0002600220I 70 782MADLQ 001 0002700230I 79 872MPYOF 001 0002800240I 88 930WASD 001 0002900250I 94 960WNDD6  3 001 0003000260I 97 1020MSTDT 001 0003100270I 103 1112MCBAL 001 0003200280I 112 112 WFG1 001 0003300290I 113 113 WFG2 001 0003400300I 114 115 MSCD 001 00035 I**********************************************************138**L/A 06480 001 00036 ILAUTIFILAA 41 06490 001 00037 I**********************************************************138**L/A 06500 001 0003800320I 5 44 HEADER 001 0003900330C***** 001 0004000340C MOVE W1 HW1 4 001 0004100350C* INDIC 21 ELIGIBLE RPT 001 0004200360C* INDIC 22 ACTUAL RPT 001 0004300370C* 001 0004400380C* INDIC 31 TYPE,COLL SUBTOTALS FOR COLL 001 0004500390C* INDIC 32 COLL,TYPE SUBTOTALS FOR TYPE 001 0004600400C* INDIC 33 STRAIGHT LIST 001 0004700410C* INDIC 34 TYPE,COLL NO SUBTOTALS COLL 001 0004800420C* INDIC 35 COLL,TYPE NO SUBTOTALS TYPE 001 0004900430C***** 001 0005000440C INIT TAG 001 0005100450C 46 GOTO AROUND 001 00052 C**********************************************************138**L/A 06520 001 00053 C 'HDR1' CHAINLAUTIFIL 47 06530 001 00054 C**********************************************************138**L/A 06540 001 0005500470C N47 MOVEAHEADER HDR,1 001 00056 C**********************************************************138**L/A 06560 001 00057 C 'HDR2' CHAINLAUTIFIL 47 06570 001 00058 C**********************************************************138**L/A 06580 001 0005900490C N47 MOVEAHEADER HDR,2 001 00060 C**********************************************************138**L/A 06600 001 00061 C 'HDR3' CHAINLAUTIFIL 47 06610 001 00062 C**********************************************************138**L/A 06620 001 0006300510C N47 MOVEAHEADER HDR,3 001 0006400520C Z-ADD7 CNT 20 001 0006500530C AROUND TAG 001 0006600540C SETON 46 001 0006700550C L1 31 SETON 11 001 0006800560C TCNT COMP 0 13 001 0006900570C 13 GOTO CONT 001 0007000580C N11 L1 32 SETON 11 001 00071 C 11 CNT ADD  312 CNT 00280 001 0007200590C 11 CNT COMP 55 14 14 001 00073 C 14 Z-ADD7 CNT 00300 001 00074 C 14 OV SETOF OV 00310 001 0007500610C 11 EXCPT 001 0007600620C SETOF 14 001 0007700640C 11 SETOF 11 001 0007800650C L2 SETON 12 001 00079 C 12 CNT ADD 7 CNT 00340 001 0008000660C 12 CNT COMP 55 14 14 001 00081 C 14 Z-ADD7 CNT 00360 001 00082 C 14 OV SETOF OV 00370 001 0008300670C 12 EXCPT 001 00084 C 14 SETOF 14 00390 001 00085 C 12 SETON OV 00400 001 0008600690C 12 SETOF 12 001 0008700700C CONT TAG 001 0008800710C WMSTC COMP ' ' 222221 BLANK=ELIGIBLE 001 0008900720C* W=ACTUAL 001 0009000730C WFG2 COMP '1' 31 001 0009100740C WFG2 COMP '2' 32 001 0009200750C WFG2 COMP '3' 33 001 0009300760C WFG2 COMP '4' 34 001 0009400770C WFG2 COMP '5' 35 001 0009500780C SCNT ADD 1 SCNT 90 001 0009600790C SPDAMT ADD MADLQ SPDAMT 112 001 0009700800C SCPO ADD MPYOF SCPO 112 001 0009800810C SCBAL ADD MCBAL SCBAL 112 001 0009900820C TCNT ADD 1 TCNT 90 001 0010000830C TPDAMT ADD MADLQ TPDAMT 112 001 0010100840C TCPO ADD MPYOF TCPO 112 001 0010200850C TCBAL ADD MCBAL TCBAL 112 001 0010300860C SETOF 3637 001 0010400870C END TAG 001 0010500880C CNT ADD 1 CNT 001 0010600890C OV Z-ADD7 CNT 001 00107 CLR CNT ADD 7 CNT 00420 001 00108 CLR CNT COMP 55 14 14 00430 001 00109 CLR 14 OV SETOF OV 00440 001 00110 CLR 14 EXCPT 00450 001 00111 CLR 14 SETON OV 00460 001 00112 CLR 14 SETOF 14 00470 001 0011300900OPR  3INT D 101 OV 001 0011400910O OR 101 L2N1P 001 0011500920O OR 101 L3N1P 001 0011600930O OR 101 14 001 0011700940O HDR,1 40 001 0011800950O 21 80 'ELIGIBLE FOR WRITE-OFF' 001 0011900960O 22 81 'ACTUAL WRITE-OFF REPORT' 001 0012000970O 114 'PAGE' 001 0012100980O PAGE Z 119 001 0012200990O D 1 OV 001 0012301000O OR 1 L2N1P 001 0012401010O OR 1 L3N1P 001 0012501020O OR 1 14 001 0012601030O HDR,2 40 001 0012701040O 21 68 'AS OF ' 001 0012801050O 21 WASD Y 76 001 0012901060O 22 62 'FROM ' 001 0013001070O 22 WASD Y 70 001 0013101080O 22 74 ' TO ' 001 0013201090O 22 UDATE Y 82 001 0013301100O D 1 OV 001 0013401110O OR 1 L2N1P 001 0013501120O OR 1 L3N1P 001 0013601130O OR 1 14 001 0013701140O HDR,3 40 001 0013801150O 69 'RUN DATE:' 001 0013901160O UDATE Y 78 001 0014001170O D 11 L3N1P 001 0014101180O OR 11 L2N1P 001 0014201190O OR 11 L1N1P 001 0014301200O OR 11 14 001 0014401210O OR 11 OV 001 00145 O 10 'TYPE ' 001 00146 O N31N33N34 10 ' TYPE' 001 0014701250O 72 'DELQ' 001 0014801260O 86 'PAST DUE' 001 0014901270O 92 'DAYS' 001 0015001280O 99 'STATUS' 001 0015101290O 107 'CURRENT' 001 0015201300O 121 'CURRENT' 001 0015301310O 132 'DATE LAST' 001 0015401320O D 2 L3N1P 9  3 001 0015501330O OR 2 L2N1P 001 0015601340O OR 2 L1N1P 001 0015701350O OR 2 14 001 0015801360O OR 2 OV 001 00159 O 10 'CODE QUEUE' 001 00160 O N31N33N34 10 'QUEUE CODE' 001 0016101400O 28 'ACCOUNT' 001 0016201410O 38 'NAME' 001 0016301420O 72 'DATE' 001 0016401430O 85 'AMOUNT' 001 0016501440O 92 'DELQ' 001 0016601450O 98 'CODE' 001 0016701460O 107 'PAYOFF' 001 0016801470O 121 'BALANCE' 001 0016901480O 131 'UPD A/R' 001 0017001490O D 1 01 001 0017101500O MTCD 4 001 0017201510O N31N34N33MCID 4 001 0017301520O MCID 9 001 0017401530O N31N34N33MTCD 9 001 0017501550O MACCT 32 001 0017601560O MNAM 64 001 0017701570O MDLDT Y 74 001 0017801580O MADLQ J 87 001 0017901590O WNDD Z 92 001 00180 O WMSTC 97 00490 001 0018101610O MPYOF J 108 001 0018201620O MCBAL J 122 001 0018301630O MSTDT Y 132 001 0018401640O T 32 LR 31 001 0018501650O OR 32 LR 32 001 0018601660O 65 'NO.ACCOUNTS' 001 0018701670O 89 'PAST DUE AMT' 001 0018801680O 110 'CURR PAYOFF AMT' 001 0018901690O 125 'CURR BALANCE' 001 0019001700O T 3 LR 31 001 0019101710O OR 3 LR 32 001 0019201720O 10 '**' 001 0019301730O 20 'QUEUE' 001 0019401740O N31 20 'TYPE CODE' 001 0019501750O 30 'TOTALS **' 001 0019601760O SCNT 3B 65  3 001 0019701770O SPDAMTJB 89 001 0019801780O SCPO JB 108 001 0019901790O SCBAL 4B 124 001 0020001800O T 32 LR 001 0020101810O 65 'NO. ACCOUNTS' 001 0020201820O 89 'PAST DUE AMT' 001 0020301830O 110 'CURR PAYOFF AMT' 001 0020401840O 125 'CURR BALANCE' 001 0020501850O T 01 LR 001 0020601860O 10 '****' 001 0020701870O 20 'TYPE CODE' 001 0020801880O N31N34 20 'QUEUE' 001 0020901890O 33 20 ' ' 001 0021001900O 32 'TOTALS ****' 001 0021101910O TCNT 3B 65 001 0021201920O TPDAMTJB 89 001 0021301930O TCPO JB 108 001 00214 O**********************************************************138*0006 06640 001 00215 O TCBAL JB 124 06650 001 00216 O**********************************************************138*0006 06660 001 0021701950O T 3 0101 LR 001 0021801960O 47 30 '***ERROR IN UTILITY FILE' 001 0021901970O 73 '**** END OF REPORT ****' 001 0022001980O E 32 11N1P 001 0022101990O 65 'NO. ACCOUNTS' 001 0022202000O 89 'PAST DUE AMT' 001 0022302010O 110 'CURR PAYOFF AMT' 001 0022402020O 125 'CURR BALANCE' 001 0022502030O E 3 11N1P 001 0022602040O 10 '**' 001 0022702050O 20 'QUEUE' 001 0022802060O N31 20 'TYPE CODE' 001 0022902070O 30 'TOTALS **' 001 0023002080O SCNT 3B 65 001 0023102090O SPDAMTJB 89 001 0023202100O SCPO JB 108 001 00233 O SCBAL JB 124 001 00234 O E 101 14N1P 00510 001 00235 O HDR,1 40 00520 001 00236 O 21 80 'ELIGIBLE FOR WRITE-OFF' 00530 001 00237 O 22 81 'ACTUAL WRITE-OFF REPORT' 00540 001 00238 O   3 114 'PAGE' 00550 001 00239 O PAGE Z 119 00560 001 00240 O E 1 14N1P 00570 001 00241 O HDR,2 40 00580 001 00242 O 21 68 'AS OF ' 00590 001 00243 O 21 WASD Y 76 00600 001 00244 O 22 62 'FROM' 00610 001 00245 O 22 WASD Y 70 00620 001 00246 O 22 74 ' TO ' 00630 001 00247 O 22 UDATE Y 82 00640 001 00248 O E 1 14N1P 00650 001 00249 O HDR,3 40 00660 001 00250 O 69 'RUN DATE:' 00670 001 00251 O UDATE Y 78 00680 001 0025202120O E 32 12N1P 001 0025302130O 65 'NO. ACCOUNTS' 001 0025402140O 89 'PAST DUE AMT' 001 0025502150O 110 'CURR PAYOFF AMT' 001 0025602160O 125 'CURR BALANCE' 001 0025702170O E 01 12N1P 001 0025802180O 10 '****' 001 0025902190O 20 'TYPE CODE' 001 0026002200O N31N34 20 'QUEUE' 001 0026102210O 33 20 ' ' 001 0026202220O 32 'TOTALS ****' 001 0026302230O TCNT 3B 65 001 0026402240O TPDAMTJB 89 001 0026502250O TCPO JB 108 001 0026602260O TCBAL 4B 124 001 00267/* 002270 001 0026800010H RECVRY 002 00001 X 1 G19 R LA CCS 3.0 SL-149 01700 002 00002 F* G19 R LA CCS 3.0 SL-149 01710 002 00003 F* 01720 002 00004 F* LEGAL AND AGENCY VERSION 3 01730 002 00005 F* DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 01740 002 00006 F* COPYRIGHT CONTROL DATA CORPORATION, 1979 01750 002 00007 F* 01760 002 0000800090F* THIS PROGRAM PRINTS THE L/A RECOVERY ANALYSIS REPORT, A ONE RECVRY 002 0000900100F* PAGE PER CLIENT REPORT SHOWING ACTIVE ACCOUNTS AND DOLLAR RECVRY 002 0001000110F* VOLUME, ACCOUNTS COLLECTED, ACCOUNTS CLOSED, FEES AND COURT RECVRY 002 0001100120F* COSTS INCURRED TO DATE. THE REPORT COVERS THE LAST 12 MONTHS RECVRY 002 000120013C  30F* AS A UNIT (TOTAL) AND EACH OF THE LAST 12 MONTHS SEPARATELY. RECVRY 002 0001300140F* RECVRY 002 0001400150FNULL IP F 2 DISK RECVRY 002 0001500160FLACLIENTID F 1300 4AI 1 DISK RECVRY 002 0001600170FPRINT O F 132 PRINTER RECVRY 002 0001700180I* RECVRY 002 0001800190I* ALL INPUT LINES PRECEDED BY '***' ARE NOT CURRENTLY RECVRY 002 0001900200I* BEING USED AS INPUT FIELDS IN THIS PROGRAM. RECVRY 002 0002000210I* RECVRY 002 0002100220INULL AA 20 RECVRY 002 0002200230ILACLIENTAA 30 RECVRY 002 0002300240I 1 4 CLNUM RECVRY 002 0002400250I 5 34 FIRM RECVRY 002 0002500260I 35 64 CNTACT RECVRY 002 0002600270I*** 65 94 ADDR1 RECVRY 002 0002700280I*** 95 124 ADDR2 RECVRY 002 0002800290I*** 125 1340PHONE RECVRY 002 0002900300I*** 135 1380EXTN RECVRY 002 0003000310I*** 139 1440UPDATE RECVRY 002 0003100320I*** 145 1482CCRATE RECVRY 002 0003200330I*** 149 1522PCRATE RECVRY 002 0003300340I*** 153 1540COMLAG RECVRY 002 0003400350I 155 156 YEAR01 01 RECVRY 002 0003500360I 157 158 MNTH01 RECVRY 002 0003600370I 159 1610NAPL01 RECVRY 002 0003700380I 162 1702AAPL01 RECVRY 002 0003800390I 171 1792ACOL01 RECVRY 002 0003900400I 180 1820NPIF01 RECVRY 002 0004000410I 183 1912APIF01 RECVRY 002 0004100420I 192 2002COMM01 RECVRY 002 0004200430I 201 2030NACL01 RECVRY 002 0004300440I 204 2122AACL01 RECVRY 002 0004400450I 213 2150NACT01 RECVRY 002 0004500460I 216 2242AACT01 RECVRY 002 0004600470I 225 2332CCST01 RECVRY 002 0004700480I 234 2422NRCC01 RECVRY 002 0004800490I 243 244 YEAR02 02 RECVRY 002 0004900500I 245 246 MNTH02 RECVRY 002 0005000510I 247 2490NAPL02 RECVRY 002 0005100520I 250 2560AAPL02 RECVRY 002 0005200530I 259 2650ACOL02 RECVRY 002 0005300540I 268 2700NPIF02  3. RECVRY 002 0005400550I 271 2770APIF02 RECVRY 002 0005500560I 280 2860COMM02 RECVRY 002 0005600570I 289 2910NACL02 RECVRY 002 0005700580I 292 2980AACL02 RECVRY 002 0005800590I 301 3030NACT02 RECVRY 002 0005900600I 304 3100AACT02 RECVRY 002 0006000610I 313 3190CCST02 RECVRY 002 0006100620I 322 3280NRCC02 RECVRY 002 0006200630I 331 332 YEAR03 03 RECVRY 002 0006300640I 333 334 MNTH03 RECVRY 002 0006400650I 335 3370NAPL03 RECVRY 002 0006500660I 338 3440AAPL03 RECVRY 002 0006600670I 347 3530ACOL03 RECVRY 002 0006700680I 356 3580NPIF03 RECVRY 002 0006800690I 359 3650APIF03 RECVRY 002 0006900700I 368 3740COMM03 RECVRY 002 0007000710I 377 3790NACL03 RECVRY 002 0007100720I 380 3860AACL03 RECVRY 002 0007200730I 389 3910NACT03 RECVRY 002 0007300740I 392 3980AACT03 RECVRY 002 0007400750I 401 4070CCST03 RECVRY 002 0007500760I 410 4160NRCC03 RECVRY 002 0007600770I 419 420 YEAR04 04 RECVRY 002 0007700780I 421 422 MNTH04 RECVRY 002 0007800790I 423 4250NAPL04 RECVRY 002 0007900800I 426 4320AAPL04 RECVRY 002 0008000810I 435 4410ACOL04 RECVRY 002 0008100820I 444 4460NPIF04 RECVRY 002 0008200830I 447 4530APIF04 RECVRY 002 0008300840I 456 4620COMM04 RECVRY 002 0008400850I 465 4670NACL04 RECVRY 002 0008500860I 468 4740AACL04 RECVRY 002 0008600870I 477 4790NACT04 RECVRY 002 0008700880I 480 4860AACT04 RECVRY 002 0008800890I 489 4950CCST04 RECVRY 002 0008900900I 498 5040NRCC04 RECVRY 002 0009000910I 507 508 YEAR05 05 RECVRY 002 0009100920I 509 510 MNTH05 RECVRY 002 0009200930I 511 5130NAPL05 RECVRY 002 0009300940I 514 5200AAPL05 RECVRY 002 0009400950I 523 5290ACOL05 RECVRY 002 0009500960I 532  3B5340NPIF05 RECVRY 002 0009600970I 535 5410APIF05 RECVRY 002 0009700980I 544 5500COMM05 RECVRY 002 0009800990I 553 5550NACL05 RECVRY 002 0009901000I 556 5620AACL05 RECVRY 002 0010001010I 565 5670NACT05 RECVRY 002 0010101020I 568 5740AACT05 RECVRY 002 0010201030I 577 5830CCST05 RECVRY 002 0010301040I 586 5920NRCC05 RECVRY 002 0010401050I 595 596 YEAR06 06 RECVRY 002 0010501060I 597 598 MNTH06 RECVRY 002 0010601070I 599 6010NAPL06 RECVRY 002 0010701080I 602 6080AAPL06 RECVRY 002 0010801090I 611 6170ACOL06 RECVRY 002 0010901100I 620 6220NPIF06 RECVRY 002 0011001110I 623 6290APIF06 RECVRY 002 0011101120I 632 6380COMM06 RECVRY 002 0011201130I 641 6430NACL06 RECVRY 002 0011301140I 644 6500AACL06 RECVRY 002 0011401150I 653 6550NACT06 RECVRY 002 0011501160I 656 6620AACT06 RECVRY 002 0011601170I 665 6710CCST06 RECVRY 002 0011701180I 674 6800NRCC06 RECVRY 002 0011801190I 683 684 YEAR07 07 RECVRY 002 0011901200I 685 686 MNTH07 RECVRY 002 0012001210I 687 6890NAPL07 RECVRY 002 0012101220I 690 6960AAPL07 RECVRY 002 0012201230I 699 7050ACOL07 RECVRY 002 0012301240I 708 7100NPIF07 RECVRY 002 0012401250I 711 7170APIF07 RECVRY 002 0012501260I 720 7260COMM07 RECVRY 002 0012601270I 729 7310NACL07 RECVRY 002 0012701280I 732 7380AACL07 RECVRY 002 0012801290I 741 7430NACT07 RECVRY 002 0012901300I 744 7500AACT07 RECVRY 002 0013001310I 753 7590CCST07 RECVRY 002 0013101320I 762 7680NRCC07 RECVRY 002 0013201330I 771 772 YEAR08 08 RECVRY 002 0013301340I 773 774 MNTH08 RECVRY 002 0013401350I 775 7770NAPL08 RECVRY 002 0013501360I 778 7840AAPL08 RECVRY 002 0013601370I 787 7930ACOL08 RECVRY 002 0013701380I   3V 796 7980NPIF08 RECVRY 002 0013801390I 799 8050APIF08 RECVRY 002 0013901400I 808 8140COMM08 RECVRY 002 0014001410I 817 8190NACL08 RECVRY 002 0014101420I 820 8260AACL08 RECVRY 002 0014201430I 829 8310NACT08 RECVRY 002 0014301440I 832 8380AACT08 RECVRY 002 0014401450I 841 8470CCST08 RECVRY 002 0014501460I 850 8560NRCC08 RECVRY 002 0014601470I 859 860 YEAR09 09 RECVRY 002 0014701480I 861 862 MNTH09 RECVRY 002 0014801490I 863 8650NAPL09 RECVRY 002 0014901500I 866 8720AAPL09 RECVRY 002 0015001510I 875 8810ACOL09 RECVRY 002 0015101520I 884 8860NPIF09 RECVRY 002 0015201530I 887 8930APIF09 RECVRY 002 0015301540I 896 9020COMM09 RECVRY 002 0015401550I 905 9070NACL09 RECVRY 002 0015501560I 908 9140AACL09 RECVRY 002 0015601570I 917 9190NACT09 RECVRY 002 0015701580I 920 9260AACT09 RECVRY 002 0015801590I 929 9350CCST09 RECVRY 002 0015901600I 938 9440NRCC09 RECVRY 002 0016001610I 947 948 YEAR10 10 RECVRY 002 0016101620I 949 950 MNTH10 RECVRY 002 0016201630I 951 9530NAPL10 RECVRY 002 0016301640I 954 9600AAPL10 RECVRY 002 0016401650I 963 9690ACOL10 RECVRY 002 0016501660I 972 9740NPIF10 RECVRY 002 0016601670I 975 9810APIF10 RECVRY 002 0016701680I 984 9900COMM10 RECVRY 002 0016801690I 993 9950NACL10 RECVRY 002 0016901700I 99610020AACL10 RECVRY 002 0017001710I 100510070NACT10 RECVRY 002 0017101720I 100810140AACT10 RECVRY 002 0017201730I 101710230CCST10 RECVRY 002 0017301740I 102610320NRCC10 RECVRY 002 0017401750I 10351036 YEAR11 11 RECVRY 002 0017501760I 10371038 MNTH11 RECVRY 002 0017601770I 103910410NAPL11 RECVRY 002 0017701780I 104210480AAPL11 RECVRY 002 0017801790I 105110570ACOL11 RECVRY 002 00179`  3j01800I 106010620NPIF11 RECVRY 002 0018001810I 106310690APIF11 RECVRY 002 0018101820I 107210780COMM11 RECVRY 002 0018201830I 108110830NACL11 RECVRY 002 0018301840I 108410900AACL11 RECVRY 002 0018401850I 109310950NACT11 RECVRY 002 0018501860I 109611020AACT11 RECVRY 002 0018601870I 110511110CCST11 RECVRY 002 0018701880I 111411200NRCC11 RECVRY 002 0018801890I 11231124 YEAR12 12 RECVRY 002 0018901900I 11251126 MNTH12 RECVRY 002 0019001910I 112711290NAPL12 RECVRY 002 0019101920I 113011360AAPL12 RECVRY 002 0019201930I 113911450ACOL12 RECVRY 002 0019301940I 114811500NPIF12 RECVRY 002 0019401950I 115111570APIF12 RECVRY 002 0019501960I 116011660COMM12 RECVRY 002 0019601970I 116911710NACL12 RECVRY 002 0019701980I 117211780AACL12 RECVRY 002 0019801990I 118111830NACT12 RECVRY 002 0019902000I 118411900AACT12 RECVRY 002 0020002010I 119311990CCST12 RECVRY 002 0020102020I 120212080NRCC12 RECVRY 002 0020202030I 12111212 YEAR13 RECVRY 002 0020302040I 12131214 MNTH13 RECVRY 002 0020402050I 121512170NAPL13 RECVRY 002 0020502060I 121812262AAPL13 RECVRY 002 0020602070I 122712352ACOL13 RECVRY 002 0020702080I 123612380NPIF13 RECVRY 002 0020802090I 123912472APIF13 RECVRY 002 0020902100I 124812562COMM13 RECVRY 002 0021002110I 125712590NACL13 RECVRY 002 0021102120I 126012682AACL13 RECVRY 002 0021202130I 126912710NACT13 RECVRY 002 0021302140I 127212802AACT13 RECVRY 002 0021402150I 128112892CCST13 RECVRY 002 0021502160I 129012982NRCC13 RECVRY 002 0021602170I*** RESERVED FOR FUTURE USE 12991300 RECVRY 002 0021702180C* RECVRY 002 0021802190C********************************************************************RECVRY 002 0021902200C* RECVRY 002 0022002210C* ***********************************************************   3~**** RECVRY 002 0022102220C* * * RECVRY 002 0022202230C* * * RECVRY 002 0022302240C* * ***** FUNCTION OF INDICATORS ***** * RECVRY 002 0022402250C* * * RECVRY 002 0022502260C* * INDICATOR FUNCTION * RECVRY 002 0022602270C* * * RECVRY 002 0022702280C* * 01 ON = NO CURRENT MONTH FINANCIAL INFO * RECVRY 002 0022802290C* * 02 ON = NO SECOND MONTH FINANCIAL INFO * RECVRY 002 0022902300C* * 03 ON = NO THIRD MONTH FINANCIAL INFO * RECVRY 002 0023002310C* * 04 ON = NO FOURTH MONTH FINANCIAL INFO * RECVRY 002 0023102320C* * 05 ON = NO FIFTH MONTH FINANCIAL INFO * RECVRY 002 0023202330C* * 06 ON = NO SIXTH MONTH FINANCIAL INFO * RECVRY 002 0023302340C* * 07 ON = NO SEVENTH MONTH FINANCIAL INFO * RECVRY 002 0023402350C* * 08 ON = NO EIGHTH MONTH FINANCIAL INFO * RECVRY 002 0023502360C* * 09 ON = NO NINTH MONTH FINANCIAL INFO * RECVRY 002 0023602370C* * 10 ON = NO TENTH MONTH FINANCIAL INFO * RECVRY 002 0023702380C* * 11 ON = NO ELEVENTH MONTH FINANCIAL INFO * RECVRY 002 0023802390C* * 12 ON = NO TWELFTH MONTH FINANCIAL INFO * RECVRY 002 0023902400C* * 20 NULL RECORD IDENTIFYING INDICATOR * RECVRY 002 0024002410C* * 30 LACLIENT RECORD IDENTIFYING INDICATOR * RECVRY 002 0024102420C* * 40 ON = END-OF-FILE (LACLIENT) * RECVRY 002 0024202430C* * * RECVRY 002 0024302440C* * *********** *********** *********** * RECVRY 002 0024402450C* * * RECVRY 002 0024502460C* * ***** DEFINITION OF FIELD NAMES ***** * RECVRY 002 0024602470C* * * RECVRY 002 0024702480C* * * RECVRY 002 0024802490C* * FIELD NAME PREFIXES * RECVRY 002 0024902500C* * * RECVRY 002 0025002510C* * PREFIX DEFINITION * RECVRY 002 0025102520C* * * RECVRY 002 0025202530C* * NAPL NUMBER OF ACCOUNTS PLACED * RECVRY 002 0025302540C* * AAPL DOLLAR AMOUNT OF ACCOUNTS PLACED * RECVRY 002 0025402550C* * ACOL DOLLAR AMOUNT OF COLLECTIONS * RECVRY 002 0025502560C* * CLPC COLLECTIONS PERCENTAGE * RECVRY 002 0025602570C* * NPIF NUMBER OF ACCOUNTS PAID-IN-FULL * RECVRY 002 0025702580C* * APIF DOLLAR AMOUNT OF ACCOUNTS PAID-IN-FULL * RECVRY 002 0025802590C* * COMM DOLLAR AMOUNT OF COMMISSIONS EARNED * RECVRY 002 0025902600C* * NACL NUMBER OF ACCOUNTS COLED * RECVRY 002 0026002610C* * AACL DOLLAR AMOUNT OF ACCOUNTS CLOSED * RECVRY 002 0026102620C* * NACT NUMBER OF ACTIVE ACCOUNTS * RECVRY 002 0026202630C* * AACT DOLLAR AMOUNT O$  3F ACTIVE ACCOUNTS * RECVRY 002 0026302640C* * CCST DOLLAR AMOUNT OF RECOVERABLE COURT COSTS * RECVRY 002 0026402650C* * NRCC DOLLAR AMOUNT OF NON-RECOVERABLE COURT * RECVRY 002 0026502660C* * COSTS * RECVRY 002 0026602670C* * TOTC DOLLAR AMOUNT OF TOTAL COURT COSTS * RECVRY 002 0026702680C* * INCURRED * RECVRY 002 0026802690C* * CCPC COURT COSTS PERCENTAGE * RECVRY 002 0026902700C* * AVGA DOLLAR AMOUNT OF AVERAGE BALANCE OF * RECVRY 002 0027002710C* * ACTIVE ACCOUNTS * RECVRY 002 0027102720C* * AVGP DOLLAR AMOUNT OF AVERAGE BALANCE OF * RECVRY 002 0027202730C* * ACCOUNT-PLACEMENTS * RECVRY 002 0027302740C* * * RECVRY 002 0027402750C* * ******************* * RECVRY 002 0027502760C* * * RECVRY 002 0027602770C* * FIELD NAME SUFFIXES * RECVRY 002 0027702780C* * * RECVRY 002 0027802790C* * * RECVRY 002 0027902800C* * SUFFIX DEFINITION * RECVRY 002 0028002810C* * * RECVRY 002 0028102820C* * 7X SEVEN DIGIT REPORT-OUTPUT FIELDS * RECVRY 002 0028202830C* * CONTAINING THE DOLLAR VALUES (LEFT * RECVRY 002 0028302840C* * SEVEN DIGITS) OF THE CURRENT FINAN-* RECVRY 002 0028402850C* * CIAL MONTH DOLLAR AMOUNT FIELDS. * RECVRY 002 0028502860C* * 7Y SEVEN DIGIT REPORT-OUTPUT FIELDS * RECVRY 002 0028602870C* * CONTAINING THE DOLLAR VALUES (LEFT * RECVRY 002 0028702880C* * SEVEN DIGITS) OF THE LAST-12-MONTHS* RECVRY 002 0028802890C* * DOLLAR AMOUNT FIELDS. * RECVRY 002 0028902900C* * * RECVRY 002 0029002910C* *************************************************************** RECVRY 002 0029102920C* RECVRY 002 0029202930C* RECVRY 002 0029302940C* *********** *********** *********** RECVRY 002 0029402950C* RECVRY 002 0029502960C* ****** *********** *********** ****** RECVRY 002 0029602970C* RECVRY 002 0029702980C* *********** *********** *********** RECVRY 002 0029802990C* RECVRY 002 0029903000C* RECVRY 002 0030003010CLR START TAG RECVRY 002 0030103020CLR READ LACLIENT 40 RECVRY 002 0030203030CLR 40 GOTO EOJ END-OF-FILE RECVRY 002 0030303040CLR 01 GOTO START NO DATA RECVRY 002 0030403050C* h  3 RECVRY 002 0030503060C* *************************************************************** RECVRY 002 0030603070C* * * RECVRY 002 0030703080C* * THE FOLLOWING SECTIONS OF CODE PERFORM THE NECESSARY * RECVRY 002 0030803090C* * CALCULATIONS TO PROVIDE THE FINANCIAL INFORMATION AND * RECVRY 002 0030903100C* * REPORT FIELDS FOR THE CURRENT FINANCIAL MONTH. * RECVRY 002 0031003110C* * * RECVRY 002 0031103120C* *************************************************************** RECVRY 002 0031203130C* RECVRY 002 0031303140C* COMPUTE THE NUMBER OF ACTIVE ACCOUNTS. RECVRY 002 0031403150C* RECVRY 002 0031503160C*R NACT02 ADD NAPL01 WORK3 30 RECVRY 002 0031603170C*R WORK3 SUB NPIF01 WORK3 RECVRY 002 0031703180C*R WORK3 SUB NACL01 NACT01 30 RECVRY 002 0031803190C* RECVRY 002 0031903200C* COMPUTE THE DOLLAR AMOUNT OF ACTIVE ACCOUNTS. RECVRY 002 0032003210C* RECVRY 002 0032103220C*R AACT02 ADD AAPL01 WORK9 92 RECVRY 002 0032203230C*R WORK9 ADD CCST01 WORK9 RECVRY 002 0032303240C*R WORK9 SUB ACOL01 WORK9 RECVRY 002 0032403250C*R WORK9 SUB AACL01 AACT01 92 RECVRY 002 0032503260C* RECVRY 002 0032603270C* COMPUTE THE AVERAGE BALANCE OF ACTIVE ACCOUNTS. RECVRY 002 0032703280C* RECVRY 002 0032803290C*R AACT01 DIV NACT01 AVGA01 70H RECVRY 002 0032903300C* RECVRY 002 0033003310C* COMPUTE THE AVERAGE BALANCE OF ACCOUNT-PLACEMENTS. RECVRY 002 0033103320C* RECVRY 002 0033203330CLR AAPL01 DIV NAPL01 AVGP01 70H RECVRY 002 0033303340C* RECVRY 002 0033403350C* COMPUTE THE COLLECTIONS PERCENTAGE. RECVRY 002 0033503360C* RECVRY 002 0033603370CLR AACT01 ADD AAPL01 WORK9 92 RECVRY 002 0033703380CLR WORK9 SUB AACL01 WORK9 RECVRY 002 0033803390CLR ACOL01 MULT 1000 WORK12 122 RECVRY 002 0033903400CLR WORK12 DIV WORK9 WORK9 RECVRY 002 0034003410CLR MOVE WORK9 CLPC01 41 RECVRY 002 0034103420C* RECVRY 002 0034203430C* COMPUTE THE COURT COSTS PERCENTAGE. RECVRY 002 0034303440C* RECVRY 002 0034403450CLR CCST01 ADD NRCC01 TOTC01 92 RECVRY 002 0034503460CLR CCST01 MULT 1000 WORK12 RECVRY 002 0[  3034603470CLR WORK12 DIV TOTC01 WORK9 RECVRY 002 0034703480CLR MOVE WORK9 CCPC01 41 RECVRY 002 0034803490C* RECVRY 002 0034903500C* *************************************************************** RECVRY 002 0035003510C* * * RECVRY 002 0035103520C* * THE FOLLOWING CODE COMPUTES THE AVERAGE BALANCE OF * RECVRY 002 0035203530C* * ACTIVE ACCOUNTS FOR THE SECOND THROUGH TWELFTH MONTHS * RECVRY 002 0035303540C* * AND THE LAST-12-MONTHS TOTAL. * RECVRY 002 0035403550C* * * RECVRY 002 0035503560C* *************************************************************** RECVRY 002 0035603570C* RECVRY 002 0035703580C*RN02 AACT02 DIV NACT02 AVGA02 70H RECVRY 002 0035803590C*RN03 AACT03 DIV NACT03 AVGA03 70H RECVRY 002 0035903600C*RN04 AACT04 DIV NACT04 AVGA04 70H RECVRY 002 0036003610C*RN05 AACT05 DIV NACT05 AVGA05 70H RECVRY 002 0036103620C*RN06 AACT06 DIV NACT06 AVGA06 70H RECVRY 002 0036203630C*RN07 AACT07 DIV NACT07 AVGA07 70H RECVRY 002 0036303640C*RN08 AACT08 DIV NACT08 AVGA08 70H RECVRY 002 0036403650C*RN09 AACT09 DIV NACT09 AVGA09 70H RECVRY 002 0036503660C*RN10 AACT10 DIV NACT10 AVGA10 70H RECVRY 002 0036603670C*RN11 AACT11 DIV NACT11 AVGA11 70H RECVRY 002 0036703680C*RN12 AACT12 DIV NACT12 AVGA12 70H RECVRY 002 0036803690CLR AACT13 DIV NACT13 AVGA13 70H RECVRY 002 0036903700C* RECVRY 002 0037003710C* *************************************************************** RECVRY 002 0037103720C* * * RECVRY 002 0037203730C* * THE FOLLOWING CODE COMPUTES THE AVERAGE BALANCE OF * RECVRY 002 0037303740C* * ACCOUNT-PLACEMENTS FOR THE SECOND THROUGH TWELFTH * RECVRY 002 0037403750C* * MONTHS AND THE LAST-12-MONTHS TOTAL. * RECVRY 002 0037503760C* * * RECVRY 002 0037603770C* *************************************************************** RECVRY 002 0037703780C* RECVRY 002 0037803790CLRN02 AAPL02 DIV NAPL02 AVGP02 70H RECVRY 002 0037903800CLRN03 AAPL03 DIV NAPL03 AVGP03 70H RECVRY 002 0038003810CLRN04 AAPL04 DIV NAPL04 AVGP04 70H RECVRY 002 0038103820CLRN05 AAPL05 DIV NAPL05 AVGP05 70H RECVRY 002 0038203830CLRN06 AAPL06 DIV NAPL06 AVGP06 70H RECVRY 002 0038303840CLRN07 AAPL07 DIV NAPL07 AVGP07 70H RECVRY 002 0038403850CLRN08 AAPL08 DIV NAPL08 AVGP08 70H RECVRY 002 0038503860CLRN09 AAPL09 DIV NAPL09 AVGP09 70H RECVRY 002 0038603870CLRN10 AAPL10 DIV NAPL10 AVGP10 70H RECVRY 002 0038703880CLRN11 AAPL11 DIV NAPL11 AVGP11 70H R  3 RECVRY 002 0038803890CLRN12 AAPL12 DIV NAPL12 AVGP12 70H RECVRY 002 0038903900CLR AAPL13 DIV NAPL13 AVGP13 70H RECVRY 002 0039003910C* RECVRY 002 0039103920C* *************************************************************** RECVRY 002 0039203930C* * * RECVRY 002 0039303940C* * THE FOLLOWING CODE COMPUTES THE COLLECTION PERCENTAGE * RECVRY 002 0039403950C* * FOR THE SECOND THROUGH TWELFTH MONTHS AND THE LAST-12- * RECVRY 002 0039503960C* * MONTHS TOTAL. * RECVRY 002 0039603970C* * * RECVRY 002 0039703980C* *************************************************************** RECVRY 002 0039803990C* RECVRY 002 0039904000CLRN02 AACT02 ADD AAPL02 WORK7 70 RECVRY 002 0040004010CLRN02 WORK7 SUB AACL02 WORK7 RECVRY 002 0040104020CLRN02 ACOL02 MULT 1000 WORK10 100 RECVRY 002 0040204030CLRN02 WORK10 DIV WORK7 WORK7 RECVRY 002 0040304040CLRN02 MOVE WORK7 CLPC02 41 RECVRY 002 0040404050C* RECVRY 002 0040504060CLRN03 AACT03 ADD AAPL03 WORK7 RECVRY 002 0040604070CLRN03 WORK7 SUB AACL03 WORK7 RECVRY 002 0040704080CLRN03 ACOL03 MULT 1000 WORK10 RECVRY 002 0040804090CLRN03 WORK10 DIV WORK7 WORK7 RECVRY 002 0040904100CLRN03 MOVE WORK7 CLPC03 41 RECVRY 002 0041004110C* RECVRY 002 0041104120CLRN04 AACT04 ADD AAPL04 WORK7 RECVRY 002 0041204130CLRN04 WORK7 SUB AACL04 WORK7 RECVRY 002 0041304140CLRN04 ACOL04 MULT 1000 WORK10 RECVRY 002 0041404150CLRN04 WORK10 DIV WORK7 WORK7 RECVRY 002 0041504160CLRN04 MOVE WORK7 CLPC04 41 RECVRY 002 0041604170C* RECVRY 002 0041704180CLRN05 AACT05 ADD AAPL05 WORK7 RECVRY 002 0041804190CLRN05 WORK7 SUB AACL05 WORK7 RECVRY 002 0041904200CLRN05 ACOL05 MULT 1000 WORK10 RECVRY 002 0042004210CLRN05 WORK10 DIV WORK7 WORK7 RECVRY 002 0042104220CLRN05 MOVE WORK7 CLPC05 41 RECVRY 002 0042204230C* RECVRY 002 0042304240CLRN06 AACT06 ADD AAPL06 WORK7 RECVRY 002 0042404250CLRN06 WORK7 SUB AACL06 WORK7 RECVRY 002 0042504260CLRN06 ACOL06 MULT 1000 WORK10 RECVRY 002 0042604270CLRN06 WORK10 DIV WORK7 WORK7 RECVRY 002 0042704280CLRN06 MOVE WORK7 CLPC06 41 RECVRY 002 0042804290C* RECVRY 002 0042904300CLRN07 AACT07 ADD AAPL07 %  3 WORK7 RECVRY 002 0043004310CLRN07 WORK7 SUB AACL07 WORK7 RECVRY 002 0043104320CLRN07 ACOL07 MULT 1000 WORK10 RECVRY 002 0043204330CLRN07 WORK10 DIV WORK7 WORK7 RECVRY 002 0043304340CLRN07 MOVE WORK7 CLPC07 41 RECVRY 002 0043404350C* RECVRY 002 0043504360CLRN08 AACT08 ADD AAPL08 WORK7 RECVRY 002 0043604370CLRN08 WORK7 SUB AACL08 WORK7 RECVRY 002 0043704380CLRN08 ACOL08 MULT 1000 WORK10 RECVRY 002 0043804390CLRN08 WORK10 DIV WORK7 WORK7 RECVRY 002 0043904400CLRN08 MOVE WORK7 CLPC08 41 RECVRY 002 0044004410C* RECVRY 002 0044104420CLRN09 AACT09 ADD AAPL09 WORK7 RECVRY 002 0044204430CLRN09 WORK7 SUB AACL09 WORK7 RECVRY 002 0044304440CLRN09 ACOL09 MULT 1000 WORK10 RECVRY 002 0044404450CLRN09 WORK10 DIV WORK7 WORK7 RECVRY 002 0044504460CLRN09 MOVE WORK7 CLPC09 41 RECVRY 002 0044604470C* RECVRY 002 0044704480CLRN10 AACT10 ADD AAPL10 WORK7 RECVRY 002 0044804490CLRN10 WORK7 SUB AACL10 WORK7 RECVRY 002 0044904500CLRN10 ACOL10 MULT 1000 WORK10 RECVRY 002 0045004510CLRN10 WORK10 DIV WORK7 WORK7 RECVRY 002 0045104520CLRN10 MOVE WORK7 CLPC10 41 RECVRY 002 0045204530C* RECVRY 002 0045304540CLRN11 AACT11 ADD AAPL11 WORK7 RECVRY 002 0045404550CLRN11 WORK7 SUB AACL11 WORK7 RECVRY 002 0045504560CLRN11 ACOL11 MULT 1000 WORK10 RECVRY 002 0045604570CLRN11 WORK10 DIV WORK7 WORK7 RECVRY 002 0045704580CLRN11 MOVE WORK7 CLPC11 41 RECVRY 002 0045804590C* RECVRY 002 0045904600CLRN12 AACT12 ADD AAPL12 WORK7 RECVRY 002 0046004610CLRN12 WORK7 SUB AACL12 WORK7 RECVRY 002 0046104620CLRN12 ACOL12 MULT 1000 WORK10 RECVRY 002 0046204630CLRN12 WORK10 DIV WORK7 WORK7 RECVRY 002 0046304640CLRN12 MOVE WORK7 CLPC12 41 RECVRY 002 0046404650C* RECVRY 002 0046504660CLR ACOL13 MULT 1000 WORK10 100 RECVRY 002 0046604670CLR WORK10 DIV AAPL13 WORK7 70 RECVRY 002 0046704680CLR MOVE WORK7 CLPC13 41 002 0046804710C* RECVRY 002 0046904720C* *************************************************************** RECVRY 002 0047004730C* * * RECVRY 002 0047104740C* * TH]  3E FOLLOWING CODE COMPUTES THE COURT COSTS PERCENTAGE * RECVRY 002 0047204750C* * FOR THE SECOND THROUGH TWELFTH MONTHS AND THE LAST-12- * RECVRY 002 0047304760C* * MONTHS TOTAL. * RECVRY 002 0047404770C* * * RECVRY 002 0047504780C* *************************************************************** RECVRY 002 0047604790C* RECVRY 002 0047704800CLRN02 CCST02 ADD NRCC02 TOTC02 70 RECVRY 002 0047804810CLRN02 CCST02 MULT 1000 WORK10 RECVRY 002 0047904820CLRN02 WORK10 DIV TOTC02 WORK7 RECVRY 002 0048004830CLRN02 MOVE WORK7 CCPC02 41 RECVRY 002 0048104840C* RECVRY 002 0048204850CLRN03 CCST03 ADD NRCC03 TOTC03 70 RECVRY 002 0048304860CLRN03 CCST03 MULT 1000 WORK10 RECVRY 002 0048404870CLRN03 WORK10 DIV TOTC03 WORK7 RECVRY 002 0048504880CLRN03 MOVE WORK7 CCPC03 41 RECVRY 002 0048604890C* RECVRY 002 0048704900CLRN04 CCST04 ADD NRCC04 TOTC04 70 RECVRY 002 0048804910CLRN04 CCST04 MULT 1000 WORK10 RECVRY 002 0048904920CLRN04 WORK10 DIV TOTC04 WORK7 RECVRY 002 0049004930CLRN04 MOVE WORK7 CCPC04 41 RECVRY 002 0049104940C* RECVRY 002 0049204950CLRN05 CCST05 ADD NRCC05 TOTC05 70 RECVRY 002 0049304960CLRN05 CCST05 MULT 1000 WORK10 RECVRY 002 0049404970CLRN05 WORK10 DIV TOTC05 WORK7 RECVRY 002 0049504980CLRN05 MOVE WORK7 CCPC05 41 RECVRY 002 0049604990C* RECVRY 002 0049705000CLRN06 CCST06 ADD NRCC06 TOTC06 70 RECVRY 002 0049805010CLRN06 CCST06 MULT 1000 WORK10 RECVRY 002 0049905020CLRN06 WORK10 DIV TOTC06 WORK7 RECVRY 002 0050005030CLRN06 MOVE WORK7 CCPC06 41 RECVRY 002 0050105040C* RECVRY 002 0050205050CLRN07 CCST07 ADD NRCC07 TOTC07 70 RECVRY 002 0050305060CLRN07 CCST07 MULT 1000 WORK10 RECVRY 002 0050405070CLRN07 WORK10 DIV TOTC07 WORK7 RECVRY 002 0050505080CLRN07 MOVE WORK7 CCPC07 41 RECVRY 002 0050605090C* RECVRY 002 0050705100CLRN08 CCST08 ADD NRCC08 TOTC08 70 RECVRY 002 0050805110CLRN08 CCST08 MULT 1000 WORK10 RECVRY 002 0050905120CLRN08 WORK10 DIV TOTC08 WORK7 RECVRY 002 0051005130CLRN08 MOVE WORK7 CCPC08 41 RECVRY 002 0051105140C* RECVRY 002 0051205150CLRN09 CCST09 ADD NRCC09 TOTC09 70 RECVRY 0ٖ  3 02 0051305160CLRN09 CCST09 MULT 1000 WORK10 RECVRY 002 0051405170CLRN09 WORK10 DIV TOTC09 WORK7 RECVRY 002 0051505180CLRN09 MOVE WORK7 CCPC09 41 RECVRY 002 0051605190C* RECVRY 002 0051705200CLRN10 CCST10 ADD NRCC10 TOTC10 70 RECVRY 002 0051805210CLRN10 CCST10 MULT 1000 WORK10 RECVRY 002 0051905220CLRN10 WORK10 DIV TOTC10 WORK7 RECVRY 002 0052005230CLRN10 MOVE WORK7 CCPC10 41 RECVRY 002 0052105240C* RECVRY 002 0052205250CLRN11 CCST11 ADD NRCC11 TOTC11 70 RECVRY 002 0052305260CLRN11 CCST11 MULT 1000 WORK10 RECVRY 002 0052405270CLRN11 WORK10 DIV TOTC11 WORK7 RECVRY 002 0052505280CLRN11 MOVE WORK7 CCPC11 41 RECVRY 002 0052605290C* RECVRY 002 0052705300CLRN12 CCST12 ADD NRCC12 TOTC12 70 RECVRY 002 0052805310CLRN12 CCST12 MULT 1000 WORK10 RECVRY 002 0052905320CLRN12 WORK10 DIV TOTC12 WORK7 RECVRY 002 0053005330CLRN12 MOVE WORK7 CCPC12 41 RECVRY 002 0053105340C* RECVRY 002 0053205350CLR CCST13 ADD NRCC13 TOTC13 92 RECVRY 002 0053305360CLR CCST13 MULT 1000 WORK10 RECVRY 002 0053405370CLR WORK10 DIV TOTC13 WORK7 RECVRY 002 0053505380CLR MOVE WORK7 CCPC13 41 RECVRY 002 0053605390C* RECVRY 002 0053705400C* *************************************************************** RECVRY 002 0053805410C* * * RECVRY 002 0053905420C* * THE FOLLOWING CODE MOVES THE NINE CHARACTER TOTAL AND * RECVRY 002 0054005430C* * CURRENT-MONTH FIELDS INTO SEVEN CHARACTER FIELDS FOR * RECVRY 002 0054105440C* * REPORT PRINTING (THE REPORT DOES NOT REFLECT CENTS). * RECVRY 002 0054205450C* * * RECVRY 002 0054305460C* *************************************************************** RECVRY 002 0054405470C* RECVRY 002 0054505480CLR Z-ADDAAPL01 AAPL7X 70 RECVRY 002 0054605490CLR Z-ADDACOL01 ACOL7X 70 RECVRY 002 0054705500CLR Z-ADDAPIF01 APIF7X 70 RECVRY 002 0054805510CLR Z-ADDCOMM01 COMM7X 70 RECVRY 002 0054905520CLR Z-ADDAACL01 AACL7X 70 RECVRY 002 0055005530CLR Z-ADDAACT01 AACT7X 70 RECVRY 002 0055105540CLR Z-ADDCCST01 CCST7X 70 RECVRY 002 0055205550CLR Z-ADDNRCC01 NRCC7X 70 RECVRY 002 0055305560CLR Z-ADDTOTC01 TOTC7X 70 RECVRY 002 0055405570CLR Z-ADDAAPL13 AAPL7Y 70 H  3  RECVRY 002 0055505580CLR Z-ADDACOL13 ACOL7Y 70 RECVRY 002 0055605590CLR Z-ADDAPIF13 APIF7Y 70 RECVRY 002 0055705600CLR Z-ADDCOMM13 COMM7Y 70 RECVRY 002 0055805610CLR Z-ADDAACL13 AACL7Y 70 RECVRY 002 0055905620CLR Z-ADDAACT13 AACT7Y 70 RECVRY 002 0056005630CLR Z-ADDCCST13 CCST7Y 70 RECVRY 002 0056105640CLR Z-ADDNRCC13 NRCC7Y 70 RECVRY 002 0056205650CLR Z-ADDTOTC13 TOTC7Y 70 RECVRY 002 0056305660C* RECVRY 002 0056405670C* *************************************************************** RECVRY 002 0056505680C* * * RECVRY 002 0056605690C* * 1. PRINT THE ONE PAGE REPORT FOR THIS CLIENT. * RECVRY 002 0056705700C* * 2. GO TO START ( READ AND PROCESS NEXT RECORD ). * RECVRY 002 0056805710C* * * RECVRY 002 0056905720C* *************************************************************** RECVRY 002 0057005730C* RECVRY 002 0057105740CLR EXCPT RECVRY 002 0057205750CLR GOTO START RECVRY 002 0057305760CLR EOJ TAG RECVRY 002 0057405770C* RECVRY 002 0057505780O****************************************************************** RECVRY 002 0057605790O* RECVRY 002 0057705800OPRINT E 103 30 RECVRY 002 0057805810O 21 'LEGAL & AGENCY SYSTEM' RECVRY 002 0057905820O 63 'LEGAL & AGENCY' RECVRY 002 0058005830O 81 'RECOVERY ANALYSIS' RECVRY 002 0058105840O 126 'PAGE NO.' RECVRY 002 0058205850O PAGE Z 130 RECVRY 002 0058305860O E 30 RECVRY 002 0058405870O 11 'VERSION 3.0' RECVRY 002 0058505880O 117 'RUN DATE:' RECVRY 002 0058605890O UDATE Y 126 RECVRY 002 0058705900O E 3 30 RECVRY 002 0058805910O 19 'SYSTEM VERIFICATION' RECVRY 002 0058905920O E 3 30 RECVRY 002 0059005930O 12 'L/A CLIENT #' RECVRY 002 0059105940O CLNUM 18 RECVRY 002 0059205950O 39 'FIRM NAME:' RECVRY 002 0059305960O FIRM 70 RECVRY 002 0059405970O 96 'FINANCIAL PERIOD:' RECVRY 002 0059505980O MNTH01 101 RECVRY 002 0059605990O !~  3 2 102 '/' RECVRY 002 0059706000O YEAR01 104 RECVRY 002 0059806010O 111 '-THRU-' RECVRY 002 0059906020O MNTH13 114 RECVRY 002 0060006030O 115 '/' RECVRY 002 0060106040O YEAR13 117 RECVRY 002 0060206050O E 3 30 RECVRY 002 0060306060O 31 '*----PLACEMENTS-----* *' RECVRY 002 0060406070O 55 '-------COLLECTIONS------' RECVRY 002 0060506080O 79 '--* *COMMS* *--CLOSED-' RECVRY 002 0060606090O 103 '-* *------ACTIVE-------' RECVRY 002 0060706100O 127 '* *------COURT COSTS---' RECVRY 002 0060806110O 132 '----*' RECVRY 002 0060906120O E 30 RECVRY 002 0061006130O 19 'MM/YY NO. AMOUNT' RECVRY 002 0061106140O 43 'AVERAGE AMOUNT PER' RECVRY 002 0061206150O 66 'NO. AMOUNT AMOUNT' RECVRY 002 0061306160O 86 'NO. AMOUNT NO.' RECVRY 002 0061406170O 111 'AMOUNT AVERAGE COSTS' RECVRY 002 0061506180O 130 'COSTS PER' RECVRY 002 0061606190O E 3 30 RECVRY 002 0061706200O 28 'ACCTS ACCTS BALANCE' RECVRY 002 0061806210O 54 'COLLECTD CENT PIF PIF' RECVRY 002 0061906220O 80 'EARNED ACCTS ACCTS' RECVRY 002 0062006230O 104 'ACCTS ACCTS BALANCE' RECVRY 002 0062106240O 126 'INCURRED RECOVERABLE' RECVRY 002 0062206250O 131 'CENT' RECVRY 002 0062306260O E 2 30 RECVRY 002 0062406270O MNTH01 2 RECVRY 002 0062506280O 3 '/' RECVRY 002 0062606290O YEAR01 5 RECVRY 002 0062706300O NAPL01 10 RECVRY 002 0062806310O AAPL7X3 19 RECVRY 002 0062906320O AVGP013 28 RECVRY 002 0063006330O ACOL7X3 37 RECVRY 002 0063106340O CLPC013 43 RECVRY 002 0063206350O 44 '%' RECVRY 002 0063306360O NPIF01 49 RECVRY 002 0063406370O APIF7X3 58 RECVRY 002 0063506380O COMM7X3 67 RECVRY 002 0063606390O NACL01 72 RECVRY 002 0063706400O AACL7X3 81 RECVRY 002 0063806410O*  3 F NACT01 86 RECVRY 002 0063906420O* AACT7X3 95 RECVRY 002 0064006430O* AVGA013 104 RECVRY 002 0064106440O TOTC7X3 113 RECVRY 002 0064206450O CCST7X3 122 RECVRY 002 0064306460O CCPC013 131 RECVRY 002 0064406470O 132 '%' RECVRY 002 0064506480O E 2 30N02 RECVRY 002 0064606490O MNTH02 2 RECVRY 002 0064706500O 3 '/' RECVRY 002 0064806510O YEAR02 5 RECVRY 002 0064906520O NAPL02 10 RECVRY 002 0065006530O AAPL023 19 RECVRY 002 0065106540O AVGP023 28 RECVRY 002 0065206550O ACOL023 37 RECVRY 002 0065306560O CLPC023 43 RECVRY 002 0065406570O 44 '%' RECVRY 002 0065506580O NPIF02 49 RECVRY 002 0065606590O APIF023 58 RECVRY 002 0065706600O COMM023 67 RECVRY 002 0065806610O NACL02 72 RECVRY 002 0065906620O AACL023 81 RECVRY 002 0066006630O* NACT02 86 RECVRY 002 0066106640O* AACT023 95 RECVRY 002 0066206650O* AVGA023 104 RECVRY 002 0066306660O TOTC023 113 RECVRY 002 0066406670O CCST023 122 RECVRY 002 0066506680O CCPC023 131 RECVRY 002 0066606690O 132 '%' RECVRY 002 0066706700O E 2 30N03 RECVRY 002 0066806710O MNTH03 2 RECVRY 002 0066906720O 3 '/' RECVRY 002 0067006730O YEAR03 5 RECVRY 002 0067106740O NAPL03 10 RECVRY 002 0067206750O AAPL033 19 RECVRY 002 0067306760O AVGP033 28 RECVRY 002 0067406770O ACOL033 37 RECVRY 002 0067506780O CLPC033 43 RECVRY 002 0067606790O 44 '%' RECVRY 002 0067706800O NPIF03 49 RECVRY 002 0067806810O APIF033 58 RECVRY 002 0067906820O COMM033 67 RECVRYd5  3 Z 002 0068006830O NACL03 72 RECVRY 002 0068106840O AACL033 81 RECVRY 002 0068206850O* NACT03 86 RECVRY 002 0068306860O* AACT033 95 RECVRY 002 0068406870O* AVGA033 104 RECVRY 002 0068506880O TOTC033 113 RECVRY 002 0068606890O CCST033 122 RECVRY 002 0068706900O CCPC033 131 RECVRY 002 0068806910O 132 '%' RECVRY 002 0068906920O E 2 30N04 RECVRY 002 0069006930O MNTH04 2 RECVRY 002 0069106940O 3 '/' RECVRY 002 0069206950O YEAR04 5 RECVRY 002 0069306960O NAPL04 10 RECVRY 002 0069406970O AAPL043 19 RECVRY 002 0069506980O AVGP043 28 RECVRY 002 0069606990O ACOL043 37 RECVRY 002 0069707000O CLPC043 43 RECVRY 002 0069807010O 44 '%' RECVRY 002 0069907020O NPIF04 49 RECVRY 002 0070007030O APIF043 58 RECVRY 002 0070107040O COMM043 67 RECVRY 002 0070207050O NACL04 72 RECVRY 002 0070307060O AACL043 81 RECVRY 002 0070407070O* NACT04 86 RECVRY 002 0070507080O* AACT043 95 RECVRY 002 0070607090O* AVGA043 104 RECVRY 002 0070707100O TOTC043 113 RECVRY 002 0070807110O CCST043 122 RECVRY 002 0070907120O CCPC043 131 RECVRY 002 0071007130O 132 '%' RECVRY 002 0071107140O E 2 30N05 RECVRY 002 0071207150O MNTH05 2 RECVRY 002 0071307160O 3 '/' RECVRY 002 0071407170O YEAR05 5 RECVRY 002 0071507180O NAPL05 10 RECVRY 002 0071607190O AAPL053 19 RECVRY 002 0071707200O AVGP053 28 RECVRY 002 0071807210O ACOL053 37 RECVRY 002 0071907220O CLPC053 43 RECVRY 002 0072007230O 44 '%' RECVRY 002 0072107240O NPIF05 49 G  3 n RECVRY 002 0072207250O APIF053 58 RECVRY 002 0072307260O COMM053 67 RECVRY 002 0072407270O NACL05 72 RECVRY 002 0072507280O AACL053 81 RECVRY 002 0072607290O* NACT05 86 RECVRY 002 0072707300O* AACT053 95 RECVRY 002 0072807310O* AVGA053 104 RECVRY 002 0072907320O TOTC053 113 RECVRY 002 0073007330O CCST053 122 RECVRY 002 0073107340O CCPC053 131 RECVRY 002 0073207350O 132 '%' RECVRY 002 0073307360O E 2 30N06 RECVRY 002 0073407370O MNTH06 2 RECVRY 002 0073507380O 3 '/' RECVRY 002 0073607390O YEAR06 5 RECVRY 002 0073707400O NAPL06 10 RECVRY 002 0073807410O AAPL063 19 RECVRY 002 0073907420O AVGP063 28 RECVRY 002 0074007430O ACOL063 37 RECVRY 002 0074107440O CLPC063 43 RECVRY 002 0074207450O 44 '%' RECVRY 002 0074307460O NPIF06 49 RECVRY 002 0074407470O APIF063 58 RECVRY 002 0074507480O COMM063 67 RECVRY 002 0074607490O NACL06 72 RECVRY 002 0074707500O AACL063 81 RECVRY 002 0074807510O* NACT06 86 RECVRY 002 0074907520O* AACT063 95 RECVRY 002 0075007530O* AVGA063 104 RECVRY 002 0075107540O TOTC063 113 RECVRY 002 0075207550O CCST063 122 RECVRY 002 0075307560O CCPC063 131 RECVRY 002 0075407570O 132 '%' RECVRY 002 0075507580O E 2 30N07 RECVRY 002 0075607590O MNTH07 2 RECVRY 002 0075707600O 3 '/' RECVRY 002 0075807610O YEAR07 5 RECVRY 002 0075907620O NAPL07 10 RECVRY 002 0076007630O AAPL073 19 RECVRY 002 0076107640O AVGP073 28 RECVRY 002 0076207650O ACOL073 37 RECVRY 002 0076307660O C  3 LPC073 43 RECVRY 002 0076407670O 44 '%' RECVRY 002 0076507680O NPIF07 49 RECVRY 002 0076607690O APIF073 58 RECVRY 002 0076707700O COMM073 67 RECVRY 002 0076807710O NACL07 72 RECVRY 002 0076907720O AACL073 81 RECVRY 002 0077007730O* NACT07 86 RECVRY 002 0077107740O* AACT073 95 RECVRY 002 0077207750O* AVGA073 104 RECVRY 002 0077307760O TOTC073 113 RECVRY 002 0077407770O CCST073 122 RECVRY 002 0077507780O CCPC073 131 RECVRY 002 0077607790O 132 '%' RECVRY 002 0077707800O E 2 30N08 RECVRY 002 0077807810O MNTH08 2 RECVRY 002 0077907820O 3 '/' RECVRY 002 0078007830O YEAR08 5 RECVRY 002 0078107840O NAPL08 10 RECVRY 002 0078207850O AAPL083 19 RECVRY 002 0078307860O AVGP083 28 RECVRY 002 0078407870O ACOL083 37 RECVRY 002 0078507880O CLPC083 43 RECVRY 002 0078607890O 44 '%' RECVRY 002 0078707900O NPIF08 49 RECVRY 002 0078807910O APIF083 58 RECVRY 002 0078907920O COMM083 67 RECVRY 002 0079007930O NACL08 72 RECVRY 002 0079107940O AACL083 81 RECVRY 002 0079207950O* NACT08 86 RECVRY 002 0079307960O* AACT083 95 RECVRY 002 0079407970O* AVGA083 104 RECVRY 002 0079507980O TOTC083 113 RECVRY 002 0079607990O CCST083 122 RECVRY 002 0079708000O CCPC083 131 RECVRY 002 0079808010O 132 '%' RECVRY 002 0079908020O E 2 30N09 RECVRY 002 0080008030O MNTH09 2 RECVRY 002 0080108040O 3 '/' RECVRY 002 0080208050O YEAR09 5 RECVRY 002 0080308060O NAPL09 10 RECVRY 002 0080408070O AAPL093 19 RECVRY 002 0080508080O   3  AVGP093 28 RECVRY 002 0080608090O ACOL093 37 RECVRY 002 0080708100O CLPC093 43 RECVRY 002 0080808110O 44 '%' RECVRY 002 0080908120O NPIF09 49 RECVRY 002 0081008130O APIF093 58 RECVRY 002 0081108140O COMM093 67 RECVRY 002 0081208150O NACL09 72 RECVRY 002 0081308160O AACL093 81 RECVRY 002 0081408170O* NACT09 86 RECVRY 002 0081508180O* AACT093 95 RECVRY 002 0081608190O* AVGA093 104 RECVRY 002 0081708200O TOTC093 113 RECVRY 002 0081808210O CCST093 122 RECVRY 002 0081908220O CCPC093 131 RECVRY 002 0082008230O 132 '%' RECVRY 002 0082108240O E 2 30N10 RECVRY 002 0082208250O MNTH10 2 RECVRY 002 0082308260O 3 '/' RECVRY 002 0082408270O YEAR10 5 RECVRY 002 0082508280O NAPL10 10 RECVRY 002 0082608290O AAPL103 19 RECVRY 002 0082708300O AVGP103 28 RECVRY 002 0082808310O ACOL103 37 RECVRY 002 0082908320O CLPC103 43 RECVRY 002 0083008330O 44 '%' RECVRY 002 0083108340O NPIF10 49 RECVRY 002 0083208350O APIF103 58 RECVRY 002 0083308360O COMM103 67 RECVRY 002 0083408370O NACL10 72 RECVRY 002 0083508380O AACL103 81 RECVRY 002 0083608390O* NACT10 86 RECVRY 002 0083708400O* AACT103 95 RECVRY 002 0083808410O* AVGA103 104 RECVRY 002 0083908420O TOTC103 113 RECVRY 002 0084008430O CCST103 122 RECVRY 002 0084108440O CCPC103 131 RECVRY 002 0084208450O 132 '%' RECVRY 002 0084308460O E 2 30N11 RECVRY 002 0084408470O MNTH11 2 RECVRY 002 0084508480O 3 '/' RECVRY 002 0084608490O YEAR11 5 RE  3 CVRY 002 0084708500O NAPL11 10 RECVRY 002 0084808510O AAPL113 19 RECVRY 002 0084908520O AVGP113 28 RECVRY 002 0085008530O ACOL113 37 RECVRY 002 0085108540O CLPC113 43 RECVRY 002 0085208550O 44 '%' RECVRY 002 0085308560O NPIF11 49 RECVRY 002 0085408570O APIF113 58 RECVRY 002 0085508580O COMM113 67 RECVRY 002 0085608590O NACL11 72 RECVRY 002 0085708600O AACL113 81 RECVRY 002 0085808610O* NACT11 86 RECVRY 002 0085908620O* AACT113 95 RECVRY 002 0086008630O* AVGA113 104 RECVRY 002 0086108640O TOTC113 113 RECVRY 002 0086208650O CCST113 122 RECVRY 002 0086308660O CCPC113 131 RECVRY 002 0086408670O 132 '%' RECVRY 002 0086508680O E 2 30N12 RECVRY 002 0086608690O MNTH12 2 RECVRY 002 0086708700O 3 '/' RECVRY 002 0086808710O YEAR12 5 RECVRY 002 0086908720O NAPL12 10 RECVRY 002 0087008730O AAPL123 19 RECVRY 002 0087108740O AVGP123 28 RECVRY 002 0087208750O ACOL123 37 RECVRY 002 0087308760O CLPC123 43 RECVRY 002 0087408770O 44 '%' RECVRY 002 0087508780O NPIF12 49 RECVRY 002 0087608790O APIF123 58 RECVRY 002 0087708800O COMM123 67 RECVRY 002 0087808810O NACL12 72 RECVRY 002 0087908820O AACL123 81 RECVRY 002 0088008830O* NACT12 86 RECVRY 002 0088108840O* AACT123 95 RECVRY 002 0088208850O* AVGA123 104 RECVRY 002 0088308860O TOTC123 113 RECVRY 002 0088408870O CCST123 122 RECVRY 002 0088508880O CCPC123 131 RECVRY 002 0088608890O 132 '%' RECVRY 002 0088708900O E 1 30 RECVRY 002 0088808910O 5 'TOTAL' #<  3  RECVRY 002 0088908920O NAPL13 10 RECVRY 002 0089008930O AAPL7Y3 19 RECVRY 002 0089108940O AVGP133 28 RECVRY 002 0089208950O ACOL7Y3 37 RECVRY 002 0089308960O CLPC133 43 RECVRY 002 0089408970O 44 '%' RECVRY 002 0089508980O NPIF13 49 RECVRY 002 0089608990O APIF7Y3 58 RECVRY 002 0089709000O COMM7Y3 67 RECVRY 002 0089809010O NACL13 72 RECVRY 002 0089909020O AACL7Y3 81 RECVRY 002 00900 O NACT13L 86 00290 002 0090109040O AACT7Y3 95 RECVRY 002 0090209050O AVGA133 104 RECVRY 002 0090309060O TOTC7Y3 113 RECVRY 002 0090409070O CCST7Y3 122 RECVRY 002 0090509080O CCPC133 131 RECVRY 002 0090609090O 132 '%' RECVRY 002 00907/* 009100 002 0090800010H ZLA21 002 0000100020X 1 G21 R CCS CCS 3.0 SL-149 00800 002 0000200030F* G21 R CCS CCS 3.0 SL-149 00810 002 0000300040F* 00820 002 0000400050F* LEGAL AND AGENCY SYSTEM VERSION 3 00830 002 0000500060F* DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 00840 002 0000600070F* COPYRIGHT CONTROL DATA CORPORATION, 1979 00850 002 0000700080F* 00860 002 0000800090F* CUDDLY DECK FOR FUTURE PROGRAM DEVELOPMENT. 00870 002 0000900100F******************************************************************** 00880 002 0001000110FDUMMY IPE F 80 DISK 00890 002 0001100120FPRINT O F 132 PRINTER 00900 002 0001200130I******************************************************************** 00910 002 0001300140IDUMMY AA 01 00920 002 0001400150I 1 80 REC 00930 002 0001500160OPRINT D 01 00940 002 0001600170O REC 80 00950 002 00017/* 00960 002 0001800010H ZLA22 002 0000100020X 1 G22 R CCS CCS 3.0 SL-149 01010 002 0000200030F* G22 R CCS CCS 3.0 SL-149 01020 002 0000300040F* 01030 002 0000400050F* LEGAL AND AGENCY SY`  3 STEM VERSION 3 01040 002 0000500060F* DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 01050 002 0000600070F* COPYRIGHT CONTROL DATA CORPORATION, 1979 01060 002 0000700080F* 01070 002 0000800090F* CUDDLY DECK FOR FUTURE PROGRAM DEVELOPMENT. 01080 002 0000900100F******************************************************************** 01090 002 0001000110FDUMMY IPE F 80 DISK 01100 002 0001100120FPRINT O F 132 PRINTER 01110 002 0001200130I******************************************************************** 01120 002 0001300140IDUMMY AA 01 01130 002 0001400150I 1 80 REC 01140 002 0001500160OPRINT D 01 01150 002 0001600170O REC 80 01160 002 00017/* 001170 002 0001800010H ZLA23 002 0000100020X 1 G23 R CCS CCS 3.0 SL-149 01220 002 0000200030F* G23 R CCS CCS 3.0 SL-149 01230 002 0000300040F* 01240 002 0000400050F* LEGAL AND AGENCY SYSTEM VERSION 3 01250 002 0000500060F* DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 01260 002 0000600070F* COPYRIGHT CONTROL DATA CORPORATION, 1979 01270 002 0000700080F* 01280 002 0000800090F* CUDDLY DECK FOR FUTURE PROGRAM DEVELOPMENT. 01290 002 0000900100F******************************************************************** 01300 002 0001000110FDUMMY IPE F 80 DISK 01310 002 0001100120FPRINT O F 132 PRINTER 01320 002 0001200130I******************************************************************** 01330 002 0001300140IDUMMY AA 01 01340 002 0001400150I 1 80 REC 01350 002 0001500160OPRINT D 01 01360 002 0001600170O REC 80 01370 002 00017/* 001380 002 0001800010H ZLA24 002 0000100020X 1 G24 R CCS CCS 3.0 SL-149 01430 002 0000200030F* G24 R CCS CCS 3.0 SL-149 01440 002 0000300040F* 01450 002 0000400050F* LEGAL AND AGENCY SYSTEM VERSION 3 01460 002 0000500060F* DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 01470 002 0000600070F* COPYRIGHT CONTROL DATA CORPORATION, 1979 01480 002 0000700080F* 01490 002 0000800090F* CUDDLY DECK FOR FUTURE PROGRAM DEVELOPMENT. 01500 002 0000900100F******************************************************************** 01510 002 000100011@  3 0FDUMMY IPE F 80 DISK 01520 002 0001100120FPRINT O F 132 PRINTER 01530 002 0001200130I******************************************************************** 01540 002 0001300140IDUMMY AA 01 01550 002 0001400150I 1 80 REC 01560 002 0001500160OPRINT D 01 01570 002 0001600170O REC 80 01580 002 00017/* 001590 002 0001800010H ZLA25 002 0000100020X 1 G25 R CCS CCS 3.0 SL-149 01640 002 0000200030F* G25 R CCS CCS 3.0 SL-149 01650 002 0000300040F* 01660 002 0000400050F* LEGAL AND AGENCY SYSTEM VERSION 3 01670 002 0000500060F* DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 01680 002 0000600070F* COPYRIGHT CONTROL DATA CORPORATION, 1979 01690 002 0000700080F* 01700 002 0000800090F* CUDDLY DECK FOR FUTURE PROGRAM DEVELOPMENT. 01710 002 0000900100F******************************************************************** 01720 002 0001000110FDUMMY IPE F 80 DISK 01730 002 0001100120FPRINT O F 132 PRINTER 01740 002 0001200130I******************************************************************** 01750 002 0001300140IDUMMY AA 01 01760 002 0001400150I 1 80 REC 01770 002 0001500160OPRINT D 01 01780 002 0001600170O REC 80 01790 002 00017/* 001800 002 00018__mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmۛY  3 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmCv  3 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmCa  3 "mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmCL  3 6mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmC7  3 JmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmC"  3 ^mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmC  3 rmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmB  3 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmB  3 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmB  3 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmB  3 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmB  3 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmB  3 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmBz  3 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmBe  3 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmBP  3 &mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmB;  3 :mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmAL  JO CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm P)FSYSDAT M00 A MSOS CCS 3.0 .56 TERM'L SL-149@PX?? @@P+ @   3 N@PV@P@P@PE`P@P@PU)F^)6  @PTT TT T .T TTT #T T@P+T \T LTT T@P@[;[;[;[;[;[;[;[;[;[99 )))@Pk"/ THIS MSG CHANGED VIA MI, SYID..  b @P`PM`PP`P^@P  @P !%)-15@P79=AEIMQUY]a@Pbeimquy}@PB  3 b@P@P! Ot 1 _t 1 3 (t$ p[F    ( p !@@@@P@@@@@@@@@@!@P9!`Pd @Pm O  _ (t$ p 1 TERMINALPRINTER LPRINTER READER TAPE0 TAPE1 @PRR R@P3`P @PR  &$@P$R  &  O@POR  &tR @Pz &\]O`P@P[R F$`P@PR\ F$`P@PR F$`P  3 v@PR F$`P@PR F$`P?@PCFR F$`Pn@Pr[R R @PtR f@P@ (`@`P5@P (R f@P S@ p`@R ) * +f@P ~ @@P  `@R q r sf!@P @`@P @ R ,<@P * 1R , <`P U@P V _R  @P   3 `P 4@P R<4   @P R 6FA  R@P 6J `P aP@P R( `P v@PRSTUVWXYZ[\]^_`abx`P} Z`PW@P.`PY`P*`P |`P!@P"/"4"K"b"y``@P"Z`@P"`"""##DT`P"@P"T  3 `P"@P"T`P#@P#T`P#D@P#ET`P#p@P#q X X"dT$T#TR T$#@P# h 6 l#TR `P#O@P) @JPRETNFMEXECsR9TAPF@P)AR9SEGF)APMASKT MAXSECMPFLAGSYSID SYFAILxUBPROTeLBPROTdUPBDTBbLOBDTBQINTSTKAEXTSTKVOLBLKVOLENDSCHSTKPSCHLNGLOG1A NUMLU CCPLU MT50U0MT50U1 MT25U0 MT25U1TERMLUCONSLULOG1 LOG2 ALTERRDGNTABPDUMALTLSTOUTSTDINPBATLSTBATINPLUNAMEINVINTePCORE ^PCONSL>MIINP .TK7WEFTK7DATTK7RW MICSUBPSEVENTSEVNRDPTPDT0PTBSIZ?PTEOFVP83310XP1829 CDRDSMP1811LCPTRACPCCP1 AUTON PBAT00PBAT01NPCALTHDLVLSTRN4 N5 N6 N7 N8 N9 N10 N11 N12 N13 N14 N15 PCOMM18HWINITU2INITSIMRSVQMINTXLSTLOCPARTBLLSTPRTBUSY TSAREATHDS USE OUTPV4RDPTV4PSPCEV4PTNALCPTNRELK65T10K65T12K65CORFMRDEL~FMEOFC}FMMOSUFMMOIUFMNRCDMAXCOPmUCTLENUCTABLPMAXLOCTLRTABL(NRERLEFMMOSFFMFCBSFMMOIFFMFCBIFSCTNEFCBSCTFSLIMThFSLENDMMLUTBPCTABLoIDLE ܎Tc  3 PIDLER ܉INSTLUIDLCTR܄TMRTYPhTMCODEFSTIMEaDMICODfTBLADReEMPSRTdEMPSTPcBUFF MBUFFE CGHOSTAYERTOPAMONTOADAYTOYERTO MONTO DAYTO HORTO MINTO SECON CONTA HORMINTOTMINTIMCPSTIMEC TODLVLPNSCHEDTMRLVLLSIZV4GPSIZV4GODBSIZQCHRSFGCOBOPSFMASK FLIST DOUT Q8STP NDISP CNTWARCNTTBLPMICSB2JLLUV4JBFLV4FBASV4PKEYV4RELFILFMPFLGJPRET PR9TAPFֺJPRETNMICLENMICSECCWLGT1CWSEC1CWLGT0CWSEC0CNWAREvSLICERgTSLICERTIMEUPPKICKOFjINPTV4zPRELFLEoLIBEDT܀BGNMONLEND AREAC DBATOUMSBATINLBATINCDRCP1IDRCP1ETRMNLCTRMNLS1829 L1829 PS18273L18273S1827 L1827 E18331DC18331EI18331FMTBFE1]MTBFS1_MTBFE0uMTBFS0wSMTSIMeLMTSIMfIPTAM2PS18326}L18326~S1860 L1860 ICONSL=EDUMMYKCDUMMYLIDUMMYMECORE [ICORE ]MASERR_MASCONaMASDRVcSYSYERyPSYSDAYzSYSMON{FMEXECSECTORDATBASEND0V4RCTV COBOP COUTV4ALLIN TSIPRCIPROC MSIZV4 MONI PDISPXXNABS @CABS ASABS BLUABS CVOLA DVOLR EREQXT FCOMPRQIFNR JP PMMEXEC M01 A MSOS CCS 3.0 SL-149@P@XgTR@XRa<jhTR HxqX2nX jg@P+jgjg h@)fgimjj j [j THq THsXHL @PV"h> 7H6X    v"`"` jj@PT 2a  2TTR$ `P@P@XTR@XdhH jIHk 4@ڳ@PbUbbM AʳX`H` jX/h)ʣjjX#Hʢ@PXTR@ʋ@hn "jg r  3 @P3"F YA 5A  P"GjGjC hC@H1Xq@P^.   D a3  H@a3  h@PHTPMASDRVMASEXTMASCONUMASERRMAS300RELBYQPBUFFE BUFF LOG LOG1A ALTDEVP PPORTS M02 A MSOS CCS 3.0 SL-149@P Z@P+ZZZZ@PVZZZ@PZZZZ@PZZZ@PZZZZ@PZZZZ@P-ZZZ@PXZZZZ@PZZZ@PZZZZ@PZZZ@PZZZZ|  3 @P/ZZZZ@PZZZZ@PZZZZ@PZ`P@P""1@O^m|!0?N]l{ />@PM\kz.=L[`P@P`P @P"`PM@PO`Pz@P|`P@P`P@P`P  3 @P`P.@P0`P[@P]`P@P`P@P`P@P`P@P`P<@P>`Pi@Pk`P@P`P:  3 @P`P@P`P@P`PJ@PL@Pw@P@P OFF UNTIL ???? RMUOPN @PRMUCSW RMUCF0 RMUCFT@P# RMUCLO @PN`X@Py@PM~ @P@PBs@P %7@P Ph@P {,3  3 @P ]@P !@P R@P 'G@P Rx@P } <@P m@P 1@P b@P )&W@P T @P L@P }@P @P @P +@P V@P @P @P o  3 *@P @P -@P X@P @P @P @P@P/@PZ@P@P@P@P@P1@P\e`P@PW+]`P@P+`P<  3 >@P+`P@P+`P@P+!`PF@PL+R`Pw@P}+`P@P+`P@P+`P @P+`P;@PA+G`Pl@Pr+x`P  3 R@P+`P@P+`P@P+ `P0@P6+<`Pa@Pg+m`P@P+`P@P+`P@P+`P%@P++1`PV@P\+b`P  3 f@P+`P@P+`P@P+`P@P +&`PK@PQ+W`P|@P+`P@P+`P@P+`P@P+`P@@PF+L`Pqm  3 z@Pw+}`P@P+`P@P+`P@P +`P5@P;+A`Pf@Pl+r`P@P+`P@P+`P@P+`P*@P0+6`P[4  3 @Pa+g`P@P+`P@P+`P@P+`P@P%++`PP@PV+\`P@P+`P@P+`P@P+`P@P+ `PE  3 @PK+Q`Pv@P|+`P@P+`P@P+`P PDUMPOTPORTS EPORTSNBRLINPLENTHOUTQUEENDQUEMAXQUECCP CPTBLNACPTBETSPAGECPTBLZ{NUMCP PCPTBL XMATR XMAT jXMTENDMMAMAXMMAT NXUC NXUM NSWP TSQPRIPROMTRBAITOSDATFMTDATSEPPTSTLOCPRTCDRSWPSECR9TAPFR9SEGFWKSPLULRGUSRRQLLIMRQULIMTSOFFMRETIMEONTIMEFILOADQPASWDPTSLOFFWKSTATTSMUSRTSMEND?RMUOPNRMUCSWRMUCF0RMUCFTRMUCLOR9MUX1R9MUX2R9MUX3R9MUX4R9MUX5PR9MUX6TSPORT?TSPEND TSUSER TSUEND_LTSUSRoNTSUSRL000 PSWAPARSYFAILSTRLENSTRSECP PqPARAME M03 A MSOS CCS 3.0 SL-149@PH F  4 """aH"1 h"+h!2@P+b4 h12 a2aH"1"i+!!2a"a@PVH"19"+Ȱ122"aPPARAMELUABS SABS NABS @CABS X  3 P P T16 M04 A MSOS CCS 3.0 SL-149@P"4aaPT16 PASC P P#DTIMER M05 A MSOS CCS 3.0 SL-149@P h Q! b1hhThTP PDTMER DTIMERPTMRLVL"DGNTABP PTMINT M06 A MSOS CCS 3.0 SL-149@P"3 a"I 2" "1""TA"Td"@ @P+RTf"`Ab"D"ATbjObh< H9>3 j:4j7@@PV S*  b# a&bH$h"hT! h ab@@P ;PTMINT TIMEUPET8 T15 TMRTHDPSYFAIL-TIMEC NSCHEDGP P.MAKQ M08 A MSOS CCS 3.0 SL-1498  3 @P a"I   ! 9  f"a 11r  r t@P+a "PMAKQ MAKEQ P PRW M09 A CCS CCS 3.0 SL-149@P"3 a"aX~TA4 x"12 A @P+Q"Z3bbXzH9L, DOWN  n>/X\ A@PVhL hTA/nbb "2f"HT b@PHT s% bdbTŠ x"122@Pd 0F400 hKΈ(B " hPRW T0 T1 T2 T4 T6 SAVLU CKTHRDRPMASKCONVERALTSUBPLOG1A GLOG1 FLOG2 DUMALTP PMNMONI M10 A MSOS CCS 3.0 SL-149@PT AA haa B\="a1Aa"a"a'2f"  aI@P+A" \HTPNMONI RCTV /MONI REQXT CASC PT19 BT18 AT17 @T16 ?T15 >T14 =T12 ;T10 9T9 8T8 7T6 5T4 3T2 1T1 0PT0 /CPSET LCCP P H  3  PNIPROC M12 A CCS CCS 3.0 SL-149@PLh!T hDh  DSA?d+XKH#@P+h#+ ` 2 +T PARITY, 0000hH  h@PV h"hhd"c`d" `TG"XhXȈ h X h X Ȉ@PDd " : APIPROC IP1 ASAV %QSAV nMSAV oPWFOV pHA sPRO PWFAILOPTYERRNIPROCPSYFAILlPARITYDSWTCH JOBINDPOWERUmP PSTRVEC M14 A MSOS CCS 3.0 SL-149@P S   @P+  hTRT$2d 2esR4R4!PTRVEC UNPIOF PARBV4COMPV4DINPTV4SCHERR?JOBIND NSTACKTRANV UNPIO IUP SPASW LIBET FILE1 PFILE2 FILE3 FILE4 RECOV LOCF LPTRS SWTCH LOADINUNPTIM VINPV4BATCLU PRORETMIBUF JPSWT PJBPROETRNVECRELS1AERRMSGAUTF9 AUTFA AUTFB JKIN JBCFGZ&JBCNCL JBCNFG6JPRETN8JPRET17PPROTEC=P P OFVOL M15 A MSOS CCS 3.0 SL-149@PA+ O VTPOFVOL OVFVOLPSYFAIL  3 P PALVOL M16 A MSOS CCS 3.0 SL-149@PDRrbb@@`@"PALVOL VOLA VOLR POVFVOL VOLENDP PALCORE M17 A MSOS CCS 3.0 SL-149@PH/ h,h(( 2 h"H! Q@!1! 1h @P+h" H:h;:h<8h842 ! h,,H)@H(bA""@PVl" l ! h@lf"bAH b b"@Px@PzH0H, `&"@rQbAdah @P`lbPALCOREREQALCRTNCOR|PCALTHDLEND LVLSTRP PLNCMPRQ M20 A MSOS CCS 3.0 SL-149@PA a"Ib bK  7 h0b* h%#@P+# bT"2f"hT`a#a"PNCMPRQCOMPRQN  3 PTSMMER1LOG1 BP PyNFNR M21 A MSOS CCS 3.0 SL-149@P a A  GT "I) A  Ah a" 4"@P+a"n2a ,a ">a  a i& M J G D Y@PV    a "1 a a  a TA TA " !a PNFNR FNR FINDRQPALTSUB LOG2 $LOG1A LOG1 [P P^ADEV M22 A CCS CCS 3.0 SL-149@PTRc2 ?&th_H^\T@U(HY\SHVPhhMQRh8`nL\EVG@P+/nGe`,H`@``=\anY5U`DaO1A1n.(%& BhBCh@PVbT 4h1TRUt n QH@PshhxHhj n hb ` "\V"@PHhTRJXJhUR XFhVXChWTLt 8X8hC@ X4hDTL@P hETLTHa3330C H)e s @P 0F400@PL, FAILED ALT, ACTION @PRPQ"h`JanFDT B=`Th4` hTT@P0a &@0n#ch hTR"XnTR Xs&  3 @P[tPADEV DEVERRALTDEVPSYFAILUNPIOFLUNPIO JSWTCH QRELBYQLOG2 \LOG1A [LOG1 ZALTSUBmALTERRnJBCNCLVP POTOD M25 A MSOS CCS 3.0 SL-149@PXTTa?a9a6aAB81Aa !a#" :l 5@P+lBT$(l(lhhl lT <dPUPTOD TOD PTOTMINIHORMINHCONTA GSECON FMINTO EHORTO DTDFUNC/TODLVLTIMCPSJP PT14 M26 A MSOS CCS 3.0 SL-149@P"5 aaT"aTPT14 CARDRD PCKTHRD SAVLU P PmEFDATA M27 A MSOS CCS 3.0 SL-149@PbT aBrrAaa"2 a"F!B "@P+a aD a  H . }z C" ` hnp"f"ji@PV fdbhT$X`aTh ` ,jki qH ` "j` q?`@PaThz3 0.q)nh(h(H&TR #`">"1hT{  3 .@P b `hTX`P`P2@P Ȫ h C` jS qN\Kh8OTh< =H7 5H3h3@ \9h#<Ƞ \4h&B581H2@P8\. =Hh,\(B :hHTLU^M MM ERR XX LU=XX T=HHMM:SS S=XXXX X@PchSdPLOG BSYEFSCEFDTAEFLOCKdEFCOVLEFDATAMMEF PHA CONVERfLOG1A -SECON HORMINYERTO MONTO DAYTO EFSTOR`P P#DUMMY M30 A MSOS CCS 3.0 SL-149@P@TT@?n 2a H TbT PIDUMMYCDUMMYEDUMMYPLOG1A DUMALT LOG1 "P P a" Aa hVh " HO# H $a 1" h?XyDh;O2h@PVPhPDhL NhoXT"I  `A  hh" h} #@Pz # WX  " 9 X ,1 3 8X! 8@PU1_ XXX  h X3"2hhDh2hh"h!]  3 B@P hX XhXX hXaahh @PhXX X"!hXaa 1kf" h|@P- XDhX X1  h?g+ A1a ^ f" & _@PXa %X~Dh XcT Xh`Th T XL XI 3@P#a  8 X M X!  X1h X!@PB hB DH"rth h h h hT`2@P X X rH  a f"ThTqr B2a h.@P" " <hph"$ Hh"Q Q R01a ֠h vQ H@P/Bh r <  #E{hB aa X,Xh XnBHj@PZXXXk Xd( X`]DBHZXj ! HRXKXS\gH*"'m@@P9!j4 hHX;H h T\f.HaP@PdXh XH h hT&\beh " ` @P hˆ`hhhVhRh` a_a `a` `aZ `a^ `aaac `a@P` aU Vaq Xao ab` ]h h h h^ :h h_ ]h h` h@P^ ]h h hBSB""/4h da A  X @PLIB a; aN G` hM hSh~hX hy aO2@P;- A  Xt IN +' +cB A+ +da  Π XX:  @Pf XMQ o*P 0FȀ004h A X6 L Οh/ n h< @Pa<; a; Άh  cB T'/ nn~ i@P  hh l ZhT lh 0$a h3 @Pu#  a al !h y  r HU2Q @PI ^              "2a1Ba2  3 j@P=jbHXHhh *M*L*P*V*U*Z@Ph*K*N*S*T*R*A*DM*DL X6A  h X%R @P / nA/ n~  X Rv AC A&$EȘFX'@PXH nc<XX?h:"66 // nM' XX' nB :@P1 !Qb  h aHI8h"% @P  Y `X pahjHj4h!BHe^aG a `aGAa X|G Z@P?R4B0CahMIQ A  Xf A  X_ FINI  a G"@Pj aG"hhh X/ aXG aG SECT. FILEH @Ph XhTLH% a X HhXHh h hX@PjX j h 0123456789ABCDEF@P``h3 }n0 qh HA 0%D   aEX 0 aE A HhX A@P  Xk FINI  hY` hUAT 0F400lIHGG 1 dhB>AX>@PAL;:l987 a 3 `h-` h h X[TLT\ A  X@Pl  h E aEa h hXjX j @Ph 0123456789ABCDEF` aja ahaiaja XD `a @P XRXh?Xe)"7  FPaha aiaha ai. ajX+ @PX:d X7aB>. ajX X*d X'a2,X Xj Xg Xd Xa @P hj0aj X X XqaA X_ahai XdHThSH?`@PC Š .h h "QhyhhOs"2h" @Pn X" $ ah A H"\h T  `a     3 ~@PX  aX SAa # X)   U t 1A at `a@PhhXw T\hTL \_Ȕ AQq `a@P a a T\  Q_ bh# ah A H)bfGj@P 1hGaG!h a ah W h a A aLIBE *T Ye @PE1 aGaaaG zXS 1 a!a `a ;| T"Tch Tg @Ppa `a GaGA X%:aA X` atalapahaiaj a?a=X7B  @P K %aH4  HXqXV X[f XXg!GXa * X*A @P X% A XS h `` ha ` Xh  aHX@PSH hXAajXWMD Aa  XH1 @PXehAi  hX X Xe Xb XHXV Xf X!  UhO@PGB1A aHH bh~h}8b" 1A !m)1UaW O@Pr Xdax Xr\b3`baG  Aa # X aaa@P zXM7"B!b0f"Db+aA X:$Db !1A daxa{ a 2 X(@Pa{ 1A dax a 2 X `XhW!T aV XT @P  a amapalaiahawaaf a=a?^h Xmh h X_Ai X@P "ajAkHUaW O XO aIaDjh  XHhw \ X aXaaQk@P IaYaaRaSi"2anXYa XAa G Xm!1h&X al a=a? ajdY@P taR2an a?Y a XY aYRYS` UlaW V X X AhAim"  @P  `X{hW^h X XPAAQaaRXudhqq dhm^h @P XlXf lblb X.L[l[ \ X_fRaQaLKGF `C ?h  3 @P f `X?2`` UlaW V X2mah amRAkb XvHfhe X@P  X'     >bh` :h h $hTn   @P K#KhJH h XHMmg X  4 h1/D nB@P v ! wؠ `XX1Ȗf+@P ' #w؃ ؚ2anaYa XC  PPP@P@P `PP `XhW a awahaiaja~a|aCatauaTalap ada?a=a`X$T  @P XoXCatXAXQavXBau XSAB@P "avtTuA XHht XhW^h n Xa} HHJ!HhChBU@P MaW O X<dax Al Xa{21h-{XIda'` a 2 X}Xixb{bXVax@P xa{ a 2 X X` AA} ]axayxdbX0X a{yxax@P a 2 Xawa `a aAa X aAa # X h  `@P aAa # X a=DapalUaW O X g X n XHH  `X @P hWut$  a@ XJ|wa^h n X? HIaDaAdhu@P $@B1A a|t 1AaAH `}h|aX@v$ @(B1AA h HaDD@P OaC `a`CXbAaD B1a~|,~ |h!ahX?A@P zX>CA5aX5TB )aDADX.H|~a|BHH~Aa@P `ADCAX `a`XPAa XAa # Xt A@1AAaA@P @ `aX_ hwXXn@XDA !@1  awa@P a a XP` A``h] X   hM X  @P &hD 1 Xxh9 XpM-' 5B %h"2 "  3 @P Qf"hB0`hHX | 6B h1 DaCNaD ) XAa @P | X)n ) XAa # X`X_F    a  bXQhjhahah`@P h` hBh%T C 6""h/hJX0*)hhX C @P  a  bXhX  hA X5EŠ @P hXK  dhXD ~d hXh@P(h  hh hh `hXz3 JȻhȶh ȶ@PS hh} hhy hȭ [hY Xhk'D P nAXjE1.  (X@P~x948 H30g*F b &ok nXndj `Kc Fh)@PX[8[gSAB87 X)XTL` @P \7 XXTH \hXT@P \aA X` a?a= alapahaiajXrT   h* @P* aH1X_Q !h?= :  _ahaiXEQ   @PU! h" < 2ah` gaiXU    @P 2aj XvHfheZ XXSR   1jajXES  @P  h  hXj XCkhh Xl* XMa a  X^"@P֘  *K hhD 8  XD hS M 2  !@PCa"y$ Q 1hPaA X Xq# @P, Xq XHXQ  p Xq Xa!XR   XHH@PW  OB1A a bhxhu 1A a!k h1dax@PUaW O X XoYb3` ab"A1f"hbaG aa zXR  K  3 @PAa # X 1aA X@*Db '1A dax"a{ a 2 X.a{ 1A dax @Pa 2 XA X G a "T &   + a GHX@P2r Aa Xh,XH aEh%#h('n A hN `@P.Ah" " H h TDhX`aXXZH/ 0@PYalA=UaWl? O X =0'hA= =h =h  a>dn>`l V Xla?@P2anx  ay a?{yXyxy `a ] XocAa Xa ;"aY@P a@aCaB ] X `a@AAa XBh!kh ` 4hX  !@@PAAa # X~aDB`4h h l H 0h&XH#@P hX H 4h 0F 0H 0F 0 X RECORDS TRANSFERRE@P0D h ChT  j q HX9  FILES TRANSFERRED @P[ h%H$   E1aD  HH@PKXHXtbhhz hrahrahp hl `ahjfhfcAa @PXSX ZMB0Ca hN  aN !%KI   ? h=8 h64@PX /1.aad (hih i2Ah@Ph = a= 4 a=pp  ApA=UlaW V Xll 4  @P2UlaW O XZpA]"h4h4a\=b2\h+h+Ad\]f" !la\  !p\=@P] lHpH=H x! alapa=aDaaM `a`aLLM@PAa Xa ZaKXwLlMLAa # Xwa3 ` @P n A `aMLAa # X] aK DhZa|aa aB1a~"Df A `@PaEAa XH=h%&; 5wXK$*  ' `a~"1X"X|\  3 @P   " "   B1A a|LIBEB!a a|A @P4Aa # X|a|Dh H  1 h c+ AdaH&@P_4 h"d_DaCN aDXaA X`f" f"X # X#Ddd `a`@PC h0aC ] X `aA@Aa XDarZaD `4h A  !@P A a zXH_HXX-HZHPh\QN@   F@P  c+ q+da+3"aGa X1h,%A``h,d h*hd@P hX\DD@ h HTH@P6hKH8_h4hEd 1h!h*h;hh2h!hh/X X$8-h+h@PahXܶTH\XܤTL\@PHX 1H#Nh `a^aA X^f" f" # X #@PhXhthh 2rh #THT$hX@PHFa  ?h zhTLT `aQbX `aZ@P qX `aZqXaDCa@`aA`hB X&A *AFn5F qR@P8 n)n# l `araDA@X} a e Xk}aXKa `aLMA@XW@PcOh^ he hYhWh\hX c qPs"H"HEEhEG6AD2=d @PR@ T A=1!#h0* 1= $9"0$h$! a9(hc@Pc aO ,  4    hh AE@PE (hE aE7 Fh 2 cs c qaaȷ@PaO S^h & cI  $ c nC h hHŠ  hh*h)hwX$ҩ  3 @PeTH h\agaev(hh>hbX@PHHhTL`TH"h h hHT @PHhPIUP COMPV4SECTORFJPRET JPRETNJPRET1LOADIN LSTLOCpLSTPRTlPARTBLsLOADSD LIBEDTNUMLU nLOG1A QPSWAPCKUNPIO SWTCH FILE2 IP1 PLIBEDT P6LOAD1 M36 A MSOS CCS 3.0 SL-149@PXLOADhHX`P+@P % @P7Q60123456789ABCDEF@Pb%@P``PG`P`PI`P@P`a A4a9 a: a>afae/]    T AAPLOAD NUMSECLENGTHaPPRINT3STOP NMPRNTPRINT4PRINT6%PRINT5@PISKRD2DRIV QPLOAD PCLINK11 M45 A MSOS CCS 3.0 SL-149@PhA"BaBX!gXa WE9 ; qhXh WQB@P+a pqd4" WA" !t݀PLINK1 PISKWR"ISKRDPLINK1 PyLOADR1 M46 A MSOS CCS 3.0 SL-149@Ph c A9 X" 1 ;*Ta a<  P#h@P+ C3 ;) KA 6 (9h K R A@PVh*PXaaT T  9PALRMOKLOADERNXTBLK  32PG2KRD`FRPROZXTPRORNTPROEZSPROCBDPROAAMPRO,DRIV PLOADER PNAMPR1 M47 A MSOS CCS 3.0 SL-149@P a(!  AX+!)y !aXt3 @P+a,! AX_!$XG4 ;xAAAAAyXF3@PV aaAyX1# a X(!A e  X1?@P5 ; aaa #Òc B aX !fa#R4PSIGNCKNAMPROPMPRNTPLOAD PRBDBZ1 M48 A MSOS CCS 3.0 SL-149@P a  aa9aa Ch~hX{ a%OMhHX@P+ya5XQ    QRhXX1@PVXa?5 7 6 ;XQr!pXZ@Pa a?} ah* (H& A aWAAV A @Pa R 41Da a9 ;  aXs 9X@P1 x QRa  qr315;qf"qPRBDPROBZSPROPIGNCKISKWRzRDADRPLOAD  3F P6ENTEX1 M49 A MSOS CCS 3.0 SL-149@P>a aXQ(wo8 Q6QbX>a aXX  4a ?=a B@P+17Q6Qbda PENTPROEXTPROPXSTORNTSTRP PXFRPR1 M50 A MSOS CCS 3.0 SL-149@Pa a!a"a e?PXFRPROPLRMOKPLOAD PSTBASE M51 A MSOS CCS 3.0 SL-149@PfH]"a5 " aW X ! X "  a/=a' AAx@P+ A( AAy AA!a0We!h  !a1!h/ aW awhwB@PV0aa %11; !2aah" audauf ffu2 @P ° AA 32 ; 0a1  hGXBhB X< 4aa@P4apaq4arW4aTaSȝ" a a!Aa Q(X@Pװ!h !h + X  XPSTBASEPNUMSECMODIFYvREFER tLVLSTRADJOF1LNKTBLLENGTHWTBLENDLOAD NUMBERqMAXSECIGNCKNTSTRDPAGER6  3ZPLGADRhISKWRPSTBASE PLNKENT M52 A MSOS CCS 3.0 SL-149@PX0 aQ(a a1Gh X13;PLNKENTPXIT ATCH ISKWRPLNKENT PALNKCR1 M53 A MSOS CCS 3.0 SL-149@P  aX(9aA" a Q(bX "X9XX  @P+ h akh9 `Xю hPEXIT #LNKCR1LNKCRPLNK01 =PRTOUT&ECTNO6DRIV :NTSTRATCH "PLNKCR1 PBPATCH M54 A MSOS CCS 3.0 SL-149@P ava A9AXbѐя"a ! Q(# aaQh!@P+h XXiH+ X/PPATCH PISKWR:ISKRDPPATCH PHTBSCH1 M55 A MSOS CCS 3.0 SL-1493  3n@PXX a' aX+X! + X4 a+X.a ' aUva aX   XaU@P+ a- AXaXa--A XPTABSCHEXTSCHPISKRDEITCHKASH PTABSCH PHASH M56 A MSOS CCS 3.0 SL-149@P A, Aa--",a,B- 1la, Ca+PHASH PHASH PUTBSTR1 M57 A MSOS CCS 3.0 SL-149@P B@>j}h4" v!2 ;+ X&A+ A}X +a- AH-X-A@P+ H-X-H-X  a+ aX X , 0' #"H"H hPENTSTREXSTOR6BITCHKFPISKWR?ITTBLQPTABSTR PPAGE M58 A MSOS CCS 3.0 SL-149@P HtB HpH"Hm HfHehdxX4"2B1zHZUthXX[2HTRAuw@P+hQHQhOYH"F2hC@%h XFXAX! XSh " İS ! a  "RA  @Pt d    a q 6 "  "  1  Z m  3@Ptl tlRA  A 4PSCAN PHPU `AVEA P P CHPU1 M61 A MSOS CCS 3.0 SL-149@P "or a RAoPCHPU PCHPU PADJOV2 M62 A MSOS CCS 3.0 SL-149@PaAVRBcR!d4 4adBaQPADJOVFPADJOVF PaADRPR1 M63 A MSOS CCS 3.0 SL-149@Pfa e! Ao a X 5 daeaQ(a' ae   a @P+X e ae  ebEWS4 AQbXE16 X c @PVA9 XQ9a PADRPROPCAN ,DRIV [PLOAD P7T11 M65 A MSOS CCS 3.0 SL-149#A  3@P1\  "ae"""T \ "\ @P+"``aPT11 PCOMPV4LOADIN#EQERRJBCNFG2P P"T7 M66 A MSOS CCS 3.0 SL-149@P1dBh^heh[THSHShOhOh"IVhFhF#:Hg hFhE"@P+1H:<hN5dh5H8 T, h,0f" `&!hh6h5h4h.X&X@PVh hX~hh*  TH@PT X],  XD% 3h. QhQ Th@Ph $γn qȬdh X,h    hhlAȒh@PDD@܁{{ X ȼ  X XhhX#haȩ @P h[X!Ƞ  hh"hnhhRheh`XWPT7 PLPTRS ALOCF ECOMPV4:MIBUF JOBINDJBCNFGSWAPCKUNPIO zLOADINeJPRET JPRETNJPRET1LOADSDkEQERRP PYT5 M67 A MSOS CCS 3.0 SL-149@PaaT T aT1`  hh H( \$ @P+\  ! TRf"T @PV`b  3PT5 REQERRMPCOMPV4 UNPIOFCUNPIO AINTSTKUNPTIM?JBCNCLJLOCF VLPTRS OP P7T3 M68 A MSOS CCS 3.0 SL-149@P3 a"$-BF 2 ""a3"a @P+ae" aaPT3 PJBCNFG1EQERR$LOG1A 6P PONE M70 A MSOS CCS 3.0 SL-149@PPONE PO3T P PTWO M71 A MSOS CCS 3.0 SL-149@PPTWO PO3T P PTHREE M72 A MSOS CCS 3.0 SL-149VN  3@PPTHREE PO3T P P`JBKILL M75 A MSOS CCS 3.0 SL-149@PHGHD  bb BD `!$ h hA3@P+ 1 T \ aTdd@PV A  ` PJKILL PCOMPV43JKIN SJBPROE\JBCNFGQUNPIOFMUNPIO KLOADINIUP FILE3 LOG1A UNPTIMIINTSTKP PJPLOAD M76 A MSOS CCS 3.0 SL-149@Pltgsh lpTliDT `jy A hX jy B D@P+hs feHB 5? q H9 h V  "Q Q \OX#4 h@PVXE ; 9O, 7XX,LL,LG3210/  q@P" X!x @ *LIBEDT     ,N@P  hLj `XaBHLR2 q7hA"  ,6 ȥh02@PH+X> #b#Ah  $Ωn qȠd)0403lx @P h HTHX H LHuQH D@P-D@ ` h*`h(%hdhlSH T  X\q  3@PXX " X05 h7ab2 ""(Dh"`  h@P H   r r4hʀPJBL JP1 PJOBINDCOMPV4MSWAPCKUNPIO BRKPT LOG1 FILE3 vFILE2 uJPRETN/JPRET1-JPRET 1LOADIN7LOADSDeIUP PTRANV JBCNFGJBCNCLLIBET MIB LOG1A PROTECRELS1AJBPROE+PRORETTRNVECPJBL PFJPCHGE M77 A MSOS CCS 3.0 SL-149@PhJWlCDd"*Vh    "SYȠ  "@P+ @X"  dDdT  h` hA?V@PVh=8XV3Adj6/rp*Bqlj,C  `!#aQr  Xp hT0@P  Xi hMMhM'  X` hD  h64  .h̝@PhIh"H"  " 1 (&  hl8@P 104b TT  X   H[Dh "DF  @P  "SF   h Ƞ  @ H-X\E# HH T@P-| E !PCHANGEOJPCG PMIBUF JBPROECMIBX ;MIB LOG1A FILE2 GTRNVECIUP SCHEX!NUMLU VINPV46MIINP JBCNFG9JBCNCLP PUASCHEX M78 A MSOS CCS 3.0 SL-149@P HO hOhOhO""MH XEV" X Q3 8 ,r^3 Y "   3@P+ rD rR 2b  2yRBBl FԠh FhPASCHEXP PT13 M79 A MSOS CCS 3.0 SL-149@P-H3 abb H{x A"bHm@P+hu@"a2 aG4 \= hL\6 6hWhVhPhO L!5@PV r2""h;h:h9X78S h" 2S/h \ +T Uh@P h XTB` h  (,Ah " @P " hH b"!f"q!H T hh`h_`h d@PDb f"h`T hT T hQH T `9 @P2 `(&$ `4!w1d(h~Axvb @a @P-alH  b Dd"`PX7PT13 PCOMPV4xMIB 7FILE2 >LPTRS LOCF SWAPCKSCHERRP PJLGOV4 M81 A MSOS CCS 3.0 SL-149@Pl"H `j A h j B Dsh @P+04l   XX @  T u XsphB" hS@PV hQXhM" XC l l+h=Dh:h9`HJ3TF \A`[  3@PX\:T 5h T `h HTH@P E5 E10 BRKPT X H LHaR_H D@PD@ X X XX6aHI?PJLGV4 PCOMPV4wSWAPCKUNPIO BRKPT FILE2 $JPRETNJPRET1JPRET LOADINMIB JBPROETRNVECPJLGV4 PNAMEV4 M85 A MSOS CCS 3.0 SL-149@Pd hhh h h jY qhchb//HY@P+hXh6 /H1 /h/h,T D Cj q"XT@PV  ئȥ%h`X%"BhXȘBXؕ  v w r r   i @P_I_DX `OT$ IJ""h@"0h'h 4h161 @P?X j h.,h*4 0#>D_1 '# Xj{h'h hXT@PXXjl h h`$  h"  hDT@P DDX ݐ'h& h} h Cj, qT D&X @P- jػ hVXT   `  1700 MASS STORAGE OPERATING SYSTEM @PXVERSION 5.0 DATE OF RUN: MM/DD/YY SYSTEM ID:  (MM@P/DD/YY) X++  ++@P+++  ++@P++++++@P+++++)B  3"@P/)++ !"+#$%&!'*+*'!&%$#+@PZ+!'-)++++@P(,+"! +(,,(+(,+  +++++++++@P++++++++8p8p?8pppx888888@P8xPNV4 PJBPROE@TRNVECNADAYTO2AMONTO.AYERTO;SYSYER!SYSDAY'SYSMONSYSID FILE3 P PRESTOR M86 A MSOS CCS 3.0 SL-149@PHVDlRH @Xa;DR2 q4"H@< qhT @P+!DdT `  LU RESTORED JPh04h h@PV@?m`!- h<";f"hH2h+B  " h1ט@P A ˠAq1m  bHT  h-h-"*(@PDh"!#h  H   r r 4hPRSTR PLOG1A WFILE2 XMIBUF JBPROE@LOG1 VMIBX :MIB PRSTR PDRCOVER M87 A MSOS CCS 3.0 SL-149@P lP chOhN 19XI RE 'jQ qT 'LC*D=*M@P+77  X"ERR ( hThT LDhT Y  36@PVh 4hHT @P a1(Dh" jG qhAhA `X XX%4 10/ 1*@P 1 h% a y a r/h  S  Ġ j h `P@P h  1  :j E Dh Ȉ 9j# qPRECOVRIBUF cREC ERR 2ABIBUFSBUF BIASCI TERMINDGET SIFT SP :LUNO TPSWTCH FILE3 RJKIN MUTSELCASDMP+MPCOR%P PEOUTSEL M88 A MSOS CCS 3.0 SL-149@P h4 @X X3 1 h' `#h!F*!hh""@P+$1 hd  ϠthPOUTSELPLOG1A +UNO 2EC 4RR )ET P PRDMPV4 M89 A MSOS CCS 3.0 SL-149@PXh"h#h( hh  hh h 1sd"X @P+ XXphd `Xm_M] `yhhX8mTMR6߼hXeX9@PV"c!!X(h hhȽ!X1** n$ h!XhȭhX@PȨ9Xp** n h X /hT $2 K @P  $  6 hH   3JPDMPCORDUMPC /COREL .WLOC (STOP 'COMPE )ASKWR *B PLOG1A ERMINRR IASCICBIBUFIFT UNO P UF EC #SWTCH P PMASDMP M90 A MSOS CCS 3.0 SL-149@PX j q" 7 4 1 HvhpRhnt jh6gŠ @P+Z[QhYWUVR `HSOP5NK! h hC@Ah! `hL6h@PVX M 4hX X/X h&$ XhH/hT  SECTO@PR NUMBER  h hT ` 1gPMASDMPPLOG1A BIBUFTOP RLOC UOREL ]OMPE CSKWR F UMPC aUNO oUF IASCIkRR -EC PIFT P PBRKPT1 N01 A MSOS CCS 3.0 SL-149@PX H ` Mh2 RhOh]D hrHphp ho hphhn  1  :jgE dDhb@P+Ȉ``_hHVhTL zx q h~ BP,  BP T@PVL 'j/ q#hTH(!.FORMAT ERROR PROTECT @PERROR @P@P#6X" uh ȧh@PTLfX |`hD hCɕ,ɐ i8ʋ7QȠ   [E  3^@P DBH(&%""?o ?jkFh h ZhTL@P9@P=*SAH*SQH*SIH*END*LRG*LHX *LIT *LAS *LSP *LDP *DPC *DIC *DAS *DSP *D@PhDP *JP,*RJ,*SET*TRM*DMH*DMI*DMA*DMS*DMD*LUI*LUO*ADF*BSF*ADR@P*BSR*WEF*REW*UNL*SLD e q & HFh @P h h hTZ!,X${BPRSETBPRLSTBPEND BPLOADBPDMPC@PBPJMP BPST BPCLR BPMASSBPBPLUBPTAPCPBRKPTDPBRKPTD PEFSTOR N04 A MSOS CCS 3.0 SL-149@PhhK j qDd`3 ! T D8y  hh% @P+j qT D `hT D AT D `a @PVh C`BHd 1jg qDh C`^Y Y h h:h T D@P `a` hH;% `  4! )js q@PT D `naؖ 4 T D DdT`P,`P`P`P `@PEFSTOR MASS MEMORY ERROREF STACK OVERFLOW EFSTOR LU ERROR =  3rPEFCOVLBSYEFSfCEFDTA`EFDATA MMEF iP PEFLIST N05 A MSOS CCS 3.0 SL-149@Ph#  R $ Q h T D T`h4K Xh.@P+Cq(D " 1 I(` Ij q1XhT D T D @PV H`" `X*  h T D `7@PiT D X#` HX y2vT D@PgS`P;@PT D LISTING COMPLETED TT D ENTER LOGICAL UNIT (XX) @P=T D a{Bh Fh "d2a"T `D@PhX` H?h?"D "h6 h3" XJh0"XMhD H* :=H&h&"H X6@Ph!" X2h""XHH%h%h(T D"  @P `00B0F4B8h B8 ȈhXd"Xh XȈ @Ph X hXȈDd " : A ENGINEERING FILE INFORMAT@PION LISTING LOGICAL UNIT XX TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT@P?TTTTTTTTTT DATE TIME FAILURE CODE HARDWARE STATUS MASS MEMORY RE@PjAD ERRORJAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC 1711 TELETYPEWRITER  @P 1721/1722 PAPER TAPE READER 1723/1724 PAPER TAPE PUNCH @P 1752 DRUM 713-10/711-100/713-120 CRT%  3@P/SLAVE PRINTER 1738/853 DISK DRIVE 1751 DRUM  @P 1739-1 CARTRIDGE DISK DRIVE 1738/854 DISK DRIVE @PA 1731/601 MAGNETIC TAPE DRIVE SOFTWARE BUFFERING D@PlEVICE COSY DRIVER UNIT 1728/430 CARD READ@PER/PUNCH CORE ALLOCATOR 1733-1/854 DISK @PDRIVE 1733-2/856-2 CARTRIDGE DISK DRIVE 1733-2/856-4 C@PARTRIDGE DISK DRIVE 1742-30 LINE PRINTER 1742-120 LIN@PE PRINTER 1740/501 LINE PRINTER 1732-2/615@PC-73 MAGNETIC TAPE DRIVE 1732-2/615-93 MAGNETIC TAPE DRIVE 1732-1/1@Pn706/608 BUFFERED MAGNETIC TAPE DRIVE1726/405 CARD READER  1732-1@P/608 MAGNETIC TAPE DRIVE 1732-1/609 MAGNETIC TAPE DRIVE  1713@P TELETYPEWRITER KEYBOARD 1713 TELETYPEWRITER PAPER TAPE PUNCH  17@P13 TELETYPEWRITER PAPER TAPE READER 1729-2 CARD READER  @P1732-1/1706/609 BUFFERED MAGNETIC TAPE DRIVESOFTWARE DUMMY DEVICE  @PE 364-4/361-1 HDX COMMUNICATION DEVICE 364-4/361-4 FDX COMMUNICATION DEVICE @Pp 1742-1 LINE PRINTER 1777 PAPER TAPE READER  @P PSEUDO TAPE UNIT 1777 PAPER TAPE PUNCH  @P 1729-3 CARD READER 1733-1/853 DISK DRIVE  @P 1731/1706/601 BUFFERED MAGNETIC TAPE UNIT 1726/1706/405 BUFFERED CARD READ@PER 1747 DATA SET INTERFACE 1744/274 DIGIGRAPHIC CONSOLE   3@PG 1536 LOW LEVEL ANALOG INPUT 1501 HIGH LEVEL ANALOG INPUT@Pr 1536 REMOTE LOW LEVEL ANALOG INPUT 1544 DIGITAL INPUT UNIT @P 1553 DIGITAL OUTPUT UNIT 1555 RELAY OUTPUT UNIT @P 1566 DIGITAL-TO-ANALOG CONVERTER 1547 EVENTS COUNTER @P 1595 SERIAL I/O 1732-3/616-72 MAG TA@PPE 1732-3/616-92 MAG TAPE 1743-2 ASYN COMM C@PIONTR 1745/211 CRT 1725-1 CARD PUNC@PtH 1720-1 PAPER TAPE READER 1720-1 PAPER T@PAPE PUNCH MAGNETIC TAPE SIMULATOR 1732-3 LONG @PRECORD MAG TAPE 7TRK 1810-1 LIAT CRT/PRINTER 1829-30/60@P CARD READER 1827-30/60 LINE PRINTER 1860-72 @P LCTT 7TK MAG TAPE 1860-92 LCTT 9TK MAG TAPE  1832-5@PK CASSETTE MAG TAPE 1833-5 FLOPPY DISK  1833@Pv-1 STORAGE MODULE DRIVE 25MB 1833-1 STORAGE MODULE DRIVE 50MB  D1@P8ECM EXTENDED CORE DRIVER PSEUDO DISK DRIVER  @PUNDEFINED DEVICE PMMEF aLOG1A UP P ODBUG1 N07 A MSOS CCS 3.0 SL-149@P#} X /h ;h zh h .h hhhh ' j qA  3@P+ hxHx h{h{|hT )(athdH"_h?Qg"  \6 2n0 "Da @PV hȵQ7$ȯdȫB tj ضDh `P!PLHXREQP PDPCREQ N10 A MSOS CCS 3.0 SL-149@Ph=`h;h: h[DhZ hZ  \/    ' \$EjD HBAB?h;h6=:@P+4h761T!  6 5 hh #" H \ \" "@PV H \ \PDPCREQDICREQPCOMPV41P PSCNREQ N11 A MSOS CCS 3.0 SL-149P  3@Ph[`hYhXCh> hTDhS  \M    E \BAjK H>AG hDDhA@P+C@>>9h<:#91551  ! hT #h  \ @PV"" CELL CONTENTS PSCNREQPHANDLEpOFF qCHRSFGRP P`SETREQ N12 A MSOS CCS 3.0 SL-149@Ph.`h,h+ h*  \%     \j HAL#1 1@P+"PSETREQP PMBCREQ N13 A MSOS CCS 3.0 SL-149@Phn`hhjhi hh  \c    [ \XWjV HTBSh6Ol \H0@P+*H#D3A4A>1;":38!44'0$..!,l))"($%%3"@PV"hl h h#1 1PMBCREQP PSCHREQ N14 A MSOS CCS 3.0 SL-149@Ph\`hZhY)h hW  \P    H \EFjE HCADXdMTA@P+d/"T   X4aOK hhhhQhh  3@PVT"R FIRST WORD DATA ( ) CONFIRM  DB REQ@PUEST ABORT h H X  hX Hh q  : j H I `P@Pf" f"PSCHREQP P`SPEREQ N15 A MSOS CCS 3.0 SL-149@Ph>`h<h;  \7    /   u \$hDh ;@P+3hh  h \PSPEREQP P`CPPREQ N16 A MSOS CCS 3.0 SL-149@Ph,`h*h) h(  \#     \j HA"# 1@P+"PCPPREQP P`SPPREQ N17 A MSOS CCS 3.0 SL-149@Ph,`h*h) h(  \#     \j HA"# 1@P+"PSPPREQ!  3P P`ADHREQ N18 A MSOS CCS 3.0 SL-149@Ph(`h&h% h h"  \     \ h  H A \"@P+PADHREQP P`SBHREQ N19 A MSOS CCS 3.0 SL-149@Ph(`h&h% h$  \     \j HA h \"@P+PSBHREQP PALCREQ N20 A MSOS CCS 3.0 SL-149@PhO`hMhLDh? hH  \C    ; \87j6 H4B 1! ̸)@P+h'hTb H \( \ T"@PV CORE ALLOCATED FROM TO PALCREQP P`RELREQ N21 A MSOS CCS 3.0 SL-149@Ph`hh  \ \ 6hT  PRELREQ:  3P P DACREQ N22 A MSOS CCS 3.0 SL-149@Ph|"hzvhgh* `hqBjt " jm i4,"`]! j_ j^ @P+HUT BHMHJKIhK \@DC@Em A :j}  *jz H4 0js.@PV--h(- \!%$"je  hhT] Dh "@Pj`P@P ALLOCATABLE CORE MAP PDACREQPLEND LVLSTR P P PTHREQ N23 A MSOS CCS 3.0 SL-149@Ph|`hzhyeh?hn@ht ht  \m    e \bcj_ H`A[[`  @P+"`jV"jUjT$`   4 jG H@T b h7Dh655h13 \(@PV-,* )jS'%#X " X8j? HT;@PY LOC. WD1 @PWD2 PPTHREQP P`MTRREQ N24 A MSOS CCS 3.0 SL-149M  3&@PhN`hLhK  \GX7h 2 A  \=X-119 h62` H 1hTw@P+% 6h!"""     \hP`p@PV 0PMTRREQADFREQBSFREQADRREQBSRREQWEFREQREWREQPOFF >HANDLE?CHRSFG2NUMLU *P PMSDREQ N25 A MSOS CCS 3.0 SL-149@Ph|`hzhy>hWhv1h0h 2/!}T  `lc]" h  \W!,@P+ hh   \HK  hK#0"#h@PV hhhT #a""  j j  @P h  \     \j H B   \   @P  H  a RPMSDREQPCHRSFGfHANDLEmOFF nP P`CLUREQ N26 A MSOS CCS 3.0 SL-149@Ph;`h9h8  \4 \2.@h*"GKh'  !   1 @P+ / n   n"PCLUREQPNUMLU :LOG1A OB  3:P P`WCDREQ N27 A MSOS CCS 3.0 SL-149@PhQ`hOhNh:hL \GH  BBBh1H/  \: \8 h"  \. \,!@P+h X h hhTc ""DB`PVPWCDREQRCDREQP P LASREQ N28 A MSOS CCS 3.0 SL-149@Phz`hrhwHt 4ht  \m \k   \a \_h  WahOhVhS@P+Xp PN HC `B :H;QH h8 23S / H*h,QXD'$% @PVX=` ζg"  2 \E  An "@P  \ \j%   qj "U37$2`P(PLASREQLITREQPOFF HANDLEP PDASREQ N29 A MSOS CCS 3.0 SL-149@Ph~`hh|~hHtB@4h@hohq hhl  \f    ^ \[\j HX@P+ D!hXWhXR h>h>  nH DLXc"@PVHX^tl8DXY"XUt n. hF L l Hع   ȴ  ~  3N@PX hT  "U37$2c"Ȃ@P h"  1  :PDASREQPCHRSFGOFF NHANDLEMP P`MLUREQ N30 A MSOS CCS 3.0 SL-149@Ph$`h"h!  \ \h" (EK    n"PMLUREQPNUMLU #LOG1A P PDPTREQ N31 A MSOS CCS 3.0 SL-149@Phl"hjhnghE"RBHaH`HDaHWTjV`jcML JDhG@P+GBhBQ%>A \9n9L \4l4 \0bPTh^/ifH h h)T c"@PV h" hUNh=USh;EDh9 @`P`P@P PARTITION CORE MAP PT JU PDPTREQPLSTLOCLSTPRTPARTBLBUSY P  3b P`SLDREQ N32 A MSOS CCS 3.0 SL-149@PhI`hGhF1h:  \@ \> h2"< (EK  /,`   h @P+  \  \" 1hT! "PSLDREQUNLREQPNUMLU LLOG1A P P CWAREQ N33 A MSOS CCS 3.0 SL-149@Ph=`h=h9h88hb H5 jvB  H- `B H&"QH hc _  7 @P+8 2 2   QjN H` ?iG  X'h2 X$B81@PVh.,8.H,*H'XNHHhH#XJHAhA XFHChCT.! " @tt@P` SECTOR/WORD ADDRESS = --  -- @P HH 1  : j J ȈPCWAREQP PDMHREQ N34 A MSOS CCS 3.0 SL-149@PhT`hRhQhQh! hL \GI   \@ < \9 `h h>7h 6h T `@P+9c$" h) #$h# \"՘h" h h @PV`P>PDMHREQDMAREQDMIREQ  3vP PSMNREQ N35 A MSOS CCS 3.0 SL-149@Phd`hbhahh@]ht \Wh:h9 hWhU  \L \J   K  A@P+Aj; H= A  \- \+h0. h-hl((hjT `b " @PVT9PPh"Oh[ȹXZJȷXWJȵXTJ~XPKT@Pa'""RӘhH!Έh !hȧ `h#آh@P6> CELL CONTENT ( ) hHX H@Ph q  : j H I Ȉf"Ȉb`PTPSMNREQPHANDLEOFF CHRSFGP PSMPREQ N36 A MSOS CCS 3.0 SL-149@PhS`hRhOh3h5 \J1  \F  \A" :   \5 \/ j,@P+   `h 2hT `c"Иh# ""h`PV`PSMPREQP PLSPREQ N37 A MSOS CCS 3.0 SL-149@Phj`hhhg  \c \a   \Y \Wh  OahNhMhWX|  \BTz  3@P+TGa"HHH'X h ."V"h HTfT@PV" \$T,j-+j, `6 \ d"n`P `P@P "U37$2PLSPREQPMSG OMMADDRNECONV PP P DSPREQ N38 A MSOS CCS 3.0 SL-149@Pht`hhkhkhhhhf hb  \^    T \RQjNXJ @P+Asq!nohlllhjDh7 #n q^LX""YHXtl"TDX"OX@PVt n hGhIEDhGBTG  1  :a"HHH'X  h @P"V"h HTfT" \T`P @P lش  !خحدȮ ܘ1Ȱ ZhT $a 4h@PX""" "U38%{2PDSPREQPCHRSFGHANDLEOFF MSG MMADDRECONV P PDMSREQ N39 A MSOS CCS 3.0 SL-1490  3@Phw`hhnhnhkhhh6 \b2  \^ \\ UhQ$h#h (hhT@P+ bDh> ` c  X,aX)AaX%h$@PV /A aA hh_h] HTG+ HH 1 @P : j J Ȉa"HHH'X h "V"h HT@PfT" \T @P׊lؙ  !ؓؒؔD HBȐ  0 h-4Q+oȩ ahT $a@P$ h hvwhmh hphpht  \h  e   \ \WW@P+jYXxRQ A"KI6hFH3G1?=x3:)՘7d%"2!h.@PV0/e#-2&'`"" "" h H`H_ T >@Pc"CXD2AXA7T,a0`- "U37@P$2 CELL CONTENTS () () h H X @P hX Hh q  : j H I Ȉf"Ȉ @Pf"PCCCREQPCHRSFGHANDLE$OFF %P P CCMREQ N42 A MSOS CCS 3.0 SL-149@Ph``H^4h\hYh8h h~h~h}  \L \JtjuX}oTmll6a h6@P+ 6bbq \.^ `h Wh Vh T `ic"C` "X<@PV>" *"%h%h H%h$ \ \ @P\%Z`  "U37$2`P]PCCMREQ  3 PCHRSFGHANDLE"OFF #P P CMMREQ N43 A MSOS CCS 3.0 SL-149@Ph?`H= 4h<h8 huh6Xh*hk \-g  \) \'4 Xph"hX @P+\TNhMh OhNhT0z{T 0c" H&[@PV R\ \L \v H ȥ h- `P@P ! 0"h 0"h  \ \ h" (EK  `P0`P0PCMMREQPCHRSFGlHANDLE#OFF $NUMLU LOG1A P PMMMREQ N44 A MSOS CCS 3.0 SL-149@Pho`hHj'%4hhd h{hwXhuh{ \Ywqtjfsjeiho! Hg H#Xnh_@P+hd@` <NKhW"KHhT rR( $hJ HG h@hBhBhJh$ hrBCX\X@PV h78hg h6+/ #h&.XF$ $5"!  #h "@P`Ww  \ \ hw" (EK  @Ph hHJ#"h!h h h T c" ʵ"ڱjț`@P (ȳ h&UةH h Hh șh Ȕh ȓh T  du  3 @Pl \f cO\"`P-(PMMMREQPCHRSFGHANDLE-OFF .NUMLU LOG1A P PLICREQ N45 A MSOS CCS 3.0 SL-149@Ph}`hhzhyh{ hsho  \p \nhjhe  c  `hZh_hbaXXhVh@P+X R hON, HG `B H>QH h6 51T  0(@PV) H*h+"j%Q# h  \ \j Z @P hh  \ \ j /Ӡ h@PȠ h  "U37$2 h: H7  \32@Phh+0hh)X hT(c"HȔ2 \""T @Pdq` g" g`P-PLHCREQLACREQLICREQP PLIOREQ N46 A MSOS CCS 3.0 SL-149@Ph`hhh~ hyh  \w \u sX  \m \k   \d \b  hY@P+h^ahWhUhZ Q A HIM- HE `B H<QH h9 @PV34T /(, H(h*!j#Q!V  \ \j H a  3 @P hh  \ \ jm ژ@PԠ hȠ h  \?>hh+=hH;TG  1  :b#@PHHH*X h "V"h HTiT" \T_  3 @P Ȋlج  !ئإاȦ @P͘1Ȩ bhT $aȷ4hL" "U38%@P|2PDDPREQPCHRSFGOFF #HANDLE"DCONV MSG MMADDRP P LDPREQ N49 A MSOS CCS 3.0 SL-149@PhY`hWhV  \R \P   \H \Fh@`  jA=j@`1 \2 c"*n@P "U37$2`PPLDPREQPMSG PMMADDRODCONV QP PLDOREQ N50 A MSOS CCS 3.0 SL-149@Phy`hhhh  h hh \w(  \r \p" kX  \g @P+\e   \^ \\hhY Q \O ahZ \E|TGa!@PVHHH'X h 5h@11-"/V"h HTgT" \LT"@PYj\Xj[WjZ`7h hh hTaH G  3@P\1 T .I ` g" "`P`P@P h HH`0#  "h hhy hPLDOREQLDMREQPMSG MMADDRDCONV P PDMDREQ N51 A MSOS CCS 3.0 SL-149@Phz`hhqhqhnhhh6 \e2  \a \_ XhT$h#h hhT@P+ bDhA ` c  X/aX,AaX(h'@PV /A" aA hhbh`h^ HTG+ HH @P 1  : j J a"HHH'X h "V"h H@PTfT" \T`P@P lؑ  !؋؊؉؋Ȋ K HI $ h!3Bdȡ ihT $a@P  h=h]/ h,U"Q""hC @P5#PDMDREQPHANDLE.OFF /CHRSFG MSG MMADDRDCONV P W  3* P WDKREQ N52 A MSOS CCS 3.0 SL-149@Pha`h_h^h^hO hY  \T \R  \N \L \HJ ChXX@P+5sd44b4#*@h]iJӘ4  `h hh h T @PV`6n"WȨ1" `lؗț!@P"h`P>@P "U37$2PWDKREQRDKREQP PLSTREQ N53 A MSOS CCS 3.0 SL-149@Phi`hh>"V"h HT  `oa. >)h% `%h$$Y h h d@P+!@hP#9"65 T  c"ɘ""@PVh ohȹ "صhH >hh ` i h h`Pp@P@P/PLSTREQPLDMREQLSMREQLAMREQLDOREQLSOREQLAOREQLIOREQLACREQLICREQSLDREQUNLREQSMNREQCMMREQ+CCMREQ*PCWAREQ0DMDREQ DMSREQ DMAREQ DMIREQ DMHREQMMMREQ(CCCREQ)SMPREQRDKREQWDKREQDDPREQLDPREQDSPREQPLSPREQDPTREQ&MLUREQ.DASREQLASREQRCDREQWCDREQLIMREQLITREQCLUREQ2MSDREQ DICREQLHMREQLHOREQ  3>PLHCREQREWREQWEFREQBSRREQADRREQBSFREQADFREQPTHREQ$DACREQ%RELREQ#ALCREQ"SBHREQ-ADHREQ,SPPREQ PCPPREQSPEREQSCHREQ!MBCREQ'SETREQSCNREQDPCREQLHXREQNAMEMSCHRSFGNMMADDROFF MSG P P PRINT N54 A MSOS CCS 3.0 SL-149@Ph"`a!3h2h  AhTh ""RHh)@P+j)` s"j"hAGNV[ g rs ~  DEBU@PVG IN DEBUG OUT DB I/O ERROR NEXT DB FORMAT INCORRECT DB INVALID REQ@PUEST DB SEARCH FINISHED DB NO CORE AVAILABLE DB ILLEGAL LU DB ILLEGAL M@PM ADD. DB ORDINAL OVER MAX. DB ORDINAL LENGTH ZERO PPRINT PERROR MSG !P PGETFLD N55 A MSOS CCS 3.0 SL-149@Phq`h!Hn00 c A ,a  a  h] hY `h\EBX QH @P+hJ  GHDC?>hB9`@a =a A H531$0h.!3 `h0E h@@PV HU c  c H h A A,/0PGETFLDP P`ASHX N56 A MSOS CCS 3.0 SL-149@P`h.BLH,H,QH =" ,tlM  !" 1 E BH   3R@P+ HPASCHEXP PDMPBUF N57 A MSOS CCS 3.0 SL-149@PH@hw`hFB 0'h?#=pMSG ?CHRSFG6P P`ASCDEC N58 A MSOS CCS 3.0 SL-149@P`Dh8h6  j ! Ƞ j! w `   hD "D 1@P+ ) h ad'd PASCDECP P`HXAS N59 A MSOS CCS 3.0 SL-149@P H!hDh HBh ! ASht f C HPHEXASCP PDECDMP N60 A MSOS CCS 3.0 SL-1493  3f@P h@`h7h: h7 h72h- s h7H7B@5m&0X5.. h+h@P+""X hT c"̹ lض +- h%dh@PVmB0F 0MB0F 0ȽmB0F 0MB0F 0ȽmB0F 0mPDECDMPPOFF .MSG /CHRSFG&P P FETMM N61 A MSOS CCS 3.0 . SL-149@P Hgh+`h+h'h&h[ R H ` hhhhB H QH h 0`P+@P, &    7 8 2 2    h'(ۈh 1@PWb Hj( H !ȿ`A Ȼa ȵa FhD 8AHh  "@P hH h()" Hh"(Hh" Lغ@PlJ H n  D""hhh `hPFETMM PLOG1A vP PPNTMD N62 A MSOS CCS 3.0 SL-149@P hZ`HYXhLQ@ Q `HN"J IXQHixFXMIvivBAXHh@; B / Ij6@P+ Ifif, +" Ɉh&""X'IWiW B QhHT@PVq"6 @ @ HH 1  : j J v  3z@PȈ MASS MEMORY DATA / ( ) / ( ) PPNTMD P P MASOT N63 A MSOS CCS 3.0 SL-149@P HShS`hWhS"""hAh@h?"h=ވh70hy h3@P+x ` c   X)aX&AaX"h! /A aA ` gl-@PV HH 1  : j J Ȉ"@P۠#  AaA hȘX hT 'ȯ`b " @P]ȬȧhsHXAaH) H(@"%d9$Hi  ` +A @P׈ 0a  'd 00PMASOT PHANDLEOFF CHRSFGP P CONFM N64 A MSOS CCS 3.0 SL-149@P `hhhT hV  hN hJLuhf hHhqHqho hbllXP h~h@P+Yb` hs hohsMRhqXHghgEJX{Hghg X]@PV>XT +c'" C  X OK&&X l h HT@Pa  ) 27 NEW OLD  @P VERIFY DB REQUEST ABORTED HFHB 1  :>j7 D: 730.+ @PH+ H)@"&d9%Hi  ` +A Ȉ 0e"  Aa)  3@P'd 00PCONFM P PGETINT N65 A MSOS CCS 3.0 SL-149@P HMhJ"hH`hF hyh{hxhxhshs< g" q4`hp Hm `B HffQH h` @P+`\ { ! 1Mf"2  H " b A @9    @PV..H,)H& n !       @Pn n̿ C Ad n` 1 (܈ h@P f" f" f"PGETINTP P FLCVSG N66 A MSOS CCS 3.0 SL-149@P Hh>`hh h1  h h%/hh% hPXDNEh$W h"OLh'@P+D h%CCXF h HT q}  @PVVERIFY DB REQUEST ABORT  j q $ ̉h؆"h؁TG@Pb6HHVH1X ,h "V"h HT  @P` ]Ȋ\i # fT"ΫhG ΨhE\B X΢h= Οh;\8 XțX@PYȖ hTȐXL hT a D X9OKts@PX-;"mPFLCVSGI  3PMSG MMADDRECONV P P FLCVDB N67 A MSOS CCS 3.0 SL-149@P Hhd`hth h$  h h/hh hH XF h HT @P+ q} NEW OLD VERIFY DB REQUEST@PV ABORT  j q̗hؔ"h؏TGb6HH\H1X @P ,h "V"h HT  ` aȊ`i  "f@PT"ΰhJ έhH ΪhF\B XΤh= Ρh; Ξh9\5 X XSȕ hT@P $ XF hT a D  mX3OK ) X)k"`PPFLCVDBPMSG MMADDRDCONV P PNAMEMS N68 A MSOS CCS 3.0 SL-149@P ***** DEBUG COMMAND LIST *****  $$$ CORE DATA OPERATION $$$  1 D@P+ATA LOADING LHX -- LOAD HEX CORE LIT -- LOAD CORE INTEGER LAS -- LOAD ASCII T@PVO CORE LSP -- LOAD CORE SINGLE PRECISION LDP -- LOAD CORE DOUBLE 2 DATA DU@PMPING DPC -- DUMP CORE HEX DIC -- DUMP CORE INTEGER DAS -- DUMP CORE ASCII @P DSP -- DUMP CORE SINGLE DDP -- DUMP CORE DOUBLE $$$ MASS STORAGE OPERATIONS $@P$$ 1 DATA LOADING, MASS MEMORY LHM -- LOAD MM HEX LIM -- LOAD MM INTEGER {8  3@P LAM -- LOAD MM ASCII LSM -- LOAD MM SINGLE LDM -- LOAD MM DOUBLE  2 DAT@P-A LOADING, CORE IMAGE  LHC -- LOAD CORE IMAGE HEX  LIC -- LOAD CORE IMAGE INTEGER @PX LAC -- LOAD CORE IMAGE ASCII  3 DATA LOADING, ORDINAL LHO -- LOAD ORDINAL@P HEX LIO -- LOAD ORDINAL INTEGER LAO -- LOAD ORDINAL ASCII LSO -- LOAD ORDINAL S@PINGLE  LDO -- LOAD ORDINAL DOUBLE  4 DATA DUMPING, MASS MEMORY DMH -- DUMP@P MM HEX DMI -- DUMP MM INTEGER DMA -- DUMP MM ASCII DMS -- DUMP MM SINGLE D@PMD -- DUMP MM DOUBLE MSD -- MASS MEMORY DUMP BY SECTOR 5 MASS STORAGE READ/W@P/RITE RDC -- READ DISK TO CORE RDK -- READ DISK WCD -- WRITE CORE TO DISK WDK@PZ -- WRITE DISK $$$ AUXILIARY OPERATIONS $$$  1 MAGNETIC TAPE STATEMENTS @P ADF -- ADVANCE FILE BSF -- BACKSPACE FILE ADR -- ADVANCE RECORD BSR -- BACKSP@PACE RECORD WEF -- WRITE EOF  REW -- REWIND UNL -- UNLOAD SLD -- SELECT DENSITY@P 2 CORE  SCN -- SEARCH CORE FOR PATTERN SMN -- SEARCH MM PATTERN  SET -@P- SET PATTERN IN CORE SMP -- SET MM PATTERN SPE -- SEARCH PARITY CPP -- CLEAR @P1PROTECT BITS SPP -- SET PROTECT BITS SCH -- SCHEDULE PROGRAM ALC -- ALLOCATE COR@P\E REL -- RELEASE CORE PTH -- PRINT THREAD DAC -- DUMP ALLOCATE CORE MAP DPT -@P- DUMP PARTITION CORE 3 MOVE DATA MBC -- MOVE BLOCK OF CORE MMM -- MOVE M@PM TO MM 4 COMPARE DATA  CCC -- COMPARE CORE TO CORE CCM -- COMPARE CORE T@PO MM CMM -- COMPARE MM TO MM 5 OTHER ADH -- ADD HEX NUMBERS  SBH -- SUBT@PRACT HEX NUMBERS MLU -- CHANGE MM LU CLU -- CHANGE LIST UNIT CIU -- CHANGE INPUT@P3 UNIT  CWA -- CONVERT WORD ADDRESS TO SECTOR LST -- LIST COMMANDS OFF -- EXIT  3@P^ DEBUG DX -- ABNORMAL EXIT AFTER MIPNAMEMSP P DCONV N69 A MSOS CCS 3.0 SL-149@P hTXHdhb`  0c   +aa .a Da aah?h>"h:3G  @P+ -aX[}.-@+.!m h2)h% h$h$ h,X.[!@$"!XF[ @PV @ !@BPXR[@B0FH 0 n @P 0n hXr[@Xh 0 n XXY~ۭ@  -n @PhX[@ȩ6ȯh hhرȭ`  *c  \PDCONV PFIX FLT FLOT AZY2 P PLAZY2 N70 A MSOS CCS 3.0 SL-149@P HY"hS`  jEB  hKhLhGE Ah A hXX_ r@,+22@P+ h0 (+h(& "h # hXX"_S@  h`PV@PY  "hWH HH!dh XA[G@ [! HXn@@P  6X~[}@ n n ȿnfR!۠QJ|Ow5M^LLK@JzH@PGN E}CBP@PLAZY2   3PFLT >FLOT P PODDFLT N71 A MSOS CCS 3.0 SL-149@P X`A"""a* "a)*$d)RA) R  B H )g*ad@P+aXD X1A"""a**!da)a*) ! A+ )hX)X"2 @PVA)*qd)RA)HX HL@a a`"x`P$PDFIX DFLT /AVOLA aAVOLR pPFLOT JP PODDFTN N72 A MSOS CCS 3.0 SL-149@PXADa a aaDa"a 1 aBa_```_)[@P+`V3B A  aXz aXuaa a ! AAA'dRARA@PVa2H aaaaDaaaa aXX=bbbX@PhXTAAAa *aAAidadada @PaaAa' dXX)#a@P! AaA! ! A! ! A! Aa AXa A! !  Xā XA@Pa! AXa""aaA Aa a  A 3A a s@P- Aaa ca 1 mAa$aAaa@PXa"G #a a a aaaa#a"a[X7X|#@  3@Pa 1  #0ad a  ! 1 3d   #2d @PA d ( 2adaa1 aDa1 bAaad A2aF@P ad2aa1 aa1 aDa1 aaaa#aa aa a A'@PRARAda 2H a a a a   ! aa a@P/a a@@ XidadRX_aA a@PZA !d2H a "a  a A a Aahdada@Pdaa a a a1aA aA aA aA a" xa@P`daabAaa ba bA a "H1h #h@P `Aa `Aa a  `Aa a Ma B a#a ADd@Pa a a#a n a)a a#a AaA#a@P12W  3or|AAA AAAaAk@P\dRAada  A AUAaaaPDFLOT PVOLR VOLA P PECONV N73 A MSOS CCS 3.0 SL-149@P hTXHhY`7h86h7  0g"   +aa .a Ea hE"hB4  @P+X[}76@ - n11} /b)% 1bb@ hhhX,[@PV@?XR[@BPX][@B0FH  0n  0n hXk[@PXh 0 nؽȼ XXY~ۭ@ -n hX[@Ⱥ  3@P"ػȔhȓhȯ`  *c  PECONV P8QFIXLOAT LOT AZY1 P PLAZY1 N74 A MSOS CCS 3.0 SL-149@P H6"h2` h/ h'h'Dh$(JzHGN E}CBP@>fff<;A79hی7@P+6C4k_BP h hXX_ @ h @PVh h hhXCXF_@ h  #@H Hh!d@PhXf[@ȫ Ȩ [1 HX@ Λ 6X[}@ Ȍn Ȋn@PRPLAZY1 PLOAT cLOT P P@ODFLOT N75 A MSOS CCS 3.0 SL-149@PXADa aaDa"a 1 aBa&***&i]+*@P+dB A  aXV aX1XPbbX*HXEa a ! A"dR@PVa 2H a a ka Da a a a SAA a *aAed@Pada a"(a" aq2XX#@Pa ! AaA ! A ! X4X2a a3A Aa  @Pa"G y @3a  a 2a  1a  a+ c% b XX9Rӆ  3@P#a aAA \a d a Pd ! 1 d 1  " La1 aD@P-a1  1 aa"dRa -H a a ~a   !@PX a a a a@`@ XdRX @PAa!d׸H a !a A a eda da  a U . @Pa A a A a A  "h s < hAa a h`Aa a B @Pف "  e " a A T x"   A g A Rd@P A RYAa" a PFLOT PBU P PODFXFL N76 A MSOS CCS 3.0 SL-149@P XgAa*a)h X]A"""a* "a)*$d)RA) R  B H@P+ )g*ad X0Aa*h X)A"""a**!da)a* )hX)@PV2 A)*qd)RA) hX ``PPQ8QFIXQ8FX Q8QFLT7Q8FLOT>IFIX FLOAT >DBU hPLOT SP P`TDFUNC O67 A MSOS CCS 3.0 SL-149@Ph. #  2  z)x |   lnk 3 lgoeA  3.@P+mXljaX|lb`Xyl`T DT DbXLHXlFB0%Hy@PV|Xy"01"2L-Xsl(kX|i"!,_02WAvY29 pS@P!N"08#a>da+a:31R5l"X8l2XA0X3h0 9E@PB0F 0 04#X1!X#h! 15 dll <dlDl*T@PhH F4 B u cT DE ;̛hZ ;hV 8hT@P ̓HPhP̎XhR̉XhṖX :HKhKT D:ENTER DATE/TIME MMDDYYHHMM DATE@P-/TIME ENTRY ERROR JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DECDATE: DD MMM YY @PXTIME: HHMM:SS PADAYTOAMONTOAYERTOTOTMINHORMINSECON MINTO HORTO DAYTO MONTO YERTO P PSYSCOP N77 A MSOS CCS 3.0 SL-149@PX=H4hh`h QhQhH QDhBSYSC@P+OP STARTIMAGE START SECTOR IS hyhX +h h!$`PV @PaTr`I@XH0H2esR4R4!HJB8 H@P"  H T  `!`h /yQzO(Q xT@P QةsXHX_XH X B b : AHhTSHO"Qm M JC @P  A@h%h! X,hhX 'hhX!h W"< @P HTȤ`T H`P8Zͭ  3BPCOBOPSSYSSEG PSYSCOP PCO1ST N78 A MSOS CCS 3.0 SL-149@PDh_h_h_h_h_ Q  Q  Q *Z  6Q"H ! 1 h@  Qj B@P+ Qh Q > .Q   Q `PV @P``Q h Q eh G Q Q (Q `P5@P`Q hh$:=A h5OKh/QH/h-t A Z"!$H " Q@PHht Q Q QA< C @Q   5Q@P`Q h H]4Qj"QQaQO q Q"qGhC@PAhBhB `Pl@PbhDahCaHBZQ Q 8 hS hNQ  GhFH hE ? H  @PQ# 6 Q h F TQ  H YQ % Q  LL  LQ `P @P`Q hhQh) Qh$ Q 1 nQ 2 Q gCg gQDh<: h7@P Dh3 `P6 @P@Qh Q  *Q  ) 4 Q # #  #QBHE &  3V`Pk5@P Q  Q  YQ Z*Z  #  QQ" DhAhAhAhIXGR!h@9 h5X=Q@P87Q!Dh4h4  cY A[SBH h > & H  4 "@P bhLB_^QjHhE]5ZA hWS* T NLh? b G hE"@P! H QA7 iQ:8 N Q "K  a5a6a7  Qh1 @PLSELECT OPTION  A Q I  REGISTE@PwR AAAA QQQQ IIIIFINISH SYSCOP `P@P***LOCORE CONSTANT ERROR INITIALLYBIT TABLE CHECKSUM ERRORADDRESS IN 12 WAS 12@P34 BUT SHOULD BE 1234MAX CORE WAS 1234 WITH 1234 TO 1234 UNPROT (ERROR)MAXSEC W@PAS 12345678 (ERROR)***POSSIBLE LEVEL HANGUPPRI LVL WAS 1234 (ERROR)`PA?@PDUMP 1234 0234 1234 2234 3234 4234 5234 6234 7234 1234 8234 9234 A234@P B234 C234 D234 E234 F234 FINISH SYSCOP ** @P PAREAC ALCLGHTSIPRCLOG1A 6MAXSECALLIN IPROC MONI DISPXXSABS LUABS VOLA VOLR  REQXT  PMASKT  COMPRQFNR COBOP =P PCO2ND N79 A MSOS CCS 3.0 SL-149@P`Q hh5h9 <4 Q"j> r H7 q  Q QQA,  (QoC  3j@P+6  u0#h.Q QT Q Q  8Q `PV`P]@P``6 <4Q"j2 r Q** S0@aPP qQQaZA[@# Q@P aL  2 AL  LQ `P @P`Q hh* <4 Q"j7 r Q / ,c@ sHA( ' (Q@P  Qh2Dh/ *3#h' rH`P @P bDh^\ hY DhUhVhV  QPP"a4BH QAT Q  PQ@PK Q6,#U(' g#E"c1 &3B Q ((  (Q 9 Q@Pv  UQ`Q hh 4Qjr C4 Q@Ph"#ISX b  3UNX q% H#s hH # @PQ QQA*  3Q a8  &Q`Dh]h]h_ X$Q h&& h$X';h&( @Pb   h QBD 8 LQ   DQ  4Qj r `P"`P=@P@Qh=;Q -B0C2 4. Ph-*B) h'QAj%"!!" H QHB@Pkc1 q&/&  &QBH( H% `P  3 ~@P`Q hhh 5QQ QŠBĀ h&."S h Q B @P Q Q:a.H FWRa4ITa5 ,Q_UU`P @P`Q hh h0h1QhW8Q P3;0h/Xh++X(F c t Q Q@P+QABQAL  ?QQ QƠBĀh_UDh @PVh Dh ` Q h h hhh!h,h=QTQOXCL QA;  *Q @PQ" Q QD X* <B;h @P+ Q Q Q*$QA5%QAG # $Q `PV @P`b HQ QXA Q W TQ   SQM@Q  X)6 Q W %Q @P  Q%h%Q h Q V :Q 3!3  3Qhh h 4Qj r@P Q  $Q h_ hZQ  ShRT hQ  Q hD Q@PhDhAQ h Q h7Q h4 `P @P _h 4Qj q AL L4Q  q QXXA? H? Q<@PK p0Qa?A@  BQ   >Q 6 3$h":ȼh  QQh @PvȨh Qe\h\ AY qYRQFhLb1)Gc ?$ z w @P t q  Q86 Q-B0 h' \ (Q   $Q h!! @Pc@ Q h>^;Q 1X5Q Dh4Q. @Ph, Q Q'>$ h"A!Dh<hj Q q _nB @6X9 6 A ! 1 OU T ٣  3&@PiT , A  A " ! A))Р aQa*X@P Q  L )"@ a 5 A" @Pa a  :a 6a) > , a("H a  XN)u""@P  X HX X  X7  X3& Xo HG Xi HA H> H; Xe@P XZ H2 H. H+  X aB) 1)  4 3 ! @P@" BA+rX6,A2H%,"Ƞ a , 7 7 2 42 0 @Pk 2D/1a #"f"  Da a a a a a6X@P a    7 X @Daa- a  a = w @PA !/   a#){ Ƞ P  @P   2aX a#-a  Fa 7 ) a   @P 6XdXj +-ja A"v13rK a@PB) 1+(    Ƞ  ! L  C     @PmB21H+ +~*D 7u2 XV,RE@PJ EXCEEDED MAX LIMIT NNNNN XA) 2 1 )  F  @P%+%#4a% !9)  +a'Daaa"a#a$a%a4a& aa a6h X@P"   a!DXhX7X X/a"aDa"#!a$+XX"B@P!0`A *!mXDa#a$X) +/4%X c5+ @PDUU7f"X/a a!X XZhXG,Da"!a$Xb+XXXn( +/4@Po%X8+ +4 %X&5X3IX+XX*@PX&b" ,/a a"hT\`!  3' @PUTnp RX:EOF ON INPUT LU NNNN  PP)   2 D/aX@P Xh a!X12!7f"!#a$+XXX*X ) 7   @P  + + ԑ4ܑ%)X,o|1 zw "ta!!7f"@PF!a$+XXXXp XPDhh)u""C/2 H v@PqN I G E A  a'Da%a&ah   h X., T\@P` a$.$,"X Sh&KIh$PDh"  RhECh@PS  FhILhE h!^XUNIT AAAAA BBBB NNNN Da%a&   h@Ph XΠ-T\` a$&$-X5 BhAChKDh@P   'h D̸ hhT\2!l(Xta  @PH A a+_Da%a&a4a57h ah THc`":`BAa$UT(@Ps5WDa5X&XE 5h$ !/Aha!TH `@P, X(`X(5Da5Xs hC6hC+!h>h h:B8A @PɁa XXY Ȼa  a'' hȭ #h C'Q h  @Pa XhT !`   Ch' l! @P#hh` a5+6hu K `7"a$UT  UDa@PJ:5(Xr{X a5+.$UT XN&%+) q) a@Pu " 0K X +X_D%XZ0NUMBER OF FILES COPIED N@PNNNN NBR RECS COPIED NN*32768+NNNNN  XTHa@@P cX+!h a! a!$ A#!/A8h Xhh^XDhapXf @P+5s)  w3 Xv% a%X XCHECKED RECORDS NN*32768+NNNNN T  3(@P! k 1h X-T\;`!/aXZ@PL XRMODE DIFFERENT ON MAG TAPE 3!! Ϟ2 X{ q+/@Pw4%X&+5B8A aMISMATCH RECORD NN*32768+NNNNN h @Pth h hT`!1 "a!hTF@@P &ɱ$h #6h h TL`"-Da#B8A a@P7f"7 X7h h TL ``#"$2a$D@P #aa!hh X~A>hT = `!% $.&@P N&%a!$, "QŠ    ?; 9' 3@P yHX @b b X 0' 0lp0 0hp0d 0 h p0 0t 0@P Dn qa $5)  PP,F-.A-1  8 $%&*XH3b@P Ȩb b *14X#b bb b b 0b X/NNb*3b 27b 68@P %b +Nb hHTL 7!`hahT\ J `"@P POPhMa5 TL b cUNIT1 = UNIT2, READY FOR UNIT2 - TL |  @P {TH a@COPY COMPLETED, C/R WHEN READY FOR NEXT COPY. PIOUPV4PMAXSECLOG1A PIOUPV4 PCYFT N84 A MSOS CCS 3.0 SL-149@P X NhDNAhQM hSAMhUX+֐  Ϡ fǐM }  3)2@P+h h4 h h0 hh,dXXXXXX DCK/ I,C  @PV XXXXXX HOL/  @P @b`hhZhhThh X.X"XX6 TH@P(T %#X0T  TL(T  TL(dT  TL( Z=h<;h6757735jA H1 @ Zh-' $h+0Fh* & !@PVGHh h>!#&&@Phh h Hc H^"W hԘ h Ei{@P j8ȼ hȿhTL Fhȯh `@Phhȝ hm h jB  j{B hhhhh @PhihPOPSORTBGNRD PBGNRD PDSKTAP N90 A MSOS CCS 3.0 SL-149@PX XXXHh iXf %XXV X "u@P+ SAVELOAD h@ X X/ X@XhX h@@PVX2X&X 9`"X 2 2esR4R4! `hh @P X X X $XGX XH @P  d @HX X d X1X hXX   q@P`  XQ(~p0`H X H0h/XH/h. 5X d@P X1XHAh@n X X~f XXQ XXK hjXX@P-e`  XQ ) SXXH!h 5 X% X7C@PXXIH"h!& XQXYHh Xa f q@P Q]lwh !j SCRATCH SECTOR IN $C1 IS -- TYPE LOA@PD FOR TAPE-TO-DISK, SAVE FOR DISK-TO-TAPE OR A CARRIAGE RETURNOUTPUT TAPE ON UNIT  3/@P0. HOW MANY SECTORS? TYPE V FOR VERIFY, A FOR AUTOLOAD. OR A CARRIAGE RETURN TO@P RESTARTVERIFY TAPE ON UNIT 0. READY? SECTOR WORD -- -- DOES NOT COMPA@P2RE. TYPE C TO CONTINUE. OR A CARRIAGE RETURN TO ABORT. XXXX SECTORS VERIFIED, @P]INPUT TAPE ON UNIT 0. READY?XXXX SECTORS LOADED DISK ERROR ( ) TAPE ERROR ( @P) PDSKTAPFST |PGREADTGDRIVDRIVECDRIVEnQCODECODHXMNCDHXfPDSKTAP P~DSKEQC N91 A MSOS CCS 3.0 SL-149@P XX h  y0j/ +1) X' X" X XXhh@P+X&hh X"I\AEp4 DIG. EQ. CODE FOR .. @PVMAG. TAPE 4 DIG. EQ. CODE FOR .. MASS MEMORY ILLEGAL PARAMETERS SPECIFIEDPEQCODEPCODHX/DRIVE9ENFC 2WES1 +WES )P PDSKDHX O68 A MSOS CCS 3.0 SL-149@PH)h*H'h( H'H'!H!  h 2 q 4h !@P1 H  H $Ⱥ0123456789ABCDEFH(h)H&h'@P\ H&H& H!h  (h !"h r  !@P3h4**"00hh 8H 8 H 8r'  30PDCODHXENCDHX1DCODECVENCDECP PILOAD O18 A MSOS CCS 3.0 SL-149`P@P ae  !14;_ hXX 9X 1; PN @P, aB0`A h/h5H  3;9BKA 6 (@PWEhBK R A h1!W AX1$ @PI aX$ {A{CShbX _2XZ!$%@PX1N JHQZ3hB4hA Xh9h9h9XN 4Q61N 1A H@PHAHHAAlXV# 0hDShX 2X{A{a@PAN lX,# {A{X? 5; /àcB aaaaaaN 9@P. Q^ 2esR4R4! a  aa9aa dhhXn@PY a%nlhHXla.XG  @P  QRh CAX}X1uXa? 5; 7;X@P!\Xa a?  ah* (H& A aW@PAAV A a R 41Da a 9;  a @P QRa qr315;qf"q>a aX%Q(uQb 8Q6X{X@P0 PH aX>a aXXo   4a ?=a A@P[17Q6Qbda a a!a"a? aX1Q a1 aQ(a #13; h X@Pv va|1 A A|Xbѐ|"a !Q(a # ap  31@PaQhBh| X|!h="CAaApqd4", gXz@Pa WFC 9Q6Xg xWA" BthXdh WQAa X5AN ILLEG@PAL MULTILEVEL INDIRECT IS IN THE EXTERNAL STRING FOR WHICH STARTS AT LOCAT@P2ION hhhQZ3h4h 4Xk,ka+,A.XN  !eta+A.@P]Xsa+A.X X'+ a+.R2 q a' a- AXaXAaA--@PAX X aUva| a|X|  XaU , v2 6;,h a,X@P h a/"X16; X X X hX X hX@PX * * * U N P A T C H E D E X T E R N A L S * * * Xva@P  XI2X4 a2X LOADER ERROR h XG5 a{XDH @P4HQZ3b4b #X] X h XAj  4 XB@P_XDUPLICATE ENTRY POINT "Ahhh X]aX A3X 3A3XA4X4A4Y@P B q  : AGAIAAAAaHXH   a aI a2  J aG@P  J aGXH1XZ1J a aXaXtJXJ!JXwaI   A a@P a XFXYX!X]h "IİS !IaIIG$R AIaGJH t @P dH   a qH 6 "H "  1H AH1A @P6! b  !aHH  A  HvB HrH Hn@Pa Hghh HcwN ^h[ZB1zHYTthWWZ4AHSRAuwhPHQHOhMF#@PE2hB?/8N %c!h1H52h0uu0,z2H((h! `b@P bn8"n5An H amXRRX@P@n;(J3;N 12;A2 2;  bDbhb5n2%ABauy  32@P  0au C uauuuj ȫX X@(} 5 A(@P8hz`ȕ RAuwhH XRX&(@ uuxzx2aA@PcKW " 9; QB4QVRAcRBd4B4adAaQPSIGNCK9ILOAD WRTOUT@LENSDTDISKWRYFNDSEC/PRNT3 PRNT4 8PRNT5 _ADJOV1aCNVERT}LINK11ENTSTRFLGADRPISCAN SCHTBLIRWFLAGPGEFLGSA SQ VALUE WORD PAGENOPARSTR8LSTPGEMINREFMAXREFMINBASPADPAGEMINFLGNXTBLKDATBS0DATLM0DATBS1DATLM1STOP ,PM65 7TYPE UACKGR`azEa`ac aB@P0caaX #11;!2a a" audaub bbu2Dhhh@Phhhhhhhhhhhfapaq`arEd `avaa}E  33@P `a/ a aB 0a X ` awafaawB0caaPNUMSECCONENTCONMS1CONMS  CONMASWRDADRSTRTBL5ISAV "PMAXSECINFLGDPAGEINBASAXREFINREFSTPGEAGENOORD ALUE Q A GEFLGWFLAGPENSDT RTOUT SCAN PCHTBL-INK11mLGADRSSECTRNT5 gRNT4 cNVERT_DJOV1WXTBLKCTOP @RNT3 ;P PI1 O20 A MSOS CCS 3.0 SL-149@P HXZOaN  BX E A aPDhhYhh`@P+`aP$daPNaBH@OAH `є N4a aD@PVQK fX7XlQ QbX{" VX_R Q QPTDBHQ HMDhJ@Pa#a$a%DQK 7 1XQ" ,X6 AdaQ(2  ON%*$hua N@P`a{nIbj aXBH a>BHHяXHd    @P  4 BA4"2  4d xI  " IhX #`P@P XPI1 OETERMFATE PSTARTCOM SAV *NTSTRYPEQ P PMDRIV O22 A MSOS CCS 3.0 SL-149@PHXPMDRIV  34PROCESSAVEQU P PtIDRIV O23 A MSOS CCS 3.0 SL-149@PHVXHRhNhNTFH JO D`@@XXIh8XFh @@P+QZ3h 4h XL, FAILED () ACTION X XD BX ޘ @PVDRPCU B0 400PI2MZV4IDRIV QSAVEQZPROCES SIB MASS COLU TABLE bMESG @PSAV )ELOUTICOM NPRINTiTYOUThMASS fMTAPEeCARD dPTAPEcN P PVERFY1 O24 A MSOS CCS 3.0 SL-149@P6hNPb bb b ?/dd `" G" HhX0hTBD@P+lG"s XvTh/hX" !Xz   { XZ@PVVERIFYvh XM`dbh` LbW q b q bG q@P X)` `` ``aa a ȾB0F00`Ц?dTRVA"@P h hT D  T D(`P@P@T L # f"ATTT &"&0aA PGb b  hH@P T h T``LRWX*Z0J T  @PKMSOS VERIFICATION TESTS COMPLETE. TEST MATERIALS NOT LOADED MSOS 5 VERIFICATION TESTS-@Pv-PSR LEVEL 1XX ERROR MODE SELECTED 3  35"PVERFY1PINPTV4INSTLUj qh" hh TF@P T\0 0F 0 04 T\ dbb"` hB@PhBXX ( 2//h/ h, > , h'$ F$h!h X@P 6(` 2 aaضص@P1/Q/h:h:.h TL$+OHXhhTL6 9 ` ****@P)X6h3 h,X?Xh"TLTH@PX!   REWIND LU 004HH}zhv:  37J@P h+h&X'XHXH 0F 0HhheX 0F 0H 0F 0**@P,HH-5'h"O E $n Q h1h.b$% b%@PWTL_(# h  0X"X"X  hX _X; ^X9 @PHN hN DC ! _X#= X 9 % h3 X _X- 1  &X . @P h#(X h"Hcll-h TL s sUU s@P _X _X" X h %L TL shh@P h  hTH|(jh 'n q hhyh{{vthv@P.qhuTH8kkHirfH eW ha  _hZȉ hTȄNHLd@PY lGE lCBuhB  _ 2< 81  .H-%,!)h(qhȐ1@P`b) "$ g" g"aXQ d UUUUUUhXS@PXV:Xmhghh|h ?X8T`DTH(@PRrIhCXXXX>X X hJX^XX h@P<X6 X /حX X X0i-f*c @P0[hZhYhSQOX` X"H0@P[hQ hMKhIhhhhhhhTL@P(@P 3&D h?!9 h XTL S(R zh@P ^i (hsXX ChFXEXtTL (@P i - j Q  hTL (Lh.hXEX)ȧ@P  hh*COPIED*X hh^ hhhTh)/h/hY  38^@P M h`h\hh8h5hhhhhhh^XZX (  @P   pho lm 2 1( hd Fla@P !o/hkV/hR"Y/"HU ZGWM UX=EXXXR@P LXXdX hh`"aaaȹ XشX2X} X*X^X@P wXY@P ~ @P R@P I@P h`Hh`HhH| XtXnX@P  hXtXXXohXX^XXeXXXXSXXZXȨ! ȣ@P 阙XXȚ1 Xȋ1X}XȌhȋhXXXpXX؃XX@P %X hzXX}XX uhSh hn@"XX@P ?XXRh0h hKaa"aaa9'?S\X"5hh@P j h.aa, X,hGX@$X aaaX!8XShTL  @P XX@P  IRH H%u bbhTL (d b@P bTL + **Rhheh ?X!T`DTH  (R@P hTH ( I1 p`bg "$Ƞ g"Ⱦ g"ahhXr@P ahTH ((RTL 2(RXhHXbbX| @P H N  39rPCOSY PCOSY PuEESORT O28 A MSOS CCS 3.0 SL-149@PENTER LIST FOR LIST ONLY, SORT FOR LIST AND SORTTLTH/@P+"LISOh]Dhh hht hhX LISTING OF P@PVROGRAM NAMES, ENTRY POINTS AND EXTERNALS XD j ATH<@P""  @H L    Dh~h~ {O@P X& Xo X XX@a:XX(h0X&h/X$h. *H)&@P+ ! !H " q4lHhd$d h c"ΠPNEXTCHSTORCHPEND0V4BP PPICKUP O33 A MSOS CCS 3.0 SL-149@PHq``Hs"ܠPQ8PREPQ8PKUP P P$IOSUB O34 A MSOS CCS 3.0 SL-149@PhHLhH"h h "hTPRIOSUBWIOSUBP PHELPER O35 A MSOS CCS 3.0 SL-149@PTT  d T d T d T @P +d T' d T d  T5TTTTTT@PVTTX@d LIBRARY BUILD COMPLETE TYPE *Z TO TERMINATE OR  TYPE *@PC TO CONTINUE WITH CURRENT SKELETON AND/OR OUTPUT LIBRARY LU'S =XXb@P NAM RECORD NOT 1ST RECORD OF DECK. XXb XFR RECORD MISSING FOR L  3<@PAST PGM LISTED. PGM DELETED. XEXXATOO MANY BINARY DECKS LOAD@PED. CHANGE LIMIT AND RECOMPILE.XX0X FATAL PROGRAM ERROR. RUN K@P-ILLED. XXF` X XGGaX^bH ILLEGAL RECORD SIZE (.GT.96). RE@PXCORD DELETED  TYPE 1, CR TO TERMINATE EXECUTION TYPE 2, CR TO PROCEED TO SUB@PSEQUENT LIBRARY OR SKELETON TYPE 3, CR TO CONTINUE ON WITH CURRENT LIBRARY.  HH@PXh"XhX""h HLhT`tHlXhXd@PhX@ Hg" H B X""HLTHa!X@P,X5    dq ` Cf*ElNDd (d@P/H TL( H3( T.h hTL @PZhH hhhhh TQ8hHT\ @P HXh X""hTLa HX h X""hTL@PTHaXY X!X \ (d @P d X5 $ ufXIPHELPERKILJOBBINDECINCIDXGETCHR"STOREC)CLEAR 0STODEK>UNICHK7MAKLIBFDEFINEJGETITMNHASH RGETPGMVPGETBINZSTODEFBRESTAR^ERROR2ERROR3ERROR4ERROR5DISKIOMOVE GETRECPRINT 2OUTBINAINIT ^WEF xPCOMMNTGNSCHRNXTRECPHELP14HELP13\HELP12XHELP11THELP10PHELP9 LHELP8 HHELP5 DHELP4 @HELP3  ^@P !%)-15@P79=AEIMQUY]a@Pbeimquy}@P@P@P! Ot 1 _t 1 3 (t$ p[F    ( p !@@@@P@@@@@@@@@@!@P9!`Pd @Pm O  _ (t$ p 1 TERMINALPRINTER LPRINTER READER TAPE0 TAPE1 @PRR R@P3`P @PR  &$@P$R  &  O@POR  &tR @Pz &\]O`P@P[R F$`P  3? r@PR\ F$`P@PR F$`P@PR F$`P@PR F$`P?@PCFR F$`Pn@Pr[R R @PtR f@P@ (`@`P5@P (R f@P S@ p`@R ) * +f@P ~ @@P  `@R q r sf!@P @`@P @ R ,<Wy  3@ @P * 1R , <`P U@P V _R  @P `P 4@P R<4   @P R 6FA  R@P 6J `P aP@P R( `P v@PRSTUVWXYZ[\]^_`abx`P} Z`PW@P.`PY`P*`P |`P!@P"/"4"K"b"y``  3A @P"Z`@P"`"""##DT`P"@P"T`P"@P"T`P#@P#T`P#D@P#ET`P#p@P#q X X"dT$T#TR T$#@P# h 6 l#TR `P#O@P) @JPRETNFMEXECsR9TAPF@P)AR9SEGF)APMASKT MAXSECMPFLAGSYSID SYFAILxUBPROTeLBPROTdUPBDTBbLOBDTBQINTSTKAEXTSTKVOLBLKVOLENDSCHSTKPSCHLNGLOG1A NUMLU CCPLU MT50U0MT50U1 MT25U0 MT25U1TERMLUCONSLULOG1 LOG2 ALTERRDGNTABPDUMALTLSTOUTSTDINPBATLSTBATINPLUNAMEINVINTePCORE ^PCONSL>MIINP .TK7WEFTK7DATTK7RW MICSUBPSEVENTSEVNRDPTPDT0PTBSIZ?PTEOFVP83310XP1829 CDRDSMP1811LCPTRACPCCP1 AUTON PBAT00PBAT01N  3B PCALTHDLVLSTRN4 N5 N6 N7 N8 N9 N10 N11 N12 N13 N14 N15 PCOMM18HWINITU2INITSIMRSVQMINTXLSTLOCPARTBLLSTPRTBUSY TSAREATHDS USE OUTPV4RDPTV4PSPCEV4PTNALCPTNRELK65T10K65T12K65CORFMRDEL~FMEOFC}FMMOSUFMMOIUFMNRCDMAXCOPmUCTLENUCTABLPMAXLOCTLRTABL(NRERLEFMMOSFFMFCBSFMMOIFFMFCBIFSCTNEFCBSCTFSLIMThFSLENDMMLUTBPCTABLoIDLE ܎PIDLER ܉INSTLUIDLCTR܄TMRTYPhTMCODEFSTIMEaDMICODfTBLADReEMPSRTdEMPSTPcBUFF MBUFFE CGHOSTAYERTOPAMONTOADAYTOYERTO MONTO DAYTO HORTO MINTO SECON CONTA HORMINTOTMINTIMCPSTIMEC TODLVLPNSCHEDTMRLVLLSIZV4GPSIZV4GODBSIZQCHRSFGCOBOPSFMASK FLIST DOUT Q8STP NDISP CNTWARCNTTBLPMICSB2JLLUV4JBFLV4FBASV4PKEYV4RELFILFMPFLGJPRET PR9TAPFֺJPRETNMICLENMICSECCWLGT1CWSEC1CWLGT0CWSEC0CNWAREvSLICERgTSLICERTIMEUPPKICKOFjINPTV4zPRELFLEoLIBEDT܀BGNMONLEND AREAC DBATOUMSBATINLBATINCDRCP1IDRCP1ETRMNLCTRMNLS1829 L1829 PS18273L18273S1827 L1827 E18331DC18331EI18331FMTBFE1]MTBFS1_MTBFE0uMTBFS0wSMTSIMeLMTSIMfIPTAM2PS18326}L18326~S1860 L1860 ICONSL=EDUMMYKCDUMMYLIDUMMYMECORE [ICORE ]MASERR_MASCONaMASDRVcSYSYERyPSYSDAYzSYSMON{FMEXECSECTORDATBASEND0V4RCTV COBOP COUTV4ALLIN TSIPRCIPROC MSIZV4 MONI PDISPXXNABS @CABS ASABS BLUABS CVOLA DVOLR EREQXT FCOMPRQIFNR JP PMMEXEC M01 A MSOS CCS 3.0 SL-149@P@XgTR@XRa<jhTR HxqX2nX jg@P+jgjg h@)fgimjj j [j THq THsXHL @PV"h> 7H6X    v"`"` jj@PT 2a  2TTR$ d  3C `P@P@XTR@XdhH jIHk 4@ڳ@PbUbbM AʳX`H` jX/h)ʣjjX#Hʢ@PXTR@ʋ@hn "jg @P3"F YA 5A  P"GjGjC hC@H1Xq@P^.   D a3  H@a3  h@PHTPMASDRVMASEXTMASCONUMASERRMAS300RELBYQPBUFFE BUFF LOG LOG1A ALTDEVP PPORTS M02 A MSOS CCS 3.0 SL-149@P Z@P+ZZZZ@PVZZZ@PZZZZ@PZZZ@PZZZZ@PZZZZ@P-ZZZ@PXZZZZ7)  3D @PZZZ@PZZZZ@PZZZ@PZZZZ@P/ZZZZ@PZZZZ@PZZZZ@PZ`P@P""1@O^m|!0?N]l{ />@PM\kz.=L[`P@P`P @P"`PM@PO`Pz@P|`PdY  3E @P`P@P`P@P`P.@P0`P[@P]`P@P`P@P`P@P`P@P`P<@P>`Pi  3F @Pk`P@P`P@P`P@P`P@P`PJ@PL@Pw@P@P OFF UNTIL ???? RMUOPN @PRMUCSW RMUCF0 RMUCFT@P# RMUCLO @PN`X@Py@PM~ @P  3G @PBs@P %7@P Ph@P {,@P ]@P !@P R@P 'G@P Rx@P } <@P m@P 1@P b@P )&W@P T @P L@P }@P @P @P +s  3H &@P V@P @P @P @P @P -@P X@P @P @P @P@P/@PZ@P@P@P@P@P1@P\e`P,  3I :@PW+]`P@P+`P@P+`P@P+`P@P+!`PF@PL+R`Pw@P}+`P@P+`P@P+`P @P+`P;  3J N@PA+G`Pl@Pr+x`P@P+`P@P+`P@P+ `P0@P6+<`Pa@Pg+m`P@P+`P@P+`P@P+`P%#  3K b@P++1`PV@P\+b`P@P+`P@P+`P@P+`P@P +&`PK@PQ+W`P|@P+`P@P+`P@P+`Px  3L v@P+`P@@PF+L`Pq@Pw+}`P@P+`P@P+`P@P +`P5@P;+A`Pf@Pl+r`P@P+`P@P+`P?!  3M @P+`P*@P0+6`P[@Pa+g`P@P+`P@P+`P@P+`P@P%++`PP@PV+\`P@P+`P@P+`P  3N @P+`P@P+ `PE@PK+Q`Pv@P|+`P@P+`P@P+`P PDUMPOTPORTS EPORTSNBRLINPLENTHOUTQUEENDQUEMAXQUECCP CPTBLNACPTBETSPAGECPTBLZ{NUMCP PCPTBL XMATR XMAT jXMTENDMMAMAXMMAT NXUC NXUM NSWP TSQPRIPROMTRBAITOSDATFMTDATSEPPTSTLOCPRTCDRSWPSECR9TAPFR9SEGFWKSPLULRGUSRRQLLIMRQULIMTSOFFMRETIMEONTIMEFILOADQPASWDPTSLOFFWKSTATTSMUSRTSMEND?RMUOPNRMUCSWRMUCF0RMUCFTRMUCLOR9MUX1R9MUX2R9MUX3R9MUX4R9MUX5PR9MUX6TSPORT?TSPEND TSUSER TSUEND_LTSUSRoNTSUSRL000 PSWAPARSYFAILSTRLENSTRSECP PqPARAME M03 A MSOS CCS 3.0 SL-149?  3O @PH F  4 """aH"1 h"+h!2@P+b4 h12 a2aH"1"i+!!2a"a@PVH"19"+Ȱ122"aPPARAMELUABS SABS NABS @CABS XP P T16 M04 A MSOS CCS 3.0 SL-149@P"4aaPT16 PASC P P#DTIMER M05 A MSOS CCS 3.0 SL-149@P h Q! b1hhThTP PDTMER DTIMERPTMRLVL"DGNTABP PTMINT M06 A MSOS CCS 3.0 SL-149@P"3 a"I 2" "1""TA"Td"@ @P+RTf"`Ab"D"ATbjObh< H9>3 j:4j7@@PV S*  b# a&bH$h"hT! h ab@@P ;(  3P PTMINT TIMEUPET8 T15 TMRTHDPSYFAIL-TIMEC NSCHEDGP P.MAKQ M08 A MSOS CCS 3.0 SL-149@P a"I   ! 9  f"a 11r  r t@P+a "PMAKQ MAKEQ P PRW M09 A CCS CCS 3.0 SL-149@P"3 a"aX~TA4 x"12 A @P+Q"Z3bbXzH9L, DOWN  n>/X\ A@PVhL hTA/nbb "2f"HT b@PHT s% bdbTŠ x"122@Pd 0F400 hKΈ(B " hPRW T0 T1 T2 T4 T6 SAVLU CKTHRDRPMASKCONVERALTSUBPLOG1A GLOG1 FLOG2 DUMALTP PMNMONI M10 A MSOS CCS 3.0 SL-149@PT AA haa B\="a1Aa"a"a'2f"  aI@P+A" \HT`  3Q PNMONI RCTV /MONI REQXT CASC PT19 BT18 AT17 @T16 ?T15 >T14 =T12 ;T10 9T9 8T8 7T6 5T4 3T2 1T1 0PT0 /CPSET LCCP P PNIPROC M12 A CCS CCS 3.0 SL-149@PLh!T hDh  DSA?d+XKH#@P+h#+ ` 2 +T PARITY, 0000hH  h@PV h"hhd"c`d" `TG"XhXȈ h X h X Ȉ@PDd " : APIPROC IP1 ASAV %QSAV nMSAV oPWFOV pHA sPRO PWFAILOPTYERRNIPROCPSYFAILlPARITYDSWTCH JOBINDPOWERUmP PSTRVEC M14 A MSOS CCS 3.0 SL-149@P S   @P+  hTRT$2d 2esR4R4!PTRVEC UNPIOF PARBV4COMPV4DINPTV4SCHERR?JOBIND NSTACKTRANV UNPIO IUP SPASW LIBET FILE1 PFILE2 FILE3 FILE4 RECOV LOCF LPTRS SWTCH LOADINUNPTIM VINPV4BATCLU PRORETMIBUF JPSWT PJBPROETRNVECRELS1AERRMSGAUTF9 AUTFA AUTFB JKIN JBCFGZ&JBCNCL JBCNFG6JPRETN8JPRET17PPROTEC=P Y  3R  P OFVOL M15 A MSOS CCS 3.0 SL-149@PA+ O VTPOFVOL OVFVOLPSYFAIL P PALVOL M16 A MSOS CCS 3.0 SL-149@PDRrbb@@`@"PALVOL VOLA VOLR POVFVOL VOLENDP PALCORE M17 A MSOS CCS 3.0 SL-149@PH/ h,h(( 2 h"H! Q@!1! 1h @P+h" H:h;:h<8h842 ! h,,H)@H(bA""@PVl" l ! h@lf"bAH b b"@Px@PzH0H, `&"@rQbAdah @P`lbPALCOREREQALCRTNCOR|PCALTHDLEND LVLSTRP  3S  PLNCMPRQ M20 A MSOS CCS 3.0 SL-149@PA a"Ib bK  7 h0b* h%#@P+# bT"2f"hT`a#a"PNCMPRQCOMPRQPTSMMER1LOG1 BP PyNFNR M21 A MSOS CCS 3.0 SL-149@P a A  GT "I) A  Ah a" 4"@P+a"n2a ,a ">a  a i& M J G D Y@PV    a "1 a a  a TA TA " !a PNFNR FNR FINDRQPALTSUB LOG2 $LOG1A LOG1 [P P^ADEV M22 A CCS CCS 3.0 SL-149@PTRc2 ?&th_H^\T@U(HY\SHVPhhMQRh8`nL\EVG@P+/nGe`,H`@``=\anY5U`DaO1A1n.(%& BhBCh@PVbT 4h1TRUt n QH@PshhxHhj n hb ` "\V"@PHhTRJXJhUR XFhVXChWTLt 8X8hC@ X4hDTL@P hETLTHa3330C H)e s   3T @P 0F400@PL, FAILED ALT, ACTION @PRPQ"h`JanFDT B=`Th4` hTT@P0a &@0n#ch hTR"XnTR Xs@P[tPADEV DEVERRALTDEVPSYFAILUNPIOFLUNPIO JSWTCH QRELBYQLOG2 \LOG1A [LOG1 ZALTSUBmALTERRnJBCNCLVP POTOD M25 A MSOS CCS 3.0 SL-149@PXTTa?a9a6aAB81Aa !a#" :l 5@P+lBT$(l(lhhl lT <dPUPTOD TOD PTOTMINIHORMINHCONTA GSECON FMINTO EHORTO DTDFUNC/TODLVLTIMCPSJP PT14 M26 A MSOS CCS 3.0 SL-149@P"5 aaT"aTPT14 CARDRD PCKTHRD SAVLU P PmEFDATA M27 A MSOS CCS 3.0 SL-1497  3U *@PbT aBrrAaa"2 a"F!B "@P+a aD a  H . }z C" ` hnp"f"ji@PV fdbhT$X`aTh ` ,jki qH ` "j` q?`@PaThz3 0.q)nh(h(H&TR #`">"1hT@P b `hTX`P`P2@P Ȫ h C` jS qN\Kh8OTh< =H7 5H3h3@ \9h#<Ƞ \4h&B581H2@P8\. =Hh,\(B :hHTLU^M MM ERR XX LU=XX T=HHMM:SS S=XXXX X@PchSdPLOG BSYEFSCEFDTAEFLOCKdEFCOVLEFDATAMMEF PHA CONVERfLOG1A -SECON HORMINYERTO MONTO DAYTO EFSTOR`P P#DUMMY M30 A MSOS CCS 3.0 SL-149@P@TT@?n 2a H TbT PIDUMMYCDUMMYEDUMMYPLOG1A DUMALT LOG1 "P P@P+aaX> a" Aa hVh " HO# H $a 1" h?XyDh;O2h@PVPhPDhL NhoXT"I  `A  hh" h} #@Pz # WX  " 9 X ,1 3 8X! 8@PU1_ XXX  h X3"2hhDh2hh"h!@P hX XhXX hXaahh @PhXX X"!hXaa 1kf" h|@P- XDhX X1  h?g+ A1a ^ f" & _@PXa %X~Dh XcT Xh`Th T XL XI 3@P#a  8 X M X!  X1h X!@PB hB DH"rth h h h hT`2@P X X rH  a f"ThTqr B2a h.@P" " <hph"$ Hh"Q Q R01a ֠h vQ H@P/Bh r <  #E{hB aa X,Xh XnBHj@PZXXXk Xd( X`]DBHZXj ! HRXKXS\gH*"'m@@P9!j4 hHX;H h T\f.HaP@PdXh XH h hT&\beh " ` @P hˆ`hhhVhRh` a_a `a` `aZ `a^ `aaac `a@P` aU Vaq Xao ab` ]h h h h^ :h h_ ]h h` h@P^ ]h h hBSB""/4h da A  X @PLIB a; aN G` hM hSh~hX hy aO2@P;- A  Xt IN +' +cB A+ +da  Π XX:  @Pf XMQ o*P 0FȀ004h A X6 L Οh/ n h< /!  3X f@Pa<; a; Άh  cB T'/ nn~ i@P  hh l ZhT lh 0$a h3 @Pu#  a al !h y  r HU2Q @PI ^              "2a1Ba2@P=jbHXHhh *M*L*P*V*U*Z@Ph*K*N*S*T*R*A*DM*DL X6A  h X%R @P / nA/ n~  X Rv AC A&$EȘFX'@PXH nc<XX?h:"66 // nM' XX' nB :@P1 !Qb  h aHI8h"% @P  Y `X pahjHj4h!BHe^aG a `aGAa X|G Z@P?R4B0CahMIQ A  Xf A  X_ FINI  a G"@Pj aG"hhh X/ aXG aG SECT. FILEH @Ph XhTLH% a X HhXHh h hX@PjX j h 0123456789ABCDEF@P``h3 }n0 qh HA 0%D   aEX 0 aE A HhX A@P  Xk FINI  hY` hUAT 0F400lIHGG 1 dhB>AX>@PAL;:l987 a 3 `h-` h h X[TLT\ A  X@Pl  h E aEa h hXjX j @Ph 0123456789ABCDEF` aja ahaiaja XD `a @P XRXh?Xe)"7  FPaha aiaha ai. ajX+   3Y z@PX:d X7aB>. ajX X*d X'a2,X Xj Xg Xd Xa @P hj0aj X X XqaA X_ahai XdHThSH?`@PC Š .h h "QhyhhOs"2h" @Pn X" $ ah A H"\h T  `a   @PX  aX SAa # X)   U t 1A at `a@PhhXw T\hTL \_Ȕ AQq `a@P a a T\  Q_ bh# ah A H)bfGj@P 1hGaG!h a ah W h a A aLIBE *T Ye @PE1 aGaaaG zXS 1 a!a `a ;| T"Tch Tg @Ppa `a GaGA X%:aA X` atalapahaiaj a?a=X7B  @P K %aH4  HXqXV X[f XXg!GXa * X*A @P X% A XS h `` ha ` Xh  aHX@PSH hXAajXWMD Aa  XH1 @PXehAi  hX X Xe Xb XHXV Xf X!  UhO@PGB1A aHH bh~h}8b" 1A !m)1UaW O@Pr Xdax Xr\b3`baG  Aa # X aaa@P zXM7"B!b0f"Db+aA X:$Db !1A daxa{ a 2 X(@Pa{ 1A dax a 2 X `XhW!T aV XT @P  a amapalaiahawaaf a=a?^h Xmh h X_Ai X@P "ajAkHUaW O XO aIaDjh  XHhw \ X aXaaQk  3Z @P IaYaaRaSi"2anXYa XAa G Xm!1h&X al a=a? ajdY@P taR2an a?Y a XY aYRYS` UlaW V X X AhAim"  @P  `X{hW^h X XPAAQaaRXudhqq dhm^h @P XlXf lblb X.L[l[ \ X_fRaQaLKGF `C ?@P f `X?2`` UlaW V X2mah amRAkb XvHfhe X@P  X'     >bh` :h h $hTn   @P K#KhJH h XHMmg X  4 h1/D nB@P v ! wؠ `XX1Ȗf+@P ' #w؃ ؚ2anaYa XC  PPP@P@P `PP `XhW a awahaiaja~a|aCatauaTalap ada?a=a`X$T  @P XoXCatXAXQavXBau XSAB@P "avtTuA XHht XhW^h n Xa} HHJ!HhChBU@P MaW O X<dax Al Xa{21h-{XIda'` a 2 X}Xixb{bXVax@P xa{ a 2 X X` AA} ]axayxdbX0X a{yxax@P a 2 Xawa `a aAa X aAa # X h  `@P aAa # X a=DapalUaW O X g X n XHH  `X @P hWut$  a@ XJ|wa^h n X? HIaDaAdhu@P $@B1A a|t 1AaAH `}h|aX@v$ @(B1AA h HaDD@P OaC `a`CXbAaD B1a~|,~ |h!ahX?A@P zX>CA5aX5TB )aDADX.H|~a|BHH~Aa  3[ @P `ADCAX `a`XPAa XAa # Xt A@1AAaA@P @ `aX_ hwXXn@XDA !@1  awa@P a a XP` A``h] X   hM X  @P &hD 1 Xxh9 XpM-' 5B %h"2 "@P Qf"hB0`hHX | 6B h1 DaCNaD ) XAa @P | X)n ) XAa # X`X_F    a  bXQhjhahah`@P h` hBh%T C 6""h/hJX0*)hhX C @P  a  bXhX  hA X5EŠ @P hXK  dhXD ~d hXh@P(h  hh hh `hXz3 JȻhȶh ȶ@PS hh} hhy hȭ [hY Xhk'D P nAXjE1.  (X@P~x948 H30g*F b &ok nXndj `Kc Fh)@PX[8[gSAB87 X)XTL` @P \7 XXTH \hXT@P \aA X` a?a= alapahaiajXrT   h* @P* aH1X_Q !h?= :  _ahaiXEQ   @PU! h" < 2ah` gaiXU    @P 2aj XvHfheZ XXSR   1jajXES  @P  h  hXj XCkhh Xl* XMa a  X^"@P֘  *K hhD 8  XD hS M 2  !  3\ @PCa"y$ Q 1hPaA X Xq# @P, Xq XHXQ  p Xq Xa!XR   XHH@PW  OB1A a bhxhu 1A a!k h1dax@PUaW O X XoYb3` ab"A1f"hbaG aa zXR  @PAa # X 1aA X@*Db '1A dax"a{ a 2 X.a{ 1A dax @Pa 2 XA X G a "T &   + a GHX@P2r Aa Xh,XH aEh%#h('n A hN `@P.Ah" " H h TDhX`aXXZH/ 0@PYalA=UaWl? O X =0'hA= =h =h  a>dn>`l V Xla?@P2anx  ay a?{yXyxy `a ] XocAa Xa ;"aY@P a@aCaB ] X `a@AAa XBh!kh ` 4hX  !@@PAAa # X~aDB`4h h l H 0h&XH#@P hX H 4h 0F 0H 0F 0 X RECORDS TRANSFERRE@P0D h ChT  j q HX9  FILES TRANSFERRED @P[ h%H$   E1aD  HH@PKXHXtbhhz hrahrahp hl `ahjfhfcAa @PXSX ZMB0Ca hN  aN !%KI   ? h=8 h64@PX /1.aad (hih i2Ah@Ph = a= 4 a=pp  ApA=UlaW V Xll 4  @P2UlaW O XZpA]"h4h4a\=b2\h+h+Ad\]f" !la\  !p\=7  3] @P] lHpH=H x! alapa=aDaaM `a`aLLM@PAa Xa ZaKXwLlMLAa # Xwa3 ` @P n A `aMLAa # X] aK DhZa|aa aB1a~"Df A `@PaEAa XH=h%&; 5wXK$*  ' `a~"1X"X|@P   " "   B1A a|LIBEB!a a|A @P4Aa # X|a|Dh H  1 h c+ AdaH&@P_4 h"d_DaCN aDXaA X`f" f"X # X#Ddd `a`@PC h0aC ] X `aA@Aa XDarZaD `4h A  !@P A a zXH_HXX-HZHPh\QN@   F@P  c+ q+da+3"aGa X1h,%A``h,d h*hd@P hX\DD@ h HTH@P6hKH8_h4hEd 1h!h*h;hh2h!hh/X X$8-h+h@PahXܶTH\XܤTL\@PHX 1H#Nh `a^aA X^f" f" # X #@PhXhthh 2rh #THT$hX@PHFa  ?h zhTLT `aQbX `aZ@P qX `aZqXaDCa@`aA`hB X&A *AFn5F qR@P8 n)n# l `araDA@X} a e Xk}aXKa `aLMA@XW@PcOh^ he hYhWh\hX c qPs"H"HEEhEG6AD2=d @PR@ T A=1!#h0* 1= $9"0$h$! a9(hc)  3^ @Pc aO ,  4    hh AE@PE (hE aE7 Fh 2 cs c qaaȷ@PaO S^h & cI  $ c nC h hHŠ  hh*h)hwX$@PeTH h\agaev(hh>hbX@PHHhTL`TH"h h hHT @PHhPIUP COMPV4SECTORFJPRET JPRETNJPRET1LOADIN LSTLOCpLSTPRTlPARTBLsLOADSD LIBEDTNUMLU nLOG1A QPSWAPCKUNPIO SWTCH FILE2 IP1 PLIBEDT P6LOAD1 M36 A MSOS CCS 3.0 SL-149@PXLOADhHX`P+@P % @P7Q60123456789ABCDEF@Pb%@P``PG`P`PI  3_ `P@P`a A4a9 a: a>afae/]    T AAPLOAD NUMSECLENGTHaPPRINT3STOP NMPRNTPRINT4PRINT6%PRINT5@PISKRD2DRIV QPLOAD PCLINK11 M45 A MSOS CCS 3.0 SL-149@PhA"BaBX!gXa WE9 ; qhXh WQB@P+a pqd4" WA" !t݀PLINK1 PISKWR"ISKRDPLINK1 PyLOADR1 M46 A MSOS CCS 3.0 SL-149  3b.@Ph c A9 X" 1 ;*Ta a<  P#h@P+ C3 ;) KA 6 (9h K R A@PVh*PXaaT T  9PALRMOKLOADERNXTBLKPG2KRD`FRPROZXTPRORNTPROEZSPROCBDPROAAMPRO,DRIV PLOADER PNAMPR1 M47 A MSOS CCS 3.0 SL-149@P a(!  AX+!)y !aXt3 @P+a,! AX_!$XG4 ;xAAAAAyXF3@PV aaAyX1# a X(!A e  X1?@P5 ; aaa #Òc B aX !fa#R4PSIGNCKNAMPROPMPRNTPLOAD PRBDBZ1 M48 A MSOS CCS 3.0 SL-149@P a  aa9aa Ch~hX{ a%OMhHX@P+ya5XQ    QRhXX1@PVXa?5 7 6 ;XQr!pXZ@Pa a?} ah* (H& A aWAAV A @Pa R 41Da a9 ;  aXs 9X>e  3cB@P1 x QRa  qr315;qf"qPRBDPROBZSPROPIGNCKISKWRzRDADRPLOAD P6ENTEX1 M49 A MSOS CCS 3.0 SL-149@P>a aXQ(wo8 Q6QbX>a aXX  4a ?=a B@P+17Q6Qbda PENTPROEXTPROPXSTORNTSTRP PXFRPR1 M50 A MSOS CCS 3.0 SL-149@Pa a!a"a e?PXFRPROPLRMOKPLOAD PSTBASE M51 A MSOS CCS 3.0 SL-149@PfH]"a5 " aW X ! X "  a/=a' AAx@P+ A( AAy AA!a0We!h  !a1!h/ aW awhwB@PV0aa %11; !2aah" audauf ffu2 @P ° AA 32 ; 0a1  hGXBhB X< 4aaӈ  3dV@P4apaq4arW4aTaSȝ" a a!Aa Q(X@Pװ!h !h + X  XPSTBASEPNUMSECMODIFYvREFER tLVLSTRADJOF1LNKTBLLENGTHWTBLENDLOAD NUMBERqMAXSECIGNCKNTSTRDPAGERPLGADRhISKWRPSTBASE PLNKENT M52 A MSOS CCS 3.0 SL-149@PX0 aQ(a a1Gh X13;PLNKENTPXIT ATCH ISKWRPLNKENT PALNKCR1 M53 A MSOS CCS 3.0 SL-149@P  aX(9aA" a Q(bX "X9XX  @P+ h akh9 `Xю hPEXIT #LNKCR1LNKCRPLNK01 =PRTOUT&ECTNO6DRIV :NTSTRATCH "PLNKCR1 PBPATCH M54 A MSOS CCS 3.0 SL-149@P ava A9AXbѐя"a ! Q(# aaQh!@P+h XXiH+ X/G  3ejPPATCH PISKWR:ISKRDPPATCH PHTBSCH1 M55 A MSOS CCS 3.0 SL-149@PXX a' aX+X! + X4 a+X.a ' aUva aX   XaU@P+ a- AXaXa--A XPTABSCHEXTSCHPISKRDEITCHKASH PTABSCH PHASH M56 A MSOS CCS 3.0 SL-149@P A, Aa--",a,B- 1la, Ca+PHASH PHASH PUTBSTR1 M57 A MSOS CCS 3.0 SL-149@P B@>j}h4" v!2 ;+ X&A+ A}X +a- AH-X-A@P+ H-X-H-X  a+ aX X , 0' #"H"H hPENTSTREXSTOR6BITCHKFPISKWR?ITTBLQPTABSTR PPAGE M58 A MSOS CCS 3.0 SL-149  3f~@P HtB HpH"Hm HfHehdxX4"2B1zHZUthXX[2HTRAuw@P+hQHQhOYH"F2hC@%h XFXAX! XSh " İS ! a  "RA  @Pt d    a q 6 "  "  1  Z @Ptl tlRA  A 4PSCAN PHPU `AVEA P P CHPU1 M61 A MSOS CCS 3.0 SL-149@P "or a RAoPCHPU PCHPU PADJOV2 M62 A MSOS CCS 3.0 SL-149@PaAVRBcR!d4 4adBaQPADJOVFPADJOVF PaADRPR1 M63 A MSOS CCS 3.0 SL-149@Pfa e! Ao a X 5 daeaQ(a' ae   a @P+X e ae  ebEWS4 AQbXE16 X c @PVA9 XQ9a z  3hPADRPROPCAN ,DRIV [PLOAD P7T11 M65 A MSOS CCS 3.0 SL-149@P1\  "ae"""T \ "\ @P+"``aPT11 PCOMPV4LOADIN#EQERRJBCNFG2P P"T7 M66 A MSOS CCS 3.0 SL-149@P1dBh^heh[THSHShOhOh"IVhFhF#:Hg hFhE"@P+1H:<hN5dh5H8 T, h,0f" `&!hh6h5h4h.X&X@PVh hX~hh*  TH@PT X],  XD% 3h. QhQ Th@Ph $γn qȬdh X,h    hhlAȒh@PDD@܁{{ X ȼ  X XhhX#haȩ @P h[X!Ƞ  hh"hnhhRheh`XWPT7 PLPTRS ALOCF ECOMPV4:MIBUF JOBINDJBCNFGSWAPCKUNPIO zLOADINeJPRET JPRETNJPRET1LOADSDkEQERRP +  3i PYT5 M67 A MSOS CCS 3.0 SL-149@PaaT T aT1`  hh H( \$ @P+\  ! TRf"T @PV`PT5 REQERRMPCOMPV4 UNPIOFCUNPIO AINTSTKUNPTIM?JBCNCLJLOCF VLPTRS OP P7T3 M68 A MSOS CCS 3.0 SL-149@P3 a"$-BF 2 ""a3"a @P+ae" aaPT3 PJBCNFG1EQERR$LOG1A 6P PONE M70 A MSOS CCS 3.0 SL-149@PPONE PO3T P PTWO M71 A MSOS CCS 3.0 SL-149@P  3jPTWO PO3T P PTHREE M72 A MSOS CCS 3.0 SL-149@PPTHREE PO3T P P`JBKILL M75 A MSOS CCS 3.0 SL-149@PHGHD  bb BD `!$ h hA3@P+ 1 T \ aTdd@PV A  ` PJKILL PCOMPV43JKIN SJBPROE\JBCNFGQUNPIOFMUNPIO KLOADINIUP FILE3 LOG1A UNPTIMIINTSTKP PJPLOAD M76 A MSOS CCS 3.0 SL-149@Pltgsh lpTliDT `jy A hX jy B D@P+hs feHB 5? q H9 h V  "Q Q \OX#4 h@PVXE ; 9O, 7XX,LL,LG3210/  q@P" X!x @ *LIBEDT     ,N  3k@P  hLj `XaBHLR2 q7hA"  ,6 ȥh02@PH+X> #b#Ah  $Ωn qȠd)0403lx @P h HTHX H LHuQH D@P-D@ ` h*`h(%hdhlSH T  X\@PXX " X05 h7ab2 ""(Dh"`  h@P H   r r4hʀPJBL JP1 PJOBINDCOMPV4MSWAPCKUNPIO BRKPT LOG1 FILE3 vFILE2 uJPRETN/JPRET1-JPRET 1LOADIN7LOADSDeIUP PTRANV JBCNFGJBCNCLLIBET MIB LOG1A PROTECRELS1AJBPROE+PRORETTRNVECPJBL PFJPCHGE M77 A MSOS CCS 3.0 SL-149@PhJWlCDd"*Vh    "SYȠ  "@P+ @X"  dDdT  h` hA?V@PVh=8XV3Adj6/rp*Bqlj,C  `!#aQr  Xp hT0@P  Xi hMMhM'  X` hD  h64  .h̝@PhIh"H"  " 1 (&  hl8@P 104b TT  X   H[Dh "DF  @P  "SF   h Ƞ  @ H-X\E# HH T@P-| E !PCHANGEOJPCG e  3lPMIBUF JBPROECMIBX ;MIB LOG1A FILE2 GTRNVECIUP SCHEX!NUMLU VINPV46MIINP JBCNFG9JBCNCLP PUASCHEX M78 A MSOS CCS 3.0 SL-149@P HO hOhOhO""MH XEV" X Q3 8 ,r^3 Y "  @P+ rD rR 2b  2yRBBl FԠh FhPASCHEXP PT13 M79 A MSOS CCS 3.0 SL-149@P-H3 abb H{x A"bHm@P+hu@"a2 aG4 \= hL\6 6hWhVhPhO L!5@PV r2""h;h:h9X78S h" 2S/h \ +T Uh@P h XTB` h  (,Ah " @P " hH b"!f"q!H T hh`h_`h d@PDb f"h`T hT T hQH T `9 @P2 `(&$ `4!w1d(h~Axvb @a @P-alH  b Dd"`PX7PT13 PCOMPV4xMIB 7FILE2 >LPTRS LOCF SWAPCKSCHERRP  3m  PJLGOV4 M81 A MSOS CCS 3.0 SL-149@Pl"H `j A h j B Dsh @P+04l   XX @  T u XsphB" hS@PV hQXhM" XC l l+h=Dh:h9`HJ3TF \A`@PX\:T 5h T `h HTH@P E5 E10 BRKPT X H LHaR_H D@PD@ X X XX6aHI?PJLGV4 PCOMPV4wSWAPCKUNPIO BRKPT FILE2 $JPRETNJPRET1JPRET LOADINMIB JBPROETRNVECPJLGV4 PNAMEV4 M85 A MSOS CCS 3.0 SL-149@Pd hhh h h jY qhchb//HY@P+hXh6 /H1 /h/h,T D Cj q"XT@PV  ئȥ%h`X%"BhXȘBXؕ  v w r r   i @P_I_DX `OT$ IJ""h@"0h'h 4h161 @P?X j h.,h*4 0#>D_1 '# Xj{h'h hXT@PXXjl h h`$  h"  hDT@P DDX ݐ'h& h} h Cj, qT D&X @P- jػ hVXT   `  1700 MASS STORAGE OPERATING SYSTEM @PXVERSION 5.0 DATE OF RUN: MM/DD/YY SYSTEM ID:  (MMm  3n@P/DD/YY) X++  ++@P+++  ++@P++++++@P+++++)@P/)++ !"+#$%&!'*+*'!&%$#+@PZ+!'-)++++@P(,+"! +(,,(+(,+  +++++++++@P++++++++8p8p?8pppx888888@P8xPNV4 PJBPROE@TRNVECNADAYTO2AMONTO.AYERTO;SYSYER!SYSDAY'SYSMONSYSID FILE3 P PRESTOR M86 A MSOS CCS 3.0 SL-149@PHVDlRH @Xa;DR2 q4"H@< qhT @P+!DdT `  LU RESTORED JPh04h h@PV@?m`!- h<";f"hH2h+B  " h1ט@P A ˠAq1m  bHT  h-h-"*(@PDh"!#h  H   r r 4hPRSTR PLOG1A WFILE2 XMIBUF JBPROE@LOG1 VMIBX :MIB   3o2PRSTR PDRCOVER M87 A MSOS CCS 3.0 SL-149@P lP chOhN 19XI RE 'jQ qT 'LC*D=*M@P+77  X"ERR ( hThT LDhT @PVh 4hHT @P a1(Dh" jG qhAhA `X XX%4 10/ 1*@P 1 h% a y a r/h  S  Ġ j h `P@P h  1  :j E Dh Ȉ 9j# qPRECOVRIBUF cREC ERR 2ABIBUFSBUF BIASCI TERMINDGET SIFT SP :LUNO TPSWTCH FILE3 RJKIN MUTSELCASDMP+MPCOR%P PEOUTSEL M88 A MSOS CCS 3.0 SL-149@P h4 @X X3 1 h' `#h!F*!hh""@P+$1 hd  ϠthPOUTSELPLOG1A +UNO 2EC 4RR )ET P PRDMPV4 M89 A MSOS CCS 3.0 SL-149@PXh"h#h( hh  hh h 1sd"X   3pF@P+ XXphd `Xm_M] `yhhX8mTMR6߼hXeX9@PV"c!!X(h hhȽ!X1** n$ h!XhȭhX@PȨ9Xp** n h X /hT $2 K @P  $  6 hH PDMPCORDUMPC /COREL .WLOC (STOP 'COMPE )ASKWR *B PLOG1A ERMINRR IASCICBIBUFIFT UNO P UF EC #SWTCH P PMASDMP M90 A MSOS CCS 3.0 SL-149@PX j q" 7 4 1 HvhpRhnt jh6gŠ @P+Z[QhYWUVR `HSOP5NK! h hC@Ah! `hL6h@PVX M 4hX X/X h&$ XhH/hT  SECTO@PR NUMBER  h hT ` 1gPMASDMPPLOG1A BIBUFTOP RLOC UOREL ]OMPE CSKWR F UMPC aUNO oUF IASCIkRR -EC PIFT P PBRKPT1 N01 A MSOS CCS 3.0 SL-149@PX H ` Mh2 RhOh]D hrHphp ho hphhn  1  :jgE dDhb@P+Ȉ``_hHVhTL zx q h~ BP,  BP T@PVL 'j/ q#hTH(!.FORMAT ERROR PROTECT ˾  3qZ@PERROR @P@P#6X" uh ȧh@PTLfX |`hD hCɕ,ɐ i8ʋ7QȠ   @P DBH(&%""?o ?jkFh h ZhTL@P9@P=*SAH*SQH*SIH*END*LRG*LHX *LIT *LAS *LSP *LDP *DPC *DIC *DAS *DSP *D@PhDP *JP,*RJ,*SET*TRM*DMH*DMI*DMA*DMS*DMD*LUI*LUO*ADF*BSF*ADR@P*BSR*WEF*REW*UNL*SLD e q & HFh @P h h hTZ!,X${BPRSETBPRLSTBPEND BPLOADBPDMPC@PBPJMP BPST BPCLR BPMASSBPBPLUBPTAPCPBRKPTDPBRKPTD PEFSTOR N04 A MSOS CCS 3.0 SL-149@PhhK j qDd`3 ! T D8y  hh% @P+j qT D `hT D AT D `a @PVh C`BHd 1jg qDh C`^Y Y h h:h T D@P `a` hH;% `  4! )js q@PT D `naؖ 4 T D DdT`P,f  3rn`P`P`P `@PEFSTOR MASS MEMORY ERROREF STACK OVERFLOW EFSTOR LU ERROR PEFCOVLBSYEFSfCEFDTA`EFDATA MMEF iP PEFLIST N05 A MSOS CCS 3.0 SL-149@Ph#  R $ Q h T D T`h4K Xh.@P+Cq(D " 1 I(` Ij q1XhT D T D @PV H`" `X*  h T D `7@PiT D X#` HX y2vT D@PgS`P;@PT D LISTING COMPLETED TT D ENTER LOGICAL UNIT (XX) @P=T D a{Bh Fh "d2a"T `D@PhX` H?h?"D "h6 h3" XJh0"XMhD H* :=H&h&"H X6@Ph!" X2h""XHH%h%h(T D"  @P `00B0F4B8h B8 ȈhXd"Xh XȈ @Ph X hXȈDd " : A ENGINEERING FILE INFORMAT@PION LISTING LOGICAL UNIT XX TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT:2  3s@P?TTTTTTTTTT DATE TIME FAILURE CODE HARDWARE STATUS MASS MEMORY RE@PjAD ERRORJAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC 1711 TELETYPEWRITER  @P 1721/1722 PAPER TAPE READER 1723/1724 PAPER TAPE PUNCH @P 1752 DRUM 713-10/711-100/713-120 CRT@P/SLAVE PRINTER 1738/853 DISK DRIVE 1751 DRUM  @P 1739-1 CARTRIDGE DISK DRIVE 1738/854 DISK DRIVE @PA 1731/601 MAGNETIC TAPE DRIVE SOFTWARE BUFFERING D@PlEVICE COSY DRIVER UNIT 1728/430 CARD READ@PER/PUNCH CORE ALLOCATOR 1733-1/854 DISK @PDRIVE 1733-2/856-2 CARTRIDGE DISK DRIVE 1733-2/856-4 C@PARTRIDGE DISK DRIVE 1742-30 LINE PRINTER 1742-120 LIN@PE PRINTER 1740/501 LINE PRINTER 1732-2/615@PC-73 MAGNETIC TAPE DRIVE 1732-2/615-93 MAGNETIC TAPE DRIVE 1732-1/1@Pn706/608 BUFFERED MAGNETIC TAPE DRIVE1726/405 CARD READER  1732-1@P/608 MAGNETIC TAPE DRIVE 1732-1/609 MAGNETIC TAPE DRIVE  1713@P TELETYPEWRITER KEYBOARD 1713 TELETYPEWRITER PAPER TAPE PUNCH  17@P13 TELETYPEWRITER PAPER TAPE READER 1729-2 CARD READER  @P1732-1/1706/609 BUFFERED MAGNETIC TAPE DRIVESOFTWARE DUMMY DEVICE  @PE 364-4/361-1 HDX COMMUNICATION DEVICE 364-4/361-4 FDX COMMUNICATION DEVICE @Pp 1742-1 LINE PRINTER 1777 PAPER TAPE READER  N  3t@P PSEUDO TAPE UNIT 1777 PAPER TAPE PUNCH  @P 1729-3 CARD READER 1733-1/853 DISK DRIVE  @P 1731/1706/601 BUFFERED MAGNETIC TAPE UNIT 1726/1706/405 BUFFERED CARD READ@PER 1747 DATA SET INTERFACE 1744/274 DIGIGRAPHIC CONSOLE @PG 1536 LOW LEVEL ANALOG INPUT 1501 HIGH LEVEL ANALOG INPUT@Pr 1536 REMOTE LOW LEVEL ANALOG INPUT 1544 DIGITAL INPUT UNIT @P 1553 DIGITAL OUTPUT UNIT 1555 RELAY OUTPUT UNIT @P 1566 DIGITAL-TO-ANALOG CONVERTER 1547 EVENTS COUNTER @P 1595 SERIAL I/O 1732-3/616-72 MAG TA@PPE 1732-3/616-92 MAG TAPE 1743-2 ASYN COMM C@PIONTR 1745/211 CRT 1725-1 CARD PUNC@PtH 1720-1 PAPER TAPE READER 1720-1 PAPER T@PAPE PUNCH MAGNETIC TAPE SIMULATOR 1732-3 LONG @PRECORD MAG TAPE 7TRK 1810-1 LIAT CRT/PRINTER 1829-30/60@P CARD READER 1827-30/60 LINE PRINTER 1860-72 @P LCTT 7TK MAG TAPE 1860-92 LCTT 9TK MAG TAPE  1832-5@PK CASSETTE MAG TAPE 1833-5 FLOPPY DISK  1833@Pv-1 STORAGE MODULE DRIVE 25MB 1833-1 STORAGE MODULE DRIVE 50MB  D1@P8ECM EXTENDED CORE DRIVER PSEUDO DISK DRIVER  @PUNDEFINED DEVICE  3uPMMEF aLOG1A UP P ODBUG1 N07 A MSOS CCS 3.0 SL-149@P#} X /h ;h zh h .h hhhh ' j q@P+ hxHx h{h{|hT )(athdH"_h?Qg"  \6 2n0 "Da @PV hȵQ7$ȯdȫB tj ضDh `P!PLHXREQP PDPCREQ N10 A MSOS CCS 3.0 SL-149@Ph=`h;h: h[DhZ hZ  \/    ' \$EjD HBAB?h;h6=:@P+4h761T!  6 5 hh #" H \ \" "@PV H \ \%  3wPDPCREQDICREQPCOMPV41P PSCNREQ N11 A MSOS CCS 3.0 SL-149@Ph[`hYhXCh> hTDhS  \M    E \BAjK H>AG hDDhA@P+C@>>9h<:#91551  ! hT #h  \ @PV"" CELL CONTENTS PSCNREQPHANDLEpOFF qCHRSFGRP P`SETREQ N12 A MSOS CCS 3.0 SL-149@Ph.`h,h+ h*  \%     \j HAL#1 1@P+"PSETREQP PMBCREQ N13 A MSOS CCS 3.0 SL-149@Phn`hhjhi hh  \c    [ \XWjV HTBSh6Ol \H0@P+*H#D3A4A>1;":38!44'0$..!,l))"($%%3"@PV"hl h h#1 1PMBCREQJ  3xP PSCHREQ N14 A MSOS CCS 3.0 SL-149@Ph\`hZhY)h hW  \P    H \EFjE HCADXdMTA@P+d/"T   X4aOK hhhhQhh@PVT"R FIRST WORD DATA ( ) CONFIRM  DB REQ@PUEST ABORT h H X  hX Hh q  : j H I `P@Pf" f"PSCHREQP P`SPEREQ N15 A MSOS CCS 3.0 SL-149@Ph>`h<h;  \7    /   u \$hDh ;@P+3hh  h \PSPEREQP P`CPPREQ N16 A MSOS CCS 3.0 SL-149@Ph,`h*h) h(  \#     \j HA"# 1@P+"PCPPREQP u  3y P`SPPREQ N17 A MSOS CCS 3.0 SL-149@Ph,`h*h) h(  \#     \j HA"# 1@P+"PSPPREQP P`ADHREQ N18 A MSOS CCS 3.0 SL-149@Ph(`h&h% h h"  \     \ h  H A \"@P+PADHREQP P`SBHREQ N19 A MSOS CCS 3.0 SL-149@Ph(`h&h% h$  \     \j HA h \"@P+PSBHREQP PALCREQ N20 A MSOS CCS 3.0 SL-149@PhO`hMhLDh? hH  \C    ; \87j6 H4B 1! ̸)@P+h'hTb H \( \ T"@PV CORE ALLOCATED FROM TO PALCREQ  3zP P`RELREQ N21 A MSOS CCS 3.0 SL-149@Ph`hh  \ \ 6hT  PRELREQP P DACREQ N22 A MSOS CCS 3.0 SL-149@Ph|"hzvhgh* `hqBjt " jm i4,"`]! j_ j^ @P+HUT BHMHJKIhK \@DC@Em A :j}  *jz H4 0js.@PV--h(- \!%$"je  hhT] Dh "@Pj`P@P ALLOCATABLE CORE MAP PDACREQPLEND LVLSTR P P PTHREQ N23 A MSOS CCS 3.0 SL-149@Ph|`hzhyeh?hn@ht ht  \m    e \bcj_ H`A[[`  @P+"`jV"jUjT$`   4 jG H@T b h7Dh655h13 \(@PV-,* )jS'%#X " X8j? HT;@PY LOC. WD1 8q  3{"@PWD2 PPTHREQP P`MTRREQ N24 A MSOS CCS 3.0 SL-149@PhN`hLhK  \GX7h 2 A  \=X-119 h62` H 1hTw@P+% 6h!"""     \hP`p@PV 0PMTRREQADFREQBSFREQADRREQBSRREQWEFREQREWREQPOFF >HANDLE?CHRSFG2NUMLU *P PMSDREQ N25 A MSOS CCS 3.0 SL-149@Ph|`hzhy>hWhv1h0h 2/!}T  `lc]" h  \W!,@P+ hh   \HK  hK#0"#h@PV hhhT #a""  j j  @P h  \     \j H B   \   @P  H  a RPMSDREQPCHRSFGfHANDLEmOFF nP P`CLUREQ N26 A MSOS CCS 3.0 SL-149  3|6@Ph;`h9h8  \4 \2.@h*"GKh'  !   1 @P+ / n   n"PCLUREQPNUMLU :LOG1A P P`WCDREQ N27 A MSOS CCS 3.0 SL-149@PhQ`hOhNh:hL \GH  BBBh1H/  \: \8 h"  \. \,!@P+h X h hhTc ""DB`PVPWCDREQRCDREQP P LASREQ N28 A MSOS CCS 3.0 SL-149@Phz`hrhwHt 4ht  \m \k   \a \_h  WahOhVhS@P+Xp PN HC `B :H;QH h8 23S / H*h,QXD'$% @PVX=` ζg"  2 \E  An "@P  \ \j%   qj "U37$2`P(PLASREQLITREQPOFF HANDLEP ؼ  3}J PDASREQ N29 A MSOS CCS 3.0 SL-149@Ph~`hh|~hHtB@4h@hohq hhl  \f    ^ \[\j HX@P+ D!hXWhXR h>h>  nH DLXc"@PVHX^tl8DXY"XUt n. hF L l Hع   ȴ  @PX hT  "U37$2c"Ȃ@P h"  1  :PDASREQPCHRSFGOFF NHANDLEMP P`MLUREQ N30 A MSOS CCS 3.0 SL-149@Ph$`h"h!  \ \h" (EK    n"PMLUREQPNUMLU #LOG1A P PDPTREQ N31 A MSOS CCS 3.0 SL-149@Phl"hjhnghE"RBHaH`HDaHWTjV`jcML JDhG@P+GBhBQ%>A \9n9L \4l4 \0bPTh^/ifH h h)T c"@PV h" hUNh=USh;EDh9 @`P`P  3~^@P PARTITION CORE MAP PT JU PDPTREQPLSTLOCLSTPRTPARTBLBUSY P P`SLDREQ N32 A MSOS CCS 3.0 SL-149@PhI`hGhF1h:  \@ \> h2"< (EK  /,`   h @P+  \  \" 1hT! "PSLDREQUNLREQPNUMLU LLOG1A P P CWAREQ N33 A MSOS CCS 3.0 SL-149@Ph=`h=h9h88hb H5 jvB  H- `B H&"QH hc _  7 @P+8 2 2   QjN H` ?iG  X'h2 X$B81@PVh.,8.H,*H'XNHHhH#XJHAhA XFHChCT.! " @tt@P` SECTOR/WORD ADDRESS = --  -- @P HH 1  : j J ȈPCWAREQP PDMHREQ N34 A MSOS CCS 3.0 SL-149@PhT`hRhQhQh! hL \GI   \@ < \9 `h h>7h 6h T `  3r@P+9c$" h) #$h# \"՘h" h h @PV`P>PDMHREQDMAREQDMIREQP PSMNREQ N35 A MSOS CCS 3.0 SL-149@Phd`hbhahh@]ht \Wh:h9 hWhU  \L \J   K  A@P+Aj; H= A  \- \+h0. h-hl((hjT `b " @PVT9PPh"Oh[ȹXZJȷXWJȵXTJ~XPKT@Pa'""RӘhH!Έh !hȧ `h#آh@P6> CELL CONTENT ( ) hHX H@Ph q  : j H I Ȉf"Ȉb`PTPSMNREQPHANDLEOFF CHRSFGP PSMPREQ N36 A MSOS CCS 3.0 SL-149@PhS`hRhOh3h5 \J1  \F  \A" :   \5 \/ j,@P+   `h 2hT `c"Иh# ""h`PV`  3PSMPREQP PLSPREQ N37 A MSOS CCS 3.0 SL-149@Phj`hhhg  \c \a   \Y \Wh  OahNhMhWX|  \BT@P+TGa"HHH'X h ."V"h HTfT@PV" \$T,j-+j, `6 \ d"n`P `P@P "U37$2PLSPREQPMSG OMMADDRNECONV PP P DSPREQ N38 A MSOS CCS 3.0 SL-149@Pht`hhkhkhhhhf hb  \^    T \RQjNXJ @P+Asq!nohlllhjDh7 #n q^LX""YHXtl"TDX"OX@PVt n hGhIEDhGBTG  1  :a"HHH'X  h @P"V"h HTfT" \T`P @P lش  !خحدȮ ܘ1Ȱ ZhT $a 4h@PX""" "U38%{2{j  3PDSPREQPCHRSFGHANDLEOFF MSG MMADDRECONV P PDMSREQ N39 A MSOS CCS 3.0 SL-149@Phw`hhnhnhkhhh6 \b2  \^ \\ UhQ$h#h (hhT@P+ bDh> ` c  X,aX)AaX%h$@PV /A aA hh_h] HTG+ HH 1 @P : j J Ȉa"HHH'X h "V"h HT@PfT" \T @P׊lؙ  !ؓؒؔD HBȐ  0 h-4Q+oȩ ahT $a@P$ h hvwhmh hphpht  \h  e   \ \WW@P+jYXxRQ A"KI6hFH3G1?=x3:)՘7d%"2!h.@PV0/e#-2&'`"" "" h H`H_ T >@Pc"CXD2AXA7T,a0`- "U37@P$2 CELL CONTENTS () () h H X @P hX Hh q  : j H I Ȉf"Ȉ @Pf"PCCCREQPCHRSFGHANDLE$OFF %P P CCMREQ N42 A MSOS CCS 3.0 SL-149@Ph``H^4h\hYh8h h~h~h}  \L \JtjuX}oTmll6a h6@P+ 6bbq \.^ `h Wh Vh T `ic"C` "X<  3@PV>" *"%h%h H%h$ \ \ @P\%Z`  "U37$2`P]PCCMREQPCHRSFGHANDLE"OFF #P P CMMREQ N43 A MSOS CCS 3.0 SL-149@Ph?`H= 4h<h8 huh6Xh*hk \-g  \) \'4 Xph"hX @P+\TNhMh OhNhT0z{T 0c" H&[@PV R\ \L \v H ȥ h- `P@P ! 0"h 0"h  \ \ h" (EK  `P0`P0PCMMREQPCHRSFGlHANDLE#OFF $NUMLU LOG1A P PMMMREQ N44 A MSOS CCS 3.0 SL-149@Pho`hHj'%4hhd h{hwXhuh{ \Ywqtjfsjeiho! Hg H#Xnh_@P+hd@` <NKhW"KHhT rR( $hJ HG h@hBhBhJh$ hrBCX\Xy  3@PV h78hg h6+/ #h&.XF$ $5"!  #h "@P`Ww  \ \ hw" (EK  @Ph hHJ#"h!h h h T c" ʵ"ڱjț`@P (ȳ h&UةH h Hh șh Ȕh ȓh T  d@Pl \f cO\"`P-(PMMMREQPCHRSFGHANDLE-OFF .NUMLU LOG1A P PLICREQ N45 A MSOS CCS 3.0 SL-149@Ph}`hhzhyh{ hsho  \p \nhjhe  c  `hZh_hbaXXhVh@P+X R hON, HG `B H>QH h6 51T  0(@PV) H*h+"j%Q# h  \ \j Z @P hh  \ \ j /Ӡ h@PȠ h  "U37$2 h: H7  \32@Phh+0hh)X hT(c"HȔ2 \""T @Pdq` g" g`P-PLHCREQLACREQLICREQP DM  3 PLIOREQ N46 A MSOS CCS 3.0 SL-149@Ph`hhh~ hyh  \w \u sX  \m \k   \d \b  hY@P+h^ahWhUhZ Q A HIM- HE `B H<QH h9 @PV34T /(, H(h*!j#Q!V  \ \j H @P hh  \ \ jm ژ@PԠ hȠ h  \?>hh+=hH;TG  1  :b#@PHHH*X h "V"h HTiT" \T@P Ȋlج  !ئإاȦ @P͘1Ȩ bhT $aȷ4hL" "U38%@P|2PDDPREQPCHRSFGOFF #HANDLE"DCONV MSG MMADDRP P LDPREQ N49 A MSOS CCS 3.0 SL-149@PhY`hWhV  \R \P   \H \Fh@`  jA=j@`1 \2 c"*n@P "U37$2`PPLDPREQPMSG PMMADDRODCONV QP PLDOREQ N50 A MSOS CCS 3.0 SL-149*m  3@Phy`hhhh  h hh \w(  \r \p" kX  \g @P+\e   \^ \\hhY Q \O ahZ \E|TGa!@PVHHH'X h 5h@11-"/V"h HTgT" \LT"@PYj\Xj[WjZ`7h hh hTaH @P\1 T .I ` g" "`P`P@P h HH`0#  "h hhy hPLDOREQLDMREQPMSG MMADDRDCONV P PDMDREQ N51 A MSOS CCS 3.0 SL-149@Phz`hhqhqhnhhh6 \e2  \a \_ XhT$h#h hhT@P+ bDhA ` c  X/aX,AaX(h'@PV /A" aA hhbh`h^ HTG+ HH @P 1  : j J a"HHH'X h "V"h H@PTfT" \T`P@P lؑ  !؋؊؉؋Ȋ K HI $ h!3Bdȡ ihT $a@P  h=h]/ h,U"Q""hC   3&@P5#PDMDREQPHANDLE.OFF /CHRSFG MSG MMADDRDCONV P P WDKREQ N52 A MSOS CCS 3.0 SL-149@Pha`h_h^h^hO hY  \T \R  \N \L \HJ ChXX@P+5sd44b4#*@h]iJӘ4  `h hh h T @PV`6n"WȨ1" `lؗț!@P"h`P>@P "U37$2PWDKREQRDKREQP PLSTREQ N53 A MSOS CCS 3.0 SL-149@Phi`hh>"V"h HT  `oa. >)h% `%h$$Y h h d@P+!@hP#9"65 T  c"ɘ""@PVh ohȹ "صhH >hh ` i h h`Pp@P@P/  3:PLSTREQPLDMREQLSMREQLAMREQLDOREQLSOREQLAOREQLIOREQLACREQLICREQSLDREQUNLREQSMNREQCMMREQ+CCMREQ*PCWAREQ0DMDREQ DMSREQ DMAREQ DMIREQ DMHREQMMMREQ(CCCREQ)SMPREQRDKREQWDKREQDDPREQLDPREQDSPREQPLSPREQDPTREQ&MLUREQ.DASREQLASREQRCDREQWCDREQLIMREQLITREQCLUREQ2MSDREQ DICREQLHMREQLHOREQPLHCREQREWREQWEFREQBSRREQADRREQBSFREQADFREQPTHREQ$DACREQ%RELREQ#ALCREQ"SBHREQ-ADHREQ,SPPREQ PCPPREQSPEREQSCHREQ!MBCREQ'SETREQSCNREQDPCREQLHXREQNAMEMSCHRSFGNMMADDROFF MSG P P PRINT N54 A MSOS CCS 3.0 SL-149@Ph"`a!3h2h  AhTh ""RHh)@P+j)` s"j"hAGNV[ g rs ~  DEBU@PVG IN DEBUG OUT DB I/O ERROR NEXT DB FORMAT INCORRECT DB INVALID REQ@PUEST DB SEARCH FINISHED DB NO CORE AVAILABLE DB ILLEGAL LU DB ILLEGAL M@PM ADD. DB ORDINAL OVER MAX. DB ORDINAL LENGTH ZERO PPRINT PERROR MSG !P PGETFLD N55 A MSOS CCS 3.0 SL-149@Phq`h!Hn00 c A ,a  a  h] hY `h\EBX QH @P+hJ  GHDC?>hB9`@a =a A H531$0h.!3 `h0E h@@PV HU c  c H h A A,/0g  3NPGETFLDP P`ASHX N56 A MSOS CCS 3.0 SL-149@P`h.BLH,H,QH =" ,tlM  !" 1 E BH @P+ HPASCHEXP PDMPBUF N57 A MSOS CCS 3.0 SL-149@PH@hw`hFB 0'h?#=pMSG ?CHRSFG6P P`ASCDEC N58 A MSOS CCS 3.0 SL-149@P`Dh8h6  j ! Ƞ j! w `   hD "D 1@P+ ) h ad'd PASCDECP P`HXAS N59 A MSOS CCS 3.0 SL-149  3b@P H!hDh HBh ! ASht f C HPHEXASCP PDECDMP N60 A MSOS CCS 3.0 SL-149@P h@`h7h: h7 h72h- s h7H7B@5m&0X5.. h+h@P+""X hT c"̹ lض +- h%dh@PVmB0F 0MB0F 0ȽmB0F 0MB0F 0ȽmB0F 0mPDECDMPPOFF .MSG /CHRSFG&P P FETMM N61 A MSOS CCS 3.0 . SL-149@P Hgh+`h+h'h&h[ R H ` hhhhB H QH h 0`P+@P, &    7 8 2 2    h'(ۈh 1@PWb Hj( H !ȿ`A Ȼa ȵa FhD 8AHh  "@P hH h()" Hh"(Hh" Lغ@PlJ H n  D""hhh `hPFETMM PLOG1A vP  3v PPNTMD N62 A MSOS CCS 3.0 SL-149@P hZ`HYXhLQ@ Q `HN"J IXQHixFXMIvivBAXHh@; B / Ij6@P+ Ifif, +" Ɉh&""X'IWiW B QhHT@PVq"6 @ @ HH 1  : j J @PȈ MASS MEMORY DATA / ( ) / ( ) PPNTMD P P MASOT N63 A MSOS CCS 3.0 SL-149@P HShS`hWhS"""hAh@h?"h=ވh70hy h3@P+x ` c   X)aX&AaX"h! /A aA ` gl-@PV HH 1  : j J Ȉ"@P۠#  AaA hȘX hT 'ȯ`b " @P]ȬȧhsHXAaH) H(@"%d9$Hi  ` +A @P׈ 0a  'd 00PMASOT PHANDLEOFF CHRSFGP P CONFM N64 A MSOS CCS 3.0 SL-149@P `hhhT hV  hN hJLuhf hHhqHqho hbllXP h~h@P+Yb` hs hohsMRhqXHghgEJX{Hghg X]:  3@PV>XT +c'" C  X OK&&X l h HT@Pa  ) 27 NEW OLD  @P VERIFY DB REQUEST ABORTED HFHB 1  :>j7 D: 730.+ @PH+ H)@"&d9%Hi  ` +A Ȉ 0e"  Aa@P'd 00PCONFM P PGETINT N65 A MSOS CCS 3.0 SL-149@P HMhJ"hH`hF hyh{hxhxhshs< g" q4`hp Hm `B HffQH h` @P+`\ { ! 1Mf"2  H " b A @9    @PV..H,)H& n !       @Pn n̿ C Ad n` 1 (܈ h@P f" f" f"PGETINTP P FLCVSG N66 A MSOS CCS 3.0 SL-149@P Hh>`hh h1  h h%/hh% hPXDNEh$W h"OLh'@P+D h%CCXF h HT q}  @PVVERIFY DB REQUEST ABORT  j q $ ̉h؆"h؁TG@Pb6HHVH1X ,h "V"h HT   3@P` ]Ȋ\i # fT"ΫhG ΨhE\B X΢h= Οh;\8 XțX@PYȖ hTȐXL hT a D X9OKts@PX-;"mPFLCVSGPMSG MMADDRECONV P P FLCVDB N67 A MSOS CCS 3.0 SL-149@P Hhd`hth h$  h h/hh hH XF h HT @P+ q} NEW OLD VERIFY DB REQUEST@PV ABORT  j q̗hؔ"h؏TGb6HH\H1X @P ,h "V"h HT  ` aȊ`i  "f@PT"ΰhJ έhH ΪhF\B XΤh= Ρh; Ξh9\5 X XSȕ hT@P $ XF hT a D  mX3OK ) X)k"`PPFLCVDBPMSG MMADDRDCONV P PNAMEMS N68 A MSOS CCS 3.0 SL-149@P ***** DEBUG COMMAND LIST *****  $$$ CORE DATA OPERATION $$$  1 D@P+ATA LOADING LHX -- LOAD HEX CORE LIT -- LOAD CORE INTEGER LAS -- LOAD ASCII TJ  3@PVO CORE LSP -- LOAD CORE SINGLE PRECISION LDP -- LOAD CORE DOUBLE 2 DATA DU@PMPING DPC -- DUMP CORE HEX DIC -- DUMP CORE INTEGER DAS -- DUMP CORE ASCII @P DSP -- DUMP CORE SINGLE DDP -- DUMP CORE DOUBLE $$$ MASS STORAGE OPERATIONS $@P$$ 1 DATA LOADING, MASS MEMORY LHM -- LOAD MM HEX LIM -- LOAD MM INTEGER @P LAM -- LOAD MM ASCII LSM -- LOAD MM SINGLE LDM -- LOAD MM DOUBLE  2 DAT@P-A LOADING, CORE IMAGE  LHC -- LOAD CORE IMAGE HEX  LIC -- LOAD CORE IMAGE INTEGER @PX LAC -- LOAD CORE IMAGE ASCII  3 DATA LOADING, ORDINAL LHO -- LOAD ORDINAL@P HEX LIO -- LOAD ORDINAL INTEGER LAO -- LOAD ORDINAL ASCII LSO -- LOAD ORDINAL S@PINGLE  LDO -- LOAD ORDINAL DOUBLE  4 DATA DUMPING, MASS MEMORY DMH -- DUMP@P MM HEX DMI -- DUMP MM INTEGER DMA -- DUMP MM ASCII DMS -- DUMP MM SINGLE D@PMD -- DUMP MM DOUBLE MSD -- MASS MEMORY DUMP BY SECTOR 5 MASS STORAGE READ/W@P/RITE RDC -- READ DISK TO CORE RDK -- READ DISK WCD -- WRITE CORE TO DISK WDK@PZ -- WRITE DISK $$$ AUXILIARY OPERATIONS $$$  1 MAGNETIC TAPE STATEMENTS @P ADF -- ADVANCE FILE BSF -- BACKSPACE FILE ADR -- ADVANCE RECORD BSR -- BACKSP@PACE RECORD WEF -- WRITE EOF  REW -- REWIND UNL -- UNLOAD SLD -- SELECT DENSITY@P 2 CORE  SCN -- SEARCH CORE FOR PATTERN SMN -- SEARCH MM PATTERN  SET -@P- SET PATTERN IN CORE SMP -- SET MM PATTERN SPE -- SEARCH PARITY CPP -- CLEAR @P1PROTECT BITS SPP -- SET PROTECT BITS SCH -- SCHEDULE PROGRAM ALC -- ALLOCATE COR@P\E REL -- RELEASE CORE PTH -- PRINT THREAD DAC -- DUMP ALLOCATE CORE MAP DPT -@P- DUMP PARTITION CORE 3 MOVE DATA MBC -- MOVE BLOCK OF CORE MMM -- MOVE Mr  3@PM TO MM 4 COMPARE DATA  CCC -- COMPARE CORE TO CORE CCM -- COMPARE CORE T@PO MM CMM -- COMPARE MM TO MM 5 OTHER ADH -- ADD HEX NUMBERS  SBH -- SUBT@PRACT HEX NUMBERS MLU -- CHANGE MM LU CLU -- CHANGE LIST UNIT CIU -- CHANGE INPUT@P3 UNIT  CWA -- CONVERT WORD ADDRESS TO SECTOR LST -- LIST COMMANDS OFF -- EXIT@P^ DEBUG DX -- ABNORMAL EXIT AFTER MIPNAMEMSP P DCONV N69 A MSOS CCS 3.0 SL-149@P hTXHdhb`  0c   +aa .a Da aah?h>"h:3G  @P+ -aX[}.-@+.!m h2)h% h$h$ h,X.[!@$"!XF[ @PV @ !@BPXR[@B0FH 0 n @P 0n hXr[@Xh 0 n XXY~ۭ@  -n @PhX[@ȩ6ȯh hhرȭ`  *c  \PDCONV PFIX FLT FLOT AZY2 P PLAZY2 N70 A MSOS CCS 3.0 SL-149@P HY"hS`  jEB  hKhLhGE Ah A hXX_ r@,+22@P+ h0 (+h(& "h # hXX"_S@  h`PV  3@PY  "hWH HH!dh XA[G@ [! HXn@@P  6X~[}@ n n ȿnfR!۠QJ|Ow5M^LLK@JzH@PGN E}CBP@PLAZY2 PFLT >FLOT P PODDFLT N71 A MSOS CCS 3.0 SL-149@P X`A"""a* "a)*$d)RA) R  B H )g*ad@P+aXD X1A"""a**!da)a*) ! A+ )hX)X"2 @PVA)*qd)RA)HX HL@a a`"x`P$PDFIX DFLT /AVOLA aAVOLR pPFLOT JP PODDFTN N72 A MSOS CCS 3.0 SL-149@PXADa a aaDa"a 1 aBa_```_)[@P+`V3B A  aXz aXuaa a ! AAA'dRARA@PVa2H aaaaDaaaa aXX=bbbX@PhXTAAAa *aAAidadada @PaaAa' dXX)#a  3@P! AaA! ! A! ! A! Aa AXa A! !  Xā XA@Pa! AXa""aaA Aa a  A 3A a s@P- Aaa ca 1 mAa$aAaa@PXa"G #a a a aaaa#a"a[X7X|#@Pa 1  #0ad a  ! 1 3d   #2d @PA d ( 2adaa1 aDa1 bAaad A2aF@P ad2aa1 aa1 aDa1 aaaa#aa aa a A'@PRARAda 2H a a a a   ! aa a@P/a a@@ XidadRX_aA a@PZA !d2H a "a  a A a Aahdada@Pdaa a a a1aA aA aA aA a" xa@P`daabAaa ba bA a "H1h #h@P `Aa `Aa a  `Aa a Ma B a#a ADd@Pa a a#a n a)a a#a AaA#a@P12W  3or|AAA AAAaAk@P\dRAada  A AUAaaaPDFLOT PVOLR VOLA P PECONV N73 A MSOS CCS 3.0 SL-149=  3@P hTXHhY`7h86h7  0g"   +aa .a Ea hE"hB4  @P+X[}76@ - n11} /b)% 1bb@ hhhX,[@PV@?XR[@BPX][@B0FH  0n  0n hXk[@PXh 0 nؽȼ XXY~ۭ@ -n hX[@Ⱥ@P"ػȔhȓhȯ`  *c  PECONV P8QFIXLOAT LOT AZY1 P PLAZY1 N74 A MSOS CCS 3.0 SL-149@P H6"h2` h/ h'h'Dh$(JzHGN E}CBP@>fff<;A79hی7@P+6C4k_BP h hXX_ @ h @PVh h hhXCXF_@ h  #@H Hh!d@PhXf[@ȫ Ȩ [1 HX@ Λ 6X[}@ Ȍn Ȋn@PRPLAZY1 PLOAT cLOT P P@ODFLOT N75 A MSOS CCS 3.0 SL-149@PXADa aaDa"a 1 aBa&***&i]+*@P+dB A  aXV aX1XPbbX*HXEa a ! A"dR  3@PVa 2H a a ka Da a a a SAA a *aAed@Pada a"(a" aq2XX#@Pa ! AaA ! A ! X4X2a a3A Aa  @Pa"G y @3a  a 2a  1a  a+ c% b XX9R@P#a aAA \a d a Pd ! 1 d 1  " La1 aD@P-a1  1 aa"dRa -H a a ~a   !@PX a a a a@`@ XdRX @PAa!d׸H a !a A a eda da  a U . @Pa A a A a A  "h s < hAa a h`Aa a B @Pف "  e " a A T x"   A g A Rd@P A RYAa" a PFLOT PBU P PODFXFL N76 A MSOS CCS 3.0 SL-149@P XgAa*a)h X]A"""a* "a)*$d)RA) R  B H@P+ )g*ad X0Aa*h X)A"""a**!da)a* )hX)@PV2 A)*qd)RA) hX ``PPQ8QFIXQ8FX Q8QFLT7Q8FLOT>IFIX FLOAT >DBU h:  3*PLOT SP P`TDFUNC O67 A MSOS CCS 3.0 SL-149@Ph. #  2  z)x |   lnk 3 lgoe@P+mXljaX|lb`Xyl`T DT DbXLHXlFB0%Hy@PV|Xy"01"2L-Xsl(kX|i"!,_02WAvY29 pS@P!N"08#a>da+a:31R5l"X8l2XA0X3h0 9E@PB0F 0 04#X1!X#h! 15 dll <dlDl*T@PhH F4 B u cT DE ;̛hZ ;hV 8hT@P ̓HPhP̎XhR̉XhṖX :HKhKT D:ENTER DATE/TIME MMDDYYHHMM DATE@P-/TIME ENTRY ERROR JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DECDATE: DD MMM YY @PXTIME: HHMM:SS PADAYTOAMONTOAYERTOTOTMINHORMINSECON MINTO HORTO DAYTO MONTO YERTO P PSYSCOP N77 A MSOS CCS 3.0 SL-149@PX=H4hh`h QhQhH QDhBSYSC@P+OP STARTIMAGE START SECTOR IS hyhX +h h!$`PV @PaTr`I@XH0H2esR4R4!HJB8 H@P"  H T  `!`h /yQzO(Q xT.  3>@P QةsXHX_XH X B b : AHhTSHO"Qm M JC @P  A@h%h! X,hhX 'hhX!h W"< @P HTȤ`T H`P8ZPCOBOPSSYSSEG PSYSCOP PCO1ST N78 A MSOS CCS 3.0 SL-149@PDh_h_h_h_h_ Q  Q  Q *Z  6Q"H ! 1 h@  Qj B@P+ Qh Q > .Q   Q `PV @P``Q h Q eh G Q Q (Q `P5@P`Q hh$:=A h5OKh/QH/h-t A Z"!$H " Q@PHht Q Q QA< C @Q   5Q@P`Q h H]4Qj"QQaQO q Q"qGhC@PAhBhB `Pl@PbhDahCaHBZQ Q 8 hS hNQ  GhFH hE ? H  @PQ# 6 Q h F TQ  H YQ % Q  LL  LQ `P   3R@P`Q hhQh) Qh$ Q 1 nQ 2 Q gCg gQDh<: h7@P Dh3 `P6 @P@Qh Q  *Q  ) 4 Q # #  #QBHE `Pk5@P Q  Q  YQ Z*Z  #  QQ" DhAhAhAhIXGR!h@9 h5X=Q@P87Q!Dh4h4  cY A[SBH h > & H  4 "@P bhLB_^QjHhE]5ZA hWS* T NLh? b G hE"@P! H QA7 iQ:8 N Q "K  a5a6a7  Qh1 @PLSELECT OPTION  A Q I  REGISTE@PwR AAAA QQQQ IIIIFINISH SYSCOP `P@P***LOCORE CONSTANT ERROR INITIALLYBIT TABLE CHECKSUM ERRORADDRESS IN 12 WAS 12@P34 BUT SHOULD BE 1234MAX CORE WAS 1234 WITH 1234 TO 1234 UNPROT (ERROR)MAXSEC W@PAS 12345678 (ERROR)***POSSIBLE LEVEL HANGUPPRI LVL WAS 1234 (ERROR)`PA?@PDUMP 1234 0234 1234 2234 3234 4234 5234 6234 7234 1234 8234 9234 A234@P B234 C234 D234 E234 F234 FINISH SYSCOP ** @P PAREAC ALCLGHTSIPRCLOG1A 6MAXSECALLIN IPROC MONI DISPXXSABS LUABS VOLA VOLR  REQXT  -  3fPMASKT  COMPRQFNR COBOP =P PCO2ND N79 A MSOS CCS 3.0 SL-149@P`Q hh5h9 <4 Q"j> r H7 q  Q QQA,  (Q@P+6  u0#h.Q QT Q Q  8Q `PV`P]@P``6 <4Q"j2 r Q** S0@aPP qQQaZA[@# Q@P aL  2 AL  LQ `P @P`Q hh* <4 Q"j7 r Q / ,c@ sHA( ' (Q@P  Qh2Dh/ *3#h' rH`P @P bDh^\ hY DhUhVhV  QPP"a4BH QAT Q  PQ@PK Q6,#U(' g#E"c1 &3B Q ((  (Q 9 Q@Pv  UQ`Q hh 4Qjr C4 Q@Ph"#ISX b  3UNX q% H#s hH # @PQ QQA*  3Q a8  &Q`Dh]h]h_ X$Q h&& h$X';h&( @Pb   h QBD 8 LQ   DQ  4Qj r `P"O  3z`P=@P@Qh=;Q -B0C2 4. Ph-*B) h'QAj%"!!" H QHB@Pkc1 q&/&  &QBH( H% `P @P`Q hhh 5QQ QŠBĀ h&."S h Q B @P Q Q:a.H FWRa4ITa5 ,Q_UU`P @P`Q hh h0h1QhW8Q P3;0h/Xh++X(F c t Q Q@P+QABQAL  ?QQ QƠBĀh_UDh @PVh Dh ` Q h h hhh!h,h=QTQOXCL QA;  *Q @PQ" Q QD X* <B;h @P+ Q Q Q*$QA5%QAG # $Q `PV @P`b HQ QXA Q W TQ   SQM@Q  X)6 Q W %Q @P  Q%h%Q h Q V :Q 3!3  3Qhh h 4Qj r@P Q  $Q h_ hZQ  ShRT hQ  Q hD Q@PhDhAQ h Q h7Q h4 `P @P _h 4Qj q AL L4Q  q QXXA? H? Q<@PK p0Qa?A@  BQ   >Q 6 3$h":ȼh  QQh @PvȨh Qe\h\ AY qYRQFhLb1)Gc ?$ z w @P t q  Q86 Q-B0 h' \ (Q   $Q h!! @Pc@ Q h>^;Q 1X5Q Dh4Q. _  3@Ph, Q Q'>$ h"A!Dh<hj Q q _nB @6X9 6 A ! 1 OU T @PiT , A  A " ! A))Р aQa*X@P Q  L )"@ a 5 A" @Pa a  :a 6a) > , a("H a  XN)u""@P  X HX X  X7  X3& Xo HG Xi HA H> H; Xe@P XZ H2 H. H+  X aB) 1)  4 3 ! @P@" BA+rX6,A2H%,"Ƞ a , 7 7 2 42 0 @Pk 2D/1a #"f"  Da a a a a a6X@P a    7 X @Daa- a  a = w @PA !/   a#){ Ƞ P  @P   2aX a#-a  Fa 7 ) a   @P 6XdXj +-ja A"v13rK a@PB) 1+(    Ƞ  ! L  C     @PmB21H+ +~*D 7u2 XV,RE@PJ EXCEEDED MAX LIMIT NNNNN XA) 2 1 )  F  @P%+%#4a% !9)  +a'Daaa"a#a$a%a4a& aa a6h X@P"   a!DXhX7X X/a"aDa"#!a$+XX"BG  3@P!0`A *!mXDa#a$X) +/4%X c5+ @PDUU7f"X/a a!X XZhXG,Da"!a$Xb+XXXn( +/4@Po%X8+ +4 %X&5X3IX+XX*@PX&b" ,/a a"hT\`!@PUTnp RX:EOF ON INPUT LU NNNN  PP)   2 D/aX@P Xh a!X12!7f"!#a$+XXX*X ) 7   @P  + + ԑ4ܑ%)X,o|1 zw "ta!!7f"@PF!a$+XXXXp XPDhh)u""C/2 H v@PqN I G E A  a'Da%a&ah   h X., T\@P` a$.$,"X Sh&KIh$PDh"  RhECh@PS  FhILhE h!^XUNIT AAAAA BBBB NNNN Da%a&   h@Ph XΠ-T\` a$&$-X5 BhAChKDh@P   'h D̸ hhT\2!l(Xta  @PH A a+_Da%a&a4a57h ah THc`":`BAa$UT(@Ps5WDa5X&XE 5h$ !/Aha!TH `@P, X(`X(5Da5Xs hC6hC+!h>h h:B8A @PɁa XXY Ȼa  a'' hȭ #h C'Q h  @Pa XhT !`   Ch' l! @P#hh` a5+6hu K `7"a$UT  UDa@PJ:5(Xr{X a5+.$UT XN&%+) q) a  3@Pu " 0K X +X_D%XZ0NUMBER OF FILES COPIED N@PNNNN NBR RECS COPIED NN*32768+NNNNN  XTHa@@P cX+!h a! a!$ A#!/A8h Xhh^XDhapXf @P+5s)  w3 Xv% a%X XCHECKED RECORDS NN*32768+NNNNN @P! k 1h X-T\;`!/aXZ@PL XRMODE DIFFERENT ON MAG TAPE 3!! Ϟ2 X{ q+/@Pw4%X&+5B8A aMISMATCH RECORD NN*32768+NNNNN h @Pth h hT`!1 "a!hTF@@P &ɱ$h #6h h TL`"-Da#B8A a@P7f"7 X7h h TL ``#"$2a$D@P #aa!hh X~A>hT = `!% $.&@P N&%a!$, "QŠ    ?; 9' 3@P yHX @b b X 0' 0lp0 0hp0d 0 h p0 0t 0@P Dn qa $5)  PP,F-.A-1  8 $%&*XH3b@P Ȩb b *14X#b bb b b 0b X/NNb*3b 27b 68@P %b +Nb hHTL 7!`hahT\ J `"@P POPhMa5 TL b cUNIT1 = UNIT2, READY FOR UNIT2 - TL |  @P {TH a@COPY COMPLETED, C/R WHEN READY FOR NEXT COPY. PIOUPV4  3.PMAXSECLOG1A PIOUPV4 PCYFT N84 A MSOS CCS 3.0 SL-149@P X NhDNAhQM hSAMhUX+֐  Ϡ fǐM @P+h h4 h h0 hh,dXXXXXX DCK/ I,C  @PV XXXXXX HOL/  @P @b`hhZhhThh X.X"XX6 TH@P(T %#X0T  TL(T  TL(dT  TL( Z=h<;h6757735jA H1 @ Zh-' $h+0Fh* & !@PVGHh h>!#&&@Phh h Hc H^"W hԘ h Ei{@P j8ȼ hȿhTL Fhȯh `@Phhȝ hm h jB  j{B hhhhh @PhihPOPSORTBGNRD PBGNRD PDSKTAP N90 A MSOS CCS 3.0 SL-149@PX XXXHh iXf %XXV X "u@P+ SAVELOAD h@ X X/ X@XhX h@@PVX2X&X 9`"X 2 2esR4R4! `hh @P X X X $XGX XH @P  d @HX X d X1X hXX   q@P`  XQ(~p0`H X H0h/XH/h. 5X d@P X1XHAh@n X X~f XXQ XXK hjXXT  3@P-e`  XQ ) SXXH!h 5 X% X7C@PXXIH"h!& XQXYHh Xa f q@P Q]lwh !j SCRATCH SECTOR IN $C1 IS -- TYPE LOA@PD FOR TAPE-TO-DISK, SAVE FOR DISK-TO-TAPE OR A CARRIAGE RETURNOUTPUT TAPE ON UNIT @P0. HOW MANY SECTORS? TYPE V FOR VERIFY, A FOR AUTOLOAD. OR A CARRIAGE RETURN TO@P RESTARTVERIFY TAPE ON UNIT 0. READY? SECTOR WORD -- -- DOES NOT COMPA@P2RE. TYPE C TO CONTINUE. OR A CARRIAGE RETURN TO ABORT. XXXX SECTORS VERIFIED, @P]INPUT TAPE ON UNIT 0. READY?XXXX SECTORS LOADED DISK ERROR ( ) TAPE ERROR ( @P) PDSKTAPFST |PGREADTGDRIVDRIVECDRIVEnQCODECODHXMNCDHXfPDSKTAP P~DSKEQC N91 A MSOS CCS 3.0 SL-149@P XX h  y0j/ +1) X' X" X XXhh@P+X&hh X"I\AEp4 DIG. EQ. CODE FOR .. @PVMAG. TAPE 4 DIG. EQ. CODE FOR .. MASS MEMORY ILLEGAL PARAMETERS SPECIFIEDPEQCODEPCODHX/DRIVE9ENFC 2WES1 +WES )P PDSKDHX O68 A MSOS CCS 3.0 SL-149xx  3@PH)h*H'h( H'H'!H!  h 2 q 4h !@P1 H  H $Ⱥ0123456789ABCDEFH(h)H&h'@P\ H&H& H!h  (h !"h r  !@P3h4**"00hh 8H 8 H 8r' PDCODHXENCDHX1DCODECVENCDECP PILOAD O18 A MSOS CCS 3.0 SL-149`P@P ae  !14;_ hXX 9X 1; PN @P, aB0`A h/h5H  3;9BKA 6 (@PWEhBK R A h1!W AX1$ @PI aX$ {A{CShbX _2XZ!$%@PX1N JHQZ3hB4hA Xh9h9h9XN 4Q61N 1A H@PHAHHAAlXV# 0hDShX 2X{A{a@PAN lX,# {A{X? 5; /àcB aaaaaaN 9@P. Q^ 2esR4R4! a  aa9aa dhhXn@PY a%nlhHXla.XG  @P  QRh CAX}X1uXa? 5; 7;X@P!\Xa a?  ah* (H& A aW@PAAV A a R 41Da a 9;  a   3@P QRa qr315;qf"q>a aX%Q(uQb 8Q6X{X@P0 PH aX>a aXXo   4a ?=a A@P[17Q6Qbda a a!a"a? aX1Q a1 aQ(a #13; h X@Pv va|1 A A|Xbѐ|"a !Q(a # a@PaQhBh| X|!h="CAaApqd4", gXz@Pa WFC 9Q6Xg xWA" BthXdh WQAa X5AN ILLEG@PAL MULTILEVEL INDIRECT IS IN THE EXTERNAL STRING FOR WHICH STARTS AT LOCAT@P2ION hhhQZ3h4h 4Xk,ka+,A.XN  !eta+A.@P]Xsa+A.X X'+ a+.R2 q a' a- AXaXAaA--@PAX X aUva| a|X|  XaU , v2 6;,h a,X@P h a/"X16; X X X hX X hX@PX * * * U N P A T C H E D E X T E R N A L S * * * Xva@P  XI2X4 a2X LOADER ERROR h XG5 a{XDH @P4HQZ3b4b #X] X h XAj  4 XB@P_XDUPLICATE ENTRY POINT "Ahhh X]aX A3X 3A3XA4X4A4Y@P B q  : AGAIAAAAaHXH   a aI a2  J aG@P  J aGXH1XZ1J a aXaXtJXJ!JXwaI   A a@P a XFXYX!X]h "IİS !IaIIG$R AIaGJH t @P dH   a qH 6 "H "  1H AH1A @P6! b  !aHH  A  HvB HrH Hn:  3@Pa Hghh HcwN ^h[ZB1zHYTthWWZ4AHSRAuwhPHQHOhMF#@PE2hB?/8N %c!h1H52h0uu0,z2H((h! `b@P bn8"n5An H amXRRX@P@n;(J3;N 12;A2 2;  bDbhb5n2%ABau@P  0au C uauuuj ȫX X@(} 5 A(@P8hz`ȕ RAuwhH XRX&(@ uuxzx2aA@PcKW " 9; QB4QVRAcRBd4B4adAaQPSIGNCK9ILOAD WRTOUT@LENSDTDISKWRYFNDSEC/PRNT3 PRNT4 8PRNT5 _ADJOV1aCNVERT}LINK11ENTSTRFLGADRPISCAN SCHTBLIRWFLAGPGEFLGSA SQ VALUE WORD PAGENOPARSTR8LSTPGEMINREFMAXREFMINBASPADPAGEMINFLGNXTBLKDATBS0DATLM0DATBS1DATLM1STOP ,PM65 7TYPE UACKGR`azEa`ac aB@P0caaX #11;!2a a" audaub bbu2Dhhh@Phhhhhhhhhhhfapaq`arEd `avaa}E@P `a/ a aB 0a X ` awafaawB0caaPNUMSECCONENTCONMS1CONMS  CONMASWRDADRSTRTBL5ISAV "PMAXSECINFLGDPAGEINBASAXREFINREFSTPGEAGENOORD ALUE Q A GEFLGWFLAGPENSDT RTOUT SCAN PCHTBL-INK11mLGADRSSECTRNT5 gRNT4 cNVERT_DJOV1WXTBLKCTOP @RNT3 ;P PI1 O20 A MSOS CCS 3.0 SL-149@P HXZOaN  BX E A aPDhhYhh`@P+`aP$daPNaBH@OAH `є N4a aD@PVQK fX7XlQ QbX{" VX_R Q QPTDBHQ HMDhJ@Pa#a$a%DQK 7 1XQ" ,X6 AdaQ(2  ON%*$hua N@P`a{nIbj aXBH a>BHHяXHd    @P  4 BA4"2  4d xI  " IhX #`P@P XPI1 OETERMFATE PSTARTCOM SAV *NTSTRYPEQ Bg  3 P PMDRIV O22 A MSOS CCS 3.0 SL-149@PHXPMDRIV PROCESSAVEQU P PtIDRIV O23 A MSOS CCS 3.0 SL-149@PHVXHRhNhNTFH JO D`@@XXIh8XFh @@P+QZ3h 4h XL, FAILED () ACTION X XD BX ޘ @PVDRPCU B0 400PI2MZV4IDRIV QSAVEQZPROCES SIB MASS COLU TABLE bMESG @PSAV )ELOUTICOM NPRINTiTYOUThMASS fMTAPEeCARD dPTAPEcN P PVERFY1 O24 A MSOS CCS 3.0 SL-149@P6hNPb bb b ?/dd `" G" HhX0hTBD@P+lG"s XvTh/hX" !Xz   { XZ@PVVERIFYvh XM`dbh` LbW q b q bG q@P X)` `` ``aa a ȾB0F00`Ц?dTRVA"@P h hT D  T D(`P  3@P@T L # f"ATTT &"&0aA PGb b  hH@P T h T``LRWX*Z0J T  @PKMSOS VERIFICATION TESTS COMPLETE. TEST MATERIALS NOT LOADED MSOS 5 VERIFICATION TESTS-@Pv-PSR LEVEL 1XX ERROR MODE SELECTED PVERFY1PINPTV4INSTLUj qh" hh TF@P T\0 0F 0 04 T\ dbb"` hB@PhBXX ( 2//h/ h, > , h'$ F$h!h X4?  32@P 6(` 2 aaضص@P1/Q/h:h:.h TL$+OHXhhTL6 9 ` ****@P)X6h3 h,X?Xh"TLTH@PX!   REWIND LU 004HH}zhv@P h+h&X'XHXH 0F 0HhheX 0F 0H 0F 0**@P,HH-5'h"O E $n Q h1h.b$% b%@PWTL_(# h  0X"X"X  hX _X; ^X9 @PHN hN DC ! _X#= X 9 % h3 X _X- 1  &X . @P h#(X h"Hcll-h TL s sUU s@P _X _X" X h %L TL shh@P h  hTH|(jh 'n q hhyh{{vthv@P.qhuTH8kkHirfH eW ha  _hZȉ hTȄNHLd@PY lGE lCBuhB  _ 2< 81  .H-%,!)h(qhȐ1@P`b) "$ g" g"aXQ d UUUUUUhXS@PXV:Xmhghh|h ?X8T`DTH(@PRrIhCXXXX>X X hJX^XX h@P<X6 X /حX X X0i-f*c @P0[hZhYhSQOX` X"H0@P[hQ hMKhIhhhhhhhTL@P(u#  3Z@P 3&D h?!9 h XTL S(R zh@P ^i (hsXX ChFXEXtTL (@P i - j Q  hTL (Lh.hXEX)ȧ@P  hh*COPIED*X hh^ hhhTh)/h/h@P M h`h\hh8h5hhhhhhh^XZX (  @P   pho lm 2 1( hd Fla@P !o/hkV/hR"Y/"HU ZGWM UX=EXXXR@P LXXdX hh`"aaaȹ XشX2X} X*X^X@P wXY@P ~ @P R@P I@P h`Hh`HhH| XtXnX@P  hXtXXXohXX^XXeXXXXSXXZXȨ! ȣ@P 阙XXȚ1 Xȋ1X}XȌhȋhXXXpXX؃XX@P %X hzXX}XX uhSh hn@"XX@P ?XXRh0h hKaa"aaa9'?S\X"5hh@P j h.aa, X,hGX@$X aaaX!8XShTL  @P XX@P  IRH H%u bbhTL (d bԀ  3n@P bTL + **Rhheh ?X!T`DTH  (R@P hTH ( I1 p`bg "$Ƞ g"Ⱦ g"ahhXr@P ahTH ((RTL 2(RXhHXbbX| @P H PCOSY PCOSY PuEESORT O28 A MSOS CCS 3.0 SL-149@PENTER LIST FOR LIST ONLY, SORT FOR LIST AND SORTTLTH/@P+"LISOh]Dhh hht hhX LISTING OF P@PVROGRAM NAMES, ENTRY POINTS AND EXTERNALS XD j ATH<@P""  @H L    Dh~h~ {O@P X& Xo X XX@a:XX(h0X&h/X$h. *H)&@P+ ! !H " q4lHhd$d h c"ΠPNEXTCHSTORCHPEND0V4BP PPICKUP O33 A MSOS CCS 3.0 SL-149@PHq``Hs"ܠPQ8PREPQ8PKUP P P$IOSUB O34 A MSOS CCS 3.0 SL-149@PhHLhH"h h "hTPRIOSUBWIOSUBP PHELPER O35 A MSOS CCS 3.0 SL-149@PTT  d T d T d T   3@P +d T' d T d  T5TTTTTT@PVTTX@d LIBRARY BUILD COMPLETE TYPE *Z TO TERMINATE OR  TYPE *@PC TO CONTINUE WITH CURRENT SKELETON AND/OR OUTPUT LIBRARY LU'S =XXb@P NAM RECORD NOT 1ST RECORD OF DECK. XXb XFR RECORD MISSING FOR L@PAST PGM LISTED. PGM DELETED. XEXXATOO MANY BINARY DECKS LOAD@PED. CHANGE LIMIT AND RECOMPILE.XX0X FATAL PROGRAM ERROR. RUN K@P-ILLED. XXF` X XGGaX^bH ILLEGAL RECORD SIZE (.GT.96). RE@PXCORD DELETED  TYPE 1, CR TO TERMINATE EXECUTION TYPE 2, CR TO PROCEED TO SUB@PSEQUENT LIBRARY OR SKELETON TYPE 3, CR TO CONTINUE ON WITH CURRENT LIBRARY.  HH@PXh"XhX""h HLhT`tHlXhXd@PhX@ Hg" H B X""HLTHa!X@P,X5    dq ` Cf*ElNDd (d@P/H TL( H3( T.h hTL @PZhH hhhhh TQ8hHT\ @P HXh X""hTLa HX h X""hTL@PTHaXY X!X \ (d @P d X5 $ ufXIPHELPERKILJOBBINDECINCIDXGETCHR"STOREC)CLEAR 0STODEK>UNICHK7MAKLIBFDEFINEJGETITMNHASH RGETPGMVPGETBINZSTODEFBRESTAR^ERROR2ERROR3ERROR4ERROR5DISKIOMOVE GETRECPRINT 2OUTBINAINIT ^WEF xPCOMMNTGNSCHRNXTREC  3PHELP14HELP13\HELP12XHELP11THELP10PHELP9 LHELP8 HHELP5 DHELP4 @HELP3 d?d d@P]T @d d dAl6 n̟ TBT  !B\ d@P lT d:f $1\ dD lf 1\ŤE@PF H̸GT3;d T9 l# !> 8\dI@PTIJK ld l l\ "l dd\ Mdd T Nd (d@P T^d dO  dl\ \6lܰܯ\IP ̳ld@P!4\QT\̉l\? >R  ddSl=ld \ T@P_dITITKdd\UT\;lTd\\"l\(IV@Pld!TW dl 3Ts. Xd  YdT" T ̞ l   3"@P̘ $< *d9T lUll lEF d: f $1\T@P^dITfIL \Z \Д[k^]P(\ @P  d dT lnܻ $1TzTԔH̥Gk\;d \T l@P6nܚ 1 ̐d d T \  %TTdIT@PaIU \-\ d: f $1\\ Ml\I_ \  l\ P@P*kl\I` l>  da̢T S :l ܩܨ\I@P C  l윩!̦ $< )d9ٔ  ܘX fU YfV , e@Pln l aldI@P@P d TD H" Mddd d:\ H"̺  A l@P En ̥h+b&n 1  ,\ H"  @PI\̩ 8 d T@@PV TYglܑܐTaIc T\ l fܛ $1\ lT :@P 11A $̺ F l l\̰ ! Ad9  yEn ̚@Phbn 11 H7 14 !!̽ dIT[\ Id de@PMn 1 l̝ d dTR\lTbIcTg\ d:(f@P $1\\lܹܸ\Ic\lܮܭ\(Id@PB!@PJ!@PO!  36@P!H?PHELP0 #PHELP14CLEAR PRINT INIT  GETRECSTODEKzBINDECMOVE COMMNTMAKLIB8STODEFtDISKIOGETBINOUTBINPRESTAR1GNSCHRWEF WGETPGMGETCHR{P PSHELP1 O40 F MSOS CCS 3.0 SL-149@P  " 8 %,+ d"h hp8(d 0jp8h h 1@P1 h dT 1  `)T lHPHELP1 OPSTOREC8DISKIOEP PGHELP2 O41 F MSOS CCS 3.0 SL-149@P@P "7 $ Ah d Hll  Ah@P- Όn hĈn@PCHPHELP2 CP P\HELP3 O42 F MSOS CCS 3.0 SL-149@P o  3J@P  " 8 % d" h f (1 3h " h h @P/hј!!  Ř hؿȾ  屮  hشȳ حH@PZPHELP3 XP PHELP4 O43 F MSOS CCS 3.0 SL-149@P@P P*N@P@PP*@P@P@P@P Pں ** ABSOLUTE FILE **  @P!@P@P(48H*** LAST DECK REJECTED - NO XFR RECORD  ) @P@P(46H*** LAST DECK REJECTED - NOT UNIQUE ) @P hh = hh f!؛ `1h hȒ6n؊ȉl8  3^@P h h d!Td  !T 1   d( d@P'T d  dTddd̬ !̨d (" (l l6@PRΑfܬT d̐ fT d l: nl\܎n\̩ @P} l dߜ6!n lT @PH kk nT ldΩn `1̝ll l @PlT d lΰn `1̟d ̜lT)dT TX@Pl@P@PT d d Ad Hd l  3= : d@P, 1"7 $10"7 $+*" 8 % T@PW d 5TH  l&T d̸" 8 % T@PdTT lHPHELP4 PNEXTCHSTORCH CLEAR BINDEC3PRINT INCIDXaGETREC]DISKIODEFINEMOVE ERROR2KILJOBWERROR3lP PHELP5 O44 F MSOS CCS 3.0 SL-149@P*DEF*END@P @P @P*TERt7  3r@P(44H*** INVALID DEFINITION RECORD. IGNORED. ***) @P+@P,(50H*** NO DEFINITIONS WERE SUCCESSFULLY LOADED. M** ) @PH@PI(44H*** TOO MANY DEFINITION SETS. IGNORED. ***) @Pb@Pc(46H*** BAD *DEF RECORD. NO IDENT CHARACTER. ***) @P}"@P~(60H*** BAD *DEF RECORD. IDENT CHAR ALREADY USED. IGNORED. ***) @P dT ?TdT T\ܜ@Pޜ՜ל  \,l\ \\d \ 1 l\@PIl\\\̤̦  d d T P/\clܢܡ\ @P ̶ l\̱ d ( d ?  d T T~dT@PK Ttn fU dT  (fT d  l@P vnl\ܰ (1n\ nT" HyPHELP5 PNXTREC^CLEAR CMOVE KPRINT PGNSCHRINCIDXoDISKIOP P HELP8 O45 F MSOS CCS 3.0 SL-149@P  3@Pں@P * @P *END@P(48H*** CHECKSUM ERROR NOTED IN LAST PROGRAM. *** ) @P, h    TdT h"ȼd T  d ad  d@PWTئ\ d ȡdT hh d d d  !h ( # (d@P d7f\̞ ;T\ ̺ !*$ d@P n $1 d $l\T7d T T<m \@P d  d Tb d d\  l̼n $1ld( $d\@PHPHELP8 PCLEAR PRINT GETITMIGETBINXBINDECOUTBINMOVE P PHELP9 O46 F MSOS CCS 3.0 . SL-149@P  h adT T d h7 f dd d@P/T h yd nlT ff fff Ȭfa\@PZ h hؤξ衞 Eؚ 1 l d  al\̘ \ dT ̝ l4@P ̲nl\ d̟ d n 1nܙΠl\Μ ̍@PnΔdHFPHELP9 #  3PGETBIN ERROR5HASH 0GETITMCUNICHK}P PvHELP10 O47 F MSOS CCS 3.0 SL-149@P@P@P@P  h 3 "T Dh h h : = hhל! @P4( %hh n hh ȸ hT @PUȯh\@P\ȥn nȝ d ( d HPHELP10rPERROR4DISKIOQP PPHELP11 O48 F MSOS CCS 3.0 SL-149@P@P Hh hHhhHhh h  ?j % Zي j @P4j 1hhè d@PLHPHELP11LP D  3 PHELP12 O49 F MSOS CCS 3.0 SL-149@P@P*@P.@P0@P2ں@P6(52H*** PROGRAM SPECIFIED BY THIS RECORD NOT FOUND. ***) @PS@PT(48H*** CHECKSUM ERROR NOTED IN LAST PROGRAM. *** ) @Po@Pp(48H*** PROGRAM HAVING THIS ID INFO NOT FOUND. *** ) @P@P(54H*** MORE THAN ONE PGM HAS THIS NAME (NO ID INFO.) ***) @P d' f &1Td( yd  T6d)T)* T\@P l f $1\Td+d,   @P   d  ad dT  T   d lT @P+' 1 lAd- 1̪  ̧d\ ΟlΡlTpd) T@PV).w l l!\ Ad(yHd/̻ 0ḽ ܬ@P\ d dTddd !d1 (" (l d'7@P f T 32TT   ,TMTd)TU).  3@P\+ \l\ )4\, d@P@PH9PHELP12PHASH CLEAR MOVE PRINT GETITMGETBINERROR5GETCHR&BINDECOUTBINP PbHELP13 O50 F MSOS CCS 3.0 SL-149@P@P   T" l dh B d h \ l ahҘ@P0 "h h; flȼh ̻ ܼ\  l찞 @P[ܪHPHELP13^PDISKIO P PSKED O51 A MSOS CCS 3.0 SL-149@PTZ$SKFILE PSKED PSKED PSKFILE O52 A MSOS CCS 3.0 SL-149@PTZ$SKFILEDhLh hJhXh q XDh h8-  3@P+/h h /h XDh'h h h huh hhhhXX@PVX( T Xu @HHHHXaXh((XC@P HD  "X,vhDغio @P "Ȳ 2ȩ2h1ئ  1 HȖ 30@P"Dj> AX+ LIST BUILD LOAD CATLOGDELETEINSERTDUMP COMANDCHANGEEX@PIT REW ADR BSR ADF BSF WEF UNL B"@P-~m#LM9_0pP` @ XDh   6XTX@PX )X  z  /h Dhh   } eX7w@P h p w h PX"bh ^ ['  Uh T R J1XX@P~h OXtX - ! : 6h`X} 0 EW!B * h +h &  h@P %h XI ( k  k X;XRX5X@ * k  k   @P !X  ( h  h !k XDh G  Z@P/Xx7XMX0 z0h& 2[X/Xh X0X - ` XX@PZ h (k N h k G h X5  h ~h |h wh @PX | w * "h l  h h mh ` hh [XX * Vk   Rk X@P Qh G Lh D ( Jk  Fk X_ =h - :h (XS * -k @P  'k X C  bX,XXq v%hgDh h XX@P:BXa>h B(TXW8h (20. i X  h[ X7 hU@P1 I  D  @   X$X1X0  0 i X  @P\X X  |X uXX}XSDh XB  3@P ( qk %  mk  ik   ek  Dk   hk f# O5 0` Jh@P K Eh H Ch @ @h ; :h 8 3ػ /h 3 ,h 0 ( %k  k@P ,kXD & h :Dh h h h h ` h h h h X@P XX5  Xg( )XXUX8 v/@P3h- XXXXCX X< $ XQX&X @P^ v /hTh XX  ->! ,9!X"X* ,.5XX@PhXO ' Vj q 'j qhX @PL( q ;XS XK  hSDh X@Pߘ  hX}X: /hUn h.   IX@P h<7 h2X  hDhIh@P5XX K\X 2 @P`#h hȽ u h~sDh]pZX@PX*jhda_GXYV"QhPLIA3@PDhHh?(h@P77 X' DhhhhXhXh@Pbh XXhXh(hkX(@PXXQ ,"XX hX()h,X@PߘMJ XӘB?X:8,h0Xh,('X?  3@P#X!"X(X hXo((XX$@P hh/h %hXDH 'jAB DhO@P7/h`hwXp}2D qhDh H@Pb( qh DH!?QH    >h @Ph=DhQX/(0+$ ?"'!h6F1 h@P+B F&h%Dh  h @(j q.B0F0I@P @ȈhȈhyhs`Hh>h<BV@P9   DȘ#h 8Hj1 'j@Pd* #jhXDh)qh25t/h*mh+@Ph.X(D_A 0`F hFhF` @PhT T H r`DH%B h<h9 4k/ h+ @P % kDh(hhhhhH_j q@P D`mH XN jc a Dk q 'kx @P ;qXX ^hxXq %DXH( qhQ@P fh hKDhJhJhFHp 'XE X27 h(,A#,Rh@P &% h" DhhnX hh4 'X DhhR@P H##!hK#D hA>ȸ<k 3/XXX @P hX: j qh #j qL$ ' @P h$ X h HX HADhh (yh Oa  3@P =thhhXXXT X'Xh@P h"8  HrpDKi`P `P q(@P     ) 5G\u*N*K*B*END, 000HL@P POSSIBLE COMMANDS  COMAND@P,LU SET COMMAND INPUT TO LU BUILD,LU READ INSTALL FILE FROM LU, BUILD @PISKELETON FILE LOAD,LU READ SKELETON FILE FROM LU CATLOG,N1,N2  LIST RE@PtCORD N1 THROUGH N2 FROM SKELETON FILE DELETE,N1,N2 DELETE RECORDS N1 THROUGH N2 @P INSERT,N,LU READ RECORDS FROM LU, INSERT AFTER RECORD N DUMP,LU  WRITE@P SKELETON FILE ONTO DEVICE LU CHANGE,ILU1,LU2 CHANGE LU1 TO LU2 ON *K RECORDS REW,@PLU REWIND LU/SK (LU=SK FOR SKELETON) UNL,LU UNLOAD LU ADF,LU,N @P ADVANCE N FILES ON LU BSF,LU,N BACKUP N FILES ON LU ADR,LU,N @PK ADVANCE N RECORDS ON LU/SK BSR,LU,N BACKUP N RECORDS ON LU/SK WEF,LU,N @Pv WRITE N FILE MARKS ON LU EXIT EXIT FROM SKED SKED IN  NEXT @P ANY MORE INPUT. ENTER LU ENTER COMMANDS ON INPUT COMMENT DEVICEINVALID COMMAND ER@PROR IN COMMAND FORMAT LU NOT LEGAL FOR COMMANDS SKELETON NOT LOADED RECORD NUMBER IS@P ZERO INVALID CHARACTER IN NUMBER INVALID RECORD NUMBER RANGE CONTAINS RECORD NUMBER A@P"LREADY DELETEDCOMMAND NAME NOT UNIQUE RECORDS HAVE PREVIOUSLY BEEN DELETEDNO INSERTION@PM RECORDS FOUND AT SPECIFIED LU RECORDS NOT DELETED PLEASE RESEQUENCE SKELETON RESPY  3&@PxONSE MUST BE LU(CR) OR (CR) PSKFILEPLOG1A PSKFILE PUCOMMON O55 A MSOS CCS 3.0 SL-149@PH "D+DDb2bb@ @X "a@@X T@P+Ʒ!" i"*+,$b L d d Ʒ!PALLIN MP12341UPLOWMEPPRO MPFLAG3CPSET *CCP @LOBDTBIUPBDTBNLBPROTKUBPROTPP PlDCORE O57 A MSOS CCS 3.0 SL-149@P@TI"I a a 2HcT1_ 1 Z AbQhh"bNDT w@P+X '2= 9bb @Tx-b!H"Tp Shh@PV\b` 8 X TL a1JlI h  hT@PLX l3:h497TR& h# Lh bf"T@P @ hTTj@PDh T ȺhȹhTHhlh b  @Ph92"#a"1,"+" ">" '@P " "TR"T bTả l̄ @P@hTR$hThh H  Q "5bb  3:@PkPICORE ECORE $T12 STLPV4LOOP SWAPCK-LEND SWAPONOUTPUTSPACE4NOG30AREL SCH DPCCP MPFLAGIDLER PRTCDRAOUTPV4RDPTV4SPCEV4K65T12PTNRELPTNALCSCHERRAREAC  LVLSTRREQALC(PLOG2 XSPASW UNPIO PCORE SWAPARRTNCOR#P PRDISP O58 A MSOS CCS 3.0 SL-149@PBTX A` !1- ".T lH`2@P+ @ ,+*i"D0T @T>h@X8&b@PV@l"1 "+2lDb"2aaaI @P%1C"I 1+a2a RT`Af"@Pbb A ""1bbda"I   b@P""ڠf"I b%"aa+aTb"a"1 @P"2" "f""2f"bbb @T@TFX"@P-"I Db1 +2l*Hd6#0!-@PX &h)'Tah"h ` f q H"c  Bq h@@Pt#b @ b q H f" Bq @@PhTHhPDISPXXSCHTOPRDISP T9 pT18 pT19 PMPFLAG;UPLOWM)MP1234%CPSET CCP KK65CORCKTHRDSAVLU FMASK FLIST SCHLNGoSCHSTKnSCHERRSYFAILP \|  3N PUPROTK O60 A MSOS CCS 3.0 SL-149@Pl#b hHh |hzhh@P+D2h+hQ hxwhuhv @ d d Ʒ@PV!`Z "RHT" HR1 !HMhH T ?\ 8"i@P"f;2"I6h" 3|RM "r "k`` '`'`'8(k'@PkPk#kk h h:h7X1h44l32@P/0`RH2$ l l TbTȹlطȲ@P  H 0` "h T sX~@P-XUX|X  n~XnXj #p" " qa#a @PXcB  a aXD /@P qbD ԠAhST  h@P "!h "11"f"T4D0!4h-Dbbbb S  3b@P @f"bbbb L\4  @P8~ r?s" jX `" H+HPQhT @Pc\ < "H 8 2  Hd4 X  Th@PA h h \ \ d "#!TA@P\  \ Š   8@Paa!  hr  qtT a (\" aAa@Pa8N@XFB$ aAaQ :A+T` v }B8'Q@P: " a " a8Q \ U A AM`@P hbT00 U} H{9b @  g" qm@TE"a@PPSWAPONgKILL PROTEC+LPTRS -LOCF )IP1 1FILE3 %PRORETBTRNVECJBCNFGJKIN 5SWAPCKdTMRTYPGUNPTIMdPUNPIO 9LOADINMPFLAGMAXSEC+MIBUF COMPV4-HA LOG1A LBPROTUBPROTLOBDTBKUPBDTBPCPSET CCP PSYFAILP PDTLP O63 A MSOS CCS 3.0 SL-149@PTZ phbfTL1TURN OFF PROTEC SWITCH,TYPE CARRIAGE RET@P+URN (J20@) THa  q++h(B1$` f" q"g"@PVt "!` g" 4  h"DSKTAP!B@ q  :I@P BBh! hTLDTLP FIRST WORD ADDRESS WILL BE @P "  3vPDTLP PDTLP PSILP O64 A MSOS CCS 3.0 SL-149@PTZ mhEcTL3TURN OFF PROTEC SWITCH AND TYPE CARRIAGE@P+ RETURN (J20@) TH;  q+h)B1 ` f" q g"@PVt "!` g"4  h"SI !B@ q  :I B@PBȈh&Ȉ h#TLTHE INITIALIZER WILL BE MOVED TO LOCATION @P AND EXECUTED PSILP PSILP P1PG2KRD O69 A MSOS CCS 3.0 SL-149@P (&$" (cB aaaXB0A B(aa?*P@P+AGE E *PAGEPPG2KRDPMPRNTP PTSPO70 O70 A MSOS CCS 3.0 SL-149P PTSPO72 O72 A MSOS CCS 3.0 SL-149P f/  3 PFORTR O74 A MSOS CCS 3.0 SL-149@PXX X|HN"hIHG X" XDb XAb X>h; bXGf"@P+&"b"! 6"b!b" 1f""b"b"b@PVhT HUhSXIPr""KH X>""h(" b@PX/H"hH X#"Xh f"! 6"b!b$"A1@Pf" Xb h"PFREAD FWRITETIMER DISPAT LINK P PTSPO75 O75 A MSOS CCS 3.0 SL-149P PTSPO77 O77 A MSOS CCS 3.0 SL-149P PTSPO79 O79 A MSOS CCS 3.0 SL-149P PTSPO81 O81 A MSOS CCS 3.0 SL-149P PTSPO83 O83 A MSOS CCS 3.0 SL-149P PTSPO85 O85 A MSOS CCS 3.0 SL-149P pA  3 PTSPO87 O87 A MSOS CCS 3.0 SL-149P PTSPO89 O89 A MSOS CCS 3.0 SL-149P PNXTLOC NEXT AVAILABLE LOCATION P PLODMIC P01 A MSOS CCS 3.0 SL-149@PXh ` hh h &hTHDH@P+}hvq "hn  gf`c h[ahZX^hXVdUhTQWdhNOdKd@PV&I ChH>cb"43H1A7!11f u ,NȤ`@P dx!SH h hp'h&T DTMICRO-@PMEMORY LOAD ERROR, LOAD NO. 0 DECIMAL ARITHMETIC ERROR 0 H hT D@P d!dTPCNTTBLCNTWARPARTBLMICSB2P *T__mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmf  3mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm5  3mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm5  3mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm5x  3mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm5c  3mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmALYP CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm*N,USERID,,,B 00010 00 00001CCS20 00 00002LA 00 00003 01 NEWS 00004 02 NEWS 00005 03 NEWS 00006 04 NEWS 00007 05 NEWS 00008 06 NEWS 00009 07 NEWS 00010 08 NEWS 00011 09 NEWS 00012 10 NEWS 00013 11 NEWS 00014 12 NEWS 00015 13 NEWS 00016 14 NEWS 00017X  3 15 NEWS 00018 16 NEWS 00019 17 NEWS 00020 18 NEWS 00021 19 NEWS 00022 20 NEWS 00023 21 NEWS 00024 22 NEWS 00025 23 NEWS 00026 24 NEWS 00027 25 NEWS 00028 26 NEWS 00029 27 NEWS 00030 28 NEWS 00031 29 NEWS 00032 30 NEWS 00033 31 NEWS 00034 32 NEWS 00035 33 NEWS 00036 34 NEWS 00037^U  3* 35 NEWS 00038 36 NEWS 00039 37 NEWS 00040 38 NEWS 00041 39 NEWS 00042 40 NEWS 00043 41 NEWS 00044 42 NEWS 00045 43 NEWS 00046 44 NEWS 00047 45 NEWS 00048 46 NEWS 00049 47 NEWS 00050 48 NEWS 00051 49 NEWS 00052 50 NEWS 00053 51 NEWS 00054 52 NEWS 00055 53 NEWS 00056 54 NEWS 00057@  3> 55 NEWS 00058 56 NEWS 00059LA 01 NEWS 00060LA 02 NEWS 00061LA 03 NEWS 00062LA 04 NEWS 00063LA 05 NEWS 00064LA 06 NEWS 00065LA 07 NEWS 00066LA 08 NEWS 00067LA 09 NEWS 00068LA 10 NEWS 00069LA 11 NEWS 00070LA 12 NEWS 00071LA 13 NEWS 00072LA 14 NEWS 00073LA 15 NEWS 00074LA 16 NEWS 00075LA 17 NEWS 00076LA 18 NEWS 00077  3RLA 19 NEWS 00078LA 20 NEWS 00079LA 21 NEWS 00080LA 22 NEWS 00081LA 23 NEWS 00082LA 24 NEWS 00083LA 25 NEWS 00084LA 26 NEWS 00085LA 27 NEWS 00086LA 28 NEWS 00087LA 29 NEWS 00088LA 30 NEWS 00089LA 31 NEWS 00090LA 32 NEWS 00091LA 33 NEWS 00092LA 34 NEWS 00093LA 35 NEWS 00094LA 36 NEWS 00095LA 37 NEWS 00096LA 38 NEWS 00097k~  3fLA 39 NEWS 00098LA 40 NEWS 00099LA 41 NEWS 00100LA 42 NEWS 00101LA 43 NEWS 00102LA 44 NEWS 00103LA 45 NEWS 00104LA 46 NEWS 00105LA 47 NEWS 00106LA 48 NEWS 00107LA 49 NEWS 00108LA 50 NEWS 00109LA 51 NEWS 00110LA 52 NEWS 00111LA 53 NEWS 00112LA 54 NEWS 00113LA 55 NEWS 00114LA 56 NEWS 00115*N,SYMENU,,,B 00030 * SYSTEM MENU X0200001  3z * X0200002MNUPRO SC - SYSTEM CONFIGURATOR X0200003UTIL UT - SYSTEM UTILITIES X0200004EDITOR ED - TEXT EDITOR-USED TO EDIT 80 CHARACTER SEQ OR DIRECT FILESX0200005MNUPRO DC - CCS20 DAILY CYCLE, ON-LINE REPORTING PREPARATION X0200006MNUPRO HS - CCS20 HISTORY SYSTEM PROCEDURES X0200007MNUPRO MT - CCS20 SYSTEM FILE MAINTENANCE ROUTINES X0200008MNUPRO RP - CCS20 ON DEMAND REPORTING X0200009MNUPRO RG - CCS20 REPORT GENERATOR - REPORT DIRECTORY X0200010MNUPRO LD - L/A DAILY CYCLE, ON-LINE REPORTING AND PREPARATION X0200011MNUPRO LH - L/A HISTORY SYSTEM PROCEDURES X0200012MNUPRO LM - L/A SYSTEM FILE MAINTENANCE ROUTINES X0200013MNUPRO LO - L/A ON DEMAND REPORTING X0200014MNUPRO LR - L/A REPORT GENERATOR - REPORT DIRECTORY X0200015MNUPRO EX - EXIT X0200016*N,SCMENU,,,A 00050 * SYSTEM CONFIGURATION MENU 00001 * 00002 * BEFORE MAKING A SELECTION FROM THIS MENU BE SURE THE AUXILIARY 00003 * DISK(S) HAVE BEEN INITIALIZED WITH THE CORRECT VOLUME LABEL 00004  3 * OR LABELS FOR THE SYSTEM WHICH YOU WILL SELECT. ALL DISK 00005 * PACKS SHOULD BE MOUNTED AND READY. 00006 * 00007PRFSC001 A-12000 ACCOUNT CCS SYSTEM (VOLUME CDD01) 00008PRFSC002 B-24000 ACCOUNT CCS SYSTEM (VOLUME CDD01/CDD02) 00009PRFSC003 C-36000 ACCOUNT CCS SYSTEM (VOLUME CDD01/CDD02) 00010PRFSC004 D-78000 ACCOUNT CCS SYSTEM (VOLUME CDD01) 00011PRFSC005 E-12000/9000 ACCOUNT CCS/LA SYSTEM (VOLUME CDD01/CDD03) 00012PRFSC006 F-24000/9000 ACCOUNT CCS/LA SYSTEM (VOLUME CDD01/CDD02/CDD03) 00013PRFSC007 G-36000/13500 ACCOUNT CCS/LA SYSTEM (VOLUME CDD01/CDD02/CDD03) 00014PRFSC008 H-60000/18000 ACCOUNT CCS/LA SYSTEM (VOLUME CDD01) 00015PRFSC009 I-CLEAR CCS SYSTEM FILES FOR CUSTOMER PARAMETERIZATION 00016PRFSC010 J-CLEAR CCS/LA SYSTEM FILES FOR CUSTOMER PARAMETERIZATION 00017 Z-EXIT 00018*N,SYMSGF,,,A 00070ERROR - PROGRAM PROTECT VIOLATION AT LOCATION $$$$ X0300001ERROR - ILLEGAL PROGRAM ATTACHMENT AT LOCATION $$$$ X0300002ERROR - ILLEGAL FILE MANAGER REQUEST AT LOCATION $$$$ X0300003ERROR - ILLEGAL FILE REQUEST PARAMETER AT LOCATION $$$$ X0300004ERROR - ILLEGAL MONITOR REQUEST AT LOCATION $$$$ X0300005mh  3ERROR - ILLEGAL REQUEST PARAMETER AT LOCATION $$$$ X0300006ERROR - ILLEGAL I/O REQUEST LOGICAL UNIT AT LOCATION $$$$ X0300007ERROR - ATTEMPT TO PERFORM STACKED I/O REQUESTS AT LOCATION $$$$ X0300008NOTICE - THE CCS SYSTEM HAS BEEN DISABLED. X0300009A MASS MEMORY I/O ERROR HAS OCCURRED. PROGRAM TERMINATED. X0300010ERROR - ATTEMPT TO MODIFY THE FILE REQUEST BUFFER AT LOCATION $$$$ X0300011PROGRAM ABORTED X0300012@@@ ## ## ##:##:## X0300013C C S LOG OFF ##:##:## X0300014@@ IS INVALID X0300015ILLEGAL LOG IN X0300016REQUEST @@@@@@@@ CANNOT BE FOUND X0300017ERROR - @@@@@@@@ IS TOO LARGE TO BE EXECUTED X0300018ERROR STATUS $$$$ DURING OPEN OF FILE @@@@@@@@@@@@@@@@ X0300019ERROR STATUS $$$$ DURING CLOSE OF FILE @@@@@@@@@@@@@@@@ X0300020ERROR STATUS $$$$ DURING READR OF FILE @@@@@@@@@@@@@@@@ X0300021ERROR STATUS $$$$ DURING GETS OF FILE @@@@@@@@@@@@@@@@ X0300022ERROR STATUS $$$$ DURING FORCE FILE CLOSE X0300023PROCEDURE @@@@@@@@ CANNOT BE FOUND X0300024SYSTEM MESSAGE 0025 X0300025by  3SYSTEM MESSAGE 0026 X0300026SYSTEM MESSAGE 0027 X0300027SYSTEM MESSAGE 0028 X0300028SYSTEM MESSAGE 0029 X0300029REQUESTED UTILITY PROCESSOR NOT FOUND X0300030REQUESTED COMMAND IS NOT LEGAL X0300031ILLEGAL COMMAND FORMAT X0300032FILE REQUEST REJECTED X0300033FILE COULD NOT BE LOCATED X0300034MM I/O ERROR WAS NOTED X0300035DISK UNIT SPECIFIED ALREADY MOUNTED X0300036FILE REQUEST ILLEGAL X0300037FILE IS CURRENTLY OPEN X0300038MISSING PARAMETER X0300039ILLEGAL GETFLD STATUS X0300040VIT COULD NOT BE FOUND X0300041FILE IS CURRENTLY LOCKED X0300042INTERNAL FM ERROR X0300043MAX. NO OF OPEN FILES FOR A SINGLE USER X0300044MAX. NO OF OPEN FILES, RETRY X0300045'  3EQUIPMENT TYPE NOT FOUND X0300046VOLUME NOT ON SPECIFIED DISK UNIT X0300047VOLUME WAS ALREADY MOUNTED X0300048THIS VOLUME IS DISMOUNTED X0300049MOUNTED VOLUME HAS OPEN FILES X0300050WRONG VOLUME MOUNTED X0300051PARAMETER ENTRY ERROR X0300052VOLUME HAS OPEN FILES, NOT DISMOUNTED X0300053NO KEY ENTERED FOR INDEXED FILES X0300054INSUFFICIENT MM FILE SPACE X0300055INSUFFICIENT FID SPACE FOR FILES X0300056FILE NAME/OWNER NOT UNIQUE X0300057FCB INDEX OUT OF RANGE X0300058FILE REQUEST BUFFER NOT INITIALIZED X0300059UNDEFINED FM STATUS ERROR X0300060FILE HAS A SET OF LOCKED RECORDS X0300061DIRECT FILE RECORD LENGTH EXCEEDS 256 WORDS X0300062INVALID SYSTEM PERIPHERAL NAME X0300063RECORD LENGTH TOO LARGE FOR THIS COMMAND X0300064RECORD LENGTH NOT EQUAL X0300065v  3FILE TYPE NOT EQUAL X0300066PRIMARY KEY NOT UNIQUE X0300067WRONG KEY VALUE X0300068ILLEGAL PARAMETER RECEIVED X0300069INTERNAL UTILITY ERROR X0300070ERROR IN COMPUTING MM WORD ADDR X0300071FILE FORMERLY OPENED FOR COMPRESSION X0300072VOLUME 2 MAY NOT BE MOUNTED X0300073CLASS CODE IS NOT A DISK X0300074THIS COMMAND IS ONLY ALLOWED IF ITOS IS DISABLED X0300075THIS IS A SUPERVISOR COMMAND ONLY X0300076RECORD LOCK-TABLE IS CURRENTLY FULL X0300077RECORD IS LOCKED BY ANOTHER USER X0300078FILE REQUEST BUFFER NOT PROPERLY INITIALIZED X0300079FILE SPECIFIED SHOULD BE A DIRECT FILE X0300080TAPE RECORD EXCEEDS INTERNAL BUFFER SIZE X0300081INDEX TOO BIG FOR UTILITY ORDERED LOAD X0300082OUT OF ORDER PRIMARY KEY X0300083SYSTEM MESSAGE 0084 FMUTIL ERROR 84 X0300084SYSTEM MESSAGE 0085 FMUTIL ERROR 85 X0300085`  3DISK DRIVE/DISK PACK NOT COMPATIBLE X0300086SYSTEM MESSAGE 0087 X0300087SYSTEM MESSAGE 0088 X0300088SYSTEM MESSAGE 0089 X0300089SYSTEM MESSAGE 0090 X0300090SUBRCM CALL ERROR - ILLEGAL REQUEST TYPE X0300091SUBRCM CALL ERROR - X COORDINATE LESS THAN ZERO X0300092SUBRCM CALL ERROR - X COORDINATE GREATER THAN 79 X0300093SUBRCM CALL ERROR - Y COORDINATE LESS THAN ZERO X0300094SUBRCM CALL ERROR - Y COORDINATE GREATER THAN 23 X0300095SUBRCM CALL ERROR - BUFFER LENGTH LESS THAN 1 X0300096SUBRCM CALL ERROR - BUFFER LENGTH GREATER THAN 80 X0300097SUBRCM CALL ERROR - ILLEGAL 'DTYPE' X0300098SYSTEM MESSAGE 0099 X0300099SYSTEM MESSAGE 0100 X0300100RPG ERROR 001D @@@@@@@@ FILE IS ALREADY OPENED X0300101RPG ERROR 002D @@@@@@@@ TRIED TO PROCESS FILE IN WRONG MODE X0300102RPG ERROR 003D @@@@@@@@ SPECIFIED RECORD LENGTH INCORRECT X0300103RPG ERROR 004D @@@@@@@@ FILE NOT DEFINED IN DIRECTORY X0300104RPG ERROR 005D @@@@@@@@ AN ADD FILE FOR SEQ PROC MUST BE DEF AS OUTPT X0300105  3RPG ERROR 006D @@@@@@@@ ADD/LOAD SEQUENTIALLY NOT FOR DIRECT DEF FILE X0300106RPG ERROR 007D @@@@@@@@ FILE DEFINITION IS WRONG FOR SEQ. PROC. X0300107RPG ERROR 008D @@@@@@@@ RECORD LENGTH NOT COMPATIBLE WITH THE DIRECTORY X0300108RPG ERROR 009D @@@@@@@@ FILE MGR. DID NOT HANDLE DIR REQ STAT $$$$ X0300109RPG ERROR 010D @@@@@@@@ TRIED TO ACCESS AN UNOPENED FILE X0300110RPG ERROR 011D @@@@@@@@ READ 09 FOUND FILE TO BE NON UNIT-RECORD DEFINEDX0300111RPG ERROR 012D @@@@@@@@ RECORD ######## WAS SHORT-PADDED WITH BLANKS X0300112RPG ERROR 013D @@@@@@@@ READ 12 FOUND FILE DEFINED AS A NON-DISK FILE X0300113RPG ERROR 014D @@@@@@@@ RECORD ######## WAS TO LONG-RECORD TRUNCATED X0300114RPG ERROR 015D @@@@@@@@ WRIT17 FND FILE DEF AS NON-UNIT REC FILE X0300115RPG ERROR 016D @@@@@@@@ WRIT20 FND FILE DEF AS NON DISK SEQ FILE X0300116RPG ERROR 017D @@@@@@@@ UPDT26 FND FILE DEF AS NON DISK SEQ FILE X0300117RPG ERROR 018D @@@@@@@@ MULTIPLE UPDATES W/O READ IN BETWEEN INVALID X0300118RPG ERROR 019D @@@@@@@@ APDT30 FOUND FILE DEFINED AS A NON DISK-SEQ FILEX0300119RPG ERROR 020D @@@@@@@@ CLOS35 FOUND FILE DEFI AS NON UNIT REC FILE X0300120RPG ERROR 021D @@@@@@@@ CLOS38 FOUND FILE DEFINED AS A NON DISK-SEQ FILEX0300121RPG ERROR 022D @@@@@@@@ MASS STORAGE ERROR X0300122RPG ERROR 023D @@@@@@@@ FILE MGR DID NOT HANDLE FILE REQUEST $$$$ X0300123RPG ERROR 024D @@@@@@@@ END OF TAPE ENCOUNTERED X0300124RPG ERROR 025D @@@@@@@@ INPUT DEVICE FAILURE X0300125~g  3RPG ERROR 026D @@@@@@@@ OUTPUT DEVICE FAILURE X0300126RPG ERROR 027D @@@@@@@@ SHARED BUFFERS NOT ALLOWED FOR TAPE FILES X0300127RPG ERROR 028D @@@@@@@@ BLOCK SIZE MUST BE INTEGER MULTIPLE OF REC SIZE X0300128RPG ERROR 029D @@@@@@@@ READ 11 FOUND FILE NOT DEFINED AS TAPE X0300129RPG ERROR 030D @@@@@@@@ WRIT19 FOUND FILE NOT DEFINED AS TAPE X0300130RPG ERROR 031D @@@@@@@@ CLOS 37 FOUND FILE NOT DEFINED AS TAPE X0300131RPG ERROR 032D @@@@@@@@ DATA OVERFLOW - NO MORE TAPE VOLUMES DECLARED X0300132RPG ERROR 033D @@@@@@@@ ADDING RECORDS IS NOT ALLOWED IN DIRECT PROC. X0300133RPG ERROR 034D @@@@@@@@ OUTPT FILE FOR DIRCT PROC MUST BE DEF DIR X0300134RPG ERROR 035D @@@@@@@@ DIRECT PROC. ON INDEXED FILE ALLOWD ONLY FOR INPX0300135RPG ERROR 036D @@@@@@@@ FILE DEFINITION IS WRONG FOR DIRECT PROC. X0300136RPG ERROR 037D @@@@@@@@ READ13 FOUND FILE DEFI AS NON DISK DIRECT FILE X0300137RPG ERROR 038D @@@@@@@@ WRIT21 FOUND FILE DEFI AS NON DISK DIRECT FILE X0300138RPG ERROR 039D @@@@@@@@ UPDT27 FOUND FILE DEFI AS NON DISK DIRECT FILE X0300139RPG ERROR 040D @@@@@@@@ CLOS39 FOUND FILE DEFI AS NON DISK DIRECT FILE X0300140RPG ERROR 041D @@@@@@@@ RECORD NUMBER ######## OUT OF RANGE X0300141RPG ERROR 042D @@@@@@@@ DOUBLE BUFFERING NOT ALLOWED FOR INDEX FILE X0300142RPG ERROR 043D @@@@@@@@ INDEX PROC. IS ALLOWED ONLY FOR INDEX-DEF FILES X0300143RPG ERROR 044D @@@@@@@@ KEY LENGTH/POSITION NOT COMPATIBLE WITH DIRECTORX0300144RPG ERROR 045D @@@@@@@@ OPEN 05 WAS CALLED FOR NON-RANDOM PROCESSING X0300145 v  3.RPG ERROR 046D @@@@@@@@ READ15 FOUND FILE DEFINED AS A NON INDEX FILE X0300146RPG ERROR 047D @@@@@@@@ WRIT23 FOUND FILE DEFINED AS A NON INDEX FILE X0300147RPG ERROR 048D @@@@@@@@ ADDT32 FOUND FILE DEFINED AS A NON INDEX FILE X0300148RPG ERROR 049D @@@@@@@@ CLOS41 FOUND FILE DEFINED AS A NON INDEX FILE X0300149RPG ERROR 050D @@@@@@@@ UPDT29 FOUND FILE DEFINED AS A NON INDEX FILE X0300150RPG ERROR 051D @@@@@@@@ THE KEY IN RECORD ######## MODIFIED BY UPDATE X0300151RPG ERROR 052D @@@@@@@@ CLOS40 FOUND FILE DEFINED AS A NON INDEX FILE X0300152RPG ERROR 053D @@@@@@@@ READ19 FOUND FILE DEFINED AS A NON INDEX FILE X0300153RPG ERROR 054D @@@@@@@@ WRIT22 FOUND FILE DEFINED AS A NON INDEX FILE X0300154RPG ERROR 055D @@@@@@@@ UPDT28 FOUND FILE DEFINED AS A NON INDEX FILE X0300155RPG ERROR 056D @@@@@@@@ ADDT31 FOUND FILE DEFINED AS A NON INDEX FILE X0300156RPG ERROR 057D @@@@@@@@ SETL33 FOUND FILE DEFINED AS A NON INDEX SEQ FILX0300157RPG ERROR 058D @@@@@@@@ RECORD ######## OUT OF ORDER X0300158RPG ERROR 059D @@@@@@@@ SETL33 SET LOWER LIMIT NOT ALLOWED FOR ADD FILESX0300159RPG ERROR 060D @@@@@@@@ KEY OF RECORD ######## ALREADY EXISTS X0300160RPG ERROR 061D @@@@@@@@ SEQ. PROC. FOR INDEX-DEFINED FILE ONLY FOR INPUTX0300161RPG ERROR 062D @@@@@@@@ UNABLE TO SORT THE KEYS X0300162RPG ERROR 063D @@@@@@@@ SLCT34 CALL STACKER SELECT IS NOT SUPPORTED X0300163RPG ERROR 064D @@@@@@@@ ERROR CODE IN BUFFER IS WRONG FOR TAPE X0300164RPG ERROR 065D @@@@@@@@ NO VOL1 LABEL ON SL TAPE X0300165.  3BRPG ERROR 066D @@@@@@@@ WRONG DATA SET NAME X0300166RPG ERROR 067D @@@@@@@@ TAPE VOLUMES MOUNTED IN WRONG ORDER X0300167RPG ERROR 068D @@@@@@@@ TAPE FILE NOT DEFINED BY MOUNT UTILITY X0300168RPG ERROR 069D @@@@@@@@ WRONG VOLUME SERIAL NUMBER X0300169RPG ERROR 070D @@@@@@@@ INVALID EXPIRATION DATE X0300170RPG ERROR 071D @@@@@@@@ FILE MANAGER ERROR IN READING MOUNT FILE X0300171RPG ERROR 072D @@@@@@@@ UNEXPIRED DATE SET X0300172RPG ERROR 073D @@@@@@@@ NOT USED X0300173RPG ERROR 074D @@@@@@@@ COMBINED FILES NOT SUPPORTED X0300174RPG ERROR 075D @@@@@@@@ OPEN02 FOUND FILE DEF AS NON SPECIAL DEV FILE X0300175RPG ERROR 076D @@@@@@@@ WRONG BUFFER SIZE CAN NOT BE USED FOR FIXED BLK X0300176RPG ERROR 077D @@@@@@@@ BLOCKING IS IMPOSSIBLE FOR SHARED BUFFERS X0300177RPG ERROR 078D @@@@@@@@ ERROR RETURN FROM SPEC. DEV DRVR, STAT= $$$$ X0300178RPG ERROR 079D @@@@@@@@ READ 10 FOUND FILE DEF AS NON SPECIAL DEV FILE X0300179RPG ERROR 080D @@@@@@@@ UPDT25 FOUND FILE DEF AS NON SPECIAL DEV FILE X0300180RPG ERROR 081D @@@@@@@@ RECORD ######## WAS TOO LONG - RECORD IGNORED X0300181RPG ERROR 082D @@@@@@@@ CLOS36 FOUND FILE DE AS NON SPECIAL DEV FILE X0300182RPG ERROR 083D @@@@@@@@ WRIT 18 REQUIRES FILES DEFI. AS SPECIAL DEVICE X0300183RPG ERROR 084D @@@@@@@@ NOT USED X0300184RPG ERROR 085D @@@@@@@@ NOT USED X0300185  3VRPG ERROR 086D @@@@@@@@ NOT USED X0300186RPG ERROR 087D @@@@@@@@ NOT USED X0300187RPG ERROR 088D @@@@@@@@ NOT USED X0300188RPG ERROR 089D @@@@@@@@ NOT USED X0300189RPG ERROR 090D @@@@@@@@ NOT USED X0300190RPG ERROR 091D @@@@@@@@ NOT USED X0300191RPG ERROR 092D @@@@@@@@ NOT USED X0300192RPG ERROR 093D @@@@@@@@ NOT USED X0300193RPG ERROR 094D @@@@@@@@ NOT USED X0300194RPG ERROR 095D @@@@@@@@ NOT USED X0300195RPG ERROR 096D @@@@@@@@ NOT USED X0300196RPG ERROR 097D @@@@@@@@ NOT USED X0300197RPG ERROR 098D @@@@@@@@ NOT USED X0300198RPG ERROR 099D @@@@@@@@ ERROR AT LOCATION = $$$$ X0300199RPG ERROR 100D @@@@@@@@ NOT USED X0300200RPG ERROR 101R @@@@@@@@ HALT INDICATOR H1 IS ON X0300201RPG ERROR 102R @@@@@@@@ HALT INDICATOR H2 IS ON X0300202RPG ERROR 103R @@@@@@@@ HALT INDICATOR H3 IS ON X0300203RPG ERROR 104R @@@@@@@@ HALT INDICATOR H4 IS ON X0300204RPG ERROR 105R @@@@@@@@ HALT INDICATOR H5 IS ON X0300205  3jRPG ERROR 106R @@@@@@@@ HALT INDICATOR H6 IS ON X0300206RPG ERROR 107R @@@@@@@@ HALT INDICATOR H7 IS ON X0300207RPG ERROR 108R @@@@@@@@ HALT INDICATOR H8 IS ON X0300208RPG ERROR 109R @@@@@@@@ HALT INDICATOR H9 IS ON X0300209RPG ERROR 110R @@@@@@@@ NO PRIMARY OR SECONDARY FILES ARE OPENED X0300210RPG ERROR 111R @@@@@@@@ SQUARE ROOT OF NEGATIVE NUMBER X0300211RPG ERROR 112R @@@@@@@@ NOT USED X0300212RPG ERROR 113R @@@@@@@@ DIVISION BY ZERO X0300213RPG ERROR 114R @@@@@@@@ ARRAY INDEX OUT OF RANGE X0300214RPG ERROR 115R @@@@@@@@ INPUT TABLE OR ARRAY OUT OF SEQUENCE X0300215RPG ERROR 116R @@@@@@@@ NO TABLE OR ARRAY DATA IN FILE X0300216RPG ERROR 117R @@@@@@@@ TOO MUCH DATA FOR TABLE OR ARRAY X0300217RPG ERROR 118R @@@@@@@@ SUBROUTINE RETURN STACK IS FULL X0300218RPG ERROR 119R @@@@@@@@ SUBROUTINE RETURN WITHOUT PREVIOUS EXSR X0300219RPG ERROR 120R @@@@@@@@ END OF FILE FOR DEMAND FILE X0300220RPG ERROR 121R @@@@@@@@ RECORD NOT FOUND, KEY NOT IN INDEX FILE X0300221RPG ERROR 122R @@@@@@@@ RELATIVE RECORD NUMBER OUT OF RANGE X0300222RPG ERROR 123R @@@@@@@@ RECORD IS OUT OF SEQUENCE X0300223RPG ERROR 124R @@@@@@@@ FILE OUT OF MATCHING RECORD SEQUENCE X0300224RPG ERROR 125R @@@@@@@@ UNIDENTIFIED RECORD IN FILE X0300225  3~RPG ERROR 126R @@@@@@@@ TOO MUCH DATA FOR RECORD X0300226RPG ERROR 127R @@@@@@@@ NOT USED X0300227RPG ERROR 128R @@@@@@@@ NOT USED X0300228RPG ERROR 129R @@@@@@@@ NOT USED X0300229RPG ERROR 130R @@@@@@@@ ATTEMPT TO OUTPUT TO FULL FILE X0300230RPG ERROR 131R @@@@@@@@ DIRECT ACCESS RECORD NO. OUT OF RANGE X0300231RPG ERROR 132R @@@@@@@@ ATTEMPT TO UPDATE FILE BEFORE INPUT X0300232RPG ERROR 133R @@@@@@@@ RECORD NOT FOUND WITH SPECIFIED KEY X0300233RPG ERROR 134R @@@@@@@@ DUPLICATE KEY FOR OUTPUT TO FILE X0300234RPG ERROR 135R @@@@@@@@ DATA TRANSFER FAILED, CHECK DEVICE OR FILE X0300235RPG ERROR 136R @@@@@@@@ FILE IS NOT PRESENT X0300236RPG ERROR 137R @@@@@@@@ FILE DOES NOT CORRESPOND TO DMPT DESCRIPTION X0300237RPG ERROR 138R @@@@@@@@ KEY MODIFIED BY UPDATE X0300238RPG ERROR 139R @@@@@@@@ KEY OUT OF ORDER X0300239RPG ERROR 140R UNABLE TO CONTINUE DUE TO PREVIOUS ERROR X0300240RPG ERROR 141R @@@@@@@@ ILLEGAL FILE TYPE FOR SETLL X0300241RPG ERROR 142R WRONG PROCESSOR SELECTED. RUN SELMU, SELECTING OPTION 1X0300242RPG ERROR 143R INTERNAL RPG RUNTIME ERROR IN R9MVBX X0300243RPG ERROR 144R @@@@@@@@ NOT USED X0300244RPG ERROR 145R @@@@@@@@ NOT USED X0300245  3RPG ERROR 146R @@@@@@@@ NOT USED X0300246RPG ERROR 147R @@@@@@@@ NOT USED X0300247RPG ERROR 148R @@@@@@@@ NOT USED X0300248RPG ERROR 149R @@@@@@@@ NOT USED X0300249RPG ERROR 150R @@@@@@@@ ALL HALT INDICATORS HAVE BEEN DISPLAYED X0300250RPG ERROR 151R @@@@@@@@ NOT USED X0300251RPG ERROR 152R @@@@@@@@ NOT USED X0300252RPG ERROR 153R @@@@@@@@ NOT USED X0300253RPG ERROR 154R @@@@@@@@ NOT USED X0300254RPG ERROR 155R ERROR IN PARAMETER(S) PASSED TO SUBROUTINE SUBRFL X0300255RPG ERROR 156R ERROR IN PARAMETER(S) PASSED TO SUBROUTINE SUBRAJ X0300256RPG ERROR 157R ERROR IN PARAMETER(S) PASSED TO SUBROUTINE SUBRMV X0300257RPG ERROR 158R ERROR IN PARAMETER(S) PASSED TO SUBROUTINE SUBRIN X0300258RPG ERROR 159R ERROR IN PARAMETER(S) PASSED TO SUBROUTINE SUBRED X0300259RPG ERROR 160R @@@@@@@@ NOT USED X0300260SPARE MESSAGE 261 X0300261SPARE MESSAGE 262 X0300262SPARE MESSAGE 263 X0300263SPARE MESSAGE 264 X0300264SPARE MESSAGE 265 X0300265z  3SPARE MESSAGE 266 X0300266SPARE MESSAGE 267 X0300267SPARE MESSAGE 268 X0300268SPARE MESSAGE 269 X0300269SPARE MESSAGE 270 X0300270SPARE MESSAGE 271 X0300271SPARE MESSAGE 272 X0300272SPARE MESSAGE 273 X0300273SPARE MESSAGE 274 X0300274SPARE MESSAGE 275 X0300275SPARE MESSAGE 276 X0300276SPARE MESSAGE 277 X0300277SPARE MESSAGE 278 X0300278SPARE MESSAGE 279 X0300279SPARE MESSAGE 280 X0300280SPARE MESSAGE 281 X0300281SPARE MESSAGE 282 X0300282SPARE MESSAGE 283 X0300283SPARE MESSAGE 284 X0300284SPARE MESSAGE 285 X0300285J  3SPARE MESSAGE 286 X0300286SPARE MESSAGE 287 X0300287SPARE MESSAGE 288 X0300288SPARE MESSAGE 289 X0300289SPARE MESSAGE 290 X0300290SPARE MESSAGE 291 X0300291SPARE MESSAGE 292 X0300292SPARE MESSAGE 293 X0300293SPARE MESSAGE 294 X0300294SPARE MESSAGE 295 X0300295SPARE MESSAGE 296 X0300296SPARE MESSAGE 297 X0300297SPARE MESSAGE 298 X0300298SPARE MESSAGE 299 X0300299SPARE MESSAGE 300 X0300300ILLEGAL LINE NUMBER ##### SPECIFIED X0300301NO PROGRAM ID ON H FORMAT SPECIFICATION X0300302FILE @@@@@@@@ IS NOT AN EDITOR FILE X0300303AN ERROR OCCURRED WHEN BUILDING THE STATEMENT LABEL INDEX X0300304ILLEGAL FILE NAME X0300305x  3INVALID FIELD X0300306INVALID NUMERIC VALUE X0300307COMMAND NAME NOT UNIQUE X0300308INVALID COMMAND X0300309WRONG FORMAT TYPE FOR THIS FILE X0300310INVALID FORMAT SPECIFICATION X0300311LINE NUMBER OVERFLOW X0300312INCORRECT TAB STOP ORDER X0300313INVALID RPG ARRAY DATA LINE NUMBER X0300314INVALID DELIMITER X0300315DELIMITER MISSING X0300316CHARACTER STRING TOO LONG X0300317RESEQUENCE WITH A LOWER BASE AND/OR INCREMENT X0300318NO FILE OPEN FOR EDITOR USE X0300319SAVRTN STACK OVERFLOW X0300320SAVRTN STACK UNDERFLOW X0300321FILE IS FULL X0300322SPARE EDITOR MESSAGE X0300323SPARE EDITOR MESSAGE X0300324SPARE EDITOR MESSAGE X03003256  3SPARE EDITOR MESSAGE X0300326SPARE EDITOR MESSAGE X0300327SPARE EDITOR MESSAGE X0300328SPARE EDITOR MESSAGE X0300329SPARE EDITOR MESSAGE X0300330FILE MANAGER ERROR WHEN OPENING FILE @@@@@@@@ ISTAT = $$$$ X0300331COULD NOT LOCATE FILE @@@@@@@@ USER @@@@@@@@ X0300332FILE @@@@@@@@ IS LOCKED. TRY AGAIN LATER X0300333FILE MANAGER ERROR WHEN READING FILE @@@@@@@@ ISTAT = $$$$ X0300334FILE MANAGER ERROR WHEN DELETING FROM FILE @@@@@@@@ ISTAT = $$$$ X0300335AN ERROR OCCURRED WHEN INITIALIZING THE EDITOR ISTAT = $$$$ X0300336FILE MANAGER ERROR IN STATEMENT LABEL INDEX FILE ISTAT = $$$$ X0300337FILE MANAGER ERROR WHEN UPDATING FCB ISTAT = $$$$ X0300338FILE MANAGER ERROR WHEN CLOSING FILE @@@@@@@@ ISTAT = $$$$ X0300339FILE MANAGER ERROR WHEN INITIALIZING SCRATCH FILE ISTAT = $$$$ X0300340FILE MANAGER ERROR WHEN UPDATING FILE @@@@@@@@ ISTAT = $$$$ X0300341FILE MANAGER ERROR WHEN UPDATING FCB FOR FILE @@@@@@@@ ISTAT = $$$$ X0300342FILE MANAGER ERROR WHEN CREATING SCRATCH FILE ISTAT = $$$$ X0300343FILE MANAGER ERROR WHEN OPENING SCRATCH FILE ISTAT = $$$$ X0300344FILE MANAGER ERROR WHEN WRITING SCRATCH FILE ISTAT = $$$$ X0300345  3FILE MANAGER ERROR WHEN CLOSING SCRATCH FILE ISTAT = $$$$ X0300346FILE MANAGER ERROR WHEN RENAMING SCRATCH FILE ISTAT = $$$$ X0300347FILE MANAGER ERROR WHEN DELETING FILE @@@@@@@@ ISTAT = $$$$ X0300348FILE MANAGER ERROR WHEN DELETING SCRATCH FILE ISTAT = $$$$ X0300349CLOSFL REQIND@@@@@@@@ X0300350OPENFL REQIND@@@@@@@@ X0300351DELETE REQIND@@@@@@@@ X0300352CREATE REQIND@@@@@@@@ X0300353GETS REQIND@@@@@@@@ X0300354PUTS REQIND@@@@@@@@ X0300355GETFCB REQIND@@@@@@@@ X0300356UPDFCB REQIND@@@@@@@@ X0300357VOLUME= @@@@@@@@ X0300358FILNAM= @@@@@@@@, @@@@@@@@ X0300359ABNORMAL ERROR@@@@@@@@@@@@ X0300360BLKSIZ/RECLTH .NE. 1,2,3... X0300361@@@@@@@@@@@@ X0300362FATAL ERROR X0300363DONE@@@@@@@@@@@@ X0300364TYPE-IN ERROR X0300365Q  3 EXPECTED @@@@@@@@@@@@@@@@@@@@@@ FOUND @@ X0300366CANNOT OPEN INPUT FILE X0300367TOO LITTLE CORE X0300368INTERPHASE RECORD COUNTS DISAGREE X0300369@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@X0300370PASSED@@@@@@@@@@@@ X0300371SEQ. DIR. ERROR X0300372TOO LITTLE DISK X0300373OUTPUT RECORD COUNT BAD X0300374INPUT FILE LENGTHS ARE NOT EQUAL X0300375FN=@@@@@@@@,@@@@@@@@ X0300376OUTPUT FILE RECORD LENGTH IS ZERO X0300377ADDROUT SORTS ONLY 1 FILE X0300378VOLUME @@@@@@@@ NOT MOUNTED X0300379START OF KEY FIELD OUTSIDE OF RECORD X0300380KEY FIELD EXTENDS BEYOND END OF RECORD X0300381SYSTEM MESSAGE 0382 X0300382SYSTEM MESSAGE 0383 X0300383SYSTEM MESSAGE 0384 X0300384SYSTEM MESSAGE 0385 X03003859  3SYSTEM MESSAGE 0386 X0300386SYSTEM MESSAGE 0387 X0300387SYSTEM MESSAGE 0388 X0300388SYSTEM MESSAGE 0389 X0300389SYSTEM MESSAGE 0390 X0300390SYSTEM MESSAGE 0391 X0300391SYSTEM MESSAGE 0392 X0300392SYSTEM MESSAGE 0393 X0300393SYSTEM MESSAGE 0394 X0300394SYSTEM MESSAGE 0395 X0300395SYSTEM MESSAGE 0396 X0300396SYSTEM MESSAGE 0397 X0300397SYSTEM MESSAGE 0398 X0300398SYSTEM MESSAGE 0399 X0300399NO ROOM IN HOST FILE X0300400HOST NAME NOT FOUND X0300401PARAMETER MUST BE ADD OR DEL X0300402DUPLICATE HOST NAME X0300403PROTOCOL TYPE MUST BE 200UT OR HASP X0300404BATCH DRIVER BUSY ON THIS HOST X0300405  32JOB(S) PENDING FOR THIS HOST X0300406SYSTEM MESSAGE 0407 X0300407INVALID LOGICAL UNIT X0300408SYSTEM MESSAGE 0409 X0300409LOGICAL UNIT ALREADY SET FOR THIS HOST X0300410DUPLICATE LOGICAL UNIT X0300411ILLEGAL TO DELETE LOCAL HOST X0300412NO ROOM IN BATCH FILE X0300413NO *JOB RECORD IN THE INPUT FILE X0300414INVALID JOB NUMBER X0300415INVALID OWNER IDENTIFICATION X0300416JOB ALREADY DISCARDED X0300417FILE MANAGER ERROR IN ACCESSING THE BATCH FILE X0300418JOB NOT FOUND X0300419JOB INACTIVE X0300420NO JOBS TO PRINT X0300421NO SUCH HOST X0300422SYSTEM MESSAGE 423 X0300423OUTPUT NOT RECEIVED X0300424*N,PROCED,,,B 00090  3FCARDPRO READER 00001TAPEPRO TAPE0 00002DCCOLACT PRFDC001 00003DCPRTLTR PRFDC002 00004DCACTADD PRFDC003 00005DCUPDTAP PRFDC004 00006DCNFINUP PRFDC005 00007DCFINUPD PRFDC006 00008DCUPDHIS PRFDC007 00009DCDUMMIE PRFDC008 00010DCDUMDUM PRFDC009 00011DCSRTTRN PRFDC010 00012DCBLDDAS PRFDC011 00013HSMOVHIS PRFHS001 00014HSUPDTAP PRFHS002 00015HSPRGHIS PRFHS003 00016HSPRGTAP PRFHS004 00017MTRDRLTR PRFMT001 00018MTCONLTR PRFMT002 00019MTUTIFIL PRFMT003 00020]  3ZMTDECTBL PRFMT004 00021MTAVMDMP PRFMT005 00022MTACTMTX PRFMT006 00023MTSPCAUD PRFMT007 00024MTLDSCRN PRFMT008 00025MTSVSCRN PRFMT009 00026MTPRGMST PRFMT010 00027MTACTMTN PRFMT011 00028MTUSEMTN PRFMT012 00029MTDETCRD PRFMT013 00030MTDETCON PRFMT014 00031MTPDFMTN PRFMT015 00032MTSCNPRT PRFMT016 00033RPDRCIAC PRFRP001 00034RPDRCSRQ PRFRP002 00035RPTAPRRN PRFRP003 00036RPTAPTQU PRFRP004 00037RPTAPTTY PRFRP005 00038RPWRTOFF PRFRP006 00039RPDLYASN PRFRP007 00040B  3nRPSUMACT PRFRP008 00041RPWCOLST PRFRP009 00042RPMCOLST PRFRP010 00043RPTCNTRL PRFCNTRL 00044PRFRP012 PRFRP012 00045PRFRP013 PRFRP013 00046PRFPG000 PRFPG000 00047PRFPG001 PRFPG001 00048PRFPG002 PRFPG002 00049PRFPG003 PRFPG003 00050PRFPG004 PRFPG004 00051PRFPG005 PRFPG005 00052PRFPG006 PRFPG006 00053PRFPG007 PRFPG007 00054PRFPG008 PRFPG008 00055PRFPG009 PRFPG009 00056PRFPG010 PRFPG010 00057PRFPG011 PRFPG011 00058PRFPG012 PRFPG012 00059PRFPG013 PRFPG013 00060n  3PRFPG014 PRFPG014 00061PRFPG015 PRFPG015 00062PRFPG016 PRFPG016 00063PRFPG017 PRFPG017 00064PRFPG018 PRFPG018 00065PRFPG019 PRFPG019 00066LDCOLACT PRFLD001 00067LDPRTLTR PRFLD002 00068LDACTADD PRFLD003 00069LDUPDTAP PRFLD004 00070LDNFINUP PRFLD005 00071LDFINUPD PRFLD006 00072LDUPDHIS PRFLD007 00073LDDUMMIE PRFLD008 00074LDDUMDUM PRFLD009 00075LDSRTTRN PRFLD010 00076LDBLDDAS PRFLD011 00077PRFLD012 PRFLD012 00078PRFLD013 PRFLD013 00079LHMOVHIS PRFLH001 00080Ƴ  3LHUPDTAP PRFLH002 00081LHPRGHIS PRFLH003 00082LHPRGTAP PRFLH004 00083LHPRGCLI PRFLH005 00084LMRDRLTR PRFLM001 00085LMCONLTR PRFLM002 00086LMUTIFIL PRFLM003 00087LMDECTBL PRFLM004 00088LMAVMDMP PRFLM005 00089LMACTMTX PRFLM006 00090LMSPCAUD PRFLM007 00091LMLDSCRN PRFLM008 00092LMSVSCRN PRFLM009 00093LMPRGMST PRFLM010 00094LMACTMTN PRFLM011 00095LMUSEMTN PRFLM012 00096LMDETCRD PRFLM013 00097LMDETCON PRFLM014 00098LMPDFMTN PRFLM015 00099LMSCNPRT PRFLM016 00100,  3PRFLM017 PRFLM017 00101LODRCIAC PRFLO001 00102LODRCSRQ PRFLO002 00103LOTAPRRN PRFLO003 00104LOTAPTQU PRFLO004 00105LOTAPTTY PRFLO005 00106LOWRTOFF PRFLO006 00107LODLYASN PRFLO007 00108LOSUMACT PRFLO008 00109LOWCOLST PRFLO009 00110LOMCOLST PRFLO010 00111LOTCNTRL PRFLACTR 00112PRFLO012 PRFLO012 00113PRFLO013 PRFLO013 00114PRFLO014 PRFLO014 00115PRFLO015 PRFLO015 00116PRFLO016 PRFLO016 00117PRFLO017 PRFLO017 00118PRFLP000 PRFLP000 00119PRFLP001 PRFLP001 00120A  3PRFLP002 PRFLP002 00121PRFLP003 PRFLP003 00122PRFLP004 PRFLP004 00123PRFLP005 PRFLP005 00124PRFLP006 PRFLP006 00125PRFLP007 PRFLP007 00126PRFLP008 PRFLP008 00127PRFLP009 PRFLP009 00128PRFLP010 PRFLP010 00129PRFLP011 PRFLP011 00130PRFLP012 PRFLP012 00131PRFLP013 PRFLP013 00132PRFLP014 PRFLP014 00133PRFLP015 PRFLP015 00134PRFLP016 PRFLP016 00135PRFLP017 PRFLP017 00136PRFLP018 PRFLP018 00137PRFLP019 PRFLP019 00138PRFSC001 PRFSC001 00139PRFSC002 PRFSC002 00140E_  3PRFSC003 PRFSC003 00141PRFSC004 PRFSC004 00142PRFSC005 PRFSC005 00143PRFSC006 PRFSC006 00144PRFSC007 PRFSC007 00145PRFSC008 PRFSC008 00146PRFSC009 PRFSC009 00147PRFSC010 PRFSC010 00148* 00110 PTSTASK A01 A ITOS CCS 3.0 SL-149@P H hXYRXT hFT ` XThu@P+" T 2X a Xq@hˠb aM' (  ) @aM%@PV M$ 4a a5A"-A!a+):aM)Af"@PMf""DP aT TT2 `f"h h` E@P oT:b GBXT  `XH\"aXH @PA"b T XcXa Hh   TTbT@PX`h`TA"aB8a c:aa2` H"B8 h@P-qhT`:bT T.H3 H"hh B Qh  "h @PXhT`^H @#3aI  ' !@Pf"E"""b""b b b  T `\ eXE\r l*  3@P H@  Ta\ a !@ h@Q  !\b @P a`A6"R6f"` H#h"X\gT   ` 2a TX @P @\a` h3̊h-" H-T8TH"Ta\2AHahXT`<b@P/T5`Ta\ TX L.  " ! A " b a  ,@PZ #! T l BnX C4nT Dk  @PT T b w HcTh\XhYRXT rnSXTNhK tF4@PnFCT:(B?aM>%M X#%  Y4.aKFM M'@P`Xz" X` M h " zy Xc}@P`f"  b b  Tb X? a T  hTa AXMHT@P19 a a" &T"` T"`ζXX'X " XB a h HF @P\"Tb A A  " A H)h(h!h!h ̃hT`bT0`"b @P"TTTHPTSTASKTSURTNTSATCHTIMSLCTSNABLTSACTVTSCNACEXPIRETSMFLGXMBLOKTSULBFREAREQ^PMOV FUNSHRFSHAREYERTO PARTBLSYFAIL^UBPROTSETBNDCPTBLNCPREL 1CPSET CPMOD CPDEF wCPFET 'PTSPAGEEXTREGTSMMERTSCLLBTSRFTNMMREL MMALC  XMRTN ;XMMOD AXMREL 4XMRSV XMALC  DENSWP(DENXUMPDENXUCOFNSWPGTNXUMOFNXUCADNSWPONNSWPONNXUMONNXUCTSCLOKTSMENDTSMUSRTSUENDTSUSERuTSPENDPTSPORTjTSLLSBTSLMSBTSLSIZTSUSCP_TSXERRTSAREAP PTSSUBR A02 A ITOS CCS 3.0 SL-149@P XFkXV X?eXO X8hZ@"":R*O$O GX X/ 3S  3@P+XXX( >` "\;f"D 30  q h"h s"2\ @PV @ `  "\Df"X  X  X@P  X  X   X HHH@ ErJ q@P""D`BDX X hHX hm hl HjHis3 ^ \`+W@PtSSS.P hM X1  d2bR?d2`H;;8f66` t,@P `% FX  X "X Hh h"2 h f"h " @P-V X.H @HH# h'X& `ߘhBH0'`޲#m@PXX`("  hDmA  ؾ   XH"a@P BH80'`ͦ3mȜXȜ` AA ha   TTRTh@P C 0` cN Nb0 f ALaM oX %@P X1ML L"LLL "X  ALaM X1LMPONNXUCONNXUMONNSWPADNSWP*OFNXUCsOFNSWPzGTNXUMa$ a% a!a"a#a*a)Eaaa,a-a - ((" ! @PV  a+aAa aa1r  3@P^    @P `  @P  ,.>ADNRUZ^d| lU A@aA8 )HG@PFE"hH" n>TA b ,.bTR"  @V" N\ @P-\"X\ h h nX}XtXzXq@ba"   @ 2@PX@   XgXZXQ@ ;" @ 2" AXJXAZ H"@P " "hH θn @ L\ @ Q 2\\ @ 2@P  "*cB* T2\\  hH@ h /"K" h @PB8 A ( (((([(3( hh"!"# @PdhZAa A7 4R  T" TLa a a  \E ACA\> h3@P/ 6.  h* aXb A+a\$Ab "aM6dMX@PZ  wtyzj  =+ Ka 7 HHa@PhHQ  H x( AH /aTQAXX #@P !/aH""&  1# 7#",w BA@PX a       @P  >HJioOF aAA+XoM@P1H"hBCh "  7\|GA h8 h n2a! &a-@P\# Aa(a a  b #" Q+b   b  T T`@PW,b ! 1XC  t# X9   X2BUDUHULU\U\UDUDULU@PLUXX#X #" BXhi "E\A  DXw *c  3"@P*  7/Xe /bX8X "!Q  "aXH@PX"#   " h% h#"9 "3 "AL!'A#@P3La" aAXa#b/aX Xa4 #"\a\cA\@P^\^\]  TD\\~\,.b"2\"\l\k  lg#@PX 9DP f"!b"b#b%4b$f" #X>f"%1 @P" Aa{A#aL+bh ( 4 nL  @Pb bXO%a -a&"a7X:h6X8a%X6H4X4h1X2a"\A(X-"A'(\@P \\A) ', a- a!A)a l'h (h   ""PTSIPRCWTREADUNPTBLtPMOV PROMTRFMEXECxSYFAILPWFAILPTYERRPRO MONI tMMLUTBeLOG1A fWKSTATTSPMCKTSCKMUTSCKPMPTSXERRTSEXITPGMOUTTSCHANCHAIN TSATTC}ATTACH|TSLCUP{SLICUPzTSLUNTPGLUNTTSINTRPGMINTTSPMINPPGMIN ~ONNSWPTSVFTN4EXTREG2CCP TSCLOK-TSMFLGTSACTVTERMLUgTSFMCP(TSIOC2TSIOC1TSURTNjTSTASKPTSAREAP P#TSUREQ A04 A ITOS CCS 3.0 SL-149@P \H \ h n\f"\ f"\ f"F R XC"B@P+\A4X=B\A5/  : u c c, , \A Xh\A6@PV \A \A  ""A0a1 A XH ΦcG A@P 2" Ab2A3 aaa,a-aUAag`TG a @P !\bb 2%a-a,a%`K hhhT`bT` TLIB  36@P X8 f"  l!X"  "H Ìnbb@Pb b  TXX  `Ta\T hDnPPGMIN TSPMINPGMINT%TSINTR(PGLUNT8TSLUNT;SLICUPFTSLCUPIATTACHOTSATTCRCHAIN vTSCHANyTSLMSBTSLLSBPTSLSIZTSXERRqPGMOUTTSEXITPSYFAILFSHAREPARTBLONNXUM XMREL CPREL CPSET TSPMCK!TSCKPM"CCP TSMMERTERMLU TSCNACTSNABLPTSULBFTSATCH]TIMSLCNTSURTNTSAREATSTASKP PJTSIOCP A05 A ITOS CCS 3.0 SL-149@P!Q " T`dX T T b  ls T"@P+"aaa aa b "a a a aT\s\pbT  T \cH_@PV \`[1\Z'RX@G" a(XK#.,BA" "T@P-<-a" v g "TP \! &3 "T 2  ,'@P"Bta 1"H# " % $ @P ta H h tnT`H `31\ȼXDr.A9@Pȱ*H "bl .(. " 1%ta `4@P-2Tb)a+C<-a"  T" TIPTSLICETSUSCPFTSIOC1UTSIOC2TSFMCP&PLOG1A SYFAIL1TSAREA TSVFTNCTSCKPM(EXPIRETSACTV!TSLOFFTSOFFMTSCNACTSNABLTSBGINDENSWPONNSWPCPONNXUMONNXUCGCPSET TSPEND.TSPORT*REAREQTTSMMERKP e  3J PTSMMER A06 A ITOS CCS 3.0 SL-149@P Uh TP$ TPTSMMERPSYFAIL TSMFLG P PEXTREG A07 A ITOS CCS 3.0 SL-149@P Y9 : ; <9 : ; <PEXTREGP PSETBND A08 A ITOS CCS 3.0 SL-149@PDd f f PSETBNDPUPBDTBLOBDTB LBPROTUBPROTMPFLAGP PCONPNT A09 A ITOS CCS 3.0 SL-149@PTA9|%$" '\ry"H2h0 Kh n$h9@P+ThX3b8_#d42  TAN" X2@PV"XJ f" E"HDhTTA"X7Hh -Kh˾n H#E"@PhTLR hHXH a\Q\T!\@P" \TA"QXAXwR  8A"" (ρ"   3^@PaaE"hTTA"XHhY t n E"NahT@PPCPDEF CPCHK 1CPREL JCPMOD cCPSET CPADD CPFET PSYFAILCPTBLNINUMCP TSAREACCP ACPTBE0P PRDWMATH A10 A ITOS CCS 3.0 SL-149@Ph"@  " 2a"a ! A%dada`h@P+dbdbh@!Ha"! B  2ADa a`PDWADD DWSUB &DWMUL 1P PMOV A11 A ITOS CCS 3.0 SL-149@PaC  P y##  PPMOV PCNTWARP PSGRABMM A12 A ITOS CCS 3.0 SL-149@P HH2 H1 H+X<N& $M  EaX.#% d T%@P+T  QXH H"  TfB + T( PXMRESVXMRETN6PTSBGINPXMBLOK*SYFAILHXMAT J  3rP PLOCATE A13 A ITOS CCS 3.0 SL-149@P H/h T D `, U!`  ~1hd `"f@P+  `PV;PLOCATEP P C18DMY A14 A ITOS CCS 3.0 SL-149@P T T TPLOCATEXMRESVXMRETNPSYFAILP PSYUTIL A15 A ITOS CCS 3.0 SL-149@P # h ?T  X X XT fslOK X@P+`"2dD @7!1!G ϑGG # HKhK X@PV.`hAh;h?h9X 1T:5h+a 3h)a  h aaaadT f @PXW"f" Xc{9 XKcXB@P +XO"hh H XXTHfTX X@PXK d,H   X bh h h8hh:@P2N d h hTLfTXX X h  3@P-H XXTHfd dd XT funOK X@PX X h` h^h^T UZXQSR3 a4??hHhHDf"CbX@P7/Dh;h; t1"/LUbDbb/bb b `e"Daa a@Pd dh X X5M X)T f" X3@P  ( fX X h hT f-S[c@Pwx|& CCS ACTIVE -REQUEST REJECTED W A R N I N G : ALL @P/SYSTEM VOLUME FILES WILL BE PURGED. -REQUEST ABORTEDREQUEST COMPLETE@PZBATCH PROCESSOR ACTIVE -REQUEST REJECTED VERIFY UNTIL ? HHMM CCS DISABLED @PAT PASSWORD = PASSWORD ENTEREDPMAGE ECHEXmINASCMRETN#MRESV0LOOP =SWAPONCSTLPV4SWPSECSPASW  UNPIO PRTCDRMIB @TSTLOCPTSPORTTSPENDTSNABLTSLOFFTSIOC1TERMLUSTRBASSWTCH RETIMEzQPASWDMMLUTBMAXSECpLOG1A JOBINDPHORMINFILOADyDWSUB eBAITOSP PaBIN2AS A16 A ITOS CCS 3.0 SL-149@PHYhXXXhSXhQ ` hOKhLKB0 hG0HFBCV Atm;;m75@P+ 2#h0 `()[0 m 0  m  ` #@PVh PBINASCP8PKUP 8PREPP  3 PWDEC2HX A17 A ITOS CCS 3.0 SL-149@PhSHQXXhHXhF hBhD`hE @ h=:8QH "  0!@:@P++B$0 h!"0# hh#h  `l@PVPDECHEXP8PKUP 8PREPP PQ8PRMR A18 A ITOS CCS 3.0 SL-149@P ` `"ܠ܀PQ8PREPQ8PKUPP PIMAGE A19 A ITOS CCS 3.0 SL-149@P  `" " H h hTDf  PIMAGE PRETIMEP PMNTCHK A20 A ITOS CCS 3.0 SL-149@Ph' h"t"-h,cHbh@h$Nh%|{d+ T Tk@P+Hi!h h h THaBR`J T !؀vh";h@PVh? h< h> hA6"!f"hhhhhT ATTENTION: y  3`P@P HAS BEEN DISMOUNTED. @PHh` V"ԲTTPCCP MMLUTB+SYFAILMNTCHK$P PDISMNT A21 A ITOS CCS 3.0 SL-149@Ph~4h-4h&hC h@ hB hEHK"H4"!f"hhhhh6#h3@P+=T3 ATTENTION: HAS BEEN DISMOUNTED. @PVh` V"ֲTTyTPDISMNTPCCP mMMLUTBSYFAIL}PDISMNT PSTART A22 A ITOS CCS 3.0 . SL-149@P B0hX#X XXNT,1X@P+X%+T8 XXXXX@XXXXXX"X;T@PV8XpXXUX9T8X``d aB0V "Q1ODTU@P8XF` DH6H5f" "h bTHU% "!@Pf"bbXhX X0 d: XoX+X/T@P8XXX\X{?Td8XX Sj q2hOhKd `h@PT  8X$$PG  3@P-MNAM  B0` (hXXUXYT8XyX$$SWPB@PXUF e hXXyX}TK8XUX$$DAYFIL@P T 8X>B0`h@P8XXXX9To8XFX)TE8XTc8XT@P8X$$h@;$$PROCED@PP T 8XB0`hXX1X9T8XX:@P1X X)9T8XXj)TE8XTzEE8QXqhq@P\XT 58{X]B0`heXXXT(8XGXX@PX9T88X7DX)TDE8X+T8X$T8X_`P@P$$SYMENU$$ MENUPP X 8W!XWXkXs h1 @Ph< h:T}8XXjDh,h+$$hTAPE0 $$MOUNTS*2 X!@PX5fX=kT8XX>XX-9T8XTR8/X @PHh h T8XyLOCL$$HOST $ 1  3@Ps hk hcXXXT$8X@XXX?T48X0X@PG  0hBBȠ = 0h97 3h74h6TZ8X&%#'  d@P hDhTL8X$$BATCH @@J J001  @P X0XDOXLST8XXMX@PX<?T8XXlm@Ƞ ; 06h TYY8X)  &T@PJ8X|$$PRINT "2@PR  i@Pu DXXfX9T%8X8TM,+8X0~@P3 3~s{ svs nk f@PˀA qT,8XTI8XriuA> QH9B0F 0@P 0th,X@XT$X\9T8.%!XT8XT18X A@P!L$$BD (`PLp@P h THf`E U`y! 2`h K&XLD2@Pf"`b\d `d:*X7MdB03Fl)H& X" 7@Pd `bb 2b.b !TSLOG ULBUFF " @P=h  n h j q h j h j@Ph h?XX9T8XQT""E8XH99hhhhh@Ph h T""E8X(T8X" UHh]h3 h THf@P`E m1 Mj qX8 XT8T8T8@PT8 h hTLf#   3`P @P $$ SYSVOL `PH]@PEXECUTIVE PROGRAM NOT LOADED -REQUEST REJECTEDFILE NAME: ERROR STATU@PS= $ -REQUEST REJECTEDC C S ACTIVE AT BUILDING SYSTEM FILES PSTART PUNEQ MAGE INHEXINASC,UPDFCBGETFCBzUPDRECWRITER w `2PINPEQ OUTEQ LUNEQ PTSAREANPGLUNT&CLOSFL]OPENFLLUNAMEP P9FMCALL A32 A ITOS CCS 3.0 SL-149@P X X X X X XH$h$ H` aADeaaAa @P+a Vh`POPENFL CLOSFL PUTS READR GETS FCLOSEPCCP "P ]  3 : PSYSMSG A33 A ITOS CCS 3.0 SL-149@P HM!"hG!dhFH5  j9 qTNUR4"TNfSR*!v@P+TNR H H  -Xzf H   #3T Xk H  Xuf$$@PVSYMSGF$$ SYSVOL \"Xm HE HXCf  X\Xj H6 H X4f  @PX H$X% H X0f \ȵ" \` ȲX2whth @P\" h H ! qH  HHa2Ƞ(h!n 8 H@P X X' hdLH 1  :X H"A HB0Fh  0X @PQ 00j qa! 1" hh! u@P-  HTLDffDHHASYSTEM MESSAGE XXXX`PX`Pf(PSYSMSGPTERMLUCREADR #CLOSFL,OPENFLP P@ ULBUFF A34 A ITOS CCS 3.0 . SL-149`P@ P PFUNSEL A35 A ITOS CCS 3.0 . SL-149@P hq` a hvT~n%Ty~;T"~a%T{~.T~V%T@P+ z~# X^BX\ h:h@Ttvu|$w51 h0  X> aT  3 N@PV" *H (! X'T+x|H XT$$ @PMENU$$  h.! E  HTLD'Ow@P?g/WGo@@@@@@@@@@@@@@@@@@@@@@@P@@ SELECTION = `P`PPPGMOUTTCHAIN qWTREAD>CLOSFL%GETS OPENFL SYSMSGiTERMLUTSAREAP PMNDWMTH A36 A ITOS CCS 3.0 SL-149@Ph!@  " 2a"a ! A%dada`hdb@P+dbh@!Ha"! B  2ADa a`PDWADD DWSUB $DWMUL .P P$CHGTPT A37 A ITOS CCS 3.0 SL-149@P H\ \ h \ u"  H\\h\h\u" PGETCHRPUTCHRPQ8PKUPQ8PREPP P;DBATOU A38 A ITOS CCS 3.0 SL-149@P@2A@T a=al"  := aa c= =XaIaK 'g5  3 b@P+T !8UaX"h cQd X? aI aJ aKX j'X@PV JcV aT !G h  T,!H   &   @P: '*JOB,J:     H??5END OF JOB:v;*@P5{ !$? AV cW?) WARNING: OUTPUT DATA EXCEEDED OUTPUT FILE SPACE HT@P" HTAV 9 N"cW = aSXmh cQ!;?5aT;;>@P a)T- :67Ua;  ʧcV X =T,a   a;@P-Xa  = X!? &X =Xh cQ,<"> @PXT !8Ua:X aITaJ =Xh cQ kT^ !8Ua@P>X j#X<3:q a Xc4X< F"<32 b@P V!Ġ:  $  8 5 ? tEe@PcVX!DX/%a =E; aSX X. XX%aLaM @PaNaO %"X %cp&B0F 0 0tX"X&a = FcP@P/X$ 0F 0 0th7 H j4 )c=T} !/7Ua =X@PZh cQ4> aX8$$PRINT $$BD $$ SYSVOL c= cA aI@P aJaKXM j'XX:U0aXec VcLXaO %c"Xf@P%c^(  T  1  :9eJY cV  XiX$%a =? a $$PRI@PNT FILE FULL, FILES ARE BEING LOSTX$ aw  cVaWaX  Xz *JMNN REC@PEIVED, STATUS INVALID X; X> r7%=< #X@P1< 3 PDBATOUABSADDW  3 vPTIMER1FWRITUPRECGETS READRCLOSFPBATFPHOSTOPENFENAM ZUTZ EDUC rELET FREAT 6PSYFAILMMMLUTB>WKSPLU l" 2_X < 28X@P+j#a > 'cV X+< !!+ 0F400h cV X HOS@PVT NOT SET TO LU XXX)w  YB J%@Pe L>X>H@PױXX>X1#G X < 1X>X12< 2_X@P> X*# X < 1XX'a = XB0F 0 0t@P- %"X%cj&X X$X! `c= *cA H6 4@PXcE aI aJ aK>X. XB< 1X? j"$$   i X5@P8%V< XiXE%a =Ua<  :=VaV5@PaW V*Z  =wV  " x (f"? ' hVnn "@P *T*c **EOR  :( <>?? ? aVaW@P l lTRaV>X,< 2@Xq> 'cV X @P/< 2)X!X1 X\>\< 1X6> X+1@PW  XrXE%a =< 1X|}X&a =vT? ? < ,A< <Ia> > @P> (=w a!>XT'X XX'a = X!:@P1  a> > aVaWo*Za<   T@P\X# X+ a=w a?  rPDBATINABSADD?PAUTOBTMMLUTBSWKSPLUQSYFAIL`ELET RAUTON JBCNCLMIBUF LOADINSWTCH JOBINDFMEOFCMAS300ALTDEVpPYERTO 0MONTO /DAYTO .SECON 3MINTO 2HORTO 1TIMERFWRITaUPRECGETS READRCLOSF^OPENFcPBATFPPHOSTjP PNBOPENF A40 A ITOS CCS 3.0 SL-149@PT !8Ua$$HOST $$ SYSVOL $$BATCH $$ SYSVOL h@P+  c%>Xh c%h  hh c=PBOPENF'OPHOST;OPBATF@PPENF 3BSADD2SYFAILP PBCLOSF A41 A ITOS CCS 3.0 SL-149@PT 9UhXh c%PBCLOSFPLOSF BSADD SYFAILд  3P P!BREADR A42 A ITOS CCS 3.0 SL-149@PT :7Uah ="hhXh c%PBREADR PEADRXBSADDSYFAILP P!BGETS A43 A ITOS CCS 3.0 SL-149@PT :7Uah ="hhXh c%PBGETS PETZ BSADDSYFAILP PBUPREC A44 A ITOS CCS 3.0 SL-149@PT :8Uah =Xh c%PBUPREC PPREC BSADDSYFAILP PBTIMER A45 A ITOS CCS 3.0 SL-149@PT`h3h cPBTIMER P $  3 PBFWRIT A46 A ITOS CCS 3.0 SL-149@PT <`hhh3s2 2 (h51h=h<@P+ <X+<X(<;(8 d/d:3T TwKH  @PV BB F$e K 4"wrs`P@P$$HOST $$ SYSVOL `P@P3Tح hث3T h  AUTO BATCH MODE DISABLED.53$@P#"" #n n lww`TR*B@P ATCH,FPJOBSTRSWTCH  JOBINDMIINP MIBX MIB AUTON ATSNABLBAITOSLOSFL1ETS PENFLAUTOBTHP P4COMINT A48 A ITOS CCS 3.0 SL-149  3@P #/d+f" & b f"bb ""D d@P+d  )PCOMINTCOMUNP%PCOMM18#PHYTHDINTRSP3E8431S1C8431S0I8431S/QMINTX2AMINTX,PHYEQIP PDSUBRCM A50 F ITOS CCS 3.0 SL-149@P@P#@P)@P0 @P30112312@P8 @P@P@P@PZ@P @P @P STARPCFNB@Pm  3@PO N C L R @PC E R @P= h; Hhк @PM h"! + c^ P"  "T @PxȝHBhȕH: !H3 l, l% 5  l@P  lܨ lը 5 l P"̰ " d$̨d@P%̹H쌢d P( l̰Hd Pl A d&d'̹  d )d(@P l*lTq +( %d,n d-" : &m+*@Pg d.!T.d/ 9! !O lМ9\.l C @PE l\.l 9! ! 1d11d24"3"@Ppl5""  l  l, n  }n% @P  l $l@PlHlH !H l l 5 @Pl̶ d(d uld.7T0. @P]@PT 6+̲H 2l̪H !̤H l̜ l̕ 5@P l8d7 ll츶dL9 ܯ 1@ ;̤" 9 %@PH@PMH lH " H l l 5 l@PxT +:#T-  3@P^'@Pt lH $;l̺Hd O!=̳H !7 dLH ,@Pl̞d !"̘ !M@P__@P\ +<+ d?@Pbi@Pd@P Pu!( !$d2H # d"Hd O" l " l٬d " l@P @Pj@Po@P@P@P l P" l@PP@PlT"@P`@PT@P @P Z  3@P @P :H7TT hhP hZhhhh'hhh^ h\h\hDhh@P4\hrhhF\h\hPSUBRCM PQ8PKUPQ8PREPGETCHR#DATFMTZWTREAD{PUTCHRSYSMSGPGMOUTP PMINT M01 A ITOS CCS 3.0 SL-149@PTL #n qTH"%TRb  h@P+H *Z JI ̘Zd lA@PV*Ra[ μwC h,F"SdSdb  Tb@P T0T$̆dTR6{*K T$)n@P*# gT$T2 T$GTL h*BATCH@PJP05MI  ح hT n q l   h nTT@PH n hhTXTb TXPMINT MI MIB MIBX RELFLEJOBSTRcAMINTXPTSAREADCOMM181QMINTXLOADINQJPCHGERESTORLEND SWAPONLVLSTRMIPRO JBCNCLBATCLUJOBENTSWTCH 3PFILE1 JOBINDTSNABL8BAITOS5MIINP AUTFB wAUTF9 oBATINPjBATLSTrSTDINPmLSTOUTuP P SPACE M02 A ITOS CCS 3.0 . SL-149@P"3 a"aT   TT h  `Ƹ  3@P+ Cf d Qb4!bT"2@@hddd@PVT cTINSUFFICIENT ALLOCATABLE MEMORY D  À ` @P _^ # f" cK  ÀB  d d @Pfl n fl n  t ` T7H T @P f"f%f%ddd/dd@P TR"TR  2b dT ,TI@P-MER REJECT  h 3h `  @PX   3. b1bD ` 1h 1hTDTH".@P `"**" E"eTL". `  h TD@PG@ sh oh TH`.` \? @P R O!0 @II" IBiBh h TL`. `R@Ph TD"}T TbFILE MGR. SPACE DIRECTORY ERROR `P/_@Pd_  /H*h)Wh&T / H hT  Xj@P] 5h1S 5h1I!F!T@P"y eB"ty eBfX X^@PX X X\S X\O X\K XCX| X=Xt X\7 X@P:0Xh Xy+Xa Xr\%`Pe@Pi0H0 h-- h.(2 & h$  Llt Y\  3*@P     hH  B8 h( 0h hT@PL  $!'6EN[XXXXK BYTES OF MEM@PORY - CPU I.XXXXK BYTES OF MEMORY - CPU II. INSUFFICIENT MEMORY - CPU I.INSUFFICIENT M@PEMORY - CPU II. PAGE REGISTER ERROR.NONCONTIGUOUS MEMORY - CPU I. NONCONTIGUOUS MEMORY@P@ - CPU II.XXXXK BYTES EXIST.XXXXK BYTES ARE REQUIRED. SYSTEM CONFIGURED FOR USE OF 186@Pk0-5 DUAL MODE MAG TAPES (50 IPS DRIVES)SYSTEM CONFIGURED FOR USE OF 1860-4 NRZI MAG T@PAPES (25 IPS DRIVES)  X X dDDd  f@P hh hl ! LL ll!@P DhT  +H+*Bl(hTH". h h @Pn q h h n a).@PP'QhP dV \  HT _T " /dm@P{)* D T Tm""f" dSdUp@P" CCS 3.0 -- PSR LEVEL 1 SET PROGRAM PR@POTECT (ESC J28@) ERROR - MULTI LEVEL INDIRECT ADDRESSING SELECTED@PPSPACE T10 STMSV4T17 AREAC ALCLGHPMT50U1MT50U0MT25U1MT25U0XMATR XMAT P83310aPCORE OUTPV4RDPTV4SPCEV4PTNRELPTNALCSCH PREL NOG30ASPACE4OUTPUTSYSID zSYSYERSYSDAYSYSMONTDFUNCMIBX EFLOCKPSIZV4LSIZV4N15 PN14 N13 N12 N11 N10 N9 N8 N7 N6 N5 N4 N2 N1 AUTFB PAUTFA AUTF9 INPTV4IUP K65T10SYSLVLPROTECLIBEDTJOBENTLOG1A TMRTYP UPTOD MNTCHKMMLUTB)  3>PSYFAILEND0V4;EMPSRTTBLADRDMICODIDLE DTIMER CALTHDQLEND 4LVLSTR0RPMASKSAVLU CKTHRD LOBDTBPUPBDTBLBPROTUBPROTP P]MIPRO M03 A ITOS CCS 3.0 SL-149@P `h<H:9"9!7 h.0 *(hi'#%h  h@P+ D`! 2`1o=S $EF $EFMM$EFLU$@PVTON $TOFF9$SYSC$DB $DX $DATE$VERI$@PTIME$INIT$STAR$STOP$PASS$JIN,'$JLT,8$IN@PP,I$OUT,I$LST,I$CARD$+REW,$RSV,$SAVE$REST@P$ SCOM$WRONP$WROFR$CCSD$UP $ DENS$ SMDC@P$ SYID$ LPCF$   b D @P-b b !԰hh"_hTR dT@PX d+L  2b ) d\4". 2 h. @P" XhXXa@D  a hT 7@PMI INPUT ERRORTIMER REJECT TAPE SIM ERRORf%e d@Py@XBh@X>Ĉ;h9X75XC hcB2Q1X$$hQ ,@PIXhXh X hX"3 8 & " " }@P/Hh 1 FhD 1 H AQd XBXQ WXY-d@PZd`X1X@ RFXHd`bhXX,  c.X0b@P 2 2  XhXXh" 4{"  3R@PŠ  H h2629 qf"|X@PXHŠ T3~k0h) XEX"@Ph@PpG(  aDQK X Q 2@P- 4  2  aN9Xn # 4 XEND0V4 aQ(uaalh  @PXaNX X pXB  aB0`A h+ aB0`A@P hvIX!X]IX! IAA{XH́{a{IA Cѓ< (:@P" fH3N B fN (X(h%FXN R4%42 @PّfN  B0`heHgRHi   aVB@P XX{hhXPARTBL aQ(a hV "%  h hXLSTLOC aQ(@P/bȵh? "" aȧ " aaX XMSIZV4 aQ(c !hhal a{@PZ haW aNhtX ,aB1 !ataka, B X{hXhTXXXX9  3z@PD :{h{DhBa{XXXX kat,aB1 !h aka,vh h B1 @P!hB XyFXB X   XalX {XqaXwDb @Pa{ aNaaX9XMBuAN aDQKI# Ia'@Pa"H  aQ(b #X  IhkX\ghj a XX@P1XJIhQXBMhPpaka,navapaqFaWX XNEX8 XQEX8 @P\XWC X]%Q!є ( "f {fN  f@ fX 8@P B Xa{hCh?XXX X{h2B XEX XXX@PXiXR Ih2 2 %X]!XTIh{3x 1XNXEI@PhXhXUB XPARTBL aXQ(b &hrJoah|alB@Pfa aNaaaka,ava aWh-aX'h&X { a{paq1F@P3X X4DXY X7DXN X<C XAX hhhX a@P^Q(bah ala BXSECTOR aQ(b $Xh " !@P saka, taka,9 ` ;c q`#A@QZ94H@P 44h  XL@ XX9X Q ERROR BX   hCXF>@P aDQK Is IX 42  IjX5Q1X@P XX*A I H hhhh  hh@P5huX& Q B0`A FhDX aDQKX h@P`hhX XXAIh H  a aQ(q N# @PaXXZDaPXT aP XA aaFXEXA,0XENABLE ADDRE@PSS WRITE--THEN CR  XB9XXXDISK ERROR X XDI$  3@PSK REJECT  XX4X+Ih!X?Ah&h?Xh;X!X;UUhDh4@P XXX3hX XX-DhXXX( _j q @X X6  1@P7i H@Xs `X01Q _i q?`QZ3h#4h"@PbQZ3h"4h!SQZ3h 4hȷQZ3h4hXDISK COMPARE ERROR SECT XXXX WORD XXXX IS XXXX S@PB XXXX X H~ȟ`QZ3h 4h X DISK FAILURE XXXX X@P`P7@PXX aNawafadh{ bwv [hr hW(!2hg:hd?!z@PEha^X\X@$SRO HMNzhLVavUaX(XSTMSV4 aQ( wX>@PpN@ [ f QCXUNPEND aQ(r `XXUNPSRT aQ(@Pr 5`.XXLSTLOC aQ(a " &`@PXXAREAC aQ(```Xa`PE@P6 nhU` H ^Db E@ XL#q`XDATBAS ha aX@Pa f)'hXSWAPAR a aXa aXX fXXP,kXX@P,k# f ftB1X:,kX fhZ c fh `hS  f# aWX@P h XJX aWXC X hXzh1 h$,kB1A dh@PhQ@ `XN@ GX S`h Db A@P @XB8hG  C lc B8׈hDF BAll@P 8RAQ@X =XINITIALIZATION COMPLETED - YOU MAY AUTOLOAD e  3@P cXXERRORS OCCURED - YOU MAY ATTEMPT TO AUTOLOAD  X dPRSTARTTCODE IN OU  CO !COMMA $VALID ;CM45 CM65 BACKGRLSSECTTYPEQ QTYPE ERFLAG PFMXSECkPMASS MARSTReART1CIGNCKART1AART1LATLM1ATBS1ATLM0ATBS0ENSDTCNDSECIEADR1URTOUTPISKWRLNTSTRuPRINT5COM 2MASS MTAPE)CARD &PTAPE#OLU ASS IB ORMFD]ELOUT COM PDRIV EETERM=DRIV ABLE LOAD ONMS ONMS1ONMASZONENTSAV 2 o1 92MZV4VP P|I2 M07 A ITOS CCS 3.0 SL-149@P  hN HHhGhI DnBB  @;RX jI qX hIO B8HA @P+hB@h=hLX9# H8h8H?h?X @ "RX<$@ RXD@PV`SYSVOL 00 `PI2 I2RETNPART1ASPART1LRPART1CQPNFILESsIZMAS0EADR1MXSEC!DRIV MMINITU P PFMULOD B01 A ITOS CCS 3.0 SL-149@P PFMULODPFMUTEXP PFMUTEX B02 A ITOS CCS 3.0 SL-149M  3`P@P8@P0HELP 0INIT 0DEFINE0STATUS0RELOAD0DUMP 0 COPY 0%DELETE0+CLEAR 0.LIST 01RENAME@P3+7COMMANMOUNT ?DISMOUBSAVE DBATCH GLOAD OPURGE TINPUT WOUTPUTYCOMP@P00VRE[HO0ST ^SE0T bBA0TS eDI0SCARiDI0SPOSkFL0USH rPR8INT u@P0FN0OWVLDK0zNFx0EDlTYLR0NR0K1P1K20P28K3P3@P00K4P40SA0I xP xM 0}L x0F2V2D20zPNx0F |HO|OP@P3NC0xSC|0DOxPTxJN0LUx8M @P0@P0@P0     @P0@P0@P0 @P0%@P0+@P0.@P01@P07@P0<֢  3@P8>@P0?@P0B@P0D@P0G$@P0O@P0T@P0W@P0Y@P0[@P0^!@P0b#@P0e"@P0i"@P0k"@P0r @P0u@P0 @P T33?/dTp0dT1xm d0XTx@P+~m h0 <  l0  l )  *@PV  W tnn#h h %  lװ#l@P lPGETFLDP PfMMSIZ B10 A ITOS CCS 3.0 SL-149@P HXhWhOhVhThGhF >"`K J+D h<1h0Gl/Fl@P+*a"!/  "h!(,`Ϝ # lLhT[\ `@PV.EF7PMMSIZ PSYSMSGM4  3!P P!GETVIT B11 A ITOS CCS 3.0 SL-149@P Hhhh " `"m  `PGETVITPMMLUTB P P)tUTSTRT B12 A ITOS CCS 3.0 SL-149PUTSTRTP PGTINIT B13 A ITOS CCS 3.0 SL-149@P TPMARKERUTSTRTPINIT P PGETDEF B14 A ITOS CCS 3.0 SL-149@P TPMARKERUTSTRTPDEFINEP PGTSTAT B15 A ITOS CCS 3.0 SL-149`V  3".@P TPMARKERUTSTRTPSTATUSP PGTDUMP B16 A ITOS CCS 3.0 SL-149@P TPMARKERUTSTRTPDMPFILP PGTCOPY B17 A ITOS CCS 3.0 SL-149@P TPMARKERUTSTRTPCOPY P PGETDEL B18 A ITOS CCS 3.0 SL-149@P TPMARKERUTSTRTPDELET P PGTCLEA B19 A ITOS CCS 3.0 SL-149x  3#B@P TPMARKERUTSTRTPCLEER P PGTLIST B20 A ITOS CCS 3.0 SL-149@P TPMARKERUTSTRTPLIST P PASCEBC B21 A ITOS CCS 3.0 SL-149@P h<h4h7/ @ H'h(, h(''h# Xh!XhQhAȸn@P+ Hq !D"  @ Z  { [ l P } M ] \.N? :#M@@']=@"m @@Pabcdefghi jklmnopqr @ @ @ @ @ @ @s@t@u@v@w@x@y@z@ @ @@P @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @A@B@C@D@E@F@G@H@I@ @ @ @ @ @ @ @J@K@L@M@N@O@@PP@Q@R@ @ @ @ @ @ @ @ @S@T@U@V@W@X@Y@Z@ @ @ @ @ @ @0@1@2@3@4@5@6@7@8@9@ @ @ @ @ @ @PASCEBCP PGTRENA B22 A ITOS CCS 3.0 SL-149@P Tx  3$VPMARKERUTSTRTPRENAM P PtCOMAND B23 A ITOS CCS 3.0 SL-149@P d00dT3~1T33~0 hzDhv `!@P+i T h0hT1xG @PVTI1xDhihaH2d`"**j,(" (R0"j!" TX@P1x `h?"Dh  ,@P @P PAUSE  PCOMANDUTSTRTPCLRSCR8GETFLDPGMOUTWTREADP PGTMOUN B24 A ITOS CCS 3.0 SL-149@P TPMARKERUTSTRTPMOUNT P PGTDISM B25 A ITOS CCS 3.0 SL-149@P Ty5  3%jPMARKERUTSTRTPDSMOUNP PGTSAVE B26 A ITOS CCS 3.0 SL-149@P TPMARKERUTSTRTPSAVE P PMMCOPY B27 A ITOS CCS 3.0 . SL-149@P TTh\hoT  "`" hh|hho@P+hhhIhhhhhAh`  "`" hhh8h[hVhhh@PVh-hMhhhh#hCDhhTTl,h+h/(#@Ph, hTuX|X "  h n t@"h@Ph H n sT& X,XW%OKXhth@Ph( hX h hh h X X X΀h@PXT&c #vh8A "V h!" h@P- i"1h "1"8o%hs.hd`hh hZS@PXhXPhU3Mhh hGdhE7hB4h?7hh h1dh/@P#h"%h$h$h! h"X`q #@P` hc h^ hY hT#**hT  3&~@PU$**hP%**hK&h;XlA`c #` hE h@@P h; h6#**h7$**h2%**h-&hBAhh,CKh @P/h'UPhh"MAhSThERhMAh SThERh X X@PZ X X X    Xx 7@P : 2 XV XSX~LGOX_hS h]@P\hg hehcZh!&"]  0hB 0h+ @PXX> OKLDh! T hhDh.h/HDhh%THD@PbTLDb־@P1`nX`nX`bXg1ɘa +R7Od(Hh@P\hȮh"M<RN JR@a&ȚhX`bDX#@P'3, X`XYȠdhgXehX&qhVnhS@Pkh[hhXDh[hZ X0 X+J (Fd %> @P2$ ` h hT D H " Da@P TLD THD T D 0`" hJXS@P3hL$XPhH$XMhD$XJh@>XGhD$XDh@$XAh<$X>h8 2 H// H,, H)) H&& H#@P^# H HȈh~Ȉh{ȈhxȈhu Xvh@Pd 3 0 7TURN OFF PROTEC SWITCH (ESC J20@) AND TYPE CARRIAGE RETURNSET UP VOL@PUME(S) TO BE SAVED AND VERIFY  VOLUME SAVE COMPLETE.I/O ERROR NOTED.VERIFICATION F@PAILED AT SECTOR VERIFICATION OF CORRECT SAVE VOLUMES PACK VOLUME N@P AME LAST SAVE DATE TYPE FROM  >  3'@P5 TO WARNING - YO@P`U ARE COPYING FROM A BACKUP TO A MASTER VOLUME WARNING - VOLUME NAMES DO NOT COINCIDE@P WARNING - DATE ON COPY TO VOLUME IS THE SAME AS OR LATER THAN DATE ON CO@PPY FROM VOLUME TYPE GO TO CONTINUE, EX TO EXIT DESIGNATE COPY 'TO' PACK AS: MASTER@P=1 BACKUP=0 ? NUMBER OF PACKS NEEDED FOR THIS COPY = PACK NUMBER MOUNTED, SHOUL@P D BE PACK NUMBER VERIFY MULTIPLE COPY - MOUNT NEXT PACK NUMBER VERIFY  DRIVE/D@P7ISK ARE INCOMPATIBLE AS TO WORDS/SECTOR REMOUNT AND TRY AGAIN  @@Pbh!@ H"h!hhh hXh "XH" H h T`@P`h!@  " 2a"a ! A%dada`@Phdbdbh@!Ha"! B  2ADa a``P^`PA``P``PPMMCOPYPLVERWPERWPSCPSET PARTBLTODAY SWTCH JOBIND MIBX EFSTORTBLADRDMICODEMPSTPMMSIZ sSYSMSGPQ8PREPQ8PKUPP PGTLOAD B28 A ITOS CCS 3.0 SL-149@P T;x  3(PMARKERUTSTRTPPRELODP P3REDREC B29 A ITOS CCS 3.0 SL-149@P H,h+TTh&\h%\h\h"?/hhTHyDl `L@P+ /!PREDRECPQ8PREPQ8PKUPP PGTPURG B30 A ITOS CCS 3.0 SL-149@P TPMARKERUTSTRTPPURGE P PkGETBAT B31 A ITOS CCS 3.0 SL-149@P TPMARKERUTSTRTPBATC P P%CNTCHR B32 A ITOS CCS 3.0 SL-1496  3)@P H hTTh\hBLH   B `PCNTCHRPQ8PKUPQ8PREPP PGTCOMP B33 A ITOS CCS 3.0 SL-149@P TPMARKERUTSTRTPCOMPREP PGTRELO B34 A ITOS CCS 3.0 SL-149@P TPMARKERUTSTRTPRELOADP PSCHARMV B35 A ITOS CCS 3.0 SL-149@PHHTThET""h>T h>T""h7T""0/ a1*+XX "@P+%4"Xh3XX  `PCHARMVPQ8PKUPQ8PREPP 1  3* PBMPRRN B36 A ITOS CCS 3.0 SL-149@PHTT"h$   LlPBMPRRNPQ8PKUPQ8PREPP PkGTBATS B37 A ITOS CCS 3.0 SL-149@P TPMARKERUTSTRTPBATS P PkGTDISC B38 A ITOS CCS 3.0 SL-149@P TPMARKERUTSTRTPDISC P PkGTDISP B39 A ITOS CCS 3.0 SL-149@P TPMARKERUTSTRTPDISPOSP q  3+ PkGTFLUS B40 A ITOS CCS 3.0 SL-149@P TPMARKERUTSTRTPFLUSH P PkGTHOST B41 A ITOS CCS 3.0 SL-149@P TPMARKERUTSTRTPHOST P PkGTPRIN B42 A ITOS CCS 3.0 SL-149@P TPMARKERUTSTRTPPRINT P PkGTSET B43 A ITOS CCS 3.0 SL-149@P TPMARKERUTSTRTPSET P  3, P1PRINZ B44 A ITOS CCS 3.0 SL-149@PH,TT""h%T" ""h Hh"h T ""hTL+@P+DLPPRINZ PQ8PKUPQ8PREPP P)MPWRXX B45 A ITOS CCS 3.0 SL-149@P h  ɀhHhh H hT!@@@PMPWRIXMPREDXP P OBFIMK B46 A ITOS CCS 3.0 SL-149@P H fbPOBFIMKPFMRDEL FMEOFC P POBL000 B47 A ITOS CCS 3.0 SL-149@P POBL000PL000 P r'  3-  PRWBUWM B48 A ITOS CCS 3.0 SL-149@P HHhh hT\@@PRWBUWMP P UTEFCK B49 A ITOS CCS 3.0 SL-149@P H  " PUTEFCKPLOG1A P PAS2 B50 A ITOS CCS 3.0 SL-149@P Hh`ȁfȁb`PAS2 P P2CHO2LR B51 A ITOS CCS 3.0 SL-149@P H*h)`h'h!h  Qhl ` h h @P+PCHO2LRP PsCNVRT B52 A ITOS CCS 3.0 SL-149@P Hihf`hc DjH qXhUS jJQȠ jE HKL HJ AHDHED h3XT9  3.@P+1,h&+h%3* 1L ) h+TT(! l l @@PVTrg 3PCNVRT PSYSMSGmDWMUL +DWADD AP P#FRHX B53 A ITOS CCS 3.0 SL-149@P Hh`hDhBh 0 q c H A`PFRHX P PGENEOF B54 A ITOS CCS 3.0 SL-149@P Hhh hT `\@PGENEOFP P6BLD2 B55 A ITOS CCS 3.0 SL-149@P H3h0`h&h)Dh"h h! Qhn` h @P+PBLD2 P PORDER B56 A ITOS CCS 3.0 SL-149@P hT  3/2PUTSPECPLDIXODP PnPRELOD B57 A ITOS CCS 3.0 SL-149@P  `HjS   DjOB 0 hRTc{P0 !&TcY_PT@P+cQ" *h)h(h h hTH@HhTP H@UTORLD@PVUTRMLD$$PGMNAM$$ @P PPRELODPSYSMSGKREADR %OPENFLCLOSFL+FMULODP PRANDOM B58 A ITOS CCS 3.0 SL-149@P hTPUTSPECPBLDIDRP PSEQLOD B59 A ITOS CCS 3.0 SL-149@P hTPLOAD P  30F P!TOWT B60 A ITOS CCS 3.0 SL-149@P Hhhhh hT`D@PTOWT P P5VLTOI B61 A ITOS CCS 3.0 SL-149@P H/h.`h,h'Dh*h((`B 9H!  0 nH DQ S  0n `'@P+d PVLTOI P PKIBMGR B62 A ITOS CCS 3.0 SL-149@P H   0<4$0hhh 8h" D ujjjj< @P'sf sjhhdhhhh h`CH@0h=@ @PRH9H=h8h<H/h/Dh2T- 0 b0d`T0@ d0 d@P}aA aDd@P bjA 2lXlHZHY` hNhNhNDhOI HGD@P TMLLF !DnB;2?h8><6 n4H)H$RD ((08dh@P&Hhh ! HDh@P7Dd@XD (hT Xx!hD (̀h@Pa[5  31Z@P@P  sn `  sg"HYHVB hTS HQaXI (C@P0hT)X:!.@ HhH.h.H&h&Ta& X@Phf"bTX D@d PINIKIBNXTKIBGMRKKIBFREEUPGETKIBWRTKIBPDWADD sDWSUB FMEOFCUPDRECREADR IP PGETSSZ B63 A ITOS CCS 3.0 SL-149@PHTThTh K" lPGETSSZPMMLUTBQ8PKUP Q8PREPP PUTCKLN B64 A ITOS CCS 3.0 . SL-149@PHTT""hTh  < 8(lPUTCKLNPQ8PKUP Q8PREPP PWVERWPS B65 A ITOS CCS 3.0 SL-149@PHChBhAh?:"H:h X h 'hTBD" Ia$F "$@P+t#Ƞt  t  l`2  32n@PVPVERWPSLVERWPPLOG1A P P)TODAY C02 F ITOS CCS 3.0 SL-149@Phhhlll@PH TTh h hPTODAY PQ8PKUP!Q8PREPAMONTOADAYTOAYERTO P PERCHK C03 F ITOS CCS 3.0 SL-149@P h h h h h @Ph 1"! 1LK~@P="! 1 h h h@Ph h h h؍"! 1@P/@P0@P  d@P17@P loc  33@P2@P l@P3@P l@P4@P5@P l"! 1@P6@P@P7%@P@P8J@P@P9T@P;@P@PIg@PJf@PKe@PLd  34@PMc@POa@PP`@PQ_@PR^@PXX@PZ@P\@P-@P,@P+@P)@P(@P'@P&@P%@P$@P#@P @P*  35@P@P@P@P@P@P  l l l lܟ̞"! 1@P l"! 1@P`@Pd@Ph@Pl@Pp@Pt@P@P@P@P@P@P@Py  36@P@P@P@P 3d 4l"! 1@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@PJI  37@P@P@P@P@P @P @P @P @P@P@P@P@P@P@P@P-@P.@P0@P1@P2~4  38@P3}@P4|@P5rp 5ld̴ܵ"! 1GCF@P`OM lAܒ̑"! 1 $$ #,  l@P l"! 1@P@P!@P d"" 2@P l̴ܵ"" 2 &@Pl &l l܇̆""& 2$@P& l} /ly 0dt""V 2TlkjihSf dcba`@PQOR][Y 6lM""| 2zFEDCB-@>=< :),75@P|3 7l'̲ܳ"" 2   8l@P̉lT@P5{@P6z@P7y@P8x@P9w@P;uK  39@P<t@PP`@PQ_@PR^@PS]@PT\@PVZ@PWY@PXX@PYW@PZV@P[U@P_Q@Pu;@Pv:@Pw9@Py7@Pz6@P{5@P|4  3:@P1@P.@P@P@P@P@P@P@P@P@P @P @P @P@PH TThX\h|DPERCHK PQ8PKUPQ8PREPSYSMSGP PuINIT C04 F ITOS CCS 3.0 SL-149@P_  3;"@P00@P@P = @P @P@P@P01@P @P@PcVOLUME-NAME=NO.OF.FILES=DISK-UNIT =@P~ VOLUME= @PA@P@PV(@P@PY? @PX @P h h dBhhhhdCdDhhhhh hhhhhhhT hؾ@Pn  h f00f0ث 1 !k-Ȝh ( h YȔ h @PhȔfȋhȌ;؊bnl d lΗl / $ 0  3<6@P@ld00d0d lT1xAWdD @m d l@Pk 1 l\xA1~VW dd3T~3ZZ 2/ ! [W@P " l̩Y   l]̛X Q @Cm IB d@PΚ)d $ l0 dD @m  'd d@P dۜ  @mܧ 3l̝lĜ  @mܐο @P, l0d0d=ΌI 1T= dT= l̳   "@PBm1 dD ! L C zH$h}z@Pmzd Bh6 "x`h( h hh"hh@PhT h h hTHl `dT@Puh udT\v\@Pvl\\u\wdh8 dT+=|h, l@PdF &T4x=dzd{Tzx #x y l 4d@P> 4d0 TB l d} h`d dlp<@Pid@, dd dnf 1ldd  d d!@Pd"dd 2PT>?ab >d? dd[d\@Pd]d^h h hTL@P@@P@P<@P hh hh "lh h TL֗  3=J@P[e@P@P df~ 1TQ1~xAW\x1A~VW ddT3;~@P/ZX  dhT = dQ@PI@PI /d @PtM@PM /l 0l@PS@PS Vl@PV@PIV@PVTK0B 2 "@Ph@Ph @ HHLPINIT mPDATSEPDATFMTMOVER MOVEL @MMSIZ MMLUTBSYSMSGWCNVRT &PGMINTWTREADGETFLD*VERWPSTODAY MVCHARP PHOST C05 F ITOS CCS 3.0 SL-149@P$V  3>^@P @P# = $$HOSTSYSVOLDEAD20HALOCL@P@P(@P @P? @PHOST NAME = OPTION = PROTO TYPE =@P@P5 hddhhhddh hhT h]n  h f08f@P`ؼ 1 !j*ȯh ( hͨ Xȥ h hȥfȜhȝ9؛@Pnؑȏh d"dΦd" / $$ l#d0d%d l@PT1xd @m d l 1 1l\1x~@P dd3T~3 2. !YU " l̩   l@P ^̛ O @m }D dΛd" $$ 0l @P7d @m  'd d dܜ  @mܩ@Pb 3l̟lŜ  @mܒ , lddT1 @Pl 0  " dΗ ! ΑL  ̝ @P&d'd(dd0)d0*d0+d0 d0 d d d08d@PT3 "0l1T "0,b-0 ,d"@P ld!} Δ0|  ld= θ  Բ  3?r@P9dx. /0f1nnn1T !^@Pd̥$l ld=Χ  ̬̾ l`ͤ2 N4Ҕ3@PK d!!L 9ξH 2ηD +ΰ %n@Pn fT d l l l l l@PM@PT0 25 "@PF@PT @ HH7PHOST PWTREADGETFLDSYSMSGMOVEL OPENFLPGMINTIGETS UPDRECYERCHK CLOSFLP PbMVCHAR C06 F ITOS CCS 3.0 SL-149@P@P@P /h. h,hh!4 A hHh h A hӨh  @P6Јn@P?h Ènػػ@PKHTT h\h\h\ h\hPMVCHARNPQ8PKUPTQ8PREPQB  3@P P'aDEFINE C07 F ITOS CCS 3.0 . SL-149@P@P"6SYSVOLK1@P"<@P"? = @P"CN O R @D @P"L12319901@P"V @P!FILE-NAME =VOLUME-NAME=EXPIRE DATE=FILE TYPE =RCRD LENGTH=NUMBR RCRDS=KEY1 LENGTH=KE@P!Y1 POSITN=KEY2 LENGTH=KEY2 POSITN=KEY3 L@P"ENGTH=KEY3 POSITN=KEY4 LENGTH=KEY4 POSITN=SCTR ALGNED=@P@P(@P @P? @P S@P I@P A@P Dq  3A@P"$%@P"Z hdhhhhd h dhhhd)hhhhhT"4"3 hعn  @P"h ffئ 1ȢdȠd0ȞdT!0!dl0"dm0#dn @P"",ζ ( d"5": l n 1 l̽ !l0d"; $"< l΍@P"ۤ"R  d"= d">"?0fl8!nܾl d")̯l@P#l - $"9 ldΥd"@d l1T1")x",l @m@P#1 d"* l d"5"+ 1 l\x1~ ddT33~ @P#\2] "#0 " l̥  ̳ lX̘H"R ) @@P#m $"9 l": d"1",L  ܓ !Y@P#"5L  l쬼d"> , 0l l l @myϬ@P#  Ed"( d"+ d"*H Α"R , lΖ l @mܒ@P$̡ 3̝l", l̲H  @ed"A $"9 d"58d@P$3")d" hH$ "&H"! 10NMLK@P$^JIHGF1T"){T1")")t d(\")"B(T" " "f"^ @P$l\")"B(\" " h`""aDd`>","R @P$ 0"C"D"El!"G"FdRl"HdRl@P$ߔ"I d"/"A"! 1,6̯@P% H 6h5"K" 2"L5 2T"0!# "@P%5&+ !00! !"M! !" 6"N2֔"O&+@P%`&+؜&+"P;8ʜ5Μ2&H d)̾H"R &H̶H  ̱[I  3B@P%H  ̬H  d"2 l l"d"0" &+ "&+ &H"Q@P%"&Hq !m "&HeHh ̲ Zv@P%̧ Td"1 M !H̽ !`B) =̶ 9̮ !4̫ "Sl̥@P%h̠ !A#@P%@P0& H"R 8H 2@P%@P&H +H %H @P%&+@P%&+@P%*&+@P&+ Ed"(T"(@P$&2@P$&2@P0&2"T 0 ", lc@P$&H@P%F@P%E@P%C@P%&H&  3C@P%&H@P%&H@P%(&H@P&H d"*  "@P"&Q@P#9&Q@P#&Q@P&Q #T1"'"' &T"'d"U d"5 n 1l0d" @P&|l d0 d0 `d00d0ld!0md"0nd#T1"' %\"' d$T@P1&$"("'̯ %\"'0lllT%,!0dodpd0q"2d0rT9$"("'@P&̊ $0\"'k"/ Q"V$ Ed"(Z d"5"$7"Wf)T"%8p4d@P&"X"E p4"%d"Y, !,d%pl l ' l l"= * .,@PiyT1 "T10i0 T0i d0T "j @Pdw\10i \0iT11wŔx ,̽L =̶ "@P0 Y 4 0 dn00/  1 dliTi @P 2 dy dhl !0  ln 1̸ ̵  l@Pν ܳ 1rlMl0 ̡ Nl dz{  lY"@P@= *   dgHhToHh@Pk\o}d|̵~ ll  dnfk 2o  l@P0fn 2h "dd ll drkhghh`@Ph3hTHBd l! ,h/  ,/hT @Pܒ@P\1ܻ 1T^\((Ȅ)d5*+d6,Ȅ-d7.Ȍd  3H &@P8Th_h\d bl 0T d d  l @PFlZddd d d dHhd  /d@PqdT\Ȅd#d$Ȅd%Ȅd&\]̒ @P \`\a d\;^@P@Pl 0 }_ dTT,\oprd4d@P <ܵ 10lT<\?0Ql\<\=W\K\lp\Kz !d@P "d#d\|vT _ dhg "@P @P @P T@Pu @P @P @P T8   3I :@P @P @P )dc@P @P Tc0 2 "@P @P  @ HHPSTATUS PDATSEP DATFMT%MMLUTBWTREAD #GETFLDJSYSMSG MOVEL OPENFLlGETFCBTODAY SEKVITwREDLABNXTVOLPGMINTPCLOSFLCONVERFDWADDCLRSCR -TOWT FL2SP RIGJST XVLTOI aCHO2LR dFRHX GENEOF ERCHK P PlCONVER C10 F ITOS CCS 3.0 SL-149@P1B@'d @P h h h (hT@P#  1  (hT@P7 0n    h@PI n 1  0l@PXHTThhhh\ h hPCONVERZPQ8PKUP`Q8PREP]FDWSUB FDWADD4!  3J NP PDMPFIL C11 F ITOS CCS 3.0 . SL-149@P@P@P = @PTAPE0 @P@P@Pd@P@P@PFILE-NAME =OWNER-NAME =VOLUME-NAME=OUTPUT UNIT=@P(@P @P!? @P@P@PEOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF @PmMOUNT NEXT TAPE - (CR) WHEN READY @PlG  3K b@P@P@P@P@P FILE NOT DUMPED@P @P hdd hhhd h d hd"hhdxhT hhhhثf @P hf f0ؗ 1 !m0ȅh ( hݨ Z d d@P*0fl9nl dlγl / $ l@P0Uddd lT11x̰d @mܥ d  l@P 1 l\x1~ ddT33~ 2/ !a[ "@P l̨!   l[̚ W @m V@ dΞ@P=d $ 0l d @m  'dT @P dz d՜  @mܡ 3l̗l̾  @m@P,νdι , lddT1 l̿   "E @PWdΐ ! L   d0x ldy dz@Pd0{Tx  9 4dTdRlT d0 d d `d@Pd 3 d0 ~l % l l & l @Pd ߜ  l " l l & lܿTd̹"@P> * T " d d ̲  !f  3L v@P. dT T T11  L 1 "8 @PY `d d   ld "l 1 d +f@P 1Tc1~ d 2 l d6f0@P 3 d~  D l00/  14T3  "T3@P T>  d0TC11 "IT " l f@Pܙ 1d "l ddddpp8;ll l l dTvd̗H @P̐ "T1 "L  7d@P !1\ "L  ldd  d!@P0d dddddddTVp  @Pi @P} @P*@P hddhhhddhhhh hh (h hEfw 1d|d0}h@PhT hذ00n  h ff؝ 1 !l.ȏh @P ( hα Z h hȉfl:!nl d!@P7ll . $ ld0dd l1T1xl@Pb @m d l 1 l\x1~ ddT3;~@P 2. !Y0U " l̪   l\̜ O @@Pm }B d.d $ 0l l @m@P  'd d dݜ  @mܩ 3l̟lƜ @P nܒή , l0d0dT l  0 " r6@P9 d ! L   l0}  1Z  3V!>@Pdd0d0 `d0 d d d0T@3T "0d lT@PL 2 "T ""l #d (#@P d `l l l l1\̷ "0 0x dEfw 1T@P1x?/h0 T|)1T,S00d8`1d@Pa2db3dc@dhAdlBdpTJ "T1 )@P; D   5B̠8x@Pf d lTT  dd8ΰf@Ph h T@PT& l @P (l0Ҕ & (l "l\̼h̼ h\@P\̮  (l lM dTo̗d dd " lTt@PhT@P\l !"7 $ l  (l (l@P, "l lҜ  l (l d!T0!@P0L@P0LxTW1C~0T l@Pbb@Pb\ d7fnTܟܞ@P@Pɖ  3W!R@P@P@P@PC@PT8@P@P ?d@P@P @l@Pd@P El@P@PT0 2 "@P@PT@PA@PR@PT @ HHPLIST PWTREADRGETFLDSYSMSGFMEOFCMOVEL 'OPENFL|GETFCBASCEBCFTODAY yPGMINTCLOSFLLUNEQ CLRSCR\RIGJST  3X!fPTOWT wGETS 2RDNP FL2SP FLHXLRERCHK GENEOFP PCLRSCR C16 F ITOS CCS 3.0 SL-149@P @P@P@P@PT HTThPCLRSCRPQ8PKUPQ8PREPWTREADP P?RENAM C17 F ITOS CCS 3.0 SL-149@P@PU@PX = @P^12319901ހ@P%FILE-NAME =VOLUME-NAME=NEW FIL-NAM=NEW EXPDATE=@P(@P @P ? ZK  3Y!z@P@PI@PE @Pg hhhhhhh h hhhhhhTRQ h6jʈ  h f08f@Pؿ 1 !k+ȯh ( h Xȧ h hȧ0fȞhȟ9 ؝$@Pnؓȑh dK"NdSبdW / $Y lXd00d8Zd @PlT11IKIxd @m dL lM 1 l\IxI@P~0 dd0T~31  2/ !\X0 " l̩  N @P>l]̛ R @ m QB dSdW $Y l@Pi d @m [dJ dM dLۜ  @Pnܦ 3l̜lĜ  @m܏άd\Ψ , l dK@PdAh O    ^l lT1KZ\]K@P dPR d!1TKKT0"$ "z !+" !_!@P !# 5`1aSOۜKb96Ϝ3! @P@dL  0 "M@PQ@PQ dS ! L  ~! 4AcdJ d@P|lTJe ,̻ /N l dP lfDܳ 1 T@PA  1hT 0mdf l fܔ 1l d d0 d;T@P $\ G d ld"md#nd$1T J ̺ $\ 0*lll|  3Z!@PT1 J ̦ $\ T ̛ $\ 0 P "tw@P @P ̜ 2g0 8/"@Px/@P1/\  @ HH*PRENAM 7PWTREADGETFLDMOVEL MOVER GETFCBTODAY RENAMEPGMINT{SYSMSG~ERCHK OPENFLUPDFCBCLOSFL P P`MOUNT C18 F ITOS CCS 3.0 SL-149@P@P@P = @P @P$$DUMMYX @PVOLUME-NAME=MM UNIT NO.= @P@P(@P @P? @P hdh `d} hhhddhhh hhT h0>n  h  3[!@P08f00fؾ 1 !j*ȱh ( h˨ Xȧ h hȧ0fȞhȟ9@Pc؝nؓȑh d"dΤd / $ ld08d@Pd lT11xd @m d l 1 l\@P1x~0 dd0T~31 2/ ![W0 " l̩  @P l^̛ Q @m C dΚkd $ l@P0 d @m  'd d dۜ  @@P:mܧ 3l̝lĜ  @mܐο , l0d8d@PeΌI T dT1 l̳ 0  "r d@P ! L  0zH$hd "@P;:` hAT qT1 !^`hG hE)@P k( fd0 d0 d0 d0d ddd0 d d d@P d f0 1 l f 1T1T3 @P6T0 /d Vl@P,B@PBT 2 0 8"@P#S@PS @ HHPMOUNT XPWTREADGETFLDSYSMSGCMOVEL nMOVER wMMLUTBPGMINT&VERWPSVOLUSECREATE*DELETE/ERCHK 7P   3\! PDSMOUN C19 F ITOS CCS 3.0 SL-149@P@P@P = @P @PMM UNIT NO.=@P@P(@P @P? @P hdhhhhddhhh h `d}hT hAn  h f@P&f 1 !g(ȸh ( hȨ UȮ h hȮfȥhȦ8ؤ@PQʊn؛șh hȑhΥh 1Ȏ ( hȊddd dT@P1|1xd @m d l 1 l\x@P~0 dd0T~31 2. !YU0 " l̥  ̶ l@Pb̘ Q @m tG lΛWd $ 0l @Pd @m  'd d d  n@P( 3llÜ  @mο , lddI@PS T d1T l̳  0 "] d !@P~ L  0zH"$h d d0 !T3'  3]!@P 1T @P /dT̬ 20 8"@P@P @ HH&PDSMOUNPWTREAD|GETFLDSYSMSGMOVEL VMOVER _PGMINTVOLUSEERCHK P PSAVE C20 F ITOS CCS 3.0 SL-149@P@P@P = @P @P@P}DISK FROM =DISK TO =@P@P(@P @P? @P h hdhhhhddh hhT h0Cn  h  f@P0f 1 !j)ȴh ( hͨ XȪ h hȪ0fȡhȢ9 ؠ|P  3^!@PnؖȔh h!ȌhΩh 3 $ l0ddd dT@P1$1xd @m d l 1 l\x@PO~0 dd0T~31 2) !TP0 " l̦  ̶ l@Pz_̙ L @mI lΠd $ l0 ̒d @P@m  'd d dۜ  @m @P3ll  @mξ , l0d0ddT1@P "zH$hd l l̬  "B@P!H,hڨd d ! L  h@PL"hN l ! !dd  T /@PwdlT̓ 20 8"@P@P @ HH PSAVE PMMLUTBLWTREAD$GETFLDXSYSMSG~SWTCH ^JOBINDbPGMINTMOVER MMCOPYrP PLOAD C21 F ITOS CCS 3.0 SL-149@P@PA TERMINAL@P@P = 1!  3_!@P@P @PFILE-NAME =VOLUME-NAME=INPUT UNIT =MODE =@P@P(@P @P? @PTERMINAL@P@PA E AOEOOAOEO @P@P@P hddhhhddh hd}0dxdyd0zd{ dhT h@PHؽ0Nn  h ffت 1 !k-Șh ( hλ Yȓ@Ps h hȓf0Ȋhȋ;؉ nl d lΒl / @P$ l d0d d l1T1xd @m d@P l 1 1l\1x~ d00dT3~1 2. !Y@PU " l̩   l]̛ O @m }C d@PΛd  $ 0l d @m  'd @PJd dܜ  @mܩ 3l̟lŜ  @mܒ  3`"@Pu , lddT1 l   " dΗ !@P ΑL   dddd d0 ( l @P 1 0l}  Ed lT dv d    lTx@Py0x"Kd  Td Dl@P! (l00d `d d0 d0 dT1 "(T1T1 "(@PLdÜ "0 "0l0 00  0d f @Pw5 Bddp  3|SYSTEM MESSAGE 0387 X0300387SYSTEM MESSAGE 0388 X0300388SYSTEM MESSAGE 0389 X0300389SYSTEM MESSAGE 0390 X0300390SYSTEM MESSAGE 0391 X0300391SYSTEM MESSAGE 0392 X0300392SYSTEM MESSAGE 0393 X0300393SYSTEM MESSAGE 0394 X0300394SYSTEM MESSAGE 0395 X0300395SYSTEM MESSAGE 0396 X0300396SYSTEM MESSAGE 0397 X0300397SYSTEM MESSAGE 0398 X0300398SYSTEM MESSAGE 0399 X0300399NO ROOM IN HOST FILE X0300400HOST NAME NOT FOUND X0300401PARAMETER MUST BE ADD OR DEL X0300402DUPLICATE HOST NAME X0300403PROTOCOL TYPE MUST BE 200UT OR HASP X0300404BATCH DRIVER BUSY ON THIS HOST X0300405JOB(S) PENDING FOR THIS HOST X0300406  3}3SYSTEM MESSAGE 0407 X0300407INVALID LOGICAL UNIT X0300408SYSTEM MESSAGE 0409 X0300409LOGICAL UNIT ALREADY SET FOR THIS HOST X0300410DUPLICATE LOGICAL UNIT X0300411ILLEGAL TO DELETE LOCAL HOST X0300412NO ROOM IN BATCH FILE X0300413NO *JOB RECORD IN THE INPUT FILE X0300414INVALID JOB NUMBER X0300415INVALID OWNER IDENTIFICATION X0300416JOB ALREADY DISCARDED X0300417FILE MANAGER ERROR IN ACCESSING THE BATCH FILE X0300418JOB NOT FOUND X0300419JOB INACTIVE X0300420NO JOBS TO PRINT X0300421NO SUCH HOST X0300422SYSTEM MESSAGE 423 X0300423OUTPUT NOT RECEIVED X0300424*N,PROCED,,,B 00090CARDPRO READER 00001  3~GTAPEPRO TAPE0 00002DCCOLACT PRFDC001 00003DCPRTLTR PRFDC002 00004DCACTADD PRFDC003 00005DCUPDTAP PRFDC004 00006DCNFINUP PRFDC005 00007DCFINUPD PRFDC006 00008DCUPDHIS PRFDC007 00009DCDUMMIE PRFDC008 00010DCDUMDUM PRFDC009 00011DCSRTTRN PRFDC010 00012DCBLDDAS PRFDC011 00013HSMOVHIS PRFHS001 00014HSUPDTAP PRFHS002 00015HSPRGHIS PRFHS003 00016HSPRGTAP PRFHS004 00017MTRDRLTR PRFMT001 00018MTCONLTR PRFMT002 00019MTUTIFIL PRFMT003 00020MTDECTBL PRFMT004 00021V  3[MTAVMDMP PRFMT005 00022MTACTMTX PRFMT006 00023MTSPCAUD PRFMT007 00024MTLDSCRN PRFMT008 00025MTSVSCRN PRFMT009 00026MTPRGMST PRFMT010 00027MTACTMTN PRFMT011 00028MTUSEMTN PRFMT012 00029MTDETCRD PRFMT013 00030MTDETCON PRFMT014 00031MTPDFMTN PRFMT015 00032MTSCNPRT PRFMT016 00033RPDRCIAC PRFRP001 00034RPDRCSRQ PRFRP002 00035RPTAPRRN PRFRP003 00036RPTAPTQU PRFRP004 00037RPTAPTTY PRFRP005 00038RPWRTOFF PRFRP006 00039RPDLYASN PRFRP007 00040RPSUMACT PRFRP008 00041%+  3oRPWCOLST PRFRP009 00042RPMCOLST PRFRP010 00043RPTCNTRL PRFCNTRL 00044PRFRP012 PRFRP012 00045PRFRP013 PRFRP013 00046PRFPG000 PRFPG000 00047PRFPG001 PRFPG001 00048PRFPG002 PRFPG002 00049PRFPG003 PRFPG003 00050PRFPG004 PRFPG004 00051PRFPG005 PRFPG005 00052PRFPG006 PRFPG006 00053PRFPG007 PRFPG007 00054PRFPG008 PRFPG008 00055PRFPG009 PRFPG009 00056PRFPG010 PRFPG010 00057PRFPG011 PRFPG011 00058PRFPG012 PRFPG012 00059PRFPG013 PRFPG013 00060PRFPG014 PRFPG014 00061I  3PRFPG015 PRFPG015 00062PRFPG016 PRFPG016 00063PRFPG017 PRFPG017 00064PRFPG018 PRFPG018 00065PRFPG019 PRFPG019 00066LDCOLACT PRFLD001 00067LDPRTLTR PRFLD002 00068LDACTADD PRFLD003 00069LDUPDTAP PRFLD004 00070LDNFINUP PRFLD005 00071LDFINUPD PRFLD006 00072LDUPDHIS PRFLD007 00073LDDUMMIE PRFLD008 00074LDDUMDUM PRFLD009 00075LDSRTTRN PRFLD010 00076LDBLDDAS PRFLD011 00077PRFLD012 PRFLD012 00078PRFLD013 PRFLD013 00079LHMOVHIS PRFLH001 00080LHUPDTAP PRFLH002 00081  3LHPRGHIS PRFLH003 00082LHPRGTAP PRFLH004 00083LHPRGCLI PRFLH005 00084LMRDRLTR PRFLM001 00085LMCONLTR PRFLM002 00086LMUTIFIL PRFLM003 00087LMDECTBL PRFLM004 00088LMAVMDMP PRFLM005 00089LMACTMTX PRFLM006 00090LMSPCAUD PRFLM007 00091LMLDSCRN PRFLM008 00092LMSVSCRN PRFLM009 00093LMPRGMST PRFLM010 00094LMACTMTN PRFLM011 00095LMUSEMTN PRFLM012 00096LMDETCRD PRFLM013 00097LMDETCON PRFLM014 00098LMPDFMTN PRFLM015 00099LMSCNPRT PRFLM016 00100PRFLM017 PRFLM017 00101  3LODRCIAC PRFLO001 00102LODRCSRQ PRFLO002 00103LOTAPRRN PRFLO003 00104LOTAPTQU PRFLO004 00105LOTAPTTY PRFLO005 00106LOWRTOFF PRFLO006 00107LODLYASN PRFLO007 00108LOSUMACT PRFLO008 00109LOWCOLST PRFLO009 00110LOMCOLST PRFLO010 00111LOTCNTRL PRFLACTR 00112PRFLO012 PRFLO012 00113PRFLO013 PRFLO013 00114PRFLO014 PRFLO014 00115PRFLO015 PRFLO015 00116PRFLO016 PRFLO016 00117PRFLO017 PRFLO017 00118PRFLP000 PRFLP000 00119PRFLP001 PRFLP001 00120PRFLP002 PRFLP002 00121Ƽ  3PRFLP003 PRFLP003 00122PRFLP004 PRFLP004 00123PRFLP005 PRFLP005 00124PRFLP006 PRFLP006 00125PRFLP007 PRFLP007 00126PRFLP008 PRFLP008 00127PRFLP009 PRFLP009 00128PRFLP010 PRFLP010 00129PRFLP011 PRFLP011 00130PRFLP012 PRFLP012 00131PRFLP013 PRFLP013 00132PRFLP014 PRFLP014 00133PRFLP015 PRFLP015 00134PRFLP016 PRFLP016 00135PRFLP017 PRFLP017 00136PRFLP018 PRFLP018 00137PRFLP019 PRFLP019 00138PRFSC001 PRFSC001 00139PRFSC002 PRFSC002 00140PRFSC003 PRFSC003 00141\  3PRFSC004 PRFSC004 00142PRFSC005 PRFSC005 00143PRFSC006 PRFSC006 00144PRFSC007 PRFSC007 00145PRFSC008 PRFSC008 00146PRFSC009 PRFSC009 00147PRFSC010 PRFSC010 00148* 00110 PTSTASK A01 A ITOS CCS 3.0 SL-149@P H hXYRXT hFT ` XThu@P+" T 2X a Xq@hˠb aM' (  ) @aM%@PV M$ 4a a5A"-A!a+):aM)Af"@PMf""DP aT TT2 `f"h h` E@P oT:b GBXT  `XH\"aXH @PA"b T XcXa Hh   TTbT@PX`h`TA"aB8a c:aa2` H"B8 h@P-qhT`:bT T.H3 H"hh B Qh  "h @PXhT`^H @#3aI  ' !@Pf"E"""b""b b b  T `\ eXE\r l@P H@  Ta\ a !@ h@Q  !\b J  3@P a`A6"R6f"` H#h"X\gT   ` 2a TX @P @\a` h3̊h-" H-T8TH"Ta\2AHahXT`<b@P/T5`Ta\ TX L.  " ! A " b a  ,@PZ #! T l BnX C4nT Dk  @PT T b w HcTh\XhYRXT rnSXTNhK tF4@PnFCT:(B?aM>%M X#%  Y4.aKFM M'@P`Xz" X` M h " zy Xc}@P`f"  b b  Tb X? a T  hTa AXMHT@P19 a a" &T"` T"`ζXX'X " XB a h HF @P\"Tb A A  " A H)h(h!h!h ̃hT`bT0`"b @P"TTTHPTSTASKTSURTNTSATCHTIMSLCTSNABLTSACTVTSCNACEXPIRETSMFLGXMBLOKTSULBFREAREQ^PMOV FUNSHRFSHAREYERTO PARTBLSYFAIL^UBPROTSETBNDCPTBLNCPREL 1CPSET CPMOD CPDEF wCPFET 'PTSPAGEEXTREGTSMMERTSCLLBTSRFTNMMREL MMALC  XMRTN ;XMMOD AXMREL 4XMRSV XMALC  DENSWP(DENXUMPDENXUCOFNSWPGTNXUMOFNXUCADNSWPONNSWPONNXUMONNXUCTSCLOKTSMENDTSMUSRTSUENDTSUSERuTSPENDPTSPORTjTSLLSBTSLMSBTSLSIZTSUSCP_TSXERRTSAREAP PTSSUBR A02 A ITOS CCS 3.0 SL-149@P XFkXV X?eXO X8hZ@"":R*O$O GX X/ @P+XXX( >` "\;f"D 30  q h"h s"2\   3@PV @ `  "\Df"X  X  X@P  X  X   X HHH@ ErJ q@P""D`BDX X hHX hm hl HjHis3 ^ \`+W@PtSSS.P hM X1  d2bR?d2`H;;8f66` t,@P `% FX  X "X Hh h"2 h f"h " @P-V X.H @HH# h'X& `ߘhBH0'`޲#m@PXX`("  hDmA  ؾ   XH"a@P BH80'`ͦ3mȜXȜ` AA ha   TTRTh@P C 0` cN Nb0 f ALaM oX %@P X1ML L"LLL "X  ALaM X1LMPONNXUCONNXUMONNSWPADNSWP*OFNXUCsOFNSWPzGTNXUMa$ a% a!a"a#a*a)Eaaa,a-a - ((" ! @PV  a+aAa aa1@P^      3@P `  @P  ,.>ADNRUZ^d| lU A@aA8 )HG@PFE"hH" n>TA b ,.bTR"  @V" N\ @P-\"X\ h h nX}XtXzXq@ba"   @ 2@PX@   XgXZXQ@ ;" @ 2" AXJXAZ H"@P " "hH θn @ L\ @ Q 2\\ @ 2@P  "*cB* T2\\  hH@ h /"K" h @PB8 A ( (((([(3( hh"!"# @PdhZAa A7 4R  T" TLa a a  \E ACA\> h3@P/ 6.  h* aXb A+a\$Ab "aM6dMX@PZ  wtyzj  =+ Ka 7 HHa@PhHQ  H x( AH /aTQAXX #@P !/aH""&  1# 7#",w BA@PX a       @P  >HJioOF aAA+XoM@P1H"hBCh "  7\|GA h8 h n2a! &a-@P\# Aa(a a  b #" Q+b   b  T T`@PW,b ! 1XC  t# X9   X2BUDUHULU\U\UDUDULU@PLUXX#X #" BXhi "E\A  DXw *c@P*  7/Xe /bX8X "!Q  "aXH  3#@PX"#   " h% h#"9 "3 "AL!'A#@P3La" aAXa#b/aX Xa4 #"\a\cA\@P^\^\]  TD\\~\,.b"2\"\l\k  lg#@PX 9DP f"!b"b#b%4b$f" #X>f"%1 @P" Aa{A#aL+bh ( 4 nL  @Pb bXO%a -a&"a7X:h6X8a%X6H4X4h1X2a"\A(X-"A'(\@P \\A) ', a- a!A)a l'h (h   ""PTSIPRCWTREADUNPTBLtPMOV PROMTRFMEXECxSYFAILPWFAILPTYERRPRO MONI tMMLUTBeLOG1A fWKSTATTSPMCKTSCKMUTSCKPMPTSXERRTSEXITPGMOUTTSCHANCHAIN TSATTC}ATTACH|TSLCUP{SLICUPzTSLUNTPGLUNTTSINTRPGMINTTSPMINPPGMIN ~ONNSWPTSVFTN4EXTREG2CCP TSCLOK-TSMFLGTSACTVTERMLUgTSFMCP(TSIOC2TSIOC1TSURTNjTSTASKPTSAREAP P#TSUREQ A04 A ITOS CCS 3.0 SL-149@P \H \ h n\f"\ f"\ f"F R XC"B@P+\A4X=B\A5/  : u c c, , \A Xh\A6@PV \A \A  ""A0a1 A XH ΦcG A@P 2" Ab2A3 aaa,a-aUAag`TG a @P !\bb 2%a-a,a%`K hhhT`bT` TL@P X8 f"  l!X"  "H Ìnbbv  37@Pb b  TXX  `Ta\T hDnPPGMIN TSPMINPGMINT%TSINTR(PGLUNT8TSLUNT;SLICUPFTSLCUPIATTACHOTSATTCRCHAIN vTSCHANyTSLMSBTSLLSBPTSLSIZTSXERRqPGMOUTTSEXITPSYFAILFSHAREPARTBLONNXUM XMREL CPREL CPSET TSPMCK!TSCKPM"CCP TSMMERTERMLU TSCNACTSNABLPTSULBFTSATCH]TIMSLCNTSURTNTSAREATSTASKP PJTSIOCP A05 A ITOS CCS 3.0 SL-149@P!Q " T`dX T T b  ls T"@P+"aaa aa b "a a a aT\s\pbT  T \cH_@PV \`[1\Z'RX@G" a(XK#.,BA" "T@P-<-a" v g "TP \! &3 "T 2  ,'@P"Bta 1"H# " % $ @P ta H h tnT`H `31\ȼXDr.A9@Pȱ*H "bl .(. " 1%ta `4@P-2Tb)a+C<-a"  T" TIPTSLICETSUSCPFTSIOC1UTSIOC2TSFMCP&PLOG1A SYFAIL1TSAREA TSVFTNCTSCKPM(EXPIRETSACTV!TSLOFFTSOFFMTSCNACTSNABLTSBGINDENSWPONNSWPCPONNXUMONNXUCGCPSET TSPEND.TSPORT*REAREQTTSMMERKP PTSMMER A06 A ITOS CCS 3.0 SL-1492!  3K@P Uh TP$ TPTSMMERPSYFAIL TSMFLG P PEXTREG A07 A ITOS CCS 3.0 SL-149@P Y9 : ; <9 : ; <PEXTREGP PSETBND A08 A ITOS CCS 3.0 SL-149@PDd f f PSETBNDPUPBDTBLOBDTB LBPROTUBPROTMPFLAGP PCONPNT A09 A ITOS CCS 3.0 SL-149@PTA9|%$" '\ry"H2h0 Kh n$h9@P+ThX3b8_#d42  TAN" X2@PV"XJ f" E"HDhTTA"X7Hh -Kh˾n H#E"@PhTLR hHXH a\Q\T!\@P" \TA"QXAXwR  8A"" (ρ" @PaaE"hTTA"XHhY t n E"NahTA  3_@PPCPDEF CPCHK 1CPREL JCPMOD cCPSET CPADD CPFET PSYFAILCPTBLNINUMCP TSAREACCP ACPTBE0P PRDWMATH A10 A ITOS CCS 3.0 SL-149@Ph"@  " 2a"a ! A%dada`h@P+dbdbh@!Ha"! B  2ADa a`PDWADD DWSUB &DWMUL 1P PMOV A11 A ITOS CCS 3.0 SL-149@PaC  P y##  PPMOV PCNTWARP PSGRABMM A12 A ITOS CCS 3.0 SL-149@P HH2 H1 H+X<N& $M  EaX.#% d T%@P+T  QXH H"  TfB + T( PXMRESVXMRETN6PTSBGINPXMBLOK*SYFAILHXMAT JP 0  3s PLOCATE A13 A ITOS CCS 3.0 SL-149@P H/h T D `, U!`  ~1hd `"f@P+  `PV;PLOCATEP P C18DMY A14 A ITOS CCS 3.0 SL-149@P T T TPLOCATEXMRESVXMRETNPSYFAILP PSYUTIL A15 A ITOS CCS 3.0 SL-149@P # h ?T  X X XT fslOK X@P+`"2dD @7!1!G ϑGG # HKhK X@PV.`hAh;h?h9X 1T:5h+a 3h)a  h aaaadT f @PXW"f" Xc{9 XKcXB@P +XO"hh H XXTHfTX X@PXK d,H   X bh h h8hh:@P2N d h hTLfTXX X h @P-H XXTHfd dd XT funOK Xm  3@PX X h` h^h^T UZXQSR3 a4??hHhHDf"CbX@P7/Dh;h; t1"/LUbDbb/bb b `e"Daa a@Pd dh X X5M X)T f" X3@P  ( fX X h hT f-S[c@Pwx|& CCS ACTIVE -REQUEST REJECTED W A R N I N G : ALL @P/SYSTEM VOLUME FILES WILL BE PURGED. -REQUEST ABORTEDREQUEST COMPLETE@PZBATCH PROCESSOR ACTIVE -REQUEST REJECTED VERIFY UNTIL ? HHMM CCS DISABLED @PAT PASSWORD = PASSWORD ENTEREDPMAGE ECHEXmINASCMRETN#MRESV0LOOP =SWAPONCSTLPV4SWPSECSPASW  UNPIO PRTCDRMIB @TSTLOCPTSPORTTSPENDTSNABLTSLOFFTSIOC1TERMLUSTRBASSWTCH RETIMEzQPASWDMMLUTBMAXSECpLOG1A JOBINDPHORMINFILOADyDWSUB eBAITOSP PaBIN2AS A16 A ITOS CCS 3.0 SL-149@PHYhXXXhSXhQ ` hOKhLKB0 hG0HFBCV Atm;;m75@P+ 2#h0 `()[0 m 0  m  ` #@PVh PBINASCP8PKUP 8PREPP PWDEC2HX A17 A ITOS CCS 3.0 SL-149  3@PhSHQXXhHXhF hBhD`hE @ h=:8QH "  0!@:@P++B$0 h!"0# hh#h  `l@PVPDECHEXP8PKUP 8PREPP PQ8PRMR A18 A ITOS CCS 3.0 SL-149@P ` `"ܠ܀PQ8PREPQ8PKUPP PIMAGE A19 A ITOS CCS 3.0 SL-149@P  `" " H h hTDf  PIMAGE PRETIMEP PMNTCHK A20 A ITOS CCS 3.0 SL-149@Ph' h"t"-h,cHbh@h$Nh%|{d+ T Tk@P+Hi!h h h THaBR`J T !؀vh";h@PVh? h< h> hA6"!f"hhhhhT ATTENTION: `P  3@P HAS BEEN DISMOUNTED. @PHh` V"ԲTTPCCP MMLUTB+SYFAILMNTCHK$P PDISMNT A21 A ITOS CCS 3.0 SL-149@Ph~4h-4h&hC h@ hB hEHK"H4"!f"hhhhh6#h3@P+=T3 ATTENTION: HAS BEEN DISMOUNTED. @PVh` V"ֲTTyTPDISMNTPCCP mMMLUTBSYFAIL}PDISMNT PSTART A22 A ITOS CCS 3.0 . SL-149@P B0hX#X XXNT,1X@P+X%+T8 XXXXX@XXXXXX"X;T@PV8XpXXUX9T8X``d aB0V "Q1ODTU@P8XF` DH6H5f" "h bTHU% "!@Pf"bbXhX X0 d: XoX+X/T@P8XXX\X{?Td8XX Sj q2hOhKd `h@PT  8X$$PG@P-MNAM  B0` (hXXUXYT8XyX$$SWPBRq  3@PXUF e hXXyX}TK8XUX$$DAYFIL@P T 8X>B0`h@P8XXXX9To8XFX)TE8XTc8XT@P8X$$h@;$$PROCED@PP T 8XB0`hXX1X9T8XX:@P1X X)9T8XXj)TE8XTzEE8QXqhq@P\XT 58{X]B0`heXXXT(8XGXX@PX9T88X7DX)TDE8X+T8X$T8X_`P@P$$SYMENU$$ MENUPP X 8W!XWXkXs h1 @Ph< h:T}8XXjDh,h+$$hTAPE0 $$MOUNTS*2 X!@PX5fX=kT8XX>XX-9T8XTR8/X @PHh h T8XyLOCL$$HOST $ @Ps hk hcXXXT$8X@XXX?T48X0X  3@PG  0hBBȠ = 0h97 3h74h6TZ8X&%#'  d@P hDhTL8X$$BATCH @@J J001  @P X0XDOXLST8XXMX@PX<?T8XXlm@Ƞ ; 06h TYY8X)  &T@PJ8X|$$PRINT "2@PR  i@Pu DXXfX9T%8X8TM,+8X0~@P3 3~s{ svs nk f@PˀA qT,8XTI8XriuA> QH9B0F 0@P 0th,X@XT$X\9T8.%!XT8XT18X A@P!L$$BD (`PLp@P h THf`E U`y! 2`h K&XLD2@Pf"`b\d `d:*X7MdB03Fl)H& X" 7@Pd `bb 2b.b !TSLOG ULBUFF " @P=h  n h j q h j h j@Ph h?XX9T8XQT""E8XH99hhhhh@Ph h T""E8X(T8X" UHh]h3 h THf@P`E m1 Mj qX8 XT8T8T8@PT8 h hTLf# `P B  3@P $$ SYSVOL `PH]@PEXECUTIVE PROGRAM NOT LOADED -REQUEST REJECTEDFILE NAME: ERROR STATU@PS= $ -REQUEST REJECTEDC C S ACTIVE AT BUILDING SYSTEM FILES PSTART PUNEQ MAGE INHEXINASC,UPDFCBGETFCBzUPDRECWRITER w `2PINPEQ OUTEQ LUNEQ PTSAREANPGLUNT&CLOSFL]OPENFLLUNAMEP P9FMCALL A32 A ITOS CCS 3.0 SL-149@P X X X X X XH$h$ H` aADeaaAa @P+a Vh`POPENFL CLOSFL PUTS READR GETS FCLOSEPCCP "P PSYSMSG A33 A ITOS CCS 3.0 SL-149,  3;@P HM!"hG!dhFH5  j9 qTNUR4"TNfSR*!v@P+TNR H H  -Xzf H   #3T Xk H  Xuf$$@PVSYMSGF$$ SYSVOL \"Xm HE HXCf  X\Xj H6 H X4f  @PX H$X% H X0f \ȵ" \` ȲX2whth @P\" h H ! qH  HHa2Ƞ(h!n 8 H@P X X' hdLH 1  :X H"A HB0Fh  0X @PQ 00j qa! 1" hh! u@P-  HTLDffDHHASYSTEM MESSAGE XXXX`PX`Pf(PSYSMSGPTERMLUCREADR #CLOSFL,OPENFLP P@ ULBUFF A34 A ITOS CCS 3.0 . SL-149`P@ P PFUNSEL A35 A ITOS CCS 3.0 . SL-149@P hq` a hvT~n%Ty~;T"~a%T{~.T~V%T@P+ z~# X^BX\ h:h@Ttvu|$w51 h0  X> aT@PV" *H (! X'T+x|H XT$$ E;  3O@PMENU$$  h.! E  HTLD'Ow@P?g/WGo@@@@@@@@@@@@@@@@@@@@@@@P@@ SELECTION = `P`PPPGMOUTTCHAIN qWTREAD>CLOSFL%GETS OPENFL SYSMSGiTERMLUTSAREAP PMNDWMTH A36 A ITOS CCS 3.0 SL-149@Ph!@  " 2a"a ! A%dada`hdb@P+dbh@!Ha"! B  2ADa a`PDWADD DWSUB $DWMUL .P P$CHGTPT A37 A ITOS CCS 3.0 SL-149@P H\ \ h \ u"  H\\h\h\u" PGETCHRPUTCHRPQ8PKUPQ8PREPP P;DBATOU A38 A ITOS CCS 3.0 SL-149@P@2A@T a=al"  := aa c= =XaIaK '@P+T !8UaX"h cQd X? aI aJ aKX j'XS  3c@PV JcV aT !G h  T,!H   &   @P: '*JOB,J:     H??5END OF JOB:v;*@P5{ !$? AV cW?) WARNING: OUTPUT DATA EXCEEDED OUTPUT FILE SPACE HT@P" HTAV 9 N"cW = aSXmh cQ!;?5aT;;>@P a)T- :67Ua;  ʧcV X =T,a   a;@P-Xa  = X!? &X =Xh cQ,<"> @PXT !8Ua:X aITaJ =Xh cQ kT^ !8Ua@P>X j#X<3:q a Xc4X< F"<32 b@P V!Ġ:  $  8 5 ? tEe@PcVX!DX/%a =E; aSX X. XX%aLaM @PaNaO %"X %cp&B0F 0 0tX"X&a = FcP@P/X$ 0F 0 0th7 H j4 )c=T} !/7Ua =X@PZh cQ4> aX8$$PRINT $$BD $$ SYSVOL c= cA aI@P aJaKXM j'XX:U0aXec VcLXaO %c"Xf@P%c^(  T  1  :9eJY cV  XiX$%a =? a $$PRI@PNT FILE FULL, FILES ARE BEING LOSTX$ aw  cVaWaX  Xz *JMNN REC@PEIVED, STATUS INVALID X; X> r7%=< #X@P1< 3 PDBATOUABSADDWPTIMER1FWRITUPRECGETS READRCLOSFPBATFPHOSTOPENFENAM ZUTZ EDUC rELET FREAT 6  3wPSYFAILMMMLUTB>WKSPLU l" 2_X < 28X@P+j#a > 'cV X+< !!+ 0F400h cV X HOS@PVT NOT SET TO LU XXX)w  YB J%@Pe L>X>H@PױXX>X1#G X < 1X>X12< 2_X@P> X*# X < 1XX'a = XB0F 0 0t@P- %"X%cj&X X$X! `c= *cA H6 4@PXcE aI aJ aK>X. XB< 1X? j"$$   i X5@P8%V< XiXE%a =Ua<  :=VaV5@PaW V*Z  =wV  " x (f"? ' hVnn "@P *T*c **EOR  :( <>?? ? aVaW@P l lTRaV>X,< 2@Xq> 'cV X @P/< 2)X!X1 X\>\< 1X6> X+1@PW  XrXE%a =< 1X|}X&a =vT? ? < ,A< <Ia> > @P> (=w a!>XT'X XX'a = X!:@P1  a> > aVaWo*Za<   T@P\X# X+ a=w a?  rPDBATINABSADD?PAUTOBTMMLUTBSWKSPLUQSYFAIL`ELET RAUTON JBCNCLMIBUF LOADINSWTCH JOBINDFMEOFCMAS300ALTDEVpPYERTO 0MONTO /DAYTO .SECON 3MINTO 2HORTO 1TIMERFWRITaUPRECGETS READRCLOSF^OPENFcPBATFPPHOSTjP PNBOPENF A40 A ITOS CCS 3.0 SL-149@PT !8Ua$$HOST $$ SYSVOL $$BATCH $$ SYSVOL h@P+  c%>Xh c%h  hh c=PBOPENF'OPHOST;OPBATF@PPENF 3BSADD2SYFAILP PBCLOSF A41 A ITOS CCS 3.0 SL-149@PT 9UhXh c%PBCLOSFPLOSF BSADD SYFAILP `  3 P!BREADR A42 A ITOS CCS 3.0 SL-149@PT :7Uah ="hhXh c%PBREADR PEADRXBSADDSYFAILP P!BGETS A43 A ITOS CCS 3.0 SL-149@PT :7Uah ="hhXh c%PBGETS PETZ BSADDSYFAILP PBUPREC A44 A ITOS CCS 3.0 SL-149@PT :8Uah =Xh c%PBUPREC PPREC BSADDSYFAILP PBTIMER A45 A ITOS CCS 3.0 SL-149@PT`h3h cPBTIMER P PBFWRIT A46 A ITOS CCS 3.0 SL-149}  3@PT <`hhh3s2 2 (h51h=h<@P+ <X+<X(<;(8 d/d:3T TwKH  @PV BB F$e K 4"wrs`P@P$$HOST $$ SYSVOL `P@P3Tح hث3T h  AUTO BATCH MODE DISABLED.53$@P#"" #n n lww`TR*B@P ATCH,FPJOBSTRSWTCH  JOBINDMIINP MIBX MIB AUTON ATSNABLBAITOSLOSFL1ETS PENFLAUTOBTHP P4COMINT A48 A ITOS CCS 3.0 SL-149@P #/d+f" & b f"bb ""D de4  3@P+d  )PCOMINTCOMUNP%PCOMM18#PHYTHDINTRSP3E8431S1C8431S0I8431S/QMINTX2AMINTX,PHYEQIP PDSUBRCM A50 F ITOS CCS 3.0 SL-149@P@P#@P)@P0 @P30112312@P8 @P@P@P@PZ@P @P @P STARPCFNB@P@PO N C L R $  3@PC E R @P= h; Hhк @PM h"! + c^ P"  "T @PxȝHBhȕH: !H3 l, l% 5  l@P  lܨ lը 5 l P"̰ " d$̨d@P%̹H쌢d P( l̰Hd Pl A d&d'̹  d )d(@P l*lTq +( %d,n d-" : &m+*@Pg d.!T.d/ 9! !O lМ9\.l C @PE l\.l 9! ! 1d11d24"3"@Ppl5""  l  l, n  }n% @P  l $l@PlHlH !H l l 5 @Pl̶ d(d uld.7T0. @P]@PT 6+̲H 2l̪H !̤H l̜ l̕ 5@P l8d7 ll츶dL9 ܯ 1@ ;̤" 9 %@PH@PMH lH " H l l 5 l@PxT +:#@P^'  3@Pt lH $;l̺Hd O!=̳H !7 dLH ,@Pl̞d !"̘ !M@P__@P\ +<+ d?@Pbi@Pd@P Pu!( !$d2H # d"Hd O" l " l٬d " l@P @Pj@Po@P@P@P l P" l@PP@PlT"@P`@PT@P @P @P V  3@P :H7TT hhP hZhhhh'hhh^ h\h\hDhh@P4\hrhhF\h\hPSUBRCM PQ8PKUPQ8PREPGETCHR#DATFMTZWTREAD{PUTCHRSYSMSGPGMOUTP PMINT M01 A ITOS CCS 3.0 SL-149@PTL #n qTH"%TRb  h@P+H *Z JI ̘Zd lA@PV*Ra[ μwC h,F"SdSdb  Tb@P T0T$̆dTR6{*K T$)n@P*# gT$T2 T$GTL h*BATCH@PJP05MI  ح hT n q l   h nTT@PH n hhTXTb TXPMINT MI MIB MIBX RELFLEJOBSTRcAMINTXPTSAREADCOMM181QMINTXLOADINQJPCHGERESTORLEND SWAPONLVLSTRMIPRO JBCNCLBATCLUJOBENTSWTCH 3PFILE1 JOBINDTSNABL8BAITOS5MIINP AUTFB wAUTF9 oBATINPjBATLSTrSTDINPmLSTOUTuP P SPACE M02 A ITOS CCS 3.0 . SL-149@P"3 a"aT   TT h  `@P+ Cf d Qb4!bT"2@@hddd%  3@PVT cTINSUFFICIENT ALLOCATABLE MEMORY D  À ` @P _^ # f" cK  ÀB  d d @Pfl n fl n  t ` T7H T @P f"f%f%ddd/dd@P TR"TR  2b dT ,TI@P-MER REJECT  h 3h `  @PX   3. b1bD ` 1h 1hTDTH".@P `"**" E"eTL". `  h TD@PG@ sh oh TH`.` \? @P R O!0 @II" IBiBh h TL`. `R@Ph TD"}T TbFILE MGR. SPACE DIRECTORY ERROR `P/_@Pd_  /H*h)Wh&T / H hT  Xj@P] 5h1S 5h1I!F!T@P"y eB"ty eBfX X^@PX X X\S X\O X\K XCX| X=Xt X\7 X@P:0Xh Xy+Xa Xr\%`Pe@Pi0H0 h-- h.(2 & h$  Llt @P     hH  B8 h( 0h hT  3+@PL  $!'6EN[XXXXK BYTES OF MEM@PORY - CPU I.XXXXK BYTES OF MEMORY - CPU II. INSUFFICIENT MEMORY - CPU I.INSUFFICIENT M@PEMORY - CPU II. PAGE REGISTER ERROR.NONCONTIGUOUS MEMORY - CPU I. NONCONTIGUOUS MEMORY@P@ - CPU II.XXXXK BYTES EXIST.XXXXK BYTES ARE REQUIRED. SYSTEM CONFIGURED FOR USE OF 186@Pk0-5 DUAL MODE MAG TAPES (50 IPS DRIVES)SYSTEM CONFIGURED FOR USE OF 1860-4 NRZI MAG T@PAPES (25 IPS DRIVES)  X X dDDd  f@P hh hl ! LL ll!@P DhT  +H+*Bl(hTH". h h @Pn q h h n a).@PP'QhP dV \  HT _T " /dm@P{)* D T Tm""f" dSdUp@P" CCS 3.0 -- PSR LEVEL 1 SET PROGRAM PR@POTECT (ESC J28@) ERROR - MULTI LEVEL INDIRECT ADDRESSING SELECTED@PPSPACE T10 STMSV4T17 AREAC ALCLGHPMT50U1MT50U0MT25U1MT25U0XMATR XMAT P83310aPCORE OUTPV4RDPTV4SPCEV4PTNRELPTNALCSCH PREL NOG30ASPACE4OUTPUTSYSID zSYSYERSYSDAYSYSMONTDFUNCMIBX EFLOCKPSIZV4LSIZV4N15 PN14 N13 N12 N11 N10 N9 N8 N7 N6 N5 N4 N2 N1 AUTFB PAUTFA AUTF9 INPTV4IUP K65T10SYSLVLPROTECLIBEDTJOBENTLOG1A TMRTYP UPTOD MNTCHKMMLUTB)PSYFAILEND0V4;EMPSRTTBLADRDMICODIDLE DTIMER CALTHDQLEND 4LVLSTR0RPMASKSAVLU CKTHRD LOBDTB-B  3?PUPBDTBLBPROTUBPROTP P]MIPRO M03 A ITOS CCS 3.0 SL-149@P `h<H:9"9!7 h.0 *(hi'#%h  h@P+ D`! 2`1o=S $EF $EFMM$EFLU$@PVTON $TOFF9$SYSC$DB $DX $DATE$VERI$@PTIME$INIT$STAR$STOP$PASS$JIN,'$JLT,8$IN@PP,I$OUT,I$LST,I$CARD$+REW,$RSV,$SAVE$REST@P$ SCOM$WRONP$WROFR$CCSD$UP $ DENS$ SMDC@P$ SYID$ LPCF$   b D @P-b b !԰hh"_hTR dT@PX d+L  2b ) d\4". 2 h. @P" XhXXa@D  a hT 7@PMI INPUT ERRORTIMER REJECT TAPE SIM ERRORf%e d@Py@XBh@X>Ĉ;h9X75XC hcB2Q1X$$hQ ,@PIXhXh X hX"3 8 & " " }@P/Hh 1 FhD 1 H AQd XBXQ WXY-d@PZd`X1X@ RFXHd`bhXX,  c.X0b@P 2 2  XhXXh" 4{"@PŠ  H h2629 qf"|XA  3S@PXHŠ T3~k0h) XEX"@Ph@PpG(  aDQK X Q 2@P- 4  2  aN9Xn # 4 XEND0V4 aQ(uaalh  @PXaNX X pXB  aB0`A h+ aB0`A@P hvIX!X]IX! IAA{XH́{a{IA Cѓ< (:@P" fH3N B fN (X(h%FXN R4%42 @PّfN  B0`heHgRHi   aVB@P XX{hhXPARTBL aQ(a hV "%  h hXLSTLOC aQ(@P/bȵh? "" aȧ " aaX XMSIZV4 aQ(c !hhal a{@PZ haW aNhtX ,aB1 !ataka, B X{hXhTXXXX@PD :{h{DhBa{XXXX kat,aB1 !h aka,vh h B1 G  3{@P!hB XyFXB X   XalX {XqaXwDb @Pa{ aNaaX9XMBuAN aDQKI# Ia'@Pa"H  aQ(b #X  IhkX\ghj a XX@P1XJIhQXBMhPpaka,navapaqFaWX XNEX8 XQEX8 @P\XWC X]%Q!є ( "f {fN  f@ fX 8@P B Xa{hCh?XXX X{h2B XEX XXX@PXiXR Ih2 2 %X]!XTIh{3x 1XNXEI@PhXhXUB XPARTBL aXQ(b &hrJoah|alB@Pfa aNaaaka,ava aWh-aX'h&X { a{paq1F@P3X X4DXY X7DXN X<C XAX hhhX a@P^Q(bah ala BXSECTOR aQ(b $Xh " !@P saka, taka,9 ` ;c q`#A@QZ94H@P 44h  XL@ XX9X Q ERROR BX   hCXF>@P aDQK Is IX 42  IjX5Q1X@P XX*A I H hhhh  hh@P5huX& Q B0`A FhDX aDQKX h@P`hhX XXAIh H  a aQ(q N# @PaXXZDaPXT aP XA aaFXEXA,0XENABLE ADDRE@PSS WRITE--THEN CR  XB9XXXDISK ERROR X XDI@PSK REJECT  XX4X+Ih!X?Ah&h?Xh;X!X;UUhDh4w  3@P XXX3hX XX-DhXXX( _j q @X X6  1@P7i H@Xs `X01Q _i q?`QZ3h#4h"@PbQZ3h"4h!SQZ3h 4hȷQZ3h4hXDISK COMPARE ERROR SECT XXXX WORD XXXX IS XXXX S@PB XXXX X H~ȟ`QZ3h 4h X DISK FAILURE XXXX X@P`P7@PXX aNawafadh{ bwv [hr hW(!2hg:hd?!z@PEha^X\X@$SRO HMNzhLVavUaX(XSTMSV4 aQ( wX>@PpN@ [ f QCXUNPEND aQ(r `XXUNPSRT aQ(@Pr 5`.XXLSTLOC aQ(a " &`@PXXAREAC aQ(```Xa`PE@P6 nhU` H ^Db E@ XL#q`XDATBAS ha aX@Pa f)'hXSWAPAR a aXa aXX fXXP,kXX@P,k# f ftB1X:,kX fhZ c fh `hS  f# aWX@P h XJX aWXC X hXzh1 h$,kB1A dh@PhQ@ `XN@ GX S`h Db A@P @XB8hG  C lc B8׈hDF BAll@P 8RAQ@X =XINITIALIZATION COMPLETED - YOU MAY AUTOLOAD @P cXXERRORS OCCURED - YOU MAY ATTEMPT TO AUTOLOAD  X d  3PRSTARTTCODE IN OU  CO !COMMA $VALID ;CM45 CM65 BACKGRLSSECTTYPEQ QTYPE ERFLAG PFMXSECkPMASS MARSTReART1CIGNCKART1AART1LATLM1ATBS1ATLM0ATBS0ENSDTCNDSECIEADR1URTOUTPISKWRLNTSTRuPRINT5COM 2MASS MTAPE)CARD &PTAPE#OLU ASS IB ORMFD]ELOUT COM PDRIV EETERM=DRIV ABLE LOAD ONMS ONMS1ONMASZONENTSAV 2 o1 92MZV4VP P|I2 M07 A ITOS CCS 3.0 SL-149@P  hN HHhGhI DnBB  @;RX jI qX hIO B8HA @P+hB@h=hLX9# H8h8H?h?X @ "RX<$@ RXD@PV`SYSVOL 00 `PI2 I2RETNPART1ASPART1LRPART1CQPNFILESsIZMAS0EADR1MXSEC!DRIV MMINITU P PFMULOD B01 A ITOS CCS 3.0 SL-149@P PFMULODPFMUTEXP PFMUTEX B02 A ITOS CCS 3.0 SL-149`P  3@P8@P0HELP 0INIT 0DEFINE0STATUS0RELOAD0DUMP 0 COPY 0%DELETE0+CLEAR 0.LIST 01RENAME@P3+7COMMANMOUNT ?DISMOUBSAVE DBATCH GLOAD OPURGE TINPUT WOUTPUTYCOMP@P00VRE[HO0ST ^SE0T bBA0TS eDI0SCARiDI0SPOSkFL0USH rPR8INT u@P0FN0OWVLDK0zNFx0EDlTYLR0NR0K1P1K20P28K3P3@P00K4P40SA0I xP xM 0}L x0F2V2D20zPNx0F |HO|OP@P3NC0xSC|0DOxPTxJN0LUx8M @P0@P0@P0     @P0@P0@P0 @P0%@P0+@P0.@P01@P07@P0<@P8>o  3@P0?@P0B@P0D@P0G$@P0O@P0T@P0W@P0Y@P0[@P0^!@P0b#@P0e"@P0i"@P0k"@P0r @P0u@P0 @P T33?/dTp0dT1xm d0XTx@P+~m h0 <  l0  l )  *@PV  W tnn#h h %  lװ#l@P lPGETFLDP PfMMSIZ B10 A ITOS CCS 3.0 SL-149@P HXhWhOhVhThGhF >"`K J+D h<1h0Gl/Fl@P+*a"!/  "h!(,`Ϝ # lLhT[\ `@PV.EF7PMMSIZ PSYSMSGMP 3  3 P!GETVIT B11 A ITOS CCS 3.0 SL-149@P Hhhh " `"m  `PGETVITPMMLUTB P P)tUTSTRT B12 A ITOS CCS 3.0 SL-149PUTSTRTP PGTINIT B13 A ITOS CCS 3.0 SL-149@P TPMARKERUTSTRTPINIT P PGETDEF B14 A ITOS CCS 3.0 SL-149@P TPMARKERUTSTRTPDEFINEP PGTSTAT B15 A ITOS CCS 3.0 SL-149@P T+  3/PMARKERUTSTRTPSTATUSP PGTDUMP B16 A ITOS CCS 3.0 SL-149@P TPMARKERUTSTRTPDMPFILP PGTCOPY B17 A ITOS CCS 3.0 SL-149@P TPMARKERUTSTRTPCOPY P PGETDEL B18 A ITOS CCS 3.0 SL-149@P TPMARKERUTSTRTPDELET P PGTCLEA B19 A ITOS CCS 3.0 SL-149@P T  3CPMARKERUTSTRTPCLEER P PGTLIST B20 A ITOS CCS 3.0 SL-149@P TPMARKERUTSTRTPLIST P PASCEBC B21 A ITOS CCS 3.0 SL-149@P h<h4h7/ @ H'h(, h(''h# Xh!XhQhAȸn@P+ Hq !D"  @ Z  { [ l P } M ] \.N? :#M@@']=@"m @@Pabcdefghi jklmnopqr @ @ @ @ @ @ @s@t@u@v@w@x@y@z@ @ @@P @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @A@B@C@D@E@F@G@H@I@ @ @ @ @ @ @ @J@K@L@M@N@O@@PP@Q@R@ @ @ @ @ @ @ @ @S@T@U@V@W@X@Y@Z@ @ @ @ @ @ @0@1@2@3@4@5@6@7@8@9@ @ @ @ @ @ @PASCEBCP PGTRENA B22 A ITOS CCS 3.0 SL-149@P TPMARKERUTSTRT~  3WPRENAM P PtCOMAND B23 A ITOS CCS 3.0 SL-149@P d00dT3~1T33~0 hzDhv `!@P+i T h0hT1xG @PVTI1xDhihaH2d`"**j,(" (R0"j!" TX@P1x `h?"Dh  ,@P @P PAUSE  PCOMANDUTSTRTPCLRSCR8GETFLDPGMOUTWTREADP PGTMOUN B24 A ITOS CCS 3.0 SL-149@P TPMARKERUTSTRTPMOUNT P PGTDISM B25 A ITOS CCS 3.0 SL-149@P TPMARKERUTSTRTx  3kPDSMOUNP PGTSAVE B26 A ITOS CCS 3.0 SL-149@P TPMARKERUTSTRTPSAVE P PMMCOPY B27 A ITOS CCS 3.0 . SL-149@P TTh\hoT  "`" hh|hho@P+hhhIhhhhhAh`  "`" hhh8h[hVhhh@PVh-hMhhhh#hCDhhTTl,h+h/(#@Ph, hTuX|X "  h n t@"h@Ph H n sT& X,XW%OKXhth@Ph( hX h hh h X X X΀h@PXT&c #vh8A "V h!" h@P- i"1h "1"8o%hs.hd`hh hZS@PXhXPhU3Mhh hGdhE7hB4h?7hh h1dh/@P#h"%h$h$h! h"X`q #@P` hc h^ hY hT#**h@PU$**hP%**hK&h;XlA`c #` hE h@a  3@P h; h6#**h7$**h2%**h-&hBAhh,CKh @P/h'UPhh"MAhSThERhMAh SThERh X X@PZ X X X    Xx 7@P : 2 XV XSX~LGOX_hS h]@P\hg hehcZh!&"]  0hB 0h+ @PXX> OKLDh! T hhDh.h/HDhh%THD@PbTLDb־@P1`nX`nX`bXg1ɘa +R7Od(Hh@P\hȮh"M<RN JR@a&ȚhX`bDX#@P'3, X`XYȠdhgXehX&qhVnhS@Pkh[hhXDh[hZ X0 X+J (Fd %> @P2$ ` h hT D H " Da@P TLD THD T D 0`" hJXS@P3hL$XPhH$XMhD$XJh@>XGhD$XDh@$XAh<$X>h8 2 H// H,, H)) H&& H#@P^# H HȈh~Ȉh{ȈhxȈhu Xvh@Pd 3 0 7TURN OFF PROTEC SWITCH (ESC J20@) AND TYPE CARRIAGE RETURNSET UP VOL@PUME(S) TO BE SAVED AND VERIFY  VOLUME SAVE COMPLETE.I/O ERROR NOTED.VERIFICATION F@PAILED AT SECTOR VERIFICATION OF CORRECT SAVE VOLUMES PACK VOLUME N@P AME LAST SAVE DATE TYPE FROM  @P5 TO WARNING - YO`  3@P`U ARE COPYING FROM A BACKUP TO A MASTER VOLUME WARNING - VOLUME NAMES DO NOT COINCIDE@P WARNING - DATE ON COPY TO VOLUME IS THE SAME AS OR LATER THAN DATE ON CO@PPY FROM VOLUME TYPE GO TO CONTINUE, EX TO EXIT DESIGNATE COPY 'TO' PACK AS: MASTER@P=1 BACKUP=0 ? NUMBER OF PACKS NEEDED FOR THIS COPY = PACK NUMBER MOUNTED, SHOUL@P D BE PACK NUMBER VERIFY MULTIPLE COPY - MOUNT NEXT PACK NUMBER VERIFY  DRIVE/D@P7ISK ARE INCOMPATIBLE AS TO WORDS/SECTOR REMOUNT AND TRY AGAIN  @@Pbh!@ H"h!hhh hXh "XH" H h T`@P`h!@  " 2a"a ! A%dada`@Phdbdbh@!Ha"! B  2ADa a``P^`PA``P``PPMMCOPYPLVERWPERWPSCPSET PARTBLTODAY SWTCH JOBIND MIBX EFSTORTBLADRDMICODEMPSTPMMSIZ sSYSMSGPQ8PREPQ8PKUPP PGTLOAD B28 A ITOS CCS 3.0 SL-149@P TPMARKERUTSTRT  3PPRELODP P3REDREC B29 A ITOS CCS 3.0 SL-149@P H,h+TTh&\h%\h\h"?/hhTHyDl `L@P+ /!PREDRECPQ8PREPQ8PKUPP PGTPURG B30 A ITOS CCS 3.0 SL-149@P TPMARKERUTSTRTPPURGE P PkGETBAT B31 A ITOS CCS 3.0 SL-149@P TPMARKERUTSTRTPBATC P P%CNTCHR B32 A ITOS CCS 3.0 SL-149@P H hTTh\hBLH   B `{)  3PCNTCHRPQ8PKUPQ8PREPP PGTCOMP B33 A ITOS CCS 3.0 SL-149@P TPMARKERUTSTRTPCOMPREP PGTRELO B34 A ITOS CCS 3.0 SL-149@P TPMARKERUTSTRTPRELOADP PSCHARMV B35 A ITOS CCS 3.0 SL-149@PHHTThET""h>T h>T""h7T""0/ a1*+XX "@P+%4"Xh3XX  `PCHARMVPQ8PKUPQ8PREPP PBMPRRN B36 A ITOS CCS 3.0 SL-149   3@PHTT"h$   LlPBMPRRNPQ8PKUPQ8PREPP PkGTBATS B37 A ITOS CCS 3.0 SL-149@P TPMARKERUTSTRTPBATS P PkGTDISC B38 A ITOS CCS 3.0 SL-149@P TPMARKERUTSTRTPDISC P PkGTDISP B39 A ITOS CCS 3.0 SL-149@P TPMARKERUTSTRTPDISPOSP PkGTFLUS B40 A ITOS CCS 3.0 SL-149v  3@P TPMARKERUTSTRTPFLUSH P PkGTHOST B41 A ITOS CCS 3.0 SL-149@P TPMARKERUTSTRTPHOST P PkGTPRIN B42 A ITOS CCS 3.0 SL-149@P TPMARKERUTSTRTPPRINT P PkGTSET B43 A ITOS CCS 3.0 SL-149@P TPMARKERUTSTRTPSET P P1PRINZ B44 A ITOS CCS 3.0 SL-149  3@PH,TT""h%T" ""h Hh"h T ""hTL+@P+DLPPRINZ PQ8PKUPQ8PREPP P)MPWRXX B45 A ITOS CCS 3.0 SL-149@P h  ɀhHhh H hT!@@@PMPWRIXMPREDXP P OBFIMK B46 A ITOS CCS 3.0 SL-149@P H fbPOBFIMKPFMRDEL FMEOFC P POBL000 B47 A ITOS CCS 3.0 SL-149@P POBL000PL000 P PRWBUWM B48 A ITOS CCS 3.0 SL-149uq  3 @P HHhh hT\@@PRWBUWMP P UTEFCK B49 A ITOS CCS 3.0 SL-149@P H  " PUTEFCKPLOG1A P PAS2 B50 A ITOS CCS 3.0 SL-149@P Hh`ȁfȁb`PAS2 P P2CHO2LR B51 A ITOS CCS 3.0 SL-149@P H*h)`h'h!h  Qhl ` h h @P+PCHO2LRP PsCNVRT B52 A ITOS CCS 3.0 SL-149@P Hihf`hc DjH qXhUS jJQȠ jE HKL HJ AHDHED h3XT@P+1,h&+h%3* 1L ) h+TT(! l l @"  3@PVTrg 3PCNVRT PSYSMSGmDWMUL +DWADD AP P#FRHX B53 A ITOS CCS 3.0 SL-149@P Hh`hDhBh 0 q c H A`PFRHX P PGENEOF B54 A ITOS CCS 3.0 SL-149@P Hhh hT `\@PGENEOFP P6BLD2 B55 A ITOS CCS 3.0 SL-149@P H3h0`h&h)Dh"h h! Qhn` h @P+PBLD2 P PORDER B56 A ITOS CCS 3.0 SL-149@P hTPUTSPEC|  33PLDIXODP PnPRELOD B57 A ITOS CCS 3.0 SL-149@P  `HjS   DjOB 0 hRTc{P0 !&TcY_PT@P+cQ" *h)h(h h hTH@HhTP H@UTORLD@PVUTRMLD$$PGMNAM$$ @P PPRELODPSYSMSGKREADR %OPENFLCLOSFL+FMULODP PRANDOM B58 A ITOS CCS 3.0 SL-149@P hTPUTSPECPBLDIDRP PSEQLOD B59 A ITOS CCS 3.0 SL-149@P hTPLOAD P P!TOWT B60 A ITOS CCS 3.0 SL-149  3G@P Hhhhh hT`D@PTOWT P P5VLTOI B61 A ITOS CCS 3.0 SL-149@P H/h.`h,h'Dh*h((`B 9H!  0 nH DQ S  0n `'@P+d PVLTOI P PKIBMGR B62 A ITOS CCS 3.0 SL-149@P H   0<4$0hhh 8h" D ujjjj< @P'sf sjhhdhhhh h`CH@0h=@ @PRH9H=h8h<H/h/Dh2T- 0 b0d`T0@ d0 d@P}aA aDd@P bjA 2lXlHZHY` hNhNhNDhOI HGD@P TMLLF !DnB;2?h8><6 n4H)H$RD ((08dh@P&Hhh ! HDh@P7Dd@XD (hT Xx!hD (̀h@Pa@Py  3[@P  sn `  sg"HYHVB hTS HQaXI (C@P0hT)X:!.@ HhH.h.H&h&Ta& X@Phf"bTX D@d PINIKIBNXTKIBGMRKKIBFREEUPGETKIBWRTKIBPDWADD sDWSUB FMEOFCUPDRECREADR IP PGETSSZ B63 A ITOS CCS 3.0 SL-149@PHTThTh K" lPGETSSZPMMLUTBQ8PKUP Q8PREPP PUTCKLN B64 A ITOS CCS 3.0 . SL-149@PHTT""hTh  < 8(lPUTCKLNPQ8PKUP Q8PREPP PWVERWPS B65 A ITOS CCS 3.0 SL-149@PHChBhAh?:"H:h X h 'hTBD" Ia$F "$@P+t#Ƞt  t  l`@PV`y  3oPVERWPSLVERWPPLOG1A P P)TODAY C02 F ITOS CCS 3.0 SL-149@Phhhlll@PH TTh h hPTODAY PQ8PKUP!Q8PREPAMONTOADAYTOAYERTO P PERCHK C03 F ITOS CCS 3.0 SL-149@P h h h h h @Ph 1"! 1LK~@P="! 1 h h h@Ph h h h؍"! 1@P/@P0@P  d@P17@P l@P2my  3@P l@P3@P l@P4@P5@P l"! 1@P6@P@P7%@P@P8J@P@P9T@P;@P@PIg@PJf@PKe@PLd@PMc*  3@POa@PP`@PQ_@PR^@PXX@PZ@P\@P-@P,@P+@P)@P(@P'@P&@P%@P$@P#@P @P@P  3@P@P@P@P@P  l l l lܟ̞"! 1@P l"! 1@P`@Pd@Ph@Pl@Pp@Pt@P@P@P@P@P@P@P@PwA  3@P@P@P 3d 4l"! 1@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@PI  3@P@P@P@P @P @P @P @P@P@P@P@P@P@P@P-@P.@P0@P1@P2~@P3}  3@P4|@P5rp 5ld̴ܵ"! 1GCF@P`OM lAܒ̑"! 1 $$ #,  l@P l"! 1@P@P!@P d"" 2@P l̴ܵ"" 2 &@Pl &l l܇̆""& 2$@P& l} /ly 0dt""V 2TlkjihSf dcba`@PQOR][Y 6lM""| 2zFEDCB-@>=< :),75@P|3 7l'̲ܳ"" 2   8l@P̉lT@P5{@P6z@P7y@P8x@P9w@P;u@P<t  3@PP`@PQ_@PR^@PS]@PT\@PVZ@PWY@PXX@PYW@PZV@P[U@P_Q@Pu;@Pv:@Pw9@Py7@Pz6@P{5@P|4@P1z  3@P.@P@P@P@P@P@P@P@P@P @P @P @P@PH TThX\h|DPERCHK PQ8PKUPQ8PREPSYSMSGP PuINIT C04 F ITOS CCS 3.0 SL-149@P@P00.  3#@P@P = @P @P@P@P01@P @P@PcVOLUME-NAME=NO.OF.FILES=DISK-UNIT =@P~ VOLUME= @PA@P@PV(@P@PY? @PX @P h h dBhhhhdCdDhhhhh hhhhhhhT hؾ@Pn  h f00f0ث 1 !k-Ȝh ( h YȔ h @PhȔfȋhȌ;؊bnl d lΗl / $ @P@ld00d0d lT1xAWdD @m d lG  37@Pk 1 l\xA1~VW dd3T~3ZZ 2/ ! [W@P " l̩Y   l]̛X Q @Cm IB d@PΚ)d $ l0 dD @m  'd d@P dۜ  @mܧ 3l̝lĜ  @mܐο @P, l0d0d=ΌI 1T= dT= l̳   "@PBm1 dD ! L C zH$h}z@Pmzd Bh6 "x`h( h hh"hh@PhT h h hTHl `dT@Puh udT\v\@Pvl\\u\wdh8 dT+=|h, l@PdF &T4x=dzd{Tzx #x y l 4d@P> 4d0 TB l d} h`d dlp<@Pid@, dd dnf 1ldd  d d!@Pd"dd 2PT>?ab >d? dd[d\@Pd]d^h h hTL@P@@P@P<@P hh hh "lh h TL@P[eͦ  3K@P@P df~ 1TQ1~xAW\x1A~VW ddT3;~@P/ZX  dhT = dQ@PI@PI /d @PtM@PM /l 0l@PS@PS Vl@PV@PIV@PVTK0B 2 "@Ph@Ph @ HHLPINIT mPDATSEPDATFMTMOVER MOVEL @MMSIZ MMLUTBSYSMSGWCNVRT &PGMINTWTREADGETFLD*VERWPSTODAY MVCHARP PHOST C05 F ITOS CCS 3.0 SL-149@P@P a  3_@P# = $$HOSTSYSVOLDEAD20HALOCL@P@P(@P @P? @PHOST NAME = OPTION = PROTO TYPE =@P@P5 hddhhhddh hhT h]n  h f08f@P`ؼ 1 !j*ȯh ( hͨ Xȥ h hȥfȜhȝ9؛@Pnؑȏh d"dΦd" / $$ l#d0d%d l@PT1xd @m d l 1 1l\1x~@P dd3T~3 2. !YU " l̩   l@P ^̛ O @m }D dΛd" $$ 0l @P7d @m  'd d dܜ  @mܩ@Pb 3l̟lŜ  @mܒ , lddT1 @Pl 0  " dΗ ! ΑL  ̝ @P&d'd(dd0)d0*d0+d0 d0 d d d08d@PT3 "0l1T "0,b-0 ,d"@P ld!} Δ0|  ld= θ  @P9dx. /0f1nnn1T !^3  3s@Pd̥$l ld=Χ  ̬̾ l`ͤ2 N4Ҕ3@PK d!!L 9ξH 2ηD +ΰ %n@Pn fT d l l l l l@PM@PT0 25 "@PF@PT @ HH7PHOST PWTREADGETFLDSYSMSGMOVEL OPENFLPGMINTIGETS UPDRECYERCHK CLOSFLP PbMVCHAR C06 F ITOS CCS 3.0 SL-149@P@P@P /h. h,hh!4 A hHh h A hӨh  @P6Јn@P?h Ènػػ@PKHTT h\h\h\ h\hPMVCHARNPQ8PKUPTQ8PREPQP /i  3 P'aDEFINE C07 F ITOS CCS 3.0 . SL-149@P@P"6SYSVOLK1@P"<@P"? = @P"CN O R @D @P"L12319901@P"V @P!FILE-NAME =VOLUME-NAME=EXPIRE DATE=FILE TYPE =RCRD LENGTH=NUMBR RCRDS=KEY1 LENGTH=KE@P!Y1 POSITN=KEY2 LENGTH=KEY2 POSITN=KEY3 L@P"ENGTH=KEY3 POSITN=KEY4 LENGTH=KEY4 POSITN=SCTR ALGNED=@P@P(@P @P? @P S@P I@P A@P D@P"$%  3@P"Z hdhhhhd h dhhhd)hhhhhT"4"3 hعn  @P"h ffئ 1ȢdȠd0ȞdT!0!dl0"dm0#dn @P"",ζ ( d"5": l n 1 l̽ !l0d"; $"< l΍@P"ۤ"R  d"= d">"?0fl8!nܾl d")̯l@P#l - $"9 ldΥd"@d l1T1")x",l @m@P#1 d"* l d"5"+ 1 l\x1~ ddT33~ @P#\2] "#0 " l̥  ̳ lX̘H"R ) @@P#m $"9 l": d"1",L  ܓ !Y@P#"5L  l쬼d"> , 0l l l @myϬ@P#  Ed"( d"+ d"*H Α"R , lΖ l @mܒ@P$̡ 3̝l", l̲H  @ed"A $"9 d"58d@P$3")d" hH$ "&H"! 10NMLK@P$^JIHGF1T"){T1")")t d(\")"B(T" " "f"^ @P$l\")"B(\" " h`""aDd`>","R @P$ 0"C"D"El!"G"FdRl"HdRl@P$ߔ"I d"/"A"! 1,6̯@P% H 6h5"K" 2"L5 2T"0!# "@P%5&+ !00! !"M! !" 6"N2֔"O&+@P%`&+؜&+"P;8ʜ5Μ2&H d)̾H"R &H̶H  ̱@P%H  ̬H  d"2 l l"d"0" &+ "&+ &H"Q  3@P%"&Hq !m "&HeHh ̲ Zv@P%̧ Td"1 M !H̽ !`B) =̶ 9̮ !4̫ "Sl̥@P%h̠ !A#@P%@P0& H"R 8H 2@P%@P&H +H %H @P%&+@P%&+@P%*&+@P&+ Ed"(T"(@P$&2@P$&2@P0&2"T 0 ", lc@P$&H@P%F@P%E@P%C@P%&H@P%&H¦  3@P%&H@P%(&H@P&H d"*  "@P"&Q@P#9&Q@P#&Q@P&Q #T1"'"' &T"'d"U d"5 n 1l0d" @P&|l d0 d0 `d00d0ld!0md"0nd#T1"' %\"' d$T@P1&$"("'̯ %\"'0lllT%,!0dodpd0q"2d0rT9$"("'@P&̊ $0\"'k"/ Q"V$ Ed"(Z d"5"$7"Wf)T"%8p4d@P&"X"E p4"%d"Y, !,d%pl l ' l l"= * .,@PiyT1 "T10i0 T0i d0T "j @Pdw\10i \0iT11wŔx ,̽L =̶ "@P0 Y 4 0 dn00/  1 dliTi @P 2 dy dhl !0  ln 1̸ ̵  l@Pν ܳ 1rlMl0 ̡ Nl dz{  lY"@P@= *   dgHhToHh@Pk\o}d|̵~ ll  dnfk 2o  l@P0fn 2h "dd ll drkhghh`@Ph3hTHBd l! ,h/  ,/hT @Pܒ@P\1ܻ 1T^\((Ȅ)d5*+d6,Ȅ-d7.Ȍd@P8Th_h\d bl 0T d d  l [a  3 '@PFlZddd d d dHhd  /d@PqdT\Ȅd#d$Ȅd%Ȅd&\]̒ @P \`\a d\;^@P@Pl 0 }_ dTT,\oprd4d@P <ܵ 10lT<\?0Ql\<\=W\K\lp\Kz !d@P "d#d\|vT _ dhg "@P @P @P T@Pu @P @P @P T8 @P c  3 ;@P @P )dc@P @P Tc0 2 "@P @P  @ HHPSTATUS PDATSEP DATFMT%MMLUTBWTREAD #GETFLDJSYSMSG MOVEL OPENFLlGETFCBTODAY SEKVITwREDLABNXTVOLPGMINTPCLOSFLCONVERFDWADDCLRSCR -TOWT FL2SP RIGJST XVLTOI aCHO2LR dFRHX GENEOF ERCHK P PlCONVER C10 F ITOS CCS 3.0 SL-149@P1B@'d @P h h h (hT@P#  1  (hT@P7 0n    h@PI n 1  0l@PXHTThhhh\ h hPCONVERZPQ8PKUP`Q8PREP]FDWSUB FDWADD4P  3 O PDMPFIL C11 F ITOS CCS 3.0 . SL-149@P@P@P = @PTAPE0 @P@P@Pd@P@P@PFILE-NAME =OWNER-NAME =VOLUME-NAME=OUTPUT UNIT=@P(@P @P!? @P@P@PEOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF @PmMOUNT NEXT TAPE - (CR) WHEN READY @P@P  3 c@P@P@P@P FILE NOT DUMPED@P @P hdd hhhd h d hd"hhdxhT hhhhثf @P hf f0ؗ 1 !m0ȅh ( hݨ Z d d@P*0fl9nl dlγl / $ l@P0Uddd lT11x̰d @mܥ d  l@P 1 l\x1~ ddT33~ 2/ !a[ "@P l̨!   l[̚ W @m V@ dΞ@P=d $ 0l d @m  'dT @P dz d՜  @mܡ 3l̗l̾  @m@P,νdι , lddT1 l̿   "E @PWdΐ ! L   d0x ldy dz@Pd0{Tx  9 4dTdRlT d0 d d `d@Pd 3 d0 ~l % l l & l @Pd ߜ  l " l l & lܿTd̹"@P> * T " d d ̲  !@P. dT T T11  L 1 "8 yn  3 w@PY `d d   ld "l 1 d +f@P 1Tc1~ d 2 l d6f0@P 3 d~  D l00/  14T3  "T3@P T>  d0TC11 "IT " l f@Pܙ 1d "l ddddpp8;ll l l dTvd̗H @P̐ "T1 "L  7d@P !1\ "L  ldd  d!@P0d dddddddTVp  @Pi @P} @P*@P hddhhhddhhhh hh (h hEfw 1d|d0}h@PhT hذ00n  h ff؝ 1 !l.ȏh @P ( hα Z h hȉfl:!nl d!@P7ll . $ ld0dd l1T1xl@Pb @m d l 1 l\x1~ ddT3;~@P 2. !Y0U " l̪   l\̜ O @@Pm }B d.d $ 0l l @m@P  'd d dݜ  @mܩ 3l̟lƜ @P nܒή , l0d0dT l  0 " r6@P9 d ! L   l0}  1@Pdd0d0 `d0 d d d0T@3T "0d lT'  3!?@PL 2 "T ""l #d (#@P d `l l l l1\̷ "0 0x dEfw 1T@P1x?/h0 T|)1T,S00d8`1d@Pa2db3dc@dhAdlBdpTJ "T1 )@P; D   5B̠8x@Pf d lTT  dd8ΰf@Ph h T@PT& l @P (l0Ҕ & (l "l\̼h̼ h\@P\̮  (l lM dTo̗d dd " lTt@PhT@P\l !"7 $ l  (l (l@P, "l lҜ  l (l d!T0!@P0L@P0LxTW1C~0T l@Pbb@Pb\ d7fnTܟܞ@P@P@P  3!S@P@P@PC@PT8@P@P ?d@P@P @l@Pd@P El@P@PT0 2 "@P@PT@PA@PR@PT @ HHPLIST PWTREADRGETFLDSYSMSGFMEOFCMOVEL 'OPENFL|GETFCBASCEBCFTODAY yPGMINTCLOSFLLUNEQ CLRSCR\RIGJSTPTOWT wGETS 2RDNP FL2SP FLHXLRERCHK GENEOF_  3!gP PCLRSCR C16 F ITOS CCS 3.0 SL-149@P @P@P@P@PT HTThPCLRSCRPQ8PKUPQ8PREPWTREADP P?RENAM C17 F ITOS CCS 3.0 SL-149@P@PU@PX = @P^12319901ހ@P%FILE-NAME =VOLUME-NAME=NEW FIL-NAM=NEW EXPDATE=@P(@P @P ? @Pp  3!{@PI@PE @Pg hhhhhhh h hhhhhhTRQ h6jʈ  h f08f@Pؿ 1 !k+ȯh ( h Xȧ h hȧ0fȞhȟ9 ؝$@Pnؓȑh dK"NdSبdW / $Y lXd00d8Zd @PlT11IKIxd @m dL lM 1 l\IxI@P~0 dd0T~31  2/ !\X0 " l̩  N @P>l]̛ R @ m QB dSdW $Y l@Pi d @m [dJ dM dLۜ  @Pnܦ 3l̜lĜ  @m܏άd\Ψ , l dK@PdAh O    ^l lT1KZ\]K@P dPR d!1TKKT0"$ "z !+" !_!@P !# 5`1aSOۜKb96Ϝ3! @P@dL  0 "M@PQ@PQ dS ! L  ~! 4AcdJ d@P|lTJe ,̻ /N l dP lfDܳ 1 T@PA  1hT 0mdf l fܔ 1l d d0 d;T@P $\ G d ld"md#nd$1T J ̺ $\ 0*lll@PT1 J ̦ $\ T ̛ $\ 0 P "tw˖  3!@P @P ̜ 2g0 8/"@Px/@P1/\  @ HH*PRENAM 7PWTREADGETFLDMOVEL MOVER GETFCBTODAY RENAMEPGMINT{SYSMSG~ERCHK OPENFLUPDFCBCLOSFL P P`MOUNT C18 F ITOS CCS 3.0 SL-149@P@P@P = @P @P$$DUMMYX @PVOLUME-NAME=MM UNIT NO.= @P@P(@P @P? @P hdh `d} hhhddhhh hhT h0>n  h @P08f00fؾ 1 !j*ȱh ( h˨ Xȧ h hȧ0fȞhȟ9F)  3!@Pc؝nؓȑh d"dΤd / $ ld08d@Pd lT11xd @m d l 1 l\@P1x~0 dd0T~31 2/ ![W0 " l̩  @P l^̛ Q @m C dΚkd $ l@P0 d @m  'd d dۜ  @@P:mܧ 3l̝lĜ  @mܐο , l0d8d@PeΌI T dT1 l̳ 0  "r d@P ! L  0zH$hd "@P;:` hAT qT1 !^`hG hE)@P k( fd0 d0 d0 d0d ddd0 d d d@P d f0 1 l f 1T1T3 @P6T0 /d Vl@P,B@PBT 2 0 8"@P#S@PS @ HHPMOUNT XPWTREADGETFLDSYSMSGCMOVEL nMOVER wMMLUTBPGMINT&VERWPSVOLUSECREATE*DELETE/ERCHK 7P PDSMOUN C19 F ITOS CCS 3.0 SL-149]  3!@P@P@P = @P @PMM UNIT NO.=@P@P(@P @P? @P hdhhhhddhhh h `d}hT hAn  h f@P&f 1 !g(ȸh ( hȨ UȮ h hȮfȥhȦ8ؤ@PQʊn؛șh hȑhΥh 1Ȏ ( hȊddd dT@P1|1xd @m d l 1 l\x@P~0 dd0T~31 2. !YU0 " l̥  ̶ l@Pb̘ Q @m tG lΛWd $ 0l @Pd @m  'd d d  n@P( 3llÜ  @mο , lddI@PS T d1T l̳  0 "] d !@P~ L  0zH"$h d d0 !T3@P 1T 4  3!@P /dT̬ 20 8"@P@P @ HH&PDSMOUNPWTREAD|GETFLDSYSMSGMOVEL VMOVER _PGMINTVOLUSEERCHK P PSAVE C20 F ITOS CCS 3.0 SL-149@P@P@P = @P @P@P}DISK FROM =DISK TO =@P@P(@P @P? @P h hdhhhhddh hhT h0Cn  h  f@P0f 1 !j)ȴh ( hͨ XȪ h hȪ0fȡhȢ9 ؠ|@PnؖȔh h!ȌhΩh 3 $ l0ddd dT  3!@P1$1xd @m d l 1 l\x@PO~0 dd0T~31 2) !TP0 " l̦  ̶ l@Pz_̙ L @mI lΠd $ l0 ̒d @P@m  'd d dۜ  @m @P3ll  @mξ , l0d0ddT1@P "zH$hd l l̬  "B@P!H,hڨd d ! L  h@PL"hN l ! !dd  T /@PwdlT̓ 20 8"@P@P @ HH PSAVE PMMLUTBLWTREAD$GETFLDXSYSMSG~SWTCH ^JOBINDbPGMINTMOVER MMCOPYrP PLOAD C21 F ITOS CCS 3.0 SL-149@P@PA TERMINAL@P@P = @Pz0  3!@P @PFILE-NAME =VOLUME-NAME=INPUT UNIT =MODE =@P@P(@P @P? @PTERMINAL@P@PA E AOEOOAOEO @P@P@P hddhhhddh hd}0dxdyd0zd{ dhT h@PHؽ0Nn  h ffت 1 !k-Șh ( hλ Yȓ@Ps h hȓf0Ȋhȋ;؉ nl d lΒl / @P$ l d0d d l1T1xd @m d@P l 1 1l\1x~ d00dT3~1 2. !Y@PU " l̩   l]̛ O @m }C d@PΛd  $ 0l d @m  'd @PJd dܜ  @mܩ 3l̟lŜ  @mܒ@Pu , lddT1 l   " dΗ !)  3"@P ΑL   dddd d0 ( l @P 1 0l}  Ed lT dv d    lTx@Py0x"Kd  Td Dl@P! (l00d `d d0 d0 dT1 "(T1T1 "(@PLdÜ "0 "0l0 00  0d f @Pw5 Bddp l? @P1 1l\1x~ d00dT3~1 2. !Y0U " l̩@P*  E l^̛ O @m }D ldO @PU$P 0l Kl @m  'd< d? d>ܜ  3"/@P @mܩ 3̿l̟lŜ  @mܒέ , l8d@P=dT1= l   " lܙ ! L @P 0 CTC " dA@T1@1L 2@P " 0  dB dK/  1T88n@P,: =m9 78l ! l+ff# 11T;~ ~@PWR l0fܶ 1 lγnܬ 1T3 ln̙ nܖ@P 1 9fA QT@Pv@PT<0 2S "@Po@P @ HHPPURGE PWTREADLGETFLDSYSMSGMOVEL GETFCBTODAY 'PGMINTrNXTVOLDELETEqERCHK P P!-BATC C23 F ITOS CCS 3.0 SL-149@P@PLOCL@PR @P@P =  3"C@PC N @PA $$HOSTSYSVOL@P@P 0@P@P *JOB@P*K,P2 @PF @PBATCH @P@P(@P @P? @PINPUT FILE= OWNER NAME= VOLUME = HOST = TYPE= PROG. NAME= MODE A/R = @PhNO - ID.@P JOB NO.=@P\*RPGII*ASSEM*FTN *COBOL@Plp@PJ00 @Pm  3"W@Pn@Po@P@Pp@Pq@P hddhhhddh h hhhhd|hT}v hا0Fn @P h 0ffdfwf01f_f|f0ff؆ 1Ȃd0|d0}d !@P m1wd $ d~Χ V d df0l8n@P5l dsll - $ ld0d0d0 lT@P`sx̨l @mܟ dt  lu 1 l\11x~8 dd@PT33~ 2/ !ZV " l̪  w l[̜ @PP @m y@ d~d $ 0l l @P@m  'dr du dtݜ  @mܨ 3@P l̞lƜ  @mܑή , l0d0sdTs l C@P7w  d0}| l"7 $%$ 0@Pb 0  "w=@Pvy@Py d~ ! L   d̪ ̩l̢ld@P l ̮ld`dadbdddhdid j dl@Pdm dnTx` "TxM "Tx " p,d  3"k@P d d~d!} Д0| l d, d@P% ,dd!"ΩL ΡH ΙD Α @PP dx l l lTldd8 d @P0{dd0 d3T "0d ldrT1r1 "8l @P lp<ddl d~ f 1dd̡@Pddd d0 d d "dd"dd#dd $d@Pd%T̄ 17J ̼dd̼d d& d' d(T2@P' "T2T2 " dm l l l\̽ " d@PRy u d~f (1" 8 %dd@P} dlld1 d̿ l̹ l̳  ḽ@P l d d[n 1 d dJTJ "z @Py1TM l " ldl?Ύ; dd<@P|  { l̽H l\J̯ "0ll l̙@P) N ,fHh+(nHh"Ȉf ,f d~̢ @PTd0 n@Pcgf 1 do  T " d}@Pd~dddddd dddT$e} "@P Te " lf~ 1 lΈf 1 l f@P 1hhhhhhT`d\d@P \lllTe " l fwܡ 1 dK dL dnT  3"@P :x` !RTxK !Hx" 9 & @m @P e@m @m @m\x̟ ? dsT\1sx@P @P @P @P @P T{ dnm Zh@P @P @P @P \H . l HV\h l >L@P @PN @P @P @P \ l 4B@P @P q dr *5@PR @P l "-o y l̹ ;  3"@P @P Wl@P @P ZlT8r,@P @P \@P, @P: @P \5T.T2̗ @P!@P!\r 20 8"@P!@P!\x\\e\ @ HHPBATC !%PBINASC MMLUTBWTREAD GETFLDSYSMSG MOVEL -OPENFL 9GETFCBAYERTOAMONTOADAYTOHORTO MINTO SECON PWKSPLUFMEOFCPGMINTGETS CLOSFL CREATEDELETE PUTS JCLE READR BUPDREC ERCHK P P =BATS C24 F ITOS CCS 3.0 SL-149@P@P!Ö  3"@P% = $$HOSTSYSVOLSUMM@P3 @P5@P7 HASPLOCL200UT  0@P @P@P(@P @P? @PJOB NO. = HOST NAME = LOGCAL UNIT=@P2 JOB NO. HOST STATUS @P@ NAME LU TYPE INACT QUEUED SENT RECD PRINT ABORT @PNOT SENTBEING SENTSENTOUTPUT RECEIVED PRINT REQUEST JOB ABORTED DISCARD PENDING, JOB B@P EING SENT DISCARD PENDING, JOB SENT @PJ000 @P2 @P@ @P^  @P @P/  3"@P@PPAUSE @P @P@PH hddhhhddh h hdhhT hع0dn  h @P0sf00fئ 1 h0fwؚ 1 !l.ȋh ( hμ Z @P d# d$%fl8n"l d lΒ7l .@P $& ld0d'd l1T1xd @m d@P l 1 1l\1x~ d00dT3~1 2. !Y@PU " l̩   l\̛ O @m }B d@PJ Λ7d$ $& 0l d @m  'd @Pud dܜ  @mܩ 3l̟lŜ  @mܒ@P , lddT1 l   " d Η !@P ΑL  ̝ (d0)d0*d0d+d ,d@P-d0 d0 d ddd3T "0/.@P!  |dd d0dT "d d@PLd1 dd̿H$3h+̹؈(d2 d4 d 0!  @Pw  @PLdHlDll} | }@P l dT *H dd l l5   3"@Pl !4΢L0  d1ΗLlΏH   lH@PdD  lDl  +lݬlܴ08dT@P12 "̡,d$ d6 ld!0} γ|  0 @P]Υdd d45l d l l "L0  @Pd1LdH  lHlD  lDl@Pܱɬ  llܓ@P@P0 0} 0| l l ddddddT21@P̏ *̌H d_d` 7d8HdTbd db9@Pdcl  :l;dedf!ќ ɜ l@PF?l@llll  d  "L0 L @PqL L L L L H @PH ιH βH ΫH ΤH  ΜH @PD0 D D D D @PD D Ǭ  λ ε ί@P Ω  ΢ '@P0@P0d01d0T "0,d$ ld?} 0| @P[d_d`8Hd7d d ddddddŒ l@P̠ l d  3"@P]@PThi jdhll9l\lm ndllll\o@Pp qdolll\rs tdrlll\uv @Pwdull̳l\yz7 {dyll̟l d$0  w@P   19 d1TxABdRl  lCf@@P : dT@f^ l\^  l lT1@x l@P1 e\^x "@P v@P v@P v@P* v@P v@P v@P v@P v@P vT4DE7Fld@P @P @P @P 9  3"@P0  dd0T0 2d   d$@P w  1$ 3 l dT 1xAʜBdR@P lT >2  l l1T X2x d#9n (1 d@P ddd̔"> + (5BOUbon d$f 1@P 6 lk ln 1 d\ ln 1 lN ln 1@P a l@ ln 1 l2 d lnܫ 1 l l@P nܝ 1 l l$n܏ $1 l l0 w  1@P dG7fCf dT \T 1x @P 2K@P s @P1 \~T0 l d8@P @PC @P @P; @P @PC @P T8!@P @P  d  3# @P @P @P  l@P % @P @P  ?l l @P\ @P^ @P  l@P @P  l@P @P  l@Ps @P T0 2H "@P^ ,@PM ,@P ,@P| ,@P ,  3#@P1 ,@P ,T @ HH PBATS 5PBINASC wWTREAD GETFLDSYSMSG MOVEL OPENFL LUNEQ BATCHK PGMINTaREADR :GETS 9TOWT CLRSCR ERCHK PCLOSFL -P PJCLE C25 F ITOS CCS 3.0 SL-149@P@PR C @P@P @PA *V,7 ,@P*Z@P+ @P,*K,P7 MON @P2*CATLOG *LIBEDT *COBCAT @P>*K,I8,P8 *P,F,2 *K,I8 *N,  @Pi *Z *Z @P} @P,,,Bxs  3#3@P*L,  @P h hȊf (1 ! h hh h+n 1@P@P ! hȼhȷ hȲ h1nة 1ޘaژ ]Tx@PT1x_ȕ h\_ ! d $d=f 1@Pk 5 \x ln 1M@P?  !PJ K" 8 % #"dd"@PjlldTDd l  dT @P6 2HTTh\h\h\hPJCLE PQ8PKUPQ8PREPBATINPoBINASCsCNTCHRMVCHARPUTS P PCOMPRE C26 F ITOS CCS 3.0 SL-149@P@P5@P8 = @PFILE-NAME =VOLUME-NAME=@P(@P @P? 2  3#G@P@P+@P; hdd hhhddh hhT20 h*f  h  f@P0ff 1 !f(Ƚh ( hި Tȳ h hȳ0fȪhȫ8ةʎ@PnؠȞh hȖhλh 0ȓ ( h0ȏdd:d d-T+@P-+x1d 3@m d. l/ 1 l\+x+1~ @P0dd0T~31  2. !YU0 " l̦  ̶ lc̙@P R @ m H ld7 $9 0l  3d@P= @mΫ  'd, d/ d.  1@e @Ph 3llœ  @m嬫 , l0d0-dT- l@P   " lܖν ! ηL  08d `@P0d d d0 d3T SYSVOL @PF@PI= @PNTAPE0 @PR@PU@PW@@P_@Pb@Pd@PFILE-NAME =OWNER-NAME =VOLUME-NAME=INPUT UNIT =@P(@P @P!? @P@P-@P NOT LOADED,ALREADY PRESENT @P LOADING @PEOF @P.  3#o@P3d@Pi hdd hhhd h d hd"hhdx d dȷdȵdȳdȱdȯd@PdhTC= hأ0f  h f00f0؏ 1 !m0@P:dE $F dDڨ W dG dHBf0l8ήnl@P d7lγl / $I l0ddJd lT11-7-x@P̪d @mܟ d8 l9 1 l\-x1-~ ddT@P3@~1 2/ !_0[ " l̨!  : l[̚ U @Pk@m @ dDΞdH $I 0l d  @@Pm  'd6T6 d9 d8  @mܣ @P3l̙l  @m܌dKμ , l0d70dT7@P l   ") dDΓ ! ΍L  @PdLT/TdM0x NlOdyPdzAd{T1xQQ $ 4d6E@PBRlTQ3ߔ  d4dSɜ "lTQ&SdTU\Q&5@Pml !   "lT6 dVW   l dX@P%f `1dYdZd[d\  l&ll l̓  d@P] " l dD;00+ R l ! l/ R@P 1S $ Qd6 lnnL f0ܽ 10A̬@P 3 ddd4d[d^V 0l. 3 ld Z dY@P0D0_dd` dD00f 1rda3T 1:b *@Po l dcf 1T -d-1xT]Q&SdTUiT5B  3#@P0 T  l̫ lάfܣ 1\-1e-x d0 d  d0@PŔA 30 d dD f 100d `dT3  ! d T@P#0#do0$dp0%dq0adrT 61 !` 'TQ&^ dTU@P T  >VT1&f ̵ "\Q&^lٜ ? dg@PFdXf!4ZdhΧd1&d2%hT@P1a#"߀% hT@Pm f%n "l lYl l?ʔ/   ̯l@Pܮ` ̦ l  @P@P@P@P0 2i "@P@P|@P@P @ HHPRELOADPOBL000OBFIMKWTREADGETFLD?MOVEL TODAY PGMINTSYSMSGLUNEQ 5RWBUWMFMPREDXCREATE`ERCHK CLOSFL POPENFLUPDFCBPUTS -MVCHAR_WRITERjP g\  3# PDISC C28 F ITOS CCS 3.0 SL-149@P@Pg@Pj = $$HOSTSYSVOL@Pv @PxBATCH @P@P(@P @P? @PJOB NO. = @P]@P{ hddhhhddh hhTdb hhn  h f0fwf@Pf_ffص 1 !j+Ȩh ( hŨ XȞ h hȞfȕh@PȖ9ؔn؊Ȉde d_!clΞdi / $k ljd0 @P0d0ld lT_1xd @m d` la 1 @P'l\x1~ dd3T~3 2. !YU " l̩ @PR c l^̛ O @m }D deΛdi $k @P}l0 d @m  'd^ da d`ܜ  @Pnܩ 3l̟lŜ  @mܒ , l d_l  3#@PdT_ l 0  "! deΗ ! ΑL @P ̝ md`ndaodbddpdhqdirdj dl dmd@P)n d0dTx` " dL0sdMTxL " dt@P0TH$vh(%du l0e!    @P @PΰLdK dwΦHl lΞDl lΖl lmdxd@Pydzddpdqdrd dd  d!T2 " TG@P+ "  dh0  1T " \ @P"K  lM  lG  l  l   3 l@P/ddmd-d "d0ddd01\3T @PZ!Ew" 9 &̞e@mK@m@@Pm@mTx 1-@P;@PP@PT{\\8@P@P] d^ l l@P@PT^0 2{ "@P2  3#@PTx @ HHPDISC PWKSPLU?MMLUTBAWTREADGETFLD7SYSMSGMOVEL OPENFLPGMINTREADR CLOSFLDELETESUPDRECERCHK P P6DISPOS C29 F ITOS CCS 3.0 SL-149@P@Pv@Pz = PRIN$$HOSTSYSVOLBATCH @P @PMOVE@P@P(@P @P? @P9JOB NO. = OPTION = NO. CHARS = START CHAR =OUTPUT VOL.=OUTPUT FILE=@Pl@P hddhhhddh h hhTtq hjn  h 8ff@Pfwff,f_fff ئ 1 hfwؚ 1 !l/Ȍh @P( hα Zu dx dyz0fl98nwl dn @Prll - ${ ld0d|d l1T1nxl-  3#@P> @m do lp 1 l\x1~ ddT3;~@Pi 2/ !Z0V " l̪  ̐ dr\̜ P @@Pm #A du dy ${ l0 l @m@P  'dm dp doݜ  @mܪ 3l̠lƜ @P @mܓή , ldndT1n0~}/ l@P̹   "N du ! L  ̑ @P@d!d"d#d%d)d*d+ d- d. d/T1!@Pk "d-d.d/d0d1 "dhdidjd k̿d5@Pd6d7,d8 d9d:d;\-̿ " dd T̪@P "0H$h+(d d du  " '@P , 1@PL  ds H  lD  l ݬ  @P"l\  " dx  10~}≯  @PMu@m̭  @m̢  @m̗   nT@Px "̸̹0d0`dad d dl@P dm dn0dTfx`̽ " dx0z 0w 1 1 d@P dhT|T " l 1l\x\ " l@P Pdddddddddd d@P0$d0d hliljlkl̾d  d 0d d T@PO " dx f 1 l l lT " -TxE]  3#@PzH  !n̽ l dTE dT̳ !X0}@PwTxTx`̟ !@s  u@m  @m  @P@m  @mTv 14@Po@P@P~@PT8!@P@P,@P\@P@P\{\@P@Pl dm @P@P @P@P @P l@P  3#@P 4l@P8@P l@P @P Tm@P@P@P0 2 "@P@P@PT\\\x @ HH^PDISPOS.PCNVRT MMLUTBWTREAD3GETFLDdSYSMSG MOVEL OPENFLgCHARMVMOVER WKSPLUPGMINTREADR UPDRECCREATEJPGETS uPUTS CLOSFLDELETEERCHK P PSFLUSH C30 F ITOS CCS 3.0 SL-149@P@P@P = @P- _  3$@P$$HOSTSYSVOL@PJ0@P 0@P @Pm@P@P(@P @P? @P@@P@Pt@P$$BATCH $$ SYSVOL @PHOST NAME = DAYS OLD = @P@P hdd!hhhdd h hhT hؿqn  h f08f@Pج 1 !j,ȟh ( hͨ Xȕ h hȕfȌhȍ:؋ @P!nl d lΥl / $ ld0dd l@PLT1xd @m d l 1 1l\1x~@Pw dd3T~3  2. !YU " l̩   l  3 $#@P^̛ O @m }D dΛd $ 0l @Pd @m  'd d dܜ  @mܩ@P 3l̟lŜ  @mܒ , lddT1 @P#l 0  "i- dΗ ! ΑL  ̝ @PN d dphUxTxTp! ""f"h<h9@Py  l d8?ll0d0d0d d@P0d0d0d d d0 dd3T!! "00dT# @P! "0,dd dd!#} "|   d@P\t!̿ "0x d d l 1: d ,d@P%L- 8 l9lιH + lFlάD  lRlΟ @PPT#!! "$dLTMO„ ldM@P{TtPL! "dh+H$Ĉ%dehH,d d  @Pl d8?l@Pld %Ȝ݌l "" 9 &"!  @"@Pm @m @m @m$ @P0  d ld5 n7@P@PT!w@P$@P$  3 $7@P$\!   d@P-@P-@P-T@Pk1@P01 2 "@P?@P?T!\t! @ HHzPFLUSH KPBINASChCNVRT eWTREADMGETFLDSYSMSG.MOVEL OPENFLMONTO vDAYTO rPGMINTMOVER _GETS UPDRECWREADR |PERCHK  CLOSFL@P P PRINT C31 F ITOS CCS 3.0 SL-149@P@P@P = PR00@P @PJ@PI @Po  3 $K@P(@P @P ? @POPTION = LIST NAME = @P @P!$$PRINT $$@P&  @P-@P.@P/@P0$$HOST $$@P5  @P<@P=@P>@P? @PC$$@PD  @PK@PL G  3 $_@PM@PN @PR$$@PS  @PZ@P[ @P\@P]@Pa@PePP@Pm@P@P@P hdd"hhhd d h h "dGdVdHdWdIdXdJ dY@P)hT d0tn  l ff 1 !k+Șh ( @PTlγ Y h hȍf0lȅ9nܿl d!lΌ@Pl 0 $ ld0d0d0 lT1xd  @@Pm d l 1 1l\1x~ d00dT3~1 !!@P 2. !YU " l̨   l]̚ O @ m@P }C lΛd $ l0 d @m   3 $s@P+ 'd d dۜ  @mܩ 3l̟lĜ  @@PVmܒ , lddT1 l   "y @PlܘΘ ! ΒL   ̞ 1Tx  20@Pud d n 100d l fh 1T!"" "@P0dT" " d dd ̶dNp4d, dd@P 0 0dOd ̑l̕ll̆dH @P-d 7! 0?d0?d@Bl d 0f 1d l@PX/fh 1 d= d>T0"" "T1o" "T" "@P l̾ $m do n ܬ 1 d d d@P\d  1 1 0 d? h  lp4d,d@Pٌd 0 0d@d@PY l f0 1d l>fh 1Tg1?"" "Tr@P " + #T"0d l?̕ $ dTά@P ? 1T}" "T?"̻ " l n 1 d=ll/n @P j1\0"̚ "? dT#"" "@lHdd@P d$d Blddn̕ l̒``mT#" "1 \" "@P 3@P @P @P d f 10d0 lMfh 1T N"̠ (  H  3$@P T 1"̏ +̌ &T !"0!d l≯ $ dT 6ܬ@P  d" T C" !^T LN" !t l n 1 d/l@P Dn 1\!" !UOlHddd$dT #"̱ !@P o8d2d31T #"̢ !1)\"̛ !"n@P  @P J @P T @P T "0h@P @P ?d@P @P  l @P @P l lTi\ @P @P @Pp @P{ @P @P u \  3$@P @P0  d\"@P @P @PC @P @P  @P1 @P \@P( @P T $" @ HH;PPRINT PMMLUTBWKSPLUWTREADGETFLDSYSMSG MOVEL lOPENFL LUNEQ PRINZ PGMINT+CLOSFL GETS ERCHK DELETE ,PREADR gUPDREC wP PSET C32 F ITOS CCS 3.0 SL-149@P@P@P = $$HOSTSYSVOL@P)   3$@P+@P@P(@P @P? @PHOST NAME =LOGICAL UNIT =@P@P2 hddhhhddh hhT han  h f08f@P]ػ 1 !i)Ȯh ( hͨ WȤ h hȤfțhȜ8ؚ@Pnؐȏh d"dΧd / $ ld0d0!d0 lT@P11xd @m d l 1 l\x9~@P d00dT3~1 2. !Y0U " l̩   l@P _̛ O @m }E dΛ.d $ l0 @P4d @m  'd d dܜ  @mܩ@P_ 3l̟lŜ  @mܒ , l0d0dT l@P   " dΗ ! ΑL  ̝ @P"d0#d0$d0d%d&d'd0 d d d0 d d@PT1 "slT !0|xH5$)h300d(  @P h*+,d0,d dd!} ν0|  @P2 dP '- 9. 6 dd: -M  3$@P]/n01nT 1'T0̺ l ̶ l̲ l̮ l@PI@PT0 22 "@PC@PT @ HHPSET PWTREADGETFLDSYSMSGMOVEL OPENFLLOG1A  PGMINTFGETS UPDRECjERCHK tCLOSFLP PcUPDIDX C33 F ITOS CCS 3.0 SL-149@P, dd d007 fhf00if00jW0h00 H h@P0Whd d!0T0lȀhT @Prhȳ 3ȱ ;̿ ȫ  Ȩh d̨d0ο 2̫ṋf0T@P l̷d'Ωl0 "00 0 ̢ e0 dd d@PV:0l fl nT " llUl l6@Pܙ n0n00fTllT̞ " l̹8̴l nܮ  d@P0d'̌nÌȌ0 d n̾ d* l9hn0 l̪6 @PIn fl nWln\ dldl@Pt -Tgd+ 0l8 nܶT0 "λd00d0T@P "  d@P7  3$@PŔ J̿ $d̸ h \ ld)  d>n l̪@P l@P0\0l lҜ8hn0d'd\̟d̠d d8 @P l70 f0ܶ0Tyl l7ήnܓܤ0ff d@P.WlΗ ET0 "0ll dV;0l0n@PYT l:d'Εn d0l0nl̒n l !@PF\0d 0l8fyܳ,lT d+d) l<Ψn@P l lܔ0\l l9hn l5n̪ Ad@Pd'fT; "ldd0nnT "\@Pd0 l07nܬ0fi00fj T̿ "ll @P0lV;̋lΨ0fT[̣ " l9ln d0 ̓@P[d'̔0f̔0n0$l dT׌d+U d) l̋8nܵ@P l\l l֜8ynܠ0lnTddT$@P Jfzf0{ l0 lT "V d0̧8l n8Ąd@P' f̓ ll l?`h+n͡)n\Y0l l@Pl\̻ !J̏ld d0 ! To0dhTo@P0( lnnm0 l l@PH@PH@PH l l d  3$@PdV@PV@PV@PV@P V@PV@PV@PAV@PV@PV@P*V@PFV@PV @ HHPUPDIDX[PCMPSTG&FWAKISPOSKIDNXTKIBMRKKIBGETKIBFREEUPAUDSKIBP P7POSKID C34 F ITOS CCS 3.0 SL-149@P@P0  0Ad d d0 ddd d hT " d0 h08h@P6hʜ "* *Ȼ *Th hT  3$@PV !" lhȞhȠ >\0h0 h\ @Pr 1ȑlȐdhθd00d00WdΫ  d0 d l@P7 fy0fz00f{0d0d00l0d !T@P0K0lhTSz@P !&AllT0 llT% !?l l$ l @P\ ̪l̬l\ ! ̧dΨ l0 d l0l dܛ@P) $@P+/@P/HPPOSKID2PCMPSTGFWAKISGETKIBNEXTSSP P&NEXTSS C35 F ITOS CCS 3.0 SL-149@P d000h00d00dT1  lTHPNEXTSS"PCMPSTGGETKIBP PZXTKEY C36 F ITOS CCS 3.0 SL-149@P@P  3%@P@P0 d#0h h hl!, Ad Ah  Hhh@P7h˨ nnH TT h\ hPXTKEY LPQ8PKUPRQ8PREPOP PFWAKIS C37 F ITOS CCS 3.0 SL-149@P $00U h@P HTThPFWAKISPQ8PKUPQ8PREPP PmUDSKIB C38 F ITOS CCS 3.0 SL-149@P0W0h00 MhhT dV:hn@P0+hh l̜!"TdllT0 !hȳnȱf\@PV@PXȩlȨl\H TT h hPUDSKIB`PQ8PKUPfQ8PREPcFWAKIS8MRKKIBGETKIBDP 4  3%' P >BLDIDR C39 F ITOS CCS 3.0 SL-149@P @P @P ؐ@P@P @P @P @P @P @P hf) 1 h:f n hhT B d@P0 d6 d 7h8h h9h h l lBd `dT*00 "@P /LhlBK"0 dd T00Vd0 d0 d d d0 dU8 d @P0 Zd d d0 d0 dW d d0 d0 dd0Md Nd Gd @P !p4 d ,d ,l p<d dT   d d @P  ll d#d$d% ̷d ̸d d d  d F @P 0d Ad Ad0 lVU"p̝ $ d f ܒ@P dd f d d̗6nṉhT@P̧df 1v u  d   l@P hT@P0d#d4" d dd!5 Ad d Ad @P#d`p5|ddլ l@-l6~n d l:@PNG 4ܴ d} d  uf5vn, l lΜ>@Py̑d̍`ͽf mTu B\YlZ0 8Y @P d " d0Tl l l &T0̿ @P̏ 5 d $ d l8̞l nܘ n f  d d @P dd $l  l 1  ,l f l!,@P%`[f5gf6 ,lΦ, d d̟;df ގܮ @PPf\ fh̨ ,d f f od l̗7̑d܌̍ ,l d @P{d!# $ dμd]di ll l ll lj  3%w@Pf0 15d6dd TT1 " @PT dddd$  l @Pg@P@P % Rd $l ̯f\̯fhT5 ?ٜ @P $ Rl$ d ,d , d d?d@P@d nޱ̞` gn̔ l ,l̎`]f if  @Pk5d 6d yd \5ll f l̞ l nܧ1@P  h8@P@P nl $ d l!l d n̙n̛ n dj@Pl l)ܔ 1@P@P@PZ Y  @P @P@PT0T @P@Pd0T dV  3%@Pn@P@P0d0d̠ddd d!dll dfv 1@P & d00\d0hd $ dƀ hT@P B ln 1 l0f 1 ![@P `@P `̛l̝ll̠l̢l̤l̦l̘l̚l lΩnܤ 1 dάd[έl̥ , d@P hT@P [ dθn 1 lvf0 1l̫ "@P @P @H HTTPLDIXOD PQ8PKUP Q8PREP PGMINTOPENFLGETSSZ REDRECASCEBCBMPRRNPUTS ERCHK CLOSFLSYSMSGUPDREC ?READR P PZFLHXLR C41 F ITOS CCS 3.0 SL-149@P@P @P hn2 31l, hh(hT h d h h݈hhT@P6  h &ǀ@PFHTT h 3h\ h\h  3%PFLHXLRHPQ8PKUPNQ8PREPKFRHX BLD2 3P P"FL2SP C42 F ITOS CCS 3.0 SL-149@P @P @P h7n@PnH TT h\hPFL2SP PQ8PKUPQ8PREPP PLRDNP C43 F ITOS CCS 3.0 SL-149@P@P R@P RECORD @Ph#hTT  h  h  Rhh h T@P7;@P<H TTh\h\hPRDNP >PQ8PKUPDQ8PREPAVLTOI BLD2 TOWT 4  3%P PfRIGJST C44 F ITOS CCS 3.0 SL-149@P@P@P@P hh hhh ( h ( h+`p9h'h*h"` ՈmԜ 1 h@P; h  h h @PO@HHTT h\ h\hPRIGJSTSPQ8PKUP[Q8PREPXP PBATCHK C45 F ITOS CCS 3.0 SL-149@PQ$$BATCH SYSVOL@PZ h jj 1hhhhhhhh hh hhT8 X !@P T18X ! h0 ؿ 1 d0 lȲlT8XH@PPBATCHKPOPENFL~READR CLOSFLP P GOEDIT D01 A ITOS CCS 3.0 SL-149_  3%@P T TPGOEDITPINITLEPGMOUT RELOADP PEDITZR D02 A ITOS CCS 3.0 SL-149`PP PXIO D03 A ITOS CCS 3.0 SL-149@PXHXLX D XBhH(h'"H"X$ " hXHXh h@P+ h T`1@9T`"HhHXhX hXh@PVhPINPUT OUTPUTRWRITE RREAD AWRITEGPATTCHK:P PLOCAL D04 A ITOS CCS 3.0 SL-149@P0*@PX~IhXhEX}"" hhX5XF hl\X [@P+ h#dhh6 XXTTM0hTY@PV!""  @PH``30H"nnn L#T"@  3%@Ph hH nn  ! Lh`HT"wAH{:h @PTIMX} h\\h \ \ hlPQ8PREPQ8PKUPQ8STP 'Q8STPN)LOCAL IOVNUMMRESTRTNATTCHKZSAVE RETURNRETRNQRELOADSAVADDSTOADDPPGMINTSSYSMSGPGMOUTFATTACHBEGIN %P P EBEGIN D05 A ITOS CCS 3.0 SL-149@P TTTPEBEGINBEGIN PINITLE ENDLOCRETURN SAVE P PEDITOS D06 A ITOS CCS 3.0 SL-149@P READY AUTO,TYPE,BASE,INCR,IDENT CHANGE,OSTR,NSTR,STRT,END,SCOL,ECOL,VETO CL@P+EAR COMMAN CTAB DELETE,STRT,END 8EXIT GET,FN,R LINE,NMBR,TYPE LIST,STRT,END @PV RESEQ,BASE,INCR SEARCH,STR,STRT,END,SCOL,ECOL SEQUEN,FN,R,N 9STAB,TYPE/N1,N2,@P...,N20 45( TTT033P@P0P   ( *B0"Dj Ad00Tdd00UdVd0W`dd d@P"T!H E 0@0DdW`T0VD0XQU08X@PiodYW  "W0" 0T0U2dU02VWy T@P-0QLRkY"V""]FddUAUTO CHANGECLEAR COMMANCTAB DE@PXLETEEXIT GET LINE LIST RESEQ SEARCHSEQUENSTAB l  3 %`P @P TTT- TT>T1?xTy@PTPEDITOSPRWRITELINPROSET RETURNSAVE STAPROSEQPROSEAPRORSQPROLSTPROGETPRODELPROCTAPROCLEPROPCHAPROAUTPROELNSCNSYSMSGWTREADP PGDECHEX D08 A ITOS CCS 3.0 SL-149@PhDHBXXh9Xh7 h3h5` 2 h/,*QH :1 !"h!#h @P+`l ddT@ d0-PDECHEXPSYSMSG98PREP8PKUP P PENDLOC D09 A ITOS CCS 3.0 SL-149@PPENDLOCPBEGIN P PEDCOMM E02 F ITOS CCS 3.0 SL-149@PT  3!&PEDCOMMPQ8STP PEDCOMM P SET E03 F ITOS CCS 3.0 SL-149@P h8n@PH TT h\h\hPSET PQ8PKUPQ8PREPP PSINITLE E04 F ITOS CCS 3.0 SL-149@P@P&(  @PP@P SLITF $$ SYSVOL @P@P@PV@P@PEDITOR IN @P!EDITOR OUTb  3"&@P8T3T]3<=lT()\Y*+\(,\I(,0d>d?d0@ hu@Pcp8r0dA d(yd6d7dRd&dOd d d @Pd dT3=  d d02fq 1 d~ d01d01\a286d@Pj `d0mTa3r!! 103 dT4dm@PTGa2l `l lλfܵ 1Ta3! !\1r0+ l\fuܛ @P1ddddddT1a~0!̣ ! dQTT 5@P.dT6TT3a!Y+\3!\!7TT@P:N@PNHPINITLENPFMRDELyFMEOFC}AMONTOADAYTO AYERTOWKSPLUMMLUTBSAVE 9PGMIN ̲ 1 \;>;5P l @P  3'&{@P0_ T ?@PL(@Pq(@P (@P(T@PB-@P-HPCHAPRO-PSAVE ASYSMSGGETSTR`GETNUMGETAFDFNDNXTSET YSTRMCHhUPORECUPNRECOUTPUT$WTREADUPDRECRETURN)P PpCLEPRO E07 F ITOS CCS 3.0 SL-149@P@P(  @PR@PS@P Tl1T0YAT3!! *d0T0 dh  8dT@P6 l ,lT0! 1 d200Xf 10d\ l\Y \ @PaT THPCLEPROlPSAVE SET UPDFCBSYSMSG(RSQPRO6CLOSFL=CLRSVMbRETURNha  3(&P PCTAPRO E08 F ITOS CCS 3.0 SL-149@PTT1 d Id0 d;THPCTAPROPSAVE SET RETURNP PDELPRO E09 F ITOS CCS 3.0 SL-149@P @P2@P?@PO@PTYTeT0 k0  1Ud00d\ [ 2ld@P/ !> d0%T E00de lT3)!l! 1 d20Xf0 @PZ1d\0 00,fC dh̵ (ܱ0\ l ̩0 2TdT@PHzPDELPROPSAVE SYSMSG GETNUMFNDNXT8DELRECDFNDEND}RETURNP PGETPRO E10 F ITOS CCS 3.0 SL-149@P%  3)&@P @PK@PL@PM@P/@P @P TT 0 dT dUT  d20Xf0 1T9T@P8d lfq 1 dzd~ d0ȷd lȯ!5 `d0T3 r!!@Pc 1!  dTG d n 10\8ۤ ܛ\@P0-   0 ! d00$  lT dh  \@PT0!T5Y THBPGETPROPSAVE CLEPROGETNAMGETONE3SET OPENFL]SYSMSGsSLIBLDCLOSFLRETURNP PLINPRO E11 F ITOS CCS 3.0 SL-149@P@Pj ()H @P@P12345678901234567890123456789012345678901234567890123456789012345678901234567890@P,00000 1 /  3*&@P712345678901234567890123456789012345678901234567890123456789012345678901234567890@Pb-@Pc.@Pd8@Pe?@PfB@PgN@PhU@PiV@PyTYTeT1kl\1IklT0 4 ; dd@P\b0dT 0$d0L T  d0i d%T,C @P00U %\fT1n 1_ Tjd03d d20nn@P 1T00  rHh60 p0d.Hh*Ȉ&d00 Hh Ȉd/@P%Hh٬0dȄLd0Ȍd0@P0> !\14\0 0ll40hlhlT.oj\@Piojsd20 dE 0 dM 0 d2+n 511T1tuI@P0P\11vn3MIkPq 0[P ɌdiAdF κA lζ@P  dG≠ dH0Hf(ΜAl l!̠ lrH@Pd=@nݤpln 1̡" : ' ,@P0C 6 d00Ud000 # dhnT33)!! 1 d28Xf3  3+&@P@ 1dTg)O jl l AdFۤ 0p @Pkd=(rnwlnܳ P1T30)!̣ 1 @PlΥnܠ 1̕l0\hTdkl\Ikl "lE 2s@PQ@P@P P  i 1 dq\IklT11xI3MIkP @P j!@P@P1\Ikl  l̽ " l̸ μ  dM@P@P d,ClT/30)!0! 10 d2Xf 1dTJghT@P9nT1)k\k0 dE  l\xM10IkP0Fd03\)3T!̺ @Pd2p̵q 90Od0)T3)!̣ "jlT10!̔ 2 l@PΕnܐ 2̄l\i@PN@P  d@P@P@P@P  3,&@P@P@PT @ @P{@PHHPLINPROPSAVE zSYSMSG2SET GETNUMGETONESETAUTFNDSLIOUTPUT7HEXDECWTREADREADR UPDRECuRWRITE@P?@PS@PW@P X  3.'@P!Y@P"Z@P#[@P$\@P%]@P7TYT dh d00JdIԘT  @Pb ll\   ll d00d00d d20qf 1;T= @P0 d ln 1 d~ d0)d0T*dd l f@P 1T30!0! 1!+ dT?0 dT3! 1l@P\%1\*0Rd0& `d)3Tr0! &l\ 0 d05 d6Udj8 dT @Pl d0T  "I kTJ00   ,h0N'@P9l dO dP lI@PI 0)-.̹  l̳ ٬HhʬlԬHh̬ Ȉd*@P0t+hƬl̶/TN000 !T10)!0! ) dT@P0!00U006J0Il02\0\3T!jlT) 1&C@P0ʔ 1Od)d0FdG0d2>\10)!̲ !&l1T8!̢@P '̟l\"\0!̕ '̒l\"0\3!! 1 lXf 1@P0 dT0T3Y! 1 lnܤ 1l\$0T3rY0! (@PKd0\#0h 2T11304d05d d2έn 16 d@Pv  1l\Y2& d"0 d ,dT  3/'@P]@Pk@P@P@PT@P9@PHPRSQPROPSAVE 8SYSMSG#GETNUMWHEXDEC'SET YCREATEDELETE)OPENFLFNDNXTDECHEXPUTS CLOSFLUPDFCBRENAMECPGETPRORETURNP PDSEAPRO E14 F ITOS CCS 3.0 SL-149@P@P (@P @PPA@PUS@PE @P@P OPERATION FINISHED...STRING NOT FOUND ~  30'/@P2@P5@P?@P%TYT0 d00d h Ph dNT :20 da  1Q@PPT : ld0H\ : "l  ̿l !(\@P{ : dl\̸ : #d  l &T-@P lfܙ 10d0 d` uT0 !m d20(f0 (@P1 l d0 10 Ӝ , d"̛ 2̘l Pdgl Kl 9d@PF̕ #lT0\ "ܪ l0N T3TN1!"P 2\@P1'N1#"50P l` \ $T@P'?@P?HPSEAPRO?PSAVE &SYSMSGGETSTR?GETNUMQFNDNXTSTRMCHOUTPUTWTREADRETURN;P PrSTAPRO E15 F ITOS CCS 3.0 SL-149@P *@P9@PTn"d-0dV0 !OT OHd Z6H 1<٘7Ԙ@P02l ,l d00dGT 0*f 1 l  & 1$  31'C@P[ T0̫Hd0LTTHPSTAPROnPSAVE GETAFDGETNUM;SYSMSG^SETAUThRETURNjP PCLRMEM E16 F ITOS CCS 3.0 SL-149@PTTD1>\)1@THPCLRMEMPSAVE SET RETURNP PPCLRSVM E17 F ITOS CCS 3.0 SL-149@P @PQ@PTLT? "p@P^ "lT0U00,fC3gd 1T)00 1;E  39'@P0 Ol dF0dGd2!'T3)!! 1 d 0Xf0 1d@P6\00d)  d@PEE@PET@PJ@PJHPSLIBLDJPSAVE READR SYSMSGDECHEXFNDSLISET PUTS RETURNFP PESTRMCH E32 F ITOS CCS 3.0 SL-149@PTA0 d\0Fh"d]a  &" ll d2!T !@P, d ; lTHPSTRMCHAPSAVE ELNSCN%RETURN=P PFUPNREC E33 F ITOS CCS 3.0 SL-149@PT?0a )0 d2!"0f Ad0H `00m h @P+Ոn@P03^0\lT @HHPUPNREC?f  3:'PSAVE RETURN9P PSUPOREC E34 F ITOS CCS 3.0 SL-149@PTO0] dG^ !;d2!4 Ad00Ff 0AdH d@P+Hl 0n h n@PJTHPUPORECOPSAVE RETURNKP PSEQPRO E35 F ITOS CCS 3.0 SL-149@P@P  /***@PK@PL@PM@PN@PU@P-@P/@P x  3;( @PTT 0 dT dUT  d20Xf0 1T @PAT 0d0KT d lfq 1 d~0 dȣd l@Plț!> `d3Tr00!! 1)  $0dT0 1l\Y @P0d Θn 1\ 2\0  0 \@P ! d$  l d00d0K  ll10 d00 d08 d@P\0 d3T!T30)Td0d / d0T0T3  )@P0& r0O o 13̡  l%̛ !̭Hh̤Ȉ@PCl̦Hh̞Ȉ d*+h̘Ȉl@P0Y 0hNl dO dP 0l "l3T)00dd )d@PT0g0ULhd0 lT@P @P-@PA@PH@P@PT@P@PHuPSEQPROPSAVE CLEPROGETNAM(GETONEGETNXT=READRC(G@P/   h 4"D PABSPARCKUADRMMREAD:MMWRIT>LOKCHKREMLOKqINSLOK}CLFRIOFMUFCBFMCHKOFMCOVLFMBRRN-FMFSRC7PDWMUL DWSUB DWADD DISMNTSYFAILCPSET END0V4SWAPCK'LPTRS "LOCF )FCBSCT:FSLIMT=MAXLOClNRERLE|PLRTABLmMMLUTBFMCOME0P PPUTREC F03 A ITOS CCS 3.0 SL-149@Pa)BHH%A&  1*a( a' aA A,T @P+aAa+A* \ nSgAaDa(a \a(/f'B\@PV(\ 'hB\ˑ'" 'T|f f(T'a%ȷN (K"@P  %a% a a! a2a$+*aTA"a# b "b (b Th S ; 8@P*+(" aAa,T!bbb b ,(b +)Y,4 @P Te U1)DfPPUTRECPFMFSRCFMCOVLcFMBRRNCKUADR(FMUFCBMMLUTBDWSUB &FMNRCDFMEOFCjCLFRIOpMMWRITFMCOMPP PREADRC F04 A ITOS CCS 3.0 SL-149@PaBHDf A' a Ga aa; T @P+6*f*'T AaA a! T$ "#@PV %# a+D'A%f/D b # lA\Ca# )#B1 @Pd#a#a%B\% #\#TDa$ a&  a2a" a a a b a!b b  3?([@P Ti S     b b b + \a$  @P׶f$a $ TPREADRCPFMFSRC8FMCOVLNRERLEsFMRDELFMCOMPrDWSUB LINSLOKCLFRIOMMREADLOKCHK'CKUADRtP P.GETNXT F05 A ITOS CCS 3.0 SL-149@P bh ψ" aaA af # l a aT@P+PGETNXTPNRERLE-FMCOMP,READRC*P PnWRTBAK F06 A ITOS CCS 3.0 SL-149@Pa"Dh Aa #OaDa Taa T @P+Aa T a a  2  a!TaDaf a a a a2@PVa Tg Q1f #T"APWRTBAKPFMFSRC#DWSUB 1DWADD REMLOKhCLFRIOEMMWRITZFMCOMPmP PLMRECAD F07 A ITOS CCS 3.0 SL-149@Pa"Dhfa  2 a a T& A f a a j2 Ki  3@(o@P+"  aAA! Tg Q1f #T"APMRECADPFMCOVLREMLOKFFMRDELMMLUTB.MMWRIT8FMCOMPKP P`COMSEQ F08 A ITOS CCS 3.0 SL-149@Pa(Dh a\`aA aT T +=fDa& b da%% @P+a%\` T@PG`/F9/` T<'@b @b .*Tf Q1 @PDf hT %@P hhT$% ,&2Df` @PȾE3bb""H4Ȫ ("K 1\( h 0  3F(@P-5"D PFFCLOSPFCBSS SYFAILMMLUTBFMFCBS,FCBSCTFMSCOMFMUFCBUCTMGRMAXCOPUCTABLFILLS REMLOKkLOKCHKgP PUCTMGR F32 A ITOS CCS 3.0 SL-149@PHhTTh\h\"h\h2 2T " :D h @P+h h h Ha 1L@ n q+ l*@PVX` g q̿X `  g q;` 0A" lȠ@P`|PUCTMGRPQ8PKUPQ8PREPUCTLENWSYFAILUCTABLVP PFILLS F33 A ITOS CCS 3.0 SL-149@PHQHPmL` B"C ;6 o5  ,1aH*@P+ X(hHX#hHHT+ f b b b C@PVhHK" hlT " " @P1 fb h`pPFILLS PDWMUL cDWADD 8MAXCOPsUCTABLOMMLUTB]FSLENDQFSLIMTPP /  3G( PAFNDVIT F34 A ITOS CCS 3.0 SL-149@PH;h:TTh5\h4\h3 L10`: ` $ w b@P+ `  f? q l`PFNDVITPQ8PKUPQ8PREPMMLUTBP PXMMIOF F35 A ITOS CCS 3.0 SL-149@PhhQDhMHMhLTT"h9h8\"h5h4\"h1\"h.\"h+\h*\"@P+h'\ h)`K TTDi RA1߰ l`@PVPMREADFMWRITFPQ8PKUPQ8PREP MMWRIT:MMREAD7P P[FDWMTH F36 A ITOS CCS 3.0 SL-149@Ph hV h hP hLHGhFTT"h6h5\"h2: 5\h4\h3h)\@P+h-\h,O*`TTT 6fbf b l `@PVPFDWADDFDWSUBFDWMUI PDWMUL :DWSUB 7DWADD 4Q8PKUPQ8PREPP  3H) PgDWDIV F37 A ITOS CCS 3.0 SL-149@PHYTT""hPhM\""hM\hL\hHDlFHhD6>t;2S:4ah?H=849@P+9H6h6," 1d'hh &hh !d#aR8s$d1dL l@PVaPDWDIV PQ8PKUPQ8PREPP PIOVCHK F38 A ITOS CCS 3.0 SL-149@P HHTTh\"` T@PIOVCHKPFMCOVLQ8PKUPQ8PREPP POPENFL F39 A ITOS CCS 3.0 SL-149@PTT\h\hh\h d>ldZ TTnH BhT@P+>Y`a !=a ) 4XA $X" Q!' h% @PV 1 1 +  Ka m 8@P  2aT >"OhY[$ Y` T DD>:hUT YhF @PhAT$>T9#=:ȶ3%// d >"b@Pנ%  Y` T DD>h @P hYhhhhhT >r`bb22D b b O  3I)#@P-b b b b bbbbbb b I b Z TXT"TD sf@PXXhh hhhh؛ؘؕDb Ȓ b hX  < <(h @P`Te Q1>rj;gdd &@ 0b   /@Pb   .b b @Te Y1 d >d> b$` T@P f>l TPOPENFLPFMEOFCSYFAILPCCP MMWRITFMSCOMFMUFCBFILLS FCBSS MOVFCBUCTABLUCTMGRCKRQST'FMCOVLQ8PKUPPQ8PREPP PCLOSFL F40 A ITOS CCS 3.0 SL-149@PTThH\hE\hB l@@ h@` T"T l13` b 'l& b @P+h, T ` T  b `Tf Q1l @PVhTPO%Vh hT^PO$V[%4 f@PTPCLOSFLPFMFCBSxFCBSCTuFMSCOMFMUFCBCUCTMGRiUCTABLrFILLS 6FCBSS .REMLOKLOKCHKQ8PKUPQ8PREPP PFFCBSS F41 A ITOS CCS 3.0 SL-149@PHHHbX_ XRT Th`hHXhp XR@P+"9f}HX&2\#rX."\hkbXh=  3J)7@PV XBE ^b F8ZDf K`RChCIhB Ch?AH8`H n q@P  `   h n qH  " "H @P  Dhhh hXSh 6@P"D DhX XQ H X p"XXS"ḓ@PfDh hHȥXlX] XQ ȥb DhvThr='B@P-3\XC3"N\ Dfb iPFCBSS PSYFAILTSUEND+TSUSER&CPSET ECCP 9MAXCOPrUCTABLFSCTNEFSLIMTFCBSCTFMFCBSFMFSRC"P PGETFCB F42 A ITOS CCS 3.0 SL-149@P `aaDaa!a a hTBT _\ `T  hA@=@PCKUFCBPFMNRCD FMUFCBP P(CMPSTG F45 A ITOS CCS 3.0 SL-149@P H#TTh\h\hB RJR3 2 PCMPSTGPQ8PKUPQ8PREPP PCPUTKL F46 A ITOS CCS 3.0 SL-149@P H K" d   `h < 8(dZPCPUTKL}T  3L)_PMMLUTB P PXNXTKIB F47 A ITOS CCS 3.0 SL-149@P HNHKDd@HC hC h>"T @  @  H,h,'T@P++.2dad DTEa d@Q@PVPNXTKIBPFMFSRCFMBRRN@DWSUB +P PPLACE F48 A ITOS CCS 3.0 SL-149@P H H`TD@PPLACE PPUTRECP PCKADRP F49 A ITOS CCS 3.0 SL-149@P HHTT@BT@PCKADRPPCKUADRQ8PKUPQ8PREPP P$RDRECD F50 A ITOS CCS 3.0 SL-149  3M)s@P H! H `TTaa a aT d@PRDRECDPREADRCQ8PKUP Q8PREPP PFWARCD F51 A ITOS CCS 3.0 SL-149@P HHTT"@T @PFWARCDPCLFRIOQ8PKUPQ8PREPP PWRTDEL F52 A ITOS CCS 3.0 SL-149@P H H@T&2 d@PWRTDELPMRECADP PCOMREC F53 A ITOS CCS 3.0 SL-149@P H H`TD@PCOMRECPCOMSEQP PVOLUSE F54 A ITOS CCS 3.0 SL-149¦  3N)@P 6ad#d d H#3VaDb2aa `a9a a@P +a hT H `HTc - H hT%f@PVH `c 1 `c 1 `Df 2f @P2T$DPVOLUSEPDISMNTMMLUTBwCPSET >FMCOMPsCMPSTGJP P CORFCB F55 A ITOS CCS 3.0 SL-149@P HwHt / dZT + .Dhaha@ 7 X1"Q Ho HX hW@P+ " H\h\aHOhOhJ hI 2rHGHGhGTGA@ "B!H@@PV? SX!h)`Tn C  @f`"@P[H ht)Th@PHɐ1HhhTHhaHhwȲȰȪa @Pȩa #-Ȧa ȥa( hhhh X  < 4X$ X2h HhHh@PHh= TPCORFCBPFMSWAP FMCOMPtFMNRCDFMEOFCFMBRRNMMREADeDWADD DWSUB ICOMPRS P P!COMPRS F56 A ITOS CCS 3.0 SL-149@P HtHqDhqhq@&1jb'b(b)b # 7 X1"Q Hn(HU)hT<  3O)@P+ " H[h[aHNhNhI hH 2rHFHFhFTF@? "A!H?@PV> SX!h(`T Di  d>`$`P`P@P [H ht hh)Th@PH1HhhTHhaHhsȭȪ@PȠa(bȞa)bȜa&bȚa'b #4Ȗa ȕa/ hhhhX  <  4X$X@P2h| HwhuHyhxHohn'PCOMPRSPFMNRCDFMEOFCFMBRRNMMREADeDWADD DWSUB IP P BZS3K F57 A ITOS CCS 3.0 SL-149`P P P\FMENTP F58 A ITOS CCS 3.0 SL-149@PX%X#X!XXXXXXXXXX X X XXXXXH2@P+ H-32"4` aADeaa AA a a Vh@PV`PCREATE$CLEAR "DELETE OPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEPUTS WRITERREADR GETS PUPDRECDELRECCOMFILVOLUSEREDUCEi  3P)PEND0V41CCP AP PsFMCEPT F59 A ITOS CCS 3.0 SL-149@PX7X4X1X.X+X(X%X"XXXXXX@P+X X XXXXH6 H132#4` aADe@PVaa 0A a a Vh`PCREAT 6DELET 0OPENF -CLOSF *RENAM PUTZ READRXGETZ UPREC REDUC PABSPAREND0V4DCCP UP PPROC19 F60 A ITOS CCS 3.0 SL-149@PPREDUCEP PCFCBTL F61 A ITOS CCS 3.0 SL-149@PHTT h O ` _4LlPCFCBTLPQ8PKUPQ8PREPP PCPKIBL F62 A ITOS CCS 3.0 SL-149@PHTT hL  < 2ը    è Bȿ  hʦ @P^& 輞" 2 " "ʏ d "ȡ h 1@PȘhd ;  T ! wd" l=y"hw#f@P> Q T ^ OP TT PT$ T$ @Pl\$ ld d 0 T̡l)T$̸ !̏l ḷ:Ϊ@Plf"ܕT %l&l'l̔lT@P!HTT\\ h hR\hPCREATE#PQ8PKUP)Q8PREP&FMSWAPFNDVITBLDFDDGETSPCFCBIX BLDFDSBLDFCBSTOLBLFMSCOM  3R)P PBLDFDD G03 F ITOS CCS 3.0 SL-149@P@P @P @P@P@P L "p8hOp8hBhT hJ !@P/ӔK 1dd  T> l9l6 dMdN h̻6 (fر@PZȧh hȬ!T!"MLL> Ȓ hؗ ȑdQ dR lHPBLDFDDPFMSWAP?CFCBTL MWRITFdP PGETSPC G04 F ITOS CCS 3.0 . SL-149@P@P @P @P@P@P d> h jj fV 1Hh Ah |T ~  3S)@PHh ^ h A hȻ$ L "p8hAh hțhȚhثT Ȕ @PsTȉ \    !  \  @P  l 1T W  d d( !(\ ̾@P ̍ d \  ̰ \ L ̦ @Pp4LdB\ ̍ TlW W  J W " @PXK 2 dd T > d d dd T)LL@P@> w̟ q\ ̲ Z d dd̏6 f l@Pk  d!!\"LL>̧ : l 1 d "p<@P d4ddL,d\"L>@Pu@P@P@P@Pd > llHTT hh h h_ h^ hDPGETSPCPQ8PKUPQ8PREPFMSWAP&FMEOFCCPKIBLEFDWADDDWDIV wFDWMUIMWRITF:P PtBLDFDS G05 F ITOS CCS 3.0 SL-149@P@PT> 4  MN QR !Bd TM"!TLL! > 6 P,  3T)@P-hL6 f dU dV hnغ 1n l"\MTL!)L@PX>@P\ȥlȣlHTT h h\hPBLDFDSdPQ8PKUPjQ8PREPgFNDFDSMWRITFP PBLDFCB G06 F ITOS CCS 3.0 SL-149@P@P`@P @P@P h f `1u Ad qd od d de da ' d @P 6d d d d d  h h@nضز 1 Wd (Xd @Pah h*nؠ؜ 1d " h QhTM> dT> @P d >HTT h h h h h\h^PBLDFCBPQ8PKUPQ8PREPFDWADDwMWRITFP POSTOLBL G07 F ITOS CCS 3.0 SL-149@P!k  3U*@P`@P@P hh d>T! >  'Md Nd Jd (Kd@P1Pd!Qd"Rd#T>HPSTOLBLKPMMLUTB MREADFMWRITF?P PFCBIX G08 F ITOS CCS 3.0 SL-149@P@P@P @P@P@P TQ hTML! > > X' 8 hO D h h՘! h@P7#h   h1ؿ@PK-ݘ !(ȶ`dRmȬ l@P^p8 hRBhn l!TM!L>Ȓl@HH TTh@P\hPFCBIX PQ8PKUPQ8PREPCFCBTL MREADFMWRITFn  3V*'P PFNDFDS G09 F ITOS CCS 3.0 SL-149@P@P @P dThhL "p8( hT!Q dUTML!!L >> P hd!$@P4  hlh h连 غغ 1 @PTȱ   hȧhȡl l lț Ȗ  "\MTL!!L >̱  l@P dVH TT h hwPFNDFDSPQ8PKUPQ8PREPHASH MREADF P P1HASH G10 F ITOS CCS 3.0 SL-149@P@P h hhh 1 Ahp8h D@P"H TT h\h\hPHASH "PQ8PKUP(Q8PREP%P P#CLEAR G11 F ITOS CCS 3.0 SL-149@PO  3W*;@P @P@P`@P@P@P@PT T d>T  V h hT   h@P FQhT M > hT >   l dl (T@Pq h h   țhș h 1 d p8 d ddT @P! >̄ f d d d d d d\!"LL>> @PB̚ < l\L!!L > + dL5 n l!@Pl\!LL! > ll̺lT"@PHTT\\hh \hPCLEAR PQ8PKUPQ8PREPFMEOFCIOVCHKFMSCOM GETFDS'UCTMGR:FDWADDJMREADFTCPKIBLpMWRITFP PuGETFDS G12 F ITOS CCS 3.0 SL-149@P @P $  T ?N M 9T> + 1 -.@P.` TT3T  h hnطط 1 a  3X*O@PQ lȮlȬlHTT h hhh h h\hh\hhPGETFDS\PQ8PKUPbQ8PREP_CKUADR7FNDVITFNDFDS SEARCH9P PXSEARCH G13 F ITOS CCS 3.0 SL-149@P@P@Ph l!2 bdh h<"hf>(? @P1=Q  T  7l lH TTh\h\hhPSEARCHIPQ8PKUPOQ8PREPLMMLUTBFNDFDS7P PDELETE G14 F ITOS CCS 3.0 SL-149@P@P @P@P`@P @P@P   3Y*c@P@P@PT T d>T V h hh hT  @PHhƘ5 nT""MTLL> { hQhT ! M >ȓ hT@Ps ! >̫  _d d  h n؊ `1\ >̌ @@PT > 7d d` T  %P ld d : d@PIf"T llllT$@PHTT\\h/h8\h'PDELETEPQ8PKUPQ8PREPFMSWAPIOVCHKFMSCOMGETFDS)UCTMGRAMWRITFVFDWADDiMREADFrFCBIX STOLBLP P@MOVFCB G15 F ITOS CCS 3.0 SL-149@P@P@P@P @P @P@P @P D?  3Z*w@P @P d> h5 jhh hYhT "  @PE4Ƙ # l lȳhȳl Ȫ  # l@Pc̸  Ȫ  l lh̪ l ̣  l  hh d @P,h|hwl   !| l `d T` T@P ,фddd9J" d>Qdbl l 7/ f"@P +Yf"̢l lϜ= df"ܻa ̾l  @P  T̺ lll̝l@P'HTTh\h-h\ h)h hyPMOVFCB)PQ8PKUP/Q8PREP,FCBSCT(FMFCBIFMFCBSFMMOIFFMMOSFCKUADRFMSWAPUCTMGR5P PCKRQST G16 F ITOS CCS 3.0 SL-149@P@P`@P@P @P@P@P=  3[*@P d>T W W V dY `dX hQhT! M >  hT @PG>  h d xa ȭhȤ ȩh`Sh@PrTT F /ȍ W?  h  L dh h }'d@P lT >> Y .Q h_ @Pʔ  l\> l lllHTTh4@P h\h\hh\ h#PCKRQSTPQ8PKUPQ8PREPFMMOSUFMMOIUFMCOVLtGETFDS FDWADD;MREADFEFMSCOMwUCTMGRP PRENAME G17 F ITOS CCS 3.0 SL-149@P@P @P@P`@P@P@PT T d>T T hUhVh hˈh hT@PF  lt hQhT!M >ȹ hT>̽ XT̵ @PqP\!"MLL>̨ C h  fؐ 1TM!LL! >̍ (\@P! >>  d dn 1\! >lT"I  3\*@PHTT\\hGhP\ h h\h9PRENAMEPQ8PKUPQ8PREPFMSCOMIOVCHKGETFDS'UCTMGRDFDWADDUMREADF^BLDFDSlMWRITFP P)ADDIDX G18 F ITOS CCS 3.0 SL-149@P@P@P d qdodmd kd id d d  d dT dY d d d@P3 d  d d[ d d  d dd dd d WW Zff  d @P^T Ad T   d @P l lV0d.dT !*&l%ld  ldl @P ̮d\T ;ܣ 1$@P̜dd̹dWll̿ll\l̸l̹lll@PT̟l d dT@P8H5TT h hbh h{ hy h h hp hp hn\ h h\hGh@P h\ h` hF\hPADDIDXPQ8PKUPQ8PREPCMPSTGhFMEOFCPCPUTKL'XTKEY _PLACE ADDKISCKUFCBFMSCOMP PADDKIS G19 F ITOS CCS 3.0 SL-149%  3]*@P @P  Ad dZY"p ` lf͸n܍ܗT  !eU d@P SdTl !Tl d ! Td h TY@P u lnf l l@P|@P@P l l d@P:@P@P   ll\@P@P@P@Pb@Pq@P@Pz@P@P @ HHQ/  3_*PADDKISPCMPSTGsFWAKISkSPECAL=POSKIDNXTKIBWRTKIBGRDKIB YUDSKIBP PFWAKIS G20 F ITOS CCS 3.0 SL-149@P $ Y h@P HTThPFWAKISPQ8PKUPQ8PREPP PHNEXTSS G21 F ITOS CCS 3.0 SL-149@P d d h h llT"  lT !  @P- l  h T!!Z"A@PBHPNEXTSSDPCMPSTGRDKIB "MWRITF7P PEPOSKID G22 F ITOS CCS 3.0 SL-149@P @P @P dDh Ad  d d ddd d hT "_  3`*@P9 d hh "8ȸ 8Ȳ 8Th hT @P^ !, lȞ Ț hȍhȏ >\dh\ڠ @P 1 l ld ήd d [Υ + d d\! @Pd dv l 7 f}f ~fddd@P !TT lhT[~@P !#:llT  llT2 !8 l l \@P! ̲l̴l\ !ΰ l d  ll dܣ 1@P8=@P=HPPOSKID@PCMPSTGFWAKISRDKIB NEXTSSP PRDKIB G23 F ITOS CCS 3.0 SL-149@PT""ZZ" HPRDKIB PMREADFP PhĨ nοn@HH TT h\ hPXTKEY UPQ8PKUP]Q8PREPZP PRTVIDX G27 F ITOS CCS 3.0 SL-149+  3b+@P@P@P d YdWdUd Sd Qd d d  d dT dY d d d@P4 d  d d[ d d  d dd d d d  Ad  l@P_= n@Pm騑 nT - d)dT _d d !@PT l hT @P d @P>̤dddd dd % $  w@P w   w dQ llT  "̾ ܚ l\  lΌ@Plβl llα l% $ ̥ Z̖ V Q̚ ̎ @P. F̶  lT̲ !JT l(l'l% l# l!lll@PYTd d ̝!fl@Pv  l l@P}@P   l l n 1l d  d T@PJHGTT h hh h h h h h\ h h h h @Ph h h h h h h\h^\ hh hhZ\hPRTVIDXPQ8PKUPQ8PREPCMPSTGFWAKISZNRERLECPUTKL(IOVCHKwSPECALPOSKIDRDRECD\l h\@P P~d !ΩlƜ 1 d dT  "   l\l@P{h\@P ~d 1T  d d d d d dd % @P$  F B   8Tlň2hT@P̝ " ̸d̹d̋G l l "V@P@P  3d+?@P l  l@P @P @P 4 l@P@PTԄ l Ф lll7@P'̩l.̯l-̰l, d d d d dTd d <f@PR@P Y d dT@Pd\HYTT hr h h h h h h \ hh hR h h @Ph hJh hGh hDh hAh h>h\ hP hy hw hu\ h:h hh@PY\heSPGETNDXfPQ8PKUPlQ8PREPiCMPSTGFWAKISBFWARCDNRERLECPUTKL2IOVCHKPOSKIDSPECALRDKIB $NEXTSSgRDRECDCKADRPPFMSCOMaP PDELIDX G29 F ITOS CCS 3.0 SL-149@P@P dddddd d d d  dT d Y d@P. d d d d  d[ d d d  ddQd Od "d d h   3e+S@P Y7 $ l hd5d hTT̍E ׄl %@P !TldlT @P"HTT h h h h h h h\ h h\h\hAPDELIDXPQ8PKUPQ8PREPCPUTKL'XTKEY rDELKISvWRTDELFMSCOMP P5DELKIS G30 F ITOS CCS 3.0 SL-149@P@P d Ad d hhT 0 h d!Tl@P6hT@P ; h ݌d  ٜ T "   n@Pf BT " h hί lΫ"l\  T " Ιd@P l !~\ lh \@P  l ! ܜ $lT2d d d8n@P\O\ !I\ ll l̻> @e e[  lf@P 1T  lnܸ 1T < l l d@P$d  @ HHPDELKIS-PCMPSTG9FWAKISSPECALPOSKIDUWRTKIBjRDKIB UDFKIBP (  3f+g PUDFKIB G31 F ITOS CCS 3.0 SL-149@PT" \  h q h h h ll\! MT@P0 ! Gh dȜ !;T hh\@P I !+ ȯ d h \@P[ ȟl d8 [nTǘ  d l l@PHzPUDFKIBPCMPSTGFWAKISARDKIB .WRTKIBqP PCOMIDX G32 F ITOS CCS 3.0 SL-149@P dddddd d d d  dT d Y d@P- d d d d  d[ d d d  dddWWZffT@PX̫ !BP >Md Kd#d d h  8 5 l d d(0d @P dTT  <l % !Tdll T @P$H!TT h h h h h h h\ h h h\h\h-PCOMIDXPQ8PKUPQ8PREPFMEOFCKCPUTKL&COMRECWXTKEY ADDKISCKUFCBFMSCOMP P=MASALC G33 F ITOS CCS 3.0 SL-149@P^  3g+{@P@P"@P$ @P@P@PAL@P@P$$ @P&dddd Q T  d d d d T@PQ LBh\" J hhhTG!LL! > > "3 hȭ!R (h @P|  hG@PȌ 8 ( hT@P ȍ ) $# h\"@P ,h  ,h\@P@P ,hT;"@P dd ,hT@P TGL!!L >̕ !Z l   I !Cw 3\@P$$ > > !8TP! l/ , hTJ@P   $#h\"1  3h+@PJddҬl dlɬl THPMASALC8PYERTO 'MONTO +DAYTO /HORMIN3MOVE FDWADDMREADFbFDWSUB CKLGBLMWRITFFMSWAP5P P CKLGBL G34 F ITOS CCS 3.0 SL-149@PT J TJ H TThhPCKLGBLPQ8PKUPQ8PREPFDWSUBMOVE P P!MOVE G35 F ITOS CCS 3.0 SL-149@P h8n@PHTTh\ h\ hPMOVE PQ8PKUPQ8PREPP P'MASREL G36 F ITOS CCS 3.0 SL-149@P@PAL@P@P   3i+@P@P@PTT >> " є   L@PFBh hhT hȸ $ȭ   (hT@Pb ( hT@Pjؖ (h f  h@PwȊ \ ȕ  $ h\@P , h\@P d , h\ @P\ J l ,h  ,ԀhT@P ,h贖 + ,h1 .  ̳ l , h ,h (,h@P\@P ,hTh@P̔ V@PTG!LL! > > ! N ddvl THPMASREL"PFDWSUBMREADF"GETENTLMOVE ^CKLGBLFDWADDMWRITFFMSWAPP PGETENT G37 F ITOS CCS 3.0 SL-149@Ps  3j+@PA@P@P?@P BLBh TGL!L >> !1 h (h  (h @Pm 1 h@Py (ĀhTA@PػȻ " h T HTThPGETENTPQ8PKUPQ8PREPMREADFMMOVE FMSWAPP PREDUCE G38 F ITOS CCS 3.0 SL-149@P@P#`AL?@P!@P@P@P@P, d>T Vh hˈh hT#  hQhT@PWM>ȭ hT!$$! >   hhT\@P! Ȇ ~ ~0 ~ "~ d d3  3k+@P !T d L d\T!L@P p > T|T`%%  > p &WTW@P!  J  C < 5\ \%% >@PL̰ 6\ \ \%% >̙ \ T̊ '(@P(wd> @PPz@Pz)l*l@Pt@P+l@P8@Pm@PlT@PHTT\\h hhhh3 h&\hPREDUCEPQ8PKUPQ8PREPFMSCOMFMSWAPpGETFDS0UCTMGRGFDWADDMREADF FDWSUBFDWMUIDWDIV MWRITFP PPSPECAL G39 F ITOS CCS 3.0 SL-149@P@P ~  3l+@P @P @P @P @P l:d  0 ) l( d    @P3 [  lɀ@PD HTThPSPECALFPQ8PKUPLQ8PREPIFMPPROP PSMCLNK H01 A ITOS CCS 3.0 SL-149@PPSMCLNKPDSORT PSMCLNK P5>DSORT H02 A ITOS CCS 3.0 SL-149@PX6H "(h%h THf@5=SMCMONSM@P+CEDTSMCSRTSMCIMGSMCFMGh h h h! 9hhh$ h hhh h+ *hhT @PV H HTAT 5`PI  3m+@P$$PGMNAM$$ SYSVOL @PSMCMONSMCEDTSMCSRTSMCIMGSMCFMGPDSORT PUPDFCB"SYSMSG#READR ]PUTS OPENFLQGETS GETFCB!DELETECREATECLOSFLePDSORT PSMCMON H03 A ITOS CCS 3.0 . SL-149@PXY\ `XHg He \%  \  \ `Xc@P+2be! "ru1 5`@@@PVhHHH bޠ 4!נ bӠ 41̠bǠ4!@PͿbͺ41ضͪ2be!أ͗@P"ru1h H D cfh '2bh h@P  $h' t Hb#c4h47 @P 4b@P !XXX DXbbLb\CCXEL@l@ @P6a *X#4a L3l3 h-4a Z'Xp!X8X%X@PaaXHhXOX$   v1/*h@PlX)fhb/ՂRhXQu ut!@PJ27h6 h=h X "QXX@PhHX  X  Xhi"Xd@P h hh_4a  6Xa 745XXXBRX_ a SD  3n,@P8Xh- H.*!*=X*hH !X !RHXX\t@Pc l !Hh AAaXXXU@PXXWXE`X"@eaXX7@P @`P@PXX ` a X hh hh XX@P@A`PD@PI1eDaXhHX(XXh h h $h 7V`_@PtH/ "a  {{XT  XF f"X@P`Bh hh B1h$h X V`SA @P X X `H="#  ha'BaXXSDhX@P8XRX XEq$ ABHh+,AB4$@P+,HhbPb b bDb X5X( X-@PHB17b Db b /Xaa %a X% % $X  X@PrhHAXE h$h"Vb`FHXJX@PXA` D`D h h V)%h$X%  D@P j3 e"  Hh X@P = ÈhH X fbbbbb X#@P hh/h-h+99h#h#h# h$h zV` pCX  3o,@P7 X_Xh h *h $h KV` p@PbX~ XqhS @H: H  F  B`@Ph&$bRhhh. zHX hXn` `  H@P  |@Z{[llP]}M@P]\Nkk``Kaazzm^L~~nnoo |[.<(+^&@P!$J*_)';O\m--//bbccddeeffgghhiijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==@P9""@Pd{#AABBCCDDEEFFGGHHII})J$K.L hh(bbll f$   3q,C@P|Hl2hBh1  !"X.ClA@P/hڈhX#՘hXElXAl  hX ?lغȻ hصشȱ A@PZlج h & #  H \,,XX  H @Pa* f XhLhoXhjdhqeXXh:X6 @P F C _*)(  O  I F0HX hhHeX @PXeX~:h X?l -X5l  @P!MT zF"T ̠ =h=Ƞh5ah3 hȸ "0(h@P1hH#!h h.-tT A/2f AbȔ hX l@P\ aa T IrAsBHbbNqdb!@Pd AaJ aa h2 8!b  4 B8(a a $ !HB8( a6b @P)5!D5&  "5Xa <%&1a&&La%ض H @PB8 h % c h an C n HhT@PA.a"H hThmhX$T h$`P3@PM hXlXlS hDh Hh@PmX" hX"h0H0bR h,hX2``P@PXM hhhjXXXA AP hMh9R 4h4X)R  0D j@P  jB  `) hd  `ɷ)hh 4 "@PXXth!XthB ]JHgX` \FNF2OPKFSLr  3r,W@P XMh XN3 "0H~HXQRXXHhR  g @PK'HXXX)* HXXHX@PvXXXbXXX Hc h^XT T T@P , (VOLUME NAME) (ADDR/TAG)(F/D) (A/E) (A/D) @P(KEYCOL)(KEYCOLS) (OMIT/INCLUDE) (EQ/NE/LT/GT/LE/GE) ('HOLLERITH DATA')FNF2@POPKFSLPSMCEDTPWKSPLUFMMOSUPSMCEDT P,SMCSRT H05 A ITOS CCS 3.0 SL-149@PX|XXX 3 %`TTh@P+rRh^ 4hhYXOT T `PV#`Py@P an XhH"GhTA @hX6n6g4@P8H h' h%F(6!3hI hihh hT$ Ab5@P!R(@'7!m HA(h`(h( @PT B@)" h 5ȺT Tΰ7@P3hhhd 2T&h h ahH HHȽ(qhhh@P^N}C  8 n 3BnhDhddhc aHXmX{h~  3s,k@Phh2a7hhH5h'h&B15!5 aB0'hHBA% 8h B@P8(a&5X@P@P  ahlh(h'h//h11h1hhh#h@P"hh 2h \րPSMCSRTPSMCSRT PSMCIMG H06 A ITOS CCS 3.0 SL-149@PXXnXX$XXS Fbd$h?B`Tl<31n48 h6@P+),!R(@(&7"m!HAH` hT @PV `!TTBh XX; `Th@P ahH H(qΈhɈhȈhNC  9 n 3BnD@PhhDb%b&q h 4( ` !TT Hn8 @PaHXXhnX^5h*h) !'%hh 4!hhh b ` a@Pah a@P=@P@h%3\T("%Hh hB8H!VHHh 4 @Pk a dh`l_w hh#hh"h!h<h;2h @@P\PSMCIMG\  3t,PSMCIMG P.SMCFMG H07 A ITOS CCS 3.0 SL-149@PXXX%XZU` TB`Tl<31n48 h6)@P+,!R(@(&7"m!HAH` hT @PV3`!TTh ahH H(q@PhԈhӈhNC  8 n 3BnDhh aHX@PRX`h#\w5h3$ Aa53`ah8` h !0hh 4!h@P h$Hw l|` nX n`ahaaT  a@P hl/h1hhh2 hNhO!h2h \@P-PSMCFMGPSMCFMG P$DPTAM2 I01 A ITOS CCS 3.0 SL-149@P#H @TXT *TDh T-hPIPTAM2PALTDEVLOG MAKQ PTAM2 MAS300!P PKPTAM2 I02 A ITOS CCS 3.0 SL-149@P a Dal" XX a: XXPKPTAM2PTERORzH  3u,PTVRDYTRITETREADTMOTN P PPTMOTN I03 A ITOS CCS 3.0 SL-149@P-h--X8(X&#B h!H!"hDh*  h @P+ :DCJT[pzXWh6 4ca 5XJXE%@PVDaa?   a) 9BX; > >P >< 2 a XaQ@PX,f"X> Daa? X; >  hX#X@PXXh: : XX; X ? T  a @PaXQ@XPPTMOTNPPTEOFVCOMPV4PTBSIZMECPUTTVRDY TSUBR|TERCDTCLRBTALRMTADDRNCRECETRECECRECLOSF P PPTREAD I04 A ITOS CCS 3.0 SL-149@PX2aX, X:   a PPTREADPTMOVEETREC NCRECP PPTRITE I05 A ITOS CCS 3.0 SL-149@P;! X ,X a XXJXPPTRITE  3v,PTMOVE TCLRB TERCDECPUTP PPTSUBS I06 A ITOS CCS 3.0 SL-149@P h h,hX%%+ XU  ? ?P ?D; 0 @P+a . .  b b %b h,hX#])/? X@X@PVX!XX ,hDnX@=w?"?P > .@P. ? ; X@X@ XD> ;  X(t? D> BHh@PHhP T aAa> Hd: Xh H @P:  nPDECRECGETRECINCRECxPTADDRPTALRMhPTCLRB^PTERCDlPTMOVEPTSUBRPTVRDYRECPUT&PPTEOFVPTBSIZbEADRX UTZ GTERORDWADD P P,JOBENT M04 A ITOS CCS 3.0 SL-149@Plqh;HtJP , 43f A a[ s`P+`P,@P-FbC tCb ? u@b; v=b  -Bhhhhh+L@ #j q `@PXdd,Fb0 Ah * hH0h@Ph A00 0H Fh ! %dZlT  DdTXJP05Xr@P@ HH" hXTTX.T 8  3w,@P` lhVLL h X@T h=h:h:l@PdlX C A ηhDnTB    XPJBENT JBPRO MIPBUFPBATINPfMRESV*11 t7 s5 v3 uJKIN TRANV RESTORAUTFB bNUMLU BATCLU\INPTV4XIUP PAFILV4JPSTV4NAMEV4JPFLV4JCRDV4JLGOV4JPT13 JPCHGEJPLOADJOBPROJPSWT RCOVERLIBEDTSWTCH PJOBINDMIB JBCNFGFILE2 FILE1 rP PJPSTV4 M08 A ITOS CCS 3.0 SL-149@Pl d   h`2 +i"bll"`@P+ B  ` dH DT  dd7 ` b@PVbbb b dXl   XDT" hT PV4JPV4PLOG1A =MIB JBPROEFILE2 RELFLEpIP1 \LOADINOJOBINDMIUP 9TRNVECINPTV4`LPTFL^MRETNmP P5JOBPRO M09 A ITOS CCS 3.0 SL-149@PlHhd ` j A {l,HhDl@P+"l0K,BUVZSREOV,CSADBSR,JOCTPAUNFIPUMOREDECLOP123"H @PVIdܸ ظ 15;tG ¸ qHBXX*> ~Q @Pa{ a|J w t3       h`X2 03b  ` fB@P 0 4 h`X XBLX X  3x,@PMh* hrXyT oab`)h #fjk qX`hT@P%.9  "F #hhB? ; j6@P-f A0 (,* j'f##h T $X J  B,X@PXX&@P`H H$ #fB L!"Hf# '@ "d AX T @PhX hchTP5h[hZhY bX T@P PhX `hXTXTT 7@P b hdhhdl h`l JOB ABORT@P2ED *TPJOBTWORF3 JO3T RI PJBCFGZHREE WO NE VINPV4FCLOSLPTFLBATCLULOG1A JOBINDFILE3 MIB YIUP %TRANV PNSTACKERRMSGRECOV  JBCNFG]JPSWT $MIBUF JBPROETRNVECP P%CLPTFL I09 A ITOS CCS 3.0 SL-149@PH"h!HHX  T@ A`PCLPTFLPLOG1A VPTTC P PIVPTTC I10 A ITOS CCS 3.0 SL-149@PXX""`? @  1  3y,PIVPTTCP8PKUP8PREPLOG1A P PQ8PREP I11 A ITOS CCS 3.0 SL-149@Ph h"PQ8PREPQ8PKUPP P:BFCLOS I12 A ITOS CCS 3.0 SL-149@P X 4h h $4h 4h h h hhh` V""!&@P+PBFCLOSP PJPFLV4 I13 A ITOS CCS 3.0 SL-149@PlhHHH@dX A aX@`P+@P;OPEN CLOSE REW UNL ` X =  ױ@Pf ӱ h L2    a"8"> " 1X"X@Pf"bb""!04 H  f"lh l @PX"TR hX Th dw  "X@P h "3"a X`X hn 1Dl h a a  3z,@P A f"bbXWa , ( 7 6 2 1  1 4  @P=1 3"a" f"ؽ"4 "Hh00@"@PhHH "44A2H Ƞ  " " 0@P"Xf"1 ("D PJPFL PPARBV4FILE3 LOG1A JBFLV4MIB  TRNVECJBPROEPKEYV4MIBUF PNPT2LPTFLPJPFL P|GETFLD I14 A ITOS CCS 3.0 SL-149@P XXhEXhCXhAX h?Xh= hn3 9n0B H1H1+(*QH h+" @P+@# > :  l.  l '  (  @PVW tnn#h h  l#l lPGETFLDP8PKUP8PREPP P.PTOPEN I15 A ITOS CCS 3.0 SL-149@PXXh%Xh!Xh X hhhPhT l \@P+PPTOPENP8PKUP8PREPP <  3{-  PJPF2V4 I16 A ITOS CCS 3.0 SL-149@Pl-h-H+,2H*@)2H'A hm 1 ` 3 $X@P+"4P`PVZ@P09H04; 1 Dlh e"h   H @P X"hTI` h"4 "04b  h l @PPJPF2 PRELFILJBFLV4FBASV4PARBV4FILE3 .LOG1A MIB TRNVECJBPROEMIBUF LPTFL%PJPFL PUP I17 A ITOS CCS 3.0 SL-149@Ph X XX[Xsh? X? XT5$ X/.,$+ X}& XyX= X#@P+l3"3T XiG+T X  XZ XWBH#@PVEXITYESNO3 j T  aDh"@P ! 1 h h ȹ 7hh3 *h h CX@PT ac*9Kbv# @P TERMINAL RESTART PROGRAM IN. ENTER TERMINAL NUMBER IN DECIMAL: DO YOU WANT TO RE@PSTART TERMINAL XX (YES/NO)? TERMINAL NUMBER XX IS NOW OPERATIONAL. TERMINAL NUMBER I@P-S OUT OF RANGE. LEGAL NUMBERS ARE 01 THROUGH XX. NON-DECIMAL DIGIT ENTERED. REQUE@PXSTED RESTART IGNORED. YOU MUST ENTER YES OR NO. TERMINAL RESTART PROGRAM OUT. HBAd  3|-@P0 H 0 M  0GPCCPLU ;LN4 ?FIXONE=NBRLINJP P SMDCFG I18 A ITOS CCS 3.0 SL-149@Pv X X XX X XT"XhbXeXh[X]@P+(XhUXV`9N "6 X"`@#=1 FX@PV`@1 FX9 1 X`@ X Fb X X@PBh5  B XzrBH#EXITYES@PNO3 '6j T ( a`P@PDh "  1 h h   X3.hh@Pi 0hphT a6=Nj#$%@PCSMD CONFIG IN INPUT FORMAT (TYPE 'EXIT' TO EXI@PnT)UNIT NO.(1-3),DRIVE TYPE(20,40),SECTOR SIZE(96,569).... UNIT $ CONFIGURED.  @P UNIT $ ALREADY CONFIGURED AS REQUESTED. ILLEGAL CONFIGUR@PE REQUESTED.SMD CONFIG OUTREQUESTED UNIT MOUNTED. NO CONFIGURE DONE.SYID IN ENTER 32 C@PHARACTERS OF TEXT...SYID OUTLPCF IN LOWER CASE CURRENTLY DISABLED.LOWER CASE CURRENTLY@P ENABLED. ENTER 'E' TO ENABLE LOWER CASE. ENTER 'D' TO DISABLE LOWER CASE...LPCF OUT @PE H- `(h) ` 1h 1hXh hhh TD@PpTD X XX/ X X  sf @,  JI  3}-3@P EG X8 Xc & ! XZ XW XTX X XK@PS u &@Ƞ    "ae" XHh `hXh@PhTD"a1aFaG|aDPSYSID MMLUTB>LOG1A ?P83310P POPNPT2 J01 F ITOS CCS 3.0 SL-149@P@Pg @PlX@Poh@P @P04@P09@P10@P16@P17@P18@P19@P 20@P 21&  3~-G@P:  @Pr h h hhd6 jȊ h h hhd8zʧjv hhhhn@Pl hXm ,] "X]W  O$FlH  h@PB@  h:2l2 |- 1A/ 6={dRh6@PH'h.X+hh#  Xh (h̥ X l@Pl3 dRh h8 h6 h40hd,!̈h@PHj h'X ! 6 h  h@Ps h l    . &Xus >X@Pqki #\la QlNlPlHXX hX@Phh-h8hPOPNPT2P8PKUP8PREPONVRTVPTTCETFLDPENFLARIDXXTOPENP PHPARIDX J02 F ITOS CCS 3.0 SL-149@P X@Ph@P @P04@PFNOWVLLUR A W FLRL@P lh   h    llu  3-[@P4HXXh hXXֈhX40X  3-@PhX%"XhXuXTTPRESLABPQ8STP READ WRITEISPATSYFAILPRESLAB PFMUTEQ Q01 A ITOS CCS 3.0 SL-149`P@P8@P0HELP 0INIT 0DEFINE0STATUS0RELOAD0DUMP 0!COPY 0&DELETE0,CLEAR 00LIST 03RENAME@P3+9COMMAN>EXIT @MOUNT ADISMOUDSAVE FBATCH ILOAD QPURGE WINPUT ZOUTPUT\COMP@P00VRE^HO0ST aSE0T eBA0TS hDI0SCARlDI0SPOSnFL0USH uPR8INT x@P0FN0OWVLDK0}NF{0EDoTYLR0NR0K1P1K20P28K3P3@P00K4P40SA0I {P {M 0L {0F2V2D20}PN{0F HOOP@P3NC0{SC0DO{PT{JN0LU{8M @P0@P0@P0     @P0@P0@P0!@P0&E  3-@P0,@P00@P03@P09@P0>@P8@@P0A@P0D@P0F@P0I$@P0Q@P0W@P0Z@P0\@P0^@P0a!@P0e#@P0h"@P0l"@P0n"`  3-@P0u @P0x@P0 @P T33?/dTp0dT1{m d0XT{@P+m h0"2"X @P$ 0"I"J"Kl!"M"LdRl"NdRl@P$"O d"5"G"! 1,6̯@P%H 6h5"Q"% 2"R5 2T"0!# "@P%;&1 !00! !"S! !" 6"T2֔"U&1@P%f&1؜&1"V;8ʜ5Μ2&N d)̾H"X &N̶H  ̱@P%H  ̬H  d"8 l l"%d"6"$ &1 "&1 &N"W@P%"&Nq !m "&NeHh ̲ Zv@P%̧ Td"7 M !H̽ !`B) =̶ 9̮ !4̫ "Yl̥@P&h̠ !A#@P%@P0&H"X 8H 2  3.#@P% @P&H +H %H @P%&1@P%%&1@P%0&1@P&1 Ed".T".@P$&8@P$&8@P0&8"Z 0 "2 lc@P$&N@P%F@P% E@P% C@P% &N@P%&N@P%#&N@P%.&N@P&N d"0  "@P"&W@P#?&Wٻ  3.7@P#&W@P&W #T1"-"- &T"-d"[ d"; n 1l0d"% @P&l d0 d0 `d00d0od!0pd"00qdT1"- %\"- d$T@P1&$"."-̯ %\"-0ll#lT%2!dr0dsdt"8duT1$".@P&"-̉ $\"-k"5 Q"\$ Ed".Z d";"*7"]f)1T"+ p4@P'd"^0"K p4"+d"_, !,d%p<lT*"^"-"-L  @P'.1T0&g"-1T"- $\"- @P$'A@P'A El@P$I'D@P$[@P$\@P$]@P$_@P'D Fl@P#'F@P'FT&5".0 2"` @P&A'U@P8'U"@P"y'X  3.K@P&G'X@P1'X\"- @ HHPDEFINQ'`PTODAY &WTREAD#$GETFLD#YMOVEL $lMOVER $rOPENFL&GETFCB&GETSSZ&CNVRT $PGMINT"|SYSMSG'GCREATE&^ERCHK '1UPDFCB&PPUTS ' CLOSFL'6P PDELETQ Q14 F ITOS CCS 3.0 SL-149@P@P9@P< = @PFILE-NAME =OWNER-NAME =VOLUME-NAME=@P(@P @P? @P@P/@P? hhhhhhhhh hhT64 h+jʰ  h f00f0 @Pj1 !f(h ( hʐ Tȸ h hȸfȯhȰ8خʍnإȣ@Ph hțh h /ȗ ( h0ȓdd0ȍd d1T11/1/{@P5d 7@m d2 l3 1 1l\/1{/ d08dTЭ  3._@P33 ̫ 2.̦ !Z0V " l̨  ̷ ld̛ R @P@ m I l d; $= l0 7d @@PAm  'd0x d3 d2ۜ  5@m 3l@Pll  @mΫ , l0d10dT1 l 8  @P" lܗ ! L  T3  %T@P T0 2? "@PL@P @ HH\PDELETQPWTREADGETFLDSYSMSGMOVEL DELETEPGMINTOERCHK P PLOADQ Q15 F ITOS CCS 3.0 SL-149@P@PA TERMINAL@P@P = @P@P! @PFILE-NAME =OWNER-NAME =VOLUME-NAME=INPUT UNIT =MODE =@P  3.s@P(@P @P? @PTERMINAL@P@PA E AOEOOAOEO @P@P@P# hddhhhddh hd0d{d|d0}d~ dhT  h@PNؽ0Pn  h ffت 1 !k-Șh ( hλ Yȓ@Py h hȓf0Ȋhȋ;؉ n l d lΒl / @P$ ld0dd l1T1{d @m d@P l 1 1l\1{ d00dT31 2. !Y@PU " l̩   l]̛ O @m }C d@P% Λd $ 0l d @m  'd @PPd dܜ  @mܩ 3l̟lŜ  @mܒ@P{ , lddT1 l   " d Η !@P ΑL   dddd d0 ( l @P 1 0l  Ed lT dv d    lT{@P|0{"Kd  Td Dl"  3.@P' (l00d `d d0 d0 dT1 ".T1T1 ".@PRdÜ "6 "0l0 00 &0d l @P}5 BddpBLDIDQ Q16 F ITOS CCS 3.0 SL-149  3.@P @P @P ؐ@P@P @P @P @P @P @P hf) 1 h:f n hhT B d@P0 d6 d 7h8h h9h h l lBd `dT*00 "@P /LhlBK"0 dd T00Vd0 d0 d d d0 dU8 d @P0 Zd d d0 d0 dW d d0 d0 dd0Md Nd Gd @P !p4 d ,d ,l p<d dT   d d @P  ll d#d$d% ̷d ̸d d d  d F @P 0d Ad Ad0 lVU"p̝ $ d f ܒ@P dd f d d̗6nṉhT@P̧df 1v u  d   l@P hT@P0d&d4% d dd!5 Ad d Ad @P#d`p5|ddլ l@-l6~n d l:@PNG 4ܴ d} d  uf5vn, l lΜ>@Py̑d̍`ͽf mTu B\YlZ0 8Y @P d " d0Tl l l &T0̿ @P̏ 5 d $ d l8̞l nܘ n f  d d @P dd $l  l 1  ,l f l!,@P%`[f5gf6 ,lΦ, d d̟;df ގܮ @PPf\ fh̨ ,d f f od l̗7̑d܌̍ ,l d @P{d!# $ dμd]di ll l ll l@Pf0 15d6d d TT1 "   3.@PT dddd'  l @Pg@P@P % Rd $l ̯f\̯fhT5 ?ٜ @P $ Rl$ d ,d , d d?d@P@d nޱ̞` gn̔ l ,l̎`]f if  @Pk5d 6d yd \5ll f l̞ l nܧ1@P  h8@P@P nl $ d l!l d n̙n̛ n dj@Pl l)ܔ 1@P@P@PZ Y  @P @P@PT0T @P@Pd0T d@PnĻ  3.@P@P0d0d̠d!d"d#d$dll dfv 1@P & d00\d0hd $ dƀ hT@P B ln 1 l0f 1 ![@P `@P `̛l̝ll̠l̢l̤l̦l̘l̚l lΩnܤ 1 dάd[έl̥ , d@P hT@P [ dθn 1 lvf0 1l̫ "@P @P @H HTTPLDIXOQ PQ8PKUP Q8PREP PGMINTOPENFLGETSSZ REDRECASCEBCBMPRRNPUTS ERCHK CLOSFLSYSMSGUPDREC ?READR P PADDECT K01 A ITOS CCS 3.0 SL-149@PHh HX L` `i PADDECTP P"CHEKSM K02 A ITOS CCS 3.0 SL-149@PH HX dl `i PCHEKSMQ0  3/P PMDBLMTH K03 A ITOS CCS 3.0 SL-149@Ph!@  " 2a"a ! A%dada`hdb@P+dbh@!Ha"! B  2ADa a`PDBLADDDBLSUB$DBLMUL.P PgDBLDIV K04 A ITOS CCS 3.0 SL-149@PHYTT""hPhM\""hM\hL\hHDlFHhD6>t;2S:4ah>H<848@P+8H5h5," 1d'hh &hh !d"aR8s$d1dL l@PVa@PfPDBLDIVPQ8PKUPQ8PREPP PEDTLP K05 A ITOS CCS 3.0 . SL-149@PTZ aEDTLPF PEDTLP1EDTLP PEDTLP P[FDWMTH K06 A ITOS CCS 3.0 SL-149@Ph hV h hP hLHGhFTT"h6h5\"h2: 5\h4\h3h)\|  3/'@P+h-\h,O*`TTT 6fbf b l `@PVPFDWADDFDWSUBFDWMUI PDBLMUL:DBLSUB7DBLADD4Q8PKUPQ8PREPP P!GETWRD K07 A ITOS CCS 3.0 SL-149@PH HX n `i PGETWRDP PPHANT K08 A ITOS CCS 3.0 . SL-149@PPEDTLP1PSAVRLDP PSDSABL K09 A ITOS CCS 3.0 SL-149@P H" X-  X)X " T&  X@P+ T TH78 h hTLFaQc ILLEGAL: @PVCCS HAS NOT BEEN DISABLEDTURN OFF PROTECT SWITCH(ESC J20@) AND TYPE CARRIAGE RETURN @PEXTERNAL TIMER REJECT INTERNAL TIMER REJECT PSDSABL  3/;PSYFAIL-TSNABLEFSTORMIBX !TBLADRDMICODEMPSTPP PDTLP50 K10 A ITOS CCS 3.0 SL-149@PTZ phbfTL1TURN OFF PROTEC SWITCH,TYPE CARRIAGE RET@P+URN (J20@) THa  q++h(B1$` f" q"g"@PVt "!` g" 4  h"DSKT50!B@ q  :I@P BBh" hTLDTLP50 FIRST WORD ADDRESS WILL BE @P PDTLP50PDTLP50 PfCUDDLY K11 A ITOS CCS 3.0 SL-149@PX% ! h h h/hNh*/h/hhhh ވ@P+j q hhj A h h/h̺/hhX0b @PVhXXRhbhTLk\^hXh ?h Sq X~Q@PTH( #Xb!h.hi TLX-X %$h@P?XN JhTLX 00 ERRORS.)G@P MON END/ 4"10-*#  @P`H*'"`!#% DCK MRG CPY END DEL I@P NS REM CSY HOL/ )Rȝ؛ XXhph4h h?X THU.R@PKTHo.R1`b! "$Ƞ g" g"aXe>  3/O@PvXa  Xm Xd h  ->j qh" hh TF@P T\0 0F 0 04 T\ dbb"` hB@PhBXX ( 2//h/ h, > , h'$ F$h!h X@P 6(` 2 aaضص@P1/Q/h:h:.h TL$1OHXhhTL6 9 ` ****@P)X-h3 h,X?Xh"TL@PTH #X!   REWIND LU 0054H}Hzq@Phs h+h#X'XH XH 0F 0HhheX 0F 0H 0F 0@P2**HH,4&h!L E *n Q 2b(1b)0b*b(@P]b)b*TLg.$ h  0X"X"X  ha _X< ^X:@PHV hV LK ! _X#E X A % h; X _X5 1  &X @P6  h+0X h&*$H"cll-hhNXFTL@P#%UU% _X _X" Xh %L @P h H XTL#hh hdh hȷ  h@P4TH.Lh -n q hhh3hh@P_THh !1 !"  X  X@PrrHprmH lX hMg  _hJ_E hX?QHOd lJH lF@PE0hE  _ 3?e 81  0H/%.!+h*}"hP^1 `@Pb= "$Ƞ g" g"aX 2 UU #UU #UUhX!X@P  =Xh7hNh#h ?XT`DTH7.Re  3/w@P6hXXoXXX X hXXX hX@Pa X حX XXטwԘtјq ihh@Phgha_]X` XfɘHŘC@P> h^h[hXUhShPh)ihghehEhCh@PCh hTL.`P @P !@P#@P%&X h뛠?!M h XTLE.lh@PPw .hXX) FhTX\X TL{.@P{} 0 jn Q  hTL.chM^h_XbYXIȧ@P hw hh*COPIED*X hhi hhh_h4/h@P/hM h`hghh8h5hhhhhhhiXeX ( @P   pho lm 2 1( hd Fla@Po/hkV/hR"Y/"HU ZGWM UX=EXXXR@PAXXdX hh`"aaaȹ XشX2X ˜ X*X^X@PlXY@Psv@PvR@P>$  3/@Ph`Hh`HhH XXnX@P hXtXXXohXX^XXeXXXXSXXZXȨ! ȣ@PޘXXȚ1 Xȋ1X}XȌhȋhXXXpXX؃XX@P %X hzXX}XX uhSh" hn@"XX@P4XXRh0h hKaa"aaa9'?S\X"5hh@P_ h.aa, X,hRXK$X) aaaX!8X^hTL @PXX@P>鑘RH H% bbhTL.o b@PbTL1 **]hhph ?X2T`DTH .R@PhTH.>1k`bm "$Ƞ g"Ⱦ g"ahhX}@PahTH.RTL'.RXhHXbbX @P= PCUDDLYPCUDDLY PMREBFDD K12 A ITOS CCS 3.0 SL-149@PT h3 B ; 5TLD)' @P+ " XXLSH 2 ` h7 3 K  h h@PVhhX-c    XX " h h @P n sT&Xhp `h4hthh `hHWh? h@P7hM"hkhk- hDhD[" HhXc L1R0  3/@P I AhM) b!?" HhXqc f0 #!@P bXZc JXQc A >@P-B8 @h " Hhݘ!ڐ Xc @PXhH h HhHhXc Dhȹ h`7j@P6؎ȍ e@!h~!  !#@P sl4daaaaaaaY aV-H] @H jj=@P j q XcTHDX XL hTHD@P  `j tX `gj qTLD+hhX5@P/b &uh |hTLDBLwh {hTLDXTX@PZİh@ HhhhXhT`THD@P H  n a@P+:Ji =Sp5+ILLEGAL: ITOS HAS NOT BEEN DISABLED@PILLEGAL: NOT RUNNING FROM MASTER CONSOLE ILLEGAL: NOT RUNNING IN INTERACTIVE MODE DI@PSK I/O ERROR NOTEDENTER DISK UNIT NUMBER (0-7) AND TYPE CARRIAGE RETURN ILLEGAL: NO@P1T DEFINED AS DISK ILLEGAL: NO FDD EXISTS ON PACK TURN OFF PROTECT SWITCH (ESC J20@) @P\AND TYPE CARRIAGE RETURN ILLEGAL: JOB PROCESSOR OR LIBEDT ACTIVEOWNER-NAME = FDD RE@PBUILD COMPLETE. AUTOLOAD TO CONTINUE DUPLICATE NAME/OWNER STRING NOTED NAME OWNER I@PS ENTER NEW NAME AND OWNER FILE-NAME = DISK I/O ERROR NOTED. AUTOLO@PAD TO CONTINUE RAN OUT OF FDD SPACE - FATAL ERROR AUTOLOAD TO CONTINUE FILE NAME CH@PANGED. OLD NAME/OWNER IS NEW NAME IS X  3/`P3Z`P``P`PREBFDDPTSNABLPARTBL{EFSTORMIBX TBLADRxDMICODtEMPSTPpSWTCH -JOBIND*PGMIN PGMOUTVPREBFDD PRBDPCH K13 A ITOS CCS 3.0 SL-149@PTZ PBDFILPRBDPCHRBDSEGPRBDPCH PFCBERR L01 F ITOS CCS 3.0 SL-149@Pt&@P@P(#@P_7@Pb?- @P FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . @P)CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GE@PTTS UPDRECDELRECCOMFIL@PuT(T% ! ! , h\)r_`_ Kh   3/@P\bdcd 9hTsthijH TTh\h\h\PFCBERRPQ8PKUPQ8PREPCCSMVAvCCSHXA~FWRITEP PX*RLDDSK L02 F ITOS CCS 3.0 SL-149@P@P 01 &'@P P@P @P8@P8@P0@P8@P86@P8I@P85@P0>@P0   !"#$%&'(@P8GO@P8EX  3/@P@P@PY@PN@P TAPE TO DISK RELOAD @P ALTERNATING TAPE DRIVES FOR MULTI TAPES @P REEL# LOGICAL UNIT# TAPE DRIVE# @P 1 6  0@P 2 16  1@P* 3 6  0@P= YOU MAY CHOOSE TO USE ALTERNATING TAPE DRIVES OR ONLY ONE TAPE DRIVE. IF@Pc YOU WISH TO USE ONLY ONE TAPE DRIVE, SPECIFY THE TAPE DRIVE NUMBER OF THE @P DRIVE YOU WISH TO USE. @P ALTERNATING DRIVES(Y OR N) @P SELECT A TAPE DRIVE(0 OR 1) @P **** ****OPERATOR-MOUNT SAVE TAPE REEL 1 ON UNIT XX WITHOUT RING @P **** @P TYPE GO TO CONTINUE, EX TO EXIT @P ****OPERATOR-THE WRONG TAPE HAS BEEN MOUNTED@P  ****TAPE WAS MADE XX-XX-XX AT XX:XX 3  3/@P  THE FOLLOWING VOLUMES WILL BE RELOADED TO DISK@P 2 VOLUME NAME DISK NUMBER@P B IS THIS THE CORRECT SAVE TAPE (Y OR N) @P X **** ****OPERATOR-BE SURE YOU HAVE THE CORRECT DISK PACKS MOUNTED@P | ****AND THE DISK DRIVES ARE READY @P IS BEING RELOADED TO DISK @P WRONG REEL MOUNTED MOUNT REEL NUMBER XX ON TAPE DRIVE XX@P TAPE TYPE WRONG @P MASS MEMORY ERROR XXXX ON LOGICAL UNIT XX@P  TAPE TO DISK RELOAD COMPLETE@P ****OPERATOR-AUTOLOAD THE SYSTEM@P ****OPERATOR-RELOAD ABORTED-PACKS HAVE NOT BEEN RESTORED@P ( **** ****OPERATOR-DO NOT TYPE GO UNTIL DISK DRIVES ARE READY @P J SECTOR SIZES ON TAPE AND VOLUME TO BE RELOADED ARE DIFFERENT - FATAL ERROR@P p DRIVE SIZES ON TAPE AND VOLUME TO BE RELOADED ARE DIFFERENT @P @P T5301\533"\5#30\1353\5301\5*3;@P1 \5=332\5c230\1353\530 d  d3T5 3; @P T    d0%\530 l l\533 0\͔  ɔ@P ! 0 1d d 0l ldT 13503\5301\533 l U4  30@P Ll\533 0\̓0 ̌  2dT1K0 "0K 9\5@P3 w$0\5300Md0 Od TK  1\K   Pd \K @P  \K   00{dJT 35  30\135 %3\53 200Rd 1 d @P T d  d f 10rd  d\@P 5430 1\5 B"30 d dT 335 3T   /@P # \53 0  lTTd3 "T 135 X03\5; |@P N\5301\5 (33.\530\1353 l xl\335 3\̓@P0 y ̌  d1T f0 "0 00>  4@P 1d0 d1 \5 33*\530 d dT 335 3T  @P   l\̱ "0   d1T A5 337 d@P $ d Jf 1\5 300d*0ldT @P %lT Fd 1d\\Ɣ  \53 J20 @P P-\53 p+01\5330 d 0 pdT3 5 30T  8 @P { dT 4 !c4   d;8d2 "p 4Jd@P d.6d/7d0 f3 d  lT*9.30\T 8d06 1 d1@P T16++d ,d \*+d 1T 5 33"@P o @P @P @P l0? >  b+  30@P @P1 \5 3;@P ?@P @P @P ~@P @P1\5 33*\53 01\5 33T@P [ @P THwPRLDDSK%PQ8STPN!SFWRIT READ gDISP oRLREAD CCSMVA CCSBLK SDSABL 6LINK ADDECT GETWRD (FWRITE CCSHXA SYFAILP PXhRLREAD L03 F ITOS CCS 3.0 SL-149@P@PB1234@PYN@P ****OPERATOR-REWIND TAPE ON UNIT XX@P ****@P ****<  30+@P! ****OPERATOR-MOUNT REEL XX ON UNIT XX@P5 READY?(Y OR N)@P> ****OPERATOR-WRONG REEL NUMBER WAS MOUNTED ON UNIT XX MOUNT REEL XX@Pb TAPE ERROR HAS OCCURED@Po TAPE CHECKSUM ERROR HAS OCCURRED@P TAPE SEQUENCE ERROR HAS OCCURRED@P TAPE ERROR HAS OCCURRED @P OPTIONS: (1)RESTART TAPE ON THE SAME TAPE DRIVE @P (2)RESTART TAPE ALTERNATING THE TAPE DRIVES@P (3)RESTART TAPE CHANGING TO USE TAPE DRIVE XX ONLY @P (4)END TAPE TO DISK RELOAD @P PICK AN OPTION FROM ABOVE @P **** ****OPERATOR-MOUNT THE NEXT REEL# XX ON UNIT XX ****@P2 END OF TAPE HAS BEEN REACHED@PHVd0T30TTd "  2l  l  l )l@Ps  l  l  lT 0I ̹ @PT53200 \\5300d1\533\5300 1d.@Pd4\530\135! 3\5301\55330 d 0dT;5 @P3TU  w̾ 1l̩  0l dN 1l l\1353̕l@PT53! 01\533\5530 l@l3\5 30\̧ ̢ 4  30?@PH0  1d  0l\1353\5301\533> 2d 'd-@P1s\533.Id?dTM3BTTW0d !=T1B @P 0d 0є 0  1dȎdZ̯ 0daT5>038@P @P^@P̬l\1353\53)01\533$  0d 1l\53(09\5@P301\533 d0dT5 30TCD'E`@P&F̺d\1353\530T530{̠l\538\@PQ530\1353̉ 0 0d. 0d4 0l 1l\1353\5;! @P|\530=1l\533\530\1353  0l 0l̻@P 0l 11l\533\5! 30T?530\13553 d0 d0T5@P3 3T  CU4  1l dN 0l l@PDE= d> 1d0'  1d-  01l\533.! l@P$@P$@P1$\5o33Gd@P1@P1@P1T530l@P+=-  30S@P=d?@PA@PA@PA%H"TThh5he hG hC\hh)\hhh!hPRLREADDPQ8PKUPJQ8PREPGFREAD DISP LINK CHEKSMSFWRIT2READ P PX&SAVDSK L04 F ITOS CCS 3.0 SL-149@P@P @PՀ@P@Pf  @Pq@P@P0 1 l"! + a 2d00Id h ,D @Ph0Jjnؽ 12(hddldTmmlTm@P-pp 1h\T10d lT1̑ !$dd} d~@PX d0 d dT06 "0 "0s  \\ lll@Pl l\ " "0ll l0l l\ " "v  30g@P0ll ll l\̦ "̧ " d7d8d09d:;T79@P0}; dd d0Tb6 " "@P@P ll lλl\3379G;άlέl3\G9}0; l l l\ " " @Pd@P2@P!Tq lƜ  del l 1@PL  l 6d}d~dodn"p<ьl8 d9T@Pwn93; d0T6 " " l l l0 d:T3}9}0; l@P l l"pd0| d0 1d0d0 d0 , d1@PHn 1\@0dT1[KA 41\[8 lTTd- !e l@Ps A .[ 1( l̺  d4Δfܴ 1T538T@P[06 ! ܕ 1 6d.I d/T).@d5\[.8\5@P3\530T@P&@P@PTHdPSAVDSPPQ8STPNADAYTOAMONTOAYERTOSFWRITADDECTUGETWRDYCCSBLKREAD DISP CCSCSTCCSMVACCSTIMCHEKSM  30PSAVTAPWSDSABLfLINK hSAVDSKSYFAILP PXSAVHNK L06 F ITOS CCS 3.0 . SL-149@P9@P@P̀@P@P.@PB@Pm@P@P@P@P@P@P*@P>@Pi@P}@P*  30@P@P@P@P&@P:@Pe@Py@P@P@P@P@P"@P6@Pa@Pu@P@P@P@P@P,  31@P2@P]@Pq@P@P@P@P@P@P.@PY@Pm@P@P@P@P@P@P*@PU@Pi@P6  31@P@P@P@P@P&@PQ@Pe@P86@P@P DIVISION ERROR-DIVISOR IS ZERO OR DIVIDEND IS NOT POSITIVE@PDIVISOR= DIVIDEND= STADD= XXXX XXXX@P h0J 0h / 0 :h, h h hT y d9 d@P:T9;, h0 d< d=ȹ &  (hhT86 @P#" 3d0}d0~dȓdIdȋ dTnT @PN !]0d7d8 ll\3379}; l l3\<9<0;lT53+0 TG@Pydd\Hdd\dd\}dd1\~d@Pd\135&3H TThchPSAVHNKPQ8PKUPQ8PREPDBLDIVFDWADDSVREADCHEKSM>SAVTAPHSFWRIToCCSHXAwP  31/ PSAVRLD L07 F ITOS CCS 3.0 SL-149@P[@PV@PU@P5@P>LOADSA@PAVE@P6@P4@PT@P EDTLP @P TYPE SAVE FOR DISK-TO-TAPE SAVE@P TYPE LOAD FOR TAPE-TO-DISK RELOAD @PB ILLEGAL, CCS HAS NOT BEEN DISABLED@P[h @TUV456\UW456\UX456hTU1Y456T@PȪ ȧ Ƞ Ȝ TTT\\UBZ456TPSAVRLDPQ8STPNTSNABL\SFWRITdREAD }DISP RLDDSKSYFAILSAVDSPPSAVRLD PXSAVTAP L08 F ITOS CCS 3.0 SL-149DX  31C@PyNY@P12322@P@P@P@P? ****OPERATOR-REWIND TAPE-MOUNT OUTPUT TAPE WITH RING ON UNIT @Pa READY?(Y OR N)@Pj **** ****OPERATOR-REWIND TAPE ON UNIT XX ****@P **** ****OPERATOR-REWIND TAPE ON UNIT XX AND LABEL ****@P **** ****OPERATOR-MOUNT OUTPUT TAPE ON UNIT WITH RING ****@P TAPE ERROR HAS OCCURRED @P OPTIONS: (1)MOUNT NEW OUTPUT TAPE ON TAPE DRIVE @P (2)MOUNT NEW OUTPUT TAPE ALTERNATING THE TAPE DRIVES@P (3)MOUNT NEW OUTPUT TAPE CHANGING TO USE DRIVE  ONLY @P4 PICK AN OPTION FROM ABOVE @PB **** ****OPERATOR-MOUNT NEXT OUTPUT TAPE ON UNIT XX WITH RING ****@Pi END OF TAPE HAS BEEN REACHED@PT0 " 5dId0dTzd \{@P " lT53i00 7d\53-0d\5038\@P5a30 d dT335 3T옅Kl  0l 1ll  31W@P1\5330\5a30 l!l3\5 30\|̼}\5;-@P1̓  1d_̍  0lT53B300d0? d@dAdBI0 dC8dD 1@P0\d0d0 d~ , d0Jn 11Tzd0T1{@P 2 l@P@PdE l\5300d1\533+\5)30  0d0 1l\5+@P31T>5433 d 0dT5 30T *@P̶d\5j(30̬d\5300(̡  1l 0l 1l 0l\5300̍ @P 0l 1l 1l 0l\13503\53a0 d 6l\335 3\|@P;}0̮d  d l1T5j33(  1d_ @Pf 0l\5B33000?d00@d<00Ad=00Bd00CdI0Dd0 T9K@P "1\{ "El@P@P@PHTThhhhhhh\h\hPSAVTAPPQ8PKUPQ8PREPSVWRITCHEKSMxSFWRITWREAD DISP P P$SFWRIT L09 F ITOS CCS 3.0 SL-149@P lTTHTTh\h\h\h\h\h  31kPSFWRITPQ8PKUPQ8PREPFWRITEDISP P PXsSVREAD L10 F ITOS CCS 3.0 SL-149@P@P MASS MEMORY ERROR HAS OCCURRED ON LU @P ?$J0h}h~h h:d0T30TTd6 1 d19T6@PKȵhȴh\Ȯhȭh1T533$@P`HTT\ h\hh\hPSVREADbPQ8PKUPhQ8PREPeFREAD 1DISP 9LINK ;CCSHXAHSFWRITWP PXQSVWRIT L11 F ITOS CCS 3.0 SL-149@P@P 0l d0  h@P h0%dT30TTlTԈhT h\˨l@P@H TT\h\h\hŀPSVWRITBPQ8PKUPHQ8PREPEFWRITEDISP $LINK &ADDECT*GETWRD1P  31 PRBDFIL L12 F ITOS CCS 3.0 SL-149@P@P@P@P@P@P @P@P@P@P&*T@P)*T @P *RBDPCH* O/P UNLINKED RBD PROG AND SUBPROGS @P@P @P'@P@P`@P P@P3PPP  31@P6@P @P DUPLICATE ENTRY POINT @P E10  @P dT h f1h h  hȊh.hI7@P1&  ȶ1T hȬ d l!Mh*ᘙ  h Ț \ Ք5@P\  hed>td\()T\lT7\l 9d@P̦  lT (7\T "\ `lL7 ( d d @Pd6f 1ddd\ 3 \ d @P#T; M d dd!Add dΡ  -@P 1   n8̽l7d8d9dT \@P3̽ 6 d̛d dn 1 n l 82]”@P^4 W lι P#T ( d dd!dd  d@PΔ  1 ̜ l̳l l7nܓܕܗ 16̡ l@P 81d5  d8d9d: PRBDFILPFWRITE+RBPERRnDISP sFREAD zLINK PRBDFIL PRBPERR L13 F ITOS CCS 3.0 SL-149@P7  31@Pc *RBDPCH* **** ERROR **** @P *T NOT FOUND IN LGO FILE @P BINARY OUTPUT STATUS ERROR @P NAM BLOCK MISSING @P+ DUPLICATE ENTRY POINTS @P9 ENT/EXT TABLE OVERFLOW @PG PROGRAM NOT FOUND IN LIB @PU *RBDPCH* OUTPUT COMPLETED @P@P@P@P@ hTcqTh\cq\h , h\@Py\h , h\@Py\T  @PHTThPRBPERRPQ8PKUPQ8PREPFWRITEDISP P *T 03870  31__mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  31mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  31mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  31mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmr  32 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm]  32mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmH  323mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm3  32Gmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  32[mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmAL2\O CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm P3D1827 C01 A DRVR CCS 3.0 SL-149@P@ $2A 2A2A( GA%(2H  aT a*@ a'T&@P+OK*'a )a a*T ;I 3  h 1+ h jE@PV " (a ha h"r $  thT a'?ȧahX9'@Paa>T'Ȍ aT`P6`PE@P'` 3 a*a*a)PI1827 $BUFADTBUFR1 ILP408$PMAS300MAKEQ LOG 1827R1827R1827 |ALTDEVPILP408 PNK1827 C02 A DRVR CCS 3.0 SL-149@P a AAAaaa XX"X@ XX XXS@ X a  Da a a@P+  X"I "paX X  D XXXXu@PVhF" T h?%HX9 XX @ +XA%XBAXRX@PXXFh" T h%HX  X]XX X!h  4&@P  o &Q-  cH5a c + > XP @PA @ a XX!" y u D&q X%X Da a   A '  32o@P  a %  = q rA 9%    cX@P-  X%a" A "a# a!2" !  AX XX(PK1827 KLP408C1827 CLP408C1827RE1827 ELP408E1827RF1827 NXTCHRSPFILL&STATUSPPWAITAGE OTREQtTNFMTDIT KGINTP PLPWAIT C03 A DRVR CCS 3.0 SL-149@P aPLPWAITP PCKGINT C04 A DRVR CCS 3.0 SL-149@P : X  T aPCKGINTPCGHOST TATUSP PJEDIT C05 A DRVR CCS 3.0 SL-149@P   A a : B0 AX  A  @aX    D  d@P+ aX !  X 1      ?PEDIT PPFILLXTCHR/P  32 PLDUMMY C06 A DRVR CCS 3.0 SL-149@P  AX    @    A : BO  !a C @P+DA @A!a "  ?  6 a @PMOTREQFTNFMTPAGE 4PXTCHR P P'D1829 C07 A DRVR CCS 3.0 SL-149@P@ 2A 2A a@!T a a Xa XTTPI1829 ICARDRPMAS300&MAKQ #1829 ORMT !1829R1829RP PK1829 C08 A DRVR CCS 3.0 SL-149@PABAAA#AH X*?  1"X a- a.2 , Pa@ @P+X X<- a- aNH*ccBA 5"c 0cX D ! @PV D' @Pb7  T  @# X#A aX?    aPK1829 KCARDRC1829 )CCARDR)C1829R)E1829 xECARDRxE1829RxPFSTIMESTAT GCGHOSTqP PFORMT C09 A DRVR CCS 3.0 SL-149.  32@PX  a(   B a$a'a)%a&X' B  &A%+P"I @P+a) a% x XX) 1a Pa X1X'nX 1a" 5  @PV"X(T  " f" & (a( Da%;Da qa ba ca da@P ea fa ga a ya pa `a P9BQ"  }*  {&X'@P " "  h0+1 *1A@Pװ1a .a  f"XX 1a a) a(" da@P'a'  X$H  f" $Nh$(   f") (XB@P-0( a)1 " 6F _4M9 @a %1D rLa% )RB  a   a%a)@PX3 a$aA aTrT" wA&-R.A   -/hX@P h hX-R.L" R @ R 6 Q #@P  "5?=> PFORMT PMAKEQ eLOG k1829 DAULTNDRD29DRD26DRDSMALTDEVmP PFAULTN C10 A DRVR CCS 3.0 SL-149@PHh d  h 2  Ȩ@P`PPFAULTNP 8  32 P ESTAT C11 A DRVR CCS 3.0 SL-149@P"a>a PESTAT P PpD1860 C13 A DRVR CCS 3.0 SL-149@P@H!h" $A"4a4a4h'"@H@"@P+h0 )>`  hT(HXh2 ).T> "%T"@PV2a"TRT'` )hȸPI1860 $ILCTT $INBSY (ISPT %URW #PEWSCDREWCKLMAS300mMAKEQ ELOG T1860 a Aa   H@PV +O C' >,1 .X 'I@P #X121a l@ a aX, ) *  a1aU@P :*a    PCL20 CL40 K1860 C1860 (E1860 F1860 KLCTT CLCTT (ELCTT SELECTPMOT "FER %AITX AIT 'ECVRYvOTCODKEXTIOWA rORMITKREQ *DVRB QP  32 P3CKREQ C15 A DRVR CCS 3.0 SL-149@P  h.$Ac Aha'`@ a a a 1@P+ :a PCKREQ PEWPDTELECT0SPT P P4REWCKL C16 A DRVR CCS 3.0 SL-149@P@HH*h)$ XXa% HXTR ah  @P+1 PREWCKLREWSCD#REWPDT2REWSD PELECTSPT NBSY 1ORMIT1860 P P;FORMIT C17 A DRVR CCS 3.0 SL-149@P h8H(a d".4Á a &C/""120B4C"$4 a '"@P+#4d a  ) a ƀPFORMITP PWAIT C18 A DRVR CCS 3.0 SL-149@P    aPWAIT WAITX J  32POTCODP PXXMOT C19 A DRVR CCS 3.0 SL-149@P.Xh 8(a $LhH" !A   9)a    +@P+ .X XX a aX  @PVPADVRB DMOTCODWSFUNC MXMOT PFER K7WEF3K7RW DADT BRITYCPL40 VP PgXFER C20 A DRVR CCS 3.0 SL-149@P$ ! h h #hY.XXhR a aJX$X >a.aX "&  X8"6a" @PVD2   2 PFWA #LWA $PRITYCeRDADT %WRADT @XFER PMICSUBXK7DATK7RW FUNC M1860 "P PNEXTIO C21 A DRVR CCS 3.0 SL-149@P (4 ) ȁaX'# ,B 4 1$% a$ @P+ $a$ T 8a . a $  #X <,a $@PVh /    p  .  hA$ >.a A1aa$ @PV a9aB@` b%'$42@\'#TFT'3l@PTa a BbPCSMD C18331CONTCUDATFLGPSEKINPKSELFLGWANTDRSEKDONOSEKCOMQP83310ALMERR1XSMD gBSMD a T'#  ' 3) a)X?a('!3h5$a53#h@P  *X3$a) ~5%5a54- T'#&B@PC\W\ @%@   T72FF 1 F TA  @P-  2T"  , ( 4#  4  21hE2 : aDS@PX T" %BC %T  @ @ 5a  h#  A @PjC ȸhȸ h AAPXSMD SEEK9 CLRSKNSEKCHKSETFNSqSKALND{SEKCOMSEKDONSEKINPBADSEC SPL4 FPWANTDRDATFLGWCLRINTSMDGDR[DRICHKXDONE FILSMDZECXIT ALTDAImPOLCHKMPDRIVLTOFDRkDASTATCOMPV4PCNDRIVCLRTDAUCLRSTSoCLRDAS5SMDCPA%CONCU BSMD zP PSSMD C77 A DRVR CCS 3.0 SL-149@P X$3D Dh hXh d91TXDhX; !@P+XVXO !X?5 '3XXR' *"Ƞ " hhDXD XEX @PVX="7 XXX" ؝8" F     s  @P  ' a  a a3 a! a"  XX  @P41T  T4 \1" Ra-a0TA. -a XX "@Pa1GAEj"2a17 \B11aaAA @'#B@PCONCU CKOVRLCLRDAS{CLRSTSuCLRTCUCLRTDAoCNDRIVKCUCNSTCYLTRKDASTATDRICHKMSBLSBPOLCHKCLRACRPUSKNPGSMDSTSSMDAERSMDCHSSELFLG|  33sPP83310SEKINPMPDVCKSMDGCU COMPV4CLRINTP PLIKDUM C78 A DRVR CCS 3.0 SL-149@P %TTaB1Fa1FAT a2T a a,#G Xh 8\@P+T,#AhhXtTDXOaAa a \ThxAhvX[XR@PVX5\ a XKX.\ X0aA aa "Fha%\ XaA"a aFha%\ @P  X! Aa Fa   GH1 +a aa@P\hF""H n A 4aAPLIKDUMPSMDCHSSMDACP=CNDRIVKCOMPV4SMDCPS-MSBLSBCKOVRLP PECCALG C79 A DRVR CCS 3.0 SL-149@PX]Xsa! !X hȸfhy "FF2x Tl AF   "@P+c# FX\  ?;H XO  2 0XTth H T @PV"f"  J  h(  K ȸ!h   HbH4 !Gh b@PG 4!F Fa   22 hX\22sX  Es$ @PC sX;XT s@s {s`s{sPs{T\2 &1 T* 1 sX5@Pװ a5 !  T  sX2  Gs a2 TRF #% Fa  G @P H1 +a ZZ h/ hW+h[ hWhWh( * @P- h Xr `= Th Yh  h42Th('h h v  33@PXhhhȸgaH Hh۠ h  !h @P!ȸ Hh ȴh h hȯ 9Ȩhsqhh؞@Ph h* )  4""W "ȵ$G"د hȬ G"إ hȢ @PG" h`@DPT 6 `.U@@_PECCALGECXIT PSPL4  FILSMDSMDACPKBSMD4 COMPV4XSMD CLRINTCLRSTSDATFLGDASTATSETFNSCLRDASCLRTCUSMDCPS!P PnSMDNDR C80 A DRVR CCS 3.0 SL-149@P h@'##B T+$+hh1@  @P+ 4* T'#&DR  0\'# \'#3#d'  X ih6sȸqh2 6!!XqX1X6"   @P/H;H  >HbH4 hb @ 4@PZ ` h A "!X*  X"HX@P  X "h}|v! d45 'd44n@PXXhhg ""  4 $ZZhX>%B)6:CG X!@P 2<32X0W h,@(Ȱ X## 3 hC@PȰ`Ȱ ȰP h1 h_,hc h_h_h* 01@P1! h &Xr `D Th Yhw h:8Th.-h @P\h hhhȸgaH Hhh  "@Ph1 !ȸ Hh! ȯh h hȨ :@Phjhhhh h) ( r#M "ȱ$G"ث\  33@PݨhȨ G"ءhȞ G"h`@DPT 6 @P`.U@@_PGENFC MDRIVEPST P PQPTDMY D05 A DRVR CCS 3.0 SL-149@PPQPTAPEEPTAPEP PjQ1827 D06 A DRVR CCS 3.0 SL-149@P hWHW hVVhahS @ X"hNNRX/JXT hCF X<9X 986!X B @P+X= h H . #  X Xh  !D 1  X@PV  DATE PQPRINTEPRINT_FORMFD[HEADR1eHEADR2fHEADR3gHEADR4hP PECMDMP D10 A DRVR CCS 3.0 SL-149@PQhsHshHxhE  h>  Ð X3ZZXyBhUHUhT hS@P+RQPOX9hEX7hAX5?h?hX;" XUX 11XQ50.X@PVX  &X" X/̵""خ`PO  33@PHhhX X @X h h Xc ĸ Xn  " X @PhwXx 9p$ HlpX>gX_XA^X?]X=[WX: ^X- hhVRXX/@P !X^G# 2 hA<2esR4R4!'6211 XVH*h+XB)&%@Pah#X!X X4 Ġ a A ! AtX" **@PD X XhHX XX@Po 1XX7D λHD h5DhȻh$а @PhDeHthPCOUTV4OLDUMP"P PDSKCDR D11 A DRVR CCS 3.0 SL-149@P hHh+hXh~h }~z!t  omfh9b@P+huadhrDh gkHDhaec^" SIFSR  @PV;  ! @hB   4Dh112,n0ؼ*ȸ*H @P b h d A$ yPNUMWDSCDRIVEP POD18326 D51 A DRVR CCS 3.0 SL-149@P@@`" A2A2A$"@@H"h )THXT @P+. ȁ2"TTRT$`!h XPI18326CURPDTI20 :NEXUNI<V  33PMAS300MWC GALTDEV8LOG 5MAKEQ )LCTT KLCT2 'E18326C18326 P PKK18326 D52 A DRVR CCS 3.0 SL-149@PXXXX@X0aX BH DhaA@P+BH  X / T  Xa " 4a PKLCT2 E18326 FLCTT SLCTT QLCTT &STATUU=PURPDTLCTT LCTT LCTT LCTT LCTT P P+B18326 D53 A DRVR CCS 3.0 SL-149@P aaa ahhh 0 XXa/D *a * X ߱ +a &0 PBLCTT CONBUS UNTSEL!SELMOD$SELEC2)POT RSCNT ELTA TATUULCTT P PT18326 D54 A DRVR CCS 3.0 SL-149@Pa@PWLCTT C18326P P(V18326 D55 A DRVR CCS 3.0 SL-149@P@T XXa a X":$`T *PVLCTT  33PCGHOST NTSEL'TATUU LCTT URPDTP PN18326 D56 A DRVR CCS 3.0 SL-149@P / TE Xa# + a ) # 1"I 6 Ta " ! @P+ ,X!`@ XD X: X> # #- {  XB p - @PVhK (a a3hC bh:aLh3"3cekmnoq Nh&aK@Ph " 2 << " XY XN H  X $#1@P($ A 'B L KB F C 32a <,a |X @P#-  X   X  #, h &Xj (" Y @P)a  Q3Z HH c Vs 11* T$@P-a .1aT XY1  "T* + - a  =a  X @PXta sX #  X,a"#$ :"a" ("@ "@P" W" $"    X XVPNLCTT FRSTWD8FUNCTNLCNTINUNEXMOT MOTITRTRNSOKALARM aFWA2 6NUMBR 4EOT sFILESTPMAKEQ 7COMPV4CLCTT JEVNRD_20 9WNDCKCHEDNWC EVENT/LCTT LCTT LCTT P PL18326 D57 A DRVR CCS 3.0 SL-149@Pa ) a  h1aPLLCTT PWC  34P PHW18326 D58 A DRVR CCS 3.0 SL-149@P@X h "hTRH # ` aTR $@#" @P+ #  ` 9a haX>hTRPRWLCTTRWNDCK'RWC 1SCHEDN;PLCTT EXUNIGEXMOT9OTITR7ONBUS&URPDTP PR18326 D59 A DRVR CCS 3.0 SL-149@P X{ -a Aaj!gh # `` `XZXv+ A @P+ HA ,'Q H A#a &"DQ0Y>a Ta@PV V@ `X!#,  hX1 X.Ȯ h  -a -@PLa  H #  X af hXDh@P X1  d` X hX X hX ,+ 0PRLCTT DELTA |ERSCNTPLARM OT UMBR ELMODOELEC2HRNSOKVLCTT ILESTCNTINUUNCTNRSTWD WA2 LCTT P PGS18326 D60 A DRVR CCS 3.0 SL-149@P T, 1 $  a h & %0A h #!H &X@P+X4!hBXXXXXXXH  " @PVL"}||B!hs "lp nmm!hihh  cd`@_XH\YN  34'@PXȈTmQ a q `  @&1122334455667788990!="'#:$>%"& '/(S)TUVW@PXYZ_,=(%-\/@-J*KL?M+NOP QR<!,$0*] ;;^+ ABCDEFGHI ? ..)>[ <#:@PhrXX= $  Ta!hXBXXX@PXXX h f"B !hhbh cȯ`@@P-eH]m ̖f" ؓȒPSEVENTSEVNRDPCOMPV4P PQ18331 D72 A DRVR CCS 3.0 SL-149@PuX 'hNs" !jB chd^>\Zh]* 7i hg@P+jgSnNB JnFB B `Xe d7`dt `D@PV(XQ!`1XEhhUh ` X4 @P ` AUTOLOAD ERROR - RETRY IN PROGRESSh%H&a@PRH"h" hXM hBa8 h fhh h h!X @PX h h yX!"l n2!91 ) @] Kh@P~X U R M Ⱦ!  DX`!=)ȭH]`X B@P-2)ȢHbȜd @4 `hȏ$ JhH؇ h5XEdhcBHz@PXX|  X0m"iH4hA">4 h@P@@77 h#  A jC ȸhȸ h  m@P k hfXy hX"XP1 \~X#XDXW uhJ l  34;@Pʪ h)ʭh?C bh84 .X&51X3 Qh+# K%1X@Pw =Xj! "  F ` V  s@P/O  H  A  h h h  ՠXXc@PZX"XX%  Ȼ4XIXX XX; 2o1"XOXM@PYȝ,+ȕ  C hh 7 O h#  l @Pi@k,9db8X"XYX !@P> GhX ih6mkh2 6!!XqX/X4"   H@P'H q >HbH4 hb @ 4 `@P1 h A "!X*   X"HX  @P\ X "h\[v! d45 'd44nX@PXbha ""  4 $TThR:%<)04=A X! @P2532X*< h&@"Ȱ X.Ȱ`@PȰ ȰP h1 h_,hc h_h_h* 01! h &@PXr `D Th Yhj h:8Th.-h h @P3hhhgaH Hhרh  "h$ @P^!ȸ Hh ȯh h hȨ :Ȩhjh@Phhh h) ( r#M "ȱ$G"ثhȨ G"ء@PhȞ G"h`@DPT 6 `.U@@P@_   @(  # PMMINITQMASS EMASS SIZMASMAXSECNFILES  34OP2RETNP PyS1811T D75 A DRVR CCS 3.0 SL-149@PD    ' X= XSD P   p , ` 0/ 0  -1 @P+ D   f      w      @PV0  "hH TD X    X  PS1811TI1811TsM1811T5PMI ^TSCNACOP PM18326 D79 A DRVR CCS 3.0 SL-149@P"Hd)dhf h'h!&BH\Ha!dhW h h h hh @P+ 0#HX-@H% A!HA a ! A X '@PV D Fh`@Pj  hPCURPDTgI20 eMGDRIVMGREADIDRIVEEWES qEWES1 qPLCTT SP PDQK8326 D81 A DRVR CCS 3.0 SL-149@PXXXXX BH!DhaABH  @P+X  T  Xa " 4a a  34cPKLCTT FLCTT SLCTT QLCTT STATUU6PURPDTLCTT LCTT LCTT LCTT LCTT P P,QB8326 D82 A DRVR CCS 3.0 SL-149@P aa ahhhXaD a X  a   @P+PBLCTT UNTSELSELMOD#SELECT*POT RSCNT ELTA TATUU LCTT P P QW8326 D83 A DRVR CCS 3.0 SL-149@PXPWLCTT PTATUUP PQV8326 D84 A DRVR CCS 3.0 SL-149@P PVLCTT PNTSELP PQN8326 D85 A DRVR CCS 3.0 SL-1496  34w@P  TH Xa  a  6I : Xa " $@P+ X!`@ XD X< X@   F  XD  @PV hQ a a4hG hh=aLh5"5ikrtuvx@PRh'aKh " 2 <> " X^ XR H  X @P'1($ A ( M M G C 3a@Px a cX   X   X   h@P Xr  V @a  Q3R HH c On@P- 11 X%a  @a a F XZ1  "@PXX; ,  a  a X ta sX   @PX*a" "a"@ "" W" $"  @P X XpPNLCTT FRSTWD:FUNCTNPCNTINUNEXMOTMOTITRTRNSOK-ALARM {FWA 8NUMBR 6EOT FILESTPOMPV4[LCTT cEVNRDy20 QWNDCKEVENT1LCTT LCTT LCTT P PQL8326 D86 A DRVR CCS 3.0 SL-149@Pa @ a @a a PLLCTT P PQX8326 D87 A DRVR CCS 3.0 SL-149@P#   a h  34PRWNDCKPLCTT EXMOTOTITRURPDTP PQR8326 D88 A DRVR CCS 3.0 SL-149@P X a Aaq!no  `` `X`X}. @P+A HA )Q H A&a "DR _Ba@PV Ta VD `X$  hX4 X1Ȫ h  a @PRa  H   X a^@P hXDh X1  d` X hX X hX @P &PRLCTT DELTA ERSCNTPLARM OT UMBR ELMODUELECTNRNSOK\LCTT ILESTCNTINUUNCTNRSTWD WA LCTT P PQS8326 D89 A DRVR CCS 3.0 SL-149@P T- 1   a h  0A h !H@P+:X!h1BXXXXXXXH  @PV L "BhX  Ta!hXBX@PXXXXX θh fB PSEVENTSEVNRDfPCOMPV4q  34P PQCOMP D90 A DRVR CCS 3.0 SL-149@P2esR4R4!PCOMPV4P P@CR2629 D93 A DRVR CCS 3.0 SL-149@P1 32547698=&:'">/0TSVUXWZY,\%(@_J-LKNMPORQ$!]*^;A+CBEDGFIH.?[)#<1 32547698#:'@"=/0TSVU@P+XWZY,\_%?>J-LKNMPORQ$])*^;A&CBEDGFIH.[(P bT 6a#w  A  " f"PICONSLPDUMPOTLPORTS TERMLU?MAKEQ nP PTRMDVR E01 A DRVR CCS 3.0 SL-149@P1`H*  l"h$"X$XeT,3XX XX4 X X@ k  34@P+! h hn   @PVbX *M"T  b " Xa   T ,3@P  ,    b<       T" Te X+@P, ! X *<s     T Xh1 @Ph0  * %   L"      @P  h    % h L3"3  &T@P-QHl3"3 TFD- 2TR@ <a X X  "@PX&   1-Xn3TR T T T "M3"@PPETRMNLBCMREQTI1811ZPP1811L1PCCP1 2PCONSLDUMPOTMIDRCP1mIDR12 IDR60 %IDR56 +INIPRTLOG2 6P PTRMIOR E02 A DRVR CCS 3.0 SL-149@P@X0-   w X   X&  X 0  X T@P+ D %T   0   20 !@PV f Xf f  f c"f  <e"@Pv 0  ;2 T*    TT w  w @P@ HXJ@c"#  "  ( w' @P  c" #c"X?c"#c"X8c"      0    @P" "  1XwX   w" 4<<  34@P-w    @  - X,($" #  % 2@PXA "b0  @   b    PCTRMNLINIPRTPPCCP1 0IDR4 .DUMPOTPLENTHPORTS PROMTR(M1811TI1811TS1811T>CMREQTP P'CALLCP E03 A DRVR CCS 3.0 SL-149@P  h H h hX hu "jeB @P+h[ Xs3 s3s#3!hT @PVP_qXUET  9q X]GCT  7?h?ST;OP@P g"B lWRITE ERROR STATUS= READ ERROR S@PTATUS= READY FOR TEST. ENTER STOP TO TERMINATE  @P Z"^#s3"hTB, hN@P hKhG h&s s033,Xk;H h76451&Fhh.('XMT @P-$qX<%h4$h3T ) U  TE@PXRMINAL FWRITE TEST ERROR ON PORT STATUS= HHHHHH H@P 0F 0L   l q 0ofhH33&@P35ss s/Zh hsTh/T(-dRDhU$ h 3@hT @PqWTh@X4 AT  5`P@PERROR ON STATUS= T>  34PNBRLINFOLDUMPCCPLU EPORTSPORTS "INHEXP PCCPGO E04 A DRVR CCS 3.0 . SL-149@PX:TAT AB0 @aK  :P@P+, 1T0hZ = a ddd2    T0@PV  3  s& 13'&%T"hT@P Ȁ02"T;@|T24h`hT  h@PTTXAE!Jh>h9h7hX"  @P3T T hhT   MICDMP@PCPFILE@hXh|h{hvTXPTnli" hhHfՈT@P-X>T\ZW" hVHTΠ hKT-X&T1  9 q h3sT  h !1dH `h  @PV`AM m m`PFr  35@PFILE NOT FOUNDPGETSECPEND0V4P P\KICKOF E08 A DRVR CCS 3.0 SL-149@PH$A XXA "3TRTCPFILEh@P+h 3sT MICRO SUBROUTINES NOT LOADED CP FILE LOAD FAILED @PV PCCPLU MICSB2DCLOCKCPGO ETSECP PPARAMS E10 A DRVR CCS 3.0 SL-149@Ph""8%d"PQ8PREPQ8PKUPPEND0V4 P P DRCCP1 E11 A DRVR CCS 3.0 SL-149@P@Hi RAl" X`[ bl3"3TEH TR8THLlw"hKE@P+C!,T;l"h:8   X2Xv,,3 X'X X!X? @PVXXJX,  T h h@Pn   bTM"  b     35@P1 TkT/ & T,3  , < TH@P h T T, /  T *<@Ps  TPIDRCP1IDR4 IDR12 IDR56 XIDR60 [PI1811Z*QUEUP WCONT DISABLABSREDUNFIX FIXONE1COMREQ NBRLIN,PORTS \LOG2 tP P#DRCCP2 E12 A DRVR CCS 3.0 SL-149@P 2 Th2T  p%$""+  ``*  @P+  TTT  <X\w"T \"  TT a \" @PV  $ T^# %^#h3TRGXW !'s@Ps  a ? Ta%h u $  ` T@P  b <3 <3  "T13$? hh  T@P ^"n^# n h !hX/  h f h !h @P\" z\w"TDX:  TPINPUT CPSEND:BACK WCONT QUEUP UNQUE COPYQ QCOUNTQIN QOUT PTCOMPL5FIXONEIDRCP1IDR4 COMREQACK 7GET PUT NSORDER!RESET MESAGEMAXQUEENDQUEOUTQUEPPORTS CCPLU P PJDRCCP3 E13 A DRVR CCS 3.0 SL-149@Ph5 h4L"  *  #     p  f  35+@P+`  h    % h!L3"3 @PV &TQHl3"3 TFD-T2TR"!h"%"h H@PT f"f#3sTL%5@PCP OUTPUT NOT READY, FORCE RESTART CP CONFIG LINE ERROR= CP CONFIG TERM E@PRROR= CP DOWN CP STARTED CP LINE FAILURE,PORT= CE ERROR= @PCP OUTPUT QUEUE FULL, FORCE RESTART CP ILLEGAL BLOCK TYPE=CP ILLEGAL CMD@P- BLOCK DPSP=CP MULTIPLE BACK RETURNS, PORT LOCN=PCOMREQMESAGEsPUNFIX kBINHEXP PDRCCP4 E14 A DRVR CCS 3.0 SL-149@P@ThcTha  (Z  :  Ts   &@P+   2 T."TA XX_ X @PVX"X* Xo T7w   TeTw  T@Pw01s  T$   TTTw@P    Tt T"GET CPSENDCOMREQPCSTATSNSTATSMESAGEBACK LOG  35?P PDRCCP5 E15 A DRVR CCS 3.0 SL-149@PHAHhTHf4hyT xhz  rhuor @P+ !ksh f wcTs\  ND p @PVwB sA pp s h>1`*x54" h./f'TL@Pf &$  f @P1!>Ոhhh  h;`V"T@PȻ"PGET PTERMCK}CPTRACFIXONE>CPADDRTCOMPLCPSET P PDRCCP6 E16 A DRVR CCS 3.0 SL-149@Ph^"h^#hTHf4hwTT h @P+h} * THsHz T2Hs d h* ,  ,w@PVw 1> jY A hSGsQ  sK<3F   3 3># 3 w-@P7H,3 30#-3 *ww(#  w w  s w@P 3    H ` !@P    "l  s"wöG  3l @Ps  3fª  ؤ X1 ( X+ ȗ h u hXȖ @P-…  1X| X uXTk1!cJ ^WhZo  35S@PXVhU RhS LhKG"F A= =!H \@P Z H&h& `X;`V"TVPPUT PCPTRACPORTS TCOMPLFIXONECPADDRCPSET "P PDRCCP7 E17 A DRVR CCS 3.0 SL-149@P3TP : :.:H:E =<3 =3hN<K83 T$0@P+  T?Ȁ22" T; ==3 T/Ȁ12" a T;3@PVTP  a X  h X XT  "&; @P 15 '-   % `3%TR@PT  %h3TR& !3TR q H s @PT G !PDCLOCKTIME nINITZEPBACK CLINE IDRCP1COMREQMESAGEHKICKOF)EPORTSPORTS LOG RCCPLU P PDRCCP8 E18 A DRVR CCS 3.0 SL-149@PT T T "N"& &B0 " T\"@P+bX /  b+. h#`h3Ȁ"@PVX4h  fTh(Ih!HhD@PhEX4h TbT'++1  fT+9G  35g@PX. /.fT*Xu.0.ETXg/P @P .# :"U"w   pPABSREDFIXONEUNFIX SORDER#DISABLjENABLEqRESET CACK ICTERMLCLINE xCSTATSNSTATSCPADDRTCOMPLPTERMCKPCDRCP1QUEUP MICSB2CPAREAPORTS CPSET P *T__mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  35{mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  35mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  35mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  35mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  35mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  35mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmX  35mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmC  36mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm.  36mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  36/mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  36CmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmALM6EO CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm P{aASSEM A01 A ASSM CCS 3.0 SL-149@P k d f pfvB 0 h hh5 phvhTZN@P+" fo fuX' hTLABS BASE ERR6 hPASS1 PASS@PV2 PASS3 TABLSTXREF PASSEM ASSIM PASSEM P PASS1 A02 A ASSM CCS 3.0 SL-149@P k dC f fB 0 h hh5  hhTZN@P+" f fX' hTLABS BASE ERR6 hPASS1 PASS@PV2 PASS3 TABLSTXREF dd Cd M lddl2@Pkd `B f q dL Jaa a! d Ia aUUaaadhmh@PhndX 0 c1 q\KT:5>Cd H  fD q8-@P -n< +n:\JXP\"\54#   dnT!a" a @PT\ B!g +n  -n +n  -n"aT9dK@P- A("(d Q< `( ; da(  -n( +n*  B ,n( +n ba*@PX)* q ( bR U 4\XVa - #n q@P # q 2TTQ J aa a A a''~$  36W@PX' `a'TQ C a a a X    XPXN ?$ a#f @P64$( a4h u  Ha(M| I S Ga @P uR u @P1 *nX!X `T a "A2 0 X !" \Xha@P\! a'M' M ""h)E *n )X'H hDh aT@PL SQMCMDOP**@P** ********** A(  2( :c((a- a(- A)*+, X   ( @P ff q a)a*#F a( ?# (a( &c+ A (c# qTL@P MASS STORAGE OVERFLOW $ ?#f 64$( a4a !d@P Q `~0N6ɱ~N)JH/Nl%>9%%.%. NS2SE1@PDL.L0L-N:N.N0N-NNMMNMNMƳK RARMRQRBPaPmPqPb-1"-1"0-010" - 1 "|X5 @Po4 s S;:$$&2t@o$9NTΏ6A]p#^g5g#Eg@ `HPX(@P08hpxhJHJGH?h> _:n: q H66T `"0 @Ph A& `#4 ZdnTL  OV CORE RES. MACRO DIR. ?x+  36k@P`PPPASS1 aMCHPR JJAN12PIL 1READIMGETOP RECV MER nMDEX CHPU CONAC rMACER PUNT RIMSB {PP1D SKLOUTGCONAB P1A READI *PGFILE MACROSMC7A MCCON MCNAM DISKW5DIRSCHSLMC MC5 CO RCO (MACCALDIN ENDMACPMACCON MACGETMACDEFOPT DOUT BGFL1 GTFIL MAXSECkPPASS1 PPA1PR2 A03 A ASSM CCS 3.0 SL-149@Pa( A)@ #2 d, C   1` R2 C `  a@P+ a TsT\y aX#f $n %n A. l`  aT/@PVXpn nA h\J\J\JA J!1DXL#Xp a aT3@P3T$X\* \3a(\:  '(a( \9 ( qJ \9@P <a.X.h n a  ATU$ $ \@P # q 1#nX!\ T 0 aA a \\\@P3 a aX\X"1X1X0ah R  H aȀ@P-naaT aata Q H U $ n H a  @PXa( a\( Aah ahy _nv qa6alo nk a TR @P %  *!]\ A\W= a  \X"Z26 A? _a6@P a 4  Q\ aaa6aXm8    A6 @P * n #c. q: Xi a  *n  "jX" " _ 8  36@Pnb q^ah [XE E(  2( 2 A :c((a+ a(+ A*a()X)(X' X%@P/ aa(@ *n a (9T #. ra\ a Ga a R@PZ _n  E 0aXUalTa a a\!6S @P  *\ X,  T4T31\ a7X  aa6X6 R\66 \@P1 TX7 7a(!"ȟ\% X  `l@P h q aa X" A"T1 HaF LXH _H h@Ph aTZ;MACROSh H aTL;` `h@P1h H aTH;` fD q a \)x Q B !TL@P\ (n q aTH; (`a a TaGETOP PREADIMPIL JJAN125MCHPR @  36P PvPASS2 A04 A ASSM CCS 3.0 SL-149@P k d f kfqB 0 h hh5  khqhTZN@P+" fj fpX' hTLABS BASE ERR6 hPASS1 PASS@PV2 PASS3 TABLSTXREF t` a#a a7a8a a9aa=T= 0@P`A  a?a> c@ q@aF AIT a h8h7h6 cD qahX !@P alrA 0h!d Bar a8r9 A9T )a  anhi@PXc`P8@P:TL  7 a7FAgAX Aa**aa c B T agaQ *w@Pe nq9T aV  2V :cVVa[ aV[ AWXYȅZ D7  D@PDSEXLBPPOPRGRLOVUDMO  Xi\UQA^m \J\I Fj$c: q # @P   j r  *nn 9Tl`P @PC\\ "AZ q al al\m  HlAa4aBXe@P aXaYM\ C aMXYYa1\Ya!\XaW\AXl % BZW @PI X D   RTLBFV\L ak\m 1X%m8\ akj\B amX@Ptm  aj$TT Xm aT aa\`  @P  \ \eam A' 1 a\<  am 4aT@Pm  1 aj\7h" cM aXdaZXP a 2a\ h'  36@PaMT am aakTBcm4B kTma^A  B @P $1qFaq4o  aMAA  cVB Tl alM@PK\A\ D B Q" Q 1 a3\\VcV aM\ am a@Pv V V r"]^q4btcqFao aoqTmi\@Pmaq cP q ARTaQm  \Am 2\ aQaRa+A^F 3S@P0_Q-CaaaQ(\$ UT1L \ aQ`daa\  ahaRaRT@PRQCSbA!  Ac R aQ D TB  rU cUcm Ac11q*a@P"ARaR aaQm t AS aQ U U QAc QAQc  QaUa@PMaTQGUAUa!T" 4"BcaaT 1aCaC Tahd@PxCaC& TCQX C aC ]cF qQ:@P d `d TCTD X 8c qh H a8TLX@P8c d D8PPASS2 aPCO nIFR ASSEM NEXT PRNT ER CCOT COP MOVE UP1 UP2 ADC ZEIF PALF NUM jDEC ~VFD IFA IFC 5EMC LST NLS NAM1 NAM AXPR NAMC PUNC PDSKWLNIMJ SYCH RESTBLTBLIN D5 CHPR sRECV CHPU DD1C N2 OB DOUT DIN PLBPK SYPT ZSYTAB}PPASS2 PvPA2PR2 A05 A ASSM CCS 3.0 SL-149@P"F]UH H%Ac `d d c`>bA w@P+ RR  ]H:h/F \ JL . XTT E TTF  36@PV1XXI aX7HI df CwFF 1>?@P !7  c qTL =h>T Da a>?a>a@a@XNMASS S@PTORAGE OVERFLOW > @AX$ >a=h>TD>?a>=h>T(X @P  A @>a=he>\=hs@A>\hh = f Af@P\A   TR alk\% -" \ aF CT^mq[n(!@P-oC\0ikT AamTaN aO  + -b  aO1@PXkwaTAbCT7T mO maNf  "X7wTN  T@Pn$1p +tq -o aq T Qp  [iUAq T Apl @Pl q HaJ({JM Ii S Gal uR u X 8aJXJ6R\(3^0h C@P1\^m 1 aRaQ TS? 7yxk\ aRaQm @P\\_^ \Xxm  \\\ B \ GKINX11\ @P bIahIFf qX hN $#bXQ\\ Qq  36@Pb\ E \TX1\ \N  aCaaQAAHakTE B q@PVCQRAAaCQa@F=haXTN TB c q PAAABACA %HG@PAT `hB aAaBaC7 0 c q al a a9 cD q a @P3a7 **cB NNaTG7h H aTL` `hh H aT@P^HK` `h aGaHF aF ? FaF H 6cF B@P  P C D X-P-C-D@PhHh `h`1X& dhf  Dhh`1X  hf D@Phh`  fTD dhf( dfPZSYTABSYPT 7LBPK DIN XDOUT DOB UN2 6D1C ]CHPU RECV lCHPR D5 /TBLIN RESTBLPSYCH IMJ DSKWLNNPPUNC  IFR PCO NEXT ER NAMC +PRNT ?AXPR NAM NAM1 NLS LST EMC IFC PIFA COT COP _ASSEM 1VFD DEC NUM ALF EIF ADC UP2 MUP1 LMOVE NP PvPASS3 A06 A ASSM CCS 3.0 SL-149@P k d f kfqB 0 h hh5  khqhTZN@P+" fj fpX' hTLABS BASE ERR6 hPASS1 PASS@PV2 PASS3 TABLSTXREF fjdih Ȅidid g aa8a5a6hTF@Pa`   T$18 h h $h1 hh Tadh@P T cD qahd 8"TX/q^# Tn&T al@P aV  2V :cVVa[ aV[ AWXYȁZ rA 0h4d Bar r,9u  36@P A9T )$a  an  c A y2t tA "XAan`P-_@P8o Tm TTT{ aaa8UJ\"A A a P@P a A \Q P C D X-P-C-DCTAaaX aGaHF @P aF ? FaF H >cF B  8ìcs q S h7 l @P \ hXy5Xd T hDsX X 8g qhH XT@P8Ȓ1X a8TLU a@PAACA AdX eJc a X 0@PcAc aT 8aec rdQC Tc  dXe AT aAc @P@  q  :EV B c`VWXȁY 0c q gA @P a XX aTL]s Xh  A  H@Ph= 0j7 q aTL]# hT #hr#oa@PZAg **aAXAaX aQagHU `P:@PUc d  D8 D D5 D6DSEXLBPPOPRGRLOVUDMO****** **********@P }F]UH H%Ac  `dd c`>bA  y @PRTX >@AX >a>?a>=d>T   @P A @>a=l@A>\T  alk\5 T aF CT^m@Pqnqgo " A aoX oikTAa@P) \mTaN aO  +aO1 -k ,AJ mO maN @PTg  "T.i[p  36@PchHh `h`1X dhf  Dhh`1X hf Dh`@P `d5 fT5 dh f dfPPASS3 aPCO PCOSETPRNFLGPJECT JJ5 CARCONNEXT STATUSEND WDPK LDCP RECV PUNC PRBPK EUNCP {PRNT WRIT ER CO UCOWR aCORD eOE )SYCH IGNORETBLIN RESTBLPDISKW5OFJ2 SKPROCDISKR5MAPR _REGP NN3 BCHPU ZMOVE DOUT CHPR #DIN EJECT RP2 PPASS3 Pv>PA3PR2 A07 A ASSM CCS 3.0 SL-149@Pn%1p +q - aq Tp  [i UAq T Apl @P+l q Ha(KzM Ii S Gal uR u <am Ai @ @PV ; #)DI[i c] q\u m yAmA ehPDr @Pag_e > !( 9 'Z Ae_AM  A` J a3mm]c]`dB @P14  Taa ae Qamda mjxAav Aa{axmu@PbA1 T# agT( Am  ahd c] qg akaPg]lQ^h D@P`C !A`VbbkAb abYj_ aPAb^hhO@P-C L3 3  z   aPAdX 6 5 2 1 @PXaeWO  o|XfUo 1e><]{+"@PvhmaN M  D B SXiEDX&+EAaJR"P cAJ@P AQDXYZQaJwXkRAF\eh aR \UB m q^  [EX1aJW@P\?E\CR\DU aJ\:\ /H9e #T d@PVX \X \X  PAGE 0  @PDATE: MO/DA/YR aXG TTA aaR 2 aR\R aR@P h cP q ARTaQfSm  \m 2\ aQaRahA^F 3S@P _Q CaaaQYq\l \\h AT2\T L  aQ`Yd@PBAaa\@MPm .S +bN2L 3 LaQ̲bKN P̂b`@P-daRCL db LSOaaha@=h>XTRQaRQoSbA@PX!  Ac R aQ D TB  rU cUcm Ac19q2aRARaR aaQm@P SAS. t AS( aQ U U QAc QxAQc  QaUaaTQ@PGUAUa!Ta" 4#BcaaTB!1aQX @PC aC ]cF qNO b aN\tfQEN2 hm i g @PeO rNQ# JP QqqhϱRaRaQRCc aRaR!dI1aEJaJ@P/C1Zh?JaJNRqMZD L"aKQAU AQm. \(     @PZ JaJ\  am\P\\\m N'KaJUaQaN@PQD  \RJaJ\mRA!dam R Y CQLQYC aR!@PQaQR 2 \ RJaJQmi\ \ AWAXAZ     @P VCVJAJ\ \ h H a5TLh H a6TH`@P6 `h aaJ aL aaPaQaajahTmS     Tj aa@P1aP aXr ajaoTm aaJ8 3j aNTaofh@P\E \ a i   C aX5m 2 1j\E   373@P\ aabadaj" c aTAX j T am P  Q@P  U C T- "qRA  C bAVaVR!A A @P݁aC AJaJ aTkTlT aJ cV qX7ab gTm @P\.aaabX5aamB R C Z A\XaVX%\T" qVad\cWm 7 B"@P3T   l al  a]ae\e 2 2] Sa]eam ]zA]v]@P^tmrA] a/X!I Ae ! A\<eQC!aQ!aaX\aXXWdYZ!@PaV 2 aVCA aabaadaJm amTwUdaV %aVE!  d@P'daX Ae2ZaVa2YY AY 1VPM2J5 TA\HhhhAI\B\HkhkBT\ h7 !\X \X  d  hs  37G@PHXHXHXH nB  h HH  0F 0H@P- 0F 0  PGM= () COM = () DAT = () @PX Pa 5 1XT1T aD AT aaPa@P!aX\1\C A\Pa] a^]XFaGaHa A\X7 uT@P dX a aa aT3aXTA# aT aX1T=@Pa\XAaaaa\,, ac T XaFcGcHcT 1AT@PdT$AVac Vc C #AaAa\LX3& 8c qX=X<Ia @P/ c A XX a8T\{8\4X&! aT\@PZ!XyXs a8TD{8ERRORS*Tah H TaFaF@P2hadahFc Gc Hc hc D 8AA 9AXr> @AX @P>a>?a>=hR>T   A @>a=h8@A>T@P gA   XXU aTL  Xh =@PA  Hh; 0j5 q aTLIAc @  q  :EV@P1 Bc`VWXȁY 0c q`P\@P{c d  D8 D D6 D5****** ********** P C D X-P-C-D aGaH@PF aF ? FaF H 6cF B  aV  2V :cVVaZ aVZ @PAWXY 85 ìcs qh H"h a5TL@Ph H a6TH`6 `h hQ7 d TP @P'XXX hT DsX 8c qhH Xȩ1X a8TL{  37[@PRAg**aAXbAaXx aQagH*DSEXLBPPOPRGRLOVUDMO@P} h}h Xd a (X dghH  aTL@P 5hXhp a :jPB pB0 0HRB8  K@PHJ 0UhB ""hL ""hD ""B /h> /H9h $X ,X@P X/ X PAGE 0 DATE: MO@P)/DA/YR *** S Y M B O L T A B L E *** @P Gh( a  hi `h iHh  ` H fj (`hh@Pr@g ?g d dhh+8l dihh@Ph6 f j `h`hjiXOih  ` bh  H~@Pi` h52b 2  `b `c!i `g a ("@P h A!` `P`P @P  hh h hXe h`&2 1 d h" @P8H"f  hȾȽ @e  hȪ`ت12@PcȤ !'ȡ"Ț H"f " `b h  h@P{ u hrph c hbHd_ ^ h[ hT_@P `XhHh HX ( X (X29XvFfGf Hf@PIaK X7]f ^f  hĘ( 1 $ AX HXe@P  XX] h\B.  37o`P@PHKB!KdBaK hK 0 aKp 0c]K 0 aK h0]c]C H] -@PHa] h aGaHF aF ? FeF H 6eF daIh _@Ps f  q _ f qPPASS4 aPPASS4 PvXREF A10 A ASSM CCS 3.0 SL-149@P k d f kfqB 0 h hh5 khqhTZN@P+" fj fpX' hTLABS BASE ERR6 hPASS1 PASS@PV2 PASS3 TABLSTXREF TFa   h $hh1 h8@P ` ai `hiHh  ` Hfj `hh؈@@P g:g ddB dihhh6 fj `h0hjiX@P ih  `bh   H`gh i` $  `~@P1Whs`Hp XhXc daK Xy  ]f^fUX F@P 2fGfHf IaJaKX DfEf  (f  KXP ]f ^f _f() f X@P] i` $ `1@h `H XhX @PdaK X  ]f^fX" FfGf HfIaJX8 Df EfX b@P`gi` 3 `2?h`H X;h@PX' daK X ]f ^fX  FfGfHf IaJX Df Ef@P X `c ho `h `c17u  37@P&h `d @ aKXk, f]f^f  HA"dd "@PQX HX   Ȯd` X`B@P ri` hb 2  `b `! i ` g a @P" h A ! ` `P`P@P hh h hX= h`&2 1 d h" @PH"f  hȾȽ @e  hȪ`ت12@P Ȥ !'ȡ"Ț H"f " `b h  h@P8{ u hrph c hbHd_ ^ h[ hT_@P a` XhUHhS HX::XAFfGf HfIaK X]f@P ^f  h̘ 1$  Xf HXWX[@PXN "XH a kd  (XHb1 / aT\!"aK 2@PXL X]h)^h(X  X! h X  X  X c q@P @P ERRORS "JeXX X X XX !X a XX@P>X X XXADhcDRhaESh^S h\ !X a XXX@Pi X XX}VAh9LUh7E h5 h3X a XXe E Q U I V A@P L E N C E S ----------------------- DEF.LINE NAME VALUE REFERENCED AT @PLINE NUMBER S Y M B O L S ------------- E X T E R N A L S *** A L P H A B E T I C  37@P A L S O R T O F S Y M B O L S *** _ f  q _ f qhH @P aTL 5hXh p a :jCB (pB@P@0 0HEB8  >H= 0ih5 ""h? ""h7 ""B /h1 /H,@Pkh t $XX PAGE 0 DATE: MO/D@PA/YR D@PHK 0 aKp 0c]K 0 aK h0]c]C H aGaHF  aF ?@PȢ FeF H 6eF daIh J 2 A :cDJD 2 A :ȃDcD@PE JHaJh H a6TH`6 `h( D6PXREF PILIBMAC A11 A ASSM CCS 3.0 SL-149@PuS*2*S9f1<@P ` f q aUUaa aa ahTFa8K  T\@P+@`TT aTn$-!# X[4# 1 3a dn@P VT 0` a`T 02 X'TL  aTH `@PTT `X TT H aTL ` a aX   T@PT ? a f 64( a4  u   Ha"( @P| I S Ga uR u <a A @MACSKL END. TYPE (CR).  @P c qT  wAB Q#, 8 "E 2 1#U   K @P- acQC !AAT A  c q a@PX 2 aX 3 4T a2 DTf n n A. ld s  37@PaTXtn nA TTA J"a 1J XS ( !T aa TT x@P aa T2T#TT T3aT;  'a T" A  q B@P T" C  9aXX n a  AT@P  6 5T ԑ 7 q 2 8nT!T aa X@P/TX!1X1X/a R  H a Ȁ "f" a a T@PZ a auDa Q  U $ f" H a Xh aTH(@P 2  n"A3` ah (f q aaF @Pa ? a c A c q DT "A2 0 0`"X>@P ` B1 aX a E ( ff q0h X $XT @PhHTL LIBMAC ERROR 00h H aTL`h H  aTH@P1` aT\ PLIBMACPLIBMAC*N,MACSKL,,,B 00380 O1'' ',',',' EMC O0T' ',1,',',' EMC O0T' ',2,',',' EMC O0T' ',3,',',' EMC O0T' ',4,',',' EMC O0T' ',5,',',' EMC s  37 O0T' ',6,',',' EMC O0T' ',7,',',' EMC O0T' ',0,',',' EMC IFC =====',EQ,====== VFD N8/4,N2/0,X3/',X3/' VFD N4/',N4/',N8/0 PCO 2 VFD X16/' I0 IFC A,NE,A EIF I5 IFC ',EQ, IFC (((((',EQ,(((((( VFD N8/4,N1/1,N1/1,X3/',X3/' I1 IFC A,NE,A EIF VFD X8/4,X1/1,X1/0,X3/',X3/' EIF I1 VFD X4/',X4/' PCO 2 VFD X16/'-*-2 I0 IFC A,NE,A EIF I5 I6 IFC ',EQ,* IFC (((((',EQ,(((((( VFD N8/4,N1/1,N1/1,X3/',X3/' I2 IFC A,NE,A EIF VFD X8/4,X1/1,X1/0,X3/',X3/' EIF I2 IFR '-*,LT,128 IFR '-*,GT,-128 PCO 1 VFD X4/',X4/',X8/'-*-1 I0 IFC A,NE,A EIF I6 I7 IFC ',EQ,+ VFD X8/4,X1/0,X1/1,X3/',X3/'   37 VFD X4/',X4/' PCO 2 IFC (((((',EQ,(((((( VFD N1/1,X15/' I3 IFC A,NE,A EIF VFD X1/0,X15/' EIF I3 I0 IFC A,NE,A EIF I7 I8 IFC ',EQ,- IFR ',LT,256 IFC (((((',EQ,(((((( VFD N8/4,N1/0,N1/1,X3/',X3/' I4 IFC A,NE,A EIF VFD X8/4,X1/0,X1/0,X3/',X3/' EIF I4 PCO 1 VFD X4/',X4/',X8/' I0 IFC A,NE,A EIF I8 EIF I0 PCO 0 EMC IFR ',LT,16 IFR ',GT,-1 IFR ',GT,0 IFR '+2,GT,' I5 IFC ',EQ, IFC (((((',EQ,(((((( VFD N8/5,N1/1,N1/1,X3/',X3/' I1 IFC A,NE,A EIF VFD N8/5,X1/1,X1/0,X3/',X3/' EIF I1 VFD X4/',X4/'-1 PCO 2 VFD X16/'-*-2   37I0 IFC A,NE,A EIF I5 I6 IFC ',EQ,* IFC (((((',EQ,(((((( VFD N8/5,N1/1,N1/1,X3/',X3/' I2 IFC A,NE,A EIF VFD N8/5,X1/1,X1/0,X3/',X3/' EIF I2 IFR '-*,LT,128 IFR '-*,GT,-128 PCO 1 VFD X4/',X4/'-1,X8/'-*-1 I0 IFC A,NE,A EIF I6 I7 IFC ',EQ,+ VFD N8/5,X1/0,X1/1,X3/',X3/' VFD X4/',X4/'-1 IFC (((((',EQ,(((((( PCO 2 VFD N1/1,X15/' I3 IFC A,NE,A EIF VFD X1/0,X15/' EIF I3 I0 IFC A,NE,A EIF I7 I8 IFC ',EQ,- IFC (((((',EQ,(((((( VFD N8/5,X1/0,X1/1,X3/',X3/' I4 IFC A,NE,A EIF VFD N8/5,X1/0,X1/0,X3/',X3/' EIF I4 VFD X4/',X4/'-1,X8/' I0 IFC A,NE,A EIF I8 EIF I0 PCO 0 EMC v  37 VFD X8/',X3/',X2/',X3/' EMC IFR ',LT,16 IFR ',GT,-16 VFD N8/0,X2/',X2/',X4/' EMC O4' ',',' EMC O0OIS ',',',0 EMC O0OIS ',',',1 EMC O0OIS ',',',2 EMC O0OIS ',',',3 EMC O0OIS ',',',4 EMC O0OIS ',',',5 EMC O0OIS ',',',6 EMC O0OIS ',',',7 EMC O3'' ',',',' EMC O0G' ',',',0,' EMC O0G' ',',',1,' EMC O0G' ',',',2,' EMC O0G' ',',',3,' EMC O0G' ',',',4,' EMC O0G' ',',',5,' EMC O0G' ',',',6,' EMC  38 O0G' ',',',7,' EMC O1'' ',0,',' EMC O1'' ',1,',' EMC O1'' ',2,',' EMC O1'' ',3,',' EMC O1'' ',4,',' EMC O1'' ',5,',' EMC O1'' ',6,',' EMC O1'' ',7,',' EMC O1'' ',7,5,0 EMC O1'' ',1,5,0 EMC O1'' ',2,5,0 EMC O1'' ',3,5,0 EMC O1'' ',4,5,0 EMC O1'' ',5,5,0 EMC O1'' ',6,5,0 EMC O1'' ',0,5,0 EMC O1'' ',7,8,0 EMC O1'' ',1,8,0 EMC O1'' ',2,8,0 EMC z  3 8# O1'' ',3,8,0 EMC O1'' ',4,8,0 EMC O1'' ',5,8,0 EMC O1'' ',6,8,0 EMC O1'' ',7,9,0 EMC O1'' ',1,9,0 EMC O1'' ',2,9,0 EMC O1'' ',3,9,0 EMC O1'' ',4,9,0 EMC O1'' ',5,9,0 EMC O1'' ',6,9,0 EMC O1'' ',7,10,0 EMC O1'' ',1,10,0 EMC O1'' ',2,10,0 EMC O1'' ',3,10,0 EMC O1'' ',4,10,0 EMC O1'' ',5,10,0 EMC O1'' ',6,10,0 EMC O1'' ',7,13,0 EMC O1'' ',1,13,0 EMC  3 87 O1'' ',2,13,0 EMC O1'' ',3,13,0 EMC O1'' ',4,13,0 EMC O1'' ',5,13,0 EMC O1'' ',6,13,0 EMC O1'' ',7,12,0 EMC O1'' ',1,12,0 EMC O1'' ',2,12,0 EMC O1'' ',3,12,0 EMC O1'' ',4,12,0 EMC O1'' ',5,12,0 EMC O1'' ',6,12,0 EMC O1'' ',7,12,1 EMC O1'' ',1,12,1 EMC O1'' ',2,12,1 EMC O1'' ',3,12,1 EMC O1'' ',4,12,1 EMC O1'' ',5,12,1 EMC O1'' ',6,12,1 EMC O1'' ',7,14,0 EMC  3 8K O1'' ',1,14,0 EMC O1'' ',2,14,0 EMC O1'' ',3,14,0 EMC O1'' ',4,14,0 EMC O1'' ',5,14,0 EMC O1'' ',6,14,0 EMC O1'' ',7,10,1 EMC O1'' ',1,10,1 EMC O1'' ',2,10,1 EMC O1'' ',3,10,1 EMC O1'' ',4,10,1 EMC O1'' ',5,10,1 EMC O1'' ',6,10,1 EMC O1'' ',7,13,1 EMC O1'' ',1,13,1 EMC O1'' ',2,13,1 EMC O1'' ',3,13,1 EMC O1'' ',4,13,1 EMC O1'' ',5,13,1 EMC O1'' ',6,13,1 EMC  3 8_ 01'' ',1,8,1 EMC O1'' ',2,8,1 EMC O1'' ',3,8,1 EMC O1'' ',4,8,1 EMC O1'' ',5,8,1 EMC O1'' ',6,8,1 EMC O1'' ',7,8,1 EMC O1'' ',1,9,1 EMC O1'' ',2,9,1 EMC O1'' ',3,9,1 EMC O1'' ',4,9,1 EMC O1'' ',5,9,1 EMC O1'' ',6,9,1 EMC O1'' ',7,9,1 EMC O1'' ',1,11,0 EMC O1'' ',2,11,0 EMC O1'' ',3,11,0 EMC O1'' ',4,11,0 EMC O1'' ',5,11,0 EMC O1'' ',6,11,0 EMC K  3 8s O1'' ',7,11,0 EMC O1'' ',1,11,1 EMC O1'' ',2,11,1 EMC O1'' ',3,11,1 EMC O1'' ',4,11,1 EMC O1'' ',5,11,1 EMC O1'' ',6,11,1 EMC O1'' ',7,11,1 EMC O1'' ',1,14,1 EMC O1'' ',2,14,1 EMC O1'' ',3,14,1 EMC O1'' ',4,14,1 EMC O1'' ',5,14,1 EMC O1'' ',6,14,1 EMC O1'' ',7,14,1 EMC O2'' ',',14,3 EMC O2'' ',',12,2 EMC O2'' ',',12,3 EMC O2'' ',',14,2 EMC O0OIR 7,0,1,' EMC 1  38 O0OIR 7,0,2,' EMC O0OIR 7,0,3,' EMC O0OIR 7,0,4,' EMC O0OIR 7,0,5,' EMC O0OIR 7,0,6,' EMC O0OIR 7,0,7,' EMC O0OSRX 0,1,' EMC O0OSRX 0,2,' EMC O0OSRX 0,3,' EMC O0OSRX 0,0,' EMC O0OSRX 1,1,' EMC O0OSRX 1,2,' EMC O0OSRX 1,3,' EMC O0OSRX 1,0,' EMC O0OSRX 3,1,' EMC O0OSRX 3,2,' EMC O0OSRX 3,3,' EMC O0OSRX 3,0,' EMC O0OSRX 2,1,' EMC O0OSRX 2,2,' EMC _  38 O0OSRX 2,3,' EMC O0OSRX 2,0,' EMC O3'' ',',',4 EMC O3'' ',',',5 EMC O3'' ',',',2 EMC O3'' ',',',3 EMC O3'' ',',',6 EMC O3'' ',',',7 EMC O0OSB ',1 EMC O0OSB ',2 EMC O0OSB ',3 EMC O0OSB ',4 EMC O0OSB ',5 EMC O0OSB ',6 EMC O0OSB ',7 EMC IFR ',GT,-16 IFR ',LT,16 IFA ',LT,0 VFD X8/6,X3/',X1/0,X4/-' I0 IFC A,NE,A EIF VFD X8/6,X3/',X1/0,X4/' EIF I0 EMC b  38 IFC ',EQ, O0EX I0 IFC A,NE,A EIF IFC ',EQ,I O01 7,' I0 IFC A,NE,A EIF IFC ',EQ,A O01 6,' I0 IFC A,NE,A EIF IFC ',EQ,Q O01 5,' I0 IFC A,NE,A EIF IFA ',GT,4 O0EX I0 IFC A,NE,A EIF IFA ',LT,1 O0EX I0 IFC A,NE,A EIF O01 ',' EIF I0 EMC VFD X8/11,X3/',X1/0,X4/' EMC VFD X8/11,X4/0,X4/4 EMC O00 ',0 EMC O00 ',1 EMC O00 ',2 EMC O00 ',3 EMC  38 O00 ',4 EMC O00 ',5 EMC VFD N8/11,N8/10 EMC VFD N8/11,N8/11 EMC VFD N8/11,N8/12 EMC VFD N8/11,N8/13 EMC VFD N16/0 VFD N16/0,N16/0 EMC VFD N8/11,N8/8 EMC VFD N8/11,N8/9 EMC VFD X8/11,X4/0,X4/2 PCO 1 VFD X1/0,X15/' PCO 0 EMC VFD X8/11,X4/0,X4/3 PCO 1 VFD X1/0,X15/' PCO 0 EMC VFD N8/11,N8/1 EMC VFD N8/11,N8/7 EMC VFD N8/11,N8/6 EMC VFD N8/11,N8/5 EMC 5>  38 IIN 0 RTJ- ($BB) VOLATILE ASSIGN ADC '+3 LDA* ' STA- 3,I SAVE RETURN EIN 0 EMC IIN 0 LDA- 3,I RETRIEVE RETURN FROM VOLATILE IFC ',NE, INA ' BUMP RETURN BY ' IF SPECIFIED EIF STA' ' RESTORE RETURN ADDRESS RTJ- ($BA) RELEASE VOLATILE EIN 0 JMP' (') RETURN EMC EXT HEXDEC RTJ+ HEXDEC HEX TO ASCII DECIMAL CONV. ADC' ' VARIABLE ADDRESS ' ADC' ' BUFFER ADDRESS ' 3 WORDS EMC EXT HEXASC RTJ+ HEXASC HEX TO ASCII CONV. ADC' ' VARIABLE ADDRESS ' ADC' ' BUFFER ADDRESS ' 2 WORDS EMC EXT ENCODE RTJ+ ENCODE ENCODE FOR OUTPUT ADC' ' OUTPUT BUF ADC' ' FORMAT STATEMENT ADC' ' NO VARIABLES ADC' ' VARIABLE LIST IFC ',NE, SAZ 2 JMP ' EIF #  38 EMC EXT DECODE RTJ+ DECODE DECODE INPUT ADC' ' INPUT BUFFER ADC' ' GORMAT STATEMENT ADC' ' NUMBER VARIABLES ADC' ' VARIABLE LIST IFC ',NE SAZ 2 JMP ' GO TO ERROR PROCESSOR EIF EMC EXT DECHEX RTJ+ DECHEX ADC' ' BUFFER ADDRESS 3 WORDS ADC' ' VARIABLE ADDRESS EMC EXT ASCII RTJ+ ASCII ADC' ' BUFFER ADDRESS 2 WORDS ADC' ' VARIABLE ADDRESS EMC EXT FLOATG RTJ+ FLOATG CONVERT TO S.XXXXXXESNN ADC' ' ADDRESS FLOATING VARIABLE 2 WORDS ADC' ' ADDRESS OUT BUFFER 6 WORDS EMC LDA- $E8 137*A002 IFC ',NE, STA' ' EIF EMC FN' ADC ' MR' ADC '   38 IFC ',EQ, LU' ADC 8 EIF IFC ',NE, LU' ADC ' EIF RB' BZS RB'(12) RI' BZS RI'(1) NK' ADC ' KL' ADC ' FC' ADC ' RL' ADC ' RP' ADC 0,0 EMC EXT DEFFIL RTJ+ DEFFIL DEFINE A FILE ' ADC' FN',MR',LU',RB',RI' EMC EXT DEFIDX RTJ+ DEFIDX DEFINE INDEXED ADC' FN',NK',KL',LU',RB',RI' EMC EXT LOKFIL LDA =X* STA FC' RTJ+ LOKFIL LOCK FILE ' ADC' FN',FC',RB',RI' EMC EXT UNLFIL RTJ+ UNLFIL UNLOCK FILE ' ADC' FN',FC',RB',RI' EMC EXT RELFIL RTJ+ RELFIL RELEASE FILE ' ADC' FN',RB',RI' EMC EXT STOSEQ IFC ',NE, LDA =X' STA RL'  39 EIF RTJ+ STOSEQ STORE IN SEQUENTIAL FILE ' ADC' FN',RP',',RL',RB',RI' EMC EXT RTVSEQ RTJ+ RTVSEQ RETRIEVE FROM SEQUENTIAL ' ADC' FN',FC',RP',',RL',RB',RI' EMC EXT STOIDX RTJ+ STOIDX STORE INDEXED ' ADC' FN',',RP',',RL',RB',RI' EMC EXT RTVIDX RTJ+ RTVIDX RETRIEVE INDEXED ' ADC' FN',',FC',RP',',RL',RB',RI' EMC EXT RTVIDO RTJ+ RTVIDO RETRIEVE INDEXED ORDERED ' ADC' FN',',FC',RP',',RL',RB',RI' EMC EXT STODIR RTJ+ STODIR STORE DIRECT ' ADC' FN',FC',RP',',RB',RI' EMC EXT RTVDIR 85*2670 RTJ+ RTVDIR RETRIEVE DIRECT ' ADC' FN',FC',RP',',RL',RB',RI' EMC LDA RI' STATUS A FILE IFC ',NE, AND' ' MASK STATUS EIF IFC ',NE, SAZ 2 NOTHING TRUE JMP ' JUMP IF ANY SET EIF EMC RTJ- ($F4) IFC ' ,EQ, ;  39' VFD N1/0,X1/' ,N5/4,N1/0,X4/',X4/' EIF I3 IFC ' ,NE, IFC ' ,EQ,0 VFD N1/0,X1/' ,N5/4,N1/0,X4/',X4/' EIF I3 IFC ' ,NE,0 VFD N1/0,X1/' ,N5/4,N1/1,X4/',X4/' EIF I3 ADC ',0 I1 IFC ',NE,B IFC ' ,EQ,R VFD N3/0,N1/1,N2/1,X10/' EIF I1 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/1,N2/2,X10/' EIF I1 IFC ' ,NE,I VFD N3/0,N1/1,N2/0,X10/' EIF I1 I2 IFC ',EQ,B IFC ' ,EQ,R VFD N3/0,N1/0,N2/1,X10/' EIF I2 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/0,N2/2,X10/' EIF I2 IFC ' ,NE,I VFD N3/0,N1/0,N2/0,X10/' EIF I2 ADC ',' EMC RTJ- ($F4) IFC ' ,EQ, VFD N1/0,X1/' ,N5/6,N1/0,X4/',X4/' EIF I3 IFC ' ,NE, IFC ' ,EQ,0 %  39; VFD N1/0,X1/' ,N5/6,N1/0,X4/',X4/' EIF I3 IFC ' ,NE,0 VFD N1/0,X1/' ,N5/6,N1/1,X4/',X4/' EIF I3 ADC ',0 I1 IFC ',NE,B IFC ' ,EQ,R VFD N3/0,N1/1,N2/1,X10/' EIF I1 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/1,N2/2,X10/' EIF I1 IFC ' ,NE,I VFD N3/0,N1/1,N2/0,X10/' EIF I1 I2 IFC ',EQ,B IFC ' ,EQ,R VFD N3/0,N1/0,N2/1,X10/' EIF I2 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/0,N2/2,X10/' EIF I2 IFC ' ,NE,I VFD N3/0,N1/0,N2/0,X10/' EIF I2 ADC ',' EMC RTJ- ($F4) IFC ',EQ, VFD N1/0,X1/',N5/3,N1/0,N8/0 EIF I3 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/',N5/3,N1/0,N8/0 EIF I3 IFC ',NE,0 VFD N1/0,X1/',N5/3,N1/1,N8/0   39O EIF I3 IFC ',EQ,R VFD N4/0,N2/1,X10/' EIF I1 IFC ',NE,R IFC ',EQ,I VFD N4/0,N2/2,X10/' EIF I1 IFC ',NE,I VFD N4/0,N2/0,X10/' EIF I1 ADC ' EMC RTJ- ($F4) IFC ' ,EQ, VFD N1/0,X1/' ,N5/1,N1/0,X4/',X4/' EIF I3 IFC ' ,NE, IFC ' ,EQ,0 VFD N1/0,X1/' ,N5/1,N1/0,X4/',X4/' EIF I3 IFC ' ,NE,0 VFD N1/0,X1/' ,N5/1,N1/1,X4/',X4/' EIF I3 ADC ',0 I1 IFC ',NE,B IFC ' ,EQ,R VFD N3/0,N1/1,N2/1,X10/' EIF I1 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/1,N2/2,X10/' EIF I1 IFC ' ,NE,I VFD N3/0,N1/1,N2/0,X10/' EIF I1 I2 IFC ',EQ,B IFC ' ,EQ,R VFD N3/0,N1/0,N2/1,X10/' 9  39c EIF I2 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/0,N2/2,X10/' EIF I2 IFC ' ,NE,I VFD N3/0,N1/0,N2/0,X10/' EIF I2 ADC ',' EMC RTJ- ($F4) IFC ' ,EQ, VFD N1/0,X1/' ,N5/2,N1/0,X4/',X4/' EIF I3 IFC ' ,NE, IFC ' ,EQ,0 VFD N1/0,X1/' ,N5/2,N1/0,X4/',X4/' EIF I3 IFC ' ,NE,0 VFD N1/0,X1/' ,N5/2,N1/1,X4/',X4/' EIF I3 ADC ',0 I1 IFC ',NE,B IFC ' ,EQ,R VFD N3/0,N1/1,N2/1,X10/' EIF I1 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/1,N2/2,X10/' EIF I1 IFC ' ,NE,I VFD N3/0,N1/1,N2/0,X10/' EIF I1 I2 IFC ',EQ,B IFC ' ,EQ,R VFD N3/0,N1/0,N2/1,X10/' EIF I2 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/0,N2/2,X10/'  39w EIF I2 IFC ' ,NE,I VFD N3/0,N1/0,N2/0,X10/' EIF I2 ADC ',' EMC RTJ- ($F4) IFC ',EQ,1 VFD N2/0,N5/16,N8/0 ADC ' EIF 0 81*2071 IFC ',NE,1 81*2071 ADC (') 81*2071 EIF 0 81*2071 EMC RTJ- ($F4) VFD N1/0,N6/5,N1/0,N8/0 EMC RTJ- ($F4) VFD N1/0,N6/11,N1/0,N8/0 EMC RTJ- ($F4) VFD N1/0,N6/7,N1/0,N8/0 EMC RTJ- ($F4) VFD N2/0,N5/19,N1/0,N4/15,N4/15 ADC ' EMC RTJ- ($F4) VFD N2/0,N5/19,N1/0,N4/0,N4/0 ADC ' EMC RTJ- ($F4) IFC ',EQ, VFD N1/0,X1/',N5/9,N1/0,N4/0,X4/' EIF ;  39I3 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/',N5/9,N1/0,N4/0,X4/' EIF I3 IFC ',NE,0 VFD N1/0,X1/',N5/9,N1/1,N4/0,X4/' EIF I3 ADC ' EMC RTJ- ($F4) IFC ',EQ, VFD N2/0,N5/15,N1/0,X4/',X4/' EIF I3 IFC ',NE, IFC ',EQ,0 VFD N2/0,N5/15,N1/0,X4/',X4/' EIF I3 IFC ',NE,0 VFD N2/0,N5/15,N1/0,X4/',X4/' EIF I3 ADC ',' EMC RTJ- ($F4) IFC ',EQ, VFD N1/0,X1/',N5/8,N1/0,X4/',X4/' EIF I3 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/',N5/8,N1/0,X4/',X4/' EIF I3 IFC ',NE,0 VFD N1/0,X1/',N5/8,N1/1,X4/',X4/' EIF I3 ADC ',' EMC RTJ- ($F4) IFC ',EQ,   39 VFD N1/0,X1/' ,N5/13,N1/0,X4/',X4/' EIF I3 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/' ,N5/13,N1/0,X4/',X4/' EIF I3 IFC ',NE,0 VFD N1/0,X1/' ,N5/13,N1/1,X4/',X4/' EIF I3 ADC ',0 ADC $8C2,',' ADC ',' EMC RTJ- ($F4) IFC ',EQ, VFD N1/0,X1/',N5/10,N1/0,X4/',X4/' EIF I3 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/',N5/10,N1/0,X4/',X4/' EIF I3 IFC ',NE,0 VFD N1/0,X1/',N5/10,N1/1,X4/',X4/' EIF I3 ADC ',0,0,' EMC RTJ- ($F4) I1 IFC ',EQ, IFC ',EQ, VFD N1/0,X1/',N5/12,N9/0 EIF I1 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/',N5/12,N9/0 EIF I1 IFC ',NE,0 VFD N1/0,X1/',N5/12,N8/0,N1/1 EIF I1 (  39I2 IFC ',NE, I1 IFC ',EQ,0 IFC ',EQ, VFD N1/0,X1/',N5/12,N9/0 EIF I1 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/',N5/12,N9/0 EIF I1 IFC ',NE,0 VFD N1/0,X1/',N5/12,N8/0,N1/1 EIF I1 I2 IFC ',NE,0 IFC ',EQ, VFD N1/0,X1/',N5/12,N1/1,N8/0 EIF I2 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/',N5/12,N1/1,N8/0 EIF I2 IFC ',NE,0 VFD N1/0,X1/',N5/12,N1/1,N7/0,N1/1 EIF I2 ADC ' EMC RTJ- ($F4) IFC ',EQ, VFD N1/0,X1/',N5/17,N1/0,X4/',X4/' EIF I3 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/',N5/17,N1/0,X4/',X4/' EIF I3 IFC ',NE,0 VFD N1/0,X1/',N5/17,N1/1,X4/',X4/' EIF I3 ADC ',0,0,',' EMC e=  39 RTJ- ($F4) IFC ' ,EQ, VFD N1/0,X1/' ,N5/14,N1/0,X4/',X4/' EIF I3 IFC ' ,NE, IFC ' ,EQ,0 VFD N1/0,X1/' ,N5/14,N1/0,X4/',X4/' EIF I3 IFC ' ,NE,0 VFD N1/0,X1/' ,N5/14,N1/1,X4/',X4/' EIF I3 ADC ',0 I1 IFC ' ,NE,B IFC ' ,EQ,R VFD N3/0,N1/1,N2/1,X10/' EIF I1 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/1,N2/2,X10/' EIF I1 IFC ' ,NE,I VFD N3/0,N1/1,N2/0,X10/' EIF I1 I2 IFC ' ,EQ,B IFC ' ,EQ,R VFD N3/0,N1/0,N2/1,X10/' EIF I2 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/0,N2/2,X10/' EIF I2 IFC ' ,NE,I VFD N3/0,N1/0,N2/0,X10/' EIF I2 IFC ',NE,R VFD X4/',X4/',X4/',X4/' EIF IFC ',EQ,R VFD N1/1,X3/',X12/' EIF r<  39 EMC RTJ- ($F4) VFD N2/0,N5/18,N5/0,X4/' ADC ' EMC NLS IFC ',NE, EQU ' (') EIF 0 IFC ',EQ, IS THERE A PRIORITY EQU ' (0) NO EIF 0 IFC ',NE, EQU ' (') REPEAT MANY TIMES EIF 0 IFC ',EQ, EQU ' (1) REPEAT ONLY ONE TIME EIF 0 EQU ' ('*$1000+' ) SET UP NUM OF TIMES REPEATED IFC ',EQ, NO COMPLETION EQU ' (' *16+' +$5C00) EIF 0 C0 IFC ',NE, COMPLETION YES 88*2712 IFC ',EQ,* RELATIVE COMPLETION EQU ' (' *16+' +$1D00) 81*205 EIF 0 IFC ',EQ, ABS COMPLETION EQU ' (' *16+' +$5C00) EIF 0 EIF C0 88*2712 LST RTJ- ($F4) ADC ' NLS IFC ',EQ, LST ADC 0 COMPLETION NLS EIF 0 a  3 9C1 IFC ',NE, IS THERE A COMPLETION ADDRESS 88*2712C2 IFC ',EQ,* IS IT RELATIVE 88*2712 LST ADC '-*+1 COMPLETION NLS EIF C2 88*2712C3 IFC ',EQ, 137*4266 LST ADC ' COMPLETION NLS EIF C3 88*2712 EIF C1 88*2712 LST NUM 0 THREAD NLS IFC ',EQ, IT IS THE LOGICAL UNIT LST ADC $0000+' NLS EIF 0 IFC ',EQ,R A RELATIVE DISTANCE LST VFD N6/1,X10/'-*+3 RELATIVE NLS EIF 0 IFC ',EQ,I A ABS CORE LOCATION LST VFD N6/2,X10/' ABS CORE LOCATION NLS EIF 0 LST ADC (' ) REPEAT TIMES N EMC NLS MOT' ',',',',',1 EMC NLS MOT' ',',',',',2   3!: EMC NLS MOT' ',',',',',3 EMC NLS MOT' ',',',',',4 EMC NLS MOT' ',',',',',5 EMC NLS MOT' ',',',',',6 EMC NLS MOT' ',',',',',7 EMC LST JMP- ($EA) EMC SPC 1 EXT ISBUFR,CBWRIT,CBREAD,BOUTC SPC 1 NUM $520A 00 SCHEDULER CALL ADC ISBUFR 01 INITIATOR ADDRESS ADC 0 02 CONTINUATOR ADDRESS - NOT USED ADC 0 03 TIMEOUT ERROR ADDRESS - NOT USED NUM -1 04 DIAGNOSTIC CLOCK - NOT USED NUM 0 05 LOGICAL UNIT ADC 0 06 PARAMETER LOCATION NUM 0 07 CONVERTER, EQUIPMENT, STATION - NONE NUM $00A4 08 REQUEST STATUS NUM 0 09 DRIVER STATUS NUM 0 10 CURRENT LOCATION   3": NUM 0 11 LAST LOCATION PLUS ONE NUM 0 12 DEVICE STATUS - NOT USED NUM 0 13 RESERVED NUM $7FFF 14 RESERVED NUM 0 15 RESERVED FOR FNR AND CMR ADC ' 16 LSB START OF BUFFER ADC ' 17 LSB END OF BUFFER ADC ' 18 CURRENT LSB START OF BUFFER ADC ' 19 CURRENT LSB END OF BUFFER NUM $44AA 20 MASS MEMORY WRITE REQUEST (UNFORMATTED) ADC CBWRIT 21 MASS MEMORY WRITE COMPLETION NUM 0 22 THREAD ADC ' 23 MASS MEMORY LOGICAL UNIT NUM 0 24 NUMBER OF WORDS NUM 0 25 STARTING DATA LOCATION ADC ' 26 MSB ADDRESS ADC ' 27 LSB ADDRESS NUM 0 28 CONTROL WORD NUM $42AA 29 MASS MEMORY READ REQUEST (UNFORMATTED) ADC CBREAD 30 MASS MEMORY READ COMPLETION NUM 0 31 THREAD ADC ' 32 MASS MEMORY LOGICAL UNIT NUM 0 33 NUMBER OF WORDS ADC ' 34 STARTING LOCATION (CHARACTER BUFFER) ADC ' 35 MSB ADDRESS ADC ' 36 LSB ADDRESS NUM 0 37 PARTIAL WORD OUTPUT FLAG NUM $4CAA 38 BUFFER WRITE REQUEST (FORMATTED) ADC BOUTC 39 BUFFER WRITE COMPLETION NUM 0 40 THREAD ADC ' 41 OUTPUT LOGICAL UNIT NUM 0 42 NUMBER OF WORDS ADC ' 43 STARTING LOCATION (CHARACTER BUFFER) ADC ' 44 CHARACTER BUFFER SIZE BZS '(') 45 CHARACTER BUFFER EMC *N,MACROS,,,B 00440O0S O11 `O12 O13  O14 O1Q O1A @O1I O1 O0T `O0G O0OIS O0OSRX O0OIR O4 @O41 7  3#:+O42 O43 `O44 O4Q  O4A O4I O0F @O3 O31 O32 `O33 O34  O3Q O3A O3I  @O2  O21 !O22 !`O23 !O24 " O2Q "O2A "O2I #@SJI #SJ1 $SJ2 $`SJ3 $SJ4 % SJQ %SJA %SJE &@ARI &AR1 'AR2 '`AR3 'AR4 ( ARQ (ARA (SBI )@SB1 )SB2 *SB3 *`SB4 *SBQ + SBA +ANI +AN1 ,@AN2 ,AN3 -AN4 -`ANQ -ANA . ORI .OR1 .OR2 /@OR3 /OR4 0ORQ 0`ORA 0LRI 1 LR1 1LR2 1LR3 2@LR4 2LRQ 3LRA 3`SRI 3SR1 4 SR2 4SR3 4SR4 5@SRQ 5SRA 6CIE 6`C1E 6C2E 7 C3E 7C4E 7CQE 8@CAE 8AMI 9AM1 9`AM2 9AM3 : AM4 :AMQ :AMA ;@OMI ;OM1 <OM2 <`OM3 @AS2 >AS3 ?AS4 ?`ASQ ?ASA @ ASI @SM1 @SM2 A@SM3 ASM4 BSMQ B`SMA BSMI C ER1 CER2 CER3 D@ER4 DERQ EERA E`ERI EEM1 F EM2 FEM3 FEM4 G@EMQ GEMA HEMI H`C1N HC2N I C3N IC4N ICQN J@CAN JCIN KCCN K`LCA KSCA L CCE LXF1 LXF2 M@XF3 MXF4 NXFQ N`XFA NXFI O S1Z OS2Z OS3Z P@S4Z PS1N QS2N Q`S3N QS4N R S1M RS2M RS3M S@S4M SS1P TS2P T`S3P TS4P U LFA USFA USFZ V@SFN VCLF WSEF W`D1P WD2P X D3P XD4P XDQP Y@DAP YDIP ZO0OSB Z`O00 \@O01 aSIO aLUB b@LLB bEMS cWPR c`RPR cECC d ASC dAPM dPM0 e@PM1 eO0EX fGPE fGPO g LRG gSRG hLMM iCBP j DMI jSPS jVOLA k@VOLR lHEXDECnHEXASCoENCODEpDECODEs DECHEXu`ASCII vFLOATGwCLOCK xFLDF yDEFFIL|DEFIDX}LOKFIL~`UNLFILRELFIL@STOSEQRTVSEQSTOIDX@RTVIDXRTVIDOSTODIRRTVDIR@STATFLFREAD FWRITE STATUS`READ WRITE INDIR `EXIT @CORE LOADERDISCHDENSCHD@SCHDLETIMPT1TIMER @GTFILE SPACE RELEASPTNCOR MOTION @SYSCHD MOT BSR ڠEOF `REW  UNL ADF ݠBSF `ADR  DISP ཪFFERGTFILE SPACE RELEASPTNCOR MOTION @SYSCHD MOT BSR ڠEOF `REW  * 00500__mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm)  3$:?mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3%:Smmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3&:gmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3':{mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3(:mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmAL:O CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm P>CNVT 01A F FTN CCS 3.0 SL-149@P' h Hj  &jn  &n 1(h(l (h @P/(Ո l l@P8HPCNVT :P P)GPUT 02A F FTN CCS 3.0 SL-149@P 0p4^d h, h` dRm @HHPGPUT "P PSYMBOL 03A F FTN CCS 3.0 SL-149@P@Pn@Pp$$%%@P *F,58@Pi:  3):@Pu h0fh d00cdb h  [  h lޜ dlT" 8 %@P 0؄eh  l @P̌d` 0bc l    ~ 'do@P   q00chIn pI K@P  0[ ̘dk̔ۄalv Pllf dlT0 ̽@P00edrj0Z ddTl di l9 `ܷ @P[nҔ0` \rLm" 8 % l̵cds l@Pd !al\̟d *\nn0 d T db׌ dtdk6 @PfhHPSYMBOLPGETSYM(WRITE @SKIPITP P GETF 04A F FTN CCS 3.0 SL-149@P@P $$@P   %% @P'!"#%&:;<>?@[\]^_@P) hhhhh h h f 1T  h  !3 !?^ I @PTe" ; 'lr '"   l  lȝ" : @P'" : '_Y" ; '(.  3*:@P   l" ; ' ld(d@P .l  lTl  l̿  l l d @P3 " l l\1Ȍl l !s̙ h !`̲ddT>̫ ̨@P+ ? d̠  l̛d d d!&\̎ 2  0=f n @PV  l ln l̹   d̼llȌl\l@P d l  T l l d d @P@P !@P$@P "S "S ,l̻dRl@P9@P(@P  \!@P&@P@PT&  "^]  1 - 4 >̪ \ l l lL@Pd  d\Ϝ l\ l\̼  l̵l\̱ ̭@P \̧l l@P@P)[  3+:@P)@P)\̠ ̜l\̘  l@P@P 9 2  " $l l T9  @P dd d  l !L f$l"Lh<h9,5l # d@PLh*h(,$lLh h,؈l lll " l̳ ( @Pl@P  % #$,l̙ 3i dd l` Z@P>@P B d0 lT "f $!#̽  l d2̳ @P\̯  ll(֬ ll %l l  l@Pk*@Pq*@Pe@P*̺ ̧  X̄d@P~>@P> d $ !M  dl l݌l  lT l@Pild   TZ$\%  d &lZ lV'l @P\$ \(@Pu  3,:@P   ll  l d@P@P@P@P@P@Pdd lT  ll@P@P@P @P d̮    ̡  l  l d     @P&TTHPGETF PGETC GPUT DIAG yDXP9 dCNVT SYMBOLP P6GNST 05A F FTN CCS 3.0 SL-149@P@P /@P@P  3-:@P`)(@P M09+ O@PONMON @Ppqpr@P0"0# 060/K@PEND@P'!"#%&:;<>?@[\]^_@P C * $ . + O M @PPROGRAM@P%SUBROUTINE@P/FUNCTION@P7REALFUNCTION@PCINTEGERFUNCTION@PRBLOCKDATA@P[MACRO@P`DOUBLEPRECISIONFUNCTION@PxQ8QNAM@P{Q8QBDS@P~@P&5>CZ"  3.;@P @P d hhh h uhh TZ T0 Ȱ dd@P dT \ \Ȓ  dwf  $1l h @P,d l!T!wd   9 2~" 8 % @PB  l  1\ 0T %" 8 @Pm%  0 ?̻" 9 %T*̾  d@Pw nܷ (1 'n̪ \ܩ l d Hl)T!w@PdT!w l   Al̾ l 1 ~" 8 % &@Pdll l얶h+ w 1"̮"@P"! + "@P0 dEl  !Tl̖  dd @P[ 1W l fܥ 1 l d!Td n̐ ܍ H1T@P l f 1TT̾$l dwd!  @P  l dHd/d d~ d @PH@P@P $ l\d $d l̸dfܯ (1 @P ! |ܔHl l՜9Tawa@P@Pe  3/;@P T\l TD  @PF- l~dd dTod Z X !M̪ T@Pq{] l f 1 ll !# H!!\l  9 Z!(̿@P !$ Z8̷ 5̴nܧT\w ܜ H1 1\x @P~  d l0d0# 7T dD df 1T@P$d  T % ld!% $ \ @Pnf &̴f' lܫ l d^@PL-@P -  l dw̜!6TWwl d̢0<  /1 d 0l̐@PX  1T /l d/T8!w/ !l\/ (l@P@P\ d{@PT@Pg@P@P@P@P%e@P&d@P'cp  30;/@P<@PB@PT@P@P@P0    lfܘ 1T \ ~" 9 &@P |l\/ lT@PA@P  Fd  Ta !2 !l @P ld dw f $1  $l lc dTj d@P%T\R@PJ,@P,\\HPGNST 1PCONV PACK WRITE IGETCFVV綀@P+ @P@P &'@P -,--)@P*/  3A<@P; h f 1 dd hhh dUT   d  ( @Pf   HT  f $ f% d )  @P\&h00chK*d !̴ 3 `̦ ̣ @Pܼ nld'q Un̮ 4\%0; "TTR  d# l@P   ll l l0b ΓK @Pchh-A)  K* Tv$ @mEl f $ܑ̝ U !\@P=Ԅen@PEC3  f#d̦ <κ 6αI d    @Pp   lΙH  hI  ld'n 3T%&@Pd) cIlI  rI3d e d@P!λId 2αIlQ̻ 2̶ 2\& lU  @P `΍ ` @P@P d - d; "Tf$l"! 1@P)R   1 l 7 #T+  "\,  \@PT-'  \ . %  dT! |Tu@P|@P|@P| h l/d  l" &̫ 8̨  2\& l@PV  3B<@P  ̯ T   U Td l @P6 2 !F 0#dcTh3 ̼  % @P@PTF0\̺ E̵ \1 f$l̯ d; "T f%ܢܡ̨ @P̩ d)@P  @P+ n ܋   l d d 8  2@P<K@PK\& l\(@P!4@PU Un@P#7@P$6@P%5@P&4@P'3@P(2@PZ n  dl l@PJ@P3i  3C<@P i  ln ! n$l@P)V@P*U@P n̿ $ !@P+`@P,_@P f %  n̥ # n@P-q@P n@P"@Pܴ  n ̗  ̔    ! d@P@PT   E  O @Ph@P U n . &0b T0c00e\ 0hK*  @@PmK T2̹ *̵   \$f  f$j  @m@P0'  \4u?/d d"dW d VU n f % l̗f@PR#g@PU@PU|d'^  3D<@PY@PY@P0Yb T nchI3    @m d @P" 8 $&"l" 8 $Id $d l@P  Fl l \ U d5d6% @PlT '    ll 0 c@h@Pm d7\   l   l 1 @m@P0T2U$ n:K* "   \2@PM@PM  x  n#/dΘK  nyd'@Px nld)l@P*@P  "fVfW l@P@P , 1&̥8!dl dl dlT Uf"̞ @P l llb !T^@P7@P@P 0c@hm  @m @m@PTK  3E<@P@P #f $1d'G be@P@P  l@P@PȤ K*   Y YT12 nΣK @P9> U޵Glΰd     "0c0h K @PdK A K 1ଔ \9 @m@Pb@P\:@P@P @ HHPARITH PLOCAL wGETF DIAG .PUNT TREE oGETSYMSUBSCRSTORE GETC SYMBOLP PCOMNPR 15A F FTN CCS 3.0 SL-149@P$ hT  S S\ !N X09 hh0d8!- @P0., Č0 7 >d h h nصض 1l̼  d@PYT̳ 1 lȜlT\̤ ̠  l l\̥ lT @P +4 1 Ho_  3F<PCOMNPRPGETF DIMPR [DIAG gP PDIMPR 16A F FTN CCS 3.0 SL-149@P,@P 9@P @P%  &-T  #T  \ \     @P:0b chKd 1 K Kd &\T0:h h@Pe܄ehOh } L\\̘ 09 $T  f@P   xlT@m $ah0cp8 d @P  0( n @P̙h n̳lT ̺ ̵ 5̰ 0\ '8hE@Pd  T(@m  '+@fi̗@Pem @m  c@mͻ |\  2@PH\΢I  dΗI  ΐI  \  8@h@Psm  @m  @m  @mT@P"@P0@P;  3G<@P @ HHkPDIMPR PGETF DIAG STORE _GETSYMP PSUBSCR 17A F FTN CCS 3.0 SL-149@P@P@P@P$$ch h j 1hI h      hH @PC I  hרh hȻ!# $ahp8 h0(hȧ ȧHhȤ@Pn hfؖ@P{ hdf 1 U dT   #T '@P , z ? \Yb TchI (@P@mKC  n I K, \τ0 ef@P̤  l̟ ̜ T    ̡f dn ly@P ' UT \  C 3 ` ,m\̼ @PRD\̿ Uf$Wd0; "T̩ ̥ @P}̡n ̓      l̳  l ,,l ,l,@P,؄,d d d  1  l   1@P 6 Uf$d W -f%dcT  nhr  3H=@PC  nJ̣ U̞ n d0; "Tr n( f&̱@P) lίd d xΑ I d d d  #n܍Ϝ !\T@P0Tb T @m m̌eUf$ud n d !\@P f % nΪdcT0hC  n d; "T!ΐn( f& @P f'̿ l 22 f " f#̮n n@P3@PX@P @ HHGPSUBSCRPGETF  DIAG -STORE YPUNT GETSYMSYMBOLSP PTYPEPR 18A F FTN CCS 3.0 SL-149@P d d  l lTHPTYPEPRPDIMPR P PBYEQPR 19A F FTN CCS 3.0 SL-149@P@P)@P ?  3I=#@P *PX Y ,(-' @h hhT     h\ 4T@P7 hh˘6 fe  \\  \  @Pb̵h hhb TchhAhK  K \ @P @mۄen l_ #\ " / G@P  !T7 f efff gfhl n lT \  @PS  )\l dd4 6̪ 6\ 3 @P \'̙  9 !5  3\ dfa   @P86\̘ 6̴ ̯  6{Y % lT̬nܗ ̓@Pc  6  d d $\ ̰ 6 ]d0cT@P@0jmm0 hm d O Id@P $\z   I TY @mC \\ d @P1N@P-@PK@P@P @ HH&PBYEQPRPGETF DIAG STORE nGETSYMP PCHECKF 20A F FTN CCS 3.0 SL-1494  3J=7@P@P ddd d dT""   l   -T"!@P. ,1PONMLK\" ; (K Dܶ "\@PY̯ l ̮d ̩ "\  \  d d!T l l \@P(  % 1  T'  \̷ A d @PHSPCHECKFPFORK DIAG FGETC uP PFGETC 21A F FTN CCS 3.0 SL-149@P\@PH@P'!"#%&:;<>?@[\]^_@P hT   h    l d h h\ T@PK lx@PQ   ȿ  ػȻ1ȵlȴ h \9T h  ܨȤ@P|hT* @P؛ 1 d! T%=l /$l\ ܚ lvl@P /#l\"  l  El  $lHTThhh\hyHPFGETC *  3K=KPQ8PKUPQ8PREPGETC DIAG ICONV nSTCHAR~P PFORK 22A F FTN CCS 3.0 SL-149@P 0@PAEFH@PI.)R@P$/X,@P (@P l3 l2l2l2l2hhhT h     h h "! '@P? @PMȽ d 1Ⱥ !" : ' hȣ裖 " ;@Px '_zyw  1 ̷" 8 $ ̥@P" 8 $ H" 8 $`["! 1u@PmfvmxJmkGEvtf̧ d !g"! *[Z7X@P l ̵  1@"! )F542F76> dJ @P$dH m l dI l l l lܿ l l ll@PO l lьl l l l l̻h , l "Jl@Pe@Pf@Pv̲  ̠h $Ll ̑h $Kl  3L=_@PDU@PET@PG@P̋l̊ J l dT  " d "{ dHl @P  l "Z_| l$H!TThfhh?h\h_hF\h[@Ph1\hWh\hThPFORK PQ8PKUPQ8PREPFGETC P PSUBPPR 23A F FTN CCS 3.0 SL-149@P+QR e h d0:T  ,T   [}\ \b @P,P\  CT d_T 0c@hm  @m@PW@m @mׄen̦ ̖ \"\ @@Pm̾nܱ B1̬ l T l\ @ HH_PSUBPPRPGETF DIAG SAVEID8STORE @P P^EXRLPR 24A F FTN CCS 3.0 SL-149@P+T    CT <b 00chK K @P+ K \T @m  @m̿ ̻ \ @Z  3M=s@PVHHPEXRLPRWPGETF DIAG STORE 6P P4PEQVS 25A F FTN CCS 3.0 SL-149@P@Pj@PPU@P PW@P@PPT@P"PX d00cdeT %hI  h0k# 7% 2 hȷ@@PMm  h hȧ h hhȡ 2 e ؖȕh hhlT@Px0jO ΫO  TΜ d d f  @Pl g  lh  l  4 nG܀ehT@P\ n  n3d $0ahcp8 d (l Hll@P@Pl좞 ! 윞 "0hH  I I @P f nI `, mE& \0id 1NlTx dν@PJdZd  d?~  d.l0cΞH ̠ ΖI e  3N=@PuhI lI ,lΕn؄0ef e0g "@P` &f mh ܞ " @--n>@Pg@P lddl ɔ 1E l̻d γ  ̴`ͮ fWfX̩ l@PΡ  nܞ̝n 7 nl̐l d =ܹܺ ! n̮l@PT e f  glld  lΪΞ  l@PHd   `fWɜfX l n n l @Ps dd d /`lm̥nlm̟nܼܽ @P lκ Ԝ γ l d ddld!%  8VdcT@PD0hEYl W  l Ԟn ̔ l d̐dd" @Pl\EdOd   ļdd!μ  θl\@P@m ̾@m̺ d ' Ü ̾ ̦ WhT@PKT fWOc0@hmlld!< 4Ğ (X@Pv "lTO   ހWh\@P̟Wh\@P\ n̔  Ed "0 dld d Ζ <  3@Pl-Af0 f0 dld!0dc\@0jm  !1@Pl̲ܳ 11W ܧܦ0 *!  lTL" ̔`nXnܛ@Pܚ̘  l\"@PW(I  3O=@Pu(@P( @ HHPPEQVS ,PSYMSCN)GETSYMDIAG PRNTNMIP PPRNTNM 26A F FTN CCS 3.0 SL-149@P@Pv@P@P@P@P'@P @P h_dcT h h hhkh &h h h(hA(dŘ<"`p@PF9iɺh  .h0=jؽ hؾ 1ض 1 hȯA hȱ@)jȤ h@Pq 1T@P~@H HTThPPRNTNMPQ8PKUPQ8PREPGETSYM!WRITE vP k  3P= P8PUNT 27A F FTN CCS 3.0 SL-149@P@Pd)@PEND@P dTT  h hTh   H1 T@P4HPPUNT 4PDIAG READ IGETCFSKIPIT1P P)SYMSCN 28A F FTN CCS 3.0 SL-149@P0c  le0al` 3 lTHPSYMSCNPGETSYMP PENDDO 29A F FTN CCS 3.0 SL-149@P I@P H@P@P)@P dh0n  holsD _ hghh0dcT @  3Q=@P08jmpl\ @m0ql\ @mrl\ @@Pcm h ȕ ȑdhZh lTȇ ̒ >̍d ̉dn@Pd-ΌМ # dT do d l; d n@PӜl̜l 1 2 .!dl    5 2 \ @P    8 5̭ \ @ HH PENDDO PGETSYM4OUTENTzDIAG P PCONSUB 30A F FTN CCS 3.0 SL-149@P@P@P W,@P  hhh d 0c0hh $ah"p8 h0(h Hhh h h@P8 'T lՀ=@PAT  $ \ ȶh0 "\ jت Ƞ  \ @Plȕ @-h %-܈DŽl @HHPCONSUBPDIAG ;GETF BP PDATAPR 31A F FTN CCS 3.0 SL-149  3R=@P@P*SU@P/@P6@P9,=@P@0@PE[@PK\@PN2.@PU @P'!"#%&:;<>?@[\]^_@PV hh hh hhT  ؽT* 0b T08chI@P @mK-  @m K K @P\+C; K \,οO κE \-"d.ή ) @PTn/l d0 f 1 d1d2d3d4ced0hId@PlH    l`笚d jm $ah(p8% d5@P0-(lƬ Hl6l ld70n l ܘ߀@PN ) !  !d"d#dT d8 d( m d@Py0̞lTb mb T{chI;  @mK  @P@mI T9K ̈́0ef5 l̍  #^  3S=@Pm 4\:̟ l ) l l l d7T  mT}̓d@P0 \ m  $ \<f\ 1 ؞ @P%!Ι !f̚ \ 1 f m̙ l5 l @PP̩ lܗ) T=\̫  m@Pe@Pee@Pe   d>d?d4d3̳d2(  $!dM ,$"@Pd8$1lnff l @!) n d'& m l@P eT ] \A l̝l̩l 1̜l @P1̎d4 1? ^ m n"@PY@P̖dB$ll dC dDŢ   m  2l\  @P.  T[E    ldF d T   l\@PY*dG dHdI=dJ /$l lhT@PHJ\ 4  l\K Ȍ l  l̰dL̺ dd%@P lMl d$dBlḽ  lܤ̜ h\@PHJ̟ lC ľ d d  FdrT dD l  9@P\   9dldldl    @P  T:N lll n ff̞ l  nn l@PG̷n lC l  d d%'   =\O(d  3T=@PrMd Pd Qd Rd SdT d$dBlT?l  lll@Plllll0 d(d)d&̐lT T"Ul ̣  d̝ @P'l̖ ^\U C (D J'  m\ǐA@Pq@P@P@P@P@P^@P@P[@P@P @ HH\PDATAPRPGETF DIAG STORE CONSUBgGETC NSTCHAR~OUTENTP PFASGNPR 32A F FTN CCS 3.0 SL-149@PFT  T0T0b T c0@hme n T@P+ \ Tf l @HHPASGNPR?;  3U>PRDLABLDIAG SYMBOL STORE GETC )CKNAME2P P'@P+ %   TT @m m l̹  l @@PVHHPCFIVOCWPGETF DIAG 9STORE <P PCKIVC 35A F FTN CCS 3.0 SL-149@P?T THPCKIVC PCFIVOCDIAG P PCKNAME 36A F FTN CCS 3.0 SL-149@P@T THPCKNAME PCFIVOCDIAG P PFIOSPR 37A F FTN CCS 3.0 SL-149@P@P)/$$*S @@P>@P!#.^  3W>;@P$@P(O@P!+@P!+@P!+@P !)."@P* ddd hdh hdhhhdd  8 l l (ln@PU n nff ff  f %ff 0@f 0Zf T     4T@P n l f n n0Tn n f f f  f n n̓ l n %@Pnn̈ l #ddJ̺    l̉ ld̡ @P   l f  #f dd d T0b T0c0 ef@PT d  n   ff̕nn̐ Ռn l@P, l܏h \   t f̳fs d̓ l % dZ@P Wd̫d\  } l %lmlTr f  %f f %fZf f@P f  ̯   }  f f f  f f f n n n @Pn n n f ' l %n n  n n n n n n n n n@P n n dd d   lT 0b }T c@@PhmtlTn } \ @m m K@P.d %T~ @mĤ ξI \5̗ l̙ ̔ l f@PY dΥH 0 ΚI  l0cΑI  l f  d8e,&  3X>O@P f   }d T    d  d̵ l̲ l @Ph)h'h$h!hhhɈ f d @P̺   T2 d(   d d ld d  d( d@P Edl d T   0}b T 0c@h@P6m Kd $\ @m dH 0 I @Pa lI  l  &  2} lT \  }̒ @P}d  + + }\    dT̶ @P̳ }  } d  d    l  !l d@P d ˔ A d  dd̻d l d d̳!T{   lT@P"   l\! d\d d 00ch d( d@P8 0 $alp< d#0(l Hl$ll l d d  l@Pc! ̋ l d%dTb T,̯0ef  l 2?@P d d   l  !l d ld& l d @Pl М!T ̤ lT " ܛܲ l!\̒ d\" l@P Al l!̔ $d' ddn 1 , l\@P , l\! ,l\ d  d̼ d0d7d ̵d  l@P: 1Knol0m  %T( 0@sm m (lA8mc@P!@P d  dld)T #1      l@P TKj } (d l̤ lT̿l l +d d@P@P@P@P*@P   dl " T0 Zd l d h ldl (d@P  d d0 lT l l\̧dllll@P0@P0@P 0@P>0@P50@P0@P0@PD0@P 0ld h @ HHPIOSPR >PLOCAL GETF DIAG SYMBOLuSTORE {CKIVC RDLABLGETC STCHARENDDO BDOPR OUTENTD  3Z>wP P^ERBPR 38A F FTN CCS 3.0 SL-149@P @P T I n f f f h@0 ;e e e  e( e %@P -e0 Ze echK ( e ee l l  T @ @PXHHPERBPR WPCKIVC DIAG PP PMODMXR 39A F FTN CCS 3.0 SL-149@P@P@P @P0 hh h ld l h d d d& d( d ) d*( dU@P@P>  d̿  l  f Uf llsd l!@Pi   , dm l " le l  " ll "@P̹ l lĜ?̶ ḏlή ܖ nn@P@P̝ l 2 d  U5 2 l " " 2o̪@Pn  ld nɖ s !0 d 4d , @P l  d l 5Χ 2 lݎ錚lކ ḻ l̫@P6dUf '̷ ̲ ̭  ll̳8Θf$ܺ( @PaF d B l̙  dnl l̕l8nܬ@P  l d  dl6˜n l ll nS@P%@P@P U ld +  -2 d%d? 'l $ 4얮l@P d'  l= d  n " ̵ l @P >l  ̵  d l  l n̤dl d ;d@P8 ! d< 'd $ n  dd l͜!@Pc4d !) n( l춞 Uḻ l؜ f 7@Pξnܬll ̷ d  l!>Ξl 칞!4̵ 1 @Pn l 'dl̖lܜ8n l̦9 $n̚l@P l l̸d ! Þ !̾l ll̤7λnܹ lܪ  3\>@P    d l7nܐ@P+@P+@P+d '  #l d% d d!'dΎ 5 $ n@PVdRll  lۜ8l n l d l . *̻@P & d+ξd ̰l =αlη  n̠ ̟l̚l d d@P  !q n@P:@P ld sdd!   ) dll@Pn llӜ l̯ ( dl6ʜn̳l l@P̴ܵl7θnܭ l뜏nܺ Ul̍d ,l̐  dٌl ' @P=Є l  l  l̯ l ( d l d̟l̽ !@Ph(d"Tmd:ln l9쌘ln ل@Plӌn l̸  l l9 $ n\@PT@P@P̠  ' ll̒8nܩ̑l7nܜ  #@P f d Ul ll d+d , d% l̑ V چ@P ldڜ7҄ nl 1;̺ l s  l d  6@P4ζ 3 d̮ 잆  h ̥s dl7Βnܶ d  6  3]>@P_  d  d  dd dd  dU=@Px@P x @ HHPMODMXR~PPUNT qGETSYM~P PASEMPR 40A F FTN CCS 3.0 SL-149@P@PGg7@P@P n hf hT # "l "T0e0cf  Rh@P6   \ lT0b T @0h@Pam#  KI Ξ !Oh=E8  ֬h,K(@P(  @m̗ iT& m mTld@P ldcTΛH  hI I lI @P,lfTe0nb TW @ml3 ) @P !׌n l 1  L lTN@P+@P+ > c  n 0\ '̩  ci  \ \ @PV@hmZn nef y  3^>@P=m@PCm@PIm@Pm\ E dT̶  d n̫ " d #! n@PlT  n nܼܻj   ḻ l@PQ@P @ HHMPASEMPRPGETC yGETF DIAG (STORE GETSYMRDLABLP PTREE 41A F FTN CCS 3.0 SL-149@P @P  @P0  @P dd d Ud ddlh n 0d; "T f lh@PB h j 1Ⱦh$dΜ 2K !G hNh !쾞" @Pm " h d  d  " 8 %i 1U @P 'lo li % !O̦ b̡ | / ($ @PT  0; 2T8 fV ld&   dNd @P  !̠ l  aNlUε β   d,  3_>@P lll ll %d Η  l d  )Υ   ,d@PDl  ,l l $ ;ܬܫ l l dܠܟ̞ 1 @Po !U  l gd "yl @P $ε  n d; "T f f  f lΗn d @P!\̳ `%n !$6  "1&nܶȜ !\ 3 /@PU   'nܘ̪ !\   (n0; "T@P ld[d  dcT O0j O@PF OT @m lb? d  y l U 2(s @Pql d̗ f d\@PP@P  " l l V l a ] p̰  l@P    d0cT5 0jZ  @m@P0  h TMd d l@Pܸ>̶ l: l7Ad    lw lsAl  @P&     l " ln̯ d0; "T f@PQ f  f̜ l Rl ̾  &  f$n n l @P| f%2cjZ  @0m  T d $ !T@P       l fd 0; "@PTM5f V lU ln9n̿ /  f$ l@Pd̟@m R le (̐   $nκnn  3`>@P(̣ l  lnl d !\nܻܺ  ! l Ud@PS d Qn̗ ln l l̒ n̏fVXfS l @P~ l fO̽ l@Px@P̺l d; "T̯`WlnҤl !? d $  !l@P K G n  ? ; lܭo@P@P fQR l@P@Pd dU^VdJd ll    n   n@P l@P @P @P @P? @P T@P@P\@P@P3  3a?@P @ HHPTREE PPUNT DIAG  GETSYMP PARAYSZ 42A F FTN CCS 3.0 SL-149@P@P@P0c0hIVhH   IH  h hH  I5  h@P2@mϨ'h0 $ah#p8 h(h̽ ȵHhȲhhȭ  Ȩ8&h@P]ȥ hإ@PdΤ ȗnl@@PtH HTThPARAYSZtPQ8PKUP|Q8PREPyP P&CPLOOP 43A F FTN CCS 3.0 SL-149@P h8 2 h hh+dc  nv hf0ieh lT@P5Tf ˆh h h0jH h ) f0ث ت@P`l  \ \ nζhȋ #Ȏdn d l\Οl@Pn ll 9lmHe  3b?PCPLOOPPGETSYM5ARAYSZ7P PDUMMY 01B F FTN CCS 3.0 SL-149@P@P @P@P@P *F,80@P@P  hb c hJhIhd0cThK@ .jH9h @P<h. '辞   hF C  hε  @PgȠ h@Po hΪhȒ  d  8h l 1; ;@Pd bfd  lnTnc c0@hm @Pm m&T d0 T lR ܛ^l \n@P܏άl̽dn@HHTThgh\hbPDUMMY PQ8PKUPQ8PREPGETSYM*KSYMGNWRITE SKIPITP 3  3c?+ PFCMSTK 02B F FTN CCS 3.0 SL-149@P@P hv h  h  h(Tl ;  T@P0*d 07d 8d9 h d T  4 Sl lXl! ]@P Ud: lnOn n ~  nRn l  ldvH T@PTh\h|PFCMSTK}PQ8PKUPQ8PREPKOUTPT;P P1KCPART 03B F FTN CCS 3.0 SL-149@P h ,h (h n ,h ( h n 1@P"H TT h h\hPKCPART"PQ8PKUP(Q8PREP%P PKOUTPT 04B F FTN CCS 3.0 SL-149@P d3T$3 3HPKOUTPTPWRITE P *}  3d?? PKPCSTK 05B F FTN CCS 3.0 SL-149@P@P@P@P @P(d O&dP $dQ"dR d S h N T!=\=!\= @P?ה :0Д  ”0 ̻ 0̴ ̭@P0j ̦ /̟0 /̘ R̒ Ľ F 8P @P? 9 3 - ' !۔  @Pϔ0   0Ŕ  T/!=̷0 #0̱ ̫0 @P̥ ̟  0̚ P0 \!=0 !0 0 @P 0   0֔ !\=\=!\=\= > A@PA S R ?  Q= B  @   d@PLl@Pl l@PSp@Pp dyd T=.Μ  ̿  œ  lll̺  ̫@P ̫ ̭ >l̴ḽdA@PZ@P S G  RE Q C H  F D  dl-  3e?S@Pa@P l(@Ph@PԔM Ք K I Ô N L  ŔJ  lD@Po@P l ,h 7 9 dd@P  d ,h ,hPf 6 1 l ,h ,h n 1@PA lJlK  l $h ,ƈhf 5 ,h ,h nܴ 1@Pl l ,h ,h n ,h ,h nܘ 1 @T}=!\=8@Px@P Qd0cThK C 0jH  dS l\C@P H  l=@P.@P9@P OL  l  l\κO !TSP BU @PBN BG QdcT0hI I K @P!& 0”  ̽ ̸0  k& "?K@PL )0̛ !ζO ί ΫK  ΥK ΠK T" QR@P w ch HdR lI  lP "O@P  \QR OM  l lSl0jH  l   3f?g@P  @m lT @ mQl\̫ j̥ @Pd̟0 ^0̙ X̓0 RP K E ? @P#90 J0 D۔0 >0Ք 8ϔ0 20ɔ ,Ô0 &@PN̽  ̷  { A TT= 0lId 9 + @Py\!\= l0ld 07d 8 dT\= d}d~dT dvd (P@P ? ?S  O lݜ dcTd\SQl\@P \ll10 *0hOdE ̦  Ol@PE  Te̔d d~̧ l ̡ l -d{  AlP @P%  1l0   Ell\Q[\ W@PDC@P0Cc0 kdQ dl ll Ol l ̲@Pn (@P9r@Pr@Pr@Pvr@P[r@Pŗ  0̪ T l d d d7 Nf6T@PV@Pf  3g?{@P@P@P@P@P@HHTTh\h\h\h\h\PKPCSTKPQ8PKUPQ8PREPKCPARTiGETSYMDUMMY rFCMSTK{KOUTPTP PKPC3PR 06B F FTN CCS 3.0 SL-149@PTH TTh\h\hPKPC3PR PQ8PKUPQ8PREP KPCSTKP PHKSYMGN 07B F FTN CCS 3.0 SL-149@P##0 de0 &d0 'd0 (dT0cdlTTl )%* @P+(nl #l l HTThPKSYMGN>PQ8PKUPDQ8PREPACNVT SYMBOLSTOREBP PLABKPC 08B F FTN CCS 3.0 SL-149  3h?@PT0 HTThPLABKPC PQ8PKUPQ8PREP KPCSTKP PLABLER 09B F FTN CCS 3.0 SL-149@PT0 c@hm@H HTThPLABLERPQ8PKUPQ8PREPKSYMGNP P#PUNT 10B F FTN CCS 3.0 SL-149@P@P  @P*F,100  @PTZT   d THPPUNT PCONV WRITE SKIPITP PSYMBOL 11B F FTN CCS 3.0 SL-149@P@P$$%%>  3i?@P *F,58@P0 c 0&`lT] h ld0bh\0ed @c 0l_( @P5  hI I K 0[ ;Čh@P`alȝ Țloh'̰0dd +T d T lc d @Pd5 nHnPSYMBOLPGETSYMWRITE ySKIPITP PTSALOC 12B F FTN CCS 3.0 SL-149@PQ h   d  jʔl@Poʍ ʯ j4 ("ThT@Pc0@hm m  @m @mأ@@PH H TTh\hPTSALOCPQ8PKUPQ8PREPPUNT KSYMGNP PpASSEM 13B F FTN CCS 3.0 SL-149@P@P s0 d% # l h  L0hh" ; ( @P10/ h0h h0h0hȼh0hh ̷hTs  3j?@PYȦ ܩܨܧ̥ hT@PiHPASSEM lPKPCSTKULABKPCgP PBANANA 14B F FTN CCS 3.0 SL-149@P@P  0ln0olh~dm" : &gk0sO (= hՀo@P.hT;@P4̀q;h\@P<À0oh\@PEȻr;h\@PMnqdcT0k 0hK Bwhțo;h\@Pmȓq;h\@Pu0oh\@P,doh\;@P  th\@PjhT@P&lԀ0ohT0;@Pˀr;h\  3k?@PÀo;h\@PҀt;h\@PH9PBANANAPKPC3PRGETSYMULABKPCP P BGINDO 15B F FTN CCS 3.0 SL-149@P@P0 n0o d0m "T h! h s h nh֌l hT@P6ftpdcT0hK. ػ0rl\K" دخql\K@Pa Ȣ hȟ  Ȝ   h\ Șfi d0phT;@P !<0sO l\0k ΫK 5d +Հ0oh\@PO 80ƀrh\@P dm1\ ;l0̳oh\@PT7l̢0rh\@P̚o;h\@P l1\rhT@P l l̿ f}HPBGINDOPPUNT LABLER4GETSYMBKPC3PRLABKPC  3l?P PQEND 16B F FTN CCS 3.0 SL-149@P@P 0:1T T3T \ dw ndyT3\d<8"Xd@P-cThhI hI 0h\XHPEND MPLABKPC INXRSTKPC3PRENTCOD!GETSYM/P PENTCOD 17B F FTN CCS 3.0 SL-149@P?{@P @PT3\3 \3\3 |0  ddTb 3\cll@P;\00cfk 0hV Gc PhG b cȱ hh h3\RاȦ @Pf蘠hhȝ ș!d4h1h\ bhT@PS d \3S\2wiR \30R^d \1@P3\ yT|1\\\1HBPENTCODPKPC3PRSYMBOL.LABKPCP PWHELEN 18B F FTN CCS 3.0 SL-149p  3m?@P@P@P dcde @0hmhKA K9 A  @@P9mK$ K D˨ D d0  @m@Pd0khlh Ȑ0 lΜIh,0N& 08cj@Ph   0@hmp< m@P?TT3Hd E TO \;\@Pk c̨ded n d d 0lT\ d d @P "ld  chO 1\ lO 0̛h T@P)ܔܓ  O ̶dT1̣l\@PD@PDT̟  @ HHPHELEN OPLABKPC'KPC3PR@P8?@P8@@P0HIJKLNO@P0@P0@P023@P0FG@P0F $).38=BGw  3p@/@P0lL@P8`@P0>@P8`@P0@P8`@P0V@P8`@P0l@P8`@P0oHb@P8`@P0@P d hdd 0{d;d cdSd dd  dddn 1d5T \T\@P>n<d  :!\0ȶcf0k ȯflȫn >\ T3(nT@Pi\\| d 0V (\n̼  \u\2u\1\u1\2\u;T@Pu2\u lTs d d    ( hT@P  dp0ld     d l"!( 1##;:<;=?@P  ̟d   j @P !0T; lTTTT2t\tsd d d     3q@C@P=fR f^; ldcT0hI d nhT@Pb  z Td3H \3G  \3T3\ T@P̠dwtdyTV lfsl\ d ΫE   h@Ph\@P@P 2\u ׀h\@P3  Ȁh T`@P%0 T1o ̶h\@P@P@P3\  @P@P̤;h\@P@P@PT@P@PΗd0clTO0hO T  s h\@P3#\3 \  \ @PI"  3r@W@PH@PG@PF@P 7 d  # d0Eh\@PL  hT@P[@Pc@P]T@Pf@PaT@Pi@Pe̵hT@Pl d ξ θ   l d0Z  lsΠdcT 8i@P l\  l\   l̻" 9 &$9]̀@PhTW@PÀ;h\@P̵  ̸h\@P$̨  ̫ h\@P̢ h\@P s;h\k  3s@k@P  h\@P h\;@P  ݀ h\@P$Ԁ h\@P-@P2@P/ dhT%@P 8 dT d S O d߀ Nh\@PWNf f ̚ l f f ٖ!U̿ 2T0̺h\@P| 1Mnf̷`nͦn̰f0̭ l̨ n̡ @P nn l n  nnnΦ Σ   d@PnnhTj@P o l  lΙ aΑd " ; (@Pedkfe0dT ^ο  l 1Q0h T@P2Ϋ hT6@P?` 0d͙ d  l NlΠ " ; (@Pj  lll ds l d d l\@P@P@Pv  3t@@PTf@P@PT @ HHkPPHASEBPLABLER=LABKPC0KPC3PRHELEN iKPCSTKREADIR>TSALOCSUBFUNNOPROCARITHR"GETSYMASUPERINXRSTENTCODPCGOTO BGINDO^BANANAbAFIDL PUNT uASSEM END P PXREADIR 22B F FTN CCS 3.0 SL-149@P;D "T?h 9h9T#H@P1 l1 . !(!ddZ " T3Z d 1\  @PAhT@PF@PJ H TTh\hPREADIRLPQ8PKUPRQ8PREPOPUNT READ KPC3PR+LABKPCDP PgSUBFUN 23B F FTN CCS 3.0 SL-149@P s d0: ,0dcd0XT h lk f 1 T h @P .don 1 hȔ  fbl\0jHh 0n f@PYcئإ nHG  3u@PSUBFUNcPGETSYMLABLER'P PACP 24B F FTN CCS 3.0 SL-149@P@P @P@P@P h  d 2T h d TG@f f00 f ;!8 !2n@P0? Ƚ+h;T@PKص 0@ee0heh hȨ!ȡh 쵎h ؘؗ@PpȒf N f fα dd d Ψd΢ $Ο 1* !&  @P+ l@P d  ll@PδdcT0hI l ̼f  6̲ 2Ο Ι  Κd@Pnl     l؄@Pl " $@$ dodq fΤ % "  @P93 lι    Φ " =0 w@Pd !d d  0l lTGT% l( d@Pδ  d\0  Τ p l d b οdz 2P  3v@@P " 0 d0ndcThI l ql\d @P2A   dI lI 0lT1*qo@Pr dvl0l  0l l  T@P;J1 d ̙ l ln l l l l@Pfd@PUk@Pk 0 N  γ 0 0V VD Μ @P n΢ l̤  l lΥ   n  dn@P@P̾  !Tq3T7 q\q3\ q d T@P@P@P n n@P@Pn "t lodq drd o # "# S  @PldcT     0hI I I@P0,lΩ Υ 8lΟ Μ ln "# % "# @P[dgd #܈hT@Pm f0@Pt  nd 2Txld  d!Tq 0l W  3w@@Pl lTq_α!d d TV@P/@PH@PN@Pγ  l  l̒  l l  l  O@P@P@P\@P@P 2{ * 2 "dcT 0hI d @P K qT l\pd   l ld\I, dl@P 7l d d\IŒ l  l"> +  @PbMnLn0f0Kn n0nhT@P dTdcT @P@P@P@P9@8H5H2TT hhh7h& hh2hhh$h hh`h$ @Phh? hhz hCPACP (1  3x@PQ8PKUPQ8PREPPUNT INTRAMKPC3PRGETSYMKPCSTK TSALOCPARTSBkFINK P PxAFIDL 25B F FTN CCS 3.0 SL-149@P@PTz # h!Tq 0h 0h1T q dT\2q8@P0 $ 1&#h h! h  Ⱥ h0ηJ   ث@P3[\Ȣ  !HTT h h hPAFIDL hPQ8PKUPnQ8PREPkASUPERTSALOCKPC3PR!INTRAM)P PASUPER 26B F FTN CCS 3.0 SL-149@Ph d "T h@ff0 ) 60f*f f@P.f0`h hl ž! !H̼l ݀@PS̵ l A !襞! ί  Ϊ # 8hT@Pw0ΪdcThK hT@P "Tdwd T@HH TT h hPPASUPERPQ8PKUPQ8PREPPUNT SUBPR1uGETSYM~SUBPR2ACP P PCGOTO 27B F FTN CCS 3.0 SL-149   3y@@P@PT\\sd       hT@P0 ހ hT;@P3:\3\͜ h 8ȹ(h\31\1\3T!\3T@P e̦h̤;h\@Pqܜ̛ !\̔;h\@P\ h\@PHsPCGOTO PLABLERASUPER.KPC3PR6KPCSTKZLABKPCeP PFINK 28B F FTN CCS 3.0 SL-149@P@Pph h 1 hj hh h # h   jj@P:@i hi hcjHhT1ȳ" < ( 0@Pe6:9TT1\1T7\130\\3\3\@P13\1\3\\3\3 @ HHVPFINK PKPCSTKSLABLERkKPC3PRnLABKPCwP -  3z@ PINTRAM 29B F FTN CCS 3.0 SL-149@P@P@P  p l !f; !2!d"= *   @P:frn onqnn fTȪ h  T@P3e" qor T3\3\1  l d  " : & @P lpΠd  lΕd l!dd "d  dd@P 4T     ̴ l ̱l ̪ l ̡ @@P ̙ = "! .#;&*8-100dk0lf@P0lal\0lWl0RlMlH0lCl>d@P<cT0hK* 0kd d  d  l 1 l̎ X @Pgl l@P\r@P0rl 3Te" qorTopd ld l*@P@P@P@P0 0dld ^ ld NdcT> @0jm@P 1 - ! ! l  \ 7 4T̝ l̙@P lΗl̓ l T3T\1\k  3{A @P @P> @PU @P @P @ HHPINTRAM PPUNT WKPCSTKzKPC3PRTSALOCGETSYMLABKPCP PPARTSB 30B F FTN CCS 3.0 SL-149@P$$@P@P?@P@P @P ?@Pdch hh\ ZhW VhR PhPhT0lT0hC@ ?@PAjDhh  ) T1騹 hʟd d ȯd Tb@Pl Ţe3h \~ @P}@P¤d d \30cγDl\1HTTh h h h 7  3|A@PhiPPARTSBPQ8PKUPQ8PREPKPCSTK/GETSYM8KPC3PRTSYMBOLiSTOREBoP P>SUBPR1 31B F FTN CCS 3.0 SL-149@P@P & "T  nTn d dqT܈ hT@P,@P0H TTh h hPSUBPR10PQ8PKUP6Q8PREP3SUBPR3 TSALOCINTRAM#KPC3PR(P PSUBPR2 32B F FTN CCS 3.0 SL-149@P@P@P4@P h6 1 d0cT      hI @P3I I hT   h   hȮxhT@P^ȣ ȟ 1\1\ 1\ d Sl l,dcTΧI@PdΡEBhBΝO= 0  l  ,l0ԀhT_  3}A3@P 2\uT@hm1\ $d@̭l@@P@PHHTThch h h$PSUBPR2PQ8PKUPQ8PREPGETSYMSUBPR3?KPC3PRZKPCSTKLABLERP PGSUBPR3 33B F FTN CCS 3.0 SL-149@P l'' % '! #     T l l @P+T\ lHTTh hh hh\hPSUBPR35PQ8PKUP;Q8PREP8ACP PARTSB,P PARITHR 34B F FTN CCS 3.0 SL-149@P@P@P hs " " 0 dcThI  h @P3  h  Ȼ躆h 츞 .ȩ h d@P^Ȥ!ȟ  ḍ h薞 Ȋ h !+ dδ @Phν ld\0k  0Yc0hI O G lls @P hT  3~AG@P + l  l hT@P ̶lTε  h\;@P  dξ  l\̳h\@P̭쬆  dhT@Pd0c\ d lΘ Δ  s   Ηl  Εlδ@P9l0hI ~I  z  0d lÀ hT@Pd@P fC C ̯ h\@P y dcT0jD  Dd h/T1Dh%d  ;h\@P  ج h1\s ;h\@P(6@P z 0dd) $ l  hTb;@P  0ll ,lɀ ;h\@P !Tq2\q dTTq@P @P HPARITHR PGETSYMSUBPR1KPCSTKASUPER KPC3PRTSALOCINTRAMP P| _BKDWN 01C F FTN CCS 3.0 SL-149y  3A[@P@P@?@P h fQ 1xh # dRh hp8h)nAh 1Bh@P4dZʨ d [ h h hØ8nػش@P OT ^d _ lHPBKDWN [P P| CBLDUP 02C F FTN CCS 3.0 SL-149@P@P@@P dR lh h Q(h)'dRlAh 1 ` hdR@P/l]d^d_d@P?HPBLDUP ?P P| BSS 03C F FTN CCS 3.0 SL-149@P (d`]d  da d V dQ dWTHPBSS PBLDUP P y  3Ao P| CHKWD 04C F FTN CCS 3.0 SL-149@P dJ\ S  dKdL h ff: f 1 dM U@P/ 0dcThE0  l  l\E"  lih h h!@PZ l\E +̻ؖl% l\οE  dJ \@P <^ T ]K  l L  l dd d M9@P0 vl̴  l 2M̻ "Md0cT6jH U@P  ll lĜ=Hd캆: 7̴ܴlH0l%l\H@P؜  dJLl\Hd  lKl\γHd  lYd@P1M?0f00 f0;nl nnn \  m % "a@P\ 2m "k 2m l dIl̽"ξ  nܣ@P*@Pt@P@PHzPCHKWD PGETSYMP P| CHOP 05C F FTN CCS 3.0 SL-149@P@P  3A@P @P@P *F, 77 @PT 0hc0hEk Kg eK`  O KL@P@ KD K?  d 6K4 Z  \ # & @Pk  li!+ n @0eh d` d F dcE@Pd0-  l̻ T$^l  dRltޔ " c@P V Ѥ l d dG!40 0 ' !d ̱ 1̦ @P 1̟  ; #dl̺!J ɔ E !* ld!l!dl@P̠̜? d.l ̡  "g̚d Gnt f@PB dnP l`dRm d] dT dV d ` dF @PPk@Pkcid "|2|@P3|@PC|@P|hAlK  ߔ !(̪ n l dW l@P;@P̔!Ɯn; lZ ~ l t쬞 ! d dv@P!3̍ A )  B !n l ޞ 1؞d 9 d@P]c ̲  d!n̰n̛ܹܺdẖ  1̫ d  3A@P"1& TTlK@P5nܒܑch K t  vf@I n lܡܠW@P[@PN[@P[ E d AhĘd#d" 8 $@P~@P~@Pj~@P~ @ HHPCHOP PGETSYMWRITE ,P P| CL12 06C F FTN CCS 3.0 SL-149@P@P  h@PP@P`@@P@P 0@P   3A@P @P@P@@P dF\l[dQ  Z!1 -"7 $ d` l l@PI l]ll l_l !l0dcThO  YV @Pt@E;  9h̢h̨hȕlȔl d ^dd d aTTl d@P dQ\\lll l dF0̘lTZ  dWd `  l l@P ]l\ l  l 3 „l⌐l " l  dVʌl̿lT@PH"PCL12 PGETSYMdINOUT COUNT CHOP BLDUP P P| SCON 07C F FTN CCS 3.0 SL-149@P dV Z <chI5 -d `I/ dQ0 kd !ld] @P+j d^D dRlIdaT l .l lHPCON OPBLDUP CP P| COUNT 08C F FTN CCS 3.0 SL-149@Ptal . l dO0 dd00 d" lH\  3APCOUNT P P| DATAST 09C F FTN CCS 3.0 SL-149@P@P@P *F,85 hh dbdcT 2d `hE_ EW  4l @P2 hLi؆ E h hdT d d] d^  l  dQ dV d@P][TT h̰`hͲI H 6 1 l @P dbl `00chId l l\\  ll l@P،l "% l΍l lf n f ̹hT@P d0& @ HH(PDATASTPGETSYMBLDUP _INOUT aWRITE P P GETSYM 10C F FTN CCS 3.0 SL-149@P6 c0p4g,delf p<( hp8hp8(d @P,T0i h\0) h\0 \0iȷ h\0Iȯ h\@PW p<( hp8hp8(d Tiȍ h\)ȅ h\ @P\0i l\I l\ edfHcPGETSYMl  3APWRITE -READ mP P| oINOUT 11C F FTN CCS 3.0 SL-149@P@P`  b[ 4T le    dxlT\ @P -U 7 l4 h Q=cf nغ̻ ȶ1 ldsT@PX$c h5 n؜ lHPINOUT kPREED BKDWN (WRITE WP P| FIXOPT 12C F FTN CCS 3.0 SL-149@P@P@P _d0 %\hbh X >U T  h dI ^ T ]@P5h L ˔K \J "̿lȲdȮl\ȩl̯ @P`T !+\ \ ḥ[l 1Q ̚dxT S G̘ \ @P%_ 7l dNdb TlI \\\ dL@PK  Fl\l l   %3 ( 3 "̯l d ̪@P᜺  l̰l\ d l ff: f 1 dM l9@P _ & dI0ndcTjHn lۜ:  nܯ2 6!  3A@P7 ")@P)>@P>HPIXOPT APCHKWD BKDWN {QXLD GETSYMP P| xPHASEC 13C F FTN CCS 3.0 SL-149@P@P  `@P|7@P"hh@P(@P @P` @P @@P Q"dR@P0+fp4g$h hTil hTi h\) h\ l@P0VAd00&Bd00'Cd0( dcdeT E ȡfi @m @Ph f؏ȏ1 h f0l؄ȅ1 dN d c dadvdidudG dM@P dH dE ddT d d[ b 4{T̎]lTG  3A@P0h K Z" ; '5=<; c@m d@PXO  d YlT0 %0i!TβE  l@P-ΩO 1̫  l ;d` dQ d Vdd d [TT  db@P XlT\  d]T d a\ 4l l d ^l ll\\T "@P 5l l dX l dxT S Tdc \d hK T@P}T!zT̢l\  \!| dW" ; ( UT\T(]d@P lT\id! d"d  d`t#1 dV l dQTRTTT {v@P 1% A  da l$lBl ;l ḻl l\\b @P/[l Wd ̱l \:T  dx dW !! l l l\@PZ]%l d^ '!.   deT  l dN_K  @Pd%Tl\ "l l l /"FT#@P@P0c0itn@P@P@P@P#@P [ dQ̫l^l Z (d`# dVT\T"7 $\X@P+d&d' 0lde d n 1Th 0ΰ(Td)8hK@P H d]I  lTdTu\Tv d* ld!  3B@P*쵖B <tn l;l l̤ ̚d[ d \ d` l dd@PUQ d Ve@P@P[ad&v l $  췆i" l@Pz@Pz l/̣ l nΦK ΡA  d d  ̛l@P@Pu@P !> dd 'dRl@Pz@PD l l dcTΠ l l & 3ΏlE@P ll@P@Pi  3Bs@P  1̸D "l̴l  l l (= +llTkdT+ -"@P̹l\̭d ,d̠d 0hK   .0i1D )!G@PI $c "d Xln d   llCpd7(#f@PtOf Pf QfR l ll&TK    ΗO  +@P̫,ll$l  l0hEd  l0-  l@Pd  $00cid&dRl "d &dRll̞ @Pl̕,l -d 0 $ dd ̿ll  llT Td )`@P dRm"= )@Pe9@P9@P9@P9̧l dd̢l 8̽ 4T dcT $0 id ld (d" *@Pdll d̘ " l -ll\d %ll@P@P@P@P\ .d l lll:  d0m d0%n 10<dl\ίdq d@PT d'@P6@P @ HHdğ  3BPAMOUT PBKDWN 5ADMAX dGETSYMQINDEX COUNT LABOUTUNPUNCKNP2OUTWRITE TABDECNPUNCHP P*  ADMAX 02D F FTN CCS 3.0 SL-149@P@P0 @T d)  h`\~h hZ\~h hT\~h hN\~h hH\~h @Pkh `lT1$kl\13$ll lm@PE h n 91\1$1T$1T$"d hȥ褆 hȠ@Pph\$@Pv <" <2d1d d0  @P!   !$1=h ζ h T94"  3C@P8"@P׀h λ h\"@Ph Ε h\@P̺ h Ξ h\@P̭쬆 l̚ 1 lrl\"̠ 9TFH K  @Pd n (1TD(K TT\! <@PAd@P!C@PCHPNPUNCHEPWRITE 2RESET YREAD ]P P* ANWRITE 13D F FTN CCS 3.0 SL-149@P@P0 k     " lT  AhT8< @P.hf 71 l@P=HPNWRITE=PPACK WRITE (P 2  3C' P* PHASE6 14D F FTN CCS 3.0 SL-149@Pxu0@PP "d dd ( d' dTT#  d! ld 1 9@P3d Μ*T'l\ l\l hhȼ<\d) fܺذȭ  lȔ@P^ ! ! ļ lT̨  l̲ !Tȍdm d%n0: @P n 1 dTHnPPHASE6PBEGINOREAD INDEX :AMOUT lFINISHyNPUNCHP P* dd 'dRlЍ  3Cw@Pz@PD l l dcTΠ l l & 3ΏlE@P ll@P@P@P  1̸D "l̴l  l l (? +llTkTdT+ -@P "̷l\̫d ,d ̞d 0hK   .0i1D )!@PKG $c "d  Tln d  ll?td5@Pv#fO fP fQfR l ll"TM    ΗO  @P+̫,쫎ll$l  l0hEd  l0-  l@Pd  $ 0c0id&dR l"d  &dRll̞ @Pl̕,l -d 0$ dd ̿ll  llTT (d)@P"`dRm"= )@Pe=@P=@P=@P=̧l dd̢l :̽ 6T dcT $0 id ld (d" *@PhlTl d̖ " l -ll\ d%ll@P@P 0hT 4  3C@P@P@P\ .d l ll\0l:  dm d%n 1<dl\8Σdq @P dT  d'@P6@P @ HHTPAMOUT PBKDWN 5ADMAX dGETSYMUINDEX COUNT LABOUTUNPUNCONP2OUTWRITE TABDECSETPRTjCONV NPUNCHP P*  ADMAX 02E F FTN CCS 3.0 SL-149@P@P0 @T d)  h`\~h hZ\~h hT\~h hN\~h hH\~h @P  3C@PK ȓ  hhnܚ' 1\ܒ̑d+T .d 6T:@P l\ l l̯d, , d- ,Ռ d.0`h=:dRfl m@P nܼ 1  0lc`͏n͑A  `i/dRm yT l@P(dmf@P̖ ) \ \\ܔ ldeTz G0i*0hC   d'@P@n 1TlT .d 4\l\  0c˜C@Pk ̪ !\&d @ HHPFINISH|PNWRITEMIHCON RCONV _SYMSCN)IACON RNPUNCH P P* ZIACON 07E F FTN CCS 3.0 SL-149@P v@P@P'@P h0c h hhkh &h h h(h((dژ#"`p9iψh @P6 .h0= 0f h 1ؾ 1@PO @HHPIACON SP P* ,IHCON 08E F FTN CCS 3.0 SL-149tI  3C@P@Ph hp8hh0= 0fDh 1 @P"HTThPIHCON "PQ8PKUP(Q8PREP%P P* INDEX 09E F FTN CCS 3.0 SL-149@P p4 (,dh h@P HTThPINDEX PQ8PKUPQ8PREPP P* LABOUT 10E F FTN CCS 3.0 SL-149@P@P@P?"h  dd0cT  hd# O  h`R l d@P1iPl Q $dn 14 dRl  lTT\Ȩ @P\ ̺ hȟhȟ6 Snؙ̬ l nnnn );ε "d  l@PdΫ Φ d&dRll&dRl lӤ@PlchO Q  ̽dRll ; T *p  3D@P dK T&@Pɀ0khT@P $lI θI 0=fn@H H TTh@PPLABOUTPQ8PKUPQ8PREPGETSYMUNPUNCURBPK WNWRITEIACON IHCON P P* 8NP2OUT 11E F FTN CCS 3.0 SL-149@P@P@P CORE OV@PFL@P TT hT  T  ,d ddl l@P4HPNP2OUT4PRBPK SETPRT COUNT WRITE P P* JNPUNCH 12E F FTN CCS 3.0 SL-149@P@P`P:  3D@P  @P*T @P@P @P @P @P @P00 0lh l 0>kh `lT1$kl\13$ll lm@PE h n 91\1$1T$1T$"d hȥ褆 hȠ@Pph\$@Pv <" <2d1d d0  @P!   !$1=h ζ h T94"@P8"@P׀h λ h\"@Ph Ε h\@P̺ h Ξ h\@P̭쬆 l̚ 1 lrl\"̠ 9TFH K  @Pd n (1TD(K TT\! <@PAd@P!C  3D+@PCHPNPUNCHEPWRITE 2RESET YREAD ]P P* ANWRITE 13E F FTN CCS 3.0 SL-149@P@P0 k     " lT  AhT8< @P.hf 71 l@P=HPNWRITE=PPACK WRITE (P P* PHASE6 14E F FTN CCS 3.0 SL-149@Pxu0@PP "d dd ( d' dTT#  d! ld 1 9@P3d Μ*T'l\ l\l hhȼ<\d) fܺذȭ  lȔ@P^ ! ! ļ lT̨  l̲ !Tȍdm d%n0: @P n 1 dTHnPPHASE6PBEGINOREAD INDEX :AMOUT lFINISHyNPUNCHd  3D?P P* =RBDX 15E F FTN CCS 3.0 SL-149@P@P hBh˜h  hh(h "p8 d h  h h @P0hnnHPRBDX 9P P* *RBPK 16E F FTN CCS 3.0 SL-149@P@P  l0dm dn"do dT  0fl THPRBPK &PRBDX UNPUNC#P P* SETPRT 17E F FTN CCS 3.0 SL-149@PB@PE@PH@P=""@PBr&qr@P `@P Ek6  3DS@P 8@k@`@P@PAAJ0@PJ J+@PIpI`Ik@Pd4<@P0f6@P!>23@P$@@S@P'S0 .@P*JA`2@P- 1L@P0@@P1--**@P5 ++@P9 ,@P< PCD@PK h  d T" l\ f !.  hʕh Eh J@Pvh̨h hG0fػ 1 %ʡf0̻ &l  k !@P h  hȕ fnܞ =dc0hKB TZkhTSx  3Dg@P $dDIC 0= nI nA z +l̖ 1@P  =̚l0vaf\  "z !ǀ hT@P̿ l 7      57nܡ0̠h \ @PA̙ l̳  ̡ gn HdD̸ 1! ;nI  lJ@Pl l l<0fT d dHPSETPRTPIHCON IACON CONV NWRITE{P P* |TABDEC 18E F FTN CCS 3.0 SL-149@P@P dcdeT  0hE K  "i (% n @P-hd !- ( $n0 :踞 $n dd謎 $@PXnȤ  hd $>̵ %n ÜlHPTABDECxPSYMSCNP P* UNPUNC 19E F FTN CCS 3.0 SL-149@P   l dTT lHPUNPUNCPRBDX NPUNCH   3D{P PFTN33B 01F A FTN CCS 3.0 SL-149@PwXfvh h Dh h h TZy@PehT%X28Ih[ X8R+hP= : h84H+@PChF X h,A1h;h.xh2 " l TLf @PnhERh  unFTN3A1 __ 2h\Y hX < @P  6 0j5Q  :j/TL: FTN 3.3B (OPT = LPXC)  @P PAGE DATE: MM/DD/YY TIME:  PFTN EXITF 0PAGCHKASCOPTPRGNAMPAGNBRDATE TIME PFTN P[GOA 02F A FTN CCS 3.0 SL-149@P d0"T TF" C A lTT l) O @P+&PT\TZ  M ONT \TTشT lT$@PV )PGOA SKIPITXPCBAV "CRDBF ,WAIT MEXIT AREAD 2OPANALWRITE RPHASEAJLOCLZ2HLOCLIZIOPR P P3CONV 03F A FTN CCS 3.0 SL-149@P hhH(h'  f qh @HB0Fh Fd 0m `h rH @P+`b  3DPCONV P P[DIAG 04F A FTN CCS 3.0 SL-149@P H~ h} lr  j A *h Nh ,hh00d d Fh T4l1@PET1Z ,h/* 2 h `ȥ#!2 (  4!"-@Pp=i؍ ` !`̷hT\ {j ATT#F؄@P'!"#%&:;<>?@[\]^_PDIAG PDIAGRGWRITE PACK CONV GP P,DXP9 05F A FTN CCS 3.0 SL-149@P H s" Ժ hsHXhh`Xhhh HL#dh`H !@P+ laal aaI`GchGW "X bX 8L "@PVHT H'sLoAAdT|LZ3Aa@PRy@P 'Lv T*a)RH%3I  aHQ A a"vR  @P2LaHH ALȾa `\R  [1@P Q Aa !2!* *l hhhuhi f@P[G ߂M^@BPCE}GN HJzLLK@PDXP9 Q8DXPTQ8DXP2  3DPDFLOT YP P7DFLOT 06F A FTN CCS 3.0 SL-149@P````hTTa"aaDa"a 1 aBa @P+    @ 0BXiaa a ! AAA&dRARA@PVa2H aaaaDaaaa aX X2bbbX@P~TAAAa *aAAidadada a@P ' dXX,#a! AaA! ! A! ! @PA! Aa AXa A! !  XÁ XAa! AXa""@PaaA Aa a  A 3A a s Aaa ca @P-1 mAa$a+Aaaa"#G a @PXa a aaaa#a"aYX=X}#a 1  #@P0ad a  ! 1 3d   #2d A d ( 2adaa1 @PaDa1 bAa?ad A2aF ad2aa1 aa1 @PaDa1 aaaa#aa aa a A&RARAda 2H a @Pa a a   ! aa aa a@P/@ PDFLOT PAVOLR AVOLA P  3D P)9GETSYM 07F A FTN CCS 3.0 SL-149@P H4 0H3c#dlh-40g,"D0eRLf  `hXlX H <$@P+h h T867i@P8 PGETSYMPREAD "WRITE P P&IOPRBA 08F A FTN CCS 3.0 SL-149@P HWhbH HNhYLHFh5hEBAH32@=:9h,+h*5h)R a> @P+R+ q )0dhh bh h h T`@PV`P[@PcA n qH   >Dh}>w8@P 0` h !aH + _N ȯ "ج Q#uMr@PJF (jj AXBf ` h[ h. + X ` @Pi k qYh|%.$&),% *N, 12 MON TH))@Pb{ ^ OPT !  @P: `TKI @Pek qY=hR TLx@P9 TL]  3D@P@Pp&XADRYh h@h"1kl qߘX"%A h@Pψhs    Hh3tȾh Ƚ  TLm41 @PASEMPR8CHECKFP PLOCLA4 22F A FTN CCS 3.0 SL-149  3E/@P 3h; "4h hC hhh B  )h h&TZ @P$FTN3A0 h"j TNO A@PC@PP h  hXT[j AH  Hjjjhj hjj `@P{8`j% `jʤhX"'hTʹʱh"ʕhXʬhʮʣ``ʦeʛ`@Pʗ H" TNOPLOCLIZLOCLZ2PLOCAL `MARKERPARITH ENDLOCREAD WRITE 0P PgDUMYA4 23F A FTN CCS 3.0 SL-149@P \e \_ \Y  \S \M \G \A$ @P+\;* \50  \/6 \)< \#B \H \N \@PVT T \`PBYEQPRCHECKFCOMNPR DATAPRDIMPR EXRLPRPEQVS $SUBPPR*TYPEPR0ASEMPR6ASGNPR>) h;=8@h;"513/!Jn,, q+%s%̘H@P>XEJA hh j2 h   @P@?@P̩&X*/hF h k) XA h@P Xh TH@)@P X h TL@@P  heX0;# hX j2l hhD@P( hQhqhQ "p0ST >h hX h@PSV@PiTLs T SOPIOPR READ WRITE EXIT pPPAGCHK@MAXSEC.P P| GOC 28F A FTN CCS 3.0 SL-149@P lLTT'00T$0#PGOC PWRITE IOPR PHASECf  3EkP P$IOPRBC 29F A FTN CCS 3.0 SL-149@P HRhWH HIhNLHAh0h@=<H.-@87h954h'&h%0h$ q ./d@P+hh a*h hh TT``PV@PX H;h9!Ah66 h350@h3"-1+'!@n$$ q#s̘>@P4X;XA hh h   @P@P̱%X?\h h kW X,IA h@P `XEhT  hj՘2 5` h hH@@P `X!hT  hj2 5` h  hL@ @P ʖ hAX# hX h~h(@P hQhdhwQ "p0SmTg>hch@P h@PTL T SOPIOPR  READ WRITE EXIT PPAGCHK@MAXSECP P* 'GOOD 30F A FTN CCS 3.0 SL-149@P $$l"L"TT"`TF8T\! ;#$  3EPGOD PIOPR PHASE6P P$IOPRBD 31F A FTN CCS 3.0 SL-149@P HwhvhrH Hfgfh hZX n hN HRhW@P+H HIhNLHAh0h@=>M h;=8@h;"513/!Hn,, q+%s%̘F@Ph hXh@Pw hT@PTL T SOPIOPR  READ %WRITE .RESET EXIT !  3EPMAXSECRPAGCHKeP P* &GOE 32F A FTN CCS 3.0 SL-149@P ##l!L!TT"`TF8T\! #$PGOE PIOPR PHASE6P P9CONV 33F A FTN CCS 3.0 SL-149@P hhH.h-  f q!dh" @H B0Fh Fd 0m `h rH@P+" -m`PCONV P P)4STOREB 34F A FTN CCS 3.0 SL-149@P H20c nf00ifj 0fk 0fl00`al$$0h,n %% @P+-n/nPSTOREBP P/DUMVOL 35F A FTN CCS 3.0 SL-149@PL bb@`"`P+  3EPAVOLA AVOLR P PEHEADER 36F A FTN CCS 3.0 SL-149@P H4h3h2 /f q d `H"//Mm"m XHXd n@P+  f q` B0FHB0F00PVALNAMPTIME 'DATE PAGNBR.PRGNAM P P!DIAGRG 37F A FTN CCS 3.0 SL-149@PHh" "dL` 3#n 3#l`0PDIAGRGP P GOF 38F A FTN CCS 3.0 SL-149@P T0 dTPGOF PIOPR PHASEFENDLOCP PHnGETSYR 39F A FTN CCS 3.0 SL-149@P m0!lh THPGETSYRw  3EP PTITLE 40F A FTN CCS 3.0 SL-149@P H2"WTUr !lX X XXXX X T4 h.h T@P+2  H")hTE @PV 6ALWbmx ***** L I S T O F  S Y M @PB O L S ***** CONSTANTS : --------- VALUE ADDRESS REFERENCED BY STATE@PMENT NB : VARIABLES : --------- NAME TYPE ADDRESS REFERENCED BY STATEMENT@P NB : EXTERNALS : --------- NAME TYPE ADDRESS REFERENCED BY STATEMENT NB @P: LABELED STATEMENTS : ------------------ LABEL ADDRESS REFERENCED @P-BY STATEMENT NB : B Y T E S I G N . B Y T E I N T R . F N . S@PX T A T . F N . I N T E G E R R E A L  @P D B L E . P R E C . F U N C T I O N I N T E G E R . F N . R E A L . F N . @P D B L . P R C . F N . S U B R O U T I N E PTITLE WRTYP 7PLWRITE>WRITE +P PIFOVPF 41F A FTN CCS 3.0 SL-149@P hh h  3 dPIFOVPFP .  3E P ERRMSG 42F A FTN CCS 3.0 SL-149@P  < #h* h) h( h'0 dh1h"$0`# `@P+X @P0 hHCDhBhB2<h" jQ q1 hh X4X3T@P[/X(X' Hh 2Ƚ@P~  f0B y hvt T[ @Pn3Wi~)AUky( 6KcgT{@PBa /Fnr  * ; Q p   & ; O    0 b   D@P* o s    5 ^ b f j n r v z@Dz~!FXimquy`PU@Ply***** D I A G N O S T I C S R E P O R T ***** 1 : FIELD IS NOT RECOGNIZABL@PE. (ILLEGAL CHARACTERS IN FIELD SUCH AS 8 IN OCTAL FIELD.) 2 : MINIMUM RANGE LIMIT @POF A CONSTANT IS EXCEEDED. 3 : MORE THAN SIX CHARACTERS IN A NAME. 4 : MAXIMUM @PRANGE LIMIT OF A CONSTANT IS EXCEEDED. 5 : EXPONENT IS MISSING IN A CONSTANT. 6 @P: SUBSCRIPTED VARIABLE WAS NOT PREVIOUSLY DIMENSIONED. 7 : EXPRESSION IN AN IF STAT@PCEMENT DOES NOT HAVE INITIAL PARENTHESIS. 8 : INCORRECT FORMAT STATEMENT.  9 : IL@PnLEGAL USE OF THE .NOT. OPERATOR. 10 : ILLEGAL OPERATOR OR OPERAND. 11 : SUBPROGRAM@P REFERENCE IS ILLEGAL. 12 : LABELED END CARD IS ILLEGAL. 13 : NUMBER OF ARGUMENTS @PDIFFERS IN REFERENCES TO THE SAME SUBPROGRAM. 14 : IMPLIED DO IN DATA STATEMENT EIT@PHER CONTAINS WRONG NUMBER OF SUBSCRIPTS OR SUBSCRIPT IS OUT OF RANGE. 15 : EXPRESSI2}  3E@PON HAS AN ILLEGAL TERMINATION. 16 : UNMATCHED PARENTHESES IN AN EXPRESSION.  17 : @PERELATIONAL OPERATOR IS MISSING. 18 : RELATIONAL OPERATOR USED ILLEGALLY.  19 : AS@PpTERISK IS ASSUMED. 20 : ONLY ONE ** IS ALLOWED PER PARENTHESES LEVEL. 21 : A VARI@PABLE IS USED AS A SUBPROGRAM NAME OR A SUBPROGRAM NAME IS USED AS A VARIABLE.  22 : @PSUBPROGRAM NAME DOES NOT APPEAR IN AN EXTERNAL STATEMENT. 23 : ONE OR MORE DO LOOPS@P TERMINATE ON AN UNDEFINED STATEMENT LABEL. 24 : ILLEGAL SUBSCRIPT. 25 : SYNTAX E@PRROR IN THIS STATEMENT. 26 : THIS ARRAY PREVIOUSLY DIMENSIONED IN DIMENSION, COMMON@PG, OR TYPE STATEMENT, OR PREVIOUSLY DEFINED IN AN EXTERNAL STATEMENT. THE PREVIOUS DIM@PrENSIONING OR DEFINING IS RETAINED AND THE NEW IGNORED. 27 : THIS FIELD MUST BE A VAR@PIABLE OR ARRAY NAME IF PROCESSING A COMMON, DATA, EQUIVALENCE, BYTE, OR SIGNED BYTE ST@PATEMENT; AN ARRAY NAME IF PROCESSING A DIMENSION STATEMENT; OR AN ARRAY, VARIABLE, OR@P FUNCTION NAME IF PROCESSING A TYPE STATEMENT. 28 : LOGICAL IF STATEMENT CONTAINS AN@POTHER LOGICAL IF, DO, DATA, OR FORMAT STATEMENT. 29 : NAME MUST BE THE NAME OF AN AR@PIRAY. 30 : MUST BE FIRST STATEMENT OF PROGRAM UNIT. 31 : 32 : A MISSING COMMA IN@Pt THIS STATEMENT IS ASSUMED. 33 : 34 : ILLEGAL CHARACTER IN THIS STATEMENT WILL B@PE CHANGED TO A BLANK. 35 : THIS LINE, WHICH BEGINS A STATEMENT, HAS OTHER THAN ZERO@P OR BLANK IN COLUMN 6; BLANK IS ASSUMED. 36 : TOO MANY LABELED COMMON BLOCKS DECLARE@PD; CONTINUATION OF THE LAST DECLARED BLOCK IS ASSUMED. 37 : THE NAME IN THIS COMMON @P STATEMENT IS EITHER A FORMAL ARGUMENT OR DEFINED IN A PREVIOUS COMMON STATEMENT. THE@PK NAME IS IGNORED. 38 : NAME SPECIFIED AS TWO DIFFERENT TYPES. THIS SPECIFICATION Ixc  3E@PvS IGNORED. 39 : THIS BYTE TYPED AS OTHER THAN AN INTEGER, OR IT IS A FORMAL ARGUMENT@P. THE BYTE SPECIFICATION IS IGNORED. 40 : THIS BYTE PREVIOUSLY SPECIFIED AS A DIFF@PERENT BYTE. THE PREVIOUS SPECIFICATION IS RETAINED AND THIS ONE IGNORED. 41 : THE BI@PT SPECIFIED IS NOT WITHIN BOUNDS OF THE 1700 WORD SIZE. 42 : LEAST SIGNIFICANT BIT @P"IN THIS SPECIFICATION IS GREATER THAN THE MOST SIGNIFICANT BIT. 43 : NAME MUST BE A@PMN EXTERNAL FUNCTION OR SUBROUTINE NAME. 44 : FIELD MUST BE A NON-ZERO POSITIVE INTE@PxGER CONSTANT. 45 : ARRAY HAS MORE THAN THREE DIMENSIONS. 46 : DATA STATEMENT CON@PTAINS TOO MANY CONSTANTS FOR THE SPACE PROVIDED. 47 : STATEMENT HAS MORE THAN FIVE C@PONTINUATION CARDS; EXCESS CARDS ARE IGNORED. 48 : AN INSUFFICIENT NUMBER OF CONSTANT@PS IS PROVIDED IN THIS DATA STATEMENT. 49 : 50 : CONSTANT IS NOT SAME TYPE AS COR@P$RESPONDING DATA CELL. 51 : STATEMENT REDEFINES DO LOOP PARAMETER. 52 : STATEMENT @POTYPE IS UNRECOGNIZABLE; OR IT FOLLOWS AN EXECUTABLE STATEMENT. 53 : 54 : STATEMEN@PzT LABEL IS MEANINGLESS; LABEL IS IGNORED. 55 : STATEMENT LABEL PREVIOUSLY DEFINED; @PCURRENT LABEL IS IGNORED. 56 : A PROGRAM NAME WAS EXPECTED IN THIS FIELD.  57 : TO@PO MANY DIMENSIONS CAUSED TABLE OVERFLOW. 58 : SYMBOL TABLE OVERFLOWED; COMPILATION T@PERMINATES. 59 : STATEMENT LABEL MAY NOT BE ZERO. 60 : NO APPARENT EXIT FROM THIS P@P &ROGRAM. 61 : UNCLOSED DO-IMPLIED LIST. 62 : UNFORMATTED WRITE MUST HAVE A LIST. @P Q 63 : NAME MUST BE AN INTEGER VARIABLE OR INTEGER CONSTANT. 64 : NAME NOT IMPLICI@P |TLY AN INTEGER VARIABLE. 65 : A RETURN STATEMENT MAY APPEAR ONLY IN A SUBROUTINE OR @P FUNCTION DEFINITION. A STOP STATEMENT IS ASSUMED. 66 : SUPERFLUOUS INFORMATION IN Tt/  3F @P HIS STATEMENT IS IGNORED. 67 : THIS FIELD ON STOP CARD MUST HAVE AN OCTAL NUMBER NO@P T GREATER THAN 77777. STOP IS ASSUMED. 68 : FIELD MUST BE A POSITIVE INTEGER. 6@P (9 : FIELD MUST BE AN INTEGER VARIABLE. 70 : FIELD MUST BE A STATEMENT LABEL. 71 : @P STHIS FORM OF ASSEM STATEMENT ARGUMENT CAN'T REFERENCE ELEMENTS IN COMMON, EXTERNAL NAM@P ~ES OR SUBPROGRAM ARGUMENTS. 72 : THIS TYPE OF STATEMENT MAY NOT TERMINATE A DO LOOP@P . 73 : THIS STATEMENT TERMINATES A DO LOOP WHICH IS NOT THE LAST DO ENCOUNTERED. @P 74 : THIS 'GO TO' JUMPS TO ITSELF. 75 : A PROGRAM CONSISTING OF ONLY AN END CARD I@P S ILLEGAL. 76 : 77 : 78 : LABEL IN A DO STATEMENT MUST REFERENCE A STATEMENT F@P *OLLOWING IT. 79 : MAXIMUM ALLOWABLE NUMBER OF NESTED DO'S EXCEEDED. THE DO LOOP MAY@P U BE IMPLIED IN A DO LIST. 80 : OVERFLOW OF TABLE OF SUBROUTINE PARAMETERS. CAUSED B@P Y LARGE NUMBER OF DECLARED PARAMETERS AND UNIQUE REFERENCES TO THEM. 81 : THIS FORMA@P L ARGUMENT WAS PREVIOUSLY SPECIFIED AS ANOTHER FORMAL ARGUMENT OR THE SUBPROGRAM NAME.@P 82 : TOO MANY FORMAL ARGUMENTS CAUSED A COMPILER TABLE OVERFLOW. 83 : THE ABOVE @P NAME IS NOT A VARIABLE OR ARRAY ELEMENT. 84 : TWO ELEMENTS OF THE SAME ARRAY OR COMM@P ,ON BLOCK ARE ASSIGNED TO THE SAME STORAGE UNIT. 85 : BLANK COMMON AND FORMAL ARGUME@P WNTS MAY NOT BE INITIALIZED WITH DATA STATEMENTS. 86 : 87 : AN ARRAY ELEMENT IN A @P BYTE, SIGNED BYTE, DATA, OR EQUIVALENCE STATEMENT EITHER HAS WRONG NUMBER OF SUBSCRIPT@P S OR A SUBSCRIPT IS OUT OF RANGE. 88 : TOO MANY EQUIVALENCE NAMES CAUSED A COMPILER@P TABLE OVERFLOW. 89 : AT LEAST TWO ELEMENTS MUST APPEAR IN AN EQUIVALENCE STATEMENT.@P  90 : 91 : DATA STATEMENT FIELD IS NOT AN INTEGER, REAL, DOUBLE PRECISION OR LITE8  3F@P .RAL CONSTANT. 92 : MISSING TERMINATING ASTERISK OR QUOTE IN A LITERAL STRING AS APP@P YROPRIATE. 93 : 94 : 95 : 96 : 97 : 98 : 99 : 100 : CATASTROPHIC@P TABLE OVERFLOW; COMPILATION IS ABANDONED. COMPILER IS LIMITED TO 300 WORDS OF GENERAT@P ED CODE PER SOURCE STATEMENT. IF THE OFFENDING STATEMENT IS ARITHMETIC OR A LOGICAL IF@P , THE STATEMENT SHOULD BE BROKEN INTO TWO OR MORE STSTATEMENTS AND THE PROGRAM RECOMPI@PLED. 101 : TWO PROGRAM, FUNCTION, SUBROUTINE, OR BLOCK DATA STATEMENTS IN IN ONE PROG@P0RAM UNIT; THE SECOND IS IGNORED. 102 : 103 : RELATIVE ADDRESS ARGUMENT IN ASSEM STA@P[TEMENT REQUIRES PRECEDING CONTROL INDICATOR ARGUMENT (*). (*). 104 : 105 :  106 : @P 107 : 108 : 109 : 110 : SYMBOL REFERENCE TABLE OVERFLOW. SUBSEQUENT REFERENCES@P WILL NOT BE LISTED BY 'C' OPTION PROCESSOR. 111 : THE INDEX USED IN THIS SUBSCRIPTED@P VARIABLE IS IN CONFLICT WITH THE DIMENSION DECLARATION. 112 113 : MAXIMUM NUMBER O@PF MACROS EXCEEDED. THIS MACRO DEFINITION IS IGNORED. 114 : THIS MACRO WAS PREVIOUSLY @P2DEFINED; THE NEW DEFINITION IS IGNORED. 115 : CALL TO AN UNDEFINED MACRO. 116 : NE@P]STED MACROS ARE ILLEGAL. 117 : 118 : 119 : 120 : 152 : ARITHMETIC TABLE OVERF@PLOW.PERRMSGPWRITE ENDLOCP PH PHASEF 01G F FTN CCS 3.0 SL-149@P+  3F3@P6  `@P @P@P @P@P- @P,f0p4g( hp8ڈhp8(d Ti h\)Ⱦ h\@P0I \0iȰ h\0IȨ h\0 dm0 dn dȞl0 dc h n@Pt nf0rؑ 1TT0e =hK d0 id "! ,@P 439876  d9̺khT@Pw l +O 0w  ̼ lckh\@Pw  l" 9 & 0kl d0x2܀0khT@PlԀ0lh\@Pl"̻ 4 l d d 0v  $ l 1lnhT@P:wC l l0nd 0c `fhlr 1 d l@Pe췎lܴ 1 l6fܦ0 df ll T~ 씎 dl@P"lTηKd αIdΫCdid ΢Ed " : @P&t00ckhT@Pw S d00{d| (d}T1wkl '\̻dlTw )l\w @Pd 5 n l\ 0w l 0fv 1̠  Cl-  Dl\wT  3FG@P#\ ll̞lh\@P-}\w̒khT@P:w ld~\w  <l l 4 lT ckh\@P^w d0}lT1w  l lkh\@Pxw\ww deh Td \@P \Tw\w l@P@P  d@P@P 2~ @ HH`PPHASEFPWRITE 6TITLE SYMSCNACON 8IREPAKSORT 8GETSYMHCON LWRITEdCONV WRTYP TMATCH P PH `GETSYM 02G F FTN CCS 3.0 SL-149@P6 c0p4g,delf Dp<( hp8hp8(d T@P,i h\) h\ \iȸ h\IȰ h\ @PW̵lHPGETSYM\PREAD ,P K  3F[ P _ACON 03G F FTN CCS 3.0 SL-149@P v@P@P'@P hh hh4h %h h h(h'(dߘ""`p9iԈh  . h=@P7n h 1 1ɀ@PJ@HH TT h\ hPACON NPQ8PKUPVQ8PREPSP P 3HCON 04G F FTN CCS 3.0 SL-149@P@Ph hhp8h h0  3F@PVXTa"A T" XHb XEb XBa bXMf"&"b"! @P6"b!b" 1f""b"b"bhT a @PHT@P AHThR\Or""JH \""h)" b\T@Pa"A \"Xa f"! 6"b!b$"A1f" Xb@P@P H$"HhTf"H"@P"b b   X X0XX6 H PREAD WRITE FREAD FWRITESCHEDLTIMER DISPAT DISP LINK "ICLOCK(INPINS.OUTINS4RELESE:ICONCT0POCONCT6PPARTBL>PARABSP P*Q8PRMR B01 A FTNR CCS 3.0 SL-149@Ph Hq``TH`T" hPQ8PREPQ8PKUPQ9PKUPPPARABSP PPARABR B02 A FTNR CCS 3.0 SL-149@PHhB4 "c"PPARABSh  3FP PQ8F2IR B03 A FTNR CCS 3.0 SL-149@P@ @ @ `T`\`h @G`!d`c'6@P+` `a@,'T `8&\ `X""`@PV`\[K]@ `@T\[@?9T"``\ĝ@T)1l\@P[Z%@XQ$    0jX"  \[@ @@PQ8QF2IQ8QI2FQ8QF2FE4SAVE+PPARABSEXP xALOG lFALT HFLOT 8P PABSR B04 A FTNR CCS 3.0 SL-149@P@`T"`"`T@"\tPQ8AB ABS PHFLOT PARABSP P[SQRTFR B05 A FTNR CCS 3.0 SL-149@P@T"``"dR`@6G* AB ;1`Š 4`TQݾ@P+SUۚWYOa 4dRd@`\ٴ@@?N^ A̼>@PVL>aArI$PSQRT PHFLOT $PARABS  3FP P,SIGNR B06 A FTNR CCS 3.0 SL-149@P `@` `Ta"``\ b#1Tt`@P+PQ8SG SIGN PHFLOT &PARABS P P8FXFLTR B07 A FTNR CCS 3.0 SL-149@P @` `@X""``T\ ``@  @P+`@X""`\$PQ8QFIXQ8FX Q8QFLTQ8FLOT'IFIX FLOAT 'DFIX Q8DFLTDFLT 'PARABS.HFLOT P PEXPR B08 A FTNR CCS 3.0 SL-149@P@`T""``\W@ %\P}@ @\I[@}p?C5Ƙ1@P+ `?Ř3Ƙ> 1 " HX `B\#Z]Y^]J@Ő1G" `R @PVz` `Tؔ3\՞+(Y^#Y^Y^Y^ Y^]@@Pŀ`\\յ@@>UV=UV@P+1` #d*@1*A`ݠ4ad`Š 1`T^]مٝY@PVٵ ^\@Zy@X @@A@@UN<?j+PALOG PFALT HFLOT HPARABSP PlTANHR B10 A FTNR CCS 3.0 SL-149@P `T@""\+[TQ3` "`!d8\[TCb\t"`!d?@!@P+#*BP*`T\T$յ$@\@ `\YV@PV@  @>Ie=h,PTANH PPARABSHFLOT 8EXP 2P PSNCSR B11 A FTNR CCS 3.0 SL-149@P@`T""``\L$@@P+`\""``\&@ %\}@ ``q@x7u3K@)Ř7X"@PV` Tե`Ũ"Gf $ ƪ` `\YJ^C>@:@P\X]9@ `Ř04Ơ,;.` `\~"@\ܞY&#^Y^Y^Y   3F@P\}@\@AdA@*@Ke>@U@>GPATAN PHFLOT SPARABSP PSD1781R B13 A FTNR CCS 3.0 SL-149@P B"" @XXt` Q `X  @P+ X"" R1`p @XXRRt`XPHFLOT HDFLOTIFALT SFALT BPARABS5E17811P PNFLOTR B14 A FTNR CCS 3.0 SL-149@P  `a` ` `X8?"A  x&Jz  3F@P+}Xa(XBXXȰ,` #`X`#`XE`Ȱ#`X@PVMbXO`Ƞ$d `d`Ȱ.`XXVbb $`T@P@@`Ϡ *`@ed`d`Xp` `Ƞ4`n Ƞ$@PȰ$>a.`X"dR`2H `͠ `D`D```X=@PXXXU#.` A`@ @ X2X0` `2@@PA`πҐ`"G ~ @39` ` 2` 1`ϐ+ i& c @P-``"dR`2H ```XYXX8#.`@PXaA@͠`d `md 0 d1 " 2a0 `Da0 @P1 m  ! X` ` `{XXNdRXX@P@`!d߰2H `Ԡ"`@`ed`d``Y@Pِ.`@`@`@" h u>`hA``h`@PA``B΀" e " `@2T "@P/@k"Ƞ>.`Rd"Ƞ>`R@`" `PFLOT HFLOT PPERORIXFOP9LOFOP6PECOP0XTOP PERNDP PCOMFPR B15 A FTNR CCS 3.0 SL-149@P 'B``` "Ƞ,2!Ƞ#`'2 @P+ X"25#?FI@ B#`X @ `@PVX!X1 $XX Ȱ#!1  3G@P RA1`R "dR@ R  B H g@Pad `#`XZb Ȱ#`XK`!dB2 @@PrdR@`/@Ƞ4` H)X t` Q  T"" R1@P H XRRt`pPIFALT SFALT OPERNDNXTOP FPERORSPECOP.FLOFOPFIXFOPPPARABSP PeQ8QIOR C01 A FTNR CCS 3.0 SL-149@PHT` h \ H"" dLonbb@ @ aaXWa@P+2 APaXMr""" aO f32a/fq X3"" f Df@PVrDX&r""` f  f" f" R2a"2" 4@P\  `h   `h f H"AXF@P CAa2-Taaaaa `%T2AT b@P @4hI;  b bgbedDİb h $ b fT @P `"` H~ Dfy$h @T Hl!`" ]@P-c"A aahA3"hLH 3@PX )PQ8QINIQ8QX Q8QY Q8QZ Q8QEND'Q8QGET;SETBFRIOERR QIRWERR[ARGU0 PPARABSBINARYFORMTRP  3G# PKBINARR C02 A FTNR CCS 3.0 SL-149@P TDa a1X0" f 4`D`T X f" 4`@P+D`T    " ( "2f"PBINARYPRSTORE9INITALQ8QGET1P PQ8QGTR C03 A FTNR CCS 3.0 SL-149@PPQ8QGETP P4IOCODR D01 A FTNR CCS 3.0 SL-149@PTA a aX!`X""`X""aXaThhT@P#TA TPENCODEDECODE#PPARABS1FORMTRP PINITLR D02 A FTNR CCS 3.0 SL-149@PT "Aaa@PINITALP  3G7 PRSTORR D03 A FTNR CCS 3.0 SL-149@Ph ```ThPRSTOREP PGETCHR D04 A FTNR CCS 3.0 SL-149@PTz a&TTڪ APIGETCHGETCH PEWRITE RSTOREINITALP P>IPACKR D05 A FTNR CCS 3.0 SL-149@PT)  ؐ"T a1q\  d ڠ d f" "@P+a  `ڠdPIPACK PCHCNT ,RSTORE=EWRITEINITALP P UPDATR D06 A FTNR CCS 3.0 SL-149@PT  dPUPDATEPRSTORE INITALP ?  3GK P&DECPLR D07 A FTNR CCS 3.0 SL-149@PT``؁ ` a `T  ` dT`TaePDECPL PRSTORE%INTGR UPDATEGETCH INITALP P-INTGRR D08 A FTNR CCS 3.0 SL-149@PT` a؁ ` `T"  !T 9!a Fa ` `T@P+PINTGR PRSTORE,UPDATE)GETCH INITALP PSPACER D09 A FTNR CCS 3.0 SL-149@PT a`؁ ` `T ` `TPSPACEXPRSTOREIPACK UPDATEIGETCHINITALP PHOLR D10 A FTNR CCS 3.0 SL-149@PT`` a ف ` `3TTa ` `T @P+ a  ) a؁ ` `T ` `T# T``ف ` `@PV3TTa ` `TE  ( $ 3 a  t w  3G_@Pa؁ ` `T> ` `T c PHOLRTHQUOTE GPCHCNT ~RSTOREIPACK UPDATEGETCH [IGETCHXINITALJP PsDCHXR D11 A FTNR CCS 3.0 SL-149@PT` aaaaa `!T ` `Ta ` `T    @P+ 5 1 0a a' "T 9!\a !\ Fρ"@PV aA Fρa1A\aADdRAaPDCHX PRSTORErEWRITECUPDATE!IGETCHINITALP PSHXASCR D12 A FTNR CCS 3.0 SL-149@PT` `ab a  0c    ` a`b% *aa@P+ ` a"Td"2aR @ ` `T ` `TPHXASC PEWRITE5RSTORERUPDATENIPACK GINITALP P*AFMTOR D13 A FTNR CCS 3.0 SL-149@PT`a `! ` ܠ `Ta؁ ` `T ` `TPAFRMOTg  3GsPRSTORE)UPDATE%IPACK GETCH INITALP PRFMTOR D14 A FTNR CCS 3.0 SL-149@PT a`؁ ` `T ` `TPRFRMOTPRSTOREUPDATEIPACK INITALP P.AFMTIR D15 A FTNR CCS 3.0 SL-149@PT`؁ ` `Ta ` `T a  ` `\a ` `\ȁ@P+aPAFRMINPRSTORE-UPDATEIGETCH INITALP PRFMTIR D16 A FTNR CCS 3.0 SL-149@PT`؁ ` `Ta ` `TPRFRMINPRSTOREUPDATEIGETCH INITALP P;ASCHXR D17 A FTNR CCS 3.0 SL-149@PT` a `!, ` `Ta ` `T a 6 9   3G@P+2 2T aıaPASCHX PEWRITE/RSTORE:UPDATEIGETCHINITALP PHXDCR D18 A FTNR CCS 3.0 SL-149@PT` aafRda -a0F 0ac 2 .a `@P+9ac a aA `!J aa a(@PV a .a 0a!D Q" !yR *a aa A؁ ` @P`T ` `TPHXDC PRSTOREUPDATEIPACK INITALP PJFLOTIR D19 A FTNR CCS 3.0 SL-149@PT``d` aTT! a@bRd@``\\aTT@P+@$\af\\a `aAPFLOTINPE4SAVEBRSTOREIQ8QFI &HFLOT (Q8QFL DCHX INITALP PFOUTR D20 A FTNR CCS 3.0 SL-149@PT`d`"Rd@`TTm@o1Q$\T a*  3G@P+` a`T .a ` `T ` `T a`"d`!T(T\@PVk@\`\aa`BP@@JI>` *a ` `T= ` @P`TD `PFOUT PE4SAVEfRSTOREjQ8QFL SUPDATEIPACK |HXDC 3Q8QFX QHFLOT Q8QFI INITALP PEOUTR D21 A FTNR CCS 3.0 SL-149@PT``d```` a` a `/" 4 A *a A   @P+ gR@R@ -A` .a ` ` `T ` `TT8T@PV\ ` c1Td 2Q \\ c1\T\׺@P@\ #  a ` a!T\@@@TTL a E@Pa``؁ ` `TB ` `TII +#d` -A ` ' a``\ aa@P``\a `aBP@@PEOUT PE4SAVERSTOREHXDC Q8QFL EWRITEeQ8QFX UPDATEIPACK HFLOT UQ8QFI |INITALP P EWRITR D22 A FTNR CCS 3.0 SL-149@P2 Th PEWRITEP  3G PINTI1R D23 A FTNR CCS 3.0 SL-149@PT "AX`XahhTTPINITL1RESTRE PPARABSP PFORMTR D24 A FTNR CCS 3.0 SL-149@PPTqa aa a a a aف ` `Ta"  6 9!@P+ M \ { a ` `T   ` @PV `{  `Ta`T" a   ` `\ @P a`T'bdRQ"T9 `T1 `T)  "T@P`T  !\`T \`TTf" !\f" a#@P a a A aA `@ TT" a a A aA  @P a  `T\"a A `` !RATaQ `@P-TI `T.A  "T`T4  !\`T(a "T@PX"a` `T `T "TW \`T aa  !\@P ` `TG a a a a a x a]a' ` `Tf@P`T``1 aF a؁ ` `T ` `\ ` `\<a @Pa Da  a  a ف ` `T 3 ! ` `TPFORMTRCHCNT PRSTOREEWRITE?IPACK DOUT wEOUT jFOUT bRFRMOTOAFRMOTCHXASC 6HXDC $SPACEX QUOTE HOLRTHFLOTINk  3GPRFRMINAFRMINASCHX DCHX DECPL fINTGR UPDATEGETCH INITALQ8QGEToP PQ8QFIR D25 A FTNR CCS 3.0 SL-149@PT` ` $aaTBP@PQ8QFI PRSTOREINITALHFLOT P P/Q8QFLR D26 A FTNR CCS 3.0 SL-149@PT#dRAR`B@ @"si`  dr$Rd@P+`@PQ8QFL PRSTORE.INITALP P7Q8QFXR D27 A FTNR CCS 3.0 SL-149@PT$dR@ R  DA * H f H g@P+ AddRAaPQ8QFX PRSTORE6INITALP PHEXAR D28 A FTNR CCS 3.0 SL-149  3G@PT aa a a aa `TPHEXASCPCHCNT RESTREHXASC INITL1P PHEXDR D29 A FTNR CCS 3.0 SL-149@PT aa a a a aa @ !RATPHEXDECPRESTRECHCNT HXDC INITL1P PASCIIR D30 A FTNR CCS 3.0 SL-149@PT A a a a `Tf"PASCII PRESTREASCHX INITL1P P DECHXR D31 A FTNR CCS 3.0 SL-149@PT a a a a a `TbdRQ" f"PDECHEXPRESTREDCHX INITL1P PAFORMR D32 A FTNR CCS 3.0 SL-149e  3G@PT a aa a` `T f" PAFORM PRESTREAFRMININITL1P PRFORMR D33 A FTNR CCS 3.0 SL-149@PT a aa a` `T f" PRFORM PRESTRERFRMININITL1P PFLOTGR D34 A FTNR CCS 3.0 SL-149@PT aa a a a aaa `TPFLOATGPCHCNT RESTREEOUT INITL1P PSGDBLR E01 A FTNR CCS 3.0 SL-149@P @`X""``TՀPSNGL DBLE Q8SNGLQ8DBLEPARABSHFLOT P PQ8D2IR E02 A FTNR CCS 3.0 SL-149+  3G@PH& H H hT`\` @f`!d`X@P+"```T[R]@#``"`\[@EAT"``` @PV`\ݝ@T+a@%\ѹ\ɹ1 \[Z@X+$ 1X@Pz" \[@@PQ8QD2IQ8QD2FQ8QD2DPDLOG JDEXP \FALT HDFLOT5PARABSP PDABSR E03 A FTNR CCS 3.0 SL-149@P@`T""```T@"\tPQ8DAB DABS PHDFLOTPARABSP PDSQRTR E04 A FTNR CCS 3.0 SL-149@P@T"``'d`dR``@PG* AB ;1`Š 4`@P+Tqtwۚz@}\nܐ ݐ ސ B\׽@@PVa 4gRd@R@`\´@@?N^ rA>L<"aArI$JPDSQRT PPARABSHDFLOT,P P-DSIGNR E05 A FTNR CCS 3.0 SL-1496d  3H@P @` ``Ta"```\ b#1Tt@P+`PQ8DSG DSIGN PHDFLOT'PARABS P PDEXPR E08 A FTNR CCS 3.0 SL-149@P@`T""```\Q@ %\J}@ @\C[@{x?Cؘ# `?Ř@P+!1 " HX ``"Q\&Z]|^]^@Ř G" `R|@@PV` ``TS\՞LHY^BY^UUUV=UUUV<DDDD;[@P[9h8hh6w[5I>@X PDEXP PFALT 4HDFLOTaPARABSP PDLOGR E09 A FTNR CCS 3.0 SL-149@P@`T""```\A@1X"`  Ő@ ``@P+`\%Q1`` #d*@@1*A`4ad`Š 1`T^-@PV](YC>82,& ٵ ^@@P@Zy@X @@A@@UUUUV?fffff?I$I%>q>Et>N>DDDD>xxxxxPDLOG F  3H'PFALT HDFLOTQPARABSP P6DRSTRR E10 A FTNR CCS 3.0 SL-149@P @T"f"bb @\"f"b @\"f"@P+"  b`bPDSTOR1RSTOR1DSTOR2!PPARABSP PDSNCSR E11 A FTNR CCS 3.0 SL-149@P@`T""```\f@```\[\V%@P+@`\""```\/@ %\(}@ ``@PV`@ؘ=Ƙ8ǘ3K@-Ř7X"` TZ}]@Ũ1G@Pf $ ƪŪ` ` `\Ye^\7Y?V;\ѵM @P`ŘC4?4;??` ``\'\~-@\fݞYA=^Y7@P^Y1^Y+^Y%^Y^Y^Y@\t@QAdQAQ@*Q@Ke>V@U@>ffff6m>qq.>NN=xxxxPDATAN PHDFLOTcPARABSP P^DFLOTR E13 A FTNR CCS 3.0 SL-149@PThTX X a*` a aX '@P+Baa"aA3%l@PV,` Ȱ#`XaXȰ#`XaȰ#`XbX$'@P)03*Ȱ#`X A a!1  @P!1Xu`` `"Ƞ>a.`AA&dRARAa @P2H a a a a 6Da a a a Ƞ>`+X X8bbb!@P T@@@ ` *`@ @id`d`d` @P-.`"Ƞ,2!Ƞ#`(2 ( e@PXXX.#Ȱ.` !Aa@ !! A !! A !Aa@X@Pa@ !! ƁXX@` !AX`""``@ Aa@PaA3AasA``c` 1 m@`  3HO@P$ ` A a a a "-G - a a a a a a a @P#a =`XX$X~#.`1   #0a d a @P/ !13d #2d Ad( 2adaa1 aDa1bAa@PZ?ad A2aF ad2aa1`a1`Da1` a a @PaȀ-`aaaaA&RARAda2H a aa@Pa  ! Ta a a a \X[da@PdRXQaAaA!dذ2H a "a aAa @PA a hda da da  a aa  a1 a A  a A a A@P1 a A a" x a ` d aa bAa a babAa@P\"H1h #h`Aa`Aaa`AaaM@PaB a #a  A Dda a a #a  n a )a a #a @PA a A # a 2W  $or | AA A   @PAA A  a A kdRA a da . Ƞ>t` A U@ @P`a `X"dR@ R  B H gad `Ȱ#`@P3XbȰ#`X`!dB2 @rdR@`/@gPDFLOT HDFLOTPFPERORP PQ8QDFR E14 A FTNR CCS 3.0 SL-149@PT` `` $aaTBP@  3HcPQ8QDFIPRSTOREINITALHDFLOTP P DOUTR E15 A FTNR CCS 3.0 SL-149@PT``d``````` a` a `/" 4 A *a @P+A %lR@@R@@R@ -A` .a ` ` `T ` `TT@PVDT``\" ` c1Td 2Q \@P``\ c1\T\@``\ #  a ` a!!T@P`` `\@@@T``TV a Da``؁ `  `TL@P ` `TSI +#d` -A ` ' a``\ aa``\a `a@PBP@@PDOUT PE4SAVERSTOREHXDC Q8QFL EWRITEsQ8QFX UPDATEIPACK HDFLOT_Q8QDFIINITALP PFORTN F01 A FTNR CCS 3.0 SL-149@PX/X+X'X# XX}X$X@P+)Xa"a X" XIb XFb XCa X@b bXL>aArI%@@PSQRT PHFLOT DARABSP P$SIGN G05 A FTNR CCS 3.0 SL-149@P @` `Xah\ b#1Tt`PQ8SG SIGN PHFLOT ARABSP P0FIXFLT G06 A FTNR CCS 3.0 SL-149@P @` `@X""``T\ ``@ `@X ""`{  3H@P+\$PQ8QFIXQ8FX Q8QFLTQ8FLOT!IFIX FLOAT !DFIX Q8DFLTDFLT !PARABS&HFLOT P PEXP G07 A FTNR CCS 3.0 SL-149@P@Xh`\V@ %\O}@ @\H[@|o?C5Ƙ1 `>Ř3@P+Ƙ= " HX `B\#Z]Y^]J@1G" `R z@PV` `Tؔ3\՞+(Y^#Y^Y^Y^ Y^]@ŀ`\@P\յ@@>UV=UVŐ1` #@P+d*@1*A`ݠ4ad` 1`T^]Y@PV ^\@Zy@X @@A@@UNIe=h,PTANH PHFLOT 4ARABSXP .P PSINCOS G10 A FTNR CCS 3.0 SL-149@P@Th`\6@Th`\&@ %\}@ ``q@ؘx@P+7u3K@)Ř7X"` Tե`1Gf $ "Ţ` `\@PVYJ^C>@:\X]9@ `Ř04Ơ,;.` `\õ~"@\@PܞY&#^Y^Y^Y\}@\@AdA@*@Ke>@U@>GO  3HPATAN PHFLOT OARABSP PPARABN G12 A FTNR CCS 3.0 SL-149@PHhB4 "c"PPARABSP P^D1781N G13 A FTNR CCS 3.0 SL-149@P B"">= @XXt` Q `X   @P+X"" R1`p @XXRRt`XTLWT@PV 1781-1 REJECT PHFLOT HDFLOTIFALT SFALT <PARABS/E17811 P P>FLOTN G14 A FTNR CCS 3.0 SL-149@P  `a` ` `X8A"C  x&Lp@P+sXa*XFXXȰ,` Ȱ#`X`Ȱ#`XB`Ȱ#`XJX@PVbXO`Ƞ$d `d`Ȱ.`X XSXUbb $`S@@P@` *`@ed`d`Xo` `Ƞ4`n Ƞ$Ȱ$>@Pa.`X"dR`2H `͠ `D`D```XCXXXS#Ȱ.`  3H@P A`@ @ ŀX2X0` `2@A`π`"G@P z @35` ` 2` 1`ϐ+ e% b ``"dR@P-`2H ```XcXX8#Ȱ.`aA@͠`d `@PXrd 0 d1 " 2a0 `Da0 1 q  ! X@P` ` `X XAdRXX@`!d߰2H @P`"`@`ed`d``Vϐ.`@`@`@P@ϐ"h t=`hA``h`A``B" e@P " `@2T "@k"Ƞ>.`Rd"@P/>`R@`" `PFLOT HFLOT PPERORIXFOP6LOFOP3PECOP-XTOP ROCHKqPERNDP P4COMNFP G15 A FTNR CCS 3.0 SL-149@P &B``` ",2!#`&2  @P+X/2 <CF=B#`X X9@ `X!X1@PV Ƞ$XX #!1H%@PX#X X X 4 4p"d 2esR@P4R4!D RȢA1`R "dR@ R  B H ga@Pd `Ȱ#`X0Xb Ȱ#`X$`!dB2 @rdR@P@`/@Ƞ4` H(X t` Q  T"" R1 H XRR  3H@P-t`pPIFALT  SFALT %OPERNDNXTOP FPERORPROCHKSPECOP*FLOFOPFIXFOPPPARABSP P?Q8IFRM H01 F FTNR CCS 3.0 SL-149@P  hhhhhT@P THTTh\hh\hhPQ8IFRM/PQ8PKUP5Q8PREP2Q8FS Q8TRAN!P P5Q8FS H02 F FTNR CCS 3.0 SL-149@P@P!@P/ @P1 @P+ )(,/.XH0123456789AREF$I@PD'*Z@P @P3 h@P; l : T l   3I@PLll h@PV l \ hlElh hhhh hhT*() h hظȶ ,Ȱ"!& 1@P ,j@P, 1TT6 l44 l2 / ! + !l dKd- l!!  @P d.d( d)Tj.() % Vd@P\/\  l !  "ld0l l l l l\.() @Pd L6'1l$ V L"TT 6TG @PBl d  d& d% l ll  T*@Pd\*T*̙ l !  d(d)T*()\*" l ! @Pd*@P@P@P@P@P@P@P̹ $2 l#, l@P@P dd: ld$l d@P  3I@P l@P@P l@P!@P l@P#@P@P@P l@P%@P l@P'@P l@P)@P d̘ @P/@P l̒ \*̹  a̱  aTg*\*̡  a̙ @P aT`*@P9@PS  3I+@P@P@P2H/TThV\hD\hB\hhh\hh\h\h\h#h\h@P-\hhPQ8FS PQ8STP 8Q8PKUP Q8PREPQ8SKIP@Q8FGET}Q8FERM5Q8RWBUQ8FPUTP PAQ8TRAN H03 F FTNR CCS 3.0 SL-149@P@PQ@PS@PU @PY-0 @P`F@PfED.@Pp@P{*@P<'d @PA@P T h jظ 1 h " < )!  3I?@PP d; h\ dP̼ !TR 9l@PRdRl̩ l  dTTPT\R̛  lUdRlVl  dW@P dX\R    !> ḷ l !& !/ l 9!/̫@P, !+̧ h$[l !( l 5TR@PE l̻ ̵dl\WTgTQTR  0l\\\ ld]d ^ dN@Pp:\R  ld_ 9!. !* hWĈl̨ l 3\R@P    dT !TWT l F7̣ 4̠ l̜  0lTSQ@PTV@P@P@P@P dadbldXdcddde dN f 1TARR  l @P  l  l \Rl;  $[ lL dDf@PdWgl,lLlll ̲ l,lLlll, lh@PJd^ il ̓ l TRR B > : 6 @Pu 93 % Rd e l 95 2v  0lo  d@P dalX̺ ̷ ; ̯  EdO l D\R̠ ̜  dc@PR  9! ! dDb$[l c"a l T_R @PR 0lԀ@P-G  3IS@P d ̱ k3 dleld3d4d5d6d7 d8;@P% D ll d9d:l T ̻ aO  lX  @PPdldldl dTTT l\T l\TṊl T a@P{ ̚dl̛dl l\T l\T)@P@P" < ) EH d;; dPl\PT ! ! lHdR@PVlTR̘l\R l\R l  Hll\Rˬl dm l@P dEdFdG dN n 1 dn +dXdc dTT\ET l\FT̗  l@P\GTdKdIdJʤpdo  -lܺdldl; dl TH@Pܚ d^n 1 l 0n 1 dN 0n 1  d]@Pi  mdlc ÔMl̿ !i̻  l̶8TU l@PX \X ldn dl !  0ṉ h\@Pܫ l̹ l\l̳ l  2\Z̥ l 2] h\@Pr l l 2\{ lm !d^  dN8A  3Ig@PTU lX \X l\Z\l l  ̳ h\@P0ܭ l; \k l\j\cMd|Kd}+ z!" 8 %@P[ l\Zܨ 1P\Z\J\\ DdTdx dqdwld^ dN@Pl`p=l  lܹ 0f.lۜll 1 @P@P +dX dmlT|Tl|pdo dl -l l lz  l 0d@Pd~ !#  l5TUܘ \Y lڜ9Nh\@P l4\{@Pp@P dT\|T̨ldx dqdwdyl *l ̬ l̩d ,\Ṳ@P8 l ! l l윳4\Zܯm lz`p5@dDfl 0e 4 @Pcn ḽḷlN 1 l l  1 d~ "@P l  +TU l ! d^ " ll 8̽h\@Pܷ " l  l\`̥ l !\U̶ l  !@P@PX@Pe@Pb@aH^H[TThh\hhhFhhhh{hhh\hh@Phhhhhah\hqhhvhhI\hgh\hch\h_h\h[h@P3\hWh\hShA  3I{PQ8TRANPQ8STP Q8PKUPQ8PREPQ8FS Q8RWBUQ8MOVEQ8FERMQ8DXP9=Q8EXP9rQ8DXP19Q8EXP1=P PQ8QINI H04 A FTNR CCS 3.0 SL-149@P H]h\hRhMhRKuXhKJhAHFv" c h8"5T39cTh.h;X7@P+H&8%#T$h$h`  TT @PR@PX TF TT4h255؈ȇXh&ڨ*I@PhTTp=H ' &eh @ȫT@PȨXȞ Tȡ`><Ȓ T H T艀PQ8QINIQ8UNITVQ8SKIPPARABSzQ8DFIN'Q8QUN2Q8CMP1Q8IGP Q8IFRMQ8QENDQ8MAGT5Q8CMP0lQ8QT0MQ8EREMNQ8INTBoQ8ERRM"P P!Q8QEND H05 A FTNR CCS 3.0 SL-149@P dT TTT PQ8QENDPQ8FS Q8DFADQ8UNITQ8QUN2Q8QUN1Q8CMP1P PQ8CMP H06 A FTNR CCS 3.0 SL-149@P h3HHdƐhdDhhdTFKhh   3I@P+hHL8@ hk"ThT h~"  b hvT P@PVިXM H֨CbC|Ψ Z hX Va `hQ1D{lJwe@P& D!WX"ȭ ȩ!5XMyl,e (!;X Ȍ@PTT `h Dh XX\\ TaH #@Ph! TT PQ8CMP0Q8CMP19Q8DFADQ8QENSRECENDPWRFLG Q8EOTTPQ8RINTQ8CLRBQ8LOCBAQ8BEGB=Q8EREMP PQ8RWBU H07 A FTNR CCS 3.0 SL-149@P hBDhEhBhBhDhwh:8# `h9 V1a Dh/X+)*h+DT  #% @P+ # Dj A Dh h h  Hhh@PV&aH3[HX" L!`h TT @PaH> 3 DH-j+̾Ⱥ(j'% hȲDhT̝Ȟ̘nΙl@Pؘؚș _ U h`PBPQ8BINBQ8LOCB#Q8RWBUPQ8INTBQ8BEGB(Q8CLRB+Q8RINT:Q8IBUFWRFLG OPQ8EREM{Q8CMP1P PQ8ERRM H08 A FTNR CCS 3.0 SL-149@P HDX hgHghf>XhdHdhc h-+h) H, @BH'H%#B9*h"H AhBHF  3I@P+ j `0@P; @P@'d @PJ hrHr s"htjqh hDh`Hah`I/O REQUEST @Pp     X XX*EX XX&X+@XXX< XwhHh@P h,ph*X" dh$ h!X mh hX ThX THX@P TL `uPQ8ERRMQ8FERMJQ8EREM[PQ8LOCBQ8LOCFP PQ8DFIO H09 A FTNR CCS 3.0 SL-149@P HehdhgXlXvhb"aTZWDT hUHUHRRQ  pJf XNXXhEn HA@P+XHXR(?R!39h9X?XInhTK  NX0h+p nmh n@PV ;ln  H T` + ȋXh؆1  @P HhH  TT hhhhdhhuXvh̺@P (BD n&ȫdȫ PQ8DFNFQ8DFINPARABSRECENDQ8QENSQ8DFADQ8QINIQ8EREMQ8ERRM P PeQ8QX H10 A FTNR CCS 3.0 SL-149  3I@P hJIEhE h h  hh h8H60TXX h%`"@P+ "h*hTHIJ T h hh@PVh llPQ8QT0MQ8QTRMQ8QX Q8MOVENQ8QY Q8QZ PARABS#Q8UNITQ8QUN1Q8BINB>Q8IFRM7P PQ8QUNI H11 A FTNR CCS 3.0 SL-149@P X# Xhh@4i` Xj TT Cr q d`P+^PQ8QUN1Q8QUN2Q8QUN3PQ8EREMP PbQ8FGET H12 A FTNR CCS 3.0 SL-149@P Y hUDhT XHXhNX hXh:a62Hl2@P+0X), H,)H& XXh a&hh۸nX X h H @PV PQ8FGET Q8FPUT7Q8LOCFQ8IGP PARABS;P PQ8MAGT H13 A FTNR CCS 3.0 SL-149}  3I@P HThhh=@ T XT%T\ XFDh5TFh120-3 T@P+*(%!T TF \T T \T `PV`PZ@Pa H HB0h hȳhhhQ\ٸj\PQ8MAGTQ8EOTT>PQ8QUN1:Q8QWNDHQ8COMILQ8QUN2 Q8EREM*P PTAPCON H14 A FTNR CCS 3.0 SL-149@P H+h* r Gh hlBhHX"9" "hh0" T+TX%@P+ hT\H `CT T@ TFhT&h@PV XX TTT 2X X' h$  X0X@P XzШ Xhˠ T TcPQ8QBCKQ8QFLEYQ8QWNDyEOF iPARABSQ8IBUFQ8QUN3Q8QUN2EQ8QUN1_Q8CMP1Q8CMP0Q8EREMQ8ERRM#P PIOCK H15 A FTNR CCS 3.0 SL-149@P HXhTh  T  PIOCK PARABSQ8QUN3Q8QUN1  3IP P?PSSTOP H16 A FTNR CCS 3.0 SL-149@P H= X H8X H0:TX*@) 7\TJ   hT@P+H5@P7STOP PAUSE PQ8PSE Q8PSENQ8STP Q8STPNQ8COMI!PQ8PANDP PnQ8PAND H17 A FTNR CCS 3.0 SL-149@P h\H jN qDhQ`hS \hL!:R hJE hBEOi:DhL1a: Lw T&RH5 I  vR  @PLaT\T @P hh Huhi[G M^@BPCE}GN HJzLLK@PQ8EXP9 Q8EXPTQ8EXP2PIFALT PARABSHFLOT HP PQ8QGTX H20 A FTNR CCS 3.0 SL-149@PPQ8QGETSETBFRP PQ8QIO H21 A FTNR CCS 3.0 SL-149@PXHH"4q`hn "Xhg X H""^ l\@LUT@P+b@b a#XDa$2 A#PaX:$r""" a> n5$32a#/-n,X$$r"@PV"a$# n  na" f" R2a hd#2" X@PO"AX#D ALAa#2#%X2a#Xh11&   b  3J@P bX b:9b hT e @h@1H`!@PA aa$hA$#2"LHPQ8QINI'Q8QX Q8QENDQ8QGETSETBFRIOERR PINARYARABSySAVE "OMMON%ORMTRP P9IOCODE J01 A FTNR CCS 3.0 SL-149@PXXHH"4` "a "a a#XaX""aX""aXaXh h@P+`@P2XPENCODEDECODEPARABS7SAVE OMMON ORMTR'P P%PSUEDO J02 A FTNR CCS 3.0 SL-149`P%PCOMMONISAVE P PIGETCH J03 A FTNR CCS 3.0 SL-149@P#y a%XH!""" APIGETCHGETCH PWRITE;%  3JP PBIPACK J04 A FTNR CCS 3.0 SL-149@P#*   "!"X# a1rX ""  "!f" !" f""" f"@P+ "a""! h " "f"PIPACK PHCNT .WRITEP P UPDATN J05 A FTNR CCS 3.0 SL-149@P" "f" !"PUPDATEP PDECPL J06 A FTNR CCS 3.0 SL-149@P` a! a a"X  a! a"XXaaPDECPL PNTGR PDATEETCH P P&INTGR J07 A FTNR CCS 3.0 SL-149@P a a! a"X"  !T 9!a Fa a! a"XPINTGR PPDATE$ETCH  3J/P PSPACEN J08 A FTNR CCS 3.0 SL-149@P a a! a"X a! a"XPSPACEXPPACK PDATEGETCHP PHOLRTH J09 A FTNR CCS 3.0 SL-149@P a a! a"3XXa a! a"X  a  @P+! a a! a"X a! a"X a! a"3XXa a! a"X=@PV    + a  e a a! a"X6 a! a"X@PTPHOLRTHQUOTE ?PHCNT oPACK zPDATEETCH LGETCHIP PpDCHX J10 A FTNR CCS 3.0 SL-149@P aaaaa `!W a! a"Xa a! a"X    8@P+ 4 0a a* "X 9"X>a "XC Fρ" a@PVA Fρa1BXLaADdRAaPDCHX PWRITE`PDATEGETCH  3JCP PLHXASC J11 A FTNR CCS 3.0 SL-149@P `ab a  0c    ` a`b% *aa ` a@P+"Xd"2aR @ a! a"X a! a"XPHXASC PWRITE0PDATEIPACK BP P#AFRMOT J12 A FTNR CCS 3.0 SL-149@Pa `! a! ܠ a"Xa a! a"X a! a"XPAFRMOTPPDATE PACK ETCH P PRFRMOT J13 A FTNR CCS 3.0 SL-149@P a a! a"X a! a"XPRFRMOTPPDATEPACK P P,AFRMIN J14 A FTNR CCS 3.0 SL-149@P a! a"Xa a! a"X a  a! a"Xa a! a"Xȁa@P+~  3JWPAFRMINPPDATE&GETCHP PRFRMIN J15 A FTNR CCS 3.0 SL-149@P a! a"Xa a! a"XPRFRMINPPDATEGETCHP P4ASCHX J16 A FTNR CCS 3.0 SL-149@P a `! a! a"Xa a! a"X a 6 9 2 2X@P+ aıaPASCHX PWRITE*PDATEGETCHP PHXDC J17 A FTNR CCS 3.0 SL-149@P aafRda -a0F 0ac 2 .a `9@P+ac a aA `! aa a( a .a 0@PVa!D Q" !yR *a aa A a! a"X @Pa! a"XـPHXDC  3JkPPDATEPACK P PFFLOTIN J18 A FTNR CCS 3.0 SL-149@P`hA` aXX!!a@bRd@`X X aXT@%@P+T"ahX T,a`aAPFLOTINP8QFI 5HFLOT 78QFL CHX P PFOUT J19 A FTNR CCS 3.0 SL-149@Ph`"Rd@`XT[ZqXn]@1K%TX a`@P+ aX .a a! a"X a! a"X aa`"d`!X%XT Y,@PV]@XMX.aaȝ`h *a a! a"X8 a! a"X? h@PBP@@JI>PFOUT P8QFL OPDATEyPACK rXDC [8QFX YHFLOT Q8QFI P PEOUT J20 A FTNR CCS 3.0 SL-149@Ph`X``` a` a` `/" 4 A *a A    g@P+R@R@ -A` .a ` a! a"X a! a"XX@T@PVXI -`" ` c1Xd 2QTRqXY c1XfT4  3J@Pq[Zd@Xx #  a` aܐ!XTYD]@XX a@P Ea a! a"X? a! a"XF a  +a `"d` 5 aX @PaaXa `aBP@@PEOUT PXDC 8QFL WRITE8QFX PDATEPACK HFLOT 8QFI P PEWRITE J21 A FTNR CCS 3.0 SL-149@P#4h h` PEWRITEPORMTRP P(INITL1 J22 A FTNR CCS 3.0 SL-149@PXHH"4` " "aXaX ahh`XPINITL1RESTREPARABS&SAVE OMMONP PFORMTN J23 A FTNR CCS 3.0 SL-149@PPqa aa a a a a a! a"Xa"  6 9! @P+T d  a a! a"X   `  `@PV  aXaaX" a   a! a"XD o  3J@P aaX'bdRQ"X; aX3 aX+  "X@PaX  "XaX XaXXf" #"Xf" a#@P a a A aA aA  XX" a a A aA  @P  a  aXX"a A a` !RAXaS @P-aXK aX0C  "XaX6  "XAaX)a#@PX"X"a` aX aX#"XZ XNaX aa @P "Xw a! a"Xw a az a a a p a_a( a! @Pa"X^aX]X1 aA a a! a"X a! a"X a! a"X@Pِ2a a Da  a  a  a! a"X 3 ! a! a"X@P PFORMTRCHCNT PWRITEPACK OUT {OUT mOUT eFRMOTRFRMOTEXASC 8XDC &PACEX UOTE OLRTHLOTINFRMINPFRMINSCHX CHX ECPL cNTGR PDATEETCH 8QGETrP PQ8QFI J24 A FTNR CCS 3.0 SL-149@P` ``TBP@PQ8QFI PHFLOT P P+Q8QFL J25 A FTNR CCS 3.0 SL-149  3J@P#dRAR`B@ @"si`  dr$Rd`@PQ8QFL P P0Q8QFX J26 A FTNR CCS 3.0 SL-149@P$dR@ R  DA ) H f H g Add@P+RAaPQ8QFX P PHEXASC J27 A FTNR CCS 3.0 SL-149@PX a#a a a a"a aXPHEXASCPHCNT ESTREXASC NITL1P PHEXDEC J28 A FTNR CCS 3.0 SL-149@PX a#a a a a a"a !RA aXPHEXDECPHCNT ESTREXDC NITL1P PASCII J29 A FTNR CCS 3.0 SL-149@PX a# a a a aXf"  3JPASCII PESTRESCHX NITL1P PDECHEX J30 A FTNR CCS 3.0 SL-149@PX a# a a a a aXbRdQ" f"PDECHEXPESTRECHX NITL1P PAFORM J31 A FTNR CCS 3.0 SL-149@PX a# aa a` aX f" PAFORM PESTREFRMINNITL1P PRFORM J32 A FTNR CCS 3.0 SL-149@PX a# aa a` aX f" PRFORM PESTREFRMINNITL1P PFLOATG J33 A FTNR CCS 3.0 SL-149@PX a#a a a a a"a "a aXG  3JPFLOATGPHCNT ESTREOUT NITL1P PtQ8QD2I K01 A FTNR CCS 3.0 SL-149@PH  H H h@X`X` f`!d`X"``@P+`T@p#``"`\q0T"``` `\@T@PVa@%\Թ\̹1\ú@p@PQ8QD2IQ8QD2F Q8QD2DPARABSDLOG @DEXP RHDFLOT.FALT $P PSGLDBL K03 A FTNR CCS 3.0 SL-149@P H XhTPSNGL DBLE Q8SNGLQ8DBLEPARABSHFLOT P PDABS K04 A FTNR CCS 3.0 SL-149@P HXhT@"\tPDABS Q8DAB PHDFLOTARABSP ɡ  3J PDSQRT K05 A FTNR CCS 3.0 SL-149@P@X"``'d`dR``@ZG* AB ;1`Š 4`T@P+|ܾۚ@h\y@Ő Ɛ @PVǐ B\ν@a 4gRd@R@`\\@@?N^ rA̼@P>L<"aArI$JPDSQRT PARABSHDFLOT*P P$DSIGN K06 A FTNR CCS 3.0 SL-149@P @` `Xah\ b#1Tt`PQ8DSG DSIGN PHDFLOTARABSP PDEXP K08 A FTNR CCS 3.0 SL-149@P@Xh`\P@ %\I}@ @\B[@zw?Cؘ# `>! " H@P+X ``"Q\&Z]|^]^@Ř G" `R|@` @PV``TS\՞LHY^BY^UUUV=UUUV<DDDD;[[9h8hh6@Pw[5I>@X PDEXP   3JPFALT ,HDFLOTYARABSP PDLOG K09 A FTNR CCS 3.0 SL-149@P@Xh@\A@1X"`  Ő@ ```\%Q@P+1`` #d*@@1*A`ߠ4ad` 1`T^-](@PVYC>82,& ٵ ^@@Zy@X @P@@A@@UUUUV?fffff?I$I%>q>Et>N>DDDD>xxxxxPDLOG PFALT HDFLOTJARABSP P DSNCSN K10 A FTNR CCS 3.0 SL-149@P@Xh`\c@```\X\S@P+@Xh`\2@ %\+}@ ```\"@ؘ=Ƙ@PV8ǘ3K@,Ř7X"` TZ}]@Ũ1Gf $ ƪŪ`@P ` `\Ye^Ř]7ƘZ?ǘW;\ҵN `ŘD4@4@P<!?` ``\(\~-]@\fY@<^Y6^Y0^Y*^Y$@P^Y^Y^Y@\t@QAdQAQ@*  3K P PDATAN K11 A FTNR CCS 3.0 SL-149@P@Xh`\T@'\N}@  @@@\B@Q@Ő9!@P+n r! \&[eZ ``_`^`4````\XY]@@PV ! @TFYH]4ڊ՞WSY^MY^GY^A@PY^;Y^5Y^/Y^)Y@ 3`\t\@\@@?>Q@Ke@P?j g>ׁV@U@>ffff6m>qq.>NN=xxxxPDATAN PHDFLOT]ARABSP PuDFLOTN K12 A FTNR CCS 3.0 SL-149@PH  bb@`@P*X X a*` a aX &Baa"aC@PU3%p,` Ȱ#`Xa@PXȰ#`XaȰ#`XTbX&)+25,Ȱ#@P`X TA a!1  !1@PXv`` `">a.`AA&dRARAa 2H a  @Pa a a 4Da a a a Ƞ>`)X X9Tbbb T@@@ @P,` *`@ @id`d`d`  Ȱ.`"Ƞ,@PW2!Ƞ#`'2 ' dXX.#Ȱ.`   3K@P!Aa@ !! A !! A !Aa@Xa@ !! ƁXÁX@@P` !AX`"Š"Š``@ AaaA3Aas@PA``c` 1 m@`$ `ǨA a a @P a "Ƞ-G . a a a a a a a #a Ƞ=`XX(X~#@P.Ȱ.`1   #0a d a  !13d #2d@PY Ad( 2adaa1 aDa1bAa?ad A2@PaF ad2aa1`a1`Da1` a a a-`aaaa@PA&RARAda2H a aaa  ! Ta @Pa a a _XadadRXWaAaA!d@Pذ2H a "a aAa A a hda da da @P0 a aa  a1 a A  a A a A a A a" x a  `@P[ d aa bAa a babAa"H1h #h`A@Pa`Aaa`AaaMaB a #a  A Dda a @Pa #a  n a )a a #a A a A # a 2W @P ,or | AA A   AA A  a A kdRA a @Pda . Ƞ>t` A U@ `a `X"dR@ R @P2 B H gad `Ȱ#`XTbȰ#`X`!d@P]B2 @rdR@`/@oPDFLOT *HDFLOT/PFPERORPROCHKL  3K3P P8DRSTOR K14 A FTNR CCS 3.0 SL-149@P @s""f"bb @s""f"b @s""@P+f""  b`bPDSTOR1RSTOR1DSTOR2"PARABSP PQ8DXP1 K15 A FTNR CCS 3.0 SL-149@P X` h9aaaa&H}H |H%2H M A chxV "Xa@P+ bX\ kJ " H\\@T:\ BKTM@PVB  HI ;a88Aa,h/aAa+aah$cDAag@PhDaau h h HR PQ8DXP1PQ8DXP2LQ8DXPTUARABSHDFLOTRP P Q8DXP9 K16 A FTNR CCS 3.0 SL-149@P H XԺ hfHXhh`Xhh[ HL#dhSH ! @P+laal aa<`9ch9W "X bX *L "H@PVTxx HsLoAAd]@P}|LQ3AaI 'Lv T*a)RH%3I  aHd  3KG@PQ A a#vR  2LaHH ALȱaX \x@PX N[ hhhuhi f[G ߂M^@BPCE}@PGN HJzLLK@PQ8DXP9 Q8DXPTQ8DXP2PFALT HDFLOTWARABSP PQ8QDFN K17 A FTNR CCS 3.0 SL-149@P` ```TBP@PQ8QDFIPHDFLOT P PDOUTN K18 A FTNR CCS 3.0 SL-149@Ph`X`````` a` a` `/" 4 A *a A @P+%lR@@R@@R@ -A` .a ` a! a"X a! a"XX@PV%hJT``XT -`% ` c1X@Pd 2Q\ݵ``Xo c1X|\[Zr@``X # @P a` a!X`` `\YH]@X``X a Da @Pa! a"XJ a! a"XQ a  +a `"d` 5 aX aaX@Pa`aBP@@PDOUT   3K[PXDC 8QFL WRITE8QFX PDATEPACK HDFLOTd8QDFIP PDBLDMY K19 A FTNR CCS 3.0 SL-149@P d"PQ8DXP1Q8DXP9DOUT P *T__mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm>>  3Kommmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3Kmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3Kmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3Kmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmt  3Kmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm_  3KmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmJ  3Kmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm5  3Kmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3Lmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3 L#mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3 L7mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3 LKmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3 L_mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3 Lsmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  32\AL2\O CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm P3D1827 C01 A DRVR CCS 3.0 SL-149@P@ $2A 2A2A( GA%(2H  aT a*@ a'T&@P+OK*'a )a a*T ;I 3  h 1+ h jE@PV " (a ha h"r $  thT a'?ȧahX9'@Paa>T'Ȍ aT`P6`PE@P'` 3 a*a*a)PI1827 $BUFADTBUFR1 ILP408$PMAS300MAKEQ LOG 1827R1827R1827 |ALTDEVPILP408 PNK1827 C02 A DRVR CCS 3.0 SL-149@P a AAAaaa XX"X@ XX XXS@ X a  Da a a@P+  X"I "paX X  D XXXXu@PVhF" T h?%HX9 XX @ +XA%XBAXRX@PXXFh" T h%HX  X]XX X!h  4&@P  o &Q-  cH5a c + > XP @PA @ a XX!" y u D&q X%X Da a   A @P  a %  = q rA 9%    cXY  32p@P-  X%a" A "a# a!2" !  AX XX(PK1827 KLP408C1827 CLP408C1827RE1827 ELP408E1827RF1827 NXTCHRSPFILL&STATUSPPWAITAGE OTREQtTNFMTDIT KGINTP PLPWAIT C03 A DRVR CCS 3.0 SL-149@P aPLPWAITP PCKGINT C04 A DRVR CCS 3.0 SL-149@P : X  T aPCKGINTPCGHOST TATUSP PJEDIT C05 A DRVR CCS 3.0 SL-149@P   A a : B0 AX  A  @aX    D  d@P+ aX !  X 1      ?PEDIT PPFILLXTCHR/P PLDUMMY C06 A DRVR CCS 3.0 SL-149:  32@P  AX    @    A : BO  !a C @P+DA @A!a "  ?  6 a @PMOTREQFTNFMTPAGE 4PXTCHR P P'D1829 C07 A DRVR CCS 3.0 SL-149@P@ 2A 2A a@!T a a Xa XTTPI1829 ICARDRPMAS300&MAKQ #1829 ORMT !1829R1829RP PK1829 C08 A DRVR CCS 3.0 SL-149@PABAAA#AH X*?  1"X a- a.2 , Pa@ @P+X X<- a- aNH*ccBA 5"c 0cX D ! @PV D' @Pb7  T  @# X#A aX?    aPK1829 KCARDRC1829 )CCARDR)C1829R)E1829 xECARDRxE1829RxPFSTIMESTAT GCGHOSTqP PFORMT C09 A DRVR CCS 3.0 SL-149@PX  a(   B a$a'a)%a&X' B  &A%+P"I   32@P+a) a% x XX) 1a Pa X1X'nX 1a" 5  @PV"X(T  " f" & (a( Da%;Da qa ba ca da@P ea fa ga a ya pa `a P9BQ"  }*  {&X'@P " "  h0+1 *1A@Pװ1a .a  f"XX 1a a) a(" da@P'a'  X$H  f" $Nh$(   f") (XB@P-0( a)1 " 6F _4M9 @a %1D rLa% )RB  a   a%a)@PX3 a$aA aTrT" wA&-R.A   -/hX@P h hX-R.L" R @ R 6 Q #@P  "5?=> PFORMT PMAKEQ eLOG k1829 DAULTNDRD29DRD26DRDSMALTDEVmP PFAULTN C10 A DRVR CCS 3.0 SL-149@PHh d  h 2  Ȩ@P`PPFAULTNP P ESTAT C11 A DRVR CCS 3.0 SL-149  32@P"a>a PESTAT P PpD1860 C13 A DRVR CCS 3.0 SL-149@P@H!h" $A"4a4a4h'"@H@"@P+h0 )>`  hT(HXh2 ).T> "%T"@PV2a"TRT'` )hȸPI1860 $ILCTT $INBSY (ISPT %URW #PEWSCDREWCKLMAS300mMAKEQ ELOG T1860 a Aa   H@PV +O C' >,1 .X 'I@P #X121a l@ a aX, ) *  a1aU@P :*a    PCL20 CL40 K1860 C1860 (E1860 F1860 KLCTT CLCTT (ELCTT SELECTPMOT "FER %AITX AIT 'ECVRYvOTCODKEXTIOWA rORMITKREQ *DVRB QP P3CKREQ C15 A DRVR CCS 3.0 SL-149%  32@P  h.$Ac Aha'`@ a a a 1@P+ :a PCKREQ PEWPDTELECT0SPT P P4REWCKL C16 A DRVR CCS 3.0 SL-149@P@HH*h)$ XXa% HXTR ah  @P+1 PREWCKLREWSCD#REWPDT2REWSD PELECTSPT NBSY 1ORMIT1860 P P;FORMIT C17 A DRVR CCS 3.0 SL-149@P h8H(a d".4Á a &C/""120B4C"$4 a '"@P+#4d a  ) a ƀPFORMITP PWAIT C18 A DRVR CCS 3.0 SL-149@P    aPWAIT WAITX POTCOD4K  32P PXXMOT C19 A DRVR CCS 3.0 SL-149@P.Xh 8(a $LhH" !A   9)a    +@P+ .X XX a aX  @PVPADVRB DMOTCODWSFUNC MXMOT PFER K7WEF3K7RW DADT BRITYCPL40 VP PgXFER C20 A DRVR CCS 3.0 SL-149@P$ ! h h #hY.XXhR a aJX$X >a.aX "&  X8"6a" @PVD2   2 PFWA #LWA $PRITYCeRDADT %WRADT @XFER PMICSUBXK7DATK7RW FUNC M1860 "P PNEXTIO C21 A DRVR CCS 3.0 SL-149@P (4 ) ȁaX'# ,B 4 1$% a$ @P+ $a$ T 8a . a $  #X <,a $@PVh /    p  .  hA$ >.a A1aa$ @PV a9aB@` b%'$42@\'#TFT'3l@PTa a BbPCSMD C18331CONTCUDATFLGPSEKINPKSELFLGWANTDRSEKDONOSEKCOMQP83310ALMERR1XSMD gBSMD a T'#  ' 3) a)X?a('!3h5$a53#h@P  *X3$a) ~5%5a54- T'#&B@PC\W\ @%@   T72FF 1 F TA  @P-  2T"  , ( 4#  4  21hE2 : aDS@PX T" %BC %T  @ @ 5a  h#  A @PjC ȸhȸ h AAPXSMD SEEK9 CLRSKNSEKCHKSETFNSqSKALND{SEKCOMSEKDONSEKINPBADSEC SPL4 FPWANTDRDATFLGWCLRINTSMDGDR[DRICHKXDONE FILSMDZECXIT ALTDAImPOLCHKMPDRIVLTOFDRkDASTATCOMPV4PCNDRIVCLRTDAUCLRSTSoCLRDAS5SMDCPA%CONCU BSMD zP PSSMD C77 A DRVR CCS 3.0 SL-149@P X$3D Dh hXh d91TXDhX; !@P+XVXO !X?5 '3XXR' *"Ƞ " hhDXD XEX @PVX="7 XXX" ؝8" F     s  @P  ' a  a a3 a! a"  XX  @P41T  T4 \1" Ra-a0TA. -a XX "@Pa1GAEj"2a17 \B11aaAA @'#B@PCONCU CKOVRLCLRDAS{CLRSTSuCLRTCUCLRTDAoCNDRIVKCUCNSTCYLTRKDASTATDRICHKMSBLSBPOLCHKCLRACRPUSKNPGSMDSTSSMDAERSMDCHSSELFLGPP83310SEKINPMPDVCKSMDGCU COMPV4CLRINT;  33tP PLIKDUM C78 A DRVR CCS 3.0 SL-149@P %TTaB1Fa1FAT a2T a a,#G Xh 8\@P+T,#AhhXtTDXOaAa a \ThxAhvX[XR@PVX5\ a XKX.\ X0aA aa "Fha%\ XaA"a aFha%\ @P  X! Aa Fa   GH1 +a aa@P\hF""H n A 4aAPLIKDUMPSMDCHSSMDACP=CNDRIVKCOMPV4SMDCPS-MSBLSBCKOVRLP PECCALG C79 A DRVR CCS 3.0 SL-149@PX]Xsa! !X hȸfhy "FF2x Tl AF   "@P+c# FX\  ?;H XO  2 0XTth H T @PV"f"  J  h(  K ȸ!h   HbH4 !Gh b@PG 4!F Fa   22 hX\22sX  Es$ @PC sX;XT s@s {s`s{sPs{T\2 &1 T* 1 sX5@Pװ a5 !  T  sX2  Gs a2 TRF #% Fa  G @P H1 +a ZZ h/ hW+h[ hWhWh( * @P- h Xr `= Th Yh  h42Th('h h @PXhhhȸgaH Hh۠ h  !h Z  33@P!ȸ Hh ȴh h hȯ 9Ȩhsqhh؞@Ph h* )  4""W "ȵ$G"د hȬ G"إ hȢ @PG" h`@DPT 6 `.U@@_PECCALGECXIT PSPL4  FILSMDSMDACPKBSMD4 COMPV4XSMD CLRINTCLRSTSDATFLGDASTATSETFNSCLRDASCLRTCUSMDCPS!P PnSMDNDR C80 A DRVR CCS 3.0 SL-149@P h@'##B T+$+hh1@  @P+ 4* T'#&DR  0\'# \'#3#d'  X ih6sȸqh2 6!!XqX1X6"   @P/H;H  >HbH4 hb @ 4@PZ ` h A "!X*  X"HX@P  X "h}|v! d45 'd44n@PXXhhg ""  4 $ZZhX>%B)6:CG X!@P 2<32X0W h,@(Ȱ X## 3 hC@PȰ`Ȱ ȰP h1 h_,hc h_h_h* 01@P1! h &Xr `D Th Yhw h:8Th.-h @P\h hhhȸgaH Hhh  "@Ph1 !ȸ Hh! ȯh h hȨ :@Phjhhhh h) ( r#M "ȱ$G"ث@PݨhȨ G"ءhȞ G"h`@DPT 6 q/  3 3@P`.U@@_PGENFC MDRIVEPST P PQPTDMY D05 A DRVR CCS 3.0 SL-149@PPQPTAPEEPTAPEP PjQ1827 D06 A DRVR CCS 3.0 SL-149@P hWHW hVVhahS @ X"hNNRX/JXT hCF X<9X 986!X B @P+X= h H . #  X Xh  !D 1  X@PV  DATE PQPRINTEPRINT_FORMFD[HEADR1eHEADR2fHEADR3gHEADR4hP PECMDMP D10 A DRVR CCS 3.0 SL-149@PQhsHshHxhE  h>  Ð X3ZZXyBhUHUhT hS@P+RQPOX9hEX7hAX5?h?hX;" XUX 11XQ50.X@PVX  &X" X/̵""خ`P@PHhhX X @X h h Xc ĸ Xn  " X  3!3@PhwXx 9p$ HlpX>gX_XA^X?]X=[WX: ^X- hhVRXX/@P !X^G# 2 hA<2esR4R4!'6211 XVH*h+XB)&%@Pah#X!X X4 Ġ a A ! AtX" **@PD X XhHX XX@Po 1XX7D λHD h5DhȻh$а @PhDeHthPCOUTV4OLDUMP"P PDSKCDR D11 A DRVR CCS 3.0 SL-149@P hHh+hXh~h }~z!t  omfh9b@P+huadhrDh gkHDhaec^" SIFSR  @PV;  ! @hB   4Dh112,n0ؼ*ȸ*H @P b h d A$ yPNUMWDSCDRIVEP POD18326 D51 A DRVR CCS 3.0 SL-149@P@@`" A2A2A$"@@H"h )THXT @P+. ȁ2"TTRT$`!h XPI18326CURPDTI20 :NEXUNI<PMAS300MWC GALTDEV8LOG 5MAKEQ )LCTT KLCT2 'E18326C18326  3"3P PKK18326 D52 A DRVR CCS 3.0 SL-149@PXXXX@X0aX BH DhaA@P+BH  X / T  Xa " 4a PKLCT2 E18326 FLCTT SLCTT QLCTT &STATUU=PURPDTLCTT LCTT LCTT LCTT LCTT P P+B18326 D53 A DRVR CCS 3.0 SL-149@P aaa ahhh 0 XXa/D *a * X ߱ +a &0 PBLCTT CONBUS UNTSEL!SELMOD$SELEC2)POT RSCNT ELTA TATUULCTT P PT18326 D54 A DRVR CCS 3.0 SL-149@Pa@PWLCTT C18326P P(V18326 D55 A DRVR CCS 3.0 SL-149@P@T XXa a X":$`T *PVLCTT PCGHOST NTSEL'TATUU LCTT URPDT  3#4P PN18326 D56 A DRVR CCS 3.0 SL-149@P / TE Xa# + a ) # 1"I 6 Ta " ! @P+ ,X!`@ XD X: X> # #- {  XB p - @PVhK (a a3hC bh:aLh3"3cekmnoq Nh&aK@Ph " 2 << " XY XN H  X $#1@P($ A 'B L KB F C 32a <,a |X @P#-  X   X  #, h &Xj (" Y @P)a  Q3Z HH c Vs 11* T$@P-a .1aT XY1  "T* + - a  =a  X @PXta sX #  X,a"#$ :"a" ("@ "@P" W" $"    X XVPNLCTT FRSTWD8FUNCTNLCNTINUNEXMOT MOTITRTRNSOKALARM aFWA2 6NUMBR 4EOT sFILESTPMAKEQ 7COMPV4CLCTT JEVNRD_20 9WNDCKCHEDNWC EVENT/LCTT LCTT LCTT P PL18326 D57 A DRVR CCS 3.0 SL-149@Pa ) a  h1aPLLCTT PWC P G  3$4 PHW18326 D58 A DRVR CCS 3.0 SL-149@P@X h "hTRH # ` aTR $@#" @P+ #  ` 9a haX>hTRPRWLCTTRWNDCK'RWC 1SCHEDN;PLCTT EXUNIGEXMOT9OTITR7ONBUS&URPDTP PR18326 D59 A DRVR CCS 3.0 SL-149@P X{ -a Aaj!gh # `` `XZXv+ A @P+ HA ,'Q H A#a &"DQ0Y>a Ta@PV V@ `X!#,  hX1 X.Ȯ h  -a -@PLa  H #  X af hXDh@P X1  d` X hX X hX ,+ 0PRLCTT DELTA |ERSCNTPLARM OT UMBR ELMODOELEC2HRNSOKVLCTT ILESTCNTINUUNCTNRSTWD WA2 LCTT P PGS18326 D60 A DRVR CCS 3.0 SL-149@P T, 1 $  a h & %0A h #!H &X@P+X4!hBXXXXXXXH  " @PVL"}||B!hs "lp nmm!hihh  cd`@_XH\Y@PXȈTmQ a q `  @&1122334455667788990!="'#:$>%"& '/(S)TUVW)@  3%4(@PXYZ_,=(%-\/@-J*KL?M+NOP QR<!,$0*] ;;^+ ABCDEFGHI ? ..)>[ <#:@PhrXX= $  Ta!hXBXXX@PXXX h f"B !hhbh cȯ`@@P-eH]m ̖f" ؓȒPSEVENTSEVNRDPCOMPV4P PQ18331 D72 A DRVR CCS 3.0 SL-149@PuX 'hNs" !jB chd^>\Zh]* 7i hg@P+jgSnNB JnFB B `Xe d7`dt `D@PV(XQ!`1XEhhUh ` X4 @P ` AUTOLOAD ERROR - RETRY IN PROGRESSh%H&a@PRH"h" hXM hBa8 h fhh h h!X @PX h h yX!"l n2!91 ) @] Kh@P~X U R M Ⱦ!  DX`!=)ȭH]`X B@P-2)ȢHbȜd @4 `hȏ$ JhH؇ h5XEdhcBHz@PXX|  X0m"iH4hA">4 h@P@@77 h#  A jC ȸhȸ h  m@P k hfXy hX"XP1 \~X#XDXW uhJ @Pʪ h)ʭh?C bh84 .X&51X3 Qh+# K%1X=  3&4<@Pw =Xj! "  F ` V  s@P/O  H  A  h h h  ՠXXc@PZX"XX%  Ȼ4XIXX XX; 2o1"XOXM@PYȝ,+ȕ  C hh 7 O h#  l @Pi@k,9db8X"XYX !@P> GhX ih6mkh2 6!!XqX/X4"   H@P'H q >HbH4 hb @ 4 `@P1 h A "!X*   X"HX  @P\ X "h\[v! d45 'd44nX@PXbha ""  4 $TThR:%<)04=A X! @P2532X*< h&@"Ȱ X.Ȱ`@PȰ ȰP h1 h_,hc h_h_h* 01! h &@PXr `D Th Yhj h:8Th.-h h @P3hhhgaH Hhרh  "h$ @P^!ȸ Hh ȯh h hȨ :Ȩhjh@Phhh h) ( r#M "ȱ$G"ثhȨ G"ء@PhȞ G"h`@DPT 6 `.U@@P@_   @(  # PMMINITQMASS EMASS SIZMASMAXSECNFILESP2RETN   3'4PP PyS1811T D75 A DRVR CCS 3.0 SL-149@PD    ' X= XSD P   p , ` 0/ 0  -1 @P+ D   f      w      @PV0  "hH TD X    X  PS1811TI1811TsM1811T5PMI ^TSCNACOP PM18326 D79 A DRVR CCS 3.0 SL-149@P"Hd)dhf h'h!&BH\Ha!dhW h h h hh @P+ 0#HX-@H% A!HA a ! A X '@PV D Fh`@Pj  hPCURPDTgI20 eMGDRIVMGREADIDRIVEEWES qEWES1 qPLCTT SP PDQK8326 D81 A DRVR CCS 3.0 SL-149@PXXXXX BH!DhaABH  @P+X  T  Xa " 4a PKLCTT FLCTT SLCTT QLCTT STATUU6q  3(4dPURPDTLCTT LCTT LCTT LCTT LCTT P P,QB8326 D82 A DRVR CCS 3.0 SL-149@P aa ahhhXaD a X  a   @P+PBLCTT UNTSELSELMOD#SELECT*POT RSCNT ELTA TATUU LCTT P P QW8326 D83 A DRVR CCS 3.0 SL-149@PXPWLCTT PTATUUP PQV8326 D84 A DRVR CCS 3.0 SL-149@P PVLCTT PNTSELP PQN8326 D85 A DRVR CCS 3.0 SL-149@P  TH Xa  a  6I : Xa " $  3)4x@P+ X!`@ XD X< X@   F  XD  @PV hQ a a4hG hh=aLh5"5ikrtuvx@PRh'aKh " 2 <> " X^ XR H  X @P'1($ A ( M M G C 3a@Px a cX   X   X   h@P Xr  V @a  Q3R HH c On@P- 11 X%a  @a a F XZ1  "@PXX; ,  a  a X ta sX   @PX*a" "a"@ "" W" $"  @P X XpPNLCTT FRSTWD:FUNCTNPCNTINUNEXMOTMOTITRTRNSOK-ALARM {FWA 8NUMBR 6EOT FILESTPOMPV4[LCTT cEVNRDy20 QWNDCKEVENT1LCTT LCTT LCTT P PQL8326 D86 A DRVR CCS 3.0 SL-149@Pa @ a @a a PLLCTT P PQX8326 D87 A DRVR CCS 3.0 SL-149@P#   a hPRWNDCK  3*4PLCTT EXMOTOTITRURPDTP PQR8326 D88 A DRVR CCS 3.0 SL-149@P X a Aaq!no  `` `X`X}. @P+A HA )Q H A&a "DR _Ba@PV Ta VD `X$  hX4 X1Ȫ h  a @PRa  H   X a^@P hXDh X1  d` X hX X hX @P &PRLCTT DELTA ERSCNTPLARM OT UMBR ELMODUELECTNRNSOK\LCTT ILESTCNTINUUNCTNRSTWD WA LCTT P PQS8326 D89 A DRVR CCS 3.0 SL-149@P T- 1   a h  0A h !H@P+:X!h1BXXXXXXXH  @PV L "BhX  Ta!hXBX@PXXXXX θh fB PSEVENTSEVNRDfPCOMPV4qP S  3+4 PQCOMP D90 A DRVR CCS 3.0 SL-149@P2esR4R4!PCOMPV4P P@CR2629 D93 A DRVR CCS 3.0 SL-149@P1 32547698=&:'">/0TSVUXWZY,\%(@_J-LKNMPORQ$!]*^;A+CBEDGFIH.?[)#<1 32547698#:'@"=/0TSVU@P+XWZY,\_%?>J-LKNMPORQ$])*^;A&CBEDGFIH.[(P bT 6a#w  A  " f"PICONSLPDUMPOTLPORTS TERMLU?MAKEQ nP PTRMDVR E01 A DRVR CCS 3.0 SL-149@P1`H*  l"h$"X$XeT,3XX XX4 X X@ @P+! h hn     3,4@PVbX *M"T  b " Xa   T ,3@P  ,    b<       T" Te X+@P, ! X *<s     T Xh1 @Ph0  * %   L"      @P  h    % h L3"3  &T@P-QHl3"3 TFD- 2TR@ <a X X  "@PX&   1-Xn3TR T T T "M3"@PPETRMNLBCMREQTI1811ZPP1811L1PCCP1 2PCONSLDUMPOTMIDRCP1mIDR12 IDR60 %IDR56 +INIPRTLOG2 6P PTRMIOR E02 A DRVR CCS 3.0 SL-149@P@X0-   w X   X&  X 0  X T@P+ D %T   0   20 !@PV f Xf f  f c"f  <e"@Pv 0  ;2 T*    TT w  w @P@ HXJ@c"#  "  ( w' @P  c" #c"X?c"#c"X8c"      0    @P" "  1XwX   w" 4<<@P-w    @  - X,($" #  % 2  3-4@PXA "b0  @   b    PCTRMNLINIPRTPPCCP1 0IDR4 .DUMPOTPLENTHPORTS PROMTR(M1811TI1811TS1811T>CMREQTP P'CALLCP E03 A DRVR CCS 3.0 SL-149@P  h H h hX hu "jeB @P+h[ Xs3 s3s#3!hT @PVP_qXUET  9q X]GCT  7?h?ST;OP@P g"B lWRITE ERROR STATUS= READ ERROR S@PTATUS= READY FOR TEST. ENTER STOP TO TERMINATE  @P Z"^#s3"hTB, hN@P hKhG h&s s033,Xk;H h76451&Fhh.('XMT @P-$qX<%h4$h3T ) U  TE@PXRMINAL FWRITE TEST ERROR ON PORT STATUS= HHHHHH H@P 0F 0L   l q 0ofhH33&@P35ss s/Zh hsTh/T(-dRDhU$ h 3@hT @PqWTh@X4 AT  5`P@PERROR ON STATUS= TPNBRLINFOLDUMPCCPLU EPORTSPORTS "INHEX}  3.4P PCCPGO E04 A DRVR CCS 3.0 . SL-149@PX:TAT AB0 @aK  :P@P+, 1T0hZ = a ddd2    T0@PV  3  s& 13'&%T"hT@P Ȁ02"T;@|T24h`hT  h@PTTXAE!Jh>h9h7hX"  @P3T T hhT   MICDMP@PCPFILE@hXh|h{hvTXPTnli" hhHfՈT@P-X>T\ZW" hVHTΠ hKT-X&T1  9 q h3sT  h !1dH `h  @PV`AM m m`PF@PFILE NOT FOUNDra  305PGETSECPEND0V4P P\KICKOF E08 A DRVR CCS 3.0 SL-149@PH$A XXA "3TRTCPFILEh@P+h 3sT MICRO SUBROUTINES NOT LOADED CP FILE LOAD FAILED @PV PCCPLU MICSB2DCLOCKCPGO ETSECP PPARAMS E10 A DRVR CCS 3.0 SL-149@Ph""8%d"PQ8PREPQ8PKUPPEND0V4 P P DRCCP1 E11 A DRVR CCS 3.0 SL-149@P@Hi RAl" X`[ bl3"3TEH TR8THLlw"hKE@P+C!,T;l"h:8   X2Xv,,3 X'X X!X? @PVXXJX,  T h h@Pn   bTM"  b   @P1 TkT/ & T,3  , < THe  315@P h T T, /  T *<@Ps  TPIDRCP1IDR4 IDR12 IDR56 XIDR60 [PI1811Z*QUEUP WCONT DISABLABSREDUNFIX FIXONE1COMREQ NBRLIN,PORTS \LOG2 tP P#DRCCP2 E12 A DRVR CCS 3.0 SL-149@P 2 Th2T  p%$""+  ``*  @P+  TTT  <X\w"T \"  TT a \" @PV  $ T^# %^#h3TRGXW !'s@Ps  a ? Ta%h u $  ` T@P  b <3 <3  "T13$? hh  T@P ^"n^# n h !hX/  h f h !h @P\" z\w"TDX:  TPINPUT CPSEND:BACK WCONT QUEUP UNQUE COPYQ QCOUNTQIN QOUT PTCOMPL5FIXONEIDRCP1IDR4 COMREQACK 7GET PUT NSORDER!RESET MESAGEMAXQUEENDQUEOUTQUEPPORTS CCPLU P PJDRCCP3 E13 A DRVR CCS 3.0 SL-149@Ph5 h4L"  *  #     p  @P+`  h    % h!L3"3 v  325,@PV &TQHl3"3 TFD-T2TR"!h"%"h H@PT f"f#3sTL%5@PCP OUTPUT NOT READY, FORCE RESTART CP CONFIG LINE ERROR= CP CONFIG TERM E@PRROR= CP DOWN CP STARTED CP LINE FAILURE,PORT= CE ERROR= @PCP OUTPUT QUEUE FULL, FORCE RESTART CP ILLEGAL BLOCK TYPE=CP ILLEGAL CMD@P- BLOCK DPSP=CP MULTIPLE BACK RETURNS, PORT LOCN=PCOMREQMESAGEsPUNFIX kBINHEXP PDRCCP4 E14 A DRVR CCS 3.0 SL-149@P@ThcTha  (Z  :  Ts   &@P+   2 T."TA XX_ X @PVX"X* Xo T7w   TeTw  T@Pw01s  T$   TTTw@P    Tt T"GET CPSENDCOMREQPCSTATSNSTATSMESAGEBACK LOG P 6  335@ PDRCCP5 E15 A DRVR CCS 3.0 SL-149@PHAHhTHf4hyT xhz  rhuor @P+ !ksh f wcTs\  ND p @PVwB sA pp s h>1`*x54" h./f'TL@Pf &$  f @P1!>Ոhhh  h;`V"T@PȻ"PGET PTERMCK}CPTRACFIXONE>CPADDRTCOMPLCPSET P PDRCCP6 E16 A DRVR CCS 3.0 SL-149@Ph^"h^#hTHf4hwTT h @P+h} * THsHz T2Hs d h* ,  ,w@PVw 1> jY A hSGsQ  sK<3F   3 3># 3 w-@P7H,3 30#-3 *ww(#  w w  s w@P 3    H ` !@P    "l  s"wöG  3l @Ps  3fª  ؤ X1 ( X+ ȗ h u hXȖ @P-…  1X| X uXTk1!cJ ^WhZ@PXVhU RhS LhKG"F A= =!H \  345T@P Z H&h& `X;`V"TVPPUT PCPTRACPORTS TCOMPLFIXONECPADDRCPSET "P PDRCCP7 E17 A DRVR CCS 3.0 SL-149@P3TP : :.:H:E =<3 =3hN<K83 T$0@P+  T?Ȁ22" T; ==3 T/Ȁ12" a T;3@PVTP  a X  h X XT  "&; @P 15 '-   % `3%TR@PT  %h3TR& !3TR q H s @PT G !PDCLOCKTIME nINITZEPBACK CLINE IDRCP1COMREQMESAGEHKICKOF)EPORTSPORTS LOG RCCPLU P PDRCCP8 E18 A DRVR CCS 3.0 SL-149@PT T T "N"& &B0 " T\"@P+bX /  b+. h#`h3Ȁ"@PVX4h  fTh(Ih!HhD@PhEX4h TbT'++1  fT+@PX. /.fT*Xu.0.ETXg/P t  355h@P .# :"U"w   pPABSREDFIXONEUNFIX SORDER#DISABLjENABLEqRESET CACK ICTERMLCLINE xCSTATSNSTATSCPADDRTCOMPLPTERMCKPCDRCP1QUEUP MICSB2CPAREAPORTS CPSET P *T__mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm۝  365|mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmq  375mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm\  385mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmG  395mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm2  3:5mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3;5mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3<5mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3=6mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3>6mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3?60mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3@6DmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmALM6EO CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm P{aASSEM A01 A ASSM CCS 3.0 SL-149@P k d f pfvB 0 h hh5 phvhTZN@P+" fo fuX' hTLABS BASE ERR6 hPASS1 PASS@PV2 PASS3 TABLSTXREF PASSEM ASSIM PASSEM P PASS1 A02 A ASSM CCS 3.0 SL-149@P k dC f fB 0 h hh5  hhTZN@P+" f fX' hTLABS BASE ERR6 hPASS1 PASS@PV2 PASS3 TABLSTXREF dd Cd M lddl2@Pkd `B f q dL Jaa a! d Ia aUUaaadhmh@PhndX 0 c1 q\KT:5>Cd H  fD q8-@P -n< +n:\JXP\"\54#   dnT!a" a @PT\ B!g +n  -n +n  -n"aT9dK@P- A("(d Q< `( ; da(  -n( +n*  B ,n( +n ba*@PX)* q ( bR U 4\XVa - #n q@P # q 2TTQ J aa a A a''@PX' `a'TQ C a a a X    XPXN ?$ a#f  3A6X@P64$( a4h u  Ha(M| I S Ga @P uR u @P1 *nX!X `T a "A2 0 X !" \Xha@P\! a'M' M ""h)E *n )X'H hDh aT@PL SQMCMDOP**@P** ********** A(  2( :c((a- a(- A)*+, X   ( @P ff q a)a*#F a( ?# (a( &c+ A (c# qTL@P MASS STORAGE OVERFLOW $ ?#f 64$( a4a !d@P Q `~0N6ɱ~N)JH/Nl%>9%%.%. NS2SE1@PDL.L0L-N:N.N0N-NNMMNMNMƳK RARMRQRBPaPmPqPb-1"-1"0-010" - 1 "|X5 @Po4 s S;:$$&2t@o$9NTΏ6A]p#^g5g#Eg@ `HPX(@P08hpxhJHJGH?h> _:n: q H66T `"0 @Ph A& `#4 ZdnTL  OV CORE RES. MACRO DIR. ?@P%8  3B6l`PPPASS1 aMCHPR JJAN12PIL 1READIMGETOP RECV MER nMDEX CHPU CONAC rMACER PUNT RIMSB {PP1D SKLOUTGCONAB P1A READI *PGFILE MACROSMC7A MCCON MCNAM DISKW5DIRSCHSLMC MC5 CO RCO (MACCALDIN ENDMACPMACCON MACGETMACDEFOPT DOUT BGFL1 GTFIL MAXSECkPPASS1 PPA1PR2 A03 A ASSM CCS 3.0 SL-149@Pa( A)@ #2 d, C   1` R2 C `  a@P+ a TsT\y aX#f $n %n A. l`  aT/@PVXpn nA h\J\J\JA J!1DXL#Xp a aT3@P3T$X\* \3a(\:  '(a( \9 ( qJ \9@P <a.X.h n a  ATU$ $ \@P # q 1#nX!\ T 0 aA a \\\@P3 a aX\X"1X1X0ah R  H aȀ@P-naaT aata Q H U $ n H a  @PXa( a\( Aah ahy _nv qa6alo nk a TR @P %  *!]\ A\W= a  \X"Z26 A? _a6@P a 4  Q\ aaa6aXm8    A6 @P * n #c. q: Xi a  *n  "jX" " _ @Pnb q^ah [XE E(  2( 2 A :c((a+ a(+ A*a()X)(X' X%X  3C6@P/ aa(@ *n a (9T #. ra\ a Ga a R@PZ _n  E 0aXUalTa a a\!6S @P  *\ X,  T4T31\ a7X  aa6X6 R\66 \@P1 TX7 7a(!"ȟ\% X  `l@P h q aa X" A"T1 HaF LXH _H h@Ph aTZ;MACROSh H aTL;` `h@P1h H aTH;` fD q a \)x Q B !TL@P\ (n q aTH; (`a a TaGETOP PREADIMPIL JJAN125MCHPR P  3D6 PvPASS2 A04 A ASSM CCS 3.0 SL-149@P k d f kfqB 0 h hh5  khqhTZN@P+" fj fpX' hTLABS BASE ERR6 hPASS1 PASS@PV2 PASS3 TABLSTXREF t` a#a a7a8a a9aa=T= 0@P`A  a?a> c@ q@aF AIT a h8h7h6 cD qahX !@P alrA 0h!d Bar a8r9 A9T )a  anhi@PXc`P8@P:TL  7 a7FAgAX Aa**aa c B T agaQ *w@Pe nq9T aV  2V :cVVa[ aV[ AWXYȅZ D7  D@PDSEXLBPPOPRGRLOVUDMO  Xi\UQA^m \J\I Fj$c: q # @P   j r  *nn 9Tl`P @PC\\ "AZ q al al\m  HlAa4aBXe@P aXaYM\ C aMXYYa1\Ya!\XaW\AXl % BZW @PI X D   RTLBFV\L ak\m 1X%m8\ akj\B amX@Ptm  aj$TT Xm aT aa\`  @P  \ \eam A' 1 a\<  am 4aT@Pm  1 aj\7h" cM aXdaZXP a 2a\ h@PaMT am aakTBcm4B kTma^A  B   3E6@P $1qFaq4o  aMAA  cVB Tl alM@PK\A\ D B Q" Q 1 a3\\VcV aM\ am a@Pv V V r"]^q4btcqFao aoqTmi\@Pmaq cP q ARTaQm  \Am 2\ aQaRa+A^F 3S@P0_Q-CaaaQ(\$ UT1L \ aQ`daa\  ahaRaRT@PRQCSbA!  Ac R aQ D TB  rU cUcm Ac11q*a@P"ARaR aaQm t AS aQ U U QAc QAQc  QaUa@PMaTQGUAUa!T" 4"BcaaT 1aCaC Tahd@PxCaC& TCQX C aC ]cF qQ:@P d `d TCTD X 8c qh H a8TLX@P8c d D8PPASS2 aPCO nIFR ASSEM NEXT PRNT ER CCOT COP MOVE UP1 UP2 ADC ZEIF PALF NUM jDEC ~VFD IFA IFC 5EMC LST NLS NAM1 NAM AXPR NAMC PUNC PDSKWLNIMJ SYCH RESTBLTBLIN D5 CHPR sRECV CHPU DD1C N2 OB DOUT DIN PLBPK SYPT ZSYTAB}PPASS2 PvPA2PR2 A05 A ASSM CCS 3.0 SL-149@P"F]UH H%Ac `d d c`>bA w@P+ RR  ]H:h/F \ JL . XTT E TT@PV1XXI aX7HI df CwFF 1>?  3F6@P !7  c qTL =h>T Da a>?a>a@a@XNMASS S@PTORAGE OVERFLOW > @AX$ >a=h>TD>?a>=h>T(X @P  A @>a=he>\=hs@A>\hh = f Af@P\A   TR alk\% -" \ aF CT^mq[n(!@P-oC\0ikT AamTaN aO  + -b  aO1@PXkwaTAbCT7T mO maNf  "X7wTN  T@Pn$1p +tq -o aq T Qp  [iUAq T Apl @Pl q HaJ({JM Ii S Gal uR u X 8aJXJ6R\(3^0h C@P1\^m 1 aRaQ TS? 7yxk\ aRaQm @P\\_^ \Xxm  \\\ B \ GKINX11\ @P bIahIFf qX hN $#bXQ\\ Q@Pb\ E \TX1\ \N  aCaaQAAHakTE B q  3G6@PVCQRAAaCQa@F=haXTN TB c q PAAABACA %HG@PAT `hB aAaBaC7 0 c q al a a9 cD q a @P3a7 **cB NNaTG7h H aTL` `hh H aT@P^HK` `h aGaHF aF ? FaF H 6cF B@P  P C D X-P-C-D@PhHh `h`1X& dhf  Dhh`1X  hf D@Phh`  fTD dhf( dfPZSYTABSYPT 7LBPK DIN XDOUT DOB UN2 6D1C ]CHPU RECV lCHPR D5 /TBLIN RESTBLPSYCH IMJ DSKWLNNPPUNC  IFR PCO NEXT ER NAMC +PRNT ?AXPR NAM NAM1 NLS LST EMC IFC PIFA COT COP _ASSEM 1VFD DEC NUM ALF EIF ADC UP2 MUP1 LMOVE NP PvPASS3 A06 A ASSM CCS 3.0 SL-149@P k d f kfqB 0 h hh5  khqhTZN@P+" fj fpX' hTLABS BASE ERR6 hPASS1 PASS@PV2 PASS3 TABLSTXREF fjdih Ȅidid g aa8a5a6hTF@Pa`   T$18 h h $h1 hh Tadh@P T cD qahd 8"TX/q^# Tn&T al@P aV  2V :cVVa[ aV[ AWXYȁZ rA 0h4d Bar r,9@P A9T )$a  an  c A y2t tA "XAanU  3H6`P-_@P8o Tm TTT{ aaa8UJ\"A A a P@P a A \Q P C D X-P-C-DCTAaaX aGaHF @P aF ? FaF H >cF B  8ìcs q S h7 l @P \ hXy5Xd T hDsX X 8g qhH XT@P8Ȓ1X a8TLU a@PAACA AdX eJc a X 0@PcAc aT 8aec rdQC Tc  dXe AT aAc @P@  q  :EV B c`VWXȁY 0c q gA @P a XX aTL]s Xh  A  H@Ph= 0j7 q aTL]# hT #hr#oa@PZAg **aAXAaX aQagHU `P:@PUc d  D8 D D5 D6DSEXLBPPOPRGRLOVUDMO****** **********@P }F]UH H%Ac  `dd c`>bA  y @PRTX >@AX >a>?a>=d>T   @P A @>a=l@A>\T  alk\5 T aF CT^m@Pqnqgo " A aoX oikTAa@P) \mTaN aO  +aO1 -k ,AJ mO maN @PTg  "T.i@PchHh `h`1X dhf  Dhh`1X hf Dh`  3I6@P `d5 fT5 dh f dfPPASS3 aPCO PCOSETPRNFLGPJECT JJ5 CARCONNEXT STATUSEND WDPK LDCP RECV PUNC PRBPK EUNCP {PRNT WRIT ER CO UCOWR aCORD eOE )SYCH IGNORETBLIN RESTBLPDISKW5OFJ2 SKPROCDISKR5MAPR _REGP NN3 BCHPU ZMOVE DOUT CHPR #DIN EJECT RP2 PPASS3 Pv>PA3PR2 A07 A ASSM CCS 3.0 SL-149@Pn%1p +q - aq Tp  [i UAq T Apl @P+l q Ha(KzM Ii S Gal uR u <am Ai @ @PV ; #)DI[i c] q\u m yAmA ehPDr @Pag_e > !( 9 'Z Ae_AM  A` J a3mm]c]`dB @P14  Taa ae Qamda mjxAav Aa{axmu@PbA1 T# agT( Am  ahd c] qg akaPg]lQ^h D@P`C !A`VbbkAb abYj_ aPAb^hhO@P-C L3 3  z   aPAdX 6 5 2 1 @PXaeWO  o|XfUo 1e><]{+"@PvhmaN M  D B SXiEDX&+EAaJR"P cAJ@P AQDXYZQaJwXkRAF\eh aR \UB m q^  [EX1aJW@P\?E\CR\DU aJ\:\ /H9e #T d  3K7 @PVX \X \X  PAGE 0  @PDATE: MO/DA/YR aXG TTA aaR 2 aR\R aR@P h cP q ARTaQfSm  \m 2\ aQaRahA^F 3S@P _Q CaaaQYq\l \\h AT2\T L  aQ`Yd@PBAaa\@MPm .S +bN2L 3 LaQ̲bKN P̂b`@P-daRCL db LSOaaha@=h>XTRQaRQoSbA@PX!  Ac R aQ D TB  rU cUcm Ac19q2aRARaR aaQm@P SAS. t AS( aQ U U QAc QxAQc  QaUaaTQ@PGUAUa!Ta" 4#BcaaTB!1aQX @PC aC ]cF qNO b aN\tfQEN2 hm i g @PeO rNQ# JP QqqhϱRaRaQRCc aRaR!dI1aEJaJ@P/C1Zh?JaJNRqMZD L"aKQAU AQm. \(     @PZ JaJ\  am\P\\\m N'KaJUaQaN@PQD  \RJaJ\mRA!dam R Y CQLQYC aR!@PQaQR 2 \ RJaJQmi\ \ AWAXAZ     @P VCVJAJ\ \ h H a5TLh H a6TH`@P6 `h aaJ aL aaPaQaajahTmS     Tj aa@P1aP aXr ajaoTm aaJ8 3j aNTaofh@P\E \ a i   C aX5m 2 1j\E @P\ aabadaj" c aTAX j T am P  Qu\  3L74@P  U C T- "qRA  C bAVaVR!A A @P݁aC AJaJ aTkTlT aJ cV qX7ab gTm @P\.aaabX5aamB R C Z A\XaVX%\T" qVad\cWm 7 B"@P3T   l al  a]ae\e 2 2] Sa]eam ]zA]v]@P^tmrA] a/X!I Ae ! A\<eQC!aQ!aaX\aXXWdYZ!@PaV 2 aVCA aabaadaJm amTwUdaV %aVE!  d@P'daX Ae2ZaVa2YY AY 1VPM2J5 TA\HhhhAI\B\HkhkBT\ h7 !\X \X  d  hs@PHXHXHXH nB  h HH  0F 0H  3M7H@P- 0F 0  PGM= () COM = () DAT = () @PX Pa 5 1XT1T aD AT aaPa@P!aX\1\C A\Pa] a^]XFaGaHa A\X7 uT@P dX a aa aT3aXTA# aT aX1T=@Pa\XAaaaa\,, ac T XaFcGcHcT 1AT@PdT$AVac Vc C #AaAa\LX3& 8c qX=X<Ia @P/ c A XX a8T\{8\4X&! aT\@PZ!XyXs a8TD{8ERRORS*Tah H TaFaF@P2hadahFc Gc Hc hc D 8AA 9AXr> @AX @P>a>?a>=hR>T   A @>a=h8@A>T@P gA   XXU aTL  Xh =@PA  Hh; 0j5 q aTLIAc @  q  :EV@P1 Bc`VWXȁY 0c q`P\@P{c d  D8 D D6 D5****** ********** P C D X-P-C-D aGaH@PF aF ? FaF H 6cF B  aV  2V :cVVaZ aVZ @PAWXY 85 ìcs qh H"h a5TL@Ph H a6TH`6 `h hQ7 d TP @P'XXX hT DsX 8c qhH Xȩ1X a8TL{@PRAg**aAXbAaXx aQagH*DSEXLBPPOPRGRLOVUDMO=  3N7\@P} h}h Xd a (X dghH  aTL@P 5hXhp a :jPB pB0 0HRB8  K@PHJ 0UhB ""hL ""hD ""B /h> /H9h $X ,X@P X/ X PAGE 0 DATE: MO@P)/DA/YR *** S Y M B O L T A B L E *** @P Gh( a  hi `h iHh  ` H fj (`hh@Pr@g ?g d dhh+8l dihh@Ph6 f j `h`hjiXOih  ` bh  H~@Pi` h52b 2  `b `c!i `g a ("@P h A!` `P`P @P  hh h hXe h`&2 1 d h" @P8H"f  hȾȽ @e  hȪ`ت12@PcȤ !'ȡ"Ț H"f " `b h  h@P{ u hrph c hbHd_ ^ h[ hT_@P `XhHh HX ( X (X29XvFfGf Hf@PIaK X7]f ^f  hĘ( 1 $ AX HXe@P  XX] h\B`Pu]  3O7p@PHKB!KdBaK hK 0 aKp 0c]K 0 aK h0]c]C H] -@PHa] h aGaHF aF ? FeF H 6eF daIh _@Ps f  q _ f qPPASS4 aPPASS4 PvXREF A10 A ASSM CCS 3.0 SL-149@P k d f kfqB 0 h hh5 khqhTZN@P+" fj fpX' hTLABS BASE ERR6 hPASS1 PASS@PV2 PASS3 TABLSTXREF TFa   h $hh1 h8@P ` ai `hiHh  ` Hfj `hh؈@@P g:g ddB dihhh6 fj `h0hjiX@P ih  `bh   H`gh i` $  `~@P1Whs`Hp XhXc daK Xy  ]f^fUX F@P 2fGfHf IaJaKX DfEf  (f  KXP ]f ^f _f() f X@P] i` $ `1@h `H XhX @PdaK X  ]f^fX" FfGf HfIaJX8 Df EfX b@P`gi` 3 `2?h`H X;h@PX' daK X ]f ^fX  FfGfHf IaJX Df Ef@P X `c ho `h `c17@P&h `d @ aKXk, f]f^f  HA"dd "r  3P7@PQX HX   Ȯd` X`B@P ri` hb 2  `b `! i ` g a @P" h A ! ` `P`P@P hh h hX= h`&2 1 d h" @PH"f  hȾȽ @e  hȪ`ت12@P Ȥ !'ȡ"Ț H"f " `b h  h@P8{ u hrph c hbHd_ ^ h[ hT_@P a` XhUHhS HX::XAFfGf HfIaK X]f@P ^f  h̘ 1$  Xf HXWX[@PXN "XH a kd  (XHb1 / aT\!"aK 2@PXL X]h)^h(X  X! h X  X  X c q@P @P ERRORS "JeXX X X XX !X a XX@P>X X XXADhcDRhaESh^S h\ !X a XXX@Pi X XX}VAh9LUh7E h5 h3X a XXe E Q U I V A@P L E N C E S ----------------------- DEF.LINE NAME VALUE REFERENCED AT @PLINE NUMBER S Y M B O L S ------------- E X T E R N A L S *** A L P H A B E T I C@P A L S O R T O F S Y M B O L S *** _ f  q _ f qhH   3Q7@P aTL 5hXh p a :jCB (pB@P@0 0HEB8  >H= 0ih5 ""h? ""h7 ""B /h1 /H,@Pkh t $XX PAGE 0 DATE: MO/D@PA/YR D@PHK 0 aKp 0c]K 0 aK h0]c]C H aGaHF  aF ?@PȢ FeF H 6eF daIh J 2 A :cDJD 2 A :ȃDcD@PE JHaJh H a6TH`6 `h( D6PXREF PILIBMAC A11 A ASSM CCS 3.0 SL-149@PuS*2*S9f1<@P ` f q aUUaa aa ahTFa8K  T\@P+@`TT aTn$-!# X[4# 1 3a dn@P VT 0` a`T 02 X'TL  aTH `@PTT `X TT H aTL ` a aX   T@PT ? a f 64( a4  u   Ha"( @P| I S Ga uR u <a A @MACSKL END. TYPE (CR).  @P c qT  wAB Q#, 8 "E 2 1#U   K @P- acQC !AAT A  c q a@PX 2 aX 3 4T a2 DTf n n A. ld @PaTXtn nA TTA J"a 1J XS ( !T aa TT xY1  3R7@P aa T2T#TT T3aT;  'a T" A  q B@P T" C  9aXX n a  AT@P  6 5T ԑ 7 q 2 8nT!T aa X@P/TX!1X1X/a R  H a Ȁ "f" a a T@PZ a auDa Q  U $ f" H a Xh aTH(@P 2  n"A3` ah (f q aaF @Pa ? a c A c q DT "A2 0 0`"X>@P ` B1 aX a E ( ff q0h X $XT @PhHTL LIBMAC ERROR 00h H aTL`h H  aTH@P1` aT\ PLIBMACPLIBMAC*N,MACSKL,,,B 00380 O1'' ',',',' EMC O0T' ',1,',',' EMC O0T' ',2,',',' EMC O0T' ',3,',',' EMC O0T' ',4,',',' EMC O0T' ',5,',',' EMC O0T' ',6,',',' EMC F  3S7 O0T' ',7,',',' EMC O0T' ',0,',',' EMC IFC =====',EQ,====== VFD N8/4,N2/0,X3/',X3/' VFD N4/',N4/',N8/0 PCO 2 VFD X16/' I0 IFC A,NE,A EIF I5 IFC ',EQ, IFC (((((',EQ,(((((( VFD N8/4,N1/1,N1/1,X3/',X3/' I1 IFC A,NE,A EIF VFD X8/4,X1/1,X1/0,X3/',X3/' EIF I1 VFD X4/',X4/' PCO 2 VFD X16/'-*-2 I0 IFC A,NE,A EIF I5 I6 IFC ',EQ,* IFC (((((',EQ,(((((( VFD N8/4,N1/1,N1/1,X3/',X3/' I2 IFC A,NE,A EIF VFD X8/4,X1/1,X1/0,X3/',X3/' EIF I2 IFR '-*,LT,128 IFR '-*,GT,-128 PCO 1 VFD X4/',X4/',X8/'-*-1 I0 IFC A,NE,A EIF I6 I7 IFC ',EQ,+ VFD X8/4,X1/0,X1/1,X3/',X3/' VFD X4/',X4/' PCO 2 @  3T7 IFC (((((',EQ,(((((( VFD N1/1,X15/' I3 IFC A,NE,A EIF VFD X1/0,X15/' EIF I3 I0 IFC A,NE,A EIF I7 I8 IFC ',EQ,- IFR ',LT,256 IFC (((((',EQ,(((((( VFD N8/4,N1/0,N1/1,X3/',X3/' I4 IFC A,NE,A EIF VFD X8/4,X1/0,X1/0,X3/',X3/' EIF I4 PCO 1 VFD X4/',X4/',X8/' I0 IFC A,NE,A EIF I8 EIF I0 PCO 0 EMC IFR ',LT,16 IFR ',GT,-1 IFR ',GT,0 IFR '+2,GT,' I5 IFC ',EQ, IFC (((((',EQ,(((((( VFD N8/5,N1/1,N1/1,X3/',X3/' I1 IFC A,NE,A EIF VFD N8/5,X1/1,X1/0,X3/',X3/' EIF I1 VFD X4/',X4/'-1 PCO 2 VFD X16/'-*-2 I0 IFC A,NE,A EIF I5 ߴ  3U7I6 IFC ',EQ,* IFC (((((',EQ,(((((( VFD N8/5,N1/1,N1/1,X3/',X3/' I2 IFC A,NE,A EIF VFD N8/5,X1/1,X1/0,X3/',X3/' EIF I2 IFR '-*,LT,128 IFR '-*,GT,-128 PCO 1 VFD X4/',X4/'-1,X8/'-*-1 I0 IFC A,NE,A EIF I6 I7 IFC ',EQ,+ VFD N8/5,X1/0,X1/1,X3/',X3/' VFD X4/',X4/'-1 IFC (((((',EQ,(((((( PCO 2 VFD N1/1,X15/' I3 IFC A,NE,A EIF VFD X1/0,X15/' EIF I3 I0 IFC A,NE,A EIF I7 I8 IFC ',EQ,- IFC (((((',EQ,(((((( VFD N8/5,X1/0,X1/1,X3/',X3/' I4 IFC A,NE,A EIF VFD N8/5,X1/0,X1/0,X3/',X3/' EIF I4 VFD X4/',X4/'-1,X8/' I0 IFC A,NE,A EIF I8 EIF I0 PCO 0 EMC VFD X8/',X3/',X2/',X3/' EMC   3V7 IFR ',LT,16 IFR ',GT,-16 VFD N8/0,X2/',X2/',X4/' EMC O4' ',',' EMC O0OIS ',',',0 EMC O0OIS ',',',1 EMC O0OIS ',',',2 EMC O0OIS ',',',3 EMC O0OIS ',',',4 EMC O0OIS ',',',5 EMC O0OIS ',',',6 EMC O0OIS ',',',7 EMC O3'' ',',',' EMC O0G' ',',',0,' EMC O0G' ',',',1,' EMC O0G' ',',',2,' EMC O0G' ',',',3,' EMC O0G' ',',',4,' EMC O0G' ',',',5,' EMC O0G' ',',',6,' EMC O0G' ',',',7,' EMC  3W8 O1'' ',0,',' EMC O1'' ',1,',' EMC O1'' ',2,',' EMC O1'' ',3,',' EMC O1'' ',4,',' EMC O1'' ',5,',' EMC O1'' ',6,',' EMC O1'' ',7,',' EMC O1'' ',7,5,0 EMC O1'' ',1,5,0 EMC O1'' ',2,5,0 EMC O1'' ',3,5,0 EMC O1'' ',4,5,0 EMC O1'' ',5,5,0 EMC O1'' ',6,5,0 EMC O1'' ',0,5,0 EMC O1'' ',7,8,0 EMC O1'' ',1,8,0 EMC O1'' ',2,8,0 EMC O1'' ',3,8,0 EMC e  3X8$ O1'' ',4,8,0 EMC O1'' ',5,8,0 EMC O1'' ',6,8,0 EMC O1'' ',7,9,0 EMC O1'' ',1,9,0 EMC O1'' ',2,9,0 EMC O1'' ',3,9,0 EMC O1'' ',4,9,0 EMC O1'' ',5,9,0 EMC O1'' ',6,9,0 EMC O1'' ',7,10,0 EMC O1'' ',1,10,0 EMC O1'' ',2,10,0 EMC O1'' ',3,10,0 EMC O1'' ',4,10,0 EMC O1'' ',5,10,0 EMC O1'' ',6,10,0 EMC O1'' ',7,13,0 EMC O1'' ',1,13,0 EMC O1'' ',2,13,0 EMC Q  3Y88 O1'' ',3,13,0 EMC O1'' ',4,13,0 EMC O1'' ',5,13,0 EMC O1'' ',6,13,0 EMC O1'' ',7,12,0 EMC O1'' ',1,12,0 EMC O1'' ',2,12,0 EMC O1'' ',3,12,0 EMC O1'' ',4,12,0 EMC O1'' ',5,12,0 EMC O1'' ',6,12,0 EMC O1'' ',7,12,1 EMC O1'' ',1,12,1 EMC O1'' ',2,12,1 EMC O1'' ',3,12,1 EMC O1'' ',4,12,1 EMC O1'' ',5,12,1 EMC O1'' ',6,12,1 EMC O1'' ',7,14,0 EMC O1'' ',1,14,0 EMC  3Z8L O1'' ',2,14,0 EMC O1'' ',3,14,0 EMC O1'' ',4,14,0 EMC O1'' ',5,14,0 EMC O1'' ',6,14,0 EMC O1'' ',7,10,1 EMC O1'' ',1,10,1 EMC O1'' ',2,10,1 EMC O1'' ',3,10,1 EMC O1'' ',4,10,1 EMC O1'' ',5,10,1 EMC O1'' ',6,10,1 EMC O1'' ',7,13,1 EMC O1'' ',1,13,1 EMC O1'' ',2,13,1 EMC O1'' ',3,13,1 EMC O1'' ',4,13,1 EMC O1'' ',5,13,1 EMC O1'' ',6,13,1 EMC 01'' ',1,8,1 EMC  3[8` O1'' ',2,8,1 EMC O1'' ',3,8,1 EMC O1'' ',4,8,1 EMC O1'' ',5,8,1 EMC O1'' ',6,8,1 EMC O1'' ',7,8,1 EMC O1'' ',1,9,1 EMC O1'' ',2,9,1 EMC O1'' ',3,9,1 EMC O1'' ',4,9,1 EMC O1'' ',5,9,1 EMC O1'' ',6,9,1 EMC O1'' ',7,9,1 EMC O1'' ',1,11,0 EMC O1'' ',2,11,0 EMC O1'' ',3,11,0 EMC O1'' ',4,11,0 EMC O1'' ',5,11,0 EMC O1'' ',6,11,0 EMC O1'' ',7,11,0 EMC  3\8t O1'' ',1,11,1 EMC O1'' ',2,11,1 EMC O1'' ',3,11,1 EMC O1'' ',4,11,1 EMC O1'' ',5,11,1 EMC O1'' ',6,11,1 EMC O1'' ',7,11,1 EMC O1'' ',1,14,1 EMC O1'' ',2,14,1 EMC O1'' ',3,14,1 EMC O1'' ',4,14,1 EMC O1'' ',5,14,1 EMC O1'' ',6,14,1 EMC O1'' ',7,14,1 EMC O2'' ',',14,3 EMC O2'' ',',12,2 EMC O2'' ',',12,3 EMC O2'' ',',14,2 EMC O0OIR 7,0,1,' EMC O0OIR 7,0,2,' EMC V#  3]6EALM6EO CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm P{aASSEM A01 A ASSM CCS 3.0 SL-149@P k d f pfvB 0 h hh5 phvhTZN@P+" fo fuX' hTLABS BASE ERR6 hPASS1 PASS@PV2 PASS3 TABLSTXREF PASSEM ASSIM PASSEM P PASS1 A02 A ASSM CCS 3.0 SL-149@P k dC f fB 0 h hh5  hhTZN@P+" f fX' hTLABS BASE ERR6 hPASS1 PASS@PV2 PASS3 TABLSTXREF dd Cd M lddl2@Pkd `B f q dL Jaa a! d Ia aUUaaadhmh@PhndX 0 c1 q\KT:5>Cd H  fD q8-@P -n< +n:\JXP\"\54#   dnT!a" a @PT\ B!g +n  -n +n  -n"aT9dK@P- A("(d Q< `( ; da(  -n( +n*  B ,n( +n ba*@PX)* q ( bR U 4\XVa - #n q@P # q 2TTQ J aa a A a''@PX' `a'TQ C a a a X    XPXN ?$ a#f @P64$( a4h u  Ha(M| I S Ga ^  3^6Y@P uR u @P1 *nX!X `T a "A2 0 X !" \Xha@P\! a'M' M ""h)E *n )X'H hDh aT@PL SQMCMDOP**@P** ********** A(  2( :c((a- a(- A)*+, X   ( @P ff q a)a*#F a( ?# (a( &c+ A (c# qTL@P MASS STORAGE OVERFLOW $ ?#f 64$( a4a !d@P Q `~0N6ɱ~N)JH/Nl%>9%%.%. NS2SE1@PDL.L0L-N:N.N0N-NNMMNMNMƳK RARMRQRBPaPmPqPb-1"-1"0-010" - 1 "|X5 @Po4 s S;:$$&2t@o$9NTΏ6A]p#^g5g#Eg@ `HPX(@P08hpxhJHJGH?h> _:n: q H66T `"0 @Ph A& `#4 ZdnTL  OV CORE RES. MACRO DIR. ?@P`P  3_6mPPASS1 aMCHPR JJAN12PIL 1READIMGETOP RECV MER nMDEX CHPU CONAC rMACER PUNT RIMSB {PP1D SKLOUTGCONAB P1A READI *PGFILE MACROSMC7A MCCON MCNAM DISKW5DIRSCHSLMC MC5 CO RCO (MACCALDIN ENDMACPMACCON MACGETMACDEFOPT DOUT BGFL1 GTFIL MAXSECkPPASS1 PPA1PR2 A03 A ASSM CCS 3.0 SL-149@Pa( A)@ #2 d, C   1` R2 C `  a@P+ a TsT\y aX#f $n %n A. l`  aT/@PVXpn nA h\J\J\JA J!1DXL#Xp a aT3@P3T$X\* \3a(\:  '(a( \9 ( qJ \9@P <a.X.h n a  ATU$ $ \@P # q 1#nX!\ T 0 aA a \\\@P3 a aX\X"1X1X0ah R  H aȀ@P-naaT aata Q H U $ n H a  @PXa( a\( Aah ahy _nv qa6alo nk a TR @P %  *!]\ A\W= a  \X"Z26 A? _a6@P a 4  Q\ aaa6aXm8    A6 @P * n #c. q: Xi a  *n  "jX" " _ @Pnb q^ah [XE E(  2( 2 A :c((a+ a(+ A*a()X)(X' X%@P/ aa(@ *n a (9T #. ra\ a Ga a Rg  3`6@PZ _n  E 0aXUalTa a a\!6S @P  *\ X,  T4T31\ a7X  aa6X6 R\66 \@P1 TX7 7a(!"ȟ\% X  `l@P h q aa X" A"T1 HaF LXH _H h@Ph aTZ;MACROSh H aTL;` `h@P1h H aTH;` fD q a \)x Q B !TL@P\ (n q aTH; (`a a TaGETOP PREADIMPIL JJAN125MCHPR P PvPASS2 A04 A ASSM CCS 3.0 SL-149v  3a6@P k d f kfqB 0 h hh5  khqhTZN@P+" fj fpX' hTLABS BASE ERR6 hPASS1 PASS@PV2 PASS3 TABLSTXREF t` a#a a7a8a a9aa=T= 0@P`A  a?a> c@ q@aF AIT a h8h7h6 cD qahX !@P alrA 0h!d Bar a8r9 A9T )a  anhi@PXc`P8@P:TL  7 a7FAgAX Aa**aa c B T agaQ *w@Pe nq9T aV  2V :cVVa[ aV[ AWXYȅZ D7  D@PDSEXLBPPOPRGRLOVUDMO  Xi\UQA^m \J\I Fj$c: q # @P   j r  *nn 9Tl`P @PC\\ "AZ q al al\m  HlAa4aBXe@P aXaYM\ C aMXYYa1\Ya!\XaW\AXl % BZW @PI X D   RTLBFV\L ak\m 1X%m8\ akj\B amX@Ptm  aj$TT Xm aT aa\`  @P  \ \eam A' 1 a\<  am 4aT@Pm  1 aj\7h" cM aXdaZXP a 2a\ h@PaMT am aakTBcm4B kTma^A  B @P $1qFaq4o  aMAA  cVB Tl alM  3b6@PK\A\ D B Q" Q 1 a3\\VcV aM\ am a@Pv V V r"]^q4btcqFao aoqTmi\@Pmaq cP q ARTaQm  \Am 2\ aQaRa+A^F 3S@P0_Q-CaaaQ(\$ UT1L \ aQ`daa\  ahaRaRT@PRQCSbA!  Ac R aQ D TB  rU cUcm Ac11q*a@P"ARaR aaQm t AS aQ U U QAc QAQc  QaUa@PMaTQGUAUa!T" 4"BcaaT 1aCaC Tahd@PxCaC& TCQX C aC ]cF qQ:@P d `d TCTD X 8c qh H a8TLX@P8c d D8PPASS2 aPCO nIFR ASSEM NEXT PRNT ER CCOT COP MOVE UP1 UP2 ADC ZEIF PALF NUM jDEC ~VFD IFA IFC 5EMC LST NLS NAM1 NAM AXPR NAMC PUNC PDSKWLNIMJ SYCH RESTBLTBLIN D5 CHPR sRECV CHPU DD1C N2 OB DOUT DIN PLBPK SYPT ZSYTAB}PPASS2 PvPA2PR2 A05 A ASSM CCS 3.0 SL-149@P"F]UH H%Ac `d d c`>bA w@P+ RR  ]H:h/F \ JL . XTT E TT@PV1XXI aX7HI df CwFF 1>?@P !7  c qTL =h>T Da a>?a>a@a@XNMASS S:  3c6@PTORAGE OVERFLOW > @AX$ >a=h>TD>?a>=h>T(X @P  A @>a=he>\=hs@A>\hh = f Af@P\A   TR alk\% -" \ aF CT^mq[n(!@P-oC\0ikT AamTaN aO  + -b  aO1@PXkwaTAbCT7T mO maNf  "X7wTN  T@Pn$1p +tq -o aq T Qp  [iUAq T Apl @Pl q HaJ({JM Ii S Gal uR u X 8aJXJ6R\(3^0h C@P1\^m 1 aRaQ TS? 7yxk\ aRaQm @P\\_^ \Xxm  \\\ B \ GKINX11\ @P bIahIFf qX hN $#bXQ\\ Q@Pb\ E \TX1\ \N  aCaaQAAHakTE B q@PVCQRAAaCQa@F=haXTN TB c q PAAABACA %HG  3d6@PAT `hB aAaBaC7 0 c q al a a9 cD q a @P3a7 **cB NNaTG7h H aTL` `hh H aT@P^HK` `h aGaHF aF ? FaF H 6cF B@P  P C D X-P-C-D@PhHh `h`1X& dhf  Dhh`1X  hf D@Phh`  fTD dhf( dfPZSYTABSYPT 7LBPK DIN XDOUT DOB UN2 6D1C ]CHPU RECV lCHPR D5 /TBLIN RESTBLPSYCH IMJ DSKWLNNPPUNC  IFR PCO NEXT ER NAMC +PRNT ?AXPR NAM NAM1 NLS LST EMC IFC PIFA COT COP _ASSEM 1VFD DEC NUM ALF EIF ADC UP2 MUP1 LMOVE NP PvPASS3 A06 A ASSM CCS 3.0 SL-149@P k d f kfqB 0 h hh5  khqhTZN@P+" fj fpX' hTLABS BASE ERR6 hPASS1 PASS@PV2 PASS3 TABLSTXREF fjdih Ȅidid g aa8a5a6hTF@Pa`   T$18 h h $h1 hh Tadh@P T cD qahd 8"TX/q^# Tn&T al@P aV  2V :cVVa[ aV[ AWXYȁZ rA 0h4d Bar r,9@P A9T )$a  an  c A y2t tA "XAan`P-_  3e6@P8o Tm TTT{ aaa8UJ\"A A a P@P a A \Q P C D X-P-C-DCTAaaX aGaHF @P aF ? FaF H >cF B  8ìcs q S h7 l @P \ hXy5Xd T hDsX X 8g qhH XT@P8Ȓ1X a8TLU a@PAACA AdX eJc a X 0@PcAc aT 8aec rdQC Tc  dXe AT aAc @P@  q  :EV B c`VWXȁY 0c q gA @P a XX aTL]s Xh  A  H@Ph= 0j7 q aTL]# hT #hr#oa@PZAg **aAXAaX aQagHU `P:@PUc d  D8 D D5 D6DSEXLBPPOPRGRLOVUDMO****** **********@P }F]UH H%Ac  `dd c`>bA  y @PRTX >@AX >a>?a>=d>T   @P A @>a=l@A>\T  alk\5 T aF CT^m@Pqnqgo " A aoX oikTAa@P) \mTaN aO  +aO1 -k ,AJ mO maN @PTg  "T.i@PchHh `h`1X dhf  Dhh`1X hf Dh`@P `d5 fT5 dh f df  3f6PPASS3 aPCO PCOSETPRNFLGPJECT JJ5 CARCONNEXT STATUSEND WDPK LDCP RECV PUNC PRBPK EUNCP {PRNT WRIT ER CO UCOWR aCORD eOE )SYCH IGNORETBLIN RESTBLPDISKW5OFJ2 SKPROCDISKR5MAPR _REGP NN3 BCHPU ZMOVE DOUT CHPR #DIN EJECT RP2 PPASS3 Pv>PA3PR2 A07 A ASSM CCS 3.0 SL-149@Pn%1p +q - aq Tp  [i UAq T Apl @P+l q Ha(KzM Ii S Gal uR u <am Ai @ @PV ; #)DI[i c] q\u m yAmA ehPDr @Pag_e > !( 9 'Z Ae_AM  A` J a3mm]c]`dB @P14  Taa ae Qamda mjxAav Aa{axmu@PbA1 T# agT( Am  ahd c] qg akaPg]lQ^h D@P`C !A`VbbkAb abYj_ aPAb^hhO@P-C L3 3  z   aPAdX 6 5 2 1 @PXaeWO  o|XfUo 1e><]{+"@PvhmaN M  D B SXiEDX&+EAaJR"P cAJ@P AQDXYZQaJwXkRAF\eh aR \UB m q^  [EX1aJW@P\?E\CR\DU aJ\:\ /H9e #T d@PVX \X \X  PAGE 0  [W  3h7!@PDATE: MO/DA/YR aXG TTA aaR 2 aR\R aR@P h cP q ARTaQfSm  \m 2\ aQaRahA^F 3S@P _Q CaaaQYq\l \\h AT2\T L  aQ`Yd@PBAaa\@MPm .S +bN2L 3 LaQ̲bKN P̂b`@P-daRCL db LSOaaha@=h>XTRQaRQoSbA@PX!  Ac R aQ D TB  rU cUcm Ac19q2aRARaR aaQm@P SAS. t AS( aQ U U QAc QxAQc  QaUaaTQ@PGUAUa!Ta" 4#BcaaTB!1aQX @PC aC ]cF qNO b aN\tfQEN2 hm i g @PeO rNQ# JP QqqhϱRaRaQRCc aRaR!dI1aEJaJ@P/C1Zh?JaJNRqMZD L"aKQAU AQm. \(     @PZ JaJ\  am\P\\\m N'KaJUaQaN@PQD  \RJaJ\mRA!dam R Y CQLQYC aR!@PQaQR 2 \ RJaJQmi\ \ AWAXAZ     @P VCVJAJ\ \ h H a5TLh H a6TH`@P6 `h aaJ aL aaPaQaajahTmS     Tj aa@P1aP aXr ajaoTm aaJ8 3j aNTaofh@P\E \ a i   C aX5m 2 1j\E @P\ aabadaj" c aTAX j T am P  Q@P  U C T- "qRA  C bAVaVR!A A ~  3i75@P݁aC AJaJ aTkTlT aJ cV qX7ab gTm @P\.aaabX5aamB R C Z A\XaVX%\T" qVad\cWm 7 B"@P3T   l al  a]ae\e 2 2] Sa]eam ]zA]v]@P^tmrA] a/X!I Ae ! A\<eQC!aQ!aaX\aXXWdYZ!@PaV 2 aVCA aabaadaJm amTwUdaV %aVE!  d@P'daX Ae2ZaVa2YY AY 1VPM2J5 TA\HhhhAI\B\HkhkBT\ h7 !\X \X  d  hs@PHXHXHXH nB  h HH  0F 0H@P- 0F 0  PGM= () COM = () DAT = () w  3j7I@PX Pa 5 1XT1T aD AT aaPa@P!aX\1\C A\Pa] a^]XFaGaHa A\X7 uT@P dX a aa aT3aXTA# aT aX1T=@Pa\XAaaaa\,, ac T XaFcGcHcT 1AT@PdT$AVac Vc C #AaAa\LX3& 8c qX=X<Ia @P/ c A XX a8T\{8\4X&! aT\@PZ!XyXs a8TD{8ERRORS*Tah H TaFaF@P2hadahFc Gc Hc hc D 8AA 9AXr> @AX @P>a>?a>=hR>T   A @>a=h8@A>T@P gA   XXU aTL  Xh =@PA  Hh; 0j5 q aTLIAc @  q  :EV@P1 Bc`VWXȁY 0c q`P\@P{c d  D8 D D6 D5****** ********** P C D X-P-C-D aGaH@PF aF ? FaF H 6cF B  aV  2V :cVVaZ aVZ @PAWXY 85 ìcs qh H"h a5TL@Ph H a6TH`6 `h hQ7 d TP @P'XXX hT DsX 8c qhH Xȩ1X a8TL{@PRAg**aAXbAaXx aQagH*DSEXLBPPOPRGRLOVUDMO@P} h}h Xd a (X dghH  aTLS  3k7]@P 5hXhp a :jPB pB0 0HRB8  K@PHJ 0UhB ""hL ""hD ""B /h> /H9h $X ,X@P X/ X PAGE 0 DATE: MO@P)/DA/YR *** S Y M B O L T A B L E *** @P Gh( a  hi `h iHh  ` H fj (`hh@Pr@g ?g d dhh+8l dihh@Ph6 f j `h`hjiXOih  ` bh  H~@Pi` h52b 2  `b `c!i `g a ("@P h A!` `P`P @P  hh h hXe h`&2 1 d h" @P8H"f  hȾȽ @e  hȪ`ت12@PcȤ !'ȡ"Ț H"f " `b h  h@P{ u hrph c hbHd_ ^ h[ hT_@P `XhHh HX ( X (X29XvFfGf Hf@PIaK X7]f ^f  hĘ( 1 $ AX HXe@P  XX] h\B`P@PHKB!KdBaK hK 0 aKp 0c]K 0 aK h0]c]C H] -  3l7q@PHa] h aGaHF aF ? FeF H 6eF daIh _@Ps f  q _ f qPPASS4 aPPASS4 PvXREF A10 A ASSM CCS 3.0 SL-149@P k d f kfqB 0 h hh5 khqhTZN@P+" fj fpX' hTLABS BASE ERR6 hPASS1 PASS@PV2 PASS3 TABLSTXREF TFa   h $hh1 h8@P ` ai `hiHh  ` Hfj `hh؈@@P g:g ddB dihhh6 fj `h0hjiX@P ih  `bh   H`gh i` $  `~@P1Whs`Hp XhXc daK Xy  ]f^fUX F@P 2fGfHf IaJaKX DfEf  (f  KXP ]f ^f _f() f X@P] i` $ `1@h `H XhX @PdaK X  ]f^fX" FfGf HfIaJX8 Df EfX b@P`gi` 3 `2?h`H X;h@PX' daK X ]f ^fX  FfGfHf IaJX Df Ef@P X `c ho `h `c17@P&h `d @ aKXk, f]f^f  HA"dd "@PQX HX   Ȯd` X`B  3m7@P ri` hb 2  `b `! i ` g a @P" h A ! ` `P`P@P hh h hX= h`&2 1 d h" @PH"f  hȾȽ @e  hȪ`ت12@P Ȥ !'ȡ"Ț H"f " `b h  h@P8{ u hrph c hbHd_ ^ h[ hT_@P a` XhUHhS HX::XAFfGf HfIaK X]f@P ^f  h̘ 1$  Xf HXWX[@PXN "XH a kd  (XHb1 / aT\!"aK 2@PXL X]h)^h(X  X! h X  X  X c q@P @P ERRORS "JeXX X X XX !X a XX@P>X X XXADhcDRhaESh^S h\ !X a XXX@Pi X XX}VAh9LUh7E h5 h3X a XXe E Q U I V A@P L E N C E S ----------------------- DEF.LINE NAME VALUE REFERENCED AT @PLINE NUMBER S Y M B O L S ------------- E X T E R N A L S *** A L P H A B E T I C@P A L S O R T O F S Y M B O L S *** _ f  q _ f qhH @P aTL 5hXh p a :jCB (pB[  3n7@P@0 0HEB8  >H= 0ih5 ""h? ""h7 ""B /h1 /H,@Pkh t $XX PAGE 0 DATE: MO/D@PA/YR D@PHK 0 aKp 0c]K 0 aK h0]c]C H aGaHF  aF ?@PȢ FeF H 6eF daIh J 2 A :cDJD 2 A :ȃDcD@PE JHaJh H a6TH`6 `h( D6PXREF PILIBMAC A11 A ASSM CCS 3.0 SL-149@PuS*2*S9f1<@P ` f q aUUaa aa ahTFa8K  T\@P+@`TT aTn$-!# X[4# 1 3a dn@P VT 0` a`T 02 X'TL  aTH `@PTT `X TT H aTL ` a aX   T@PT ? a f 64( a4  u   Ha"( @P| I S Ga uR u <a A @MACSKL END. TYPE (CR).  @P c qT  wAB Q#, 8 "E 2 1#U   K @P- acQC !AAT A  c q a@PX 2 aX 3 4T a2 DTf n n A. ld @PaTXtn nA TTA J"a 1J XS ( !T aa TT x@P aa T2T#TT T3aT;  'a T" A  q BJ  3o7@P T" C  9aXX n a  AT@P  6 5T ԑ 7 q 2 8nT!T aa X@P/TX!1X1X/a R  H a Ȁ "f" a a T@PZ a auDa Q  U $ f" H a Xh aTH(@P 2  n"A3` ah (f q aaF @Pa ? a c A c q DT "A2 0 0`"X>@P ` B1 aX a E ( ff q0h X $XT @PhHTL LIBMAC ERROR 00h H aTL`h H  aTH@P1` aT\ PLIBMACPLIBMAC*N,MACSKL,,,B 00380 O1'' ',',',' EMC O0T' ',1,',',' EMC O0T' ',2,',',' EMC O0T' ',3,',',' EMC O0T' ',4,',',' EMC O0T' ',5,',',' EMC O0T' ',6,',',' EMC O0T' ',7,',',' EMC k  3p7 O0T' ',0,',',' EMC IFC =====',EQ,====== VFD N8/4,N2/0,X3/',X3/' VFD N4/',N4/',N8/0 PCO 2 VFD X16/' I0 IFC A,NE,A EIF I5 IFC ',EQ, IFC (((((',EQ,(((((( VFD N8/4,N1/1,N1/1,X3/',X3/' I1 IFC A,NE,A EIF VFD X8/4,X1/1,X1/0,X3/',X3/' EIF I1 VFD X4/',X4/' PCO 2 VFD X16/'-*-2 I0 IFC A,NE,A EIF I5 I6 IFC ',EQ,* IFC (((((',EQ,(((((( VFD N8/4,N1/1,N1/1,X3/',X3/' I2 IFC A,NE,A EIF VFD X8/4,X1/1,X1/0,X3/',X3/' EIF I2 IFR '-*,LT,128 IFR '-*,GT,-128 PCO 1 VFD X4/',X4/',X8/'-*-1 I0 IFC A,NE,A EIF I6 I7 IFC ',EQ,+ VFD X8/4,X1/0,X1/1,X3/',X3/' VFD X4/',X4/' PCO 2 IFC (((((',EQ,(((((( VFD N1/1,X15/' 3  3q7I3 IFC A,NE,A EIF VFD X1/0,X15/' EIF I3 I0 IFC A,NE,A EIF I7 I8 IFC ',EQ,- IFR ',LT,256 IFC (((((',EQ,(((((( VFD N8/4,N1/0,N1/1,X3/',X3/' I4 IFC A,NE,A EIF VFD X8/4,X1/0,X1/0,X3/',X3/' EIF I4 PCO 1 VFD X4/',X4/',X8/' I0 IFC A,NE,A EIF I8 EIF I0 PCO 0 EMC IFR ',LT,16 IFR ',GT,-1 IFR ',GT,0 IFR '+2,GT,' I5 IFC ',EQ, IFC (((((',EQ,(((((( VFD N8/5,N1/1,N1/1,X3/',X3/' I1 IFC A,NE,A EIF VFD N8/5,X1/1,X1/0,X3/',X3/' EIF I1 VFD X4/',X4/'-1 PCO 2 VFD X16/'-*-2 I0 IFC A,NE,A EIF I5 I6 IFC ',EQ,* IFC (((((',EQ,(((((( ؍  3r7 VFD N8/5,N1/1,N1/1,X3/',X3/' I2 IFC A,NE,A EIF VFD N8/5,X1/1,X1/0,X3/',X3/' EIF I2 IFR '-*,LT,128 IFR '-*,GT,-128 PCO 1 VFD X4/',X4/'-1,X8/'-*-1 I0 IFC A,NE,A EIF I6 I7 IFC ',EQ,+ VFD N8/5,X1/0,X1/1,X3/',X3/' VFD X4/',X4/'-1 IFC (((((',EQ,(((((( PCO 2 VFD N1/1,X15/' I3 IFC A,NE,A EIF VFD X1/0,X15/' EIF I3 I0 IFC A,NE,A EIF I7 I8 IFC ',EQ,- IFC (((((',EQ,(((((( VFD N8/5,X1/0,X1/1,X3/',X3/' I4 IFC A,NE,A EIF VFD N8/5,X1/0,X1/0,X3/',X3/' EIF I4 VFD X4/',X4/'-1,X8/' I0 IFC A,NE,A EIF I8 EIF I0 PCO 0 EMC VFD X8/',X3/',X2/',X3/' EMC IFR ',LT,16 IFR ',GT,-16 *  3s7 VFD N8/0,X2/',X2/',X4/' EMC O4' ',',' EMC O0OIS ',',',0 EMC O0OIS ',',',1 EMC O0OIS ',',',2 EMC O0OIS ',',',3 EMC O0OIS ',',',4 EMC O0OIS ',',',5 EMC O0OIS ',',',6 EMC O0OIS ',',',7 EMC O3'' ',',',' EMC O0G' ',',',0,' EMC O0G' ',',',1,' EMC O0G' ',',',2,' EMC O0G' ',',',3,' EMC O0G' ',',',4,' EMC O0G' ',',',5,' EMC O0G' ',',',6,' EMC O0G' ',',',7,' EMC O1'' ',0,',' EMC <  3t8 O1'' ',1,',' EMC O1'' ',2,',' EMC O1'' ',3,',' EMC O1'' ',4,',' EMC O1'' ',5,',' EMC O1'' ',6,',' EMC O1'' ',7,',' EMC O1'' ',7,5,0 EMC O1'' ',1,5,0 EMC O1'' ',2,5,0 EMC O1'' ',3,5,0 EMC O1'' ',4,5,0 EMC O1'' ',5,5,0 EMC O1'' ',6,5,0 EMC O1'' ',0,5,0 EMC O1'' ',7,8,0 EMC O1'' ',1,8,0 EMC O1'' ',2,8,0 EMC O1'' ',3,8,0 EMC O1'' ',4,8,0 EMC .  3u8% O1'' ',5,8,0 EMC O1'' ',6,8,0 EMC O1'' ',7,9,0 EMC O1'' ',1,9,0 EMC O1'' ',2,9,0 EMC O1'' ',3,9,0 EMC O1'' ',4,9,0 EMC O1'' ',5,9,0 EMC O1'' ',6,9,0 EMC O1'' ',7,10,0 EMC O1'' ',1,10,0 EMC O1'' ',2,10,0 EMC O1'' ',3,10,0 EMC O1'' ',4,10,0 EMC O1'' ',5,10,0 EMC O1'' ',6,10,0 EMC O1'' ',7,13,0 EMC O1'' ',1,13,0 EMC O1'' ',2,13,0 EMC O1'' ',3,13,0 EMC k?  3v89 O1'' ',4,13,0 EMC O1'' ',5,13,0 EMC O1'' ',6,13,0 EMC O1'' ',7,12,0 EMC O1'' ',1,12,0 EMC O1'' ',2,12,0 EMC O1'' ',3,12,0 EMC O1'' ',4,12,0 EMC O1'' ',5,12,0 EMC O1'' ',6,12,0 EMC O1'' ',7,12,1 EMC O1'' ',1,12,1 EMC O1'' ',2,12,1 EMC O1'' ',3,12,1 EMC O1'' ',4,12,1 EMC O1'' ',5,12,1 EMC O1'' ',6,12,1 EMC O1'' ',7,14,0 EMC O1'' ',1,14,0 EMC O1'' ',2,14,0 EMC  3w8M O1'' ',3,14,0 EMC O1'' ',4,14,0 EMC O1'' ',5,14,0 EMC O1'' ',6,14,0 EMC O1'' ',7,10,1 EMC O1'' ',1,10,1 EMC O1'' ',2,10,1 EMC O1'' ',3,10,1 EMC O1'' ',4,10,1 EMC O1'' ',5,10,1 EMC O1'' ',6,10,1 EMC O1'' ',7,13,1 EMC O1'' ',1,13,1 EMC O1'' ',2,13,1 EMC O1'' ',3,13,1 EMC O1'' ',4,13,1 EMC O1'' ',5,13,1 EMC O1'' ',6,13,1 EMC 01'' ',1,8,1 EMC O1'' ',2,8,1 EMC  3x8a O1'' ',3,8,1 EMC O1'' ',4,8,1 EMC O1'' ',5,8,1 EMC O1'' ',6,8,1 EMC O1'' ',7,8,1 EMC O1'' ',1,9,1 EMC O1'' ',2,9,1 EMC O1'' ',3,9,1 EMC O1'' ',4,9,1 EMC O1'' ',5,9,1 EMC O1'' ',6,9,1 EMC O1'' ',7,9,1 EMC O1'' ',1,11,0 EMC O1'' ',2,11,0 EMC O1'' ',3,11,0 EMC O1'' ',4,11,0 EMC O1'' ',5,11,0 EMC O1'' ',6,11,0 EMC O1'' ',7,11,0 EMC O1'' ',1,11,1 EMC ڠ  3y8u O1'' ',2,11,1 EMC O1'' ',3,11,1 EMC O1'' ',4,11,1 EMC O1'' ',5,11,1 EMC O1'' ',6,11,1 EMC O1'' ',7,11,1 EMC O1'' ',1,14,1 EMC O1'' ',2,14,1 EMC O1'' ',3,14,1 EMC O1'' ',4,14,1 EMC O1'' ',5,14,1 EMC O1'' ',6,14,1 EMC O1'' ',7,14,1 EMC O2'' ',',14,3 EMC O2'' ',',12,2 EMC O2'' ',',12,3 EMC O2'' ',',14,2 EMC O0OIR 7,0,1,' EMC O0OIR 7,0,2,' EMC O0OIR 7,0,3,' EMC p  3z8 O0OIR 7,0,4,' EMC O0OIR 7,0,5,' EMC O0OIR 7,0,6,' EMC O0OIR 7,0,7,' EMC O0OSRX 0,1,' EMC O0OSRX 0,2,' EMC O0OSRX 0,3,' EMC O0OSRX 0,0,' EMC O0OSRX 1,1,' EMC O0OSRX 1,2,' EMC O0OSRX 1,3,' EMC O0OSRX 1,0,' EMC O0OSRX 3,1,' EMC O0OSRX 3,2,' EMC O0OSRX 3,3,' EMC O0OSRX 3,0,' EMC O0OSRX 2,1,' EMC O0OSRX 2,2,' EMC O0OSRX 2,3,' EMC O0OSRX 2,0,' EMC   3{8 O3'' ',',',4 EMC O3'' ',',',5 EMC O3'' ',',',2 EMC O3'' ',',',3 EMC O3'' ',',',6 EMC O3'' ',',',7 EMC O0OSB ',1 EMC O0OSB ',2 EMC O0OSB ',3 EMC O0OSB ',4 EMC O0OSB ',5 EMC O0OSB ',6 EMC O0OSB ',7 EMC IFR ',GT,-16 IFR ',LT,16 IFA ',LT,0 VFD X8/6,X3/',X1/0,X4/-' I0 IFC A,NE,A EIF VFD X8/6,X3/',X1/0,X4/' EIF I0 EMC IFC ',EQ, O0EX I0 IFC A,NE,A EIF  3|8 IFC ',EQ,I O01 7,' I0 IFC A,NE,A EIF IFC ',EQ,A O01 6,' I0 IFC A,NE,A EIF IFC ',EQ,Q O01 5,' I0 IFC A,NE,A EIF IFA ',GT,4 O0EX I0 IFC A,NE,A EIF IFA ',LT,1 O0EX I0 IFC A,NE,A EIF O01 ',' EIF I0 EMC VFD X8/11,X3/',X1/0,X4/' EMC VFD X8/11,X4/0,X4/4 EMC O00 ',0 EMC O00 ',1 EMC O00 ',2 EMC O00 ',3 EMC O00 ',4 EMC O00 ',5 EMC T  3}8 VFD N8/11,N8/10 EMC VFD N8/11,N8/11 EMC VFD N8/11,N8/12 EMC VFD N8/11,N8/13 EMC VFD N16/0 VFD N16/0,N16/0 EMC VFD N8/11,N8/8 EMC VFD N8/11,N8/9 EMC VFD X8/11,X4/0,X4/2 PCO 1 VFD X1/0,X15/' PCO 0 EMC VFD X8/11,X4/0,X4/3 PCO 1 VFD X1/0,X15/' PCO 0 EMC VFD N8/11,N8/1 EMC VFD N8/11,N8/7 EMC VFD N8/11,N8/6 EMC VFD N8/11,N8/5 EMC IIN 0 RTJ- ($BB) VOLATILE ASSIGN ADC '+3 LDA* '   3~8 STA- 3,I SAVE RETURN EIN 0 EMC IIN 0 LDA- 3,I RETRIEVE RETURN FROM VOLATILE IFC ',NE, INA ' BUMP RETURN BY ' IF SPECIFIED EIF STA' ' RESTORE RETURN ADDRESS RTJ- ($BA) RELEASE VOLATILE EIN 0 JMP' (') RETURN EMC EXT HEXDEC RTJ+ HEXDEC HEX TO ASCII DECIMAL CONV. ADC' ' VARIABLE ADDRESS ' ADC' ' BUFFER ADDRESS ' 3 WORDS EMC EXT HEXASC RTJ+ HEXASC HEX TO ASCII CONV. ADC' ' VARIABLE ADDRESS ' ADC' ' BUFFER ADDRESS ' 2 WORDS EMC EXT ENCODE RTJ+ ENCODE ENCODE FOR OUTPUT ADC' ' OUTPUT BUF ADC' ' FORMAT STATEMENT ADC' ' NO VARIABLES ADC' ' VARIABLE LIST IFC ',NE, SAZ 2 JMP ' EIF EMC EXT DECODE RTJ+ DECODE DECODE INPUT P^  38 ADC' ' INPUT BUFFER ADC' ' GORMAT STATEMENT ADC' ' NUMBER VARIABLES ADC' ' VARIABLE LIST IFC ',NE SAZ 2 JMP ' GO TO ERROR PROCESSOR EIF EMC EXT DECHEX RTJ+ DECHEX ADC' ' BUFFER ADDRESS 3 WORDS ADC' ' VARIABLE ADDRESS EMC EXT ASCII RTJ+ ASCII ADC' ' BUFFER ADDRESS 2 WORDS ADC' ' VARIABLE ADDRESS EMC EXT FLOATG RTJ+ FLOATG CONVERT TO S.XXXXXXESNN ADC' ' ADDRESS FLOATING VARIABLE 2 WORDS ADC' ' ADDRESS OUT BUFFER 6 WORDS EMC LDA- $E8 137*A002 IFC ',NE, STA' ' EIF EMC FN' ADC ' MR' ADC ' IFC ',EQ, LU' ADC 8 EIF IFC ',NE, ݒ  39LU' ADC ' EIF RB' BZS RB'(12) RI' BZS RI'(1) NK' ADC ' KL' ADC ' FC' ADC ' RL' ADC ' RP' ADC 0,0 EMC EXT DEFFIL RTJ+ DEFFIL DEFINE A FILE ' ADC' FN',MR',LU',RB',RI' EMC EXT DEFIDX RTJ+ DEFIDX DEFINE INDEXED ADC' FN',NK',KL',LU',RB',RI' EMC EXT LOKFIL LDA =X* STA FC' RTJ+ LOKFIL LOCK FILE ' ADC' FN',FC',RB',RI' EMC EXT UNLFIL RTJ+ UNLFIL UNLOCK FILE ' ADC' FN',FC',RB',RI' EMC EXT RELFIL RTJ+ RELFIL RELEASE FILE ' ADC' FN',RB',RI' EMC EXT STOSEQ IFC ',NE, LDA =X' STA RL' EIF RTJ+ STOSEQ STORE IN SEQUENTIAL FILE ' ADC' FN',RP',',RL',RB',RI' EMC }  39 EXT RTVSEQ RTJ+ RTVSEQ RETRIEVE FROM SEQUENTIAL ' ADC' FN',FC',RP',',RL',RB',RI' EMC EXT STOIDX RTJ+ STOIDX STORE INDEXED ' ADC' FN',',RP',',RL',RB',RI' EMC EXT RTVIDX RTJ+ RTVIDX RETRIEVE INDEXED ' ADC' FN',',FC',RP',',RL',RB',RI' EMC EXT RTVIDO RTJ+ RTVIDO RETRIEVE INDEXED ORDERED ' ADC' FN',',FC',RP',',RL',RB',RI' EMC EXT STODIR RTJ+ STODIR STORE DIRECT ' ADC' FN',FC',RP',',RB',RI' EMC EXT RTVDIR 85*2670 RTJ+ RTVDIR RETRIEVE DIRECT ' ADC' FN',FC',RP',',RL',RB',RI' EMC LDA RI' STATUS A FILE IFC ',NE, AND' ' MASK STATUS EIF IFC ',NE, SAZ 2 NOTHING TRUE JMP ' JUMP IF ANY SET EIF EMC RTJ- ($F4) IFC ' ,EQ, VFD N1/0,X1/' ,N5/4,N1/0,X4/',X4/' EIF I3 IFC ' ,NE, IFC ' ,EQ,0   39) VFD N1/0,X1/' ,N5/4,N1/0,X4/',X4/' EIF I3 IFC ' ,NE,0 VFD N1/0,X1/' ,N5/4,N1/1,X4/',X4/' EIF I3 ADC ',0 I1 IFC ',NE,B IFC ' ,EQ,R VFD N3/0,N1/1,N2/1,X10/' EIF I1 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/1,N2/2,X10/' EIF I1 IFC ' ,NE,I VFD N3/0,N1/1,N2/0,X10/' EIF I1 I2 IFC ',EQ,B IFC ' ,EQ,R VFD N3/0,N1/0,N2/1,X10/' EIF I2 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/0,N2/2,X10/' EIF I2 IFC ' ,NE,I VFD N3/0,N1/0,N2/0,X10/' EIF I2 ADC ',' EMC RTJ- ($F4) IFC ' ,EQ, VFD N1/0,X1/' ,N5/6,N1/0,X4/',X4/' EIF I3 IFC ' ,NE, IFC ' ,EQ,0 VFD N1/0,X1/' ,N5/6,N1/0,X4/',X4/' EIF I3 IFC ' ,NE,0 VFD N1/0,X1/' ,N5/6,N1/1,X4/',X4/' ]  39= EIF I3 ADC ',0 I1 IFC ',NE,B IFC ' ,EQ,R VFD N3/0,N1/1,N2/1,X10/' EIF I1 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/1,N2/2,X10/' EIF I1 IFC ' ,NE,I VFD N3/0,N1/1,N2/0,X10/' EIF I1 I2 IFC ',EQ,B IFC ' ,EQ,R VFD N3/0,N1/0,N2/1,X10/' EIF I2 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/0,N2/2,X10/' EIF I2 IFC ' ,NE,I VFD N3/0,N1/0,N2/0,X10/' EIF I2 ADC ',' EMC RTJ- ($F4) IFC ',EQ, VFD N1/0,X1/',N5/3,N1/0,N8/0 EIF I3 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/',N5/3,N1/0,N8/0 EIF I3 IFC ',NE,0 VFD N1/0,X1/',N5/3,N1/1,N8/0 EIF I3 IFC ',EQ,R VFD N4/0,N2/1,X10/' EIF  39QI1 IFC ',NE,R IFC ',EQ,I VFD N4/0,N2/2,X10/' EIF I1 IFC ',NE,I VFD N4/0,N2/0,X10/' EIF I1 ADC ' EMC RTJ- ($F4) IFC ' ,EQ, VFD N1/0,X1/' ,N5/1,N1/0,X4/',X4/' EIF I3 IFC ' ,NE, IFC ' ,EQ,0 VFD N1/0,X1/' ,N5/1,N1/0,X4/',X4/' EIF I3 IFC ' ,NE,0 VFD N1/0,X1/' ,N5/1,N1/1,X4/',X4/' EIF I3 ADC ',0 I1 IFC ',NE,B IFC ' ,EQ,R VFD N3/0,N1/1,N2/1,X10/' EIF I1 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/1,N2/2,X10/' EIF I1 IFC ' ,NE,I VFD N3/0,N1/1,N2/0,X10/' EIF I1 I2 IFC ',EQ,B IFC ' ,EQ,R VFD N3/0,N1/0,N2/1,X10/' EIF I2 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/0,N2/2,X10/' ]T  39e EIF I2 IFC ' ,NE,I VFD N3/0,N1/0,N2/0,X10/' EIF I2 ADC ',' EMC RTJ- ($F4) IFC ' ,EQ, VFD N1/0,X1/' ,N5/2,N1/0,X4/',X4/' EIF I3 IFC ' ,NE, IFC ' ,EQ,0 VFD N1/0,X1/' ,N5/2,N1/0,X4/',X4/' EIF I3 IFC ' ,NE,0 VFD N1/0,X1/' ,N5/2,N1/1,X4/',X4/' EIF I3 ADC ',0 I1 IFC ',NE,B IFC ' ,EQ,R VFD N3/0,N1/1,N2/1,X10/' EIF I1 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/1,N2/2,X10/' EIF I1 IFC ' ,NE,I VFD N3/0,N1/1,N2/0,X10/' EIF I1 I2 IFC ',EQ,B IFC ' ,EQ,R VFD N3/0,N1/0,N2/1,X10/' EIF I2 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/0,N2/2,X10/' EIF I2 IFC ' ,NE,I VFD N3/0,N1/0,N2/0,X10/' EIF I2 3`  39y ADC ',' EMC RTJ- ($F4) IFC ',EQ,1 VFD N2/0,N5/16,N8/0 ADC ' EIF 0 81*2071 IFC ',NE,1 81*2071 ADC (') 81*2071 EIF 0 81*2071 EMC RTJ- ($F4) VFD N1/0,N6/5,N1/0,N8/0 EMC RTJ- ($F4) VFD N1/0,N6/11,N1/0,N8/0 EMC RTJ- ($F4) VFD N1/0,N6/7,N1/0,N8/0 EMC RTJ- ($F4) VFD N2/0,N5/19,N1/0,N4/15,N4/15 ADC ' EMC RTJ- ($F4) VFD N2/0,N5/19,N1/0,N4/0,N4/0 ADC ' EMC RTJ- ($F4) IFC ',EQ, VFD N1/0,X1/',N5/9,N1/0,N4/0,X4/' EIF I3 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/',N5/9,N1/0,N4/0,X4/' EIF o  39I3 IFC ',NE,0 VFD N1/0,X1/',N5/9,N1/1,N4/0,X4/' EIF I3 ADC ' EMC RTJ- ($F4) IFC ',EQ, VFD N2/0,N5/15,N1/0,X4/',X4/' EIF I3 IFC ',NE, IFC ',EQ,0 VFD N2/0,N5/15,N1/0,X4/',X4/' EIF I3 IFC ',NE,0 VFD N2/0,N5/15,N1/0,X4/',X4/' EIF I3 ADC ',' EMC RTJ- ($F4) IFC ',EQ, VFD N1/0,X1/',N5/8,N1/0,X4/',X4/' EIF I3 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/',N5/8,N1/0,X4/',X4/' EIF I3 IFC ',NE,0 VFD N1/0,X1/',N5/8,N1/1,X4/',X4/' EIF I3 ADC ',' EMC RTJ- ($F4) IFC ',EQ, VFD N1/0,X1/' ,N5/13,N1/0,X4/',X4/' EIF I3 IFC ',NE, IFC ',EQ,0 Խ  39 VFD N1/0,X1/' ,N5/13,N1/0,X4/',X4/' EIF I3 IFC ',NE,0 VFD N1/0,X1/' ,N5/13,N1/1,X4/',X4/' EIF I3 ADC ',0 ADC $8C2,',' ADC ',' EMC RTJ- ($F4) IFC ',EQ, VFD N1/0,X1/',N5/10,N1/0,X4/',X4/' EIF I3 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/',N5/10,N1/0,X4/',X4/' EIF I3 IFC ',NE,0 VFD N1/0,X1/',N5/10,N1/1,X4/',X4/' EIF I3 ADC ',0,0,' EMC RTJ- ($F4) I1 IFC ',EQ, IFC ',EQ, VFD N1/0,X1/',N5/12,N9/0 EIF I1 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/',N5/12,N9/0 EIF I1 IFC ',NE,0 VFD N1/0,X1/',N5/12,N8/0,N1/1 EIF I1 I2 IFC ',NE, I1 IFC ',EQ,0 IFC ',EQ, VFD N1/0,X1/',N5/12,N9/0  39 EIF I1 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/',N5/12,N9/0 EIF I1 IFC ',NE,0 VFD N1/0,X1/',N5/12,N8/0,N1/1 EIF I1 I2 IFC ',NE,0 IFC ',EQ, VFD N1/0,X1/',N5/12,N1/1,N8/0 EIF I2 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/',N5/12,N1/1,N8/0 EIF I2 IFC ',NE,0 VFD N1/0,X1/',N5/12,N1/1,N7/0,N1/1 EIF I2 ADC ' EMC RTJ- ($F4) IFC ',EQ, VFD N1/0,X1/',N5/17,N1/0,X4/',X4/' EIF I3 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/',N5/17,N1/0,X4/',X4/' EIF I3 IFC ',NE,0 VFD N1/0,X1/',N5/17,N1/1,X4/',X4/' EIF I3 ADC ',0,0,',' EMC RTJ- ($F4) IFC ' ,EQ, VFD N1/0,X1/' ,N5/14,N1/0,X4/',X4/' EIF ם  39I3 IFC ' ,NE, IFC ' ,EQ,0 VFD N1/0,X1/' ,N5/14,N1/0,X4/',X4/' EIF I3 IFC ' ,NE,0 VFD N1/0,X1/' ,N5/14,N1/1,X4/',X4/' EIF I3 ADC ',0 I1 IFC ' ,NE,B IFC ' ,EQ,R VFD N3/0,N1/1,N2/1,X10/' EIF I1 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/1,N2/2,X10/' EIF I1 IFC ' ,NE,I VFD N3/0,N1/1,N2/0,X10/' EIF I1 I2 IFC ' ,EQ,B IFC ' ,EQ,R VFD N3/0,N1/0,N2/1,X10/' EIF I2 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/0,N2/2,X10/' EIF I2 IFC ' ,NE,I VFD N3/0,N1/0,N2/0,X10/' EIF I2 IFC ',NE,R VFD X4/',X4/',X4/',X4/' EIF IFC ',EQ,R VFD N1/1,X3/',X12/' EIF EMC RTJ- ($F4) VFD N2/0,N5/18,N5/0,X4/' q  39 ADC ' EMC NLS IFC ',NE, EQU ' (') EIF 0 IFC ',EQ, IS THERE A PRIORITY EQU ' (0) NO EIF 0 IFC ',NE, EQU ' (') REPEAT MANY TIMES EIF 0 IFC ',EQ, EQU ' (1) REPEAT ONLY ONE TIME EIF 0 EQU ' ('*$1000+' ) SET UP NUM OF TIMES REPEATED IFC ',EQ, NO COMPLETION EQU ' (' *16+' +$5C00) EIF 0 C0 IFC ',NE, COMPLETION YES 88*2712 IFC ',EQ,* RELATIVE COMPLETION EQU ' (' *16+' +$1D00) 81*205 EIF 0 IFC ',EQ, ABS COMPLETION EQU ' (' *16+' +$5C00) EIF 0 EIF C0 88*2712 LST RTJ- ($F4) ADC ' NLS IFC ',EQ, LST ADC 0 COMPLETION NLS EIF 0 C1 IFC ',NE, IS THERE A COMPLETION ADDRESS 88*2712C2 IFC ',EQ,* IS IT RELATIVE 88*2712 LST ADC '-*+1 COMPLETION =Q  39 NLS EIF C2 88*2712C3 IFC ',EQ, 137*4266 LST ADC ' COMPLETION NLS EIF C3 88*2712 EIF C1 88*2712 LST NUM 0 THREAD NLS IFC ',EQ, IT IS THE LOGICAL UNIT LST ADC $0000+' NLS EIF 0 IFC ',EQ,R A RELATIVE DISTANCE LST VFD N6/1,X10/'-*+3 RELATIVE NLS EIF 0 IFC ',EQ,I A ABS CORE LOCATION LST VFD N6/2,X10/' ABS CORE LOCATION NLS EIF 0 LST ADC (' ) REPEAT TIMES N EMC NLS MOT' ',',',',',1 EMC NLS MOT' ',',',',',2 EMC NLS MOT' ',',',',',3   3: EMC NLS MOT' ',',',',',4 EMC NLS MOT' ',',',',',5 EMC NLS MOT' ',',',',',6 EMC NLS MOT' ',',',',',7 EMC LST JMP- ($EA) EMC SPC 1 EXT ISBUFR,CBWRIT,CBREAD,BOUTC SPC 1 NUM $520A 00 SCHEDULER CALL ADC ISBUFR 01 INITIATOR ADDRESS ADC 0 02 CONTINUATOR ADDRESS - NOT USED ADC 0 03 TIMEOUT ERROR ADDRESS - NOT USED NUM -1 04 DIAGNOSTIC CLOCK - NOT USED NUM 0 05 LOGICAL UNIT ADC 0 06 PARAMETER LOCATION NUM 0 07 CONVERTER, EQUIPMENT, STATION - NONE NUM $00A4 08 REQUEST STATUS NUM 0 09 DRIVER STATUS NUM 0 10 CURRENT LOCATION NUM 0 11 LAST LOCATION PLUS ONE NUM 0 12 DEVICE STATUS - NOT USED NUM 0 13 RESERVED NUM $7FFF 14 RESERVED  3: NUM 0 15 RESERVED FOR FNR AND CMR ADC ' 16 LSB START OF BUFFER ADC ' 17 LSB END OF BUFFER ADC ' 18 CURRENT LSB START OF BUFFER ADC ' 19 CURRENT LSB END OF BUFFER NUM $44AA 20 MASS MEMORY WRITE REQUEST (UNFORMATTED) ADC CBWRIT 21 MASS MEMORY WRITE COMPLETION NUM 0 22 THREAD ADC ' 23 MASS MEMORY LOGICAL UNIT NUM 0 24 NUMBER OF WORDS NUM 0 25 STARTING DATA LOCATION ADC ' 26 MSB ADDRESS ADC ' 27 LSB ADDRESS NUM 0 28 CONTROL WORD NUM $42AA 29 MASS MEMORY READ REQUEST (UNFORMATTED) ADC CBREAD 30 MASS MEMORY READ COMPLETION NUM 0 31 THREAD ADC ' 32 MASS MEMORY LOGICAL UNIT NUM 0 33 NUMBER OF WORDS ADC ' 34 STARTING LOCATION (CHARACTER BUFFER) ADC ' 35 MSB ADDRESS ADC ' 36 LSB ADDRESS NUM 0 37 PARTIAL WORD OUTPUT FLAG NUM $4CAA 38 BUFFER WRITE REQUEST (FORMATTED) ADC BOUTC 39 BUFFER WRITE COMPLETION NUM 0 40 THREAD ADC ' 41 OUTPUT LOGICAL UNIT NUM 0 42 NUMBER OF WORDS ADC ' 43 STARTING LOCATION (CHARACTER BUFFER) ADC ' 44 CHARACTER BUFFER SIZE BZS '(') 45 CHARACTER BUFFER EMC *N,MACROS,,,B 00440O0S O11 `O12 O13  O14 O1Q O1A @O1I O1 O0T `O0G O0OIS O0OSRX O0OIR O4 @O41 O42 O43 `O44 O4Q  O4A O4I O0F @O3 O31 O32 `O33 O34  O3Q O3A O3I  @O2  O21 !O22 !`O23 !O24 " O2Q "O2A "O2I #@SJI #SJ1 $SJ2 $`SJ3 $SJ4 % SJQ %SJA %SJE &@ARI &FL  3:-AR1 'AR2 '`AR3 'AR4 ( ARQ (ARA (SBI )@SB1 )SB2 *SB3 *`SB4 *SBQ + SBA +ANI +AN1 ,@AN2 ,AN3 -AN4 -`ANQ -ANA . ORI .OR1 .OR2 /@OR3 /OR4 0ORQ 0`ORA 0LRI 1 LR1 1LR2 1LR3 2@LR4 2LRQ 3LRA 3`SRI 3SR1 4 SR2 4SR3 4SR4 5@SRQ 5SRA 6CIE 6`C1E 6C2E 7 C3E 7C4E 7CQE 8@CAE 8AMI 9AM1 9`AM2 9AM3 : AM4 :AMQ :AMA ;@OMI ;OM1 <OM2 <`OM3 @AS2 >AS3 ?AS4 ?`ASQ ?ASA @ ASI @SM1 @SM2 A@SM3 ASM4 BSMQ B`SMA BSMI C ER1 CER2 CER3 D@ER4 DERQ EERA E`ERI EEM1 F EM2 FEM3 FEM4 G@EMQ GEMA HEMI H`C1N HC2N I C3N IC4N ICQN J@CAN JCIN KCCN K`LCA KSCA L CCE LXF1 LXF2 M@XF3 MXF4 NXFQ N`XFA NXFI O S1Z OS2Z OS3Z P@S4Z PS1N QS2N Q`S3N QS4N R S1M RS2M RS3M S@S4M SS1P TS2P T`S3P TS4P U LFA USFA USFZ V@SFN VCLF WSEF W`D1P WD2P X D3P XD4P XDQP Y@DAP YDIP ZO0OSB Z`O00 \@O01 aSIO aLUB b@LLB bEMS cWPR c`RPR cECC d ASC dAPM dPM0 e@PM1 eO0EX fGPE fGPO g LRG gSRG hLMM iCBP j DMI jSPS jVOLA k@VOLR lHEXDECnHEXASCoENCODEpDECODEs DECHEXu`ASCII vFLOATGwCLOCK xFLDF yDEFFIL|DEFIDX}LOKFIL~`UNLFILRELFIL@STOSEQRTVSEQSTOIDX@RTVIDXRTVIDOSTODIRRTVDIR@STATFLFREAD FWRITE STATUS`READ WRITE INDIR `EXIT @CORE LOADERDISCHDENSCHD@SCHDLETIMPT1TIMER @GTFILE SPACE RELEASPTNCOR MOTION @SYSCHD MOT BSR ڠEOF `REW  UNL ADF ݠBSF `ADR  DISP ཪFFERGTFILE SPACE RELEASPTNCOR MOTION @SYSCHD MOT BSR ڠEOF `REW  * 00500__mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3:AmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmR  3:Ummmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm=  3:immmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm(  3:}mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3:mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmAL:O CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm P>CNVT 01A F FTN CCS 3.0 SL-149@P' h Hj  &jn  &n 1(h(l (h @P/(Ո l l@P8HPCNVT :P P)GPUT 02A F FTN CCS 3.0 SL-149@P 0p4^d h, h` dRm @HHPGPUT "P PSYMBOL 03A F FTN CCS 3.0 SL-149@P@Pn@Pp$$%%@P *F,58@Pi@Pu h0fh d00cdb h  [  h lޜ dlT" 8 %@P 0؄eh  l  3:@P̌d` 0bc l    ~ 'do@P   q00chIn pI K@P  0[ ̘dk̔ۄalv Pllf dlT0 ̽@P00edrj0Z ddTl di l9 `ܷ @P[nҔ0` \rLm" 8 % l̵cds l@Pd !al\̟d *\nn0 d T db׌ dtdk6 @PfhHPSYMBOLPGETSYM(WRITE @SKIPITP P GETF 04A F FTN CCS 3.0 SL-149@P@P $$@P   %% @P'!"#%&:;<>?@[\]^_@P) hhhhh h h f 1T  h  !3 !?^ I @PTe" ; 'lr '"   l  lȝ" : @P'" : '_Y" ; '(.@P   l" ; ' ld(d@P .l  lTl  l̿  l l d   3:@P3 " l l\1Ȍl l !s̙ h !`̲ddT>̫ ̨@P+ ? d̠  l̛d d d!&\̎ 2  0=f n @PV  l ln l̹   d̼llȌl\l@P d l  T l l d d @P@P !@P$@P "S "S ,l̻dRl@P9@P(@P  \!@P&@P@PT&  "^]  1 - 4 >̪ \ l l lL@Pd  d\Ϝ l\ l\̼  l̵l\̱ ̭@P \̧l l@P@P)@P)@P)\̠ ̜l\̘  l%'  3:@P@P 9 2  " $l l T9  @P dd d  l !L f$l"Lh<h9,5l # d@PLh*h(,$lLh h,؈l lll " l̳ ( @Pl@P  % #$,l̙ 3i dd l` Z@P>@P B d0 lT "f $!#̽  l d2̳ @P\̯  ll(֬ ll %l l  l@Pk*@Pq*@Pe@P*̺ ̧  X̄d@P~>@P> d $ !M  dl l݌l  lT l@Pild   TZ$\%  d &lZ lV'l @P\$ \(@P@P   ll  l d@P  3:@P@P@P@P@Pdd lT  ll@P@P@P @P d̮    ̡  l  l d     @P&TTHPGETF PGETC GPUT DIAG yDXP9 dCNVT SYMBOLP P6GNST 05A F FTN CCS 3.0 SL-149@P@P /@P@P @P`)(@P M09+ O  3:@PONMON @Ppqpr@P0"0# 060/K@PEND@P'!"#%&:;<>?@[\]^_@P C * $ . + O M @PPROGRAM@P%SUBROUTINE@P/FUNCTION@P7REALFUNCTION@PCINTEGERFUNCTION@PRBLOCKDATA@P[MACRO@P`DOUBLEPRECISIONFUNCTION@PxQ8QNAM@P{Q8QBDS@P~@P&5>CZ@P @P d hhh h uhh TZ T0 Ȱ dd  3; @P dT \ \Ȓ  dwf  $1l h @P,d l!T!wd   9 2~" 8 % @PB  l  1\ 0T %" 8 @Pm%  0 ?̻" 9 %T*̾  d@Pw nܷ (1 'n̪ \ܩ l d Hl)T!w@PdT!w l   Al̾ l 1 ~" 8 % &@Pdll l얶h+ w 1"̮"@P"! + "@P0 dEl  !Tl̖  dd @P[ 1W l fܥ 1 l d!Td n̐ ܍ H1T@P l f 1TT̾$l dwd!  @P  l dHd/d d~ d @PH@P@P $ l\d $d l̸dfܯ (1 @P ! |ܔHl l՜9Tawa@P@P@P T\l TD  @PF- l~dd dTod Z X !M̪ T  3;@Pq{] l f 1 ll !# H!!\l  9 Z!(̿@P !$ Z8̷ 5̴nܧT\w ܜ H1 1\x @P~  d l0d0# 7T dD df 1T@P$d  T % ld!% $ \ @Pnf &̴f' lܫ l d^@PL-@P -  l dw̜!6TWwl d̢0<  /1 d 0l̐@PX  1T /l d/T8!w/ !l\/ (l@P@P\ d{@PT@Pg@P@P@P@P%e@P&d@P'c@P<@PB  3;1@PT@P@P@P0    lfܘ 1T \ ~" 9 &@P |l\/ lT@PA@P  Fd  Ta !2 !l @P ld dw f $1  $l lc dTj d@P%T\R@PJ,@P,\\HPGNST 1PCONV PACK WRITE IGETCFa  3VV綀@P+ @P@P &'@P -,--)@P*/@P; h f 1 dd hhh dUT   d  ( @Pf   HT  f $ f% d )  P  3<@P\&h00chK*d !̴ 3 `̦ ̣ @Pܼ nld'q Un̮ 4\%0; "TTR  d# l@P   ll l l0b ΓK @Pchh-A)  K* Tv$ @mEl f $ܑ̝ U !\@P=Ԅen@PEC3  f#d̦ <κ 6αI d    @Pp   lΙH  hI  ld'n 3T%&@Pd) cIlI  rI3d e d@P!λId 2αIlQ̻ 2̶ 2\& lU  @P `΍ ` @P@P d - d; "Tf$l"! 1@P)R   1 l 7 #T+  "\,  \@PT-'  \ . %  dT! |Tu@P|@P|@P| h l/d  l" &̫ 8̨  2\& l@P@P  ̯ T   U Td l @P6 2 !F 0#dcTh3 ̼  % ~  3<@P@PTF0\̺ E̵ \1 f$l̯ d; "T f%ܢܡ̨ @P̩ d)@P  @P+ n ܋   l d d 8  2@P<K@PK\& l\(@P!4@PU Un@P#7@P$6@P%5@P&4@P'3@P(2@PZ n  dl l@PJ@P3i@P i  ln ! n$l@P)V  3<@P*U@P n̿ $ !@P+`@P,_@P f %  n̥ # n@P-q@P n@P"@Pܴ  n ̗  ̔    ! d@P@PT   E  O @Ph@P U n . &0b T0c00e\ 0hK*  @@PmK T2̹ *̵   \$f  f$j  @m@P0'  \4u?/d d"dW d VU n f % l̗f@PR#g@PU@PU|d'@PY@PY  3<@P0Yb T nchI3    @m d @P" 8 $&"l" 8 $Id $d l@P  Fl l \ U d5d6% @PlT '    ll 0 c@h@Pm d7\   l   l 1 @m@P0T2U$ n:K* "   \2@PM@PM  x  n#/dΘK  nyd'@Px nld)l@P*@P  "fVfW l@P@P , 1&̥8!dl dl dlT Uf"̞ @P l llb !T^@P7@P@P 0c@hm  @m @m@PT@P@P #f $1d'G be  3<@P@P  l@P@PȤ K*   Y YT12 nΣK @P9> U޵Glΰd     "0c0h K @PdK A K 1ଔ \9 @m@Pb@P\:@P@P @ HHPARITH PLOCAL wGETF DIAG .PUNT TREE oGETSYMSUBSCRSTORE GETC SYMBOLP PCOMNPR 15A F FTN CCS 3.0 SL-149@P$ hT  S S\ !N X09 hh0d8!- @P0., Č0 7 >d h h nصض 1l̼  d@PYT̳ 1 lȜlT\̤ ̠  l l\̥ lT @P +4 1 HoPCOMNPRPGETF DIMPR [DIAG g  3<P PDIMPR 16A F FTN CCS 3.0 SL-149@P,@P 9@P @P%  &-T  #T  \ \     @P:0b chKd 1 K Kd &\T0:h h@Pe܄ehOh } L\\̘ 09 $T  f@P   xlT@m $ah0cp8 d @P  0( n @P̙h n̳lT ̺ ̵ 5̰ 0\ '8hE@Pd  T(@m  '+@fi̗@Pem @m  c@mͻ |\  2@PH\΢I  dΗI  ΐI  \  8@h@Psm  @m  @m  @mT@P"@P0@P;@P @ HHkPDIMPR Q  3<PGETF DIAG STORE _GETSYMP PSUBSCR 17A F FTN CCS 3.0 SL-149@P@P@P@P$$ch h j 1hI h      hH @PC I  hרh hȻ!# $ahp8 h0(hȧ ȧHhȤ@Pn hfؖ@P{ hdf 1 U dT   #T '@P , z ? \Yb TchI (@P@mKC  n I K, \τ0 ef@P̤  l̟ ̜ T    ̡f dn ly@P ' UT \  C 3 ` ,m\̼ @PRD\̿ Uf$Wd0; "T̩ ̥ @P}̡n ̓      l̳  l ,,l ,l,@P,؄,d d d  1  l   1@P 6 Uf$d W -f%dcT  nh@PC  nJ̣ U̞ n d0; "Tr n( f&̱@P) lίd d xΑ I d d d  #n܍Ϝ !\T\  3=@P0Tb T @m m̌eUf$ud n d !\@P f % nΪdcT0hC  n d; "T!ΐn( f& @P f'̿ l 22 f " f#̮n n@P3@PX@P @ HHGPSUBSCRPGETF  DIAG -STORE YPUNT GETSYMSYMBOLSP PTYPEPR 18A F FTN CCS 3.0 SL-149@P d d  l lTHPTYPEPRPDIMPR P PBYEQPR 19A F FTN CCS 3.0 SL-149@P@P)@P @P *PX Y ,(-' @h hhT     h\ 4T@P7 hh˘6 fe  \\  \    3=%@Pb̵h hhb TchhAhK  K \ @P @mۄen l_ #\ " / G@P  !T7 f efff gfhl n lT \  @PS  )\l dd4 6̪ 6\ 3 @P \'̙  9 !5  3\ dfa   @P86\̘ 6̴ ̯  6{Y % lT̬nܗ ̓@Pc  6  d d $\ ̰ 6 ]d0cT@P@0jmm0 hm d O Id@P $\z   I TY @mC \\ d @P1N@P-@PK@P@P @ HH&PBYEQPRPGETF DIAG STORE nGETSYMP PCHECKF 20A F FTN CCS 3.0 SL-149@P@P ddd d dT""   l   -T"!]  3=9@P. ,1PONMLK\" ; (K Dܶ "\@PY̯ l ̮d ̩ "\  \  d d!T l l \@P(  % 1  T'  \̷ A d @PHSPCHECKFPFORK DIAG FGETC uP PFGETC 21A F FTN CCS 3.0 SL-149@P\@PH@P'!"#%&:;<>?@[\]^_@P hT   h    l d h h\ T@PK lx@PQ   ȿ  ػȻ1ȵlȴ h \9T h  ܨȤ@P|hT* @P؛ 1 d! T%=l /$l\ ܚ lvl@P /#l\"  l  El  $lHTThhh\hyHPFGETC PQ8PKUPQ8PREPGETC DIAG ICONV nSTCHAR~P |  3=M PFORK 22A F FTN CCS 3.0 SL-149@P 0@PAEFH@PI.)R@P$/X,@P (@P l3 l2l2l2l2hhhT h     h h "! '@P? @PMȽ d 1Ⱥ !" : ' hȣ裖 " ;@Px '_zyw  1 ̷" 8 $ ̥@P" 8 $ H" 8 $`["! 1u@PmfvmxJmkGEvtf̧ d !g"! *[Z7X@P l ̵  1@"! )F542F76> dJ @P$dH m l dI l l l lܿ l l ll@PO l lьl l l l l̻h , l "Jl@Pe@Pf@Pv̲  ̠h $Ll ̑h $Kl@PDU@PET  3=a@PG@P̋l̊ J l dT  " d "{ dHl @P  l "Z_| l$H!TThfhh?h\h_hF\h[@Ph1\hWh\hThPFORK PQ8PKUPQ8PREPFGETC P PSUBPPR 23A F FTN CCS 3.0 SL-149@P+QR e h d0:T  ,T   [}\ \b @P,P\  CT d_T 0c@hm  @m@PW@m @mׄen̦ ̖ \"\ @@Pm̾nܱ B1̬ l T l\ @ HH_PSUBPPRPGETF DIAG SAVEID8STORE @P P^EXRLPR 24A F FTN CCS 3.0 SL-149@P+T    CT <b 00chK K @P+ K \T @m  @m̿ ̻ \ @@PVHHPEXRLPRWmK  3=uPGETF DIAG STORE 6P P4PEQVS 25A F FTN CCS 3.0 SL-149@P@Pj@PPU@P PW@P@PPT@P"PX d00cdeT %hI  h0k# 7% 2 hȷ@@PMm  h hȧ h hhȡ 2 e ؖȕh hhlT@Px0jO ΫO  TΜ d d f  @Pl g  lh  l  4 nG܀ehT@P\ n  n3d $0ahcp8 d (l Hll@P@Pl좞 ! 윞 "0hH  I I @P f nI `, mE& \0id 1NlTx dν@PJdZd  d?~  d.l0cΞH ̠ ΖI @PuhI lI ,lΕn؄0ef e0g "@P` &f mh ܞ " @--n>  3=@Pg@P lddl ɔ 1E l̻d γ  ̴`ͮ fWfX̩ l@PΡ  nܞ̝n 7 nl̐l d =ܹܺ ! n̮l@PT e f  glld  lΪΞ  l@PHd   `fWɜfX l n n l @Ps dd d /`lm̥nlm̟nܼܽ @P lκ Ԝ γ l d ddld!%  8VdcT@PD0hEYl W  l Ԟn ̔ l d̐dd" @Pl\EdOd   ļdd!μ  θl\@P@m ̾@m̺ d ' Ü ̾ ̦ WhT@PKT fWOc0@hmlld!< 4Ğ (X@Pv "lTO   ހWh\@P̟Wh\@P\ n̔  Ed "0 dld d Ζ <  3@Pl-Af0 f0 dld!0dc\@0jm  !1@Pl̲ܳ 11W ܧܦ0 *!  lTL" ̔`nXnܛ@Pܚ̘  l\"@PW(@Pu(@P( @ HH  3=PPEQVS ,PSYMSCN)GETSYMDIAG PRNTNMIP PPRNTNM 26A F FTN CCS 3.0 SL-149@P@Pv@P@P@P@P'@P @P h_dcT h h hhkh &h h h(hA(dŘ<"`p@PF9iɺh  .h0=jؽ hؾ 1ض 1 hȯA hȱ@)jȤ h@Pq 1T@P~@H HTThPPRNTNMPQ8PKUPQ8PREPGETSYM!WRITE vP P8PUNT 27A F FTN CCS 3.0 SL-149@P>  3=@Pd)@PEND@P dTT  h hTh   H1 T@P4HPPUNT 4PDIAG READ IGETCFSKIPIT1P P)SYMSCN 28A F FTN CCS 3.0 SL-149@P0c  le0al` 3 lTHPSYMSCNPGETSYMP PENDDO 29A F FTN CCS 3.0 SL-149@P I@P H@P@P)@P dh0n  holsD _ hghh0dcT @@P08jmpl\ @m0ql\ @mrl\ @@Pcm h ȕ ȑdhZh lTȇ ̒ >̍d ̉dnn  3=@Pd-ΌМ # dT do d l; d n@PӜl̜l 1 2 .!dl    5 2 \ @P    8 5̭ \ @ HH PENDDO PGETSYM4OUTENTzDIAG P PCONSUB 30A F FTN CCS 3.0 SL-149@P@P@P W,@P  hhh d 0c0hh $ah"p8 h0(h Hhh h h@P8 'T lՀ=@PAT  $ \ ȶh0 "\ jت Ƞ  \ @Plȕ @-h %-܈DŽl @HHPCONSUBPDIAG ;GETF BP PDATAPR 31A F FTN CCS 3.0 SL-149@P@P*SU "  3=@P/@P6@P9,=@P@0@PE[@PK\@PN2.@PU @P'!"#%&:;<>?@[\]^_@PV hh hh hhT  ؽT* 0b T08chI@P @mK-  @m K K @P\+C; K \,οO κE \-"d.ή ) @PTn/l d0 f 1 d1d2d3d4ced0hId@PlH    l`笚d jm $ah(p8% d5@P0-(lƬ Hl6l ld70n l ܘ߀@PN ) !  !d"d#dT d8 d( m d@Py0̞lTb mb T{chI;  @mK  @P@mI T9K ̈́0ef5 l̍  @Pm 4\:̟ l ) l l l d7T  mT}̓d@P0 \ m  $ \<f\ 1 ؞  3=@P%!Ι !f̚ \ 1 f m̙ l5 l @PP̩ lܗ) T=\̫  m@Pe@Pee@Pe   d>d?d4d3̳d2(  $!dM ,$"@Pd8$1lnff l @!) n d'& m l@P eT ] \A l̝l̩l 1̜l @P1̎d4 1? ^ m n"@PY@P̖dB$ll dC dDŢ   m  2l\  @P.  T[E    ldF d T   l\@PY*dG dHdI=dJ /$l lhT@PHJ\ 4  l\K Ȍ l  l̰dL̺ dd%@P lMl d$dBlḽ  lܤ̜ h\@PHJ̟ lC ľ d d  FdrT dD l  9@P\   9dldldl    @P  T:N lll n ff̞ l  nn l@PG̷n lC l  d d%'   =\O(d@PrMd Pd Qd Rd SdT d$dBlT?l  lll@Plllll0 d(d)d&̐lT T"Ul ̣  d̝ M  3>@P'l̖ ^\U C (D J'  m\ǐA@Pq@P@P@P@P@P^@P@P[@P@P @ HH\PDATAPRPGETF DIAG STORE CONSUBgGETC NSTCHAR~OUTENTP PFASGNPR 32A F FTN CCS 3.0 SL-149@PFT  T0T0b T c0@hme n T@P+ \ Tf l @HHPASGNPR?PRDLABLDIAG SYMBOL STORE GETC )CKNAME2P X_  3> P)PCFIVOCWPGETF DIAG 9STORE <P PCKIVC 35A F FTN CCS 3.0 SL-149@P?T THPCKIVC PCFIVOCDIAG P PCKNAME 36A F FTN CCS 3.0 SL-149@P@T THPCKNAME PCFIVOCDIAG P PFIOSPR 37A F FTN CCS 3.0 SL-149@P@P)/$$*S @@P>@P!#.@P$@P(OOu  3:AL:O CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm P>CNVT 01A F FTN CCS 3.0 SL-149@P' h Hj  &jn  &n 1(h(l (h @P/(Ո l l@P8HPCNVT :P P)GPUT 02A F FTN CCS 3.0 SL-149@P 0p4^d h, h` dRm @HHPGPUT "P PSYMBOL 03A F FTN CCS 3.0 SL-149@P@Pn@Pp$$%%@P *F,58@Pi@Pu h0fh d00cdb h  [  h lޜ dlT" 8 %@P 0؄eh  l @P̌d` 0bc l    ~ 'do  3:@P   q00chIn pI K@P  0[ ̘dk̔ۄalv Pllf dlT0 ̽@P00edrj0Z ddTl di l9 `ܷ @P[nҔ0` \rLm" 8 % l̵cds l@Pd !al\̟d *\nn0 d T db׌ dtdk6 @PfhHPSYMBOLPGETSYM(WRITE @SKIPITP P GETF 04A F FTN CCS 3.0 SL-149@P@P $$@P   %% @P'!"#%&:;<>?@[\]^_@P) hhhhh h h f 1T  h  !3 !?^ I @PTe" ; 'lr '"   l  lȝ" : @P'" : '_Y" ; '(.@P   l" ; ' ld(d@P .l  lTl  l̿  l l d @P3 " l l\1Ȍl l !s̙ h !`̲ddT>̫ ̨  3:@P+ ? d̠  l̛d d d!&\̎ 2  0=f n @PV  l ln l̹   d̼llȌl\l@P d l  T l l d d @P@P !@P$@P "S "S ,l̻dRl@P9@P(@P  \!@P&@P@PT&  "^]  1 - 4 >̪ \ l l lL@Pd  d\Ϝ l\ l\̼  l̵l\̱ ̭@P \̧l l@P@P)@P)@P)\̠ ̜l\̘  l@P*  3:@P 9 2  " $l l T9  @P dd d  l !L f$l"Lh<h9,5l # d@PLh*h(,$lLh h,؈l lll " l̳ ( @Pl@P  % #$,l̙ 3i dd l` Z@P>@P B d0 lT "f $!#̽  l d2̳ @P\̯  ll(֬ ll %l l  l@Pk*@Pq*@Pe@P*̺ ̧  X̄d@P~>@P> d $ !M  dl l݌l  lT l@Pild   TZ$\%  d &lZ lV'l @P\$ \(@P@P   ll  l d@P@P  3:@P@P@P@Pdd lT  ll@P@P@P @P d̮    ̡  l  l d     @P&TTHPGETF PGETC GPUT DIAG yDXP9 dCNVT SYMBOLP P6GNST 05A F FTN CCS 3.0 SL-149@P@P /@P@P @P`)(@P M09+ O@PONMON  3:@Ppqpr@P0"0# 060/K@PEND@P'!"#%&:;<>?@[\]^_@P C * $ . + O M @PPROGRAM@P%SUBROUTINE@P/FUNCTION@P7REALFUNCTION@PCINTEGERFUNCTION@PRBLOCKDATA@P[MACRO@P`DOUBLEPRECISIONFUNCTION@PxQ8QNAM@P{Q8QBDS@P~@P&5>CZ@P @P d hhh h uhh TZ T0 Ȱ dd@P dT \ \Ȓ  dwf  $1l h X  3; @P,d l!T!wd   9 2~" 8 % @PB  l  1\ 0T %" 8 @Pm%  0 ?̻" 9 %T*̾  d@Pw nܷ (1 'n̪ \ܩ l d Hl)T!w@PdT!w l   Al̾ l 1 ~" 8 % &@Pdll l얶h+ w 1"̮"@P"! + "@P0 dEl  !Tl̖  dd @P[ 1W l fܥ 1 l d!Td n̐ ܍ H1T@P l f 1TT̾$l dwd!  @P  l dHd/d d~ d @PH@P@P $ l\d $d l̸dfܯ (1 @P ! |ܔHl l՜9Tawa@P@P@P T\l TD  @PF- l~dd dTod Z X !M̪ T@Pq{] l f 1 ll !# H!!\l  9 Z!(̿  3;@P !$ Z8̷ 5̴nܧT\w ܜ H1 1\x @P~  d l0d0# 7T dD df 1T@P$d  T % ld!% $ \ @Pnf &̴f' lܫ l d^@PL-@P -  l dw̜!6TWwl d̢0<  /1 d 0l̐@PX  1T /l d/T8!w/ !l\/ (l@P@P\ d{@PT@Pg@P@P@P@P%e@P&d@P'c@P<@PB@PTP  3;2@P@P@P0    lfܘ 1T \ ~" 9 &@P |l\/ lT@PA@P  Fd  Ta !2 !l @P ld dw f $1  $l lc dTj d@P%T\R@PJ,@P,\\HPGNST 1PCONV PACK WRITE IGETCFVV綀@P+ @P@P &'@P -,--)@P*/@P; h f 1 dd hhh dUT   d  ( @Pf   HT  f $ f% d )  @P\&h00chK*d !̴ 3 `̦ ̣ t  3<@Pܼ nld'q Un̮ 4\%0; "TTR  d# l@P   ll l l0b ΓK @Pchh-A)  K* Tv$ @mEl f $ܑ̝ U !\@P=Ԅen@PEC3  f#d̦ <κ 6αI d    @Pp   lΙH  hI  ld'n 3T%&@Pd) cIlI  rI3d e d@P!λId 2αIlQ̻ 2̶ 2\& lU  @P `΍ ` @P@P d - d; "Tf$l"! 1@P)R   1 l 7 #T+  "\,  \@PT-'  \ . %  dT! |Tu@P|@P|@P| h l/d  l" &̫ 8̨  2\& l@P@P  ̯ T   U Td l @P6 2 !F 0#dcTh3 ̼  % @PFN  3<@PTF0\̺ E̵ \1 f$l̯ d; "T f%ܢܡ̨ @P̩ d)@P  @P+ n ܋   l d d 8  2@P<K@PK\& l\(@P!4@PU Un@P#7@P$6@P%5@P&4@P'3@P(2@PZ n  dl l@PJ@P3i@P i  ln ! n$l@P)V@P*U  3<@P n̿ $ !@P+`@P,_@P f %  n̥ # n@P-q@P n@P"@Pܴ  n ̗  ̔    ! d@P@PT   E  O @Ph@P U n . &0b T0c00e\ 0hK*  @@PmK T2̹ *̵   \$f  f$j  @m@P0'  \4u?/d d"dW d VU n f % l̗f@PR#g@PU@PU|d'@PY@PY@P0Yb T nchI3    @m d "v  3<@P" 8 $&"l" 8 $Id $d l@P  Fl l \ U d5d6% @PlT '    ll 0 c@h@Pm d7\   l   l 1 @m@P0T2U$ n:K* "   \2@PM@PM  x  n#/dΘK  nyd'@Px nld)l@P*@P  "fVfW l@P@P , 1&̥8!dl dl dlT Uf"̞ @P l llb !T^@P7@P@P 0c@hm  @m @m@PT@P@P #f $1d'G be@PHR  3<@P  l@P@PȤ K*   Y YT12 nΣK @P9> U޵Glΰd     "0c0h K @PdK A K 1ଔ \9 @m@Pb@P\:@P@P @ HHPARITH PLOCAL wGETF DIAG .PUNT TREE oGETSYMSUBSCRSTORE GETC SYMBOLP PCOMNPR 15A F FTN CCS 3.0 SL-149@P$ hT  S S\ !N X09 hh0d8!- @P0., Č0 7 >d h h nصض 1l̼  d@PYT̳ 1 lȜlT\̤ ̠  l l\̥ lT @P +4 1 HoPCOMNPRPGETF DIMPR [DIAG gP >  3< PDIMPR 16A F FTN CCS 3.0 SL-149@P,@P 9@P @P%  &-T  #T  \ \     @P:0b chKd 1 K Kd &\T0:h h@Pe܄ehOh } L\\̘ 09 $T  f@P   xlT@m $ah0cp8 d @P  0( n @P̙h n̳lT ̺ ̵ 5̰ 0\ '8hE@Pd  T(@m  '+@fi̗@Pem @m  c@mͻ |\  2@PH\΢I  dΗI  ΐI  \  8@h@Psm  @m  @m  @mT@P"@P0@P;@P @ HHkPDIMPR PGETF DIAG STORE _GETSYM  3<P PSUBSCR 17A F FTN CCS 3.0 SL-149@P@P@P@P$$ch h j 1hI h      hH @PC I  hרh hȻ!# $ahp8 h0(hȧ ȧHhȤ@Pn hfؖ@P{ hdf 1 U dT   #T '@P , z ? \Yb TchI (@P@mKC  n I K, \τ0 ef@P̤  l̟ ̜ T    ̡f dn ly@P ' UT \  C 3 ` ,m\̼ @PRD\̿ Uf$Wd0; "T̩ ̥ @P}̡n ̓      l̳  l ,,l ,l,@P,؄,d d d  1  l   1@P 6 Uf$d W -f%dcT  nh@PC  nJ̣ U̞ n d0; "Tr n( f&̱@P) lίd d xΑ I d d d  #n܍Ϝ !\T@P0Tb T @m m̌eUf$ud n d !\`  3=@P f % nΪdcT0hC  n d; "T!ΐn( f& @P f'̿ l 22 f " f#̮n n@P3@PX@P @ HHGPSUBSCRPGETF  DIAG -STORE YPUNT GETSYMSYMBOLSP PTYPEPR 18A F FTN CCS 3.0 SL-149@P d d  l lTHPTYPEPRPDIMPR P PBYEQPR 19A F FTN CCS 3.0 SL-149@P@P)@P @P *PX Y ,(-' @h hhT     h\ 4T@P7 hh˘6 fe  \\  \  @Pb̵h hhb TchhAhK  K \ j  3=&@P @mۄen l_ #\ " / G@P  !T7 f efff gfhl n lT \  @PS  )\l dd4 6̪ 6\ 3 @P \'̙  9 !5  3\ dfa   @P86\̘ 6̴ ̯  6{Y % lT̬nܗ ̓@Pc  6  d d $\ ̰ 6 ]d0cT@P@0jmm0 hm d O Id@P $\z   I TY @mC \\ d @P1N@P-@PK@P@P @ HH&PBYEQPRPGETF DIAG STORE nGETSYMP PCHECKF 20A F FTN CCS 3.0 SL-149@P@P ddd d dT""   l   -T"!@P. ,1PONMLK\" ; (K Dܶ "\R  3=:@PY̯ l ̮d ̩ "\  \  d d!T l l \@P(  % 1  T'  \̷ A d @PHSPCHECKFPFORK DIAG FGETC uP PFGETC 21A F FTN CCS 3.0 SL-149@P\@PH@P'!"#%&:;<>?@[\]^_@P hT   h    l d h h\ T@PK lx@PQ   ȿ  ػȻ1ȵlȴ h \9T h  ܨȤ@P|hT* @P؛ 1 d! T%=l /$l\ ܚ lvl@P /#l\"  l  El  $lHTThhh\hyHPFGETC PQ8PKUPQ8PREPGETC DIAG ICONV nSTCHAR~P PFORK 22A F FTN CCS 3.0 SL-149  3=N@P 0@PAEFH@PI.)R@P$/X,@P (@P l3 l2l2l2l2hhhT h     h h "! '@P? @PMȽ d 1Ⱥ !" : ' hȣ裖 " ;@Px '_zyw  1 ̷" 8 $ ̥@P" 8 $ H" 8 $`["! 1u@PmfvmxJmkGEvtf̧ d !g"! *[Z7X@P l ̵  1@"! )F542F76> dJ @P$dH m l dI l l l lܿ l l ll@PO l lьl l l l l̻h , l "Jl@Pe@Pf@Pv̲  ̠h $Ll ̑h $Kl@PDU@PET@PG  3=b@P̋l̊ J l dT  " d "{ dHl @P  l "Z_| l$H!TThfhh?h\h_hF\h[@Ph1\hWh\hThPFORK PQ8PKUPQ8PREPFGETC P PSUBPPR 23A F FTN CCS 3.0 SL-149@P+QR e h d0:T  ,T   [}\ \b @P,P\  CT d_T 0c@hm  @m@PW@m @mׄen̦ ̖ \"\ @@Pm̾nܱ B1̬ l T l\ @ HH_PSUBPPRPGETF DIAG SAVEID8STORE @P P^EXRLPR 24A F FTN CCS 3.0 SL-149@P+T    CT <b 00chK K @P+ K \T @m  @m̿ ̻ \ @@PVHHPEXRLPRWPGETF DIAG STORE 6ތ  3=vP P4PEQVS 25A F FTN CCS 3.0 SL-149@P@Pj@PPU@P PW@P@PPT@P"PX d00cdeT %hI  h0k# 7% 2 hȷ@@PMm  h hȧ h hhȡ 2 e ؖȕh hhlT@Px0jO ΫO  TΜ d d f  @Pl g  lh  l  4 nG܀ehT@P\ n  n3d $0ahcp8 d (l Hll@P@Pl좞 ! 윞 "0hH  I I @P f nI `, mE& \0id 1NlTx dν@PJdZd  d?~  d.l0cΞH ̠ ΖI @PuhI lI ,lΕn؄0ef e0g "@P` &f mh ܞ " @--n>@Pg"(  3=@P lddl ɔ 1E l̻d γ  ̴`ͮ fWfX̩ l@PΡ  nܞ̝n 7 nl̐l d =ܹܺ ! n̮l@PT e f  glld  lΪΞ  l@PHd   `fWɜfX l n n l @Ps dd d /`lm̥nlm̟nܼܽ @P lκ Ԝ γ l d ddld!%  8VdcT@PD0hEYl W  l Ԟn ̔ l d̐dd" @Pl\EdOd   ļdd!μ  θl\@P@m ̾@m̺ d ' Ü ̾ ̦ WhT@PKT fWOc0@hmlld!< 4Ğ (X@Pv "lTO   ހWh\@P̟Wh\@P\ n̔  Ed "0 dld d Ζ <  3@Pl-Af0 f0 dld!0dc\@0jm  !1@Pl̲ܳ 11W ܧܦ0 *!  lTL" ̔`nXnܛ@Pܚ̘  l\"@PW(@Pu(@P( @ HHPPEQVS ,  3=PSYMSCN)GETSYMDIAG PRNTNMIP PPRNTNM 26A F FTN CCS 3.0 SL-149@P@Pv@P@P@P@P'@P @P h_dcT h h hhkh &h h h(hA(dŘ<"`p@PF9iɺh  .h0=jؽ hؾ 1ض 1 hȯA hȱ@)jȤ h@Pq 1T@P~@H HTThPPRNTNMPQ8PKUPQ8PREPGETSYM!WRITE vP P8PUNT 27A F FTN CCS 3.0 SL-149@P@Pd)  3=@PEND@P dTT  h hTh   H1 T@P4HPPUNT 4PDIAG READ IGETCFSKIPIT1P P)SYMSCN 28A F FTN CCS 3.0 SL-149@P0c  le0al` 3 lTHPSYMSCNPGETSYMP PENDDO 29A F FTN CCS 3.0 SL-149@P I@P H@P@P)@P dh0n  holsD _ hghh0dcT @@P08jmpl\ @m0ql\ @mrl\ @@Pcm h ȕ ȑdhZh lTȇ ̒ >̍d ̉dn@Pd-ΌМ # dT do d l; d n  3=@PӜl̜l 1 2 .!dl    5 2 \ @P    8 5̭ \ @ HH PENDDO PGETSYM4OUTENTzDIAG P PCONSUB 30A F FTN CCS 3.0 SL-149@P@P@P W,@P  hhh d 0c0hh $ah"p8 h0(h Hhh h h@P8 'T lՀ=@PAT  $ \ ȶh0 "\ jت Ƞ  \ @Plȕ @-h %-܈DŽl @HHPCONSUBPDIAG ;GETF BP PDATAPR 31A F FTN CCS 3.0 SL-149@P@P*SU@P/  3=@P6@P9,=@P@0@PE[@PK\@PN2.@PU @P'!"#%&:;<>?@[\]^_@PV hh hh hhT  ؽT* 0b T08chI@P @mK-  @m K K @P\+C; K \,οO κE \-"d.ή ) @PTn/l d0 f 1 d1d2d3d4ced0hId@PlH    l`笚d jm $ah(p8% d5@P0-(lƬ Hl6l ld70n l ܘ߀@PN ) !  !d"d#dT d8 d( m d@Py0̞lTb mb T{chI;  @mK  @P@mI T9K ̈́0ef5 l̍  @Pm 4\:̟ l ) l l l d7T  mT}̓d@P0 \ m  $ \<f\ 1 ؞ @P%!Ι !f̚ \ 1 f m̙ l5 l j  3=@PP̩ lܗ) T=\̫  m@Pe@Pee@Pe   d>d?d4d3̳d2(  $!dM ,$"@Pd8$1lnff l @!) n d'& m l@P eT ] \A l̝l̩l 1̜l @P1̎d4 1? ^ m n"@PY@P̖dB$ll dC dDŢ   m  2l\  @P.  T[E    ldF d T   l\@PY*dG dHdI=dJ /$l lhT@PHJ\ 4  l\K Ȍ l  l̰dL̺ dd%@P lMl d$dBlḽ  lܤ̜ h\@PHJ̟ lC ľ d d  FdrT dD l  9@P\   9dldldl    @P  T:N lll n ff̞ l  nn l@PG̷n lC l  d d%'   =\O(d@PrMd Pd Qd Rd SdT d$dBlT?l  lll@Plllll0 d(d)d&̐lT T"Ul ̣  d̝ @P'l̖ ^\U C (D J'  m\ǐA!  3>@Pq@P@P@P@P@P^@P@P[@P@P @ HH\PDATAPRPGETF DIAG STORE CONSUBgGETC NSTCHAR~OUTENTP PFASGNPR 32A F FTN CCS 3.0 SL-149@PFT  T0T0b T c0@hme n T@P+ \ Tf l @HHPASGNPR?PRDLABLDIAG SYMBOL STORE GETC )CKNAME2P P@P@PNO3@P h +T  Tb 00Zc0i ! \7T @@P4hmnoh 0m  %\@PI؄e@sm̶  @m @m lT̟ 0jG@Pt \̨n T  0̗fp \ 0c fr@P    ̴dT  0 n@m0 <fq @Pl\̸ aen d0o= dn d̲   @P lT 0@jmΕl\ c@m0pl\ @@P mζl\ n̎l@P0@P0 @ HHPBDOPR 4PRDLABLDIAG STORE /CKNAMEiCKIVC GETC GETSYMP P^CFIVOC 34A F FTN CCS 3.0 SL-149@P @ dT  Eb 0c0h 8K 12I 1,C@P+ %   TT @m m l̹  l @@PVHHPCFIVOCW M  3>*PGETF DIAG 9STORE <P PCKIVC 35A F FTN CCS 3.0 SL-149@P?T THPCKIVC PCFIVOCDIAG P PCKNAME 36A F FTN CCS 3.0 SL-149@P@T THPCKNAME PCFIVOCDIAG P PFIOSPR 37A F FTN CCS 3.0 SL-149@P@P)/$$*S @@P>@P!#.@P$@P(O@P!+&  3>>@P!+@P!+@P !)."@P* ddd hdh hdhhhdd  8 l l (ln@PU n nff ff  f %ff 0@f 0Zf T     4T@P n l f n n0Tn n f f f  f n n̓ l n %@Pnn̈ l #ddJ̺    l̉ ld̡ @P   l f  #f dd d T0b T0c0 ef@PT d  n   ff̕nn̐ Ռn l@P, l܏h \   t f̳fs d̓ l % dZ@P Wd̫d\  } l %lmlTr f  %f f %fZf f@P f  ̯   }  f f f  f f f n n n @Pn n n f ' l %n n  n n n n n n n n n@P n n dd d   lT 0b }T c@@PhmtlTn } \ @m m K@P.d %T~ @mĤ ξI \5̗ l̙ ̔ l f@PY dΥH 0 ΚI  l0cΑI  l f  d8e@P f   }d T    d  d̵ l̲ l @Ph)h'h$h!hhhɈ f d @P̺   T2 d(   d d ld d  d( d  3>R@P Edl d T   0}b T 0c@h@P6m Kd $\ @m dH 0 I @Pa lI  l  &  2} lT \  }̒ @P}d  + + }\    dT̶ @P̳ }  } d  d    l  !l d@P d ˔ A d  dd̻d l d d̳!T{   lT@P"   l\! d\d d 00ch d( d@P8 0 $alp< d#0(l Hl$ll l d d  l@Pc! ̋ l d%dTb T,̯0ef  l 2?@P d d   l  !l d ld& l d @Pl М!T ̤ lT " ܛܲ l!\̒ d\" l@P Al l!̔ $d' ddn 1 , l\@P , l\! ,l\ d  d̼ d0d7d ̵d  l@P: 1Knol0m  %T( 0@sm m (lA8mf@P@P@P@P*@P   dl " T0 Zd l d h ldl (d@P  d d0 lT l l\̧dllll@P0@P0@P 0@P>0@P50@P0@P0@PD0@P 0ld h @ HHPIOSPR >PLOCAL GETF DIAG SYMBOLuSTORE {CKIVC RDLABLGETC STCHARENDDO BDOPR OUTENTP P^ERBPR 38A F FTN CCS 3.0 SL-149@P  3>z@P T I n f f f h@0 ;e e e  e( e %@P -e0 Ze echK ( e ee l l  T @ @PXHHPERBPR WPCKIVC DIAG PP PMODMXR 39A F FTN CCS 3.0 SL-149@P@P@P @P0 hh h ld l h d d d& d( d ) d*( dU@P  d̿  l  f Uf llsd l!@Pi   , dm l " le l  " ll "@P̹ l lĜ?̶ ḏlή ܖ nnM  3>@P@P̝ l 2 d  U5 2 l " " 2o̪@Pn  ld nɖ s !0 d 4d , @P l  d l 5Χ 2 lݎ錚lކ ḻ l̫@P6dUf '̷ ̲ ̭  ll̳8Θf$ܺ( @PaF d B l̙  dnl l̕l8nܬ@P  l d  dl6˜n l ll nS@P%@P@P U ld +  -2 d%d? 'l $ 4얮l@P d'  l= d  n " ̵ l @P >l  ̵  d l  l n̤dl d ;d@P8 ! d< 'd $ n  dd l͜!@Pc4d !) n( l춞 Uḻ l؜ f 7@Pξnܬll ̷ d  l!>Ξl 칞!4̵ 1 @Pn l 'dl̖lܜ8n l̦9 $n̚l@P l l̸d ! Þ !̾l ll̤7λnܹ lܪ@P    d l7nܐ@P+@P+(  3>@P+d '  #l d% d d!'dΎ 5 $ n@PVdRll  lۜ8l n l d l . *̻@P & d+ξd ̰l =αlη  n̠ ̟l̚l d d@P  !q n@P:@P ld sdd!   ) dll@Pn llӜ l̯ ( dl6ʜn̳l l@P̴ܵl7θnܭ l뜏nܺ Ul̍d ,l̐  dٌl ' @P=Є l  l  l̯ l ( d l d̟l̽ !@Ph(d"Tmd:ln l9쌘ln ل@Plӌn l̸  l l9 $ n\@PT@P@P̠  ' ll̒8nܩ̑l7nܜ  #@P f d Ul ll d+d , d% l̑ V چ@P ldڜ7҄ nl 1;̺ l s  l d  6@P4ζ 3 d̮ 잆  h ̥s dl7Βnܶ d  @P_  d  d  dd dd  dU=@Px@P x @ HHl  3>PMODMXR~PPUNT qGETSYM~P PASEMPR 40A F FTN CCS 3.0 SL-149@P@PGg7@P@P n hf hT # "l "T0e0cf  Rh@P6   \ lT0b T @0h@Pam#  KI Ξ !Oh=E8  ֬h,K(@P(  @m̗ iT& m mTld@P ldcTΛH  hI I lI @P,lfTe0nb TW @ml3 ) @P !׌n l 1  L lTN@P+@P+ > c  n 0\ '̩  ci  \ \ @PV@hmZn nef @P=m@PCm@PIm&  3>@Pm\ E dT̶  d n̫ " d #! n@PlT  n nܼܻj   ḻ l@PQ@P @ HHMPASEMPRPGETC yGETF DIAG (STORE GETSYMRDLABLP PTREE 41A F FTN CCS 3.0 SL-149@P @P  @P0  @P dd d Ud ddlh n 0d; "T f lh@PB h j 1Ⱦh$dΜ 2K !G hNh !쾞" @Pm " h d  d  " 8 %i 1U @P 'lo li % !O̦ b̡ | / ($ @PT  0; 2T8 fV ld&   dNd @P  !̠ l  aNlUε β   d@P lll ll %d Η  l d  )Υ   ,d@PDl  ,l l $ ;ܬܫ l l dܠܟ̞ 1 @Po !U  l gd "yl M  3>@P $ε  n d; "T f f  f lΗn d @P!\̳ `%n !$6  "1&nܶȜ !\ 3 /@PU   'nܘ̪ !\   (n0; "T@P ld[d  dcT O0j O@PF OT @m lb? d  y l U 2(s @Pql d̗ f d\@PP@P  " l l V l a ] p̰  l@P    d0cT5 0jZ  @m@P0  h TMd d l@Pܸ>̶ l: l7Ad    lw lsAl  @P&     l " ln̯ d0; "T f@PQ f  f̜ l Rl ̾  &  f$n n l @P| f%2cjZ  @0m  T d $ !T@P       l fd 0; "@PTM5f V lU ln9n̿ /  f$ l@Pd̟@m R le (̐   $nκnn@P(̣ l  lnl d !\nܻܺ  ! l Ud@PS d Qn̗ ln l l̒ n̏fVXfS l @P~ l fO̽ lD  3>@Px@P̺l d; "T̯`WlnҤl !? d $  !l@P K G n  ? ; lܭo@P@P fQR l@P@Pd dU^VdJd ll    n   n@P l@P @P @P @P? @P T@P@P\@P@P@P @ HHPTREE PPUNT DIAG  GETSYMjG  3?P PARAYSZ 42A F FTN CCS 3.0 SL-149@P@P@P0c0hIVhH   IH  h hH  I5  h@P2@mϨ'h0 $ah#p8 h(h̽ ȵHhȲhhȭ  Ȩ8&h@P]ȥ hإ@PdΤ ȗnl@@PtH HTThPARAYSZtPQ8PKUP|Q8PREPyP P&CPLOOP 43A F FTN CCS 3.0 SL-149@P h8 2 h hh+dc  nv hf0ieh lT@P5Tf ˆh h h0jH h ) f0ث ت@P`l  \ \ nζhȋ #Ȏdn d l\Οl@Pn ll 9lmHePCPLOOPPGETSYM5ARAYSZ7P a|  3? PDUMMY 01B F FTN CCS 3.0 SL-149@P@P @P@P@P *F,80@P@P  hb c hJhIhd0cThK@ .jH9h @P<h. '辞   hF C  hε  @PgȠ h@Po hΪhȒ  d  8h l 1; ;@Pd bfd  lnTnc c0@hm @Pm m&T d0 T lR ܛ^l \n@P܏άl̽dn@HHTThgh\hbPDUMMY PQ8PKUPQ8PREPGETSYM*KSYMGNWRITE SKIPITP PFCMSTK 02B F FTN CCS 3.0 SL-149@P@P hv h  h  h(Tl ;  T  3?.@P0*d 07d 8d9 h d T  4 Sl lXl! ]@P Ud: lnOn n ~  nRn l  ldvH T@PTh\h|PFCMSTK}PQ8PKUPQ8PREPKOUTPT;P P1KCPART 03B F FTN CCS 3.0 SL-149@P h ,h (h n ,h ( h n 1@P"H TT h h\hPKCPART"PQ8PKUP(Q8PREP%P PKOUTPT 04B F FTN CCS 3.0 SL-149@P d3T$3 3HPKOUTPTPWRITE P PKPCSTK 05B F FTN CCS 3.0 SL-149@P@P"  3?B@P@P @P(d O&dP $dQ"dR d S h N T!=\=!\= @P?ה :0Д  ”0 ̻ 0̴ ̭@P0j ̦ /̟0 /̘ R̒ Ľ F 8P @P? 9 3 - ' !۔  @Pϔ0   0Ŕ  T/!=̷0 #0̱ ̫0 @P̥ ̟  0̚ P0 \!=0 !0 0 @P 0   0֔ !\=\=!\=\= > A@PA S R ?  Q= B  @   d@PLl@Pl l@PSp@Pp dyd T=.Μ  ̿  œ  lll̺  ̫@P ̫ ̭ >l̴ḽdA@PZ@P S G  RE Q C H  F D  dl@Pa@P l(@PhR  3?V@PԔM Ք K I Ô N L  ŔJ  lD@Po@P l ,h 7 9 dd@P  d ,h ,hPf 6 1 l ,h ,h n 1@PA lJlK  l $h ,ƈhf 5 ,h ,h nܴ 1@Pl l ,h ,h n ,h ,h nܘ 1 @T}=!\=8@Px@P Qd0cThK C 0jH  dS l\C@P H  l=@P.@P9@P OL  l  l\κO !TSP BU @PBN BG QdcT0hI I K @P!& 0”  ̽ ̸0  k& "?K@PL )0̛ !ζO ί ΫK  ΥK ΠK T" QR@P w ch HdR lI  lP "O@P  \QR OM  l lSl0jH  l @P  @m lT @ mQl\̫ j̥ @Pd̟0 ^0̙ X̓0 RP K E ? @P#90 J0 D۔0 >0Ք 8ϔ0 20ɔ ,Ô0 &Y  3?j@PN̽  ̷  { A TT= 0lId 9 + @Py\!\= l0ld 07d 8 dT\= d}d~dT dvd (P@P ? ?S  O lݜ dcTd\SQl\@P \ll10 *0hOdE ̦  Ol@PE  Te̔d d~̧ l ̡ l -d{  AlP @P%  1l0   Ell\Q[\ W@PDC@P0Cc0 kdQ dl ll Ol l ̲@Pn (@P9r@Pr@Pr@Pvr@P[r@Pŗ  0̪ T l d d d7 Nf6T@PV@Pf@P@P@P/  3?~@P@P@HHTTh\h\h\h\h\PKPCSTKPQ8PKUPQ8PREPKCPARTiGETSYMDUMMY rFCMSTK{KOUTPTP PKPC3PR 06B F FTN CCS 3.0 SL-149@PTH TTh\h\hPKPC3PR PQ8PKUPQ8PREP KPCSTKP PHKSYMGN 07B F FTN CCS 3.0 SL-149@P##0 de0 &d0 'd0 (dT0cdlTTl )%* @P+(nl #l l HTThPKSYMGN>PQ8PKUPDQ8PREPACNVT SYMBOLSTOREBP PLABKPC 08B F FTN CCS 3.0 SL-149@PT0 HTThPLABKPC PQ8PKUPQ8PREP KPCSTKn  3?P PLABLER 09B F FTN CCS 3.0 SL-149@PT0 c@hm@H HTThPLABLERPQ8PKUPQ8PREPKSYMGNP P#PUNT 10B F FTN CCS 3.0 SL-149@P@P  @P*F,100  @PTZT   d THPPUNT PCONV WRITE SKIPITP PSYMBOL 11B F FTN CCS 3.0 SL-149@P@P$$%%@P *F,58@P0 c 0&`lT] h ld0bh\0ed @c 0l_( @P5  hI I K 0[ ;Čh"&  3?@P`alȝ Țloh'̰0dd +T d T lc d @Pd5 nHnPSYMBOLPGETSYMWRITE ySKIPITP PTSALOC 12B F FTN CCS 3.0 SL-149@PQ h   d  jʔl@Poʍ ʯ j4 ("ThT@Pc0@hm m  @m @mأ@@PH H TTh\hPTSALOCPQ8PKUPQ8PREPPUNT KSYMGNP PpASSEM 13B F FTN CCS 3.0 SL-149@P@P s0 d% # l h  L0hh" ; ( @P10/ h0h h0h0hȼh0hh ̷hT@PYȦ ܩܨܧ̥ hT@PiHPASSEM l'  3?PKPCSTKULABKPCgP PBANANA 14B F FTN CCS 3.0 SL-149@P@P  0ln0olh~dm" : &gk0sO (= hՀo@P.hT;@P4̀q;h\@P<À0oh\@PEȻr;h\@PMnqdcT0k 0hK Bwhțo;h\@Pmȓq;h\@Pu0oh\@P,doh\;@P  th\@PjhT@P&lԀ0ohT0;@Pˀr;h\@PÀo;h\@PҀt;h\@PH9  3?PBANANAPKPC3PRGETSYMULABKPCP P BGINDO 15B F FTN CCS 3.0 SL-149@P@P0 n0o d0m "T h! h s h nh֌l hT@P6ftpdcT0hK. ػ0rl\K" دخql\K@Pa Ȣ hȟ  Ȝ   h\ Șfi d0phT;@P !<0sO l\0k ΫK 5d +Հ0oh\@PO 80ƀrh\@P dm1\ ;l0̳oh\@PT7l̢0rh\@P̚o;h\@P l1\rhT@P l l̿ f}HPBGINDOPPUNT LABLER4GETSYMBKPC3PRLABKPCP PQEND 16B F FTN CCS 3.0 SL-149@P,  3?@P 0:1T T3T \ dw ndyT3\d<8"Xd@P-cThhI hI 0h\XHPEND MPLABKPC INXRSTKPC3PRENTCOD!GETSYM/P PENTCOD 17B F FTN CCS 3.0 SL-149@P?{@P @PT3\3 \3\3 |0  ddTb 3\cll@P;\00cfk 0hV Gc PhG b cȱ hh h3\RاȦ @Pf蘠hhȝ ș!d4h1h\ bhT@PS d \3S\2wiR \30R^d \1@P3\ yT|1\\\1HBPENTCODPKPC3PRSYMBOL.LABKPCP PWHELEN 18B F FTN CCS 3.0 SL-149@P@P@P dcde @0hmhKA K9 A  @YZ  3?@P9mK$ K D˨ D d0  @m@Pd0khlh Ȑ0 lΜIh,0N& 08cj@Ph   0@hmp< m@P?TT3Hd E TO \;\@Pk c̨ded n d d 0lT\ d d @P "ld  chO 1\ lO 0̛h T@P)ܔܓ  O ̶dT1̣l\@PD@PDT̟  @ HHPHELEN OPLABKPC'KPC3PR@P8?@P8@@P0HIJKLNO@P0@P0@P023@P0FG@P0F $).38=BG@P0lL@P8`@P0>ַ  3 @2@P8`@P0@P8`@P0V@P8`@P0l@P8`@P0oHb@P8`@P0@P d hdd 0{d;d cdSd dd  dddn 1d5T \T\@P>n<d  :!\0ȶcf0k ȯflȫn >\ T3(nT@Pi\\| d 0V (\n̼  \u\2u\1\u1\2\u;T@Pu2\u lTs d d    ( hT@P  dp0ld     d l"!( 1##;:<;=?@P  ̟d   j @P !0T; lTTTT2t\tsd d d    @P=fR f^; ldcT0hI d nhT@Pb  z Td3H \3G  \3T3\ T@P̠dwtdyTV lfsl\ d ΫE   h[  3 @F@Ph\@P@P 2\u ׀h\@P3  Ȁh T`@P%0 T1o ̶h\@P@P@P3\  @P@P̤;h\@P@P@PT@P@PΗd0clTO0hO T  s h\@P3#\3 \  \ @PI@PH@PG@PF&  3 @Z@P 7 d  # d0Eh\@PL  hT@P[@Pc@P]T@Pf@PaT@Pi@Pe̵hT@Pl d ξ θ   l d0Z  lsΠdcT 8i@P l\  l\   l̻" 9 &$9]̀@PhTW@PÀ;h\@P̵  ̸h\@P$̨  ̫ h\@P̢ h\@P s;h\@P  h\@P h\;@P  ݀ h\6  3@n@P$Ԁ h\@P-@P2@P/ dhT%@P 8 dT d S O d߀ Nh\@PWNf f ̚ l f f ٖ!U̿ 2T0̺h\@P| 1Mnf̷`nͦn̰f0̭ l̨ n̡ @P nn l n  nnnΦ Σ   d@PnnhTj@P o l  lΙ aΑd " ; (@Pedkfe0dT ^ο  l 1Q0h T@P2Ϋ hT6@P?` 0d͙ d  l NlΠ " ; (@Pj  lll ds l d d l\@P@P@P@PTf@P@PT @ HHk  3@PPHASEBPLABLER=LABKPC0KPC3PRHELEN iKPCSTKREADIR>TSALOCSUBFUNNOPROCARITHR"GETSYMASUPERINXRSTENTCODPCGOTO BGINDO^BANANAbAFIDL PUNT uASSEM END P PXREADIR 22B F FTN CCS 3.0 SL-149@P;D "T?h 9h9T#H@P1 l1 . !(!ddZ " T3Z d 1\  @PAhT@PF@PJ H TTh\hPREADIRLPQ8PKUPRQ8PREPOPUNT READ KPC3PR+LABKPCDP PgSUBFUN 23B F FTN CCS 3.0 SL-149@P s d0: ,0dcd0XT h lk f 1 T h @P .don 1 hȔ  fbl\0jHh 0n f@PYcئإ nHPSUBFUNcPGETSYMLABLER'P !  3@ PACP 24B F FTN CCS 3.0 SL-149@P@P @P@P@P h  d 2T h d TG@f f00 f ;!8 !2n@P0? Ƚ+h;T@PKص 0@ee0heh hȨ!ȡh 쵎h ؘؗ@PpȒf N f fα dd d Ψd΢ $Ο 1* !&  @P+ l@P d  ll@PδdcT0hI l ̼f  6̲ 2Ο Ι  Κd@Pnl     l؄@Pl " $@$ dodq fΤ % "  @P93 lι    Φ " =0 w@Pd !d d  0l lTGT% l( d@Pδ  d\0  Τ p l d b οdz 2@P " 0 d0ndcThI l ql\d @P2A   dI lI 0lT1*qo@Pr dvl0l  0l l  T  3@@P;J1 d ̙ l ln l l l l@Pfd@PUk@Pk 0 N  γ 0 0V VD Μ @P n΢ l̤  l lΥ   n  dn@P@P̾  !Tq3T7 q\q3\ q d T@P@P@P n n@P@Pn "t lodq drd o # "# S  @PldcT     0hI I I@P0,lΩ Υ 8lΟ Μ ln "# % "# @P[dgd #܈hT@Pm f0@Pt  nd 2Txld  d!Tq 0l @Pl lTq_α!d d TV@P/@PH\  3@@PN@Pγ  l  l̒  l l  l  O@P@P@P\@P@P 2{ * 2 "dcT 0hI d @P K qT l\pd   l ld\I, dl@P 7l d d\IŒ l  l"> +  @PbMnLn0f0Kn n0nhT@P dTdcT @P@P@P@P9@8H5H2TT hhh7h& hh2hhh$h hh`h$ @Phh? hhz hCPACP PQ8PKUPQ8PREPPUNT INTRAMKPC3PRGETSYMKPCSTK TSALOCPARTSBkFINK P PxAFIDL 25B F FTN CCS 3.0 SL-149  3@@P@PTz # h!Tq 0h 0h1T q dT\2q8@P0 $ 1&#h h! h  Ⱥ h0ηJ   ث@P3[\Ȣ  !HTT h h hPAFIDL hPQ8PKUPnQ8PREPkASUPERTSALOCKPC3PR!INTRAM)P PASUPER 26B F FTN CCS 3.0 SL-149@Ph d "T h@ff0 ) 60f*f f@P.f0`h hl ž! !H̼l ݀@PS̵ l A !襞! ί  Ϊ # 8hT@Pw0ΪdcThK hT@P "Tdwd T@HH TT h hPPASUPERPQ8PKUPQ8PREPPUNT SUBPR1uGETSYM~SUBPR2ACP P PCGOTO 27B F FTN CCS 3.0 SL-149@P@PT\\sd       hT@P0 ހ hT;ش  3@@P3:\3\͜ h 8ȹ(h\31\1\3T!\3T@P e̦h̤;h\@Pqܜ̛ !\̔;h\@P\ h\@PHsPCGOTO PLABLERASUPER.KPC3PR6KPCSTKZLABKPCeP PFINK 28B F FTN CCS 3.0 SL-149@P@Pph h 1 hj hh h # h   jj@P:@i hi hcjHhT1ȳ" < ( 0@Pe6:9TT1\1T7\130\\3\3\@P13\1\3\\3\3 @ HHVPFINK PKPCSTKSLABLERkKPC3PRnLABKPCwP PINTRAM 29B F FTN CCS 3.0 SL-149@P@PR  3@@P  p l !f; !2!d"= *   @P:frn onqnn fTȪ h  T@P3e" qor T3\3\1  l d  " : & @P lpΠd  lΕd l!dd "d  dd@P 4T     ̴ l ̱l ̪ l ̡ @@P ̙ = "! .#;&*8-100dk0lf@P0lal\0lWl0RlMlH0lCl>d@P<cT0hK* 0kd d  d  l 1 l̎ X @Pgl l@P\r@P0rl 3Te" qorTopd ld l*@P@P@P@P0 0dld ^ ld NdcT> @0jm@P 1 - ! ! l  \ 7 4T̝ l̙@P lΗl̓ l T3T\1@P @P> @PU 2  3A@P @P @ HHPINTRAM PPUNT WKPCSTKzKPC3PRTSALOCGETSYMLABKPCP PPARTSB 30B F FTN CCS 3.0 SL-149@P$$@P@P?@P@P @P ?@Pdch hh\ ZhW VhR PhPhT0lT0hC@ ?@PAjDhh  ) T1騹 hʟd d ȯd Tb@Pl Ţe3h \~ @P}@P¤d d \30cγDl\1HTTh h h h @PhiPPARTSBPQ8PKUPQ8PREPKPCSTK/GETSYM8KPC3PRTSYMBOLiSTOREBo  3A"P P>SUBPR1 31B F FTN CCS 3.0 SL-149@P@P & "T  nTn d dqT܈ hT@P,@P0H TTh h hPSUBPR10PQ8PKUP6Q8PREP3SUBPR3 TSALOCINTRAM#KPC3PR(P PSUBPR2 32B F FTN CCS 3.0 SL-149@P@P@P4@P h6 1 d0cT      hI @P3I I hT   h   hȮxhT@P^ȣ ȟ 1\1\ 1\ d Sl l,dcTΧI@PdΡEBhBΝO= 0  l  ,l0ԀhT@P 2\uT@hm1\ $d@̭l@@P@PHHTThch h h$  3A6PSUBPR2PQ8PKUPQ8PREPGETSYMSUBPR3?KPC3PRZKPCSTKLABLERP PGSUBPR3 33B F FTN CCS 3.0 SL-149@P l'' % '! #     T l l @P+T\ lHTTh hh hh\hPSUBPR35PQ8PKUP;Q8PREP8ACP PARTSB,P PARITHR 34B F FTN CCS 3.0 SL-149@P@P@P hs " " 0 dcThI  h @P3  h  Ȼ躆h 츞 .ȩ h d@P^Ȥ!ȟ  ḍ h薞 Ȋ h !+ dδ @Phν ld\0k  0Yc0hI O G lls @P hT@P + l  l hT@P ̶lTε  h\;@P  dξ  l\̳h\j  3AJ@P̭쬆  dhT@Pd0c\ d lΘ Δ  s   Ηl  Εlδ@P9l0hI ~I  z  0d lÀ hT@Pd@P fC C ̯ h\@P y dcT0jD  Dd h/T1Dh%d  ;h\@P  ج h1\s ;h\@P(6@P z 0dd) $ l  hTb;@P  0ll ,lɀ ;h\@P !Tq2\q dTTq@P @P HPARITHR PGETSYMSUBPR1KPCSTKASUPER KPC3PRTSALOCINTRAMP P| _BKDWN 01C F FTN CCS 3.0 SL-149@P@P@?@P h fQ 1xh # dRh hp8h)nAh 1Bh  3A^@P4dZʨ d [ h h hØ8nػش@P OT ^d _ lHPBKDWN [P P| CBLDUP 02C F FTN CCS 3.0 SL-149@P@P@@P dR lh h Q(h)'dRlAh 1 ` hdR@P/l]d^d_d@P?HPBLDUP ?P P| BSS 03C F FTN CCS 3.0 SL-149@P (d`]d  da d V dQ dWTHPBSS PBLDUP P P| CHKWD 04C F FTN CCS 3.0 SL-149@P dJ\ S  dKdL h ff: f 1 dM U@P/ 0dcThE0  l  l\E"  lih h h!V  3Ar@PZ l\E +̻ؖl% l\οE  dJ \@P <^ T ]K  l L  l dd d M9@P0 vl̴  l 2M̻ "Md0cT6jH U@P  ll lĜ=Hd캆: 7̴ܴlH0l%l\H@P؜  dJLl\Hd  lKl\γHd  lYd@P1M?0f00 f0;nl nnn \  m % "a@P\ 2m "k 2m l dIl̽"ξ  nܣ@P*@Pt@P@PHzPCHKWD PGETSYMP P| CHOP 05C F FTN CCS 3.0 SL-149@P@P@P @P@P *F, 77  3A@PT 0hc0hEk Kg eK`  O KL@P@ KD K?  d 6K4 Z  \ # & @Pk  li!+ n @0eh d` d F dcE@Pd0-  l̻ T$^l  dRltޔ " c@P V Ѥ l d dG!40 0 ' !d ̱ 1̦ @P 1̟  ; #dl̺!J ɔ E !* ld!l!dl@P̠̜? d.l ̡  "g̚d Gnt f@PB dnP l`dRm d] dT dV d ` dF @PPk@Pkcid "|2|@P3|@PC|@P|hAlK  ߔ !(̪ n l dW l@P;@P̔!Ɯn; lZ ~ l t쬞 ! d dv@P!3̍ A )  B !n l ޞ 1؞d 9 d@P]c ̲  d!n̰n̛ܹܺdẖ  1̫ d@P"1& TTlK@P5nܒܑch K t  vf@I n lܡܠW@P[l  3A@PN[@P[ E d AhĘd#d" 8 $@P~@P~@Pj~@P~ @ HHPCHOP PGETSYMWRITE ,P P| CL12 06C F FTN CCS 3.0 SL-149@P@P  h@PP@P`@@P@P 0@P @P @P@P@6  3A@P dF\l[dQ  Z!1 -"7 $ d` l l@PI l]ll l_l !l0dcThO  YV @Pt@E;  9h̢h̨hȕlȔl d ^dd d aTTl d@P dQ\\lll l dF0̘lTZ  dWd `  l l@P ]l\ l  l 3 „l⌐l " l  dVʌl̿lT@PH"PCL12 PGETSYMdINOUT COUNT CHOP BLDUP P P| SCON 07C F FTN CCS 3.0 SL-149@P dV Z <chI5 -d `I/ dQ0 kd !ld] @P+j d^D dRlIdaT l .l lHPCON OPBLDUP CP P| COUNT 08C F FTN CCS 3.0 SL-149@Ptal . l dO0 dd00 d" lHPCOUNT P P| DATAST 09C F FTN CCS 3.0 SL-149D  3A@P@P@P *F,85 hh dbdcT 2d `hE_ EW  4l @P2 hLi؆ E h hdT d d] d^  l  dQ dV d@P][TT h̰`hͲI H 6 1 l @P dbl `00chId l l\\  ll l@P،l "% l΍l lf n f ̹hT@P d0& @ HH(PDATASTPGETSYMBLDUP _INOUT aWRITE P P GETSYM 10C F FTN CCS 3.0 SL-149@P6 c0p4g,delf p<( hp8hp8(d @P,T0i h\0) h\0 \0iȷ h\0Iȯ h\@PW p<( hp8hp8(d Tiȍ h\)ȅ h\ @P\0i l\I l\ edfHcPGETSYMPWRITE -READ mP P| oINOUT 11C F FTN CCS 3.0 SL-149  3 A@P@P`  b[ 4T le    dxlT\ @P -U 7 l4 h Q=cf nغ̻ ȶ1 ldsT@PX$c h5 n؜ lHPINOUT kPREED BKDWN (WRITE WP P| FIXOPT 12C F FTN CCS 3.0 SL-149@P@P@P _d0 %\hbh X >U T  h dI ^ T ]@P5h L ˔K \J "̿lȲdȮl\ȩl̯ @P`T !+\ \ ḥ[l 1Q ̚dxT S G̘ \ @P%_ 7l dNdb TlI \\\ dL@PK  Fl\l l   %3 ( 3 "̯l d ̪@P᜺  l̰l\ d l ff: f 1 dM l9@P _ & dI0ndcTjHn lۜ:  nܯ2 @P7 ")@P)>@P>HS  3!APIXOPT APCHKWD BKDWN {QXLD GETSYMP P| xPHASEC 13C F FTN CCS 3.0 SL-149@P@P  `@P|7@P"hh@P(@P @P` @P @@P Q"dR@P0+fp4g$h hTil hTi h\) h\ l@P0VAd00&Bd00'Cd0( dcdeT E ȡfi @m @Ph f؏ȏ1 h f0l؄ȅ1 dN d c dadvdidudG dM@P dH dE ddT d d[ b 4{T̎]lT@P0h K Z" ; '5=<; c@m d@PXO  d YlT0 %0i!TβE  l@P-ΩO 1̫  l ;d` dQ d Vdd d [TT  dbm  3"A@P XlT\  d]T d a\ 4l l d ^l ll\\T "@P 5l l dX l dxT S Tdc \d hK T@P}T!zT̢l\  \!| dW" ; ( UT\T(]d@P lT\id! d"d  d`t#1 dV l dQTRTTT {v@P 1% A  da l$lBl ;l ḻl l\\b @P/[l Wd ̱l \:T  dx dW !! l l l\@PZ]%l d^ '!.   deT  l dN_K  @Pd%Tl\ "l l l /"FT#@P@P0c0itn@P@P@P@P#@P [ dQ̫l^l Z (d`# dVT\T"7 $\X@P+d&d' 0lde d n 1Th 0ΰ(Td)8hK@P H d]I  lTdTu\Tv d* ld! @P*쵖B <tn l;l l̤ ̚d[ d \ d` l dd@PUQ d Ve@P  3#B@P[ad&v l $  췆i" l@Pz@Pz l/̣ l nΦK ΡA  d d  ̛l@P@Pu@P !> dd 'dRl@Pz@PD l l dcTΠ l l & 3ΏlE@P ll@P@P@P  1̸D "l̴l  l l (= +llTkdT+ -"@P̹l\̭d ,d̠d 0hK   .0i1D )!G@PI $c "d Xln d   llCpd7(#fm2  3(Bv@PtOf Pf QfR l ll&TK    ΗO  +@P̫,ll$l  l0hEd  l0-  l@Pd  $00cid&dRl "d &dRll̞ @Pl̕,l -d 0 $ dd ̿ll  llT Td )`@P dRm"= )@Pe9@P9@P9@P9̧l dd̢l 8̽ 4T dcT $0 id ld (d" *@Pdll d̘ " l -ll\d %ll@P@P@P@P\ .d l lll:  d0m d0%n 10<dl\ίdq d@PT d'@P6@P @ HHdPAMOUT PBKDWN 5ADMAX dGETSYMQINDEX COUNT LABOUTUNPUNCKNP2OUTWRITE TABDECNPUNCHP B  3)B P*  ADMAX 02D F FTN CCS 3.0 SL-149@P@P0 @T d)  h`\~h hZ\~h hT\~h hN\~h hH\~h @Pkh `lT1$kl\13$ll lm@PE h n 91\1$1T$1T$"d hȥ褆 hȠ@Pph\$@Pv <" <2d1d d0  @P!   !$1=h ζ h T94"@P8"@P׀h λ h\"@Ph Ε h\  30C@P̺ h Ξ h\@P̭쬆 l̚ 1 lrl\"̠ 9TFH K  @Pd n (1TD(K TT\! <@PAd@P!C@PCHPNPUNCHEPWRITE 2RESET YREAD ]P P* ANWRITE 13D F FTN CCS 3.0 SL-149@P@P0 k     " lT  AhT8< @P.hf 71 l@P=HPNWRITE=PPACK WRITE (P P* PHASE6 14D F FTN CCS 3.0 SL-149@Pxu0@PP "d dd ( d' dTT#  d! ld 1 9Ub  31C*@P3d Μ*T'l\ l\l hhȼ<\d) fܺذȭ  lȔ@P^ ! ! ļ lT̨  l̲ !Tȍdm d%n0: @P n 1 dTHnPPHASE6PBEGINOREAD INDEX :AMOUT lFINISHyNPUNCHP P* PGETSYMP P* TABDEC 18D F FTN CCS 3.0 SL-149@P@P dcdeT !0hK E ih* " % ٔn@P. hd!.0h ) ” $Ƚnh 9 $ȯn dd@PY $ȤnȢ  h d$!d̳ %n ĜlHPTABDECPSYMSCN P P* UNPUNC 19D F FTN CCS 3.0 SL-149@P   l dTT lHPUNPUNCPRBDX NPUNCH P P* AMOUT 01E F FTN CCS 3.0 SL-149@P@P@P@P  33CR@P@P@P@P?@P P@P *UD@P@P !'d 0d " d l  4ld& hT   (8 @PL"8Ԝ  dȬ "h  T̾ ̽  +) ̱@Pw 7̩l !x̠l̢l̞l\̶  $ 1; $ 1R $ 1*@P  d  dcT0il 2@ " ! d{ll@P hTl̙`͙ dRm @P  "l dM $d ld 0!6 $ 1. '@P ̔d  # ) # #  l  lT̵ "̝d &T=@P7 T d dd  d LddHdld̞ %̛@Pb 2 T l !0 " ! "@P " $ d ld̯d  !̡d TTd) `@PdRml̊lܙ̘" 9 &_2UTZ 0 "d %dl@Pl  "l̿ #̼dl "d  d 0dcTd (l@Pל "lll "̸ l̮l̰ d ̧l\l  8hKk  34Cf@P9  0i "T  ̞ N̍ !J" !C @Pddd#! Q!d !d  P  O   Rd@P ! d  ll d  dTcd̾ "glldcȚ@P0i #ldT<llI̱ņn d@P@P@P0 ̸ . l̳l'̬d #fQ l" n l d " $ @P첎 d@P@Pl  l dRl d d  d  1U,c lh@P2E  lK  6  l !K E@P]  lEd0-  l <$  췆i" l@P|@P| l-̣ l nΦK ΡA  d d  ̛l@P@Pu@P !> dd 'dRl@Pz@PD l l dcTΠ l l & 3ΏlE@P ll  35Cz@P@P@P  1̸D "l̴l  l l (? +llTkTdT+ -@P "̷l\̫d ,d ̞d 0hK   .0i1D )!@PKG $c "d  Tln d  ll?td5@Pv#fO fP fQfR l ll"TM    ΗO  @P+̫,쫎ll$l  l0hEd  l0-  l@Pd  $ 0c0id&dR l"d  &dRll̞ @Pl̕,l -d 0$ dd ̿ll  llTT (d)@P"`dRm"= )@Pe=@P=@P=@P=̧l dd̢l :̽ 6T dcT $0 id ld (d" *@PhlTl d̖ " l -ll\ d%ll@P@P 0hT @P@P@P\ .d l ll\0l:  dm d%n 1<dl\8Σdq   36C@P dT  d'@P6@P @ HHTPAMOUT PBKDWN 5ADMAX dGETSYMUINDEX COUNT LABOUTUNPUNCONP2OUTWRITE TABDECSETPRTjCONV NPUNCHP P*  ADMAX 02E F FTN CCS 3.0 SL-149@P@P0 @T d)  h`\~h hZ\~h hT\~h hN\~h hH\~h @Pkh `lT1$kl\13$ll lm@PE h n 91\1$1T$1T$"d hȥ褆 hȠ@Pph\$@Pv <" <2d1d d0  @P!   !$1=h ζ h T94"@P8"@P׀h λ h\"@Ph Ε h\@P̺ h Ξ h\@P̭쬆 l̚ 1 lrl\"̠ 9TFH K  @Pd n (1TD(K TT\! <@PAd@P!C@PCHPNPUNCHEPWRITE 2RESET YREAD ]  3>D.P P* ANWRITE 13E F FTN CCS 3.0 SL-149@P@P0 k     " lT  AhT8< @P.hf 71 l@P=HPNWRITE=PPACK WRITE (P P* PHASE6 14E F FTN CCS 3.0 SL-149@Pxu0@PP "d dd ( d' dTT#  d! ld 1 9@P3d Μ*T'l\ l\l hhȼ<\d) fܺذȭ  lȔ@P^ ! ! ļ lT̨  l̲ !Tȍdm d%n0: @P n 1 dTHnPPHASE6PBEGINOREAD INDEX :AMOUT lFINISHyNPUNCHP P* =RBDX 15E F FTN CCS 3.0 SL-149@PD  3?DB@P hBh˜h  hh(h "p8 d h  h h @P0hnnHPRBDX 9P P* *RBPK 16E F FTN CCS 3.0 SL-149@P@P  l0dm dn"do dT  0fl THPRBPK &PRBDX UNPUNC#P P* SETPRT 17E F FTN CCS 3.0 SL-149@PB@PE@PH@P=""@PBr&qr@P `@P Ek@P 8@k@`@P@PAAJ0  3@DV@PJ J+@PIpI`Ik@Pd4<@P0f6@P!>23@P$@@S@P'S0 .@P*JA`2@P- 1L@P0@@P1--**@P5 ++@P9 ,@P< PCD@PK h  d T" l\ f !.  hʕh Eh J@Pvh̨h hG0fػ 1 %ʡf0̻ &l  k !@P h  hȕ fnܞ =dc0hKB TZkhTS@P $dDIC 0= nI nA z +l̖ 1@P  =̚l0vaf\  "z !ǀ hT@P̿ l 7      57nܡ0̠h \ hB  3ADj@PA̙ l̳  ̡ gn HdD̸ 1! ;nI  lJ@Pl l l<0fT d dHPSETPRTPIHCON IACON CONV NWRITE{P P* |TABDEC 18E F FTN CCS 3.0 SL-149@P@P dcdeT  0hE K  "i (% n @P-hd !- ( $n0 :踞 $n dd謎 $@PXnȤ  hd $>̵ %n ÜlHPTABDECxPSYMSCNP P* UNPUNC 19E F FTN CCS 3.0 SL-149@P   l dTT lHPUNPUNCPRBDX NPUNCH P PFTN33B 01F A FTN CCS 3.0 SL-149@PwXfvh h Dh h h TZy/  3BD~@PehT%X28Ih[ X8R+hP= : h84H+@PChF X h,A1h;h.xh2 " l TLf @PnhERh  unFTN3A1 __ 2h\Y hX < @P  6 0j5Q  :j/TL: FTN 3.3B (OPT = LPXC)  @P PAGE DATE: MM/DD/YY TIME:  PFTN EXITF 0PAGCHKASCOPTPRGNAMPAGNBRDATE TIME PFTN P[GOA 02F A FTN CCS 3.0 SL-149@P d0"T TF" C A lTT l) O @P+&PT\TZ  M ONT \TTشT lT$@PV )PGOA SKIPITXPCBAV "CRDBF ,WAIT MEXIT AREAD 2OPANALWRITE RPHASEAJLOCLZ2HLOCLIZIOPR P P3CONV 03F A FTN CCS 3.0 SL-149@P hhH(h'  f qh @HB0Fh Fd 0m `h rH @P+`PCONV P P[DIAG 04F A FTN CCS 3.0 SL-149  3CD@P H~ h} lr  j A *h Nh ,hh00d d Fh T4l1@PET1Z ,h/* 2 h `ȥ#!2 (  4!"-@Pp=i؍ ` !`̷hT\ {j ATT#F؄@P'!"#%&:;<>?@[\]^_PDIAG PDIAGRGWRITE PACK CONV GP P,DXP9 05F A FTN CCS 3.0 SL-149@P H s" Ժ hsHXhh`Xhhh HL#dh`H !@P+ laal aaI`GchGW "X bX 8L "@PVHT H'sLoAAdT|LZ3Aa@PRy@P 'Lv T*a)RH%3I  aHQ A a"vR  @P2LaHH ALȾa `\R  [1@P Q Aa !2!* *l hhhuhi f@P[G ߂M^@BPCE}GN HJzLLK@PDXP9 Q8DXPTQ8DXP2PDFLOT YP P7DFLOT 06F A FTN CCS 3.0 SL-149Z  3DD@P````hTTa"aaDa"a 1 aBa @P+    @ 0BXiaa a ! AAA&dRARA@PVa2H aaaaDaaaa aX X2bbbX@P~TAAAa *aAAidadada a@P ' dXX,#a! AaA! ! A! ! @PA! Aa AXa A! !  XÁ XAa! AXa""@PaaA Aa a  A 3A a s Aaa ca @P-1 mAa$a+Aaaa"#G a @PXa a aaaa#a"aYX=X}#a 1  #@P0ad a  ! 1 3d   #2d A d ( 2adaa1 @PaDa1 bAa?ad A2aF ad2aa1 aa1 @PaDa1 aaaa#aa aa a A&RARAda 2H a @Pa a a   ! aa aa a@P/@ PDFLOT PAVOLR AVOLA P P)9GETSYM 07F A FTN CCS 3.0 SL-149@P H4 0H3c#dlh-40g,"D0eRLf  `hXlX H <$@P+h h T867i j  3ED@P8 PGETSYMPREAD "WRITE P P&IOPRBA 08F A FTN CCS 3.0 SL-149@P HWhbH HNhYLHFh5hEBAH32@=:9h,+h*5h)R a> @P+R+ q )0dhh bh h h T`@PV`P[@PcA n qH   >Dh}>w8@P 0` h !aH + _N ȯ "ج Q#uMr@PJF (jj AXBf ` h[ h. + X ` @Pi k qYh|%.$&),% *N, 12 MON TH))@Pb{ ^ OPT !  @P: `TKI @Pek qY=hR TLx@P9 TL@P@Pp&XADRYh h@h"1kl qߘX"%A h@Pψhs    Hh3tȾh Ƚ  TLm41 =  3FD@PASEMPR8CHECKFP PLOCLA4 22F A FTN CCS 3.0 SL-149@P 3h; "4h hC hhh B  )h h&TZ @P$FTN3A0 h"j TNO A@PC$u  3KE2@PP h  hXT[j AH  Hjjjhj hjj `@P{8`j% `jʤhX"'hTʹʱh"ʕhXʬhʮʣ``ʦeʛ`@Pʗ H" TNOPLOCLIZLOCLZ2PLOCAL `MARKERPARITH ENDLOCREAD WRITE 0P PgDUMYA4 23F A FTN CCS 3.0 SL-149@P \e \_ \Y  \S \M \G \A$ @P+\;* \50  \/6 \)< \#B \H \N \@PVT T \`PBYEQPRCHECKFCOMNPR DATAPRDIMPR EXRLPRPEQVS $SUBPPR*TYPEPR0ASEMPR6ASGNPR>) h;=8@h;"513/!Jn,, q+%s%̘H@P>XEJA hh j2 h   @P@?@P̩&X*/hF h k) XA h@P Xh TH@)@P X h TL@@P  heX0;# hX j2l hhD@P( hQhqhQ "p0ST >h hX h@PSV@PiTLs T SOPIOPR READ WRITE EXIT pPPAGCHK@MAXSEC.P P| GOC 28F A FTN CCS 3.0 SL-149@P lLTT'00T$0#PGOC PWRITE IOPR PHASECP P$IOPRBC 29F A FTN CCS 3.0 SL-149@P HRhWH HIhNLHAh0h@=<H.-@87h954h'&h%0h$ q ./d  3NEn@P+hh a*h hh TT``PV@PX H;h9!Ah66 h350@h3"-1+'!@n$$ q#s̘>@P4X;XA hh h   @P@P̱%X?\h h kW X,IA h@P `XEhT  hj՘2 5` h hH@@P `X!hT  hj2 5` h  hL@ @P ʖ hAX# hX h~h(@P hQhdhwQ "p0SmTg>hch@P h@PTL T SOPIOPR  READ WRITE EXIT PPAGCHK@MAXSECP P* 'GOOD 30F A FTN CCS 3.0 SL-149@P $$l"L"TT"`TF8T\! ;#$PGOD PIOPR PHASE6P   3OE P$IOPRBD 31F A FTN CCS 3.0 SL-149@P HwhvhrH Hfgfh hZX n hN HRhW@P+H HIhNLHAh0h@=>M h;=8@h;"513/!Hn,, q+%s%̘F@Ph hXh@Pw hT@PTL T SOPIOPR  READ %WRITE .RESET EXIT PMAXSECRPAGCHKeP P* &GOE 32F A FTN CCS 3.0 SL-149T  3PE@P ##l!L!TT"`TF8T\! #$PGOE PIOPR PHASE6P P9CONV 33F A FTN CCS 3.0 SL-149@P hhH.h-  f q!dh" @H B0Fh Fd 0m `h rH@P+" -m`PCONV P P)4STOREB 34F A FTN CCS 3.0 SL-149@P H20c nf00ifj 0fk 0fl00`al$$0h,n %% @P+-n/nPSTOREBP P/DUMVOL 35F A FTN CCS 3.0 SL-149@PL bb@`"`P+PAVOLA AVOLR P PEHEADER 36F A FTN CCS 3.0 SL-149Eu  3QE@P H4h3h2 /f q d `H"//Mm"m XHXd n@P+  f q` B0FHB0F00PVALNAMPTIME 'DATE PAGNBR.PRGNAM P P!DIAGRG 37F A FTN CCS 3.0 SL-149@PHh" "dL` 3#n 3#l`0PDIAGRGP P GOF 38F A FTN CCS 3.0 SL-149@P T0 dTPGOF PIOPR PHASEFENDLOCP PHnGETSYR 39F A FTN CCS 3.0 SL-149@P m0!lh THPGETSYRP PTITLE 40F A FTN CCS 3.0 SL-149@P H2"WTUr !lX X XXXX X T4 h.h TR  3RE@P+2  H")hTE @PV 6ALWbmx ***** L I S T O F  S Y M @PB O L S ***** CONSTANTS : --------- VALUE ADDRESS REFERENCED BY STATE@PMENT NB : VARIABLES : --------- NAME TYPE ADDRESS REFERENCED BY STATEMENT@P NB : EXTERNALS : --------- NAME TYPE ADDRESS REFERENCED BY STATEMENT NB @P: LABELED STATEMENTS : ------------------ LABEL ADDRESS REFERENCED @P-BY STATEMENT NB : B Y T E S I G N . B Y T E I N T R . F N . S@PX T A T . F N . I N T E G E R R E A L  @P D B L E . P R E C . F U N C T I O N I N T E G E R . F N . R E A L . F N . @P D B L . P R C . F N . S U B R O U T I N E PTITLE WRTYP 7PLWRITE>WRITE +P PIFOVPF 41F A FTN CCS 3.0 SL-149@P hh h  3 dPIFOVPFP P ERRMSG 42F A FTN CCS 3.0 SL-149@P  < #h* h) h( h'0 dh1h"$0`# `@P+X   3SE@P0 hHCDhBhB2<h" jQ q1 hh X4X3T@P[/X(X' Hh 2Ƚ@P~  f0B y hvt T[ @Pn3Wi~)AUky( 6KcgT{@PBa /Fnr  * ; Q p   & ; O    0 b   D@P* o s    5 ^ b f j n r v z@Dz~!FXimquy`PU@Ply***** D I A G N O S T I C S R E P O R T ***** 1 : FIELD IS NOT RECOGNIZABL@PE. (ILLEGAL CHARACTERS IN FIELD SUCH AS 8 IN OCTAL FIELD.) 2 : MINIMUM RANGE LIMIT @POF A CONSTANT IS EXCEEDED. 3 : MORE THAN SIX CHARACTERS IN A NAME. 4 : MAXIMUM @PRANGE LIMIT OF A CONSTANT IS EXCEEDED. 5 : EXPONENT IS MISSING IN A CONSTANT. 6 @P: SUBSCRIPTED VARIABLE WAS NOT PREVIOUSLY DIMENSIONED. 7 : EXPRESSION IN AN IF STAT@PCEMENT DOES NOT HAVE INITIAL PARENTHESIS. 8 : INCORRECT FORMAT STATEMENT.  9 : IL@PnLEGAL USE OF THE .NOT. OPERATOR. 10 : ILLEGAL OPERATOR OR OPERAND. 11 : SUBPROGRAM@P REFERENCE IS ILLEGAL. 12 : LABELED END CARD IS ILLEGAL. 13 : NUMBER OF ARGUMENTS @PDIFFERS IN REFERENCES TO THE SAME SUBPROGRAM. 14 : IMPLIED DO IN DATA STATEMENT EIT@PHER CONTAINS WRONG NUMBER OF SUBSCRIPTS OR SUBSCRIPT IS OUT OF RANGE. 15 : EXPRESSI@PON HAS AN ILLEGAL TERMINATION. 16 : UNMATCHED PARENTHESES IN AN EXPRESSION.  17 : @PERELATIONAL OPERATOR IS MISSING. 18 : RELATIONAL OPERATOR USED ILLEGALLY.  19 : AS@PpTERISK IS ASSUMED. 20 : ONLY ONE ** IS ALLOWED PER PARENTHESES LEVEL. 21 : A VARIg  3TE@PABLE IS USED AS A SUBPROGRAM NAME OR A SUBPROGRAM NAME IS USED AS A VARIABLE.  22 : @PSUBPROGRAM NAME DOES NOT APPEAR IN AN EXTERNAL STATEMENT. 23 : ONE OR MORE DO LOOPS@P TERMINATE ON AN UNDEFINED STATEMENT LABEL. 24 : ILLEGAL SUBSCRIPT. 25 : SYNTAX E@PRROR IN THIS STATEMENT. 26 : THIS ARRAY PREVIOUSLY DIMENSIONED IN DIMENSION, COMMON@PG, OR TYPE STATEMENT, OR PREVIOUSLY DEFINED IN AN EXTERNAL STATEMENT. THE PREVIOUS DIM@PrENSIONING OR DEFINING IS RETAINED AND THE NEW IGNORED. 27 : THIS FIELD MUST BE A VAR@PIABLE OR ARRAY NAME IF PROCESSING A COMMON, DATA, EQUIVALENCE, BYTE, OR SIGNED BYTE ST@PATEMENT; AN ARRAY NAME IF PROCESSING A DIMENSION STATEMENT; OR AN ARRAY, VARIABLE, OR@P FUNCTION NAME IF PROCESSING A TYPE STATEMENT. 28 : LOGICAL IF STATEMENT CONTAINS AN@POTHER LOGICAL IF, DO, DATA, OR FORMAT STATEMENT. 29 : NAME MUST BE THE NAME OF AN AR@PIRAY. 30 : MUST BE FIRST STATEMENT OF PROGRAM UNIT. 31 : 32 : A MISSING COMMA IN@Pt THIS STATEMENT IS ASSUMED. 33 : 34 : ILLEGAL CHARACTER IN THIS STATEMENT WILL B@PE CHANGED TO A BLANK. 35 : THIS LINE, WHICH BEGINS A STATEMENT, HAS OTHER THAN ZERO@P OR BLANK IN COLUMN 6; BLANK IS ASSUMED. 36 : TOO MANY LABELED COMMON BLOCKS DECLARE@PD; CONTINUATION OF THE LAST DECLARED BLOCK IS ASSUMED. 37 : THE NAME IN THIS COMMON @P STATEMENT IS EITHER A FORMAL ARGUMENT OR DEFINED IN A PREVIOUS COMMON STATEMENT. THE@PK NAME IS IGNORED. 38 : NAME SPECIFIED AS TWO DIFFERENT TYPES. THIS SPECIFICATION I@PvS IGNORED. 39 : THIS BYTE TYPED AS OTHER THAN AN INTEGER, OR IT IS A FORMAL ARGUMENT@P. THE BYTE SPECIFICATION IS IGNORED. 40 : THIS BYTE PREVIOUSLY SPECIFIED AS A DIFF@PERENT BYTE. THE PREVIOUS SPECIFICATION IS RETAINED AND THIS ONE IGNORED. 41 : THE BI  3UE@PT SPECIFIED IS NOT WITHIN BOUNDS OF THE 1700 WORD SIZE. 42 : LEAST SIGNIFICANT BIT @P"IN THIS SPECIFICATION IS GREATER THAN THE MOST SIGNIFICANT BIT. 43 : NAME MUST BE A@PMN EXTERNAL FUNCTION OR SUBROUTINE NAME. 44 : FIELD MUST BE A NON-ZERO POSITIVE INTE@PxGER CONSTANT. 45 : ARRAY HAS MORE THAN THREE DIMENSIONS. 46 : DATA STATEMENT CON@PTAINS TOO MANY CONSTANTS FOR THE SPACE PROVIDED. 47 : STATEMENT HAS MORE THAN FIVE C@PONTINUATION CARDS; EXCESS CARDS ARE IGNORED. 48 : AN INSUFFICIENT NUMBER OF CONSTANT@PS IS PROVIDED IN THIS DATA STATEMENT. 49 : 50 : CONSTANT IS NOT SAME TYPE AS COR@P$RESPONDING DATA CELL. 51 : STATEMENT REDEFINES DO LOOP PARAMETER. 52 : STATEMENT @POTYPE IS UNRECOGNIZABLE; OR IT FOLLOWS AN EXECUTABLE STATEMENT. 53 : 54 : STATEMEN@PzT LABEL IS MEANINGLESS; LABEL IS IGNORED. 55 : STATEMENT LABEL PREVIOUSLY DEFINED; @PCURRENT LABEL IS IGNORED. 56 : A PROGRAM NAME WAS EXPECTED IN THIS FIELD.  57 : TO@PO MANY DIMENSIONS CAUSED TABLE OVERFLOW. 58 : SYMBOL TABLE OVERFLOWED; COMPILATION T@PERMINATES. 59 : STATEMENT LABEL MAY NOT BE ZERO. 60 : NO APPARENT EXIT FROM THIS P@P &ROGRAM. 61 : UNCLOSED DO-IMPLIED LIST. 62 : UNFORMATTED WRITE MUST HAVE A LIST. @P Q 63 : NAME MUST BE AN INTEGER VARIABLE OR INTEGER CONSTANT. 64 : NAME NOT IMPLICI@P |TLY AN INTEGER VARIABLE. 65 : A RETURN STATEMENT MAY APPEAR ONLY IN A SUBROUTINE OR @P FUNCTION DEFINITION. A STOP STATEMENT IS ASSUMED. 66 : SUPERFLUOUS INFORMATION IN T@P HIS STATEMENT IS IGNORED. 67 : THIS FIELD ON STOP CARD MUST HAVE AN OCTAL NUMBER NO@P T GREATER THAN 77777. STOP IS ASSUMED. 68 : FIELD MUST BE A POSITIVE INTEGER. 6@P (9 : FIELD MUST BE AN INTEGER VARIABLE. 70 : FIELD MUST BE A STATEMENT LABEL. 71 :  3VF@P STHIS FORM OF ASSEM STATEMENT ARGUMENT CAN'T REFERENCE ELEMENTS IN COMMON, EXTERNAL NAM@P ~ES OR SUBPROGRAM ARGUMENTS. 72 : THIS TYPE OF STATEMENT MAY NOT TERMINATE A DO LOOP@P . 73 : THIS STATEMENT TERMINATES A DO LOOP WHICH IS NOT THE LAST DO ENCOUNTERED. @P 74 : THIS 'GO TO' JUMPS TO ITSELF. 75 : A PROGRAM CONSISTING OF ONLY AN END CARD I@P S ILLEGAL. 76 : 77 : 78 : LABEL IN A DO STATEMENT MUST REFERENCE A STATEMENT F@P *OLLOWING IT. 79 : MAXIMUM ALLOWABLE NUMBER OF NESTED DO'S EXCEEDED. THE DO LOOP MAY@P U BE IMPLIED IN A DO LIST. 80 : OVERFLOW OF TABLE OF SUBROUTINE PARAMETERS. CAUSED B@P Y LARGE NUMBER OF DECLARED PARAMETERS AND UNIQUE REFERENCES TO THEM. 81 : THIS FORMA@P L ARGUMENT WAS PREVIOUSLY SPECIFIED AS ANOTHER FORMAL ARGUMENT OR THE SUBPROGRAM NAME.@P 82 : TOO MANY FORMAL ARGUMENTS CAUSED A COMPILER TABLE OVERFLOW. 83 : THE ABOVE @P NAME IS NOT A VARIABLE OR ARRAY ELEMENT. 84 : TWO ELEMENTS OF THE SAME ARRAY OR COMM@P ,ON BLOCK ARE ASSIGNED TO THE SAME STORAGE UNIT. 85 : BLANK COMMON AND FORMAL ARGUME@P WNTS MAY NOT BE INITIALIZED WITH DATA STATEMENTS. 86 : 87 : AN ARRAY ELEMENT IN A @P BYTE, SIGNED BYTE, DATA, OR EQUIVALENCE STATEMENT EITHER HAS WRONG NUMBER OF SUBSCRIPT@P S OR A SUBSCRIPT IS OUT OF RANGE. 88 : TOO MANY EQUIVALENCE NAMES CAUSED A COMPILER@P TABLE OVERFLOW. 89 : AT LEAST TWO ELEMENTS MUST APPEAR IN AN EQUIVALENCE STATEMENT.@P  90 : 91 : DATA STATEMENT FIELD IS NOT AN INTEGER, REAL, DOUBLE PRECISION OR LITE@P .RAL CONSTANT. 92 : MISSING TERMINATING ASTERISK OR QUOTE IN A LITERAL STRING AS APP@P YROPRIATE. 93 : 94 : 95 : 96 : 97 : 98 : 99 : 100 : CATASTROPHIC@P TABLE OVERFLOW; COMPILATION IS ABANDONED. COMPILER IS LIMITED TO 300 WORDS OF GENERAT  3WF"@P ED CODE PER SOURCE STATEMENT. IF THE OFFENDING STATEMENT IS ARITHMETIC OR A LOGICAL IF@P , THE STATEMENT SHOULD BE BROKEN INTO TWO OR MORE STSTATEMENTS AND THE PROGRAM RECOMPI@PLED. 101 : TWO PROGRAM, FUNCTION, SUBROUTINE, OR BLOCK DATA STATEMENTS IN IN ONE PROG@P0RAM UNIT; THE SECOND IS IGNORED. 102 : 103 : RELATIVE ADDRESS ARGUMENT IN ASSEM STA@P[TEMENT REQUIRES PRECEDING CONTROL INDICATOR ARGUMENT (*). (*). 104 : 105 :  106 : @P 107 : 108 : 109 : 110 : SYMBOL REFERENCE TABLE OVERFLOW. SUBSEQUENT REFERENCES@P WILL NOT BE LISTED BY 'C' OPTION PROCESSOR. 111 : THE INDEX USED IN THIS SUBSCRIPTED@P VARIABLE IS IN CONFLICT WITH THE DIMENSION DECLARATION. 112 113 : MAXIMUM NUMBER O@PF MACROS EXCEEDED. THIS MACRO DEFINITION IS IGNORED. 114 : THIS MACRO WAS PREVIOUSLY @P2DEFINED; THE NEW DEFINITION IS IGNORED. 115 : CALL TO AN UNDEFINED MACRO. 116 : NE@P]STED MACROS ARE ILLEGAL. 117 : 118 : 119 : 120 : 152 : ARITHMETIC TABLE OVERF@PLOW.PERRMSGPWRITE ENDLOCP PH PHASEF 01G F FTN CCS 3.0 SL-149@P@P6  `@P @P  3XF6@P @P@P- @P,f0p4g( hp8ڈhp8(d Ti h\)Ⱦ h\@P0I \0iȰ h\0IȨ h\0 dm0 dn dȞl0 dc h n@Pt nf0rؑ 1TT0e =hK d0 id "! ,@P 439876  d9̺khT@Pw l +O 0w  ̼ lckh\@Pw  l" 9 & 0kl d0x2܀0khT@PlԀ0lh\@Pl"̻ 4 l d d 0v  $ l 1lnhT@P:wC l l0nd 0c `fhlr 1 d l@Pe췎lܴ 1 l6fܦ0 df ll T~ 씎 dl@P"lTηKd αIdΫCdid ΢Ed " : @P&t00ckhT@Pw S d00{d| (d}T1wkl '\̻dlTw )l\w @Pd 5 n l\ 0w l 0fv 1̠  Cl-  Dl\w@P#\ ll̞lh\@P-}\w̒khT@P:w ld~\w  <l l 4 lT ckh\"  3YFJ@P^w d0}lT1w  l lkh\@Pxw\ww deh Td \@P \Tw\w l@P@P  d@P@P 2~ @ HH`PPHASEFPWRITE 6TITLE SYMSCNACON 8IREPAKSORT 8GETSYMHCON LWRITEdCONV WRTYP TMATCH P PH `GETSYM 02G F FTN CCS 3.0 SL-149@P6 c0p4g,delf Dp<( hp8hp8(d T@P,i h\) h\ \iȸ h\IȰ h\ @PW̵lHPGETSYM\PREAD ,P P _ACON 03G F FTN CCS 3.0 SL-149@P v@P  3ZF^@P'@P hh hh4h %h h h(h'(dߘ""`p9iԈh  . h=@P7n h 1 1ɀ@PJ@HH TT h\ hPACON NPQ8PKUPVQ8PREPSP P 3HCON 04G F FTN CCS 3.0 SL-149@P@Ph hhp8h h0PARABSP P*Q8PRMR B01 A FTNR CCS 3.0 SL-149@Ph Hq``TH`T" hPQ8PREPQ8PKUPQ9PKUPPPARABSP PPARABR B02 A FTNR CCS 3.0 SL-149@PHhB4 "c"PPARABSP PQ8F2IR B03 A FTNR CCS 3.0 SL-149@P@ @ @ `T`\`h @G`!d`c'6Hw  3^F@P+` `a@,'T `8&\ `X""`@PV`\[K]@ `@T\[@?9T"``\ĝ@T)1l\@P[Z%@XQ$    0jX"  \[@ @@PQ8QF2IQ8QI2FQ8QF2FE4SAVE+PPARABSEXP xALOG lFALT HFLOT 8P PABSR B04 A FTNR CCS 3.0 SL-149@P@`T"`"`T@"\tPQ8AB ABS PHFLOT PARABSP P[SQRTFR B05 A FTNR CCS 3.0 SL-149@P@T"``"dR`@6G* AB ;1`Š 4`TQݾ@P+SUۚWYOa 4dRd@`\ٴ@@?N^ A̼>@PVL>aArI$PSQRT PHFLOT $PARABSP P,SIGNR B06 A FTNR CCS 3.0 SL-149@P `@` `Ta"``\ b#1Tt`D  3_F@P+PQ8SG SIGN PHFLOT &PARABS P P8FXFLTR B07 A FTNR CCS 3.0 SL-149@P @` `@X""``T\ ``@  @P+`@X""`\$PQ8QFIXQ8FX Q8QFLTQ8FLOT'IFIX FLOAT 'DFIX Q8DFLTDFLT 'PARABS.HFLOT P PEXPR B08 A FTNR CCS 3.0 SL-149@P@`T""``\W@ %\P}@ @\I[@}p?C5Ƙ1@P+ `?Ř3Ƙ> 1 " HX `B\#Z]Y^]J@Ő1G" `R @PVz` `Tؔ3\՞+(Y^#Y^Y^Y^ Y^]@@Pŀ`\\յ@@>UV=UVE  3`F@P+1` #d*@1*A`ݠ4ad`Š 1`T^]مٝY@PVٵ ^\@Zy@X @@A@@UN<?j+PALOG PFALT HFLOT HPARABSP PlTANHR B10 A FTNR CCS 3.0 SL-149@P `T@""\+[TQ3` "`!d8\[TCb\t"`!d?@!@P+#*BP*`T\T$յ$@\@ `\YV@PV@  @>Ie=h,PTANH PPARABSHFLOT 8EXP 2P PSNCSR B11 A FTNR CCS 3.0 SL-149@P@`T""``\L$@@P+`\""``\&@ %\}@ ``q@x7u3K@)Ř7X"@PV` Tե`Ũ"Gf $ ƪ` `\YJ^C>@:@P\X]9@ `Ř04Ơ,;.` `\~"@\ܞY&#^Y^Y^Y@P\}@\@AdA@*@Ke>@U@>GPATAN PHFLOT SPARABSP PSD1781R B13 A FTNR CCS 3.0 SL-149@P B"" @XXt` Q `X  @P+ X"" R1`p @XXRRt`XPHFLOT HDFLOTIFALT SFALT BPARABS5E17811P PNFLOTR B14 A FTNR CCS 3.0 SL-149@P  `a` ` `X8?"A  x&Jz@P+}Xa(XBXXȰ,` #`X`#`XE`Ȱ#`X@PVMbXO`Ƞ$d `d`Ȱ.`XXVbb $`T@P@@`Ϡ *`@ed`d`Xp` `Ƞ4`n Ƞ$[I  3bF@PȰ$>a.`X"dR`2H `͠ `D`D```X=@PXXXU#.` A`@ @ X2X0` `2@@PA`πҐ`"G ~ @39` ` 2` 1`ϐ+ i& c @P-``"dR`2H ```XYXX8#.`@PXaA@͠`d `md 0 d1 " 2a0 `Da0 @P1 m  ! X` ` `{XXNdRXX@P@`!d߰2H `Ԡ"`@`ed`d``Y@Pِ.`@`@`@" h u>`hA``h`@PA``B΀" e " `@2T "@P/@k"Ƞ>.`Rd"Ƞ>`R@`" `PFLOT HFLOT PPERORIXFOP9LOFOP6PECOP0XTOP PERNDP PCOMFPR B15 A FTNR CCS 3.0 SL-149@P 'B``` "Ƞ,2!Ƞ#`'2 @P+ X"25#?FI@ B#`X @ `@PVX!X1 $XX Ȱ#!1@P RA1`R "dR@ R  B H g@Pad `#`XZb Ȱ#`XK`!dB2 @@PrdR@`/@Ƞ4` H)X t` Q  T"" R1b  3cG@P H XRRt`pPIFALT SFALT OPERNDNXTOP FPERORSPECOP.FLOFOPFIXFOPPPARABSP PeQ8QIOR C01 A FTNR CCS 3.0 SL-149@PHT` h \ H"" dLonbb@ @ aaXWa@P+2 APaXMr""" aO f32a/fq X3"" f Df@PVrDX&r""` f  f" f" R2a"2" 4@P\  `h   `h f H"AXF@P CAa2-Taaaaa `%T2AT b@P @4hI;  b bgbedDİb h $ b fT @P `"` H~ Dfy$h @T Hl!`" ]@P-c"A aahA3"hLH 3@PX )PQ8QINIQ8QX Q8QY Q8QZ Q8QEND'Q8QGET;SETBFRIOERR QIRWERR[ARGU0 PPARABSBINARYFORMTRP PKBINARR C02 A FTNR CCS 3.0 SL-149@P TDa a1X0" f 4`D`T X f" 4`@P+D`T    " ( "2f">  3dG&PBINARYPRSTORE9INITALQ8QGET1P PQ8QGTR C03 A FTNR CCS 3.0 SL-149@PPQ8QGETP P4IOCODR D01 A FTNR CCS 3.0 SL-149@PTA a aX!`X""`X""aXaThhT@P#TA TPENCODEDECODE#PPARABS1FORMTRP PINITLR D02 A FTNR CCS 3.0 SL-149@PT "Aaa@PINITALP PRSTORR D03 A FTNR CCS 3.0 SL-149@Ph ```ThPRSTOREr  3eG:P PGETCHR D04 A FTNR CCS 3.0 SL-149@PTz a&TTڪ APIGETCHGETCH PEWRITE RSTOREINITALP P>IPACKR D05 A FTNR CCS 3.0 SL-149@PT)  ؐ"T a1q\  d ڠ d f" "@P+a  `ڠdPIPACK PCHCNT ,RSTORE=EWRITEINITALP P UPDATR D06 A FTNR CCS 3.0 SL-149@PT  dPUPDATEPRSTORE INITALP P&DECPLR D07 A FTNR CCS 3.0 SL-149@PT``؁ ` a `T  ` dT`TaePDECPL  3fGNPRSTORE%INTGR UPDATEGETCH INITALP P-INTGRR D08 A FTNR CCS 3.0 SL-149@PT` a؁ ` `T"  !T 9!a Fa ` `T@P+PINTGR PRSTORE,UPDATE)GETCH INITALP PSPACER D09 A FTNR CCS 3.0 SL-149@PT a`؁ ` `T ` `TPSPACEXPRSTOREIPACK UPDATEIGETCHINITALP PHOLR D10 A FTNR CCS 3.0 SL-149@PT`` a ف ` `3TTa ` `T @P+ a  ) a؁ ` `T ` `T# T``ف ` `@PV3TTa ` `TE  ( $ 3 a  t @Pa؁ ` `T> ` `T c PHOLRTHQUOTE GPCHCNT ~RSTOREIPACK UPDATEGETCH [IGETCHXINITALJ=  3gGbP PsDCHXR D11 A FTNR CCS 3.0 SL-149@PT` aaaaa `!T ` `Ta ` `T    @P+ 5 1 0a a' "T 9!\a !\ Fρ"@PV aA Fρa1A\aADdRAaPDCHX PRSTORErEWRITECUPDATE!IGETCHINITALP PSHXASCR D12 A FTNR CCS 3.0 SL-149@PT` `ab a  0c    ` a`b% *aa@P+ ` a"Td"2aR @ ` `T ` `TPHXASC PEWRITE5RSTORERUPDATENIPACK GINITALP P*AFMTOR D13 A FTNR CCS 3.0 SL-149@PT`a `! ` ܠ `Ta؁ ` `T ` `TPAFRMOTPRSTORE)UPDATE%IPACK GETCH INITALP PRFMTOR D14 A FTNR CCS 3.0 SL-1490  3hGv@PT a`؁ ` `T ` `TPRFRMOTPRSTOREUPDATEIPACK INITALP P.AFMTIR D15 A FTNR CCS 3.0 SL-149@PT`؁ ` `Ta ` `T a  ` `\a ` `\ȁ@P+aPAFRMINPRSTORE-UPDATEIGETCH INITALP PRFMTIR D16 A FTNR CCS 3.0 SL-149@PT`؁ ` `Ta ` `TPRFRMINPRSTOREUPDATEIGETCH INITALP P;ASCHXR D17 A FTNR CCS 3.0 SL-149@PT` a `!, ` `Ta ` `T a 6 9 @P+2 2T aıaPASCHX PEWRITE/RSTORE:UPDATEIGETCHINITALE  3iGP PHXDCR D18 A FTNR CCS 3.0 SL-149@PT` aafRda -a0F 0ac 2 .a `@P+9ac a aA `!J aa a(@PV a .a 0a!D Q" !yR *a aa A؁ ` @P`T ` `TPHXDC PRSTOREUPDATEIPACK INITALP PJFLOTIR D19 A FTNR CCS 3.0 SL-149@PT``d` aTT! a@bRd@``\\aTT@P+@$\af\\a `aAPFLOTINPE4SAVEBRSTOREIQ8QFI &HFLOT (Q8QFL DCHX INITALP PFOUTR D20 A FTNR CCS 3.0 SL-149@PT`d`"Rd@`TTm@o1Q$\T a@P+` a`T .a ` `T ` `T a`"d`!T(T\@PVk@\`\aa`BP@@JI>` *a ` `T= ` @P`TD `  3jGPFOUT PE4SAVEfRSTOREjQ8QFL SUPDATEIPACK |HXDC 3Q8QFX QHFLOT Q8QFI INITALP PEOUTR D21 A FTNR CCS 3.0 SL-149@PT``d```` a` a `/" 4 A *a A   @P+ gR@R@ -A` .a ` ` `T ` `TT8T@PV\ ` c1Td 2Q \\ c1\T\׺@P@\ #  a ` a!T\@@@TTL a E@Pa``؁ ` `TB ` `TII +#d` -A ` ' a``\ aa@P``\a `aBP@@PEOUT PE4SAVERSTOREHXDC Q8QFL EWRITEeQ8QFX UPDATEIPACK HFLOT UQ8QFI |INITALP P EWRITR D22 A FTNR CCS 3.0 SL-149@P2 Th PEWRITEP PINTI1R D23 A FTNR CCS 3.0 SL-149@PT "AX`XahhTTPINITL1RESTRE   3kGPPARABSP PFORMTR D24 A FTNR CCS 3.0 SL-149@PPTqa aa a a a aف ` `Ta"  6 9!@P+ M \ { a ` `T   ` @PV `{  `Ta`T" a   ` `\ @P a`T'bdRQ"T9 `T1 `T)  "T@P`T  !\`T \`TTf" !\f" a#@P a a A aA `@ TT" a a A aA  @P a  `T\"a A `` !RATaQ `@P-TI `T.A  "T`T4  !\`T(a "T@PX"a` `T `T "TW \`T aa  !\@P ` `TG a a a a a x a]a' ` `Tf@P`T``1 aF a؁ ` `T ` `\ ` `\<a @Pa Da  a  a ف ` `T 3 ! ` `TPFORMTRCHCNT PRSTOREEWRITE?IPACK DOUT wEOUT jFOUT bRFRMOTOAFRMOTCHXASC 6HXDC $SPACEX QUOTE HOLRTHFLOTINPRFRMINAFRMINASCHX DCHX DECPL fINTGR UPDATEGETCH INITALQ8QGEToP PQ8QFIR D25 A FTNR CCS 3.0 SL-149]  3lG@PT` ` $aaTBP@PQ8QFI PRSTOREINITALHFLOT P P/Q8QFLR D26 A FTNR CCS 3.0 SL-149@PT#dRAR`B@ @"si`  dr$Rd@P+`@PQ8QFL PRSTORE.INITALP P7Q8QFXR D27 A FTNR CCS 3.0 SL-149@PT$dR@ R  DA * H f H g@P+ AddRAaPQ8QFX PRSTORE6INITALP PHEXAR D28 A FTNR CCS 3.0 SL-149@PT aa a a aa `TPHEXASCPCHCNT RESTREHXASC INITL1  3mGP PHEXDR D29 A FTNR CCS 3.0 SL-149@PT aa a a a aa @ !RATPHEXDECPRESTRECHCNT HXDC INITL1P PASCIIR D30 A FTNR CCS 3.0 SL-149@PT A a a a `Tf"PASCII PRESTREASCHX INITL1P P DECHXR D31 A FTNR CCS 3.0 SL-149@PT a a a a a `TbdRQ" f"PDECHEXPRESTREDCHX INITL1P PAFORMR D32 A FTNR CCS 3.0 SL-149@PT a aa a` `T f" PAFORM PRESTREAFRMININITL1չ  3nGP PRFORMR D33 A FTNR CCS 3.0 SL-149@PT a aa a` `T f" PRFORM PRESTRERFRMININITL1P PFLOTGR D34 A FTNR CCS 3.0 SL-149@PT aa a a a aaa `TPFLOATGPCHCNT RESTREEOUT INITL1P PSGDBLR E01 A FTNR CCS 3.0 SL-149@P @`X""``TՀPSNGL DBLE Q8SNGLQ8DBLEPARABSHFLOT P PQ8D2IR E02 A FTNR CCS 3.0 SL-149@PH& H H hT`\` @f`!d`X@P+"```T[R]@#``"`\[@EAT"``` @PV`\ݝ@T+a@%\ѹ\ɹ1 \[Z@X+$ 1X  3oH@Pz" \[@@PQ8QD2IQ8QD2FQ8QD2DPDLOG JDEXP \FALT HDFLOT5PARABSP PDABSR E03 A FTNR CCS 3.0 SL-149@P@`T""```T@"\tPQ8DAB DABS PHDFLOTPARABSP PDSQRTR E04 A FTNR CCS 3.0 SL-149@P@T"``'d`dR``@PG* AB ;1`Š 4`@P+Tqtwۚz@}\nܐ ݐ ސ B\׽@@PVa 4gRd@R@`\´@@?N^ rA>L<"aArI$JPDSQRT PPARABSHDFLOT,P P-DSIGNR E05 A FTNR CCS 3.0 SL-149@P @` ``Ta"```\ b#1Tt@P+`PQ8DSG DSIGN ;s  3pHPHDFLOT'PARABS P PDEXPR E08 A FTNR CCS 3.0 SL-149@P@`T""```\Q@ %\J}@ @\C[@{x?Cؘ# `?Ř@P+!1 " HX ``"Q\&Z]|^]^@Ř G" `R|@@PV` ``TS\՞LHY^BY^UUUV=UUUV<DDDD;[@P[9h8hh6w[5I>@X PDEXP PFALT 4HDFLOTaPARABSP PDLOGR E09 A FTNR CCS 3.0 SL-149@P@`T""```\A@1X"`  Ő@ ``@P+`\%Q1`` #d*@@1*A`4ad`Š 1`T^-@PV](YC>82,& ٵ ^@@P@Zy@X @@A@@UUUUV?fffff?I$I%>q>Et>N>DDDD>xxxxxPDLOG PFALT HDFLOTQPARABSP P6DRSTRR E10 A FTNR CCS 3.0 SL-149$  3qH*@P @T"f"bb @\"f"b @\"f"@P+"  b`bPDSTOR1RSTOR1DSTOR2!PPARABSP PDSNCSR E11 A FTNR CCS 3.0 SL-149@P@`T""```\f@```\[\V%@P+@`\""```\/@ %\(}@ ``@PV`@ؘ=Ƙ8ǘ3K@-Ř7X"` TZ}]@Ũ1G@Pf $ ƪŪ` ` `\Ye^\7Y?V;\ѵM @P`ŘC4?4;??` ``\'\~-@\fݞYA=^Y7@P^Y1^Y+^Y%^Y^Y^Y@\t@QAdQAQ@*@PY^GY^AY^;Y^5Y^/Y^)Y@ 3`\t\@\@@?@P?j g>Q@Ke>V@U@>ffff6m>qq.>NN=xxxxPDATAN PHDFLOTcPARABSP P^DFLOTR E13 A FTNR CCS 3.0 SL-149@PThTX X a*` a aX '@P+Baa"aA3%l@PV,` Ȱ#`XaXȰ#`XaȰ#`XbX$'@P)03*Ȱ#`X A a!1  @P!1Xu`` `"Ƞ>a.`AA&dRARAa @P2H a a a a 6Da a a a Ƞ>`+X X8bbb!@P T@@@ ` *`@ @id`d`d` @P-.`"Ƞ,2!Ƞ#`(2 ( e@PXXX.#Ȱ.` !Aa@ !! A !! A !Aa@X@Pa@ !! ƁXX@` !AX`""``@ Aa@PaA3AasA``c` 1 m@`@P$ ` A a a a "-G - a a a a a a a @P#a =`XX$X~#.`1   #0a d a @P/ !13d #2d Ad( 2adaa1 aDa1bAa  3sHR@PZ?ad A2aF ad2aa1`a1`Da1` a a @PaȀ-`aaaaA&RARAda2H a aa@Pa  ! Ta a a a \X[da@PdRXQaAaA!dذ2H a "a aAa @PA a hda da da  a aa  a1 a A  a A a A@P1 a A a" x a ` d aa bAa a babAa@P\"H1h #h`Aa`Aaa`AaaM@PaB a #a  A Dda a a #a  n a )a a #a @PA a A # a 2W  $or | AA A   @PAA A  a A kdRA a da . Ƞ>t` A U@ @P`a `X"dR@ R  B H gad `Ȱ#`@P3XbȰ#`X`!dB2 @rdR@`/@gPDFLOT HDFLOTPFPERORP PQ8QDFR E14 A FTNR CCS 3.0 SL-149@PT` `` $aaTBP@PQ8QDFIPRSTOREINITALHDFLOTP   3tHf P DOUTR E15 A FTNR CCS 3.0 SL-149@PT``d``````` a` a `/" 4 A *a @P+A %lR@@R@@R@ -A` .a ` ` `T ` `TT@PVDT``\" ` c1Td 2Q \@P``\ c1\T\@``\ #  a ` a!!T@P`` `\@@@T``TV a Da``؁ `  `TL@P ` `TSI +#d` -A ` ' a``\ aa``\a `a@PBP@@PDOUT PE4SAVERSTOREHXDC Q8QFL EWRITEsQ8QFX UPDATEIPACK HDFLOT_Q8QDFIINITALP PFORTN F01 A FTNR CCS 3.0 SL-149@PX/X+X'X# XX}X$X@P+)Xa"a X" XIb XFb XCa X@b bXL>aArI%@@PSQRT PHFLOT DARABSP P$SIGN G05 A FTNR CCS 3.0 SL-149@P @` `Xah\ b#1Tt`PQ8SG SIGN PHFLOT ARABSP P0FIXFLT G06 A FTNR CCS 3.0 SL-149@P @` `@X""``T\ ``@ `@X ""`@P+\$PQ8QFIXQ8FX Q8QFLTQ8FLOT!IFIX FLOAT !DFIX Q8DFLTDFLT !PARABS&HFLOT !z  3wHP PEXP G07 A FTNR CCS 3.0 SL-149@P@Xh`\V@ %\O}@ @\H[@|o?C5Ƙ1 `>Ř3@P+Ƙ= " HX `B\#Z]Y^]J@1G" `R z@PV` `Tؔ3\՞+(Y^#Y^Y^Y^ Y^]@ŀ`\@P\յ@@>UV=UVŐ1` #@P+d*@1*A`ݠ4ad` 1`T^]Y@PV ^\@Zy@X @@A@@UNIe=h,(  3xHPTANH PHFLOT 4ARABSXP .P PSINCOS G10 A FTNR CCS 3.0 SL-149@P@Th`\6@Th`\&@ %\}@ ``q@ؘx@P+7u3K@)Ř7X"` Tե`1Gf $ "Ţ` `\@PVYJ^C>@:\X]9@ `Ř04Ơ,;.` `\õ~"@\@PܞY&#^Y^Y^Y\}@\@AdA@*@Ke>@U@>GPATAN PHFLOT OARABSP 9  3yH PPARABN G12 A FTNR CCS 3.0 SL-149@PHhB4 "c"PPARABSP P^D1781N G13 A FTNR CCS 3.0 SL-149@P B"">= @XXt` Q `X   @P+X"" R1`p @XXRRt`XTLWT@PV 1781-1 REJECT PHFLOT HDFLOTIFALT SFALT <PARABS/E17811 P P>FLOTN G14 A FTNR CCS 3.0 SL-149@P  `a` ` `X8A"C  x&Lp@P+sXa*XFXXȰ,` Ȱ#`X`Ȱ#`XB`Ȱ#`XJX@PVbXO`Ƞ$d `d`Ȱ.`X XSXUbb $`S@@P@` *`@ed`d`Xo` `Ƞ4`n Ƞ$Ȱ$>@Pa.`X"dR`2H `͠ `D`D```XCXXXS#Ȱ.`@P A`@ @ ŀX2X0` `2@A`π`"G@P z @35` ` 2` 1`ϐ+ e% b ``"dR@P-`2H ```XcXX8#Ȱ.`aA@͠`d `+$  3zH@PXrd 0 d1 " 2a0 `Da0 1 q  ! X@P` ` `X XAdRXX@`!d߰2H @P`"`@`ed`d``Vϐ.`@`@`@P@ϐ"h t=`hA``h`A``B" e@P " `@2T "@k"Ƞ>.`Rd"@P/>`R@`" `PFLOT HFLOT PPERORIXFOP6LOFOP3PECOP-XTOP ROCHKqPERNDP P4COMNFP G15 A FTNR CCS 3.0 SL-149@P &B``` ",2!#`&2  @P+X/2 <CF=B#`X X9@ `X!X1@PV Ƞ$XX #!1H%@PX#X X X 4 4p"d 2esR@P4R4!D RȢA1`R "dR@ R  B H ga@Pd `Ȱ#`X0Xb Ȱ#`X$`!dB2 @rdR@P@`/@Ƞ4` H(X t` Q  T"" R1 H XRR@P-t`pPIFALT  SFALT %OPERNDNXTOP FPERORPROCHKSPECOP*FLOFOPFIXFOPPPARABSt  3{HP P?Q8IFRM H01 F FTNR CCS 3.0 SL-149@P  hhhhhT@P THTTh\hh\hhPQ8IFRM/PQ8PKUP5Q8PREP2Q8FS Q8TRAN!P P5Q8FS H02 F FTNR CCS 3.0 SL-149@P@P!@P/ @P1 @P+ )(,/.XH0123456789AREF$I@PD'*Z@P @P3 h@P; l : T l @PLll h@PV l \ hlElh hhhh hhT*() h hظȶ ,Ȱ"!& 1@P ,jk  3|I@P, 1TT6 l44 l2 / ! + !l dKd- l!!  @P d.d( d)Tj.() % Vd@P\/\  l !  "ld0l l l l l\.() @Pd L6'1l$ V L"TT 6TG @PBl d  d& d% l ll  T*@Pd\*T*̙ l !  d(d)T*()\*" l ! @Pd*@P@P@P@P@P@P@P̹ $2 l#, l@P@P dd: ld$l d@P@P l@P@P l  3}I@P!@P l@P#@P@P@P l@P%@P l@P'@P l@P)@P d̘ @P/@P l̒ \*̹  a̱  aTg*\*̡  a̙ @P aT`*@P9@PS@P@P@P2H/TThV\hD\hB\hhh\hh\h\h\h#h\h=  3~I.@P-\hhPQ8FS PQ8STP 8Q8PKUP Q8PREPQ8SKIP@Q8FGET}Q8FERM5Q8RWBUQ8FPUTP PAQ8TRAN H03 F FTNR CCS 3.0 SL-149@P@PQ@PS@PU @PY-0 @P`F@PfED.@Pp@P{*@P<'d @PA@P T h jظ 1 h " < )@PP d; h\ dP̼ !TR 9l@PRdRl̩ l  dTTPT\R̛  lUdRlVl  dW@P dX\R    !> ḷ l !& !/ l 9!/̫  3IB@P, !+̧ h$[l !( l 5TR@PE l̻ ̵dl\WTgTQTR  0l\\\ ld]d ^ dN@Pp:\R  ld_ 9!. !* hWĈl̨ l 3\R@P    dT !TWT l F7̣ 4̠ l̜  0lTSQ@PTV@P@P@P@P dadbldXdcddde dN f 1TARR  l @P  l  l \Rl;  $[ lL dDf@PdWgl,lLlll ̲ l,lLlll, lh@PJd^ il ̓ l TRR B > : 6 @Pu 93 % Rd e l 95 2v  0lo  d@P dalX̺ ̷ ; ̯  EdO l D\R̠ ̜  dc@PR  9! ! dDb$[l c"a l T_R @PR 0lԀ@P@P d ̱ k3 dleld3d4d5d6d7 d8;@P% D ll d9d:l T ̻ aO  lX  @PPdldldl dTTT l\T l\TṊl T a !  3IV@P{ ̚dl̛dl l\T l\T)@P@P" < ) EH d;; dPl\PT ! ! lHdR@PVlTR̘l\R l\R l  Hll\Rˬl dm l@P dEdFdG dN n 1 dn +dXdc dTT\ET l\FT̗  l@P\GTdKdIdJʤpdo  -lܺdldl; dl TH@Pܚ d^n 1 l 0n 1 dN 0n 1  d]@Pi  mdlc ÔMl̿ !i̻  l̶8TU l@PX \X ldn dl !  0ṉ h\@Pܫ l̹ l\l̳ l  2\Z̥ l 2] h\@Pr l l 2\{ lm !d^  dN8@PTU lX \X l\Z\l l  ̳ h\@P0ܭ l; \k l\j\cMd|Kd}+ z!" 8 %@P[ l\Zܨ 1P\Z\J\\ DdTdx dqdwld^ dN  3Ij@Pl`p=l  lܹ 0f.lۜll 1 @P@P +dX dmlT|Tl|pdo dl -l l lz  l 0d@Pd~ !#  l5TUܘ \Y lڜ9Nh\@P l4\{@Pp@P dT\|T̨ldx dqdwdyl *l ̬ l̩d ,\Ṳ@P8 l ! l l윳4\Zܯm lz`p5@dDfl 0e 4 @Pcn ḽḷlN 1 l l  1 d~ "@P l  +TU l ! d^ " ll 8̽h\@Pܷ " l  l\`̥ l !\U̶ l  !@P@PX@Pe@Pb@aH^H[TThh\hhhFhhhh{hhh\hh@Phhhhhah\hqhhvhhI\hgh\hch\h_h\h[h@P3\hWh\hShAPQ8TRANPQ8STP Q8PKUPQ8PREPQ8FS Q8RWBUQ8MOVEQ8FERMQ8DXP9=Q8EXP9rQ8DXP19Q8EXP1=P   3I~ PQ8QINI H04 A FTNR CCS 3.0 SL-149@P H]h\hRhMhRKuXhKJhAHFv" c h8"5T39cTh.h;X7@P+H&8%#T$h$h`  TT @PR@PX TF TT4h255؈ȇXh&ڨ*I@PhTTp=H ' &eh @ȫT@PȨXȞ Tȡ`><Ȓ T H T艀PQ8QINIQ8UNITVQ8SKIPPARABSzQ8DFIN'Q8QUN2Q8CMP1Q8IGP Q8IFRMQ8QENDQ8MAGT5Q8CMP0lQ8QT0MQ8EREMNQ8INTBoQ8ERRM"P P!Q8QEND H05 A FTNR CCS 3.0 SL-149@P dT TTT PQ8QENDPQ8FS Q8DFADQ8UNITQ8QUN2Q8QUN1Q8CMP1P PQ8CMP H06 A FTNR CCS 3.0 SL-149@P h3HHdƐhdDhhdTFKhh @P+hHL8@ hk"ThT h~"  b hvT P@PVިXM H֨CbC|Ψ Z hX Va `hQ1D{lJwe@P& D!WX"ȭ ȩ!5XMyl,e (!;X Ȍz  3I@PTT `h Dh XX\\ TaH #@Ph! TT PQ8CMP0Q8CMP19Q8DFADQ8QENSRECENDPWRFLG Q8EOTTPQ8RINTQ8CLRBQ8LOCBAQ8BEGB=Q8EREMP PQ8RWBU H07 A FTNR CCS 3.0 SL-149@P hBDhEhBhBhDhwh:8# `h9 V1a Dh/X+)*h+DT  #% @P+ # Dj A Dh h h  Hhh@PV&aH3[HX" L!`h TT @PaH> 3 DH-j+̾Ⱥ(j'% hȲDhT̝Ȟ̘nΙl@Pؘؚș _ U h`PBPQ8BINBQ8LOCB#Q8RWBUPQ8INTBQ8BEGB(Q8CLRB+Q8RINT:Q8IBUFWRFLG OPQ8EREM{Q8CMP1P PQ8ERRM H08 A FTNR CCS 3.0 SL-149@P HDX hgHghf>XhdHdhc h-+h) H, @BH'H%#B9*h"H AhBH@P+ j `0@P; @P@'d   3I@PJ hrHr s"htjqh hDh`Hah`I/O REQUEST @Pp     X XX*EX XX&X+@XXX< XwhHh@P h,ph*X" dh$ h!X mh hX ThX THX@P TL `uPQ8ERRMQ8FERMJQ8EREM[PQ8LOCBQ8LOCFP PQ8DFIO H09 A FTNR CCS 3.0 SL-149@P HehdhgXlXvhb"aTZWDT hUHUHRRQ  pJf XNXXhEn HA@P+XHXR(?R!39h9X?XInhTK  NX0h+p nmh n@PV ;ln  H T` + ȋXh؆1  @P HhH  TT hhhhdhhuXvh̺@P (BD n&ȫdȫ PQ8DFNFQ8DFINPARABSRECENDQ8QENSQ8DFADQ8QINIQ8EREMQ8ERRM P PeQ8QX H10 A FTNR CCS 3.0 SL-149@P hJIEhE h h  hh h8H60TXX h%`"@P+ "h*hTHIJ T h hh@PVh llL  3IPQ8QT0MQ8QTRMQ8QX Q8MOVENQ8QY Q8QZ PARABS#Q8UNITQ8QUN1Q8BINB>Q8IFRM7P PQ8QUNI H11 A FTNR CCS 3.0 SL-149@P X# Xhh@4i` Xj TT Cr q d`P+^PQ8QUN1Q8QUN2Q8QUN3PQ8EREMP PbQ8FGET H12 A FTNR CCS 3.0 SL-149@P Y hUDhT XHXhNX hXh:a62Hl2@P+0X), H,)H& XXh a&hh۸nX X h H @PV PQ8FGET Q8FPUT7Q8LOCFQ8IGP PARABS;P PQ8MAGT H13 A FTNR CCS 3.0 SL-149@P HThhh=@ T XT%T\ XFDh5TFh120-3 T@P+*(%!T TF \T T \T `PV  3I`PZ@Pa H HB0h hȳhhhQ\ٸj\PQ8MAGTQ8EOTT>PQ8QUN1:Q8QWNDHQ8COMILQ8QUN2 Q8EREM*P PTAPCON H14 A FTNR CCS 3.0 SL-149@P H+h* r Gh hlBhHX"9" "hh0" T+TX%@P+ hT\H `CT T@ TFhT&h@PV XX TTT 2X X' h$  X0X@P XzШ Xhˠ T TcPQ8QBCKQ8QFLEYQ8QWNDyEOF iPARABSQ8IBUFQ8QUN3Q8QUN2EQ8QUN1_Q8CMP1Q8CMP0Q8EREMQ8ERRM#P PIOCK H15 A FTNR CCS 3.0 SL-149@P HXhTh  T  PIOCK PARABSQ8QUN3Q8QUN1P P?PSSTOP H16 A FTNR CCS 3.0 SL-149@P H= X H8X H0:TX*@) 7\TJ   hTtn  3I@P+H5@P7STOP PAUSE PQ8PSE Q8PSENQ8STP Q8STPNQ8COMI!PQ8PANDP PnQ8PAND H17 A FTNR CCS 3.0 SL-149@P h\H jN qDhQ`hS \hL!:R hJE hBEOi:DhL1a: Lw T&RH5 I  vR  @PLaT\T @P hh Huhi[G M^@BPCE}GN HJzLLK@PQ8EXP9 Q8EXPTQ8EXP2PIFALT PARABSHFLOT HP PQ8QGTX H20 A FTNR CCS 3.0 SL-149@PPQ8QGETSETBFRP PQ8QIO H21 A FTNR CCS 3.0 SL-149@PXHH"4q`hn "Xhg X H""^ l\@LUT@P+b@b a#XDa$2 A#PaX:$r""" a> n5$32a#/-n,X$$r"@PV"a$# n  na" f" R2a hd#2" X@PO"AX#D ALAa#2#%X2a#Xh11&   b@P bX b:9b hT e @h@1H`!@PA aa$hA$#2"LHPQ8QINI'Q8QX Q8QENDQ8QGETSETBFRIOERR ^  3J PINARYARABSySAVE "OMMON%ORMTRP P9IOCODE J01 A FTNR CCS 3.0 SL-149@PXXHH"4` "a "a a#XaX""aX""aXaXh h@P+`@P2XPENCODEDECODEPARABS7SAVE OMMON ORMTR'P P%PSUEDO J02 A FTNR CCS 3.0 SL-149`P%PCOMMONISAVE P PIGETCH J03 A FTNR CCS 3.0 SL-149@P#y a%XH!""" APIGETCHGETCH PWRITEP PBIPACK J04 A FTNR CCS 3.0 SL-149@P#*   "!"X# a1rX ""  "!f" !" f""" f"2  3J@P+ "a""! h " "f"PIPACK PHCNT .WRITEP P UPDATN J05 A FTNR CCS 3.0 SL-149@P" "f" !"PUPDATEP PDECPL J06 A FTNR CCS 3.0 SL-149@P` a! a a"X  a! a"XXaaPDECPL PNTGR PDATEETCH P P&INTGR J07 A FTNR CCS 3.0 SL-149@P a a! a"X"  !T 9!a Fa a! a"XPINTGR PPDATE$ETCH P PSPACEN J08 A FTNR CCS 3.0 SL-149@P a a! a"X a! a"X  3J2PSPACEXPPACK PDATEGETCHP PHOLRTH J09 A FTNR CCS 3.0 SL-149@P a a! a"3XXa a! a"X  a  @P+! a a! a"X a! a"X a! a"3XXa a! a"X=@PV    + a  e a a! a"X6 a! a"X@PTPHOLRTHQUOTE ?PHCNT oPACK zPDATEETCH LGETCHIP PpDCHX J10 A FTNR CCS 3.0 SL-149@P aaaaa `!W a! a"Xa a! a"X    8@P+ 4 0a a* "X 9"X>a "XC Fρ" a@PVA Fρa1BXLaADdRAaPDCHX PWRITE`PDATEGETCHP PLHXASC J11 A FTNR CCS 3.0 SL-149@P `ab a  0c    ` a`b% *aa ` a  3JF@P+"Xd"2aR @ a! a"X a! a"XPHXASC PWRITE0PDATEIPACK BP P#AFRMOT J12 A FTNR CCS 3.0 SL-149@Pa `! a! ܠ a"Xa a! a"X a! a"XPAFRMOTPPDATE PACK ETCH P PRFRMOT J13 A FTNR CCS 3.0 SL-149@P a a! a"X a! a"XPRFRMOTPPDATEPACK P P,AFRMIN J14 A FTNR CCS 3.0 SL-149@P a! a"Xa a! a"X a  a! a"Xa a! a"Xȁa@P+PAFRMINPPDATE&GETCHP   3JZ PRFRMIN J15 A FTNR CCS 3.0 SL-149@P a! a"Xa a! a"XPRFRMINPPDATEGETCHP P4ASCHX J16 A FTNR CCS 3.0 SL-149@P a `! a! a"Xa a! a"X a 6 9 2 2X@P+ aıaPASCHX PWRITE*PDATEGETCHP PHXDC J17 A FTNR CCS 3.0 SL-149@P aafRda -a0F 0ac 2 .a `9@P+ac a aA `! aa a( a .a 0@PVa!D Q" !yR *a aa A a! a"X @Pa! a"XـPHXDC PPDATEPACK P PFFLOTIN J18 A FTNR CCS 3.0 SL-149  3Jn@P`hA` aXX!!a@bRd@`X X aXT@%@P+T"ahX T,a`aAPFLOTINP8QFI 5HFLOT 78QFL CHX P PFOUT J19 A FTNR CCS 3.0 SL-149@Ph`"Rd@`XT[ZqXn]@1K%TX a`@P+ aX .a a! a"X a! a"X aa`"d`!X%XT Y,@PV]@XMX.aaȝ`h *a a! a"X8 a! a"X? h@PBP@@JI>PFOUT P8QFL OPDATEyPACK rXDC [8QFX YHFLOT Q8QFI P PEOUT J20 A FTNR CCS 3.0 SL-149@Ph`X``` a` a` `/" 4 A *a A    g@P+R@R@ -A` .a ` a! a"X a! a"XX@T@PVXI -`" ` c1Xd 2QTRqXY c1XfT@Pq[Zd@Xx #  a` aܐ!XTYD]@XX a@P Ea a! a"X? a! a"XF a  +a `"d` 5 aX @PaaXa `aBP@@v  3JPEOUT PXDC 8QFL WRITE8QFX PDATEPACK HFLOT 8QFI P PEWRITE J21 A FTNR CCS 3.0 SL-149@P#4h h` PEWRITEPORMTRP P(INITL1 J22 A FTNR CCS 3.0 SL-149@PXHH"4` " "aXaX ahh`XPINITL1RESTREPARABS&SAVE OMMONP PFORMTN J23 A FTNR CCS 3.0 SL-149@PPqa aa a a a a a! a"Xa"  6 9! @P+T d  a a! a"X   `  `@PV  aXaaX" a   a! a"XD @P aaX'bdRQ"X; aX3 aX+  "X@PaX  "XaX XaXXf" #"Xf" a#@P a a A aA aA  XX" a a A aA  "  3J@P  a  aXX"a A a` !RAXaS @P-aXK aX0C  "XaX6  "XAaX)a#@PX"X"a` aX aX#"XZ XNaX aa @P "Xw a! a"Xw a az a a a p a_a( a! @Pa"X^aX]X1 aA a a! a"X a! a"X a! a"X@Pِ2a a Da  a  a  a! a"X 3 ! a! a"X@P PFORMTRCHCNT PWRITEPACK OUT {OUT mOUT eFRMOTRFRMOTEXASC 8XDC &PACEX UOTE OLRTHLOTINFRMINPFRMINSCHX CHX ECPL cNTGR PDATEETCH 8QGETrP PQ8QFI J24 A FTNR CCS 3.0 SL-149@P` ``TBP@PQ8QFI PHFLOT P P+Q8QFL J25 A FTNR CCS 3.0 SL-149@P#dRAR`B@ @"si`  dr$Rd`@PQ8QFL P  3J P0Q8QFX J26 A FTNR CCS 3.0 SL-149@P$dR@ R  DA ) H f H g Add@P+RAaPQ8QFX P PHEXASC J27 A FTNR CCS 3.0 SL-149@PX a#a a a a"a aXPHEXASCPHCNT ESTREXASC NITL1P PHEXDEC J28 A FTNR CCS 3.0 SL-149@PX a#a a a a a"a !RA aXPHEXDECPHCNT ESTREXDC NITL1P PASCII J29 A FTNR CCS 3.0 SL-149@PX a# a a a aXf"PASCII PESTRESCHX NITL1P IG  3J PDECHEX J30 A FTNR CCS 3.0 SL-149@PX a# a a a a aXbRdQ" f"PDECHEXPESTRECHX NITL1P PAFORM J31 A FTNR CCS 3.0 SL-149@PX a# aa a` aX f" PAFORM PESTREFRMINNITL1P PRFORM J32 A FTNR CCS 3.0 SL-149@PX a# aa a` aX f" PRFORM PESTREFRMINNITL1P PFLOATG J33 A FTNR CCS 3.0 SL-149@PX a#a a a a a"a "a aXPFLOATGPHCNT ESTREOUT NITL1P  3J PtQ8QD2I K01 A FTNR CCS 3.0 SL-149@PH  H H h@X`X` f`!d`X"``@P+`T@p#``"`\q0T"``` `\@T@PVa@%\Թ\̹1\ú@p@PQ8QD2IQ8QD2F Q8QD2DPARABSDLOG @DEXP RHDFLOT.FALT $P PSGLDBL K03 A FTNR CCS 3.0 SL-149@P H XhTPSNGL DBLE Q8SNGLQ8DBLEPARABSHFLOT P PDABS K04 A FTNR CCS 3.0 SL-149@P HXhT@"\tPDABS Q8DAB PHDFLOTARABSP PDSQRT K05 A FTNR CCS 3.0 SL-149@P@X"``'d`dR``@ZG* AB ;1`Š 4`T@P+|ܾۚ@h\y@Ő Ɛ P  3J@PVǐ B\ν@a 4gRd@R@`\\@@?N^ rA̼@P>L<"aArI$JPDSQRT PARABSHDFLOT*P P$DSIGN K06 A FTNR CCS 3.0 SL-149@P @` `Xah\ b#1Tt`PQ8DSG DSIGN PHDFLOTARABSP PDEXP K08 A FTNR CCS 3.0 SL-149@P@Xh`\P@ %\I}@ @\B[@zw?Cؘ# `>! " H@P+X ``"Q\&Z]|^]^@Ř G" `R|@` @PV``TS\՞LHY^BY^UUUV=UUUV<DDDD;[[9h8hh6@Pw[5I>@X PDEXP PFALT ,HDFLOTYARABSP PDLOG K09 A FTNR CCS 3.0 SL-149;  3J@P@Xh@\A@1X"`  Ő@ ```\%Q@P+1`` #d*@@1*A`ߠ4ad` 1`T^-](@PVYC>82,& ٵ ^@@Zy@X @P@@A@@UUUUV?fffff?I$I%>q>Et>N>DDDD>xxxxxPDLOG PFALT HDFLOTJARABSP P DSNCSN K10 A FTNR CCS 3.0 SL-149@P@Xh`\c@```\X\S@P+@Xh`\2@ %\+}@ ```\"@ؘ=Ƙ@PV8ǘ3K@,Ř7X"` TZ}]@Ũ1Gf $ ƪŪ`@P ` `\Ye^Ř]7ƘZ?ǘW;\ҵN `ŘD4@4@P<!?` ``\(\~-]@\fY@<^Y6^Y0^Y*^Y$@P^Y^Y^Y@\t@QAdQAQ@*Q@Ke@P?j g>ׁV@U@>ffff6m>qq.>NN=xxxxPDATAN PHDFLOT]ARABSP PuDFLOTN K12 A FTNR CCS 3.0 SL-149@PH  bb@`@P*X X a*` a aX &Baa"aC@PU3%p,` Ȱ#`Xa@PXȰ#`XaȰ#`XTbX&)+25,Ȱ#@P`X TA a!1  !1@PXv`` `">a.`AA&dRARAa 2H a  @Pa a a 4Da a a a Ƞ>`)X X9Tbbb T@@@ @P,` *`@ @id`d`d`  Ȱ.`"Ƞ,@PW2!Ƞ#`'2 ' dXX.#Ȱ.` @P!Aa@ !! A !! A !Aa@Xa@ !! ƁXÁX@@P` !AX`"Š"Š``@ AaaA3Aas@PA``c` 1 m@`$ `ǨA a a s  3K"@P a "Ƞ-G . a a a a a a a #a Ƞ=`XX(X~#@P.Ȱ.`1   #0a d a  !13d #2d@PY Ad( 2adaa1 aDa1bAa?ad A2@PaF ad2aa1`a1`Da1` a a a-`aaaa@PA&RARAda2H a aaa  ! Ta @Pa a a _XadadRXWaAaA!d@Pذ2H a "a aAa A a hda da da @P0 a aa  a1 a A  a A a A a A a" x a  `@P[ d aa bAa a babAa"H1h #h`A@Pa`Aaa`AaaMaB a #a  A Dda a @Pa #a  n a )a a #a A a A # a 2W @P ,or | AA A   AA A  a A kdRA a @Pda . Ƞ>t` A U@ `a `X"dR@ R @P2 B H gad `Ȱ#`XTbȰ#`X`!d@P]B2 @rdR@`/@oPDFLOT *HDFLOT/PFPERORPROCHKLP P8DRSTOR K14 A FTNR CCS 3.0 SL-149@P @s""f"bb @s""f"b @s"":  3K6@P+f""  b`bPDSTOR1RSTOR1DSTOR2"PARABSP PQ8DXP1 K15 A FTNR CCS 3.0 SL-149@P X` h9aaaa&H}H |H%2H M A chxV "Xa@P+ bX\ kJ " H\\@T:\ BKTM@PVB  HI ;a88Aa,h/aAa+aah$cDAag@PhDaau h h HR PQ8DXP1PQ8DXP2LQ8DXPTUARABSHDFLOTRP P Q8DXP9 K16 A FTNR CCS 3.0 SL-149@P H XԺ hfHXhh`Xhh[ HL#dhSH ! @P+laal aa<`9ch9W "X bX *L "H@PVTxx HsLoAAd]@P}|LQ3AaI 'Lv T*a)RH%3I  aH@PQ A a#vR  2LaHH ALȱaX \x@PX N[ hhhuhi f[G ߂M^@BPCE}@PGN HJzLLK@j  3KJPQ8DXP9 Q8DXPTQ8DXP2PFALT HDFLOTWARABSP PQ8QDFN K17 A FTNR CCS 3.0 SL-149@P` ```TBP@PQ8QDFIPHDFLOT P PDOUTN K18 A FTNR CCS 3.0 SL-149@Ph`X`````` a` a` `/" 4 A *a A @P+%lR@@R@@R@ -A` .a ` a! a"X a! a"XX@PV%hJT``XT -`% ` c1X@Pd 2Q\ݵ``Xo c1X|\[Zr@``X # @P a` a!X`` `\YH]@X``X a Da @Pa! a"XJ a! a"XQ a  +a `"d` 5 aX aaX@Pa`aBP@@PDOUT PXDC 8QFL WRITE8QFX PDATEPACK HDFLOTd8QDFIP PDBLDMY K19 A FTNR CCS 3.0 SL-149J  3K^@P d"PQ8DXP1Q8DXP9DOUT P *T__mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmۆ  3Krmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3Kmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3Kmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3Kmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3Kmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3Kmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3Kmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3Kmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3Lmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3L&mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmX  3L:mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmC  3LNmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm.  3Lbmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3Lvmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3Lmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3Lmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3Lmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3Lmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3Lmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3Lmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3Mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmq  3Mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm\  3M*mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmG  3M>mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm2  3MRmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3Mfmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3Mzmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3Mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3Mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3Mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3Mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3Mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3Mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmu  3Nmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm`  3NmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmAL NO CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm PRPGIIH P01 A RPG CCS 3.0 SL-149@P4@11,,..$$00**--CCRR ++}}JJRR//99AAIIJJ%%/* )** ) 1) DIJ) S)  E) F) @P+SKIP ON CONDITION)RPGOBJR9FRCDR9SNHLR9BASER9RPRTR9INVPR9ONESR9COMAR9PERDR9DOLRR9ZEROR9@PVSTARR9MINSR9CHRCR9CHARR9BLNKR9PLUSR9MZERR9MONER9MNINR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AM@PPRR9BLBLR9XLATR9TRCER9RPGXR9RPGOR9FBSE0000$<0"<00"*"+"2$"$$ ,^,"*,fV@PTdV4XTV= , 4 0X*,! "0>"hV4F4HeV4*>+f$+DVR@P*VDVR *VDVR  *VD V(DV)R *V*D V+R *V,D @PV0R *V1D V2D- *V3D<< *V4D V= , 4 0X*, !VJR *@P-VKD",\ ^, /X\^,/X(,6,`/.zn*@@ ,t,*@@p",^,>- .^,n@PXt.(,6, >-. .nt.* l* l* l>2*@Fn  .Ht@P*.jFV DZ VDZ VR 2",V\ ^, =X\^,=X(,6,. @P |@Z{[llP]}M]\Nkk``Kaa@Pzzm^L~~nnoo |[.<(+^&!$J*_)';O\m--@P//bbccddeeffgghhiijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""@P/@PZ{#AABBCCDDEEFFGGHHII})J$K.L"hVR4FeV4*@PD.>Q"QFfZ N4,fX*NVDgPLNh(+VR 0^0 VR  1ǀ1@P16K6K606KVRk 2VR OHHVR6&Q 3VZm 4VZ@P+i5 VRn 6VZo 7VRj .V Rp8*@@656 5 8V!D94OX"q @PV9 ^9 V#Zr :V'R/ V(FsPLNsH6;  <04UX,v >VI@PD;6666B608686086.[ [ ]1@P6^] ]-],06&L1666666060!>L0>L<30060@P066B0 >L0 >L6B.6>2>L16L1:3660>4@P-4<556 : 0>45 484485886 6.66B06B .6@PX6B0>.0.6>7>.186*@<9;6/V#D.>0(XX6YXW06&I06ttttttttt@P16WTR0 tttt>99t9*@U>>>t>t[16Ā =6 =.:1  3NB@P=.6=2 =I=t=I ^[ M^0M^B"M^M% Z(+Z86ZJ16\@P/16\ PV\ =x=X*Pt86π =066666=36=B6@=86 =@PZ.66=B60=16.&M66M=;6*=^^8fj =t=@544t5vZ;6d55 @P Z4l65  =t=Z `vZ*@;l ` k l=8kkllk =;62==;6`=== @PZ*@;Z`8__` Z86BvZ>Bx= ZtV6D"=\ ^= EX\^=EX(=6=@P`EptV/D==t=tt>BZ5Zt?B 06@P188ZPZt:@ =t=<=ZZ;6abZZ"=trZ.V54KxV6T5>Q"QT1TB.@P\.( =r=ti =r=.(V"?"@   n 70fVTdVT V= 3 4 0@PVX*3! "0>"hVR4EeV4*DVD"5"6V D..VDV.D <D, +x  3NV@P ;tV4k,5 6V.T V!D. J; . Z@Po5 56 60 V+DV7D"5"6JV$Zp: V+R J>< 7 V7R J@P>.VD.V+, 0><V7, 1>0 1 ==t=, / =t=H<8:5:6@: < =t=., >8}@ A, >/|B   =(r=@P-vA =r=.PDLN 9>2HV(Z8V4Z89>2P"4F4Z4LN 9~ @PXP9<42 2Z2 X4PB.R28 6  06 8 5XD @P 8 2Z28 XR 2  2RXD2V D8Fw, 8r@@@PJ2VD/Fv, /q2t*@@&=<>==>"hV4I4LeV4*PLNf 0H@@PJVTVTVZg< 1VZh( .( /  (r(t.t1r/0t /6H@@P@/ J 0*@@n*@@pn"/,B/ / 6 /n "/-B/  / 6@P /   /HJ*/ jIUDATE  UMONTH UDAY  UYEAR @P P PcRPGIII P05 A RPG CCS 3.0 SL-149"  3Nj@P&i,f},_K7KmsD )   cAND)OR) 1@P+234567) **) N1) O ) PBLR)*ERROR) /* ) DZZC)CO) 123456789)123456789R) 12345678) N) TR@PV) 12345) PAGE) SKIP ON CONDITION)** )R9CMSTR9IPUTR9NSQRR9MMOVR9CMOVR9LAHDR9TRALR9BINP@PR9MHLDR9MMST R9INMKR9FDC1R9INTVREAD12READ13READ14READ15READ10READ16READ11RE@PAD09R9IPBG"7fVTAVT8V= B 4 0X*B! "0>"hVR4IeV4*D@P׮>,j$,VT&-T&.-VT/T VDF>1}}>7"2"4"5$/VZ>0TZV@P>8U>88( 8tttVD"<. Y>080 0>9 U,( :09,VR  <VR  =@P-= < }t}( 9v:ttVD, ,! d(  }t}, ttV*R1 6}}}V,V,V#@PX,V+D $1.VD$>1}}>998,,&T À&XV+R >4B YV,,k ?V0,l?8n@P:?m?@? DV4>>DXxDEE>X EZ C >XN!>8D6 >DDo>6 >6@P6DpDEr60!>8  >66 >80 >  |+ II @P H:DD:C@844>2?82:33>T>X >EBE0Bt B 6D} B@@@P>E 6C~.>F>E V5T T59Ǖ >EC D JV;"GD4LV<@P/ G^G (GYB@>6>5>2"HV=D4MV> HYJB@PZ@>6>5>2>XNV?DJ , J >GHNVA BD"K"L0DK, KVCD@PL, LVEDM, MVGD >J&6J }X}>N}>P}} }> E |}t}? }t}"B>X2>N@P >E>6 >806 > OD(BO:606"1G H6 J ?   B>66E B J.$,>1>7@P1}}PFiLN {H6y yB @|@ y J  }} }^} A"0"8"9>U  3N~@P\U( Utt{ttt.>1>5VD>.V*>-V>.&/VD. >2VD V64 2>1@Pf }t} 3"4Y.>2 }t}0>998, 43 }t}3 }t}6HH( Q"[, ,@P ,  Z^Z [0 ", [  Z^Z [60>[t(  (r(vQ (r( B^Bn@P6 >x ^B<\^B6\B0^B \*B$x 061H( Q, ,, 0 ",  Z[(((Q(( 0  2VDV6g>5@P3B`VZh$5"6Y }t} U,. }( Br}vBrB24H4L4M4UZ BB2XR@P^0XR"q0X4R2XR(0J2DZO8>OXR- BXR6} B/ @PB"/X\>~ }6 }4 04&A4-JbBtBO }t}2V5DvTzZ{"F"N"PV6 B4,X *B@PPV5L, |2*Bu$FZPBL, N BB 60$ J0"N40X*B@P|0D P PZP(NX*BN6 N0, V8VV ;^; V  ;^;V262@P Z2N +26 H602>2<7>1}} BY B@B*@ *B@P5*Bn"B"O^B]O^B]O }t}(B6BO  -n "O B^BeV6 @ }t}V@O*B@P`tOlO  ,n "B^B }t}(B6B }t} }t}t*@@n"}AB} } 6 }@P "O6HB O 0>O jC B^B"n*B2 8 ZO  B Z @PB }t} }t}O6^Zn ^Zn>28 Z^Z>nZ  BB^Z n6э>S@P^Z6eZ2^Z e2R ;^; R  ;^;R2","1"S"A"U"Y"x"y O^O"\*O$7"@P    *@@n*@@ z*@&~6HB@   }} }^} A 0P P 8RPGIIC P06 A RPG CCS 3.0 SL-149@P#!xN1JiomE+9h 0p55AN) OR) /* )** ) H) %N  3N@P+SR) 0123456789+-.)0123456789) 0123456789R)ABCDEFGV) 12345678) TAB)01234567) PAGE) 123@PV4567) SKIP ON CONDITION)LR) .+- ,)RLABL)*ERROR) TAG )IN) 123456789) R9CALCR9LABL@PR9OPCDR9DETLR9TOTLR9ADSBR9ZADSR9ADSBR9ZADSR9MULTR9DIVDR9XFOTR9SQRTR9MVRMR9MOVER9MOVER9@PMOVAR9MOVZR9MOVZR9MOVZR9MOVZR9COMPR9TSTZYTESTNR9TSTBR9LKUPR9LKUPR9STONR9SETFR9BITNR9BI@PTFR9GOTOR9EXITR9NDSRR9EXSRR9CHANR9FORCR9XCPTR9DSPYR9DEBGR9READR9STLLR9TIMER9FTNX @PR9DBGVWRIT20WRIT21WRIT22WRIT23WRIT18WRIT24WRIT19WRIT17R9CLBGR9LSTR*@&i@n7*@@@P-n":";"N"l"o*B&YB., p    "T"b"dVT0fVTVT8@PXV= m 4 0X*m! "0>"hV4O4CxV4*"8"9>7T&8kT&9PVD&7>o@P"o07LNhH  X,6X76Xo6XoXoӣo6Xb6Xb%6XV!T)@PXJ3^6XY"kVD T 3TA%4L4>:$:tn>;>NVTMF+V40(V h, @Phth$k0>;>N>:0>Nt$N>:$:n8>;0 >;$;t0>89|( SV D ;$k>7@P5>8D4N h V , ,hthV D4N h V , ,hthVD4N@P/ h V, ,hth>7VD*.d O ]V  U^U, n H IF E"Gl O ]V! @PZ6V^V, 0 J Kt O ]V+  W^W, L M6XBL6"m6HmmH6JmJm L hthJ6@P6HH hthH6͊hhM6"m6ImmI6KmKm M hthK66II hthI6͒@Phh"=">"? 6V6D{06, } >V8, ~ ?V:, *B *  =6#>=>?|%6X X >>@Pۿ?E6F>>?G@'6XX >= >= >>?>?V5Rz <B<y<&6X>LN B@0J4@P6X<>?0C06XB>:N09>d6X3-6X&d26XB)VD E8D V+D@P1 B 806XG B0 $6XXXF6< -6X!6X<X6L6 6^@P\% <>>? =0 hth> ? hth>ko. >TT hth"T.>;>Tn T. htht)+  3N@PP8B hh h^h l0D O2B mZeDTIB^"[4,X*m"@@PmB m^mXB,O m<[ €@m>2*m$[R @m,> @ B B@ 60"A"@40@PݰX*m|2D A@! ARA(@X*mF]@ hthA 6hhA 6hhA  hxh0@P62m @^@ m  B^Bm2R ,O$G0,O GBO J  F24@P3,O G0,O GBO J F2R 4',&`  F GBF6>`0,@P^G0,G VO2D 2PF D +LX4 N Q J,6X7Xd6O0@PH,6X7X&1@116d6O<S)"VQ2PF LN f|r2H@PJf2D .4' m"@X4' R+ A^A @*m|*mX^mD hthx@$F2>ot@P>7k>:>N8>T*@@6n."hlBh/ h 6 h( (n( "1HB 1@P 1(161HB1(1 6 0 )mm HB , ((n (@P56OH@6v 04H4L4M4O4UZ mm2XRR0XRp0X@P`4R2XR0XR$0D, mp6m8m>2m @^@ m  \^\m2> =@P? >"?2DO2R ,u B  V1D%Z6 m 6m m e @PV4DZ8m m 6m m mJ24',v B  V1DZ6 @P > 6 mV4DJ2,wV1DZ6. mV4D€m8m ZZ! B@P Z8m Z 6m 6m m 6Z J6Z m2>2D2TPX, m@P7m2 hT0X3&_XPh:L h4 ,X*h6X N + g_  JHX66@Pb6X g<2"5"/"c m4- .X "a\6pc6p/5acR/aC2>a/X*md6O&!@P j5 /6 jtj4+-/F6\6p DR 1B1mmhhX0m. hxh0>"F2d@P6O$ j( 4tjX"m4'\>i hxhX(m6m|>2X4'm a^aD( hr4mF6A  3N@Pjtjrh<2BEGSR RLABL 4TAG ADD "# Z-ADD "! SUB "# Z-SUB "!MU@PLT "#DIV "#XFOOT "!SQRT "!MVR "MOVE &aMOVEL &aMOVEA $AMHLZO &A@P9MLHZO $aMHHZO $AMLLZO &a COMP '! TESTZ $" TESTN $# TESTB %$ LOKUP '% LOKU@PdP )'&!SETON ' SETOF ( BITON %)BITOF %*GOTO +EXIT ,ENDSR -EXSR .@PCHAIN (/FORCE 0EXCPT 1DSPLY (2DEBUG (3READ 4SETLL 5TIME "6EXITF @P7P P:RPGIIO P07 A RPG CCS 3.0 SL-149@Pna 4L`X2k ** )/* )AND)OR) ADD)*PLACE) PBRL) XY@P+Z 1234ABCDJKLM) '$')'*') N) 0123456789AB) *PRINT) MR) 1P) 0123456789R)ABCDEFGV) 123456@PV78) PAGE) 1234567) B) SKIP ON CONDITION)*ERRORR9DOTTR9TOTTR9EOTTR9OTPTR9ECODR9EDCNR9@PXCODR9YCODR9ZCODR9BINTR9FTOVR9PAGER9FSTLR9WOTVWRIT20WRIT21WRIT22WRIT23WRIT18WRIT24WRIT@P19WRIT17R9UOTVUPDT26UPDT27UPDT28UPDT29UPDT25YUOT06YUOT07YUOT08R9AOTVADDT30YAOT02ADDT31@PADDT32YAOT05YAOT06YAOT07YAOT08R9OTBG*@&c@n(*@@*B&X$i"."/"0"I"e"f"g  @PVT0"ifVTVTIV= d 4 0X*d! "0>"hV4OdV4*D>ie@P-VT&UVD>i>j dtdt2V4E4T 4HDf>..(.0>//(/0>00@PX(0 1":"Vt"ht"2VT&3VDy@zV4F&4IZ6dd>3B3VD,@PV, @( 5"6"_V,V,V,>_"jV D+{.>:ddVGD>j>4>6(dd@P7 d(656td0>6,,":V,V,V,V(4*&YZg;8n"9V PD ' @&=@PفI:dd:V-D9<<I V T'T >22 8;(2 dtdt;.02 dtd.$j"^V')  3N@PRGV,>94 V'4B. B 4 V&4 <q01R4BI RV&4 <r 0!4 V&4 @P/>=<><04X&^4Y^D=Z^IR8 >< 9V'4B&> dtd;822V-TϿ^~@PZTѿ^~ dtd.>j dtdt2>.>/>06HB 6 I 0 AI@P @A*@ *A*A*@@(n "deBd d 6 dn"dfBd d 6 dn@P"dgBd d 6 d *B@ jAPFxL>iN a|h. HBs  dd d^d@P d@&KdgBKdfjiU @ >4 >6(dd7 dtd"4,@P"V"h"6( 5. d( ArdvArA2A  BD3B C^BXD R  dX dB CA@P1 dtd2 ADRA BX,A B>B@"@B7>66t72 ADRA BX,A B6@P\ dtd$:2V TRt"[ CV!4,X*C0C$[ZC,k BB@ 6 b dtd0,"F"E@P40X*C|0#D ZlE EE(FX*CF6 dtdE ddE  dxdE  dxdV @P,j<[ €b9  B V,4P  04B8 B [ b+ `` H8;o@P2 "L M"N"O"P"Q"SV-4'u:SmX>N4$X40>O$,0,, M(L$N"P$O040@P4*,04&&d >c,>d4 MPL>P 4'\>c,0X4'04C \>c,X@P34R"Q R$P04-$Q0 >PRQ S dtd 8L6Hx 0(At;822@P^ dtd"BV-4'uV.4' \>c dxdX(B6B|m0 X4'B \^\Dv(rA8 B dtd drd0Z0-XZ0%X4RX XhR/p0XR5]&W@PX V  6]| J08/._ 0>W]0XR: J JJ K^K J  K^KJ2HPLN@P + b V T?V$BNj 2H2>Vh(r56>V dtd drd2( 8 1 drdv8r8a >3 d@P td2 J(S2P  3N PRPGIIA P08 A RPG CCS 3.0 SL-149@P#T5_/g(J6MHLDFILX00/* )** )*EQUATE @P+) *FILES ) ALTSEQ ) 0123456789ABCDEF) SKIP ON CONDITION)}JKLMNOPQR) {ABCDEFGHI) @PV R9ALSQR9FDTBYEXENDR9FBSER9FINSR9CARAR9MARAR9CLSVCLOS38CLOS39CLOS40CLOS41CLOS36CLOS42@PCLOS37CLOS35R9TOTVWRIT20WRIT21WRIT22WRIT23WRIT18WRIT24WRIT19WRIT17YCLS09R9FNBGR9UDATR9@PUMTHR9UDAYR9UYER*@@@n*@@"]"^"_6-HB _ UU U^U @PU]BU^B@s @ BÀr@|qd 0*@@n"U]BU U 6 U@Pn"U^BU U 6 U   *@@( n*@&T@ Y Z"R"W"X"."3VTg@P-0$W,VT TT =,,>W6R,,n"X". RB &0B&1,. >3 >."X$.>W@PX t$0$1"3V 4,,,nQ64 4,f X(464 3 0>X".$X$0$1$V ,n(V@PV8+ ,. ,$V6 H@,l(V 0*B VThTn$0"1,V@PTTi,0,>-n-6t0>,n,6t0 \ Y Z ["U6@Pٯ (UU6\U[HB``Y@n,6t0 0  `: H B8@ @P @ >^`n(`0  ,J @lBkB / >T SxS*/0  @P/ /0x*/x . HB@,0, BB FH,*60 FH,*6 . @PZ B  ?FH >F J>G>I P >G JVTdT"O,VTO= > @P7FH>?B,0,>:(  9:,P ;GI>@C,0,(  :9,*6>O*>0>O@P۬ . ((n (6Htt 06'H"/t /  /  /  @P/ /  / B / /t/ 0VTjjMfVTV= / 4 0X*/! "0d  3N@P1>"h2"//a b6H 6/ a6/  b 0>1b >0a StS(//@P\62V  /,*/2DR X X XXm J2>2 [ a@P"`V:(`0^a [a a`^a [`YHJ2N V|e2H2PQ48L2t B @P 7 7 /88 80/ / / StS/ / StSt/6 =  B( @P* 70/t/ 7B 8, @@&F@&HJ2 B  7t 6 =  B( 7* /t@Pt// 7B 8,J @@&F@&H7 / B  >T SxS*/2*/x0x2>O K J <<<T>L H>J:08n6L cxcJX*<2>O D K J<M "N<< ED64-E@P^XL >J:@P08p6L J *N2 K J <>J9 >T cxc*<2 K K J  <0>JK cxc*<>J@P>K cxc26(n 2Be  S(  erSdc d2P PRPGIIM P09 A RPG CCS 3.0 SL-149@P {Kt  6"l"m"n ^l^l^l^l@P+^lm^l^l^l^l^ln^l (l6l>m ,,,d6,>n , ,  ,@PVd6 ,, ,d6,6B,,d6 ,6 Ed6 <6 H8<6< 8=@P6=:> 2 < = > 0<6 2 H,d< J0,,d6 @P,d6 . /.@BF 36 H8363 8464 :5 2 3  4@P  5 0362 H < = > BNBAX/ A@XE/ DXE0B , @PB 0/ Hd< J. "fH^f <(f6f d<2 g"h"i"e:ű(e0:(i0:  3O @P-(h00^g )gg<2d6d6d62S O R T E D F @PI E L D N A M E S NAME TYPE LENGTH DPS O R T E D L A B E L N A M E S NAME@P LINE THE FOLLOWING INDICATORS WERE SPECIFIED BUT WERE NEVERUSED TO CONDITIO@PN OPERATIONSTHE FOLLOWING INDICATORS WERE USED TO CONDITION OPERATIONSBUT WERE NEVER S@PETTHE FOLLOWING INDICATORS APPEARED IN THIS PROGRAM 01020304050607080910111213141516@P/17181920212223242526272829303132333435363738394041424344454647484950515253545556575859@PZ60616263646566676869707172737475767778798081828384858687888990919293949596979899 @P 1PL0L1L2L3L4L5L6L7L8L9LR H1H2H3H4H5H6H7H8H9  OAOB@POCODOEOFOGOV U1U2U3U4U5U6U7U8  MRP P CRPGROT P10 A RPG CCS 3.0 SL-149@P @PU@P@P H@P`P9@P@??@PE  @d ?@x  3O@Pp+h h@Pm%"X hŘ+ @uT 0@Ph T - T hX zhvh  @P@ T w  @ T ykhml! @{TVh@P hX 'DhGA $@}T2 Ch X @PG1h% / @T< ChmXf 3 T X@Pu RL=PF=TPF=FBP= OP= PC=hI2+h   4hlI@Ph(;ER`jt~ *>IT_hqw@P&EP|Rhr !5? JXcAleXY7@Pl]XQ/ȠlSXG% =lIEj=j?5@P! wl/s*"h l`ZjXPd@PLRlI@BdRi=ɪ5l1+l'@Pw!l*lX "HlH*3@PhAl~uhr ohmdhkl@Pb Wj PjHGjA;j@P l'?h*"hh~h@P#hq hT hWZWLON@PN"AD՚A"698-0/$'Ƞh@PydhH@>T23 5 d@PhhH Th} xvp jDhidP  3O2@Pdh_`T00@P @ @& "h( h&#HhH@ TZ@P%u "h hHhH@T#V H"@PP hKhdhHl" \TTh @P{ hTit ?X l "}h @Ph$HhLhehxHqo_p2Hlgkhl@PHi`eY^\LEj4DKch>:3j"@P- "h/ h-*Hh&H#@ TX/ l4Tsh@P'h%hT$/h  L  lH@PRh׈hӐ7homT6[hh 'Tbch@P}VphKhh~*"hohkX l@P]h!|hToh |0hx 3q" F@Pl~elzc loXcTld{ H/@Ph ?@#TBC("!B 1BHT"l5y@Z{[lP}M]\Nk`@P)Kaz^L~no|J_'Om-/@@@@@@@@@,%;>?@@@@@@@@@@: ="X)@PT"H @T XTHp.V)X NLXO   .@P@VT XH @ ThT CBHhdX@PT  h|hhXh2h^ h[rh@PlhhgXv X)C h@WhQMX[@P X(hXI Xh(Xd5 XN  3OF@P+nhXU!bhX h X X h@PVm"?Xΐ6hjhrxA hR h @@PT--hF7h?X8  =h| @TE *hmX @P9A hfR h`B hZB*hQhX rX @P @ TL 0h0 @T ChX  T Xn**@P **** SEGMENT ***Xp @ AT ..X/+l4X*%l/s! dX @P -j T X7 "_ hYZ********ERROR O @P Xhh25h/TL uH h B @ @P T0 @ T  ,@T  :@ T hX# _X B @@P T XV *hR1 RPG II COMPILERPAGEThv) phn 8@P 0hki!fhd 9a2\ hYWT 2 ɀ@@P d h2T  *hXY@P /"hhh " XDhhl@P Z X  bbbH h !h TL xD BnH @P /H=h7:o B0%H4"3h h33 h* C. h&#l#$%h" L !1h @P lX hADlh /h;  bhQh P  @P DECK ID *** RPGII OBJECT SUMMARY-117PR9RPGX@P`P )@P /PABCDEF`P Z   3OZ@P dPABCDEF`P @P  d /dhhh`"e"aaa h X hh`@P hHXẌ`"e"aaȿaȿ h XȹX1` h  @P h h h T X_/l XMH 5 S0h X@P  X(RPGOS0 j q `XX*ThX YA `POVLYPT CTRACE @RPGROTPSRLVL DCKIDN PR9ARG R9MIW R9LBY R9BASER9MVB aR9SBY R9MVW OVLAY PRPGROT PRPGDMY P11 A RPG CCS 3.0 SL-149@PPRPGROTP P$RPG P12 A RPG CCS 3.0 SL-149@Ph Dh h h TZRPGSM0    Xݐ$PRPG "R9BASE$OVLAY PRPG P$RPGII P13 A RPG CCS 3.0 SL-149@Ph Dh h h TZRPGSM0    Xݐ$PRPGII RPGXX RPGYY RPGZZ !H  3OnPRPGII PR9ADSB P14 A RPG CCS 3.0 SL-149@Ph]['hY hXhVTRhTSNMIHJhJHGhHhGhFDBT&@P+ d(5 h321h2h1h1.,T%'% R9SPACcR9SKIP\R9OCOD  3OPR9PLUSrR9ZEROtR9BLNKsR9WOTVSP PR9BEG1 P20 A RPG CCS 3.0 SL-149@PPR9BEGNPR9ENDLP PR9BEG2 P21 A RPG CCS 3.0 SL-149@PPR9BEGNPR9ENDLP PR9BEG3 P22 A RPG CCS 3.0 SL-149@PPR9BEGNPR9ENDLP PR9BEG4 P23 A RPG CCS 3.0 SL-149@PPR9BEGNa=  3OPR9ENDLP PR9BEG5 P24 A RPG CCS 3.0 SL-149@PPR9BEGNPR9ENDLP PR9BGCL P25 A RPG CCS 3.0 SL-149PR9CLBGP PR9BGOT P26 A RPG CCS 3.0 SL-149PR9OTBGP P R9BINP P27 A RPG CCS 3.0 SL-149@PHohmhlHj lhghed_~h^ h] WHW!  hUHQQhQJTlH@P+EFHTK* ~dh9H32 l0/29XO;(h* h'!@PVHX, %*HX"lh @PhhlhhXhhH hؠ l nѐh@PB@'d  @Pgiy`  3O@PPR9BINPPR9LBY (R9BASE)R9CLR12R9ACC1KP PR9BINT P28 A RPG CCS 3.0 SL-149@PHDhhCehCHA l?>=8h8[6h7Wh3Th40 Fl.-.%)h#XJ&%FC.@@P+h=h lX5 h  1 h!hH@PVM HThȈAhhH h bтb H@PPR9BINTPR9SBYT[R9ACC1kP P)R9BITF P29 A RPG CCS 3.0 SL-149@PT'h!H hh hhThTh h TPR9BITFPR9SBY R9LBY R9BASE R9FLOWR9NXTX"R9AC1SPEND P*R9BITN P30 A RPG CCS 3.0 SL-149@PT&h"H  hh hhThThdRh TPR9BITN(  3OPR9SBY R9LBY R9BASE!R9FLOWR9NXTX#R9AC2SR9AC1SPEND PR9CALC P31 A RPG CCS 3.0 SL-149@P TT T dPR9CALCPR9NXTXY9LSTRY9TOTLY9DETLR9PRCLR9FLOWYERRSWP PeR9CHAN P32 A RPG CCS 3.0 SL-149@PT,HYhXUTR HP ! " TC-7<'h8h<&h6@P+2/h31/@/T(%#$Th !hT ` @PVTTPR9CHANPR9SBYTKR9BASE%R9FLOWR9CVEAWR9MVBT4R9PCK1=R9UPK1 R9BINTR9CNTRYR9NXTX R9ZEROHR9ACC1@P PR9CHAR P33 A RPG CCS 3.0 SL-149@PkK[\`@Nal@@`P+PR9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS R9MZERR9MONER9MNINPR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9XLATR9BASEPR9RPRTw  3OP P9R9CHIN P34 A RPG CCS 3.0 SL-149@P WdT`l%T"(TThT @P+ T T)TPR9CHINPY9FPTL7R9INMV-R9SETN2R9STH0!R9ASQRR9CRIN R9GETSR9CNTR4R9FRMKR9FCTR R9INRP0R9INTVP P R9CKXF P35 A RPG CCS 3.0 SL-149@PT  PR9XFCKPATTACHP PCR9CLOS P36 A RPG CCS 3.0 SL-149@Pl>= "-L855""+L/L(&@%T"l T"@P+@T+b @TTPR9CLOSPR9SBY )Y9RPTRBY9FLPTAY9DTPT@R9FILR=R9IOCL:R9PUTS0R9CLRER9TOTV.R9CLSV8R9BASE*Y9FDTBR9ONES&P PR9CLPR P37 A RPG CCS 3.0 SL-149@Pd @ T f"  <" "dT"bQ!*  3O@P+ %TH0TD5d7(TTE h>"h1X@PV hIh 3HhTh 6$@PP"1I 3 ~"hdx_"@P8"+H s h hI-GE1* l9,6 b@P1A hj*bAb#DbB h}X zbb!@dRa@PB he6 hgTHehf1$^[b^.lTX`QTKbN*JFbA@P-bGDb@ ;h<89T3Th401T%+Th,H'"h%@P+&#"h!hhhT T> TPR9COMPPR9LEL CR9LBYT#R9GTL R9FLOWR9RSTSGR9NXTXIR9ADSBY9ALSQ,R9BLNK8P PR9CNTR P44 A RPG CCS 3.0 SL-149@Ph$h#H  TXwhTS!X[ h `h0H.h.@P+H'h&-h,h,h,X-!hTS!KhHX3E jXM  "h `@PV   M%  !"h X " @PXX A"T$HTPRPGFILR9CNTR&R9JUMPRR9SGTB^R9SGIXTR9CKSGcR9MUNOSATTCHKtR9BRAKPRMUCLO]RMUCFT\RMUCF0[RMUCSWZRMUOPNYR9TAPFpEXPIRECNTWARkTSAREA>R9PORT R9MODER9UNIT R9USER SYSMSGPPGMIN SLICUPATTACH:R9RPRT?)  3P6P PR9COMP P45 A RPG CCS 3.0 SL-149@PThNHLKUGFhGhFChD AhB>?T9Th956T(0Th0@P+ *)h''.h$"h!!h hvh@h T THc@PVT TabhhC h! hTlhؘ!+@PT| hT{jh˘!T'h'hh̺hصصش@P1 hȥTPR9COMPPR9LEL MR9LBY %R9BASE&R9GTL !R9FLOWR9NRMXYSIGNIR9UNPKgR9RSTSR9SHFTR9NXTXR9AC2SR9AC1SY9ALSQ2PR9BLNKCP P R9CRIN P46 A RPG CCS 3.0 SL-149@PTfHPR9CRINPR9IDMXR9INTBP PR9DEBG P47 A RPG CCS 3.0 SL-149@Pd DEBUG-INDICATORS ON- NONE FIELD ARRAY TABLE VALUE T/H( dh#X@P+XX "@ \c  H (hT 1S h@PVO h ! hhX>Ƞh%hhhHA  3PJ@P l͜h!Œh l hX `@Ph \ h hHT  hJ @h}T@PwX}z1oj@ \X_BXCZhfK U@ h^\ HP@@P \HJFhJhS hEhBK  T@0H@31h1--,TNXiX8&/@P-Xh&hhhh  @hT@PKhhX1@Th@PvhԈh@TrʈhhTX%Xȼ hXȸhth̷T@Pرتȯ̪1T؜@TPR9DEBGR9DBG13R9DBG2bR9DBG3R9DBG4R9DBG5B9DEBGJN9DEBGPR9LEL R9BASE8R9MVBXR9SBYXR9FLOW R9PUTSR9CLREHR9MTRNR9UPK1'R9LOCLR9INDMR9TSTNR9RYST&R9NXTX2PR9DBGVR9ZEROR9MINSR9ACC1R9STTSlP P4R9DETP P48 A RPG CCS 3.0 SL-149@PT dTdl ll 1@ TT@P+&2 TPR9DETPYBGCYC PY9HNUM3Y9HIND2R9STH0+R9FLOWR9TP40 R9CNTR/R9VIND R9OCODR9VSWT Y9DOTTR9HTINP PR9DIVD P49 A RPG CCS 3.0 SL-149@PTheHcaT] TW hWhVhUQP @ T   3P^@P+ d$) d/ h210h*&h%'T3 h#"!hh@PVTG1 h  h1S h h  N>fs w |@P! h !8TX!h hufǐh@P TWHȸhTȯ hȰTTHh HT @TȗT@PPR9DIVDR9MVRMB9DIVDgN9DIVDPR9MVW R9MIW "R9FLOWR9NRMXR9STH0R9RSLTR9SHFTR9UNPKR9NXTXR9AC1NR9AC1SR9AC2NR9AC2SR9AC3NPR9AC3SPEND P;R9DMND P50 A RPG CCS 3.0 SL-149@PTl21TT%T  dThT@P+ TTTPR9DMNDPR9INMV/R9ASQRR9STH06R9SETN+R9NXRC R9CRINR9BLTR#R9CNTR1R9INRZR9FCTRY9FPTR9P P-R9DSPY P51 A RPG CCS 3.0 SL-149@PT.H d"h H"h@hT `( T @P+b@%ThXh~ H}X{@{Tv@$Tpho@PViqoh1khdcf@bTf[`T[Vh\YTgNT hQJhJ ITt@PhK!D! @@dR6h:7H50 l-$$1h'$h"u  3Pr@PhThl T@T@PK hh) bThhhTs1!@PT hȶhȹ1ȵhȻ bȷ@Te@%T1DSPLY PR9DSPYB9DSPYN9DSPYR9DSY1PR9LBY R9SBY R9MVB R9BASE R9FLOWR9UPK1R9PCK1R9CLR1xWRIT17,READ09+R9GETSQR9PUTS&R9MTRN(R9CLREPR9RYSTR9NXTXR9MINSR9NINER9ZEROR9BLNKpR9ACC1P PR9DUM0 P52 A RPG CCS 3.0 SL-149@PP PR9DUM1 P53 A RPG CCS 3.0 SL-149PR9NXTXP PR9ECOD P54 A RPG CCS 3.0 SL-149@PXHjHix he'HdHbHbHl[&g#hW a&hQhMLXYKXWE@P+hIhGHE$?h?H=6h=Dh9,5h*,h*)h.-X3*h( 3@PV QhX%5 h% h h JX@P HThhX"H1Xh֐hʠ$X(@PTThɔ1k6XȹT1ȵhT2ȨTإ@P  3PPR9ECODR9ECDEPR9LBYTR9GTL R9SBYTR9OTM1R9CHAR$R9CHRC!R9ACC1R9EDT3Y9INVPUR9EDT4=<9h75&"h4,1(h&%X,X0!F#!TD @PVX h`Th! HTh @PHXDh  tPR9EDCNR9EDNEPR9LBYT~R9SBYTrR9GTL OR9CMBDR9OTM1R9ACC1nR9DOLRbR9STARaR9BLNKcR9ZERO_R9MINS^R9CHAR]R9EDT2 R9EDT1 P PR9EDIT P56 A RPG CCS 3.0 SL-149@PT TTTTPY9ECDEY9EDNEY9YCDEY9ZCDE PR9CNTR R9ZCDE R9YCDER9EDNER9ECDEP PR9ELOC P57 A RPG CCS 3.0 SL-149PR9ELOCP   3P PR9ENDL P58 A RPG CCS 3.0 SL-149@PPR9ENDLPR9BEGNP PR9ENTS P59 A RPG CCS 3.0 SL-149PR9TRCER9FSTLR9FTNXR9PFCBR9FDC1R9CMSTR9MMSTR9INMKR9MHLDR9DETLR9TOTLR9LSTRR9DOTTR9TOTTPR9EOTTR9ALSQR9CARAR9MARAR9UDATR9UDAYR9UYERR9UMTHR9FDTBR9TBIOR9DSEQR9FBSER9LABLR9INVPP P R9EXCP P60 A RPG CCS 3.0 SL-149@P dTTPR9EXCPPR9CNTRR9TP40R9OCODY9EOTTP P%R9EXIT P61 A RPG CCS 3.0 SL-149@P T) T)" ""h H " \PR9EXITPR9NXTX Y9LABL#R9PONT!R9FLOW Y9FTNXP P/R9FILR P62 A RPG CCS 3.0 SL-149‹  3P@P@D 3 hH !hHT   " '&#$%@P+(PR9FILRPR9STH0R9FRMKP PR9FINS P63 A RPG CCS 3.0 SL-149@P  d PR9FINSPY9TBOT R9TBOTR9CLOSYERRSW P P3R9FLDL P64 A RPG CCS 3.0 SL-149@P"h+* h%h%$h!-Hhh1h   h @@P+PR9FLDLPR9BASEY9FBSEY9FDTB P PR9FLOW P65 A RPG CCS 3.0 SL-149@PhHhh T \ T PR9FLOWB9FLOWN9FLOWPY9TRCER9RESTR9SAVTR9SAVE rv  3PP PAR9FMAL P66 A RPG CCS 3.0 SL-149@Ph<h8h7H33h)`(T$@"T@TT @P+ Fh\T(h bPR9FMALB9FMAL;N9FMALPR9SAVP0R9SAVE'R9REST/Y9IBUF2Y9FSTL*R9MVBXR9BASER9PUTS%R9WOTV#P PR9FNBG P67 A RPG CCS 3.0 SL-149PR9FNBGP PR9FORC P68 A RPG CCS 3.0 SL-149@PT-H "0HDPR9FORCPR9FLOWR9FFCB R9NXTXP PtR9FSTL P69 A RPG CCS 3.0 SL-149@PFTXYpqrsNHdR RPG FORMS ALIGN: ENTER 1-RETRY, 0-CONTINUE .@PqPR9FSTLPWTREADHR9UNITIY9IBUFVg  3PP PR9FTNX P70 A RPG CCS 3.0 SL-149@P hON" "h_  j[ Ah1 H:;" MTH11j2.j7j<-'2Tl @P+h% `Dl%+ T8 A dhTP j  h `PV`PY`P`@PgT Hh"  " A hTCP`ݘ  T7@P9 `P @PPR9FTNXPR9999B(R9LABLCVASEBR9BASER9FLDLR9MVB P P:R9FTOV P71 A RPG CCS 3.0 SL-149@Ph5 h4H14b"+T dXXb 2d"h#`C @P+THAPR9FTOVB9FTOV5N9FTOVFOV40 /PY9DOTTY9TOTTR9TSTNR9POSO-R9OCODR9FTSW!P /-  3P P]R9GETS P72 A RPG CCS 3.0 SL-149@PHV!HR O@LTJTG1 0B@dRa9:h6h5 D(@P++`+)X & !`#!Xh0`XhThT  h @PVPR9GETSB9GETSWN9GETSR9CVAE;PR9LBYTJR9BASE!R9SBYTNR9FILRR9IOCL R9XLATAR9TFLG*P PGR9GOTO P73 A RPG CCS 3.0 SL-149@PT+f"b d T T( h%$dT*@P+$d+.2T09"d$PR9GOTOR9EXSRR9NDSR'PR9FLOW(R9STH05R9NXTXER9STRT&R9UPOPR9PPUP@Y9LABL R9INRZd:9h=749h2+Jh2)0h/ h+ l- @ T @P`Q":"#3ARh  hh@PT`hTh1XDTAh hhA TT@P-A h  q T(ȼTHTشhX̲ lȫ lXTCآh@PXȝTȚhPR9INMVPR9SBYT R9LBYTUR9MIW R9BASER9CRINRR9LOD1]R9BINP>R9CVEA:R9UPK1,R9PCK1R9LCAER9FLDLR9SETNMR9TSTN6w  3Q&PR9MINSMR9BLNKR9NINER9AC1NR9ACC1P PR9INTA P80 A RPG CCS 3.0 SL-149@Ph T|GZ""d"+HkLgMh\@P+cJh__H h]T VhVT5Q@TK0. DhFdT@PV 6TS4h2,@ATC&0T h To@PPR9INTAB9INTAN9INTAPY9ITLP R9CNTRR9STH0|R9MVTA[R9GETShR9SPTPR9SWCH4Y9INVPY9UDATY9UYER/Y9UMTH&Y9UDAY!R9OPNF@P PR9INTV P82 A RPG CCS 3.0 SL-149@PPR9INTVPREAD16READ15READ14READ13READ12READ11READ10READ09H  3Q:P PR9IOCL P83 A RPG CCS 3.0 SL-149@PH hDa hT\ T PR9IOCLR9DRTNPR9SAVPR9RESTR9SAVE P PR9IPBG P84 A RPG CCS 3.0 SL-149PR9IPBGP PR9IPUT P85 A RPG CCS 3.0 SL-149@PPR9IPUTPR9CHINR9DMNDR9MTWKR9ICTLR9INITP PBR9ITLP P86 A RPG CCS 3.0 SL-149@Ph87 "dH1+1Ah'TH%"H#TH!h!H1Ah @P+nh@T3TPR9ITLPPR9MVB 2R9BASE4R9FLDLR9LOCLR9CNTR7Y9FDTBP U  3QN P!R9LAHD P87 A RPG CCS 3.0 SL-149@PLl(T@ T , @dRaPR9LAHDPY9KALA Y9KAPFR9INMVR9NXRC P P R9LBY P88 A RPG CCS 3.0 SL-149@Pt"H" PR9LBY P P`R9LCAE P89 A RPG CCS 3.0 SL-149@PHRhRHPTHOhOHM#JAGhIHEFhF>>Th<H99h760,3@P+/h./h-,h(+):""TBTNT hT ld @@PVPR9LCAEPR9LEL @R9GTL ;R9CLR1IR9UPK1YACC1BMR9ACC1_R9STH0CR9LOCLR9FLDLP P3R9LEL P90 A RPG CCS 3.0 SL-149@Ph,H, h&H% H$h$!H"h"H* h!d #h@P+PR9LEL R9GTL   3QbP PYR9LKUP P91 A RPG CCS 3.0 SL-149@PT# Hd"h ""\Fh hq Lo"lo hh hiDhla@P+hhm\& h[g\! hV\ hP hPIhL. hG ChBOMLMlK91@@PV l401l.T H"`\p H"3 l"hhTa @PHt"`y\T  Thh ch]bbbh`YYhWQ YY @P"\JhPEhMhLh\hE\dAh@ <!" Ƚ@P-A :\ h̶<TȡT̩-@P R hhH̅\ h \ h16@P-T f""̾`\ȿf""̽`ȹ\T ȷ3 AdMd@PX PR9LKUPPR9MVBTR9CLR1GR9BINTR9NXTX1R9LOCL~R9PCK1/R9LEL R9GTL R9SETNR9INRZR9INRMR9CRINWR9INRPYACC1BTPR9LBYTVR9BASER9RYSTR9FLOWP P/R9LOAD P92 A RPG CCS 3.0 SL-149@Ph(4h%T"TTH!Hl hhlh h H T hl@P+PR9LOD1PR9LBYT!R9CLR1R9XRSD R9AC1S.6  3QvP PR9LOCL P93 A RPG CCS 3.0 SL-149@P"hAh H@hPR9LOCLPR9BASEY9FDTBY9FBSEP P6R9LRCK P94 A RPG CCS 3.0 SL-149@P h. h,H,+"'H'Q h$h hdRh0$ $@P+PR9LRCKPR9LRSW.Y9PFCB P PHR9LSMB P95 A RPG CCS 3.0 SL-149@PXXXX+40X$T+hDa@P+ Da"@P9 $T!+PR9SBYXR9LBYXR9MVBXR9MIBX9R9MVB R9LBY R9SBY R9MIB R9MVBTR9LBYTR9SBYTR9BYTAPR9STH0=R9BASEGP PR9MIB P96 A RPG CCS 3.0 SL-149r  3Q@PhHh T hPR9MIB PR9SBY P PR9MIW P97 A RPG CCS 3.0 SL-149@PD PR9MIW P PR9MMOV P98 A RPG CCS 3.0 SL-149@P`H{ChRHm highbh!$!@P+TT"+"LTJHƐhB@`ȽT;Ϡ ht4T0T @PVdȨ(TȤA#  h! O XRG%TThH !Trh hH @P hh X)TzhH X"4 h hd!ddR@Ph dd"Ih1h hh!T0hTزز@Pט"Ȭhtȡ@TEPR9MMOVPR9MVBTR9SBYT7R9LBYTR9BASER9NXFLR9STH0nR9PCK1[R9LOD1PR9UPK1TY9MHLDY9MARAR9MRSWR9MRPRR9CFILPY9DSEQR9ACC1WY9ALSQ3Y9MMSTP P"R9MOVA P99 A RPG CCS 3.0 SL-149  3Q@PT d  h h 2 h `TPR9MOVAPR9MVBTR9FLOWR9NXTXR9RYSTPEND PR9MOVE R01 A RPG CCS 3.0 SL-149@PT` "l#l"l!h h% LA A "Ah"B\.\V\a\@P+!5 "_ TVWTTd|NL4MhLHhHFFhDEhDBAB@?TU@PV99"6h674T 0-11)*T8% h''! " "~h@P1#  h Ȣ/ 3  "`2 TT@P.%/-`)"&l&TT"`TTȿT@P"ص@PR9MOVEPR9MVW R9MVBTTR9XRSD>R9LBYTT#$7h;7h532dRh-+T7'#h#dRh@PVTIJLT6YhdRh TX_[PR9MOVZ  3QPR9SBY kR9LBY ^R9BASElR9FLOWR9NXTXnR9AC1SPEND P+R9MTRN R03 A RPG CCS 3.0 SL-149@PH%h"hHThh T PR9MTRNPR9SBY R9LBY R9BASER9XLATP P3R9MTWK R04 A RPG CCS 3.0 SL-149@PTd d #T\hL"hT ,\  lT@P+PR9MTWKPR9NXFLY9PFCBR9CFIL0R9FLOWR9CNTR+R9LAHD/R9INMV R9NFCB.R9MRSW R9MRINY9LAHDP PuR9MULT R05 A RPG CCS 3.0 SL-149@PTHhhh !@ T_^h_h^h][YTS hQPOhPhOhOLJT hIH@P+hF !BAhA& h<;6&34h5fA .h, H)1TC dO:@PV= dR h h d TPR9MULTPR9MIW R9FLOWR9SETNR9RSLThR9NRMXNR9SHFTR9UNPK%R9NXTXjR9HLFJR9AC3SVYLSPARdR9AC2STR9AC1NR9AC1S[PYACC1O|"  3QPEND PR9MVB R06 A RPG CCS 3.0 SL-149@PhHh hTT hPR9MVB PR9SBY R9LBY P P;R9MVBX R07 A RPG CCS 3.0 SL-149@PXXXX&" !   )@P+A"T:"PR9SBYXR9LBYXR9MVBXR9MIBX&R9MVBTR9MVB R9LBY R9SBY R9MIB R9LBYTR9SBYTPR9MODE*SYSMSG.R9BASE9P PR9MVTA R08 A RPG CCS 3.0 SL-149@Ph T h\h[hZhYhXhWV"#5@KSeIJ@T@P+'@d+>6.T7/d;R+>TB%dFG ITDM?QT@PVThXT9\ d`cT^ gdwz TV|@Ph d dTEA"T~ ʀ/h! d@P1Ⱦ/+$hThThثثحȣ/Ȧ! Ȣ!@PT .bȋb PR9MVTA  3QPR9LBYTR9MVBT)R9LEL R9STH0R9BINPOR9UPK1DR9PCK1R9LOD1iR9MINSR9ACC1R9TANFR9RECPP P R9MVW R09 A RPG CCS 3.0 SL-149@PHH" fAPR9MVW P PR9MVWD R10 A RPG CCS 3.0 SL-149@P"PR9MVW P P R9MWI R11 A RPG CCS 3.0 SL-149@PD "2PR9MIW P PiR9NRMX R12 A RPG CCS 3.0 SL-149@Ph 'h_ h^h\ h[Y2 VhTR lPN !KIFlGF !C hA? l=@P+<!8 dh64l1/++h)&!%%l# h" ! l l l@PVȺh l h 1 ޭPR9NRMXPEND dž  3Q PGR9NSQR R13 A RPG CCS 3.0 SL-149@PhCHA" h>=@:Th9 41 0)T9&b$h#   @P+ @@dRa h 9 bb PR9NSQRPR9RDEN R9STH0P P)R9NTOA R14 A RPG CCS 3.0 SL-149@Ph#4h$$H !ThhThh T h  TPR9NTOAPR9LEL R9SBYTR9AC1S(R9CMBDPEND P"R9NXFL R15 A RPG CCS 3.0 SL-149@P h"HA dh0 hPR9NXFLPY9PFCB R9CFILP P.R9NXRC R16 A RPG CCS 3.0 SL-149@P l+0L'! @ T l T@T 0 l@P+PR9NXRC  3RPY9XRTE-Y9XRPF,R9GETS"R9RCADR9TRALR9INTV P P8R9OPCD R17 A RPG CCS 3.0 SL-149@P4   %@P+ ,PR9DBGVR9OPCDPR9TIME6R9STLL5R9READ4R9DEBG3R9DSPY2R9XCPT1R9FORC0R9CHAN/R9EXSR.R9NDSR-R9EXIT7R9GOTO+R9BITF*R9BITN)PR9SETF(R9STON'R9LKUP&R9TSTB$R9TSTZ"R9COMP!R9MOVZ R9MOVAR9MOVER9MVRMR9SQRTR9XFOTR9DIVDR9MULTPR9ZADSR9ADSBWRIT24WRIT23WRIT22WRIT21WRIT20WRIT19WRIT18WRIT17P PdR9OPNF R18 A RPG CCS 3.0 SL-149@Pl^ l][ "-LV?S"" LO T +F@dRa> %@P+T*/#  <b ',!!@TT@PVTT0 PR9OPNFPR9TAPF-CNTWAR)Y9FIPTbY9PSFGaY9FDPR`Y9ITLPTY9INTAOR9CNTRYR9ITLPWR9STH0]R9FILRIR9TSTNR9IOCLFR9INTARPR9OPNVDR9BASEY9FDTBP PR9OPNV R19 A RPG CCS 3.0 SL-149@P&  3RPR9OPNVR9TINVPREAD16 READ15 READ14 READ13 READ12READ11READ10 READ09OPEN08OPEN07OPEN06OPEN05OPEN04OPEN03POPEN02OPEN01P PR9OTMG R20 A RPG CCS 3.0 SL-149@P dhhTT  H0000HPR9OTMGPERRO46P PR9OTMV R21 A RPG CCS 3.0 SL-149@PLzlyHr h holKhl )i".M`h}f _1n X UXbP  @P+h GTC+@>+:9H 3 1 -1b) 'd$@PVdQA hTHH h B `ThWX h@P`TdhWhX-hW hR qhII lRA h @Tb@PLHd0H7 `3TH- +h)*T hH# h 1&T@PTȟ ? }@hȖ hpho "bHfXmA haT@PTWh XP$hNTGEEhCXJB@@@T<h88h8!4h62@P-T/.!h*X#h"ThhXXwh  A h @PXTmThX@T`Th#@PhX8 hXh hXh#hX& hTHȲ`  q   3R*@Pȳ hȭ hȧ HȗT.5O~PR9OTMVR9OTM1R9PGSWPR9SBYTR9LEL gR9MVBTuR9BASER9ZCODR9YCODR9EDCNR9BINTR9STH0jR9TSTN1R9CMBDAR9CVAE{R9PCK1R9CLR1PR9ECODR9PAGER9UPK1R9LOCLR9LCAER9FLDLR9BLNK+R9PLUSR9ACC1VR9MINSY9PAGER9EDT4R9EDT3R9EDT2YPR9EDT1WP P R9OTPT R22 A RPG CCS 3.0 SL-149@PPR9OTPTPY9EDNEY9YCDEY9ZCDE Y9ECDEYBGCYCR9DETPR9EXCPR9OVOPR9TTOPP P:R9OVOP R23 A RPG CCS 3.0 SL-149@P H6-""  ! b " T T@P+TT- d$TPR9OVOPPR9FLOW(R9OV501R9OCODR9CNTR6Y9DOTT/Y9TOTT+R9FTSW4Y9FDTBR9SKIPR9BASE R9VIND"R9CLINP P7R9OV50 R24 A RPG CCS 3.0 SL-149@PL43/L.-h*)B"h"!L "  b2 @P+dTHLxF  3R>PR9OV50PR9POSS.R9FTSW&R9OCOD,Y9FDTBR9BASEY9VFT16Y9FSSA5P PLR9PACK R25 A RPG CCS 3.0 SL-149@PhEhh>h>h; h:7A4h3 5a h31h/.Ġh,(h'((dRh#T@P+ Hhhhh h  T*lPR9PCK1R9PCK2PR9SBYT@R9AC2SR9AC1S PEND P!R9PAGE R26 A RPG CCS 3.0 SL-149@Ph+HHTh l TPR9PAGEPR9PCK1R9CLR1R9ACC1 R9PGSW R9EDT4P PR9POSS R27 A RPG CCS 3.0 SL-149@PHwHt lnlnlo nlklhljice  $ lX lUX!UC lOQM@P+lJ lKKlH  HCBC l>>Ml9 6D T .$+1('@PV$Ch"ThH%S 1"T @ T@Pkhhhhhhhh hThhhll@Plll hH̿H1Tk H#.H@dRa,T;P  3RR@P H T @TؓȜ@hT@TȐ PR9POSSR9POSOB9POSSyN9POSSPR9BASEPOSSKAxPOSSPAwPOSSKBvPOSSPBuR9FLOWR9PUTSR9FLDL[R9OTMVR9CLRER9BDPRqR9TSTNGR9FTOVR9UOTVPR9WOTVR9AOTVR9OCODtP P)R9PRCL R28 A RPG CCS 3.0 SL-149@Pd @ T @ T "dT"d"! @P+%TE-TA2d4(TTB h\;"1kM"hP@PV hPKIhK 3/@HhA=Th69h74 ! .!"(@P+'"R"1"Ih 3y  n@P"x"""h1h &h hhAh @Ph˨h -hW1h8 l,h @PbA hubhDbAbB h\ @P-bvb!@dRalB hiD ehnTHlhl^1Hh1c_bc@h[dRa@PXYlSX` PTHQOGbK1 E@bBAb@Db 83b5/b1b@P*H(d"2)"h d 1+ d'@P"H d "d dHhd׀h h@Phh0 d ̢@hTLhHȾ hظȩ@Phh0 ̠蟂lܜ"ȕ hؒPR9PRCLR9STRTR9NXTX{  3RfPR9BASE+R9LEL 6R9GTL /R9BRAKR9MIW R9LCAER9LOCLaR9FLDLCR9TSTNmR9CNTRFR9PONTR9RYSTR9CLIN=R9STTSPR9INRMR9INRPR9INRZR9HLFJR9FCTR R9AC1NR9OPCDY9LSTR9Y9TOTL+PEND P+R9PRFN R29 A RPG CCS 3.0 SL-149@Pl'L%% ! @lTlT@T $lbPR9PRFNPR9SBY R9BASEY9RECP*Y9COUN)Y9FIPR(R9CLRER9PUTSR9WOTVR9ZEROP P+R9PTCH R30 A RPG CCS 3.0 SL-149@PT&T&T &T &T&TPR9LOADR9PACKR9UNPKPR9UPK3(R9UPK2$R9UPK1R9PCK2R9PCK1 R9LOD1R9AC2S R9AC1SP PUR9PUTS R31 A RPG CCS 3.0 SL-149@PHN+HK*hH.>b#h?>9h9 h6 `1/X,`,*X '@@P+$T"Th 0`XhThH T  hPR9PUTSB9PUTSON9PUTSR9CVEA2PR9LBYTAR9BASER9SBYTGR9FILR0R9IOCL-R9XLAT8P PR9RCAD R32 A RPG CCS 3.0 SL-149  3Rz@P H_h_`'W@TQ0HKJGb!GFb"@T<-A7@P+@!T#106)'h(7 h!&h!hhT?hTMNh@PV!  -@dRa@a@-T/0(@PSh'h&@T`'"&T`TT0@d@PRaOTPR9RCADB9RCADaN9RCADPR9MVB R9LBY RR9BASER9FILRR9CVEAR9TFLG SETL33R9IOCLR9STH0R9GETSzR9INTVxP PR9RDEN R33 A RPG CCS 3.0 SL-149@PH[HZYHYVb hTQbOb hLJEBbA@ e<:h<5h6@P+ 1h42T&h0*.0 h+$-h$"  h @PV h h +h+# h110 @Pbh{h@T hm! HPR9RDENPR9LBY 0R9BASE1R9MINSJR9ZEROPR9CHRASR9CHRJMR9AMPRFR9BLNKBR9TRALP PR9READ R34 A RPG CCS 3.0 SL-149@PT0TPR9READPR9FLOWR9CNTR  3RP PSR9ROOM R35 A RPG CCS 3.0 SL-149@P@P+@P4  PR9ROOTY9PFCBY9FDC1Y9CMSTY9MMSTY9INMK Y9MHLDY9DETLY9TOTLY9LSTR Y9DOTTY9TOTTY9EOTTY9ALSQPY9CARAY9MARAY9UDATY9UDAYY9UYERY9UMTHY9FDTB Y9TBIOY9CMOVAY9INTABY9ITLPCY9LAHDDY9MMOVEY9NSQRFPY9PAGEGY9TBOTHY9INVP Y9DSEQY9FBSEPOSSPBPOSSKBPOSSPAPOSSKAR9OCOD!R9RECP"R9TANF#R9TFLG$Y9APFX%PY9ASPC&Y9COUN'Y9DTPT*Y9FDPR)Y9FIPR+Y9FIPT,Y9FLPT-Y9FPTL(Y9FPTR.Y9FSSA/Y9HIND0Y9HNUM1Y9IBUF2Y9KALA4PY9KAPF5Y9PSFG6Y9RECP7Y9RPTR8Y9TOP19Y9VFT1:Y9XRPF;Y9XRTER9ERTN?Y9LABL PY9FTNXJY9FSTLKR9USERLR9UNITPR9MODEQR9PORTRR9EDT1R9EDT2R9EDT3R9EDT4 PR9FSTLKR9FTNXJR9LABL R9TRCEIR9FBSER9DSEQR9INVP R9TBIOR9FDTB R9UMTHR9UYERR9UDAYR9UDATR9MARAPR9CARAR9ALSQR9EOTTR9TOTTR9DOTTR9LSTR R9TOTLR9DETLR9MHLDR9INMK R9MMSTR9CMSTR9FDC1R9PFCBP PSR9ROOT R36 A RPG CCS 3.0 SL-149@P@P+@P4  PR9ROOTY9PFCBY9FDC1Y9CMSTY9MMSTY9INMK Y9MHLDY9DETLY9TOTLY9LSTR Y9DOTTY9TOTTY9EOTTY9ALSQPY9CARAY9MARAY9UDATY9UDAYY9UYERY9UMTHY9FDTB Y9TBIOY9CMOVAY9INTABY9ITLPCY9LAHDDY9MMOVEY9NSQRFN  3RPY9PAGEGY9TBOTHY9INVP Y9DSEQY9FBSEPOSSPBPOSSKBPOSSPAPOSSKAR9OCOD!R9RECP"R9TANF#R9TFLG$Y9APFX%PY9ASPC&Y9COUN'Y9DTPT*Y9FDPR)Y9FIPR+Y9FIPT,Y9FLPT-Y9FPTL(Y9FPTR.Y9FSSA/Y9HIND0Y9HNUM1Y9IBUF2Y9KALA4PY9KAPF5Y9PSFG6Y9RECP7Y9RPTR8Y9TOP19Y9VFT1:Y9XRPF;Y9XRTER9ERTN?Y9LABL PY9FTNXJY9FSTLKR9USERLR9UNITPR9MODEQR9PORTRR9EDT1R9EDT2R9EDT3R9EDT4 PR9FSTLKR9FTNXJR9LABL R9TRCEIR9FBSER9DSEQR9INVP R9TBOTHR9PAGEGR9NSQRFR9MMOVER9LAHDDR9ITLPCR9INTABPR9CMOVAR9TBIOR9FDTB R9UMTHR9UYERR9UDAYR9UDATR9MARAR9CARAR9ALSQR9EOTTR9TOTTR9DOTTR9LSTR PR9TOTLR9DETLR9MHLDR9INMK R9MMSTR9CMSTR9FDC1R9PFCBP PR9RPRT R37 A RPG CCS 3.0 SL-149@PT......@P+@P;@P @C@PPR9RPRTR9INTBR9CLIN R9HTIN R9VIND R9USNDR9MRINR9FCTR"R9STTS:R9HLFJ>R9REPT?R9RYST@R9ACC1YACC1BPYACC1ObR9AC1SR9AC2SR9AC3SR9AC1NrR9AC2NR9AC3NR9PPUPBR9UPOPaR9INRZ;R9INRPN9PUTSHB9PUTS3PR9PUTS?R9POSOhN9POSSmB9POSSbR9POSSgR9OV50fR9NXRCR9LAHDR9IOCL:N9ICTLQB9ICTLLN9GETS,B9GETSR9GETS%PFILPTR(FOV40 eN9FTOVlB9FTOVaR9FTOVdN9FMALEB9FMAL0R9FMAL7N9FLOWkB9FLOW`R9FLOWcR9EXITWR9DSY1#N9DSPY+PB9DSPYN9DIVD\B9DIVDTR9DBG5"R9DBG4!R9DBG3 R9DBG2R9DBG1N9DEBG*B9DEBGR9CMOVMR9CVEA6N9BDPRDB9BDPR/PR9BDPR5N9ADSB[B9ADSBSP PaR9SAV3 R43 A RPG CCS 3.0 SL-149@P "%:AFIOR] @P+# ADFJ'(M@PV./1328P<=PR9SAVPR9SAVTPR9TP40[R9SPAC7N9SKIP?B9SKIP*R9SKIP6N9RCADB9RCADR9RCADR9PRFN4N9PUTS>B9PUTS)R9PUTS5R9POSOZN9POSS_  3RPB9POSSTR9POSSYR9OV50XR9NXRCR9LAHDR9IOCL0N9ICTLGB9ICTLBN9GETS"B9GETSR9GETSFILPTR FOV40 WN9FTOV^PB9FTOVSR9FTOVVN9FMAL;B9FMAL&R9FMAL-N9FLOW]B9FLOWRR9FLOWUR9EXITLR9CMOVCR9CVEA,N9BDPR:B9BDPR%R9BDPR+PN9ARTHOB9ARTHIR9ART1KP PkR9SAV4 R44 A RPG CCS 3.0 SL-149@P */DKPSY\g @P+&'- K@PV$NPT12W89;=<BZFGPR9SAVPR9SAVTPR9TP40eR9SPACAN9SKIPIB9SKIP4R9SKIP@N9RCADB9RCADR9RCADR9PRFN>N9PUTSHB9PUTS3R9PUTS?R9POSOdN9POSSiPB9POSS^R9POSScR9OV50bR9NXRCR9LAHDR9IOCL:N9ICTLQB9ICTLLN9GETS,B9GETSR9GETS%FILPTR(FOV40 aN9FTOVhPB9FTOV]R9FTOV`N9FMALEB9FMAL0R9FMAL7N9FLOWgB9FLOW\R9FLOW_R9EXITVR9DSY1#N9DSPY+B9DSPYR9DBG5"R9DBG4!PR9DBG3 R9DBG2R9DBG1N9DEBG*B9DEBGR9CMOVMR9CVEA6N9BDPRDB9BDPR/R9BDPR5N9ARTHYB9ARTHSR9ART1UP P R9SAV5 R45 A RPG CCS 3.0 SL-149@PPR9SAVPPN9TBOT B9TBOTN9PUTSB9PUTSR9PUTSR9IOCLR9CVEAP PR9SBY R46 A RPG CCS 3.0 SL-149*  3R@PvH HlPR9SBY P PR9SETF R47 A RPG CCS 3.0 SL-149@PT% hh TPR9SETFPR9FLOWR9CRIN R9NXTXR9AC3SR9AC1SR9STTSPEND PR9SETN R48 A RPG CCS 3.0 SL-149@PTH@hdRe  dRdPR9SETNPR9IDMXR9FTSWR9INTB P PCR9SHFT R49 A RPG CCS 3.0 SL-149@PHh;55h641h1.h0/l- l,)*1'h%""h hh@P+hl! l ! hPR9SHFTYLSPAR>PEND PZR9SKIP R50 A RPG CCS 3.0 SL-149@PhW HT&  JbI2lGG TDB1@h>=T:h63T!-  3S@P+@T &b b#!Tb 3 Xh&T b"l@PVPR9SKIPR9SOVSDB9SKIPWN9SKIPPR9SBY (R9BASE)R9VSWTVR9SETNLR9CLRER9PUTS/R9PRFN9R9CRINR9WOTV-R9ONES%R9OCODGP PR9SPAC R51 A RPG CCS 3.0 SL-149@PlbLT ! b 7  TPR9SPACPY9ASPCY9APFXR9PRFNR9SOVSR9FTSWP P8R9SPTP R52 A RPG CCS 3.0 SL-149@PHh/,TH*(b$TH#h# l H1Ahbb0@P+ h bbPR9SPTPPR9LOCL R9FLDLY9FBSEY9FDTBP PR9SQRT R53 A RPG CCS 3.0 SL-149@PT hjHghhdT @ T\ TTSAhPhOK "hK FHD@P+E hD hChA? 6 5 0h21+T h) @ T!@PVhhfP hHq  f` T h hx  3S@P;kf ! h نfTyK f@PQ Hȿغ TJX خȭȭ h T|1T@P ȕTPR9SQRTPR9MIW TR9FLOWR9SHFTR9UPK3 R9RSLTR9STH0R9NRMXR9NXTXR9AC3NR9AC2NR9AC1NR9AC3SR9AC2SzYACC1BPR9AC1SP PLR9STH0 R54 A RPG CCS 3.0 SL-149@PhBlFH? 7H55 8rG`- dhT,(%  @P+T *! ddT.A"  PR9STH0PR9MODEAY9ERCDKERRO46R9CNCL;R9CLIN9R9CNTR=YERRSW3P PeR9STLL R55 A RPG CCS 3.0 SL-149@PT1HR"'hM&HIIhJhI$CT?%?A15 4h2Tq93TX=9h" @$T hh $@P9@ D  h 9TiX@P nh hyӠ"=h:hTh Tؿȷ/@P D@ T9ȶT -@KT ON OFF]fpx@P  !$'*-0369<?BEH@P-@P]INPUT RECORD FROM.SELECT RECORD FROM. CONTROL BREAKS. TOTAL CALCULATION.TOTAL OUTPUT. @POVERFLOW OUTPUT.GET INPUT FIELDS. DETAIL CALCULATION. DETAIL OUTPUT.PRINT RECORD ON.WR@PITE RECORD ON.ADD RECORD TO.UPDATE RECORD ON. LAST RECORD CALCULATION.LAST RECORD OUTP@PUT. ADD.Z-ADD.SUB.Z-SUB.MULT. DIV.XFOOT.SQRT. MVR.MOVE. MOVEL.MOVEA.MOVZ0.MLHZO.MHHZO.@P MLLZO.COMP. TESTZ.TESTN.TESTB.LOKUP.SETON.SETOF.BITON.BITOF.GOTO. EXIT. ENDSR.EXSR. CH@P4AIN.FORCE.DSPLY.DEBUG.READ. SETLM.TIME. EXCPT.PR9TRCEPR9MVW R9GTL cR9BASER9LBYXR9SBYXR9MVBXCR9USNDR9INDMvR9TROTR9INTB  3SjP P#R9TROT R64 A RPG CCS 3.0 SL-149@PHh /hhX TL$ TL"PR9TROTPR9UNITWTREADP P2R9TSTB R65 A RPG CCS 3.0 SL-149@PT" H(h(&h'&Th# hhT hhh h h  T@P+PR9TSTBPR9LBY R9BASER9FLOWR9RSTS)R9NXTX+PEND PR9TSTN R66 A RPG CCS 3.0 SL-149@Ph Th h  hPR9TSTNPR9IDMXR9INTB P PBR9TSTZ R67 A RPG CCS 3.0 SL-149@PT h;H98 h65h65Th2 h1/!(1% h !1@P+  h Tp  3S~PR9TSTZPR9LBY R9BASE R9FLOWR9RSLTR9SETNR9RSTS:R9NXTXh<H9'`  T h0h51/A,h/H--T`l'(h'@P+ Dh"hDlhhh 1E   LPR9UPK1R9UPK2R9UPK3PR9LBYT%R9MIW R9AC3SR9AC2S R9AC1SPEND PR9WOTV R70 A RPG CCS 3.0 SL-149@PHTFPR9WOTVR9UOTVR9AOTVPR9STH0ADDT32ADDT31ADDT30UPDT29 UPDT28 UPDT27 UPDT26UPDT25 WRIT24WRIT23WRIT22WRIT21WRIT20PWRIT19WRIT18WRIT17P Y  3S PR9XCPT R71 A RPG CCS 3.0 SL-149@PT3TPR9XCPTPR9FLOWR9CNTRP PmR9XFOT R72 A RPG CCS 3.0 SL-149@PThcH` @ T dU hS QdhOLhNLLT * hD "@P+h<: f4 H21h,)62fC H!!l@PVT h T* TPR9XFOTPR9LEL WR9MIW R9FLOWR9SETNR9UNPKR9NRMX]R9RSLTcR9NXTXeR9RYSTR9AC2NER9AC1NGR9AC2S(R9AC1S^PEND P"R9XRSD R73 A RPG CCS 3.0 SL-149@Ph  !!  h h PR9XRSDPR9MNIN R9MONER9MZERP P:R9YCOD R74 A RPG CCS 3.0 SL-149@PXH2h0H0/h-,h*&h$&"T h$ H T@P+ T+'  3SPR9YCODR9YCDEPR9SBYT3R9OTM1R9ACC1R9ZEROR9PERD%R9SLSHR9BLNK0Y9INVP!P P-R9ZADS R75 A RPG CCS 3.0 SL-149@P H'h'%$h%h$h#!T !  dTT h T@P+PR9ZADSB9ZADS(N9ZADSPR9FLOWR9UNPK R9RSLT%R9NXTX'R9AC1SPEND P8R9ZCOD R76 A RPG CCS 3.0 SL-149@PXH.H-*h*H+)h'&h'h%h!Thh h  T@P+ PR9ZCODR9ZCDEPR9SBYT*R9OTM1R9ACC1R9BLNK'R9ZEROP P*R9999B R77 A RPG CCS 3.0 SL-149@P( h#h# sL r BHhBHh F FQdPR9999BPR9BASE%P   3S P CATGET R80 A RPG CCS 3.0 SL-149@PH"h"hhTZ` ******PCATGETP PCATLOG R81 A RPG CCS 3.0 SL-149@PTZ CATFILPCATLOGCATSEGPCATLOG PCATLU R82 A RPG CCS 3.0 SL-149@PTTh ""D  PCATLU PLOG1A Q8PKUPQ8PREPP PCATSKL R85 A RPG CCS 3.0 SL-149@PH>H&H#  Q  ` &T   #@@P*HH jv   q@PAHh  n  hQ*LIBEDT *K,I6 *K,P8 *P,F,2,RPGFI@PlL *B 'R9CNTR' *B 'R9ROOT' *B 'R9RPRT' *B 'R9SAVE' *B 'SYSMSG' *B 'CREATE' @P*B 'FMCALL' *B 'STRACE' *B 'RPGOBJ' *B 'R9ELOC' *T *K,I8  *N@P, ,,,B *K,I6 *Z *V *END \  3SPCATMOD*CATJCRASQUEEZP P5CM00PT R86 A RPG CCS 3.0 SL-149@P h-h-Dh(DBh&H&H% Bh0$hDl Ȉ QH @P+ @PCM00PTCM00GTP PiCM02IN R87 A RPG CCS 3.0 SL-149@P , hHhDhShShhhhCd h hH hh@P.hhTh  ØؽغTe"ȶbȱbȭb@PYȬhflȡ`ȜبPCM02IN DELIM PCM03GOMCM00GT5P PmCM03GO R88 A RPG CCS 3.0 SL-149@P Hh`31hHR4 "D"h$H" aAA bDbb b@P0Dbb" ba@@l`P[`PlPCM03GO+  3SP P+CVASEB R89 A RPG CCS 3.0 SL-149@PH%H"""bRh {HHX hXn  " H PCVASEBPR9XLAT P P0ERRO46 R91 A RPG CCS 3.0 SL-149@Pd"h%h$h#h" cdhE"h "hdT)*h``P+PERRO46ERRPROPSYSMSGY9IREG&R9ERTN#P PFMCALL R92 A RPG CCS 3.0 SL-149PFMCALLP PFORTN R93 A RPG CCS 3.0 SL-149@PX/X+X'X# XX}X$X@P+)Xa"a X" XIb XFb XCa X@b bX>Bh7Ah8X h0T`L05"-,h)( @P+h%% h#h"hT`LH! 1 h  @H@PVLPIO00WRIO00WOP PMOUNT R97 A RPG CCS 3.0 SL-149@P8 `P+`P,`P-^  3 T @PF D@000000 000000*@P `P@P$$MOUNTS  cny8ACKMV@P UNRECOGNIZED PARAMETERS INPUT ERROR. WANT TO CONTINUE? FILE NAME IS@P MISSING FILE MANAGER ERROR MISSING PARAMETER.EXPIRATION DATE WRONG LENGTH. PARA@P$METER TOO LONG. CODE NOT A OR B OR E .Tc8T["Dh;H@POT[ PTH_)[gT/* Ah$ h@PzHTQF-(HT RBHHH #hkT[(hhT@P !` /hh\FX6 TTZ]T@P,,'TnTTcTZThh@P ?T@P-?/h)%A@0h h hT   T,_9@P+8(h9:*h=>.h;+hAB2h@PV=<,hh2h5h hh0h2h h h1h-h@P h T#Ѡ0  T !T! #2@PhȲ01h Ah  h ȥhHT@P1 T 6T! A>h Ah h @P#1h # 2hHT@P  3 TPMOUNT 8PCLEAR 9WRITEROPENFLACLOSFLCM00PTCM00GTIO00WOIO00WRcCM02INROOT43PMOUNT P$Q8PRMS R99 A RPG CCS 3.0 SL-149@Ph Hq``X`HX" hPQ8PREPQ8PKUPQ9PKUPPARABSP PSELMU S05 A RPG CCS 3.0 SL-149@PT!TT!"#H "f" SELECT MULT@P+IUSER FOR RPG RUNTIME REPLY 0 OR 1 (RMUCF0) @PV SMALL, MOST LARGER, ALL FEATURES OF @PRPG FEATURES RPG INCLUDED (MOVZ, BIT  OPS, M@PAG TP) L PSELMU PSYSMSG PGMIN WTREADPSELMU PSTRACE S06 A RPG CCS 3.0 SL-149`P @P Hh j qh)  3 T2PSTRACE P PSUBRAJ S07 A RPG CCS 3.0 SL-149@Ph{"" ^T1ZT6 hol PT! ^a!H_ h`\! 1=Y@P+hOQRM@EKhH?E?2 1'8' qv.1,@PV|!$""#T"A  @PPSUBRAJPR9MZERuR9MONErR9ZERO}R9MINS+R9BLNKR9999B R9FLDLR9BASESYSMSGeP PSUBRED S08 A RPG CCS 3.0 SL-149@Ph}X1qHzdw iX6uhpX!`mHkXzT!Xfh___T `@P+X? SK + .J:8AA <": #"7 H"*@PV1 })!TTc TiT~"@P" TPSUBREDPR9ACC1DSYSMSGxR9CNTRsR9BLNK;R9999BR9UPK1%R9FLDLR9BASER9EDT4 P P+SUBRFL S09 A RPG CCS 3.0 SL-149@Ph'"" T!H T!  T%"{C  3 TFPSUBRFLPR9FLDLR9BASE'SYSMSG!P PdSUBRIN S10 A RPG CCS 3.0 SL-149@PhOXX1F\ShKXSIXPGXM1;\H hBXG15\B h=XA1/\< h8X;1)\6h4-  J, @P+ '($  TGTO"@PV" TPSUBRINPR9999BXR9FLDL`R9MVB FR9ZEROYR9BASEHSYSMSGKP P^SUBRMV S11 A RPG CCS 3.0 SL-149@P BHLhHXM!=AHCXG\D !5:˜8:h9X=4H6X9\6 !'-Ø+-+2)h(X,\)!@P+%V!3d ! "TK"@PV" TPSUBRMVSUBRLMSUBRMLPR9999BRR9BASESR9FLDLZSYSMSGGP PpTRACER S13 A RPG CCS 3.0 SL-149@PT456`abefXH Ti4mnXTghR22lO@H "< *SE@P+B4l= OPTION 0,1,2,3 TRACE-RPG RUNTIME OPTION E w  3 TZ@PVERROR STOP ONLY TL PTRACERPSYSMSGPGMIN WTREADR9SWCHoP PJOPEN01 S14 A RPG CCS 3.0 SL-149@PT`#hT3#aT74" &T@P+JT* A !T08(aT@PJ3#a)H A DnB  bb H:3#bDfb b b D bb@Pu2@0bEDb BB1@hTH@PXkHbb hh:bcH h hnC TE7h @P8hTLX< h  hTH h 8hTL@P@0bhhhh  "."H-Q@P!B 2"Š  5@0b/ f"  POPEN01OPEN08PERRPRO=STRACER9DRTNDMPTLKiROOT44P POPEN02 S15 A RPG CCS 3.0 SL-149@PT`# T3#aT<96T 6T@P+"K B1 vT+L1  (a"Dbbbb@PVb / B1  Ca TH B1I GTk @P;+b bDb a $h h.HLhyhhv h  h @PhT bbDbRDbd b b 1 "bb bD@Pb bb bb  bDb bDbT#a4$bDa @P(a#aTh 8h TPOPEN03PERRPRO{STRACE R9DRTNDMPTLKERRO46ROOT44ROOT43NTAP48P P3OPEN04 S17 A RPG CCS 3.0 SL-149@PT`XJA1241+T+ $1T=@P+ T(2&T1XT8(aTC# &  3T@PVT<3#aTKTW Dc c) c aAa2 ea5ѳ@P,-Ѵ Ahc !Th$2!-)h h oh aT(@PoHo69<53#aM9)aH:*aC($  S@P DRT,*!A B0a)h h ohWT(oHPo@P:%3#a=7"(:*a$9)aK$5! a5 AhñF@P-T#aaHK A DnE bbUd5%ad Ud7'ad @PXAd6&adD_b b b D bb1EDb B@PBT_`-T.!3#aTa8&2 6T@P-X  1T"  T$x7T#nX@P[T"T`(6T*TXZ$ @ 4$a @PT+;TU T,@PT !HhDnHecnXTPOPEN04OPEN05OPEN06OPEN07PFMCLR ERRPROSTRACE0R9DRTNDMPTLKbFMOPENP PREAD09 S18 A RPG CCS 3.0 SL-149@PT`#T #T  .;T3#a@P+  5T#T  1.:*a /0B2a@PV2Db 2%1bXw2bDbA2 @P bgaBH,HWhP, hT3 p7'aϠ2h=1D  3T@PhA 4h hT*(dhT  b2Db0 @Pb1T  Db TEPREAD09READ16PERRPROSTRACER9DRTNROOT44ROOT43P PREAD10 S19 A RPG CCS 3.0 SL-149@PT`#T 6T O .;T3#a@P+?/b  1.:*a02 B2a2Db@PV~ 21bXn2bDb"XohY6@P?/b hT" k7'aϠ2h@1DhA 4h hT-@P(dhT  b2 Dbb b: 4 DbT@P(  Dbb b T19b  b T  @PhPREAD10PERRPROSTRACER9DRTNROOT45ROOT44ROOT43P P>READ11 S20 A RPG CCS 3.0 SL-149@PT`#T &$T .T B@P+G T ,.0,TTBb@PV @b/T!@ A?b/+ b/h1)ƺ  3T@P " b h h Dh hTA2  D hh@PA4 h h #2hT a bd m b1@Pb b #A 2 A 2 a! Ta7'@Paah  !4h h #2hT a  bd @P-:*a2a3#aTPREAD11PERRPROSTRACE;R9DRTNERRO46ROOT444ROOT43NTAP48MNTAP49KNTAP55P P READ12 S21 A RPG CCS 3.0 SL-149@PT`#T $<96T 96T@P+ ?/b 3#aT  Z1Ϡ2hhA h@PV"" :*b hT Ab  "Db1@P b 1 1:blDb A1b2 h @PhTe B2a3)h h hohT( ooQ-y+ @Pנ@0b"+B2a(:*aT8 3#aF A!7@Pb"Db8PREAD12READ14PFMGETSFMRDELYERRPRO(STRACER9DRTNROOT43P PREAD13 S22 A RPG CCS 3.0 SL-149w  3T@PT`#T 3#aT%&'T %.@P+,T#   Rb![)h(#@PVH oh  hT(ooQ%!%@0a2%>.a 4@P2:*a?/bDbbh  h hT 2Db@P bTMPREAD13READ15PFMREAD`ERRPRO/STRACER9DRTNROOT43P PWRIT17 S23 A RPG CCS 3.0 SL-149@PT`#T 3#aT#T - 6T@P+  1T !!bDb 1b@PV*h*$ah$h hT*e7'a h Π1h A hT@Pbb 0 A 1XT9f#A2 "f" @P b ! T PWRIT17WRIT24PERRPROjSTRACER9DRTNROOT45ROOT43~P PWRIT18 S24 A RPG CCS 3.0 SL-149@PT`#T 3#a(T S-T1@P+q !!bDb 1b A  < hT$Q>  3T@PV7'aDH h 1h A hTbb 0 A !@P# A2 " f"  bb bTT_ PWRIT18PERRPRORSTRACER9DRTNROOT45ROOT43iP PMWRIT19 S25 A RPG CCS 3.0 SL-149@PT`#T ,$T!-T B@P2+9   /,A1a 1f"TT ?b 1"h@P] 1b/+ b/ +   A  ;T(7'a@Pa/A h !4h #1hhT a b A @Pb 2b1 b b TXls  !A bDb H@PA h  b#1h hT h !4h #1hhT@P a b+++bDbb 2b1 b b @P4+ TXT 3#a8(aPWRIT19 PERRPROSTRACE@R9DRTNERRO46ROOT43ROOT45:NTAP49NNTAP48PP PWRIT20 S26 A RPG CCS 3.0 SL-149@PT`#T %T  -T3#aT@P+1T' !1b 8(aT/ A1bDb AH  3T@PVh ah A hTb 0A 2XTG@P bbB8a5)h 5h oh a hT( oo%A1a%:*@Pa3#aPWRIT20ADDT30PFMPUTSERRPROSTRACE{R9DRTNROOT43eP PWRIT21 S27 A RPG CCS 3.0 SL-149@PT`#T &T & -,T3#aT@P+ @0aT#)1 !1b)h oh @PVh  hT(oo!2!(:*aT+h h  h @PhT b )h oh  hT(o Db2DboTtT@P:*axPWRIT21PFMUPDRFMREAD]ERRPRO6STRACER9DRTNROOT43P PWRIT23 S28 A RPG CCS 3.0 SL-149@PT`#T 6T /-),T3#a@P+T1   ahhh  aH2hTh  @PVhTL )h oh h  hT( ooT,&A1a@P!%:*a%=-a  3TPADDT31ADDT32WRIT22WRIT23PFMWRITnERRPRO$STRACEvR9DRTNROOT43XP PUPDT25 S29 A RPG CCS 3.0 SL-149@PT`#T (T P ,T3#a/@P+T?/a1Tb. h T,QV7'a?@PV9)b hhDh h9"aHA1hT7 !@P  b9b T  2Db?bPUPDT25PERRPRONSTRACE8R9DRTNROOT45ROOT43qP PUPDT26 S30 A RPG CCS 3.0 SL-149@PT`#T BT  ,T3#a/@P+T ?/a1T'?h  a H!hToaH'h@PV"Q" H"T-3;+a @P 8(ab A1bDb  b h hhTJ @P )hhohT)o b2Db?boh:*aPUPDT27UPDT28UPDT29UPDT26PERRPROfSTRACE9R9DRTNROOT43FMUPDRP Z  3U PSETL33 S31 A RPG CCS 3.0 SL-149@PT`6T  ;T 93#aa&T;!@P+)hhohDa h DbT(oo"(12!(:*aT@PV%B2a3#a1 @0bbDb 2bB?bTT@P~PSETL33PFMREAD=ERRPRO#STRACER9DRTNP P]CLOS35 S32 A RPG CCS 3.0 SL-149@PT`#T 3#aT6T 3a!@P+1  1 2b TDbhdH M@PVbTPCLOS35CLOS42PERRPROSTRACEZR9DRTNDMPTLKPROOT459P P|CLOS36 S33 A RPG CCS 3.0 SL-149@PT`#T 3#ad6T R3a1  1@P+ b ! T)%9b hh@ TM* hT@PVN9:*aDbhdg lbTPCLOS36  3U"PERRPROUSTRACEyR9DRTNDMPTLKoROOT457P PCLOS37 S34 A RPG CCS 3.0 SL-149@PT`#T {$T p.@/+ %@P+b/+ bDb 2b T-TTMT@PVTQTTW"hdc hb@Pv3a- .T]TTu3#a8(aPCLOS37PERRPROSTRACER9DRTNDMPTLKkERRO46NTAP55ROOT45FNTAP56ZNTAP54TP PCLOS38 S35 A RPG CCS 3.0 SL-149@PT`X&#T 3#aT<96T@P+3a1'  1  Aa hB1a5)h 5hohT(5oo@PV)hohT(oo1 h T& p:*aDbhd@P| bToT`XqT`Xh 3#aTV@P6Th4PCLOS38CLOS39CLOS40CLOS41PFMCLOS_FMPUTSPERRPROSTRACER9DRTNDMPTLKP PjROOT43 S36 A RPG CCS 3.0 SL-149  3U6@P Hdddh]]ddhUT%rJE"4hE@+@P+; 52 H/H-+(!!n!  @PVةFA h &AhefPROOT43MOVE P PROOT44 S37 A RPG CCS 3.0 SL-149@P#HTa#H#2  1b>.b@P' TQ;h2h0>b#$&1 -H, <,b 01@PRX >.bTN_T 2"8. . , ?/b$@P}T[/ؠ  @0b",T >.b h @PbXT*PX  bB2b  bb PROOT44PERRPROSTRACEP PROOT45 S38 A RPG CCS 3.0 SL-149@P#HTa#H1  yAb@P h9 Ab>.bT,Q;h)>b#$11A1a @PF03 16:*aTNV8@PW 2"8. ,$A1aTRA1b ?/b3@PTp:*aA1b2Db b bb T)X  3UJPROOT45PERRPROSTRACEP PNTAP48 S39 A RPG CCS 3.0 . SL-149@PXXXXXXXX, MOUNT XXXXXX ON LU XX, RING,READY? HDR1  0001000@P+100 YYDDD YYDDD 000000 RING #"a# h& h& Dn q @PVh  n q n q n  n  nT(o "&$$MOUNTS  h"@Pn q HX"31B2a h hT( oH " h @Ph hT( o h hX2%<,b h hT(o H hT@P  +hT B0F4Ȁ00h# "+NO hTLT@PNO}  b!0Ts*h=-b:*bT @P, HT)'TAU1* HT( "jh H +H@PWX*T5E, HT/51 . !T^ @Phmhk heba]^ " H "HX @PT|BHDR1VOL1 "h5h4$h3 hhDh hSHBH@Pؠ 0hB Fh TC.Tg)T T@P )e' " "HT@T1THT@P.YPT "HTB0FHB0F00HB0F4Ȁ 00hT>@PY%@ HTX0TTa-Tj6 *DTF(T8 T@P8(aTT8  3U^PNTAP48FPERRPRO*SYSID qSTRACEFMDELRFMREADFMCLOSFMOPENoERRO46NTAP55ROOT43pNTAP57.NTAP53gNTAP52$NTAP58{P PNTAP49 S40 A RPG CCS 3.0 SL-149@P+#"a#.)-T:8EOȿV1B2aE,XCB@PVb @b6-# /T:,TTg"X"Ab @?bA1@Pa,TqX TTT bPNTAP49-PSTRACENTAP55NTAP56oP PNTAP52 S41 A RPG CCS 3.0 SL-149@P0HohXlh HXgh (h h!2 S Q H0%A h^ XJh@P9 HXEhXBhd(h (h /ȱnm" $ȧ 62 2 hHȜ@Pd- h+ h h"  h2  ؒ@Ph hF2 PNTAP52P PtNTAP53 S42 A RPG CCS 3.0 SL-149@Pd0hH hhh H0%A 0FhHшHl @P9hƐ$" uh h Ȼ8h 0FhHȵhhȮ nȪhhGh  3Ur@Pdȣ nȣȥh hثȘ蘀PNTAP53P PNTAP54 S43 A RPG CCS 3.0 SL-149@PDhh h}h|y B0FHfB0Fb00H_B0FH[B0FW00HTB0F@P+200HL "hT} F1LBV1h!Gb *DT_(T _ h T@PV4_`NEOh*EOV1  @P PNTAP54NTAP56PROOT43VNTAP55ONTAP58KP PNNTAP55 S44 A RPG CCS 3.0 SL-149@P6@PHL\Hh" a!HA hh (h&hhh@P/ aT`HhA H h(hT ȼPNTAP55 PROOT43GP PNTAP57 S45 A RPG CCS 3.0 SL-149@Pa h l lTH h l  3UPNTAP57P PNTAP58 S46 A RPG CCS 3.0 SL-149@PhhH |HX hXl q" d   *#C:r@P/> " r < H E A a1"@Z{[lP}M]\Nk`Ka@PZz^L~no|_m [ABCDEFGHI.<(+&]JKLMNOP@PQR!$*);^-\/STUVWXYZ,%_>?0123456789:#@'="PNTAP58P PTDELT59 S47 A RPG CCS 3.0 SL-149@PT`#T BT I ,T3#a)/@P+T T?/a)h Hoh"T f"?bo:*aTPDELT59PERRPRO-STRACEQR9DRTNFMDELR?P PROOT60 S48 A RPG CCS 3.0 SL-149@P@ a agPROOT60P PAROOT61 S49 A RPG CCS 3.0 SL-149  3U@P@2h0 ah)b[&&d2h X"HhbTXHhh"H @P+hg@P4@P8 B  0%PROOT43MOVE P PUPDT62 S50 A RPG CCS 3.0 SL-149@PT`#T BT  ,T3#a/@P+T ?/a1T',h H HHTT-3@PV;+a  8(ab @PA1bDb  b h hhT )hhohT)o @Pb2Db?bo{:*aPUPDT27UPDT28UPDT29UPDT26PERRPROSSTRACE9R9DRTNROOT43ROOT60JFMUPDRP PLFMMV63 S51 A RPG CCS 3.0 SL-149@PXXXXXXXXXXH5 h1A"h-hTl)(l&%"h!@P+l ll@PKPFMCLR FMCLOSFMDELRFMGETSFMOPEN FMPUTS FMREADFMUPDRFMWRITe  3UPFMCALLWRITERHUPDRECGREADR FPUTS EOPENFLDGETS CDELRECBCLOSFLACLEAR @P P=KEYR64 S52 A RPG CCS 3.0 SL-149@PT`#$T 3#a#(T+ S DR@P+ T,8(a!A6TPKEYR64PERRPRO/STRACE:R9DRTNP PPARABN S53 A RPG CCS 3.0 SL-149@PHhB4 "c"PPARABSP PCATERR R78 F RPG CCS 3.0 SL-149@Pp *CATLOG* **** ERROR **** @P *CATLOG* READY TO INSTALL @P MASS STORAGE I/O ERROR @P REQUIRED PROGRAM NOT FOUND @P* LIBRARY PROGRAM NOT VALID @P8 PROGRAM ON LGO NOT VALID @PF TOO MANY PROGRAMS ON LGO  3U@PT LAST LGO PROGRAM HAS NO XFR@Pb INVALID CONTROL STATEMENT @P@P Tp , h\@PT @PHTThPCATERRPQ8PKUPQ8PREPLIST DISP P PJCATFIL R79 F RPG CCS 3.0 SL-149@P@P@P @P@P @P9@P`@Py@P PP@P C\  3 U@P*B*K*V*E@P*N008 @P*Z@P,6@P*CATLOG* NAME , OWNER @PhhAh h: h6hڨۘ֨֘hf  1@P T\0ȸ ȭh h hhȬ h dȰ!LT Ȣ T@P#  h3Ȕ \ dfxnnn )"\@PN d d d Tܱ \nT Td"\@Py ;   l ڜ d- @P  p4d,h ȘЄl@P̳ T̪ T̖ j̜  df 1 @Pl{ z ̰y  l %1xd| dd:T@P\O dT\ m d2!T# l@P> T\#\PCATFILPMIBUF DISKRDCATERR9LIST \CATMODkCATJCRnSQUEEZPUNCH CATOBJ"PCATFIL PYCATMSG R83 F RPG CCS 3.0 SL-149@PQ  3!U@P6@P5@P *CATLOG* PROGRAM @P7hh hT56@PIH TTh h hPCATMSGKPQ8PKUPQQ8PREPNFWRITE>P P}CATOBJ R84 F RPG CCS 3.0 SL-149@P@P6 GhhT #T h h  hڈ hמ @P2 1 hhŀ@PB h Z1hh \\ "\h@P`HTT h hh h 8h #h h\h\ hŀPCATOBJbPQ8PKUPhQ8PREPeCATGETCATERRP P0DISKRD R90 F RPG CCS 3.0 SL-149@P@P p  3"U@P hT  TT #T H TTh\hPDISKRD$PQ8PKUP*Q8PREP'FREAD DISP LINK CATERRP PzGETLPG R94 F RPG CCS 3.0 SL-149@P@P2 FhhhhT #T h h h  1@P3 hh@P> h Z1 h h  l@PQ\ "\h@P]HTT h hh h 8h #h h\h\ hÀPGETLPG_PQ8PKUPeQ8PREPbSECGETRBPERRP P3LIST R96 F RPG CCS 3.0 SL-149@P@P @P T hhT  TT ! H TTh\hPLIST 'PQ8PKUP-Q8PREP*CATLU FWRITEDISP LINK K  3#VP P1PUNCH R98 F RPG CCS 3.0 SL-149@P@P hT TT #TH TTh\h\hPPUNCH #PQ8PKUP)Q8PREP&FWRITEDISP LINK CATERRP P^SWITCH S12 F RPG CCS 3.0 SL-149@PC@P6E@P9@P>@P@@P ENTER SWITCH VALUES <XXXXXXXX> @P XXXXXXXX @P SWITCH = 00000000@P INVALID SWITCH ENTRY @P2@PChT-178hT1293 :; hߪhʬHhۨh    @PnИ {(  3$V&@Pw   ȿ ȼ ȹس 1 I H lA@P lI HlA lI @PHlA 묹lIw HlAj @Pl dLh̓Al BlC lD@P#lE lFlG lHlTP14@A@PN ;T\15BA ;PSWITCHPR9SWCHPGMIN FWTREADHPGMOUTRPSWITCH*T __mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3%V:mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3&VNmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3'Vbmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3(Vvmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3)Vmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmo  3*VmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmZ  3+VmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmE  3,Vmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm0  3-Vmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3.Vmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3/Wmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  30Wmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  31W*mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  32W>mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  33WRmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  34Wfmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  35Wzmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmms  36Wmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm^  37WmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmI  38Wmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm4  39Wmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3:WmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmALAWP CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm PHAVMBIT A01 A CCS CCS 3.0 SL-149@P HX92h -$h.,'&2T<"$dmŠ'R)2X@P+*2 1 ** "i PAVMBITPAVMCKVP PCCSADD A02 A CCS CCS 3.0 SL-149@PHh HXz us ohsHr = 9  }  0_@P+hII\\SR MK GhJHJ = 9  }  09hL@PVL44- L  @P5`2y`P @PE `"i PCCSADDP PCCSBLK A03 A CCS CCS 3.0 SL-149@PH h" ""   3;WPCCSBLKP P@CCSCST A04 A CCS CCS 3.0 SL-149@PH3h2 HX/ l* "  f  ` @P+` `"i PCCSCSTP P;CCSEAC A05 A CCS CCS 3.0 SL-149@PX";h1 h0 Xh( @h'# "``HH" H@P+ `"i ]@PV [.<(+^&!$*);\-/,%_>?:#@'="@PABCDEFGHI}JKLMNOPQR@PSTUVWXYZ0123456789@Z{[lP}M]\Nk`Ka@Pz^L~no|J_'Om@P@P-PCCSE2ACCSA2E P P CCSGET A06 A CCS CCS 3.0 SL-149@PHh HX l` `"i p  3<XPCCSGETP P-CCSHXA A07 A CCS CCS 3.0 SL-149@PH h HX  sD  1  : E /` `"i @P+PCCSHXAP P/CCSMVA A08 A CCS CCS 3.0 SL-149@PH"h! HX @    ` `"@P+i PCCSMVAP P CCSPUT A09 A CCS CCS 3.0 SL-149@PHh HX ` `"i PCCSPUTP PCCSPYT A10 A CCS CCS 3.0 SL-149@P DPCCSPYTP S  3=X P(CCSTIM A11 A CCS CCS 3.0 SL-149@PH%h$"h Hh @ 8 0 0Fh `&`PCCSTIMPHORMIN P PCOLECT A12 A CCS CCS 3.0 SL-149@PPCOLECTPFCOLECP PDATHAN A13 A CCS CCS 3.0 SL-149@PH_h^HG H[X[X6FF rDHLhKH4 HHXHX.  `'X F"@P+ X4i  ; )  4"   2 1 @PVm  `"i HhH HX %00hh @P d " dh  0F 0 04hȻ 0F 0 04h  `­é @PICALJLIDATVRJULCALmP P5GETACT A14 A CCS CCS 3.0 SL-149@PHuX5 H,h* HjXLXXXc hd 'jb PALGO"@P+#2@2 hGh X A ,#)$h.@@" /u  3>X.@PVT ""  (h @PP} Ǡ#"2X"2Ȱ  h@P hh( h 0Fȼ&  x&@Pdhwu Ggb# gY ` ` 0H_V Q@P& JX`DPGETACRGETACFPR9BASENR9FLDLWPEND PICCSAD A15 A CCS CCS 3.0 SL-149@PHh"h H  F` 4@PICCSADP PPGGEN A16 A CCS CCS 3.0 SL-149@PPPGGEN PPGGEN0P PPUTACT A17 A CCS CCS 3.0 SL-149@PHX H{hy HXXXX1O à h@P+R & h( h   3?XB@PV!2f#2  |2" vAfwAw r"#2@P#2_]c`_R^YRANS"#2D#2 hKX@Ph X A ,#)$h/@@" T7 ""@P  (h  hh( h 0F@P FԸߠ % hh¼  (@P-h 0Fȷ hȲá Ȧ ` ` 0Hȟhș 8 Ì@PXH 0F| unt teX`@PfPPUTACRPUTACFPR9BASER9FLDLPEND PRPGDT1 A18 A CCS CCS 3.0 SL-149@P hBX`ed  5X[3 A&  #XI<@P+ ATGb  *XK  A`PV@Pd" T2 0 3S 3J 3A S3 3@P 3 3 @PRPGDT1PFTNDT1/R9BASEFR9FLDLjP t  3@XV P;TAPHAN A19 A CCS CCS 3.0 SL-149@P""H"  h"""! 1 hT\T 0@P`p#$@P+""H h hTFPTAPMOTSTATIT,P PUPD400 A20 A CCS CCS 3.0 SL-149@PPUPD400PFUPD4XP PUPDATE A21 A CCS CCS 3.0 SL-149@PPUPDATEPFUPDATP PHACTADD B01 F CCS CCS 3.0 SL-149@P@P$@P&01  +8<0050@P7  3AXj@P;@PTRNSFL  @PACTFIL  @PUTIFIL  @P!@PL@P0482@PBZ@P@P;T !"T!# (T$# T\9# &\$# \\# &\@Pf$# \T!Q%#ȱ>ȫ &\'# \_` TQ)@P*T9##&  &\+# \\Q,--\# &\+# @P\\Q.//\0-+-\Q12,34d5dT)Q)66 @P)TT9#̢ 2kTJ7# TP lѤ8 $̔9lT@P:TQ))̼l\**̭l\T9## 2k\/# @P=\T!#\9#\TPACTADDPQ8STP GPGMIN 10 ACTIVITY BLOCKS,//) @P#@P(1H1,/,1X,20A2,/,1X,20A2,/,1X,20A2,3X,8HAS OF : ,A2,1H/,A2,1H/,A2,/)@PTPACTMTNPQ8STP Q8QINIQ8QX Q8QENDPGMIN UTHEADOPENFLFILERRPGMOUT^GETS CCSCSTCCSMVACLOSFLZPACTMTN P=ADDDT1 B04 F CCS CCS 3.0 SL-149@P@P @Pd@P @P@P@PBAD OPERATOR BAD CONNECTOR PB .LE. PA BAD SYNTAX @P5 TYPE Y IF CORRECT SYNTAX ERROR, REENTER @PwINPUT=@Pz  3DX@PvY @P lh h  ю h  "@P d TZT}TE@P(33H ADD TEST IN PROCESS. THERE ARE ,I3,25H TESTS CURRENTLY IN TABLE,/,58H ENTER 3-D@PIGIT NUMBER OF TEST THAT PRECEEDS YOUR NEW TEST,/)@PTwNOHh(N$h"H$d} ! !@P=TZKTT̀c@PK(37H STARTING TO DEVELOP A NEW TEST, NO=,I3,/,78H ENTER LEVEL NUMBER (1-9) THEN NEX@PvT LEVEL (0-9) THEN NUMBER OF PARMS (1-9). ,/,55H SEPERATE FIELDS BY COMMAS, FOR EXAM@PPLE, INPUT=1,0,3 ,/)@PTwN|NHdzOHd{PHd|Tzl\{l\|l "~@P "~ "~  dITIMMhT@P\d "} !\Mh\@P\ " l@P lT>Z/.TDz\{\|TG,@P.(5H LVL=,I1,7H, NLVL=,I1,5H, NP=,I1,43H TYPE Y IF CORRECT, TYPE N TO ENTER AGAIN.,/) @PYTwNN lv =Tz{| "\Z7 @PdMh\@P 1\(@P(39HNON-NUMERIC FIELD IN LAST INPUT, INPUT=,2A2,A1,21H RE-ENTER LAST INPUT,/)  3EX@PTZ:T%zT,A@P(20HLEVEL ERROR, LEVEL= ,I1,33H LEVEL MUST BE .GE. PREVIOUS LVL,/,30H AND .LE. N@PEXT TEST LEVEL,/,19H REENTER LAST INPUT,/)@P d| " \Z@#\\@P#(17H ENTER PARAMETER ,I1,58H INFO. ENTER OPERATOR (NULL/.EQ./.LE./.GT./.NE./.WE./.OS.)@PN,/,77H FOLLOWED BY 6 CHARACTER PARAMETER VALUE ( 2 VALUES IF OPERATOR IS .WE./.OS.,/,@Py37H FOLLOWED BY CONNECTOR (.AND./.OR.).,/,41H SEPERATE FIELDS BY COMMA, FOR EXAMPLE@P,,/,33H INPUT=.WE.,000500,000650,.AND. ,/) @P TZCTT@P(18H ENTER PARAMETER ,I1,6H INFO.,/) @P| #\RF@P(49H DO NOT INPUT CONNECTOR ON THIS LAST PARAMETER.,/)@P dfM 1TZwN@P(12A2)@P d̹  lTN("% " ![TZRn dMhT@PI@PK 1 d!h\@PY 1 l'h\@Pf 1Tŀ'@Pn(4H OP=,2A2,5H, PA=,3A2,6H, CON=,3A2,32H TYPE Y IF CORRECT, N TO REENTER,/)   3FX@Pd\ZU l̦Mh\@Pܠ 1 l̨!h\@Pܢ 1 l̛$h\@Pܕ 1 l̎'h TI@P 1\'@P(5H OP=,2A2,5H, PA=,3A2,5H, PB=,3A2,6H, CON=,3A2,19H TYPE Y IF CORRECT,/) @PTwNN lv T"% " l@P#TAVMCKD B10 F CCS CCS 3.0 SL-149@P**@P h* % h"      n 1 1@P.@P1 H TT hPAVMCKD3PQ8PKUP9Q8PREP6P P,AVMCKV B11 F CCS CCS 3.0 SL-149@P**@P h   l @P 1 lH TT h\hPAVMCKVPQ8PKUP%Q8PREP"z  3KY2P P$$AVMCON B12 F CCS CCS 3.0 SL-149@P@P!](@P!`@P!c@P!d@P 1****LAST RESULT CODE REJECTED - NOT UNIQUE@P G****NEXT CONTACT DATE OUT OF RANGE - SET TO ZERO@P `**** " " ($ ) NOT A VALID RESULT CODE - IGNORED @P {****LAST RESULT CODE REJECTED - OVERFLOWS TABLE @P ****LAST ACTION CODE A SCREEN FUNCTION - REJECTED @P F*@P _0@P z4@P 0@P 2@P ACTION@P NADSDFDADCCSP1P2P3RLNQOASSDLAAEAUH @P V  3LYF@PB@PACTCRESC@P^ACTVERTBCCS20  @PmAVMDESC CCS20  @P|UTIFIL CCS20  @P**************************************************************************************@P****************************************@P**@P@P @P @P P@P  @@P @P ACRS@P  @P! @P! ACTIVITY VERIFICATION MATRIX BUILD OF  - R@P!FESULT CODE INPUT @P!U   3MYZ@P!dTZ!W!X!Y TBm!Z !TB!X!Z 53 60h/l-l, h( ,#! !!hnnh !@P0 ! h nnƘÀ@PDؾ 1HTT h h h hPAVMSRTLPQ8PKUPRQ8PREPOP PAVMVAC B15 F CCS CCS 3.0 SL-149@P@??@@P@ @ X.  3SY@PKhT !JAh\ !C h6 h @h # `hʾ' ,@PF#Hl!hĜ "lȽ`h l h l @Pn l l!@ HHTT h h h _h\h\h\h\h\hPAVMVACxPQ8PKUPQ8PREP}AVMCKVP PUBINASC B16 F CCS CCS 3.0 SL-149@P @P;hp8(dhp8hp8(dhp8hp8(dhp8hp8(dh@P1 0h 0Ȉ l 0h 0Ȉl@PEH TTh\h hPBINASCGPQ8PKUPMQ8PREPJP P]BLDSRN B17 F CCS CCS 3.0 SL-149@P@Pd@P4@P@P7  3TY@P ***** SCREEN EXCEEDS MAXIMUM ALLOWABLE SIZE *****@P@PSCRNFILE @P'SCRNDESC  @P4  @P_  @Pd  @P @P  @P @P  @P @P!  @PL @P`  @P @P  @P @P  @P  3UY@P  @PH @P\  @P @P  @P @P  @P @P  @PD @PX  @P @P  @P6EN@P9@P7 @PP@P@P@P: q  3VZ@P=@P SCREEN FILE BUILD COMPLETE @P> @P(@P@SCREEN FILE BUILD SCRNFILERUN DATE @PR-/ @P9@P)@P0@PT, T " h f 1T "\@P' "TV>dTV9\@8TRThT7,T@P\V8\M8USUT88h\7,\?d, d\7@P&~,\T, "2̦6 Td4Ol\7,\ d@PQ\, "2gl\7,\  d\h*\ Ȉ% @P|f3Hhd\d  ̿ n̻ d !U@P A n !Gf5  T@h\$f6f7 " @Pn̹n  d h̲ Ad 1T944lݜ "a l@PdT7,Tnl\,\ f3T44 !T4;@P @P"   3WZ"@P" d@P&@P& lT$@P/@P/ l l\' l@P>=@P=Hl\7:,\T=:+l\-@O \оH\˾@ h \-@L@Pi\\~M\J@ "dTR9\Z: d  @PhT@P #1T\Z; l5h\@P #1\\R<l\Z> l΀h\@P 1\\\\\Z? l̵ h\@Pܯ (1\\Z@ l̢5h\@Pܜ (1\\RAdTZC d;hT@P 1\\\\TTM&!9\M!\ZF lЀ]h@P=\@P? #1\@P F@P>F@PFH@P3H@PHHC@P%L@P(L  3^Z@PEL@PO\ZH l̳h\@P\ܭ #1\\RI3l\ZK l̘;h\@Pwܒ 1\\\\\\M!4\MȺ!TZN d]h@PT@P (1T \ZP lh\@P (1\\RQ@P@PT@P@P 2\RT\RU6T@P@P(1H1,////,52X,9A2,2X,1H-,2X,2(1A2,1H/),1A2,////)@P@P@P(/) @P@P@P@P(//)  3_Z@P@P@P@P(40A2)@P@P@P@P(31X,40A2)@P@P@P(5X,4A2,X,2(4X,F8.0),5X,F8.0,10X,F4.1,1H%)@P@P(36X,4A2,X,2(4X,F8.0),5X,F8.0,10X,F4.1,1H%) @P2@P3(X) @P5@P6(1H1) @P9TPCCSSPCPHFLOT "Q8STP :Q8QINIQ8QX Q8QENDFLOAT AMONTOADAYTOAYERTOETFCBOPENFLFILERRCLOSFLPGMOUT:  3`ZPCCSSPC P"CHEKID B23 F CCS CCS 3.0 SL-149@P@P L@PMNUPRO @PT  TT TTPCHEKIDPQ8STP !PGMIN PGMOUTSYSMSGCHAIN PCHEKID P CHUPD2 B26 F CCS CCS 3.0 SL-149@P@P ;@P >@P A @P C @P Jh@P N+50@P Y4@P \@Pw  3aZ@P1@PE@PN  @P mDELQMST ACTFIL UPREQ @P MOUNT TAPE LABELED: / / ENTER "OK" FOR READY ENTER "NX" FOR NEXT RECORD EN@P TER "EX" TO END @P OKEX@P 6NX@P z@P @P INCORRECT TAPE MOUNTED @P ACCOUNT=# NOT FOUND ON @P END OF HISTORY@P ' END OF REEL X MOUNT REEL X@P TAPE @P YES NO@P  @P \T] 7 8 9hhT . jTz h -hT@P }ؿ 1 hȸ Ah\@P ز 1 d ih\  3bZ@P 1 hȝ Uh\@P ؗ 1T d h ,h h =fM 1 ,hT@P N @ d y @ " l An 1 1 l tn 1  dZ\@P N @ "Ta B @ lˤ D "Ta E  E\  E F ET@P !a G H  H I I : d  1d 5\a G H  Hid jd kd T 7 J @P L K J  > L     6 @P g  lp |d MT HI N M T\  O P O̬  /\I C  C I̙ @P T 1T  5 > ' Q܏\ 5 > ' R\ 7 J ' R z z z L  $\I@P H  HT !  H  H I I  T H 7 J S z z z Lm l\I E  E I !@P   d Ta @ d y\ m O  P O @ D "\a E  E@P  I̶   l d T  ?  ?\a T U  U?T  " \I E  E I@P >̌   T I E  E I I  lk  Vd  d = l W,Ih\@P j E  E I LT d XT X  c!>\  E2 Ed:\2 T { T,@P Ih T @P Y Z2 Y ZT62 { @ d y @ !i\  ?  ?ܨ̧ ! d T oz @P d hT {@P 1 l h\@P 1 l h\@P 2 lԀ h\@P 2 T T  U  3c[@P @P @P T 7 J [ z z z L d @P @P @P  @P @P TN y @ 7@P @P ^ @P \r T @\ @\6 @Th@P s .@P .(1H1,20A2,9X,26HTAPE HISTORY UPDATE REPORT,/,1X,20A2,14X,9HRUN DATE:,A2,1H/,A2,1H/,A2,@P Y/,1X,20A2,//,20X,14HACCOUNT NUMBER,8X,14HBORROWERS NAME,17X,12HDATE OF TAPE,5X,17HRECO@P RDS ADDED TO ,13HACTIVITY FILE,/) @P @P (19X,8A2,5X,15A2,5X,A2,1H/,A2,1H/,A2,19X,2A2) @P @P (//,50X,21H*** END OF REPORT ***) @P T=  3d[&PCHUPD2PQ8STP Q8QINI Q8QX Q8QEND MONTO cYERTO gPGMIN ]UTHEAD kOPENFL GETS CCSMVA CCSCST FWTREAD FREAD sPDISP {LINK 0READR ICCSAD uHEXDEC {WRITER CCSBLK FILERR CLOSFL "PGMOUT ,PCHUPD2 PSCLRFIL B28 F CCS CCS 3.0 SL-149@P@P@P**@P @P!ACCAGE CCS20 @P-ACTFIL CCS20 @P9ACTIVE CCS20 @PEACTVERTBCCS20 @PQADDACT CCS20 @P]AGEWRK CCS20 @PiAVMDESC CCS20 @PuCOLSTATSCCS20 @PCOSIGNERCCS20 @PDAQUE CCS20 @PDECTBL CCS20 [  3e[:@PDELQMST CCS20 @PDLYASSN CCS20 @PDLYWRK CCS20 @PINACCT CCS20 @PLTRDESC CCS20 @PLTRFIL CCS20 @PNEWS CCS20 @PPGEXTR CCS20 @PRPTPGM CCS20 @PRSWFIL CCS20 @PSREQDL CCS20 @P)SUMHIST CCS20 @P5TAPEARC CCS20 @PATRANFL CCS20 @PMTRNBCK CCS20 @PYTRNSFL CCS20 @PeUPHSTCM CCS20 @PqUTIFIL CCS20 @P}** @P o-  3f[N@P @P @P @P @P @P @P @P @P @P(@PT h!< (h65 1 (h+* % h n 1@P3 (ЀhT @P< - (ÀhT@PH@PMطTTPCLRFILPQ8STP RPGMIN  CLEAR 9FILERRFPGMOUTPPCLRFIL P7CMPDLQ B29 F CCS CCS 3.0 SL-149@PV`  3g[b@P@P@P@PDELQMST  @PTT (TTT-ߘ 1\ T@P3\TPCMPDLQPQ8STP 6PGMIN  OPENFLFILERRPGMOUTCOMFILCLOSFL1PCMPDLQ PKCMPSUM B30 F CCS CCS 3.0 SL-149@P@P@P@P@PSUMHIST  @PTT (TTT- 1\ T@PG\TPCMPSUMPQ8STP JPGMIN OPENFL#FILERR+PGMOUT1COMFIL3CLOSFLEPCMPSUM$  3h[v P6CPYIND B34 F CCS CCS 3.0 SL-149@P@P7"@P:  @PC@PG' @POd & @PT@P@P3@P2@P@P/@P  @P  @PINDEX FILE COPY (MAX 2000 BYTES)@P FILE NAME TO COPY FROM @P VOLUME NAME @P FILE NAME TO COPY TO @P OWNER NAME  3i[@P XXXXXXXX FILE COULD NOT BE LOCATED@P XXXXXXXX FILE NOT INDEX FILE@P FILE DESCRIPTION NOT THE SAME @PTT456hgT47879T:\47;7:9T:@P:\:\47=7:9\:>:\:\47?7:9\: @:\@P:\47A7:9\: :\:\47=7:9\: >:\:@P\47?7:9\: @:TBBC (TDB4 T/@P B '\ B4\/ B՜ '\ DB4T2@P+B̽ '\EB4\/2eB̭ '\ EB4e ! j @PV! dFd ! 1d1TiGTBBH +I@P  *TJB4 ldK dL!< , dM h.̣(+dN\O@Ph"T{ h\1G1T/GB̮ '\ PB4[@P3 Q\:Q:T_47R79>\ :Q:\47R7@P9-\:Q:\47S79\ :Q:\47S79 \4787@P(9TB\/B@P2@P2@P%2@P2TTPCPYIND  3j[PQ8STP 5FMRDEL[PGMIN UWTREADCCSBLKmCCSMVAOPENFLFILERRCLEAR GETFCB'GETS qWRITERCLOSFL,PGMOUT3PCPYIND P`)DACRTE B36 F CCS CCS 3.0 SL-149@P@P\@P\00@P\@P\ҁ@P\@P\ 01 %+199'+Y@P\ @P\0@P\mKB u0>@P]@P@P.@P3DELQMST  @PBDLYASSN  @P\@PQL  3k[@P\0360@P  @P  @P\w@P\@P\@P\@P\@P]TV\\\hTZ\ȷhTZSȩd@ hT3\ȩ (T3\\\T@P]2B\ș '\B\\\B\ȋ '\B\\\T\\\\Ҝ@P]]\Ӝ dR '\3\\\ d\\Ŝ" ($\ d\\,\d\  , d\@P] \h\ \d\ހihT\@P]\\b ^p\w dT\\\x d\\\\\y d@P]\\\\\z d\\\\\{ d\\\\\| d \\@P^\\\}\ d\\\\\~ d\\\\\ h\_\\\@P^,T\֖X ̖W 2\*̿\h̺\hT]_\@P^W_\̭\h\S\_\̡h\\_\\ h\_\\\ h@P^\_\\\\\ h\_\\\\ h~\_\\\\ hr\_\@P^\\\ hf\_\\\\ hZ\_\\\\ hNT^R_\\\\@P^ hA\_\\\T^-\Μ ̞\h)\\_\\^\\  3l[@P__\\hTS\\_\\\ "_@P]_@P]_@P]_@P]_@P]_@P]_@P]_@P]_@P]_@P]_@P]_@P]_@P^ _@P^ _@P^_@P^_@P_\h\S\_\\ "_ׄ\hӄ\ h\_\_\\ !r\h̾@P_G\ h\_\_\\̿ !]̫\ḩ\ h\_\_\\̨ !F֤@P_r\ 1n\d 9(\\\n\ل\hT_d\ l\-[d 9%  3m[@P_\nd_T\_ل]lT\_׬ 1nd 9%nl\]_@P_T^\]Z\]\ ḽ\d_\_\Z _\\@P]_@P]_@P]_@P_\@P]u_@P_ l  TZ\\\ 'T])B]\\!T\ &\3]\\T] ]\;i@P`]\Z\ lR ]M@P]/`@P]>`@P]L`@P]Z`@P]l`@P`T\\\TTPDACRTEPQ8STP `(FMRDEL]PGMIN ]CCSBLK` UTHEAD]OPENFL]!FILERR_CLEAR ]1GETS ]NGETACF]CCSMVA_FTNDT1^CCSCST_ ICALJL_PJULCAL_CCSPUT_PUTS _UPDREC_CLOSFL`PGMOUT`&PDACRTE P`/DACRTE B66 F CCS CCS 3.0 SL-149J  3n[@P@P\@P\00@P\@P\Ձ@P\@P\ 01 %+199'+Y@P\ 0@P\mKB u0>@P] @P@P.@P3DELQMST  @PBDLYASSN  @P\@PQ@P\0360@P  @P  @P\Q 9000  3o\@P\ww@P\@P\@P\@P\sO@P] TV\\\hTZ\ȸhTZSȧd@ hT3\Ȫ (T3\\\T@P]4B\Ț '\B\\\B\Ȍ '\B\\\T\\\\՜@P]_\֜ dR '\3\\\ d\\Ŝ" ($\ d\\,\d\  , d\@P] \h\ \d\ހihT\@P]\\b ^r\w dT\\\x d\\\\\y d@P]\\\\\z d\\\\\{ d\\\\\| d \\@P^\\\}\ d\\\\\~ h\_\\\\ h\_\\\@P^.T\ٖX ̖W 2\*̿\h̺\hT]_\@P^Y_\̭\h\S\_\̡h\\_\\ h\_\\\\\@P^\\\\ h\_\\\\ h~\_\\\\ hr\_\\\\@P^ hf\_\\\\ hZ\_\\\\ hN\_\\\\ hBT^T_\@P^\\T^/ϔ\Μ ̞\h)\\_\\^\\_\܄\h@P_TS\\_\\\ "_@P]_@P]_  3p\@P]_@P]_@P]_@P]_@P]_@P]_@P]_@P]_@P]_@P^_@P^ _@P^_@P_\h\S\_\\ "_ׄ\hӄ\ h\_\_\\ !q\h̾@P_C\ h\_\_\\̿ !\̫\ḩ h\_\_\\̩ !F ֤\@P_n 1n\d 9(\\\n\܄\hT_d\ l\-[d 9%@P_]nd_T\_ل]lT]_#׬ 1nd 9%nl\]_@P_̹\lT^\\_\\\]Z\]\ l̢\d_\_\Z_\ \@P]_@P]_@P]_  3q\*@P_\@P]w_@P_ l  TZ\\\ 'T]+B]\\!T\ &\3]\\T] ]\;i@P`]\Z\ lR ]O@P]1`$@P]@`$@P]N`$@P]\`$@P]n`$@P`$T\\\TTPDACRTEPQ8STP `.FMRDEL]PGMIN ] CCSBLK`UTHEAD]OPENFL]#FILERR_CLEAR ]3GETS ]PGETACF]CCSMVA_FTNDT1^CCSCST_ICALJL_PJULCAL_CCSPUT_PUTS _UPDREC`CLOSFL`%PGMOUT`,PDACRTE PDAQUEL B37 F CCS CCS 3.0 SL-149@Px@Pt @PKDLYASSN  @PZDAQUE  @Pޝ  3rNAL NO CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm PRPGIIH P01 A RPG CCS 3.0 SL-149@P4@11,,..$$00**--CCRR ++}}JJRR//99AAIIJJ%%/* )** ) 1) DIJ) S)  E) F) @P+SKIP ON CONDITION)RPGOBJR9FRCDR9SNHLR9BASER9RPRTR9INVPR9ONESR9COMAR9PERDR9DOLRR9ZEROR9@PVSTARR9MINSR9CHRCR9CHARR9BLNKR9PLUSR9MZERR9MONER9MNINR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AM@PPRR9BLBLR9XLATR9TRCER9RPGXR9RPGOR9FBSE0000$<0"<00"*"+"2$"$$ ,^,"*,fV@PTdV4XTV= , 4 0X*,! "0>"hV4F4HeV4*>+f$+DVR@P*VDVR *VDVR  *VD V(DV)R *V*D V+R *V,D @PV0R *V1D V2D- *V3D<< *V4D V= , 4 0X*, !VJR *@P-VKD",\ ^, /X\^,/X(,6,`/.zn*@@ ,t,*@@p",^,>- .^,n@PXt.(,6, >-. .nt.* l* l* l>2*@Fn  .Ht@P*.jFV DZ VDZ VR 2",V\ ^, =X\^,=X(,6,. @P |@Z{[llP]}M]\Nkk``Kaa@Pzzm^L~~nnoo |[.<(+^&!$J*_)';O\m--@P//bbccddeeffgghhiijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""@P/@PZ{#AABBCCDDEEFFGGHHII})J$K.L"hVR4FeV4*@PD.>Q"QFfZ N4,fX*NVDgPLNh(+VR 0^0 VR  1ǀ1@P16K6K606KVRk 2VR OHHVR6&Q 3VZm 4VZ@P+i5 VRn 6VZo 7VRj .V Rp8*@@656 5 8V!D94OX"q @PV9 ^9 V#Zr :V'R/ V(FsPLNsH6;  <04UX,v >VI@PD;6666B608686086.[ [ ]1@P6^] ]-],06&L1666666060!>L0>L<30060@P066B0 >L0 >L6B.6>2>L16L1:3660>4@P-4<556 : 0>45 484485886 6.66B06B .6@PX6B0>.0.6>7>.186*@<9;6/V#D.>0(XX6YXW06&I06ttttttttt@P16WTR0 tttt>99t9*@U>>>t>t[16Ā =6 =.:1@P=.6=2 =I=t=I ^[ M^0M^B"M^M% Z(+Z86ZJ16\  3tNC@P/16\ PV\ =x=X*Pt86π =066666=36=B6@=86 =@PZ.66=B60=16.&M66M=;6*=^^8fj =t=@544t5vZ;6d55 @P Z4l65  =t=Z `vZ*@;l ` k l=8kkllk =;62==;6`=== @PZ*@;Z`8__` Z86BvZ>Bx= ZtV6D"=\ ^= EX\^=EX(=6=@P`EptV/D==t=tt>BZ5Zt?B 06@P188ZPZt:@ =t=<=ZZ;6abZZ"=trZ.V54KxV6T5>Q"QT1TB.@P\.( =r=ti =r=.(V"?"@   n 70fVTdVT V= 3 4 0@PVX*3! "0>"hVR4EeV4*DVD"5"6V D..VDV.D <D, +@P ;tV4k,5 6V.T V!D. J; . Z.  3uNW@Po5 56 60 V+DV7D"5"6JV$Zp: V+R J>< 7 V7R J@P>.VD.V+, 0><V7, 1>0 1 ==t=, / =t=H<8:5:6@: < =t=., >8}@ A, >/|B   =(r=@P-vA =r=.PDLN 9>2HV(Z8V4Z89>2P"4F4Z4LN 9~ @PXP9<42 2Z2 X4PB.R28 6  06 8 5XD @P 8 2Z28 XR 2  2RXD2V D8Fw, 8r@@@PJ2VD/Fv, /q2t*@@&=<>==>"hV4I4LeV4*PLNf 0H@@PJVTVTVZg< 1VZh( .( /  (r(t.t1r/0t /6H@@P@/ J 0*@@n*@@pn"/,B/ / 6 /n "/-B/  / 6@P /   /HJ*/ jIUDATE  UMONTH UDAY  UYEAR @P P PcRPGIII P05 A RPG CCS 3.0 SL-149@P&i,f},_K7KmsD )   cAND)OR) 1E  3vNk@P+234567) **) N1) O ) PBLR)*ERROR) /* ) DZZC)CO) 123456789)123456789R) 12345678) N) TR@PV) 12345) PAGE) SKIP ON CONDITION)** )R9CMSTR9IPUTR9NSQRR9MMOVR9CMOVR9LAHDR9TRALR9BINP@PR9MHLDR9MMST R9INMKR9FDC1R9INTVREAD12READ13READ14READ15READ10READ16READ11RE@PAD09R9IPBG"7fVTAVT8V= B 4 0X*B! "0>"hVR4IeV4*D@P׮>,j$,VT&-T&.-VT/T VDF>1}}>7"2"4"5$/VZ>0TZV@P>8U>88( 8tttVD"<. Y>080 0>9 U,( :09,VR  <VR  =@P-= < }t}( 9v:ttVD, ,! d(  }t}, ttV*R1 6}}}V,V,V#@PX,V+D $1.VD$>1}}>998,,&T À&XV+R >4B YV,,k ?V0,l?8n@P:?m?@? DV4>>DXxDEE>X EZ C >XN!>8D6 >DDo>6 >6@P6DpDEr60!>8  >66 >80 >  |+ II @P H:DD:C@844>2?82:33>T>X >EBE0Bt B 6D} B@@@P>E 6C~.>F>E V5T T59Ǖ >EC D JV;"GD4LV<@P/ G^G (GYB@>6>5>2"HV=D4MV> HYJB@PZ@>6>5>2>XNV?DJ , J >GHNVA BD"K"L0DK, KVCD@PL, LVEDM, MVGD >J&6J }X}>N}>P}} }> E |}t}? }t}"B>X2>N@P >E>6 >806 > OD(BO:606"1G H6 J ?   B>66E B J.$,>1>7@P1}}PFiLN {H6y yB @|@ y J  }} }^} A"0"8"9>U @P\U( Utt{ttt.>1>5VD>.V*>-V>.&/VD. >2VD V64 2>1%  3wN@Pf }t} 3"4Y.>2 }t}0>998, 43 }t}3 }t}6HH( Q"[, ,@P ,  Z^Z [0 ", [  Z^Z [60>[t(  (r(vQ (r( B^Bn@P6 >x ^B<\^B6\B0^B \*B$x 061H( Q, ,, 0 ",  Z[(((Q(( 0  2VDV6g>5@P3B`VZh$5"6Y }t} U,. }( Br}vBrB24H4L4M4UZ BB2XR@P^0XR"q0X4R2XR(0J2DZO8>OXR- BXR6} B/ @PB"/X\>~ }6 }4 04&A4-JbBtBO }t}2V5DvTzZ{"F"N"PV6 B4,X *B@PPV5L, |2*Bu$FZPBL, N BB 60$ J0"N40X*B@P|0D P PZP(NX*BN6 N0, V8VV ;^; V  ;^;V262@P Z2N +26 H602>2<7>1}} BY B@B*@ *B@P5*Bn"B"O^B]O^B]O }t}(B6BO  -n "O B^BeV6 @ }t}V@O*B@P`tOlO  ,n "B^B }t}(B6B }t} }t}t*@@n"}AB} } 6 }@P "O6HB O 0>O jC B^B"n*B2 8 ZO  B Z @PB }t} }t}O6^Zn ^Zn>28 Z^Z>nZ  BB^Z n6э>S@P^Z6eZ2^Z e2R ;^; R  ;^;R2","1"S"A"U"Y"x"y O^O"\*O$7"@P    *@@n*@@ z*@&~6HB@   }} }^} A 0P P 8RPGIIC P06 A RPG CCS 3.0 SL-149@P#!xN1JiomE+9h 0p55AN) OR) /* )** ) H) @P+SR) 0123456789+-.)0123456789) 0123456789R)ABCDEFGV) 12345678) TAB)01234567) PAGE) 123)  3xN@PV4567) SKIP ON CONDITION)LR) .+- ,)RLABL)*ERROR) TAG )IN) 123456789) R9CALCR9LABL@PR9OPCDR9DETLR9TOTLR9ADSBR9ZADSR9ADSBR9ZADSR9MULTR9DIVDR9XFOTR9SQRTR9MVRMR9MOVER9MOVER9@PMOVAR9MOVZR9MOVZR9MOVZR9MOVZR9COMPR9TSTZYTESTNR9TSTBR9LKUPR9LKUPR9STONR9SETFR9BITNR9BI@PTFR9GOTOR9EXITR9NDSRR9EXSRR9CHANR9FORCR9XCPTR9DSPYR9DEBGR9READR9STLLR9TIMER9FTNX @PR9DBGVWRIT20WRIT21WRIT22WRIT23WRIT18WRIT24WRIT19WRIT17R9CLBGR9LSTR*@&i@n7*@@@P-n":";"N"l"o*B&YB., p    "T"b"dVT0fVTVT8@PXV= m 4 0X*m! "0>"hV4O4CxV4*"8"9>7T&8kT&9PVD&7>o@P"o07LNhH  X,6X76Xo6XoXoӣo6Xb6Xb%6XV!T)@PXJ3^6XY"kVD T 3TA%4L4>:$:tn>;>NVTMF+V40(V h, @Phth$k0>;>N>:0>Nt$N>:$:n8>;0 >;$;t0>89|( SV D ;$k>7@P5>8D4N h V , ,hthV D4N h V , ,hthVD4N@P/ h V, ,hth>7VD*.d O ]V  U^U, n H IF E"Gl O ]V! @PZ6V^V, 0 J Kt O ]V+  W^W, L M6XBL6"m6HmmH6JmJm L hthJ6@P6HH hthH6͊hhM6"m6ImmI6KmKm M hthK66II hthI6͒@Phh"=">"? 6V6D{06, } >V8, ~ ?V:, *B *  =6#>=>?|%6X X >>@Pۿ?E6F>>?G@'6XX >= >= >>?>?V5Rz <B<y<&6X>LN B@0J4@P6X<>?0C06XB>:N09>d6X3-6X&d26XB)VD E8D V+D@P1 B 806XG B0 $6XXXF6< -6X!6X<X6L6 6^@P\% <>>? =0 hth> ? hth>ko. >TT hth"T.>;>Tn T. htht)@PP8B hh h^h l0D O2B mZeDTIB^"[4,X*m"@Rt  3yN@PmB m^mXB,O m<[ €@m>2*m$[R @m,> @ B B@ 60"A"@40@PݰX*m|2D A@! ARA(@X*mF]@ hthA 6hhA 6hhA  hxh0@P62m @^@ m  B^Bm2R ,O$G0,O GBO J  F24@P3,O G0,O GBO J F2R 4',&`  F GBF6>`0,@P^G0,G VO2D 2PF D +LX4 N Q J,6X7Xd6O0@PH,6X7X&1@116d6O<S)"VQ2PF LN f|r2H@PJf2D .4' m"@X4' R+ A^A @*m|*mX^mD hthx@$F2>ot@P>7k>:>N8>T*@@6n."hlBh/ h 6 h( (n( "1HB 1@P 1(161HB1(1 6 0 )mm HB , ((n (@P56OH@6v 04H4L4M4O4UZ mm2XRR0XRp0X@P`4R2XR0XR$0D, mp6m8m>2m @^@ m  \^\m2> =@P? >"?2DO2R ,u B  V1D%Z6 m 6m m e @PV4DZ8m m 6m m mJ24',v B  V1DZ6 @P > 6 mV4DJ2,wV1DZ6. mV4D€m8m ZZ! B@P Z8m Z 6m 6m m 6Z J6Z m2>2D2TPX, m@P7m2 hT0X3&_XPh:L h4 ,X*h6X N + g_  JHX66@Pb6X g<2"5"/"c m4- .X "a\6pc6p/5acR/aC2>a/X*md6O&!@P j5 /6 jtj4+-/F6\6p DR 1B1mmhhX0m. hxh0>"F2d@P6O$ j( 4tjX"m4'\>i hxhX(m6m|>2X4'm a^aD( hr4mF6@Pjtjrh<2BEGSR RLABL 4TAG ADD "# Z-ADD "! SUB "# Z-SUB "!MUY  3zN@PLT "#DIV "#XFOOT "!SQRT "!MVR "MOVE &aMOVEL &aMOVEA $AMHLZO &A@P9MLHZO $aMHHZO $AMLLZO &a COMP '! TESTZ $" TESTN $# TESTB %$ LOKUP '% LOKU@PdP )'&!SETON ' SETOF ( BITON %)BITOF %*GOTO +EXIT ,ENDSR -EXSR .@PCHAIN (/FORCE 0EXCPT 1DSPLY (2DEBUG (3READ 4SETLL 5TIME "6EXITF @P7P P:RPGIIO P07 A RPG CCS 3.0 SL-149@Pna 4L`X2k ** )/* )AND)OR) ADD)*PLACE) PBRL) XY@P+Z 1234ABCDJKLM) '$')'*') N) 0123456789AB) *PRINT) MR) 1P) 0123456789R)ABCDEFGV) 123456@PV78) PAGE) 1234567) B) SKIP ON CONDITION)*ERRORR9DOTTR9TOTTR9EOTTR9OTPTR9ECODR9EDCNR9@PXCODR9YCODR9ZCODR9BINTR9FTOVR9PAGER9FSTLR9WOTVWRIT20WRIT21WRIT22WRIT23WRIT18WRIT24WRIT@P19WRIT17R9UOTVUPDT26UPDT27UPDT28UPDT29UPDT25YUOT06YUOT07YUOT08R9AOTVADDT30YAOT02ADDT31@PADDT32YAOT05YAOT06YAOT07YAOT08R9OTBG*@&c@n(*@@*B&X$i"."/"0"I"e"f"g  @PVT0"ifVTVTIV= d 4 0X*d! "0>"hV4OdV4*D>ie@P-VT&UVD>i>j dtdt2V4E4T 4HDf>..(.0>//(/0>00@PX(0 1":"Vt"ht"2VT&3VDy@zV4F&4IZ6dd>3B3VD,@PV, @( 5"6"_V,V,V,>_"jV D+{.>:ddVGD>j>4>6(dd@P7 d(656td0>6,,":V,V,V,V(4*&YZg;8n"9V PD ' @&=@PفI:dd:V-D9<<I V T'T >22 8;(2 dtdt;.02 dtd.$j"^V'@PRGV,>94 V'4B. B 4 V&4 <q01R4BI RV&4 <r 0!4 V&4 c  3{N@P/>=<><04X&^4Y^D=Z^IR8 >< 9V'4B&> dtd;822V-TϿ^~@PZTѿ^~ dtd.>j dtdt2>.>/>06HB 6 I 0 AI@P @A*@ *A*A*@@(n "deBd d 6 dn"dfBd d 6 dn@P"dgBd d 6 d *B@ jAPFxL>iN a|h. HBs  dd d^d@P d@&KdgBKdfjiU @ >4 >6(dd7 dtd"4,@P"V"h"6( 5. d( ArdvArA2A  BD3B C^BXD R  dX dB CA@P1 dtd2 ADRA BX,A B>B@"@B7>66t72 ADRA BX,A B6@P\ dtd$:2V TRt"[ CV!4,X*C0C$[ZC,k BB@ 6 b dtd0,"F"E@P40X*C|0#D ZlE EE(FX*CF6 dtdE ddE  dxdE  dxdV @P,j<[ €b9  B V,4P  04B8 B [ b+ `` H8;o@P2 "L M"N"O"P"Q"SV-4'u:SmX>N4$X40>O$,0,, M(L$N"P$O040@P4*,04&&d >c,>d4 MPL>P 4'\>c,0X4'04C \>c,X@P34R"Q R$P04-$Q0 >PRQ S dtd 8L6Hx 0(At;822@P^ dtd"BV-4'uV.4' \>c dxdX(B6B|m0 X4'B \^\Dv(rA8 B dtd drd0Z0-XZ0%X4RX XhR/p0XR5]&W@PX V  6]| J08/._ 0>W]0XR: J JJ K^K J  K^KJ2HPLN@P + b V T?V$BNj 2H2>Vh(r56>V dtd drd2( 8 1 drdv8r8a >3 d@P td2 J(S2P PRPGIIA P08 A RPG CCS 3.0 SL-149  3|N@P#T5_/g(J6MHLDFILX00/* )** )*EQUATE @P+) *FILES ) ALTSEQ ) 0123456789ABCDEF) SKIP ON CONDITION)}JKLMNOPQR) {ABCDEFGHI) @PV R9ALSQR9FDTBYEXENDR9FBSER9FINSR9CARAR9MARAR9CLSVCLOS38CLOS39CLOS40CLOS41CLOS36CLOS42@PCLOS37CLOS35R9TOTVWRIT20WRIT21WRIT22WRIT23WRIT18WRIT24WRIT19WRIT17YCLS09R9FNBGR9UDATR9@PUMTHR9UDAYR9UYER*@@@n*@@"]"^"_6-HB _ UU U^U @PU]BU^B@s @ BÀr@|qd 0*@@n"U]BU U 6 U@Pn"U^BU U 6 U   *@@( n*@&T@ Y Z"R"W"X"."3VTg@P-0$W,VT TT =,,>W6R,,n"X". RB &0B&1,. >3 >."X$.>W@PX t$0$1"3V 4,,,nQ64 4,f X(464 3 0>X".$X$0$1$V ,n(V@PV8+ ,. ,$V6 H@,l(V 0*B VThTn$0"1,V@PTTi,0,>-n-6t0>,n,6t0 \ Y Z ["U6@Pٯ (UU6\U[HB``Y@n,6t0 0  `: H B8@ @P @ >^`n(`0  ,J @lBkB / >T SxS*/0  @P/ /0x*/x . HB@,0, BB FH,*60 FH,*6 . @PZ B  ?FH >F J>G>I P >G JVTdT"O,VTO= > @P7FH>?B,0,>:(  9:,P ;GI>@C,0,(  :9,*6>O*>0>O@P۬ . ((n (6Htt 06'H"/t /  /  /  @P/ /  / B / /t/ 0VTjjMfVTV= / 4 0X*/! "0@P1>"h2"//a b6H 6/ a6/  b 0>1b >0a StS(//%  3}N@P\62V  /,*/2DR X X XXm J2>2 [ a@P"`V:(`0^a [a a`^a [`YHJ2N V|e2H2PQ48L2t B @P 7 7 /88 80/ / / StS/ / StSt/6 =  B( @P* 70/t/ 7B 8, @@&F@&HJ2 B  7t 6 =  B( 7* /t@Pt// 7B 8,J @@&F@&H7 / B  >T SxS*/2*/x0x2>O K J <<<T>L H>J:08n6L cxcJX*<2>O D K J<M "N<< ED64-E@P^XL >J:@P08p6L J *N2 K J <>J9 >T cxc*<2 K K J  <0>JK cxc*<>J@P>K cxc26(n 2Be  S(  erSdc d2P PRPGIIM P09 A RPG CCS 3.0 SL-149@P {Kt  6"l"m"n ^l^l^l^l@P+^lm^l^l^l^l^ln^l (l6l>m ,,,d6,>n , ,  ,@PVd6 ,, ,d6,6B,,d6 ,6 Ed6 <6 H8<6< 8=@P6=:> 2 < = > 0<6 2 H,d< J0,,d6 @P,d6 . /.@BF 36 H8363 8464 :5 2 3  4@P  5 0362 H < = > BNBAX/ A@XE/ DXE0B , @PB 0/ Hd< J. "fH^f <(f6f d<2 g"h"i"e:ű(e0:(i0:@P-(h00^g )gg<2d6d6d62S O R T E D F @PI E L D N A M E S NAME TYPE LENGTH DPS O R T E D L A B E L N A M E S NAME@P LINE THE FOLLOWING INDICATORS WERE SPECIFIED BUT WERE NEVERUSED TO CONDITIO@PN OPERATIONSTHE FOLLOWING INDICATORS WERE USED TO CONDITION OPERATIONSBUT WERE NEVER S@PETTHE FOLLOWING INDICATORS APPEARED IN THIS PROGRAM 01020304050607080910111213141516@P/17181920212223242526272829303132333435363738394041424344454647484950515253545556575859@PZ60616263646566676869707172737475767778798081828384858687888990919293949596979899 @P 1PL0L1L2L3L4L5L6L7L8L9LR H1H2H3H4H5H6H7H8H9  OAOB@POCODOEOFOGOV U1U2U3U4U5U6U7U8  MRP P CRPGROT P10 A RPG CCS 3.0 SL-149@P @PU@P@P H@P`P9@P@??@PE  @d ?@@Pp+h hr  3O@Pm%"X hŘ+ @uT 0@Ph T - T hX zhvh  @P@ T w  @ T ykhml! @{TVh@P hX 'DhGA $@}T2 Ch X @PG1h% / @T< ChmXf 3 T X@Pu RL=PF=TPF=FBP= OP= PC=hI2+h   4hlI@Ph(;ER`jt~ *>IT_hqw@P&EP|Rhr !5? JXcAleXY7@Pl]XQ/ȠlSXG% =lIEj=j?5@P! wl/s*"h l`ZjXPd@PLRlI@BdRi=ɪ5l1+l'@Pw!l*lX "HlH*3@PhAl~uhr ohmdhkl@Pb Wj PjHGjA;j@P l'?h*"hh~h@P#hq hT hWZWLON@PN"AD՚A"698-0/$'Ƞh@PydhH@>T23 5 d@PhhH Th} xvp jDhid@Pdh_`T00Z  3O3@P @ @& "h( h&#HhH@ TZ@P%u "h hHhH@T#V H"@PP hKhdhHl" \TTh @P{ hTit ?X l "}h @Ph$HhLhehxHqo_p2Hlgkhl@PHi`eY^\LEj4DKch>:3j"@P- "h/ h-*Hh&H#@ TX/ l4Tsh@P'h%hT$/h  L  lH@PRh׈hӐ7homT6[hh 'Tbch@P}VphKhh~*"hohkX l@P]h!|hToh |0hx 3q" F@Pl~elzc loXcTld{ H/@Ph ?@#TBC("!B 1BHT"l5y@Z{[lP}M]\Nk`@P)Kaz^L~no|J_'Om-/@@@@@@@@@,%;>?@@@@@@@@@@: ="X)@PT"H @T XTHp.V)X NLXO   .@P@VT XH @ ThT CBHhdX@PT  h|hhXh2h^ h[rh@PlhhgXv X)C h@WhQMX[@P X(hXI Xh(Xd5 X@P+nhXU!bhX h X X hc  3OG@PVm"?Xΐ6hjhrxA hR h @@PT--hF7h?X8  =h| @TE *hmX @P9A hfR h`B hZB*hQhX rX @P @ TL 0h0 @T ChX  T Xn**@P **** SEGMENT ***Xp @ AT ..X/+l4X*%l/s! dX @P -j T X7 "_ hYZ********ERROR O @P Xhh25h/TL uH h B @ @P T0 @ T  ,@T  :@ T hX# _X B @@P T XV *hR1 RPG II COMPILERPAGEThv) phn 8@P 0hki!fhd 9a2\ hYWT 2 ɀ@@P d h2T  *hXY@P /"hhh " XDhhl@P Z X  bbbH h !h TL xD BnH @P /H=h7:o B0%H4"3h h33 h* C. h&#l#$%h" L !1h @P lX hADlh /h;  bhQh P  @P DECK ID *** RPGII OBJECT SUMMARY-117PR9RPGX@P`P )@P /PABCDEF`P Z @P dPABCDEFk  3O[`P @P  d /dhhh`"e"aaa h X hh`@P hHXẌ`"e"aaȿaȿ h XȹX1` h  @P h h h T X_/l XMH 5 S0h X@P  X(RPGOS0 j q `XX*ThX YA `POVLYPT CTRACE @RPGROTPSRLVL DCKIDN PR9ARG R9MIW R9LBY R9BASER9MVB aR9SBY R9MVW OVLAY PRPGROT PRPGDMY P11 A RPG CCS 3.0 SL-149@PPRPGROTP P$RPG P12 A RPG CCS 3.0 SL-149@Ph Dh h h TZRPGSM0    Xݐ$PRPG "R9BASE$OVLAY PRPG P$RPGII P13 A RPG CCS 3.0 SL-149@Ph Dh h h TZRPGSM0    Xݐ$PRPGII RPGXX RPGYY RPGZZ !PRPGII a  3Oo PR9ADSB P14 A RPG CCS 3.0 SL-149@Ph]['hY hXhVTRhTSNMIHJhJHGhHhGhFDBT&@P+ d(5 h321h2h1h1.,T%'% R9SPACcR9SKIP\R9OCODPR9PLUSrR9ZEROtR9BLNKsR9WOTVSGL  3OP PR9BEG1 P20 A RPG CCS 3.0 SL-149@PPR9BEGNPR9ENDLP PR9BEG2 P21 A RPG CCS 3.0 SL-149@PPR9BEGNPR9ENDLP PR9BEG3 P22 A RPG CCS 3.0 SL-149@PPR9BEGNPR9ENDLP PR9BEG4 P23 A RPG CCS 3.0 SL-149@PPR9BEGNPR9ENDL]  3OP PR9BEG5 P24 A RPG CCS 3.0 SL-149@PPR9BEGNPR9ENDLP PR9BGCL P25 A RPG CCS 3.0 SL-149PR9CLBGP PR9BGOT P26 A RPG CCS 3.0 SL-149PR9OTBGP P R9BINP P27 A RPG CCS 3.0 SL-149@PHohmhlHj lhghed_~h^ h] WHW!  hUHQQhQJTlH@P+EFHTK* ~dh9H32 l0/29XO;(h* h'!@PVHX, %*HX"lh @PhhlhhXhhH hؠ l nѐh@PB@'d  @Pgiy`@P(  3OPR9BINPPR9LBY (R9BASE)R9CLR12R9ACC1KP PR9BINT P28 A RPG CCS 3.0 SL-149@PHDhhCehCHA l?>=8h8[6h7Wh3Th40 Fl.-.%)h#XJ&%FC.@@P+h=h lX5 h  1 h!hH@PVM HThȈAhhH h bтb H@PPR9BINTPR9SBYT[R9ACC1kP P)R9BITF P29 A RPG CCS 3.0 SL-149@PT'h!H hh hhThTh h TPR9BITFPR9SBY R9LBY R9BASE R9FLOWR9NXTX"R9AC1SPEND P*R9BITN P30 A RPG CCS 3.0 SL-149@PT&h"H  hh hhThThdRh TPR9BITNPR9SBY R9LBY R9BASE!R9FLOWR9NXTX#R9AC2SR9AC1S  3OPEND PR9CALC P31 A RPG CCS 3.0 SL-149@P TT T dPR9CALCPR9NXTXY9LSTRY9TOTLY9DETLR9PRCLR9FLOWYERRSWP PeR9CHAN P32 A RPG CCS 3.0 SL-149@PT,HYhXUTR HP ! " TC-7<'h8h<&h6@P+2/h31/@/T(%#$Th !hT ` @PVTTPR9CHANPR9SBYTKR9BASE%R9FLOWR9CVEAWR9MVBT4R9PCK1=R9UPK1 R9BINTR9CNTRYR9NXTX R9ZEROHR9ACC1@P PR9CHAR P33 A RPG CCS 3.0 SL-149@PkK[\`@Nal@@`P+PR9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS R9MZERR9MONER9MNINPR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9XLATR9BASEPR9RPRTP ];  3O P9R9CHIN P34 A RPG CCS 3.0 SL-149@P WdT`l%T"(TThT @P+ T T)TPR9CHINPY9FPTL7R9INMV-R9SETN2R9STH0!R9ASQRR9CRIN R9GETSR9CNTR4R9FRMKR9FCTR R9INRP0R9INTVP P R9CKXF P35 A RPG CCS 3.0 SL-149@PT  PR9XFCKPATTACHP PCR9CLOS P36 A RPG CCS 3.0 SL-149@Pl>= "-L855""+L/L(&@%T"l T"@P+@T+b @TTPR9CLOSPR9SBY )Y9RPTRBY9FLPTAY9DTPT@R9FILR=R9IOCL:R9PUTS0R9CLRER9TOTV.R9CLSV8R9BASE*Y9FDTBR9ONES&P PR9CLPR P37 A RPG CCS 3.0 SL-149@Pd @ T f"  <" "dT"bQ!@P+ %TH0TD5d7(TTE h>"h1X׈  3O@PV hIh 3HhTh 6$@PP"1I 3 ~"hdx_"@P8"+H s h hI-GE1* l9,6 b@P1A hj*bAb#DbB h}X zbb!@dRa@PB he6 hgTHehf1$^[b^.lTX`QTKbN*JFbA@P-bGDb@ ;h<89T3Th401T%+Th,H'"h%@P+&#"h!hhhT T> TPR9COMPPR9LEL CR9LBYT#R9GTL R9FLOWR9RSTSGR9NXTXIR9ADSBY9ALSQ,R9BLNK8P PR9CNTR P44 A RPG CCS 3.0 SL-149@Ph$h#H  TXwhTS!X[ h `h0H.h.@P+H'h&-h,h,h,X-!hTS!KhHX3E jXM  "h `@PV   M%  !"h X " @PXX A"T$HTPRPGFILR9CNTR&R9JUMPRR9SGTB^R9SGIXTR9CKSGcR9MUNOSATTCHKtR9BRAKPRMUCLO]RMUCFT\RMUCF0[RMUCSWZRMUOPNYR9TAPFpEXPIRECNTWARkTSAREA>R9PORT R9MODER9UNIT R9USER SYSMSGPPGMIN SLICUPATTACH:R9RPRTP   3P7 PR9COMP P45 A RPG CCS 3.0 SL-149@PThNHLKUGFhGhFChD AhB>?T9Th956T(0Th0@P+ *)h''.h$"h!!h hvh@h T THc@PVT TabhhC h! hTlhؘ!+@PT| hT{jh˘!T'h'hh̺hصصش@P1 hȥTPR9COMPPR9LEL MR9LBY %R9BASE&R9GTL !R9FLOWR9NRMXYSIGNIR9UNPKgR9RSTSR9SHFTR9NXTXR9AC2SR9AC1SY9ALSQ2PR9BLNKCP P R9CRIN P46 A RPG CCS 3.0 SL-149@PTfHPR9CRINPR9IDMXR9INTBP PR9DEBG P47 A RPG CCS 3.0 SL-149@Pd DEBUG-INDICATORS ON- NONE FIELD ARRAY TABLE VALUE T/H( dh#X@P+XX "@ \c  H (hT 1S h@PVO h ! hhX>Ƞh%hhhH@P l͜h!Œh l hX `  3PK@Ph \ h hHT  hJ @h}T@PwX}z1oj@ \X_BXCZhfK U@ h^\ HP@@P \HJFhJhS hEhBK  T@0H@31h1--,TNXiX8&/@P-Xh&hhhh  @hT@PKhhX1@Th@PvhԈh@TrʈhhTX%Xȼ hXȸhth̷T@Pرتȯ̪1T؜@TPR9DEBGR9DBG13R9DBG2bR9DBG3R9DBG4R9DBG5B9DEBGJN9DEBGPR9LEL R9BASE8R9MVBXR9SBYXR9FLOW R9PUTSR9CLREHR9MTRNR9UPK1'R9LOCLR9INDMR9TSTNR9RYST&R9NXTX2PR9DBGVR9ZEROR9MINSR9ACC1R9STTSlP P4R9DETP P48 A RPG CCS 3.0 SL-149@PT dTdl ll 1@ TT@P+&2 TPR9DETPYBGCYC PY9HNUM3Y9HIND2R9STH0+R9FLOWR9TP40 R9CNTR/R9VIND R9OCODR9VSWT Y9DOTTR9HTINP PR9DIVD P49 A RPG CCS 3.0 SL-149@PTheHcaT] TW hWhVhUQP @ T @P+ d$) d/ h210h*&h%'T3 h#"!hhi<  3P_@PVTG1 h  h1S h h  N>fs w |@P! h !8TX!h hufǐh@P TWHȸhTȯ hȰTTHh HT @TȗT@PPR9DIVDR9MVRMB9DIVDgN9DIVDPR9MVW R9MIW "R9FLOWR9NRMXR9STH0R9RSLTR9SHFTR9UNPKR9NXTXR9AC1NR9AC1SR9AC2NR9AC2SR9AC3NPR9AC3SPEND P;R9DMND P50 A RPG CCS 3.0 SL-149@PTl21TT%T  dThT@P+ TTTPR9DMNDPR9INMV/R9ASQRR9STH06R9SETN+R9NXRC R9CRINR9BLTR#R9CNTR1R9INRZR9FCTRY9FPTR9P P-R9DSPY P51 A RPG CCS 3.0 SL-149@PT.H d"h H"h@hT `( T @P+b@%ThXh~ H}X{@{Tv@$Tpho@PViqoh1khdcf@bTf[`T[Vh\YTgNT hQJhJ ITt@PhK!D! @@dR6h:7H50 l-$$1h'$h"@PhThl T@T  3Ps@PK hh) bThhhTs1!@PT hȶhȹ1ȵhȻ bȷ@Te@%T1DSPLY PR9DSPYB9DSPYN9DSPYR9DSY1PR9LBY R9SBY R9MVB R9BASE R9FLOWR9UPK1R9PCK1R9CLR1xWRIT17,READ09+R9GETSQR9PUTS&R9MTRN(R9CLREPR9RYSTR9NXTXR9MINSR9NINER9ZEROR9BLNKpR9ACC1P PR9DUM0 P52 A RPG CCS 3.0 SL-149@PP PR9DUM1 P53 A RPG CCS 3.0 SL-149PR9NXTXP PR9ECOD P54 A RPG CCS 3.0 SL-149@PXHjHix he'HdHbHbHl[&g#hW a&hQhMLXYKXWE@P+hIhGHE$?h?H=6h=Dh9,5h*,h*)h.-X3*h( 3@PV QhX%5 h% h h JX@P HThhX"H1Xh֐hʠ$X(@PTThɔ1k6XȹT1ȵhT2ȨTإ@PPR9ECODR9ECDE^  3PPR9LBYTR9GTL R9SBYTR9OTM1R9CHAR$R9CHRC!R9ACC1R9EDT3Y9INVPUR9EDT4=<9h75&"h4,1(h&%X,X0!F#!TD @PVX h`Th! HTh @PHXDh  tPR9EDCNR9EDNEPR9LBYT~R9SBYTrR9GTL OR9CMBDR9OTM1R9ACC1nR9DOLRbR9STARaR9BLNKcR9ZERO_R9MINS^R9CHAR]R9EDT2 R9EDT1 P PR9EDIT P56 A RPG CCS 3.0 SL-149@PT TTTTPY9ECDEY9EDNEY9YCDEY9ZCDE PR9CNTR R9ZCDE R9YCDER9EDNER9ECDEP PR9ELOC P57 A RPG CCS 3.0 SL-149PR9ELOCP PR9ENDL P58 A RPG CCS 3.0 SL-149  3P@PPR9ENDLPR9BEGNP PR9ENTS P59 A RPG CCS 3.0 SL-149PR9TRCER9FSTLR9FTNXR9PFCBR9FDC1R9CMSTR9MMSTR9INMKR9MHLDR9DETLR9TOTLR9LSTRR9DOTTR9TOTTPR9EOTTR9ALSQR9CARAR9MARAR9UDATR9UDAYR9UYERR9UMTHR9FDTBR9TBIOR9DSEQR9FBSER9LABLR9INVPP P R9EXCP P60 A RPG CCS 3.0 SL-149@P dTTPR9EXCPPR9CNTRR9TP40R9OCODY9EOTTP P%R9EXIT P61 A RPG CCS 3.0 SL-149@P T) T)" ""h H " \PR9EXITPR9NXTX Y9LABL#R9PONT!R9FLOW Y9FTNXP P/R9FILR P62 A RPG CCS 3.0 SL-149@P@D 3 hH !hHT   " '&#$%  3P@P+(PR9FILRPR9STH0R9FRMKP PR9FINS P63 A RPG CCS 3.0 SL-149@P  d PR9FINSPY9TBOT R9TBOTR9CLOSYERRSW P P3R9FLDL P64 A RPG CCS 3.0 SL-149@P"h+* h%h%$h!-Hhh1h   h @@P+PR9FLDLPR9BASEY9FBSEY9FDTB P PR9FLOW P65 A RPG CCS 3.0 SL-149@PhHhh T \ T PR9FLOWB9FLOWN9FLOWPY9TRCER9RESTR9SAVTR9SAVE P u  3P PAR9FMAL P66 A RPG CCS 3.0 SL-149@Ph<h8h7H33h)`(T$@"T@TT @P+ Fh\T(h bPR9FMALB9FMAL;N9FMALPR9SAVP0R9SAVE'R9REST/Y9IBUF2Y9FSTL*R9MVBXR9BASER9PUTS%R9WOTV#P PR9FNBG P67 A RPG CCS 3.0 SL-149PR9FNBGP PR9FORC P68 A RPG CCS 3.0 SL-149@PT-H "0HDPR9FORCPR9FLOWR9FFCB R9NXTXP PtR9FSTL P69 A RPG CCS 3.0 SL-149@PFTXYpqrsNHdR RPG FORMS ALIGN: ENTER 1-RETRY, 0-CONTINUE .@PqPR9FSTLPWTREADHR9UNITIY9IBUFVP  3P PR9FTNX P70 A RPG CCS 3.0 SL-149@P hON" "h_  j[ Ah1 H:;" MTH11j2.j7j<-'2Tl @P+h% `Dl%+ T8 A dhTP j  h `PV`PY`P`@PgT Hh"  " A hTCP`ݘ  T7@P9 `P @PPR9FTNXPR9999B(R9LABLCVASEBR9BASER9FLDLR9MVB P P:R9FTOV P71 A RPG CCS 3.0 SL-149@Ph5 h4H14b"+T dXXb 2d"h#`C @P+THAPR9FTOVB9FTOV5N9FTOVFOV40 /PY9DOTTY9TOTTR9TSTNR9POSO-R9OCODR9FTSW!P P]R9GETS P72 A RPG CCS 3.0 SL-149  3P@PHV!HR O@LTJTG1 0B@dRa9:h6h5 D(@P++`+)X & !`#!Xh0`XhThT  h @PVPR9GETSB9GETSWN9GETSR9CVAE;PR9LBYTJR9BASE!R9SBYTNR9FILRR9IOCL R9XLATAR9TFLG*P PGR9GOTO P73 A RPG CCS 3.0 SL-149@PT+f"b d T T( h%$dT*@P+$d+.2T09"d$PR9GOTOR9EXSRR9NDSR'PR9FLOW(R9STH05R9NXTXER9STRT&R9UPOPR9PPUP@Y9LABL R9INRZd:9h=749h2+Jh2)0h/ h+ l- @ T @P`Q":"#3ARh  hh@PT`hTh1XDTAh hhA TT@P-A h  q T(ȼTHTشhX̲ lȫ lXTCآh@PXȝTȚhPR9INMVPR9SBYT R9LBYTUR9MIW R9BASER9CRINRR9LOD1]R9BINP>R9CVEA:R9UPK1,R9PCK1R9LCAER9FLDLR9SETNMR9TSTN6PR9MINSMR9BLNKR9NINER9AC1NR9ACC1  3Q'P PR9INTA P80 A RPG CCS 3.0 SL-149@Ph T|GZ""d"+HkLgMh\@P+cJh__H h]T VhVT5Q@TK0. DhFdT@PV 6TS4h2,@ATC&0T h To@PPR9INTAB9INTAN9INTAPY9ITLP R9CNTRR9STH0|R9MVTA[R9GETShR9SPTPR9SWCH4Y9INVPY9UDATY9UYER/Y9UMTH&Y9UDAY!R9OPNF@P PR9INTV P82 A RPG CCS 3.0 SL-149@PPR9INTVPREAD16READ15READ14READ13READ12READ11READ10READ09P  3Q; PR9IOCL P83 A RPG CCS 3.0 SL-149@PH hDa hT\ T PR9IOCLR9DRTNPR9SAVPR9RESTR9SAVE P PR9IPBG P84 A RPG CCS 3.0 SL-149PR9IPBGP PR9IPUT P85 A RPG CCS 3.0 SL-149@PPR9IPUTPR9CHINR9DMNDR9MTWKR9ICTLR9INITP PBR9ITLP P86 A RPG CCS 3.0 SL-149@Ph87 "dH1+1Ah'TH%"H#TH!h!H1Ah @P+nh@T3TPR9ITLPPR9MVB 2R9BASE4R9FLDLR9LOCLR9CNTR7Y9FDTBP P!R9LAHD P87 A RPG CCS 3.0 SL-149  3QO@PLl(T@ T , @dRaPR9LAHDPY9KALA Y9KAPFR9INMVR9NXRC P P R9LBY P88 A RPG CCS 3.0 SL-149@Pt"H" PR9LBY P P`R9LCAE P89 A RPG CCS 3.0 SL-149@PHRhRHPTHOhOHM#JAGhIHEFhF>>Th<H99h760,3@P+/h./h-,h(+):""TBTNT hT ld @@PVPR9LCAEPR9LEL @R9GTL ;R9CLR1IR9UPK1YACC1BMR9ACC1_R9STH0CR9LOCLR9FLDLP P3R9LEL P90 A RPG CCS 3.0 SL-149@Ph,H, h&H% H$h$!H"h"H* h!d #h@P+PR9LEL R9GTL P H  3Qc PYR9LKUP P91 A RPG CCS 3.0 SL-149@PT# Hd"h ""\Fh hq Lo"lo hh hiDhla@P+hhm\& h[g\! hV\ hP hPIhL. hG ChBOMLMlK91@@PV l401l.T H"`\p H"3 l"hhTa @PHt"`y\T  Thh ch]bbbh`YYhWQ YY @P"\JhPEhMhLh\hE\dAh@ <!" Ƚ@P-A :\ h̶<TȡT̩-@P R hhH̅\ h \ h16@P-T f""̾`\ȿf""̽`ȹ\T ȷ3 AdMd@PX PR9LKUPPR9MVBTR9CLR1GR9BINTR9NXTX1R9LOCL~R9PCK1/R9LEL R9GTL R9SETNR9INRZR9INRMR9CRINWR9INRPYACC1BTPR9LBYTVR9BASER9RYSTR9FLOWP P/R9LOAD P92 A RPG CCS 3.0 SL-149@Ph(4h%T"TTH!Hl hhlh h H T hl@P+PR9LOD1PR9LBYT!R9CLR1R9XRSD R9AC1S.P 5S  3Qw PR9LOCL P93 A RPG CCS 3.0 SL-149@P"hAh H@hPR9LOCLPR9BASEY9FDTBY9FBSEP P6R9LRCK P94 A RPG CCS 3.0 SL-149@P h. h,H,+"'H'Q h$h hdRh0$ $@P+PR9LRCKPR9LRSW.Y9PFCB P PHR9LSMB P95 A RPG CCS 3.0 SL-149@PXXXX+40X$T+hDa@P+ Da"@P9 $T!+PR9SBYXR9LBYXR9MVBXR9MIBX9R9MVB R9LBY R9SBY R9MIB R9MVBTR9LBYTR9SBYTR9BYTAPR9STH0=R9BASEGP PR9MIB P96 A RPG CCS 3.0 SL-149@PhHh T h  3QPR9MIB PR9SBY P PR9MIW P97 A RPG CCS 3.0 SL-149@PD PR9MIW P PR9MMOV P98 A RPG CCS 3.0 SL-149@P`H{ChRHm highbh!$!@P+TT"+"LTJHƐhB@`ȽT;Ϡ ht4T0T @PVdȨ(TȤA#  h! O XRG%TThH !Trh hH @P hh X)TzhH X"4 h hd!ddR@Ph dd"Ih1h hh!T0hTزز@Pט"Ȭhtȡ@TEPR9MMOVPR9MVBTR9SBYT7R9LBYTR9BASER9NXFLR9STH0nR9PCK1[R9LOD1PR9UPK1TY9MHLDY9MARAR9MRSWR9MRPRR9CFILPY9DSEQR9ACC1WY9ALSQ3Y9MMSTP P"R9MOVA P99 A RPG CCS 3.0 SL-149@PT d  h h 2 h `Tw%  3QPR9MOVAPR9MVBTR9FLOWR9NXTXR9RYSTPEND PR9MOVE R01 A RPG CCS 3.0 SL-149@PT` "l#l"l!h h% LA A "Ah"B\.\V\a\@P+!5 "_ TVWTTd|NL4MhLHhHFFhDEhDBAB@?TU@PV99"6h674T 0-11)*T8% h''! " "~h@P1#  h Ȣ/ 3  "`2 TT@P.%/-`)"&l&TT"`TTȿT@P"ص@PR9MOVEPR9MVW R9MVBTTR9XRSD>R9LBYTT#$7h;7h532dRh-+T7'#h#dRh@PVTIJLT6YhdRh TX_[PR9MOVZPR9SBY kR9LBY ^R9BASElR9FLOWR9NXTXnR9AC1Sz  3QPEND P+R9MTRN R03 A RPG CCS 3.0 SL-149@PH%h"hHThh T PR9MTRNPR9SBY R9LBY R9BASER9XLATP P3R9MTWK R04 A RPG CCS 3.0 SL-149@PTd d #T\hL"hT ,\  lT@P+PR9MTWKPR9NXFLY9PFCBR9CFIL0R9FLOWR9CNTR+R9LAHD/R9INMV R9NFCB.R9MRSW R9MRINY9LAHDP PuR9MULT R05 A RPG CCS 3.0 SL-149@PTHhhh !@ T_^h_h^h][YTS hQPOhPhOhOLJT hIH@P+hF !BAhA& h<;6&34h5fA .h, H)1TC dO:@PV= dR h h d TPR9MULTPR9MIW R9FLOWR9SETNR9RSLThR9NRMXNR9SHFTR9UNPK%R9NXTXjR9HLFJR9AC3SVYLSPARdR9AC2STR9AC1NR9AC1S[PYACC1OPEND   3Q PR9MVB R06 A RPG CCS 3.0 SL-149@PhHh hTT hPR9MVB PR9SBY R9LBY P P;R9MVBX R07 A RPG CCS 3.0 SL-149@PXXXX&" !   )@P+A"T:"PR9SBYXR9LBYXR9MVBXR9MIBX&R9MVBTR9MVB R9LBY R9SBY R9MIB R9LBYTR9SBYTPR9MODE*SYSMSG.R9BASE9P PR9MVTA R08 A RPG CCS 3.0 SL-149@Ph T h\h[hZhYhXhWV"#5@KSeIJ@T@P+'@d+>6.T7/d;R+>TB%dFG ITDM?QT@PVThXT9\ d`cT^ gdwz TV|@Ph d dTEA"T~ ʀ/h! d@P1Ⱦ/+$hThThثثحȣ/Ȧ! Ȣ!@PT .bȋb PR9MVTAPR9LBYTR9MVBT)R9LEL R9STH0R9BINPOR9UPK1DR9PCK1R9LOD1iR9MINSR9ACC1R9TANFR9RECPg  3QP P R9MVW R09 A RPG CCS 3.0 SL-149@PHH" fAPR9MVW P PR9MVWD R10 A RPG CCS 3.0 SL-149@P"PR9MVW P P R9MWI R11 A RPG CCS 3.0 SL-149@PD "2PR9MIW P PiR9NRMX R12 A RPG CCS 3.0 SL-149@Ph 'h_ h^h\ h[Y2 VhTR lPN !KIFlGF !C hA? l=@P+<!8 dh64l1/++h)&!%%l# h" ! l l l@PVȺh l h 1 ޭPR9NRMXPEND PGR9NSQR R13 A RPG CCS 3.0 SL-149  3Q@PhCHA" h>=@:Th9 41 0)T9&b$h#   @P+ @@dRa h 9 bb PR9NSQRPR9RDEN R9STH0P P)R9NTOA R14 A RPG CCS 3.0 SL-149@Ph#4h$$H !ThhThh T h  TPR9NTOAPR9LEL R9SBYTR9AC1S(R9CMBDPEND P"R9NXFL R15 A RPG CCS 3.0 SL-149@P h"HA dh0 hPR9NXFLPY9PFCB R9CFILP P.R9NXRC R16 A RPG CCS 3.0 SL-149@P l+0L'! @ T l T@T 0 l@P+PR9NXRCPY9XRTE-Y9XRPF,R9GETS"R9RCADR9TRALR9INTV _  3RP P8R9OPCD R17 A RPG CCS 3.0 SL-149@P4   %@P+ ,PR9DBGVR9OPCDPR9TIME6R9STLL5R9READ4R9DEBG3R9DSPY2R9XCPT1R9FORC0R9CHAN/R9EXSR.R9NDSR-R9EXIT7R9GOTO+R9BITF*R9BITN)PR9SETF(R9STON'R9LKUP&R9TSTB$R9TSTZ"R9COMP!R9MOVZ R9MOVAR9MOVER9MVRMR9SQRTR9XFOTR9DIVDR9MULTPR9ZADSR9ADSBWRIT24WRIT23WRIT22WRIT21WRIT20WRIT19WRIT18WRIT17P PdR9OPNF R18 A RPG CCS 3.0 SL-149@Pl^ l][ "-LV?S"" LO T +F@dRa> %@P+T*/#  <b ',!!@TT@PVTT0 PR9OPNFPR9TAPF-CNTWAR)Y9FIPTbY9PSFGaY9FDPR`Y9ITLPTY9INTAOR9CNTRYR9ITLPWR9STH0]R9FILRIR9TSTNR9IOCLFR9INTARPR9OPNVDR9BASEY9FDTBP PR9OPNV R19 A RPG CCS 3.0 SL-149@PPR9OPNVR9TINV  3RPREAD16 READ15 READ14 READ13 READ12READ11READ10 READ09OPEN08OPEN07OPEN06OPEN05OPEN04OPEN03POPEN02OPEN01P PR9OTMG R20 A RPG CCS 3.0 SL-149@P dhhTT  H0000HPR9OTMGPERRO46P PR9OTMV R21 A RPG CCS 3.0 SL-149@PLzlyHr h holKhl )i".M`h}f _1n X UXbP  @P+h GTC+@>+:9H 3 1 -1b) 'd$@PVdQA hTHH h B `ThWX h@P`TdhWhX-hW hR qhII lRA h @Tb@PLHd0H7 `3TH- +h)*T hH# h 1&T@PTȟ ? }@hȖ hpho "bHfXmA haT@PTWh XP$hNTGEEhCXJB@@@T<h88h8!4h62@P-T/.!h*X#h"ThhXXwh  A h @PXTmThX@T`Th#@PhX8 hXh hXh#hX& hTHȲ`  q @Pȳ hȭ hȧ HȗT.5O~  3R+PR9OTMVR9OTM1R9PGSWPR9SBYTR9LEL gR9MVBTuR9BASER9ZCODR9YCODR9EDCNR9BINTR9STH0jR9TSTN1R9CMBDAR9CVAE{R9PCK1R9CLR1PR9ECODR9PAGER9UPK1R9LOCLR9LCAER9FLDLR9BLNK+R9PLUSR9ACC1VR9MINSY9PAGER9EDT4R9EDT3R9EDT2YPR9EDT1WP P R9OTPT R22 A RPG CCS 3.0 SL-149@PPR9OTPTPY9EDNEY9YCDEY9ZCDE Y9ECDEYBGCYCR9DETPR9EXCPR9OVOPR9TTOPP P:R9OVOP R23 A RPG CCS 3.0 SL-149@P H6-""  ! b " T T@P+TT- d$TPR9OVOPPR9FLOW(R9OV501R9OCODR9CNTR6Y9DOTT/Y9TOTT+R9FTSW4Y9FDTBR9SKIPR9BASE R9VIND"R9CLINP P7R9OV50 R24 A RPG CCS 3.0 SL-149@PL43/L.-h*)B"h"!L "  b2 @P+dTHLPR9OV50r  3R?PR9POSS.R9FTSW&R9OCOD,Y9FDTBR9BASEY9VFT16Y9FSSA5P PLR9PACK R25 A RPG CCS 3.0 SL-149@PhEhh>h>h; h:7A4h3 5a h31h/.Ġh,(h'((dRh#T@P+ Hhhhh h  T*lPR9PCK1R9PCK2PR9SBYT@R9AC2SR9AC1S PEND P!R9PAGE R26 A RPG CCS 3.0 SL-149@Ph+HHTh l TPR9PAGEPR9PCK1R9CLR1R9ACC1 R9PGSW R9EDT4P PR9POSS R27 A RPG CCS 3.0 SL-149@PHwHt lnlnlo nlklhljice  $ lX lUX!UC lOQM@P+lJ lKKlH  HCBC l>>Ml9 6D T .$+1('@PV$Ch"ThH%S 1"T @ T@Pkhhhhhhhh hThhhll@Plll hH̿H1Tk H#.H@dRa,T@P H T @TؓȜ@hT@TȐ =  3RSPR9POSSR9POSOB9POSSyN9POSSPR9BASEPOSSKAxPOSSPAwPOSSKBvPOSSPBuR9FLOWR9PUTSR9FLDL[R9OTMVR9CLRER9BDPRqR9TSTNGR9FTOVR9UOTVPR9WOTVR9AOTVR9OCODtP P)R9PRCL R28 A RPG CCS 3.0 SL-149@Pd @ T @ T "dT"d"! @P+%TE-TA2d4(TTB h\;"1kM"hP@PV hPKIhK 3/@HhA=Th69h74 ! .!"(@P+'"R"1"Ih 3y  n@P"x"""h1h &h hhAh @Ph˨h -hW1h8 l,h @PbA hubhDbAbB h\ @P-bvb!@dRalB hiD ehnTHlhl^1Hh1c_bc@h[dRa@PXYlSX` PTHQOGbK1 E@bBAb@Db 83b5/b1b@P*H(d"2)"h d 1+ d'@P"H d "d dHhd׀h h@Phh0 d ̢@hTLhHȾ hظȩ@Phh0 ̠蟂lܜ"ȕ hؒPR9PRCLR9STRTR9NXTXPR9BASE+R9LEL 6R9GTL /R9BRAKR9MIW R9LCAER9LOCLaR9FLDLCR9TSTNmR9CNTRFR9PONTR9RYSTR9CLIN=R9STTSb  3RgPR9INRMR9INRPR9INRZR9HLFJR9FCTR R9AC1NR9OPCDY9LSTR9Y9TOTL+PEND P+R9PRFN R29 A RPG CCS 3.0 SL-149@Pl'L%% ! @lTlT@T $lbPR9PRFNPR9SBY R9BASEY9RECP*Y9COUN)Y9FIPR(R9CLRER9PUTSR9WOTVR9ZEROP P+R9PTCH R30 A RPG CCS 3.0 SL-149@PT&T&T &T &T&TPR9LOADR9PACKR9UNPKPR9UPK3(R9UPK2$R9UPK1R9PCK2R9PCK1 R9LOD1R9AC2S R9AC1SP PUR9PUTS R31 A RPG CCS 3.0 SL-149@PHN+HK*hH.>b#h?>9h9 h6 `1/X,`,*X '@@P+$T"Th 0`XhThH T  hPR9PUTSB9PUTSON9PUTSR9CVEA2PR9LBYTAR9BASER9SBYTGR9FILR0R9IOCL-R9XLAT8P PR9RCAD R32 A RPG CCS 3.0 SL-149@P H_h_`'W@TQ0HKJGb!GFb"@T<-A7  3R{@P+@!T#106)'h(7 h!&h!hhT?hTMNh@PV!  -@dRa@a@-T/0(@PSh'h&@T`'"&T`TT0@d@PRaOTPR9RCADB9RCADaN9RCADPR9MVB R9LBY RR9BASER9FILRR9CVEAR9TFLG SETL33R9IOCLR9STH0R9GETSzR9INTVxP PR9RDEN R33 A RPG CCS 3.0 SL-149@PH[HZYHYVb hTQbOb hLJEBbA@ e<:h<5h6@P+ 1h42T&h0*.0 h+$-h$"  h @PV h h +h+# h110 @Pbh{h@T hm! HPR9RDENPR9LBY 0R9BASE1R9MINSJR9ZEROPR9CHRASR9CHRJMR9AMPRFR9BLNKBR9TRALP PR9READ R34 A RPG CCS 3.0 SL-149@PT0TPR9READPR9FLOWR9CNTRP T  3R PSR9ROOM R35 A RPG CCS 3.0 SL-149@P@P+@P4  PR9ROOTY9PFCBY9FDC1Y9CMSTY9MMSTY9INMK Y9MHLDY9DETLY9TOTLY9LSTR Y9DOTTY9TOTTY9EOTTY9ALSQPY9CARAY9MARAY9UDATY9UDAYY9UYERY9UMTHY9FDTB Y9TBIOY9CMOVAY9INTABY9ITLPCY9LAHDDY9MMOVEY9NSQRFPY9PAGEGY9TBOTHY9INVP Y9DSEQY9FBSEPOSSPBPOSSKBPOSSPAPOSSKAR9OCOD!R9RECP"R9TANF#R9TFLG$Y9APFX%PY9ASPC&Y9COUN'Y9DTPT*Y9FDPR)Y9FIPR+Y9FIPT,Y9FLPT-Y9FPTL(Y9FPTR.Y9FSSA/Y9HIND0Y9HNUM1Y9IBUF2Y9KALA4PY9KAPF5Y9PSFG6Y9RECP7Y9RPTR8Y9TOP19Y9VFT1:Y9XRPF;Y9XRTER9ERTN?Y9LABL PY9FTNXJY9FSTLKR9USERLR9UNITPR9MODEQR9PORTRR9EDT1R9EDT2R9EDT3R9EDT4 PR9FSTLKR9FTNXJR9LABL R9TRCEIR9FBSER9DSEQR9INVP R9TBIOR9FDTB R9UMTHR9UYERR9UDAYR9UDATR9MARAPR9CARAR9ALSQR9EOTTR9TOTTR9DOTTR9LSTR R9TOTLR9DETLR9MHLDR9INMK R9MMSTR9CMSTR9FDC1R9PFCBP PSR9ROOT R36 A RPG CCS 3.0 SL-149@P@P+@P4  PR9ROOTY9PFCBY9FDC1Y9CMSTY9MMSTY9INMK Y9MHLDY9DETLY9TOTLY9LSTR Y9DOTTY9TOTTY9EOTTY9ALSQPY9CARAY9MARAY9UDATY9UDAYY9UYERY9UMTHY9FDTB Y9TBIOY9CMOVAY9INTABY9ITLPCY9LAHDDY9MMOVEY9NSQRFPY9PAGEGY9TBOTHY9INVP Y9DSEQY9FBSEPOSSPBPOSSKBPOSSPAPOSSKAR9OCOD!R9RECP"R9TANF#R9TFLG$Y9APFX%  3RPY9ASPC&Y9COUN'Y9DTPT*Y9FDPR)Y9FIPR+Y9FIPT,Y9FLPT-Y9FPTL(Y9FPTR.Y9FSSA/Y9HIND0Y9HNUM1Y9IBUF2Y9KALA4PY9KAPF5Y9PSFG6Y9RECP7Y9RPTR8Y9TOP19Y9VFT1:Y9XRPF;Y9XRTER9ERTN?Y9LABL PY9FTNXJY9FSTLKR9USERLR9UNITPR9MODEQR9PORTRR9EDT1R9EDT2R9EDT3R9EDT4 PR9FSTLKR9FTNXJR9LABL R9TRCEIR9FBSER9DSEQR9INVP R9TBOTHR9PAGEGR9NSQRFR9MMOVER9LAHDDR9ITLPCR9INTABPR9CMOVAR9TBIOR9FDTB R9UMTHR9UYERR9UDAYR9UDATR9MARAR9CARAR9ALSQR9EOTTR9TOTTR9DOTTR9LSTR PR9TOTLR9DETLR9MHLDR9INMK R9MMSTR9CMSTR9FDC1R9PFCBP PR9RPRT R37 A RPG CCS 3.0 SL-149@PT......@P+@P;@P @C@PPR9RPRTR9INTBR9CLIN R9HTIN R9VIND R9USNDR9MRINR9FCTR"R9STTS:R9HLFJ>R9REPT?R9RYST@R9ACC1YACC1BPYACC1ObR9AC1SR9AC2SR9AC3SR9AC1NrR9AC2NR9AC3NR9PPUPBR9UPOPaR9INRZ;R9INRPN9PUTSHB9PUTS3PR9PUTS?R9POSOhN9POSSmB9POSSbR9POSSgR9OV50fR9NXRCR9LAHDR9IOCL:N9ICTLQB9ICTLLN9GETS,B9GETSR9GETS%PFILPTR(FOV40 eN9FTOVlB9FTOVaR9FTOVdN9FMALEB9FMAL0R9FMAL7N9FLOWkB9FLOW`R9FLOWcR9EXITWR9DSY1#N9DSPY+PB9DSPYN9DIVD\B9DIVDTR9DBG5"R9DBG4!R9DBG3 R9DBG2R9DBG1N9DEBG*B9DEBGR9CMOVMR9CVEA6N9BDPRDB9BDPR/PR9BDPR5N9ADSB[B9ADSBSP PaR9SAV3 R43 A RPG CCS 3.0 SL-149@P "%:AFIOR] @P+# ADFJ'(M@PV./1328P<=PR9SAVPR9SAVTPR9TP40[R9SPAC7N9SKIP?B9SKIP*R9SKIP6N9RCADB9RCADR9RCADR9PRFN4N9PUTS>B9PUTS)R9PUTS5R9POSOZN9POSS_PB9POSSTR9POSSYR9OV50XR9NXRCR9LAHDR9IOCL0N9ICTLGB9ICTLBN9GETS"B9GETSR9GETSFILPTR FOV40 WN9FTOV^cz  3RPB9FTOVSR9FTOVVN9FMAL;B9FMAL&R9FMAL-N9FLOW]B9FLOWRR9FLOWUR9EXITLR9CMOVCR9CVEA,N9BDPR:B9BDPR%R9BDPR+PN9ARTHOB9ARTHIR9ART1KP PkR9SAV4 R44 A RPG CCS 3.0 SL-149@P */DKPSY\g @P+&'- K@PV$NPT12W89;=<BZFGPR9SAVPR9SAVTPR9TP40eR9SPACAN9SKIPIB9SKIP4R9SKIP@N9RCADB9RCADR9RCADR9PRFN>N9PUTSHB9PUTS3R9PUTS?R9POSOdN9POSSiPB9POSS^R9POSScR9OV50bR9NXRCR9LAHDR9IOCL:N9ICTLQB9ICTLLN9GETS,B9GETSR9GETS%FILPTR(FOV40 aN9FTOVhPB9FTOV]R9FTOV`N9FMALEB9FMAL0R9FMAL7N9FLOWgB9FLOW\R9FLOW_R9EXITVR9DSY1#N9DSPY+B9DSPYR9DBG5"R9DBG4!PR9DBG3 R9DBG2R9DBG1N9DEBG*B9DEBGR9CMOVMR9CVEA6N9BDPRDB9BDPR/R9BDPR5N9ARTHYB9ARTHSR9ART1UP P R9SAV5 R45 A RPG CCS 3.0 SL-149@PPR9SAVPPN9TBOT B9TBOTN9PUTSB9PUTSR9PUTSR9IOCLR9CVEAP PR9SBY R46 A RPG CCS 3.0 SL-149@PvH HlnY  3RPR9SBY P PR9SETF R47 A RPG CCS 3.0 SL-149@PT% hh TPR9SETFPR9FLOWR9CRIN R9NXTXR9AC3SR9AC1SR9STTSPEND PR9SETN R48 A RPG CCS 3.0 SL-149@PTH@hdRe  dRdPR9SETNPR9IDMXR9FTSWR9INTB P PCR9SHFT R49 A RPG CCS 3.0 SL-149@PHh;55h641h1.h0/l- l,)*1'h%""h hh@P+hl! l ! hPR9SHFTYLSPAR>PEND PZR9SKIP R50 A RPG CCS 3.0 SL-149@PhW HT&  JbI2lGG TDB1@h>=T:h63T!-@P+@T &b b#!Tb 3 Xh&T b"l  3S@PVPR9SKIPR9SOVSDB9SKIPWN9SKIPPR9SBY (R9BASE)R9VSWTVR9SETNLR9CLRER9PUTS/R9PRFN9R9CRINR9WOTV-R9ONES%R9OCODGP PR9SPAC R51 A RPG CCS 3.0 SL-149@PlbLT ! b 7  TPR9SPACPY9ASPCY9APFXR9PRFNR9SOVSR9FTSWP P8R9SPTP R52 A RPG CCS 3.0 SL-149@PHh/,TH*(b$TH#h# l H1Ahbb0@P+ h bbPR9SPTPPR9LOCL R9FLDLY9FBSEY9FDTBP PR9SQRT R53 A RPG CCS 3.0 SL-149@PT hjHghhdT @ T\ TTSAhPhOK "hK FHD@P+E hD hChA? 6 5 0h21+T h) @ T!@PVhhfP hHq  f` T h h@P;kf ! h نfTyK f.!  3S@PQ Hȿغ TJX خȭȭ h T|1T@P ȕTPR9SQRTPR9MIW TR9FLOWR9SHFTR9UPK3 R9RSLTR9STH0R9NRMXR9NXTXR9AC3NR9AC2NR9AC1NR9AC3SR9AC2SzYACC1BPR9AC1SP PLR9STH0 R54 A RPG CCS 3.0 SL-149@PhBlFH? 7H55 8rG`- dhT,(%  @P+T *! ddT.A"  PR9STH0PR9MODEAY9ERCDKERRO46R9CNCL;R9CLIN9R9CNTR=YERRSW3P PeR9STLL R55 A RPG CCS 3.0 SL-149@PT1HR"'hM&HIIhJhI$CT?%?A15 4h2Tq93TX=9h" @$T hh $@P9@ D  h 9TiX@P nh hyӠ"=h:hTh Tؿȷ/@P D@ T9ȶT -@KT ON OFF]fpx@P  !$'*-0369<?BEH@P-@P]INPUT RECORD FROM.SELECT RECORD FROM. CONTROL BREAKS. TOTAL CALCULATION.TOTAL OUTPUT. @POVERFLOW OUTPUT.GET INPUT FIELDS. DETAIL CALCULATION. DETAIL OUTPUT.PRINT RECORD ON.WR@PITE RECORD ON.ADD RECORD TO.UPDATE RECORD ON. LAST RECORD CALCULATION.LAST RECORD OUTP@PUT. ADD.Z-ADD.SUB.Z-SUB.MULT. DIV.XFOOT.SQRT. MVR.MOVE. MOVEL.MOVEA.MOVZ0.MLHZO.MHHZO.@P MLLZO.COMP. TESTZ.TESTN.TESTB.LOKUP.SETON.SETOF.BITON.BITOF.GOTO. EXIT. ENDSR.EXSR. CH@P4AIN.FORCE.DSPLY.DEBUG.READ. SETLM.TIME. EXCPT.PR9TRCEPR9MVW R9GTL cR9BASER9LBYXR9SBYXR9MVBXCR9USNDR9INDMvR9TROTR9INTBP O  3Sk P#R9TROT R64 A RPG CCS 3.0 SL-149@PHh /hhX TL$ TL"PR9TROTPR9UNITWTREADP P2R9TSTB R65 A RPG CCS 3.0 SL-149@PT" H(h(&h'&Th# hhT hhh h h  T@P+PR9TSTBPR9LBY R9BASER9FLOWR9RSTS)R9NXTX+PEND PR9TSTN R66 A RPG CCS 3.0 SL-149@Ph Th h  hPR9TSTNPR9IDMXR9INTB P PBR9TSTZ R67 A RPG CCS 3.0 SL-149@PT h;H98 h65h65Th2 h1/!(1% h !1@P+  h TPR9TSTZ  3SPR9LBY R9BASE R9FLOWR9RSLTR9SETNR9RSTS:R9NXTXh<H9'`  T h0h51/A,h/H--T`l'(h'@P+ Dh"hDlhhh 1E   LPR9UPK1R9UPK2R9UPK3PR9LBYT%R9MIW R9AC3SR9AC2S R9AC1SPEND PR9WOTV R70 A RPG CCS 3.0 SL-149@PHTFPR9WOTVR9UOTVR9AOTVPR9STH0ADDT32ADDT31ADDT30UPDT29 UPDT28 UPDT27 UPDT26UPDT25 WRIT24WRIT23WRIT22WRIT21WRIT20PWRIT19WRIT18WRIT17P PR9XCPT R71 A RPG CCS 3.0 SL-149s.  3S@PT3TPR9XCPTPR9FLOWR9CNTRP PmR9XFOT R72 A RPG CCS 3.0 SL-149@PThcH` @ T dU hS QdhOLhNLLT * hD "@P+h<: f4 H21h,)62fC H!!l@PVT h T* TPR9XFOTPR9LEL WR9MIW R9FLOWR9SETNR9UNPKR9NRMX]R9RSLTcR9NXTXeR9RYSTR9AC2NER9AC1NGR9AC2S(R9AC1S^PEND P"R9XRSD R73 A RPG CCS 3.0 SL-149@Ph  !!  h h PR9XRSDPR9MNIN R9MONER9MZERP P:R9YCOD R74 A RPG CCS 3.0 SL-149@PXH2h0H0/h-,h*&h$&"T h$ H T@P+ T+PR9YCODR9YCDE  3SPR9SBYT3R9OTM1R9ACC1R9ZEROR9PERD%R9SLSHR9BLNK0Y9INVP!P P-R9ZADS R75 A RPG CCS 3.0 SL-149@P H'h'%$h%h$h#!T !  dTT h T@P+PR9ZADSB9ZADS(N9ZADSPR9FLOWR9UNPK R9RSLT%R9NXTX'R9AC1SPEND P8R9ZCOD R76 A RPG CCS 3.0 SL-149@PXH.H-*h*H+)h'&h'h%h!Thh h  T@P+ PR9ZCODR9ZCDEPR9SBYT*R9OTM1R9ACC1R9BLNK'R9ZEROP P*R9999B R77 A RPG CCS 3.0 SL-149@P( h#h# sL r BHhBHh F FQdPR9999BPR9BASE%P P CATGET R80 A RPG CCS 3.0 SL-149:u  3S@PH"h"hhTZ` ******PCATGETP PCATLOG R81 A RPG CCS 3.0 SL-149@PTZ CATFILPCATLOGCATSEGPCATLOG PCATLU R82 A RPG CCS 3.0 SL-149@PTTh ""D  PCATLU PLOG1A Q8PKUPQ8PREPP PCATSKL R85 A RPG CCS 3.0 SL-149@PH>H&H#  Q  ` &T   #@@P*HH jv   q@PAHh  n  hQ*LIBEDT *K,I6 *K,P8 *P,F,2,RPGFI@PlL *B 'R9CNTR' *B 'R9ROOT' *B 'R9RPRT' *B 'R9SAVE' *B 'SYSMSG' *B 'CREATE' @P*B 'FMCALL' *B 'STRACE' *B 'RPGOBJ' *B 'R9ELOC' *T *K,I8  *N@P, ,,,B *K,I6 *Z *V *END PCATMOD*CATJCRASQUEEZn  3SP P5CM00PT R86 A RPG CCS 3.0 SL-149@P h-h-Dh(DBh&H&H% Bh0$hDl Ȉ QH @P+ @PCM00PTCM00GTP PiCM02IN R87 A RPG CCS 3.0 SL-149@P , hHhDhShShhhhCd h hH hh@P.hhTh  ØؽغTe"ȶbȱbȭb@PYȬhflȡ`ȜبPCM02IN DELIM PCM03GOMCM00GT5P PmCM03GO R88 A RPG CCS 3.0 SL-149@P Hh`31hHR4 "D"h$H" aAA bDbb b@P0Dbb" ba@@l`P[`PlPCM03GOP :  3S P+CVASEB R89 A RPG CCS 3.0 SL-149@PH%H"""bRh {HHX hXn  " H PCVASEBPR9XLAT P P0ERRO46 R91 A RPG CCS 3.0 SL-149@Pd"h%h$h#h" cdhE"h "hdT)*h``P+PERRO46ERRPROPSYSMSGY9IREG&R9ERTN#P PFMCALL R92 A RPG CCS 3.0 SL-149PFMCALLP PFORTN R93 A RPG CCS 3.0 SL-149@PX/X+X'X# XX}X$X@P+)Xa"a X" XIb XFb XCa X@b bX>Bh7Ah8X h0T`L05"-,h)( @P+h%% h#h"hT`LH! 1 h  @H@PVLPIO00WRIO00WOP PMOUNT R97 A RPG CCS 3.0 SL-149@P8 `P+`P,`P-@PF D@000000 000000*  3T @P `P@P$$MOUNTS  cny8ACKMV@P UNRECOGNIZED PARAMETERS INPUT ERROR. WANT TO CONTINUE? FILE NAME IS@P MISSING FILE MANAGER ERROR MISSING PARAMETER.EXPIRATION DATE WRONG LENGTH. PARA@P$METER TOO LONG. CODE NOT A OR B OR E .Tc8T["Dh;H@POT[ PTH_)[gT/* Ah$ h@PzHTQF-(HT RBHHH #hkT[(hhT@P !` /hh\FX6 TTZ]T@P,,'TnTTcTZThh@P ?T@P-?/h)%A@0h h hT   T,_9@P+8(h9:*h=>.h;+hAB2h@PV=<,hh2h5h hh0h2h h h1h-h@P h T#Ѡ0  T !T! #2@PhȲ01h Ah  h ȥhHT@P1 T 6T! A>h Ah h @P#1h # 2hHT@PPMOUNT 8o  3TPCLEAR 9WRITEROPENFLACLOSFLCM00PTCM00GTIO00WOIO00WRcCM02INROOT43PMOUNT P$Q8PRMS R99 A RPG CCS 3.0 SL-149@Ph Hq``X`HX" hPQ8PREPQ8PKUPQ9PKUPPARABSP PSELMU S05 A RPG CCS 3.0 SL-149@PT!TT!"#H "f" SELECT MULT@P+IUSER FOR RPG RUNTIME REPLY 0 OR 1 (RMUCF0) @PV SMALL, MOST LARGER, ALL FEATURES OF @PRPG FEATURES RPG INCLUDED (MOVZ, BIT  OPS, M@PAG TP) L PSELMU PSYSMSG PGMIN WTREADPSELMU PSTRACE S06 A RPG CCS 3.0 SL-149`P @P Hh j qhPSTRACE  3T3P PSUBRAJ S07 A RPG CCS 3.0 SL-149@Ph{"" ^T1ZT6 hol PT! ^a!H_ h`\! 1=Y@P+hOQRM@EKhH?E?2 1'8' qv.1,@PV|!$""#T"A  @PPSUBRAJPR9MZERuR9MONErR9ZERO}R9MINS+R9BLNKR9999B R9FLDLR9BASESYSMSGeP PSUBRED S08 A RPG CCS 3.0 SL-149@Ph}X1qHzdw iX6uhpX!`mHkXzT!Xfh___T `@P+X? SK + .J:8AA <": #"7 H"*@PV1 })!TTc TiT~"@P" TPSUBREDPR9ACC1DSYSMSGxR9CNTRsR9BLNK;R9999BR9UPK1%R9FLDLR9BASER9EDT4 P P+SUBRFL S09 A RPG CCS 3.0 SL-149@Ph'"" T!H T!  T%"PSUBRFL  3TGPR9FLDLR9BASE'SYSMSG!P PdSUBRIN S10 A RPG CCS 3.0 SL-149@PhOXX1F\ShKXSIXPGXM1;\H hBXG15\B h=XA1/\< h8X;1)\6h4-  J, @P+ '($  TGTO"@PV" TPSUBRINPR9999BXR9FLDL`R9MVB FR9ZEROYR9BASEHSYSMSGKP P^SUBRMV S11 A RPG CCS 3.0 SL-149@P BHLhHXM!=AHCXG\D !5:˜8:h9X=4H6X9\6 !'-Ø+-+2)h(X,\)!@P+%V!3d ! "TK"@PV" TPSUBRMVSUBRLMSUBRMLPR9999BRR9BASESR9FLDLZSYSMSGGP PpTRACER S13 A RPG CCS 3.0 SL-149@PT456`abefXH Ti4mnXTghR22lO@H "< *SE@P+B4l= OPTION 0,1,2,3 TRACE-RPG RUNTIME OPTION E @PVERROR STOP ONLY TL   3T[PTRACERPSYSMSGPGMIN WTREADR9SWCHoP PJOPEN01 S14 A RPG CCS 3.0 SL-149@PT`#hT3#aT74" &T@P+JT* A !T08(aT@PJ3#a)H A DnB  bb H:3#bDfb b b D bb@Pu2@0bEDb BB1@hTH@PXkHbb hh:bcH h hnC TE7h @P8hTLX< h  hTH h 8hTL@P@0bhhhh  "."H-Q@P!B 2"Š  5@0b/ f"  POPEN01OPEN08PERRPRO=STRACER9DRTNDMPTLKiROOT44P POPEN02 S15 A RPG CCS 3.0 SL-149@PT`# T3#aT<96T 6T@P+"K B1 vT+L1  (a"Dbbbb@PVb / B1  Ca TH B1I GTk @P;+b bDb a $h h.HLhyhhv h  h @PhT bbDbRDbd b b 1 "bb bD@Pb bb bb  bDb bDbT#a4$bDa @P(a#aTh 8h TPOPEN03PERRPRO{STRACE R9DRTNDMPTLKERRO46ROOT44ROOT43NTAP48P P3OPEN04 S17 A RPG CCS 3.0 SL-149@PT`XJA1241+T+ $1T=@P+ T(2&T1XT8(aTC# @PVT<3#aTKTW Dc c) c aAa2 ea5ѳu  3T@P,-Ѵ Ahc !Th$2!-)h h oh aT(@PoHo69<53#aM9)aH:*aC($  S@P DRT,*!A B0a)h h ohWT(oHPo@P:%3#a=7"(:*a$9)aK$5! a5 AhñF@P-T#aaHK A DnE bbUd5%ad Ud7'ad @PXAd6&adD_b b b D bb1EDb B@PBT_`-T.!3#aTa8&2 6T@P-X  1T"  T$x7T#nX@P[T"T`(6T*TXZ$ @ 4$a @PT+;TU T,@PT !HhDnHecnXTPOPEN04OPEN05OPEN06OPEN07PFMCLR ERRPROSTRACE0R9DRTNDMPTLKbFMOPENP PREAD09 S18 A RPG CCS 3.0 SL-149@PT`#T #T  .;T3#a@P+  5T#T  1.:*a /0B2a@PV2Db 2%1bXw2bDbA2 @P bgaBH,HWhP, hT3 p7'aϠ2h=1D@PhA 4h hT*(dhT  b2Db0 =6  3T@Pb1T  Db TEPREAD09READ16PERRPROSTRACER9DRTNROOT44ROOT43P PREAD10 S19 A RPG CCS 3.0 SL-149@PT`#T 6T O .;T3#a@P+?/b  1.:*a02 B2a2Db@PV~ 21bXn2bDb"XohY6@P?/b hT" k7'aϠ2h@1DhA 4h hT-@P(dhT  b2 Dbb b: 4 DbT@P(  Dbb b T19b  b T  @PhPREAD10PERRPROSTRACER9DRTNROOT45ROOT44ROOT43P P>READ11 S20 A RPG CCS 3.0 SL-149@PT`#T &$T .T B@P+G T ,.0,TTBb@PV @b/T!@ A?b/+ b/h1)@P " b h h Dh hTA2  D hh\V  3T@PA4 h h #2hT a bd m b1@Pb b #A 2 A 2 a! Ta7'@Paah  !4h h #2hT a  bd @P-:*a2a3#aTPREAD11PERRPROSTRACE;R9DRTNERRO46ROOT444ROOT43NTAP48MNTAP49KNTAP55P P READ12 S21 A RPG CCS 3.0 SL-149@PT`#T $<96T 96T@P+ ?/b 3#aT  Z1Ϡ2hhA h@PV"" :*b hT Ab  "Db1@P b 1 1:blDb A1b2 h @PhTe B2a3)h h hohT( ooQ-y+ @Pנ@0b"+B2a(:*aT8 3#aF A!7@Pb"Db8PREAD12READ14PFMGETSFMRDELYERRPRO(STRACER9DRTNROOT43P PREAD13 S22 A RPG CCS 3.0 SL-149@PT`#T 3#aT%&'T %.,  3T@P+,T#   Rb![)h(#@PVH oh  hT(ooQ%!%@0a2%>.a 4@P2:*a?/bDbbh  h hT 2Db@P bTMPREAD13READ15PFMREAD`ERRPRO/STRACER9DRTNROOT43P PWRIT17 S23 A RPG CCS 3.0 SL-149@PT`#T 3#aT#T - 6T@P+  1T !!bDb 1b@PV*h*$ah$h hT*e7'a h Π1h A hT@Pbb 0 A 1XT9f#A2 "f" @P b ! T PWRIT17WRIT24PERRPROjSTRACER9DRTNROOT45ROOT43~P PWRIT18 S24 A RPG CCS 3.0 SL-149@PT`#T 3#a(T S-T1@P+q !!bDb 1b A  < hT$Q>@PV7'aDH h 1h A hTbb 0 A !  3T@P# A2 " f"  bb bTT_ PWRIT18PERRPRORSTRACER9DRTNROOT45ROOT43iP PMWRIT19 S25 A RPG CCS 3.0 SL-149@PT`#T ,$T!-T B@P2+9   /,A1a 1f"TT ?b 1"h@P] 1b/+ b/ +   A  ;T(7'a@Pa/A h !4h #1hhT a b A @Pb 2b1 b b TXls  !A bDb H@PA h  b#1h hT h !4h #1hhT@P a b+++bDbb 2b1 b b @P4+ TXT 3#a8(aPWRIT19 PERRPROSTRACE@R9DRTNERRO46ROOT43ROOT45:NTAP49NNTAP48PP PWRIT20 S26 A RPG CCS 3.0 SL-149@PT`#T %T  -T3#aT@P+1T' !1b 8(aT/ A1bDb A@PVh ah A hTb 0A 2XTG  3T@P bbB8a5)h 5h oh a hT( oo%A1a%:*@Pa3#aPWRIT20ADDT30PFMPUTSERRPROSTRACE{R9DRTNROOT43eP PWRIT21 S27 A RPG CCS 3.0 SL-149@PT`#T &T & -,T3#aT@P+ @0aT#)1 !1b)h oh @PVh  hT(oo!2!(:*aT+h h  h @PhT b )h oh  hT(o Db2DboTtT@P:*axPWRIT21PFMUPDRFMREAD]ERRPRO6STRACER9DRTNROOT43P PWRIT23 S28 A RPG CCS 3.0 SL-149@PT`#T 6T /-),T3#a@P+T1   ahhh  aH2hTh  @PVhTL )h oh h  hT( ooT,&A1a@P!%:*a%=-aPADDT31ADDT32WRIT22WRIT23  3TPFMWRITnERRPRO$STRACEvR9DRTNROOT43XP PUPDT25 S29 A RPG CCS 3.0 SL-149@PT`#T (T P ,T3#a/@P+T?/a1Tb. h T,QV7'a?@PV9)b hhDh h9"aHA1hT7 !@P  b9b T  2Db?bPUPDT25PERRPRONSTRACE8R9DRTNROOT45ROOT43qP PUPDT26 S30 A RPG CCS 3.0 SL-149@PT`#T BT  ,T3#a/@P+T ?/a1T'?h  a H!hToaH'h@PV"Q" H"T-3;+a @P 8(ab A1bDb  b h hhTJ @P )hhohT)o b2Db?boh:*aPUPDT27UPDT28UPDT29UPDT26PERRPROfSTRACE9R9DRTNROOT43FMUPDRP PSETL33 S31 A RPG CCS 3.0 SL-149  3U@PT`6T  ;T 93#aa&T;!@P+)hhohDa h DbT(oo"(12!(:*aT@PV%B2a3#a1 @0bbDb 2bB?bTT@P~PSETL33PFMREAD=ERRPRO#STRACER9DRTNP P]CLOS35 S32 A RPG CCS 3.0 SL-149@PT`#T 3#aT6T 3a!@P+1  1 2b TDbhdH M@PVbTPCLOS35CLOS42PERRPROSTRACEZR9DRTNDMPTLKPROOT459P P|CLOS36 S33 A RPG CCS 3.0 SL-149@PT`#T 3#ad6T R3a1  1@P+ b ! T)%9b hh@ TM* hT@PVN9:*aDbhdg lbTPCLOS36PERRPROUSTRACEyR9DRTNDMPTLKoROOT457  3U#P PCLOS37 S34 A RPG CCS 3.0 SL-149@PT`#T {$T p.@/+ %@P+b/+ bDb 2b T-TTMT@PVTQTTW"hdc hb@Pv3a- .T]TTu3#a8(aPCLOS37PERRPROSTRACER9DRTNDMPTLKkERRO46NTAP55ROOT45FNTAP56ZNTAP54TP PCLOS38 S35 A RPG CCS 3.0 SL-149@PT`X&#T 3#aT<96T@P+3a1'  1  Aa hB1a5)h 5hohT(5oo@PV)hohT(oo1 h T& p:*aDbhd@P| bToT`XqT`Xh 3#aTV@P6Th4PCLOS38CLOS39CLOS40CLOS41PFMCLOS_FMPUTSPERRPROSTRACER9DRTNDMPTLKP PjROOT43 S36 A RPG CCS 3.0 SL-149@P Hdddh]]ddhUT%rJE"4hE@+O  3U7@P+; 52 H/H-+(!!n!  @PVةFA h &AhefPROOT43MOVE P PROOT44 S37 A RPG CCS 3.0 SL-149@P#HTa#H#2  1b>.b@P' TQ;h2h0>b#$&1 -H, <,b 01@PRX >.bTN_T 2"8. . , ?/b$@P}T[/ؠ  @0b",T >.b h @PbXT*PX  bB2b  bb PROOT44PERRPROSTRACEP PROOT45 S38 A RPG CCS 3.0 SL-149@P#HTa#H1  yAb@P h9 Ab>.bT,Q;h)>b#$11A1a @PF03 16:*aTNV8@PW 2"8. ,$A1aTRA1b ?/b3@PTp:*aA1b2Db b bb T)XPROOT45  3UKPERRPROSTRACEP PNTAP48 S39 A RPG CCS 3.0 . SL-149@PXXXXXXXX, MOUNT XXXXXX ON LU XX, RING,READY? HDR1  0001000@P+100 YYDDD YYDDD 000000 RING #"a# h& h& Dn q @PVh  n q n q n  n  nT(o "&$$MOUNTS  h"@Pn q HX"31B2a h hT( oH " h @Ph hT( o h hX2%<,b h hT(o H hT@P  +hT B0F4Ȁ00h# "+NO hTLT@PNO}  b!0Ts*h=-b:*bT @P, HT)'TAU1* HT( "jh H +H@PWX*T5E, HT/51 . !T^ @Phmhk heba]^ " H "HX @PT|BHDR1VOL1 "h5h4$h3 hhDh hSHBH@Pؠ 0hB Fh TC.Tg)T T@P )e' " "HT@T1THT@P.YPT "HTB0FHB0F00HB0F4Ȁ 00hT>@PY%@ HTX0TTa-Tj6 *DTF(T8 T@P8(aTT8PNTAP48F$  3U_PERRPRO*SYSID qSTRACEFMDELRFMREADFMCLOSFMOPENoERRO46NTAP55ROOT43pNTAP57.NTAP53gNTAP52$NTAP58{P PNTAP49 S40 A RPG CCS 3.0 SL-149@P+#"a#.)-T:8EOȿV1B2aE,XCB@PVb @b6-# /T:,TTg"X"Ab @?bA1@Pa,TqX TTT bPNTAP49-PSTRACENTAP55NTAP56oP PNTAP52 S41 A RPG CCS 3.0 SL-149@P0HohXlh HXgh (h h!2 S Q H0%A h^ XJh@P9 HXEhXBhd(h (h /ȱnm" $ȧ 62 2 hHȜ@Pd- h+ h h"  h2  ؒ@Ph hF2 PNTAP52P PtNTAP53 S42 A RPG CCS 3.0 SL-149@Pd0hH hhh H0%A 0FhHшHl @P9hƐ$" uh h Ȼ8h 0FhHȵhhȮ nȪhh@Pdȣ nȣȥh hثȘ蘀%  3UsPNTAP53P PNTAP54 S43 A RPG CCS 3.0 SL-149@PDhh h}h|y B0FHfB0Fb00H_B0FH[B0FW00HTB0F@P+200HL "hT} F1LBV1h!Gb *DT_(T _ h T@PV4_`NEOh*EOV1  @P PNTAP54NTAP56PROOT43VNTAP55ONTAP58KP PNNTAP55 S44 A RPG CCS 3.0 SL-149@P6@PHL\Hh" a!HA hh (h&hhh@P/ aT`HhA H h(hT ȼPNTAP55 PROOT43GP PNTAP57 S45 A RPG CCS 3.0 SL-149@Pa h l lTH h lPNTAP57v  3UP PNTAP58 S46 A RPG CCS 3.0 SL-149@PhhH |HX hXl q" d   *#C:r@P/> " r < H E A a1"@Z{[lP}M]\Nk`Ka@PZz^L~no|_m [ABCDEFGHI.<(+&]JKLMNOP@PQR!$*);^-\/STUVWXYZ,%_>?0123456789:#@'="PNTAP58P PTDELT59 S47 A RPG CCS 3.0 SL-149@PT`#T BT I ,T3#a)/@P+T T?/a)h Hoh"T f"?bo:*aTPDELT59PERRPRO-STRACEQR9DRTNFMDELR?P PROOT60 S48 A RPG CCS 3.0 SL-149@P@ a agPROOT60P PAROOT61 S49 A RPG CCS 3.0 SL-149@P@2h0 ah)b[&&d2h X"HhbTXHhh"H   3U@P+hg@P4@P8 B  0%PROOT43MOVE P PUPDT62 S50 A RPG CCS 3.0 SL-149@PT`#T BT  ,T3#a/@P+T ?/a1T',h H HHTT-3@PV;+a  8(ab @PA1bDb  b h hhT )hhohT)o @Pb2Db?bo{:*aPUPDT27UPDT28UPDT29UPDT26PERRPROSSTRACE9R9DRTNROOT43ROOT60JFMUPDRP PLFMMV63 S51 A RPG CCS 3.0 SL-149@PXXXXXXXXXXH5 h1A"h-hTl)(l&%"h!@P+l ll@PKPFMCLR FMCLOSFMDELRFMGETSFMOPEN FMPUTS FMREADFMUPDRFMWRITPFMCALLWRITERHUPDRECGREADR FPUTS EOPENFLDGETS CDELRECBCLOSFLACLEAR @/K  3UP P=KEYR64 S52 A RPG CCS 3.0 SL-149@PT`#$T 3#a#(T+ S DR@P+ T,8(a!A6TPKEYR64PERRPRO/STRACE:R9DRTNP PPARABN S53 A RPG CCS 3.0 SL-149@PHhB4 "c"PPARABSP PCATERR R78 F RPG CCS 3.0 SL-149@Pp *CATLOG* **** ERROR **** @P *CATLOG* READY TO INSTALL @P MASS STORAGE I/O ERROR @P REQUIRED PROGRAM NOT FOUND @P* LIBRARY PROGRAM NOT VALID @P8 PROGRAM ON LGO NOT VALID @PF TOO MANY PROGRAMS ON LGO @PT LAST LGO PROGRAM HAS NO XFRq  3U@Pb INVALID CONTROL STATEMENT @P@P Tp , h\@PT @PHTThPCATERRPQ8PKUPQ8PREPLIST DISP P PJCATFIL R79 F RPG CCS 3.0 SL-149@P@P@P @P@P @P9@P`@Py@P PP@P @P*B*K*V*E  3U@P*N008 @P*Z@P,6@P*CATLOG* NAME , OWNER @PhhAh h: h6hڨۘ֨֘hf  1@P T\0ȸ ȭh h hhȬ h dȰ!LT Ȣ T@P#  h3Ȕ \ dfxnnn )"\@PN d d d Tܱ \nT Td"\@Py ;   l ڜ d- @P  p4d,h ȘЄl@P̳ T̪ T̖ j̜  df 1 @Pl{ z ̰y  l %1xd| dd:T@P\O dT\ m d2!T# l@P> T\#\PCATFILPMIBUF DISKRDCATERR9LIST \CATMODkCATJCRnSQUEEZPUNCH CATOBJ"PCATFIL PYCATMSG R83 F RPG CCS 3.0 SL-149@P@P6/  3U@P5@P *CATLOG* PROGRAM @P7hh hT56@PIH TTh h hPCATMSGKPQ8PKUPQQ8PREPNFWRITE>P P}CATOBJ R84 F RPG CCS 3.0 SL-149@P@P6 GhhT #T h h  hڈ hמ @P2 1 hhŀ@PB h Z1hh \\ "\h@P`HTT h hh h 8h #h h\h\ hŀPCATOBJbPQ8PKUPhQ8PREPeCATGETCATERRP P0DISKRD R90 F RPG CCS 3.0 SL-149@P@P @P hT  TT #T H TTh\h  3UPDISKRD$PQ8PKUP*Q8PREP'FREAD DISP LINK CATERRP PzGETLPG R94 F RPG CCS 3.0 SL-149@P@P2 FhhhhT #T h h h  1@P3 hh@P> h Z1 h h  l@PQ\ "\h@P]HTT h hh h 8h #h h\h\ hÀPGETLPG_PQ8PKUPeQ8PREPbSECGETRBPERRP P3LIST R96 F RPG CCS 3.0 SL-149@P@P @P T hhT  TT ! H TTh\hPLIST 'PQ8PKUP-Q8PREP*CATLU FWRITEDISP LINK P c  3V P1PUNCH R98 F RPG CCS 3.0 SL-149@P@P hT TT #TH TTh\h\hPPUNCH #PQ8PKUP)Q8PREP&FWRITEDISP LINK CATERRP P^SWITCH S12 F RPG CCS 3.0 SL-149@PC@P6E@P9@P>@P@@P ENTER SWITCH VALUES <XXXXXXXX> @P XXXXXXXX @P SWITCH = 00000000@P INVALID SWITCH ENTRY @P2@PChT-178hT1293 :; hߪhʬHhۨh    @PnИ @Pw   ȿ ȼ ȹس 1 I H lA͜  3V'@P lI HlA lI @PHlA 묹lIw HlAj @Pl dLh̓Al BlC lD@P#lE lFlG lHlTP14@A@PN ;T\15BA ;PSWITCHPR9SWCHPGMIN FWTREADHPGMOUTRPSWITCH*T __mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmf  3V;mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3VOmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3Vcmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3Vwmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3Vmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3Vmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3Vmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3Vmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmz  3Vmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmme  3VmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmP  3Wmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm;  3Wmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm&  3W+mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3W?mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3WSmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3Wgmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3W{mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3Wmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3Wmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3Wmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm~  3Wmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmi  3WmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmALAWP CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm PHAVMBIT A01 A CCS CCS 3.0 SL-149@P HX92h -$h.,'&2T<"$dmŠ'R)2X@P+*2 1 ** "i PAVMBITPAVMCKVP PCCSADD A02 A CCS CCS 3.0 SL-149@PHh HXz us ohsHr = 9  }  0_@P+hII\\SR MK GhJHJ = 9  }  09hL@PVL44- L  @P5`2y`P @PE `"i PCCSADDP PCCSBLK A03 A CCS CCS 3.0 SL-149@PH h" "" PCCSBLK  3WP P@CCSCST A04 A CCS CCS 3.0 SL-149@PH3h2 HX/ l* "  f  ` @P+` `"i PCCSCSTP P;CCSEAC A05 A CCS CCS 3.0 SL-149@PX";h1 h0 Xh( @h'# "``HH" H@P+ `"i ]@PV [.<(+^&!$*);\-/,%_>?:#@'="@PABCDEFGHI}JKLMNOPQR@PSTUVWXYZ0123456789@Z{[lP}M]\Nk`Ka@Pz^L~no|J_'Om@P@P-PCCSE2ACCSA2E P P CCSGET A06 A CCS CCS 3.0 SL-149@PHh HX l` `"i PCCSGET  3XP P-CCSHXA A07 A CCS CCS 3.0 SL-149@PH h HX  sD  1  : E /` `"i @P+PCCSHXAP P/CCSMVA A08 A CCS CCS 3.0 SL-149@PH"h! HX @    ` `"@P+i PCCSMVAP P CCSPUT A09 A CCS CCS 3.0 SL-149@PHh HX ` `"i PCCSPUTP PCCSPYT A10 A CCS CCS 3.0 SL-149@P DPCCSPYTP P(CCSTIM A11 A CCS CCS 3.0 SL-149|  3X@PH%h$"h Hh @ 8 0 0Fh `&`PCCSTIMPHORMIN P PCOLECT A12 A CCS CCS 3.0 SL-149@PPCOLECTPFCOLECP PDATHAN A13 A CCS CCS 3.0 SL-149@PH_h^HG H[X[X6FF rDHLhKH4 HHXHX.  `'X F"@P+ X4i  ; )  4"   2 1 @PVm  `"i HhH HX %00hh @P d " dh  0F 0 04hȻ 0F 0 04h  `­é @PICALJLIDATVRJULCALmP P5GETACT A14 A CCS CCS 3.0 SL-149@PHuX5 H,h* HjXLXXXc hd 'jb PALGO"@P+#2@2 hGh X A ,#)$h.@@" @PVT ""  (h bk  3X/@PP} Ǡ#"2X"2Ȱ  h@P hh( h 0Fȼ&  x&@Pdhwu Ggb# gY ` ` 0H_V Q@P& JX`DPGETACRGETACFPR9BASENR9FLDLWPEND PICCSAD A15 A CCS CCS 3.0 SL-149@PHh"h H  F` 4@PICCSADP PPGGEN A16 A CCS CCS 3.0 SL-149@PPPGGEN PPGGEN0P PPUTACT A17 A CCS CCS 3.0 SL-149@PHX H{hy HXXXX1O à h@P+R & h( h @PV!2f#2  |2" vAfwAw r"#2T  3XC@P#2_]c`_R^YRANS"#2D#2 hKX@Ph X A ,#)$h/@@" T7 ""@P  (h  hh( h 0F@P FԸߠ % hh¼  (@P-h 0Fȷ hȲá Ȧ ` ` 0Hȟhș 8 Ì@PXH 0F| unt teX`@PfPPUTACRPUTACFPR9BASER9FLDLPEND PRPGDT1 A18 A CCS CCS 3.0 SL-149@P hBX`ed  5X[3 A&  #XI<@P+ ATGb  *XK  A`PV@Pd" T2 0 3S 3J 3A S3 3@P 3 3 @PRPGDT1PFTNDT1/R9BASEFR9FLDLjP P;TAPHAN A19 A CCS CCS 3.0 SL-149  3XW@P""H"  h"""! 1 hT\T 0@P`p#$@P+""H h hTFPTAPMOTSTATIT,P PUPD400 A20 A CCS CCS 3.0 SL-149@PPUPD400PFUPD4XP PUPDATE A21 A CCS CCS 3.0 SL-149@PPUPDATEPFUPDATP PHACTADD B01 F CCS CCS 3.0 SL-149@P@P$@P&01  +8<0050@P7@P;  3Xk@PTRNSFL  @PACTFIL  @PUTIFIL  @P!@PL@P0482@PBZ@P@P;T !"T!# (T$# T\9# &\$# \\# &\@Pf$# \T!Q%#ȱ>ȫ &\'# \_` TQ)@P*T9##&  &\+# \\Q,--\# &\+# @P\\Q.//\0-+-\Q12,34d5dT)Q)66 @P)TT9#̢ 2kTJ7# TP lѤ8 $̔9lT@P:TQ))̼l\**̭l\T9## 2k\/# @P=\T!#\9#\TPACTADDPQ8STP GPGMIN 10 ACTIVITY BLOCKS,//) @P#@P(1H1,/,1X,20A2,/,1X,20A2,/,1X,20A2,3X,8HAS OF : ,A2,1H/,A2,1H/,A2,/)@PTPACTMTNPQ8STP Q8QINIQ8QX Q8QENDPGMIN UTHEADOPENFLFILERRPGMOUT^GETS CCSCSTCCSMVACLOSFLZPACTMTN P=ADDDT1 B04 F CCS CCS 3.0 SL-149@P@P @Pd@P @P@P@PBAD OPERATOR BAD CONNECTOR PB .LE. PA BAD SYNTAX @P5 TYPE Y IF CORRECT SYNTAX ERROR, REENTER @PwINPUT=@Pz@PvY >  3X@P lh h  ю h  "@P d TZT}TE@P(33H ADD TEST IN PROCESS. THERE ARE ,I3,25H TESTS CURRENTLY IN TABLE,/,58H ENTER 3-D@PIGIT NUMBER OF TEST THAT PRECEEDS YOUR NEW TEST,/)@PTwNOHh(N$h"H$d} ! !@P=TZKTT̀c@PK(37H STARTING TO DEVELOP A NEW TEST, NO=,I3,/,78H ENTER LEVEL NUMBER (1-9) THEN NEX@PvT LEVEL (0-9) THEN NUMBER OF PARMS (1-9). ,/,55H SEPERATE FIELDS BY COMMAS, FOR EXAM@PPLE, INPUT=1,0,3 ,/)@PTwN|NHdzOHd{PHd|Tzl\{l\|l "~@P "~ "~  dITIMMhT@P\d "} !\Mh\@P\ " l@P lT>Z/.TDz\{\|TG,@P.(5H LVL=,I1,7H, NLVL=,I1,5H, NP=,I1,43H TYPE Y IF CORRECT, TYPE N TO ENTER AGAIN.,/) @PYTwNN lv =Tz{| "\Z7 @PdMh\@P 1\(@P(39HNON-NUMERIC FIELD IN LAST INPUT, INPUT=,2A2,A1,21H RE-ENTER LAST INPUT,/)@PTZ:T%zT,A3  3X@P(20HLEVEL ERROR, LEVEL= ,I1,33H LEVEL MUST BE .GE. PREVIOUS LVL,/,30H AND .LE. N@PEXT TEST LEVEL,/,19H REENTER LAST INPUT,/)@P d| " \Z@#\\@P#(17H ENTER PARAMETER ,I1,58H INFO. ENTER OPERATOR (NULL/.EQ./.LE./.GT./.NE./.WE./.OS.)@PN,/,77H FOLLOWED BY 6 CHARACTER PARAMETER VALUE ( 2 VALUES IF OPERATOR IS .WE./.OS.,/,@Py37H FOLLOWED BY CONNECTOR (.AND./.OR.).,/,41H SEPERATE FIELDS BY COMMA, FOR EXAMPLE@P,,/,33H INPUT=.WE.,000500,000650,.AND. ,/) @P TZCTT@P(18H ENTER PARAMETER ,I1,6H INFO.,/) @P| #\RF@P(49H DO NOT INPUT CONNECTOR ON THIS LAST PARAMETER.,/)@P dfM 1TZwN@P(12A2)@P d̹  lTN("% " ![TZRn dMhT@PI@PK 1 d!h\@PY 1 l'h\@Pf 1Tŀ'@Pn(4H OP=,2A2,5H, PA=,3A2,6H, CON=,3A2,32H TYPE Y IF CORRECT, N TO REENTER,/) @Pd\ZU l̦Mh\`  3X@Pܠ 1 l̨!h\@Pܢ 1 l̛$h\@Pܕ 1 l̎'h TI@P 1\'@P(5H OP=,2A2,5H, PA=,3A2,5H, PB=,3A2,6H, CON=,3A2,19H TYPE Y IF CORRECT,/) @PTwNN lv T"% " l@P#TAVMCKD B10 F CCS CCS 3.0 SL-149@P**@P h* % h"      n 1 1@P.@P1 H TT hPAVMCKD3PQ8PKUP9Q8PREP6P P,AVMCKV B11 F CCS CCS 3.0 SL-149@P**@P h   l @P 1 lH TT h\hPAVMCKVPQ8PKUP%Q8PREP"P  3Y3 P$$AVMCON B12 F CCS CCS 3.0 SL-149@P@P!](@P!`@P!c@P!d@P 1****LAST RESULT CODE REJECTED - NOT UNIQUE@P G****NEXT CONTACT DATE OUT OF RANGE - SET TO ZERO@P `**** " " ($ ) NOT A VALID RESULT CODE - IGNORED @P {****LAST RESULT CODE REJECTED - OVERFLOWS TABLE @P ****LAST ACTION CODE A SCREEN FUNCTION - REJECTED @P F*@P _0@P z4@P 0@P 2@P ACTION@P NADSDFDADCCSP1P2P3RLNQOASSDLAAEAUH @P @PB  3YG@PACTCRESC@P^ACTVERTBCCS20  @PmAVMDESC CCS20  @P|UTIFIL CCS20  @P**************************************************************************************@P****************************************@P**@P@P @P @P P@P  @@P @P ACRS@P  @P! @P! ACTIVITY VERIFICATION MATRIX BUILD OF  - R@P!FESULT CODE INPUT @P!U @P!dTZ!W!X!Y TBm!Z !TB!X!Z 53 60h/l-l, h( ,#! !!hnnh !@P0 ! h nnƘÀ@PDؾ 1HTT h h h hPAVMSRTLPQ8PKUPRQ8PREPOP PAVMVAC B15 F CCS CCS 3.0 SL-149@P@??@@P@ @ @PKhT !JAh\ !C h6 h @h # `hʾ' ,+  3Y@PF#Hl!hĜ "lȽ`h l h l @Pn l l!@ HHTT h h h _h\h\h\h\h\hPAVMVACxPQ8PKUPQ8PREP}AVMCKVP PUBINASC B16 F CCS CCS 3.0 SL-149@P @P;hp8(dhp8hp8(dhp8hp8(dhp8hp8(dh@P1 0h 0Ȉ l 0h 0Ȉl@PEH TTh\h hPBINASCGPQ8PKUPMQ8PREPJP P]BLDSRN B17 F CCS CCS 3.0 SL-149@P@Pd@P4@P@P@P ***** SCREEN EXCEEDS MAXIMUM ALLOWABLE SIZE *****?  3 Y@P@PSCRNFILE @P'SCRNDESC  @P4  @P_  @Pd  @P @P  @P @P  @P @P!  @PL @P`  @P @P  @P @P  @P @P   3 Y@PH @P\  @P @P  @P @P  @P @P  @PD @PX  @P @P  @P6EN@P9@P7 @PP@P@P@P: @P=  3 Z@P SCREEN FILE BUILD COMPLETE @P> @P(@P@SCREEN FILE BUILD SCRNFILERUN DATE @PR-/ @P9@P)@P0@PT, T " h f 1T "\@P' "TV>dTV9\@8TRThT7,T@P\V8\M8USUT88h\7,\?d, d\7@P&~,\T, "2̦6 Td4Ol\7,\ d@PQ\, "2gl\7,\  d\h*\ Ȉ% @P|f3Hhd\d  ̿ n̻ d !U@P A n !Gf5  T@h\$f6f7 " @Pn̹n  d h̲ Ad 1T944lݜ "a l@PdT7,Tnl\,\ f3T44 !T4;@P @P"@P" d  3 Z#@P&@P& lT$@P/@P/ l l\' l@P>=@P=Hl\7:,\T=:+l\-@O \оH\˾@ h \-@L@Pi\\~M\J@ "dTR9\Z: d  @PhT@P #1T\Z; l5h\@P #1\\R<l\Z> l΀h\@P 1\\\\\Z? l̵ h\@Pܯ (1\\Z@ l̢5h\@Pܜ (1\\RAdTZC d;hT@P 1\\\\TTM&!9\M!\ZF lЀ]h@P=\@P? #1\@P F@P>F@PFH@P3H@PHHC@P%L@P(L@PEL@L  3Z@PO\ZH l̳h\@P\ܭ #1\\RI3l\ZK l̘;h\@Pwܒ 1\\\\\\M!4\MȺ!TZN d]h@PT@P (1T \ZP lh\@P (1\\RQ@P@PT@P@P 2\RT\RU6T@P@P(1H1,////,52X,9A2,2X,1H-,2X,2(1A2,1H/),1A2,////)@P@P@P(/) @P@P@P@P(//)@P  3Z@P@P@P(40A2)@P@P@P@P(31X,40A2)@P@P@P(5X,4A2,X,2(4X,F8.0),5X,F8.0,10X,F4.1,1H%)@P@P(36X,4A2,X,2(4X,F8.0),5X,F8.0,10X,F4.1,1H%) @P2@P3(X) @P5@P6(1H1) @P9TPCCSSPCPHFLOT "Q8STP :Q8QINIQ8QX Q8QENDFLOAT AMONTOADAYTOAYERTOETFCBOPENFLFILERRCLOSFLPGMOUTPCCSSPC  3Z P"CHEKID B23 F CCS CCS 3.0 SL-149@P@P L@PMNUPRO @PT  TT TTPCHEKIDPQ8STP !PGMIN PGMOUTSYSMSGCHAIN PCHEKID P CHUPD2 B26 F CCS CCS 3.0 SL-149@P@P ;@P >@P A @P C @P Jh@P N+50@P Y4@P \@P@P1M  3Z@PE@PN  @P mDELQMST ACTFIL UPREQ @P MOUNT TAPE LABELED: / / ENTER "OK" FOR READY ENTER "NX" FOR NEXT RECORD EN@P TER "EX" TO END @P OKEX@P 6NX@P z@P @P INCORRECT TAPE MOUNTED @P ACCOUNT=# NOT FOUND ON @P END OF HISTORY@P ' END OF REEL X MOUNT REEL X@P TAPE @P YES NO@P  @P \T] 7 8 9hhT . jTz h -hT@P }ؿ 1 hȸ Ah\@P ز 1 d ih\@P 1 hȝ Uh\  3Z@P ؗ 1T d h ,h h =fM 1 ,hT@P N @ d y @ " l An 1 1 l tn 1  dZ\@P N @ "Ta B @ lˤ D "Ta E  E\  E F ET@P !a G H  H I I : d  1d 5\a G H  Hid jd kd T 7 J @P L K J  > L     6 @P g  lp |d MT HI N M T\  O P O̬  /\I C  C I̙ @P T 1T  5 > ' Q܏\ 5 > ' R\ 7 J ' R z z z L  $\I@P H  HT !  H  H I I  T H 7 J S z z z Lm l\I E  E I !@P   d Ta @ d y\ m O  P O @ D "\a E  E@P  I̶   l d T  ?  ?\a T U  U?T  " \I E  E I@P >̌   T I E  E I I  lk  Vd  d = l W,Ih\@P j E  E I LT d XT X  c!>\  E2 Ed:\2 T { T,@P Ih T @P Y Z2 Y ZT62 { @ d y @ !i\  ?  ?ܨ̧ ! d T oz @P d hT {@P 1 l h\@P 1 l h\@P 2 lԀ h\@P 2 T T  U @P   3[@P @P T 7 J [ z z z L d @P @P @P  @P @P TN y @ 7@P @P ^ @P \r T @\ @\6 @Th@P s .@P .(1H1,20A2,9X,26HTAPE HISTORY UPDATE REPORT,/,1X,20A2,14X,9HRUN DATE:,A2,1H/,A2,1H/,A2,@P Y/,1X,20A2,//,20X,14HACCOUNT NUMBER,8X,14HBORROWERS NAME,17X,12HDATE OF TAPE,5X,17HRECO@P RDS ADDED TO ,13HACTIVITY FILE,/) @P @P (19X,8A2,5X,15A2,5X,A2,1H/,A2,1H/,A2,19X,2A2) @P @P (//,50X,21H*** END OF REPORT ***) @P TPCHUPD2W  3['PQ8STP Q8QINI Q8QX Q8QEND MONTO cYERTO gPGMIN ]UTHEAD kOPENFL GETS CCSMVA CCSCST FWTREAD FREAD sPDISP {LINK 0READR ICCSAD uHEXDEC {WRITER CCSBLK FILERR CLOSFL "PGMOUT ,PCHUPD2 PSCLRFIL B28 F CCS CCS 3.0 SL-149@P@P@P**@P @P!ACCAGE CCS20 @P-ACTFIL CCS20 @P9ACTIVE CCS20 @PEACTVERTBCCS20 @PQADDACT CCS20 @P]AGEWRK CCS20 @PiAVMDESC CCS20 @PuCOLSTATSCCS20 @PCOSIGNERCCS20 @PDAQUE CCS20 @PDECTBL CCS20 @PDELQMST CCS20  3[;@PDLYASSN CCS20 @PDLYWRK CCS20 @PINACCT CCS20 @PLTRDESC CCS20 @PLTRFIL CCS20 @PNEWS CCS20 @PPGEXTR CCS20 @PRPTPGM CCS20 @PRSWFIL CCS20 @PSREQDL CCS20 @P)SUMHIST CCS20 @P5TAPEARC CCS20 @PATRANFL CCS20 @PMTRNBCK CCS20 @PYTRNSFL CCS20 @PeUPHSTCM CCS20 @PqUTIFIL CCS20 @P}** @P @P F  3[O@P @P @P @P @P @P @P @P @P(@PT h!< (h65 1 (h+* % h n 1@P3 (ЀhT @P< - (ÀhT@PH@PMطTTPCLRFILPQ8STP RPGMIN  CLEAR 9FILERRFPGMOUTPPCLRFIL P7CMPDLQ B29 F CCS CCS 3.0 SL-149@P@PO  3[c@P@P@PDELQMST  @PTT (TTT-ߘ 1\ T@P3\TPCMPDLQPQ8STP 6PGMIN  OPENFLFILERRPGMOUTCOMFILCLOSFL1PCMPDLQ PKCMPSUM B30 F CCS CCS 3.0 SL-149@P@P@P@P@PSUMHIST  @PTT (TTT- 1\ T@PG\TPCMPSUMPQ8STP JPGMIN OPENFL#FILERR+PGMOUT1COMFIL3CLOSFLEPCMPSUM P6CPYIND B34 F CCS CCS 3.0 SL-149  3[w@P@P7"@P:  @PC@PG' @POd & @PT@P@P3@P2@P@P/@P  @P  @PINDEX FILE COPY (MAX 2000 BYTES)@P FILE NAME TO COPY FROM @P VOLUME NAME @P FILE NAME TO COPY TO @P OWNER NAME @P XXXXXXXX FILE COULD NOT BE LOCATED=  3[@P XXXXXXXX FILE NOT INDEX FILE@P FILE DESCRIPTION NOT THE SAME @PTT456hgT47879T:\47;7:9T:@P:\:\47=7:9\:>:\:\47?7:9\: @:\@P:\47A7:9\: :\:\47=7:9\: >:\:@P\47?7:9\: @:TBBC (TDB4 T/@P B '\ B4\/ B՜ '\ DB4T2@P+B̽ '\EB4\/2eB̭ '\ EB4e ! j @PV! dFd ! 1d1TiGTBBH +I@P  *TJB4 ldK dL!< , dM h.̣(+dN\O@Ph"T{ h\1G1T/GB̮ '\ PB4[@P3 Q\:Q:T_47R79>\ :Q:\47R7@P9-\:Q:\47S79\ :Q:\47S79 \4787@P(9TB\/B@P2@P2@P%2@P2TTPCPYINDPQ8STP 5FMRDEL[PGMIN UWTREADCCSBLKmCCSMVAOPENFLFILERRCLEAR GETFCB'GETS qWRITERCLOSFL,PGMOUT3Nt  3[PCPYIND P`)DACRTE B36 F CCS CCS 3.0 SL-149@P@P\@P\00@P\@P\ҁ@P\@P\ 01 %+199'+Y@P\ @P\0@P\mKB u0>@P]@P@P.@P3DELQMST  @PBDLYASSN  @P\@PQ@P\0360  3 [@P  @P  @P\w@P\@P\@P\@P\@P]TV\\\hTZ\ȷhTZSȩd@ hT3\ȩ (T3\\\T@P]2B\ș '\B\\\B\ȋ '\B\\\T\\\\Ҝ@P]]\Ӝ dR '\3\\\ d\\Ŝ" ($\ d\\,\d\  , d\@P] \h\ \d\ހihT\@P]\\b ^p\w dT\\\x d\\\\\y d@P]\\\\\z d\\\\\{ d\\\\\| d \\@P^\\\}\ d\\\\\~ d\\\\\ h\_\\\@P^,T\֖X ̖W 2\*̿\h̺\hT]_\@P^W_\̭\h\S\_\̡h\\_\\ h\_\\\ h@P^\_\\\\\ h\_\\\\ h~\_\\\\ hr\_\@P^\\\ hf\_\\\\ hZ\_\\\\ hNT^R_\\\\@P^ hA\_\\\T^-\Μ ̞\h)\\_\\^\\@P__\\hTS\\_\\\ "_  3![@P]_@P]_@P]_@P]_@P]_@P]_@P]_@P]_@P]_@P]_@P]_@P]_@P^ _@P^ _@P^_@P^_@P_\h\S\_\\ "_ׄ\hӄ\ h\_\_\\ !r\h̾@P_G\ h\_\_\\̿ !]̫\ḩ\ h\_\_\\̨ !F֤@P_r\ 1n\d 9(\\\n\ل\hT_d\ l\-[d 9%@P_\nd_T\_ل]lT\_׬ 1nd 9%nl\]_)  3"[@P_T^\]Z\]\ ḽ\d_\_\Z _\\@P]_@P]_@P]_@P_\@P]u_@P_ l  TZ\\\ 'T])B]\\!T\ &\3]\\T] ]\;i@P`]\Z\ lR ]M@P]/`@P]>`@P]L`@P]Z`@P]l`@P`T\\\TTPDACRTEPQ8STP `(FMRDEL]PGMIN ]CCSBLK` UTHEAD]OPENFL]!FILERR_CLEAR ]1GETS ]NGETACF]CCSMVA_FTNDT1^CCSCST_ ICALJL_PJULCAL_CCSPUT_PUTS _UPDREC_CLOSFL`PGMOUT`&PDACRTE P`/DACRTE B66 F CCS CCS 3.0 SL-149@PVr  3#[@P\@P\00@P\@P\Ձ@P\@P\ 01 %+199'+Y@P\ 0@P\mKB u0>@P] @P@P.@P3DELQMST  @PBDLYASSN  @P\@PQ@P\0360@P  @P  @P\Q 9000@P\ww"  3$\@P\@P\@P\@P\sO@P] TV\\\hTZ\ȸhTZSȧd@ hT3\Ȫ (T3\\\T@P]4B\Ț '\B\\\B\Ȍ '\B\\\T\\\\՜@P]_\֜ dR '\3\\\ d\\Ŝ" ($\ d\\,\d\  , d\@P] \h\ \d\ހihT\@P]\\b ^r\w dT\\\x d\\\\\y d@P]\\\\\z d\\\\\{ d\\\\\| d \\@P^\\\}\ d\\\\\~ h\_\\\\ h\_\\\@P^.T\ٖX ̖W 2\*̿\h̺\hT]_\@P^Y_\̭\h\S\_\̡h\\_\\ h\_\\\\\@P^\\\\ h\_\\\\ h~\_\\\\ hr\_\\\\@P^ hf\_\\\\ hZ\_\\\\ hN\_\\\\ hBT^T_\@P^\\T^/ϔ\Μ ̞\h)\\_\\^\\_\܄\h@P_TS\\_\\\ "_@P]_@P]_@P]_;@  3%\@P]_@P]_@P]_@P]_@P]_@P]_@P]_@P]_@P^_@P^ _@P^_@P_\h\S\_\\ "_ׄ\hӄ\ h\_\_\\ !q\h̾@P_C\ h\_\_\\̿ !\̫\ḩ h\_\_\\̩ !F ֤\@P_n 1n\d 9(\\\n\܄\hT_d\ l\-[d 9%@P_]nd_T\_ل]lT]_#׬ 1nd 9%nl\]_@P_̹\lT^\\_\\\]Z\]\ l̢\d_\_\Z_\ \@P]_@P]_@P]_@P_\;  3&\+@P]w_@P_ l  TZ\\\ 'T]+B]\\!T\ &\3]\\T] ]\;i@P`]\Z\ lR ]O@P]1`$@P]@`$@P]N`$@P]\`$@P]n`$@P`$T\\\TTPDACRTEPQ8STP `.FMRDEL]PGMIN ] CCSBLK`UTHEAD]OPENFL]#FILERR_CLEAR ]3GETS ]PGETACF]CCSMVA_FTNDT1^CCSCST_ICALJL_PJULCAL_CCSPUT_PUTS _UPDREC`CLOSFL`%PGMOUT`,PDACRTE PDAQUEL B37 F CCS CCS 3.0 SL-149@Px@Pt @PKDLYASSN  @PZDAQUE  @P@P@  3'\?@Pm@PxTiopq TTKr !<\-Zr !;TsrؘA !2@Pʔ Ĕ hh$h%hT-EErȳ !hhTKuro@P\Zuro \Kvro\ZwroTr\-r\TPDAQUELPQ8STP PGMIN yPGMOUTOPENFLGETS WRITERFILERRCLOSFLPDAQUEL P@DEBDT1 B38 F CCS CCS 3.0 SL-149@PTz TT@P (5H0 ID=,I4)@P\z ( h 9h\@P"@P&\@P((25(1X,Z4)) @P.H TTh\ h\hPDEBDT11PQ8PKUP7Q8PREP4Q8QINIQ8QX Q8QEND P P DECMTN B39 F CCS CCS 3.0 SL-149@P  3(\S@P3c@P:Y@P= @PB@PDd @PG#'.@PI@P@PDECTBL  @PCRDEADDSPTDUEXDB@P Y INPUT=@PCOPR@P-@P.@PIT /0 TT1 "T1TRi@Pi(39H DECISION TABLE MAINTENANCE PROGRAM IN )@P h\R\@P(38H INPUT CR/DE/AD/DS/PT/DU/EX TO EITHER,/,52H CREATE A COMPLETE TABLE, DELETE A TE@PST, ADD A TEST,/,50H DISPLAY A TEST, PRINT THE TABLE, DUMP THE TABLE,,/,16H END PROC@PESSING,/) 5  3)\g@P. T34T5!65'78' w -dT29@P 9  ܔ Ք  ǔ  @P8 ̨ h l?@PCTcZ)[ d&hT@PS 1T@P[(8HCOMMAND ,A2,23H NOT IN TABLE, REENTER.)@Ppy\R,x0@Px(51H CREATE FUNCTION WILL CLEAR YOUR CURRENT TABLE FILE,/,30H TYPE Y IF YOU WISH TO DO@P THAT,/)@PT5!65'8':;T11 "TDR2+@P(53H CREATE TABLE IN PROCESS, INPUT LU OF INPUT STREAM AS,/,19H 2 NUMERIC DIGITS) @P\R4!@P(57H IF LU 04 ENTERED, CREATION WILL BE VIA ADD TEST DIALOG ,/)@P\5!65+78+?dB=H$>d< d@-6 f d d @PG2d _T<AA  d1 f 1TU1T1@Pr "T_1TZFhTQ@PTY@P(3X,A2,30H TABLE HAS BEEN FRESHLY LOADED) @P@P<  3*\{@PT99 " @P@PT9 "T1̟ " l nܕ 1\1\1̇ "@P\1@P&@P\RW$@P(63H DISPLAY TEST IN PROCESS. ENTER 3 DIGIT TEST NUMBER FOR DISPLAY,/)@P T5!65$B8%=HdB$?$>h"H$DdCTC99 @P 2T{Z] ATCT@P A(21H ERROR IN LINE NUMBER,I4,14H NOT IN TABLE) @P Y&@P- [@P [TE\Ra e@P e(36H TABLE WAS PRINTED ON LINE PRINTER. ) @P z@P4 |@P |\Rd K@P (63H DUMP TABLE IN PROCESS. TABLE WILL BE DUMPED IN FORM COMPATIBLE,/,72H WITH CREAT@P E FUNCTION. INPUT LU OF OUTPUT STREAM AS 2 NUMERIC DIGITS ,/)@P T 5!65)78)?dB=H$>dFTF99  T 5Zj T  3+\@P ;FT >@P (20H TABLE DUMPED TO LU ,I3)@P u@P @P TS@P] @P \Rn @P (49H FILE DECTBL NOT DEFINED. USE UTIL AND TRY AGAIN.)@P /@P 1@P 1@P 1\Zq :\1\@P :(37HFILE DECTBL ERROR IN REMOVING ERROR-,Z4) @P Q@PY S@P S\Zt \\A\@P \(24HSUBROUTINE LDTABL ERROR-,Z4)@P l}@Pu m@P m,  3,\@P mT Zw yT 1T @P y(43HFILE DECTBL ERROR IN STORING RECORD, ERROR-,Z4) @P V@P @P \Zz \9\@P (36H NO DECISION TABLE IN SYSTEM, ERROR-,Z4)@P 6@P @P \Z} \9\@P (24HSUBROUTINE DELDT1 ERROR-,Z4)@P \Z \9\@P (25H SUBROUTINE DPTDT1 ERROR-,Z4) @P . TGHT TPDECMTNPQ8STP Q8QINI nQ8QX tQ8QEND wPGMIN JPGMOUT OPENFLgCLOSFLwDEBDT1 WTREAD RTVDT1CLEAR LDTDT1PPUTS lPDELDT1ADDDT1DSPDT1 )PRTDT1 \DPTDT1 PDECMTN PQDELDT1 B40 F CCS CCS 3.0 SL-149@P@P   3-\@Pd@P@P@P @PY INPUT=@P lh h   h  "&@P9 d &TZMT T?@PM(36H DELETE TEST IN PROCESS. THERE ARE ,I3,26H TESTS CURRENTLY IN TABLE ,/,42H ENTER @Px3-DIGIT NUMBER OF TEST TO BE DELETE/) @PTHh%$hH$d !  1@P\Z\\-@P(26H TEST TO DELETE NUMBER IS ,I3,43H TYPE Y IF CORRECT, TYPE N TO ENTER AGAIN.,/) @P\̧ l .Tl8ldd7<@Pdn@P"ld6%H"TT hh h hh h h\hhFhph\h@PMhPDELDT1-PQ8PKUP3Q8PREP0Q8QINIBQ8QX HQ8QENDKWTREADGTPDT1P PDHUPDT B42 F CCS CCS 3.0 SL-149V  3.\@P@P4Ё@P<@P> @PBS BT@PL Z@PO@PQUDg@PX@PcADDACT  @PrTAPEARC  @PSUMHIST  @PDELQMST  @P@P.@PB@P A  @P @P  @P +  3/\@P ?  @P j @P/@P00000000000000@P$0000000010000000000000@P  @P@P 03_@P U h@P6)Ge@P @PXT 012 T | whTc3 (Tc430\r3ȳ '\@Pr430\33ȥ '\430\K3ȗ '\430T5T@P3367  *\c830 d zd9 d:" $<@Pd; $>d= {  ? h7T 2@PAA  d h"T2B BT3; 3̐C̊3 5@P/Dl @P3TtE30̞ h\2B B\K 3Fڬ֤7 '\@P^E30; h\2B B\  3̷&̲ܜ!̭ >Gl @PHl\rE30T @IJI ޜ dK h h  30\@P hT@P @PA A I , qـ h\@PLLA aɀ hŀ h h̽ h\;@P@P̲ ḫ h̪ h ̦hT;@P @P1̙ h̕hK h h\@P$;@P'A̚  h h h\;@P< @P? 2T;M MAA l l h̾ h̺ h\@Pe @PhA L dN h hh\;@P @PA , h hހ h ڀhT;@P@P΀ hʀh ƀ h\ @P;@Pܻ 1K 1  31]@P@PTK33 (T4O30; d2\2\3 '\cO 30@PHT3;3 '\B30 v/  "TZ  % dP@P {hT@P 1\T+@P%(1H1,4X,20A2,4X,29HACTIVE ACCOUNTS UPDATED FROM ,14HHISTORY SYSTEM,28X,6HPAGE: ,I3) @PO\Z i l̼ {h\@P\ܶ (1\ w\ x\ y\@Pi(1H ,4X,20A2,15X,8HAS OF: ,A2,1H/,A2,1H/,A2) @P\Z  )l̋ {h\@PP <1\ @P(1H ,4X,20A2,/) @PT R ;@P(1H ,5X,14HACCOUNT NUMBER,10X,14HBORROWERS NAME,22X,13HFORMER STATUS,8X,13HINACTIVE DA@PTE,3X,17HTAPE ARCHIVE DATE,/) @P d/T QTB B\<R SRHT;@ >T;@  T\;@P U VD \ @ 6\ @ WTZ 5 dP hT@P- <1T#@P5(1H ,4X,60A2) @P<ܣT$))ˁ  32]@PE@P E@PE@PE:@PI@PI z  lTF):AA T ):@Pf@Pf@Pf 1\R q@Pq(1H ) @Pt\Z  l̩(h\@Pܣ 1\ @P(1H ,4X,46HTOTAL NUMBER OF ACCOUNTS UPDATED FROM SUMHIST ,6A2)@PTR @P(1H ,/,44X,23H**** END OF REPORT ****)@P v DT333 'T4305 d d d: f2 1Tl33@P &\430T3;37 1\@30@P @P: @Pb  33]/@P @P @P @P @P \3@P @P \33@P@P\3@P@P\3@Pb@Pz@PTTPDHUPDTPQ8STP Q8QINIQ8QX +Q8QEND3FMRDELhPGMIN YUTHEADdOPENFLFILERRCCSBLKGETS CCSCSTRCCSMVA_READR PUPDRECDELRECIDATVREDIT CCSADD>CLOSFLCOMFILPGMOUTPDHUPDT PADMPFIL B45 F CCS CCS 3.0 SL-149@P  34]C@P?@P?@P? @P?"Nu0 @P?(& @P?@P @P@Pi@P?@P;8000000000000@Py @P;0000000001@P?@P?Y @P;> DUMP FILE TO TAPE @P;I INPUT FILE NAME @P;T VOLUME NAME @P;] *****OPERATOR-MOUNT TAPE FOR XXXXXXXX ON UNIT 0 WITH RING READY (Y/N) @P; FILE COULD NOT BE LOCATED   35]W@P; FILE SIZE EXCEEDS 3000 CHARACTERS @P; THIS IS A SUPERVISOR COMMAND ONLY @P; *****OPERATOR-REWIND TAPE ON UNIT 0 @P; RECORDS WRITTEN TO TAPE@P?Tu??? T??;>??k?Tk?\??;I??k??k T@P@*k?y?\k?\??;T??k??\k?y??Ty?Ȟ .țAKTy?@P@U??h h Tu?y???? T???? '\y???@P@d?d?"AU\y?;]??̍lT@ ??;]??k?k? T@@P@?T? 1?AD̹?\y??? dd? d?@P@!h , d? , d?h Rj RT@)?;A dT@PA?;?i?TT?d?T;?;8;8?"T??T@??;??k ?@PA,dk\??;]??k?? ܕ̌ @\??\??\??;??k ?)\?@PAW?;??k? @P@ A_@PA_\??;??k?\;8?;??\??;??k?T?@P@XA}@PA}TTPDMPFILPQ8STP AFMRDEL@ZFMEOFC@^STATITA PGMIN @WTREADA!CCSBLK@CCSMVA@OPENFL@DFILERR@RCCSCST@bGETFCB@qGETS @FWRITEAPDISP ACCSADDATAPMOTACLOSFLAzPGMOUTA~]  36]kPDMPFIL PDPTDT1 B46 F CCS CCS 3.0 SL-149@P+@P/(@P)**%%@P2l> =2 h7  h- hT/ hhܘ!/ (1#TZ@P]t hȝhT@Piؖ (1T@Pt(40A2)@Pw h\/fدȬ $Ȣf\Zt lh\@P (1\Ȓ \/)l\Zt lрh\@P (1\. d,z\Zt\*\ lHTT h h\hhhh@P\hNPDPTDT1PQ8PKUPQ8PREPQ8QINI[Q8QX gQ8QENDoBLKDT1JP PUDSPDT1 B47 F CCS CCS 3.0 SL-149@P@PM@PS-  37]@P\ @PJ@P+NULL.EQ..LE..GT..NE..WE..OS.@P;.AND. .OR.  @P^T* "0hT@PnMJȹ(h\@PuNKȲ!h\@P|OL h h hTZT\J\K\LT1@P(/,/,34H DECISION TABLE TEST NUMBER -,I4,10H LVL - ,I1,10H, NLVL - ,I1,8H, N@PP - ,I1)@P\R%@P(/,64H PRM NUM OPERATOR VALUE 1 VALUE 2 CONNECTOR ) @P* lI dQL"TGMT9DG:9  dR dT: $M dU @PdV  l lTZlTQdW9*h\@P=@P@ dCh\@PI 1 lFh\@PV 1dX8:h\@PgT@Pl(8X,I1,10X,2A2,6X,1H*,3A2,1H*,5X,1H*,3A2,1H*,7X,3A2)S  38]@PQp\Z"̯h\@P̩`h\@P\$@P(/,31H NUMBER OF RESULT VALUES - ,A2,22H, CURRENT POSITION - ,A2)@P?hTl@PYh\@PSZTZh%\Y$\ d[ dW dXT)Z)l9̖ hT/@Pܐ@PTj@P(15H RESULTS - ,2A2,9(1H,2A2))@P \R+ @P(/,12H END OF TEST,//)@P l@Pg"@P"]l.H+TT hgh] h)hh\ hh\hhJ\hChhh@PM?hh\h PDSPDT1(PQ8PKUP.Q8PREP+Q8QINIQ8QX Q8QENDGTPDT1_CCSGETBLKDT1GPMDT1NUMDT1P PEDIT B50 F CCS CCS 3.0 SL-149j  39]@P @P9 -0@P99/99/9999999.999/999-9999-99-9999@P/ /"+ "&h h hh!+ΈhT`.ۘ   hT@PZ.`@Pbh\`.h\.`ػػ@Pt H hȝ!h\`.Ȩ ׈h\`؜h\,. 1!@P. # l 3l\.,̰ hT`++\, HTTh@P\h\hhhhhhhhh\hh\hOPEDIT PQ8PKUPQ8PREPCCSGETNCCSPUTZCCSMVAP PFILERR B52 F CCS CCS 3.0 SL-149@P@P(#@P_7@Pb?- @P FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . @P)CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GE@PTTS UPDRECDELRECCOMFILM  3:]@PiT(T% ! ! , h\)h_`_ Kh @P\bdcd 9hTfaggghHTTh\h\h\hPFILERRPQ8PKUPQ8PREPCCSMVAjCCSHXArWTREADP PFTNDT1 B54 F CCS CCS 3.0 SL-149@P@P@P@P@P@P99@P h h6 fT k h dTh h@P0!(TȿhȢ  (hT@PG (h ș j (hȒjت@PZT  \Ș #T d\ 6@P ll@PHTT h\h hdPFTNDT1PQ8PKUPQ8PREPRTVDT1GTSDT1&GPMDT14TVPDT1DTRHDT1[VALDT1p  3;]P P^GPMDT1 B59 F CCS CCS 3.0 SL-149@P@P@P<^ @PLADLQMSTLA @PLADLYASNLA @PLADLYWRKLA @PLAFILTMPLA @PLAFINTRNLA @PLAINACCTLA @PLALTRDSCLA @PLALTRFILLA @PLAPMTFILLA @P)LAPGEXTRLA @P5LARPTDATLA @PALARPTPGMLA @PMLARSWFILLA @PYLASREQDLLA @PeLASUMHSTLA @PqLATAPARCLA @P}LATRANFLLA @PLATRNBCKLA @PLATRNSFLLA @PLAUPHSCMLA v  3?^@PLAUTIFILLA @P** @P @P @P @P @P @P(@PT h!< (h65 1 (h+* % h n 1@P3 (ЀhT @P< - (ÀhT@PH@PMطTTPLCLRFLPQ8STP RPGMIN  CLEAR 9FILERRFPGMOUTPPLCLRFL PLDTDT1 B70 F CCS CCS 3.0 SL-149@P/@P***@P)%%  3@^3@P0 l hh hT\ O hhT@PFع (1T@PO(40A2)@PRȮ $ hʤ  !ʘn (1@PrȺnȵh hȰ l@PȯlHTT h h h\h\hPLDTDT1PQ8PKUPQ8PREPQ8QINI8Q8QX DQ8QENDLP P'JLMOVDT B71 F CCS CCS 3.0 SL-149@P@P%m@P%p@P%t@P%x: @P%d &@P% "@P%@P$DLACTVTB$$ DLDECTBL$$ DLRPTTBL$$ DLSCNDSC$$ DLSCNFIL$$  DLUTIF@P%IL$$ **  W\  3A^G@P%#LAACTVTBLA LADECTBLLA LARPTTBLLA LASCNDSCLA LASCNFILLA  LAUTIF@P%NILLA **  @P%\ @P%[**@P@P%h@P$@P@P@P  @P  @PvINDEX FILE COPY (MAX 3000 BYTES)@P FILE NAME TO COPY FROM @P VOLUME NAME @P FILE NAME TO COPY TO @P OWNER NAME @P XXXXXXXX FILE COULD NOT BE LOCATED@P XXXXXXXX FILE NOT INDEX FILE@P FILE DESCRIPTION NOT THE SAME @P%T%i%j%kh2 h hT$%l%n%[%n%o T$%l%m%m\%\%p  3BWALAWP CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm PHAVMBIT A01 A CCS CCS 3.0 SL-149@P HX92h -$h.,'&2T<"$dmŠ'R)2X@P+*2 1 ** "i PAVMBITPAVMCKVP PCCSADD A02 A CCS CCS 3.0 SL-149@PHh HXz us ohsHr = 9  }  0_@P+hII\\SR MK GhJHJ = 9  }  09hL@PVL44- L  @P5`2y`P @PE `"i PCCSADDP PCCSBLK A03 A CCS CCS 3.0 SL-149@PH h" "" PCCSBLKP K  3CW P@CCSCST A04 A CCS CCS 3.0 SL-149@PH3h2 HX/ l* "  f  ` @P+` `"i PCCSCSTP P;CCSEAC A05 A CCS CCS 3.0 SL-149@PX";h1 h0 Xh( @h'# "``HH" H@P+ `"i ]@PV [.<(+^&!$*);\-/,%_>?:#@'="@PABCDEFGHI}JKLMNOPQR@PSTUVWXYZ0123456789@Z{[lP}M]\Nk`Ka@Pz^L~no|J_'Om@P@P-PCCSE2ACCSA2E P P CCSGET A06 A CCS CCS 3.0 SL-149@PHh HX l` `"i PCCSGETP X  3DX P-CCSHXA A07 A CCS CCS 3.0 SL-149@PH h HX  sD  1  : E /` `"i @P+PCCSHXAP P/CCSMVA A08 A CCS CCS 3.0 SL-149@PH"h! HX @    ` `"@P+i PCCSMVAP P CCSPUT A09 A CCS CCS 3.0 SL-149@PHh HX ` `"i PCCSPUTP PCCSPYT A10 A CCS CCS 3.0 SL-149@P DPCCSPYTP P(CCSTIM A11 A CCS CCS 3.0 SL-149@PH%h$"h Hh @ 8 0 0Fh `&`%  3EXPCCSTIMPHORMIN P PCOLECT A12 A CCS CCS 3.0 SL-149@PPCOLECTPFCOLECP PDATHAN A13 A CCS CCS 3.0 SL-149@PH_h^HG H[X[X6FF rDHLhKH4 HHXHX.  `'X F"@P+ X4i  ; )  4"   2 1 @PVm  `"i HhH HX %00hh @P d " dh  0F 0 04hȻ 0F 0 04h  `­é @PICALJLIDATVRJULCALmP P5GETACT A14 A CCS CCS 3.0 SL-149@PHuX5 H,h* HjXLXXXc hd 'jb PALGO"@P+#2@2 hGh X A ,#)$h.@@" @PVT ""  (h @PP} Ǡ#"2X"2Ȱ  h  3FX0@P hh( h 0Fȼ&  x&@Pdhwu Ggb# gY ` ` 0H_V Q@P& JX`DPGETACRGETACFPR9BASENR9FLDLWPEND PICCSAD A15 A CCS CCS 3.0 SL-149@PHh"h H  F` 4@PICCSADP PPGGEN A16 A CCS CCS 3.0 SL-149@PPPGGEN PPGGEN0P PPUTACT A17 A CCS CCS 3.0 SL-149@PHX H{hy HXXXX1O à h@P+R & h( h @PV!2f#2  |2" vAfwAw r"#2@P#2_]c`_R^YRANS"#2D#2 hKXȫ &\'# \_` TQ)@P*T9##&  &\+# \\Q,--\# &\+# @P\\Q.//\0-+-\Q12,34d5dT)Q)66 @P)TT9#̢ 2kTJ7# TP lѤ8 $̔9lT@P:TQ))̼l\**̭l\T9## 2k\/# @P=\T!#\9#\TPACTADDPQ8STP GPGMIN 10 ACTIVITY BLOCKS,//) @P#@P(1H1,/,1X,20A2,/,1X,20A2,/,1X,20A2,3X,8HAS OF : ,A2,1H/,A2,1H/,A2,/)@PTPACTMTNPQ8STP Q8QINIQ8QX Q8QENDPGMIN UTHEADOPENFLFILERRPGMOUT^GETS CCSCSTCCSMVACLOSFLZPACTMTN P=ADDDT1 B04 F CCS CCS 3.0 SL-149@P@P @Pd@P @P@P@PBAD OPERATOR BAD CONNECTOR PB .LE. PA BAD SYNTAX @P5 TYPE Y IF CORRECT SYNTAX ERROR, REENTER @PwINPUT=@Pz@PvY @P lh h  ю h  "  3LX@P d TZT}TE@P(33H ADD TEST IN PROCESS. THERE ARE ,I3,25H TESTS CURRENTLY IN TABLE,/,58H ENTER 3-D@PIGIT NUMBER OF TEST THAT PRECEEDS YOUR NEW TEST,/)@PTwNOHh(N$h"H$d} ! !@P=TZKTT̀c@PK(37H STARTING TO DEVELOP A NEW TEST, NO=,I3,/,78H ENTER LEVEL NUMBER (1-9) THEN NEX@PvT LEVEL (0-9) THEN NUMBER OF PARMS (1-9). ,/,55H SEPERATE FIELDS BY COMMAS, FOR EXAM@PPLE, INPUT=1,0,3 ,/)@PTwN|NHdzOHd{PHd|Tzl\{l\|l "~@P "~ "~  dITIMMhT@P\d "} !\Mh\@P\ " l@P lT>Z/.TDz\{\|TG,@P.(5H LVL=,I1,7H, NLVL=,I1,5H, NP=,I1,43H TYPE Y IF CORRECT, TYPE N TO ENTER AGAIN.,/) @PYTwNN lv =Tz{| "\Z7 @PdMh\@P 1\(@P(39HNON-NUMERIC FIELD IN LAST INPUT, INPUT=,2A2,A1,21H RE-ENTER LAST INPUT,/)@PTZ:T%zT,A@P(20HLEVEL ERROR, LEVEL= ,I1,33H LEVEL MUST BE .GE. PREVIOUS LVL,/,30H AND .LE. N  3MX@PEXT TEST LEVEL,/,19H REENTER LAST INPUT,/)@P d| " \Z@#\\@P#(17H ENTER PARAMETER ,I1,58H INFO. ENTER OPERATOR (NULL/.EQ./.LE./.GT./.NE./.WE./.OS.)@PN,/,77H FOLLOWED BY 6 CHARACTER PARAMETER VALUE ( 2 VALUES IF OPERATOR IS .WE./.OS.,/,@Py37H FOLLOWED BY CONNECTOR (.AND./.OR.).,/,41H SEPERATE FIELDS BY COMMA, FOR EXAMPLE@P,,/,33H INPUT=.WE.,000500,000650,.AND. ,/) @P TZCTT@P(18H ENTER PARAMETER ,I1,6H INFO.,/) @P| #\RF@P(49H DO NOT INPUT CONNECTOR ON THIS LAST PARAMETER.,/)@P dfM 1TZwN@P(12A2)@P d̹  lTN("% " ![TZRn dMhT@PI@PK 1 d!h\@PY 1 l'h\@Pf 1Tŀ'@Pn(4H OP=,2A2,5H, PA=,3A2,6H, CON=,3A2,32H TYPE Y IF CORRECT, N TO REENTER,/) @Pd\ZU l̦Mh\@Pܠ 1 l̨!h\Y  3NX@Pܢ 1 l̛$h\@Pܕ 1 l̎'h TI@P 1\'@P(5H OP=,2A2,5H, PA=,3A2,5H, PB=,3A2,6H, CON=,3A2,19H TYPE Y IF CORRECT,/) @PTwNN lv T"% " l@P#TAVMCKD B10 F CCS CCS 3.0 SL-149@P**@P h* % h"      n 1 1@P.@P1 H TT hPAVMCKD3PQ8PKUP9Q8PREP6P P,AVMCKV B11 F CCS CCS 3.0 SL-149@P**@P h   l @P 1 lH TT h\hPAVMCKVPQ8PKUP%Q8PREP"P P$$AVMCON B12 F CCS CCS 3.0 SL-149  3SY4@P@P!](@P!`@P!c@P!d@P 1****LAST RESULT CODE REJECTED - NOT UNIQUE@P G****NEXT CONTACT DATE OUT OF RANGE - SET TO ZERO@P `**** " " ($ ) NOT A VALID RESULT CODE - IGNORED @P {****LAST RESULT CODE REJECTED - OVERFLOWS TABLE @P ****LAST ACTION CODE A SCREEN FUNCTION - REJECTED @P F*@P _0@P z4@P 0@P 2@P ACTION@P NADSDFDADCCSP1P2P3RLNQOASSDLAAEAUH @P @PB@PACTCRESC  3TYH@P^ACTVERTBCCS20  @PmAVMDESC CCS20  @P|UTIFIL CCS20  @P**************************************************************************************@P****************************************@P**@P@P @P @P P@P  @@P @P ACRS@P  @P! @P! ACTIVITY VERIFICATION MATRIX BUILD OF  - R@P!FESULT CODE INPUT @P!U @P!dTZ!W!X!Y TBm!Z !TB!X!Z 53 60h/l-l, h( ,#! !!hnnh !@P0 ! h nnƘÀ@PDؾ 1HTT h h h hPAVMSRTLPQ8PKUPRQ8PREPOP PAVMVAC B15 F CCS CCS 3.0 SL-149@P@??@@P@ @ @PKhT !JAh\ !C h6 h @h # `hʾ' ,@PF#Hl!hĜ "lȽ`h l h l   3[Y@Pn l l!@ HHTT h h h _h\h\h\h\h\hPAVMVACxPQ8PKUPQ8PREP}AVMCKVP PUBINASC B16 F CCS CCS 3.0 SL-149@P @P;hp8(dhp8hp8(dhp8hp8(dhp8hp8(dh@P1 0h 0Ȉ l 0h 0Ȉl@PEH TTh\h hPBINASCGPQ8PKUPMQ8PREPJP P]BLDSRN B17 F CCS CCS 3.0 SL-149@P@Pd@P4@P@P@P ***** SCREEN EXCEEDS MAXIMUM ALLOWABLE SIZE *****@P  3\Y@PSCRNFILE @P'SCRNDESC  @P4  @P_  @Pd  @P @P  @P @P  @P @P!  @PL @P`  @P @P  @P @P  @P @P  @PH ֵ  3]Y@P\  @P @P  @P @P  @P @P  @PD @PX  @P @P  @P6EN@P9@P7 @PP@P@P@P: @P=@P SCREEN FILE BUILD COMPLETE B  3^Z@P> @P(@P@SCREEN FILE BUILD SCRNFILERUN DATE @PR-/ @P9@P)@P0@PT, T " h f 1T "\@P' "TV>dTV9\@8TRThT7,T@P\V8\M8USUT88h\7,\?d, d\7@P&~,\T, "2̦6 Td4Ol\7,\ d@PQ\, "2gl\7,\  d\h*\ Ȉ% @P|f3Hhd\d  ̿ n̻ d !U@P A n !Gf5  T@h\$f6f7 " @Pn̹n  d h̲ Ad 1T944lݜ "a l@PdT7,Tnl\,\ f3T44 !T4;@P @P"@P" d@P&  3_Z$@P& lT$@P/@P/ l l\' l@P>=@P=Hl\7:,\T=:+l\-@O \оH\˾@ h \-@L@Pi\\~M\J@ "dTR9\Z: d  @PhT@P #1T\Z; l5h\@P #1\\R<l\Z> l΀h\@P 1\\\\\Z? l̵ h\@Pܯ (1\\Z@ l̢5h\@Pܜ (1\\RAdTZC d;hT@P 1\\\\TTM&!9\M!\ZF lЀ]h@P=\@P? #1\@P F@P>F@PFH@P3H@PHHC@P%L@P(L@PEL@PO\ZH l̳h\  3fZ@P\ܭ #1\\RI3l\ZK l̘;h\@Pwܒ 1\\\\\\M!4\MȺ!TZN d]h@PT@P (1T \ZP lh\@P (1\\RQ@P@PT@P@P 2\RT\RU6T@P@P(1H1,////,52X,9A2,2X,1H-,2X,2(1A2,1H/),1A2,////)@P@P@P(/) @P@P@P@P(//)@P@P  3gZ@P@P(40A2)@P@P@P@P(31X,40A2)@P@P@P(5X,4A2,X,2(4X,F8.0),5X,F8.0,10X,F4.1,1H%)@P@P(36X,4A2,X,2(4X,F8.0),5X,F8.0,10X,F4.1,1H%) @P2@P3(X) @P5@P6(1H1) @P9TPCCSSPCPHFLOT "Q8STP :Q8QINIQ8QX Q8QENDFLOAT AMONTOADAYTOAYERTOETFCBOPENFLFILERRCLOSFLPGMOUTPCCSSPC P"CHEKID B23 F CCS CCS 3.0 SL-149{  3hZ@P@P L@PMNUPRO @PT  TT TTPCHEKIDPQ8STP !PGMIN PGMOUTSYSMSGCHAIN PCHEKID P CHUPD2 B26 F CCS CCS 3.0 SL-149@P@P ;@P >@P A @P C @P Jh@P N+50@P Y4@P \@P@P1@PE  3iZ@PN  @P mDELQMST ACTFIL UPREQ @P MOUNT TAPE LABELED: / / ENTER "OK" FOR READY ENTER "NX" FOR NEXT RECORD EN@P TER "EX" TO END @P OKEX@P 6NX@P z@P @P INCORRECT TAPE MOUNTED @P ACCOUNT=# NOT FOUND ON @P END OF HISTORY@P ' END OF REEL X MOUNT REEL X@P TAPE @P YES NO@P  @P \T] 7 8 9hhT . jTz h -hT@P }ؿ 1 hȸ Ah\@P ز 1 d ih\@P 1 hȝ Uh\@P ؗ 1T d h ,h h =fM 1 ,hT  3j[@P N @ d y @ " l An 1 1 l tn 1  dZ\@P N @ "Ta B @ lˤ D "Ta E  E\  E F ET@P !a G H  H I I : d  1d 5\a G H  Hid jd kd T 7 J @P L K J  > L     6 @P g  lp |d MT HI N M T\  O P O̬  /\I C  C I̙ @P T 1T  5 > ' Q܏\ 5 > ' R\ 7 J ' R z z z L  $\I@P H  HT !  H  H I I  T H 7 J S z z z Lm l\I E  E I !@P   d Ta @ d y\ m O  P O @ D "\a E  E@P  I̶   l d T  ?  ?\a T U  U?T  " \I E  E I@P >̌   T I E  E I I  lk  Vd  d = l W,Ih\@P j E  E I LT d XT X  c!>\  E2 Ed:\2 T { T,@P Ih T @P Y Z2 Y ZT62 { @ d y @ !i\  ?  ?ܨ̧ ! d T oz @P d hT {@P 1 l h\@P 1 l h\@P 2 lԀ h\@P 2 T T  U @P @P   3k[@P T 7 J [ z z z L d @P @P @P  @P @P TN y @ 7@P @P ^ @P \r T @\ @\6 @Th@P s .@P .(1H1,20A2,9X,26HTAPE HISTORY UPDATE REPORT,/,1X,20A2,14X,9HRUN DATE:,A2,1H/,A2,1H/,A2,@P Y/,1X,20A2,//,20X,14HACCOUNT NUMBER,8X,14HBORROWERS NAME,17X,12HDATE OF TAPE,5X,17HRECO@P RDS ADDED TO ,13HACTIVITY FILE,/) @P @P (19X,8A2,5X,15A2,5X,A2,1H/,A2,1H/,A2,19X,2A2) @P @P (//,50X,21H*** END OF REPORT ***) @P TPCHUPD2PQ8STP Q8QINI Q8QX Q8QEND MONTO cYERTO gPGMIN ]UTHEAD kOPENFL GETS CCSMVA CCSCST FWTREAD FREAD sf  3l[(PDISP {LINK 0READR ICCSAD uHEXDEC {WRITER CCSBLK FILERR CLOSFL "PGMOUT ,PCHUPD2 PSCLRFIL B28 F CCS CCS 3.0 SL-149@P@P@P**@P @P!ACCAGE CCS20 @P-ACTFIL CCS20 @P9ACTIVE CCS20 @PEACTVERTBCCS20 @PQADDACT CCS20 @P]AGEWRK CCS20 @PiAVMDESC CCS20 @PuCOLSTATSCCS20 @PCOSIGNERCCS20 @PDAQUE CCS20 @PDECTBL CCS20 @PDELQMST CCS20 @PDLYASSN CCS20 ;'  3m[<@PDLYWRK CCS20 @PINACCT CCS20 @PLTRDESC CCS20 @PLTRFIL CCS20 @PNEWS CCS20 @PPGEXTR CCS20 @PRPTPGM CCS20 @PRSWFIL CCS20 @PSREQDL CCS20 @P)SUMHIST CCS20 @P5TAPEARC CCS20 @PATRANFL CCS20 @PMTRNBCK CCS20 @PYTRNSFL CCS20 @PeUPHSTCM CCS20 @PqUTIFIL CCS20 @P}** @P @P @P  3n[P@P @P @P @P @P @P @P @P(@PT h!< (h65 1 (h+* % h n 1@P3 (ЀhT @P< - (ÀhT@PH@PMطTTPCLRFILPQ8STP RPGMIN  CLEAR 9FILERRFPGMOUTPPCLRFIL P7CMPDLQ B29 F CCS CCS 3.0 SL-149@P@P@PAf  3o[d@P@PDELQMST  @PTT (TTT-ߘ 1\ T@P3\TPCMPDLQPQ8STP 6PGMIN  OPENFLFILERRPGMOUTCOMFILCLOSFL1PCMPDLQ PKCMPSUM B30 F CCS CCS 3.0 SL-149@P@P@P@P@PSUMHIST  @PTT (TTT- 1\ T@PG\TPCMPSUMPQ8STP JPGMIN OPENFL#FILERR+PGMOUT1COMFIL3CLOSFLEPCMPSUM P6CPYIND B34 F CCS CCS 3.0 SL-149@P8M  3p[x@P7"@P:  @PC@PG' @POd & @PT@P@P3@P2@P@P/@P  @P  @PINDEX FILE COPY (MAX 2000 BYTES)@P FILE NAME TO COPY FROM @P VOLUME NAME @P FILE NAME TO COPY TO @P OWNER NAME @P XXXXXXXX FILE COULD NOT BE LOCATED@P XXXXXXXX FILE NOT INDEX FILE  3q[@P FILE DESCRIPTION NOT THE SAME @PTT456hgT47879T:\47;7:9T:@P:\:\47=7:9\:>:\:\47?7:9\: @:\@P:\47A7:9\: :\:\47=7:9\: >:\:@P\47?7:9\: @:TBBC (TDB4 T/@P B '\ B4\/ B՜ '\ DB4T2@P+B̽ '\EB4\/2eB̭ '\ EB4e ! j @PV! dFd ! 1d1TiGTBBH +I@P  *TJB4 ldK dL!< , dM h.̣(+dN\O@Ph"T{ h\1G1T/GB̮ '\ PB4[@P3 Q\:Q:T_47R79>\ :Q:\47R7@P9-\:Q:\47S79\ :Q:\47S79 \4787@P(9TB\/B@P2@P2@P%2@P2TTPCPYINDPQ8STP 5FMRDEL[PGMIN UWTREADCCSBLKmCCSMVAOPENFLFILERRCLEAR GETFCB'GETS qWRITERCLOSFL,PGMOUT3PCPYIND!  3r[ P`)DACRTE B36 F CCS CCS 3.0 SL-149@P@P\@P\00@P\@P\ҁ@P\@P\ 01 %+199'+Y@P\ @P\0@P\mKB u0>@P]@P@P.@P3DELQMST  @PBDLYASSN  @P\@PQ@P\0360@P   3s[@P  @P\w@P\@P\@P\@P\@P]TV\\\hTZ\ȷhTZSȩd@ hT3\ȩ (T3\\\T@P]2B\ș '\B\\\B\ȋ '\B\\\T\\\\Ҝ@P]]\Ӝ dR '\3\\\ d\\Ŝ" ($\ d\\,\d\  , d\@P] \h\ \d\ހihT\@P]\\b ^p\w dT\\\x d\\\\\y d@P]\\\\\z d\\\\\{ d\\\\\| d \\@P^\\\}\ d\\\\\~ d\\\\\ h\_\\\@P^,T\֖X ̖W 2\*̿\h̺\hT]_\@P^W_\̭\h\S\_\̡h\\_\\ h\_\\\ h@P^\_\\\\\ h\_\\\\ h~\_\\\\ hr\_\@P^\\\ hf\_\\\\ hZ\_\\\\ hNT^R_\\\\@P^ hA\_\\\T^-\Μ ̞\h)\\_\\^\\@P__\\hTS\\_\\\ "_@P]_J  3t[@P]_@P]_@P]_@P]_@P]_@P]_@P]_@P]_@P]_@P]_@P]_@P^ _@P^ _@P^_@P^_@P_\h\S\_\\ "_ׄ\hӄ\ h\_\_\\ !r\h̾@P_G\ h\_\_\\̿ !]̫\ḩ\ h\_\_\\̨ !F֤@P_r\ 1n\d 9(\\\n\ل\hT_d\ l\-[d 9%@P_\nd_T\_ل]lT\_׬ 1nd 9%nl\]_@P_T^\]Z\]\ ḽ\d_\_\Z _\\N  3u[@P]_@P]_@P]_@P_\@P]u_@P_ l  TZ\\\ 'T])B]\\!T\ &\3]\\T] ]\;i@P`]\Z\ lR ]M@P]/`@P]>`@P]L`@P]Z`@P]l`@P`T\\\TTPDACRTEPQ8STP `(FMRDEL]PGMIN ]CCSBLK` UTHEAD]OPENFL]!FILERR_CLEAR ]1GETS ]NGETACF]CCSMVA_FTNDT1^CCSCST_ ICALJL_PJULCAL_CCSPUT_PUTS _UPDREC_CLOSFL`PGMOUT`&PDACRTE P`/DACRTE B66 F CCS CCS 3.0 SL-149@P@P\  3v[@P\00@P\@P\Ձ@P\@P\ 01 %+199'+Y@P\ 0@P\mKB u0>@P] @P@P.@P3DELQMST  @PBDLYASSN  @P\@PQ@P\0360@P  @P  @P\Q 9000@P\ww@P\  3w\@P\@P\@P\sO@P] TV\\\hTZ\ȸhTZSȧd@ hT3\Ȫ (T3\\\T@P]4B\Ț '\B\\\B\Ȍ '\B\\\T\\\\՜@P]_\֜ dR '\3\\\ d\\Ŝ" ($\ d\\,\d\  , d\@P] \h\ \d\ހihT\@P]\\b ^r\w dT\\\x d\\\\\y d@P]\\\\\z d\\\\\{ d\\\\\| d \\@P^\\\}\ d\\\\\~ h\_\\\\ h\_\\\@P^.T\ٖX ̖W 2\*̿\h̺\hT]_\@P^Y_\̭\h\S\_\̡h\\_\\ h\_\\\\\@P^\\\\ h\_\\\\ h~\_\\\\ hr\_\\\\@P^ hf\_\\\\ hZ\_\\\\ hN\_\\\\ hBT^T_\@P^\\T^/ϔ\Μ ̞\h)\\_\\^\\_\܄\h@P_TS\\_\\\ "_@P]_@P]_@P]_@P]_َ  3x\@P]_@P]_@P]_@P]_@P]_@P]_@P]_@P^_@P^ _@P^_@P_\h\S\_\\ "_ׄ\hӄ\ h\_\_\\ !q\h̾@P_C\ h\_\_\\̿ !\̫\ḩ h\_\_\\̩ !F ֤\@P_n 1n\d 9(\\\n\܄\hT_d\ l\-[d 9%@P_]nd_T\_ل]lT]_#׬ 1nd 9%nl\]_@P_̹\lT^\\_\\\]Z\]\ l̢\d_\_\Z_\ \@P]_@P]_@P]_@P_\@P]w_:  3y\,@P_ l  TZ\\\ 'T]+B]\\!T\ &\3]\\T] ]\;i@P`]\Z\ lR ]O@P]1`$@P]@`$@P]N`$@P]\`$@P]n`$@P`$T\\\TTPDACRTEPQ8STP `.FMRDEL]PGMIN ] CCSBLK`UTHEAD]OPENFL]#FILERR_CLEAR ]3GETS ]PGETACF]CCSMVA_FTNDT1^CCSCST_ICALJL_PJULCAL_CCSPUT_PUTS _UPDREC`CLOSFL`%PGMOUT`,PDACRTE PDAQUEL B37 F CCS CCS 3.0 SL-149@Px@Pt @PKDLYASSN  @PZDAQUE  @P@P@@Pm  3z\@@PxTiopq TTKr !<\-Zr !;TsrؘA !2@Pʔ Ĕ hh$h%hT-EErȳ !hhTKuro@P\Zuro \Kvro\ZwroTr\-r\TPDAQUELPQ8STP PGMIN yPGMOUTOPENFLGETS WRITERFILERRCLOSFLPDAQUEL P@DEBDT1 B38 F CCS CCS 3.0 SL-149@PTz TT@P (5H0 ID=,I4)@P\z ( h 9h\@P"@P&\@P((25(1X,Z4)) @P.H TTh\ h\hPDEBDT11PQ8PKUP7Q8PREP4Q8QINIQ8QX Q8QEND P P DECMTN B39 F CCS CCS 3.0 SL-149@P@P3c  3{\T@P:Y@P= @PB@PDd @PG#'.@PI@P@PDECTBL  @PCRDEADDSPTDUEXDB@P Y INPUT=@PCOPR@P-@P.@PIT /0 TT1 "T1TRi@Pi(39H DECISION TABLE MAINTENANCE PROGRAM IN )@P h\R\@P(38H INPUT CR/DE/AD/DS/PT/DU/EX TO EITHER,/,52H CREATE A COMPLETE TABLE, DELETE A TE@PST, ADD A TEST,/,50H DISPLAY A TEST, PRINT THE TABLE, DUMP THE TABLE,,/,16H END PROC@PESSING,/) @P. T34T5!65'78' w -dT29`  3|\h@P 9  ܔ Ք  ǔ  @P8 ̨ h l?@PCTcZ)[ d&hT@PS 1T@P[(8HCOMMAND ,A2,23H NOT IN TABLE, REENTER.)@Ppy\R,x0@Px(51H CREATE FUNCTION WILL CLEAR YOUR CURRENT TABLE FILE,/,30H TYPE Y IF YOU WISH TO DO@P THAT,/)@PT5!65'8':;T11 "TDR2+@P(53H CREATE TABLE IN PROCESS, INPUT LU OF INPUT STREAM AS,/,19H 2 NUMERIC DIGITS) @P\R4!@P(57H IF LU 04 ENTERED, CREATION WILL BE VIA ADD TEST DIALOG ,/)@P\5!65+78+?dB=H$>d< d@-6 f d d @PG2d _T<AA  d1 f 1TU1T1@Pr "T_1TZFhTQ@PTY@P(3X,A2,30H TABLE HAS BEEN FRESHLY LOADED) @P@P@PT99 " ei  3}\|@P@PT9 "T1̟ " l nܕ 1\1\1̇ "@P\1@P&@P\RW$@P(63H DISPLAY TEST IN PROCESS. ENTER 3 DIGIT TEST NUMBER FOR DISPLAY,/)@P T5!65$B8%=HdB$?$>h"H$DdCTC99 @P 2T{Z] ATCT@P A(21H ERROR IN LINE NUMBER,I4,14H NOT IN TABLE) @P Y&@P- [@P [TE\Ra e@P e(36H TABLE WAS PRINTED ON LINE PRINTER. ) @P z@P4 |@P |\Rd K@P (63H DUMP TABLE IN PROCESS. TABLE WILL BE DUMPED IN FORM COMPATIBLE,/,72H WITH CREAT@P E FUNCTION. INPUT LU OF OUTPUT STREAM AS 2 NUMERIC DIGITS ,/)@P T 5!65)78)?dB=H$>dFTF99  T 5Zj T@P ;FT >Ӳ  3~\@P (20H TABLE DUMPED TO LU ,I3)@P u@P @P TS@P] @P \Rn @P (49H FILE DECTBL NOT DEFINED. USE UTIL AND TRY AGAIN.)@P /@P 1@P 1@P 1\Zq :\1\@P :(37HFILE DECTBL ERROR IN REMOVING ERROR-,Z4) @P Q@PY S@P S\Zt \\A\@P \(24HSUBROUTINE LDTABL ERROR-,Z4)@P l}@Pu m@P m@P mT Zw yT 1T b  3\@P y(43HFILE DECTBL ERROR IN STORING RECORD, ERROR-,Z4) @P V@P @P \Zz \9\@P (36H NO DECISION TABLE IN SYSTEM, ERROR-,Z4)@P 6@P @P \Z} \9\@P (24HSUBROUTINE DELDT1 ERROR-,Z4)@P \Z \9\@P (25H SUBROUTINE DPTDT1 ERROR-,Z4) @P . TGHT TPDECMTNPQ8STP Q8QINI nQ8QX tQ8QEND wPGMIN JPGMOUT OPENFLgCLOSFLwDEBDT1 WTREAD RTVDT1CLEAR LDTDT1PPUTS lPDELDT1ADDDT1DSPDT1 )PRTDT1 \DPTDT1 PDECMTN PQDELDT1 B40 F CCS CCS 3.0 SL-149@P@P @PdW  3\@P@P@P @PY INPUT=@P lh h   h  "&@P9 d &TZMT T?@PM(36H DELETE TEST IN PROCESS. THERE ARE ,I3,26H TESTS CURRENTLY IN TABLE ,/,42H ENTER @Px3-DIGIT NUMBER OF TEST TO BE DELETE/) @PTHh%$hH$d !  1@P\Z\\-@P(26H TEST TO DELETE NUMBER IS ,I3,43H TYPE Y IF CORRECT, TYPE N TO ENTER AGAIN.,/) @P\̧ l .Tl8ldd7<@Pdn@P"ld6%H"TT hh h hh h h\hhFhph\h@PMhPDELDT1-PQ8PKUP3Q8PREP0Q8QINIBQ8QX HQ8QENDKWTREADGTPDT1P PDHUPDT B42 F CCS CCS 3.0 SL-149@PQ-  3\@P4Ё@P<@P> @PBS BT@PL Z@PO@PQUDg@PX@PcADDACT  @PrTAPEARC  @PSUMHIST  @PDELQMST  @P@P.@PB@P A  @P @P  @P + @P ?  [  3\@P j @P/@P00000000000000@P$0000000010000000000000@P  @P@P 03_@P U h@P6)Ge@P @PXT 012 T | whTc3 (Tc430\r3ȳ '\@Pr430\33ȥ '\430\K3ȗ '\430T5T@P3367  *\c830 d zd9 d:" $<@Pd; $>d= {  ? h7T 2@PAA  d h"T2B BT3; 3̐C̊3 5@P/Dl @P3TtE30̞ h\2B B\K 3Fڬ֤7 '\@P^E30; h\2B B\  3̷&̲ܜ!̭ >Gl @PHl\rE30T @IJI ޜ dK h h @P hT  3\@P @PA A I , qـ h\@PLLA aɀ hŀ h h̽ h\;@P@P̲ ḫ h̪ h ̦hT;@P @P1̙ h̕hK h h\@P$;@P'A̚  h h h\;@P< @P? 2T;M MAA l l h̾ h̺ h\@Pe @PhA L dN h hh\;@P @PA , h hހ h ڀhT;@P@P΀ hʀh ƀ h\ @P;@Pܻ 1K 1@P1  3]@PTK33 (T4O30; d2\2\3 '\cO 30@PHT3;3 '\B30 v/  "TZ  % dP@P {hT@P 1\T+@P%(1H1,4X,20A2,4X,29HACTIVE ACCOUNTS UPDATED FROM ,14HHISTORY SYSTEM,28X,6HPAGE: ,I3) @PO\Z i l̼ {h\@P\ܶ (1\ w\ x\ y\@Pi(1H ,4X,20A2,15X,8HAS OF: ,A2,1H/,A2,1H/,A2) @P\Z  )l̋ {h\@PP <1\ @P(1H ,4X,20A2,/) @PT R ;@P(1H ,5X,14HACCOUNT NUMBER,10X,14HBORROWERS NAME,22X,13HFORMER STATUS,8X,13HINACTIVE DA@PTE,3X,17HTAPE ARCHIVE DATE,/) @P d/T QTB B\<R SRHT;@ >T;@  T\;@P U VD \ @ 6\ @ WTZ 5 dP hT@P- <1T#@P5(1H ,4X,60A2) @P<ܣT$))@PEc  3]@P E@PE@PE:@PI@PI z  lTF):AA T ):@Pf@Pf@Pf 1\R q@Pq(1H ) @Pt\Z  l̩(h\@Pܣ 1\ @P(1H ,4X,46HTOTAL NUMBER OF ACCOUNTS UPDATED FROM SUMHIST ,6A2)@PTR @P(1H ,/,44X,23H**** END OF REPORT ****)@P v DT333 'T4305 d d d: f2 1Tl33@P &\430T3;37 1\@30@P @P: @Pb @P +  3]0@P @P @P @P \3@P @P \33@P@P\3@P@P\3@Pb@Pz@PTTPDHUPDTPQ8STP Q8QINIQ8QX +Q8QEND3FMRDELhPGMIN YUTHEADdOPENFLFILERRCCSBLKGETS CCSCSTRCCSMVA_READR PUPDRECDELRECIDATVREDIT CCSADD>CLOSFLCOMFILPGMOUTPDHUPDT PADMPFIL B45 F CCS CCS 3.0 SL-149@P@P?  3]D@P?@P? @P?"Nu0 @P?(& @P?@P @P@Pi@P?@P;8000000000000@Py @P;0000000001@P?@P?Y @P;> DUMP FILE TO TAPE @P;I INPUT FILE NAME @P;T VOLUME NAME @P;] *****OPERATOR-MOUNT TAPE FOR XXXXXXXX ON UNIT 0 WITH RING READY (Y/N) @P; FILE COULD NOT BE LOCATED @P; FILE SIZE EXCEEDS 3000 CHARACTERS  3]X@P; THIS IS A SUPERVISOR COMMAND ONLY @P; *****OPERATOR-REWIND TAPE ON UNIT 0 @P; RECORDS WRITTEN TO TAPE@P?Tu??? T??;>??k?Tk?\??;I??k??k T@P@*k?y?\k?\??;T??k??\k?y??Ty?Ȟ .țAKTy?@P@U??h h Tu?y???? T???? '\y???@P@d?d?"AU\y?;]??̍lT@ ??;]??k?k? T@@P@?T? 1?AD̹?\y??? dd? d?@P@!h , d? , d?h Rj RT@)?;A dT@PA?;?i?TT?d?T;?;8;8?"T??T@??;??k ?@PA,dk\??;]??k?? ܕ̌ @\??\??\??;??k ?)\?@PAW?;??k? @P@ A_@PA_\??;??k?\;8?;??\??;??k?T?@P@XA}@PA}TTPDMPFILPQ8STP AFMRDEL@ZFMEOFC@^STATITA PGMIN @WTREADA!CCSBLK@CCSMVA@OPENFL@DFILERR@RCCSCST@bGETFCB@qGETS @FWRITEAPDISP ACCSADDATAPMOTACLOSFLAzPGMOUTA~PDMPFILz  3]l PDPTDT1 B46 F CCS CCS 3.0 SL-149@P+@P/(@P)**%%@P2l> =2 h7  h- hT/ hhܘ!/ (1#TZ@P]t hȝhT@Piؖ (1T@Pt(40A2)@Pw h\/fدȬ $Ȣf\Zt lh\@P (1\Ȓ \/)l\Zt lрh\@P (1\. d,z\Zt\*\ lHTT h h\hhhh@P\hNPDPTDT1PQ8PKUPQ8PREPQ8QINI[Q8QX gQ8QENDoBLKDT1JP PUDSPDT1 B47 F CCS CCS 3.0 SL-149@P@PM@PS@P\   3]@PJ@P+NULL.EQ..LE..GT..NE..WE..OS.@P;.AND. .OR.  @P^T* "0hT@PnMJȹ(h\@PuNKȲ!h\@P|OL h h hTZT\J\K\LT1@P(/,/,34H DECISION TABLE TEST NUMBER -,I4,10H LVL - ,I1,10H, NLVL - ,I1,8H, N@PP - ,I1)@P\R%@P(/,64H PRM NUM OPERATOR VALUE 1 VALUE 2 CONNECTOR ) @P* lI dQL"TGMT9DG:9  dR dT: $M dU @PdV  l lTZlTQdW9*h\@P=@P@ dCh\@PI 1 lFh\@PV 1dX8:h\@PgT@Pl(8X,I1,10X,2A2,6X,1H*,3A2,1H*,5X,1H*,3A2,1H*,7X,3A2)@PQp\Z"̯h\  3]@P̩`h\@P\$@P(/,31H NUMBER OF RESULT VALUES - ,A2,22H, CURRENT POSITION - ,A2)@P?hTl@PYh\@PSZTZh%\Y$\ d[ dW dXT)Z)l9̖ hT/@Pܐ@PTj@P(15H RESULTS - ,2A2,9(1H,2A2))@P \R+ @P(/,12H END OF TEST,//)@P l@Pg"@P"]l.H+TT hgh] h)hh\ hh\hhJ\hChhh@PM?hh\h PDSPDT1(PQ8PKUP.Q8PREP+Q8QINIQ8QX Q8QENDGTPDT1_CCSGETBLKDT1GPMDT1NUMDT1P PEDIT B50 F CCS CCS 3.0 SL-149@P K  3]@P9 -0@P99/99/9999999.999/999-9999-99-9999@P/ /"+ "&h h hh!+ΈhT`.ۘ   hT@PZ.`@Pbh\`.h\.`ػػ@Pt H hȝ!h\`.Ȩ ׈h\`؜h\,. 1!@P. # l 3l\.,̰ hT`++\, HTTh@P\h\hhhhhhhhh\hh\hOPEDIT PQ8PKUPQ8PREPCCSGETNCCSPUTZCCSMVAP PFILERR B52 F CCS CCS 3.0 SL-149@P@P(#@P_7@Pb?- @P FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . @P)CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GE@PTTS UPDRECDELRECCOMFIL@PiT(T% ! ! , h\)h_`_ Kh   3]@P\bdcd 9hTfaggghHTTh\h\h\hPFILERRPQ8PKUPQ8PREPCCSMVAjCCSHXArWTREADP PFTNDT1 B54 F CCS CCS 3.0 SL-149@P@P@P@P@P@P99@P h h6 fT k h dTh h@P0!(TȿhȢ  (hT@PG (h ș j (hȒjت@PZT  \Ș #T d\ 6@P ll@PHTT h\h hdPFTNDT1PQ8PKUPQ8PREPRTVDT1GTSDT1&GPMDT14TVPDT1DTRHDT1[VALDT1pP /  3] P^GPMDT1 B59 F CCS CCS 3.0 SL-149@P@P@P<̤@P&(;d% M̟ ,\D%h$T%&D h\&$ $T@P& D%s%s 1!\%%s%iv@P& h\&$ $T %s &\%%s%ig%hܘ Sg@P%&@P&\%p%%pT%i%%%%?\%p%%p\%i%%%%.\%p%%p\@P'%i%%%%T&%p%%p\%i%%%% \%i%%%%@P&';@P&,';@P';T%s\%s lP@P%'F@P%'F@P%'F@P& 'F@P'FTTPLMOVDTPQ8STP 'IFMRDEL%PGMIN %CCSCST%CCSMVA' OPENFL%FILERR&lCLEAR %GETFCB& CCSBLK&SGETS &WWRITER&PUTS &WTREAD&W  3^pPCLOSFL'@P B @P F"P  6&'4@P U@P @Pg000000000000@P|  @P &0000000001@P@P ,@P 6Y @Pu TAPE TO DISK FILE @P OUTPUT FILE NAME @P VOLUME NAME @P *****OPERATOR-MOUNT TAPE FOR XXXXXXXX ON UNIT 0 WITHOUT RING READY (Y/N) @P FILE COULD NOT BE LOCATED @P FILE SIZE EXCEEDS 3000 CHARACTERS @P THIS IS A SUPERVISOR COMMAND ONLY  3^@P LOAD COMPLETE. MOUNT NEXT REEL IF MULTI-REEL LOAD.@P RECORDS ADDED TO THE XXXXXXXX FILE @P UTx 8 9 : T 8 ;u < ;n =Tn >\ 8 ; < ;n > =n T@P n >| >\n >\ 8 ; ? ;n > =\n >| @ >T| AȢ .ȟ KT| C@P A 8Tx >| D > EȌ T 7 7 A A '\| F A 8d +d@P H!{\| > I >̗lT a 8 ; J ;n =̉ 6 T k K dT , +@P g -TT ,d 5 L1  T A̦ 1T | M A 8 BT@P , A̕ &\| N A 83T & Ghh\ 8 ; O ;n = \ 8 ; P ;n =2\ 8@P W ; Q ;n = @P _ _@P _T 8 ; Q ;n =T h M R M\| > S >\ 8 ; T ;n =T ATTPLODFILPQ8STP STATIT PGMIN VWTREAD `CCSBLK CCSMVA kOPENFL FILERR #CCSCST GETFCB FREAD DISP WRITER PUTS *PCCSADD 9CLOSFL PGMOUT PLODFIL P LTPRNT B74 F CCS CCS 3.0 SL-149@P@P6@P @P h  3^@P<@P@P @P  : @PAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA@P! $9999999.99 @PCEND @P@P@P @P@*@P$@PD@P9N @P @PF=@P*@P@P00 @PXXXXXXXXX 99, 9999  3^@PXXX 99, 9999@P99/99/99@PMR. JOHN SMITH616 ELAINE AVE@PSAN DIEGO, CA. 92115@PJOHN SMITH@PMR. SMITH @PMR. R. JONES(999)999-9999 @PEXT 9999COLLECTION DEPT @P$ ddChhhdT( h h hT $ lزر\@POȱ  lأT(Ȟ hȖ hܾؗ 1\H\!H h@PzhTHFT 1\J\H dTHd@P\HF\T/J\!H\ H  l\HF\\ J\@PH\ H  l\HF\\JTZH\ H    @Pl\HF\!HT\ d  d dd $ d $@P& ddT:D  6 d!fT@PQ ̾dܹܺ\ l̺ h Tt@Pu l" ̗n\ Z̏l d ̒ h\ẗl\@P̯ d\̦l l\̝ d  h\t  l@P h\t  l\" ܳܲTM l̚  @P̦ diܞtܙ 2 l $ d' a Hd  3^@P !d $ l(Hld   ' )̳ Tk@P L̨ \̞ \\"  \܎@P w 1 l , d $ dPTHd" 9 &@P dH!lll dT~HFT l̽ dtT Kt@P  H  l\HF\ܜ 1\H\!H l\HF \\J@P \!H l\H!\HF\T J\H /l\@P #"H!"\HF\\J\H\H! NdT H FT @P N\JT !H\#H!# kl\HF\(H%TTh'\h@P yhhhhhhhh hhh!h[PLTPRNT nPQ8PKUP tQ8PREP qCCSBLK CCSCST.CCSMVA RFWRITE EDISP MLTRDTECCSGETP P'LTRBLD B75 F CCS CCS 3.0 SL-149@P@P@PP@P(@P)3yd 0@P~Q<"@P0,/9  3^@PU@P@P 2@P @P@P2000*'&@P @P@P@P@PE  @Pp  @P @P  @P @P  @P  @P- @PA  @Pl  e  3^@Pq  @P @P @P@P@P*@P3LTRDESC  @PBRPTTBL  @PQLTRFIL  @P`UTIFIL  @PoA*A, ,@Pu @Px@**1 @P|D=F @PHDR1HDR2HDR3@PEND LTR1@PLTR296@P9M@P99*@P$  3_@P** @P @P2@P@PN@P @P1@P@P@PEXPECTED "*A," - FOUND " ". @PFOUND AN ILLEGAL BLANK IN PARAMETER " ". @PEXPECTED LETTER NUMBER - FOUND A "COMMA". @PDUPLICATE KEY - LETTER NUMBER XX ALEADY PRESENT @P'EXPECTED "END" FOUND " ". @P5FORMAT MISSING "=" SIGN @PAFIELD DESCRIPTION EXCEEDS LIMIT OF 9. @PTEXPECTED "F" - FOUND " ". @PaEXPECTED NUMBER WITH RANGE OF 01-99 FOUND " ". @PyEXCEEDED PARAMETER LIMIT ON PARAMETER # . @PLINE NUMBER IN FIELD DESCRIPTION EXCEEDS 24.?  3_$@PCOLUMN NUMBER PLUS FIELD LENGTH EXCEEDS 54. @PILLEGAL CHARACTER - FOUND " ".@PILLEGAL USE OF PARAM 5. TYPE FIELD DOES NOT = A.@PUNABLE TO LOCATE FIELD NAME " " IN RPTTBL @PUNABLE TO LOCATE LINE CONTROL OR CONTROL INVALID. @PNUMBER OF LETTERS EXCEED 50 @P!NUMBER OF LINES EXCEED 24 @P.MAX. LINE NUMBER FIELD EXCEEDS LETTER SIZE. @PDUNABLE TO LOCATE LTRX IN THE UTIFIL @PW LETTER FILE BUILD @PfPAGE@PhAS OF:@Pk**2 @PqT Y @P00 @P @PTT3ȭ (T3\BȞ '\BTuuh@P-\QȈ '\Q\` '\`TE\m d T@PX '\ ddxd dddddddpd@Prd \T\udTT\g  3_8@P\\u\W\fkp4d, dd@Pp4d,dlp4d,dld 0h 0Ȉdm 0h 0Ȉd@P l dTl Trl 1\l 7 dT@P /TTL\\u\hTu al\@P Z\\̨ %\d\ Ul @P l\\ lT p G@P \\lT  dT .T 6d\ \@P  l\\\̆ !@Pa @P ̇lT 8\'\' l\\\ d\@P  d hT  94 1 r BHlT@P A 1\T \ edT T  ;\@P l=T \d\ l\\d\@P a\a l\\\ d\TV @P ¤  (T  dddT ~ @P B 2̝lT I dT \T dT vd\@P T\Tl\\̿ \ d\@P C Sl\\ d d T  d} # )@P n1\̞l\5ܥ dT T T  d@P \ l̲l\  94̶ 1E̲ ̫t ̤o (  3_L@P ̝| ̖ W̐ ̉r T \ \@P ̬ ̧ ̖ ̝ ̌ ̕  ̌ @P    " \Єl dT   d@P Ed T ]    \ 1\qT@P p 14T BT d\q\\@P  dT T T t |d d d -\@P o olT ;Td\$͌ll ll l@P  d \  l\ d 7"\\l\,Ȍ@P d l\ @P *@P *@P *@P $ *@P * "T < @P 7@P 7  2  2     @P b  ̽  ̺ l̶ r  @P @P ̺  dT  @P jQ  3_`@P ̓ ̠   6̒  2 3  @P Ô      @P@P%@P;@PJ@Pk@P @P @P T "p4d\l" : '0WV lܺ " "@P d T  œ "l\ d̼d @P2 "̱ " l\ \ Ȃd @P] "f "fdl̼d 7"̒ l\  lܤ̃ @Pl\ TO@P @P @P̏ ܔo  d  l d T 1 (@P @P d!@P   3_t@P |  l l\  @P f@P @PT "p4d\,d f l\  Aܽ l\@P @P k@P @P2"f\l\$l̐ lT  A܌ l\@P;@P A@PA̽ Z d \  d 7" @P )Z@PZ l\@P f@P f@P )f@P .f@P /f@P mf@P zf  3_@P f@P f@P f@P f@PfT  0l\y\y lR@P @P@P@P\\F@P @P\\\3@P @P\\'@P @P\T)@P B@P L@P W@P\̮ 0l\\̝ l@P @  3_@Pd dT T @P 6@P @P%@P  2 @P @P  2 @P 6@PTgl\Al\\@P @P dp\ lT  24T z @P &<@P<T   ddd\\Wd qd@Pg\v\v "Z\p d\s\!@P'\'l\;\;̐  2lld <\@P\:̙l\l\ \  " @Pl Ul\\.d\\ Kd@P\5ܔr ( 9"G 4"0 2D yy @P>ۜ X (\dd dl c G m@Pi G w  ̒l Ǧ l\% ll H  3_@Pp  5 d \  2 0" d l@P\~  $ l\  l\ ̼ l\@Pr       G&̒l 6"@PG\z dl l 2 G\y@P@ll\\c d\\P! l l@Pkd\l\l 2 UT @P2\Qy\[d\\Ul\!@P\!ܵ\5\\ul\\\@P\\u\W\fkp4d,d@Pdp4d,dlp4d,dld 0d 0dm 0l 0 Ȍdl@PB d\l b\Zrl 2E\Llxd@Pm\o\o\\2\*u\"h\u@Pl\@\@ "\E \m@P  "UTu\*d\l\\@P@P @P\E\m\i 2!\@P\E\ET 2C\\@PE\g\_Eed\\\G̚@Pp̔̎ 2\G\*m\"mG\G d  3_@P2\Gt\V\\ml\ \@P \5\\D d\\\@PD l\D ed l\\ T@P\\TTPLTRBLDPQ8STP &FMRDEL+PGMIN OPENFL FILERR-UTHEAD'CCSBLKGETS !CCSMVAFWRITEDISP CCSCST?LTRDTE QCCSGET KPCCSPUTREADR jICCSADWRITERLTPRNTUPDREC2CLOSFLPGMOUT$PLTRBLD PLTRDTE B76 F CCS CCS 3.0 SL-149@P@PI @P , 19 @PJANUARY FEBRUARYMARCH @PAPRIL MAY JUNEJULY@PAUGUSTSEPTEMBER OCTOBER @P(NOVEMBERDECEMBER@P0JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC @PRhhhh  @PiTII\IJITd"! ."4GYl~@P\JHJȫ h \KKV  3_@P\ KHKȗ h\KK\MHMH h\KK\M@PHM h\KK\OHO hTjKK\PHP@P h\KK\PHP̲ h\KK\NHN̟ h\@P*KK}\LHL̍ d\KKj\$JHJH l\KKW@PU\(KHK l\KKE\,KHK lTKK2@Paz@PzTyd  dQ\0QOO\II\IJI l\KK@Pc@PTH@P@POHLTThh h h\hhhhhhhhhhh&h@P.h5h=hDhLhRh[hahjhphxh~hhhh\hrh\hoWPLTRDTEPQ8PKUPQ8PREPCCSMVArICCSAD{EDIT P PLTRPRT B77 F CCS CCS 3.0 SL-149@P@P@P < @PP .A  3_@PB)(&'i"=630Nlj@P%s2@P+@P. @P8 : @P>@P @P  @P  @P @P @P  @P! @P5 @PS @Pg  @P @P  @P @P   3`@P @P$  @PO @Pc  @P @P  @P @P  @P @P  @PK @P_  @P @P  @P @P  @P @P  @PG @P[   3`@P @P @P @P   @P > @P R  @P } @P  @P @P  @P @P   @P : @P N  @P y @P  @P @P  @P @P  d+  3`(@P 6 @P J  @P u @P  @P @P  @P @P @P @P 3@P T@P l  @P @P  @P COSIGNER  @P DELQMST  @P LTRFIL  @P TRNSFL  @P UTIFIL  @P A*@B  3`<@P " ,,@P 0::@P 5D $@P ? H@P >F=@P T @ d 8 d 9 d :T $ Ȟ (T \ < ȏ @Pi'\ \  d " '\ \  d '\  @P\ T  '\  d Zd d md d T U 0 ! c\ U 0 !@P cTT S\ \:dT  K _ d T "@Pd*\ UX U* c W  I T T  T  ;  @P 1T\ \\/\ l\ Tj Ϭל ɬ@P@  1"\ TTdT  K _ dT "d@Pk*T U 0 ! c\ U  U* c W   I \ \ U@P c\ U  U  c dT <   / ; T  T @P ̕ b1TS  \ U  cT < l f ;@Pܷ 1TT < ̵ 2vTm U  c\ TO \  d \@P < ̐ ̉ '\ \   M T   "@PB \  T   d .T T  ;  T  @Pm 1fT T\\  \lT_ S _ d Tg@Pl\ T _ d\l\  K _ d\T \ !\!d\@P T _ d\ l\  K _ d\TN   \  T:  @P \  TY $v  ;  T  1 Tq  s  3`x@P\ I\ I\I d [d \d `d ld ^d l d ]T@PD d\v ` > + l\v ` I  ld QT@Pov ` ] l̽ lܶ 1̴l\T   T  ;  @P 1T \  \\   9 34 @P1`\ \ n \ } \   \ Tn @PTD  \ n \ \ } \  \! @P\"  \  x\ #T  T  ;  1T @PF\  \\ $%d$ hkT  n 2h`@Pq\  } T  PhR\   dhH\  \   h;\  @P\\ SdT  K _ dT\ 6 d 2>l\@P  K _ d\@P\'T 8\''l\  K _ d\\(TgTj@P O\ ))̢ \ &l\  K _ d\ l d Ty@P'\g 1+  d*\ l*++ d\ "  1 @PR3 l l l\ n , & 1T n   d 4T 4 "@P}  l 1 ly̱ d,\ n,g,̦ d-l =\ n "̠@P ܓ\ n, ,ۄ lMll >\ n "   d 3@P d\ n " ֜lҜ ld 4Tm n- 3 4 3 l\g,@P 4, lT$(lT  K _ dT\\ R\  G 1l@P)\  K _ d\\( \ G G l\   Yd\ I  3`@PT K _ d\\(\ }  G nl\  K _ d\Tx . ". \(T@P   G l\  K _ d\T(\  G̘  ̢ d\ @PlT  K _ dT\\ 6l\  K _ d\\0 Qd ` @Pd1 d / dd a $ d2 $ d3d4Tov ` D @P 6 d$ H!fTv `**  ̴ܷd -ܰܯ\v `* l@P+̺ d\Nv a - - l̜"̘n\v `*Δ  v̅l d1̒ l@PV\'v a - -̇l `\v `*̮ d5\v `*̥d L l\v `*̛ d /  @P$ 2 l\ 4 4  4l" l l\  l d@P\g,,҄, l\ L2$*  ܘܗ\Dv `* l1 @P̊ a d -L `$V 2 l $ d6 " `@PHd78d Y $ d2Hld d  5  7 ^@P-   T 82̛ ̗ T  "\ 2@PX\% \ !t\*\i - - \ 2 \@P2R\\ "929\  d$\S$ "  1@P d A2l\ 72  d- d\$-- \  -2 -@P 2 l $ l $  d3:R\d /" 9 &@P  Rd 6lll'd\  K _ d\l2 l\P@P/; G;Bl\u  K _ d\uܗ 1\I\2 6`l\W @PZ K _ d\W\<  l G d*\ R 1+  d$\@P (\ l$+*+ dl\Z$ "  1nj l\*  3`@P*ܻܺ\)*)l\  K _ d\̡ l\"/. ". @P\(\W/*l\  K _ d\\= "̣ (\(\y@P <** d\l='d\  K _ d\\i\R 6@P1\Jj * Hl\o  K _ d\o@P/J@PJ@P[J@PJWl\` S _ d\`dl\S T _ d\S l\F  K _ d\F@P q@PMq@P[q@Pq@P q@P!q@P+q@Pwq@Pq@Pq@PHq@Pq\p $\l <\h \d \` T  3`@Pb@Pp@P@P@P@PTTPLTRPRTPQ8STP ADAYTOKAMONTOFAYERTOPPGMIN ?OPENFLFILERRBWTREADCCSBLKCCSMVAFWRITEDISP READR *GETS PCCSCSTCLOSFLLTRDTECCSGETEDIT 8IDATVRIPGMOUTPLTRPRT P<RSTA B78 F CCS CCS 3.0 SL-149@P@P!c@P!e()QE @P!o@P!sLT2@P!vd@P!|@P!tB @P!v:  3`@P!@PTRNSFL  @P@P01@P#@P @P 000000@P@P000000@P@P@P@P @P 2@P ]@P q@P000000@P" @P$@PO  3`@Pb@P@P@P@P@P @P@PJ@P^@P@P@P@P@P@P@PF@PZ@P@P@P֚  3`@P@P@P@PB@PV@P@P@P@P@P@P@P>@PR@P}@P@P@P@P@P@P:M  3a@PN@Py@P@P@P@P@P @P 6@P J@P u@P @P @P @P @P @P 2@P F@P q@P @P t  3a@P @P @P @P .@P B@P m@P @P @P @P @P @P *@P >@P i@P }@P @P @P @P @P &B  3a,@P :@P e@P y@P @P @P @P @P"@P6@Pa@Pu@P@P@P@P@P@P2@P]@Pq@Pf  3a@@P@P@P@P@P.@PY@Pm@P@P@P@P@P@P*@PU@Pi@P@P@P@P@P  3aT@P&@PQ@Pe@P@P@P@P@P@P"@PM@Pa@P@P@P@P@P @P@PI@P]@P  3ah@P@P@P@P@P@PE@PY@P@P@P@P@P@P@PA@PU@P@P@P@P@P}~  3a|@P@P=@PQ@P|@P@P@P@P@P@P9@PM@Px@P@P@P@P@P @P5@PI@PtL1  3a@P@P@P@P@P@P1@PE@Pp@P@P@P@P@P@P-@PA@Pl@P@P@P@P  3a@P@P)@P=@Ph@P|  @P @P  @P @P  @P% @P9  @Pd @Px @P$@P- @Pp@P!]@P @P!**TOTALS@P!UTIFIL  h  3a@P!LTR1@P!000000@P COLLECTOR LETTER STATISTICS @P PAGE: @P @P AS OF :  @P @P @P  @P> @PR @PU LETTERS REQUESTED  @P @P @P NAME  @P @P @P COID  @P @P Y  3a@Pq TOTALS  @P @P @P! LTR1 RECORD NOT FOUND  @P!F @P!Z @P!T!_!`!aTCT!b (T!c!b!dT!e!f!e\!g!e !c!e\@P!!h!e!c!eTC!i\ !!bȞ &\!!c!b!_T !!bȏȉ @P!!b '\!!l!b!_!\  !!b!k!j '\!!l!b!_ @P" d!m  d!n  d!qT !n!o!!o!r!r u\ !n!o"!o!r iT! @P"4!n!o!q!o\ !n!o!p!oɀ h hT@P"H 1 !sG ݔ" @ ḽ  l̨  l\ !n!o!!o!r̲ (\@P"s !n!o"!o!r̦ \ !n!o!q!o\ !n!o!p!o!m hh\@P" 21 d!uTF!vTFF!b!b!w#h!k +T!!x !b!_@P" d!]d!y l"#b̿ $!id!z̹ $!|d!{ hpT"F#J!o!o!r!r u@P" )h_\F#J!o"!o!r f )hPT"2F#J!o !p!oT"E !} c!}!R !N h8\F@P##J!f!f!r #  d̰ h!\F#J!f!f̦ h\F#J!f!f  d!~!u@P#@9 h @P#Kl 2,ьh 2,͌h  n!^!mg@P#b!] "̷d l! l˜; 2,hnܽ l̹! lޜ&  3a@P#< 2,h쨆 6nܢ l˜6컎lܸ l!;̰  d!n d!~ 2,@P#hT@P#T"!p!r!r T""!p 2$!md#Jf 21p@P#  $!t d!,d! "ll"$  dɜ I\@P$\!p!r̪ \"!p\!p!o!!o!u , d!n\!!!n!@P$@ l$Ud# B,MhT-@P$O!#$%T 1T".!T#!f!!fT! !!b!b (T"!!l!b!_ \ @P$z!p!.!o!̱ #̮d!̫ 2 l d!~!  l 2$!md#Jd\!o@P$.!n!o!u 11hT#@P$! d!nT#!!n!r!r \"!!n 1 lT$_!!c!f. !n!f$@P$d#T$L-.!#$%T$Tܪ̧  !{T$[w! l!!1̕  l̐ 6h\@P% ! d!q\!!q!r̪ \"!!q 1\!!c!fq!n!f!m!u 1-T@P%8$ 6! d!nT$!!n!r!r \"!!n 1 lT$!!c!fq!n!f@P%c%qd#T$-q!#$%T$ "!l!"&Z̰  d̪ J \@P%\!p!r̰ \"!p\!p!!!o̊  l\!!!n!  l̆d!q@P%  l%l B,Mh\-@P%!#$%\!n 1T$.!T%\!f!!fT$g !!b!b (T$q!!l!b!_ \ @P%!p!.!o! d!~!u!  l 2$!md#Jd\!o.!n!ohT@P&%8@P& ! lT%?!!q!r!r \"!!n!q 1̾  l\!!c!f. !n!f&W,  3a@P&Kd#T%h-.!#$%T%pܯ̬ "#T%w! l̔!2̛  d!n̕ 6h\@P&w! l\!!q!r̪ T%"!!qܪ 1\!!c!fq!n!f!mT& 6! l@P&T&$!!n!r!r \"!!nܹ 1!u  l\!!c!fq!n!f&d#T@P&&N-q!#$% T&V@P!&@P!&@P!&@P!&@P&&l\-!!#$%\@P!&@P"&@P"&@P#&@P$w&@P%u&@P&T!b@P!&@P&TTPLTRSTAPQ8STP &PGMIN !UTHEAD!OPENFL!FILERR%CCSMVA&EDIT !READR %CCSCST&DECHEX#CCSBLK&bGETS "HEXDEC&FWRITE&Ҩ  3bPDISP &CLOSFL&PGMOUT&PLTRSTA P(MHUPDT B79 F CCS CCS 3.0 SL-149@P@P@P (@Pd @P@P @P@P2m@P @P.@P@P @P1@PX@Pg@P@PB  3b@P@P@P@P@P@P!HDR0RSW1@P  @P @P  @PA @PU  @P @P  @P @P  @P @P  @P= @PQ  @P|  3b0@P  @P @P  @P @P  @P9 @PM  @Px @P  @P @P  @P @P  @P5 @PI  @Pt @P  @P @P@Pfu  3bD@PRSW@P@P@P@PRELEASED SATISFIED WRITTEN-OFF @P"INACCT  @PIDELQMST  @PpCOSIGNER  @PACTFIL  @PSUMHIST  @PTAPEARC  @P UTIFIL  @P,3qw@P6}hZ @P@)@P&@P "RSW1" RECORD NOT PRESENT IN UTIFIL @P*@P VALUES IN "RSW1" RECORD -- NOT NUMERIC. @P%END OF HISTORYq9  3bX@P2@PJ@P END-OF-TAPE -- MOUNT ANOTHER REEL. CARRIAGE RETURN WHEN READY. READY @PT T "ȿ (T"T\1IȰ *\IT \@P*\Xpȟ ,\p\ \1\\Ȍ /\\ \1\X \\@PU 1\\ \1\X\\\ 1\\ \1@P\X\\\T   1T \ \1T&X\\\@PT d"T!̝ќ̘ )\ \ ,1hT@P 1\#ά .T\ d f ,@P d lhT $ 94 1\Tv@P % $ˎn ڬ$n Ь$췎n 1ܯ 1\@P PdddTdTdTT d@P {d dT ΤxdTz  T@P \\\TA@P (1H0,9X,6HTOTALS,//,12X,13HRELEASED ,I5,/,12X,13HSATISFIED ,I5,/,12X,13HWRITTEN@P -OFF ,I5,//,7X,18HMOVED TO HISTORY ,I5) @P T nT r% d lT\̂ (T" @P #TJ T  2 \"\\J@P ET  d d J 1 l dIfQ 1T1@P pR̹̳̿ '\IT \ l̺췞 E  3bl@P ܳ 1T cl !\T  *T "T@P id$d $\dЖ " dIfQfafYfifr @P 1 T m1R ̶ *̯ќ *̨ '\Io@P   * +dd d5h?h5h +hT @P C@P F 1dddd $ݬlT +1 (T I@P q(TZ 13\T Z '\\@P T  '\ dT \Xb̬)̦#̠@P '\p l\X̐ '\pT ?Jddr@P h\@P jά (T khT J@P  BπhT b@P # '\l\Jj̵h\J@P >̪l! d̟ d UdT  l̎$ !͔#@P i  l tl\{T sΤQќK (T @P  dT{ @P (A2,1H/,A2,1H/,A2)@P lf̮ l 1T T ̴ '\*T V \J@P \\JsT ss̊ '\T  @P  (T " T zZ 0 dDhT gg  3b@P & 1\T @P 0(1H1,20A2,8X,27HACCOUNT MOVEMENT TO HISTORY,42X,5HPAGE ,I3) @P N\z\ lȀXh\@P [ 1 dh\@P i 1 ḽlh\@P vܧ 1\\\\@P (1X,20A2,12X,10HRUN DATE: ,A2,1H/,A2,1H/,A2,/,1X,20A2,9X,15HAS OF: RELEASED,I3,17H DAY@P S, SATISFIED ,I3,19H DAYS, WRITTEN-OFF ,I3,5H DAYS,/,1H0,15X,7HACCOUNT,9X,9HBORROWERS,@P 24X,8HINACTIVE,9X,4HDATE,5X,14HDATE LOST WITH,/,16X,6HNUMBER,10X,4HNAME,30X,6HSTATUS,8@PX,28HINACTIVE TAPE ARCHIVE DATA,/)@P@P @PT za k dh T $@P+ 1 lh\@P8 1 l $Ќh\@PH 1 lӀh\@PU 1 dzh\@Pc 1T .@Pk(11X,8A2,4X,R1,14A2,A1,3X,6A2,5X,A2,1H/,A2,1H/,A2,4X,4A2) @P̎  d  3b@P @P "T   (T " d. d0 d f 1T @P" '\"T Τ 1\@P }@PdTTTdќT \T@P  l\\\lլTTPMHUPDTPQ8STP 'Q8QINIQ8QX )Q8QENDiAMONTO SADAYTO YAYERTO ^STATITPGMIN OPENFLFILERRPGMOUT%CLOSFLREADR xPCCSMVA WTREADCCSGET FICALJL ICCSAD CCSBLK GETS TAPMOTCCSCST DELREC UPDREC WRITER ENCODE COMFILPFWRITEDISP PMHUPDT P'MOVDAT B80 F CCS CCS 3.0 SL-149@P@P%@P%@P%@P%: @P&d &@P& "@P& $  3b@P$DMACCAGE$$ DMACTVTB$$ DMCOSIGN$$ DMDECTBL$$ DMDLQMST$$  DMLTRD@P%SC$$ DMLTRFIL$$ DMNEWS $$ @P%* DMRPTTBL$$ DMSCNDSC$$ DMSCNFIL$$ DMSUMHIS$$ DMTAPARC$$  DMUT@P%UIFIL$$ ** @P%cACCAGE CCS20 ACTVERTBCCS20 COSIGNERCCS20 DECTBL CCS20 DELQMST CCS20  LTRDES@P%C CCS20 LTRFIL CCS20 NEWS CCS20 @P% RPTTBL CCS20 SCRNDESCCCS20 SCRNFILECCS20 SUMHIST CCS20 TAPEARC CCS20 UTIF@P%IL CCS20 ** @P% @P%**@P@P%@P$@P@P@P  @P  @PvINDEX FILE COPY (MAX 3000 BYTES)@P FILE NAME TO COPY FROM @P VOLUME NAME j  3b@P FILE NAME TO COPY TO @P OWNER NAME @P XXXXXXXX FILE COULD NOT BE LOCATED@P XXXXXXXX FILE NOT INDEX FILE@P FILE DESCRIPTION NOT THE SAME @P& T%%%hڲ h hT$%%%%% T$%%%\%%@P&4%%\%c%%%\%%%% h ffإ 1T%ȜȖ (@P&_T%%%T%Ȇ '\%%\%%%'} '\%%%@P&T$% '\%%%\$e% '\%%%e '@P& j ' d%d ' 1d$T%T%̞%@P&'̗% ̒ *T&`%%% ld% d%!e , d% h>̤@P' (;d% M̟ ,\D&h$T&('FD h\'F$ $T@P'6 D%% 1!\&%%v@P'G h\'F$ $T % &\&%%g%ܘ Sg@P&['k@P'k\%&%T%&&&&?\%&%\%&&&&.\%&%\@P'%&&&&T'$%&%\%&&&& \%&&&&@P&'@P&'@P'T%\% lP  3b@P&&'@P&f'@P&u'@P&'@P'TTPMOVDATPQ8STP 'FMRDEL&PGMIN & CCSCST&CCSMVA'OPENFL&RFILERR&CLEAR &hGETFCB&CCSBLK&GETS &WRITER'6PUTS 'RWTREAD'sPCLOSFL'PGMOUT'PMOVDAT PNEWS B81 F CCS CCS 3.0 SL-149@P@P@P @P@@P(@PP@P'J @P @P*NEWS CCS20 @P #  3b@P COLECT @P7@P9EX @P>@PELALEGAL @PJ**************************************************************************@Po************************ N E W S XX/XX/XX ************************@PANSWER 1,2,3(CR)@PREADY @PNEWS  @P@P@P.@P@P TAdddhhAE TZ;@P5TTL@P;(A2,/,36HCHOOSE ONE OF THE FOLLOWING OPTIONS:,//,2X,12H1) NEWS ONLY,/,2X,34H2) DISPLAY@Pf NEWS THEN GO INTO LEGAL,/,2X,26H3) SKIP NEWS GO INTO LEGAL,//) @P d>T>H d 1 1 TET@P 2y T\\ 2yݬ \  3b@PT0Z-T6T9M@P(A2,/,36HCHOOSE ONE OF THE FOLLOWING OPTIONS:,//,2X,12H1) NEWS ONLY,/,2X,35H2) DISPLAY@P NEWS THEN GO INTO COLECT,/,2X,27H3) SKIP NEWS GO INTO COLECT,//) @P: d>T>H d 1 1 TT@Pe / TTT Ɣ8 @P *\ d7d d" $d@P $d ο=  hT W d@Pd@PTZN d IhT@P %1T@P(1H ,37A2)@PTo\ZQ lnh\@P %1\\ZR lɀIh\@P/ %1\M h\̙ ll hTZ\Z@PZZl l̓h\@Pe܍ %1\@Pl(1H ,37A2)@Pq ddi)7 , d>T> @P> TZjTT@P(A2)8  3c @P lM@P@Pp@P@P@P@Pll-Ṯ )\Zs\\@P(A2,///,20X,25H***** NO NEWS TODAY *****) @P lll T 9@P@PX@PAE \F\ @P@P@Px@PTTPNEWS PQ8STP Q8QINIQ8QX Q8QENDAMONTOADAYTOAYERTOFMEOFC FMRDEL$PGMIN  WTREADCCSMVAQOPENFLbFILERRrPCCSBLKzGETS ~CCSCSTEDIT  CLOSFLCHAIN PGMOUTPNEWS  3c  P ,NMCHNG B82 F CCS CCS 3.0 SL-149@P@P}@P @P @P@PDELQMST  @PADDACT  @P@P @PTmyz{T | (T}|y\| '\}|ytT #~|@Pɘi &\|y`T#-- T#qTq|ȡ &\@P|y?T#ȗ \\T|| &\|@P yTTq| 1T|yT|\ |TTPNMCHNGPQ8STP +PGMIN OPENFLFILERR GETS CCSGETCCSMVAREADR CCSCSTDELRECCCSBLK WRITER CLOSFL "PGMOUT )PNMCHNG P NUMDT1 B84 F CCS CCS 3.0 SL-149@Ph 9 6 3 hh@P HTTh}  3c4PNUMDT1PQ8PKUPQ8PREPP PPGCNT1 B87 F CCS CCS 3.0 SL-149@P@P @P:CL @P@P@P@P2UTIFIL  @P$$RGMENU$$  @PRPTPGM  @PA$$HOST $$  @P$$RPMENU$$ @P@Ph@P@P@PPw  3cH@P@PY@P_@P@P-MNUPRO @P@P)RPTG @P100@P@P>PRCWRK @P2PRFPG000CCS20 @PJ$$PGMNAM$$  @P{RPTE00RPTP00RPT000@PT Th2 )T2T-Th)˨ +\2T@Ph\-d\h h fgذ 1Th21 \ȗ '\@PE\-d\ڜ *\\\-\\ '\@Pp\-̪hY̦hV (THQ dT -TTT-@PT\Ṭ *\\\-\d}dT@PYJ & d܀C@P\Yq{ڜޜ # l*TYq # l\Yq~Ϭޜ  3c\@P"ʬ # l \Yq̻ / lTJTYT-\Y dd\@P*̝ '\\-T *\\\- d@PUT\d5T>2 '\>\-TPA '\A\-\@PP̹̳ -TATPT-\P d 4L@PdHdDdd !  !  :  4@P  1T l fOܸ 1 d\TPPGCNT1PQ8STP PGMIN OPENFLqFILERRCHAIN READR CLOSFLDELETE1CCSMVAUPDRECVDELRECGETS 8RENAMEaPGMOUTPPGCNT1 PPGCNT2 B88 F CCS CCS 3.0 SL-149@Pe@Pa @PZRPTG@PMNUPRO @P@P UTIFIL  @PeT\]^ hT ` )T a`\TT0Z`ۨܘ +\ c`\@PT`\Ȥ hT0` h\`ȹ \TTPPGCNT2PQ8STP PGMIN fOPENFLnFILERRvCHAIN |READR CLOSFLUPDRECPGMOUTJ  3cpPPGCNT2 PHQ8QBDS B89 F CCS CCS 3.0 SL-149@P0UTIFIL  @P0DELQMST  @P0RPTTBL  @P0-RPTPGM  @P0  3dL@P-u@P4u@P;u@PAu@PulĀ@Py@Py@P9y@PCy@Py@P y@PylHFPPGGEN1PPGSLSTPGSEDT PGSJR PGSJL (BINASCsASCBIN WTREAD READR 9CCSBLK KCCSGET CCSPUT #CCSCSTCCSMVA hP PHPGGEN3 B92 F CCS CCS 3.0 SL-149@P@PT@P@Pz  3d`@P @PF @P * BEGIN EXTRACT@PINPUT=PRFPG0XX@P UTIL@PCLEAR,FN=PGEXTR @PEX@PRPTEXX@P" * EXTRACT COMPLETE @P, * BEGIN SORT @P3INPUT=PRFPG0XX@P:DSORT @P=FN=PGEXTR,CCS20 @PEF2=PGEXTR,CCS20,@PMOP=T,F,A@PQKF= @PSL=I@Pq * SORT COMPLETE@Py * BEGIN PRINT@PRPTPXX  3dt@P * PRINT COMPLETE @PPGCNT2@PUTIL@PFLUSH,HO=LOCL,DO=-@PEX@PMNUPRO@P@@PRPTG,@PT3 "T10d!d9hd Th\@Ph\ 1h\h\1h\@P1$h\"/h 0\,1Ad\39@PGMlz\:Yln\=elbTE1rlU@Pr\M~lI d d̫!Z d dd0! 1T@P VhT@Pބl l d$  l\S1T3^\^1 ,l̫@P lṬ lܣ0$ d E" ElTfQ\Q d@P, l E/ 1l\l\$l\q@P+0l\y1IF(ICMP.XX.0) GO TO X00@PJCALL CCSCST(WRKMST,K+XXXX,XXXX,WRKMST,K+XXXX,XXXX,ICMP) @PfCALL CCSCST(WRKMST,K+XXXX,XXXX,IVLXX,1,XXXX,ICMP) @P 200 CALL CCSBLK(EXTREC,132) T  3d@PGO TO 300 @PCALL CCSMVA(WRKMST,K+XXXX,XXXX,EXTREC,XXXX,XXX) @PDATA IVLXX/'XXXXXXXXXXXXX '/@P PROGRAM RPTEXX@P INTEGER ID(4),LU,ISTAT,EFG,FDEL @P INTEGER REQBFD(24),IDATDM(15),WRKMST(9000) @P INTEGER REQBFE(24),IDATEX(15),EXTREC(68) @P INTEGER IVL01(7),IVL02(7),IVL03(7),IVL04(7) @P% INTEGER IVL05(7),IVL06(7),IVL07(7),IVL08(7) @P> INTEGER IVL09(7),IVL10(7)  @PW INTEGER IVL11(7),IVL12(7),IVL13(7),IVL14(7) @Pp INTEGER IVL15(7),IVL16(7),IVL17(7),IVL18(7) @P INTEGER IVL19(7),IVL20(7),I(8)  @PC @P EXTERNAL FMRDEL @PC @P DATA REQBFD /24*0/ ,REQBFE /24*0/ @P DATA IDATDM /'MMMMMMMMCCS20 ' ,1,9,0 / @P DATA IDATEX /'MMMMMMMMCCS20 ' ,0,1,0/ @P DATA EFG /0 / |  3d@PC @P CALL PGMIN(ID,LU,MODE,NPORT)@P ASSEM $C000,FMRDEL,$6400,+FDEL@P) CALL OPENFL(REQBFD,IDATDM,ISTAT)@P] REQBFD(23) = 1@P< IF(ISTAT.GE.0) GO TO 50 @PK CALL FILERR(IDATDM,3,ISTAT,LU)@Pg GO TO 850 @Po 50 CALL OPENFL(REQBFE,IDATEX,ISTAT)@P IF(ISTAT.GE.0) GO TO 100@P CALL FILERR(IDATEX,3,ISTAT,LU)@P GO TO 850 @PC @P 100 CALL GETS(REQBFD,WRKMST,I,ISTAT)@P IF(AND(ISTAT,$8100).EQ.$8100) GO TO 850 @P IF(AND(ISTAT,$100).EQ.$100) EFG = 1 @P IF(ISTAT.GE.0) GO TO 115@P CALL FILERR(IDATDM,14,ISTAT,LU) @P GO TO 850 @PC  3d@P 115 DO 300 N = 1,9 @P! J = 1000*N-999@P+ K = 2*J-1 @P3 IF(WRKMST(J).EQ.$2020.OR.WRKMST(J).EQ.FDEL) GO TO 300 @PQ CALL PUTS(REQBFE,EXTREC,1,ISTAT)@Pd IF(ISTAT.GE.0) GO TO 300@Ps CALL FILERR(IDATEX,11,ISTAT,LU) @P GO TO 850 @P 300 CONTINUE@P IF(EFG.EQ.1) GO TO 850@P CALL CCSBLK(WRKMST,18000) @P GO TO 100 @P 850 CALL CLOSFL(REQBFD,ISTAT) @P CALL CLOSFL(REQBFE,ISTAT) @P 900 CALL PGMOUT @P END @P*JOB, @P*K,P2 @P*FTN@P MONm  3d@P*LIBEDT @P*K,I8,P8@P*P,F,2@P*K,I8 @P*N,RPTEXX,,,B @P*Z@P;T1  "T hT   h\ \ȫ Ph@Pf\ȡ Ph\ȗ Ph\ȍ Ph\ȃ Ph\@P Pl "p4d d  l\ Pl\  Pl\@P% Pl\> Pl\W̿ PlTPp̴ Pl\@P̪ Pl\  ̠ Pl\̖ Pl\  ̌ Pl\@P̂ Pl\6\:\ Pl\ Pl\@P= Pl "p4d Pd ) | dld0!c Ad@P0h, RT1T1   1hH\)!!"̨ h>\##̞ P l(@P ' d$\$1\1   ̲ h\1)!!" h\## Pl@P̚ "lܚ@P "p4d d j l\  Pl\&& Pl\''@P PlTr)̶ Pl\]̬ Pl\<((̢ Pl\K))̘ P@P l "p424 lfll\>424 lU d$T &$1\1@P  f01 \.f1\f2 l2l̹l\>424 l!̧l̩@P lT >424lll\>424 >d ̩ l\$1\1 f@P I0 \1.f1\f2 ^ldBdH\>424l@P t( < l l\>424ll̚l\>4 24 @P ll̉lT >424lξ :̾ "̞ll\>42@P 4 d kl̯l\>424l[̰dBdH\>424lH@P ( <Ȕ ̎l l\>424 l(ll\>424@P %ll̼lT >424 lξ ;̾ #l̿l\>@P K424 Ud l̮l\>424 l̯dBdH\>424 l@P v0( ;0Ȕ ̞l l\>424 lll\>4@P 24 l̚l̽lT +>424 lƜ "̄ll\>4 24  3e@P lml̸l\>424 d \l̅l\>424 lK@P ( @P m @P @P @P @P @P  "l Ad@P @P ̃  \%2% l/@P @P \55 d  l  ld l!c\1T 33{ "@P 8T  4\1 54$-5 d3T 31T 1\1./\67@P c\1\1'\2 {d 1\ ̠l l  d\Q@P  Pl\d(( Pl\s Pl\** Pl\"@P " Pl\## Pl\55̻ PlT O**̰ Pl\55@P ̦ Pl\55̜ Pl\88̒ Pl\%%̈ Pl "p4d d@P * d\ Pl\ Pl\ Pl\@P: Pl\ Pl\   \""̾ PlT   ̳ Pl "@Pepd0?\v4l̤l@Pd:\s140dDḷlli  2X d"^  d;  3eP@Pnjdd6lTZs4ldIdJd0Kd0M d*@P Xl0 H d!Cll\s4̛l̽lT^_l $  d@P15\T4\3^\^14\14ܺ v@P`dld6d:Ty4dDdIdJ0dK8d<@Pd=d>\140 7d l!/̽l̿l\y14@PlT0(^00_dE̢lll\4\^14]܄ľl\|@P4ddd1Tp49ld06\|4l@P ll\140ld<0d=0d>\v43d @P7 d"̼llll 0dTs04\4$  d@P1b\ 4Ԍ dddT14l0d6d:\m94@P\ 14d0IdJl̗ Yl̾ l\p4̳@Pl̰ l ̈l\14dc, l̬l̓ l\m4 @PA dM\ 14̠l̢ ll3̽$ l !28d6@PԌ d:Ttm4A l\1 4dI dJ:l@P9Yll l\140dD0dE0dF@P@\@P\wd̩l0d<0d=0d>\v4d 2l "W@P̆ dd dd60d:Ty14llldIl@PdKlll 0 d\14ld0l ; d!@Pv̸l̪l\y14̦dDT^_dE̠ld0J̼d< 0 l\4  3ed@P1\^4"0 ;Qdd6d:T4̊l̋d0 =̋d>@P3\4ld\4\14܇̪ +el l\@P^4l̪ d 19 l!5̤ld8d9Ԅld@P<flKl\y140 dD0/dI0dJ0(dK@P@P@P8@P0 A hh l0 !5d6T$m4\148 dIT@P^_dJ h1\4 hCܓ hl\p4 @P0 dN0dO* 4ḏl\y4dDdIdJdKd<@P0 ,d=0d> Yl̇ld<d=d>T4MdDQlpl@P W yl]d6d8`d9\14d0D]d0E l= d6\p@P 4dN9dO h$d6d<Vd=\v148 @P u h!q hh hl0)d70d:T Fs@P 4dDdIdJdKF 2 h !,l8d7@P d:\s140dD0dIT0^00_dJ #dqܒ 0h @P .l" X hQ hG{h lhd6 d7@P Y6 wlT y4mdD# VdD OdE  SdF@P d0I?d0J`d0KFd0<Cd0=@d0>\4 N h @P h0 !Dd069d07 d0:\y4dDT ^ _dE!A  3ex@P d00I_d0Jd0@P(d0H PPGGN2PPBINASCASCBINPUTS 4CCSBLK@CCSPUTQCCSMVAREADR CCSGET P PPGLTTB B95 F CCS CCS 3.0 SL-149@P@P(@P@Pvw D@P ")@P .@P@PUTIFIL  @PRPTTBL  @P"@P:@PTHIS IS A MASTER CONSOLE REQUEST ONLY  3]  3e@P JOB ABORTED @PPGLTTB REPORT GENERATOR DATA NAME LIST @P @P @P STARTING DATA EDIT DEC SUB S@P$UB SUB SUB SUB @P0 NAME POSITION LENGTH TYPE CODE POS DESCRIPTION NAME1 NA@P[ME2 NAME3 NAME4 NAME5@PHDR1HDR2HDR3@P  @P PAGE 01 @P0  @P[ DATE RUN MM/DD/@PoYY  @P @P  @PTV T" "\: "T"\Ȼ "T@P\\"\ȩ " h]f2ء 1\"\ȓ " hf@P+t، 1 :h dg dl do d dTT3\3@PV dddT: " " "L  3e@PܱTgd+ dd dfo B1TphT@Pl l2n B1l ltn B1l ln B1@PlTpl lnܫ 71l l/nܜ 71l\@Pp ddpdqdrdtdudxdyTITN@P-p\\p\\p\\p d d dfo@PX 1 Ml 1l lTp l l 1]d%@P{@P{T&@P@P\ @P@P@P%@P\@Po@P\@P@PTRS\RS@Pj@PtR  3e@PT"\:TTPPGLTTBPQ8STP AMONTO8ADAYTOBAYERTO=PGMIN OPENFLREADR CCSMVAcCCSGET%CCSPUT*GETS ^BINASCFWRITEDISP PCCSBLKFILERR|WTREADCLOSFLPGMOUTPPGLTTB P%PGPURG B96 F CCS CCS 3.0 SL-149@P@P @PV@P &*d00:@P@P UTIFIL  @PRPTPGM  @PY$$RGMENU$$  @P@Ph@P@P@P@PuOKNOENu  3e@PRPTGRPT0XX@PREPORT XX AVAILABLE @P@PPRFPG000CCS20 @P PLEASE ENTER: REPORT NUMBER (01-19) TO DELETE OR "END" TO TERMINATE @P$ INVALID RESPONSE - PLEASE REENTER @P7 PROGRAM " " ENTER: "OK" TO CONTINUE OR "NO@Pb" TO BYPASS @Pi REPORT XX DELETED @P REPORT NUMBER IS ALREADY AVAILABLE @PTT  (T T1˨̘ '\ @P6h\hYȶ '\Y\Ȩ '\Txx@P<w hH( d 3 +\$xր@P]d\Τ؜М !ќ Tx\@P\7\7x̝u ̘v T̸ 'T@Pa̧ "̢l̜lTh̛ !d\Th@P &\Y0dT &\dnT0ix'̰@P d6\1 %\ @P@P84  3f@PT\h\TTPPGPURGPQ8STP $PGMIN OPENFLFILERRREADR WTREADCCSMVA{DELRECUPDRECDELETECLOSFLPGMOUT"PPGPURG PAPGSEDT B97 F CCS CCS 3.0 SL-149@PCAREPEAT    l @P' l lHTTh\h h h hPPGSEDT/PQ8PKUP5Q8PREP2P PZPGSJL B98 F CCS CCS 3.0 SL-149@P@PT hh h?TT@P/h h=\\@PCHTTh\h\h\h\h\hPPGSJL FPQ8PKUPLQ8PREPICCSBLKCCSGET!CCSPUT&P PjPGSJR B99 F CCS CCS 3.0 SL-149@P00BQ  3f@P hj 1 h hh h!TT@P= hh h=\\ؿ@PSHTTh\h\h\h\h\hPPGSJR VPQ8PKUP\Q8PREPYCCSGET-CCSPUT2P PH}PGSLST C01 F CCS CCS 3.0 SL-149@P@P(@P@Pvw D@P ")@P @PPGGEN REPORT GENERATOR DATA NAME LIST @P @P @P STARTING DATA EDIT DEC SUB S@PTK\K ddd3T{3̗Ԝ̐ "- Ք@Pi "ܹT^_dC dd df B1T@PTl lJn B1l ln B1l  l@Pn B1lTl lnܫ 71l lGnܜ 71@Pl\ d0d0d0d0 d0 d0 d0 dT=@PTB\\\\\\ d d d @P@f 1 Ml 1l lT l l 1Qd%@Pi@Pi@Piz  3f@@PiT8@Pbp@P1p\;@P]u@PuHlPPGSLSTxPAMONTO.ADAYTO8AYERTO3BINASCsREADR CCSMVAQCCSGETCCSPUTGETS RFWRITEDISP CCSBLKFILERRjP PPHDEL1 C02 F CCS CCS 3.0 SL-149@P@P@P@Pd @P2TAPEARC  @P@PUTIFIL  @P@PTMTH@P@P0000p  3fT@PTAhhTETz hDhT@P 1 hɀXh\@P! 1 dh\@P/ 1 hȮlh\@P<ب 1TT hț "\2 hȐ "T d @Pg "vHhn$hhH$b`dT l@PѬҜj !Z#hIH,܈Dd%h>H,ш9ddd ,@Pl !Tz& c dh T@P 1TBT d >@P\r+\r,  T2\\r1 TTW@P  @P (1H1,20A2,6X,39HACCOUNTS BEING PURGED FROM THE TAPEARC ,4HFILE,/,1X,20A2,14X,10HRUN DA@P7TE: ,A2,1H/,A2,1H/,A2,/,1X,20A2,//,35X,14HACCOUNT NUMBER,10X,18HARCHIVE TAPE DATES,/) @Pb8@Pc(34X,8A2,2X,A2,1H/,A2,1H/,A2,2X,A2,1H/,A2,1H/,A2,2X,A2,1H/,A2,1H/,A2,2X,A2,1H/,A2,1H/,@PA2,2X,A2,1H/,A2,1H/,A2) @P@P(//,52X,21H*** END OF REPORT ***) @P@P(/,34H ERROR WHEN UTIFIL RECORD NO FOUND)   3fh@PTPPHDEL1PQ8STP Q8QINIQ8QX Q8QENDMONTO YERTO PGMIN UTHEADOPENFLDREADR [GETS DELRECFILERRCLOSFLPPGMOUT PPHDEL1 PPHDEL2 C03 F CCS CCS 3.0 SL-149@P@P/@P3d @P;@PB@PiSUMHIST  @P@PUTIFIL  @P|@P @PSMTH@P(R S W @PINVALID STATUS@P  l  3f|@P0000@PBTx+,-hhTT|1 h "\i1 h "T@Pm|1 hȽȹ "ȴdH(d(d@PHl(lH(dlH(l5$6d d9 !B@PTz$ d:hT@P 1 lh\@P 1 dh\@P 1 lՀh\@P 1T lT 1 d213  "T'< d=@P&Ҕ( l) l* l s$5hl7H$8ed>@PQ&h_H,Zd?.d@0dA ,l "Tz6  d:hT@P|@P~ 1\' lh\@P 1 lh\@P 1T9T1 d21 !O @P@P@PT;;\z= | l̲h\@Pܬ 1\' ḷh\@Pܝ 1 l̖h\  3f@Pܐ 1\ܶT;@P@PTorA\rB  @Pj@PTi21+@P_@P{@P\21+\rG T1Te@P@P(1H1,20A2,12X,39HACCOUNTS BEING PURGED FROM THE SUMHIST ,4HFILE,/,1X,20A2,20X,10HRUN D@PAATE: ,A2,1H/,A2,1H/,A2,/,1X,20A2,//,20X,14HACCOUNT NUMBER,5X,13HINACTIVE DATE,5X,6HSTA@PlTUS,15X,14HBORROWERS NAME,/)@Pz@Ps|@P|(20X,8A2,7X,A2,1H/,A2,1H/,A2,9X,A1,10X,R1,14A2,A1,10X,7A2)@P@P(//,54X,21H*** END OF REPORT ***) @P@P(/,34H ERROR WHEN UTIFIL RECORD NO FOUND) @PT  3fPPHDEL2PQ8STP Q8QINIQ8QX |Q8QENDMONTO IYERTO MPGMIN CUTHEADQOPENFLUREADR lGETS CCSMVADELRECCCSBLKPFILERRCLOSFLPGMOUTPPHDEL2 PlPMEDT1 C05 F CCS CCS 3.0 SL-149@P @P @P@P @PNULL.EQ..LE..GT..NE..WE..OS.@P.AND. .OR. @P,@P! hn)n)n' 1 l!l! h (h  (h  1l@PL@PVȾ l !TȲ Ȳl@Pk h\Ȩ hTSؠ 1  "!\ l@P d !I d\ h\S 1 ! %̾  @P( ̱  dQS@P KT^̮ ̰l? l l̰ d\Tuܩ 1 d @Pl ,dSP  1 1 l dRJHGTT  3f@P)h(h1h>hUhmhh h\hY\h+\hh\ h h h\ h h' h{@PT hz\ h hL ho hn\hhdPPMEDT1#PQ8PKUP)Q8PREP&CCSGETCCSPUTP PPRETSR C06 F CCS CCS 3.0 SL-149@P@P01@P@P@PI  @Pt  @P  @P@P L@P@PTRNSFL  @PTT " T֨ "@P Hd@TȻ d h Vط 1T 7S @P80ؙ 0lTIȓ !D hn؏ E1dd d f  3f@Pc 1 դh Ȥl l@P|̷l̮l̲l̩l d dTTTPPRETSRPQ8STP PGMIN OPENFLGETS CCSMVAUPDRECBCLOSFLPGMOUTPPRETSR P PRNTIT C07 F CCS CCS 3.0 SL-149@Pd* @PgP@C>AD@P/ ( ) [ ] @P< > @PW0360@P99999999990000000000000000* @P@P @P\@Pj @P.@Pt9 lTjdhT``TlTa  h hĘ@P>h\``\ط@P hȳfخ 81h\``\\d'dS d/h\`$  3f@P`\ 1\ke df l  h0 l-iH d0 $j@Pd2dd_ dc"! ,n D [fA@@P*_Tk kc 1^ *\_ c ! ! \_@PUc̷ !f $T_k2v툶hT_k2@P{jTh\h^k2^^ h\@P_k2R@PΑ d)\ l^ ] l_ l@P\\k2\ A2d^ +T_+\+]gk^g l̻ l̴@P ḽ lTh\k2\@P@P l (d1 dc d/̿l9jfܳ l (ld'dS4d`T@P-``Ta TyllKl\``\ 1\ll l@PXcl\``\ܥ 1 l̶nܛ 81}l\``\\l@P\``\ lAd_T_l\``\\ @PdY dZ d[\\n\\\o\\Y\p\\Y]\q\\Yr@P\s\d`T+``T3@P@P3H0TThHhZhnhy\h-\h\h\hh\ h h h h @Phh hxUPPRNTIT  3fPQ8PKUPQ8PREPAMONTOAYERTOADAYTOCCSBLK:FWRITEDISP CCSGETCCSCST,CCSMVAEDIT uCCSTIM~HEXDECP PPRTDT1 C08 F CCS CCS 3.0 SL-149@P@P@P @P@P @P@PwNULL.EQ..LE..GT..NE..WE..OS.@P.AND. .OR. @P  @P,,@P @P d h h h hTTȹ T\@P ȩ TZL d d ,vhT@P? 1 1T @PL(1H1,3(/2X,20R2)) @PU\Zu d ,h\@Pe 1\\\\\%L  3g@Pu(43X,5A2,37H DECISION TABLE CONTENTS DATE ,A2,1H/,A2,1H/,A2,I5)@P\R A@P(122H0 TEST LEVEL NEXT NO. OF PARAM PARAM PARAM PARAM PARAM NO@P. OF RETURN CURRENT RETURNED VALUES)@PT+R"9@P(106H NO LEVEL PARAMS NO. OPERATOR VALUE 1 VALUE 2 CONNECTOR @P VALUES RET VAL  )@PT d!_ d ,hWTf; 1 ,@PHTZWU l€ hT@PNܻ 1\@PU(104X,12A2) @P[K@P`@P` d=@P)m@P+m/  3g0@Pm\Z`x\\\,@Px(1H0,17H END OF TABLE ,21H TOTAL TABLE LENGTH =,I4,24H MAXIMUM TABLE LENGTH =,I4) @P3@2H/H,TT hY hjhh h h hI h\hfhhh@PhIhhohPPRTDT1PQ8PKUPQ8PREPQ8QINI@Q8QX LQ8QENDAYERTOADAYTOAMONTOHORMINUTHEAD CCSCST LAHEADGTSDT1 GPMDT1PPCCSPUTCCSGETP P ?PRTSCN C10 F CCS CCS 3.0 SL-149@P@P JP ( 6`|@P ~@P @P-@P,@P6@P)@PaEX@P.0000000000000000@P`  3gD@P@P@P3DELQMST CCS20  @PBCOSIGNERCCS20  @PQSCRNFILECCS20  @P ENTER THE NUMBER OF THE SCREEN YOU WISH PRINTED OR EX TO EXIT ROUTINE @P THE SCREEN NUMBER ENTERED IS INVALID @P ENTER THE NAME OF THE SCREEN @P DO YOU WANT THE SCREEN TO BE DOUBLE SPACED? Y OR N @P ENTER THE ACCOUNT NUMBER IF DATA IS TO BE PRINTED OR ONLY IF NO DATA IS TO @P 7BE USED @P < THERE IS NO RECORD IN THE MASTER FILE FOR THE NUMBER ENTERED RE-ENTER ACCOUNT NUMBE@P gR OR <CR> ONLY OR EX TO EXIT ROUTINE @P z THERE IS NO RECORD IN THE COSIGNER FILE FOR THE NUMBER ENTERED THE SCREEN WILL BE P@P RINTED WITH THE FIELD DESIGNATORS @P T"&'(TQ++ (TQ +&\`3+ '\3 +&\xB+ @P '\B +&T&),-*\&) )8 *8a T8db  @P lTKb+̮6 ̧7  ̡ 1\Q +&\&)  *\&@P F) )8 *`d!T8! !\&) )8 *̩d \&)  )8 * @P q;\8  \`c++   1&T 3 +&T &) < #  3gX@P )8 *8a  1̥ \.  Tc !Kb   ^lT K@P b+̵6 ̮7  ̨ 1\Q +&\\&) * T .@P  1/\xc++ɜ ʜ  1T Q +&&T &) z @P *T R.  \c  !K@P  1@P 1T`+\+\x+@P ;@P ;@P ;@P 9 ;@P ;TTPPRTSCNPQ8STP >PGMIN OPENFL FILERR WTREAD ICCSAD READR CCSMVA !PRNTIT CCSCST CLOSFL 2PGMOUT <PPRTSCN PQLOAD C11 F CCS CCS 3.0 SL-149@P@P^ ,@Pe @Pl(@Pn  3 gl@Pu @Pym@Pz@PX@P  @P @P#DLYASSN  @PY@P@P ENTER DATE (MMDDYY) OR CR FOR SYSTEM DATE @P READY (CR)@P$ @P'@PS00@PT@PzTZ[\  h  hT #] (T#^]ZTZZTT@P@P(A2,2X,20HQUEUE LOADING REPORT,//)@PTT_U_ȜdTZaba_YȈ  T !@P\__\_U_TUdc !TWddT2eT 22] ]f  3 g@P g /T#h]Z d lDdi dj" $ld@P8k $ndm2 "  hT2o5o huT2o5o@Pcpp  dq dr6h&hT@P~ ds6h\@PsSp 6h\@Ps 1 1& X % $TZH% dthT@P@P 1T @P(1H1,2X,20A2) @P\ZJ% lh\@P (1\$\@P(1H ,2X,20A2,10X,20HQUEUE LOADING REPORT,35X,6HPAGE: ,I2) @P \ZL%$ )ḽh\@Pܧ <1\\ \ \@P$(1H ,2X,20A2,13X,7HAS OF: ,A2,1H/,A2,1H/,A2,/)@P;TRN%B;@PB(1H ,48X,29HNEXT CONTACT DATE AGE BY DAYS,/,10X,5HQUEUE,15X,2H-0,9X,1H0,9X,1H1,9X,1H2,@Pm9X,1H3,8X,2H+3,9X,6HTOTALS,/) @P| dX\ZQ%T5\6 dt6h\@P 1T̀C  3 g@P(1H ,9X,2A2,12X,6(3A2,4X),4X,3A2) @P@P@P 5 ?$ThT@Pdw !8cdxd &$yl %,ld 7 4 d@P " l " lޚ-4j3@P2Έ  3 g@P̩ ̤  lc dq dr6h-hT{@P ds6h T\@P%sSpp ހ6hT@P:s 1 1& /T@Z%c dt6hTF@P[ 1TY@Pc(1H ,/,10X,6HTOTALS,10X,6(3A2,4X),4X,3A2) @Px*\ZZ lҀ6h\@P 1\@P(1H ,4X,6HTOTALS,2X,6(3A2,1X),3X,3A2,//)@P@P@P@PT ]TTPQLOAD PQ8STP Q8QINILQ8QX YQ8QENDaPGMIN {OPENFLFILERRUTHEADCCSMVA5WTREADvIDATVRICALJLICCSADCCSBLKPGETS CCSCST#HEXDECCLOSFLPGMOUTPQLOAD PR9BASE C12 F CCS CCS 3.0 SL-149@PHPR9BASE  3 gP PR9FLDL C13 F CCS CCS 3.0 SL-149@PHPR9FLDLP PoRESDT1 C15 F CCS CCS 3.0 SL-149@P@P@P,@P E "p8(d>h (  h hT 8 h h hܘ!) h\@P4     ؽT@POȴ س l@PYȮlHTThh\h\h\hPRESDT1^PQ8PKUPdQ8PREPaCCSGETCCSPUTIP PRTVDT1 C17 F CCS CCS 3.0 SL-149@P+"3@PDECTBL  @P- l: 8j6 412h l.T( !*T( ! T(Ԝ !z  3g@PX  hhƘ9 nÀ@Pl ȺlȺlȸlHTTh\ h h h h\hPRTVDT1yPQ8PKUPQ8PREP|OPENFL\\@P>(1H0,I4,14H FILES SKIPPED)@PKܗ\R&R@PR(33H ENTER NUMBER OF RECORDS TO SKIP.)@Pe dT ! 4T 4\Z.TT@P(I5,24H RECORDS BEING SKIPPED. )@Pd dÜ!T TT !2T5R6@P(26H RECORD SKIPPING COMPLETE.) @P\Z8\\@P(1H0,I4,16H RECORDS SKIPPED)@PM\Z;\\2@P(33H EOF DETECTED WHILE SKIPPING THE ,I4,9HTH RECORD,/,38H ACTION IDENTICAL TO SKIPPIN@PG 1 FILE. ) @P" d\Z>>TT d\RB;@P;(33H ENTER NUMBER OF RECORDS TO DUMP.)@PNTi  !Tx }d d!DT @PyTT !6Ad"lTZP\\G  3h\@P(//,32H0 RELATIVE TAPE RECORD NUMBER =,I5) @PTܹf\ZUT+T.%@P(64H EOF OR ERROR DETECTED DURING ACCESS OF RELATIVE RECORD NUMBER,I5)@P5@P@P@PNHKTThhAhh-hh\hhhhhhahmhhAhMhb@Phh~\hhfhhhhh'h@hXhhhhhPTAPE PQ8PKUPQ8PREPQ8QINIQ8QX Q8QENDINPUT OCCSGETTAPMOTINTGR ^FREAD tDISP |LINK ~SEEIT P PmTOTEDT C24 F CCS CCS 3.0 SL-149@P@P@P @P @P @P.@P@P0y  3hp@PT h h 1 T T \ @P9 h 1\  \  \  HTThh\h@PdhhhhhhhPTOTEDTYPQ8PKUP_Q8PREP\CCSBLKCCSCSTCCSMVA+P P TRENDF C25 F CCS CCS 3.0 SL-149@P@PC@PIT0@PM z@PS#@PU  @PZk2@P]R@P_SW @PcR@Pinm000 @Pod@Pr   3h@Pt@P+@PV@Pj@P @P@P@P@P@P@P1@PE@Pp@P@P@P@P@P@P-@PA  3h@Pl@P@P@P@P@P@P)@P=@Ph@P|@P@P@P@P@P%@P9@Pd@Px@P @Pb  3h@P@P=@P@P>@P@P997 998 999 @P  @P:YES NO@P#);&2D@P @Pkw2);M@P @P" AS OF DATE WAS NOT GREATER THAN LAST RUN DATE @P PLEASE ENTER "AS OF" DATE FOR TREND ANALYSIS CALCULATION - ENTER : MMDDYY OR @PCARRIAGE RETURN TO USE SYSTEM DATE @PpACCAGE  @PDELQMST  @PRSWFIL  @PtT?@AT+pB d~ȿ (TpCB? d d dh@PvTET+CBȗ hȌ 'ȍ '\pGB?\ETECEH3  3h@PH OdPd ll\E\CI l l l l T?J"KJ LM@Pd\?JNJOLL   T ! TOO= @P 0 l\CPOO !TdQ\dR !̑  \@PKOCSO\OCPO T+CB̼ T+CBB 1̯  dT̩ @Pv lTpTB?̜  dT{B '\CB?\B '\CB@P? d= T+CB̶F̯ '\pGB?C @PTCB̖W̑ۜB '\XB?  ! dYh@Phh hTC@PC@P 1 l߀hۀ h׀hӀh \@P&C@P) 1\ZOOT[\\ K]\CCSC^_\C@PTCSC `-\CCSCTCBB (TzaB?T+CB @P2\pEB?ddbTCCSCTe+CB 2\pVB?@P@P@PTcTB̴F̭ '\GB? \CdT6[\@P\  \ X T dTh hhh\@PC@P 1TZOO\ECEdbdi\CCSC>T\+C  3h@P+CBB (TopUB?q@P;@P; T+B " d| d~ dY f* 1T+pB '\p@PfCB?T+CB̽F̶ 1\peB?s dddT5dR\@Pdf Bdgdh $il $jlЌl 'kl@Pll,m"lp4odn,ddpp4rdq,dds 0h 0Ȉ l 0@P lv@P@P@P@P@PTB+B @P@P@Pu@P@P@P@P@P\+B\B\B  3h@P@PTTPTRENDFPQ8STP AMONTOADAYTOAYERTOFMRDELPGMIN uOPENFL]FILERR2CCSBLKGETS CCSCSTWTREADIDATVRCCSMVAPICALJLWRITER(UPDRECREADR CCSGETPUTS eDELRECwCLOSFLCOMFILlPGMOUTPTRENDF P"TRENDU C26 F CCS CCS 3.0 SL-149@P@P @P@P @PYES NO@P"ACCAGE  @P DO YOU WANT TO UPDATE PREVIOUS TREND DATA FOR NEXT TREND RUN (YES/NO) @PT hT " 'T"GTT 1 1\"3@PT1 hȹd>T 1ȵ &\"T Ȩ +\"@P\"TTPTRENDUPQ8STP !PGMIN OPENFLFILERRCCSBLKREADR CCSCSTUPDRECCLOSFL PGMOUTPTRENDUx  3h PHTRHDT1 C27 F CCS CCS 3.0 SL-149@P@P l - h h!# (h  (h l@P( (hdRlHTT h h\h\hPTRHDT17PQ8PKUP=Q8PREP:P P 7TRNPLY C28 F CCS CCS 3.0 SL-149@P@PJ!^#0102  +8 jJp Pcy@Pk@Pmj@Pu_' @Px@P@P+@PR@Pa@Py@P  3i@PDELQMST  @PCCOSIGNER  @PjTRANFL  @P@P@P @P'@PR@Pf@P@P@PSCRNFILE  @PADDACT  @P@P/@P0360@P5@PY @P@P0PP9  3i$@P#0130@P%60909193@P,@P6 @P31 N @P+@P2@P)@P8!@P1?@P @P90Nl1E(@PH@PxTI (TJI6\+CIȼ '\CJI6\RjIȮ '\jJI6@P\yIȠ '\JI6\IȒ '\JI6TyKII @P "T\yLI  "\'\yMIլ֜ @P "\TyI d d dTR/I̭O̦ ?@P$PQ*TjRI6)7 !+TII@PO  "TSTT\UVWV\XYUY̷dTX@PzZ\[\]\\^_`_\a\b\0 \c\d\\e_%  3 i8@Pf_\g\S\h\2# !$ 1% 1/& @P2b( 2~*5Tdi ,hDdj ,h  d dl@P\ l ,h&Dl ,h'lTYkkTE+IIm  1+@P%n  To\kk\8pjT+I "\@PP8pjT+I "T di ,hDdj ,dd @P{dl \ l l+l l\Ǐ  AI " A 5 @PTr\\ Ts\r\\8pj $H l dtd!.̩@Pі8 $ 9 +9h\1p@Pj : +܀:h\\@P\ l 7 \\u\\3v̞ "ǔ5 \k@P "k\4qUqTII "  @P 7@P 7@P 7TWI 2@PR A@PW A@P AT3WI6Tz  a dhT@P W 1\T@P a(9HACCOUNT ,8A2,8H CODE ,A2,14H NOT UPDATED) @P z)7 "$6  3!iL@P @P @P @P @P @P @P \WI6\r @P (39HREPLACE SCREEN FILE AND RESTART PROGRAM)@P T@P @P @P @P @P @PA @P \r @P (29HFILE ERRORS...PROGRAM ABORTED)@P @P/ @PL dF  3"i`@P_ @P T BCWI6\wI6y@P @P TRI\I\+I\IT Hz T U+\2\*\)T _G@P (26HTOTAL ACTIVITIES UPDATED ,I4,/,27HTOTAL CHANGES UPDATED ,I4,/,26HTOTAL OTHER@P  RECORDS ,I4,/,26HTOTAL NOT UPDATED  ,I4)@P 3T TPTRNPLYPQ8STP 6Q8QINI Q8QX Q8QEND AMONTOADAYTO AYERTOOPENFLyFILERR READR GETCHFCLOSFL GETS CCSMVAPPUTACFrICCSADcCCSBLK1WRITERCUPDREC 8CCSCSTPUTS ,PGMOUT 4PTRNPLY PTVPDT1 C29 F CCS CCS 3.0 SL-149@P@P@P@P l"! ( )(Y@P h  1  l@P1  l$$ 1 !!   %  !˜  l@P\@Pc̴  lt 9   $  4 dW 9  3#it@P Ϝ JȜ %Ɯ A !< l9@P !1̱ !, 5̨ !_ !` !ޜ 5   Ԕ^@P 8] 3 l8H5TTh-\ h@ ho hjh heh\ h2 h@Pa h\h hUh\h h h\hhqPTVPDT1PQ8PKUPQ8PREPP PUIDMTN C30 F CCS CCS 3.0 SL-149@P@PB*J : , 4@PT@P@P$$USERID  @PC@PD $$USERID FILE MODIFICATION PROGRAM IN @PY ENTER "UPD" TO ADD/UPDATE, "DEL" TO DELETE, OR CARRIAGE RETURN TO EXIT @P~ INVALID REQUEST @P ENTER KEY OF RECORD TO XXXXXXXXXX XXXXXXXX - USER ID @P XX - PORT NO. @P RECORD -XXXXXXXXXX- DOES NOT EXIST, CANNOT BE DELETED  3$i@P RECORD -XXXXXXXXXX- ADDED SUCCESSFULLY @P RECORD -XXXXXXXXXX- DELETED SUCCESSFULLY @P RECORD -XXXXXXXXXX- UPDATED SUCCESSFULLY @P USER ID P# REQUEST @P#UPD DEL @P'ADD/UPDATEDELETE @P2@P4 @P7--------@P;@PTT"?@TA "T"BCC5\"BDD5ȼhh\"BYE@PB F5ȱ ȇ  h ( hʏ ʉ ؓ 1\"B~G@P5 $1 hT'@HIHT9H\"BJB9K55 \"BGB=C5@P \9H>HT+>AA2  "̼ <3  @P\9HLHTe"BJ5cT+A "\9HLH\"BM@P+5G d6̲œ ̭  lT7K+NK\9H+O\"BP@PV5\;K+QK\"B+RB K55  wT0H d?! T @P?@ [@8 5T@?1̠ T+AA !=\9HLHT "BM@P5T+9A !TA9HLH\"BD5@Pc  3%i@P l l l l lT@A"@P@PV lWSl\"BDD5TATTPUIDMTNPQ8STP PGMIN UOPENFL[WTREADCCSMVACCSBLKtREADR DELRECCCSGETCCSPUTUPDRECWRITERFILERRCLOSFLPPGMOUTPUIDMTN PUSEMTN C50 F CCS CCS 3.0 SL-149@Px@Pf@Pj0@PnYE *END  @Pw@P@P3@P5 RESPOND WITH "YES" IF ANY DELETES,ELSE (CR) @PACTIVE  @PM ENTER COLLECTOR ID TO DELETE OR "END" @PxT/bcdTe (TfebTr U\R bsT3eǨĘ@P4 '\heb\z  hȳhTuv  3&i@Pج 1T\Zb hȞh\@Pؘ 1\Tbj5kj/lm/iold0\bjMpj/qms r@PRd3d4T/eetg 1 1"TuebT@P&Z$b\3\4\T3qqvv Te 1\web T@PQeT@PU(1H1,5X,15HUSERS OF COLECT,/,3X,2HID,3X,4HPORT,3X,4HTIME/)@Pr@Ps(20X,15HUSERS OF COLECT,/,10X,2HID,5X,4HPORT,5X,4HTIME) @P@P(2X,2A2,3X,I4,4X,A2,1H:,A2) @P@P(9X,2A2,5X,I4,6X,A2,1H:,A2) @P@P(5X,5HUSER ,A2,A2,10H NOT FOUND)@PTPUSEMTNPQ8STP Q8QINI&Q8QX Q8QENDPGMIN yOPENFLFILERRGETS WTREADREADR CCSCST2DELREC@CLOSFLOPGMOUTSPUSEMTN P1UTFMTN C51 F CCS CCS 3.0 SL-149@PR  3'i@P**J &@P504LPN$4@P=@P@PUTIFIL  @PX@PY UTILITY FILE MODIFICATION PROGRAM IN @Pn ENTER "UPD" TO ADD/UPDATE, "DEL" TO DELETE, OR CARRIAGE RETURN TO EXIT @P INVALID REQUEST @P ENTER KEY OF RECORD TO XXXXXXXXXX @P RECORD -XXXX- NOT FOR ADDITION, DELETION, OR UPDATE THRU THIS PROGRAM @P RECORD -XXXX- IS REQUIRED, CANNOT BE DELETED @P RECORD -XXXX- DOES NOT EXIST, CANNOT BE DELETED @P RECORD -XXXX- ADDED SUCCESSFULLY @P RECORD -XXXX- DELETED SUCCESSFULLY @P, RECORD -XXXX- UPDATED SUCCESSFULLY @Pf @PUPD DEL @PADD/UPDATEDELETE @P**  3(i@P @PCOID@PHDR1@PHDR2@PHDR3@PRSW1@PACTC@PRESC@PSALC@PDALT@PSMTH@PTMTH@PUPDY@POLPM@PLTRF@PRPTG@PLTR1@PLTR2@P** @P V  3)i@P @P @P @P @P @P @PpNAME ISPHONE EXT CSUP QUEUES... @P---------------------------------------- @PR---,S---,W--- @PCODE1 CODE2 CODE3 CODE4 CODE5 CODE6 CODE7 CODE8 CODE9 @P---,QUE =---,QUE =---,QUE =---,QUE =---,QUE =---,QUE =--- @P.--- @PTRL--,P--,C--,NA- @PzN------------------------- @P @P @P @P @P8 @P^ k  3*j@P @P @P @P @P @PB @Ph @P @P @P @P @P=T'(T) "T*X+\*Y,d? d@\@Ph*n-*?. A  d , h    1\@P*0 , hT(121̹dTdU\*3*T/̺  d4@P    l d1 l4 1ddTN*@P-p  ̮ḓd\*5U̝dV̜d WT@P*V))  " ;  TdUd\*@P?6T*) " dd\*3 d̳ ̮@Pj  lT,7̿d*d+ L4& d&Tp&7f.7T*f8 @PdR\*,9*?7 e ` d'!T?'( [(8 5T  3+j@P(',̝ T*)) !;Td1Ud2\*,3zT*T@P) !d d \*:_@PL@P l l l l lT()@Py@Pk;llOPENFLDWTREAD CCSMVAREADR DELRECGCCSBLKqCCSGETCCSPUTUPDRECWRITERFILERRCLOSFL*PPGMOUT.PUTFMTN PUTHEAD C52 F CCS CCS 3.0 SL-149@P@PU@PW @PQHDR0@PSHDR0@PUTIFIL  @P\lZlWlT h (j 1TSWQX hn=n=n; @P1TZ !0 hؽT)QZȾ ! h (h*nذ 1ئ @P1TZ B  3,j(@PHTT h h h h\h h hPUTHEADPQ8PKUPQ8PREPAYERTOeAMONTO]ADAYTOaCCSMVAtOPENFLREADR CLOSFLP PaVALDT1 C53 F CCS CCS 3.0 SL-149@P @P@P01@P h;;h:h   H(h hhhllҘ @P5p8 0hp8(d 0hn@PLHTT h h h\h hPVALDT1NPQ8PKUPTQ8PREPQP PqWRTOFE C54 F CCS CCS 3.0 SL-149@P@P@P&@P("@P *  3-j<@P$000B<:,@P.p @P3@P5 2@P9kmxX^@PAY @PDpq! .@PM@P @Pp@P@P;99NO@P>000000000000@PJ000000000000000000000000@P000000@PVWRS @PY000000000000@PD0000000010@PlYES @P O  3.jP@Pn0000@P @DELQMST  @P WOEF  @P ANSWER (1 OR 2) @P ENTER AS-OF-DATE (MMDDYY) @P ENTER NUMBER OF DAYS DELINQUENT (NNN) @P ENTER WRITE-OFFS SINCE DATE (MMDDYY)@P ANSWER (1,2,OR 3) @P ARE SUBTOTALS DESIRED (YES/NO)@P  RECORD COUNT--R RECORDS 000000000000@P $ RECORD COUNT--S RECORDS 000000000000@P : RECORD COUNT--W RECORDS 000000000000@P P RECORD COUNT--OTHER RECORDS 000000000000 @P g CHOOSE ONE OF THE FOLLOWING REPORTS:@P z 1) ELIGIBLE FOR WRITE-OFF REPORT@P 2) ACTUAL WRITE-OFF REPORT @P  CHOOSE ONE OF THE FOLLOWING WAYS TO PRINT THE WRITE-OFF REPORT: @P 1) PRINT THE REPORT BY ACCOUNT TYPE, QUEUE ASSIGNED @P 2) PRINT THE REPORT BY QUEUE ASSIGNED, ACCOUNT TYPE @P 3) PRINT THE REPORT BY STRAIGHT LIST =  3/jd@P0$2Ykw@Pa"ra@FgO@P% @PMTȿ dddThhT g@Px\ z\  d\  Hd 2!@P !d_  d \   T  !\ d l@P\   \  !Th lQ ldTq  !̘ @P  d"T"n## !\";# ! 1Hl@P$$ȌlH%l&lT\ '\ (\ )@PO\ * l\ +̾ ̺H d ! ! @Pz3 ldT !̛ T!l!## \,<,# @P dX l ̽  1d` ̴  2l̯  3l ̧  4l ̟ @P 5lTp @-- (T @!-\ O - '\ !- d_ @PT.Tp-/̤  *\ @0- d~d= d1@P&" $3d2 $5d46 k d"7hcT@PQV"## V 19hLTd8 !DȌh@T ! @P|$:ld !"T g;\  g<T\=! g>!d@PIda@PldX1i 7\.Tp--/ @P *T @?- l~d= l" $3d2 $5d46Q  30jx@P t7hTMV## Y dڄAhTdd@ !I@P0dTp"$ 85 !/ $:l՜ "w@P[T g;\  g<\n! g>!dwdI dl1 i@P R8 d"/4dC$h`h $h\C@P g@P 1` 6  DdT4= gE=ʄFl\= gG=@P̾l\= gE=̴l\= gG=\_, gH\`, gIT O g-- @P(T B-?@P @P d"47lTV"##  1TD>># \DY@P5Y D\DJJ P\DPP@P R@P=R@PR@PR@PR@PR !l\ "n#̿ #T "ܣ *1 !l\ $"n#̤ %\@P} $"܉ *"1 !lT :"n## !\ :" *1 !l\ P@P"n# \ P" *1 d1\J1n# \J1@P 1 l\P1n#̲ TaP1 1 l\Y1n#̘ 4  31j@P\Y1ܹ 1 lT>1n## \>1ܞ 1\JK@P) JK\PK $JK\YK :JK\>K PJKT *\ $*@PT\ :*\ PL@Pf@Pf@Pf@PfTp-\ O-@PWm@Pm@Pm@PmTTPWRTOFEPQ8STP pFMRDELmAMONTOYADAYTO^AYERTOcPGMIN NICALJL'WTREADBIDATVRCCSCST DECHEX4OPENFLFILERRCCSBLK\PGETS CCSMVAHEXDECPUTS CCSADD&CLOSFLgPGMOUTnPWRTOFE PXLAT C55 F CCS CCS 3.0 SL-149@P:.@P <.(+&$*)>-/,%?: @'="ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789@P@JKMNP[\]^`aklmoz{|}~@P@N * hhhT=< h\>;  :1 h\>;T;=Ԝ& O`  32j@Pk! h !\?; \?;ȼ "ȸh ]"ȳh\;?ز@PHTThh\hhh\h\hPXLAT PQ8PKUPQ8PREPCCSGETJCCSPUTdP PQ8QBDS B18 F CCS CCS 3.0 SL-149@P0DELQMST CCS20  @P0SCRNFILECCS20  @P0TRANFL CCS20  @P0-DLYASSN CCS20  @P0@P8p@P8,@P8@P0  @P0  @  36jP PPACTEDT B02 F CCS CCS 3.0 SL-149@P hhT h h hT0 h 1\0@P. h h\0HTThhhh\hhhhPACTEDT>PQ8PKUPDQ8PREPAEDIT CCSMVAP PCHSCRN B25 F CCS CCS 3.0 SL-149@PL@PN @PN<@PDL@P3@,@P5UH'@P_@P8@PADDACT CCS20  @PSREQDL CCS20  @P$UPHSTCM CCS20  @P90Nl1E(^  37k@PH @POT1I 95 2H   \3I  T@P3z333\33dd h fز 1 9T@PK̼ \$KK !0p T30K :3TK dI l̖ @PT0IKI06 \$I3KIT0Tl "T3\3TPKK @P 93 !T0l d03O\K ̳ l lT !̩ ! , l@P&G !A0DdM=LdN 8 dJ\1JMM GlT3O3;EL@P0QL 0#lTzM3J3TO 1T03@Po 3TO3f\f33O0K"h\@P3M03M\O33MMh\38OM@PMH 5@P3\E01T700Id5 \E340lٔ0 `@PTI3183LTY33 h<\ dJ f0 1T18K@PK !0#L 0p T30K !T0K \3188@P l dITIK0IT ldH!8K찖8 * 쩖9 -̤9hT@P3K8M@PQM : 2f̏:h\38E@PeJ  0d dd0nd0N     \@P3OM3MM lT3O3N l  l00dp4N,d 0dp<@P 0ȌlTT3I33MJ  38k@P@PTh0~@P@P0 4Tv To 6 3T'H$TThhhhh@PhQhc\ hjhv hd hh*?PCHSCRNPQ8PKUPQ8PREPCCSGETCCSMVAKOPENFLPUTS CLOSFLFILERR'CLANEX-ICHENTDISPLYICCSADCCSCSTIDATVRaPPIKAMTsCCSPUTEDIT SAVTRNWTREADEACTSQEATRNGPCPROCP PiCLANEX B27 F CCS CCS 3.0 SL-149@PEX @PTZ03K\rK0\K\3K\00K 3\KR !? h 0f 1;T<@P1KK !T30K   !:T@P@P U ! d lfn ,3l\I3U3J l@P@P d} l lT3B}KITT3KHPDAAASCPOPENFLCCSMVA,READR CCSCSTGETACFGETS  CCSBLK9ACTEDT=WTREADADISPLY[ICHENTgEACTSQvEATRNG|PCPROCPFILERRCLANEXCLOSFL7  3:k@P P(DISPLY B43 F CCS CCS 3.0 SL-149@P_@P99999999990000000000@P (@P @P  @PENTER ITEM,CHANGE OR NEXT FUNCTION OR ACTION,RESULT,LETTER REQUEST,COMMENTENTER NEXT F@P/UNCTION OR ACTION,RESULT,LETTER REQUEST,@PCCOMMENTINVALID REQUEST, PLEASE REENTER@PVJK;@Pa dB " Y<!9 =d0 d00d l)hTr\00KK0 @P " h 13TI333J@Ph  2h0՜ 2%h3T3 ܔܓ\@PҀh\@P3d]\33h\@P3 d^"! ,{ y @sKJp0dO8dMT@PO13MM^ ! \3OM1M^ "κ 1? #̓@PJ lY_\ dPd]Q dK3Tv3K l ul@PuT0T0 PllΑl dd Odd $8dM  3;kT@Pl   T3OM10M ̝h\@P3OMM̔l՜ llM\ h hT@P@P T\3δ d^ l d 2 d ld] @P3\1 l@P@P@P@P d0MTI33M30J l1@Ph,@P, $ ld d00d0̒Vh̎Vh ̊UhT@PM@PP\V l@PV@PV L$]l3\10̏ lTv3\I33M30J0J \333 l@P d^T^`` #0l l̼9\1^`  l@ dM\^M@P3ll l̛1>\^` %1T^0ܿ@P@P@P d\K  l1T\3KIT\K  3<kh@P@P0 ' T & \E & \E & & 3dH@PX @P HTThhh\hhhh:PDISPLYPQ8PKUPQ8PREPREADR WTREADCCSMVAICCSCSTGETACFfCCSBLKhACTEDTzEDIT CCSTIMCCSGETCCSPUTFILERRPCLANEXGETCHFP PEACTSQ B48 F CCS CCS 3.0 SL-149@P@Pm@P@P50617@P9:832@P 4;@P NA@P0uh   0h0 hlT0! hDf 1@P@Rd'Sd(0d$T1 Ƚ mȹ 0h h\ ȫ T3;%@P0k 1h\ ș Iȕ h1ؑ\   d& \@P $ ̷l0dM 1֜ 0%l\13M)3MT  3=k|@P3$%300 %0l%  0   Tf@P3E30 YlT 3TTK3  3\30 d\ @P/\\333G0l0F &00E  0#l h8;\ @PBu l 0l0TGh%\ "l3Tḑ$0lo0 7̙ 4 @Pm 6T @PvܙT133T330L L %\0m\ ̚0 0 _T@P1 & \0T1     \@P00l\1 \\1 \1 99 6 93 &T@Pq d d00  l 2l 21 0d&\3 ̝ @P"̘  lT  X l\1   T333 l;)\@P3M00Gl0̱F 0&0E  #0l du\3 uT3 %@PxT0%\ ̬  ̩ 1Tx3&d\ 0   T0@P00)0 ! 3\ 0dM0֜ $0\3T@3;M)M@P0$0 y% y0 \3333Ty̰ w3T) @P df 1 ddGlF %0E  8#l@P$d0TNGd0u\lTV0l$Ô0lo 8̵ 5 !3\0 \E@PO d0\00ڄl l1Tu13 3 \El̤d ǜ"̯lT38@Pzl d f 1\33)3& 1\3\333 T@PlTdK3T!v3K0 dQ l@P%K  3>k@PZ@P}@P@P@P@P0H   ܦT @P@P@P0d0H=PEACTSQPCCSBLKCCSGETCCSMVA_AVMVACCCSPUTDISPLYICCSAD(ICALJL1PIKAMTCCSCST~IDATVRsJULCALuSAVTRNPUTACFP P.EATRNG B49 F CCS CCS 3.0 SL-149@Pm@P@PFGHJK@PLMNOP@P QRSTU@PVWX@PNA  3?k@P0uh   0hT0!T000d$\d0%T3;$%@PH 6 Ȳhh   ֔0  TE@P3s3 YhT0\3\3000 d0GlF %̛@PE ̖ #l0 h0\3T0Gh%\"lT3d$l@Po 7 4  6T4@P\3T3T3330L L $0\0\00 0 |T@P3q10\  0\3T3\ * 7 #@P2 $0\  d d0  l 2l 21 ̨d&T 9\@P]     \ ̽l\  AT338@P l0GlF &E  $d d\3@PT0 2\ \̸ T300  TV@P̺0 ̔ \  < 0l\0 $l@P T33)0$ 0w%0 w0  39\33\0 @P4u\33000 d0GlF &E  #8l @P_d\3T0Gl\lT3d$l0o 8 5  !5@PT0\E0 d3\l0 lT 00\El̘l#̦d@PT30d l0Df0 ܯ 1Rd'Sd( lfܜ 1T{@P\33)3& 1\3\3330lTdK;T!v@P0 K dQ l@P-  3@k@PR@PW@P0H   ܘT@P^"@Ph"@P0"d0HPEATRNG)PCCSBLK0DISPLYAVMVACBCCSMVACCSPUTICCSADiICALJLqPIKAMTCCSCSTCCSGETIDATVRJULCALSAVTRNPUTACFP PQFCOLEC B51 F CCS CCS 3.0 SL-149@P@P@P1@P**A $@P@P@P ^s@P C,@P#!E @P'Am  3Ak@Pc&@P* B,%N,@P/OLPM@PZ@Pd@Pa#@P "@P@PLTR1LTR2@P@PeACTVERTBCCS20  @PtCOSIGNERCCS20  @PDAQUE CCS20  @PUTIFIL CCS20  @PT1IT3rKK (3T3KITT)0  1\T3  d@PpT333\K "T30KȤ 0 ̺ "@P0d00d0Ȕd0T\30Z<Ḳ !#T3Z0K̙$ ̒ !;TZK@PA d fY 1 d l1T<3KITdRdS0̲d̳ d@Pl d (d lhT1 U "̻ Al@PTVܯ 1T1/00KK0 } v !o0T  d\Q  3Bk@P0d\00do\10\3K֬ל UЬ O !H d d0ܔ @P f 13\K̩ ̣ ̝ ! lל  @Pn 13T>K@P@P d@P@P l lTU3KIT[ 0dE dF d0GTE0l d  ;@PJl0 0l d f0 1T10eK0K !!3T3fK !\@PuK d0T  1 l l l\e0KI\VdfWdg d@Pd l nܬ 1\K̳ !)T33fK0̩ ̢ ̜ !@Pdd dT0K d lT%0KIT+ lT3`ZK8 dp@PK &\K0I\\3K 1&\3KI\ d\3KK  3  l\K@P3!KI3\\-0K &\-K0I\Ta  +  !@PL- & 0\(\ " "1 T0K  l d@Pw Tj1K lK  !d V U @Pެߜ ddT33lT30vK 08G @PF E 0nH 0d0d dQ̜  d@PTm0K0K % d%d 4 lx laT "2 @P#  d` " lT3`q1` d f0 1 dTtK l@P0Nd̮ !pT3yf0K̤ [̝ !b l $ dTz̐ T*  3Ck@P1yq`1`LL $̴ \ 1 T03 ̎ \3  @P3\ܑ 1T3130T0K0\K\,s l lTt8KIT@P@PQ@P3\33dd d@P@PTZ30K00K     2 lT0d &T@P c$@P@P3\330T"ˬ̜  ƬΜ \0\,00 !=H*d@P=\0Td  4\0"! 1b&w@Ph0\T\#0T0̼H'l0\2 1   , d@PfAfB d l < d6l3l " ln @P " bdd  l l f 1THtKK "@PT330f\1fT33fK0 d ܤ 49T@PT 0\ 3TuEp ? ;T\1T-10K̫ 1% @P?d̢ $ l~0\ \ \0E 3T0K̊ $ lfNd;TK@PjM@P_ @PlT#  3Dl@P`@Pp d  l2lj@Pa@Pb@Pc@P}T\3@Pa@Pd @P  6l lW@P@P@P@P $0U  6T0%Tl ldfVdg !d @P l d1S l@Pe`@PT3.0̦  l ld@Pfs@P\b3Tl@Pg{@PiT  3El@PT[@P@P@P0p TWZ3K d00QK * d ?@P@P̲ !%2BdCd $2dM3\3M03M ,l\B3MB0M l l@P0llllll 3# l l d0oHpPFCOLECLPAMONTO.ADAYTO3AYERTO8PGMIN OPENFLFILERRCLANEXDISPLYCCSGEToCCSMVAREADR CCSTIMWRITER5CLOSFLgPCCSPUT)ICCSADICALJL h0T80  h)h׈h 1 ȼ ȹ  ȶ @PKȳ Ȱ  h Ȫ   hȡ HTThPICHENTaPQ8PKUPgQ8PREPdP P[NMSRCH B83 F CCS CCS 3.0 SL-149@P@P@P?0#<[  3GlD@P @PB@P END OF SEARCH@P@P dgfhl0h h " h  hTq0T13q h@P0Fpf0e 1 h "ȽhTI3330JT3Zf00KK0  "@PqAYERTOBCCSCSTECCSMVAP ^  3Kl P WCONUPD B32 F CCS CCS 3.0 SL-149@PCm@PN@P- NO NON-FINANCIALS ACCEPTED@P@P03U@P @P@P!@P$@P'@P*@P- @P0@P3@P6 @P9@P<@P=@PB :  3Ll@PGT33  ? 93 9 . . 60 ژ(0T h\hȞ #Ț dhȗhT 0 :h\@Pr hȍ(Έh 1 )T :33 M : Mr hȵ!& ( h  @P!ȦhȢh ȞhT @P@P 9ؑ3\ N33 N .̓ 43TH 33 ? 9 900 . . &\33 ? 03 ?\ :3; I] : I@PT3 ]T33E] : (3Th D3 -T3\ N30 NHEPCONUPDPCCSCSTICCSAD[ICALJLlCCSMVACHNGNFCCSPUTPUTS FILERRUPDENDP P WCOSUPD B33 F CCS CCS 3.0 SL-149@P@P@P@P@PY@PT3 N 93 9 . . \13 N30 9 9 . \3 N 93 9 . YT3; : I@P00 : J\11 ;T33g  (T630 E -T 10/ *T@P3[g0  3&\6 F3 -\\11 ;T30g &\630 H -\@PH|PCOSUPD  3MlPCCSCSTCCSMVA+WRITER:FILERRIUPDENDOREADR ZUPDRECuP P W FORMLN B53 F CCS CCS 3.0 SL-149@PWRITEOFF @PRELEASE @P$SATISFY @P6ADD @PHUPDATE @PZREACTIVATE @PlREJECT - ACCOUNT NOT ACTIVE FOR 30X @P~REJECT - NO ACCOUNT FOR 30X CODE @PREJECT - INVALID TRANSACTION CODE @P ,,hT@P3 : O 3 ; O\33 : < =03 <\ =33 I B I 1? #  )\33 N M8 N @P3\ 33 N M N % !3T 30 : :\33  ;03 <\ 30 ; < 3\ 3 : :\@P3 ;0 < HTThŀPFORMLNPQ8PKUPQ8PREPCCSMVAEDIT P P WFUPDAT B56 F CCS CCS 3.0 SL-149S  3Nl@PTTT0 TTTT33 : < ) :3 < . . \33 : < '30 : < .  \@P3+ : < %30 : < . 'T0 T300 13T H3 -\ lT 03; ; : @PV :T0 o\33 : < + :3 < .̶  T B3\ 0 ; 30 : :\0 W TTTTT@P33̻ 3'\ E3 -T \ 70 / T\\\3\̝ &\3; H -@P\\ T\\\T3= '3TG H3 -\\0 9H/PFUPDATPUPINITLABHANNXTRANTOTALP UPDENDGETMASCCSCSTRSWIT 6UPDRECFILERRCCSADDPPRTLINXFORMLNgUNCUPDyPCONUPD{ADDIT }COSUPDWRITERUPDIT REACITP P WEGETMAS B58 F CCS CCS 3.0 SL-149@PT33 = I >3 : IT33 >   (T3 F0 -T @P0+   d0 l1THPGETMASAPCCSMVAREADR FILERRUPDEND%CCSBLK;P P WLABHAN B67 F CCS CCS 3.0 SL-149@Px@P0{ . h P( hT   T3 < hT3 : Sz0 S 1\@P \3 < h3T lHPLABHAN  3OlPNXTRANTAPMOTCCSMVACLOSFLP P WLNXTRAN B85 F CCS CCS 3.0 SL-149@P@P@P1h T300 1'0 T30 G -T dT 1 @P. T0T h  l @P0< T 9HPNXTRANHPSTATIT2GETS FILERRUPDEND"FREAD (DISP 0CCSE2AAP P WPRTLIN C09 F CCS CCS 3.0 SL-149@P @P8@P@P \hdh~hhhh 2 l3T 0 ;33 : : d [@P05 d0 \ hT [ T 5 [ؿ 10 T1 V3 T;\  V@P3` \\ _13 V \T30 <0 (T3 D0 -T0 &̞ l \@P3 V0 \3\ V0 \3\ ;0 &3\ D0 -\̥ \13 V 8\\@P0 :̺ &\30 D -\T V H TThhh4`  3PlPPRTLINPQ8PKUPQ8PREPCCSADD*CCSGET : IT3 >0  1ݤ0  \3; F -@P\\ 33 : K :0 KyT3 &\33 I -0\d00 \33  = 0; =\ @P3 < 03 <\ 33 B  B3\  B30  B\33  =3  = $h\@P3- : <3  @PA@PD@PG@PJ@PM(@PP@PS@PV@PY@P\@P_@PbT 33 : ? 0 ? h!( ( hʝ ʘ !hހhڀ hր@P h\@P  3Vmp@P0 1\ : :T0\ :1 :\1HPUNCUPDPCCSMVAcCCSPYTP P WQ8QBDS C46 F CCS CCS 3.0 SL-149@P8 601@P0 70360@P8@P8 / @P0 000000000000@P0 000000000000@P8 @P0 - ACCOUNT ALREADY IN ACCAGE @P0  CO HOST @P8 5 @P8 @P0 TRAN ACCOUNT BORROWERS DELINQUENT DELINQUENT C@P0 URRENT @P0 @P0 CODE NUMBER NAME DATE AMOUNT P,  3Wm@P0 AYOFF ACTION @P0 " @P0  @P0 @P0  @P8@P8 @P8 @P8@P8 @P0 <-- HDR1 FROM UTILITY FILE GOES HERE -->  @P0  @P0  @P0 <-- HDR2 FROM UTILITY FILE GOES HERE --> DAILY MASTER FILE UPDATE REPORT @P0 H PAGE @P0 \ @P0 _<-- HDR3 FROM UTILITY FILE GOES HERE --> <-DATE->  @P0 @P0 @P0hADDACT  E  3Xm@P0ACCAGE  @P06COSIGNER  @P0 DELQMST  @P0INACCT  @P0UPDINPUT  @P0UPDPRINT  @P0RSWFIL  @P0TRANFL  @P0TRNBCK  @P0XUTIFIL  @P8 @P0 FHDR1@P0 HUPDY@P8 B@P8 w@P8 e@P8 @P8 @P8 @P8 )  3Ym@P8 @P8 2@P8 Y@P8 @P8 @P8 _@P0 00000000001@P0 000000000000@P0 000000000000@P0 000000000000@P0 000000000000000000000000000000000000@P0 000000000000@P8 9@P8 :@P8 ;@P8 <@P8 =@P8 >@P8 ?@P8 @P  3Zm@P8 A@P8 B @P8 C @P8 D @P8 E @P8 F @P8 G@P8 H@P8 I@P8 J@P8 K@P8 L@P8 M@P8 N@P8 O#@P8 P(@P8 Q7@P8 RB@P8 SP@P8 TR  3[m@P8 U`@P8 V@P0 000000000000@P8 ;@P8 #@P0 000000000000@P0 000000000000@P0  @P0  @P0J @P0^  @P0 @P0  @P0 @P0  @P0 @P0  @P0F @P0Z  @P0 *  3\m@P0  @P0 @P0  @P0 @P0  @P0B @P0V  @P0 @P0  @P0 @P0  @P0 @P0  @P0> @P0R  @P0} @P0  @P0 @P0  @P0  3]m@P0 @P0E@P0@P0g@P0@P0w@P0@P0@P0@P0%@P0@P0@P8 D@P8 &@P8 2@P8 @P8 )@P8 @P8 M@P0 n000000000000000000000000000000000000-z  3^n@P0 J000000000000000000000000000000000000@P0 \000000000000000000000000000000000000@P8 @P8 @P8@P8 @P8 @P8 w@P8 k@P8 @P8@P8 @P8 @P0 + @P8@P0 %301 @P0 '302 @P0 )303 @P8 @P8 /  3_n$@P0 000000000000@P8@P0 000000000000@P0 000000000000@P0 000000000000@P8 P P WsUPDEND C47 F CCS CCS 3.0 SL-149@P? T00r 0\g0P 0\E0 0\w0 8\@P+ 3\0 3\%  3\쨷 3\Ũ ;\@P0V#  \00 T 0 =THPUPDENDoPCLOSFLTAPMOTgPGMOUTkP P W.UPDIT C48 F CCS CCS 3.0 SL-149@PT33  : 03 :\ 33 : :3\  30 : :\33  :3 :\ 033 ; : 0 :T >@P+HPUPDIT *PCCSADDFORMLN%P  3`n8 P WUPINIT C49 F CCS CCS 3.0 SL-149@P@P T -d0 d 0d T3 : ~3 ; :T33 : ? 3 : ? 8"d @P4h h "p8n (h 1 T3 (T33 < - T @P_  \30 .\30 < -\  d 3\X &\33X < -3\\ 0 &@P3\ <3 -\\30g6̽ &\630 < -\3\Eh̰ &\33h < -3\\w0̣ &;\ <@P -\\30̖ &\30 < -\3TM00 (TV30 < -T0\ "0 5 #;\%@P &3\ <0 -\\3 .٤  \30 < -\0 d dT330 F8¤ @P ̽0 ̸ &\X30 F -\ B, hT'0; > P@P0% ; P0 G 1\300 H̖ 0  (T3X F0 -T03 H h/T2@P0P$ C)d T3 > I\30 >   &\30 F -\  8 d@P|HPUPINIT~PAMONTOADAYTOAYERTOPGMIN EDIT CCSMVA OPENFLFILERR@UPDENDFREADR ICCSADNCCSBLKVP P2Q8QBDS C32 F CCS CCS 3.0 SL-149@P8@P8@P0000000000000000000000000000000@P8  3anL@P8@P0 TRAN ACCOUNT  @P0 @P0 @P0 CODE NUMBER NEW DATA OLD DATA  @P0 ACTION @P0 @P0;  @P0f @P0z  @P8@P8 @P8@P0 <-- HDR1 FROM UTILITY FILE GOES HERE -->  @P0 @P0 @P0<-- HDR2 FROM UTILITY FILE GOES HERE --> DAILY MASTER FILE NON-FINANCIAL UPD@P0%ATE REPORT PAGE @P09 @P0<<-- HDR3 FROM UTILITY FILE GOES HERE --> <-DATE->  {  3bn`@P0g @P0{ @P0ADDACT  @P0|COSIGNER  @P0DELQMST  @P0UP4INPUT  @P0UP4PRINT  @P0UUTIFIL  @P8@P0HDR1@P8B@P8@P8@P8@P0 0000000001@P0000000000000@P0000000000000@P8@P8 @P8!0,  3cnt@P8"@P8#@P8$@P8%@P8&@P8' @P8( @P8) @P8* @P8+@P8,@P8-@P8.#@P8/(@P80P@P81@P0000000000000@P0  @P0G @P0[   3dn@P0 @P0  @P0 @P0  @P0 @P0  @P0C @P0W  @P0 @P0  @P0 @P0  @P0 @P0  @P0? @P0S  @P0~ @P0  @P0 @P0  sD  3en@P0 @P0  @P0; @P0O  @P0z @P0  @P0 @P0  @P0 @P0@P0d@P0@P0@P0@P0@P8@P8@P8@P8@P8 U  3fnP P2MFUPD4X B55 F CCS CCS 3.0 SL-149@P@P@P0@P N@Pl@P@P @P@P @P$@P(@P,@P0 @P4@P8@P< @P@@PD  3gn@PH@PL@PP@PT@PX@P\2@P`P@Pdd@Phi @Pls@Ppw @Pt@Px@P|@P@P@P@P@P @P  3hn@P @P@P@P@P@P@P6@PJ@PO @PY@P] @Pg@P@P@P@P@P@P@P@Pu  3in@P@P@P<@P@PN@P@PTTT0 TTT1 1\!1\" h:0 $(5d , h0/@P" ̜ ! ! - :ȼ 'ȹ 4ȵ T#3T !33  8T;@PM@PO ,hd8 ,hd9 ,hd: ,h T  \!\ @P3z! 3 \;̗ E3T3390 0 3\33%3 @P'T3%30%\33 -3 -T0T3 00  (T30) TT? @PT3389TB 33! 0 TJ;3T0 13Y\,3 \T0 8\"\@P3 !30  \0;A\ 3T33903\339 90 0 0  T@P3&9389\ 33! 00 \;\30d 0 (T3|, 0THPFUPD4XHPUP4INIUP4LABUP4NXTUP4TOTUP4ENDCCCSGETUP4FMLCCSADDUP4PRTUP4GTMqCCSCSTCCSMVA$CCSPUTPUTS PFILERR=CHNGNFUPDRECUP4GTCP P2UP4INI C33 F CCS CCS 3.0 SL-149  3jo@P@P T1dd0dT33 ^!00 "d h h"p8@P4n (h 10 3T00  (T30" T0 3 \0 .@P3_\"3 \0 00d\30U  &\U30" \3\ &\33" ;\\d|@P ̽ 3&\|"3 \\30 ̰ &\30" \ dT3-0 ̞ ̙0 ̔@P &\33U* \ B,0vhT3-$/@P0!/0 1H1PUP4INIPAMONTOADAYTOAYERTOPGMIN EDIT OPENFLDFILERRMUP4ENDSREADR CCSMVAP P2UP4LAB C34 F CCS CCS 3.0 SL-149@Px@P0{ . h P( hT7  T3" hT3 0z00 1\@P \3" h3T lHPUP4LABPUP4NXTTAPMOTCCSMVACLOSFLP P2LUP4NXT C35 F CCS CCS 3.0 SL-149@PP@PD  3ko@P1h T30 0 1'0 T30+ T dT1@P.T0Th  l @P0< THPUP4NXTHPSTATIT2GETS FILERRUP4END"FREAD (DISP 0CCSE2AAP P2fUP4TOT C36 F CCS CCS 3.0 SL-149@P * TOTALS *  @P+ @P? @PD ACCOUNTS NUMBER  @Po @P @P UPDATED  @P @P @P REJECTED  @P @P @P0 5 Bl dT31&%3!%\3&%!0% h h D(߀hT  3lo(@P7  D(hT@PF 1 1 h D(hT@PZص 1HPUP4TOTbPCCSMVACCSGET5CCSPUTBUP4PRTXP P2GUP4END C37 F CCS CCS 3.0 SL-149@P? T0 0o 0\d 0 0\ 0 0\ 0Ȩ 8\ @P+  3\  3T#THPUP4ENDCPCLOSFLTAPMOT;PGMOUT?P P2@UP4GTM C38 F CCS CCS 3.0 SL-149@PT33#- 0-T30 00  0  (T33* T @P+   d lHPUP4GTM<PCCSMVAREADR FILERRUP4END$P P2@UP4GTC C39 F CCS CCS 3.0 SL-149@PT33#- 0-Td30 00  0  (T33|* T   3mo<@P+   d lHPUP4GTC<PCCSMVAREADR FILERRUP4END$P P2UP4PRT C40 F CCS CCS 3.0 SL-149@P @P8@P@P \hdh~hhhh 2 l3T !33   d8@P05d09 hT8 T8ؿ 10 T113T;\1@P3`\\<131\T30" 0 (T3) 0T0 &̞ l \@P310\3\10\3\!0 &3\) 0\̥ \1318\\@P0  ̺ &\30) \T1H TThhh4PUP4PRTPQ8PKUPQ8PREPCCSADD*CCSGET  3}p|mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm)  3~pmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3pmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3pmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3pmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3pmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3pmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmӫ  3qmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmӖ  3qmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmӁ  3q0mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmml  3qDmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmW  3qXmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmB  3qlmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm-  3qmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3qmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3qmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3qmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3qmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3qmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmү  3qmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmҚ  3r mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm҅  3r mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmp  3r4mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm[  3rHmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmF  3r\mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm1  3rpmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3rmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3rmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3rmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3rmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3rmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmѳ  3rmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmў  3rmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmщ  3smmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmt  3s$mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm_  3s8mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmJ  3sLmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm5  3s`mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3stmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3smmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3smmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3smmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3smmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmз  3smmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmТ  3smmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmЍ  3tmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmx  3tmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmc  3t(mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmN  3t<mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm9  3tPmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm$  3tdmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3txmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3tmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3tmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3tmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmϻ  3tmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmϦ  3tmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmϑ  3tmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm|  3ummmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmg  3ummmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmR  3u,mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm=  3u@mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm(  3uTmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3uhmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3u|mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3ummmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3ummmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmο  3ummmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmΪ  3ummmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmΕ  3ummmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm΀  3ummmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmk  3vmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmV  3vmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmA  3v0mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm,  3vDmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3vXmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3vlmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3vmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3vmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3vmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmͮ  3vmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm͙  3vmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm̈́  3vmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmo  3vmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmZ  3w mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmE  3w mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmALqw!P CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm PLEGAL E01 A LA CCS 3.0 SL-149@PPLEGAL PFLEGALP PLPGGEN E02 A LA CCS 3.0 SL-149@PPLPGGENPLPGEN0P PLUD400 E03 A LA CCS 3.0 SL-149@PPLUD400PFUPD4XP PLUPDAT E04 A LA CCS 3.0 SL-149@PPLUPDATa  3w4PLAFUPDP PLUD500 E05 A LA CCS 3.0 SL-149@P$T TLUD50E LUD50A PLUD500PCHAIN P PTECLXTRT F08 F LA CCS 3.0 SL-149@P@PR@PR@PR@PR.2 u0'@PR@PR@PR3@PR @PR@P@P0  3wH@P5LADLQMST  @PDLACLINV  @PRTR;RRRTNsRTR?RT5R (T5RRRTDR '\DRR@PR\DRȶ '\DRRRTSR3RȦȠ hȚ '\5RRR@PS h!mȑ(hRRR YRR (, dR , hO , hLTS@PS5S}RNsS|R , h? ,Rh;\SS}RNsS|R , h/ , h,\SS}RNsS|R , 1h ,@PS`Rh\SS}RNsS|R , 7h ,Rh \SS}RNsS|RR@PS~̥ TNsRRR (TRDRRRTRSR\:R\NsRRRl lR @PSRTz6 S d d ,R*hT@PS 1 1T @PS(//3(/30X,20R2)//)@PS\r8 S@PS(28X,35HLEGAL/AGENCY CLIENT EXTRACT PROGRAM//)@PS\r: S@PS(29X,40H DATE RCDS READ ACTIVE RCDS WRITTEN/)@PT\z< T, l̜Rh\@PTܖ 1\R\R\R\@PT,(29X,3R2,5X,I5,4X,I5,6X,I5) @PRT:@PRT:  3w\@PRT:@PRT:@PS T:@PT:TR\RTTPCLXTRTPQ8STP TDQ8QINISQ8QX SQ8QENDSPGMIN RCCSBLKSLAHEADROPENFLRFILERRSCLEAR RGETS RCCSMVAS3PUTS SCLOSFLT;PPGMOUTTBPCLXTRT P LACLPG F10 F LA CCS 3.0 SL-149@P@P @P(@P@P9<?@PmB# jA_})@PX@P0 @P@P000000  @PI  '  3wp@Pt  @P{  @P @P  @Pɀ@P @P)@P-@PG@P @P@P11@PS SUMMARY@P_ @P *<N/BS_kw@PoLACLHDR0@P@P @P000090@P-  3w@PLACLIENT  @P`LAUTIFIL  @P. FILE ERROR-LACLIENT FILE WAS NOT COMPRESSED @P  @P @P @P CLIENT PURGE REPORT  @P PAGE: @P0 @P3 RUN DATE:  @P^ @Pr @Pu  @P @P @P  @P @P @P CLIENT # DATE INACTIVE  @P$  3w@P8 @P;  @Pf @Pz @P} FIRM NAME  CURRENT@P COMMISSION RATE @P @P FIRM ADDRESS 1  PREVIOU@PS COMMISSION RATE @P @P FIRM ADDRESS 2  DATE LA@P,ST UPDATED @P@ @PC CONTACT NAME  COMMISS@PnION LAG @P @P PHONE NUMBER EXT:  @P @P @P  Hv  3w@P @P @P  @P4 @PH @PK HISTORY # OF $ VALUE AMT # OF $ VALUE # ACCTS $ VALUE # ACCTS $@Pv VALUE COURT N/R COURT COM@PM @P MM/YY ACCTS OF ACCTS COL"TD PIF OF PIF CLOSED CLOSED ACTIVE A@PCTIVE COSTS COSTS EAR@PNED @P  @P @P @P  @P< @PP @PTȿ T`ȶ (T`\ȧ '\T@P #oȗ '\` hrȌ ( hHh\@P @q '\` 1 d* d+ d,hT*dg  3w@P kT,dTTHTT̻ /̸˜T @P F T \\\@P \d\d 1TT \\  \\@  Ɯ߄H@P d ")T rT )\@P \I\q\3\_T/ dT /@P 9 \/ 1T*3\\\@P d}\}\T \\\@P C\C\\ d d( B,mhT@P (GWT 1 l $dT 4  T ~  d@P ,dhh hT w@P @P !Pހh\@P d 94 18 R3 $ . l l&\̭@P 4h ̩h\@P Ad l\ 1 l $dT @P l  hT M@P y 1 T S d(T (GWT  l\(GW\ܵ@P 2  @P @P W  3w@P @P @P @P ) RT 'T 9 d d d d f  1T @P  &\Tͤ˜ 1\T.@P 0 @P L @P @P @P \\@P  @P  @P @P TTPLACLPGPHFLOT Q8STP FLOAT ADAYTO ZAMONTO UAYERTO _FMRDEL cPGMIN OPENFL FILERR READR "ICALJL gICCSAD mCCSMVA PDECHEX zCCSBLK GETS CCSCST cDELREC HEXDEC -EDIT tFWRITE DISP CLOSFL COMFIL WTREAD PGMOUT PLACLPG PHLACTAD F11 F LA CCS 3.0 SL-149@P  3w@P$@P&01  +8<0050@P7@P;@PLATRNSFL  @PLAACTFIL  @PLAUTIFIL  @P!@PL@P0482@PBZ@P@P;T !"T!# (T$# T\9# &\$# \\# &\@Pf$# \T!Q%#ȱ>ȫ &\'# \_` TQ)@P*T9##&  &\+# \\Q,--\# &\+# @P\\Q.//\0-+-\Q12,34d5dT)Q)66 @P)TT9#̢ 2kTJ7# TP lѤ8 $̔9lT@P:TQ))̼l\**̭l\T9## 2k\/# @P=\T!#\9#\TPLACTADg  3wPQ8STP GPGMIN 10 ACTIVITY BLOCKS,//) @P#@P(1H1,/,1X,20A2,/,1X,20A2,/,1X,20A2,3X,8HAS OF : ,A2,1H/,A2,1H/,A2,/)@PTPLACTMTPQ8STP Q8QINIQ8QX Q8QENDPGMIN LAHEADOPENFLFILERRPGMOUT^GETS CCSCSTCCSMVACLOSFLZPLACTMT PLAHEAD F15 F LA CCS 3.0 SL-149@P@PU@PW @PQHDR0@PSHDR0@PLAUTIFIL  @P\lZlWlT h (j 1TSWQX hn=n=n; u  3x$@P1TZ !0 hؽT)QZȾ ! h (h*nذ 1ئ @P1TZ @PHTT h h h h\h h hPLAHEADPQ8PKUPQ8PREPAYERTOeAMONTO]ADAYTOaCCSMVAtOPENFLREADR CLOSFLP P$$LAVMCN F18 F LA CCS 3.0 SL-149@P@P!](@P!`@P!c@P!d@P 1****LAST RESULT CODE REJECTED - NOT UNIQUE@P G****NEXT CONTACT DATE OUT OF RANGE - SET TO ZERO@P `**** " " ($ ) NOT A VALID RESULT CODE - IGNORED @P {****LAST RESULT CODE REJECTED - OVERFLOWS TABLE @P ****LAST ACTION CODE A SCREEN FUNCTION - REJECTED @P F*@P _0@P z4]  3x8@P 0@P 2@P ACTION@P NADSDFDADCCSP1P2P3RLNQOASSDLAAEAUH @P @PB@PACTCRESC@P^LAACTVTB  @PmLAAVMDSC  @P|LAUTIFIL  @P**************************************************************************************@P****************************************@P**@P@P @P @P P@P  @@P @P ACRS  3xL@P  @P! @P! ACTIVITY VERIFICATION MATRIX BUILD OF  - R@P!FESULT CODE INPUT @P!U @P!dTZ!W!X!Y TBm!Z !TB!X!Z @PF@PG=@PF@PGA LA@PC  @PC @PC  @PD @PD3  @PD^ @PDr  @PD @PD  @PD @PD  @PE @PE/  @PEZ K  3x@PEn  @PE @PE  @PE @PE  @PF @PF+  @PFV @PFj  @PF @PF  @PF @PF @P@P1@PE@PfDELQMST CCS20  @PuLADLQMSTLA  @PLADLQKEYLA  @PLAACCAGELA  ;  3x@PGfTFGCGDGETFG:TC GFTfGG (TfGHGGGI\uGGȾ '\uGHGGGI@PG\NGGȰ '\GHGGGIT6GGȡ '\GGGI\6GGȓ '\GHGGGI@PGTFGGGGGJGF dG= '\fGKGGGI dGL"H@PGGN,GOdGMG>9GP HG?GQHG@ , dGRGBnTGq?"GS @PH, hETHYGT?"GU ,̈́GVh8\HYGW?"GXGW\FGY?"GZGYG:dA2G;dA3G\G?\F\1  3y@PI(29X,3R2,5X,I5,4X,I5,6X,I5/)@PI F 1X dGL!KTIzr I dGM ,ChTI1@PI 1TI>/@PI(/10X,8R2,5X,33HERROR - DUPLICATE RECORD. ACCOUNT,1X,33HALREADY EXISTS ON L/A MASTER F@PIILE/) @PJܲ F 1N l!H\zw J$ l ,E>h\@PJܢ 1\/@PJ$(/10X,8R2,5X,33HERROR - DUPLICATE RECORD. ACCOUNT,1X,33HALREADY EXISTS ON L/A AGEING F@PJOILE/) @PJRGL@PGJU@PGJU@PGJU@PGJU@PGJU@PGJU@PGJU@PHXJU@PHJU@PHJUT  3y@PHJU@PHJU@PIJU@PJUTGG\GG\6GG\NGGTTPLAXTRTPQ8STP JeQ8QFLEIQ8QINIIQ8QX IQ8QENDIPGMIN GgLAHEADGmCCSBLKIOPENFLGuFILERRHCLEAR GGETS GCCSMVAHCCSPUTH=PWRITERHBREADR HUPDRECHPUTS HCLOSFLJVPGMOUTJcPLAXTRT PLBATUD F21 F LA CCS 3.0 SL-149@P@P@P(@P03 .084,* @PE@P T30506080709 } w<_NW`ir{"&!f:XvO@PY]#A@P@PLADLQMST  @PLACLIENT  @P!LAFINTRN  w  3y(@P0LAPMTFIL  @P?LARPTDAT  @PDNCN@PM04@POBLIMIY@PTBC@PfIS@P0261@PU0112@P!00000000000000000000000000000000000000000000000000000000000000000000000000000000000000@PL00@Ph  @P @PN@Py@P@P@P  @P @P  F  3y<@P0000000000000000000000000000000000@PN01@PR @Pg@PhhhT \ TTNȌ (T@P \f '\\~! '\!\0 '\@P =0\? '\?T:\\T~:̻ @P h̴ '\!T: T:\:@P TN   "T \:\R̾@P e\ \\\\\@P \:\:\:T s 9T  @P \T f  "T  Ed@P ? d Xl\:̻ X 1\:U̪ "\:U@P j " El l XlT R ܻ 1T !@P \:̢ l\:ܘܗ̕ l\:  2 \:@P  l\h l\:@P W\:aedg 93 .  R3 -@P   l Ml l lT ga\a\@P A\Tl 93̮ '\!\\@P l\\\̤dg 93 '\!\  3yP@P \T ,  l\:\\@P T I\\T z!  " \!@P ̺ l\N\\\̛ l\@P \\T @P 3@P 3\:\\T \\@P ^\\\\\\ @P  Fl\\\\\_@P @P OlT *\\:T I\\@P @@P @P ̨ %l\\:\\\\@P @P @P TN (T 6\ \f '\!@P 9:!5T :\:\:\:\T@P d̪ '\0\M:\~:̕ '\!\:@P \:\:\:\:\:\ @P 2 QT ?  3yd@P @P T @::\ :\!:\:T &f   "@P \\:\N̴  "\T @P /\R\\\\@PET \\\\\ @Pp\\\\\\\@PT N (T  Ed d XlT @P < 1 Cl l Xl\R TF!\:@P\:̺ l,ܹ 1̯ l\̵ \̙ @Pl\h̏ l̋ l\!\N\T @PG\ l\\\T T@Prf (T\TR xT f@P  "\ El d̝ Xl\ = 1 Cl@P l Xl\R̻ \!\:Ti:@P l,ܺ 1 l\̉ \̷ l\h̭@P l̩ .l\!\N\TA\@PI l\\\\Tqf 'Tz@Pt@P z@P z  3yx@P z@Pz@PzT1@P 4@P <@P @P\)@P #@P @P\O!@P c@P q@P\P@P @P\Q@P @P@P\T @P @P\f\:\:\:\:\: `  3y@P\:T d̊ 2 Q\?@P @P &@P 4@P B@P P@P g@P q@P @P 3@P r@P @P@P@P@PTN\f\~\\TTPLBATUDPQ8STP AMONTOADAYTOAYERTOCCSMVA{PGMIN OPENFL FILERRrCCSBLK RGETS \CCSCSTREADR CCSADD:UPDRECiPPUTS CLOSFLPGMOUTPLBATUD  3y PLBLDSR F22 F LA CCS 3.0 SL-149@P@Pd@P4@P @P1@P2 ***** SCREEN EXCEEDS MAXIMUM ALLOWABLE SIZE *****@PL@PwLASCNFIL @PLASCNDSC  @P4  @P_  @Pd  @P @P  @P @P  @P @P!  @PL V2  3y@P`  @P @P  @P @P  @P @P  @PH @P\  @P @P  @P @P  @P @P  @PD @PX  @P @P  @P ՝  3y@P  @P @P  @PEN@P@P @PP@P @P0@P@P@P! SCREEN FILE BUILD COMPLETE @P @P(@PSCREEN FILE BUILD LASCNFILRUN DATE: @P-/ @P9@P)@P0@P T, TL| " h fK 1TL| "\L  3y@P4d "TdT\`hT ,T@P_\\Th\ ,\d d\@P ,\Td, "̦ Td4l\ ,\ d@P\d, "l\ ,\ p d\h*\ Ȉ% @Pf3Hhd\d  ̿ n̻ d1 !U@P A n !Gf5  Th\$f6f7 " @P.n̹n  d h̲ Ad 1TE44lݜ "a le@PYdTW2 ,T_l\2 ,\ f3TL44 !T4@P@P@P d@P2@P lT|$@P;@P l l\ l@P@Pl\! ,\T!000TL\d@P@PTTPLBLDSR{  3yPQ8STP PGMIN  CLEAR OPENFL*LAHEAD=CCSMVAEFWRITE\DISP dEDIT oGETS ICCSADWRITERvCCSBLKFILERRPWTREADCLOSFLPGMOUTPLBLDSR P;LCCSSP F24 F LA CCS 3.0 SL-149@P@P@P@P@P@PABx@PLADLQMST LACOSIGN LAACCAGE  @PLAACTFIL LASUMH@PST LATAPARC LAINACCT @P@P @P@P FILE SPACE REPORT@P FILE MAXIMUM CURRENT AVAILABLE PCT SPACE @P6 NAME RECORDS RECORDS RECORDS AVAILABLE @P^ THIS FILE MUST BE COMPRESSED AND HISTORY MUST BE RUN ***** O  3z@P WARNING - THIS FILE SHOULD BE COMPRESSED ***** @Pddd h h f 1 (݀hT@P - (hT@P dX#$ , (h\@PT%T@&d\-@ȍO \\\*\@@P>+l\-@O \оH\˾@ h \-@L@Pi\\~M\J@ "dTR9\Z: d  @PhT@P #1T\Z; l5h\@P #1\\R<l\Z> l΀h\@P 1\\\\\Z? l̵ h\@Pܯ (1\\Z@ l̢5h\@Pܜ (1\\RAdTZC d;hT@P 1\\\\TTM&!9\M!\ZF lЀ]h@P=\@P? #1\@P F@P>F@PFH@P3H  3z@PHHC@P%L@P(L@PEL@PO\ZH l̳h\@P\ܭ #1\\RI3l\ZK l̘;h\@Pwܒ 1\\\\\\M!4\MȺ!TZN d]h@PT@P (1T \ZP lh\@P (1\\RQ@P@PT@P@P 2\RT\RU6T@P@P(1H1,////,52X,9A2,2X,1H-,2X,2(1A2,1H/),1A2,////)@P@P@P(/) @P <  3z,@P@P@P(//)@P@P@P@P(40A2)@P@P@P@P(31X,40A2)@P@P@P(5X,4A2,X,2(4X,F8.0),5X,F8.0,10X,F4.1,1H%)@P@P(36X,4A2,X,2(4X,F8.0),5X,F8.0,10X,F4.1,1H%) @P2@P3(X) @P5@P6(1H1) ]  3z@@P9TPLCCSSPPHFLOT "Q8STP :Q8QINIQ8QX Q8QENDFLOAT AMONTOADAYTOAYERTOETFCBOPENFLFILERRCLOSFLPGMOUTPLCCSSP P LCHUD2 F28 F LA CCS 3.0 SL-149@P@P ;@P >@P A @P C @P Jh@P N+50@P Y4@P \@P@P1@PE@PN  @P mLADLQMSTLAACTFILLAUPDREQ@P MOUNT TAPE LABELED: / / ENTER "OK" FOR READY ENTER "NX" FOR NEXT RECORD ENԾ  3zT@P TER "EX" TO END @P OKEX@P 6NX@P z@P @P INCORRECT TAPE MOUNTED @P ACCOUNT=# NOT FOUND ON @P END OF HISTORY@P ' END OF REEL X MOUNT REEL X@P TAPE @P YES NO@P  @P \T] 7 8 9hhT . jTz h -hT@P }ؿ 1 hȸ Ah\@P ز 1 d ih\@P 1 hȝ Uh\@P ؗ 1T d h ,h h =fM 1 ,hT@P N @ d y @ " l An 1 1 l tn 1  dZ\@P N @ "Ta B @ lˤ D "Ta E  E\  E F ET@P !a G H  H I I : d  1d 5\a G H  Hid jd kd T 7 J   3zh@P L K J  > L     6 @P g  lp |d MT HI N M T\  O P O̬  /\I C  C I̙ @P T 1T  5 > ' Q܏\ 5 > ' R\ 7 J ' R z z z L  $\I@P H  HT !  H  H I I  T H 7 J S z z z Lm l\I E  E I !@P   d Ta @ d y\ m O  P O @ D "\a E  E@P  I̶   l d T  ?  ?\a T U  U?T  " \I E  E I@P >̌   T I E  E I I  lk  Vd  d = l W,Ih\@P j E  E I LT d XT X  c!>\  E2 Ed:\2 T { T,@P Ih T @P Y Z2 Y ZT62 { @ d y @ !i\  ?  ?ܨ̧ ! d T oz @P d hT {@P 1 l h\@P 1 l h\@P 2 lԀ h\@P 2 T T  U @P @P @P T 7 J [ z z z L d @P @P Y  3z|@P  @P @P TN y @ 7@P @P ^ @P \r T @\ @\6 @Th@P s .@P .(1H1,20A2,9X,26HTAPE HISTORY UPDATE REPORT,/,1X,20A2,14X,9HRUN DATE:,A2,1H/,A2,1H/,A2,@P Y/,1X,20A2,//,20X,14HACCOUNT NUMBER,8X,14HBORROWERS NAME,17X,12HDATE OF TAPE,5X,17HRECO@P RDS ADDED TO ,13HACTIVITY FILE,/) @P @P (19X,8A2,5X,15A2,5X,A2,1H/,A2,1H/,A2,19X,2A2) @P @P (//,50X,21H*** END OF REPORT ***) @P TPLCHUD2PQ8STP Q8QINI Q8QX Q8QEND MONTO cYERTO gPGMIN ]LAHEAD kOPENFL GETS CCSMVA CCSCST FWTREAD FREAD sPDISP {LINK 0READR ICCSAD uHEXDEC {WRITER CCSBLK FILERR CLOSFL "PGMOUT ,PLCHUD2 PLCLIUD F30 F LA CCS 3.0 SL-149-  3z@P@P@P!@P# @P( @P+ @P2X  @PP@PLACLIENT  @P 01 02 03 04 05 06 07 08 09 10 11 12@P  @P @P  @P: @PN  @Py @P  @P @P  @P W  3z@P  @P6 @PJ  @Pu @P  @P @P  @P @P  @P@P  @P 0J@PPhhhT T ȶ (T! "\ #@P{\$\%T h hT&  '\$@P& l\& l' 1T*  ) '\@P* "T]*+,,+lʀ)hT@P- l l\&̫ ̳ lܾ 1̫d/ l Cd0 l d1 lT1@P./.  Xl܋ 1 l 2 -l Xl\12*02 l @P= 2 -l' 1 Cl l̺ Xl\*0.. ̬ l 1T*0.*3@Ph.4lT5 l\*0!6!T0 Xlܼ 1\7!* 8!\U  3 z@P59l l\*0%%\ Xlܗ 1\.%*:%\5;l d@P'\*0%%\̴ Xl 1\.%*<%\5=l lTb*0!@P6!\̎ Xl 1\7!*>!Tm5?d0 l\*0%%T@Pz Xlܟ 1\.%*@%\5Al l\*0%%\@P? Xl' 1\.%*B%\5Cl l\*0!6!\̢ Xl@Pj 1T7!*D!\5El l\*0%%\0 Xlܳ 1@P\.%*F%T5Gl l\*0!6!T Xl܌ 1\7!@P*H!\5Il d'\*0%%\̲ Xl 1\.%* J%\@P5Kl lTo*0%%\̌ Xl 1\.%*L%\5 Md0@P l\*0%%\ Xlܡ 1\.%*N%T5\*>!6!\@PA*D!7!TOd 96 3 l  Ml\(T@Pl*8!6!\\7!*H!\*@%%\*F%.%\̹@Pl 96̷ 3̴ ḻ ̮ Ml\(\*:%%\\.%*@PJ%T*  2Tm* "@Ps@P@P@PT TTPLCLIUDPQ8STP AMONTOQADAYTOUAYERTOYCCSMVAlOPENFLeFILERRCCSADDHCCSCSTGETS CCSBLK6UPDRECCLOSFLPGMOUT  3 zPLCLIUD P7LCMPDQ F31 F LA CCS 3.0 SL-149@P@P@P@P@PLADLQMST  @PTT (TTT-ߘ 1\ T@P3\TPLCMPDQPQ8STP 6PGMIN  OPENFLFILERRPGMOUTCOMFILCLOSFL1PLCMPDQ PKLCMPSM F32 F LA CCS 3.0 SL-149@P@P@P@P@PLASUMHST  @PTT (TTT- 1\ T@PG\T  3 zPLCMPSMPQ8STP JPGMIN OPENFL#FILERR+PGMOUT1COMFIL3CLOSFLEPLCMPSM P`'LDACRT F34 F LA CCS 3.0 SL-149@P@P\@P\00@P\@P\ҁ@P\@P\ 01 %+199'+Y@P\ 0@P\mKB u0>@P]@P@P.@P3LADLQMST  @PBLADLYASN  @P\@PQէ  3 z@P\0360@P  @P  @P\w@P\@P\@P\@P\@P]TV\\\hTZ\ȸhTZSȪd@ hT3\Ȫ (T3\\\T@P]1B\Ț '\B\\\B\Ȍ '\B\\\T\\\\Ҝ@P]\\Ӝ dR '\3\\\ d\\Ŝ" ($\ d\\,\d\  , d\@P] \h\ \d\ހihT\@P]\\b ^o\w dT\\\x d\\\\\y d@P]\\\\\z d\\\\\{ d\\\\\| d \\@P^\\\}\ d\\\\\~ d\\\\\ h\_\\\@P^+T\֖X ̖W 2\*̿\h̺\hT]_\@P^V_\̭\h\S\_\̡h\\_\\ h\_\\\ h@P^\_\\\\\ h\_\\\\ h~\_\\\\ hr\_\@P^\\\ hf\_\\\\ hZ\_\\\\ hNT^Q_\\\\@P^ hA\_\\\T^,\Μ ̞\h)\\_\\^\\f  3 {@P__\\hTS\\_\\\ "_@P]_@P]_@P]_@P]_@P]_@P]_@P]_@P]_@P]_@P]_@P]_@P]_@P^ _@P^ _@P^_@P^_@P_\h\S\_\\ "_ׄ\hӄ\ h\_\_\\ !q\h̾@P_F\ h\_\_\\̿ !\̫\ḩ h\_\_\\̩ !F ֤\@P_q 1n\d 9(\\\n\ل\hT_d\ l\-[d 9%MB  3 {@P_\nd_T\_ل\lT\_׬ 1nd 9%nl\]_@P_T^\]Z\]\ ḽ\d_\_\Z_\\@P]_@P]_@P]_@P_\@P]t_@P_ l  TZ\\\ 'T](B]\\!T\ &\3]\\T] ]\;i@P`]\Z\ lR ]L@P].`@P]=`@P]K`@P]Y`@P]k`@P`T\\\TTPLDACRTPQ8STP `&FMRDEL] PGMIN ]CCSBLK` LAHEAD]OPENFL] FILERR_CLEAR ]0GETS ]MGETACF]CCSMVA_LFTND1^CCSCST_ ICALJL_PJULCAL_CCSPUT_PUTS _UPDREC_CLOSFL`PGMOUT`$PLDACRT P`LDACRT F43 F LA CCS 3.0 SL-149  3 {0@P@P\@P\00@P\@P\ҁ@P\@P\ 01 %+199'+Y@P\ 0@P\mKB u0>@P]@P@P.@P3LADLQMST  @PBLADLYASN  @P\@PQ@P\0360@P  @P  @P\w20  3 {D@P\@P\@P\@P\@P]TV\\\hTZ\ȸhTZSȪd@ hT3\Ȫ (T3\\\T@P]1B\Ț '\B\\\B\Ȍ '\B\\\T\\\\Ҝ@P]\\Ӝ dR '\3\\\ d\\Ŝ" ($\ d\\,\d\  , d\@P] \h\ \d\ހihT\@P]\\b ^f\w hT^h\\\x h\^h\\\\y h@P]\^h\\\\z h\^h\\\\{ h{\^h\\\\| ho\^h\\@P^\\}\ hb\^h\\\\~ hV\^h\\\\ hJ\^h\\\T@P^+\X ̖W .\&\h$̾\h!T]^i\^h\̲\h\@P^VS\^h\̧h \\^h\@P^j\ h\^h\\\\ h\^h\\\\ h\^h\\\\ h\@P^^h\\\\ h\^h\\\\ h\^h\\\\ h\^h\\\@P^\ h\^h\\\\ hT^J^h\\\T^'ϔ\ ̓\d^h\@P^\^h\\^\\_\\lTS\\^h\\\ "_\l@P_\S\^h\\ "_ل\lՄ\ d^i\^i\^h\\ !qÄ\l̿\ @P_Al\^i\^h\\ !\̬\l̨ l\^i\^h\\̪ !F֤\ 1n@P_l\d 9(\\\n\ل\d^hT^hd\ l\-[d 9%\n  3 {X@P_lT\^hل\lT\^h׬ 1nd 9%nl\]^h@P^g_@P_T^\]Z\]\ ḽ\d^i\^i\Z^h\\@P]_@P]_@P]_@P_\@P]t_@P_ l  TZ\\\ 'T](B]\\!T\ &\3]\\T] ]\;i@P`]\Z\ lR ]L@P].`@P]=`@P]K`@P]Y`@P]k`@P`T\\\TTPLDACRTPQ8STP `FMRDEL] PGMIN ]CCSBLK`LAHEAD]OPENFL] FILERR_CLEAR ]0GETS ]MGETACF]CCSMVA_LFTND1^CCSCST_ICALJL_PJULCAL_CCSPUT_PUTS _UPDREC_CLOSFL`PGMOUT`PLDACRT<  3 {l PLDAQEL F35 F LA CCS 3.0 SL-149@Px@Pt @PKLADLYASN  @PZLADAQUE  @P@P@@Pm@PxTiopq TTKr !<\-Zr !;TsrؘA !2@Pʔ Ĕ hh$h%hT-EErȳ !hhTKuro@P\Zuro \Kvro\ZwroTr\-r\TPLDAQELPQ8STP PGMIN yPGMOUTOPENFLGETS WRITERFILERRCLOSFLPLDAQEL P LDECMT F36 F LA CCS 3.0 SL-149@P@P3c@P:Y@P= @PB  3 {@PDd @PG#'@PJ.@PK@P@PLADECTBL  @PCRDEADDSPTDUEXDB@P Y INPUT=@PCOPR@P-@P.@PKT /0 TT1 "T1TRk@Pk(39H DECISION TABLE MAINTENANCE PROGRAM IN )@P h\R\@P(38H INPUT CR/DE/AD/DS/PT/DU/EX TO EITHER,/,52H CREATE A COMPLETE TABLE, DELETE A TE@PST, ADD A TEST,/,50H DISPLAY A TEST, PRINT THE TABLE, DUMP THE TABLE,,/,16H END PROC@PESSING,/) @P. T34T5!65'78' w -dT29@P9  ܔ Ք  ǔ  @P: ̨ h l?  3 {@PETeZ)] d&hT@PU 1T@P](8HCOMMAND ,A2,23H NOT IN TABLE, REENTER.)@Pry\R,z0@Pz(51H CREATE FUNCTION WILL CLEAR YOUR CURRENT TABLE FILE,/,30H TYPE Y IF YOU WISH TO DO@P THAT,/)@PT5!65'8':;T11 "TFR2+@P(53H CREATE TABLE IN PROCESS, INPUT LU OF INPUT STREAM AS,/,19H 2 NUMERIC DIGITS) @P\R4!@P(57H IF LU 04 ENTERED, CREATION WILL BE VIA ADD TEST DIALOG ,/)@P\5!65+78+?dD=H$>d< d@-6 f d d @PI2d _T<AA  d1 f 1TW1T1@Pt "Ta1TZFhTS@PT[@P(3X,A2,30H TABLE HAS BEEN FRESHLY LOADED) @P@P@PT99 " @P!@PT9 "T1̟ " l nܕ 1\1\1̇ "]  3 {@P\1@P(@P\RW$@P(63H DISPLAY TEST IN PROCESS. ENTER 3 DIGIT TEST NUMBER FOR DISPLAY,/)@P T5!65$B8%=HdD$?$>h"H$DdCTC99 @P 4T}Z] CTCT@P C(21H ERROR IN LINE NUMBER,I4,14H NOT IN TABLE) @P [&@P/ ]@P ]TE\Ra g@P g(36H TABLE WAS PRINTED ON LINE PRINTER. ) @P |@P6 ~@P ~\Rd K@P (63H DUMP TABLE IN PROCESS. TABLE WILL BE DUMPED IN FORM COMPATIBLE,/,72H WITH CREAT@P E FUNCTION. INPUT LU OF OUTPUT STREAM AS 2 NUMERIC DIGITS ,/)@P T 5!65)78)?dD=H$>dFTF99  T 7Zj T@P =FT @@P (20H TABLE DUMPED TO LU ,I3)@P u*  3 {@P @P TU@P_ @P \Rn @P (50HFILE LADECTBL NOT DEFINED. USE UTIL AND TRY AGAIN.) @P 2@P 4@P 4@P 4\Zq =\1\@P =(38HFILE LADECTBL ERROR IN REMOVING ERROR-,Z4)@P T@P[ V@P V\Zt _\A\@P _(24HSUBROUTINE LDTABL ERROR-,Z4)@P o~@Pw p@P p@P pT Zw |T 1T @P |(45HFILE LADECTBL ERROR IN STORING RECORD. ERROR-,Z4) @P V  3 {@P @P \Zz \9\@P (36H NO DECISION TABLE IN SYSTEM, ERROR-,Z4)@P 6@P @P \Z} \9\@P (24HSUBROUTINE DELDT1 ERROR-,Z4)@P \Z \9\@P (25H SUBROUTINE DPTDT1 ERROR-,Z4) @P . TGHJT TPLDECMTPQ8STP Q8QINI qQ8QX wQ8QEND zPGMIN LPGMOUT OPENFLiCLOSFLyDEBDT1 WTREAD LRTVD1 CLEAR LDTDT1RPUTS nPDELDT1ADDDT1DSPDT1 +PRTDT1 ^DPTDT1 PLDECMT PLDHUPD F37 F LA CCS 3.0 SL-149@P@P4Ё@P<@P> @PBS BT0a  3 {@PL Z@PO@PQUDg@PX@PcLAADDACT  @PrLATAPARC  @PLASUMHST  @PLADLQMST  @P@P.@PB@P A  @P @P  @P + @P ?  @P j @P/@P00000000000000@P$0000000010000000000000/  3 {@P  @P@P 03_@P U h@P6)Ge@P @PXT 012 T | whTc3 (Tc430\r3ȳ '\@Pr430\33ȥ '\430\K3ȗ '\430T5T@P3367  *\c830 d zd9 d:" $<@Pd; $>d= {  ? h7T 2@PAA  d h"T2B BT3; 3̐C̊3 5@P/Dl @P3TtE30̞ h\2B B\K 3Fڬ֤7 '\@P^E30; h\2B B\  3̷&̲ܜ!̭ >Gl @PHl\rE30T @IJI ޜ dK h h @P hT@P @PA A I , qـ h\@PLLA aɀ hŀ h h̽ h\;@PS  3 | @P̲ ḫ h̪ h ̦hT;@P @P1̙ h̕hK h h\@P$;@P'A̚  h h h\;@P< @P? 2T;M MAA l l h̾ h̺ h\@Pe @PhA L dN h hh\;@P @PA , h hހ h ڀhT;@P@P΀ hʀh ƀ h\ @P;@Pܻ 1K 1@P@PTK33 (T4O30; d2\2\3 '\cO 30@PHT3;3 '\B30 v/  "TZ  % dP@P {hT@P 1\T+  3 | @P%(1H1,4X,20A2,4X,29HACTIVE ACCOUNTS UPDATED FROM ,14HHISTORY SYSTEM,28X,6HPAGE: ,I3) @PO\Z i l̼ {h\@P\ܶ (1\ w\ x\ y\@Pi(1H ,4X,20A2,15X,8HAS OF: ,A2,1H/,A2,1H/,A2) @P\Z  )l̋ {h\@PP <1\ @P(1H ,4X,20A2,/) @PT R ;@P(1H ,5X,14HACCOUNT NUMBER,10X,14HBORROWERS NAME,22X,13HFORMER STATUS,8X,13HINACTIVE DA@PTE,3X,17HTAPE ARCHIVE DATE,/) @P d/T QTB B\<R SRHT;@ >T;@  T\;@P U VD \ @ 6\ @ WTZ 5 dP hT@P- <1T#@P5(1H ,4X,60A2) @P<ܣT$))@PE@P E@PE@PE:@PIx7  3 |4@PI z  lTF):AA T ):@Pf@Pf@Pf 1\R q@Pq(1H ) @Pt\Z  l̩(h\@Pܣ 1\ @P(1H ,4X,46HTOTAL NUMBER OF ACCOUNTS UPDATED FROM SUMHIST ,6A2)@PTR @P(1H ,/,44X,23H**** END OF REPORT ****)@P v DT333 'T4305 d d d: f2 1Tl33@P &\430T3;37 1\@30@P @P: @Pb @P @P @P @P @P \38  3 |H@P @P \33@P@P\3@P@P\3@Pb@Pz@PTTPLDHUPDPQ8STP Q8QINIQ8QX +Q8QEND3FMRDELhPGMIN YLAHEADdOPENFLFILERRCCSBLKGETS CCSCSTRCCSMVA_READR PUPDRECDELRECIDATVREDIT CCSADD>CLOSFLCOMFILPGMOUTPLDHUPD PLFTND1 F42 F LA CCS 3.0 SL-149@P@P@P@P@P@P993  3 |\@P h h6 fT k h dTh h@P0!(TȿhȢ  (hT@PG (h ș j (hȒjت@PZT  \Ș #T d\ 6@P ll@PHTT h\h hdPLFTND1PQ8PKUPQ8PREPLRTVD1GTSDT1&GPMDT14TVPDT1DTRHDT1[VALDT1pP P-LLTBLD F44 F LA CCS 3.0 SL-1@P@P@PP@P(@P)3yd 0@P~Q<"@P0,/@PU@P@P 2  3 |p@P @P@P2000*'&@P @P@P@P@PE  @Pp  @P @P  @P @P  @P  @P- @PA  @Pl  @Pq  @P @P  3 |@P@P@P*@P3LALTRDSC  @PBLARPTTBL  @PQLALTRFIL  @P`LAUTIFIL  @PoA*A, ,@Pu @Px@**1 @P|D=F @PHDR1HDR2HDR3@PEND LTR1@PLTR296@P9M@P99*@P$@P** @P @P2M  3 |@P@PN@P @P1@P@P@PEXPECTED "*A," - FOUND " ". @PFOUND AN ILLEGAL BLANK IN PARAMETER " ". @PEXPECTED LETTER NUMBER - FOUND A "COMMA". @PDUPLICATE KEY - LETTER NUMBER XX ALEADY PRESENT @P'EXPECTED "END" FOUND " ". @P5FORMAT MISSING "=" SIGN @PAFIELD DESCRIPTION EXCEEDS LIMIT OF 9. @PTEXPECTED "F" - FOUND " ". @PaEXPECTED NUMBER WITH RANGE OF 01-99 FOUND " ". @PyEXCEEDED PARAMETER LIMIT ON PARAMETER # . @PLINE NUMBER IN FIELD DESCRIPTION EXCEEDS 24.@PCOLUMN NUMBER PLUS FIELD LENGTH EXCEEDS 54. @PILLEGAL CHARACTER - FOUND " ".@PILLEGAL USE OF PARAM 5. TYPE FIELD DOES NOT = A.a{  3 |@PUNABLE TO LOCATE FIELD NAME " " IN LARPTTBL @PUNABLE TO LOCATE LINE CONTROL OR CONTROL INVALID. @PNUMBER OF LETTERS EXCEED 50 @P!NUMBER OF LINES EXCEED 24 @P.MAX. LINE NUMBER FIELD EXCEEDS LETTER SIZE. @PDUNABLE TO LOCATE LTRX IN THE LAUTIFIL @PW LETTER FILE BUILD @PfPAGE@PhAS OF:@Pk**2 @PqT Y @P00 @P @PTT3ȭ (T3\BȞ '\BTuuh@P-\QȈ '\Q\` '\`TE\m d T@PX '\ ddxd dddddddpd@Prd \T\udTT\@P\\u\W\fkp4d, dd@Pp4d,dlp4d,dld 0h 0Ȉdm 0h 0Ȉd@P l dTl Trl 1\l 7 dT.U  3 |@P /TTL\\u\hTu al\@P Z\\̨ %\d\ Ul @P l\\ lT p G@P \\lT  dT .T 6d\ \@P  l\\\̆ !@Pa @P ̇lT 8\'\' l\\\ d\@P  d hT  94 1 r BHlT@P A 1\T \ edT T  ;\@P l=T \d\ l\\d\@P a\a l\\\ d\TV @P ¤  (T  dddT ~ @P B 2̝lT I dT \T dT vd\@P T\Tl\\̿ \ d\@P C Sl\\ d d T  d} # )@P n1\̞l\5ܥ dT T T  d@P \ l̲l\  94̶ 1J̲ ̫t ̤o @P ̝| ̖ ^̒ X̌ ܔr T \@P \̧ ̢ ̑ ̘ ̇ ̐  @P     " \l dT   3 |@P E dd T ] ̋   \ 1\qT@P p 14T BT d\q\@P \ dT T T t |d  d@P d-\o olT @Td\$͌ll l@P l l d \  l\ d 7"\\@P l\,Ȍd l\ @P 0@P  0@P  0@P ) 0@P 0 "T < @P =@P =  2  2     @P h  ̽  ̺ l̶ r  @P @P ̺  dT  @P @P ̓ ̠   6̒  2 3  @P ɔ      @P8y  3 |@P%@P;@PJ@Pk@P @P @P T "p4d\l" : '0WV lܺ " "@P  d T  œ "l\ d̼d @P8 "̱ " l\ \ G̑d @Pc "l "ldl̼d 7"̒ l\  lܤ̃ @Pl\ TO@P @P @P̏ ܔo  d  l d T 7 (@P @P d!@P @P |  l l\  @P l@P   3 |@PT "p4d\,d l l\  Gܽ l\@P@P q@P @P2""l\l\$l̐ lT  G܌ l\@PA@P G@PG̽ ` d \  d 7" @P /`@P` l\@P l@P l@P .l@P 3l@P 5l@P sl@P l@P l@P l@P lc  3 }@P l@PlT  0l\y\y lR@P @P @P@P\\F@P @P\\\3@P @P\\'@P @P\T/@P H@P R@P ]@P\̮ 0l\\̝ l@P @Pd dT T @P <@P C  3 }$@P+@P  2 @P @P ! 2 @P 6@PTml\Al\\@P @P dp\ lT  2:T  !@P &B@PBT   ddd\\Wd wd@Pm\v\v "`\p d\s\!@P'\'l\;\;̐  2lld <\@P\:̙l\l\ \  " @Pl Ul\\.d\\ Kd@P\4ܔr . 9"M 4"6 2J y @PDۜ ^ .\dd dl i M s@Po M }  ̒l M̌ l\% ll@Pp  ; d \  2 0" d l@P\~  $ l\  l\ ̼ l\@Pr      M&̒l 6"/  3 }8@PM\z dl l 2 M\y@PFll\\c d\\P! l l@Pq!d\l\l 2 UT @P2\Qy\[d\\Ul\!@P\!ܵ\5\\ul\\\@P\\u\W\fkp4d,d@Pdp4d,dlp4d,dld 0d 0dm 0l 0 Ȍdl@PH d\l h\Zrl 2K\Ll~d@Ps\o\o\\2\*u\"h\u@Pl\@\@ "\E \m@P  "UTu}\*d\l\\@P@P @P\E\m\i 2'\@P \E\ET 2I\\@PK\g\_Ekd\\\G̚@Pv̔̎ 2\G\*m\"mG\G @P2\Gt\V\\ml\ \@P \5\\D d\\\@PD l\D  kd l\\ Tu=  3 !}L@P"\\TTPLLTBLDPQ8STP ,FMRDEL+PGMIN OPENFL FILERR3LAHEAD'CCSBLKGETS 'CCSMVAFWRITEDISP CCSCSTELTRDTE QCCSGET PPCCSPUTREADR pICCSADWRITERLTPRNTUPDREC8CLOSFL PGMOUT*PLLTBLD PLLTPRT F45 F LA CCS 3.0 SL-149@P@P@P < @PP .A@PB)(&'i"=630Nlj@P%s2@P+@P. @P8 : @P>@P @P  @P  @P   3 "}`@P @P  @P! @P5 @PS @Pg  @P @P  @P @P  @P @P$  @PO @Pc  @P @P  @P @P  @P @P  `  3 #}t@PK @P_  @P @P  @P @P  @P @P  @PG @P[  @P @P @P @P   @P > @P R  @P } @P  @P @P  `3  3 $}@P @P   @P : @P N  @P y @P  @P @P  @P @P  @P 6 @P J  @P u @P  @P @P  @P @P @P @P 3FS  3 %}@P T@P l  @P @P  @P LACOSIGN  @P LADLQMST  @P LALTRFIL  @P LATRNSFL  @P LAUTIFIL  @P A*@B@P " ,,@P 0::@P 5D $@P ? H@P >F=@P T @ d 8 d 9 d :T $ Ȟ (T \ < ȏ @Pi'\ \  d " '\ \  d '\  @P\ T  '\  d Zd d md d T U 0 ! c\ U 0 !@P cTT S\ \:dT  K _ d T "@Pd*\ UX U* c W  I T T  T  ;  @P 1T\ \\/\ l\ Tj Ϭל ɬ@P@  1"\ TTdT  K _ dT "d&  3 (}@Pk*T U 0 ! c\ U  U* c W   I \ \ U@P c\ U  U  c dT <   / ; T  T @P ̕ b1TS  \ U  cT < l f ;@Pܷ 1TT < ̵ 2vTm U  c\ TO \  d \@P < ̐ ̉ '\ \   M T   "@PB \  T   d .T T  ;  T  @Pm 1fT T\\  \lT_ S _ d Tg@Pl\ T _ d\l\  K _ d\T \ !\!d\@P T _ d\ l\  K _ d\TN   \  T:  @P \  TY $v  ;  T  1 Tq  @P\ I\ I\I d [d \d `d ld ^d l d ]T@PD d\v ` > + l\v ` I  ld QT@Pov ` ] l̽ lܶ 1̴l\T   T  ;  @P 1T \  \\   9 34 @P1`\ \ n \ } \   \ Tn @PTD  \ n \ \ } \  \! @P\"  \  x\ #T  T  ;  1T @PF\  \\ $%d$ hkT  n 2h`@Pq\  } T  PhR\   dhH\  \   h;\  @P\\ SdT  K _ dT\ 6 d 2>l\  3 )}@P  K _ d\@P\'T 8\''l\  K _ d\\(TgTj@P O\ ))̢ \ &l\  K _ d\ l d Ty@P'\g 1+  d*\ l*++ d\ "  1 @PR3 l l l\ n , & 1T n   d 4T 4 "@P}  l 1 ly̱ d,\ n,g,̦ d-l =\ n "̠@P ܓ\ n, ,ۄ lMll >\ n "   d 3@P d\ n " ֜lҜ ld 4Tm n- 3 4 3 l\g,@P 4, lT$(lT  K _ dT\\ R\  G 1l@P)\  K _ d\\( \ G G l\   Yd\ @PT K _ d\\(\ }  G nl\  K _ d\Tx . ". \(T@P   G l\  K _ d\T(\  G̘  ̢ d\ @PlT  K _ dT\\ 6l\  K _ d\\0 Qd ` @Pd1 d / dd a $ d2 $ d3d4Tov ` D @P 6 d$ H!fTv `**  ̴ܷd -ܰܯ\v `* l@P+̺ d\Nv a - - l̜"̘n\v `*Δ  v̅l d1̒ l@PV\'v a - -̇l `\v `*̮ d5\v `*̥d L l\v `*̛ d /  @P$ 2 l\ 4 4  4l" l l\  l d@P\g,,҄, l\ L2$*  ܘܗ\Dv `* l1 @P̊ a d -L `$V 2 l $ d6 " `  3 *~@PHd78d Y $ d2Hld d  5  7 ^@P-   T 82̛ ̗ T  "\ 2@PX\% \ !t\*\i - - \ 2 \@P2R\\ "929\  d$\S$ "  1@P d A2l\ 72  d- d\$-- \  -2 -@P 2 l $ l $  d3:R\d /" 9 &@P  Rd 6lll'd\  K _ d\l2 l\P@P/; G;Bl\u  K _ d\uܗ 1\I\2 6`l\W @PZ K _ d\W\<  l G d*\ R 1+  d$\@P (\ l$+*+ dl\Z$ "  1nj l\@P*ܻܺ\)*)l\  K _ d\̡ l\"/. ". @P\(\W/*l\  K _ d\\= "̣ (\(\y@P <** d\l='d\  K _ d\\i\R 6@P1\Jj * Hl\o  K _ d\o@P/J@PJ@P[J@PJWl\` S _ d\`dl\S T _ d\S l\F  K _ d\F@P q@PMq  3 +~@P[q@Pq@P q@P!q@P+q@Pwq@Pq@Pq@PHq@Pq\p $\l <\h \d \` T@Pb@Pp@P@P@P@PTTPLLTPRTPQ8STP ADAYTOKAMONTOFAYERTOPPGMIN ?OPENFLFILERRBWTREADCCSBLKCCSMVAFWRITEDISP READR *GETS PCCSCSTCLOSFLLTRDTECCSGETEDIT 8IDATVRIPGMOUTPLLTPRT  3 ,~( P&LLTSTA F46 F LA CCS 3.0 SL-149@P@P!c@P!e()QE @P!o@P!sLT2@P!vd@P!|@P!tB @P!v@P!@PLATRNSFL  @P@P01@P#@P @P 000000@P@P000000@P  3 -~<@P@P@P @P 2@P ]@P q@P000000@P" @P$@PO@Pb@P@P@P@P@P @P@PJ@P^@P,  3 .~P@P@P@P@P@P@PF@PZ@P@P@P@P@P@P@PB@PV@P@P@P@P@P  3 /~d@P@P>@PR@P}@P@P@P@P@P@P:@PN@Py@P@P@P@P@P @P 6@P J@P um  3 0~x@P @P @P @P @P @P 2@P F@P q@P @P @P @P @P @P .@P B@P m@P @P @P @P @P i@P }@P @P @P @P @P &@P :@P e@P y@P @P @P @P @P"@P6@Pa *  3 2~@Pu@P@P@P@P@P@P2@P]@Pq@P@P@P@P@P@P.@PY@Pm@P@P@P  3 3~@P@P@P*@PU@Pi@P@P@P@P@P@P&@PQ@Pe@P@P@P@P@P@P"@PM  3 4~@Pa@P@P@P@P@P @P@PI@P]@P@P@P@P@P@P@PE@PY@P@P@PwB  3 5~@P@P@P@PA@PU@P@P@P@P@P@P@P=@PQ@P|@P@P@P@P@P@P9E  3 6~@PM@Px@P@P@P@P@P @P5@PI@Pt@P@P@P@P@P@P1@PE@Pp@P@P  3 7@P@P@P@P-@PA@Pl@P@P@P@P@P@P)@P=@Ph@P|  @P @P  @P @P  @P% $  3 8@P9  @Pd @Px @P$@P- @Pp@P!]@P @P!**TOTALS@P!LAUTIFIL  @P!LTR1@P!000000@P COLLECTOR LETTER STATISTICS @P PAGE: @P @P AS OF :  @P @P @P  @P>  3 9,@PR @PU LETTERS REQUESTED  @P @P @P NAME  @P @P @P COID  @P @P @Pq TOTALS  @P @P @P! LTR1 RECORD NOT FOUND  @P!F @P!Z @P!T!_!`!aTCT!b (T!c!b!dT!e!f!e\!g!e !c!e\@P!!h!e!c!eTC!i\ !!bȞ &\!!c!b!_T !!bȏȉ @P!!b '\!!l!b!_!\  !!b!k!j '\!!l!b!_ @P" d!m  d!n  d!qT !n!o!!o!r!r u\ !n!o"!o!r iT!   3 :@@P"4!n!o!q!o\ !n!o!p!oɀ h hT@P"H 1 !sG ݔ" @ ḽ  l̨  l\ !n!o!!o!r̲ (\@P"s !n!o"!o!r̦ \ !n!o!q!o\ !n!o!p!o!m hh\@P" 21 d!uTF!vTFF!b!b!w#h!k +T!!x !b!_@P" d!]d!y l"#b̿ $!id!z̹ $!|d!{ hpT"F#J!o!o!r!r u@P" )h_\F#J!o"!o!r f )hPT"2F#J!o !p!oT"E !} c!}!R !N h8\F@P##J!f!f!r #  d̰ h!\F#J!f!f̦ h\F#J!f!f  d!~!u@P#@9 h @P#Kl 2,ьh 2,͌h  n!^!mg@P#b!] "̷d l! l˜; 2,hnܽ l̹! lޜ@P#< 2,h쨆 6nܢ l˜6컎lܸ l!;̰  d!n d!~ 2,@P#hT@P#T"!p!r!r T""!p 2$!md#Jf 21p@P#  $!t d!,d! "ll"$  dɜ I\@P$\!p!r̪ \"!p\!p!o!!o!u , d!n\!!!n!@P$@ l$Ud# B,MhT-@P$O!#$%T 1T".!T#!f!!fT! !!b!b (T"!!l!b!_ \ @P$z!p!.!o!̱ #̮d!̫ 2 l d!~!  l 2$!md#Jd\!o@P$.!n!o!u 11hT#@P$! d!nT#!!n!r!r \"!!n 1 lT$_!!c!f. !n!f$  3 ;T@P$d#T$L-.!#$%T$Tܪ̧  !{T$[w! l!!1̕  l̐ 6h\@P% ! d!q\!!q!r̪ \"!!q 1\!!c!fq!n!f!m!u 1-T@P%8$ 6! d!nT$!!n!r!r \"!!n 1 lT$!!c!fq!n!f@P%c%qd#T$-q!#$%T$ "!l!"&Z̰  d̪ J \@P%\!p!r̰ \"!p\!p!!!o̊  l\!!!n!  l̆d!q@P%  l%l B,Mh\-@P%!#$%\!n 1T$.!T%\!f!!fT$g !!b!b (T$q!!l!b!_ \ @P%!p!.!o! d!~!u!  l 2$!md#Jd\!o.!n!ohT@P&%8@P& ! lT%?!!q!r!r \"!!n!q 1̾  l\!!c!f. !n!f&W@P&Kd#T%h-.!#$%T%pܯ̬ "#T%w! l̔!2̛  d!n̕ 6h\@P&w! l\!!q!r̪ T%"!!qܪ 1\!!c!fq!n!f!mT& 6! l@P&T&$!!n!r!r \"!!nܹ 1!u  l\!!c!fq!n!f&d#T@P&&N-q!#$% T&V@P!&@P!&@P!&@P!&@P&&l\-!!#$%\@P!&  3 <h@P"&@P"&@P#&@P$w&@P%u&@P&T!b@P!&@P&TTPLLTSTAPQ8STP &PGMIN !LAHEAD!OPENFL!FILERR%CCSMVA&EDIT !READR %CCSCST&DECHEX#CCSBLK&bGETS "HEXDEC&FWRITE&PDISP &CLOSFL&PGMOUT&PLLTSTA P0LMHUPD F49 F LA CCS 3.0 SL-149@P@P@P (@Pd @P@P @P1D  3 =|@P2m@P @P.@P@P @P1@PX@Pg@P@P@P@P@P@P@P@P"HDR0RSW1@P  @P @P  @PB G  3 >@PV  @P @P  @P @P  @P @P  @P> @PR  @P} @P  @P @P  @P @P  @P: @PN  @Py @P  @P >  3 ?@P  @P @P  @P6 @PJ  @Pu @P  @P @P@P@PRSW@P@P@P@PRELEASED SATISFIED WRITTEN-OFF @P"LAINACCT  @PILADLQMST  @PpLACOSIGN  @PLAACTFIL  @PLASUMHST  ~  3 @@PLATAPARC  @P LAUTIFIL  @P-3qw@P7}hZ @PA)@P&@P "RSW1" RECORD NOT PRESENT IN LAUTIFIL @P*@P VALUES IN "RSW1" RECORD -- NOT NUMERIC. @P&END OF HISTORY@P2@PJ@P END-OF-TAPE -- MOUNT ANOTHER REEL. CARRIAGE RETURN WHEN READY. READY @PT T "ȿ (T"T\1IȰ *\IT \@P+\Xpȟ ,\p\ \1\\Ȍ /\\ \1\X \\@PV 1\\ \1\X\\\ 1\\ \1@P\X\\\T   1T \ \1T'X\\\@PT d#T"̝Ҝ̘ )\ \ ,1hT@P 1\$Ϭ .T\ d f ,@P d lhT % 94 1\Tv+  3 A@P & $ˎn ڬ$n Ь$췎n 1ܯ 1\@P QdddTdTdTT d@P |d d~T ϤxdTz  T@P \\\TA@P (1H0,9X,6HTOTALS,//,12X,13HRELEASED ,I5,/,12X,13HSATISFIED ,I5,/,12X,13HWRITTEN@P -OFF ,I5,//,7X,18HMOVED TO HISTORY ,I5) @P T oT s& d lT\̂ (T" @P #TK T  2 \"\\K@P FT  d d J 1 l dJfR 1T1@P qS̹̳̿ '\IT \ l̺췞 @P ܳ 1T dl !\T  *T "T@P jd$d %\dі " dJfRfbfZfjfs @P 1 T n1S ̶ +̯Ҝ +̨ '\Ip@P   + ,dd d6h@h6h ,hT @P D@P G 1dddd %ެlT ,1 (T I@P r(T[ 13\T [ '\\@P T  '\ dT  7\Xc̥,@P ̟&̙ '\p lT cX (T lpT @K@P ddshT   3 B@P k  '\hT K@P  AЀh\@P ,̲ '\d\Kk̷h\K@P G̬l! d̡ d ^dT  l̐$ !#@P r  l |l\|T tϤQҜK (T @P  dT| @P (A2,1H/,A2,1H/,A2)@P lf̮ l 1T T ̴ '\*T _ \K@P \\KtT tt̊ '\T  @P  (T " T z[ 8 dDhT @P . 1\T @P 8(1H1,20A2,8X,27HACCOUNT MOVEMENT TO HISTORY,42X,5HPAGE ,I3) @P V\z] lȀXh\@P c 1 dh\@P q 1 ḽlh\@P ~ܧ 1\\\\@P (1X,20A2,12X,10HRUN DATE: ,A2,1H/,A2,1H/,A2,/,1X,20A2,9X,15HAS OF: RELEASED,I3,17H DAY@P S, SATISFIED ,I3,19H DAYS, WRITTEN-OFF ,I3,5H DAYS,/,1H0,15X,7HACCOUNT,9X,9HBORROWERS,@P 24X,8HINACTIVE,9X,4HDATE,5X,14HDATE LOST WITH,/,16X,6HNUMBER,10X,4HNAME,30X,6HSTATUS,8@P X,28HINACTIVE TAPE ARCHIVE DATA,/),N  3 C@P@P !@P!T zb s dh T ,@P3 1 lh\@P@ 1 l $ьh\@PP 1 lӀh\@P] 1 d{h\@Pk 1T 6@Ps(11X,8A2,4X,R1,14A2,A1,3X,6A2,5X,A2,1H/,A2,1H/,A2,4X,4A2) @P̎  d@P @P "T  (T " d. d0 d f 1T @P" '\"T Τ 1\@P ~@PdTTTdҜT \T@P #l\\\lլTTPLMHUPDPQ8STP /Q8QINI$Q8QX 1Q8QENDqAMONTO TADAYTO ZAYERTO _STATITPGMIN OPENFLFILERRPGMOUT-CLOSFLREADR PCCSMVA WTREAD CCSGET GICALJL ICCSAD CCSBLK GETS TAPMOTCCSCST DELREC UPDREC WRITER ENCODE COMFILPFWRITEDISP }q  3 DPLMHUPD P ,LNMCHG F50 F LA CCS 3.0 SL-149@P@P}@P @P @P@PLADLQMST  @PLAADDACT  @P@P @PTmyz{T | (T}|y\| '\}|ytT #~|@Pɘi &\|y`T#-- T#qTq|ȡ &\@P|y?T#ȗ \\T|| &\|@P yTTq| 1T|yT|\ |TTPLNMCHGPQ8STP +PGMIN OPENFLFILERR GETS CCSGETCCSMVAREADR CCSCSTDELRECCCSBLK WRITER CLOSFL "PGMOUT )PLNMCHG PIQ8QBDS F53 F LA CCS 3.0 SL-149@P0LAUTIFIL  ,  3 E@P0LADLQMST  @P0LARPTTBL  @P0-LARPTPGM  @P0LAPRCWRK @P2PRFLP000LA @PJ$$PGMNAM$$  @P{LRPE00LRPP00LRP000@PT Th2 )T2T-Th)˨ +\2T@Ph\-d\h h fgذ 1Th21 \ȗ '\@PE\-d\ڜ *\\\-\\ '\@Pp\-̪hY̦hV (THQ dT -TTT-@PT\Ṭ *\\\-\d}dT@PYJ & d܀C@P\Yq{ڜޜ # l*TYq # l\Yq~Ϭޜ@P"ʬ # l \Yq̻ / lTJTYT-\Y dd\@P*̝ '\\-T *\\\- d@PUT\d5T>2 '\>\-TPA '\A\-\@PP̹̳ -TATPT-\P d 4L  3 Il@PdHdDdd !  !  :  4@P  1T l fOܸ 1 d\TPLPGCT1PQ8STP PGMIN OPENFLqFILERRCHAIN READR CLOSFLDELETE1CCSMVAUPDRECVDELRECGETS 8RENAMEaPGMOUTPLPGCT1 PLPGCT2 F55 F LA CCS 3.0 SL-149@Pe@Pa @PZRPTG@PMNUPRO @P@P LAUTIFIL  @PeT\]^ hT ` )T a`\TT0Z`ۨܘ +\ c`\@PT`\Ȥ hT0` h\`ȹ \TTPLPGCT2PQ8STP PGMIN fOPENFLnFILERRvCHAIN |READR CLOSFLUPDRECPGMOUTPLPGCT2 PI`LPGEN0 F56 F LA CCS 3.0 SL-149@P@PV YT 4.^  3 J@P# PLEASE NOTE ANY ERROR MESSAGES DISPLAYED ABOVE. @P=PRESS CARRIAGE RETURN WHEN READY TO CONTINUE @PRPTG,@POPENFLGETS PUTS CLOSFLLOKFILUPDRECCLOSFLLAUTIFIL@PMNUPRO @PgT1TU 3TK00 (T0V3\c0 '\V0\@P3{ '\13V\3 1'\V33\- '\13-V \@P0≮ '\<0V3\1"0̪ '\"V0T0WqX@PYTxZ~Tޜzڜ|TԜ00d08d@Pd0d0[ddd3TK00 !c8d0 d@P>d1T`\0d`dad0b dc 0dd de1T^`_^;T`@P0i !"T|-0_0\_0*\<0`$\"`0\0`\-a@P\13b T3c8@P@P@P@P3\#c\1=d10^ @Pq@P3\1eT3K\c03\{0\\3\103\ dT 0ff00 f@P 1T33\<3\1"T\3K 'Tr13f3\c &\j  3 K@Pf0\{0 &\f0\0 '\-f0x\3 1'\<f3k@Pl\p1Jl\s1Vl t\|@PXblh\!nl\T1{lO\1@PdB\1l6\1l* d8@P@PlHPLPGEN3PPUTS CCSBLKCCSMVAoCCSCSTASCBINBINASCCCSPUT5  3 VpP PI}LPGLST F59 F LA CCS 3.0 SL-149@P@P(@P@Pvw D@P ")@P @PLPGGEN REPORT GENERATOR DATA NAME LIST @P @P @P STARTING DATA EDIT DEC SUB S@P  3 W@PYY  @P @P  @PTK100 "T 3\K " hfJؿ 1\@P1K0 " hfت 1 :h d d d h hT@P>TK\K ddd3T{3̗Ԝ̐ "- Ք@Pi "ܹT^_dC dd df B1T@PTl lJn B1l ln B1l  l@Pn B1lTl lnܫ 71l lGnܜ 71@Pl\ d0d0d0d0 d0 d0 d0 dT=@PTB\\\\\\ d d d @P@f 1 Ml 1l lT l l 1Qd%@Pi@Pi@Pi@PiT8@Pbp@P1p\;@P]u@PuHl  3 XPLPGLSTxPAMONTO.ADAYTO8AYERTO3BINASCsREADR CCSMVAQCCSGETCCSPUTGETS RFWRITEDISP CCSBLKFILERRjP PLPGLTB F60 F LA CCS 3.0 SL-149@P@P(@P@Pvw D@P ")@P .@P@PLAUTIFIL  @PLARPTTBL  @P"@P:@PTHIS IS A MASTER CONSOLE REQUEST ONLY  @P JOB ABORTED @POPENFLGETS PUTS CLOSFLLOKFILUPDRECCLOSFLLAUTIFIL@PLPGLTB REPORT GENERATOR DATA NAME LIST @P .  3 Y@P @P STARTING DATA EDIT DEC SUB S@P%UB SUB SUB SUB @P1 NAME POSITION LENGTH TYPE CODE POS DESCRIPTION NAME1 NA@P\ME2 NAME3 NAME4 NAME5@PHDR1HDR2HDR3@P  @P PAGE 01 @P1  @P\ DATE RUN MM/DD/@PpYY  @P @P  @PTV T" "\: "T"\Ȼ "T@P\\"\ȩ " h]f3ء 1\"\ȓ " hf@P,u، 1 :h dh dm dp d dTT4\4@PW dddT: " " "@P ܱThd, dd dfp B1TqiT@Pl l3n B1l lun B1l ln B1@PlTql lnܫ 71l l0nܜ 71l\.  3 Z@Pq ddqdrdsdudvdydzTJTO@P.q\\q\\q\\q d d dfp@PY 1 Ml 1l lTq l l 1^d%@P|@P|T&@P@P\ @P@P@P&@P\@Pp@P\@P@PTRS\RS@Pk@Pu@PT"\:TTPLPGLTBPQ8STP AMONTO9ADAYTOCAYERTO>PGMIN OPENFLREADR CCSMVAdCCSGET&CCSPUT+GETS _BINASCFWRITEDISP   3 [PCCSBLKFILERR}WTREADCLOSFLPGMOUTPLPGLTB PILPGN2E F61 F LA CCS 3.0 SL-149@P@P D@P @PP&20*8@P @P% "'$.<d #() , @P6LADLQMSTLAPGEXTR@PGTGELTLEEQNE@P RA@P YNAL 2 3@P>IF(ICMP.XX.0) GO TO X00@PJCALL CCSCST(WRKMST,K+XXXX,XXXX,WRKMST,K+XXXX,XXXX,ICMP) @PfCALL CCSCST(WRKMST,K+XXXX,XXXX,IVLXX,1,XXXX,ICMP) @P 200 CALL CCSBLK(EXTREC,132) @PGO TO 300 @PCALL CCSMVA(WRKMST,K+XXXX,XXXX,EXTREC,XXXX,XXX) @PDATA IVLXX/'XXXXXXXXXXXXX '/  3 \@P PROGRAM LRPEXX@P INTEGER ID(4),LU,ISTAT,EFG,FDEL @P INTEGER REQBFD(24),IDATDM(15),WRKMST(9000) @P INTEGER REQBFE(24),IDATEX(15),EXTREC(68) @P INTEGER IVL01(7),IVL02(7),IVL03(7),IVL04(7) @P% INTEGER IVL05(7),IVL06(7),IVL07(7),IVL08(7) @P> INTEGER IVL09(7),IVL10(7)  @PW INTEGER IVL11(7),IVL12(7),IVL13(7),IVL14(7) @Pp INTEGER IVL15(7),IVL16(7),IVL17(7),IVL18(7) @P INTEGER IVL19(7),IVL20(7),I(8)  @PC @P EXTERNAL FMRDEL @PC @P DATA REQBFD /24*0/ ,REQBFE /24*0/ @P DATA IDATDM /'MMMMMMMMLA ' ,1,9,0 / @P DATA IDATEX /'MMMMMMMMLA ' ,0,1,0/ @P DATA EFG /0 / @PC @P CALL PGMIN(ID,LU,MODE,NPORT)@P ASSEM $C000,FMRDEL,$6400,+FDEL}  3 ]@P) CALL OPENFL(REQBFD,IDATDM,ISTAT)@P] REQBFD(23) = 1@P< IF(ISTAT.GE.0) GO TO 50 @PK CALL FILERR(IDATDM,3,ISTAT,LU)@Pg GO TO 850 @Po 50 CALL OPENFL(REQBFE,IDATEX,ISTAT)@P IF(ISTAT.GE.0) GO TO 100@P CALL FILERR(IDATEX,3,ISTAT,LU)@P GO TO 850 @PC @P 100 CALL GETS(REQBFD,WRKMST,I,ISTAT)@P IF(AND(ISTAT,$8100).EQ.$8100) GO TO 850 @P IF(AND(ISTAT,$100).EQ.$100) EFG = 1 @P IF(ISTAT.GE.0) GO TO 115@P CALL FILERR(IDATDM,14,ISTAT,LU) @P GO TO 850 @PC @P 115 DO 300 N = 1,9 @P! J = 1000*N-999@P+ K = 2*J-1  3 ^@P3 IF(WRKMST(J).EQ.$2020.OR.WRKMST(J).EQ.FDEL) GO TO 300 @PQ CALL PUTS(REQBFE,EXTREC,1,ISTAT)@Pd IF(ISTAT.GE.0) GO TO 300@Ps CALL FILERR(IDATEX,11,ISTAT,LU) @P GO TO 850 @P 300 CONTINUE@P IF(EFG.EQ.1) GO TO 850@P CALL CCSBLK(WRKMST,18000) @P GO TO 100 @P 850 CALL CLOSFL(REQBFD,ISTAT) @P CALL CLOSFL(REQBFE,ISTAT) @P 900 CALL PGMOUT @P END @P*JOB, @P*K,P2 @P*FTN@P MON@P*LIBEDT @P*K,I8,P8@P*P,F,2S  3 _$@P*K,I8 @P*N,LRPEXX,,,B @P*Z@P;T1  "T hT   h\ \ȫ Ph@Pf\ȡ Ph\ȗ Ph\ȍ Ph\ȃ Ph\@P Pl "p4d d  l\ Pl\  Pl\@P% Pl\> Pl\W̿ PlTPp̴ Pl\@P̪ Pl\  ̠ Pl\̖ Pl\  ̌ Pl\@P̂ Pl\6\:\ Pl\ Pl\@P= Pl "p4d Pd ) | dld0 !c Ad@P0h, RT1T1   1hH\)!!"̨ h>\##̞ P l(@P ' d$\$1\1   ̲ h\1)!!" h\## Pl@P̚ "lܚ@P "p4d d j l\  Pl\&& Pl\''@P PlTr)̶ Pl\]̬ Pl\<((̢ Pl\K))̘ P@P l "p424 lfll\>424 lU d$T &$1\1@P  f01 \.f1\f2 l2l̹l\>424 l!̧l̩@P lT >424lll\>424 >d ̩ l\$1\1 f@P I0 \1.f1\f2 ^ldBdH\>424l@P t( < l l\>424ll̚l\>4 24 @P ll̉lT >424lξ :̾ "̞ll\>42@P 4 d kl̯l\>424l[̰dBdH\>424lH@P ( <Ȕ ̎l l\>424 l(ll\>424@P %ll̼lT >424 lξ ;̾ #l̿l\>@P K424 Ud l̮l\>424 l̯dBdH\>424 l@P v0( ;0Ȕ ̞l l\>424 lll\>4@P 24 l̚l̽lT +>424 lƜ "̄ll\>4 24 @P lml̸l\>424 d \l̅l\>424 lK@P ( @P m tl  3 aL@P @P @P @P @P  "l Ad@P @P ̃  \%2% l/@P @P \55 d  l  ld l!c\1T 33{ "@P 8T  4\1 54$-5 d3T 31T 1\1./\67@P c\1\1'\2 {d 1\ ̠l l  d\Q@P  Pl\d(( Pl\s Pl\** Pl\"@P " Pl\## Pl\55̻ PlT O**̰ Pl\55@P ̦ Pl\55̜ Pl\88̒ Pl\%%̈ Pl "p4d d@P * d\ Pl\ Pl\ Pl\@P: Pl\ Pl\   \""̾ PlT   ̳ Pl "@Pepd0?\v4l̤l@Pd:\s140dDḷlln  2P d"V  d@PŌdd6lTRs4ldIdJd0Kd0Md/@PPl0! H d!Cll\s4̛l̽lT^_l $  d@P1-\T,\3^\^14\14ܺ v!  3 e@PXdld6d:Ty4dDdIdJ0dK8d<@Pd=d>\140! 7d l!/̽l̿l\y14@PlT0 ^00_dE̢lll\4\^14b܄ľl\|@P4ddd1Th4>ld06\|4l@Pll\140ld<0d=0d>\v4+d @P/ d"̼llll 0dTk04\4$  d@P1Z\ 4Ҍ dddT14xl0d6d:\m94@P\ 14d0IdJl̗ Ql̾ l\p4̳@Pl̰ l ̈l\14dh, l̬l̓ l\m4 @PA dM\ 14̠l̢ ll8̽$ l !28d6@PҌ d:Tlm4A l\1 4dI dJ2l@P1Qll l\140dD0dE0dF@P8T@PTod̩l0d<0d=0d>\v4d 2l "O@P̆ dd dd60d:T y14llldIl@PdKlll 0 d\14li 0l! ; d!@Pv̸l̪l\y14̦dDT^_dE̠ld0J̼d< 0 l\4@P1\^4'0 ;Idd6d:T4̊l̋d0 =̋d>@P+\4ld\4\14܇̪ +]l l\@PV4l̪ d 19 l!5̤ld8d9҄ld6  3 f@P<llQl\y140dD05dI0dJ0.dK@Px@P@P0@P0! A hh l0!!5d6Tm4\148dIT@P^_dJ h1\4 hHܓ hl\p4 @P0dN0dO/ ,ḏl\y4dDdIdJdKd<@P0 $d=0d> Ql̇ld<d=d>T4UdDXlvl@P O qlcd6d8fd9\14d0Dcd0E lC d6\p@P z4dN?dO h*d6d<\d=\v148 @P u h!q h h hl0d70d:T >s@P 4dDdIdJdKK! 2 h!!,l8d7@P d:\s140dD0dIT0^00_dJ dyܒ 0h @P &l" Ř` hY hOh lnd6 @d7@P Q> }lT y4sdD+ \dD# UdE  YdF@P |d0IEd0Jfd0KLd0<Id0=Fd0>\4! N h @P h0!!Dd06d07 d0:\y4 dDT ^ _dE@P d00I_d0Jd0\  3 g@P S ih4̢d062d07T 140"0p4 hd7~d8M@P0 ~d90  h"0gd60dd;0ad<04h-d0A h@P Bd^d_\^14u h08d60)dH0dI0( h@P &d00JdQ\1 4dNdOdPAԄh hh hd@P0 ! s h0!!m0d60z hsT `4T ^\^@P *4{Rd0\^\1^4T h1N\S4H h BTS@P U4  M hJ5 h2B h? vh& h#~d06{d@P ;d<JdA h_d^d_\^14 h0Ud68FdH@P dIUdJRdKOdLdMHdN dOAdPd h'd6@P0 dC0dD0dE0(dF 0 hT 14 0dH0dI2@P @P @P @P d06d0;d0<d0A hv Fhp0d60dH0dI8dJ@P -dKdLdMdNdOdP hNh_ h?d! n h9@P0 X!5!h0d6ahm\4T #^T 1^4/R d\@P ^\^140 h\S14 h1T SS  h@P h h h hn2d6d;d<dA h@P U0d60 dH0+dI0#dJ0 dK0dL0dM0 dN0 dO8dP@PdQdRdShy7hsd6dCdDdEdF  3 h@P0/dH0odId06d0;d0<\d0=Sd0AQh=0d68dC@PZdDdE@dH]dIohd6dHdIdJdK@P0dLhjd06d0Cd0D_d0Ekd0F1d0Hd0Ih@PHd6d;5d<dAhk2d6dCDdDFdEdH@P0dIhMd06d0H#d0Id0Jd0K!d0Ld0Md0N h@P'd6 dC dDdEdFdHdI+hcd6@P01d;0d<0cdAAhMd06d0Cd0Dd0EPd0Hmd0I_h@P\/d6kd;d</dAuhd6dHEdIydJ@P0dTT r14h`d06d0H#d0IWd0Jyd01O\$4$@Phx0?d60d;0Bd<0dAhb d hfh  h@Pݘ"jd6SdT32VhT5@P' %1! hhT n'^\3^T1^4 h08RS @P)0}Th M7 3 h D7 3 h0 d dJ@PTd01M\4I hF)q0d60`d;0zd<0\dAh@P h' dh h0!Zdd0060Rd0T0^T^94@P\14 h1\S4Fd  h\14(d@PJRdKOdMBdN hG>d4h: d8 @P@P1d8@P;,  3 i@P-d0H%PLPGN2PPBINASCASCBINPUTS 1CCSBLK=CCSPUTICCSMVAREADR CCSGET P P%LPGPRG F63 F LA CCS 3.0 SL-149@P@P @PV@P &*d00:@P@P LAUTIFIL  @PLARPTPGM  @PY$$LRMENU$$  @P@Ph@P@P@P@PuOKNOEN@PRPTGLRP0XX+  3 j@PREPORT XX AVAILABLE @P@PPRFLP000LA @P PLEASE ENTER: REPORT NUMBER (01-19) TO DELETE OR "END" TO TERMINATE @P$ INVALID RESPONSE - PLEASE REENTER @P7 PROGRAM " " ENTER: "OK" TO CONTINUE OR "NO@Pb" TO BYPASS @Pi REPORT XX DELETED @P REPORT NUMBER IS ALREADY AVAILABLE @PTT  (T T1˨̘ '\ @P6h\hYȶ '\Y\Ȩ '\Txx@P<w hH( d 3 +\$xր@P]d\Τ؜М !ќ Tx\@P\7\7x̝u ̘v T̸ 'T@Pa̧ "̢l̜lTh̛ !d\Th@P &\Y0dT &\dnT0ix'̰@P d6\1 %\ @P@P@PT\h\TT(j  3 kPLPGPRGPQ8STP $PGMIN OPENFLFILERRREADR WTREADCCSMVA{DELRECUPDRECDELETECLOSFLPGMOUT"PLPGPRG PLPHDL1 F64 F LA CCS 3.0 SL-149@P@P@P@Pd @P2LATAPARC  @P@PLAUTIFIL  @P@PTMTH@P@P0000@PTAhhTETz hDhT@P 1 hɀXh\@P! 1 dh\@P/ 1 hȮlh\@P<ب 1TT hț "\2 hȐ "T d F  3 l(@Pg "vHhn$hhH$b`dT l@PѬҜj !Z#hIH,܈Dd%h>H,ш9ddd ,@Pl !Tz& c dh T@P 1TBT d >@P\r+\r,  T2\\r1 TTW@P  @P (1H1,20A2,6X,40HACCOUNTS BEING PURGED FROM THE LATAPARC ,4HFILE,/,1X,20A2,14X,10HRUN D@P7ATE: ,A2,1H/,A2,1H/,A2,/,1X,20A2,//,35X,14HACCOUNT NUMBER,10X,18HARCHIVE TAPE DATES,/)@Pb8@Pc(34X,8A2,2X,A2,1H/,A2,1H/,A2,2X,A2,1H/,A2,1H/,A2,2X,A2,1H/,A2,1H/,A2,2X,A2,1H/,A2,1H/,@PA2,2X,A2,1H/,A2,1H/,A2) @P@P(//,52X,21H*** END OF REPORT ***) @P@P(/,37H ERROR WHEN LAUTIFIL RECORD NOT FOUND)@PTPLPHDL1PQ8STP Q8QINIQ8QX Q8QENDMONTO YERTO PGMIN LAHEADOPENFLDREADR [GETS DELRECFILERRCLOSFLPPGMOUT PLPHDL1d  3 m< PLPHDL2 F65 F LA CCS 3.0 SL-149@P@P/@P3d @P;@PB@PiLASUMHST  @P@PLAUTIFIL  @P|@P @PSMTH@P(R S W @PINVALID STATUS@P  @P0000@PBTx+,-hhTT|1 h "\i1 h "T@Pm|1 hȽȹ "ȴdH(d(d@PHl(lH(dlH(l5$6d d9 !B@PTz$ d:hT ,  3 nP@P 1 lh\@P 1 dh\@P 1 lՀh\@P 1T lT 1 d213  "T'< d=@P&Ҕ( l) l* l s$5hl7H$8ed>@PQ&h_H,Zd?.d@0dA ,l "Tz6  d:hT@P|@P~ 1\' lh\@P 1 lh\@P 1T9T1 d21 !O @P@P@PT;;\z= } l̲h\@Pܬ 1\' ḷh\@Pܝ 1 l̖h\@Pܐ 1\ܶT;@P@PTorA\rB  @Pj@PTi21+u%  3 od@P_@P{@P\21+\rG T1Tf@P@P(1H1,20A2,12X,40HACCOUNTS BEING PURGED FROM THE LASUMHST ,4HFILE,/,1X,20A2,20X,10HRUN @PADATE: ,A2,1H/,A2,1H/,A2,/,1X,20A2,//,20X,14HACCOUNT NUMBER,5X,13HINACTIVE DATE,5X,6HST@PlATUS,15X,14HBORROWERS NAME,/) @P{@Ps}@P}(20X,8A2,7X,A2,1H/,A2,1H/,A2,9X,A1,10X,R1,14A2,A1,10X,7A2)@P@P(//,54X,21H*** END OF REPORT ***) @P@P(/,37H ERROR WHEN LAUTIFIL RECORD NOT FOUND)@PTPLPHDL2PQ8STP Q8QINIQ8QX |Q8QENDMONTO IYERTO MPGMIN CLAHEADQOPENFLUREADR lGETS CCSMVADELRECCCSBLKPFILERRCLOSFLPGMOUTPLPHDL2 P4LPRNTT F67 F LA CCS 3.0 SL-149  3 px@Pd* @PgPC@>AD@P/ ( ) [ ] @P< > @P99999999990000000000000000* @P@P @P\@Pj @P.@Pt9 lTjdhT``TlTa  h hĘ@P>h\``\ط@P hȳfخ 81h\``\\d'dS d/h\`@P`\ 1\ke df l  h# l iH d0 $j@Pd2dd_̞ j̚ ̗  @Pdc {X@P% l"! ,l AYd?>aTl lc 1` ,@PP\_ c !f "\_c̱ !α &pnl@P{T_k2bhT_k2@PVTh\h^k2^J h\V  3 q@P_k2>@P$ d\ l^ ] lޔ_ l@P\\k2\ A2d^ +T_+\+]gk^g l̼ l̵@P l̮ lT|\k2\@P@P l (d1 dc d/̿l9jfܳ l (ld'dSHd`T@PA``Ta Tyll_l\``\ 1\ll l@Plwl\``\ܥ 1 l̶nܛ 81l\``\\l@P\``\ mAd_T _l\``\\ @PdY dZ d[\\o\\\k\\Y\p\\Y]\q\\Yr@P\s\d`T?``TG@P@P3H0TThFhYhnhy\h+\h{\h\hh\ h h h h @P*hh~ hxAPLPRNTTPQ8PKUPQ8PREPAMONTOAYERTOADAYTOCCSBLKNFWRITEDISP CCSGETCCSCST>CCSMVAEDIT CCSTIMHEXDECP P LPRSCN F68 F LA CCS 3.0 SL-149@P@P JP^ ( 6`|(  3 r@P ~@P f@P @P/@P.@P8@P+@PcEX@P00000000000000000@Pq@P@P@P@P5LADLQMSTLA  @PDLACOSIGNLA  @PSLASCNFILLA  @PbLACLIENTLA  @P ENTER THE NUMBER OF THE SCREEN YOU WISH PRINTED OR EX TO EXIT ROUTINE @P THE SCREEN NUMBER ENTERED IS INVALID @P ENTER THE NAME OF THE SCREEN  3 s@P  DO YOU WANT THE SCREEN TO BE DOUBLE SPACED? Y OR N @P 5 ENTER THE ACCOUNT NUMBER IF DATA IS TO BE PRINTED OR ONLY IF NO DATA IS TO @P `BE USED @P e THERE IS NO RECORD IN THE MASTER FILE FOR THE NUMBER ENTERED RE-ENTER ACCOUNT NUMBE@P R OR <CR> ONLY OR EX TO EXIT ROUTINE @P THERE IS NO RECORD IN THE COSIGNER FILE FOR THE NUMBER ENTERED THE SCREEN WILL BE P@P RINTED WITH THE FIELD DESIGNATORS @P ENTER THE CLIENT NUMBER IF DATA IS TO BE PRINTED OR ONLY IF NO DATA IS TO BE@P USED @P  THERE IS NO RECORD IN THE CLIENT FILE FOR THE NUMBER ENTERED RE-ENTER CLIENT NUMBER@P < OR ONLY OR EX TO EXIT ROUTINE @P O THE SCREEN NUMBER ENTERED HAS NO ASSOCIATED MASTER FILE RECORD THE BASIC SCREEN W@P zILL BE PRINTED @P A SPECIFIC MESSAGE WOULD PRINT HERE WHEN THE OPERATOR IS ENTERING L/A DATA@P T$()*TS-- (TS -(\q5- '\5 -(\D- @P '\D -(\b- '\b -(T(+./,\(+ +: ,:@P c T:dd  lTMd-̠8 ̙9  ̓ 1\S -(@P 9\(+ ,\(+ +: ,bd!T:! !\(+  +: ,̩@P dd ̱  M̬  M̧ ̢ ̝ T (+ 5 +: , :\:@P   \qe--   1%T 5 -(\(+ e +: ,5~  3 t@P :c ̌ \0  Te !Md   ^lT Md-̶@P 8 ̯9  ̩ 1\S -(T (+ ,T 0 @P  1/\e--ǜ Ȝ  1T S -(\(+  @P ;,T S0  \e !M\(+ +: ,b 7\: " T e@P f"-̳8 ̬9  ̦ 1!\b -(cT (+  +: ,:c E@P \0  \"  T e !MY@P t @P y @P ~ @P d \  e    Te \(+ O ,\e !M/@P  @P @P Tq-\-\-\-@P @P @P @P @P : @P @P TT^  3 uPLPRSCNPQ8STP PGMIN OPENFL FILERR ,WTREAD ICCSAD READR cCCSMVA =LPRNTT CCSCST CCSBLK CLOSFL PGMOUT PLPRSCN PLPRTSR F69 F LA CCS 3.0 SL-149@P@P01@P@P@PI  @Pt  @P  @P@P L@P@PLATRNSFL  @PTT " T֨ "@P Hd@TȻ d h Vط 1T 7S @P80ؙ 0lTIȓ !D hn؏ E1dd d f@Pc 1 դh Ȥl l@P|̷l̮l̲l̩l d dTTT  3 vPLPRTSRPQ8STP PGMIN OPENFLGETS CCSMVAUPDRECBCLOSFLPGMOUTPLPRTSR PLQLOAD F70 F LA CCS 3.0 SL-149@P@P^ ,@Pe @Pl(@Pn@Pu @Pym@Pz@PX@P  @P @P#LADLYASN  @PY@P ENTER DATE (MMDDYY) OR CR FOR SYSTEM DATE @P READY (CR)@P$  3 w@P'@PS00@PT@PzTZ[\  h  hT #] (T#^]ZTZZTT@P@P(A2,2X,20HQUEUE LOADING REPORT,//)@PTT_U_ȜdTZaba_YȈ  T !@P\_U_\__Tdc !T ddT2eT 22] ]f@P g /T#h]Z d lCdi dj" $ld@P8k $ndm2`"  hT2o5o huT2o5op@Pcp  dq dr6h&hT@P} ds6h\@PsSp 6h\@Ps 1 1& X % ~$TZG% dthT@P@P 1T @P(1H1,2X,20A2) @P\ZI% lh\@P (1\$\@P(1H ,2X,20A2,10X,20HQUEUE LOADING REPORT,35X,6HPAGE: ,I2) N  3 x@P \ZK%# )ḽh\@Pܧ <1\\ \ \@P#(1H ,2X,20A2,13X,7HAS OF: ,A2,1H/,A2,1H/,A2,/)@P:TRM%A;@PA(1H ,48X,29HNEXT CONTACT DATE AGE BY DAYS,/,10X,5HQUEUE,15X,2H-0,9X,1H0,9X,1H1,9X,1H2,@Pl9X,1H3,8X,2H+3,9X,6HTOTALS,/) @P{ dX\ZP%T5\6 dt6h\@P 1T̀@P(1H ,9X,2A2,12X,6(3A2,4X),4X,3A2) @P@P@P 5 >$T;ZVZ\\$\\ \ \π-@P(1H ,A2,28X,20HQUEUE LOADING REPORT,16X,6HPAGE: ,I2,/,32X,7HAS OF: ,A2,1H/,A2,1H/,A2,/@P) @P\RXZ@P(1H ,24X,29HNEXT CONTACT DATE AGE BY DAYS)@P\RZZ&@P(1H ,4X,5HQUEUE,7X,2H-0,6X,1H0,6X,1H1,6X,1H2,6X,1H3,5X,2H+3,5X,6HTOTALS,/)@P; dXTZ]ZZT5\6 dt6h\@PR 1Tt  3 y,@PZ(1H ,4X,2A2,4X,6(3A2,1X),3X,3A2,/)@Pk 1`dTZauaYY  l dq f& 1 k d@PTP2o5oT d _@Ph@P lT2dvm>hT@Pdw !8cdxd &$yl %,ld 7 4 d@P " l " lޚ-4j4@P2@P̩ ̤  lc dq dr6h-hTz@P ds6h T[@P$sSpp ހ6hT@P9s 1 1& /T?Z%b dt6hTE@PZ 1TX@Pb(1H ,/,10X,6HTOTALS,10X,6(3A2,4X),4X,3A2) @Pw*\ZZ lҀ6h\@P 1\@P(1H ,4X,6HTOTALS,2X,6(3A2,1X),3X,3A2,//)@P@P@P-  3 z@@PT ]TTPLQLOADPQ8STP Q8QINIKQ8QX XQ8QEND`PGMIN {OPENFLFILERRLAHEADCCSMVA4WTREADuIDATVRICALJLICCSADCCSBLKPGETS CCSCST"HEXDECCLOSFLPGMOUTPLQLOAD PLRTVD1 F71 F LA CCS 3.0 SL-149@P+"3@PLADECTBL  @P- l: 8j6 412h l.T( !*T( ! T(Ԝ !@PX  hhƘ9 nÀ@Pl ȺlȺlȸlHTTh\ h h h h\hPLRTVD1yPQ8PKUPQ8PREP|OPENFL@P@P997 998 999 @P  g  3 @P:YES NO@P#);&2D@P @Pkw2);M@P @P" AS OF DATE WAS NOT GREATER THAN LAST RUN DATE @P PLEASE ENTER "AS OF" DATE FOR TREND ANALYSIS CALCULATION - ENTER : MMDDYY OR @PCARRIAGE RETURN TO USE SYSTEM DATE @PpLAACCAGE  @PLADLQMST  @PLARSWFIL  @PtT?@AT+pB d~ȿ (TpCB? d d dh@PvTET+CBȗ hȌ 'ȍ '\pGB?\ETECEH@PH OdPd ll\E\CI l l l l T?J"KJ LM@Pd\?JNJOLL   T ! TOO= @P 0 l\CPOO !TdQ\dR !̑  \@PKOCSO\OCPO T+CB̼ T+CBB 1̯  dT̩ @Pv lTpTB?̜  dT{B '\CB?\B '\CB@P? d= T+CB̶F̯ '\pGB?C @PTCB̖W̑ۜB '\XB?  ! dYh"2  3 @Phh hTC@PC@P 1 l߀hۀ h׀hӀh \@P&C@P) 1\ZOOT[\\ K]\CCSC^_\C@PTCSC `-\CCSCTCBB (TzaB?T+CB @P2\pEB?ddbTCCSCTe+CB 2\pVB?@P@P@PTcTB̴F̭ '\GB? \CdT6[\@P\  \ X T dTh hhh\@PC@P 1TZOO\ECEdbdi\CCSC>T\+C@P+CBB (TopUB?q@P;@P; T+B " d| d~ dY f* 1T+pB '\p@PfCB?T+CB̽F̶ 1\peB?s dddT5dR\@Pdf Bdgdh $il $jlЌl 'kl@Pll,m"lp4odn,ddpp4rdq,dds 0h 0Ȉ l 0@P lv  3 @P@P@P@P@PTB+B @P@P@Pu@P@P@P@P@P\+B\B\B@P@PTTPLTRNDFPQ8STP AMONTOADAYTOAYERTOFMRDELPGMIN uOPENFL]FILERR2CCSBLKGETS CCSCSTWTREADIDATVRCCSMVAPICALJLWRITER(UPDRECREADR CCSGETPUTS eDELRECwCLOSFLCOMFILlPGMOUTPLTRNDF PSLTRNDU F75 F LA CCS 3.0 SL-149(  3 @P@PJ@P@P @P @PYES NO@P"LAACCAGE  @P DO YOU WANT TO UPDATE PREVIOUS TREND DATA FOR NEXT TREND RUN (YES/NO) @PT dT T  \@P  h hT " 'T"HTT 1Ȭ 1\"@P4\1Ș Țh!d>T 1 &\"T +\"@PF\"TTPLTRNDUPQ8STP RPGMIN WTREADCCSCSTOPENFLFILERRCCSBLK READR  UPDREC/CLOSFL>PGMOUTPPLTRNDU P 7LTRPLY F76 F LA CCS 3.0 SL-149@P@PJ!^#0102  +8 jJp Pcy@Pk@PmjA  3 @Pu_' @Px@P@P+@PR@Pa@Py@P@PLADLQMST  @PCLACOSIGN  @PjLATRANFL  @P@P@P @P'@PR@Pf@P@P@PLASCNFIL    3 @PLAADDACT  @P@P/@P0360@P5@PY @P@P0PP@P#0130@P%60909193@P,@P6 @P31 N @P+@P2@P)@P8!@P1?@P @P90Nl1E(6  3 0@PH@PxTI (TJI6\+CIȼ '\CJI6\RjIȮ '\jJI6@P\yIȠ '\JI6\IȒ '\JI6TyKII @P "T\yLI  "\'\yMIլ֜ @P "\TyI d d dTR/I̭O̦ ?@P$PQ*TjRI6)7 !+TII@PO  "TSTT\UVWV\XYUY̷dTX@PzZ\[\]\\^_`_\a\b\0 \c\d\\e_@Pf_\g\S\h\2# !$ 1% 1/& @P2b( 2~*5Tdi ,hDdj ,h  d dl@P\ l ,h&Dl ,h'lTYkkTE+IIm  1+@P%n  To\kk\8pjT+I "\@PP8pjT+I "T di ,hDdj ,dd @P{dl \ l l+l l\Ǐ  AI " A 5 @PTr\\ Ts\r\\8pj $H l dtd!.̩@Pі8 $ 9 +9h\1p@Pj : +܀:h\\@P\ l 7 \\u\\3v̞ "ǔ5 \k@P "k\4qUqTII "  @P 7D  3 D@P 7@P 7TWI 2@PR A@PW A@P AT3WI6Tz  a dhT@P W 1\T@P a(9HACCOUNT ,8A2,8H CODE ,A2,14H NOT UPDATED) @P z)7 "$@P @P @P @P @P @P @P \WI6\r @P (39HREPLACE SCREEN FILE AND RESTART PROGRAM)@P T@P @P @P e2  3 X@P @P @PA @P \r @P (29HFILE ERRORS...PROGRAM ABORTED)@P @P/ @PL @P_ @P T BCWI6\wI6y@P @P TRI\I\+I\IT Hz T U+\2\*\)T _G@P (26HTOTAL ACTIVITIES UPDATED ,I4,/,27HTOTAL CHANGES UPDATED ,I4,/,26HTOTAL OTHER@P  RECORDS ,I4,/,26HTOTAL NOT UPDATED  ,I4)@P 3T TPLTRPLYPQ8STP 6Q8QINI Q8QX Q8QEND AMONTOADAYTO AYERTOOPENFLyFILERR READR GETCHFCLOSFL GETS CCSMVAPPUTACFrICCSADcCCSBLK1WRITERCUPDREC 8CCSCSTPUTS ,PGMOUT 4PLTRPLY PLUSEMT F79 F LA CCS 3.0 SL-149  3 l@Pu@Pc@Pg0@PkYE $END  @Pt@P@P3@P5 RESPOND WITH "YES" IF ANY DELETES,ELSE (CR) @PLAACTIVE  @PM ENTER USER ID TO DELETE OR "END" @PuT/_`aTb (Tcb_Tr R\R _pT3bǨĘ@P4 '\eb_\z  hȳhT@Pج 1T\Z_ hȞh\@Pؘ 1\T_g5hg/ij/illd0\_gMmg/njp o@PRd3d4T/bbqd 1 1"Trb_T@P#Z$_\3\4\T3nnss Tb 1\tb_ T@PNbT@PR(1H1,5X,15HUSERS OF LEGAL ,/,3X,2HID,3X,4HPORT,3X,4HTIME/)@Po@Pp(20X,15HUSERS OF LEGAL ,/,10X,2HID,5X,4HPORT,5X,4HTIME) "3  3 @P@P(2X,2A2,3X,I4,4X,A2,1H:,A2) @P@P(9X,2A2,5X,I4,6X,A2,1H:,A2) @P@P(5X,5HUSER ,A2,A2,10H NOT FOUND)@PTPLUSEMTPQ8STP Q8QINI#Q8QX Q8QENDPGMIN vOPENFL|FILERRGETS WTREADREADR CCSCST/DELREC=CLOSFLLPGMOUTPPLUSEMT P.LUTFMT F80 F LA CCS 3.0 SL-149@P@P**J &@P504LPN$4@P=@P@PLAUTIFIL  @PX@PY UTILITY FILE MODIFICATION PROGRAM IN @Pn ENTER "UPD" TO ADD/UPDATE, "DEL" TO DELETE, OR CARRIAGE RETURN TO EXIT eX  3 @P INVALID REQUEST @P ENTER KEY OF RECORD TO XXXXXXXXXX @P RECORD -XXXX- NOT FOR ADDITION, DELETION, OR UPDATE THRU THIS PROGRAM @P RECORD -XXXX- IS REQUIRED, CANNOT BE DELETED @P RECORD -XXXX- DOES NOT EXIST, CANNOT BE DELETED @P RECORD -XXXX- ADDED SUCCESSFULLY @P RECORD -XXXX- DELETED SUCCESSFULLY @P, RECORD -XXXX- UPDATED SUCCESSFULLY @Pf @PUPD DEL @PADD/UPDATEDELETE @P**@P @PCOID@PHDR1@PHDR2@PHDR3@PRSW1@PACTC@PRESCh  3 @PSALC@PDALT@PSMTH@PTMTH@PUPDY@POLPM@PLTRF@PRPTG@PLTR1@PLTR2@PLACL @PLAC1 @PLAC2 @PLAC3 @PLAC4 @PLAC5 @P** @P @PpNAME ISPHONE EXT CSUP QUEUES... @P---------------------------------------- (  3 @PR---,S---,W--- @PCODE1 CODE2 CODE3 CODE4 CODE5 CODE6 CODE7 CODE8 CODE9 @P---,QUE =---,QUE =---,QUE =---,QUE =---,QUE =---,QUE =--- @P.--- @PTRL--,P--,C--,NA- @PzN------------------------- @P--,--,--,--,-- NNN @P------------------------------ @P @P @P8 @P^ @P @P @P @P @P @PB @Ph @P OPENFLDWTREADCCSMVAREADR DELRECBCCSBLKnCCSGETCCSPUTUPDRECWRITERFILERR CLOSFL'r  3 PPGMOUT+PLUTFMT PqLWROFE F81 F LA CCS 3.0 SL-149@P@P@P&@P("@P *@P$000B<:,@P.p @P3@P5 2@P9kmxX^@PAY @PDpq! .@PM@P @Pp@P@P;99NO:  3 @P>000000000000@PJ000000000000000000000000@P000000@PVWRS @PY000000000000@PD0000000010@PlYES @P O@Pn0000@P @LADLQMST  @P LAWOEF  @P ANSWER (1 OR 2) @P ENTER AS-OF-DATE (MMDDYY) @P ENTER NUMBER OF DAYS DELINQUENT (NNN) @P ENTER WRITE-OFFS SINCE DATE (MMDDYY)@P ANSWER (1,2,OR 3) @P ARE SUBTOTALS DESIRED (YES/NO)@P  RECORD COUNT--R RECORDS 000000000000@P $ RECORD COUNT--S RECORDS 000000000000@P : RECORD COUNT--W RECORDS 000000000000  3  @P P RECORD COUNT--OTHER RECORDS 000000000000 @P g CHOOSE ONE OF THE FOLLOWING REPORTS:@P z 1) ELIGIBLE FOR WRITE-OFF REPORT@P 2) ACTUAL WRITE-OFF REPORT @P  CHOOSE ONE OF THE FOLLOWING WAYS TO PRINT THE WRITE-OFF REPORT: @P 1) PRINT THE REPORT BY ACCOUNT TYPE, QUEUE ASSIGNED @P 2) PRINT THE REPORT BY QUEUE ASSIGNED, ACCOUNT TYPE @P 3) PRINT THE REPORT BY STRAIGHT LIST @P0$2Ykw@Pa"ra@FgO@P% @PMTȿ dddThhT g@Px\ z\  d\  Hd 2!@P !d_  d \   T  !\ d l@P\   \  !Th lQ ldTq  !̘ @P  d"T"n## !\";# ! 1Hl@P$$ȌlH%l&lT\ '\ (\ )@PO\ * l\ +̾ ̺H d ! ! @Pz3 ldT !̛ T!l!## \,<,# @P dX l ̽  1d` ̴  2l̯  3l ̧  4l ̟ ,  3  @P 5lTp @-- (T @!-\ O - '\ !- d_ @PT.Tp-/̤  *\ @0- d~d= d1@P&" $3d2 $5d46 k d"7hcT@PQV"## V 19hLTd8 !DȌh@T ! @P|$:ld !"T g;\  g<T\=! g>!d@PIda@PldX1i 7\.Tp--/ @P *T @?- l~d= l" $3d2 $5d46@P t7hTMV## Y dڄAhTdd@ !I@P0dTp"$ 85 !/ $:l՜ "w@P[T g;\  g<\n! g>!dwdI dl1 i@P R8 d"/4dC$h`h $h\C@P g@P 1` 6  DdT4= gE=ʄFl\= gG=@P̾l\= gE=̴l\= gG=\_, gH\`, gIT O g-- @P(T B-?@P @P d"47lTV"##  1TD>># \DY@P5Y D\DJJ P\DPP@P R  3 4@P=R@PR@PR@PR@PR !l\ "n#̿ #T "ܣ *1 !l\ $"n#̤ %\@P} $"܉ *"1 !lT :"n## !\ :" *1 !l\ P@P"n# \ P" *1 d1\J1n# \J1@P 1 l\P1n#̲ TaP1 1 l\Y1n#̘ @P\Y1ܹ 1 lT>1n## \>1ܞ 1\JK@P) JK\PK $JK\YK :JK\>K PJKT *\ $*@PT\ :*\ PL@Pf@Pf@Pf@PfTp-\ O-@PWm@Pm@Pm@PmTTPLWROFE0  3 HPQ8STP pFMRDELmAMONTOYADAYTO^AYERTOcPGMIN NICALJL'WTREADBIDATVRCCSCST DECHEX4OPENFLFILERRCCSBLK\PGETS CCSMVAHEXDECPUTS CCSADD&CLOSFLgPGMOUTnPLWROFE PGCLCHNG F01 F LA CCS 3.0 SL-149@P@P   @P@@P@P hhT! 94 10C!0 ) 13~ . h ( hDd@P=|̈hTx@P3H!|y8 d}g@PQє /0ʔ /T0\! Ȣ  93ț !T!h 9l\! @P|  l l 1 ! , lθ !̒  8 d~T@P13\1ΘDd|Δd T0!} 1\0G T@P1!}\1!}̠,h\38!}|@P|dJ0PdK     \!31}|J0|̲ l@P T!3}J̦ l̨ ̠ lTBx31J|0yT0`0 HT@P6Th\ hh h hPCLCHNG2PQ8PKUP8Q8PREP5CCSGETWTREADCLDISP&ICCSADtCCSMVAIDATVRLPKAMTEDIT  >v  3 \P PCLDISP F02 F LA CCS 3.0 SL-149@P@P@P@PINVALID REQUEST, PLEASE REENTER ENTER CHANGE ITEM OR NEXT FUNCTIONINVALID ENTRY, CLIEN@P-T # NOT ON FILE. PLEASE ENTER SELECTION.@PA !"C<@PGINVALID ENTRY, ENTER "CS" TO RETURN OR TO CONTINUE (CREATE NEW RCD)INVALID ENTRY,@Pr ENTER NEW STATUS OR <CR> TO RETURN TO S@PELECTION SCREEN @PHIF@P99999999990000000000@P @P @P d, "'hT600zz0  " h Z1Tx3@Py @Ph 0 2"hT1Jܴܳȩh\@PJܧܦh1\JܙܘȎh\@P J ! d"! ,X"VPL"  3 p@P5! ,B:6d}d|T1}|| !@P`η c3\}|1|̭ !VΥ ' $ ll 0dd @Pdd #ll   T3}|10J| ߀h\@P3}|J|Ōl֜ 00}|ld9h ̽hT@PJ@P d̞l d 2̓ d̘ ll1\rJ d@P@P@P l3Tx3J|y l@P@P0d0J dKdL $ 1 , dAhAh @hT@P7J@P:A l" l , l߀hۀh׀h\G@PVJ@PY l̿ l@Pa@Pa L%id1\J̌ d|3T!3\xJ33|!00yy 1\J@P l dT! 0$Id l9\!  l? lT3@P!|10!̵ll lۜ>\! %T!ܾ00z 0 @Pl  3 @P@P@P d3T3zx 0N ' TN@P)@P+@P,@P-@P/@P1@PA@PB@PC@PE@PG@PHTThhh\hHhZhhPCLDISPPQ8PKUPQ8PREPREADR WTREADCCSMVACCSCSTSEDIT CCSBLKuCCSGETCCSPUTFILERRGETCHFP PQ8QBDS F03 F LA CCS 3.0 SL-149@P0LACLIENTLA  )  3 @P0LASCNFILLA  @P0@P06@P0N@P0y@P0~ @P0 @P0CCCFCS @P0P@P8@P0@P8@P8@P01@P8P PCLIENT F04 F LA CCS 3.0 SL-149@PTTTPCLIENTPQ8STP CLMAINPGMOUT  3 PCLIENT PCLMAIN F06 F LA CCS 3.0 SL-149@P@P{ 1 #9  @P[\]ab@P_`c@P E A,N,S,@PACTIVEINACTIVE@P[** CLIENT INACTIVATED @Pf  @PT1xyzTXTXuT306z0z (T{z0x\30z '\@P3{zx d0~T00  d!  (  " @P 3\ T   !  lT!9{!@P \!10T30z00z 0 0 ̖ @P7 - 2)1T|3zx1T}00{{ T0\00 08! @Pb>T!{ \!{ 0\ T}0Tf9@P\0~}\[\u1T3z̷ z 2 29\@P0zx B  +TP 0̋ \!10\13! d@P~\00 00! 60 \  \0 @Pߔ  \Ӝ \3 1TG}00{{ '\0̱ l  3 @P9̲ ̭ ̨ ,̣ .T0̔ \̋  T@PdN  o! \0 b ~ !) lT9@P\1T3z\10z 'T?0zx0 ! lT3;z@P 2\0zx3T0z  2 2\1;zx@P@P@P@P@P@P@P@PE@P\@P@P@PT03z\6zHPCLMAINPPGMIN LAHEADEDIT OPENFLFILERRCLDISPPCLNAMECCSMVAREADR CCSGET*CCSCSTeCCSPUTUPDRECCLCHNGbPDELRECWRITERCLOSFLP  3  PCLNAME F07 F LA CCS 3.0 SL-149@P@P;@P>@PA@PCA#@P(@P$B@P# @P END OF SEARCH@PE d+*hl0hI h " h  hT)>T!?&)& h@Ppʷj 1 hȬ "ȩhT3x0yT108z00z  "r@PT(")"{ 0{ 1 dh1\x0yFd<l &,\(&)@P0&{ @\3J\1($JB1$\J1Tf3J=# 0dJ dq@P3\x3Jy  dC\0C 1T1800zz0  @P  !Sv lT% 0YI T!DD ? 93 (\@P0G < l댔d !  lT1D!8@POd@Pd d=3Tx1y l l3T3zx @P^~  3 @P~ d!0 d+0'd*HPCLNAMEPCCSBLKbCCSMVA\WTREADhREADR CCSCSTGETS  CLDISP(CCSGET7FILERRxP P`FLEGAL F09 F LA CCS 3.0 SL-149@P@P@P@P**A $@P@P@P ^s@P C,@P#!E @P'A@Pc&@P* B,%N,@P/OLPM@PZ@PdKw  3 @Pa#@P "@P@PLTR1LTR2@PP @PeLAACTVTB  @PtLACOSIGN  @PLADAQUE  @PLAUTIFIL  @PT1IT3rKK (3T3KITT)0  1\T3  d@PpT333\K "T30KȤ 0 ̺ "@P0d00d0Ȗd0T\30Z<Ḳ !#T3Z0K̙$ ̒ !;TZK@P@ d fY 1 d l1T<3KITdRdS0̲d̳ d@Pk d (d lhT1 U !̻ Al@PTVܯ 1T1/00KK0 } v !o0T  d\@P0d\00do\10\3K֬ל UЬ O !H d d0ܔ @P f 13\K̩ ̣ ̝ ! lל  @Pn 13T=K@P@P d h  3 @P@P l lTT3KITZ 0dE dF d0GTE0l d  ;@PIl0 0l d f0 1T10eK0K !!3T3fK !\@PtK d0T  1 l l l\e0KI\VdfWdg d@Pd l nܬ 1\K̳ !)T33fK0̩ ̢ ̜ !@Pdd dT0K d lT$0KIT* lT3_ZK8 dp@PK &\K0I\\3K 1&\3KI\ d\3KK  3  l\K@P3 KI3\\-0K &\-K0I\Ta (+  (@PK-  ݔ& \(T " "1 T@PvK l d Ti1K lK  !d V @P0U ެߜ ddT33lT38vK@P G F E 0nH 0d0d dQ̜@P  dTt0K0K % dd 4 lx la T@P" "10  d` " lT3`q1` d f0 1 d@PMT10tK 0ld̮ !pT3f0K̤ [̝ !b l $ dTy@Px̐ T1q`1`LL $̴ \ 1 T02 ̎ \3@P  3\ܑ 1T3830T0K0\K\,k l @PlT3tKI Tb@PP@P3\33d$d d+  3 $@P@PTZ30K00K     2 lT0d &T@Pc@P@P3\330T!ˬ̜  ƬΜ \0\,00 !=H*d@PD\0Td  4\0"! 1b&w@Po0\T\#0T0̼H'l0\2 1   , d@PfAfB d l < d6l3l " ln @P " idd  l l f 1TOtKK "@PT330f\1fT33fK0 d ܤ 79T@PT 0\ 3T|Ep B >\3T,K̰ 1- d@PF T3K̟ $ l{\ \ 03\E \30K0K $ lcUdT@P3qKD@Pf@PvT@Pg@Pz d  l1lj@Ph @Pi@Pj  3 8@PT\3@Ph@Pk$@P  6l lW@P@P@P@P $0U  6T0%Tl ldfVdg̿ !d @P l d1S l@Pld@PT3.0̥  l ld@Pmw@P\b3T#h@Pn@Pp@PTW@P@P@P0p TIZ3K d00QK % d ?@Ps  3 w!ALqw!P CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm PLEGAL E01 A LA CCS 3.0 SL-149@PPLEGAL PFLEGALP PLPGGEN E02 A LA CCS 3.0 SL-149@PPLPGGENPLPGEN0P PLUD400 E03 A LA CCS 3.0 SL-149@PPLUD400PFUPD4XP PLUPDAT E04 A LA CCS 3.0 SL-149@PPLUPDATPLAFUPD3  3 w5P PLUD500 E05 A LA CCS 3.0 SL-149@P$T TLUD50E LUD50A PLUD500PCHAIN P PTECLXTRT F08 F LA CCS 3.0 SL-149@P@PR@PR@PR@PR.2 u0'@PR@PR@PR3@PR @PR@P@P0@P5LADLQMST    3 wI@PDLACLINV  @PRTR;RRRTNsRTR?RT5R (T5RRRTDR '\DRR@PR\DRȶ '\DRRRTSR3RȦȠ hȚ '\5RRR@PS h!mȑ(hRRR YRR (, dR , hO , hLTS@PS5S}RNsS|R , h? ,Rh;\SS}RNsS|R , h/ , h,\SS}RNsS|R , 1h ,@PS`Rh\SS}RNsS|R , 7h ,Rh \SS}RNsS|RR@PS~̥ TNsRRR (TRDRRRTRSR\:R\NsRRRl lR @PSRTz6 S d d ,R*hT@PS 1 1T @PS(//3(/30X,20R2)//)@PS\r8 S@PS(28X,35HLEGAL/AGENCY CLIENT EXTRACT PROGRAM//)@PS\r: S@PS(29X,40H DATE RCDS READ ACTIVE RCDS WRITTEN/)@PT\z< T, l̜Rh\@PTܖ 1\R\R\R\@PT,(29X,3R2,5X,I5,4X,I5,6X,I5) @PRT:@PRT:@PRT:np  3 w]@PRT:@PS T:@PT:TR\RTTPCLXTRTPQ8STP TDQ8QINISQ8QX SQ8QENDSPGMIN RCCSBLKSLAHEADROPENFLRFILERRSCLEAR RGETS RCCSMVAS3PUTS SCLOSFLT;PPGMOUTTBPCLXTRT P LACLPG F10 F LA CCS 3.0 SL-149@P@P @P(@P@P9<?@PmB# jA_})@PX@P0 @P@P000000  @PI  @Pt   3 wq@P{  @P @P  @Pɀ@P @P)@P-@PG@P @P@P11@PS SUMMARY@P_ @P *<N/BS_kw@PoLACLHDR0@P@P @P000090@P- @PLACLIENT  V  3 w@P`LAUTIFIL  @P. FILE ERROR-LACLIENT FILE WAS NOT COMPRESSED @P  @P @P @P CLIENT PURGE REPORT  @P PAGE: @P0 @P3 RUN DATE:  @P^ @Pr @Pu  @P @P @P  @P @P @P CLIENT # DATE INACTIVE  @P$ @P8 B  3 w@P;  @Pf @Pz @P} FIRM NAME  CURRENT@P COMMISSION RATE @P @P FIRM ADDRESS 1  PREVIOU@PS COMMISSION RATE @P @P FIRM ADDRESS 2  DATE LA@P,ST UPDATED @P@ @PC CONTACT NAME  COMMISS@PnION LAG @P @P PHONE NUMBER EXT:  @P @P @P  @P  3 w@P @P  @P4 @PH @PK HISTORY # OF $ VALUE AMT # OF $ VALUE # ACCTS $ VALUE # ACCTS $@Pv VALUE COURT N/R COURT COM@PM @P MM/YY ACCTS OF ACCTS COL"TD PIF OF PIF CLOSED CLOSED ACTIVE A@PCTIVE COSTS COSTS EAR@PNED @P  @P @P @P  @P< @PP @PTȿ T`ȶ (T`\ȧ '\T@P #oȗ '\` hrȌ ( hHh\@P @q '\` 1 d* d+ d,hT*d@P kT,dTTHTT̻ /̸˜T q  3 w@P F T \\\@P \d\d 1TT \\  \\@  Ɯ߄H@P d ")T rT )\@P \I\q\3\_T/ dT /@P 9 \/ 1T*3\\\@P d}\}\T \\\@P C\C\\ d d( B,mhT@P (GWT 1 l $dT 4  T ~  d@P ,dhh hT w@P @P !Pހh\@P d 94 18 R3 $ . l l&\̭@P 4h ̩h\@P Ad l\ 1 l $dT @P l  hT M@P y 1 T S d(T (GWT  l\(GW\ܵ@P 2  @P @P @P (  3 w@P @P @P ) RT 'T 9 d d d d f  1T @P  &\Tͤ˜ 1\T.@P 0 @P L @P @P @P \\@P  @P  @P @P TTPLACLPGPHFLOT Q8STP FLOAT ADAYTO ZAMONTO UAYERTO _FMRDEL cPGMIN OPENFL FILERR READR "ICALJL gICCSAD mCCSMVA PDECHEX zCCSBLK GETS CCSCST cDELREC HEXDEC -EDIT tFWRITE DISP CLOSFL COMFIL WTREAD PGMOUT PLACLPG PHLACTAD F11 F LA CCS 3.0 SL-149@P@P$*  3 w@P&01  +8<0050@P7@P;@PLATRNSFL  @PLAACTFIL  @PLAUTIFIL  @P!@PL@P0482@PBZ@P@P;T !"T!# (T$# T\9# &\$# \\# &\@Pf$# \T!Q%#ȱ>ȫ &\'# \_` TQ)@P*T9##&  &\+# \\Q,--\# &\+# @P\\Q.//\0-+-\Q12,34d5dT)Q)66 @P)TT9#̢ 2kTJ7# TP lѤ8 $̔9lT@P:TQ))̼l\**̭l\T9## 2k\/# @P=\T!#\9#\TPLACTADPQ8STP GPGMIN 10 ACTIVITY BLOCKS,//) @P#@P(1H1,/,1X,20A2,/,1X,20A2,/,1X,20A2,3X,8HAS OF : ,A2,1H/,A2,1H/,A2,/)@PTPLACTMTPQ8STP Q8QINIQ8QX Q8QENDPGMIN LAHEADOPENFLFILERRPGMOUT^GETS CCSCSTCCSMVACLOSFLZPLACTMT PLAHEAD F15 F LA CCS 3.0 SL-149@P@PU@PW @PQHDR0@PSHDR0@PLAUTIFIL  @P\lZlWlT h (j 1TSWQX hn=n=n; @P1TZ !0 hؽT)QZȾ ! h (h*nذ 1ئ   3 x%@P1TZ @PHTT h h h h\h h hPLAHEADPQ8PKUPQ8PREPAYERTOeAMONTO]ADAYTOaCCSMVAtOPENFLREADR CLOSFLP P$$LAVMCN F18 F LA CCS 3.0 SL-149@P@P!](@P!`@P!c@P!d@P 1****LAST RESULT CODE REJECTED - NOT UNIQUE@P G****NEXT CONTACT DATE OUT OF RANGE - SET TO ZERO@P `**** " " ($ ) NOT A VALID RESULT CODE - IGNORED @P {****LAST RESULT CODE REJECTED - OVERFLOWS TABLE @P ****LAST ACTION CODE A SCREEN FUNCTION - REJECTED @P F*@P _0@P z4@P 0|  3 x9@P 2@P ACTION@P NADSDFDADCCSP1P2P3RLNQOASSDLAAEAUH @P @PB@PACTCRESC@P^LAACTVTB  @PmLAAVMDSC  @P|LAUTIFIL  @P**************************************************************************************@P****************************************@P**@P@P @P @P P@P  @@P @P ACRS@P   3 xM@P! @P! ACTIVITY VERIFICATION MATRIX BUILD OF  - R@P!FESULT CODE INPUT @P!U @P!dTZ!W!X!Y TBm!Z !TB!X!Z @PF@PG=@PF@PGA LA@PC  @PC @PC  @PD @PD3  @PD^ @PDr  @PD @PD  @PD @PD  @PE @PE/  @PEZ @PEn    3 x@PE @PE  @PE @PE  @PF @PF+  @PFV @PFj  @PF @PF  @PF @PF @P@P1@PE@PfDELQMST CCS20  @PuLADLQMSTLA  @PLADLQKEYLA  @PLAACCAGELA  @PGfTFGCGDGETFG:TC GFTfGG (TfGHGGGI\uGGȾ '\uGHGGGI97  3 x@PG\NGGȰ '\GHGGGIT6GGȡ '\GGGI\6GGȓ '\GHGGGI@PGTFGGGGGJGF dG= '\fGKGGGI dGL"H@PGGN,GOdGMG>9GP HG?GQHG@ , dGRGBnTGq?"GS @PH, hETHYGT?"GU ,̈́GVh8\HYGW?"GXGW\FGY?"GZGYG:dA2G;dA3G\G?\F\@PI(29X,3R2,5X,I5,4X,I5,6X,I5/)Z  3 y@PI F 1X dGL!KTIzr I dGM ,ChTI1@PI 1TI>/@PI(/10X,8R2,5X,33HERROR - DUPLICATE RECORD. ACCOUNT,1X,33HALREADY EXISTS ON L/A MASTER F@PIILE/) @PJܲ F 1N l!H\zw J$ l ,E>h\@PJܢ 1\/@PJ$(/10X,8R2,5X,33HERROR - DUPLICATE RECORD. ACCOUNT,1X,33HALREADY EXISTS ON L/A AGEING F@PJOILE/) @PJRGL@PGJU@PGJU@PGJU@PGJU@PGJU@PGJU@PGJU@PHXJU@PHJU@PHJU@PHJU]  3 y@PHJU@PIJU@PJUTGG\GG\6GG\NGGTTPLAXTRTPQ8STP JeQ8QFLEIQ8QINIIQ8QX IQ8QENDIPGMIN GgLAHEADGmCCSBLKIOPENFLGuFILERRHCLEAR GGETS GCCSMVAHCCSPUTH=PWRITERHBREADR HUPDRECHPUTS HCLOSFLJVPGMOUTJcPLAXTRT PLBATUD F21 F LA CCS 3.0 SL-149@P@P@P(@P03 .084,* @PE@P T30506080709 } w<_NW`ir{"&!f:XvO@PY]#A@P@PLADLQMST  @PLACLIENT  @P!LAFINTRN  @P0LAPMTFIL  n  3 y)@P?LARPTDAT  @PDNCN@PM04@POBLIMIY@PTBC@PfIS@P0261@PU0112@P!00000000000000000000000000000000000000000000000000000000000000000000000000000000000000@PL00@Ph  @P @PN@Py@P@P@P  @P @P  @P0000000000000000000000000000000000>  3 y=@PN01@PR @Pg@PhhhT \ TTNȌ (T@P \f '\\~! '\!\0 '\@P =0\? '\?T:\\T~:̻ @P h̴ '\!T: T:\:@P TN   "T \:\R̾@P e\ \\\\\@P \:\:\:T s 9T  @P \T f  "T  Ed@P ? d Xl\:̻ X 1\:U̪ "\:U@P j " El l XlT R ܻ 1T !@P \:̢ l\:ܘܗ̕ l\:  2 \:@P  l\h l\:@P W\:aedg 93 .  R3 -@P   l Ml l lT ga\a\@P A\Tl 93̮ '\!\\@P l\\\̤dg 93 '\!\@P \T ,  l\:\\6  3 yQ@P T I\\T z!  " \!@P ̺ l\N\\\̛ l\@P \\T @P 3@P 3\:\\T \\@P ^\\\\\\ @P  Fl\\\\\_@P @P OlT *\\:T I\\@P @@P @P ̨ %l\\:\\\\@P @P @P TN (T 6\ \f '\!@P 9:!5T :\:\:\:\T@P d̪ '\0\M:\~:̕ '\!\:@P \:\:\:\:\:\ @P 2 QT ?@P  3 ye@P T @::\ :\!:\:T &f   "@P \\:\N̴  "\T @P /\R\\\\@PET \\\\\ @Pp\\\\\\\@PT N (T  Ed d XlT @P < 1 Cl l Xl\R TF!\:@P\:̺ l,ܹ 1̯ l\̵ \̙ @Pl\h̏ l̋ l\!\N\T @PG\ l\\\T T@Prf (T\TR xT f@P  "\ El d̝ Xl\ = 1 Cl@P l Xl\R̻ \!\:Ti:@P l,ܺ 1 l\̉ \̷ l\h̭@P l̩ .l\!\N\TA\@PI l\\\\Tqf 'Tz@Pt@P z@P z@P z  3 yy@Pz@PzT1@P 4@P <@P @P\)@P #@P @P\O!@P c@P q@P\P@P @P\Q@P @P@P\T @P @P\f\:\:\:\:\:@P\:T d̊ 2 Q\?  3 y@P @P &@P 4@P B@P P@P g@P q@P @P 3@P r@P @P@P@P@PTN\f\~\\TTPLBATUDPQ8STP AMONTOADAYTOAYERTOCCSMVA{PGMIN OPENFL FILERRrCCSBLK RGETS \CCSCSTREADR CCSADD:UPDRECiPPUTS CLOSFLPGMOUTPLBATUD PLBLDSR F22 F LA CCS 3.0 SL-149,`  3 y@P@Pd@P4@P @P1@P2 ***** SCREEN EXCEEDS MAXIMUM ALLOWABLE SIZE *****@PL@PwLASCNFIL @PLASCNDSC  @P4  @P_  @Pd  @P @P  @P @P  @P @P!  @PL @P`  $  3 y@P @P  @P @P  @P @P  @PH @P\  @P @P  @P @P  @P @P  @PD @PX  @P @P  @P @P  W  3 y@P @P  @PEN@P@P @PP@P @P0@P@P@P! SCREEN FILE BUILD COMPLETE @P @P(@PSCREEN FILE BUILD LASCNFILRUN DATE: @P-/ @P9@P)@P0@P T, TL| " h fK 1TL| "\@P4d "TdT\`hT ,T3  3 y@P_\\Th\ ,\d d\@P ,\Td, "̦ Td4l\ ,\ d@P\d, "l\ ,\ p d\h*\ Ȉ% @Pf3Hhd\d  ̿ n̻ d1 !U@P A n !Gf5  Th\$f6f7 " @P.n̹n  d h̲ Ad 1TE44lݜ "a le@PYdTW2 ,T_l\2 ,\ f3TL44 !T4@P@P@P d@P2@P lT|$@P;@P l l\ l@P@Pl\! ,\T!000TL\d@P@PTTPLBLDSRPQ8STP PGMIN  CLEAR OPENFL*LAHEAD=CCSMVAEFWRITE\DISP dEDIT oGETS ICCSADWRITERvCCSBLKFILERR!  3 yPWTREADCLOSFLPGMOUTPLBLDSR P;LCCSSP F24 F LA CCS 3.0 SL-149@P@P@P@P@P@PABx@PLADLQMST LACOSIGN LAACCAGE  @PLAACTFIL LASUMH@PST LATAPARC LAINACCT @P@P @P@P FILE SPACE REPORT@P FILE MAXIMUM CURRENT AVAILABLE PCT SPACE @P6 NAME RECORDS RECORDS RECORDS AVAILABLE @P^ THIS FILE MUST BE COMPRESSED AND HISTORY MUST BE RUN ***** @P WARNING - THIS FILE SHOULD BE COMPRESSED *****  3 z@Pddd h h f 1 (݀hT@P - (hT@P dX#$ , (h\@PT%T@&d\-@ȍO \\\*\@@P>+l\-@O \оH\˾@ h \-@L@Pi\\~M\J@ "dTR9\Z: d  @PhT@P #1T\Z; l5h\@P #1\\R<l\Z> l΀h\@P 1\\\\\Z? l̵ h\@Pܯ (1\\Z@ l̢5h\@Pܜ (1\\RAdTZC d;hT@P 1\\\\TTM&!9\M!\ZF lЀ]h@P=\@P? #1\@P F@P>F@PFH@P3H@PHHCX/  3 z@P%L@P(L@PEL@PO\ZH l̳h\@P\ܭ #1\\RI3l\ZK l̘;h\@Pwܒ 1\\\\\\M!4\MȺ!TZN d]h@PT@P (1T \ZP lh\@P (1\\RQ@P@PT@P@P 2\RT\RU6T@P@P(1H1,////,52X,9A2,2X,1H-,2X,2(1A2,1H/),1A2,////)@P@P@P(/) @P@P   3 z-@P@P(//)@P@P@P@P(40A2)@P@P@P@P(31X,40A2)@P@P@P(5X,4A2,X,2(4X,F8.0),5X,F8.0,10X,F4.1,1H%)@P@P(36X,4A2,X,2(4X,F8.0),5X,F8.0,10X,F4.1,1H%) @P2@P3(X) @P5@P6(1H1) @P9TV  3 zAPLCCSSPPHFLOT "Q8STP :Q8QINIQ8QX Q8QENDFLOAT AMONTOADAYTOAYERTOETFCBOPENFLFILERRCLOSFLPGMOUTPLCCSSP P LCHUD2 F28 F LA CCS 3.0 SL-149@P@P ;@P >@P A @P C @P Jh@P N+50@P Y4@P \@P@P1@PE@PN  @P mLADLQMSTLAACTFILLAUPDREQ@P MOUNT TAPE LABELED: / / ENTER "OK" FOR READY ENTER "NX" FOR NEXT RECORD EN@P TER "EX" TO END t  3 zU@P OKEX@P 6NX@P z@P @P INCORRECT TAPE MOUNTED @P ACCOUNT=# NOT FOUND ON @P END OF HISTORY@P ' END OF REEL X MOUNT REEL X@P TAPE @P YES NO@P  @P \T] 7 8 9hhT . jTz h -hT@P }ؿ 1 hȸ Ah\@P ز 1 d ih\@P 1 hȝ Uh\@P ؗ 1T d h ,h h =fM 1 ,hT@P N @ d y @ " l An 1 1 l tn 1  dZ\@P N @ "Ta B @ lˤ D "Ta E  E\  E F ET@P !a G H  H I I : d  1d 5\a G H  Hid jd kd T 7 J @P L K J  > L     6   3 zi@P g  lp |d MT HI N M T\  O P O̬  /\I C  C I̙ @P T 1T  5 > ' Q܏\ 5 > ' R\ 7 J ' R z z z L  $\I@P H  HT !  H  H I I  T H 7 J S z z z Lm l\I E  E I !@P   d Ta @ d y\ m O  P O @ D "\a E  E@P  I̶   l d T  ?  ?\a T U  U?T  " \I E  E I@P >̌   T I E  E I I  lk  Vd  d = l W,Ih\@P j E  E I LT d XT X  c!>\  E2 Ed:\2 T { T,@P Ih T @P Y Z2 Y ZT62 { @ d y @ !i\  ?  ?ܨ̧ ! d T oz @P d hT {@P 1 l h\@P 1 l h\@P 2 lԀ h\@P 2 T T  U @P @P @P T 7 J [ z z z L d @P @P @P  q  3 z}@P @P TN y @ 7@P @P ^ @P \r T @\ @\6 @Th@P s .@P .(1H1,20A2,9X,26HTAPE HISTORY UPDATE REPORT,/,1X,20A2,14X,9HRUN DATE:,A2,1H/,A2,1H/,A2,@P Y/,1X,20A2,//,20X,14HACCOUNT NUMBER,8X,14HBORROWERS NAME,17X,12HDATE OF TAPE,5X,17HRECO@P RDS ADDED TO ,13HACTIVITY FILE,/) @P @P (19X,8A2,5X,15A2,5X,A2,1H/,A2,1H/,A2,19X,2A2) @P @P (//,50X,21H*** END OF REPORT ***) @P TPLCHUD2PQ8STP Q8QINI Q8QX Q8QEND MONTO cYERTO gPGMIN ]LAHEAD kOPENFL GETS CCSMVA CCSCST FWTREAD FREAD sPDISP {LINK 0READR ICCSAD uHEXDEC {WRITER CCSBLK FILERR CLOSFL "PGMOUT ,PLCHUD2 PLCLIUD F30 F LA CCS 3.0 SL-149@P9  3 z@P@P!@P# @P( @P+ @P2X  @PP@PLACLIENT  @P 01 02 03 04 05 06 07 08 09 10 11 12@P  @P @P  @P: @PN  @Py @P  @P @P  @P @P  u  3 z@P6 @PJ  @Pu @P  @P @P  @P @P  @P@P  @P 0J@PPhhhT T ȶ (T! "\ #@P{\$\%T h hT&  '\$@P& l\& l' 1T*  ) '\@P* "T]*+,,+lʀ)hT@P- l l\&̫ ̳ lܾ 1̫d/ l Cd0 l d1 lT1@P./.  Xl܋ 1 l 2 -l Xl\12*02 l @P= 2 -l' 1 Cl l̺ Xl\*0.. ̬ l 1T*0.*3@Ph.4lT5 l\*0!6!T0 Xlܼ 1\7!* 8!\@P59l l\*0%%\ Xlܗ 1\.%*:%\5;l d9  3 z@P'\*0%%\̴ Xl 1\.%*<%\5=l lTb*0!@P6!\̎ Xl 1\7!*>!Tm5?d0 l\*0%%T@Pz Xlܟ 1\.%*@%\5Al l\*0%%\@P? Xl' 1\.%*B%\5Cl l\*0!6!\̢ Xl@Pj 1T7!*D!\5El l\*0%%\0 Xlܳ 1@P\.%*F%T5Gl l\*0!6!T Xl܌ 1\7!@P*H!\5Il d'\*0%%\̲ Xl 1\.%* J%\@P5Kl lTo*0%%\̌ Xl 1\.%*L%\5 Md0@P l\*0%%\ Xlܡ 1\.%*N%T5\*>!6!\@PA*D!7!TOd 96 3 l  Ml\(T@Pl*8!6!\\7!*H!\*@%%\*F%.%\̹@Pl 96̷ 3̴ ḻ ̮ Ml\(\*:%%\\.%*@PJ%T*  2Tm* "@Ps@P@P@PT TTPLCLIUDPQ8STP AMONTOQADAYTOUAYERTOYCCSMVAlOPENFLeFILERRCCSADDHCCSCSTGETS CCSBLK6UPDRECCLOSFLPGMOUTPLCLIUD  3 z P7LCMPDQ F31 F LA CCS 3.0 SL-149@P@P@P@P@PLADLQMST  @PTT (TTT-ߘ 1\ T@P3\TPLCMPDQPQ8STP 6PGMIN  OPENFLFILERRPGMOUTCOMFILCLOSFL1PLCMPDQ PKLCMPSM F32 F LA CCS 3.0 SL-149@P@P@P@P@PLASUMHST  @PTT (TTT- 1\ T@PG\TPLCMPSM  3 zPQ8STP JPGMIN OPENFL#FILERR+PGMOUT1COMFIL3CLOSFLEPLCMPSM P`'LDACRT F34 F LA CCS 3.0 SL-149@P@P\@P\00@P\@P\ҁ@P\@P\ 01 %+199'+Y@P\ 0@P\mKB u0>@P]@P@P.@P3LADLQMST  @PBLADLYASN  @P\@PQ@P\0360.  3 z@P  @P  @P\w@P\@P\@P\@P\@P]TV\\\hTZ\ȸhTZSȪd@ hT3\Ȫ (T3\\\T@P]1B\Ț '\B\\\B\Ȍ '\B\\\T\\\\Ҝ@P]\\Ӝ dR '\3\\\ d\\Ŝ" ($\ d\\,\d\  , d\@P] \h\ \d\ހihT\@P]\\b ^o\w dT\\\x d\\\\\y d@P]\\\\\z d\\\\\{ d\\\\\| d \\@P^\\\}\ d\\\\\~ d\\\\\ h\_\\\@P^+T\֖X ̖W 2\*̿\h̺\hT]_\@P^V_\̭\h\S\_\̡h\\_\\ h\_\\\ h@P^\_\\\\\ h\_\\\\ h~\_\\\\ hr\_\@P^\\\ hf\_\\\\ hZ\_\\\\ hNT^Q_\\\\@P^ hA\_\\\T^,\Μ ̞\h)\\_\\^\\@P__\\hTS\\_\\\ "_  3 { @P]_@P]_@P]_@P]_@P]_@P]_@P]_@P]_@P]_@P]_@P]_@P]_@P^ _@P^ _@P^_@P^_@P_\h\S\_\\ "_ׄ\hӄ\ h\_\_\\ !q\h̾@P_F\ h\_\_\\̿ !\̫\ḩ h\_\_\\̩ !F ֤\@P_q 1n\d 9(\\\n\ل\hT_d\ l\-[d 9%@P_\nd_T\_ل\lT\_׬ 1nd 9%nl\]_L  3 {@P_T^\]Z\]\ ḽ\d_\_\Z_\\@P]_@P]_@P]_@P_\@P]t_@P_ l  TZ\\\ 'T](B]\\!T\ &\3]\\T] ]\;i@P`]\Z\ lR ]L@P].`@P]=`@P]K`@P]Y`@P]k`@P`T\\\TTPLDACRTPQ8STP `&FMRDEL] PGMIN ]CCSBLK` LAHEAD]OPENFL] FILERR_CLEAR ]0GETS ]MGETACF]CCSMVA_LFTND1^CCSCST_ ICALJL_PJULCAL_CCSPUT_PUTS _UPDREC_CLOSFL`PGMOUT`$PLDACRT P`LDACRT F43 F LA CCS 3.0 SL-149@Pq(  3 {1@P\@P\00@P\@P\ҁ@P\@P\ 01 %+199'+Y@P\ 0@P\mKB u0>@P]@P@P.@P3LADLQMST  @PBLADLYASN  @P\@PQ@P\0360@P  @P  @P\w20@P\=W  3 {E@P\@P\@P\@P]TV\\\hTZ\ȸhTZSȪd@ hT3\Ȫ (T3\\\T@P]1B\Ț '\B\\\B\Ȍ '\B\\\T\\\\Ҝ@P]\\Ӝ dR '\3\\\ d\\Ŝ" ($\ d\\,\d\  , d\@P] \h\ \d\ހihT\@P]\\b ^f\w hT^h\\\x h\^h\\\\y h@P]\^h\\\\z h\^h\\\\{ h{\^h\\\\| ho\^h\\@P^\\}\ hb\^h\\\\~ hV\^h\\\\ hJ\^h\\\T@P^+\X ̖W .\&\h$̾\h!T]^i\^h\̲\h\@P^VS\^h\̧h \\^h\@P^j\ h\^h\\\\ h\^h\\\\ h\^h\\\\ h\@P^^h\\\\ h\^h\\\\ h\^h\\\\ h\^h\\\@P^\ h\^h\\\\ hT^J^h\\\T^'ϔ\ ̓\d^h\@P^\^h\\^\\_\\lTS\\^h\\\ "_\l@P_\S\^h\\ "_ل\lՄ\ d^i\^i\^h\\ !qÄ\l̿\ @P_Al\^i\^h\\ !\̬\l̨ l\^i\^h\\̪ !F֤\ 1n@P_l\d 9(\\\n\ل\d^hT^hd\ l\-[d 9%\n@P_lT\^hل\lT\^h׬ 1nd 9%nl\]^h  3 {Y@P^g_@P_T^\]Z\]\ ḽ\d^i\^i\Z^h\\@P]_@P]_@P]_@P_\@P]t_@P_ l  TZ\\\ 'T](B]\\!T\ &\3]\\T] ]\;i@P`]\Z\ lR ]L@P].`@P]=`@P]K`@P]Y`@P]k`@P`T\\\TTPLDACRTPQ8STP `FMRDEL] PGMIN ]CCSBLK`LAHEAD]OPENFL] FILERR_CLEAR ]0GETS ]MGETACF]CCSMVA_LFTND1^CCSCST_ICALJL_PJULCAL_CCSPUT_PUTS _UPDREC_CLOSFL`PGMOUT`PLDACRT PLDAQEL F35 F LA CCS 3.0 SL-149+  3 {m@Px@Pt @PKLADLYASN  @PZLADAQUE  @P@P@@Pm@PxTiopq TTKr !<\-Zr !;TsrؘA !2@Pʔ Ĕ hh$h%hT-EErȳ !hhTKuro@P\Zuro \Kvro\ZwroTr\-r\TPLDAQELPQ8STP PGMIN yPGMOUTOPENFLGETS WRITERFILERRCLOSFLPLDAQEL P LDECMT F36 F LA CCS 3.0 SL-149@P@P3c@P:Y@P= @PB@PDd <  3 {@PG#'@PJ.@PK@P@PLADECTBL  @PCRDEADDSPTDUEXDB@P Y INPUT=@PCOPR@P-@P.@PKT /0 TT1 "T1TRk@Pk(39H DECISION TABLE MAINTENANCE PROGRAM IN )@P h\R\@P(38H INPUT CR/DE/AD/DS/PT/DU/EX TO EITHER,/,52H CREATE A COMPLETE TABLE, DELETE A TE@PST, ADD A TEST,/,50H DISPLAY A TEST, PRINT THE TABLE, DUMP THE TABLE,,/,16H END PROC@PESSING,/) @P. T34T5!65'78' w -dT29@P9  ܔ Ք  ǔ  @P: ̨ h l?@PETeZ)] d&hT  3 {@PU 1T@P](8HCOMMAND ,A2,23H NOT IN TABLE, REENTER.)@Pry\R,z0@Pz(51H CREATE FUNCTION WILL CLEAR YOUR CURRENT TABLE FILE,/,30H TYPE Y IF YOU WISH TO DO@P THAT,/)@PT5!65'8':;T11 "TFR2+@P(53H CREATE TABLE IN PROCESS, INPUT LU OF INPUT STREAM AS,/,19H 2 NUMERIC DIGITS) @P\R4!@P(57H IF LU 04 ENTERED, CREATION WILL BE VIA ADD TEST DIALOG ,/)@P\5!65+78+?dD=H$>d< d@-6 f d d @PI2d _T<AA  d1 f 1TW1T1@Pt "Ta1TZFhTS@PT[@P(3X,A2,30H TABLE HAS BEEN FRESHLY LOADED) @P@P@PT99 " @P!@PT9 "T1̟ " l nܕ 1\1\1̇ "@P\1  3 {@P(@P\RW$@P(63H DISPLAY TEST IN PROCESS. ENTER 3 DIGIT TEST NUMBER FOR DISPLAY,/)@P T5!65$B8%=HdD$?$>h"H$DdCTC99 @P 4T}Z] CTCT@P C(21H ERROR IN LINE NUMBER,I4,14H NOT IN TABLE) @P [&@P/ ]@P ]TE\Ra g@P g(36H TABLE WAS PRINTED ON LINE PRINTER. ) @P |@P6 ~@P ~\Rd K@P (63H DUMP TABLE IN PROCESS. TABLE WILL BE DUMPED IN FORM COMPATIBLE,/,72H WITH CREAT@P E FUNCTION. INPUT LU OF OUTPUT STREAM AS 2 NUMERIC DIGITS ,/)@P T 5!65)78)?dD=H$>dFTF99  T 7Zj T@P =FT @@P (20H TABLE DUMPED TO LU ,I3)@P u@P   3 {@P TU@P_ @P \Rn @P (50HFILE LADECTBL NOT DEFINED. USE UTIL AND TRY AGAIN.) @P 2@P 4@P 4@P 4\Zq =\1\@P =(38HFILE LADECTBL ERROR IN REMOVING ERROR-,Z4)@P T@P[ V@P V\Zt _\A\@P _(24HSUBROUTINE LDTABL ERROR-,Z4)@P o~@Pw p@P p@P pT Zw |T 1T @P |(45HFILE LADECTBL ERROR IN STORING RECORD. ERROR-,Z4) @P V@P G  3 {@P \Zz \9\@P (36H NO DECISION TABLE IN SYSTEM, ERROR-,Z4)@P 6@P @P \Z} \9\@P (24HSUBROUTINE DELDT1 ERROR-,Z4)@P \Z \9\@P (25H SUBROUTINE DPTDT1 ERROR-,Z4) @P . TGHJT TPLDECMTPQ8STP Q8QINI qQ8QX wQ8QEND zPGMIN LPGMOUT OPENFLiCLOSFLyDEBDT1 WTREAD LRTVD1 CLEAR LDTDT1RPUTS nPDELDT1ADDDT1DSPDT1 +PRTDT1 ^DPTDT1 PLDECMT PLDHUPD F37 F LA CCS 3.0 SL-149@P@P4Ё@P<@P> @PBS BT@PL Z;  3 {@PO@PQUDg@PX@PcLAADDACT  @PrLATAPARC  @PLASUMHST  @PLADLQMST  @P@P.@PB@P A  @P @P  @P + @P ?  @P j @P/@P00000000000000@P$0000000010000000000000@P  $  3 {@P@P 03_@P U h@P6)Ge@P @PXT 012 T | whTc3 (Tc430\r3ȳ '\@Pr430\33ȥ '\430\K3ȗ '\430T5T@P3367  *\c830 d zd9 d:" $<@Pd; $>d= {  ? h7T 2@PAA  d h"T2B BT3; 3̐C̊3 5@P/Dl @P3TtE30̞ h\2B B\K 3Fڬ֤7 '\@P^E30; h\2B B\  3̷&̲ܜ!̭ >Gl @PHl\rE30T @IJI ޜ dK h h @P hT@P @PA A I , qـ h\@PLLA aɀ hŀ h h̽ h\;@P@P̲ ḫ h̪ h ̦hT;  3 | @P @P1̙ h̕hK h h\@P$;@P'A̚  h h h\;@P< @P? 2T;M MAA l l h̾ h̺ h\@Pe @PhA L dN h hh\;@P @PA , h hހ h ڀhT;@P@P΀ hʀh ƀ h\ @P;@Pܻ 1K 1@P@PTK33 (T4O30; d2\2\3 '\cO 30@PHT3;3 '\B30 v/  "TZ  % dP@P {hT@P 1\T+@P%(1H1,4X,20A2,4X,29HACTIVE ACCOUNTS UPDATED FROM ,14HHISTORY SYSTEM,28X,6HPAGE: ,I3)  3 |!@PO\Z i l̼ {h\@P\ܶ (1\ w\ x\ y\@Pi(1H ,4X,20A2,15X,8HAS OF: ,A2,1H/,A2,1H/,A2) @P\Z  )l̋ {h\@PP <1\ @P(1H ,4X,20A2,/) @PT R ;@P(1H ,5X,14HACCOUNT NUMBER,10X,14HBORROWERS NAME,22X,13HFORMER STATUS,8X,13HINACTIVE DA@PTE,3X,17HTAPE ARCHIVE DATE,/) @P d/T QTB B\<R SRHT;@ >T;@  T\;@P U VD \ @ 6\ @ WTZ 5 dP hT@P- <1T#@P5(1H ,4X,60A2) @P<ܣT$))@PE@P E@PE@PE:@PI@PI z  lTF):AA T ):LW  3 |5@Pf@Pf@Pf 1\R q@Pq(1H ) @Pt\Z  l̩(h\@Pܣ 1\ @P(1H ,4X,46HTOTAL NUMBER OF ACCOUNTS UPDATED FROM SUMHIST ,6A2)@PTR @P(1H ,/,44X,23H**** END OF REPORT ****)@P v DT333 'T4305 d d d: f2 1Tl33@P &\430T3;37 1\@30@P @P: @Pb @P @P @P @P @P \3@P w  3 |I@P \33@P@P\3@P@P\3@Pb@Pz@PTTPLDHUPDPQ8STP Q8QINIQ8QX +Q8QEND3FMRDELhPGMIN YLAHEADdOPENFLFILERRCCSBLKGETS CCSCSTRCCSMVA_READR PUPDRECDELRECIDATVREDIT CCSADD>CLOSFLCOMFILPGMOUTPLDHUPD PLFTND1 F42 F LA CCS 3.0 SL-149@P@P@P@P@P@P99@P h h6 fT k h dTh h  3 |]@P0!(TȿhȢ  (hT@PG (h ș j (hȒjت@PZT  \Ș #T d\ 6@P ll@PHTT h\h hdPLFTND1PQ8PKUPQ8PREPLRTVD1GTSDT1&GPMDT14TVPDT1DTRHDT1[VALDT1pP P-LLTBLD F44 F LA CCS 3.0 SL-1@P@P@PP@P(@P)3yd 0@P~Q<"@P0,/@PU@P@P 2@P 1  3 |q@P@P2000*'&@P @P@P@P@PE  @Pp  @P @P  @P @P  @P  @P- @PA  @Pl  @Pq  @P @P @P  3 |@P@P*@P3LALTRDSC  @PBLARPTTBL  @PQLALTRFIL  @P`LAUTIFIL  @PoA*A, ,@Pu @Px@**1 @P|D=F @PHDR1HDR2HDR3@PEND LTR1@PLTR296@P9M@P99*@P$@P** @P @P2@P  3 |@PN@P @P1@P@P@PEXPECTED "*A," - FOUND " ". @PFOUND AN ILLEGAL BLANK IN PARAMETER " ". @PEXPECTED LETTER NUMBER - FOUND A "COMMA". @PDUPLICATE KEY - LETTER NUMBER XX ALEADY PRESENT @P'EXPECTED "END" FOUND " ". @P5FORMAT MISSING "=" SIGN @PAFIELD DESCRIPTION EXCEEDS LIMIT OF 9. @PTEXPECTED "F" - FOUND " ". @PaEXPECTED NUMBER WITH RANGE OF 01-99 FOUND " ". @PyEXCEEDED PARAMETER LIMIT ON PARAMETER # . @PLINE NUMBER IN FIELD DESCRIPTION EXCEEDS 24.@PCOLUMN NUMBER PLUS FIELD LENGTH EXCEEDS 54. @PILLEGAL CHARACTER - FOUND " ".@PILLEGAL USE OF PARAM 5. TYPE FIELD DOES NOT = A.@PUNABLE TO LOCATE FIELD NAME " " IN LARPTTBL   3 |@PUNABLE TO LOCATE LINE CONTROL OR CONTROL INVALID. @PNUMBER OF LETTERS EXCEED 50 @P!NUMBER OF LINES EXCEED 24 @P.MAX. LINE NUMBER FIELD EXCEEDS LETTER SIZE. @PDUNABLE TO LOCATE LTRX IN THE LAUTIFIL @PW LETTER FILE BUILD @PfPAGE@PhAS OF:@Pk**2 @PqT Y @P00 @P @PTT3ȭ (T3\BȞ '\BTuuh@P-\QȈ '\Q\` '\`TE\m d T@PX '\ ddxd dddddddpd@Prd \T\udTT\@P\\u\W\fkp4d, dd@Pp4d,dlp4d,dld 0h 0Ȉdm 0h 0Ȉd@P l dTl Trl 1\l 7 dT@P /TTL\\u\hTu al\  3 |@P Z\\̨ %\d\ Ul @P l\\ lT p G@P \\lT  dT .T 6d\ \@P  l\\\̆ !@Pa @P ̇lT 8\'\' l\\\ d\@P  d hT  94 1 r BHlT@P A 1\T \ edT T  ;\@P l=T \d\ l\\d\@P a\a l\\\ d\TV @P ¤  (T  dddT ~ @P B 2̝lT I dT \T dT vd\@P T\Tl\\̿ \ d\@P C Sl\\ d d T  d} # )@P n1\̞l\5ܥ dT T T  d@P \ l̲l\  94̶ 1J̲ ̫t ̤o @P ̝| ̖ ^̒ X̌ ܔr T \@P \̧ ̢ ̑ ̘ ̇ ̐  @P     " \l dT @P E dd T ] ̋   \ 1\qT;  3 |@P p 14T BT d\q\@P \ dT T T t |d  d@P d-\o olT @Td\$͌ll l@P l l d \  l\ d 7"\\@P l\,Ȍd l\ @P 0@P  0@P  0@P ) 0@P 0 "T < @P =@P =  2  2     @P h  ̽  ̺ l̶ r  @P @P ̺  dT  @P @P ̓ ̠   6̒  2 3  @P ɔ      @P@P%  3 |@P;@PJ@Pk@P @P @P T "p4d\l" : '0WV lܺ " "@P  d T  œ "l\ d̼d @P8 "̱ " l\ \ G̑d @Pc "l "ldl̼d 7"̒ l\  lܤ̃ @Pl\ TO@P @P @P̏ ܔo  d  l d T 7 (@P @P d!@P @P |  l l\  @P l@P @PT "p4d\,d l l\  Gܽ l\t  3 |@P@P q@P @P2""l\l\$l̐ lT  G܌ l\@PA@P G@PG̽ ` d \  d 7" @P /`@P` l\@P l@P l@P .l@P 3l@P 5l@P sl@P l@P l@P l@P l@P l  3 }@PlT  0l\y\y lR@P @P @P@P\\F@P @P\\\3@P @P\\'@P @P\T/@P H@P R@P ]@P\̮ 0l\\̝ l@P @Pd dT T @P <@P @P+B%  3 }%@P  2 @P @P ! 2 @P 6@PTml\Al\\@P @P dp\ lT  2:T  !@P &B@PBT   ddd\\Wd wd@Pm\v\v "`\p d\s\!@P'\'l\;\;̐  2lld <\@P\:̙l\l\ \  " @Pl Ul\\.d\\ Kd@P\4ܔr . 9"M 4"6 2J y @PDۜ ^ .\dd dl i M s@Po M }  ̒l M̌ l\% ll@Pp  ; d \  2 0" d l@P\~  $ l\  l\ ̼ l\@Pr      M&̒l 6"@PM\z dl l 2 M\yW  3 }9@PFll\\c d\\P! l l@Pq!d\l\l 2 UT @P2\Qy\[d\\Ul\!@P\!ܵ\5\\ul\\\@P\\u\W\fkp4d,d@Pdp4d,dlp4d,dld 0d 0dm 0l 0 Ȍdl@PH d\l h\Zrl 2K\Ll~d@Ps\o\o\\2\*u\"h\u@Pl\@\@ "\E \m@P  "UTu}\*d\l\\@P@P @P\E\m\i 2'\@P \E\ET 2I\\@PK\g\_Ekd\\\G̚@Pv̔̎ 2\G\*m\"mG\G @P2\Gt\V\\ml\ \@P \5\\D d\\\@PD l\D  kd l\\ T@P"\\TTI  3 }MPLLTBLDPQ8STP ,FMRDEL+PGMIN OPENFL FILERR3LAHEAD'CCSBLKGETS 'CCSMVAFWRITEDISP CCSCSTELTRDTE QCCSGET PPCCSPUTREADR pICCSADWRITERLTPRNTUPDREC8CLOSFL PGMOUT*PLLTBLD PLLTPRT F45 F LA CCS 3.0 SL-149@P@P@P < @PP .A@PB)(&'i"=630Nlj@P%s2@P+@P. @P8 : @P>@P @P  @P  @P @P  3 }a@P  @P! @P5 @PS @Pg  @P @P  @P @P  @P @P$  @PO @Pc  @P @P  @P @P  @P @P  @PK  3 }u@P_  @P @P  @P @P  @P @P  @PG @P[  @P @P @P @P   @P > @P R  @P } @P  @P @P  @P \  3 }@P   @P : @P N  @P y @P  @P @P  @P @P  @P 6 @P J  @P u @P  @P @P  @P @P @P @P 3@P TŬ  3 }@P l  @P @P  @P LACOSIGN  @P LADLQMST  @P LALTRFIL  @P LATRNSFL  @P LAUTIFIL  @P A*@B@P " ,,@P 0::@P 5D $@P ? H@P >F=@P T @ d 8 d 9 d :T $ Ȟ (T \ < ȏ @Pi'\ \  d " '\ \  d '\  @P\ T  '\  d Zd d md d T U 0 ! c\ U 0 !@P cTT S\ \:dT  K _ d T "@Pd*\ UX U* c W  I T T  T  ;  @P 1T\ \\/\ l\ Tj Ϭל ɬ@P@  1"\ TTdT  K _ dT "d@Pk*T U 0 ! c\ U  U* c W   I \ \ U'  3 }@P c\ U  U  c dT <   / ; T  T @P ̕ b1TS  \ U  cT < l f ;@Pܷ 1TT < ̵ 2vTm U  c\ TO \  d \@P < ̐ ̉ '\ \   M T   "@PB \  T   d .T T  ;  T  @Pm 1fT T\\  \lT_ S _ d Tg@Pl\ T _ d\l\  K _ d\T \ !\!d\@P T _ d\ l\  K _ d\TN   \  T:  @P \  TY $v  ;  T  1 Tq  @P\ I\ I\I d [d \d `d ld ^d l d ]T@PD d\v ` > + l\v ` I  ld QT@Pov ` ] l̽ lܶ 1̴l\T   T  ;  @P 1T \  \\   9 34 @P1`\ \ n \ } \   \ Tn @PTD  \ n \ \ } \  \! @P\"  \  x\ #T  T  ;  1T @PF\  \\ $%d$ hkT  n 2h`@Pq\  } T  PhR\   dhH\  \   h;\  @P\\ SdT  K _ dT\ 6 d 2>l\@P  K _ d\  3 }@P\'T 8\''l\  K _ d\\(TgTj@P O\ ))̢ \ &l\  K _ d\ l d Ty@P'\g 1+  d*\ l*++ d\ "  1 @PR3 l l l\ n , & 1T n   d 4T 4 "@P}  l 1 ly̱ d,\ n,g,̦ d-l =\ n "̠@P ܓ\ n, ,ۄ lMll >\ n "   d 3@P d\ n " ֜lҜ ld 4Tm n- 3 4 3 l\g,@P 4, lT$(lT  K _ dT\\ R\  G 1l@P)\  K _ d\\( \ G G l\   Yd\ @PT K _ d\\(\ }  G nl\  K _ d\Tx . ". \(T@P   G l\  K _ d\T(\  G̘  ̢ d\ @PlT  K _ dT\\ 6l\  K _ d\\0 Qd ` @Pd1 d / dd a $ d2 $ d3d4Tov ` D @P 6 d$ H!fTv `**  ̴ܷd -ܰܯ\v `* l@P+̺ d\Nv a - - l̜"̘n\v `*Δ  v̅l d1̒ l@PV\'v a - -̇l `\v `*̮ d5\v `*̥d L l\v `*̛ d /  @P$ 2 l\ 4 4  4l" l l\  l d@P\g,,҄, l\ L2$*  ܘܗ\Dv `* l1 @P̊ a d -L `$V 2 l $ d6 " `@PHd78d Y $ d2Hld d  5  7 ^1$  3 ~@P-   T 82̛ ̗ T  "\ 2@PX\% \ !t\*\i - - \ 2 \@P2R\\ "929\  d$\S$ "  1@P d A2l\ 72  d- d\$-- \  -2 -@P 2 l $ l $  d3:R\d /" 9 &@P  Rd 6lll'd\  K _ d\l2 l\P@P/; G;Bl\u  K _ d\uܗ 1\I\2 6`l\W @PZ K _ d\W\<  l G d*\ R 1+  d$\@P (\ l$+*+ dl\Z$ "  1nj l\@P*ܻܺ\)*)l\  K _ d\̡ l\"/. ". @P\(\W/*l\  K _ d\\= "̣ (\(\y@P <** d\l='d\  K _ d\\i\R 6@P1\Jj * Hl\o  K _ d\o@P/J@PJ@P[J@PJWl\` S _ d\`dl\S T _ d\S l\F  K _ d\F@P q@PMq@P[qJ  3 ~@Pq@P q@P!q@P+q@Pwq@Pq@Pq@PHq@Pq\p $\l <\h \d \` T@Pb@Pp@P@P@P@PTTPLLTPRTPQ8STP ADAYTOKAMONTOFAYERTOPPGMIN ?OPENFLFILERRBWTREADCCSBLKCCSMVAFWRITEDISP READR *GETS PCCSCSTCLOSFLLTRDTECCSGETEDIT 8IDATVRIPGMOUTPLLTPRT P&LLTSTA F46 F LA CCS 3.0 SL-149z  3 ~)@P@P!c@P!e()QE @P!o@P!sLT2@P!vd@P!|@P!tB @P!v@P!@PLATRNSFL  @P@P01@P#@P @P 000000@P@P000000@P@P  3 ~=@P@P @P 2@P ]@P q@P000000@P" @P$@PO@Pb@P@P@P@P@P @P@PJ@P^@P@P@  3 ~Q@P@P@P@P@PF@PZ@P@P@P@P@P@P@PB@PV@P@P@P@P@P@P  3 ~e@P>@PR@P}@P@P@P@P@P@P:@PN@Py@P@P@P@P@P @P 6@P J@P u@P j~  3 ~y@P @P @P @P @P 2@P F@P q@P @P @P @P @P @P .@P B@P m@P @P @P @P @P 91  3!~@P *@P >@P i@P }@P @P @P @P @P &@P :@P e@P y@P @P @P @P @P"@P6@Pa@Pu  3!~@P@P@P@P@P@P2@P]@Pq@P@P@P@P@P@P.@PY@Pm@P@P@P@P֖  3!~@P@P*@PU@Pi@P@P@P@P@P@P&@PQ@Pe@P@P@P@P@P@P"@PM@PaI  3!~@P@P@P@P@P @P@PI@P]@P@P@P@P@P@P@PE@PY@P@P@P@Ps  3!~@P@P@PA@PU@P@P@P@P@P@P@P=@PQ@P|@P@P@P@P@P@P9@PMB  3!~@Px@P@P@P@P@P @P5@PI@Pt@P@P@P@P@P@P1@PE@Pp@P@P@Pb  3!@P@P@P-@PA@Pl@P@P@P@P@P@P)@P=@Ph@P|  @P @P  @P @P  @P% @P9  Dy  3!@Pd @Px @P$@P- @Pp@P!]@P @P!**TOTALS@P!LAUTIFIL  @P!LTR1@P!000000@P COLLECTOR LETTER STATISTICS @P PAGE: @P @P AS OF :  @P @P @P  @P> @PR   3!-@PU LETTERS REQUESTED  @P @P @P NAME  @P @P @P COID  @P @P @Pq TOTALS  @P @P @P! LTR1 RECORD NOT FOUND  @P!F @P!Z @P!T!_!`!aTCT!b (T!c!b!dT!e!f!e\!g!e !c!e\@P!!h!e!c!eTC!i\ !!bȞ &\!!c!b!_T !!bȏȉ @P!!b '\!!l!b!_!\  !!b!k!j '\!!l!b!_ @P" d!m  d!n  d!qT !n!o!!o!r!r u\ !n!o"!o!r iT! @P"4!n!o!q!o\ !n!o!p!oɀ h hT*o  3! A@P"H 1 !sG ݔ" @ ḽ  l̨  l\ !n!o!!o!r̲ (\@P"s !n!o"!o!r̦ \ !n!o!q!o\ !n!o!p!o!m hh\@P" 21 d!uTF!vTFF!b!b!w#h!k +T!!x !b!_@P" d!]d!y l"#b̿ $!id!z̹ $!|d!{ hpT"F#J!o!o!r!r u@P" )h_\F#J!o"!o!r f )hPT"2F#J!o !p!oT"E !} c!}!R !N h8\F@P##J!f!f!r #  d̰ h!\F#J!f!f̦ h\F#J!f!f  d!~!u@P#@9 h @P#Kl 2,ьh 2,͌h  n!^!mg@P#b!] "̷d l! l˜; 2,hnܽ l̹! lޜ@P#< 2,h쨆 6nܢ l˜6컎lܸ l!;̰  d!n d!~ 2,@P#hT@P#T"!p!r!r T""!p 2$!md#Jf 21p@P#  $!t d!,d! "ll"$  dɜ I\@P$\!p!r̪ \"!p\!p!o!!o!u , d!n\!!!n!@P$@ l$Ud# B,MhT-@P$O!#$%T 1T".!T#!f!!fT! !!b!b (T"!!l!b!_ \ @P$z!p!.!o!̱ #̮d!̫ 2 l d!~!  l 2$!md#Jd\!o@P$.!n!o!u 11hT#@P$! d!nT#!!n!r!r \"!!n 1 lT$_!!c!f. !n!f$@P$d#T$L-.!#$%T$Tܪ̧  !{T$[w! l!!1̕  l̐ 6h\  3! U@P% ! d!q\!!q!r̪ \"!!q 1\!!c!fq!n!f!m!u 1-T@P%8$ 6! d!nT$!!n!r!r \"!!n 1 lT$!!c!fq!n!f@P%c%qd#T$-q!#$%T$ "!l!"&Z̰  d̪ J \@P%\!p!r̰ \"!p\!p!!!o̊  l\!!!n!  l̆d!q@P%  l%l B,Mh\-@P%!#$%\!n 1T$.!T%\!f!!fT$g !!b!b (T$q!!l!b!_ \ @P%!p!.!o! d!~!u!  l 2$!md#Jd\!o.!n!ohT@P&%8@P& ! lT%?!!q!r!r \"!!n!q 1̾  l\!!c!f. !n!f&W@P&Kd#T%h-.!#$%T%pܯ̬ "#T%w! l̔!2̛  d!n̕ 6h\@P&w! l\!!q!r̪ T%"!!qܪ 1\!!c!fq!n!f!mT& 6! l@P&T&$!!n!r!r \"!!nܹ 1!u  l\!!c!fq!n!f&d#T@P&&N-q!#$% T&V@P!&@P!&@P!&@P!&@P&&l\-!!#$%\@P!&@P"&  3! i@P"&@P#&@P$w&@P%u&@P&T!b@P!&@P&TTPLLTSTAPQ8STP &PGMIN !LAHEAD!OPENFL!FILERR%CCSMVA&EDIT !READR %CCSCST&DECHEX#CCSBLK&bGETS "HEXDEC&FWRITE&PDISP &CLOSFL&PGMOUT&PLLTSTA P0LMHUPD F49 F LA CCS 3.0 SL-149@P@P@P (@Pd @P@P @P@P2mo7  3! }@P @P.@P@P @P1@PX@Pg@P@P@P@P@P@P@P@P"HDR0RSW1@P  @P @P  @PB @PV  N  3! @P @P  @P @P  @P @P  @P> @PR  @P} @P  @P @P  @P @P  @P: @PN  @Py @P  @P @P   3!@P @P  @P6 @PJ  @Pu @P  @P @P@P@PRSW@P@P@P@PRELEASED SATISFIED WRITTEN-OFF @P"LAINACCT  @PILADLQMST  @PpLACOSIGN  @PLAACTFIL  @PLASUMHST  @PLATAPARC  E  3!@P LAUTIFIL  @P-3qw@P7}hZ @PA)@P&@P "RSW1" RECORD NOT PRESENT IN LAUTIFIL @P*@P VALUES IN "RSW1" RECORD -- NOT NUMERIC. @P&END OF HISTORY@P2@PJ@P END-OF-TAPE -- MOUNT ANOTHER REEL. CARRIAGE RETURN WHEN READY. READY @PT T "ȿ (T"T\1IȰ *\IT \@P+\Xpȟ ,\p\ \1\\Ȍ /\\ \1\X \\@PV 1\\ \1\X\\\ 1\\ \1@P\X\\\T   1T \ \1T'X\\\@PT d#T"̝Ҝ̘ )\ \ ,1hT@P 1\$Ϭ .T\ d f ,@P d lhT % 94 1\Tv@P & $ˎn ڬ$n Ь$췎n 1ܯ 1\K  3!@P QdddTdTdTT d@P |d d~T ϤxdTz  T@P \\\TA@P (1H0,9X,6HTOTALS,//,12X,13HRELEASED ,I5,/,12X,13HSATISFIED ,I5,/,12X,13HWRITTEN@P -OFF ,I5,//,7X,18HMOVED TO HISTORY ,I5) @P T oT s& d lT\̂ (T" @P #TK T  2 \"\\K@P FT  d d J 1 l dJfR 1T1@P qS̹̳̿ '\IT \ l̺췞 @P ܳ 1T dl !\T  *T "T@P jd$d %\dі " dJfRfbfZfjfs @P 1 T n1S ̶ +̯Ҝ +̨ '\Ip@P   + ,dd d6h@h6h ,hT @P D@P G 1dddd %ެlT ,1 (T I@P r(T[ 13\T [ '\\@P T  '\ dT  7\Xc̥,@P ̟&̙ '\p lT cX (T lpT @K@P ddshT @P k  '\hT K  3!@P  AЀh\@P ,̲ '\d\Kk̷h\K@P G̬l! d̡ d ^dT  l̐$ !#@P r  l |l\|T tϤQҜK (T @P  dT| @P (A2,1H/,A2,1H/,A2)@P lf̮ l 1T T ̴ '\*T _ \K@P \\KtT tt̊ '\T  @P  (T " T z[ 8 dDhT @P . 1\T @P 8(1H1,20A2,8X,27HACCOUNT MOVEMENT TO HISTORY,42X,5HPAGE ,I3) @P V\z] lȀXh\@P c 1 dh\@P q 1 ḽlh\@P ~ܧ 1\\\\@P (1X,20A2,12X,10HRUN DATE: ,A2,1H/,A2,1H/,A2,/,1X,20A2,9X,15HAS OF: RELEASED,I3,17H DAY@P S, SATISFIED ,I3,19H DAYS, WRITTEN-OFF ,I3,5H DAYS,/,1H0,15X,7HACCOUNT,9X,9HBORROWERS,@P 24X,8HINACTIVE,9X,4HDATE,5X,14HDATE LOST WITH,/,16X,6HNUMBER,10X,4HNAME,30X,6HSTATUS,8@P X,28HINACTIVE TAPE ARCHIVE DATA,/)@P#P  3!@P !@P!T zb s dh T ,@P3 1 lh\@P@ 1 l $ьh\@PP 1 lӀh\@P] 1 d{h\@Pk 1T 6@Ps(11X,8A2,4X,R1,14A2,A1,3X,6A2,5X,A2,1H/,A2,1H/,A2,4X,4A2) @P̎  d@P @P "T  (T " d. d0 d f 1T @P" '\"T Τ 1\@P ~@PdTTTdҜT \T@P #l\\\lլTTPLMHUPDPQ8STP /Q8QINI$Q8QX 1Q8QENDqAMONTO TADAYTO ZAYERTO _STATITPGMIN OPENFLFILERRPGMOUT-CLOSFLREADR PCCSMVA WTREAD CCSGET GICALJL ICCSAD CCSBLK GETS TAPMOTCCSCST DELREC UPDREC WRITER ENCODE COMFILPFWRITEDISP PLMHUPD/  3!  P ,LNMCHG F50 F LA CCS 3.0 SL-149@P@P}@P @P @P@PLADLQMST  @PLAADDACT  @P@P @PTmyz{T | (T}|y\| '\}|ytT #~|@Pɘi &\|y`T#-- T#qTq|ȡ &\@P|y?T#ȗ \\T|| &\|@P yTTq| 1T|yT|\ |TTPLNMCHGPQ8STP +PGMIN OPENFLFILERR GETS CCSGETCCSMVAREADR CCSCSTDELRECCCSBLK WRITER CLOSFL "PGMOUT )PLNMCHG PIQ8QBDS F53 F LA CCS 3.0 SL-149@P0LAUTIFIL  @P0LADLQMST  *P  3!@P0LARPTTBL  @P0-LARPTPGM  @P0LAPRCWRK @P2PRFLP000LA @PJ$$PGMNAM$$  @P{LRPE00LRPP00LRP000@PT Th2 )T2T-Th)˨ +\2T@Ph\-d\h h fgذ 1Th21 \ȗ '\@PE\-d\ڜ *\\\-\\ '\@Pp\-̪hY̦hV (THQ dT -TTT-@PT\Ṭ *\\\-\d}dT@PYJ & d܀C@P\Yq{ڜޜ # l*TYq # l\Yq~Ϭޜ@P"ʬ # l \Yq̻ / lTJTYT-\Y dd\@P*̝ '\\-T *\\\- d@PUT\d5T>2 '\>\-TPA '\A\-\@PP̹̳ -TATPT-\P d 4L@PdHdDdd !  !  :  4ʔ  3!m@P  1T l fOܸ 1 d\TPLPGCT1PQ8STP PGMIN OPENFLqFILERRCHAIN READR CLOSFLDELETE1CCSMVAUPDRECVDELRECGETS 8RENAMEaPGMOUTPLPGCT1 PLPGCT2 F55 F LA CCS 3.0 SL-149@Pe@Pa @PZRPTG@PMNUPRO @P@P LAUTIFIL  @PeT\]^ hT ` )T a`\TT0Z`ۨܘ +\ c`\@PT`\Ȥ hT0` h\`ȹ \TTPLPGCT2PQ8STP PGMIN fOPENFLnFILERRvCHAIN |READR CLOSFLUPDRECPGMOUTPLPGCT2 PI`LPGEN0 F56 F LA CCS 3.0 SL-149@P@PV YT 4.@P# PLEASE NOTE ANY ERROR MESSAGES DISPLAYED ABOVE.   3!@P=PRESS CARRIAGE RETURN WHEN READY TO CONTINUE @PRPTG,@POPENFLGETS PUTS CLOSFLLOKFILUPDRECCLOSFLLAUTIFIL@PMNUPRO @PgT1TU 3TK00 (T0V3\c0 '\V0\@P3{ '\13V\3 1'\V33\- '\13-V \@P0≮ '\<0V3\1"0̪ '\"V0T0WqX@PYTxZ~Tޜzڜ|TԜ00d08d@Pd0d0[ddd3TK00 !c8d0 d@P>d1T`\0d`dad0b dc 0dd de1T^`_^;T`@P0i !"T|-0_0\_0*\<0`$\"`0\0`\-a@P\13b T3c8@P@P@P@P3\#c\1=d10^ @Pq@P3\1eT3K\c03\{0\\3\103\ dT 0ff00 f@P 1T33\<3\1"T\3K 'Tr13f3\c &\@Pf0\{0 &\f0\0 '\-f0x\3 1'\<f3kX  3!@Pl\p1Jl\s1Vl t\|@PXblh\!nl\T1{lO\1@PdB\1l6\1l* d8@P@PlHPLPGEN3PPUTS CCSBLKCCSMVAoCCSCSTASCBINBINASCCCSPUTP U  3!%q PI}LPGLST F59 F LA CCS 3.0 SL-149@P@P(@P@Pvw D@P ")@P @PLPGGEN REPORT GENERATOR DATA NAME LIST @P @P @P STARTING DATA EDIT DEC SUB S@PTK\K ddd3T{3̗Ԝ̐ "- Ք@Pi "ܹT^_dC dd df B1T@PTl lJn B1l ln B1l  l@Pn B1lTl lnܫ 71l lGnܜ 71@Pl\ d0d0d0d0 d0 d0 d0 dT=@PTB\\\\\\ d d d @P@f 1 Ml 1l lT l l 1Qd%@Pi@Pi@Pi@PiT8@Pbp@P1p\;@P]u@PuHlPLPGLSTx  3!'PAMONTO.ADAYTO8AYERTO3BINASCsREADR CCSMVAQCCSGETCCSPUTGETS RFWRITEDISP CCSBLKFILERRjP PLPGLTB F60 F LA CCS 3.0 SL-149@P@P(@P@Pvw D@P ")@P .@P@PLAUTIFIL  @PLARPTTBL  @P"@P:@PTHIS IS A MASTER CONSOLE REQUEST ONLY  @P JOB ABORTED @POPENFLGETS PUTS CLOSFLLOKFILUPDRECCLOSFLLAUTIFIL@PLPGLTB REPORT GENERATOR DATA NAME LIST @P @P  3!(@P STARTING DATA EDIT DEC SUB S@P%UB SUB SUB SUB @P1 NAME POSITION LENGTH TYPE CODE POS DESCRIPTION NAME1 NA@P\ME2 NAME3 NAME4 NAME5@PHDR1HDR2HDR3@P  @P PAGE 01 @P1  @P\ DATE RUN MM/DD/@PpYY  @P @P  @PTV T" "\: "T"\Ȼ "T@P\\"\ȩ " h]f3ء 1\"\ȓ " hf@P,u، 1 :h dh dm dp d dTT4\4@PW dddT: " " "@P ܱThd, dd dfp B1TqiT@Pl l3n B1l lun B1l ln B1@PlTql lnܫ 71l l0nܜ 71l\@Pq ddqdrdsdudvdydzTJTOb*  3!)@P.q\\q\\q\\q d d dfp@PY 1 Ml 1l lTq l l 1^d%@P|@P|T&@P@P\ @P@P@P&@P\@Pp@P\@P@PTRS\RS@Pk@Pu@PT"\:TTPLPGLTBPQ8STP AMONTO9ADAYTOCAYERTO>PGMIN OPENFLREADR CCSMVAdCCSGET&CCSPUT+GETS _BINASCFWRITEDISP PCCSBLKFILERR}WTREADCLOSFLPGMOUT  3!*PLPGLTB PILPGN2E F61 F LA CCS 3.0 SL-149@P@P D@P @PP&20*8@P @P% "'$.<d #() , @P6LADLQMSTLAPGEXTR@PGTGELTLEEQNE@P RA@P YNAL 2 3@P>IF(ICMP.XX.0) GO TO X00@PJCALL CCSCST(WRKMST,K+XXXX,XXXX,WRKMST,K+XXXX,XXXX,ICMP) @PfCALL CCSCST(WRKMST,K+XXXX,XXXX,IVLXX,1,XXXX,ICMP) @P 200 CALL CCSBLK(EXTREC,132) @PGO TO 300 @PCALL CCSMVA(WRKMST,K+XXXX,XXXX,EXTREC,XXXX,XXX) @PDATA IVLXX/'XXXXXXXXXXXXX '/@P PROGRAM LRPEXX^  3!+@P INTEGER ID(4),LU,ISTAT,EFG,FDEL @P INTEGER REQBFD(24),IDATDM(15),WRKMST(9000) @P INTEGER REQBFE(24),IDATEX(15),EXTREC(68) @P INTEGER IVL01(7),IVL02(7),IVL03(7),IVL04(7) @P% INTEGER IVL05(7),IVL06(7),IVL07(7),IVL08(7) @P> INTEGER IVL09(7),IVL10(7)  @PW INTEGER IVL11(7),IVL12(7),IVL13(7),IVL14(7) @Pp INTEGER IVL15(7),IVL16(7),IVL17(7),IVL18(7) @P INTEGER IVL19(7),IVL20(7),I(8)  @PC @P EXTERNAL FMRDEL @PC @P DATA REQBFD /24*0/ ,REQBFE /24*0/ @P DATA IDATDM /'MMMMMMMMLA ' ,1,9,0 / @P DATA IDATEX /'MMMMMMMMLA ' ,0,1,0/ @P DATA EFG /0 / @PC @P CALL PGMIN(ID,LU,MODE,NPORT)@P ASSEM $C000,FMRDEL,$6400,+FDEL@P) CALL OPENFL(REQBFD,IDATDM,ISTAT)'  3!,@P] REQBFD(23) = 1@P< IF(ISTAT.GE.0) GO TO 50 @PK CALL FILERR(IDATDM,3,ISTAT,LU)@Pg GO TO 850 @Po 50 CALL OPENFL(REQBFE,IDATEX,ISTAT)@P IF(ISTAT.GE.0) GO TO 100@P CALL FILERR(IDATEX,3,ISTAT,LU)@P GO TO 850 @PC @P 100 CALL GETS(REQBFD,WRKMST,I,ISTAT)@P IF(AND(ISTAT,$8100).EQ.$8100) GO TO 850 @P IF(AND(ISTAT,$100).EQ.$100) EFG = 1 @P IF(ISTAT.GE.0) GO TO 115@P CALL FILERR(IDATDM,14,ISTAT,LU) @P GO TO 850 @PC @P 115 DO 300 N = 1,9 @P! J = 1000*N-999@P+ K = 2*J-1 @P3 IF(WRKMST(J).EQ.$2020.OR.WRKMST(J).EQ.FDEL) GO TO 300 K  3!-@PQ CALL PUTS(REQBFE,EXTREC,1,ISTAT)@Pd IF(ISTAT.GE.0) GO TO 300@Ps CALL FILERR(IDATEX,11,ISTAT,LU) @P GO TO 850 @P 300 CONTINUE@P IF(EFG.EQ.1) GO TO 850@P CALL CCSBLK(WRKMST,18000) @P GO TO 100 @P 850 CALL CLOSFL(REQBFD,ISTAT) @P CALL CLOSFL(REQBFE,ISTAT) @P 900 CALL PGMOUT @P END @P*JOB, @P*K,P2 @P*FTN@P MON@P*LIBEDT @P*K,I8,P8@P*P,F,2@P*K,I8  3!.%@P*N,LRPEXX,,,B @P*Z@P;T1  "T hT   h\ \ȫ Ph@Pf\ȡ Ph\ȗ Ph\ȍ Ph\ȃ Ph\@P Pl "p4d d  l\ Pl\  Pl\@P% Pl\> Pl\W̿ PlTPp̴ Pl\@P̪ Pl\  ̠ Pl\̖ Pl\  ̌ Pl\@P̂ Pl\6\:\ Pl\ Pl\@P= Pl "p4d Pd ) | dld0 !c Ad@P0h, RT1T1   1hH\)!!"̨ h>\##̞ P l(@P ' d$\$1\1   ̲ h\1)!!" h\## Pl@P̚ "lܚ@P "p4d d j l\  Pl\&& Pl\''@P PlTr)̶ Pl\]̬ Pl\<((̢ Pl\K))̘ P@P l "p424 lfll\>424 lU d$T &$1\1@P  f01 \.f1\f2 l2l̹l\>424 l!̧l̩@P lT >424lll\>424 >d ̩ l\$1\1 f@P I0 \1.f1\f2 ^ldBdH\>424l@P t( < l l\>424ll̚l\>4 24 @P ll̉lT >424lξ :̾ "̞ll\>42@P 4 d kl̯l\>424l[̰dBdH\>424lH@P ( <Ȕ ̎l l\>424 l(ll\>424@P %ll̼lT >424 lξ ;̾ #l̿l\>@P K424 Ud l̮l\>424 l̯dBdH\>424 l@P v0( ;0Ȕ ̞l l\>424 lll\>4@P 24 l̚l̽lT +>424 lƜ "̄ll\>4 24 @P lml̸l\>424 d \l̅l\>424 lK@P ( @P m @P #  3!0M@P @P @P @P  "l Ad@P @P ̃  \%2% l/@P @P \55 d  l  ld l!c\1T 33{ "@P 8T  4\1 54$-5 d3T 31T 1\1./\67@P c\1\1'\2 {d 1\ ̠l l  d\Q@P  Pl\d(( Pl\s Pl\** Pl\"@P " Pl\## Pl\55̻ PlT O**̰ Pl\55@P ̦ Pl\55̜ Pl\88̒ Pl\%%̈ Pl "p4d d@P * d\ Pl\ Pl\ Pl\@P: Pl\ Pl\   \""̾ PlT   ̳ Pl "@Pepd0?\v4l̤l@Pd:\s140dDḷlln  2P d"V  d@PŌdd6lTRs4ldIdJd0Kd0Md/@PPl0! H d!Cll\s4̛l̽lT^_l $  d@P1-\T,\3^\^14\14ܺ v@PXdld6d:Ty4dDdIdJ0dK8d<h  3!4@Pd=d>\140! 7d l!/̽l̿l\y14@PlT0 ^00_dE̢lll\4\^14b܄ľl\|@P4ddd1Th4>ld06\|4l@Pll\140ld<0d=0d>\v4+d @P/ d"̼llll 0dTk04\4$  d@P1Z\ 4Ҍ dddT14xl0d6d:\m94@P\ 14d0IdJl̗ Ql̾ l\p4̳@Pl̰ l ̈l\14dh, l̬l̓ l\m4 @PA dM\ 14̠l̢ ll8̽$ l !28d6@PҌ d:Tlm4A l\1 4dI dJ2l@P1Qll l\140dD0dE0dF@P8T@PTod̩l0d<0d=0d>\v4d 2l "O@P̆ dd dd60d:T y14llldIl@PdKlll 0 d\14li 0l! ; d!@Pv̸l̪l\y14̦dDT^_dE̠ld0J̼d< 0 l\4@P1\^4'0 ;Idd6d:T4̊l̋d0 =̋d>@P+\4ld\4\14܇̪ +]l l\@PV4l̪ d 19 l!5̤ld8d9҄ld@P<llQl\y140dD05dI0dJ0.dKN  3!5@Px@P@P0@P0! A hh l0!!5d6Tm4\148dIT@P^_dJ h1\4 hHܓ hl\p4 @P0dN0dO/ ,ḏl\y4dDdIdJdKd<@P0 $d=0d> Ql̇ld<d=d>T4UdDXlvl@P O qlcd6d8fd9\14d0Dcd0E lC d6\p@P z4dN?dO h*d6d<\d=\v148 @P u h!q h h hl0d70d:T >s@P 4dDdIdJdKK! 2 h!!,l8d7@P d:\s140dD0dIT0^00_dJ dyܒ 0h @P &l" Ř` hY hOh lnd6 @d7@P Q> }lT y4sdD+ \dD# UdE  YdF@P |d0IEd0Jfd0KLd0<Id0=Fd0>\4! N h @P h0!!Dd06d07 d0:\y4 dDT ^ _dE@P d00I_d0Jd0@P S ih4̢d062d07T 140"0p4 hd7~d8M  3!6@P0 ~d90  h"0gd60dd;0ad<04h-d0A h@P Bd^d_\^14u h08d60)dH0dI0( h@P &d00JdQ\1 4dNdOdPAԄh hh hd@P0 ! s h0!!m0d60z hsT `4T ^\^@P *4{Rd0\^\1^4T h1N\S4H h BTS@P U4  M hJ5 h2B h? vh& h#~d06{d@P ;d<JdA h_d^d_\^14 h0Ud68FdH@P dIUdJRdKOdLdMHdN dOAdPd h'd6@P0 dC0dD0dE0(dF 0 hT 14 0dH0dI2@P @P @P @P d06d0;d0<d0A hv Fhp0d60dH0dI8dJ@P -dKdLdMdNdOdP hNh_ h?d! n h9@P0 X!5!h0d6ahm\4T #^T 1^4/R d\@P ^\^140 h\S14 h1T SS  h@P h h h hn2d6d;d<dA h@P U0d60 dH0+dI0#dJ0 dK0dL0dM0 dN0 dO8dP@PdQdRdShy7hsd6dCdDdEdF@P0/dH0odId06d0;d0<\d0=Sd0AQh=0d68dC;:  3!7@PZdDdE@dH]dIohd6dHdIdJdK@P0dLhjd06d0Cd0D_d0Ekd0F1d0Hd0Ih@PHd6d;5d<dAhk2d6dCDdDFdEdH@P0dIhMd06d0H#d0Id0Jd0K!d0Ld0Md0N h@P'd6 dC dDdEdFdHdI+hcd6@P01d;0d<0cdAAhMd06d0Cd0Dd0EPd0Hmd0I_h@P\/d6kd;d</dAuhd6dHEdIydJ@P0dTT r14h`d06d0H#d0IWd0Jyd01O\$4$@Phx0?d60d;0Bd<0dAhb d hfh  h@Pݘ"jd6SdT32VhT5@P' %1! hhT n'^\3^T1^4 h08RS @P)0}Th M7 3 h D7 3 h0 d dJ@PTd01M\4I hF)q0d60`d;0zd<0\dAh@P h' dh h0!Zdd0060Rd0T0^T^94@P\14 h1\S4Fd  h\14(d@PJRdKOdMBdN hG>d4h: d8 @P@P1d8@P;@P-d0H%  3!8PLPGN2PPBINASCASCBINPUTS 1CCSBLK=CCSPUTICCSMVAREADR CCSGET P P%LPGPRG F63 F LA CCS 3.0 SL-149@P@P @PV@P &*d00:@P@P LAUTIFIL  @PLARPTPGM  @PY$$LRMENU$$  @P@Ph@P@P@P@PuOKNOEN@PRPTGLRP0XX@PREPORT XX AVAILABLE   3!9@P@PPRFLP000LA @P PLEASE ENTER: REPORT NUMBER (01-19) TO DELETE OR "END" TO TERMINATE @P$ INVALID RESPONSE - PLEASE REENTER @P7 PROGRAM " " ENTER: "OK" TO CONTINUE OR "NO@Pb" TO BYPASS @Pi REPORT XX DELETED @P REPORT NUMBER IS ALREADY AVAILABLE @PTT  (T T1˨̘ '\ @P6h\hYȶ '\Y\Ȩ '\Txx@P<w hH( d 3 +\$xր@P]d\Τ؜М !ќ Tx\@P\7\7x̝u ̘v T̸ 'T@Pa̧ "̢l̜lTh̛ !d\Th@P &\Y0dT &\dnT0ix'̰@P d6\1 %\ @P@P@PT\h\TTPLPGPRG  3!:PQ8STP $PGMIN OPENFLFILERRREADR WTREADCCSMVA{DELRECUPDRECDELETECLOSFLPGMOUT"PLPGPRG PLPHDL1 F64 F LA CCS 3.0 SL-149@P@P@P@Pd @P2LATAPARC  @P@PLAUTIFIL  @P@PTMTH@P@P0000@PTAhhTETz hDhT@P 1 hɀXh\@P! 1 dh\@P/ 1 hȮlh\@P<ب 1TT hț "\2 hȐ "T d @Pg "vHhn$hhH$b`dT lJ#  3!;)@PѬҜj !Z#hIH,܈Dd%h>H,ш9ddd ,@Pl !Tz& c dh T@P 1TBT d >@P\r+\r,  T2\\r1 TTW@P  @P (1H1,20A2,6X,40HACCOUNTS BEING PURGED FROM THE LATAPARC ,4HFILE,/,1X,20A2,14X,10HRUN D@P7ATE: ,A2,1H/,A2,1H/,A2,/,1X,20A2,//,35X,14HACCOUNT NUMBER,10X,18HARCHIVE TAPE DATES,/)@Pb8@Pc(34X,8A2,2X,A2,1H/,A2,1H/,A2,2X,A2,1H/,A2,1H/,A2,2X,A2,1H/,A2,1H/,A2,2X,A2,1H/,A2,1H/,@PA2,2X,A2,1H/,A2,1H/,A2) @P@P(//,52X,21H*** END OF REPORT ***) @P@P(/,37H ERROR WHEN LAUTIFIL RECORD NOT FOUND)@PTPLPHDL1PQ8STP Q8QINIQ8QX Q8QENDMONTO YERTO PGMIN LAHEADOPENFLDREADR [GETS DELRECFILERRCLOSFLPPGMOUT PLPHDL1 PLPHDL2 F65 F LA CCS 3.0 SL-149I  3!<=@P@P/@P3d @P;@PB@PiLASUMHST  @P@PLAUTIFIL  @P|@P @PSMTH@P(R S W @PINVALID STATUS@P  @P0000@PBTx+,-hhTT|1 h "\i1 h "T@Pm|1 hȽȹ "ȴdH(d(d@PHl(lH(dlH(l5$6d d9 !B@PTz$ d:hT@P 1 lh\}  3!=Q@P 1 dh\@P 1 lՀh\@P 1T lT 1 d213  "T'< d=@P&Ҕ( l) l* l s$5hl7H$8ed>@PQ&h_H,Zd?.d@0dA ,l "Tz6  d:hT@P|@P~ 1\' lh\@P 1 lh\@P 1T9T1 d21 !O @P@P@PT;;\z= } l̲h\@Pܬ 1\' ḷh\@Pܝ 1 l̖h\@Pܐ 1\ܶT;@P@PTorA\rB  @Pj@PTi21+@P_  3!>e@P{@P\21+\rG T1Tf@P@P(1H1,20A2,12X,40HACCOUNTS BEING PURGED FROM THE LASUMHST ,4HFILE,/,1X,20A2,20X,10HRUN @PADATE: ,A2,1H/,A2,1H/,A2,/,1X,20A2,//,20X,14HACCOUNT NUMBER,5X,13HINACTIVE DATE,5X,6HST@PlATUS,15X,14HBORROWERS NAME,/) @P{@Ps}@P}(20X,8A2,7X,A2,1H/,A2,1H/,A2,9X,A1,10X,R1,14A2,A1,10X,7A2)@P@P(//,54X,21H*** END OF REPORT ***) @P@P(/,37H ERROR WHEN LAUTIFIL RECORD NOT FOUND)@PTPLPHDL2PQ8STP Q8QINIQ8QX |Q8QENDMONTO IYERTO MPGMIN CLAHEADQOPENFLUREADR lGETS CCSMVADELRECCCSBLKPFILERRCLOSFLPGMOUTPLPHDL2 P4LPRNTT F67 F LA CCS 3.0 SL-149@Pd* Z  3!?y@PgPC@>AD@P/ ( ) [ ] @P< > @P99999999990000000000000000* @P@P @P\@Pj @P.@Pt9 lTjdhT``TlTa  h hĘ@P>h\``\ط@P hȳfخ 81h\``\\d'dS d/h\`@P`\ 1\ke df l  h# l iH d0 $j@Pd2dd_̞ j̚ ̗  @Pdc {X@P% l"! ,l AYd?>aTl lc 1` ,@PP\_ c !f "\_c̱ !α &pnl@P{T_k2bhT_k2@PVTh\h^k2^J h\@P_k2>  3!@@P$ d\ l^ ] lޔ_ l@P\\k2\ A2d^ +T_+\+]gk^g l̼ l̵@P l̮ lT|\k2\@P@P l (d1 dc d/̿l9jfܳ l (ld'dSHd`T@PA``Ta Tyll_l\``\ 1\ll l@Plwl\``\ܥ 1 l̶nܛ 81l\``\\l@P\``\ mAd_T _l\``\\ @PdY dZ d[\\o\\\k\\Y\p\\Y]\q\\Yr@P\s\d`T?``TG@P@P3H0TThFhYhnhy\h+\h{\h\hh\ h h h h @P*hh~ hxAPLPRNTTPQ8PKUPQ8PREPAMONTOAYERTOADAYTOCCSBLKNFWRITEDISP CCSGETCCSCST>CCSMVAEDIT CCSTIMHEXDECP P LPRSCN F68 F LA CCS 3.0 SL-149@P@P JP^ ( 6`|@P ~H5  3!A@P f@P @P/@P.@P8@P+@PcEX@P00000000000000000@Pq@P@P@P@P5LADLQMSTLA  @PDLACOSIGNLA  @PSLASCNFILLA  @PbLACLIENTLA  @P ENTER THE NUMBER OF THE SCREEN YOU WISH PRINTED OR EX TO EXIT ROUTINE @P THE SCREEN NUMBER ENTERED IS INVALID @P ENTER THE NAME OF THE SCREEN @P  DO YOU WANT THE SCREEN TO BE DOUBLE SPACED? Y OR N H  3!B@P 5 ENTER THE ACCOUNT NUMBER IF DATA IS TO BE PRINTED OR ONLY IF NO DATA IS TO @P `BE USED @P e THERE IS NO RECORD IN THE MASTER FILE FOR THE NUMBER ENTERED RE-ENTER ACCOUNT NUMBE@P R OR <CR> ONLY OR EX TO EXIT ROUTINE @P THERE IS NO RECORD IN THE COSIGNER FILE FOR THE NUMBER ENTERED THE SCREEN WILL BE P@P RINTED WITH THE FIELD DESIGNATORS @P ENTER THE CLIENT NUMBER IF DATA IS TO BE PRINTED OR ONLY IF NO DATA IS TO BE@P USED @P  THERE IS NO RECORD IN THE CLIENT FILE FOR THE NUMBER ENTERED RE-ENTER CLIENT NUMBER@P < OR ONLY OR EX TO EXIT ROUTINE @P O THE SCREEN NUMBER ENTERED HAS NO ASSOCIATED MASTER FILE RECORD THE BASIC SCREEN W@P zILL BE PRINTED @P A SPECIFIC MESSAGE WOULD PRINT HERE WHEN THE OPERATOR IS ENTERING L/A DATA@P T$()*TS-- (TS -(\q5- '\5 -(\D- @P '\D -(\b- '\b -(T(+./,\(+ +: ,:@P c T:dd  lTMd-̠8 ̙9  ̓ 1\S -(@P 9\(+ ,\(+ +: ,bd!T:! !\(+  +: ,̩@P dd ̱  M̬  M̧ ̢ ̝ T (+ 5 +: , :\:@P   \qe--   1%T 5 -(\(+ e +: ,@P :c ̌ \0  Te !Md   ^lT Md-̶z  3!C@P 8 ̯9  ̩ 1\S -(T (+ ,T 0 @P  1/\e--ǜ Ȝ  1T S -(\(+  @P ;,T S0  \e !M\(+ +: ,b 7\: " T e@P f"-̳8 ̬9  ̦ 1!\b -(cT (+  +: ,:c E@P \0  \"  T e !MY@P t @P y @P ~ @P d \  e    Te \(+ O ,\e !M/@P  @P @P Tq-\-\-\-@P @P @P @P @P : @P @P TTPLPRSCN  3!DPQ8STP PGMIN OPENFL FILERR ,WTREAD ICCSAD READR cCCSMVA =LPRNTT CCSCST CCSBLK CLOSFL PGMOUT PLPRSCN PLPRTSR F69 F LA CCS 3.0 SL-149@P@P01@P@P@PI  @Pt  @P  @P@P L@P@PLATRNSFL  @PTT " T֨ "@P Hd@TȻ d h Vط 1T 7S @P80ؙ 0lTIȓ !D hn؏ E1dd d f@Pc 1 դh Ȥl l@P|̷l̮l̲l̩l d dTTTPLPRTSR  3!EPQ8STP PGMIN OPENFLGETS CCSMVAUPDRECBCLOSFLPGMOUTPLPRTSR PLQLOAD F70 F LA CCS 3.0 SL-149@P@P^ ,@Pe @Pl(@Pn@Pu @Pym@Pz@PX@P  @P @P#LADLYASN  @PY@P ENTER DATE (MMDDYY) OR CR FOR SYSTEM DATE @P READY (CR)@P$ @P'A  3!F@PS00@PT@PzTZ[\  h  hT #] (T#^]ZTZZTT@P@P(A2,2X,20HQUEUE LOADING REPORT,//)@PTT_U_ȜdTZaba_YȈ  T !@P\_U_\__Tdc !T ddT2eT 22] ]f@P g /T#h]Z d lCdi dj" $ld@P8k $ndm2`"  hT2o5o huT2o5op@Pcp  dq dr6h&hT@P} ds6h\@PsSp 6h\@Ps 1 1& X % ~$TZG% dthT@P@P 1T @P(1H1,2X,20A2) @P\ZI% lh\@P (1\$\@P(1H ,2X,20A2,10X,20HQUEUE LOADING REPORT,35X,6HPAGE: ,I2) @P \ZK%# )ḽh\tI  3!G@Pܧ <1\\ \ \@P#(1H ,2X,20A2,13X,7HAS OF: ,A2,1H/,A2,1H/,A2,/)@P:TRM%A;@PA(1H ,48X,29HNEXT CONTACT DATE AGE BY DAYS,/,10X,5HQUEUE,15X,2H-0,9X,1H0,9X,1H1,9X,1H2,@Pl9X,1H3,8X,2H+3,9X,6HTOTALS,/) @P{ dX\ZP%T5\6 dt6h\@P 1T̀@P(1H ,9X,2A2,12X,6(3A2,4X),4X,3A2) @P@P@P 5 >$T;ZVZ\\$\\ \ \π-@P(1H ,A2,28X,20HQUEUE LOADING REPORT,16X,6HPAGE: ,I2,/,32X,7HAS OF: ,A2,1H/,A2,1H/,A2,/@P) @P\RXZ@P(1H ,24X,29HNEXT CONTACT DATE AGE BY DAYS)@P\RZZ&@P(1H ,4X,5HQUEUE,7X,2H-0,6X,1H0,6X,1H1,6X,1H2,6X,1H3,5X,2H+3,5X,6HTOTALS,/)@P; dXTZ]ZZT5\6 dt6h\@PR 1T@PZ(1H ,4X,2A2,4X,6(3A2,1X),3X,3A2,/)q  3!H-@Pk 1`dTZauaYY  l dq f& 1 k d@PTP2o5oT d _@Ph@P lT2dvm>hT@Pdw !8cdxd &$yl %,ld 7 4 d@P " l " lޚ-4j4@P2@P̩ ̤  lc dq dr6h-hTz@P ds6h T[@P$sSpp ހ6hT@P9s 1 1& /T?Z%b dt6hTE@PZ 1TX@Pb(1H ,/,10X,6HTOTALS,10X,6(3A2,4X),4X,3A2) @Pw*\ZZ lҀ6h\@P 1\@P(1H ,4X,6HTOTALS,2X,6(3A2,1X),3X,3A2,//)@P@P@P@PT ]TT  3!IAPLQLOADPQ8STP Q8QINIKQ8QX XQ8QEND`PGMIN {OPENFLFILERRLAHEADCCSMVA4WTREADuIDATVRICALJLICCSADCCSBLKPGETS CCSCST"HEXDECCLOSFLPGMOUTPLQLOAD PLRTVD1 F71 F LA CCS 3.0 SL-149@P+"3@PLADECTBL  @P- l: 8j6 412h l.T( !*T( ! T(Ԝ !@PX  hhƘ9 nÀ@Pl ȺlȺlȸlHTTh\ h h h h\hPLRTVD1yPQ8PKUPQ8PREP|OPENFL@P@P997 998 999 @P  @P:YES NO  3!O@P#);&2D@P @Pkw2);M@P @P" AS OF DATE WAS NOT GREATER THAN LAST RUN DATE @P PLEASE ENTER "AS OF" DATE FOR TREND ANALYSIS CALCULATION - ENTER : MMDDYY OR @PCARRIAGE RETURN TO USE SYSTEM DATE @PpLAACCAGE  @PLADLQMST  @PLARSWFIL  @PtT?@AT+pB d~ȿ (TpCB? d d dh@PvTET+CBȗ hȌ 'ȍ '\pGB?\ETECEH@PH OdPd ll\E\CI l l l l T?J"KJ LM@Pd\?JNJOLL   T ! TOO= @P 0 l\CPOO !TdQ\dR !̑  \@PKOCSO\OCPO T+CB̼ T+CBB 1̯  dT̩ @Pv lTpTB?̜  dT{B '\CB?\B '\CB@P? d= T+CB̶F̯ '\pGB?C @PTCB̖W̑ۜB '\XB?  ! dYh@Phh hTC  3!P@PC@P 1 l߀hۀ h׀hӀh \@P&C@P) 1\ZOOT[\\ K]\CCSC^_\C@PTCSC `-\CCSCTCBB (TzaB?T+CB @P2\pEB?ddbTCCSCTe+CB 2\pVB?@P@P@PTcTB̴F̭ '\GB? \CdT6[\@P\  \ X T dTh hhh\@PC@P 1TZOO\ECEdbdi\CCSC>T\+C@P+CBB (TopUB?q@P;@P; T+B " d| d~ dY f* 1T+pB '\p@PfCB?T+CB̽F̶ 1\peB?s dddT5dR\@Pdf Bdgdh $il $jlЌl 'kl@Pll,m"lp4odn,ddpp4rdq,dds 0h 0Ȉ l 0@P lv@P  3!Q@P@P@P@PTB+B @P@P@Pu@P@P@P@P@P\+B\B\B@P@PTTPLTRNDFPQ8STP AMONTOADAYTOAYERTOFMRDELPGMIN uOPENFL]FILERR2CCSBLKGETS CCSCSTWTREADIDATVRCCSMVAPICALJLWRITER(UPDRECREADR CCSGETPUTS eDELRECwCLOSFLCOMFILlPGMOUTPLTRNDF PSLTRNDU F75 F LA CCS 3.0 SL-149@P5  3!R@PJ@P@P @P @PYES NO@P"LAACCAGE  @P DO YOU WANT TO UPDATE PREVIOUS TREND DATA FOR NEXT TREND RUN (YES/NO) @PT dT T  \@P  h hT " 'T"HTT 1Ȭ 1\"@P4\1Ș Țh!d>T 1 &\"T +\"@PF\"TTPLTRNDUPQ8STP RPGMIN WTREADCCSCSTOPENFLFILERRCCSBLK READR  UPDREC/CLOSFL>PGMOUTPPLTRNDU P 7LTRPLY F76 F LA CCS 3.0 SL-149@P@PJ!^#0102  +8 jJp Pcy@Pk@Pmj@Pu_' N  3!S @Px@P@P+@PR@Pa@Py@P@PLADLQMST  @PCLACOSIGN  @PjLATRANFL  @P@P@P @P'@PR@Pf@P@P@PLASCNFIL  @PLAADDACT    3!T@P@P/@P0360@P5@PY @P@P0PP@P#0130@P%60909193@P,@P6 @P31 N @P+@P2@P)@P8!@P1?@P @P90Nl1E(@PH  3!U1@PxTI (TJI6\+CIȼ '\CJI6\RjIȮ '\jJI6@P\yIȠ '\JI6\IȒ '\JI6TyKII @P "T\yLI  "\'\yMIլ֜ @P "\TyI d d dTR/I̭O̦ ?@P$PQ*TjRI6)7 !+TII@PO  "TSTT\UVWV\XYUY̷dTX@PzZ\[\]\\^_`_\a\b\0 \c\d\\e_@Pf_\g\S\h\2# !$ 1% 1/& @P2b( 2~*5Tdi ,hDdj ,h  d dl@P\ l ,h&Dl ,h'lTYkkTE+IIm  1+@P%n  To\kk\8pjT+I "\@PP8pjT+I "T di ,hDdj ,dd @P{dl \ l l+l l\Ǐ  AI " A 5 @PTr\\ Ts\r\\8pj $H l dtd!.̩@Pі8 $ 9 +9h\1p@Pj : +܀:h\\@P\ l 7 \\u\\3v̞ "ǔ5 \k@P "k\4qUqTII "  @P 7@P 78/  3!VE@P 7TWI 2@PR A@PW A@P AT3WI6Tz  a dhT@P W 1\T@P a(9HACCOUNT ,8A2,8H CODE ,A2,14H NOT UPDATED) @P z)7 "$@P @P @P @P @P @P @P \WI6\r @P (39HREPLACE SCREEN FILE AND RESTART PROGRAM)@P T@P @P @P @P d  3!WY@P @PA @P \r @P (29HFILE ERRORS...PROGRAM ABORTED)@P @P/ @PL @P_ @P T BCWI6\wI6y@P @P TRI\I\+I\IT Hz T U+\2\*\)T _G@P (26HTOTAL ACTIVITIES UPDATED ,I4,/,27HTOTAL CHANGES UPDATED ,I4,/,26HTOTAL OTHER@P  RECORDS ,I4,/,26HTOTAL NOT UPDATED  ,I4)@P 3T TPLTRPLYPQ8STP 6Q8QINI Q8QX Q8QEND AMONTOADAYTO AYERTOOPENFLyFILERR READR GETCHFCLOSFL GETS CCSMVAPPUTACFrICCSADcCCSBLK1WRITERCUPDREC 8CCSCSTPUTS ,PGMOUT 4PLTRPLY PLUSEMT F79 F LA CCS 3.0 SL-149@Pu  3!Xm@Pc@Pg0@PkYE $END  @Pt@P@P3@P5 RESPOND WITH "YES" IF ANY DELETES,ELSE (CR) @PLAACTIVE  @PM ENTER USER ID TO DELETE OR "END" @PuT/_`aTb (Tcb_Tr R\R _pT3bǨĘ@P4 '\eb_\z  hȳhT@Pج 1T\Z_ hȞh\@Pؘ 1\T_g5hg/ij/illd0\_gMmg/njp o@PRd3d4T/bbqd 1 1"Trb_T@P#Z$_\3\4\T3nnss Tb 1\tb_ T@PNbT@PR(1H1,5X,15HUSERS OF LEGAL ,/,3X,2HID,3X,4HPORT,3X,4HTIME/)@Po@Pp(20X,15HUSERS OF LEGAL ,/,10X,2HID,5X,4HPORT,5X,4HTIME) @P >  3!Y@P(2X,2A2,3X,I4,4X,A2,1H:,A2) @P@P(9X,2A2,5X,I4,6X,A2,1H:,A2) @P@P(5X,5HUSER ,A2,A2,10H NOT FOUND)@PTPLUSEMTPQ8STP Q8QINI#Q8QX Q8QENDPGMIN vOPENFL|FILERRGETS WTREADREADR CCSCST/DELREC=CLOSFLLPGMOUTPPLUSEMT P.LUTFMT F80 F LA CCS 3.0 SL-149@P@P**J &@P504LPN$4@P=@P@PLAUTIFIL  @PX@PY UTILITY FILE MODIFICATION PROGRAM IN @Pn ENTER "UPD" TO ADD/UPDATE, "DEL" TO DELETE, OR CARRIAGE RETURN TO EXIT @P INVALID REQUEST t  3!Z@P ENTER KEY OF RECORD TO XXXXXXXXXX @P RECORD -XXXX- NOT FOR ADDITION, DELETION, OR UPDATE THRU THIS PROGRAM @P RECORD -XXXX- IS REQUIRED, CANNOT BE DELETED @P RECORD -XXXX- DOES NOT EXIST, CANNOT BE DELETED @P RECORD -XXXX- ADDED SUCCESSFULLY @P RECORD -XXXX- DELETED SUCCESSFULLY @P, RECORD -XXXX- UPDATED SUCCESSFULLY @Pf @PUPD DEL @PADD/UPDATEDELETE @P**@P @PCOID@PHDR1@PHDR2@PHDR3@PRSW1@PACTC@PRESC@PSALC  3![@PDALT@PSMTH@PTMTH@PUPDY@POLPM@PLTRF@PRPTG@PLTR1@PLTR2@PLACL @PLAC1 @PLAC2 @PLAC3 @PLAC4 @PLAC5 @P** @P @PpNAME ISPHONE EXT CSUP QUEUES... @P---------------------------------------- @PR---,S---,W--- H$  3!\@PCODE1 CODE2 CODE3 CODE4 CODE5 CODE6 CODE7 CODE8 CODE9 @P---,QUE =---,QUE =---,QUE =---,QUE =---,QUE =---,QUE =--- @P.--- @PTRL--,P--,C--,NA- @PzN------------------------- @P--,--,--,--,-- NNN @P------------------------------ @P @P @P8 @P^ @P @P @P @P @P @PB @Ph @P @P +  3!]@P @P @P=T'(T) "T*X+\*Y,d? d@\@Ph*n-*?. A  d , h    1\@P*0 , hT(121\*3*T/̿  d4 @PU T  l d1 l3 1ddTN*-@Ps̎  dd\*5YdV̸dWT*V)@P)  " ;  ̗d̏d\*6@P?T*) "TdUd\*3 d̲Ü ̭ @Pj lT,7d*d+ L4& d&Tp&7f.7T*f8 dR\@P*,9*?7 e ` d'!T?'( [(8 5T(',@P̝ T*)) !;Td1Ud2\*,3}T*T) @P!d d \*:b@PL@P l l l l lT()@Py@Pk;llOPENFLDWTREADCCSMVAREADR DELRECBCCSBLKnCCSGETCCSPUTUPDRECWRITERFILERR CLOSFL'PPGMOUT+  3!^PLUTFMT PqLWROFE F81 F LA CCS 3.0 SL-149@P@P@P&@P("@P *@P$000B<:,@P.p @P3@P5 2@P9kmxX^@PAY @PDpq! .@PM@P @Pp@P@P;99NO@P>000000000000  3!_@PJ000000000000000000000000@P000000@PVWRS @PY000000000000@PD0000000010@PlYES @P O@Pn0000@P @LADLQMST  @P LAWOEF  @P ANSWER (1 OR 2) @P ENTER AS-OF-DATE (MMDDYY) @P ENTER NUMBER OF DAYS DELINQUENT (NNN) @P ENTER WRITE-OFFS SINCE DATE (MMDDYY)@P ANSWER (1,2,OR 3) @P ARE SUBTOTALS DESIRED (YES/NO)@P  RECORD COUNT--R RECORDS 000000000000@P $ RECORD COUNT--S RECORDS 000000000000@P : RECORD COUNT--W RECORDS 000000000000@P P RECORD COUNT--OTHER RECORDS 000000000000  3!` @P g CHOOSE ONE OF THE FOLLOWING REPORTS:@P z 1) ELIGIBLE FOR WRITE-OFF REPORT@P 2) ACTUAL WRITE-OFF REPORT @P  CHOOSE ONE OF THE FOLLOWING WAYS TO PRINT THE WRITE-OFF REPORT: @P 1) PRINT THE REPORT BY ACCOUNT TYPE, QUEUE ASSIGNED @P 2) PRINT THE REPORT BY QUEUE ASSIGNED, ACCOUNT TYPE @P 3) PRINT THE REPORT BY STRAIGHT LIST @P0$2Ykw@Pa"ra@FgO@P% @PMTȿ dddThhT g@Px\ z\  d\  Hd 2!@P !d_  d \   T  !\ d l@P\   \  !Th lQ ldTq  !̘ @P  d"T"n## !\";# ! 1Hl@P$$ȌlH%l&lT\ '\ (\ )@PO\ * l\ +̾ ̺H d ! ! @Pz3 ldT !̛ T!l!## \,<,# @P dX l ̽  1d` ̴  2l̯  3l ̧  4l ̟ @P 5lTp @-- (T @!-\ O - '\ !- d_ G  3!a!@PT.Tp-/̤  *\ @0- d~d= d1@P&" $3d2 $5d46 k d"7hcT@PQV"## V 19hLTd8 !DȌh@T ! @P|$:ld !"T g;\  g<T\=! g>!d@PIda@PldX1i 7\.Tp--/ @P *T @?- l~d= l" $3d2 $5d46@P t7hTMV## Y dڄAhTdd@ !I@P0dTp"$ 85 !/ $:l՜ "w@P[T g;\  g<\n! g>!dwdI dl1 i@P R8 d"/4dC$h`h $h\C@P g@P 1` 6  DdT4= gE=ʄFl\= gG=@P̾l\= gE=̴l\= gG=\_, gH\`, gIT O g-- @P(T B-?@P @P d"47lTV"##  1TD>># \DY@P5Y D\DJJ P\DPP@P R@P=R  3!b5@PR@PR@PR@PR !l\ "n#̿ #T "ܣ *1 !l\ $"n#̤ %\@P} $"܉ *"1 !lT :"n## !\ :" *1 !l\ P@P"n# \ P" *1 d1\J1n# \J1@P 1 l\P1n#̲ TaP1 1 l\Y1n#̘ @P\Y1ܹ 1 lT>1n## \>1ܞ 1\JK@P) JK\PK $JK\YK :JK\>K PJKT *\ $*@PT\ :*\ PL@Pf@Pf@Pf@PfTp-\ O-@PWm@Pm@Pm@PmTTPLWROFEPQ8STP pFMRDELmAMONTOYADAYTO^AYERTOcPGMIN NICALJL'WTREADBIDATVRCCSCST DECHEX4OPENFLFILERRCCSBLK\،  3!cIPGETS CCSMVAHEXDECPUTS CCSADD&CLOSFLgPGMOUTnPLWROFE PGCLCHNG F01 F LA CCS 3.0 SL-149@P@P   @P@@P@P hhT! 94 10C!0 ) 13~ . h ( hDd@P=|̈hTx@P3H!|y8 d}g@PQє /0ʔ /T0\! Ȣ  93ț !T!h 9l\! @P|  l l 1 ! , lθ !̒  8 d~T@P13\1ΘDd|Δd T0!} 1\0G T@P1!}\1!}̠,h\38!}|@P|dJ0PdK     \!31}|J0|̲ l@P T!3}J̦ l̨ ̠ lTBx31J|0yT0`0 HT@P6Th\ hh h hPCLCHNG2PQ8PKUP8Q8PREP5CCSGETWTREADCLDISP&ICCSADtCCSMVAIDATVRLPKAMTEDIT  P 6  3!d] PCLDISP F02 F LA CCS 3.0 SL-149@P@P@P@PINVALID REQUEST, PLEASE REENTER ENTER CHANGE ITEM OR NEXT FUNCTIONINVALID ENTRY, CLIEN@P-T # NOT ON FILE. PLEASE ENTER SELECTION.@PA !"C<@PGINVALID ENTRY, ENTER "CS" TO RETURN OR TO CONTINUE (CREATE NEW RCD)INVALID ENTRY,@Pr ENTER NEW STATUS OR <CR> TO RETURN TO S@PELECTION SCREEN @PHIF@P99999999990000000000@P @P @P d, "'hT600zz0  " h Z1Tx3@Py @Ph 0 2"hT1Jܴܳȩh\@PJܧܦh1\JܙܘȎh\@P J ! d"! ,X"VPL"@P5! ,B:6d}d|T1}|| !  3!eq@P`η c3\}|1|̭ !VΥ ' $ ll 0dd @Pdd #ll   T3}|10J| ߀h\@P3}|J|Ōl֜ 00}|ld9h ̽hT@PJ@P d̞l d 2̓ d̘ ll1\rJ d@P@P@P l3Tx3J|y l@P@P0d0J dKdL $ 1 , dAhAh @hT@P7J@P:A l" l , l߀hۀh׀h\G@PVJ@PY l̿ l@Pa@Pa L%id1\J̌ d|3T!3\xJ33|!00yy 1\J@P l dT! 0$Id l9\!  l? lT3@P!|10!̵ll lۜ>\! %T!ܾ00z 0 @Pl@P6  3!f@P@P d3T3zx 0N ' TN@P)@P+@P,@P-@P/@P1@PA@PB@PC@PE@PG@PHTThhh\hHhZhhPCLDISPPQ8PKUPQ8PREPREADR WTREADCCSMVACCSCSTSEDIT CCSBLKuCCSGETCCSPUTFILERRGETCHFP PQ8QBDS F03 F LA CCS 3.0 SL-149@P0LACLIENTLA  @P0LASCNFILLA  6  3!g@P0@P06@P0N@P0y@P0~ @P0 @P0CCCFCS @P0P@P8@P0@P8@P8@P01@P8P PCLIENT F04 F LA CCS 3.0 SL-149@PTTTPCLIENTPQ8STP CLMAINPGMOUTPCLIENTW  3!h PCLMAIN F06 F LA CCS 3.0 SL-149@P@P{ 1 #9  @P[\]ab@P_`c@P E A,N,S,@PACTIVEINACTIVE@P[** CLIENT INACTIVATED @Pf  @PT1xyzTXTXuT306z0z (T{z0x\30z '\@P3{zx d0~T00  d!  (  " @P 3\ T   !  lT!9{!@P \!10T30z00z 0 0 ̖ @P7 - 2)1T|3zx1T}00{{ T0\00 08! @Pb>T!{ \!{ 0\ T}0Tf9@P\0~}\[\u1T3z̷ z 2 29\@P0zx B  +TP 0̋ \!10\13! d@P~\00 00! 60 \  \0 @Pߔ  \Ӝ \3 1TG}00{{ '\0̱ @P9̲ ̭ ̨ ,̣ .T0̔ \̋  T[  3!i@PdN  o! \0 b ~ !) lT9@P\1T3z\10z 'T?0zx0 ! lT3;z@P 2\0zx3T0z  2 2\1;zx@P@P@P@P@P@P@P@PE@P\@P@P@PT03z\6zHPCLMAINPPGMIN LAHEADEDIT OPENFLFILERRCLDISPPCLNAMECCSMVAREADR CCSGET*CCSCSTeCCSPUTUPDRECCLCHNGbPDELRECWRITERCLOSFLP PCLNAME F07 F LA CCS 3.0 SL-149FK  3!j@P@P;@P>@PA@PCA#@P(@P$B@P# @P END OF SEARCH@PE d+*hl0hI h " h  hT)>T!?&)& h@Ppʷj 1 hȬ "ȩhT3x0yT108z00z  "r@PT(")"{ 0{ 1 dh1\x0yFd<l &,\(&)@P0&{ @\3J\1($JB1$\J1Tf3J=# 0dJ dq@P3\x3Jy  dC\0C 1T1800zz0  @P  !Sv lT% 0YI T!DD ? 93 (\@P0G < l댔d !  lT1D!8@POd@Pd d=3Tx1y l l3T3zx @P^~@P~ d!0 d+0'd*H  3!kPCLNAMEPCCSBLKbCCSMVA\WTREADhREADR CCSCSTGETS  CLDISP(CCSGET7FILERRxP P`FLEGAL F09 F LA CCS 3.0 SL-149@P@P@P@P**A $@P@P@P ^s@P C,@P#!E @P'A@Pc&@P* B,%N,@P/OLPM@PZ@Pd@Pa#  3!l@P "@P@PLTR1LTR2@PP @PeLAACTVTB  @PtLACOSIGN  @PLADAQUE  @PLAUTIFIL  @PT1IT3rKK (3T3KITT)0  1\T3  d@PpT333\K "T30KȤ 0 ̺ "@P0d00d0Ȗd0T\30Z<Ḳ !#T3Z0K̙$ ̒ !;TZK@P@ d fY 1 d l1T<3KITdRdS0̲d̳ d@Pk d (d lhT1 U !̻ Al@PTVܯ 1T1/00KK0 } v !o0T  d\@P0d\00do\10\3K֬ל UЬ O !H d d0ܔ @P f 13\K̩ ̣ ̝ ! lל  @Pn 13T=K@P@P d@P  3!m@P l lTT3KITZ 0dE dF d0GTE0l d  ;@PIl0 0l d f0 1T10eK0K !!3T3fK !\@PtK d0T  1 l l l\e0KI\VdfWdg d@Pd l nܬ 1\K̳ !)T33fK0̩ ̢ ̜ !@Pdd dT0K d lT$0KIT* lT3_ZK8 dp@PK &\K0I\\3K 1&\3KI\ d\3KK  3  l\K@P3 KI3\\-0K &\-K0I\Ta (+  (@PK-  ݔ& \(T " "1 T@PvK l d Ti1K lK  !d V @P0U ެߜ ddT33lT38vK@P G F E 0nH 0d0d dQ̜@P  dTt0K0K % dd 4 lx la T@P" "10  d` " lT3`q1` d f0 1 d@PMT10tK 0ld̮ !pT3f0K̤ [̝ !b l $ dTy@Px̐ T1q`1`LL $̴ \ 1 T02 ̎ \3@P  3\ܑ 1T3830T0K0\K\,k l @PlT3tKI Tb@PP@P3\33d$d d@P%=  3!n%@PTZ30K00K     2 lT0d &T@Pc@P@P3\330T!ˬ̜  ƬΜ \0\,00 !=H*d@PD\0Td  4\0"! 1b&w@Po0\T\#0T0̼H'l0\2 1   , d@PfAfB d l < d6l3l " ln @P " idd  l l f 1TOtKK "@PT330f\1fT33fK0 d ܤ 79T@PT 0\ 3T|Ep B >\3T,K̰ 1- d@PF T3K̟ $ l{\ \ 03\E \30K0K $ lcUdT@P3qKD@Pf@PvT@Pg@Pz d  l1lj@Ph @Pi@Pj@PT\3}8  3!o9@Ph@Pk$@P  6l lW@P@P@P@P $0U  6T0%Tl ldfVdg̿ !d @P l d1S l@Pld@PT3.0̥  l ld@Pmw@P\b3T#h@Pn@Pp@PTW@P@P@P0p TIZ3K d00QK % d ?@P@P̲ !%2BdCd $2dM3\3M03M ,l\B3MB0M l lm  3!pM@P;llllll 3# l l d0e@PWU@PUTH`PFLEGAL[PAMONTO-ADAYTO2AYERTO7PGMIN OPENFLFILERRLCLANXLDSPLYCCSGETvCCSMVAREADR CCSTIM!WRITER7CLOSFLqPCCSPUTICCSADICALJL;GETS \GETACFLNMSRCCCSCSTLCHEKQLCHENTILDAASCvLCHSCRCCSBLKUPDRECLEATRNwPLPCPRCLEACTSPAYENTVP PPLACTED F12 F LA CCS 3.0 SL-149@P hhT h h hT0 h 1\0@P. h h\0HTThhhh\hhhhPLACTED>PQ8PKUPDQ8PREPAEDIT CCSMVAP PQ8QBDS F23 F LA CCS 3.0 SL-149@P0LADLQMST  @P0LASCNFIL  @P0LATRANFL  @P0-LADLYASN  @P0@P8p@P8,@P8@P0  @P0  P PPLCHEKQ F25 F LA CCS 3.0 SL-149@PALL @P  7nH 0.U  0V  h h ( h @P0  h @P9 1 hȾ H TTh hPLCHEKQDPQ8PKUPJQ8PREPGP PkLCHENT F26 F LA CCS 3.0 SL-149@P DADCDFNARLCSEADSP1P2P3NQOASS  3!u@P h9 @P0  > h0T80  h)h׈h 1 ȼ ȹ  ȶ @PKȳ Ȱ  h Ȫ   hȡ HTThPLCHENTaPQ8PKUPgQ8PREPdP PLCHSCR F27 F LA CCS 3.0 SL-149@PL@PN @PN<@PDL@P3@,@P5UH'@P_@P8@PLAADDACT  @PLASREQDL  @P$LAUPHSCM  @P90Nl1E(@PH w  3!v@POT1I 95 2H   \3I  T@P3z333\33dd h fز 1 9T@PK̼ \$KK !0p T30K :3TK dI l̖ @PT0IKI06 \$I3KIT0Tl "T3\3TPKK @P 93 !T0l d03O\K ̳ l lT !̩ ! , l@P&G !A0DdM=LdN 8 dJ\1JMM GlT3O3;EL@P0QL 0#lTzM3J3TO 1T03@Po 3TO3f\f33O0K"h\@P3M03M\O33MMh\38OM@PMH 5@P3\E01T700Id5 \E340lٔ0 `@PTI3183LTY33 h<\ dJ f0 1T18K@PK !0#L 0p T30K !T0K \3188@P l dITIK0IT ldH!8K찖8 * 쩖9 -̤9hT@P3K8M@PQM : 2f̏:h\38E@PeJ  0d dd0nd0N     \@P3OM3MM lT3O3N l  l00dp4N,d 0dp<@P 0ȌlTT3I33MJ@P[  3!w@PTh0~@P@P0 4Tv To 6 3T'H$TThhhhh@PhQhc\ hjhv hd hh*?PLCHSCRPQ8PKUPQ8PREPCCSGETCCSMVAKOPENFLPUTS CLOSFLFILERR'LCLANX-LCHENTLDSPLYICCSADCCSCSTIDATVRaPLPKAMTsCCSPUTEDIT LSVTRNWTREADLEACTSLEATRNLPCPRCP PiLCLANX F29 F LA CCS 3.0 SL-149@PEX @PTZ03K\rK0\K\3K\00K 3\KR !? h 0f 1;T<@P1KK !T30K   !:T@P@P U ! d lfn ,3l\I3U3J l@P@P d} l lT3B}KITT3KHPLDAASCPOPENFLCCSMVA,READR CCSCSTGETACFGETS  CCSBLK9LACTED=WTREADALDSPLY[LCHENTgLEACTSvLEATRN|LPCPRCPFILERRLCLANXCLOSFLP /  3!y P(LDSPLY F38 F LA CCS 3.0 SL-149@P_@P99999999990000000000@P (@P @P  @PENTER ITEM,CHANGE OR NEXT FUNCTION OR ACTION,RESULT,LETTER REQUEST,COMMENTENTER NEXT F@P/UNCTION OR ACTION,RESULT,LETTER REQUEST,@PCCOMMENTINVALID REQUEST, PLEASE REENTER@PVJK;@Pa dB " Y<!9 =d0 d00d l)hTr\00KK0 @P " h 13TI333J@Ph  2h0՜ 2%h3T3 ܔܓ\@PҀh\@P3d]\33h\@P3 d^"! ,{ y @sKJp0dO8dMT@PO13MM^ ! \3OM1M^ "κ 1? #̓@PJ lY_\ dPd]Q dK3Tv3K l ul@PuT0T0 PllΑl dd Odd $8dM@Pl   T3OM10M ̝h\  3!z@P3OMM̔l՜ llM\ h hT@P@P T\3δ d^ l d 2 d ld] @P3\1 l@P@P@P@P d0MTI33M30J l1@Ph,@P, $ ld d00d0̒Vh̎Vh ̊UhT@PM@PP\V l@PV@PV L$]l3\10̏ lTv3\I33M30J0J \333 l@P d^T^`` #0l l̼9\1^`  l@ dM\^M@P3ll l̛1>\^` %1T^0ܿ@P@P@P d\K  l1T\3KIT@P  3!{)@P0 ' T & \E & \E & & 3dH@PX @P HTThhh\hhhh:PLDSPLYPQ8PKUPQ8PREPREADR WTREADCCSMVAICCSCSTGETACFfCCSBLKhLACTEDzEDIT CCSTIMCCSGETCCSPUTFILERRPLCLANXGETCHFP PLEACTS F39 F LA CCS 3.0 SL-149@P@Pm@P@P50617@P9:832@P 4;@P NA@P0uh   0h0 hlT0! hDf 1@P@Rd'Sd(0d$T1 Ƚ mȹ 0h h\ ȫ T3;%@P0k 1h\ ș Iȕ h1ؑ\   d& \@P $ ̷l0dM 1֜ 0%l\13M)3MT@P3$%300 %0l%  0   TfWJ  3!|=@P3E30 YlT 3TTK3  3\30 d\ @P/\\333G0l0F &00E  0#l h8;\ @PBu l 0l0TGh%\ "l3Tḑ$0lo0 7̙ 4 @Pm 6T @PvܙT133T330L L %\0m\ ̚0 0 _T@P1 & \0T1     \@P00l\1 \\1 \1 99 6 93 &T@Pq d d00  l 2l 21 0d&\3 ̝ @P"̘  lT  X l\1   T333 l;)\@P3M00Gl0̱F 0&0E  #0l du\3 uT3 %@PxT0%\ ̬  ̩ 1Tx3&d\ 0   T0@P00)0 ! 3\ 0dM0֜ $0\3T@3;M)M@P0$0 y% y0 \3333Ty̰ w3T) @P df 1 ddGlF %0E  8#l@P$d0TNGd0u\lTV0l$Ô0lo 8̵ 5 !3\0 \E@PO d0\00ڄl l1Tu13 3 \El̤d ǜ"̯lT38@Pzl d f 1\33)3& 1\3\333 T@PlTdK3T!v3K0 dQ l@P%@PZ9  3!}Q@P}@P@P@P@P0H   ܦT @P@P@P0d0H=PLEACTSPCCSBLKCCSGETCCSMVA_AVMVACCCSPUTLDSPLYICCSAD(ICALJL1LPKAMTCCSCST~IDATVRsJULCALuLSVTRNPUTACFP P.LEATRN F40 F LA CCS 3.0 SL-149@Pm@P@PFGHJK@PLMNOP@P QRSTU@PVWX@PNA@P0uh   0hT0!T000d$\d0%T3;$%w:  3!~e@PH 6 Ȳhh   ֔0  TE@P3s3 YhT0\3\3000 d0GlF %̛@PE ̖ #l0 h0\3T0Gh%\"lT3d$l@Po 7 4  6T4@P\3T3T3330L L $0\0\00 0 |T@P3q10\  0\3T3\ * 7 #@P2 $0\  d d0  l 2l 21 ̨d&T 9\@P]     \ ̽l\  AT338@P l0GlF &E  $d d\3@PT0 2\ \̸ T300  TV@P̺0 ̔ \  < 0l\0 $l@P T33)0$ 0w%0 w0  39\33\0 @P4u\33000 d0GlF &E  #8l @P_d\3T0Gl\lT3d$l0o 8 5  !5@PT0\E0 d3\l0 lT 00\El̘l#̦d@PT30d l0Df0 ܯ 1Rd'Sd( lfܜ 1T{@P\33)3& 1\3\3330lTdK;T!v@P0 K dQ l@P-@PR$  3!y@PW@P0H   ܘT@P^"@Ph"@P0"d0HPLEATRN)PCCSBLK0LDSPLYAVMVACBCCSMVACCSPUTICCSADiICALJLqLPKAMTCCSCSTCCSGETIDATVRJULCALLSVTRNPUTACFP P[LNMSRC F51 F LA CCS 3.0 SL-149@P@P@P?0#<@P @PB@P END OF SEARCH@P@P dgfhl0h h " h  hTq0T13q h@P0Fpf0e 1 h "ȽhTI3330JT3Zf00KK0  "@Pq TO VIEW ADDITIONAL ENTRIES  @P INVALID ITEM # - MUST START OVER, ENTER AND TRY AGAIN  @P .INVALID ACCOUNT # - RE-ENTER ACCOUNT # OR TO BEGIN NEW ENTRY  @P xINVALID TYPE - RE-ENTER TYPE OR TO BEGIN NEW ENTRY  @P INVALID DATE - RE-ENTER DATE OR TO BEGIN NEW ENTRY  I  3!@P AMOUNT INVALID OR TOO LONG - RE-ENTER AMOUNT OR TO BEGIN NEW ENTRY @P INVALID CREDIT SIGN MUST START OVER ENTER CARRIAGE RETURN  @P INVALID FORMAT - MUST START OVER, ENTER AND TRY AGAIN  @P 1INVALID FUNCTION - RE-ENTER FUNCTION DESIRED  @P VNO DEFAULT ON LGL/AGY# -MUST START OVER, ENTER AND TRY AGAIN  @P {ROUTINE ABORTED--NO UPDATE TO MASTER RECORD - CARRIAGE RETURN TO ABORT @P -TJ \ \ T 7  d G dhT Eȥd TG\I 07 @P X&8  /9 : ; 0 \I 1\I P @P d  d L  K ܬ̫d p4 ,dd pJ ,   ? (l\J ,   }l  Jl  Kl  Ll  M@Pcl  Nl  Ol  Pl  Ql  RlTq  ̡ lTJ ,   ̲@P ̭ ̨ ̣ ̞ "T   \   \ @P  \  \    *l P lp4 , dd @Pp<lp<,dd p<lp<,dd p<lp<,dd 0d , 0@Pd 0l 0ȌdT   (d OR\ &   \  :l@@P:\ &   \  Ll.\ &   \   ^l\ &   @Pe\  pl \ &    d T;     lT~   1@PT . & T  & \     d .  l  l  l@P  l  l̻  l̵  l̯  l̩  l\  & \@P ! " & d  d T}   ,T   &    d ,\ , @P  l\  & l l 1)TH\I0 0 : xz  3!@P<< @P D@P .D@PDl @PFH@PHT!l\ $ #l =TJ   d D  ;\J    l5 -@Ps;\J    l' <;\J    l K;\J   l l@P\J   T'G@P @P @P d T"  lT1     lT  "ܝ 11\   \@P   \* d \    l\  *ܻ 1  I @PTV H * ܠ \  ̧ ܕ\  , ܍1܌\  ̔   @P,T    ) d ,\1 ,   \  - l1\  - \G @PW- l \E - 1 \   QܻT0 d $ d \  ̳ ̰@P ̭ T  0̤  lܘ 1  $\ %0T-     @P   T1 5TI 0 \I V z\" /@P T1Z /00KK0   1T &K0IT\I . J\@P "  ,5 1\I x̬ 0\ ,  '-!!!@P. (.!! )/= 9 *$ TI0  T J  3! @PY- ޔ +GlT0 T  =   \  0 1\I @P\ 0 d $ d T0   l  !  1@P\5  ̽  TKI 0 @P4@P0p  d  l" d ,TkJ , 7    lTUJ ,@P1  \ E   d )l\J ,  E (lTJ ,   }l  J@Pl  Kl  Ll̽  Ml̸  Nl̳  Ol̮  Pl̩  Ql̤  Rl @PG (d ,T  ,J l\J , 1 ,  lTJ ,   l\J ,  !  l\@PrJ ,     \= 1   \?    \A1   ޔ @P\C1   Ӕ \E   T̓ *l  @PB@PTI0 { bHbPPAYENTPCCSBLKqCCSMVA]CCSTIM GLDSPLYCCSGETCCSPUTKCCSADDICCSADIREADR FILERRLCLANXLPKAMTeCCSCSTLSVTRNP P WLAFUPD F14 F LA CCS 3.0 SL-149@PTTT0 TTTT33 : < ) :3 < . . \33 : < '30 : < .  \@P3+ : < %30 : < . 'T0 T300 13T H3 -\ lT 03; ; : @PV :T0 o\33 : < + :3 < .̶  T B3\ 0 ; 30 : :\0 W TTTTT@P33̻ 3'\ E3 -T \ 70 / T\\\3\̝ &\3; H -U  3! @P\\ T\\\T3= '3TG H3 -\\0 9H/PLAFUPDPUPINITLABHANNXTRANTOTALP UPDENDGETMASCCSCSTRSWIT 6UPDRECFILERRCCSADDPPRTLINXFORMLNgLAUNCUyPCONUPD{ADDIT }COSUPDWRITERUPDIT REACITP P WQ8QBDS F16 F LA CCS 3.0 SL-149@P8 601@P0 70360@P8@P8 / @P0 000000000000@P0 000000000000@P8 @P0 - ACCOUNT ALREADY IN ACCAGE @P0  CO HOST @P8 5 @P8 @P0 TRAN ACCOUNT BORROWERS DELINQUENT DELINQUENT C@P0 URRENT @P0   3! -@P0 CODE NUMBER NAME DATE AMOUNT P@P0 AYOFF ACTION @P0 " @P0  @P0 @P0  @P8@P8 @P8 @P8@P8 @P0 <-- HDR1 FROM UTILITY FILE GOES HERE -->  @P0  @P0  @P0 <-- HDR2 FROM UTILITY FILE GOES HERE --> DAILY MASTER FILE UPDATE REPORT @P0 H PAGE @P0 \ @P0 _<-- HDR3 FROM UTILITY FILE GOES HERE --> <-DATE->  @P0 @P0 v  3! A@P0hLAADDACT  @P0LAACCAGE  @P06LACOSIGN  @P0 LADLQMST  @P0LAINACCT  @P0UPDINPUT  @P0UPDPRINT  @P0LARSWFIL  @P0LATRANFL  @P0LATRNBCK  @P0XLAUTIFIL  @P8 @P0 FHDR1@P0 HUPDY@P8 B@P8 w@P8 e@P8 @P8 @P8 s  3! U@P8 @P8 @P8 2@P8 Y@P8 @P8 @P8 _@P0 00000000001@P0 000000000000@P0 000000000000@P0 000000000000@P0 000000000000000000000000000000000000@P0 000000000000@P8 9@P8 :@P8 ;@P8 <@P8 =@P8 >@P8 ?  3! i@P8 @@P8 A@P8 B @P8 C @P8 D @P8 E @P8 F @P8 G@P8 H@P8 I@P8 J@P8 K@P8 L@P8 M@P8 N@P8 O#@P8 P(@P8 Q7@P8 RB@P8 SP[?  3! }@P8 TR@P8 U`@P8 V@P0 000000000000@P8 ;@P8 #@P0 000000000000@P0 000000000000@P0  @P0  @P0J @P0^  @P0 @P0  @P0 @P0  @P0 @P0  @P0F @P0Z  7  3! @P0 @P0  @P0 @P0  @P0 @P0  @P0B @P0V  @P0 @P0  @P0 @P0  @P0 @P0  @P0> @P0R  @P0} @P0  @P0 @P0  %  3! @P0 @P0 @P0E@P0@P0g@P0@P0w@P0@P0@P0@P0%@P0@P0@P8 D@P8 &@P8 2@P8 @P8 )@P8 @P8 M8  3! @P0 n000000000000000000000000000000000000@P0 J000000000000000000000000000000000000@P0 \000000000000000000000000000000000000@P8 @P8 @P8@P8 @P8 @P8 w@P8 k@P8 @P8@P8 @P8 @P0 + @P8@P0 %301 @P0 '302 @P0 )303 @P8 5h  3! @P8 @P0 000000000000@P8@P0 000000000000@P0 000000000000@P0 000000000000@P8 P P WiLAUNCU F17 F LA CCS 3.0 SL-149@Pi@P@Pg@Pj@P!@Pkk@@PE@P' @P@Pkk@PqqCV  3! @Pww @P @P @P@P @P @P@P@P@P@P@P@P@P@P(@P@P@P@P@P  3! @PT 33 : ? 03 ?\ ;3 ? ? h!( ( hʖ ʑ !ۀh׀h@P3Ӏhπh\@P?@PB0 1\ : :T0\ :1 :\1HPLAUNCUePCCSMVA CCSPYTQP P2Q8QBDS F78 F LA CCS 3.0 SL-149@P8@P8@P0000000000000000000000000000000@P8 @P8@P0 TRAN ACCOUNT  @P0 @P0 @P0 CODE NUMBER NEW DATA OLD DATA  @P0 ACTION @P0 @P0;  X  3! @P0f @P0z  @P8@P8 @P8@P0 <-- HDR1 FROM UTILITY FILE GOES HERE -->  @P0 @P0 @P0<-- HDR2 FROM UTILITY FILE GOES HERE --> DAILY MASTER FILE NON-FINANCIAL UPD@P0%ATE REPORT PAGE @P09 @P0<<-- HDR3 FROM UTILITY FILE GOES HERE --> <-DATE->  @P0g @P0{ @P0LAADDACT  @P0|LACOSIGN  @P0LADLQMST  @P0UP4INPUT  @P0UP4PRINT  @P0ULAUTIFIL  t  3! @P8@P0HDR1@P8B@P8@P8@P8@P0 0000000001@P0000000000000@P0000000000000@P8@P8 @P8!@P8"@P8#@P8$@P8%@P8&@P8' @P8( @P8) '  3! 1@P8* @P8+@P8,@P8-@P8.#@P8/(@P80P@P81@P0000000000000@P0  @P0G @P0[  @P0 @P0  @P0 @P0  @P0 @P0  @P0C @P0W   3! E@P0 @P0  @P0 @P0  @P0 @P0  @P0? @P0S  @P0~ @P0  @P0 @P0  @P0 @P0  @P0; @P0O  @P0z @P0  @P0 @P0   3! Y@P0 @P0@P0d@P0@P0@P0@P0@P8@P8@P8@P8@P8 P PZLA83 F83 F CCS CCS 3.0 SL-149@PTPZLA83 PQ8STP PZLA83 PZLA84 F84 F CCS CCS 3.0 SL-149@PTA  3! mPZLA84 PQ8STP PZLA84 PZLA85 F85 F CCS CCS 3.0 SL-149@PTPZLA85 PQ8STP PZLA85 PZLA86 F86 F CCS CCS 3.0 SL-149@PTPZLA86 PQ8STP PZLA86 PZLA87 F87 F CCS CCS 3.0 SL-149@PTPZLA87 PQ8STP PZLA87 PZLA88 F88 F CCS CCS 3.0 SL-149@PT  3! PZLA88 PQ8STP PZLA88 PZLA89 F89 F CCS CCS 3.0 SL-149@PTPZLA89 PQ8STP PZLA89 PZLA90 F90 F CCS CCS 3.0 SL-149@PTPZLA90 PQ8STP PZLA90 PZLA91 F91 F CCS CCS 3.0 SL-149@PTPZLA91 PQ8STP PZLA91 PZLA92 F92 F CCS CCS 3.0 SL-149@PTu  3! PZLA92 PQ8STP PZLA92 *T __mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmۄ  3! mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm7  3! mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm7  3! mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm7  3! mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm7  3! mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm7  3! mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm7u  3! !mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm7`  3! 5mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm7K  3! Immmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm76  3! ]mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm7!  3! qmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm7  3! mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm6  3! mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm6  3! mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm6  3! mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm6  3! mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm6  3! mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm6  3! mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm6y  3! mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm6d  3! %mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm6O  3! 9mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm6:  3! Mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm6%  3! ammmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm6  3! ummmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm5  3! mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm5  3! mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm5  3! mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm5  3! mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm5  3! mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm5  3! mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm5}  3! mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm5h  3! mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm5S  3! )mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm5>  3! =mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm5)  3! Qmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm5  3! emmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm4  3! ymmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm4  3! mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm4  3! mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm4  3! mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm4  3! mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm4  3! mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm4  3! mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm4l  3!mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm4W  3!mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm4B  3!-mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm4-  3!Ammmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm4  3!Ummmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm4  3!immmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm3  3!}mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm3  3!mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmALP CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm PCOMPAY G01 R LA CCS 3.0 SL-149PR9BASER9FBSER9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS PR9MZERR9MONER9MNINR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9INVPR9SNHLR9FRCD@PkK[\`@Nal@@ @P+|@Z{[llP]}M]\Nkk``Kaazzm^L~~@PVnnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghh@Piijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L  3!@Pp@D@@Pqz@Pz!@P{8@P@E@W@ii@Pp@PD@P@P!@P@@@P8@PA@@P8@PQ@@P8@P~@K@P8@P@P@PD@P!J  3!@P! @K@P8 @Pu@z@P8@PՀ~~@P@PD@P@P!@@P8@P@P@PD@P@P!@a@@@{@P8@P Z@Z@ @P@PD@PpR  3!@P! @@P8 @P#1@@P#8 @P,E@P,8@P2W@P28@P7i@P78@P=i@P?@P?`@P@D@PD!E@PE8@PKW@PK8@PPi@PP8q  3! @PVi@P?X@PX@PY[@P[! @@P\8 PR9FTNX$R9LABL#R9OTBG&R9EOTT'R9DOTTR9TOTTR9PAGER9FTOVR9BINTR9ZCODR9YCODR9XCODR9EDCN@Pd@E@W@ii @@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@ %G @Pڀ)) )%)*)/)4)9*?*E*KMQaPR9ECODR9FSTLR9FNBGlR9ALSQR9CARAR9MARAMHLD01R9UDATmR9UMTHoR9UDAYpR9UYERqR9FDTBPR9RPRTMHLD01!PR9RPGX*T PDIRPAY G02 R LA CCS 3.0 SL-149PR9BASER9FBSER9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS PR9MZERR9MONER9MNINR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9INVPR9SNHLR9FRCD@PkK[\`@Nal@@ @P+|@Z{[llP]}M]\Nkk``Kaazzm^L~~@PVnnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghhB  3!@Piijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.LR9MMST GR9MHLDR9INMK HR9CLBG QR9DETL RR9TOTL SR9LSTR T@P 9@ D@ @P d@@@@@P h@P k@@@@@@@@@P m@P r@@@@@@@@@P t@P yZ   Z Z Z@P Z      2 (Z@P ( ((   | D@@P @P ! 2@ 2\\\ZZZ@@P 8 @P2@@@ɀ"  3!E@P8@P @3@@R 2@d2l\\\ZZZ@@P8@P$2|@@@P&8@P0|@P 2@P2@D@@P3=@P=!@P>8@PC@R@dd@P2I@PID@PJU@PU!@P@@@PV8@Pc@@@Pc8@PmP@,  3!Y@Pm8@Pw~@K@Pw8@P}@PI@PD@P@P! @K@P8 @Pu@z@P8@P~~@P@PD@P@P!@@P8@P@P@PD  3!m@P@P!@a@@@{@P8@P@@P@PD@P@P! @@P8 @P1@@P8 @P?@P8@PR@P8@Pd@P8@Pd@P@P@S_  3!@P@P! 2@ 2\\\ZZZ@@P8 @P2@@@ɀ@P8@P@3@@RR@P&@P&`@P'+@P+!R@P,8@P1d@P18@P7d@P&9@P9@P:<@P<! @@P=8 PR9FTNX R9LABL R9OTBG R9EOTT R9DOTTR9TOTTR9PAGER9FTOVR9BINTR9ZCODR9YCODR9XCODR9EDCN^  3!@PE@R@dd @@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Pp @@@@@@@@@@@@@@@@@@@@ %G @P)݀)))**)PR9ECODR9FSTLR9FNBGKR9ALSQR9CARAR9MARAMHLD01R9UDATLR9UMTHNR9UDAYOR9UYERPR9FDTBPR9RPRTMHLD01!PR9RPGX*T PINVCLI G03 R LA CCS 3.0 SL-149PR9BASER9FBSER9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS PR9MZERR9MONER9MNINR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9INVPR9SNHLR9FRCD@PkK[\`@Nal@@ @P+|@Z{[llP]}M]\Nkk``Kaazzm^L~~@PVnnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghh@Piijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L@P@P@P@P@P@P@P@P@P@ @ @ "@ D 2D8@P@P@P@P@P@P@" @" @ " @ "@"@P@P@PPR9XLATR9PFCBR9DSEQYSETLMR9RCADR9TBIOR9INTAR9TBOTR9ITLPR9INIGR9IPBGR9FDC1R9BINPq  3!PR9TRALR9LAHDR9CMOVR9MMOVR9NSQRR9CMSTR9MMSTR9MHLDR9INMKR9CLBGR9DETLR9TOTLR9LSTR@P@@ @P  !"#@P4$@@@@@P7@P:%@P<@P?&@PA@PD'@PF@PI(@PK@PN)@PP@PS*@PU@PX+Z % %   (# &@P         @P     (((1  3!@P( (!("Z($ $(($   '@P ,  ( -  ) . */@P/ +0[@D@@PAJ@PJ!@PK8@PP@ZZ@P@T@PTD@PU_@P_!@P@@@P`8@PmH@@Pm8@Pw~@K@Pw8@P}1@PT@PD@P  3!@P! @K@P8 @PI@a@P8@Pu@z@P8@P~~@P@PD@P@P!@@P8@P@P@PD@P@P!a@@{@P8 @P@ @Pw  3!@PD@P@P! @@P8 @P1@@P8 @PE@@P8 @P]@@À@P8@P]@P@P@@P @P !@ @ 3 B@ZZ@P@P`@P@P!E@@P8 W  3! @P#E@P%@P%`@P&*@P*!@@@P+8@P5*@@@P58@PCH@@@PC8@PN[@@PN8 @PW[@P%Y@PY@PZ_@P_!@ @,1%\\@@@Pg8@Pr0@@\\@Pt8  3!!@P{HA@[[@PY@P@P@P!@ @-1%\\@@@P8@P0@@\\@P8 @PHA@[[@P@P@P@P!@ @.1%\\@@@P8@P0@@\\@P8 @PHA@[[@P@P@P?  3!5@P!@ @/1%\\@@@P8@P0@@\\@P8 @PH A@[[@P@P@P @P !@ @01%\\@@@P 8@P 0@@\\@P 8 @P H!A@[[@P &@P &p@P ' ,@P ,!+`@@`@P -8@P 8H"A@[[@P & >'"  3!I@P >`@P ? C@P C! @@P D8 PR9FTNX=R9LABL>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.LZ\\\@@P>8@PEZ@P(G  3"@PG @@PHN@PN1@ <@@@@PQ8@P^Z\\\@@P^8@PeZ`@Pk@Phl@Pl1A\\\@@@@\\\@Pm8PR9LSTRUR9FTNXVR9LABLUR9OTBGXR9EOTTYR9DOTTR9TOTTgR9PAGER9FTOVR9BINTR9ZCODR9YCODR9XCOD@PzA @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PR9EDCNR9ECODR9FSTLR9FNBG|R9ALSQR9CARAR9MARAMHLD01R9UDAT}R9UMTHR9UDAYR9UYERR9FDTB@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ .@Pb  ;""#####'#@#^#b#f#j#n#r'#'#'#PR9RPRTMHLD01!PR9RPGX*T  3"- PLCOLCG G08 R LA CCS 3.0 SL-149PR9BASER9FBSER9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS PR9MZERR9MONER9MNINR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9INVPR9SNHLR9FRCD@PkK[\`@Nal@@ @P+|@Z{[llP]}M]\Nkk``Kaazzm^L~~@PVnnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghh@Piijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L@PGN  3" A@P@P@P@P@P@P)@P@P@@@@ B..B$Ā@P$@P//N$@P$@P//N/$@P$@P //N? cq /   !!! ! PR9BINPR9TRALR9LAHDR9CMOVR9MMOVR9NSQRR9CMSTR9MMSTR9MHLDR9INMKR9CLBGR9DETLR9TOTLB@P4( (   T@PJ X$@PGN@PN @(E}@@@@PS8  3" U@PaM@Pa8@Pgx@Pg8@Pk}}@PFo@Po T@Ps X$@Pp{@P{ /@(;@@P8@PDD@Po@P T@P X$@P@P ?@((@P@P  T@P X  $  3" i@P@Pրz@P8 @P@@**@P@P  T@P X  $@P@P@@P8@P<@`@P8@PO@@P8@Pr@@P8@Pr@P@P@PQ  3" }@P@ H 2<@P8@P<Հ@P8@P >@P8 PR9LSTRCR9FTNXDR9LABLCR9OTBGER9DOTTFR9TOTTR9EOTTR9PAGER9FTOVR9BINTR9ZCODR9YCODR9XCOD@P@ _@  p@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@PZ@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PR9EDCNR9ECODR9FSTLR9FNBG R9ALSQR9CARA R9MARAMHLD01R9UDATLR9UMTHNR9UDAYOR9UYERPR9FDTB@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ i '        @P    ' ,PR9RPRTMHLD01!PR9RPGX*T PLCOLST G09 R LA CCS 3.0 SL-149PR9BASER9FBSER9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS PR9MZERR9MONER9MNINR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9INVPR9SNHLR9FRCD@PkK[\`@Nal@@ *  3" @P+|@Z{[llP]}M]\Nkk``Kaazzm^L~~@PVnnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghh@Piijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.LD "?@P@P@P@P@P@P@ A6 $Ā@P$@P  !$Ā@P$@P  "$Ā@P$@P  # r$À@P$@P r zZr rrr$@P$@P r zZr rrrrr$r%@PA$r&rr rq &[q[zq[q(&@Plq qH&q H&qH&=>?A$%'@P P'($'( h$( h$(  h$' P'o  3"PR9BINPR9TRALR9LAHDR9CMOVR9MMOVR9NSQRR9CMSTR9MMSTR9MHLDR9INMKR9CLBGR9DETLR9TOTL@P…($'( h$( h$(  h$r( r@P (#r#)r#@@@@P@P*r#)r#@P @P*rrFrFrFr+r2&r2$r2@P<'r2r((+r( +2r(2r($r('r  H'@PgP$r  X$r(  x'r#6r6 H$r6 H$ro '(@Pr(r,P&r- P&r.P&r/ r#H&r(/h&@Pr/P&r(0P&rGrGrGr'r(&r@@@@@P@P `&)r) &)r)rHrHrHr()rr@@@@P@P *rrq$%qo($q%$C$4@P36@P6 H HH  d@P@P@F@PF@!(H@PJ8R  3"@POH@PQ8@PVHӀ@PX8@P^H@P?`@P` d@P@Pag@Pg@"(M@@@Pj8@PwS@Pw8@P|{@P|8@P1@P`@P d@P@P@P@#(E@z@@P8x  3"@PMM@P@P d@P@P@PIՀ@P8@PI@P8@PI@P@P d@P@P@P@@@P8@P @ /@! ?@' O@- _@3 o@9 @? @E @K @Q @@PW /@] ?@c O@i _@o o@u@*`@P @P @P ['\\\`@@P8  3"@P[6@@ـ@P8@P&6@P(@P(`@P,@P).@P.)\\\@@@@P/8@P= :@`@@@ـ@P>8@PI :@`@@@@PK8@PV:@PX@PX t@P@PY`@P`@-D,   / ! ? ' O - _ 3 o 9  ?  E  K @P Q  W / ] ? c O i _ o o u/@PXY9  3" @P@@P@P@P@P8@P   / ! ? ' O - _ 3 o 9  ?  E  K  Q  @PW / ] ? c O i _ o o u0@P(@P`@P@P@P @P L\\\@@@@\\\@P 8PR9LSTR)R9FTNX*R9LABL)R9OTBG1R9DOTT2R9EOTT?R9TOTTR9PAGER9FTOVR9BINTR9ZCODR9YCODR9XCOD@P LN@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@t@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P :@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P e@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  3"@P <@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P g@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P >@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P i@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P k@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@((@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P m@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  3"1@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@d @P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ,4@Po@P@P@P@P@PF@Pq@P@P@P@P@PH@Ps@P@PK  3"E@P@P@PJ@Pu@P@P@P@P!@PL@Pw@P@P@P@P#@PN@Py@P@P@P@P%&$  3"Y@PP@P{@P@P@P@P'@PR@P}@P@P@P@P)@PT@P@P@P@P@P+@PV@P  3"m@P@P@P@P-@PX@P@P@P@P@P/@PZ@P@P@P@P@P1@P\ ,L@P@P@Pc  3"@P@P3@P^@P@P@P@P @P5@P`@P@P@P@P @P7@Pb@P@P@P@P@P9kT  3"@Pd@P@P@P@P@P;@Pf@P@P@P@P @P =@P h@P @P @P @P!@P!?@P!j@P!  3"@P!@P!@P"@P"A@P"l@P"@P"@P"@P#@P#C@P#n@P#@P#@P#@P$@P$E@P$p@P$@P$@P$  3"@P%@P%G@P%r@P%@P%@P%@P&@P&IL@P&tM1,N@P&@P&@P&@P' @P'KV5@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P'v@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P("@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P(M@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@I`  3"@P(x@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P(@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P(@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P(@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P)$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P)O@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P)z@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P*&@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P*Q@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P*|@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@(XH@@@@@P+(@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P+S@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P+~@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@J  3"@P+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@d X@P,*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P,U@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P,@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P,@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P,@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@ @@@@@@@@@@@PR9EDCNR9ECODR9FSTLR9FNBG R9ALSQR9CARA R9MARAMHLD01R9UDAT,jR9UMTH,lR9UDAY,mR9UYER,nR9FDTB- @P-@@@@@@@@@ 8g0 V |  , 4 4LΠMM<N VL XT@P-, XԀX؀XڀX܀X'YY&YFYUYVYWY[Y]Y`YcYf'Y'Y'YހYY@P-WYYYYYYZZZ ZZPR9RPRTMHLD01!PR9RPGX*T PLDALST G10 R LA CCS 3.0 SL-149PR9BASER9FBSER9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS PR9MZERR9MONER9MNINR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9INVPR9SNHLR9FRCD@PkK[\`@Nal@@ @P+|@Z{[llP]}M]\Nkk``Kaazzm^L~~@PVnnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghh  3"@Piijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L@P@P? ?>@P  3""5@P >  H=H=@A@BACA BH= BH= CH= CH=O@P =(= !c!c(<_ < < zz/8 zPR9TRALR9LAHDR9CMOVR9MMOVR9NSQRR9CMSTR9MMSTR9MHLDR9INMKR9CLBGR9DETLR9TOTLfR9LSTRg@PD ;DP;DH;DH; ;&(;&< HD@PoH#GLd@Py}@P}1 \\\\\@P~8@P9%@@@P8@P+@P8@P@811@Px@P @P@P1@4) J@@@P8@P P@P8>  3"#I@P @8VK@@@P8@PTՀ@P8@Px@P8@PՈE}}@P@P@P@P1@5)D@րz@P8@PMM@P@P@P@P1@6))@P@P4@P  3"$]@P1@)A@@P8 @P-Uva@Ā@P8@P.@P@P4@P@P1@?@@P8@P#aap,Rr@@P*8 @P2aap*@P;@P;4@P<@@P@1@ G@@P@K@PC8@PN ``p$TU`@PW8  3"%q@PZ@%Ynɀ@P\8@Pb@+@P;f@Pf4@Pgk@Pk1@!?K@@Pn8@Pu@&ff@Pfy@Py4@Pz~@P~1@"@#GK@@P@K@P8@P ``p'TU`@P8@P@(YY@Py@P4@P  3"&@P1@@@@P8 @P"@@@@P8@P1`@P8 @PK\\\\\@@@@\\\\\@P8@PK@P@P4@P@P1 aat D  D  D D - Dmm@P@P4@P@P1 /aat /D  /D  /D /D - /Dmm@P@P4@P  3"'@P1 ?aat ?D  ?D  ?D ?D - ?Dmm@P=@P=4@P>B@PB1 Oaat OD  OD  OD OD - ODmm@P=b@Pb4@Pcg@Pg1+\\\\\\\\\\\\\\\\\\\\\\\\@Ph8@PvC\\\\\\\\\\\\\\\\\\\\\\\\@Pv8@P[\\\\\\\\\\\\\\\\\\\\\\\\@P8@Pp\\\\\\\\\\\\\\\\\\\\\@P8@Pp@Pb@P@@P  3"(@P1@@P@P@P@P1@@P8 @P@ 4@@@@P8@P@@P@P@P@P1+\\\\\\\\\\\\\\\\\\\\\\\\@P8@PC\\\\\\\\\\\\\\\\\\\\\\\\@P8@P[\\\\\\\\\\\\\\\\\\\\\\\\@P8@Pp\\\\\\\\\\\\\\\\\\\\\@P8j  3")@P p`@P @P1@@P @P`@P@P@P1@@P!@P! @P%@P"(@P(16\\\\\@P)8@P.O@@z@P.8@P<7V\\\\\\@P>8@PC\@P!Eh  3"*@PE`@PI@PFJ@PJ1@@PEO@PO`@PS@PPT@PT1@@POY@PY @P]@PZ^@P^1/\\\@@@ɀ@P`8@Pn//@`@@\\\@Pp8@P{ /O`@@@@`@P}8PR9FTNXhR9LABLgR9OTBGwR9EOTTxR9TOTT R9DOTTR9PAGER9FTOVR9BINTR9ZCODR9YCODR9XCODR9EDCNHO  3"+@PO)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@d@P*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P4@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P_@@@@@@@@@@@@@@@@@@**@@@@@@@@*@@@@@@@@+@@@@@@@@+@@@@@@@@@P@@@@@@@@+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@,@@@,@@@@P @@@`@kk@@@@@@@@@@@@@@@`@@k@@P6k@@@@@@@@@@@@@@@@@`@@@@@@@@@@@@@@@@@@@@@@@@@@Pa@@@@@@@`@@-@@@-@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@-@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@-@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@. @P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P8@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Pc@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@ @@P@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@x  3",@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@ Ln ( R) G)h *Ԡ* * + + + 7, , ;@P:- - - - .......'.D.T.X.h..... ..@Pe/ / / ////#)/()/-;/i/l/o/p/r'/'/'/////@P///000 00$0(00PR9ECODR9FSTLR9FNBGR9ALSQR9CARAR9MARAMHLD01R9UDATR9UMTH R9UDAY R9UYER R9FDTBPR9RPRTMHLD01!GETACRsPR9RPGX*T PLDTLST G11 R LA CCS 3.0 SL-149PR9BASER9FBSER9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS PR9MZERR9MONER9MNINR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9INVPR9SNHLR9FRCD@PkK[\`@Nal@@ @P+|@Z{[llP]}M]\Nkk``Kaazzm^L~~@PVnnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghh@Piijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L@?@@DA@B@C/@DM@Ek@F@GDH@I@J@K@L@M@N@ODP@Q@R@S@P_DT@UDV@W@XDY@Z@["@\'D]+@^1@_@`@a@b@c@d0@eDDfIDgODhX@PDi^DjdDkjDlpDmvDnDoDpDqDrDs@tDu@v@w@xDyDzD{@|D}D~@PDD@P'@P@P@P@PPR9XLATR9PFCB~R9DSEQYSETLMR9RCADR9TBIOR9INTAR9TBOTR9ITLPR9INIGR9IPBGR9FDC1R9BINP@P@@ .$@P$@P N $@P$@P N/ $@P$@P N? @P   3"0M@P @P@P.  SQRVTU WX   @P)@P+ < @P1@P3<   :@PG@PI GQ@PN@PP OR :@P\@P^ S@Pc@Pe T@Pj@Pl )U@Pq@Ps ,V@Px/  3"1a@Pz 5W@P@P 8X : @P@P     = @P@P @P@P VN  VN/  VN?  V/NO  V@P?N_  VONo  V_N  VoN  VN  @PVN  VN  VN/  VN?  V/NO  @P@V?N_  VONo  V_N  VoN  VN@Pk  VN  VN  VN/  VN?  V/@PNO  V?N_  VONo  V_N  VoN  PR9TRALR9LAHDR9CMOVR9MMOVR9NSQRR9CMSTR9MMSTR9MHLDR9INMKR9CLBGR9DETLR9TOTLR9LSTR@PVN  VN  .. FFz!@PD@P@P!@<@P2  3"2u@P @P@PA @ )C@ـ@P8@PL@P8@Pgz@P8 @P@;l@P$8@P(@P,@P,@P-2@P2A /@ )=@@P78@P< FF@P,@@P@@PAFe  3"3@PFA ?@ ))@P@M@PM @PNR@PRA @PS8@PY'@PY8 @P`1@P`8@Pd9ր@Pd8@PhG@@Ph8@PoPŀ@Po8@Psf@@@Ps8@P}q@P}8  3"4@PvـK@P8@P@Հ@P8 @P@PM@P @P@PA K@P8@P(@րK@P8 @P1ـK@P8@P;@P8@PF@P8@PP@P8j  3"5@PY@P8@Pg@P8@Po@P8@Pv@P8@P@@ɀ@P8 @P@P@P @P@PA@@@S*@v1@w;mHaapkRaapf\gh@UoHuvr@P@P@@P@PA@P8  3"6@P@B0B@Ā@P8@PHADb@@P8 @P@K@P @P @P!%@P%A @@P&8@P-@C0F@@K@P/8@P; ``pTR`K@@PD8 @PL@L@P P@PP @PQU@PUA @@PV87  3"7@P]@D0CK@@ŀ@P_8@PiHsEcaa@Pk8 @Pt@Mz@N@PPz@Pz @P{@PAaa@P8 @P@E&@F0>@ŀz@P8 @P Q ``pHK QL`@P8@P@JPQ@IMd@z@P8@P R ``pPr Rs`@P8@P@RwR@Qtw@Pz#+  3"8@P@@P@PA @P8@P@P8@P"@@P8 @P+@P8@P1@P8@P@@@P8 @PN@@P8 @Pd@@@P8@P@b@P   3"9@P @P @PA@P8@Pր@P8@Pր@P8@P"@@@@@P8 @P$*ր@P$8@P(2Ӏ@P(8@P,>@@P,8@P2N@@P28 @P9d@@@P98@  3":@PD@c@P H@PH @PIM@PMAaapV @W@xHyHzH{"@^(@X1aap~>N`aa@Pl8 @Pu@dz@e@PH{@P{@@P|@PA @P8@P@P8@P+@@P8 @P9@ƀ@P8 @PE@P8  3";)@PN@P8@Pe\@\@@@@@@@@@P8@P@@@@@@@@@@@@P8@P\@\@P8@P@P{@P @P@PA @P8@P@P8@P+@@P8 @P6@P8&  3"<=@PBKK@P8@PP@@P8@PP@P@P @P@PAn oaapp'q9@ZBaapP@|@P@P@@P@PA@P8@P!@@P!8@P'׀@P'8@P+*@@P+8  3"=Q@P13@P18@P5@@P58@P:S\@\@\@\@\@\@P:8 @PBf@@@@@@@@@PB8@PMw@@@@@@@PM8 @PV\@\@\@\@\@\@PV8 @P^@P`@P` @Pae@PeA@Pf8@Pj@Pj8  3">e@Po@Po8@Ps)@@Ps8@Px3@Px8@P}C@@P}8 @P@_@P`@P @P@PAaaph aapiaaplaapj*@\3aap]A@`@P@P @P@PA@a@P@P@P@P  3"?y@PA@@@@@@@@@P8@P@@@@P8@P,@@@@@@P8 @P<@@@@@@@P8 @PT@@@@a@@@@@@P8@P[@@@P8@Po@@@@@@@@@@P8@P@@@K@@@@@@@P8@P@P@P P@P#  3"@@PA@@?@UH[ S```pnS@k T```pT@!@PE@PH@PH P@PIN@PNA@$@%?@&UH'[ U```p(nU@*k V```p+V@-@Py@PH|@P| P@P}@PA@0@1?@2UH3[ W```p4nW@6k X```p7X@9@P@P|@P @P@PA @ )K@@P8@Pg@P8 @P@;l&  3"A@P8@P؈@P@P@P@PA /@ )?@@P8@P HH@P@P@P@PA ?@ ))@P@P @P@PA @P8@P #@P 8@P+  3"B@P8@P3@P8@P;@P8@PF@P8@P&W\@\@\@\@\@\@\@\@P&8@P0o@@@@@@@@@@@@@@@P08@P=\@\@\@\@\@\@\@\@\@\@P=8@PI@PK@PK @PLQ@PQA K@PR8@PV!%  3"C@PV8@PZ*ր@PZ8@P^2ր@P^8@Pb:ր@Pb8@PfDK@K@Pf8@PkD@PKm@Pm d@Pns@PsA@ @ a@Pz8@P} /@  !a@P8@P ?@ # O@ ) _@ 1 o@ 9 @ A @ C@ @Pm@Pd  3"D@P@PA @P8@P@K@P8 @P@:-9@@@P8 @P9`@P@P@PAK\\\\@@@@\\\\@P8PR9FTNXR9LABLR9OTBGR9EOTTR9TOTTR9DOTTR9PAGER9FTOVR9BINTR9ZCODR9YCODR9XCODR9EDCN@PK<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@d =@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P.@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PY@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@>2@@@@@@@@@@@@@@@@@@M  3"E@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @P[ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@ @@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  @@@@P @@@@@@@@@@@@ @@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P 2@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@P ]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@ @@@@@ @@@@P! @@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P!4@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P!_@@@@@@@@@@@@@@@@@@ @@@@@@@@@P! @@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  @@@@@@@@P!@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ Ls@P! P; < = >8 '>>>>>O? ? ??*?+?,?-@P" ?K?i?}??? ??? ?????@@@ @ @@"@# @1@P"6@2@3@Q@o@@@@ @@@ @@@@@@@@@A  3"F@P"aA6ATAhAmAn At A~AAAAAA؀ A AAA BBB B B@P"BBBBB B!B?B]B{BBBBЀBԀ)BـB݀BBBB)B)@P"B)BC)C)C C CCCC"C&C(C*C,'CTCVCZ)C_Cc'CCC@P"CCPR9ECODR9FSTLR9FNBGR9ALSQR9CARAR9MARAMHLD01R9UDATXR9UMTHZR9UDAY[R9UYER\R9FDTB!PR9RPRTMHLD01!GETACRPR9RPGX*T PLPGCMP G12 R LA CCS 3.0 SL-149PR9BASER9FBSER9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS PR9MZERR9MONER9MNINR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9INVPR9SNHLR9FRCD@PkK[\`@Nal@@ @P+|@Z{[llP]}M]\Nkk``Kaazzm^L~~@PVnnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghh@Piijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L @ B H N P R T rO  '  ODHJL@P\NTPR9RPRTMHLD01!PR9RPGX*T   3"N PLPGUTB G14 R LA CCS 3.0 SL-149PR9BASER9FBSER9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS PR9MZERR9MONER9MNINR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9INVPR9SNHLR9FRCD@PkK[\`@Nal@@ @P+|@Z{[llP]}M]\Nkk``Kaazzm^L~~@PVnnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghh@Piijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L@P 9 ? @ A B C D Ef@P dE 7E@P k@P m 7@P p@P r 7@P w@P y 7@P @P 7Ef/E 8EEf?E 9EEfO@P E :EEf_E ;EEfoE <EEfE >E@P EfE ?EEfE @EEfE AEEf/E%  3"Q@P  BEEf?E CEEfOE DEf_E FE@P (@P * F 423756:89=;<@>?FA(G@P A@P C 7@P F@P H 7@P M@P O 72  8   FF@P h@P j 0GGGG FG3FG3FGFG FG  4@P  @P @P 0GG4GG    @P @P 955@P @P 95555 @P @P :66+  3"R@P @P :6666 G9H:IH G I7777 F@P @P ;FF@P @P  ;FF@P @P  ;FF8F8 F@@P @P  FFGQa  3"T@P @P >GGF@P @P >GGF@P @P ;G@P @P ;FG; V ? (J JQ/ JR? JSO JT_ JUQKA@P RKBSKCTKDU 8  @P @P 0 (2(4(3(5(6 6((6PR9TRALR9LAHDR9CMOVR9MMOVR9NSQRR9CMSTR9MMSTR9MHLDR9INMKR9CLBGR9DETLR9TOTL @R9LSTR A@P ;L2(L4(L3ML(M5(6 6([ ?  [ 0@P f       x s   T0@P y |@P |)@8@9 @:@;@<@=@>@?0@@6@A<@BB@CH@DNP@@P 8@P P8  3"U1@P x @P d0@P @P )@!P@7PP@P @P D@P @P )@8@9 @:@;@<@=@>@?0@@6@A<@BB@CH@DNP@@P 8@P P@P @P @P @P 1 @(q@P 8@P ؈Nvv@P @P @P @P 1 /@(q@  3"VE@P 8@P {{@P @P @P @P 1 ?@((@P @P @P @P 1@P 8@P ?@@@@@P 8@P W@@@@P 8@P "W@P $@P $@P % )@P )1,6  3"WY@P *8@P 0#@@@P 08 @P 9c@@@@@@@@@@@@@@P 98@P Fu@@@@@@@P F8@P Qu@P $ S@P S@P T X@P X1@@@@@P Y8@P f#@@@P f8 @P o8@@@P o8 @P xb@@@@@@@P x8@P t@@@@Td  3"Xm@P 8@P t@P S @P DTdt@P @P 1@8@9 @:@;@<@>"@?K@@S@AZ@Ba@Ch@Do@"@# @$@%@&@P @("@)K@+S@,Z@-a@.h@/o@7s2@@@P 8 @P 3@@@@@P 8 @P 4@@@@P 8 @P5@@@P8 @P6@@@@P8 @P7@@@@P8 @P&8@@@P(8 ܅  3"Y@P19@@@P38 @P<:@@@P>8 @PG;@@@@PI8 @PR=@@@@PT8 @P]>@@@@P_8 @Ph?@@@@Pj8 @Ps@@@@@Pu8 @P~A@@@@P8 @P@P @P@@P  3"Z@P1@@@@P8@P2@P@P@P@P1@P8@P4@P@P@P@P1@P8@P3@P@P@P@P1@@@P8  3"[@PǠL@P@P@P@P1@P8@Pנ5@P@P@P@P1@@@P8PR9FTNX _R9LABL ^R9OTBG wR9EOTT xR9DOTTR9TOTTR9PAGER9FTOVR9BINTR9ZCODR9YCODR9XCODR9EDCN@PM,@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@X@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P=@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"@@@@@@@@k@@@k@@Ph@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@M]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M]@@`@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@M]@@`@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@M]@@k@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  3"\@P@@@@@@M]@@k`k`k`k@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P?@@@M]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@{@@@Pj@@M]@@`@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@M]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M@P]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M]@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@M]@@@@@@@@@@@@@@@@@@@@PA@@@@@@@@@@@M]@@@@@@@@@@@@@@@@@@@``@Pl@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PC@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Pn@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@ @P Lv= 'X O J#####O#n#r'#O####@P#####$$9$?$E$K$Q$WO$$$$$$$$$$@PE$%%% %%%%%%!%$%&%'%-%1%5%6%7%8%9%W  3"]@Pp%]%c%i%o%uO%%ǀ%%̀%%%%ڀ%݀PR9ECODR9FSTLR9FNBGR9ALSQR9CARAR9MARAMHLD01R9UDATR9UMTHR9UDAYR9UYERR9FDTBPR9RPRTMHLD01!PR9RPGX*T PLTMUSE G15 R LA CCS 3.0 SL-149PR9BASER9FBSER9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS PR9MZERR9MONER9MNINR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9INVPR9SNHLR9FRCD@PkK[\`@Nal@@ @P+|@Z{[llP]}M]\Nkk``Kaazzm^L~~@PVnnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghh@Piijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L@@PC@PE ??>?<=& (&' (' (' & (22(()(@Pp* (++*2@P{@P} (,, -,@P@P- -(((F@PFG-  3"` @PPR9BINPR9TRALR9LAHDR9CMOVR9MMOVR9NSQRR9CMSTR9MMSTR9MHLDR9INMKR9CLBGR9DETLR9TOTL@P-Gr* )r.r.*r)r/%r%r! /@Pr +{d@P@PH HH@P @P d@P  @P @-H HH@$@P  @P )`@@@P 8 @P !zp.&&@P  )@P ) $@P * 0@P 0)@P 18@P 7/&&   tR  3"a!@P B x $ @P < H@P H)@"((@P ; M@P M   t@P T x $ @P N Z@P Z)@#(K@@@P ]8@P hy@P h8@P l0~~@P M p@P p   t@P w x $ @P q }@P })@$(A@րz@P 8@P JJ@P p MD  3"b5@P @@ t@P x@$ @P @P )րz@P 8 @P @ @%%@P @P @@ t@P x@$ @P @P )@P 8@P @P 8@P !@P 8@P &Ӏ@P 8@P /ŀ@P 8  3"cI@P 5À@P 8@P :ŀ@P 8@P @@P 8@P @@P @P   t@P x $ @P @P )@P 8@P ɀ@P 8@P !ɀ@P 8@P &ɀ@P 8@P /  3"d]@P 8@P 5Ā@P 8@P :Ā@P 8@P @Ā@P 8@P I@P 8@P I@P @P  @P  @P )q@ 2 >zp= >zp2zp!2zp+&aa@P Ap/@5@:@@@~~@P ) N@P N`@P R@P O S@P S)F\\\@@@@\\\  3"eq@P T8@P aF@P N c@P c$@@P d g@P gH!PP@P  l@P l@P m o@P o!@ H)@@@P u8PR9LSTRR9FTNXR9LABLR9OTBGR9EOTTR9TOTT R9DOTT ;R9PAGER9FTOVR9BINTR9ZCODR9YCODR9XCOD@P y )@  @@@@@@@@@@@@@@@@@@@@  @@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @ @@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PR9EDCNR9ECODR9FSTLR9FNBG R9ALSQR9CARA R9MARAMHLD01R9UDAT R9UMTH R9UDAY R9UYER R9FDTB ;@P %@@@@ @@@@@@@@@@@@@ i}t @P P0468;=?BDJLNP7'@P {''&'NQTWZ^`cipsv_  3"fPR9RPRTMHLD01!PR9RPGX*T PLTRNDP G16 R LA CCS 3.0 SL-149PR9BASER9FBSER9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS PR9MZERR9MONER9MNINR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9INVPR9SNHLR9FRCD@PkK[\`@Nal@@ @P+|@Z{[llP]}M]\Nkk``Kaazzm^L~~@PVnnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghh@Piijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L'fjlptuvz|@P PR9RPRTMHLD01!PR9RPGX*T PLUD50A G17 R LA CCS 3.0 SL-149PR9BASER9FBSER9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS PR9MZERR9MONER9MNINR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9INVPR9SNHLR9FRCD@PkK[\`@Nal@@ @P+|@Z{[llP]}M]\Nkk``Kaazzm^L~~@PVnnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghh@Piijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""  3"qa@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L@@P+8@P0FJ@@@P68@P:RR@P @@P@ t@PD x$4@PAP@PP ?@(E@ŀz@PU8@P\NN@P@`@P` 4 $    t@Ps xŭ  3"y@Pat@Pt @@@@@@@Pu8 @P|  ! " @@@@@@@P8 @PH@P8@PV@@P8@P\@P8@Pc@P8@Pk@P8@Py@P8@P@@P8@P  3"z@P`@P4$ t@P x@P@P @ŀ@P8 @P  ! " @@P8 @P@P8@P&@P8@PH@P8@PU@P8@P\ŀ@P8@Pbր@P8p  3"{)@Pk@P8@Py@P8@P@a@P8@P@P@P@P @P @  " !@ @  " !@ @ @@JW\@ alz`@P2@P4`@P6@P/8@P8AK@P98 @PAY@@@PA8 @PIn@@  3"|=@PI8@PS}@Հ@PS8 @P[}@P.]@P]@Pa@Pc@Pe@P^g@Pg \\@Ph8@Pk@@@@@Pk8@Pr @Ā@Ps8@Pz@\\@P{8@PAY l!||@P]H  3"}Q@P`@P@P@PAK@@P8 @PY@@@P8 @Pn@@@P8@P}@Հ@P8 @P}@P@P @P@P@P \\\\@P8@P@@P8x  3"~e@P  "@@@@@P8@P!@@@@@@@@@@P8@P @\\\\@P8 @PA"Y#l$||@P@P`  @P@P@P/\\\@@@ɀ@P8@PI\\\\@@@@\\\\@P8@PI`@P@PAK@@P8 @P!Y@@$  3"y@P!8 @P)n@@@P)8@P3}@Հ@P38 @P;}@P=@P=@P>C@PC \\@PD8@PG@@@@@PG8@PN @Ā@PO8@PV@\\@PW8@P^AY l!||@P=h@Ph O  3"@Pin@Pn @(P@@`@Pt8@PQ@`@ـ@P8@Pr@P8@P%ww@Ph@P@P@P /@(D@@@P8@PL>@P8@PFJ@@@P8@PRR@P@P  3"@P@P ?@(E@ŀz@P8@P׀NN@P@P`Ć@P@PAK@@P8 @PY@@@P8 @Pn@@@P8@P}@Հ@P8 @P }@P @P  Ć@P  @P  \\\\  3"@P 8@P @@P 8@P   "@@@@@P 8@P !!@@@@@@@@@@P #8@P * @\\\\@P +8 PR9LSTRR9FTNXR9LABLR9OTBGR9DOTTR9TOTT.R9EOTTR9PAGER9FTOVR9BINTR9ZCODR9YCODR9XCOD@P 3A"Y#l$||@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P ^@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  @@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  @P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  PR9EDCNR9ECODR9FSTLR9FNBG =R9ALSQR9CARA >R9MARAMHLD01R9UDAT R9UMTH R9UDAY R9UYER R9FDTB @P YV '   $%)-KO)T)@P Y]_c)hijl'  ++++++ȁPR9RPRTMHLD01!PR9RPGX*T Wk  3" PRECVRY G19 R LA CCS 3.0 SL-149PR9BASER9FBSER9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS PR9MZERR9MONER9MNINR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9INVPR9SNHLR9FRCD@PkK[\`@Nal@@ @P+|@Z{[llP]}M]\Nkk``Kaazzm^L~~@PVnnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghh@Piijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.LD?D@DADB@C"@DDE@P DFDG DHDIDJDK(DL+DM4DN7DO@DPI@QR"@RTDSVDTYDUbDVkDWnDXwDYDZ@P D[D\D]D^@_"@`DaDbDcDdDeDfDgDhDiDjDkDl@m"@nDo@P Dp DqDrDsDt'Du0Dv3Dw 9@P l ՓԚF N(L G Փ@P T \(Z U ՓԚb j(h@P c Փp x(v q Ԛ Kz  3"@P ~ (    Փ Ԛ  ( @P   Ԛ  (   Փ Ԛ@P C  (   Փ   ՓԚ@P n& % % ՓԚ4 3 3 Փ@P ԚB A A ՓԚP O O@P đ Փ^ ] ] Ԛl k@P  k ՓԚz y y Փ@P     Փ Ԛ    @P E Փ     Ԛ   @P p  Փ Ԛ   ՓԚ@P    ŋ         @P Ƌ @P @P @P@@@P 8@P ?@P@@P 8 @P Q@@P 8@P ~@K  3"@P 8@P @P @P @P @P @K@P8 @P u@z@P 8@P~~@P @P@P@P@@P8@P'@P)@P)@P*.@P. a@@{e  3"@P/8 @P7@'@z@P98 @P@@ F`@z@PB8@PM@ efa@PO8@PR@ ho``@PT8@PY@rsa@P[8@P^@uu@P)b@Pb@Pcg@Pg\`````````\@@\@Ph8@Pv7`````````````@Pv8@PO``\@@\\@@\```E  3"-@P8@Pg`\@@\`````````````@P8@P\@@\``````@```@P8@P````\@P8@P@Pb@P@P@Pa@@K@@@@P8@P+@@@@@@@P8@PBK@@@@@@P8@PVK@@@@@K@P8@Po@@@@t  3"A@P8@P@@@@@@@@P8@P@P@P@P@P@@@@@@P8@P6@@@@@@@P8@P#P@@@@À@P#8@P/h@@@@@@P/8@P<~@€@P<8@PHŀ@PH8@PLw  3"U@PN@PN@POS@PS@ a@PV8@PY@ H %+,l@Pe8@PhH1:CHHQqzl@Px8@P{@PN}@P} @P~@P@a@P8@P@H %+,l@P8@PH1: CH!H"Qq%zl@P8@P  3"i@P}@P0@P@P@(a@P8@P@'H) *+%+,l@P8@PH,1-:.CH/H0Qq3zl@P8@P@P@P@@P@P@6a@P8@P@5H7 89%+,l@P8@PH:1;:<CH=H>QqAzl@P8@P   3"}@P @P P@P@P@Da@P8@P@CHE FG%+,l@P%8@P(HH1I:JCHKHLQqOzl@P88@P;@P =@P=`@P>C@PC@Ra@PF8@PI@QHS TU%+,l@PU8@PXHV1W:XCHYHZQq]zl@Ph8@Pk  3"@P=m@Pmp@Pns@Ps@`a@Pv8@Py@_Ha bc%+,l@P8@PHd1e:fCHgHhQqkzl@P8@P@Pm@P䀀@P@P@na@P8@P@mHo pq%+,l@P8@PHr1s:tCHuHvQqyzl@P8@P  3"@P@P䀐@P@P@|a@P8@P@{H} ~%+,l@P8@PH1:CHHQqzl@P8@P@P@P䀠@P@P@a@P8@P @H %+,l@P8@PH1:CHHQqzl@P(8@P++  3"@P-@P-䀰@P.3@P3@a@P68@P9@H %+,l@PE8@PHH1:CHHQqzl@PX8@P[@P-]@P]@P^c@Pc@a@Pf8@Pi@H %+,l@Pu8@PxH1:CHHQqzl@P8@PV  3"@P]@P @P@P@P8@PH %+,l@P8@PH1:CHHQV_h q zl@P8PR9LSTR R9FTNX R9LABL R9OTBG R9EOTT R9DOTTR9TOTTR9PAGER9FTOVR9BINTR9ZCODR9YCODR9XCOD@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @P @@@@  @P @@@@ @@@@  @P? @@@@ @@@@  @Pj @@@@ @@@@  @P @@@@ @@@@  @P @@@@ @@@@  @P @@@@  @P  @PA   3"@Pl  PR9EDCNR9ECODR9FSTLR9FNBGR9ALSQR9CARAR9MARAMHLD01R9UDATR9UMTHR9UDAYR9UYERR9FDTB@P %##########Ѐ#)#׀)##ހ)#)##@P€)##)#)#)$$$$$ $$$$$$$ $$$($,$.$0@P$2$6$:$<$@$D$F$J$L$P$T$X$Z$\$^$b$f$h$l$p$r$v@P$x$|$$$$$$$$$$$$$$$$$$$@PC$$$$$Ȁ$$΀$$Ԁ$$$$$$$$$$$$$@Pn%%%% % %%%%%% %"%&%(%,%0%4%6%8%:%>@P%B%D%H%L%N%R%T%X%\%`%b%d%f%j%n%p%t%x%z%~%%@PĀ%%%%%%%%%%%%%%%%%%%%€%ƀ@P%Ȁ%%Ѐ%%ր%%܀%%%%%)%)%%)%)&&)&& )&)&@P)&&)&!,&(&+)&0&3&7&;&?&C&G&K&O&S&W&[&_&c&g&k @PE&q&t&w&z&}&&&&&&&&&&&&&&&&&@Pp&&&&À&ƀ&ʀ&̀&р&Ԁ&؀&ۀ&߀&)&&&&&&&'@P'' ''''''"'&'*'.'2PR9RPRTMHLD01!PR9RPGX*T PZLA21 G21 R CCS CCS 3.0 SL-149PR9BASER9FBSER9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS   3"PR9MZERR9MONER9MNINR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9INVPR9SNHLR9FRCD@PkK[\`@Nal@@ @P+|@Z{[llP]}M]\Nkk``Kaazzm^L~~@PVnnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghh@Piijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.LZ\\\@@P>8@PEZ@P(G@PG @@PHN@PN1@ <@@@@PQ8@P^Z\\\@@P^8@PeZ`@Pk@Phl@Pl1A\\\@@@@\\\  3"`@Pm8PR9LSTRUR9FTNXVR9LABLUR9OTBGXR9EOTTYR9DOTTR9TOTTgR9PAGER9FTOVR9BINTR9ZCODR9YCODR9XCOD@PzA @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PR9EDCNR9ECODR9FSTLR9FNBG|R9ALSQR9CARAR9MARAMHLD01R9UDAT}R9UMTHR9UDAYR9UYERR9FDTB@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ .@Pb  ;""#####'#@#^#b#f#j#n#r'#'#'#PR9RPRTMHLD01!PR9RPGX*T PCOLCHG D02 R CCS CCS 3.0 SL-149PR9BASER9FBSER9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS PR9MZERR9MONER9MNINR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9INVPR9SNHLR9FRCD@PkK[\`@Nal@@ @P+|@Z{[llP]}M]\Nkk``Kaazzm^L~~@PVnnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghh@Piijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L@P@P@P@P@P@P@P)@P@P@@@@ B..B$Ā@P$@P//N$  3"`6@P$@P//N/$@P$@P //N? cq /   !!! ! PR9BINPR9TRALR9LAHDR9CMOVR9MMOVR9NSQRR9CMSTR9MMSTR9MHLDR9INMKR9CLBGR9DETLR9TOTLB@P4( (   T@PJ X$@PGN@PN @(E}@@@@PS8@PaM@Pa8@Pgx@Pg8@Pk}}@PFo@Po T@Ps X$@Pp{@P{ /@(;@F  3"`J@P8@PDD@Po@P T@P X$@P@P ?@((@P@P  T@P X  $@P@Pրz@P8 @P@@**@P@P  T@P X  $@P@P@@P8}  3"`^@P<@`@P8@PO@@P8@Pr@@P8@Pr@P@P@P@P@ H 2<@P8@P<Հ@P8@P >@P8 PR9LSTRCR9FTNXDR9LABLCR9OTBGER9DOTTFR9TOTTR9EOTTR9PAGER9FTOVR9BINTR9ZCODR9YCODR9XCOD@P@ _@  p@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@PZ@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@#u  3"`rPR9EDCNR9ECODR9FSTLR9FNBG R9ALSQR9CARA R9MARAMHLD01R9UDATLR9UMTHNR9UDAYOR9UYERPR9FDTB@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ i '        @P    ' ,PR9RPRTMHLD01!PR9RPGX*T PCOLSTS D03 R CCS CCS 3.0 SL-149PR9BASER9FBSER9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS PR9MZERR9MONER9MNINR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9INVPR9SNHLR9FRCD@PkK[\`@Nal@@ @P+|@Z{[llP]}M]\Nkk``Kaazzm^L~~@PVnnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghh@Piijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.LD "?@P@P@P@P@P@P@ A6 $Ā@P$@P  !$Ā@P$  3"`@P  "$Ā@P$@P  # r$À@P$@P r zZr rrr$@P$@P r zZr rrrrr$r%@PA$r&rr rq &[q[zq[q(&@Plq qH&q H&qH&=>?A$%'@P P'($'( h$( h$(  h$' P'PR9BINPR9TRALR9LAHDR9CMOVR9MMOVR9NSQRR9CMSTR9MMSTR9MHLDR9INMKR9CLBGR9DETLR9TOTL@P…($'( h$( h$(  h$r( r@P (#r#)r#@@@@P@P*r#)r#@P @P*rrFrFrFr+r2&r2$r2@P<'r2r((+r( +2r(2r($r('r  H'@PgP$r  X$r(  x'r#6r6 H$r6 H$ro '(@Pr(r,P&r- P&r.P&r/ r#H&r(/h&r  3"`@Pr/P&r(0P&rGrGrGr'r(&r@@@@@P@P `&)r) &)r)rHrHrHr()rr@@@@P@P *rrq$%qo($q%$C$4@P36@P6 H HH  d@P@P@F@PF@!(H@PJ8@POH@PQ8@PVHӀ@PX8@P^H@P?`@P` d@P@Pag@Pg@"(M@@@Pj8  3"`@PwS@Pw8@P|{@P|8@P1@P`@P d@P@P@P@#(E@z@@P8@PMM@P@P d@P@P@PIՀ@P8@PI@P8@PI@PB  3"`@P d@P@P@P@@@P8@P @ /@! ?@' O@- _@3 o@9 @? @E @K @Q @@PW /@] ?@c O@i _@o o@u@*`@P @P @P ['\\\`@@P8@P[6@@ـ@P8@P&6@P(@P(`@P,@P).@P.)\\\@@@@P/8@P= :@`@@@ـ4  3"`@P>8@PI :@`@@@@PK8@PV:@PX@PX t@P@PY`@P`@-D,   / ! ? ' O - _ 3 o 9  ?  E  K @P Q  W / ] ? c O i _ o o u/@PX@P@@P@P@P@P8@P   / ! ? ' O - _ 3 o 9  ?  E  K  Q  @PW / ] ? c O i _ o o u0@P(@P`@P@P@P   3"`@P L\\\@@@@\\\@P 8PR9LSTR)R9FTNX*R9LABL)R9OTBG1R9DOTT2R9EOTT?R9TOTTR9PAGER9FTOVR9BINTR9ZCODR9YCODR9XCOD@P LN@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@t@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P :@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P e@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P <@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P g@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P >@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P i@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^  3"a@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P k@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@((@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P m@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@d @P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ,4@Po@P@P@P@P  3"a&@PF@Pq@P@P@P@P@PH@Ps@P@P@P@P@PJ@Pu@P@P@P@P!@PL@PwY  3"a:@P@P@P@P#@PN@Py@P@P@P@P%@PP@P{@P@P@P@P'@PR@P}@P@P  3"aN@P@P)@PT@P@P@P@P@P+@PV@P@P@P@P@P-@PX@P@P@P@P@P/s  3"ab@PZ@P@P@P@P@P1@P\ ,L@P@P@P@P@P3@P^@P@P@P@P @P5@P`@P  3"av@P@P@P @P7@Pb@P@P@P@P@P9@Pd@P@P@P@P@P;@Pf@P@P@PD  3"a@P @P =@P h@P @P @P @P!@P!?@P!j@P!@P!@P!@P"@P"A@P"l@P"@P"@P"@P#@P#C  3"a@P#n@P#@P#@P#@P$@P$E@P$p@P$@P$@P$@P%@P%G@P%r@P%@P%@P%@P&@P&IL@P&tM1,N@P&{  3"a@P&@P&@P' @P'KV5@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P'v@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P("@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P(M@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P(x@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P(@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P(@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P(@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P)$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P)O@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P)z@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  3"a@P*&@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P*Q@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P*|@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@(XH@@@@@P+(@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P+S@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P+~@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@d X@P,*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P,U@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P,@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P,@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P,@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@ @@@@@@@@@@@PR9EDCNR9ECODR9FSTLR9FNBG R9ALSQR9CARA R9MARAMHLD01R9UDAT,jR9UMTH,lR9UDAY,mR9UYER,nR9FDTB- @P-@@@@@@@@@ 8g0 V |  , 4 4LΠMM<N VL XT@P-, XԀX؀XڀX܀X'YY&YFYUYVYWY[Y]Y`YcYf'Y'Y'YހYY  3"a@P-WYYYYYYZZZ ZZPR9RPRTMHLD01!PR9RPGX*T PDALIST D04 R CCS CCS 3.0 SL-149PR9BASER9FBSER9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS PR9MZERR9MONER9MNINR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9INVPR9SNHLR9FRCD@PkK[\`@Nal@@ @P+|@Z{[llP]}M]\Nkk``Kaazzm^L~~@PVnnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghh@Piijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L@P@P? ?>@P@P >  H=H=@A@BACA BH= BH= CH= CH=O@P =(= !c!c(<_ < < zz/8 zPR9TRALR9LAHDR9CMOVR9MMOVR9NSQRR9CMSTR9MMSTR9MHLDR9INMKR9CLBGR9DETLR9TOTLfR9LSTRg@PD ;DP;DH;DH; ;&(;&< HD@PoH#GLd@Py}@P}1 \\\\\@P~8@P9%@@@P8  3"b*@P+@P8@P@811@Px@P @P@P1@4) J@@@P8@P P@P8@P @8VK@@@P8@PTՀ@P8@Px@P8@PՈE}}@P@P@P  3"b>@P1@5)D@րz@P8@PMM@P@P@P@P1@6))@P@P4@P@P1@)A@@P8 @P-Uva@Ā@P8@P.@P@P4@P@P1@?@@P8  3"bR@P#aap,Rr@@P*8 @P2aap*@P;@P;4@P<@@P@1@ G@@P@K@PC8@PN ``p$TU`@PW8@PZ@%Ynɀ@P\8@Pb@+@P;f@Pf4@Pgk@Pk1@!?K@@Pn8@Pu@&ff@Pfy{  3"bf@Py4@Pz~@P~1@"@#GK@@P@K@P8@P ``p'TU`@P8@P@(YY@Py@P4@P@P1@@@@P8 @P"@@@@P8@P1`@P8 @PK\\\\\@@@@\\\\\@P8@PK@P  3"bz@P4@P@P1 aat D  D  D D - Dmm@P@P4@P@P1 /aat /D  /D  /D /D - /Dmm@P@P4@P@P1 ?aat ?D  ?D  ?D ?D - ?Dmm@P=@P=4@P>B@PB1 Oaat OD  OD  OD OD - ODmm@P=b@Pb4@Pcg@Pg1+\\\\\\\\\\\\\\\\\\\\\\\\@Ph8~  3"b@PvC\\\\\\\\\\\\\\\\\\\\\\\\@Pv8@P[\\\\\\\\\\\\\\\\\\\\\\\\@P8@Pp\\\\\\\\\\\\\\\\\\\\\@P8@Pp@Pb@P@@P@P1@@P@P@P@P1@@P8 @P@ 4@@@@P8@P@@P  3"b@P@P@P1+\\\\\\\\\\\\\\\\\\\\\\\\@P8@PC\\\\\\\\\\\\\\\\\\\\\\\\@P8@P[\\\\\\\\\\\\\\\\\\\\\\\\@P8@Pp\\\\\\\\\\\\\\\\\\\\\@P8@P p`@P @P1@@P @P`@P@P@P1@@P!@P! I  3"b@P%@P"(@P(16\\\\\@P)8@P.O@@z@P.8@P<7V\\\\\\@P>8@PC\@P!E@PE`@PI@PFJ@PJ1@@PEO@PO`@PS@PPT@PT1@@POYA  3"b@PY @P]@PZ^@P^1/\\\@@@ɀ@P`8@Pn//@`@@\\\@Pp8@P{ /O`@@@@`@P}8PR9FTNXhR9LABLgR9OTBGwR9EOTTxR9TOTT R9DOTTR9PAGER9FTOVR9BINTR9ZCODR9YCODR9XCODR9EDCN@PO)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@d@P*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P4@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P_@@@@@@@@@@@@@@@@@@**@@@@@@@@*@@@@@@@@+@@@@@@@@+@@@@@@@@@P@@@@@@@@+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@,@@@,@@@@P @@@`@kk@@@@@@@@@@@@@@@`@@k@  3"b@P6k@@@@@@@@@@@@@@@@@`@@@@@@@@@@@@@@@@@@@@@@@@@@Pa@@@@@@@`@@-@@@-@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@-@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@-@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@. @P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P8@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Pc@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@ @@P@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@ Ln ( R) G)h *Ԡ* * + + + 7, , ;@P:- - - - .......'.D.T.X.h..... ..@Pe/ / / ////#)/()/-;/i/l/o/p/r'/'/'/////@P///000 00$0(00PR9ECODR9FSTLR9FNBGR9ALSQR9CARAR9MARAMHLD01R9UDATR9UMTH R9UDAY R9UYER R9FDTBPR9RPRTMHLD01!GETACRsPR9RPGX*T PDTLLST D05 R CCS CCS 3.0 SL-149fQ  3"bPR9BASER9FBSER9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS PR9MZERR9MONER9MNINR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9INVPR9SNHLR9FRCD@PkK[\`@Nal@@ @P+|@Z{[llP]}M]\Nkk``Kaazzm^L~~@PVnnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghh@Piijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L@?@@DA@B@C/@DM@Ek@F@GDH@I@J@K@L@M@N@ODP@Q@R@S@P_DT@UDV@W@XDY@Z@["@\'D]+@^1@_@`@a@b@c@d0@eDDfIDgODhX@PDi^DjdDkjDlpDmvDnDoDpDqDrDs@tDu@v@w@xDyDzD{@|D}D~@PDD@P'@P@P@P{  3"c.@PPR9XLATR9PFCB~R9DSEQYSETLMR9RCADR9TBIOR9INTAR9TBOTR9ITLPR9INIGR9IPBGR9FDC1R9BINP@P@@ .$@P$@P N $@P$@P N/ $@P$@P N? @P @P @P@P.  SQRVTU WX   @P)@P+ < @P1@P3<   :@PG@PI GQ@PN  3"cB@PP OR :@P\@P^ S@Pc@Pe T@Pj@Pl )U@Pq@Ps ,V@Px@Pz 5W@P@P 8X : @P@P     = @P@P @P@P VN  VN/  VN?  V/NO  V@P?N_  VONo  V_N  VoN  VN   3"cV@PVN  VN  VN/  VN?  V/NO  @P@V?N_  VONo  V_N  VoN  VN@Pk  VN  VN  VN/  VN?  V/@PNO  V?N_  VONo  V_N  VoN  PR9TRALR9LAHDR9CMOVR9MMOVR9NSQRR9CMSTR9MMSTR9MHLDR9INMKR9CLBGR9DETLR9TOTLR9LSTR@PVN  VN  .. FFz!@PD@P@P!@<@P@P @P@PA @ )C@ـ@P8@PL@P8@Pgz@P8 @P@;l@P$8u  3"cj@P(@P,@P,@P-2@P2A /@ )=@@P78@P< FF@P,@@P@@PAF@PFA ?@ ))@P@M@PM @PNR@PRA @PS8@PY'@PY8 @P`1@P`8t  3"c~@Pd9ր@Pd8@PhG@@Ph8@PoPŀ@Po8@Psf@@@Ps8@P}q@P}8@PvـK@P8@P@Հ@P8 @P@PM@P @P@PA K@P8/  3"c@P(@րK@P8 @P1ـK@P8@P;@P8@PF@P8@PP@P8@PY@P8@Pg@P8@Po@P8@Pv@P8@P@@ɀ@P8 X  3"c@P@P@P @P@PA@@@S*@v1@w;mHaapkRaapf\gh@UoHuvr@P@P@@P@PA@P8@P@B0B@Ā@P8@PHADb@@P8 @P@K@P @P @P!%@P%A @@P&8  3"c@P-@C0F@@K@P/8@P; ``pTR`K@@PD8 @PL@L@P P@PP @PQU@PUA @@PV8@P]@D0CK@@ŀ@P_8@PiHsEcaa@Pk8 @Pt@Mz@N@PPz@Pz @P{@PAaa@P8  3"c@P@E&@F0>@ŀz@P8 @P Q ``pHK QL`@P8@P@JPQ@IMd@z@P8@P R ``pPr Rs`@P8@P@RwR@Qtw@Pz@P@@P@PA @P8@P@P8@P"@@P8 @P+@P8A  3"c@P1@P8@P@@@P8 @PN@@P8 @Pd@@@P8@P@b@P @P @P @PA@P8@Pր@P8@Pր@P8@P"@@@@@P8   3"c@P$*ր@P$8@P(2Ӏ@P(8@P,>@@P,8@P2N@@P28 @P9d@@@P98@PD@c@P H@PH @PIM@PMAaapV @W@xHyHzH{"@^(@X1aap~>N`aa@Pl8 @Pu@dz@e@PH{@P{@@P|@  3"d @PA @P8@P@P8@P+@@P8 @P9@ƀ@P8 @PE@P8 @PN@P8@Pe\@\@@@@@@@@@P8@P@@@@@@@@@@@@P8@P\@\@P8@P@P{N  3"d@P @P@PA @P8@P@P8@P+@@P8 @P6@P8@PBKK@P8@PP@@P8@PP@P@P @P@PAn oaapp'q9@ZBaapP@|@PK?  3"d2@P@@P@PA@P8@P!@@P!8@P'׀@P'8@P+*@@P+8@P13@P18@P5@@P58@P:S\@\@\@\@\@\@P:8 @PBf@@@@@@@@@PB8@PMw@@@@@@@PM8 (F  3"dF@PV\@\@\@\@\@\@PV8 @P^@P`@P` @Pae@PeA@Pf8@Pj@Pj8@Po@Po8@Ps)@@Ps8@Px3@Px8@P}C@@P}8 @P@_@P`  3"dZ@P @P@PAaaph aapiaaplaapj*@\3aap]A@`@P@P @P@PA@a@P@P@P@P@PA@@@@@@@@@P8@P@@@@P8@P,@@@@@@P8 @P<@@@@@@@P8 @PT@@@@a@@@@@@P8*  3"dn@P[@@@P8@Po@@@@@@@@@@P8@P@@@K@@@@@@@P8@P@P@P P@P@PA@@?@UH[ S```pnS@k T```pT@!@PE@PH@PH P@PIN@PNA@$@%?@&UH'[ U```p(nU@*k V```p+V@-@Py@PH|@P| P@P}0&  3"d@PA@0@1?@2UH3[ W```p4nW@6k X```p7X@9@P@P|@P @P@PA @ )K@@P8@Pg@P8 @P@;l@P8@P؈@P@P@P@PA /@ )?@@P8@P HH@P@P  3"d@P@PA ?@ ))@P@P @P@PA @P8@P #@P 8@P+@P8@P3@P8@P;@P8@PF@P8@P&W\@\@\@\@\@\@\@\@P&8@P0o@@@@@@@@@@@@@@u1  3"d@P08@P=\@\@\@\@\@\@\@\@\@\@P=8@PI@PK@PK @PLQ@PQA K@PR8@PV!@PV8@PZ*ր@PZ8@P^2ր@P^8@Pb:ր@Pb8@PfDK@K@Pf8@PkD  3"d@PKm@Pm d@Pns@PsA@ @ a@Pz8@P} /@  !a@P8@P ?@ # O@ ) _@ 1 o@ 9 @ A @ C@ @Pm@Pd@P@PA @P8@P@K@P8 @P@:-9@@@P8 @P9`@P@P  3"d@PAK\\\\@@@@\\\\@P8PR9FTNXR9LABLR9OTBGR9EOTTR9TOTTR9DOTTR9PAGER9FTOVR9BINTR9ZCODR9YCODR9XCODR9EDCN@PK<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@d =@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P.@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PY@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@>2@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @P[ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@ @@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  @@@@P @@@@@@@@@@@@ @@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P 2@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@P ]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@U  3"d@P @@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@ @@@@@ @@@@P! @@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P!4@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P!_@@@@@@@@@@@@@@@@@@ @@@@@@@@@P! @@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  @@@@@@@@P!@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ Ls@P! P; < = >8 '>>>>>O? ? ??*?+?,?-@P" ?K?i?}??? ??? ?????@@@ @ @@"@# @1@P"6@2@3@Q@o@@@@ @@@ @@@@@@@@@A@P"aA6ATAhAmAn At A~AAAAAA؀ A AAA BBB B B@P"BBBBB B!B?B]B{BBBBЀBԀ)BـB݀BBBB)B)@P"B)BC)C)C C CCCC"C&C(C*C,'CTCVCZ)C_Cc'CCC@P"CCPR9ECODR9FSTLR9FNBGR9ALSQR9CARAR9MARAMHLD01R9UDATXR9UMTHZR9UDAY[R9UYER\R9FDTB!PR9RPRTMHLD01!GETACRPR9RPGX*T PDTLLST D06 R CCS CCS 3.0 SL-149PR9BASER9FBSER9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS u  3"dPR9MZERR9MONER9MNINR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9INVPR9SNHLR9FRCD@PkK[\`@Nal@@ @P+|@Z{[llP]}M]\Nkk``Kaazzm^L~~@PVnnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghh@Piijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L@?@@DA@B@C/@DM@Ek@F@GDH@I@J@K@L@M@N@ODP@Q@R@S@P_DT@UDV@W@XDY@Z@["@\'D]+@^1@_@`@a@b@c@d0@eDDfIDgODhX@PDi^DjdDkjDlpDmvDnDoDpDqDrDs@tDu@v@w@xDyDzD{@|D}D~@PDD@ D>@DDNDWD`DiDrDxD~D@P'@P@P@P@PĊ  3"e6PR9XLATR9PFCB~R9DSEQYSETLMR9RCADR9TBIOR9INTAR9TBOTR9ITLPR9INIGR9IPBGR9FDC1R9BINP@P@@ .$@P$@P N $@P$@P N/ $@P$@P N? @P@P"@P$@P&.  SQRVTU WX   @P?@PA < @PG@PI<   :@P]@P_ GQ@Pd@Pf OR :7  3"eJ@Pr@Pt S@Py@P{ T@P@P )U@P@P ,V@P@P 5W@P@P 8X : @P@P     = @P@P @P@P VN  VN/  VN?  V/NO  V@P?N_  VONo  V_N  VoN  VN  @P+VN  VN  VN/  VN?  V/NO   3"e^@PVV?N_  VONo  V_N  VoN  VN@P  VN  VN  VN/  VN?  V/@PNO  V?N_  VONo  V_N  VoN  PR9TRALR9LAHDR9CMOVR9MMOVR9NSQRR9CMSTR9MMSTR9MHLDR9INMKR9CLBGR9DETLR9TOTLR9LSTR@PVN  VN  .. FFz((7@PD@P @P !@<@P@P @P@PA @ )C@ـ@P8@P&L@P&8@P,gz@P-8 @P5@;l@P:8@P>  3"er@PB@PB@PCH@PHA /@ )=@@PM8@PR FF@PBV@PV@PW\@P\A ?@ ))@PVc@Pc @Pdh@PhA @Pi8@Po'@Po8 @Pv1@Pv8@Pz9ր  3"e@Pz8@P~G@@P~8@PPŀ@P8@Pf@@@P8@Pq@P8@PvـK@P8@P@Հ@P8 @P@Pc@P @P@PA K@P8@P(@րK'  3"e@P8 @P1ـK@P8@P;@P8@PF@P8@PP@P8@PY@P8@Pg@P8@Po@P8@Pv@P8@P@@ɀ@P8 @PB  3"e@P@P @P@PA@@@S*@v1@w;mHaapkRaapf\gh@UoHuvr@P@P@@P@PA@P8@P@B0B@Ā@P8@P'HADb@@P)8 @P2@K@P6@P6 @P7;@P;A @@P<8@PC@C0F@@KZ  3"e@PE8@PQ ``pTR`K@@PZ8 @Pb@L@P6f@Pf @Pgk@PkA @@Pl8@Ps@D0CK@@ŀ@Pu8@PHsEcaa@P8 @P@Mz@N@Pf@P @P@PAaa@P8 @P@E&@F0>@ŀz  3"e@P8 @P Q ``pHK QL`@P8@P@JPQ@IMd@z@P8@P R ``pPr Rs`@P8@P@RwR@Qtw@P@P @P@PA@@P8 @P@@P8@P@6@@P8@PJb@@z@P8 @P@mmHu  3"e@P @P @@P @PA @P8@P@P8@P"@@P8 @P"+@P"8@P'1@P'8@P+@@@P+8 @P3N@@P38 @P;d@@@P;8@PF@bG  3"e@P J@PJ @PKO@POA@PP8@PTր@PT8@PXր@PX8@P\"@@@@@P\8 @Pc*ր@Pc8@Pg2Ӏ@Pg8@Pk>@@Pk8@PqN@@Pq8 @Pxd@@   3"f@Px8@P@c@PJ@P @P@PAaapV @W@xHyHzH{"@^(@X1aap~>N`aa@P8 @P@dz@e@P@P@@P@PA @P8@P@P8@P+@@P8 @P9@ƀ@P8 @PE  3"f&@P8 @PN@P8@Pe\@\@@@@@@@@@P8@P@@@@@@@@@@@@P8@P\@\@P8@P@P @P @P @PA @P8@P@P8@P+@@P8 @P#6gV  3"f:@P#8@P(BKK@P(8@P,P@@P,8@P3P@P 5@P5 @P6:@P:An oaapp'q9@ZBaapP@|@P5U@PU@@PVZ@PZA@P[8@P`@@P`8@Pf׀@Pf8@Pj*@P  3"fN@Pj8@Pp3@Pp8@Pt@@Pt8@PyS\@\@\@\@\@\@Py8 @Pf@@@@@@@@@P8@Pw@@@@@@@P8 @P\@\@\@\@\@\@P8 @P@PU@P @P@PA@P8@P  3"fb@P8@P@P8@P)@@P8@P3@P8@PC@@P8 @P@_@P@P @P@PAaaph aapiaaplaapj*@\3aap]A@`@P@P @P@PA@a@P@P@  3"fv@P@PA@@P8@P@P@P @P@PA@@@@@@P8@P#@P%@P% @P&*@P*A aap@P%6@P6 @P7;@P;A aap@P6G@PG wF  3"f@PHL@PLA aap@PGX@PX@P@PY^@P^A@@@@@@@@@P_8@Pj@@@@Pj8@Pp,@@@@@@Pp8 @Px<@@@@@@@Px8 @PT@@@@a@@@@@@P8@P[@@@P8@Po@@@@@@@@@@P8@P@@@K@@@@@@FS  3"f@P8@P@PX@P P@P@PA@@?@UH[ S```pnS@k T```pT@!@P@P@P P@P@PA@$@%?@&UH'[ U```p(nU@*k V```p+V@-@P@P@P P@P@PA@0@1?@2UH3[ W```p4nW@6k X```p7X@9@PC@PF@PF @PGL  3"f@PLA @ )K@@PQ8@P]g@P^8 @Pe@;l@Pj8@Pn@PFr@Pr@Psx@PxA /@ )?@@P}8@P HH@Pr@P@P@PA ?@ ))@P@P @P  3"f@PA @P8@P#@P8@P+@P8@P3@P8@P;@P8@PF@P8@PW\@\@\@\@\@\@\@\@P8@Po@@@@@@@@@@@@@@@P8@P\@\@\@\@\@\@\@\@\@\@P8@P@P  3"f@P @P@PA K@P8@P!@P8@P*ր@P8@P2ր@P8@P:ր@P8@PDK@K@P8@PD@P@P d@P @P A@ @ a@P8  3"f@P /@  !a@P8@P ?@ # O@ ) _@ 1 o@ 9 @ A @ C@ @P6@P6d@P7;@P;A @P<8@PA@K@PB8 @PJ@:-9@@@PP8 @PX9`@P^@P[_@P_AK\\\\@@@@\\\\@P`8PR9FTNXR9LABLR9OTBGR9EOTTR9TOTTZR9DOTTR9PAGER9FTOVR9BINTR9ZCODR9YCODR9XCODR9EDCN@PnK=2@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@d ?@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  3"g@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PE@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Pp@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@?^@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@?@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P G@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@ @@@@@@@@@P r@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  @@@@P @@@@@@@@@@@@ @@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@P!@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P!I@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P!t@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@ @@@@@ @@@@P!@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P!@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P!@@@@@@@@@@@@@@@@@@ @@@@@@@@  3"g@P" @@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  @@@@@@@@P"K@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@@@@@P"v@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ Ls@P" P< =< ?$ ?d '?܀????O@6@7@F@V@W@X@Y@w@@P"@@@@ @À@@ @ڀ@ۀ@@AA,A/A7A8 AFANAO A]A^@P"A_A}AAAAA AAA AAAABBBB%B&BDBbB@P#"BBB B BBBBBCC C CCC( C-C1C5C9C:C;@P#MC?CDCHCLCMCkCCCCCCD)DD D DDD)D)D#)D(@P#xD,)D1)D6D7D?DADFDNDRDTDVDX'DDD)DDDD D)D)@P#Dŀ)D)DπDD׀DD'EE E EE/PR9ECODR9FSTLR9FNBGpR9ALSQR9CARAR9MARAMHLD01R9UDATR9UMTHR9UDAYR9UYERR9FDTB"PR9RPRTMHLD01!GETACRPR9RPGX*T PPGCMPR D07 R CCS CCS 3.0 SL-149PR9BASER9FBSER9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS PR9MZERR9MONER9MNINR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9INVPR9SNHLR9FRCD@PkK[\`@Nal@@ @P+|@Z{[llP]}M]\Nkk``Kaazzm^L~~@PVnnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghhE  3"g*@Piijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L@P   \l_D@PPR9TOTLR9LSTRR9FTNXR9LABLR9OTBGR9DOTTR9TOTTR9EOTTR9PAGER9FTOVR9BINTR9ZCODR9YCODPR9XCODR9EDCNR9ECODR9FSTLR9FNBGR9ALSQR9CARAR9MARAMHLD01R9UDATR9UMTHR9UDAYR9UYER@P@PP @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@ @@@@@@@@@i X \ ^ ` bO    PR9FDTBPR9RPRTMHLD01!PR9RPGX*T PPGLIST D08 R CCS CCS 3.0 SL-149PR9BASER9FBSER9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS PR9MZERR9MONER9MNINR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9INVPR9SNHLR9FRCD@PkK[\`@Nal@@ @P+|@Z{[llP]}M]\Nkk``Kaazzm^L~~@PVnnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghh@Piijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L @ B H N P R T rO  '  ODHJL@P\NTPR9RPRTMHLD01!PR9RPGX*T PPGUPTB D09 R CCS CCS 3.0 SL-149PR9BASER9FBSER9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS PR9MZERR9MONER9MNINR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9INVPR9SNHLR9FRCD@PkK[\`@Nal@@ @P+|@Z{[llP]}M]\Nkk``Kaazzm^L~~@PVnnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghh@Piijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L@P 9 ? @ A B C D Ef@P dE 7E@P k@P m 7@P p@P r 7%/  3"g@P w@P y 7@P @P 7Ef/E 8EEf?E 9EEfO@P E :EEf_E ;EEfoE <EEfE >E@P EfE ?EEfE @EEfE AEEf/E@P  BEEf?E CEEfOE DEf_E FE@P (@P * F 423756:89=;<@>?FA(G@P A@P C 7@P F@P H 7@P M@P O 72  8   FF@P h@P j 0GGGG FG3FG3FGFG FG  4@P  @P @P 0GG4GG    I  3#h@P @P 955@P @P 95555 @P @P :66@P @P :6666 G9H:IH G I7777 F@P @P ;FF@P @P  ;FF@P @P  ;FF8F8 F@@P @P  FFG@P @P >GGF@P @P >GGF@P @P ;G@P @P ;FG; V ? (J JQ/ JR? JSO JT_ JUQKA@P RKBSKCTKDU 8  @P @P 0 (2(4(3(5(6 6((6PR9TRALR9LAHDR9CMOVR9MMOVR9NSQRR9CMSTR9MMSTR9MHLDR9INMKR9CLBGR9DETLR9TOTL @R9LSTR Al  3#hB@P ;L2(L4(L3ML(M5(6 6([ ?  [ 0@P f       x s   T0@P y |@P |)@8@9 @:@;@<@=@>@?0@@6@A<@BB@CH@DNP@@P 8@P P@P x @P d0@P @P )@!P@7PP@P @P D@P @P )@8@9 @:@;@<@=@>@?0@@6@A<@BB@CH@DNP@@P 8@P P@P @P @P @P 1 @(qt  3#hV@P 8@P ؈Nvv@P @P @P @P 1 /@(q@@P 8@P {{@P @P @P @P 1 ?@((@P @P @P @P 1@P 8@P ?@@@@@P 8@P W@@@  3#hj@P 8@P "W@P $@P $@P % )@P )1@P *8@P 0#@@@P 08 @P 9c@@@@@@@@@@@@@@P 98@P Fu@@@@@@@P F8@P Qu@P $ S@P S@P T X@P X1@@@@@P Y8@P f#@@M  3#h~@P f8 @P o8@@@P o8 @P xb@@@@@@@P x8@P t@@@@@P 8@P t@P S @P DTdt@P @P 1@8@9 @:@;@<@>"@?K@@S@AZ@Ba@Ch@Do@"@# @$@%@&@P @("@)K@+S@,Z@-a@.h@/o@7s2@@@P 8 @P 3@@@@@P 8 @P 4@@@@P 8 @P5@@@P8 }  3#h@P6@@@@P8 @P7@@@@P8 @P&8@@@P(8 @P19@@@P38 @P<:@@@P>8 @PG;@@@@PI8 @PR=@@@@PT8 @P]>@@@@P_8 @Ph?@@@@Pj8 @Ps@@@@@Pu8 qv  3#h@P~A@@@@P8 @P@P @P@@P@P1@@@@P8@P2@P@P@P@P1@P8@P4@P@P@P@P1@P8l=  3# h@P3@P@P@P@P1@@@P8@PǠL@P@P@P@P1@P8@Pנ5@P@P@P@P1@@@P8PR9FTNX _R9LABL ^R9OTBG wR9EOTT xR9DOTTR9TOTTR9PAGER9FTOVR9BINTR9ZCODR9YCODR9XCODR9EDCN@PM,@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  3# h@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@X@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P=@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"@@@@@@@@k@@@k@@Ph@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@M]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M]@@`@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@M]@@`@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@M]@@k@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@M]@@k`k`k`k@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P?@@@M]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@{@@@Pj@@M]@@`@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@M]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M@P]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M]@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@M]@@@@@@@@@@@@@@@@@@@@PA@@@@@@@@@@@M]@@@@@@@@@@@@@@@@@@@``@Pl@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PC@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@(z  3# h@Pn@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@ @P Lv= 'X O J#####O#n#r'#O####@P#####$$9$?$E$K$Q$WO$$$$$$$$$$@PE$%%% %%%%%%!%$%&%'%-%1%5%6%7%8%9%W@Pp%]%c%i%o%uO%%ǀ%%̀%%%%ڀ%݀PR9ECODR9FSTLR9FNBGR9ALSQR9CARAR9MARAMHLD01R9UDATR9UMTHR9UDAYR9UYERR9FDTBPR9RPRTMHLD01!PR9RPGX*T PTIMUSE D10 R CCS CCS 3.0 SL-149PR9BASER9FBSER9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS PR9MZERR9MONER9MNINR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9INVPR9SNHLR9FRCD@PkK[\`@Nal@@ @P+|@Z{[llP]}M]\Nkk``Kaazzm^L~~@PVnnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghh@Piijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L@@PC@PE ??>?<=& (&' (' (' & (22(()(y  3#i@Pp* (++*2@P{@P} (,, -,@P@P- -(((F@PFG-@PPR9BINPR9TRALR9LAHDR9CMOVR9MMOVR9NSQRR9CMSTR9MMSTR9MHLDR9INMKR9CLBGR9DETLR9TOTL@P-Gr* )r.r.*r)r/%r%r! /@Pr +{d@P@PH HH@P @P d@P  @P @-H HH@$@P  @P )`@@@P 8 @P !zp.&&ݣ  3#i2@P  )@P ) $@P * 0@P 0)@P 18@P 7/&&   t@P B x $ @P < H@P H)@"((@P ; M@P M   t@P T x $ @P N Z@P Z)@#(K@@@P ]8@P hy@P h8@P l0~~@P M p@P p   t9v  3#iF@P w x $ @P q }@P })@$(A@րz@P 8@P JJ@P p @P @@ t@P x@$ @P @P )րz@P 8 @P @ @%%@P @P @@ t@P x@$ @P @P )@P 8@P @P 8  3#iZ@P !@P 8@P &Ӏ@P 8@P /ŀ@P 8@P 5À@P 8@P :ŀ@P 8@P @@P 8@P @@P @P   t@P x $ @P @P )@P 8@P ɀ2  3#in@P 8@P !ɀ@P 8@P &ɀ@P 8@P /@P 8@P 5Ā@P 8@P :Ā@P 8@P @Ā@P 8@P I@P 8@P I@P @P  @P  @P )q@ 2 >zp= >zp2zp!2zp+&aa  3#i@P Ap/@5@:@@@~~@P ) N@P N`@P R@P O S@P S)F\\\@@@@\\\@P T8@P aF@P N c@P c$@@P d g@P gH!PP@P  l@P l@P m o@P o!@ H)@@@P u8PR9LSTRR9FTNXR9LABLR9OTBGR9EOTTR9TOTT R9DOTT ;R9PAGER9FTOVR9BINTR9ZCODR9YCODR9XCOD@P y )@  @@@@@@@@@@@@@@@@@@@@  @@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @ @@@@@@@@EJ  3#i@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PR9EDCNR9ECODR9FSTLR9FNBG R9ALSQR9CARA R9MARAMHLD01R9UDAT R9UMTH R9UDAY R9UYER R9FDTB ;@P %@@@@ @@@@@@@@@@@@@ i}t @P P0468;=?BDJLNP7'@P {''&'NQTWZ^`cipsvPR9RPRTMHLD01!PR9RPGX*T PTRENDP D11 R CCS CCS 3.0 SL-149PR9BASER9FBSER9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS PR9MZERR9MONER9MNINR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9INVPR9SNHLR9FRCD@PkK[\`@Nal@@ @P+|@Z{[llP]}M]\Nkk``Kaazzm^L~~@PVnnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghh@Piijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L'fjlptuvz|@P PR9RPRTMHLD01!PR9RPGX*T PUPD500 D14 R CCS CCS 3.0 SL-1491  3#jrPR9BASER9FBSER9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS PR9MZERR9MONER9MNINR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9INVPR9SNHLR9FRCD@PkK[\`@Nal@@ @P+|@Z{[llP]}M]\Nkk``Kaazzm^L~~@PVnnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghh@Piijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L,@,B,E,U),Z,^),c),h),m),r,v,z,~,',,,,,PR9RPRTMHLD01!PR9RPGX*T PWRTOFP D15 R CCS CCS 3.0 SL-149PR9BASER9FBSER9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS PR9MZERR9MONER9MNINR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9INVPR9SNHLR9FRCD@PkK[\`@Nal@@ @P+|@Z{[llP]}M]\Nkk``Kaazzm^L~~@PVnnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghh@Piijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L@@P+8@P0FJ@@@P68<  3#*kN@P:RR@P @@P@ t@PD x$4@PAP@PP ?@(E@ŀz@PU8@P\NN@P@`@P` 4 $    t@Ps x@Pat@Pt @@@@@@@Pu8 @P|  ! " @@@@@@@P8 @PH@P8@PV@@P8  3#+kb@P\@P8@Pc@P8@Pk@P8@Py@P8@P@@P8@P@P`@P4$ t@P x@P@P @ŀ@P8 @P  ! " @@P8 @Pr:  3#,kv@P8@P&@P8@PH@P8@PU@P8@P\ŀ@P8@Pbր@P8@Pk@P8@Py@P8@P@a@P8@P@P@P  3#-k@P @P @  " !@ @  " !@ @ @@JW\@ alz`@P2@P4`@P6@P/8@P8AK@P98 @PAY@@@PA8 @PIn@@@PI8@PS}@Հ@PS8 @P[}@P.]@P]@Pa@Pc@Pe  3#.k@P^g@Pg \\@Ph8@Pk@@@@@Pk8@Pr @Ā@Ps8@Pz@\\@P{8@PAY l!||@P]@P`@P@P@PAK@@P8 @PY@@@P8 @Pn@@@P8  3#/k@P}@Հ@P8 @P}@P@P @P@P@P \\\\@P8@P@@P8@P  "@@@@@P8@P!@@@@@@@@@@P8@P @\\\\@P8 @PA"Y#l$||@P@P`  :  3#0k@P@P@P/\\\@@@ɀ@P8@PI\\\\@@@@\\\\@P8@PI`@P@PAK@@P8 @P!Y@@@P!8 @P)n@@@P)8@P3}@Հ@P38 @P;}@P=@P=@P>CHN  3#1k@PC \\@PD8@PG@@@@@PG8@PN @Ā@PO8@PV@\\@PW8@P^AY l!||@P=h@Ph @Pin@Pn @(P@@`@Pt8@PQ@`@ـ@P8@Pr@P8@P%ww@PhJ  3#2k@P@P@P /@(D@@@P8@PL>@P8@PFJ@@@P8@PRR@P@P@P@P ?@(E@ŀz@P8@P׀NN@P@P`Ć@P@PAK@@P8 +  3#3l@PY@@@P8 @Pn@@@P8@P}@Հ@P8 @P }@P @P  Ć@P  @P  \\\\@P 8@P @@P 8@P   "@@@@@P 8@P !!@@@@@@@@@@P #8@P * @\\\\@P +8 I  3#4lPR9LSTRR9FTNXR9LABLR9OTBGR9DOTTR9TOTT.R9EOTTR9PAGER9FTOVR9BINTR9ZCODR9YCODR9XCOD@P 3A"Y#l$||@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P ^@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  @@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  @P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  PR9EDCNR9ECODR9FSTLR9FNBG =R9ALSQR9CARA >R9MARAMHLD01R9UDAT R9UMTH R9UDAY R9UYER R9FDTB @P YV '   $%)-KO)T)@P Y]_c)hijl'  ++++++ȁPR9RPRTMHLD01!PR9RPGX*T PZCCS16 D16 R CCS CCS 3.0 SL-149PR9BASER9FBSER9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS PR9MZERR9MONER9MNINR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9INVPR9SNHLR9FRCD@PkK[\`@Nal@@ @P+|@Z{[llP]}M]\Nkk``Kaazzm^L~~@PVnnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghh@Piijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.LPR9BASER9FBSER9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS PR9MZERR9MONER9MNINR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9INVPR9SNHLR9FRCD@PkK[\`@Nal@@ @P+|@Z{[llP]}M]\Nkk``Kaazzm^L~~@PVnnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghh@Piijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.Ll1DEFINE,FN=PRFLM003,OW=LA,ED=999999,TY=S,LR=80,NR=25_^1LOAD,FN=PRFLM003,OW=LA_^1CHEKID_]_^1 * THE UTILITY FILE MAINTENANCE ROUTINE WILL BE EXECUTED_^1 *_]_^1 **** OPERATOR - YOU CAN ADD, UPDATE OR DELETE UTILITY FILE RECORDS_^1 *_.FROM THE CONSOLE_^1 *_]_^1 *_.FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN_^1LUTFMT_]_^1 * THE UTILITY FILE WILL BE LISTED ON THE PRINTER_^1INPUT=PRFLM003_^1UTIL_]_^1LIST,FN=LAUTIFIL,L=LPRINTER,F=U_^1EX_]_^1 * CHECK PRINTER LISTING TO VERIFY THAT RECORDS ARE CORRECT_^1 * THE UTILITY FILE MAINTENANCE ROUTINE IS COMPLETE_^1MNUPRO_]_^1/!_]_^__ PLM04 CSY/ 1DEFINE,FN=PRFLM004,OW=LA,ED=999999,TY=S,LR=80,NR=15_^1LOAD,FN=PRFLM004,OW=LA_^1CHEKID_]_^1 * THE DECISION TABLE MAINTENANCE ROUTINE WILL BE EXECUTED_^1 *_]_^1 ****OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN_^1LDECMT_]_^1 * THE DECISION TABLE MAINTENANCE ROUTINE IS COMPLETE_^1MNUPRO_]_^1/!_]_^__PLM05 CSY/ 1DEFINE,FN=PRFLM005,OW=LA,ED=999999,TY=S,LR=80,NR=15_^1LOAD,FN=PRFLM005,OW=LA_^1CHEKID_]_^1 * THE ACTIVITY VERIFICATION TABLE WILL BE PRINTED_^1LAVMDP_]_^1 * THE ACTIVITY VERIFICATION TABLE HAS BEEN PRINTED_^1MNUPRO_]_^1/!_]_^__PLM06 CSY/ 1DEFINE,FN=PRFLM006,OW=LA,ED=999999,TY=S,LR=80,NR=15_^1LOAD,FN=PRFLM006,OW=LA_^1CHEKID_]_^1 * THE ACTIVITY VERIFICATION TABLE ROUTINE WILL BE EXECUTED_^1 *_]_^1LAVMCN_]_^1 * THE ACTIVITY VERIFICATION TABLE ROUTINE IS COMPLETE_^1 * THE ACTIVITY VERIFICATION TABLE WILL BE PRINTED_^1LAVMDP_]_^1 * THE ACTIVITY VERIFICATION TABLE HAS BEEN PRINTED_^1MNUPRO_]_^1/!_]_^__ PLM07 CSY/ 1DEFINE,FN=PRFLM007,OW=LA,ED=999999,TY=S,LR=80,NR=15_^1LOAD,FN=PRFLM007,OW=LA_^1CHEKID_]_^1 * THE FILE SPACE AUDIT REPORT WILL BE PRINTED_^1 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER Rv  3#?lEVIEWING_^1 *_.SCREEN INFORMATION_^1LCCSSP_]_^1CCSPAS_]_^1 * THE FILE SPACE AUDIT REPORT IS COMPLETE_^1MNUPRO_]_^1/!_]_^__PLM08 CSY/ 1DEFINE,FN=PRFLM008,OW=LA,ED=999999,TY=S,LR=80,NR=20_^1LOAD,FN=PRFLM008,OW=LA_^1CHEKID_]_^1 * THE SCREEN DEFINITION FILE WILL BE PRINTED_^1INPUT=PRFLM008_^1UTIL_]_^1LIST,FN=LASCNDSC,L=LPRINTER,F=U_^1EX_]_^1 * THE SCREEN DEFINITION FILE HAS BEEN PRINTED_^1 **** OPERATOR - IF CHANGES ARE TO BE MADE TO THE SCREEN DESCRIPTION_^1 *_.FILE ENTER THE EDITOR TO PROCESS THE LASCNDSC FILE,_^1 *_.WHEN COMPLETE PERFORM THE NEXT MENU PROCEDURE STEP 'K'_^1 *_.CARRIAGE RETURN WHEN READY TO CONTINUE_^1CCSPAS_]_^1MNUPRO_]_^1/!_]_^__PLM09 CSY/ 1DEFINE,FN=PRFLM009,OW=LA,ED=999999,TY=S,LR=80,NR=15_^1LOAD,FN=PRFLM009,OW=LA_^1CHEKID_]_^1 * THE SCREEN FILE WILL BE CREATED_^1LBLDSR_]_^1 * THE SCREEN FILE HAS BEEN CREATED_^1MNUPRO_]_^1/!_]_^__PLM10 CSY/ 1DEFINE,FN=PRFLM010,OW=LA,ED=999999,TY=S,LR=80,NR=20_^1LOAD,FN=PRFLM010,OW=LA_^1CHEKID_]_^1 * THE LADLQMST, LACOSIGN AND LAACTFIL FILES WILL BE PURGED_^1LCMPDQ_]_^1INPUT=PRFLM010_^1UTIL_]_^1COMPRE,FN=LACOSIGN_^1COMPRE,FN=LAACTFIL_^1EX_]_^1 * THE LADLQMST, LACOSIGN AND LAACTFIL FILES HAVE BEEN PURGED_^1MNUPRO_]_^1/!_]_^__PLM11 CSY/ 1DEFINE,FN=PRFLM011,OW=LA,ED=999999,TY=S,LR=80,NR=15_^1LOAD,FN=PRFLM011,OW=LA_^1CHEKID_]_^1 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE_^1 * WILL BE PRINTED_^1LACTMT_]_^1 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE_^1 * HAS BEEN PRINTED_^1MNUPRO_]_^1/!_]_^__PLM12 CSY/ R  3#@m1DEFINE,FN=PRFLM012,OW=LA,ED=999999,TY=S,LR=80,NR=15_^1LOAD,FN=PRFLM012,OW=LA_^1CHEKID_]_^1 * THE LEGAL ACTIVE USER FILE MAINTENANCE ROUTINE WILL BE EXECUTED_^1 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN_^1 *_]_^1LUSEMT_]_^1 * THE LEGAL ACTIVE USER FILE MAINTENANCE ROUTINE IS COMPLETE_^1MNUPRO_]_^1/!_]_^__ PLM13 CSY/ 1DEFINE,FN=PRFLM013,OW=LA,ED=999999,TY=S,LR=80,NR=10_^1LOAD,FN=PRFLM013,OW=LA_^1CHEKID_]_^1 * THE REPORT GENERATOR DATA ELEMENT TABLE WILL BE PRINTED_^1LPGLTB_]_^1MNUPRO_]_^1/!_]_^__PLM14 CSY/ 1DEFINE,FN=PRFLM014,OW=LA,ED=999999,TY=S,LR=80,NR=40_^1LOAD,FN=PRFLM014,OW=LA_^1CHEKID_]_^1 * THE REPORT GENERATOR DATA ELEMENT TABLE ROUTINES WILL BE EXECUTED_^1 *_]_^1 * THE DATA ELEMENT TABLE WILL BE PRINTED_^0LPGLTB_]_^1 * THE DATA ELEMENT TABLE HAS BEEN PRINTED_^1 *_]_^1 * THE DATA ELEMENT TABLE WILL BE UPDATED_^1 *_]_^1 ****OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN_^1 *_]_^1INPUT=PRFLM014_^1SWITCH_]_^1000000000_]_^0LPGUTB_]_^1 * THE DATA ELEMENT TABLE HAS BEEN UPDATED_^1 *_]_^1 * THE DATA ELEMENT TABLE WILL BE PURGED_^1INPUT=PRFLM014_^1UTIL_]_^1DEFINE,FN=LATBLWRK,TY=R,K1=6,P1=1,NR=2000,LR=80_^1EX_]_^1LPGCMP_]_^1INPUT=PRFLM014_^1UTIL_]_^1DELETE,FN=LARPTTBL_^1RENAME,FN=LATBLWRK,F2=LARPTTBL_^1EX_]_^1 * THE DATA ELEMENT TABLE HAS BEEN PURGED_^1 *_]_^1 * THE REPORT GENERATOR DATA ELEMENT TABLE ROUTINES ARE COMPLETE_^1MNUPRO_]_^1/!_]_^__ PLM15 CSY/ 1DEFINE,FN=PRFLM015,OW=LA,ED=999999,TY=S,LR=80,NR=35_^1LOAD,FN=PRFLM015,OW=LA_^1CHEKID_]_^1 * THE PROGRAM DIRECTORY FILE ROUTINES WILL BE EXECUTED_^1 *_]_^1 * THE PROGRAM DIRECTORY FILE WILL BE PRINTED_^1LPGLIS_]_^1 * THE PROGRAM DIRECTORY FILE HAS BEEN PRINTED_^1 *_]_^1 *_]_^1 * THE PROGRAM DIRECTORY FILE WILL BE PURGED_^1 *_]_^1 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN_^1 *_]_^1LPGPRG_]_^1INPUT=PRFLM015_^1UTIL_]_^1COMPRE,FN=LARPTPGM_^1EX_]_^1 * THE PROGRAM DIRECTORY FILE HAS BEEN PURGED_^1 *_]_^1 * THE PROGRAM DIRECTORY FILE WILL BE PRINTED@  3#Am_^1LPGLIS_]_^1 * THE PROGRAM DIRECTORY FILE HAS BEEN PRINTED_^1 *_]_^1 * THE PROGRAM DIRECTORY FILE ROUTINES HAVE BEEN EXECUTED_^1MNUPRO_]_^1/!_]_^__ PLM16 CSY/ 1DEFINE,FN=PRFLM016,OW=LA,ED=999999,TY=S,LR=80,NR=15_^1LOAD,FN=PRFLM016,OW=LA_^1CHEKID_]_^1 * THE SCREEN FILES WILL BE PRINTED_^1 *_]_^1 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN_^1 *_]_^1LPRSCN_]_^1 * THE SCREEN FILES HAVE BEEN PRINTED_^1MNUPRO_]_^1/!_]_^__ PLM17 CSY/ 1DEFINE,FN=PRFLM017,OW=LA,ED=999999,TY=S,LR=80,NR=15_^1LOAD,FN=PRFLM017,OW=LA_^1CHEKID_]_^1 * THE CLIENT FILE MAINTENANCE PROGRAM WILL BEGIN_^1CLIENT_]_^1 * THE CLIENT FILE MAINTENANCE PROGRAM HAS COMPLETED_^1MNUPRO_]_^1/!_]_^__PLO01 CSY/ 1DEFINE,FN=PRFLO001,OW=LA,ED=999999,TY=S,LR=80,NR=20_^1LOAD,FN=PRFLO001,OW=LA_^1CHEKID_]_^1INPUT=PRFLO001_^1SWITCH_]_^110000000_]_^1 * DELINQUENT RECORD CONTENT REPORT WILL NOW BE PRINTED_^1 * THE ACCOUNTS BEING PRINTED ARE THE INACTIVE ACCOUNTS NOT PREVIOUSLY_^1 * PRINTED_]_^1LDTLST_]_^1 * THE DELINQUENT RECORD CONTENT REPORT IS COMPLETE_^1MNUPRO_]_^1/!_]_^__PLO02 CSY/ 1DEFINE,FN=PRFLO002,OW=LA,ED=999999,TY=S,LR=80,NR=20_^1LOAD,FN=PRFLO002,OW=LA_^1CHEKID_]_^1INPUT=PRFLO002_^1SWITCH_]_^101000000_]_^1 * DELINQUENT RECORD CONTENT REPORT WILL NOW BE PRINTED_^1 * THE ACCOUNTS BEING PRINTED WERE REQUESTED BY THE SUPERVISOR_^1LDTLST_]_^1INPUT=PRFLO002_^1UTIL_]_^1CLEAR,FN=LASREQDL_^1EX_]_^1 * THE DELINQUENT RECORD CONTENT REPORT IS COMPLETE_^1MNUPRO_]_^1/!_]_^__ PLO03 CSY/ ѥ  3#Bm.0DEFINE,FN=PRFLO003,OW=LA,ED=999999,TY=S,LR=80,NR=40_^1LOAD,FN=PRFLO003,OW=LA_^1CHEKID_]_^1 * CALCULATE AGE FOR TREND ANALYSIS_^1LTRNDF_]_^1 * THE TREND ANALYSIS AGE CALCULATION IS COMPLETE_^1 *_]_^1 * THE LAACCAGE AND LARSWFIL FILES ARE BEING SORTED INTO LAAGEWRK_^1INPUT=PRFLO003_^1UTIL_]_^1DELETE,FN=LAAGEWRK_^1EX_]_^1INPUT=PRFLO003_^1DSORT_]_^1FN=LAACCAGE,LA_^1FN=LARSWFIL,LA_^1F2=LAAGEWRK,LA,SYSVOL_^1OP=T,F,A_]_^1KF=A,1,1,A,17,4_^1SL=I_]_^1 * THE LAACCAGE AND LARSWFIL FILES HAVE BEEN SORTED_^1 *_]_^1 **** OPERATOR -_^1 *_"RESPOND:_!'N' CARRIAGE RETURN TO BYPASS UPDATING PREVIOUS_^1 *_.TREND DATA FOR NEXT RUN_^1 *_]_^1 *_.CARRIAGE RETURN ONLY TO UPDATE PREVIOUS TREND DATA_^1 *_.FOR NEXT RUN_^1CCSPAS_]_^1LTRNDU_]_^1INPUT=PRFLO003_^1UTIL_]_^1CLEAR,FN=LARSWFIL_^1EX_]_^1MNUPRO_]_^1/!_]_^__ PLO04 CSY/ 1DEFINE,FN=PRFLO004,OW=LA,ED=999999,TY=S,LR=80,NR=25_^1LOAD,FN=PRFLO004,OW=LA_^1CHEKID_]_^1 * GENERATE THE TREND ANALYSIS REPORT BY QUEUE_^1 * THE LAAGEWRK FILE IS BEING SORTED_^1INPUT=PRFLO004_^1DSORT_]_^1FN=LAAGEWRK,LA_^1F2=LAAGEWRK,LA,_^1OP=T,F,A_]_^1KF=A,1,1,A,17,4_^1SL=I_]_^1 * THE LAAGEWRK FILE HAS BEEN SORTED_^1 * THE TREND ANALYSIS REPORT BY QUEUE WILL NOW BE PRINTED_^1INPUT=PRFLO004_^1SWITCH_]_^110000000_]_^1LTRNDP_]_^1 * THE TREND ANALYSIS REPORT BY QUEUE IS COMPLETE_^1MNUPRO_]_^1/!_]_^__ PLO05 CSY/ 1DEFINE,FN=PRFLO005,OW=LA,ED=999999,TY=S,LR=80,NR=25_^1LOAD,FN=PRFLO005,OW=LA_^1CHEKID_]_^1 * GENERATE THE TREND ANALYSIS REPORT BY PRODUCT TYPE_^1 * THE LAAGEWRK FILE IS BEING SORTED_^1INPUT=PRFLO005_^1DSORT_]_^1FN=LAAGEWRK,LA_^1F2=LAAGEWRK,LA,_^1OP=T,F,A_]_^1KF=A,1,1,A,25,4_^1SL=I_]_^1 * THE LAAGEWRK FILE HAS BEEN SORTED_^1 * THE TREND ANALYSIS REPORT BY PRODUCT TYPE WILL NOW BE PRINTED_^1INPUT=PRFLO005_^1SWITCH_]_^100000000_]_^1LTRNDP_]_^1 * THE TREND ANALYSIS REPORT BY PRODUCT TYPE IS COMPLETE_^1MNUPRO_]_^1/!_]_^__PLO06 CSY/ Z  3#CmB1DEFINE,FN=PRFLO006,OW=LA,ED=999999,TY=S,LR=80,NR=35_^1LOAD,FN=PRFLO006,OW=LA_^1CHEKID_]_^1 * THE WRITE-OFF REPORT WILL BE GENERATED_^1 * THE LAWRTOEF FILE WILL BE CREATED_^1INPUT=PRFLO006_^1UTIL_]_^1DEFINE,FN=LAWRTOEF,ED=999999,TY=S,LR=115,NR=6000_^1EX_]_^1LWROFE_]_^1 * THE LAWRTOEF FILE HAS BEEN CREATED_^1 * THE LAWRTOEF FILE IS BEING SORTED_^1INPUT=PRFLO006_^1DSORT_]_^1FN=LAWRTOEF,LA_^1F2=LAWRTOEF,LA,_^1OP=T,F,A_]_^1KF=A,25,1,A,17,4,A,21,4,A,1,16_^1SL=I_]_^1 * THE LAWRTOEF FILE HAS BEEN SORTED_^1 * THE WRITE-OFF REPORT WILL BE PRINTED_^0LWROFP_]_^1INPUT=PRFLO006_^1UTIL_]_^1DELETE,FN=LAWRTOEF_^1EX_]_^1 * THE WRITE-OFF REPORT IS COMPLETE_^1MNUPRO_]_^1/!_]_^__PLO07 CSY/ 1DEFINE,FN=PRFLO007,OW=LA,ED=999999,TY=S,LR=80,NR=15_^1LOAD,FN=PRFLO007,OW=LA_^1CHEKID_]_^1 * THE DAILY ASSIGNMENT REPORT LIST WILL BE PRINTED_^1LDALST_]_^1 * THE DAILY ASSIGNMENT LIST REPORT IS COMPLETE_^1MNUPRO_]_^1/!_]_^__ PLO08 CSY/ 1DEFINE,FN=PRFLO008,OW=LA,ED=999999,TY=S,LR=80,NR=15_^1LOAD,FN=PRFLO008,OW=LA_^1CHEKID_]_^1 * THE SUMMARY ACCOUNT REPORT LIST WILL BE PRINTED_^1LSUMAC_]_^1 * THE SUMMARY ACCOUNT REPORT LIST IS COMPLETE_^1MNUPRO_]_^1/!_]_^__ PLO09 CSY/ 1DEFINE,FN=PRFLO009,OW=LA,ED=999999,TY=S,LR=80,NR=25_^1LOAD,FN=PRFLO009,OW=LA_^1CHEKID_]_^1 * THE WEEKLY COLLECTOR STATISTICS REPORT WILL BE PRINTED_^1INPUT=PRFLO009_^1SWITCH_]_^101000000_]_^1LCOLST_]_^1 * THE WEEKLY COLLECTOR STATISTICS REPORT IS COMPLETE_^1 **** OPERATOR -_^1 *_"RESPOND: 'N' CARRIAGE RETURN - TO BYPASS ZEROING THE WEEKLY COUNT_^1 *_]_^1 *_,CARRIAGE RETURN ONLY - TO ZERO THE WEEKLY COUNT_^1CCSPAS_]_^1INPUT=PRFLO009_^1SWITCH_]_^100001000_]_^1LCOLST_]_^1MNUPRO_]_^1/!_]_^__PLO10 CSY/ Kd  3#DmV1DEFINE,FN=PRFLO010,OW=LA,ED=999999,TY=S,LR=80,NR=25_^1LOAD,FN=PRFLO010,OW=LA_^1CHEKID_]_^1 * THE MONTHLY COLLECTOR STATISTICS REPORT WILL BE PRINTED_^1INPUT=PRFLO010_^1SWITCH_]_^100100000_]_^1LCOLST_]_^1 * THE MONTHLY COLLECTOR STATISTICS REPORT IS COMPLETE_^1 **** OPERATOR -_^1 *_"RESPOND: 'N' CARRIAGE RETURN - TO BYPASS CLEARING THE COLLECTOR_^1 *_CSTATISTICS COUNT FILE_^1 *_]_^1 *_,CARRIAGE RETURN ONLY - TO CLEAR THE COLLECTOR STATISTICS_^1 *_CCOUNT FILE_^1CCSPAS_]_^1INPUT=PRFLO010_^1UTIL_]_^1CLEAR,FN=LACOLSTS_^1EX_]_^1MNUPRO_]_^1/!_]_^__ PLCTR CSY/ 1DEFINE,FN=PRFLACTR,OW=LA,ED=999999,TY=S,LR=80,NR=40_^1LOAD,FN=PRFLACTR,OW=LA_^1CHEKID_]_^1 **** OPERATOR - THE BATCH HOST MUST BE ACTIVE BEFORE PROCEEDING_^1 **** OPERATOR - (BATCH HOST MUST BE ACTIVE BEFORE PROCEEDING)_^1 *_.TO ACTIVATE BATCH HOST_^1 *_.MI, *BATCH,F_^1 *_]_^1 *_"RESPOND: 'N' CARRIAGE RETURN - IF BATCH HOST IS NOT ACTIVE_^1 *_]_^1 *_,CARRIAGE RETURN ONLY - TO CONTINUE_^1CCSPAS_]_^1 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN_^1INPUT=PRFLACTR_^1UTIL_]_^1DEFINE,FN=LARPTWKE,LR=80,NR=1000_^1DEFINE,FN=LARPTWKP,LR=80,NR=1000_^1DEFINE,FN=LAPRCWRK,LR=80,NR=50_^1EX_]_^1LPGGEN_]_^1 * THE REPORT GENERATOR PROGRAMS HAVE BEEN CREATED_^1 * THE REPORT GENERATOR PROGRAMS WILL BE BATCHED_^1INPUT=PRFLACTR_^1UTIL_]_^1BATCH,FN=LARPTWKE,TY=N_^1BATCH,FN=LARPTWKP,TY=R_^1DELETE,FN=LARPTWKE_^1DELETE,FN=LARPTWKP_^1CLEAR,FN=LAPGEXTR_^1EX_]_^1LPGCT1_]_^1 *_]_^1 **** OPERATOR - SELECTION L MUST NOW BE RUN TO EXECUTE THE REPORT_^1 *_.CARRIAGE RETURN WHEN READY_^1CCSPAS_]_^1MNUPRO_]_^1/!_]_^__ PLO12 CSY/ 1DEFINE,FN=PRFLO012,OW=LA,ED=999999,TY=S,LR=80,NR=15_^1LOAD,FN=PRFLO012,OW=LA_^1CHEKID_]_^1 * THE QUEUE LOADING REPORT WILL BE PRINTED_^1LQLOAD_]_^1 * THE QUEUE LOADING REPORT IS COMPLETE_^1MNUPRO_]_^1/!_]_^__ PLO13 CSY/ 1DEFINE,FN=PRFLO013,OW=LA,ED=999999,TY=S,LR=80,NR=25_^1LOAD,FN=PRFLO013,OW=LA_^1CHEKID_]_^1 * PAYMENT FILE WILL BE SORTED FOR THE COMPLETE PAYMENT REPORT_^1INPUT=PRFLO013_^1DSORT_]_^1FN=LAPMTFX  3#EmjIL,LA_^0F2=LAPMTFIL,LA,_^1OP=T,F,A_]_^1KF=A,34,4,A,29,6_^1SL=I_]_^1INPUT=PRFLO013_^1 * COMPLETE PAYMENT REPORT WILL NOW BE PRINTED_^1COMPAY_]_^1 * DIRECT PAYMENT REPORT WILL NOW BE PRINTED_^1DIRPAY_]_^1INPUT=PRFLO013_^1UTIL_]_^1CLEAR,FN=LAPMTFIL_^1EX_]_^1MNUPRO_]_^1/!_]_^__PLO14 CSY/ 0DEFINE,FN=PRFLO014,OW=LA,ED=999999,TY=S,LR=80,NR=45_^1LOAD,FN=PRFLO014,OW=LA_^1CHEKID_]_^1 * THE INVENTORY REPORT PROCESS WILL NOW BEGIN_^1 * THE CLIENT FILE IS BEING EXTRACTED_^0INPUT=PRFLO014_^0UTIL_]_^0DEFINE,FN=LACLINV,TY=S,LR=80,NR=100_^0EX_]_^1LCLIUD_]_^1CLXTRT_]_^1 * CLIENT EXTRACT RECORDS WILL BE SORTED_^1INPUT=PRFLO014_^1DSORT_]_^1FN=LACLINV,LA_^1F2=LACLINV,,_^1OP=T,F,A_]_^1KF=A,1,16_]_^1SL=I_]_^1INPUT=PRFLO014_^1 * THE INVENTORY REPORT BY ACCOUNT WILL BE PRINTED_^1INVCUS_]_^1 * CLIENT EXTRACT RECORDS WILL BE SORTED BY CLIENT_^1INPUT=PRFLO014_^1DSORT_]_^1FN=LACLINV,LA_^1F2=LACLINV,,_^1OP=T,F,A_]_^1KF=A,17,4_]_^1SL=I_]_^1INPUT=PRFLO014_^1 * THE INVENTORY REPORT BY CLIENT WILL BE PRINTED_^1INVCLI_]_^0INPUT=PRFLO014_^0UTIL_]_^0DELETE,FN=LALCLINV_^0EX_]_^1 * INVENTORY REPORT PROCESS IS COMPLETE_^1MNUPRO_]_^1/!_]_^__ PLO15 CSY/ 1DEFINE,FN=PRFLO015,OW=LA,ED=999999,TY=S,LR=80,NR=15_^1LOAD,FN=PRFLO015,OW=LA_^1CHEKID_]_^1 * THE RECOVERY ANALYSIS REPORT WILL BEGIN_^1LCLIUD_]_^1RECVRY_]_^1 * THE RECOVERY ANALYSIS REPORT IS COMPLETE_^1MNUPRO_]_^1/!_]_^__ END/ __INE,FN=PRFLO015,OW=LA,ED=999999,TY=S,LR=80,NR=15_^1LOAD,FN=PRFLO015,OW=LA_^1CHEKID_]_^1 * THE RECOVERY ANALYSIS REPORT WILL BEGIN_^1LCLIUD_]_^1RECVRY_]_^1 * THE RECOVERY ANALYSIS REPORT IS6  3#Fm~ COMPLETE_^1MNUPRO_]_^1/!_]_^__ END/ __mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3#GmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmJ  3#Hmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm5  3#Immmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3#JmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmALmO CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm*JOB 00010*CTO,...FILE: CCSMIC.J 00020*CTO,GENERATE MICRO ASSEMBLER HOLERITH 00030*OPEN,FN=CCSDVR.C,OW=CCS20,VL=SOURCE,LU=21,R 00040*OPEN,FN=CCSITO.C,OW=CCS20,VL=SOURCE,LU=22,R 00050*OPEN,FN=CCSMIC.H,OW=CCS20,VL=SOURCE,LU=23,W 00060*K,I13 00070*CSY,I22,P23 00080*COSY 00090DECDAG DCK/ I,H 00100CISCOM DCK/ I,H 00110MICROS DCK/ I=21,H 00120 END/ 00130*CTO,... 00140*CTO,MOUNT TAPE FOR MICRO ASSEMBLER HOLERITH ON UNIT 0. 00150*PAUS 00160*REW,23 00170*LIBEDT 00180*T,13,A,6,A,3 00190*JOB 00200*K,I6,P16 00210*MP 00220*T,23,A,6,A,,1 00230*Z 002404  3#Km*BSR,6,2 00250*LIBEDT 00260*T,13,A,6,A,4 00270*K,P16 00280*EOF 00290*CTO,MICRO ASSEMBLY COMPLETE. DISMOUNT TAPES. 00300*Z 00310*Z 00320*CTO,... 00330*CTO,LABEL TAPE 'MICRO ASSEMBLER PROGRAMS'. 00340*CTO,GENERATE MICRO ASSEMBLER HOLERITH COMPLETE. 00350_ mmmmmmmmALmO CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm*JOB 00010*CTO,...FILE: CCSMSO.J 00020*CTO,MSOS COMPILE RUN 00030*OPEN,FN=CCSMSO.U,OW=CCS20,VL=SOURCE,LU=20,R 00040*OPEN,FN=CCSMSO.C,OW=CCS20,VL=SOURCE,LU=21,R 00050*OPEN,FN=CCSMSO.B,OW=CCS20,VL=SOURCE,LU=22,W 00060*OPEN,FN=SCRATCH,OW=CCS20,VL=SOURCE,LU=25,W 00070*K,I20 00080*CSY,I21,P25 00090*COSY 00100*K,I25,P22 00110*K,L9 00120*CTO,ASSEM THRU 'HELP14' 00130*ASSEM 00140*K,L12 00150*CTO,FTN THRU 'HELP13' 00160*FTN 00170*K,L9 00180*CTO,ASSEM THRU 'LODMIC' 00190*ASSEM t  3#Lm 00200*CTO,MSOS COMPILE RUN COMPLETE. 00210*K,L14 00220_ mmmmmmmmAL!nO CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm*JOB 00010*CTO,...FILE: CCSITO.J 00020*CTO,ITOS COMPILE RUN 00030*OPEN,FN=CCSITO.U,OW=CCS20,VL=SOURCE,LU=20,R 00040*OPEN,FN=CCSITO.C,OW=CCS20,VL=SOURCE,LU=21,R 00050*OPEN,FN=CCSITO.B,OW=CCS20,VL=SOURCE,LU=22,W 00060*OPEN,FN=SCRATCH,OW=CCS20,VL=SOURCE,LU=25,W 00070*K,I20 00080*CSY,I21,P25 00090*COSY 00100*K,I25,P22 00110*ADF,22,1 00120*BSR,22,2 00130*CTO,ASSEM TO 'MON01' 00140*K,L9 *F  3#Mn  00150*ASSEM 00160*K,L12 00170*CTO,FTN TO 'MON02' 00180*FTN 00190*K,L9 00200*CTO,ASSEM TO 'MON03' 00210*ASSEM 00220*K,L12 00230*CTO,FTN TO 'MON04' 00240*FTN 00250*K,L9 00260*CTO,ASSEM TO 'MON05' 00270*ASSEM 00280*K,L12 00290*CTO,FTN TO 'MON06' 00300*FTN 00310*K,L9 00320*CTO,ASSEM TO 'MON07' 00330*ASSEM 00340*K,L12 00350*CTO,FTN TO 'MON08' 00360*FTN 00370*K,L9 00380*CTO,ASSEM TO 'MON09' & 'MON11' 00390*CTO,...NOTE: 'MON10' HOL GOES DIRECTLY TO BINARY FILE. 00400*ASSEM 00410*K,L12 00420*CTO,FTN TO 'MON12' 00430*FTN 00440*K,L9 00450*CTO,ASSEM TO 'MON13' 00460*ASSEM 00470*K,L12 00480*CTO,FTN TO 'MON14' 00490*FTN 00500*K,L9 00510*CTO,ASSEM TO 'MON15' 00520*ASSEM 00530*K,L12 00540*CTO,FTN TO 'MON16' 00550*FTN 00560*CTO,ITOS COMPILE RUN COMPLETE 00570*K,L14 00580_ 4  3#Nn mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmAL n$O CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm*JOB 00010*CTO,...FILE: CCSDVR.J 00020*CTO,DRIVER COMPILE RUN 00030*OPEN,FN=CCSDVR.U,OW=CCS20,VL=SOURCE,LU=20,R 00040*OPEN,FN=CCSDVR.C,OW=CCS20,VL=SOURCE,LU=21,R 00050*OPEN,FN=CCSDVR.B,OW=CCS20,VL=SOURCE,LU=22,W 00060*OPEN,FN=SCRATCH,OW=CCS20,VL=SOURCE,LU=25,W 00070*K,I20 00080*CSY,I21,P25 00090*COSY 00100*K,I25,P22 00110*K,L9 00120*ASSEM 00130*CTO,DRIVER COMPILE RUN COMPLETE 00140*K,L14 00150_ mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmAL+n.O CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm*JOB 00010*CTO,...FILE: CCSASM.J 00020*CTO,MACRO ASSEMBLER BINARY GENERATION 00030*OPEN,FN=CCSASM.C,OW=CCS20,VL=SOURCE,LU=20,R 00040*OPEN,FN=CCSASM.B,OW=CCS20,VL=SOURCE,LU=21,W 00050*OPEN,FN=CCSASM.T,OW=CCS20,VL=SOURCE,LU=22,W 00060*OPEN,FN=SCRATCH,OW=CCS20,VL=SOURCE,LU=25,W 00070*K,I13   3#On2 00080*CSY,I20,P25 00090*COSY 00100ASSEM DCK/ I,H 00110PASS1 DCK/ I,H 00120PA1PR2 DCK/ I,H 00130PASS2 DCK/ I,H 00140PA2PR2 DCK/ I,H 00150PASS3 DCK/ I,H 00160PA3PR2 DCK/ I,H 00170PA3PR3 DCK/ I,H 00180TABLST DCK/ I,H 00190XREF DCK/ I,H 00200LIBMAC DCK/ I,H 00210 END/ 00220*K,I25,P21,L9 00230*ASSEM 00240*CTO,MACRO ASSEMBLER BINARY GENERATION COMPLETE. 00250*REW,25 00260*CTO,MACRO ASSEMBLER ABSOLUTE FILES. 00270*K,I13 00280*CSY,I20,P25 00290*COSY 00300MACROS DCK/ I,H 00310 END/ 00320*K,I25,P22 00330*LIBMAC 00340*REW,22 00350*LIBEDT 00360*T,13,A,21,B,1 00370*N,MACSKL,,,B 00380*T,22,B,21,B,,1 00390*Z 00400*BSR,21,1 00410*LIBEDT 00420*T,13,A,21,B,1 00430*N,MACROS,,,B 00440*T,22,B,21,B,,1 00450*Z 00460*BSR,21,1 00470*LIBEDT 00480*T,13,A,21,B,1 00490* 00500*Z 00510*K,P21 00520*EOF 00530*CTO,... 00540*CTO,MACRO ASSEMBLER ABSOLUTE FILE LOAD COMPLETE. 00550*K,L14 6  3#PnF 00560_ mmmmmmmmmmmmmmmmALnYO CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm۬  3#QnZ*JOB 00010*CTO,...FILE: CCSFTN.J 00020*CTO,FTN COMPILE RUN 00030*OPEN,FN=CCSFTN.U,OW=CCS20,VL=SOURCE,LU=20,R 00040*OPEN,FN=CCSFTN.C,OW=CCS20,VL=SOURCE,LU=21,R 00050*OPEN,FN=CCSFTN.B,OW=CCS20,VL=SOURCE,LU=22,W 00060*OPEN,FN=SCRATCH,OW=CCS20,VL=SOURCE,LU=25,W 00070*K,I20 00080*CSY,I21,P25 00090*COSY 00100*K,I25,P22 00110*CTO,FTN TO 'MON1' 00120*K,L12 00130*FTN 00140*CTO,ASSEM TO 'MON2' 00150*K,L9 00160*ASSEM 00170*CTO,FTN TO 'IREPAK (NO MON ON COSY) 00180*K,L12 00190*FTN 00200*CTO,ASSEM TO 'MON3' 00210*K,L9 00220*ASSEM 00230*CTO,FTN TO 'MON4'(Q8TRAN HAS 'MON' ON COSY. 'MON4' NOT USED.) 00240*K,L12 00250*FTN 00260*CTO,ASSEM TO LAST PROGRAM 00270*K,L9 00280*ASSEM 00290*CTO,FTN COMPILE RUN COMPLETE 00300*K,L14 00310_  3#Rnn mmmmmmmmALnoO CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm*JOB 00010*CTO,...FILE: CCSRPG.J 00020*CTO,RPG COMPILE RUN 00030*OPEN,FN=CCSRPG.U,OW=CCS20,VL=SOURCE,LU=20,R 00040*OPEN,FN=CCSRPG.C,OW=CCS20,VL=SOURCE,LU=21,R 00050*OPEN,FN=CCSRPG.B,OW=CCS20,VL=SOURCE,LU=22,W 00060*OPEN,FN=SCRATCH,OW=CCS20,VL=SOURCE,LU=25,W 00070*K,I20 00080*CSY,I21,P25 00090*COSY 00100*K,I25,P22,L9 00110*ASSEM 00120*K,L12 00130*FTN 00140*CTO,RPG COMPILE RUN COMPLETE 00150*K,L14 00160_ mmmmmmmmmmmmmmmmmmmmmmmmALn}O CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm*JOB 00010*CTO,...FILE: CCSAPF.J 00020*CTO, RUN TO COMPILE CCS ASSEMBLER/FORTRAN PROGRAM 00030*OPEN,FN=CCSAPF.U,VL=SOURCE,OW=CCS20,LU=20,R 00040*OPEN,FN=CCSAP.C,VL=SOURCE,OW=CCS20,LU=21,R 00050*OPEN,FN=SCRATCH,VL=SOURCE,OW=CCS20,LU=22,W 00060*OPEN,FN=CCSAPF.B,VL=SOURCE,OW=CCS20,LU=23,W 00070*K,I20 00080*CSY,I21,P22 00090*COSY =  3#Sn 00100*K,I22,P23,L9 00110*ASSEM 00120*K,L12 00130*CTO, DUMMY2 PROCESSING WILL BEGIN 00140*FTN 00150*CTO, DUMMY3 PROCESSING WILL BEGIN 00160*FTN 00170*CTO, DUMMY4 PROCESSING WILL BEING 00180*FTN 00190*CTO, DUMMY5 PROCESSING WILL BEGIN 00200*FTN 00210*CTO,COMPILE OF CCS ASSEMBLER/FORTRAN PROGRAMS COMPLETE. 00220*K,L14 00230_ mmmmmmmmmmmmmmmmmmmmmmmmALnO CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm*JOB 00010*CTO,...FILE: LAAPF.J 00020*CTO, RUN TO COMPILE L/A ASEMBLER/FORTRAN PROGRAMS 00030*OPEN,FN=LAAPF.U,VL=SOURCE,OW=CCS20,LU=20,R 00040*OPEN,FN=LAAP.C,VL=SOURCE,OW=CCS20,LU=21,R 00050*OPEN,FN=SCRATCH,VL=SOURCE,OW=CCS20,LU=22,W 00060*OPEN,FN=LAAPF.B,VL=SOURCE,OW=CCS20,LU=23,W 00070*OPEN,FN=CCSAP.C,VL=SOURCE,OW=CCS20,LU=24,R 00080*K,I20 00090*CSY,I21,P22 00100*COSY 00110*K,I22,P23,L9 00120*ASSEM 00130*K,L12 00140*CTO, DUMMY2 PROCESSING WILL BEGIN 00150*FTN 00160*CTO, DUMMY3 PROCESSING WILL BEGIN 00170*FTN 00180*CTO, DUMMY4 PROCESSING WILL BEGIN 00190*FTN 00200*CTO, DUMMY5 PROCESSING WILL BEGIN 00210*FTN 00220*CTO, DUMMY6 PROCESSING WILL BEGIN 00230*FTN 00240  3#Tn*CTO,COMPILE OF L/A ASSEMBLER/FORTRAN PROGRAMS COMPLETE. 00250*K,L14 00260_ mmmmmmmmmmmmmmmmmmmmmmmmAL@nO CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm*JOB 00010*CTO,...FILE: CCSAPR.J 00020*CTO,CCS APPLICATION RPG BINARY GENERATION. 00030*CTO, CCS CUDDLY TO HOLLERITH 00040*OPEN,FN=CCSAPR.B,OW=CCS20,VL=SOURCE,LU=21,W 00050*OPEN,FN=RPG.92.T,OW=CCS20,VL=SOURCE,LU=22,W 00060*CTO,MOUNT CCS 3.O CUDDLY TAPE ON UNIT 0 00070*PAUS 00080*CUDDLY 00090CHUPD1 DCK/ I=6,H=22 00100COLCHG DCK/ I=6,H=22 00110COLSTS DCK/ I=6,H=22 00120DALIST DCK/ I=6,H=22 00130ITKDTL DCK/ I=6,H=22 00140PGCMPR DCK/ I=6,H=22 00150PGLIST DCK/ I=6,H=22 00160PGUPTB DCK/ I=6,H=22 00170TIMUSE DCK/ I=6,H=22 00180TRENDP DCK/ I=6,H=22 00190UPD500 DCK/ I=6,H=22 00200WRTOFP DCK/ I=6,H=22 00210 END/ 00220*CTO, CUDDLY TO HOLERITH DONE 00230*CTO, PUNCH CCS RPG BINARIES 00240*K,I22,L12,P21 00250*RPGII 00260*RBDPCH 00270*RPGII 00280*RBDPCH 00290*RPGII 00300*RBDPCH 00310*RPGII 00320*RBDPCH 00330*RPGII 00340*RBDPCH 00350*RPGII 00360*RBDPCH 00370*RPGII 00380*RBDPCH y"  3#Un 00390*RPGII 00400*RBDPCH 00410*RPGII 00420*RBDPCH 00430*RPGII 00440*RBDPCH 00450*RPGII 00460*RBDPCH 00470*RPGII 00480*RBDPCH 00490*K,L14 00500*CTO,CCS APPLICATION BINARY GENERATION COMPLETE. 00510_ DU  3#Vn u?  3#Wn mmmmmmmmmmmmmmmmmmmmmmmmALUnO CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm*JOB 00010*CTO,...FILE: LAAPR.J 00020*CTO,LEGAL/AGENCY RPG BINARY GENERATION. 00030*CTO, L/A CUDDLY TO HOLLERITH 00040*OPEN,FN=LAAPR.B,OW=CCS20,VL=SOURCE,LU=21,W 00050*OPEN,FN=RPG.92.T,OW=CCS20,VL=SOURCE,LU=22,W 00060*CTO,MOUNT L/A 3.O CUDDLY TAPE ON UNIT 0 00070*PAUS 00080*CUDDLY 00090COMPAY DCK/ I=6,H=22 00100DIRPAY DCK/ I=6,H=22 00110INVCLI DCK/ I=6,H=22 00120INVCUS DCK/ I=6,H=22 00130LARPRT DCK/ I=6,H=22 00140LBATPT DCK/ I=6,H=22 00150LCHUD1 DCK/ I=6,H=22 00160LCOLCG DCK/ I=6,H=22 00170LCOLST DCK/ I=6,H=22 00180LDALST DCK/ I=6,H=22 00190LDTLST DCK/ I=6,H=22 00200LPGCMP DCK/ I=6,H=22 00210LPGLIS DCK/ I=6,H=22 00220LPGUTB DCK/ I=6,H=22 00230LTMUSE DCK/ I=6,H=22 00240LTRNDP DCK/ I=6,H=22 00250LUD500 DCK/ I=6,H=22 00260LWROFP DCK/ I=6,H=22 00270RECVRY DCK/ I=6,H=22 00280 END/  3#Xn 00290*CTO, CUDDLY TO HOLERITH DONE 00300*CTO, PUNCH L/A RPG BINARIES 00310*K,I22,L12,P21 00320*RPGII 00330*RBDPCH 00340*RPGII 00350*RBDPCH 00360*RPGII 00370*RBDPCH 00380*RPGII 00390*RBDPCH 00400*RPGII 00410*RBDPCH 00420*RPGII 00430*RBDPCH 00440*RPGII 00450*RBDPCH 00460*RPGII 00470*RBDPCH 00480*RPGII 00490*RBDPCH 00500*RPGII 00510*RBDPCH 00520*RPGII 00530*RBDPCH 00540*RPGII 00550*RBDPCH 00560*RPGII 00570*RBDPCH 00580*RPGII 00590*RBDPCH 00600*RPGII 00610*RBDPCH 00620*RPGII 00630*RBDPCH 00640*RPGII 00650*RBDPCH 00660*RPGII 00670*RBDPCH 00680*RPGII 00690*RBDPCH 00700*K,L14 00710*CTO,LEGAL/AGENCY RPG BINARY GENERATION COMPLETE. 00720_ y  3#Yn u  3#Zo t  3#[o" mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmAL+o.O CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm*JOB 00010*CTO, FILE CCSCP.J 00020*CTO, GENERATE CCP1.0 PROCEDURE FILE 00030*CTO, MOUNT TAPE LABELED "CCP HOST PROCEDURE" ON UNIT 0 00040*PAUS 00050*OPEN,FN=CCSDVR.C,OW=CCS20,VL=SOURCE,LU=20,R 00060*K,I13 00070*CSY,I20,P6 00080*COSY 00090CCPJCL DCK/ I,H 00100 END/ 00110*ADF,6,1 00120*BSR,6,2 00130*K,P6 00140*EOF 00150*UNL,6 00160*CTO, GENERATE CCP1.0 PROCEDURE FILE COMPLETE Q  3#\o6 00170*CTO, MOUNT TAPE LABELED "CCP HOUSE1 PROCEDURE" ON UNIT 0 00180*PAUS 00190*LIBEDT 00200*T,13,A,6,A,6 00210*JOB 00220*CTO, MOUNT TAPE LABELED "CCP HOST OUTPUT" ON UNIT 1 (LU=16,9 TRK) 00230*CTO, MOUNT SCRATCH TAPE ON UNIT 2 FOR CVPL2H OUTPUT (LU=17,9 TRK) 00240*PAUS 00250*K,I6,L9 00260*FTN 00270*Z 00280*K,I13 00290*CSY,I20,P6 00300*COSY 00310LX DCK/ I=13,H 00320LX HOL/ 00330 OPT LX 00340 END/ 00350CVPL2H DCK/ I,H 00360 END/ 00370*ADF,6,1 00380*BSR,6,1 00390*LIBEDT 00400*T,13,A,6,A,10 00410*K,I16,P17 00420*LGO 00430*CTO, 'CVPL2H' PROCESSING COMPLETED 00440*CTO, DISMOUNT 'CCP HOST OUTPUT' TAPE FROM UNIT 1 00450*CTO, MOUNT 'CPFILE' INSTALL ON UNIT 1 (9 TRK) 00460*PAUS 00470*REW,17 00480*K,I6,L9 00490* 00500*ASSEM 00510*Z 00520*K,I13 00530*CSY,I20,P6 00540*COSY 00550LX DCK/ I=13,H 00560LX HOL/ 00570 OPT LX 00580 END/ 00590CPLOAD DCK/ I,H 00600 END/ 00610*ADF,6,1 00620*BSR,6,1 00630*LIBEDT 00640*T,13,A,6,A,4 "  3#]oJ 00650*K,I17,P16 00660*LGO 00670*CTO, GENERATION OF 'CPFILE' INSTALL TAPE COMPLETE 00680*Z 00690*Z 00700*K,P6 00710*EOF 00720*UNL,6 00730*CTO, GENERATION OF CCP1.0 JOB COMPLETE 00740*K,L14 00750_ mmmmmmmmmmmmmmmmALoYO CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm*JOB,FILTAP,---------CREATE FILE INITIALIZATION AND LOAD TAPE 00010*CTO,...FILE: FILTAP.J 00020*CTO, THIS JOB WILL CREATE THE FILE INITIALIZATION AND LOAD TAPE 00030*CTO, MOUNT OUTPUT TAPE ON UNIT '1' 00040*CTO, MOUNT CCS APPLICATION RPG CUDDLY TAPE ON UNIT '0' 00050*PAUS 00060*OPEN,FN=CCSPAM.C,OW=CCS20,R,LU=20 00070*OPEN,FN=CCSAP.C,OW=CCS20,R,LU=21 00080*OPEN,FN=LAAP.C,OW=CCS20,R,LU=22 00090*OPEN,FN=CCSAPF.B,OW=CCS20,R,LU=23 fm  3#^o^ 00100*OPEN,FN=LAAPF.B,OW=CCS20,R,LU=24 00110*OPEN,FN=MASTER.B,OW=CCS20,W,LU=25 00120*CSY,I20,P16 00130*K,P16 00140*COSY 00150PSC00 DCK/ I,H 00160LODDAC DCK/ I=13,H 00170LODDAC HOL/ 00180SFDACRTECCS20 00190 END/ 00200DACRTE DCK/ I=21,H 00210 END/ 00220*ADF,16,1 00230*BSR,16,2 00240*EOF 00250*CUDDLY 00260LODDTL DCK/ I=13,H 00270LODDTL HOL/ 00280SRDTLLSTCCS20 00290 END/ 00300DTLLST DCK/ I=6,H 00310 END/ 00320*UNL,6 00330*CTO, DISMOUNT CCS APPLICATION CUDDLY FROM TAPE UNIT '0' AND 00340*CTO, MOUNT LA APPLICATION CUDDLY TAPE ON UNIT '0' 00350*ADF,16,2 00360*BSR,16,1 00370*EOF 00380*COSY 00390LODLDA DCK/ I=13,H 00400LODLDA HOL/ 00410SFLDACRTLA 00420 END/ 00430LDACRT DCK/ I=22,H 00440 END/ 00450*ADF,16,3 00460*BSR,16,2 00470*EOF 00480*COSY 00490LODLAX DCK/ I=13,H 00500LODLAX HOL/ 00510SFLAXTRTLA 00520 END/ 00530LAXTRT DCK/ I=22,H 00540 END/ 00550*ADF,16,4 00560*BSR,16,2 00570*EOF 6  3#_or 00580*CTO, LA APPLICATION CUDDLY TAPE ON UNIT '0'? 00590*PAUS 00600*CUDDLY 00610LODLDT DCK/ I=13,H 00620LODLDT HOL/ 00630SRLDTLSTLA 00640 END/ 00650LDTLST DCK/ I=6,H 00660 END/ 00670*ADF,16,5 00680*BSR,16,1 00690*EOF 00700*CUDDLY 00710LODLAR DCK/ I=13,H 00720LODLAR HOL/ 00730SRLARPRTLA 00740 END/ 00750LARPRT DCK/ I=6,H 00760 END/ 00770*ADF,16,6 00780*BSR,16,1 00790*EOF 00800*COSY 00810LODDIS DCK/ I=13,H 00820LODDIS HOL/ 00830DISCQT 00840 END/ 00850DISCQT DCK/ I,H 00860 END/ 00870*ADF,16,7 00880*BSR,16,2 00890*EOF 00900*COSY 00910LODUPI DCK/ I=13,H 00920LODUPI HOL/ 00930UPDATE.ICCS20 00940 END/ 00950UPDATI DCK/ I,H 00960 END/ 00970*ADF,16,8 00980*BSR,16,2 00990*EOF 01000*COSY 01010LODLUP DCK/ I=13,H 01020LODLUP HOL/ 01030LUPDAT.ILA 01040 END/ 01050LUPDTI DCK/ I,H r  3#`o 01060 END/ 01070*ADF,16,9 01080*BSR,16,2 01090*EOF 01100*UNL,6 01110*CTO, DISMOUNT LA APPLICATION CUDDLY TAPE FROM UNIT '0' AND MOUNT 01120*CTO, DATA FILES TAPE ON UNIT '0' 01130*REW,7 01140*COSY 01150LODUPB DCK/ I=13,H 01160LODUPB HOL/ 01170UPDATE.BCCS20 01180 END/ 01190UPDATS DCK/ I,H=7 01200 END/ 01210*ADF,16,10 01220*BSR,16,2 01230*CTO, PROPER RESPONSES TO THE NEXT THREE PROMPTS ARE: 01240*CTO, 1. '13(CR)' 01250*CTO, 2. '(CR)' 01260*CTO, 3. '*Z(CR)' 01270*LIBILD 01280 0129025 01300 0131023 01320 013307 01340*K,P25 01350*EOF 01360*K,P16 01370*REW,25 01380*LIBEDT 01390*T,25,B,16,B,,1 01400*Z 01410*REW,7 01420*COSY 01430LODLUB DCK/ I=13,H 01440LODLUB HOL/ 01450LUPDAT.BLA 01460 END/ 01470LUPDTS DCK/ I,H=7 01480 END/ 01490*ADF,16,11 01500*BSR,16,2 01510*REW,25 01520*CTO, PROPER RESPONSES TO THE NEXT FOUR PROMPTS ARE: 01530*CTO, 1. '13(CR)' Z$  3#ao 01540*CTO, 2. '(CR)' 01550*CTO, 3. '(CR)' 01560*CTO, 4. '*Z(CR)' 01570*LIBILD 01580 0159016 01600 0161025 0162024 01630 016407 01650*EOF 01660*COSY 01670LODSC1 DCK/ I=13,H 01680LODSC1 HOL/ 01690PRFSC001 01700 END/ 01710PSC01A DCK/ I,H 01720S2MENU DCK/ I,H 01730DCMENU DCK/ I,H 01740HSMENU DCK/ I,H 01750MTMENU DCK/ I,H 01760RPMENU DCK/ I,H 01770RGMENU DCK/ I,H 01780PDC01 DCK/ I,H 01790PDC02 DCK/ I,H 01800PDC03 DCK/ I,H 01810PDC04 DCK/ I,H 01820PDC05 DCK/ I,H 01830PDC06 DCK/ I,H 01840PDC07 DCK/ I,H 01850PDC08 DCK/ I,H 01860PDC09 DCK/ I,H 01870PDC10 DCK/ I,H 01880PDC11 DCK/ I,H 01890PHS01 DCK/ I,H 01900PHS02 DCK/ I,H 01910PHS03 DCK/ I,H 01920PHS04 DCK/ I,H 01930PMT01 DCK/ I,H 01940PMT02 DCK/ I,H 01950PMT03 DCK/ I,H 01960PMT04 DCK/ I,H 01970PMT05 DCK/ I,H 01980PMT06 DCK/ I,H 01990PMT07 DCK/ I,H 02000PMT08 DCK/ I,H 02010PMT09 DCK/ I,H "  3#bo 02020PMT10 DCK/ I,H 02030PMT11 DCK/ I,H 02040PMT12 DCK/ I,H 02050PMT13 DCK/ I,H 02060PMT14 DCK/ I,H 02070PMT15 DCK/ I,H 02080PMT16 DCK/ I,H 02090PRP01 DCK/ I,H 02100PRP02 DCK/ I,H 02110PRP03 DCK/ I,H 02120PRP04 DCK/ I,H 02130PRP05 DCK/ I,H 02140PRP06A DCK/ I,H 02150PRP07 DCK/ I,H 02160PRP08 DCK/ I,H 02170PRP09 DCK/ I,H 02180PRP10 DCK/ I,H 02190PCTRL DCK/ I,H 02200PRP12 DCK/ I,H 02210PSC01B DCK/ I,H 02220 END/ 02230*ADF,16,12 02240*BSR,16,2 02250*EOF 02260*COSY 02270LODSC2 DCK/ I=13,H 02280LODSC2 HOL/ 02290PRFSC002 02300 END/ 02310PSC02A DCK/ I,H 02320S2MENU DCK/ I,H 02330DCMENU DCK/ I,H 02340HSMENU DCK/ I,H 02350MTMENU DCK/ I,H 02360RPMENU DCK/ I,H 02370RGMENU DCK/ I,H 02380PDC01 DCK/ I,H 02390PDC02 DCK/ I,H 02400PDC03 DCK/ I,H 02410PDC04 DCK/ I,H 02420PDC05 DCK/ I,H 02430PDC06 DCK/ I,H 02440PDC07 DCK/ I,H 02450PDC08 DCK/ I,H 02460PDC09 DCK/ I,H 02470PDC10 DCK/ I,H 02480PDC11 DCK/ I,H 02490PHS01 DCK/ I,H M  3#co 02500PHS02 DCK/ I,H 02510PHS03 DCK/ I,H 02520PHS04 DCK/ I,H 02530PMT01 DCK/ I,H 02540PMT02 DCK/ I,H 02550PMT03 DCK/ I,H 02560PMT04 DCK/ I,H 02570PMT05 DCK/ I,H 02580PMT06 DCK/ I,H 02590PMT07 DCK/ I,H 02600PMT08 DCK/ I,H 02610PMT09 DCK/ I,H 02620PMT10 DCK/ I,H 02630PMT11 DCK/ I,H 02640PMT12 DCK/ I,H 02650PMT13 DCK/ I,H 02660PMT14 DCK/ I,H 02670PMT15 DCK/ I,H 02680PMT16 DCK/ I,H 02690PRP01 DCK/ I,H 02700PRP02 DCK/ I,H 02710PRP03 DCK/ I,H 02720PRP04 DCK/ I,H 02730PRP05 DCK/ I,H 02740PRP06B DCK/ I,H 02750PRP07 DCK/ I,H 02760PRP08 DCK/ I,H 02770PRP09 DCK/ I,H 02780PRP10 DCK/ I,H 02790PCTRL DCK/ I,H 02800PRP12 DCK/ I,H 02810PSC02B DCK/ I,H 02820 END/ 02830*ADF,16,13 02840*BSR,16,2 02850*EOF 02860*COSY 02870LODSC3 DCK/ I=13,H 02880LODSC3 HOL/ 02890PRFSC003 02900 END/ 02910PSC03A DCK/ I,H 02920S2MENU DCK/ I,H 02930DCMENU DCK/ I,H 02940HSMENU DCK/ I,H 02950MTMENU DCK/ I,H 02960RPMENU DCK/ I,H 02970RGMENU DCK/ I,H  3#do 02980PDC01 DCK/ I,H 02990PDC02 DCK/ I,H 03000PDC03 DCK/ I,H 03010PDC04 DCK/ I,H 03020PDC05 DCK/ I,H 03030PDC06 DCK/ I,H 03040PDC07 DCK/ I,H 03050PDC08 DCK/ I,H 03060PDC09 DCK/ I,H 03070PDC10 DCK/ I,H 03080PDC11 DCK/ I,H 03090PHS01 DCK/ I,H 03100PHS02 DCK/ I,H 03110PHS03 DCK/ I,H 03120PHS04 DCK/ I,H 03130PMT01 DCK/ I,H 03140PMT02 DCK/ I,H 03150PMT03 DCK/ I,H 03160PMT04 DCK/ I,H 03170PMT05 DCK/ I,H 03180PMT06 DCK/ I,H 03190PMT07 DCK/ I,H 03200PMT08 DCK/ I,H 03210PMT09 DCK/ I,H 03220PMT10 DCK/ I,H 03230PMT11 DCK/ I,H 03240PMT12 DCK/ I,H 03250PMT13 DCK/ I,H 03260PMT14 DCK/ I,H 03270PMT15 DCK/ I,H 03280PMT16 DCK/ I,H 03290PRP01 DCK/ I,H 03300PRP02 DCK/ I,H 03310PRP03 DCK/ I,H 03320PRP04 DCK/ I,H 03330PRP05 DCK/ I,H 03340PRP06C DCK/ I,H 03350PRP07 DCK/ I,H 03360PRP08 DCK/ I,H 03370PRP09 DCK/ I,H 03380PRP10 DCK/ I,H 03390PCTRL DCK/ I,H 03400PRP12 DCK/ I,H 03410PSC03B DCK/ I,H 03420 END/ 03430*ADF,16,14 03440*BSR,16,2 03450*EOF d  3#eo 03460*COSY 03470LODSC4 DCK/ I=13,H 03480LODSC4 HOL/ 03490PRFSC004 03500 END/ 03510PSC04A DCK/ I,H 03520S2MENU DCK/ I,H 03530DCMENU DCK/ I,H 03540HSMENU DCK/ I,H 03550MTMENU DCK/ I,H 03560RPMENU DCK/ I,H 03570RGMENU DCK/ I,H 03580PDC01 DCK/ I,H 03590PDC02 DCK/ I,H 03600PDC03 DCK/ I,H 03610PDC04 DCK/ I,H 03620PDC05 DCK/ I,H 03630PDC06 DCK/ I,H 03640PDC07 DCK/ I,H 03650PDC08 DCK/ I,H 03660PDC09 DCK/ I,H 03670PDC10 DCK/ I,H 03680PDC11 DCK/ I,H 03690PHS01 DCK/ I,H 03700PHS02 DCK/ I,H 03710PHS03 DCK/ I,H 03720PHS04 DCK/ I,H 03730PMT01 DCK/ I,H 03740PMT02 DCK/ I,H 03750PMT03 DCK/ I,H 03760PMT04 DCK/ I,H 03770PMT05 DCK/ I,H 03780PMT06 DCK/ I,H 03790PMT07 DCK/ I,H 03800PMT08 DCK/ I,H 03810PMT09 DCK/ I,H 03820PMT10 DCK/ I,H 03830PMT11 DCK/ I,H 03840PMT12 DCK/ I,H 03850PMT13 DCK/ I,H 03860PMT14 DCK/ I,H 03870PMT15 DCK/ I,H 03880PMT16 DCK/ I,H 03890PRP01 DCK/ I,H 03900PRP02 DCK/ I,H 03910PRP03 DCK/ I,H 03920PRP04 DCK/ I,H 03930PRP05 DCK/ I,H o  3#fo 03940PRP06D DCK/ I,H 03950PRP07 DCK/ I,H 03960PRP08 DCK/ I,H 03970PRP09 DCK/ I,H 03980PRP10 DCK/ I,H 03990PCTRL DCK/ I,H 04000PRP12 DCK/ I,H 04010PSC04B DCK/ I,H 04020 END/ 04030*ADF,16,15 04040*BSR,16,2 04050*EOF 04060*COSY 04070LODSC5 DCK/ I=13,H 04080LODSC5 HOL/ 04090PRFSC005 04100 END/ 04110PSC05A DCK/ I,H 04120S1MENU DCK/ I,H 04130DCMENU DCK/ I,H 04140HSMENU DCK/ I,H 04150MTMENU DCK/ I,H 04160RPMENU DCK/ I,H 04170RGMENU DCK/ I,H 04180PDC01 DCK/ I,H 04190PDC02 DCK/ I,H 04200PDC03 DCK/ I,H 04210PDC04 DCK/ I,H 04220PDC05 DCK/ I,H 04230PDC06 DCK/ I,H 04240PDC07 DCK/ I,H 04250PDC08 DCK/ I,H 04260PDC09 DCK/ I,H 04270PDC10 DCK/ I,H 04280PDC11 DCK/ I,H 04290PHS01 DCK/ I,H 04300PHS02 DCK/ I,H 04310PHS03 DCK/ I,H 04320PHS04 DCK/ I,H 04330PMT01 DCK/ I,H 04340PMT02 DCK/ I,H 04350PMT03 DCK/ I,H 04360PMT04 DCK/ I,H 04370PMT05 DCK/ I,H 04380PMT06 DCK/ I,H 04390PMT07 DCK/ I,H 04400PMT08 DCK/ I,H 04410PMT09 DCK/ I,H ε  3#gp 04420PMT10 DCK/ I,H 04430PMT11 DCK/ I,H 04440PMT12 DCK/ I,H 04450PMT13 DCK/ I,H 04460PMT14 DCK/ I,H 04470PMT15 DCK/ I,H 04480PMT16 DCK/ I,H 04490PRP01 DCK/ I,H 04500PRP02 DCK/ I,H 04510PRP03 DCK/ I,H 04520PRP04 DCK/ I,H 04530PRP05 DCK/ I,H 04540PRP06A DCK/ I,H 04550PRP07 DCK/ I,H 04560PRP08 DCK/ I,H 04570PRP09 DCK/ I,H 04580PRP10 DCK/ I,H 04590PCTRL DCK/ I,H 04600PRP12 DCK/ I,H 04610PSC05B DCK/ I,H 04620LDMENU DCK/ I,H 04630LHMENU DCK/ I,H 04640LMMENU DCK/ I,H 04650LOMENU DCK/ I,H 04660LRMENU DCK/ I,H 04670PLD01 DCK/ I,H 04680PLD02 DCK/ I,H 04690PLD03 DCK/ I,H 04700PLD04 DCK/ I,H 04710PLD05 DCK/ I,H 04720PLD06 DCK/ I,H 04730PLD07 DCK/ I,H 04740PLD08 DCK/ I,H 04750PLD09 DCK/ I,H 04760PLD10 DCK/ I,H 04770PLD11 DCK/ I,H 04780PLD12 DCK/ I,H 04790PLD13 DCK/ I,H 04800PLH01 DCK/ I,H 04810PLH02 DCK/ I,H 04820PLH03 DCK/ I,H 04830PLH04 DCK/ I,H 04840PLH05 DCK/ I,H 04850PLM01 DCK/ I,H 04860PLM02 DCK/ I,H 04870PLM03 DCK/ I,H 04880PLM04 DCK/ I,H 04890PLM05 DCK/ I,H   3#hp& 04900PLM06 DCK/ I,H 04910PLM07 DCK/ I,H 04920PLM08 DCK/ I,H 04930PLM09 DCK/ I,H 04940PLM10 DCK/ I,H 04950PLM11 DCK/ I,H 04960PLM12 DCK/ I,H 04970PLM13 DCK/ I,H 04980PLM14 DCK/ I,H 04990PLM15 DCK/ I,H 05000PLM16 DCK/ I,H 05010PLM17 DCK/ I,H 05020PLO01 DCK/ I,H 05030PLO02 DCK/ I,H 05040PLO03 DCK/ I,H 05050PLO04 DCK/ I,H 05060PLO05 DCK/ I,H 05070PLO06 DCK/ I,H 05080PLO07 DCK/ I,H 05090PLO08 DCK/ I,H 05100PLO09 DCK/ I,H 05110PLO10 DCK/ I,H 05120PLCTR DCK/ I,H 05130PLO12 DCK/ I,H 05140PLO13 DCK/ I,H 05150PLO14 DCK/ I,H 05160PLO15 DCK/ I,H 05170PSC05C DCK/ I,H 05180 END/ 05190*ADF,16,16 05200*BSR,16,2 05210*EOF 05220*COSY 05230LODSC6 DCK/ I=13,H 05240LODSC6 HOL/ 05250PRFSC006 05260 END/ 05270PSC06A DCK/ I,H 05280S1MENU DCK/ I,H 05290DCMENU DCK/ I,H 05300HSMENU DCK/ I,H 05310MTMENU DCK/ I,H 05320RPMENU DCK/ I,H 05330RGMENU DCK/ I,H 05340PDC01 DCK/ I,H 05350PDC02 DCK/ I,H 05360PDC03 DCK/ I,H 05370PDC04 DCK/ I,H e  3#ip: 05380PDC05 DCK/ I,H 05390PDC06 DCK/ I,H 05400PDC07 DCK/ I,H 05410PDC08 DCK/ I,H 05420PDC09 DCK/ I,H 05430PDC10 DCK/ I,H 05440PDC11 DCK/ I,H 05450PHS01 DCK/ I,H 05460PHS02 DCK/ I,H 05470PHS03 DCK/ I,H 05480PHS04 DCK/ I,H 05490PMT01 DCK/ I,H 05500PMT02 DCK/ I,H 05510PMT03 DCK/ I,H 05520PMT04 DCK/ I,H 05530PMT05 DCK/ I,H 05540PMT06 DCK/ I,H 05550PMT07 DCK/ I,H 05560PMT08 DCK/ I,H 05570PMT09 DCK/ I,H 05580PMT10 DCK/ I,H 05590PMT11 DCK/ I,H 05600PMT12 DCK/ I,H 05610PMT13 DCK/ I,H 05620PMT14 DCK/ I,H 05630PMT15 DCK/ I,H 05640PMT16 DCK/ I,H 05650PRP01 DCK/ I,H 05660PRP02 DCK/ I,H 05670PRP03 DCK/ I,H 05680PRP04 DCK/ I,H 05690PRP05 DCK/ I,H 05700PRP06B DCK/ I,H 05710PRP07 DCK/ I,H 05720PRP08 DCK/ I,H 05730PRP09 DCK/ I,H 05740PRP10 DCK/ I,H 05750PCTRL DCK/ I,H 05760PRP12 DCK/ I,H 05770PSC06B DCK/ I,H 05780LDMENU DCK/ I,H 05790LHMENU DCK/ I,H 05800LMMENU DCK/ I,H 05810LOMENU DCK/ I,H 05820LRMENU DCK/ I,H 05830PLD01 DCK/ I,H 05840PLD02 DCK/ I,H 05850PLD03 DCK/ I,H .  3#jpN 05860PLD04 DCK/ I,H 05870PLD05 DCK/ I,H 05880PLD06 DCK/ I,H 05890PLD07 DCK/ I,H 05900PLD08 DCK/ I,H 05910PLD09 DCK/ I,H 05920PLD10 DCK/ I,H 05930PLD11 DCK/ I,H 05940PLD12 DCK/ I,H 05950PLD13 DCK/ I,H 05960PLH01 DCK/ I,H 05970PLH02 DCK/ I,H 05980PLH03 DCK/ I,H 05990PLH04 DCK/ I,H 06000PLH05 DCK/ I,H 06010PLM01 DCK/ I,H 06020PLM02 DCK/ I,H 06030PLM03 DCK/ I,H 06040PLM04 DCK/ I,H 06050PLM05 DCK/ I,H 06060PLM06 DCK/ I,H 06070PLM07 DCK/ I,H 06080PLM08 DCK/ I,H 06090PLM09 DCK/ I,H 06100PLM10 DCK/ I,H 06110PLM11 DCK/ I,H 06120PLM12 DCK/ I,H 06130PLM13 DCK/ I,H 06140PLM14 DCK/ I,H 06150PLM15 DCK/ I,H 06160PLM16 DCK/ I,H 06170PLM17 DCK/ I,H 06180PLO01 DCK/ I,H 06190PLO02 DCK/ I,H 06200PLO03 DCK/ I,H 06210PLO04 DCK/ I,H 06220PLO05 DCK/ I,H 06230PLO06 DCK/ I,H 06240PLO07 DCK/ I,H 06250PLO08 DCK/ I,H 06260PLO09 DCK/ I,H 06270PLO10 DCK/ I,H 06280PLCTR DCK/ I,H 06290PLO12 DCK/ I,H 06300PLO13 DCK/ I,H 06310PLO14 DCK/ I,H 06320PLO15 DCK/ I,H 06330PSC06C DCK/ I,H   3#kpb 06340 END/ 06350*ADF,16,17 06360*BSR,16,2 06370*EOF 06380*COSY 06390LODSC7 DCK/ I=13,H 06400LODSC7 HOL/ 06410PRFSC007 06420 END/ 06430PSC07A DCK/ I,H 06440S1MENU DCK/ I,H 06450DCMENU DCK/ I,H 06460HSMENU DCK/ I,H 06470MTMENU DCK/ I,H 06480RPMENU DCK/ I,H 06490RGMENU DCK/ I,H 06500PDC01 DCK/ I,H 06510PDC02 DCK/ I,H 06520PDC03 DCK/ I,H 06530PDC04 DCK/ I,H 06540PDC05 DCK/ I,H 06550PDC06 DCK/ I,H 06560PDC07 DCK/ I,H 06570PDC08 DCK/ I,H 06580PDC09 DCK/ I,H 06590PDC10 DCK/ I,H 06600PDC11 DCK/ I,H 06610PHS01 DCK/ I,H 06620PHS02 DCK/ I,H 06630PHS03 DCK/ I,H 06640PHS04 DCK/ I,H 06650PMT01 DCK/ I,H 06660PMT02 DCK/ I,H 06670PMT03 DCK/ I,H 06680PMT04 DCK/ I,H 06690PMT05 DCK/ I,H 06700PMT06 DCK/ I,H 06710PMT07 DCK/ I,H 06720PMT08 DCK/ I,H 06730PMT09 DCK/ I,H 06740PMT10 DCK/ I,H 06750PMT11 DCK/ I,H 06760PMT12 DCK/ I,H 06770PMT13 DCK/ I,H 06780PMT14 DCK/ I,H 06790PMT15 DCK/ I,H 06800PMT16 DCK/ I,H 06810PRP01 DCK/ I,H k8  3#lpv 06820PRP02 DCK/ I,H 06830PRP03 DCK/ I,H 06840PRP04 DCK/ I,H 06850PRP05 DCK/ I,H 06860PRP06C DCK/ I,H 06870PRP07 DCK/ I,H 06880PRP08 DCK/ I,H 06890PRP09 DCK/ I,H 06900PRP10 DCK/ I,H 06910PCTRL DCK/ I,H 06920PRP12 DCK/ I,H 06930PSC07B DCK/ I,H 06940LDMENU DCK/ I,H 06950LHMENU DCK/ I,H 06960LMMENU DCK/ I,H 06970LOMENU DCK/ I,H 06980LRMENU DCK/ I,H 06990PLD01 DCK/ I,H 07000PLD02 DCK/ I,H 07010PLD03 DCK/ I,H 07020PLD04 DCK/ I,H 07030PLD05 DCK/ I,H 07040PLD06 DCK/ I,H 07050PLD07 DCK/ I,H 07060PLD08 DCK/ I,H 07070PLD09 DCK/ I,H 07080PLD10 DCK/ I,H 07090PLD11 DCK/ I,H 07100PLD12 DCK/ I,H 07110PLD13 DCK/ I,H 07120PLH01 DCK/ I,H 07130PLH02 DCK/ I,H 07140PLH03 DCK/ I,H 07150PLH04 DCK/ I,H 07160PLH05 DCK/ I,H 07170PLM01 DCK/ I,H 07180PLM02 DCK/ I,H 07190PLM03 DCK/ I,H 07200PLM04 DCK/ I,H 07210PLM05 DCK/ I,H 07220PLM06 DCK/ I,H 07230PLM07 DCK/ I,H 07240PLM08 DCK/ I,H 07250PLM09 DCK/ I,H 07260PLM10 DCK/ I,H 07270PLM11 DCK/ I,H 07280PLM12 DCK/ I,H 07290PLM13 DCK/ I,H X  3#mp 07300PLM14 DCK/ I,H 07310PLM15 DCK/ I,H 07320PLM16 DCK/ I,H 07330PLM17 DCK/ I,H 07340PLO01 DCK/ I,H 07350PLO02 DCK/ I,H 07360PLO03 DCK/ I,H 07370PLO04 DCK/ I,H 07380PLO05 DCK/ I,H 07390PLO06 DCK/ I,H 07400PLO07 DCK/ I,H 07410PLO08 DCK/ I,H 07420PLO09 DCK/ I,H 07430PLO10 DCK/ I,H 07440PLCTR DCK/ I,H 07450PLO12 DCK/ I,H 07460PLO13 DCK/ I,H 07470PLO14 DCK/ I,H 07480PLO15 DCK/ I,H 07490PSC07C DCK/ I,H 07500 END/ 07510*ADF,16,18 07520*BSR,16,2 07530*EOF 07540*COSY 07550LODSC8 DCK/ I=13,H 07560LODSC8 HOL/ 07570PRFSC008 07580 END/ 07590PSC08A DCK/ I,H 07600S1MENU DCK/ I,H 07610DCMENU DCK/ I,H 07620HSMENU DCK/ I,H 07630MTMENU DCK/ I,H 07640RPMENU DCK/ I,H 07650RGMENU DCK/ I,H 07660PDC01 DCK/ I,H 07670PDC02 DCK/ I,H 07680PDC03 DCK/ I,H 07690PDC04 DCK/ I,H 07700PDC05 DCK/ I,H 07710PDC06 DCK/ I,H 07720PDC07 DCK/ I,H 07730PDC08 DCK/ I,H 07740PDC09 DCK/ I,H 07750PDC10 DCK/ I,H 07760PDC11 DCK/ I,H 07770PHS01 DCK/ I,H  3#np 07780PHS02 DCK/ I,H 07790PHS03 DCK/ I,H 07800PHS04 DCK/ I,H 07810PMT01 DCK/ I,H 07820PMT02 DCK/ I,H 07830PMT03 DCK/ I,H 07840PMT04 DCK/ I,H 07850PMT05 DCK/ I,H 07860PMT06 DCK/ I,H 07870PMT07 DCK/ I,H 07880PMT08 DCK/ I,H 07890PMT09 DCK/ I,H 07900PMT10 DCK/ I,H 07910PMT11 DCK/ I,H 07920PMT12 DCK/ I,H 07930PMT13 DCK/ I,H 07940PMT14 DCK/ I,H 07950PMT15 DCK/ I,H 07960PMT16 DCK/ I,H 07970PRP01 DCK/ I,H 07980PRP02 DCK/ I,H 07990PRP03 DCK/ I,H 08000PRP04 DCK/ I,H 08010PRP05 DCK/ I,H 08020PRP06E DCK/ I,H 08030PRP07 DCK/ I,H 08040PRP08 DCK/ I,H 08050PRP09 DCK/ I,H 08060PRP10 DCK/ I,H 08070PCTRL DCK/ I,H 08080PRP12 DCK/ I,H 08090PSC08B DCK/ I,H 08100LDMENU DCK/ I,H 08110LHMENU DCK/ I,H 08120LMMENU DCK/ I,H 08130LOMENU DCK/ I,H 08140LRMENU DCK/ I,H 08150PLD01 DCK/ I,H 08160PLD02 DCK/ I,H 08170PLD03 DCK/ I,H 08180PLD04 DCK/ I,H 08190PLD05 DCK/ I,H 08200PLD06 DCK/ I,H 08210PLD07 DCK/ I,H 08220PLD08 DCK/ I,H 08230PLD09 DCK/ I,H 08240PLD10 DCK/ I,H 08250PLD11 DCK/ I,H  3#op 08260PLD12 DCK/ I,H 08270PLD13 DCK/ I,H 08280PLH01 DCK/ I,H 08290PLH02 DCK/ I,H 08300PLH03 DCK/ I,H 08310PLH04 DCK/ I,H 08320PLH05 DCK/ I,H 08330PLM01 DCK/ I,H 08340PLM02 DCK/ I,H 08350PLM03 DCK/ I,H 08360PLM04 DCK/ I,H 08370PLM05 DCK/ I,H 08380PLM06 DCK/ I,H 08390PLM07 DCK/ I,H 08400PLM08 DCK/ I,H 08410PLM09 DCK/ I,H 08420PLM10 DCK/ I,H 08430PLM11 DCK/ I,H 08440PLM12 DCK/ I,H 08450PLM13 DCK/ I,H 08460PLM14 DCK/ I,H 08470PLM15 DCK/ I,H 08480PLM16 DCK/ I,H 08490PLM17 DCK/ I,H 08500PLO01 DCK/ I,H 08510PLO02 DCK/ I,H 08520PLO03 DCK/ I,H 08530PLO04 DCK/ I,H 08540PLO05 DCK/ I,H 08550PLO06 DCK/ I,H 08560PLO07 DCK/ I,H 08570PLO08 DCK/ I,H 08580PLO09 DCK/ I,H 08590PLO10 DCK/ I,H 08600PLCTR DCK/ I,H 08610PLO12 DCK/ I,H 08620PLO13 DCK/ I,H 08630PLO14 DCK/ I,H 08640PLO15 DCK/ I,H 08650PSC08C DCK/ I,H 08660 END/ 08670*ADF,16,19 08680*BSR,16,2 08690*EOF 08700*COSY 08710LODSC9 DCK/ I=13,H 08720LODSC9 HOL/ 08730PRFSC009  3#pp 08740 END/ 08750PSC09 DCK/ I,H 08760 END/ 08770*ADF,16,20 08780*BSR,16,2 08790*EOF 08800*COSY 08810LDSC10 DCK/ I=13,H 08820LDSC10 HOL/ 08830PRFSC010 08840 END/ 08850PSC10 DCK/ I,H 08860 END/ 08870*ADF,16,21 08880*BSR,16,2 08890*EOF 08900*CTO, DATA FILES TAPE READY ON UNIT '0'? 08910*PAUS 08920*LIBEDT 08930*T,6,A,16,A,,22 08940*Z 08950*CTO, FILE INITIALIZATION AND LOAD TAPE IS COMPLETE. DISMOUNT BOTH 08960*CTO, TAPE UNITS AND LABEL TAPE ON UNIT '1' "CCS FILE LOAD TAPE". 08970*UNL,6,16 08980*CLOSE 08990*Z 09000_ f  3#qp s  3#rp r  3#sq r  3#tq r  3#uq* r  3#vq> ALjqNO CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmSYSDAT DCK/ I,H 00010MMEXEC DCK/ I,H 00020PORTS DCK/ I,H 00030PARAME DCK/ I,H 00040T16 DCK/ I,H 00050DTIMER DCK/ I,H 00060TMINT DCK/ I,H 00070MAKQ DCK/ I,H I  3#wqR 00080RW DCK/ I,H 00090NMONI DCK/ I,H 00100NIPROC DCK/ I,H 00110TRVEC DCK/ I,H 00120OFVOL DCK/ I,H 00130ALVOL DCK/ I,H 00140ALCORE DCK/ I,H 00150NCMPRQ DCK/ I,H 00160NFNR DCK/ I,H 00170ADEV DCK/ I,H 00180TOD DCK/ I,H 00190T14 DCK/ I,H 00200EFDATA DCK/ I,H 00210DUMMY DCK/ I,H 00220DMTSIM DCK/ I,H 00230LIBEDT DCK/ I,H 00240LOAD1 DCK/ I,H 00250BRNCH1 DCK/ I,H 00260LIDRV1 DCK/ I,H 00270LCDRV1 DCK/ I,H 00280LMDRV1 DCK/ I,H 00290LLDRV1 DCK/ I,H 00300ADJOF1 DCK/ I,H 00310CNVRT1 DCK/ I,H 00320LSTOT1 DCK/ I,H 00330LINK11 DCK/ I,H 00340LOADR1 DCK/ I,H 00350NAMPR1 DCK/ I,H 00360RBDBZ1 DCK/ I,H 00370ENTEX1 DCK/ I,H 00380XFRPR1 DCK/ I,H 00390STBASE DCK/ I,H 00400LNKENT DCK/ I,H 00410LNKCR1 DCK/ I,H 00420PATCH DCK/ I,H 00430TBSCH1 DCK/ I,H 00440HASH DCK/ I,H 00450TBSTR1 DCK/ I,H 00460PAGE DCK/ I,H 00470PROGLD DCK/ I,H 00480SCAN1 DCK/ I,H 00490CHPU1 DCK/ I,H 00500ADJOV2 DCK/ I,H 00510ADRPR1 DCK/ I,H 00520T11 DCK/ I,H 00530T7 DCK/ I,H 00540T5 DCK/ I,H 00550T3 DCK/ I,H ҧ  3#xqf 00560ONE DCK/ I,H 00570TWO DCK/ I,H 00580THREE DCK/ I,H 00590JBKILL DCK/ I,H 00600JPLOAD DCK/ I,H 00610JPCHGE DCK/ I,H 00620ASCHEX DCK/ I,H 00630T13 DCK/ I,H 00640JLGOV4 DCK/ I,H 00650NAMEV4 DCK/ I,H 00660RESTOR DCK/ I,H 00670RCOVER DCK/ I,H 00680OUTSEL DCK/ I,H 00690RDMPV4 DCK/ I,H 00700MASDMP DCK/ I,H 00710BRKPT1 DCK/ I,H 00720EFSTOR DCK/ I,H 00730EFLIST DCK/ I,H 00740ODBUG1 DCK/ I,H 00750GETREQ DCK/ I,H 00760LHXREQ DCK/ I,H 00770DPCREQ DCK/ I,H 00780SCNREQ DCK/ I,H 00790SETREQ DCK/ I,H 00800MBCREQ DCK/ I,H 00810SCHREQ DCK/ I,H 00820SPEREQ DCK/ I,H 00830CPPREQ DCK/ I,H 00840SPPREQ DCK/ I,H 00850ADHREQ DCK/ I,H 00860SBHREQ DCK/ I,H 00870ALCREQ DCK/ I,H 00880RELREQ DCK/ I,H 00890DACREQ DCK/ I,H 00900PTHREQ DCK/ I,H 00910MTRREQ DCK/ I,H 00920MSDREQ DCK/ I,H 00930CLUREQ DCK/ I,H 00940WCDREQ DCK/ I,H 00950LASREQ DCK/ I,H 00960DASREQ DCK/ I,H 00970MLUREQ DCK/ I,H 00980DPTREQ DCK/ I,H 00990SLDREQ DCK/ I,H 01000CWAREQ DCK/ I,H 01010DMHREQ DCK/ I,H 01020SMNREQ DCK/ I,H 01030SMPREQ DCK/ I,H y  3#yqz 01040LSPREQ DCK/ I,H 01050DSPREQ DCK/ I,H 01060DMSREQ DCK/ I,H 01070LSOREQ DCK/ I,H 01080CCCREQ DCK/ I,H 01090CCMREQ DCK/ I,H 01100CMMREQ DCK/ I,H 01110MMMREQ DCK/ I,H 01120LICREQ DCK/ I,H 01130LIOREQ DCK/ I,H 01140LAMREQ DCK/ I,H 01150DDPREQ DCK/ I,H 01160LDPREQ DCK/ I,H 01170LDOREQ DCK/ I,H 01180DMDREQ DCK/ I,H 01190WDKREQ DCK/ I,H 01200LSTREQ DCK/ I,H 01210PRINT DCK/ I,H 01220GETFLD DCK/ I,H 01230ASHX DCK/ I,H 01240DMPBUF DCK/ I,H 01250ASCDEC DCK/ I,H 01260HXAS DCK/ I,H 01270DECDMP DCK/ I,H 01280FETMM DCK/ I,H 01290PNTMD DCK/ I,H 01300MASOT DCK/ I,H 01310CONFM DCK/ I,H 01320GETINT DCK/ I,H 01330FLCVSG DCK/ I,H 01340FLCVDB DCK/ I,H 01350NAMEMS DCK/ I,H 01360DCONV DCK/ I,H 01370LAZY2 DCK/ I,H 01380ODDFLT DCK/ I,H 01390ODDFTN DCK/ I,H 01400ECONV DCK/ I,H 01410LAZY1 DCK/ I,H 01420ODFLOT DCK/ I,H 01430ODFXFL DCK/ I,H 01440TDFUNC DCK/ I,H 01450SYSCOP DCK/ I,H 01460CO1ST DCK/ I,H 01470CO2ND DCK/ I,H 01480CO3RD DCK/ I,H 01490COLAST DCK/ I,H 01500IOUP DCK/ I,H 01510IOUPV4 DCK/ I,H   3#zq 01520CYFT DCK/ I,H 01530LCOSY DCK/ I,H 01540LISTR DCK/ I,H 01550LULIST DCK/ I,H 01560OPSORT DCK/ I,H 01570DSKTAP DCK/ I,H 01580DSKEQC DCK/ I,H 01590DSKDHX DCK/ I,H 01600ILOAD DCK/ I,H 01610LDRTBL DCK/ I,H 01620I1 DCK/ I,H 01630MDRIV DCK/ I,H 01640IDRIV DCK/ I,H 01650VERFY1 DCK/ I,H 01660COSY DCK/ I,H 01670EESORT DCK/ I,H 01680LIBILD DCK/ I,H 01690LIBIDO DCK/ I,H 01700MESSY DCK/ I,H 01710MOVECH DCK/ I,H 01720PICKUP DCK/ I,H 01730IOSUB DCK/ I,H 01740HELPER DCK/ I,H 01750HELP14 DCK/ I,H 01760LJA2B DCK/ I,H 01770CONVRS DCK/ I,H 01780HELP0 DCK/ I,H 01790HELP1 DCK/ I,H 01800HELP2 DCK/ I,H 01810HELP3 DCK/ I,H 01820HELP4 DCK/ I,H 01830HELP5 DCK/ I,H 01840HELP8 DCK/ I,H 01850HELP9 DCK/ I,H 01860HELP10 DCK/ I,H 01870HELP11 DCK/ I,H 01880HELP12 DCK/ I,H 01890HELP13 DCK/ I,H 01900SKED DCK/ I,H 01910SKFILE DCK/ I,H 01920COMMON DCK/ I,H 01930DCORE DCK/ I,H 01940RDISP DCK/ I,H 01950UPROTK DCK/ I,H 01960DTLP DCK/ I,H 01970SILP DCK/ I,H 01980PG2KRD DCK/ I,H 01990TSPO70 DCK/ I,H   3#{q 02000TSPO72 DCK/ I,H 02010FORTR DCK/ I,H 02020TSPO75 DCK/ I,H 02030TSPO77 DCK/ I,H 02040TSPO79 DCK/ I,H 02050TSPO81 DCK/ I,H 02060TSPO83 DCK/ I,H 02070TSPO85 DCK/ I,H 02080TSPO87 DCK/ I,H 02090TSPO89 DCK/ I,H 02100NXTLOC DCK/ I,H 02110LODMIC DCK/ I,H 02120 END/ 02130_  3#|q mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmAL+qO CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmD1827 DCK/ I,H 00010K1827 DCK/ I,H 00020LPWAIT DCK/ I,H 00030CKGINT DCK/ I,H 00040EDIT DCK/ I,H 00050DUMMY DCK/ I,H 00060D1829 DCK/ I,H 00070K1829 DCK/ I,H 00080FORMT DCK/ I,H 00090FAULTN DCK/ I,H 00100ESTAT DCK/ I,H 00110D1860 DCK/ I,H 00120K1860 DCK/ I,H 00130CKREQ DCK/ I,H 00140REWCKL DCK/ I,H 00150FORMIT DCK/ I,H 00160WAIT DCK/ I,H 00170XMOT DCK/ I,H 00180XFER DCK/ I,H 00190NEXTIO DCK/ I,H 00200RECVRY DCK/ I,H 00210Q1810 DCK/ I,H 00220QMLCT9 DCK/ I,H 00230DTLCT9 DCK/ I,H 00240QCDDMY DCK/ I,H 00250DSMD DCK/ I,H 00260CSMD DCK/ I,H 00270ESMD DCK/ I,H 00280BSMD DCK/ I,H 00290ALMERR DCK/ I,H 00300XSMD DCK/ I,H 00310SSMD DCK/ I,H 00320LIKDUM DCK/ I,H 00330ECCALG DCK/ I,H 00340SMDNDR DCK/ I,H 00350SMD1DA DCK/ I,H 00360SMDCP DCK/ I,H 00370NODIAS DCK/ I,H 00380B18331 DCK/ I,H 00390MDRSMD DCK/ I,H 00400QPTDMY DCK/ I,H p  3#}q 00410Q1827 DCK/ I,H 00420ECMDMP DCK/ I,H 00430DSKCDR DCK/ I,H 00440D18326 DCK/ I,H 00450K18326 DCK/ I,H 00460B18326 DCK/ I,H 00470T18326 DCK/ I,H 00480V18326 DCK/ I,H 00490N18326 DCK/ I,H 00500L18326 DCK/ I,H 00510W18326 DCK/ I,H 00520R18326 DCK/ I,H 00530S18326 DCK/ I,H 00540Q8331I DCK/ I,H 00550S1811T DCK/ I,H 00560M18326 DCK/ I,H 00570QK8326 DCK/ I,H 00580QB8326 DCK/ I,H 00590QW8326 DCK/ I,H 00600QV8326 DCK/ I,H 00610QN8326 DCK/ I,H 00620QL8326 DCK/ I,H 00630QX8326 DCK/ I,H 00640QR8326 DCK/ I,H 00650QS8326 DCK/ I,H 00660QCOMP DCK/ I,H 00670CR2629 DCK/ I,H 00680DCONSL DCK/ I,H 00690TRMDVR DCK/ I,H 00700TRMIOR DCK/ I,H 00710CALLCP DCK/ I,H 00720CCPGO DCK/ I,H 00730CPTRAC DCK/ I,H 00740DRCCNV DCK/ I,H 00750GETSEC DCK/ I,H 00760KICKOF DCK/ I,H 00770PARAMS DCK/ I,H 00780DRCCP1 DCK/ I,H 00790DRCCP2 DCK/ I,H 00800DRCCP3 DCK/ I,H 00810DRCCP4 DCK/ I,H 00820DRCCP5 DCK/ I,H 00830DRCCP6 DCK/ I,H 00840DRCCP7 DCK/ I,H 00850DRCCP8 DCK/ I,H 00860 END/ 00870_ i  3#~q mmmmmmmmmmmmmmmmALqO CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmWCNVT DCK/ I,H 00010WGPUT DCK/ I,H 00020WSMBL1 DCK/ I,H 00030WGETF1 DCK/ I,H 00040WGNST DCK/ I,H 00050WOTENT DCK/ I,H 00060WPHSEA DCK/ I,H 00070WPLBEL DCK/ I,H 00080WQ8QBS DCK/ I,H 00090WRLABL DCK/ I,H 00100WSCHAR DCK/ I,H 00110WTYPE DCK/ I,H 00120WSAVID DCK/ I,H 00130WARITH DCK/ I,H 00140WCMNPR DCK/ I,H 00150WDIMPR DCK/ I,H 00160WSBSCR DCK/ I,H 00170WTYPPR DCK/ I,H 00180WBYEQ DCK/ I,H 00190WCKF DCK/ I,H 00200WFGETC DCK/ I,H 00210WFORK DCK/ I,H 00220WSUB DCK/ I,H 00230WEXRL DCK/ I,H 00240WPEQVS DCK/ I,H 00250WPRTNM DCK/ I,H 00260WPUNT1 DCK/ I,H 00270WSYMS1 DCK/ I,H 00280WENDDO DCK/ I,H 00290WCONSB DCK/ I,H 00300WDATA DCK/ I,H 00310WASGN DCK/ I,H 00320WBDOPR DCK/ I,H 00330WCFVOC DCK/ I,H n  3#q 00340WCKVC DCK/ I,H 00350WCKNAM DCK/ I,H 00360WIOSPR DCK/ I,H 00370WERBPR DCK/ I,H 00380WMODX DCK/ I,H 00390WASEMP DCK/ I,H 00400WTREE DCK/ I,H 00410WARAY DCK/ I,H 00420WLOOP DCK/ I,H 00430WDUMMY DCK/ I,H 00440WFCMK DCK/ I,H 00450WKCPRT DCK/ I,H 00460WKOTPT DCK/ I,H 00470WKPCK DCK/ I,H 00480WKPC3 DCK/ I,H 00490WKSYM DCK/ I,H 00500WLBKPC DCK/ I,H 00510WLABLR DCK/ I,H 00520WPUNT2 DCK/ I,H 00530WSMBL2 DCK/ I,H 00540WTSLOC DCK/ I,H 00550WASSEM DCK/ I,H 00560WBANAN DCK/ I,H 00570WBGNDO DCK/ I,H 00580WEND DCK/ I,H 00590WENTCD DCK/ I,H 00600WHELEN DCK/ I,H 00610WXRST DCK/ I,H 00620WNOPR DCK/ I,H 00630WPHSEB DCK/ I,H 00640WRDIR DCK/ I,H 00650WSUBFN DCK/ I,H 00660WACP DCK/ I,H 00670WAFIDL DCK/ I,H 00680WASPER DCK/ I,H 00690WCGOTO DCK/ I,H 00700WFINK DCK/ I,H 00710WTRAM DCK/ I,H 00720WPRTSB DCK/ I,H 00730WSUB1 DCK/ I,H 00740WSUB2 DCK/ I,H 00750WSUB3 DCK/ I,H 00760WRITHR DCK/ I,H 00770WBKDN1 DCK/ I,H 00780WBLDUP DCK/ I,H 00790WBSS DCK/ I,H 00800WCHKWD DCK/ I,H 00810WCHOP DCK/ I,H C  3#r 00820WCL12 DCK/ I,H 00830WCON DCK/ I,H 00840WCNT1 DCK/ I,H 00850WDATST DCK/ I,H 00860WGSYM1 DCK/ I,H 00870WINOUT DCK/ I,H 00880WIXOPT DCK/ I,H 00890WPHSEC DCK/ I,H 00900WLABEL DCK/ I,H 00910WLABIN DCK/ I,H 00920WQXLD DCK/ I,H 00930WREED DCK/ I,H 00940WSKIP DCK/ I,H 00950WSYMS2 DCK/ I,H 00960WAMOT1 DCK/ I,H 00970WMAX1 DCK/ I,H 00980WGINO1 DCK/ I,H 00990WBKDN2 DCK/ I,H 01000WCNT2 DCK/ I,H 01010WFIN1 DCK/ I,H 01020WIACN1 DCK/ I,H 01030WIHCN1 DCK/ I,H 01040WDEX1 DCK/ I,H 01050WLABT1 DCK/ I,H 01060WNP2T1 DCK/ I,H 01070WNPUN1 DCK/ I,H 01080WNRIT1 DCK/ I,H 01090WPHS61 DCK/ I,H 01100WRBDX1 DCK/ I,H 01110WRBPK1 DCK/ I,H 01120WSYMS3 DCK/ I,H 01130WDEC1 DCK/ I,H 01140WUNPC1 DCK/ I,H 01150WAMOT2 DCK/ I,H 01160WMAX2 DCK/ I,H 01170WGINO2 DCK/ I,H 01180WBKDN3 DCK/ I,H 01190WCNT3 DCK/ I,H 01200WFIN2 DCK/ I,H 01210WIACN2 DCK/ I,H 01220WIHCN2 DCK/ I,H 01230WDEX2 DCK/ I,H 01240WLABT2 DCK/ I,H 01250WNP2T2 DCK/ I,H 01260WNPUN2 DCK/ I,H 01270WNRIT2 DCK/ I,H 01280WPHS62 DCK/ I,H 01290WRBDX2 DCK/ I,H Q  3#r 01300WRBPK2 DCK/ I,H 01310WSPRT DCK/ I,H 01320WDEC2 DCK/ I,H 01330WUNPC2 DCK/ I,H 01340MON1 DCK/ I,H 01350WFTNB DCK/ I,H 01360WGOA DCK/ I,H 01370WCONV1 DCK/ I,H 01380WDIAG DCK/ I,H 01390WDXP9 DCK/ I,H 01400WDFLOT DCK/ I,H 01410WGSYM2 DCK/ I,H 01420WIOPRA DCK/ I,H 01430WPACK DCK/ I,H 01440WQ8P DCK/ I,H 01450WSTORE DCK/ I,H 01460WLA1 DCK/ I,H 01470WDA1 DCK/ I,H 01480WGETC1 DCK/ I,H 01490WIGTCF DCK/ I,H 01500WOPT DCK/ I,H 01510WELOC DCK/ I,H 01520WLA2 DCK/ I,H 01530WDA2 DCK/ I,H 01540WLA3 DCK/ I,H 01550WDA3 DCK/ I,H 01560WLA4 DCK/ I,H 01570WDA4 DCK/ I,H 01580WLA5 DCK/ I,H 01590WDA5 DCK/ I,H 01600WGOB DCK/ I,H 01610WIOPRB DCK/ I,H 01620WGOC DCK/ I,H 01630WIOPRC DCK/ I,H 01640WGOOD DCK/ I,H 01650WIOPRD DCK/ I,H 01660WGOE DCK/ I,H 01670WCONV2 DCK/ I,H 01680WSTORB DCK/ I,H 01690WDUMVL DCK/ I,H 01700HEADER DCK/ I,H 01710DIAGRG DCK/ I,H 01720GOF DCK/ I,H 01730GETSYR DCK/ I,H 01740TITLE DCK/ I,H 01750IFOVPF DCK/ I,H 01760ERRMSG DCK/ I,H 01770MON2 DCK/ I,H #  3#r. 01780PHASEF DCK/ I,H 01790GETSYM DCK/ I,H 01800ACON DCK/ I,H 01810HCON DCK/ I,H 01820LWRITE DCK/ I,H 01830MATCH DCK/ I,H 01840SORT DCK/ I,H 01850IREPAK DCK/ I,H 01860MON DCK/ I=20,H 01870MON HOL/ 01880 MON 01890 END/ 01900FORTR DCK/ I,H 01910Q8PRMR DCK/ I,H 01920PARABR DCK/ I,H 01930Q8F2IR DCK/ I,H 01940ABSR DCK/ I,H 01950SQRTFR DCK/ I,H 01960SIGNR DCK/ I,H 01970FXFLTR DCK/ I,H 01980EXPR DCK/ I,H 01990ALOGR DCK/ I,H 02000TANHR DCK/ I,H 02010SNCSR DCK/ I,H 02020ATANR DCK/ I,H 02030D1781R DCK/ I,H 02040FLOTR DCK/ I,H 02050COMFPR DCK/ I,H 02060Q8QIOR DCK/ I,H 02070BINARR DCK/ I,H 02080Q8QGTR DCK/ I,H 02090IOCODR DCK/ I,H 02100INITLR DCK/ I,H 02110RSTORR DCK/ I,H 02120GETCHR DCK/ I,H 02130IPACKR DCK/ I,H 02140UPDATR DCK/ I,H 02150DECPLR DCK/ I,H 02160INTGRR DCK/ I,H 02170SPACER DCK/ I,H 02180HOLR DCK/ I,H 02190DCHXR DCK/ I,H 02200HXASCR DCK/ I,H 02210AFMTOR DCK/ I,H 02220RFMTOR DCK/ I,H 02230AFMTIR DCK/ I,H 02240RFMTIR DCK/ I,H 02250ASCHXR DCK/ I,H r  3#rB 02260HXDCR DCK/ I,H 02270FLOTIR DCK/ I,H 02280FOUTR DCK/ I,H 02290EOUTR DCK/ I,H 02300EWRITR DCK/ I,H 02310INTI1R DCK/ I,H 02320FORMTR DCK/ I,H 02330Q8QFIR DCK/ I,H 02340Q8QFLR DCK/ I,H 02350Q8QFXR DCK/ I,H 02360HEXAR DCK/ I,H 02370HEXDR DCK/ I,H 02380ASCIIR DCK/ I,H 02390DECHXR DCK/ I,H 02400AFORMR DCK/ I,H 02410RFORMR DCK/ I,H 02420FLOTGR DCK/ I,H 02430SGDBLR DCK/ I,H 02440Q8D2IR DCK/ I,H 02450DABSR DCK/ I,H 02460DSQRTR DCK/ I,H 02470DSIGNR DCK/ I,H 02480DEXPR DCK/ I,H 02490DLOGR DCK/ I,H 02500DRSTRR DCK/ I,H 02510DSNCSR DCK/ I,H 02520DATANR DCK/ I,H 02530DFLOTR DCK/ I,H 02540Q8QDFR DCK/ I,H 02550DOUTR DCK/ I,H 02560FORTN DCK/ I,H 02570Q8PRMS DCK/ I,H 02580Q8QF2I DCK/ I,H 02590ABS DCK/ I,H 02600SQRT DCK/ I,H 02610SIGN DCK/ I,H 02620FIXFLT DCK/ I,H 02630EXP DCK/ I,H 02640ALOG DCK/ I,H 02650TANH DCK/ I,H 02660SINCOS DCK/ I,H 02670ATAN DCK/ I,H 02680PARABN DCK/ I,H 02690D1781N DCK/ I,H 02700FLOTN DCK/ I,H 02710COMNFP DCK/ I,H 02720MON3 DCK/ I,H 02730Q8IFRM DCK/ I,H ,  3#rV 02740Q8FS DCK/ I,H 02750Q8TRAN DCK/ I,H 02760Q8QINI DCK/ I,H 02770Q8QEND DCK/ I,H 02780Q8CMP DCK/ I,H 02790Q8RWBU DCK/ I,H 02800Q8ERRM DCK/ I,H 02810Q8DFIO DCK/ I,H 02820Q8QX DCK/ I,H 02830Q8QUNI DCK/ I,H 02840Q8FGET DCK/ I,H 02850Q8MAGT DCK/ I,H 02860TAPCON DCK/ I,H 02870IOCK DCK/ I,H 02880PSSTOP DCK/ I,H 02890Q8PAND DCK/ I,H 02900Q8EXP1 DCK/ I,H 02910Q8EXP9 DCK/ I,H 02920Q8QGTX DCK/ I,H 02930Q8QIO DCK/ I,H 02940IOCODE DCK/ I,H 02950PSUEDO DCK/ I,H 02960IGETCH DCK/ I,H 02970IPACK DCK/ I,H 02980UPDATN DCK/ I,H 02990DECPL DCK/ I,H 03000INTGR DCK/ I,H 03010SPACEN DCK/ I,H 03020HOLRTH DCK/ I,H 03030DCHX DCK/ I,H 03040HXASC DCK/ I,H 03050AFRMOT DCK/ I,H 03060RFRMOT DCK/ I,H 03070AFRMIN DCK/ I,H 03080RFRMIN DCK/ I,H 03090ASCHX DCK/ I,H 03100HXDC DCK/ I,H 03110FLOTIN DCK/ I,H 03120FOUT DCK/ I,H 03130EOUT DCK/ I,H 03140EWRITE DCK/ I,H 03150INITL1 DCK/ I,H 03160FORMTN DCK/ I,H 03170Q8QFI DCK/ I,H 03180Q8QFL DCK/ I,H 03190Q8QFX DCK/ I,H 03200HEXASC DCK/ I,H 03210HEXDEC DCK/ I,H (  3#rj 03220ASCII DCK/ I,H 03230DECHEX DCK/ I,H 03240AFORM DCK/ I,H 03250RFORM DCK/ I,H 03260FLOATG DCK/ I,H 03270Q8QD2I DCK/ I,H 03280SGLDBL DCK/ I,H 03290DABS DCK/ I,H 03300DSQRT DCK/ I,H 03310DSIGN DCK/ I,H 03320DEXP DCK/ I,H 03330DLOG DCK/ I,H 03340DSNCSN DCK/ I,H 03350DATAN DCK/ I,H 03360DFLOTN DCK/ I,H 03370DRSTOR DCK/ I,H 03380Q8DXP1 DCK/ I,H 03390Q8DXP9 DCK/ I,H 03400Q8QDFN DCK/ I,H 03410DOUTN DCK/ I,H 03420DBLDMY DCK/ I,H 03430 END/ 03440_   3#r~ mmmmmmmmmmmmmmmmALtrO CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmRPGIIH DCK/ I,H 00010RPGIIF DCK/ I,H 00020RPGIIE DCK/ I,H 00030RPGIIL DCK/ I,H 00040RPGIII DCK/ I,H 00050RPGIIC DCK/ I,H 00060RPGIIO DCK/ I,H 00070RPGIIA DCK/ I,H 00080RPGIIM DCK/ I,H 00090RPGROT DCK/ I,H 00100RPGDMY DCK/ I,H 00110RPG DCK/ I,H 00120RPGII DCK/ I,H 00130R9ADSB DCK/ I,H 00140R9ARG DCK/ I,H 4  3#r 00150R9ARTH DCK/ I,H 00160R9ASQR DCK/ I,H 00170R9ATON DCK/ I,H 00180R9BDPR DCK/ I,H 00190R9BEG1 DCK/ I,H 00200R9BEG2 DCK/ I,H 00210R9BEG3 DCK/ I,H 00220R9BEG4 DCK/ I,H 00230R9BEG5 DCK/ I,H 00240R9BGCL DCK/ I,H 00250R9BGOT DCK/ I,H 00260R9BINP DCK/ I,H 00270R9BINT DCK/ I,H 00280R9BITF DCK/ I,H 00290R9BITN DCK/ I,H 00300R9CALC DCK/ I,H 00310R9CHAN DCK/ I,H 00320R9CHAR DCK/ I,H 00330R9CHIN DCK/ I,H 00340R9CKXF DCK/ I,H 00350R9CLOS DCK/ I,H 00360R9CLPR DCK/ I,H 00370R9CLRC DCK/ I,H 00380R9CLRE DCK/ I,H 00390R9CLSV DCK/ I,H 00400R9CMBD DCK/ I,H 00410R9CMOV DCK/ I,H 00420R9CMPR DCK/ I,H 00430R9CNTR DCK/ I,H 00440R9COMP DCK/ I,H 00450R9CRIN DCK/ I,H 00460R9DEBG DCK/ I,H 00470R9DETP DCK/ I,H 00480R9DIVD DCK/ I,H 00490R9DMND DCK/ I,H 00500R9DSPY DCK/ I,H 00510R9DUM0 DCK/ I,H 00520R9DUM1 DCK/ I,H 00530R9ECOD DCK/ I,H 00540R9EDCN DCK/ I,H 00550R9EDIT DCK/ I,H 00560R9ELOC DCK/ I,H 00570R9ENDL DCK/ I,H 00580R9ENTS DCK/ I,H 00590R9EXCP DCK/ I,H 00600R9EXIT DCK/ I,H 00610R9FILR DCK/ I,H 00620R9FINS DCK/ I,H  3#r 00630R9FLDL DCK/ I,H 00640R9FLOW DCK/ I,H 00650R9FMAL DCK/ I,H 00660R9FNBG DCK/ I,H 00670R9FORC DCK/ I,H 00680R9FSTL DCK/ I,H 00690R9FTNX DCK/ I,H 00700R9FTOV DCK/ I,H 00710R9GETS DCK/ I,H 00720R9GOTO DCK/ I,H 00730R9GRAR DCK/ I,H 00740R9ICTL DCK/ I,H 00750R9IDMX DCK/ I,H 00760R9INDM DCK/ I,H 00770R9INIT DCK/ I,H 00780R9INMV DCK/ I,H 00790R9INTA DCK/ I,H 00800R9INTL DCK/ I,H 00810R9INTV DCK/ I,H 00820R9IOCL DCK/ I,H 00830R9IPBG DCK/ I,H 00840R9IPUT DCK/ I,H 00850R9ITLP DCK/ I,H 00860R9LAHD DCK/ I,H 00870R9LBY DCK/ I,H 00880R9LCAE DCK/ I,H 00890R9LEL DCK/ I,H 00900R9LKUP DCK/ I,H 00910R9LOAD DCK/ I,H 00920R9LOCL DCK/ I,H 00930R9LRCK DCK/ I,H 00940R9LSMB DCK/ I,H 00950R9MIB DCK/ I,H 00960R9MIW DCK/ I,H 00970R9MMOV DCK/ I,H 00980R9MOVA DCK/ I,H 00990R9MOVE DCK/ I,H 01000R9MOVZ DCK/ I,H 01010R9MTRN DCK/ I,H 01020R9MTWK DCK/ I,H 01030R9MULT DCK/ I,H 01040R9MVB DCK/ I,H 01050R9MVBX DCK/ I,H 01060R9MVTA DCK/ I,H 01070R9MVW DCK/ I,H 01080R9MVWD DCK/ I,H 01090R9MWI DCK/ I,H 01100R9NRMX DCK/ I,H  3#r 01110R9NSQR DCK/ I,H 01120R9NTOA DCK/ I,H 01130R9NXFL DCK/ I,H 01140R9NXRC DCK/ I,H 01150R9OPCD DCK/ I,H 01160R9OPNF DCK/ I,H 01170R9OPNV DCK/ I,H 01180R9OTMG DCK/ I,H 01190R9OTMV DCK/ I,H 01200R9OTPT DCK/ I,H 01210R9OVOP DCK/ I,H 01220R9OV50 DCK/ I,H 01230R9PACK DCK/ I,H 01240R9PAGE DCK/ I,H 01250R9POSS DCK/ I,H 01260R9PRCL DCK/ I,H 01270R9PRFN DCK/ I,H 01280R9PTCH DCK/ I,H 01290R9PUTS DCK/ I,H 01300R9RCAD DCK/ I,H 01310R9RDEN DCK/ I,H 01320R9READ DCK/ I,H 01330R9ROOM DCK/ I,H 01340R9ROOT DCK/ I,H 01350R9RPRT DCK/ I,H 01360R9RSLT DCK/ I,H 01370R9RSTS DCK/ I,H 01380R9SAVE DCK/ I,H 01390R9SAV1 DCK/ I,H 01400R9SAV2 DCK/ I,H 01410R9SAV3 DCK/ I,H 01420R9SAV4 DCK/ I,H 01430R9SAV5 DCK/ I,H 01440R9SBY DCK/ I,H 01450R9SETF DCK/ I,H 01460R9SETN DCK/ I,H 01470R9SHFT DCK/ I,H 01480R9SKIP DCK/ I,H 01490R9SPAC DCK/ I,H 01500R9SPTP DCK/ I,H 01510R9SQRT DCK/ I,H 01520R9STH0 DCK/ I,H 01530R9STLL DCK/ I,H 01540R9STON DCK/ I,H 01550R9STUB DCK/ I,H 01560R9SWCH DCK/ I,H 01570R9TBOT DCK/ I,H 01580R9TIME DCK/ I,H  3#r 01590R9TP40 DCK/ I,H 01600R9TRAL DCK/ I,H 01610R9TRCE DCK/ I,H 01620R9TROT DCK/ I,H 01630R9TSTB DCK/ I,H 01640R9TSTN DCK/ I,H 01650R9TSTZ DCK/ I,H 01660R9TTOP DCK/ I,H 01670R9UNPK DCK/ I,H 01680R9WOTV DCK/ I,H 01690R9XCPT DCK/ I,H 01700R9XFOT DCK/ I,H 01710R9XRSD DCK/ I,H 01720R9YCOD DCK/ I,H 01730R9ZADS DCK/ I,H 01740R9ZCOD DCK/ I,H 01750R9999B DCK/ I,H 01760CATGET DCK/ I,H 01770CATLOG DCK/ I,H 01780CATLU DCK/ I,H 01790CATSKL DCK/ I,H 01800CM00PT DCK/ I,H 01810CM02IN DCK/ I,H 01820CM03GO DCK/ I,H 01830CVASEB DCK/ I,H 01840ERRO46 DCK/ I,H 01850FMCALL DCK/ I,H 01860FORTN DCK/ I,H 01870IO00WR DCK/ I,H 01880MOUNT DCK/ I,H 01890Q8PRMS DCK/ I,H 01900SELMU DCK/ I,H 01910STRACE DCK/ I,H 01920SUBRAJ DCK/ I,H 01930SUBRED DCK/ I,H 01940SUBRFL DCK/ I,H 01950SUBRIN DCK/ I,H 01960SUBRMV DCK/ I,H 01970TRACER DCK/ I,H 01980OPEN01 DCK/ I,H 01990OPEN02 DCK/ I,H 02000OPEN03 DCK/ I,H 02010OPEN04 DCK/ I,H 02020READ09 DCK/ I,H 02030READ10 DCK/ I,H 02040READ11 DCK/ I,H 02050READ12 DCK/ I,H 02060READ13 DCK/ I,H   3#r 02070WRIT17 DCK/ I,H 02080WRIT18 DCK/ I,H 02090WRIT19 DCK/ I,H 02100WRIT20 DCK/ I,H 02110WRIT21 DCK/ I,H 02120WRIT23 DCK/ I,H 02130UPDT25 DCK/ I,H 02140UPDT26 DCK/ I,H 02150SETL33 DCK/ I,H 02160CLOS35 DCK/ I,H 02170CLOS36 DCK/ I,H 02180CLOS37 DCK/ I,H 02190CLOS38 DCK/ I,H 02200ROOT43 DCK/ I,H 02210ROOT44 DCK/ I,H 02220ROOT45 DCK/ I,H 02230NTAP48 DCK/ I,H 02240NTAP49 DCK/ I,H 02250NTAP52 DCK/ I,H 02260NTAP53 DCK/ I,H 02270NTAP54 DCK/ I,H 02280NTAP55 DCK/ I,H 02290NTAP57 DCK/ I,H 02300NTAP58 DCK/ I,H 02310DELT59 DCK/ I,H 02320ROOT60 DCK/ I,H 02330ROOT61 DCK/ I,H 02340UPDT62 DCK/ I,H 02350FMMV63 DCK/ I,H 02360KEYR64 DCK/ I,H 02370PARABN DCK/ I,H 02380MON DCK/ I=20,H 02390MON HOL/ 02400 MON 02410 END/ 02420CATERR DCK/ I,H 02430CATFIL DCK/ I,H 02440CATMSG DCK/ I,H 02450CATOBJ DCK/ I,H 02460DISKRD DCK/ I,H 02470GETLPG DCK/ I,H 02480LIST DCK/ I,H 02490PUNCH DCK/ I,H 02500SWITCH DCK/ I,H 02510 END/ 02520_ T  3#r mmmmmmmmmmmmmmmmmmmmALrO CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmDUMMY1 DCK/ I=20,H 00010DUMMY1 HOL/ 00020 OPT LPC 00030 END/ 00040AVMBIT DCK/ I,H 00050CCSADD DCK/ I,H 00060CCSBLK DCK/ I,H 00070CCSCST DCK/ I,H 00080CCSEAC DCK/ I,H 00090CCSGET DCK/ I,H 00100CCSHXA DCK/ I,H 00110CCSMVA DCK/ I,H 00120CCSPUT DCK/ I,H 00130CCSPYT DCK/ I,H 00140 DEL/ 13 00150 JMP* (CCSPYT) RETURN 00160 DEL/ 15 00170CCSTIM DCK/ I,H 00180COLECT DCK/ I,H 00190DATHAN DCK/ I,H 00200GETACT DCK/ I,H 00210ICCSAD DCK/ I,H 00220PGGEN DCK/ I,H 00230PUTACT DCK/ I,H 00240{  3#s  DEL/ 416 00250 SPC 1 138*A009 00260RPGDT1 DCK/ I,H 00270TAPHAN DCK/ I,H 00280UPD400 DCK/ I,H 00290UPDATE DCK/ I,H 00300DUMMY2 DCK/ I=20,H 00310DUMMY2 HOL/ 00320 MON 00330 OPT LPC 00340 END/ 00350ACTADD DCK/ I,H 00360ACTMTN DCK/ I,H 00370ADDDT1 DCK/ I,H 00380ALVDT1 DCK/ I,H 00390APMDT1 DCK/ I,H 00400AREDT1 DCK/ I,H 00410ASCBIN DCK/ I,H 00420AVMCKD DCK/ I,H 00430AVMCKV DCK/ I,H 00440AVMCON DCK/ I,H 00450AVMDMP DCK/ I,H 00460AVMSRT DCK/ I,H 00470AVMVAC DCK/ I,H 00480BINASC DCK/ I,H 00490BLDSRN DCK/ I,H 00500BLKDT1 DCK/ I,H 00510CCSDMP DCK/ I,H 00520CCSPAS DCK/ I,H 00530CCSSPC DCK/ I,H 00540CHEKID DCK/ I,H 00550CHUPD2 DCK/ I,H 00560CLRFIL DCK/ I,H 00570CMPDLQ DCK/ I,H 00580CMPSUM DCK/ I,H 00590CPYIND DCK/ I,H 00600DAQUEL DCK/ I,H 00610DEBDT1 DCK/ I,H 00620DECMTN DCK/ I,H 00630DELDT1 DCK/ I,H 00640DELFIL DCK/ I,H 00650DHUPDT DCK/ I,H 00660DMPDAT DCK/ I,H 00670DMPFIL DCK/ I,H 00680DPTDT1 DCK/ I,H 00690DSPDT1 DCK/ I,H 00700EDIT DCK/ I,H 00710FILERR DCK/ I,H 00720  3#sFTNDT1 DCK/ I,H 00730GPMDT1 DCK/ I,H 00740GTPDT1 DCK/ I,H 00750GTSDT1 DCK/ I,H 00760INPUT DCK/ I,H 00770INTGR DCK/ I,H 00780ITKDAC DCK/ I,H 00790LCLRFL DCK/ I,H 00800LDELFL DCK/ I,H 00810LDTDT1 DCK/ I,H 00820LMOVDT DCK/ I,H 00830LODDAT DCK/ I,H 00840LODFIL DCK/ I,H 00850LTPRNT DCK/ I,H 00860LTRBLD DCK/ I,H 00870LTRDTE DCK/ I,H 00880LTRPRT DCK/ I,H 00890LTRSTA DCK/ I,H 00900MHUPDT DCK/ I,H 00910MOVDAT DCK/ I,H 00920NEWS DCK/ I,H 00930NMCHNG DCK/ I,H 00940NUMDT1 DCK/ I,H 00950PGCNT1 DCK/ I,H 00960PGCNT2 DCK/ I,H 00970PGGBLK DCK/ I,H 00980PGGEN0 DCK/ I,H 00990PGGEN1 DCK/ I,H 01000PGGEN3 DCK/ I,H 01010PGGN2E DCK/ I,H 01020 DEL/ 87 01030 DATA F1300/' INTEGER REQBFE(24),IDATEX(15),EXTREC(68) '/ 01040PGGN2P DCK/ I,H 01050PGLTTB DCK/ I,H 01060PGPURG DCK/ I,H 01070PGSEDT DCK/ I,H 01080PGSJL DCK/ I,H 01090PGSJR DCK/ I,H 01100PGSLST DCK/ I,H 01110PHDEL1 DCK/ I,H 01120PHDEL2 DCK/ I,H 01130PMEDT1 DCK/ I,H 01140PRETSR DCK/ I,H 01150PRNTIT DCK/ I,H 01160PRTDT1 DCK/ I,H 01170PRTSCN DCK/ I,H 01180QLOAD DCK/ I,H 01190 INS/ 26 01200g  3#s2 INTEGER DT2(3) 01210 INS/ 50 01220 CALL CCSMVA(DT,1,6,DT2,1,6) 01230 DEL/ 54 01240 CALL WTREAD(LUNIT,-1,MSG1,44,-1,IBUF,6,ITC) 01250 DEL/ 58 01260 CALL CCSMVA(IBUF,1,6,DT2,1,6) 01270 DEL/ 61 01280 140 JLDT=ICALJL(DT2,1) 01290 DEL/ 63 01300 JLDTYR=ICCSAD(DT2(3)) 01310R9BASE DCK/ I,H 01320R9FLDL DCK/ I,H 01330RESDT1 DCK/ I,H 01340RTVDT1 DCK/ I,H 01350SEEIT DCK/ I,H 01360SUMACL DCK/ I,H 01370SUMHD DCK/ I,H 01380 DEL/ 28,29 01390 DATA HDNG4A / 'DELINQUENT DELINQUENT CURRENT QUEUE ' / 01400 DATA HDNG4B / 'PROMISED TO PAY NEXT REVIEW ' / 01410TAPE DCK/ I,H 01420TOTEDT DCK/ I,H 01430TRENDF DCK/ I,H 01440TRENDU DCK/ I,H 01450TRHDT1 DCK/ I,H 01460TRNPLY DCK/ I,H 01470TVPDT1 DCK/ I,H 01480UIDMTN DCK/ I,H 01490USEMTN DCK/ I,H 01500UTFMTN DCK/ I,H 01510UTHEAD DCK/ I,H 01520VALDT1 DCK/ I,H 01530WRTOFE DCK/ I,H 01540XLAT DCK/ I,H 01550DUMMY3 DCK/ I=20,H 01560DUMMY3 HOL/ 01570 MON 01580 OPT LPC 01590 END/ 01600COLMAC DCK/ I,H 01610BLKDAT DCK/ I,H 01620ACTEDT DCK/ I,H 01630CHSCRN DCK/ I,H 01640CLANEX DCK/ I,H 01650DAAASC DCK/ I,H 01660DISPLY DCK/ I,H 01670EACTSQ DCK/ I,H 016801  3#sFEATRNG DCK/ I,H 01690FCOLEC DCK/ I,H 01700GETCHF DCK/ I,H 01710ICHEKQ DCK/ I,H 01720ICHENT DCK/ I,H 01730NMSRCH DCK/ I,H 01740PCPROC DCK/ I,H 01750PIKAMT DCK/ I,H 01760SAVTRN DCK/ I,H 01770DUMMY4 DCK/ I=20,H 01780DUMMY4 HOL/ 01790 MON 01800 OPT LPC 01810 END/ 01820UPDMAC DCK/ I,H 01830ADDIT DCK/ I,H 01840CHNGNF DCK/ I,H 01850CONUPD DCK/ I,H 01860COSUPD DCK/ I,H 01870FORMLN DCK/ I,H 01880FUPDAT DCK/ I,H 01890GETMAS DCK/ I,H 01900LABHAN DCK/ I,H 01910NXTRAN DCK/ I,H 01920PRTLIN DCK/ I,H 01930REACIT DCK/ I,H 01940RSWIT DCK/ I,H 01950TOTALP DCK/ I,H 01960UNCUPD DCK/ I,H 01970UPDBLK DCK/ I,H 01980UPDEND DCK/ I,H 01990UPDIT DCK/ I,H 02000UPINIT DCK/ I,H 02010DUMMY5 DCK/ I=20,H 02020DUMMY5 HOL/ 02030 MON 02040 OPT LPC 02050 END/ 02060UP4MAC DCK/ I,H 02070UP4BLK DCK/ I,H 02080FUPD4X DCK/ I,H 02090UP4INI DCK/ I,H 02100UP4LAB DCK/ I,H 02110UP4NXT DCK/ I,H 02120UP4TOT DCK/ I,H 02130UP4END DCK/ I,H 02140UP4GTM DCK/ I,H 02150UP4GTC DCK/ I,H 02160  3#sZUP4PRT DCK/ I,H 02170UP4FML DCK/ I,H 02180 END/ 02190_ |[  3#sn pS  3#s p>  3#s 00980DUMMY5 HOL/ AL sO =CCS20 00990 MON 01000 OPT LPC *JOB,-------------------------INSTALL SYSTEM MENU 00010*OPEN,FN=CCSITO.C,OW=CCS20,VL=SOURCE,R,LU=20 00020*OPEN,FN=SCRATCH,OW=CCS20,VL=SOURCE,W,LU=21 00030*OPEN,FN=SYMENU.U,OW=CCS20,VL=SOURCE,R,LU=22 00040*K,I22 O  3#s 00050*CSY,I20,P21 00060*COSY 00070*K,I13 00080*LIBEDT 00090*K,I21 00100*N,SYMENU,,,A 00110*Z 00120*CLOSE 00130*Z 00140_ LIBMAC DCK/ I,H 00210 END/ ALsO =CCS20 00220*K,I25,P21,L9 00230*ASSEM 00240SYMENU DCK/ I,H 00010 DEL/ 1,13 00020 SYSTEM MENU 00030 00040MNUPRO SC - SYSTEM CONFIGURATOR 00050STAR01 DCK/ I,H 00060 END/ 00070_   3#s *CTO,MACRO ASSEMBLER ABSOLUTE FILE LOAD COMPLETE. 00550*K,L14 AL sO ?CCS20 00560_ *JOB,-------------------------INSTALL UPDATED LTPRNT 00010*OPEN,FN=CCSAP.C,OW=CCS20,VL=SOURCE,R,LU=20 00020*OPEN,FN=SCRATCH,OW=CCS20,VL=SOURCE,W,LU=21 00030*OPEN,FN=LTPRNT.U,OW=CCS20,VL=SOURCE,R,LU=22 00040*K,I22 00050*CSY,I20,P21 00060*COSY 00070*K,I21,P2 00080*FTN 00090*K,I13 00100*LIBEDT 00110*K,I8 00120*L,LTPRNT 00130*Z 00140*CLOSE 00150*Z 00160_ ALsP $$ __s9| mmmmmmmmmmmmmmmmۺV  3#sALZsO CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm IDENT DECDAG T02 M ITOS CCS 3.0 SL-149T0200001* MICRO CODE DECIMAL ARITHMETIC DIAGNOSTIC T0200002* CREDIT COLLECTION SYSTEM VERSION 3.0 T0200003* DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA T0200004* COPYRIGHT CONTROL DATA CORPORATION 1979 T0200005 SPACE 2 T0200006 CMP2 T0200007 ZMAP T0200008 PMAP T0200009 CPR 1979 T0200010- RELO DECAEND CPG1-2 T0200011 BOX T0200012* T0200013* T0200014* D E C I M A L A R I T H M E T I C T E S T T0200015* T0200016* T0200017* THE TESTS ADDS DECIMALY AND CHECKS THE FOLLOWING NUMBERST0200018* ON EXIT, IF A=0, THE TEST WAS DONE CORRECTLY. T0200019* IF A IS NOT ZERO, AN ERROR OCCURRED. T0200020* T0200021* ERROR CODES T0200022* T0200023* T0200024* ERROR 1 - ILLEGAL CARRY, BAD BOARD T0200025* ERROR 2 - NO CARRY ON ILLEGAL CHAR OR CARRYOUT, LOGIC PROBLEM T0200026* ON BOARD DUE TO WRONG WIREING CHANGES OR DEFECTIVE T0200027* CHIP. T0200028* ERROR 3 - NO CARRY ON NINE, 6 WIREING ERROR ON BACKPLANE. T0200029* T0200030* T0200031* 9999 9999 9999 9999 9999 9999 9999 9999 T0200032* + 0000 7777 6666 5555 4444 3333 2222 1112 T0200033* --------------------------------------------------------------T0200034* 0001 0000 7777 6666 5555 4444 3333 2222 1111 T0200035* T0200036 EBOX T0200037 SPACE 2 T0200038 EJECT T0200039 BOX T0200040* T0200041* S T A T U S / M O D E R E G I S T E R O N E SM100-SM115 T0200042* T0200043 EBOX T0200044 DBLEPREC EQU 0 ENABLE DOUBLE PRECISION ARITHMETIC T0200045 ONESCOMP EQU 1 +++ ENABLE ONES (RATHER L  3#sTHAN TWOS) COMPLEMENT ART0200046 NREGTOBG EQU 2 +++ ENABLE N REGISTER (RATHER C-FIELD) TO BIT GET0200047 SPLITADD EQU 3 ENABLE SPLIT ADDER OPTION T0200048 MACBPINT EQU 4 +++ MACRO-BREAKPOINT INTERRUPT OCCURRED T0200049 PROTFLT EQU 5 +++ 1700 PROTECT FAULT OCCURRED T0200050 MACROINT EQU 6 +++ ENABLE MACRO (1700) INTERRUPTS T0200051 DECARITH EQU 7 ENABLE DECIMAL ARITHMETIC (F1INPUT MUST BE CT0200052 MEMPERR EQU 8 +++ 1700 MEMORY PARITY ERROR OCCURRED T0200053 MICROHLT EQU 9 +++ ENABLE MICRO HALT OR SCIENT/COMMERCIAL INSTRT0200054 OVERFLOW EQU 10 +++ 1700 OVERFLOW OCCURRED T0200055 F1INPUT EQU 11 +++ ENABLE FILE 1 (RATHER THAN TRANSFORM) INPUT T0200056 BINOVFL EQU 12 ENABLE BINARY OVERFLOW (DECARITH MUST BE CLET0200057 RWXFORM EQU 13 ENABLE R/W MICROMEMORY VIA MA XFORM (RATHER T0200058 DELAYEMI EQU 14 +++ DELAY ENABLING OF MACRO INTERRUPTS UNTIL 1 GT0200059* EQU 15 NOT USED T0200060 BOX T0200061* T0200062* S T A T U S / M O D E R E G I S T E R T W O SM200-SM215 T0200063* T0200064 EBOX T0200065 ADTLINE EQU 0 +++ ENABLE AUTO-DATA TRANSFER MODE (SELECT LINE)T0200066 STROBE EQU 1 +++ STROBE DATA TO/FROM SELECTED M05 PERIPHERAL T0200067 READLINE EQU 1 +++ READ DATA FROM SELECTED A/Q PERIPHERAL T0200068 WRITLINE EQU 2 +++ WRITE DATA TO SELECTED A/Q PERIPHERAL T0200069 PORTLINE EQU 2 +++ ENABLE M05 TRANSFER MODE (PORT LINE) T0200070 TERMLINE EQU 3 +++ TERMINATE I/O TRANSFER AND GENERATE MACRO INT0200071 DEADSTR EQU 4 +++ DEADSTART LOADING TO MICRO/MACRO MEMORY OCCUT0200072* EQU 5 NOT USED T0200073* EQU 6 NOT USED T0200074 PAGXFORM EQU 7 +++ ENABLE PAGE SELECTION (IN S-FIELD) WITH MA TT0200075* EQU 8 NOT USED T0200076 UNPCHECK EQU 9 +++ ENABLE THE UNPROT INSTR FOLLOWED BY PROT INST0200077 POUTLINE EQU 10 +++ WRITE DATA TO PANEL DEVICE T0200078 PINPLINE EQU 11 +++ READ DATA FROM PANEL DEVICE T0200079 AFCRLINE EQU 12 +++ WRITE DATA TO AUXILARY FUNCTION CONTROL REGIT0200080 ENHXFORM EQU 13 +++ ENABLE 1700 ENHANCED TRANSFORMS T0200081 CONSOLGO EQU 14 +++ ENABLE CONSOLE CONTROL ON A GO RETURN T0200082 MACRORUN EQU 15 +++ ENABLE MACRO-INSTRUCTION RUN T0200083 SPACE 1 T0200084**********NOTE +++ INDICATES USED IN 1700 EMULATION************T0200085**********NOTE STATUS/MODE EQUATES ARE FIVE (5) BITS LONG**T0200086 SPACE 1 T0200087 EJECT T0200088 BOX T0200089* T0200090* S T A T U S / M O D E F L A G S 0-3=SM100-3, 4-7=T0200091* T0200092 EBOX T0200093 ONES EQU 0+ONESCOMP ENABLE ONES (RATHER .  3#sTHAN TWOS) COMPLEMENT ART0200094 BGN EQU 0+NREGTOBG ENABLE N REGISTER (RATHER C-FIELD) TO BIT GET0200095 SADT EQU 4+ADTLINE ENABLE AUTO-DATA TRANSFER MODE (SELECT LINE)T0200096 SSTB EQU 4+STROBE STROBE DATA TO/FROM SELECTED M05 PERIPHERAL T0200097 READ EQU 4+READLINE READ DATA FROM SELECTED A/Q PERIPHERAL T0200098 WRIT EQU 4+WRITLINE WRITE DATA TO SELECTED A/Q PERIPHERAL T0200099 PORT EQU 4+PORTLINE ENABLE SET/SAMPLE MODE (PORT LINE) T0200100 TERM EQU 4+TERMLINE TERMINATE I/O TRANSFER AND GENERATE MACRO INT0200101 SPACE 3 T0200102 BOX T0200103* T0200104* B I T T E S T A S S I G N M E N T S BT 00 - 15 T0200105* T0200106 EBOX T0200107* EQU 0 NOT USED T0200108 COMPOPR EQU 1 +++ BIT 2 OF IXT IS ONE (COMPARE OPERATION) T0200109 DESTMEM EQU 2 +++ BIT 7 OF IXT IS ONE (MEMORY DESTINATION) T0200110 CHAROPR EQU 3 +++ BIT 6 OF IXT IS ONE (CHARACTER OPERATION) T0200111 EFFADRFF EQU 4 +++ EFFECTIVE ADDRESS IS 00FF (MUST AGREE WITH RT0200112 NPROTFLT EQU 5 +++ NO PROTECT FAULT (MUST AGREE WITH PROTFLT SMT0200113 SELSTOP EQU 6 +++ SELECTIVE STOP SWITCH SET T0200114 NSELSKIP EQU 7 +++ SELECTIVE SKIP SWITCH NOT SET T0200115 NMEMPERR EQU 8 +++ NO MEMORY PARITY ERROR (MUST AGREE WITH MEMPT0200116* EQU 9 NOT USED T0200117 DELZERO EQU 10 +++ BITS 08-15 OF IXT (DELTA) ARE ZERO T0200118 EANOTOPR EQU 11 +++ EFFECTIVE ADR. NOT OPERAND (MUST AGREE WITH T0200119 EVENPAR EQU 12 +++ MAIN MEMORY PARITY IS EVEN T0200120 F4.GE.8 EQU 13 +++ BIT 0 OF IXT IS ONE (MUST AGREE WITH ENHXFORT0200121 MULTIND EQU 14 +++ MULTI-LEVEL INDIRECT MODE T0200122 MEMABORT EQU 15 +++ PREVIOUS MEMORY WRITE ABORTED (MUST AGREE WIT0200123 SPACE 3 T0200124**********NOTE +++ INDICATES USED IN 1700 EMULATION************T0200125**********NOTE BIT TEST EQUATES ARE FOUR (4) BITS LONG*****T0200126**********NOTE NEXT UPPER IS EXECUTED IF CONDITION TRUE****T0200127 SPACE 3 T0200128 EJECT T0200129 BOX T0200130* T0200131* F I L E T W O R E G I S T E R S I N D E X E S T0200132* T0200133 EBOX T0200134* NAME NO. PRESET DESCRIPTION T0200135 F2FFFF EQU 0 FFFF CONSTANT FFFF (USED ALSO AS THE NULL REGISTET0200136 F2REG1 EQU 1 0000 REGISTER ONE T0200137 F2REG2 EQU 2 0000 REGISTER TWO T0200138 F2REG3 EQU 3 0000 REGISTER THREE T0200139 F2REG4 EQU 4 0000 REGISTER FOUR T0200140 F2QSAV EQU 5 0000 SAVE OF Q REGISTER T0200141 F2ASAV EQU 6 0000 SAVE OF A REGISTER u  3#t T0200142 F2IREG EQU 7 (FF) 1700 I REGISTER (ALSO AT LOCATION FFX) T0200143*F2TEMP1 EQU 8 0000 FILE 2 TEMPORARY, SEE BELOW T0200144*F2TEMP2 EQU 9 0000 FILE 2 TEMPORARY, SEE BELOW T0200145 F200FF EQU 10 00FF CONSTANT 00FF (MUST AGREE WITH AQ CHAR STATUT0200146 F2NUM2 EQU 11 0000 MSB OF PANEL INPUT/OUTPUT (MUST AGREE WITH CT0200147 F2NUM1 EQU 12 0000 LSB OF PANEL INPUT/OUTPUT T0200148 F2FCR1 EQU 13 0000 LSB OF SIMULATED FCR (MUST AGREE WITH BG4 = T0200149 F2PFCT EQU 14 0010 CURRENT OR LAST PANEL FUNCTION, SEE PAGE 7 BT0200150 F2FCR2 EQU 15 0000 MSB OF SIMULATED FCR (MUST AGREE WITH 000FX)T0200151 F2NKSAV EQU 16 0000 SAVE OF N,K REGISTERS (MUST AGREE WITH CNK =T0200152*F2TEMP3 EQU 17 0000 FILE 2 TEMPORARY, SEE BELOW T0200153*F2TEMP4 EQU 18 0000 FILE 2 TEMPORARY, SEE BELOW T0200154*F2TEMP5 EQU 19 0000 FILE 2 TEMPORARY, SEE BELOW T0200155*UINT B EQU 20 8000 DMI INFO FOR MICRO-INTERRUPT B T0200156*.... . ... .. .... ... .... ... ............... . T0200157*.... . ... .. .... ... .... ... ............... . T0200158*.... . ... .. .... ... .... ... ............... . T0200159*UINT 0 EQU 31 8000 DMI INFO FOR MICRO INTERRUPT 0 T0200160* DEFINITIONS OF FILE 2 TEMPORARIES T0200161 F2TPMI EQU 8 DMI INFO FOR PSEUDO U-INT. FOR EMS INSTR. (.T0200162 F2TPMS EQU 8 SAVE OF PAGE MODE STATUS FOR ADT INTERRUPT T0200163 F2MSAV EQU 8 SAVE OF M REGISTER FOR SRG/LRG (MUST BE EQUAT0200164 F2PSAV EQU 8 SAVE OF P REGISTER FOR COMMERICAL INSTRUCTIOT0200165 F2TUNP EQU 9 SAVE OF UNPROTECT FLAG FOR U-INT/EMS (MUST=UT0200166 F2TATA EQU 17 AUTO DATA TRANSFER TABLE ADDRESS FOR ADT INTT0200167 F2TABN EQU 18 ADT BLOCK NUMBER IN ADT TABLE FOR ADT MICRO T0200168 BOX T0200169* T0200170* F I L E O N E R E G I S T E R S I N D E X E S T0200171* T0200172 EBOX T0200173* EQU 000 NOT USED T0200174* ... ... ... .... T0200175* ... ... ... .... T0200176* ... ... ... .... T0200177* EQU 255 LAST VALUE OF P REGISTER BEFORE A MASTER CLET0200178 EJECT T0200179 BOX T0200180* T0200181* M A T R A N S F O R M E Q U A T E S T0200182* T0200183 EBOX T0200184 INT EQU 0 MICRO/MACRO INTERRUPTS BCX + (S2 11)*2 T0200185 IR2 EQU 1 INTERRREGISTER, TYPE 2 B8X + (IXT*11-12)T0200186 F3A EQU 2 FIELD INSTRUCTION D8X + (IXT*13-15)T0200187 DEST EQU 3 REGISTER DESTINATION 38X + (IXT*13-15)T0200188 COM EQU 4 COMMERCIAL INSTRUCTION E0X + (IXT*11-15)T0200189* EQU 5 NOT USED  3#t" T0200190 F2 EQU 6 F2 (ADR MODE) FOR ENHANCED A0X + (IXT*8-9)*4T0200191 S2 EQU 7 SELECTOR S2 (LOWER 8 BITS) 00X + (S2 08-15)T0200192 SK EQU 8 SKIP INSTRUCTION C0X + (IXT*08-11)T0200193 SH EQU 9 SHIFT INSTRUCTION B0X + (IXT*08-10)T0200194 DRP EQU 9 DECPREMENT AND REPEAT B0X + (IXT*08-10)T0200195 IR EQU 10 INTERREGISTER INSTRUCTION E0X + (IXT*12-15)T0200196 F3 EQU 10 MISCELANEOUS INSTRUCTION E0X + (IXT*12-15)T0200197 F EQU 11 F (OP CODE) FIELD 80X + (IXT 00-03)T0200198 F4 EQU 11 OP CODE FOR MR2 AND FIELD 80X + (IXT 00-03)T0200199 IM EQU 12 INTERREG. WITH M ORIGIN F0X + (IXT*08-11)T0200200 SKIP2 EQU 12 SKIP 2 INSTRUCTION F0X + (IXT*08-11)T0200201 SCI EQU 12 SCIENTIFIC INSTRUCTION F0X + (IXT*08-11)T0200202 F1 EQU 13 F1 (ADR MODE) FIELD 40X+F=0*32+(IXT4-T0200203 F* EQU 14 ALTERNATE F1 FIELD A0X + A*4 + (IXT T0200204 FM EQU 15 MISCELANEOUS F1 FIELD B8X + B*2 + C T0200205 SPACE 1 T0200206* NOTE, (A) = (F1=00XX) .OR. NOT(MULTI-LEVEL INDIRT0200207* (B) = (PROTECT VIOLATION) T0200208* (C) = (DELTA=NOT ZERO) .OR. (PROTECT VIOLAT0200209* (D=0) = (DELTA=ZERO) T0200210* (E) = NOT((IXT=0500) .OR. (S2 09)) T0200211$ (F=0) = (F FIELD = ZERO) T0200212 SPACE 1 T0200213 BOX T0200214* T0200215* K / N T R A N S F O R M E Q U A T E S T0200216* T0200217 EBOX T0200218 S2LSB EQU 0 SELECTOR S2 (LOWER 8 BITS) 00X + (S2 08-15)T0200219 SHCNT EQU 1 SHIFT COUNT ON A SHIFT 00X + (IXT*11-15)T0200220 FLDLTH EQU 2 FIELD LENGTH 00X + (IXT 04-07)T0200221 RA EQU 3 REGISTER RA 00X + (IXT*10-12)T0200222 RA* EQU 4 ALTERNATE REGISTER RA 00X + (IXT*08-10)T0200223 RB EQU 5 REGISTER RB 00X + (IXT*13-15)T0200224 MIR EQU 6 MIR REGISTER (LOWER 8 BITS)00X + (MIR 24-31)T0200225 FLDSTR EQU 7 NOT OF FIELD START BIT 00X + NOT(IXT 00-T0200226 SPACE 3 T0200227 EJECT T0200228 BOX T0200229* T0200230* 1 7 0 0 E M U L A T O R E Q U A T E S T0200231* T0200232 EBOX T0200233 BG8000X EQU 0 FOR ADDING 8000 VIA THE BIT GENERATOR T0200234 BG4000X EQU 1 FOR ADDING 4000 VIA THE BIT GENERATOR T0200235 BG2000X EQU 2 FOR ADDING 2000 VIA THE BIT GENERATOR T0200236 BG1000X EQU 3 FOR ADDING 1000 VIA THE BIT GENERATOR T0200237 BG800X EQU 4 FOR ADDING 800X VIA  3#t6THE BIT GENERATOR T0200238 BG400X EQU 5 FOR ADDING 400X VIA THE BIT GENERATOR T0200239 BG200X EQU 6 FOR ADDING 200X VIA THE BIT GENERATOR T0200240 BG100X EQU 7 FOR ADDING 100X VIA THE BIT GENERATOR T0200241 BG80X EQU 8 FOR ADDING 80X VIA THE BIT GENERATOR T0200242 BG40X EQU 9 FOR ADDING 40X VIA THE BIT GENERATOR T0200243 BG20X EQU 10 FOR ADDING 20X VIA THE BIT GENERATOR T0200244 BG10X EQU 11 FOR ADDING 10X VIA THE BIT GENERATOR T0200245 BG8 EQU 12 FOR ADDING 08X VIA THE BIT GENERATOR T0200246 BG4 EQU 13 FOR ADDING FOUR VIA THE BIT GENERATOR T0200247 BG2 EQU 14 FOR ADDING TWO VIA THE BIT GENERATOR T0200248 BG1 EQU 15 FOR ADDING ONE VIA THE BIT GENERATOR T0200249 BG0 EQU 16 FOR ADDING ZERO VIA THE BIT GENERATOR T0200250 SPACE 1 T0200251 BG EQU 20X FOR USING BG EQUATES IN ORG STATEMENTS T0200252 SPACE 1 T0200253 PAGE0 EQU 0 FOR JUMPING TO PAGE 0 USING THE S FIELD T0200254 PAGE1 EQU 1 FOR JUMPING TO PAGE 1 USING THE S FIELD T0200255 PAGE2 EQU 2 FOR JUMPING TO PAGE 2 USING THE S FIELD T0200256 PAGE3 EQU 3 FOR JUMPING TO PAGE 3 USING THE S FIELD T0200257 PAGE4 EQU 4 FOR JUMPING TO PAGE 4 USING THE S FIELD T0200258 PAGE5 EQU 5 FOR JUMPING TO PAGE 5 USING THE S FIELD T0200259 PAGE6 EQU 6 FOR JUMPING TO PAGE 6 USING THE S FIELD T0200260 PAGE7 EQU 7 FOR JUMPING TO PAGE 7 USING THE S FIELD T0200261 PAGE8 EQU 8 FOR JUMPING TO PAGE 8 USING THE S FIELD T0200262 PAGE9 EQU 9 FOR JUMPING TO PAGE 9 USING THE S FIELD T0200263 PAGEA EQU AX FOR JUMPING TO PAGE A USING THE S FIELD T0200264 PAGEB EQU BX FOR JUMPING TO PAGE B USING THE S FIELD T0200265 PAGEC EQU CX FOR JUMPING TO PAGE C USING THE S FIELD T0200266 PAGED EQU DX FOR JUMPING TO PAGE D USING THE S FIELD T0200267 PAGEE EQU EX FOR JUMPING TO PAGE E USING THE S FIELD T0200268 PAGEF EQU FX FOR JUMPING TO PAGE F USING THE S FIELD T0200269 EJECT T0200270 BOX T0200271* T0200272* 1 7 0 0 E Q U A T E S C O N T I N U E D T0200273* T0200274 EBOX T0200275 PG0 EQU PAGE0*100X FOR ADDRESSING INTO FIRST PAGE OF EMULATOR T0200276 PG1 EQU PAGE1*100X FOR ADDRESSING INTO SECOND PAGE OF EMULATOR T0200277 SPG1 EQU PAGE8*100X FOR ADDRESSING INTO FIRST PAGE OF SCIENTIFICT0200278 SPG2 EQU PAGE9*100X FOR ADDRESSING INTO SECOND PAGE OF SCIENTIFIT0200279 CNK EQU 0 FOR ADDRESSING WHERE BITS 28-29 OF C-FIELD MT0200280 CFK EQU 4 FOR ADDRESSING WHERE BITS 28-29 OF C-FIELD MT0200281 CFN EQU 8 FOR ADDRESSING WHERE BITS 28-29 OF C-FIELD MT0200282 PINPMASK EQU 15-12 FOR MASK REGISTER 1, PANEL INPUT INTERRUPT T0200283 POUTMASK EQU 15-13 FOR MASK REGISTER 1, PANEL OUTPUT INTERRUPT T0200284 BG0SSTOP EQU BG0+SELSTOP FOR MACRO STOP (INSTRUCTION STEP) ROUTINE T0200285 BG0MLIND EQU BG0+MULTIND FOR RTJ, TO ADD ZEROe  3#tJ + CHECK IF MULTI-LEVEL T0200286 AUTODPLY EQU BG400X AUTO DISPLAY BIT IN SIMULATED FCR, LEAST SIGT0200287 RRMASK EQU 18X AQ REPLY/REJECT MASK FOR INP AND OUT INSTRUCT0200288 IOWAIT EQU 23 AQ INTERNAL REJECT TIMEOUT (IOWAIT=13USEC/56T0200289 SPACE 3 T0200290* DESCRIPTION OF PANEL FUNCTION WORD IN FILE TWO T0200291 TERMINP EQU BG1 TERMINATOR (COLON OR G) INPUT (MUST AGREE WIT0200292 INPERR EQU BG20X INPUT ERROR (OUTPUT AN ASTERISK) T0200293 SPOUT EQU BG40X SPACE AFTER CONTROL CHAR OUTPUT (MUST AGREE T0200294 CROUT EQU BG80X CARRIAGE RETURN OUTPUT (MUST AGREE WITH BG80T0200295 CCOUT EQU BG100X CONTROL CHARACTER (H,I,J,K,L) OUTPUT (MUST =T0200296 DIGINP EQU BG200X AT LEAST ONE DIGIT INPUT T0200297 CHRINP EQU AUTODPLY AT LEAST ONE DIGIT OR CONTROL CHARACTER INPUT0200298 DSCTR EQU BG800X DIGIT/SPACE COUNTER TO OUTPUT 8 DIGITS AND 8T0200299 D4S4FLG EQU DSCTR-3 DIGIT/SPACE FLAG TO OUTPUT ONLY 4 DIGITS + 4T0200300 BOX T0200301* T0200302* 1 7 0 0 E M U L A T I O N N O T E S T0200303* T0200304 EBOX T0200305* MEM USED FOR MINUS ZERO (FFFF) WHEN NOT ACCESSINT0200306* RPT DCR. N BY ONE, IF GOING FROM UPPER TO SAME T0200307* RPT USED AS RETURN JUMP FROM LOWER TO SAME UPPERT0200308* SUB- USED TO ADD ONE TO P REGISTER, BUT SEE PAGE T0200309 SPACE 3 T0200310 EJECT T0200311 BOX T0200312* T0200313* O R I G I N S F O R M A T R A N S F O R M S T0200314* T0200315 EBOX T0200316 INTMICRO EQU 30X+PG0 ORIGIN OF INTERNAL MICRO-INTERRUPTS T0200317 ADRF1 EQU 40X+PG0 ORIGIN OF ADDRESS MODE INSTRUCTIONS T0200318 REGREF EQU 60X+PG0 ORIGIN OF REGISTER REFERENCE INSTRUCTIONS (FT0200319 MEMREF1 EQU 80X+PG0 ORIGIN OF MEMORY REFERENCE TYPE 1 INSTRUCTIOT0200320 ADRF1A EQU A0X+PG0 ORIGIN OF ADDRESS MODE INSTRUCTIONS (ALTERNAT0200321 REGSHIFT EQU B0X+PG0 ORIGIN OF REGISTER SHIFT INSTRUCTIONS (F=0, T0200322 ADRF1M EQU B8X+PG0 ORIGIN OF ADDRESS MODE INSTRUCTIONS (MISCELLT0200323 INTORG EQU BCX+PG0 ORIGIN OF MICRO/MACRO INTERRUPTS T0200324 REGSKIP1 EQU C0X+PG0 ORIGIN OF REGISTER SKIP 1 INSTRUCTIONS (F=0,T0200325 INTREG1 EQU E0X+PG0 ORIGIN OF INTERREGISTER INSTRUCTIONS (F=0,F1T0200326 IRORGM EQU F0X+PG0 ORIGIN OF IR INSTRS WITH M AS ORIGIN (F=0,F1T0200327 PAGJMP EQU F0X+PG0 ORIGIN OF PAGE JUMPS VIA S2 TRANSFORM T0200328 SPACE 1 T0200329 KDISPLAY EQU 00X+PG1 ORIGIN OF K DISPLAY REGISTERS T0200330 FCTCHAR EQU 10X+PG1 ORIGIN OF FUNCTION CHARACTERS FOR SIMULATED T0200331 LDISPLAY EQU 20X+PG1 ORIGIN OF L DISPLAY REGISTERS T0200332 DESTREG EQU 38X+PG1 ORIGIN OF MEMORY REFERENCE 2 DESTINATION REGT0200333 MEMREF2 EQU 80X+PG1 ORIGIN OF MEMORY REFi'  3#t^ERENCE TYPE 2 INSTRUCTIOT0200334 ADRF2 EQU A0X+PG1 ORIGIN OF ADDRESS MODES FOR MEMORY REFERENCET0200335 DECRPT EQU B0X+PG1 ORIGIN OF DECREMENT AND REPEAT INSTRUCTIONS T0200336 MISREF EQU E0X+PG1 ORIGIN OF MISCELANEOUS INSTRUCTIONS T0200337 REGSKIP2 EQU F0X+PG1 ORIGIN OF REGISTER SKIP 2 INSTRUCTIONS T0200338 SPACE 1 T0200339 FLDREF EQU D8X+PG1 ORIGIN OF FIELD INSTRUCTIONS T0200340 INTREG2 EQU B8X+PG1 ORIGIN OF INTERREGISTER 2 INSTRUCTIONS T0200341 AZ EQU 0 A=0, IF (F1=00XX) .OR. NOT(MULTI-LEVEL INDIRT0200342 AN EQU 4 A=4, IF (F1=00XX) .OR. NOT(MULTI-LEVEL INDIRT0200343 BZ EQU 0 B=0, IF (PROTECT VIOLATION) = 0 T0200344 BN EQU 2 B=2, IF (PROTECT VIOLATION) = 1 T0200345 CZ EQU 0 C=0, IF (DELTA=NOTZERO) .OR. (PROTECT VIOLATT0200346 CN EQU 1 C=1, IF (DELTA=NOTZERO) .OR. (PROTECT VIOLATT0200347 DZ EQU 1 D=1, IF (DELTA=ZERO) = 0 T0200348 DN EQU 0 D=0, IF (DELTA=ZERO) = 1 T0200349 EZ EQU 0 E=0, IF NOT((IXT=0500) .OR. (S2 09)) = 0 T0200350 EN EQU 1 E=1, IF NOT((IXT=0500) .OR. (S2 09)) = 1 T0200351 SPACE 1 T0200352 COMINSTR EQU E0X+SPG2 ORIGIN OF COMMERCIAL INSTRUCTIONS T0200353 SCIINSTR EQU F0X+SPG2 ORIGIN OF SCIENTIFIC INSTRUCTIONS T0200354 SPACE 3 T0200355 CPG1 EQU SPG1 T0200356 ORG CPG1-2 T0200357+ DECATEST J NOT EXECUTED, TEST0200358- DECAEND J NOT EXECUTED, TEST0200359 HEX 00000 NO PRODUCT NUM. T0200360 EJECT T0200361 ORG CPG1 T0200362+DECATEST RTJ CLRF/ONES SET TWOS COMPLEMET0200363 A.-B SM1 BG SM1 OVERFLOW L CLEAR OVERFLOW T0200364 SPACE 1 T0200365+ DECADONE J TEST DONE, EXIT T0200366 SPACE 2 T0200367- A+B SM1 BG SM1 DECARITH SET DECIMAL ARITHT0200368 K=99X T0200369 ZERO F N=99X F = 0, N,K = 999T0200370 A.-B SM1 BG SM1 F1INPUT T0200371 SPACE 1 T0200372 ADD F N,K F F = 0 + 9999 T0200373 ADDT F F1 F T0200374 EOR F N,K K=11X ZL CHECK F=9999, NO T0200375+ B BG A BG1 RU NO, ERROR 1 T0200376 SPACE 1 T0200377- A.-B SM1 BG SM1 OVERFLOW OVFL T0200378+ N=11X U T0200379- B BG A BG1 RU NO, ERROR 1 T0200380 SPACE 1 T0200381+ B N,K Q /  3#tr Q = 1111 T0200382 B Q X K=7 X = 1111 T0200383 SPACE 1 T0200384 DECALOOP ADD F X A DECK A = 9999 + X + CAT0200385 ADD+T A F1 A T0200386 EOR A X ZL CHECK A=X, WITH CT0200387+ B BG A BG2 RU NO, ERROR 2 T0200388 SPACE 1 T0200389- A.-B SM1 BG SM1 OVERFLOW OVFL NO, ERROR 2 T0200390+ B BG A BG2 RU T0200391 SPACE 1 T0200392- ADD+ F ZERO A KZU CHECK IF LOOP DONT0200393+ ADDT A F1 A ZL YES, CK 9999+00T0200394- ADD X Q X DECALOOP J NO, X = X + 111T0200395 SPACE 1 T0200396+ ADD MEM BG A BG4 RU NO, ERROR 3 T0200397- A.-B SM1 BG SM1 OVERFLOW OVFL T0200398+ ADD MEM BG A BG4 RU NO, ERROR 3 T0200399 SPACE 2 T0200400-DECADONE SETF/ONES ALL DONE, SET ONET0200401 A.-B SM1 BG SM1 DECARITH CLEAR DECIMAL ARIT0200402 3EX JL RETURN TO EMULATOT0200403 SPACE 2 T0200404-DECAEND HEX 0 CHECKSUM T0200405 SPACE 2 T0200406 END T0200407 IDENT CISCOM T03 M ITOS CCS 3.0 SL-149T0300001* MICRO CODE FOR COMMERCIAL INSTRUCTION SET T0300002* CREDIT COLLECTION SYSTEM VERSION 3.0 T0300003* DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA T0300004* COPYRIGHT CONTROL DATA CORPORATION 1979 T0300005 CPR 1979 T0300006 ZMAP T0300007 PMAP T0300008 CMP1 T0300009- RELO CISCKSM CPG1-2 T0300010 SPACE 2 T0300011 BOX T0300012*** T0300013* T0300014* COMMERCIAL INSTRUCTION SET T0300015* T0300016* DESCRIPTION T0300017* T0300018* ... T0300019* T0300020*** T0300021 EBOX T0300022 EJECT R  3#t T0300023 BOX T0300024* T0300025* S T A T U S / M O D E R E G I S T E R O N E SM100-SM115 T0300026* T0300027 EBOX T0300028 DBLEPREC EQU 0 ENABLE DOUBLE PRECISION ARITHMETIC T0300029 ONESCOMP EQU 1 +++ ENABLE ONES (RATHER THAN TWOS) COMPLEMENT ART0300030 NREGTOBG EQU 2 +++ ENABLE N REGISTER (RATHER C-FIELD) TO BIT GET0300031 SPLITADD EQU 3 ENABLE SPLIT ADDER OPTION T0300032 MACBPINT EQU 4 +++ MACRO-BREAKPOINT INTERRUPT OCCURRED T0300033 PROTFLT EQU 5 +++ 1700 PROTECT FAULT OCCURRED T0300034 MACROINT EQU 6 +++ ENABLE MACRO (1700) INTERRUPTS T0300035 DECARITH EQU 7 ENABLE DECIMAL ARITHMETIC (F1INPUT MUST BE CT0300036 MEMPERR EQU 8 +++ 1700 MEMORY PARITY ERROR OCCURRED T0300037 MICROHLT EQU 9 +++ ENABLE MICRO HALT OR SCIENT/COMMERCIAL INSTRT0300038 OVERFLOW EQU 10 +++ 1700 OVERFLOW OCCURRED T0300039 F1INPUT EQU 11 +++ ENABLE FILE 1 (RATHER THAN TRANSFORM) INPUT T0300040 BINOVFL EQU 12 ENABLE BINARY OVERFLOW (DECARITH MUST BE CLET0300041 RWXFORM EQU 13 ENABLE R/W MICROMEMORY VIA MA XFORM (RATHER T0300042 DELAYEMI EQU 14 +++ DELAY ENABLING OF MACRO INTERRUPTS UNTIL 1 GT0300043* EQU 15 NOT USED T0300044 BOX T0300045* T0300046* S T A T U S / M O D E R E G I S T E R T W O SM200-SM215 T0300047* T0300048 EBOX T0300049 ADTLINE EQU 0 +++ ENABLE AUTO-DATA TRANSFER MODE (SELECT LINE)T0300050 STROBE EQU 1 +++ STROBE DATA TO/FROM SELECTED M05 PERIPHERAL T0300051 READLINE EQU 1 +++ READ DATA FROM SELECTED A/Q PERIPHERAL T0300052 WRITLINE EQU 2 +++ WRITE DATA TO SELECTED A/Q PERIPHERAL T0300053 PORTLINE EQU 2 +++ ENABLE M05 TRANSFER MODE (PORT LINE) T0300054 TERMLINE EQU 3 +++ TERMINATE I/O TRANSFER AND GENERATE MACRO INT0300055 DEADSTR EQU 4 +++ DEADSTART LOADING TO MICRO/MACRO MEMORY OCCUT0300056* EQU 5 NOT USED T0300057* EQU 6 NOT USED T0300058 PAGXFORM EQU 7 +++ ENABLE PAGE SELECTION (IN S-FIELD) WITH MA TT0300059* EQU 8 NOT USED T0300060 UNPCHECK EQU 9 +++ ENABLE THE UNPROT INSTR FOLLOWED BY PROT INST0300061 POUTLINE EQU 10 +++ WRITE DATA TO PANEL DEVICE T0300062 PINPLINE EQU 11 +++ READ DATA FROM PANEL DEVICE T0300063 AFCRLINE EQU 12 +++ WRITE DATA TO AUXILARY FUNCTION CONTROL REGIT0300064 ENHXFORM EQU 13 +++ ENABLE 1700 ENHANCED TRANSFORMS T0300065 CONSOLGO EQU 14 +++ ENABLE CONSOLE CONTROL ON A GO RETURN T0300066 MACRORUN EQU 15 +++ ENABLE MACRO-INSTRUCTION RUN T0300067 SPACE 1 T0300068**********NOTE +++ INDICATES USED IN 1700 EMULATION************T0300069**********NOTE STATUS/MODE EQUATES ARE FIVE (5) BITS LONG**T0300070 SPACE 1   3#t T0300071 EJECT T0300072 BOX T0300073* T0300074* S T A T U S / M O D E F L A G S 0-3=SM100-3, 4-7=T0300075* T0300076 EBOX T0300077 ONES EQU 0+ONESCOMP ENABLE ONES (RATHER THAN TWOS) COMPLEMENT ART0300078 BGN EQU 0+NREGTOBG ENABLE N REGISTER (RATHER C-FIELD) TO BIT GET0300079 SADT EQU 4+ADTLINE ENABLE AUTO-DATA TRANSFER MODE (SELECT LINE)T0300080 SSTB EQU 4+STROBE STROBE DATA TO/FROM SELECTED M05 PERIPHERAL T0300081 READ EQU 4+READLINE READ DATA FROM SELECTED A/Q PERIPHERAL T0300082 WRIT EQU 4+WRITLINE WRITE DATA TO SELECTED A/Q PERIPHERAL T0300083 PORT EQU 4+PORTLINE ENABLE SET/SAMPLE MODE (PORT LINE) T0300084 TERM EQU 4+TERMLINE TERMINATE I/O TRANSFER AND GENERATE MACRO INT0300085 SPACE 3 T0300086 BOX T0300087* T0300088* B I T T E S T A S S I G N M E N T S BT 00 - 15 T0300089* T0300090 EBOX T0300091* EQU 0 NOT USED T0300092 COMPOPR EQU 1 +++ BIT 2 OF IXT IS ONE (COMPARE OPERATION) T0300093 DESTMEM EQU 2 +++ BIT 7 OF IXT IS ONE (MEMORY DESTINATION) T0300094 CHAROPR EQU 3 +++ BIT 6 OF IXT IS ONE (CHARACTER OPERATION) T0300095 EFFADRFF EQU 4 +++ EFFECTIVE ADDRESS IS 00FF (MUST AGREE WITH RT0300096 NPROTFLT EQU 5 +++ NO PROTECT FAULT (MUST AGREE WITH PROTFLT SMT0300097 SELSTOP EQU 6 +++ SELECTIVE STOP SWITCH SET T0300098 NSELSKIP EQU 7 +++ SELECTIVE SKIP SWITCH NOT SET T0300099 NMEMPERR EQU 8 +++ NO MEMORY PARITY ERROR (MUST AGREE WITH MEMPT0300100* EQU 9 NOT USED T0300101 DELZERO EQU 10 +++ BITS 08-15 OF IXT (DELTA) ARE ZERO T0300102 EANOTOPR EQU 11 +++ EFFECTIVE ADR. NOT OPERAND (MUST AGREE WITH T0300103 EVENPAR EQU 12 +++ MAIN MEMORY PARITY IS EVEN T0300104 F4.GE.8 EQU 13 +++ BIT 0 OF IXT IS ONE (MUST AGREE WITH ENHXFORT0300105 MULTIND EQU 14 +++ MULTI-LEVEL INDIRECT MODE T0300106 MEMABORT EQU 15 +++ PREVIOUS MEMORY WRITE ABORTED (MUST AGREE WIT0300107 SPACE 3 T0300108**********NOTE +++ INDICATES USED IN 1700 EMULATION************T0300109**********NOTE BIT TEST EQUATES ARE FOUR (4) BITS LONG*****T0300110**********NOTE NEXT UPPER IS EXECUTED IF CONDITION TRUE****T0300111 SPACE 3 T0300112 EJECT T0300113 BOX T0300114* T0300115* F I L E T W O R E G I S T E R S I N D E X E S T0300116* T0300117 EBOX T0300118* NAME NO. PRESET DESCRIPTION `#  3#t T0300119 F2FFFF EQU 0 FFFF CONSTANT FFFF (USED ALSO AS THE NULL REGISTET0300120 F2REG1 EQU 1 0000 REGISTER ONE T0300121 F2REG2 EQU 2 0000 REGISTER TWO T0300122 F2REG3 EQU 3 0000 REGISTER THREE T0300123 F2REG4 EQU 4 0000 REGISTER FOUR T0300124 F2QSAV EQU 5 0000 SAVE OF Q REGISTER T0300125 F2ASAV EQU 6 0000 SAVE OF A REGISTER T0300126 F2IREG EQU 7 (FF) 1700 I REGISTER (ALSO AT LOCATION FFX) T0300127*F2TEMP1 EQU 8 0000 FILE 2 TEMPORARY, SEE BELOW T0300128*F2TEMP2 EQU 9 0000 FILE 2 TEMPORARY, SEE BELOW T0300129 F200FF EQU 10 00FF CONSTANT 00FF (MUST AGREE WITH AQ CHAR STATUT0300130 F2NUM2 EQU 11 0000 MSB OF PANEL INPUT/OUTPUT (MUST AGREE WITH CT0300131 F2NUM1 EQU 12 0000 LSB OF PANEL INPUT/OUTPUT T0300132 F2FCR1 EQU 13 0000 LSB OF SIMULATED FCR (MUST AGREE WITH BG4 = T0300133 F2PFCT EQU 14 0010 CURRENT OR LAST PANEL FUNCTION, SEE PAGE 7 BT0300134 F2FCR2 EQU 15 0000 MSB OF SIMULATED FCR (MUST AGREE WITH 000FX)T0300135 F2NKSAV EQU 16 0000 SAVE OF N,K REGISTERS (MUST AGREE WITH CNK =T0300136*F2TEMP3 EQU 17 0000 FILE 2 TEMPORARY, SEE BELOW T0300137*F2TEMP4 EQU 18 0000 FILE 2 TEMPORARY, SEE BELOW T0300138*F2TEMP5 EQU 19 0000 FILE 2 TEMPORARY, SEE BELOW T0300139*UINT B EQU 20 8000 DMI INFO FOR MICRO-INTERRUPT B T0300140*.... . ... .. .... ... .... ... ............... . T0300141*.... . ... .. .... ... .... ... ............... . T0300142*.... . ... .. .... ... .... ... ............... . T0300143*UINT 0 EQU 31 8000 DMI INFO FOR MICRO INTERRUPT 0 T0300144* DEFINITIONS OF FILE 2 TEMPORARIES T0300145 F2TPMI EQU 8 DMI INFO FOR PSEUDO U-INT. FOR EMS INSTR. (.T0300146 F2TPMS EQU 8 SAVE OF PAGE MODE STATUS FOR ADT INTERRUPT T0300147 F2MSAV EQU 8 SAVE OF M REGISTER FOR SRG/LRG (MUST BE EQUAT0300148 F2PSAV EQU 8 SAVE OF P REGISTER FOR COMMERICAL INSTRUCTIOT0300149 F2TUNP EQU 9 SAVE OF UNPROTECT FLAG FOR U-INT/EMS (MUST=UT0300150 F2TATA EQU 17 AUTO DATA TRANSFER TABLE ADDRESS FOR ADT INTT0300151 F2TABN EQU 18 ADT BLOCK NUMBER IN ADT TABLE FOR ADT MICRO T0300152 BOX T0300153* T0300154* F I L E O N E R E G I S T E R S I N D E X E S T0300155* T0300156 EBOX T0300157* EQU 000 NOT USED T0300158* ... ... ... .... T0300159* ... ... ... .... T0300160* ... ... ... .... T0300161* EQU 255 LAST VALUE OF P REGISTER BEFORE A MASTER CLET0300162 EJECT T0300163 BOX T0300164* T0300165* M A T R A N S F O R M E Q U A T E S T0300166* B  3#t T0300167 EBOX T0300168 INT EQU 0 MICRO/MACRO INTERRUPTS BCX + (S2 11)*2 T0300169 IR2 EQU 1 INTERRREGISTER, TYPE 2 B8X + (IXT*11-12)T0300170 F3A EQU 2 FIELD INSTRUCTION D8X + (IXT*13-15)T0300171 DEST EQU 3 REGISTER DESTINATION 38X + (IXT*13-15)T0300172 COM EQU 4 COMMERCIAL INSTRUCTION E0X + (IXT*11-15)T0300173* EQU 5 NOT USED T0300174 F2 EQU 6 F2 (ADR MODE) FOR ENHANCED A0X + (IXT*8-9)*4T0300175 S2 EQU 7 SELECTOR S2 (LOWER 8 BITS) 00X + (S2 08-15)T0300176 SK EQU 8 SKIP INSTRUCTION C0X + (IXT*08-11)T0300177 SH EQU 9 SHIFT INSTRUCTION B0X + (IXT*08-10)T0300178 DRP EQU 9 DECPREMENT AND REPEAT B0X + (IXT*08-10)T0300179 IR EQU 10 INTERREGISTER INSTRUCTION E0X + (IXT*12-15)T0300180 F3 EQU 10 MISCELANEOUS INSTRUCTION E0X + (IXT*12-15)T0300181 F EQU 11 F (OP CODE) FIELD 80X + (IXT 00-03)T0300182 F4 EQU 11 OP CODE FOR MR2 AND FIELD 80X + (IXT 00-03)T0300183 IM EQU 12 INTERREG. WITH M ORIGIN F0X + (IXT*08-11)T0300184 SKIP2 EQU 12 SKIP 2 INSTRUCTION F0X + (IXT*08-11)T0300185 SCI EQU 12 SCIENTIFIC INSTRUCTION F0X + (IXT*08-11)T0300186 F1 EQU 13 F1 (ADR MODE) FIELD 40X+F=0*32+(IXT4-T0300187 F* EQU 14 ALTERNATE F1 FIELD A0X + A*4 + (IXT T0300188 FM EQU 15 MISCELANEOUS F1 FIELD B8X + B*2 + C T0300189 SPACE 1 T0300190* NOTE, (A) = (F1=00XX) .OR. NOT(MULTI-LEVEL INDIRT0300191* (B) = (PROTECT VIOLATION) T0300192* (C) = (DELTA=NOT ZERO) .OR. (PROTECT VIOLAT0300193* (D=0) = (DELTA=ZERO) T0300194* (E) = NOT((IXT=0500) .OR. (S2 09)) T0300195$ (F=0) = (F FIELD = ZERO) T0300196 SPACE 1 T0300197 BOX T0300198* T0300199* K / N T R A N S F O R M E Q U A T E S T0300200* T0300201 EBOX T0300202 S2LSB EQU 0 SELECTOR S2 (LOWER 8 BITS) 00X + (S2 08-15)T0300203 SHCNT EQU 1 SHIFT COUNT ON A SHIFT 00X + (IXT*11-15)T0300204 FLDLTH EQU 2 FIELD LENGTH 00X + (IXT 04-07)T0300205 RA EQU 3 REGISTER RA 00X + (IXT*10-12)T0300206 RA* EQU 4 ALTERNATE REGISTER RA 00X + (IXT*08-10)T0300207 RB EQU 5 REGISTER RB 00X + (IXT*13-15)T0300208 MIR EQU 6 MIR REGISTER (LOWER 8 BITS)00X + (MIR 24-31)T0300209 FLDSTR EQU 7 NOT OF FIELD START BIT 00X + NOT(IXT 00-T0300210 SPACE 3 T0300211 EJECT T0300212 BOX T0300213* T0300214* 1 7 0 0 E M U L A T O R E Q U A T E S 9  3#t T0300215* T0300216 EBOX T0300217 BG8000X EQU 0 FOR ADDING 8000 VIA THE BIT GENERATOR T0300218 BG4000X EQU 1 FOR ADDING 4000 VIA THE BIT GENERATOR T0300219 BG2000X EQU 2 FOR ADDING 2000 VIA THE BIT GENERATOR T0300220 BG1000X EQU 3 FOR ADDING 1000 VIA THE BIT GENERATOR T0300221 BG800X EQU 4 FOR ADDING 800X VIA THE BIT GENERATOR T0300222 BG400X EQU 5 FOR ADDING 400X VIA THE BIT GENERATOR T0300223 BG200X EQU 6 FOR ADDING 200X VIA THE BIT GENERATOR T0300224 BG100X EQU 7 FOR ADDING 100X VIA THE BIT GENERATOR T0300225 BG80X EQU 8 FOR ADDING 80X VIA THE BIT GENERATOR T0300226 BG40X EQU 9 FOR ADDING 40X VIA THE BIT GENERATOR T0300227 BG20X EQU 10 FOR ADDING 20X VIA THE BIT GENERATOR T0300228 BG10X EQU 11 FOR ADDING 10X VIA THE BIT GENERATOR T0300229 BG8 EQU 12 FOR ADDING 08X VIA THE BIT GENERATOR T0300230 BG4 EQU 13 FOR ADDING FOUR VIA THE BIT GENERATOR T0300231 BG2 EQU 14 FOR ADDING TWO VIA THE BIT GENERATOR T0300232 BG1 EQU 15 FOR ADDING ONE VIA THE BIT GENERATOR T0300233 BG0 EQU 16 FOR ADDING ZERO VIA THE BIT GENERATOR T0300234 SPACE 1 T0300235 BG EQU 20X FOR USING BG EQUATES IN ORG STATEMENTS T0300236 SPACE 1 T0300237 PAGE0 EQU 0 FOR JUMPING TO PAGE 0 USING THE S FIELD T0300238 PAGE1 EQU 1 FOR JUMPING TO PAGE 1 USING THE S FIELD T0300239 PAGE2 EQU 2 FOR JUMPING TO PAGE 2 USING THE S FIELD T0300240 PAGE3 EQU 3 FOR JUMPING TO PAGE 3 USING THE S FIELD T0300241 PAGE4 EQU 4 FOR JUMPING TO PAGE 4 USING THE S FIELD T0300242 PAGE5 EQU 5 FOR JUMPING TO PAGE 5 USING THE S FIELD T0300243 PAGE6 EQU 6 FOR JUMPING TO PAGE 6 USING THE S FIELD T0300244 PAGE7 EQU 7 FOR JUMPING TO PAGE 7 USING THE S FIELD T0300245 PAGE8 EQU 8 FOR JUMPING TO PAGE 8 USING THE S FIELD T0300246 PAGE9 EQU 9 FOR JUMPING TO PAGE 9 USING THE S FIELD T0300247 PAGEA EQU AX FOR JUMPING TO PAGE A USING THE S FIELD T0300248 PAGEB EQU BX FOR JUMPING TO PAGE B USING THE S FIELD T0300249 PAGEC EQU CX FOR JUMPING TO PAGE C USING THE S FIELD T0300250 PAGED EQU DX FOR JUMPING TO PAGE D USING THE S FIELD T0300251 PAGEE EQU EX FOR JUMPING TO PAGE E USING THE S FIELD T0300252 PAGEF EQU FX FOR JUMPING TO PAGE F USING THE S FIELD T0300253 EJECT T0300254 BOX T0300255* T0300256* 1 7 0 0 E Q U A T E S C O N T I N U E D T0300257* T0300258 EBOX T0300259 PG0 EQU PAGE0*100X FOR ADDRESSING INTO FIRST PAGE OF EMULATOR T0300260 PG1 EQU PAGE1*100X FOR ADDRESSING INTO SECOND PAGE OF EMULATOR T0300261 SPG1 EQU PAGE8*100X FOR ADDRESSING INTO FIRST PAGE OF SCIENTIFICT0300262 SPG2 EQU PAGE9*100X FOR ADDRESSING INTO  3#tSECOND PAGE OF SCIENTIFIT0300263 CNK EQU 0 FOR ADDRESSING WHERE BITS 28-29 OF C-FIELD MT0300264 CFK EQU 4 FOR ADDRESSING WHERE BITS 28-29 OF C-FIELD MT0300265 CFN EQU 8 FOR ADDRESSING WHERE BITS 28-29 OF C-FIELD MT0300266 PINPMASK EQU 15-12 FOR MASK REGISTER 1, PANEL INPUT INTERRUPT T0300267 POUTMASK EQU 15-13 FOR MASK REGISTER 1, PANEL OUTPUT INTERRUPT T0300268 BG0SSTOP EQU BG0+SELSTOP FOR MACRO STOP (INSTRUCTION STEP) ROUTINE T0300269 BG0MLIND EQU BG0+MULTIND FOR RTJ, TO ADD ZERO + CHECK IF MULTI-LEVEL T0300270 AUTODPLY EQU BG400X AUTO DISPLAY BIT IN SIMULATED FCR, LEAST SIGT0300271 RRMASK EQU 18X AQ REPLY/REJECT MASK FOR INP AND OUT INSTRUCT0300272 IOWAIT EQU 23 AQ INTERNAL REJECT TIMEOUT (IOWAIT=13USEC/56T0300273 SPACE 3 T0300274* DESCRIPTION OF PANEL FUNCTION WORD IN FILE TWO T0300275 TERMINP EQU BG1 TERMINATOR (COLON OR G) INPUT (MUST AGREE WIT0300276 INPERR EQU BG20X INPUT ERROR (OUTPUT AN ASTERISK) T0300277 SPOUT EQU BG40X SPACE AFTER CONTROL CHAR OUTPUT (MUST AGREE T0300278 CROUT EQU BG80X CARRIAGE RETURN OUTPUT (MUST AGREE WITH BG80T0300279 CCOUT EQU BG100X CONTROL CHARACTER (H,I,J,K,L) OUTPUT (MUST =T0300280 DIGINP EQU BG200X AT LEAST ONE DIGIT INPUT T0300281 CHRINP EQU AUTODPLY AT LEAST ONE DIGIT OR CONTROL CHARACTER INPUT0300282 DSCTR EQU BG800X DIGIT/SPACE COUNTER TO OUTPUT 8 DIGITS AND 8T0300283 D4S4FLG EQU DSCTR-3 DIGIT/SPACE FLAG TO OUTPUT ONLY 4 DIGITS + 4T0300284 BOX T0300285* T0300286* 1 7 0 0 E M U L A T I O N N O T E S T0300287* T0300288 EBOX T0300289* MEM USED FOR MINUS ZERO (FFFF) WHEN NOT ACCESSINT0300290* RPT DCR. N BY ONE, IF GOING FROM UPPER TO SAME T0300291* RPT USED AS RETURN JUMP FROM LOWER TO SAME UPPERT0300292* SUB- USED TO ADD ONE TO P REGISTER, BUT SEE PAGE T0300293 SPACE 3 T0300294 EJECT T0300295 BOX T0300296* T0300297* O R I G I N S F O R M A T R A N S F O R M S T0300298* T0300299 EBOX T0300300 INTMICRO EQU 30X+PG0 ORIGIN OF INTERNAL MICRO-INTERRUPTS T0300301 ADRF1 EQU 40X+PG0 ORIGIN OF ADDRESS MODE INSTRUCTIONS T0300302 REGREF EQU 60X+PG0 ORIGIN OF REGISTER REFERENCE INSTRUCTIONS (FT0300303 MEMREF1 EQU 80X+PG0 ORIGIN OF MEMORY REFERENCE TYPE 1 INSTRUCTIOT0300304 ADRF1A EQU A0X+PG0 ORIGIN OF ADDRESS MODE INSTRUCTIONS (ALTERNAT0300305 REGSHIFT EQU B0X+PG0 ORIGIN OF REGISTER SHIFT INSTRUCTIONS (F=0, T0300306 ADRF1M EQU B8X+PG0 ORIGIN OF ADDRESS MODE INSTRUCTIONS (MISCELLT0300307 INTORG EQU BCX+PG0 ORIGIN OF MICRO/MACRO INTERRUPTS T0300308 REGSKIP1 EQU C0X+PG0 ORIGIN OF REGISTER SKIP 1 INSTRUCTIONS (F=0,T0300309 INTREG1 EQU E0X+PG0 ORIGIN OF INTERREGISTER INSTRUCTIONS (F=0,F1T0300310 IRORGM EQU F0X+PG0 ORIGIN OF IR INSTRS   3#tWITH M AS ORIGIN (F=0,F1T0300311 PAGJMP EQU F0X+PG0 ORIGIN OF PAGE JUMPS VIA S2 TRANSFORM T0300312 SPACE 1 T0300313 KDISPLAY EQU 00X+PG1 ORIGIN OF K DISPLAY REGISTERS T0300314 FCTCHAR EQU 10X+PG1 ORIGIN OF FUNCTION CHARACTERS FOR SIMULATED T0300315 LDISPLAY EQU 20X+PG1 ORIGIN OF L DISPLAY REGISTERS T0300316 DESTREG EQU 38X+PG1 ORIGIN OF MEMORY REFERENCE 2 DESTINATION REGT0300317 MEMREF2 EQU 80X+PG1 ORIGIN OF MEMORY REFERENCE TYPE 2 INSTRUCTIOT0300318 ADRF2 EQU A0X+PG1 ORIGIN OF ADDRESS MODES FOR MEMORY REFERENCET0300319 DECRPT EQU B0X+PG1 ORIGIN OF DECREMENT AND REPEAT INSTRUCTIONS T0300320 MISREF EQU E0X+PG1 ORIGIN OF MISCELANEOUS INSTRUCTIONS T0300321 REGSKIP2 EQU F0X+PG1 ORIGIN OF REGISTER SKIP 2 INSTRUCTIONS T0300322 SPACE 1 T0300323 FLDREF EQU D8X+PG1 ORIGIN OF FIELD INSTRUCTIONS T0300324 INTREG2 EQU B8X+PG1 ORIGIN OF INTERREGISTER 2 INSTRUCTIONS T0300325 AZ EQU 0 A=0, IF (F1=00XX) .OR. NOT(MULTI-LEVEL INDIRT0300326 AN EQU 4 A=4, IF (F1=00XX) .OR. NOT(MULTI-LEVEL INDIRT0300327 BZ EQU 0 B=0, IF (PROTECT VIOLATION) = 0 T0300328 BN EQU 2 B=2, IF (PROTECT VIOLATION) = 1 T0300329 CZ EQU 0 C=0, IF (DELTA=NOTZERO) .OR. (PROTECT VIOLATT0300330 CN EQU 1 C=1, IF (DELTA=NOTZERO) .OR. (PROTECT VIOLATT0300331 DZ EQU 1 D=1, IF (DELTA=ZERO) = 0 T0300332 DN EQU 0 D=0, IF (DELTA=ZERO) = 1 T0300333 EZ EQU 0 E=0, IF NOT((IXT=0500) .OR. (S2 09)) = 0 T0300334 EN EQU 1 E=1, IF NOT((IXT=0500) .OR. (S2 09)) = 1 T0300335 SPACE 1 T0300336 COMINSTR EQU E0X+SPG2 ORIGIN OF COMMERCIAL INSTRUCTIONS T0300337 SCIINSTR EQU F0X+SPG2 ORIGIN OF SCIENTIFIC INSTRUCTIONS T0300338 SPACE 3 T0300339 EJECT T0300340 BOX T0300341* COMMERCIAL INSTRUCTIONS EQUATES T0300342 EBOX T0300343 CPG1 EQU PAGE8*100X FOR ADDRESSING INTO FIRST PAGE OF COMMERCIALT0300344 CPG2 EQU PAGE9*100X FOR ADDRESSING INTO SECOND PAGE OF COMMERCIAT0300345 CPAG2 EQU CPG2/100X SECOND PAGE OF COMMERCIAL C/W T0300346 SSKTRTBL EQU DAX+CPG2 STRING SKIPS TRANSFORM TABLE LOCATION T0300347 CISCKSUM EQU EAX+CPG2 COMMERCIAL INSTRUCTION SET CHECKSUM LOCATIONT0300348 BOX T0300349* EMULATOR EQUATES T0300350 EBOX T0300351 RNI EQU 058X EMULATOR READ NEXT INSTRUCTION ENTRY POINT T0300352 CMPEQ EQU 19DX EMULATOR COMPARE EQUAL ENTRY POINT T0300353 CMPNE EQU 1A7X EMULATOR COMPARE NOT EQUAL ENTRY POINT T0300354 SPACE 2 T0300355 BOX T0300356* PROGRAM START AND END (FOR PROGRAM LOADING PURPOSES ONLY) T0300357 EBOX T0300358 FRSTINST EQU CPG1+00X FIRST MICRO INSTRUCTt  3#uION OF COMMERCIAL PACKAGT0300359 LASTINST EQU CPG2+FFX LAST MICRO INSTRUCTION OF COMMERCIAL PACKAGT0300360 ORG CPG1-2 T0300361+ FRSTINST JU NO EXECUTE, PROGRT0300362- LASTINST JL NO EXECUTE, PROGRT0300363 HEX 18722 PRODUCT NUMBER T0300364* USED IN SYSDAT. T0300365 BOX T0300366* PROGRAM CHECKSUM T0300367 EBOX T0300368 ORG CISCKSUM T0300369-CISCKSM HEX 0 TWOS COMPLEMENT CHECKSUM OF CIS PROGRAM T0300370 EJECT T0300371 BOX T0300372 FILE 2 EQUATES T0300373 EBOX T0300374* EQUATES FOR MOVES AND COMPARES T0300375 F2STL1 EQU 6 SAVE OF LENGTH OF STRING 1 T0300376 F2STL2 EQU 17 SAVE OF LENGTH OF STRING 2 (MUST BE EQUAL TOT0300377 F2SWPF EQU 18 STRING SWAP FLAG, POSITIVE IMPLIES SWAP T0300378 SPACE 1 T0300379* EQUATES FOR DECIMAL ADD/SUBTRACT T0300380 F2A.SG EQU 5 SIGN OF ADD/SUBTRACT ANSWER T0300381 SPACE 1 T0300382* EQUATES FOR DECIMAL MULTIPLY T0300383 F2M.C EQU 4 CARRY FROM LAST OR CURRENT SINGLE MULTIPLY T0300384 F2M.I EQU 5 I IDX TO CURRENT MULTIPLICAND (I,I1,J MUST BT0300385 F2M.I1 EQU 6 I1 INDEX TO LEAST DIGNIFICANT NON-ZERO DIGITT0300386 F2M.J EQU 7 J INDEX TO CURRENT MULTIPLIER (MUST BE EQUALT0300387 F2M.2M EQU 9 MSB OF 2 * CURRENT MULTIPLICAND (USED BY DIVT0300388 F2M.MP EQU 17 CURRENT MULTIPLIER T0300389 SPACE 1 T0300390* EQUATES FOR DECIMAL DIVIDE T0300391 F2D.R EQU 4 REMAINDER, AND MSB(QUOT*V2) - REM T0300392 F2D.C EQU 4 CARRY DIGITS (MUST EQUAL CFK) T0300393 F2D.K EQU 5 K INDEX TO NEXT QUOT DIGITS, K1-9, (MUST EQUT0300394 F2D.MK EQU 5 M INDEX TO DIVIDEND FOR MUL/SUB LOOP *256 (9T0300395 F2D.V2 EQU 6 MS-1 FOUR DIGITS OF NORM. DIVISOR (MUST EQU T0300396 F2D.Q EQU 7 CURRENT FOUR DIGIT QUOTIENT (MUST EQUAL F2IRT0300397 F2D.TQ EQU 9 TRIAL QUOTIENT (MUST EQUAL CFN) T0300398 F2D.S EQU 9 TEMP FOR LSB(QUOT*V2) - U2 (3RD DIGIT OF DIVT0300399 F2D.IX EQU 17 I2 INDEX (NO. OF *2 NORM.) *256 + I1 (NO. *1T0300400 F2D.V1 EQU 18 MS FOUR DIGITS OF NORMALIZED DIVISOR T0300401 SPACE 1 T0300402* EQUATES FOR LOAD/STORE AND PACK/UNPACK T0300403 F2TARX EQU 5 TARGET FIELD INDEX (MUST BE EQUAL TO CFK) T0300404 F2PUTX EQU 6 PUTIX (0..3) T0300405 F2TTMP EQU 9 TEMP FOR INTERMEDIATE TARGET FIELD VALUES T0300406 F2SNZ EQU 17 TEMP FOR SIGN AND NOY  3#u&NZERO FLAG BIT (MUST EQUT0300407 EJECT T0300408 SPACE 15 T0300409 BOX T0300410* T0300411* T0300412* T0300413* T0300414* C O M M E R C I A L I N S T R U C T I O N S E T T0300415* T0300416* T0300417* T R A N S F O R M T A B L E T0300418* T0300419* T0300420* T0300421* T0300422 EBOX T0300423 SPACE 15 T0300424 EJECT T0300425 BOX T0300426 T0300427 TRANSFORM TABLE T0300428 T0300429 EBOX T0300430 CMP1 T0300431 ORG COMINSTR T0300432 SPACE 1 T0300433+ A X P RNI JL NOP = 0F00 T0300434 SPACE 1 T0300435+ MOV J MOV = 0F01 T0300436 SPACE 1 T0300437+ CMP J SEQ = 0F02 T0300438 SPACE 1 T0300439+ CMP J SNE = 0F03 T0300440 SPACE 1 T0300441+ CMP J SLE = 0F04 T0300442 SPACE 1 T0300443+ CMP J SLT = 0F05 T0300444 SPACE 1 T0300445+ CMP J SGE = 0F06 T0300446 SPACE 1 T0300447+ CMP J SGT = 0F07 T0300448 SPACE 1 T0300449+ ONE Q D.DADDSB J DAD = 0F08 T0300450 SPACE 1 T0300451+ ZERO Q D.DADDSB J DSB = 0F09 T0300452 SPACE 1 T0300453+ ONE X F2WR N=F2REG3 L DML = 0F0A T0300454 SPACE 1 {  3#u: T0300455+ ZERO X F2WR N=F2REG3 DDV = 0F0B T0300456- D.MULDIV J T0300457 SPACE 1 T0300458+ DLD J DLD = 0F0C T0300459 SPACE 1 T0300460+ DST J DST = 0F0D T0300461 SPACE 1 T0300462+ DPK J DPK = 0F0E T0300463 SPACE 1 T0300464+ DUN J DUN = 0F0F T0300465 EJECT T0300466 SPACE 1 T0300467+ SUB- P MEM P RNI JL NOP = 0F10 T0300468- NOPEXT J NOP = 0800 T0300469 SPACE 1 T0300470+ DOV J DOV = 0F11 T0300471- NOPEXT J NOP = 0810 T0300472 SPACE 1 T0300473+ DCP J DEQ = 0F12 T0300474- NOPEXT J NOP = 0820 T0300475 SPACE 1 T0300476+ DCP J DNE = 0F13 T0300477- NOPEXT J NOP = 0830 T0300478 SPACE 1 T0300479+ DCP J DLE = 0F14 T0300480- NOPEXT J NOP = 0840 T0300481 SPACE 1 T0300482+ DCP J DLT = 0F15 T0300483- NOPEXT J NOP = 0850 T0300484 SPACE 1 T0300485+ DCP J DGE = 0F16 T0300486- NOPEXT J NOP = 0860 T0300487 SPACE 1 T0300488+ DCP J DGT = 0F17 T0300489- NOPEXT J NOP = 0870 T0300490 SPACE 1 T0300491+ SUB- P MEM P RNI JL NOP = 0F18 T0300492- NOPEXT J NOP = 0880 T0300493 SPACE 1 T0300494+ SUB- P MEM P RNI JL NOP = 0F19 T0300495- NOPEXT J NOP = 0890 T0300496 SPACE 1 T0300497+ SUB- P MEM P RNI JL NOP = 0F1A T0300498- NOPEXT J NOP = 08A0 T0300499 SPACE 1 T0300500+ SUB- P MEM P RNI JL NOP = 0F1B T0300501- NOPEXT J NOP = 08B0 T0300502 SPACE 1 `  3#uN T0300503+ SUB- P MEM P RNI JL NOP = 0F1C T0300504- NOPEXT J NOP = 08C0 T0300505 SPACE 1 T0300506+ SUB- P MEM P RNI JL NOP = 0F1D T0300507- NOPEXT J NOP = 08D0 T0300508 SPACE 1 T0300509+ SUB- P MEM P RNI JL NOP = 0F1E T0300510- NOPEXT J NOP = 08E0 T0300511 SPACE 1 T0300512+ SUB- P MEM P RNI JL NOP = 0F1F T0300513- NOPEXT J NOP = 08F0 T0300514 SPACE 2 T0300515 ORG EEX+CPG2 T0300516-NOPEXT A.-B SM1 BG SM1 11 L T0300517- A X P RNI JL T0300518 EJECT T0300519 SPACE 15 T0300520 BOX T0300521* T0300522* T0300523* T0300524* T0300525* M O V E I N S T R U C T I O N T0300526* T0300527* T0300528* T0300529* T0300530 EBOX T0300531 SPACE 15 T0300532 EJECT T0300533 BOX T0300534* T0300535* M O V E I N S T R U C T I O N 0F01 T0300536* T0300537 EBOX T0300538 ORG 00X+CPG1 T0300539 CMP2 T0300540+MOV B Q X F2WR CLRF/ONES EXECUTE MOVE INSTT0300541- RTJ I.MOVCMP J DO INITIAL MOVE/CT0300542+ B X Q X GATEI MOV.CHK JNU CK IF WORD MOVE OT0300543 SPACE 2 T0300544* STRING 1 LENGTH OR STRING 2 LENGTH IS ZERO T0300545- A.-B X BG F GATEI K=0 ZL CHECK IF STRING 2T0300546+ A I N=20X NU CK IF STRING2 ON T0300547- MOV.EXIT J STRING 2 IS ZERO,T0300548 SPACE 1 T0300549+ B N,K L8EA WRCH/1 U BYTE, STORE 1STT0300550- MOV.SPC  3#ub J CHECK IF STRING 2T0300551+ ADD F MEM F BYTE, DCR STR2 T0300552 SUB P MEM P MOV.SPC J CHECK IF STRING 2T0300553 SPACE 2 T0300554+MOV.OSET A A I MOV.WRDO J MOVE BLOCK OF WRDT0300555* RETURN IS TO MOV.WRTN J T0300556 SPACE 1 T0300557- A I NU STORE 1ST BYTE THT0300558+ A.-B A X Q L8EA MOV.BYTE J BYTE IS IN MSB T0300559- A.B A X Q MOV.BYTE J BYTE IS IN LSB T0300560* RETURN IS TO MOV.WRTN J T0300561 SPACE 3 T0300562+MOV.CHK -A X X RTJ MOV.WRDS J NO, DO BLOCK WORDT0300563- EOR P F RTJ MOV.OSET JZL YES, CK IF OVERLAT0300564 SPACE 3 T0300565+MOV.WRTN N=F2STL1 GET STRING LENGTHT0300566 A F2 A N=F2STL2 FILE 2. A=STR1T0300567 A F2 F K=0 T0300568 SPACE 1 T0300569 MOV.SPC B K X RTJ MOVE PROPER AMT OT0300570+ B A Q A GATEI F.MOVCMP J DO FINAL SPACE MOT0300571- B Q Q L8EA MOV.BYTE J MOVE BLOCK OF SPAT0300572 SPACE 1 T0300573 CMP1 T0300574+MOV.EXIT SETF/ONES MOVE EXIT T0300575 N=F2PSAV RESTORE P REGISTET0300576 SUB- F2 MEM P RNI JL ALL DONE, P=P+1, T0300577 EJECT T0300578 SPACE 15 T0300579 BOX T0300580* T0300581* T0300582* T0300583* T0300584* S T R I N G S K I P O R C O M P A R E T0300585* T0300586* T0300587* I N S T R U C T I O N S T0300588* T0300589* T0300590* T0300591* T0300592 EBOX T0300593 SPACE 15 T0300594 EJECT T0300595 BOX T0300596* T0300597* S T R I N G S K I P ( C O M P A R E ) I N S T R U C T I T0300598* U  3#uv T0300599 EBOX T0300600 CMP2 T0300601+CMP B Q X F2WR CLRF/ONES EXECUTE COMPARE IT0300602 A.-B A BG F BG8000X GET STRING1 LENGTT0300603 A.-B X BG Q BG8000X GET STRING2 LENGTT0300604 SUB- F Q Q N=F2REG1 NU CHECK IF STRING 2T0300605+ A A P CMP.INIT J YES, DO INITIAT0300606 SPACE 1 T0300607- B F2 X P GATEI N=F2REG2 NO, REVERSE STRINT0300608 B F2 F N=F2REG1 SWAP A AND Q (QT0300609 A I F F2WR N=F2REG2 SWAP REG 1 AND RET0300610 A A X F2WR NOW STRING 2 IS LT0300611 SPACE 1 T0300612 CMP.INIT B Q F N=F2SWPF SAVE SWAP FLAG INT0300613 A P A F2WR A=STR1 LTH, X=STRT0300614 SPACE 1 T0300615 RTJ I.MOVCMP J DO INITIAL MOVE/CT0300616+ B X Q X GATEI CMP.CHK JNU CK IF WORD MOVE OT0300617 SPACE 2 T0300618* STRING 1 LENGTH IS ZERO T0300619- A.-B X BG F GATEI BG8000X ZL STR1=0, CK IF STRT0300620+ A I K=FFX NU NO, CHK IF STR2T0300621- ZERO X CMP.EXIT J YES, STRING EQUT0300622 SPACE 1 T0300623+ READ U STR2 OFFSET, CK 1T0300624- CMP.SPC J COMPARE STR2 WITHT0300625+ A.B MEM K X GET FIRST BYTE OFT0300626 B BG Q BG20X Q = SPACE T0300627 ADD F MEM F DCR STRING 2 LENGT0300628 EOR X Q ZL CHECK IF BYTE NOTT0300629+ CMP.EXIT J 1ST BYTE NOT SPACT0300630- SUB P MEM P CMP.SPC J COMPARE STR2 WITHT0300631 SPACE 2 T0300632+CMP.CHK -A X X RTJ CMP.WRDS J NO, DO BLOCK WORDT0300633- A A I RTJ CMP.WRDO J COMPARE WORD BLOCT0300634 EJECT T0300635 BOX T0300636* STRING SKIP (COMPARE) INSTRUCTIONS (CONTINUED) T0300637 EBOX T0300638+CMP.WRTN N=F2STL1 GET STRING LENGTHT0300639 A F2 A N=F2STL2 FILE 2. A=STR1T0300640 A F2 F K=FFX T0300641 SPACE 1 T0300642 CMP.SPC B K X RTJ COMPARE REST WITHT0300643+ B A Q A GATEI F.MOVCMP J DO FINAL SPACE MOT0300644- A.B X Q Q CMP.BYTE J COMPARE BLOCK OF T0300645 SPACE 1 T0300646+CMP.EXIT A X F N=F2SWPF  3#u CHECK IF SWAP FLAT0300647 A F2 N=F2PSAV NU YES, SWAP LAST T0300648 CMP1 T0300649+ B Q X SETF/ONES U NO, X=LAST BYTET0300650- B Q F SETF/ONES F=LAST BYTET0300651+CMP.INST A F2 P CPAG2 TMA/2 U TRANSFORM TO STRIT0300652 SPACE 2 T0300653 ORG SSKTRTBL T0300654+SEQINSTR EOR X F CMPEQ JZL SKIP IF EQUAL T0300655 SPACE 1 T0300656+SNEINSTR EOR F X CMPNE JZL SKIP IF NOT EQUALT0300657 SPACE 1 T0300658+SLEINSTR SUB F X CMPEQ JNU SKIP IF LESS OR ET0300659 SPACE 1 T0300660+SLTINSTR SUB X F CMPNE JNU SKIP IF LESS THANT0300661 SPACE 1 T0300662+SGEINSTR SUB X F CMPEQ JNU SKIP IF GREATER OT0300663 SPACE 1 T0300664+SGTINSTR SUB F X CMPNE JNU SKIP IF GREATER TT0300665 SPACE 1 T0300666 ORG CMP.INST+1 T0300667 EJECT T0300668 SPACE 15 T0300669 BOX T0300670* T0300671* T0300672* T0300673* T0300674* M O V E / C O M P A R E S T R I N G T0300675* T0300676* T0300677* S U B R O U T I N E S T0300678* T0300679* T0300680* T0300681* T0300682 EBOX T0300683 SPACE 15 T0300684 EJECT T0300685 BOX T0300686* T0300687* INITIAL MOVE/COMPARE OPERATION T0300688* T0300689 EBOX T0300690 CMP2 T0300691+I.MOVCMP N=F2REG2 X = STRING 2 LENGT0300692 A.-B X BG Q BG8000X ZL CHECK IF STRING2 T0300693+ A.-B A BG A GATEI BG8000X ZL CHECK IF STRING1 T0300694-   3#u RL STRING 2 = 0 T0300695 SPACE 1 T0300696+ A F2 F N=F2REG1 U F = ADDRESS OF STT0300697- A F2 P RL STR1=0, SET AB, UT0300698 SPACE 1 T0300699+ A F2 P TN/5 P = ADDRESS OF STT0300700 EOR I X DECN NU CK START BOUNDARIT0300701+ A F P READ IMC.10 J NO, BOUNDARIES T0300702 SPACE 3 T0300703* BOUNDARIES ARE ALLIGNED T0300704- B F X GATEI K=0 NU CK IF START ON BYT0300705+ A I P READ L BYTE, READ FIRST0300706 SPACE 1 T0300707- ADD P MEM F N=F2REG1 WORD, BACKUP STT0300708+ ADD I MEM P F2WR IMC.40 J T0300709 SPACE 1 T0300710- A MEM F L8EA MOVE/CMP 1ST BYTET0300711+ B F X GATEI IMC.20 JNU FROM BOTH STRING T0300712 EJECT T0300713 BOX T0300714* INITIAL MOVE/COMPARE OPERATION (CONTINUED) T0300715 EBOX T0300716 IMC.10 B MEM X GATEI K=FFX NU CK IF STR2 ON BYTT0300717+IMC.20 A P P N=FFX NZU CHECK IF MOVE/COMT0300718- ADD P MEM P IMC.40 J WORD, BACKUP STT0300719 SPACE 2 T0300720+ A I L8EA WRCH/1 L MOVE, STORE FIRSTT0300721- READ IMC.50 J COMPARE, CK FIRSTT0300722 SPACE 1 T0300723+IMC.30 A F X CMP.EXIT J BYTES NOT EQUAL, T0300724 SPACE 1 T0300725- ADD A MEM A REDUCE BOTH STRINT0300726 ADD X MEM X RTN TO DO BLOCK MT0300727 SPACE 1 T0300728 IMC.40 A.-B X BG F BG8000X A,F=STR1/2 LTH, PT0300729 A.-B F BG Q BG1 STR2, GET MIN WT0300730 SUB A F NU COMPUTE MINIMUM LT0300731+ A.-B A BG Q BG1 STR1, GET MIN WT0300732 SPACE 1 T0300733- SUB F Q F N=F2STL2 DECREMENT BOTH STT0300734 SUB A Q F F2WR N=F2STL1 THIS MINIMUM WORDT0300735 B Q F F2WR RROE KZU SAVE RESULTS IN FT0300736+ ADD MEM BG Q L8EA BG100X U Q=FF00 FOR NO OFFT0300737- B K Q Q=00FF FOR OFFSETT0300738+ A I F A TK/S2LSB SET N,K TO MIN WOT0300739 B F F L8EA N=F2REG1 T0300740 A F2 F F TN/S2LSB RU F = ADR OF STRIT0300741 SPACE 3 T0300742 IMC.50 A.-B MEM N F   3#u GET FIRST BYTE OFT0300743 A.B I N Q L8EA GET FIRST BYTE OFT0300744 EOR F Q IMC.30 JZL CHECK IF EQUAL T0300745 EJECT T0300746 BOX T0300747* T0300748* FINAL MOVE/COMPARE OPERATION T0300749* T0300750 EBOX T0300751-F.MOVCMP A F X Q TK/S2LSB ZL CHECK IF STRING2 T0300752+ A I N=1 ZL CHECK IF STRING 1T0300753- ONE X FMC.10 JKZU STRING 2 ZERO, T0300754 SPACE 1 T0300755+ B A BG Q GATEI BG2000X U CHAR IN LS BYTE T0300756- B BG A RPT BG20X U STRING1 LENGTH IST0300757+ A+B A Q A L8EA A = A*100X + SPACT0300758 EOR F BG BG1 ZL CHECK IF STRING 2T0300759+ A P P FMC.20 JKZU NO, CHECK IF MOT0300760 SPACE 1 T0300761- A P P KZU YES, CHECK IF MT0300762+ A A WRCH/0 U STORE LAST BYTE T0300763- A.B I X Q READ L COMPARE LAST BYTET0300764+FMC.10 MOV.EXIT J T0300765- A.-B MEM X X L8EA CMP.EXIT J T0300766 SPACE 3 T0300767+FMC.20 A A WRITE L STORE BYTE*100X +T0300768- A A Q READ FMC.40 J COMPARE TWO BYTEST0300769+FMC.30 EOR I Q A CMP.W20 J BYTES NOT EQUAL, T0300770 SPACE 2 T0300771- SUB F BG F BG2 DECREMENT STR2 LTT0300772 A F F GATEI RROE COMPUTE NO OF WRDT0300773 A X F A TK/S2LSB SET N, K TO THAT T0300774 B F X L8EA N=F2STL2 T0300775 A.B I BG F BG1 DCR STRING2 LENGTT0300776 A A X X F2WR TN/S2LSB RL NBR OF SPACES TO T0300777 SPACE 3 T0300778 FMC.40 EOR MEM Q GATEI FMC.30 JZL CHECK IF 2BYTES AT0300779 EJECT T0300780 BOX T0300781* T0300782* MOVE BLOCK OF WORDS TO ANOTHER WORD BLOCK T0300783* T0300784* T0300785* ENTRY T0300786* F = START ADDRESS - 1 OF BLOCK 1 T0300787* P = START ADDRESS - 1 OF BLOCK 2 T0300788* NK= BLOCK LENGTH (CAN BE ZERO) T0300789* X = FF T0300790* N  3#u T0300791* EXIT T0300792* F = END ADDRESS + 1 OF BLOCK 1 T0300793* P = END ADDRESS + 1 OF BLOCK 2 T0300794* Q = NEXT SEQUENTIAL BYTE AFTER BLOCK 1 T0300795* NK= FFFF T0300796* X, A, I ARE SAVED T0300797* T0300798 EBOX T0300799+ SUB F MEM F MOV.INTC J INTERRUPT,SAVE ANT0300800 SPACE 2 T0300801-MOV.WRDS SUB F MEM F DECK KZU INC ADR1, DCR LS8T0300802+ SUB P MEM P READ DECN NZU INC ADR2, READ, CT0300803- SUB P MEM P READ L INC ADR2, READ DAT0300804+ A.-B MEM X Q L8EA RU ALL DONE, SAVE NET0300805 SPACE 2 T0300806- A MEM Q INPUT DATA T0300807 B Q WRITE MOV.WRDS JINTU WRITE DATA, CK INT0300808 EJECT T0300809 BOX T0300810* T0300811* MOVE OFFSET BLOCK OF WORDS TO A NON-OFFSET WORD BLOCK T0300812* T0300813* T0300814* ENTRY T0300815* F = START ADDRESS OF OFFSET BLOCK 1 (STARTS AT LS BYTE OT0300816* P = START ADDRESS - 1 OF BLOCK 2 T0300817* NK= BLOCK LENGTH (CAN BE ZERO) T0300818* I = FIRST BYTE OF BLOCK 1 IN LS BYTE OF I T0300819* X = FF T0300820* T0300821* EXIT T0300822* F = END ADDRESS + 1 OF BLOCK 1 T0300823* P = END ADDRESS + 1 OF BLOCK 2 T0300824* Q = NEXT SEQUENTIAL BYTE AFTER BLOCK 1 T0300825* NK= FFFF T0300826* X SAVED T0300827* A AND I NOT SAVED T0300828* T0300829 EBOX T0300830-MOV.WO10 A+B A Q L8EA WRHW0 INTU WRITE DATA, CK INT0300831+MOV.WO20 B BG A MOV.INTR J INTERRUPT,SET X T0300832 SPACE 2 T0300833-MOV.WRDO SUB F MEM F DECK KZU INC ADR1, DCR LS8T0300834+ A.B I X Q READ DECN NZU GET NEXT MSBYTE, T0300835- A.B I X Q READ L GET NEXT MSBYTE T0300836+ ADD P BG P BG1 RU ALL DONE, INC ADRT0300837 SPACE 2 T0300838- A.-B MEM X A GATEI V  3#u GET NXT LSBYTE, ST0300839 SUB P MEM P MOV.WO10 J INC ADR2, CK INTET0300840 EJECT T0300841 BOX T0300842* T0300843* MOVE ONE BYTE THROUGHOUT A BLOCK OF WORDS T0300844* T0300845* T0300846* ENTRY T0300847* P = START ADDRESS - 1 OF BLOCK 2 T0300848* NK= BLOCK LENGTH (CAN BE ZERO) T0300849* Q = BYTE TO BE MOVED IN LSB OF Q T0300850* X = FF T0300851* T0300852* EXIT T0300853* P = END ADDRESS + 1 OF BLOCK 2 T0300854* NK= FFFF T0300855* A = 0 T0300856* Q, X, F, I ARE SAVED T0300857* T0300858 EBOX T0300859-MOV.BYTE B Q A L8EA L A+Q = TWO SAME BYT0300860 SPACE 2 T0300861+ A P F MOV.WO20 J INTERRUPT,SAVE ANT0300862 SPACE 2 T0300863-MOV.B10 SUB P MEM P DECK KZU INC ADR2, DCR LS8T0300864+ RPT NZU DCR MS8B OF CTR, T0300865- A+B A Q WRITE MOV.B10 JINTU WRT 2BYTES, CK INT0300866+ ZERO A RU ALL DONE, EXIT T0300867 EJECT T0300868 BOX T0300869* T0300870* COMPARE BLOCK OF WORDS TO ANOTHER WORD BLOCK T0300871* T0300872* T0300873* ENTRY T0300874* F = START ADDRESS - 1 OF BLOCK 1 T0300875* P = START ADDRESS - 1 OF BLOCK 2 T0300876* NK= BLOCK LENGTH (CAN BE ZERO) T0300877* X = FF T0300878* T0300879* EXIT (FOR STRINGS EQUAL) T0300880* F = END ADDRESS + 1 OF BLOCK 1 T0300881* P = END ADDRESS + 1 OF BLOCK 2 T0300882* Q = NEXT SEQUENTIAL BYTE AFTER BLOCK 1 T0300883* NK= FFFF T0300884* I NOT SAVED T0300885* X AND A ARE SAVED T0300886* E!  3#u T0300887* EXIT (FOR STRINGS NOT EQUAL) T0300888* Q = STRING 1 BYTE T0300889* X = STRING 2 BYTE T0300890* F, P, A, I, AND NK ARE NOT SAVED T0300891* T0300892 EBOX T0300893 CMP.WRDS SUB F MEM F L INCREMENT ADDRESST0300894 SPACE 1 T0300895+ EOR I Q A CMP.W20 J WORD NOT EQUAL, CT0300896-CMP.W10 SUB P MEM P READ DECK KZU INC ADR, READ, DCT0300897+ A MEM Q DECN NZU GET 2 STR1 BYTES,T0300898- A MEM Q L GET 2 STR1 BYTES T0300899+ -A.B X Q Q L8EA RU ALL DONE, SAVE NET0300900 SPACE 2 T0300901- SUB F MEM F READ INC ADR1, READ OPT0300902 MEM GATEI INTU SAVE DATA, CK INTT0300903+ EOR I Q A ZL INTERRUPT, PROCEST0300904- EOR I Q CMP.W10 JZL CK IF 2 SETS BYTET0300905 SPACE 2 T0300906+CMP.W20 A.-B A X CMP.NEQU JZL CK IF UPPER BYTEST0300907-MOV.INTC ZERO A MOV.INTR J PROCESS INTERRUPTT0300908 EJECT T0300909 BOX T0300910* T0300911* COMPARE OFFSET BLOCK OF WORDS TO A NON-OFFSET WORD BLOCK T0300912* T0300913* T0300914* ENTRY T0300915* F = START ADDRESS OF OFFSET BLOCK 1 (STARTS AT LS BYTE OT0300916* P = START ADDRESS - 1 OF BLOCK 2 T0300917* NK= BLOCK LENGTH (CAN BE ZERO) T0300918* A = FIRST BYTE OF BLOCK 1 IN LS BYTE OF A T0300919* X = FF T0300920* T0300921* EXIT (FOR STRINGS EQUAL) T0300922* F = END ADDRESS + 1 OF BLOCK 1 T0300923* P = END ADDRESS + 1 OF BLOCK 2 T0300924* Q = NEXT SEQUENTIAL BYTE AFTER BLOCK 1 T0300925* NK= FFFF T0300926* X SAVED T0300927* A AND I NOT SAVED T0300928* T0300929* EXIT (FOR STRINGS NOT EQUAL) T0300930* Q = STRING 1 BYTE T0300931* X = STRING 2 BYTE T0300932* F, P, A, I, AND NK ARE NOT SAVED T0300933* T0300934 EBOX w  3#v T0300935+ EOR I Q A CMP.WO10 J WORD NOT EQUAL, CT0300936-CMP.WRDO SUB F MEM F DECK KZU INC ADR1, DCR LS8T0300937+ A.B A X Q READ DECN NZU GET NEXT MSBYTE, T0300938- A.B A X Q READ L GET NEXT MSBYTE T0300939+ ADD P BG P BG1 RU ALL DONE, INC ADRT0300940 SPACE 2 T0300941- A.-B MEM X A GATEI Q=NEXT LS BYTE T0300942 A+B A Q Q L8EA FORM WORD FROM TWT0300943 SUB P MEM P INCREMENT ADDRESST0300944 SPACE 1 T0300945 A I A READ READ TWO BYTES T0300946 A MEM I INTU SAVE DATA, CK INTT0300947+ EOR I Q A ZL INTERRUPT, PROCEST0300948- EOR I Q CMP.WRDO JZL CK IF 2 SETS BYTET0300949 SPACE 2 T0300950+CMP.WO10 A.-B A X CMP.NEQU JZL CK IF UPPER BYTEST0300951- B BG A MOV.INTR J INTERRUPT, SET X T0300952 EJECT T0300953 BOX T0300954* T0300955* COMPARE ONE BYTE TO A BLOCK OF WORDS T0300956* T0300957* T0300958* ENTRY T0300959* P = START ADDRESS - 1 OF BLOCK 2 T0300960* NK= BLOCK LENGTH (CAN BE ZERO) T0300961* Q = BYTE TO BE MOVED IN LSB OF Q T0300962* X = FF T0300963* T0300964* EXIT (FOR STRINGS EQUAL) T0300965* P = END ADDRESS + 1 OF BLOCK 2 T0300966* NK= FFFF T0300967* A = 0 T0300968* Q AND X ARE SAVED T0300969* F AND I ARE NOT SAVED T0300970* T0300971* EXIT (FOR STRINGS NOT EQUAL) T0300972* Q = STRING 1 BYTE T0300973* X = STRING 2 BYTE T0300974* F, P, A, I, AND NK ARE NOT SAVED T0300975* T0300976 EBOX T0300977+CMP.BYTE B Q A L8EA A+Q = TWO SAME BYT0300978 A+B A Q Q L T0300979 SPACE 1 T0300980+ A.-B A X CMP.NEQU JZL WORD NOT EQUAL, CT0300981-CMP.B10 SUB P MEM P DECK KZU INC ADR2, DCR LS8T0300982+ ZERO A READ DECN 8  3#v NZU READ, DCR MS8B, CT0300983- READ CMP.B20 J READ IN DATA T0300984+ A.B X Q Q RU ALL DONE, EXIT T0300985 SPACE 2 T0300986- EOR MEM Q GATEI CMP.B10 JZL CK IF 2 SETS BYTET0300987 SPACE 2 T0300988 CMP.B20 A MEM I INTU SAVE DATA, CK INTT0300989+ EOR I Q A ZL INTERRUPT, PROCEST0300990- EOR I Q A CMP.B10 JZL CK IF 2 SETS BYTET0300991 SPACE 2 T0300992+ A.-B A X CMP.NEQU JZL CK IF UPPER BYTEST0300993- ZERO A CMP.BINT J INTERRUPT,SAVE ANT0300994 EJECT T0300995 BOX T0300996* T0300997* STRINGS DID NOT COMPARE (NOT EQUAL), EXIT T0300998* T0300999 EBOX T0301000+CMP.NEQU -A.B X Q Q L8EA L NO, SAVE UPPER T0301001- A.B X Q Q YES, SAVE LOWERT0301002+ A.B I X X CMP.EXIT J T0301003-CMP.NE10 A.-B I X X L8EA CMP.EXIT J T0301004 SPACE 5 T0301005 BOX T0301006* T0301007* INTERRUPT DURING MOVE/COMPARE INSTRUCTION T0301008* T0301009 EBOX T0301010 ORG ECX+CPG2 T0301011-CMP.BINT B N,K X N=F2STL2 L INTERRUPT ON BYTET0301012- ADD X X X MOV.I10 J X=NBR BYTES NOT MT0301013 SPACE 2 T0301014 ORG E0X+BG8000X+CPG2 T0301015-MOV.INTR B N,K X L X=NBR WORDS NOT MT0301016- ADD X X X L X=NBR OF BYTES T0301017- A+B A X A N=F2STL1 L IOR IN OFFSET, IFT0301018- ADD A F2 A N=F2STL2 L ADJUST STRING LTHT0301019 SPACE 1 T0301020-MOV.I10 ADD F2 X Q N=F2REG1 L ADJUST STRING LTHT0301021- SUB P MEM F F2WR N=F2REG2 L SAVE STRING 1/2 AT0301022 SPACE 1 T0301023 CMP1 T0301024-D.INTXIT F2WR SETF/ONES L SET ONES COMPLEMET0301025- A.-B SM1 BG SM1 DECARITH L RESET DECIMAL ARIT0301026- N=F2PSAV L RESET P REGISTER T0301027- A F2 P RNI JL PROCESS INTERRUPTT0301028 SPACE 1 T0301029 ORG CMP.NE10+1 T0301030 EJECT  3#v* T0301031 SPACE 15 T0301032 BOX T0301033* T0301034* T0301035* T0301036* T0301037* D E C I M A L A D D O R S U B T R A C T T0301038* T0301039* T0301040* I N S T R U C T I O N S T0301041* T0301042* T0301043* T0301044* T0301045 EBOX T0301046 SPACE 15 T0301047 EJECT T0301048 BOX T0301049* T0301050* D E C I M A L A D D / S U B T R A C T 0F08-0F09 T0301051* T0301052 EBOX T0301053 CMP2 T0301054+D.DADDSB F2WR N=F2REG2 GET SIGN AND ITS T0301055 RTJ D.CKZERO J OF OPERAND 2 T0301056+ D.OP2ZRO J OPERAND 2 IS ZEROT0301057 SPACE 1 T0301058- A I P N=F2REG1 NZU SAVE ADR IN X, SIT0301059+D.ADD10 EOR I BG P BG8000X SUBTRACT, CMP SIGT0301060 SPACE 1 T0301061- A A X RTJ D.CKZERO J GET SIGN/ADR OF OT0301062+ D.OP1ZRO J OPERAND 1 IS ZEROT0301063 SPACE 1 T0301064- A I F N=F2A.SG SAVE OPR1 SIGN INT0301065+ ZERO F F2WR N=F2REG3 GET OPERAND 3 ADDT0301066 A P Q K=10 T0301067 ADD F2 K P T0301068 EOR I Q K=0 NU CHECK IF SIGN DIFT0301069+ K=80X YES, SUBTRACT OT0301070 SPACE 1 T0301071- A P Q RTJ D.ADDSUB J ADD/SUB OPERANDS T0301072 SPACE 1 T0301073+ ONE X U NON-ZERO ANSWER T0301074- ZERO X ZERO ANSWER, CLR T0301075+ B Q Q N=F2A.SG STORE SIGN WORD T0301076 A.B F2 X WRITE D.ADDXIT J EXIT ADD/SUB ROUTT0301077 SPACE 2 T0301078+D.OP2ZRO ZERO Q N=F2REG1E.  3#v> L OP2=0, USE OPERANT0301079-D.OP1ZRO ZERO Q N=F2REG2 NZU OP1=0, USE OP2, CT0301080+ B BG Q BG8000X YES, COMPLEMENTT0301081- A F2 X N=F2REG3 X=OP ADR, F2(N)=OT0301082 SPACE 1 T0301083 D.OPZ10 ADD X K A GET NEXT OPERAND T0301084 ADD F2 K P READ READ, GET NEXT OPT0301085 EOR MEM Q F (COMP OP2, IF NET0301086 A F WRITE DECK KZU READ/WRITE 11 WORT0301087 SPACE 1 T0301088+D.ADDXIT N=41X U CLR DEC. ARITH, ST0301089- ZERO Q D.OPZ10 J CLR CMP FLAG, REPT0301090 SPACE 2 T0301091+ EOR SM1 N SM1 N=F2PSAV RESTORE P AND GOTT0301092 CMP1 T0301093 SUB- F2 MEM P RNI JL T0301094 EJECT T0301095 BOX T0301096* T0301097* DECIMAL ARITHMETIC ADD/SUBTRACT SUBROUTINE T0301098* T0301099* ENTRY T0301100* A = START ADDRESS - 1 OF OPERAND 1 T0301101* X = START ADDRESS - 1 OF OPERAND 2 T0301102* P = START ADDRESS - 1 OF ANSWER (Q = P) T0301103* F = 0 T0301104* K = 0 FOR ADD, 80X FOR SUBTRACT T0301105* OVERFLOW CLEARED T0301106* T0301107* EXIT Q = START ADDRESS - 1 OF ANSWER (SIGN WORD) T0301108* F = 0, IF ANSWER ZERO (SUBTRACT OF TWO EQUAL OPERANDS) T0301109* T0301110 EBOX T0301111 CMP2 T0301112+D.ADDSUB ADD X MEM X N=9 U DECREMENT OP2 ADDT0301113 SPACE 1 T0301114 D.AS10 A.-B SM1 BG SM1 OVERFLOW OVFL CLEAR/CHECK OVERFT0301115+ A F I READ KZU READ (OP2), CK T0301116- A F I READ DECK KZU READ (OP2), CK T0301117+ A MEM F D.AS20 J ADD, SAVE F AND AT0301118 SPACE 1 T0301119- A MEM F SUB, SAVE F AND ST0301120 ADD A MEM A DECREMENT OP1 ADDT0301121 ADD P MEM P READ K7L DCR R3, READ OPERT0301122+ SUB MEM F F U SUB WITH NO BORT0301123- SUB- MEM F F INCK SUB WITH BORROWT0301124+ SUBT F F1 F WRITE D.AS30 J SUB CORRECTION ANT0301125 SPACE 1 T0301126 D.AS20 ADD A MEM A PT  3#vR DECREMENT OP1 ADDT0301127 ADD P MEM P READ K7L DCR R3, READ OPERT0301128+ ADD MEM F F U ADD WITH NO CART0301129- ADD+ MEM F F INCK ADD WITH CARRY T0301130+ ADDT F F1 F WRITE ADD CORRECTION ANT0301131 SPACE 1 T0301132 D.AS30 A+B I F F DECN NZU (F = IOR OF RESULT0301133+ A.-B SM1 BG SM1 OVERFLOW OVFL EXIT, CLR/CHK T0301134- ADD X MEM X D.AS10 J DCR OP2 ADR, CONTT0301135+ A F RZL NO OVFL, RTN, CHKT0301136 EJECT T0301137 BOX T0301138* T0301139* DECIMAL ARITHMETIC ADD/SUBTRACT SUBROUTINE T0301140* T0301141 EBOX T0301142- B Q P N=F2A.SG KZU CHECK IF ADD OVERT0301143+ A F2 F WRITE D.SETOVF J YES, STORE SGN,T0301144 SPACE 3 T0301145* BORROW OCCURRED, ANSWER NEEDS TO BE COMPLEMENTED, SUBTRACT FROT0301146- EOR F2 BG F BG8000X COMPLEMENT SIGN BT0301147+ ZERO A F2WR K=10 SUBTRACT FROM A=0T0301148 SPACE 1 T0301149 D.AS40 ADD P MEM P DECK KZU DCR R3, DECREMENTT0301150+ A.-B SM1 BG SM1 OVERFLOW RU ANSWER CORRECTED,T0301151 SPACE 1 T0301152- A.-B SM1 BG SM1 OVERFLOW OVFL CLEAR/CHECK OVERFT0301153+ A P P READ U NO OVF, ISSUE RT0301154- A P P READ L OVF, ISSUE READT0301155+ SUB A MEM F U NO OVF, THEN NO BT0301156- SUB- A MEM F OVF, THEN BORROW T0301157+ SUBT F F1 F WRITE D.AS40 J ADD CORRECTION ANT0301158 EJECT T0301159 SPACE 15 T0301160 BOX T0301161* T0301162* T0301163* T0301164* T0301165* D E C I M A L M U L T I P L Y T0301166* T0301167* T0301168* I N S T R U C T I O N T0301169* T0301170* T0301171* T0301172* T0301173 EBOX T0301174 SPACE 15  3#vf T0301175 EJECT T0301176 BOX T0301177* T0301178* D E C I M A L M U L T I P L Y 0F0A T0301179* T0301180* D E C I M A L D I V I D E (PARTIAL) 0F0B T0301181* T0301182 EBOX T0301183 D.MULDIV -A F2 X TK/S2LSB ZL CHECK IF FIRST TIT0301184+ A F2 F N=10 L FIRST TIME ENTRY T0301185 SPACE 2 T0301186- B Q F D.MDRSTR J NOT 1ST, REENTRY T0301187 SPACE 2 T0301188+ SUB- F MEM F CLR PROD/QUOT TO T0301189- ZERO RPT WRHW0 U T0301190 SPACE 1 T0301191+ N=F2REG2 F = ADR OF PROD/QT0301192 RTJ D.CKZERO J CK MULTIPLIER/DIVT0301193+ D.ADDXIT J MULTIPLIER/DIVSORT0301194 SPACE 1 T0301195- A A P N=F2REG1 OK, P=OP1 ADR,ST0301196 A X Q Q = MULTIPLY/DIVIT0301197 A I X RTJ D.CKZERO J CK MULTIPLICAND/DT0301198+ D.ADDXIT J MULTICAND/DIVIDENT0301199 SPACE 1 T0301200- EOR I X N=20X NU CHECK IF LIKE SIGT0301201+ N=A0X SIGNS DIFF, SET NT0301202- B N WRITE STORE SIGN, NOT ZET0301203 EJECT T0301204 BOX T0301205* T0301206* DECIMAL MULTIPLY T0301207* T0301208 EBOX T0301209 A+B I X X RL0E CHECK IF 1/2 OPERT0301210 -A X Q TK/S2LSB NU T0301211+ ADD MEM MEM X D.CHKDIV JKZU CHECK IF DIVIDE/MT0301212 SPACE 2 T0301213* OVERFLOW, SET FLAT0301214-D.SETOVF ADD MEM MEM X K=60X K=OVF+NON-ZERO FLT0301215 -A F1 X N=F2REG3 X = 9999 T0301216- A F2 P N=9 T0301217 SPACE 1 T0301218+ A X WRITE STORE ALL NINES IT0301219- SUB P MEM P RPT U T0301220 SPACE 1 T0301221+ B K F L8EA RMW WRITE OUT FLAGS WT0301222 A+B MEM F WRITE D.ADDXIT"g  3#vz J T0301223 SPACE 2 T0301224+D.CHKDIV ADD X X X D.DIVIDE J PROCESS DIVIDE, XT0301225- A F X RTJ D.FNDLSD J FIND LS NOT0 DIGIT0301226+ RTJ N=F2M.I1 F=INDEX TO DIGIT0301227- A P A F2WR D.FNDLSD J FIND LS NOT0 DIGIT0301228 SPACE 1 T0301229+ N=F2M.J SET J = J1 AND SAT0301230 F2WR K=10 T0301231 SPACE 2 T0301232 D.NXMPLR ZERO F F GATEI N=F2REG2 ON ENTRY, F REG =T0301233 ADD I F2 X N=F2M.I1 READ MULTIPIER, RT0301234 A F2 X READ N=F2M.C SET CARRY TO ZEROT0301235 A MEM F F2WR N=F2M.MP ZL SAVE MULTIPIER,CKT0301236+ A X F F2WR N=F2M.I INTU SET I = I1, CK INT0301237 SPACE 1 T0301238- D.CKMDON J MULTIPIER ZERO, KT0301239 EJECT T0301240 BOX T0301241* T0301242* DECIMAL MULTIPLY T0301243* T0301244 EBOX T0301245+ ZERO A D.INTMUL J INTERRUPT,EXIT TOT0301246 SPACE 1 T0301247-D.NXPROD F2WR ON ENTRY, F REG =T0301248 D.NTPROD ZERO A N=F2REG1 T0301249 ADD F2 F F GET ADR OF NEXT MT0301250 ZERO Q READ A,Q = 0, IF MULTCT0301251 A MEM X RTJ N=F2M.MP ZL X = MULTIPLICAND T0301252 SPACE 1 T0301253+ A F2 Q D.MUL1WD J Q = MULTIPLIER, GT0301254 SPACE 1 T0301255- A A F N=F2M.C A=MSB, Q=LSB OF PT0301256 ADD F2 Q P K=4 P = CARRY + LSB(PT0301257 ADDT P F1 P N=F2M.I U T0301258+ SUB F2 K A RTJ N=F2M.J GET K INDEX T0301259- A.-B SM1 BG SM1 OVERFLOW OVFL CHECK FOR CARRY OT0301260+ ADD A F2 A N=F2REG3 NU K=I+J-4, CK IF NET0301261- ADD+ F BG F D.CARRY1 J YES, ADD 1 TO MT0301262 SPACE 1 T0301263+ ADD A F2 Q D.NXP10 J KIDX NEG, DONT RET0301264- ADD A F2 Q K=10 FORM ADDRESS OF RT0301265 SUB A K READ NU CK IF K INDEX .GTT0301266+ ADD P MEM P U NO, READ R3(K) T0301267- D.NXP10 J YES, DONT READ T0301268+ ADDT P F1 P RTJ T0301269- A.-B SM1 BG SM1 OVERFLOW OVFL CHECK FOR CARRY OT0301270+D.NXP10 A P I N=F2M.C M  3#v U SAVE MSB (X) AS NT0301271- ADD+ F BG F D.CARRY1 J YES, ADD 1 TO MT0301272 SPACE 1 T0301273+ B Q P F2WR K=10 STORE LS (P) IF NT0301274- A A RTJ D.STODIG JNU NON-SIGN DIGITST0301275 SPACE 1 T0301276+ A F I N=F2M.I CHECK IF MULTIPIET0301277 ADD F2 MEM F NU MULTIPLIED ALL MUT0301278+ ADD P MEM P N=F2REG3 U YES, EXIT INNERT0301279- D.NXPROD JINTU NO, DCR I, CK IT0301280 SPACE 2 T0301281+ ADD A MEM A RTJ D.STODIG JNU STORE CARRY AS LAT0301282-D.CKMDON N=F2REG3 T0301283+ ADD F2 K A N=F2M.J CHECK IF ANY MORET0301284 ADD F2 MEM F NU MULTIPLIERS, DCT0301285+ A A X RTJ D.FNDLSD J ALL DONE, CK PRODT0301286- F2WR D.NXMPLR J NOT DONE, GET NEXT0301287 SPACE 1 T0301288+ D.ADDXIT J EXIT MULTIPLY T0301289 D.MDZERO ZERO WRITE D.ADDXIT J PROD/QUOT ZERO, CT0301290 EJECT T0301291 SPACE 15 T0301292 BOX T0301293* T0301294* T0301295* T0301296* T0301297* D E C I M A L D I V I D E T0301298* T0301299* T0301300* I N S T R U C T I O N T0301301* T0301302* T0301303* T0301304* T0301305 EBOX T0301306 SPACE 15 T0301307 EJECT T0301308 BOX T0301309* T0301310* D E C I M A L D I V I D E 0F0B T0301311* T0301312 EBOX T0301313+D.DIVIDE A F A N=F2REG1 FIND MS NOTO DIGIT0301314 A F2 P RTJ D.FNDMSB J T0301315+ SUB I X X N=F2REG2 X=INDEX TO DIGIT0301316 A F2 P RTJ D.FNDMSB J FIND MS NOTO DIGIT0301317 SPACE 1 T0301318+ ADD I MEM F K=11 c  3#v COMPUTE INDEX TO T0301319 SUB X F F N=F2D.K NU OF QUOTIENT (K=T0301320+ D.SETOVF J QUOTIENT OVERFLOWT0301321 SPACE 1 T0301322- SUB F K F2WR DECK NU CHECK FOR TRUNCATT0301323+ ZERO Q RTJ N=F2REG2 U NORMALIZE THE DIVT0301324- ZERO X D.CKDDON J TRUNCATION, SETT0301325 SPACE 1 T0301326+ ADD I F2 P D.NORML2 J MAKE MS DIGITS.GET0301327 SPACE 1 T0301328- N=F2D.V2 SAVE MS TWO WORDST0301329 A X F F2WR N=F2D.V1 NORMALIZED DIVIT0301330 A+B I Q F F2WR N=F2D.IX SAVE THEIR I1/I2 T0301331 F2WR N=F2REG2 SET INTERRUPT SECT0301332 D.NEXT4Q K=0 INTU CHECK FOR INTERRUT0301333+ D.INTDV1 J PROCESS AN INTERRT0301334 SPACE 2 T0301335-D.NXQUOT A F2 P RTJ D.FNDMSB J FIND MS NON-ZERO T0301336+ ADD F2 F X D.NORML1 J NORM. DIVIDEND AST0301337 SPACE 1 T0301338- ADD F X X N=99X U IF V1=U(J), SET XT0301339+ ADDT X F1 X RTJ K=99X AND I=V1+U(J+1)T0301340- A.-B SM1 BG SM1 OVERFLOW OVFL T0301341+ B X N,K X GATEI U T0301342- B N,K X RU V1+U(J+1) OFL, SET0301343 SPACE 1 T0301344+ A P P N=F2D.V1 P,F = DIVIDEND T0301345 EOR P F2 RTJ ZL CHECK IF V1.EQ. UT0301346+ A F2 X D.DIV1WD J NO, DIVIDE AND T0301347 SPACE 1 T0301348- A I F N=F2D.R I=F = REMAINDER, T0301349 A X F F2WR N=F2D.Q X=F = QUOTIENT, ST0301350 ZERO A F2WR INTU CHECK INTERRUPTS T0301351+ D.INTDV2 J PROCESS AN INTERRT0301352 EJECT T0301353 BOX T0301354* T0301355* DECIMAL DIVIDE T0301356* T0301357 EBOX T0301358-D.CKQUOT A X Q RTJ N=F2D.V2 ZL CHECK IF MULTIPLIT0301359+ A F2 Q D.MUL1WD J NO, QUOT * V2 (T0301360- A A X N=F2REG2 A=X = MSB OF QUOTT0301361 A F2 P N=F2D.R Q = LSB OF QUOTT0301362 SUB X F2 F T0301363 SUBT F F1 F K=0 CK IF MSB(QUOT*V2T0301364 B Q F F2WR N=F2D.S (SAVE THIS DIFFT0301365 F2WR N=F2D.K LSB(QUOT*V2) IT0301366 A.-B SM1 BG SM1 OVERFLOW-  3#v OVFL CHECK IF DIFFERENT0301367+ A P P RTJ D.FNDMSB J FIND MS NON-ZERO T0301368- ZERO X D.INITMS J NO (DIFF NEG), T0301369 SPACE 1 T0301370+ ADD+ F2 F X D.NORML3 J GET DIVID. 3RD DIT0301371 SPACE 1 T0301372- ZERO Q N=F2D.R CLEAR CARRY (Q) FT0301373 A F2 A N=F2D.V1 A = MSB(QUOT*V2) T0301374 A F2 I RTJ N=F2D.S U I = V1 T0301375+ SUB F2 F F N=F2D.V2 U F=LSB(Q*V2)-U2(ORT0301376 SPACE 1 T0301377-D.AJQUOT SUB F F2 F ADJUST TRIAL QUOTT0301378+ SUBT F F1 F (A,F = A,F-V1,VT0301379 A.-B SM1 BG SM1 OVERFLOW OVFL (NOTE THIS LOOPT0301380+ SUB A Q A U EITHER 0,1,2,T0301381- SUB- A Q A T0301382+ SUBT A F1 A INCK INC LOOP COUNT T0301383 A.-B SM1 BG SM1 OVERFLOW OVFL T0301384+ A+B A F X N=F2D.K ZL CK IF A,F EQUAL ZT0301385- N=F2D.K L OVFL, ALL DONE T0301386+ A I Q INCN RL SET Q = V1 AFTER T0301387 SPACE 2 T0301388-D.INITMS ADD F2 BG X L8EA BG4 INIT MUL/SUB LOOPT0301389 ZERO F2 F GATEI N=F2D.Q DCR QUOT BY ADJUST0301390 SUB F2 K A N=F2D.C T0301391 SUB A F1 F F2WR N=F2D.Q CLEAR MUL AND SUBT0301392 A+B I X F F2WR N=F2D.MK INTU CHECK FOR INTERRUT0301393 EJECT T0301394 BOX T0301395* T0301396* DECIMAL DIVIDE T0301397* T0301398 EBOX T0301399+ D.INTDV3 J PROCESS AN INTERRT0301400 SPACE 2 T0301401-D.MULSUB ZERO A F2WR K=FFX MULIPLY AND SUBTRT0301402 D.MULSB1 A.-B F K X L8EA GET DIVIDEND INDET0301403 A.B F K F GET QUOTIENT INDET0301404 SUB X F X N=F2REG2 COMPUTE DIVISOR IT0301405 ADD+ X BG X BG4 N = M - K + 5 T0301406 ADD X F2 X GATEI GET MULTIPLICAND,T0301407 A I READ NU CK IF DIVISOR INDT0301408+ ZERO Q D.SUBTRT J YES, CONSIDER IT0301409- A MEM X N=F2D.Q ZL CHECK IF MULTIPLIT0301410+ A F2 Q RTJ ZL NO, GET MULTIPLT0301411- ZERO Q D.SUBTRT J YES, ANSWER ZERT0301412 SPACE 1 T0301413+ D.MUL1WD J GET PRODUCT (A,Q=T0301414 SPACE 1 \|  3#v T0301415-D.SUBTRT A A F N=F200FF SUBTRACT PRODUCT T0301416 ZERO F2 P GATEI N=F2D.MK CURRENT DIVIDENT0301417 -A.B I F2 A L8EA N=F2REG1 T0301418 ADD A F2 X K=10 T0301419 SUB A K READ NU READ R1(M), CK IFT0301420+ SUB MEM Q P K=0 U YES, USE R1(M) T0301421- SUB P Q P U NO, USE R1(M) T0301422+ SUBT P F1 P RTJ N=F2D.C SUBTRACT LSB OF RT0301423- A.-B SM1 BG SM1 OVERFLOW OVFL T0301424+ SUB P F2 P U T0301425- ADD+ F BG F D.CARRY1 J BORROW, ADD ONE TT0301426 SPACE 1 T0301427+ SUBT P F1 P RTJ SUBTRACT PREVIOUST0301428- A.-B SM1 BG SM1 OVERFLOW OVFL T0301429+ A X X F2WR KZU (SAVE CARRY FOR NT0301430- ADD+ F BG F D.CARRY1 J BORROW, ADD ONE TT0301431 SPACE 1 T0301432+ A P WRITE STORE PARTIAL DIVT0301433 SPACE 1 T0301434- A F A N=F2D.MK T0301435 SUB F2 MEM F GATEI INC K, IF MULSUB T0301436 SUB I BG F F2WR BG100X NU CHECK IF MULSUB DT0301437+ A A K=9 ZL YES, CHECK IF BT0301438-D.MSCINT D.MULSUB JINTU NO, CHECK FOR IT0301439 SPACE 1 T0301440 ORG C9X+BG0+CPG2 T0301441-D.CARRY1 ADD F F1 F RU ADD CORRECTION FOT0301442 ORG D.MSCINT+1 T0301443 EJECT T0301444 BOX T0301445* T0301446* DECIMAL DIVIDE T0301447* T0301448 EBOX T0301449+ SUB- I BG BG4 NU INITIALIZE ADD BAT0301450- ZERO Q D.STQUOT J NO BORROW, STORE T0301451 SPACE 1 T0301452+ ADD I BG X BG4 U SET M = K+9-5 =T0301453- B K X SET M = 9 (FOR T0301454+ SUB X F2 A N=F2REG1 T0301455 ADD+ F2 X P TK/S2LSB P = R1(M+1)ADR, KT0301456 ZERO Q N=F2REG2 T0301457 ADD+ A BG A BG4 N INDEX (A) = M -T0301458 ADD+ A F2 A A = R2(N) ADDRESST0301459 SPACE 1 T0301460 D.ADDBCK ADD P MEM P READ READ R2(N) T0301461 A MEM X T0301462 A P P READ E  3#v LQL READ R1(M) T0301463+ ADD MEM X X U T0301464- ADD+ MEM X X T0301465+ ADDT X F1 X WRITE R1(M) = R1(M)+R2(T0301466 A.-B SM1 BG SM1 OVERFLOW OVFL CHECK FOR CARRYOUT0301467+ ZERO Q DECK KZU NO T0301468- ONE Q DECK KZU YES T0301469 SPACE 1 T0301470+ B BG Q BG1 U DCR QUOTIENT BY OT0301471- ADD A MEM A D.ADDBCK J CONTINUE ADD BACKT0301472 SPACE 2 T0301473+D.STQUOT ADD I MEM A N=F2D.Q STORE 4 QUOTIENT T0301474 SUB F2 Q X (FIRST ADJUST IF T0301475 SUB X F1 X T0301476 A X I N=F2REG3 R3(K) = QUOT IN IT0301477 ADD A F2 P K=10 T0301478 A A RTJ D.STODIG JNU CK FOR OVERFLOW OT0301479 EJECT T0301480 BOX T0301481* T0301482* DECIMAL DIVIDE T0301483* T0301484 EBOX T0301485+D.CKDDON ZERO F N=F2M.J CLR J INDEX FOR MT0301486 SUB X MEM F2WR N=F2REG2 NU CHECK IF DIVIDE AT0301487+ D.NEXT4Q J NO, NEXT 4 QUOTT0301488 SPACE 2 T0301489* ADJUST REMAINDER, IF NECESSARY AND CHECK IF T0301490- B K X X = 10 T0301491 ADD F2 X A RTJ N=F2REG1 A = ADR OF OPERANT0301492 ADD F2 X P D.FNDLSD J P = ADR OF OPERANT0301493 SPACE 1 T0301494+ B BG A BG4 CK IF LS NON-ZEROT0301495 SUB A F F NU OF DIVIDEND .GT. T0301496+ ZERO F (NO, DONT SHIFTT0301497- SUB X F Q YES, F=SHIFT OFFST0301498 ZERO Q A TK/S2LSB K=10-OFFSET T0301499 ZERO Q CLEAR A AND Q T0301500 SUB- P F F N=9 F=STARTING OFFSETT0301501 SPACE 1 T0301502 D.REMLOP ADD P MEM P READ KZU READ, CK IF NEG IT0301503+ A GATEI U (YES, USE ZERO)T0301504- A+B MEM Q Q GATEI DECK SAVE DATA, Q=IOR T0301505+ A I RPT WRHW0 NZU WRITE SHIFTED REMT0301506- ADD F MEM F D.REMLOP J REPEAT 10 TIMES T0301507 SPACE 2 T0301508+ ADD P X P CHECK IF REMAINDET0301509 B Q K=10 ZL T0301510+ D.CKMDON}  3#v J NO, CK IF QUOT ZET0301511-ORGP1S1 ZERO WRITE D.CKMDON J YES, ZERO SIGN WRT0301512 EJECT T0301513 SPACE 15 T0301514 BOX T0301515* T0301516* T0301517* T0301518* T0301519* D E C I M A L M U L T I P Y / D I V I D E T0301520* T0301521* T0301522* I N T E R R U P T H A N D L I N G R O U T I N E S T0301523* T0301524* T0301525* T0301526* T0301527 EBOX T0301528 SPACE 15 T0301529 EJECT T0301530 BOX T0301531* T0301532* INTERRUPT DURING DECIMAL MULTIPLY AND DIVIDE T0301533* T0301534* ON EXIT, MULTIPLY DIVIDE T0301535* R1 = ADDRESS OF OPERAND 1 ADDRESS OF OPERAND 1 T0301536* R2 = ADDRESS OF OPERAND 2 ADDRESS OF OPERAND 2 T0301537* R3 = -0 (FFFF) -0 (FFFF) T0301538* R4 = CURRENT CARRY REMAINDER OR CARRY T0301539* Q = ADDRESS OF OPERAND 3 ADDRESS OF OPERAND 3 T0301540* A = THREE INDEXES (J,I1,I,0) M INDEX*256 + K INDEX T0301541* I = DESTROYED CURRENT 4 QUOTIENT DIGIT0301542* T0301543 EBOX T0301544 ORG 00X+CPG2 T0301545 D.INTMUL ONE F F2WR K=2 K = 2 (3 INDEXES T0301546 ADD MEM BG X BG8 X = 7 (F2 ADR OF T0301547 SPACE 1 T0301548 D.IM10 X TN/S2LSB SET F2 ADDRESS T0301549 A+B A F2 A N=4 KZU GET NEXT INDEX, CT0301550+ AL0E N=F2REG3 L ALL DONE, A=3 IT0301551 SPACE 1 T0301552- AL0E DECK SHIFT INDEXES FORT0301553+ ADD X MEM X D.IM10 J DECREMENT F2 ADR T0301554 SPACE 1 T0301555- A F2 Q D.INTXIT J Q=OP3, R3=-0, PROT0301556 SPACE 3 T0301557+D.INTDV3 F2WR K=C0X U INTERRUPT ON SECTT0301558-D.INTDV2 K=80X uv  3#w INTERRUPT ON SECTT0301559+D.INTDV1 B K X L8EA N=F2D.MK INT. ON SECTION 1T0301560 SPACE 1 T0301561 A+B F2 X A N=F2REG3 A = INT SECTION NT0301562 A F2 Q K=FFX Q = ADDRESS OF OPT0301563 B K F N=F2D.Q T0301564 A F2 WRITE N=F2REG3 STORE F2(7) IN LOT0301565 ONE F D.INTXIT J SET R3=-0, FOR RET0301566 EJECT T0301567 BOX T0301568* T0301569* DECIMAL MULTIPLY AND DIVIDE RESTART AFTER AN INTERRUPT T0301570* T0301571 EBOX T0301572+D.MDRSTR A.-B SM1 BG SM1 OVERFLOW CLEAR OVERFLOW T0301573 A+B SM1 BG SM1 DECARITH SET DECIMAL ARITHT0301574 F2WR CLRF/ONES R3=ADR OF OP3, SET0301575 A A F N=F2D.MK KZU CHECK IF DIVIDE OT0301576+ F2WR D.DIVSTR J DIVIDE, SAVE A T0301577 SPACE 1 T0301578- A A Q K=3 Q=J,I1,I,0, K=SHIT0301579 ADD MEM BG X BG8 X = 7 (F2 ADR OF T0301580 SPACE 1 T0301581 D.MR10 ZERO A N=4 KZU SHIFT NEXT INDEX T0301582+ A F F D.NTPROD J RESTART MULTIPLICT0301583 SPACE 1 T0301584- AQL0E DECK T0301585 A A X F TN/S2LSB RESTORE INDEX TO T0301586 ADD X MEM X F2WR D.MR10 J DECREMENT FILE 2 T0301587 SPACE 3 T0301588+D.DIVSTR ZERO Q RTJ N=F2REG2 FIND MS NOTO DIGIT0301589 A F2 P D.FNDMSB J T0301590 SPACE 1 T0301591+ A P P D.NORML2 J NORMALIZE THE DIVT0301592 SPACE 1 T0301593- N=F2D.V2 SAVE MS TWO WORDST0301594 A X F F2WR N=F2D.V1 NORMALIZED DIVIT0301595 A+B I Q F F2WR N=F2D.IX SAVE THEIR I1/I2 T0301596 ZERO A F2WR K=C0X SETUP INTERRUPT NT0301597 B K X L8EA N=F2D.MK T0301598 A.-B F2 X F GATEI K=FFX SAVE M AND K INDET0301599 SPACE 1 T0301600 A I X F2WR N=F2REG2 NU CHECK IF INTERRUPT0301601+ ADD X X N=F2D.Q NU NO, CK IF INTERT0301602 SPACE 1 T0301603- D.NXQUOT J GET NXT 4 QUOTIENT0301604 SPACE 1 T0301605+ A F F D.MULSB1 J INT 3, CONT. MUL T0301606 SPACE 1  3#w T0301607-ORGP2S1 A F2 X D.CKQUOT J INT 2, X = TRIAL T0301608 SPACE 1 T0301609 ORG ORGP1S1+1 T0301610 EJECT T0301611 SPACE 15 T0301612 BOX T0301613* T0301614* T0301615* T0301616* T0301617* D E C I M A L A R I T H M E T I C T0301618* T0301619* T0301620* S U B R O U T I N E S T0301621* T0301622* T0301623* T0301624* T0301625 EBOX T0301626 SPACE 15 T0301627 EJECT T0301628 BOX T0301629* T0301630* CHECK FOR OPERAND ZERO T0301631* T0301632* ENTRY F2(N) = ADDRESS OF DECIMAL NUMBER T0301633* T0301634* EXIT A = ADDRESS OF DECIMAL NUMBER,S SIGN T0301635* I = SIGN WORD CONTENTS. IF ZERO, NO IS ZERO.T0301636* F = F (FOR SETTING AB OF OPERAND 3 FOR MUL/DT0301637* OVERFLOW CLEARED, TWOS COMPLEMENT SET T0301638* DECIMAL ARITHEMETIC SET T0301639* RETURN LOWER, UNLESS OPERAND ZERO T0301640* T0301641 EBOX T0301642 CMP1 T0301643+D.CKZERO A.-B SM1 BG SM1 K=10 CLEAR OVERFLOW, KT0301644 A+B SM1 BG SM1 DECARITH SET DECIMAL ARITHT0301645 CLRF/ONES SET TWO COMP ARITT0301646 CMP2 T0301647 ADD F2 K A SET A TO SIGN WORT0301648 A F Q F READ TN/S2LSB N = ADD(FF), SUB(T0301649 -A.B MEM BG GATEI BG2000X RZL I=SIGN WORD, RTN T0301650 SPACE 2 T0301651 BOX T0301652* T0301653* STORE DIGITS, IF NO OVERFLOW (NON-SIGNIFICANT DIGITS IGNORED) T0301654* 7  3#w. T0301655* ENTRY A = NEG (OVERFLOW), POS (NO OVERFLOW) T0301656* I = FOUR DIGITS TO BE STORED T0301657* P = ADDRESS FOR THE STORAGE (AB ALREADY SETUT0301658* K = 10 T0301659* EXIT X = NEGATIVE IF DIGIT STORED, OTHERWISE POSIT0301660* T0301661 EBOX T0301662+D.STODIG A I D.STO10 JZL OVERFLOW, CHECK DT0301663 SPACE 1 T0301664 SUB A K NU CHECK FOR NON-SIGT0301665+ A I WRITE NO, STORE FOUR T0301666- SUB A K X RU YES, IGNORE ANDT0301667 SPACE 1 T0301668+D.STO10 D.SETOVF J NON-ZERO, SET OVFT0301669- SUB A K X RU ZERO, IGNORE AND T0301670 EJECT T0301671 BOX T0301672* T0301673* FIND LEAST SIGNIFICANT NON-ZERO DIGIT T0301674* T0301675* ENTRY, A = START ADR OF DECIMAL NO. (LSD) - 1 T0301676* X = ADDRESS OF OPERAND 3 SIGN WORD T0301677* EXIT, F = INDEX (0-9) OF LS NON-ZERO DIGIT T0301678* T0301679 EBOX T0301680+D.FNDLSD K=10 T0301681 ADD A MEM A D.F20 J DECREMENT TO 1ST T0301682 SPACE 2 T0301683+ A X X D.MDZERO J NUMBER IS ALL ZERT0301684 SPACE 1 T0301685-D.F10 A MEM DECK ZL CHECK IF DIGIT ZET0301686+ B K F RU NO, SET F=INDEXT0301687 SPACE 1 T0301688-D.F20 ADD A MEM A READ D.F10 JKZU DCR ADR, READ NEXT0301689 SPACE 2 T0301690 BOX T0301691* T0301692* FIND MOST SIGNIFICANT NON-ZERO DIGIT T0301693* T0301694* ENTRY, P = START ADR OF DECIMAL NO. (MS DIGITS), AB ALREAT0301695* A = ADDRESS OF OPERAND 3 SIGN WORD T0301696* T0301697* EXIT, I = INDEX (0-9) OF MS NON-ZERO DIGIT T0301698* F = I INDEX (I=K-J+5 -1) FOR DIVIDEND ENTRY T0301699* F2= START ADDRESS OF OPERAND 1 (DIVIDEND) T0301700* T0301701 EBOX T0301702+D.FNDMSB ONE F K=10 a  3#wB K= NUMBER OF WORDT0301703 D.FM10 SUB F MEM F READ DECK KZU READ MS DIGITS, IT0301704+ A A A D.MDZERO J NUMBER IS ALL ZERT0301705 SPACE 1 T0301706- A MEM N=F2D.K ZL CHECK IF DIGITS ZT0301707+ SUB- F BG F GATEI BG4 U NO, I=INDEX, F=T0301708- SUB P MEM P D.FM10 J READ NEXT DIGITS,T0301709 SPACE 1 T0301710+ ADD F F2 F N=F2REG1 COMPUTE I INDEX (T0301711 ADD F MEM F RU EXIT, F=I=K+J-5 -T0301712 EJECT T0301713 BOX T0301714* T0301715* DECIMAL MULTIPLY, 16 BITS * 16 BITS, ONE WORD T0301716* T0301717* (X=MULTIPLICAND) * (Q=MULTIPLIER) = (A,Q = PRODUCT) T0301718* T0301719* ON ENTRY, A = 0 T0301720* T0301721* ON EXIT, ALL OTHER REGISTERS NOT SAVED T0301722* T0301723 EBOX T0301724+D.MUL1WD ZERO F K=3 SET K TO LOOP 4 TT0301725 ZERO P N=0 N=0, FOR 1ST TIMET0301726 SPACE 1 T0301727+D.MUL10 ZERO RQR0E LQL CHECK NEXT BIT OFT0301728 SPACE 1 T0301729- A P Q RL ALL DONE, PRODUCTT0301730 SPACE 2 T0301731+ D.MUL20 J =0, SKIP ADD T0301732 SPACE 1 T0301733- ADD P X P Q =1, ADD LSB SHIT0301734 ADDT P F1 P T0301735 A.-B SM1 BG SM1 OVERFLOW OVFL CHECK FOR CARRY OT0301736+ ADD A F A D.MUL15 J NO, ADD MSB SHFT0301737- ADD+ A F A D.MUL15 J YES,ADD MSB SHF MT0301738 SPACE 1 T0301739 ORG ORGP2S1+1 T0301740+D.MUL15 ADD A F1 A DECK KZU CHECK IF FOUR TIMT0301741 SPACE 1 T0301742 D.MUL20 DECK KZU NO ADD, CK IF FOUT0301743+ ADD I X X K=3 U YES, 10* ORIGINAT0301744- ADD X X X D.MUL30 J NO, DOUBLE MULTIT0301745 SPACE 1 T0301746+ ADDT X F1 X FOURTH TIME, T0301747 A.-B SM1 BG SM1 OVERFLOW OVFL MCAND = 10*MCANT0301748+ ADD F2 F F D.MUL40 J = 8*MCANDT0301749- ADD+ F2 F F D.MUL40 J T0301750 SPACE 1 u  3#wV T0301751 D.MUL30 ADDT X F1 X NOT FOURTH TIME, T0301752 A.-B SM1 BG SM1 OVERFLOW OVFL 1.MCAND = 2*MCANDT0301753+ ADD F F F L 2.MCAND = 4*MCANDT0301754- ADD+ F F F L 3.MCAND = 8*MCANDT0301755 SPACE 1 T0301756+D.MUL40 ADD F F1 F N=0 L FOURTH TIME, RESET0301757 SPACE 1 T0301758- ADD F F1 F N=F2M.2M NZU CHECK IF FIRST TIT0301759+ A X I F2WR YES, SAVE 2*MCAT0301760- B Q D.MUL10 JZL CHECK IF DONE T0301761 EJECT T0301762 BOX T0301763* T0301764* DECIMAL DIVIDE, SINGLE PRECISION, ONE WORD QUOTIENT T0301765* T0301766* DIVIDEND (P,F) / DIVSOR (X) = QUOTIENT (X), REMAINDER (IT0301767* T0301768 EBOX T0301769+D.DIV1WD ZERO Q K=4 K = NO. DIGITS T0301770 ZERO F F GATEI N=F2D.TQ CLEAR QUOTIENT T0301771 SPACE 1 T0301772 D.DIV10 A I F F2WR DECK RESTORE DIVIDEND,T0301773 A X A N=4 T0301774 AQR0E DIVISOR (X,Q) = DT0301775 A A X N=FFX T0301776 SPACE 1 T0301777 D.DIV20 SUB F Q F GATEI INCN (P,F)-(X,Q), SAVET0301778 SUBT F F1 F T0301779 A.-B SM1 BG SM1 OVERFLOW OVFL CHECK FOR LS BORRT0301780+ SUB P X A U NO T0301781- SUB- P X A YES T0301782+ SUBT A F1 A T0301783 A.-B SM1 BG SM1 OVERFLOW OVFL CHECK FOR MS BORRT0301784+ A A P D.DIV20 J NO, INC CTR, COT0301785 SPACE 1 T0301786- B N F L8EA N=F2D.TQ STORE NEXT QUOTIET0301787 A F2 A N=4 AFTER SHIFTING T0301788 ALEA N=F2D.TQ KZU DIGITS INTO PLAT0301789+ A+B A F X RL ALL FOUR DIGITS=XT0301790 SPACE 2 T0301791- A+B A F F D.DIV10 J SAVE DIGITS IN FIT0301792 EJECT T0301793 BOX T0301794* T0301795* NORMALIZE OPERAND T0301796* T0301797* ENTRY 1,3 X = START ADDRESS OF OPERAND (SIGNICANT NON-ZERO DT0301798* ENTRY 1,3 F = INDEX TO FIRST NON-ZERj  3#wjO SIGNIFICANT DIGIT T0301799* ENTRY 2 P = START ADDRESS OF OPERAND (SIGNICANT NON-ZERO DT0301800* ENTRY 2 I = INDEX TO FIRST NON-ZERO SIGNIFICANT DIGIT T0301801* ENTRY 2 Q = 0 T0301802* T0301803* EXIT, X = NORMALIZED OPERAND, WORD 1 (P = X, FOR ENTRY 1T0301804* F = NORMALIZED OPERAND, WORD 2 T0301805* K = FFX (FOR ENTRY 1 AND 3 ONLY) T0301806* I+Q = INDEX1 AND INDEX2 (FOR ENTRY 2 ONLY) T0301807* T0301808 EBOX T0301809* NORMALIZE DIVIDEND (U(I+1),U(I+2)) BASED ON NORMALIZED DIVISORT0301810+D.NORML3 SUB F MEM F INCREMENT I INDEXT0301811 SPACE 1 T0301812* NORMALIZE DIVIDEND (U(I),U(I+1)) BASED ON NORMALIZED DIVISOR T0301813-D.NORML1 B F X P GATEI N=F2D.IX RESET AB ADDRESS T0301814 B F2 Q L8EA F2=I1, Q=I2 T0301815 SPACE 1 T0301816* NORMALIZE DIVISOR (V1,V2) T0301817 D.NORML2 A I K=10 NU CHECK IF I INDEX T0301818+ SUB I K F L YES, A = 0 T0301819- SUB I K F READ NU NO, CK IF INDEX TT0301820+ A MEM A U NO, A = 1ST OPET0301821- ZERO A YES, A = 0 T0301822 SPACE 1 T0301823+ SUB P MEM P INC OPERAND ADR T0301824 SUB F MEM F READ NU CHECK IF INDEX TOT0301825+ A MEM Q Q TK/S2LSB U NO, Q = 2ND OPET0301826- ZERO Q Q TK/S2LSB YES, Q = 0 T0301827 SPACE 1 T0301828+ SUB P MEM P INC OPERAND ADR T0301829 SUB F MEM F READ NU CK IF IDX STILL TT0301830+ A MEM F2 P TN/S2LSB KZU NO, P = 3RD OPET0301831- ZERO F2 P TN/S2LSB KZU YES, P = 0 T0301832 SPACE 1 T0301833+ ONE X D.N20 J ENTRY2, START NORT0301834- AQL0E N=F2D.IX NO, SHIFT 0,4,8T0301835 A F2 X D.N30 J X = I1 INDEX T0301836 EJECT T0301837 BOX T0301838* T0301839* NORMALIZE OPERAND T0301840* T0301841 EBOX T0301842 D.N20 SUB X MEM X N=F0X ENTRY 2, INCREMENT0301843 A.B A N F T0301844 A F N=4 ZL CHECK IF LESS THAT0301845+ ADD X X X RL0E U I1 = I1*4 T0301846- AQL0E D.N20 $  3#w~ J YES, SHIFT UP (T0301847 SPACE 1 T0301848 D.N30 B X Q F GATEI SHIFT UP OPERAND T0301849 A A X X TN/S2LSB (P) THE SAME AMOT0301850 ZERO Q T0301851 A P A T0301852 AQLEA N=30X T0301853 A+B F Q F DECK KZU CHECK ENTRY1 OR ET0301854+ B N,K P K=0 L ENTRY2, K=0, N=T0301855- N=0 L ENTRY1, K=COUNTT0301856 SPACE 1 T0301857+D.N40 ADD X F1 X CHECK IF ENTRY1/ET0301858- A A Q NZU T0301859+ A X P DECK KZU ENTRY1 CK IF COUT0301860- ADD P X INCK NU ENTRY2, CK LESS TT0301861+ B K Q L8EA RL NO, EXIT (ENTRYT0301862 SPACE 2 T0301863- ADD A Q A YES, SHIFT UP (T0301864 ADDT A F1 A T0301865 A.-B SM1 BG SM1 OVERFLOW OVFL (X,F,A) = (X,F,A)T0301866+ ADD F F F U T0301867- ADD+ F F F T0301868+ ADDT F F1 F T0301869 A.-B SM1 BG SM1 OVERFLOW OVFL T0301870+ ADD X X X D.N40 J T0301871- ADD+ X X X D.N40 J T0301872 EJECT T0301873 BOX T0301874*** T0301875* T0301876* THE FOLLOWING FOUR INSTRUCTIONS (LOAD, STORE, PACK, T0301877* AND UNPACK) USE A COMMON SET OF SUBROUTINES - T0301878* T0301879* GENERAL INITIALIZATION T0301880* INITIALIZES FILE 2 AND VARIOUS REGISTERS T0301881* T0301882* GET T0301883* GETS THE NEXT DIGIT FROM THE SOURCE FIELD T0301884* T0301885* PUT T0301886* PUTS A DIGIT INTO THE TARGET FIELD AND CHECKS FOR INTERRUPT0301887* T0301888* RESUME T0301889* REESTABLISHES FILE 2 AND THE REGISTERS AFTER AN INTERRUPT T0301890* T0301891* DEFINITIONS - T0301892* T0301893* DECA T0301894* DECIMAL ACCUMULATOR - MAY BE EITHER  3#wR TARGET OR SOURCE FIELDT0301895* T0301896* GETIX (P-REGISTER) T0301897* POINTS TO THE NEXT DIGIT IN THE CURRENT SOURCE WORD T0301898* T0301899* SOURCE INDEX (X-REGISTER) T0301900* SOURCE FIELD INDEX - INDEX FOR CURRENT SOURCE WORD T0301901* T0301902* CURRENT SOURCE WORD (I-REGISTER) T0301903* T0301904* PUTIX (F2(6)) T0301905* POINTS TO THE NEXT DIGIT IN THE TARGET TEMP WORD T0301906* T0301907* TARX (F2(5)) T0301908* TARGET FIELD INDEX - INDEX FOR NEXT WORD TO BE T0301909* WRITTEN TO THE TARGET FIELD T0301910* T0301911* TTMP (F2(9)) T0301912* TARGET TEMP - HOLDING WORD FOR DIGITS TO BE STORED T0301913* INTO THE TARGET FIELD T0301914* T0301915* DIGIT COUNT (Q-REGISTER) T0301916* DECREMENTED TO ZERO AS DIGITS ARE MOVED T0301917* T0301918* (NOTE - PRIOR TO ENTERING THESE INSTRUCTIONS, THE T0301919* EMULATOR HAS STORED THE P-REGISTER IN THE T0301920* F-REGISTER AND SET THE N-REGISTER TO F2PSAV.) T0301921* T0301922*** T0301923 EBOX T0301924 EJECT T0301925 BOX T0301926*** T0301927* T0301928* LOAD INSTRUCTION T0301929* **************** T0301930* T0301931* FUNCTION T0301932* LOAD LOADS THE VALUE CONTAINED IN A PACKED DECIMAL T0301933* FIELD INTO A DECIMAL ACCUMULATOR(DECA). T0301934* T0301935* NARRATIVE T0301936* ON ENTRY, RESUME IS CALLED. IF THIS IS INITIAL ENTRY, T0301937* THE GENERAL INITIALIZATION ROUTINE IS CALLED. T0301938* T0301939* THE MAIN LOOP CONSISTS OF CALLS TO GET AND PUT. T0301940* T0301941* AT EOJ, THE LAST DIGITS AND THE ATTRIBUTE WORD ARE T0301942* WRITTEN TO THE DECA. THEN LOAD INCRv  3#wEMENTS THE P-REGISTER T0301943* BY ONE AND RETURNS TO THE EMULATOR. T0301944* T0301945* ENTRY T0301946* R1 - ADDRESS OF PACKED DECIMAL FIELD T0301947* R2 - ADDRESS OF DECA T0301948* A - BITS T0301949* 15 - BYTE ADDRESS T0301950* 14-11 - NOT USED T0301951* 10-5 - SCALE FACTOR (-19..20), NO. OF DECIMAL PLACES T0301952* 4-0 - NUMBER OF DIGITS (0..31) T0301953* T0301954* EXIT T0301955* NORMALLY, THE CONTENTS OF THE PACKED DECIMAL FIELD T0301956* ARE LOADED INTO THE DECA. HOWEVER, IF THE DIGIT COUNT T0301957* EQUALS ZERO OR AN OUT-OF-BOUNDS CONDITION EXISTS, THE T0301958* DECA IS ZEROED-OUT. T0301959* T0301960* REGISTERS DESTROYED - A, Q, R1, R2, R3 T0301961* REGISTERS PRESERVED - I, R4 T0301962* T0301963*** T0301964 EBOX T0301965 EJECT T0301966 BOX T0301967 T0301968 L O A D I N S T R U C T I O N 0F0C T0301969 T0301970 EBOX T0301971 SPACE 2 T0301972 BOX T0301973 T0301974 INITIALIZATION T0301975 T0301976 EBOX T0301977 CMP1 T0301978 DLD RTJ RES J CHECK FOR RESUME T0301979+ DLD010 J INTERRUPTED, NOW T0301980- RTJ INI J 1ST ENTRY, INITIAT0301981+ B X F N=F2TARX N = F2 PTR T0301982 A P F F2WR N=F2PUTX INIT. DECA (TARGET0301983 A A P F2WR N=F2REG1 INIT. PUTIX (0..3T0301984 ZERO X RTJ INI030 J CONTINUE INITIALIT0301985 SPACE 4 T0301986 BOX T0301987 T0301988 MAIN LOOP T0301989 T0301990 EBOX ;  3#w T0301991+DLD010 RTJ GET J GET NEXT DIGIT T0301992- DLD090 J DIGIT CNT = 0, GOT0301993* (ALT. RETURN FRT0301994+ RTJ PUT J PUT DIGIT T0301995+ DLD010 J LOOP T0301996 EJECT T0301997 SPACE 3 T0301998 BOX T0301999 T0302000 EOJ T0302001 T0302002 EBOX T0302003- N=F2REG2 N = F2 PTR (FOR DT0302004* (ALT. RETURN FRT0302005 B F2 A N=F2TARX A-REG = DECA BASET0302006 ADD+ A F2 F N=F2TTMP AB = DECA ADDR INT0302007 B F2 WRITE WRITE LAST DIGITST0302008 SPACE 1 T0302009 A.B P BG BG2 ZL IS GETIX = 3 T0302010+ A I F L8EA N=0FX U YES, SIGN TO UPPET0302011- A I F N=0FX SIGN IN F-REG T0302012+ A.B F N F L8EA F-REG = 000S T0302013 N=F2SNZ N = F2 PTR T0302014 K=0DX K = MINUS SIGN T0302015 EOR F K ZL IS SIGN NEGATIVE T0302016+ ZERO F U NO T0302017- B BG F BG8000X YES T0302018+ A+B F F2 F K=10 COMBINE WITH NONZT0302019 ADD+ A K A AB = ADDR OF DECAT0302020 B F WRITE N=F2PSAV WRITE DECA ATTR. T0302021 DLD090 SUB- F2 MEM P RNI JL P = P+1, GO TO RNT0302022 EJECT T0302023 BOX T0302024*** T0302025* T0302026* STORE INSTRUCTION T0302027* ***************** T0302028* T0302029* FUNCTION T0302030* STORE STORES THE VALUE CONTAINED IN A DECIMAL ACCUMULATOR T0302031* (DECA) IN A PACKED DECIMAL FIELD. T0302032* T0302033* NARRATIVE T0302034* ON ENTRY, RESUME IS CALLED. IF THIS IS INITIAL ENTRY, T0302035* THE X-REGISTER IS SET ZERO AND THE GENERAL INITIALIZATION T0302036* ROUTINE IS CALLED. T0302037* T0302038* THE MAIN LOOP CONSISTS OF CALLS TO G\  3#wET AND PUT. T0302039* T0302040* AT EOJ, THE SIGN IS COMBINED WITH THE LAST DIGIT(S) OF THE T0302041* FIELD. IF THE FIELD ENDS IN THE LEFT-BYTE OF A WORD, THE T0302042* SIGN AND THE LAST DIGIT ARE COMBINED WITH THE RIGHT-BYTE T0302043* OF THE WORD BEFORE BEING STORED INTO THE FIELD. THEN STORE T0302044* INCREMENTS THE P-REGISTER BY ONE AND RETURNS TO THE EMULATORT0302045* T0302046* ENTRY T0302047* R1 - ADDRESS OF DECA T0302048* R2 - ADDRESS OF PACKED DECIMAL FIELD T0302049* A - BITS T0302050* 15 - BYTE ADDRESS T0302051* 14-11 - NOT USED T0302052* 10-5 - SCALE FACTOR (-19..20), NO. OF DECIMAL PLACES T0302053* 4-0 - NUMBER OF DIGITS (0..31) T0302054* T0302055* EXIT T0302056* NORMALLY, THE CONTENTS OF THE DECA ARE STORED INTO THE T0302057* PACKED DECIMAL FIELD. HOWEVER, IF THE DIGIT COUNT EQUALS T0302058* ZERO OR AN OUT-OF-BOUNDS CONDITION EXISTS, THE PACKED DECIMAT0302059* FIELD REMAINS UNCHANGED. T0302060* T0302061* REGISTERS DESTROYED - A, Q, R1, R2, R3 T0302062* REGISTERS PRESERVED - I, R4 T0302063* T0302064*** T0302065 EBOX T0302066 EJECT T0302067 BOX T0302068 T0302069 S T O R E I N S T R U C T I O N 0F0D T0302070 T0302071 EBOX T0302072 SPACE 2 T0302073 BOX T0302074 T0302075 INITIALIZATION T0302076 T0302077 EBOX T0302078 DST RTJ RES J CHECK FOR RESUME T0302079+ DST010 J INTERRUPTED, NOW T0302080- ZERO X RTJ INI010 J 1ST ENTRY, INITIAT0302081+ ZERO F N=F2TARX N = F2 PTR T0302082 A A F F2WR N=F2PUTX INIT. TARGET FLD T0302083 F2WR N=F2REG1 INIT. PUTIX (0..3T0302084 RTJ INI030 J CONTINUE INITIALIT0302085 SPACE 4 T0302086 BOX t  3#w T0302087 T0302088 MAIN LOOP T0302089 T0302090 EBOX T0302091+DST010 RTJ GET J GET NEXT DIGIT T0302092- DST090 J DIGIT CNT = 0, GOT0302093* (ALT. RETURN FRT0302094+ RTJ PUT J PUT DIGIT T0302095+ DST010 J LOOP T0302096 EJECT T0302097 SPACE 3 T0302098 BOX T0302099 T0302100 EOJ T0302101 T0302102 EBOX T0302103- N=F2REG1 N = F2 PTR T0302104 K=10 K = 10 T0302105 ADD+ F2 K A AB = ADDR OF DECAT0302106 READ N=F2PUTX READ ATTR WORD T0302107 B MEM K=0FX NU IS SIGN NEGATIVE T0302108+ K=0DX YES T0302109- A.B F2 BG BG2 ZL TEST PUTIX T0302110+ B K A U PUTIX = 3 T0302111- B K A L8EA L PUTIX = 1 T0302112+ K=0 U SET MASK = 0 T0302113- K=FFX SET MASK = 00FF T0302114+ N=F2TTMP N = F2 PTR T0302115 A+B A F2 A N=F2REG2 COMBINE SIGN AND T0302116 B F2 F N=F2TARX BASE ADDR OF TARGT0302117 ADD+ F F2 F AB = ADDR LAST WDT0302118 READ READ LAST WD OF TT0302119 A.B MEM K X MASK, RESULT = 0 T0302120 B F F AB = ADDR LAST WDT0302121 A+B A X WRITE N=F2PSAV WRITE LAST WD OF T0302122 DST090 SUB- F2 MEM P RNI JL P = P+1, GO TO RNT0302123 EJECT T0302124 BOX T0302125*** T0302126* T0302127* PACK INSTRUCTION T0302128* **************** T0302129* T0302130* FUNCTION T0302131* PACK CONVERTS A NUMERIC ASCII FIELD TO PACKED DECIMAL AND T0302132* LOADS THE RESULT IN A DECIMAL ACCUMULATOR OF T T0302133 A.B MEM K X MASK, RESULT = 0 T0302134 B F F   3#w AB = ADDR LAST WDT0302135 A+B A X WRITE N=F2PSAV WRITE LAST WD OF T0302136 DST090 SUB- F2 MEM P RNI JL P = P+1, GO TO RNT0302137 EJECT T0302138 BOX T0302139*** T0302140* T0302141* PACK INSTRUCTION T0302142* **************** T0302143* T0302144* FUNCTION T0302145* PACK CONVERTS A NUMERIC ASCII FIELD TO PACKED DECIMAL AND T0302146* LOADS THE RESULT IN A DECIMAL ACCUMULATOR (DECA). PRIOR T0302147* TO EXECUTING THE PACK INSTRUCTION, THE SIGN MUST HAVE BEEN T0302148* STRIPPED FROM THE DIGIT IT WAS COMBINED WITH. IF THE SIGN T0302149* IS NEGATIVE, BITS 14-11 OF THE A-REGISTER ARE SET TO $D. T0302150* ANY OTHER VALUE IN BITS 14-11 OF THE A-REGISTER INDICATES T0302151* A POSITIVE SIGN. T0302152* T0302153* NARRATIVE T0302154* ON ENTRY, RESUME IS CALLED. IF THIS IS INITIAL ENTRY, THE T0302155* GENERAL INITIALIZATION ROUTINE IS CALLED. T0302156* T0302157* THE MAIN LOOP CONSISTS OF CALLS TO GET AND PUT. T0302158* T0302159* AT EOJ, THE LAST DIGIT(S) AND THE ATTRIBUTE WORD ARE WRITTENT0302160* TO THE DECA. THEN PACK INCREMENTS THE P-REGISTER BY ONE ANDT0302161* RETURNS TO THE EMULATOR. T0302162* T0302163* ENTRY T0302164* R1 - ADDRESS OF NUMERIC ASCII FIELD T0302165* R2 - ADDRESS OF DECA T0302166* A - BITS T0302167* 15 - BYTE ADDRESS T0302168* 14-11 - SIGN ($D NEGATIVE, ALL OTHERS POSITIVE) T0302169* 10-5 - SCALE FACTOR (-19..20), NO. OF DECIMAL PLACES T0302170* 4-0 - NUMBER OF DIGITS (0..31) T0302171* T0302172* EXIT T0302173* NORMALLY, THE CONTENTS OF THE NUMERIC ASCII FIELD ARE T0302174* CONVERTED AND LOADED INTO THE DECA. HOWEVER, IF THE T0302175* DIGIT COUNT EQUALS ZERO OR AN OUT-OF-BOUNDS CONDITION T0302176* EXISTS, THE DECA IS ZEROED-OUT. T0302177* T0302178* REGISTERS DESTROYED - A, Q, R1, R2, R3 T0302179* REGISTERS PRESERVED - I, R4 T0302180* T0302181*** T0302182 EBOX 8  3#x  T0302183 EJECT T0302184 BOX T0302185 T0302186 P A C K I N S T R U C T I O N 0F0E T0302187 T0302188 EBOX T0302189 SPACE 2 T0302190 BOX T0302191 T0302192 INITIALIZATION T0302193 T0302194 EBOX T0302195 DPK RTJ RES J CHECK FOR RESUME T0302196+ DPK010 J INTERRUPTED, NOW T0302197- RTJ INI J 1ST ENTRY, INITIAT0302198+ B X F N=F2TARX N = F2 PTR T0302199 A P F F2WR N=F2PUTX INIT. DECA (TARGET0302200 A A P F2WR N=F2REG1 INIT. PUTIX (0..3T0302201 ZERO X RTJ INI030 J CONTINUE INITIALIT0302202 SPACE 4 T0302203 BOX T0302204 T0302205 MAIN LOOP T0302206 T0302207 EBOX T0302208+ A+B P BG P BG1 U MAKE GETIX ODD (1T0302209- DPK090 J DIGIT CNT = 0, GOT0302210* (ALT. RETURN FRT0302211+DPK010 RTJ GET J GET NEXT DIGIT T0302212+ ADD+ P ZERO P MAKE GETIX ODD (3T0302213 RTJ PUT J PUT DIGIT T0302214+ DPK010 J LOOP T0302215 EJECT T0302216 SPACE 3 T0302217 BOX T0302218 T0302219 EOJ T0302220 T0302221 EBOX T0302222- N=F2REG2 N = F2 PTR T0302223 B F2 A N=F2TARX A-REG = DECA BASET0302224 ADD+ A F2 F N=F2TTMP AB = DECA ADDR INT0302225 B F2 WRITE K=10 WRITE LAST DIGITST0302226 N=F2SNZ N = F2 PTR T0302227 ADD+ A K A AB = ADDR OF DECAT0302228 B F2 WRITE N=F2PSAV WRITE DECA ATTR. T0302229 DPK090 SUB- F2 MEM P RNI JL P = P+1, GO TO RNT0302230 EJECT F  3#x T0302231 BOX T0302232*** T0302233* T0302234* UNPACK INSTRUCTION T0302235* ****************** T0302236* T0302237* FUNCTION T0302238* UNPACK CONVERTS THE VALUE CONTAINED IN A DECIMAL ACCUMULATORT0302239* (DECA) FROM PACKED DECIMAL TO ASCII AND STORES THE RESULT T0302240* IN THE TARGET FIELD. THE SIGN IS COMBINED WITH THE LOW-ORDET0302241* NUMERIC CHARACTER. T0302242* T0302243* NARRATIVE T0302244* ON ENTRY, RESUME IS CALLED. IF THIS IS INITIAL ENTRY, T0302245* THE X-REGISTER IS SET ZERO AND THE GENERAL INITIALIZATION T0302246* ROUTINE IS CALLED. T0302247* T0302248* THE MAIN LOOP GETS THE NEXT DIGIT, MASKS ON $30, AND COMBINET0302249* THE RESULT WITH THE PRIOR DIGIT (IF THERE IS ONE). THE RESUT0302250* ($3D00 OR TT3D) IS LEFT IN THE A-REGISTER. THE PUT INDEX IST0302251* INCREMENTED BY TWO (WILL BE 2 OR 4) AND THE PUT ROUTINE IS T0302252* ENTERED AT PUT010. T0302253* T0302254* AT EOJ, THE SIGN IS COMBINED WITH THE LAST DIGIT OF THE T0302255* FIELD, AND THE RESULT EITHER RE-COMBINED WITH THE PRIOR T0302256* DIGIT OR IF THE LAST DIGIT IS A LEFT-BYTE, IT IS COMBINED T0302257* WITH THE RIGHT-BYTE FROM THE WORD TO BE STORED INTO. THE T0302258* RESULT OF THE PRECEDING IS WRITTEN TO THE TARGET FIELD. T0302259* THEN UNPACK INCREMENTS THE P-REGISTER BY ONE AND RETURNS T0302260* TO THE EMULATOR. T0302261* T0302262* ENTRY T0302263* R1 - ADDRESS OF DECA T0302264* R2 - ADDRESS OF NUMERIC ASCII FIELD T0302265* A - BITS T0302266* 15 - BYTE ADDRESS T0302267* 14-11 - NOT USED T0302268* 10-5 - SCALE FACTOR (-19..20), NO. OF DECIMAL PLACES T0302269* 4-0 - NUMBER OF DIGITS (0..31) T0302270* T0302271* EXIT T0302272* NORMALLY, THE CONTENTS OF THE DECA ARE CONVERTED AND STORED T0302273* INTO THE NUMERIC ASCII FIELD. HOWEVER, IF THE DIGIT COUNT T0302274* EQUALS ZERO OR AN OUT-OF-BOUNDS CONDITION EXISTS, THE NUMERIT0302275* ASCII FIELD REMAINS UNCHANGED. T0302276* T0302277* REGISTERS DESTROYED - A, Q, R1, R2, R3 T0302278* REGISTERS PRESERVED - I, R4  3#x2 T0302279* T0302280*** T0302281 EBOX T0302282 EJECT T0302283 BOX T0302284 T0302285 U N P A C K I N S T R U C T I O N 0F0F T0302286 T0302287 EBOX T0302288 SPACE 2 T0302289 BOX T0302290 T0302291 INITIALIZATION T0302292 T0302293 EBOX T0302294 DUN RTJ RES J CHECK FOR RESUME T0302295+ DUN010 J INTERRUPTED, NOW T0302296- ZERO X RTJ INI010 J 1ST ENTRY, INITIAT0302297+ ZERO F N=F2TARX N = F2 PTR T0302298 A A F F2WR N=F2PUTX INIT. TARGET FLD T0302299 F2WR N=F2REG1 INIT. PUTIX (0/1 T0302300 RTJ INI030 J CONTINUE INITIALIT0302301 SPACE 4 T0302302 BOX T0302303 T0302304 MAIN LOOP T0302305 T0302306 EBOX T0302307+DUN010 RTJ GET J GET NEXT DIGIT T0302308- DUN090 J DIGIT CNT = 0, GOT0302309* (ALT. RETURN FRT0302310+ N=F2TTMP N = F2 PTR T0302311 A+B A F2 A K=30X COMBINE DIG W/PRIT0302312 N=F2PUTX N = F2 PTR T0302313 A.B F2 BG BG2 ZL IS PUTIX = 2 T0302314+ A+B A K A U YES, A = TT3D T0302315- A+B A K A L8EA NO, A = 3D00 T0302316+ ADD F2 BG F BG2 F = PUTIX + 2 T0302317 RTJ PUT010 J GO TO PUT ROUTINET0302318+ DUN010 J LOOP T0302319 EJECT T0302320 SPACE 3 T0302321 BOX T0302322 T0302323 EOJ T0302324 T0302325 EBOX T0302326- N=F2TTMP+  3#xF N = F2 PTR T0302327 A F2 A GATEI N=F2PUTX I = TARGET TEMP T0302328 A.B F2 BG BG2 ZL IS PUTIX = 2 T0302329+ A A A L8EA YES T0302330- K=0FX K = MASK T0302331 A.B A K A A = 000D T0302332 N=F2REG1 N = F2 PTR T0302333 K=10 K = 10 T0302334 ADD+ F2 K F AB = ADDR OF DECAT0302335 READ READ DECA ATTR WOT0302336 B MEM NU TEST SIGN T0302337+ A A K=49X ZL SIGN IS NEG., IS T0302338- K=30X SIGN IS POS. T0302339+ ADD A K A L A = 00DD T0302340- K=7DX K = 7D (MINUS ZERT0302341+ B K A A = 007D T0302342- N=F2REG2 N = F2 PTR T0302343 B F2 F N=F2TARX F = BASE ADDR OF T0302344 ADD+ F F2 F N=F2PUTX F = ADDR LAST WD T0302345 A.B F2 BG BG2 ZL IS PUTIX = 2 T0302346+ A A A L8EA L YES, A = DD00 T0302347- ZERO Q N=FFX NO T0302348+ A.B I N X U X = DD00 T0302349- B F F L AB = ADDR LAST WDT0302350+ A+B A X A L A = DDDD T0302351- READ K=FFX READ LAST WORD OFT0302352+ A.B MEM K Q Q = 00TT T0302353- B F F AB = ADDR LAST WDT0302354 A+B A Q WRITE N=F2PSAV WRITE LAST DIGIT T0302355 DUN090 SUB- F2 MEM P RNI JL P = P+1, GO TO RNT0302356 EJECT T0302357 BOX T0302358*** T0302359* T0302360* SUBROUTINE GENERAL INITIALIZATION T0302361* ********************************* T0302362* T0302363* THIS ROUTINE IS ENTERED AT INI BY LOAD AND PACK WHICH CLEARS T0302364* THE DECIMAL ACCUMULATOR TO ZERO. T0302365* T0302366* STORE AND UNPACK ENTER AT INI010 (WITH THE X-REGISTER EQUAL T0302367* ZERO). THE ADDRESSES CONTAINED IN BOTH R1 AND R2 ARE DECREMENT0302368* BY ONE USING SUB-. THE DECREMENTED ADDRESSES ALLOW INDEXING T0302369* TO TAKE PLACE USING ADD+ INSTEAD OF ADD WHICH PROVIDES FOR T0302370* WRAP-AROUND IN THE CASE ...,FFFE,FFFF,0000,0001,... T0302371* T0302372* THE DIGIT COUNT IS STORED IN THE Q-REGISTER. THE SIGN IS T0302373* CHECKED AND SAVED IN A FILE 2 TEMP. THE DECA INDEX (0..39) T0302374* IS COMPUTED AND CHECKED FOR LEGALITY (5  3#xZERRORS ARE - DECA INDEX T0302375* LESS THAN ZERO, DECA INDEX GREATER THAN 39, DECA INDEX IN T0302376* CONJUNCTION WITH DIGIT COUNT REQUIRES STORING ACROSS LOWER T0302377* BOUND OF DECA. IF AN ERROR (OR OUT-OF-BOUNDS CONDITION) IS T0302378* DETECTED, THE DIGIT COUNT IS SET ZERO. T0302379* T0302380* THE A-REGISTER IS SET TO A FIELD DIGIT INDEX (0..3) BASED T0302381* ON BYTE ADDRESS AND ODD/EVEN DIGIT COUNT. THE X-REGISTER T0302382* IS SET TO A DECA WORD INDEX (0..9) AND THE P-REGISTER TO T0302383* A DECA DIGIT INDEX (0..3). T0302384* T0302385* THE GENERAL INITIALIZATION ROUTINE THEN RETURNS TEMPORARILY T0302386* TO THE CALLING ROUTINE FOR DISPOSITION OF THE VALUES IN THE T0302387* A, P, AND X REGISTERS. T0302388* T0302389* THE ROUTINE IS RE-ENTERED AT INI030. THE VARIOUS WORD AND T0302390* DIGIT INDICES HAVE NOW BEEN SET BY THE CALLING ROUTINE (AND T0302391* THE N-REGISTER HAS BEEN SET FOR R1). THE FIRST SOURCE WORD T0302392* IS READ AND STORED IN THE I-REGISTER. IF THE FIRST DIGIT T0302393* IS TO BE WRITTEN INTO THE LOWER HALF OF THE FIRST TARGET T0302394* FIELD WORD, THAT WORD IS READ UP, THE LOWER HALF MASKED OFF, T0302395* AND THE RESULT SAVED IN A FILE 2 TEMP (TARGET TEMP). T0302396* T0302397* IF THE DIGIT COUNT EQUALS ZERO, RETURN IS LOWER - OTHERWISE, T0302398* RETURN IS UPPER. (THE N-REGISTER IS SET TO F2PSAV ON EXIT.) T0302399* T0302400*** T0302401 EBOX T0302402 EJECT T0302403 BOX T0302404 T0302405 GENERAL INITIALIZATION T0302406 T0302407 EBOX T0302408+INI N=F2REG2 N = F2 PTR T0302409- B F2 F N=10 SET LOOP COUNT T0302410+ ZERO X WRITE WRITE ZERO TO DECT0302411- ADD+ F ZERO F RPT U REPEAT, SET AB T0302412 SPACE 1 T0302413+INI010 ADD+ X X X N=F2REG1 N = F2 PTR, X = 1T0302414 SUB- F2 X P N=F2REG2 R1 ADDR - 1 T0302415 SUB- F2 X F R2 ADDR - 1 T0302416 A P F F2WR N=F2REG1 SET R2 ADDR - 1 T0302417 ZERO P F2WR N=78X SET R1 ADDR - 1, T0302418 A A K=1FX NU IS BYTE ADDR SPECT0302419+ B BG P BG2 YES, P = 2 T0302420- A.B A K Q Q = DIGIT COUNT T0302421 A.B A N X N=68X ISOLATE SIGN T0302422 EOR X N Њ  3#xn ZL IS SIGN NEGATIVE T0302423+ ZERO F U NO T0302424- B BG F BG8000X YES, SET SIGN BITT0302425+ N=F2SNZ N = F2 PTR T0302426 F2WR N=5 INIT. SIGN/NONZERT0302427 AL0E N=10 LEFT JUSTIFY SCALT0302428 ARSE K=20 SIGN EXTEND SCALET0302429 ADD A K X 20 + S/F T0302430 SUB X Q X K=40 NU X = 20 + S/F - DIT0302431* (X = DECAIX (0.T0302432* (IS DECAIX .LT.T0302433+ ZERO Q INI020 J YES, SET DIGCNT =T0302434- SUB X K F NU IS DECAIX .LT. 40T0302435+ ADD F Q F NU YES, OP CROSS DECT0302436- ZERO Q INI020 J NO, SET DIGCNT = T0302437+ INI020 J NO T0302438- B F F ZL OP STOP AT DECA BT0302439+ ZERO Q NO, SET DIGCNT = T0302440-INI020 A P A LQL IS DIGIT COUNT ODT0302441+ ADD+ A ZERO A A = FLD DIG INX (T0302442- K=3 K = MASK T0302443 A.B X K P P = DECA DIG INX T0302444 B X X RROE DIVIDE BY 2 T0302445 B X X RR0E RU X = DECA WRD INX T0302446* (RETURN) T0302447 EJECT T0302448 SPACE 3 T0302449 BOX T0302450 T0302451 RE-ENTER INITIALIZATION T0302452 T0302453 EBOX T0302454 INI030 ADD+ X F2 F AB = SOURCE ADDR T0302455 ZERO A READ READ 1ST SOURCE WT0302456 A MEM GATEI N=F2TARX I = 1ST SOURCE WOT0302457 B F2 F N=F2PUTX F = TARGET WRD INT0302458 A.B F2 BG BG2 ZL PUTIX = 2 OR 3 T0302459+ N=F2REG2 U YES T0302460- ZERO A INI040 J NO T0302461+ ADD+ F F2 F AB = TARGET ADDR T0302462 READ N=FFX READ 1ST TARGET WT0302463 A.B MEM N A A = TT00 T0302464 INI040 A A F N=F2TTMP N = F2 PTR T0302465 F2WR N=F2PSAV TARGET TEMP = 0 OT0302466 B Q RZL RETURN (LOWER IF T0302467 EJECT T0302468 BOX T0302469*** T0302470*   3#x T0302471* SUBROUTINE GET DIGIT T0302472* ******************** T0302473* T0302474* ON ENTRY, THE GET INDEX IS TESTED FOR FOUR. IF IT IS FOUR T0302475* (FIVE FOR PACK), THEN THE SOURCE FIELD INDEX IS INCREMENTED T0302476* BY ONE, ADDED TO THE SOURCE FIELD BASE ADDRESS, AND THE NEXT T0302477* WORD IS READ FROM THE SOURCE FIELD. GET INDEX IS CLEARED TO T0302478* ZERO (ONE FOR PACK) AND THE SOURCE WORD IS STORED IN THE T0302479* I-REGISTER. T0302480* T0302481* THE DIGIT CORRESPONDING TO THE VALUE OF GET INDEX (0..3) IS T0302482* EXTRACTED FROM THE CURRENT SOURCE WORD IN THE I-REGISTER T0302483* AND PLACED RIGHT-JUSTIFIED WITH LEADING ZEROS IN THE A-REGISTET0302484* GET INDEX IS INCREMENTED BY ONE AND THE NON-ZERO BIT SET IF T0302485* THE DIGIT IS NON-ZERO. GET THEN RETURNS UPPER. T0302486* T0302487*** T0302488 EBOX T0302489 EJECT T0302490 BOX T0302491 T0302492 GET DIGIT T0302493 T0302494 EBOX T0302495+GET N=F2REG1 N = F2 PTR T0302496- A.B P BG BG4 ZL IS GETIX = 4 T0302497* (OR 5 FOR PACK)T0302498+ ADD+ X ZERO X U YES, INCR. SOURCET0302499- GET010 J NO T0302500+ ADD+ F2 X A AB = SOURCE ADDR T0302501 EOR P BG P READ BG4 READ SOURCE WORD,T0302502* (OR GETIX = 1 FT0302503 A MEM GATEI I = CURR. SOURCE T0302504 SPACE 1 T0302505 GET010 A.B P BG BG1 ZL TEST GETIX T0302506+ A I A N=F2SNZ L GETIX = 1,3 T0302507- A I A N=4 GETIX = 0,2 T0302508+ AREA N=F2SNZ RIGHT SHIFT 1 DECT0302509- A.B P BG BG2 ZL TEST GETIX T0302510+ K=0FX U GETIX = 2,3 T0302511- A A A L8EA K=0FX GETIX = 0,1 T0302512+ B F2 F F = SIGN/NONZERO T0302513 A.B A K A ZL A = 000D, IS DIG.T0302514+ A+B F BG F BG2000X DIG. NONZERO, SETT0302515- ADD+ P ZERO P F2WR RU UPDATE GETIX/SNZ,T0302516 EJECT T0302517 BOX T0302518***   3#x T0302519* T0302520* SUBROUTINE PUT DIGIT T0302521* ******************** T0302522* T0302523* ON ENTRY, THE A-REGISTER CONTAINS A DIGIT (RIGHT-JUSTIFIED T0302524* WITH LEADING ZEROS) TO BE STORED IN THE TARGET FIELD (EITHER T0302525* A DECIMAL ACCUMULATOR OR A NUMERIC FIELD). T0302526* T0302527* THE DIGIT IS POSITIONED FOR STORING IN A FILE 2 TEMP ACCORDINGT0302528* TO THE PUT INDEX VALUE (0..3). THE DIGIT IS THEN COMBINED T0302529* WITH PRIOR DIGITS AND STORED IN THE TEMP. PUT INDEX IS T0302530* INCREMENTED BY ONE. T0302531* T0302532* AT THIS POINT THE DIGIT COUNT IS DECREMENTED BY ONE, AND THE T0302533* NEW VALUE TESTED FOR ZERO. IF IT IS ZERO, PUT RETURNS LOWER T0302534* (TO THE FIRST INSTRUCTION OF THE CALLING ROUTINES EOJ LOGIC). T0302535* IF IT IS NON-ZERO, PUT INDEX IS TESTED FOR FOUR. IF THE PUT T0302536* INDEX DOES NOT EQUAL FOUR (THEREFORE 1..3), PUT RETURNS UPPER,T0302537* OTHERWISE, PUT INDEX EQUALS 4 WHICH IMPLIES THAT THE TEMP IS T0302538* FILLED UP AND IS READY TO BE WRITTEN TO THE TARGET FIELD. T0302539* T0302540* THE TARGET FIELD INDEX IS ADDED TO THE TARGET FIELD BASE T0302541* ADDRESS AND THE TEMP IS WRITTEN TO THE TARGET FIELD. THE T0302542* TARGET FIELD INDEX IS INCREMENTED BY ONE AND THE TEMP AND T0302543* PUT INDEX CLEARED TO ZERO. T0302544* T0302545* IF NO INTERRUPTS ARE PENDING, PUT RETURNS UPPER. IF INTERRUPTT0302546* ARE PENDING, THE GET INDEX (0..3), SOURCE INDEX, AND SIGN AND T0302547* NON-ZERO BITS ARE SAVED IN R3, AND THE DIGIT COUNT AND TARGET T0302548* INDEX ARE SAVED IN Q-REG. THE A-REGISTER IS SET TO $FFFF, THET0302549* P-REGISTER RESTORED (STILL POINTS TO CURRENT INSTRUCTION), ANDT0302550* THEN PUT EXITS TO THE EMULATOR. T0302551* T0302552* WHEN THE CURRENT INSTRUCTION IS AGAIN STARTED INTO EXECUTION, T0302553* RESUME WILL RESTORE THE FILE 2 TEMPS AND THE REGISTERS. T0302554* T0302555* (PUT010 IS AN ALTERATE ENTRY POINT USED BY UNPACK.) T0302556* T0302557* (TESTING FOR DIGIT COUNT EQUAL TO ZERO PRIOR TO TESTING PUT T0302558* INDEX FOR FOUR INSURES THAT THE LAST DIGITS OF THE FIELD ARE T0302559* IN THE TARGET TEMP WHEN THE CALLING ROUTINES EOJ LOGIC IS ENTT0302560* T0302561*** T0302562 EBOX T0302563 EJECT T0302564 BOX T0302565 T0302566 PUT DIGIT 5  3#x T0302567 T0302568 EBOX T0302569 PUT N=F2PUTX N = F2 PTR T0302570 A.B F2 BG BG2 ZL TEST PUTIX T0302571+ A A F U PUTIX = 2,3 T0302572- A A F L8EA PUTIX = 0,1 T0302573+ A.B F2 BG BG1 ZL TEST PUTIX T0302574+ L PUTIX = 1,3 T0302575- ADD F F F RL0E PUTIX = 0,2 T0302576+ ADD F F F RL0E (LEFT SHIFT DIG. T0302577- N=F2TTMP N = F2 PTR (TARGET0302578 A+B F2 F A N=F2PUTX OR IN NEW DIGIT T0302579 ADD+ F2 ZERO F INCR. PUTIX T0302580 PUT010 A A F F2WR N=F2TTMP UPDATE PUTIX T0302581 F2WR UPDATE TARGET TEMT0302582 B Q F N=F2PUTX DIGCNT TO F T0302583 SUB F BG Q BG1 ZL Q = DIGCNT - 1, (T0302584+ A.B F2 BG BG4 ZL IS PUTIX = 4 T0302585- RL DIGCNT = 0, RETURT0302586+ N=F2REG2 U YES T0302587- RU NO, RETURN T0302588 SPACE 1 T0302589+ B F2 A N=F2TARX A = TARGET BASE AT0302590 ADD+ A F2 A N=F2TTMP AB = TARGET ADDR T0302591 B F2 WRITE N=F2TARX WRITE WORD TO TART0302592 ADD+ F2 ZERO F INCR. TARGET INDET0302593 ZERO F F2WR N=F2TTMP UPDATE TARGET INDT0302594 F2WR N=F2PUTX TARGET TEMP = 0 T0302595 A P F F2WR INTU PUTIX = 0 T0302596* (ANY INTERRUPTST0302597+ ADD F F F RL0E U YES T0302598- RU NO, RETURN T0302599 SPACE 1 T0302600+ ADD F F F RL0E LEFT SHIFT GETIX T0302601 A+B F X F N=F2SNZ COMBINE GETIX ANDT0302602 A+B F F2 F N=F2REG3 AND SIGN/NONZERT0302603 B Q A F2WR N=4 SAVE IN R3-REG T0302604 AL0E N=F2TARX DIGCNT LEFT SHIFTT0302605 A+B A F2 Q SAVE DIGCNT,TARX T0302606 ONE A N=F2PSAV A = FFFF T0302607 B F2 P RNI JL RESTORE P-REG T0302608* (EXIT TO EMULATT0302609 EJECT T0302610 BOX T0302611*** T0302612* T0302613* SUBROUTINE RESUME T0302614* ***************** *  3#x T0302615* T0302616* RESUME DETERMINES IF THE CALLING ROUTINE HAS BEEN INTERRUPTED T0302617* AND IS NOW BEING RESUMED. IF SO, IT RE-INITIALIZES THE REGISTT0302618* AND FILE 2 BEFORE RETURNING TO THE CALLER. T0302619* T0302620* IF THE A-REGISTER EQUALS $FFFF, THE INSTRUCTION IS BEING RESUMT0302621* RESUME RE-INITIALIZES IN THE FOLLOWING WAY - T0302622* T0302623* . TARGET FIELD INDEX RESTORED FROM LOWER 4 BITS OF THE Q-REGT0302624* . PUT INDEX SET ZERO T0302625* . TARGET TEMP SET ZERO T0302626* . DIGIT COUNT RIGHT SHIFTED 4 PLACES IN THE Q-REGISTER T0302627* . SIGN AND NON-ZERO BITS RESTORED FROM BITS 15 AND 13 OF R3 T0302628* . SOURCE INDEX RESTORED FROM LOWER 4 BITS OF R3 T0302629* . GET INDEX RESTORED FROM BITS (6..4) OF R3 T0302630* . SOURCE TEMP RESTORED FROM MAIN MEMORY T0302631* T0302632* RESUME SAVES THE P-REGISTER IN FILE 2. PRIOR TO ENTERING T0302633* RESUME THE P-REGISTER HAS BEEN STORED IN THE F-REGISTER AND T0302634* THE N-REGISTER SET TO F2PSAV. T0302635* T0302636* RESUME RETURNS UPPER IF THE INSTRUCTION IS BEING RESUMED, T0302637* LOWER IF THE INSTRUCTION IS BEING INITIATED. T0302638* T0302639*** T0302640 EBOX T0302641 EJECT T0302642 BOX T0302643 T0302644 RESUME T0302645 T0302646 EBOX T0302647+RES B Q F F2WR SAVE P-REG IN F2 T0302648 -EOR A ZERO K=0FX ZL IS RESUME FLAG SET0302649+ RL NO, RETURN LOWER T0302650- A.B F K F N=F2TARX YES, ISOLATE TAR T0302651 ZERO F F2WR N=F2PUTX SET TARGET FLD INT0302652 F2WR N=F2TTMP PUTIX = 0 T0302653 B Q A F2WR N=4 TARGET TEMP = 0 T0302654 AR0E K=A0X RIGHT JUSTIFY DIGT0302655 A A Q N=F2REG3 Q = DIGIT COUNT T0302656 B F2 A L8EA N=0 A = R3-REG T0302657 A.B A N,K F L8EA N=F2SNZ ISOLATE SIGN/NONZT0302658 F2WR N=0FX RESTORE SIGN/NONZT0302659 A.B A N X L8EA RESTORE SOURCE INT0302660 A A A L8EA N=4 N = SHIFT COUNT T0302661 AR0E K=07X RIGHT JUSTIFY GETT0302662 A.B A K P m  3#x P = GETIX T0302663 ZERO F N=F2REG1 N = F2 PTR, (ENABT0302664 ADD+ F2 X F AB = SOURCE FLD AT0302665 READ READ SOURCE WORD T0302666 A MEM GATEI RU RESTORE SOURCE TET0302667* (RETURN) T0302668 EJECT T0302669 BOX T0302670*** T0302671* T0302672* REGISTER COMPARE INSTRUCTIONS T0302673* ***************************** T0302674* T0302675* FUNCTION T0302676* THE REGISTER COMPARE ROUTINE COMPARES TWO REGISTERS AND SETST0302677* A CONDITION CODE. T0302678* T0302679* NARRATIVE T0302680* THE MAGNITUDES OF THE TWO DECIMAL ACCUMULATORS WHOSE ADDRESST0302681* ARE IN R1 AND R2 ARE COMPARED WORD-BY-WORD FROM LEFT TO RIGHT0302682* IF THE MAGNITUDES ARE EQUAL, THE SIGNS ARE COMPARED AND THE T0302683* CONDITION CODE SET. IF THE MAGNITUDES ARE NOT EQUAL, THE TWT0302684* WORDS INVOLVED ARE SUBTRACTED FROM EACH OTHER IN DECIMAL MODT0302685* AND THE SIGN OF THE PERTINENT DECA CHECKED AND THE CONDITIONT0302686* CODE SET. T0302687* T0302688* TRANSFORM TMA/2 IS USED TO BRANCH INTO THE REGISTER COMPARE T0302689* INSTRUCTION TABLE. TMA/2 USES THE IXT REGISTER WHICH CONTAIT0302690* THE LOWER 3 BITS OF THE MACRO INSTRUCTION. T0302691* T0302692* CONDITION CODES ARE - T0302693* FFFE - DECA1 EQUALS DECA2 T0302694* 0000 - DECA1 GREATER THAN DECA2 T0302695* FFFF - DECA1 LESS THAN DECA2 T0302696* T0302697* ENTRY T0302698* R1 - ADDRESS OF DECA1 T0302699* R2 - ADDRESS OF DECA2 T0302700* T0302701* EXIT T0302702* REGISTERS DESTROYED - NONE T0302703* REGISTERS PRESERVED - A, Q, I, R1, R2, R3, R4 T0302704* T0302705*** T0302706 EBOX T0302707 EJECT T0302708 BOX T0302709 T0302710 R E G I S T E R S K I P ( C O M P A Rn  3#x E ) I N S T R U C T IT0302711 T0302712 EBOX T0302713+DCP N=F2REG1 N = F2 PTR T0302714- B F2 F N=F2REG2 F = DECA1 ADDR T0302715+ SUB- F BG F BG1 F = DECA1 ADDR - T0302716- B F2 X N=10 L X,AB = DECA2 ADDRT0302717+DCP010 DCP020 J DECA1 .NE. DECA2 T0302718- SUB- F MEM F READ READ DECA2 WORD T0302719+ MEM GATEI K=9 I = DECA2 WORD T0302720- SUB- X MEM X READ DECN NZU READ DECA1 WORD T0302721+ DCP030 J MAG. DECA1 .EQ. DT0302722- EOR I MEM DCP010 JZL IS DECA1 WRD = DET0302723+DCP020 A+B SM1 BG SM1 DECARITH SET DECIMAL ARITHT0302724- A.-B SM1 BG SM1 OVERFLOW CLEAR OVERFLOW T0302725+ B F F AB = DECA1 ADDR T0302726- READ READ DECA1 WORD T0302727+ SUB I MEM F DECA2 MINUS DECA1T0302728- SUBT F F1 F ADD CORRECTION T0302729+ A.-B SM1 BG SM1 DECARITH CLEAR DECIMAL ARIT0302730- A.-B SM1 BG SM1 OVERFLOW OVFL CLR/CHK OVERFLOW T0302731+ ONE X N=F2REG2 U MAG. DECA1 .LT. DT0302732- ZERO X N=F2REG1 MAG. DECA1 .GT. DT0302733+ ADD+ F2 K F AB = ADDR OF DECAT0302734- READ READ DECA1/2 ATTRT0302735+ B MEM NU IS SIGN NEGATIVE T0302736+ -B X X YES, REVERSE CONDT0302737- CPAG2 TMA/2 L TRANSFORM TO REG.T0302738+DCP030 N=F2REG1 N = F2 PTR T0302739 ADD+ F2 K F AB = ADDR OF DECAT0302740 READ N=F2REG2 READ DECA1 ATTR. T0302741 A.B MEM BG F BG8000X F = SIGN OF DECA1T0302742 ADD+ F2 K X AB = ADDR OF DECAT0302743 READ K=1 READ DECA2 ATTR. T0302744 A.B MEM BG X BG8000X X = SIGN OF DECA2T0302745 EOR X F N=0 ZL ARE SIGNS THE SAMT0302746+ B F NU NO, IS DECA1 NEGAT0302747- -B N,K X CPAG2 TMA/2 L YES, DECA1 .EQ. DT0302748+ ONE X CPAG2 TMA/2 L YES, DECA1 .LT. DT0302749-DCP099 ZERO X CPAG2 TMA/2 L NO, DECA1 .GT. DET0302750 EJECT T0302751 BOX T0302752 T0302753 REGISTER SKIP (COMPARE) TABLE T0302754 T0302755 CONDITION CODE CONTAINED IN X-REG T0302756 FFFE (DECA1 .EQ. DECA2) T0302757 0000 (DECA1 .GT. DECA2) T0302758 FFFF (DECA1 .LT. DECA2) g  3#x T0302759 T0302760 EBOX T0302761 SPACE 2 T0302762 ORG SSKTRTBL T0302763 SPACE 1 T0302764-DEQINSTR SUB- X MEM X CMPNE JNU SKIP IF EQUAL T0302765 SPACE 1 T0302766-DNEINSTR SUB- X MEM X CMPEQ JNU SKIP IF NOT EQUALT0302767 SPACE 1 T0302768-DLEINSTR B X CMPNE JZL SKIP IF LESS OR ET0302769 SPACE 1 T0302770-DLTINSTR -B X CMPEQ JZL SKIP IF LESS THANT0302771 SPACE 1 T0302772-DGEINSTR -B X CMPNE JZL SKIP IF GREATER OT0302773 SPACE 1 T0302774-DGTINSTR B X CMPEQ JZL SKIP IF GREATER TT0302775 SPACE 1 T0302776 ORG DCP099+1 T0302777 EJECT T0302778 BOX T0302779*** T0302780* T0302781* SKIP ON OVERFLOW INSTRUCTION T0302782* **************************** T0302783* T0302784* FUNCTION T0302785* THIS ROUTINE CHECKS A DECIMAL ACCUMULATOR FOR OVERFLOW. T0302786* T0302787* NARRATIVE T0302788* THE OVERFLOW BIT OF THE DECIMAL ACCUMULATOR WHOSE ADDRESS T0302789* IS IN R1 IS TESTED. IF THE OVERFLOW BIT IS ON, ONE T0302790* INSTRUCTION (ONE WORD) IS SKIPPED, OTHERWISE, THE NEXT T0302791* INSTRUCTION IS EXECUTED. T0302792* T0302793* ENTRY T0302794* R1 - ADDRESS OF DECA T0302795* T0302796* EXIT T0302797* REGISTERS DESTROYED - NONE T0302798* REGISTERS PRESERVED - A, Q, I, R1, R2, R3, R4 T0302799* T0302800*** T0302801 EBOX T0302802 EJECT T0302803 BOX T0302804 T0302805 SKIP ON OVERFLOW 0F11 T0302806 .  3#y T0302807 EBOX T0302808 SPACE 1 T0302809 DOV N=F2REG1 N = F2 PTR T0302810 K=9 K = INDEX TO DECAT0302811 ADD+ F2 K F AB = ADDR. OF DECT0302812 B BG X READ BG4000X READ DECA ATTR. WT0302813 A.B MEM X CMPNE JZL SKIP ON OVFL T0302814 SPACE 2 T0302815 END T0302816 IDENT MICROS E09 M DRVR CCS 3.0 SL-149B3100001* MICRO SUBROUTINES B3100002* CREDIT COLLECTION SYSTEM VERSION 3.0 B3100003* DATA SYSTEMS-LA JOLLA DIVISION, LA JOLLA, CALIFORNIA B3100004* COPYRIGHT CONTROL DATA CORPORATION 1977 B3100005* B3100006* B3100007 ENT MICROS B3100008- RELO CHECKSM PG1-2 LOADER INFO B3100009 CPR 1977 B3100010 SPACE 2 B3100011 BOX B3100012 MICRO-SUBROUTINES B3100013 ----- ----------- B3100014 CALL B3100015 4-REG = ADDRESS OF STARTM B3100016 A-REG = SUBROUTINE INDEX B3100017 O= SPARE B3100018 1= INTERRUPT CP B3100019 2= ACKNOWLEDGE CP INTERRUPT B3100020 3= MASTER CLEAR CP B3100021 4= START CP B3100022 5= SPARE B3100023 6= SPARE B3100024 7= MOVE MAIN MEMORY WORDS B3100025 8= SET UP ROUTINE FOR ADT INTERRUPT B3100026 9 TO 15 = SPARE B3100027 * B3100028 * B3100029 TIMESHARE 3.0 DRIVER ADT INTERRUPT RESPONSE. B3100030 --------- --- ------ --- --------- -------- B3100031 * B3100032 REQUIRED IF DRIVER IS USED FROM BACKGROUND AND B3100033 DATA TRANSFER IS DIRECT TO PAGED MEMORY. B3100034 * B3100035 PROCESSING OF MICRO INTERRUPT INCLUDES B3100036 1. SAVE CURRENT CPU STATE- B3100037 ABSOLUTE, PAGE MODE 0, PAGE MODE 1 B3100038 2. SET ABSOLUTE MODE \7  3#y" B3100039 3. PROCESS DATA LIKE THE EMULATOR B3100040 4. RESTORE CPU STATE B3100041 * B3100042 * B3100043 PROGRAM MUST RESIDE WITHIN ONE PAGE BUT LOCATION OF B3100044 STARTM NEED NOT BE AT PAGE LOCATION ZERO. B3100045 LOADER USES FIRST TWO INSTRUCTIONS TO CALCULATE B3100046 LOAD ADDRESS AND LENGTH. LOADER LOADS FROM STARTM B3100047 TO AND INCLUDING ENDM. LOADER RECORDS LOCATION B3100048 OF STARTM FOR USE BY CALLER IN SETTING 4-REG. B3100049 * B3100050 FILE ONE USEAGE B3100051 ---- --- ------ B3100052 WORD 0-24 USED FOR ADT INTERRUPT PROCESSING B3100053 WORD 25 USED BY MOVE SUBROUTINE B3100054 EBOX B3100055 EJECT B3100056 BOX B3100057 EQUIVALENCES B3100058 EBOX B3100059 PAGE EQU AX B3100060 PG1 EQU PAGE*100X B3100061 PAG EQU PG1/100X B3100062 SPACE 1 B3100063* STATUS MODE REGISTER ONE B3100064 NREGTOBG EQU 2 ENABLE N REG TO BIT GENERATOR B3100065 SPACE 1 B3100066* STATUS MODE REGISTER TWO B3100067 ADTLINE EQU 0 ENABLE AUTO DATA TRANSFER B3100068 STROBE EQU 1 STROBE DATA TO/FROM MO5 B3100069 TERMLINE EQU 3 TERMINATE I/O TRANSFER B3100070 SPACE 1 B3100071* STATUS MODE FLAGS B3100072 BGN EQU 0+NREGTOBG ENABLE N REG TO BIT GENERATOR B3100073 SADT EQU 4+ADTLINE ENABLE AUTO DATA TRANSFER B3100074 SSTB EQU 4+STROBE STROBE DATA TO/FROM MO5 DEVICE B3100075 TERM EQU 4+TERMLINE TERMINATE I/O TRANSFER B3100076 SPACE 1 B3100077* FILE 2 REGISTER INDEXES B3100078 F2REG1 EQU 1 1-REG B3100079 F2REG2 EQU 2 2-REG B3100080 F2REG3 EQU 3 3-REG B3100081 F2REG4 EQU 4 4-REG B3100082 F2QSAV EQU 5 SAVE Q B3100083 F2ASAV EQU 6 SAVE A B3100084 F2TATA EQU 17 AUTO DATA TRANSFER TABLE ADDRESS B3100085 F2TABN EQU 18 ADT BLOCK NUMBER IN ADT TABLE B3100086 SPACE 1 ;  3#y6 B3100087* EMULATOR EQUATES B3100088 BG8000X EQU 0 B3100089 BG4000X EQU 1 B3100090 BG2000X EQU 2 B3100091 BG1000X EQU 3 B3100092 BG800X EQU 4 B3100093 BG400X EQU 5 B3100094 BG200X EQU 6 B3100095 BG100X EQU 7 B3100096 BG80X EQU 8 B3100097 BG40X EQU 9 B3100098 BG20X EQU 10 B3100099 BG10X EQU 11 B3100100 BG8 EQU 12 B3100101 BG4 EQU 13 B3100102 BG2 EQU 14 B3100103 BG1 EQU 15 B3100104 BG0 EQU 16 B3100105 RRMASK EQU 18X AQ REPLY/REJECT MASK B3100106 IOWAIT EQU 23 AQ INTERNAL REJECT TIMEOUT B3100107 SPACE 1 B3100108* K/N TRANSFORMS B3100109 S2LSB EQU 0 SELECTOR S2 B3100110 SPACE 1 B3100111* EMULATOR ENTRY POINTS B3100112 INSTRINT EQU 5AX EMULATOR PROCESS B3100113 RNI EQU 3EX B3100114 EJECT B3100115 BOX B3100116 ORG MICRO PROGRAM TO START OF PAGE TO BE B3100117 COMPATABLE WITH LOADER. B3100118 EBOX B3100119 ORG PAGE*100X-2 B3100120+LOADVECTR STARTM J USED BY LOADER B3100121 ENDM J USED BY LOADER B3100122 HEX 00000 PRODUCT ID(NONE) B3100123 SPACE 2 B3100124 ORG PG1 B3100125+STARTM K=OFSET K=START OF JUMP TB3100126- ADD A K X ADD OFSET TO SUBRB3100127+ B X PAG TMA/7 U B3100128+BEGIN RNI JL INDEX= 0 B3100129+ INTCP J INTERRUPT CP 1 B3100130+ ACKCP J ACK CP 2 B3100131+ MCLRCP J CLEAR CP 3 B3100132+ STRTCP J START CP 4 B3100133+ RNI JL 5 B3100134+ RNI Z  3#yJ JL 6 B3100135+ MOVE J MOVE 7 B3100136+ SETUP J ADT SET UP 8 B3100137+ RNI JL 9 B3100138+ RNI JL 10B3100139+ RNI JL 11B3100140+ RNI JL 12B3100141+ RNI JL 13B3100142+ RNI JL 14B3100143+ RNI JL 15B3100144 PAGENBR EQU BEGIN/256 PAGE NUMBER B3100145 BPAGADD EQU PAGENBR*256 BEGIN ADDRESS OF B3100146 OFSET EQU BEGIN-BPAGADD JMP TABLE OFSET IB3100147 EJECT B3100148 BOX B3100149 TIMESHARE 3.0 HOST RESIDENT COMMUNICATIONS PROCESSOR B3100150 CONTROL ROUTINES B3100151 CAUSE CP INTERRUPT B3100152 ACKNOWLEDGE CP INTERRUPT B3100153 MASTER CLEAR CP B3100154 START CP B3100155 EBOX B3100156 SPACE 4 B3100157 BOX B3100158 CAUSE CP MACRO INTERRUPT VIA SM206 B3100159 EBOX B3100160 SPACE 2 B3100161+INTCP A+B SM2 BG SM2 6 SET SM206 B3100162 A.-B SM2 BG SM2 6 CLEAR SM206 B3100163 3EX JL RETURN B3100164 SPACE 2 B3100165 BOX B3100166 ACKNOWLEDGE CP INTERRUPT VIA SM115 B3100167 EBOX B3100168 SPACE 2 B3100169 ACKCP A.-B SM1 BG SM1 15 RESET SM115 B3100170 3EX JL RETURN B3100171 SPACE 2 B3100172 BOX B3100173 MASTER CLEAR CP VIA SM208 B3100174 EBOX B3100175 SPACE 2 B3100176 MCLRCP A+B SM2 BG SM2 8 SET SM208 B3100177 A.-B SM2 BG SM2 8 RESET SM208 B3100178 3EX JL RETURN B3100179 SPACE 2 B3100180 BOX B3100181 START CP VIA SM208 B3100182 EBOX s]  3#y^ B3100183 SPACE 2 B3100184 STRTCP A+B SM2 BG SM2 8 SET SM208 B3100185 3EX JL RETURN B3100186 EJECT B3100187 BOX B3100188 MOVE SUBROUTINE B3100189 MOVES DATA IN MAIN MEMORY B3100190 ENTRY B3100191 Q-REG= NUMBER OF WORDS TO MOVE B3100192 1-REG= STARTING SOURCE LOCATION-1 (FWA-1) B3100193 2-REG= STARTING DESTINATION LOCATION-1 (FWA-1) B3100194 EXIT B3100195 REGISTERS 1,2,4,A,Q NOT RESTORED B3100196 EBOX B3100197 SPACE 2 B3100198 SPACE 4 B3100199* INITIAL ENTRY B3100200* SAVE P-REG IN I-REG B3100201* SET N,K TO WORD COUNT FROM Q-REG B3100202* SET SORS TO X-REG FROM 1-REG B3100203* SET DEST TO P-REG FROM 2-REG B3100204* B3100205* IF SORS=DEST, RETURN B3100206* IF DEST HIGHER THAN SORS SET F-REG=-1 TO B3100207* MOVE FROM LAST ADDRESS TO FIRST ADDRESS B3100208* OTHERWISE SET F-REG=+1 TO MOVE FROM FIRST B3100209* ADDRESS TO LAST. B3100210 SPACE 2 B3100211+MOVE B P BG F GATEI BG1 SAVE P, BUMP=+1 B3100212 B Q TK/0 SET N,K TO WORD CB3100213 B Q X L8EA B3100214 B X TN/0 B3100215 N=F2REG1 B3100216 A F2 X N=F2REG2 X-REG= SORS LOCN B3100217 A F2 P P-REG= DEST LOCN B3100218 SUB P X NU UPPER IF DEST .LTB3100219+ MOVELOOP J MOVE START TO ENDB3100220- SUB P X ZL TEST SORS = DEST B3100221+ MOVEHILO J MOVE END TO STARTB3100222-MOVE.END A I P RNI JL DONE ,RESTORE P B3100223 MOVEHILO ADD+ X Q X SORS=LWA+1 B3100224 ADD+ P Q P DEST=LWA+1 B3100225 -B BG F BG1 L BUMP= -1 B3100226 EJECT B3100227* MOVE LOOP B3100228* BUMP SORS AND READ B3100229* BUMP DEST AND WRITE B3100230* DECREMENT AND TEST WORD COUNT   3#yr B3100231* TEST FOR INTERRUPT B3100232 SPACE 2 B3100233+MOVE.INT -B INTA A INTEXIT J ALLOW INTERRUPT B3100234-MOVELOOP ADD X F X DECK KZU WORD COUNT - 1 B3100235+ ADD P F P READ DECN NZU READ SORS, CHECK B3100236- ADD P F P READ L B3100237+ MOVE.END J B3100238- A MEM A B3100239+ A A WRITE MOVE.INT JINTU WRITE DEST, CHECKB3100240 SPACE 4 B3100241* EXIT FOR INTERRUPT B3100242* TEMPORARILY SAVE INTERRUPT MASK IN FILE 1 B3100243* SAVE BUMP IN A-REG B3100244* SAVE SORS IN 1-REG B3100245* SAVE DEST IN 2-REG B3100246* SAVE COUNT IN Q-REG B3100247* RESTORE P-REG FROM I-REG B3100248* SET P-REG TO LOCN OF EMS B3100249* SET 4-REG TO LOCN OF INTENT B3100250 SPACE 2 B3100251 INTEXIT B N,K Q SAVE WORD COUNT B3100252 A A F1 K=25 SAV INTRPT MSK B3100253 A F A N=F2REG1 SAVE BUMP B3100254 A X F SAVE SORS B3100255 F2WR N=F2REG2 B3100256 A P F K=INTLSB SAVE DEST B3100257 A I P F2WR N=INTMSB RESTORE P B3100258 SUB P BG P BG1 P=P-1 B3100259 B N,K F SET INTRPT RETURNB3100260 N=F2REG4 B3100261 F2WR PASS INTRPT ADDREB3100262 B F1 F K=25 RESTOR INT MSK B3100263 INSTRINT JU PROCES INTRUPT B3100264 EJECT B3100265* EMS ENTRY AFTER INTERRUPT B3100266* RESTORE BUMP TO F-REG B3100267* RESTORE SORS TO X-REG B3100268* SAVE P-REG IN I B3100269* RESTORE DEST TO P-REG B3100270* RESTORE WORD COUNT TO N,K B3100271 SPACE 2 B3100272+INTENT P GATEI N=F2REG1 SAVE P-REG B3100273 A F2 X N=F2REG2 RESTORE SORS B3100274 A F2 P RESTORE DEST B3100275 B Q TK/0 RESTORE COUNTER B3100276 B Q Q L8EA B3100277 B Q TN/0 B3100278 A A F MOVELOOPO  3#y J RESTORE BUMP B3100279 INTMSB EQU INTENT/100X B3100280 INTLSB EQU -INTMSB*100X+INTENT B3100281 EJECT B3100282 BOX B3100283 ADT SETUP SUBROUTINE B3100284 --- ----- ---------- B3100285 CALLED BY EMS INSTRUCTION PRIOR TO DMI B3100286 INSTRUCTION. B3100287 1-REG= ADT TABLE LOCATION B3100288 Q-REG= MICRO INTERRUPT LINE NUMBER B3100289 RETURN B3100290 A-REG= P/MA ADDRESS OF ADT RESPONSE B3100291 ROUTINE WITH BIT 15 SET. B3100292 Q-REG SAVED B3100293 EBOX B3100294 SPACE 2 B3100295* CONVERT LINE NUMBER TO THE ADDRESS OF A TWO B3100296* WORD ENTRY IN FILE 1. (INDEX = LINE NBR * 2) B3100297* STORE ADT TABLE LOCATION IN FILE 1 WORD 1 OF ENTRY. B3100298* CALCULATE ADT INTERRUPT RESPONSE ROUTINE B3100299* ENTRY LOCATION AND RETURN IN A-REG. B3100300* A-REG = LOCN OF INTENT + LINE NBR + BIT 15 B3100301 SPACE 1 B3100302+SETUP B Q X RL0E FILE 1 INDEX B3100303 B X TK/0 SET K =X*2 B3100304 N=F2REG1 READ 1-REG B3100305 A F2 A ADT TABLE LOCN B3100306 A A F1 N=INMSB SAVE TABLE LOCN B3100307 B Q A K=INLSB INT RESP LOCN B3100308 ADD A N,K A ADD LINE NUMBER B3100309 ADD A BG A BG8000X ADD BIT 15 B3100310 RNI JL RETURN B3100311 EJECT B3100312 BOX B3100313 INTERRUPT RESPONSE VECTOR TABLE TO PASS LINE B3100314 NUMBER TO ADT ROUTINE. B3100315 ENTERED AS A RESULT OF ADT MICRO INTERRUPT. B3100316 EBOX B3100317+INENT K=0 K=LINE NBR B3100318 ADT.INTA J B3100319 K=1 B3100320 ADT.INTA J B3100321 K=2 B3100322 ADT.INTA J B3100323 K=3 B3100324 ADT.INTA J B3100325 K=4 B3100326 ADT.INTA|  3#y J B3100327 K=5 B3100328 ADT.INTA J B3100329 K=6 B3100330 ADT.INTA J B3100331 K=7 B3100332 ADT.INTA J B3100333 K=8 B3100334 ADT.INTA J B3100335 K=9 B3100336 ADT.INTA J B3100337 K=10 B3100338 ADT.INTA J B3100339 K=11 B3100340 ADT.INTA J B3100341 INMSB EQU INENT/100X B3100342 INLSB EQU -INMSB*100X+INENT B3100343 EJECT B3100344 BOX B3100345 AUTO DATA TRANSFER B3100346 ---- ---- -------- B3100347 ENTERED FROM VECTOR TABLE INENT WITH K=LINE NUMBER. B3100348 ADT TABLE LOCATION STORED IN FILE 1 IN A TWO WORD B3100349 ENTRY INDEXED BY LINE NUMBER. B3100350 WORD 1= ADT TABLE LOCN B3100351 WORD 2= LOCN TO SAVE CPU ADDRESSING MODE B3100352 EBOX B3100353* SET F TO FILE 1 INDEX - F=K*2 B3100354* SAVE INDEX IN FILE 1 WORD 24 B3100355+ADT.INTA B K F RL0E F1 INDEX=K*2 B3100356 B F F1 K=24 SAVE INDEX B3100357 SPACE 1 B3100358* ENABLE R/W OF PAGE REGISTERS B3100359* READ PAGE ZERO B3100360* SAVE CURRENT STATE IN FILE 1 ENTRY WORD 2 B3100361* SET STATE TO ABSOLUTE B3100362* SET F-REG TO ADT TABLE LOCN B3100363 SPACE 1 B3100364* ZERO GATE/58X ENABLE R/W PAG R B3100365 HEX 58D81058 B3100366 READ READ PAGE REG 0 B3100367 A MEM X B3100368 B F TK/0 SET FILE 1 IDX B3100369 A X F1 INCK SAVE STATE WD 2 B3100370* GATE/54X SET ABS MODE B3100371 HEX 58D83054 B3100372 DECK B3100373 NOP B3100374 B F1 F [  3#y F=ADT TAB LOCN B3100375 EJECT B3100376 BOX B3100377* B3100378* A U T O D A T A T R A N S F E R M I C R O I N T E R R U P TB3100379* B3100380 EBOX B3100381-ADT.INT A F X READ N=F2TATA READ ADT DEVICE IB3100382 A MEM A SETF/SADT SET THE ADT LINE B3100383 -A.B A BG BG4000X ZL CHECK IF MULTI-AQB3100384+ A A IOA ADT.M05 JNU NO, CHECK IF AQB3100385 SPACE 1 B3100386- ADD F BG Q RTJ ADT.MAQ J MULTIAQ, INC ADT B3100387+ ADT.MDEV J RTN FROM MULTIAB3100388- ZERO F ADT.MDEV J RJT FROM MULTIAB3100389 SPACE 1 B3100390+ADT.M05 -A.B A BG K=BG400X ZL MO5 DEVICE, CHK IB3100391-ADT.SAQ A.B A BG ADT.CHR JZL SINGLE AQ, CK IF B3100392 SPACE 1 B3100393+ ADD+ X BG X ADT.CLK J PROCESS CLOCK U-IB3100394 SPACE 1 B3100395- B INRS F K=1CX L M05 DEVICE, GET DB3100396+ADT.MDEV B Q X K=7CX MULTI AQ, DEVICE B3100397- A.B F K F B3100398 ADD X F X INC TO PROPER ADTB3100399 READ N=F2TABN (SAVE ADT BLOCK B3100400 A MEM A F2WR READ ADT DEVICE IB3100401 A A IOA ADT.SAQ J SET ADR LINES, CHB3100402 SPACE 3 B3100403 ORG A0X+BG4+PG1 B3100404 ADT.MAQ F2WR N=40X SAVE ADT ADR IN FB3100405 A A IOA AQINPOUT J GET MULTIAQ ADT SB3100406 EJECT B3100407 BOX B3100408* B3100409* A U T O - D A T A T R A N S F E R C O N T I N U E D B3100410* B3100411 EBOX B3100412 ORG 80X+BG4000X+PG1 B3100413-ADT.ICHR EOR A BG A WRITE BG1000X L TOGGLE CHARACTER B3100414 SPACE 1 B3100415+ADT.CHR A X X ADT.ICHR J ADT CHARACTER OPEB3100416 SPACE 3 B3100417- ADD+ X BG X BG0 INC TO CURRENT ADB3100418 ADD+ X BG F READ BG0 INC TO LAST WORD B3100419 MEM GATEI I=CURRENT WORD ADB3100420 SPACE 1 B3100421 READ READ LAST WORD ADB3100422 SUB I MEM F N=40X b  3#y ZL CHECK IF LWA = CWB3100423+ A.B A BG RTJ ADT.ICWA JZL NO, CHECK IF UPB3100424 SPACE 1 B3100425- A I F SETF/TERM L CWA=LWA, ADDRESS B3100426 SPACE 3 B3100427+ ADD+ I BG F WRITE BG0 INCREMENT CURRENTB3100428- -A.B A BG BG800X ZL CHECK IF A READ OB3100429+ ZERO IOD ADT.CTYP J YES, CHECK I/O B3100430 SPACE 1 B3100431- -A.B A BG READ BG1000X ZL WRITE, CHECK IF UB3100432+ A MEM IOD N=20X L WORD OR LOWER CHAB3100433- A MEM X L8EA UPPER CHAR WRITE B3100434+ A X IOD N=20X B3100435 SPACE 1 B3100436-ADT.CTYP A A ADT.IO JNU CHECK IF AQ OR M0B3100437 SPACE 3 B3100438 ORG C0X+BG1000X+PG1 B3100439+ADT.ICWA ADD+ I BG F BG0 RL UPPER CHAR, DONT B3100440 SPACE 1 B3100441- -EOR F BG BG1 ZL WORD OR LOWER CHAB3100442+ A X X RU NO, INC CWA B3100443- A X X SETF/TERMRU YES, INC CWA + B3100444 EJECT B3100445 BOX B3100446* B3100447* A U T O - D A T A T R A N S F E R C O N T I N U E D B3100448* B3100449 EBOX B3100450 ORG BFX+PG1 B3100451+ADT.IO A F I RTJ M05INOUT J EXECUTE M05 INPUTB3100452 SPACE 1 B3100453- A F I RTJ AQINPOUT J EXECUTE A/Q INPUTB3100454 SPACE 1 B3100455+ A.B X BG BG4 ZL CHK FOR RECEIVE TB3100456- ADT.COMP J NO REPLY, EXIT ADB3100457 SPACE 1 B3100458+ SETF/TERM RTERM SET, SET STB3100459 SPACE 1 B3100460- K=FFX SETUP FOR MEMORY B3100461 A.B F K X X = LOWER CHARACTB3100462 A X Q L8EA ADT.SAB J Q = UPPER CHARACTB3100463 SPACE 3 B3100464 ORG CBX+PG1 B3100465 ADT.SAB A I I RESET AB TO CURREB3100466 A.B A BG BG800X ZL CHECK IF READ OR B3100467+ ADT.CMAQ J WRITE, CHECK IF MB3100468 SPACE 1 B3100469- -A.B A BG BG2000X ZL READ, CHECK IF WOB3100470+ A F WRITE ADT.CMAQj  3#ALP CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm PCOMPAY G01 R LA CCS 3.0 SL-149PR9BASER9FBSER9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS PR9MZERR9MONER9MNINR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9INVPR9SNHLR9FRCD@PkK[\`@Nal@@ @P+|@Z{[llP]}M]\Nkk``Kaazzm^L~~@PVnnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghh@Piijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L>??ppqqrrssttuuvvwwxxyy::#@ '==""ͪ  3#@P@P׿{#AABBCCDDEEFFGGHHII})J$K.LR9MMST GR9MHLDR9INMK HR9CLBG QR9DETL RR9TOTL SR9LSTR T@P 9@ D@ @P d@@@@@P h@P k@@@@@@@@@P m@P r@@@@@@@@@P t@P yZ   Z Z Z@P Z      2 (Z@P ( ((   | D@@P @P ! 2@ 2\\\ZZZ@@P 8 @P2@@@ɀ@P87  3#F@P @3@@R 2@d2l\\\ZZZ@@P8@P$2|@@@P&8@P0|@P 2@P2@D@@P3=@P=!@P>8@PC@R@dd@P2I@PID@PJU@PU!@P@@@PV8@Pc@@@Pc8@PmP@@Pm8  3#Z@Pw~@K@Pw8@P}@PI@PD@P@P! @K@P8 @Pu@z@P8@P~~@P@PD@P@P!@@P8@P@P@PD@P  3#n@P!@a@@@{@P8@P@@P@PD@P@P! @@P8 @P1@@P8 @P?@P8@PR@P8@Pd@P8@Pd@P@P@@PP  3#@P! 2@ 2\\\ZZZ@@P8 @P2@@@ɀ@P8@P@3@@RR@P&@P&`@P'+@P+!R@P,8@P1d@P18@P7d@P&9@P9@P:<@P<! @@P=8 PR9FTNX R9LABL R9OTBG R9EOTT R9DOTTR9TOTTR9PAGER9FTOVR9BINTR9ZCODR9YCODR9XCODR9EDCN@PE@R@dd @@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@&<  3#@Pp @@@@@@@@@@@@@@@@@@@@ %G @P)݀)))**)PR9ECODR9FSTLR9FNBGKR9ALSQR9CARAR9MARAMHLD01R9UDATLR9UMTHNR9UDAYOR9UYERPR9FDTBPR9RPRTMHLD01!PR9RPGX*T PINVCLI G03 R LA CCS 3.0 SL-149PR9BASER9FBSER9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS PR9MZERR9MONER9MNINR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9INVPR9SNHLR9FRCD@PkK[\`@Nal@@ @P+|@Z{[llP]}M]\Nkk``Kaazzm^L~~@PVnnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghh@Piijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L  3#@P@P@P@P@P@P@P@P@P@ @ @ "@ D 2D8@P@P@P@P@P@P@" @" @ " @ "@"@P@P@PPR9XLATR9PFCBR9DSEQYSETLMR9RCADR9TBIOR9INTAR9TBOTR9ITLPR9INIGR9IPBGR9FDC1R9BINPPR9TRALR9LAHDR9CMOVR9MMOVR9NSQRR9CMSTR9MMSTR9MHLDR9INMKR9CLBGR9DETLR9TOTLR9LSTRxu  3#@P@@ @P  !"#@P4$@@@@@P7@P:%@P<@P?&@PA@PD'@PF@PI(@PK@PN)@PP@PS*@PU@PX+Z % %   (# &@P         @P     (((@P( (!("Z($ $(($   '  3#@P ,  ( -  ) . */@P/ +0[@D@@PAJ@PJ!@PK8@PP@ZZ@P@T@PTD@PU_@P_!@P@@@P`8@PmH@@Pm8@Pw~@K@Pw8@P}1@PT@PD@P@P! @K0  3#@P8 @PI@a@P8@Pu@z@P8@P~~@P@PD@P@P!@@P8@P@P@PD@P@P!a@@{@P8 @P@ @P@PD;u  3#@P@P! @@P8 @P1@@P8 @PE@@P8 @P]@@À@P8@P]@P@P@@P @P !@ @ 3 B@ZZ@P@P`@P@P!E@@P8 @P#EYl  3#@P%@P%`@P&*@P*!@@@P+8@P5*@@@P58@PCH@@@PC8@PN[@@PN8 @PW[@P%Y@PY@PZ_@P_!@ @,1%\\@@@Pg8@Pr0@@\\@Pt8 @P{HA@[[  3#"@PY@P@P@P!@ @-1%\\@@@P8@P0@@\\@P8 @PHA@[[@P@P@P@P!@ @.1%\\@@@P8@P0@@\\@P8 @PHA@[[@P@P@P@P!@ @/1%\\@@X  3#6@P8@P0@@\\@P8 @PH A@[[@P@P@P @P !@ @01%\\@@@P 8@P 0@@\\@P 8 @P H!A@[[@P &@P &p@P ' ,@P ,!+`@@`@P -8@P 8H"A@[[@P & >@P >`8x  3#J@P ? C@P C! @@P D8 PR9FTNX=R9LABL>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L@P!@))@P @P  t@P x@P @P!\\\\@@@@@@@@@@P8@P!.@@@@@@@@@@@@@@@@@@@@@@@P!8@P/E@@\\\\@@@@@@\\\\@@@@@P/8@P=\@@@@\\\\@@\\\\@@@@@P=8@PKs@@@@@@@@@@@@@@@@PK8@PY@@@@@@@@\\\\@PY8 @Pa@P c@Pc tP:  3$R@Pj x@Pdk@Pk!U@@@@@@@@@@@@Pl8@PzmKKK@@@@@@KKKK@@@@@Pz8@Pa@@@@@@@@@@P8@P@Pc@P t@P x@P@P!U@@@@@@@@@@@@@P8@Pm@@@@@@@@@@@@@P8@P@@@@@@@@@@@@P8@P{  3$f@P@P t@P x@P@P!@@@@@@@@P8@P0@@@@@@@@@@@@@P8@P7@a@@P8@PU@@@@@@@@@@@@@@@P8@Pm@@@@@@@@@@@@@@@P8@P@@@@@@@@@@@@@@P8@P"@P$@P$@P%*i  3$z@P*!@ (@P.8@P1)@P38@P6*@P88@P;+@P=8@P@,@PB8@PE !@ )@ /@5FR^jv@P$\@P\@P]b@Pb!FR^jv@P\q@Pq@Prw@Pw!@ @ H @ )@ /@5I{@@Հ@P8A  3$@PJ@@@P8@PK@@@P8@PG@@P8 @PG@@P8 @PL@@P8@PK@@@P8@PF@@P8 @PL`@P@P@P!P\\\@@@@\\\@P8PR9LSTRR9FTNXR9LABLR9OTBGR9DOTTR9TOTTR9EOTTR9PAGER9FTOVR9BINTR9ZCODR9YCODR9XCODX  3$PR9EDCNR9ECODR9FSTLR9FNBGR9ALSQR9CARAR9MARAMHLD01MHLD02R9UDATR9UMTHR9UDAYR9UYER@PP @@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@  @P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P v@@@@@@@@@@@@@@@@@ L  ))$))@P ).)3)8)=)B)G)L)Q)V)[]''''PR9FDTB ~PR9RPRTMHLD01!MHLD02WPR9RPGX*T PLCHUD1 G07 R LA CCS 3.0 SL-149PR9BASER9FBSER9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS PR9MZERR9MONER9MNINR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9INVPR9SNHLR9FRCD@PkK[\`@Nal@@ @P+|@Z{[llP]}M]\Nkk``Kaazzm^L~~@PVnnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghh@Piijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.LZ\\\@@P>8@PEZ@P(G@PG @  3$@PHN@PN1@ <@@@@PQ8@P^Z\\\@@P^8@PeZ`@Pk@Phl@Pl1A\\\@@@@\\\@Pm8PR9LSTRUR9FTNXVR9LABLUR9OTBGXR9EOTTYR9DOTTR9TOTTgR9PAGER9FTOVR9BINTR9ZCODR9YCODR9XCOD@PzA @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PR9EDCNR9ECODR9FSTLR9FNBG|R9ALSQR9CARAR9MARAMHLD01R9UDAT}R9UMTHR9UDAYR9UYERR9FDTB@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ .@Pb  ;""#####'#@#^#b#f#j#n#r'#'#'#PR9RPRTMHLD01!PR9RPGX*T PLCOLCG G08 R LA CCS 3.0 SL-149P  3$.PR9BASER9FBSER9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS PR9MZERR9MONER9MNINR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9INVPR9SNHLR9FRCD@PkK[\`@Nal@@ @P+|@Z{[llP]}M]\Nkk``Kaazzm^L~~@PVnnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghh@Piijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L@P@PB  3$ B@P@P@P@P@P)@P@P@@@@ B..B$Ā@P$@P//N$@P$@P//N/$@P$@P //N? cq /   !!! ! PR9BINPR9TRALR9LAHDR9CMOVR9MMOVR9NSQRR9CMSTR9MMSTR9MHLDR9INMKR9CLBGR9DETLR9TOTLB@P4( (   T@PJ X$@PGN@PN @(E}@@@@PS8@PaMU  3$!V@Pa8@Pgx@Pg8@Pk}}@PFo@Po T@Ps X$@Pp{@P{ /@(;@@P8@PDD@Po@P T@P X$@P@P ?@((@P@P  T@P X  $@P  3$"j@Pրz@P8 @P@@**@P@P  T@P X  $@P@P@@P8@P<@`@P8@PO@@P8@Pr@@P8@Pr@P@P@P@P@ H 2<XR  3$#~@P8@P<Հ@P8@P >@P8 PR9LSTRCR9FTNXDR9LABLCR9OTBGER9DOTTFR9TOTTR9EOTTR9PAGER9FTOVR9BINTR9ZCODR9YCODR9XCOD@P@ _@  p@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@PZ@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PR9EDCNR9ECODR9FSTLR9FNBG R9ALSQR9CARA R9MARAMHLD01R9UDATLR9UMTHNR9UDAYOR9UYERPR9FDTB@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ i '        @P    ' ,PR9RPRTMHLD01!PR9RPGX*T PLCOLST G09 R LA CCS 3.0 SL-149PR9BASER9FBSER9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS PR9MZERR9MONER9MNINR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9INVPR9SNHLR9FRCD@PkK[\`@Nal@@ @P+|@Z{[llP]}M]\Nkk``Kaazzm^L~~  3$$@PVnnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghh@Piijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.LD "?0j  3$%@P@P@P@P@P@P@ A6 $Ā@P$@P  !$Ā@P$@P  "$Ā@P$@P  # r$À@P$@P r zZr rrr$@P$@P r zZr rrrrr$r%@PA$r&rr rq &[q[zq[q(&@Plq qH&q H&qH&=>?A$%'@P P'($'( h$( h$(  h$' P'PR9BINPR9TRALR9LAHDR9CMOVR9MMOVR9NSQRR9CMSTR9MMSTR9MHLDR9INMKR9CLBGR9DETLR9TOTL.[  3$&@P…($'( h$( h$(  h$r( r@P (#r#)r#@@@@P@P*r#)r#@P @P*rrFrFrFr+r2&r2$r2@P<'r2r((+r( +2r(2r($r('r  H'@PgP$r  X$r(  x'r#6r6 H$r6 H$ro '(@Pr(r,P&r- P&r.P&r/ r#H&r(/h&@Pr/P&r(0P&rGrGrGr'r(&r@@@@@P@P `&)r) &)r)rHrHrHr()rr@@@@P@P *rrq$%qo($q%$C$4@P36@P6 H HH  d@P@P@F@PF@!(H@PJ8@POH  3$'@PQ8@PVHӀ@PX8@P^H@P?`@P` d@P@Pag@Pg@"(M@@@Pj8@PwS@Pw8@P|{@P|8@P1@P`@P d@P@P@P@#(E@z@@P8@PMMn  3$(@P@P d@P@P@PIՀ@P8@PI@P8@PI@P@P d@P@P@P@@@P8@P @ /@! ?@' O@- _@3 o@9 @? @E @K @Q @@PW /@] ?@c O@i _@o o@u@*`@P @P @P ['\\\`@@P8@P[6@@ـ{@  3$)@P8@P&6@P(@P(`@P,@P).@P.)\\\@@@@P/8@P= :@`@@@ـ@P>8@PI :@`@@@@PK8@PV:@PX@PX t@P@PY`@P`@-D,   / ! ? ' O - _ 3 o 9  ?  E  K @P Q  W / ] ? c O i _ o o u/@PX@P@@P  3$* @P@P@P8@P   / ! ? ' O - _ 3 o 9  ?  E  K  Q  @PW / ] ? c O i _ o o u0@P(@P`@P@P@P @P L\\\@@@@\\\@P 8PR9LSTR)R9FTNX*R9LABL)R9OTBG1R9DOTT2R9EOTT?R9TOTTR9PAGER9FTOVR9BINTR9ZCODR9YCODR9XCOD@P LN@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@t@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P :@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P e@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P <@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  3$+@P g@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P >@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P i@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P k@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@((@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P m@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@e  3$,2@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@d @P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ,4@Po@P@P@P@P@PF@Pq@P@P@P@P@PH@Ps@P@P@P/P  3$-F@P@PJ@Pu@P@P@P@P!@PL@Pw@P@P@P@P#@PN@Py@P@P@P@P%@PP/  3$.Z@P{@P@P@P@P'@PR@P}@P@P@P@P)@PT@P@P@P@P@P+@PV@P@Pj  3$/n@P@P@P-@PX@P@P@P@P@P/@PZ@P@P@P@P@P1@P\ ,L@P@P@P@P^|  3$0@P3@P^@P@P@P@P @P5@P`@P@P@P@P @P7@Pb@P@P@P@P@P9@PdV  3$1@P@P@P@P@P;@Pf@P@P@P@P @P =@P h@P @P @P @P!@P!?@P!j@P!@P!"  3$2@P!@P"@P"A@P"l@P"@P"@P"@P#@P#C@P#n@P#@P#@P#@P$@P$E@P$p@P$@P$@P$@P%U  3$3@P%G@P%r@P%@P%@P%@P&@P&IL@P&tM1,N@P&@P&@P&@P' @P'KV5@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P'v@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P("@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P(M@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P(x@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@L  3$4@P(@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P(@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P(@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P)$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P)O@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P)z@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P*&@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P*Q@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P*|@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@(XH@@@@@P+(@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P+S@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P+~@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  3$5@P+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@d X@P,*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P,U@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P,@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P,@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P,@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@ @@@@@@@@@@@PR9EDCNR9ECODR9FSTLR9FNBG R9ALSQR9CARA R9MARAMHLD01R9UDAT,jR9UMTH,lR9UDAY,mR9UYER,nR9FDTB- @P-@@@@@@@@@ 8g0 V |  , 4 4LΠMM<N VL XT@P-, XԀX؀XڀX܀X'YY&YFYUYVYWY[Y]Y`YcYf'Y'Y'YހYY@P-WYYYYYYZZZ ZZPR9RPRTMHLD01!PR9RPGX*T PLDALST G10 R LA CCS 3.0 SL-149PR9BASER9FBSER9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS PR9MZERR9MONER9MNINR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9INVPR9SNHLR9FRCD@PkK[\`@Nal@@ @P+|@Z{[llP]}M]\Nkk``Kaazzm^L~~@PVnnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghh@Piijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""%  3$6@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L@P@P? ?>@P@P >  H=H=@A@BACA BH= BH= CH= CH=O  3$96@P =(= !c!c(<_ < < zz/8 zPR9TRALR9LAHDR9CMOVR9MMOVR9NSQRR9CMSTR9MMSTR9MHLDR9INMKR9CLBGR9DETLR9TOTLfR9LSTRg@PD ;DP;DH;DH; ;&(;&< HD@PoH#GLd@Py}@P}1 \\\\\@P~8@P9%@@@P8@P+@P8@P@811@Px@P @P@P1@4) J@@@P8@P P@P8@P @8VK@@ j  3$:J@P8@PTՀ@P8@Px@P8@PՈE}}@P@P@P@P1@5)D@րz@P8@PMM@P@P@P@P1@6))@P@P4@P@P1@)A@d  3$;^@P8 @P-Uva@Ā@P8@P.@P@P4@P@P1@?@@P8@P#aap,Rr@@P*8 @P2aap*@P;@P;4@P<@@P@1@ G@@P@K@PC8@PN ``p$TU`@PW8@PZ@%Ynɀ7  3$<r@P\8@Pb@+@P;f@Pf4@Pgk@Pk1@!?K@@Pn8@Pu@&ff@Pfy@Py4@Pz~@P~1@"@#GK@@P@K@P8@P ``p'TU`@P8@P@(YY@Py@P4@P@P1@@@  3$=@P8 @P"@@@@P8@P1`@P8 @PK\\\\\@@@@\\\\\@P8@PK@P@P4@P@P1 aat D  D  D D - Dmm@P@P4@P@P1 /aat /D  /D  /D /D - /Dmm@P@P4@P@P1 ?aat ?D  ?D  ?D ?D - ?Dmm=  3$>@P=@P=4@P>B@PB1 Oaat OD  OD  OD OD - ODmm@P=b@Pb4@Pcg@Pg1+\\\\\\\\\\\\\\\\\\\\\\\\@Ph8@PvC\\\\\\\\\\\\\\\\\\\\\\\\@Pv8@P[\\\\\\\\\\\\\\\\\\\\\\\\@P8@Pp\\\\\\\\\\\\\\\\\\\\\@P8@Pp@Pb@P@@P@P1@|  3$?@P@P@P@P1@@P8 @P@ 4@@@@P8@P@@P@P@P@P1+\\\\\\\\\\\\\\\\\\\\\\\\@P8@PC\\\\\\\\\\\\\\\\\\\\\\\\@P8@P[\\\\\\\\\\\\\\\\\\\\\\\\@P8@Pp\\\\\\\\\\\\\\\\\\\\\@P8@P p`p  3$@@P @P1@@P @P`@P@P@P1@@P!@P! @P%@P"(@P(16\\\\\@P)8@P.O@@z@P.8@P<7V\\\\\\@P>8@PC\@P!E@PE`U  3$A@PI@PFJ@PJ1@@PEO@PO`@PS@PPT@PT1@@POY@PY @P]@PZ^@P^1/\\\@@@ɀ@P`8@Pn//@`@@\\\@Pp8@P{ /O`@@@@`@P}8PR9FTNXhR9LABLgR9OTBGwR9EOTTxR9TOTT R9DOTTR9PAGER9FTOVR9BINTR9ZCODR9YCODR9XCODR9EDCN@PO)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@dc  3$B@P*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P4@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P_@@@@@@@@@@@@@@@@@@**@@@@@@@@*@@@@@@@@+@@@@@@@@+@@@@@@@@@P@@@@@@@@+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@,@@@,@@@@P @@@`@kk@@@@@@@@@@@@@@@`@@k@@P6k@@@@@@@@@@@@@@@@@`@@@@@@@@@@@@@@@@@@@@@@@@@@Pa@@@@@@@`@@-@@@-@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@-@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@-@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@. @P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P8@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Pc@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@ @@P@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  3$C@P@@@@@@@@@@@@@@@@@@ Ln ( R) G)h *Ԡ* * + + + 7, , ;@P:- - - - .......'.D.T.X.h..... ..@Pe/ / / ////#)/()/-;/i/l/o/p/r'/'/'/////@P///000 00$0(00PR9ECODR9FSTLR9FNBGR9ALSQR9CARAR9MARAMHLD01R9UDATR9UMTH R9UDAY R9UYER R9FDTBPR9RPRTMHLD01!GETACRsPR9RPGX*T PLDTLST G11 R LA CCS 3.0 SL-149PR9BASER9FBSER9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS PR9MZERR9MONER9MNINR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9INVPR9SNHLR9FRCD@PkK[\`@Nal@@ @P+|@Z{[llP]}M]\Nkk``Kaazzm^L~~@PVnnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghh@Piijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L@?@@DA@B@C/@DM@Ek@F@GDH@I@J@K@L@M@N@ODP@Q@R@S@P_DT@UDV@W@XDY@Z@["@\'D]+@^1@_@`@a@b@c@d0@eDDfIDgODhX@PDi^DjdDkjDlpDmvDnDoDpDqDrDs@tDu@v@w@xDyDzD{@|D}D~@PDD@P'@P@P@P@PPR9XLATR9PFCB~R9DSEQYSETLMR9RCADR9TBIOR9INTAR9TBOTR9ITLPR9INIGR9IPBGR9FDC1R9BINP@P@@ .$@P$@P N $@P$@P N/ $@P$@P N? @P @P fb  3$GN@P@P.  SQRVTU WX   @P)@P+ < @P1@P3<   :@PG@PI GQ@PN@PP OR :@P\@P^ S@Pc@Pe T@Pj@Pl )U@Pq@Ps ,V@Px@Pz 5WT  3$Hb@P@P 8X : @P@P     = @P@P @P@P VN  VN/  VN?  V/NO  V@P?N_  VONo  V_N  VoN  VN  @PVN  VN  VN/  VN?  V/NO  @P@V?N_  VONo  V_N  VoN  VN@Pk  VN  VN  VN/  VN?  V/@PNO  V?N_  VONo  V_N  VoN  PR9TRALR9LAHDR9CMOVR9MMOVR9NSQRR9CMSTR9MMSTR9MHLDR9INMKR9CLBGR9DETLR9TOTLR9LSTR@PVN  VN  .. FFz!@PD@P@P!@<@P@P s#  3$Iv@P@PA @ )C@ـ@P8@PL@P8@Pgz@P8 @P@;l@P$8@P(@P,@P,@P-2@P2A /@ )=@@P78@P< FF@P,@@P@@PAF@PFA ?@ ))6(  3$J@P@M@PM @PNR@PRA @PS8@PY'@PY8 @P`1@P`8@Pd9ր@Pd8@PhG@@Ph8@PoPŀ@Po8@Psf@@@Ps8@P}q@P}8@PvـK  3$K@P8@P@Հ@P8 @P@PM@P @P@PA K@P8@P(@րK@P8 @P1ـK@P8@P;@P8@PF@P8@PP@P8@PY0  3$L@P8@Pg@P8@Po@P8@Pv@P8@P@@ɀ@P8 @P@P@P @P@PA@@@S*@v1@w;mHaapkRaapf\gh@UoHuvr@P@P@@P@PA@P8@P@B0B@Ā7&  3$M@P8@PHADb@@P8 @P@K@P @P @P!%@P%A @@P&8@P-@C0F@@K@P/8@P; ``pTR`K@@PD8 @PL@L@P P@PP @PQU@PUA @@PV8@P]@D0CK@@ŀ  3$N@P_8@PiHsEcaa@Pk8 @Pt@Mz@N@PPz@Pz @P{@PAaa@P8 @P@E&@F0>@ŀz@P8 @P Q ``pHK QL`@P8@P@JPQ@IMd@z@P8@P R ``pPr Rs`@P8@P@RwR@Qtw@Pz@P@  3$O@P@PA @P8@P@P8@P"@@P8 @P+@P8@P1@P8@P@@@P8 @PN@@P8 @Pd@@@P8@P@b@P @P %  3$P@P @PA@P8@Pր@P8@Pր@P8@P"@@@@@P8 @P$*ր@P$8@P(2Ӏ@P(8@P,>@@P,8@P2N@@P28 @P9d@@@P98@PD@c&  3$Q@P H@PH @PIM@PMAaapV @W@xHyHzH{"@^(@X1aap~>N`aa@Pl8 @Pu@dz@e@PH{@P{@@P|@PA @P8@P@P8@P+@@P8 @P9@ƀ@P8 @PE@P8 @PNj  3$R*@P8@Pe\@\@@@@@@@@@P8@P@@@@@@@@@@@@P8@P\@\@P8@P@P{@P @P@PA @P8@P@P8@P+@@P8 @P6@P8@PBKKG  3$S>@P8@PP@@P8@PP@P@P @P@PAn oaapp'q9@ZBaapP@|@P@P@@P@PA@P8@P!@@P!8@P'׀@P'8@P+*@@P+8@P138  3$TR@P18@P5@@P58@P:S\@\@\@\@\@\@P:8 @PBf@@@@@@@@@PB8@PMw@@@@@@@PM8 @PV\@\@\@\@\@\@PV8 @P^@P`@P` @Pae@PeA@Pf8@Pj@Pj8@Po  3$Uf@Po8@Ps)@@Ps8@Px3@Px8@P}C@@P}8 @P@_@P`@P @P@PAaaph aapiaaplaapj*@\3aap]A@`@P@P @P@PA@a@P@P@P@P@PA@@@@@@@@֌  3$Vz@P8@P@@@@P8@P,@@@@@@P8 @P<@@@@@@@P8 @PT@@@@a@@@@@@P8@P[@@@P8@Po@@@@@@@@@@P8@P@@@K@@@@@@@P8@P@P@P P@P@PA@@?@UH[ S```pnS@k T```pT@! A  3$W@PE@PH@PH P@PIN@PNA@$@%?@&UH'[ U```p(nU@*k V```p+V@-@Py@PH|@P| P@P}@PA@0@1?@2UH3[ W```p4nW@6k X```p7X@9@P@P|@P @P@PA @ )K@@P8@Pg@P8 @P@;l@P8  3$X@P؈@P@P@P@PA /@ )?@@P8@P HH@P@P@P@PA ?@ ))@P@P @P@PA @P8@P #@P 8@P+@P8}  3$Y@P3@P8@P;@P8@PF@P8@P&W\@\@\@\@\@\@\@\@P&8@P0o@@@@@@@@@@@@@@@P08@P=\@\@\@\@\@\@\@\@\@\@P=8@PI@PK@PK @PLQ@PQA K@PR8@PV!@PV8  3$Z@PZ*ր@PZ8@P^2ր@P^8@Pb:ր@Pb8@PfDK@K@Pf8@PkD@PKm@Pm d@Pns@PsA@ @ a@Pz8@P} /@  !a@P8@P ?@ # O@ ) _@ 1 o@ 9 @ A @ C@ @Pm@Pd@P  3$[@PA @P8@P@K@P8 @P@:-9@@@P8 @P9`@P@P@PAK\\\\@@@@\\\\@P8PR9FTNXR9LABLR9OTBGR9EOTTR9TOTTR9DOTTR9PAGER9FTOVR9BINTR9ZCODR9YCODR9XCODR9EDCN@PK<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@d =@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P.@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PY@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@>2@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  3$\@P0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @P[ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@ @@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  @@@@P @@@@@@@@@@@@ @@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P 2@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@P ]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@ @@@@@ @@@@P! @@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P!4@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P!_@@@@@@@@@@@@@@@@@@ @@@@@@@@@P! @@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  @@@@@@@@P!@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ Ls@P! P; < = >8 '>>>>>O? ? ??*?+?,?-@P" ?K?i?}??? ??? ?????@@@ @ @@"@# @1@P"6@2@3@Q@o@@@@ @@@ @@@@@@@@@A@P"aA6ATAhAmAn At A~AAAAAA؀ A AAA BBB B BB  3$]@P"BBBBB B!B?B]B{BBBBЀBԀ)BـB݀BBBB)B)@P"B)BC)C)C C CCCC"C&C(C*C,'CTCVCZ)C_Cc'CCC@P"CCPR9ECODR9FSTLR9FNBGR9ALSQR9CARAR9MARAMHLD01R9UDATXR9UMTHZR9UDAY[R9UYER\R9FDTB!PR9RPRTMHLD01!GETACRPR9RPGX*T PLPGCMP G12 R LA CCS 3.0 SL-149PR9BASER9FBSER9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS PR9MZERR9MONER9MNINR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9INVPR9SNHLR9FRCD@PkK[\`@Nal@@ @P+|@Z{[llP]}M]\Nkk``Kaazzm^L~~@PVnnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghh@Piijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L @ B H N P R T rO  '  ODHJL@P\NTPR9RPRTMHLD01!PR9RPGX*T PLPGUTB G14 R LA CCS 3.0 SL-149I  3$ePR9BASER9FBSER9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS PR9MZERR9MONER9MNINR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9INVPR9SNHLR9FRCD@PkK[\`@Nal@@ @P+|@Z{[llP]}M]\Nkk``Kaazzm^L~~@PVnnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghh@Piijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L@P 9 ? @ A B C D Ef@P dE 7E@P k@P m 7@P p@P r 7@P w@P y 7@P @P 7Ef/E 8EEf?E 9EEfO@P E :EEf_E ;EEfoE <EEfE >E@P EfE ?EEfE @EEfE AEEf/E@P  BEEf?E CEEfOE DEf_E FEl  3$h@P (@P * F 423756:89=;<@>?FA(G@P A@P C 7@P F@P H 7@P M@P O 72  8   FF@P h@P j 0GGGG FG3FG3FGFG FG  4@P  @P @P 0GG4GG    @P @P 955@P @P 95555 @P @P :66@P   3$i@P :6666 G9H:IH G I7777 F@P @P ;FF@P @P  ;FF@P @P  ;FF8F8 F@@P @P  FFG@P N  3$k@P >GGF@P @P >GGF@P @P ;G@P @P ;FG; V ? (J JQ/ JR? JSO JT_ JUQKA@P RKBSKCTKDU 8  @P @P 0 (2(4(3(5(6 6((6PR9TRALR9LAHDR9CMOVR9MMOVR9NSQRR9CMSTR9MMSTR9MHLDR9INMKR9CLBGR9DETLR9TOTL @R9LSTR A@P ;L2(L4(L3ML(M5(6 6([ ?  [ 0@P f       x s   T0@P y |@P |)@8@9 @:@;@<@=@>@?0@@6@A<@BB@CH@DNP@@P 8@P P@P x ;|  3$l2@P d0@P @P )@!P@7PP@P @P D@P @P )@8@9 @:@;@<@=@>@?0@@6@A<@BB@CH@DNP@@P 8@P P@P @P @P @P 1 @(q@P 8@P ؈Nvv@P @P @P @P 1 /@(q@@P 8~  3$mF@P {{@P @P @P @P 1 ?@((@P @P @P @P 1@P 8@P ?@@@@@P 8@P W@@@@P 8@P "W@P $@P $@P % )@P )1@P *8)  3$nZ@P 0#@@@P 08 @P 9c@@@@@@@@@@@@@@P 98@P Fu@@@@@@@P F8@P Qu@P $ S@P S@P T X@P X1@@@@@P Y8@P f#@@@P f8 @P o8@@@P o8 @P xb@@@@@@@P x8@P t@@@@@P 8Q  3$on@P t@P S @P DTdt@P @P 1@8@9 @:@;@<@>"@?K@@S@AZ@Ba@Ch@Do@"@# @$@%@&@P @("@)K@+S@,Z@-a@.h@/o@7s2@@@P 8 @P 3@@@@@P 8 @P 4@@@@P 8 @P5@@@P8 @P6@@@@P8 @P7@@@@P8 @P&8@@@P(8 @P19@@l  3$p@P38 @P<:@@@P>8 @PG;@@@@PI8 @PR=@@@@PT8 @P]>@@@@P_8 @Ph?@@@@Pj8 @Ps@@@@@Pu8 @P~A@@@@P8 @P@P @P@@P@P1@@@6  3$q@P8@P2@P@P@P@P1@P8@P4@P@P@P@P1@P8@P3@P@P@P@P1@@@P8@PǠL_  3$r@P@P@P@P1@P8@Pנ5@P@P@P@P1@@@P8PR9FTNX _R9LABL ^R9OTBG wR9EOTT xR9DOTTR9TOTTR9PAGER9FTOVR9BINTR9ZCODR9YCODR9XCODR9EDCN@PM,@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@X@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P=@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"@@@@@@@@k@@@k@@Ph@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@M]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M]@@`@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@M]@@`@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@M]@@k@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@M]@@k`k`k`k@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  3$s@P?@@@M]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@{@@@Pj@@M]@@`@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@M]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M@P]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M]@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@M]@@@@@@@@@@@@@@@@@@@@PA@@@@@@@@@@@M]@@@@@@@@@@@@@@@@@@@``@Pl@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PC@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Pn@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@ @P Lv= 'X O J#####O#n#r'#O####@P#####$$9$?$E$K$Q$WO$$$$$$$$$$@PE$%%% %%%%%%!%$%&%'%-%1%5%6%7%8%9%W@Pp%]%c%i%o%uO%%ǀ%%̀%%%%ڀ%݀y{  3$tPR9ECODR9FSTLR9FNBGR9ALSQR9CARAR9MARAMHLD01R9UDATR9UMTHR9UDAYR9UYERR9FDTBPR9RPRTMHLD01!PR9RPGX*T PLTMUSE G15 R LA CCS 3.0 SL-149PR9BASER9FBSER9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS PR9MZERR9MONER9MNINR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9INVPR9SNHLR9FRCD@PkK[\`@Nal@@ @P+|@Z{[llP]}M]\Nkk``Kaazzm^L~~@PVnnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghh@Piijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L@@PC@PE ??>?<=& (&' (' (' & (22(()(@Pp* (++*2@P{@P} (,, -,@P@P- -(((F@PFG-@PDQ  3$wPR9BINPR9TRALR9LAHDR9CMOVR9MMOVR9NSQRR9CMSTR9MMSTR9MHLDR9INMKR9CLBGR9DETLR9TOTL@P-Gr* )r.r.*r)r/%r%r! /@Pr +{d@P@PH HH@P @P d@P  @P @-H HH@$@P  @P )`@@@P 8 @P !zp.&&@P  )@P ) $@P * 0@P 0)@P 18@P 7/&&   t@P B x $  3$x"@P < H@P H)@"((@P ; M@P M   t@P T x $ @P N Z@P Z)@#(K@@@P ]8@P hy@P h8@P l0~~@P M p@P p   t@P w x $ @P q }@P })@$(A@րz@P 8@P JJ@P p @P @@ tٚ  3$y6@P x@$ @P @P )րz@P 8 @P @ @%%@P @P @@ t@P x@$ @P @P )@P 8@P @P 8@P !@P 8@P &Ӏ@P 8@P /ŀ@P 8@P 5À  3$zJ@P 8@P :ŀ@P 8@P @@P 8@P @@P @P   t@P x $ @P @P )@P 8@P ɀ@P 8@P !ɀ@P 8@P &ɀ@P 8@P /@P 8w  3${^@P 5Ā@P 8@P :Ā@P 8@P @Ā@P 8@P I@P 8@P I@P @P  @P  @P )q@ 2 >zp= >zp2zp!2zp+&aa@P Ap/@5@:@@@~~@P ) N@P N`@P R@P O S@P S)F\\\@@@@\\\@P T8  3$|r@P aF@P N c@P c$@@P d g@P gH!PP@P  l@P l@P m o@P o!@ H)@@@P u8PR9LSTRR9FTNXR9LABLR9OTBGR9EOTTR9TOTT R9DOTT ;R9PAGER9FTOVR9BINTR9ZCODR9YCODR9XCOD@P y )@  @@@@@@@@@@@@@@@@@@@@  @@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @ @@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PR9EDCNR9ECODR9FSTLR9FNBG R9ALSQR9CARA R9MARAMHLD01R9UDAT R9UMTH R9UDAY R9UYER R9FDTB ;@P %@@@@ @@@@@@@@@@@@@ i}t @P P0468;=?BDJLNP7'@P {''&'NQTWZ^`cipsvPR9RPRTMHLD01!1  3$}PR9RPGX*T PLTRNDP G16 R LA CCS 3.0 SL-149PR9BASER9FBSER9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS PR9MZERR9MONER9MNINR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9INVPR9SNHLR9FRCD@PkK[\`@Nal@@ @P+|@Z{[llP]}M]\Nkk``Kaazzm^L~~@PVnnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghh@Piijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L'fjlptuvz|@P PR9RPRTMHLD01!PR9RPGX*T PLUD50A G17 R LA CCS 3.0 SL-149PR9BASER9FBSER9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS PR9MZERR9MONER9MNINR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9INVPR9SNHLR9FRCD@PkK[\`@Nal@@ @P+|@Z{[llP]}M]\Nkk``Kaazzm^L~~@PVnnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghh@Piijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""@P3  3$b@P׿{#AABBCCDDEEFFGGHHII})J$K.L>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L@@P+8@P0FJ@@@P68@P:RR@P @@P@ t@PD x$4@PAP@PP ?@(E@ŀz@PU8@P\NN@P@`@P` 4 $    t@Ps x@PateE  3$@Pt @@@@@@@Pu8 @P|  ! " @@@@@@@P8 @PH@P8@PV@@P8@P\@P8@Pc@P8@Pk@P8@Py@P8@P@@P8@P@P`  3$@P4$ t@P x@P@P @ŀ@P8 @P  ! " @@P8 @P@P8@P&@P8@PH@P8@PU@P8@P\ŀ@P8@Pbր@P8@Pk  3$*@P8@Py@P8@P@a@P8@P@P@P@P @P @  " !@ @  " !@ @ @@JW\@ alz`@P2@P4`@P6@P/8@P8AK@P98 @PAY@@@PA8 @PIn@@@PI8[  3$>@PS}@Հ@PS8 @P[}@P.]@P]@Pa@Pc@Pe@P^g@Pg \\@Ph8@Pk@@@@@Pk8@Pr @Ā@Ps8@Pz@\\@P{8@PAY l!||@P]@P`P  3$R@P@P@PAK@@P8 @PY@@@P8 @Pn@@@P8@P}@Հ@P8 @P}@P@P @P@P@P \\\\@P8@P@@P8@P  "@@@@B  3$f@P8@P!@@@@@@@@@@P8@P @\\\\@P8 @PA"Y#l$||@P@P`  @P@P@P/\\\@@@ɀ@P8@PI\\\\@@@@\\\\@P8@PI`@P@PAK@@P8 @P!Y@@@P!8 _G  3$z@P)n@@@P)8@P3}@Հ@P38 @P;}@P=@P=@P>C@PC \\@PD8@PG@@@@@PG8@PN @Ā@PO8@PV@\\@PW8@P^AY l!||@P=h@Ph @Pin0  3$@Pn @(P@@`@Pt8@PQ@`@ـ@P8@Pr@P8@P%ww@Ph@P@P@P /@(D@@@P8@PL>@P8@PFJ@@@P8@PRR@P@P@P,  3$@P ?@(E@ŀz@P8@P׀NN@P@P`Ć@P@PAK@@P8 @PY@@@P8 @Pn@@@P8@P}@Հ@P8 @P }@P @P  Ć@P  @P  \\\\@P 8[E  3$@P @@P 8@P   "@@@@@P 8@P !!@@@@@@@@@@P #8@P * @\\\\@P +8 PR9LSTRR9FTNXR9LABLR9OTBGR9DOTTR9TOTT.R9EOTTR9PAGER9FTOVR9BINTR9ZCODR9YCODR9XCOD@P 3A"Y#l$||@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P ^@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  @@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  @P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  PR9EDCNR9ECODR9FSTLR9FNBG =R9ALSQR9CARA >R9MARAMHLD01R9UDAT R9UMTH R9UDAY R9UYER R9FDTB @P YV '   $%)-KO)T)@P Y]_c)hijl'  ++++++ȁPR9RPRTMHLD01!PR9RPGX*T PRECVRY G19 R LA CCS 3.0 SL-149i  3$PR9BASER9FBSER9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS PR9MZERR9MONER9MNINR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9INVPR9SNHLR9FRCD@PkK[\`@Nal@@ @P+|@Z{[llP]}M]\Nkk``Kaazzm^L~~@PVnnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghh@Piijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.LD?D@DADB@C"@DDE@P DFDG DHDIDJDK(DL+DM4DN7DO@DPI@QR"@RTDSVDTYDUbDVkDWnDXwDYDZ@P D[D\D]D^@_"@`DaDbDcDdDeDfDgDhDiDjDkDl@m"@nDo@P Dp DqDrDsDt'Du0Dv3Dw 9@P l ՓԚF N(L G Փ@P T \(Z U ՓԚb j(h@P c Փp x(v q Ԛ @P ~ (    Փ Ԛ  (   3$@P   Ԛ  (   Փ Ԛ@P C  (   Փ   ՓԚ@P n& % % ՓԚ4 3 3 Փ@P ԚB A A ՓԚP O O@P đ Փ^ ] ] Ԛl k@P  k ՓԚz y y Փ@P     Փ Ԛ    @P E Փ     Ԛ   @P p  Փ Ԛ   ՓԚ@P    ŋ         @P Ƌ @P @P @P@@@P 8@P ?@P@@P 8 @P Q@@P 8@P ~@K@P 8  3$@P @P @P @P @P @K@P8 @P u@z@P 8@P~~@P @P@P@P@@P8@P'@P)@P)@P*.@P. a@@{@P/8   3$@P7@'@z@P98 @P@@ F`@z@PB8@PM@ efa@PO8@PR@ ho``@PT8@PY@rsa@P[8@P^@uu@P)b@Pb@Pcg@Pg\`````````\@@\@Ph8@Pv7`````````````@Pv8@PO``\@@\\@@\```@P8  3$.@Pg`\@@\`````````````@P8@P\@@\``````@```@P8@P````\@P8@P@Pb@P@P@Pa@@K@@@@P8@P+@@@@@@@P8@PBK@@@@@@P8@PVK@@@@@K@P8@Po@@@@@P8r1  3$B@P@@@@@@@@P8@P@P@P@P@P@@@@@@P8@P6@@@@@@@P8@P#P@@@@À@P#8@P/h@@@@@@P/8@P<~@€@P<8@PHŀ@PH8@PL@PNo  3$V@PN@POS@PS@ a@PV8@PY@ H %+,l@Pe8@PhH1:CHHQqzl@Px8@P{@PN}@P} @P~@P@a@P8@P@H %+,l@P8@PH1: CH!H"Qq%zl@P8@P@P}  3$j@P0@P@P@(a@P8@P@'H) *+%+,l@P8@PH,1-:.CH/H0Qq3zl@P8@P@P@P@@P@P@6a@P8@P@5H7 89%+,l@P8@PH:1;:<CH=H>QqAzl@P8@P @P   3$~@P P@P@P@Da@P8@P@CHE FG%+,l@P%8@P(HH1I:JCHKHLQqOzl@P88@P;@P =@P=`@P>C@PC@Ra@PF8@PI@QHS TU%+,l@PU8@PXHV1W:XCHYHZQq]zl@Ph8@Pk@P=m  3$@Pmp@Pns@Ps@`a@Pv8@Py@_Ha bc%+,l@P8@PHd1e:fCHgHhQqkzl@P8@P@Pm@P䀀@P@P@na@P8@P@mHo pq%+,l@P8@PHr1s:tCHuHvQqyzl@P8@P@P(  3$@P䀐@P@P@|a@P8@P@{H} ~%+,l@P8@PH1:CHHQqzl@P8@P@P@P䀠@P@P@a@P8@P @H %+,l@P8@PH1:CHHQqzl@P(8@P+@P-S  3$@P-䀰@P.3@P3@a@P68@P9@H %+,l@PE8@PHH1:CHHQqzl@PX8@P[@P-]@P]@P^c@Pc@a@Pf8@Pi@H %+,l@Pu8@PxH1:CHHQqzl@P8@P@P]~  3$@P @P@P@P8@PH %+,l@P8@PH1:CHHQV_h q zl@P8PR9LSTR R9FTNX R9LABL R9OTBG R9EOTT R9DOTTR9TOTTR9PAGER9FTOVR9BINTR9ZCODR9YCODR9XCOD@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @P @@@@  @P @@@@ @@@@  @P? @@@@ @@@@  @Pj @@@@ @@@@  @P @@@@ @@@@  @P @@@@ @@@@  @P @@@@  @P  @PA  @Pl  }  3$PR9EDCNR9ECODR9FSTLR9FNBGR9ALSQR9CARAR9MARAMHLD01R9UDATR9UMTHR9UDAYR9UYERR9FDTB@P %##########Ѐ#)#׀)##ހ)#)##@P€)##)#)#)$$$$$ $$$$$$$ $$$($,$.$0@P$2$6$:$<$@$D$F$J$L$P$T$X$Z$\$^$b$f$h$l$p$r$v@P$x$|$$$$$$$$$$$$$$$$$$$@PC$$$$$Ȁ$$΀$$Ԁ$$$$$$$$$$$$$@Pn%%%% % %%%%%% %"%&%(%,%0%4%6%8%:%>@P%B%D%H%L%N%R%T%X%\%`%b%d%f%j%n%p%t%x%z%~%%@PĀ%%%%%%%%%%%%%%%%%%%%€%ƀ@P%Ȁ%%Ѐ%%ր%%܀%%%%%)%)%%)%)&&)&& )&)&@P)&&)&!,&(&+)&0&3&7&;&?&C&G&K&O&S&W&[&_&c&g&k @PE&q&t&w&z&}&&&&&&&&&&&&&&&&&@Pp&&&&À&ƀ&ʀ&̀&р&Ԁ&؀&ۀ&߀&)&&&&&&&'@P'' ''''''"'&'*'.'2PR9RPRTMHLD01!PR9RPGX*T PZLA21 G21 R CCS CCS 3.0 SL-149PR9BASER9FBSER9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS PR9MZERR9MONER9MNINR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9INVPR9SNHLR9FRCDHg  3$@PkK[\`@Nal@@ @P+|@Z{[llP]}M]\Nkk``Kaazzm^L~~@PVnnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghh@Piijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L>??ppqqrrssttuuvvwwxxyy::#@ '==""  3$2@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.LZ\\\@@P>8@PEZ@P(Gp  3$@PG @@PHN@PN1@ <@@@@PQ8@P^Z\\\@@P^8@PeZ`@Pk@Phl@Pl1A\\\@@@@\\\@Pm8PR9LSTRUR9FTNXVR9LABLUR9OTBGXR9EOTTYR9DOTTR9TOTTgR9PAGER9FTOVR9BINTR9ZCODR9YCODR9XCOD@PzA @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PR9EDCNR9ECODR9FSTLR9FNBG|R9ALSQR9CARAR9MARAMHLD01R9UDAT}R9UMTHR9UDAYR9UYERR9FDTB@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ .@Pb  ;""#####'#@#^#b#f#j#n#r'#'#'#PR9RPRTMHLD01!PR9RPGX*T  3$ PLCOLCG G08 R LA CCS 3.0 SL-149PR9BASER9FBSER9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS PR9MZERR9MONER9MNINR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9INVPR9SNHLR9FRCD@PkK[\`@Nal@@ @P+|@Z{[llP]}M]\Nkk``Kaazzm^L~~@PVnnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghh@Piijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L@P8  3$@P@P@P@P@P@P)@P@P@@@@ ..$@P$@P//N$@P$@P//N/$@P$@P//N?q /   !!! ! ( PR9BINPR9TRALR9LAHDR9CMOVR9MMOVR9NSQRR9CMSTR9MMSTR9MHLDR9INMKR9CLBGR9DETLR9TOTL:@P2 (   T@PB X@P?E@PE @(E}@@@@PJ8  3$@PXM@PX8@P^x@P^8@Pb}}@P>f@Pf T@Pj X@Pgo@Po /@(;@@Pt8@PyDD@Pf}@P} T@P X@P~@P ?@((@P}@P  T@P X ;!  3$"@P@Pրz@P8 @P@@**@P@P  T@P X @P@P@@P8@P<@`@P8@PO@@P8@Pr@@P8@Pr@P@P@P  3$6@P@ H 2<@P8@P<Հ@P8@P >@P8 PR9LSTR;R9FTNXR9TOTTR9EOTTR9PAGER9FTOVR9BINTR9ZCODR9YCODR9XCOD@P@ _@  F@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@PE@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PR9EDCNR9ECODR9FSTLR9FNBGR9ALSQR9CARAR9MARAMHLD01R9UDAT7R9UMTH9R9UDAY:R9UYER;R9FDTB@Pp@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ i ' n r t v x   @P   ' PR9RPRTMHLD01!PR9RPGX*T PLCOLST G09 R LA CCS 3.0 SL-149PR9BASER9FBSER9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS PR9MZERR9MONER9MNINR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9INVPR9SNHLR9FRCD@PkK[\`@Nal@@  C  3$J@P+|@Z{[llP]}M]\Nkk``Kaazzm^L~~@PVnnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghh@Piijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.LD "?@P@P@P@P@P@P@ A6 $Ā@P$@P  !$Ā@P$@P  "$Ā@P$@P  # r$À@P$@P r zZr rrr$@P$@P r zZr rrrrr$r%@PA$r&rr rq &[q[zq[q(&@Plq qH&q H&qH&=>?A$%'@P P'($'( h$( h$(  h$' P'a@  3$rPR9BINPR9TRALR9LAHDR9CMOVR9MMOVR9NSQRR9CMSTR9MMSTR9MHLDR9INMKR9CLBGR9DETLR9TOTL@P…($'( h$( h$(  h$r( r@P (#r#)r#@@@@P@P*r#)r#@P @P*rrFrFrFr+r2&r2$r2@P<'r2r((+r( +2r(2r($r('r  H'@PgP$r  X$r(  x'r#6r6 H$r6 H$ro '(@Pr(r,P&r- P&r.P&r/ r#H&r(/h&@Pr/P&r(0P&rGrGrGr'r(&r@@@@@P@P `&)r) &)r)rHrHrHr()rr@@@@P@P *rrq$%qo($q%$C$4@P36@P6 H HH  d@P@P@F@PF@!(H@PJ8C  3$@POH@PQ8@PVHӀ@PX8@P^H@P?`@P` d@P@Pag@Pg@"(M@@@Pj8@PwS@Pw8@P|{@P|8@P1@P`@P d@P@P@P@#(E@z@@P8  3$@PMM@P@P d@P@P@PIՀ@P8@PI@P8@PI@P@P d@P@P@P@@@P8@P @ /@! ?@' O@- _@3 o@9 @? @E @K @Q @@PW /@] ?@c O@i _@o o@u@*`@P @P @P ['\\\`@@P8a  3$@P[6@@ـ@P8@P&6@P(@P(`@P,@P).@P.)\\\@@@@P/8@P= :@`@@@ـ@P>8@PI :@`@@@@PK8@PV:@PX@PX t@P@PY`@P`@-D,   / ! ? ' O - _ 3 o 9  ?  E  K @P Q  W / ] ? c O i _ o o u/@PXJ  3$@P@@P@P@P@P8@P   / ! ? ' O - _ 3 o 9  ?  E  K  Q  @PW / ] ? c O i _ o o u0@P(@P`@P@P@P @P L\\\@@@@\\\@P 8PR9LSTR)R9FTNX*R9LABL)R9OTBG1R9DOTT2R9EOTT?R9TOTTR9PAGER9FTOVR9BINTR9ZCODR9YCODR9XCOD@P LN@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@t@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P :@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P e@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  3$@P <@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P g@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P >@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P i@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P k@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@((@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P m@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@s  3$@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@d @P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ,4@Po@P@P@P@P@PF@Pq@P@P@P@P@PH@Ps@P@P=f  3$@P@P@PJ@Pu@P@P@P@P!@PL@Pw@P@P@P@P#@PN@Py@P@P@P@P%  3$ @PP@P{@P@P@P@P'@PR@P}@P@P@P@P)@PT@P@P@P@P@P+@PV@Pԇ  3$ &@P@P@P@P-@PX@P@P@P@P@P/@PZ@P@P@P@P@P1@P\ ,L@P@P@PU  3$ :@P@P3@P^@P@P@P@P @P5@P`@P@P@P@P @P7@Pb@P@P@P@P@P9\  3$ N@Pd@P@P@P@P@P;@Pf@P@P@P@P @P =@P h@P @P @P @P!@P!?@P!j@P!  3$ b@P!@P!@P"@P"A@P"l@P"@P"@P"@P#@P#C@P#n@P#@P#@P#@P$@P$E@P$p@P$@P$@P$r  3$ v@P%@P%G@P%r@P%@P%@P%@P&@P&IL@P&tM1,N@P&@P&@P&@P' @P'KV5@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P'v@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P("@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P(M@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@:  3$ @P(x@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P(@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P(@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P(@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P)$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P)O@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P)z@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P*&@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P*Q@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P*|@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@(XH@@@@@P+(@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P+S@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P+~@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  3$ @P+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@d X@P,*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P,U@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P,@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P,@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P,@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@ @@@@@@@@@@@PR9EDCNR9ECODR9FSTLR9FNBG R9ALSQR9CARA R9MARAMHLD01R9UDAT,jR9UMTH,lR9UDAY,mR9UYER,nR9FDTB- @P-@@@@@@@@@ 8g0 V |  , 4 4LΠMM<N VL XT@P-, XԀX؀XڀX܀X'YY&YFYUYVYWY[Y]Y`YcYf'Y'Y'YހYY@P-WYYYYYYZZZ ZZPR9RPRTMHLD01!PR9RPGX*T PLDALST G10 R LA CCS 3.0 SL-149PR9BASER9FBSER9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS PR9MZERR9MONER9MNINR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9INVPR9SNHLR9FRCD@PkK[\`@Nal@@ @P+|@Z{[llP]}M]\Nkk``Kaazzm^L~~@PVnnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghh;  3$ @Piijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L@P@P? ?>@P  3$ @P >  H=H=@A@BACA BH= BH= CH= CH=O@P =(= !c!c(<_ < < zz/8 zPR9TRALR9LAHDR9CMOVR9MMOVR9NSQRR9CMSTR9MMSTR9MHLDR9INMKR9CLBGR9DETLR9TOTLfR9LSTRg@PD ;DP;DH;DH; ;&(;&< HD@PoH#GLd@Py}@P}1 \\\\\@P~8@P9%@@@P8@P+@P8@P@811@Px@P @P@P1@4) J@@@P8@P P@P8/  3$!@P @8VK@@@P8@PTՀ@P8@Px@P8@PՈE}}@P@P@P@P1@5)D@րz@P8@PMM@P@P@P@P1@6))@P@P4@Pb  3$!@P1@)A@@P8 @P-Uva@Ā@P8@P.@P@P4@P@P1@?@@P8@P#aap,Rr@@P*8 @P2aap*@P;@P;4@P<@@P@1@ G@@P@K@PC8@PN ``p$TU`@PW8p  3$!*@PZ@%Ynɀ@P\8@Pb@+@P;f@Pf4@Pgk@Pk1@!?K@@Pn8@Pu@&ff@Pfy@Py4@Pz~@P~1@"@#GK@@P@K@P8@P ``p'TU`@P8@P@(YY@Py@P4@P}@  3$!>@P1@@@@P8 @P"@@@@P8@P1`@P8 @PK\\\\\@@@@\\\\\@P8@PK@P@P4@P@P1 aat D  D  D D - Dmm@P@P4@P@P1 /aat /D  /D  /D /D - /Dmm@P@P4@P;  3$!R@P1 ?aat ?D  ?D  ?D ?D - ?Dmm@P=@P=4@P>B@PB1 Oaat OD  OD  OD OD - ODmm@P=b@Pb4@Pcg@Pg1+\\\\\\\\\\\\\\\\\\\\\\\\@Ph8@PvC\\\\\\\\\\\\\\\\\\\\\\\\@Pv8@P[\\\\\\\\\\\\\\\\\\\\\\\\@P8@Pp\\\\\\\\\\\\\\\\\\\\\@P8@Pp@Pb@P@@P.  3$!f@P1@@P@P@P@P1@@P8 @P@ 4@@@@P8@P@@P@P@P@P1+\\\\\\\\\\\\\\\\\\\\\\\\@P8@PC\\\\\\\\\\\\\\\\\\\\\\\\@P8@P[\\\\\\\\\\\\\\\\\\\\\\\\@P8@Pp\\\\\\\\\\\\\\\\\\\\\@P8\-  3$!z@P p`@P @P1@@P @P`@P@P@P1@@P!@P! @P%@P"(@P(16\\\\\@P)8@P.O@@z@P.8@P<7V\\\\\\@P>8@PC\@P!EY  3$!@PE`@PI@PFJ@PJ1@@PEO@PO`@PS@PPT@PT1@@POY@PY @P]@PZ^@P^1/\\\@@@ɀ@P`8@Pn//@`@@\\\@Pp8@P{ /O`@@@@`@P}8PR9FTNXhR9LABLgR9OTBGwR9EOTTxR9TOTT R9DOTTR9PAGER9FTOVR9BINTR9ZCODR9YCODR9XCODR9EDCN9  3$!@PO)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@d@P*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P4@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P_@@@@@@@@@@@@@@@@@@**@@@@@@@@*@@@@@@@@+@@@@@@@@+@@@@@@@@@P@@@@@@@@+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@,@@@,@@@@P @@@`@kk@@@@@@@@@@@@@@@`@@k@@P6k@@@@@@@@@@@@@@@@@`@@@@@@@@@@@@@@@@@@@@@@@@@@Pa@@@@@@@`@@-@@@-@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@-@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@-@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@. @P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P8@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Pc@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@ @@P@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  3$!@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@ Ln ( R) G)h *Ԡ* * + + + 7, , ;@P:- - - - .......'.D.T.X.h..... ..@Pe/ / / ////#)/()/-;/i/l/o/p/r'/'/'/////@P///000 00$0(00PR9ECODR9FSTLR9FNBGR9ALSQR9CARAR9MARAMHLD01R9UDATR9UMTH R9UDAY R9UYER R9FDTBPR9RPRTMHLD01!GETACRsPR9RPGX*T PLDTLST G11 R LA CCS 3.0 SL-149PR9BASER9FBSER9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS PR9MZERR9MONER9MNINR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9INVPR9SNHLR9FRCD@PkK[\`@Nal@@ @P+|@Z{[llP]}M]\Nkk``Kaazzm^L~~@PVnnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghh@Piijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L@?@@DA@B@C/@DM@Ek@F@GDH@I@J@K@L@M@N@ODP@Q@R@S@P_DT@UDV@W@XDY@Z@["@\'D]+@^1@_@`@a@b@c@d0@eDDfIDgODhX@PDi^DjdDkjDlpDmvDnDoDpDqDrDs@tDu@v@w@xDyDzD{@|D}D~@PDD@P'@P@P@P@PPR9XLATR9PFCB~R9DSEQYSETLMR9RCADR9TBIOR9INTAR9TBOTR9ITLPR9INIGR9IPBGR9FDC1R9BINP@P@@ .$@P$@P N $@P$@P N/ $@P$@P N? @P T  3$"@P @P@P.  SQRVTU WX   @P)@P+ < @P1@P3<   :@PG@PI GQ@PN@PP OR :@P\@P^ S@Pc@Pe T@Pj@Pl )U@Pq@Ps ,V@Px  3$"@Pz 5W@P@P 8X : @P@P     = @P@P @P@P VN  VN/  VN?  V/NO  V@P?N_  VONo  V_N  VoN  VN  @PVN  VN  VN/  VN?  V/NO  @P@V?N_  VONo  V_N  VoN  VN@Pk  VN  VN  VN/  VN?  V/@PNO  V?N_  VONo  V_N  VoN  PR9TRALR9LAHDR9CMOVR9MMOVR9NSQRR9CMSTR9MMSTR9MHLDR9INMKR9CLBGR9DETLR9TOTLR9LSTR@PVN  VN  .. FFz!@PD@P@P!@<@P  3$".@P @P@PA @ )C@ـ@P8@PL@P8@Pgz@P8 @P@;l@P$8@P(@P,@P,@P-2@P2A /@ )=@@P78@P< FF@P,@@P@@PAF  3$"B@PFA ?@ ))@P@M@PM @PNR@PRA @PS8@PY'@PY8 @P`1@P`8@Pd9ր@Pd8@PhG@@Ph8@PoPŀ@Po8@Psf@@@Ps8@P}q@P}8L  3$"V@PvـK@P8@P@Հ@P8 @P@PM@P @P@PA K@P8@P(@րK@P8 @P1ـK@P8@P;@P8@PF@P8@PP@P8  3$"j@PY@P8@Pg@P8@Po@P8@Pv@P8@P@@ɀ@P8 @P@P@P @P@PA@@@S*@v1@w;mHaapkRaapf\gh@UoHuvr@P@P@@P@PA@P8  3$"~@P@B0B@Ā@P8@PHADb@@P8 @P@K@P @P @P!%@P%A @@P&8@P-@C0F@@K@P/8@P; ``pTR`K@@PD8 @PL@L@P P@PP @PQU@PUA @@PV8)P  3$"@P]@D0CK@@ŀ@P_8@PiHsEcaa@Pk8 @Pt@Mz@N@PPz@Pz @P{@PAaa@P8 @P@E&@F0>@ŀz@P8 @P Q ``pHK QL`@P8@P@JPQ@IMd@z@P8@P R ``pPr Rs`@P8@P@RwR@Qtw@Pz  3$"@P@@P@PA @P8@P@P8@P"@@P8 @P+@P8@P1@P8@P@@@P8 @PN@@P8 @Pd@@@P8@P@b@P  3$"@P @P @PA@P8@Pր@P8@Pր@P8@P"@@@@@P8 @P$*ր@P$8@P(2Ӏ@P(8@P,>@@P,8@P2N@@P28 @P9d@@@P982L  3$"@PD@c@P H@PH @PIM@PMAaapV @W@xHyHzH{"@^(@X1aap~>N`aa@Pl8 @Pu@dz@e@PH{@P{@@P|@PA @P8@P@P8@P+@@P8 @P9@ƀ@P8 @PE@P8 e  3$"@PN@P8@Pe\@\@@@@@@@@@P8@P@@@@@@@@@@@@P8@P\@\@P8@P@P{@P @P@PA @P8@P@P8@P+@@P8 @P6@P8  3$"@PBKK@P8@PP@@P8@PP@P@P @P@PAn oaapp'q9@ZBaapP@|@P@P@@P@PA@P8@P!@@P!8@P'׀@P'8@P+*@@P+81  3$# @P13@P18@P5@@P58@P:S\@\@\@\@\@\@P:8 @PBf@@@@@@@@@PB8@PMw@@@@@@@PM8 @PV\@\@\@\@\@\@PV8 @P^@P`@P` @Pae@PeA@Pf8@Pj@Pj8{  3$#@Po@Po8@Ps)@@Ps8@Px3@Px8@P}C@@P}8 @P@_@P`@P @P@PAaaph aapiaaplaapj*@\3aap]A@`@P@P @P@PA@a@P@P@P@PM  3$#2@PA@@@@@@@@@P8@P@@@@P8@P,@@@@@@P8 @P<@@@@@@@P8 @PT@@@@a@@@@@@P8@P[@@@P8@Po@@@@@@@@@@P8@P@@@K@@@@@@@P8@P@P@P P@P  3$#F@PA@@?@UH[ S```pnS@k T```pT@!@PE@PH@PH P@PIN@PNA@$@%?@&UH'[ U```p(nU@*k V```p+V@-@Py@PH|@P| P@P}@PA@0@1?@2UH3[ W```p4nW@6k X```p7X@9@P@P|@P @P@PA @ )K@@P8@Pg@P8 @P@;l  3$#Z@P8@P؈@P@P@P@PA /@ )?@@P8@P HH@P@P@P@PA ?@ ))@P@P @P@PA @P8@P #@P 8@P+m  3$#n@P8@P3@P8@P;@P8@PF@P8@P&W\@\@\@\@\@\@\@\@P&8@P0o@@@@@@@@@@@@@@@P08@P=\@\@\@\@\@\@\@\@\@\@P=8@PI@PK@PK @PLQ@PQA K@PR8@PV!{  3$#@PV8@PZ*ր@PZ8@P^2ր@P^8@Pb:ր@Pb8@PfDK@K@Pf8@PkD@PKm@Pm d@Pns@PsA@ @ a@Pz8@P} /@  !a@P8@P ?@ # O@ ) _@ 1 o@ 9 @ A @ C@ @Pm@Pdu  3$#@P@PA @P8@P@K@P8 @P@:-9@@@P8 @P9`@P@P@PAK\\\\@@@@\\\\@P8PR9FTNXR9LABLR9OTBGR9EOTTR9TOTTR9DOTTR9PAGER9FTOVR9BINTR9ZCODR9YCODR9XCODR9EDCN@PK<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@d =@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P.@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PY@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@>2@@@@@@@@@@@@@@@@@@?f  3$#@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @P[ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@ @@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  @@@@P @@@@@@@@@@@@ @@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P 2@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@P ]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@ @@@@@ @@@@P! @@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P!4@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P!_@@@@@@@@@@@@@@@@@@ @@@@@@@@@P! @@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  @@@@@@@@P!@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ Ls@P! P; < = >8 '>>>>>O? ? ??*?+?,?-@P" ?K?i?}??? ??? ?????@@@ @ @@"@# @1@P"6@2@3@Q@o@@@@ @@@ @@@@@@@@@AR  3$#@P"aA6ATAhAmAn At A~AAAAAA؀ A AAA BBB B B@P"BBBBB B!B?B]B{BBBBЀBԀ)BـB݀BBBB)B)@P"B)BC)C)C C CCCC"C&C(C*C,'CTCVCZ)C_Cc'CCC@P"CCPR9ECODR9FSTLR9FNBGR9ALSQR9CARAR9MARAMHLD01R9UDATXR9UMTHZR9UDAY[R9UYER\R9FDTB!PR9RPRTMHLD01!GETACRPR9RPGX*T PLPGCMP G12 R LA CCS 3.0 SL-149PR9BASER9FBSER9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS PR9MZERR9MONER9MNINR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9INVPR9SNHLR9FRCD@PkK[\`@Nal@@ @P+|@Z{[llP]}M]\Nkk``Kaazzm^L~~@PVnnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghh@Piijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L @ B H N P R T rO  '  ODHJL@P\NTPR9RPRTMHLD01!PR9RPGX*T )  3$$^ PLPGUTB G14 R LA CCS 3.0 SL-149PR9BASER9FBSER9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS PR9MZERR9MONER9MNINR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9INVPR9SNHLR9FRCD@PkK[\`@Nal@@ @P+|@Z{[llP]}M]\Nkk``Kaazzm^L~~@PVnnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghh@Piijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L@P 9 ? @ A B C D Ef@P dE 7E@P k@P m 7@P p@P r 7@P w@P y 7@P @P 7Ef/E 8EEf?E 9EEfO@P E :EEf_E ;EEfoE <EEfE >E@P EfE ?EEfE @EEfE AEEf/E  3$$@P  BEEf?E CEEfOE DEf_E FE@P (@P * F 423756:89=;<@>?FA(G@P A@P C 7@P F@P H 7@P M@P O 72  8   FF@P h@P j 0GGGG FG3FG3FGFG FG  4@P  @P @P 0GG4GG    @P @P 955@P @P 95555 @P @P :66  3$$@P @P :6666 G9H:IH G I7777 F@P @P ;FF@P @P  ;FF@P @P  ;FF8F8 F@@P @P  FFGB  3%$@P @P >GGF@P @P >GGF@P @P ;G@P @P ;FG; V ? (J JQ/ JR? JSO JT_ JUQKA@P RKBSKCTKDU 8  @P @P 0 (2(4(3(5(6 6((6PR9TRALR9LAHDR9CMOVR9MMOVR9NSQRR9CMSTR9MMSTR9MHLDR9INMKR9CLBGR9DETLR9TOTL @R9LSTR A@P ;L2(L4(L3ML(M5(6 6([ ?  [ 0@P f       x s   T0@P y |@P |)@8@9 @:@;@<@=@>@?0@@6@A<@BB@CH@DNP@@P 8@P P)  3%$@P x @P d0@P @P )@!P@7PP@P @P D@P @P )@8@9 @:@;@<@=@>@?0@@6@A<@BB@CH@DNP@@P 8@P P@P @P @P @P 1 @(q@P 8@P ؈Nvv@P @P @P @P 1 /@(q@T  3%$@P 8@P {{@P @P @P @P 1 ?@((@P @P @P @P 1@P 8@P ?@@@@@P 8@P W@@@@P 8@P "W@P $@P $@P % )@P )1  3%%@P *8@P 0#@@@P 08 @P 9c@@@@@@@@@@@@@@P 98@P Fu@@@@@@@P F8@P Qu@P $ S@P S@P T X@P X1@@@@@P Y8@P f#@@@P f8 @P o8@@@P o8 @P xb@@@@@@@P x8@P t@@@@E  3%%&@P 8@P t@P S @P DTdt@P @P 1@8@9 @:@;@<@>"@?K@@S@AZ@Ba@Ch@Do@"@# @$@%@&@P @("@)K@+S@,Z@-a@.h@/o@7s2@@@P 8 @P 3@@@@@P 8 @P 4@@@@P 8 @P5@@@P8 @P6@@@@P8 @P7@@@@P8 @P&8@@@P(8   3%%:@P19@@@P38 @P<:@@@P>8 @PG;@@@@PI8 @PR=@@@@PT8 @P]>@@@@P_8 @Ph?@@@@Pj8 @Ps@@@@@Pu8 @P~A@@@@P8 @P@P @P@@Pr  3%%N@P1@@@@P8@P2@P@P@P@P1@P8@P4@P@P@P@P1@P8@P3@P@P@P@P1@@@P8  3%%b@PǠL@P@P@P@P1@P8@Pנ5@P@P@P@P1@@@P8PR9FTNX _R9LABL ^R9OTBG wR9EOTT xR9DOTTR9TOTTR9PAGER9FTOVR9BINTR9ZCODR9YCODR9XCODR9EDCN@PM,@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@X@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P=@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"@@@@@@@@k@@@k@@Ph@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@M]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M]@@`@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@M]@@`@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@M]@@k@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@R  3% %v@P@@@@@@M]@@k`k`k`k@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P?@@@M]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@{@@@Pj@@M]@@`@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@M]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M@P]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M]@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@M]@@@@@@@@@@@@@@@@@@@@PA@@@@@@@@@@@M]@@@@@@@@@@@@@@@@@@@``@Pl@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PC@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Pn@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@ @P Lv= 'X O J#####O#n#r'#O####@P#####$$9$?$E$K$Q$WO$$$$$$$$$$@PE$%%% %%%%%%!%$%&%'%-%1%5%6%7%8%9%W&  3% %@Pp%]%c%i%o%uO%%ǀ%%̀%%%%ڀ%݀PR9ECODR9FSTLR9FNBGR9ALSQR9CARAR9MARAMHLD01R9UDATR9UMTHR9UDAYR9UYERR9FDTBPR9RPRTMHLD01!PR9RPGX*T PLTMUSE G15 R LA CCS 3.0 SL-149PR9BASER9FBSER9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS PR9MZERR9MONER9MNINR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9INVPR9SNHLR9FRCD@PkK[\`@Nal@@ @P+|@Z{[llP]}M]\Nkk``Kaazzm^L~~@PVnnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghh@Piijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L@@PC@PE ??>?<=& (&' (' (' & (22(()(@Pp* (++*2@P{@P} (,, -,@P@P- -(((F@PFG-|  3% %@PPR9BINPR9TRALR9LAHDR9CMOVR9MMOVR9NSQRR9CMSTR9MMSTR9MHLDR9INMKR9CLBGR9DETLR9TOTL@P-Gr* )r.r.*r)r/%r%r! /@Pr +{d@P@PH HH@P @P d@P  @P @-H HH@$@P  @P )`@@@P 8 @P !zp.&&@P  )@P ) $@P * 0@P 0)@P 18@P 7/&&   tD0  3%%@P B x $ @P < H@P H)@"((@P ; M@P M   t@P T x $ @P N Z@P Z)@#(K@@@P ]8@P hy@P h8@P l0~~@P M p@P p   t@P w x $ @P q }@P })@$(A@րz@P 8@P JJ@P p >  3%%@P @@ t@P x@$ @P @P )րz@P 8 @P @ @%%@P @P @@ t@P x@$ @P @P )@P 8@P @P 8@P !@P 8@P &Ӏ@P 8@P /ŀ@P 8  3%&@P 5À@P 8@P :ŀ@P 8@P @@P 8@P @@P @P   t@P x $ @P @P )@P 8@P ɀ@P 8@P !ɀ@P 8@P &ɀ@P 8@P /b  3%&@P 8@P 5Ā@P 8@P :Ā@P 8@P @Ā@P 8@P I@P 8@P I@P @P  @P  @P )q@ 2 >zp= >zp2zp!2zp+&aa@P Ap/@5@:@@@~~@P ) N@P N`@P R@P O S@P S)F\\\@@@@\\\1  3%&*@P T8@P aF@P N c@P c$@@P d g@P gH!PP@P  l@P l@P m o@P o!@ H)@@@P u8PR9LSTRR9FTNXR9LABLR9OTBGR9EOTTR9TOTT R9DOTT ;R9PAGER9FTOVR9BINTR9ZCODR9YCODR9XCOD@P y )@  @@@@@@@@@@@@@@@@@@@@  @@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @ @@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PR9EDCNR9ECODR9FSTLR9FNBG R9ALSQR9CARA R9MARAMHLD01R9UDAT R9UMTH R9UDAY R9UYER R9FDTB ;@P %@@@@ @@@@@@@@@@@@@ i}t @P P0468;=?BDJLNP7'@P {''&'NQTWZ^`cipsv  3%&>PR9RPRTMHLD01!PR9RPGX*T PLTRNDP G16 R LA CCS 3.0 SL-149PR9BASER9FBSER9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS PR9MZERR9MONER9MNINR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9INVPR9SNHLR9FRCD@PkK[\`@Nal@@ @P+|@Z{[llP]}M]\Nkk``Kaazzm^L~~@PVnnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghh@Piijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L'fjlptuvz|@P PR9RPRTMHLD01!PR9RPGX*T PLUD50A G17 R LA CCS 3.0 SL-149PR9BASER9FBSER9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS PR9MZERR9MONER9MNINR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9INVPR9SNHLR9FRCD@PkK[\`@Nal@@ @P+|@Z{[llP]}M]\Nkk``Kaazzm^L~~@PVnnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghh@Piijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""Q  3%'@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L@@P+8@P0FJ@@@P68@P:RR@P @@P@ t@PD x$4@PAP@PP ?@(E@ŀz@PU8@P\NN@P@`@P` 4 $    t@Ps xG  3%&'@Pat@Pt @@@@@@@Pu8 @P|  ! " @@@@@@@P8 @PH@P8@PV@@P8@P\@P8@Pc@P8@Pk@P8@Py@P8@P@@P8@P  3%''@P`@P4$ t@P x@P@P @ŀ@P8 @P  ! " @@P8 @P@P8@P&@P8@PH@P8@PU@P8@P\ŀ@P8@Pbր@P8bP  3%('@Pk@P8@Py@P8@P@a@P8@P@P@P@P @P @  " !@ @  " !@ @ @@JW\@ alz`@P2@P4`@P6@P/8@P8AK@P98 @PAY@@@PA8 @PIn@@S  3%)'@PI8@PS}@Հ@PS8 @P[}@P.]@P]@Pa@Pc@Pe@P^g@Pg \\@Ph8@Pk@@@@@Pk8@Pr @Ā@Ps8@Pz@\\@P{8@PAY l!||@P]r  3%*( @P`@P@P@PAK@@P8 @PY@@@P8 @Pn@@@P8@P}@Հ@P8 @P}@P@P @P@P@P \\\\@P8@P@@P8j$  3%+(@P  "@@@@@P8@P!@@@@@@@@@@P8@P @\\\\@P8 @PA"Y#l$||@P@P`  @P@P@P/\\\@@@ɀ@P8@PI\\\\@@@@\\\\@P8@PI`@P@PAK@@P8 @P!Y@@  3%,(2@P!8 @P)n@@@P)8@P3}@Հ@P38 @P;}@P=@P=@P>C@PC \\@PD8@PG@@@@@PG8@PN @Ā@PO8@PV@\\@PW8@P^AY l!||@P=h@Ph   3%-(F@Pin@Pn @(P@@`@Pt8@PQ@`@ـ@P8@Pr@P8@P%ww@Ph@P@P@P /@(D@@@P8@PL>@P8@PFJ@@@P8@PRR@P@P  3%.(Z@P@P ?@(E@ŀz@P8@P׀NN@P@P`Ć@P@PAK@@P8 @PY@@@P8 @Pn@@@P8@P}@Հ@P8 @P }@P @P  Ć@P  @P  \\\\}v  3%/(n@P 8@P @@P 8@P   "@@@@@P 8@P !!@@@@@@@@@@P #8@P * @\\\\@P +8 PR9LSTRR9FTNXR9LABLR9OTBGR9DOTTR9TOTT.R9EOTTR9PAGER9FTOVR9BINTR9ZCODR9YCODR9XCOD@P 3A"Y#l$||@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P ^@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  @@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  @P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  PR9EDCNR9ECODR9FSTLR9FNBG =R9ALSQR9CARA >R9MARAMHLD01R9UDAT R9UMTH R9UDAY R9UYER R9FDTB @P YV '   $%)-KO)T)@P Y]_c)hijl'  ++++++ȁPR9RPRTMHLD01!PR9RPGX*T I  3%0( PRECVRY G19 R LA CCS 3.0 SL-149PR9BASER9FBSER9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS PR9MZERR9MONER9MNINR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9INVPR9SNHLR9FRCD@PkK[\`@Nal@@ @P+|@Z{[llP]}M]\Nkk``Kaazzm^L~~@PVnnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghh@Piijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.LD?D@DADB@C"@DDE@P DFDG DHDIDJDK(DL+DM4DN7DO@DPI@QR"@RTDSVDTYDUbDVkDWnDXwDYDZ@P D[D\D]D^@_"@`DaDbDcDdDeDfDgDhDiDjDkDl@m"@nDo@P Dp DqDrDsDt'Du0Dv3Dw 9@P l ՓԚF N(L G Փ@P T \(Z U ՓԚb j(h@P c Փp x(v q Ԛ =  3%2(@P ~ (    Փ Ԛ  ( @P   Ԛ  (   Փ Ԛ@P C  (   Փ   ՓԚ@P n& % % ՓԚ4 3 3 Փ@P ԚB A A ՓԚP O O@P đ Փ^ ] ] Ԛl k@P  k ՓԚz y y Փ@P     Փ Ԛ    @P E Փ     Ԛ   @P p  Փ Ԛ   ՓԚ@P    ŋ         @P Ƌ @P @P @P@@@P 8@P ?@P@@P 8 @P Q@@P 8@P ~@K:  3%3(@P 8@P @P @P @P @P @K@P8 @P u@z@P 8@P~~@P @P@P@P@@P8@P'@P)@P)@P*.@P. a@@{  3%4(@P/8 @P7@'@z@P98 @P@@ F`@z@PB8@PM@ efa@PO8@PR@ ho``@PT8@PY@rsa@P[8@P^@uu@P)b@Pb@Pcg@Pg\`````````\@@\@Ph8@Pv7`````````````@Pv8@PO``\@@\\@@\```y  3%5(@P8@Pg`\@@\`````````````@P8@P\@@\``````@```@P8@P````\@P8@P@Pb@P@P@Pa@@K@@@@P8@P+@@@@@@@P8@PBK@@@@@@P8@PVK@@@@@K@P8@Po@@@@fF  3%6(@P8@P@@@@@@@@P8@P@P@P@P@P@@@@@@P8@P6@@@@@@@P8@P#P@@@@À@P#8@P/h@@@@@@P/8@P<~@€@P<8@PHŀ@PH8@PLis  3%7)@PN@PN@POS@PS@ a@PV8@PY@ H %+,l@Pe8@PhH1:CHHQqzl@Px8@P{@PN}@P} @P~@P@a@P8@P@H %+,l@P8@PH1: CH!H"Qq%zl@P8@PP  3%8)"@P}@P0@P@P@(a@P8@P@'H) *+%+,l@P8@PH,1-:.CH/H0Qq3zl@P8@P@P@P@@P@P@6a@P8@P@5H7 89%+,l@P8@PH:1;:<CH=H>QqAzl@P8@P E  3%9)6@P @P P@P@P@Da@P8@P@CHE FG%+,l@P%8@P(HH1I:JCHKHLQqOzl@P88@P;@P =@P=`@P>C@PC@Ra@PF8@PI@QHS TU%+,l@PU8@PXHV1W:XCHYHZQq]zl@Ph8@Pko  3%:)J@P=m@Pmp@Pns@Ps@`a@Pv8@Py@_Ha bc%+,l@P8@PHd1e:fCHgHhQqkzl@P8@P@Pm@P䀀@P@P@na@P8@P@mHo pq%+,l@P8@PHr1s:tCHuHvQqyzl@P8@P  3%;)^@P@P䀐@P@P@|a@P8@P@{H} ~%+,l@P8@PH1:CHHQqzl@P8@P@P@P䀠@P@P@a@P8@P @H %+,l@P8@PH1:CHHQqzl@P(8@P+  3%<)r@P-@P-䀰@P.3@P3@a@P68@P9@H %+,l@PE8@PHH1:CHHQqzl@PX8@P[@P-]@P]@P^c@Pc@a@Pf8@Pi@H %+,l@Pu8@PxH1:CHHQqzl@P8@P  3%=)@P]@P @P@P@P8@PH %+,l@P8@PH1:CHHQV_h q zl@P8PR9LSTR R9FTNX R9LABL R9OTBG R9EOTT R9DOTTR9TOTTR9PAGER9FTOVR9BINTR9ZCODR9YCODR9XCOD@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @P @@@@  @P @@@@ @@@@  @P? @@@@ @@@@  @Pj @@@@ @@@@  @P @@@@ @@@@  @P @@@@ @@@@  @P @@@@  @P  @PA  }>  3%>)@Pl  PR9EDCNR9ECODR9FSTLR9FNBGR9ALSQR9CARAR9MARAMHLD01R9UDATR9UMTHR9UDAYR9UYERR9FDTB@P %##########Ѐ#)#׀)##ހ)#)##@P€)##)#)#)$$$$$ $$$$$$$ $$$($,$.$0@P$2$6$:$<$@$D$F$J$L$P$T$X$Z$\$^$b$f$h$l$p$r$v@P$x$|$$$$$$$$$$$$$$$$$$$@PC$$$$$Ȁ$$΀$$Ԁ$$$$$$$$$$$$$@Pn%%%% % %%%%%% %"%&%(%,%0%4%6%8%:%>@P%B%D%H%L%N%R%T%X%\%`%b%d%f%j%n%p%t%x%z%~%%@PĀ%%%%%%%%%%%%%%%%%%%%€%ƀ@P%Ȁ%%Ѐ%%ր%%܀%%%%%)%)%%)%)&&)&& )&)&@P)&&)&!,&(&+)&0&3&7&;&?&C&G&K&O&S&W&[&_&c&g&k @PE&q&t&w&z&}&&&&&&&&&&&&&&&&&@Pp&&&&À&ƀ&ʀ&̀&р&Ԁ&؀&ۀ&߀&)&&&&&&&'@P'' ''''''"'&'*'.'2PR9RPRTMHLD01!PR9RPGX*T PZLA21 G21 R CCS CCS 3.0 SL-149PR9BASER9FBSER9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS   3%?)PR9MZERR9MONER9MNINR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9INVPR9SNHLR9FRCD@PkK[\`@Nal@@ @P+|@Z{[llP]}M]\Nkk``Kaazzm^L~~@PVnnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghh@Piijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.Lmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3%T+Rmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm|  3%U+fmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmg  3%V+zmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmR  3%W+mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm=  3%X+mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm(  3%Y+mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3%Z+mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3%[+mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3%\+mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3%],mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3%^,mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3%_,.mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3%`,Bmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3%a,Vmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmk  3%b,jmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmV  3%c,~mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmA  3%d,mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm,  3%e,mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3%f,mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3%g,mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3%h,mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3%i,mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3%j- mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3%k-mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3%l-2mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3%m-Fmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmo  3%n-ZmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmZ  3%o-nmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmE  3%p-mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm0  3%q-mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3%r-mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3%s-mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3%t-mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmALKu-O CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm NAM D1827 C01 A DRVR CCS 3.0 SL-149C0100001* 1827 LINE PRINTER KERNEL DRIVER C0100002* CREDIT COLLECTION SYSTEM VERSION 3.0 C0100003* DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA C0100004* COPYRIGHT CONTROL DATA CORPORATION 1979 C0100005 SPC 3 C0100006**** C0100007*E C0100008* **********************************************************************C0100009* LINE PRINTER DRIVER (INTERFACE TO USER) C0100010* **********************************************************************C0100011 SPC 2 C0100012* C0100013* FUNCTION C0100014* -------- C0100015* C0100016* HANDLES REQUESTS FOR OPERATION OF THE 1827 LINE PRINTER C0100017* C0100018* C0100019* GENERAL DESCRIPTION C0100020* ------------------- C0100021* C0100022* THE (KERNEL) DRIVER IS THE INTERFACE OR 'FRONT END' C0100023* BETWEEN THE OPERATING SYSTEM AND THE KERNEL FOR C0100024* THE 1827 LINE PRINTER. SPECIFICALLY, THE DRIVER C0100025* HANDLES FINDING NEXT REQUEST, RETURN OF CONTROL C0100026* TO SYSTEM, COMPLETING REQUESTS, C0100027* LOGGING ERRORS IN ENGINEERING LOG, ALT. DEVICES, C0100028* AND PASSING CONTROL TO KERNEL AFTER REQUEST IS C0100029* SET IN THE APPROPRIATE PHYSICAL DEVICE TABLE(PDT). C0100030* C0100031* C0100032* IF THE FLAG IN THE PHYS TAB, DBLBUF,IS EQUAL TO 1, THEN THE C0100033* THAN THE MAXIMUM ALLOWED, MAXBUF IN THE PHYS TAB. C0100034* DRIVER DOUBLE-BUFFERS OUTPUT TO THE PRINTER. THIS MEANS THAT C0100035* IF THE NUMBER OF WORDS IN THE REQUEST IS LESS THAN MAXBUF, C0100036* THEN THE DRIVER WILL MOVE THE USER'S DATA TO AN INTERNAL C0100037* BUFFER. IT WILL THEN COMPLETE THE REQUEST BEFORE IT IS C0100038* ACTUALLY PROCESSED. THIS WILL ALOW THE USER TO ISSUE A C0100039* SECOND REQUEST BEFORE THE FIRST ONE IS COMPLETED. C0100040* THIS MEANS THAT THE USER CAN PROCESS THE SECOND REQUESz  3%u-T WHILE C0100041* THE FIRST REQUEST IS BEING OUTPUT TO THE PRINTER. C0100042* C0100043* NO DOUBLE BUFFERING WILL OCCUR IF THE FLAG DBLBUF IN THE C0100044* PHYSICAL DEVICE TABLE IS SET TO 0 OR IF THE REQUEST IS GREATERC0100045* THAN THE MAXIMUM ALLOWED, MAXBUF IN THE PHYS TAB. C0100046* C0100047**** C0100048 EJT C0100049**** C0100050*E C0100051* C0100052* INPUT REQUIREMENTS C0100053* ------------------ C0100054* C0100055* C0100056* (Q) REGISTER = ADDRESS OF PHYSICAL DEVICE TABLE C0100057* DRIVER SCHEDULED FOR REQUEST INITIATION OR C0100058* TIME OUT INTERRUPT HAS OCCURRED C0100059* C0100060* C0100061* OUTPUT C0100062* ------ C0100063* IF ERROR, A REG CONTAINS FAULT CODE: C0100064* TIMEOUT 0 C0100065* ALARM 2 C0100066* PARITY 3 C0100067* INT REJ 5 C0100068* EXT REJ 6 C0100069* FAULT CODE ALSO IN PDT C0100070* PDT IS UPDATED TO INDICATE COMPLETED OR CURRENT STATUS C0100071* OF REQUEST C0100072* C0100073* C0100074* ENTRY/EXIT C0100075* ---------- C0100076* C0100077* C0100078* ENTRY - C0100079* C0100080* ENTRY IS BY SIMPLE JUMP TO ENTRY POINT I1827 C0100081* WITH THE ADDRESS OF THE PDT IN THE Q REGISTER C0100082* C0100083* C0100084* EXIT - C0100085* A. DISPATCHER WHEN THERE ARE NO FURTHER C0100086* REQUESTS TO PROCESS C0100087* B. ALTDEV WHEN ERROR OCCURS ON C0100088* NON-DIAGNOSTIC LU. /  3%v- C0100089* C0100090**** C0100091 EJT C0100092**** C0100093*E C0100094* C0100095* FLOW C0100096* ---- C0100097* C0100098* PROGRAM SAVES PDT ADDRESS IN I C0100099* RETURN JUMPS TO FIND NEXT REQUEST ROUTINE. C0100100* GOES TO DISPATCHER IF THERE ARE NO C0100101* FURTHER REQUESTS FOR THIS UNIT. C0100102* OTHERWISE GO TO THE LINE PRINTER KERNEL. C0100103* ON RETURN, GO TO COMPLETE REQUEST IF NO ERROR C0100104* OR IF THIS IS A REQUEST TO DIAGNOSTIC LOGICAL C0100105* UNIT NUMBER. OTHERWISE FETCH FAULT CODE AND C0100106* EXIT TO ALTERATE DEVICE HANDLER. C0100107* C0100108* C0100109* C0100110* SUBROUTINES C0100111* ----------- C0100112* C0100113* ALTDEV - ALTERNATE DEVICE HANDLER C0100114* DISPAT - SYS ROUTINE TO TO PASS CONTROL TO NEXT PROGRAM C0100115* K1827 - KERNEL, 1827 LINE PRINTER C0100116* LOG - LOG ERROR IN ENGINEERING LOG C0100117* MAS300 - EXIT WHEN NO MORE REQUESTS C0100118* RCMAKQ - REDUCED CORE MONITOR MAKE Q C0100119* RCMFNR - REDUCED CORE MONITOR FIND NEXT REQUEST C0100120* RCMPRQ - REDUCED CORE MONITOR COMPLETE REQUEST C0100121* C0100122* C0100123* C0100124* C0100125**** C0100126 EJT C0100127**** C0100128*E C0100129* PARAMETERS C0100130* C0100131* PDT EQUATES C0100132* C0100133 EQU ELVL(0) 00 SCHEDULER CALL WITH DRIVER LEVEL C0100134 EQU EDIN(1) 01 DRIVER INITIATOR ENTRY C0100135 EQU EDCN(2) 02 DRIVER CONTINUATOR ENTRY C0100136 EQU EDPGM(3) 03 DRIVER DIAGNOSTIC ENTRY u(  3%w. C0100137 EQU EDCLK(4) 04 DIAGNOSTIC CLOCK C0100138 EQU ELU(5) 05 LOGICAL UNIT C0100139 EQU EPTR(6) 06 PARAMETER LOCATION C0100140 EQU EWES(7) 07 CONVERTOR, EQUIPMENT, STATION C0100141 EQU EREQST(8) 08 REQUEST STATUS C0100142 EQU ESTAT1(9) 09 DRIVER STATUS C0100143 EQU ECCOR(10) 10 CURRENT LOCATION C0100144 EQU ELSTWD(11) 11 LAST LOCATION PLUS ONE C0100145 EQU ESTAT2(12) 12 DEVICE STATUS C0100146 EQU MASLGN(13) 13 DRIVER LENGTH (IF MASS MEMORY) C0100147 EQU MASSEC(14) 14 NAME ASSOCIATED WITH SECTOR NUMBER C0100148 EQU RETURN(15) 15 RESERVED FOR FNR AND CMR C0100149 EQU FLTCOD(16) 16 FAULT CODE IF A REQUEST ERROR OCCURS C0100150 EQU DIAGLU(17) 17 DIAGNOSTIC LOGICAL UNIT C0100151 EQU GHOSTI(18) 18 COUNT OF GHOST INTERRUPTS C0100152 EQU MICROI(19) 19 MICRO-INTERRUPT NUMBER C0100153 EQU TIMOUT(20) 20 TIMEOUT PERIOD TO WAIT FOR AN INTERRUPT C0100154 EQU SENTRY(21) 21 STATUS AFTER INITIAL ENTRY C0100155 EQU SINTER(22) 22 STATUS AFTER INTERRUPT C0100156 EQU STIMEO(23) 23 STATUS AFTER INTERRUPT TIMEOUT C0100157 EQU FTNLU(24) 24 FORTRAN LOGICAL UNIT NUMBER C0100158 EQU MOTCMD(25) 25 PAPER MOTION COMMAND WORD C0100159 EQU BLNKCT(26) 26 COUNT FOR SPACE FILL C0100160 EQU CHARCT(27) 27 CHARACTER OUTPUT COUNT C0100161 EQU LINLEN(28) 28 NUMBER OF CHARACTERS PER LINE C0100162 EQU LINCT(29) 29 LINE COUNT C0100163 EQU MAXLIN(30) 30 MAX NUMBER OF LINES PER PAGE C0100164 EQU MTNREQ(31) 31 MOTION REQUEST WORD SAVED HERE C0100165 EQU BLNKDT(32) 32 ZERO IF LINE IS ALL BLANKS C0100166 EQU ADTTBL(33) 33-36 ADT TABLE C0100167 EQU ADTBUF(37) 37 ADT BUFFER ADDRESS C0100168 EQU DBLBUF(38) 38 DOUBLE BUFFERING FLAG(1=DBL BUFFERING,0=NO)C0100169 EQU REQCFL(39) 39 REQUEST COMPLETED FLAG C0100170 EQU NEWBUF(40) 40 NEW BUFFER ADDRESS C0100171 EQU SVFLTC(41) 41 SAVED FAULT CODE C0100172 EQU SVEST1(42) 42 SAVED ESTAT1 C0100173**** C0100174 EJT C0100175**** C0100176* C0100177* MESSAGES C0100178* C0100179* C0100180* ALTERNATE DEVICE HANDLER WILL PRINT FAULT CODE FOR C0100181* NON-DIAGNOSTIC UNITS C0100182* C0100183* C0100184* MISCELLANEOUS {  3%x." C0100185* ------------- C0100186* C0100187* NONE C0100188**** C0100189 EJT C0100190**** C0100191*E C0100192* C0100193* C0100194* MISCELLANEOUS EQUATES C0100195* C0100196 EQU ADISP($EA) CELL CONTAINING DISPATCHER ADDRESS C0100197 EQU RCMFNR($B5) CELL CONTAINING FIND NEXT REQUEST ADDR C0100198 EQU RCMPRQ($B6) CELL CONTAINING COMPLETE REQ ADDRESS C0100199 EQU TOERR($0) TIME OUT ERROR CODE C0100200ONEBIT EQU ONEBIT(3) 136*5500C0100201 EQU H0002($24) HEX 0002 C0100202 EQU H000F(6) HEX 000F C0100203 EQU H001F(7) HEX 001F C0100204 EQU MAXBUF(72) MAXIMUM BUFFER LENGTH FOR DOUBLE BUFFERING C0100205 EQU AMONI($F4) MONITOR LOW MEMORY ADDRESS CELL C0100206 SPC 3 C0100207 ENT I1827 INITIATOR ENTRY POINT FOR MSOS/RTOS C0100208 ENT BUFADT ADT BUFFER ADDRESS - 1 C0100209 ENT BUFR1 131*5239C0100210 ENT ILP408 INITIATOR ENTRY POINT FOR ODS C0100211 SPC 3 C0100212 EXT ALTDEV ALTERNATE DEVICE HANDLER C0100213 EXT* K1827 INITIAL ENTRY TO KERNEL OF LINE PRINTER C0100214 EXT* C1827R RELATIVE CONTINUATOR ENTRY POINT IN KERNEL C0100215 EXT* E1827R RELATIVE ERROR ENTRY POINT IN KERNEL C0100216 EXT LOG ENGINEERING LOG ENTRY ROUTINE C0100217 EXT MAKEQ SYSTEM ROUTINE TO SET REQUEST STATUS C0100218 EXT MAS300 MASS EXEC EXIT HANDLER C0100219 EJT C0100220**** C0100221* C0100222* CODE TO ABSOLUTIZE I,C,E ADDRESSES IN PDT IF DRIVER C0100223* IS MASS-RESIDENT-ENTRY WITH FWA ADDR IN A,PDT ADDR IN Q C0100224* C0100225DSTART STQ- I CONTROL COMES HERE FROM MMEXEC-SAVE PDT ADDR C0100226 ENQ I1827-DSTART GET INITIATOR ADDRESS C0100227 AAQ Q C0100228 STQ- EDIN,I C0100229 LDQ =XC1827R GET CONTINUATOR ADDRESS C0100230 INQ *-DSTART-1 C0100231 AAQ Q C0100232 STQ- EDCN,I A  3%y.6 C0100233 SPC 4 C0100234*** CALCULATE INTERNAL BUFFER ADDRESS C0100235 SPC 2 C0100236 LDQ =XBUFR1-DSTART BUFFER 1 RELATIVE ADDRESS TO Q C0100237 AAQ Q ADD DSTART ABSOLUTE ADDRESS C0100238 STQ- NEWBUF,I SAVE Q AS ADDRESS OF NEW BUFFER C0100239 INQ ADTBFR-BUFR1-1 GET ADT BUFFER ADDRESS-1 C0100240 STQ- ADTBUF,I STUFF IT IN PDT C0100241 LDQ =XREQCOM-DSTART REQUEST COMPLETION RELATVE ADDRESS C0100242 AAQ Q Q HAS ABSOLUTE ADDRESS C0100243 STQ* COMPAD SAVE IN REQUEST C0100244 ADD =XE1827R GET TIME OUT (ERROR) ADDRESS C0100245 INA *-DSTART-1 C0100246 STA- EDPGM,I C0100247 JMP* I10 GO TO FIND A REQUEST C0100248MS300 ADC MAS300 MMEXEC EXIT WHEN DRIVER IS THROUGH C0100249CURADR NUM 0 CURRENT BUFFER ADDRESS C0100250 EJT C0100251*** INTERNAL REQUEST C0100252IREQST RTJ- (AMONI) C0100253REQCDE NUM 0 REQUEST CODE C0100254COMPAD NUM 0 COMPLETION ADDRESS C0100255THREAD NUM 0 THREAD C0100256LUNIT NUM 0 LOGICAL UNIT C0100257WORDNO NUM 0 NO. OF WORDS C0100258STRTAD NUM 0 STARTING ADDRESS C0100259 EJT C0100260I05 EQU I05(*) NO MORE REQUESTS C0100261 ENA 0 RESET SAVED ESTAT1 C0100262 STA- SVEST1,I * C0100263 JMP* (MS300) ELSE EXIT MASS EXEC C0100264 EJT C0100265 SPC 2 C0100266I1827 STQ- I SAVE FWA OF PHYSICAL DEVICE TABLE (PDT) C0100267 EQU ILP408(I1827) DEFINE ENTRY FOR ODS C0100268I10 EQU I10(*) C0100269 ENA 0 RESET REQUEST COMPLETED FLAG C0100270 STA- REQCFL,I * C0100271 RTJ- (RCMFNR) FIND NEXT REQUEST C0100272 JMP* I05 NO MORE REQUESTS C0100273 SPC 2 C0100274 LDA- DBLBUF,I GET DOUBLE BUFFERING FLAG C0100275 AND- ONEBIT BIT 1=1 FOR DOUBLE BUFFER 136*5500C0100276 SAN I101 SKIP IF DOUBLE BUFFERING C0100277 JMP* I19415 JUMP IF NOT C0100278 SPC 4 C0100279I101 EQU I101(*) DOUBLE BUFFERING C0100280 LDA- DIAGLU,I IF DIAGNOSTIC LOGICAL UNIT THEN ;  3%z.J C0100281 SUB- ELU,I * C0100282 SAN I11 * C0100283 JMP* I19415 GO PROCESS REQUEST C0100284I11 EQU I11(*) ELSE C0100285 LDA- SVEST1,I IF ERROR ON PREVIOUS REQUEST THEN C0100286 SAP I111 * C0100287 STA- ESTAT1,I PLUG IT IN PDT C0100288 LDA- SVFLTC,I GET SAVED FAULT CODE C0100289 STA- FLTCOD,I PLUG IT IN PDT C0100290 ENA 0 CLEAR SAVED ESTAT1 C0100291 STA- SVEST1,I * C0100292I110 EQU I110(*) C0100293 RTJ- (RCMPRQ) COMPLETE THE REQUEST C0100294 JMP* I10 GO TO FIND NEXT REQUEST C0100295 SPC 4 C0100296I111 EQU I111(*) ELSE C0100297 LDA* COMPAD ** CHECK IF INTERNAL REQUEST 137*0002C0100298 SUB =XREQCOM-REQCDE 137*0002C0100299 EOR- EPTR,I 137*0002C0100300 SAN I111A SKIP IF EXTERNAL REQUEST 137*0002C0100301 JMP I19415 JUMP IF INTERNAL REQ AND PROCESS REQ 137*0002C0100302I111A EQU I111A(*) 137*0002C0100303*** CHECK FOR MOTION COMMAND C0100304 SPC 2 C0100305 LDQ- EPTR,I PARAMETER POINTER TO Q C0100306 LDA+ 0,Q GET REQUEST CODE C0100307 ARS 9 C0100308 AND- H001F C0100309 INA -14 IF IT IS A MOTION REQUEST THEN C0100310 SAN I12 C0100311 JMP* I19415 GO TO PROCESS REQUEST C0100312 SPC 4 C0100313I12 EQU I12(*) ELSE C0100314*** COMPUTE USER'S BUFFER LENGTH C0100315 SPC 2 C0100316 LDA- ELSTWD,I CALCULATE BUFFER LENGTH C0100317 SUB- ECCOR,I A = NO. OF WORDS C0100318 SAN I121 CHANGE ZERO-WORD REQUEST 132*5330C0100319 INA 1 TO ONE WORD REQUEST 132*5330C0100320I121 STA* WORDNO PLUG INTO INTERNAL REQUEST 132*5330C0100321 INA -MAXBUF IF BUF. GREATER THAN MAXIMUM BUF LENGTH THEN C0100322 SAM I17 * C0100323 JMP* I19415 DO NOT DOUBLE BUFFER C0100324 SPC 4 C0100325*** MOVE USER'S BUFFER BUFFER TO AN INTERNAL BUFFER C0100326 SPC 2 C0100327I17 EQU I17(*) C0100328 LDA- ECCOR,I CURRENT ADDRESS TO Q  3%{.^ C0100329 STA* CURADR SAVE IT C0100330 ENQ 0 INITIALIZE COUNTER C0100331I182 EQU I182(*) C0100332 LDA* (CURADR) GET ONE WORD FROM USER'S BUFFER C0100333 STA* BUFR1,Q STORE IT IN NEW BUFFER C0100334 RAO* CURADR INCREMENT ADDRESS C0100335 LDA* CURADR IF DONE THEN C0100336 SUB- ELSTWD,I * C0100337 SAP I19 SKIP DOWN 132*5330C0100338 INQ 1 ELSE INCREMENT Q C0100339 JMP* I182 AND LOOP C0100340 SPC 4 C0100341*** PATCH PDT WITH INTERNAL BUFFER POINTRS C0100342 SPC 2 C0100343I19 EQU I19(*) C0100344 LDA- NEWBUF,I INTRNAL BUFFER ADDRESS TO Q C0100345 STA- ECCOR,I SAVE AS ECCOR IN PDT C0100346 STA* STRTAD SAVE IT IN REQUEST C0100347 ADD* WORDNO A = LAST WORD ADDRESS C0100348 STA- ELSTWD,I SAVE AS LAST WORD ADDRESS C0100349 LDA- ELU,I GET LOGICAL UNIT C0100350 STA* LUNIT PLUG IT IN REQUEST C0100351 LDA- (I) DRIVER PRIORITY TO A C0100352 AND- H000F * C0100353 TRA Q Q = DRIVER'S PRIORITY C0100354 ALS 4 SHIFT IT C0100355 EAQ Q Q= REQUEST PRIORITY, COMPLETION PRIORITY C0100356 LDA- ESTAT1,I ESTAT1 TO A C0100357 AND- H0002 GET REQUEST TYPE (FORMATED, UNFORMATED) C0100358 SAZ I193 SKIP DOWN IF UNFORMATED C0100359 ENA 6 FORMATED REQUEST CODE TO A C0100360 JMP* I194 JUMP DOWN C0100361I193 EQU I193(*) C0100362 ENA 2 UNFORMATED REQUEST CODE TO A C0100363I194 EQU I194(*) C0100364 ALS 9 SHIFT LEFT TO PROPER POSITION C0100365 EAQ A ADD PRIORITIES C0100366 STA* REQCDE STORE IN REQUEST C0100367 SPC 4 C0100368*** COMPLETE THE REQUEST C0100369 SPC 2 C0100370 RTJ- (RCMPRQ) COMPLETE THE REQUEST C0100371 ENA 1 SET REQUEST COMPLETED FLAG C0100372 STA- REQCFL,I * C0100373 SEF- EREQST,15,1,I SET DRIVER ACTIVE BIT IN EREQST C0100374 LDA* LUNIT RESTORE LOGICAL UNIT INTO PDT C0100375 STA- ELU,I * C0100376 LDA- I GET PDT ADDRESS *  3%|-ALKu-O CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm NAM D1827 C01 A DRVR CCS 3.0 SL-149C0100001* 1827 LINE PRINTER KERNEL DRIVER C0100002* CREDIT COLLECTION SYSTEM VERSION 3.0 C0100003* DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA C0100004* COPYRIGHT CONTROL DATA CORPORATION 1979 C0100005 SPC 3 C0100006**** C0100007*E C0100008* **********************************************************************C0100009* LINE PRINTER DRIVER (INTERFACE TO USER) C0100010* **********************************************************************C0100011 SPC 2 C0100012* C0100013* FUNCTION C0100014* -------- C0100015* C0100016* HANDLES REQUESTS FOR OPERATION OF THE 1827 LINE PRINTER C0100017* C0100018* C0100019* GENERAL DESCRIPTION C0100020* ------------------- C0100021* C0100022* THE (KERNEL) DRIVER IS THE INTERFACE OR 'FRONT END' C0100023* BETWEEN THE OPERATING SYSTEM AND THE KERNEL FOR C0100024* THE 1827 LINE PRINTER. SPECIFICALLY, THE DRIVER C0100025* HANDLES FINDING NEXT REQUEST, RETURN OF CONTROL C0100026* TO SYSTEM, COMPLETING REQUESTS, C0100027* LOGGING ERRORS IN ENGINEERING LOG, ALT. DEVICES, C0100028* AND PASSING CONTROL TO KERNEL AFTER REQUEST IS C0100029* SET IN THE APPROPRIATE PHYSICAL DEVICE TABLE(PDT). C0100030* C0100031* C0100032* IF THE FLAG IN THE PHYS TAB, DBLBUF,IS EQUAL TO 1, THEN THE C0100033* THAN THE MAXIMUM ALLOWED, MAXBUF IN THE PHYS TAB. C0100034* DRIVER DOUBLE-BUFFERS OUTPUT TO THE PRINTER. THIS MEANS THAT C0100035* IF THE NUMBER OF WORDS IN THE REQUEST IS LESS THAN MAXBUF, C0100036* THEN THE DRIVER WILL MOVE THE USER'S DATA TO AN INTERNAL C0100037* BUFFER. IT WILL THEN COMPLETE THE REQUEST BEFORE IT IS C0100038* ACTUALLY PROCESSED. THIS WILL ALOW THE USER TO ISSUE A C0100039* SECOND REQUEST BEFORE THE FIRST ONE IS COMPLETED. C0100040* THIS MEANS THAT THE USER CAN PROCESS THE SECOND REQUEST WHILE C0100041* THE FIRST REQUEST IS BEING OUTPUT TO THE PRINTER. C0100042* C0100043* NO DOUBLE BUFFERING WILL OCCUR IF THE FLAG DBLBUF IN THE C0100044* PHYSICAL DEVICE TABLE IS SET TO 0 OR IF THE REQUEST IS GREATERC0100045* THAN THE MAXIMUM ALLOWED, MAXBUF IN TH/  3%}-E PHYS TAB. C0100046* C0100047**** C0100048 EJT C0100049**** C0100050*E C0100051* C0100052* INPUT REQUIREMENTS C0100053* ------------------ C0100054* C0100055* C0100056* (Q) REGISTER = ADDRESS OF PHYSICAL DEVICE TABLE C0100057* DRIVER SCHEDULED FOR REQUEST INITIATION OR C0100058* TIME OUT INTERRUPT HAS OCCURRED C0100059* C0100060* C0100061* OUTPUT C0100062* ------ C0100063* IF ERROR, A REG CONTAINS FAULT CODE: C0100064* TIMEOUT 0 C0100065* ALARM 2 C0100066* PARITY 3 C0100067* INT REJ 5 C0100068* EXT REJ 6 C0100069* FAULT CODE ALSO IN PDT C0100070* PDT IS UPDATED TO INDICATE COMPLETED OR CURRENT STATUS C0100071* OF REQUEST C0100072* C0100073* C0100074* ENTRY/EXIT C0100075* ---------- C0100076* C0100077* C0100078* ENTRY - C0100079* C0100080* ENTRY IS BY SIMPLE JUMP TO ENTRY POINT I1827 C0100081* WITH THE ADDRESS OF THE PDT IN THE Q REGISTER C0100082* C0100083* C0100084* EXIT - C0100085* A. DISPATCHER WHEN THERE ARE NO FURTHER C0100086* REQUESTS TO PROCESS C0100087* B. ALTDEV WHEN ERROR OCCURS ON C0100088* NON-DIAGNOSTIC LU. C0100089* C0100090**** C0100091 EJT C0100092**** C0100093*E  3%~- C0100094* C0100095* FLOW C0100096* ---- C0100097* C0100098* PROGRAM SAVES PDT ADDRESS IN I C0100099* RETURN JUMPS TO FIND NEXT REQUEST ROUTINE. C0100100* GOES TO DISPATCHER IF THERE ARE NO C0100101* FURTHER REQUESTS FOR THIS UNIT. C0100102* OTHERWISE GO TO THE LINE PRINTER KERNEL. C0100103* ON RETURN, GO TO COMPLETE REQUEST IF NO ERROR C0100104* OR IF THIS IS A REQUEST TO DIAGNOSTIC LOGICAL C0100105* UNIT NUMBER. OTHERWISE FETCH FAULT CODE AND C0100106* EXIT TO ALTERATE DEVICE HANDLER. C0100107* C0100108* C0100109* C0100110* SUBROUTINES C0100111* ----------- C0100112* C0100113* ALTDEV - ALTERNATE DEVICE HANDLER C0100114* DISPAT - SYS ROUTINE TO TO PASS CONTROL TO NEXT PROGRAM C0100115* K1827 - KERNEL, 1827 LINE PRINTER C0100116* LOG - LOG ERROR IN ENGINEERING LOG C0100117* MAS300 - EXIT WHEN NO MORE REQUESTS C0100118* RCMAKQ - REDUCED CORE MONITOR MAKE Q C0100119* RCMFNR - REDUCED CORE MONITOR FIND NEXT REQUEST C0100120* RCMPRQ - REDUCED CORE MONITOR COMPLETE REQUEST C0100121* C0100122* C0100123* C0100124* C0100125**** C0100126 EJT C0100127**** C0100128*E C0100129* PARAMETERS C0100130* C0100131* PDT EQUATES C0100132* C0100133 EQU ELVL(0) 00 SCHEDULER CALL WITH DRIVER LEVEL C0100134 EQU EDIN(1) 01 DRIVER INITIATOR ENTRY C0100135 EQU EDCN(2) 02 DRIVER CONTINUATOR ENTRY C0100136 EQU EDPGM(3) 03 DRIVER DIAGNOSTIC ENTRY C0100137 EQU EDCLK(4) 04 DIAGNOSTIC CLOCK C0100138 EQU ELU(5) 05 LOGICAL UNIT C0100139 EQU EPTR(6) 06 PARAMETER LOCATION C0100140 EQU EWES(7) 07 CONVERTOR, EQUIPMENT, STATION C0100141 EQU EREQST(8) 08 REQUEST STATUS `  3%. C0100142 EQU ESTAT1(9) 09 DRIVER STATUS C0100143 EQU ECCOR(10) 10 CURRENT LOCATION C0100144 EQU ELSTWD(11) 11 LAST LOCATION PLUS ONE C0100145 EQU ESTAT2(12) 12 DEVICE STATUS C0100146 EQU MASLGN(13) 13 DRIVER LENGTH (IF MASS MEMORY) C0100147 EQU MASSEC(14) 14 NAME ASSOCIATED WITH SECTOR NUMBER C0100148 EQU RETURN(15) 15 RESERVED FOR FNR AND CMR C0100149 EQU FLTCOD(16) 16 FAULT CODE IF A REQUEST ERROR OCCURS C0100150 EQU DIAGLU(17) 17 DIAGNOSTIC LOGICAL UNIT C0100151 EQU GHOSTI(18) 18 COUNT OF GHOST INTERRUPTS C0100152 EQU MICROI(19) 19 MICRO-INTERRUPT NUMBER C0100153 EQU TIMOUT(20) 20 TIMEOUT PERIOD TO WAIT FOR AN INTERRUPT C0100154 EQU SENTRY(21) 21 STATUS AFTER INITIAL ENTRY C0100155 EQU SINTER(22) 22 STATUS AFTER INTERRUPT C0100156 EQU STIMEO(23) 23 STATUS AFTER INTERRUPT TIMEOUT C0100157 EQU FTNLU(24) 24 FORTRAN LOGICAL UNIT NUMBER C0100158 EQU MOTCMD(25) 25 PAPER MOTION COMMAND WORD C0100159 EQU BLNKCT(26) 26 COUNT FOR SPACE FILL C0100160 EQU CHARCT(27) 27 CHARACTER OUTPUT COUNT C0100161 EQU LINLEN(28) 28 NUMBER OF CHARACTERS PER LINE C0100162 EQU LINCT(29) 29 LINE COUNT C0100163 EQU MAXLIN(30) 30 MAX NUMBER OF LINES PER PAGE C0100164 EQU MTNREQ(31) 31 MOTION REQUEST WORD SAVED HERE C0100165 EQU BLNKDT(32) 32 ZERO IF LINE IS ALL BLANKS C0100166 EQU ADTTBL(33) 33-36 ADT TABLE C0100167 EQU ADTBUF(37) 37 ADT BUFFER ADDRESS C0100168 EQU DBLBUF(38) 38 DOUBLE BUFFERING FLAG(1=DBL BUFFERING,0=NO)C0100169 EQU REQCFL(39) 39 REQUEST COMPLETED FLAG C0100170 EQU NEWBUF(40) 40 NEW BUFFER ADDRESS C0100171 EQU SVFLTC(41) 41 SAVED FAULT CODE C0100172 EQU SVEST1(42) 42 SAVED ESTAT1 C0100173**** C0100174 EJT C0100175**** C0100176* C0100177* MESSAGES C0100178* C0100179* C0100180* ALTERNATE DEVICE HANDLER WILL PRINT FAULT CODE FOR C0100181* NON-DIAGNOSTIC UNITS C0100182* C0100183* C0100184* MISCELLANEOUS C0100185* ------------- C0100186* C0100187* NONE C0100188**** C0100189 EJT i  3%.$ C0100190**** C0100191*E C0100192* C0100193* C0100194* MISCELLANEOUS EQUATES C0100195* C0100196 EQU ADISP($EA) CELL CONTAINING DISPATCHER ADDRESS C0100197 EQU RCMFNR($B5) CELL CONTAINING FIND NEXT REQUEST ADDR C0100198 EQU RCMPRQ($B6) CELL CONTAINING COMPLETE REQ ADDRESS C0100199 EQU TOERR($0) TIME OUT ERROR CODE C0100200ONEBIT EQU ONEBIT(3) 136*5500C0100201 EQU H0002($24) HEX 0002 C0100202 EQU H000F(6) HEX 000F C0100203 EQU H001F(7) HEX 001F C0100204 EQU MAXBUF(72) MAXIMUM BUFFER LENGTH FOR DOUBLE BUFFERING C0100205 EQU AMONI($F4) MONITOR LOW MEMORY ADDRESS CELL C0100206 SPC 3 C0100207 ENT I1827 INITIATOR ENTRY POINT FOR MSOS/RTOS C0100208 ENT BUFADT ADT BUFFER ADDRESS - 1 C0100209 ENT BUFR1 131*5239C0100210 ENT ILP408 INITIATOR ENTRY POINT FOR ODS C0100211 SPC 3 C0100212 EXT ALTDEV ALTERNATE DEVICE HANDLER C0100213 EXT* K1827 INITIAL ENTRY TO KERNEL OF LINE PRINTER C0100214 EXT* C1827R RELATIVE CONTINUATOR ENTRY POINT IN KERNEL C0100215 EXT* E1827R RELATIVE ERROR ENTRY POINT IN KERNEL C0100216 EXT LOG ENGINEERING LOG ENTRY ROUTINE C0100217 EXT MAKEQ SYSTEM ROUTINE TO SET REQUEST STATUS C0100218 EXT MAS300 MASS EXEC EXIT HANDLER C0100219 EJT C0100220**** C0100221* C0100222* CODE TO ABSOLUTIZE I,C,E ADDRESSES IN PDT IF DRIVER C0100223* IS MASS-RESIDENT-ENTRY WITH FWA ADDR IN A,PDT ADDR IN Q C0100224* C0100225DSTART STQ- I CONTROL COMES HERE FROM MMEXEC-SAVE PDT ADDR C0100226 ENQ I1827-DSTART GET INITIATOR ADDRESS C0100227 AAQ Q C0100228 STQ- EDIN,I C0100229 LDQ =XC1827R GET CONTINUATOR ADDRESS C0100230 INQ *-DSTART-1 C0100231 AAQ Q C0100232 STQ- EDCN,I C0100233 SPC 4 C0100234*** CALCULATE INTERNAL BUFFER ADDRESS C0100235 SPC 2 C0100236 LDQ =XBUFR1-DSTART BUFFER 1 RELATIVE ADDRESS TO Q C0100237 AAQ Q ADD DSTART ABSOLUTE AD  3%.8DRESS C0100238 STQ- NEWBUF,I SAVE Q AS ADDRESS OF NEW BUFFER C0100239 INQ ADTBFR-BUFR1-1 GET ADT BUFFER ADDRESS-1 C0100240 STQ- ADTBUF,I STUFF IT IN PDT C0100241 LDQ =XREQCOM-DSTART REQUEST COMPLETION RELATVE ADDRESS C0100242 AAQ Q Q HAS ABSOLUTE ADDRESS C0100243 STQ* COMPAD SAVE IN REQUEST C0100244 ADD =XE1827R GET TIME OUT (ERROR) ADDRESS C0100245 INA *-DSTART-1 C0100246 STA- EDPGM,I C0100247 JMP* I10 GO TO FIND A REQUEST C0100248MS300 ADC MAS300 MMEXEC EXIT WHEN DRIVER IS THROUGH C0100249CURADR NUM 0 CURRENT BUFFER ADDRESS C0100250 EJT C0100251*** INTERNAL REQUEST C0100252IREQST RTJ- (AMONI) C0100253REQCDE NUM 0 REQUEST CODE C0100254COMPAD NUM 0 COMPLETION ADDRESS C0100255THREAD NUM 0 THREAD C0100256LUNIT NUM 0 LOGICAL UNIT C0100257WORDNO NUM 0 NO. OF WORDS C0100258STRTAD NUM 0 STARTING ADDRESS C0100259 EJT C0100260I05 EQU I05(*) NO MORE REQUESTS C0100261 ENA 0 RESET SAVED ESTAT1 C0100262 STA- SVEST1,I * C0100263 JMP* (MS300) ELSE EXIT MASS EXEC C0100264 EJT C0100265 SPC 2 C0100266I1827 STQ- I SAVE FWA OF PHYSICAL DEVICE TABLE (PDT) C0100267 EQU ILP408(I1827) DEFINE ENTRY FOR ODS C0100268I10 EQU I10(*) C0100269 ENA 0 RESET REQUEST COMPLETED FLAG C0100270 STA- REQCFL,I * C0100271 RTJ- (RCMFNR) FIND NEXT REQUEST C0100272 JMP* I05 NO MORE REQUESTS C0100273 SPC 2 C0100274 LDA- DBLBUF,I GET DOUBLE BUFFERING FLAG C0100275 AND- ONEBIT BIT 1=1 FOR DOUBLE BUFFER 136*5500C0100276 SAN I101 SKIP IF DOUBLE BUFFERING C0100277 JMP* I19415 JUMP IF NOT C0100278 SPC 4 C0100279I101 EQU I101(*) DOUBLE BUFFERING C0100280 LDA- DIAGLU,I IF DIAGNOSTIC LOGICAL UNIT THEN C0100281 SUB- ELU,I * C0100282 SAN I11 * C0100283 JMP* I19415 GO PROCESS REQUEST C0100284I11 EQU I11(*) ELSE C0100285 LDA- SVEST1,I IF ERROR ON PREVIOUS Rp  3%.LEQUEST THEN C0100286 SAP I111 * C0100287 STA- ESTAT1,I PLUG IT IN PDT C0100288 LDA- SVFLTC,I GET SAVED FAULT CODE C0100289 STA- FLTCOD,I PLUG IT IN PDT C0100290 ENA 0 CLEAR SAVED ESTAT1 C0100291 STA- SVEST1,I * C0100292I110 EQU I110(*) C0100293 RTJ- (RCMPRQ) COMPLETE THE REQUEST C0100294 JMP* I10 GO TO FIND NEXT REQUEST C0100295 SPC 4 C0100296I111 EQU I111(*) ELSE C0100297 LDA* COMPAD ** CHECK IF INTERNAL REQUEST 137*0002C0100298 SUB =XREQCOM-REQCDE 137*0002C0100299 EOR- EPTR,I 137*0002C0100300 SAN I111A SKIP IF EXTERNAL REQUEST 137*0002C0100301 JMP I19415 JUMP IF INTERNAL REQ AND PROCESS REQ 137*0002C0100302I111A EQU I111A(*) 137*0002C0100303*** CHECK FOR MOTION COMMAND C0100304 SPC 2 C0100305 LDQ- EPTR,I PARAMETER POINTER TO Q C0100306 LDA+ 0,Q GET REQUEST CODE C0100307 ARS 9 C0100308 AND- H001F C0100309 INA -14 IF IT IS A MOTION REQUEST THEN C0100310 SAN I12 C0100311 JMP* I19415 GO TO PROCESS REQUEST C0100312 SPC 4 C0100313I12 EQU I12(*) ELSE C0100314*** COMPUTE USER'S BUFFER LENGTH C0100315 SPC 2 C0100316 LDA- ELSTWD,I CALCULATE BUFFER LENGTH C0100317 SUB- ECCOR,I A = NO. OF WORDS C0100318 SAN I121 CHANGE ZERO-WORD REQUEST 132*5330C0100319 INA 1 TO ONE WORD REQUEST 132*5330C0100320I121 STA* WORDNO PLUG INTO INTERNAL REQUEST 132*5330C0100321 INA -MAXBUF IF BUF. GREATER THAN MAXIMUM BUF LENGTH THEN C0100322 SAM I17 * C0100323 JMP* I19415 DO NOT DOUBLE BUFFER C0100324 SPC 4 C0100325*** MOVE USER'S BUFFER BUFFER TO AN INTERNAL BUFFER C0100326 SPC 2 C0100327I17 EQU I17(*) C0100328 LDA- ECCOR,I CURRENT ADDRESS TO Q C0100329 STA* CURADR SAVE IT C0100330 ENQ 0 INITIALIZE COUNTER C0100331I182 EQU I182(*) C0100332 LDA* (CURADR) GET ONE WORD FROM USER'S BUFFER C0100333 STA* BUFR1,Q STORE IT IN NEW BUFFER  3%.` C0100334 RAO* CURADR INCREMENT ADDRESS C0100335 LDA* CURADR IF DONE THEN C0100336 SUB- ELSTWD,I * C0100337 SAP I19 SKIP DOWN 132*5330C0100338 INQ 1 ELSE INCREMENT Q C0100339 JMP* I182 AND LOOP C0100340 SPC 4 C0100341*** PATCH PDT WITH INTERNAL BUFFER POINTRS C0100342 SPC 2 C0100343I19 EQU I19(*) C0100344 LDA- NEWBUF,I INTRNAL BUFFER ADDRESS TO Q C0100345 STA- ECCOR,I SAVE AS ECCOR IN PDT C0100346 STA* STRTAD SAVE IT IN REQUEST C0100347 ADD* WORDNO A = LAST WORD ADDRESS C0100348 STA- ELSTWD,I SAVE AS LAST WORD ADDRESS C0100349 LDA- ELU,I GET LOGICAL UNIT C0100350 STA* LUNIT PLUG IT IN REQUEST C0100351 LDA- (I) DRIVER PRIORITY TO A C0100352 AND- H000F * C0100353 TRA Q Q = DRIVER'S PRIORITY C0100354 ALS 4 SHIFT IT C0100355 EAQ Q Q= REQUEST PRIORITY, COMPLETION PRIORITY C0100356 LDA- ESTAT1,I ESTAT1 TO A C0100357 AND- H0002 GET REQUEST TYPE (FORMATED, UNFORMATED) C0100358 SAZ I193 SKIP DOWN IF UNFORMATED C0100359 ENA 6 FORMATED REQUEST CODE TO A C0100360 JMP* I194 JUMP DOWN C0100361I193 EQU I193(*) C0100362 ENA 2 UNFORMATED REQUEST CODE TO A C0100363I194 EQU I194(*) C0100364 ALS 9 SHIFT LEFT TO PROPER POSITION C0100365 EAQ A ADD PRIORITIES C0100366 STA* REQCDE STORE IN REQUEST C0100367 SPC 4 C0100368*** COMPLETE THE REQUEST C0100369 SPC 2 C0100370 RTJ- (RCMPRQ) COMPLETE THE REQUEST C0100371 ENA 1 SET REQUEST COMPLETED FLAG C0100372 STA- REQCFL,I * C0100373 SEF- EREQST,15,1,I SET DRIVER ACTIVE BIT IN EREQST C0100374 LDA* LUNIT RESTORE LOGICAL UNIT INTO PDT C0100375 STA- ELU,I * C0100376 LDA- I GET PDT ADDRESS C0100377 STA PDTADR SAVE INTERNALLY C0100378 SPC 4 C0100379**** PROCESS THE REQUEST C0100380 SPC 2 C0100381I19415 EQU I19415(*) )  3%.t C0100382 RTJ K1827 GO TO KERNEL, PROCESS REQUEST C0100383 SAM I1942 C0100384 LDA- REQCFL,I IF REQUEST ALREADY COMPLETED THEN C0100385 SAN I19418 SKIP DOWN C0100386 JMP* I110 ELSE GO TO COMPLETE THE REQUEST C0100387I19418 EQU I19418(*) C0100388 SET A IDLE THE CLOCK C0100389 STA- EDCLK,I * C0100390 STA- ELU,I SET LOGICAL UNIT IN PDT TO FFFF C0100391 CLF- EREQST,15,1,I CLEAR DRIVER ACTIVE BIT IN EREQST C0100392 JMP* I10 CONTINUE C0100393I1942 EQU I1942(*) C0100394 RTJ MAKEQ C0100395 LDA- DIAGLU,I C0100396 SUB- ELU,I COMPARE PRESENT AND DIAGNOSTIC LU C0100397 SAN I1943 C0100398 JMP* I110 C0100399I1943 EQU I1943(*) C0100400 LDA- REQCFL,I REQUEST COMPLETED FLAG TO A C0100401 SAZ I195 SKIP IF REQUEST HAS NOT BEEN COMPLETED C0100402 LDA* COMPAD COMPUTE REQUEST ADDRESS C0100403 SUB =XREQCOM-REQCDE C0100404 STA- EPTR,I * C0100405I195 EQU I195(*) C0100406 LDQ- ELU,I SET UP FAULT CODE FOR THE ALTERNATE DEVICE C0100407 QLS 6 HANDLER (LU/CODE) - (15-6,5-0) C0100408 ADQ- FLTCOD,I C0100409 RTJ LOG LOG ERROR IN ENGINEERING FILE C0100410 JMP ALTDEV ALTDEV REASSIGNS REQUEST OR REPORTS ERR C0100411 SPC 2 C0100412 SPC 4 C0100413BUFR1 BZS BUFR1(MAXBUF) INTERNAL BUFFER (NEW BUFFER) C0100414ADTBFR BZS ADTBFR(69) ADT BUFFER C0100415PDTADR NUM 0 PDT ADDRESS SAVED INTERNALLY C0100416 EQU BUFADT(ADTBFR-1) ADT BUFFER ADDRESS - 1 C0100417 EJT C0100418*** INTERNAL REQUEST COPLETION (IN CASE OF AN ERROR) C0100419 SPC 4 C0100420REQCOM EQU REQCOM(*) C0100421 LDA* PDTADR GET SAVED PDT ADDRESS C0100422 STA- I RESTORE IT IN I-REG. C0100423 LDA- ESTAT1,I IF REQUEST HAS COMPLETED WITH AN ERROR THEN C0100424 SAM I80 SKIP DOWN C0100425 ENA 0 CLEAR SAVED ESTAT1 C0100426 STA- SVEST1,I * C0100427 JMP- (ADISP) GO TO THE DISPATCHER C0100428I80 EQU I80(*) C0100429 STA- SVEST1,I SAVE ESTAT1 &  3%. C0100430 LDA- FLTCOD,I SAVE FAULT CODE TOO C0100431 STA- SVFLTC,I * C0100432 JMP- (ADISP) GO TO THE DISPATCHER C0100433 END ILP408 C0100434 NAM K1827 C02 A DRVR CCS 3.0 SL-149C0200001* 1827 LINE PRINTER KERNEL C0200002* CREDIT COLLECTION SYSTEM VERSION 3.0 C0200003* DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA C0200004* COPYRIGHT CONTROL DATA CORPORATION 1979 C0200005 SPC 5 C0200006**** C0200007*E C0200008* **********************************************************************C0200009* K1827 - KERNEL FOR 1827 LINE PRINTER C0200010* **********************************************************************C0200011 SPC 5 C0200012* C0200013* C0200014* C0200015* FUNCTION C0200016* -------- C0200017* C0200018* THE LINE PRINTER KERNEL IS THE PROGRAM THAT ACTUALLY C0200019* PERFORMS THE OUTPUT TO THE PRINTER. C0200020* C0200021* GENERAL DESCRIPTION C0200022* ------------------- C0200023* C0200024* THE PRINTER KERNEL K1827 HANDLES FETCHING, SAVING C0200025* AND CHECKING STATUSES , INITIATING OUTPUT, CONTINUING C0200026* OUTPUT, TIMEOUT ERRORS, AND FAULT CODES. IT ALSO C0200027* EDITS CHARACTERS AS THEY ARE PASSED TO THE PRINTER C0200028* CONTROLLER FOR PRINTING AND FORMATTING DIRECTIVES. C0200029* WHEN A PRINT OR FORMATTING COMMAND IS ENCOUNTERED, C0200030* THE KERNEL SENDS THE APPROPRIATE COMMAND TO THE C0200031* CONTROLLER AND THEN PASSES CONTROL TO THE WAIT C0200032* SUBROUTINE. THE WAIT SUBROUTINE NORMALLY PASSES C0200033* CONTROL TO THE DISPATCHER SO WORK MAY PROCEED ON C0200034* OTHER PROGRAMS WHILE THE PRINTER IS PERFORMING ITS C0200035* OPERATION. ALL DATA TRANSFERS ARE DONE IN ADT MODE. 123*4589C0200036* UNEXPECTED CALLS TO THE CONTINUATOR ARE RECORDED AS C0200037* GHOST INTERRUPTS AND NOT PROCESSED FURTHER. C0200038* C0200039* INPUT REQUIREMENTS C0200040* C0200041* ENTRY IS BY ONE OF THE ENTRY POINTS K1827, C1827, C0200042* OR E1827, THE INITIAL, CONTINUATOR, AND TIME OUT C0200043* ENTRIES RESPECTIVELY. FOR K1827 THE Ah  3%.DDRESS OF THE C0200044* PDT IS EXPECTED IN THE I REGISTER, OTHER ENTRY POINTS C0200045* EXPECT IT IN THE Q REGISTER. IN EVERY CASE THE STATUS C0200046* OF THE CURRENT REQUEST SHOULD BE INDICATED BY THE C0200047* ENTRIES IN THE PHYSICAL DEVICE TABLE. C0200048* C0200049* C0200050* C0200051* C0200052* C0200053**** C0200054 EJT C0200055**** C0200056*E C0200057* C0200058* C0200059* OUTPUT C0200060* ------ C0200061* C0200062* THE OUTPUTS OF THE PRINTER KERNEL ARE: C0200063* C0200064* A. STATUS C0200065* INITIATOR STATUS TO PDT C0200066* CONTINUATOR STATUS TO PDT C0200067* TIME OUT STATUS TO PDT C0200068* C0200069* B. FAULT CODE (FLTCOD) IS SET IF ERROR C0200070* OCCURS AS FOLLOWS: C0200071* 0 TIME OUT C0200072* 2 ALARM C0200073* 3 PARITY C0200074* 5 INTERNAL REJECT C0200075* 6 EXTERNAL REJECT C0200076* C0200077* ALSO BIT 14 OF EREQST C0200078* C0200079* C. C0200080* DATA IN CALLER'S BUFFER IS SENT TO C0200081* BUFFER C0200082* C0200083* D. GHOST INTERRUPT COUNTER IS STEPPED IF C0200084* GHOST INTERRUPT HAS OCCURED C0200085* C0200086* C0200087*E C0200088* ENTRY/EXIT C0200089* ---------- C0200090* ENTRY - C0200091*  3%. C0200092* A. K1827 - ENTERED BY RETURN JUMP BY DRIVER C0200093* INITIATOR C0200094* C0200095* B. C1827 - ENTERED BY THE INTERRUPT C0200096* PROCESSOR WHENEVER AN INTERRUPT OCCURS. C0200097* C0200098* C. E1827 - TIME OUT ADDRESS, ENTERED C0200099* WHEN DIAGNOSTIC CLOCK COUNTER BECOMES C0200100* NEGATIVE C0200101* C0200102* EXIT - C0200103* A. EXITS TO CALLING ROUTINE (DRIVER) C0200104* ON: C0200105* GHOST INTERRUPT C0200106* COMPLETION OF REQUEST C0200107* FAULT DETECTED C0200108* C0200109* B. EXITS TO WAIT(WHICH NORMALLY CALLS DISP) C0200110* ON: C0200111* INITIATION OF OUTPUT (INITIO) C0200112* CONTINUATION OF OUTPUT (NEXTIO) C0200113*E C0200114* FLOW C0200115* ---- C0200116* C0200117* ON INITIAL ENTRY TO THE LINE PRINTER KERNEL, THE C0200118* PHYSICAL DEVICE TABLE (PDT) IS INITIALIZED AND THE C0200119* STATUS IS CHECKED, DATA AND READY BITS BEING C0200120* EXPECTED. IF AN UNEXPEDTED CONDITION IS FOUND, THE C0200121* STATUS ROUTINE PASSES CONTROL TO THE C0200122* FAULT ROUTINE OF THE KERNEL WHERE THE REQUEST IS C0200123* EITHER COMPLETED OR PASSED TO AN ALTERNATE DEVICE. C0200124* C0200125* IN THE EVENT NO PROBLEMS ARE FOUND IN STATUS CHECK, C0200126* CONTROL PASSES TO THE INITIATE I/O SUBROUTINE. C0200127* HERE THE FIRST STEP IS A CHECK FOR MOTION REQUEST. C0200128* FORMAT AND PAGE CONTROL ARE NEXT C0200129* PROCESSED BY THE ANCILLARY SUBROUTINES C0200130* FTNFMT AND PAGE. CONTROL PASSES TO THE CHARACTER C0200131* PROCESSOR ROUTINE WHICH FETCHES,EDITS, AND C0200132* TRANSMITS CHARACTERS TO THE PRINTER CONTROLLER. C0200133* A PRINT OR CLEAR PRINTER COMMAND IS SENT ON C0200134* RETURN FROM THE CHARACTER PROCESSOR, AND C0200135* CONTROL IS RETURNED TO THE MAIN LINE OF THE C0200136* KERNEL. THERE, CONTROL IS PASSED TO THE WAIT C0200137* ANCILLARY SUBROUTINE, WHICH EITHER PASSES CONTROL C0200138* TO THE OPERATING SYSTEM OR LOOPS UNTIL THE PRINTER C0200139* OPERATION IS COMPLETED. }  3%. C0200140* C0200141*E C0200142* C0200143* UPON COMPLETION, THE C0200144* INTERRUPT CAUSES CONTROL TO BE PASSED TO ENTRY C0200145* POINT C1827. AFTER THE PDT ADDRESS IS SAVED, C0200146* THE CONTROL PASSES TO CKGINT(CHECK GHOST INTERRUPT). C0200147* IF IT IS A GHOST INTERRUPT, THE COUNTER IS STEPPED, C0200148* INTERRUPTS CLEARED, AND CONTROL RETURNED TO THE C0200149* DISPATCHER. OTHERWISE A CHECK IS MADE ON STATUS C0200150* WHICH IS ALSO STORED INCIDENTALLY THE PDT. THIS C0200151* TIME THE EXPECTED BITS ARE:END OF OPERATION, DATA, C0200152* INTERRUPT, AND READY BITS. C0200153* A DISCREPANCY CAUSES AN ERROR CODE TO BE SET AND C0200154* CONTROL RETURNED TO THE FAULT ROUTINE. C0200155* IF NO FAULT IS FOUND, THE INTERRUPT IS CLEARED AND C0200156* CONTROL GOES TO ROUTINE NEXTIO. C0200157 EJT C0200158* C0200159* IN NEXTIO A DONE FLAG IS CHECKED (SET IF THE USERS C0200160* BUFFER IS EXHAUSTED). IF SO, PRINTER IS CLEARED AND C0200161* CONTROL IS RETURNED TO THE DRIVER. IF NOT, A CHECK C0200162* IS MADE FOR A MOTION REQUEST, AND HANDLED IF NECES- C0200163* SARY. IF NOT A MOTION REQUEST, A CHECK IS MADE C0200164* FOR PAPER CARRIAGE C0200165* MOTION PENDING. IF ANY IS REQ'D IT IS SENT TO THE C0200166* CONTROLLER. FORMATTING (IF ANY) IS ACCOMPLISHED C0200167* BY ANCILLARY SUBROUTINES FTNFMT AND PAGE. C0200168* AFTER THE PAPER MOTION CONTROL IS SENT, A CHECK IS C0200169* MADE FOR BLANK INSERTION REQUIREMENT. NEXT CONTROL C0200170* PASSES TO THE CHARACTER PROCESSOR ROUTINE. ON C0200171* RETURN THE PRINTER IS FUNCTIONED OR CLEARED DEPENDING C0200172* ON WHAT THE CHARACTER PROCESSOR FOUND IN THE C0200173* USER'S BUFFER. IF THE PRINTER WAS MERELY CLEARED, C0200174* CONTROL RETURNS TO THE MAIN LINE OF THE KERNEL C0200175* ONCE MORE, AND THE REQUEST IS COMPLETED. OTHERWISE C0200176* A JUMP IS MADE TO THE WAIT SUBROUTINE AND C0200177* THE KERNEL IS LATER RE-ENTERED AT THE C0200178* CONTINUATOR ENTRY... C0200179*E C0200180* C0200181* C0200182* SUBROUTINES C0200183* ----------- C0200184* C0200185* CHARPR - CHARACTER PROCESSOR C0200186* CKSTAT - CHECK STATUS C0200187* EDIT - EDIT CHARACTERS FOR CONTROL   3%. CHARACTERS C0200188* FILL - FILL PRINTER BUFFER ROUTINE C0200189* FUNCTN - SEND FUNCTION TO CONTROLLER C0200190* FTNFMT - FORTRAN/FORMAT C0200191* INITIO - INITIATE OUTPUT C0200192* MOTREQ - MOTION REQUEST PROCESSOR C0200193* NXTCHR - NEXT CHARACTER FETCH ROUTINE C0200194* NEXTIO - NEXT OUTPUT (CONTINUES REQ PROCESSING) C0200195* PAGE - PAGE CONTROL C0200196* SEND - SEND DATA TO PRINTER C0200197* SPFILL - SPACE FILL SUBROUTINE C0200198* STATUS - FETCH AND SAVE STATUS C0200199* WAIT - WAIT FOR INTERRUPT FROM CONTROLLER C0200200 EJT C0200201*E C0200202* C0200203* PARAMETERS C0200204* C0200205* PDT EQUATES C0200206* C0200207 EQU ELVL(0) 00 SCHEDULER CALL WITH DRIVER LEVEL C0200208 EQU EDIN(1) 01 DRIVER INITIATOR ENTRY C0200209 EQU EDCN(2) 02 DRIVER CONTINUATOR ENTRY C0200210 EQU EDPGM(3) 03 DRIVER DIAGNOSTIC ENTRY C0200211 EQU EDCLK(4) 04 DIAGNOSTIC CLOCK C0200212 EQU ELU(5) 05 LOGICAL UNIT C0200213 EQU EPTR(6) 06 PARAMETER LOCATION C0200214 EQU EWES(7) 07 CONVERTOR, EQUIPMENT, STATION C0200215 EQU EREQST(8) 08 REQUEST STATUS C0200216 EQU ESTAT1(9) 09 DRIVER STATUS C0200217 EQU ECCOR(10) 10 CURRENT LOCATION C0200218 EQU ELSTWD(11) 11 LAST LOCATION PLUS ONE C0200219 EQU ESTAT2(12) 12 DEVICE STATUS C0200220 EQU MASLGN(13) 13 DRIVER LENGTH (IF MASS MEMORY) C0200221 EQU MASSEC(14) 14 NAME ASSOCIATED WITH SECTOR NUMBER C0200222 EQU RETURN(15) 15 RESERVED FOR FNR AND CMR C0200223 EQU FLTCOD(16) 16 FAULT CODE IF A REQUEST ERROR OCCURS C0200224 EQU DIAGLU(17) 17 DIAGNOSTIC LOGICAL UNIT C0200225 EQU GHOSTI(18) 18 COUNT OF GHOST INTERRUPTS C0200226 EQU MICROI(19) 19 MICRO-INTERRUPT NUMBER C0200227 EQU TIMOUT(20) 20 TIMEOUT PERIOD TO WAIT FOR AN INTERRUPT C0200228 EQU SENTRY(21) 21 STATUS AFTER INITIAL ENTRY C0200229 EQU SINTER(22) 22 STATUS AFTER INTERRUPT C0200230 EQU STIMEO(23) 23 STATUS AFTER INTERRUPT TIMEOUT C0200231 EQU FTNLU(24) 24 FORTRAN LOGICAL UNIT NUMBER C0200232 EQU MOTCMD(25) 25 PAPER MOTION COMMAND WORD C0200233 EQU BLNKCT(26) 26 COUNT FOR SPACE FILL C0200234 EQU CHARCT(27) 27 CHARACTER OUTPUT COUNT C0200235 EQU LINLEN(28) 28 NUMBER OF CHARACO  3%.TERS PER LINE C0200236 EQU LINCT(29) 29 LINE COUNT C0200237 EQU MAXLIN(30) 30 MAX NUMBER OF LINES PER PAGE C0200238 EQU MTNREQ(31) 31 MOTION REQUEST WORD IS SAVED HERE C0200239 EQU BLNKDT(32) 32 ZERO IF LINE IS ALL BLANKS C0200240 EQU ADTTBL(33) ADT TABLE 123*4589C0200241 EQU ADTBUF(37) ADT BUFFER ADDRESS 123*4589C0200242DBLBUF EQU DBLBUF(38) 38 BIT 1=1 FOR DOUBLE BUFFER 136*5500C0200243* BIT 15=1 96 CHARACTER SET 136*5500C0200244* BIT 15=0 64 CHARACTER SET 136*5500C0200245 EJT C0200246**** C0200247H001F EQU H001F(7) CONSTANT C0200248HX8000 EQU HX8000($32) CONSTANT $8000 123*4589C0200249FINISH EQU FINISH($40) BIT SHOWING REQUEST IS DONE C0200250ZERO EQU ZERO($22) CONSTANT C0200251 EQU C000($20) MASK TABLE INDEX FOR '$C000' C0200252 EQU H0020($28) MASK TABLE INDEX FOR '$0020' C0200253EIGHT EQU EIGHT($26) LOC. OF MASK 0008 137*0002C0200254PAPERO EQU PAPERO($2D) PAPER OUT CODE (0040) 137*0002C0200255 EQU RESET($19) CLEAR PRINTER,SELECT ALARM AND EOP INTERRUPTS.C0200256 EQU TOERR(0) TIME OUT ERROR FAULT CODE C0200257 EQU ALARM(2) ALARM FAULT CODE C0200258 EQU PARITY(3) PARITY FAULT CODE C0200259PAPER EQU PAPER(38) PAPER OUT FAULT CODE 137*0002C0200260 EQU INTREJ(5) INTERNAL REJECT CODE C0200261 EQU EXTREJ(6) EXTERNAL REJECT CODE C0200262 EQU CLRCON(1) CODE TO CLEAR CONTROLLER ONLY C0200263 EQU CLRINT(2) CODE TO CLEAR CONTROLLER INTERRUPTS C0200264* C0200265* STATUS INDICES C0200266* C0200267 EQU INITST(0) INITIATOR STATUS INDEX C0200268 EQU CONTST(1) INDEX FOR CONTINUATOR STATUS C0200269 EQU TOSTAT(2) INDEX FOR TIME OUT STATUS C0200270* C0200271* C0200272* ENTRY POINTS C0200273* C0200274 ENT K1827 INITIAL ENTRY TO LINE PRINTER KERNEL C0200275 ENT KLP408 INITIAL ENTRY TO KERNEL FOR ODS C0200276 ENT C1827 CONTINUATOR ENTRY POINT FOR MSOS/RTOS C0200277 ENT CLP408 CONTINUATOR ENTRY FOR ODS C0200278 ENT C1827R CONTINUATOR ENTRY POINT FOR RELATIVE USE C0200279 ENT E1827 TIME OUT ENTRY POINT FOR MSOS/RTOS C0200280 ENT ELP408 TIME OUT ENTRY FOR ODS C0200281 ENT E1827R TIME OUT ENTRY POINT FOR RELATIVE USE C0200282 ENT F1827 FAULT ENTRY TO LINE PRINTER KERNEL C0200283 ENT NXTCHR ENTRY TO CHARACTER FETCH ROU  3%/TINE(USER'S BUFFER) C0200284 ENT SPFILL SPACE FILL SUBROUTINE C0200285 ENT STATUS STATUS SUBROUTINE C0200286 SPC 3 C0200287* C0200288* EXTERNAL REFERENCES C0200289* C0200290 SPC 2 C0200291 EXT* CKGINT CHECK GHOST INTERRUPT SUBROUTINE C0200292 EXT* EDIT EDIT SPECIAL CHARACTERS FOR PAPER MOTION COMMANDS C0200293 EXT* FTNFMT FORTRAN/FORMAT PAPER MOTION CONTROL SUBROUTINE C0200294 EXT* MOTREQ MOTION REQUEST PROCESSOR SUBROUTINE C0200295 EXT* PAGE PAGE CONTROL SUBROUTINE C0200296 EXT* LPWAIT WAIT SUBROUTINE C0200297 EJT C0200298K1827 NOP 0 ENTRY/EXIT LINE PRINTER KERNEL C0200299 EQU KLP408(K1827) DEFINE ENTRY FOR ODS C0200300 ENQ 0 C0200301 SET A C0200302 STA- ESTAT2,I CLEAR C0200303 STQ- BLNKCT,I PDT C0200304 STQ- MOTCMD,I FLAGS C0200305 STQ- CHARCT,I C0200306 STA- SENTRY,I C0200307 STA- SINTER,I C0200308 STA- STIMEO,I C0200309 ENQ INITST INDEX FOR INITIAL CALL TO STATUS C0200310 RTJ CKSTAT TAKE INITIAL STATUS, SAVE INPDT C0200311 RTJ* INITIO INITIATE I/O C0200312 RTJ LPWAIT SETS DIAG CLOCK, RETURNS TO DISPATCHER C0200313 SPC 2 C0200314* C0200315* CONTINUATOR ENTRY C0200316* C0200317C1827 STQ- I SAVE PDT ADDRESS C0200318 EQU CLP408(C1827) DEFINE ENTRY POINT FOR ODS C0200319 EQU C1827R(C1827) DEFINE ENTRY POINT FOR RELATIVE USE C0200320 ENA CLRINT CLEAR INTERRUP CODE TO A 123*4589C0200321 RTJ FUNCTN CLEAR THE INTERRUPT 123*4589C0200322 RTJ CKGINT CHECK FOR GHOST INTERRUPT, EXIT IF GHOST C0200323 ENQ CONTST INDEX FOR CONTINUATOR STATUS C0200324 RTJ CKSTAT FETCH, CHECK AND STORE STATUS 137*0002C0200325 RTJ* NEXTIO CONTINUES REQUEST PROCESSING C0200326 JMP* EXIT RETURNS ONLY WHEN REQUEST IS COMPLETE C0200327 SPC 2 C0200328* C0200329* ERROR ENTRY C0200330* C0200331 SPC 2  3%/ C0200332E1827 STQ- I SAVE PDT ADDRESS C0200333 EQU ELP408(E1827) DEFINE ENTRY FOR ODS C0200334 EQU E1827R(E1827) DEFINE ENTRY POINT FOR RELATIVE USE C0200335 ENQ TOSTAT INDEX FOR TIME OUT STATUS C0200336 RTJ STATUS GET TIMEOUT STATUS C0200337 ENA TOERR TIME OUT ERROR CODE TO A C0200338 SPC 3 C0200339* C0200340* FAULT ROUTINE C0200341* C0200342 SPC 2 C0200343F1827 STA- FLTCOD,I SAVE FAULT CODE IN PDT C0200344 ENA CLRCON CLEAR CONTROLLER 123*4589C0200345 LDQ- EWES,I 136*A002C0200346 OUT 1 136*A002C0200347 NOP 0 136*A002C0200348 CLR A CLEAR COUNT FOR SPACE FILL 136*A002C0200349 STA- BLNKDT,I AND CHARACTER OUTPUT COUNT 136*A002C0200350 STA- CHARCT,I TO 0. 136*A002C0200351 LDA- EREQST,I C0200352 EOR- C000 SET ERROR INDICATOR AND TURN OFF ACTIVE FLAG C0200353* IN PDT (EREQST) C0200354 STA- EREQST,I C0200355 SET A 123*4589C0200356EXIT EQU EXIT(*) 123*4589C0200357 LDQ- MICROI,I MICRO INTERRUPT LINE NO. TO A 123*4589C0200358 DMI DISABLE MICRO INTERRUPT 123*4589C0200359 JMP* (KLP408) REUTRN TO DRIVER 123*4589C0200360 EJT C0200361* **********************************************************************C0200362* INITIO SUBROUTINE INITIATE I/O C0200363* **********************************************************************C0200364INITIO NOP 0 ENTRY/EXIT TO INITIATE INPUT/OUTPUT ROUTINE C0200365 ENA CLRCON RESET THE CONTROLLER C0200366 RTJ FUNCTN ISSUE THE DIRECTOR FUNCTION C0200367 LDQ- EPTR,I REQUEST ADDRESS C0200368 LDA- (ZERO),Q C0200369 ARS 9 C0200370 AND- H001F REQUEST CODE C0200371 INA -14 C0200372 SAN INI002 NOT A MOTION REQUEST C0200373 LDA- 4,Q MOTION COMMAND WORD C0200374 SAP INI001 C0200375 AND =N$7000 JUST 1 MOTION PARAMETER C0200376INI001 AND =N$7FF0 UP TO 3 MOTION PARAMETERS C0200377 STA- MTNREQ,I SAVE IN PDT C0200378 RTJ MOTREQ CALL REQUEST ROUTINE C0200379 SAZ INI004 NOTHING TO BE DONE,EXIl5  3%/(T C0200380 RTJ OUT1 OUTPUT MOTION REQUEST CHARACTER C0200381 JMP* INI015 C0200382INI002 LDA- ELU,I LOGICAL UNIT FOR REQUEST C0200383 SUB- DIAGLU,I SUBTRACT DIAGNOSTIC LOGICAL UNIT C0200384 SAN INI005 IF THIS IS NOT A REQ TO THE DIAGNOSTIC UNIT C0200385 LDA- ELSTWD,I FETCH LAST WORD OF REQUSST DATA+1 C0200386 SUB- ECCOR,I SUBTRACT CURRENT LOCATION C0200387 SAN INI005 IF THIS IS NOT A ZERO WORD REQUEST C0200388INI004 JMP* EXIT REQUEST DONE C0200389INI005 CLR A C0200390 ENQ 0 FIRST CALL INDICATOR C0200391 RTJ FTNFMT FORTRAN/FORMAT PAPER CONTROL C0200392 RTJ PAGE PAGE,LINE CONTROL C0200393 RTJ FILL FILL ONE CHARACTER INTO ADT BUFFER 123*4589C0200394 RTJ* CHARPR GO PROCESS CHARACTERS C0200395 STA* ASAVE SAVE A VALUE C0200396 TRA Q TRANSFER FUNCTION TO Q C0200397 INQ -$3A IS IT PRINT COMMAND? C0200398 SQN INI010 SKIP DOWN IF NOT A PRINT COMMAND C0200399 LDA- CHARCT,I CHARACTER COUNT TO A C0200400 INA -1 IF CHARACTER COUNT IS MORE THAN ONE THEN C0200401 SAN INI020 GO TO PRINT C0200402* ELSE C0200403 STA* ASAVE CLEAR SAVED FUNCTION C0200404INI010 EQU INI010(*) C0200405 LDQ- ADTBUF,I Q = ADT BUFFER -1 123*4589C0200406 LDA- 1,Q GET THE CHARACTER FROM BUFFER 123*4589C0200407 ARS 8 RIGHT JUSTIFY IT 123*4589C0200408 RTJ OUT1 OUTPUT FIRST CHACTER 123*4589C0200409 LDA* ASAVE GET SAVED FUNCTION C0200410 SAN INI017 SKIP DOWN IF NOT ZERO C0200411INI015 EQU INI015(*) 123*4589C0200412 ENA RESET RESET FUNCTION IF ZERO C0200413INI017 EQU INI017(*) C0200414 RTJ FUNCTN DO THE FUNCTION 137*0002C0200415 JMP* INI030 GO EXIT 123*4589C0200416INI020 EQU INI020(*) 123*4589C0200417 RTJ DMI ENABLE MICRO INTERRUPT 123*4589C0200418INI030 EQU INI030(*) 123*4589C0200419 JMP* (INITIO) C0200420 EJT C0200421* **********************************************************************C0200422* NEXTIO NEXT INPUT/OUTPUT SUBROUTINE C0200423* **********************************************************************C0200424NEXTIO NOP 0 ENTRY/EXIT CONTINUES REQUEST PROCESSING C0200425 ENA FINISH BIT SHOWING REQUEST PROCESSED C0200426 AND- ESTAT1,I CHECK IF REQ IS DONE C0200427 SAZ NEX002 NOT DONE, CONTINUE R  3%/< C0200428 JMP* NEX040 C0200429NEX002 LDA- MTNREQ,I CHECK IF MOTION REQUEST C0200430 SAZ NEX005 NO C0200431 RTJ MOTREQ CHECK IF ANYTHING LEFT TO DO C0200432 SAN NEX003 A MOTION REQ TO BE DONE C0200433 JMP* NEX040 MOTION REQUEST FINISHED C0200434 RTJ OUT1 OUTPUT MOTION REQUEST CHARACTER C0200435NEX003 EQU NEX003(*) 123*4589C0200436 JMP* NEX026 C0200437NEX005 LDA- MOTCMD,I CHECK IF PAPER MOTION NEEDED C0200438 SAZ NEX010 C0200439 CLR Q RESET THE MOTION REQUEST CONTROL WORD C0200440 STQ- MOTCMD,I C0200441NEX010 RTJ PAGE CHECK FOR PAGE CONTROL C0200442 RTJ FILL ONE CHARACTER INTO ADT BUFFER 137*0002C0200443 RTJ SPFILL FILL WITH BLANKS IF NECESSARY 123*4589C0200444 RTJ* CHARPR C0200445 STA* ASAVE SAVE A VALU C0200446 TRA Q TRANSFER FUNCTION TO Q C0200447 INQ -$3A IS IT PRINT COMMAND? C0200448 SQN NEX020 SKIP IF IT IS NOT C0200449 LDA- CHARCT,I CHARACTER COUNT TO A C0200450 INA -1 IF CHARACTER COUNT IS MORE THAN ONE THEN C0200451 SAN NEX028 GO TO PRINT C0200452* ELSE C0200453 STA* ASAVE CLEAR SAVED FUNCTION C0200454NEX020 EQU NEX020(*) C0200455 LDQ- ADTBUF,I Q = ADT BUFFER -1 123*4589C0200456 LDA- 1,Q GET THE CHARACTER FROM BUFFER 123*4589C0200457 ARS 8 RIGHT JUSTIFY IT 123*4589C0200458 RTJ OUT1 OUTPUT FIRST CHACTER 123*4589C0200459 LDA* ASAVE GET FUNCTION RETURNED FROM CHARPR C0200460 SAN NEX027 SKIP DOWN IF NOT ZERO C0200461NEX026 EQU NEX026(*) 123*4589C0200462 ENA RESET RESET FUNCTION IF ZERO C0200463NEX027 EQU NEX027(*) C0200464 RTJ* FUNCTN DO THE FUNCTN C0200465 JMP* NEX030 GO EXIT 123*4589C0200466NEX028 EQU NEX028(*) 123*4589C0200467 RTJ DMI ENABLE MICR INTERRUPT 123*4589C0200468NEX030 EQU NEX030(*) 123*4589C0200469 RTJ LPWAIT SET DIAGNOSTIC TIME CLOCK AND EXIT TO DISP C0200470NEX040 JMP* (NEXTIO) LEAVE THE CONTINUATOR C0200471* C0200472* C0200473ASAVE NUM 0 FUNCTION SAVED HERE C0200474 EJT C0200475* **********************************************S  3%/P************************C0200476* CKSTAT SUBROUTINE CHECK STATUS C0200477* **********************************************************************C0200478 SPC 2 C0200479CKSTAT NOP 0 ENTRY/EXIT TO CHECK STATUS ROUTINE C0200480 RTJ* STATUS FETCH AND RECORD STATUS C0200481CKS010 AND* CKSA,Q SAVE ONLY BITS TO BE CHECKED C0200482 EOR* CKSB,Q TEST FOR UNEXPECTED CONDITIONS C0200483 SAN CKS011 SKIP IF ALARM OR PARITY ERRORS -- 137*0002C0200484 JMP* CKS030 -- ELSE, RETURN 137*0002C0200485CKS011 STA* TEMPY SAVE PARITY AND/OR ALARM BITS 137*0002C0200486 ENA EOPBIT (0010) 137*0002C0200487 AND- ESTAT2,I CHECK FOR EOP BIT 137*0002C0200488 SAN CKEOP SKIP IF HAVE EOP BIT -- 137*0002C0200489CKS012 EQU CKS012(*) -- ELSE CONTINUE 137*0002C0200490 LDA* TEMPY GET SAVED PARITY/ALARM BITS 137*0002C0200491 ALS 9 C0200492 SAM CKS020 IF PARITY ERROR C0200493 AND- EIGHT CHECK FOR PAPER OUT BIT 137*0002C0200494 SAN CKS025 SKIP IF PAPER OUT 137*0002C0200495 ENA ALARM ENTER ALARM CONDITION INDICATOR C0200496 JMP* CKS015 C0200497CKS020 ENA PARITY ENTER PARITY ERROR ERROR INDICATOR C0200498CKS015 EQU CKS015(*) C0200499 JMP F1827 EXIT VIA FAULT ROUTINE C0200500CKS025 ENA PAPER ENTER PAPER OUT FAULT CODE 137*0002C0200501 JMP* CKS015 137*0002C0200502CKEOP SQN CONTON CHECK IF Q = 0 OR 1 FOR -- 137*0002C0200503 JMP* CKS012 -- INITIATOR ENTRY 137*0002C0200504CONTON LDA- PAPERO -- CONTINUATOR ENTRY, CHECK FOR ---- 137*0002C0200505 AND- ESTAT2,I ---- PAPER OUT BIT (0400) 137*0002C0200506 SAZ CKS030 SKIP IF NOT OUT OF P1PER -- 137*0002C0200507 JMP* CKS012 -- ELSE, EXIT VIA FAULT ROUTINE 137*0002C0200508CKS030 JMP* (CKSTAT) C0200509TEMPY NUM 0 TEMPORARY STORAGE 137*0002C0200510* C0200511* PRINTER CONTROLLER STATUS BITS C0200512* C0200513 EQU RDYBIT(1) READY BIT C0200514 EQU BSYBIT(2) BUSY BIT C0200515 EQU INTBIT($4) INTERRUPT BIT C0200516 EQU DATBIT($8) DATA BIT, READY FOR DATA C0200517 EQU EOPBIT($10) END OF OPERATION BIT C0200518 EQU ALMBIT($20) ALARM BIT PAPER OUT,MALFUNCTION C0200519 EQU ERRBIT($40) ERROR BIT C0200520 EQU PRTBIT($80) PROTECT BIT C0200521 EQU ADTBIT($200) ADT BIT C0200522 EQU PPOBIT($400) PAPER OUT BIT C0200523 EQU BOFBIT($800) BUFFER OVERFLOW BIT  3%/d C0200524* C0200525* BITS REQUIRED FOR STATUS CHECK C0200526* C0200527 EQU BITS2(EOPBIT+DATBIT+INTBIT+BSYBIT+RDYBIT) C0200528 EQU BITS3(PPOBIT+ADTBIT+ERRBIT+ALMBIT) C0200529* C0200530 EQU BITS1(BOFBIT+PPOBIT+ADTBIT+ERRBIT+ALMBIT) C0200531* C0200532CKSA ADC BITS1+BITS2 BITS REQUIRED FOR INITIATOR CKSTAT C0200533 ADC BITS2+BITS3 BITS REQUIRED FOR CONTINUATOR CKSTAT C0200534* THESE BITS EXPECTED ON, OTHERS MUST BE OFF C0200535* AT INITIATOR, CONTINUATOR CKSTAT RESPECTIVELY C0200536CKSB ADC DATBIT+RDYBIT+EOPBIT THESE BITS EXPECTED ON,OTHERS OFF C0200537 ADC EOPBIT+DATBIT+RDYBIT THESE BITS EXPECTED 123*4589C0200538 EJT C0200539* **********************************************************************C0200540* STATUS SUBROUTINE *C0200541* **********************************************************************C0200542* *C0200543* SAVES STATUS IN ESTAT2 AND SENTRY OR SINTER OR STIMEO C0200544* ACCORDING TO INDEX IN Q REG. *C0200545 SPC 2 C0200546STATUS NOP 0 ENTRY/EXIT TO STATUS ROUTINE C0200547 SET A C0200548 STA- SENTRY,B CLEAR STATUS IN CASE OF REJECT C0200549 STQ* STA010 SAVE Q REG CONTENTS C0200550 LDQ- EWES,I FETCH EQUIPMENT ADDRESS C0200551 INP REJECT-* C0200552 STA- ESTAT2,I SAVE CURRENT STATUS C0200553 LDQ* STA010 RESET Q WITH INDEX C0200554 STA- SENTRY,B RECORD STATUS C0200555 JMP* (STATUS) C0200556STA010 NUM 0 TEMP FOR CONTENTS OF Q REGISTER C0200557 SPC 2 C0200558* **********************************************************************C0200559* CHARPR CHARACTER PROCESSOR ROUTINE C0200560* **********************************************************************C0200561 SPC 2 C0200562CHARPR NOP 0 ENTRY/EXIT TO CHARACTER PROCESSING ROUTINE C0200563CHA010 LDA- ECCOR,I C0200564 SUB- ELSTWD,I C0200565 SAP CHA015 END OF BUFFER C0200566 LDA- CHARCT,I NUMBER OF CHARS IN LINE C0200567 SUB- LINLEN,I C0200568 INA -1 DECREMENT FOR CONTROL CHARACTER 123*4589C0200569 SAM CHA020 LINE NOT FULL C0200570 ENQ 1 C0200571 RTJ FTNFMT CHAR CALL TO FTNFMT l  3%/x C0200572 SAZ CHA020 UNFORMATTED, KEEP LOOKING FOR CONTROL C0200573 ENQ 1 FORMATTED,DO AN UPSPACE C0200574 STQ- MOTCMD,I FTER PRINTING BUFFER 123*4589C0200575 JMP* (CHARPR) C0200576CHA015 ENA FINISH BIT SHOWING REQUEST PROCESSED C0200577 EOR- ESTAT1,I SET THE BIT C0200578 STA- ESTAT1,I SO IT WILL TERMINATE AFTER INTERRUPT C0200579 ENQ 1 C0200580 RTJ FTNFMT CHARACTER PROCESSING CALL C0200581 JMP* (CHARPR) C0200582CHA020 RTJ* NXTCHR FETCH NEXT CHARACTER FROM BUFFER C0200583 TRA Q DUPLICATE THE CHARACTER C0200584 INQ -$20 C0200585 SQM CHA030 IF THIS CHARACTER IS SPECIAL C0200586 INQ -$40 CHECK FOR LARGER THAN $5F C0200587 SQM CHA025 SKIP IF IN RANGE $20-$5F C0200588 INQ -$1F IS IT AN $7F C0200589 SQZ CHA027 YES, IGNORE IT C0200590 LDQ- DBLBUF,I CK IF 96 CHARACTER SET USED 136*5500C0200591 SQM CHA025 YES, SKIP 136*5500C0200592 INA -$20 NO, IN RANGE $60-$7E, MAKE $40-$5E 126*4722C0200593CHA025 RTJ* FILL FILL PRINTER BUFFER WITH A CHARACTER C0200594CHA027 JMP* CHA010 TRY ANOTHER CHARACTER C0200595CHA030 RTJ EDIT C0200596 SAN CHA040 IF EDIT FOUND A PRINT COMMAND. C0200597 JMP* CHA010 SPECIAL CHAR WAS UNRECOGNIZED, RESUME PROCESSING C0200598CHA040 JMP* (CHARPR) C0200599 EQU CHAA(2) MASK FOR FORMATTED/UNFORMATTED REQUEST BIT C0200600 EJT C0200601* **********************************************************************C0200602* FUNCTN FUNCTION DEVICE SUBROUTINE C0200603* **********************************************************************C0200604 SPC 2 C0200605FUNCTN NOP 0 ENTRY/EXIT FUNCTIONS CONTROLLER C0200606 LDQ- EWES,I C0200607 OUT REJECT-* C0200608 CLR A YES, RESET BLNKDT TO ZERO C0200609 STA- BLNKDT,I C0200610 STA- CHARCT,I RESET CHARACTER COUNT PER LINE C0200611 JMP* (FUNCTN) RETURN TO CALLER C0200612* **********************************************************************C0200613 SPC 2 C0200614* REJECT SECTION C0200615* **********************************************************************C0200616REJECT JMP* REJ010 COMES HERE FOR INTERNAL REJECT C0200617 ENA EXTREJ EXTERNAL REJECT FAULT CODE C0200618 JMP* REJ020 C0200619REJ010 ENA INTREJ INTERNAL REJECT FAULT CODE (  3%/ C0200620REJ020 ENQ -1 C0200621 STQ- EDCLK,I STOP THE DIAGNOSTIC CLOCK C0200622 JMP F1827 GO TO FAULT ROUTINE C0200623 EJT C0200624* **********************************************************************C0200625* NXTCHR FETCH NEXT CHARACTER SUBROUTINE C0200626* **********************************************************************C0200627 SPC 2 C0200628NXTCHR NOP 0 ENTRY/EXIT FETCHES NEXT CHAR FROM USER BUF TO A C0200629 ENA NXTA C0200630 EOR- ESTAT1,I C0200631 STA- ESTAT1,I C0200632 AND- FOURHX SAVE ONLY THE FLAG BIT C0200633 LDQ- ECCOR,I C0200634 LDQ* (NXTZ),Q FETCH NEXT WORD FROM USER'S BUFFER C0200635 SAN NXT010 IT'S UPPER CHAR C0200636 RAO- ECCOR,I BUMP TO NEXT WORD, USERS BUFFER C0200637 LLS 8 C0200638NXT010 LLS 8 C0200639 AND* NXTB C0200640 JMP* (NXTCHR) C0200641 SPC 2 C0200642NXTA EQU NXTA($4) MASK BIT 4 EXTRACTS UPPER/LOWER CHAR BIT C0200643NXTB NUM $7F MASK FOR CHARACTERS C0200644NXTZ NUM 0 C0200645 SPC 2 C0200646 EQU FOURHX($25) MASK FOR UPPER/LOWER CHAR FLAG C0200647* **********************************************************************C0200648* FILL SUBROUTINE C0200649* FILLS ADT BUFFER WITH ONE CHARACTER 123*4589C0200650* **********************************************************************C0200651FILL NUM 0 123*4589C0200652 LDQ- CHARCT,I CHARACTER COUNT TO Q 123*4589C0200653 SBQ- LINLEN,I IF LINE IS FULL THEN 123*4589C0200654 INQ -1 DECREMENT FOR CONTROL CHARACTER 123*4589C0200655 SQM FIL008 C0200656 JMP* FIL020 SKIP FILLING BUFFER C0200657FIL008 ENQ $20 CHECK IF A BLANK JUST SENT C0200658 EAQ Q C0200659 SQZ FIL010 A BLANK C0200660 RAO- BLNKDT,I SHOW A NON-BLANK WAS SENT C0200661FIL010 EQU FIL010(*) 123*4589C0200662 LDQ- CHARCT,I ADT CHARACTER POSITION TO Q 123*4589C0200663 LR1- ADTBUF,I R1 = ADT BUFFER ADDRESS -1 123*4589C0200664 SCA- 1,Q,1 STORE THE CHARACTER IN ADT BUFFER 123*4589C0200665 ENA $20 BLANK TO A 123*4589C0200666 INQ 1 INCREMENT CHARACTER POINTER 123*4589C0200667 SCA- 1,Q,1 STORE THE CHARACTER INY(  3%/ ADT BUFFER 123*4589C0200668 RAO- CHARCT,I INCRMENT CHARACTER COUNT C0200669FIL020 EQU FIL020(*) 123*4589C0200670 JMP* (FILL) C0200671 SPC 5 C0200672* **********************************************************************C0200673* SPFILL SPACE FILL SUBROUTINE C0200674* **********************************************************************C0200675 SPC 2 C0200676SPFILL NOP 0 SPACE FILL SUBROUTINE C0200677 ENA $20 C0200678SPF010 LDQ- BLNKCT,I C0200679 SQP SPF020 IF BLANK COUNT EXHAUSTED C0200680 RTJ* FILL SEND BLANK TO PRINTER C0200681 RAO- BLNKCT,I ADJUST COUNT OF BLANKS STILL REQ'D C0200682 JMP* SPF010 CONTINUE C0200683SPF020 JMP* (SPFILL) SPACE FILL ACCOMPLISHED C0200684 EJT 123*4589C0200685* SUBROUTINE TO OUTPUT THE FIRST CHARACTER TO THE PRINTER 123*4589C0200686OUT1 NUM 0 123*4589C0200687 LDQ- EWES,I EQUIPMENT CODE TO Q 123*4589C0200688 INQ -1 * 123*4589C0200689 OUT REJECT-* OUTPUT THE FIRST CHARACTER 123*4589C0200690 ENA RESET CLEAR, EOP, ALARM 123*4589C0200691 RTJ* FUNCTN DO IT 123*4589C0200692 JMP* (OUT1) EXIT 123*4589C0200693 EJT 123*4589C0200694* 123*4589C0200695* SUBROUTINE TO SET ADT TABLE AND ENABLE MICRO INTERRUPT 123*4589C0200696* 123*4589C0200697* 123*4589C0200698DMI NUM 0 123*4589C0200699 LDA- ADTBUF,I ADT BUFFER ADDRESS- 1 TO A 123*4589C0200700 STA- ADTTBL+1,I SAVE IN ADT TABLE, WORD 2 123*4589C0200701 LDA- CHARCT,I GET CHARACTER COUNT 123*4589C0200702 INA -1 SUBTRACT CONTROL CHARACTER C0200703 ARS 1 DIVIDE BY 2 123*4589C0200704 INA 1 ADD 1 FOR A POSSIBLE ODD CHAR 123*4589C0200705 ADD- ADTTBL+1,I A = LAST WORD ADDRESS 123*4589C0200706 STA- ADTTBL+2,I SOTRE IN WORD 3 OF ADT TABLE 123*4589C0200707 LDA- EWES,I GET EQUIPMENT ADDRESS 123*4589C0200708 INA -1 RESET BIT 0 TO INDICATE DATA 123*4589C0200709 EOR* CHRWRT SET CHARACTER MODE AND WRITE OPERATION123*4589C0200710 STA- ADTTBL,I SAVE IN ADT TABLE 123*4589C0200711 LDA- MICROI,I GET MICRO INTERRUPT NO. 123*4589C0200712 EOR- HX8000 SET BIT 15 TO ENABLE MICRO INTERRUPT 123*4589C0200713 TRA Q Q = MICRO INTERRUPT LINE NO + BIT 15 123*4589C0200714 LDA- I PDT ADDRESS TO A 123*4589C0200715 INA ADTTBL A = ADT TABLE ADDRESS  3%/ 123*4589C0200716 DMI DEFINE MICRO INTERRUPT 123*4589C0200717 ENA $41 ADT, CLEAR CONTROLLER 123*4589C0200718 RTJ* FUNCTN DO IT 123*4589C0200719 ENA $58 ADT MODE, INTERRUPT ON ALARAM AND EOP 123*4589C0200720 RTJ* FUNCTN DO IT 123*4589C0200721 JMP* (DMI) EXIT 123*4589C0200722 SPC 3 123*4589C0200723CHRWRT NUM $2800 CHARACTER MODE, WRITE OPERATION BITS 123*4589C0200724 END C0200725 NAM LPWAIT C03 A DRVR CCS 3.0 SL-149C0300001* 1827 LINE PRINTER WAIT ANCILLARY ROUTINE C0300002* CREDIT COLLECTION SYSTEM VERSION 3.0 C0300003* DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA C0300004* COPYRIGHT CONTROL DATA CORPORATION 1979 C0300005 SPC 3 C0300006* **********************************************************************C0300007* WAIT ANCILLARY ROUTINE C0300008* **********************************************************************C0300009 SPC 2 C0300010 EQU ADISP($EA) CELL CONTAINING DISPATCHER ADDRESS C0300011 EQU EDCLK(4) CLOCK ENTRY TO PHYSICAL DEVICE TABLE C0300012 EQU TIMOUT(20) PDT WORD OF DIAGNOSTIC TIME INTERVAL C0300013* C0300014* C0300015 ENT LPWAIT WAIT SUBROUTINE C0300016LPWAIT NOP 0 ENTRY/EXIT C0300017* C0300018 LDA- TIMOUT,I DIAGNOSTIC TIME INTERVAL C0300019 STA- EDCLK,I SET DIAGNOSTIC CLOCK C0300020 JMP- (ADISP) EXIT TO DISPATCHER, WAIT INTERUPT C0300021 END C0300022 NAM CKGINT C04 A DRVR CCS 3.0 SL-149C0400001* 1827 LINE PRINTER CHECK GHOST INTERRUPT ANCILLARY ROUTINE C0400002* CREDIT COLLECTION SYSTEM VERSION 3.0 C0400003* DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA C0400004* COPYRIGHT CONTROL DATA CORPORATION 1979 C0400005 SPC 3 C0400006* **********************************************************************C0400007* CKGINT CHECK GHOST INTERRUPT ANCILLARY ROUTINE C0400008* **********************************************************************C0400009 SPC 2 C0400010 ENT CKGINT C0400011 EXT* STATUS STATUS SUBROUTINE C0400012 EXT CGHOST GHOST INT/CONSTANT INT SUBROUTINE C0400013 EQU CLRINT(1) CLEAR INTERRUPTS COMMAND C0400014 EQU CONTST(1) INDEX FOR CONTINUATOR STATUS C0400015 EQU EDCLK(4) 04 DIAGNOSTIC CLOCK C0400016 EQU EREQST(8) REQUEST WORD OF PHYSICAL @  3%/DEVICE TABLE C0400017 EQU EWES(7) CONVERTER, EQUIPMENT, STATION C0400018 EQU GHOSTI(18) GHOST INTERRUPT COUNTER C0400019CKGINT NOP 0 ENTRY/EXIT C0400020 LDA- EREQST,I CHECK FOR GHOST INTERRUPT C0400021 SAM CKG020 IF NOT A GHOST INTERRUPT C0400022CKG010 RAO- GHOSTI,I INCREMENT COUNT OF GHOST INTERRUPTS C0400023 ENQ CONTST INDEX TO PLACE STATUS IN CONTINUATOR WORD C0400024 RTJ STATUS SAVE STATUS IN PHYSICAL DEVICE TABLE C0400025 ENA CLRINT C0400026 LDQ- EWES,I EQUIPMENT ADDRESS C0400027 OUT 1 C0400028 NOP 0 C0400029 RTJ CGHOST GO CHECK FOR CONSTANT OR OVER 100 GHOST INTS. C0400030CKG020 ENA -1 C0400031 STA- EDCLK,I STOP DIAGNOSTIC CLOCK C0400032 JMP* (CKGINT) C0400033 END C0400034 NAM EDIT C05 A DRVR CCS 3.0 SL-149C0500001* 1827 LINE PRINTER EDIT SPECIAL CHARACTERS ANCILLARY ROUTINE C0500002* CREDIT COLLECTION SYSTEM VERSION 3.0 C0500003* DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA C0500004* COPYRIGHT CONTROL DATA CORPORATION 1979 C0500005 SPC 3 C0500006* **********************************************************************C0500007* EDIT EDIT SPECIAL CHARACTERS ROUTINE C0500008* **********************************************************************C0500009 SPC 5 C0500010* C0500011* C0500012* PDT EQUATES C0500013* C0500014 EQU ELVL(0) 00 SCHEDULER CALL WITH DRIVER LEVEL C0500015 EQU EDIN(1) 01 DRIVER INITIATOR ENTRY C0500016 EQU EDCN(2) 02 DRIVER CONTINUATOR ENTRY C0500017 EQU EDPGM(3) 03 DRIVER DIAGNOSTIC ENTRY C0500018 EQU EDCLK(4) 04 DIAGNOSTIC CLOCK C0500019 EQU ELU(5) 05 LOGICAL UNIT C0500020 EQU EPTR(6) 06 PARAMETER LOCATION C0500021 EQU EWES(7) 07 CONVERTOR, EQUIPMENT, STATION C0500022 EQU EREQST(8) 08 REQUEST STATUS C0500023 EQU ESTAT1(9) 09 DRIVER STATUS C0500024 EQU ECCOR(10) 10 CURRENT LOCATION C0500025 EQU ELSTWD(11) 11 LAST LOCATION PLUS ONE C0500026 EQU ESTAT2(12) 12 DEVICE STATUS C0500027 EQU MASLGN(13) 13 DRIVER LENGTH (IF MASS MEMORY) C0500028 EQU MASSEC(14) 14 NAME ASSOCIATED WITH SECTOR NUMBER C0500029 EQU RETURN(15) 15 RESERVED FOR FNR AND CMR C0500030 EQU FLTCOD(16) 16 FAULT CODE IF A REg  3%/QUEST ERROR OCCURS C0500031 EQU DIAGLU(17) 17 DIAGNOSTIC LOGICAL UNIT C0500032 EQU GHOSTI(18) 18 COUNT OF GHOST INTERRUPTS C0500033 EQU MICROI(19) 19 MICRO-INTERRUPT NUMBER C0500034 EQU TIMOUT(20) 20 TIMEOUT PERIOD TO WAIT FOR AN INTERRUPT C0500035 EQU SENTRY(21) 21 STATUS AFTER INITIAL ENTRY C0500036 EQU SINTER(22) 22 STATUS AFTER INTERRUPT C0500037 EQU STIMEO(23) 23 STATUS AFTER INTERRUPT TIMEOUT C0500038 EQU FTNLU(24) 24 FORTRAN LOGICAL UNIT NUMBER C0500039 EQU MOTCMD(25) 25 PAPER MOTION COMMAND WORD C0500040 EQU BLNKCT(26) 26 COUNT FOR SPACE FILL C0500041 EQU CHARCT(27) 27 CHARACTER OUTPUT COUNT C0500042 EQU LINLEN(28) 28 NUMBER OF CHARACTERS PER LINE C0500043 EQU LINCT(29) 29 LINE COUNT C0500044 EQU MAXLIN(30) 30 MAX NUMBER OF LINES PER PAGE C0500045 EQU MTNREQ(31) 31 MOTION REQUEST WORD SAVED HERE C0500046 EQU BLNKDT(32) 32 ZERO IF LINE IS ALL BLANKS C0500047 EQU TABCT(20) NUMBER OF SPACES TO TAB C0500048* C0500049* C0500050 SPC 3 C0500051 ENT EDIT C0500052 SPC 3 C0500053 EXT* NXTCHR C0500054 EXT* SPFILL SPACE FILL SUBROUTINE C0500055 EJT C0500056EDIT NOP 0 ENTRY/EXIT TRANSLATES FORMAT CHARACTERS C0500057 INA -3 $03 EOT -END OF TEXT- PRINT,SPACE 1 LINE, C0500058* TERMINATE REQUEST C0500059 SAZ EDI025 SKIP IF = $03 C0500060 INA -1 $04 EOT -END OF TEXT- SAME AS $03 C0500061 SAN EDI030 SKIP IF NOT = $04 C0500062EDI025 LDQ- ELSTWD,I TERMINATE REQUEST FOR $03,$04 C0500063 STQ- ECCOR,I C0500064EDI027 ENA 1 SET UP FOR SINGLE SPACE C0500065EDI028 STA- MOTCMD,I C0500066EDI029 ENA $3A SET UP FOR PRINT,EOP AND ALARM INTS, CLEAR INTC0500067 JMP* (EDIT) RETURN TO CALLER C0500068* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C0500069EDI030 INA -5 $09 HTAB -HORIZONTAL TAB- BLANK OUT UP TO TAB C0500070 SAN EDI080 SKIP IF NOT = $09 C0500071 CLR Q CALCULATE AMOUNT OF TAB-FILL OF BLANKS C0500072 LDA- CHARCT,I C0500073 DVI =XTABCT C0500074 INQ -TABCT GET DIFFERENCE BETWEEN CHARCT AND NEXT TAB C0500075 STQ- BLNKCT,I PDT SLOT FOR COUNT C0500076 RTJ SPFILL SPACE FILL SUBROUTINE C0500077 JMP* EDI125 RETURN - NO I/O C0500078* * * * * * * * * * * * * * * * * * * * * * * *  3%/* * * * * * * * * * * * C0500079EDI080 INA -2 $OB VTAB -VERTICAL TAB- SELECT CHANNEL 2, C0500080* PRINT, AND CONTINUE C0500081 SAN EDI100 SKIP IF NOT = $0B C0500082 ENA $41 CHANNEL 2 SELECTION C0500083 JMP* EDI105 SET UP HTABING TO CONTINUE C0500084* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C0500085EDI100 INA -1 $0C TOF -TOP OF FORM- SELECT CHANNEL 1 C0500086 SAN EDI110 SKIP IF NOT = $0C C0500087 ENA $40 CHANNEL 1 SELECTION C0500088EDI105 STA- MOTCMD,I C0500089 RTJ* EDI200 SET UP SPACE FILL COUNT C0500090 JMP* EDI029 SET UP PRINT AND LEAVE C0500091* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C0500092EDI110 INA -1 $0D CARRIAGE RETURN -PRINT AND SPACE 1 LINE C0500093 SAN EDI120 SKIP IF NOT = $0D C0500094 JMP* EDI027 C0500095* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C0500096EDI120 INA -14 $1B ESCAPE -LOOK AT NEXT CHARACTER C0500097 SAZ ESCAPE SKIP IF = $1B C0500098EDI125 CLR A SET UP FOR NO I/O C0500099 JMP* (EDIT) C0500100EDI200 NOP 0 C0500101 LDA- CHARCT,I SET UP FILL COUNT TO CONTINUE C0500102 INA -1 DECREMENT FOR CONTROL CHARACTER C0500103 TCA A C0500104 INA 0 C0500105 STA- BLNKCT,I C0500106 JMP* (EDI200) C0500107* **********************************************************************C0500108* ESCAPE ROUTINE PROCESS PAPER CONTROL CHAR C0500109* **********************************************************************C0500110 SPC 3 C0500111ESCAPE RTJ NXTCHR GET NEXT CHARACTER C0500112 INA -$30 < $30 IF SO, IGNORE, NO I/O C0500113 SAP ESC020 SKIP IF >= $30 C0500114 JMP* EDI125 LEAVE, NO I/O C0500115* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C0500116ESC020 INA -$F $3F SELECT 8 LINES PER INCH (IGNORE - N/A) C0500117 SAN ESC030 SKIP IF NOT = $3F C0500118 JMP* EDI125 C0500119* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C0500120ESC030 INA -1 $40 CLEAR CONTROLLER AND CONTINUE C0500121 SAN ESC040 SKIP IF NOT = $40 C0500122 RTJ* EDI200 SET UP SPACE FILL TO CONTINUE C0500123 ENA $19 CLEAR CONTROLLER + INTERRUPTS C0500124 JMP* (EDIT) C0500125* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C0500126ESC040 SAM ESC050 SKIP IF LESS THAN $3F X  3%0 C0500127 JMP* EDI125 UNRECOGNIZABLE CONTROL CHARACTER - IGNORE C0500128* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C0500129ESC050 INA $10 $30 PRINT, NO UPSPACING, START AT BEGINNING C0500130 SAN ESC070 SKIP IF NOT = $30 C0500131 JMP* EDI029 C0500132* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C0500133ESC070 INA -1 $31 PRINT, SINGLE SPACE, START AT BEGINNING C0500134 SAN ESC080 SKIP IF NOT = $31 C0500135 ENA 1 SINGLE SPACE C0500136 JMP* EDI028 C0500137* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C0500138ESC080 INA -1 $32 PRINT, DOUBLE SPACE, START AT BEGINNING C0500139 SAN ESC090 SKIP IF NOT = $32 C0500140 ENA 2 DOUBLE SPACE C0500141 JMP* EDI028 C0500142* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C0500143ESC090 INA $3F $33-$3E PRINT, SELECT FORMAT LEVEL 1-12, C0500144 JMP* EDI105 CONTINUE C0500145 END C0500146 NAM DUMMY C06 A DRVR CCS 3.0 SL-149C0600001* 1827 LINE PRINTER MOTION - LINE COUNT/PAGE ANCILLARY ROUTINES C0600002* CREDIT COLLECTION SYSTEM VERSION 3.0 C0600003* DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA C0600004* COPYRIGHT CONTROL DATA CORPORATION 1979 C0600005 SPC 3 C0600006 ENT MOTREQ C0600007 ENT FTNFMT FORTRAN/FORMATTING ROUTINE C0600008 ENT PAGE LINE COUNT/PAGE ROUTINE C0600009 SPC 4 C0600010 EXT* NXTCHR ROUTINE TO GET NEXT CHAR FROM USER C0600011 SPC 6 C0600012 EQU H8000($21) CONSTANT TO PLUG IN MTNREQ C0600013 EJT C0600014* C0600015* PHYSICAL DEVICE TABLE (PDT) EQUATES C0600016* C0600017 EQU ELVL(0) 00 SCHEDULER CALL WITH DRIVER LEVEL C0600018 EQU EDIN(1) 01 DRIVER INITIATOR ENTRY C0600019 EQU EDCN(2) 02 DRIVER CONTINUATOR ENTRY C0600020 EQU EDPGM(3) 03 DRIVER DIAGNOSTIC ENTRY C0600021 EQU EDCLK(4) 04 DIAGNOSTIC CLOCK C0600022 EQU ELU(5) 05 LOGICAL UNIT C0600023 EQU EPTR(6) 06 PARAMETER LOCATION C0600024 EQU EWES(7) 07 CONVERTOR, EQUIPMENT, STATION C0600025 EQU EREQST(8) 08 REQUEST STATUS C0600026 EQU ESTAT1(9) 09 DRIVER STATUS C0600027 EQU ECCOR(10) 10 CURRENT LOCATION C0600028 EQU ELSTWD(11) 11 LAST LOCATION PLUS  3%0 ONE C0600029 EQU ESTAT2(12) 12 DEVICE STATUS C0600030 EQU MASLGN(13) 13 DRIVER LENGTH (IF MASS RESIDENT) C0600031 EQU MASSEC(14) 14 NAME ASSOCIATED WITH SECTOR NUMBER C0600032 EQU RETURN(15) 15 RESERVED FOR FNR AND CMR C0600033 EQU FLTCOD(16) 16 FAULTCODE IF A REQUEST ERROR OCCURS C0600034 EQU DIAGLU(17) 17 DIAGNOSTIC LOGICAL UNIT C0600035 EQU GHOSTI(18) 18 COUNT OF GHOST INTERRUPTS C0600036 EQU MICROI(19) 19 MICRO-INTERRUPT NUMBER C0600037 EQU TIMOUT(20) 20 TIMEOUT PERIOD TO WAIT FOR AN INTERRUPT C0600038 EQU SENTRY(21) 21 STATUS AFTER INITIAL ENTRY C0600039 EQU SINTER(22) 22 STATUS AFTER INTERRUPT C0600040 EQU STIMEO(23) 23 STATUS AFTER INTERRUPT TIMEOUT C0600041 EQU FTNLU(24) 24 FORTRAN LOGICAL UNIT NUMBER C0600042 EQU MOTCMD(25) 25 PAPER MOTION COMMAND WORD C0600043 EQU BLNKCT(26) 26 COUNT FOR SPACE FILL C0600044 EQU CHARCT(27) 27 CHARACTER OUTPUT COUNT C0600045 EQU LINLEN(28) 28 NUMBER OF CHARACTERS PER LINE C0600046 EQU LINCT(29) 29 LINE COUNT C0600047 EQU MAXLIN(30) 30 MAX NUMBER OF LINES PER PAGE C0600048 EQU MTNREQ(31) 31 MOTION REQUEST WORD SAVED HERE C0600049 EQU BLNKDT(32) 32 ZERO IF ALL BLANKS IN LINE C0600050 EJT C0600051* ********************************************************* C0600052* * C0600053* FTNFMT - HANDLES FUNCTIONING/PAPER MOTION FOR * C0600054* FORMATTED AND FORTRAN REQUESTS * C0600055* * C0600056* ********************************************************* C0600057 SPC 2 C0600058FTNFMT NOP 0 ENTRY POINT C0600059* C0600060* IF UNFORMATTED, RETURN ZERO IN A C0600061* C0600062 ENA 2 FORMATTED BIT C0600063 AND- ESTAT1,I CHECK IF REQUEST IS FORMATTED C0600064 SAN FTN001 FORMATTED C0600065 JMP* (FTNFMT) UNFORMATTED - RETURN 0 C0600066FTN001 SQZ FTN010 INITIAL CALL C0600067 JMP* FTN100 CHARACTER CALL C0600068* C0600069* HANDLE INITAL CARRIAGE CONTROL (PRE-BUFFER) C0600070* C0600071FTN010 LDA- ELU,I CURRENT LOGICAL UNIT FOR REQUEST C0600072 EOR- FTNLU,I C0600073 SAN FTN050 NON-FORTRAN,UPSPACE 1 C0600074 RTJ NXTCHR GET 1ST CHAR OF USER'S BUFFER C0600075 INA -$30 CHECK IF IT'S A ZERO C0600076 SAN FTN030  3%0, C0600077 ENA 2 DOUBLE SPACE FOR A ZERO C0600078 JMP* FTN060 C0600079FTN030 INA -1 CHECK IF IT'S A ONE C0600080 SAN FTN040 C0600081 ENA $40 PAGE EJECT FOR A ONE C0600082 JMP* FTN060 C0600083FTN040 INA 6 CHECK IF IT'S A PLUS C0600084 SAZ FTN060 SUPRESS SPACING IF A PLUS C0600085* C0600086FTN050 ENA 1 SINGLE SPACE CODE C0600087* C0600088FTN060 JMP* (FTNFMT) C0600089 EJT C0600090* C0600091* SELECT APPROPRIATE FUNCTION CODE AFTER BUFFER OUTPUT C0600092* C0600093FTN100 ENA $19 CLEAR PRINTER,EOP,ALARM C0600094 LDQ- BLNKDT,I CHECK IF NON-BLANKS IN BUFFER C0600095 SQZ FTN110 ALL BLANKS,DONT PRINT C0600096 ENA $3A CLEAR INTS,EOP,ALARM,PRINT C0600097FTN110 JMP* (FTNFMT) C0600098 EJT C0600099* ********************************************************* C0600100* * C0600101* MOTREQ - HANDLE MSOS MOTION REQUESTS * C0600102* * C0600103* ********************************************************* C0600104 SPC 2 C0600105MOTREQ NOP 0 ENTRY POINT C0600106MOT010 LDA- MTNREQ,I PICK UP SHIFTED REQUEST WORD C0600107 CLR Q C0600108 LLS 4 C0600109 SQZ MOT040 NO MORE MOTIONS C0600110 SAN MOT015 STILL HAVE A MOTION COMMAND C0600111 TRQ A C0600112 INA -8 C0600113 SAZ MOT050 DONE 136*5410C0600114 LDA- H8000 VALUE TO SHOW MOTION STILL ACTIVE C0600115MOT015 STA- MTNREQ,I NEW (SHIFTED) VALUE C0600116 INQ -2 CHECK FOR WRITE EOF C0600117 SQZ MOT020 C0600118 INQ -2 CHECK FOR REW UNLOAD C0600119 SQZ MOT030 C0600120 JMP* MOT010 KEEP CHECKING C0600121* C0600122* EOF - PAGE EJT, RESET LINE COUNT, CONTINUE MOTION REQ C0600123* C0600124MOT020 STQ- LINCT,I SET LINE COUNT TO ZERO  3%0@ C0600125 ENA $40 TOP-OF-FORMS C0600126 JMP* (MOTREQ) C0600127* C0600128* REW/UNL - RESET LINE COUNT, TERMINATE MOT REQ C0600129* C0600130MOT030 STQ- LINCT,I SET LINE COUNT TO ZERO C0600131MOT040 LDA- H8000 VALUE TO SHOW STILL A MOTION REQUEST-TILL DONEC0600132MOT050 STA- MTNREQ,I FOR THIS REQUEST 136*5410C0600133 JMP* (MOTREQ) 136*5410C0600134 EJT C0600135* ********************************************************* C0600136* * C0600137* PAGE - HANDLES LINE COUNTING AND TOP-OF-PAGE * C0600138* * C0600139* ********************************************************* C0600140 SPC 2 C0600141PAGE NOP 0 ENTRY POINT C0600142 TRA Q SAVE PAPER MOTION CHAR C0600143 INA -$40 C0600144 SAZ PAG020 PAGE EJT-RESET LINE COUNT C0600145 INA $3F C0600146 SAZ PAG011 SINGLE SPACE-BUMP LINE COUNT C0600147 INA -1 C0600148 SAZ PAG010 DOUBLE SPACE-ADD 2 TO LINE COUNT C0600149 INA -1 C0600150 SAN PAG015 NOT A RECOGNIZABLE PAPER CONTROL C0600151 RAO- LINCT,I TRIPLE SPACE-ADD 3 TO LINE COUNT C0600152PAG010 RAO- LINCT,I C0600153PAG011 RAO- LINCT,I C0600154PAG015 LDA- LINCT,I CURRENT POSITION ON PAGE C0600155 SUB- MAXLIN,I CHECK IF NEED TO SKIP TO NEXT PAGE C0600156 SAM PAG050 WITHIN PAGE,OK AS IS C0600157PAG020 ENA 0 C0600158 STA- LINCT,I RESET LINE COUNT C0600159 LDA- ELU,I C0600160 EOR- FTNLU,I CHECK IF FORTRAN LU C0600161 SAZ PAG050 YES, DONT FORCE A PAGE EJECT C0600162 ENQ $40 DO A PAGE EJECT C0600163PAG050 TRQ A APPROPRIATE CARRIAGE CONTROL C0600164 JMP* (PAGE) C0600165* 2 CARDS DELETED C0600166 END C0600167 NAM D1829 C07 A DRVR CCS 3.0 SL-149C0700001* 1829-3 CARD READER KERNEL DRIVER C0700002* CREDIT COLLECTION SYSTEM VERSION 3.0 C0700003* DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA C0700004* COPYRIGHT CONTROL DATA CORPORATION 1979 C0700005 SPC 5 F  3%0T C0700006**** 126*4303C0700007* 126*4303C0700008* 126*4303C0700009* 126*4303C0700010* THIS DRIVER HAS BEEN MODIFIED TO DO THE FOLLOWING5 126*4303C0700011* 1. RUN THE CARD READER IN ADT MODE. 126*4303C0700012* (A) RUNNING PRIORITY IS NOW 10 126*4303C0700013* (B) DOES NOT USE AQ ALLOCATION 126*4303C0700014* 2. OPTIONALLY READS IN 026 OR 029 MODE DEPENDING 126*4303C0700015* ON A FLAG SET IN WORD 43 OF THE PHYSTB. 126*4303C0700016* 3. RECOGNIZES AND PASSES CODES FOR EOF(6,7,8,9) 126*4303C0700017* AND EOR(7,8,9) PUNCHES FOR 200 UT SIMULATOR. 126*4303C0700018* 4. DRIVER CAN NOW RUN CORE-RESIDENT IN PART 1 126*4303C0700019* DUE TO 15 BIT ADDRESSING ERROR IN -CRPRMS- BY 126*4303C0700020* ELLIMINATING THE NEED TO USE THAT ROUTINE. 126*4303C0700021* 5. RECOGNIZES AND PASSES CIDE FOR LACED COLUMN (ALL 126*4303C0700022* HOLES PUNCHED) FOR HASP WORKSTATION SIMULATOR 126*4303C0700023* 126*4303C0700024**** 126*4303C0700025 EJT 126*4303C0700026**** C0700027*E C0700028* C0700029* C0700030* ***************** C0700031* * KERNEL DRIVER * C0700032* ***************** C0700033* C0700034* C0700035* FUNCTION C0700036* -------- C0700037* C0700038* THE KERNEL DRIVER PROCESSES 1829-3 CARD READER REQUESTS. C0700039* C0700040* C0700041* GENERAL DESCRIPTION C0700042* ------------------- C0700043* C0700044* THE CARD READER INITIATOR CHECKS FOR A USERS C0700045* REQUEST. IF NO REQUEST EXIST CONTROL RETURNS TO C0700046* THE SYSTEM. OTHERWISE THE REQUEST IS EXAMINED C0700047* FOR USING THE DIAGNOSTIC LOGICAL UNIT. WHEN THE C0700048* DIAGNOSTIC LOGICAL UNIT IS REFERENCE THE KERNEL C0700049* IS CALLED TO READ RAW DATA (12 BITS/WORD). A MAX C0700050* OF 80 COLUMNS (ONE CARD) CAN BE READ FOR THE C0700051* REQUEST. FOR A NON-DIAGNOSTIC REQUEST THE C0700052* DRIVER CALLS FORMAT TO READ (VIA KERNEL) AND C0700053* CONVERT DATA AS SPECIFIED BY THE SIZ  3%0hE OF THE C0700054* REQUESTERS BUFFER. FORMAT WILL ALSO PERFORM C0700055* ANY ERROR RECOVERY NEEDED BY A NON-DIAGNOSTIC C0700056* REQUEST. THE KERNEL DRIVER COMPLETES THE REQUEST C0700057* BY CALLING REMAKQ AND RCMPRQ TO SET UP THE V C0700058* FIELD AND SCHEDULE THE REQUESTING PROGRAM. THE C0700059* KERNEL DRIVER NOW LOOKS FOR ANOTHER REQUEST. C0700060**** C0700061 EJT 0 C0700062**** C0700063*E C0700064* C0700065* C0700066* INPUT REQUIREMENTS C0700067* ------------------ C0700068* C0700069* Q = ADDRESS TO PDT - PHYSICAL DEVICE TABLE C0700070* C0700071* C0700072* OUTPUT C0700073* ------ C0700074* C0700075* 1. CARD DATA C0700076* A. IF DIAGNOSTIC LU, RAW DATA 12 BITS/WORD. C0700077* A MAX OF 80 COLUMNS C0700078* B. IF NON DIAGNOSTIC LU, CONVERTED DATA. C0700079* NO LIMIT TO NUMBER OF CARDS READ. C0700080* 2. CARD STATUS C0700081* A. INITIATOR RAW STATUS 1 AND 2 C0700082* B. CONTINUATOR RAW STATUS 1 AND 2 C0700083* C. COMBINED RAW STATUS - ESTAT2 C0700084* D. TIME OUT RAW STATUS 1 AND 2 C0700085* 3. ERROR CODE STATUS C0700086* IF BIT 14 OF EREQST IS SET, ERROR CODE IS C0700087* RETURNED IN FLTCOD. VALUES DEFINED FOR C0700088* FLTCOD INCLUDE : C0700089* A. 0 = TIME OUT C0700090* B. 1 = BAD INITIATOR STATUS FOR DIAGNOSTIC C0700091* C. 2 = BAD CONTINUATOR STATUS FOR DIAGNOSTIC C0700092* D. 5 = INTERNAL REJECT C0700093* E. 6 = EXTERNAL REJECT C0700094**** C0700095 EJT 0 C0700096**** C0700097*E C0700098* C0700099* C0700100* ENTRY/EXIT C0700101* ---------- Z  3%0| C0700102* C0700103* 1. ENTRY - THE KERNEL INITIATOR IS CALLED ON C0700104* ENTRY TO CARD READER DRIVER (I1829). C0700105* C0700106* 2. EXIT - THE KERNEL DRIVER EXITS TO THE C0700107* DISPATCHER WHEN FINISHED. C0700108* C0700109* C0700110* FLOW C0700111* ---- C0700112* C0700113* RCMFNR FINDS THE NEXT REQUEST. RETURN IS TO DISPATCH- C0700114* ER IF NO REQUEST. THE KERNEL IS CALLED TO READ A CARD C0700115* AND RCMAKQ AND RCMPRQ COMPLETE THE REQUEST C0700116* C0700117* C0700118* SUBROUTINES C0700119* ----------- C0700120* C0700121* RCMFNR - FIND NEXT REQUEST C0700122* K1829 - CARD READER KERNEL C0700123* RCMAKQ - DEFINE V FIELD C0700124* RCMPRQ - COMPLETE THE REQUEST C0700125* FORMT - CONVERT RAW DATA C0700126* 2 CARDS DELETED 116*4303C0700127**** C0700128 EJT 0 C0700129**** C0700130*E C0700131* C0700132* C0700133* PARAMETERS C0700134* ---------- C0700135* C0700136* PDT - PHYSICAL DEVICE TABLE C0700137* C0700138* PDT EQUATES C0700139* *************** C0700140* C0700141 EQU ELVL(0) 00 SCHEDULER CALL- DRIVER LEVEL C0700142 EQU EDIN(1) 01 DRIVER INITIATOR ENTRY C0700143 EQU EDCN(2) 02 DRIVER CONTINUATOR ENTRY C0700144 EQU EDPGM(3) 03 DRIVER DIAGNOSTIC ENTRY C0700145 EQU EDCLK(4) 04 DIAGNOSTIC CLOCK C0700146 EQU ELU(5) 05 LOGICAL UNIT C0700147 EQU EPTR(6) 06 PARAMETER LOCATION C0700148 EQU EWES(7) 07 CONVERTER,EQUIPMENT, STATION C0700149 EQU EREQST(8) 08 REQUEST STATUS '  3%0 C0700150 EQU ESTAT1(9) 09 DRIVER STATUS C0700151 EQU ECCOR(10) 10 CURRENT LOCATION C0700152 EQU ELSTWD(11) 11 LAST LOCATION PLUS ONE C0700153 EQU ESTAT2(12) 12 DEVICE STATUS C0700154 EQU MASLGN(13) 13 DRIVER LENGTH (IF MASS MEMORY) C0700155 EQU MASSEC(14) 14 NAME ASSOCIATED WITH SECTOR NO C0700156 EQU RETURN(15) 15 RESERVED FOR FNR AND CMR C0700157 EQU FLTCOD(16) 16 FAULT CODE C0700158 EQU DIAGLU(17) 17 DIAGNOSTIC LOGICAL UNIT C0700159 EQU GHOSTI(18) 18 COUNT OF GHOST INTERRUPTS C0700160 EQU MICROI(19) 19 MICRO-INTERRUPT NUMBER C0700161 EQU TIMOUT(20) 20 TIMEOUT PERIOD UNTIL INTERRUPT C0700162 EQU RAWST1(21) 21 INIT, CONT., AND TIME OUT STAT C0700163 EQU SENTRY(21) 21 STATUS AFTER INITIAL ENTRY C0700164 EQU SINTER(22) 22 STATUS AFTER INTERRUPT C0700165 EQU STIMEO(23) 23 STATUS AFTER INTERRUPT TIMEOUT C0700166 EQU RAWST2(24) 24 INIT, CONT., AND TIME OUT STAT C0700167 EQU RAWSI2(24) 24 INITIATOR STATUS 2 C0700168 EQU RAWSC2(25) 25 CONTINATOR STATUS 2 C0700169 EQU RAWSE2(26) 26 TIME OUT STATUS 2 C0700170 EQU COLNUM(27) 27 COLUMN COUNTER C0700171 EQU TFEED(28) 28 TIME AT FEED C0700172 EQU TCOL01(29) 29 TIME AT COLUMN 1 C0700173 EQU TCOLEP(30) 30 TIME AT EOP C0700174 EQU FWA(31) 31 ADDRESS TO STORE RAW DATA C0700175 EQU LWA(32) 32 LAST WORD ADDRESS+1 TO STORE C0700176 EQU INTBIT(33) 33 DESELECT INTERRUPT BITS MASK C0700177 EQU WAITAD(34) 34 REPLACEMENT WAIT SUBROUTINE C0700178**** C0700179 EJT 0 C0700180**** C0700181*E C0700182 EQU TIMFLG(35) 35 TIME OUT FLAG C0700183 EQU LENGTH(36) 36 LOGICAL RECORD LENGTH C0700184 EQU SEQ(37) 37 SEQUENCE COUNTER FOR BINARY FORMATED CARDSC0700185 EQU OLDSEQ(38) 38 SEQ VALUE AT START OF REQUEST C0700186 EQU CHKSUM(39) 39 CHECK SUM ACCUMULATIVE VALUE C0700187 EQU CYCLE(40) 40 LOOP CYCLE COUNTER C0700188 EQU MOTREQ(41) 41 MOTION OPTION TEMPORARY LOCATION C0700189 EQU NEWCRD(41) 41 FLAG TO INDICATE IF NEW CARD BEING READ C0700190 EQU EOF(42) 42 END OF FILE INDICATOR C0700191 EQU RMODE(43) 43 READ MODE FLAG (0=026,1=029) 126*4303C0700192 EQU ADTCW(44) 44 ADT CONTROL WORD 116*4303C0700193 EQU ADTFW(45) 45 ADT FIRST WORD-1 116*4303C0700194 EQU ADTLW(46) 46 ADT LAST WORD 116*4303C0700195 EQU ADTXX(47) 47 ADT DUMMY 116*4303C0700196 EQU SIM200(48) 48 SIM200 LOGICAL UNIT 126*4303C0700197 EQU BUFR(49) 49 ADDRESS OF RAW DATA؜  3%0 BUFFER 126*4303C0700198* 2 CARDS DELETED 116*4303C0700199* C0700200* C0700201* MESSAGES C0700202* -------- C0700203* C0700204* ALTERNATE DEVICE HANDLER WILL PRINT FAULT CODE C0700205* THIS OCCURS ONLY FOR NON-DIAGNOSTIC UNITS. C0700206* C0700207* C0700208* MISC C0700209* ---- C0700210* C0700211* ENTRY REFERENCES C0700212* **************** C0700213* C0700214 ENT I1829 INITIATOR ENTRY POINT FOR MSOS/RTOS C0700215 ENT ICARDR INITIATOR ENTRY POINT FOR ODS C0700216* C0700217* EXTERNAL REFERENCES C0700218* ******************* C0700219* C0700220 EXT* C1829R CONTINUATOR C0700221 EXT* E1829R TIME OUT C0700222 EXT* FORMT CONVERT RAW DATA ROUTINE C0700223 EXT* K1829 1829-3 CARD READER KERNEL C0700224 EXT MAKQ MAKE ERROR FIELD OF EREQST C0700225 EXT MAS300 RELEASE BUFFER C0700226* 2 CARDS DELETED 116*4303C0700227* C0700228* EQUATE REFERENCES C0700229* ***************** C0700230* C0700231 EQU ADISP($EA) ADDRESS OF DISPATCHER C0700232 EQU RCMFNR($B5) ADDRESS OF F.N.R. C0700233 EQU RCMPRQ($B6) ADDRESS OF COMPLETE REQUEST C0700234**** C0700235 EJT 0 C0700236* C0700237* IF MASS MEMORY RESIDENT INITIALIZE ENTRY ADDRESS IN PDT C0700238* C0700239START STQ- I SAVE PDT ADDRESS C0700240 LDQ =XE1829R RELATIVE TIME OUT KERNEL ADDRESS C0700241 INQ *-START-1 C0700242 AAQ Q ABS ADDRESS C0700243 STQ- 3,I C0700244 LDQ =XC1829R RELATIVE CONTINUATOR KERNEL ADDRESS C0700245 INQ *-START-1   3%0 C0700246 AAQ Q ABS ADDRESS C0700247 STQ- 2,I C0700248 INA I1829-START INITIATOR ADDRESS C0700249 STA- 1,I C0700250 JMP* DCAR05 C0700251I1829 STQ- I SAVE PDT ADDRESS C0700252 EQU ICARDR(I1829) DEFINE ENTRY FOR ODS C0700253DCAR05 LDA- EREQST,I CHECK FOR ENTRY FROM MMEXC FOR C0700254* MULTIPLE SIMILAR DEVICES C0700255 SAP DCAR10 OPERATION ALREADY IN PROCESS C0700256 JMP- (ADISP) EXIT IF NO REQUEST TO DISPATCHER C0700257DCAR10 RTJ- (RCMFNR) (FIND NEXT REQUEST) C0700258 JMP* (DCAR40) MAS300 C0700259 SPC 2 C0700260 LDA- ELU,I C0700261 EOR- DIAGLU,I C0700262 SAN DCAR20 IF L.U. IS DIAGNOSTIC L.U., THEN C0700263 SPC 2 C0700264 LDA- ECCOR,I C0700265 STA- FWA,I SET FWA AND LWA FOR KERNEL RAW C0700266 LDA- ELSTWD,I DATA BUFFER C0700267 STA- LWA,I C0700268* 2 CARDS DELETED 116*4303C0700269 RTJ K1829 CALL KERNEL C0700270* 2 CARDS DELETED 116*4303C0700271 LDA- FWA,I DEFINE WORDS READ C0700272 STA- ECCOR,I C0700273 JMP* DCAR30 C0700274* ELSE C0700275DCAR20 RTJ FORMT CONVERT RAW DATA ROUTINE C0700276* ENDIF C0700277DCAR30 RTJ MAKQ FINISH DEFINING PDT (V FIELD) C0700278 RTJ- (RCMPRQ) COMPLETE THE REQUEST C0700279 JMP* DCAR10 LOOK FOR THREADED REQUEST C0700280DCAR40 ADC MAS300 RELEASE DRIVER ASSIGNMENT TO PDT C0700281* 2 CARDS DELETED 116*4303C0700282 END C0700283 NAM K1829 C08 A DRVR CCS 3.0 SL-149C0800001* 1829-3 CARD READER KERNEL C0800002* CREDIT COLLECTION SYSTEM VERSION 3.0 C0800003* DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA C0800004* COPYRIGHT CONTROL DATA CORPORATION 1979 C0800005* C0800006* 99 CARDS DELETED 116*4303C0800007**** C0800008*E C0800009* C0800010*  3%0 C0800011* ***************************** C0800012* * 1829-3 CARD READER KERNEL * C0800013* ***************************** C0800014* C0800015* C0800016* C0800017* C0800018* C0800019* FUNCTION C0800020* -------- C0800021* C0800022* THE 1829-3 KERNEL PROVIDES RAW DATA AND STATUS FROM C0800023* READING ONE CARD. A FAULT CODE IS FURNISHED FOR C0800024* DETECTED ERRORS. C0800025* C0800026* C0800027* GENERAL DESCRIPTION C0800028* ------------------- C0800029* C0800030* THE KERNEL SUPPLIES INITIAL AND CONTINUATION RAW C0800031* STATUS. IF THE STATUS IS IN ERROR, THE KERNEL EXITS C0800032* WITH THE APPROPRIATE FAULT CODE. EACH CARD COLUMN C0800033* IS READ USING ADT MODE. AFTER THE INITIAL CARD FEED 116*4303C0800034* THE DIAGNOSTIC CLOCK IS 116*4303C0800035* SET TO DETECT FAILURE TO READ RAW DATA WITHIN ONE C0800036* SECOND TIME INTERVALS. A FAULT CODE IS GENERATED IF C0800037* AN INTERRUPT DOES NOT OCCUR. AN INTERRUPT IS EXPECTED C0800038* FOR EACH CARD READ AT EOP. IF UNEXPECTED INTERRUPTS 116*4303C0800039* OCCUR, THE GHOST INTERRUPTS ARE NOTED AND NOT PROCESSED 116*4303C0800040**** C0800041 EJT 0 C0800042**** C0800043*E C0800044* C0800045* C0800046* INPUT REQUIREMENTS C0800047* ------------------ C0800048* C0800049* THE KERNEL USES THE PDT - PHYSICAL DEVICE TABLE TO C0800050* PROCESS A REQUEST. THE I REGISTER IS USED TO POINT TO C0800051* THE PDT. THE VARIOUS ENTRIES BELOW SHOW WHERE THE PDT C0800052* IS INITIALLY DEFINED: C0800053* 1. K1829 - I= PDT (CALL TO KERNEL) C0800054* 2. C1829 - Q= PDT (CONTINUATOR ADDRESS) C0800055* 3. E1829 - Q= PDT (TIME OUT ADDRESS) C0800056* C0800057* C0800058* OUTPUT )3  3%0 C0800059* ------ C0800060* C0800061* THE I REGISTER POINTS TO THE PDT. OTHER REGISTERS ARE C0800062* NOT SAVED. C0800063* 1. CARD DATA C0800064* RAW DATA - 12 BITS/WORD REPRESENTS 1 COLUMN. C0800065* A MAXIMUM OF 80 COLUMS OF DATA CAN BE READ C0800066* FOR EACH CALL TO THE KERNEL. C0800067* 2. CARD STATUS C0800068* A. INITIATOR RAW STATUS 1 AND 2 C0800069* B. CONTINUATOR RAW STATUS 1 AND 2 C0800070* C. COMBINED RAW STATUS - ESTAT2 C0800071* D. TIME OUT RAW STATUS 1 AND 2 C0800072* 3. ERROR CODE STATUS C0800073* IF BIT 14 OF EREQST IS SET, ERROR CODE IS C0800074* RETURNED IN FLTCOD. VALUES DEFINED FOR C0800075* FLTCOD INCLUDE : C0800076* A. 0 = TIME OUT C0800077* B. 1 = BAD INITIATOR STATUS FOR DIAGNOSTIC C0800078* C. 2 = BAD CONTINUATOR STATUS FOR DIAGNOSTIC C0800079* D. 5 = INTERNAL REJECT C0800080* E. 6 = EXTERNAL REJECT C0800081* 4 CARDS DELETED 116*4303C0800082**** C0800083 EJT 0 C0800084**** C0800085*E C0800086* C0800087* C0800088* ENTRY/EXIT C0800089* ---------- C0800090* C0800091* 1. ENTRY - C0800092* C0800093* A. K1829 - ENTERED BY DRIVER INITIATOR FOR C0800094* DIAGNOSTIC UNIT OR CALLED FROM FORMT ROUTINE. C0800095* B. C1829 - KERNEL CONTINUATOR, ENTERED WHEN IN- C0800096* TERRUPT OCCURS. C0800097* C. E1829 - TIME OUT ADDRESS, ENTERED WHEN DIAG- C0800098* NOSTIC CLOCK COUNTER BECOMES NEGATIVE. C0800099* C0800100* 2. EXIT - C0800101* A. DISPATCHER - WHEN DIAGNOSTIC CLOCK SET C0800102* B. CALLING PROGRAM - RETURN TO CALLING ROUTINE C0800103* OCCURS IN COMPIO (COMPLETE REQUEST). C0800104* C. CGHOST - WHEN GHOST INTERRUPT DETECTED C0800105**** C0800106 EJT 0 =  3%0 C0800107**** C0800108*E C0800109* C0800110* C0800111* C0800112* FLOW C0800113* ---- C0800114* C0800115* ON ENTRY TO THE KERNEL, THE RAW STATUS IS CHECKED FOR C0800116* ERROR. IF AN ERROR IS DETECTED, THE REQUEST IS TERM- C0800117* INATED VIA THE FAULT ROUTINE FCARDR. BOTH CONTINUATOR C0800118* STATUS WORDS SENTRY AND RAWSC2 ARE ZERO TO REFLECT C0800119* THAT THE CONTINUATION STATUS WAS NEVER TAKEN. THE C0800120* ONLY EXPECTED INITIATOR STATUS IS DEVICE READY. ALL C0800121* OTHER CONDITIONS ARE ACCEPTABLE SINCE THE PREVIOUS C0800122* CARD COULD BE IN ERROR. IF THE DEVICE IS READY, A C0800123* CALL TO SAVE THE CURRENT TIME IS MADE THEN A C0800124* FEED REQUEST IS ISSUED. THE KERNEL INITIATOR SETS THE C0800125* DIAGNOSTIC CLOCK FOR A 1 SECOND RESPONSE TIME. IF AN C0800126* INTERRUPT DOES NOT OCCUR IN THIS TIME PERIOD, THE C0800127* TIME OUT SECTION OF THE KERNEL IS EXECUTED. THE TIME C0800128* OUT LOGIC TAKES STATUS AND EXITS TO RECORD FAULT. C0800129* IF AN INTERRUPT FOR DATA OR EOP OCCURRED PRIOR TO C0800130* TIMING OUT, THE CONTINUATOR LOGIC IS ENTERED. THE C0800131* CONTINUATION STATUS IS READ AND CHECKED FOR ERROR. C0800132* THE FAULT ROUITNE WILL PROCESS ANY ERROR FOUND. WHEN C0800133* NO ERRORS EXIST WITH THE STATUS, THE CONTINUATOR WILL C0800134* LOOK FOR AN UNEXPECTED INTERRUPT. IF THERE IS NO C0800135* REQUEST (ELU=0), THEN THE GHOST INTERRUPT IS NOTED C0800136* AND CONTROL TRANSFERS TO CGHOST. FOR VALID C0800137* CONTINUATOR REQUESTS, THE TIME RATE FOR CARD SPEED IS C0800138* RECORDED FOR COLUMN 1 AND EOP BY CALLING SUBROUTINE C0800139* TIME. THE ACTUAL DATA IS READ BY THE CONTINUATOR BY C0800140* CALLING INPDAT. INPDAT ALSO LOOKS FOR EOP AND HAVING C0800141* SATISIFIED THE NUMBER OF WORDS REQUESTED. EITHER CASE C0800142* WILL RESULT IN THE CONTINUATOR EXITING TO COMPLETE C0800143* THE REQUEST. 116*4303C0800144* C0800145* C0800146* SUBROUTINES C0800147* ----------- C0800148* C0800149* INITIO - INITIATE I/O (FEED REQUEST) C0800150* WAIT - SET DIAGNOSTIC CLOCK C0800151* CKSTAT - READ AND CHECK RAW STATUS C0800152* 1 CARD DELETED 116*4303C0800153* CKGINT - LOOK FOR GHOST INTERRUPTS C0800154* CGHOST - CHECK FOR CONSTANT INTERRUP8  3%1T C0800155**** C0800156 EJT 0 C0800157**** C0800158*E C0800159* C0800160* C0800161* PARAMETERS C0800162* ---------- C0800163* C0800164* PDT EQUATES C0800165* *************** C0800166 SPC 2 C0800167 EQU ELVL(0) 00 SCHEDULER CALL- DRIVER LEVEL C0800168 EQU EDIN(1) 01 DRIVER INITIATOR ENTRY C0800169 EQU EDCN(2) 02 DRIVER CONTINUATOR ENTRY C0800170 EQU EDPGM(3) 03 DRIVER DIAGNOSTIC ENTRY C0800171 EQU EDCLK(4) 04 DIAGNOSTIC CLOCK C0800172 EQU ELU(5) 05 LOGICAL UNIT C0800173 EQU EPTR(6) 06 PARAMETER LOCATION C0800174 EQU EWES(7) 07 CONVERTER,EQUIPMENT, STATION C0800175 EQU EREQST(8) 08 REQUEST STATUS C0800176 EQU ESTAT1(9) 09 DRIVER STATUS C0800177 EQU ECCOR(10) 10 CURRENT LOCATION C0800178 EQU ELSTWD(11) 11 LAST LOCATION PLUS ONE C0800179 EQU ESTAT2(12) 12 DEVICE STATUS C0800180 EQU MASLGN(13) 13 DRIVER LENGTH (IF MASS MEMORY) C0800181 EQU MASSEC(14) 14 NAME ASSOCIATED WITH SECTOR NO C0800182 EQU RETURN(15) 15 RESERVED FOR FNR AND CMR C0800183 EQU FLTCOD(16) 16 FAULT CODE C0800184 EQU DIAGLU(17) 17 DIAGNOSTIC LOGICAL UNIT C0800185 EQU GHOSTI(18) 18 COUNT OF GHOST INTERRUPTS C0800186 EQU MICROI(19) 19 MICRO-INTERRUPT NUMBER C0800187 EQU TIMOUT(20) 20 TIMEOUT PERIOD UNTIL INTERRUPT C0800188 EQU RAWST1(21) 21 INIT, CONT., AND TIME OUT STAT C0800189 EQU SENTRY(21) 21 STATUS AFTER INITIAL ENTRY C0800190 EQU SINTER(22) 22 STATUS AFTER INTERRUPT C0800191 EQU STIMEO(23) 23 STATUS AFTER INTERRUPT TIMEOUT C0800192 EQU RAWST2(24) 24 INIT, CONT., AND TIME OUT STAT C0800193 EQU RAWSI2(24) 24 INITIATOR STATUS 2 C0800194 EQU RAWSC2(25) 25 CONTINATOR STATUS 2 C0800195 EQU RAWSE2(26) 26 TIME OUT STATUS 2 C0800196 EQU COLNUM(27) 27 COLUMN COUNTER C0800197 EQU TFEED(28) 28 TIME AT FEED C0800198 EQU TCOL01(29) 29 TIME AT COLUMN 1 C0800199 EQU TCOLEP(30) 30 TIME AT EOP C0800200 EQU FWA(31) 31 ADDRESS TO STORE RAW DATA C0800201 EQU LWA(32) 32 LAST WORD ADDRESS+1 TO STORE C0800202 EQU INTBIT(33) 33 DESELECT INTERRUPTu  3%1 BITS MASK C0800203 EQU WAITAD(34) 34 REPLACEMENT WAIT SUBROUTINE C0800204* 1 CARD DELETED 116*4303C0800205 EQU TIMFLG(35) 35 TIME OUT FLAG C0800206 EQU LENGTH(36) 36 LOGICAL RECORD LENGTH C0800207**** C0800208 EJT 0 C0800209**** C0800210*E C0800211 EQU SEQ(37) 37 SEQUENCE COUNTER FOR BINARY FORMATED CARDSC0800212 EQU OLDSEQ(38) 38 SEQ VALUE AT START OF REQUEST C0800213 EQU CHKSUM(39) 39 CHECK SUM ACCUMULATIVE VALUE C0800214 EQU CYCLE(40) 40 LOOP CYCLE COUNTER C0800215 EQU MOTREQ(41) 41 MOTION OPTION TEMPORARY LOCATION C0800216 EQU NEWCRD(41) 41 FLAG TO INDICATE IF NEW CARD BEING READ C0800217 EQU EOF(42) 42 END OF FILE INDICATOR C0800218 EQU RMODE(43) 43 READ MODE FLAG (0=026,1=029) 126*4303C0800219 EQU ADTCW(44) 44 ADT CONTROL WORD 116*4303C0800220 EQU ADTFW(45) 45 ADT FIRST WORD-1 116*4303C0800221 EQU ADTLW(46) 46 ADT LAST WORD 116*4303C0800222 EQU ADTXX(47) 47 ADT DUMMY 116*4303C0800223 EQU SIM200(48) 48 SIM200 LOGICAL UNIT 126*4303C0800224 EQU BUFR(49) 49 ADDRESS OF RAW DATA BUFFER 126*4303C0800225* C0800226* MESSAGES C0800227* -------- C0800228* C0800229* NONE C0800230**** C0800231 EJT 0 C0800232**** C0800233*E C0800234* C0800235* C0800236* MISC C0800237* ---- C0800238* C0800239* STATUS BIT POSITION C0800240* ******************* C0800241* C0800242* DIRECTOR STATUS 1 : C0800243* C0800244 EQU READY(1) 00 READY C0800245 EQU BUSY(2) 01 BUSY C0800246 EQU INTRPT(4) 02 INTERRUPT C0800247 EQU DATA(8) 03 DATA C0800248 EQU EOP($10) 04 EOP C0800249 EQU ALARM($20) 05 ALARM C0800250 EQU LOSTDT($40) 06 LOST DATA  3%10 C0800251 EQU PROTCT($80) 07 PROTECTED C0800252 EQU NREADY($200) 09 NOT READY C0800253 EQU ADT($400) 10 ADT MODE C0800254* C0800255* DIRECTOR STATUS 2 : C0800256* C0800257 EQU HOPPER(1) 00 HOPPER EMPTY C0800258 EQU STACK(2) 01 STACKER FULL C0800259 EQU FLFEED(4) 02 FAILED TO FEED C0800260 EQU JAM($20) 05 STACKER JAM C0800261* C0800262* C0800263* REQUESTED STATUS : C0800264* C0800265 EQU INITST(0) INITIAL STATUS C0800266 EQU CONTST(1) CONTINUATION STATUS C0800267 EQU TIMEST(2) TIME OUT STATUS C0800268* C0800269* C0800270* FAULT CODES : C0800271* C0800272 EQU ETIME(0) ERROR TIME OUT C0800273 EQU BADST(1) PSEUDO FAULT CODE FOR STATUS 1 C0800274* EQU BADST(2) PSEUDO FAULT CODE FOR STATUS 2 C0800275 EQU INTREJ(5) INTERNAL REJECT C0800276 EQU EXTREJ(6) EXTERNAL REJECT C0800277**** C0800278 EJT 0 C0800279**** C0800280*E C0800281* C0800282* C0800283* SELECTIVE STATUS BIT MASK : C0800284* C0800285 EQU SLMSK1(READY+NREADY) C0800286* INITIAL STATUS C0800287 EQU SLMSK2(NREADY+LOSTDT+ALARM+EOP+DATA+INTRPT+BUSY+READY) *4303C0800288* EOP CONDITION C0800289 EQU SLMSK3(0) C0800290* TIME OUT C0800291* 2 CARDS DELETED 116*4303C0800292* C0800293* C0800294* EXPECTED STATUS : C0800295* C0800296 EQU BITS1(READY) C0800297* INITIAL STATUS C0800298 EQU BITS2(EOP+INTRPT+READY) (7  3%1D C0800299* EOP CONDITION C0800300 EQU BITS3(0) C0800301* TIME OUT C0800302* 2 CARDS DELETED 116*4303C0800303* C0800304* C0800305* DIRECTOR FUNCTION POSITION C0800306* ************************** C0800307* C0800308 EQU CLRCON(1) 00 CLEAR CONTROLLER C0800309 EQU CLRINT(2) 01 CLEAR INTERRUPTS C0800310 EQU INTDAT(4) 02 INTERRUPT ON DATA C0800311 EQU INTEOP(8) 03 INTERRUPT ON EOP C0800312 EQU INTALM($10) 04 INTERRUPT ON ALARM C0800313 EQU ADTFUN($40) 06 ADT FUNCTION C0800314 EQU FEEDRQ($80) 07 FEED REQUEST C0800315**** C0800316 EJT 0 C0800317**** C0800318*E C0800319* C0800320* C0800321* ENTRY REFERENCES C0800322* **************** C0800323* C0800324 ENT K1829 INITIAL ENTRY INTO KERNEL C0800325 ENT KCARDR INITIAL ENTRY FOR ODS C0800326 ENT C1829 CONTINUATOR ENTRY POINT FOR MSOS/RTOS C0800327 ENT CCARDR CONTINUATOR ENTRY FOR ODS C0800328 ENT C1829R CONTINUATOR ENTRY POINT FOR RELATIVE USE C0800329 ENT E1829 TIME OUT ENTRY POINT FOR MSOS/RTOS C0800330 ENT ECARDR TIME OUT ERROR ENTRY FOR ODS C0800331 ENT E1829R TIME OUT ENTRY POINT FOR RELATIVE USE C0800332* C0800333* C0800334* EXTERNAL REFERENCES C0800335* ******************* C0800336 EXT CGHOST CHECK FOR CONSTANT INTERRUPT C0800337 EXT* ESTAT COMBINED STATUS ROUTINE C0800338 EXT FSTIME 3.3 MILLISEC CLOCK COUNTER C0800339* C0800340* C0800341* C0800342* EQUATE REFERENCES C0800343* ***************** C0800344* C0800345 EQU H8000($32) 116*4303C0800346 EQU ADISP($EA) DISPATCHER ADDRESS t  3%1X C0800347* 4 CARDS DELETED 116*4303C0800348* C0800349* STARTING FIELD POSITION : C0800350* C0800351 EQU RDYBIT(13) ESTAT1 READY BIT C0800352 EQU EOPBIT(4) EOP STATUS BIT C0800353 EQU ERROR(14) EREQST ERROR BIT C0800354* C0800355* FIELD SIZE : C0800356* C0800357 EQU ONEBIT(1) ONE BIT FIELD SIZES C0800358**** C0800359 EJT 0 C0800360* C0800361* ******************** C0800362* * KERNEL INITIATOR * C0800363* ******************** C0800364* C0800365* C0800366K1829 NUM $FFFF C0800367 EQU KCARDR(K1829) DEFINE ENTRY FOR ODS C0800368 IIN 0 NEEDED SINCE REPEATED REQUEST C0800369 LDQ* K1829 ENTER AT PRIORITY LEVEL $A C0800370 EIN 0 C0800371 STQ- RETURN,I SAVE RETURN ADDRESS C0800372 CLR Q C0800373 STQ- SINTER,I PRESET STATUS IN CASE CONTINUATOR C0800374 STQ- RAWSC2,I STATUS NEVER TAKEN C0800375 STQ- TIMFLG,I INDICATE NO TIME OUT C0800376 STQ- COLNUM,I C0800377 STQ* INITIO INDICATE FEED NEVER REQUESTED C0800378 ENQ INITST C0800379 RTJ* CKSTAT CHECK INITIAL STATUS C0800380 SEF- ESTAT1,RDYBIT,ONEBIT,I C0800381* SHOW DEVICE READY C0800382 LDA- FWA,I IF NO CARDS TO BE READ, THEN C0800383 SUB- LWA,I C0800384 SAM ICAR10 C0800385 JMP* COMPLT COMPLETE THE REQUEST C0800386* ELSE C0800387ICAR10 RTJ* INITIO FUNCTION CONTROLLER TO FEED CARD 116*4303C0800388 JMP* WAIT SET TIME OUT (EDCLK) C0800389* ENDIF C0800390* 14 CARDS DELETED 116*4303C0800391 EJT 0 C0800392* ***************************************************** C0800393* INITIATE I/O C0800394* ************ <  3%1l C0800395* ***************************************************** C0800396* C0800397INITIO NUM $FFFF FUNCTION CR CONTROLLER TO START IO C0800398 LDA- FWA,I FIRST WORD ADDRESS-1 TO ADT TABLE 116*4303C0800399 INA -1 116*4303C0800400 STA- ADTFW,I 116*4303C0800401 LDA- LWA,I LAST WORD ADDRESS TO ADT TABLE 116*4303C0800402 INA -1 116*4303C0800403 STA- ADTLW,I 116*4303C0800404 LDQ- MICROI,I MICRO LINE TO Q 116*4303C0800405 ADQ- H8000 SET BIT 15 TO ENABLE MICRO INTERRUPT 116*4303C0800406 XFI A BASE ADDRESS OF PDT TO A 116*4303C0800407 INA ADTCW 116*4303C0800408 DMI 0 ENABLE MICRO INTERRUPT 116*4303C0800409 LDQ- EWES,I DIRECTOR FUNCTION C0800410 LDA* FEED C0800411* 1 CARD DELETED 116*4303C0800412 OUT REJECT-* C0800413 JMP* (INITIO) RETURN C0800414FEED ADC FEEDRQ+INTALM+INTEOP+INTDAT+ADTFUN 116*4303C0800415* FEED REQUEST C0800416* INTERRUPT ON ALARM C0800417* INTERRUPT ON EOP C0800418* INTERRUPT ON DATA C0800419 EJT 0 C0800420* ***************************************************** C0800421* SET DIAGNOSTIC CLOCK C0800422* ******************** C0800423* ***************************************************** C0800424* C0800425WAIT LDA- TIMOUT,I SET MAX 2 SECOND DELAY BY 116*4303C0800426 STA- EDCLK,I SETTING EDCLK TO 1. C0800427 JMP- (ADISP) EXIT TO DISPATCHER C0800428* 4 CARDS DELETED 116*4303C0800429 SPC 5 C0800430* C0800431* ********************** C0800432* * KERNEL CONTINUATOR * C0800433* ********************** C0800434* C0800435* C0800436C1829 STQ- I (SAVE PDT ADDRESS) C0800437 EQU CCARDR(C1829) DEFINE ENTRY FOR ODS C0800438 EQU C1829R(C1829) DEFINE ENTRY POINT FOR RELATIVE USE C0800439 ENQ CONTST CHECK CONTINUATION STATUS C0800440 RTJ* CKSTAT C0800441 RTJ* CKGINT CHECK FOR GHOST INTERRUPT C0800442 LDA- ADTFW,I CALCULATE NUMBER OF CO  3%1LUMNS READ 116*4303C0800443 SUB- FWA,I 116*4303C0800444 INA 1 116*4303C0800445 STA- COLNUM,I 116*4303C0800446 LDA- ADTFW,I MAKE FWA POINT TO NEXT LOC FOR DATA 116*4303C0800447 INA 1 116*4303C0800448 STA- FWA,I 116*4303C0800449COMPLT JMP COMPIO EXIT TO COMPLETE THE REQUEST C0800450* 4 CARDS DELETED 116*4303C0800451 EJT 0 C0800452* ***************************************************** C0800453* READ AND CHECK STATUS C0800454* ********************* C0800455* ***************************************************** C0800456* C0800457* C0800458* INPUT : C0800459* C0800460* Q= 0, INITIATOR CALL C0800461* Q= 1, CONTINUATOR CALL C0800462* Q= 2, TIME OUT C0800463* C0800464CKSTAT NUM $FFFF C0800465 STQ* STATNO SAVE INITIAL/ CONTINUATOR CALL C0800466 SET A RAW STATUS C0800467 STA- RAWST1,B SET RAW STATUS IF RESET ON STATUS C0800468 STA- RAWST2,B C0800469 CLR Q C0800470 STQ- ESTAT2,I CLEAR ESTAT2 IF REJECT ON STATUS C0800471 LDQ- EWES,I C0800472 INP REJECT-* C0800473 LDQ* STATNO C0800474 STA- RAWST1,B RAW DIRECTOR STATUS 1 C0800475 ENQ 2 C0800476 ADQ- EWES,I C0800477 INP REJECT-* C0800478 LDQ* STATNO C0800479 STA- RAWST2,B RAW DIRECTOR STATUS 2 C0800480 RTJ ESTAT FORMAT ESTAT2 C0800481 LDQ* STATNO C0800482 LDA- RAWST1,B C0800483* 9 CARDS DELETED 116*4303C0800484 AND* SELMSK,Q SELECT BITS TO BE EXAIMINED C0800485 EOR* BITS,Q BITS THAT SHOULD BE SET C0800486 LDQ* STATNO C0800487 SAZ CKST27 IF STATUS BAD, THEN C0800488 SQZ CKST22 ERROR IF NOT ON CONTINUATION CALL C0800489 INA -INTRPT SEE IF INTERRUPT BIT ONLY BIT SET C0800490 SAN CKST25 m  3%1 C0800491 LDA- INTBIT,I C0800492 SAN CKST30 OK, IF INTERRUPTS DESELECTED C0800493CKST22 JMP* CKST40 ERROR C0800494CKST25 SUB =XNREADY+ALARM+READY-INTRPT LOOK ONLY FOR ALARM, NOT READY C0800495 SAN CKST40 IF ONLY ALARM AND READY SET, THEN C0800496 ENA HOPPER C0800497CKST27 SQZ CKST30 DO NOT CATCH STAT 2 PROBLEM ON INIT CALL C0800498 EOR- RAWST2,B CHECK FOR BAD STATUS 2 C0800499 AND =XJAM+FLFEED+STACK+HOPPER C0800500 SAN CKST40 IF LAST CARD IN HOPPER, THEN C0800501CKST30 JMP* (CKSTAT) RETURN C0800502* (ELSE) C0800503* ENDIF C0800504* (ELSE) C0800505* ENDIF C0800506* (ELSE) C0800507* ENDIF C0800508CKST40 INQ BADST C0800509 TRQ A BAD STATUS FAULT CODE C0800510 JMP* FCARDR C0800511 SPC 2 C0800512STATNO BSS STATNO STATUS NUMBER (0-INIT, 2-CONT) C0800513SELMSK ADC SLMSK1,SLMSK2,SLMSK3 116*4303C0800514* INIT,EOP,TIME OUT 116*4303C0800515BITS ADC BITS1,BITS2,BITS3 116*4303C0800516* INIT,EOP,TIME OUT 116*4303C0800517ZERO EQU ZERO(SELMSK+2) C0800518 EJT 0 C0800519* 30 CARDS DELETED 116*4303C0800520* ***************************************************** C0800521* LOOK FOR GHOST INTERRUPTS C0800522* ************************* C0800523* ***************************************************** C0800524* C0800525CKGINT NUM $FFFF CHECK FOR GHOST INTERRUPT C0800526 LDA- EREQST,I C0800527 SAM CKGI10 IF NO ACTIVE REQUEST, THEN C0800528 RAO- GHOSTI,I BUMP GHOST COUNT C0800529 LDQ- EWES,I GET WES CODE FOR DEVICE 136*A001C0800530 ENA CLRINT CLEAR INTERRUPTS C0800531 OUT 1 CAN NOT LOOK FOR REJECTS SINCE C0800532* INFINITE LOOP COULD OCCUR C0800533 NOP C0800534 RTJ CGHOST CHECK FOR CONSTANT INTERRUPT C0800535* CGHOST EXITS TO DISPATCHER C0800536* (ELSE) C0800537* ENDIF C0800538CKGI10 JMP* (CKGINT) RETURN y  3%1 C0800539 SPC 5 C0800540* ***************************************************** C0800541* REJECTS C0800542* ******* C0800543* ***************************************************** C0800544* C0800545REJECT JMP* INTRNL C0800546 ENA EXTREJ EXTERNAL REJECT C0800547 JMP* FCARDR C0800548INTRNL ENA INTREJ INTERNAL REJECT C0800549 JMP* FCARDR C0800550 EJT 0 C0800551* C0800552* ************ C0800553* * TIME OUT * C0800554* ************ C0800555* C0800556* C0800557E1829 STQ- I C0800558 EQU ECARDR(E1829) DEFINE ENTRY FOR ODS C0800559 EQU E1829R(E1829) DEFINE ENTRY POINT FOR RELATIVE USE C0800560 RAO- TIMFLG,I SET TIME FLAG IN CASE ERROR IN C0800561* CHECK STATUS. FCARDR DETECTS IF C0800562* TIME OUT OCCURRED C0800563 ENQ TIMEST TIME OUT STATUS C0800564 RTJ* CKSTAT READ RAW STATUS C0800565 SPC 5 C0800566* ***************************************************** C0800567* FAULT C0800568* ***** C0800569* ***************************************************** C0800570* C0800571* C0800572FCARDR LDQ- TIMFLG,I IF TIME OUT, THEN C0800573 SQZ FCAR10 C0800574 ENA ETIME TIME OUT C0800575FCAR10 STA- FLTCOD,I (ELSE) C0800576* ENDIF C0800577 RTJ* CKGINT C0800578 SEF- EREQST,ERROR,ONEBIT,I C0800579* SET ERROR CONDITION C0800580 EJT 0 C0800581* ***************************************************** C0800582* COMPLETE THE REQUEST C0800583* ******************** C0800584* ***************************************************** C0800585* C0800586* U  3%1 C0800587COMPIO ENA CLRINT CLEAR INTERRUPTS C0800588 LDQ- EWES,I C0800589 OUT 1 CAN NOT LOOK FOR REJECTS SINCE C0800590* INFINITE LOOP COULD OCCUR C0800591 NOP C0800592 LDQ- MICROI,I DISABLE MICRO INTERRUPT 116*4303C0800593 DMI 0 116*4303C0800594 ENA -1 DO NOT ALLOW DIAGNOSTIC CLOCK C0800595 STA- EDCLK,I TO TIME OUT C0800596 LDQ- RETURN,I C0800597 JMP* (ZERO),Q EXIT KERNEL C0800598 SPC 5 C0800599 END C0800600 NAM FORMT C09 A DRVR CCS 3.0 SL-149C0900001* 1829-3 CARD READER DATA FORMATTER ANCILLARY ROUTINE C0900002* CREDIT COLLECTION SYSTEM VERSION 3.0 C0900003* DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA C0900004* COPYRIGHT CONTROL DATA CORPORATION 1979 C0900005 SPC 3 C0900006**** C0900007*E C0900008* C0900009* C0900010* ************************************* C0900011* * 1829-3 CARD READER DATA FORMATTER * C0900012* ************************************* C0900013* C0900014* C0900015* C0900016* C0900017* FUNCTION C0900018* -------- C0900019* C0900020* CONVERTS RAW DATA READ BY THE CARD READER KERNEL AS C0900021* FORMATTED OR UNFORMATTED BINARY OR ASCII C0900022* C0900023* C0900024* GENERAL DESCRIPTION C0900025* ------------------- C0900026* C0900027* THIS CARD READER DRIVER USES THE KERNEL APPROACH. ALL C0900028* CARD READER HARDWARE FUNCTIONS ARE DONE BY THE CARD C0900029* READER KERNEL. DATA CONVERSION IS DONE BY THIS C0900030* ROUTINE. CODE IS MODULAR AND JUMPS ARE ALMOST ALWAYS C0900031* DOWN. THE VARIOUS SECTIONS PERFORM THE FOLLOWING C0900032* TASK: C0900033* 1. FORMT C0900034* A. INITIALIZE ABSOLUTE ADDRESSES  3%1 C0900035* B. CALL MOTION, ASCII, AND BINARY PROCESSORS C0900036* C. VALIDATE FORMATTED BINARY CHECKSUM C0900037* 2. MOTION C0900038* A. CLEAR SEQUENCE COUNTER FOR FORMATTED BINARY REQEUST C0900039* B. SKIP FORWARD FILE C0900040* 3. DATA C0900041* A. SCHEDULE UP TO LEVEL OF KERNEL C0900042* B. SCHEDULE DOWN TO LEVEL OF DRIVER FOR DATA CONVERSION C0900043* C. RESERVE AND RELEASE PSEUDO A/Q CHANNEL C0900044* D. CALL KERNEL TO READ CARD C0900045* 4. ASCII C0900046* A. READS CARD DATA C0900047* B. CALLS CONVRT TO CONVERT THE DATA TO ASCII C0900048* C. PACKS THE RESULTS INTO A BUFFER C0900049**** C0900050 EJT 0 C0900051**** C0900052*E C0900053* 5. CONVRT C0900054* A. LOOKS FOR END OF FILE C0900055* B. CHECKS FOR ILLEGAL MULTIPUNCHES C0900056* C. DETERMINES ORDINAL IN CONVERSION TABLE FOR DATA C0900057* D. SELECTS APPROPRIATE CHARACTER IN CONVERSION TABLE ENTRY C0900058* 6. EOFCHK C0900059* A. CHECKS COLUMN 1 FOR END OF FILE PUNCHES C0900060* B. DETERMINES RETURN ADDRESS BASED UPON EOF FOUND OR NOT C0900061* 7. READB C0900062* A. READS CARD DATA C0900063* B. PACKS 4 WORDS OF RAW DATA INTO 3 SIXTEEN BIT WORDS C0900064* C. STORES THE DATA C0900065* D. PROCESS ZERO WORD REQUEST C0900066* E. HANDLES SHORT READ REQUEST C0900067* 8. FBIN C0900068* A. CHECKS FOR 7/9 PUNCH C0900069* B. PICKS UP NEGATIVE RECORD LENGTH C0900070* C. DETERMINES ASCII OR BINARY MODE C0900071* D. REPORTS LENGTH, 7/9 PUNCH, AND SEQUENCE ERRORS C0900072* 9. ERROR C0900073* A. SETS UP V FIELD C0900074* B. LOGS ERROR IN ENGINEERING FILE C0900075* C. JUMPS TO ALTERNATE DEVICE HANDLER C0900076* C0900077* C0900078* INPUT REQUIREMENTS C0900079* ------------------ C0900080* C0900081* 1. FORMATTED BINARY CARDS C0900082* 2. UNFORMATTED BINARY CARDS o}  3%1 C0900083* 3. ASCII CARDS C0900084**** C0900085 EJT 0 C0900086**** C0900087*E C0900088* C0900089* C0900090* OUTPUT C0900091* ------ C0900092* C0900093* 1. CONVERTED RAW DATA C0900094* A. PACKED BINARY C0900095* B. ASCII C0900096* 2. FAULT ERROR C0900097* A. 00 TIME OUT C0900098* B. 01 LOST DATA C0900099* C. 02 ALARM C0900100* D. 04 CHECKSUM C0900101* E. 05 INTERNAL REJECT C0900102* F. 06 EXTERNAL REJECT C0900103* G. 08 HOLLERITH BAD PUNCH C0900104* H. 09 SEQUENCE ERROR C0900105* I. 10 LENGTH ERROR C0900106* J. 12 7/9 PUNCH ERROR C0900107* K. 14 NOT READY C0900108* L. 22 STACKER FULL C0900109* M. 23 HOPPER EMPTY C0900110* N. 24 FEED FAILURE C0900111* O. 25 CARD JAM C0900112* P. 34 DATA STATUS AT EOP C0900113* Q. 35 PREMATURE EOP C0900114* R. 53 NO EOP STATUS C0900115* S. 54 NO DATA STATUS BEFORE EOP C0900116* T. 61 NO INTERRUPT STATUS INDICATION C0900117* U. 62 STATUS SHOWS ADT MODE C0900118* V. 63 CARD READER BUSY AFTER EOP C0900119* W. 64 CARD READER NOT BUSY BEFORE EOP C0900120* C0900121* C0900122* ENTRY/EXIT C0900123* ---------- C0900124* C0900125* 1. NORMAL ENTRY TO FORMT C0900126* 2. NORMAL EXIT TO CALLING PROGRAM - D1829 C0900127* 3. ERROR EXIT TO ALTERNATE DEVICE HANDLER C0900128**** C0900129 EJT 0 C0900130****  3%1 C0900131*E C0900132* C0900133* FLOW C0900134* ---- C0900135* C0900136* FORMT CALLS MOTION TO DETERMINE IF THE REQUEST IS A C0900137* MOTION REQUEST. IF IT IS, THE MOTION ROUTINE PROCESS C0900138* THE REQUEST AND EXITS FORMT. RETURN TO NEXT LOCATION C0900139* AFTER CALLING THE MOTION ROUTINE INDICATES REQUEST C0900140* WAS NOT A MOTION REQUEST. IF THE REQUEST IS AN C0900141* UNFORMATTED ASCII REQUEST, FORMT EXITS TO ASCII LOGIC C0900142* TO PROCESS THE REQUEST. OTHERWISE FORMT CALLS READB TO C0900143* HANDLE THE REQUEST. ON RETURN FROM READB, FORMT VERIF- C0900144* IES THAT THE CHECKSUM IS CORRECT FOR A FORMATTED C0900145* BINARY REQUEST. FORMT THEN RETURNS TO THE CALLING C0900146* PROGRAM. C0900147* ASCII READS A CARD AND CALLS CONVRT TO CONVERT ONE C0900148* HOLLERITH PUNCH AT A TIME TO ASCII. ILLEGAL PUNCHES C0900149* CAUSES CONVRT TO EXIT TO THE ERROR LOGIC. ASCII C0900150* STORES THE DATA 2 CHARACTERS PER WORD UNTIL THE C0900151* REQUESTED NUMBER OF WORDS IS SATISFIED OR UNTIL ALL C0900152* DATA FROM ONE CARD HAS BEEN CONVERTED FOR A FORMATTED C0900153* READ. ASCII RETURNS TO THE CALLING PROGRAM OF FORMT. C0900154* READB READS CARD DATA AND PACKS 4 TWELVE BITS WORDS C0900155* INTO 3 SIXTEEN BIT WORDS. THE DATA IS STORED INTO THE C0900156* USERS BUFFER. PRIOR TO STORING THE INITIAL DATA, FBIN C0900157* IS CALLED TO DETERMINE IF POSSIBLE ASCII REQUEST. IF C0900158* ASCII REQUEST THE ASCII ROUTINE PROCESS THE DATA. IN C0900159* ADDITION FBIN VERIFIES THE 7/9 PUNCH, SEQUENCE NUMBER C0900160* AND PICKS UP THE NEGATIVE WORD LENGTH FOR FORMATTED C0900161* BINARY REQUEST. C0900162* THE ERROR ROUTINE LOGS ANY ERRORS FOUND AND EXITS TO C0900163* THE ALTERNATE DEVICE HANDLER. C0900164* C0900165* C0900166* SUBROUTINES C0900167* ----------- C0900168* C0900169* K1829 READS CARDS ONE PER CALL C0900170* LOG LOGS ERROR IN ENGINEERING FILE C0900171* MAKEQ DEFINES V FIELD IN USERS REQUEST PARM LIST C0900172* 2 CARDS DELETED 126*4303C0900173* C0900174* C0900175**** C0900176 EJT 0 C0900177**** C0900178*E b  3%2  C0900179* PARAMETERS C0900180* ---------- C0900181* C0900182* PDT EQUATES C0900183* *************** C0900184 SPC 2 C0900185 EQU ELVL(0) 00 SCHEDULER CALL- DRIVER LEVEL C0900186 EQU EDIN(1) 01 DRIVER INITIATOR ENTRY C0900187 EQU EDCN(2) 02 DRIVER CONTINUATOR ENTRY C0900188 EQU EDPGM(3) 03 DRIVER DIAGNOSTIC ENTRY C0900189 EQU EDCLK(4) 04 DIAGNOSTIC CLOCK C0900190 EQU ELU(5) 05 LOGICAL UNIT C0900191 EQU EPTR(6) 06 PARAMETER LOCATION C0900192 EQU EWES(7) 07 CONVERTER,EQUIPMENT, STATION C0900193 EQU EREQST(8) 08 REQUEST STATUS C0900194 EQU ESTAT1(9) 09 DRIVER STATUS C0900195 EQU ECCOR(10) 10 CURRENT LOCATION C0900196 EQU ELSTWD(11) 11 LAST LOCATION PLUS ONE C0900197 EQU ESTAT2(12) 12 DEVICE STATUS C0900198 EQU MASLGN(13) 13 DRIVER LENGTH (IF MASS MEMORY) C0900199 EQU MASSEC(14) 14 NAME ASSOCIATED WITH SECTOR NO C0900200 EQU RETURN(15) 15 RESERVED FOR FNR AND CMR C0900201 EQU FLTCOD(16) 16 FAULT CODE C0900202 EQU DIAGLU(17) 17 DIAGNOSTIC LOGICAL UNIT C0900203 EQU GHOSTI(18) 18 COUNT OF GHOST INTERRUPTS C0900204 EQU MICROI(19) 19 MICRO-INTERRUPT NUMBER C0900205 EQU TIMOUT(20) 20 TIMEOUT PERIOD UNTIL INTERRUPT C0900206 EQU RAWST1(21) 21 INIT, CONT., AND TIME OUT STAT C0900207 EQU SENTRY(21) 21 STATUS AFTER INITIAL ENTRY C0900208 EQU SINTER(22) 22 STATUS AFTER INTERRUPT C0900209 EQU STIMEO(23) 23 STATUS AFTER INTERRUPT TIMEOUT C0900210 EQU RAWST2(24) 24 INIT, CONT., AND TIME OUT STAT C0900211 EQU RAWSI2(24) 24 INITIATOR STATUS 2 C0900212 EQU RAWSC2(25) 25 CONTINATOR STATUS 2 C0900213 EQU RAWSE2(26) 26 TIME OUT STATUS 2 C0900214 EQU COLNUM(27) 27 COLUMN COUNTER C0900215 EQU TFEED(28) 28 TIME AT FEED C0900216 EQU TCOL01(29) 29 TIME AT COLUMN 1 C0900217 EQU TCOLEP(30) 30 TIME AT EOP C0900218 EQU WORD(30) 30 TEMPORARY STORAGE OF PACKED 16 BIT WORD C0900219 EQU FWA(31) 31 ADDRESS TO STORE RAW DATA C0900220 EQU LWA(32) 32 LAST WORD ADDRESS+1 TO STORE C0900221 EQU INTBIT(33) 33 DESELECT INTERRUPT BITS MASK C0900222 EQU WAITAD(34) 34 REPLACEMENT WAIT SUBROUTINE C0900223 EQU TIMFLG(35) 35 TIME OUT FLAG C0900224 EQU LENGTH(36) 36 LOGICAL RECORD LENGTH C0900225 EQU SEQ(37) 37 SEQUENCE COUNTER FOR BINARY FORMATED CARDSC0900226 EQU OLDSEQ(38) 38 SEQ VALUE AT START  3%2  OF REQUEST C0900227**** C0900228 EJT 0 C0900229**** C0900230*E C0900231 EQU CHKSUM(39) 39 CHECK SUM ACCUMULATIVE VALUE C0900232 EQU CYCLE(40) 40 LOOP CYCLE COUNTER C0900233 EQU MOTREQ(41) 41 MOTION OPTION TEMPORARY LOCATION C0900234 EQU NEWCRD(41) 41 FLAG TO INDICATE IF NEW CARD BEING READ C0900235 EQU EOF(42) 42 END OF FILE INDICATOR C0900236 EQU RMODE(43) 43 READ MODE FLAG (0=026,1=029) 126*4303C0900237 EQU ADTCW(44) 44 ADT CONTROL WORD 116*4303C0900238 EQU ADTFW(45) 45 ADT FIRST WORD-1 116*4303C0900239 EQU ADTLW(46) 46 ADT LAST WORD 116*4303C0900240 EQU ADTXX(47) 47 ADT DUMMY 116*4303C0900241 EQU SIM200(48) 48 SIM200 LOGICAL UNIT 126*4303 C0900242 EQU BUFR(49) 49 ADDRESS OF RAW DATA BUFFER 126*4303 C0900243**** C0900244 EJT 0 C0900245**** C0900246*E C0900247* C0900248* *************************************** C0900249* * HOLLERITH TO ASCII CONVERSION TABLE * C0900250* *************************************** C0900251* C0900252* EACH ENTRY CONTAINS A LEFT AND RIGHT CHARACTER C0900253* C0900254* OCTAL CARD LEFT CARD RIGHT C0900255* ORDINAL PUNCH CHAR PUNCH CHAR C0900256* -------------------------------------------- C0900257* 00 1 1 - BLANK C0900258* 01 3 3 2 2 C0900259* 02 5 5 4 4 C0900260* 03 7 7 6 6 C0900261* 04 9 9 8 8 C0900262* 05 8-3 ' 8-2 % C0900263* 06 8-5 : 8-4 ' C0900264* 07 8-7 " 8-6 > C0900265* 10 0-1 / 0- 0 C0900266* 11 0-3 T 0-2 S C0900267* 12 0-5 V 0-4 U C0900268* 13 0-7 X 0-6 W C0900269* 14 0-9 Z 0-8 Y C0900270* 15 0-8-3 , 0-8-2 \ C0900271* 16 0-8-5 % 0-8-4 ( C0900272* 17 0-8-7 @ 0-8-6 _ C0900273* 20 11-1 J 11- - C0900274* 21 11-3 L 11-2 Ks  3%24 C0900275* 22 11-5 N 11-4 M C0900276* 23 11-7 P 11-6 O C0900277* 24 11-9 R 11-8 Q C0900278* 25 11-8-3 $ 11-8-2 ! C0900279* 26 11-8-5 ] 11-8-4 * C0900280* 27 11-8-7 ^ 11-8-6 ; C0900281* 30 12-1 A 12- + C0900282* 31 12-3 C 12-2 B C0900283* 32 12-5 E 12-4 D C0900284* 33 12-7 G 12-6 F C0900285* 34 12-9 I 12-8 H C0900286* 35 12-8-3 . 12-8-2 ? C0900287* 36 12-8-5 [ 12-8-4 ) C0900288* 37 12-8-7 # 12-8-6 < C0900289**** C0900290 EJT 0 C0900291**** C0900292*E C0900293* C0900294* C0900295* MESSAGES C0900296* -------- C0900297* C0900298* NONE C0900299* C0900300* C0900301* MISC C0900302* ---- C0900303* C0900304* ENTRY REFERENCES C0900305* **************** C0900306* C0900307 ENT FORMT ENTRY POINT TO FORMAT RAW DATA C0900308* C0900309* C0900310* EXTERNAL REFERENCES C0900311* ******************* C0900312* C0900313* C0900314 EXT ALTDEV ALTERNATE DEVICE HANDLER C0900315 EXT* CDRDSM SIM200 CONVERSION TABLE 116*4374C0900316 EXT* CDRD26 CARD CONVERSION (026 HOLL-TO ASCII) 126*4374C0900317 EXT* CDRD29 CARD CONVERSION (029 HOLL-TO ASCII) 126*4374C0900318 EXT* FAULTN DETERMINE FAULT CODE FROM STATUS C0900319 EXT* K1829 CARD READER KERNEL C0900320 EXT LOG LOG ERROR C0900321 EXT MAKEQ DEFINE V FIELD OF USERS REQUEST C0900322* 2 CARDS DELETED   3%2H 126*4374C0900323**** C0900324 EJT 0 C0900325**** C0900326*E C0900327* C0900328* EQUATE REFERENCES C0900329* ***************** C0900330* C0900331* C0900332* CONVERSION EQUATES: C0900333* C0900334 EQU COMBN8($10) COMBINATION OF 8 PUNCH WITH OTHER PUNCH C0900335 EQU LCHAR(1) LEFT CHARACTER POSITION IN TABLE LOOK UP C0900336 EQU ORD0(0) RELATIVE ORDINAL OFFSET POSITION FOR WORD 0 C0900337 EQU ORD1(2) RELATIVE ORDINAL OFFSET POSITION FOR WORD 1 C0900338 EQU ORD2(4) RELATIVE ORDINAL OFFSET POSITION FOR WORD 2 C0900339 EQU ORD3(6) RELATIVE ORDINAL OFFSET POSITION FOR WORD 3 C0900340 EQU ORD4(8) RELATIVE ORDINAL OFFSET POSITION FOR WORD 4 C0900341 EQU OVRFLO($40) OVERFLOW INDICATOR IN COMBINATION ZONE PUNCHESC0900342 EQU OVRFLW($60) OVERFLOW INDICATOR IN COMBINATION PUNCHES C0900343 EQU RCHAR(0) RIGHT CHARACTER POSITION IN TABLE LOOK UP C0900344 EQU ZONE0($10) BASE OFFSET FOR ZONE PUNCH ROW 10 C0900345 EQU ZONE11($20) BASE OFFSET FOR ZONE PUNCH ROW 11 C0900346 EQU ZONE12($30) BASE OFFSET FOR ZONE PUNCH ROW 12 C0900347* C0900348* LOW CORE CONSTANTS: C0900349* C0900350 EQU ADISP($EA) DISPATCHER ADDRESS C0900351 EQU AMONI($F4) MONITOR ADDRESS C0900352 EQU LMASK($13) MASK OF ZERO BITS RIGHT JUSTIFIED C0900353 EQU MASK($3) MASK OF ONE BITS RIGHT JUSTIFIED C0900354 EQU ONEBIT($23) ONE BIT MASK C0900355 EQU ZERBIT($33) ZERO BIT MASK C0900356 EQU ZERO($22) REFERENCE TO ZERO WORD C0900357* C0900358* MISCELLANEOUS EQUATES: C0900359* C0900360 EQU BADST(1) PSEUDO FAULT CODE OFFSET C0900361 EQU CONTST(1) CONTINUATION STATUS C0900362 EQU EOFBIT(5) 7/9 PUNCHES FOR COLUMN 1 C0900363 EQU MOTOPT(4) OFFSET TO MOTION OPTIONS WORD C0900364 EQU NOTUSE(0) NOT USED C0900365* C0900366* OPTION SELECTION BIT EQUATES: C0900367* C0900368 EQU BINASC(8) ASCII REQUEST BIT C0900369 EQU FORMTD(2) FORMATTED REQUEST BIT C0900370 EQU ORIDE($40) OVERRIDE CHECKSUM BIT C  3%2\ C0900371**** C0900372 EJT 0 C0900373**** C0900374*E C0900375* C0900376* C0900377* STATUS BIT POSITION C0900378* ******************* C0900379* C0900380* COMBINED STATUS - ESTAT2 : C0900381* C0900382 EQU READY(1) 00 READY C0900383 EQU BUSY(2) 01 BUSY C0900384 EQU INTRPT(4) 02 INTERRUPT C0900385 EQU DATAV(8) 03 DATA C0900386 EQU EOP($10) 04 EOP C0900387 EQU ALARM($20) 05 ALARM C0900388 EQU LOSTDT($40) 06 LOST DATA C0900389 EQU PROTCT($80) 07 PROTECTED C0900390 EQU NREADY($200) 09 NOT READY C0900391 EQU ADT($400) 10 ADT MODE C0900392 EQU ENDFIL($800) 11 EOF C0900393 EQU HOPPER($1000) 12 HOPPER EMPTY C0900394 EQU STACK($2000) 13 STACKER FULL C0900395 EQU FLFEED($4000) 14 FAILED TO FEED C0900396 EQU JAM($0000) 15 STACKER JAM + $8000 C0900397* C0900398* STATUS BIT POSTION : C0900399* C0900400 EQU BREADY(0) READY BIT C0900401 EQU BBUSY(1) BUSY BIT C0900402 EQU BINTPT(2) INTERRUPT BIT C0900403 EQU BDATA(3) DATA BIT C0900404 EQU BEOP(4) COP BIT C0900405 EQU BALARM(5) ALARM BIT C0900406 EQU BLOSTD(6) LOST DATA BIT C0900407 EQU BPROT(7) PROTECTED C0900408 EQU BNREDY(9) NOT READY BIT C0900409 EQU BADT(10) ADT BIT C0900410 EQU BEOF(11) EOF BIT C0900411 EQU BHOPER(12) HOPPER EMPTY BIT C0900412 EQU BSTACK(13) STACKER FULL BIT C0900413 EQU BFLFED(14) FAIL TO FEED BIT C0900414 EQU BJAM(15) STACKER JAM BIT C0900415**** C0900416 EJT 0 C0900417**** C0900418*E  3%2p C0900419* C0900420* FAULT CODES: C0900421* C0900422 EQU CKSMER(4) FAULT CODE FOR CHECKSUM ERROR C0900423 EQU LENGER(10) FAULT CODE FOR POSITIVE BINARY LENGTH C0900424 EQU NO79ER(12) FAULT CODE FOR NO 7/9 PUNCH IN COLUMN 1 C0900425 EQU PUNCH(8) HOLLERITH ERROR, CARD PUNCHED WRONG C0900426 EQU SEQERR(9) FAULT CODE FOR SEQUENCE ERROR C0900427* C0900428* STATUS FAULT CODES : C0900429* C0900430 EQU FCLOST(1) LOST DATA FAULT CODE C0900431 EQU FCALRM(2) ALARM FAULT CODE C0900432 EQU FCNRDY(14) NOT READY FAULT CODE C0900433 EQU FCSTCK(22) STACKER FULL FAULT CODE C0900434 EQU FCHOPR(23) HOPPER EMPTY FAULT CODE C0900435 EQU FCFEED(24) FALL TO FEED FAULT CODE C0900436 EQU FCJAM(25) STACKER JAM FAULT CODE C0900437 EQU FCDATA(34) DATA, EXPECTED EOP C0900438 EQU FCEOP(35) EOP, EXPECTED NO EOP BEFORE EOP C0900439 EQU FCNEOP(53) NO EOP, EXPECTED EOP C0900440 EQU FCNDAT(54) NO DATA, EXPECTED DATA BEFORE EOP C0900441 EQU FCINT(61) INTERRUPT FAULT CODE C0900442 EQU FCADT(62) ADT FAULT CODE C0900443 EQU FCBUSY(63) BUSY, EXPECTED NOT BUSY AT EOP C0900444 EQU FCNBSY(64) NOT BUSY, EXPECTED BUSY BEFORE EOP C0900445 EQU FCEOF(NOTUSE) EOF FAULT CODE C0900446 EQU FCPROT(NOTUSE) PROTECTED FAULT CODE C0900447* C0900448* SELECTIVE STATUS BIT MASK: C0900449* C0900450 EQU SLMSK1(NREADY+READY) C0900451* INITIAL STATUS SELECTED BITS C0900452 EQU STAT1(ADT+NREADY+LOSTDT+ALARM+EOP+DATAV+INTRPT+BUSY+READY) C0900453 EQU STAT2(JAM+FLFEED+STACK+HOPPER) C0900454 EQU SLMSK2(STAT2+STAT1) C0900455* DATA OR EOP SELECTED BITS C0900456* C0900457* EXPECTED STATUS: C0900458* C0900459 EQU BITS1(READY) C0900460* INITIAL STATUS C0900461 EQU BITS2(EOP+INTRPT+READY) C0900462* EOP CONDITION C0900463 EQU BITS3(DATAV+INTRPT+BUSY+READY) C0900464* DATA CONDITION C0900465**** C0900466 EJT 0 "  3%2 C0900467* ************************ C0900468* * FORMAT RAW CARD DATA * C0900469* ************************ C0900470* C0900471FORMT NUM $FFFF C0900472* 9 CARDS DELETED 126*4374C0900473 RTJ* MOTION EXECUTE MOTION REQUEST, OTHERWISE RETURN C0900474 ENA FORMTD C0900475 AND- ESTAT1,I C0900476 STA- CYCLE,I FOR UNFORMATTED ASCII REQUEST CYCLE IS CLEAREDC0900477 INA -FORMTD C0900478 SAZ FOR20 FORMATTED BINARY OR FORMATTED ASCII C0900479 ENA BINASC C0900480 AND- ESTAT1,I C0900481 SAZ FOR10 C0900482 JMP* ASC10 ASCII REQUEST C0900483FOR10 LDA- ECCOR,I UNFORMATTED BINARY C0900484 SUB- ELSTWD,I C0900485 INA 1 DETERMINE NUMBER OF TIMES TO STORE DATA C0900486FOR20 STA- LENGTH,I C0900487 STA- CHKSUM,I CLEAR CHECKSUM FOR FORMATTED BINARY C0900488 SET A C0900489 STA- NEWCRD,I INDICATES NEW CARD FIRST TIME IN FBIN C0900490 LDA- SEQ,I SAVE EXPECTED SEQUENCE NUMBER C0900491 STA- OLDSEQ,I C0900492 RTJ READB C0900493 LDA- CHKSUM,I C0900494 SAZ FOR40 NO ERROR IN CHECKSUM C0900495 ENA FORMTD+ORIDE C0900496 AND- ESTAT1,I C0900497 INA -FORMTD C0900498 SAN FOR40 NOT FORMATTED BINARY OR OVERRIDE BIT SET C0900499 ENA CKSMER C0900500FOR30 LDQ- OLDSEQ,I RESTORE OLD SEQUENCE NUMBER C0900501 STQ- SEQ,I C0900502 JMP* DAT05 (ERROR EXIT) C0900503FOR40 JMP* ASC70 (DONE) C0900504 EJT 0 C0900505* ****************** C0900506* * MOTION REQUEST * C0900507* ****************** C0900508* C0900509MOTION NUM $FFFF ENTRY C0900510* CHECK FOR MOTION REQUEST C0900511 LDQ- EPTR,I PARAMETER LOCATION C0900512 LDA- (ZERO),Q C0900513 ARS 9 C0900514 AND- MASK+4 V  3%2 C0900515 INA -14 C0900516 SAN MOT30 C0900517 LDA- MOTOPT,Q MOTION REQUEST C0900518 AND- LMASK+3 CLEAR LOWER 4 BITS C0900519MOT10 ALS 4 C0900520 STA- MOTREQ,I MOTION REQUEST C0900521 AND- MASK+3 C0900522 SAZ MOT20 DONE C0900523 INA -4 C0900524 SAN MOT40 C0900525 STA- SEQ,I CLEAR SEQUENCE NUMBER C0900526 JMP* MOT60 LOOK FOR MORE REQUEST C0900527MOT20 JMP CON05 FINISHED REQUEST (DONE) 108*3962C0900528MOT30 JMP* (MOTION) RETURN C0900529MOT40 INA -1 C0900530 SAN MOT60 C0900531MOT50 RTJ* DATA READ CARD C0900532 RTJ EOFCHK CHECK FOR EOF 108*3962C0900533 JMP* MOT50 P+1, IF NO EOF FOUND, SLEW TO EOF C0900534* CONTINUE SEARCH AT P+2, IF EOF FOUND C0900535MOT60 LDA- MOTREQ,I MOTION REQUEST C0900536 JMP* MOT10 LOOK FOR ADDITION FIELDS IN REQUEST C0900537 EJT 0 C0900538* ************************* C0900539* * READ A CARD INTERFACE * C0900540* ************************* C0900541* C0900542DATA NUM $FFFF C0900543 ENA BUFR C0900544 ADD- I ABSOLUTE ADDRESS OF RAW DATA BUFFER C0900545 STA- FWA,I READ ONE CARD C0900546 INA 80 C0900547 STA- LWA,I C0900548* 6 CARDS DELETED 126*3962C0900549 RTJ K1829 READ ONE CARD C0900550* 6 CARDS DELETED 126*3962C0900551 LDA- EREQST,I ERROR FLAG (0= READ OK, 0# BAD READ) C0900552 AND- ONEBIT+14 C0900553 SAZ DAT10 NO ERROR C0900554 RTJ FAULTC DETERMINE STATUS FAULT CODE C0900555DAT05 JMP* CON15 (ERROR EXIT) C0900556DAT10 JMP* (DATA) RETURN C0900557 EJT 0 C0900558* ********************************* C0900559* * HOLLERITH TO ASCII CONVERSION * C0900560* ********************************* C0900561* C0900562ASC10 RTJ* DATA READ A CARD  3%2 C0900563ASC15 ENA BUFR INITIALIZE RAW DATA BUFFER C0900564 ADD- I ABSOLUTE ADDRESS OF RAW DATA BUFFER C0900565ASC20 STA- FWA,I C0900566 TRA Q C0900567 SUB- LWA,I C0900568 SAM ASC40 UNPROCESS DATA REMAINS C0900569 ENA FORMTD C0900570 AND- ESTAT1,I C0900571 SAN ASC30 FORMATED READ (MAX 1 CARD PER REQUEST) C0900572 JMP* ASC10 WORDS PER REQUEST > 40 C0900573ASC30 JMP* ASC65 DONE 113*4254C0900574ASC40 LDQ- (ZERO),Q PICK UP COLUMN OF DATA C0900575 RTJ* CONVRT C0900576 LDQ- CYCLE,I C0900577 SQN ASC50 EVEN NUMBER COLUMNS C0900578 ALS 8 C0900579 EOR- MASK+7 FILL WITH ONES FOR ZERO WORD REQUEST C0900580 LDQ- ECCOR,I C0900581 JMP* ASC60 C0900582ASC50 EOR- LMASK+7 ZERO RIGHT MASK C0900583 LDQ- ECCOR,I C0900584 AND- (ZERO),Q C0900585 RAO- ECCOR,I BUMP WORD TO STORE INTO C0900586ASC60 STA- (ZERO),Q C0900587 LDA- ECCOR,I C0900588 SUB- ELSTWD,I C0900589 SAP ASC65 WORD COUNT IS SATISFIED 113*4254C0900590 ENA 1 C0900591 SUB- CYCLE,I TOGGLE CYCLE FLAG (0 TO 1, OR 1 TO 0) C0900592 STA- CYCLE,I C0900593 LDA- FWA,I C0900594 INA 1 C0900595 JMP* ASC20 PICK UP MORE RAW DATA C0900596ASC65 CLR A CLEAR SEQUENCE SO FORMATTED BINARY 113*4254C0900597 STA- SEQ,I W/ IMBEDDED ASCII CD. GETS ERROR 113*4254C0900598ASC70 JMP* CON05 (DONE) C0900599 EJT 0 C0900600* ************************************** C0900601* * CONVERSION TABLE ENTRY CALCULATION * C0900602* ************************************** C0900603* C0900604* ACCUMULATOR REGISTER -A- C0900605* BITS 15- 7: ILLEGAL MULTIPLE PUNCH FIELD C0900606* BITS 6- 1: OFFSET IN TABLE TO ASCII ENTRY C0900607* BIT 0: 0=RIGHT CHAR, 1=LEFT CHAR C0900608* C0900609CONVRT NUM $FFFF CONVERT 12 BIT H0LL. COLUMN TO ASCII C0900610 CLR A   3%2 C0900611 QLS 7 C0900612 SQP 1 C0900613 INA OVRFLW+COMBN8+ORD0+LCHAR ROW 1 C0900614 QLS 1 C0900615 SQP 1 C0900616 INA OVRFLW+ORD1+RCHAR ROW 2 C0900617 QLS 1 C0900618 SQP 1 C0900619 INA OVRFLW+ORD1+LCHAR ROW 3 C0900620 QLS 1 C0900621 SQP 1 C0900622 INA OVRFLW+ORD2+RCHAR ROW 4 C0900623 QLS 1 C0900624 SQP 1 C0900625 INA OVRFLW+ORD2+LCHAR ROW 5 C0900626 QLS 1 C0900627 SQP 1 C0900628 INA OVRFLW+ORD3+RCHAR ROW 6 C0900629 QLS 1 C0900630 SQP 1 C0900631 INA OVRFLW+ORD3+LCHAR ROW 7 C0900632 QLS 1 C0900633 SQP 1 C0900634 INA COMBN8+ORD4+RCHAR ROW 8 C0900635 QLS 1 C0900636 SQP 1 C0900637 INA OVRFLW+COMBN8+ORD4+LCHAR ROW 9 C0900638 AND =N$FF8F CLEAR LEGAL MULTIPLE 8+X PUNCHES OVERFLOW AREAC0900639 QLS 5 C0900640 SQP 1 C0900641 INA OVRFLO+ZONE12 ROW 12 C0900642 QLS 1 C0900643 SQP 1 C0900644 INA OVRFLO+ZONE11 ROW 11 C0900645 QLS 1 C0900646 SQP 1 C0900647 INA OVRFLO+ZONE0 ROW 0 C0900648 AND- ZERBIT+6 C0900649 CLR Q C0900650 LLS 9 C0900651 SQN CON02 110*3962C0900652 JMP* CON20 NO ILLEGAL PUNCH 108*3962C0900653CON02 LDQ- FWA,I 110*3962C0900654 LDA- (ZERO),Q PICK UP COLUMN 108*3962C0900655 ALS 8 SHIFT TO CHECK FOR 12-0 AND 11-0 108*3962C0900656 INA -6 CHECK FOR 11 - 0 PUNCH 108*3962C0900657 SAN CON03 110*3962C0900658 ENA $7D 11 - 0 PUNCH IS ASCII  3%2$7D 108*3962C0900659 JMP* CON30 110*3962C0900660CON03 INA -4 CHECK FOR 12 - 0 PUNCH 110*3962C0900661 SAN CON04 110*3962C0900662 ENA $7B 12 - 0 PUNCH IS ASCII $7B 108*3962C0900663 JMP* CON30 110*3962C0900664CON04 EQU CON04(*) 110*3962C0900665 RTJ* EOFCHK SEE IF EOF CARD READ, APPLIES TO COLUMN 1 ONLYC0900666 JMP* CON10 NO EOF C0900667CON05 JMP FB05 EOF FOUND DURING HOLL. READ 126*3962C0900668CON10 ENA $07 IS IT 7, 8, 9 PUNCH 126*3962C0900669 EOR- (ZERO),Q 126*3962C0900670 SAN CON11 NO 126*3962C0900671 ENA $04 YES, SET EOT ($04) 126*3962C0900672 JMP* CON30 IN USERS BUFFER. 126*3962C0900673CON11 LDA- MASK+11 IS IT A LACED COLUMN 126*3962C0900674 EOR- (ZERO),Q 126*3962C0900675 SAN CON12 NO 126*3962C0900676 LDA- MASK+7 YES, SET $FF 126*3962C0900677 JMP* CON30 IN USERS BUFFER 126*3962C0900678CON12 ENA PUNCH ILLEGAL PUNCH 126*3962C0900679CON15 JMP ERROR (ERROR EXIT) C0900680CON20 LLS 6 TABLE ORDINAL C0900681 STA* UPLOPO SAVE CHARACTER POSITION INDICATOR 116*4374C0900682* 116*4374C0900683* CHECK FOR SIM200 LU FOR DIFFERENT 116*4374C0900684* CONVERSION TABLE 116*4374C0900685* 116*4374C0900686 LDA- SIM200,I 116*4374C0900687 SUB- ELU,I 116*4374C0900688 SAN CON21 SENSE SIM200 LU NOT SET 126*4374C0900689 LDQ CDRDSM,Q 126*4374C0900690 JMP* CON23 126*4374C0900691* CHECK FOR 026 OR 029 CARD FORMAT 126*4374C0900692CON21 LDA- RMODE,I 126*4374C0900693 SAZ CON22 SENSE 026 126*4374C0900694 LDQ CDRD29,Q 126*4374C0900695 JMP* CON23 126*4374C0900696CON22 LDQ CDRD26,Q 126*4374C0900697CON23 LDA* UPLOPO (RESTORE A) 126*4374C0900698 SAM 1 UPPER CHARACTER C0900699 LLS 8 LOWER CHARACTER C0900700 LLS 8 C0900701 AND- MASK+7 C0900702CON30 EQU CON30(*) 110*3962C0900703 JMP* (CONVRT) RETURN C0900704UPLOPO NUM 0 UPPER/LOWER POSITION INDICATOR 116*4374C0900705 EJT 0 C0900706* ********************* Nj  3%2 C0900707* * END OF FILE CHECK * C0900708* ********************* C0900709* C0900710EOFCHK NUM $FFFF LOOK FOR EOF PUNCHED IN COLUMN 1 C0900711 LDA- EOF,I COMPARE REFERENCE EOF VALUE C0900712 AND- MASK+11 C0900713 EOR- BUFR,I RAW DATA BUFFER ADDRESS C0900714 SAN EOF10 NOT EOF C0900715 LDA- EREQST,I C0900716 AND- ZERBIT+14 CLEAR ERROR BIT OF V FIELD C0900717 EOR- ONEBIT+14 SET ERROR BIT OF V FIELD C0900718 STA- EREQST,I C0900719 LDA- ESTAT2,I C0900720 EOR- ONEBIT+11 SET EOF STATUS BIT C0900721 STA- ESTAT2,I C0900722 LDQ- ECCOR,I 126*4374C0900723 LDA =N$0220 SET EOF CODE ($02) 126*4374C0900724 STA- (ZERO),Q IN USERS BUFFER. 126*4374C0900725 RAO* EOFCHK FOUND EOF C0900726EOF10 JMP* (EOFCHK) RETURN C0900727 EJT 0 C0900728* *************** C0900729* * PACK BINARY * C0900730* *************** C0900731* C0900732READB NUM $FFFF C0900733RB10 RTJ DATA READ CARD C0900734 ENA BUFR FWA OF RAW DATA BUFFER C0900735 ADD- I ABSOLUTE ADDRESS OF RAW DATA BUFFER C0900736RB20 STA- FWA,I REFERENCE POSITION TO FETCH DATA C0900737 SUB- LWA,I C0900738 SAN RB40 MORE RAW DATA IN BUFFER C0900739 STA- NEWCRD,I INDICATE NEW CARD READ C0900740 JMP* RB10 FETCH MORE RAW DATA C0900741RB40 ENA -3 PRESET COUNTER TO ZERO FIRST TIME THRU C0900742RB50 INA 3 INCREMENT COUNTER C0900743 STA- CYCLE,I C0900744 LDQ- FWA,I ADDRESS OF 4 WORD PORTION OF BUFFER C0900745 SAN RB60 C0900746 LDA- (ZERO),Q PACK FIRST WORD C0900747 LDQ- 1,Q C0900748 QLS 4 C0900749 LLS 4 C0900750 JMP* RB80 C0900751RB60 INA -1 C0900752 SAN RB70 C0900753 LDA- 1,Q PACK SECOND WORD C0900754 LDQ- 2,Q c  3%2 C0900755 QLS 4 C0900756 LLS 8 C0900757 JMP* RB80 C0900758RB70 LDA- 3,Q PACK THIRD WORD C0900759 ALS 4 C0900760 LDQ- 2,Q C0900761 LRS 4 C0900762RB80 STA- WORD,I SAVE 16 BIT DATA C0900763 ADD- CHKSUM,I C0900764 STA- CHKSUM,I ACCUMULATE CHECKSUM VALUE C0900765 ENA FORMTD C0900766 AND- ESTAT1,I C0900767 SAZ RB83 C0900768 RTJ* FBIN CHECK FOR FORMAT NON DATA ITEMS C0900769 JMP* RB87 NON DATA (7/9 OR LENGTH WORD) C0900770 LDQ- LENGTH,I C0900771 SQZ RB86 DO NOT SAVE CHECKSUM WORD IN USERS BUFFER C0900772RB83 LDA- ECCOR,I C0900773 SUB- ELSTWD,I C0900774 SAZ RB85 DO NOT SAVE DATA C0900775 LDA- WORD,I C0900776 LDQ- ECCOR,I C0900777 STA- (ZERO),Q C0900778 RAO- ECCOR,I C0900779RB85 LDQ- LENGTH,I C0900780RB86 SQZ RB110 DONE C0900781 SQP RB100 UNFORMATTED ZERO WORD BINARY READ REQUEST C0900782 RAO- LENGTH,I INDICATE DATA ITEM C0900783RB87 LDA- CYCLE,I C0900784 INA -2 C0900785 SAZ RB90 C0900786 JMP* RB50 PACK NEXT WORD C0900787RB90 LDA- FWA,I C0900788 INA 4 C0900789 JMP* RB20 FETCH NEXT 4 WORDS OF RAW DATA C0900790RB100 LDQ- ECCOR,I C0900791 LDA- WORD,I C0900792 AND- LMASK+3 C0900793 EOR- MASK+3 C0900794 STA- (ZERO),Q C0900795RB110 JMP* (READB) RETURN C0900796 EJT 0 C0900797* ******************** C0900798* * FORMATTED BINARY * C0900799* ******************** C0900800* C0900801FBIN NUM $FFFF C0900802 LDA- NEWCRD,I SEE IF NEW CARD READ   3%3 C0900803 SAZ FB25 NEW CARD, NOT FIRST CARD - VERIFY 7/9 PUNCH C0900804 INA 0 CHECK FOR FIRST CARD C0900805 SAN FB10 NO C0900806 ADD- CYCLE,I SEE IF FIRST 16 BITS C0900807 SAN FB20 C0900808 RTJ* EOFCHK CHECK FOR EOF C0900809 JMP* FB30 NO EOF C0900810FB05 JMP* DONE EOF C0900811FB10 RAO* FBIN BUMP RETURN ADDRESS C0900812 JMP* FB90 C0900813FB20 JMP* FB70 EXAMINE SECOND 16 BITS C0900814FB25 ENA 1 C0900815 STA- NEWCRD,I INDICATE DATA ITEMS COMING UP C0900816FB30 LDA- BUFR,I VERIFY 7/9 PUNCH C0900817 AND- MASK+3 MASK OFF 6,7,8,9 PUNCHES C0900818 INA -EOFBIT C0900819 TRA Q C0900820 LDA- ESTAT1,I C0900821 AND- ZERBIT+3 CLEAR ASCII MODE BIT C0900822 SQZ FB35 7/9 PUNCH C0900823 INQ -2 SEE IF OVER RIDE BIT SET C0900824 SQN FB40 ASCII CARD C0900825 LDQ- BUFR+3,I OVERIDE SET, GET 4TH WORD OF BUFFER 128*5275C0900826 SQZ FB40 IF ZERO, A 7,8,9 PUNCH - ASCII 126*4374C0900827 AND- ZERBIT+6 CLEAR OVERIDE BIT IN CASE IT IS SET C0900828 INA ORIDE SET OVERRIDE BIT C0900829FB35 STA- ESTAT1,I INDICATE BINARY CARD C0900830 LDQ- SEQ,I EXPECTED SEQUENCE NUMBER C0900831 LDA- BUFR,I C0900832 ARS 4 C0900833 AND- MASK+7 SEQUENCE NUMBER READ C0900834 SAZ FB60 RESEQUENCE C0900835 EAQ Q C0900836 SQZ FB60 CARD IN SEQUENCE C0900837 STA- SEQ,I SET SEQ COUNTER FOR READ THRU C0900838 ENA SEQERR SEQ ERROR C0900839 JMP* ERROR C0900840FB40 LDQ- NEWCRD,I MINUS ZERO INDICATES FIRST CARD C0900841 TCQ Q C0900842 SQZ FB50 FIRST TIME THRU C0900843 ENA NO79ER NOT 7/9 PUNCH AFTER INITIAL CARD IN REQUEST C0900844 JMP* ERROR C0900845FB50 INA BINASC SET ASCII BIT C0900846 STA- ESTAT1,I C0900847 JMP ASC15 PROCESS AS ASCII REQUEST (ALREADY READ CARD) C0900848FB60 INA 1 C0900849 AND- MASK+7 C0900850 STA- SEQ,I NEXT EXPECTED SEQ VALUY  3%3$E C0900851 JMP* FB90 C0900852FB70 STA- NEWCRD,I ALLOW NORMAL PROCESSING TO OCCUR C0900853 LDA- WORD,I LENGTH WORD C0900854 SAM FB80 C0900855 ENA LENGER C0900856 JMP FOR30 RESET SEQUENCE NUMBER BEFORE REPORTING ERROR C0900857FB80 STA- LENGTH,I LOGICAL RECORD SIZE IN WORDS C0900858FB90 JMP* (FBIN) RETURN C0900859 EJT 0 C0900860* ************** C0900861* * ERROR EXIT * C0900862* ************** C0900863* C0900864ERROR STA- FLTCOD,I SAVE FAULT CODE C0900865 LDA- EREQST,I C0900866 AND- ZERBIT+14 CLEAR ERROR BIT IF SET C0900867 EOR- LMASK+13 TOGGLE BITS 14,15 TO SHOW ERROR AND FINISHED C0900868 STA- EREQST,I C0900869 RTJ MAKEQ SET V FIELD C0900870 LDA- FLTCOD,I C0900871 LDQ- ELU,I C0900872 QLS 6 C0900873 EAQ Q ADD ERROR CODE TO LOGICAL UNIT C0900874 RTJ LOG LOG ERROR C0900875 JMP ALTDEV TRANSFER TO ALTERNATE DEVICE HANDLER C0900876 SPC 5 C0900877* ********** C0900878* * RETURN * C0900879* ********** C0900880* C0900881DONE JMP (FORMT) RETURN C0900882 EJT 0 C0900883* ********************* C0900884* * STATUS FAULT CODE * C0900885* ********************* C0900886* C0900887FAULTC NUM $FFFF C0900888 LDA- FLTCOD,I CHECK FOR STATUS FAULT CODE C0900889 SAZ FA10 TIME OUT C0900890 TRA Q C0900891 INQ -CONTST-BADST STATUS FAULT CODE BIASED BY BADST C0900892 SQM FA30 INITIATOR STATUS BAD C0900893 SQZ FA20 CONTINUATOR STATUS BAD C0900894FA10 JMP* FA60 NOT BAD STATUS C0900895FA20 LDQ- ADTFW,I SEE IF ALL 80 COLUMNS READ 126*4374C0900896 TCQ Q 126*4374C0900897 ADQ- ADTLW,I 126*4374C0900898 SQZ FA30 EOP BAD STATUS   3%38 C0900899 ENQ 1 DATA BAD STATUS C0900900FA30 INQ CONTST C0900901* Q = 0, INITIATOR CALL C0900902* Q = 1, EOP C0900903* Q = 2, DATA (COL 1-80) C0900904 LDA- ESTAT2,I COMBINE STATUS WORD C0900905 AND* SELMSK,Q SELECT BITS TO BE EXAMINED C0900906 EOR* BITS,Q MASK BITS THAT SHOULD BE SET C0900907 STA* BADBIT C0900908 RTJ* HERE ABSOLUTIZE PARAMETER POINTERS 126*4374C0900909HERE NUM 0 126*4374C0900910 LDA* HERE 126*4374C0900911 INA BADBIT-HERE 126*4374C0900912 STA* ABDBIT 126*4374C0900913 INA TABLE-BADBIT 126*4374C0900914 STA* ATABLE 126*4374C0900915 RTJ FAULTN SEARCH FOR FAULT CODE C0900916ABDBIT NUM 0 ABS ADDR OF STATUS WORD 126*4374C0900917ATABLE NUM 0 ABS ADDR OF ERROR BIT AND CODE TABLE 126*4374C0900918 LDQ- ADTFW,I SEE IF ALL 80 COLUMNS READ 126*4374C0900919 TCQ Q 126*4374C0900920 ADQ- ADTLW,I 126*4374C0900921 SQZ FA60 FAULT CORRECT FOR EOP CONDITION C0900922 TRA Q FAULT CODE FROM TABLE LOOK UP C0900923 INQ -FCBUSY C0900924 SQN FA40 C0900925 ENA FCNBSY C.R. NOT BUSY C0900926 JMP* FA60 C0900927FA40 INQ -FCDATA+FCBUSY C0900928 SQN FA50 C0900929 ENA FCNDAT EXPECTED DATA BEFORE EOP C0900930 JMP* FA60 C0900931FA50 INQ -FCNEOP+FCDATA C0900932 SQN FA60 C0900933 ENA FCEOP EXPECTED NO EOP BEFORE EOP C0900934FA60 JMP* (FAULTC) RETURN C0900935 EJT 0 C0900936BADBIT BSS BADBIT BAD BIT STATUS INDICATOR C0900937TABLE VFD X8/FCLOST,X8/BLOSTD LOST DATA 114*4106C0900938 VFD X8/FCJAM,X8/BJAM STACKER AREA JAM C0900939 VFD X8/FCFEED,X8/BFLFED FEED FAILURE C0900940 VFD X8/FCSTCK,X8/BSTACK STACKER FULL C0900941 VFD X8/FCHOPR,X8/BHOPER HOPPER EMPTY C0900942 VFD X8/FCALRM,X8/BALARM ALARM C0900943 VFD X8/FCDATA,X8/BDATA DATA C0900944 VFD X8/FCNEOP,X8/BEOP NO EOP C0900945 VFD X8/FCBUSY,X8/BBUSY BUSY C0900946 VFD X8/FCINT,X8/BINTPT INTERRUPT>  3%3L C0900947 VFD X8/FCADT,X8/BADT ADT C0900948 VFD X8/FCNRDY,X8/BREADY NOT READY 114*4106C0900949 BZS (1) END OF TABLE C0900950SELMSK ADC SLMSK1,(SLMSK2),(SLMSK2) INIT.,EOP, DATA SELECTIVE BITS C0900951* PLUS JAM STATUS FOR EOP AND DATA C0900952BITS ADC BITS1,BITS2,BITS3 INIT.,EOP, DATA EXPECTED BITS C0900953 END C0900954 NAM FAULTN C10 A DRVR CCS 3.0 SL-149C1000001* 1829-3 CARD READER FAULT CODE ANCILLARY ROUTINE C1000002* CREDIT COLLECTION SYSTEM VERSION 3.0 C1000003* DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA C1000004* COPYRIGHT CONTROL DATA CORPORATION 1979 C1000005* C1000006* C1000007*** C1000008*E C1000009* C1000010* C1000011* ******************* C1000012* * FAULTN FUNCTION * C1000013* ******************* C1000014* C1000015* C1000016* C1000017* C1000018* C1000019* FUNCTION C1000020* -------- C1000021* RETURNS FAULT CODE C1000022* C1000023* C1000024* GENERAL DESCRIPTION C1000025* ------------------- C1000026* THE ENTRY CLOSES TO THE TOP OF THE FAULT TABLE THAT C1000027* MATCHES A BIT SET IN THE ERROR STATUS WORD IS SELECT- C1000028* ED. THE FAULT CODE FOR THIS ENTRY IS CONSIDERED THE C1000029* MOST IMPORTANT. C1000030* C1000031* C1000032* INPUT REQUIREMENTS C1000033* ------------------ C1000034* CALLING SEQUENCE C1000035* INDEX = FAULTN (STATUS,TABLE) C1000036* WHERE C1000037* STATUS IS STATUS WORD FROM KERNEL C1000038* TABLE IS COMPARSION FAULT TABLE C1000039* INDEX IS ERROR INDEX C1000040* "#  3%3` C1000041* FAULT TABLE - BITS 15-8, FAULT CODE NUMBER C1000042* BITS 7-0, BIT POSITION CORRESPONDING C1000043* TO ERROR STATUS WORD. C1000044* ENTRIES ARE ORDERED TOP TO BOTTOM BY C1000045* MOST IMPORTANT TO LEAST IMPORTANT C1000046* FAULT CODE THAT SHOULD BE RETURNED. C1000047* TABLE ENDS WITH ZERO WORD. C1000048**** C1000049 EJT 0 C1000050**** C1000051*E C1000052* C1000053* C1000054* OUTPUT C1000055* ------ C1000056* A-REGISTAR = ZERO, ENTRY NOT FOUND IN FAULT TABLE C1000057* POSTIVE, FAULT CODE C1000058* Q-REGISTAR = SAME VALUE AS ON ENTRY C1000059* FAULT TABLE = NOT CHANGED C1000060* C1000061* C1000062* ENTRY/EXIT C1000063* ---------- C1000064* ENTRY - ONE ENTRY. IT IS AT START OF SUBROUTINE C1000065* EXIT - ONE EXIT. IT IS LAST EXECUTEABLE STATEMENT C1000066* C1000067* C1000068* FLOW C1000069* ---- C1000070* THE FAULT TABLE IS SEARCHED STARTING AT THE TOP OF C1000071* TABLE. THE BIT VALUE FROM THE TABLE SELECTS WHICH C1000072* BIT FROM ERROR WORD IS TO BE EXAMINED. IF THAT BIT C1000073* IS SET IN THE ERROR STATUS WORD, THEN THE MOST C1000074* IMPORTANT ENTRY FROM THE TABLE HAS BEEN FOUND. THE C1000075* FAULT CODE IS EXTRACTED FROM THIS ENTRY AND RETURNED. C1000076* C1000077* C1000078* SUBROUTINES C1000079* ----------- C1000080* 126*4303C1000081* 6 CARDS DELETED 126*4303C1000082* 126*4303C1000083* THE CALLS TO CRPREP AND CRPKUP HAVE BEEN REMOVED AS THE 126*4303C1000084* ROUTINE THAT CALLS THIS ONE HAS ALREADY ABSOLUTIZED THE 126*4303C1000085* PARAMETER POINTERS. 126*4303C1000086* 126*4303C1000087**** C1000088 EJT 0 f\  3%3t C1000089**** C1000090*E C1000091* C1000092* C1000093* PARAMETERS C1000094* ---------- C1000095* THE FAULT TABLE IS THE ONLY PARAMETER USED C1000096* C1000097* C1000098* MESSAGES C1000099* -------- C1000100* THERE ARE NO MESSAGES C1000101* C1000102* C1000103* MISC C1000104* ---- C1000105* THE MP17 DOES NOT PROVIDE A HARDWARE INSTRUCTION AT C1000106* THE MACRO LEVEL THAT ALLOWS A SHIFT COUNT TO BE C1000107* INDICATED BY SOME REGISTER. THIS SUBROUTINE USES C1000108* INSTRUCTION MODIFICATION TO INSERT THE SHIFT COUNT C1000109* INTO THE SHIFT INSTRUCTION. BY USING THIS TECHNIQUE, C1000110* CONSIDERABLE CORE IS SAVED IN PROGRAMMING C1000111* 126*4303C1000112* ENTRY POINTS C1000113* ************ C1000114 ENT FAULTN ENTRY C1000115**** C1000116 EJT 0 C1000117FAULTN NUM $FFFF ENTRY POINT C1000118 STQ* SAVEQ SAVE Q REGISTER C1000119 LDQ* (FAULTN) PICK UP ADDRESS OF STATUS WORD 126*4303C1000120 RAO* FAULTN INCREMENT RETURN ADDRESS 126*4303C1000121 LDA* (ZERO),Q C1000122 STA* ERRWRD SAVE STATUS VALUE C1000123 LDQ* (FAULTN) PICK UP TABLE ADDRESS 126*4303C1000124 RAO* FAULTN INCREMENT RETURN ADDRESS 126*4303C1000125FALT10 LDA* (ZERO),Q ENTRY FROM FAULT TABLE C1000126 SAZ FALT30 DONE WITH SEARCH - NO ENTRY FOUND C1000127 AND* MASKFF BIT POSITION C1000128 TCA A C1000129 INA 15 SHIFT COUNT C1000130 EOR* ALS ALS INSTRUCTION C1000131 STA* INSTR C1000132 LDA* ERRWRD C1000133INSTR ALS *-* C1000134 SAM FALT20 EXIT ON FIRST MATCH C1000135 INQ 1 C1000136 JMP* FALT10   3%3 C1000137FALT20 LDA* (ZERO),Q EXTRACT FAULT NUMBER C1000138 ALS 8 C1000139 AND* MASKFF C1000140FALT30 LDQ* SAVEQ RESTORE Q REGISTER BEFORE LEAVING C1000141 JMP* (FAULTN) RETURN C1000142ALS ALS 0 ALS REFERENCE WORD C1000143ERRWRD BSS ERRWRD ERROR STATUS WORD C1000144MASKFF NUM $FF MASK WORD C1000145SAVEQ BSS SAVEQ C1000146ZERO BZS ZERO ZERO C1000147 END C1000148 NAM ESTAT C11 A DRVR CCS 3.0 SL-149C1100001* 1829-3 CARD READER COMBINED RAW STATUS ANCILLARY ROUTINE C1100002* CREDIT COLLECTION SYSTEM VERSION 3.0 C1100003* DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA C1100004* COPYRIGHT CONTROL DATA CORPORATION 1979 C1100005* C1100006* C1100007* *********************** C1100008* * COMBINED RAW STATUS * C1100009* *********************** C1100010* C1100011* C1100012* ENTRY: C1100013 ENT ESTAT C1100014* C1100015* C1100016* INPUT: C1100017* A = DIRECTOR STATUS 2 C1100018* Q = OFFSET TO PROPER RAW STATUS C1100019* I = PHYSTAB ADDRESS C1100020* C1100021* OUTPUT: C1100022* COMBINED STATUS 1 AND 2 C1100023* C1100024* C1100025* EQUATES: C1100026 EQU RAWST1(21) INIT, CONT., AND TIME OUT STATUS C1100027 EQU ESTAT2(12) DEVICE STATUS C1100028 EQU ZERBIT($33) ZERO BIT MASK C1100029* C1100030* C1100031* C1100032ESTAT NUM $FFFF COMBINE STATUS 1 AND STATUS 2 C1100033 LDQ- RAWST1,B C1100034 QLS 4 BUTT STATUS 1 TO STATUS 2 Q/A C1100035 LLS 13 C1100036 QRS 2 REMOVE UNSED BITS 3 AN  3%3D 4 IN STATUS 2 C1100037 LRS 1 C1100038 AND- ZERBIT+11 CLEAR EOF BIT C1100039 STA- ESTAT2,I C1100040 JMP* (ESTAT) C1100041 END C1100042 NAM D1860 C13 A DRVR CCS 3.0 SL-149C1300001* LCTT KERNEL DRIVER C1300002* CREDIT COLLECTION SYSTEM VERSION 3.0 C1300003* DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA C1300004* COPYRIGHT CONTROL DATA CORPORATION 1979 C1300005 SPC 3 C1300006**** C1300007*E C1300008* LCTT DRIVER C1300009* *********** C1300010* C1300011* FUNCTION C1300012* -------- C1300013* C1300014* THE KERNEL DRIVER PROCESSES REQUESTS FOR THE LCTT C1300015* MAG TAPE. C1300016* C1300017* GENERAL DESCRIPTION C1300018* ------------------- C1300019* C1300020* THE KERNEL DRIVER IS THE INTERFACE OR "FRONT END" C1300021* BETWEEN THE OPERATING SYSTEM AND THE KERNEL FOR THE C1300022* LCTT MAG TAPE. SPECIFICALLY, THE DRIVER HANDLES FIND C1300023* NEXT REQUEST, COMPLETE REQUEST, LOGGING OF ERRORS C1300024* IN ENGINEERING FILE, CALLING OF ALTERNATE DEVICE C1300025* HANDLER IF ERROR AND NON DIAGNOSTIC LOGICAL UNIT. C1300026* C1300027* C1300028* INPUT REQUIREMENTS C1300029* ------------------ C1300030* C1300031* (Q) REGISTER = ADDRESS OF PHYSICAL DEVICE TABLE. C1300032* C1300033* C1300034* OUTPUT C1300035* ------ C1300036* C1300037* 1. CALLS MAKEQ TO SET V FIELD IN REQUEST. C1300038* 2. CALLS LOG TO OUTPUT LU AND FAULT CODE. C1300039* C1300040* C1300041* ENTRY/EXIT C1300042* ----------   3%3 C1300043* C1300044* 1. ENTRY - THE ENTRY POINT (I1860) IS SCHEDULED C1300045* BY THE REQUEST PROCESSOR OR BY THE REWIND CK C1300046* PROGRAM. Q REGISTER CONTAINES THE ADDRESS OF C1300047* THE PDT WITH THE REQUEST OR THE ONE IN WHICH C1300048* THE REWIND HAS COMPLETED. BIT 6 OF ESTAT1 C1300049* MEANS REWIND-IN-PROGRESS, BIT 5 OF ESTAT1 C1300050* MEANS MOTION REQUEST. THESE ARE FLAGS USED BY C1300051* THE DRIVER. C1300052* 2. EXIT - DRIVER EXITS TO DISPATCHER WHEN THERE C1300053* ARE NO FURTHER REQUESTS TO PROCESS. C1300054* C1300055* FLOW C1300056* ---- C1300057* C1300058* 1. PDT ADDRESS SAVED IN I. C1300059* 2. CHECK IF DRIVER IS BUSY, IF IT IS RETURN TO C1300060* DISPATCHER. IF NOT BUSY SET DRIVER BUSY. C1300061* 3. FIND NEXT REQUEST, IF NONE CHECK NEXT PDT C1300062* AND LOOP UNTIL NO REQUESTS IN ANY OF THE C1300063* PDT'S. PDT'S THAT HAVE A REWIND IN PROGRESS C1300064* WILL BE SKIPPED UNTIL REWIND COMPLETED. IF C1300065* MOTION BIT SET IT INDICATES THAT THE DRIVER C1300066* WAS SCHEDULED BY THE REWIND CHECK PROGRAM C1300067* AND CONTROL IS GIVEN TO THE KERNEL TO C1300068* COMPLETE THE MOTION REQUEST. C1300069* 4. CALLS KERNEL WHEN REQUEST FOUND. ON RETURN C1300070* CALLS MAKEQ, IF NO ERROR OR ERROR AND DLU C1300071* IT COMPLETES THE REQUEST. IF ERROR AND NON C1300072* DLU IT CALLS LOG, SCHEDULES ALTERNATE DEVICE C1300073* HANDLER THEN CHECKS NEXT PDT FOR REQUEST. C1300074* C1300075* C1300076* C1300077* SUBROUTINES C1300078* ----------- C1300079* C1300080* FNR - FIND NEXT REQUEST C1300081* K1860 - LCTT KERNEL C1300082* MAKEQ - DEFINE V FIELD C1300083* ALTDEV - ALTERNATE DEVICE HANDLER C1300084* LOG - LOG ERROR IN ENGINEERING FILE C1300085* COMPRQ - COMPLETE REQUEST C1300086* C1300087* C1300088* PARAMETERS C1300089* ---------- C1300090* Ә  3%3 C1300091* ENTRY POINTS C1300092* ------------ C1300093* C1300094 ENT I1860 INITIATOR ENTRY FOR MSOS/RTOS C1300095 ENT ILCTT INITIATOR ENTRY FOR ODS C1300096 ENT INBSY REENTRY POINT FOR REWIND COMPLETE C1300097 ENT ISPT CURRENT PDT ADDRESS (BUSY FLAG) C1300098 ENT URW NUMBER OF UNITS REWINDING C1300099* C1300100* EXTERNAL REFERENCES C1300101* ------------------- C1300102* C1300103 EXT ALTDEV ALTERNATE DEVICE HANDLER C1300104 EXT* CL20 KERNEL SUB CONTINUATOR C1300105 EXT C1860 KERNEL CONTINUATOR C1300106 EXT E1860 KERNEL DIAGNOSTIC TIME OUT C1300107 EXT* K1860 KERNEL INITIAL ENTRY C1300108 EXT LOG ENGINEERING ERROR LOGGER C1300109 EXT MAKEQ MSOS ROUTINE C1300110 EXT MAS300 MASS STORAGE DRIVER C1300111 EXT REWCKL REWIND CHECK PROGRAM C1300112 EXT* REWSCD REWIND SCHEDULER ADDRESS C1300113* C1300114* EQUATE REFERENCES C1300115* ----------------- C1300116* C1300117* LOW CORE EQUATES C1300118* C1300119 EQU COMPRQ($B6) COMPLETE REQUEST ADDRESS C1300120 EQU DISP($EA) DISPATCHER ADDRESS C1300121 EQU FNR($B5) FIND NEXT REQUEST ADDRESS C1300122 EQU LOWBTS($3) LOW ORDER BIT MASK C1300123 EQU ONEBIT($23) SINGLE BIT MASK C1300124 EQU ZERO($22) ZERO WORD CONSTANT C1300125 EQU ZROBIT($33) BIT EXCLUSION MASK C1300126* C1300127 EJT C1300128* C1300129* C1300130* C1300131* PHYSICAL DEVICE TABLE (PDT) EQUATES C1300132* C1300133 EQU ELVL(0) 0 SCHEDULER CALL C1300134 EQU EDIN(1) 1 INITIATOR ADDRESS C1300135 EQU EDCN(2) 2 CONTINUATOR ADDRESS C1300136 EQU EDPGM(3) 3 ERROR ADDRESS (TIME OUT) C1300137 EQU EDCLK(4) 4 DIAGNOSTIC CLOCK C1300138 EQU ELU(5) 5 LOGICAL UNIT 9-  3%3 C1300139 EQU EPTR(6) 6 REQUEST PARAMETER LIST ADDRESS C1300140 EQU EWES(7) 7 EQUIPTMENT CODE FOR SAMPLE C1300141 EQU EREQST(8) 8 REQUEST STATUS C1300142 EQU ESTAT1(9) 9 DRIVER STATUS C1300143 EQU ECCOR(10) 10 NEXT LOCATION FOR DATA C1300144 EQU ELSTWD(11) 11 LAST LOCATION +1 FOR DATA C1300145 EQU ESTAT2(12) 12 LAST EQUIPTMENT STATUS C1300146 EQU MASLGN(13) 13 DRIVER LENGTH IF MASS MEMORY C1300147 EQU MASSEC(14) 14 MASS MEMORY ADDRESS OF DRIVER C1300148 EQU RETURN(15) 15 FNR RETURN ADDRESS C1300149 EQU FLTCOD(16) 16 FAULT CODE IF REQUEST ERROR C1300150 EQU DIAGLU(17) 17 DIAGNOSTIC LOGICAL UNIT C1300151 EQU GHOSTI(18) 18 COUNT OF GHOST INTERRUPTS C1300152 EQU MICROI(19) 19 MICRO INTERRUPT NUMBER C1300153 EQU TIMOUT(20) 20 INTERRUPT TIMEOUT VALUE C1300154 EQU SENTRY(21) 21 STATUS AFTER INITIAL ENTRY C1300155 EQU SINTER(22) 22 STATUS AFTER INTERRUPT C1300156 EQU STIMEO(23) 23 STATUS AFTER INTERRUPT TIMEOUT C1300157 EQU UNTMOD(24) 24 UNIT AND MODE SELECT C1300158 EQU ETEMP1(25) 25 TEMPORARY STORAGE C1300159 EQU HAFWRD(26) 26 HALF WORD FLAG C1300160 EQU ADTCW(27) 27 ADT TABLE CONTROL WORD C1300161 EQU ADTFW(28) 28 ADT TABLE FWA-1 C1300162 EQU ADTLW(29) 29 ADT TABLE LWA C1300163 EQU MFLG(30) 30 REQUEST TYPE FLAG(ALSO ADT DUMMY) C1300164 EQU RRETAD(31) 31 RECOVERY RETURN ADDRESS C1300165 EQU RCKSUM(32) 32 RECOVERY CHECKSUM C1300166 EQU RCNTFG(33) 33 RECOVERY COUNT FLAG C1300167 EQU RFLAG(34) 34 RECOVERY FLAG, BIT15=1=NO RECOVERY C1300168 EQU QSTCOD(35) 35 REQUEST CODE C1300169 EQU QSTWD4(36) 36 WORD 4 OF REQUEST C1300170 EQU PHSREC(37) 37 MAX PHYSICAL RECORD SIZE C1300171 EQU ABUFF(38) 38 PACK/UNPACK BUFFER ADDRESS C1300172 EQU ELINK(39) 39 PDT THREAD C1300173* C1300174* MESSAGES C1300175* -------- C1300176* C1300177* ALTERNATE DEVICE HANDLER WILL PRINT FAULT C1300178* CODE FOR NON-DIAGNOSTIC LOGICAL UNITS. C1300179* C1300180* C1300181* MISCELLANEOUS C1300182* ------------- C1300183* C1300184* C1300185* LCTT HARDWARE REGISTER DEFINITIONS C1300186* "  3%3 C1300187* *************************************** C1300188* * FUNCTION AND CONDITION BIT REGISTER * C1300189* *************************************** C1300190* C1300191* BIT ASSIGNMENT C1300192* C1300193* 0 FUNCTION C1300194* 1 FUNCTION C1300195* 2 FUNCTION C1300196* 3 FUNCTION C1300197* C1300198* 4 SKIP FIRST BYTE C1300199* 5 SKIP LAST BYTE C1300200* 6 NOT USED C1300201* 7 NOT USED C1300202* C1300203* 8 DENSITY - FORM = BIT8BIT9 = XXX BPI C1300204* 9 DENSITY - 01 = 800, 10 = 556, 11 = 200 BPI C1300205* 10 PARITY - 1 = EVEN, 0 = ODD C1300206* 11 TRACK - 1 = 7 TRACK, 0 = 9 TRACK C1300207* C1300208* 12 UNIT NUMBER C1300209* 13 UNIT NUMBER C1300210* 14 NOT USED C1300211* 15 NOT USED C1300212* C1300213* *************************** C1300214* * HARDWARE FUNCTION CODES * C1300215* *************************** C1300216* CODE FUNCTION C1300217* C1300218* 0 NOT USED, RESULTS IN PROGRAM ERROR C1300219* 1 READ C1300220* 2 WRITE C1300221* 3 ERASE C1300222* 4 BACKSPACE C1300223* 5 REWIND C1300224* 6 REWIND AND UNLOAD C1300225* 7 WRITE TAPE MARK C1300226* 8 SELECT C1300227* 9 RECOVERY READ C1300228* A CONTROLLED BACKSPACE C1300229* B DIAGNOSTIC CODE C1300230* C DIAGNOSTIC CODE C1300231* D DIAGNOSTIC CODE C1300232* E DIAGNOSTIC CODE C1300233* F DIAGNOSTIC CODE C1300234* <  3%4 C1300235* **************************** C1300236* * HARDWARE STATUS REGISTER * C1300237* **************************** C1300238* C1300239* BIT ASSIGNMENT C1300240* C1300241* 0 INOP - DURING SELECTION C1300242* 1 BUSY C1300243* 2 REWINDING C1300244* 3 READ AFTER WRITE COMMAND C1300245* C1300246* 4 WRITE LOCKOUT C1300247* 5 NOT USED C1300248* 6 PROGRAM ERROR C1300249* 7 HALF WORD ON READ C1300250* C1300251* 8 SHORT BLOCK C1300252* 9 TIME OUT C1300253* 10 DROUPOUT/PICKUP C1300254* 11 OVERLOAD C1300255* C1300256* 12 INOP - DURING EXECUTION C1300257* 13 DATA ERROR C1300258* 14 TAPE MARK C1300259* 15 EOT C1300260* C1300261* C1300262* **************************** C1300263* * ESTAT2 (COMPOSED STATUS) * C1300264* **************************** C1300265* C1300266* BIT ASSIGNMENT C1300267* C1300268* 0 READY C1300269* 1 BUSY C1300270* 2 RECOVERED ERROR C1300271* 3 IRRECOVERABLE ERROR C1300272* C1300273* 4 NOT USED C1300274* 5 ALARM C1300275* 6 LOST DATA C1300276* 7 NOT USED C1300277* C1300278* 8 PARITY ERROR C1300279* 9 END OF TAPE C1300280* 10 NOISE RECORD BYPASSED C1300281* 11 FILE MARK C1300282* <  3%4 C1300283* 12 556 BPI C1300284* 13 800 BBI C1300285* 14 SEVEN TRACK C1300286* 15 WRITE ENABLE C1300287* C1300288**** C1300289* C1300290* C1300291* C1300292* ENTRY FROM MASDRV/DBLDRV C1300293* ABSOLUTIZE PROGRAM RELOCATABLE ADDRESSES C1300294* C1300295MASTAP STQ- I SAVE PHYSTAB ADDRESS C1300296 STQ* STRPDT SAVE STARTING PDT C1300297 STA* LOCN SAVE LOCATION OF DRIVER C1300298MAS05 LDA* LOCN C1300299 TRA Q C1300300 INQ I1860-MASTAP C1300301 STQ- 1,I STORE INITIATOR ADDRESS IN PDT C1300302 TRA Q 113*4209C1300303 LDA =XC1860 113*4209C1300304 SUB =XMASTAP 113*4209C1300305 AAQ A 113*4209C1300306 STA- 2,I STORE CONTINUATOR ADDRESS IN PDT 113*4209C1300307 LDA =XE1860 113*4209C1300308 SUB =XMASTAP 113*4209C1300309 AAQ A 113*4209C1300310 STA- 3,I STORE TIMEOUT ADDRESS IN PDT 113*4209C1300311 LDA =XREWCKL SET REWIND SCHEDULER ADDRESS 113*4209C1300312 SUB =XMASTAP 113*4209C1300313 AAQ A 113*4209C1300314 STA REWSCD 113*4209C1300315 LDA- ELINK,I NEXT PDT - START PDT C1300316 TRA Q C1300317 SUB* STRPDT C1300318 SAZ I1860 SKIP IF AT START C1300319 STQ- I C1300320 JMP* MAS05 C1300321* C1300322LOCN NUM 0 LOCATION OF DRIVER C1300323STRPDT NUM 0 STARTING PDT C1300324URW NUM 0 UNITS REWINDING COUNTER C1300325 EJT C1300326 EJT C1300327* ********* C1300328* * DLCTT * C1300329* ********* C1300330*  3%4( C1300331* ENTERED BY REQUEST PROCESSOR AND SCHEDULED BY REWIND CHECK PROGRAM C1300332* WHEN UNIT IS REWOUND C1300333* C1300334* FUNCTION: C1300335* FIND NEXT REQUEST AND CALL KERNEL, UPON RETURN FROM KERNEL C1300336* IF ERROR AND NOT DLU, LOG IT AND CALL ALT DEV HANDLER. IF C1300337* NO ERROR COMPLETE THE REQUEST. C1300338* IF MULTI PDT SEARCH ALL TABLES FOR REQUESTS BEFORE GIVING UP C1300339* CONTROL TO DISPATCHER. C1300340* C1300341I1860 LDA- 0 CHECK IF KERNEL BUSY C1300342 EQU ILCTT(I1860) DEFINE ENTRY FOR ODS C1300343ISPT NUM 0 ADDRESS OF CURRENT PDT C1300344 SAZ INBSY NOT BUSY C1300345 JMP- (DISP) YES, BUSY-GO AWAY C1300346* C1300347INBSY STQ* ISPT SET BUSY WITH CURRENT PDT ADDRESS C1300348 STQ- I C1300349 LDA- (ZERO),Q C1300350 STA* SADEV+1 SET REWIND SCHEDULAR PRIORITY C1300351 LDA- ESTAT1,I CHECK IF REWIND IN PROGRESS C1300352 AND- ONEBIT+6 C1300353 SAZ IFNR NO, FIND NEXT REQUEST C1300354 CLF- ESTAT1,6,1,I CLEAR REWIND BIT 135*5555C1300355 LDA* URW DECREMENT UNIT REWINDING COUNTER C1300356 SAZ 1 C1300357 INA -1 C1300358 STA* URW C1300359 JMP CL20 COMPLETE MOTION REQUEST C1300360* C1300361IFNR RTJ- (FNR) FIND NEXT REQUEST C1300362 JMP* INPT NO REQUEST THIS PDT C1300363 LDQ- I FOUND REQUEST, UPDATE CURRENT PHYSTAB POINTER C1300364 STQ* ISPT C1300365 RTJ K1860 CALL KERNEL C1300366 STA* IERR SAVE ERROR FLAG C1300367 LDA- ESTAT1,I CHECK IF REWIND IN PROGRESS C1300368 AND- ONEBIT+6 C1300369 SAZ INF10 NO, COMPLETE REQUEST 113*4087C1300370 LDA* IERR YES, DID AN ERROR OCCUR C1300371 SAN INF10 YES, COMPLETE REQUEST 113*4087C1300372 JMP* INPT NO, SET NEXT PDT C1300373* 6 CARDS DELETED 113*4087C1300374INF10 RTJ MAKEQ C1300375 CLF- ESTAT1,9,1,I CLEAR 'SEARCH REVERSE' (BSF) FLAG 135*5555C1300376 LDA- RFLAG,I C1300377 AND- LOWBTS+1 NOISE REC OR RECOVERY TO LOG C1300378 ADD* IERR GET ERROR FLAG  3%4< C1300379 SAN ILOG C1300380 JMP* ICRQ NO ERROR, COMPLETE REQUEST C1300381ILOG LDA- ELU,I CURRENT LOGICAL UNIT C1300382 EOR- DIAGLU,I CHECK IF DIAGNOSTIC LOGICAL UNIT C1300383 SAZ ICRQ YES, COMPLETE REQUEST C1300384 LDQ- ELU,I GET LU NUMBER C1300385 QLS 6 POSITION C1300386 ADQ- FLTCOD,I ADD FAULT CODE C1300387 RTJ LOG LOG THE ERROR C1300388 LDA- RFLAG,I CLEAR RECOVERY FLAGS C1300389 AND- ONEBIT+15 C1300390 STA- RFLAG,I C1300391 LDA* IERR ERROR ENCOUNTERED C1300392 SAZ ICRQ NO, COMPLETE REQUEST C1300393SADEV SCHDLE ALTDEV,0,,1 C1300394 JMP* INPT CHECK NEXT PDT C1300395ICRQ RTJ- (COMPRQ) COMPLETE THE REQUEST C1300396 JMP* IFNR FIND NEXT REQUEST C1300397* C1300398INPT LDA- ELINK,I GET NEXT PDT ADDRESS C1300399 STA- I C1300400 EOR* ISPT IS IT EQUAL TO STARTING PDT C1300401 SAZ IEXIT YES, CLEAR BUSY AND EXIT C1300402* 4 LINES DELETED 135*5555C1300403 LDA- ESTAT1,I CHECK IF REWIND IN PROGRESS C1300404 AND- ONEBIT+6 C1300405 SAZ 1 C1300406 JMP* INPT YES, GET NEXT PDT C1300407 JMP* IFNR NO, FIND THE NEXT REQUEST C1300408IEXIT STA* ISPT C1300409 LDA* URW ARE ANY UNITS REWINDING C1300410 SAN 2 YES, DO NOT RELEASE DRIVER C1300411 JMP MAS300 NO, RELEASE DRIVER C1300412 JMP- (DISP) EXIT TO DISPATCHER C1300413* C1300414IERR NUM 0 ERROR FLAG C1300415 END C1300416 NAM K1860 C14 A DRVR CCS 3.0 SL-149C1400001* LCTT KERNEL C1400002* CREDIT COLLECTION SYSTEM VERSION 3.0 C1400003* DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA C1400004* COPYRIGHT CONTROL DATA CORPORATION 1979 C1400005 SPC 3 C1400006**** C1400007*E C1400008* LCTT KERNEL C1400009* *********** C1400010*   3%4P C1400011* FUNCTION C1400012* -------- C1400013* THE 1860 KERNEL PERFORMS STATUS FUNCTIONS AND C1400014* PERFORMS THE I/O BY CALLING ANCILLARY ROUTINES. C1400015* IT ALSO HANDLER DIAGNOSTIC TIMEOUT AND PROCESSES C1400016* ERRORS. C1400017* C1400018* GENERAL DESCRIPTION C1400019* ------------------- C1400020* C1400021* THE KERNEL IS COMPOSED OF THREE COMPONENTS NAMELY C1400022* INITIATOR, CONTINUATOR AND DIAGNOSTIC TIMEOUT. THE C1400023* INITIATOR STATUSES THE DEVICE TO DETERMINE IF DEVICE C1400024* OPERATIVE AND IF SO CALLS THE APPROPRIATE ROUTINE TO C1400025* EXECUTE THE I/O. C1400026* C1400027* THE CONTINUATOR STATUSES THE DEVICE, CHECKS FOR C1400028* GHOST INTERRUPTS, CHECKS THE STATUS. IF THE STATUS C1400029* IS BAD, A DETERMINATION WILL BE MADE IF RECOVERY IS C1400030* POSSIBLE. THE NEXT I/O OPERATION WILL BE INITIATED C1400031* IF THERE IS ONE IN THE PRESENT REQUEST. WHEN THE C1400032* REQUEST IS SATISFIED CONTROL WILL BE RETURNED TO C1400033* THE DRIVER. C1400034* C1400035* THE DIAGNOSTIC TIME OUT WILL STATUS THE DEVICE C1400036* AND GO TO THE FAULT ROUTINE WHICH RETURNS TO THE C1400037* DRIVER. C1400038* C1400039* C1400040* INPUT REQUIREMENTS C1400041* ------------------ C1400042* C1400043* INITIATOR (K1860) C1400044* (I) REGISTER = ADDRESS OF PHYSICAL DEVICE TABLE. C1400045* C1400046* CONTINUATOR (C1860) AND DIAGNOSTIC TIMEOUT (E1860) C1400047* (Q) REGISTER = ADDRESS OF FIRST PHYSICAL DEVICE C1400048* TABLE IN THE PDT THREAD. LOCATION ISPT IN C1400049* THE DRIVER CONTAINS THE ADDRESS OF THE PDT C1400050* CURRENTLY BEING SERVICED. C1400051* C1400052* C1400053* OUTPUT C1400054* ------ C1400055* C1400056* THE OUTPUTS OF THE KERNEL ARE - C1400057* C1400058* 1. STATUS A  3%4d C1400059* INITIATOR STATUS TO PDT C1400060* CONTINUATOR STATUS TO PDT C1400061* TIME OUT STATUS TO PDT C1400062* C1400063* 2. FAULT CODE IS SET IF ERROR AS FOLLOWS - C1400064* 0 TIME OUT C1400065* 1 LOST DATA C1400066* 2 ALARM C1400067* 3 PARITY C1400068* 13 NO WRITE RING C1400069* 14 NOT READY C1400070* 15 NOISE RECORD DETECTED AND IGNORED C1400071* 31 WRITE OF SHORT RECORD REQUESTED C1400072* 41 IRRECOVERABLE ERROR C1400073* C1400074* 3. BITS 5 AND 6 OF ESTAT1 AND BIT14 OF EREQST ARE C1400075* CHANGED BY THE FAULT ROUTINE. C1400076* C1400077* C1400078* ENTRY/EXIT C1400079* ---------- C1400080* C1400081* 1. K1860 ENTRY - ENTERED BY RETURN JUMP FROM DRIVER. C1400082* 2. C1860 ENTRY - ENTERED BY INTERRUPT PROCESSOR WHEN C1400083* AN INTERRUPT OCCURS. C1400084* 3. E1860 ENTRY - ENTERED WHEN DIAGNOSTIC CLOCK C1400085* BECOMES NEGATIVE. C1400086* 1. EXITS TO DRIVER (CALLING ROUTINE) ON FAULT C1400087* DETECTION, COMPLETION OF REQUEST. C1400088* 2. EXITS TO DISPATCHER ON GHOST INTERRUPT. C1400089* 3. EXITS TO WAIT ON INITIATION OF I/O. C1400090* C1400091* C1400092* FLOW C1400093* ---- C1400094* C1400095* INITIATOR - C1400096* 1. SELECT AND STATUS TRANSPORT; SAVE STATUS. C1400097* 2. IF BUSY OR INOPERATIVE CALL FAULT ROUTINE. C1400098* 3. DETERMINE TYPE OF REQUEST AND CALL MOTION C1400099* OR READ/WRITE ANCILLARY ROUTINE. C1400100* 4. EXIT TO WAIT TO WAIT FOR INTERRUPT. C1400101* C1400102* CONTINUATOR - C1400103* 1. CALL CKREQ TO STATUS AND CHECK FOR GHOST. C1400104* 2. CALL FORMAT STATUS TO FORM COMPOSED STATUS. C1400105* 3. IF MOTION REQUEST CHECK STATUS FOR INOP, C1400106* READ AFTER WRITE, PROGRAM ERROR, R  3%4xOR TIMEOUT. C1400107* IF ANY OF THESE GO TO FAULT ROUTINE. IF NO C1400108* ERROR GO TO NEXTIO TO SATISFY REST OF REQUEST C1400109* IF ANY. C1400110* 4. IF READ/WRITE REQUEST CHECK STATUS FOR DATA C1400111* ERROR, OVERLOAD, DROPOUT. IF ANY OF THESE GO C1400112* TO RECOVERY ANCILLARY ROUTINE. IF NO ERROR C1400113* GO TO NEXTIO TO SATISFY REST OF REQUEST. C1400114* 5. RETURN TO CALLER C1400115* C1400116* DIAGNOSTIC TIME OUT - C1400117* 1. GET CURRENT PDT ADDRESS, SAVE IN I REGISTER. C1400118* 2. SELECT, READ AND SAVE STATUS IN STIMEO. C1400119* 3. CALL FORMAT STATUS TO FORM COMPOSED STATUS. C1400120* 4. GOES TO FAULT ROUTINE C1400121* C1400122* FAULT ROUTINE - C1400123* 1. SAVE FAULT CODE IN PDT. C1400124* 2. SET BIT 14 IN EREQST, CLEAR MOTION AND C1400125* REWIND BITS (5,6) IN ESTAT1. C1400126* 3. RETURN TO DRIVER. C1400127* C1400128* SELECT ROUTINE - C1400129* 1. SET BIT 7 IN ESTAT1 - SELECT IN PROGRESS. C1400130* 2. INHIBIT INTERRUPT WHILE SELECT IS ISSUED C1400131* IN CASE OF LOW PRIORITY EXECUTION. C1400132* 3. CALL WAIT TO SET TIMER AND TURN ON INTERRUPT. C1400133* C1400134* C1400135* SUBROUTINES C1400136* ----------- C1400137* C1400138* SELECT - SELECT UNIT AND STATUS C1400139* FORMIT - CONVERT ESTAT2 TO COMPOSITE STATUS C1400140* XMOT - ISSUE I/O FOR MOTION REQUESTS C1400141* XFER - ISSUE I/O FOR READ/WRITE REQUESTS C1400142* WAIT - SET DIAGNOSTIC CLOCK C1400143* CKREQ - PROCESS INTERRUPTS, REAL AND GHOST C1400144* RECVRY - EXECUTE RECOVERY ERROR PROCEDURES C1400145* NEXTIO - CHECK FOR NEXT I/O OPERATION C1400146* C1400147* C1400148* ENTRY POINTS C1400149* ------------ C1400150* C1400151 ENT CL20 SUB CONTINUATOR ENTRY C1400152 ENT CL40 SUB CONTINUATOR ENTRY C1400153 ENT K1860 INITIAL KERNEL ENTRY C1400154 ENT C1860 CONTINUATOR ENTRY FOR   3%4MSOS/RTOS C1400155 ENT E1860 TIME OUT ERROR ENTRY FOR MSOS/RTOS C1400156 ENT F1860 FAULT ROUTINE ENTRY C1400157 ENT KLCTT INITIAL KERNEL ENTRY FOR ODS C1400158 ENT CLCTT CONTINUATOR ENTRY FOR ODS C1400159 ENT ELCTT TIME OUT ERROR ENTRY FOR ODS C1400160 ENT SELECT SELECT ROUTINE C1400161* C1400162* EXTERNAL REFERENCES C1400163* ------------------- C1400164* C1400165 EXT* ADVRB ADVANCE RECORD BUFFER C1400166 EXT* CKREQ CHECK INTERRUPT AND STATUS ROUTINE C1400167 EXT* FORMIT LCTT FORMAT STATUS ANCILLARY ROUTINE C1400168 EXT* FWA CURRENT FIRST WORD ADDRESS C1400169 EXT* NEXTIO NEXT INPUT/OUTPUT C1400170 EXT* MOTCOD MOTION CODE C1400171 EXT* RECVRY RECOVERY ANCILLARY ROUTINE C1400172 EXT* WAIT WAIT ANCILLARY ROUTINE C1400173 EXT* WAITX WAIT SUB-ENTRY C1400174 EXT* XFER EXECUTE READ/WRITE ANCILLARY ROUTINE C1400175 EXT* XMOT EXECUTE MOTION FUNCTION ANCILLARY ROUTINE C1400176* C1400177* EQUATE REFERENCES C1400178* ----------------- C1400179* C1400180 EQU ABUFF(38) 38 PACK/UNPACK BUFFER ADDRESS C1400181 EQU ADTFW(28) 28 ADT TABLE FWA-1 C1400182 EQU DISP($EA) DISPATCHER ADDRESS C1400183 EQU EPTR(6) 6 REQUEST PARAMETER LIST ADDRESS C1400184 EQU EREQST(8) 8 REQUEST STATUS C1400185 EQU ESTAT1(9) 9 DRIVER STATUS C1400186 EQU ESTAT2(12) 12 LAST EQUIPTMENT STATUS C1400187 EQU EWES(7) 7 EQUIPTMENT CODE FOR SAMPLE C1400188 EQU FLTCOD(16) 16 FAULT CODE IF A REQUEST ERROR OCCURS C1400189 EQU HIBTS($12) HIGH ORDER MASK C1400190 EQU LOWBTS($3) LOW ORDER BIT MASK C1400191 EQU MFLG(30) 30 REQUEST TYPE FLAG C1400192 EQU MICROI(19) 19 MICRO INTERRUPT NUMBER C1400193 EQU NOISLN(2) MINIMUM RECORD SIZE C1400194 EQU ONEBIT($23) SINGLE BIT MASK C1400195 EQU SENTRY(21) 21 STATUS AFTER INITIAL ENTRY C1400196 EQU SINTER(22) 22 STATUS AFTER INTERRUPT C1400197 EQU STIMEO(23) 23 STATUS AFTER INTERRUPT TIMEOUT C1400198 EQU QSTCOD(35) 35 REQUEST CODE C1400199 EQU QSTWD4(36) 36 WORD 4 OF REQUEST C1400200 EQU UNTMOD(24) 24 UNIT AND MODE SELECT C1400201 EQU ZERO($22) LOW CORE CONSTANT C1400202 EQU ZROBIT($33) BIT EXCLUSION MASK 1  3%4 C1400203* C1400204**** C1400205 EJT C1400206* ********* C1400207* * KLCTT * C1400208* ********* C1400209* C1400210* ENTER WITH PDT ADDRESS IN I REGISTER C1400211* C1400212K1860 NUM 0 C1400213 EQU KLCTT(K1860) DEFINE ENTRY FOR ODS C1400214 ENA 0 C1400215 STA- MFLG,I CLEAR REQUEST TYPE FLAG C1400216 STA- SINTER,I CLEAR CONTINUATOR AND TIMEOUT STATUS C1400217 STA- SENTRY,I C1400218 STA- STIMEO,I C1400219 RTJ SELECT SELECT AND STATUS C1400220 STA- SENTRY,I SAVE ENTRY STATUS C1400221 RTJ FORMIT FORMAT COMPOSED STATUS (ESTAT2) C1400222 ENA $41 C1400223 AND- SENTRY,I CHECK IF INOP OR PROG ERROR C1400224 SAZ KL10 NO, CONTINUE C1400225 ENA 14 YES, REPORT ERROR C1400226 JMP F1860 C1400227* C1400228KL10 LDQ- EPTR,I CHECK IF MOTION REQUEST C1400229 LDA- 4,Q C1400230 STA- QSTWD4,I SAVE WD 4 OF REQUEST IN PDT C1400231 LDA- (ZERO),Q GET REQUEST CODE C1400232 ARS 9 C1400233 AND- LOWBTS+4 MASK OFF REQUEST BITS C1400234 STA- QSTCOD,I SAVE REQUEST CODE IN PDT C1400235 INA -14 C1400236 STA- MFLG,I SAVE REQUEST FLAG C1400237 SAN KL15 SKIP IF NON MOTION REQUEST C1400238 LDA- QSTWD4,I C1400239 SAM KL15 SKIP IF MULTI MOTION REQUEST C1400240 AND- HIBTS+4 MASK OFF DENSITY SELECT IF ANY C1400241 STA- QSTWD4,I C1400242KL15 LDA- MFLG,I NEXT I/O FUNCTION C1400243 SAN KL20 SKIP IF NOT MOTION REQUEST C1400244 RTJ XMOT EXECUTE MOTION COMMAND C1400245 JMP* KL30 C1400246KL20 RTJ XFER EXECUTE READ/WRITE C1400247KL30 JMP WAIT C1400248 EJT C1400249* KERNEL CONTINUATOR C1400250__60 ENQ E05 ILLEGAL MONITOR REQUES2  3%4T A0301239 LDA- FALADD,I OBTAIN THE ADDRESS OF THE ERROR A0301240 JMP* (ATSER2) PROCESS THE ERROR MESSAGE A0301241 SPC 1 A0301242PPM070 LDQ* MONTBL+1,Q OBTAIN THE PROCESSOR ADDRESS A0301243 JMP- (ZERO),Q PASS CONTROL TO THE INTERNAL PROCESSOR A0301244 EJT A0301245* A0301246* MONSTS REQUEST CODE = 3 A0301247* ------ STATUS REQUEST A0301248* A0301249 SPC 2 A0301250MONSTS LDQ- PARADD,I A0301251 INQ -2 A0301252 RTJ- (ALUABS) OBTAIN THE LOGICAL UNIT A0301253 LDQ* (ALOG1A),Q OBTAIN THE UNIT'S PHYSICAL DEVICE TABLE A0301254 LDA- EREQST,Q A0301255 STA- RSQ,I RETURN THE REQUEST STATUS IN Q A0301256 LDA- ESTAT2,Q A0301257 STA- RSA,I RETURN THE DEVICE STATUS IN A A0301258 LDA- ELSTWD,Q A0301259 INA -1 A0301260 STA- RSI,I RETURN THE LAST LOCATION IN I A0301261 LDQ- FALADD,I A0301262 INQ 3 A0301263 RTJ* (ATSPM2) IS THE RETURN ADDRESS IN THE USER AREA A0301264 JMP* MON010 NO A0301265 STQ- RSP,I YES, SAVE THE RETURN A0301266 JMP* (ATURTN) AND EXIT A0301267 SPC 4 A0301268* A0301269* MONIND REQUEST CODE = 16 A0301270* ------ INDIRECT REQUEST A0301271* A0301272 SPC 2 A0301273MONIND LDQ- PARADD,I A0301274 LDQ- 1,Q OBTAIN THE ADDRESS OF THE PARAMETER LIST A0301275 STQ- PARADD,I SAVE IT A0301276 RTJ* (ATSPM2) IS THE PARAMETER LIST IN THE USER AREA A0301277 JMP* MON010 NO A0301278 SPC 1 A0301279 ENA 2 YES, SET UP THE CONTINUATOR ADDRESS A0301280 STA* CONTAD A0301281 JMP* PPM010 GO PROCESS THE REQUEST A0301282 SPC 1 A0301283MON010 ENQ E01 PROGRAM PROTECT VIOLATION A0301284 LDA- FALADD,I OBTAIN THE ADDRESS OF THE ERROR A0301285 JMP* (ATSER2) PROCESS THE ERROR MESSAGE A0301286 EJT e  3%4 A0301287 SPC 4 A0301288* A0301289* MOTREQ REQUEST CODE = 14 A0301290* ------ MOTION REQUEST A0301291* A0301292 SPC 2 A0301293MOTPRC LDA* CONTAD A0301294 INA -2 IS THIS AN INDIRECT REQUEST A0301295 SAZ MOT010 YES A0301296 ENA 5 NO, SPECIFY THE CONTINUATION INCREMENT A0301297 STA* CONTAD A0301298 SPC 1 A0301299MOT010 ENA 5 A0301300 STA- RQTYPE,I RQTYPE = 5 (WRITE TYPE - MOTION REQUEST) A0301301 LDQ- PARADD,I A0301302 RTJ* LUNCHK OBTAIN THE REQUEST LOGICAL UNIT A0301303 LDA- RQCLAS,I A0301304 INA -8 IS THE MOTION REQUEST TO THE TERMINAL A0301305 SAN MOT020 NO, CONTINUE A0301306 SPC 1 A0301307 LDQ- FALADD,I YES, Q = REQUEST ADDRESS A0301308 STQ- RSCARG,I SPECIFY THE COMPLETION A-REGISTER A0301309 LDA- 1,Q A0301310 STA- RSCPAD,I SPECIFY THE REQUEST COMPLETION ADDRESS A0301311 LDA- 3,Q A = REQUEST LOGICAL UNIT A0301312 ADQ* CONTAD A0301313 RTJ* (ATSPM2) IS THE CONTINUATION ADDRESS VALID A0301314 JMP* MOT010 NO A0301315 SPC 1 A0301316 STQ- RSP,I YES, SPECIFY THE CONTINUATION ADDRESS A0301317 LDQ- ULIOTB,I A0301318 STA- IORQLU,Q AND THE REQUEST LOGICAL UNIT A0301319 JMP* (ATURTN) RETURN TO THE USER A0301320 SPC 1 A0301321MOT020 LDQ =XMTRQ Q = PROCESSOR TABLE FOR MOTION REQUESTS A0301322 JMP IOP010 GO PROCESS THE REQUEST A0301323 EJT A0301324 SPC 4 A0301325* A0301326* MRMOTN I/O REQUEST PARAMETER PROCESSOR 21 A0301327* ------ A0301328* MOTION REQUEST PARAMETERS A0301329* A0301330 SPC 2 A0301331MRMOTN LDQ- PARADD,I A0301332 LDA- (ZERO),Q OBTAIN THE MOTION PARAMETER WORD A0301333 STA- TEMPAR,I A0301334 SAM MRT010 SKIP IF REPETATIVE MODPK  3%4E A0301335 SAZ MRT010 SKIP IF NO PARAMETERS SPECIFIED A0301336 TCA A A0301337 ADD* MOTMAX VERIFY THE PARAMETER BYTES A0301338 AND* MOTMSK ARE ALL BYTES VALID A0301339 SAN MRT020 NO A0301340 LDA- TEMPAR,I A0301341MRT010 RTJ MOVMRQ PLACE THE PARAMETERS IN THE LINKAGE BUFFER A0301342 JMP IOPNXT GO GET THE NEXT PARAMETER A0301343 SPC 1 A0301344MRT020 ENQ E06 ILLEGAL REQUEST PARAMETER A0301345 LDA- PARADD,I OBTAIN THE ADDRESS OF THE ERROR A0301346 JMP* (ATSER2) PROCESS THE ERROR MESSAGE A0301347 EJT A0301348* M O N I T O R R E Q U E S T D A T A A N D S T O R A G E A0301349 SPC 2 A0301350RQCODE NUM 0 MONITOR REQUEST CODE A0301351CONTAD NUM 0 CONTINUATION ADDRESS INCREMENT A0301352LUNADD NUM 0 MASS MEMORY VOLUME TABLE ADDRESS A0301353MOTMAX NUM $7774 MOTION PARAMETER BYTE MAXIMUM VALUE A0301354MOTMSK NUM $8888 MOTION PARAMETER BYTE ERROR MASK A0301355AMMLUT ADC MMLUTB MASS MEMORY UNIT TABLE A0301356ALOG1A ADC LOG1A SYSTEM LOGICAL UNIT TABLE A0301357ATRMLU ADC TERMLU COMMUNICATIONS CONTROLLER L. U. A0301358ATSER2 ADC TSXERR EXECUTIVE ERROR MESSAGE PROCESSOR A0301359ATSPM2 ADC TSCKPM PARAMETER VERIFICATION ROUTINE A0301360ATURTN ADC TSURTN RETURN TO USER PROGRAM PROCESSOR A0301361 SPC 4 A0301362* A0301363* LUCLAS LUPROC SUBROUTINE USED TO OBTAIN THE DEVICE A0301364* ------ CLASS OF A LOGICAL UNIT A0301365* A0301366* ENTRY CONDITIONS: I = ADDR. OF LINKAGE BUFFER A0301367* Q = LOGICAL UNIT A0301368* A0301369 SPC 2 A0301370LUCLAS NOP 0 A0301371 TRQ A A0301372 INA -1 A0301373 SAM LUC030 ILLEGAL LOGICAL UNIT A0301374 SUB* (ALOG1A) A0301375 SAP LUC030 ILLEGAL LOGICAL UNIT A0301376 SPC 1 A0301377 TRQ A A0301378 SUB* ATRMLU IS THE LOGICAL UNIT THE TERMINAL A0301379 SAN LUC010 NO A0301380 ENA 8 YES, CLASS CODE = 8 A0301381 JMP* LUC020 RETURN A0301382 SPC 1 +J  3%4 A0301383LUC010 LDQ* (ALOG1A),Q A0301384 LDA- EREQST,Q A0301385 ARS 11 POSITION THE DEVICE CLASS CODE A0301386 AND- LPMASK+3 A0301387LUC020 STA- RQCLAS,I SAVE A0301388 JMP* (LUCLAS) AND RETURN A0301389 SPC 1 A0301390LUC030 ENQ E07 INVALID LOGICAL UNIT A0301391 LDA- LUNERR,I OBTAIN THE ADDRESS OF THE ERROR A0301392 JMP* (ATSER2) PROCESS THE ERROR MESSAGE A0301393 EJT 122*4844A0301394* A0301395* WKSTLU LUPROC SUBROUTINE USED TO PROCESS A0301396* ------ TERMINAL WORKSTATION DEVICES A0301397* A0301398* ENTRY CONDITIONS: I = LINKAGE BUFFER ADDRESS A0301399* A0301400 SPC 2 A0301401WKSTLU NOP 0 A0301402 ENQ 0 A0301403 STQ* LUWKST INITIALIZE THE WORKSTATION FLAG A0301404 SPC 1 A0301405WKS010 STQ* WKSQSV A0301406 LDQ* (AWKSTA),Q OBTAIN THE NEXT TABLE ENTRY A0301407 SQP WKS020 SKIP IF END NOT REACHED A0301408 JMP* (WKSTLU) END OF TABLE, RETURN A0301409 SPC 1 A0301410WKS020 LRS 8 Q = PORT NUMBER INDICATOR A0301411 ARS 8 A = PORT NUMBER A0301412 SQN WKS030 NOT A PORT NUMBER, CONTINUE A0301413 SUB- PORTNO,I LOOK FOR A PORT MATCH A0301414 SPC 1 A0301415WKS030 LDQ* WKSQSV A0301416 INQ 1 A0301417 SAZ WKS040 SKIP IF THIS IS THE USERS PORT A0301418 JMP* WKS010 OTHERWISE, CONTINUE A0301419 SPC 1 A0301420WKS040 STQ* WKSQSV A0301421 LDQ* (AWKSTA),Q OBTAIN THE NEXT TABLE ENTRY A0301422 SQM WKS060 SKIP IF THE END HAS BEEN REACHED A0301423 LLS 8 A = MASTER LOGICAL UNIT A0301424 QRS 8 Q = WORKSTATION LOGICAL UNIT A0301425 SUB- REQLUN,I IS THE REQUEST TO THIS UNIT A0301426 SAZ WKS050 YES A0301427 ENA 0 NO A0301428 JMP* WKS030 CONTINUE A0301429 SPC 1 A0301430WKS050 STQ- REQLUN,I SPECIFY THE WORKSTATIOY  3%5N LOGICAL UNIT A0301431 STQ* LUWKST INDICATE A WORKSTATION WAS SELECTED A0301432 SPC 1 A0301433WKS060 JMP* (WKSTLU) RETURN A0301434 SPC 2 A0301435AWKSTA ADC WKSTAT ADDRESS OF THE WORKSTATION TABLE A0301436LUWKST ADC 0 WORKSTATION SELECTION INDICATOR A0301437WKSQSV ADC 0 TEMPORARY STORAGE - Q-REGISTER A0301438 EJT A0301439 SPC 4 A0301440* A0301441* LUNCHK TSPROT SUBROUTINE USED TO OBTAIN THE REQUEST A0301442* ------ LOGICAL UNIT, DEVICE CLASS, AND CHAR- A0301443* ACTER MODE INDICATOR A0301444* A0301445* ENTRY CONDITIONS: Q = PARAMETER LIST ADDRESS A0301446* I = ADDR. OF LINKAGE BUFFER A0301447* A0301448 SPC 2 A0301449LUNCHK NOP 0 A0301450 SPC 1 A0301451 LDA- 3,Q OBTAIN THE REQUEST LOGICAL UNIT A0301452 AND- ONEBIT+12 ISOLATE THE CHARACTER MODE INDICATOR A0301453 STA- RQMODE,I SAVE A0301454 SPC 1 A0301455 RTJ- (ALUABS) ABSOLUTIZE THE LOGICAL UNIT A0301456 SQN LUN005 A0301457 LDQ* ATRMLU LOGICAL UNIT = 0, ASSUME THE TERMINAL A0301458LUN005 STQ- REQLUN,I SAVE A0301459 SPC 1 A0301460 RTJ* WKSTLU PROCESS ANY WORKSTATION DEVICES A0301461 LDQ- REQLUN,I A0301462 RTJ* LUCLAS VERIFY THE L. U. AND OBTAIN THE CLASS CODE A0301463 SPC 1 A0301464 LDA- REQLUN,I A0301465 INA -4 IS THE REQUEST FOR LOGICAL UNIT 4 A0301466 SAN LUN010 NO A0301467 LDA- RQTYPE,I YES A0301468 AND- ONEBIT IS THE REQUEST A READ A0301469 SAZ LUN030 YES, ERROR A0301470 SPC 1 A0301471 JMP* (LUNCHK) NO, RETURN A0301472 SPC 1 A0301473LUN010 LDA- RQCLAS,I A0301474 INA -2 IS THE LOGICAL UNIT A MASS MEMORY A0301475 SAZ LUN020 YES A0301476 JMP* LUN100 NO A0301477 SPC 1 A0301478LUN020 LDA- RSBHDR+1,I IS THIS A WRITE-READ R  3%5EQUEST A0301479 SAZ LUN040 NO A0301480LUN030 JMP* LUN090 YES, ERROR A0301481 SPC 1 A0301482LUN040 LDA- ONEBIT+12 FORCE WORD MODE A0301483 STA- RQMODE,I A0301484 SPC 1 A0301485 LDQ* AMMLUT Q = MASS MEMORY L.U. TABLE A0301486 ADQ* (AMMLUT) INCREMENT TO THE LAST ENTRY A0301487 EJT A0301488 SPC 4 A0301489LUN050 STQ* LUNADD A0301490 LDQ- (ZERO),Q Q = CURRENT VOLUME INFORMATION TABLE ADDRESS A0301491 LDA- (ZERO),Q IS THIS VOLUME MOUNTED A0301492 SAP LUN060 YES A0301493 AND- LPMASK+15 NO A0301494 SUB- REQLUN,I IS THIS THE REQUESTED UNIT A0301495 SAN LUN060 NO, CONTINUE A0301496 LDA- PORTNO,I YES, IS THE REQUEST FROM THE MASTER TERMINAL A0301497 SAN LUN090 NO, ERROR A0301498 JMP* (LUNCHK) YES, RETURN A0301499 SPC 1 A0301500LUN060 LDQ* LUNADD A0301501 INQ -1 A0301502 TRQ A A0301503 SUB* AMMLUT IS THE SEARCH COMPLETE A0301504 SAM LUN070 YES A0301505 JMP* LUN050 NO, CONTINUE A0301506 SPC 1 A0301507LUN070 LDA- RQTYPE,I A0301508 AND- ONEBIT IS THIS A WRITE TO A MOUNTED VOLUME A0301509 SAN LUN090 YES, ERROR A0301510 SPC 1 A0301511 JMP* (LUNCHK) NO, RETURN A0301512 SPC 1 A0301513LUN090 ENQ E07 INVALID LOGICAL UNIT A0301514 LDA- LUNERR,I OBTAIN THE ADDRESS OF THE ERROR A0301515 JMP* (ATSER2) PROCESS THE ERROR MESSAGE A0301516 SPC 1 A0301517LUN100 LDA- RQTYPE,I A0301518 AND- ONEBIT A0301519 TRA Q A0301520 LDQ- RQINPT,B OBTAIN THE INPUT OR OUTPUT LOGICAL UNIT A0301521 SQM LUN120 SKIP IF A FILE IS SPECIFIED A0301522 LDA- RQCLAS,I A0301523 INA -8 IS THE REQUEST TO THE TERMINAL A0301524 SAN LUN110 NO, RETURN A0301525 SQZ LUN110 NO DECLARED FILE DEVICE, RETURN A0301526 SPC 1 T  3%5, A0301527 STQ- REQLUN,I SPECIFY THE SELECTED LOGICAL UNIT A0301528 RTJ* LUCLAS VERIFY THE L. U. AND OBTAIN THE CLASS CODE A0301529LUN110 JMP* (LUNCHK) AND RETURN A0301530 SPC 1 A0301531LUN120 ENA 9 CLASS = 9 A0301532 STA- RQCLAS,I A0301533 JMP* (LUNCHK) AND RETURN A0301534 EJT A0301535 SPC 4 A0301536* M O N I T O R I / O R E Q U E S T T A B L E S A0301537 SPC 4 A0301538* A0301539* DEVTAB TABLE OF PROCESSOR TABLE ADDRESSES, BASED A0301540* ------ ON DEVICE CLASS CODE A0301541* A0301542 SPC 2 A0301543DVTYPE ADC 0 00 - INVALID DEVICE CLASS A0301544 ADC CL01 01 - MAGNETIC TAPE A0301545 ADC CL02 02 - MASS MEMORY A0301546 ADC CL03 03 - CARD DEVICE A0301547 ADC 0 04 - PAPER TAPE (NOT AVAILABLE) A0301548 ADC CL05 05 - LINE PRINTER A0301549 ADC CL06 06 - SYSTEM COMMENT DEVICE A0301550 ADC 0 07 - NOT USED A0301551 ADC CL08 08 - COMMUNICATIONS TERMINAL A0301552 ADC CL09 09 - SEQUENTIAL FILE A0301553 SPC 4 A0301554* MTRQ TABLE OF REQUEST PARAMETER PROCESSOR BYTES A0301555* ---- WHICH REFER TO SUB-PROCESSORS USED TO A0301556* VALIDATE THE MOTION REQUEST PARAMETERS A0301557* A0301558 SPC 2 A0301559MTRQ VFD X8/REQST1,X8/COMPL1 A0301560 VFD X8/THREAD,X8/LOGUN2 A0301561 VFD X8/MOTION,X8/THREAD A0301562 VFD X8/MMADR1,X8/TMNATE A0301563 EJT A0301564* A0301565* CL'NN' TABLE OF REQUEST PARAMETER PROCESSOR BYTES A0301566* ------ WHICH REFER TO SUB-PROCESSORS USED TO A0301567* VALIDATE THE PARAMETERS OF EACH I/O A0301568* REQUEST A0301569* A0301570 SPC 2 A0301571* MAGNETIC TAPE DEVICE A0301572CL01 VFD X8/REQST1,X8/COMPL1 A0301573 VFD X8/THREAD,X8/LOGUN1 A0301574 VFD X8/NOWRD1,X8/DATBF1 (  3%5@ A0301575 VFD X8/MMADR1,X8/DXFER1 A0301576 VFD X8/TMNATE,X8/TMNATE A0301577* MASS MEMORY DEVICE A0301578CL02 VFD X8/REQST1,X8/COMPL1 A0301579 VFD X8/THREAD,X8/LOGUN2 A0301580 VFD X8/NOWRD2,X8/DATBF2 A0301581 VFD X8/MMADR2,X8/TMNATE A0301582* CARD DEVICE A0301583CL03 VFD X8/REQST1,X8/COMPL1 A0301584 VFD X8/THREAD,X8/LOGUN1 A0301585 VFD X8/NOWRD1,X8/DATBF1 A0301586 VFD X8/MMADR1,X8/DXFER1 A0301587 VFD X8/TMNATE,X8/TMNATE A0301588* LINE PRINTER DEVICE A0301589CL05 VFD X8/REQST3,X8/COMPL1 A0301590 VFD X8/THREAD,X8/LOGUN1 A0301591 VFD X8/NOWRD1,X8/DATBF1 A0301592 VFD X8/MMADR1,X8/DXFER1 A0301593 VFD X8/TMNATE,X8/TMNATE A0301594* SYSTEM COMMENT DEVICE A0301595CL06 VFD X8/REQST3,X8/COMPL1 A0301596 VFD X8/THREAD,X8/LOGUN3 A0301597 VFD X8/NOWRD1,X8/DATBF1 A0301598 VFD X8/MMADR1,X8/DXFER1 A0301599 VFD X8/TMNATE,X8/TMNATE A0301600* COMMUNICATIONS TERMINAL DEVICE A0301601CL08 VFD X8/REQST4,X8/COMPL2 A0301602 VFD X8/THREAD,X8/LOGUN3 A0301603 VFD X8/NOWRD3,X8/DATBF3 A0301604 VFD X8/MMADR1,X8/DXFER2 A0301605 VFD X8/TMNATE,X8/TMNATE A0301606* SEQUENTIAL FILE DEVICE A0301607CL09 VFD X8/REQST1,X8/COMPL1 A0301608 VFD X8/THREAD,X8/LOGUN2 A0301609 VFD X8/NOWRD1,X8/DATBF1 A0301610 VFD X8/MMADR1,X8/DXFER1 A0301611 VFD X8/REQFIL,X8/TMNATE A0301612 EJT A0301613 SPC 4 A0301614* RQPROC TABLE OF MONITOR REQUEST PARAMETER PROCESSOR A0301615* ------ ADDRESSES. INDICES TO THIS TABLE ARE A0301616* CONTAINED IN THE BYTES SPECIFIED IN A0301617* THE MONITOR I/O REQUEST TABLE A0301618* A0301619 SPC 1 A0301620RQPROC ADC 0 00 - NOT USED A0301621 ADC MRCOD1 01 - REQUEST CODE-MSOS READ/WRITE DEVICE A0301622 ADC MRCOD2 02 - REQUEST CODE-MSOSD  3%5T READ ONLY DEVICE A0301623 ADC MRCOD3 03 - REQUEST CODE-MSOS WRITE ONLY DEVICE A0301624 ADC MRCOD4 04 - REQUEST CODE-TERMINAL DEVICE A0301625 ADC MRCMP1 05 - COMPLETION ADDRESS-MSOS DEVICE A0301626 ADC MRCMP2 06 - COMPLETION ADDRESS-TERMINAL DEVICE A0301627 ADC MRTHRD 07 - REQUEST THREAD-ALL DEVICES A0301628 ADC MRLUN1 08 - LOGICAL UNIT-MSOS DEVICE A0301629 ADC MRLUN2 09 - LOGICAL UNIT-MASS MEMORY DEVICE A0301630 ADC MRLUN3 10 - LOGICAL UNIT-TERMINAL DEVICE A0301631 ADC MRSIZ1 11 - BUFFER SIZE-MSOS DEVICE A0301632 ADC MRSIZ2 12 - BUFFER SIZE-MASS MEMORY DEVICE A0301633 ADC MRSIZ3 13 - BUFFER SIZE-TERMINAL DEVICE A0301634 ADC MRBUF1 14 - BUFFER ADDRESS-MSOS DEVICE A0301635 ADC MRBUF2 15 - BUFFER ADDRESS-MASS MEMORY DEVICE A0301636 ADC MRBUF3 16 - BUFFER ADDRESS-TERMINAL DEVICE A0301637 ADC MRMMA1 17 - SECTOR AND CONTROL POINT-MSOS DEVICE A0301638 ADC MRMMA2 18 - SECTOR AND CONTROL POINT-M.M. DEVICE A0301639 ADC MRDAT1 19 - MESSAGE DATA-MSOS DEVICE A0301640 ADC MRDAT2 20 - MESSAGE DATA-TERMINAL DEVICE A0301641 ADC MRMOTN 21 - MOTION REQUEST PARAMETERS A0301642 ADC MRFILE 22 - SEQUENTIAL FILE PROCESSOR A0301643 ADC RVALID 23 - TERMINATE REQUEST VALIDATION A0301644 EJT A0301645 SPC 4 A0301646 EQU REQST1(01) REQUEST CODE A0301647 EQU REQST2(02) REQUEST CODE A0301648 EQU REQST3(03) REQUEST CODE A0301649 EQU REQST4(04) REQUEST CODE A0301650 EQU COMPL1(05) COMPLETION ADDRESS A0301651 EQU COMPL2(06) COMPLETION ADDRESS A0301652 EQU THREAD(07) REQUEST THREAD A0301653 EQU LOGUN1(08) LOGICAL UNIT A0301654 EQU LOGUN2(09) LOGICAL UNIT A0301655 EQU LOGUN3(10) LOGICAL UNIT A0301656 EQU NOWRD1(11) BUFFER LENGTH A0301657 EQU NOWRD2(12) BUFFER LENGTH A0301658 EQU NOWRD3(13) BUFFER LENGTH A0301659 EQU DATBF1(14) BUFFER ADDRESS A0301660 EQU DATBF2(15) BUFFER ADDRESS A0301661 EQU DATBF3(16) BUFFER ADDRESS A0301662 EQU MMADR1(17) MASS MEMORY ADDRESS A0301663 EQU MMADR2(18) MASS MEMORY ADDRESS A0301664 EQU DXFER1(19) MESSAGE DATA A0301665 EQU DXFER2(20) MESSAGE DATA A0301666 EQU MOTION(21) MOTION PARAMETERS A0301667 EQU REQFIL(22) SEQUENTIAL FILE A0301668 EQU TMNATE(23) LIST TERMINATION A0301669 EJT A0301670 SPC 4  3%5h A0301671* U S E R P R O G R A M R E Q U E S T P R O C E S S O R A0301672* A0301673* R E A D / W R I T E R E Q U E S T P R O C E S S O R A0301674 SPC 2 A0301675IOPROC ENA 0 A0301676 STA- FILREQ,I INITIALIZE THE DECLARED FILE INDICATOR A0301677 SPC 1 A0301678 LDQ- PARADD,I Q = PARAMETER LIST ADDRESS A0301679 STQ- RSCARG,I SAVE THE I/O COMPLETION A-REGISTER VALUE A0301680 RTJ LUNCHK OBTAIN THE CLASS CODE AND MODE OF THE REQUEST A0301681 SPC 1 A0301682 LDQ- RQCLAS,I Q = DEVICE CLASS CODE A0301683 LDQ* DVTYPE,Q Q = DEVICE TABLE ENTRY A0301684 SQZ IOP030 SKIP IF THE CLASS IS INVALID A0301685 SPC 1 A0301686IOP010 STQ* DEVADD A0301687 LDA- (ZERO),Q OBTAIN THE NEXT PROCESSOR CODES A0301688 STA* MNSAVE AND SAVE A0301689 SPC 1 A0301690IOPNXT CLR Q A0301691 LDA* MNSAVE A0301692 LLS 8 POSITION THE NEXT PROCESSOR CODE A0301693 SQZ IOP020 SKIP IF THIS WORD IS EXAUSTED A0301694 STA* MNSAVE A0301695 LDQ* RQPROC,Q GO PROCESS THE NEXT REQUEST PARAMETER A0301696 JMP- (ZERO),Q A0301697 SPC 1 A0301698IOP020 LDQ* DEVADD A0301699 INQ 1 INCREMENT TO THE NEXT TABLE ENTRY A0301700 JMP* IOP010 CONTINUE A0301701 SPC 1 A0301702IOP030 ENQ E07 INVALID LOGICAL UNIT A0301703 LDA- PARADD,I A0301704 LDA- LUNERR,I OBTAIN THE ADDRESS OF THE ERROR A0301705 JMP (ATSER3) PROCESS THE ERROR MESSAGE. A0301706 SPC 2 A0301707* M O N I T O R R E Q U E S T D A T A A N D S T O R A G E A0301708 SPC 2 A0301709DEVADD NUM 0 DEVICE CLASS TABLE ADDRESS A0301710MNSAVE NUM 0 PARAMETER PROCESSOR INDICES A0301711RQXFER NUM 0 USER MONITOR REQUEST ADDRESS A0301712 EJT A0301713 SPC 4 A0301714* R E A D / W R I T E R E Q U E S T P R O C E S S O R A0301715* A0301716* C O M P L E T I O N O F I / O R E Q U E S T A0301717* A0301718* P A R A M E T E R V A L I D A T I O N  3%5| A0301719 SPC 2 A0301720RVALID LDQ- FALADD,I CALCULATE THE CONTINUATION ADDRESS A0301721 ADQ CONTAD A0301722 RTJ* (ATSPM3) AND VALIDATE IT A0301723 JMP* IOP110 IT IS ILLEGAL A0301724 SPC 1 A0301725 STQ- RSP,I SAVE THE CONTINUATION ADDRESS A0301726 SPC 1 A0301727 LDA- ULIOTB,I CALCULATE THE ADDRESS OF A0301728 INA IORQCD THE MONITOR REQUEST IN THE I/O TABLE A0301729 STA* IOPREQ SAVE A0301730 LDA- I CALCULATE THE ADDRESS OF A0301731 INA RSIORC THE MONITOR REQUEST IN THE LINKAGE BUFFER A0301732 STA* RQXFER SAVE A0301733 SPC 1 A0301734 ENQ 8 A0301735IOP040 LDA* (RQXFER),Q TRANSFER THE REQUEST FROM A0301736 STA* (IOPREQ),Q THE LINKAGE BUFFER TO THE I/O TABLE A0301737 DQP *-IOP040 A0301738 SPC 1 A0301739 SET A A0301740 STA- RSIOTH,I INDICATE THE REQUEST IS ACTIVE A0301741 SPC 1 A0301742 LDA- RSBHDR+1,I IS THIS A WRITE-READ REQUEST A0301743 SAZ IOP060 NO A0301744 LDA- WROUTP,I A0301745 STA- RQOUTP,I RESTORE THE USERS OUTPUT DEVICE A0301746 LDA- RSBHDR+3,I A0301747 INA 1 A0301748 ARS 1 A0301749 STA- RSUSLN,I RESTORE THE INPUT LENGTH (WORDS) A0301750 LDA- WRIBUF,I A0301751 STA- RSUSBF,I AND THE INPUT BUFFER A0301752 ENA 0 A0301753 STA- RQTYPE,I INDICATE AN INPUT REQUEST A0301754 EJT A0301755IOP060 LDA- RQCLAS,I A0301756 INA -2 IS THIS A MASS MEMORY REQUEST A0301757 SAN IOP070 NO A0301758 SPC 1 A0301759 LDQ- ULUSTB,I YES A0301760 ENA SXCMMA INDICATE SUSPENSION FOR A MASS MEMORY REQUEST A0301761 STA- USRSTX,Q A0301762 ENQ 1 START ANOTHER USER A0301763 JMP* IOP100 A0301764 SPC 1 A0301765IOP070 LDA- RQTYPE,I A0301766 AND- ONEBIT mK  3%5 A0301767 TRA Q A0301768 ENA 0 A0301769 SQN IOP080 SKIP IF THIS IS A WRITE REQUEST A0301770 EOR- ONEBIT+IN SPECIFY AN INPUT REQUEST A0301771 SPC 1 A0301772IOP080 LDQ- ULIOTB,I A0301773 IIN 0 A0301774 EOR- IOSTAT,Q UPDATE THE USERS I/O STATUS A0301775 STA- IOSTAT,Q A0301776 EIN 0 A0301777 SPC 1 A0301778 ENQ SXCTMA INDICATE SUSPENSION FOR TERMINAL I/O A0301779 LDA- RQCLAS,I A0301780 INA -8 IS THE REQUEST TO THE TERMINAL A0301781 SAZ IOP090 YES A0301782 ENQ SXCDTA NO, INDICATE SUSPENSION FOR DATA I/O A0301783 SPC 1 A0301784IOP090 TRQ A A0301785 LDQ- ULUSTB,I A0301786 STA- USRSTX,Q SPECIFY THE STATE INDEX A0301787 SPC 1 A0301788 TRQ A A = USER TABLE ADDRESS A0301789 ENQ QPL1 QUEUE PRIORITY = 1 A0301790 RTJ+ ONNSWP PLACE THE USER ON THE NSWP QUEUE A0301791 SPC 1 A0301792 ENQ 0 A0301793IOP100 RTJ- (AMONI) MAKE AN INDIRECT MONITOR REQUEST A0301794 ADC $6000 A0301795IOPREQ ADC 0 ADDRESS OF THE REQUEST A0301796 SQN IOP108 SKIP IF A MASS MEMORY REQUEST WAS MADE. A0301797 LDQ- ULIOTB,I Q = ADDRESS OF I/O TABLE. A0301798 IIN 0 A0301799 LDA- IOSTAT,Q SET I/O ACTIVE FLAG AFTER THE A0301800 EOR- ONEBIT+IA MONITOR REQUEST IS COMPLETE. A0301801 EIN 0 A0301802 STA- IOSTAT,Q A0301803 ENQ 0 A0301804IOP108 JMP+ TSTASK START ANOTHER USER. A0301805 SPC 1 A0301806IOP110 TRQ A OBTAIN THE ADDRESS OF THE ERROR A0301807 ENQ E01 PROGRAM PROTECT VIOLATION A0301808 JMP* (ATSER3) PROCESS THE ERROR MESSAGE A0301809 EJT A0301810 SPC 4 A0301811* A0301812* MRQCD1 I/O REQUEST PARAMETER PROCESSOR 1 A0301813* ------ A0301814* MSOS READ - WRITE r  3%5DEVICE A0301815* A0301816 SPC 2 A0301817MRCOD1 LDQ- RQTYPE,I OBTAIN THE REQUEST TYPE A0301818 LDA* RQCOD1,Q GET THE ASSOCIATED REQUEST CODE A0301819 RTJ* MOVMRQ PLACE IT IN THE USER LINKAGE BUFFER A0301820 JMP* IOPNXT GO GET THE NEXT PARAMETER A0301821 SPC 2 A0301822* A0301823* MRCOD2 I/O REQUEST PARAMETER PROCESSOR 2 A0301824* ------ A0301825* MSOS READ - ONLY DEVICE A0301826* A0301827 SPC 2 A0301828 SPC 2 A0301829MRCOD2 ENA 0 SPECIFY READ-ONLY DEVICE A0301830 JMP* MRC010 CONTINUE A0301831 SPC 2 A0301832* A0301833* MRCOD3 I/O REQUEST PARAMETER PROCESSOR 3 A0301834* ------ A0301835* MSOS WRITE - ONLY DEVICE A0301836* A0301837 SPC 2 A0301838MRCOD3 ENA 1 INDICATE A WRITE-ONLY DEVICE A0301839 SPC 1 A0301840MRC010 LDQ- RQTYPE,I A0301841 EAQ A ISOLATE THE TYPE OF OPERATION A0301842 AND- ONEBIT IS THE REQUEST VALID FOR THIS DEVICE A0301843 SAN MRC020 NO, INDICATE AN ERROR A0301844 LDA* RQCOD1,Q OBTAIN THE REQUEST CODE A0301845 RTJ* MOVMRQ PLACE IT IN THE USER LINKAGE BUFFER A0301846 JMP* IOPNXT GO GET THE NEXT PARAMETER A0301847 SPC 1 A0301848MRC020 ENQ E05 ILLEGAL MONITOR REQUEST A0301849 LDA- PARADD,I OBTAIN THE ADDRESS OF THE ERROR A0301850 JMP* (ATSER3) PROCESS THE ERROR MESSAGE A0301851 EJT A0301852 SPC 4 A0301853* A0301854* MRCOD4 I/O REQUEST PARAMETER PROCESSOR 4 A0301855* ------ A0301856* TERMINAL READ / WRITE REQUESTS A0301857* A0301858 SPC 2 A0301859MRCOD4 LDQ- RQTYPE,I OBTAIN THE REQUEST TYPE A0301860 LDA* RQCOD2,Q GET THE ASSOCIATED REQUEST CODE A0301861 RTJ* MOVMRQ PLACE IT IN THE USER LINKAGE BUFFER A0301862 JMP* IOPNXT GO GET THE NEXT PARAME  3%5TER A0301863 SPC 4 A0301864* REQCOD TABLES OF BUFFERED REQUESTS BASED ON THE A0301865* ------ USERS ACTUAL MONITOR REQUEST A0301866 SPC 2 A0301867RQCOD1 ADC $4255 MSOS READ REQUEST A0301868 ADC $4455 MSOS WRITE REQUEST A0301869 ADC $4855 MSOS FREAD REQUEST A0301870 ADC $4C55 MSOS FWRITE REQUEST A0301871 ADC $5C55 MSOS MOTION REQUEST A0301872 ADC $5C55 MSOS MOTION REQUEST A0301873 SPC 2 A0301874RQCOD2 ADC $4455 TMNL READ REQUEST A0301875 ADC $4455 TMNL WRITE REQUEST A0301876 ADC $4C55 TMNL FREAD REQUEST A0301877 ADC $4C55 TMNL FWRITE REQUEST A0301878 EJT A0301879 SPC 4 A0301880* A0301881* MRCMP1 I/O REQUEST PARAMETER PROCESSOR 5 A0301882* ------ A0301883* MSOS DEVICE COMPLETION ADDRESS A0301884* A0301885 SPC 2 A0301886MRCMP1 RTJ* CMPCHK VERIFY THE USERS COMPLETION ADDRESS A0301887 LDA =XTSIOC2 OBTAIN THE EXECUTIVE COMPLETION ADDRESS A0301888 RTJ* MOVMRQ PLACE IT IN THE USER LINKAGE BUFFER A0301889 JMP (AIONXT) GO GET THE NEXT PARAMETER A0301890 SPC 2 A0301891* A0301892* MRCMP2 I/O REQUEST PARAMETER PROCESSOR 6 A0301893* ------ A0301894* TERMINAL DEVICE COMPLETION ADDRESS A0301895* A0301896 SPC 2 A0301897MRCMP2 RTJ* CMPCHK VERIFY THE USERS COMPLETION ADDRESS A0301898 LDA- RQTYPE,I A0301899 AND- ONEBIT A0301900 TRA Q A0301901 ENA 0 READ REQUESTS HAVE NO COMPLETION ADDRESS A0301902 SQZ MRP010 SKIP IF THE REQUEST IS A READ A0301903 SPC 1 A0301904 LDA =XTSIOC1 OBTAIN THE EXECUTIVE COMPLETION ADDRESS A0301905MRP010 RTJ* MOVMRQ PLACE IT IN THE USER LINKAGE BUFFER A0301906 JMP (AIONXT) GO GET THE NEXT PARAMETER A0301907 SPC 2 A0301908ATSER3 ADC TSXERR EXECUTIVE ERROR MESSAGE PROCESSOR A0301909ATSPM3 ADC TSCKPM PARAMETER VERIFICATION ROUTINE A0301910 EJT 9  3%5 A0301911 SPC 4 A0301912* A0301913* CMPCHK TSPROT SUBROUTINE USED TO VERIFY THE USERS A0301914* ------ I/O REQUEST COMPLETION ADDRESS A0301915* A0301916* ENTRY CONDITIONS: I = ADDR. OF LINKAGE BUFFER A0301917* A0301918 SPC 2 A0301919CMPCHK NOP 0 A0301920 LDQ- PARADD,I A0301921 LDQ- (ZERO),Q OBTAIN THE COMPLETION ADDRESS A0301922 SQZ CMP010 NO COMPLETION IS LEGAL A0301923 LDA- RSCPAD,I IS A COMPLETION CURRENTLY PENDING A0301924 SAN CMP020 YES, ERROR A0301925 SPC 1 A0301926 RTJ* (ATSPM3) VERIFY THAT THE COMPLETION IS LEGAL A0301927 JMP* CMP030 IT IS NOT A0301928 SPC 1 A0301929 STQ- RSCPAD,I SAVE IT FOR THE I/O COMPLETION A0301930CMP010 JMP* (CMPCHK) RETURN A0301931 SPC 1 A0301932CMP020 ENQ E08 STACKING I/O REQUESTS IS ILLEGAL A0301933 LDA- FALADD,I PICK UP THE ADDRESS OF THE ERROR A0301934 JMP* (ATSER3) PROCESS THE ERROR MESSAGE A0301935 SPC 1 A0301936CMP030 ENQ E01 PROGRAM PROTECT VIOLATION A0301937 LDA- PARADD,I OBTAIN THE ADDRESS OF THE ERROR A0301938 JMP* (ATSER3) PROCESS THE ERROR MESSAGE A0301939 EJT A0301940 SPC 4 A0301941* A0301942* MRTHRD I/O REQUEST PROCESSOR 7 A0301943* ------ A0301944* PROCESS THE REQUEST THREAD A0301945* A0301946 SPC 2 A0301947MRTHRD CLR A INSURE THE THREAD IS CLEAR A0301948 RTJ* MOVMRQ A0301949 JMP* (AIONXT) GO GET THE NEXT PARAMETER A0301950 SPC 4 A0301951* A0301952* MOVMRQ TSPROT SUBROUTINE USED TO TRANSFER THE NEXT A0301953* ------ I/O REQUEST PARAMETER TO THE USER A0301954* LINKAGE BUFFER A0301955* A0301956* ENTRY CONDITIONS: I = ADDR. OF LINKAGE BUFFER A0301957* A = PARAMETER VALUE A0301958*  3%5 A0301959* EXIT CONDITIONS: A = PARAMETER VALUE A0301960* (PARADD) = (PARADD) + 1 A0301961* A0301962 SPC 2 A0301963MOVMRQ NOP 0 A0301964 LDQ- PMCNTR,I OBTAIN THE NEXT PARAMETER POSITION A0301965 STA- RSIORC,B A0301966 RAO- PARADD,I INCREMENT THE PARAMETER ADDRESS A0301967 RAO- PMCNTR,I INCREMENT THE POSITION INDEX A0301968 JMP* (MOVMRQ) RETURN A0301969 EJT A0301970* A0301971* MRLUN1 I/O REQUEST PARAMETER PROCESSOR 8 A0301972* ------ A0301973* MSOS DEVICE LOGICAL UNIT A0301974* A0301975 SPC 2 A0301976MRLUN1 LDA- PORTNO,I IS THE REQUEST FROM THE MASTER TERMINAL A0301977 SAZ MRL010 YES, CONTINUE A0301978 LDA LUWKST NO, IS IT A WORKSTATION LOGICAL UNIT A0301979 SAN MRL010 YES, CONTINUE A0301980 SPC 1 A0301981 ENQ E07 NO, INDICATE AN INVALID LOGICAL UNIT A0301982 LDA- LUNERR,I OBTAIN THE ADDRESS OF THE ERROR A0301983 JMP* (ATSER3) PROCESS THE ERROR MESSAGE A0301984 SPC 1 A0301985MRL010 LDA- ONEBIT+12 INDICATE ASCII MODE A0301986 SPC 1 A0301987MRL020 ADD- REQLUN,I OBTAIN THE REQUESTED LOGICAL UNIT A0301988 RTJ* MOVMRQ PLACE IT IN THE USER LINKAGE BUFFER A0301989 JMP* (AIONXT) GO GET THE NEXT PARAMETER A0301990 SPC 2 A0301991* A0301992* MRLUN2 I/O REQUEST PARAMETER PROCESSOR 9 A0301993* ------ A0301994* MASS MEMORY LOGICAL UNIT A0301995* A0301996 SPC 2 A0301997MRLUN2 ENA 0 DO NOT INCLUDE ASCII MODE A0301998 JMP* MRL020 CONTINUE A0301999 SPC 2 A0302000* A0302001* MRLUN3 I/O REQUEST PARAMETER PROCESSOR 10 A0302002* ------ A0302003* TERMINAL DEVICE LOGICAL UNIT A0302004* A0302005 SPC 2 A0302006MRLUN3 LDQ- ULIOTB,I   3%5 A0302007 LDA- ONEBIT+TI INDICATE A TERMINAL I/O REQUEST A0302008 IIN 0 A0302009 EOR- IOSTAT,Q A0302010 STA- IOSTAT,Q A0302011 EIN 0 A0302012 LDA- RQMODE,I INCLUDE THE CHARACTER MODE, IF REQUIRED A0302013 JMP* MRL020 CONTINUE A0302014 EJT A0302015* MRSIZ1 I/O REQUEST PARAMETER PROCESSOR 11 A0302016* ------ A0302017* MSOS DEVICE BUFFER SIZE A0302018* A0302019 SPC 2 A0302020MRSIZ1 RTJ* SIZGET OBTAIN AND SAVE THE REQUEST LENGTH A0302021 SPC 1 A0302022MRS010 SAM MRS020 INDIRECT LENGTHS ARE ILLEGAL A0302023 RTJ* MOVMRQ MOVE IT TO THE LINKAGE BUFFER A0302024 LDQ- ULIOTB,I A0302025 LDQ- TERMBF,Q Q = TERMINAL I/O BUFFER ADDRESS A0302026 INQ -1 Q = BUFFER LENGTH ADDRESS A0302027 INA -1 A0302028 SUB- (ZERO),Q IS THE REQUEST TOO LARGE FOR THE BUFFER A0302029 SAP MRS020 YES, ERROR A0302030 JMP* (AIONXT) NO, GO GET THE NEXT PARAMETER A0302031 SPC 1 A0302032MRS020 ENQ E06 ILLEGAL REQUEST PARAMETER A0302033 LDA- PARADD,I A0302034 INA -1 OBTAIN THE ADDRESS OF THE ERROR A0302035 JMP* (ATSER3) PROCESS THE ERROR MESSAGE A0302036 SPC 2 A0302037* A0302038* MRSIZ2 I/O REQUEST PARAMETER PROCESSOR 12 A0302039* ------ A0302040* MASS MEMORY DEVICE BUFFER SIZE A0302041* A0302042 SPC 2 A0302043MRSIZ2 LDQ- PARADD,I A0302044 LDA- (ZERO),Q OBTAIN THE REQUEST LENGTH A0302045 STA- RSUSLN,I A0302046 RTJ* MOVMRQ MOVE IT TO THE LINKAGE BUFFER A0302047 JMP* (AIONXT) GO GET THE NEXT PARAMETER A0302048 SPC 2 A0302049* A0302050* MRSIZ3 I/O REQUEST PARAMETER PROCESSOR 13 A0302051* ------ A0302052* TERMINAL DEVICE BUFFER SIZE A0302053* A0302054 SPC 2  3%6 A0302055MRSIZ3 RTJ* SIZGET OBTAIN AND SAVE THE REQUEST LENGTH A0302056 TRA Q A0302057 LDA- RQTYPE,I A0302058 AND- ONEBIT IS THIS A READ REQUEST A0302059 SAN MRS030 NO A0302060 ENQ 1 YES, SPECIFY A 1-WORD MESSAGE A0302061MRS030 TRQ A A0302062 JMP* MRS010 CONTINUE A0302063 EJT A0302064 SPC 4 A0302065* A0302066* SIZGET TSPROT SUBROUTINE USED TO OBTAIN AND SAVE A0302067* ------ THE REQUEST MESSAGE LENGTH A0302068* A0302069* ENTRY CONDITIONS: I = ADDR. OF LINKAGE BUFFER A0302070* A0302071* EXIT CONDITIONS: A = LENGTH FOR I/O REQUEST A0302072* A0302073 SPC 2 A0302074SIZGET NOP 0 A0302075 SPC 1 A0302076 LDQ- PARADD,I A0302077* TRUNCATE REQUEST LENGTH IF GREATER THAN TERMINAL BUFFER A0302078 LDQ- ULIOTB,I USER I/O TABLE ADDR. A0302079 LDQ- TERMBF,Q TERMINAL MSG BUF ADDR. A0302080 INQ -1 A0302081 LDA- (ZERO),Q = TERMINAL BUFFER LENGTH A0302082 INA -1 A0302083 STA* WRDLEN LENGTH IN WORDS A0302084 ALS 1 A0302085 INA -1 A0302086 STA* BYTLEN LENGTH IN BYTES A0302087 LDQ- PARADD,I A0302088 LDA- RQMODE,I A0302089 SAN SIZ004 SENSE WORD MODE A0302090 LDA- (ZERO),Q A0302091 SUB* BYTLEN A0302092 SAM SIZ006 SENSE REQUEST LENGTH LESS THAN BUFFER A0302093 LDQ* BYTLEN A0302094 INQ -1 USE TRUNCATED LENGTH A0302095 JMP* SIZ008 A0302096SIZ004 LDA- (ZERO),Q A0302097 SUB* WRDLEN A0302098 SAM SIZ006 SENSE REQUEST LENGTH LESS THAN BUFFER A0302099 LDQ* WRDLEN A0302100 INQ -1 USE TRUNCATED LENGTH A0302101 JMP* SIZ008 A0302102SIZ006 LDQ- (ZERO),Q USE REQUEST LENGTH q  3%6 A0302103SIZ008 STQ- TEMPQR,I SAVE A0302104 LDA- RSBHDR+1,I IS THIS A WRITE-READ REQUEST A0302105 SAZ SIZ010 NO A0302106 LDQ- WRILEN,I YES, Q = INPUT LENGTH A0302107SIZ010 LDA- RQMODE,I IS CHARACTER MODE REQUESTED A0302108 SAZ SIZ020 YES A0302109 QLS 1 NO, Q = REQUEST LENGTH IN CHARACTERS A0302110SIZ020 STQ- RSBHDR+3,I SAVE IN WORD 4 OF THE HEADER A0302111 SPC 1 A0302112 LDQ- TEMPQR,I A0302113 SAN SIZ030 SKIP IF WORD MODE A0302114 LRS 1 CONVERT THE LENGTH TO WORDS A0302115 SAP SIZ030 A0302116 INQ 1 A0302117 STA- RQMODE,I SAVE THE ODD / EVEN INDICATOR A0302118SIZ030 STQ- RSUSLN,I SAVE THE LENGTH FOR I/O COMPLETION A0302119 TRQ A A0302120 SPC 1 A0302121 JMP* (SIZGET) RETURN A0302122WRDLEN NUM 0 A0302123BYTLEN NUM 0 A0302124 EJT A0302125 SPC 4 A0302126* A0302127* MRBUF1 I/O REQUEST PARAMETER PROCESSOR 14 A0302128* ------ A0302129* MSOS DEVICE BUFFER ADDRESS A0302130* A0302131 SPC 2 A0302132MRBUF1 RTJ* MRBFCK VERIFY THE FWA AND THE LWA OF THE BUFFER A0302133 LDQ- ULIOTB,I A0302134 LDQ- TERMBF,Q SPECIFY THE EXECUTIVE'S BUFFER ADDRESS A0302135 LDA- 4,Q A0302136 STA- RSIOSA,I SPECIFY IT IN THE LINKAGE BUFFER A0302137 LDA- RSBHDR+3,I A0302138 STA- 3,Q SPECIFY THE INPUT LENGTH A0302139 LDA- ONEBIT+12 FORCE WORD MODE A0302140 STA- RQMODE,I A0302141 JMP* (AIONXT) GO GET THE NEXT PARAMETER A0302142 SPC 2 A0302143* MRBUF2 I/O REQUEST PARAMETER PROCESSOR 15 A0302144* ------ A0302145* MASS MEMORY BUFFER ADDRESS A0302146* A0302147 SPC 2 A0302148MRBUF2 RTJ* MRBFCK VERIFY THE FWA AND THE LWA OF THE BUFFER A0302149 JMP* (AIONXT) GO GET THE NEXT PARAMETER A0302150 SPC 2  3%60 A0302151* MRBUF3 I/O REQUEST PARAMETER PROCESSOR 16 A0302152* ------ A0302153* TMNL DEVICE BUFFER ADDRESS A0302154* A0302155 SPC 2 A0302156MRBUF3 RTJ* MRBFCK VERIFY THE FWA AND THE LWA OF THE BUFFER A0302157 LDQ- ULIOTB,I A0302158 LDA- TERMBF,Q SPECIFY THE BUFFER ADDRESS A0302159 STA- RSIOSA,I A0302160 JMP* (AIONXT) GO GET THE NEXT PARAMETER A0302161 SPC 2 A0302162AIONXT ADC IOPNXT GET NEXT I/O PARAMETER PROCESSOR INDEX A0302163AMOVRQ ADC MOVMRQ MOVE MONITOR REQUEST ROUTINE A0302164 EJT A0302165 SPC 4 A0302166* A0302167* MRBFCK TSPROT SUBROUTINE USED TO VERIFY THE MONITOR A0302168* ------ REQUEST BUFFER ADDRESS AND LENGTH A0302169* A0302170* ENTRY CONDITIONS: I = ADDR. OF LINKAGE BUFFER A0302171 SPC 2 A0302172MRBFCK NOP 0 A0302173 LDA- RQTYPE,I A0302174 AND- ONEBIT IS THIS A WRITE REQUEST A0302175 SAZ MRB010 NO A0302176 SPC 1 A0302177 LDQ- PARADD,I YES, DONT VERIFY THE BUFFER A0302178 LDA- (ZERO),Q OBTAIN THE BUFFER ADDRESS A0302179 RTJ* (AMOVRQ) MOVE IT TO THE LINKAGE BUFFER A0302180 STA- RSUSBF,I SAVE IT FOR I/O COMPLETION A0302181 JMP* (MRBFCK) RETURN A0302182 SPC 1 A0302183MRB010 RTJ* (ATSCK4) OBTAIN AND VERIFY THE FWA OF THE BUFFER A0302184 STQ- RSUSBF,I SAVE FOR THE I/O COMPLETION A0302185 TRQ A A0302186 RTJ* (AMOVRQ) MOVE IT TO THE LINKAGE BUFFER A0302187 LDQ- RSUSBF,I A0302188 ADQ- RSUSLN,I CALCULATE THE BUFFER ENDING ADDRESS A0302189 RTJ* (ATSPM4) VERIFY THE LENGTH A0302190 JMP* MRB020 ERROR A0302191 SPC 1 A0302192 RTJ* (ATSMU4) VERIFY AGAINST THE LWA OF THE USER PROGRAM A0302193 JMP* MRB020 ERROR A0302194 SPC 1 A0302195 JMP* (MRBFCK) RETURN A0302196 SPC 1 A0302197MRB020 ENQ E06 ILLEGAL REQUEST PARAMETER A0302198 LDA- PARADD,I  3%6D A0302199 INA -2 OBTAIN THE ADDRESS OF THE ERROR A0302200 JMP* (ATSER4) PROCESS THE ERROR MESSAGE A0302201 EJT A0302202 SPC 4 A0302203* A0302204* MRMMA1 I/O REQUEST PARAMETER PROCESSOR 17 A0302205* ------ A0302206* MSOS DEVICE SECTOR ADDRESS-CONTROL POINT A0302207* A0302208 SPC 1 A0302209MRMMA1 CLR A PLACE ZERO IN A0302210 RTJ* (AMOVRQ) THE MSB A0302211 RTJ* (AMOVRQ) LSB A0302212 LDA* (ACCP) A0302213 RTJ* (AMOVRQ) MOVE THE CONTROL POINT A0302214 JMP* (AIONXT) GO GET THE NEXT PARAMETER A0302215 SPC 2 A0302216* A0302217* MRMMA2 I/O REQUEST PARAMETER PROCESSOR 18 A0302218* ------ A0302219* MASS MEMORY SECTOR ADDRESS-CONTROL POINT A0302220* A0302221 SPC 1 A0302222MRMMA2 LDQ- ULIOTB,I A0302223 IIN 0 A0302224 LDA- IOSTAT,Q A0302225 EOR- ONEBIT+IA INDICATE I/O IS ACTIVE A0302226 EOR- ONEBIT+MM INDICATE A MASS MEMORY REQUEST A0302227 STA- IOSTAT,Q A0302228 EIN 0 A0302229 SPC 1 A0302230 LDQ- PARADD,I A0302231 LDA- (ZERO),Q OBTAIN THE MSB A0302232 AND- LPMASK+15 A0302233 EOR- ONEBIT+15 SET THE CONTROL POINT INDICATOR A0302234 RTJ* (AMOVRQ) PLACE IT IN THE USER LINKAGE BUFFER A0302235 LDQ- PARADD,I A0302236 LDA- (ZERO),Q OBTAIN THE LSB A0302237 RTJ* (AMOVRQ) PLACE IT IN THE USER LINKAGE BUFFER A0302238 LDA* (ACCP) A0302239 RTJ* (AMOVRQ) PLACE IT IN THE USER LINKAGE BUFFER A0302240 SPC 1 A0302241 LDA* (CNTAD2) A0302242 INA -2 IS THE REQUEST INDIRECT A0302243 SAZ MRM010 YES A0302244 INA 4 NO, INCREMENT THE CONTINUATION ADDRESS BY 2 A0302245 STA* (CNTAD2) A0302246 SPC 1 -C  3%6X A0302247MRM010 JMP* (AIONXT) GO GET THE NEXT PARAMETER A0302248 EJT A0302249 SPC 4 A0302250* A0302251* MRDAT1 I/O REQUEST PARAMETER PROCESSOR 19 A0302252* ------ A0302253* MSOS DEVICE MESSAGE DATA TRANSFER A0302254* A0302255 SPC 2 A0302256MRDAT1 LDA- RQTYPE,I A0302257 AND- ONEBIT IS THIS A READ REQUEST A0302258 SAZ MRD010 YES, RETURN A0302259 SPC 1 A0302260 LDQ- ULIOTB,I NO A0302261 LDQ- TERMBF,Q A0302262 LDQ- 4,Q Q = DESTINATION ADDRESS A0302263 RTJ* MRDXFR MOVE THE MESSAGE TO THE EXECUTIVE'S BUFFER A0302264 SPC 1 A0302265MRD010 JMP* (AIONXT) GO GET THE NEXT PARAMETER A0302266 SPC 4 A0302267* A0302268* MRDXFR TSPROT SUBROUTINE USED TO TRANSFER DATA FROM A0302269* ------ ONE BUFFER TO ANOTHER A0302270* A0302271* ENTRY CONDITIONS: I = ADDR. OF LINKAGE BUFFER A0302272* Q = DESTINATION ADDRESS A0302273* A0302274 SPC 2 A0302275MRDXFR NOP 0 A0302276 LR1- RSUSBF,I R1 = SOURCE DATA BUFFER ADDRESS A0302277 XFQ 2 R2 = DESTINATION DATA BUFFER ADDRESS A0302278 LDQ- RSUSLN,I A0302279 QLS 1 Q = NUMBER OF CHARACTERS TO MOVE A0302280 SJ4+ MOV TRANSFER THE DATA TO THE USER'S I/O BUFFER A0302281 SPC 1 A0302282 JMP* (MRDXFR) RETURN A0302283 EJT A0302284* MRDAT2 I/O REQUEST PARAMETER PROCESSOR 20 A0302285* ------ A0302286* TMNL DEVICE MESSAGE DATA TRANSFER A0302287* A0302288 SPC 2 A0302289MRDAT2 LDQ- ULIOTB,I A0302290 LDQ- TERMBF,Q Q = HEADER ADDRESS A0302291 LDA- RSBHDR+0,I A0302292 STA- (ZERO),Q A0302293 LDA- RSBHDR+1,I A0302294 STA- 1,Q  3%6l A0302295 LDA- RSBHDR+2,I A0302296 STA- 2,Q SET UP THE MESSAGE HEADER A0302297 LDA- RSBHDR+3,I A0302298 STA- 3,Q A0302299 LDQ- 4,Q Q = MESSAGE ADDRESS A0302300 LDA- RSBHDR+5,I IS A CURSOR POSITION SPECIFIED A0302301 SAM MRD020 NO A0302302 STA- 1,Q YES A0302303 LDA- RSBHDR+4,I A0302304 STA- (ZERO),Q A0302305 INQ 2 INCREASE THE STARTING ADDRESS A0302306MRD020 LDA- RQTYPE,I A0302307 AND- ONEBIT IS THIS A READ REQUEST A0302308 SAZ MRD030 YES A0302309 RTJ* MRDXFR MOVE THE MESSAGE TO THE EXECUTIVE'S BUFFER A0302310 JMP* MRD040 CONTINUE A0302311 SPC 1 A0302312MRD030 LDA* PROMPT A0302313 STA- (ZERO),Q A0302314 SPC 1 A0302315MRD040 LDQ- RSIOLN,I A0302316 LDA- RSBHDR+5,I IS A CURSOR POSITION SPECIFIED A0302317 SAM MRD050 NO A0302318 INQ 2 YES, INCREASE THE REQUEST LENGTH A0302319MRD050 LDA- RQMODE,I WAS CHARACTER MODE SPECIFIED A0302320 SAZ MRD060 YES, BUT THE CHARACTER COUNT WAS EVEN A0302321 SAP MRD070 NO A0302322 INQ -1 YES A0302323MRD060 LLS 1 RETURN TO CHARACTER MODE A0302324MRD070 STQ- RSIOLN,I A0302325 STA- RQMODE,I A0302326 SPC 1 A0302327 JMP* (AIONXT) GO GET THE NEXT PARAMETER A0302328 SPC 2 A0302329ATSER4 ADC TSXERR EXECUTIVE ERROR MESSAGE PROCESSOR A0302330ATSCK4 ADC TSPMCK PARAMETER PICKUP AND VERIFICATION ROUTINE A0302331ATSPM4 ADC TSCKPM PARAMETER VERIFICATION ROUTINE A0302332ATSMU4 ADC TSCKMU PARAMETER VERIFICATION ROUTINE A0302333 EJT A0302334 SPC 4 A0302335* A0302336* MRFILE I/O REQUEST PARAMETER PROCESSOR 22 A0302337* ------ A0302338* PROCESS A SEQUENTIAL FILE AND TERMINATE A0302339* A0302340 SPC 2 A0302341MRFILE RAO- FILREQ,I INDICATE A DECLARED FILE REQUEST A0302342 SPC 1   3%6 A0302343 LDA- RQTYPE,I OBTAIN THE REQUEST TYPE A0302344 AND- ONEBIT A0302345 STA- TEMPQR,I A0302346 SAN MRF010 SKIP IF THIS IS A WRITE REQUEST A0302347 SPC 1 A0302348 RAO- FIRCNO+1,I READ REQUEST, INCREMENT THE RECORD NUMBER A0302349 LDQ- ULIOTB,I A0302350 IIN 0 A0302351 LDA- IOSTAT,Q A0302352 EOR- ONEBIT+IN INDICATE AN INPUT REQUEST A0302353 STA- IOSTAT,Q A0302354 EIN 0 A0302355 JMP* MRF030 CONTINUE A0302356 SPC 1 A0302357MRF010 LDQ- ULIOTB,I A0302358 LDQ- TERMBF,Q A0302359 LDA- 4,Q A0302360 STA* MRXFR2 SPECIFY THE USERS I/O BUFFER ADDRESS A0302361 ENQ 40 A0302362 SPC 1 A0302363MRF020 INQ -1 A0302364 TRQ A A0302365 SUB- RSUSLN,I A0302366 SAM MRF030 A0302367 LDA =A BLANK FILL THE REMAINDER OF THE MESSAGE A0302368 STA* (MRXFR2),Q A0302369 JMP* MRF020 A0302370 EJT A0302371 SPC 4 A0302372MRF030 LDQ- TEMPQR,I Q = REQUEST TYPE INDEX A0302373 LDQ* FILRQA,Q A0302374 ADQ- I Q = REQBUF ADDRESS A0302375 SPC 1 A0302376 LDA- PARLST,Q A0302377 INA -4 RESET THE PARAMETER LIST ADDRESS A0302378 STA- PARLST,Q A0302379 SPC 1 A0302380 LDA* (ACCP) A0302381 STA- CNTLPT,Q SPECIFY THE CURRENT CONTROL POINT A0302382 SPC 1 A0302383 TRQ A A0302384 RTJ FMDXFR MOVE THE REQBUF HEADER A0302385 JMP FVALID AND PROCESS THE FILE REQUEST A0302386 SPC 2 A0302387FILRQA ADC IREQBF USER DECLARED INPUT FILE DATA AREA A0302388 ADC OREQBF USER DECLARED OUTPUT FILE DATA AREA A0302389 SPC 4 A0302390* R E A D / W R I T E R E Q U E S T D Aq  3%6 T A A0302391* A0302392* A N D S T O R A G E A0302393 SPC 2 A0302394MRXFR2 NUM 0 MESSAGE DATA TRANSFER ADDRESS A0302395ACCP ADC CCP CURRENT CONTROL POINT A0302396CNTAD2 ADC CONTAD CONTINUATION ADDRESS INCREMENT A0302397PROMPT ADC PROMTR INPUT PROMPTER CHARACTER A0302398 EJT A0302399* A0302400* WTREAD USER SUBROUTINE WHICH ALLOWS THE USER TO A0302401* ------ PERFORM A TERMINAL WRITE, IMMEDIATELY A0302402* FOLLOWED BY A TERMINAL READ. THIS A0302403* ELIMINATES A POSSIBLE SWAP BETWEEN THE A0302404* TWO REQUESTS A0302405* A0302406* ENTRY CONDITIONS: I = ADDR. OF LINKAGE BUFFER A0302407* (PARADD) = PARAMETER ADDRESS A0302408* LOCATION A0302409* A0302410 SPC 2 A0302411WTREAD NOP 0 ENTRY FROM UNPROTECTED MEMORY A0302412 IIN 0 A0302413 EIN 0 A0302414 SPC 1 A0302415PPWTRD LDA- RQOUTP,I A0302416 STA- WROUTP,I SAVE THE USERS OUTPUT DEVICE A0302417 LDQ- PARADD,I A0302418 LDA- (ZERO),Q A0302419 STA- LUNERR,I SET UP THE LOGICAL UNIT ERROR ADDRESS A0302420 RTJ* GETPRM A0302421 STA* PPWREQ+3 SET UP THE REQUESTED LOGICAL UNIT A0302422 RTJ* GETPRM A0302423 STA- RSBHDR+5,I SET UP THE CURSOR POSITION PRIOR TO OUTPUT A0302424 RTJ* GETPRM A0302425 STQ* PPWREQ+5 SET UP THE OUTPUT BUFFER A0302426 RTJ* GETPRM A0302427 STA* PPWREQ+4 SET UP THE OUTPUT LENGTH A0302428 RTJ* GETPRM A0302429 STA- RSBHDR+2,I SET UP THE CURSOR POSITION PRIOR TO INPUT A0302430 SPC 1 A0302431 RTJ* (ATSCK4) OBTAIN AND CHECK THE INPUT BUFFER ADDRESS A0302432 STQ- WRIBUF,I SAVE A0302433 RAO- PARADD,I A0302434 RTJ* GETPRM A0302435 TRA Q Q = INPUT BUFFER LENGTH A0302436 STQ- WRILEN,I SAVE A0302437 LDA- RQMODE,I IS CHARACTER MODE REQUESTED A0302438 SAN PPW010 NO #Z  3%6 A0302439 QLS 1 NO, CONVERT TO WORDS A0302440PPW010 ADQ- WRIBUF,I A0302441 RTJ* (ATSPM4) VERIFY THE LWA OF THE INPUT BUFFER A0302442 JMP* PPW040 ERROR A0302443 SPC 1 A0302444 RTJ* (ATSMU4) VERIFY AGAINST THE LWA OF THE USER PROGRAM A0302445 JMP* PPW040 ERROR A0302446 SPC 1 A0302447 RTJ* (ATSCK4) OBTAIN AND VERIFY THE TERMINATION CODE A0302448 STQ- WRTCAD,I SAVE THE ADDRESS A0302449 EJT A0302450 SPC 4 A0302451 ENQ 1 INDICATE A WRITE TYPE REQUEST A0302452 LDA- WRILEN,I DOES THE INPUT LENGTH = 0 A0302453 SAZ PPW020 YES, PERFORM A REGULAR WRITE ONLY A0302454 LDA- RQINPT,I NO, HAS THE USER SPECIFIED AN INPUT DEVICE A0302455 SAN PPW030 YES, PERFORM A REGULAR READ ONLY A0302456 SPC 1 A0302457 ENA 0 NO A0302458 STA- RQOUTP,I SPECIFY TERMINAL OUTPUT ONLY A0302459 ENA 3 A0302460 STA- RSBHDR+1,I SPECIFY A WRITE-READ REQUEST A0302461 SPC 1 A0302462PPW020 STQ- RQTYPE,I A0302463 LDA =XPPWREQ A0302464 STA- PARADD,I PARADD = DUMMY REQUEST ADDRESS A0302465 ENA 8 A0302466 STA* (CNTAD2) CONTINUATION INCREMENT = 8 A0302467 JMP IOPROC GO PROCESS THE REQUEST A0302468 SPC 1 A0302469PPW030 LDA- WRILEN,I SET UP THE INPUT REQUEST A0302470 STA* PPWREQ+4 A0302471 LDA- WRIBUF,I A0302472 STA* PPWREQ+5 A0302473 ENQ 0 INDICATE A READ TYPE REQUEST A0302474 JMP* PPW020 CONTINUE A0302475 SPC 1 A0302476PPW040 ENQ E06 ILLEGAL REQUEST PARAMETER A0302477 LDA- PARADD,I OBTAIN THE ADDRESS OF THE ERROR A0302478 JMP* (ATSER4) PROCESS THE ERROR MESSAGE A0302479 SPC 2 A0302480* W R I T E - R E A D R E Q U E S T D A T A A0302481* A0302482* A N D S T O R A G E A0302483 SPC 2 A0302484PPWREQ ADC 0 00 - REQUEST CODE A0302485 ADC 0 01 - COMPLETION ADDRESS A0302486 ADC 0 02 - REQUEST THREAD g  3%6 A0302487 ADC 0 03 - LOGICAL UNIT A0302488 ADC 0 04 - MESSAGE LENGTH A0302489 ADC 0 05 - MESSAGE ADDRESS A0302490 EJT A0302491 SPC 4 A0302492* A0302493* GETPRM TSPROT SUBROUTINE USED TO OBTAIN THE NEXT A0302494* ------ FORTRAN-TYPE PARAMETER A0302495* A0302496* ENTRY CONDITIONS: I = ADDR. OF LINKAGE BUFFER A0302497* (PARADD) = NEXT PARAMETER LOCATION A0302498* A0302499* EXIT CONDITIONS: Q = PARAMETER ADDRESS A0302500* A = PARAMETER VALUE A0302501* A0302502 SPC 2 A0302503GETPRM NOP 0 A0302504 SPC 1 A0302505 LDQ- PARADD,I A0302506 LDQ- (ZERO),Q Q = PARAMETER ADDRESS A0302507 LDA- (ZERO),Q A = PARAMETER VALUE A0302508 RAO- PARADD,I A0302509 JMP* (GETPRM) RETURN A0302510 SPC 2 A0302511 END A0302512 NAM TSUREQ A04 A ITOS CCS 3.0 SL-149A0400001* USER PROGRAM REQUEST PROCESSOR A0400002* CREDIT COLLECTION SYSTEM VERSION 3.0 A0400003* DATA SYSTEMS-LA JOLLA DIVISION, LA JOLLA, CALIFORNIA A0400004* COPYRIGHT CONTROL DATA CORPORATION 1979 A0400005* A0400006 SPC 2 A0400007* I T O S E N T R Y P O I N T S A0400008 SPC 1 A0400009 ENT PGMIN USER FUNCTION INITIALIZATION ROUTINE A0400010 ENT TSPMIN INITIALIZATION ROUTINE PROCESSOR A0400011 ENT PGMINT USER FUNCTION MANUAL INTERRUPT ROUTINE A0400012 ENT TSINTR MANUAL INTERRUPT PROCESSOR A0400013 ENT PGLUNT USER I/O DEVICE SPECIFICATION ROUTINE A0400014 ENT TSLUNT DEVICE SPECIFICATION PROCESSOR A0400015 ENT SLICUP MULTI-USER TIMESLICE COMPLETION ROUTINE A0400016 ENT TSLCUP TIMESLICE COMPLETION PROCESSOR A0400017 ENT ATTACH MULTI-USER ROOT ATTACHMENT ROUTINE A0400018 ENT TSATTC ATTACH REQUEST PROCESSOR A0400019 ENT CHAIN USER PROGRAM CHAIN ROUTINE A0400020 ENT TSCHAN PROGRAM CHAIN REQUEST PROCESSOR A0400021 ENT TSLMSB LOG-IN PROCESSOR SECTOR ADDRESS A0400022 ENT TSLLSB LOG-IN PROCESSOR SECTO  3%6R ADDRESS A0400023 ENT TSLSIZ LOG-IN PROCESSOR LENGTH A0400024 ENT TSXERR EXECUTIVE ERROR MESSAGE PROCESSOR A0400025 ENT PGMOUT USER FUNCTION EXIT ROUTINE A0400026 ENT TSEXIT EXIT REQUEST PROCESSOR A0400027 SPC 4 A0400028* I T O S E X T E R N A L S A0400029 SPC 1 A0400030 EXT TSTASK ITOS EXECUTIVE TASK PROCESSOR A0400031 EXT TSAREA ADDRESS OF THE USERS LINKAGE BUFFER A0400032 EXT TSURTN RETURN TO USER PROGRAM (TSTASK) A0400033 EXT TIMSLC MULTI-USER TIMESLICE PROCESSOR (TSTASK) A0400034 EXT TSATCH MULTI-USER ATTACH PROCESSOR (TSTASK) A0400035 EXT TSULBF USER LINKAGE BUFFER SECTOR ADDRESS A0400036 EXT TSNABL ITOS ENABLED INDICATOR A0400037 EXT TSCNAC MASTER TERMINAL ACTIVE INDICATOR A0400038 EXT TERMLU COMMUNICATIONS CONTROLLER LOGICAL UNIT A0400039 EXT TSMMER MASS MEMORY ERROR PROCESSOR A0400040 EXT CCP CURRENT CONTROL POINT A0400041 EXT TSCKPM PARAMETER VERIFICATION ROUTINE A0400042 EXT TSPMCK PARAMETER PICKUP AND VERIFICATION ROUTINE A0400043 EXT CPSET ACTIVATE CONTROL POINT A0400044 EXT CPREL RELEASE CONTROL POINT A0400045 EXT XMREL RELEASE EXECUTION MEMORY A0400046 EXT ONNXUM NXUM QUEUE ENTRY A0400047 EJT A0400048 SPC 4 A0400049* S Y S T E M E X T E R N A L S A0400050 SPC 1 A0400051 EXT PARTBL PARTITIONED MEMORY TABLE ADDRESS A0400052 EXT FSHARE FILE MANAGER FORCED FILE SHARE ROUTINE A0400053 EXT SYFAIL SYSTEM FAILURE PROCESSOR A0400054 SPC 2 A0400055* E Q U I V A L E N C E S A0400056 SPC 1 A0400057 EQU NZERO($12) NEGATIVE ZERO TABLE A0400058 EQU ZERO($22) LOCATION CONTAINING ZERO A0400059 EQU THREE(4) LOCATION CONTAINING THREE A0400060 EQU ADISP($EA) ADDRESS OF DISPATCHER A0400061 EQU AMONI($F4) ADDRESS OF MONITOR REQUEST ENTRY A0400062 EQU QPL1(1) QUEUE PRIORITY = 1 A0400063 EQU QPL2(2) QUEUE PRIORITY = 2 A0400064 EQU QPL3(3) QUEUE PRIORITY = 3 A0400065 EQU QPL4(4) QUEUE PRIORITY = 4 A0400066 EQU E01(01) PROGRAM PROTECT VIOLATION A0400067 EQU E06(06) ILLEGAL REQUEST PARAMETER A0400068 EJT A0400069 SPC 4 A0400070* M U L T I - U S E R P R O G R A M T  3%6A B L E E N T R I E S A0400071 SPC 1 A0400072 EQU MUROOT(ZERO) ASSOCIATED ROOT TABLE ADDRESS A0400073 EQU MUSRID(01) PROGRAM IDENTIFICATION - 4 WORDS ASCII A0400074 EQU MUSIZE(05) PROGRAM LENGTH (WORDS) A0400075 EQU MUSECT(06) PROGRAM SECTOR ADDRESS - 2 WORDS A0400076 EQU MUPAGE(08) PROGRAM BASE MEMORY PAGE NUMBER A0400077 EQU ACROOT(09) PROGRAM ACTIVE ROOT COUNT A0400078 EQU MURSIZ(10) PROGRAM TRUE LENGTH (WORDS) A0400079 EQU MUEXTH(11) PROGRAM EXECUTION THREAD A0400080 EQU MURSTX(13) PROGRAM STATE INDEX A0400081 EQU MURCLK(15) PROGRAM CLOCK VALUE A0400082 EQU MUITEM(MURCLK+1) A0400083 SPC 2 A0400084* U S E R P R O G R A M U S E R T A B L E E N T R I E S A0400085 SPC 1 A0400086 EQU TSIOTB(ZERO) ASSOCIATED I/O TABLE ADDRESS A0400087 EQU USERID(01) USER IDENTIFICATION - 4 WORDS ASCII A0400088 EQU PGMSIZ(05) USER PROGRAM LENGTH (WORDS) A0400089 EQU PGMSEC(06) USER PROGRAM SECTOR - 2 WORDS A0400090 EQU TWNSEC(08) SWAP TWIN SECTOR - 2 WORDS A0400091 EQU SWPBLK(10) USER SWAP BLOCK BYTES A0400092 EQU NEXETH(11) USER EXECUTION THREAD A0400093 EQU NSWPTH(12) USER SWAP THREAD A0400094 EQU USRSTX(13) USER STATE INDEX A0400095 EQU TSMUTB(14) MULTI USER TABLE ADDRESS A0400096 EQU NUMREQ(15) USER REQUEST COUNT A0400097 EQU USRITM(NUMREQ+1) A0400098 EJT A0400099 SPC 4 A0400100* U S E R P R O G R A M S T A T E I N D I C E S A0400101 SPC 1 A0400102 EQU SXCACT(01) EXECUTING IN MAIN MEMORY A0400103 EQU SXCTSL(02) SUSPENDED IN MAIN MEMORY-TIMESLICE COMPLETE A0400104 EQU SXCMMA(03) SUSPENDED IN MAIN MEMORY-M.M. I/O ACTIVE A0400105 EQU SXCMMC(04) SUSPENDED IN MAIN MEMORY-M.M. I/O COMPLETE A0400106 EQU SXCFMA(05) SUSPENDED IN MAIN MEMORY-FILE I/O ACTIVE A0400107 EQU SXCFMC(06) SUSPENDED IN MAIN MEMORY-FILE I/O COMPLETE A0400108 EQU SXCTMA(07) SUSPENDED IN MAIN MEMORY-TMNL I/O ACTIVE A0400109 EQU SXCTMC(08) SUSPENDED IN MAIN MEMORY-TMNL I/O COMPLETE A0400110 EQU SXCDTA(09) SUSPENDED IN MAIN MEMORY-DATA I/O ACTIVE A0400111 EQU SXCDTC(10) SUSPENDED IN MAIN MEMORY-DATA I/O COMPLETE A0400112 EQU SXCATA(11) SUSPENDED IN MAIN MEMORY-ATTACH ACTIVE A0400113 EQU SXCATC(12) SUSPENDED IN MAIN MEMORY-ATTACH COMPLETE A0400114* A0400115 EQU SXMASS(13) RESERVED A0400116 EQU SXMTSL(14) SWAPPED ON MASS MEMORY-TIMESLICE COMPLETE A0400117 EQU SXM015(15) RESERVED A0400118 EQU SXMMMC(16) SWAPPED ON MASS MEMOf  3%6RY-M.M. I/O COMPLETE A0400119 EQU SXM017(17) RESERVED A0400120 EQU SXMFMC(18) SWAPPED ON MASS MEMORY-FILE I/O COMPLETE A0400121 EQU SXMTMA(19) SWAPPED ON MASS MEMORY-TMNL I/O ACTIVE A0400122 EQU SXMTMC(20) SWAPPED ON MASS MEMORY-TMNL I/O COMPLETE A0400123 EQU SXMDTA(21) SWAPPED ON MASS MEMORY-DATA I/O ACTIVE A0400124 EQU SXMDTC(22) SWAPPED ON MASS MEMORY-DATA I/O COMPLETE A0400125 EQU SXMATA(23) SWAPPED ON MASS MEMORY-ATTACH ACTIVE A0400126 EQU SXM024(24) RESERVED A0400127* A0400128 EQU SXMUSA(25) SUSPENDED ON MASS MEMORY-UNSWAP ACTIVE A0400129 EQU SXCUSC(26) SUSPENDED IN MAIN MEMORY-UNSWAP COMPLETE A0400130 EQU SXMMUR(27) SUSPENDED ON MASS MEMORY-MULTIUSER READ A0400131 EQU SXMLOG(28) SUSPENDED ON MASS MEMORY-INITIAL LOGIN A0400132 EQU SXMJOB(29) SUSPENDED ON MASS MEMORY-JOB STEP A0400133 SPC 2 A0400134* NOTE - BIT 15 = 1 WHILE THE USER IS BEING SWAPPED A0400135 EJT A0400136 SPC 4 A0400137* U S E R P R O G R A M I / O T A B L E E N T R I E S A0400138 SPC 1 A0400139 EQU TSUSTB(ZERO) ASSOCIATED USER TABLE ADDRESS A0400140 EQU FRQBUF(01) FILE REQUEST BUFFER HEADER (4 WORDS) A0400141 EQU IORQCD(05) INPUT/OUTPUT REQUEST CODE A0400142 EQU IORQCA(06) INPUT/OUTPUT COMPLETION ADDRESS A0400143 EQU IORQTH(07) INPUT/OUTPUT THREAD WORD A0400144 EQU IORQLU(08) INPUT/OUTPUT LOGICAL UNIT A0400145 EQU IOMSLN(09) INPUT/OUTPUT MESSAGE LENGTH A0400146 EQU IOBFAD(10) INPUT/OUTPUT MESSAGE BUFFER ADDRESS A0400147 EQU IOMMSB(11) INPUT/OUTPUT MASS MEMORY ADDRESS A0400148 EQU IOMLSB(12) INPUT/OUTPUT MASS MEMORY ADDRESS A0400149 EQU IOCNPT(13) INPUT/OUTPUT CONTROL POINT A0400150 EQU IOSTAT(14) INPUT/OUTPUT STATUS WORD A0400151 EQU TERMBF(15) TERMINAL MESSAGE BUFFER ADDRESS A0400152 EQU IOITEM(TERMBF+1) A0400153 SPC 2 A0400154* USER PROGRAM I/O STATUS INDICATORS A0400155 SPC 1 A0400156* UNSOLICITED INPUT GROUP A0400157 EQU LI(00) TERMINAL LOG-IN A0400158 EQU MN(01) TERMINAL MANUAL INTERRUPT A0400159 EQU ES(02) TERMINAL ESCAPE A0400160* INPUT-OUTPUT ERROR GROUP A0400161 EQU DS(04) TERMINAL DISCONNECT A0400162 EQU ME(05) MASS MEMORY ERROR A0400163 EQU FE(06) FILE REQUEST ERROR A0400164* REQUEST TYPE GROUP A0400165 EQU IN(08) DATA INPUT REQUEST A0400166 EQU IA(09) INPUT / OUTPUT ACTIVE )  3%7  A0400167 EQU IC(10) INPUT / OUTPUT COMPLETE A0400168 EQU MM(11) MASS MEMORY I/O REQUEST A0400169 EQU TI(12) TERMINAL I/O REQUEST A0400170* TERMINAL CHARACTERISTIC GROUP A0400171* A0400172 EQU DY(TI+1) END OF THE DYNAMIC STATUS GROUP A0400173 EJT A0400174* U S E R L I N K A G E B U F F E R E N T R I E S A0400175* A0400176* THE USER LINKAGE BUFFER IMMEDIATELY PRECEEDS THE USER PROGRAM A0400177 SPC 2 A0400178 EQU LASTEP(ZERO) LAST ENTRY TO THE USER PROGRAM A0400179 EQU ULIOTB(001) USERS I/O TABLE ADDRESS A0400180 EQU ULUSTB(002) USERS USER TABLE ADDRESS A0400181 EQU RSCLOK(003) USERS REMAINING TIMESLICE A0400182 EQU FALADD(004) PROTECT FAULT ADDRESS A0400183 EQU PARADD(005) CURRENT PARAMETER ADDRESS A0400184 EQU RSP(006) P-REGISTER STORAGE A0400185 EQU RSA(007) A-REGISTER STORAGE A0400186 EQU RSQ(008) Q-REGISTER STORAGE A0400187 EQU RSI(009) I-REGISTER STORAGE A0400188 EQU RSL(010) OVERFLOW STORAGE A0400189 EQU RS1(011) 1-REGISTER STORAGE A0400190 EQU RS2(012) 2-REGISTER STORAGE A0400191 EQU RS3(013) 3-REGISTER STORAGE A0400192 EQU RS4(014) 4-REGISTER STORAGE A0400193 EQU RSUB(015) UPPER BOUNDS REGISTER STORAGE A0400194 EQU RSIORC(016) MONITOR I/O REQUEST CODE A0400195 EQU RSIOCA(017) COMPLETION ADDRESS A0400196 EQU RSIOTH(018) REQUEST THREAD A0400197 EQU RSIOLU(019) MODE + LOGICAL UNIT A0400198 EQU RSIOLN(020) LENGTH A0400199 EQU RSIOSA(021) STARTING ADDRESS A0400200 EQU RSIOMS(022) MASS MEMORY ADDRESS - MSB A0400201 EQU RSIOLS(023) MASS MEMORY ADDRESS - LSB A0400202 EQU RSIOCP(024) MONITOR REQUEST CONTROL POINT A0400203 EQU RQTYPE(025) MONITOR REQUEST TYPE INDEX A0400204 EQU RQCLAS(026) MONITOR REQUEST DEVICE CLASS CODE A0400205 EQU RQMODE(027) MONITOR REQUEST CHARACTER MODE INDICATOR A0400206 EQU REQLUN(028) MONITOR REQUEST LOGICAL UNIT A0400207 EQU RSCPAD(029) USERS MONITOR REQUEST COMPLETION ADDRESS A0400208 EQU RSUSLN(030) USERS MONITOR REQUEST MESSAGE LENGTH A0400209 EQU RSUSBF(031) USERS MONITOR REQUEST MESSAGE ADDRESS A0400210 EQU PORTNO(032) MONITOR REQUEST COMMUNICATIONS PORT NUMBER A0400211 EQU RSBHDR(032) MONITOR REQUEST MESSAGE HEADER - 6 WORDS A0400212 EQU WROUTP(038) WRITE-READ USERS OUTPUT LOGICAL UNIT A0400213 EQU WRILEN(039) WRITE-READ INPUT BUFFER LENGTH A0400214 EQU WRIBUF(040) WRITE-READ INPUT BUFFEU  3%7 R ADDRESS A0400215 EQU WRTCAD(041) WRITE-READ TERMINATION CODE ADDRESS A0400216 EQU PMCNTR(042) REQUEST PARAMETER COUNT A0400217 EQU RSCARG(043) USERS MONITOR REQUEST COMPLETION A-REGISTER A0400218 EQU RQINPT(044) USERS INPUT LOGICAL UNIT A0400219 EQU RQOUTP(045) USERS OUTPUT LOGICAL UNIT A0400220 EQU RQUN01(046) USERS SPARE LOGICAL UNIT A0400221 EQU RQUN02(047) USERS SPARE LOGICAL UNIT A0400222 EJT A0400223 SPC 4 A0400224* U S E R L I N K A G E B U F F E R E N T R I E S A0400225 SPC 2 A0400226 EQU ERRIDX(048) ERROR MESSAGE INDEX A0400227 EQU ERRADD(049) ERROR MESSAGE ADDRESS A0400228 EQU USRPGM(050) CURRENT USER PROGRAM INDEX A0400229 EQU PGMIDX(051) LOG-IN PROCESSOR PROGRAM INDEX A0400230 EQU INTADD(052) PGMINT REQUEST INTERRUPT ADDRESS A0400231 EQU INTFLG(053) PGMINT REQUEST INTERRUPT FLAG ADDRESS A0400232 EQU ATTADR(054) ATTACH REQUEST COMPLETION ADDRESS A0400233 EQU LUNERR(055) ILLEGAL LOGICAL UNIT ERROR ADDRESS A0400234 EQU FMINDX(056) FILE REQUEST TYPE INDEX A0400235 EQU SPARE0(057) SPARE ENTRY A0400236 EQU DATIME(058) DATE AND TIME FOR DAYFILE ENTRY - 6 WORDS A0400237 EQU FRQBFA(064) FILE REQUEST BUFFER ADDRESS A0400238 EQU FILREQ(065) USER DECLARED FILE REQUEST INDICATOR A0400239 EQU FMPMTR(066) FILE REQUEST PARAMETER LIST - 5 WORDS A0400240 EQU CHNAME(071) CHAIN REQUEST PROGRAM NAME - 4 WORDS A0400241 EQU MUFWAD(075) FIRST WORD ADDRESS OF THE MULTI-USER PROGRAM A0400242 EQU TEMPQR(076) TEMPORARY STORAGE - Q REGISTER A0400243 EQU TEMPAR(077) TEMPORARY STORAGE - A REGISTER A0400244 EQU RSC5E5(078) FORTRAN SCRATCH AREA STORAGE - 33 WORDS A0400245 EQU SPARE1(111) SPARE ENTRY A0400246 EQU ENDPRO(111) END OF THE PROTECTED LINKAGE BUFFER AREA A0400247* A0400248 EQU UFPARM(112) USER DECLARED FILE REQUEST PARAMETERS A0400249 EQU FISTAT(128) USER DECLARED FILE REQUEST STATUS A0400250 EQU PFNAME(129) CURRENT PROCEDURE FILE NAME - 4 WORDS A0400251 EQU MENUKY(133) REQUESTED FUNCTION MENU KEY A0400252 EQU USABRT(134) USER PROGRAM ABORT INDICATOR A0400253 EQU USMODE(135) USER EXECUTION MODE INDICATOR A0400254 EQU TMPGMX(136) TEMPORARY - PROGRAM INDEX A0400255 EQU TMSECT(137) TEMPORARY - PROGRAM SECTOR - 2 WORDS A0400256 EQU TMPLEN(139) TEMPORARY - PROGRAM LENGTH A0400257 EQU TMUSID(140) TEMPORARY - USER IDENTIFICATION - 4 WORDS A0400258 EQU IREQBF(144) INPUT FILE REQUEST BUFFER AND FCB A0400259 EQU FINAME(188) INPUT FILE NAME - 4 WORDS A0400260 EQU OREQBF(192) OUTPUT FILE REQUEST BUFFER AND FCB A0400261 EQU FONAME(236) OUTPUT FILE NAME - 4 WORDS A0400262 EQU FIRCNO(240) INPUT FILE RECORD NUM  3%74BER - 2 WORDS A0400263 EQU LULBUF(256) LENGTH OF THE LINKAGE BUFFER A0400264 EJT A0400265 SPC 4 A0400266* U S E R P R O G R A M P R O T E C T P R O C E S S O R A0400267* A0400268* C O M M O N S U B R O U T I N E P R O C E S S O R S A0400269 SPC 2 A0400270* A0400271* PGMIN USER SUBROUTINE WHICH RETURNS THE USERS A0400272* ----- STATION NUMBER, LOGICAL UNIT, AND A0400273* BASE SCRATCH FILE NUMBER A0400274* A0400275* ENTRY CONDITIONS: I = ADDR. OF LINKAGE BUFFER A0400276* (PARADD) = PARAMETER ADDRESS A0400277* LOCATION A0400278* A0400279 SPC 2 A0400280PGMIN NOP 0 ENTRY FROM UNPROTECTED MEMORY A0400281 IIN 0 A0400282 EIN 0 A0400283 SPC 1 A0400284TSPMIN RTJ* (ATSPMC) OBTAIN AND VERIFY THE USER ID BUFFER FWA A0400285 STQ* USXFR2 SAVE IT A0400286 INQ 3 A0400287 RTJ* (ATSCKP) VERIFY THE LWA OF THE ID BUFFER A0400288 JMP* PIN030 INVALID ADDRESS A0400289 SPC 1 A0400290 LDA- ULUSTB,I A0400291 INA USERID A = USER IDENTIFICATION TABLE ADDRESS A0400292 STA* USXFR1 A0400293 ENQ 3 A0400294 SPC 1 A0400295PIN010 LDA* (USXFR1),Q A0400296 STA* (USXFR2),Q MOVE THE USER ID TO THE REQUESTOR'S BUFFER A0400297 DQP *-PIN010 A0400298 EJT A0400299 SPC 4 A0400300 RAO- PARADD,I A0400301 RTJ* (ATSPMC) OBTAIN AND VERIFY THE SECOND PARAMETER A0400302 LDA* ATMNLU A0400303 STA- (ZERO),Q RETURN THE TERMINAL LOGICAL UNIT A0400304 SPC 1 A0400305 RAO- PARADD,I A0400306 RTJ* (ATSPMC) OBTAIN AND VERIFY THE THIRD PARAMETER A0400307 LDA- USMODE,I A0400308 STA- (ZERO),Q RETURN THE OPERATING MODE A0400309 SPC 1 A0400310 RAO- PARADD,I (  3%7H A0400311 RTJ* (ATSPMC) OBTAIN AND VERIFY THE FOURTH PARAMETER A0400312 LDA- PORTNO,I A0400313 STA- (ZERO),Q RETURN THE COMMUNICATIONS PORT NUMBER A0400314 SPC 1 A0400315 RAO- PARADD,I A0400316 JMP* SUBXIT RETURN TO THE CALLER A0400317 SPC 1 A0400318PIN030 ENQ E06 ILLEGAL REQUEST PARAMETER A0400319 LDA- PARADD,I OBTAIN THE ADDRESS OF THE ERROR A0400320 JMP* TSXERR PROCESS THE ERROR MESSAGE A0400321 SPC 2 A0400322ATMNLU ADC TERMLU COMMUNICATIONS CONTROLLER LOGICAL UNIT A0400323ATSPMC ADC TSPMCK PARAMETER PICKUP AND VERIFICATION ROUTINE A0400324ATSCKP ADC TSCKPM PARAMETER VERIFICATION ROUTINE A0400325USXFR1 NUM 0 USER IDENTIFICATION TRANSFER ADDRESS A0400326USXFR2 NUM 0 USER IDENTIFICATION TRANSFER ADDRESS A0400327 EJT A0400328 SPC 4 A0400329* A0400330* PGMINT USER SUBROUTINE WHICH ALLOWS THE USER TO A0400331* ------ SPECIFY AN INTERRUPT RESPONSE ADDRESS A0400332* A0400333* ENTRY CONDITIONS: I = ADDR. OF LINKAGE BUFFER A0400334* (PARADD) = PARAMETER ADDRESS A0400335* LOCATION A0400336* A0400337 SPC 2 A0400338PGMINT NOP 0 ENTRY FROM UNPROTECTED MEMORY A0400339 IIN 0 A0400340 EIN 0 A0400341 SPC 1 A0400342TSINTR RTJ* GETPRM OBTAIN THE FIRST PARAMETER A0400343 TRA Q A0400344 SQZ INT010 SKIP IF THE RESPONSE ADDRESS = 0 A0400345 RTJ* (ATSCKP) IS THE SPECIFIED ADDRESS IN THE USER AREA A0400346 JMP* INT030 NO, INDICATE AN ERROR A0400347 SPC 1 A0400348INT010 STQ- INTADD,I YES, SAVE IT IN THE LINKAGE BUFFER A0400349 RTJ* GETPRM OBTAIN THE SECOND PARAMETER A0400350 SQZ INT020 SKIP IF THE FLAG ADDRESS = 0 A0400351 RTJ* (ATSCKP) IS THE SPECIFIED ADDRESS IN THE USER AREA A0400352 JMP* INT030 NO, INDICATE AN ERROR A0400353 SPC 1 A0400354INT020 STQ- INTFLG,I SAVE THE FLAG ADDRESS IN THE LINKAGE BUFFER A0400355 SPC 1 A0400356 JMP* SUBXIT RETURN TO THE CALLER A0400357 SPC 1 A0400358INT030 ENQ E06 ILLEGAL REQUEST PARAME  3%7\TER A0400359 LDA- PARADD,I A0400360 INA -1 INDICATE THE ADDRESS OF THE ERROR A0400361 JMP* TSXERR PROCESS THE ERROR MESSAGE A0400362 EJT A0400363 SPC 4 A0400364* A0400365* PGLUNT USER SUBROUTINE WHICH ALLOWS SPECIFICATION A0400366* ------ OF AN 'INPUT' OR 'OUTPUT' DEVICE. A0400367* IT IS EXPECTED THAT THIS ROUTINE IS A0400368* CALLED ONLY BY THE USER FUNCTION A0400369* 'INPEQ' OR 'OUTEQ'. A0400370* A0400371* ENTRY CONDITIONS: I = ADDR. OF LINKAGE BUFFER A0400372* Q = UNIT TABLE INDEX (0-1) A0400373* A = SPECIFIED UNIT OR FILE A0400374* A0400375 SPC 2 A0400376PGLUNT NOP 0 ENTRY FROM UNPROTECTED MEMORY A0400377 IIN 0 A0400378 EIN 0 A0400379 SPC 1 A0400380TSLUNT LDQ- RSQ,I Q = REQUEST INDEX A0400381 LDA- RSA,I A = REQUESTED UNIT A0400382 SPC 1 A0400383 SQM TSL010 INVALID INDEX A0400384 INQ -2 A0400385 SQP TSL010 INVALID INDEX A0400386 SPC 1 A0400387 INQ 2 A0400388 STA- RQINPT,B SAVE THE SPECIFIED UNIT OR FILE A0400389 JMP* SUBXIT RETURN TO THE CALLER A0400390 SPC 1 A0400391TSL010 ENQ E01 PROGRAM PROTECT VIOLATION A0400392 LDA- FALADD,I OBTAIN THE ADDRESS OF THE ERROR A0400393 JMP* TSXERR PROCESS THE ERROR MESSAGE A0400394 EJT A0400395 SPC 4 A0400396* A0400397* SLICUP MULTI-USER SUBROUTINE USED TO PERFORM A A0400398* ------ PSEUDO-TIMESLICE COMPLETION A0400399* A0400400* ENTRY CONDITIONS: I = ADDR. OF LINKAGE BUFFER A0400401* A0400402 SPC 2 A0400403SLICUP NOP 0 ENTRY FROM UNPROTESTED MEMORY A0400404 IIN 0 A0400405 EIN 0 A0400406 SPC 1 -  3%7p A0400407TSLCUP LDQ- PARADD,I A0400408 RTJ* (ATSCKP) VERIFY THE RETURN ADDRESS A0400409 JMP* PPA010 THE RETURN IS ILLEGAL A0400410 SPC 1 A0400411 STQ- RSP,I SPECIFY THE RETURN ADDRESS A0400412 SPC 1 A0400413 JMP+ TIMSLC PROCESS THE TIMESLICE REQUEST A0400414 EJT A0400415 SPC 4 A0400416* A0400417* ATTACH MULTI-USER SUBROUTINE USED TO ALLOW A ROOT A0400418* ------ PROGRAM TO BECOME ATTACHED TO A A0400419* MULTI-USER PROGRAM A0400420* A0400421* ENTRY CONDITIONS: I = ADDR. OF LINKAGE BUFFER A0400422* A0400423 SPC 2 A0400424ATTACH NOP 0 ENTRY FROM UNPROTECTED MEMORY A0400425 IIN 0 A0400426 EIN 0 A0400427 SPC 1 A0400428TSATTC RTJ* GETPRM OBTAIN THE ATTACH INDEX A0400429 STA* TSAIDX SAVE A0400430 SPC 1 A0400431 RTJ* (ATSPMC) OBTAIN AND VERIFY THE ADDRESS PARAMETER A0400432 STQ- ATTADR,I SAVE A0400433 SPC 1 A0400434 LDQ- PARADD,I A0400435 INQ 1 A0400436 RTJ* (ATSCKP) VERIFY THE RETURN ADDRESS A0400437 JMP* PPA010 THE RETURN IS ILLEGAL A0400438 SPC 1 A0400439 STQ- RSP,I SPECIFY THE RETURN ADDRESS A0400440 LDQ* TSAIDX Q = ATTACH INDEX A0400441 JMP+ TSATCH PROCESS THE ATTACH REQUEST A0400442 SPC 1 A0400443PPA010 ENQ E01 PROGRAM PROTECT VIOLATION A0400444 LDA- PARADD,I OBTAIN THE ADDRESS OF THE ERROR A0400445 JMP* TSXERR PROCESS THE ERROR MESSAGE A0400446 SPC 2 A0400447TSAIDX ADC 0 TEMPORARY STORAGE - ATTACH INDEX A0400448 EJT A0400449 SPC 4 A0400450********************************************************************** A0400451* * A0400452* COMMON EXIT FOR TERMINAL USER SUBROUTINE REQUESTS * A0400453* * A0400454************************************************  3%7********************** A0400455 SPC 2 A0400456SUBXIT LDQ- PARADD,I OBTAIN THE RETURN ADDRESS A0400457 RTJ* (ATSCKP) IS IT IN THE USER AREA A0400458 JMP* SBX010 NO, INDICATE AN ERROR A0400459 SPC 1 A0400460 STQ- RSP,I YES, SET UP THE USERS RETURN A0400461 JMP+ TSURTN AND EXIT A0400462 SPC 1 A0400463SBX010 ENQ E01 PROGRAM PROTECT VIOLATION A0400464 LDA- PARADD,I OBTAIN THE ADDRESS OF THE ERROR A0400465 JMP* TSXERR PROCESS THE ERROR MESSAGE A0400466 SPC 4 A0400467* A0400468* GETPRM TSUREQ SUBROUTINE USED TO OBTAIN THE NEXT A0400469* ------ FORTRAN-TYPE PARAMETER A0400470* A0400471* ENTRY CONDITIONS: I = ADDR. OF LINKAGE BUFFER A0400472* (PARADD) = NEXT PARAMETER LOCATION A0400473* A0400474* EXIT CONDITIONS: Q = PARAMETER ADDRESS A0400475* A = PARAMETER VALUE A0400476* A0400477 SPC 2 A0400478GETPRM NOP 0 A0400479 SPC 1 A0400480 LDQ- PARADD,I A0400481 LDQ- (ZERO),Q Q = PARAMETER ADDRESS A0400482 LDA- (ZERO),Q A = PARAMETER VALUE A0400483 RAO- PARADD,I A0400484 SPC 1 A0400485 JMP* (GETPRM) RETURN A0400486 EJT A0400487 SPC 4 A0400488* A0400489* TSXERR EXECUTIVE ROUTINE WHICH SETS UP USER PROGRAM A0400490* ------ ERROR MESSAGES AND ABORTS THE USER A0400491* PROGRAM BY INITIATING 'TSLOG' A0400492* A0400493* ENTRY CONDITIONS: I = ADDR. OF LINKAGE BUFFER A0400494* Q = ERROR MESSAGE NUMBER A0400495* A = LOCATION OF ERROR A0400496* A0400497 SPC 2 A0400498TSXERR STQ- ERRIDX,I SAVE THE ERROR INDEX A0400499 STA- ERRADD,I AND THE ERROR ADDRESS A0400500 ENQ 2 SET UP THE TSLOG PARAMETER INDEX A0400501 STQ- RSQ,I A0400502 JMP* TSXLOG EXIT TO THE TSLOG PROG  3%7RAM A0400503 EJT A0400504 SPC 4 A0400505* CHAIN USER SUBROUTINE WHICH ALLOWS INITIATION OF A0400506* ----- ANOTHER USER FUNCTION A0400507* A0400508* ENTRY CONDITIONS: I = ADDR. OF LINKAGE BUFFER A0400509* (PARADD) = PARAMETER ADDRESS A0400510* LOCATION A0400511* A0400512 SPC 2 A0400513CHAIN NOP 0 ENTRY FROM UNPROTECTED MEMORY A0400514 IIN 0 A0400515 EIN 0 A0400516 SPC 1 A0400517TSCHAN RTJ* GETPRM A0400518 STQ* USXFR1 SAVE THE PROGRAM NAME ADDRESS A0400519 ENQ 3 A0400520 SPC 1 A0400521TSC010 LDA* (USXFR1),Q MOVE THE PROGRAM NAME TO THE LINKAGE BUFFER A0400522 STA- CHNAME,B A0400523 DQP *-TSC010 A0400524 SPC 1 A0400525 ENQ 3 SPECIFY A PROGRAM CHAIN REQUEST A0400526 STQ- RSQ,I A0400527 JMP* TSXLOG INITIATE THE REQUESTED PROGRAM A0400528 EJT A0400529 SPC 4 A0400530* A0400531* PGMOUT USER SUBROUTINE WHICH PROCESSES THE USERS A0400532* ------ REQUEST TO EXIT. THIS ROUTINE IS ALSO A0400533* ENTERED BY THE LOG-IN PROCESSOR (TSLOG) A0400534* DURING THE LOG-IN AND LOG-OUT PROCESS A0400535* A0400536* ENTRY CONDITIONS: I = ADDR. OF LINKAGE BUFFER A0400537* (PARADD) = PARAMETER ADDRESS A0400538* LOCATION A0400539* A0400540 SPC 2 A0400541PGMOUT NOP 0 ENTRY FROM UNPROTECTED MEMORY A0400542 IIN 0 A0400543 EIN 0 A0400544 SPC 1 A0400545TSEXIT LDA- USRPGM,I IS THE CALL FROM TSLOG A0400546 SAN XIT010 NO A0400547 SPC 1 A0400548 LDQ- RSQ,I OBTAIN THE REQUEST INDEX A0400549 LDQ* XITTBL,Q OBTAIN THE REQUEST PROCESSOR ADDRESS A0400550 JMP- (ZERO),Q PROCESS THE REQUEST  3%7 A0400551 SPC 2 A0400552XITTBL ADC XIT100 00 - FINAL EXIT A0400553 ADC XIT200 01 - START A NEW PROGRAM A0400554 SPC 4 A0400555XIT010 ENQ 1 USER PROGRAM TERMINATION A0400556 STQ- RSQ,I SET UP THE TSLOG PARAMETER A0400557 JMP* TSXLOG AND INITIATE THE TSLOG PROGRAM A0400558 EJT A0400559********************************************************************** A0400560* * A0400561* TIMESHARE LOG-OUT INITIATION PROCESSOR * A0400562* * A0400563********************************************************************** A0400564 SPC 1 A0400565TSXLOG LDQ- ULIOTB,I A0400566 IIN 0 A0400567 LDA- IOSTAT,Q A0400568 AND- NZERO+DY CLEAR ANY OUTSTANDING I/O STATUS A0400569 STA- IOSTAT,Q A0400570 EIN 0 A0400571 LDQ- USRPGM,I A0400572 STQ- PGMIDX,I SAVE THE PROGRAM INDEX FOR TSLOG A0400573 ENA 0 A0400574 STA- TMPGMX,I INDICATE THAT TSLOG IS THE ACTIVE PROGRAM A0400575 STA- RSCPAD,I RELEASE ANY I/O COMPLETION ADDRESS A0400576 STA- RQINPT,I RETURN TO TERMINAL I/O A0400577 STA- RQOUTP,I A0400578 STA- USABRT,I RESET THE PROGRAM ABORT INDICATOR A0400579 SQN XTL010 SKIP IF THE REQUEST IS NOT FROM TSLOG A0400580 LDQ* APRTBL A0400581 LDA- 2,Q A = START OF THE USER AREA A0400582 STA- RSP,I A0400583 JMP+ TSURTN RETURN TO THE TSLOG PROGRAM A0400584 SPC 1 A0400585XTL010 LDA- ULUSTB,I A0400586 STA- I I = USER TABLE ADDRESS A0400587 RTJ+ FSHARE FORCE SHARE THE USERS FILES A0400588 LDQ- TSMUTB,I IS THE CALLER AN ATTACHED ROOT A0400589 SQZ XTL030 NO A0400590 ENA 0 YES, DETACH THE ROOT A0400591 STA- TSMUTB,I A0400592 LDA- ACROOT,Q A0400593 INA -1 DECREASE THE ACTIVE ROOT COUNT A0400594 SAP XTL020 A0400595 RTJ* (ASYFAL) ILLEGAL ROOT COUNT, FATAL ERROR A0400596XTL020 STA- ACROOT,Q A0400597 SPC 1 A0400598XTL030 LDA* TSLSIZ   3%7 A0400599 ADD* ULBSIZ A0400600 STA- PGMSIZ,I SPECIFY THE PROGRAM LENGTH A0400601 LDA* TSLMSB A0400602 STA- PGMSEC,I AND THE SECTOR ADDRESS OF TSLOG A0400603 LDA* TSLLSB A0400604 STA- PGMSEC+1,I A0400605 LDA* (ATSARA) A0400606 STA- I I = LINKAGE BUFFER ADDRESS A0400607 LDQ- ULUSTB,I Q = USER TABLE ADDRESS A0400608 JMP* XITJOB INITIATE THE LOG-IN PROCESSOR A0400609 EJT A0400610* A0400611* ULBSAV TSUREQ SUBROUTINE USED TO SAVE THE USER A0400612* ------ LINKAGE BUFFER ON MASS MEMORY BETWEEN A0400613* JOB STEPS A0400614* A0400615* ENTRY CONDITIONS: I = ADDR. OF LINKAGE BUFFER A0400616* A0400617* EXIT CONDITIONS: I = ADDR. OF LINKAGE BUFFER A0400618* A0400619 SPC 2 A0400620ULBSAV NOP 0 A0400621 SPC 1 A0400622 LDA- PORTNO,I A0400623 MUI- THREE CALCULATE THE ULB SECTOR FOR THIS PORT A0400624 ADD+ TSULBF A0400625 STA* ULBSEC A0400626 LDA- I A0400627 STA* ULBADD SPECIFY THE START OF THE LINKAGE BUFFER A0400628 LDA* (ACCP) A0400629 STA* ULBCCP A0400630 SPC 1 A0400631 RTJ- (AMONI) SAVE THE USER LINKAGE BUFFER A0400632 ADC $6000 A0400633 ADC ULBREQ A0400634 JMP- (ADISP) A0400635 SPC 1 A0400636ULB010 SQP ULB020 A0400637 RTJ+ TSMMER MASS MEMORY ERROR A0400638ULB020 LDA* (ATSARA) A0400639 STA- I RESTORE THE LINKAGE BUFFER ADDRESS A0400640 LDQ* ULBCCP A0400641 RTJ+ CPSET RESTORE THE USERS CONTROL POINT A0400642 SPC 1 A0400643 JMP* (ULBSAV) RETURN A0400644 SPC 2 A0400645ULBREQ ADC $4CF4 FORMATTED WRITE A0400646 ADC ULB010 COMPLETION ADDRESS _  3%7 A0400647 ADC 0 REQUEST THREAD A0400648 ADC $08C2 LOGICAL UNIT A0400649ULBSIZ ADC LULBUF LINKAGE BUFFER LENGTH A0400650ULBADD ADC 0 LINKAGE BUFFER ADDRESS A0400651 NUM $8000 A0400652ULBSEC ADC 0 LINKAGE BUFFER SECTOR A0400653ULBCCP ADC 0 LINKAGE BUFFER CONTROL POINT A0400654 EJT A0400655 SPC 4 A0400656* L O G - O U T P R O C E S S O R D A T A A0400657 SPC 2 A0400658ACCP ADC CCP CURRENT SYSTEM CONTROL POINT A0400659ATSARA ADC TSAREA START OF THE ITOS USER AREA A0400660ATSCNC ADC TSCNAC MASTER TERMINAL ACTIVE INDICATOR A0400661ATSNBL ADC TSNABL ITOS ACTIVE INDICATOR A0400662APRTBL ADC PARTBL SYSTEM PARTITIONED MEMORY TABLE A0400663TSLMSB ADC 0 TSLOG SECTOR ADDRESS A0400664TSLLSB ADC 0 TSLOG SECTOR ADDRESS A0400665TSLSIZ ADC 0 TSLOG PROGRAM LENGTH A0400666 EJT A0400667 SPC 4 A0400668********************************************************************** A0400669* * A0400670* REQUEST INDEX = 0 - TIMESHARE USER PROGRAM FINAL EXIT * A0400671* * A0400672********************************************************************** A0400673 SPC 2 A0400674XIT100 LDA- ULUSTB,I A0400675 ENQ USRITM-1 A0400676 RTJ* CLTABL RELEASE THE ITOS USER TABLE A0400677 SPC 1 A0400678 LDQ- ULIOTB,I A0400679 ENA 0 RELEASE THE USER I/O TABLE A0400680 STA- (TSUSTB),Q A0400681 SPC 1 A0400682 LDA- PORTNO,I IS THE MASTER CONSOLE LOGGING OFF A0400683 SAN XIT110 NO A0400684 SPC 1 A0400685 ENA 0 YES A0400686 STA* (ATSCNC) INDICATE THE MASTER CONSOLE IS NOT ACTIVE A0400687 SPC 1 A0400688XIT110 LDA* (ATSNBL) IS THE SYSTEM BEING STOPPED A0400689 SAP XIT120 NO A0400690 RAO* (ATSNBL) YES, REMOVE THIS USER FROM THE ACTIVE COUNT A0400691 SPC 1 A0400692XIT120 RTJ* RELPGM RELEASE THE USERS MEMORY AND CONTROL POINT A0400693 SPC 1 A0400694 ENQ 0 START ANOTHER USER A  3%7 A0400695 JMP+ TSTASK A0400696 EJT A0400697********************************************************************** A0400698* * A0400699* REQUEST INDEX = 1 - INITIATE A REQUESTED TIMESHARE PROGRAM * A0400700* * A0400701********************************************************************** A0400702 SPC 2 A0400703XIT200 LDQ- ULUSTB,I A0400704 INQ USERID A0400705 LDA- (ZERO),Q IS THE USER IDENTIFICATION DEFINED A0400706 SAN XIT220 YES, CONTINUE A0400707 SPC 1 A0400708 STQ* XITXFR NO A0400709 ENQ 3 A0400710XIT210 LDA- TMUSID,B MOVE THE USER ID. TO THE USER TABLE A0400711 STA* (XITXFR),Q A0400712 DQP *-XIT210 A0400713 SPC 1 A0400714XIT220 LDQ- ULUSTB,I Q = USER TABLE ADDRESS A0400715 LDA- TMSECT+0,I A0400716 STA- PGMSEC+0,Q SPECIFY THE NEW PROGRAMS SECTOR A0400717 LDA- TMSECT+1,I A0400718 STA- PGMSEC+1,Q A0400719 LDA- TMPLEN,I A0400720 ADD* ULBSIZ INCLUDE THE LINKAGE BUFFER IN THE LENGTH A0400721 STA- PGMSIZ,Q SPECIFY THE PROGRAM LENGTH A0400722 SPC 1 A0400723XITJOB ENA SXMJOB SPECIFY A JOB STEP SEQUENCE A0400724 STA- USRSTX,Q A0400725 SPC 1 A0400726 TRQ A A = USER TABLE ADDRESS A0400727 ENQ QPL3 QUEUE PRIORITY = 3 A0400728 RTJ+ ONNXUM ADD THIS USER TO THE NXUM QUEUE A0400729 SPC 1 A0400730 RTJ* ULBSAV SAVE THE USER LINKAGE BUFFER A0400731 SPC 1 A0400732 RTJ* RELPGM RELEASE THE USERS MEMORY AND CONTROL POINT A0400733 SPC 1 A0400734 ENQ 0 START ANOTHER USER A0400735 JMP+ TSTASK A0400736 SPC 4 A0400737* D A T A A N D S T O R A G E A0400738 SPC 1 A0400739ASYFAL ADC SYFAIL SYSTEM FAILURE PROCESSOR A0400740XITXFR NUM 0 DATA TRANSFER ADDRESS A0400741 EJT A0400742* xl  3%7 A0400743* RELPGM TSUREQ SUBROUTINE USED TO RELEASE THE USERS A0400744* ------ EXECUTION MEMORY AND CONTROL POINT A0400745* A0400746* ENTRY CONDITIONS: I = ADDR. OF LINKAGE BUFFER A0400747* A0400748 SPC 2 A0400749RELPGM NOP 0 A0400750 SPC 1 A0400751 LDA- ULUSTB,I A0400752 STA- I I = USER TABLE ADDRESS A0400753 RTJ+ XMREL RELEASE THE USERS MEMORY A0400754 SQP REL010 A0400755 RTJ* (ASYFAL) REQUEST REJECTED, FATAL ERROR A0400756 SPC 1 A0400757REL010 LDQ* (ACCP) A0400758 RTJ+ CPREL RELEASE THE USERS CONTROL POINT A0400759 SPC 1 A0400760 JMP* (RELPGM) RETURN A0400761 SPC 2 A0400762* A0400763* CLTABL TSUREQ SUBROUTINE USED TO PLACE ZEROS IN A A0400764* ------ SPECIFIED TABLE AREA A0400765* A0400766* ENTRY CONDITIONS: I = ADDR. OF LINKAGE BUFFER A0400767* A = FWA TO CLEAR A0400768* Q = NO. OF WORDS TO CLEAR A0400769* A0400770 SPC 2 A0400771CLTABL NOP 0 A0400772 SPC 1 A0400773 STA* XITXFR SAVE THE BASE ADDRESS A0400774 CLR A A0400775 SPC 1 A0400776CLT010 STA* (XITXFR),Q ZERO THE ENTRY A0400777 DQP *-CLT010 A0400778 SPC 1 A0400779 JMP* (CLTABL) RETURN A0400780 SPC 2 A0400781 END A0400782 NAM TSIOCP A05 A ITOS CCS 3.0 SL-149A0500001* USER PROGRAM I/O COMPLETION PROCESSOR A0500002* CREDIT COLLECTION SYSTEM VERSION 3.0 A0500003* DATA SYSTEMS-LA JOLLA DIVISION, LA JOLLA, CALIFORNIA A0500004* COPYRIGHT CONTROL DATA CORPORATION 1979 A0500005* A0500006 SPC 2 A0500007* I T O S E N T R Y P O I N T S A0500008 SPC 1 a  3%8 A0500009 ENT TSLICE USER TIMESLICE COMPLETION PROCESSOR A0500010 ENT TSUSCP USER UNSWAP COMPLETION PROCESSOR A0500011 ENT TSIOC1 USER I/O COMPLETION PROCESSOR - TYPE 1 A0500012 ENT TSIOC2 USER I/O COMPLETION PROCESSOR - TYPE 2 A0500013 ENT TSFMCP USER FILE REQUEST COMPLETION PROCESSOR A0500014 SPC 2 A0500015* I T O S E X T E R N A L S A0500016 SPC 1 A0500017 EXT TSMMER ITOS EXECUTIVE MASS MEMORY ERROR ROUTINE A0500018 EXT REAREQ UNSWAP REQUEST PARAMETER LIST A0500019 EXT TSPORT I/O TABLE STARTING ADDRESS A0500020 EXT TSPEND I/O TABLE ENDING ADDRESS A0500021 EXT CPSET ACTIVATE CONTROL POINT A0500022 EXT ONNXUC NXUC QUEUE ENTRY A0500023 EXT ONNXUM NXUM QUEUE ENTRY A0500024 EXT ONNSWP NSWP QUEUE ENTRY A0500025 EXT DENSWP NSWP QUEUE DELETION A0500026 EXT TSBGIN ITOS EXECUTIVE INITIATION ROUTINE A0500027 EXT TSNABL ITOS ENABLED INDICATOR A0500028 EXT TSCNAC MASTER TERMINAL ACTIVE INDICATOR A0500029 EXT TSOFFM ADDRESS OF THE 'OFF UNTIL MESSAGE' A0500030 EXT TSLOFF LENGTH OF THE 'OFF UNTIL MESSAGE' A0500031 EXT TSACTV ITOS ACTIVE INDICATOR A0500032 EXT EXPIRE MULTI-USER TIMESLICE SEMAPHORE A0500033 EXT TSCKPM PARAMETER VERIFICATION ROUTINE A0500034 EXT TSVFTN FORTRAN AREA SAVE ROUTINE A0500035 EXT TSAREA START OF THE ITOS USER AREA A0500036 SPC 2 A0500037* S Y S T E M E X T E R N A L S A0500038 SPC 1 A0500039 EXT SYFAIL SYSTEM FAILURE PROCESSOR A0500040 EXT LOG1A SYSTEM DEVICE TABLE A0500041 EJT A0500042* E Q U I V A L E N C E S A0500043 SPC 1 A0500044 EQU LPMASK($2) BIT MASK TABLE A0500045 EQU NZERO($12) NEGATIVE ZERO TABLE A0500046 EQU ZERO($22) LOCATION CONTAINING ZERO A0500047 EQU ONEBIT($23) SINGLE BIT TABLE A0500048 EQU ZROBIT($33) ZERO BIT TABLE A0500049 EQU INTSTK($B8) TOP ENTRY IN THE INTERRUPT STACK A0500050 EQU ADISP($EA) ADDRESS OF DISPATCHER A0500051 EQU AMONI($F4) ADDRESS OF MONITOR REQUEST ENTRY A0500052 EQU EXTSTK(27) EXTENDED INTERRUPT STACK (EXT. CORE TABLE) A0500053 EQU ESTAT2(12) DEVICE STATUS ENTRY IN THE P. D. T. A0500054 EQU LOGIN($2B) LOG-IN CHARACTER (PLUS SIGN) A0500055 EQU ESCAP(05) ESCAPE FUNCTION TERMINATION CODE A0500056 EQU MANIN(06) MANUAL INTERRUPT TERMI%  3&8$NATION CODE A0500057 EQU USRADD(9) UNSWAP REQUEST USER TABLE ADDRESS PARAMETER A0500058 EQU QPL4(4) QUEUE PRIORITY = 4 A0500059 EQU QPL3(3) QUEUE PRIORITY = 3 A0500060 EQU QPL2(2) QUEUE PRIORITY = 2 A0500061 EQU QPL1(1) QUEUE PRIORITY = 1 A0500062 EJT A0500063 SPC 4 A0500064* M U L T I - U S E R P R O G R A M T A B L E E N T R I E S A0500065 SPC 1 A0500066 EQU MUROOT(ZERO) ASSOCIATED ROOT TABLE ADDRESS A0500067 EQU MUSRID(01) PROGRAM IDENTIFICATION - 4 WORDS ASCII A0500068 EQU MUSIZE(05) PROGRAM LENGTH (WORDS) A0500069 EQU MUSECT(06) PROGRAM SECTOR ADDRESS - 2 WORDS A0500070 EQU MUPAGE(08) PROGRAM BASE MEMORY PAGE NUMBER A0500071 EQU ACROOT(09) PROGRAM ACTIVE ROOT COUNT A0500072 EQU MURSIZ(10) PROGRAM TRUE LENGTH (WORDS) A0500073 EQU MUEXTH(11) PROGRAM EXECUTION THREAD A0500074 EQU MURSTX(13) PROGRAM STATE INDEX A0500075 EQU MURCLK(15) PROGRAM CLOCK VALUE A0500076 EQU MUITEM(MURCLK+1) A0500077 SPC 2 A0500078* U S E R P R O G R A M U S E R T A B L E E N T R I E S A0500079 SPC 1 A0500080 EQU TSIOTB(ZERO) ASSOCIATED I/O TABLE ADDRESS A0500081 EQU USERID(01) USER IDENTIFICATION - 4 WORDS ASCII A0500082 EQU PGMSIZ(05) USER PROGRAM LENGTH (WORDS) A0500083 EQU PGMSEC(06) USER PROGRAM SECTOR - 2 WORDS A0500084 EQU TWNSEC(08) SWAP TWIN SECTOR - 2 WORDS A0500085 EQU SWPBLK(10) USER SWAP BLOCK BYTES A0500086 EQU NEXETH(11) USER EXECUTION THREAD A0500087 EQU NSWPTH(12) USER SWAP THREAD A0500088 EQU USRSTX(13) USER STATE INDEX A0500089 EQU TSMUTB(14) MULTI USER TABLE ADDRESS A0500090 EQU NUMREQ(15) USER REQUEST COUNT A0500091 EQU USRITM(NUMREQ+1) A0500092 EJT A0500093 SPC 4 A0500094* U S E R P R O G R A M S T A T E I N D I C E S A0500095 SPC 1 A0500096 EQU SXCACT(01) EXECUTING IN MAIN MEMORY A0500097 EQU SXCTSL(02) SUSPENDED IN MAIN MEMORY-TIMESLICE COMPLETE A0500098 EQU SXCMMA(03) SUSPENDED IN MAIN MEMORY-M.M. I/O ACTIVE A0500099 EQU SXCMMC(04) SUSPENDED IN MAIN MEMORY-M.M. I/O COMPLETE A0500100 EQU SXCFMA(05) SUSPENDED IN MAIN MEMORY-FILE I/O ACTIVE A0500101 EQU SXCFMC(06) SUSPENDED IN MAIN MEMORY-FILE I/O COMPLETE A0500102 EQU SXCTMA(07) SUSPENDED IN MAIN MEMORY-TMNL I/O ACTIVE A0500103 EQU SXCTMC(08) SUSPENDED IN MAIN MEMORY-TMNL I/O COMPLETE A0500104 EQU SXCDTA(09) SUSPENDED IN MAIN MEMOӶ  3&88RY-DATA I/O ACTIVE A0500105 EQU SXCDTC(10) SUSPENDED IN MAIN MEMORY-DATA I/O COMPLETE A0500106 EQU SXCATA(11) SUSPENDED IN MAIN MEMORY-ATTACH ACTIVE A0500107 EQU SXCATC(12) SUSPENDED IN MAIN MEMORY-ATTACH COMPLETE A0500108* A0500109 EQU SXMASS(13) RESERVED A0500110 EQU SXMTSL(14) SWAPPED ON MASS MEMORY-TIMESLICE COMPLETE A0500111 EQU SXM015(15) RESERVED A0500112 EQU SXMMMC(16) SWAPPED ON MASS MEMORY-M.M. I/O COMPLETE A0500113 EQU SXM017(17) RESERVED A0500114 EQU SXMFMC(18) SWAPPED ON MASS MEMORY-FILE I/O COMPLETE A0500115 EQU SXMTMA(19) SWAPPED ON MASS MEMORY-TMNL I/O ACTIVE A0500116 EQU SXMTMC(20) SWAPPED ON MASS MEMORY-TMNL I/O COMPLETE A0500117 EQU SXMDTA(21) SWAPPED ON MASS MEMORY-DATA I/O ACTIVE A0500118 EQU SXMDTC(22) SWAPPED ON MASS MEMORY-DATA I/O COMPLETE A0500119 EQU SXMATA(23) SWAPPED ON MASS MEMORY-ATTACH ACTIVE A0500120 EQU SXM024(24) RESERVED A0500121* A0500122 EQU SXMUSA(25) SUSPENDED ON MASS MEMORY-UNSWAP ACTIVE A0500123 EQU SXCUSC(26) SUSPENDED IN MAIN MEMORY-UNSWAP COMPLETE A0500124 EQU SXMMUR(27) SUSPENDED ON MASS MEMORY-MULTIUSER READ A0500125 EQU SXMLOG(28) SUSPENDED ON MASS MEMORY-INITIAL LOGIN A0500126 EQU SXMJOB(29) SUSPENDED ON MASS MEMORY-JOB STEP A0500127 SPC 2 A0500128* NOTE - BIT 15 = 1 WHILE THE USER IS BEING SWAPPED A0500129 EJT A0500130 SPC 4 A0500131* U S E R P R O G R A M I / O T A B L E E N T R I E S A0500132 SPC 1 A0500133 EQU TSUSTB(ZERO) ASSOCIATED USER TABLE ADDRESS A0500134 EQU FRQBUF(01) FILE REQUEST BUFFER HEADER (4 WORDS) A0500135 EQU IORQCD(05) INPUT/OUTPUT REQUEST CODE A0500136 EQU IORQCA(06) INPUT/OUTPUT COMPLETION ADDRESS A0500137 EQU IORQTH(07) INPUT/OUTPUT THREAD WORD A0500138 EQU IORQLU(08) INPUT/OUTPUT LOGICAL UNIT A0500139 EQU IOMSLN(09) INPUT/OUTPUT MESSAGE LENGTH A0500140 EQU IOBFAD(10) INPUT/OUTPUT MESSAGE BUFFER ADDRESS A0500141 EQU IOMMSB(11) INPUT/OUTPUT MASS MEMORY ADDRESS A0500142 EQU IOMLSB(12) INPUT/OUTPUT MASS MEMORY ADDRESS A0500143 EQU IOCNPT(13) INPUT/OUTPUT CONTROL POINT A0500144 EQU IOSTAT(14) INPUT/OUTPUT STATUS WORD A0500145 EQU TERMBF(15) TERMINAL MESSAGE BUFFER ADDRESS A0500146 EQU IOITEM(TERMBF+1) A0500147 SPC 2 A0500148* USER PROGRAM I/O STATUS INDICATORS A0500149 SPC 1 A0500150* UNSOLICITED INPUT GROUP A0500151 EQU LI(00) TERMINAL LOG-IN A0500152 EQU MN(01) TERMINAL MANUAL INTERRi  3&8LUPT A0500153 EQU ES(02) TERMINAL ESCAPE A0500154* INPUT-OUTPUT ERROR GROUP A0500155 EQU DS(04) TERMINAL DISCONNECT A0500156 EQU ME(05) MASS MEMORY ERROR A0500157 EQU FE(06) FILE REQUEST ERROR A0500158* REQUEST TYPE GROUP A0500159 EQU IN(08) DATA INPUT REQUEST A0500160 EQU IA(09) INPUT / OUTPUT ACTIVE A0500161 EQU IC(10) INPUT / OUTPUT COMPLETE A0500162 EQU MM(11) MASS MEMORY I/O REQUEST A0500163 EQU TI(12) TERMINAL I/O REQUEST A0500164* TERMINAL CHARACTERISTIC GROUP A0500165* A0500166 EQU DY(TI+1) END OF THE DYNAMIC STATUS GROUP A0500167 EJT A0500168* U S E R L I N K A G E B U F F E R E N T R I E S A0500169* A0500170* THE USER LINKAGE BUFFER IMMEDIATELY PRECEEDS THE USER PROGRAM A0500171 SPC 2 A0500172 EQU LASTEP(ZERO) LAST ENTRY TO THE USER PROGRAM A0500173 EQU ULIOTB(001) USERS I/O TABLE ADDRESS A0500174 EQU ULUSTB(002) USERS USER TABLE ADDRESS A0500175 EQU RSCLOK(003) USERS REMAINING TIMESLICE A0500176 EQU FALADD(004) PROTECT FAULT ADDRESS A0500177 EQU PARADD(005) CURRENT PARAMETER ADDRESS A0500178 EQU RSP(006) P-REGISTER STORAGE A0500179 EQU RSA(007) A-REGISTER STORAGE A0500180 EQU RSQ(008) Q-REGISTER STORAGE A0500181 EQU RSI(009) I-REGISTER STORAGE A0500182 EQU RSL(010) OVERFLOW STORAGE A0500183 EQU RS1(011) 1-REGISTER STORAGE A0500184 EQU RS2(012) 2-REGISTER STORAGE A0500185 EQU RS3(013) 3-REGISTER STORAGE A0500186 EQU RS4(014) 4-REGISTER STORAGE A0500187 EQU RSUB(015) UPPER BOUNDS REGISTER STORAGE A0500188 EQU RSIORC(016) MONITOR I/O REQUEST CODE A0500189 EQU RSIOCA(017) COMPLETION ADDRESS A0500190 EQU RSIOTH(018) REQUEST THREAD A0500191 EQU RSIOLU(019) MODE + LOGICAL UNIT A0500192 EQU RSIOLN(020) LENGTH A0500193 EQU RSIOSA(021) STARTING ADDRESS A0500194 EQU RSIOMS(022) MASS MEMORY ADDRESS - MSB A0500195 EQU RSIOLS(023) MASS MEMORY ADDRESS - LSB A0500196 EQU RSIOCP(024) MONITOR REQUEST CONTROL POINT A0500197 EQU RQTYPE(025) MONITOR REQUEST TYPE INDEX A0500198 EQU RQCLAS(026) MONITOR REQUEST DEVICE CLASS CODE A0500199 EQU RQMODE(027) MONITOR REQUEST CHARACTER MODE INDICATOR A0500200 EQU REQLUN(028) MONITOR REQUEST LOGICA  3&8`L UNIT A0500201 EQU RSCPAD(029) USERS MONITOR REQUEST COMPLETION ADDRESS A0500202 EQU RSUSLN(030) USERS MONITOR REQUEST MESSAGE LENGTH A0500203 EQU RSUSBF(031) USERS MONITOR REQUEST MESSAGE ADDRESS A0500204 EQU PORTNO(032) MONITOR REQUEST COMMUNICATIONS PORT NUMBER A0500205 EQU RSBHDR(032) MONITOR REQUEST MESSAGE HEADER - 6 WORDS A0500206 EQU WROUTP(038) WRITE-READ USERS OUTPUT LOGICAL UNIT A0500207 EQU WRILEN(039) WRITE-READ INPUT BUFFER LENGTH A0500208 EQU WRIBUF(040) WRITE-READ INPUT BUFFER ADDRESS A0500209 EQU WRTCAD(041) WRITE-READ TERMINATION CODE ADDRESS A0500210 EQU PMCNTR(042) REQUEST PARAMETER COUNT A0500211 EQU RSCARG(043) USERS MONITOR REQUEST COMPLETION A-REGISTER A0500212 EQU RQINPT(044) USERS INPUT LOGICAL UNIT A0500213 EQU RQOUTP(045) USERS OUTPUT LOGICAL UNIT A0500214 EQU RQUN01(046) USERS SPARE LOGICAL UNIT A0500215 EQU RQUN02(047) USERS SPARE LOGICAL UNIT A0500216 EJT A0500217 SPC 4 A0500218* U S E R L I N K A G E B U F F E R E N T R I E S A0500219 SPC 2 A0500220 EQU ERRIDX(048) ERROR MESSAGE INDEX A0500221 EQU ERRADD(049) ERROR MESSAGE ADDRESS A0500222 EQU USRPGM(050) CURRENT USER PROGRAM INDEX A0500223 EQU PGMIDX(051) LOG-IN PROCESSOR PROGRAM INDEX A0500224 EQU INTADD(052) PGMINT REQUEST INTERRUPT ADDRESS A0500225 EQU INTFLG(053) PGMINT REQUEST INTERRUPT FLAG ADDRESS A0500226 EQU ATTADR(054) ATTACH REQUEST COMPLETION ADDRESS A0500227 EQU LUNERR(055) ILLEGAL LOGICAL UNIT ERROR ADDRESS A0500228 EQU FMINDX(056) FILE REQUEST TYPE INDEX A0500229 EQU SPARE0(057) SPARE ENTRY A0500230 EQU DATIME(058) DATE AND TIME FOR DAYFILE ENTRY - 6 WORDS A0500231 EQU FRQBFA(064) FILE REQUEST BUFFER ADDRESS A0500232 EQU FILREQ(065) USER DECLARED FILE REQUEST INDICATOR A0500233 EQU FMPMTR(066) FILE REQUEST PARAMETER LIST - 5 WORDS A0500234 EQU CHNAME(071) CHAIN REQUEST PROGRAM NAME - 4 WORDS A0500235 EQU MUFWAD(075) FIRST WORD ADDRESS OF THE MULTI-USER PROGRAM A0500236 EQU TEMPQR(076) TEMPORARY STORAGE - Q REGISTER A0500237 EQU TEMPAR(077) TEMPORARY STORAGE - A REGISTER A0500238 EQU RSC5E5(078) FORTRAN SCRATCH AREA STORAGE - 33 WORDS A0500239 EQU SPARE1(111) SPARE ENTRY A0500240 EQU ENDPRO(111) END OF THE PROTECTED LINKAGE BUFFER AREA A0500241* A0500242 EQU UFPARM(112) USER DECLARED FILE REQUEST PARAMETERS A0500243 EQU FISTAT(128) USER DECLARED FILE REQUEST STATUS A0500244 EQU PFNAME(129) CURRENT PROCEDURE FILE NAME - 4 WORDS A0500245 EQU MENUKY(133) REQUESTED FUNCTION MENU KEY A0500246 EQU USABRT(134) USER PROGRAM ABORT INDICATOR A0500247 EQU USMODE(135) USER EXECUTION MODE INDICATOR A0500248 EQU TMPGMX(136) TEMPORARY - PROGRAM INY  3&8tDEX A0500249 EQU TMSECT(137) TEMPORARY - PROGRAM SECTOR - 2 WORDS A0500250 EQU TMPLEN(139) TEMPORARY - PROGRAM LENGTH A0500251 EQU TMUSID(140) TEMPORARY - USER IDENTIFICATION - 4 WORDS A0500252 EQU IREQBF(144) INPUT FILE REQUEST BUFFER AND FCB A0500253 EQU FINAME(188) INPUT FILE NAME - 4 WORDS A0500254 EQU OREQBF(192) OUTPUT FILE REQUEST BUFFER AND FCB A0500255 EQU FONAME(236) OUTPUT FILE NAME - 4 WORDS A0500256 EQU FIRCNO(240) INPUT FILE RECORD NUMBER - 2 WORDS A0500257 EQU LULBUF(256) LENGTH OF THE LINKAGE BUFFER A0500258 EJT A0500259********************************************************************** A0500260* * A0500261* USER TIMESLICE COMPLETION PROCESSOR * A0500262* * A0500263* ENTRY CONDITIONS: (TSACTV) = USERS EXECUTION THREAD * A0500264* * A0500265********************************************************************** A0500266 SPC 2 A0500267TSLICE LDQ* (ATSACT) IS A USER ACTIVE A0500268 SQN TSL010 YES A0500269 JMP- (ADISP) NO, IGNORE THE FINAL TIMESLICE ENTRY A0500270 SPC 1 A0500271TSL010 INQ -NEXETH Q = ACTIVE USER TABLE ADDRESS A0500272 LDQ- (TSIOTB),Q A0500273 LDQ- IOCNPT,Q OBTAIN THE USERS CONTROL POINT A0500274 RTJ+ CPSET AND ACTIVATE IT A0500275 SPC 1 A0500276 LDA+ TSAREA A0500277 STA- I I = LINKAGE BUFFER ADDRESS A0500278 LDQ- ULUSTB,I A0500279 LDA- TSMUTB,Q IS THE ENTRY FROM A MULTI-USER ROOT A0500280 SAZ TSL020 NO A0500281 STA+ EXPIRE YES SET THE TIMESLICE SEMAPHORE A0500282 JMP- (ADISP) AND EXIT A0500283 SPC 1 A0500284TSL020 RTJ* INTUSR INTERRUPT THE USER A0500285 SPC 1 A0500286 LDA- ULUSTB,I OBTAIN THE USER TABLE ADDRESS A0500287 ENQ QPL1 QUEUE PRIORITY = 1 A0500288 RTJ+ ONNSWP PLACE THE USER ON THE NSWP QUEUE A0500289 LDA- ULUSTB,I OBTAIN THE USER TABLE ADDRESS A0500290 ENQ QPL1 QUEUE PRIORITY = 1 A0500291 RTJ+ ONNXUC PLACE THE USER ON THE NXUC QUEUE A0500292 SPC 1 A0500293 LDQ- ULUSTB,I OBTAIN THE USER TABLE ADDRESS A0500294 ENA SXCTSL INDICATE THE USER'S TIMESLICE HAS EXPIRED A0500295 STA- USRSTX,Q A0500296 SPC 1 T\  3&8 A0500297 IIN 0 A0500298 ENA 0 A0500299 STA* (ATSACT) INDICATE THE USER IS INACTIVE A0500300 JMP* CASTRT START ANOTHER USER A0500301 SPC 2 A0500302ATSACT ADC TSACTV ITOS ACTIVE INDICATOR A0500303 EJT A0500304* A0500305* INTUSR TSIOCP SUBROUTINE WHICH STOPS THE EXECUTION A0500306* ------ OF A USER PROGRAM AND SAVES ALL THE A0500307* NECESSARY DATA IN THE LINKAGE BUFFER A0500308* A0500309* ENTRY CONDITIONS: I = ADDR. OF LINKAGE BUFFER A0500310 SPC 2 A0500311INTUSR NOP 0 A0500312 SPC 1 A0500313 LDQ- INTSTK Q = TOP OF THE INTERRUPT STACK A0500314 INQ -5 Q = INTERRUPTED USER ENTRY A0500315 LDA- 3,Q A0500316 LLS 16 Q = USERS P-REGISTER A0500317 RTJ+ TSCKPM IS IT WITHIN THE USER AREA A0500318 JMP* INT020 NO, ERROR A0500319 SPC 1 A0500320 TRA Q MOVE THE USERS REGISTERS A0500321 LDA- (ZERO),Q FROM THE INTERRUPT STACK A0500322 STA- RSQ,I Q-REGISTER A0500323 LDA- 1,Q A0500324 STA- RSA,I A-REGISTER A0500325 LDA- 2,Q A0500326 STA- RSI,I I-REGISTER A0500327 LDA- 3,Q A0500328 STA- RSP,I P-REGISTER A0500329 LDA- 4,Q A0500330 STA- RSL,I PRIORITY LEVEL AND OVERFLOW A0500331 SPC 1 A0500332 LDA- ADISP SET THE RETURN IN THE INTERRUPT STACK A0500333 STA- 3,Q TO THE ADDRESS OF THE DISPATCHER A0500334 SPC 1 A0500335 LDQ- $E9 A0500336 LDQ- EXTSTK,Q Q = ADDRESS OF THE EXTENDED INTERRUPT STACK A0500337 INQ -5 Q = INTERRUPTED USER ENTRY A0500338 LDA- (ZERO),Q A0500339 STA- RS1,I 1-REGISTER A0500340 LDA- 1,Q A0500341 STA- RS2,I 2-REGISTER A0500342 LDA- 2,Q A0500343 STA- RS3,I 3-REGISTER A0500344 LDA- 3,Q -  3&8 A0500345 STA- RS4,I 4-REGISTER A0500346 SPC 1 A0500347 RTJ+ TSVFTN SAVE THE USER FORTRAN SCRATCH AREA A0500348 JMP* (INTUSR) AND RETURN A0500349 SPC 1 A0500350INT020 RTJ* (ASYFAL) USER NOT ON THE INTERRUPT STACK A0500351 EJT A0500352 SPC 4 A0500353********************************************************************** A0500354* * A0500355* USER UNSWAP COMPLETION PROCESSOR * A0500356* * A0500357* ENTRY CONDITIONS: A = PARAMETER LIST ADDRESS * A0500358* Q = V-FIELD (BITS 13-15) * A0500359* * A0500360********************************************************************** A0500361 SPC 2 A0500362TSUSCP SUB* AREREQ IS THE PARAMETER LIST VALID A0500363 SAZ TSU010 YES A0500364 RTJ* (ASYFAL) NO, FATAL ERROR A0500365 SPC 1 A0500366TSU010 SQP TSU020 SKIP IF THERE IS NO ERROR A0500367 RTJ+ TSMMER MASS MEMORY ERROR A0500368 SPC 1 A0500369TSU020 LDQ* AREREQ Q = PARAMETER LIST ADDRESS A0500370 LDA- USRADD,Q A = USER TABLE ADDRESS A0500371 ENQ QPL1 QUEUE PRIORITY = 1 A0500372 RTJ+ ONNXUC PLACE THE USER ON THE NXUC QUEUE A0500373 SPC 1 A0500374 ENQ 1 A0500375 RTJ* (ATSBGN) START THE TASK PROCESSOR IF NECESSARY A0500376 JMP- (ADISP) EXIT A0500377 SPC 2 A0500378AREREQ ADC REAREQ UNSWAP REQUEST PARAMETER LIST A0500379 EJT A0500380 SPC 4 A0500381********************************************************************** A0500382* * A0500383* COMPLETION TYPE 1 - TERMINAL INPUT / OUTPUT COMPLETIONS * A0500384* * A0500385* ENTRY CONDITIONS: Q = PORT NUMBER (BITS 0-7) * A0500386* ERROR FLAG (BIT 15 ) * A0500387* * A0500388********************************************************************** A0500389 SPC 2 A0500390TSIOC1 STQ* TEMP1 SAVE THE COMPLETION PARAMETER A0500391 TRQ A A0500392 AND- LPMASK+8 ISOLATE THE PORT NUMBE  3&8R A0500393 MUI =XIOITEM A0500394 ADD* ATSPRT A0500395 STA- I AND SAVE A0500396 SUB* ATSPND IS IT LEGAL A0500397 SAM CA1010 YES A0500398 RTJ* (ASYFAL) NO, FATAL SYSTEM ERROR A0500399 SPC 1 A0500400CA1010 LDA- IOSTAT,I OBTAIN THE I/O STATUS A0500401 AND- ONEBIT+DS IS THE TERMINAL DISCONNECTED A0500402 SAN CA1020 YES, PROCESS THE COMPLETION A0500403 SPC 1 A0500404 LDA* TEMP1 OBTAIN THE COMPLETION PARAMETER A0500405 RTJ* STATS1 PROCESS ANY ERROR STATUS A0500406 SPC 1 A0500407 SQZ CA1040 SKIP IF NO ERROR STATUS FOUND A0500408 SPC 1 A0500409 LDA- (TSUSTB),I IS THIS PORT ACTIVE A0500410 SAZ CA1030 NO, IGNORE THE COMPLETION A0500411CA1020 JMP* CA1050 YES, PROCESS THE ERROR STATUS A0500412 SPC 1 A0500413CA1030 LDA- IOSTAT,I A0500414 AND- NZERO+IN CLEAR ALL ERROR STATUS A0500415 STA- IOSTAT,I A0500416 JMP* CASTRT EXIT A0500417 EJT A0500418 SPC 4 A0500419CA1040 LDQ- TERMBF,I OBTAIN THE HEADER ADDRESS A0500420 LDA- 3,Q A = NUMBER OF ENTERED CHARACTERS A0500421 SPC 1 A0500422 LDQ- 4,Q Q = START OF THE INPUT BUFFER A0500423 RTJ* UNSOLI PROCESS ANY UNSOLICITED INPUT A0500424 SPC 1 A0500425 LDQ- ONEBIT+LI A0500426 LAQ A WAS THERE A LOG-IN A0500427 SAN CA1060 YES, EXIT A0500428 SPC 1 A0500429CA1050 LDA- IOSTAT,I A0500430 AND- ONEBIT+MM NO, IS MASS MEMORY I/O IN PROCESS A0500431 SAN CA1060 YES, EXIT TO AWAIT THE M. M. COMPLETION A0500432 SPC 1 A0500433 LDA- IOSTAT,I NO, CONTINUE A0500434 LDQ- ONEBIT+IA A0500435 LAQ Q IS THERE ANY I/O ACTIVE A0500436 SQZ CA1060 NO, EXIT A0500437 LDQ- IORQTH,I YES, IS THIS REQUEST ACTIVE A0500438 SQZ CAIOCP NO, CONTINUE A0500439 SPC 1 A0500440CA1060 JMP* CASTRT YES, EXIT  3&8 A0500441 EJT A0500442 SPC 4 A0500443CAIOCP LDQ- (TSUSTB),I A0500444 RAO- USRSTX,Q UPDATE THE USER'S STATE INDEX A0500445 SPC 1 A0500446CAIOST LDA- (TSUSTB),I OBTAIN THE USER TABLE ADDRESS A0500447 RTJ+ DENSWP DELETE THE USER FROM THE NSWP QUEUE A0500448 SPC 1 A0500449 LDA- IOSTAT,I A0500450 AND- ONEBIT+IC IS A COMPLETION BEING PROCESSED A0500451 SAZ CA1100 NO A0500452 JMP* CASTRT YES, IGNORE THIS ONE A0500453 SPC 1 A0500454CA1100 LDA- IOSTAT,I A0500455 AND- ZROBIT+IA A0500456 EOR- ONEBIT+IC CHANGE ACTIVE STATUS TO COMPLETED STATUS A0500457 STA- IOSTAT,I A0500458 SPC 1 A0500459 LDQ- (TSUSTB),I A0500460 LDQ- USRSTX,Q A0500461 SQM CASTRT SKIP IF A SWAP IS IN PROGRESS A0500462 INQ -SXMASS IS THE USER IN MAIN MEMORY A0500463 SQP CA1120 NO A0500464 SPC 1 A0500465 ENQ QPL1 QUEUE PRIORITY = 1 A0500466 LDA- (TSUSTB),I A = USER TABLE ADDRESS A0500467 RTJ+ ONNXUC PLACE THE USER ON THE NXUC QUEUE A0500468 SPC 1 A0500469CASTRT ENQ 0 A0500470 RTJ* (ATSBGN) START THE TASK PROCESSOR IF NECESSARY A0500471 JMP- (ADISP) EXIT A0500472 SPC 1 A0500473CA1120 ENQ QPL1 QUEUE PRIORITY = 1 A0500474 ALS 15-TI IS THIS A TERMINAL I/O COMPLETION A0500475 SAP CA1140 NO A0500476 ALS TI-IN YES, IS A TERMINAL INPUT COMPLETION A0500477 SAM CA1130 YES A0500478 LDA- IOSTAT,I NO A0500479 AND- LPMASK+DS IS THERE ANY UNSOLICITED INPUT A0500480 SAZ CA1140 NO, QUEUE PRIORITY = 1 A0500481CA1130 ENQ QPL3 YES, QUEUE PRIORITY = 3 A0500482 SPC 1 A0500483CA1140 LDA- (TSUSTB),I A = USER TABLE ADDRESS A0500484 RTJ+ ONNXUM PLACE THE USER ON THE NXUM QUEUE A0500485 SPC 1 A0500486 JMP* CASTRT START ANOTHER USER A0500487 EJT A0500488 SPC 4 6-  3& 8 A0500489* STATS1 TSIOCP SUBROUTINE USED TO OBTAIN AND FORMAT A0500490* ------ THE I/O STATUS WORD FOR TYPE 1 INPUT- A0500491* OUTPUT COMPLETIONS A0500492* A0500493* ENTRY CONDITIONS: I = USER I/O TABLE ADDRESS A0500494* A = I/O COMPLETION V-FIELD A0500495* A0500496* EXIT CONDITIONS: I = USER I/O TABLE ADDRESS A0500497* A = NEW I/O STATUS WORD A0500498* Q = CURRENT ERROR STATUS A0500499* A0500500 SPC 2 A0500501STATS1 NOP 0 A0500502 SPC 1 A0500503 SAM ST1010 AN I/O ERROR HAS OCCURED A0500504 ENQ 0 NO ERROR STATUS TO SET UP A0500505 JMP* ST1030 A0500506 SPC 1 A0500507ST1010 LDQ- TERMBF,I A0500508 LFA- 1,15,3,Q A = CP AND LINE STATUS. A0500509 LDQ- ONEBIT+DS SET UP A DISCONNECT STATUS A0500510 SAZ ST1020 SKIP IF CP AND LINE ARE UP. A0500511 LDA- (TSIOTB),I THE CLA IS DOWN, IS THIS TERMINAL ACTIVE A0500512 SAN ST1030 YES, INDICATE A DISCONNECT A0500513 JMP* CASTRT NO, IGNORE THE ERROR A0500514 SPC 1 A0500515ST1020 CLR Q A0500516* ERROR CHECKING AND CALL TO SYFAIL WERE DELETED HERE. A0500517* ALL ERRORS ARE IQNORED. A0500518 SPC 1 A0500519ST1030 LDA- IOSTAT,I OBTAIN THE CURRENT STATUS WORD A0500520 EAQ A UPDATE A0500521 STA- IOSTAT,I AND SAVE A0500522 SPC 1 A0500523 JMP* (STATS1) RETURN A0500524 EJT A0500525 SPC 4 A0500526* I / O C O M P L E T I O N D A T A A N D S T O R A G E A0500527 SPC 2 A0500528TEMP1 NUM 0 TEMPORARY STORAGE A0500529ATSBGN ADC TSBGIN TASK PROCESSOR INITIATOR A0500530ATSPRT ADC TSPORT I/O TABLE STARTING ADDRESS A0500531ATSPND ADC TSPEND I/O TABLE ENDING ADDRESS A0500532ASYFAL ADC SYFAIL SYSTEM FAILURE PROCESSOR A0500533ATSLFF ADC TSLOFF 'OFF UNTIL' MESSAGE LENGTH A0500534 EJT A0500535* A0500536* UNSOLI TSIOCP SUBROUTINE USEDP  3& 8 TO SET UP UNSOLICITED A0500537* ------ INPUT STATUS A0500538* A0500539* ENTRY CONDITIONS: I = USER I/O TABLE ADDRESS A0500540* A = NO. WORDS OF INPUT A0500541* Q = START OF INPUT BUFFER A0500542* A0500543* EXIT CONDITIONS: I = USER I/O TABLE ADDRESS A0500544* A = NEW I/O STATUS WORD A0500545* Q = CURRENT U. I. STATUS A0500546* A0500547 SPC 2 A0500548UNSOLI NOP 0 A0500549 SPC 1 A0500550 INA -2 IS THE INPUT LESS THAN OR EQUAL TO 1 WORD A0500551 SAM UNS010 YES, CHECK FOR LOG-IN A0500552 JMP* UNS040 NO, CONTINUE A0500553 SPC 1 A0500554UNS010 LDA- (ZERO),Q A0500555 ARS 8 OBTAIN THE FIRST INPUT CHARACTER A0500556 LDQ- ONEBIT+LI SET UP LOG-IN STATUS A0500557 INA -LOGIN A0500558 SAN UNS040 NOT A LOG-IN A0500559 SPC 1 A0500560 LDA* TEMP1 IS THE REQUEST FROM THE MASTER TERMINAL A0500561 SAN UNS020 NO A0500562 RAO+ TSCNAC YES, INDICATE IT IS ACTIVE A0500563UNS020 SAZ UNS030 SKIP IF THIS IS THE MASTER TERMINAL A0500564 LDA+ TSNABL IS THE SYSTEM ENABLED A0500565 SAN UNS030 YES, CONTINUE A0500566 JMP* UNSMSG NO, OUTPUT THE 'OFF UNTIL' MESSAGE A0500567 SPC 1 A0500568UNS030 LDA- (TSUSTB),I IS THE TERMINAL ALREADY LOGGED IN A0500569 SAN UNS050 YES A0500570 JMP* UNS060 NO, CONTINUE A0500571 EJT A0500572 SPC 4 A0500573UNS040 LDQ- TERMBF,I A0500574 LDA- 2,Q A = TERMINATION CODE A0500575 SPC 1 A0500576 LDQ- ONEBIT+ES SET UP ESCAPE STATUS A0500577 INA -ESCAP A0500578 SAZ UNS060 ESCAPE REQUEST A0500579 SPC 1 A0500580 LDQ- ONEBIT+MN SET UP MANUAL INTERRUPT STATUS A0500581 INA ESCAP-MANIN A0500582 SAZ UNS060 MANUAL INTERRUPT REQUEST A0500583 SPC 1 A0500584UNS050 ENQ 0 L  3& 9 A0500585 SPC 1 A0500586UNS060 LDA- IOSTAT,I OBTAIN THE STATUS WORD A0500587 AND- NZERO+4 CLEAR THE UNSOLICITED INPUT FIELD A0500588 EAQ A UPDATE A0500589 STA- IOSTAT,I AND SAVE A0500590 SPC 1 A0500591 JMP* (UNSOLI) RETURN A0500592 SPC 2 A0500593UNSMSG LDQ- I A0500594 INQ IORQCD SPECIFY THE I/O REQUEST ADDRESS A0500595 STQ* UNSREQ A0500596 SPC 1 A0500597 LDQ- TERMBF,I OBTAIN THE HEADER ADDRESS A0500598 LDA- 4,Q A0500599 STA* TEMP1 SPECIFY THE MESSAGE BUFFER ADDRESS A0500600 LDQ* ATSLFF A0500601 SPC 1 A0500602UNS070 INQ -1 A0500603 SQM UNS080 A0500604 LDA+ TSOFFM,Q MOVE THE MESSAGE TO THE I/O TABLE A0500605 STA* (TEMP1),Q A0500606 JMP* UNS070 A0500607 SPC 1 A0500608UNS080 RTJ- (AMONI) OUTPUT THE MESSAGE A0500609 ADC $6000 A0500610UNSREQ ADC 0 A0500611 SPC 1 A0500612 JMP- (ADISP) EXIT A0500613 EJT A0500614 SPC 4 A0500615********************************************************************** A0500616* * A0500617* COMPLETION TYPE 2 - NON-TERMINAL INPUT / OUTPUT COMPLETIONS * A0500618* * A0500619* ENTRY CONDITIONS: A = PARAMETER LIST ADDRESS * A0500620* Q = LOGICAL UNIT (BITS 0- 7) * A0500621* V-FIELD (BITS 13-15) * A0500622* * A0500623********************************************************************** A0500624 SPC 2 A0500625TSIOC2 STQ* TEMP1 SAVE THE COMPLETION PARAMETER A0500626 INA -IORQCD A0500627 STA- I SAVE THE I/O TABLE ADDRESS A0500628 SUB* ATSPRT IS IT LEGAL A0500629 SAM CA2010 NO A0500630 LDA- I A0500631 SUB* ATSPND IS IT LEGAL A0500632 SAM CA2020 YES 2  3& 9 A0500633 SPC 1 A0500634CA2010 RTJ* (ASYFAL) INVALID COMPLETION, FATAL SYSTEM ERROR A0500635 SPC 1 A0500636CA2020 LDA* TEMP1 A0500637 RTJ* STATS2 PROCESS ANY ERROR STATUS A0500638 SQZ CA2050 NO ERROR STATUS FOUND. A0500639 SPC 1 A0500640 QLS 15-ME DID A MASS MEMORY ERROR OCCUR A0500641 SQM CA2050 YES. A0500642 JMP CAIOST NO, PROCESS THE ERROR STATUS A0500643 SPC 1 A0500644CA2050 LDQ- ONEBIT+MM A0500645 LAQ Q IS THIS A MASS MEMORY COMPLETION A0500646 SQZ CA2060 NO A0500647 JMP* CAMMRQ YES, PROCESS IT A0500648 EJT A0500649 SPC 4 A0500650CA2060 LDA* TEMP1 A0500651 ALS 1 DID AN MSOS SHORT READ OCCUR A0500652 SAP CA2070 NO, CONTINUE A0500653 SPC 1 A0500654 LDQ- TERMBF,I YES A0500655 LDQ- 4,Q A0500656 STQ* TEMP1 A0500657 ADQ- IOMSLN,I A0500658 INQ -1 Q = LWA OF THE INPUT BUFFER A0500659 LDA- (ZERO),Q A0500660 SUB* TEMP1 A = NUMBER OF WORDS ENTERED A0500661 ALS 1 CONVERT TO CHARACTERS A0500662 SPC 1 A0500663 LDQ- TERMBF,I A0500664 STA- 3,Q SPECIFY NUMBER OF ENTERED CHARACTERS A0500665 SPC 1 A0500666CA2070 JMP CAIOCP PROCESS THE I/O COMPLETION A0500667 EJT A0500668 SPC 4 A0500669* A0500670* STATS2 TSIOCP SUBROUTINE USED TO OBTAIN AND FORMAT A0500671* ------ THE I/O STATUS WORD FOR TYPE 2 INPUT- A0500672* OUTPUT COMPLETIONS A0500673* A0500674* ENTRY CONDITIONS: I = USER I/O TABLE ADDRESS A0500675* A = I/O COMPLETION V-FIELD A0500676* A0500677* EXIT CONDITIONS: I = USER I/O TABLE ADDRESS A0500678* A = COMPLETE I/O STATUS A0500679* Q = CURRENT STATUS A0500680*  3& 9( A0500681 SPC 2 A0500682STATS2 NOP 0 A0500683 SPC 1 A0500684 ENQ 0 A0500685 SAP ST2010 NO ERROR INDICATION A0500686 SPC 1 A0500687 LDQ- ONEBIT+ME SET UP MASS MEMORY ERROR STATUS A0500688 LDA- IOSTAT,I A0500689 AND- ONEBIT+MM IS THIS A MASS MEMORY REQUEST COMPLETION A0500690 SAN ST2010 YES A0500691 SPC 1 A0500692 LDA- IORQLU,I NO A0500693 AND- LPMASK+7 A0500694 TRA Q Q = REQUEST LOGICAL UNIT A0500695 LDQ+ LOG1A,Q A0500696 LDA- ESTAT2,Q A = DEVICE STATUS A0500697 ENQ 0 A0500698 ALS 4 WAS AN END-OF-FILE DETECTED A0500699 SAM ST2010 YES A0500700 LDQ- ONEBIT+ES NO, DEVICE ERROR, ABORT THE PROGRAM A0500701 SPC 1 A0500702ST2010 LDA- IOSTAT,I OBTAIN THE CURRENT STATUS WORD A0500703 EAQ A UPDATE A0500704 STA- IOSTAT,I AND SAVE A0500705 SPC 1 A0500706 JMP* (STATS2) RETURN A0500707 EJT A0500708********************************************************************** A0500709* * A0500710* COMPLETION TYPE 3 - FILE MANAGER REQUEST COMPLETIONS * A0500711* * A0500712* ENTRY CONDITIONS: I = FILE REQUEST BUFFER ADDRESS * A0500713* * A0500714********************************************************************** A0500715 SPC 2 A0500716TSFMCP LDA- I A0500717 INA -FRQBUF A0500718 STA- I SAVE THE I/O TABLE ADDRESS A0500719 SUB =XTSPORT IS IT VALID A0500720 SAM CA3010 NO A0500721 LDA- I A0500722 SUB =XTSPEND IS IT VALID A0500723 SAM CA3020 YES A0500724CA3010 RTJ+ SYFAIL INVALID COMPLETION, FATAL SYSTEM ERROR A0500725 SPC 1 A0500726CA3020 LDA- IOSTAT,I A0500727 SQP CA3030 SKIP IF THERE WAS NO EXECUTIVE FILE ERROR A0500728 EOR- ONEBIT+FE INDICATE A FILE PARAME  3&9<TER OVERLAP ERROR A0500729 STA- IOSTAT,I A0500730CA3030 AND- ONEBIT+IN WAS THIS AN INPUT REQUEST A0500731 SAZ CAMMRQ NO, CONTINUE NORMALLY A0500732 JMP CAIOCP COMPLETE THE REQUEST AS A MONITOR CALL A0500733 SPC 1 A0500734CAMMRQ LDA- IOSTAT,I A0500735 AND- ZROBIT+IA A0500736 EOR- ONEBIT+IC CHANGE ACTIVE STATUS TO COMPLETED STATUS A0500737 STA- IOSTAT,I A0500738 SPC 1 A0500739 LDQ- (TSUSTB),I A0500740 RAO- USRSTX,Q UPDATE THE USERS STATE INDEX A0500741 SPC 1 A0500742 TRQ A A = USERS TABLE ADDRESS A0500743 ENQ QPL1 QUEUE PRIORITY = 1 A0500744 RTJ+ ONNSWP PLACE THE USER ON THE NSWP QUEUE A0500745 LDA- (TSUSTB),I OBTAIN THE USER TABLE ADDRESS A0500746 ENQ QPL1 QUEUE PRIORITY = 1 A0500747 RTJ+ ONNXUC PLACE THE USER ON THE NXUC QUEUE A0500748 SPC 1 A0500749 JMP CASTRT START THE TASK PROCESSOR IF NECESSARY A0500750 SPC 2 A0500751 END A0500752 NAM TSMMER A06 A ITOS CCS 3.0 SL-149A0600001* ITOS EXECUTIVE MASS MEMORY ERROR PROCESSOR A0600002* CREDIT COLLECTION SYSTEM VERSION 3.0 A0600003* DATA SYSTEMS-LA JOLLA DIVISION, LA JOLLA, CALIFORNIA A0600004* COPYRIGHT CONTROL DATA CORPORATION 1979 A0600005* A0600006 SPC 2 A0600007 ENT TSMMER TIMESHARE MASS MEMORY ERROR PROCESSOR A0600008 EXT TSMFLG TIMESHARE MASS MEMORY ERROR INDICATOR A0600009 EXT SYFAIL SYSTEM FAILURE PROCESSOR A0600010* A0600011 EQU AMONI($F4) ADDRESS OF THE MONITOR REQUEST ENTRY A0600012 EQU ADISP($EA) ADDRESS OF THE DISPATCHER A0600013 SPC 2 A0600014TSMMER NOP 0 A0600015 SPC 1 A0600016 LDQ+ TSMFLG HAS AN ERROR ALREADY BEEN DETECTED A0600017 SQN TSM010 YES, EXIT A0600018 STA* TSMPAD SAVE THE PARAMETER LIST ADDRESS OF THE ERROR A0600019 SPC 1 A0600020 RTJ- (AMONI) START A TIMER DELAY TO ALLOW THE SYSTEM A0600021 ADC $5024 TO GRACEFULLY DEGRADE A0600022 ADC TSM020 A0600023 ADC 10 DELAY FOR 10 SECONDS A0600024 SPC 1 <  3&9P A0600025TSM010 RAO+ TSMFLG INDICATE A MASS MEMORY ERROR A0600026 JMP- (ADISP) A0600027 SPC 1 A0600028TSM020 RTJ+ SYFAIL HALT THE SYSTEM A0600029 SPC 2 A0600030TSMPAD ADC 0 PARAMETER LIST ADDRESS OF THE ERROR A0600031 END A0600032 NAM EXTREG A07 A ITOS CCS 3.0 SL-149A0700001* ITOS EXECUTIVE EXTENDED REGISTER HANDLER A0700002* CREDIT COLLECTION SYSTEM VERSION 3.0 A0700003* DATA SYSTEMS-LA JOLLA DIVISION, LA JOLLA, CALIFORNIA A0700004* COPYRIGHT CONTROL DATA CORPORATION 1979 A0700005* A0700006 SPC 2 A0700007 ENT EXTREG A0700008 SPC 1 A0700009 EQU ZERO($22) LOCATION CONTAINING ZERO A0700010 SPC 2 A0700011* T I M E S H A R E L I N K A G E B U F F E R E N T R I E S A0700012* A0700013* THE USER LINKAGE BUFFER IS LOCATED IN PARTITION 0 A0700014 SPC 2 A0700015 EQU LASTEP(ZERO) LAST ENTRY TO THE USER PROGRAM A0700016 EQU ULIOTB(001) USERS I/O TABLE ADDRESS A0700017 EQU ULUSTB(002) USERS USER TABLE ADDRESS A0700018 EQU RSCLOK(003) USERS REMAINING TIMESLICE A0700019 EQU FALADD(004) PROTECT FAULT ADDRESS A0700020 EQU PARADD(005) CURRENT PARAMETER ADDRESS A0700021 EQU RSP(006) P-REGISTER STORAGE A0700022 EQU RSA(007) A-REGISTER STORAGE A0700023 EQU RSQ(008) Q-REGISTER STORAGE A0700024 EQU RSI(009) I-REGISTER STORAGE A0700025 EQU RSL(010) OVERFLOW STORAGE A0700026 EQU RS1(011) 1-REGISTER STORAGE A0700027 EQU RS2(012) 2-REGISTER STORAGE A0700028 EQU RS3(013) 3-REGISTER STORAGE A0700029 EQU RS4(014) 4-REGISTER STORAGE A0700030 EQU RSUB(015) UPPER BOUNDS REGISTER STORAGE A0700031 EJT A0700032 SPC 4 A0700033********************************************************************** A0700034* * A0700035* TIMESHARE EXECUTIVE EXTENDED REGISTER SAVE AND RESTORE * A0700036* * A0700037* ENTRY CONDITIONS: I = LINKAGE BUFFER ADDRESS * A0700038* Q = 0 FOR REGISTER SAVE * A0700039* Q = 1 FOR REGISTER RESTORE * A0700040* >  3&9d * A0700041********************************************************************** A0700042 SPC 2 A0700043EXTREG NOP 0 A0700044 SPC 1 A0700045 SQN EXT010 REGISTER RESTORE A0700046 SPC 1 A0700047 SR1- RS1,I SAVE REGISTER 1 A0700048 SR2- RS2,I SAVE REGISTER 2 A0700049 SR3- RS3,I SAVE REGISTER 3 A0700050 SR4- RS4,I SAVE REGISTER 4 A0700051 JMP* (EXTREG) RETURN A0700052 SPC 1 A0700053EXT010 LR1- RS1,I RESTORE REGISTER 1 A0700054 LR2- RS2,I RESTORE REGISTER 2 A0700055 LR3- RS3,I RESTORE REGISTER 3 A0700056 LR4- RS4,I RESTORE REGISTER 4 A0700057 JMP* (EXTREG) RETURN A0700058 SPC 2 A0700059 END A0700060 NAM SETBND A08 A ITOS CCS 3.0 SL-149A0800001* ITOS EXECUTIVE BOUNDS REGISTER HANDLER A0800002* CREDIT COLLECTION SYSTEM VERSION 3.0 A0800003* DATA SYSTEMS-LA JOLLA DIVISION, LA JOLLA, CALIFORNIA A0800004* COPYRIGHT CONTROL DATA CORPORATION 1979 A0800005* A0800006* THE UPPER AND LOWER BOUND REGISTERS DATA ARE CONTAINED A0800007* IN Q AND A REGISTERS RESPECTIVELY WHEN ROUTINE IS CALLED. A0800008 SPC 2 A0800009* E N T R Y N A M E A0800010* A0800011 ENT SETBND SET UPPER + LOWER BOUND REGISTERS A0800012 SPC 2 A0800013* E X T E R N A L S A0800014* A0800015 EXT MPFLAG POINTER TO EXTENDED INTERRUPT STACK A0800016 EXT UBPROT LOCATION CONTAINS UPPER BOUND REGISTER DATA A0800017 EXT LBPROT LOWER A0800018 EXT LOBDTB LOWER BOUNDS REGISTER TABLE A0800019 EXT UPBDTB UPPER BOUNDS REGISTER TABLE A0800020 SPC 2 A0800021*----- --- ----- P R O G R A M S T A R T ----- A0800022 SPC 2 A0800023SETBND 0 0 A0800024 IIN 0 A0800025SET010 STQ UBPROT A0800026 STA LBPROT A0800027 ENQ 0 SET UPPER BOUNDS REGISTER TO ZERO TO SHUT A0800028 LUB Q OFF THE EFFECT OF THE  3&9xBOUNDS REGISTERS. A0800029 LDQ- $EF SET Q = CURRENT PRIORITY LEVEL. A0800030 STA LOBDTB,Q STORE LOWER BOUNDS REG INTO TABLE BY PRIORITY.A0800031 LLB A SET LOWER BOUNDS REGISTER. A0800032 LDA* (SET010+1) A0800033 STA UPBDTB,Q STORE UPPER BOUNDS REG INTO TABLE BY PRIORITY.A0800034 LUB A SET UPPER BOUNDS REGISTER. A0800035 EIN 0 A0800036 JMP* (SETBND) RETURN TO CALLER A0800037 END A0800038 NAM CONPNT A09 A ITOS CCS 3.0 SL-149A0900001* ITOS CONTROL POINT SUBROUTINES A0900002* CREDIT COLLECTION SYSTEM VERSION 3.0 A0900003* DATA SYSTEMS-LA JOLLA DIVISION, LA JOLLA, CALIFORNIA A0900004* COPYRIGHT CONTROL DATA CORPORATION 1979 A0900005* A0900006* SUPPORT ROUTINES A0900007* A0900008* A0900009*** FUNCTION - A0900010* -------- A0900011* A0900012 SPC 2 A0900013* A SET OF RE-ENTRANT SUBROUTINES ARE REQUIRED TO SUPPORT THE A0900014* CONTROL POINT FACILITY. THESE ROUTINES PROVIDE A CENTRALIZED A0900015* MEANS OF MANIPULATING AND CONTROLLING MEMORY MAPPING IN THE A0900016* SYSTEM. NONE OF THESE SUBROUTINES WILL AFFECT THE CONTENTS OF A0900017* THE FOUR EXTRA REGISTERS AVAILABLE ON THE CYBER-18. A0900018 SPC 1 A0900019* EXTERNAL FEATURES A0900020* -------- -------- A0900021 SPC 2 A0900022* DATA STRUCTURE A0900023 SPC 2 A0900024* A DATA STRUCTURE IS REQUIRED TO SUPPORT THE SYSTEM CONTROL POINTS. A0900025* THIS DATA WILL RESIDE IN THE MSOS SYSDAT, AND CONSIST OF THE A0900026* FOLLOWING. A0900027 SPC 1 A0900028* CONTROL POINT TABLE - THIS IS A FIXED-SIZE, FIXED-ENTRY TABLE A0900029* WHICH CONTAINS AN ENTRY FOR EVERY ACTIVE CONTROL POINT IN THE A0900030* SYSTEM. ITS MAXIMUM LENGTH IS SPECIFIED BY THE TOTAL NUMBER A0900031* OF PAGES ELIGIBLE AS CONTROL POINTS IN THE SYSTEM. EACH ENTRY A0900032* IN THE TABLE CONSISTS OF 'N' WORDS, WHERE 'N' IS THE TOTAL A0900033* NUMBER OF PAGES IN THE USER AREA. A0900034 SPC 1 A0900035* A CONTROL POINT NUMBER IS THE ORDINAL ENTRY INTO THE CONTROL A0900036* POINT TABLE, SO THAT A SIMPLE MECHANISM EXISTS TO OBTAIN THE A0900037* CONTENTS OF THE PAGE MEMORY FILE FOR ANY DEFINED MEMORY MAPPING A0900038* IN THE SYSTEM. Nm  3&9 A0900039 SPC 1 A0900040* CURRENT CONTROL POINT - THIS IS A ONE WORD LOCATION WITH THE A0900041* ENTRY POINT NAME 'CCP'. IT CONTAINS THE CURRENTLY ACTIVE A0900042* CONTROL POINT NUMBER. A VALUE OF ZERO INDICATES THAT THE A0900043* SYSTEM IS IN ABSOLUTE MODE. A0900044 EJT A0900045**** A0900046* ENTRY POINTS - A0900047* ------------ A0900048* A0900049 ENT CPDEF A0900050 ENT CPCHK A0900051 ENT CPREL A0900052 ENT CPMOD A0900053 ENT CPSET A0900054 ENT CPADD A0900055 ENT CPFET A0900056 SPC 1 A0900057* A0900058* EXTERNALS - A0900059* --------- A0900060* A0900061 EXT ACPTBE A TABLE CONTAINING THE ADDRESS OF EACH A0900062* ENTRY IN THE CONTROL POINT TABLE. A0900063 EXT CCP CURRENT CONTROL POINT (IN SYSDAT) A0900064 EXT TSAREA START OF THE USER AREA (IN SYSDAT) A0900065 EXT NUMCP NUMBER OF CONTROL POINTS IN THE SYSTEM. A0900066 EXT CPTBLN SIZE OF CONTROL TABLE ENTRY A0900067 EXT SYFAIL SYSTEM FAILURE ROUTINE A0900068 SPC 1 A0900069* A0900070* EQUIVALENCES - A0900071* ------------ A0900072* A0900073 EQU AVOLA($BB),AVOLR($BA) A0900074 EQU ZERO($22) A0900075 EQU H7FFF($11) A0900076 EQU H001F($7) A0900077 EQU H01FF($B) A0900078 EJT A0900079* DEFINE CONTROL POINT SUBROUTINE A0900080 SPC 1 A0900081* DEFINE CONTROL POINT - THIS SUBROUTINE PLACES THE SPECIFIED A0900082* PAGE MEMORY FILE IMAGE IN THE NEXT AVAILABLE ENTRY OF THE A0900083* CONTROL POINT TABLE, AND RETURNS THE ASSIGNED CONTROL POINT A0900084* NUMBER. THE PAGE FILE IMAGE IS OBTAINED FROM A TABLE LOC- A0900085* ATED IN THE CALLING PROGRAM. THE 7 LSB OF EACH WORD IN THE A0900086* IMAGE IS MOVED TO THE CONTROL POINT TABL4t  3&9E, AND ONLY 'N' WORDS A0900087* ARE MOVED (WHERE 'N' IS THE NUMBER OF NON-ZERO BITS IN CPDFN). A0900088 SPC 1 A0900089* ENTRY CONDITIONS: A0900090* A = FWA OF THE SPECIFIED CONTROL POINT IMAGE TABLE A0900091* Q = N/A A0900092* I = N/A A0900093* RTJ+ CPDEF A0900094 SPC 1 A0900095* EXIT CONDITIONS: A0900096* (RETURN AT P+1) A0900097* A = SAVED A0900098* Q = ASSIGNED CONTROL POINT A0900099* I = SAVED A0900100 SPC 1 A0900101* ERROR CONDITIONS: A0900102* Q = NEGATIVE IF: A0900103* 1. THE CONTROL POINT TABLE IS FULL A0900104 SPC 1 A0900105CPDEF 0 0 A0900106 IIN 0 A0900107 RTJ- (AVOLA) A0900108 NUM 5 A0900109 LDQ* CPDEF SAVE RETURN A0900110 STQ- 3,I A0900111 EIN 0 A0900112 SR1- 4,I SAVE REGISTER 1. A0900113 LR1* NBRCP NUMBER OF CONTROL POINTS TO REGISTER 1. A0900114CP016 XF1 Q CONTROL POINT NUMBER TO Q. A0900115 LDQ* (AACPTE),Q Q = ADDRESS OF CP TABLE ENTRY FOR THIS CP. A0900116 IIN 0 A0900117 LDA- (ZERO),Q GET FIRST WORD OF CONTROL POINT TABLE ENTRY. A0900118 INA 1 A0900119 SAZ CP018 SKIP IF AN AVAILABLE CP ENTRY HAS BEEN FOUND. A0900120 EIN 0 A0900121 D1P *-CP016 CHECK THE NEXT CONTROL POINT NUMBER, IF A0900122* THERE ARE ANY. A0900123 SPC 1 A0900124 RTJ* (FAIL) NO AVAILABLE CONTROL POINT TABLE ENTRIES. A0900125 SPC 1 A0900126CP018 SR1- (ZERO),I SAVE THE CONTROL POINT NUMBER. A0900127 STQ* AOFENT SAVE THE ADDRESS OF THE CP TABLE ENTRY. A0900128 SPC 1 A0900129 LDA- 1,I * MOVE IMAGE TABLE TO ENTRY * A0900130 STA* FWA A0900131 LDQ* NNN A0900132 INQ -1 Q = NUMBER OF WORDS - 1 IN CP TABLE ENTRY. A0900133 LDA (ATSARA) A0900134 ARS 11 o  3&9 A0900135 AND- H001F A0900136 STA* BASPAG A0900137CP019 TRQ A A0900138 ADD* BASPAG PAGE REGISTER NUMBER TO A. A0900139 ALS 11 SHIFT PAGE REGISTER NUMBER TO A15-A11. A0900140 EOR* (FWA),Q EOR IN PAGE REGISTER CONTENTS TO A08-A00. A0900141 STA* (AOFENT),Q STORE INTO CONTROL POINT TABLE. A0900142 DQP *-CP019 DECREMENT Q AND SKIP BACKWARDS IF NOT DONE. A0900143 IIN 0 A0900144 LDA- 3,I RESTORE RETURN A0900145 STA* CPDEF A0900146 LR1- 4,I RESTORE REGISTER 1. A0900147 RTJ- (AVOLR) A0900148 EIN 0 A0900149 JMP* (CPDEF) A0900150FWA NUM 0 A0900151BASPAG NUM 0 A0900152AACPTE ADC ACPTBE ADDRESS OF A TABLE CONTAINING THE ADDRESS OF A0900153* EACH ENTRY IN THE CONTROL POINT TABLE. A0900154* THIS TABLE IS INDEXED BY CONTROL POINT NUMBER.A0900155 EJT A0900156* CHECK CONTROL POINT SUBROUTINE A0900157 SPC 1 A0900158* CHECK CONTROL POINT - THIS SUBROUTINE DETERMINES IF THE A0900159* SPECIFIED ADDRESS LIES WITHIN A CONTROL POINT AREA, AND IF A0900160* SO, WILL RETURN THE VALUE OF THE CURRENT CONTROL POINT (CCP). A0900161 SPC 1 A0900162* ENTRY CONDITIONS: A0900163* A = N/A A0900164* Q = LOGICAL ADDRESS A0900165* I = N/A A0900166* RTJ+ CPCHK A0900167 SPC 1 A0900168* EXIT CONDITIONS: A0900169* (RETURN AT P+1) A0900170* A = SAVED A0900171* Q = 0 IF ADDRESS IS NOT IN A CONTROL POINT A0900172* Q = 1 IF ADDRESS IS IN A CONTROL POINT. A0900173* I = SAVED A0900174 SPC 1 A0900175* ERROR CONDITIONS: A0900176* NONE A0900177 SPC 1 A0900178CPCHK 0 0 A0900179 IIN 0 A0900180 STA* ASV1 A0900181 RTJ* CKADD CHECK THE ADDRESS. A0900182* RETURNS Q = 0 IF NOT IV  3&9N CONTROL POINT AREA. A0900183* Q = 1 IF IN A CONTROL POINT AREA. A0900184 LDA* ASV1 RESTORE A REGISTER. A0900185 EIN 0 A0900186 JMP* (CPCHK) RETURN. A0900187ASV1 NUM 0 TEMPORARY STORAGE FOR A REGISTER. A0900188 EJT A0900189* CHECK ADDRESS SR A0900190* A0900191* DETERMINE IF LOGICAL ADDRESS IS GREATER THAN A0900192* OR EQUAL TO BEGINNING OF TIMESHARE AREA AS FOLLOWS A0900193* 1- +ADD.-(+TSA .) GE 0 = OK ,OTHERWISE ERROR A0900194* 2- +ADD.-(-TSA .) = ERROR A0900195* 3- -ADD -(+TSA .) = OK A0900196* 4- -ADD -(-TSA .) GE 0 = OK,OTHERWISE ERROR A0900197* ENTRY- Q=LOGICAL ADDRESS A0900198* EXIT - Q = 1 IF ADDRESS IN CONTROL AREA. A0900199* Q=0 IF NOT A0900200 SPC 1 A0900201CKADD 0 0 A0900202 TRQ A = LOGICAL ADDRESS A0900203 SAM CKA010 SENSE L. ADD. GE $8000 A0900204 LDA* (ATSARA) A = ADDRESS OF USER AREA A0900205 SAM CKA040 SENSE L. ADD. LT START OF PARTITION A0900206 JMP* CKA020 A0900207CKA010 LDA* (ATSARA) A0900208 SAP CKA030 SENSE USER AREA .LT. LOAGICAL ADD. A0900209CKA020 TCA A A0900210 AAQ A A0900211 SAM CKA040 SENSE L. ADD LT PARTITION A0900212CKA030 ENQ 1 A0900213 JMP* CKA050 A0900214CKA040 ENQ 0 ERROR RETURN A0900215CKA050 JMP* (CKADD) A0900216 SPC 2 A0900217AOFENT NUM 0 A0900218NNN ADC CPTBLN NO. OF WORDS IN CP TABLE ENTRY A0900219 EJT A0900220* RELEASE CONTROL POINT SR A0900221 SPC 1 A0900222* RELEASE CONTROL POINT - THIS SUBROUTINE REMOVES THE SPECIFIED A0900223* ENTRY FROM THE CONTROL POINT TABLE. AN ENTRY IS RELEASED BY A0900224* SETTING ITS FIRST WORD NEGATIVE. A0900225* IF THE CONTROL POINT TO BE RELEASED IS THE CURRENT A0900226* CONTROL POINT, THE CURRENT CONTROL POINT WILL BE SET A0900227* TO ZERO BY CALLING CPSET. A0900228 SPC 1 A0900229* ENTRY CONDITIONS: A0900230* A = N/A 0  3&9 A0900231* Q = CONTROL POINT A0900232* I = N/A A0900233* RTJ+ CPREL A0900234 SPC 1 A0900235* EXIT CONDITIONS: A0900236* (RETURN AT P+1) A0900237* A = SAVED A0900238* Q = (SEE ERROR CONDITIONS) A0900239* I = SAVED A0900240 SPC 1 A0900241* ERROR CONDITIONS: A0900242 SPC 1 A0900243CPREL 0 0 A0900244 IIN 0 A0900245 RTJ- (AVOLA) A0900246 NUM 4 A0900247 LDQ* CPREL A0900248 STQ- 3,I SAVE RETURN A0900249 EIN 0 A0900250 LDA* (ACCP) A = CURRENT CONTROL POINT NUMBER. A0900251 SUB- (ZERO),I A0900252 SAN CPR012 SKIP IF REQ. CONTROL POINT NOT EQ TO CCP. A0900253 ENQ 0 REQ CP = CURRENT CP A0900254 RTJ* CPSET CALL CP SET TO SET CP 0. A0900255CPR012 LDQ- (ZERO),I Q = REQUESTED CONTROL POINT NUMBER A0900256 RTJ* VERCP VERIFY THE REQUESTED CONTROL POINT NUMBER. A0900257* RETURNS Q = ADDRESS OF THE CP TABLE ENTRY. A0900258 ENA -1 MARK THE FIRST WORD OF THE ENTRY A0900259 STA- (ZERO),Q NEGATIVE TO RELEASE THE CP. A0900260 ENQ 0 RETURN ZERO IF NO ERROR A0900261 STQ- (ZERO),I A0900262 STQ* LCP FORCE NEXT CNT POINT TO BE SET A0900263 IIN 0 A0900264 LDA- 3,I A0900265 STA* CPREL A0900266 RTJ- (AVOLR) A0900267 EIN 0 A0900268 JMP* (CPREL) A0900269 EJT A0900270* A0900271* MODIFY CONTROL POINT SR A0900272* A0900273* MODIFY CONTROL POINT - THIS SUBROUTINE PLACES THE SPECIFIED A0900274* PAGE MEMORY FILE IMAGE IN THE SPECIFIED CONTROL POINT TABLE A0900275* ENTRY. THE PAGE FILE IMAGE IS OBTAINED FROM A TABLE LOCATED A0900276* IN THE CALLING PROGRAM. THE 7 LSB OF EACH WORD IN THE IMAGE A0900277* IS MOVED TO THE CONTROL POINT TABLE, AND ONLY 'N' WORDS ARE A0900278* MOVED (WHERE 'N' IS THE NUMBER OF NON-ZE5  3&9RO BITS IN CPDFN). A0900279 SPC 1 A0900280* ENTRY CONDITIONS: A0900281* A = FWA OF THE SPECIFIED CONTROL POINT IMAGE TABLE A0900282* Q = CONTROL POINT A0900283* I = N/A A0900284* RTJ+ CPMOD A0900285 SPC 1 A0900286* EXIT CONDITIONS: A0900287* (RETURN AT P+1) A0900288* A = SAVED A0900289* Q = (SEE ERROR CONDITIONS) A0900290* I = SAVED A0900291 SPC 1 A0900292* ERROR CONDITIONS: A0900293 SPC 1 A0900294CPMOD 0 0 A0900295 IIN 0 A0900296 RTJ- (AVOLA) A0900297 NUM 4 A0900298 LDQ* CPMOD A0900299 STQ- 3,I SAVE RETRUN A0900300 LDQ- (ZERO),I Q = REQUESTED CONTROL POINT NUMBER A0900301 RTJ* VERCP VERIFY THE REQUESTED CONTROL POINT NUMBER. A0900302* RETURNS Q = ADDRESS OF THE CP TABLE ENTRY. A0900303 IIN 0 CONTROL POINT TABLE ENTRY * A0900304 STQ* AOFENT A0900305 LDA- 1,I A0900306 STA* FWA A0900307 LDQ* NNN A0900308 INQ -1 Q = NUMBER OF WORDS - 1 IN CP TABLE ENTRY. A0900309 LDA* (ATSARA) A0900310 ARS 11 A0900311 AND- H001F A0900312 STA* BASPAG A0900313CPM022 TRQ A A0900314 ADD* BASPAG PAGE REGISTER NUMBER TO A. A0900315 ALS 11 SHIFT PAGE REGISTER NUMBER TO A15-A11. A0900316 EOR* (FWA),Q EOR IN PAGE REGISTER CONTENTS TO A08-A00. A0900317 STA* (AOFENT),Q STORE INTO CONTROL POINT TABLE. A0900318 DQP *-CPM022 DECREMENT Q AND SKIP BACKWARDS IF NOT DONE. A0900319 EIN 0 A0900320 ENQ 0 A0900321 STQ* LCP CLEAR LAST CP A0900322 STQ- (ZERO),I A0900323 LDA- 3,I A0900324 IIN 0 A0900325 STA* CPMOD A0900326 RTJ- (AVOLR)   3&: A0900327 EIN 0 A0900328 JMP* (CPMOD) A0900329FAIL ADC SYFAIL ADDRESS OF SYSTEM FAILURE ROUTINE. A0900330NBRCP ADC NUMCP NUMBER OF CONTROL POINTS IN THE SYSTEM. A0900331 EJT A0900332* A0900333* SET CONTROL POINT SR A0900334* A0900335* SET CONTROL POINT - THIS SUBROUTINE LOADS THE MEMORY PAGE FILE A0900336* WITH THE CONTENTS OF THE CONTROL POINT TABLE FOR THE SPECIFIED A0900337* CONTROL POINT, AND SETS THE CONTENTS OF CCP TO THE REQUESTED A0900338* VALUE. THE 7 LSB OF EACH WORD IN THE TABLE ENTRY IS USED TO A0900339* LOAD THE FILE, AND ONLY THOSE PAGES SPECIFIED AS CHANGABLE BY A0900340* CPDFN ARE MODIFIED. A REQUEST WITH A CONTROL POINT EQUAL A0900341* TO ZERO WILL RESULT IN THE CPU BEING SET TO ABSOLUTE MODE. A0900342 SPC 1 A0900343* ENTRY CONDITIONS: A0900344* A = N/A A0900345* Q = CONTROL POINT A0900346* I = N/A A0900347* RTJ+ CPSET A0900348 SPC 1 A0900349* EXIT CONDITIONS: A0900350* (RETURN AT P+1) A0900351* A = SAVED A0900352* Q = 0 IF NO ERRORS. THE PROGRAM DOES NOT RETURN A0900353* IF ERRORS ARE DETECTED. A0900354* I = SAVED A0900355 SPC 1 A0900356* ERROR CONDITIONS: A0900357* ALL DETECTED ERRORS CAUSE A RETURN JUMP TO THE A0900358* SYSTEM FAILURE ROUTINE - SYFAIL. A0900359* DETECTED ERRORS ARE THE FOLLOWING - A0900360* 1. CONTROL POINT NUMBER PASSED TO CPSET IS NEGATIVE. A0900361* 2. CONTROL POINT NUMBER PASSED TO CPSET IS LARGER A0900362* THAN THE LARGEST LEGAL CONTROL POINT NUMBER. A0900363* 3. CONTROL POINT NUMBER PASSED TO CPSET IS NOT DEFINED. A0900364 SPC 1 A0900365* IT IS THE CALLERS RESPONSIBILITY TO SAVE THE VALUE OF CCP A0900366* PRIOR TO THE CALL IF NECESSARY, SINCE THE SUBROUTINE WILL SET A0900367* CCP TO THE VALUE OF THE REQUESTED CONTROL POINT. A0900368 SPC 1 A0900369CPSET 0 0 A0900370 IIN 0 A0900371 STQ* (ACCP) SET THE REQUESTED CONTROL POINT. A0900372 SQN CPS020 SKIP IF CONTROL POINT NUMBER NOT ZER. A0900373 APM SET ABSOLUTE MODE A0900374 JMP* CPS060 RETURN WITHOUT ERRORS /E  3&: A0900375 SPC 2 A0900376CPS020 STA* ASAVE SAVE THE A REGISTER. A0900377 TRQ A CP TO A A0900378 SUB* LCP LAST CP TO BE SET A0900379 SAZ CPS050 NO NEED TO RESET TO SAME CP A0900380 STQ* LCP RESET LAST CP TO BE SET A0900381 RTJ* VERCP VERIFY THAT CP NUMBER IS LEGAL. A0900382* RETURNS Q = ADDRESS OF CP TABLE ENTRY. A0900383 IIN A0900384 STQ* AOFENT SAVE THE BASE ADDRESS OF THE ENTRY IN THE A0900385* CONTROL POINT TABLE FOR THIS CONTROL POINT. A0900386 TRQ A BASE ADDRESS OF REGISTER TABLE TO A A0900387 LDQ* NNN Q = TOTAL NUMBER OF PAGE REGISTERS TO BE SET. A0900388 NUM $0BC6 SET CONTROL POINT FILE (WPF A) A0900389CPS050 PM0 SET TO PAGE MODE 0 A0900390 LDQ* (ACCP) LOAD Q WITH ADDRESS OF CURRENT CP NUMBER A0900391 LDA* ASAVE RESTORE THE A REGISTER. A0900392CPS060 EIN 0 ENABLE INTERRUPTS. A0900393 JMP* (CPSET) A0900394ASAVE NUM 0 A0900395ATSARA ADC TSAREA ADDRESS OF THE BEGINING OF THE TIMESHARE A0900396* EXECUTION AREA. A0900397ACCP ADC CCP ADDRESS OF THE CURRENT CONTROL POINT NUMBER. A0900398LCP NUM 0 LAST CONTROLPOINT SET A0900399 EJT A0900400* VERIFY THE VALIDITY OF A CONTROL POINT NUMBER. A0900401* A0900402* THIS ROUTINE IS CALLED TO VERIFY THE VALIDITY OF A0900403* A CONTROL POINT NUMBER. IF THE CONTROL POINT NUMBER IS A0900404* VALID IT RETURNS THE ADDRESS OF THE FIRST WORD OF THE A0900405* ENTRY IN THE CONTROL POINT TABLE FOR THE REQUESTED CONTROL A0900406* POINT NUMBER. IF THE CONTROL POINT NUMBER IS INVALID, THIS A0900407* ROUTINE CALLS SYFAIL TO HALT THE MACHINE. A0900408* A0900409* INVALID CONTROL POINT NUMBERS ARE ANY OF THE FOLLOWING - A0900410* 1. NEGATIVE NUMBER. A0900411* 2. ZERO NUMBER. A0900412* 3. NUMBER LARGER THAN LARGEST LEGAL CONTROL POINT NUMBER. A0900413* 4. THE CONTROL POINT FOR THIS NUMBER IS NOT DEFINED. A0900414* A0900415* A0900416* ENTRY CONDITIONS - A0900417* A = N/A. A0900418* Q = CONTROL POINT NUMBER. A0900419* I = N/A. A0900420* RTJ VERCP A0900421* A0900422* EXIT CONDITIONS - U  3&:, A0900423* (RETURN AT P+1) A0900424* A = FIRST WORD OF ENTRY IN THE CONTROL POINT TABLE FOR A0900425* THIS CONTROL POINT NUMBER. A0900426* Q = THE ADDRESS OF THE FIRST WORD OF ENTRY IN THE CONTROL A0900427* POINT TABLE FOR THIS CONTROL POINT. A0900428* I = SAVED A0900429* A0900430* ERROR CONDITIONS - A0900431* ALL ERRORS DETECTED ARE CONSIDERED FATAL. THE SYSTEM A0900432* FAILURE ROUTINE IS CALLED. A0900433* DETECTED ERRORS ARE - A0900434* A0900435* 1. NEGATIVE CONTROL POINT NUMBER A0900436* 2. ZERO CONTROL POINT NUMBER. A0900437* 3. CONTROL POINT NUMBER LARGER THAN THE LARGEST LEGAL A0900438* CONTROL POINT NUMBER. A0900439* 4. THE CONTROL POINT FOR THIS CONTROL POINT NUMBER IS A0900440* NOT DEFINED. A0900441* A0900442VERCP 0 A0900443 IIN 0 A0900444 SQP VER010 A0900445 RTJ* (FAIL) CP NUMBER IS NEGATIVE. A0900446VER010 SQN VER020 A0900447 RTJ* (FAIL) CP NUMBER IS ZERO. A0900448VER020 TCQ A A0900449 ADD* NBRCP A0900450 SAP VER030 SKIP IF REQUESTED CP NUMBER IS WITHIN RANGE. A0900451 RTJ* (FAIL) CP NUMBER IS TOO LARGE. A0900452VER030 LDQ* (AACPTE),Q Q = ADDRESS OF CP TABLE ENTRY FOR THIS CP NUM.A0900453 LDA- (ZERO),Q A = FIRST WORD OF CONTROL POINT TABLE ENTRY. A0900454 INA 1 A0900455 SAN VER040 SKIP IF CONTROL POINT NUMBER IS DEFINED. A0900456 RTJ* (FAIL) CP NOT DEFINED A0900457VER040 EIN 0 A0900458 JMP* (VERCP) RETURN A0900459 EJT A0900460* A0900461* CONTROL POINT ADDRESS SR A0900462* A0900463* CONTROL POINT ADDRESS - THIS SUBROUTINE CALCULATES THE 18 BIT A0900464* PHYSICAL ADDRESS OF THE SPECIFIED LOGICAL ADDRESS WITHIN THE A0900465* SPECIFIED CONTROL POINT. THIS IS ACCOMPLISHED BY USING THE A0900466* SPECIFIED CONTROL POINT ENTRY TO MAP THE LOGICAL ADDRESS INTO A0900467* A PHYSICAL ADDRESS. A0900468 SPC 1 A0900469* ENTRY CONDITIONS: A0900470* A = LOGICAL ADDRESS  3&:@ A0900471* Q = CONTROL POINT A0900472* I = N/A A0900473* RTJ+ CPADD A0900474 SPC 1 A0900475* EXIT CONDITIONS: A0900476* (RETURN AT P+1) A0900477* A = LSB OF THE EQUIVALENT ADDRESS A0900478* Q = MSB OF THE EQUIVALENT ADDRESS A0900479* I = SAVED A0900480 SPC 1 A0900481* ERROR CONDITIONS: A0900482 SPC 1 A0900483CPADD 0 0 A0900484 IIN 0 A0900485 RTJ- (AVOLA) A0900486 NUM 6 A0900487 LDQ* CPADD A0900488 STQ- 3,I SAVE RETURN A0900489 EIN 0 A0900490 LDQ- (ZERO),I Q = REQUESTED CONTROL POINT NUMBER A0900491 SQN CPA020 IF CP NUMBER = 0 THEN LOGICAL ADD = PHYSICAL A0900492 JMP* CPA060 ADD. RETURN A = LOGICAL, Q = 0. A0900493CPA020 EQU CPA020(*) A0900494 RTJ* VERCP VERIFY THE REQUESTED CONTROL POINT NUMBER. A0900495* RETURNS Q = ADDRESS OF THE CP TABLE ENTRY. A0900496 STQ- 4,I SAVE A. OF CONTROL TBL. ENTRY A0900497 LDQ- 1,I =LOGICAL ADDRESS A0900498 IIN 0 A0900499 RTJ CKADD A0900500 EIN 0 A0900501 SQN CPA030 SKIP IF LOGICAL ADDR IS IN CONTRL POINT AREA. A0900502 ENQ 0 LOGICAL = PHYSICAL ADDRESS. A0900503 JMP* CPA050 RETURN A = LOGICAL ADDRESS, Q = 0. A0900504* * CALC. 18 BIT ADDRESS * A0900505* LOGICAL ADDR.-TSAREA/2048 = Q REM A0900506* CONTROL TBL. ENTRY(Q+1) = PAGE NO. A0900507* PAGE NO.*2048 + REM = PHYSICAL ADDRESS A0900508CPA030 ENQ 0 A0900509 LDA- 1,I = LOGICAL ADDRESS A0900510 SUB* (ATSARA) A0900511 DVI* N2048 A0900512 STQ- 5,I SAVE REMAINDER AS INCREMENT INTO 2K BLOCK A0900513 TRA Q A = Q = PAGE NUMBER FOR THIS LOGICAL ADDRESS. A0900514 ADQ- 4,I ADD BASE ADDRESS OF CP TABLE ENTRY. A0900515 LDA- (ZERO),Q GET WORD FROM CP TABLE ENTRY FOR THIS PAGE. A0900516 AND- H01FF ISOLATE BITS 08-00 OF PAGE REGISTER CONTENTS. A0900517 MUI* N2048 =PHYSICAL ADDRESS OF START OF BLOCK A0900518 LLS 1 ADD INCREMENT INTO BLO  3&:TCK(DOUBLE PRECISION ADD)A0900519 ALS 15 A0900520 ADD- 5,I A0900521 SAP CPA040 SENSE NO OVERFLOW A0900522 AND- H7FFF A0900523 INQ 1 A0900524CPA040 ALS 1 A0900525 LRS 1 AQ = 18 BIT PHYSICAL ADDRESS A0900526 STA- 1,I A0900527CPA050 STQ- (ZERO),I A0900528CPA060 LDA- 3,I A0900529 IIN 0 A0900530 STA* CPADD A0900531 RTJ- (AVOLR) A0900532 EIN 0 A0900533 JMP* (CPADD) A0900534N2048 NUM 2048 2K BLOCK SIZE A0900535 EJT A0900536* FETCH CONTROL POINT TABLE ENTRY A0900537 SPC 1 A0900538* THIS SUBROUTINE FETCHES THE CONTROL POINT TABLE ENTRY FOR A0900539* A SPECIFIED CONTROL POINT AND PLACES IT IN THE USER'S A0900540* BUFFER. THE SIZE OF THE ENTRY IS ALSO RETURNED. THE A0900541* USER SHOULD PROVIDE THE MAXIMUM SIZE BUFFER OF 32 WORDS A0900542 SPC 1 A0900543* ENTRY CONDITIONS- A0900544* A= FWA OF USER'S BUFFER A0900545* Q=CONTROL POINT A0900546* I=N/A A0900547* RTJ+ CPFET A0900548 SPC 1 A0900549* EXIT CONDITIONS- A0900550* (RETURN AT P+1) A0900551* A=SAVED A0900552* Q=(SEE ERROR CONDITIONS) A0900553* I=N/A A0900554* CONTROL POINT ENTRY IS MOVED TO USER'S BUFFER. A0900555 SPC 1 A0900556* ERROR CONDITIONS- A0900557 SPC 1 A0900558CPFET 0 0 A0900559 IIN 0 A0900560 RTJ- (AVOLA) A0900561 NUM 4 A0900562 LDQ* CPFET A0900563 STQ- 3,I A0900564 EIN 0 A0900565 LDQ- (ZERO),I Q = REQUESTED CONTROL POINT NUMBER A0900566 RTJ* VERCP VERIFY THE REQUESTED Cl~  3&:hONTROL POINT NUMBER. A0900567* RETURNS Q = ADDRESS OF THE CP TABLE ENTRY. A0900568 IIN 0 A0900569 STQ* AOFCPE A0900570 LDA- 1,I =FWA OF USER'S BUFFER A0900571 STA* AOFUBF A0900572 LDQ NNN A0900573CPF030 INQ -1 A0900574 SQM CPF040 SENSE MOVE DONE A0900575 LDA* (AOFCPE),Q A0900576 AND- H01FF A0900577 STA* (AOFUBF),Q A0900578 JMP* CPF030 A0900579CPF040 EIN 0 A0900580 ENQ 0 A0900581 STQ- (ZERO),I A0900582 LDA NNN A0900583 STA- 1,I RETURN SIZE OF ENTRY A0900584 LDA- 3,I A0900585 IIN 0 A0900586 STA* CPFET A0900587 RTJ- (AVOLR) A0900588 EIN 0 A0900589 JMP* (CPFET) A0900590AOFCPE NUM 0 A0900591AOFUBF NUM 0 A0900592 END A0900593 NAM DWMATH A10 A ITOS CCS 3.0 SL-149A1000001* ITOS DOUBLE-WORD MATH SUBROUTINES A1000002* CREDIT COLLECTION SYSTEM VERSION 3.0 A1000003* DATA SYSTEMS-LA JOLLA DIVISION, LA JOLLA, CALIFORNIA A1000004* COPYRIGHT CONTROL DATA CORPORATION 1979 A1000005* SASA A1000006* A1000007* THIS PACKAGE PROVIDES SUBROUTINES TO PERFORM A1000008* THREE DOUBLE WORD ARITHMETIC OPERATIONS. A1000009* THE DOUBLE WORD FORMAT IS THE SAME AS THE A1000010* MSB/LSB FORMAT USED FOR SECTOR AND WORD A1000011* ADDRESSING: WORD 1 OF A DOUBLE WORD VALUE A1000012* CONTAINS THE UPPER 15 BITS OF THE VALUE - AN A1000013* INTEGRAL MULTIPLE OF 32767, WORD 2 CONTAINS A1000014* THE LOWER 15 BITS OF THE VALUE (BIT 15 = 0). A1000015* IN THE FOLLOWING DESCRIPTIONS 'DWV' REFERS TO A1000016* 'DOUBLE WORD VALUE'. A1000017* A1000018* THE FOLLOWING OPERATIONS ARE IMPLEMENTED: A1000019* ADD A DWV TO A 2ND DWV A1000020* SUBTRACT A DWV FROM ANOTHER DWV A1000021* MULTIPLE A DWV BY Aq  3&:| SINGLE WORD VALUE A1000022* A1000023* TO UTILIZE ONE OF THESE ROUITNES, THE CALLER A1000024* STORES THE VALUES TO BE OPERATED ON IN AN A1000025* ARRAY, SETS THE Q-REGISTER TO THE ADDRESS OF A1000026* THE ARRAY AND EXECUTES A RTJ TO THE APPROPRI- A1000027* ATE ROUTINE. THE I REGISTER CONTENTS WILL BE A1000028* SAVED AND RESTORED PRIOR TO RETURN TO THE A1000029* CALLER. THE COMPLETION STATUS WILL BE 0 IF A1000030* GOOD, ELSE IT WILL BE NON-ZERO. A1000031* A1000032* THE ENTRY POINT NAMES ARE AS FOLLOWS: A1000033 ENT DWADD DOUBLE WORD ADD A1000034 ENT DWSUB DOUBLE WORD SUBTRACT A1000035 ENT DWMUL DOUBLE WORD MULTIPLY A1000036* A1000037 EQU ZERO($22) A1000038 EQU ONEMSK(3) A1000039 EQU ONEBIT($23) A1000040 EJT A1000041* THE ARRAY PARAMETER LISTS ARE AS FOLLOWS: A1000042* FOR DWADD A1000043* WORD DESCRIPTION A1000044* 1 MSB OF 1ST DWV A1000045* 2 LSB OF 1ST DMV A1000046* 3 MSB OF 2ND DMV A1000047* 4 LSB OF 2ND DMV A1000048* 5 MSB OF RESULT DMV A1000049* 6 LSB OF RESULT DMV A1000050* 7 COMPLETION STATUS A1000051* A1000052* FOR DWSUB A1000053* WORD DESCRIPTION A1000054* 1 MSB OF MINUEND A1000055* 2 LSB OF MINUEND A1000056* 3 MSB OF SUBTRAHEND A1000057* 4 LSB OF SUBTRAHEND A1000058* 5 MSB OF RESULT A1000059* 6 LSB OF RESULT A1000060* 7 COMPLETION STATUS A1000061* FOR DWMUL A1000062* WORD DESCRIPTION A1000063* 1 MSB OF DWV A1000064* 2 LSB OF DMV A1000065* 3 SINGLE WORD VALUE A1000066* 4 MSB OF RESULT A1000067* 5 LSB OF RESULT A1000068* 6 COMPLETION STATUS A1000069* 3{  3&: A1000070 EJT A1000071DWADD 000 000 DOUBLE WORD ADD ROUTINE A1000072 IIN 0 A1000073A1 LDA- I SAVE I-REG CONTENTS A1000074 STA* ISAVE A1000075 STQ- I SET I TO ARRAY ADDRESS A1000076 LDA- 1,I SET A TO LSB A1000077 ENQ 0 CLEAR Q FOR USE AS MSB OFFSET A1000078 SOV 0 CLEAR OVERFLOW STATUS A1000079 ADD- 3,I ADD LSB A1000080 SNO A2 SKIP TO A3 IF NO OVERFLOW A1000081 AND- ONEMSK+14 MASK OUT BIT 15 A1000082 INQ 1 BUMP Q TO PUT OVERFLOW IN MSB A1000083A2 SAP A3 SKIP IF RESULT POSITIVE A1000084 INQ -1 SUBTRACT 1 FROM Q FOR MSB OFFSET A1000085 ADD- ONEBIT+15 MAKE LSW POSITIVE A1000086A3 STA- 5,I STORE LSB A1000087 TRQ A TRANSFER MSB OFFSET TO A A1000088 SOV 0 CLEAR OVERFLOW A1000089 ADD- (ZERO),I ADD THE TWO MSBS TO THE OFFSET A1000090 ADD- 2,I A1000091 STA- 4,I STORE MSB A1000092 ENQ 0 CLEAR Q FOR COMPLETION STATUS A1000093 SOV A4 SET TO BAD COMPLETION IF OVERFLOW OR A-REG NEGA1000094 SAP A5 A1000095A4 ENQ 1 A1000096A5 STQ- 6,I A1000097 LDA- 2,I COMPLEMENT 2ND DWV IF COMPLEMENTED BY US A1000098 SAP A6 SKIP IF NOT COMPLEMENTED A1000099 TCA A A1000100 STA- 2,I A1000101 LDA- 3,I A1000102 TCA A A1000103 STA- 3,I A1000104A6 LDA* ISAVE RESTORE I-REG A1000105 STA- I A1000106 EIN 0 A1000107 JMP* (DWADD) A1000108 SPC 4 A1000109ISAVE NUM 0 A1000110 EJT A1000111DWSUB 000 0 DOUBLE WORD SUBTRACT ROUTINE A1000112 IIN 0 A1000113 LDA* DWSUB A1000114 STA* DWADD STORE RETURN ADDRESS IN DWADD'S ENTRY POINT A1000115 LDA- 2,Q COMPLEMENT SUBTRAHEND AND USE DWADD TO ADD A1000116 TCA A A1000117 STA- 2,Q k  3& : A1000118 LDA- 3,Q A1000119 TCA A A1000120 STA- 3,Q A1000121 JMP* A1 A1000122 EJT A1000123DWMUL 000 000 DOUBLE WORD MULTIPLY A1000124 IIN 0 A1000125 LDA- I A1000126 STA* ISAVE SAVE I-REG A1000127 STQ- I SET I TO ARRAY ADDRESS A1000128 LDA- 1,I SET A TO LSB OF DOUBLE WORD VALUE A1000129 MUI- 2,I MULTIPLY BY SINGLE WORD VALUE A1000130 LLS 1 A1000131 ALS 15 CONVERT TO DOUBLE PRECISION FORMAT A1000132 STQ* SAVE SAVE MSB A1000133 STA- 4,I STORE LSB IN RESULT A1000134 LDA- (ZERO),I A1000135 MUI- 2,I MULTIPLY MSB BY SINGLE WORD A1000136 LLS 1 A1000137 ALS 15 DOUBLE PRECISION FORMAT A1000138 SOV 0 CLEAR OVERFLOW A1000139 INQ 0 CHECK FOR OVERFLOW A1000140 SQZ 2 A1000141 LDQ- $11 SET OVERFLOW IND A1000142 INQ 1 A1000143 LDQ* SAVE ADD MSB THAT WAS SAVED A1000144 AAQ Q ADD IN RESULT FROM MSB MULTIPLY A1000145 STQ- 3,I STORE IN RESULT A1000146 CLR A A1000147 SOV M0 SKIP IF OVERFLOW A1000148 SQP M1 A1000149M0 INA 1 A1000150M1 STA- 5,I SET STATUS WORD, 0 IF GOOD, 1 IF BAD A1000151 LDA* ISAVE RESTORE I-REG A1000152 STA- I A1000153 EIN 0 A1000154 JMP* (DWMUL) RETURN TO CALLER A1000155 SPC 2 A1000156SAVE NUM 0 A1000157 END A1000158 NAM MOV A11 A ITOS CCS 3.0 SL-149A1100001* MOVE CHARACTER STRING SUBROUTINE A1100002* CREDIT COLLECTION SYSTEM VERSION 3.0 A1100003* DATA SYSTEMS-LA JOLLA DIVISIORT LA JOLLA, CALIFORNIA A1100004* COPYRIGHT CONTROL DATA CORPORATION 1979 A1100005* A1100006 SPC 2 A1100007* ENTRY CONDITIONS: F  3&!: A1100008* A1100009* R1 = SOURCE STRING ABSOLUTE WORD ADDRESS A1100010* R2 = DEST. STRING ABSOLUTE WORD ADDRESS A1100011* Q = NUMBER OF BYTES TO MOVE A1100012* ENTRY IS VIA AN R4 REGISTER JUMP A1100013 SPC 2 A1100014 ENT MOV A1100015 EXT CNTWAR A1100016* A1100017 EQU ONE($23) A1100018* A1100019MOV SQP MOV1 CAN'T MOVE MORE THAN 32,767 A1100020 JMP* SMOVX A1100021MOV1 SFN+ CNTWAR,2,1 SKIP IF COMMERCIAL PACKAGE LOADED INTO MEMORY A1100022 JMP* SMOV GO DO SOFTWARE MOVE A1100023 TRQ A PLACE BYTE COUNT IN REG A ALSO A1100024 NUM $0F01 (MOV) A1100025 SJE- 1,4 RETURN TO CALLER A1100026 SPC 2 A1100027SMOV INQ -1 ADJUST BYTE COUNT A1100028 SQM SMOVX SKIP IF ZERO LENGTH MOVE A1100029 SB1- ONE DECREMENT SOURCE ADDRESS A1100030 SB2- ONE DECREMENT DESTINATION ADDRESS A1100031SMOVL LCA- 1,Q,1 PICKUP BYTE A1100032 SCA- 1,Q,2 STORE BYTE A1100033 DQP *-SMOVL DO AGAIN IF COUNT NOT MINUS A1100034SMOVX SJE- 1,4 RETURN TO CALLER A1100035 END A1100036 NAM GRABMM A12 A ITOS CCS 3.0 SL-149A1200001* MAIN MEMORY RESERVATION ROUTINE A1200002* CREDIT COLLECTION SYSTEM VERSION 3.0 A1200003* DATA SYSTEMS-LA JOLLA DIVISION, LA JOLLA, CALIFORNIA A1200004* COPYRIGHT CONTROL DATA CORPORATION 1979 A1200005* A1200006 SPC 2 A1200007* ALLOCATE MEMORY A1200008* A1200009* A= BASE ADDRESS,MUST BE ON PAGE BOUNDARY A1200010* Q= NUMBER OF PAGES TO ALLOCATE A1200011* A1200012 SPC 2 A1200013* RELEASE MEMORY A1200014* A= BASE ADDRESS,MUST BE ON PAGE BOUNDARY A1200015* Q= NUMBER OF PAGES TO ALLOCATE A1200016* A1200017 SPC 2 A1200018* ERRORS - JUMPS TO SYFAIL IN SYSDAT A1200019* 1. NOT ON PAGE BOUNDARY (BASE ADDRES9  3&":S) A1200020* 2. AREA UNAVAILABLE A1200021* 3. INCORRECT NUMBER OF PAGES A1200022* 4. PAGE COUNT IS ZERO A1200023* A1200024 SPC 2 A1200025* EXIT FROM SUBROUTINE A1200026* Q=0 NO ERRORS A1200027* Q=N/A IF ERRORS, JUMP TO SYFAIL IF ERRORS A1200028 SPC 2 A1200029 SPC 2 A1200030* EXTERNALS/ENTRY POINTS A1200031* A1200032 ENT XMRESV MAIN MEMORY RESERVATION A1200033 ENT XMRETN MAIN MEMORY RETURN A1200034 EXT XMAT MAIN MEMORY ALLOCATION TABLE (SYSDAT) A1200035 EXT SYFAIL ERROR EXIT (SYSDAT) A1200036 EXT XMBLOK ITOS EXECUTIVE A1200037 EXT TSBGIN ITOS EXECUTIVE A1200038 SPC 2 A1200039* EQUATES A1200040* A1200041 EQU ONE($23) A1200042 EQU ZERO($22) A1200043 EJT A1200044* A1200045* ALLOCATE USER AREA MEMORY A1200046* A1200047XMRESV NOP 0 A1200048 SQZ XRMESB ZERO PAGE COUNT, ERROR A1200049 STQ* NUMPGS STORE NUMBER OF PAGES IN HOLD AREA A1200050 ENQ 0 A1200051 STQ* RMVFLG INDICATE A RESERVATION REQUEST A1200052* A1200053XRMESA ENQ 0 A1200054 XFQ 1 CLEAR R1 A1200055 LLS 5 GET BASE PAGE IN Q A1200056 STQ* BASEPG A1200057 SAZ XRMES1 A1200058XRMESB RTJ* MEMERR NOT ON PAGE BOUNDARY A1200059 SPC 2 A1200060* A1200061XRMES1 LRA+ XMAT,1 DETERMINE IF MEMORY IS AVAILABLE A1200062 SAP XRMES2 A1200063 INA 1 A1200064 SAP XRMES2 A1200065 ARQ+ XMAT,1 A1200066 JMP* XRMS2A A1200067* l  3&#: A1200068XRMES2 INQ -1 A1200069* A1200070XRMS2A SQZ XRMES3 SEE IF AT BASE PAGE ADDRESS A1200071 SQP XRMS2B SEE IF STILL WITHIN TABLE A1200072 RTJ* MEMERR MEMORY UNAVAILABLE A1200073* A1200074XRMS2B AR1- ONE A1200075 JMP* XRMES1 A1200076 SPC 2 A1200077XRMES3 XF1 Q A1200078 INQ 1 A1200079XRM3 LDA* RMVFLG SEE IF ALLOCATE OR RELEASE USER AREA A1200080 SAZ XRME3B ALLOCATE A1200081 JMP* XMRTN3 RELEASE AREA A1200082* A1200083XRME3B LDA* NUMPGS A1200084 ALS 8 A1200085 EOR* BASEPG A1200086 STA XMBLOK A1200087 ENQ 0 A1200088 RTJ+ TSBGIN A1200089* A1200090* A1200091XRMES4 LDA XMBLOK SEE IF EXECUTIVE ALLOCATED THE MEMORY OR NOT A1200092 SAZ XRMES7 YES A1200093* A1200094* A1200095 TIMER XRMES4-*+1,0,1,1,1 A1200096 JMP- ($EA) A1200097 SPC 2 A1200098XRMES7 ENQ 0 A1200099 JMP* (XMRESV) ALL DONE, RETURN TO CALLER A1200100* A1200101* A1200102 SPC 2 A1200103BASEPG NUM 0 BASE PAGE FOR ALLOCATION A1200104NUMPGS NUM 0 NUMBER OF PAGES TO ALLOCATE A1200105RMVFLG NUM 0 REMOVE PROCESSOR FLAG A1200106 EJT A1200107* RELEASE USER AREA TO EXECUTIVE A1200108* A1200109* A1200110XMRETN NOP 0 A1200111 SQN XMRTN2 A1200112 RTJ* MEMERR PAGE COUNT IS ZERO A1200113XMRTN2 STQ* RMVFLG SET RELEASE PROCESSOR FLAG A1200114 INQ -1 A1200115 STQ* NUMPGS STORE NUMBER OF PAGES  3&$:IN HOLD AREA A1200116 JMP* XRMESA USE FIRST PORTION OF REQUES PROCESSOR A1200117 SPC 2 A1200118 SPC 2 A1200119XMRTN3 ADQ* NUMPGS A1200120 LR1* NUMPGS A1200121 IIN 0 A1200122* A1200123XMRTN5 LDA XMAT,Q RELEASE MEMORY, HIGHEST PAGE LOC. TO LOWEST A1200124 SAP MEMERR ERROR, INCORRECT NUMBER OF PAGES A1200125 INA 1 A1200126 SAZ XMRTN6 SEE IF MINUS ONE A1200127* A1200128* A1200129MEMERR NOP 0 A1200130 RTJ+ SYFAIL ERROR EXIT (SYSDAT) A1200131 SPC 2 A1200132XMRTN6 STA XMAT,Q A1200133* A1200134 INQ -1 A1200135* A1200136 D1P *-XMRTN5 SEE IF DONE RELEASING MEMORY A1200137* A1200138 SPC 2 A1200139XMRTN7 EIN 0 A1200140 ENQ 0 A1200141 RTJ+ TSBGIN LET ITOS EXEC KNOW THAT MEMORY WAS RELEASED A1200142 ENQ 0 A1200143 JMP* (XMRETN) DONE, RETURN TO REQUESTOR PROGRAM A1200144 END A1200145 NAM LOCATE A13 A ITOS CCS 3.0 SL-149A1300001* PROGRAM FILE LOCATOR A1300002* CREDIT COLLECTION SYSTEM VERSION 3.0 A1300003* DATA SYSTEMS-LA JOLLA DIVISION, LA JOLLA, CALIFORNIA A1300004* COPYRIGHT CONTROL DATA CORPORATION 1979 A1300005 SPC 2 A1300006* ENTRY - Q= ADDRESS OF NAME TO BE FOUND,MUST BE A FILE NAME A1300007* A1300008* A1300009* EXIT - A= STARTING SECTOR A1300010* Q= LENGTH IN WORDS A1300011* A1300012 SPC 2 A1300013 EQU AMONI($F4) A1300014 EQU ADISP($EA) A1300015 SPC 2 A1300016 ENT LOCATE A1300017* A1300018LOCATE NOP 0 9  3&%; A1300019 STQ* KEYADD A1300020 LDA- $C4 A1300021LOC0 STA* LIBSEC A1300022 SPC 2 A1300023 RTJ- (AMONI) A1300024PLC1 ADC $0944 A1300025 ADC LOC1-PLC1 A1300026 ADC 0 A1300027 ADC $08C2 A1300028 ADC 96 A1300029 ADC SLBF-PLC1 A1300030 ADC 0 A1300031LIBSEC ADC 0 A1300032 JMP- (ADISP) A1300033 SPC 2 A1300034LOC1 ENQ 85 A1300035 LDA* KEYADD A1300036 STA- I A1300037LOC2 LDA* SLBF,Q A1300038 SUB- (I) A1300039 SAN LOC3 NO MATCH A1300040 LDA* SLBF+1,Q A1300041 SUB- 1,I A1300042 SAN LOC3 NO MATCH A1300043 LDA* SLBF+2,Q A1300044 SUB- 2,I A1300045 SAZ LOC4 FOUND THE ENTRY POINT A1300046LOC3 INQ -5 HAS THE SECTOR BEEN COMPLETELY SEARCHED A1300047 SQM LOC5 YES A1300048 JMP* LOC2 NO, CONTINUE A1300049 SPC 2 A1300050LOC4 LDA* SLBF+3,Q IS THE PROGRAM IN FILE FORMAT A1300051 SAM LOC4A A1300052 JMP* LOC3 NO A1300053LOC4A LDA* SLBF+4,Q A1300054 STA* SAVA+1 START SECTOR A1300055 LDA* SLBF+3,Q A1300056 TCA A A1300057 MUI =N96 A1300058 TRA Q LENGTH A1300059SAVA LDA =N0 A1300060 JMP* (LOCATE) A1300061 SPC 2 A1300062LOC5 LDA* SLBF+95 A1300063 INA 0 A1300064 SAZ LOC6 IS THIS THE END OF THE DIRECTORY A1300065 JMP* LOC0 NO, READ IN THE NEXT SECTOR A1300066 SPC 2 s  3&&; A1300067LOC6 ENA -1 A1300068 JMP* (LOCATE) INDICATE THAT THE NAME WAS NOT FOUND A1300069 SPC 2 A1300070KEYADD ADC 0 A1300071SLBF BZS SLBF(96) A1300072 END A1300073 NAM C18DMY A14 A ITOS CCS 3.0 SL-149A1400001* DUMMY ENTRIES FOR COMM-18 INITIATION A1400002* CREDIT COLLECTION SYSTEM VERSION 3.0 A1400003* DATA SYSTEMS-LA JOLLA DIVISION, LA JOLLA, CALIFORNIA A1400004* COPYRIGHT CONTROL DATA CORPORATION 1979 A1400005 SPC 2 A1400006 ENT LOCATE PROGRAM FILE LOCATOR A1400007 ENT XMRESV MAIN MEMORY RESERVATION A1400008 ENT XMRETN MAIN MEMORY RETURN A1400009 SPC 1 A1400010 EXT SYFAIL SYSTEM FAILURE PROCESSOR A1400011 SPC 2 A1400012LOCATE NOP 0 A1400013 RTJ+ SYFAIL A1400014 SPC 1 A1400015XMRESV NOP 0 A1400016 RTJ+ SYFAIL A1400017 SPC 1 A1400018XMRETN NOP 0 A1400019 RTJ+ SYFAIL A1400020 END A1400021 NAM SYUTIL A15 A ITOS CCS 3.0 SL-149A1500001* ITOS UTILITY PROCESSOR A1500002* CREDIT COLLECTION SYSTEM VERSION 3.0 A1500003* DATA SYSTEMS-LA JOLLA DIVISION, LA JOLLA, CALIFORNIA A1500004* COPYRIGHT CONTROL DATA CORPORATION 1979 A1500005* A1500006 SPC 2 A1500007* E X T E R N A L S A1500008 SPC 1 A1500009 EXT BAITOS CONCURRENT BATCH PROCESSING INDICATOR A1500010 EXT DWSUB SYSTEM DOUBLE WORD SUBTRACT SUBROUTINE A1500011 EXT FILOAD SYSTEM FILE INITIALIZATION INDICATOR A1500012 EXT HORMIN CURRENT TIME IN HOUR AND MINUTE A1500013 EXT JOBIND JOB PROCESSOR ACTIVE INDICATOR A1500014 EXT LOG1A SYSTEM LOGICAL UNIT TABLE A1500015 EXT MAXSEC SYSTEM MAXIMUM SECTOR -LIBRARY UNIT A1500016 EXT MMLUTB MASS MEMORY DEVICE TABLE A1500017 EXT QPASWD BUFFER FOR PASSWORD A1500018 EXT RETIME TIME IN LOG OFF MESSAGE A1500019 EXT SWTCH JOB PROCESSOR ACTIVE INDICATOR A1500020 EXT STRBAS START PROCESSOR FIRST @  3&';0WORD ADDRESS A1500021 EXT TERMLU LOGICAL UNIT FOR TERMINAL A1500022 EXT TSIOC1 IO COMPLETION PROCESSOR ROUTINE A1500023 EXT TSLOFF LENGTH OF LOG OFF MESSAGE A1500024 EXT TSNABL TIMESHARE ENABLED INDICATOR A1500025 EXT TSPEND LAST LOCATION OF TSPORT A1500026 EXT TSPORT TIMESHARE I/O TABLE STARTING ADDRESS A1500027 EXT TSTLOC START FUNCTION ADDRESS LOCATIONS A1500028 EXT MIB MANUAL INTERRUPT DISABLE INDICATOR A1500029 EXT PRTCDR RETURN ADDRESS FOR DELAYED SWAPS A1500030 EXT UNPIO BACKGROUND I/O ACTIVE INDICATOR A1500031 EXT SPASW SWAP REQUEST INDICATOR A1500032 EXT SWPSEC BACKGROUND SWAP BUFFER SECTOR ADDRESS A1500033 EXT STLPV4 SWAP ACTIVATION SUBROUTINE (DRCORE) A1500034 EXT SWAPON SWAP ACTIVE INDICATOR A1500035 EXT LOOP SWAPPED IDLE LOOP ADDRESS A1500036 EXT* XMRESV ITOS MEMORY RESERVATION ROUTINE A1500037 EXT* XMRETN ITOS MEMORY RETURN ROUTINE A1500038 SPC 1 122*4612A1500039 EXT* BINASC CONVERT NUMBER TO ASCII A1500040 EXT* DECHEX CONVERT ASCII TO NUMBER A1500041 EXT* IMAGE TIMESHARE DATA IMAGE UPDATE ROUTINE A1500042 EJT 122*4612A1500043 SPC 4 122*4612A1500044* E Q U I V A L E N C E S A1500045 SPC 1 A1500046 EQU LPMASK($2) BIT MASK TABLE A1500047 EQU ONEMSK(3) ONE MASK TABLE A1500048 EQU ZERO($22) LOCATION CONTAINING ZERO A1500049 EQU ZROMSK($13) ZERO MASK TABLE A1500050 EQU ONEBIT($23) SINGLE BIT TABLE A1500051 EQU ZROBIT($33) ZERO BIT TABLE A1500052 EQU AMONI($F4) ADDRESS OF MONITOR REQUEST ENTRY A1500053 EQU ADISP($EA) ADDRESS OF DISPATCHER A1500054 EQU RPCP($66) MONITOR REQUEST PRIORITIES A1500055 EQU PRI5($0055) COMPLETE REQUEST AT PRIORITY 5 A1500056 EQU EREQST(08) P. D. T. ENTRY -REQUEST STATUS A1500057 SPC 2 A1500058* V O L U M E I N F O R M A T I O N T A B L E A1500059 SPC 1 A1500060 EQU VIBMSM(6) BEGINNING OF MANAGEABLE SPACE - MSB A1500061 EQU VIBMSL(7) BEGINNING OF MANAGEABLE SPACE - LSB A1500062 EQU VILBAM(11) LARGEST BLOCK OF SPACE AVAILABLE - MSB A1500063 EQU VILBAL(12) LARGEST BLOCK OF SPACE AVAILABLE - LSB A1500064 EQU VICURF(17) CURRENT NUMBER OF FILES EXISTING ON VOLUME A1500065 EQU VINFDB(18) NUMBER OF BLOCKS IN FILE DEFINITION DIRECTORY A1500066 EQU VINXTB(19) NEXT AVAILABLE BLOCK IN FILE DEF. DIRECTORY A1500067 EQU VINOOF(20) NUMBER OF OPEN FILES ON VOLUME A1500068 EJT  3&(;D A1500069 SPC 4 A1500070* M U L T I - U S E R P R O G R A M T A B L E E N T R I E S A1500071 SPC 1 A1500072 EQU MUROOT(ZERO) ASSOCIATED ROOT TABLE ADDRESS A1500073 EQU MUSRID(01) PROGRAM IDENTIFICATION - 4 WORDS ASCII A1500074 EQU MUSIZE(05) PROGRAM LENGTH (WORDS) A1500075 EQU MUSECT(06) PROGRAM SECTOR ADDRESS - 2 WORDS A1500076 EQU MUPAGE(08) PROGRAM BASE MEMORY PAGE NUMBER A1500077 EQU ACROOT(09) PROGRAM ACTIVE ROOT COUNT A1500078 EQU MURSIZ(10) PROGRAM TRUE LENGTH (WORDS) A1500079 EQU MUEXTH(11) PROGRAM EXECUTION THREAD A1500080 EQU MURSTX(13) PROGRAM STATE INDEX A1500081 EQU MURCLK(15) PROGRAM CLOCK VALUE A1500082 EQU MUITEM(MURCLK+1) A1500083 SPC 2 A1500084* U S E R P R O G R A M U S E R T A B L E E N T R I E S A1500085 SPC 1 A1500086 EQU TSIOTB(ZERO) ASSOCIATED I/O TABLE ADDRESS A1500087 EQU USERID(01) USER IDENTIFICATION - 4 WORDS ASCII A1500088 EQU PGMSIZ(05) USER PROGRAM LENGTH (WORDS) A1500089 EQU PGMSEC(06) USER PROGRAM SECTOR - 2 WORDS A1500090 EQU TWNSEC(08) SWAP TWIN SECTOR - 2 WORDS A1500091 EQU SWPBLK(10) USER SWAP BLOCK BYTES A1500092 EQU NEXETH(11) USER EXECUTION THREAD A1500093 EQU NSWPTH(12) USER SWAP THREAD A1500094 EQU USRSTX(13) USER STATE INDEX A1500095 EQU TSMUTB(14) MULTI USER TABLE ADDRESS A1500096 EQU NUMREQ(15) USER REQUEST COUNT A1500097 EQU USRITM(NUMREQ+1) A1500098 EJT A1500099 SPC 4 A1500100* U S E R P R O G R A M S T A T E I N D I C E S A1500101 SPC 1 A1500102 EQU SXCACT(01) EXECUTING IN MAIN MEMORY A1500103 EQU SXCTSL(02) SUSPENDED IN MAIN MEMORY-TIMESLICE COMPLETE A1500104 EQU SXCMMA(03) SUSPENDED IN MAIN MEMORY-M.M. I/O ACTIVE A1500105 EQU SXCMMC(04) SUSPENDED IN MAIN MEMORY-M.M. I/O COMPLETE A1500106 EQU SXCFMA(05) SUSPENDED IN MAIN MEMORY-FILE I/O ACTIVE A1500107 EQU SXCFMC(06) SUSPENDED IN MAIN MEMORY-FILE I/O COMPLETE A1500108 EQU SXCTMA(07) SUSPENDED IN MAIN MEMORY-TMNL I/O ACTIVE A1500109 EQU SXCTMC(08) SUSPENDED IN MAIN MEMORY-TMNL I/O COMPLETE A1500110 EQU SXCDTA(09) SUSPENDED IN MAIN MEMORY-DATA I/O ACTIVE A1500111 EQU SXCDTC(10) SUSPENDED IN MAIN MEMORY-DATA I/O COMPLETE A1500112 EQU SXCATA(11) SUSPENDED IN MAIN MEMORY-ATTACH ACTIVE A1500113 EQU SXCATC(12) SUSPENDED IN MAIN MEMORY-ATTACH COMPLETE A1500114* A1500115 EQU SXMASS(13) RESERVED A1500116 EQU SXMTSL(14) SWAPPED ON MASS MEMO  3&);XRY-TIMESLICE COMPLETE A1500117 EQU SXM015(15) RESERVED A1500118 EQU SXMMMC(16) SWAPPED ON MASS MEMORY-M.M. I/O COMPLETE A1500119 EQU SXM017(17) RESERVED A1500120 EQU SXMFMC(18) SWAPPED ON MASS MEMORY-FILE I/O COMPLETE A1500121 EQU SXMTMA(19) SWAPPED ON MASS MEMORY-TMNL I/O ACTIVE A1500122 EQU SXMTMC(20) SWAPPED ON MASS MEMORY-TMNL I/O COMPLETE A1500123 EQU SXMDTA(21) SWAPPED ON MASS MEMORY-DATA I/O ACTIVE A1500124 EQU SXMDTC(22) SWAPPED ON MASS MEMORY-DATA I/O COMPLETE A1500125 EQU SXMATA(23) SWAPPED ON MASS MEMORY-ATTACH ACTIVE A1500126 EQU SXM024(24) RESERVED A1500127* A1500128 EQU SXMUSA(25) SUSPENDED ON MASS MEMORY-UNSWAP ACTIVE A1500129 EQU SXCUSC(26) SUSPENDED IN MAIN MEMORY-UNSWAP COMPLETE A1500130 EQU SXMMUR(27) SUSPENDED ON MASS MEMORY-MULTIUSER READ A1500131 EQU SXMLOG(28) SUSPENDED ON MASS MEMORY-INITIAL LOGIN A1500132 EQU SXMJOB(29) SUSPENDED ON MASS MEMORY-JOB STEP A1500133 SPC 2 A1500134* NOTE - BIT 15 = 1 WHILE THE USER IS BEING SWAPPED A1500135 EJT A1500136 SPC 4 A1500137* U S E R P R O G R A M I / O T A B L E E N T R I E S A1500138 SPC 1 A1500139 EQU TSUSTB(ZERO) ASSOCIATED USER TABLE ADDRESS A1500140 EQU FRQBUF(01) FILE REQUEST BUFFER HEADER (4 WORDS) A1500141 EQU IORQCD(05) INPUT/OUTPUT REQUEST CODE A1500142 EQU IORQCA(06) INPUT/OUTPUT COMPLETION ADDRESS A1500143 EQU IORQTH(07) INPUT/OUTPUT THREAD WORD A1500144 EQU IORQLU(08) INPUT/OUTPUT LOGICAL UNIT A1500145 EQU IOMSLN(09) INPUT/OUTPUT MESSAGE LENGTH A1500146 EQU IOBFAD(10) INPUT/OUTPUT MESSAGE BUFFER ADDRESS A1500147 EQU IOMMSB(11) INPUT/OUTPUT MASS MEMORY ADDRESS A1500148 EQU IOMLSB(12) INPUT/OUTPUT MASS MEMORY ADDRESS A1500149 EQU IOCNPT(13) INPUT/OUTPUT CONTROL POINT A1500150 EQU IOSTAT(14) INPUT/OUTPUT STATUS WORD A1500151 EQU TERMBF(15) TERMINAL MESSAGE BUFFER ADDRESS A1500152 EQU IOITEM(TERMBF+1) A1500153 SPC 2 A1500154* USER PROGRAM I/O STATUS INDICATORS A1500155 SPC 1 A1500156* UNSOLICITED INPUT GROUP A1500157 EQU LI(00) TERMINAL LOG-IN A1500158 EQU MN(01) TERMINAL MANUAL INTERRUPT A1500159 EQU ES(02) TERMINAL ESCAPE A1500160* INPUT-OUTPUT ERROR GROUP A1500161 EQU DS(04) TERMINAL DISCONNECT A1500162 EQU ME(05) MASS MEMORY ERROR A1500163 EQU FE(06) FILE REQUEST ERROR A1500164* REQUEST TYPE GROUP !  3&*;l A1500165 EQU IN(08) DATA INPUT REQUEST A1500166 EQU IA(09) INPUT / OUTPUT ACTIVE A1500167 EQU IC(10) INPUT / OUTPUT COMPLETE A1500168 EQU MM(11) MASS MEMORY I/O REQUEST A1500169 EQU TI(12) TERMINAL I/O REQUEST A1500170* TERMINAL CHARACTERISTIC GROUP A1500171* A1500172 EQU DY(TI+1) END OF THE DYNAMIC STATUS GROUP A1500173 SPC 1 A1500174* 2550 PHYSICAL DEVICE TABLE A1500175 SPC 1 A1500176 EQU CPSTAT(31) CP STATUS WORD A1500177 SPC 1 A1500178* SMD PHYSICAL DEVICE TABLE A1500179 SPC 1 A1500180 EQU NUMHDS(49) NO. OF HEADS(TRACKS) PER CYLINDER A1500181 EQU MXSRTK(71) MAX. NO.OF SECTORS PER TRACK A1500182 EJT A1500183 SPC 4 A1500184SYUTIL EQU SYUTIL(*) A1500185 SPC 1 A1500186SYU005 TRQ A A1500187 INA -FUNMAX IS THE INDEX LEGAL A1500188 SAP SYU010 NO, IGNORE THE REQUEST A1500189 SPC 1 A1500190 LDA* FUNTAB,Q A1500191 INA -1 A = ADDRESS OF THE REQUESTED FUNCTION A1500192 STA* SYU010+1 A1500193SYU010 JMP SYU020 A1500194 SPC 2 A1500195FUNTAB ADC INIT-SYU010 00 - INITIALIZE THE SYSTEM VOLUME A1500196 ADC START-SYU010 01 - START THE ITOS SYSTEM A1500197 ADC STOP-SYU010 02 - STOP THE ITOS SYSTEM A1500198 ADC PASSWD-SYU010 03 - ENTER A SYSTEM PASSWORD A1500199 SPC 1 A1500200 EQU FUNMAX(*-FUNTAB) A1500201 SPC 2 A1500202SYU020 RTJ- (AMONI) RELEASE THE UTILITY A1500203SYU030 ADC $1901 A1500204 ADC (SYUTIL-SYU030) A1500205 SPC 2 A1500206 EJT A1500207************************************************** A1500208* A1500209* A1500210* INITIALIZE THE SYSTEM VOLUME A1500211* A1500212* 7W  3&+; A1500213************************************************** A1500214 SPC 4 A1500215INIT NOP 0 A1500216 LDA+ TSNABL IS THE SYSTEM ACTIVE A1500217 SAZ INI010 NO A1500218 SPC 1 A1500219 ENQ 0 YES, INDICATE AN ERROR A1500220 RTJ MESSAG A1500221 JMP* SYU020 AND EXIT A1500222 SPC 1 A1500223INI010 ENQ 1 DISPLAY THE WARNING MESSAGE A1500224 RTJ MESSAG A1500225 ENQ 6 A1500226 RTJ MESSAG A1500227 SPC 1 A1500228 RTJ- (AMONI) READ THE RESPONSE A1500229INIP1 ADC $0900+RPCP A1500230 ADC INI020-INIP1 A1500231 ADC 0 A1500232 ADC $18FD A1500233 ADC 2 A1500234 ADC INIBUF-INIP1 A1500235 JMP- (ADISP) A1500236 SPC 1 A1500237INI020 LDA* INIBUF A1500238 SUB =AOK WAS THE RESPONSE PROPER A1500239 SAZ INI030 YES A1500240 SPC 1 A1500241 ENQ 2 NO A1500242 RTJ MESSAG A1500243 JMP* SYU020 EXIT A1500244 EJT A1500245 SPC 4 A1500246INI030 EQU INI030(*) A1500247 LDQ =XMMLUTB A1500248 LDA- 1,Q A1500249 STA- I I = ADDRESS OF THE SYSTEM VOLUME VIT A1500250 LDA- (I) A1500251 AND- LPMASK+15 A1500252 TRA Q Q = SYSTEM VOLUME L. U. A1500253 EOR- ONEBIT+15 A1500254 STA- (I) DISMOUNT THE SYSTEM VOLUME A1500255 SPC 1 A1500256 LDQ+ LOG1A,Q A1500257 LDA- EREQST,Q A1500258 ARS 4 POSITION THE DEVICE TYPE CODE A1500259 AND- LPMASK+7 ISOLATE A1500260 INA -70 )  3&,; A1500261 SAZ INI040 SENSE SMD(1867-20) EQUIPMENT TYPE A1500262 JMP* INI050 ERROR IF ANY OTHER TYPE A1500263 SPC 1 A1500264* COMPUTE MAX. SECTOR A1500265* MAX SECTOR = CYLDEV * TRKCYL * SECTRK - 2 * SECTRK A1500266* (THIS CODE IS ALSO IN MMSIZ ROUTINE IN THE UTILITY OVERLAYS.) A1500267 SPC 1 A1500268INI040 STQ- I = ADDR. OF SYSVOL PHY. DEV. TBL. A1500269 SOV 0 (CLEAR OVERFLOW) A1500270 LDA =N823 CYLINDERS PER DEVICE A1500271 MUI- NUMHDS,I * TRACKS PER CYLINDER A1500272 MUI- MXSRTK,I * SECTORS PER TRACK A1500273 SNO INI041 SENSE NO OVERFLOW A1500274 JMP* INI050 A1500275INI041 LLS 1 CONVERT TO MSB,LSB A1500276 ALS 15 A1500277 SUB- MXSRTK,I ADJUST FOR LAST TWO TRACKS NOT AVAILABLE A1500278 SUB- MXSRTK,I A1500279 INA -1 ADJUST FOR SECTOR ADDRESS FROM NO. OF SECTORS A1500280* NOTE- THE ABOVE ADJUSTMENT FOR SECTOR ADDRESS IS WRONG BUT A1500281* CONSISTENT WITH THE 'MMSIZ' ROUTINE. THUS 'INITING' A A1500282* VOLUME ALWAYS RESULTS IN THE AVAILABLE FILE MANAGER SPACEA1500283* BEING 1 SECTOR LESS THAN MAXIMUM. A1500284 SAP INI042 SENSE NO OVERFLOW A1500285 AND =N$7FFF A1500286 INQ -1 A1500287INI042 STQ* INIMIN MSB A1500288 STA* INIMIN+1 LSB A1500289 JMP* INI060 A1500290 SPC 1 A1500291INI050 ENQ 2 INDICATE AN ERROR A1500292 RTJ MESSAG A1500293 JMP* SYU020 AND EXIT A1500294 EJT A1500295 SPC 4 A1500296INI060 LDQ =XMMLUTB A1500297 LDA- 1,Q A1500298 STA- I I= ADDR. OF SYSTEM VULUME VIT A1500299 SPC 1 A1500300 LDA- VIBMSM,I A1500301 STA* INISUB SET UP THE START OF MANAGABLE SPACE MSB A1500302 STA* INIDIR+2 A1500303 LDA- VIBMSL,I A1500304 STA* INISUB+1 AND THE LSB A1500305 STA* INIDIR+3 A1500306 SPC 1 A1500307 RTJ* INIABS A1500308INIABS NOP 0  3&-; A1500309 LDQ* INIABS A1500310 ADQ* INIREL Q = ADDRESS OF THE DOUBLE WORD PARAMETERS A1500311 SPC 1 A1500312 RTJ+ DWSUB CALCULATE THE SIZE OF MANAGEABLE SPACE A1500313 SPC 1 A1500314 LDA* INISTT WAS THE OPERATION PERFORMED CORRECTLY A1500315 SAZ INI070 YES A1500316 JMP* INI050 NO, REPORT THE ERROR AND EXIT A1500317 SPC 1 A1500318INI070 LDA* INIRES SET UP THE DIRECTORY DATA A1500319 STA* INIDIR A1500320 STA- VILBAM,I AND THE VOLUME LABEL A1500321 LDA* INIRES+1 A1500322 STA* INIDIR+1 A1500323 STA- VILBAL,I A1500324 EJT A1500325 SPC 4 A1500326 LDA+ MAXSEC A1500327 INA 1 SET UP THE DIRECTORY SECTOR A1500328 STA* INISEC A1500329 SPC 1 A1500330 ENA 0 A1500331 STA- VICURF,I INITIALIZE THE SYSTEM VOLUME VIT A1500332 STA- VINFDB,I A1500333 STA- VINXTB,I A1500334 STA- VINOOF,I A1500335 SPC 1 A1500336 STA+ FILOAD CLEAR THE FILE INITAILIZATION INDICATOR A1500337 SPC 1 A1500338 RTJ- (AMONI) WRITE THE DIRECTORY TO MASS MEMORY A1500339INIP2 ADC $0D00+RPCP A1500340 ADC INI080-INIP2 A1500341 ADC 0 A1500342 ADC $08C2 A1500343 ADC 5 A1500344 ADC INIDIR-INIP2 A1500345 ADC 0 A1500346INISEC ADC 0 A1500347 JMP- (ADISP) A1500348 SPC 1 A1500349 SPC 1 A1500350INI080 RTJ IMAGE UPDATE THE ITOS DATA ON THE CORE IMAGE A1500351 SPC 1 A1500352 LDQ =XMMLUTB A1500353 LDQ- 1,Q A1500354 LDA- (ZERO),Q A1500355 AND- LPMASK+15 RE-MOUNT THE SYSTEM VOLUME A1500356 STA- (ZERO),Q 8  3&.; A1500357 SPC 1 A1500358 ENQ 3 A1500359 RTJ MESSAG INDICATE THE REQUEST WAS SUCESSFUL A1500360 JMP SYU020 EXIT A1500361 EJT A1500362 SPC 4 A1500363* F I L E I N I T I A L I Z A T I O N A1500364* A1500365* D A T A A N D S T O R A G E A1500366 SPC 2 A1500367INIBUF NUM 0,0,0 A1500368INIREL ADC INIMIN-INIABS A1500369 SPC 1 A1500370 SPC 1 A1500371INIDIR NUM 0 INITIALIZED MASS MEMORY DIRECTORY A1500372 NUM 0 A1500373 NUM 0 A1500374 NUM 0 A1500375 NUM -1 A1500376 SPC 1 A1500377INIMIN ADC 0 DOUBLE WORD SUBTRACT MINUEND A1500378 ADC 0 A1500379INISUB ADC 0 DOUBLE WORD SUBTRACT SUBTRAHEND A1500380 ADC 0 A1500381INIRES ADC 0 DOUBLE WORD SUBTRACT RESULT A1500382 ADC 0 A1500383INISTT ADC 0 DOUBLE WORD SUBTRACT ERROR STATUS A1500384 EJT A1500385************************************************** A1500386* A1500387* A1500388* S T A R T T H E I T O S S Y S T E M A1500389* A1500390* A1500391************************************************** A1500392 SPC 4 A1500393 SPC 2 A1500394START LDA+ TSNABL IS THE SYSTEM ALREADY ACTIVE A1500395 SAZ STA020 NO A1500396 SPC 1 A1500397 ENQ 0 DISPLAY AN ERROR MESSAGE A1500398 SPC 1 A1500399STA010 RTJ MESSAG A1500400 JMP SYU020 EXIT A1500401 SPC 1 A1500402STA020 RTJ* ABSADD ABSOLUTIZE ALL REQUIRED ADDRESSES A1500403 SPC 1 A1500404 LDA+ JOBIND IS THE JOB PROCESSOR A  3&/;CTIVE A1500405 SAN STA030 YES A1500406 LDA+ SWTCH NO, IS LIBEDT ACTIVE A1500407 SAZ STA050 NO A1500408 SPC 1 A1500409STA030 LDA =XBAITOS YES, IS CONCURRENT BATCH ALLOWED A1500410 SAN STA040 YES, CONTINUE A1500411 SPC 1 A1500412 ENQ 4 NO, INDICATE AN ERROR A1500413 JMP* STA010 A1500414 SPC 1 A1500415STA040 RAO* SWAPPD SET BACKGROUND SWAPPED A1500416 RTJ* SWAPIT SWAP THE BACKGROUND A1500417 SPC 1 A1500418STA050 RAO+ MIB DISABLE BACKGROUND INITIATION A1500419 EJT 122*4612A1500420 SPC 4 122*4612A1500421 LDQ =XTSTLOC Q = ADDRESS OF START ROUTINE ADDRESSES A1500422 LDA- (ZERO),Q A1500423 STA* STASEC SPECIFY THE SECTOR ADDRESS OF THE ROUTINE A1500424 LDA- 1,Q A1500425 SUB* STALOC A1500426 STA* STALEN SPECIFY THE PROGRAM LENGTH A1500427 LDQ* STALOC A1500428 INQ 2 (BUMP OVER JMP INSTRUCTION) A1500429 STQ* STA060+1 SETUP RTJ TO START ROUTINE A1500430 INQ -2 A1500431 RTJ* PAGMEM CONVERT ADDRESS AND LENGTH TO PAGES A1500432 RTJ XMRESV RESERVE THE MEMORY FOR START A1500433 SPC 4 A1500434 RTJ- (AMONI) READ IN THE START PROCESSOR A1500435 ADC $4800+RPCP A1500436STACP1 ADC 0 A1500437 ADC 0 A1500438 ADC $08C2 A1500439STALEN ADC 0 A1500440STALOC ADC STRBAS A1500441 ADC 0 A1500442STASEC ADC 0 A1500443 JMP- (ADISP) A1500444 SPC 1 A1500445STA060 RTJ+ STRBAS INITIATE START PROCESSOR A1500446 LDQ* STALOC GET START ADDRESS AND LENGTH A1500447 LDA* STALEN A1500448 RTJ* PAGMEM CONVERT TO PAGES A1500449 RTJ XMRETN RETURN MEMORY A1500450 LDA* SWAPPD A1500451 SAZ STA070 SENSE BACKGROUND NOT SWAPPED A1500452 RTJ* UNSWAP UNSWAP BACKGROUND 0s  3&0; A1500453STA070 ENA 0 A1500454 STA+ MIB RE-ENABLE THE MANUAL INTERRUPT A1500455 JMP SYU020 RELEASE AND EXIT A1500456SWAPPD NUM 0 BACKGROUND SWAPPED INDICATOR A1500457 SPC 2 A1500458* CONVERT LOGICAL ADDRESSES TO MEMORY PAGE FORMAT A1500459 SPC 2 A1500460PAGMEM 0 0 A1500461 STQ* PAGBAS SAVE THE BASE LOGICAL ADDRESS A1500462 ENQ 0 A1500463 LLS 5 CONVERT THE LENGTH TO PAGES A1500464 SAZ PAG010 A1500465 INQ 1 A1500466PAG010 LDA* PAGBAS A1500467 AND- ZROMSK+10 ROUND BASE UP TO PAGE BOUNDARY A1500468 JMP* (PAGMEM) RETURN A1500469PAGBAS NUM 0 A1500470 SPC 2 A1500471 EJT A1500472 SPC 4 A1500473* A B S O L U T I Z E P R O G R A M A D D R E S S E S A1500474 SPC 2 A1500475ABSADD NOP 0 A1500476 SPC 1 A1500477 RTJ* ABSLOC A1500478ABSLOC NOP 0 A1500479 LDA* ABSLOC A1500480 ADD* ABSRL1 A1500481 LDQ =XPRTCDR A1500482 STA- 1,Q SET UP DELAYED SWAP RETURN ADDRESS A1500483 SPC 1 A1500484 LDA* ABSLOC A1500485 ADD* ABSRL2 A1500486 STA* SWACP1 SWAP WRITE COMPLETION ADDRESS A1500487 SPC 1 A1500488 LDA* ABSLOC A1500489 ADD* ABSRL3 A1500490 STA* STACP1 'START' READ COMPLETION A1500491 SPC 1 A1500492 LDA* ABSLOC A1500493 ADD* ABSRL4 A1500494 STA* UNSCP1 UNSWAP READ COMPLETION A1500495 SPC 1 A1500496 LDA+ SWPSEC A1500497 STA* SWASEC SET UP SWAP BUFFER SECTOR A1500498 STA* UNSSEC A1500499 SPC 1 A1500500 JMP* (ABSADD) RETURN {  3&1; A1500501 SPC 2 A1500502ABSRL1 ADC SWA010-ABSLOC A1500503ABSRL2 ADC SWA020-ABSLOC A1500504ABSRL3 ADC (STA060-ABSLOC) A1500505ABSRL4 ADC UNS010-ABSLOC A1500506 EJT A1500507 SPC 4 A1500508* S W A P T H E M S O S B A C K G R O U N D A1500509 SPC 2 A1500510SWAPIT NOP 0 A1500511 SPC 1 A1500512 LDA+ UNPIO IS BACKGROUND I/O ACTIVE A1500513 SAZ SWA010 NO A1500514 STA+ SPASW YES, INDICATE A SWAP IS REQUIRED A1500515 JMP- (ADISP) EXIT TO AWAIT DELAYED SWAP RETURN A1500516 SPC 1 A1500517SWA010 LDA- $F6 A1500518 SUB- $F7 A1500519 INA -1 A1500520 STA* SWALEN SET UP THE SWAP LENGTH A1500521 LDA- $F7 A1500522 INA 1 A1500523 STA* SWAADD AND THE STARTING ADDRESS A1500524 SPC 1 A1500525 RTJ- (AMONI) SWAP THE BACKGROUND TO MASS MEMORY A1500526 ADC $4C00+RPCP A1500527SWACP1 ADC 0 A1500528 ADC 0 A1500529 ADC $08C2 A1500530SWALEN ADC 0 A1500531SWAADD ADC 0 A1500532 ADC 0 A1500533SWASEC ADC 0 A1500534 SPC 1 A1500535 RTJ+ STLPV4 INITIATE THE SWAPPED IDLE LOOP A1500536 JMP- (ADISP) A1500537 SPC 1 A1500538SWA020 LDQ* SWAADD GET BACKGROUND ADDRESS AND LENGTH A1500539 LDA* SWALEN A1500540 RTJ* PAGMEM CONVERT TO PAGES A1500541 RTJ XMRETN RETURN THE PAGES A1500542 JMP* (SWAPIT) A1500543 EJT A1500544 SPC 4 A1500545* U N S W A P T H E M S O S B A C K G R O U N D A1500546 SPC 2 A1500547UNSWAP NOP 0 A1500548 SPC 1 !o  3&2<  A1500549 RTJ* ABSADD ABSOLUTIZE ALL NECESSARY ADDRESSES A1500550 SPC 1 A1500551 LDA- $F6 A1500552 SUB- $F7 A1500553 INA -1 A1500554 STA* UNSLEN SET UP THE UNSWAP LENGTH A1500555 LDQ- $F7 A1500556 INQ -1 A1500557 STQ* UNSADD AND THE STARTING ADDRESS A1500558 RTJ* PAGMEM CONVERT TO PAGES A1500559 RTJ XMRESV RESERVE THE BACKGROUND MEMORY A1500560 SPC 1 A1500561 RTJ- (AMONI) READ THE BACKGROUND FROM MASS MEMORY A1500562 ADC $4800+RPCP A1500563UNSCP1 ADC 0 A1500564 ADC 0 A1500565 ADC $08C2 A1500566UNSLEN ADC 0 A1500567UNSADD ADC 0 A1500568 ADC 0 A1500569UNSSEC ADC 0 A1500570 SPC 1 A1500571UNSXIT JMP- (ADISP) A1500572 SPC 1 A1500573UNS010 LDA* UNSXIT A1500574 STA+ LOOP TERMINATE THE SWAPPED IDLE LOOP A1500575 ENA 0 A1500576 STA+ MIB RE-ENABLE MANUAL INTERRUPT A1500577 IIN 0 A1500578 STA+ SWAPON DISABLE THE SWAP CONDITION A1500579 JMP* (UNSWAP) RETURN A1500580 EJT 0 A1500581************************************************** A1500582* A1500583* A1500584* S T O P T H E I T O S S Y S T E M A1500585* A1500586* A1500587************************************************** A1500588 SPC 2 A1500589 SPC 2 A1500590STOP NOP 0 A1500591 SPC 1 A1500592STP010 ENQ 6 REQUEST VERIFICATION A1500593 RTJ MESSAG A1500594 SPC 1 A1500595 RTJ- (AMONI) READ THE RESPONSE A1500596STP1 ADC $0900+RPCP 3  3&3<  A1500597 ADC STP020-STP1 A1500598 ADC 0 A1500599 ADC $18FD A1500600 ADC 2 A1500601 ADC STPBUF-STP1 A1500602 JMP- (ADISP) A1500603 SPC 1 A1500604STP020 LDA* STPBUF A1500605 SUB =AOK WAS THE RESPONSE PROPER ('OK') A1500606 SAZ STP030 YES A1500607 SPC 1 A1500608 ENQ 2 NO A1500609 RTJ MESSAG A1500610 JMP SYU020 EXIT A1500611 EJT 0 A1500612STP030 ENQ 7 REQUEST TIME WHEN SYSTEM WILL BE BACK A1500613 RTJ MESSAG A1500614 SPC 1 A1500615 LDA =N$FF20 PRESET BUFFER S.T. IF NOTHING IS INPUT, IT A1500616* WILL BE AN ILLEGAL BINARY NUMBER A1500617 STA* STPBUF A1500618 LDA =N$2020 PRESET THE REST OF THE BUFFER TO BLANK A1500619 STA* STPBUF+1 A1500620 STA* STPBUF+2 A1500621 SPC 2 A1500622 RTJ- (AMONI) READ RESPONSE A1500623STP2 ADC $0900+PRI5 COMPLETE AT PRIORITY 5 , S.T. WHEN SETTING A1500624* STATUS WORD, THE PROGRAM WOULD NOT BE A1500625* INTERRUPTED BY PROGRAMS RUNNING AT 6 A1500626* A1500627 ADC STP040-STP2 A1500628 ADC 0 A1500629 ADC $18FD A1500630 ADC 2 A1500631 ADC STPBUF-STP2 A1500632 JMP- (ADISP) A1500633 SPC 1 A1500634STP040 RTJ DECHEX CONVERTS TO A NUMBER A1500635 ADC (STPBUF-*) A1500636 ADC (TIME-*) A1500637 SPC 1 A1500638 LDA* TIME A1500639 SAM STP050 CHECK IF POSITIVE,THEN A LEGAL NO. WAS INPUT A1500640 SUB =N2401 CHECK IF SMALLER THAN 2401 A1500641 SAM STP060 A1500642 SPC 1 A1500643STP050 LDA =A?? TIME IS INVALID, ENTER ???? AS VALUE A1500644 STA* STPBUF  3&4<4 A1500645 STA* STPBUF+1 A1500646 SPC 1 A1500647STP060 LDQ =XRETIME A1500648 LDA* STPBUF A1500649 STA- (ZERO),Q SAVE THE TIME OF RESTORATION IN TSDATA A1500650 LDA* STPBUF+1 A1500651 STA- 1,Q A1500652 SPC 1 A1500653 RTJ IMAGE SAVE THE DATA ON THE CORE IMAGE A1500654 EJT 0 A1500655* SET UP ALL I/O TABLES (EXCEPT PORT 0) A1500656* A1500657 SPC 2 A1500658* FORCE A RELOAD OF THE 2550 CPU TO A1500659* INITIALIZE TERMINALS. A1500660 LDQ =XTERMLU A1500661 LDQ+ LOG1A,Q A1500662 SEF- CPSTAT,14,1,Q SET CP FORCE RESTART A1500663 CLR A SET PORT NUMBER TO ZERO A1500664 STA* PORT A1500665 STA* NUMACT NUMBER OF ACTIVE USERS A1500666 SPC 1 A1500667 LDQ =XTSPORT A1500668STP070 INQ IOITEM ADDR OF I/O TABLE FOR PORT N A1500669 LDA =XTSPEND A1500670 EAQ A A1500671 SAN STP080 SEE IF REACH END OF ALL PORTS A1500672 SPC 1 A1500673 JMP* STP120 YES, SKIP A1500674 SPC 1 A1500675STP080 EQU STP080(*) A1500676 RAO* PORT ADD ONE TO PORT NUMBER A1500677 SPC 1 A1500678 LDA- (TSUSTB),Q SEE IF THIS TERMINAL IS ACTIVE A1500679 SAZ STP090 NO, SKIP A1500680 SPC 1 A1500681 RAO* NUMACT COUNT NO. OF ACTIVE USERS A1500682 SPC 2 A1500683 JMP* STP070 A1500684 SPC 1 A1500685 SPC 2 A1500686STP090 EQU STP090(*) A1500687* TERMINAL IS NOT ACTIVE. FILL FWRITE REQUEST A1500688* IN I/O TABLE FOR THIS PORT A1500689 LDA =N$4C55 REQUEST CODE A1500690 STA- IORQCD,Q A1500691 SPC 1 A1500692 CLR A  3&5< A1700115DEC16 LDA* ISAVE RESTORE I,Q A1700116 STA- I A1700117 LDQ* QSAVE A1700118 LDA* TEMP A1700119 STA* (IVAL) A1700120 JMP* (DECHEX) A1700121IDX NUM 0 A1700122IBUF NUM 0 A1700123IVAL NUM 0 A1700124TEMP NUM 0 A1700125QSAVE NUM 0 A1700126ISAVE NUM 0 A1700127FOUND NUM 0 A1700128 END A1700129 NAM Q8PRMR A18 A ITOS CCS 3.0 SL-149A1800001* ITOS UTILITY PARAMETER PICKUP ROUTINE A1800002* CREDIT COLLECTION SYSTEM VERSION 3.0 A1800003* DATA SYSTEMS-LA JOLLA DIVISION, LA JOLLA, CALIFORNIA A1800004* COPYRIGHT CONTROL DATA CORPORATION 1979 A1800005* A1800006 SPC 2 A1800007 SPC 2 A1800008 ENT Q8PREP A1800009 ENT Q8PKUP A1800010 SPC 1 A1800011 EQU LPMSK(2) A1800012 EQU ENTAD($DC),PAD($DD) A1800013 SPC 2 A1800014Q8PREP NOP 0 A1800015* A1800016 LDA* (Q8PREP) OBTAIN THE PARAMETER A1800017 ADD* Q8PREP ABSOLUTIZE IT A1800018 AND- LPMSK+15 A1800019 STA- ENTAD A1800020 RAO* Q8PREP A1800021 JMP* (Q8PREP) RETURN A1800022 SPC 2 A1800023Q8PKUP NOP 0 A1800024 LDA- (ENTAD) PICK UP PARAMETER A1800025 STA- PAD A1800026 LDA- (PAD) IS THE PARAMETER ABSOLUTE A1800027 SAP ABS YES A1800028 ADD- (ENTAD) NO, ABSOLUTIZE THE PARAMETER ADDRESS A1800029 AND- LPMSK+15 A = PARAMETER ADDRESS A1800030ABS RAO- (ENTAD) SET UP FOR NEXT PARAMETER A1800031 JMP* (Q8PKUP) RETURN A1800032 END A1800033 NAM IMAGE A19 A ITOS CCS 3.0 xL  3&?= SL-149A1900001* ITOS UTILITY TABLE UPDATE ROUTINE A1900002* CREDIT COLLECTION SYSTEM VERSION 3.0 A1900003* DATA SYSTEMS-LA JOLLA DIVISION, LA JOLLA, CALIFORNIA A1900004* COPYRIGHT CONTROL DATA CORPORATION 1979 A1900005* A1900006 SPC 2 A1900007* THE ITEMS SAVED BY THIS SUBROUTINE ARE - A1900008* A1900009* RETIME I T O S REACTIVATION TIME A1900010* ONTIME I T O S ACTIVATION TIME A1900011* FILOAD I T O S FILES LOADED INDICATOR A1900012* QPASWD I T O S SYSTEM PASSWORD A1900013 SPC 1 A1900014* E N T R Y P O I N T S A1900015 SPC 1 A1900016 ENT IMAGE A1900017 SPC 1 A1900018* E X T E R N A L S A1900019 SPC 1 A1900020 EXT RETIME BASE ADDRESS OF IMAGE TABLE A1900021 SPC 1 A1900022* E Q U I V A L E N C E S A1900023 SPC 1 A1900024 EQU LPMSK($2) BIT MASK TABLE A1900025 EQU AMONI($F4) ADDRESS OF MONITOR REQUEST ENTRY A1900026 EQU ADISP($EA) ADDRESS OF DISPATCHER A1900027 SPC 2 A1900028IMAGE NOP 0 A1900029 LDQ- $E9 A1900030 LDA- 4,Q PICK UP THE CORE IMAGE A1900031 MUI =N96 CONVERT TO WORD ADDRESSING A1900032 SAP IMAGE1 A1900033 AND- LPMSK+15 A1900034 INQ 1 A1900035IMAGE1 ADD =XRETIME CALCULATE THE STARTING ADDRESS OF THE DATA A1900036 SAP IMAGE2 A1900037 AND- LPMSK+15 A1900038 INQ 1 A1900039IMAGE2 STQ* MSB SAVE THE ADDRESS A1900040 STA* LSB A1900041 SPC 1 A1900042 LDA* IMAGE SET UP THE COMPLETION ADDRESS A1900043 STA* CMP A1900044 EJT A1900045 RTJ- (AMONI) A1900046 ADC $4466 WRITE THE DATA TO THE CORE IMAGE A1900047CMP ADC 0 A1900048 ADC 0  3&@=$ A1900049 ADC $08C2 A1900050 ADC 10 TABLE LENGTH = 10 A1900051 ADC RETIME A1900052MSB ADC 0 A1900053LSB ADC 0 A1900054 JMP- (ADISP) A1900055 END A1900056 NAM MNTCHK A20 A ITOS CCS 3.0 SL-149A2000001* ITOS VOLUME MOUNT CHECK ROUTINE A2000002* CREDIT COLLECTION SYSTEM VERSION 3.0 A2000003* DATA SYSTEMS-LA JOLLA DIVISION, LA JOLLA, CALIFORNIA A2000004* COPYRIGHT CONTROL DATA CORPORATION 1979 A2000005* A2000006* A2000007* MNTCHK IS RUN AS AN ORDINAL SCHEDULED IN SPACE A2000008* DURING AUTO-LOAD TIME A2000009* A2000010* PERIODICALLY CHECKS VOLUME LABEL ON ALL MOUNTED VOLUMES A2000011 SPC 3 A2000012* FOR ALL VOLUMES CURRENTLY MOUNTED, MNTCHK READS A2000013* THE LABEL ON THAT VOLUME. IF NO I/O ERROR, THEN A2000014* MNTCHK COMPARES THE VOLUME NAME ON THE LABEL A2000015* WITH THAT FROM THE VIT. IF THEY ARE THE SAME, A2000016* THEN GOES TO THE NEXT VIT. A2000017* A2000018* ANY TIME THERE IS AN ERROR, MNTCHK OUTPUTS A A2000019* MESSAGE AND DISMOUNTS THE VOLUME AND DOES A A2000020* FORCE FILE CLOSE ON ALL OPEN FILES ON THIS A2000021* VOLUME A2000022* A2000023* THE SYSTEM VOLUME (NUMBERED ONE) WILL NOT BE CHECKED A2000024* A2000025* A2000026* EXTERNALS A2000027 SPC 2 A2000028 EXT MNTCHK ORDINAL NAME FOR PROGRAM A2000029 SPC 2 A2000030 EXT SYFAIL SYSTEM FAILURE ROUTINE A2000031 EXT MMLUTB MASS MEMORY LOGICAL UNIT TABLE A2000032 EXT CCP CURRENT CONTROL POINT LOCATION ADDRESS A2000033 SPC 1 A2000034 SPC 2 A2000035 SPC 3 A2000036* EQUIVALENCES A2000037 EQU ZERO($22) A2000038 EQU ONEMSK(3) ONE MASK TABLE A2000039 EQU FMEIDX(30) FILE MANAGER'S INDEX INTO EXTENDED CORE TABLE A2000040 EQU ADRECT($E9) ADDRESS OF EXTENDED CO Y  3&A=8RE TABLE A2000041 EQU AMONI($F4) A2000042 EQU ADISP($EA) A2000043 EQU PERIOD(15) RUNS AT 15 SECOND INTERVALS A2000044 EJT A2000045* VOLUME INFORMATION TABLE A2000046* A2000047 EQU VISLUN(2) SYSTEM LOGICAL UNIT NUMBER (BIT 15=1,NOT READYA2000048* ACCESS VISLUN INDIRECTLY A2000049 EQU VINAME(1) VOLUME NAME - ASCII CHARACTERS 1 AND 2 A2000050* VOLUME NAME - ASCII CHARACTERS 3 AND 4 A2000051* VOLUME NAME - ASCII CHARACTERS 5 AND 6 A2000052* VOLUME NAME - ASCII CHARACTERS 7 AND 8 A2000053 EQU VINMBR(5) VOLUME NUMBER - (2 ASCII CHARACTERS) A2000054 EQU VIBMSM(6) BEGINNING OF MANAGEABLE SPACE - MSB A2000055 EQU VIBMSL(7) BEGINNING OF MANAGEABLE SPACE - LSB A2000056 EQU VIASDM(8) AVAILABLE SPACE DIRECTORY ADDRESS - MSB A2000057 EQU VIASDL(9) AVAILABLE SPACE DIRECTORY ADDRESS - LSB A2000058 EQU VIASDS(10) # SECTORS IN AVAILABLE SPACE DIRECTORY A2000059 EQU VILBAM(11) LARGEST BLOCK OF SPACE AVAILABLE - MSB A2000060 EQU VILBAL(12) LARGEST BLOCK OF SPACE AVAILABLE - LSB A2000061 EQU VIWPS(13) WORDS/SECTOR FOR VOLUME A2000062 EQU VIFDDM(14) FILE DEFINITION DIRECTORY ADDRESS - MSB A2000063 EQU VIFDDL(15) FILE DEFINITION DIRECTORY ADDRESS - LSB A2000064 EQU VIMAXF(16) MAX. NUMBER OF FILES PERMITTED ON VOLUME A2000065 EQU VICURF(17) CURRENT NUMBER OF FILES EXISTING ON VOLUME A2000066 EQU VINFDB(18) NUMBER OF BLOCKS IN FILE DEFINITION DIRECTORY A2000067 EQU VINXTB(19) NEXT AVAILABLE BLOCK IN FILE DEF. DIRECTORY A2000068 EQU VINOOF(20) NUMBER OF OPEN FILES ON VOLUME A2000069 EQU VILBLM(21) VOLUME LABEL SECTOR - MSB A2000070 EQU VILBLL(22) VOLUME LABEL SECTOR - LSB A2000071 EJT 0 A2000072* A2000073* L A B E L O N M A S S M E M O R Y A2000074* A2000075* A2000076* A2000077 EQU VLIFLG(0) VOLUME INITIALIZED FLAG A2000078 EQU VLNAME(2) VOLUME NAME A2000079 EQU VLNMBR(6) VOLUME NUMBER A2000080 EJT 0 A2000081MNT000 EQU MNT000(*) FIRST LOCATION OF PGM A2000082 NUM $C8FE PICK UP ABSOLUTE ADDR OF THIS PROGRAM A2000083 STA* RELADR SAVE FOR RELEASE CALL A2000084* A2000085 ENA 1 A2000086 STA CURVOL CURRENT VOLUME NUMBER (SKIP SYSTEM VOLUME) A2000087 SPC 2 A2000088 LDA- $EF GET PRIORITY LEVEL Q  3&B=L A2000089 TRA Q A2000090 ALS 4 A2000091 EAQ A A2000092 TRA Q PRIORITY LEVEL FOR REQUEST A2000093 ADD* CODE A2000094 STA* CODE A2000095* A2000096 ADQ* WRTCOD ADD PRIORITY LEVEL TO WRITE REQUEST A2000097 STQ* WRTCOD CODE A2000098* A2000099 AND- ONEMSK+3 GET PRIORITY LEVEL A2000100 ADD* TMRCOD ADD TO TIMER CODE A2000101 STA* TMRCOD A2000102* A2000103* SET UP ADDR FOR READ LABEL FROM MM REQUEST A2000104 LDA* RELADR A2000105 ADD =XMNT040-MNT000 A2000106 STA* CMPADR COMPLETION ADDR A2000107 ADD =XLABEL-MNT040 A2000108 STA* BUFADR BUFFER TO READ INTO A2000109MNT005 RAO* CURVOL INCREMENT VOL NO. A2000110 LDA* CURVOL A2000111 TCA A A2000112 ADD MMLUTB TOTAL NO. OF VOLS IN SYSTEM A2000113 SAP MNT010 A2000114* DONE WITH ALL VOLS PRESENT A2000115* A2000116 LDA MMLUTB SEE IF ONLY THE SYSTEM VOLUME IS DEFINED A2000117 INA -1 IF SO, DO NOT RESCHEDULE MOUNT CHECK A2000118 SAZ MNT007 A2000119 SPC 2 A2000120 RTJ- (AMONI) TIMER REQUEST TO SCHEDULE MOUNT CHECK A2000121TMRCOD ADC $1020 CODE + UNIT IN SEC + PRIORITY A2000122 ADC (MNTCHK) ORDINAL A2000123 ADC PERIOD TIME IN SEC A2000124 SPC 2 A2000125MNT007 RTJ- (AMONI) RELEASE A2000126 NUM $1801 A2000127RELADR ADC 0 A2000128 EJT 0 A2000129MNT010 LDQ* CURVOL A2000130 LDQ MMLUTB,Q ABSOLUTE ADDR OF VIT FOR THE VOLUME A2000131 STQ* VITADR SAVE A2000132 LDA- (VISLUN),Q FIRST WORD FROM VIT A2000133 SAP MNT020 A2000134 SPC 2 A2000135 JMP* MNT080 VOLUME ALREADY DISMOUNTED A2000136* GO TO NEXT VIT J  3&C=` A2000137 SPC 1 A2000138MNT020 AND- ONEMSK+14 GET LU, STORE IN PARAMETER LIST FOR READING A2000139 STA* LOGUNT LABEL A2000140 LDA- VILBLM,Q STORE VOLUME LABEL SECTOR INTO REQUEST A2000141 STA* MSB A2000142 LDA- VILBLL,Q A2000143 STA* LSB A2000144 SPC 3 A2000145 RTJ- (AMONI) READ LABEL FROM SECTOR ZERO A2000146CODE ADC $4800 REQUEST CODE + PRIORITY LEVEL A2000147CMPADR ADC 0 COMPLETION ADDR A2000148 ADC 0 A2000149LOGUNT ADC 0 LOGICAL UNIT A2000150 NUM 6 READ ONLY FIRST SIX WORDS A2000151BUFADR ADC 0 BUFFER ADDR IN MAIN MEMORY A2000152MSB ADC 0 MSB OF LABEL SECTOR A2000153LSB ADC 0 LSB OF LABEL SECTOR A2000154 JMP- (ADISP) A2000155 SPC 5 A2000156MNT040 SQP MNT050 A2000157 JMP* MNT100 I/O ERROR, DISMOUNT + CLOSE FILES A2000158 SPC 2 A2000159MNT050 CLR Q COMPARE VOL NAME FROM VIT WITH ONE FROM LABEL A2000160 LDA* VITADR Q = COUNT 4 WORDS (8 CHARS) A2000161 STA- I A2000162 SPC 2 A2000163MNT060 LDA- VINAME,B GET NAME FROM VIT A2000164 EOR* LABEL+VLNAME,Q COMPARE WITH NAME FROM LABEL A2000165 SAZ MNT070 A2000166 SPC 1 A2000167 JMP* MNT100 NAMES DO NOT MATCH, DISMOUNT + CLOSE FILES A2000168 SPC 1 A2000169MNT070 INQ 1 GO TO NEXT WORD A2000170 TCQ A A2000171 INA 5 A2000172 SAP MNT080 FINISH ALL 8 CHARS A2000173 JMP* MNT060 GO TO NEXT WORD A2000174 SPC 1 A2000175MNT080 JMP* MNT005 GO TO THE NEXT VIT A2000176 EJT A2000177MNT100 EQU MNT100(*) SOMETHING IS WRONG , DISMOUNT VOL AND CLOSE A2000178* ALL FILES ON THIS VOLUME A2000179* PREPARE TO OUTPUT MESSAGE A2000180 LDA* RELADR A2000181 ADD =XBUFFER-MNT000 A2000182 STA* WRTBUF SET BUFFER ADDRESS A2000183 ADD =XDIS10-BUFFER A2000184 STA* COMPR SET COMPLETION ADDRESSQ  3&D=t A2000185 SUB =XDIS10-ISTAT SET ISTAT ADDRESS AND REQBUF ADDRESS IN A2000186 STA* PLIST+1 PARAMETER LIST FOR FFCLOS REQUEST A2000187 INA 1 A2000188 STA* PLIST A2000189 INA 4 STORE ABSOLUTE ADDRESS OF WORD 5 A2000190 STA* AWORD5 A2000191* A2000192 INA -7 A2000193 STA* APLIST SET ABSOLUTE ADDR OF PLIST A2000194 SPC 2 A2000195 LDQ* VITADR A2000196 LDA- (ZERO),Q ASSURE DISMOUNT BIT IS SET A2000197 AND- $11 ($7FFF) A2000198 EOR- $21 ($FFFF) A2000199 STA- (ZERO),Q A2000200* A2000201 LDA- 1,Q MOVE VOLUME NAME TO OUTPUT MESSAGE A2000202 STA* NAME A2000203 LDA- 2,Q A2000204 STA* NAME+1 A2000205 LDA- 3,Q A2000206 STA* NAME+2 A2000207 LDA- 4,Q A2000208 STA* NAME+3 A2000209 LDA- 5,Q MOVE VOLUME NUMBER A2000210 STA* NAME+4 A2000211 SPC 2 A2000212* A2000213 RTJ- ($F4) OUTPUT MESSAGE A2000214WRTCOD NUM $0400 WRITE REQUEST A2000215COMPR NUM 0 COMPLETION ADDRESS A2000216 NUM 0 THREAD WORD A2000217 NUM $18FC LOGICAL UNIT A2000218 NUM 23 NUMBER OF WORDS A2000219WRTBUF NUM 0 START CORE ADDRESS A2000220 JMP- ($EA) JUMP TO DISPATCHER A2000221 EJT A2000222BUFFER NUM $0D0A A2000223 ALF 5,ATTENTION: A2000224 NUM $0D0A A2000225NAME BZS NAME(5) A2000226 ALF 11, HAS BEEN DISMOUNTED. A2000227 NUM $0D0A A2000228* A2000229LABEL BZS LABEL(6) LABEL FROM MASS MEMORY A2000230* A2000231CURVOL NUM 0 VOLUME NUMBER OF CURRENT VOLUME A2000232VITADR NUM 0 SAVED VIT ADDRESS o  3&E= A2000233 EJT A2000234********************************************** A2000235* A2000236* THE ORDER OF THE FOLLOWING NUM CARDS MAY NOT BE CHANGED A2000237* A2000238********************************************** A2000239* PARAMETER LIST FOR FAKED FFCLOS CALL A2000240PLIST NUM 0 REQUEST BUFFER ADDRESS A2000241 NUM 0 STATUS WORD ADDRESS A2000242* A2000243ISTAT NUM 0 STATUS WORD A2000244* A2000245* REQUEST BUFFER FOR FORCED FILE CLOSE A2000246REQBUF NUM 0 1. THREAD WORD A2000247AWORD5 NUM 0 2. ABSOLUTE ADDRESS OF WORD 5 A2000248CPOINT NUM 0 3. CONTROL POINT A2000249 NUM 0 4. REQUEST INDEX - 0 A2000250* A2000251 NUM 0 5. SAVED Q-REG - NOT NEEDED A2000252 NUM 0 6. SAVED I-REG - NOT NEEDED A2000253APLIST NUM 0 7. ADDRESS OF PARAMETER LIST A2000254 NUM 0,0,0,0,0,0 8-13 A2000255VOLNUM NUM 0 14. VOLUME'S DRIVE NUMBER A2000256 NUM 0,0,0,0,0,0,0 15-21 A2000257 NUM 0,0,0 22-24 A2000258 EJT A2000259DIS10 LDQ* VITADR RESET Q TO VIT ADDRESS A2000260 LDA- VINOOF,Q CHECK IF VOLUME HAS ANY OPEN FILES A2000261 SAN DIS20 SKIP IF YES A2000262 JMP* MNT080 GO TO NEXT VIT A2000263* VOLUME HAS OPEN FILES A2000264* PREPARE FOR FORCE FILE CLOSE A2000265DIS20 EQU DIS20(*) A2000266 LDQ* CURVOL A2000267* A2000268DIS45 STQ* VOLNUM SET VOLUME DRIVE NUMBER FOR FFCLOS REQUEST A2000269 LDA CCP A2000270 STA* CPOINT SET CONTROL POINT NUMBER A2000271 LDA* PLIST A2000272 STA- I SET I TO ADDRESS OF REQBUF A2000273 ENQ FMEIDX SET FM'S INDEX INTO EXTENDED CORE TABLE A2000274 LDQ- (ADRECT),Q PICKUP ADDRESS OF EXEC A2000275 RTJ- (ZERO),Q EXECUTE IT A2000276* A2000277 LDA* REQBUF+17 CHECK IF ALL OPEN FILES WERE FOUND A2000278 LDQ* VITADR RESET Q TO VIT ADDRESS A2000279 EOR- VINOOF,Q A2000280 SAZ DIS50 SKIP IF ALL OPEN FILES  3&F= WERE FOUND A2000281 RTJ SYFAIL CRASH THE SYSTEM A2000282DIS50 LDA* ISTAT CHECK IF ANY ERROR NOTED A2000283 SAZ DIS100 SKIP IF NO A2000284 RTJ SYFAIL CRASH THE SYSTEM A2000285* A2000286DIS100 JMP* MNT080 GO TO NEXT VIT A2000287 END A2000288 NAM DISMNT A21 A ITOS CCS 3.0 SL-149A2100001* ITOS VOLUME FORCED DISMOUNT ROUTINE A2100002* CREDIT COLLECTION SYSTEM VERSION 3.0 A2100003* DATA SYSTEMS-LA JOLLA DIVISION, LA JOLLA, CALIFORNIA A2100004* COPYRIGHT CONTROL DATA CORPORATION 1979 A2100005* A2100006* A2100007* DISMNT OUTPUTS A MESSAGE TO THE SYSTEM COMMENT DEVICE NOTI- A2100008* FYING THE OPERATOR THAT A PARTICULAR VOLUMN HAS BEEN DIS- A2100009* MOUNTED. THE VOLUME NUMBER FOR THE VOLUME TO BE DISMOUNTED A2100010* IS PASSED TO DISMNT VIA Q. A2100011* IF BIT 15 OF Q IS SET, THEN THE MESSAGE TO THE OPERATOR A2100012* WILL NOT BE OUTPUT. A2100013* A2100014* IF THERE WERE ANY OPEN FILES ON THE DISMOUNTED VOLUME, THE A2100015* FORCED FILE CLOSE (EXECUTIVE FUNCTION) FILE REUUEST IS EXE- A2100016* CUTED TO CLOSE THE FILES. A2100017 SPC 2 A2100018* ENTRY POINTS A2100019 ENT DISMNT A2100020 SPC 2 A2100021* EXTERNALS A2100022 EXT SYFAIL SYSTEM FAILURE ROUTINE A2100023 EXT MMLUTB MASS MEMORY LOGICAL UNIT TABLE A2100024 EXT CCP CURRENT CONTROL POINT LOCATION ADDRESS A2100025 SPC 1 A2100026* EQUIVALENCES A2100027 EQU ZERO($22) A2100028 EQU FMEIDX(30) FILE MANAGER'S INDEX INTO EXTENDED CORE TABLE A2100029 EQU ONEMSK(3) ONE MASK TABLE A2100030 EQU ADRECT($E9) ADDRESS OF EXTENDED CORE TABLE A2100031 EJT A2100032* VOLUME INFORMATION TABLE A2100033* A2100034 EQU VISLUN(2) SYSTEM LOGICAL UNIT NUMBER (BIT 15=1,NOT READYA2100035* ACCESS VISLUN INDIRECTLY A2100036 EQU VINAME(1) VOLUME NAME - ASCII CHARACTERS 1 AND 2 A2100037* VOLUME NAME - ASCII CHARACTERS 3 AND 4 A2100038* VOLUME NAME - ASCII CHARACTERS 5 AND 6 A2100039* VOLUME NAME - ASCII CHARACTERS 7 AND 8 A2100040 EQU VINMBR(5) VOLUME NUMBER - (2 ASCI  3&G=II CHARACTERS) A2100041 EQU VIBMSM(6) BEGINNING OF MANAGEABLE SPACE - MSB A2100042 EQU VIBMSL(7) BEGINNING OF MANAGEABLE SPACE - LSB A2100043 EQU VIASDM(8) AVAILABLE SPACE DIRECTORY ADDRESS - MSB A2100044 EQU VIASDL(9) AVAILABLE SPACE DIRECTORY ADDRESS - LSB A2100045 EQU VIASDS(10) # SECTORS IN AVAILABLE SPACE DIRECTORY A2100046 EQU VILBAM(11) LARGEST BLOCK OF SPACE AVAILABLE - MSB A2100047 EQU VILBAL(12) LARGEST BLOCK OF SPACE AVAILABLE - LSB A2100048 EQU VIWPS(13) WORDS/SECTOR FOR VOLUME A2100049 EQU VIFDDM(14) FILE DEFINITION DIRECTORY ADDRESS - MSB A2100050 EQU VIFDDL(15) FILE DEFINITION DIRECTORY ADDRESS - LSB A2100051 EQU VIMAXF(16) MAX. NUMBER OF FILES PERMITTED ON VOLUME A2100052 EQU VICURF(17) CURRENT NUMBER OF FILES EXISTING ON VOLUME A2100053 EQU VINFDB(18) NUMBER OF BLOCKS IN FILE DEFINITION DIRECTORY A2100054 EQU VINXTB(19) NEXT AVAILABLE BLOCK IN FILE DEF. DIRECTORY A2100055 EQU VINOOF(20) NUMBER OF OPEN FILES ON VOLUME A2100056 EJT A2100057DISMNT NUM $C8FE SET UP RELEASE ADDRESS A2100058 STA RELADR A2100059 ADD =XBUFFER-DISMNT A2100060 STA* BUFADR SET BUFFER ADDRESS A2100061 ADD =XDIS10-BUFFER A2100062 STA* COMPR SET COMPLETION ADDRESS A2100063 SUB =XDIS10-ISTAT SET ISTAT ADDRESS AND REQBUF ADDRESS IN A2100064 STA* PLIST+1 PARAMETER LIST FOR FFCLOS REQUEST A2100065 INA 1 A2100066 STA* PLIST A2100067 INA 4 STORE ABSOLUTE ADDRESS OF WORD 5 A2100068 STA* AWORD5 A2100069 INA -7 ABSOLUTE ADD OF THE PARAMETER LIST A2100070 STA* APLIST A2100071* A2100072 STQ* VOLNUM SAVE VOLUME NO. IN PARAMETER LIST FOR A2100073 TRQ A FORCE FILE CLOSE A2100074 AND- ONEMSK+14 A2100075 TRA Q DELETE INDICATOR BIT A2100076 LDQ MMLUTB,Q ABSOLUTE ADDR OF VIT A2100077 STQ* VITADR SAVE VIT ADDRESS A2100078* A2100079* A2100080 LDA- (ZERO),Q ASSURE DISMOUNT BIT IS SET A2100081 AND- $11 A2100082 EOR- $21 A2100083 STA- (ZERO),Q A2100084 LDA- 1,Q MOVE VOLUME NAME TO OUTPUT MESSAGE A2100085 STA* LABEL A2100086 LDA- 2,Q A2100087 STA* LABEL+1 A2100088 LDA- 3,Q 9  3&H= A2100089 STA* LABEL+2 A2100090 LDA- 4,Q A2100091 STA* LABEL+3 A2100092 LDA- 5,Q MOVE VOLUME NUMBER A2100093 STA* LABEL+4 A2100094* A2100095 LDA* VOLNUM VOL NUMBER + INDICATOR BIT A2100096 SAP DIS05 PRINT MESSAGE IF BIT 15 NOT SET A2100097 AND- ONEMSK+14 CLEAR BIT 15 AND DO NOT OUTPUT MESSAGE A2100098 STA* VOLNUM A2100099 JMP* DIS10 A2100100 SPC 2 A2100101DIS05 RTJ- ($F4) OUTPUT MESSAGE A2100102 NUM $433 WRITE REQUEST, RP=CP=3 A2100103COMPR NUM 0 COMPLETION ADDRESS A2100104 NUM 0 THREAD WORD A2100105 NUM $18FC LOGICAL UNIT A2100106 NUM 23 NUMBER OF WORDS A2100107BUFADR NUM 0 START CORE ADDRESS A2100108 JMP- ($EA) JUMP TO DISPATCHER A2100109 EJT A2100110BUFFER NUM $0D0A A2100111 ALF 5,ATTENTION: A2100112 NUM $0D0A A2100113LABEL BZS LABEL(5) A2100114 ALF 11, HAS BEEN DISMOUNTED. A2100115 NUM $0D0A A2100116* A2100117VITADR NUM 0 SAVED VIT ADDRESS A2100118 EJT A2100119* PARAMETER LIST FOR FAKED FFCLOS CALL A2100120PLIST NUM 0 REQUEST BUFFER ADDRESS A2100121 NUM 0 STATUS WORD ADDRESS A2100122* A2100123ISTAT NUM 0 STATUS WORD A2100124* A2100125* REQUEST BUFFER FOR FORCED FILE CLOSE A2100126REQBUF NUM 0 1. THREAD WORD A2100127AWORD5 NUM 0 2. ABSOLUTE ADDRESS OF WORD 5 A2100128CPOINT NUM 0 3. CONTROL POINT A2100129 NUM 0 4. REQUEST INDEX - 0 A2100130* A2100131 NUM 0 5. SAVED Q-REG - NOT NEEDED A2100132 NUM 0 6. SAVED I-REG - NOT NEEDED A2100133APLIST NUM 0 7. ADDRESS OF PARAMETER LIST A2100134 NUM 0,0,0,0,0,0 8-13 A2100135VOLNUM NUM 0 14. VOLUME'S DRIVE NUMBER A2100136 NUM 0,0,0,0,0,0,0 15-21 L  3&I= A2100137 NUM 0,0,0 22-24 A2100138 EJT A2100139DIS10 LDQ* VITADR RESET Q TO VIT ADDRESS A2100140 LDA- VINOOF,Q CHECK IF VOLUME HAS ANY OPEN FILES A2100141 SAN DIS20 SKIP IF YES A2100142 JMP* DIS100 GO RELEASE CORE AND EXIT A2100143* A2100144* VOLUME HAS OPEN FILES A2100145DIS20 EQU DIS20(*) PREPARE TO DO A FORCE FILE CLOSE A2100146 LDA CCP A2100147 STA* CPOINT SET CONTROL POINT NUMBER A2100148 LDA* PLIST A2100149 STA- I SET I TO ADDRESS OF REQBUF A2100150 ENQ FMEIDX SET FM'S INDEX INTO EXTENDED CORE TABLE A2100151 LDQ- (ADRECT),Q PICKUP ADDRESS OF EXEC A2100152 RTJ- (ZERO),Q EXECUTE IT A2100153* A2100154 LDA* REQBUF+17 CHECK IF ALL OPEN FILES WERE FOUND A2100155 LDQ* VITADR RESET Q TO VIT ADDRESS A2100156 EOR- VINOOF,Q A2100157 SAZ DIS50 SKIP IF ALL OPEN FILES WERE FOUND A2100158 RTJ SYFAIL CRASH THE SYSTEM A2100159 EJT A2100160DIS50 LDA* ISTAT CHECK IF ANY ERROR NOTED A2100161 SAZ DIS100 SKIP IF NO A2100162 RTJ SYFAIL CRASH THE SYSTEM A2100163* A2100164DIS100 RTJ- ($F4) RELEASE CORE AND EXIT A2100165 NUM $1801 A2100166RELADR NUM 0 CORE ADDRESS OF MODULE A2100167 END DISMNT A2100168 NAM START A22 A ITOS CCS 3.0 . SL-149A2200001* ITOS STARTUP ROUTINE A2200002* CREDIT COLLECTION SYSTEM VERSION 3.0 A2200003* DATA SYSTEMS-LA JOLLA DIVISION, LA JOLLA, CALIFORNIA A2200004* COPYRIGHT CONTROL DATA CORPORATION 1979 A2200005* A2200006 SPC 2 A2200007* E N T R Y P O I N T S A2200008 SPC 1 A2200009 ENT START A2200010 SPC 2 A2200011* E X T E R N A L S A2200012 SPC 1 A2200013 EXT MIINP MANUAL INPUT DATA BUFFER A2200014 EXT FILOAD SYSTEM FILE INITIALIZATION INDICATOR A2200015 EXT MMAMAX MAXIMUM NUMBER OF USER SWAP BLOCKS A2200016 EXT PARTBL SYSTEM PARTITIONED MEMN  3&J=ORY TABLE A2200017 EXT UNPTBL TIMESHARE UNPROTECTED ENTRY POINT LIST A2200018 EXT TSMUSR TIMESHARE MULTI-USER TABLE STARTING ADDRESS A2200019 EXT TSMEND TIMESHARE MULTI-USER TABLE ENDING ADDRESS A2200020 EXT TSPORT TIMESHARE I/O TABLE STARTING ADDRESS A2200021 EXT TSPEND TIMESHARE I/O TABLE ENDING ADDRESS A2200022 EXT TSIOC1 TIMESHARE I/O COMPLETION PROCESSOR A2200023 EXT TERMLU COMMUNICATIONS CONTROLLER LOGICAL UNIT A2200024 EXT TSLSIZ LOG-IN PROCESSOR LENGTH A2200025 EXT TSLMSB LOG-IN PROCESSOR SECTOR ADDRESS A2200026 EXT TSWSEC USER SWAP AREA BASE SECTOR A2200027 EXT TSULBF TIMESHARE LINKAGE BUFFER SECTOR ADDRESS A2200028 EXT TSNABL TIMESHARE ENABLED INDICATOR A2200029 EXT HORMIN TIME AND DATE - HOURS/MINUTES A2200030 EXT DAYTO TIME AND DATE - DAY A2200031 EXT MONTO TIME AND DATE - MONTH A2200032 EXT AMONTO CURRENT MONTH - ASCII A2200033 EXT ADAYTO CURRENT DAY - ASCII A2200034 EXT AYERTO CURRENT YEAR - ASCII A2200035 EXT ONTIME TIME AND DATE OF TIMESHARE ACTIVATION A2200036 EXT JOBIND JOB PROCESSOR ACTIVE INDICATOR A2200037 EXT SYUTIL ITOS SYSTEM UTILITY PROCESSOR A2200038 EXT NUMLU NUMBER OF LOGICAL UNITS A2200039 EXT LOG1A LOGICAL UNIT TABLE A2200040 EJT 122*4818A2200041 SPC 4 122*4818A2200042* E X T E R N A L S A2200043 SPC 2 122*4818A2200044 EXT CREATE CREATE FILE REQUEST A2200045 EXT DELETE DELETE FILE REQUEST A2200046 EXT OPENFL OPEN FILE REQUEST A2200047 EXT CLOSFL CLOSE FILE REQUEST A2200048 EXT GETS GET SEQUENTIAL RECORD FILE REQUEST A2200049 EXT PUTS PUT SEQUENTIAL RECORD FILE REQUEST A2200050 EXT READR READ RANDOM RECORD FILE REQUEST A2200051 EXT WRITER WRITE RANDOM RECORD FILE REQUEST A2200052 EXT UPDREC UPDATE FILE RECORD A2200053 EXT GETFCB GET FILE CONTROL BLOCK FILE REQUEST A2200054 EXT UPDFCB UPDATE FILE CONTROL BLOCK FILE REQUEST A2200055 EXT* BINASC BINARY TO DECIMAL CODED ASCII A2200056 EXT* BINHEX BINARY TO HEXIDECIMAL CODED ASCII A2200057 EXT* IMAGE ROUTINE TO WRITE TIMESHARE DATA TO CORE IMAGE A2200058 EXT* LUNEQ DEVICE NAME - LOGICAL UNIT CONVERSION A2200059 SPC 4 A2200060* E Q U I V A L E N C E S A2200061 SPC 1 A2200062 EQU ZERO($22) LOCATION CONTAINING ZERO A2200063 EQU ONE(3) LOCATION CONTAINING ONE A2200064 EQU THREE(4) LOCATION CONTAINING THZU  3&K>REE A2200065 EQU ONEBIT($23) SINGLE BIT TABLE A2200066 EQU TEN($46) LOCATION CONTAINING TEN A2200067 EQU ADISP($EA) ADDRESS OF DISPATCHER A2200068 EQU AMONI($F4) ADDRESS OF MONITOR REQUEST ENTRY A2200069 EQU RPCP($66) MONITOR REQUEST PRIORITIES A2200070 EQU RECLEN(18) RECORD LENGTH OF HOST FILE (IN WORDS) A2200071 EQU NUMHST(8) NUMBER OF RECORDS IN HOST FILE. 1 FOR LOCAL A2200072* PLUS 1 PER REMOTE HOST ACTIVATED A2200073 EQU BDINIT(24) BATCH OUTPUT DRIVER INITIALIZATION FLAG A2200074 SPC 4 A2200075* F I L E M A N A G E R E Q U I V A L E N C E S A2200076* A2200077* FILE CONTROL BLOCK A2200078* A2200079 EQU FILNRC(07) NUMBER OF FILE RECORDS - LSB A2200080 EQU FILMSB(08) LOCATION OF FILE RECORDS - MSB A2200081 EQU FILLSB(09) LOCATION OF FILE RECORDS - LSB A2200082 EJT A2200083 SPC 4 A2200084* M U L T I - U S E R P R O G R A M T A B L E E N T R I E S A2200085 SPC 1 A2200086 EQU MUROOT(ZERO) ASSOCIATED ROOT TABLE ADDRESS A2200087 EQU MUSRID(01) PROGRAM IDENTIFICATION - 4 WORDS ASCII A2200088 EQU MUSIZE(05) PROGRAM LENGTH (WORDS) A2200089 EQU MUSECT(06) PROGRAM SECTOR ADDRESS - 2 WORDS A2200090 EQU MUPAGE(08) PROGRAM BASE MEMORY PAGE NUMBER A2200091 EQU ACROOT(09) PROGRAM ACTIVE ROOT COUNT A2200092 EQU MURSIZ(10) PROGRAM TRUE LENGTH (WORDS) A2200093 EQU MUEXTH(11) PROGRAM EXECUTION THREAD A2200094 EQU MURSTX(13) PROGRAM STATE INDEX A2200095 EQU MURCLK(15) PROGRAM CLOCK VALUE A2200096 EQU MUITEM(MURCLK+1) A2200097 SPC 2 A2200098* U S E R P R O G R A M U S E R T A B L E E N T R I E S A2200099 SPC 1 A2200100 EQU TSIOTB(ZERO) ASSOCIATED I/O TABLE ADDRESS A2200101 EQU USERID(01) USER IDENTIFICATION - 4 WORDS ASCII A2200102 EQU PGMSIZ(05) USER PROGRAM LENGTH (WORDS) A2200103 EQU PGMSEC(06) USER PROGRAM SECTOR - 2 WORDS A2200104 EQU TWNSEC(08) SWAP TWIN SECTOR - 2 WORDS A2200105 EQU SWPBLK(10) USER SWAP BLOCK BYTES A2200106 EQU NEXETH(11) USER EXECUTION THREAD A2200107 EQU NSWPTH(12) USER SWAP THREAD A2200108 EQU USRSTX(13) USER STATE INDEX A2200109 EQU TSMUTB(14) MULTI USER TABLE ADDRESS A2200110 EQU NUMREQ(15) USER REQUEST COUNT A2200111 EQU USRITM(NUMREQ+1) A2200112 EJT _  3&L> A2200113 SPC 4 A2200114* U S E R P R O G R A M S T A T E I N D I C E S A2200115 SPC 1 A2200116 EQU SXCACT(01) EXECUTING IN MAIN MEMORY A2200117 EQU SXCTSL(02) SUSPENDED IN MAIN MEMORY-TIMESLICE COMPLETE A2200118 EQU SXCMMA(03) SUSPENDED IN MAIN MEMORY-M.M. I/O ACTIVE A2200119 EQU SXCMMC(04) SUSPENDED IN MAIN MEMORY-M.M. I/O COMPLETE A2200120 EQU SXCFMA(05) SUSPENDED IN MAIN MEMORY-FILE I/O ACTIVE A2200121 EQU SXCFMC(06) SUSPENDED IN MAIN MEMORY-FILE I/O COMPLETE A2200122 EQU SXCTMA(07) SUSPENDED IN MAIN MEMORY-TMNL I/O ACTIVE A2200123 EQU SXCTMC(08) SUSPENDED IN MAIN MEMORY-TMNL I/O COMPLETE A2200124 EQU SXCDTA(09) SUSPENDED IN MAIN MEMORY-DATA I/O ACTIVE A2200125 EQU SXCDTC(10) SUSPENDED IN MAIN MEMORY-DATA I/O COMPLETE A2200126 EQU SXCATA(11) SUSPENDED IN MAIN MEMORY-ATTACH ACTIVE A2200127 EQU SXCATC(12) SUSPENDED IN MAIN MEMORY-ATTACH COMPLETE A2200128* A2200129 EQU SXMASS(13) RESERVED A2200130 EQU SXMTSL(14) SWAPPED ON MASS MEMORY-TIMESLICE COMPLETE A2200131 EQU SXM015(15) RESERVED A2200132 EQU SXMMMC(16) SWAPPED ON MASS MEMORY-M.M. I/O COMPLETE A2200133 EQU SXM017(17) RESERVED A2200134 EQU SXMFMC(18) SWAPPED ON MASS MEMORY-FILE I/O COMPLETE A2200135 EQU SXMTMA(19) SWAPPED ON MASS MEMORY-TMNL I/O ACTIVE A2200136 EQU SXMTMC(20) SWAPPED ON MASS MEMORY-TMNL I/O COMPLETE A2200137 EQU SXMDTA(21) SWAPPED ON MASS MEMORY-DATA I/O ACTIVE A2200138 EQU SXMDTC(22) SWAPPED ON MASS MEMORY-DATA I/O COMPLETE A2200139 EQU SXMATA(23) SWAPPED ON MASS MEMORY-ATTACH ACTIVE A2200140 EQU SXM024(24) RESERVED A2200141* A2200142 EQU SXMUSA(25) SUSPENDED ON MASS MEMORY-UNSWAP ACTIVE A2200143 EQU SXCUSC(26) SUSPENDED IN MAIN MEMORY-UNSWAP COMPLETE A2200144 EQU SXMMUR(27) SUSPENDED ON MASS MEMORY-MULTIUSER READ A2200145 EQU SXMLOG(28) SUSPENDED ON MASS MEMORY-INITIAL LOGIN A2200146 EQU SXMJOB(29) SUSPENDED ON MASS MEMORY-JOB STEP A2200147 SPC 2 A2200148* NOTE - BIT 15 = 1 WHILE THE USER IS BEING SWAPPED A2200149 EJT A2200150 SPC 4 A2200151* U S E R P R O G R A M I / O T A B L E E N T R I E S A2200152 SPC 1 A2200153 EQU TSUSTB(ZERO) ASSOCIATED USER TABLE ADDRESS A2200154 EQU FRQBUF(01) FILE REQUEST BUFFER HEADER (4 WORDS) A2200155 EQU IORQCD(05) INPUT/OUTPUT REQUEST CODE A2200156 EQU IORQCA(06) INPUT/OUTPUT COMPLETION ADDRESS A2200157 EQU IORQTH(07) INPUT/OUTPUT THREAD WORD A2200158 EQU IORQLU(08) INPUT/OUTPUT LOGICAL UNIT A2200159 EQU IOMSLN(09) INPUT/OUTPUT MESSAGE LENGTH A2200160 EQU IOBFAD(10) INPUT/OUTPUT MESSAGE B  3&M>(UFFER ADDRESS A2200161 EQU IOMMSB(11) INPUT/OUTPUT MASS MEMORY ADDRESS A2200162 EQU IOMLSB(12) INPUT/OUTPUT MASS MEMORY ADDRESS A2200163 EQU IOCNPT(13) INPUT/OUTPUT CONTROL POINT A2200164 EQU IOSTAT(14) INPUT/OUTPUT STATUS WORD A2200165 EQU TERMBF(15) TERMINAL MESSAGE BUFFER ADDRESS A2200166 EQU IOITEM(TERMBF+1) A2200167 SPC 2 A2200168* USER PROGRAM I/O STATUS INDICATORS A2200169 SPC 1 A2200170* UNSOLICITED INPUT GROUP A2200171 EQU LI(00) TERMINAL LOG-IN A2200172 EQU MN(01) TERMINAL MANUAL INTERRUPT A2200173 EQU ES(02) TERMINAL ESCAPE A2200174* INPUT-OUTPUT ERROR GROUP A2200175 EQU DS(04) TERMINAL DISCONNECT A2200176 EQU ME(05) MASS MEMORY ERROR A2200177 EQU FE(06) FILE REQUEST ERROR A2200178* REQUEST TYPE GROUP A2200179 EQU IN(08) DATA INPUT REQUEST A2200180 EQU IA(09) INPUT / OUTPUT ACTIVE A2200181 EQU IC(10) INPUT / OUTPUT COMPLETE A2200182 EQU MM(11) MASS MEMORY I/O REQUEST A2200183 EQU TI(12) TERMINAL I/O REQUEST A2200184* TERMINAL CHARACTERISTIC GROUP A2200185* A2200186 EQU DY(TI+1) END OF THE DYNAMIC STATUS GROUP A2200187 EJT A2200188 SPC 4 A2200189START NOP 0 A2200190 SPC 1 A2200191 LDA =XTSPEND A2200192 SUB =XTSPORT A2200193 CLR Q A2200194 DVI =XIOITEM A2200195 STA NOPORT A = NUMBER OF TERMINALS IN THE SYSTEM A2200196 SPC 1 A2200197STA010 RTJ FNDFIL FIND THE NEXT PROGRAM LIBRARY FILE A2200198 SAZ STA020 SKIP IF THE SEARCH IS COMPLETE A2200199 RAO PGNDAT+2 INCREMENT THE RECORD COUNT A2200200 RTJ FNDPGM CHECK FOR A REQUIRED PROGRAM A2200201 JMP* STA010 CONTINUE A2200202 SPC 1 A2200203STA020 LDA+ TSLMSB IS THE LOG-IN PROCESSOR LOADED A2200204 SAZ STA030 NO A2200205 LDA+ TSULBF YES, IS A LINKAGE BUFFER SECTOR SPECIFIED A2200206 SAN STA040 YES A2200207 SPC 1 A2200208STA030 ENQ 0 NO, INDICATE AN ERROR h  3&N>< A2200209 RTJ MESSAG A2200210 JMP STAXIT AND EXIT A2200211 EJT A2200212 SPC 4 A2200213STA040 LDA+ FILOAD HAVE THE SYSTEM FILES BEEN INITIALIZED A2200214 SAN STA050 YES A2200215 JMP* STA070 NO A2200216 SPC 1 A2200217STA050 RTJ FILCLN CLEAN UP ANY DEFINED BATCH FILES A2200218 LDQ =XMIINP Q = ADDRESS OF THE INPUT BUFFER FOR MINT A2200219 LDA- 2,Q A2200220 SUB =AT, WAS 'START,X' REQUESTED A2200221 SAN STA060 NO, BUILD THE SYSTEM FILES A2200222 JMP* STA090 YES, CONTINUE A2200223 SPC 1 A2200224STA060 RTJ CLRQBF INITIALIZE THE FILE REQUEST BUFFER A2200225 ADC REQBFN A2200226 RTJ FILNAM SPECIFY THE PROGRAM NAME FILE A2200227 ADC PGMNAM A2200228 SPC 1 A2200229 RTJ+ DELETE DELETE THE PROGRAM NAME FILE A2200230 ADC REQBFN A2200231 ADC IDATA A2200232 ADC ISTAT A2200233 SPC 1 A2200234STA070 ENQ 3 PRINT THE FILE INITIALIZATION MESSAGE A2200235 RTJ MESSAG A2200236 SPC 1 A2200237 RTJ PGNBLD BUILD THE PROGRAM NAME FILE A2200238 SPC 1 A2200239 LDA+ FILOAD HAVE THE SYSTEM FILES BEEN INITIALIZED A2200240 SAZ STA080 NO A2200241 JMP* STA085 YES A2200242 EJT A2200243 SPC 4 A2200244STA080 RTJ SWPBLD BUILD THE SWAP BUFFER FILE A2200245 RTJ DAYBLD BUILD THE DAY FILE A2200246 RTJ USRBLD BUILD THE USER IDENTIFICATION FILE A2200247 RTJ MSGBLD BUILD THE SYSTEM MESSAGE FILE A2200248 RTJ PDRBLD BUILD THE PROCEDURE DIRECTORY FILE A2200249 RTJ MNUBLD BUILD THE FUNCTION MENU FILE A2200250 RTJ MNTBLD BUILD THE TAPE MOUNT FILE A2200251 RTJ HOSTBL BUILD THE HOST FILE A2200252 RTJ BATBLD BUILD THE BATCH FILE A2200253 RTJ PRTBLD BUILD THE PRINT FILE A2200254 RAO+ FILOAD INDICATE THE SYSTEM FILES ARE INITIALIZED A2200255 SPC 1 A2200256STA085 RTJ+ CLOSFL CLOSE THE PROGRAM NAME  3&O>P FILE A2200257 ADC REQBFN A2200258 ADC ISTAT A2200259 RTJ CKSTAT CHECK FOR FILE ERRORS A2200260 SPC 1 A2200261 EJT A2200262 SPC 4 A2200263STA090 RTJ CLRQBF INITIALIZE THE FILE REQUEST BUFFER A2200264 ADC REQBUF A2200265 RTJ FILNAM SPECIFY THE SWAP BUFFER FILE A2200266 ADC SWPBUF A2200267 RTJ FILDAT SPECIFY A SEQUENTIAL FILE A2200268 ADC SEQDAT A2200269 SPC 1 A2200270 RTJ+ OPENFL OPEN THE SWAP BUFFER FILE A2200271 ADC REQBUF A2200272 ADC IDATA A2200273 ADC ISTAT A2200274 RTJ CKSTAT CHECK FOR FILE ERRORS A2200275 SPC 1 A2200276 LDQ REQBUF+9 Q = FCB ADDRESS A2200277 LDA =XTSWSEC A2200278 STA- I A2200279 LDA- FILMSB,Q A2200280 STA- (I) SPECIFY THE SWAP BUFFER SECTOR ADDRESS A2200281 LDA- FILLSB,Q A2200282 STA- 1,I A2200283 LDA- FILNRC,Q A = NUMBER OF RECORDS IN THE FILE A2200284 CLR Q A2200285 DVI =N86 132*5241A2200286 INA 1 A2200287 TRA Q A2200288 SUB* MAXSWB IS THE CALCULATED VALUE TOO LARGE A2200289 SAM STA100 NO A2200290 LDQ* MAXSWB SPECIFY THE MAXIMUM NO. OF SWAP BLOCKS A2200291STA100 STQ+ MMAMAX SPECIFY THE MAXIMUM NUMBER OF SWAP BLOCKS A2200292 SPC 1 A2200293 RTJ+ CLOSFL CLOSE THE SWAP BUFFER FILE A2200294 ADC REQBUF A2200295 ADC ISTAT A2200296 RTJ CKSTAT CHECK FOR FILE ERRORS A2200297 EJT A2200298 SPC 4 A2200299 LDA =XUNPTBL A2200300 STA- I I = UNPROTECTED ENTRY POINT LIST A2200301 SPC 1 A2200302STA110 LDQ- (I) A2200303 INQ 0 IS THE LIST COMPLETE A2200304 SQZ STA120 YES 3&PyIALyIO CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm__yKE݌ 3&QyKALyKO CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmTSTASK DCK/ I,H 00010TSSUBR DCK/ I,H 00020TSPROT DCK/ I,H 00030TSUREQ DCK/ I,H 00040TSIOCP DCK/ I,H 00050TSMMER DCK/ I,H 00060EXTREG DCK/ I,H 00070SETBND DCK/ I,H 00080CONPNT DCK/ I,H 00090DWMATH DCK/ I,H 00100MOV DCK/ I,H 00110GRABMM DCK/ I,H 00120LOCATE DCK/ I,H 00130C18DMY DCK/ I,H 00140SYUTIL DCK/ I,H 00150BIN2AS DCK/ I,H 00160DEC2HX DCK/ I,H 00170Q8PRMR DCK/ I,H 00180IMAGE DCK/ I,H 00190MNTCHK DCK/ I,H 00200DISMNT DCK/ I,H 00210START DCK/ I,H 00220BINHEX DCK/ I,H 00230BINASC DCK/ I,H 00240Q8PRMA DCK/ I,H 00250TSLOG DCK/ I,H 00260IOLUNT DCK/ I,H 00270FMCALL DCK/ I,H 00280SYSMSG DCK/ I,H 00290ULBUFF DCK/ I,H 00300FUNSEL DCK/ I,H 00310NDWMTH DCK/ I,H 00320CHGTPT DCK/ I,H 00330DBATOU DCK/ I,H 00340DBATIN DCK/ I,H 00350BOPENF DCK/ I,H 00360BCLOSF DCK/ I,H 00370BREADR DCK/ I,H 00380BGETS DCK/ I,H 00390BUPREC DCK/ I,H 00400BTIMER DCK/ I,H 00410BFWRIT DCK/ I,H 00420AUTOBT DCK/ I,H 00430COMINT DCK/ I,H 00440MON01 DCK/ I,H 00450SUBRCM DCK/ I,H !  3&Ry_ 00460MON02 DCK/ I,H 00470MINT DCK/ I,H 00480SPACE DCK/ I,H 00490MIPRO DCK/ I,H 00500JCRDV4 DCK/ I,H 00510CONTRL DCK/ I,H 00520I2 DCK/ I,H 00530FMULOD DCK/ I,H 00540FMUTEX DCK/ I,H 00550SEKVIT DCK/ I,H 00560REDLAB DCK/ I,H 00570NXTVOL DCK/ I,H 00580COMSEK DCK/ I,H 00590MOVEL DCK/ I,H 00600MOVER DCK/ I,H 00610GETFLD DCK/ I,H 00620MMSIZ DCK/ I,H 00630GETVIT DCK/ I,H 00640UTSTRT DCK/ I,H 00650GTINIT DCK/ I,H 00660GETDEF DCK/ I,H 00670GTSTAT DCK/ I,H 00680GTDUMP DCK/ I,H 00690GTCOPY DCK/ I,H 00700GETDEL DCK/ I,H 00710GTCLEA DCK/ I,H 00720GTLIST DCK/ I,H 00730ASCEBC DCK/ I,H 00740GTRENA DCK/ I,H 00750COMAND DCK/ I,H 00760GTMOUN DCK/ I,H 00770GTDISM DCK/ I,H 00780GTSAVE DCK/ I,H 00790MMCOPY DCK/ I,H 00800GTLOAD DCK/ I,H 00810REDREC DCK/ I,H 00820GTPURG DCK/ I,H 00830GETBAT DCK/ I,H 00840CNTCHR DCK/ I,H 00850GTCOMP DCK/ I,H 00860GTRELO DCK/ I,H 00870CHARMV DCK/ I,H 00880BMPRRN DCK/ I,H 00890GTBATS DCK/ I,H 00900GTDISC DCK/ I,H 00910GTDISP DCK/ I,H 00920GTFLUS DCK/ I,H 00930GTHOST DCK/ I,H   3&Sys 00940GTPRIN DCK/ I,H 00950GTSET DCK/ I,H 00960PRINZ DCK/ I,H 00970MPWRXX DCK/ I,H 00980OBFIMK DCK/ I,H 00990OBL000 DCK/ I,H 01000RWBUWM DCK/ I,H 01010UTEFCK DCK/ I,H 01020AS2 DCK/ I,H 01030CHO2LR DCK/ I,H 01040CNVRT DCK/ I,H 01050FRHX DCK/ I,H 01060GENEOF DCK/ I,H 01070BLD2 DCK/ I,H 01080ORDER DCK/ I,H 01090PRELOD DCK/ I,H 01100RANDOM DCK/ I,H 01110SEQLOD DCK/ I,H 01120TOWT DCK/ I,H 01130VLTOI DCK/ I,H 01140KIBMGR DCK/ I,H 01150GETSSZ DCK/ I,H 01160UTCKLN DCK/ I,H 01170VERWPS DCK/ I,H 01180MON03 DCK/ I,H 01190FMUCOM DCK/ I,H 01200TODAY DCK/ I,H 01210ERCHK DCK/ I,H 01220INIT DCK/ I,H 01230HOST DCK/ I,H 01240MVCHAR DCK/ I,H 01250DEFINE DCK/ I,H 01260ERPROC DCK/ I,H 01270STATUS DCK/ I,H 01280CONVER DCK/ I,H 01290DMPFIL DCK/ I,H 01300COPY DCK/ I,H 01310DELET DCK/ I,H 01320CLEER DCK/ I,H 01330LIST DCK/ I,H 01340CLRSCR DCK/ I,H 01350RENAM DCK/ I,H 01360MOUNT DCK/ I,H 01370DSMOUN DCK/ I,H 01380SAVE DCK/ I,H 01390LOAD DCK/ I,H 01400PURGE DCK/ I,H 01410BATC DCK/ I,H ~  3&Ty 01420BATS DCK/ I,H 01430JCLE DCK/ I,H 01440COMPRE DCK/ I,H 01450RELOAD DCK/ I,H 01460DISC DCK/ I,H 01470DISPOS DCK/ I,H 01480FLUSH DCK/ I,H 01490PRINT DCK/ I,H 01500UTLSET DCK/ I,H 01510UPDIDX DCK/ I,H 01520UTPOSK DCK/ I,H 01530UTNXSS DCK/ I,H 01540UTXKEY DCK/ I,H 01550UTFWAK DCK/ I,H 01560UTUDSK DCK/ I,H 01570BLDIDR DCK/ I,H 01580LDIXOD DCK/ I,H 01590FLHXLR DCK/ I,H 01600FL2SP DCK/ I,H 01610RDNP DCK/ I,H 01620RIGJST DCK/ I,H 01630BATCHK DCK/ I,H 01640MON04 DCK/ I,H 01650GOEDIT DCK/ I,H 01660EDITZR DCK/ I,H 01670IO DCK/ I,H 01680LOCAL DCK/ I,H 01690EBEGIN DCK/ I,H 01700EDITOS DCK/ I,H 01710DECHEX DCK/ I,H 01720ENDLOC DCK/ I,H 01730MON05 DCK/ I,H 01740EDITCM DCK/ I,H 01750EDCOMM DCK/ I,H 01760SET DCK/ I,H 01770INITLE DCK/ I,H 01780AUTPRO DCK/ I,H 01790CHAPRO DCK/ I,H 01800CLEPRO DCK/ I,H 01810CTAPRO DCK/ I,H 01820DELPRO DCK/ I,H 01830GETPRO DCK/ I,H 01840LINPRO DCK/ I,H 01850LSTPRO DCK/ I,H 01860RSQPRO DCK/ I,H 01870SEAPRO DCK/ I,H 01880STAPRO DCK/ I,H 01890CLRMEM DCK/ I,H >  3&Uy 01900CLRSVM DCK/ I,H 01910ELNSCN DCK/ I,H 01920FNDEND DCK/ I,H 01930FNDNXT DCK/ I,H 01940FNDSLI DCK/ I,H 01950GETAFD DCK/ I,H 01960GETNAM DCK/ I,H 01970GETNUM DCK/ I,H 01980GETONE DCK/ I,H 01990GETSTR DCK/ I,H 02000HEXDEC DCK/ I,H 02010LOCATE DCK/ I,H 02020SETAUT DCK/ I,H 02030SETTAB DCK/ I,H 02040SLIBLD DCK/ I,H 02050STRMCH DCK/ I,H 02060UPNREC DCK/ I,H 02070UPOREC DCK/ I,H 02080SEQPRO DCK/ I,H 02090MON06 DCK/ I,H 02100FMEXEC DCK/ I,H 02110FMSUBS DCK/ I,H 02120PUTREC DCK/ I,H 02130READRC DCK/ I,H 02140GETNXT DCK/ I,H 02150WRTBAK DCK/ I,H 02160MRECAD DCK/ I,H 02170COMSEQ DCK/ I,H 02180LOKUNL DCK/ I,H 02190SSMGR DCK/ I,H 02200PROC01 DCK/ I,H 02210PROC02 DCK/ I,H 02220PROC03 DCK/ I,H 02230PROC04 DCK/ I,H 02240PROC05 DCK/ I,H 02250PROC06 DCK/ I,H 02260PROC07 DCK/ I,H 02270PROC08 DCK/ I,H 02280PROC09 DCK/ I,H 02290PROC10 DCK/ I,H 02300PROC11 DCK/ I,H 02310PROC12 DCK/ I,H 02320PROC13 DCK/ I,H 02330PROC14 DCK/ I,H 02340PROC15 DCK/ I,H 02350PROC16 DCK/ I,H 02360PROC17 DCK/ I,H 02370PROC18 DCK/ I,H (Z  3&Vy 02380FMDUMY DCK/ I,H 02390PICKUP DCK/ I,H 02400FFCLOS DCK/ I,H 02410UCTMGR DCK/ I,H 02420FILLS DCK/ I,H 02430FNDVIT DCK/ I,H 02440MMIOF DCK/ I,H 02450FDWMTH DCK/ I,H 02460DWDIV DCK/ I,H 02470IOVCHK DCK/ I,H 02480OPENFL DCK/ I,H 02490CLOSFL DCK/ I,H 02500FCBSS DCK/ I,H 02510GETFCB DCK/ I,H 02520UPDFCB DCK/ I,H 02530CKUFCB DCK/ I,H 02540CMPSTG DCK/ I,H 02550CPUTKL DCK/ I,H 02560NXTKIB DCK/ I,H 02570PLACE DCK/ I,H 02580CKADRP DCK/ I,H 02590RDRECD DCK/ I,H 02600FWARCD DCK/ I,H 02610WRTDEL DCK/ I,H 02620COMREC DCK/ I,H 02630VOLUSE DCK/ I,H 02640CORFCB DCK/ I,H 02650COMPRS DCK/ I,H 02660BZS3K DCK/ I,H 02670FMENTP DCK/ I,H 02680FMCEPT DCK/ I,H 02690PROC19 DCK/ I,H 02700CFCBTL DCK/ I,H 02710CPKIBL DCK/ I,H 02720MON07 DCK/ I,H 02730FMMACS DCK/ I,H 02740CREATE DCK/ I,H 02750BLDFDD DCK/ I,H 02760GETSPC DCK/ I,H 02770BLDFDS DCK/ I,H 02780BLDFCB DCK/ I,H 02790STOLBL DCK/ I,H 02800FCBIX DCK/ I,H 02810FNDFDS DCK/ I,H 02820HASH DCK/ I,H 02830CLEAR DCK/ I,H 02840GETFDS DCK/ I,H 02850SEARCH DCK/ I,H =  3&Wy 02860DELETE DCK/ I,H 02870MOVFCB DCK/ I,H 02880CKRQST DCK/ I,H 02890RENAME DCK/ I,H 02900ADDIDX DCK/ I,H 02910ADDKIS DCK/ I,H 02920FWAKIS DCK/ I,H 02930NEXTSS DCK/ I,H 02940POSKID DCK/ I,H 02950RDKIB DCK/ I,H 02960UDSKIB DCK/ I,H 02970WRTKIB DCK/ I,H 02980XTKEY DCK/ I,H 02990RTVIDX DCK/ I,H 03000GETNDX DCK/ I,H 03010DELIDX DCK/ I,H 03020DELKIS DCK/ I,H 03030UDFKIB DCK/ I,H 03040COMIDX DCK/ I,H 03050MASALC DCK/ I,H 03060CKLGBL DCK/ I,H 03070MOVE DCK/ I,H 03080MASREL DCK/ I,H 03090GETENT DCK/ I,H 03100REDUCE DCK/ I,H 03110SPECAL DCK/ I,H 03120MON08 DCK/ I,H 03130SMCLNK DCK/ I,H 03140DSORT DCK/ I,H 03150SMCMON DCK/ I,H 03160SMCEDT DCK/ I,H 03170SMCSRT DCK/ I,H 03180SMCIMG DCK/ I,H 03190SMCFMG DCK/ I,H 03200NUSRID DCK/ I,H=22 03210USERID DCK/ I,H=22 03220NSMENU DCK/ I,H=22 03230SYMENU DCK/ I,H=22 03240NSCMEN DCK/ I,H=22 03250SCMENU DCK/ I,H=22 03260NSYMSG DCK/ I,H=22 03270SYMSGF DCK/ I,H=22 03280NPROCD DCK/ I,H=22 03290PROCED DCK/ I,H=22 03300STAR01 DCK/ I,H=22 03310DPTAM2 DCK/ I,H 03320KPTAM2 DCK/ I,H 03330PTMOTN DCK/ I,H   3&Xy 03340PTREAD DCK/ I,H 03350PTRITE DCK/ I,H 03360PTSUBS DCK/ I,H 03370JOBENT DCK/ I,H 03380JPSTV4 DCK/ I,H 03390JOBPRO DCK/ I,H 03400CLPTFL DCK/ I,H 03410IVPTTC DCK/ I,H 03420Q8PREP DCK/ I,H 03430BFCLOS DCK/ I,H 03440JPFLV4 DCK/ I,H 03450GETFLC DCK/ I,H 03460PTOPEN DCK/ I,H 03470JPF2V4 DCK/ I,H 03480UP DCK/ I,H 03490SMDCFG DCK/ I,H 03500MON11 DCK/ I,H 03510LPCR01 DCK/ I,H 03520OPNPT2 DCK/ I,H 03530PARIDX DCK/ I,H 03540CONVRT DCK/ I,H 03550SAVLAB DCK/ I,H 03560RESLAB DCK/ I,H 03570MON12 DCK/ I,H 03580FMUTEQ DCK/ I,H 03590NXTVOQ DCK/ I,H 03600COMSEQ DCK/ I,H 03610QETDEF DCK/ I,H 03620QETDEL DCK/ I,H 03630COMANQ DCK/ I,H 03640QTLOAD DCK/ I,H 03650ORDERQ DCK/ I,H 03660PRELOQ DCK/ I,H 03670RANDOQ DCK/ I,H 03680SEQLOQ DCK/ I,H 03690MON13 DCK/ I,H 03700FMUCOQ DCK/ I,H 03710DEFINQ DCK/ I,H 03720DELETQ DCK/ I,H 03730LOADQ DCK/ I,H 03740BLDIDQ DCK/ I,H 03750LDIXOQ DCK/ I,H 03760MON14 DCK/ I,H 03770ADDECT DCK/ I,H 03780CHEKSM DCK/ I,H 03790DBLMTH DCK/ I,H 03800DBLDIV DCK/ I,H 03810EDTLP DCK/ I,H lk  3&Yy 03820FDWMTH DCK/ I,H 03830GETWRD DCK/ I,H 03840PHANT DCK/ I,H 03850SDSABL DCK/ I,H 03860DTLP50 DCK/ I,H 03870CUDDLY DCK/ I,H 03880REBFDD DCK/ I,H 03890RBDPCH DCK/ I,H 03900MON15 DCK/ I,H 03910FCBERR DCK/ I,H 03920RLDDSK DCK/ I,H 03930RLREAD DCK/ I,H 03940SAVDSK DCK/ I,H 03950SAVDSP DCK/ I,H 03960SAVHNK DCK/ I,H 03970SAVRLD DCK/ I,H 03980SAVTAP DCK/ I,H 03990SFWRIT DCK/ I,H 04000SVREAD DCK/ I,H 04010SVWRIT DCK/ I,H 04020RBDFIL DCK/ I,H 04030RBPERR DCK/ I,H 04040 END/ 04050_ B  3&Zy mmmmmmmmmmmmmmmmmmmmmmmmAL~zO CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmDUMMY1 DCK/ I=20,H 00010DUMMY1 HOL/ 00020 OPT LPC 00030 END/ 00040LEGAL DCK/ I,H 00050LPGGEN DCK/ I,H 00060LUD400 DCK/ I,H 00070LUPDAT DCK/ I,H 00080DUMMY2 DCK/ I=20,H 00090DUMMY2 HOL/ 00100 MON 00110 OPT LPC 00120 END/ 00130CLXTRT DCK/ I,H 00140LACLPG DCK/ I,H 00150LACTAD DCK/ I,H 00160 DEL/ 24 00170 DATA UDATA /'LAUTIFIL', 8*$2020,1,1,0/ 00180LACTMT DCK/ I,H 00190LAHEAD DCK/ I,H 00200LAVMCN DCK/ I,H 00210LAVMDP DCK/ I,H 00220LAXTRT DCK/ I,H 00230LBATUD DCK/ I,H 00240?  3&[zLBLDSR DCK/ I,H 00250LCCSSP DCK/ I,H 00260LCHUD2 DCK/ I,H 00270LCLIUD DCK/ I,H 00280LCMPDQ DCK/ I,H 00290LCMPSM DCK/ I,H 00300LDAQEL DCK/ I,H 00310LDECMT DCK/ I,H 00320LDHUPD DCK/ I,H 00330LFTND1 DCK/ I,H 00340LIDACR DCK/ I,H 00350LLTBLD DCK/ I,H 00360LLTPRT DCK/ I,H 00370LLTSTA DCK/ I,H 00380LMHUPD DCK/ I,H 00390LNMCHG DCK/ I,H 00400LPGBLK DCK/ I,H 00410LPGCT1 DCK/ I,H 00420LPGCT2 DCK/ I,H 00430LPGEN0 DCK/ I,H 00440LPGEN1 DCK/ I,H 00450LPGEN3 DCK/ I,H 00460LPGLST DCK/ I,H 00470LPGLTB DCK/ I,H 00480LPGN2E DCK/ I,H 00490 DEL/ 87 00500 DATA F1300/' INTEGER REQBFE(24),IDATEX(15),EXTREC(68) '/ 00510LPGN2P DCK/ I,H 00520LPGPRG DCK/ I,H 00530LPHDL1 DCK/ I,H 00540LPHDL2 DCK/ I,H 00550LPRNTT DCK/ I,H 00560LPRSCN DCK/ I,H 00570LPRTSR DCK/ I,H 00580LQLOAD DCK/ I,H 00590 INS/ 26 00600 INTEGER DT2(3) 00610 INS/ 50 00620 CALL CCSMVA(DT,1,6,DT2,1,6) 00630 DEL/ 53,54 00640 CALL WTREAD(LUNIT,-1,MSG1,44,-1,IBUF,6,ITC) 00650 IF(IBUF(1).EQ.$2020.AND.ITC.EQ.2) GO TO 140 00660 DEL/ 57 00670 CALL CCSMVA(IBUF,1,6,DT2,1,6) 00680 DEL/ 69 00690 IF(AND(ISTAT,$8100).EQ.$8100) GO TO 190 00700 INS/ 78 00710 GO TO 200 00720(  3&\z'1 00730C PRINT LAST QUEUE 00740 190 EOF=2 00750 GO TO 230 00760 DEL/ 122 00770 WRITE(PRT,262)(HDR(K),K=21,40),PAGE 00780 DEL/ 124 00790 WRITE(PRT,263)(HDR(K),K=41,60),DT(1),DT(2),DT(3) 00800 DEL/ 128,130 00810 .9X,'0',9X,'1',9X,'2',9X,'3',8X,'>3',9X,'TOTALS',/) 00820 INS/ 175 00830 430 IF(EOF.EQ.2.OR.ALLDON.NE.0) GO TO 510 00840 DEL/ 182 00850 DEL/ 202 00860 500 IF(EOF.EQ.0) GO TO 160 008701 00880C END-OF-FILE SEND BACK TO PRINT LAST QUEUE 00890 IF(EOF.NE.1) GO TO 510 00900 ALLDON=1 00910 GO TO 230 00920 DEL/ 212,214 00930 520 CONTINUE 00940LRTVD1 DCK/ I,H 00950LSUMAC DCK/ I,H 00960 DEL/ 106,108 00970 IF ( IDATVR(EBUF,1) .EQ. 0 ) GO TO 165 00980LTRNDF DCK/ I,H 00990LTRNDU DCK/ I,H 01000LTRPLY DCK/ I,H 01010LUSEMT DCK/ I,H 01020LUTFMT DCK/ I,H 01030LWROFE DCK/ I,H 01040DUMMY3 DCK/ I=20,H 01050DUMMY3 HOL/ 01060 MON 01070 OPT LPC 01080 END/ 01090CLIMAC DCK/ I,H 01100CLCHNG DCK/ I,H 01110CLDISP DCK/ I,H 01120CLIDAT DCK/ I,H 01130CLIENT DCK/ I,H 01140CLMAIN DCK/ I,H 01150CLNAME DCK/ I,H 01160DUMMY4 DCK/ I=20,H 01170DUMMY4 HOL/ 01180 MON 01190 OPT LPC 01200n  3&]z; END/ 01210LEGMAC DCK/ I,H 01220FLEGAL DCK/ I,H 01230LACTED DCK/ I,H 01240LBLKDT DCK/ I,H 01250LCHEKQ DCK/ I,H 01260LCHENT DCK/ I,H 01270LCHSCR DCK/ I,H 01280LCLANX DCK/ I,H 01290LDAASC DCK/ I,H 01300LDSPLY DCK/ I,H 01310LEACTS DCK/ I,H 01320LEATRN DCK/ I,H 01330LNMSRC DCK/ I,H 01340LPCPRC DCK/ I,H 01350LPKAMT DCK/ I,H 01360LSVTRN DCK/ I,H 01370PAYENT DCK/ I,H 01380 INS/ 632 01390C START TIME OF PROCEDURE 01400 CALL CCSMVA(LSTRTM,1,4,TRNSBF,21,4) 01410C STOP TIME IS ENTERED IN LSVTRN 01420C TRANSACTION TYPE IS LITERAL 03 01430 TRNSBF(15) = $3033 01440C AMOUNT-IF NEG. THE LAST BYTE 01450C MUST BE CHANGED 01460 CALL CCSGET(LAREC,LCHAR+41,LGET) 01470 IF(LGET.EQ.$20) GO TO 1906 01480 CALL CCSGET(LAREC,LCHAR+40,LGET) 01490DUMMY5 DCK/ I=20,H 01500DUMMY5 HOL/ 01510 MON 01520 OPT LPC 01530 END/ 01540UPDMAC DCK/ I=24,H 01550LAFUPD DCK/ I,H 01560LAUNCU DCK/ I,H 01570DUMMY6 DCK/ I=20,H 01580DUMMY6 HOL/ 01590 MON 01600 OPT LPC 01610 END/ 01620UP4MAC DCK/ I=24,H 01630LU4BLK DCK/ I,H 01640 END/ 01650_  3&^zO f  3&_zc f  3&`zw ALzO ?CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmLTPRNT DCK/ I,H 00010 DEL/ 121 00020 IPOINT=IPOINT+1 00030 DEL/ 126,128 00040 77 CALL CCSMVA(LTFILB,IPOINT,6,FARRAY,IARAPT,6) 000501 00060 IARAPT=IARAPT+6 00070 INS/ 207 00080 CC=2 00090 DEL/ 302 Ys  3&az 00100 615 LENGTH=IPOINT-IPOS-2 00110 END/ 00120_ mmmmmmmmAL zO ?CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm*JOB,-------------------------INSTALL UPDATED LTRBLD 00010*OPEN,FN=CCSAP.C,OW=CCS20,VL=SOURCE,R,LU=20 00020*OPEN,FN=SCRATCH,OW=CCS20,VL=SOURCE,W,LU=21 00030*OPEN,FN=LTRBLD.U,OW=CCS20,VL=SOURCE,R,LU=22 00040*K,I22  3&bz 00050*CSY,I20,P21 00060*COSY 00070*K,I21,P2 00080*FTN 00090*K,I13 00100*LIBEDT 00110*K,I8,P8 00120*P,F,2 00130*N,LTRBLD,,,B 00140*Z 00150*CLOSE 00160*Z 00170_ mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmAL~zO ?CCS20 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmLTRBLD DCK/ I,H 00010 DEL/ 98,99 00020 INTEGER LKEY2(2),NINE,SIX 00030 DATA LKEY2/'LTR2'/,NINE/$39/,SIX/$36/ 00040 DEL/ 142 00050 DATA BLNKER/'FOUND AN ILLEGAL BLANK IN PARAMETER " ".'/ 00060 DEL/ 147,148 00070 INTEGER DUPKEY(24) 00080 DATA DUPKEY/'DUPLICATE KEY - LETTER NUMBER XX ALEADY PRESENT'/ 00090 DEL/ 153,154 00100 INTEGER EQERR(12) 00110 DATA EQERR/'FORMAT MISSING "=" SIGN '/ 00120 DEL/ 182 00130 DATA RPTBLE/'UNABLE TO LOCATE FIELD NAME " " IN RPTTBL '/ 00140 DEL/ 189,190 001501 00160 INTEGER TEXT3(13) 00170 DATA TEXT3/'NUMBER OF LINES EXCEED 24 '/ 001801 00190 INTEGER UTFERR(19) 00200 DATA UTFERR/'UNABLE TO LOCATE LTRX IN THE UTIFIL '/ 00210 DEL/ 284 00220 LCOUNT=1 00230 DEL/ 295 00240 136 IF(INBUF(1).EQ.ISDEL) GO TO 130 00250 INS/ 355 00260 PRTBUF(1)=SNGLSP 00270 DEL/ 381 00280 CALL CCSBLK(PRTBUF,PRTLEN) XJ  3&cz 00290 PRTBUF(1)=DBLSPA 00300 CALL CCSMVA(INBUF,1,80,PRTBUF,5,80) 00310 ASSIGN 236 TO ICOMP 00320 CALL FWRITE(PRT,PRTBUF,PRTLEN,ICOMP,IFLAG,ITEMP) 00330 CALL DISP 00340 236 CONTINUE 00350 OBUF(1)=DBLSPA 00360 CALL CCSMVA(INBUF,1,3,AERROR,25,3) 00370 CALL CCSMVA(AERROR,1,30,OBUF,10,30) 00380 DEL/ 383 00390 ASSIGN 400 TO ICOMP 00400 DEL/ 393,394 00410 OBUF(1)=SNGLSP 00420 CALL CCSBLK(OBUF,PRTLEN) 00430 CALL CCSMVA(INBUF,1,3,ENDERR,23,3) 00440 CALL CCSMVA(ENDERR,1,28,OBUF,10,28) 00450 DEL/ 437 00460 CALL CCSMVA(INBUF,1,80,PRTBUF,5,80) 00470 DEL/ 448,449 00480 382 CALL CCSMVA(SAVKEY,1,2,LTFILB,LFSTR,2) 00490 DEL/ 456,457 00500 CALL CCSBLK(PRTBUF,PRTLEN) 00510 PRTBUF(1)=DBLSPA 00520 CALL CCSMVA(INBUF,1,80,PRTBUF,5,80) 00530 ASSIGN 395 TO ICOMP 00540 CALL FWRITE(PRT,PRTBUF,PRTLEN,ICOMP,IFLAG,ITEMP) 00550 CALL DISP 00560 395 CONTINUE 00570 OBUF(1)=SNGLSP 00580 CALL CCSMVA(INBUF,4,2,LNERR,44,2) 00590 CALL CCSMVA(LNERR,1,47,OBUF,10,47) 00600 DEL/ 482 00610 430 IF(INBUF(1).EQ.ISDEL) GO TO 420 00620 DEL/ 493,494 00630 CALL CCSCST(INBUF,1,1,F,1,1,NCOMP) 00640 DEL/ 496 00650 INS/ 500 00660 PRTBUF(1)=SNGLSP 00670 DEL/ 509,511 00680 OBUF(1)=SNGLSP 00690 CALL CCSMVA(INBUF,1,1,FERROR,23,1) 00700 CALL CCSMVA(FERROR,1,26,OBUF,10,26) 00710 IRCNT=IRCNT+1 00720 ASSIGN 1236 TO ICOMP 00730 INS/ 520 00740 PRTBUF(1)=SNGLSP 00750 DEL/ 543,544 00760 OBUF(1)=SNGLSP ;  3&dz 00770 CALL CCSMVA(EQERR,1,24,OBUF,10,24) 00780 FCOUNT=FCOUNT+1 00790 DEL/ 581,582 00800 CALL CCSMVA(N,2,1,PARAME,28,1) 00810 CALL CCSMVA(PARAME,1,30,OBUF,10,30) 00820 DEL/ 617 00830 640 CALL CCSMVA(RTNMKY,1,6,HDBUF,1,6) 00840 CALL READR(REQBRP,LRPTBL,RTNMKY,ISTAT) 00850 DEL/ 623,624 00860 OBUF(1)=SNGLSP 00870 CALL CCSMVA(HDBUF,1,6,RPTBLE,30,6) 00880 CALL CCSMVA(RPTBLE,1,50,OBUF,10,50) 00890 DEL/ 627 00900 FCOUNT=FCOUNT+1 00910 ASSIGN 400 TO ICOMP 00920 DEL/ 689 00930 IF(IBYTE.EQ.2.AND.ITYPED.EQ.0) GO TO 720 00940 IF(IBYTE.EQ.2.AND.ITYPED.EQ.1) GO TO 710 00950 INS/ 694 00960 IF(ITYPED.EQ.1) GO TO 710 00970 DEL/ 704,705 00980 LFSTR=LFSTR+1 00990 CALL CCSMVA(N,2,1,LTFILB,LFSTR,1) 01000 LFSTR=LFSTR+1 01010 INS/ 728 010201 01030C CHECK DATE LENGHT FOR TYPE 2 OR 3 010401 01050 710 IF(WKBUF(1).GE.$3200.AND.WKBUF(1).LE.$3300) GO TO 720 010601 01070C ERROR DATE LENGTH MUST BE 2 OR 3 010801 01090 CALL CCSBLK(OBUF,PRTLEN) 01100 CALL CCSMVA(PARAM5,1,23,OBUF,10,23) 01110 GO TO 935 011201 01130 DEL/ 769 01140 IF(WKBUF(1).LT.1.OR.WKBUF(1).GT.24) GO TO 905 01150 DEL/ 778 01160 IF(WKBUF(1).LT.MINLEN.OR.WKBUF(1).GT.MAXLEN-3) GO TO 920 01170 DEL/ 803 01180 780 IF(PARAM.NE.TYPE) GO TO 910 01190 IF(N.EQ.A)ITYPEA=1 01200 DEL/ 818 01210 820 IF(PARAM.NE.TYPE) GO TO 910 01220 IF(N.EQ.D)ITYPED=1 01230 DEL/ 842 01240 880 IF(WKBUF(1).GT.$3230.AND.WKBUF(2).GT.$3030) GO TO 900 є  3&ez 01250 WKBUF(2)=ICCSAD(WKBUF(2)) 01260 DEL/ 854,855 01270 1 CALL CCSMVA(NINE,2,1,LTFILB,LFSTR+3,1) 01280 PARAM=PARAM+1 01290 895 LFSTR=LFSTR+7 01300 DEL/ 866,868 01310 PARAM=PARAM+$30 01320 CALL CCSMVA(PARAM,2,1,PAMERR,40,1) 01330 CALL CCSMVA(PAMERR,1,42,OBUF,10,42) 01340 DEL/ 875 01350 CALL CCSMVA(PARAM1,1,44,OBUF,10,44) 01360 DEL/ 881,882 01370 CALL CCSMVA(N,2,1,PARAME,28,1) 01380 CALL CCSMVA(PARAME,1,30,OBUF,10,30) 01390 DEL/ 888 01400 CALL CCSMVA(PARAM2,1,46,OBUF,10,46) 01410 DEL/ 894 01420 CALL CCSMVA(PARAM5,1,48,OBUF,10,48) 01430 DEL/ 900,903 01440 PARAM=PARAM+$30 01450 CALL CCSMVA(PARAM,2,1,BLNKER,39,1) 01460 CALL CCSMVA(BLNKER,1,42,OBUF,10,42) 01470 PARAM=PARAM-$30 01480 DEL/ 909 01490 OBUF(1)=SNGLSP 01500 FCOUNT=FCOUNT+1 01510 ASSIGN 400 TO ICOMP 01520 DEL/ 912 01530 DEL/ 925 01540 1140 CALL CCSBLK(OBUF,PRTLEN) 01550 OBUF(1)=SNGLSP 01560 IRCNT=IRCNT+1 01570 CALL CCSMVA(FMAXER,1,38,OBUF,10,38) 01580 DEL/ 952,956 015901 01600C CHECK FOR SYSTEM DELETE CODE 016101 01620 1230 IF(INBUF(1).EQ.ISDEL) GO TO 1210 01630 INS/ 957 016401 01650C CHECK FOR END RECORD 016601 01670 1236 CALL CCSCST(INBUF,1,3,IEND,1,3,NCOMP) 01680 IF(NCOMP.EQ.0) GO TO 1245 01690 NUMSW=0 01700 ISTAR=0 01710 IENDSW=0 01720 DEL/ 963 S  3&fz 01730 PRTBUF(1)=SNGLSP 01740 ASSIGN 1237 TO ICOMP 01750 DEL/ 968,970 017601 01770C CHECK FOR LINE OVERFLOW 017801 01790 1237 IF(LCOUNT.GT.MXLINE) GO TO 1450 01800 DEL/ 975,978 01810 1240 CALL CCSCST(INBUF,1,3,ACODE,1,3,NCOMP) 01820 IF(NCOMP.NE.0) GO TO 1260 01830 OBUF(1)=SNGLSP 01840 CALL CCSBLK(OBUF,PRTLEN) 01850 CALL CCSMVA(INBUF,1,3,ENDERR,23,3) 01860 CALL CCSMVA(ENDERR,1,28,OBUF,10,28) 01870 DEL/ 980 01880 ASSIGN 135 TO ICOMP 01890 DEL/ 984,987 01900 INS/ 991 01910 CALL CCSBLK(PRTBUF,PRTLEN) 01920 PRTBUF(1)=SNGLSP 01930 CALL CCSMVA(INBUF,1,80,PRTBUF,5,80) 01940 ASSIGN 1250 TO ICOMP 01950 CALL FWRITE(PRT,PRTBUF,PRTLEN,ICOMP,IFLAG,ITEMP) 01960 CALL DISP 01970 1250 CONTINUE 01980 DEL/ 1099,1103 01990 DEL/ 1107 02000 CALL CCSMVA(TEXT3,1,26,OBUF,10,26) 02010 LCOUNT=0 02020 DEL/ 1114,1116 02030 1460 ASSIGN 1210 TO ICOMP 02040 DEL/ 1127 02050 1500 IF(LTRCNT.GE.50) GO TO 1570 02060 IF(IRCNT.NE.0) GO TO 130 02070 DEL/ 1129 02080 IF(AND(ISTAT,$8010).EQ.$8010) GO TO 1520 02090 DEL/ 1137 02100 OBUF(1)=SNGLSP 02110 CALL CCSMVA(SAVKEY,1,2,DUPKEY,31,2) 02120 CALL CCSMVA(DUPKEY,1,48,OBUF,10,48) 02130 DEL/ 1194 02140 1559 CONTINUE 02150 DEL/ 1213 02160 1565 IF(IRCNT.GT.0) GO TO 130 02170 CALL LTPRNT(DT,LTFILB) 02180 DEL/ 1219 02190 OBUF(1)=SNGLSP 02200 CALL CCSMVA(TEXT2,1,28,OBUF,10,28) Rl  3&g{ 02210 DEL/ 1232 02220 1600 CONTINUE 02230 INS/ 1241 02240 IF(AND(ISTAT,$200).EQ.$200) GO TO 1850 02250 IF(AND(ISTAT,$100).EQ.$200) GO TO 1850 02260 INS/ 1270 02270 IF(AND(ISTAT,$200).EQ.$200) GO TO 1860 02280 IF(AND(ISTAT,$100).EQ.$100) GO TO 1860 02290 INS/ 1293 023001 02310C LTR1 OR LTR2 WAS NOT FOUND PRINT MESSAGE 023201 02330 1850 CALL CCSBLK(OBUF,PRTLEN) 02340 CALL CCSMVA(TOPPAG,1,2,OBUF,1,2) 02350 CALL CCSMVA(LKEY1,4,1,UTFERR,21,1) 02360 I=1 02370 GO TO 1870 02380 1860 CALL CCSBLK(OBUF,PRTLEN) 02390 CALL CCSMVA(DBLSPA,1,2,OBUF,1,2) 02400 CALL CCSMVA(LKEY2,4,1,UTFERR,21,1) 02410 I=2 02420 1870 CALL CCSMVA(UTFERR,1,38,OBUF,10,38) 02430 IF(I.EQ.1) ASSIGN 1800 TO ICOMP 02440 IF(I.EQ.2) ASSIGN 2010 TO ICOMP 02450 CALL FWRITE(PRT,OBUF,PRTLEN,ICOMP,IFLAG,ITEMP) 02460 CALL DISP 02470 END/ 02480_ J  3&hvALrvP CCS20 F 16,1777 PAPER TAPE READER_.36_^1_%ALF 16,PSEUDO TAPE UNIT_435_^1_%ALF 16,1777 PAPER TAPE PUNCH_/37_^1_%ALF 16,1729-3 CARD READER_26_^1_%ALF 16,1733-1/853 DISK CCS 3.0 SYSTEM BUILD PROCEDURES 00010 00020 The following procedures show how transmittal materials from 00030 Development to I&E are compiled, assembled, and built into the 00040 CCS 3.0 customer delivery materials. The following is a list of 00050 materials transmitted to I&E. 00060 00070 The following items are diskettes: 00080 00090 1. NRZI Deadstart DTLP Flexible Diskette 00100 2. CCS 3 SMD Formatter Flexible Diskette 00110 00120 The following items are magnetic tapes: 00130 00140 3. CCS System DTLP Tape.(1 tape) 00150 4. CCS Build System File Reload - SYSVOL 00160 5. CCS Build System File Reload - SOURCE 00170 6. CCS Application RPG Cuddly 00180 7. LA Application RPG Cuddly 00190 8. CCS Data Files Tape 00200 9. ITK Update Test -Reactivate from SUMHIST 00210 10. ITK Update Test -Reactivate Inactive Accounts 00220 11. ITK UPDATE 400 -Nonfinancial Update 00230 12. ITK UPDATE 500 -Financial Update, Promise to Pay 00240 13. ITK UPDATE 500 -Financial Update, Payment Stacking 00250 14. ITK L/A UPDATE -Writeoff 10 Accounts 00260 15. ITK L/A LUD500 -First Financial Update 00270 16. ITK L/A LUD500 -Second Financial Update 00280 17. PL50 L430 CYBER CROSS Tape (see note) 00290 18. PL61 L446 CCP1.0 Tape (see note) 00300 00310 (NOTE: These are backup copies of the CCP1.0 tapes from the 00320 Sunnyvale Cyber 74 tape library. 00330 00340 Updated versions of the diskettes will be transmitted with Cycle II 00350 materials. These diskettes are the final Deadstart DTLP media 00360 included in the customer delivery materials. The tapes in items 00370 9 - 16 are data tapes which are included in the final customer 00380 delivery materials. 00390 00400 The items in 1-16 above are used in the following procedure to 00410 create the final two pieces of the customer delivery materials: 00420 the Operating System Install (DTLP) tape and the System Install 00430 (EDTLP) tape. Briefly, the procedure consists of five phases. 00440 00450 A. Create Build System #  3&iv 00460 B. Generate Listings and Install Tapes 00470 C. System Installation 00480 D. DTLP Generation 00490 E. EDTLP Generation 00500 00510 00520 In addition to the materials above, the following materials are 00530 required: 00540 00550 1. Two 1867-20 SMD Disk Pack 00560 2. 12 blank (new) tapes, used for intermediate and final output 00570 of procedures. Operator will be prompted to mount and label 00580 each tape when required. 00590 00600 The entire procedure should be executed on the following minimal 00610 hardware configuration: 00620 00630 1. Cyber 18-25 00640 2. 1811-2 Console 00650 3. 1860-4 or 1860-5 tape drive 00660 4. 1867-20 SMD Drive 00670 5. 1827-32 or 1827-60 Printer 00680. 00690 A. CREATE BUILD SYSTEM 00700 00710 I. DTLP TAPE INSTALLATION 00720 00730 Two disk packs, formatted for 64 sectors/track, are required. 00740 The formatting procedure is described in the Installation 00750 Test Kit manual, Section 1 (use 12000 account CCS system). 00760 Perform the following procedure: 00770 00780 1. Mount DTLP build system tape on magnetic tape unit 0 and ready 00790 the unit. This is the DTLP tape supplied initially with the 00800 system but can be replaced by the latest CCS 3.0 system DTLP. 00810 00820 2. Load the DTLP deadstart material, and ready the unit. 00830 00840 NOTE 00850 00860 Use 25IPS material for the 25IPS system; use 50IPS for the 00870 50IPS system. 00880 00890 3. Press STOP, MASTER CLEAR, DEADSTART on the control panel. 00900 00910 4. The system responds: 00920 00930 4 DIG. EQ. CODE FOR:  3&jv 00940 MAG TAPE 00950 00960 5. Enter: 00970 00980 0480(CR) (for 25 inch-per-second system) 00990 0601(CR) (for 50 inch-per-second system) 01000 01010 6. The system responds: 01020 01030 4 DIG. EQ. CODE FOR.. 01040 MASS MEMORY 01050 01060 7. Enter: 01070 01080 0700 (CR) 01090 01100 8. The system responds: 01110 01120 SCRATCH SECTOR IS $C1 IS -- xxxx 01130 TYPE LOAD FOR TAPE-TO-DISK, SAVE FOR DISK-TO-TAPE 01140 OR CARRIAGE RETURN 01150 01160 9. Enter: 01170 01180 LOAD (CR) 01190 01200 10. The system responds: 01210 01220 INPUT TAPE ON UNIT 0. READY 01230 01240 11. Enter: 01250 01260 (CR) 01270 01280 12. Upon completion the system responds: 01290 01300 xxxx SECTORS LOADED 01310 TYPE V FOR VERIFY, A FOR AUTOLOAD, 01320 OR CARRIAGE RETURN TO RESTART 01330 01340 13. Enter: 01350 01360 V (CR) 01370 01380 14. The system responds: 01390 01400 VERIFY TAPE ON UNIT 0. READY? 01410  3&kw  01420 15. Enter: 01430 01440 (CR) when the tape is at load point and ready. 01450 01460 16. Upon completion, the system responds; 01470 01480 xxxx SECTORS VERIFIED, 01490 TYPE V FOR VERIFY, A FOR AUTOLOAD, 01500 OR CARRIAGE REURN TO RESTART 01510 01520 17. Autoload the system 01530 01540 18. Press STOP, MASTERCLEAR, AUTOLOAD, and RUN on the control panel. 01550 01560 19. The system responds: 01570 01580 CCS 3.0 -- PSR LEVEL 138 mm/dd/yy 01590 nnnk BYTES OF MEMORY - CPUI 01600 nnnnk BYTES OF MEMORY - CPUII 01610 SYSTEM CONFIGURED FOR USE OF 1860-x MAG TAPES 01620 SET PROGRAM PROTECT (ESC J28@) 01630 01640 20. Enter: 01650 01660 (ESC) J28@ 01670 01680 21. The system responds: 01690 01700 CCS 3.0 (MM/DD/YY) 01710 01720 ENTER DATE/TIME MMDDYYHHMM 01730 01740 22. Enter the date and the time and press (CR). 01750 01760 23. The system responds 01770 01780 CP STARTED 0000 01790 DATE: 17 APR 79 TIME:1557:00 01800. 01810 01820 II. INITIALIZE SYSTEM VOLUME 01830 01840 The following procedure initializes the system volume: 01850 01860 1. Perform a manual interrupt. (CONTROL G) 01870 01880 2. The system responds: 01890 \4  3&lw 01900 MI 01910 > 01920 01930 3. Enter: 01940 01950 INIT (CR) 01960 01970 4. The system responds: 01980 01990 WARNING: ALL SYSTEM VOLUME FILES WILL BE PURGED 02000 02010 5. Enter: 02020 02030 OK (CR) 02040 02050 6. The system responds: 02060 02070 REQUEST COMPLETE 02080 02090 7. Perform a manual interrupt. 02100 02110 8. The system responds: 02120 02130 MI 02140 > 02150 02160 9. Enter: 02170 02180 START (CR) 02190 02200 10. The system responds: 02210 02220 BUILDING SYSTEM FILES 02230 CCS ACTIVE AT HHMM 02240. 02250 III. SET HOST LOGICAL UNIT 02260 02270 At this point, the logical unit number of the host must be set. This 02280 is accomplisted by the following steps at the master console: 02290 02300 Log-on +(CR) 02310 User-id (CR) 02320 REQUEST = UT(CR) 02330 READY > SET (CR) 02340 HO = > LOCL (CR) 02350 LU = > 13 (CR) 02360 READY EX (CR) 02370 END UTIL D  3&mw1 02380 02390 REQUEST = > EX (CR) 02400 02410 The following message is displayed to the master terminal. 02420 02430 CCS LOG OFF HH:MM:SS 02440. 02450 02460 IV. RELOADING CCS BUILD SYSTEM FILES 02470 02480 After the operating system is loaded, the data files required to 02490 generate the system must be loaded from tape. Two tapes are 02500 provided for this purpose. The first tape is labeled "System Data 02510 File Reload - SYSVOL"; the second tape is labeled "System Data File 02520 Reload - SOURCE". 02530 02540 1. At the master console, log into the system with CCS20 userid. 02550 02560 2. Mount SOURCE disk on unit 1. 02570 02580 3. Mount tape labeled "System Data File Reload - SYSVOL" on tape 02590 unit 0 and ready unit. 02600 02610 4. Enter UTIL and respond with the following: 02620 02630 READY RELOAD (CR) 02640 FN = (CR) 02650 OW = (CR) 02660 VL = SYSVOL (CR) 02670 I = TAPE0 (CR) 02680 02690 The files will reload from tape and the console will display 02700 name and owner as they are reloaded. See Appendix B for 02710 expected files to be loaded. 02720 02730 5. When the first tape has completed the reload, mount the tape 02740 labeled "System Data File Reload - SOURCE -" on unit 0 and ready 02750 the unit. (Disk pack for volume SOURCE should be on disk 02760 drive unit 1.) 02770 Enter UTIL to init and mount volume SOURCE with the following: 02780 READY INIT 02790 VL = SOURCE 02800 NF = 256 02810 DK = 1 02820 02830 READY MOUNT 02840 VL = SOURCE 02850 DK = 1 ?  3&nwE 02860 02870 6. Enter UTIL and respond with the following: 02880 02890 READY RELOAD (CR) 02900 FN = (CR) 02910 OW = (CR) 02920 VL = SOURCE (CR) 02930 I = TAPE0(CR) 02940 02950 See Appendix B for expected files to be reloaded. 02960 02970 7. REQUEST = EX (CR) 02980 02990 CCS LOG OFF HH:MM:SS 03000 03010 8. Build system installation is complete. You may now proceed with 03020 the procedure to generate listings and install tapes. 03030. 03040 B. GENERATE LISTINGS AND INSTALL TAPES 03050 03060 1. Before compiliation and assembly of programs can begin, the 03070 CCS remote batch utility must be activated: 03080 03090 MI 03100 *BATCH,F 03110 03120 2. Two processes must be compiled at remote computer systems. These 03130 are: 03140 03150 . MICRO Assembler programs are compiled on House I system. 03160 03170 . Communications Processor programs are to be compiled at 03180 the SVLOPS system. 03190 03200 3. MICRO Assembler Procedure 03210 03220 a. Mount scratch tape labeled "MICRO Assembler Programs" on 03230 unit 0 and ready unit. 03240 03250 b. Under UTIL, batch CCSMIC.J 03260 03270 READY BATCH (CR) 03280 FN = CCSMIC.J (CR) 03290 OW = (CR) 03300 VL = (CR) 03310 HO = (CR) 03320 TY = N(CR) 03330 h(  3&owY 03340 c. When CCSMIC.J has completed, submit tape labeled "MICRO 03350 Assembler Programs" plus one scratch tape labeled "MICRO 03360 Assembler Program Binaries" to House I for processing. 03370 03380 d. Tapes are to be mounted as follows: 03390 03400 LU TAPE 03410 6 "MICRO Assembler Programs" (9 track) 03420 16 "MICRO Assembler program Binaries"(9 track) 03430 03440 e. Start assembly on House I by: 03450 03460 MI 03470 *BATCH,6 03480 03490 f. At completion, the following message will appear: 03500 03510 "*CTO,MICRO ASSEMBLY COMPLETE". 03520 03530 Dismount tapes and hold for use in later processes. 03540 03550 4. Communications Processor Procedure 03560 03570 This procedure describes the process for creating a CCS 03580 compatable install file of the communications processor 03590 from the PL61 standard release tape for CCP1.0 2550 software. 03600 The first part of this process is run on the Cyber 74 at 03610 SVLOPS using the HOUSE 8 communications terminal. The second 03620 part is run on the HOUSE 1 computer. The data files and 03630 procedure streams (JCL) must initially be loaded from the 03640 CCS machine. CCSCP.J performs that process. 03650 03660 a. Have two scratch tapes available; one labeled "CCP Host 03670 Procedure" and the other labeled "CCP House1 Procedure". 03680 03690 b. Under UTIL, batch CCSCP.J 03700 03710 READY BATCH (CR) 03720 FN = CCSCP.J (CR) 03730 OW = (CR) 03740 VL = (CR) 03750 HO = (CR) 03760 TY = N(CR) 03770 03780 c. When CCSCP.J has completed dismount both tapes and 03790 hold for later processing. Schedule time on the HOUSE 8 03800 communications terminal. If time is not immediately available 03810 you may proceed to step 4 of this prE  3&pwmocedure but return to 03820 this step as soon as possible. 03830 03840 d. Using the House 8 communication terminal, initiate the 03850 compilation of the CCP 1.0 software as follows: 03860 . Set terminal for 2000 baud. 03870 . Load controlware. Place 2000 baud controlware deck 03880 in card reader and make ready. 03890 . STOP 03900 . MASTER CLEAR 03910 . Autoload 03920 03930 If necessary, ask the operator to reload the terminal. 03940 Press the 'TALK' button on the modem and dial 03950 9-1-408-734-7197 03960 When the tone sounds, press the 'DATA' button on the modem. 03970 Wait for 'PLEASE LOGIN' message to appear on the screen. 03980 03990 e. Enter the following: 04000 04010 . LOGIN,CINDY,041253305,SUP (SEND) 04020 . System responds with COMMAND 04030 . SCREEN,80,13 (SEND) 04040 (mount tape labeled "CCP Host Procedure" on the 04050 top tape drive and ready unit) 04060 . INP=M1 (STX) 04070 . LOAD (STX) 04080 . WAIT,CR1 (SEND) 04090 . GO,CR1 (SEND) 04100 (tape will be read; process will take several minutes. 04110 The COMMAND prompt will appear when the process is 04120 complete). 04130 . FILES (SEND) 04140 (This command will show the status of remote jobs. The 04150 following jobs will appear in the Remote input or Exec- 04160 uting queues: CJOB0aa,CJOB0Abb,CJOB1cc,CJOB2dd, 04170 CJOB3ee,CJOB4ff. Host system appends aa,bb,etc. to job 04180 names.) 04190 . LOGOUT (SEND) 04200 . Press 'TALK' on the modem, pick up phone and hang up. 04210 . This six step job stream will take from several hours to 04220 a day to complete depending to the Cyber 170 04230 load. Log in periodically and check the status of the 04240 six jobs with the FILES (SEND) command. 04250 (when all six jobs have completed and are in the output 04260 queue, continue...). 04270 . Mount tape labeled "CCP Host Output" on top unit and 04280 ready drive. 04290 . OUT=M1 (STX)   3&qw 04300 . DEFINE,LP1,FCMT (SEND) 04310 . ON,LP1 (SEND) 04320 (Will write to tape, takes ten minutes. Device status 04330 will be displayed when process is complete. 04340 . TM,1,WF,2 (US) 04350 (Will write 2 files marks to tape) 04360 . OFF,LP1 (SEND) 04370 . OUT= LP1 (STX) 04380 . DEFINE,LP1 (SEND) 04390 . ON,LP1 (SEND) 04400 (Printer will produce a six inch list - will take about 04410 several hours. When all jobs have completed printing, 04420 log off as described above). 04430 04440 f. The next step must be run on HOUSE 4. It creates a CCS 04450 compatable install file of the communications processor 04460 on tape which is used by a later process. The required 04470 tapes are labeled: 04480 . CCP Host Output 04490 . CCP HOUSE1 procedure 04500 . CCP Install File 04510 . scratch tapes(2) 04520 04530 g. Mount scratch tape on unit 2 (lu=17). 04540 Mount 'CCP HOUSE1 PROCEDURE' on unit 0 (lu=6). 04550 Copy unit 0 to unit 2 via LIBEDT as follows: 04560 MI 04570 *BATCH,4 04580 *JOB 04590 *LIBEDT 04600 *T,6,A,17,A,,1 04610 *Z 04620 *REW,17 04630 *Z 04640 04650 Begin processing by entering: 04660 04670 MI 04680 *BATCH,17 04690 04700 h. This process will generate a new "CCP Install" tape. Retain 04710 this tape for later processing. 04720 04730 5. CCS Compilation 04740 04750 This step will compile all remaining programs in CCS. Total 04760 machine time required for this step is approximately 50 hours. 04770 Each of the 10 jobs should be submitted  3&rwafter successful 04780 completion of the previous job. 04790 04800 a. Under UTIL, batch CCSMSO.J - Compiles MSOS programs - 8 hours 04810 04820 READY BATCH (CR) 04830 FN = CCSMSO.J (CR) 04840 OW = (CR) 04850 VL = (CR) 04860 HO = (CR) 04870 TY = N (CR) 04880 04890 b. Under UTIL, batch CCSITO.J - compiles ITOS programs - 12 hour 04900 04910 READY BATCH (CR) 04920 FN = CCSITO.J (CR) 04930 OW = (CR) 04940 VL = (CR) 04950 HO = (CR) 04960 TY = N (CR) 04970 04980 c. Under UTIL, batch CCSDVR.J - Compiles driver programs - 04990 3 hours. 05000 05010 READY BATCH (CR) 05020 FN = CCSDVR.J (CR) 05030 OW = (CR) 05040 VL = (CR) 05050 HO = (CR) 05060 TY = N (CR) 05070 05080 d. Under UTIL, batch CCSASM.J - Compiles assembler programs - 05090 1/2 hour. 05100 05110 READY BATCH (CR) 05120 FN = CCSASM.J (CR) 05130 OW = (CR) 05140 VL = (CR) 05150 HO = (CR) 05160 TY = N (CR) 05170 05180 e. Under UTIL, batch CCSFTN.J - Compiles Fortran - 8 hours 05190 05200 READY BATCH (CR) 05210 FN = CCSFTN.J (CR) 05220 OW = (CR) 05230 VL = (CR) 05240 HO = (CR) 05250 TY = N (CR)  3&sw 05260 05270 f. Under UTIL, batch CCSRPG.J - Compile RPG - 10 hours 05280 05290 READY BATCH (CR) 05300 FN = CCSRPG.J (CR) 05310 OW = (CR) 05320 VL = (CR) 05330 HO = (CR) 05340 TY = N (CR) 05350 05360 g. Under UTIL, batch CCSAPF.J - Compiles CCS Fortran 05370 application programs - 3 hours 05380 05390 READY BATCH (CR) 05400 FN = CCSAPF.J (CR) 05410 OW = (CR) 05420 VL = (CR) 05430 HO = (CR) 05440 TY = N (CR) 05450 05460 h. Under UTIL, batch LAAPF.J - Compiles L/A Fortran 05470 application programs - 3 1/2 hours 05480 05490 READY BATCH 05500 FN = LAAPF.J 05510 OW = (CR) 05520 VL = (CR) 05530 HO = (CR) 05540 TY = N (CR) 05550 05560 i. Under UTIL,batch CCSAPR.J - Compiles CCS RPG 05570 application programs -1/2 hour, requires RPG Cuddly tape. 05580 05590 READY BATCH (CR) 05600 FN = CCSAPR.J (CR) 05610 OW = (CR) 05620 VL = (CR) 05630 HO = (CR) 05640 TY = N (CR) 05650 05660 j. Under UTIL, batch LAAPR.J - Compiles L/A RPG 05670 application programs - 1 hour, requires RPG Cuddly tape. 05680 05690 READY BATCH (CR) 05700 FN = LAAPR.J (CR) 05710 OW = (CR) 05720 VL = (CR) 05730 HO = (CR)   3&tw 05740 TY = N (CR) 05750 05760 k. This step is complete. Go get some coffee. 05770. 05780 6. INSTALL TAPE GENERATION 05790 05800 The file INSTAL.J generates install tapes for all skeletons in 05810 the file MASTER.K against the binaries found in the file 05820 MASTER.B. Therefore, MASTER.K and MASTER.B must be loaded prior 05830 to batching INSTAL.J. Two separate batch executions of INSTAL.J 05840 must be run because all CCS binaries will not fit on maximum 05850 scratch available. 05860 05870 MASTER.B is loaded by batching MERGE1.J or MERGE2.J. 05880 05890 a. Under UTIL, batch MERGE1.J 05900 05910 READY BATCH (CR) 05920 FN = MERGE1.J (CR) 05930 OW = (CR) 05940 VL = (CR) 05950 HO = (CR) 05960 TY = N (CR) 05970 05980 The folowing binary files will be loaded into MASTER.B: 05990 06000 Type From file 06010 ---- --------- 06020 MSOS .................. CCSMSO.B 06030 ITOS .................. CCSITO.B 06040 DRIVERS ............... CCSDVR.B 06050 ASSEMBLY .............. CCSASM.B 06060 FORTRAN ............... CCSFTN.B 06070 CCS application FTN ... CCSAPF.B 06080 CCS application RPG ... CCSAPR.B 06090 06100 06110 b. The skeletons for the install tapes are loaded into MASTER.K 06120 by performing the following under UTIL: 06130 06140 READY CLEAR (CR) ** NOTE ** Each time MASTER.B is 06150 FN = MASTER.K (CR) loaded, it must first be 06160 VL = SYSVOL (CR) cleared. The ".N" jobs append 06170 to the existing contents. 06180 READY BATCH (CR) 06190 FN = CCSOS1.N (CR) (Part 1 of Operating System) 06200 OW = (CR) 06210 VL = (CR)   3&uw 06220 HO = (CR) 06230 TY = N (CR) 06240 06250 READY BATCH (CR) 06260 FN = CCSOS2.N (CR) (Part 2 of Operating System) 06270 OW = (CR) 06280 VL = (CR) 06290 HO = (CR) 06300 TY = N (CR) 06310 06320 READY BATCH (CR) 06330 FN = CCSFTN.N (CR) (Fortran compiler) 06340 OW = (CR) 06350 VL = (CR) 06360 HO = (CR) 06370 TY = N (CR) 06380 06390 c. The required binaries will not fit on MSOS scratch as defined 06400 on SYSVOL. Change MSOS scratch to a scratch disk as follows: 06410 06420 . Dismount SOURCE volume, from UTIL: 06430 READY DISMOUNT (CR) 06440 DK = 1 (CR) 06450 06460 . Remove SOURCE volume from disk drive and mount scratch 06470 pack. 06480 06490 . Enter DEBUG 06500 MI 06510 DB (CR) 06520 LHX,B3/F (CR) (old value = 0008) 06530 OFF (CR) 06540 06550 . Log in at master console with CCS20 userid 06560 06570 . From UTIL, batch INSTAL.J 06580 READY BATCH (CR) ** NOTE ** The INSTAL.J job will 06590 FN = INSTAL.J (CR) give tape mount instructions 06600 OW = (CR) for PART1, PART2 and FORTRAN 06610 VL = (CR) tapes. 06620 HO = (CR) 06630 TY = N (CR) 06640 06650 . NOTE: Ensure that deferred batch has been turned on 06660 with *BATCH,F. 06670 06680 . When INSTAL.J has completed, the scratch pack must be 06690 removed and the SOURCE volume remoǨ  3&vwunted. 06700 06710 . Enter DEBUG 06720 MI (CR) 06730 DB (CR) 06740 LHX,B3/8 (CR) (old value = 000F) 06750 OFF (CR) 06760 06770 . Log in at master console with CCS20 userid. 06780 READY MOUNT (CR) 06790 VL = SOURCE (CR) 06800 DK = 1 (CR) 06810 06820 d. Upon completion, batch MERGE2.J 06830 06840 READY BATCH (CR) 06850 FN = MERGE2.J (CR) 06860 OW = (CR) 06870 VL = (CR) 06880 HO = (CR) 06890 TY = N (CR) 06900 06910 The following binary files will be loaded into MASTER.B: 06920 06930 Type from file 06940 ---- --------- 06950 ITOS .................. CCSITO.B 06960 RPG ................... CCSRPG.B 06970 L/A application FTN ... CCSAPF.B 06980 L/A application RPG ... CCSAPR.B 06990 07000 e. The skeletons of the install files are loaded into MASTER.K 07010 by performing the following under UTIL: 07020 07030 READY CLEAR (CR) 07040 FN = MASTER.K (CR) 07050 VL = SYSVOL (CR) 07060 07070 READY BATCH (CR) 07080 FN = CCSRPG.N (CR) (RPG compiler) 07090 OW = (CR) 07100 VL = (CR) 07110 HO = (CR) 07120 TY = N (CR) 07130 07140 READY BATCH (CR) 07150 FN = CCSAP.N (CR) (CCS applications) 07160 OW = (CR) 07170 VL = (CR) z  3&ww 07180 HO = (CR) 07190 TY = N (CR) 07200 07210 READY BATCH (CR) 07220 FN = LAAP.N (CR) (L/A applications) 07230 OW = (CR) 07240 VL = (CR) 07250 HO = (CR) 07260 TY = N (CR) 07270 07280 f. Once again, the required binaries will not fit on MSOS 07290 scratch as defined on SYSVOL. Change MSOS scratch to a 07300 scratch disk as follows: 07310 . READY DISMOUNT (CR) 07320 DK = 1 (CR) 07330 07340 . Remove SOURCE volume from disk drive and mount a scratch 07350 disk. 07360 07370 . Enter DEBUG 07380 MI 07390 DB (CR) 07400 LHX,B3/F (CR) (old value = 0008) 07410 OFF (CR) 07420 07430 . Log in at master console with CCS20 userid. 07440 07450 . From UTIL, batch INSTAL.J 07460 READY BATCH (CR) 07470 FN = INSTAL.J (CR) 07480 OW = (CR) 07490 VL = (CR) 07500 HO = (CR) 07510 TY = N (CR) 07520 07530 . NOTE: Ensure that deferred batch has been turned on 07540 with *BATCH,F 07550 07560 . When INSTAL.J has completed, dismount scratch pack and 07570 remount SOURCE disk pack. 07580 . Enter DEBUG 07590 MI 07600 DB (CR) 07610 LHX,B3/8 (CR) (old value = 000F) 07620 07630 . Log in at master comsole wil CCS20 user id. 07640 07650 . READY MOUNT (CR) l  3&xx  07660 VL = SOURCE (CR) 07670 DK = 1 (CR) 07680 07690 g. This step will create the "CCS File Load" tape. Required 07700 input tapes are labeled: "CCS Application RPG Cuddly", "LA 07710 Application RPG Cuddly" and "CCS Data Files". A scratch tape 07720 labeled "CCS File Load Tape" is the generated output which 07730 is to be saved for later processing. Procedure will call for 07740 input tapes as they are needed. 07750 . From UTIL, batch FILTAP.J 07760 READY BATCH (CR) 07770 FN = FILTAP.J (CR) 07780 OW = (CR) 07790 VL = (CR) 07800 TY = N (CR) 07810. 07820 C. SYSTEM INSTALLATION 07830 07840 1. The SILP package must be executed to begin system 07850 installation. Mount "Operating System Part 1 Install" on unit 07860 0 and ready the unit. Perform the following: 07870 07880 MI 07890 *BATCH,4 (CR) 07900 *JOB 07910 *SILP (CR) 07920 07930 Follow SLIP instructions to turn off the protect switch and 07940 enter date. SILP is now ready to begin execution. Dismount 07950 build volume and mount volume on which new system is to be 07960 built. When complete, enter: 07970 07980 *C,7 07990 *V (CR) 08000 08010 At completion of the install, SILP will instruct the operator 08020 to autoload to continue. Dismount tape. 08030 08040 2. Next, mount and ready "Operating System Part2 Install". Autoload 08050 the system and perform: 08060 08070 MI 08080 *BATCH (CR) 08090 08100 The operator will be informed upon successful completion of this 08110 step. Dismount tape. 08120 08130 3. Install the communications processor. Mo  3&yx!unt the "CCP INSTALL" 08140 tape on tape unit 0 and enter: 08150 08160 MI 08170 *BATCH,4 (CR) 08180 *JOB (CR) 08190 *LIBEDT (CR) 08200 *K,I6 (CR) 08210 *V,6 08220 08230 4. Next, install the FORTRAN compiler and runtime, the RPGII 08240 compiler and runtime, and the CCS application in that order. 08250 This is performed by mounting and readying the appropriate 08260 install tape on unit 0 and entering: 08270 08280 MI 08290 *BATCH,6 (CR) 08300 08310 5. Autoload the system and perform a file manager initialization 08320 of SYSVOL - see step II of Create Build Procedure and execute 08330 it. Also, execute step III to set host logical unit. 08340 08350 6. This system is now ready to install initialization files. 08360 Mount and ready the "CCS File Load Tape" on unit o and enter: 08370 08380 + (CR) 08390 USER ID = $$(CR) 08400 REQUEST = TAPEPRO (CR) 08410 08420 The procedure will inform the operator when the install 08430 is complete. Dismount tape. 08440 08450 7. Next, build new system files by performing: 08460 08470 MI 08480 STOP (CR) 08490 VERIFY OK (CR) 08500 OFF UNTIL (CR) 08510 CCS INACTIVE AT HHMM 08520 08530 The system is now ready to create the system DTLP and EDTLP 08540 tapes. 08550. 08560 D. DTLP TAPE CREATION 08570 08580 1. Mount the DTLP system output tape on magnetic tape unit 0, 08590 and ready the unit. 08600 08610 2. Execute DTLP by performing: f  3&zx5 08620 08630 MI 08640 *BATCH,4 (CR) 08650 *JOB (CR) 08660 *DTLP (for 25IPS NRZI tape drives) or 08670 *DTLP50 (for 50IPS dual phase encode tape drives) 08680 08690 4. The system responds: 08700 08710 DTLP FIRST WORD ADDRESS WILL BE xxxx 08720 TURN OFF PROTECT SWITCH, TYPE CARRIAGE RETURN (J20@) 08730 08740 3. Enter: 08750 08760 esc J20@ (CR) 08770 08780 4. The system responds: 08790 08800 4 DIG. EQ. CODE FOR ... 08810 MAG. TAPE 08820 08830 5. Enter: 08840 08850 0480(CR) (for 25 inch-per-second system) 08860 0601(CR) (for 50 inch-per-second system) 08870 08880 6. The system responds: 08890 08900 4 DIG. EQ. CODE FOR ... 08910 MASS MEMORY 08920 08930 7. Enter: 08940 08950 0700 (CR) 08960 08970 8. The system responds: 08980 08990 SCRATCH SECTOR FOR $C1 IS -- xxxx 09000 TYPE LOAD FOR TAPE-TO-DISK, SAVE FOR DISK-TO-TAPE 09010 OR CARRIAGE RETURN 09020 09030 9. Enter: 09040 09050 SAVE (CR) 09060 09070 10. The system responds: 09080 09090 OUTPUT TAPE ON UNIT 0. HOW MANY SECTJ  3&{xIORS? 09100 09110 11. Enter: 09120 09130 xxxx (CR) (xxxx is number of sectors indicated in 8 above) 09140 09150 12. Upon completion the system responds: 09160 09170 xxxx SECTORS LOADED 09180 TYPE V FOR VERIFY, A FOR AUTOLOAD, 09190 OR CARRIAGE RETURN TO RESTART. 09200 09210 13. Enter: 09220 09230 V (CR) 09240 09250 14. The system responds: 09260 09270 VERIFY TAPE ON UNIT 0. READY? 09280 09290 15. Enter: 09300 09310 (CR) when the tape is at load point and ready. 09320 09330 16. Upon completion, the system responds: 09340 09350 xxxx SECTORS VERIFIED, 09360 TYPE V FOR CARRIAGE RETURN, A FOR AUTOLOAD, 09370 OR A CARRIAGE RETURN TO RESTART 09380 09390 Dismount and label tape "CCS 3.0 OPERATING SYSTEM DTLP" 09400 09410 17. Autoload the system. 09420 09430 18. Press STOP,MASTER CLEAR, AUTOLOAD, and RUN on the control 09440 panel. 09450 09460 19. The system responds: 09470 09480 CCS 3.0 -- PSR LEVEL nnn mm/dd/yy 09490 nnnk BYTES OF MEMORY - CPU1 09500 nnnnk BYTES OF MEMORY - CPUII 09510 SYSTEM CONFIGURED FOR USE OF 1860-x MAG TAPES 09520 SET PROGRAM PROTECT (ESC J28@) 09530 09540 20. Enter: 09550 09560 esc J28@ 09570 VF  3&|x] 09580 21. The system responds: 09590 09600 CCS3.0 (MM/DD/YY) 09610 ENTER DATE/TIME MMDDYYHHMM 09620 09630 22. Enter the date and time and press (CR). 09640 09650 23. The system responds: 09660 09670 CP STARTED 0000 09680 DATE: 17 APR 79 TIME: 1557:00 09690. 09700 E. EDTLP TAPE CREATION 09710 09720 Perform the sequence outlined on the following page for a 09730 sample SAVE operation. 09740 09750 Autoload system. 09760 09770 09780 1. Enter: 09790 09800 MI 09810 *BATCH,4 (CR) 09820 09830 2. System responds: 09840 09850 J 09860 3. Enter: 09870 09880 *JOB (CR) 09890 09900 4. System responds: 09910 09920 J 09930 09940 5. Enter: 09950 09960 *EDTLP (CR) 09970 09980 6. System responds: 09990 10000 EDTLP 10010 TYPE SAVE (CR) FOR DISK-TO-TAPE SAVE 10020 TYPE LOAD (CR) FOR TAPE-TO-DISK RELOAD 10030 10040 7. Enter: 10050 M  3&}xq 10060 SAVE (CR) 10070 10080 8. System responds: 10090 10100 DISK TO TAPE SAVE 10110 THE FOLLOWING VOLUMES ARE MOUNTED 10120 VOLUME NAME DISK NUMBER 10130 SYSVOL 0 10140 10150 ENTER DISK NUMBER OR CARRIAGE RETURN 10160 ENTERING A DISK NUMBER WILL SAVE ONLY THE SPECIFIED 10170 DISK, IF IT IS MOUNTED AND READY. 10180 ENTERING A CARRIAGE RETURN WILL SAVE ALL MOUNTED AND 10190 READY DISK DRIVES 10200 VALID NUMBERS FOR DISK DRIVES ARE DISPLAYED ABOVE DISK 10210 NUMBERS. 10220 10230 9. Enter: 10240 10250 (CR) 10260 10270 10. The system responds: 10280 10290 THE FOLLOWING VOLUMES ARE MOUNTED AND WILL BE SAVED TO TAPE 10300 VOLUME NAME DISK NUMBER 10310 SYSVOL 0 10320 10330 TYPE GO TO CONTINUE, EX TO EXIT 10340 10350 11. Enter: 10360 10370 GO (CR) 10380 10390 12. The system responds 10400 10410 ALTERNATING TAPE DRIVES FOR MULTI TAPES 10420 REEL# LOGICAL UNIT# TAPE DRIVE# 10430 1 6 0 10440 2 16 1 10450 3 6 0 10460 10470 YOU MAY CHOOSE TO USE ALTERNATING TAPE DRIVES OR ONLY ONE 10480 TAPE DRIVE. IF YOU WISH TO USE ONLY ONE TAPE DRIVE, SPECIFY 10490 THE TAPE DRIVE NUMBER OF THE DRIVE YOU WICH TO USE 10500 10510 ALTERNATING DRIVES ( Y OR N ) 10520 10530 13. Enter:  3&~x 10540 10550 N (CR) 10560 10570 14. The system responds: 10580 10590 SELECT A TAPE DRIVE (0 OR 1) 10600 10610 15. Enter: 10620 10630 0 (CR) 10640 10650 16. The system responds: 10660 10670 OPERATOR-MOUNT OUTPUT TAPE ON UNIT WITH RING 10680 TYPE GO TO CONTINUE, EX TO EXIT 10690 10700 17. Enter: 10710 10720 GO (CR) 10730 10740 18. EDTLP will inform the operator when the SAVE operation is 10750 complete. Dismount and label tape "CCS3.0 System Install 10760 EDTLP" when EDTLP is finished. 10770. 10780 APPENDIX A 10790 10800 CCS Build System File Directory and Nomenclature. 10810 10820 The nomenclature used in all file names of files on CCS Build System 10830 is: 10840 10850 NNNNNS:T 10860 10870 Where: 10880 10890 NNNNN = Name of subsystem to which files are a part. Subsystem 10900 names used are: 10910 10920 NAME DESCRIPTION 10930 ____ ___________ 10940 CCSOS Operatint system 10950 CCSAP CCS Application 10960 LAAP Legal and Agency Application 10970 CCSRC CCS RPGII 2.1 Compiler and Runtime 10980 CCSFC CCS FTN 3.3B Compiler and runtime 10990 CCSSK Install Skeletons 11000 CCSFI CCS File Initialization Procedures 11010  3&x 11020 S = Optional subscript denoting language subset of compile 11030 and assemble JCL files or denoting subset of install, 11040 create install JCL; and skeleton files. Language subsets 11050 are: 11060 11070 IDENTIFIER LANGUAGE 11080 __________ ________ 11090 A Assembly (MACRO) 11100 F Fortran 11110 M Micro Assembly 11120 R RPGII 11130 11140 Install File subsets are: 11150 11160 IDENTIFIER DESCRIPTION 11170 __________ ____________ 11180 1 Part 1 11190 2 Part 2 11200 I System Initializer 11210 11220 T = Type of file. The following types are recognized: 11230 11240 IDENTIFIER TYPES 11250 __________ _____ 11260 B Binary Output 11270 C Cosy source (programs,Skeletons,ASCII 11280 Procedures/Files) 11290 D Cuddly Source (RPG programs only) 11300 H Intermediate Hollerith output file 11310 I Install output 11320 J JCL to compile and Assemble 11330 K Install Skeletons 11340 N JCL to create Install Files 11350 11360 For example, the file CCSOSM.J contains the JCL required to assemble 11370 the operating system programs written in Micro Assembly language. 11380 Likewise, CCSAP.D is the CCS Application Cuddly Source (RPG programs 11390 only) and CCSOSI.N is the JCL to create the Operating System 11400 Initializer Install File. Any file is able to be interrupted using 11410 the above rules. A complete listing of files on the CCS build 11420 System is on the attached UTIL status list. 11430. 11440_ F  3&x h(  3&x h  3&x g  3&x g  3&x g  3&y g  3&y% g  3&y9 ALy?P ACCS20 IT IN THE STRTBL_^1_%STA- ADDR,I_'SAVE THE NUMBER OF THE WORD IN THE STORAGE_^1_%ENA 1_^1EAB2_!SQZ EAB1-*-1_$COMPUTE THE BIT POSITION CORRESPONDING TO_^1_%INQ -1_+PSC00 CSY/ 000201INPUT=TAPE0_^1QTIL_]_^1DEFINE,FN=PRFSC001,ED=999999,TY=S,LR=80,NR=1500,OW=$$_^1DEFINE,FN=PRFSC002,ED=999999,TY=S,LR=80,NR=1500,OW=$$_^1DEFINE,FN=PRFSC003,ED=999999,TY=S,LR=80,NR=1500,OW=$$_^1DEFINE,FN=PRFSC004,ED=999999,TY=S,LR=80,NR=1500,OW=$$_^1DEFINE,FN=PRFSC005,ED=999999,TY=S,LR=80,NR=2500,OW=$$_^1DEFINE,FN=PRFSC006,ED=999999,TY=S,LR=80,NR=2500,OW=$$_^1DEFINE,FN=PRFSC007,ED=999999,TY=S,LR=80,NR=2500,OW=$$_^1DEFINE,FN=PRFSC008,ED=999999,TY=S,LR=80,NR=2500,OW=$$_^1DEFINE,FN=PRFSC009,ED=999999,TY=S,LR=80,NR=200,OW=$$_^1DEFINE,FN=PRFSC010,ED=999999,TY=S,LR=80,NR=250,OW=$$_^1DEFINE,FN=DMDLQMST,OW=$$,ED=999999,TY=R,K1=16,P1=1,K2=6,P2=18,LR=2000;_^1NR=100_]_^1DEFINE,FN=DMCOSIGN,OW=$$,ED=999999,TY=R,K1=16,P1=1,LR=362,NR=10_^1DEFINE,FN=DMRPTTBL,OW=$$,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=2000_^1DEFINE,FN=DMACTVTB,OW=$$,ED=999999,TY=S,LR=320,NR=1_^1DEFINE,FN=DMUTIFIL,OW=$$,ED=999999,TY=R,K1=4,P1=1,LR=80,NR=150_^1DEFINE,FN=DMSCNDSC,OW=$$,ED=999999,TY=S,LR=80,NR=3000_^1DEFINE,FN=DMSCNFIL,OW=$$,ED=999999,TY=R,K1=2,P1=1,LR=1800,NR=100_^1DEFINE,FN=DMDECTBL,OW=$$,ED=999999,TY=S,LR=3000,NR=1_^1DEFINE,FN=DMLTRDSC,OW=$$,ED=999999,TY=S,LR=80,NR=2000_^1DEFINE,FN=DMLTRFIL,OW=$$,ED=999999,TY=R,K1=2,P1=1,LR=1512,NR=50_^1DEFINE,FN=DMNEWS,OW=$$,ED=999999,TY=S,LR=80,NR=100_^1DEFINE,FN=DMACCAGE,OW=$$,ED=999999,TY=R,K1=16,P1=1,LR=82,NR=100_^1DEFINE,FN=DMSUMHIS,OW=$$,ED=999999,TY=R,K1=16,P1=1,LR=666,NR=10_^1DEFINE,FN=DMTAPARC,OW=$$,ED=999999,TY=R,K1=16,P1=1,LR=46,NR=10_^1DEFINE,FN=DLRPTTBL,OW=$$,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=2000_^1DEFINE,FN=DLACTVTB,OW=$$,ED=999999,TY=S,LR=320,NR=1_^1DEFINE,FN=DLUTIFIL,OW=$$,ED=999999,TY=R,K1=4,P1=1,LR=80,NR=150_^1DEFINE,FN=DLSCNDSC,OW=$$,ED=999999,TY=S,LR=80,NR=3000_^1DEFINE,FN=DLSCNFIL,OW=$$,ED=999999,TY=R,K1=2,P1=1,LR=2000,NR=100_^1DEFINE,FN=DLDECTBL,OW=$$,ED=999999,TY=S,LR=3000,NR=1_^1DEFINE,FN=SFDACRTE,OW=CCS20,ED=999999,TY=S,LR=80,NR=500_^1DEFINE,FN=SRDTLLST,OW=CCS20,ED=999999,TY=S,LR=80,NR=1000_^1DEFINE,FN=SFLDACRT,OW=LA,ED=999999,TY=S,LR=80,NR=500_^1DEFINE,FN=SRLDTLST,OW=LA,ED=999999,TY=S,LR=80,NR=1000_^1DEFINE,FN=SFLAXTRT,OW=LA,ED=999999,TY=S,LR=80,NR=300_^S<  3&yM1DEFINE,FN=SRLARPRT,OW=LA,ED=999999,TY=S,LR=80,NR=300_^1DEFINE,FN=DISCQT,OW=$$,ED=999999,TY=S,LR=80,NR=100_^1DEFINE,FN=UPDATE.I,OW=CCS20,ED=999999,TY=S,LR=80,NR=20_^1DEFINE,FN=UPDATE.B,OW=CCS20,ED=999999,TY=S,LR=120,NR=1000_^1DEFINE,FN=LUPDAT.I,OW=LA,ED=999999,TY=S,LR=80,NR=20_^1DEFINE,FN=LUPDAT.B,OW=LA,ED=999999,TY=S,LR=120,NR=1000_^1EX_]_^1LODDAT_]_^__DISCQT CSY/ 000201*JOB,PURGE,-----------PURGE PROGRAM LIBRARY_^1*LIBEDT_]_^1*R,QTIL,F_]_^1*R,QTDEFI,F_^1*R,QTDELE,F_^1*R,QTCOMM,F_^1*R,QTLOAD,F_^1*R,QTORLD,F_^1*R,QTRMLD,F_^1*R,LODDAT,F_^1*R,MOVDAT,F_^1*R,LMOVDT,F_^1*R,CLRFIL,F_^1*R,LCLRFL,F_^1*Z_]_^1*Z_]_^__UPDATI CSY/ 000201*JOB,UPDATE,---------UPDATE INSTALL TO LINK TO CCSPYT_^1*CTO, BEGIN UPDATE INSTALLATION TO LINK TO CCSPYT_^1*OPEN,FN=UPDATE.B,OW=CCS20,R,LU=20_^1*LIBEDT_]_^1*K,I20,P8_]_^1*P,F,2_]_^1*K,I8_]_^1*N,UPDATE,,,B_^1*Z_]_^1*CTO, UPDATE INSTALLATION COMPLETE_^1*CLOSE_]_^1*Z_]_^__LUPDTI CSY/ 000201*JOB,LUPDAT,---------LUPDAT INSTALL TO LINK TO LCCSPY_^1*CTO, BEGIN LUPDAT INSTALLATION TO LINK TO LCCSPY_^1*OPEN,FN=LUPDAT.B,OW=CCS20,R,LU=20_^1*LIBEDT_]_^1*K,I20,P8_]_^1*P,F,2_]_^1*K,I8_]_^1*N,LUPDAT,,,B_^1*Z_]_^1*CTO, LUPDAT INSTALLATION COMPLETE_^1*CLOSE_]_^1*Z_]_^__UPDATS CSY/ 000101*B 'UPDATE' ' A21 A CCS CCS 3.0'_^1*B 'Q8QBDS' ' C46 F CCS CCS 3.0'_^1*B 'FUPDAT' ' B56 F CCS CCS 3.0'_^1*B 'UPINIT' ' C49 F CCS CCS 3.0'_^1*B 'LABHAN' ' B67 F CCS CCS 3.0'_^1*B 'NXTRAN' ' B85 F CCS CCS 3.0'_^1*B 'TOTALP' ' C23 F CCS CCS 3.0'_^1*B 'UPDEND' ' C47 F CCS CCS 3.0'_^1*B 'GETMAS' ' B58 F CCS CCS 3.0'_^1*B 'RSWIT'_!' C16 F CCS CCS 3.0'_^1*B 'UNCUPD' ' C31 F CCS CCS 3.0'_^1*B 'CONUPD' ' B32 F CCS CCS 3.0'_^1*B 'COSUPD' ' B33 F CCS CCS 3.0'_^1*B 'UPDIT'_!' C48 F CCS CCS 3.0'_^1*B 'REACIT' ' C14 F CCS CCSՍ  3&ya 3.0'_^1*B 'PRTLIN' ' C09 F CCS CCS 3.0'_^1*B 'FORMLN' ' B53 F CCS CCS 3.0'_^1*B 'ADDIT'_!' B05 F CCS CCS 3.0'_^1*B 'CHNGNF' ' B24 F CCS CCS 3.0'_^1*B 'R9BASE' ' C12 F CCS CCS 3.0'_^1*B 'R9FLDL' ' C13 F CCS CCS 3.0'_^1*END_]_^__ LUPDTS CSY/ 002501*B 'LUPDAT' ' E04 A LA_!CCS 3.0'_^1*B 'Q8QBDS' ' C46 F CCS CCS 3.0'_^1*B 'LAFUPD' ' F14 F LA_!CCS 3.0'_^1*B 'UPINIT' ' C49 F CCS CCS 3.0'_^1*B 'LABHAN' ' B67 F CCS CCS 3.0'_^1*B 'TOTALP' ' C23 F CCS CCS 3.0'_^1*B 'UPDEND' ' C47 F CCS CCS 3.0'_^1*B 'GETMAS' ' B58 F CCS CCS 3.0'_^1*B 'RSWIT'_!' C16 F CCS CCS 3.0'_^1*B 'LAUNCU' ' F17 F LA_!CCS 3.0'_^1*B 'CONUPD' ' B32 F CCS CCS 3.0'_^1*B 'COSUPD' ' B33 F CCS CCS 3.0'_^1*B 'UPDIT'_!' C48 F CCS CCS 3.0'_^1*B 'REACIT' ' C14 F CCS CCS 3.0'_^1*B 'PRTLIN' ' C09 F CCS CCS 3.0'_^1*B 'FORMLN' ' B53 F CCS CCS 3.0'_^1*B 'ADDIT'_!' B05 F CCS CCS 3.0'_^1*B 'CHNGNF' ' B24 F CCS CCS 3.0'_^1*B 'R9BASE' ' C12 F CCS CCS 3.0'_^1*B 'R9FLDL' ' C13 F CCS CCS 3.0'_^1*END_]_^__ PSC01A CSY/ 000201 *_]_^1 * PROCEDURE TO BUILD 12000_$ACCOUNT SYSTEM IN PROCESS._^1INPUT=PRFSC001_^1QTIL_]_^__PSC01B CSY/ 000901DEFINE,FN=$$MOUNTS,ED=999999,TY=R,K1=2,P1=1,K2=8,P2=3,LR=42,OW=CCS20;_^1NR=50_]_^1DEFINE,FN=ACCAGE,ED=999999,TY=R,K1=16,P1=1,LR=82,NR=12000,OW=CCS20_^1DEFINE,FN=ACTFIL,ED=999999,TY=R,K1=18,P1=1,LR=500,NR=12000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=ACTIVE,ED=999999,TY=R,K1=4,P1=1,LR=10,NR=320,OW=CCS20_^1DEFINE,FN=ACTVERTB,ED=999999,TY=S,LR=320,NR=1,VL=CDD01,OW=CCS20_^1DEFINE,FN=ADDACT,ED=999999,TY=S,LR=18,NR=12000,VL=CDD01,OW=CCS20_^1DEFINE,FN=AGEWRK,ED=999999,TY=S,LR=82,NR=12000,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=AVMDESC,TY=S,LR=80,ED=999999,NR=100,VL=CDD01,OW=CCS20_^1DEFINE,  3&yuFN=COLSTATS,ED=999999,TY=R,K1=7,P1=1,LR=20,NR=4096,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=COSIGNER,ED=999999,TY=R,K1=16,P1=1,LR=362,NR=12000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=DAQUE,ED=999999,TY=R,K1=4,P1=1,LR=8,NR=64,VL=CDD01,OW=CCS20_^1DEFINE,FN=DECTBL,ED=999999,TY=S,LR=3000,NR=1,VL=CDD01,OW=CCS20_^1DEFINE,FN=DELQMST,ED=999999,TY=R,K1=16,P1=1,K2=6,P2=18,LR=2000,NR=12000;_^1VL=CDD01,OW=CCS20_^1DEFINE,FN=DLYASSN,ED=999999,TY=S,LR=40,NR=12000,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=DLYWRK,ED=999999,TY=S,LR=40,NR=1000,VL=CDD01,OW=CCS20_^1DEFINE,FN=DUMMY,ED=999999,TY=S,LR=80,NR=1,VL=CDD01,OW=CCS20_^1LOAD,FN=DUMMY,OW=CCS20_^1_]_^1/!_]_^1DEFINE,FN=INACCT,ED=999999,TY=S,LR=24,NR=12000,VL=CDD01,OW=CCS20_^1DEFINE,FN=LTRDESC,TY=S,LR=80,ED=999999,NR=2000,OW=CCS20_^1DEFINE,FN=LTRFIL,ED=999999,TY=R,K1=2,P1=1,LR=1512,NR=50,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=NEWS,ED=999999,TY=S,LR=80,NR=100,VL=CDD01,OW=CCS20_^1DEFINE,FN=PGEXTR,ED=999999,TY=S,LR=132,NR=12000,OW=CCS20_^1DEFINE,FN=RPTPGM,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=20,VL=CDD01,OW=CCS20_^1DEFINE,FN=RPTTBL,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=2000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=RSWFIL,ED=999999,TY=S,LR=82,NR=6000,VL=CDD01,OW=CCS20_^1DEFINE,FN=SCRNDESC,ED=999999,TY=S,LR=80,NR=3000,VL=CDD01,OW=CCS20_^1DEFINE,FN=SCRNFILE,ED=999999,TY=R,K1=2,P1=1,LR=1800,NR=100,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=SREQDL,ED=999999,TY=S,LR=20,NR=100,VL=CDD01,OW=CCS20_^1DEFINE,FN=SUMHIST,ED=999999,TY=R,K1=16,P1=1,LR=666,NR=12000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=TAPEARC,ED=999999,TY=R,K1=16,P1=1,LR=46,NR=12000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=TRANFL,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=SYSVOL_^1DEFINE,FN=TRNBCK,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=CDD01_^1DEFINE,FN=TRNSFL,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=SYSVOL_^1DEFINE,FN=UPHSTCM,ED=999999,TY=S,LR=20,NR=100,VL=CDD01,OW=CCS20_^1DEFINE,FN=UTIFIL,ED=999999,TY=R,K1=4,P1=1,LR=80,NR=150,VL=CDD01,OW=CCS20_^1EX_]_^1MOVDAT_]_^1 * THE 12000 ACCOUNT SYSTEM BUILD IS COMPLETE_^1 *_]_^1 * PROCEED WITH THE INSTALLATION TEST PROCEDURES_^1 *_]_^1MNUPRO_]_^__PSC02A CSY/ 000201 *_]_^1 * PROCEDURE TO BUILD 24000_$ACCOUNT SYSTEM IN PROCESS._^1INPUT=PRFSC002_^1QTIL_]_^__PSC02B CSY/ 000901DEFINE,FN=$$MOUNTS,ED=999999,TY=R,K1=2,P1=1,K2=8,P2=3,LR=42,OW=CCS20;_^1NR=50_]_^1DEFINE,FN=ACCAGE,ED=999999,TY=R,K1=16,P1=1,LR=82,NR=24000,OW=CCS20_^1DEFINE,FN=ACTFIL,ED=999999,TY=R,K1=18,P1=1,LR=500,NR=24000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=ACTIVE,ED=999999,TY=R,K1=4,P1=1,LR=10,NR=320,OW=CCS20_^1DEFINE,FN=ACTVERTB,ED=999999,TY=S,LR=320,NR=1,VL=CDD01,OW=CCS20_^1DEFINE,FN=ADDACT,ED=999999,TY=S,LR=18,NR=24000,VL=CDD01,OW=CCS20_^1DEFINE,FN=AGEWRK,ED=999999,TY=S,LR=82,NR=24000,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=AVMDESC,TY=S,LR=80,ED=999999,NR=100,VL=CDD01,OW=CCS20_^1DEFINE,g  3&yFN=COLSTATS,ED=999999,TY=R,K1=7,P1=1,LR=20,NR=4096,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=COSIGNER,ED=999999,TY=R,K1=16,P1=1,LR=362,NR=24000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=DAQUE,ED=999999,TY=R,K1=4,P1=1,LR=8,NR=64,VL=CDD01,OW=CCS20_^1DEFINE,FN=DECTBL,ED=999999,TY=S,LR=3000,NR=1,VL=CDD01,OW=CCS20_^1DEFINE,FN=DELQMST,ED=999999,TY=R,K1=16,P1=1,K2=6,P2=18,LR=2000,NR=24000;_^1VL=CDD02,OW=CCS20_^1DEFINE,FN=DLYASSN,ED=999999,TY=S,LR=40,NR=24000,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=DLYWRK,ED=999999,TY=S,LR=40,NR=2000,VL=CDD01,OW=CCS20_^1DEFINE,FN=DUMMY,ED=999999,TY=S,LR=80,NR=1,VL=CDD01,OW=CCS20_^1LOAD,FN=DUMMY,OW=CCS20_^1_]_^1/!_]_^1DEFINE,FN=INACCT,ED=999999,TY=S,LR=24,NR=24000,VL=CDD01,OW=CCS20_^1DEFINE,FN=LTRDESC,TY=S,LR=80,ED=999999,NR=2000,OW=CCS20_^1DEFINE,FN=LTRFIL,ED=999999,TY=R,K1=2,P1=1,LR=1512,NR=50,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=NEWS,ED=999999,TY=S,LR=80,NR=100,VL=CDD01,OW=CCS20_^1DEFINE,FN=PGEXTR,ED=999999,TY=S,LR=132,NR=24000,OW=CCS20_^1DEFINE,FN=RPTPGM,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=20,VL=CDD01,OW=CCS20_^1DEFINE,FN=RPTTBL,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=2000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=RSWFIL,ED=999999,TY=S,LR=82,NR=12000,VL=CDD01,OW=CCS20_^1DEFINE,FN=SCRNDESC,ED=999999,TY=S,LR=80,NR=3000,VL=CDD01,OW=CCS20_^1DEFINE,FN=SCRNFILE,ED=999999,TY=R,K1=2,P1=1,LR=1800,NR=100,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=SREQDL,ED=999999,TY=S,LR=20,NR=200,VL=CDD01,OW=CCS20_^1DEFINE,FN=SUMHIST,ED=999999,TY=R,K1=16,P1=1,LR=666,NR=24000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=TAPEARC,ED=999999,TY=R,K1=16,P1=1,LR=46,NR=24000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=TRANFL,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=SYSVOL_^1DEFINE,FN=TRNBCK,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=CDD01_^1DEFINE,FN=TRNSFL,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=SYSVOL_^1DEFINE,FN=UPHSTCM,ED=999999,TY=S,LR=20,NR=200,VL=CDD01,OW=CCS20_^1DEFINE,FN=UTIFIL,ED=999999,TY=R,K1=4,P1=1,LR=80,NR=150,VL=CDD01,OW=CCS20_^1EX_]_^1MOVDAT_]_^1 * THE 24000 ACCOUNT SYSTEM BUILD IS COMPLETE._^1 *_]_^1 * PROCEED WITH THE INSTALLATION TEST PROCEDURES._^1 *_]_^1MNUPRO_]_^__ PSC03A CSY/ 000201 *_]_^1 * PROCEDURE TO BUILD 36000_$ACCOUNT SYSTEM IN PROCESS._^1INPUT=PRFSC003_^1QTIL_]_^__PSC03B CSY/ 000901DEFINE,FN=$$MOUNTS,ED=999999,TY=R,K1=2,P1=1,K2=8,P2=3,LR=42,OW=CCS20;_^1NR=50_]_^1DEFINE,FN=ACCAGE,ED=999999,TY=R,K1=16,P1=1,LR=82,NR=36000,OW=CCS20_^1DEFINE,FN=ACTFIL,ED=999999,TY=R,K1=18,P1=1,LR=500,NR=36000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=ACTIVE,ED=999999,TY=R,K1=4,P1=1,LR=10,NR=320,OW=CCS20_^1DEFINE,FN=ACTVERTB,ED=999999,TY=S,LR=320,NR=1,VL=CDD01,OW=CCS20_^1DEFINE,FN=ADDACT,ED=999999,TY=S,LR=18,NR=36000,VL=CDD01,OW=CCS20_^1DEFINE,FN=AGEWRK,ED=999999,TY=S,LR=82,NR=36000,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=AVMDESC,TY=S,LR=80,ED=999999,NR=100,VL=CDD01,OW=CCS20_^1DEFINE,6  3&yFN=COLSTATS,ED=999999,TY=R,K1=7,P1=1,LR=20,NR=4096,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=COSIGNER,ED=999999,TY=R,K1=16,P1=1,LR=362,NR=36000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=DAQUE,ED=999999,TY=R,K1=4,P1=1,LR=8,NR=64,VL=CDD01,OW=CCS20_^1DEFINE,FN=DECTBL,ED=999999,TY=S,LR=3000,NR=1,VL=CDD01,OW=CCS20_^1DEFINE,FN=DELQMST,ED=999999,TY=R,K1=16,P1=1,K2=6,P2=18,LR=2000,NR=36000;_^1VL=CDD02,OW=CCS20_^1DEFINE,FN=DLYASSN,ED=999999,TY=S,LR=40,NR=36000,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=DLYWRK,ED=999999,TY=S,LR=40,NR=3000,VL=CDD01,OW=CCS20_^1DEFINE,FN=DUMMY,ED=999999,TY=S,LR=80,NR=1,VL=CDD01,OW=CCS20_^1LOAD,FN=DUMMY,OW=CCS20_^1_]_^1/!_]_^1DEFINE,FN=INACCT,ED=999999,TY=S,LR=24,NR=36000,VL=CDD01,OW=CCS20_^1DEFINE,FN=LTRDESC,TY=S,LR=80,ED=999999,NR=2000,OW=CCS20_^1DEFINE,FN=LTRFIL,ED=999999,TY=R,K1=2,P1=1,LR=1512,NR=50,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=NEWS,ED=999999,TY=S,LR=80,NR=100,VL=CDD01,OW=CCS20_^1DEFINE,FN=PGEXTR,ED=999999,TY=S,LR=132,NR=36000,OW=CCS20_^1DEFINE,FN=RPTPGM,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=20,VL=CDD01,OW=CCS20_^1DEFINE,FN=RPTTBL,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=2000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=RSWFIL,ED=999999,TY=S,LR=82,NR=18000,VL=CDD01,OW=CCS20_^1DEFINE,FN=SCRNDESC,ED=999999,TY=S,LR=80,NR=3000,VL=CDD01,OW=CCS20_^1DEFINE,FN=SCRNFILE,ED=999999,TY=R,K1=2,P1=1,LR=1800,NR=100,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=SREQDL,ED=999999,TY=S,LR=20,NR=300,VL=CDD01,OW=CCS20_^1DEFINE,FN=SUMHIST,ED=999999,TY=R,K1=16,P1=1,LR=666,NR=36000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=TAPEARC,ED=999999,TY=R,K1=16,P1=1,LR=46,NR=36000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=TRANFL,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=SYSVOL_^1DEFINE,FN=TRNBCK,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=CDD01_^1DEFINE,FN=TRNSFL,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=SYSVOL_^1DEFINE,FN=UPHSTCM,ED=999999,TY=S,LR=20,NR=300,VL=CDD01,OW=CCS20_^1DEFINE,FN=UTIFIL,ED=999999,TY=R,K1=4,P1=1,LR=80,NR=150,VL=CDD01,OW=CCS20_^1EX_]_^1MOVDAT_]_^1 * THE 36000 ACCOUNT SYSTEM BUILD IS COMPLETE_^1 *_]_^1 * PROCEED WITH THE INSTALLATION TEST PROCEDURES._^1 *_]_^1MNUPRO_]_^__PSC04A CSY/ 000201 *_]_^1 * PROCEDURE TO BUILD 78000_$ACCOUNT SYSTEM IN PROCESS._^1INPUT=PRFSC004_^1QTIL_]_^__PSC04B CSY/ 000901DEFINE,FN=$$MOUNTS,ED=999999,TY=R,K1=2,P1=1,K2=8,P2=3,LR=42,OW=CCS20;_^1NR=50_]_^1DEFINE,FN=ACCAGE,ED=999999,TY=R,K1=16,P1=1,LR=82,NR=78000,OW=CCS20;_^1VL=CDD01_]_^1DEFINE,FN=ACTFIL,ED=999999,TY=R,K1=18,P1=1,LR=500,NR=78000,VL=SYSVOL;_^1OW=CCS20_]_^1DEFINE,FN=ACTIVE,ED=999999,TY=R,K1=4,P1=1,LR=10,NR=320,OW=CCS20_^1DEFINE,FN=ACTVERTB,ED=999999,TY=S,LR=320,NR=1,VL=CDD01,OW=CCS20_^1DEFINE,FN=ADDACT,ED=999999,TY=S,LR=18,NR=78000,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=AGEWRK,ED=999999,TY=S,LR=82,NR=78000,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=AVMDESC,TY=S,LR=80,ED=999999,NR=100,VL=SYSVOL,O  3&yW=CCS20_^1DEFINE,FN=COLSTATS,ED=999999,TY=R,K1=7,P1=1,LR=20,NR=4096,VL=SYSVOL;_^1OW=CCS20_]_^1DEFINE,FN=COSIGNER,ED=999999,TY=R,K1=16,P1=1,LR=362,NR=78000,VL=SYSVOL;_^1OW=CCS20_]_^1DEFINE,FN=DAQUE,ED=999999,TY=R,K1=4,P1=1,LR=8,NR=64,VL=CDD01,OW=CCS20_^1DEFINE,FN=DECTBL,ED=999999,TY=S,LR=3000,NR=1,VL=CDD01,OW=CCS20_^1DEFINE,FN=DELQMST,ED=999999,TY=R,K1=16,P1=1,K2=6,P2=18,LR=2000,NR=78000;_^1VL=CDD01,OW=CCS20_^1DEFINE,FN=DLYASSN,ED=999999,TY=S,LR=40,NR=78000,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=DLYWRK,ED=999999,TY=S,LR=40,NR=6500,VL=CDD01,OW=CCS20_^1DEFINE,FN=DUMMY,ED=999999,TY=S,LR=80,NR=1,VL=CDD01,OW=CCS20_^1LOAD,FN=DUMMY,OW=CCS20_^1_]_^1/!_]_^1DEFINE,FN=INACCT,ED=999999,TY=S,LR=24,NR=78000,VL=CDD01,OW=CCS20_^1DEFINE,FN=LTRDESC,TY=S,LR=80,ED=999999,NR=2000,OW=CCS20_^1DEFINE,FN=LTRFIL,ED=999999,TY=R,K1=2,P1=1,LR=1512,NR=50,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=NEWS,ED=999999,TY=S,LR=80,NR=100,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=PGEXTR,ED=999999,TY=S,LR=132,NR=78000,OW=CCS20,VL=CDD01_^1DEFINE,FN=RPTPGM,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=20,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=RPTTBL,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=2000,VL=SYSVOL;_^1OW=CCS20_]_^1DEFINE,FN=RSWFIL,ED=999999,TY=S,LR=82,NR=39000,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=SCRNDESC,ED=999999,TY=S,LR=80,NR=3000,VL=CDD01,OW=CCS20_^1DEFINE,FN=SCRNFILE,ED=999999,TY=R,K1=2,P1=1,LR=1800,NR=100,VL=SYSVOL;_^1OW=CCS20_]_^1DEFINE,FN=SREQDL,ED=999999,TY=S,LR=20,NR=650,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=SUMHIST,ED=999999,TY=R,K1=16,P1=1,LR=666,NR=78000,VL=SYSVOL;_^1OW=CCS20_]_^1DEFINE,FN=TAPEARC,ED=999999,TY=R,K1=16,P1=1,LR=46,NR=78000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=TRANFL,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=SYSVOL_^1DEFINE,FN=TRNBCK,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=CDD01_^1DEFINE,FN=TRNSFL,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=SYSVOL_^1DEFINE,FN=UPHSTCM,ED=999999,TY=S,LR=20,NR=650,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=UTIFIL,ED=999999,TY=R,K1=4,P1=1,LR=80,NR=150,VL=CDD01,OW=CCS20_^1EX_]_^1MOVDAT_]_^1 * THE 78000 ACCOUNT SYSTEM BUILD IS COMPLETE_^1 *_]_^1 * PROCEED WITH THE INSTALLATION TEST PROCEDURES._^1 *_]_^1MNUPRO_]_^__PSC05A CSY/ 000201 *_]_^1 * PROCEDURE TO BUILD 12000-9000 ACCOUNT SYSTEM IN PROCESS._^1INPUT=PRFSC005_^1QTIL_]_^__PSC05B CSY/ 000901DEFINE,FN=$$MOUNTS,ED=999999,TY=R,K1=2,P1=1,K2=8,P2=3,LR=42,OW=CCS20;_^1NR=50_]_^1DEFINE,FN=ACCAGE,ED=999999,TY=R,K1=16,P1=1,LR=82,NR=12000,OW=CCS20_^1DEFINE,FN=ACTFIL,ED=999999,TY=R,K1=18,P1=1,LR=500,NR=12000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=ACTIVE,ED=999999,TY=R,K1=4,P1=1,LR=10,NR=320,OW=CCS20_^1DEFINE,FN=ACTVERTB,ED=999999,TY=S,LR=320,NR=1,VL=CDD01,OW=CCS20_^1DEFINE,FN=ADDACT,ED=999999,TY=S,LR=18,NR=12000,VL=CDD01,OW=CCS20_^1DEFINE,FN=AGEWRK,ED=999999,TY=S,LR=82,NR=12000,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=AVMDESC,TY=S,LR=80,ED=999999,NR=100,VL=CDD01,OW=CCS20_^1DEFINE,'  3&yFN=COLSTATS,ED=999999,TY=R,K1=7,P1=1,LR=20,NR=4096,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=COSIGNER,ED=999999,TY=R,K1=16,P1=1,LR=362,NR=12000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=DAQUE,ED=999999,TY=R,K1=4,P1=1,LR=8,NR=64,VL=CDD01,OW=CCS20_^1DEFINE,FN=DECTBL,ED=999999,TY=S,LR=3000,NR=1,VL=CDD01,OW=CCS20_^1DEFINE,FN=DELQMST,ED=999999,TY=R,K1=16,P1=1,K2=6,P2=18,LR=2000,NR=12000;_^1VL=CDD01,OW=CCS20_^1DEFINE,FN=DLYASSN,ED=999999,TY=S,LR=40,NR=12000,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=DLYWRK,ED=999999,TY=S,LR=40,NR=1000,VL=CDD01,OW=CCS20_^1DEFINE,FN=DUMMY,ED=999999,TY=S,LR=80,NR=1,VL=CDD01,OW=CCS20_^1LOAD,FN=DUMMY,OW=CCS20_^1_]_^1/!_]_^1DEFINE,FN=INACCT,ED=999999,TY=S,LR=24,NR=12000,VL=CDD01,OW=CCS20_^1DEFINE,FN=LTRDESC,TY=S,LR=80,ED=999999,NR=2000,OW=CCS20_^1DEFINE,FN=LTRFIL,ED=999999,TY=R,K1=2,P1=1,LR=1512,NR=50,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=NEWS,ED=999999,TY=S,LR=80,NR=100,VL=CDD01,OW=CCS20_^1DEFINE,FN=PGEXTR,ED=999999,TY=S,LR=132,NR=12000,OW=CCS20_^1DEFINE,FN=RPTPGM,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=20,VL=CDD01,OW=CCS20_^1DEFINE,FN=RPTTBL,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=2000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=RSWFIL,ED=999999,TY=S,LR=82,NR=6000,VL=CDD01,OW=CCS20_^1DEFINE,FN=SCRNDESC,ED=999999,TY=S,LR=80,NR=3000,VL=CDD01,OW=CCS20_^1DEFINE,FN=SCRNFILE,ED=999999,TY=R,K1=2,P1=1,LR=1800,NR=100,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=SREQDL,ED=999999,TY=S,LR=20,NR=100,VL=CDD01,OW=CCS20_^1DEFINE,FN=SUMHIST,ED=999999,TY=R,K1=16,P1=1,LR=666,NR=12000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=TAPEARC,ED=999999,TY=R,K1=16,P1=1,LR=46,NR=12000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=TRANFL,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=SYSVOL_^1DEFINE,FN=TRNBCK,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=CDD01_^1DEFINE,FN=TRNSFL,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=SYSVOL_^1DEFINE,FN=UPHSTCM,ED=999999,TY=S,LR=20,NR=100,VL=CDD01,OW=CCS20_^1DEFINE,FN=UTIFIL,ED=999999,TY=R,K1=4,P1=1,LR=80,NR=150,VL=CDD01,OW=CCS20_^__PSC05C CSY/ 005901DEFINE,FN=$$MOUNTS,ED=999999,TY=R,K1=2,P1=1,K2=8,P2=3,LR=42,NR=50;_^1OW=LA,VL=CDD03_^1DEFINE,FN=LAACCAGE,ED=999999,TY=R,K1=16,P1=1,LR=82,NR=9000,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=LAACTFIL,ED=999999,TY=R,K1=18,P1=1,LR=500,NR=6000,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=LAACTIVE,ED=999999,TY=R,K1=4,P1=1,LR=10,NR=320,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=LAACTVTB,ED=999999,TY=S,LR=320,NR=1,VL=CDD03,OW=LA_^1DEFINE,FN=LAADDACT,ED=999999,TY=S,LR=18,NR=9000,VL=CDD03,OW=LA_^1DEFINE,FN=LAAGEWRK,ED=999999,TY=S,LR=82,NR=9000,VL=SYSVOL,OW=LA_^1DEFINE,FN=LAAVMDSC,ED=999999,TY=S,LR=80,NR=100,VL=CDD03,OW=LA_^1DEFINE,FN=LACLIENT,ED=999999,TY=R,K1=4,P1=1,K2=6,P2=5,LR=1300,NR=100;_^1VL=CDD03,OW=LA_^1DEFINE,FN=LACOLSTS,ED=999999,TY=R,K1=7,P1=1,LR=20,NR=4096,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=LACOSIGN,ED=999999,TY=R,K1=16,P1=1,LR=362,NR=9000,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=LADAQUE,ED=999999,TY=R,K1=4,P1=1,LR=8,NR=64,VL=CDD03,OW=LA_^1DEFINE,FN=LADECTBL,ED=999999,TY=S,LR=3000,NR=1,VL=CDD03,OW=LA_^1DEFINE,FN=LADLQKEY,ED=999999,TY=S,LR=16,NR=1000,VL=CDD03,OW=LA_^1DEFINE,FN=LADLQMST,ED=999999,TY=R,K1=16,P1=1,K2=6,P2=18,LR=2000,NR=9000;_^1VL=CDD03,OW=LA_^1DEFINE,FN=LADLYASN,ED=999999,TY=S,LR=40,NR=9000,VL=SYSVOL,OW=LA_^1DEFINE,FN=LADLYWRK,ED=999999,TY=S,LR=40,NR=750,VL=CDD03,OW=LA_^1DEFINE,FN=LADUMMY,ED=999999,TY=S,LR=80,NR=1,VL=CDD03,OW=LA_^1LOAD,FN=LADUMMY,OW=LA_^  3&y1_]_^1/!_]_^1DEFINE,FN=LAFILTMP,ED=999999,TY=S,LR=138,NR=1000,VL=CDD03,OW=LA_^1DEFINE,FN=LAFINTRN,ED=999999,TY=S,LR=138,NR=2000,VL=SYSVOL,OW=LA_^1DEFINE,FN=LAINACCT,ED=999999,TY=S,LR=24,NR=9000,VL=CDD03,OW=LA_^1DEFINE,FN=LALTRDSC,ED=999999,TY=S,LR=80,NR=2000,VL=CDD03,OW=LA_^1DEFINE,FN=LALTRFIL,ED=999999,TY=R,K1=2,P1=1,LR=1512,NR=50,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=LAPMTFIL,ED=999999,TY=S,LR=40,NR=5000,VL=SYSVOL,OW=LA_^1DEFINE,FN=LAPGEXTR,ED=999999,TY=S,LR=132,NR=9000,VL=SYSVOL,OW=LA_^1DEFINE,FN=LARPTDAT,ED=999999,TY=S,LR=160,NR=4000,VL=CDD03,OW=LA_^1DEFINE,FN=LARPTPGM,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=20,VL=CDD03,OW=LA_^1DEFINE,FN=LARPTTBL,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=2000,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=LARSWFIL,ED=999999,TY=S,LR=82,NR=4500,VL=CDD03,OW=LA_^1DEFINE,FN=LASCNDSC,ED=999999,TY=S,LR=80,NR=3000,VL=CDD03,OW=LA_^1DEFINE,FN=LASCNFIL,ED=999999,TY=R,K1=2,P1=1,LR=2000,NR=100,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=LASREQDL,ED=999999,TY=S,LR=20,NR=100,VL=CDD03,OW=LA_^1DEFINE,FN=LASUMHST,ED=999999,TY=R,K1=16,P1=1,LR=666,NR=9000,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=LATAPARC,ED=999999,TY=R,K1=16,P1=1,LR=46,NR=9000,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=LATRANFL,ED=999999,TY=S,LR=138,NR=4800,VL=CDD03,OW=LA_^1DEFINE,FN=LATRNBCK,ED=999999,TY=S,LR=138,NR=4800,VL=SYSVOL,OW=LA_^1DEFINE,FN=LATRNSFL,ED=999999,TY=S,LR=138,NR=4800,VL=SYSVOL,OW=LA_^1DEFINE,FN=LAUPHSCM,ED=999999,TY=S,LR=20,NR=100,VL=CDD03,OW=LA_^1DEFINE,FN=LAUTIFIL,ED=999999,TY=R,K1=4,P1=1,LR=80,NR=150,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=NULL,ED=999999,TY=S,LR=2,NR=1,VL=CDD03,OW=LA_^1EX_]_^1MOVDAT_]_^1LMOVDT_]_^1 * THE 12000/9000 ACCOUNT SYSTEM BUILD IS COMPLETE_^1 *_]_^1 * PROCEED WITH THE INSTALLATION TEST PROCEDURE._^1 *_]_^1MNUPRO_]_^__ PSC06A CSY/ 000201 *_]_^1 * PROCEDURE TO BUILD 24000-9000 ACCOUNT SYSTEM IN PROCESS._^1INPUT=PRFSC006_^1QTIL_]_^__PSC06B CSY/ 000901DEFINE,FN=$$MOUNTS,ED=999999,TY=R,K1=2,P1=1,K2=8,P2=3,LR=42,OW=CCS20;_^1NR=50_]_^1DEFINE,FN=ACCAGE,ED=999999,TY=R,K1=16,P1=1,LR=82,NR=24000,OW=CCS20_^1DEFINE,FN=ACTFIL,ED=999999,TY=R,K1=18,P1=1,LR=500,NR=24000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=ACTIVE,ED=999999,TY=R,K1=4,P1=1,LR=10,NR=320,OW=CCS20_^1DEFINE,FN=ACTVERTB,ED=999999,TY=S,LR=320,NR=1,VL=CDD01,OW=CCS20_^1DEFINE,FN=ADDACT,ED=999999,TY=S,LR=18,NR=24000,VL=CDD01,OW=CCS20_^1DEFINE,FN=AGEWRK,ED=999999,TY=S,LR=82,NR=12000,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=AVMDESC,TY=S,LR=80,ED=999999,NR=100,VL=CDD01,OW=CCS20_^1DEFINE,FN=COLSTATS,ED=999999,TY=R,K1=7,P1=1,LR=20,NR=4096,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=COSIGNER,ED=999999,TY=R,K1=16,P1=1,LR=362,NR=24000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=DAQUE,ED=999999,TY=R,K1=4,P1=1,LR=8,NR=64,VL=CDD01,OW=CCS20_^1DEFINE,FN=DECTBL,ED=999999,TY=S,LR=3000,NR=1,VL=CDD01,OW=CCS20_^1DEFINE,FN=DELQMST,ED=999999,TY=R,K1=16,P1=1,K2=6,P2=18,LR=2000,NR=24000;_^1VL=CDD02,O  3&yW=CCS20_^1DEFINE,FN=DLYASSN,ED=999999,TY=S,LR=40,NR=24000,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=DLYWRK,ED=999999,TY=S,LR=40,NR=2000,VL=CDD01,OW=CCS20_^1DEFINE,FN=DUMMY,ED=999999,TY=S,LR=80,NR=1,VL=CDD01,OW=CCS20_^1LOAD,FN=DUMMY,OW=CCS20_^1_]_^1/!_]_^1DEFINE,FN=INACCT,ED=999999,TY=S,LR=24,NR=24000,VL=CDD01,OW=CCS20_^1DEFINE,FN=LTRDESC,TY=S,LR=80,ED=999999,NR=2000,OW=CCS20_^1DEFINE,FN=LTRFIL,ED=999999,TY=R,K1=2,P1=1,LR=1512,NR=50,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=NEWS,ED=999999,TY=S,LR=80,NR=100,VL=CDD01,OW=CCS20_^1DEFINE,FN=PGEXTR,ED=999999,TY=S,LR=132,NR=24000,OW=CCS20_^1DEFINE,FN=RPTPGM,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=20,VL=CDD01,OW=CCS20_^1DEFINE,FN=RPTTBL,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=2000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=RSWFIL,ED=999999,TY=S,LR=82,NR=12000,VL=CDD01,OW=CCS20_^1DEFINE,FN=SCRNDESC,ED=999999,TY=S,LR=80,NR=3000,VL=CDD01,OW=CCS20_^1DEFINE,FN=SCRNFILE,ED=999999,TY=R,K1=2,P1=1,LR=1800,NR=100,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=SREQDL,ED=999999,TY=S,LR=20,NR=200,VL=CDD01,OW=CCS20_^1DEFINE,FN=SUMHIST,ED=999999,TY=R,K1=16,P1=1,LR=666,NR=24000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=TAPEARC,ED=999999,TY=R,K1=16,P1=1,LR=46,NR=24000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=TRANFL,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=SYSVOL_^1DEFINE,FN=TRNBCK,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=CDD01_^1DEFINE,FN=TRNSFL,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=SYSVOL_^1DEFINE,FN=UPHSTCM,ED=999999,TY=S,LR=20,NR=200,VL=CDD01,OW=CCS20_^1DEFINE,FN=UTIFIL,ED=999999,TY=R,K1=4,P1=1,LR=80,NR=150,VL=CDD01,OW=CCS20_^__ PSC06C CSY/ 005901DEFINE,FN=$$MOUNTS,ED=999999,TY=R,K1=2,P1=1,K2=8,P2=3,LR=42,NR=50;_^1OW=LA,VL=CDD03_^1DEFINE,FN=LAACCAGE,ED=999999,TY=R,K1=16,P1=1,LR=82,NR=9000,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=LAACTFIL,ED=999999,TY=R,K1=18,P1=1,LR=500,NR=6000,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=LAACTIVE,ED=999999,TY=R,K1=4,P1=1,LR=10,NR=320,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=LAACTVTB,ED=999999,TY=S,LR=320,NR=1,VL=CDD03,OW=LA_^1DEFINE,FN=LAADDACT,ED=999999,TY=S,LR=18,NR=9000,VL=CDD03,OW=LA_^1DEFINE,FN=LAAGEWRK,ED=999999,TY=S,LR=82,NR=9000,VL=SYSVOL,OW=LA_^1DEFINE,FN=LAAVMDSC,ED=999999,TY=S,LR=80,NR=100,VL=CDD03,OW=LA_^1DEFINE,FN=LACLIENT,ED=999999,TY=R,K1=4,P1=1,K2=6,P2=5,LR=1300,NR=100;_^1VL=CDD03,OW=LA_^1DEFINE,FN=LACOLSTS,ED=999999,TY=R,K1=7,P1=1,LR=20,NR=4096,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=LACOSIGN,ED=999999,TY=R,K1=16,P1=1,LR=362,NR=9000,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=LADAQUE,ED=999999,TY=R,K1=4,P1=1,LR=8,NR=64,VL=CDD03,OW=LA_^1DEFINE,FN=LADECTBL,ED=999999,TY=S,LR=3000,NR=1,VL=CDD03,OW=LA_^1DEFINE,FN=LADLQKEY,ED=999999,TY=S,LR=16,NR=1000,VL=CDD03,OW=LA_^1DEFINE,FN=LADLQMST,ED=999999,TY=R,K1=16,P1=1,K2=6,P2=18,LR=2000,NR=9000;_^1VL=CDD03,OW=LA_^1DEFINE,FN=LADLYASN,ED=999999,TY=S,LR=40,NR=9000,VL=SYSVOL,OW=LA_^1DEFINE,FN=LADLYWRK,ED=999999,TY=S,LR=40,NR=750,VL=CDD03,OW=LA_^1DEFINE,FN=LADUMMY,ED=999999,TY=S,LR=80,NR=1,VL=CDD03,OW=LA_^1LOAD,FN=LADUMMY,OW=LA_^1_]_^1/!_]_^1DEFINE,FN=LAFILTMP,ED=999999,TY=S,LR=138,NR=1000,VL=CDD03,OW=LA_^1DEFINE,FN=LAFINTRN,ED=999999,TY=S,LR=138,NR=2000,VL=SYSVOL,OW=LA_^1DEFINE,FN=LAINACCT,ED=999999,TY=S,LR=24,NR=9000,VL=CDD03,OW=LA_^1DEFINE,FN=LALTRDSC,ED=999999,TY=S,LR=80,NR=2000,VL=CDD03,OW=LA_^1DEFINE,FN=LALTRFIL,ED=999999,TY=R,K1=2,P1=1,LR=1512,NR=50,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=LAPMTFIL,ED=999999P  3&z,TY=S,LR=40,NR=5000,VL=SYSVOL,OW=LA_^1DEFINE,FN=LAPGEXTR,ED=999999,TY=S,LR=132,NR=9000,VL=SYSVOL,OW=LA_^1DEFINE,FN=LARPTDAT,ED=999999,TY=S,LR=160,NR=4000,VL=CDD03,OW=LA_^1DEFINE,FN=LARPTPGM,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=20,VL=CDD03,OW=LA_^1DEFINE,FN=LARPTTBL,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=2000,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=LARSWFIL,ED=999999,TY=S,LR=82,NR=4500,VL=CDD03,OW=LA_^1DEFINE,FN=LASCNDSC,ED=999999,TY=S,LR=80,NR=3000,VL=CDD03,OW=LA_^1DEFINE,FN=LASCNFIL,ED=999999,TY=R,K1=2,P1=1,LR=2000,NR=100,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=LASREQDL,ED=999999,TY=S,LR=20,NR=200,VL=CDD03,OW=LA_^1DEFINE,FN=LASUMHST,ED=999999,TY=R,K1=16,P1=1,LR=666,NR=9000,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=LATAPARC,ED=999999,TY=R,K1=16,P1=1,LR=46,NR=9000,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=LATRANFL,ED=999999,TY=S,LR=138,NR=4800,VL=CDD03,OW=LA_^1DEFINE,FN=LATRNBCK,ED=999999,TY=S,LR=138,NR=4800,VL=SYSVOL,OW=LA_^1DEFINE,FN=LATRNSFL,ED=999999,TY=S,LR=138,NR=4800,VL=SYSVOL,OW=LA_^1DEFINE,FN=LAUPHSCM,ED=999999,TY=S,LR=20,NR=100,VL=CDD03,OW=LA_^1DEFINE,FN=LAUTIFIL,ED=999999,TY=R,K1=4,P1=1,LR=80,NR=150,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=NULL,ED=999999,TY=S,LR=2,NR=1,VL=CDD03,OW=LA_^1EX_]_^1MOVDAT_]_^1LMOVDT_]_^1 * THE 24000/9000 ACCOUNT SYSTEM BUILD IS COMPLETE_^1 *_]_^1 * PROCEED WITH THE INSTALLATION TEST_^1 *_]_^1MNUPRO_]_^__ PSC07A CSY/ 000201 *_]_^1 * PROCEDURE TO BUILD 36000-13500 ACCOUNT SYSTEM IN PROCESS._^1INPUT=PRFSC007_^1QTIL_]_^__ PSC07B CSY/ 000901DEFINE,FN=$$MOUNTS,ED=999999,TY=R,K1=2,P1=1,K2=8,P2=3,LR=42,OW=CCS20;_^1NR=50_]_^1DEFINE,FN=ACCAGE,ED=999999,TY=R,K1=16,P1=1,LR=82,NR=36000,OW=CCS20_^1DEFINE,FN=ACTFIL,ED=999999,TY=R,K1=18,P1=1,LR=500,NR=36000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=ACTIVE,ED=999999,TY=R,K1=4,P1=1,LR=10,NR=320,OW=CCS20_^1DEFINE,FN=ACTVERTB,ED=999999,TY=S,LR=320,NR=1,VL=CDD01,OW=CCS20_^1DEFINE,FN=ADDACT,ED=999999,TY=S,LR=18,NR=36000,VL=CDD01,OW=CCS20_^1DEFINE,FN=AGEWRK,ED=999999,TY=S,LR=82,NR=36000,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=AVMDESC,TY=S,LR=80,ED=999999,NR=100,VL=CDD01,OW=CCS20_^1DEFINE,FN=COLSTATS,ED=999999,TY=R,K1=7,P1=1,LR=20,NR=4096,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=COSIGNER,ED=999999,TY=R,K1=16,P1=1,LR=362,NR=36000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=DAQUE,ED=999999,TY=R,K1=4,P1=1,LR=8,NR=64,VL=CDD01,OW=CCS20_^1DEFINE,FN=DECTBL,ED=999999,TY=S,LR=3000,NR=1,VL=CDD01,OW=CCS20_^1DEFINE,FN=DELQMST,ED=999999,TY=R,K1=16,P1=1,K2=6,P2=18,LR=2000,NR=36000;_^1VL=CDD02,OW=CCS20_^1DEFINE,FN=DLYASSN,ED=999999,TY=S,LR=40,NR=36000,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=DLYWRK,ED=999999,TY=S,LR=40,NR=3000,VL=CDD01,OW=CCS20_^1DEFINE,FN=DUMMY,ED=999999,TY=S,LR=80,NR=1,VL=CDD01,OW=CCS20_^1LOAD,FN=DUMMY,OW=CCS20_^1_]_^1/!_]_^1DEFINE,FN=INACCT,ED=999999,TY=S,LR=24,NR=36000,VL=CDD01,OW=CCS20_^1DEFINE,FN=LTRDESC,TY=S,LR=80,ED=999999,NR=2000,OW=CCS20_^1DEFINE,FN=LTRFI&  3&zL,ED=999999,TY=R,K1=2,P1=1,LR=1512,NR=50,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=NEWS,ED=999999,TY=S,LR=80,NR=100,VL=CDD01,OW=CCS20_^1DEFINE,FN=PGEXTR,ED=999999,TY=S,LR=132,NR=36000,OW=CCS20_^1DEFINE,FN=RPTPGM,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=20,VL=CDD01,OW=CCS20_^1DEFINE,FN=RPTTBL,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=2000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=RSWFIL,ED=999999,TY=S,LR=82,NR=18000,VL=CDD01,OW=CCS20_^1DEFINE,FN=SCRNDESC,ED=999999,TY=S,LR=80,NR=3000,VL=CDD01,OW=CCS20_^1DEFINE,FN=SCRNFILE,ED=999999,TY=R,K1=2,P1=1,LR=1800,NR=100,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=SREQDL,ED=999999,TY=S,LR=20,NR=300,VL=CDD01,OW=CCS20_^1DEFINE,FN=SUMHIST,ED=999999,TY=R,K1=16,P1=1,LR=666,NR=36000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=TAPEARC,ED=999999,TY=R,K1=16,P1=1,LR=46,NR=36000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=TRANFL,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=CDD01_^1DEFINE,FN=TRNBCK,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=SYSVOL_^1DEFINE,FN=TRNSFL,ED=999999,TY=S,LR=138,NR=4800,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=UPHSTCM,ED=999999,TY=S,LR=20,NR=300,VL=CDD01,OW=CCS20_^1DEFINE,FN=UTIFIL,ED=999999,TY=R,K1=4,P1=1,LR=80,NR=150,VL=CDD01,OW=CCS20_^__ PSC07C CSY/ 005901DEFINE,FN=$$MOUNTS,ED=999999,TY=R,K1=2,P1=1,K2=8,P2=3,LR=42,NR=50;_^1OW=LA,VL=CDD03_^1DEFINE,FN=LAACCAGE,ED=999999,TY=R,K1=16,P1=1,LR=82,NR=13500,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=LAACTFIL,ED=999999,TY=R,K1=18,P1=1,LR=500,NR=6000,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=LAACTIVE,ED=999999,TY=R,K1=4,P1=1,LR=10,NR=320,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=LAACTVTB,ED=999999,TY=S,LR=320,NR=1,VL=CDD03,OW=LA_^1DEFINE,FN=LAADDACT,ED=999999,TY=S,LR=18,NR=13500,VL=CDD03,OW=LA_^1DEFINE,FN=LAAGEWRK,ED=999999,TY=S,LR=82,NR=13500,VL=SYSVOL,OW=LA_^1DEFINE,FN=LAAVMDSC,ED=999999,TY=S,LR=80,NR=100,VL=CDD03,OW=LA_^1DEFINE,FN=LACLIENT,ED=999999,TY=R,K1=4,P1=1,K2=6,P2=5,LR=1300,NR=100;_^1VL=CDD03,OW=LA_^1DEFINE,FN=LACOLSTS,ED=999999,TY=R,K1=7,P1=1,LR=20,NR=4096,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=LACOSIGN,ED=999999,TY=R,K1=16,P1=1,LR=362,NR=13500,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=LADAQUE,ED=999999,TY=R,K1=4,P1=1,LR=8,NR=64,VL=CDD03,OW=LA_^1DEFINE,FN=LADECTBL,ED=999999,TY=S,LR=3000,NR=1,VL=CDD03,OW=LA_^1DEFINE,FN=LADLQKEY,ED=999999,TY=S,LR=16,NR=1000,VL=CDD03,OW=LA_^1DEFINE,FN=LADLQMST,ED=999999,TY=R,K1=16,P1=1,K2=6,P2=18,LR=2000;_^1NR=13500,VL=CDD03,OW=LA_^1DEFINE,FN=LADLYASN,ED=999999,TY=S,LR=40,NR=13500,VL=SYSVOL,OW=LA_^1DEFINE,FN=LADLYWRK,ED=999999,TY=S,LR=40,NR=1125,VL=CDD03,OW=LA_^1DEFINE,FN=LADUMMY,ED=999999,TY=S,LR=80,NR=1,VL=CDD03,OW=LA_^1LOAD,FN=LADUMMY,OW=LA_^1_]_^1/!_]_^1DEFINE,FN=LAFILTMP,ED=999999,TY=S,LR=138,NR=1000,VL=CDD03,OW=LA_^1DEFINE,FN=LAFINTRN,ED=999999,TY=S,LR=138,NR=2000,VL=SYSVOL,OW=LA_^1DEFINE,FN=LAINACCT,ED=999999,TY=S,LR=24,NR=13500,VL=CDD03,OW=LA_^1DEFINE,FN=LALTRDSC,ED=999999,TY=S,LR=80,NR=2000,VL=CDD03,OW=LA_^1DEFINE,FN=LALTRFIL,ED=999999,TY=R,K1=2,P1=1,LR=1512,NR=50,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=LAPMTFIL,ED=999999,TY=S,LR=40,NR=5000,VL=SYSVOL,OW=LA_^1DEFINE,FN=LAPGEXTR,ED=999999,TY=S,LR=132,NR=13500,VL=SYSVOL,OW=LA_^1DEFINE,FN=LARPTDAT,ED=999999,TY=S,LR=160,NR=4000,VL=CDD03,OW=LA_^1DEFINE,FN=LARPTPGM,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=20,VL=CDD03,OW=LA_^1DEFINE,FN=LARPTTBL,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=2000,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=LARSWFIL,ED=999999,TY=S,LR=82,NR=6750,VL=U  3&z)CDD03,OW=LA_^1DEFINE,FN=LASCNDSC,ED=999999,TY=S,LR=80,NR=3000,VL=CDD03,OW=LA_^1DEFINE,FN=LASCNFIL,ED=999999,TY=R,K1=2,P1=1,LR=2000,NR=100,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=LASREQDL,ED=999999,TY=S,LR=20,NR=200,VL=CDD03,OW=LA_^1DEFINE,FN=LASUMHST,ED=999999,TY=R,K1=16,P1=1,LR=666,NR=13500,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=LATAPARC,ED=999999,TY=R,K1=16,P1=1,LR=46,NR=13500,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=LATRANFL,ED=999999,TY=S,LR=138,NR=4800,VL=CDD03,OW=LA_^1DEFINE,FN=LATRNBCK,ED=999999,TY=S,LR=138,NR=4800,VL=SYSVOL,OW=LA_^1DEFINE,FN=LATRNSFL,ED=999999,TY=S,LR=138,NR=4800,VL=SYSVOL,OW=LA_^1DEFINE,FN=LAUPHSCM,ED=999999,TY=S,LR=20,NR=200,VL=CDD03,OW=LA_^1DEFINE,FN=LAUTIFIL,ED=999999,TY=R,K1=4,P1=1,LR=80,NR=150,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=NULL,ED=999999,TY=S,LR=2,NR=1,VL=CDD03,OW=LA_^1EX_]_^1MOVDAT_]_^1LMOVDT_]_^1 * THE 36000/13500 ACCOUNT SYSTEM BUILD IS COMPLETE_^1 *_]_^1 * PROCEED WITH THE INSTALLATION TEST PROCEDURES._^1 *_]_^1MNUPRO_]_^__PSC08A CSY/ 000201 *_]_^1 * PROCEDURE TO BUILD 60000-18000 ACCOUNT SYSTEM IN PROCESS._^1INPUT=PRFSC008_^1QTIL_]_^__ PSC08B CSY/ 000901DEFINE,FN=$$MOUNTS,ED=999999,TY=R,K1=2,P1=1,K2=8,P2=3,LR=42,OW=CCS20;_^1NR=50_]_^1DEFINE,FN=ACTFIL,ED=999999,TY=R,K1=18,P1=1,LR=500,NR=60000,OW=CCS20_^1DEFINE,FN=ACCAGE,ED=999999,TY=R,K1=16,P1=1,LR=82,NR=60000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=ACTIVE,ED=999999,TY=R,K1=4,P1=1,LR=10,NR=320,OW=CCS20_^1DEFINE,FN=ACTVERTB,ED=999999,TY=S,LR=320,NR=1,VL=CDD01,OW=CCS20_^1DEFINE,FN=ADDACT,ED=999999,TY=S,LR=18,NR=60000,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=AGEWRK,ED=999999,TY=S,LR=82,NR=60000,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=AVMDESC,TY=S,LR=80,ED=999999,NR=100,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=COLSTATS,ED=999999,TY=R,K1=7,P1=1,LR=20,NR=4096,VL=SYSVOL;_^1OW=CCS20_]_^1DEFINE,FN=COSIGNER,ED=999999,TY=R,K1=16,P1=1,LR=362,NR=60000,VL=SYSVOL;_^1OW=CCS20_]_^1DEFINE,FN=DAQUE,ED=999999,TY=R,K1=4,P1=1,LR=8,NR=64,VL=CDD01,OW=CCS20_^1DEFINE,FN=DECTBL,ED=999999,TY=S,LR=3000,NR=1,VL=CDD01,OW=CCS20_^1DEFINE,FN=DELQMST,ED=999999,TY=R,K1=16,P1=1,K2=6,P2=18,LR=2000,NR=60000;_^1VL=CDD01,OW=CCS20_^1DEFINE,FN=DLYASSN,ED=999999,TY=S,LR=40,NR=60000,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=DLYWRK,ED=999999,TY=S,LR=40,NR=5000,VL=CDD01,OW=CCS20_^1DEFINE,FN=DUMMY,ED=999999,TY=S,LR=80,NR=1,VL=CDD01,OW=CCS20_^1LOAD,FN=DUMMY,OW=CCS20_^1_]_^1/!_]_^1DEFINE,FN=INACCT,ED=999999,TY=S,LR=24,NR=60000,VL=CDD01,OW=CCS20_^1DEFINE,FN=LTRDESC,TY=S,LR=80,ED=999999,NR=2000,OW=CCS20_^1DEFINE,FN=LTRFIL,ED=999999,TY=R,K1=2,P1=1,LR=1512,NR=50,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=NEWS,ED=999999,TY=S,LR=80,NR=100,VL=CDD01,OW=CCS20_^1DEFINE,FN=PGEXTR,ED=999999,TY=S,LR=132,NR=60000,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=RPTPGM,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=20,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=RPTTBL,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=2000,VL=SYSVOL;_^1OW=CCS20_]_^1DEFINE,FN=RSWFIL,ED=99999*  3&z=9,TY=S,LR=82,NR=30000,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=SCRNDESC,ED=999999,TY=S,LR=80,NR=3000,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=SCRNFILE,ED=999999,TY=R,K1=2,P1=1,LR=1800,NR=100,VL=SYSVOL;_^1OW=CCS20_]_^1DEFINE,FN=SREQDL,ED=999999,TY=S,LR=20,NR=500,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=SUMHIST,ED=999999,TY=R,K1=16,P1=1,LR=666,NR=60000,VL=SYSVOL;_^1OW=CCS20_]_^1DEFINE,FN=TAPEARC,ED=999999,TY=R,K1=16,P1=1,LR=46,NR=60000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=TRANFL,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=SYSVOL_^1DEFINE,FN=TRNBCK,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=CDD01_^1DEFINE,FN=TRNSFL,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=SYSVOL_^1DEFINE,FN=UPHSTCM,ED=999999,TY=S,LR=20,NR=500,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=UTIFIL,ED=999999,TY=R,K1=4,P1=1,LR=80,NR=150,VL=CDD01,OW=CCS20_^__ PSC08C CSY/ 006001DEFINE,FN=$$MOUNTS,ED=999999,TY=R,K1=2,P1=1,K2=8,P2=3,LR=42,NR=50;_^1OW=LA,VL=CDD01_^1DEFINE,FN=LAACCAGE,ED=999999,TY=R,K1=16,P1=1,LR=82,NR=18000,VL=CDD01;_^1OW=LA_]_^1DEFINE,FN=LAACTFIL,ED=999999,TY=R,K1=18,P1=1,LR=500,NR=6000,VL=CDD01;_^1OW=LA_]_^1DEFINE,FN=LAACTIVE,ED=999999,TY=R,K1=4,P1=1,LR=10,NR=320,VL=CDD01;_^1OW=LA_]_^1DEFINE,FN=LAACTVTB,ED=999999,TY=S,LR=320,NR=1,VL=CDD01,OW=LA_^1DEFINE,FN=LAADDACT,ED=999999,TY=S,LR=18,NR=18000,VL=CDD01,OW=LA_^1DEFINE,FN=LAAGEWRK,ED=999999,TY=S,LR=82,NR=18000,VL=SYSVOL,OW=LA_^1DEFINE,FN=LAAVMDSC,ED=999999,TY=S,LR=80,NR=100,VL=CDD01,OW=LA_^1DEFINE,FN=LACLIENT,ED=999999,TY=R,K1=4,P1=1,K2=6,P2=5,LR=1300,NR=100;_^1VL=CDD01,OW=LA_^1DEFINE,FN=LACOLSTS,ED=999999,TY=R,K1=7,P1=1,LR=20,NR=4096,VL=CDD01;_^1OW=LA_]_^1DEFINE,FN=LACOSIGN,ED=999999,TY=R,K1=16,P1=1,LR=362,NR=18000,VL=CDD01;_^1OW=LA_]_^1DEFINE,FN=LADAQUE,ED=999999,TY=R,K1=4,P1=1,LR=8,NR=64,VL=CDD01,OW=LA_^1DEFINE,FN=LADECTBL,ED=999999,TY=S,LR=3000,NR=1,VL=CDD01,OW=LA_^1DEFINE,FN=LADLQKEY,ED=999999,TY=S,LR=16,NR=1000,VL=CDD01,OW=LA_^1DEFINE,FN=LADLQMST,ED=999999,TY=R,K1=16,P1=1,K2=6,P2=18,LR=2000;_^1NR=18000,VL=CDD01,OW=LA_^1DEFINE,FN=LADLYASN,ED=999999,TY=S,LR=40,NR=18000,VL=SYSVOL,OW=LA_^1DEFINE,FN=LADLYWRK,ED=999999,TY=S,LR=40,NR=1500,VL=CDD01,OW=LA_^1DEFINE,FN=LADUMMY,ED=999999,TY=S,LR=80,NR=1,VL=CDD01,OW=LA_^1LOAD,FN=LADUMMY,OW=LA_^1_]_^1/!_]_^1DEFINE,FN=LAFILTMP,ED=999999,TY=S,LR=138,NR=1000,VL=CDD01,OW=LA_^1DEFINE,FN=LAFINTRN,ED=999999,TY=S,LR=138,NR=2000,VL=SYSVOL,OW=LA_^1DEFINE,FN=LAINACCT,ED=999999,TY=S,LR=24,NR=18000,VL=CDD01,OW=LA_^1DEFINE,FN=LALTRDSC,ED=999999,TY=S,LR=80,NR=2000,VL=CDD01,OW=LA_^1DEFINE,FN=LALTRFIL,ED=999999,TY=R,K1=2,P1=1,LR=1512,NR=50,VL=CDD01;_^1OW=LA_]_^1DEFINE,FN=LAPMTFIL,ED=999999,TY=S,LR=40,NR=5000,VL=SYSVOL,OW=LA_^1DEFINE,FN=LAPGEXTR,ED=999999,TY=S,LR=132,NR=18000,VL=SYSVOL,OW=LA_^1DEFINE,FN=LARPTDAT,ED=999999,TY=S,LR=160,NR=4000,VL=SYSVOL,OW=LA_^1DEFINE,FN=LARPTPGM,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=20,VL=SYSVOL,OW=LA_^1DEFINE,FN=LARPTTBL,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=2000,VL=SYSVOL;_^1OW=LA_]_^1DEFINE,FN=LARSWFIL,ED=999999,TY=S,LR=82,NR=9000,VL=SYSVOL,OW=LA_^1DEFINE,FN=LASCNDSC,ED=999999,TY=S,LR=80,NR=3000,VL=SYSVOL,OW=LA_^1DEFINE,FN=LASCNFIL,ED=999999,TY=R,K1=2,P1=1,LR=2000,NR=100,VL=SYSVOL;_^1OW=LA_]_^1DEFINE,FN=LASREQDL,ED=999999,TY=S,LR=20,NR=150,VL=SYSVOL,OW=LA_^1DEFINE,FN=LASUMHST,ED=999999,TY=R,K1=16,P1=1,LR=666,NR=18000,VL=SYSVOL;_^1OW=LA_]_^1DEFINE,FN=LATAPARC,ED=999999,TY=R,K1=16,P1=1,LR=46,NR=18000,VL=SYSVOLzb  3&zQ;_^1OW=LA_]_^1DEFINE,FN=LATRANFL,ED=999999,TY=S,LR=138,NR=4800,VL=CDD01,OW=LA_^1DEFINE,FN=LATRNBCK,ED=999999,TY=S,LR=138,NR=4800,VL=SYSVOL,OW=LA_^1DEFINE,FN=LATRNSFL,ED=999999,TY=S,LR=138,NR=4800,VL=SYSVOL,OW=LA_^1DEFINE,FN=LAUPHSCM,ED=999999,TY=S,LR=20,NR=150,VL=CDD01,OW=LA_^1DEFINE,FN=LAUTIFIL,ED=999999,TY=R,K1=4,P1=1,LR=80,NR=150,VL=CDD01;_^1OW=LA_]_^1DEFINE,FN=NULL,ED=999999,TY=S,LR=2,NR=1,VL=CDD01,OW=LA_^1EX_]_^1MOVDAT_]_^1LMOVDT_]_^1 * THE 60000/18000 ACCOUNT SYSTEM BUILD IS COMPLETE_^1 *_]_^1 * PROCEED WITH THE INSTALLATION TEST_^1 *_]_^1MNUPRO_]_^__ PSC09A CSY/ 000201 **** OPERATOR - A JOB WILL BE BATCHED IN THIS PROCEDURE TO PURGE THE_^1 *_/THE PROGRAM LIBRARY. THE BATCH HOST MUST BE ACTIVE_^1 *_/BEFORE PROCEDDING. TO ACTIVATE THE BATCH HOST,_^1 *_/PERFORM_^1 *_1MI, *BATCH,F_^1 *_]_^1 * RESPOND: 'N' CARRIAGE RETURN - IF BATCH HOST IS NOT ACTIVE_^1 *_]_^1 *_+CARRAIGE RETURN ONLY - TO CONTINUE_^1CCSPAS_]_^1 * THE DATA FILES WILL BE CLEARED_^1CLRFIL_]_^1 * THE FILES WILL BE INITIALIZED FOR START OF PARAMETERIZATION_^1INPUT=PRFSC009_^1QTIL_]_^__PSC09B CSY/ 000201LOAD,FN=UTIFIL,OW=CCS20_^1HDR1_]_^1HDR2_]_^1HDR3_]_^1RSW1_]_^1ACTC_]_^1RESC_]_^1SALC_]_^1DALT_]_^1LTRF_]_^1LTR1_]_^1LTR2_]_^1SMTH_]_^1TMTH_]_^1UPDY_]_^1OLPM_]_^1RPTG RPT001_^1/!_]_^1LOAD,FN=ACCAGE,OW=CCS20_^1_]_^1/!_]_^1EX_]_^1 ***** OPERATOR - WHEN THIS SELECTION IS COMPLETE, USE THE UTILITY_^1 *_0COMMAND 'BATS' TO CHECK THE PROGRESS OF THE JOB_^1 *_0NUMBER LISTED BELOW. WHEN THE STATUS IS NO LONGER_^1 *_0'BEING SENT', USE THE UTILITY COMMAND 'PRINT' TO_^1 *_0PRINT THE JOB. VERIFY THE JOB COMPLETED WITHOUT_^1 *_0ERROR._^1 *_]_^1INPUT=PRFSC009_^1UTIL_]_^1BATCH,FN=DISCQT,TY=N_^1DELETE,FN=DMDLQMST_^1DELETE,FN=DMCOSIGN_^1DELETE,FN=DMRPTTBL_^1DELETE,FN=DMACTVTB_^1DELETE,FN=DMUTIFIL_^1DELETE,FN=DMSCNDSC_^1DELETE,FN=DMSCNFIL_^1DELETE,FN=DMDECTBL_^1DELETE,FN=DMLTRFIL_^1DELETE,FN=DMLTRDSC_^1DELETE,FN=DMNEWS_^1DELETE,FN=DMACCAGE_^1DELETE,FN=DMSUMHIS_^1DELETE,FN=DMTAPARC_^1DELETE,FN=DISCQT_^1DELETE,FN=PRFSC001_^1DELETE,FN=PRFSC002_^1DELETE,FN=PRFSC003_^1DELETE,FN=PRFSC004_^1DELETE,FN=PRFSC005_^1DELETE,FN=PRFSC006_^1DELETE,FN=PRFSC007_^1DELETE,FN=PRFSC008_^1DELETE,FN=PRFSC010_^1EX_]_^1 * CCS SYSTEM FILES ARE READY FOR PARAMETERIZATION_^1MNUPRO_]_^__ PSC10A CSY/ 00020  3&ze1 **** OPERATOR - A JOB WILL BE BATCHED IN THIS PROCEDURE TO PURGE THE_^1 *_/THE PROGRAM LIBRARY. THE BATCH HOST MUST BE ACTIVE_^1 *_/BEFORE PROCEEDING. TO ACTIVATE THE BATCH HOST,_^1 *_/PERFORM_^1 *_1MI, *BATCH,F_^1 *_]_^1 * RESPOND: 'N' CARRIAGE RETURN - IF BATCH HOST IS NOT ACTIVE_^1 *_]_^1 *_+CARRAIGE RETURN ONLY - TO CONTINUE_^1CCSPAS_]_^1 * THE DATA FILES WILL BE CLEARED_^1CLRFIL_]_^1LCLRFL_]_^1 * THE FILES WILL BE INITIALIZED FOR START OF PARAMETERIZATION_^1INPUT=PRFSC010_^1QTIL_]_^__ PSC10B CSY/ 000201LOAD,FN=UTIFIL,OW=CCS20_^1HDR1_]_^1HDR2_]_^1HDR3_]_^1RSW1_]_^1ACTC_]_^1RESC_]_^1SALC_]_^1DALT_]_^1LTRF_]_^1LTR1_]_^1LTR2_]_^1SMTH_]_^1TMTH_]_^1UPDY_]_^1OLPM_]_^1RPTG RPT001_^1/!_]_^1LOAD,FN=ACCAGE,OW=CCS20_^1_]_^1/!_]_^1LOAD,FN=LAUTIFIL,OW=LA_^1HDR1_]_^1HDR2_]_^1HDR3_]_^1RSW1_]_^1ACTC_]_^1RESC_]_^1SALC_]_^1DALT_]_^1LTRF_]_^1LTR1_]_^1LTR2_]_^1SMTH_]_^1TMTH_]_^1UPDY_]_^1OLPM_]_^1RPTG LRP001_^1LACL_]_^1LAC1_]_^1LAC2_]_^1LAC3_]_^1LAC4_]_^1LAC5_]_^1/!_]_^1LOAD,FN=LAACCAGE,OW=LA_^1_]_^1/!_]_^1EX_]_^1 ***** OPERATOR - WHEN THIS SELECTION IS COMPLETE, USE THE UTILITY_^1 *_0COMMAND 'BATS' TO CHECK THE PROGRESS OF THE JOB_^1 *_0NUMBER LISTED BELOW. WHEN THE STATUS IS NO LONGER_^1 *_0'BEING SENT', USE THE UTILITY COMMAND 'PRINT' TO_^1 *_0PRINT THE JOB. VERIFY THE JOB COMPLETED WITHOUT_^1 *_0ERROR._^1 *_]_^1INPUT=PRFSC010_^1UTIL_]_^1BATCH,FN=DISCQT,TY=N_^1DELETE,FN=DMDLQMST_^1DELETE,FN=DMCOSIGN_^1DELETE,FN=DMRPTTBL_^1DELETE,FN=DMACTVTB_^1DELETE,FN=DMUTIFIL_^1DELETE,FN=DMSCNDSC_^1DELETE,FN=DMSCNFIL_^1DELETE,FN=DMDECTBL_^1DELETE,FN=DMLTRFIL_^1DELETE,FN=DMLTRDSC_^1DELETE,FN=DMNEWS_^1DELETE,FN=DMACCAGE_^1DELETE,FN=DMSUMHIS_^1DELETE,FN=DMTAPARC_^1DELETE,FN=DISCQT_^1DELETE,FN=PRFSC001_^1DELETE,FN=PRFSC002_^1DELETE,FN=PRFSC003_^1DELETE,FN=PRFSC004_^1DELETE,FN=PRFSC005_^1DELETE,FN=PRFSC006_^1DELETE,FN=PRFSC007_^1DELETE,FN=PRFSC008_^1DELETE,FN=PRFSC009_^1DELETE,FN=DLRPTTBL_^1DELETE,FN=DLACTVTB_^1DELETE,FN=DLUTIFIL_^1DELETE,FN=DLSCNDSC_^1DELETE,FN=DLSCNFIL_^1DELETE,FN=DLDECTBL_^1EX_]_^1 * CCS/LA SYSTEM FILES ARE READY FOR PARAMETERIZATION_^1MNUPRO_]_^__ S1MENU CSY/ 1DELETE,FN=$$SYMENU_^1DEFINE,FN=$$SYMENU,ED=999999,TY=S,LR=80,NR=22,VL=SYSVOL,OW=$$_^1LOAD,FN=$$SYMENU,OW=$$_^1 *_;SYSTEM MENU_^1 *_]_^1MNUPRO_"SC - SYSTEM CONFIGURATOR_^1UTIL_$UT - SYSTEM UTI9  3&zyLITIES_^1EDITOR_"ED - TEXT EDITOR-USED TO EDIT 80 CHARACTER SEQ OR DIRECT FILES_^1MNUPRO_"DC - CCS20 DAILY CYCLE, ON-LINE REPORTING AND PREPARATION_^1MNUPRO_"HS - CCS20 HISTORY SYSTEM PROCEDURES_^1MNUPRO_"MT - CCS20 SYSTEM FILE MAINTENANCE ROUTINES_^1MNUPRO_"RP - CCS20 ON DEMAND REPORTING_^1MNUPRO_"RG - CCS20 REPORT GENERATOR - REPORT DIRECTORY_^1MNUPRO_"LD - L/A DAILY CYCLE, ON-LINE REPORTING AND PREPARATION_^1MNUPRO_"LH - L/A HISTORY SYSTEM PROCEDURES_^1MNUPRO_"LM - L/A SYSTEM FILE MAINTENANCE ROUTINES_^1MNUPRO_"LO - L/A ON DEMAND REPORTING_^1MNUPRO_"LR - L/A REPORT GENERATOR - REPORT DIRECTORY_^1MNUPRO_"EX - EXIT_^1/!_]_^__S2MENU CSY/ 1DELETE,FN=$$SYMENU_^1DEFINE,FN=$$SYMENU,ED=999999,TY=S,LR=80,NR=22,VL=SYSVOL,OW=$$_^1LOAD,FN=$$SYMENU,OW=$$_^1 *_;SYSTEM MENU_^1 *_]_^1MNUPRO_"SC - SYSTEM CONFIGURATOR_^1UTIL_$UT - SYSTEM UTILITIES_^1EDITOR_"ED - TEXT EDITOR-USED TO EDIT 80 CHARACTER SEQ OR DIRECT FILES_^1MNUPRO_"DC - CCS20 DAILY CYCLE, ON-LINE REPORTING AND PREPARATION_^1MNUPRO_"HS - CCS20 HISTORY SYSTEM PROCEDURES_^1MNUPRO_"MT - CCS20 SYSTEM FILE MAINTENANCE ROUTINES_^1MNUPRO_"RP - CCS20 ON DEMAND REPORTING_^1MNUPRO_"RG - CCS20 REPORT GENERATOR - REPORT DIRECTORY_^1MNUPRO_"EX - EXIT_^1/!_]_^__ S3MENU CSY/ 1DELETE,FN=$$SYMENU_^1DEFINE,FN=$$SYMENU,ED=999999,TY=S,LR=80,NR=22,VL=SYSVOL,OW=$$_^1LOAD,FN=$$SYMENU,OW=$$_^1 *_;SYSTEM MENU_^1 *_]_^1UTIL_$UT - SYSTEM UTILITIES_^1EDITOR_"ED - TEXT EDITOR-USED TO EDIT 80 CHARACTER SEQ OR DIRECT FILES_^1MNUPRO_"DC - CCS20 DAILY CYCLE, ON-LINE REPORTING AND PREPARATION_^1MNUPRO_"HS - CCS20 HISTORY SYSTEM PROCEDURES_^1MNUPRO_"MT - CCS20 SYSTEM FILE MAINTENANCE ROUTINES_^1MNUPRO_"RP - CCS20 ON DEMAND REPORTING_^1MNUPRO_"RG - CCS20 REPORT GENERATOR - REPORT DIRECTORY_^1MNUPRO_"LD - L/A DAILY CYCLE, ON-LINE REPORTING AND PREPARATION_^1MNUPRO_"LH - L/A HISTORY SYSTEM PROCEDURES_^1MNUPRO_"LM - L/A SYSTEM FILE MAINTENANCE ROUTINES_^1MNUPRO_"LO - L/A ON DEMAND REPORTING_^1MNUPRO_"LR - L/A REPORT GENERATOR - REPORT DIRECTORY_^1MNUPRO_"EX - EXIT_^1/!_]_^__ S4MENU CSY/ H  3&z1DELETE,FN=$$SYMENU_^1DEFINE,FN=$$SYMENU,ED=999999,TY=S,LR=80,NR=22,VL=SYSVOL,OW=$$_^1LOAD,FN=$$SYMENU,OW=$$_^1 *_;SYSTEM MENU_^1 *_]_^1UTIL_$UT - SYSTEM UTILITIES_^1EDITOR_"ED - TEXT EDITOR-USED TO EDIT 80 CHARACTER SEQ OR DIRECT FILES_^1MNUPRO_"DC - CCS20 DAILY CYCLE, ON-LINE REPORTING AND PREPARATION_^1MNUPRO_"HS - CCS20 HISTORY SYSTEM PROCEDURES_^1MNUPRO_"MT - CCS20 SYSTEM FILE MAINTENANCE ROUTINES_^1MNUPRO_"RP - CCS20 ON DEMAND REPORTING_^1MNUPRO_"RG - CCS20 REPORT GENERATOR - REPORT DIRECTORY_^1MNUPRO_"EX - EXIT_^1/!_]_^__DCMENU CSY/ 1DEFINE,FN=$$DCMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$_^1LOAD,FN=$$DCMENU,OW=$$_^1 *_3DAILY CYCLE MENU_^1 *_]_^1DCCOLACT A - DAILY COLLECTOR ACTIVITY REPORTS_^1DCPRTLTR B - PRINT REQUESTED LETTERS_^1DCACTADD C - ADD THE COLLECTOR ACTIVITIES TO THE ACTIVITY FILE_^1DCUPDTAP D - PROCESS COMPLETE UPDATE TAPE(S) FROM A/R SYSTEM_^1DCNFINUP E - PROCESS 400 SERIES NON-FINANCIAL UPDATE (TAPE)S_^1DCFINUPD F - PROCESS 500 SERIES FINANCIAL UPDATE TAPE(S)_^1RPDRCIAC G - DELINQUENT RECORD CONTENT REPORT - (INACTIVE ACCOUNTS)_^1RPDRCSRQ H - DELINQUENT RECORD CONTENT REPORT - (SUPERVISOR REQUESTS)_^1DCUPDHIS I - UPDATE ACCOUNTS FROM HISTORY_^1DCDUMMIE J** THE FOLLOWING PROCEDURES ARE TO BE RUN WHEN THE COLLECTORS_^1DCDUMDUM K** ARE FINISHED WITH THE DAYS ACTIVITIES_^1DCSRTTRN L - SORT TRANSACTION FILE IN PROPER ORDER FOR COLLECTOR REPORT_^1DCBLDDAS M - CREATE DAILY ASSIGNMENT FILES_^1_)Z - EXIT_^1/!_]_^__ HSMENU CSY/ 1DEFINE,FN=$$HSMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$_^1LOAD,FN=$$HSMENU,OW=$$_^1 *_2HISTORY SYSTEM MENU_^1 *_]_^1HSMOVHIS A - MOVE INACTIVE ACCOUNTS TO HISTORY FILES_^1HSUPDTAP B - UPDATE ACTIVE ACCOUNTS FROM THE TAPE ARCHIVES_^1HSPRGHIS C - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE_^1HSPRGTAP D - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE_^1MTPRGMST E - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL)_^1_)Z - EXIT_^1/!_]_^__ MTMENU CSY/ u  3&z1DEFINE,FN=$$MTMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$_^1LOAD,FN=$$MTMENU,OW=$$_^1 *_1FILE MAINTENANCE MENU_^1 *_]_^1MTRDRLTR A - PRINT THE LETTER DEFINITION FILE_^1MTCONLTR B - CREATE THE LETTER FILE_^1MTUTIFIL C - UTILITY FILE MAINTENANCE - ADD OR UPDATE UTILITY RECORDS_^1MTDECTBL D - DECISION TABLE MAINTENANCE_^1MTAVMDMP E - PRINT ACTIVITY VERIFICATION TABLE_^1MTACTMTX F - CREATE THE ACTIVITY VERIFICATION TABLE_^1MTSPCAUD G - FILE SPACE AUDIT- REPORTS PERCENTAGE OF UNUSED FILE SPACE_^1HSPRGHIS H - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE_^1HSPRGTAP I - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE_^1MTLDSCRN J - PRINT SCREEN DEFINITION FILE_^1MTSVSCRN K - CREATE THE SCREEN FILE_^1MTPRGMST L - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL)_^1MTACTMTN M - ACTIVITY FILE MAINTENANCE/REPORT_^1MTUSEMTN N - COLECT ACTIVE USER FILE MAINTENANCE_^1MTDETCRD O - PRINT REPORT GENERATOR DATA ELEMENT TABLE_^1MTDETCON P - REPORT GENERATOR DATA ELEMENT TABLE ROUTINES-CONSOLE INPUT_^1MTPDFMTN Q - REPORT GENERATOR PROGRAM DIRECTORY FILE MAINTENANCE_^1MTSCNPRT R - SAMPLE SCREEN PRINT UTILITY_^1_)Z - EXIT_^1/!_]_^__RPMENU CSY/ 1DEFINE,FN=$$RPMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$_^1LOAD,FN=$$RPMENU,OW=$$_^1 *_1ON DEMAND REPORT MENU_^1 *_]_^1RPDRCIAC A - DELINQUENT RECORD CONTENT REPORT (INACTIVE ACCOUNTS)_^1RPDRCSRQ B - DELINQUENT RECORD CONTENT REPORT (SUPERVISOR REQUESTS)_^1RPTAPRRN C - TREND ANALYSIS-CALCULATE AGE- RUN BEFORE SELECTION D OR E_^1RPTAPTQU D - TREND ANALYSIS REPORT PRINTED BY QUEUE_^1RPTAPTTY E - TREND ANALYSIS REPORT PRINTED BY PRODUCT TYPE_^1RPWRTOFF F - ELIGIBLE/ACTUAL WRITE-OFF REPORT_^1RPDLYASN G - DAILY ASSIGNMENT LIST_^1RPSUMACT H - SUMMARY ACCOUNT LIST REPORT_^1RPWCOLST I - WEEKLY COLLECTOR STATISTICS REPORT_^1RPMCOLST J - MONTHLY COLLECTOR STATISTICS REPORT_^1RPTCNTRL K - CREATE REPORT GENERATOR PROGRAM_^1PRFPG000 L - EXECUTE REPORT GENERATOR PROGRAM_^1PRFRP012 M - QUEUE LOADING REPORT_^1_)Z - EXIT_^1/!_]_^__ RGMENU CSY/ 1DEFINE,FN=$$RGMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$_^1LOAD,FN=$$RGMENU,OW=$$_^1 *_7REPORT GENERATOR - REPORT DIRECTORY_^1 *_]_^1PRFPG001 A - R.G. REPORT 1 - (AVAILABLE)_^1PRFPG002 B - R.G. REPORT 2 - (AVAILABLE)_^1PRFPG003 C - R.G. REPORT 3 - (AVAILABLE)_^1PRFPG004 D - R.G. REPORT 4 - (AVAILABLE)_^1PRFPG005 E - R.G. REPORT 5 - (AVAILABLE)_^1PRFPG006 F - R.G. REPORT 6 - (AVAILABLE)_^1PRFPG007 G - R.G. REPORT 7 - (AVAILABLE)_^1PRFPG008 H - R.G. REPORT 8 - (AVAILABLE)_^1PRFPG009 I - R.G. REPORT 9 - (AVAILABLE)_^1PRFPG010 J - R.G. REPORT 10 -,  3&z (AVAILABLE)_^1PRFPG011 K - R.G. REPORT 11 - (AVAILABLE)_^1PRFPG012 L - R.G. REPORT 12 - (AVAILABLE)_^1PRFPG013 M - R.G. REPORT 13 - (AVAILABLE)_^1PRFPG014 N - R.G. REPORT 14 - (AVAILABLE)_^1PRFPG015 O - R.G. REPORT 15 - (AVAILABLE)_^1PRFPG016 P - R.G. REPORT 16 - (AVAILABLE)_^1PRFPG017 Q - R.G. REPORT 17 - (AVAILABLE)_^1PRFPG018 R - R.G. REPORT 18 - (AVAILABLE)_^1PRFPG019 S - R.G. REPORT 19 - (AVAILABLE)_^1_)Z - EXIT_^1/!_]_^__ LDMENU CSY/ 1DEFINE,FN=$$LDMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$_^1LOAD,FN=$$LDMENU,OW=$$_^1 *_+LEGAL AND AGENCY DAILY CYCLE MENU_^1 *_]_^1LDCOLACT A - DAILY COLLECTOR ACTIVITY REPORTS_^1LDPRTLTR B - PRINT REQUESTED LETTERS_^1LDACTADD C - ADD THE COLLECTOR ACTIVITIES TO THE ACTIVITY FILE_^1LDUPDTAP D - PROCESS COMPLETE UPDATE TAPE(S) FROM A/R SYSTEM_^1LDNFINUP E - PROCESS 400 SERIES NON-FINANCIAL UPDATE (TAPE)S_^1LDFINUPD F - PROCESS 500 SERIES FINANCIAL UPDATE TAPE(S)_^1LODRCIAC G - DELINQUENT RECORD CONTENT REPORT - (INACTIVE ACCOUNTS)_^1LODRCSRQ H - DELINQUENT RECORD CONTENT REPORT - (SUPERVISOR REQUESTS)_^1LDUPDHIS I - UPDATE ACCOUNTS FROM HISTORY_^1LDDUMMIE J** THE FOLLOWING PROCEDURES ARE TO BE RUN WHEN THE COLLECTORS_^1LDDUMDUM K** ARE FINISHED WITH THE DAYS ACTIVITIES_^1LDSRTTRN L - SORT TRANSACTION FILE IN PROPER ORDER FOR COLLECTOR REPORT_^1LDBLDDAS M - CREATE DAILY ASSIGNMENT FILES_^1PRFLD012 N - NIGHTLY BATCH UPDATE_^1PRFLD013 O - L/A EXTRACT PROCESS_^1_)Z - EXIT_^1/!_]_^__ LHMENU CSY/ 1DEFINE,FN=$$LHMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$_^1LOAD,FN=$$LHMENU,OW=$$_^1_-LEGAL AND AGENCY HISTORY SYSTEM MENU_^1 *_]_^1LHMOVHIS A - MOVE INACTIVE ACCOUNTS TO HISTORY FILES_^1LHUPDTAP B - UPDATE ACTIVE ACCOUNTS FROM THE TAPE ARCHIVES_^1LHPRGHIS C - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE_^1LHPRGTAP D - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE_^1LMPRGMST E - PURGE MASTER FILES (LADLQMST-LACOSIGN-LAACTFIL)_^1LHPRGCLI F - PURGE CLIENT FILE (LACLIENT)_^1_)Z - EXIT_^1/!_]_^__LMMENU CSY/ 1DEFINE,FN=$$LMMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$_^1LOAD,FN=$$LMMENU,OW=$$_^1 *_+LEGAL AND AGENCY FILE MAINTENANCE MENU_^1 *_]_^1LMRDRLTR A - PRINT THE LETTER DEFINITION FILE_^  3&z1LMCONLTR B - CREATE THE LETTER FILE_^1LMUTIFIL C - UTILITY FILE MAINTENANCE - ADD OR UPDATE UTILITY RECORDS_^1LMDECTBL D - DECISION TABLE MAINTENANCE_^1LMAVMDMP E - PRINT ACTIVITY VERIFICATION TABLE_^1LMACTMTX F - CREATE THE ACTIVITY VERIFICATION TABLE_^1LMSPCAUD G - FILE SPACE AUDIT- REPORTS PERCENTAGE OF UNUSED FILE SPACE_^1LHPRGHIS H - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE_^1LHPRGTAP I - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE_^1LMLDSCRN J - PRINT SCREEN DEFINITION FILE_^1LMSVSCRN K - CREATE THE SCREEN FILE_^1LMPRGMST L - PURGE MASTER FILES (LADLQMST-LACOSIGN-LAACTFIL)_^1LMACTMTN M - ACTIVITY FILE MAINTENANCE/REPORT_^1LMUSEMTN N - COLECT ACTIVE USER FILE MAINTENANCE_^1LMDETCRD O - PRINT REPORT GENERATOR DATA ELEMENT TABLE_^1LMDETCON P - REPORT GENERATOR DATA ELEMENT TABLE ROUTINES-CONSOLE INPUT_^1LMPDFMTN Q - REPORT GENERATOR PROGRAM DIRECTORY FILE MAINTENANCE_^1LMSCNPRT R - SAMPLE SCREEN PRINT UTILITY_^1PRFLM017 S - CLIENT FILE MAINTENANCE_^1_)Z - EXIT_^1/!_]_^__LOMENU CSY/ 1DEFINE,FN=$$LOMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$_^1LOAD,FN=$$LOMENU,OW=$$_^1 *_+LEGAL AND AGENCY ON DEMAND REPORT MENU_^1 *_]_^1LODRCIAC A - DELINQUENT RECORD CONTENT REPORT (INACTIVE ACCOUNTS)_^1LODRCSRQ B - DELINQUENT RECORD CONTENT REPORT (SUPERVISOR REQUESTS)_^1LOTAPRRN C - TREND ANALYSIS-CALCULATE AGE- RUN BEFORE SELECTION D OR E_^1LOTAPTQU D - TREND ANALYSIS REPORT PRINTED BY QUEUE_^1LOTAPTTY E - TREND ANALYSIS REPORT PRINTED BY PRODUCT TYPE_^1LOWRTOFF F - ELIGIBLE/ACTUAL WRITE-OFF REPORT_^1LODLYASN G - DAILY ASSIGNMENT LIST_^1LOSUMACT H - SUMMARY ACCOUNT LIST REPORT_^1LOWCOLST I - WEEKLY COLLECTOR STATISTICS REPORT_^1LOMCOLST J - MONTHLY COLLECTOR STATISTICS REPORT_^1LOTCNTRL K - CREATE REPORT GENERATOR PROGRAM_^1PRFLP000 L - EXECUTE REPORT GENERATOR PROGRAM_^1PRFLO012 M - QUEUE LOADING REPORT_^1PRFLO013 N - COMPLETE PAYMENT, DIRECT PAYMENT STATEMENT REPORTS_^1PRFLO014 O - INVENTORY REPORTS BY ACCOUNT, CLIENT_^1PRFLO015 P - RECOVERY ANALYSIS REPORT_^1_)Z - EXIT_^1/!_]_^__ LRMENU CSY/ 1DEFINE,FN=$$LRMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$_^1LOAD,FN=$$LRMENU,OW=$$_^1 *_+LEGAL AND AGENCY REPORT GENERATOR - REPORT DIRECTORY_^1 *_]_^1PRFLP001 A - R.G. REPORT 1 - (AVAILABLE)_^1PRFLP002 B - R.G. REPORT 2 - (AVAILABLE)_^1PRFLP003 C - R.G. REPORT 3 - (AVAILABLE)_^1PRFLP004 D - R.G. REPORT 4 - (AVAILABLE)_^1PRFLP005 E - R.G. REPORT 5 - (AVAILABLE)_^1PRFLP006 F - R.G. REPORT 6 - (AVAILABLE)_^1PRFLP007 G - R.G. REPORT 7 - (AVAILABLE)_^1PRFLP008 H - R.G. REPORT 8 - (AVAILABLE)_^1PRFLP009 I - R.G. REPORT 9 - (AVAILABLE)_^1PRFLP010 J -  3&z R.G. REPORT 10 - (AVAILABLE)_^1PRFLP011 K - R.G. REPORT 11 - (AVAILABLE)_^1PRFLP012 L - R.G. REPORT 12 - (AVAILABLE)_^1PRFLP013 M - R.G. REPORT 13 - (AVAILABLE)_^1PRFLP014 N - R.G. REPORT 14 - (AVAILABLE)_^1PRFLP015 O - R.G. REPORT 15 - (AVAILABLE)_^1PRFLP016 P - R.G. REPORT 16 - (AVAILABLE)_^1PRFLP017 Q - R.G. REPORT 17 - (AVAILABLE)_^1PRFLP018 R - R.G. REPORT 18 - (AVAILABLE)_^1PRFLP019 S - R.G. REPORT 19 - (AVAILABLE)_^1_)Z - EXIT_^1/!_]_^__PDC01 CSY/ 1DEFINE,FN=PRFDC001,TY=S,LR=80,NR=50,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFDC001,OW=CCS20_^1CHEKID_]_^1 * THIS ROUTINE WILL PRINT - DAILY COLLECTOR UPDATE REPORT_^1 *_8- TIME USAGE REPORT_^1 *_8- DAILY COLLECTOR STATISTICS REPORT_^1 *_]_^1INPUT=PRFDC001_^1UTIL_]_^1CLEAR,FN=DLYWRK_^1EX_]_^1 * TRNSFL FILE IS NOW BEING SORTED_^1INPUT=PRFDC001_^1DSORT_]_^1FN=TRNSFL,CCS20_^1F2=TRNSFL,CCS20,_^1OP=T,F,A_]_^1KF=A,29,2,A,17,4,A,135,4,A,25,4,A,1,16,A,134,1_^1SL=I_]_^1 * THE TRNSFL FILE HAS BEEN SORTED_^1 * THE DAILY COLLECTOR UPDATE REPORT WILL BE PRINTED_^1COLCHG_]_^1 * THE DAILY COLLECTOR UPDATE REPORT IS COMPLETE_^1 * THE TIME USAGE REPORT WILL BE PRINTED_^1TIMUSE_]_^1 * THE TIME USAGE REPORT IS COMPLETE_^1INPUT=PRFDC001_^1SWITCH_]_^110000000_]_^1 * THE DAILY STATISTICS REPORT WILL BE PRINTED_^1COLSTS_]_^1 * THE DAILY STATISTICS REPORT IS COMPLETE_^1 **** OPERATOR -_^1 *_"RESPOND: 'N' CARRIAGE RETURN - TO BYPASS ZEROING THE DAILY COUNT_^1 *_]_^1 *_,CARRIAGE RETURN ONLY - TO ZERO THE DAILY COUNT_^1CCSPAS_]_^1INPUT=PRFDC001_^1SWITCH_]_^100010000_]_^1COLSTS_]_^1 * THIS ROUTINE IS COMPLETE_^1MNUPRO_]_^1/!_]_^__PDC02 CSY/ 1DEFINE,FN=PRFDC002,TY=S,LR=80,NR=30,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFDC002,OW=CCS20_^1CHEKID_]_^1 * THE TRANSACTION FILE WILL BE SORTED FOR PRINTING OF LETTERS_^1INPUT=PRFDC002_^1DSORT_]_^1FN=TRNSFL,CCS20_^1F2=TRNSFL,CCS20,_^1OP=T,F,A_]_^1KF=A,17,4,A,41,2,A,1,16_^1SL=I_]_^1 **** OPERATOR - LOAD LETTER PAPER_^1 *_.CARRIAGE RETURN WHEN READY_^1 *_]_^1CCSPAS_]_^1 * THE REQUESTED LETTERS WILL BE PRINTED_^1LTRPRT_]_^1 * THE REQUESTED LETTERS HAVE BEEN PRINTED_^1 **** OPERATOR - LOAD REGULAR PAPER_^1 *_.CARRIAGE RETURN WHEN READY_^1 *_]_^1CCSPAS_]_^1 * THE LETTER STATISTICS SUMMARY WILL BE PRINTED_^1LTRSTA_]_^1 * THE LETTER STATISTICS SUMMARY IS COMPLETE_^1MNUPRO_]_^1/!_]_^__PDC03 CSY/ 1DEFINE,FN=PRFDC003,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFDC003,OW=CCS20_^1CHEKID_]_^1 * THE COLLECTOR ACTIVITIES WILL BE ADDED TO THE ACTIVITY FILE_^1INPUT=PRFDC003_^1D  3&zSORT_]_^1FN=TRNSFL,CCS20_^1F2=TRNSFL,CCS20,_^1OP=T,F,A_]_^1KF=A,29,2,A,21,4,D,25,4,D,121,2_^1SL=I_]_^1ACTADD_]_^1 * THE COLLECTOR ACTIVITIES HAVE BEEN ADDED TO THE ACTIVITY FILE_^1 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE_^1 * WILL BE PRINTED_^1ACTMTN_]_^1 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE_^1 * HAS BEEN PRINTED_^1MNUPRO_]_^1/!_]_^__ PDC04 CSY/ 1DEFINE,FN=PRFDC004,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFDC004,OW=CCS20_^1CHEKID_]_^1 ****OPERATOR - MOUNT UPDATE INPUT TAPE ON TAPE UNIT '0'_^1 *_-CARRIAGE RETURN WHEN READY_^1CCSPAS_]_^1INPUT=PRFDC004_^1SWITCH_]_^110000000_]_^1 * THE UPDATE TAPE WILL BE PROCESSED_^1UPDATE_]_^1 * THE UPDATE TAPE HAS BEEN PROCESSED_^1 * THE FILE SPACE AUDIT REPORT WILL NOW BE PRINTED_^1 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING_^1 *_.SCREEN INFORMATION_^1CCSSPC_]_^1CCSPAS_]_^1 * THE FILE SPACE AUDIT REPORT IS COMPLETE_^1MNUPRO_]_^1/!_]_^__PDC05 CSY/ 1DEFINE,FN=PRFDC005,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFDC005,OW=CCS20_^1CHEKID_]_^1 * THE NON-FINANCIAL UPDATES WILL BE PROCESSED_^1 **** OPERATOR - MOUNT NON-FINANCIAL UPDATE INPUT TAPE ON TAPE UNIT '0'_^1 *_.CARRIAGE RETURN WHEN READY_^1CCSPAS_]_^1INPUT=PRFDC005_^1SWITCH_]_^110000000_]_^1UPD400_]_^1 * THE NON-FINANCIAL UPDATES HAVE BEEN PROCESSED_^1MNUPRO_]_^1/!_]_^__ PDC06 CSY/ 1DEFINE,FN=PRFDC006,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFDC006,OW=CCS20_^1CHEKID_]_^1 * THE FINANCIAL UPDATES WILL BE PROCESSED_^1 **** OPERATOR - MOUNT FINANCIAL UPDATE INPUT TAPE ON TAPE UNIT '0'_^1 *_]_^1INPUT=PRFDC006_^1MOUNT_]_^1FTAPE,B,P_]_^1/*_]_^1UPD500_]_^1 * THE FINANCIAL UPDATES HAVE BEEN PROCESSED_^1MNUPRO_]_^1/!_]_^__PDC07 CSY/ 8  3&{1DEFINE,FN=PRFDC007,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFDC007,OW=CCS20_^1CHEKID_]_^1 * THE ACTIVE ACCOUNTS WILL BE UPDATED FROM HISTORY_^1DHUPDT_]_^1 * THE ACTIVE ACCOUNTS HAVE BEEN UPDATED FROM HISTORY_^1MNUPRO_]_^1/!_]_^__ PDC08 CSY/ 1DEFINE,FN=PRFDC008,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFDC008,OW=CCS20_^1CHEKID_]_^1 * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE_^1 *_*COLLECTORS ARE OFF-LINE FOR THE DAY_^1MNUPRO_]_^1/!_]_^__ PDC09 CSY/ 1DEFINE,FN=PRFDC009,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFDC009,OW=CCS20_^1CHEKID_]_^1 * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE_^1 *_*COLLECTORS ARE OFF-LINE FOR THE DAY_^1MNUPRO_]_^1/!_]_^__ PDC10 CSY/ 1DEFINE,FN=PRFDC010,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFDC010,OW=CCS20_^1CHEKID_]_^1 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE_^1 *_.RESPOND: 'N' CARRIAGE RETURN - TO ABORT_^1 *_8CARRIAGE RETURN ONLY - TO CONTINUE_^1 *_]_^1CCSPAS_]_^1 * THE TRANSACTION FILE WILL BE SORTED FOR THE COLLECTORS REPORT_^1INPUT=PRFDC010_^1UTIL_]_^1CLEAR,FN=TRNSFL_^1EX_]_^1INPUT=PRFDC010_^1DSORT_]_^1FN=TRANFL,CCS20_^1F2=TRNSFL,CCS20,_^1OP=T,F,A_]_^1KF=A,29,2,A,17,4,A,1,16,A,21,4,A,25,4,A,137,2_^1SL=I_]_^1PRETSR_]_^1INPUT=PRFDC010_^1UTIL_]_^1CLEAR,FN=ACTIVE_^1CLEAR,FN=TRANFL_^1CLEAR,FN=TRNBCK_^1EX_]_^1 * THE TRANSACTION FILE HAS BEEN SORTED FOR THE COLLECTORS REPORT_^1NMCHNG_]_^1INPUT=PRFDC010_^1UTIL_]_^1CLEAR,FN=ADDACT_^1EX_]_^1MNUPRO_]_^1/!_]_^__ PDC11 CSY/ 1DEFINE,FN=PRFDC011,TY=S,LR=80,NR=45,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFDC011,OW=CCS20_^1CHEKID_]_^1 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE_^1 *_.RESPOND: 'N' CARRIAGE RETUR  3&{N - TO ABORT_^1 *_8CARRIAGE RETURN ONLY - TO CONTINUE_^1 *_]_^1CCSPAS_]_^1 * THE DAILY ASSIGNMENT FILES WILL BE CREATED_^1 *_]_^1 * THE DLYASSN FILE IS BEING CREATED_^1DACRTE_]_^1 * THE DLYASSN FILE HAS BEEN CREATED_^1 * THE DLYASSN FILE IS BEING SORTED_^1INPUT=PRFDC011_^1DSORT_]_^1FN=DLYWRK,CCS20_^1FN=DLYASSN,CCS20_^1F2=DLYASSN,CCS20,_^1OP=T,F,A_]_^1KF=A,17,4,A,25,2,A,21,4,D,27,4,A,1,16_^1SL=I_]_^1 * THE DLYASSN FILE HAS BEEN SORTED_^1INPUT=PRFDC011_^1UTIL_]_^1CLEAR,FN=DAQUE_^1EX_]_^1 * THE DAILY QUEUE FILE IS BEING CREATED_^1DAQUEL_]_^1 * THE DAILY QUEUE FILE HAS BEEN CREATED_^1 * THE FILE SPACE AUDIT REPORT WILL NOW BE PRINTED_^1 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING_^1 *_.SCREEN INFORMATION_^1CCSSPC_]_^1CCSPAS_]_^1 * THE FILE SPACE AUDIT REPORT IS COMPLETE_^1 * THE DAILY ASSIGNMENT FILES HAVE BEEN CREATED_^1MNUPRO_]_^1/!_]_^__PHS01 CSY/ 1DEFINE,FN=PRFHS001,TY=S,LR=80,NR=30,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFHS001,OW=CCS20_^1CHEKID_]_^1 * THE INACTIVE ACCOUNTS WILL BE MOVED TO HISTORY_^1 * THE INACCT FILE IS BEING SORTED INTO ACCOUNT NUMBER ORDER_^1INPUT=PRFHS001_^1DSORT_]_^1FN=INACCT,CCS20_^1F2=INTEMP,CCS20,_^1OP=T,F,A_]_^1KF=A,1,16,D,23,2,D,19,4_^1SL=I_]_^1INPUT=PRFHS001_^1UTIL_]_^1CLEAR,FN=INACCT_^1COPY,FN=INTEMP,F2=INACCT,OW=CCS20_^1DELETE,FN=INTEMP_^1EX_]_^1 * THE INACCT FILE HAS BEEN SORTED INTO ACCOUNT NUMBER ORDER_^1 ****OPERATOR - MOUNT HISTORY FILE OUTPUT TAPE ON TAPE UNIT '0'_^1 *_-WITH WRITE RING_^1 *_-CARRIAGE RETURN WHEN READY_^1CCSPAS_]_^1MHUPDT_]_^1 * THE INACTIVE ACCOUNTS HAVE BEEN MOVED TO HISTORY_^1MNUPRO_]_^1/!_]_^__ PHS02 CSY/ 0DEFINE,FN=PRFHS002,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFHS002,OW=CCS20_^1CHEKID_]_^0 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE_^0 *_.RESPOND: 'N' CARRIAGE RETURN - TO ABORT_^0 *_7CARRIAGE RETURN ONLY - TO CONTINUE_^0 *_]_^0CCSPAS_]_^1 * THE ACTIVE ACCOUNTS WILL BE UPDATED FROM THE TAPE ARCHIVES_^1INPUT=PRFHS002_^1UTIL_]_^1DEFINE,FN=UPREQ,ED=999999,TY=S,LR=22,NR=300_^1EX_]_^1CHUPD1_]_^1 * THE UPREQ FILE WILL BE SORTED_^1INPUT=PRFHS002_^1DSORT_]_^1FN=UPREQ,CCS20_^1F2=UPREQ,CCS20,_^1OP=T,F,A_]_^1KF=D,21,2,D,17,4,A,1,16_^1SL=I_]_^1 * THE UPREQ FILE HAS BEEN SORTED_^1INPUT=PRFHS002_^1UTIL_]_^1CLEAR,FN=UPHSTCM_^1EX_]_^1 **** OPERATOR - YOU WILL BE PROMPTED TO MOUNT TAPES DURING THE_^1 *_.EXECUTION OF THE NEXT JOB_^1CHUPD2_]_^1INPUT=PRFHS002_^1UTIL_]_^1DELETE,FN=UPREQ_^1EX_]_^1 * THE ACTIVE ACCOUNTS HAVE BEEN UPDATED FROM THE TAPE ARCHIVES_^1MNUPRO_]_^1/!_]_^__ PHS03 CSY/ `  3&{-1DEFINE,FN=PRFHS003,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFHS003,OW=CCS20_^1CHEKID_]_^1 * THE SUMHIST FILE WILL BE PURGED_^1PHDEL2_]_^1CMPSUM_]_^1 * THE SUMHIST FILE HAS BEEN PURGED_^1MNUPRO_]_^1/!_]_^__ PHS04 CSY/ 1DEFINE,FN=PRFHS004,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFHS004,OW=CCS20_^1CHEKID_]_^1 * THE TAPEARC FILE WILL BE PURGED_^1PHDEL1_]_^1INPUT=PRFHS004_^1UTIL_]_^1COMPRE,FN=TAPEARC_^1EX_]_^1 * THE TAPEARC FILE HAS BEEN PURGED_^1MNUPRO_]_^1/!_]_^__ PMT01 CSY/ 1DEFINE,FN=PRFMT001,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFMT001,OW=CCS20_^1CHEKID_]_^1 * THE LETTER DEFINITION FILE WILL BE PRINTED_^1INPUT=PRFMT001_^1UTIL_]_^1LIST,FN=LTRDESC,L=LPRINTER,F=U_^1EX_]_^1 * THE LETTER DEFINITION FILE HAS BEEN PRINTED_^1 **** OPERATOR - IF CHANGES ARE TO BE MADE TO THE LETTER FILE_^1 *_.ENTER THE EDITOR TO PROCESS THE LTRDESC FILE, WHEN_^1 *_.COMPLETE PERFORM THE NEXT MENU PROCEDURE STEP "B"_^1 *_.CARRIAGE RETURN WHEN READY TO CONTINUE_^1CCSPAS_]_^1MNUPRO_]_^1/!_]_^__PMT02 CSY/ 1DEFINE,FN=PRFMT002,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFMT002,OW=CCS20_^1CHEKID_]_^1 * THE LETTER FILE WILL BE CREATED_^1 *_]_^1INPUT=PRFMT002_^1UTIL_]_^1CLEAR,FN=LTRFIL_^1EX_]_^1LTRBLD_]_^1 * THE LETTER FILE HAS BEEN CREATED_^1MNUPRO_]_^1/!_]_^__PMT03 CSY/ 1DEFINE,FN=PRFMT003,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFMT003,OW=CCS20_^1CHEKID_]_^1 * THE UTILITY FILE MAINTENANCE ROUTINE WILL BE EXECUTED_^1 *_]_^1 **** OPERATOR -  3&{AYOU CAN ADD, UPDATE OR DELETE UTILITY FILE RECORDS_^1 *_.FROM THE CONSOLE_^1 *_]_^1 *_.FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN_^1UTFMTN_]_^1 * THE UTILITY FILE WILL BE LISTED ON THE PRINTER_^1INPUT=PRFMT003_^1UTIL_]_^1LIST,FN=UTIFIL,L=LPRINTER,F=U_^1EX_]_^1 * CHECK PRINTER LISTING TO VERIFY THAT RECORDS ARE CORRECT_^1 * THE UTILITY FILE MAINTENANCE ROUTINE IS COMPLETE_^1MNUPRO_]_^1/!_]_^__ PMT04 CSY/ 1DEFINE,FN=PRFMT004,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFMT004,OW=CCS20_^1CHEKID_]_^1 * THE DECISION TABLE MAINTENANCE ROUTINE WILL BE EXECUTED_^1 *_]_^1 ****OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN_^1DECMTN_]_^1 * THE DECISION TABLE MAINTENANCE ROUTINE IS COMPLETE_^1MNUPRO_]_^1/!_]_^__PMT05 CSY/ 1DEFINE,FN=PRFMT005,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFMT005,OW=CCS20_^1CHEKID_]_^1 * THE ACTIVITY VERIFICATION TABLE WILL BE PRINTED_^1AVMDMP_]_^1 * THE ACTIVITY VERIFICATION TABLE HAS BEEN PRINTED_^1MNUPRO_]_^1/!_]_^__PMT06 CSY/ 1DEFINE,FN=PRFMT006,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFMT006,OW=CCS20_^1CHEKID_]_^1 * THE ACTIVITY VERIFICATION TABLE ROUTINE WILL BE EXECUTED_^1 *_]_^1AVMCON_]_^1 * THE ACTIVITY VERIFICATION TABLE ROUTINE IS COMPLETE_^1 * THE ACTIVITY VERIFICATION TABLE WILL BE PRINTED_^1AVMDMP_]_^1 * THE ACTIVITY VERIFICATION TABLE HAS BEEN PRINTED_^1MNUPRO_]_^1/!_]_^__ PMT07 CSY/ 1DEFINE,FN=PRFMT007,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFMT007,OW=CCS20_^1CHEKID_]_^1 * THE FILE SPACE AUDIT REPORT WILL BE PRINTED_^1 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING_^1 *_.SCREEN INFORMATION_^1CCSSPC_]_^1CCSPAS_]_^1 * THE FILE SPACE AUDIT REPORT IS COMPLETE_^1MNUPRO_]_^1/!_]_^__PMT08 CSY/ E  3&{U1DEFINE,FN=PRFMT008,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFMT008,OW=CCS20_^1CHEKID_]_^1 * THE SCREEN DEFINITION FILE WILL BE PRINTED_^1INPUT=PRFMT008_^1UTIL_]_^1LIST,FN=SCRNDESC,L=LPRINTER,F=U_^1EX_]_^1 * THE SCREEN DEFINITION FILE HAS BEEN PRINTED_^1 **** OPERATOR - IF CHANGES ARE TO BE MADE TO THE SCREEN DESCRIPTION_^1 *_.FILE ENTER THE EDITOR TO PROCESS THE SCRNDESC FILE,_^1 *_.WHEN COMPLETE PERFORM THE NEXT MENU PROCEDURE STEP 'K'_^1 *_.CARRIAGE RETURN WHEN READY TO CONTINUE_^1CCSPAS_]_^1MNUPRO_]_^1/!_]_^__PMT09 CSY/ 1DEFINE,FN=PRFMT009,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFMT009,OW=CCS20_^1CHEKID_]_^1 * THE SCREEN FILE WILL BE CREATED_^1BLDSRN_]_^1 * THE SCREEN FILE HAS BEEN CREATED_^1MNUPRO_]_^1/!_]_^__PMT10 CSY/ 1DEFINE,FN=PRFMT010,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFMT010,OW=CCS20_^1CHEKID_]_^0 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE_^0 *_.RESPOND: 'N' CARRIAGE RETURN - TO ABORT_^0 *_7CARRIAGE RETURN ONLY - TO CONTINUE_^0 *_]_^0CCSPAS_]_^1 * THE DELQMST, COSIGNER AND ACTFIL FILES WILL BE PURGED_^1CMPDLQ_]_^1INPUT=PRFMT010_^1UTIL_]_^1COMPRE,FN=COSIGNER_^1COMPRE,FN=ACTFIL_^1EX_]_^1 * THE DELQMST, COSIGNER AND ACTFIL FILES HAVE BEEN PURGED_^1MNUPRO_]_^1/!_]_^__PMT11 CSY/ 1DEFINE,FN=PRFMT011,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFMT011,OW=CCS20_^1CHEKID_]_^1 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE_^1 * WILL BE PRINTED_^1ACTMTN_]_^1 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE_^1 * HAS BEEN PRINTED_^1MNUPRO_]_^1/!_]_^__PMT12 CSY/ -  3&{i1DEFINE,FN=PRFMT012,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFMT012,OW=CCS20_^1CHEKID_]_^1 * THE COLECT ACTIVE USER MAINTENANCE FILE ROUTINE WILL BE EXECUTED_^1 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN_^1 *_]_^1USEMTN_]_^1 * THE COLECT ACTIVE USER MAINTENANCE FILE ROUTINE IS COMPLETE_^1MNUPRO_]_^1/!_]_^__ PMT13 CSY/ 1DEFINE,FN=PRFMT013,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFMT013,OW=CCS20_^1CHEKID_]_^1 * THE REPORT GENERATOR DATA ELEMENT TABLE WILL BE PRINTED_^1PGLTTB_]_^1MNUPRO_]_^1/!_]_^__PMT14 CSY/ 1DEFINE,FN=PRFMT014,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFMT014,OW=CCS20_^1CHEKID_]_^1 * THE REPORT GENERATOR DATA ELEMENT TABLE ROUTINES WILL BE EXECUTED_^1 *_]_^1 * THE DATA ELEMENT TABLE WILL BE PRINTED_^1PGLTTB_]_^1 * THE DATA ELEMENT TABLE HAS BEEN PRINTED_^1 *_]_^1 * THE DATA ELEMENT TABLE WILL BE UPDATED_^1 *_]_^1 ****OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN_^1 *_]_^1INPUT=PRFMT014_^1SWITCH_]_^1000000000_]_^1PGUPTB_]_^1 * THE DATA ELEMENT TABLE HAS BEEN UPDATED_^1 *_]_^1 * THE DATA ELEMENT TABLE WILL BE PURGED_^1INPUT=PRFMT014_^1UTIL_]_^1DEFINE,FN=TBLWRK,TY=R,K1=6,P1=1,NR=2000,LR=80_^1EX_]_^1PGCMPR_]_^1INPUT=PRFMT014_^1UTIL_]_^1DELETE,FN=RPTTBL_^1RENAME,FN=TBLWRK,F2=RPTTBL_^1EX_]_^1 * THE DATA ELEMENT TABLE HAS BEEN PURGED_^1 *_]_^1 * THE REPORT GENERATOR DATA ELEMENT TABLE ROUTINES ARE COMPLETE_^1MNUPRO_]_^1/!_]_^__ PMT15 CSY/ 1DEFINE,FN=PRFMT015,TY=S,LR=80,NR=35,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFMT015,OW=CCS20_^1CHEKID_]_^1 * THE PROGRAM DIRECTORY FILE ROUTINES WILL BE EXECUTED_^1 *_]_^1 * THE PROGRAM DIRECTORY FILE WILL BE PRINTED_^1PGLIST_]_^1 * THE PROGRAM DIRECTORY FILE HAS BEEN PRINTED_^1 *_]_^1 *_]_^1 * THE PROGRAM DIRECTORY FILE WILL BE PURGED_^1 *_]_^1 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN_^1 *_]_^1PGPURG_]_^1INPUT=PRFMT015_^1UTIL_]_^1COMPRE,FN=RPTPGM_^1EX_]_^1 * THE PROGRAM DIRECTORY FILE HAS BEEN PURGED_^1 *_]_^1 * THE PROGRAM DIRECTORY FILE  3&{} WILL BE PRINTED_^1PGLIST_]_^1 * THE PROGRAM DIRECTORY FILE HAS BEEN PRINTED_^1 *_]_^1 * THE PROGRAM DIRECTORY FILE ROUTINES HAVE BEEN EXECUTED_^1MNUPRO_]_^1/!_]_^__ PMT16 CSY/ 1DEFINE,FN=PRFMT016,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFMT016,OW=CCS20_^1CHEKID_]_^1 * THE SCREEN FILES WILL BE PRINTED_^1 *_]_^1 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN_^1 *_]_^1PRTSCN_]_^1 * THE SCREEN FILES HAVE BEEN PRINTED_^1MNUPRO_]_^1/!_]_^__ PRP01 CSY/ 1DEFINE,FN=PRFRP001,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFRP001,OW=CCS20_^1CHEKID_]_^1INPUT=PRFRP001_^1SWITCH_]_^110000000_]_^1 * DELINQUENT RECORD CONTENT REPORT WILL NOW BE PRINTED_^1 * THE ACCOUNTS BEING PRINTED ARE THE INACTIVE ACCOUNTS NOT PREVIOUSLY_^1 * PRINTED_]_^1DTLLST_]_^1 * THE DELINQUENT RECORD CONTENT REPORT IS COMPLETE_^1MNUPRO_]_^1/!_]_^__PRP02 CSY/ 1DEFINE,FN=PRFRP002,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFRP002,OW=CCS20_^1CHEKID_]_^1INPUT=PRFRP002_^1SWITCH_]_^101000000_]_^1 * DELINQUENT RECORD CONTENT REPORT WILL NOW BE PRINTED_^1 * THE ACCOUNTS BEING PRINTED WERE REQUESTED BY THE SUPERVISOR_^1DTLLST_]_^1INPUT=PRFRP002_^1UTIL_]_^1CLEAR,FN=SREQDL_^1EX_]_^1 * THE DELINQUENT RECORD CONTENT REPORT IS COMPLETE_^1MNUPRO_]_^1/!_]_^__PRP03 CSY/ 1DEFINE,FN=PRFRP003,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFRP003,OW=CCS20_^1CHEKID_]_^1 * CALCULATE AGE FOR TREND ANALYSIS_^1TRENDF_]_^1 * THE TREND ANALYSIS AGE CALCULATION IS COMPLETE_^1 *_]_^1 * THE ACCAGE AND RSWFIL FILES ARE BEING SORTED INTO AGEWRK_^1INPUT=PRFRP003_^1UTIL_]_^1DELETE,FN=AGEWRK_^1EX_]_^1INPUT=PRFRP003_^1DSORT_]_^1FN=ACCAGE,CCS20_^1FN=RSWFIL,CCS20_^1F2=AGEWRK,CCS20,SYSVOL_^1OP=T,F,A_]_^1KF=A,1,1,A,17,4_^1SL=I_]_^1 * THE ACCAGE AND RSWFIL FILES HAVE BEEN SORTED_^1 *_]_^1 **** OPERATOR -_^1 *_"RESPOND:_!'N' CARRIAGE RETURN TO BYPA\  3&{SS UPDATING PREVIOUS_^1 *_/TREND DATA FOR NEXT RUN_^1 *_]_^1 *_/CARRIAGE RETURN ONLY TO UPDATE PREVIOUS TREND DATA_^1 *_/FOR NEXT RUN_^1CCSPAS_]_^1TRENDU_]_^1INPUT=PRFRP003_^1UTIL_]_^1CLEAR,FN=RSWFIL_^1EX_]_^1MNUPRO_]_^1/!_]_^__PRP04 CSY/ 1DEFINE,FN=PRFRP004,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFRP004,OW=CCS20_^1CHEKID_]_^1 * GENERATE THE TREND ANALYSIS REPORT BY QUEUE_^1 * THE AGEWRK FILE IS BEING SORTED_^1INPUT=PRFRP004_^1DSORT_]_^1FN=AGEWRK,CCS20_^1F2=AGEWRK,CCS20,_^1OP=T,F,A_]_^1KF=A,1,1,A,17,4_^1SL=I_]_^1 * THE AGEWRK FILE HAS BEEN SORTED_^1 * THE TREND ANALYSIS REPORT BY QUEUE WILL NOW BE PRINTED_^1INPUT=PRFRP004_^1SWITCH_]_^110000000_]_^1TRENDP_]_^1 * THE TREND ANALYSIS REPORT BY QUEUE IS COMPLETE_^1MNUPRO_]_^1/!_]_^__ PRP05 CSY/ 1DEFINE,FN=PRFRP005,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFRP005,OW=CCS20_^1CHEKID_]_^1 * GENERATE THE TREND ANALYSIS REPORT BY PRODUCT TYPE_^1 * THE AGEWRK FILE IS BEING SORTED_^1INPUT=PRFRP005_^1DSORT_]_^1FN=AGEWRK,CCS20_^1F2=AGEWRK,CCS20,_^1OP=T,F,A_]_^1KF=A,1,1,A,25,4_^1SL=I_]_^1 * THE AGEWRK FILE HAS BEEN SORTED_^1 * THE TREND ANALYSIS REPORT BY PRODUCT TYPE WILL NOW BE PRINTED_^1INPUT=PRFRP005_^1SWITCH_]_^100000000_]_^1TRENDP_]_^1 * THE TREND ANALYSIS REPORT BY PRODUCT TYPE IS COMPLETE_^1MNUPRO_]_^1/!_]_^__PRP06A CSY/ 1DEFINE,FN=PRFRP006,TY=S,LR=80,NR=35,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFRP006,OW=CCS20_^1CHEKID_]_^1 * THE WRITE-OFF REPORT WILL BE GENERATED_^1 * THE WOEF FILE WILL BE CREATED_^1INPUT=PRFRP006_^1UTIL_]_^1DEFINE,FN=WOEF,ED=999999,TY=S,LR=115,NR=6000_^1EX_]_^1WRTOFE_]_^1 * THE WOEF FILE HAS BEEN CREATED_^1 * THE WOEF FILE IS BEING SORTED_^1INPUT=PRFRP006_^1DSORT_]_^1FN=WOEF,CCS20_^1F2=WOEF,CCS20,_^1OP=T,F,A_]_^1KF=A,25,1,A,17,4,A,21,4,A,1,16_^1SL=I_]_^1 * THE WOEF FILE HAS BEEN SORTED_^1 * THE WRITE-OFF REPORT WILL BE PRINTED_^1WRTOFP_]_^1INPUT=PRFRP006_^1UTIL_]  3&{_^1DELETE,FN=WOEF_^1EX_]_^1 * THE WRITE-OFF REPORT IS COMPLETE_^1MNUPRO_]_^1/!_]_^__PRP06B CSY/ 1DEFINE,FN=PRFRP006,TY=S,LR=80,NR=35,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFRP006,OW=CCS20_^1CHEKID_]_^1 * THE WRITE-OFF REPORT WILL BE GENERATED_^1 * THE WOEF FILE WILL BE CREATED_^1INPUT=PRFRP006_^1UTIL_]_^1DEFINE,FN=WOEF,ED=999999,TY=S,LR=115,NR=12000_^1EX_]_^1WRTOFE_]_^1 * THE WOEF FILE HAS BEEN CREATED_^1 * THE WOEF FILE IS BEING SORTED_^1INPUT=PRFRP006_^1DSORT_]_^1FN=WOEF,CCS20_^1F2=WOEF,CCS20,_^1OP=T,F,A_]_^1KF=A,25,1,A,17,4,A,21,4,A,1,16_^1SL=I_]_^1 * THE WOEF FILE HAS BEEN SORTED_^1 * THE WRITE-OFF REPORT WILL BE PRINTED_^1WRTOFP_]_^1INPUT=PRFRP006_^1UTIL_]_^1DELETE,FN=WOEF_^1EX_]_^1 * THE WRITE-OFF REPORT IS COMPLETE_^1MNUPRO_]_^1/!_]_^__ PRP06C CSY/ 1DEFINE,FN=PRFRP006,TY=S,LR=80,NR=35,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFRP006,OW=CCS20_^1CHEKID_]_^1 * THE WRITE-OFF REPORT WILL BE GENERATED_^1 * THE WOEF FILE WILL BE CREATED_^1INPUT=PRFRP006_^1UTIL_]_^1DEFINE,FN=WOEF,ED=999999,TY=S,LR=115,NR=18000_^1EX_]_^1WRTOFE_]_^1 * THE WOEF FILE HAS BEEN CREATED_^1 * THE WOEF FILE IS BEING SORTED_^1INPUT=PRFRP006_^1DSORT_]_^1FN=WOEF,CCS20_^1F2=WOEF,CCS20,_^1OP=T,F,A_]_^1KF=A,25,1,A,17,4,A,21,4,A,1,16_^1SL=I_]_^1 * THE WOEF FILE HAS BEEN SORTED_^1 * THE WRITE-OFF REPORT WILL BE PRINTED_^1WRTOFP_]_^1INPUT=PRFRP006_^1UTIL_]_^1DELETE,FN=WOEF_^1EX_]_^1 * THE WRITE-OFF REPORT IS COMPLETE_^1MNUPRO_]_^1/!_]_^__ PRP06D CSY/ 1DEFINE,FN=PRFRP006,TY=S,LR=80,NR=35,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFRP006,OW=CCS20_^1CHEKID_]_^1 * THE WRITE-OFF REPORT WILL BE GENERATED_^1 * THE WOEF FILE WILL BE CREATED_^1INPUT=PRFRP006_^1UTIL_]_^1DEFINE,FN=WOEF,ED=999999,TY=S,LR=115,NR=39000_^1EX_]_^1WRTOFE_]_^1 * THE WOEF FILE HAS BEEN CREATED_^1 * THE WOEF FILE IS BEING SORTED_^1INPUT=PRFRP006_^1DSORT_]_^1FN=WOEF,CCS20_^1F2=WOEF,CCS20,_^1OP=T,F,A_]_^1KF=A,25,1,A,17,4,A,21,4,A,1,16_^1SL=I_]_^1 * THE WOEF FILE HAS BEEN SORTED_^1 * THE WRITE-OFF REPORT WILL BE PRINTED_^1WRTOFP_]_^1INPUT=PRFRP006_^1UTIL_]_^1DELETE,FN=WOEF_^1EX_]_^1 * THE WRITE-OFF REPORT IS COMPLETE_^1MNUPRO_]_^1/!_]_^__ PRP06E CSY/ cC  3&{1DEFINE,FN=PRFRP006,TY=S,LR=80,NR=35,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFRP006,OW=CCS20_^1CHEKID_]_^1 * THE WRITE-OFF REPORT WILL BE GENERATED_^1 * THE WOEF FILE WILL BE CREATED_^1INPUT=PRFRP006_^1UTIL_]_^1DEFINE,FN=WOEF,ED=999999,TY=S,LR=115,NR=30000_^1EX_]_^1WRTOFE_]_^1 * THE WOEF FILE HAS BEEN CREATED_^1 * THE WOEF FILE IS BEING SORTED_^1INPUT=PRFRP006_^1DSORT_]_^1FN=WOEF,CCS20_^1F2=WOEF,CCS20,_^1OP=T,F,A_]_^1KF=A,25,1,A,17,4,A,21,4,A,1,16_^1SL=I_]_^1 * THE WOEF FILE HAS BEEN SORTED_^1 * THE WRITE-OFF REPORT WILL BE PRINTED_^1WRTOFP_]_^1INPUT=PRFRP006_^1UTIL_]_^1DELETE,FN=WOEF_^1EX_]_^1 * THE WRITE-OFF REPORT IS COMPLETE_^1MNUPRO_]_^1/!_]_^__ PRP07 CSY/ 1DEFINE,FN=PRFRP007,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFRP007,OW=CCS20_^1CHEKID_]_^1 * THE DAILY ASSIGNMENT REPORT LIST WILL BE PRINTED_^1DALIST_]_^1 * THE DAILY ASSIGNMENT LIST REPORT IS COMPLETE_^1MNUPRO_]_^1/!_]_^__ PRP08 CSY/ 1DEFINE,FN=PRFRP008,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFRP008,OW=CCS20_^1CHEKID_]_^1 * THE SUMMARY ACCOUNT REPORT LIST WILL BE PRINTED_^1SUMACL_]_^1 * THE SUMMARY ACCOUNT REPORT LIST IS COMPLETE_^1MNUPRO_]_^1/!_]_^__ PRP09 CSY/ 1DEFINE,FN=PRFRP009,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFRP009,OW=CCS20_^1CHEKID_]_^1 * THE WEEKLY COLLECTOR STATISTICS REPORT WILL BE PRINTED_^1INPUT=PRFRP009_^1SWITCH_]_^101000000_]_^1COLSTS_]_^1 * THE WEEKLY COLLECTOR STATISTICS REPORT IS COMPLETE_^1 **** OPERATOR -_^1 *_"RESPOND: 'N' CARRIAGE RETURN - TO BYPASS ZEROING THE WEEKLY COUNT_^1 *_]_^1 *_,CARRIAGE RETURN ONLY - TO ZERO THE WEEKLY COUNT_^1CCSPAS_]_^1INPUT=PRFRP009_^1SWITCH_]_^100001000_]_^1COLSTS_]_^1MNUPRO_]_^1/!_]_^__PRP10 CSY/ %  3&{1DEFINE,FN=PRFRP010,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFRP010,OW=CCS20_^1CHEKID_]_^1 * THE MONTHLY COLLECTOR STATISTICS REPORT WILL BE PRINTED_^1INPUT=PRFRP010_^1SWITCH_]_^100100000_]_^1COLSTS_]_^1 * THE MONTHLY COLLECTOR STATISTICS REPORT IS COMPLETE_^1 **** OPERATOR -_^1 *_"RESPOND: 'N' CARRIAGE RETURN - TO BYPASS CLEARING THE COLLECTOR_^1 *_CSTATISTICS COUNT FILE_^1 *_]_^1 *_,CARRIAGE RETURN ONLY - TO CLEAR THE COLLECTOR STATISTICS_^1 *_CCOUNT FILE_^1CCSPAS_]_^1INPUT=PRFRP010_^1UTIL_]_^1CLEAR,FN=COLSTATS_^1EX_]_^1MNUPRO_]_^1/!_]_^__ PCTRL CSY/ 1DEFINE,FN=PRFCNTRL,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFCNTRL,OW=CCS20_^1CHEKID_]_^1 * THE REPORT GENERATOR PROGRAMS WILL BE CREATED_^1 **** OPERATOR - BATCH HOST MUST BE ACTIVE BEFORE PROCEEDING_^1 *_.TO ACTIVATE BATCH HOST_^1 *_.MI, *BATCH,F_^1 *_]_^1 *_"RESPOND: 'N' CARRIAGE RETURN - IF BATCH HOST IS NOT ACTIVE_^1 *_]_^1 *_,CARRIAGE RETURN ONLY - TO CONTINUE_^1CCSPAS_]_^1 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN_^1INPUT=PRFCNTRL_^1UTIL_]_^1DEFINE,FN=RPTWKE,LR=80,NR=1000_^1DEFINE,FN=RPTWKP,LR=80,NR=1000_^1DEFINE,FN=PRCWRK,LR=80,NR=50_^1EX_]_^1PGGEN_]_^1 * THE REPORT GENERATOR PROGRAMS HAVE BEEN CREATED_^1 * THE REPORT GENERATOR PROGRAMS WILL BE BATCHED_^1INPUT=PRFCNTRL_^1UTIL_]_^1BATCH,FN=RPTWKE,TY=N_^1BATCH,FN=RPTWKP,TY=R_^1DELETE,FN=RPTWKE_^1DELETE,FN=RPTWKP_^1CLEAR,FN=PGEXTR_^1EX_]_^1PGCNT1_]_^1 *_]_^1 **** OPERATOR - SELECTION L MUST NOW BE RUN TO EXECUTE THE REPORT_^1 *_.CARRIAGE RETURN WHEN READY_^1CCSPAS_]_^1MNUPRO_]_^1/!_]_^__PRP12 CSY/ 1DEFINE,FN=PRFRP012,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFRP012,OW=CCS20_^1CHEKID_]_^1 * THE QUEUE LOADING REPORT WILL BE PRINTED_^1QLOAD_]_^1 * THE QUEUE LOADING REPORT IS COMPLETE_^1MNUPRO_]_^1/!_]_^__PLD01 CSY/ 1DEFINE,FN=PRFLD001,OW=LA,ED=999999,TY=S,LR=80,NR=50_^1LOAD,FN=PRFLD001,OW=LA_^1CHEKID_]_^1 * THIS ROUTINE WILL PRINT - DAILY COLLECTOR UPDATE REPORT_^1 *_8- TIME USAGE REPORT_^1 *_8- DAILY CO  3&{LLECTOR STATISTICS REPORT_^1 *_]_^1INPUT=PRFLD001_^1UTIL_]_^1CLEAR,FN=LADLYWRK_^1EX_]_^1 * LATRNSFL FILE IS NOW BEING SORTED_^1INPUT=PRFLD001_^1DSORT_]_^1FN=LATRNSFL,LA_^1F2=LATRNSFL,LA,_^1OP=T,F,A_]_^1KF=A,29,2,A,17,4,A,135,4,A,25,4,A,1,16,A,134,1_^1SL=I_]_^1 * THE LATRNSFL FILE HAS BEEN SORTED_^1 * THE DAILY COLLECTOR UPDATE REPORT WILL BE PRINTED_^1LCOLCG_]_^1 * THE DAILY COLLECTOR UPDATE REPORT IS COMPLETE_^1 * THE TIME USAGE REPORT WILL BE PRINTED_^1LTMUSE_]_^1 * THE TIME USAGE REPORT IS COMPLETE_^1INPUT=PRFLD001_^1SWITCH_]_^110000000_]_^1 * THE DAILY STATISTICS REPORT WILL BE PRINTED_^1LCOLST_]_^1 * THE DAILY STATISTICS REPORT IS COMPLETE_^1 **** OPERATOR -_^1 *_"RESPOND: 'N' CARRIAGE RETURN - TO BYPASS ZEROING THE DAILY COUNT_^1 *_]_^1 *_,CARRIAGE RETURN ONLY - TO ZERO THE DAILY COUNT_^1CCSPAS_]_^1INPUT=PRFLD001_^1SWITCH_]_^100010000_]_^1LCOLST_]_^1 * THIS ROUTINE IS COMPLETE_^1MNUPRO_]_^1/!_]_^__PLD02 CSY/ 1DEFINE,FN=PRFLD002,OW=LA,ED=999999,TY=S,LR=80,NR=30_^1LOAD,FN=PRFLD002,OW=LA_^1CHEKID_]_^1 * THE TRANSACTION FILE WILL BE SORTED FOR PRINTING OF LETTERS_^1INPUT=PRFLD002_^1DSORT_]_^1FN=LATRNSFL,LA_^1F2=LATRNSFL,LA,_^1OP=T,F,A_]_^1KF=A,17,4,A,41,2,A,1,16_^1SL=I_]_^1 **** OPERATOR - LOAD LETTER PAPER_^1 *_.CARRIAGE RETURN WHEN READY_^1 *_]_^1CCSPAS_]_^1 * THE REQUESTED LETTERS WILL BE PRINTED_^1LLTPRT_]_^1 * THE REQUESTED LETTERS HAVE BEEN PRINTED_^1 **** OPERATOR - LOAD REGULAR PAPER_^1 *_.CARRIAGE RETURN WHEN READY_^1 *_]_^1CCSPAS_]_^1 * THE LETTER STATISTICS SUMMARY WILL BE PRINTED_^1LLTSTA_]_^1 * THE LETTER STATISTICS SUMMARY IS COMPLETE_^1MNUPRO_]_^1/!_]_^__PLD03 CSY/ 1DEFINE,FN=PRFLD003,OW=LA,ED=999999,TY=S,LR=80,NR=25_^1LOAD,FN=PRFLD003,OW=LA_^1CHEKID_]_^1 * THE COLLECTOR ACTIVITIES WILL BE ADDED TO THE ACTIVITY FILE_^1INPUT=PRFLD003_^1DSORT_]_^1FN=LATRNSFL,LA_^1F2=LATRNSFL,LA,_^1OP=T,F,A_]_^1KF=A,29,2,A,21,4,D,25,4,D,121,2_^1SL=I_]_^1LACTAD_]_^1 * THE COLLECTOR ACTIVITIES HAVE BEEN ADDED TO THE ACTIVITY FILE_^1 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE_^1 * WILL BE PRINTED_^1LACTMT_]_^1 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE_^1 * HAS BEEN PRINTED_^1MNUPRO_]_^1/!_]_^__ PLD04 CSY/ 1DEFINE,FN=PRFLD004,OW=LA,ED=999999,TY=S,LR=80,NR=25_^1LOAD,FN=PRFLD004,OW=LA_^1CHEKID_]_^1 ****OPERATOR - MOUNT UPDATE INPUT TAPE ON TAPE UNIT '0'_^1 *_-CARRIAGE RETURN WHEN READY_^1CCSPAS_]_=  3&{^1INPUT=PRFLD004_^1SWITCH_]_^110000000_]_^1 * THE UPDATE TAPE WILL BE PROCESSED_^1LUPDAT_]_^1 * THE UPDATE TAPE HAS BEEN PROCESSED_^1 * THE FILE SPACE AUDIT REPORT WILL NOW BE PRINTED_^1 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING_^1 *_.SCREEN INFORMATION_^1LCCSSP_]_^1CCSPAS_]_^1 * THE FILE SPACE AUDIT REPORT IS COMPLETE_^1MNUPRO_]_^1/!_]_^__PLD05 CSY/ 1DEFINE,FN=PRFLD005,OW=LA,ED=999999,TY=S,LR=80,NR=20_^1LOAD,FN=PRFLD005,OW=LA_^1CHEKID_]_^1 * THE NON-FINANCIAL UPDATES WILL BE PROCESSED_^1 **** OPERATOR - MOUNT NON-FINANCIAL UPDATE INPUT TAPE ON TAPE UNIT '0'_^1 *_.CARRIAGE RETURN WHEN READY_^1CCSPAS_]_^1INPUT=PRFLD005_^1SWITCH_]_^110000000_]_^1LUD400_]_^1 * THE NON-FINANCIAL UPDATES HAVE BEEN PROCESSED_^1MNUPRO_]_^1/!_]_^__PLD06 CSY/ 1DEFINE,FN=PRFLD006,OW=LA,ED=999999,TY=S,LR=80,NR=20_^1LOAD,FN=PRFLD006,OW=LA_^1CHEKID_]_^1 * THE FINANCIAL UPDATES WILL BE PROCESSED_^1 **** OPERATOR - FINANCIAL UPDATE TAPE SHOULD BE MOUNTED ON UNIT '0'_^1 *_]_^1INPUT=PRFLD006_^1SWITCH_]_^110000000_]_^1INPUT=PRFLD006_^1MOUNT_]_^1FTAPE,B,P_]_^1/*_]_^1LUD500_]_^1 * THE FINANCIAL UPDATES HAVE BEEN PROCESSED_^1MNUPRO_]_^1/!_]_^__PLD07 CSY/ 1DEFINE,FN=PRFLD007,OW=LA,ED=999999,TY=S,LR=80,NR=15_^1LOAD,FN=PRFLD007,OW=LA_^1CHEKID_]_^1 * THE ACTIVE ACCOUNTS WILL BE UPDATED FROM HISTORY_^1LDHUPD_]_^1 * THE ACTIVE ACCOUNTS HAVE BEEN UPDATED FROM HISTORY_^1MNUPRO_]_^1/!_]_^__ PLD08 CSY/ 1DEFINE,FN=PRFLD008,OW=LA,ED=999999,TY=S,LR=80,NR=10_^1LOAD,FN=PRFLD008,OW=LA_^1CHEKID_]_^1 * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE_^1 *_*COLLECTORS ARE OFF-LINE FOR THE DAY_^1MNUPRO_]_^1/!_]_^__ PLD09 CSY/  3&| 1DEFINE,FN=PRFLD009,OW=LA,ED=999999,TY=S,LR=80,NR=10_^1LOAD,FN=PRFLD009,OW=LA_^1CHEKID_]_^1 * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE_^1 *_*COLLECTORS ARE OFF-LINE FOR THE DAY_^1MNUPRO_]_^1/!_]_^__ PLD10 CSY/ 1DEFINE,FN=PRFLD010,OW=LA,ED=999999,TY=S,LR=80,NR=40_^1LOAD,FN=PRFLD010,OW=LA_^1CHEKID_]_^1 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE_^1 *_.RESPOND: 'N' CARRIAGE RETURN - TO ABORT_^1 *_8CARRIAGE RETURN ONLY - TO CONTINUE_^1 *_]_^1CCSPAS_]_^1 * THE TRANSACTION FILE WILL BE SORTED FOR THE COLLECTORS REPORT_^1INPUT=PRFLD010_^1UTIL_]_^1CLEAR,FN=LATRNSFL_^1EX_]_^1INPUT=PRFLD010_^1DSORT_]_^1FN=LATRANFL,LA_^1F2=LATRNSFL,LA,_^1OP=T,F,A_]_^1KF=A,29,2,A,17,4,A,1,16,A,21,4,A,25,4,A,137,2_^1SL=I_]_^1LPRTSR_]_^1INPUT=PRFLD010_^1UTIL_]_^1CLEAR,FN=LAACTIVE_^1CLEAR,FN=LATRANFL_^1CLEAR,FN=LATRNBCK_^1EX_]_^1 * THE TRANSACTION FILE HAS BEEN SORTED FOR THE COLLECTORS REPORT_^1LNMCHG_]_^1INPUT=PRFLD010_^1UTIL_]_^1CLEAR,FN=LAADDACT_^1EX_]_^1MNUPRO_]_^1/!_]_^__ PLD11 CSY/ 1DEFINE,FN=PRFLD011,OW=LA,ED=999999,TY=S,LR=80,NR=45_^1LOAD,FN=PRFLD011,OW=LA_^1CHEKID_]_^1 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE_^1 *_.RESPOND: 'N' CARRIAGE RETURN - TO ABORT_^1 *_8CARRIAGE RETURN ONLY - TO CONTINUE_^1 *_]_^1CCSPAS_]_^1 * THE DAILY ASSIGNMENT FILES WILL BE CREATED_^1 *_]_^1 * THE LADLYASN FILE IS BEING CREATED_^1LDACRT_]_^1 * THE LADLYASN FILE HAS BEEN CREATED_^1 * THE LADLYASN FILE IS BEING SORTED_^1INPUT=PRFLD011_^1DSORT_]_^1FN=LADLYWRK,LA_^1FN=LADLYASN,LA_^1F2=LADLYASN,LA,_^1OP=T,F,A_]_^1KF=A,17,4,A,25,2,A,21,4,D,27,4,A,1,16_^1SL=I_]_^1 * THE LADLYASN FILE HAS BEEN SORTED_^1INPUT=PRFLD011_^1UTIL_]_^1CLEAR,FN=LADAQUE_^1EX_]_^1 * THE DAILY QUEUE FILE IS BEING CREATED_^1LDAQEL_]_^1 * THE DAILY QUEUE FILE HAS BEEN CREATED_^1 * THE FILE SPACE AUDIT REPORT WILL NOW BE PRINTED_^1 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING_^1 *_.SCREEN INFORMATION_^1LCCSSP_]_^1CCSPAS_]_^1 * THE FILE SPACE AUDIT REPORT IS COMPLETE_^1 * THE DAILY ASSIGNMENT FILES HAVE BEEN CREATED_^1MNUPRO_]_^1/!_]_^__ PLD12 CSY/ 1DEFINE,FN=PRFLD012,OW=LA,ED=999999,TY=S,LR=80,NR=35_^1LOAD,FN=PRFLD012,OW=LA_^1CHEKID_]_^1 *** OPERATOR - THE COLLECTORS MUST BE OFFLINE_^1 *_-RESPOND 'N' CARRIAGE RETURN - TO ABORT_^1 *_-CAR"  3&|RIAGE RETURN ONLY - TO CONTINUE_^1CCSPAS_]_^1 *SORT LAFILTMP AND LATRNSFL TRANSACTION FILES_^1INPUT=PRFLD012_^1DSORT_]_^1FN=LAFILTMP,LA_^1FN=LATRNSFL,LA_^1F2=LAFINTRN,,_^1OP=T,F,A_]_^1KF=A,1,20,A,40,4,A,50,3_^1SL=I_]_^1INPUT=PRFLD012_^1UTIL_]_^1CLEAR,FN=LAFILTMP_^1CLEAR,FN=LARPTDAT_^1EX_]_^1 *FINANCIAL TRANSACTIONS HAVE BEEN SORTED. BATCH UPDATE WILL BEGIN_^1LBATUD_]_^1 * BATCH UPDATE COMPLETE, AUDIT TRAIL REPORT WILL BEGIN_^1LBATPT_]_^1 * BATCH UPDATE PROCESS COMPLETE_^1MNUPRO_]_^1/!_]_^__ PLD13 CSY/ 1DEFINE,FN=PRFLD013,OW=LA,ED=999999,TY=S,LR=80,NR=20_^1LOAD,FN=PRFLD013,OW=LA_^1CHEKID_]_^1 *** OPERATOR - THE COLLECTORS MUST BE OFFLINE_^1 *_-RESPOND 'N' CARRIAGE RETURN - TO ABORT_^1 *_-CARRIAGE RETURN ONLY - TO CONTINUE_^1CCSPAS_]_^1 * THE LEGAL AND AGENCY EXTRACT PROGRAM WILL BEGIN_^1LAXTRT_]_^1 * THE LEGAL AND AGENCY EXTRACT PROCESS IS COMPLETE._^1 * REFERRAL REPORT WILL BEGIN_^1LARPRT_]_^1 * REFERRAL REPORT COMPLETE_^1MNUPRO_]_^1/!_]_^__PLH01 CSY/ 1DEFINE,FN=PRFLH001,OW=LA,ED=999999,TY=S,LR=80,NR=30_^1LOAD,FN=PRFLH001,OW=LA_^1CHEKID_]_^1 * THE INACTIVE ACCOUNTS WILL BE MOVED TO HISTORY_^1 * THE INACCT FILE IS BEING SORTED INTO ACCOUNT NUMBER ORDER_^1INPUT=PRFLH001_^1DSORT_]_^1FN=LAINACCT,LA_^1F2=LAINTEMP,LA,_^1OP=T,F,A_]_^1KF=A,1,16,D,23,2,D,19,4_^1SL=I_]_^1INPUT=PRFLH001_^1UTIL_]_^1CLEAR,FN=LAINACCT_^1COPY,FN=LAINTEMP,F2=LAINACCT,OW=LA_^1DELETE,FN=LAINTEMP_^1EX_]_^1 * THE LAINACCT FILE HAS BEEN SORTED INTO ACCOUNT NUMBER ORDER_^1 ****OPERATOR - MOUNT HISTORY FILE OUTPUT TAPE ON TAPE UNIT '0'_^1 *_-WITH WRITE RING_^1 *_-CARRIAGE RETURN WHEN READY_^1LMHUPD_]_^1 * THE INACTIVE ACCOUNTS HAVE BEEN MOVED TO HISTORY_^1MNUPRO_]_^1/!_]_^__ PLH02 CSY/ 0DEFINE,FN=PRFLH002,OW=LA,ED=999999,TY=S,LR=80,NR=40_^1LOAD,FN=PRFLH002,OW=LA_^1CHEKID_]_^0 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE_^0 *_.RESPOND: 'N' CARRIAGE RETURN - TO ABORT_^0 *_7CARRIAGE RETURN ONLY - TO CONTINUE_^0 *_]_^0CCSPAS_]_^1 * THE ACTIVE ACCOUNTS WILL BE UPDATED FROM THE TAPE ARCHIVES_^1INPUT=PRFLH002_^1UTIL_]_^1DEFINE,FN=LAUPDREQ,ED=999999,TY=S,LR=22,NR=300_^1EX_]_^1LCHUD1_]_^1 * THE LAUPDREQ FILE WILL BE SORTED_^1INPUT=PRFLH002_^1DSORT_]_^1FN=LAUPDREQ,LA_^1F2=LAUPDREQ,LA,_^1OP=T,F,A_]_^1KF=D,21,2,D,17,4,A,1,16_^1SL=I_]_^1 * THE LAUPDREQ FILE HASN  3&|1 BEEN SORTED_^1INPUT=PRFLH002_^1UTIL_]_^1CLEAR,FN=LAUPHSCM_^1EX_]_^1 **** OPERATOR - YOU WILL BE PROMPTED TO MOUNT TAPES DURING THE_^1 *_.EXECUTION OF THE NEXT JOB_^1LCHUD2_]_^1INPUT=PRFLH002_^1UTIL_]_^1DELETE,FN=LAUPDREQ_^1EX_]_^1 * THE ACTIVE ACCOUNTS HAVE BEEN UPDATED FROM THE TAPE ARCHIVES_^1MNUPRO_]_^1/!_]_^__PLH03 CSY/ 1DEFINE,FN=PRFLH003,OW=LA,ED=999999,TY=S,LR=80,NR=15_^1LOAD,FN=PRFLH003,OW=LA_^1CHEKID_]_^1 * THE LASUMHST FILE WILL BE PURGED_^1LPHDL2_]_^1LCMPSM_]_^1 * THE LASUMHST FILE HAS BEEN PURGED_^1MNUPRO_]_^1/!_]_^__ PLH04 CSY/ 1DEFINE,FN=PRFLH004,OW=LA,ED=999999,TY=S,LR=80,NR=15_^1LOAD,FN=PRFLH004,OW=LA_^1CHEKID_]_^1 * THE LATAPARC FILE WILL BE PURGED_^1LPHDL1_]_^1INPUT=PRFLH004_^1UTIL_]_^1COMPRE,FN=LATAPARC_^1EX_]_^1 * THE LATAPARC FILE HAS BEEN PURGED_^1MNUPRO_]_^1/!_]_^__PLH05 CSY/ 1DEFINE,FN=PRFLH005,OW=LA,ED=999999,TY=S,LR=80,NR=15_^1LOAD,FN=PRFLH005,OW=LA_^1CHEKID_]_^1 * THE CLIENT FILE WILL BE PURGED_^1 *_]_^1 * THE CLIENT PURGE REPORT WILL BE PRINTED_^1LACLPG_]_^1 * THE CLIENT FILE PURGE ROUTINES ARE COMPLETE_^1MNUPRO_]_^1/!_]_^__PLM01 CSY/ 1DEFINE,FN=PRFLM001,OW=LA,ED=999999,TY=S,LR=80,NR=20_^1LOAD,FN=PRFLM001,OW=LA_^1CHEKID_]_^1 * THE LETTER DEFINITION FILE WILL BE PRINTED_^1INPUT=PRFLM001_^1UTIL_]_^1LIST,FN=LALTRDSC,L=LPRINTER,F=U_^1EX_]_^1 * THE LETTER DEFINITION FILE HAS BEEN PRINTED_^1 **** OPERATOR - IF ANY CHANGES ARE TO BE MADE TO THE LETTER FILE_^1 *_.ENTER THE EDITOR TO PROCESS THE LALTRDSC FILE, WHEN_^1 *_.COMPLETE PERFORM THE NEXT MENU PROCEDURE STEP "B"_^1 *_.CARRIAGE RETURN WHEN READY TO CONTINUE_^1CCSPAS_]_^1MNUPRO_]_^1/!_]_^__G  3&|EPLM02 CSY/ 1DEFINE,FN=PRFLM002,OW=LA,ED=999999,TY=S,LR=80,NR=15_^1LOAD,FN=PRFLM002,OW=LA_^1CHEKID_]_^1 * THE LETTER FILE WILL BE CREATED_^1INPUT=PRFLM002_^1UTIL_]_^1CLEAR,FN=LALTRFIL_^1EX_]_^1LLTBLD_]_^1 * THE LETTER FILE HAS BEEN CREATED_^1MNUPRO_]_^1/!_]_^__ PLM03 CSY/ 1DEFINE,FN=PRFLM003,OW=LA,ED=999999,TY=S,LR=80,NR=25_^1LOAD,FN=PRFLM003,OW=LA_^1CHEKID_]_^1 * THE UTILITY FILE MAINTENANCE ROUTINE WILL BE EXECUTED_^1 *_]_^1 **** OPERATOR - YOU CAN ADD, UPDATE OR DELETE UTILITY FILE RECORDS_^1 *_.FROM THE CONSOLE_^1 *_]_^1 *_.FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN_^1LUTFMT_]_^1 * THE UTILITY FILE WILL BE LISTED ON THE PRINTER_^1INPUT=PRFLM003_^1UTIL_]_^1LIST,FN=LAUTIFIL,L=LPRINTER,F=U_^1EX_]_^1 * CHECK PRINTER LISTING TO VERIFY THAT RECORDS ARE CORRECT_^1 * THE UTILITY FILE MAINTENANCE ROUTINE IS COMPLETE_^1MNUPRO_]_^1/!_]_^__ PLM04 CSY/ 1DEFINE,FN=PRFLM004,OW=LA,ED=999999,TY=S,LR=80,NR=15_^1LOAD,FN=PRFLM004,OW=LA_^1CHEKID_]_^1 * THE DECISION TABLE MAINTENANCE ROUTINE WILL BE EXECUTED_^1 *_]_^1 ****OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN_^1LDECMT_]_^1 * THE DECISION TABLE MAINTENANCE ROUTINE IS COMPLETE_^1MNUPRO_]_^1/!_]_^__PLM05 CSY/ 1DEFINE,FN=PRFLM005,OW=LA,ED=999999,TY=S,LR=80,NR=15_^1LOAD,FN=PRFLM005,OW=LA_^1CHEKID_]_^1 * THE ACTIVITY VERIFICATION TABLE WILL BE PRINTED_^1LAVMDP_]_^1 * THE ACTIVITY VERIFICATION TABLE HAS BEEN PRINTED_^1MNUPRO_]_^1/!_]_^__PLM06 CSY/ 'P  3&|Y1DEFINE,FN=PRFLM006,OW=LA,ED=999999,TY=S,LR=80,NR=15_^1LOAD,FN=PRFLM006,OW=LA_^1CHEKID_]_^1 * THE ACTIVITY VERIFICATION TABLE ROUTINE WILL BE EXECUTED_^1 *_]_^1LAVMCN_]_^1 * THE ACTIVITY VERIFICATION TABLE ROUTINE IS COMPLETE_^1 * THE ACTIVITY VERIFICATION TABLE WILL BE PRINTED_^1LAVMDP_]_^1 * THE ACTIVITY VERIFICATION TABLE HAS BEEN PRINTED_^1MNUPRO_]_^1/!_]_^__ PLM07 CSY/ 1DEFINE,FN=PRFLM007,OW=LA,ED=999999,TY=S,LR=80,NR=15_^1LOAD,FN=PRFLM007,OW=LA_^1CHEKID_]_^1 * THE FILE SPACE AUDIT REPORT WILL BE PRINTED_^1 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING_^1 *_.SCREEN INFORMATION_^1LCCSSP_]_^1CCSPAS_]_^1 * THE FILE SPACE AUDIT REPORT IS COMPLETE_^1MNUPRO_]_^1/!_]_^__PLM08 CSY/ 1DEFINE,FN=PRFLM008,OW=LA,ED=999999,TY=S,LR=80,NR=20_^1LOAD,FN=PRFLM008,OW=LA_^1CHEKID_]_^1 * THE SCREEN DEFINITION FILE WILL BE PRINTED_^1INPUT=PRFLM008_^1UTIL_]_^1LIST,FN=LASCNDSC,L=LPRINTER,F=U_^1EX_]_^1 * THE SCREEN DEFINITION FILE HAS BEEN PRINTED_^1 **** OPERATOR - IF CHANGES ARE TO BE MADE TO THE SCREEN DESCRIPTION_^1 *_.FILE ENTER THE EDITOR TO PROCESS THE LASCNDSC FILE,_^1 *_.WHEN COMPLETE PERFORM THE NEXT MENU PROCEDURE STEP 'K'_^1 *_.CARRIAGE RETURN WHEN READY TO CONTINUE_^1CCSPAS_]_^1MNUPRO_]_^1/!_]_^__PLM09 CSY/ 1DEFINE,FN=PRFLM009,OW=LA,ED=999999,TY=S,LR=80,NR=15_^1LOAD,FN=PRFLM009,OW=LA_^1CHEKID_]_^1 * THE SCREEN FILE WILL BE CREATED_^1LBLDSR_]_^1 * THE SCREEN FILE HAS BEEN CREATED_^1MNUPRO_]_^1/!_]_^__PLM10 CSY/ 1DEFINE,FN=PRFLM010,OW=LA,ED=999999,TY=S,LR=80,NR=20_^1LOAD,FN=PRFLM010,OW=LA_^1CHEKID_]_^0 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE_^0 *_.RESPOND: 'N' CARRIAGE RETURN - TO ABORT_^0 *_7@  3&|mCARRIAGE RETURN ONLY - TO CONTINUE_^0 *_]_^0CCSPAS_]_^1 * THE LADLQMST, LACOSIGN AND LAACTFIL FILES WILL BE PURGED_^1LCMPDQ_]_^1INPUT=PRFLM010_^1UTIL_]_^1COMPRE,FN=LACOSIGN_^1COMPRE,FN=LAACTFIL_^1EX_]_^1 * THE LADLQMST, LACOSIGN AND LAACTFIL FILES HAVE BEEN PURGED_^1MNUPRO_]_^1/!_]_^__PLM11 CSY/ 1DEFINE,FN=PRFLM011,OW=LA,ED=999999,TY=S,LR=80,NR=15_^1LOAD,FN=PRFLM011,OW=LA_^1CHEKID_]_^1 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE_^1 * WILL BE PRINTED_^1LACTMT_]_^1 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE_^1 * HAS BEEN PRINTED_^1MNUPRO_]_^1/!_]_^__PLM12 CSY/ 1DEFINE,FN=PRFLM012,OW=LA,ED=999999,TY=S,LR=80,NR=15_^1LOAD,FN=PRFLM012,OW=LA_^1CHEKID_]_^1 * THE LEGAL ACTIVE USER FILE MAINTENANCE ROUTINE WILL BE EXECUTED_^1 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN_^1 *_]_^1LUSEMT_]_^1 * THE LEGAL ACTIVE USER FILE MAINTENANCE ROUTINE IS COMPLETE_^1MNUPRO_]_^1/!_]_^__ PLM13 CSY/ 1DEFINE,FN=PRFLM013,OW=LA,ED=999999,TY=S,LR=80,NR=10_^1LOAD,FN=PRFLM013,OW=LA_^1CHEKID_]_^1 * THE REPORT GENERATOR DATA ELEMENT TABLE WILL BE PRINTED_^1LPGLTB_]_^1MNUPRO_]_^1/!_]_^__PLM14 CSY/ 1DEFINE,FN=PRFLM014,OW=LA,ED=999999,TY=S,LR=80,NR=40_^1LOAD,FN=PRFLM014,OW=LA_^1CHEKID_]_^1 * THE REPORT GENERATOR DATA ELEMENT TABLE ROUTINES WILL BE EXECUTED_^1 *_]_^1 * THE DATA ELEMENT TABLE WILL BE PRINTED_^1LPGLTB_]_^1 * THE DATA ELEMENT TABLE HAS BEEN PRINTED_^1 *_]_^1 * THE DATA ELEMENT TABLE WILL BE UPDATED_^1 *_]_^1 ****OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN_^1 *_]_^1INPUT=PRFLM014_^1SWITCH_]_^1000000000_]_^1LPGUTB_]_^1 * THE DATA ELEMENT TABLE HAS BEEN UPDATED_^1 *_]_^1 * THE DATA ELEMENT TABLE WILL BE PURGED_^1INPUT=PRFLM014_^1UTIL_]  3&|_^1DEFINE,FN=LATBLWRK,TY=R,K1=6,P1=1,NR=2000,LR=80_^1EX_]_^1LPGCMP_]_^1INPUT=PRFLM014_^1UTIL_]_^1DELETE,FN=LARPTTBL_^1RENAME,FN=LATBLWRK,F2=LARPTTBL_^1EX_]_^1 * THE DATA ELEMENT TABLE HAS BEEN PURGED_^1 *_]_^1 * THE REPORT GENERATOR DATA ELEMENT TABLE ROUTINES ARE COMPLETE_^1MNUPRO_]_^1/!_]_^__ PLM15 CSY/ 1DEFINE,FN=PRFLM015,OW=LA,ED=999999,TY=S,LR=80,NR=35_^1LOAD,FN=PRFLM015,OW=LA_^1CHEKID_]_^1 * THE PROGRAM DIRECTORY FILE ROUTINES WILL BE EXECUTED_^1 *_]_^1 * THE PROGRAM DIRECTORY FILE WILL BE PRINTED_^1LPGLIS_]_^1 * THE PROGRAM DIRECTORY FILE HAS BEEN PRINTED_^1 *_]_^1 *_]_^1 * THE PROGRAM DIRECTORY FILE WILL BE PURGED_^1 *_]_^1 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN_^1 *_]_^1LPGPRG_]_^1INPUT=PRFLM015_^1UTIL_]_^1COMPRE,FN=LARPTPGM_^1EX_]_^1 * THE PROGRAM DIRECTORY FILE HAS BEEN PURGED_^1 *_]_^1 * THE PROGRAM DIRECTORY FILE WILL BE PRINTED_^1LPGLIS_]_^1 * THE PROGRAM DIRECTORY FILE HAS BEEN PRINTED_^1 *_]_^1 * THE PROGRAM DIRECTORY FILE ROUTINES HAVE BEEN EXECUTED_^1MNUPRO_]_^1/!_]_^__ PLM16 CSY/ 1DEFINE,FN=PRFLM016,OW=LA,ED=999999,TY=S,LR=80,NR=15_^1LOAD,FN=PRFLM016,OW=LA_^1CHEKID_]_^1 * THE SCREEN FILES WILL BE PRINTED_^1 *_]_^1 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN_^1 *_]_^1LPRSCN_]_^1 * THE SCREEN FILES HAVE BEEN PRINTED_^1MNUPRO_]_^1/!_]_^__ PLM17 CSY/ 1DEFINE,FN=PRFLM017,OW=LA,ED=999999,TY=S,LR=80,NR=15_^1LOAD,FN=PRFLM017,OW=LA_^1CHEKID_]_^0LCLIUD_]_^1 * THE CLIENT FILE MAINTENANCE PROGRAM WILL BEGIN_^1CLIENT_]_^1 * THE CLIENT FILE MAINTENANCE PROGRAM HAS COMPLETED_^1MNUPRO_]_^1/!_]_^__ PLO01 CSY/ 1DEFINE,FN=PRFLO001,OW=LA,ED=999999,TY=S,LR=80,NR=20_^1LOAD,FN=PRFLO001,OW=LA_^1CHEKID_]_^1INPUT=PRFLO001_^1SWITCH_]_^110000000_]_^1 * DELINQUENT RECORD CONTENT REPORT WILL NOW BE PRINTED_^1 *!  3&| THE ACCOUNTS BEING PRINTED ARE THE INACTIVE ACCOUNTS NOT PREVIOUSLY_^1 * PRINTED_]_^1LDTLST_]_^1 * THE DELINQUENT RECORD CONTENT REPORT IS COMPLETE_^1MNUPRO_]_^1/!_]_^__PLO02 CSY/ 1DEFINE,FN=PRFLO002,OW=LA,ED=999999,TY=S,LR=80,NR=20_^1LOAD,FN=PRFLO002,OW=LA_^1CHEKID_]_^1INPUT=PRFLO002_^1SWITCH_]_^101000000_]_^1 * DELINQUENT RECORD CONTENT REPORT WILL NOW BE PRINTED_^1 * THE ACCOUNTS BEING PRINTED WERE REQUESTED BY THE SUPERVISOR_^1LDTLST_]_^1INPUT=PRFLO002_^1UTIL_]_^1CLEAR,FN=LASREQDL_^1EX_]_^1 * THE DELINQUENT RECORD CONTENT REPORT IS COMPLETE_^1MNUPRO_]_^1/!_]_^__ PLO03 CSY/ 1DEFINE,FN=PRFLO003,OW=LA,ED=999999,TY=S,LR=80,NR=40_^1LOAD,FN=PRFLO003,OW=LA_^1CHEKID_]_^1 * CALCULATE AGE FOR TREND ANALYSIS_^1LTRNDF_]_^1 * THE TREND ANALYSIS AGE CALCULATION IS COMPLETE_^1 *_]_^1 * THE LAACCAGE AND LARSWFIL FILES ARE BEING SORTED INTO LAAGEWRK_^1INPUT=PRFLO003_^1UTIL_]_^1DELETE,FN=LAAGEWRK_^1EX_]_^1INPUT=PRFLO003_^1DSORT_]_^1FN=LAACCAGE,LA_^1FN=LARSWFIL,LA_^1F2=LAAGEWRK,LA,SYSVOL_^1OP=T,F,A_]_^1KF=A,1,1,A,17,4_^1SL=I_]_^1 * THE LAACCAGE AND LARSWFIL FILES HAVE BEEN SORTED_^1 *_]_^1 **** OPERATOR -_^1 *_"RESPOND:_!'N' CARRIAGE RETURN TO BYPASS UPDATING PREVIOUS_^1 *_.TREND DATA FOR NEXT RUN_^1 *_]_^1 *_.CARRIAGE RETURN ONLY TO UPDATE PREVIOUS TREND DATA_^1 *_.FOR NEXT RUN_^1CCSPAS_]_^1LTRNDU_]_^1INPUT=PRFLO003_^1UTIL_]_^1CLEAR,FN=LARSWFIL_^1EX_]_^1MNUPRO_]_^1/!_]_^__ PLO04 CSY/ 1DEFINE,FN=PRFLO004,OW=LA,ED=999999,TY=S,LR=80,NR=25_^1LOAD,FN=PRFLO004,OW=LA_^1CHEKID_]_^1 * GENERATE THE TREND ANALYSIS REPORT BY QUEUE_^1 * THE LAAGEWRK FILE IS BEING SORTED_^1INPUT=PRFLO004_^1DSORT_]_^1FN=LAAGEWRK,LA_^1F2=LAAGEWRK,LA,_^1OP=T,F,A_]_^1KF=A,1,1,A,17,4_^1SL=I_]_^1 * THE LAAGEWRK FILE HAS BEEN SORTED_^1 * THE TREND ANALYSIS REPORT BY QUEUE WILL NOW BE PRINTED_^1INPUT=PRFLO004_^1SWITCH_]_^110000000_]_^1LTRNDP_]_^1 * THE TREND ANALYSIS REPORT BY QUEUE IS COMPLETE_^1MNUPRO_]_^1/!_]_^__  3&|PLO05 CSY/ 1DEFINE,FN=PRFLO005,OW=LA,ED=999999,TY=S,LR=80,NR=25_^1LOAD,FN=PRFLO005,OW=LA_^1CHEKID_]_^1 * GENERATE THE TREND ANALYSIS REPORT BY PRODUCT TYPE_^1 * THE LAAGEWRK FILE IS BEING SORTED_^1INPUT=PRFLO005_^1DSORT_]_^1FN=LAAGEWRK,LA_^1F2=LAAGEWRK,LA,_^1OP=T,F,A_]_^1KF=A,1,1,A,25,4_^1SL=I_]_^1 * THE LAAGEWRK FILE HAS BEEN SORTED_^1 * THE TREND ANALYSIS REPORT BY PRODUCT TYPE WILL NOW BE PRINTED_^1INPUT=PRFLO005_^1SWITCH_]_^100000000_]_^1LTRNDP_]_^1 * THE TREND ANALYSIS REPORT BY PRODUCT TYPE IS COMPLETE_^1MNUPRO_]_^1/!_]_^__PLO06 CSY/ 1DEFINE,FN=PRFLO006,OW=LA,ED=999999,TY=S,LR=80,NR=35_^1LOAD,FN=PRFLO006,OW=LA_^1CHEKID_]_^1 * THE WRITE-OFF REPORT WILL BE GENERATED_^1 * THE LAWOEF FILE WILL BE CREATED_^1INPUT=PRFLO006_^1UTIL_]_^1DEFINE,FN=LAWOEF,ED=999999,TY=S,LR=115,NR=6000_^1EX_]_^1LWROFE_]_^1 * THE LAWOEF FILE HAS BEEN CREATED_^1 * THE LAWOEF FILE IS BEING SORTED_^1INPUT=PRFLO006_^1DSORT_]_^1FN=LAWOEF,LA_^1F2=LAWOEF,LA,_^1OP=T,F,A_]_^1KF=A,25,1,A,17,4,A,21,4,A,1,16_^1SL=I_]_^1 * THE LAWOEF FILE HAS BEEN SORTED_^1 * THE WRITE-OFF REPORT WILL BE PRINTED_^1LWROFP_]_^1INPUT=PRFLO006_^1UTIL_]_^1DELETE,FN=LAWOEF_^1EX_]_^1 * THE WRITE-OFF REPORT IS COMPLETE_^1MNUPRO_]_^1/!_]_^__PLO07 CSY/ 1DEFINE,FN=PRFLO007,OW=LA,ED=999999,TY=S,LR=80,NR=15_^1LOAD,FN=PRFLO007,OW=LA_^1CHEKID_]_^1 * THE DAILY ASSIGNMENT REPORT LIST WILL BE PRINTED_^1LDALST_]_^1 * THE DAILY ASSIGNMENT LIST REPORT IS COMPLETE_^1MNUPRO_]_^1/!_]_^__ PLO08 CSY/ 1DEFINE,FN=PRFLO008,OW=LA,ED=999999,TY=S,LR=80,NR=15_^1LOAD,FN=PRFLO008,OW=LA_^1CHEKID_]_^1 * THE SUMMARY ACCOUNT REPORT LIST WILL BE PRINTED_^1LSUMAC_]_^1 * THE SUMMARY ACCOUNT REPORT LIST ISA  3&y?ALy?P ACCS20 IT IN THE STRTBL_^1_%STA- ADDR,I_'SAVE THE NUMBER OF THE WORD IN THE STORAGE_^1_%ENA 1_^1EAB2_!SQZ EAB1-*-1_$COMPUTE THE BIT POSITION CORRESPONDING TO_^1_%INQ -1_+PSC00 CSY/ 000201INPUT=TAPE0_^1QTIL_]_^1DEFINE,FN=PRFSC001,ED=999999,TY=S,LR=80,NR=1500,OW=$$_^1DEFINE,FN=PRFSC002,ED=999999,TY=S,LR=80,NR=1500,OW=$$_^1DEFINE,FN=PRFSC003,ED=999999,TY=S,LR=80,NR=1500,OW=$$_^1DEFINE,FN=PRFSC004,ED=999999,TY=S,LR=80,NR=1500,OW=$$_^1DEFINE,FN=PRFSC005,ED=999999,TY=S,LR=80,NR=2500,OW=$$_^1DEFINE,FN=PRFSC006,ED=999999,TY=S,LR=80,NR=2500,OW=$$_^1DEFINE,FN=PRFSC007,ED=999999,TY=S,LR=80,NR=2500,OW=$$_^1DEFINE,FN=PRFSC008,ED=999999,TY=S,LR=80,NR=2500,OW=$$_^1DEFINE,FN=PRFSC009,ED=999999,TY=S,LR=80,NR=200,OW=$$_^1DEFINE,FN=PRFSC010,ED=999999,TY=S,LR=80,NR=250,OW=$$_^1DEFINE,FN=DMDLQMST,OW=$$,ED=999999,TY=R,K1=16,P1=1,K2=6,P2=18,LR=2000;_^1NR=100_]_^1DEFINE,FN=DMCOSIGN,OW=$$,ED=999999,TY=R,K1=16,P1=1,LR=362,NR=10_^1DEFINE,FN=DMRPTTBL,OW=$$,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=2000_^1DEFINE,FN=DMACTVTB,OW=$$,ED=999999,TY=S,LR=320,NR=1_^1DEFINE,FN=DMUTIFIL,OW=$$,ED=999999,TY=R,K1=4,P1=1,LR=80,NR=150_^1DEFINE,FN=DMSCNDSC,OW=$$,ED=999999,TY=S,LR=80,NR=3000_^1DEFINE,FN=DMSCNFIL,OW=$$,ED=999999,TY=R,K1=2,P1=1,LR=1800,NR=100_^1DEFINE,FN=DMDECTBL,OW=$$,ED=999999,TY=S,LR=3000,NR=1_^1DEFINE,FN=DMLTRDSC,OW=$$,ED=999999,TY=S,LR=80,NR=2000_^1DEFINE,FN=DMLTRFIL,OW=$$,ED=999999,TY=R,K1=2,P1=1,LR=1512,NR=50_^1DEFINE,FN=DMNEWS,OW=$$,ED=999999,TY=S,LR=80,NR=100_^1DEFINE,FN=DMACCAGE,OW=$$,ED=999999,TY=R,K1=16,P1=1,LR=82,NR=100_^1DEFINE,FN=DMSUMHIS,OW=$$,ED=999999,TY=R,K1=16,P1=1,LR=666,NR=10_^1DEFINE,FN=DMTAPARC,OW=$$,ED=999999,TY=R,K1=16,P1=1,LR=46,NR=10_^1DEFINE,FN=DLRPTTBL,OW=$$,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=2000_^1DEFINE,FN=DLACTVTB,OW=$$,ED=999999,TY=S,LR=320,NR=1_^1DEFINE,FN=DLUTIFIL,OW=$$,ED=999999,TY=R,K1=4,P1=1,LR=80,NR=150_^1DEFINE,FN=DLSCNDSC,OW=$$,ED=999999,TY=S,LR=80,NR=3000_^1DEFINE,FN=DLSCNFIL,OW=$$,ED=999999,TY=R,K1=2,P1=1,LR=2000,NR=100_^1DEFINE,FN=DLDECTBL,OW=$$,ED=999999,TY=S,LR=3000,NR=1_^1DEFINE,FN=SFDACRTE,OW=CCS20,ED=999999,TY=S,LR=80,NR=500_^1DEFINE,FN=SRDTLLST,OW=CCS20,ED=999999,TY=S,LR=80,NR=1000_^1DEFINE,FN=SFLDACRT,OW=LA,ED=999999,TY=S,LR=80,NR=500_^1DEFINE,FN=SRLDTLST,OW=LA,ED=999999,TY=S,LR=80,NR=1000_^1DEFINE,FN=SFLAXTRT,OW=LA,ED=999999,TY=S,LR=80,NR=300_^1DEFINE,FN=SRLARPRT,OW=LA,ED=999999,TY=S,LR=80,NR=300_^1DEFINE,FN=DISCQT,OW=$$,ED=999999,TY=S,LR=80,NR=100_^1DEFINE,FN=UPDATE.I,OW=CCS20,ED=999999,TY=S,LR=80,NR=20_^1DEFINE,FN=UPDATE.B,OW=CCS20,ED=999999,TY=S,LR=120,NR=1000_^1DEFINE,FN=LUPDAT.I,OW=LA,ED=999999,TY=S,LR=80,NR=20_^1DEFINE,FN=LUPDAT.B,OW=LA,ED=999999,TY=S,LR=120,NR=1000_^1EX_]_^1LODDAT_]_^__DISCQT CSY/ 000201*JOB,PURGE,-----------PURGE PROGRAM LIBRARY_^1*LIBEDT_]_^1*R,QTIL,F_]_^1*R,QTDEFI,F_^1*R,QTDELE,F_^1*R,QTCOMM,F_^1*R,QTLOAD,F_^1*R,QTORLD,F_^1*R,QTRMLD,F_^1*R,LODDAT,F_^1*R,MOVDAT,F_^1*R,LMOV#  3&ySDT,F_^1*R,CLRFIL,F_^1*R,LCLRFL,F_^1*Z_]_^1*Z_]_^__UPDATI CSY/ 000201*JOB,UPDATE,---------UPDATE INSTALL TO LINK TO CCSPYT_^1*CTO, BEGIN UPDATE INSTALLATION TO LINK TO CCSPYT_^1*OPEN,FN=UPDATE.B,OW=CCS20,R,LU=20_^1*LIBEDT_]_^1*K,I20,P8_]_^1*P,F,2_]_^1*K,I8_]_^1*N,UPDATE,,,B_^1*Z_]_^1*CTO, UPDATE INSTALLATION COMPLETE_^1*CLOSE_]_^1*Z_]_^__LUPDTI CSY/ 000201*JOB,LUPDAT,---------LUPDAT INSTALL TO LINK TO LCCSPY_^1*CTO, BEGIN LUPDAT INSTALLATION TO LINK TO LCCSPY_^1*OPEN,FN=LUPDAT.B,OW=CCS20,R,LU=20_^1*LIBEDT_]_^1*K,I20,P8_]_^1*P,F,2_]_^1*K,I8_]_^1*N,LUPDAT,,,B_^1*Z_]_^1*CTO, LUPDAT INSTALLATION COMPLETE_^1*CLOSE_]_^1*Z_]_^__UPDATS CSY/ 000101*B 'UPDATE' ' A21 A CCS CCS 3.0'_^1*B 'Q8QBDS' ' C46 F CCS CCS 3.0'_^1*B 'FUPDAT' ' B56 F CCS CCS 3.0'_^1*B 'UPINIT' ' C49 F CCS CCS 3.0'_^1*B 'LABHAN' ' B67 F CCS CCS 3.0'_^1*B 'NXTRAN' ' B85 F CCS CCS 3.0'_^1*B 'TOTALP' ' C23 F CCS CCS 3.0'_^1*B 'UPDEND' ' C47 F CCS CCS 3.0'_^1*B 'GETMAS' ' B58 F CCS CCS 3.0'_^1*B 'RSWIT'_!' C16 F CCS CCS 3.0'_^1*B 'UNCUPD' ' C31 F CCS CCS 3.0'_^1*B 'CONUPD' ' B32 F CCS CCS 3.0'_^1*B 'COSUPD' ' B33 F CCS CCS 3.0'_^1*B 'UPDIT'_!' C48 F CCS CCS 3.0'_^1*B 'REACIT' ' C14 F CCS CCS 3.0'_^1*B 'PRTLIN' ' C09 F CCS CCS 3.0'_^1*B 'FORMLN' ' B53 F CCS CCS 3.0'_^1*B 'ADDIT'_!' B05 F CCS CCS 3.0'_^1*B 'CHNGNF' ' B24 F CCS CCS 3.0'_^1*B 'R9BASE' ' C12 F CCS CCS 3.0'_^1*B 'R9FLDL' ' C13 F CCS CCS 3.0'_^1*END_]_^__ LUPDTS CSY/ 002501*B 'LUPDAT' ' E04 A LA_!CCS 3.0'_^1*B 'Q8QBDS' ' C46 F CCS CCS 3.0'_^1*B 'LAFUPD' ' F14 F LA_!CCS 3.0'_^1*B 'UPINIT' ' C49 F CCS CCS 3.0'_^1*B 'LABHAN' ' B67 F CCS CCS 3.0'_o  3&yg^1*B 'TOTALP' ' C23 F CCS CCS 3.0'_^1*B 'UPDEND' ' C47 F CCS CCS 3.0'_^1*B 'GETMAS' ' B58 F CCS CCS 3.0'_^1*B 'RSWIT'_!' C16 F CCS CCS 3.0'_^1*B 'LAUNCU' ' F17 F LA_!CCS 3.0'_^1*B 'CONUPD' ' B32 F CCS CCS 3.0'_^1*B 'COSUPD' ' B33 F CCS CCS 3.0'_^1*B 'UPDIT'_!' C48 F CCS CCS 3.0'_^1*B 'REACIT' ' C14 F CCS CCS 3.0'_^1*B 'PRTLIN' ' C09 F CCS CCS 3.0'_^1*B 'FORMLN' ' B53 F CCS CCS 3.0'_^1*B 'ADDIT'_!' B05 F CCS CCS 3.0'_^1*B 'CHNGNF' ' B24 F CCS CCS 3.0'_^1*B 'R9BASE' ' C12 F CCS CCS 3.0'_^1*B 'R9FLDL' ' C13 F CCS CCS 3.0'_^1*END_]_^__ PSC01A CSY/ 000201 *_]_^1 * PROCEDURE TO BUILD 12000_$ACCOUNT SYSTEM IN PROCESS._^1INPUT=PRFSC001_^1QTIL_]_^__PSC01B CSY/ 000901DEFINE,FN=$$MOUNTS,ED=999999,TY=R,K1=2,P1=1,K2=8,P2=3,LR=42,OW=CCS20;_^1NR=50_]_^1DEFINE,FN=ACCAGE,ED=999999,TY=R,K1=16,P1=1,LR=82,NR=12000,OW=CCS20_^1DEFINE,FN=ACTFIL,ED=999999,TY=R,K1=18,P1=1,LR=500,NR=12000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=ACTIVE,ED=999999,TY=R,K1=4,P1=1,LR=10,NR=320,OW=CCS20_^1DEFINE,FN=ACTVERTB,ED=999999,TY=S,LR=320,NR=1,VL=CDD01,OW=CCS20_^1DEFINE,FN=ADDACT,ED=999999,TY=S,LR=18,NR=12000,VL=CDD01,OW=CCS20_^1DEFINE,FN=AGEWRK,ED=999999,TY=S,LR=82,NR=12000,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=AVMDESC,TY=S,LR=80,ED=999999,NR=100,VL=CDD01,OW=CCS20_^1DEFINE,FN=COLSTATS,ED=999999,TY=R,K1=7,P1=1,LR=20,NR=4096,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=COSIGNER,ED=999999,TY=R,K1=16,P1=1,LR=362,NR=12000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=DAQUE,ED=999999,TY=R,K1=4,P1=1,LR=8,NR=64,VL=CDD01,OW=CCS20_^1DEFINE,FN=DECTBL,ED=999999,TY=S,LR=3000,NR=1,VL=CDD01,OW=CCS20_^1DEFINE,FN=DELQMST,ED=999999,TY=R,K1=16,P1=1,K2=6,P2=18,LR=2000,NR=12000;_^1VL=CDD01,OW=CCS20_^1DEFINE,FN=DLYASSN,ED=999999,TY=S,LR=40,NR=12000,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=DLYWRK,ED=999999,TY=S,LR=40,NR=1000,VL=CDD01,OW=CCS20_^1DEFINE,FN=DUMMY,ED=999999,TY=S,LR=80,NR=1,VL=CDD01,OW=CCS20_^1LOAD,FN=DUMMY,OW=CCS20_^1_]_^1/!_]_^1DEFINE,FN=INACCT,ED=999999,TY=S,LR=24,NR=12000,VL=CDD01,OW=CCS20_^1DEFINE,FN=LTRDESC,TY=S,LR=80,ED=999999,NR=2000,OW=CCS20_^1DEFINE,FN=LTRFIL,ED=999999,TY=R,K1=2,P1=1,LR=1512,NR=50,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=NEWS,ED=999999,TY=S,LR=80,NR=100,VL=CDD01,OW=CCS20_^1DEFINE,FN=PGEXTR,ED=999999,TY=S,LR=132,NR=12000,OW=CCS20_^1DEFINE,FN=RPTPGM,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=20,VL=CDD01,OW=CCS20_^1DEFINE,FN=RPTTBL,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=2000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=RSWFIL,ED=999999,TY=S,LR=82,NR=v  3&y{6000,VL=CDD01,OW=CCS20_^1DEFINE,FN=SCRNDESC,ED=999999,TY=S,LR=80,NR=3000,VL=CDD01,OW=CCS20_^1DEFINE,FN=SCRNFILE,ED=999999,TY=R,K1=2,P1=1,LR=1800,NR=100,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=SREQDL,ED=999999,TY=S,LR=20,NR=100,VL=CDD01,OW=CCS20_^1DEFINE,FN=SUMHIST,ED=999999,TY=R,K1=16,P1=1,LR=666,NR=12000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=TAPEARC,ED=999999,TY=R,K1=16,P1=1,LR=46,NR=12000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=TRANFL,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=SYSVOL_^1DEFINE,FN=TRNBCK,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=CDD01_^1DEFINE,FN=TRNSFL,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=SYSVOL_^1DEFINE,FN=UPHSTCM,ED=999999,TY=S,LR=20,NR=100,VL=CDD01,OW=CCS20_^1DEFINE,FN=UTIFIL,ED=999999,TY=R,K1=4,P1=1,LR=80,NR=150,VL=CDD01,OW=CCS20_^1EX_]_^1MOVDAT_]_^1 * THE 12000 ACCOUNT SYSTEM BUILD IS COMPLETE_^1 *_]_^1 * PROCEED WITH THE INSTALLATION TEST PROCEDURES_^1 *_]_^1MNUPRO_]_^__PSC02A CSY/ 000201 *_]_^1 * PROCEDURE TO BUILD 24000_$ACCOUNT SYSTEM IN PROCESS._^1INPUT=PRFSC002_^1QTIL_]_^__PSC02B CSY/ 000901DEFINE,FN=$$MOUNTS,ED=999999,TY=R,K1=2,P1=1,K2=8,P2=3,LR=42,OW=CCS20;_^1NR=50_]_^1DEFINE,FN=ACCAGE,ED=999999,TY=R,K1=16,P1=1,LR=82,NR=24000,OW=CCS20_^1DEFINE,FN=ACTFIL,ED=999999,TY=R,K1=18,P1=1,LR=500,NR=24000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=ACTIVE,ED=999999,TY=R,K1=4,P1=1,LR=10,NR=320,OW=CCS20_^1DEFINE,FN=ACTVERTB,ED=999999,TY=S,LR=320,NR=1,VL=CDD01,OW=CCS20_^1DEFINE,FN=ADDACT,ED=999999,TY=S,LR=18,NR=24000,VL=CDD01,OW=CCS20_^1DEFINE,FN=AGEWRK,ED=999999,TY=S,LR=82,NR=24000,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=AVMDESC,TY=S,LR=80,ED=999999,NR=100,VL=CDD01,OW=CCS20_^1DEFINE,FN=COLSTATS,ED=999999,TY=R,K1=7,P1=1,LR=20,NR=4096,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=COSIGNER,ED=999999,TY=R,K1=16,P1=1,LR=362,NR=24000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=DAQUE,ED=999999,TY=R,K1=4,P1=1,LR=8,NR=64,VL=CDD01,OW=CCS20_^1DEFINE,FN=DECTBL,ED=999999,TY=S,LR=3000,NR=1,VL=CDD01,OW=CCS20_^1DEFINE,FN=DELQMST,ED=999999,TY=R,K1=16,P1=1,K2=6,P2=18,LR=2000,NR=24000;_^1VL=CDD02,OW=CCS20_^1DEFINE,FN=DLYASSN,ED=999999,TY=S,LR=40,NR=24000,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=DLYWRK,ED=999999,TY=S,LR=40,NR=2000,VL=CDD01,OW=CCS20_^1DEFINE,FN=DUMMY,ED=999999,TY=S,LR=80,NR=1,VL=CDD01,OW=CCS20_^1LOAD,FN=DUMMY,OW=CCS20_^1_]_^1/!_]_^1DEFINE,FN=INACCT,ED=999999,TY=S,LR=24,NR=24000,VL=CDD01,OW=CCS20_^1DEFINE,FN=LTRDESC,TY=S,LR=80,ED=999999,NR=2000,OW=CCS20_^1DEFINE,FN=LTRFIL,ED=999999,TY=R,K1=2,P1=1,LR=1512,NR=50,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=NEWS,ED=999999,TY=S,LR=80,NR=100,VL=CDD01,OW=CCS20_^1DEFINE,FN=PGEXTR,ED=999999,TY=S,LR=132,NR=24000,OW=CCS20_^1DEFINE,FN=RPTPGM,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=20,VL=CDD01,OW=CCS20_^1DEFINE,FN=RPTTBL,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=2000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=RSWFIL,ED=999999,TY=S,LR=82,NR=-  3&y12000,VL=CDD01,OW=CCS20_^1DEFINE,FN=SCRNDESC,ED=999999,TY=S,LR=80,NR=3000,VL=CDD01,OW=CCS20_^1DEFINE,FN=SCRNFILE,ED=999999,TY=R,K1=2,P1=1,LR=1800,NR=100,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=SREQDL,ED=999999,TY=S,LR=20,NR=200,VL=CDD01,OW=CCS20_^1DEFINE,FN=SUMHIST,ED=999999,TY=R,K1=16,P1=1,LR=666,NR=24000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=TAPEARC,ED=999999,TY=R,K1=16,P1=1,LR=46,NR=24000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=TRANFL,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=SYSVOL_^1DEFINE,FN=TRNBCK,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=CDD01_^1DEFINE,FN=TRNSFL,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=SYSVOL_^1DEFINE,FN=UPHSTCM,ED=999999,TY=S,LR=20,NR=200,VL=CDD01,OW=CCS20_^1DEFINE,FN=UTIFIL,ED=999999,TY=R,K1=4,P1=1,LR=80,NR=150,VL=CDD01,OW=CCS20_^1EX_]_^1MOVDAT_]_^1 * THE 24000 ACCOUNT SYSTEM BUILD IS COMPLETE._^1 *_]_^1 * PROCEED WITH THE INSTALLATION TEST PROCEDURES._^1 *_]_^1MNUPRO_]_^__ PSC03A CSY/ 000201 *_]_^1 * PROCEDURE TO BUILD 36000_$ACCOUNT SYSTEM IN PROCESS._^1INPUT=PRFSC003_^1QTIL_]_^__PSC03B CSY/ 000901DEFINE,FN=$$MOUNTS,ED=999999,TY=R,K1=2,P1=1,K2=8,P2=3,LR=42,OW=CCS20;_^1NR=50_]_^1DEFINE,FN=ACCAGE,ED=999999,TY=R,K1=16,P1=1,LR=82,NR=36000,OW=CCS20_^1DEFINE,FN=ACTFIL,ED=999999,TY=R,K1=18,P1=1,LR=500,NR=36000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=ACTIVE,ED=999999,TY=R,K1=4,P1=1,LR=10,NR=320,OW=CCS20_^1DEFINE,FN=ACTVERTB,ED=999999,TY=S,LR=320,NR=1,VL=CDD01,OW=CCS20_^1DEFINE,FN=ADDACT,ED=999999,TY=S,LR=18,NR=36000,VL=CDD01,OW=CCS20_^1DEFINE,FN=AGEWRK,ED=999999,TY=S,LR=82,NR=36000,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=AVMDESC,TY=S,LR=80,ED=999999,NR=100,VL=CDD01,OW=CCS20_^1DEFINE,FN=COLSTATS,ED=999999,TY=R,K1=7,P1=1,LR=20,NR=4096,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=COSIGNER,ED=999999,TY=R,K1=16,P1=1,LR=362,NR=36000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=DAQUE,ED=999999,TY=R,K1=4,P1=1,LR=8,NR=64,VL=CDD01,OW=CCS20_^1DEFINE,FN=DECTBL,ED=999999,TY=S,LR=3000,NR=1,VL=CDD01,OW=CCS20_^1DEFINE,FN=DELQMST,ED=999999,TY=R,K1=16,P1=1,K2=6,P2=18,LR=2000,NR=36000;_^1VL=CDD02,OW=CCS20_^1DEFINE,FN=DLYASSN,ED=999999,TY=S,LR=40,NR=36000,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=DLYWRK,ED=999999,TY=S,LR=40,NR=3000,VL=CDD01,OW=CCS20_^1DEFINE,FN=DUMMY,ED=999999,TY=S,LR=80,NR=1,VL=CDD01,OW=CCS20_^1LOAD,FN=DUMMY,OW=CCS20_^1_]_^1/!_]_^1DEFINE,FN=INACCT,ED=999999,TY=S,LR=24,NR=36000,VL=CDD01,OW=CCS20_^1DEFINE,FN=LTRDESC,TY=S,LR=80,ED=999999,NR=2000,OW=CCS20_^1DEFINE,FN=LTRFIL,ED=999999,TY=R,K1=2,P1=1,LR=1512,NR=50,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=NEWS,ED=999999,TY=S,LR=80,NR=100,VL=CDD01,OW=CCS20_^1DEFINE,FN=PGEXTR,ED=999999,TY=S,LR=132,NR=36000,OW=CCS20_^1DEFINE,FN=RPTPGM,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=20,VL=CDD01,OW=CCS20_^1DEFINE,FN=RPTTBL,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=2000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=RSWFIL,ED=999999,TY=S,LR=82,NR=+  3&y18000,VL=CDD01,OW=CCS20_^1DEFINE,FN=SCRNDESC,ED=999999,TY=S,LR=80,NR=3000,VL=CDD01,OW=CCS20_^1DEFINE,FN=SCRNFILE,ED=999999,TY=R,K1=2,P1=1,LR=1800,NR=100,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=SREQDL,ED=999999,TY=S,LR=20,NR=300,VL=CDD01,OW=CCS20_^1DEFINE,FN=SUMHIST,ED=999999,TY=R,K1=16,P1=1,LR=666,NR=36000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=TAPEARC,ED=999999,TY=R,K1=16,P1=1,LR=46,NR=36000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=TRANFL,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=SYSVOL_^1DEFINE,FN=TRNBCK,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=CDD01_^1DEFINE,FN=TRNSFL,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=SYSVOL_^1DEFINE,FN=UPHSTCM,ED=999999,TY=S,LR=20,NR=300,VL=CDD01,OW=CCS20_^1DEFINE,FN=UTIFIL,ED=999999,TY=R,K1=4,P1=1,LR=80,NR=150,VL=CDD01,OW=CCS20_^1EX_]_^1MOVDAT_]_^1 * THE 36000 ACCOUNT SYSTEM BUILD IS COMPLETE_^1 *_]_^1 * PROCEED WITH THE INSTALLATION TEST PROCEDURES._^1 *_]_^1MNUPRO_]_^__PSC04A CSY/ 000201 *_]_^1 * PROCEDURE TO BUILD 78000_$ACCOUNT SYSTEM IN PROCESS._^1INPUT=PRFSC004_^1QTIL_]_^__PSC04B CSY/ 000901DEFINE,FN=$$MOUNTS,ED=999999,TY=R,K1=2,P1=1,K2=8,P2=3,LR=42,OW=CCS20;_^1NR=50_]_^1DEFINE,FN=ACCAGE,ED=999999,TY=R,K1=16,P1=1,LR=82,NR=78000,OW=CCS20;_^1VL=CDD01_]_^1DEFINE,FN=ACTFIL,ED=999999,TY=R,K1=18,P1=1,LR=500,NR=78000,VL=SYSVOL;_^1OW=CCS20_]_^1DEFINE,FN=ACTIVE,ED=999999,TY=R,K1=4,P1=1,LR=10,NR=320,OW=CCS20_^1DEFINE,FN=ACTVERTB,ED=999999,TY=S,LR=320,NR=1,VL=CDD01,OW=CCS20_^1DEFINE,FN=ADDACT,ED=999999,TY=S,LR=18,NR=78000,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=AGEWRK,ED=999999,TY=S,LR=82,NR=78000,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=AVMDESC,TY=S,LR=80,ED=999999,NR=100,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=COLSTATS,ED=999999,TY=R,K1=7,P1=1,LR=20,NR=4096,VL=SYSVOL;_^1OW=CCS20_]_^1DEFINE,FN=COSIGNER,ED=999999,TY=R,K1=16,P1=1,LR=362,NR=78000,VL=SYSVOL;_^1OW=CCS20_]_^1DEFINE,FN=DAQUE,ED=999999,TY=R,K1=4,P1=1,LR=8,NR=64,VL=CDD01,OW=CCS20_^1DEFINE,FN=DECTBL,ED=999999,TY=S,LR=3000,NR=1,VL=CDD01,OW=CCS20_^1DEFINE,FN=DELQMST,ED=999999,TY=R,K1=16,P1=1,K2=6,P2=18,LR=2000,NR=78000;_^1VL=CDD01,OW=CCS20_^1DEFINE,FN=DLYASSN,ED=999999,TY=S,LR=40,NR=78000,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=DLYWRK,ED=999999,TY=S,LR=40,NR=6500,VL=CDD01,OW=CCS20_^1DEFINE,FN=DUMMY,ED=999999,TY=S,LR=80,NR=1,VL=CDD01,OW=CCS20_^1LOAD,FN=DUMMY,OW=CCS20_^1_]_^1/!_]_^1DEFINE,FN=INACCT,ED=999999,TY=S,LR=24,NR=78000,VL=CDD01,OW=CCS20_^1DEFINE,FN=LTRDESC,TY=S,LR=80,ED=999999,NR=2000,OW=CCS20_^1DEFINE,FN=LTRFIL,ED=999999,TY=R,K1=2,P1=1,LR=1512,NR=50,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=NEWS,ED=999999,TY=S,LR=80,NR=100,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=PGEXTR,ED=999999,TY=S,LR=132,NR=78000,OW=CCS20,VL=CDD01_^1DEFINE,FN=RPTPGM,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=20,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=RPTTBL,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=2000,VL=SYSVOL;_^1OW=CCS20_]_^1DEFINE,FN=  3&yRSWFIL,ED=999999,TY=S,LR=82,NR=39000,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=SCRNDESC,ED=999999,TY=S,LR=80,NR=3000,VL=CDD01,OW=CCS20_^1DEFINE,FN=SCRNFILE,ED=999999,TY=R,K1=2,P1=1,LR=1800,NR=100,VL=SYSVOL;_^1OW=CCS20_]_^1DEFINE,FN=SREQDL,ED=999999,TY=S,LR=20,NR=650,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=SUMHIST,ED=999999,TY=R,K1=16,P1=1,LR=666,NR=78000,VL=SYSVOL;_^1OW=CCS20_]_^1DEFINE,FN=TAPEARC,ED=999999,TY=R,K1=16,P1=1,LR=46,NR=78000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=TRANFL,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=SYSVOL_^1DEFINE,FN=TRNBCK,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=CDD01_^1DEFINE,FN=TRNSFL,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=SYSVOL_^1DEFINE,FN=UPHSTCM,ED=999999,TY=S,LR=20,NR=650,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=UTIFIL,ED=999999,TY=R,K1=4,P1=1,LR=80,NR=150,VL=CDD01,OW=CCS20_^1EX_]_^1MOVDAT_]_^1 * THE 78000 ACCOUNT SYSTEM BUILD IS COMPLETE_^1 *_]_^1 * PROCEED WITH THE INSTALLATION TEST PROCEDURES._^1 *_]_^1MNUPRO_]_^__PSC05A CSY/ 000201 *_]_^1 * PROCEDURE TO BUILD 12000-9000 ACCOUNT SYSTEM IN PROCESS._^1INPUT=PRFSC005_^1QTIL_]_^__PSC05B CSY/ 000901DEFINE,FN=$$MOUNTS,ED=999999,TY=R,K1=2,P1=1,K2=8,P2=3,LR=42,OW=CCS20;_^1NR=50_]_^1DEFINE,FN=ACCAGE,ED=999999,TY=R,K1=16,P1=1,LR=82,NR=12000,OW=CCS20_^1DEFINE,FN=ACTFIL,ED=999999,TY=R,K1=18,P1=1,LR=500,NR=12000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=ACTIVE,ED=999999,TY=R,K1=4,P1=1,LR=10,NR=320,OW=CCS20_^1DEFINE,FN=ACTVERTB,ED=999999,TY=S,LR=320,NR=1,VL=CDD01,OW=CCS20_^1DEFINE,FN=ADDACT,ED=999999,TY=S,LR=18,NR=12000,VL=CDD01,OW=CCS20_^1DEFINE,FN=AGEWRK,ED=999999,TY=S,LR=82,NR=12000,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=AVMDESC,TY=S,LR=80,ED=999999,NR=100,VL=CDD01,OW=CCS20_^1DEFINE,FN=COLSTATS,ED=999999,TY=R,K1=7,P1=1,LR=20,NR=4096,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=COSIGNER,ED=999999,TY=R,K1=16,P1=1,LR=362,NR=12000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=DAQUE,ED=999999,TY=R,K1=4,P1=1,LR=8,NR=64,VL=CDD01,OW=CCS20_^1DEFINE,FN=DECTBL,ED=999999,TY=S,LR=3000,NR=1,VL=CDD01,OW=CCS20_^1DEFINE,FN=DELQMST,ED=999999,TY=R,K1=16,P1=1,K2=6,P2=18,LR=2000,NR=12000;_^1VL=CDD01,OW=CCS20_^1DEFINE,FN=DLYASSN,ED=999999,TY=S,LR=40,NR=12000,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=DLYWRK,ED=999999,TY=S,LR=40,NR=1000,VL=CDD01,OW=CCS20_^1DEFINE,FN=DUMMY,ED=999999,TY=S,LR=80,NR=1,VL=CDD01,OW=CCS20_^1LOAD,FN=DUMMY,OW=CCS20_^1_]_^1/!_]_^1DEFINE,FN=INACCT,ED=999999,TY=S,LR=24,NR=12000,VL=CDD01,OW=CCS20_^1DEFINE,FN=LTRDESC,TY=S,LR=80,ED=999999,NR=2000,OW=CCS20_^1DEFINE,FN=LTRFIL,ED=999999,TY=R,K1=2,P1=1,LR=1512,NR=50,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=NEWS,ED=999999,TY=S,LR=80,NR=100,VL=CDD01,OW=CCS20_^1DEFINE,FN=PGEXTR,ED=999999,TY=S,LR=132,NR=12000,OW=CCS20_^1DEFINE,FN=RPTPGM,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=20,VL=CDD01,OW=CCS20_^1DEFINE,FN=RPTTBL,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=2000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=RSWFIL,ED=999999,TY=S,LR=82,NR=  3&y6000,VL=CDD01,OW=CCS20_^1DEFINE,FN=SCRNDESC,ED=999999,TY=S,LR=80,NR=3000,VL=CDD01,OW=CCS20_^1DEFINE,FN=SCRNFILE,ED=999999,TY=R,K1=2,P1=1,LR=1800,NR=100,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=SREQDL,ED=999999,TY=S,LR=20,NR=100,VL=CDD01,OW=CCS20_^1DEFINE,FN=SUMHIST,ED=999999,TY=R,K1=16,P1=1,LR=666,NR=12000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=TAPEARC,ED=999999,TY=R,K1=16,P1=1,LR=46,NR=12000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=TRANFL,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=SYSVOL_^1DEFINE,FN=TRNBCK,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=CDD01_^1DEFINE,FN=TRNSFL,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=SYSVOL_^1DEFINE,FN=UPHSTCM,ED=999999,TY=S,LR=20,NR=100,VL=CDD01,OW=CCS20_^1DEFINE,FN=UTIFIL,ED=999999,TY=R,K1=4,P1=1,LR=80,NR=150,VL=CDD01,OW=CCS20_^__PSC05C CSY/ 005901DEFINE,FN=$$MOUNTS,ED=999999,TY=R,K1=2,P1=1,K2=8,P2=3,LR=42,NR=50;_^1OW=LA,VL=CDD03_^1DEFINE,FN=LAACCAGE,ED=999999,TY=R,K1=16,P1=1,LR=82,NR=9000,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=LAACTFIL,ED=999999,TY=R,K1=18,P1=1,LR=500,NR=6000,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=LAACTIVE,ED=999999,TY=R,K1=4,P1=1,LR=10,NR=320,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=LAACTVTB,ED=999999,TY=S,LR=320,NR=1,VL=CDD03,OW=LA_^1DEFINE,FN=LAADDACT,ED=999999,TY=S,LR=18,NR=9000,VL=CDD03,OW=LA_^1DEFINE,FN=LAAGEWRK,ED=999999,TY=S,LR=82,NR=9000,VL=SYSVOL,OW=LA_^1DEFINE,FN=LAAVMDSC,ED=999999,TY=S,LR=80,NR=100,VL=CDD03,OW=LA_^1DEFINE,FN=LACLIENT,ED=999999,TY=R,K1=4,P1=1,K2=6,P2=5,LR=1300,NR=100;_^1VL=CDD03,OW=LA_^1DEFINE,FN=LACOLSTS,ED=999999,TY=R,K1=7,P1=1,LR=20,NR=4096,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=LACOSIGN,ED=999999,TY=R,K1=16,P1=1,LR=362,NR=9000,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=LADAQUE,ED=999999,TY=R,K1=4,P1=1,LR=8,NR=64,VL=CDD03,OW=LA_^1DEFINE,FN=LADECTBL,ED=999999,TY=S,LR=3000,NR=1,VL=CDD03,OW=LA_^1DEFINE,FN=LADLQKEY,ED=999999,TY=S,LR=16,NR=1000,VL=CDD03,OW=LA_^1DEFINE,FN=LADLQMST,ED=999999,TY=R,K1=16,P1=1,K2=6,P2=18,LR=2000,NR=9000;_^1VL=CDD03,OW=LA_^1DEFINE,FN=LADLYASN,ED=999999,TY=S,LR=40,NR=9000,VL=SYSVOL,OW=LA_^1DEFINE,FN=LADLYWRK,ED=999999,TY=S,LR=40,NR=750,VL=CDD03,OW=LA_^1DEFINE,FN=LADUMMY,ED=999999,TY=S,LR=80,NR=1,VL=CDD03,OW=LA_^1LOAD,FN=LADUMMY,OW=LA_^1_]_^1/!_]_^1DEFINE,FN=LAFILTMP,ED=999999,TY=S,LR=138,NR=1000,VL=CDD03,OW=LA_^1DEFINE,FN=LAFINTRN,ED=999999,TY=S,LR=138,NR=2000,VL=SYSVOL,OW=LA_^1DEFINE,FN=LAINACCT,ED=999999,TY=S,LR=24,NR=9000,VL=CDD03,OW=LA_^1DEFINE,FN=LALTRDSC,ED=999999,TY=S,LR=80,NR=2000,VL=CDD03,OW=LA_^1DEFINE,FN=LALTRFIL,ED=999999,TY=R,K1=2,P1=1,LR=1512,NR=50,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=LAPMTFIL,ED=999999,TY=S,LR=40,NR=5000,VL=SYSVOL,OW=LA_^1DEFINE,FN=LAPGEXTR,ED=999999,TY=S,LR=132,NR=9000,VL=SYSVOL,OW=LA_^1DEFINE,FN=LARPTDAT,ED=999999,TY=S,LR=160,NR=4000,VL=CDD03,OW=LA_^1DEFINE,FN=LARPTPGM,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=20,VL=CDD03,OW=LA_^1DEFINE,FN=LARPTTBL,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=2000,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=LARSWFIL,ED=999999,TY=S,LR=82,NR=4500,VL=CDD03,OW=LA_^1DEFINE,FN=LASCNDSC,ED=999999,TY=S,LR=80,NR=3000,VL=CDD03,OW=LA_^1DEFINE,FN=LASCNFIL,ED=999999,TY=R,K1=2,P1=1,LR=2000,NR=100,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=LASREQDL,ED=999999,TY=S,LR=20,NR=100,VL=CDD03,OW=LA_^1DEFINE,FN=LASUMHST,ED=999999,TY=R,K1=16,P1=1,LR=666,NR=9000,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=LATAPARC,ED=999999,TY=R,K1=16,P1=1,LR=46,NR=9000,VL=CDD03;_^1OW=LA_]_^1DEFINE&  3&y,FN=LATRANFL,ED=999999,TY=S,LR=138,NR=4800,VL=CDD03,OW=LA_^1DEFINE,FN=LATRNBCK,ED=999999,TY=S,LR=138,NR=4800,VL=SYSVOL,OW=LA_^1DEFINE,FN=LATRNSFL,ED=999999,TY=S,LR=138,NR=4800,VL=SYSVOL,OW=LA_^1DEFINE,FN=LAUPHSCM,ED=999999,TY=S,LR=20,NR=100,VL=CDD03,OW=LA_^1DEFINE,FN=LAUTIFIL,ED=999999,TY=R,K1=4,P1=1,LR=80,NR=150,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=NULL,ED=999999,TY=S,LR=2,NR=1,VL=CDD03,OW=LA_^1EX_]_^1MOVDAT_]_^1LMOVDT_]_^1 * THE 12000/9000 ACCOUNT SYSTEM BUILD IS COMPLETE_^1 *_]_^1 * PROCEED WITH THE INSTALLATION TEST PROCEDURE._^1 *_]_^1MNUPRO_]_^__ PSC06A CSY/ 000201 *_]_^1 * PROCEDURE TO BUILD 24000-9000 ACCOUNT SYSTEM IN PROCESS._^1INPUT=PRFSC006_^1QTIL_]_^__PSC06B CSY/ 000901DEFINE,FN=$$MOUNTS,ED=999999,TY=R,K1=2,P1=1,K2=8,P2=3,LR=42,OW=CCS20;_^1NR=50_]_^1DEFINE,FN=ACCAGE,ED=999999,TY=R,K1=16,P1=1,LR=82,NR=24000,OW=CCS20_^1DEFINE,FN=ACTFIL,ED=999999,TY=R,K1=18,P1=1,LR=500,NR=24000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=ACTIVE,ED=999999,TY=R,K1=4,P1=1,LR=10,NR=320,OW=CCS20_^1DEFINE,FN=ACTVERTB,ED=999999,TY=S,LR=320,NR=1,VL=CDD01,OW=CCS20_^1DEFINE,FN=ADDACT,ED=999999,TY=S,LR=18,NR=24000,VL=CDD01,OW=CCS20_^1DEFINE,FN=AGEWRK,ED=999999,TY=S,LR=82,NR=12000,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=AVMDESC,TY=S,LR=80,ED=999999,NR=100,VL=CDD01,OW=CCS20_^1DEFINE,FN=COLSTATS,ED=999999,TY=R,K1=7,P1=1,LR=20,NR=4096,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=COSIGNER,ED=999999,TY=R,K1=16,P1=1,LR=362,NR=24000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=DAQUE,ED=999999,TY=R,K1=4,P1=1,LR=8,NR=64,VL=CDD01,OW=CCS20_^1DEFINE,FN=DECTBL,ED=999999,TY=S,LR=3000,NR=1,VL=CDD01,OW=CCS20_^1DEFINE,FN=DELQMST,ED=999999,TY=R,K1=16,P1=1,K2=6,P2=18,LR=2000,NR=24000;_^1VL=CDD02,OW=CCS20_^1DEFINE,FN=DLYASSN,ED=999999,TY=S,LR=40,NR=24000,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=DLYWRK,ED=999999,TY=S,LR=40,NR=2000,VL=CDD01,OW=CCS20_^1DEFINE,FN=DUMMY,ED=999999,TY=S,LR=80,NR=1,VL=CDD01,OW=CCS20_^1LOAD,FN=DUMMY,OW=CCS20_^1_]_^1/!_]_^1DEFINE,FN=INACCT,ED=999999,TY=S,LR=24,NR=24000,VL=CDD01,OW=CCS20_^1DEFINE,FN=LTRDESC,TY=S,LR=80,ED=999999,NR=2000,OW=CCS20_^1DEFINE,FN=LTRFIL,ED=999999,TY=R,K1=2,P1=1,LR=1512,NR=50,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=NEWS,ED=999999,TY=S,LR=80,NR=100,VL=CDD01,OW=CCS20_^1DEFINE,FN=PGEXTR,ED=999999,TY=S,LR=132,NR=24000,OW=CCS20_^1DEFINE,FN=RPTPGM,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=20,VL=CDD01,OW=CCS20_^1DEFINE,FN=RPTTBL,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=2000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=RSWFIL,ED=999999,TY=S,LR=82,NR=12000,VL=CDD01,OW=CCS20_^1DEFINE,FN=SCRNDESC,ED=999999,TY=S,LR=80,NR=3000,VL=CDD01,OW=CCS20_^1DEFINE,FN=SCRNFILE,ED=999999,TY=R,K1=2,P1=1,LR=1800,NR=100,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=SREQDL,ED=999999,TY=S,LR=20,NR=200,VL=CDD01,OW=CCS20_^1DEFINE,FN=SUMHIST,ED=999999,TY=R,K1=16,P1=1,LR=666,NR=24000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=TAPEARC,ED=999999,TY=R,K1=16,P1=1,LR=46,NR=240U  3&y00,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=TRANFL,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=SYSVOL_^1DEFINE,FN=TRNBCK,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=CDD01_^1DEFINE,FN=TRNSFL,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=SYSVOL_^1DEFINE,FN=UPHSTCM,ED=999999,TY=S,LR=20,NR=200,VL=CDD01,OW=CCS20_^1DEFINE,FN=UTIFIL,ED=999999,TY=R,K1=4,P1=1,LR=80,NR=150,VL=CDD01,OW=CCS20_^__ PSC06C CSY/ 005901DEFINE,FN=$$MOUNTS,ED=999999,TY=R,K1=2,P1=1,K2=8,P2=3,LR=42,NR=50;_^1OW=LA,VL=CDD03_^1DEFINE,FN=LAACCAGE,ED=999999,TY=R,K1=16,P1=1,LR=82,NR=9000,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=LAACTFIL,ED=999999,TY=R,K1=18,P1=1,LR=500,NR=6000,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=LAACTIVE,ED=999999,TY=R,K1=4,P1=1,LR=10,NR=320,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=LAACTVTB,ED=999999,TY=S,LR=320,NR=1,VL=CDD03,OW=LA_^1DEFINE,FN=LAADDACT,ED=999999,TY=S,LR=18,NR=9000,VL=CDD03,OW=LA_^1DEFINE,FN=LAAGEWRK,ED=999999,TY=S,LR=82,NR=9000,VL=SYSVOL,OW=LA_^1DEFINE,FN=LAAVMDSC,ED=999999,TY=S,LR=80,NR=100,VL=CDD03,OW=LA_^1DEFINE,FN=LACLIENT,ED=999999,TY=R,K1=4,P1=1,K2=6,P2=5,LR=1300,NR=100;_^1VL=CDD03,OW=LA_^1DEFINE,FN=LACOLSTS,ED=999999,TY=R,K1=7,P1=1,LR=20,NR=4096,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=LACOSIGN,ED=999999,TY=R,K1=16,P1=1,LR=362,NR=9000,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=LADAQUE,ED=999999,TY=R,K1=4,P1=1,LR=8,NR=64,VL=CDD03,OW=LA_^1DEFINE,FN=LADECTBL,ED=999999,TY=S,LR=3000,NR=1,VL=CDD03,OW=LA_^1DEFINE,FN=LADLQKEY,ED=999999,TY=S,LR=16,NR=1000,VL=CDD03,OW=LA_^1DEFINE,FN=LADLQMST,ED=999999,TY=R,K1=16,P1=1,K2=6,P2=18,LR=2000,NR=9000;_^1VL=CDD03,OW=LA_^1DEFINE,FN=LADLYASN,ED=999999,TY=S,LR=40,NR=9000,VL=SYSVOL,OW=LA_^1DEFINE,FN=LADLYWRK,ED=999999,TY=S,LR=40,NR=750,VL=CDD03,OW=LA_^1DEFINE,FN=LADUMMY,ED=999999,TY=S,LR=80,NR=1,VL=CDD03,OW=LA_^1LOAD,FN=LADUMMY,OW=LA_^1_]_^1/!_]_^1DEFINE,FN=LAFILTMP,ED=999999,TY=S,LR=138,NR=1000,VL=CDD03,OW=LA_^1DEFINE,FN=LAFINTRN,ED=999999,TY=S,LR=138,NR=2000,VL=SYSVOL,OW=LA_^1DEFINE,FN=LAINACCT,ED=999999,TY=S,LR=24,NR=9000,VL=CDD03,OW=LA_^1DEFINE,FN=LALTRDSC,ED=999999,TY=S,LR=80,NR=2000,VL=CDD03,OW=LA_^1DEFINE,FN=LALTRFIL,ED=999999,TY=R,K1=2,P1=1,LR=1512,NR=50,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=LAPMTFIL,ED=999999,TY=S,LR=40,NR=5000,VL=SYSVOL,OW=LA_^1DEFINE,FN=LAPGEXTR,ED=999999,TY=S,LR=132,NR=9000,VL=SYSVOL,OW=LA_^1DEFINE,FN=LARPTDAT,ED=999999,TY=S,LR=160,NR=4000,VL=CDD03,OW=LA_^1DEFINE,FN=LARPTPGM,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=20,VL=CDD03,OW=LA_^1DEFINE,FN=LARPTTBL,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=2000,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=LARSWFIL,ED=999999,TY=S,LR=82,NR=4500,VL=CDD03,OW=LA_^1DEFINE,FN=LASCNDSC,ED=999999,TY=S,LR=80,NR=3000,VL=CDD03,OW=LA_^1DEFINE,FN=LASCNFIL,ED=999999,TY=R,K1=2,P1=1,LR=2000,NR=100,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=LASREQDL,ED=999999,TY=S,LR=20,NR=200,VL=CDD03,OW=LA_^1DEFINE,FN=LASUMHST,ED=999999,TY=R,K1=16,P1=1,LR=666,NR=9000,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=LATAPARC,ED=999999,TY=R,K1=16,P1=1,LR=46,NR=9000,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=LATRANFL,ED=999999,TY=S,LR=138,NR=4800,VL=CDD03,OW=LA_^1DEFINE,FN=LATRNBCK,ED=999999,TY=S,LR=138,NR=4800,VL=SYSVOL,OW=LA_^1DEFINE,FN=LATRNSFL,ED=999999,TY=S,LR=138,NR=4800,VL=SYSVOL,OW=LA_^1DEFINE,FN=LAUPHSCM,ED=999999,TY=S,LR=20,NR=100,VL=CDD03,OW=LA_^1DEFINE,FN=LAUTIFIL,ED=999999,TY=R,K1=4,P1=1,LR=80,NR=150,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=NULL,ED=999999,TY=S,LR=2,NR=1,VL=CDD0"  3&z3,OW=LA_^1EX_]_^1MOVDAT_]_^1LMOVDT_]_^1 * THE 24000/9000 ACCOUNT SYSTEM BUILD IS COMPLETE_^1 *_]_^1 * PROCEED WITH THE INSTALLATION TEST_^1 *_]_^1MNUPRO_]_^__ PSC07A CSY/ 000201 *_]_^1 * PROCEDURE TO BUILD 36000-13500 ACCOUNT SYSTEM IN PROCESS._^1INPUT=PRFSC007_^1QTIL_]_^__ PSC07B CSY/ 000901DEFINE,FN=$$MOUNTS,ED=999999,TY=R,K1=2,P1=1,K2=8,P2=3,LR=42,OW=CCS20;_^1NR=50_]_^1DEFINE,FN=ACCAGE,ED=999999,TY=R,K1=16,P1=1,LR=82,NR=36000,OW=CCS20_^1DEFINE,FN=ACTFIL,ED=999999,TY=R,K1=18,P1=1,LR=500,NR=36000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=ACTIVE,ED=999999,TY=R,K1=4,P1=1,LR=10,NR=320,OW=CCS20_^1DEFINE,FN=ACTVERTB,ED=999999,TY=S,LR=320,NR=1,VL=CDD01,OW=CCS20_^1DEFINE,FN=ADDACT,ED=999999,TY=S,LR=18,NR=36000,VL=CDD01,OW=CCS20_^1DEFINE,FN=AGEWRK,ED=999999,TY=S,LR=82,NR=36000,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=AVMDESC,TY=S,LR=80,ED=999999,NR=100,VL=CDD01,OW=CCS20_^1DEFINE,FN=COLSTATS,ED=999999,TY=R,K1=7,P1=1,LR=20,NR=4096,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=COSIGNER,ED=999999,TY=R,K1=16,P1=1,LR=362,NR=36000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=DAQUE,ED=999999,TY=R,K1=4,P1=1,LR=8,NR=64,VL=CDD01,OW=CCS20_^1DEFINE,FN=DECTBL,ED=999999,TY=S,LR=3000,NR=1,VL=CDD01,OW=CCS20_^1DEFINE,FN=DELQMST,ED=999999,TY=R,K1=16,P1=1,K2=6,P2=18,LR=2000,NR=36000;_^1VL=CDD02,OW=CCS20_^1DEFINE,FN=DLYASSN,ED=999999,TY=S,LR=40,NR=36000,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=DLYWRK,ED=999999,TY=S,LR=40,NR=3000,VL=CDD01,OW=CCS20_^1DEFINE,FN=DUMMY,ED=999999,TY=S,LR=80,NR=1,VL=CDD01,OW=CCS20_^1LOAD,FN=DUMMY,OW=CCS20_^1_]_^1/!_]_^1DEFINE,FN=INACCT,ED=999999,TY=S,LR=24,NR=36000,VL=CDD01,OW=CCS20_^1DEFINE,FN=LTRDESC,TY=S,LR=80,ED=999999,NR=2000,OW=CCS20_^1DEFINE,FN=LTRFIL,ED=999999,TY=R,K1=2,P1=1,LR=1512,NR=50,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=NEWS,ED=999999,TY=S,LR=80,NR=100,VL=CDD01,OW=CCS20_^1DEFINE,FN=PGEXTR,ED=999999,TY=S,LR=132,NR=36000,OW=CCS20_^1DEFINE,FN=RPTPGM,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=20,VL=CDD01,OW=CCS20_^1DEFINE,FN=RPTTBL,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=2000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=RSWFIL,ED=999999,TY=S,LR=82,NR=18000,VL=CDD01,OW=CCS20_^1DEFINE,FN=SCRNDESC,ED=999999,TY=S,LR=80,NR=3000,VL=CDD01,OW=CCS20_^1DEFINE,FN=SCRNFILE,ED=999999,TY=R,K1=2,P1=1,LR=1800,NR=100,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=SREQDL,ED=999999,TY=S,LR=20,NR=300,VL=CDD01,OW=CCS20_^1DEFINE,FN=SUMHIST,ED=999999,TY=R,K1=16,P1=1,LR=666,NR=36000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=TAPEARC,ED=999999,TY=R,K1=16,P1=1,LR=46,NR=36000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=TRANFL,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=CDD01_^1DEFINE,FN=TRNBCK,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=SYSVOL_^1DEFINE,FN=TRNSFL,ED=999999,TY=S,LR=138,NR=4800,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=UPHSTCM,ED=999999,TY=S,LR=20,NR=300,VL=CDD01,OW=CCS20_^1DEFINE,FN=UTIFIL,ED=999999,TY=R,K1=4,P1=1,LR=80,NR=150,VL=CDD01,OW=CCS20_^__ ]  3&zPSC07C CSY/ 005901DEFINE,FN=$$MOUNTS,ED=999999,TY=R,K1=2,P1=1,K2=8,P2=3,LR=42,NR=50;_^1OW=LA,VL=CDD03_^1DEFINE,FN=LAACCAGE,ED=999999,TY=R,K1=16,P1=1,LR=82,NR=13500,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=LAACTFIL,ED=999999,TY=R,K1=18,P1=1,LR=500,NR=6000,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=LAACTIVE,ED=999999,TY=R,K1=4,P1=1,LR=10,NR=320,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=LAACTVTB,ED=999999,TY=S,LR=320,NR=1,VL=CDD03,OW=LA_^1DEFINE,FN=LAADDACT,ED=999999,TY=S,LR=18,NR=13500,VL=CDD03,OW=LA_^1DEFINE,FN=LAAGEWRK,ED=999999,TY=S,LR=82,NR=13500,VL=SYSVOL,OW=LA_^1DEFINE,FN=LAAVMDSC,ED=999999,TY=S,LR=80,NR=100,VL=CDD03,OW=LA_^1DEFINE,FN=LACLIENT,ED=999999,TY=R,K1=4,P1=1,K2=6,P2=5,LR=1300,NR=100;_^1VL=CDD03,OW=LA_^1DEFINE,FN=LACOLSTS,ED=999999,TY=R,K1=7,P1=1,LR=20,NR=4096,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=LACOSIGN,ED=999999,TY=R,K1=16,P1=1,LR=362,NR=13500,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=LADAQUE,ED=999999,TY=R,K1=4,P1=1,LR=8,NR=64,VL=CDD03,OW=LA_^1DEFINE,FN=LADECTBL,ED=999999,TY=S,LR=3000,NR=1,VL=CDD03,OW=LA_^1DEFINE,FN=LADLQKEY,ED=999999,TY=S,LR=16,NR=1000,VL=CDD03,OW=LA_^1DEFINE,FN=LADLQMST,ED=999999,TY=R,K1=16,P1=1,K2=6,P2=18,LR=2000;_^1NR=13500,VL=CDD03,OW=LA_^1DEFINE,FN=LADLYASN,ED=999999,TY=S,LR=40,NR=13500,VL=SYSVOL,OW=LA_^1DEFINE,FN=LADLYWRK,ED=999999,TY=S,LR=40,NR=1125,VL=CDD03,OW=LA_^1DEFINE,FN=LADUMMY,ED=999999,TY=S,LR=80,NR=1,VL=CDD03,OW=LA_^1LOAD,FN=LADUMMY,OW=LA_^1_]_^1/!_]_^1DEFINE,FN=LAFILTMP,ED=999999,TY=S,LR=138,NR=1000,VL=CDD03,OW=LA_^1DEFINE,FN=LAFINTRN,ED=999999,TY=S,LR=138,NR=2000,VL=SYSVOL,OW=LA_^1DEFINE,FN=LAINACCT,ED=999999,TY=S,LR=24,NR=13500,VL=CDD03,OW=LA_^1DEFINE,FN=LALTRDSC,ED=999999,TY=S,LR=80,NR=2000,VL=CDD03,OW=LA_^1DEFINE,FN=LALTRFIL,ED=999999,TY=R,K1=2,P1=1,LR=1512,NR=50,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=LAPMTFIL,ED=999999,TY=S,LR=40,NR=5000,VL=SYSVOL,OW=LA_^1DEFINE,FN=LAPGEXTR,ED=999999,TY=S,LR=132,NR=13500,VL=SYSVOL,OW=LA_^1DEFINE,FN=LARPTDAT,ED=999999,TY=S,LR=160,NR=4000,VL=CDD03,OW=LA_^1DEFINE,FN=LARPTPGM,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=20,VL=CDD03,OW=LA_^1DEFINE,FN=LARPTTBL,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=2000,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=LARSWFIL,ED=999999,TY=S,LR=82,NR=6750,VL=CDD03,OW=LA_^1DEFINE,FN=LASCNDSC,ED=999999,TY=S,LR=80,NR=3000,VL=CDD03,OW=LA_^1DEFINE,FN=LASCNFIL,ED=999999,TY=R,K1=2,P1=1,LR=2000,NR=100,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=LASREQDL,ED=999999,TY=S,LR=20,NR=200,VL=CDD03,OW=LA_^1DEFINE,FN=LASUMHST,ED=999999,TY=R,K1=16,P1=1,LR=666,NR=13500,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=LATAPARC,ED=999999,TY=R,K1=16,P1=1,LR=46,NR=13500,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=LATRANFL,ED=999999,TY=S,LR=138,NR=4800,VL=CDD03,OW=LA_^1DEFINE,FN=LATRNBCK,ED=999999,TY=S,LR=138,NR=4800,VL=SYSVOL,OW=LA_^1DEFINE,FN=LATRNSFL,ED=999999,TY=S,LR=138,NR=4800,VL=SYSVOL,OW=LA_^1DEFINE,FN=LAUPHSCM,ED=999999,TY=S,LR=20,NR=200,VL=CDD03,OW=LA_^1DEFINE,FN=LAUTIFIL,ED=999999,TY=R,K1=4,P1=1,LR=80,NR=150,VL=CDD03;_^1OW=LA_]_^1DEFINE,FN=NULL,ED=999999,TY=S,LR=2,NR=1,VL=CDD03,OW=LA_^1EX_]_^1MOVDAT_]_^1LMOVDT_]_^1 * THE 36000/13500 ACCOUNT SYSTEM BUILD IS COMPLETE_^1 *_]_^1 * PROCEED WITH THE INSTALLATION TEST PROCEDURES._^1 *_]_^1MNUPRO_]_^__PSC08A CSY/ 00020  3&z/1 *_]_^1 * PROCEDURE TO BUILD 60000-18000 ACCOUNT SYSTEM IN PROCESS._^1INPUT=PRFSC008_^1QTIL_]_^__ PSC08B CSY/ 000901DEFINE,FN=$$MOUNTS,ED=999999,TY=R,K1=2,P1=1,K2=8,P2=3,LR=42,OW=CCS20;_^1NR=50_]_^1DEFINE,FN=ACTFIL,ED=999999,TY=R,K1=18,P1=1,LR=500,NR=60000,OW=CCS20_^1DEFINE,FN=ACCAGE,ED=999999,TY=R,K1=16,P1=1,LR=82,NR=60000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=ACTIVE,ED=999999,TY=R,K1=4,P1=1,LR=10,NR=320,OW=CCS20_^1DEFINE,FN=ACTVERTB,ED=999999,TY=S,LR=320,NR=1,VL=CDD01,OW=CCS20_^1DEFINE,FN=ADDACT,ED=999999,TY=S,LR=18,NR=60000,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=AGEWRK,ED=999999,TY=S,LR=82,NR=60000,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=AVMDESC,TY=S,LR=80,ED=999999,NR=100,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=COLSTATS,ED=999999,TY=R,K1=7,P1=1,LR=20,NR=4096,VL=SYSVOL;_^1OW=CCS20_]_^1DEFINE,FN=COSIGNER,ED=999999,TY=R,K1=16,P1=1,LR=362,NR=60000,VL=SYSVOL;_^1OW=CCS20_]_^1DEFINE,FN=DAQUE,ED=999999,TY=R,K1=4,P1=1,LR=8,NR=64,VL=CDD01,OW=CCS20_^1DEFINE,FN=DECTBL,ED=999999,TY=S,LR=3000,NR=1,VL=CDD01,OW=CCS20_^1DEFINE,FN=DELQMST,ED=999999,TY=R,K1=16,P1=1,K2=6,P2=18,LR=2000,NR=60000;_^1VL=CDD01,OW=CCS20_^1DEFINE,FN=DLYASSN,ED=999999,TY=S,LR=40,NR=60000,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=DLYWRK,ED=999999,TY=S,LR=40,NR=5000,VL=CDD01,OW=CCS20_^1DEFINE,FN=DUMMY,ED=999999,TY=S,LR=80,NR=1,VL=CDD01,OW=CCS20_^1LOAD,FN=DUMMY,OW=CCS20_^1_]_^1/!_]_^1DEFINE,FN=INACCT,ED=999999,TY=S,LR=24,NR=60000,VL=CDD01,OW=CCS20_^1DEFINE,FN=LTRDESC,TY=S,LR=80,ED=999999,NR=2000,OW=CCS20_^1DEFINE,FN=LTRFIL,ED=999999,TY=R,K1=2,P1=1,LR=1512,NR=50,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=NEWS,ED=999999,TY=S,LR=80,NR=100,VL=CDD01,OW=CCS20_^1DEFINE,FN=PGEXTR,ED=999999,TY=S,LR=132,NR=60000,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=RPTPGM,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=20,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=RPTTBL,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=2000,VL=SYSVOL;_^1OW=CCS20_]_^1DEFINE,FN=RSWFIL,ED=999999,TY=S,LR=82,NR=30000,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=SCRNDESC,ED=999999,TY=S,LR=80,NR=3000,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=SCRNFILE,ED=999999,TY=R,K1=2,P1=1,LR=1800,NR=100,VL=SYSVOL;_^1OW=CCS20_]_^1DEFINE,FN=SREQDL,ED=999999,TY=S,LR=20,NR=500,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=SUMHIST,ED=999999,TY=R,K1=16,P1=1,LR=666,NR=60000,VL=SYSVOL;_^1OW=CCS20_]_^1DEFINE,FN=TAPEARC,ED=999999,TY=R,K1=16,P1=1,LR=46,NR=60000,VL=CDD01;_^1OW=CCS20_]_^1DEFINE,FN=TRANFL,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=SYSVOL_^1DEFINE,FN=TRNBCK,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=CDD01_^1DEFINE,FN=TRNSFL,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=SYSVOL_^1DEFINE,FN=UPHSTCM,ED=999999,TY=S,LR=20,NR=500,VL=SYSVOL,OW=CCS20_^1DEFINE,FN=UTIFIL,ED=999999,TY=R,K1=4,P1=1,LR=80,NR=150,VL=CDD01,OW=CCS20_^__ PSC08C CSY/ 00600  3&zC1DEFINE,FN=$$MOUNTS,ED=999999,TY=R,K1=2,P1=1,K2=8,P2=3,LR=42,NR=50;_^1OW=LA,VL=CDD01_^1DEFINE,FN=LAACCAGE,ED=999999,TY=R,K1=16,P1=1,LR=82,NR=18000,VL=CDD01;_^1OW=LA_]_^1DEFINE,FN=LAACTFIL,ED=999999,TY=R,K1=18,P1=1,LR=500,NR=6000,VL=CDD01;_^1OW=LA_]_^1DEFINE,FN=LAACTIVE,ED=999999,TY=R,K1=4,P1=1,LR=10,NR=320,VL=CDD01;_^1OW=LA_]_^1DEFINE,FN=LAACTVTB,ED=999999,TY=S,LR=320,NR=1,VL=CDD01,OW=LA_^1DEFINE,FN=LAADDACT,ED=999999,TY=S,LR=18,NR=18000,VL=CDD01,OW=LA_^1DEFINE,FN=LAAGEWRK,ED=999999,TY=S,LR=82,NR=18000,VL=SYSVOL,OW=LA_^1DEFINE,FN=LAAVMDSC,ED=999999,TY=S,LR=80,NR=100,VL=CDD01,OW=LA_^1DEFINE,FN=LACLIENT,ED=999999,TY=R,K1=4,P1=1,K2=6,P2=5,LR=1300,NR=100;_^1VL=CDD01,OW=LA_^1DEFINE,FN=LACOLSTS,ED=999999,TY=R,K1=7,P1=1,LR=20,NR=4096,VL=CDD01;_^1OW=LA_]_^1DEFINE,FN=LACOSIGN,ED=999999,TY=R,K1=16,P1=1,LR=362,NR=18000,VL=CDD01;_^1OW=LA_]_^1DEFINE,FN=LADAQUE,ED=999999,TY=R,K1=4,P1=1,LR=8,NR=64,VL=CDD01,OW=LA_^1DEFINE,FN=LADECTBL,ED=999999,TY=S,LR=3000,NR=1,VL=CDD01,OW=LA_^1DEFINE,FN=LADLQKEY,ED=999999,TY=S,LR=16,NR=1000,VL=CDD01,OW=LA_^1DEFINE,FN=LADLQMST,ED=999999,TY=R,K1=16,P1=1,K2=6,P2=18,LR=2000;_^1NR=18000,VL=CDD01,OW=LA_^1DEFINE,FN=LADLYASN,ED=999999,TY=S,LR=40,NR=18000,VL=SYSVOL,OW=LA_^1DEFINE,FN=LADLYWRK,ED=999999,TY=S,LR=40,NR=1500,VL=CDD01,OW=LA_^1DEFINE,FN=LADUMMY,ED=999999,TY=S,LR=80,NR=1,VL=CDD01,OW=LA_^1LOAD,FN=LADUMMY,OW=LA_^1_]_^1/!_]_^1DEFINE,FN=LAFILTMP,ED=999999,TY=S,LR=138,NR=1000,VL=CDD01,OW=LA_^1DEFINE,FN=LAFINTRN,ED=999999,TY=S,LR=138,NR=2000,VL=SYSVOL,OW=LA_^1DEFINE,FN=LAINACCT,ED=999999,TY=S,LR=24,NR=18000,VL=CDD01,OW=LA_^1DEFINE,FN=LALTRDSC,ED=999999,TY=S,LR=80,NR=2000,VL=CDD01,OW=LA_^1DEFINE,FN=LALTRFIL,ED=999999,TY=R,K1=2,P1=1,LR=1512,NR=50,VL=CDD01;_^1OW=LA_]_^1DEFINE,FN=LAPMTFIL,ED=999999,TY=S,LR=40,NR=5000,VL=SYSVOL,OW=LA_^1DEFINE,FN=LAPGEXTR,ED=999999,TY=S,LR=132,NR=18000,VL=SYSVOL,OW=LA_^1DEFINE,FN=LARPTDAT,ED=999999,TY=S,LR=160,NR=4000,VL=SYSVOL,OW=LA_^1DEFINE,FN=LARPTPGM,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=20,VL=SYSVOL,OW=LA_^1DEFINE,FN=LARPTTBL,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=2000,VL=SYSVOL;_^1OW=LA_]_^1DEFINE,FN=LARSWFIL,ED=999999,TY=S,LR=82,NR=9000,VL=SYSVOL,OW=LA_^1DEFINE,FN=LASCNDSC,ED=999999,TY=S,LR=80,NR=3000,VL=SYSVOL,OW=LA_^1DEFINE,FN=LASCNFIL,ED=999999,TY=R,K1=2,P1=1,LR=2000,NR=100,VL=SYSVOL;_^1OW=LA_]_^1DEFINE,FN=LASREQDL,ED=999999,TY=S,LR=20,NR=150,VL=SYSVOL,OW=LA_^1DEFINE,FN=LASUMHST,ED=999999,TY=R,K1=16,P1=1,LR=666,NR=18000,VL=SYSVOL;_^1OW=LA_]_^1DEFINE,FN=LATAPARC,ED=999999,TY=R,K1=16,P1=1,LR=46,NR=18000,VL=SYSVOL;_^1OW=LA_]_^1DEFINE,FN=LATRANFL,ED=999999,TY=S,LR=138,NR=4800,VL=CDD01,OW=LA_^1DEFINE,FN=LATRNBCK,ED=999999,TY=S,LR=138,NR=4800,VL=SYSVOL,OW=LA_^1DEFINE,FN=LATRNSFL,ED=999999,TY=S,LR=138,NR=4800,VL=SYSVOL,OW=LA_^1DEFINE,FN=LAUPHSCM,ED=999999,TY=S,LR=20,NR=150,VL=CDD01,OW=LA_^1DEFINE,FN=LAUTIFIL,ED=999999,TY=R,K1=4,P1=1,LR=80,NR=150,VL=CDD01;_^1OW=LA_]_^1DEFINE,FN=NULL,ED=999999,TY=S,LR=2,NR=1,VL=CDD01,OW=LA_^1EX_]_^1MOVDAT_]_^1LMOVDT_]_^1 * THE 60000/18000 ACCOUNT SYSTEM BUILD IS COMPLETE_^1 *_]_^1 * PROCEED WITH THE INSTALLATION TEST_^1 *_]_^1MNUPRO_]_^__ PSC09A CSY/ 000201 **** OPERATOR - A JOB WILL BE BATCHED IN THIS PROCEDURE TO PURGE THE_^1 *_/THE PROGRAM LIBRARY. THE BATCH HOST MUST BE ACTIVE_^1 *_/BEFORE PROCEDDING. TO ACTIVATE THE BATCH HOST,_^1 *_/PE  3&zWRFORM_^1 *_1MI, *BATCH,F_^1 *_]_^1 * RESPOND: 'N' CARRIAGE RETURN - IF BATCH HOST IS NOT ACTIVE_^1 *_]_^1 *_+CARRAIGE RETURN ONLY - TO CONTINUE_^1CCSPAS_]_^1 * THE DATA FILES WILL BE CLEARED_^1CLRFIL_]_^1 * THE FILES WILL BE INITIALIZED FOR START OF PARAMETERIZATION_^1INPUT=PRFSC009_^1QTIL_]_^__PSC09B CSY/ 000201LOAD,FN=UTIFIL,OW=CCS20_^1HDR1_]_^1HDR2_]_^1HDR3_]_^1RSW1_]_^1ACTC_]_^1RESC_]_^1SALC_]_^1DALT_]_^1LTRF_]_^1LTR1_]_^1LTR2_]_^1SMTH_]_^1TMTH_]_^1UPDY_]_^1OLPM_]_^1RPTG RPT001_^1/!_]_^1LOAD,FN=ACCAGE,OW=CCS20_^1_]_^1/!_]_^1EX_]_^1 ***** OPERATOR - WHEN THIS SELECTION IS COMPLETE, USE THE UTILITY_^1 *_0COMMAND 'BATS' TO CHECK THE PROGRESS OF THE JOB_^1 *_0NUMBER LISTED BELOW. WHEN THE STATUS IS NO LONGER_^1 *_0'BEING SENT', USE THE UTILITY COMMAND 'PRINT' TO_^1 *_0PRINT THE JOB. VERIFY THE JOB COMPLETED WITHOUT_^1 *_0ERROR._^1 *_]_^1INPUT=PRFSC009_^1UTIL_]_^1BATCH,FN=DISCQT,TY=N_^1DELETE,FN=DMDLQMST_^1DELETE,FN=DMCOSIGN_^1DELETE,FN=DMRPTTBL_^1DELETE,FN=DMACTVTB_^1DELETE,FN=DMUTIFIL_^1DELETE,FN=DMSCNDSC_^1DELETE,FN=DMSCNFIL_^1DELETE,FN=DMDECTBL_^1DELETE,FN=DMLTRFIL_^1DELETE,FN=DMLTRDSC_^1DELETE,FN=DMNEWS_^1DELETE,FN=DMACCAGE_^1DELETE,FN=DMSUMHIS_^1DELETE,FN=DMTAPARC_^1DELETE,FN=DISCQT_^1DELETE,FN=PRFSC001_^1DELETE,FN=PRFSC002_^1DELETE,FN=PRFSC003_^1DELETE,FN=PRFSC004_^1DELETE,FN=PRFSC005_^1DELETE,FN=PRFSC006_^1DELETE,FN=PRFSC007_^1DELETE,FN=PRFSC008_^1DELETE,FN=PRFSC010_^1EX_]_^1 * CCS SYSTEM FILES ARE READY FOR PARAMETERIZATION_^1MNUPRO_]_^__ PSC10A CSY/ 000201 **** OPERATOR - A JOB WILL BE BATCHED IN THIS PROCEDURE TO PURGE THE_^1 *_/THE PROGRAM LIBRARY. THE BATCH HOST MUST BE ACTIVE_^1 *_/BEFORE PROCEEDING. TO ACTIVATE THE BATCH HOST,_^1 *_/PERFORM_^1 *_1MI, *BATCH,F_^1 *_]_^1 * RESPOND: 'N' CARRIAGE RETURN - IF BATCH HOST IS NOT ACTIVE_^1 *_]_^1 *_+CARRAIGE RETURN ONLY - TO CONTINUE_^1CCSPAS_]_^1 * THE DATA FILES WILL BE CLEARED_^1CLRFIL_]_^1LCLRFL_]_^1 * THE FILES WILL BE INITIALIZED FOR START OF PARAMETERIZATION_^1INPUT=PRFSC010_^1QTIL_]_^__ PSC10B CSY/ 00020u  3&zk1LOAD,FN=UTIFIL,OW=CCS20_^1HDR1_]_^1HDR2_]_^1HDR3_]_^1RSW1_]_^1ACTC_]_^1RESC_]_^1SALC_]_^1DALT_]_^1LTRF_]_^1LTR1_]_^1LTR2_]_^1SMTH_]_^1TMTH_]_^1UPDY_]_^1OLPM_]_^1RPTG RPT001_^1/!_]_^1LOAD,FN=ACCAGE,OW=CCS20_^1_]_^1/!_]_^1LOAD,FN=LAUTIFIL,OW=LA_^1HDR1_]_^1HDR2_]_^1HDR3_]_^1RSW1_]_^1ACTC_]_^1RESC_]_^1SALC_]_^1DALT_]_^1LTRF_]_^1LTR1_]_^1LTR2_]_^1SMTH_]_^1TMTH_]_^1UPDY_]_^1OLPM_]_^1RPTG LRP001_^1LACL_]_^1LAC1_]_^1LAC2_]_^1LAC3_]_^1LAC4_]_^1LAC5_]_^1/!_]_^1LOAD,FN=LAACCAGE,OW=LA_^1_]_^1/!_]_^1EX_]_^1 ***** OPERATOR - WHEN THIS SELECTION IS COMPLETE, USE THE UTILITY_^1 *_0COMMAND 'BATS' TO CHECK THE PROGRESS OF THE JOB_^1 *_0NUMBER LISTED BELOW. WHEN THE STATUS IS NO LONGER_^1 *_0'BEING SENT', USE THE UTILITY COMMAND 'PRINT' TO_^1 *_0PRINT THE JOB. VERIFY THE JOB COMPLETED WITHOUT_^1 *_0ERROR._^1 *_]_^1INPUT=PRFSC010_^1UTIL_]_^1BATCH,FN=DISCQT,TY=N_^1DELETE,FN=DMDLQMST_^1DELETE,FN=DMCOSIGN_^1DELETE,FN=DMRPTTBL_^1DELETE,FN=DMACTVTB_^1DELETE,FN=DMUTIFIL_^1DELETE,FN=DMSCNDSC_^1DELETE,FN=DMSCNFIL_^1DELETE,FN=DMDECTBL_^1DELETE,FN=DMLTRFIL_^1DELETE,FN=DMLTRDSC_^1DELETE,FN=DMNEWS_^1DELETE,FN=DMACCAGE_^1DELETE,FN=DMSUMHIS_^1DELETE,FN=DMTAPARC_^1DELETE,FN=DISCQT_^1DELETE,FN=PRFSC001_^1DELETE,FN=PRFSC002_^1DELETE,FN=PRFSC003_^1DELETE,FN=PRFSC004_^1DELETE,FN=PRFSC005_^1DELETE,FN=PRFSC006_^1DELETE,FN=PRFSC007_^1DELETE,FN=PRFSC008_^1DELETE,FN=PRFSC009_^1DELETE,FN=DLRPTTBL_^1DELETE,FN=DLACTVTB_^1DELETE,FN=DLUTIFIL_^1DELETE,FN=DLSCNDSC_^1DELETE,FN=DLSCNFIL_^1DELETE,FN=DLDECTBL_^1EX_]_^1 * CCS/LA SYSTEM FILES ARE READY FOR PARAMETERIZATION_^1MNUPRO_]_^__ S1MENU CSY/ 1DELETE,FN=$$SYMENU_^1DEFINE,FN=$$SYMENU,ED=999999,TY=S,LR=80,NR=22,VL=SYSVOL,OW=$$_^1LOAD,FN=$$SYMENU,OW=$$_^1 *_;SYSTEM MENU_^1 *_]_^1MNUPRO_"SC - SYSTEM CONFIGURATOR_^1UTIL_$UT - SYSTEM UTILITIES_^1EDITOR_"ED - TEXT EDITOR-USED TO EDIT 80 CHARACTER SEQ OR DIRECT FILES_^1MNUPRO_"DC - CCS20 DAILY CYCLE, ON-LINE REPORTING AND PREPARATION_^1MNUPRO_"HS - CCS20 HISTORY SYSTEM PROCEDURES_^1MNUPRO_"MT - CCS20 SYSTEM FILE MAINTENANCE ROUTINES_^1MNUPRO_"RP - CCS20 ON DEMAND REPORTING_^1MNUPRO_"RG - CCS20 REPORT GENERATOR - REPORT DIRECTORY_^1MNUPRO_"LD - L/A DAILY CYCLE, ON-LINE REPORTING AND PREPARATION_^1MNUPRO_"LH - L/A HISTORY SYSTEM PROCEDURES_^1MNUPRO_"LM - L/A SYSTEM FILE MAINTENANCE ROUTINES_^1MNUPRO_"LO - L/A ON DEMAND REPORTING_^1MNUPRO_"LR - L/A REPORT GENERATOR - REPORT DIRECTORY_^1MNUPRO_"EX - EXIT_^1/!_]_^__S2MENU CSY/ ;N  3&z1DELETE,FN=$$SYMENU_^1DEFINE,FN=$$SYMENU,ED=999999,TY=S,LR=80,NR=22,VL=SYSVOL,OW=$$_^1LOAD,FN=$$SYMENU,OW=$$_^1 *_;SYSTEM MENU_^1 *_]_^1MNUPRO_"SC - SYSTEM CONFIGURATOR_^1UTIL_$UT - SYSTEM UTILITIES_^1EDITOR_"ED - TEXT EDITOR-USED TO EDIT 80 CHARACTER SEQ OR DIRECT FILES_^1MNUPRO_"DC - CCS20 DAILY CYCLE, ON-LINE REPORTING AND PREPARATION_^1MNUPRO_"HS - CCS20 HISTORY SYSTEM PROCEDURES_^1MNUPRO_"MT - CCS20 SYSTEM FILE MAINTENANCE ROUTINES_^1MNUPRO_"RP - CCS20 ON DEMAND REPORTING_^1MNUPRO_"RG - CCS20 REPORT GENERATOR - REPORT DIRECTORY_^1MNUPRO_"EX - EXIT_^1/!_]_^__ S3MENU CSY/ 1DELETE,FN=$$SYMENU_^1DEFINE,FN=$$SYMENU,ED=999999,TY=S,LR=80,NR=22,VL=SYSVOL,OW=$$_^1LOAD,FN=$$SYMENU,OW=$$_^1 *_;SYSTEM MENU_^1 *_]_^1UTIL_$UT - SYSTEM UTILITIES_^1EDITOR_"ED - TEXT EDITOR-USED TO EDIT 80 CHARACTER SEQ OR DIRECT FILES_^1MNUPRO_"DC - CCS20 DAILY CYCLE, ON-LINE REPORTING AND PREPARATION_^1MNUPRO_"HS - CCS20 HISTORY SYSTEM PROCEDURES_^1MNUPRO_"MT - CCS20 SYSTEM FILE MAINTENANCE ROUTINES_^1MNUPRO_"RP - CCS20 ON DEMAND REPORTING_^1MNUPRO_"RG - CCS20 REPORT GENERATOR - REPORT DIRECTORY_^1MNUPRO_"LD - L/A DAILY CYCLE, ON-LINE REPORTING AND PREPARATION_^1MNUPRO_"LH - L/A HISTORY SYSTEM PROCEDURES_^1MNUPRO_"LM - L/A SYSTEM FILE MAINTENANCE ROUTINES_^1MNUPRO_"LO - L/A ON DEMAND REPORTING_^1MNUPRO_"LR - L/A REPORT GENERATOR - REPORT DIRECTORY_^1MNUPRO_"EX - EXIT_^1/!_]_^__ S4MENU CSY/ 1DELETE,FN=$$SYMENU_^1DEFINE,FN=$$SYMENU,ED=999999,TY=S,LR=80,NR=22,VL=SYSVOL,OW=$$_^1LOAD,FN=$$SYMENU,OW=$$_^1 *_;SYSTEM MENU_^1 *_]_^1UTIL_$UT - SYSTEM UTILITIES_^1EDITOR_"ED - TEXT EDITOR-USED TO EDIT 80 CHARACTER SEQ OR DIRECT FILES_^1MNUPRO_"DC - CCS20 DAILY CYCLE, ON-LINE REPORTING AND PREPARATION_^1MNUPRO_"HS - CCS20 HISTORY SYSTEM PROCEDURES_^1MNUPRO_"MT - CCS20 SYSTEM FILE MAINTENANCE ROUTINES_^1MNUPRO_"RP - CCS20 ON DEMAND REPORTING_^1MNUPRO_"RG - CCS20 REPORT GENERATOR - REPORT DIRECTORY_^1MNUPRO_"EX - EXIT_^1/!_]_^__DCMENU CSY/ u  3&z1DEFINE,FN=$$DCMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$_^1LOAD,FN=$$DCMENU,OW=$$_^1 *_3DAILY CYCLE MENU_^1 *_]_^1DCCOLACT A - DAILY COLLECTOR ACTIVITY REPORTS_^1DCPRTLTR B - PRINT REQUESTED LETTERS_^1DCACTADD C - ADD THE COLLECTOR ACTIVITIES TO THE ACTIVITY FILE_^1DCUPDTAP D - PROCESS COMPLETE UPDATE TAPE(S) FROM A/R SYSTEM_^1DCNFINUP E - PROCESS 400 SERIES NON-FINANCIAL UPDATE (TAPE)S_^1DCFINUPD F - PROCESS 500 SERIES FINANCIAL UPDATE TAPE(S)_^1RPDRCIAC G - DELINQUENT RECORD CONTENT REPORT - (INACTIVE ACCOUNTS)_^1RPDRCSRQ H - DELINQUENT RECORD CONTENT REPORT - (SUPERVISOR REQUESTS)_^1DCUPDHIS I - UPDATE ACCOUNTS FROM HISTORY_^1DCDUMMIE J** THE FOLLOWING PROCEDURES ARE TO BE RUN WHEN THE COLLECTORS_^1DCDUMDUM K** ARE FINISHED WITH THE DAYS ACTIVITIES_^1DCSRTTRN L - SORT TRANSACTION FILE IN PROPER ORDER FOR COLLECTOR REPORT_^1DCBLDDAS M - CREATE DAILY ASSIGNMENT FILES_^1_)Z - EXIT_^1/!_]_^__ HSMENU CSY/ 1DEFINE,FN=$$HSMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$_^1LOAD,FN=$$HSMENU,OW=$$_^1 *_2HISTORY SYSTEM MENU_^1 *_]_^1HSMOVHIS A - MOVE INACTIVE ACCOUNTS TO HISTORY FILES_^1HSUPDTAP B - UPDATE ACTIVE ACCOUNTS FROM THE TAPE ARCHIVES_^1HSPRGHIS C - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE_^1HSPRGTAP D - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE_^1MTPRGMST E - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL)_^1_)Z - EXIT_^1/!_]_^__ MTMENU CSY/ 1DEFINE,FN=$$MTMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$_^1LOAD,FN=$$MTMENU,OW=$$_^1 *_1FILE MAINTENANCE MENU_^1 *_]_^1MTRDRLTR A - PRINT THE LETTER DEFINITION FILE_^1MTCONLTR B - CREATE THE LETTER FILE_^1MTUTIFIL C - UTILITY FILE MAINTENANCE - ADD OR UPDATE UTILITY RECORDS_^1MTDECTBL D - DECISION TABLE MAINTENANCE_^1MTAVMDMP E - PRINT ACTIVITY VERIFICATION TABLE_^1MTACTMTX F - CREATE THE ACTIVITY VERIFICATION TABLE_^1MTSPCAUD G - FILE SPACE AUDIT- REPORTS PERCENTAGE OF UNUSED FILE SPACE_^1HSPRGHIS H - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE_^1HSPRGTAP I - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE_^1MTLDSCRN J - PRINT SCREEN DEFINITION FILE_^1MTSVSCRN K - CREATE THE SCREEN FILE_^1MTPRGMST L - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL)_^1MTACTMTN M - ACTIVITY FILE MAINTENANCE/REPORT_^1MTUSEMTN N - COLECT ACTIVE USER FILE MAINTENANCE_^1MTDETCRD O - PRINT REPORT GENERATOR DATA ELEMENT TABLE_^1MTDETCON P - RE  3&zPORT GENERATOR DATA ELEMENT TABLE ROUTINES-CONSOLE INPUT_^1MTPDFMTN Q - REPORT GENERATOR PROGRAM DIRECTORY FILE MAINTENANCE_^1MTSCNPRT R - SAMPLE SCREEN PRINT UTILITY_^1_)Z - EXIT_^1/!_]_^__RPMENU CSY/ 1DEFINE,FN=$$RPMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$_^1LOAD,FN=$$RPMENU,OW=$$_^1 *_1ON DEMAND REPORT MENU_^1 *_]_^1RPDRCIAC A - DELINQUENT RECORD CONTENT REPORT (INACTIVE ACCOUNTS)_^1RPDRCSRQ B - DELINQUENT RECORD CONTENT REPORT (SUPERVISOR REQUESTS)_^1RPTAPRRN C - TREND ANALYSIS-CALCULATE AGE- RUN BEFORE SELECTION D OR E_^1RPTAPTQU D - TREND ANALYSIS REPORT PRINTED BY QUEUE_^1RPTAPTTY E - TREND ANALYSIS REPORT PRINTED BY PRODUCT TYPE_^1RPWRTOFF F - ELIGIBLE/ACTUAL WRITE-OFF REPORT_^1RPDLYASN G - DAILY ASSIGNMENT LIST_^1RPSUMACT H - SUMMARY ACCOUNT LIST REPORT_^1RPWCOLST I - WEEKLY COLLECTOR STATISTICS REPORT_^1RPMCOLST J - MONTHLY COLLECTOR STATISTICS REPORT_^1RPTCNTRL K - CREATE REPORT GENERATOR PROGRAM_^1PRFPG000 L - EXECUTE REPORT GENERATOR PROGRAM_^1PRFRP012 M - QUEUE LOADING REPORT_^1_)Z - EXIT_^1/!_]_^__ RGMENU CSY/ 1DEFINE,FN=$$RGMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$_^1LOAD,FN=$$RGMENU,OW=$$_^1 *_7REPORT GENERATOR - REPORT DIRECTORY_^1 *_]_^1PRFPG001 A - R.G. REPORT 1 - (AVAILABLE)_^1PRFPG002 B - R.G. REPORT 2 - (AVAILABLE)_^1PRFPG003 C - R.G. REPORT 3 - (AVAILABLE)_^1PRFPG004 D - R.G. REPORT 4 - (AVAILABLE)_^1PRFPG005 E - R.G. REPORT 5 - (AVAILABLE)_^1PRFPG006 F - R.G. REPORT 6 - (AVAILABLE)_^1PRFPG007 G - R.G. REPORT 7 - (AVAILABLE)_^1PRFPG008 H - R.G. REPORT 8 - (AVAILABLE)_^1PRFPG009 I - R.G. REPORT 9 - (AVAILABLE)_^1PRFPG010 J - R.G. REPORT 10 - (AVAILABLE)_^1PRFPG011 K - R.G. REPORT 11 - (AVAILABLE)_^1PRFPG012 L - R.G. REPORT 12 - (AVAILABLE)_^1PRFPG013 M - R.G. REPORT 13 - (AVAILABLE)_^1PRFPG014 N - R.G. REPORT 14 - (AVAILABLE)_^1PRFPG015 O - R.G. REPORT 15 - (AVAILABLE)_^1PRFPG016 P - R.G. REPORT 16 - (AVAILABLE)_^1PRFPG017 Q - R.G. REPORT 17 - (AVAILABLE)_^1PRFPG018 R - R.G. REPORT 18 - (AVAILABLE)_^1PRFPG019 S - R.G. REPORT 19 - (AVAILABLE)_^1_)Z - EXIT_^1/!_]_^__ LDMENU CSY/ 1DEFINE,FN=$$LDMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$_^1LOAD,FN=$$LDMENU,OW=$$_^1 *_+LEGAL AND AGENCY DAILY CYCLE MENU_^1 *_]_^1LDCOLACT A - DAILY COLLECTOR ACTIVITY REPORTS_^1LDPRN  3&zTLTR B - PRINT REQUESTED LETTERS_^1LDACTADD C - ADD THE COLLECTOR ACTIVITIES TO THE ACTIVITY FILE_^1LDUPDTAP D - PROCESS COMPLETE UPDATE TAPE(S) FROM A/R SYSTEM_^1LDNFINUP E - PROCESS 400 SERIES NON-FINANCIAL UPDATE (TAPE)S_^1LDFINUPD F - PROCESS 500 SERIES FINANCIAL UPDATE TAPE(S)_^1LODRCIAC G - DELINQUENT RECORD CONTENT REPORT - (INACTIVE ACCOUNTS)_^1LODRCSRQ H - DELINQUENT RECORD CONTENT REPORT - (SUPERVISOR REQUESTS)_^1LDUPDHIS I - UPDATE ACCOUNTS FROM HISTORY_^1LDDUMMIE J** THE FOLLOWING PROCEDURES ARE TO BE RUN WHEN THE COLLECTORS_^1LDDUMDUM K** ARE FINISHED WITH THE DAYS ACTIVITIES_^1LDSRTTRN L - SORT TRANSACTION FILE IN PROPER ORDER FOR COLLECTOR REPORT_^1LDBLDDAS M - CREATE DAILY ASSIGNMENT FILES_^1PRFLD012 N - NIGHTLY BATCH UPDATE_^1PRFLD013 O - L/A EXTRACT PROCESS_^1_)Z - EXIT_^1/!_]_^__ LHMENU CSY/ 1DEFINE,FN=$$LHMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$_^1LOAD,FN=$$LHMENU,OW=$$_^1_-LEGAL AND AGENCY HISTORY SYSTEM MENU_^1 *_]_^1LHMOVHIS A - MOVE INACTIVE ACCOUNTS TO HISTORY FILES_^1LHUPDTAP B - UPDATE ACTIVE ACCOUNTS FROM THE TAPE ARCHIVES_^1LHPRGHIS C - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE_^1LHPRGTAP D - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE_^1LMPRGMST E - PURGE MASTER FILES (LADLQMST-LACOSIGN-LAACTFIL)_^1LHPRGCLI F - PURGE CLIENT FILE (LACLIENT)_^1_)Z - EXIT_^1/!_]_^__LMMENU CSY/ 1DEFINE,FN=$$LMMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$_^1LOAD,FN=$$LMMENU,OW=$$_^1 *_+LEGAL AND AGENCY FILE MAINTENANCE MENU_^1 *_]_^1LMRDRLTR A - PRINT THE LETTER DEFINITION FILE_^1LMCONLTR B - CREATE THE LETTER FILE_^1LMUTIFIL C - UTILITY FILE MAINTENANCE - ADD OR UPDATE UTILITY RECORDS_^1LMDECTBL D - DECISION TABLE MAINTENANCE_^1LMAVMDMP E - PRINT ACTIVITY VERIFICATION TABLE_^1LMACTMTX F - CREATE THE ACTIVITY VERIFICATION TABLE_^1LMSPCAUD G - FILE SPACE AUDIT- REPORTS PERCENTAGE OF UNUSED FILE SPACE_^1LHPRGHIS H - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE_^1LHPRGTAP I - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE_^1LMLDSCRN J - PRINT SCREEN DEFINITION FILE_^1LMSVSCRN K - CREATE THE SCREEN FILE_^1LMPRGMST L - PURGE MASTER FILES (LADLQMST-LACOSIGN-LAACTFIL)_^1LMACTMTN M - ACTIVITY FILE MAINTENANCE/REPORT_^1LMUSEMTN N - COLECT ACTIVE USER FILE MAINTENANCE_^1LMDETCRD O - PRINT REPORT GENERATOR DATA ELEMENT TABLE_^1LMDETCON P - REPORT GENERATOR DATA ELEMENT TABLE ROUTINES-CONSOLE INPUT_^1LMPDFMTN Q - REPORT GENERATOR PROGRAM DIRECTORY FILE MAINTENANCE_^1LMSCNPRT R - SAMPLE SCREEN PRINT UTILITY_^1PRFLM017 S - CLIENT FILE MAINTENANCE_^1_)Z - EXIT_^1/!_]_^__Ķ  3&zLOMENU CSY/ 1DEFINE,FN=$$LOMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$_^1LOAD,FN=$$LOMENU,OW=$$_^1 *_+LEGAL AND AGENCY ON DEMAND REPORT MENU_^1 *_]_^1LODRCIAC A - DELINQUENT RECORD CONTENT REPORT (INACTIVE ACCOUNTS)_^1LODRCSRQ B - DELINQUENT RECORD CONTENT REPORT (SUPERVISOR REQUESTS)_^1LOTAPRRN C - TREND ANALYSIS-CALCULATE AGE- RUN BEFORE SELECTION D OR E_^1LOTAPTQU D - TREND ANALYSIS REPORT PRINTED BY QUEUE_^1LOTAPTTY E - TREND ANALYSIS REPORT PRINTED BY PRODUCT TYPE_^1LOWRTOFF F - ELIGIBLE/ACTUAL WRITE-OFF REPORT_^1LODLYASN G - DAILY ASSIGNMENT LIST_^1LOSUMACT H - SUMMARY ACCOUNT LIST REPORT_^1LOWCOLST I - WEEKLY COLLECTOR STATISTICS REPORT_^1LOMCOLST J - MONTHLY COLLECTOR STATISTICS REPORT_^1LOTCNTRL K - CREATE REPORT GENERATOR PROGRAM_^1PRFLP000 L - EXECUTE REPORT GENERATOR PROGRAM_^1PRFLO012 M - QUEUE LOADING REPORT_^1PRFLO013 N - COMPLETE PAYMENT, DIRECT PAYMENT STATEMENT REPORTS_^1PRFLO014 O - INVENTORY REPORTS BY ACCOUNT, CLIENT_^1PRFLO015 P - RECOVERY ANALYSIS REPORT_^1_)Z - EXIT_^1/!_]_^__ LRMENU CSY/ 1DEFINE,FN=$$LRMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$_^1LOAD,FN=$$LRMENU,OW=$$_^1 *_+LEGAL AND AGENCY REPORT GENERATOR - REPORT DIRECTORY_^1 *_]_^1PRFLP001 A - R.G. REPORT 1 - (AVAILABLE)_^1PRFLP002 B - R.G. REPORT 2 - (AVAILABLE)_^1PRFLP003 C - R.G. REPORT 3 - (AVAILABLE)_^1PRFLP004 D - R.G. REPORT 4 - (AVAILABLE)_^1PRFLP005 E - R.G. REPORT 5 - (AVAILABLE)_^1PRFLP006 F - R.G. REPORT 6 - (AVAILABLE)_^1PRFLP007 G - R.G. REPORT 7 - (AVAILABLE)_^1PRFLP008 H - R.G. REPORT 8 - (AVAILABLE)_^1PRFLP009 I - R.G. REPORT 9 - (AVAILABLE)_^1PRFLP010 J - R.G. REPORT 10 - (AVAILABLE)_^1PRFLP011 K - R.G. REPORT 11 - (AVAILABLE)_^1PRFLP012 L - R.G. REPORT 12 - (AVAILABLE)_^1PRFLP013 M - R.G. REPORT 13 - (AVAILABLE)_^1PRFLP014 N - R.G. REPORT 14 - (AVAILABLE)_^1PRFLP015 O - R.G. REPORT 15 - (AVAILABLE)_^1PRFLP016 P - R.G. REPORT 16 - (AVAILABLE)_^1PRFLP017 Q - R.G. REPORT 17 - (AVAILABLE)_^1PRFLP018 R - R.G. REPORT 18 - (AVAILABLE)_^1PRFLP019 S - R.G. REPORT 19 - (AVAILABLE)_^1_)Z - EXIT_^1/!_]_^__PDC01 CSY/ 1DEFINE,FN=PRFDC001,TY=S,LR=80,NR=50,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFDC001,OW=CCS20_^1CHEKID_]_^1 * THIS ROUTINE WILL PRINT - DAILY COLLECTOR UPDATE REPORT_^1 *_8- TIME USAGE REPORe  3&zT_^1 *_8- DAILY COLLECTOR STATISTICS REPORT_^1 *_]_^1INPUT=PRFDC001_^1UTIL_]_^1CLEAR,FN=DLYWRK_^1EX_]_^1 * TRNSFL FILE IS NOW BEING SORTED_^1INPUT=PRFDC001_^1DSORT_]_^1FN=TRNSFL,CCS20_^1F2=TRNSFL,CCS20,_^1OP=T,F,A_]_^1KF=A,29,2,A,17,4,A,135,4,A,25,4,A,1,16,A,134,1_^1SL=I_]_^1 * THE TRNSFL FILE HAS BEEN SORTED_^1 * THE DAILY COLLECTOR UPDATE REPORT WILL BE PRINTED_^1COLCHG_]_^1 * THE DAILY COLLECTOR UPDATE REPORT IS COMPLETE_^1 * THE TIME USAGE REPORT WILL BE PRINTED_^1TIMUSE_]_^1 * THE TIME USAGE REPORT IS COMPLETE_^1INPUT=PRFDC001_^1SWITCH_]_^110000000_]_^1 * THE DAILY STATISTICS REPORT WILL BE PRINTED_^1COLSTS_]_^1 * THE DAILY STATISTICS REPORT IS COMPLETE_^1 **** OPERATOR -_^1 *_"RESPOND: 'N' CARRIAGE RETURN - TO BYPASS ZEROING THE DAILY COUNT_^1 *_]_^1 *_,CARRIAGE RETURN ONLY - TO ZERO THE DAILY COUNT_^1CCSPAS_]_^1INPUT=PRFDC001_^1SWITCH_]_^100010000_]_^1COLSTS_]_^1 * THIS ROUTINE IS COMPLETE_^1MNUPRO_]_^1/!_]_^__PDC02 CSY/ 1DEFINE,FN=PRFDC002,TY=S,LR=80,NR=30,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFDC002,OW=CCS20_^1CHEKID_]_^1 * THE TRANSACTION FILE WILL BE SORTED FOR PRINTING OF LETTERS_^1INPUT=PRFDC002_^1DSORT_]_^1FN=TRNSFL,CCS20_^1F2=TRNSFL,CCS20,_^1OP=T,F,A_]_^1KF=A,17,4,A,41,2,A,1,16_^1SL=I_]_^1 **** OPERATOR - LOAD LETTER PAPER_^1 *_.CARRIAGE RETURN WHEN READY_^1 *_]_^1CCSPAS_]_^1 * THE REQUESTED LETTERS WILL BE PRINTED_^1LTRPRT_]_^1 * THE REQUESTED LETTERS HAVE BEEN PRINTED_^1 **** OPERATOR - LOAD REGULAR PAPER_^1 *_.CARRIAGE RETURN WHEN READY_^1 *_]_^1CCSPAS_]_^1 * THE LETTER STATISTICS SUMMARY WILL BE PRINTED_^1LTRSTA_]_^1 * THE LETTER STATISTICS SUMMARY IS COMPLETE_^1MNUPRO_]_^1/!_]_^__PDC03 CSY/ 1DEFINE,FN=PRFDC003,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFDC003,OW=CCS20_^1CHEKID_]_^1 * THE COLLECTOR ACTIVITIES WILL BE ADDED TO THE ACTIVITY FILE_^1INPUT=PRFDC003_^1DSORT_]_^1FN=TRNSFL,CCS20_^1F2=TRNSFL,CCS20,_^1OP=T,F,A_]_^1KF=A,29,2,A,21,4,D,25,4,D,121,2_^1SL=I_]_^1ACTADD_]_^1 * THE COLLECTOR ACTIVITIES HAVE BEEN ADDED TO THE ACTIVITY FILE_^1 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE_^1 * WILL BE PRINTED_^1ACTMTN_]_^1 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE_^1 * HAS BEEN PRINTED_^1MNUPRO_]_^1/!_]_^__ PDC04 CSY/ 1DEFINE,FN=PRFDC004,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFDC004,OW=CCS20_^1CHEKID_]_^1 ****OPERATOR - MOUNT UPDATE INPUT TAPE ON TAPE UNIT '0'_^1 *_-CARRIAGE RETURN WHENY  3&z READY_^1CCSPAS_]_^1INPUT=PRFDC004_^1SWITCH_]_^110000000_]_^1 * THE UPDATE TAPE WILL BE PROCESSED_^1UPDATE_]_^1 * THE UPDATE TAPE HAS BEEN PROCESSED_^1 * THE FILE SPACE AUDIT REPORT WILL NOW BE PRINTED_^1 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING_^1 *_.SCREEN INFORMATION_^1CCSSPC_]_^1CCSPAS_]_^1 * THE FILE SPACE AUDIT REPORT IS COMPLETE_^1MNUPRO_]_^1/!_]_^__PDC05 CSY/ 1DEFINE,FN=PRFDC005,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFDC005,OW=CCS20_^1CHEKID_]_^1 * THE NON-FINANCIAL UPDATES WILL BE PROCESSED_^1 **** OPERATOR - MOUNT NON-FINANCIAL UPDATE INPUT TAPE ON TAPE UNIT '0'_^1 *_.CARRIAGE RETURN WHEN READY_^1CCSPAS_]_^1INPUT=PRFDC005_^1SWITCH_]_^110000000_]_^1UPD400_]_^1 * THE NON-FINANCIAL UPDATES HAVE BEEN PROCESSED_^1MNUPRO_]_^1/!_]_^__ PDC06 CSY/ 1DEFINE,FN=PRFDC006,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFDC006,OW=CCS20_^1CHEKID_]_^1 * THE FINANCIAL UPDATES WILL BE PROCESSED_^1 **** OPERATOR - MOUNT FINANCIAL UPDATE INPUT TAPE ON TAPE UNIT '0'_^1 *_]_^1INPUT=PRFDC006_^1MOUNT_]_^1FTAPE,B,P_]_^1/*_]_^1UPD500_]_^1 * THE FINANCIAL UPDATES HAVE BEEN PROCESSED_^1MNUPRO_]_^1/!_]_^__PDC07 CSY/ 1DEFINE,FN=PRFDC007,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFDC007,OW=CCS20_^1CHEKID_]_^1 * THE ACTIVE ACCOUNTS WILL BE UPDATED FROM HISTORY_^1DHUPDT_]_^1 * THE ACTIVE ACCOUNTS HAVE BEEN UPDATED FROM HISTORY_^1MNUPRO_]_^1/!_]_^__ PDC08 CSY/ 1DEFINE,FN=PRFDC008,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFDC008,OW=CCS20_^1CHEKID_]_^1 * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE_^1 *_*COLL  3&{ ECTORS ARE OFF-LINE FOR THE DAY_^1MNUPRO_]_^1/!_]_^__ PDC09 CSY/ 1DEFINE,FN=PRFDC009,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFDC009,OW=CCS20_^1CHEKID_]_^1 * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE_^1 *_*COLLECTORS ARE OFF-LINE FOR THE DAY_^1MNUPRO_]_^1/!_]_^__ PDC10 CSY/ 1DEFINE,FN=PRFDC010,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFDC010,OW=CCS20_^1CHEKID_]_^1 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE_^1 *_.RESPOND: 'N' CARRIAGE RETURN - TO ABORT_^1 *_8CARRIAGE RETURN ONLY - TO CONTINUE_^1 *_]_^1CCSPAS_]_^1 * THE TRANSACTION FILE WILL BE SORTED FOR THE COLLECTORS REPORT_^1INPUT=PRFDC010_^1UTIL_]_^1CLEAR,FN=TRNSFL_^1EX_]_^1INPUT=PRFDC010_^1DSORT_]_^1FN=TRANFL,CCS20_^1F2=TRNSFL,CCS20,_^1OP=T,F,A_]_^1KF=A,29,2,A,17,4,A,1,16,A,21,4,A,25,4,A,137,2_^1SL=I_]_^1PRETSR_]_^1INPUT=PRFDC010_^1UTIL_]_^1CLEAR,FN=ACTIVE_^1CLEAR,FN=TRANFL_^1CLEAR,FN=TRNBCK_^1EX_]_^1 * THE TRANSACTION FILE HAS BEEN SORTED FOR THE COLLECTORS REPORT_^1NMCHNG_]_^1INPUT=PRFDC010_^1UTIL_]_^1CLEAR,FN=ADDACT_^1EX_]_^1MNUPRO_]_^1/!_]_^__ PDC11 CSY/ 1DEFINE,FN=PRFDC011,TY=S,LR=80,NR=45,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFDC011,OW=CCS20_^1CHEKID_]_^1 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE_^1 *_.RESPOND: 'N' CARRIAGE RETURN - TO ABORT_^1 *_8CARRIAGE RETURN ONLY - TO CONTINUE_^1 *_]_^1CCSPAS_]_^1 * THE DAILY ASSIGNMENT FILES WILL BE CREATED_^1 *_]_^1 * THE DLYASSN FILE IS BEING CREATED_^1DACRTE_]_^1 * THE DLYASSN FILE HAS BEEN CREATED_^1 * THE DLYASSN FILE IS BEING SORTED_^1INPUT=PRFDC011_^1DSORT_]_^1FN=DLYWRK,CCS20_^1FN=DLYASSN,CCS20_^1F2=DLYASSN,CCS20,_^1OP=T,F,A_]_^1KF=A,17,4,A,25,2,A,21,4,D,27,4,A,1,16_^1SL=I_]_^1 * THE DLYASSN FILE HAS BEEN SORTED_^1INPUT=PRFDC011_^1UTIL_]_^1CLEAR,FN=DAQUE_^1EX_]_^1 * THE DAILY QUEUE FILE IS BEING CREATED_^1DAQUEL_]_^1 * THE DAILY QUEUE FILE HAS BEEN CREATED_^1 * THE FILE SPACE AUDIT REPORT WILL NOW BE PRINTED_^1 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING_^1 *_.SCREEN INFORMATION_^1CCSSPC_]_^1CCSPAS_]_^1 * THE FILE SPACE AUDIT REPORT IS COMPLETE_^1 * THE DAILY ASSIGNMENT FILES HAVE BEEN CREATED_^1MNUPRO_]_^1/!_]_^__PHS01 CSY/ \  3&{1DEFINE,FN=PRFHS001,TY=S,LR=80,NR=30,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFHS001,OW=CCS20_^1CHEKID_]_^1 * THE INACTIVE ACCOUNTS WILL BE MOVED TO HISTORY_^1 * THE INACCT FILE IS BEING SORTED INTO ACCOUNT NUMBER ORDER_^1INPUT=PRFHS001_^1DSORT_]_^1FN=INACCT,CCS20_^1F2=INTEMP,CCS20,_^1OP=T,F,A_]_^1KF=A,1,16,D,23,2,D,19,4_^1SL=I_]_^1INPUT=PRFHS001_^1UTIL_]_^1CLEAR,FN=INACCT_^1COPY,FN=INTEMP,F2=INACCT,OW=CCS20_^1DELETE,FN=INTEMP_^1EX_]_^1 * THE INACCT FILE HAS BEEN SORTED INTO ACCOUNT NUMBER ORDER_^1 ****OPERATOR - MOUNT HISTORY FILE OUTPUT TAPE ON TAPE UNIT '0'_^1 *_-WITH WRITE RING_^1 *_-CARRIAGE RETURN WHEN READY_^1CCSPAS_]_^1MHUPDT_]_^1 * THE INACTIVE ACCOUNTS HAVE BEEN MOVED TO HISTORY_^1MNUPRO_]_^1/!_]_^__ PHS02 CSY/ 0DEFINE,FN=PRFHS002,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFHS002,OW=CCS20_^1CHEKID_]_^0 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE_^0 *_.RESPOND: 'N' CARRIAGE RETURN - TO ABORT_^0 *_7CARRIAGE RETURN ONLY - TO CONTINUE_^0 *_]_^0CCSPAS_]_^1 * THE ACTIVE ACCOUNTS WILL BE UPDATED FROM THE TAPE ARCHIVES_^1INPUT=PRFHS002_^1UTIL_]_^1DEFINE,FN=UPREQ,ED=999999,TY=S,LR=22,NR=300_^1EX_]_^1CHUPD1_]_^1 * THE UPREQ FILE WILL BE SORTED_^1INPUT=PRFHS002_^1DSORT_]_^1FN=UPREQ,CCS20_^1F2=UPREQ,CCS20,_^1OP=T,F,A_]_^1KF=D,21,2,D,17,4,A,1,16_^1SL=I_]_^1 * THE UPREQ FILE HAS BEEN SORTED_^1INPUT=PRFHS002_^1UTIL_]_^1CLEAR,FN=UPHSTCM_^1EX_]_^1 **** OPERATOR - YOU WILL BE PROMPTED TO MOUNT TAPES DURING THE_^1 *_.EXECUTION OF THE NEXT JOB_^1CHUPD2_]_^1INPUT=PRFHS002_^1UTIL_]_^1DELETE,FN=UPREQ_^1EX_]_^1 * THE ACTIVE ACCOUNTS HAVE BEEN UPDATED FROM THE TAPE ARCHIVES_^1MNUPRO_]_^1/!_]_^__ PHS03 CSY/ 1DEFINE,FN=PRFHS003,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFHS003,OW=CCS20_^1CHEKID_]_^1 * THE SUMHIST FILE WILL BE PURGED_^1PHDEL2_]_^1CMPSUM_]_^1 * THE SUMHIST FILE HAS BEEN PURGED_^1MNUPRO_]_^1/!_]_^__ PHS04 CSY/ 1DEFINE,FN=PRFHS004,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFHS004,OW=CCS20_^1CHEKID_]_^1 * THE TAPEARC FILE WILL BE PURGED_^1PHDEL1_]_^1INPUT=PRFHS004_^1UTIL_]_^1COMPRE,FN  3&{3=TAPEARC_^1EX_]_^1 * THE TAPEARC FILE HAS BEEN PURGED_^1MNUPRO_]_^1/!_]_^__ PMT01 CSY/ 1DEFINE,FN=PRFMT001,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFMT001,OW=CCS20_^1CHEKID_]_^1 * THE LETTER DEFINITION FILE WILL BE PRINTED_^1INPUT=PRFMT001_^1UTIL_]_^1LIST,FN=LTRDESC,L=LPRINTER,F=U_^1EX_]_^1 * THE LETTER DEFINITION FILE HAS BEEN PRINTED_^1 **** OPERATOR - IF CHANGES ARE TO BE MADE TO THE LETTER FILE_^1 *_.ENTER THE EDITOR TO PROCESS THE LTRDESC FILE, WHEN_^1 *_.COMPLETE PERFORM THE NEXT MENU PROCEDURE STEP "B"_^1 *_.CARRIAGE RETURN WHEN READY TO CONTINUE_^1CCSPAS_]_^1MNUPRO_]_^1/!_]_^__PMT02 CSY/ 1DEFINE,FN=PRFMT002,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFMT002,OW=CCS20_^1CHEKID_]_^1 * THE LETTER FILE WILL BE CREATED_^1 *_]_^1INPUT=PRFMT002_^1UTIL_]_^1CLEAR,FN=LTRFIL_^1EX_]_^1LTRBLD_]_^1 * THE LETTER FILE HAS BEEN CREATED_^1MNUPRO_]_^1/!_]_^__PMT03 CSY/ 1DEFINE,FN=PRFMT003,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFMT003,OW=CCS20_^1CHEKID_]_^1 * THE UTILITY FILE MAINTENANCE ROUTINE WILL BE EXECUTED_^1 *_]_^1 **** OPERATOR - YOU CAN ADD, UPDATE OR DELETE UTILITY FILE RECORDS_^1 *_.FROM THE CONSOLE_^1 *_]_^1 *_.FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN_^1UTFMTN_]_^1 * THE UTILITY FILE WILL BE LISTED ON THE PRINTER_^1INPUT=PRFMT003_^1UTIL_]_^1LIST,FN=UTIFIL,L=LPRINTER,F=U_^1EX_]_^1 * CHECK PRINTER LISTING TO VERIFY THAT RECORDS ARE CORRECT_^1 * THE UTILITY FILE MAINTENANCE ROUTINE IS COMPLETE_^1MNUPRO_]_^1/!_]_^__ PMT04 CSY/ 1DEFINE,FN=PRFMT004,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFMT004,OW=CCS20_^1CHEKID_]_^1 * THE DECISION TABLE MAINTENANCE ROUTINE WILL BE EXECUTED_^1 *_]_^1 ****OPERATOR -H  3&{G FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN_^1DECMTN_]_^1 * THE DECISION TABLE MAINTENANCE ROUTINE IS COMPLETE_^1MNUPRO_]_^1/!_]_^__PMT05 CSY/ 1DEFINE,FN=PRFMT005,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFMT005,OW=CCS20_^1CHEKID_]_^1 * THE ACTIVITY VERIFICATION TABLE WILL BE PRINTED_^1AVMDMP_]_^1 * THE ACTIVITY VERIFICATION TABLE HAS BEEN PRINTED_^1MNUPRO_]_^1/!_]_^__PMT06 CSY/ 1DEFINE,FN=PRFMT006,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFMT006,OW=CCS20_^1CHEKID_]_^1 * THE ACTIVITY VERIFICATION TABLE ROUTINE WILL BE EXECUTED_^1 *_]_^1AVMCON_]_^1 * THE ACTIVITY VERIFICATION TABLE ROUTINE IS COMPLETE_^1 * THE ACTIVITY VERIFICATION TABLE WILL BE PRINTED_^1AVMDMP_]_^1 * THE ACTIVITY VERIFICATION TABLE HAS BEEN PRINTED_^1MNUPRO_]_^1/!_]_^__ PMT07 CSY/ 1DEFINE,FN=PRFMT007,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFMT007,OW=CCS20_^1CHEKID_]_^1 * THE FILE SPACE AUDIT REPORT WILL BE PRINTED_^1 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING_^1 *_.SCREEN INFORMATION_^1CCSSPC_]_^1CCSPAS_]_^1 * THE FILE SPACE AUDIT REPORT IS COMPLETE_^1MNUPRO_]_^1/!_]_^__PMT08 CSY/ 1DEFINE,FN=PRFMT008,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFMT008,OW=CCS20_^1CHEKID_]_^1 * THE SCREEN DEFINITION FILE WILL BE PRINTED_^1INPUT=PRFMT008_^1UTIL_]_^1LIST,FN=SCRNDESC,L=LPRINTER,F=U_^1EX_]_^1 * THE SCREEN DEFINITION FILE HAS BEEN PRINTED_^1 **** OPERATOR - IF CHANGES ARE TO BE MADE TO THE SCREEN DESCRIPTION_^1 *_.FILE ENTER THE EDITOR TO PROCESS THE SCRNDESC FILE,_^1 *_.WHEN COMPLETE PERFORM THE NEXT MENU PROCEDURE STEP 'K'_^1 *_.CARRIAGE RETURN WHEN READY TO CONTINUE_^1CCSPAS_]_^1MNUPRO_]_^1/!_]_^__PMT09 CSY/ Z  3&{[1DEFINE,FN=PRFMT009,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFMT009,OW=CCS20_^1CHEKID_]_^1 * THE SCREEN FILE WILL BE CREATED_^1BLDSRN_]_^1 * THE SCREEN FILE HAS BEEN CREATED_^1MNUPRO_]_^1/!_]_^__PMT10 CSY/ 1DEFINE,FN=PRFMT010,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFMT010,OW=CCS20_^1CHEKID_]_^0 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE_^0 *_.RESPOND: 'N' CARRIAGE RETURN - TO ABORT_^0 *_7CARRIAGE RETURN ONLY - TO CONTINUE_^0 *_]_^0CCSPAS_]_^1 * THE DELQMST, COSIGNER AND ACTFIL FILES WILL BE PURGED_^1CMPDLQ_]_^1INPUT=PRFMT010_^1UTIL_]_^1COMPRE,FN=COSIGNER_^1COMPRE,FN=ACTFIL_^1EX_]_^1 * THE DELQMST, COSIGNER AND ACTFIL FILES HAVE BEEN PURGED_^1MNUPRO_]_^1/!_]_^__PMT11 CSY/ 1DEFINE,FN=PRFMT011,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFMT011,OW=CCS20_^1CHEKID_]_^1 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE_^1 * WILL BE PRINTED_^1ACTMTN_]_^1 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE_^1 * HAS BEEN PRINTED_^1MNUPRO_]_^1/!_]_^__PMT12 CSY/ 1DEFINE,FN=PRFMT012,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFMT012,OW=CCS20_^1CHEKID_]_^1 * THE COLECT ACTIVE USER MAINTENANCE FILE ROUTINE WILL BE EXECUTED_^1 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN_^1 *_]_^1USEMTN_]_^1 * THE COLECT ACTIVE USER MAINTENANCE FILE ROUTINE IS COMPLETE_^1MNUPRO_]_^1/!_]_^__ PMT13 CSY/ 1DEFINE,FN=PRFMT013,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFMT013,OW=CCS20_^1CHEKID_]_^1 * THE REPORT GENERATOR DATA ELEMENT TABLE WILL BE PRINTED_^1PGLTTB_]_^1MNUPRO_]_^1_8  3&{o/!_]_^__PMT14 CSY/ 1DEFINE,FN=PRFMT014,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFMT014,OW=CCS20_^1CHEKID_]_^1 * THE REPORT GENERATOR DATA ELEMENT TABLE ROUTINES WILL BE EXECUTED_^1 *_]_^1 * THE DATA ELEMENT TABLE WILL BE PRINTED_^1PGLTTB_]_^1 * THE DATA ELEMENT TABLE HAS BEEN PRINTED_^1 *_]_^1 * THE DATA ELEMENT TABLE WILL BE UPDATED_^1 *_]_^1 ****OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN_^1 *_]_^1INPUT=PRFMT014_^1SWITCH_]_^1000000000_]_^1PGUPTB_]_^1 * THE DATA ELEMENT TABLE HAS BEEN UPDATED_^1 *_]_^1 * THE DATA ELEMENT TABLE WILL BE PURGED_^1INPUT=PRFMT014_^1UTIL_]_^1DEFINE,FN=TBLWRK,TY=R,K1=6,P1=1,NR=2000,LR=80_^1EX_]_^1PGCMPR_]_^1INPUT=PRFMT014_^1UTIL_]_^1DELETE,FN=RPTTBL_^1RENAME,FN=TBLWRK,F2=RPTTBL_^1EX_]_^1 * THE DATA ELEMENT TABLE HAS BEEN PURGED_^1 *_]_^1 * THE REPORT GENERATOR DATA ELEMENT TABLE ROUTINES ARE COMPLETE_^1MNUPRO_]_^1/!_]_^__ PMT15 CSY/ 1DEFINE,FN=PRFMT015,TY=S,LR=80,NR=35,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFMT015,OW=CCS20_^1CHEKID_]_^1 * THE PROGRAM DIRECTORY FILE ROUTINES WILL BE EXECUTED_^1 *_]_^1 * THE PROGRAM DIRECTORY FILE WILL BE PRINTED_^1PGLIST_]_^1 * THE PROGRAM DIRECTORY FILE HAS BEEN PRINTED_^1 *_]_^1 *_]_^1 * THE PROGRAM DIRECTORY FILE WILL BE PURGED_^1 *_]_^1 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN_^1 *_]_^1PGPURG_]_^1INPUT=PRFMT015_^1UTIL_]_^1COMPRE,FN=RPTPGM_^1EX_]_^1 * THE PROGRAM DIRECTORY FILE HAS BEEN PURGED_^1 *_]_^1 * THE PROGRAM DIRECTORY FILE WILL BE PRINTED_^1PGLIST_]_^1 * THE PROGRAM DIRECTORY FILE HAS BEEN PRINTED_^1 *_]_^1 * THE PROGRAM DIRECTORY FILE ROUTINES HAVE BEEN EXECUTED_^1MNUPRO_]_^1/!_]_^__ PMT16 CSY/ 1DEFINE,FN=PRFMT016,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFMT016,OW=CCS20_^1CHEKID_]_^1 * THE SCREEN FILES WILL BE PRINTED_^1 *_]_^1 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN_^1 *_]_^1PRTSCN_]_^1 * THE SCREEN FILES HAVE BEEN PRINTED_^1MNUPRO_]_^1/!_]_^__ PRP01 CSY/  3&{1DEFINE,FN=PRFRP001,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFRP001,OW=CCS20_^1CHEKID_]_^1INPUT=PRFRP001_^1SWITCH_]_^110000000_]_^1 * DELINQUENT RECORD CONTENT REPORT WILL NOW BE PRINTED_^1 * THE ACCOUNTS BEING PRINTED ARE THE INACTIVE ACCOUNTS NOT PREVIOUSLY_^1 * PRINTED_]_^1DTLLST_]_^1 * THE DELINQUENT RECORD CONTENT REPORT IS COMPLETE_^1MNUPRO_]_^1/!_]_^__PRP02 CSY/ 1DEFINE,FN=PRFRP002,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFRP002,OW=CCS20_^1CHEKID_]_^1INPUT=PRFRP002_^1SWITCH_]_^101000000_]_^1 * DELINQUENT RECORD CONTENT REPORT WILL NOW BE PRINTED_^1 * THE ACCOUNTS BEING PRINTED WERE REQUESTED BY THE SUPERVISOR_^1DTLLST_]_^1INPUT=PRFRP002_^1UTIL_]_^1CLEAR,FN=SREQDL_^1EX_]_^1 * THE DELINQUENT RECORD CONTENT REPORT IS COMPLETE_^1MNUPRO_]_^1/!_]_^__PRP03 CSY/ 1DEFINE,FN=PRFRP003,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFRP003,OW=CCS20_^1CHEKID_]_^1 * CALCULATE AGE FOR TREND ANALYSIS_^1TRENDF_]_^1 * THE TREND ANALYSIS AGE CALCULATION IS COMPLETE_^1 *_]_^1 * THE ACCAGE AND RSWFIL FILES ARE BEING SORTED INTO AGEWRK_^1INPUT=PRFRP003_^1UTIL_]_^1DELETE,FN=AGEWRK_^1EX_]_^1INPUT=PRFRP003_^1DSORT_]_^1FN=ACCAGE,CCS20_^1FN=RSWFIL,CCS20_^1F2=AGEWRK,CCS20,SYSVOL_^1OP=T,F,A_]_^1KF=A,1,1,A,17,4_^1SL=I_]_^1 * THE ACCAGE AND RSWFIL FILES HAVE BEEN SORTED_^1 *_]_^1 **** OPERATOR -_^1 *_"RESPOND:_!'N' CARRIAGE RETURN TO BYPASS UPDATING PREVIOUS_^1 *_/TREND DATA FOR NEXT RUN_^1 *_]_^1 *_/CARRIAGE RETURN ONLY TO UPDATE PREVIOUS TREND DATA_^1 *_/FOR NEXT RUN_^1CCSPAS_]_^1TRENDU_]_^1INPUT=PRFRP003_^1UTIL_]_^1CLEAR,FN=RSWFIL_^1EX_]_^1MNUPRO_]_^1/!_]_^__PRP04 CSY/ 1DEFINE,FN=PRFRP004,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFRP004,OW=CCS20_^1CHEKID_]_^1 * GENERATE THE TREND ANALYSIS REPORT BY QUEUE_^1 * THE AGEWRK FILE IS BEING SORTED]  3&{_^1INPUT=PRFRP004_^1DSORT_]_^1FN=AGEWRK,CCS20_^1F2=AGEWRK,CCS20,_^1OP=T,F,A_]_^1KF=A,1,1,A,17,4_^1SL=I_]_^1 * THE AGEWRK FILE HAS BEEN SORTED_^1 * THE TREND ANALYSIS REPORT BY QUEUE WILL NOW BE PRINTED_^1INPUT=PRFRP004_^1SWITCH_]_^110000000_]_^1TRENDP_]_^1 * THE TREND ANALYSIS REPORT BY QUEUE IS COMPLETE_^1MNUPRO_]_^1/!_]_^__ PRP05 CSY/ 1DEFINE,FN=PRFRP005,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFRP005,OW=CCS20_^1CHEKID_]_^1 * GENERATE THE TREND ANALYSIS REPORT BY PRODUCT TYPE_^1 * THE AGEWRK FILE IS BEING SORTED_^1INPUT=PRFRP005_^1DSORT_]_^1FN=AGEWRK,CCS20_^1F2=AGEWRK,CCS20,_^1OP=T,F,A_]_^1KF=A,1,1,A,25,4_^1SL=I_]_^1 * THE AGEWRK FILE HAS BEEN SORTED_^1 * THE TREND ANALYSIS REPORT BY PRODUCT TYPE WILL NOW BE PRINTED_^1INPUT=PRFRP005_^1SWITCH_]_^100000000_]_^1TRENDP_]_^1 * THE TREND ANALYSIS REPORT BY PRODUCT TYPE IS COMPLETE_^1MNUPRO_]_^1/!_]_^__PRP06A CSY/ 1DEFINE,FN=PRFRP006,TY=S,LR=80,NR=35,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFRP006,OW=CCS20_^1CHEKID_]_^1 * THE WRITE-OFF REPORT WILL BE GENERATED_^1 * THE WOEF FILE WILL BE CREATED_^1INPUT=PRFRP006_^1UTIL_]_^1DEFINE,FN=WOEF,ED=999999,TY=S,LR=115,NR=6000_^1EX_]_^1WRTOFE_]_^1 * THE WOEF FILE HAS BEEN CREATED_^1 * THE WOEF FILE IS BEING SORTED_^1INPUT=PRFRP006_^1DSORT_]_^1FN=WOEF,CCS20_^1F2=WOEF,CCS20,_^1OP=T,F,A_]_^1KF=A,25,1,A,17,4,A,21,4,A,1,16_^1SL=I_]_^1 * THE WOEF FILE HAS BEEN SORTED_^1 * THE WRITE-OFF REPORT WILL BE PRINTED_^1WRTOFP_]_^1INPUT=PRFRP006_^1UTIL_]_^1DELETE,FN=WOEF_^1EX_]_^1 * THE WRITE-OFF REPORT IS COMPLETE_^1MNUPRO_]_^1/!_]_^__PRP06B CSY/ 1DEFINE,FN=PRFRP006,TY=S,LR=80,NR=35,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFRP006,OW=CCS20_^1CHEKID_]_^1 * THE WRITE-OFF REPORT WILL BE GENERATED_^1 * THE WOEF FILE WILL BE CREATED_^1INPUT=PRFRP006_^1UTIL_]_^1DEFINE,FN=WOEF,ED=999999,TY=S,LR=115,NR=12000_^1EX_]_^1WRTOFE_]_^1 * THE WOEF FILE HAS BEEN CREATED_^1 * THE WOEF FILE IS BEING SORTED_^1INPUT=PRFRP006_^1DSORT_]_^1FN=WOEF,CCS20_^1F2=WOEF,CCS20,_^1OP=T,F,A_]_^1KF=A,25,1,A,17,4,A,21,4,A,1,16_^1SL=I_]_^1 * THE WOEF FILE HAS BEEN SORTED_^1 * THE WRITE-OFF REPORT WILL BE PRINTED_^1WRTOFP_]_^1INPUT=PRFRP006_^1UTIL_  3&{]_^1DELETE,FN=WOEF_^1EX_]_^1 * THE WRITE-OFF REPORT IS COMPLETE_^1MNUPRO_]_^1/!_]_^__ PRP06C CSY/ 1DEFINE,FN=PRFRP006,TY=S,LR=80,NR=35,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFRP006,OW=CCS20_^1CHEKID_]_^1 * THE WRITE-OFF REPORT WILL BE GENERATED_^1 * THE WOEF FILE WILL BE CREATED_^1INPUT=PRFRP006_^1UTIL_]_^1DEFINE,FN=WOEF,ED=999999,TY=S,LR=115,NR=18000_^1EX_]_^1WRTOFE_]_^1 * THE WOEF FILE HAS BEEN CREATED_^1 * THE WOEF FILE IS BEING SORTED_^1INPUT=PRFRP006_^1DSORT_]_^1FN=WOEF,CCS20_^1F2=WOEF,CCS20,_^1OP=T,F,A_]_^1KF=A,25,1,A,17,4,A,21,4,A,1,16_^1SL=I_]_^1 * THE WOEF FILE HAS BEEN SORTED_^1 * THE WRITE-OFF REPORT WILL BE PRINTED_^1WRTOFP_]_^1INPUT=PRFRP006_^1UTIL_]_^1DELETE,FN=WOEF_^1EX_]_^1 * THE WRITE-OFF REPORT IS COMPLETE_^1MNUPRO_]_^1/!_]_^__ PRP06D CSY/ 1DEFINE,FN=PRFRP006,TY=S,LR=80,NR=35,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFRP006,OW=CCS20_^1CHEKID_]_^1 * THE WRITE-OFF REPORT WILL BE GENERATED_^1 * THE WOEF FILE WILL BE CREATED_^1INPUT=PRFRP006_^1UTIL_]_^1DEFINE,FN=WOEF,ED=999999,TY=S,LR=115,NR=39000_^1EX_]_^1WRTOFE_]_^1 * THE WOEF FILE HAS BEEN CREATED_^1 * THE WOEF FILE IS BEING SORTED_^1INPUT=PRFRP006_^1DSORT_]_^1FN=WOEF,CCS20_^1F2=WOEF,CCS20,_^1OP=T,F,A_]_^1KF=A,25,1,A,17,4,A,21,4,A,1,16_^1SL=I_]_^1 * THE WOEF FILE HAS BEEN SORTED_^1 * THE WRITE-OFF REPORT WILL BE PRINTED_^1WRTOFP_]_^1INPUT=PRFRP006_^1UTIL_]_^1DELETE,FN=WOEF_^1EX_]_^1 * THE WRITE-OFF REPORT IS COMPLETE_^1MNUPRO_]_^1/!_]_^__ PRP06E CSY/ 1DEFINE,FN=PRFRP006,TY=S,LR=80,NR=35,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFRP006,OW=CCS20_^1CHEKID_]_^1 * THE WRITE-OFF REPORT WILL BE GENERATED_^1 * THE WOEF FILE WILL BE CREATED_^1INPUT=PRFRP006_^1UTIL_]_^1DEFINE,FN=WOEF,ED=999999,TY=S,LR=115,NR=30000_^1EX_]_^1WRTOFE_]_^1 * THE WOEF FILE HAS BEEN CREATED_^1 * THE WOEF FILE IS BEING SORTED_^1INPUT=PRFRP006_^1DSORT_]_^1FN=WOEF,CCS20_^1F2=WOEF,CCS20,_^1OP=T,F,A_]_^1KF=A,25,1,A,17,4,A,21,4,A,1,16_^1SL=I_]_^1 * THE WOEF FILE HAS BEEN SORTED_^1 * THE WRITE-OFF REPORT WILL BE PRINTED_^1WRTOFP_]_^1INPUT=PRFRP006_^1UTIL_]_^1DELETE,FN=WOEF_^1EX_]_^1 * THE WRITE-OFF REPORT IS COMPLETE_^1MNUPRO_]_^1/!_]_^__ PRP07 CSY/  3&{1DEFINE,FN=PRFRP007,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFRP007,OW=CCS20_^1CHEKID_]_^1 * THE DAILY ASSIGNMENT REPORT LIST WILL BE PRINTED_^1DALIST_]_^1 * THE DAILY ASSIGNMENT LIST REPORT IS COMPLETE_^1MNUPRO_]_^1/!_]_^__ PRP08 CSY/ 1DEFINE,FN=PRFRP008,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFRP008,OW=CCS20_^1CHEKID_]_^1 * THE SUMMARY ACCOUNT REPORT LIST WILL BE PRINTED_^1SUMACL_]_^1 * THE SUMMARY ACCOUNT REPORT LIST IS COMPLETE_^1MNUPRO_]_^1/!_]_^__ PRP09 CSY/ 1DEFINE,FN=PRFRP009,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFRP009,OW=CCS20_^1CHEKID_]_^1 * THE WEEKLY COLLECTOR STATISTICS REPORT WILL BE PRINTED_^1INPUT=PRFRP009_^1SWITCH_]_^101000000_]_^1COLSTS_]_^1 * THE WEEKLY COLLECTOR STATISTICS REPORT IS COMPLETE_^1 **** OPERATOR -_^1 *_"RESPOND: 'N' CARRIAGE RETURN - TO BYPASS ZEROING THE WEEKLY COUNT_^1 *_]_^1 *_,CARRIAGE RETURN ONLY - TO ZERO THE WEEKLY COUNT_^1CCSPAS_]_^1INPUT=PRFRP009_^1SWITCH_]_^100001000_]_^1COLSTS_]_^1MNUPRO_]_^1/!_]_^__PRP10 CSY/ 1DEFINE,FN=PRFRP010,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFRP010,OW=CCS20_^1CHEKID_]_^1 * THE MONTHLY COLLECTOR STATISTICS REPORT WILL BE PRINTED_^1INPUT=PRFRP010_^1SWITCH_]_^100100000_]_^1COLSTS_]_^1 * THE MONTHLY COLLECTOR STATISTICS REPORT IS COMPLETE_^1 **** OPERATOR -_^1 *_"RESPOND: 'N' CARRIAGE RETURN - TO BYPASS CLEARING THE COLLECTOR_^1 *_CSTATISTICS COUNT FILE_^1 *_]_^1 *_,CARRIAGE RETURN ONLY - TO CLEAR THE COLLECTOR STATISTICS_^1 *_CCOUNT FILE_^1CCSPAS_]_^1INPUT=PRFRP010_^1UTIL_]_^1CLEAR,FN=COLSTATS_^1EX_]_^1MNUPRO_]_^1/!_]_^__ PCTRL CSY/ Mt  3&{1DEFINE,FN=PRFCNTRL,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFCNTRL,OW=CCS20_^1CHEKID_]_^1 * THE REPORT GENERATOR PROGRAMS WILL BE CREATED_^1 **** OPERATOR - BATCH HOST MUST BE ACTIVE BEFORE PROCEEDING_^1 *_.TO ACTIVATE BATCH HOST_^1 *_.MI, *BATCH,F_^1 *_]_^1 *_"RESPOND: 'N' CARRIAGE RETURN - IF BATCH HOST IS NOT ACTIVE_^1 *_]_^1 *_,CARRIAGE RETURN ONLY - TO CONTINUE_^1CCSPAS_]_^1 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN_^1INPUT=PRFCNTRL_^1UTIL_]_^1DEFINE,FN=RPTWKE,LR=80,NR=1000_^1DEFINE,FN=RPTWKP,LR=80,NR=1000_^1DEFINE,FN=PRCWRK,LR=80,NR=50_^1EX_]_^1PGGEN_]_^1 * THE REPORT GENERATOR PROGRAMS HAVE BEEN CREATED_^1 * THE REPORT GENERATOR PROGRAMS WILL BE BATCHED_^1INPUT=PRFCNTRL_^1UTIL_]_^1BATCH,FN=RPTWKE,TY=N_^1BATCH,FN=RPTWKP,TY=R_^1DELETE,FN=RPTWKE_^1DELETE,FN=RPTWKP_^1CLEAR,FN=PGEXTR_^1EX_]_^1PGCNT1_]_^1 *_]_^1 **** OPERATOR - SELECTION L MUST NOW BE RUN TO EXECUTE THE REPORT_^1 *_.CARRIAGE RETURN WHEN READY_^1CCSPAS_]_^1MNUPRO_]_^1/!_]_^__PRP12 CSY/ 1DEFINE,FN=PRFRP012,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20_^1LOAD,FN=PRFRP012,OW=CCS20_^1CHEKID_]_^1 * THE QUEUE LOADING REPORT WILL BE PRINTED_^1QLOAD_]_^1 * THE QUEUE LOADING REPORT IS COMPLETE_^1MNUPRO_]_^1/!_]_^__PLD01 CSY/ 1DEFINE,FN=PRFLD001,OW=LA,ED=999999,TY=S,LR=80,NR=50_^1LOAD,FN=PRFLD001,OW=LA_^1CHEKID_]_^1 * THIS ROUTINE WILL PRINT - DAILY COLLECTOR UPDATE REPORT_^1 *_8- TIME USAGE REPORT_^1 *_8- DAILY COLLECTOR STATISTICS REPORT_^1 *_]_^1INPUT=PRFLD001_^1UTIL_]_^1CLEAR,FN=LADLYWRK_^1EX_]_^1 * LATRNSFL FILE IS NOW BEING SORTED_^1INPUT=PRFLD001_^1DSORT_]_^1FN=LATRNSFL,LA_^1F2=LATRNSFL,LA,_^1OP=T,F,A_]_^1KF=A,29,2,A,17,4,A,135,4,A,25,4,A,1,16,A,134,1_^1SL=I_]_^1 * THE LATRNSFL FILE HAS BEEN SORTED_^1 * THE DAILY COLLECTOR UPDATE REPORT WILL BE PRINTED_^1LCOLCG_]_^1 * THE DAILY COLLECTOR UPDATE REPORT IS COMPLETE_^1 * THE TIME USAGE REPORT WILL BE PRINTED_^1LTMUSE_]_^1 * THE TIME USAGE REPORT IS COMPLETE_^1INPUT=PRFLD001_^1SWITCH_]_^110000000_]_^1 * THE DAILY STATISTICS REPORT WILL BE PRINTED_^1LCOLST_]_^1 * THE DAILY STATISTICS REPORT IS COMPLETE_^1 **** OPERATOR -_^1 *_"RESPOND: 'N' CARRIAGE RETURN - TO BYPASS ZEROING THE DAILY COUNT_^1 *_]_^1 *_,CARRIAGE RETURN ONLY - TO ZERO THE DAILY COUNT_^1CCSPAS_]_^1INPUT=PRFLD001_^1SWITCH_]_^100010000_]_^1LCOLST_]_^1 * THIS ROUTINE IS COMPLETE_^1MNUPRO_]_^1/!_]_^__PLD02 CSY/ t@  3&{1DEFINE,FN=PRFLD002,OW=LA,ED=999999,TY=S,LR=80,NR=30_^1LOAD,FN=PRFLD002,OW=LA_^1CHEKID_]_^1 * THE TRANSACTION FILE WILL BE SORTED FOR PRINTING OF LETTERS_^1INPUT=PRFLD002_^1DSORT_]_^1FN=LATRNSFL,LA_^1F2=LATRNSFL,LA,_^1OP=T,F,A_]_^1KF=A,17,4,A,41,2,A,1,16_^1SL=I_]_^1 **** OPERATOR - LOAD LETTER PAPER_^1 *_.CARRIAGE RETURN WHEN READY_^1 *_]_^1CCSPAS_]_^1 * THE REQUESTED LETTERS WILL BE PRINTED_^1LLTPRT_]_^1 * THE REQUESTED LETTERS HAVE BEEN PRINTED_^1 **** OPERATOR - LOAD REGULAR PAPER_^1 *_.CARRIAGE RETURN WHEN READY_^1 *_]_^1CCSPAS_]_^1 * THE LETTER STATISTICS SUMMARY WILL BE PRINTED_^1LLTSTA_]_^1 * THE LETTER STATISTICS SUMMARY IS COMPLETE_^1MNUPRO_]_^1/!_]_^__PLD03 CSY/ 1DEFINE,FN=PRFLD003,OW=LA,ED=999999,TY=S,LR=80,NR=25_^1LOAD,FN=PRFLD003,OW=LA_^1CHEKID_]_^1 * THE COLLECTOR ACTIVITIES WILL BE ADDED TO THE ACTIVITY FILE_^1INPUT=PRFLD003_^1DSORT_]_^1FN=LATRNSFL,LA_^1F2=LATRNSFL,LA,_^1OP=T,F,A_]_^1KF=A,29,2,A,21,4,D,25,4,D,121,2_^1SL=I_]_^1LACTAD_]_^1 * THE COLLECTOR ACTIVITIES HAVE BEEN ADDED TO THE ACTIVITY FILE_^1 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE_^1 * WILL BE PRINTED_^1LACTMT_]_^1 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE_^1 * HAS BEEN PRINTED_^1MNUPRO_]_^1/!_]_^__ PLD04 CSY/ 1DEFINE,FN=PRFLD004,OW=LA,ED=999999,TY=S,LR=80,NR=25_^1LOAD,FN=PRFLD004,OW=LA_^1CHEKID_]_^1 ****OPERATOR - MOUNT UPDATE INPUT TAPE ON TAPE UNIT '0'_^1 *_-CARRIAGE RETURN WHEN READY_^1CCSPAS_]_^1INPUT=PRFLD004_^1SWITCH_]_^110000000_]_^1 * THE UPDATE TAPE WILL BE PROCESSED_^1LUPDAT_]_^1 * THE UPDATE TAPE HAS BEEN PROCESSED_^1 * THE FILE SPACE AUDIT REPORT WILL NOW BE PRINTED_^1 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING_^1 *_.SCREEN INFORMATION_^1LCCSSP_]_^1CCSPAS_]_^1 * THE FILE SPACE AUDIT REPORT IS COMPLETE_^1MNUPRO_]_^1/!_]_^__PLD05 CSY/ 1DEFINE,FN=PRFLD005,OW=LA,ED=999999,TY=S,LR=80,NR=20_^1LOAD,FN=PRFLD005,OW=LA_^1CHEKID_]_^1 * THE NON-FINANCIAL UPDATES WILL BE PROCESSED_^1 **** OPERATOR - MOUNT NON-FINANCIAL UPDATE INPUT TAx  3&{PE ON TAPE UNIT '0'_^1 *_.CARRIAGE RETURN WHEN READY_^1CCSPAS_]_^1INPUT=PRFLD005_^1SWITCH_]_^110000000_]_^1LUD400_]_^1 * THE NON-FINANCIAL UPDATES HAVE BEEN PROCESSED_^1MNUPRO_]_^1/!_]_^__PLD06 CSY/ 1DEFINE,FN=PRFLD006,OW=LA,ED=999999,TY=S,LR=80,NR=20_^1LOAD,FN=PRFLD006,OW=LA_^1CHEKID_]_^1 * THE FINANCIAL UPDATES WILL BE PROCESSED_^1 **** OPERATOR - FINANCIAL UPDATE TAPE SHOULD BE MOUNTED ON UNIT '0'_^1 *_]_^1INPUT=PRFLD006_^1SWITCH_]_^110000000_]_^1INPUT=PRFLD006_^1MOUNT_]_^1FTAPE,B,P_]_^1/*_]_^1LUD500_]_^1 * THE FINANCIAL UPDATES HAVE BEEN PROCESSED_^1MNUPRO_]_^1/!_]_^__PLD07 CSY/ 1DEFINE,FN=PRFLD007,OW=LA,ED=999999,TY=S,LR=80,NR=15_^1LOAD,FN=PRFLD007,OW=LA_^1CHEKID_]_^1 * THE ACTIVE ACCOUNTS WILL BE UPDATED FROM HISTORY_^1LDHUPD_]_^1 * THE ACTIVE ACCOUNTS HAVE BEEN UPDATED FROM HISTORY_^1MNUPRO_]_^1/!_]_^__ PLD08 CSY/ 1DEFINE,FN=PRFLD008,OW=LA,ED=999999,TY=S,LR=80,NR=10_^1LOAD,FN=PRFLD008,OW=LA_^1CHEKID_]_^1 * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE_^1 *_*COLLECTORS ARE OFF-LINE FOR THE DAY_^1MNUPRO_]_^1/!_]_^__ PLD09 CSY/ 1DEFINE,FN=PRFLD009,OW=LA,ED=999999,TY=S,LR=80,NR=10_^1LOAD,FN=PRFLD009,OW=LA_^1CHEKID_]_^1 * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE_^1 *_*COLLECTORS ARE OFF-LINE FOR THE DAY_^1MNUPRO_]_^1/!_]_^__ PLD10 CSY/ 1DEFINE,FN=PRFLD010,OW=LA,ED=999999,TY=S,LR=80,NR=40_^1LOAD,FN=PRFLD010,OW=LA_^1CHEKID_]_^1 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE_^1 *_.RESPOND: 'N' CARRIAGE RETURN - TO ABORT_^1 *_H  3&|8CARRIAGE RETURN ONLY - TO CONTINUE_^1 *_]_^1CCSPAS_]_^1 * THE TRANSACTION FILE WILL BE SORTED FOR THE COLLECTORS REPORT_^1INPUT=PRFLD010_^1UTIL_]_^1CLEAR,FN=LATRNSFL_^1EX_]_^1INPUT=PRFLD010_^1DSORT_]_^1FN=LATRANFL,LA_^1F2=LATRNSFL,LA,_^1OP=T,F,A_]_^1KF=A,29,2,A,17,4,A,1,16,A,21,4,A,25,4,A,137,2_^1SL=I_]_^1LPRTSR_]_^1INPUT=PRFLD010_^1UTIL_]_^1CLEAR,FN=LAACTIVE_^1CLEAR,FN=LATRANFL_^1CLEAR,FN=LATRNBCK_^1EX_]_^1 * THE TRANSACTION FILE HAS BEEN SORTED FOR THE COLLECTORS REPORT_^1LNMCHG_]_^1INPUT=PRFLD010_^1UTIL_]_^1CLEAR,FN=LAADDACT_^1EX_]_^1MNUPRO_]_^1/!_]_^__ PLD11 CSY/ 1DEFINE,FN=PRFLD011,OW=LA,ED=999999,TY=S,LR=80,NR=45_^1LOAD,FN=PRFLD011,OW=LA_^1CHEKID_]_^1 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE_^1 *_.RESPOND: 'N' CARRIAGE RETURN - TO ABORT_^1 *_8CARRIAGE RETURN ONLY - TO CONTINUE_^1 *_]_^1CCSPAS_]_^1 * THE DAILY ASSIGNMENT FILES WILL BE CREATED_^1 *_]_^1 * THE LADLYASN FILE IS BEING CREATED_^1LDACRT_]_^1 * THE LADLYASN FILE HAS BEEN CREATED_^1 * THE LADLYASN FILE IS BEING SORTED_^1INPUT=PRFLD011_^1DSORT_]_^1FN=LADLYWRK,LA_^1FN=LADLYASN,LA_^1F2=LADLYASN,LA,_^1OP=T,F,A_]_^1KF=A,17,4,A,25,2,A,21,4,D,27,4,A,1,16_^1SL=I_]_^1 * THE LADLYASN FILE HAS BEEN SORTED_^1INPUT=PRFLD011_^1UTIL_]_^1CLEAR,FN=LADAQUE_^1EX_]_^1 * THE DAILY QUEUE FILE IS BEING CREATED_^1LDAQEL_]_^1 * THE DAILY QUEUE FILE HAS BEEN CREATED_^1 * THE FILE SPACE AUDIT REPORT WILL NOW BE PRINTED_^1 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING_^1 *_.SCREEN INFORMATION_^1LCCSSP_]_^1CCSPAS_]_^1 * THE FILE SPACE AUDIT REPORT IS COMPLETE_^1 * THE DAILY ASSIGNMENT FILES HAVE BEEN CREATED_^1MNUPRO_]_^1/!_]_^__ PLD12 CSY/ 1DEFINE,FN=PRFLD012,OW=LA,ED=999999,TY=S,LR=80,NR=35_^1LOAD,FN=PRFLD012,OW=LA_^1CHEKID_]_^1 *** OPERATOR - THE COLLECTORS MUST BE OFFLINE_^1 *_-RESPOND 'N' CARRIAGE RETURN - TO ABORT_^1 *_-CARRIAGE RETURN ONLY - TO CONTINUE_^1CCSPAS_]_^1 *SORT LAFILTMP AND LATRNSFL TRANSACTION FILES_^1INPUT=PRFLD012_^1DSORT_]_^1FN=LAFILTMP,LA_^1FN=LATRNSFL,LA_^1F2=LAFINTRN,,_^1OP=T,F,A_]_^1KF=A,1,20,A,40,4,A,50,3_^1SL=I_]_^1INPUT=PRFLD012_^1UTIL_]_^1CLEAR,FN=LAFILTMP_^1CLEAR,FN=LARPTDAT_^1EX_]_^1 *FINANCIAL TRANSACTIONS HAVE BEEN SORTED. BATCH UPDATE WILL BEGIN_^1LBATUD_]_^1 * BATCH UPDATE COMPLETE, AUDIT TRAIL REPORT WILL BEGIN_^1LBATPT_]_^1 * BATCH UPDATE PROCESS COMPLETE_^1MNUPRO_]_^1/!_]_^__ PLD13 CSY/ 1DEFINE,FN=PRFLD013,OW=LA,ED=999999,TY=S,LR=80,NR=20_^1LOAD,FN=PRFLD013,OW=LA_^1CHEKID_]_^1 *** OPERATOR - THE COLLECTORS MUST BE OFFLINE_^1 *_-RESPOND 'N' CARRIAGE RETURN - TO ABORT_^1 *_-CARW  3&|#RIAGE RETURN ONLY - TO CONTINUE_^1CCSPAS_]_^1 * THE LEGAL AND AGENCY EXTRACT PROGRAM WILL BEGIN_^1LAXTRT_]_^1 * THE LEGAL AND AGENCY EXTRACT PROCESS IS COMPLETE._^1 * REFERRAL REPORT WILL BEGIN_^1LARPRT_]_^1 * REFERRAL REPORT COMPLETE_^1MNUPRO_]_^1/!_]_^__PLH01 CSY/ 1DEFINE,FN=PRFLH001,OW=LA,ED=999999,TY=S,LR=80,NR=30_^1LOAD,FN=PRFLH001,OW=LA_^1CHEKID_]_^1 * THE INACTIVE ACCOUNTS WILL BE MOVED TO HISTORY_^1 * THE INACCT FILE IS BEING SORTED INTO ACCOUNT NUMBER ORDER_^1INPUT=PRFLH001_^1DSORT_]_^1FN=LAINACCT,LA_^1F2=LAINTEMP,LA,_^1OP=T,F,A_]_^1KF=A,1,16,D,23,2,D,19,4_^1SL=I_]_^1INPUT=PRFLH001_^1UTIL_]_^1CLEAR,FN=LAINACCT_^1COPY,FN=LAINTEMP,F2=LAINACCT,OW=LA_^1DELETE,FN=LAINTEMP_^1EX_]_^1 * THE LAINACCT FILE HAS BEEN SORTED INTO ACCOUNT NUMBER ORDER_^1 ****OPERATOR - MOUNT HISTORY FILE OUTPUT TAPE ON TAPE UNIT '0'_^1 *_-WITH WRITE RING_^1 *_-CARRIAGE RETURN WHEN READY_^1LMHUPD_]_^1 * THE INACTIVE ACCOUNTS HAVE BEEN MOVED TO HISTORY_^1MNUPRO_]_^1/!_]_^__ PLH02 CSY/ 0DEFINE,FN=PRFLH002,OW=LA,ED=999999,TY=S,LR=80,NR=40_^1LOAD,FN=PRFLH002,OW=LA_^1CHEKID_]_^0 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE_^0 *_.RESPOND: 'N' CARRIAGE RETURN - TO ABORT_^0 *_7CARRIAGE RETURN ONLY - TO CONTINUE_^0 *_]_^0CCSPAS_]_^1 * THE ACTIVE ACCOUNTS WILL BE UPDATED FROM THE TAPE ARCHIVES_^1INPUT=PRFLH002_^1UTIL_]_^1DEFINE,FN=LAUPDREQ,ED=999999,TY=S,LR=22,NR=300_^1EX_]_^1LCHUD1_]_^1 * THE LAUPDREQ FILE WILL BE SORTED_^1INPUT=PRFLH002_^1DSORT_]_^1FN=LAUPDREQ,LA_^1F2=LAUPDREQ,LA,_^1OP=T,F,A_]_^1KF=D,21,2,D,17,4,A,1,16_^1SL=I_]_^1 * THE LAUPDREQ FILE HAS BEEN SORTED_^1INPUT=PRFLH002_^1UTIL_]_^1CLEAR,FN=LAUPHSCM_^1EX_]_^1 **** OPERATOR - YOU WILL BE PROMPTED TO MOUNT TAPES DURING THE_^1 *_.EXECUTION OF THE NEXT JOB_^1LCHUD2_]_^1INPUT=PRFLH002_^1UTIL_]_^1DELETE,FN=LAUPDREQ_^1EX_]_^1 * THE ACTIVE ACCOUNTS HAVE BEEN UPDATED FROM THE TAPE ARCHIVES_^1MNUPRO_]_^1/!_]_^__PLH03 CSY/ 1DEFINE,FN=PRFLH003,OW=LA,ED=999999,TY=S,LR=80,NR=15_^1LOAD,FN=PRFLH003,OW=LA_^1CHEKID_]_^1 * THE LASUMHST FILE WILL BE PURGED_^1LPHDL2_]_^1LCMPSM_]_^1 * THE LASUMHST FILE HAS BEEN PURGED_^1MN7/  3&|7UPRO_]_^1/!_]_^__ PLH04 CSY/ 1DEFINE,FN=PRFLH004,OW=LA,ED=999999,TY=S,LR=80,NR=15_^1LOAD,FN=PRFLH004,OW=LA_^1CHEKID_]_^1 * THE LATAPARC FILE WILL BE PURGED_^1LPHDL1_]_^1INPUT=PRFLH004_^1UTIL_]_^1COMPRE,FN=LATAPARC_^1EX_]_^1 * THE LATAPARC FILE HAS BEEN PURGED_^1MNUPRO_]_^1/!_]_^__PLH05 CSY/ 1DEFINE,FN=PRFLH005,OW=LA,ED=999999,TY=S,LR=80,NR=15_^1LOAD,FN=PRFLH005,OW=LA_^1CHEKID_]_^1 * THE CLIENT FILE WILL BE PURGED_^1 *_]_^1 * THE CLIENT PURGE REPORT WILL BE PRINTED_^1LACLPG_]_^1 * THE CLIENT FILE PURGE ROUTINES ARE COMPLETE_^1MNUPRO_]_^1/!_]_^__PLM01 CSY/ 1DEFINE,FN=PRFLM001,OW=LA,ED=999999,TY=S,LR=80,NR=20_^1LOAD,FN=PRFLM001,OW=LA_^1CHEKID_]_^1 * THE LETTER DEFINITION FILE WILL BE PRINTED_^1INPUT=PRFLM001_^1UTIL_]_^1LIST,FN=LALTRDSC,L=LPRINTER,F=U_^1EX_]_^1 * THE LETTER DEFINITION FILE HAS BEEN PRINTED_^1 **** OPERATOR - IF ANY CHANGES ARE TO BE MADE TO THE LETTER FILE_^1 *_.ENTER THE EDITOR TO PROCESS THE LALTRDSC FILE, WHEN_^1 *_.COMPLETE PERFORM THE NEXT MENU PROCEDURE STEP "B"_^1 *_.CARRIAGE RETURN WHEN READY TO CONTINUE_^1CCSPAS_]_^1MNUPRO_]_^1/!_]_^__PLM02 CSY/ 1DEFINE,FN=PRFLM002,OW=LA,ED=999999,TY=S,LR=80,NR=15_^1LOAD,FN=PRFLM002,OW=LA_^1CHEKID_]_^1 * THE LETTER FILE WILL BE CREATED_^1INPUT=PRFLM002_^1UTIL_]_^1CLEAR,FN=LALTRFIL_^1EX_]_^1LLTBLD_]_^1 * THE LETTER FILE HAS BEEN CREATED_^1MNUPRO_]_^1/!_]_^__ PLM03 CSY/ %u  3&|K1DEFINE,FN=PRFLM003,OW=LA,ED=999999,TY=S,LR=80,NR=25_^1LOAD,FN=PRFLM003,OW=LA_^1CHEKID_]_^1 * THE UTILITY FILE MAINTENANCE ROUTINE WILL BE EXECUTED_^1 *_]_^1 **** OPERATOR - YOU CAN ADD, UPDATE OR DELETE UTILITY FILE RECORDS_^1 *_.FROM THE CONSOLE_^1 *_]_^1 *_.FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN_^1LUTFMT_]_^1 * THE UTILITY FILE WILL BE LISTED ON THE PRINTER_^1INPUT=PRFLM003_^1UTIL_]_^1LIST,FN=LAUTIFIL,L=LPRINTER,F=U_^1EX_]_^1 * CHECK PRINTER LISTING TO VERIFY THAT RECORDS ARE CORRECT_^1 * THE UTILITY FILE MAINTENANCE ROUTINE IS COMPLETE_^1MNUPRO_]_^1/!_]_^__ PLM04 CSY/ 1DEFINE,FN=PRFLM004,OW=LA,ED=999999,TY=S,LR=80,NR=15_^1LOAD,FN=PRFLM004,OW=LA_^1CHEKID_]_^1 * THE DECISION TABLE MAINTENANCE ROUTINE WILL BE EXECUTED_^1 *_]_^1 ****OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN_^1LDECMT_]_^1 * THE DECISION TABLE MAINTENANCE ROUTINE IS COMPLETE_^1MNUPRO_]_^1/!_]_^__PLM05 CSY/ 1DEFINE,FN=PRFLM005,OW=LA,ED=999999,TY=S,LR=80,NR=15_^1LOAD,FN=PRFLM005,OW=LA_^1CHEKID_]_^1 * THE ACTIVITY VERIFICATION TABLE WILL BE PRINTED_^1LAVMDP_]_^1 * THE ACTIVITY VERIFICATION TABLE HAS BEEN PRINTED_^1MNUPRO_]_^1/!_]_^__PLM06 CSY/ 1DEFINE,FN=PRFLM006,OW=LA,ED=999999,TY=S,LR=80,NR=15_^1LOAD,FN=PRFLM006,OW=LA_^1CHEKID_]_^1 * THE ACTIVITY VERIFICATION TABLE ROUTINE WILL BE EXECUTED_^1 *_]_^1LAVMCN_]_^1 * THE ACTIVITY VERIFICATION TABLE ROUTINE IS COMPLETE_^1 * THE ACTIVITY VERIFICATION TABLE WILL BE PRINTED_^1LAVMDP_]_^1 * THE ACTIVITY VERIFICATION TABLE HAS BEEN PRINTED_^1MNUPRO_]_^1/!_]_^__ PLM07 CSY/ 1DEFINE,FN=PRFLM007,OW=LA,ED=999999,TY=S,LR=80,NR=15_^1LOAD,FN=PRFLM007,OW=LA_^1CHEKID_]_^1 * THE FILE SPACE AUDIT REPORT WILL BE PRINTED_^1 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER Rc  3&|_EVIEWING_^1 *_.SCREEN INFORMATION_^1LCCSSP_]_^1CCSPAS_]_^1 * THE FILE SPACE AUDIT REPORT IS COMPLETE_^1MNUPRO_]_^1/!_]_^__PLM08 CSY/ 1DEFINE,FN=PRFLM008,OW=LA,ED=999999,TY=S,LR=80,NR=20_^1LOAD,FN=PRFLM008,OW=LA_^1CHEKID_]_^1 * THE SCREEN DEFINITION FILE WILL BE PRINTED_^1INPUT=PRFLM008_^1UTIL_]_^1LIST,FN=LASCNDSC,L=LPRINTER,F=U_^1EX_]_^1 * THE SCREEN DEFINITION FILE HAS BEEN PRINTED_^1 **** OPERATOR - IF CHANGES ARE TO BE MADE TO THE SCREEN DESCRIPTION_^1 *_.FILE ENTER THE EDITOR TO PROCESS THE LASCNDSC FILE,_^1 *_.WHEN COMPLETE PERFORM THE NEXT MENU PROCEDURE STEP 'K'_^1 *_.CARRIAGE RETURN WHEN READY TO CONTINUE_^1CCSPAS_]_^1MNUPRO_]_^1/!_]_^__PLM09 CSY/ 1DEFINE,FN=PRFLM009,OW=LA,ED=999999,TY=S,LR=80,NR=15_^1LOAD,FN=PRFLM009,OW=LA_^1CHEKID_]_^1 * THE SCREEN FILE WILL BE CREATED_^1LBLDSR_]_^1 * THE SCREEN FILE HAS BEEN CREATED_^1MNUPRO_]_^1/!_]_^__PLM10 CSY/ 1DEFINE,FN=PRFLM010,OW=LA,ED=999999,TY=S,LR=80,NR=20_^1LOAD,FN=PRFLM010,OW=LA_^1CHEKID_]_^0 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE_^0 *_.RESPOND: 'N' CARRIAGE RETURN - TO ABORT_^0 *_7CARRIAGE RETURN ONLY - TO CONTINUE_^0 *_]_^0CCSPAS_]_^1 * THE LADLQMST, LACOSIGN AND LAACTFIL FILES WILL BE PURGED_^1LCMPDQ_]_^1INPUT=PRFLM010_^1UTIL_]_^1COMPRE,FN=LACOSIGN_^1COMPRE,FN=LAACTFIL_^1EX_]_^1 * THE LADLQMST, LACOSIGN AND LAACTFIL FILES HAVE BEEN PURGED_^1MNUPRO_]_^1/!_]_^__PLM11 CSY/ 1DEFINE,FN=PRFLM011,OW=LA,ED=999999,TY=S,LR=80,NR=15_^1LOAD,FN=PRFLM011,OW=LA_^1CHEKID_]_^1 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE_^1 * WILL BE PRINTED_^1LACTMT_]_  3&|s^1 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE_^1 * HAS BEEN PRINTED_^1MNUPRO_]_^1/!_]_^__PLM12 CSY/ 1DEFINE,FN=PRFLM012,OW=LA,ED=999999,TY=S,LR=80,NR=15_^1LOAD,FN=PRFLM012,OW=LA_^1CHEKID_]_^1 * THE LEGAL ACTIVE USER FILE MAINTENANCE ROUTINE WILL BE EXECUTED_^1 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN_^1 *_]_^1LUSEMT_]_^1 * THE LEGAL ACTIVE USER FILE MAINTENANCE ROUTINE IS COMPLETE_^1MNUPRO_]_^1/!_]_^__ PLM13 CSY/ 1DEFINE,FN=PRFLM013,OW=LA,ED=999999,TY=S,LR=80,NR=10_^1LOAD,FN=PRFLM013,OW=LA_^1CHEKID_]_^1 * THE REPORT GENERATOR DATA ELEMENT TABLE WILL BE PRINTED_^1LPGLTB_]_^1MNUPRO_]_^1/!_]_^__PLM14 CSY/ 1DEFINE,FN=PRFLM014,OW=LA,ED=999999,TY=S,LR=80,NR=40_^1LOAD,FN=PRFLM014,OW=LA_^1CHEKID_]_^1 * THE REPORT GENERATOR DATA ELEMENT TABLE ROUTINES WILL BE EXECUTED_^1 *_]_^1 * THE DATA ELEMENT TABLE WILL BE PRINTED_^1LPGLTB_]_^1 * THE DATA ELEMENT TABLE HAS BEEN PRINTED_^1 *_]_^1 * THE DATA ELEMENT TABLE WILL BE UPDATED_^1 *_]_^1 ****OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN_^1 *_]_^1INPUT=PRFLM014_^1SWITCH_]_^1000000000_]_^1LPGUTB_]_^1 * THE DATA ELEMENT TABLE HAS BEEN UPDATED_^1 *_]_^1 * THE DATA ELEMENT TABLE WILL BE PURGED_^1INPUT=PRFLM014_^1UTIL_]_^1DEFINE,FN=LATBLWRK,TY=R,K1=6,P1=1,NR=2000,LR=80_^1EX_]_^1LPGCMP_]_^1INPUT=PRFLM014_^1UTIL_]_^1DELETE,FN=LARPTTBL_^1RENAME,FN=LATBLWRK,F2=LARPTTBL_^1EX_]_^1 * THE DATA ELEMENT TABLE HAS BEEN PURGED_^1 *_]_^1 * THE REPORT GENERATOR DATA ELEMENT TABLE ROUTINES ARE COMPLETE_^1MNUPRO_]_^1/!_]_^__ PLM15 CSY/ 1DEFINE,FN=PRFLM015,OW=LA,ED=999999,TY=S,LR=80,NR=35_^1LOAD,FN=PRFLM015,OW=LA_^1CHEKID_]_^1 * THE PROGRAM DIRECTORY FILE ROUTINES WILL BE EXECUTED_^1 *_]_^1 * THE PROGRAM DIRECTORY FILE WILL B  3&|E PRINTED_^1LPGLIS_]_^1 * THE PROGRAM DIRECTORY FILE HAS BEEN PRINTED_^1 *_]_^1 *_]_^1 * THE PROGRAM DIRECTORY FILE WILL BE PURGED_^1 *_]_^1 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN_^1 *_]_^1LPGPRG_]_^1INPUT=PRFLM015_^1UTIL_]_^1COMPRE,FN=LARPTPGM_^1EX_]_^1 * THE PROGRAM DIRECTORY FILE HAS BEEN PURGED_^1 *_]_^1 * THE PROGRAM DIRECTORY FILE WILL BE PRINTED_^1LPGLIS_]_^1 * THE PROGRAM DIRECTORY FILE HAS BEEN PRINTED_^1 *_]_^1 * THE PROGRAM DIRECTORY FILE ROUTINES HAVE BEEN EXECUTED_^1MNUPRO_]_^1/!_]_^__ PLM16 CSY/ 1DEFINE,FN=PRFLM016,OW=LA,ED=999999,TY=S,LR=80,NR=15_^1LOAD,FN=PRFLM016,OW=LA_^1CHEKID_]_^1 * THE SCREEN FILES WILL BE PRINTED_^1 *_]_^1 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN_^1 *_]_^1LPRSCN_]_^1 * THE SCREEN FILES HAVE BEEN PRINTED_^1MNUPRO_]_^1/!_]_^__ PLM17 CSY/ 1DEFINE,FN=PRFLM017,OW=LA,ED=999999,TY=S,LR=80,NR=15_^1LOAD,FN=PRFLM017,OW=LA_^1CHEKID_]_^0LCLIUD_]_^1 * THE CLIENT FILE MAINTENANCE PROGRAM WILL BEGIN_^1CLIENT_]_^1 * THE CLIENT FILE MAINTENANCE PROGRAM HAS COMPLETED_^1MNUPRO_]_^1/!_]_^__ PLO01 CSY/ 1DEFINE,FN=PRFLO001,OW=LA,ED=999999,TY=S,LR=80,NR=20_^1LOAD,FN=PRFLO001,OW=LA_^1CHEKID_]_^1INPUT=PRFLO001_^1SWITCH_]_^110000000_]_^1 * DELINQUENT RECORD CONTENT REPORT WILL NOW BE PRINTED_^1 * THE ACCOUNTS BEING PRINTED ARE THE INACTIVE ACCOUNTS NOT PREVIOUSLY_^1 * PRINTED_]_^1LDTLST_]_^1 * THE DELINQUENT RECORD CONTENT REPORT IS COMPLETE_^1MNUPRO_]_^1/!_]_^__PLO02 CSY/ 1DEFINE,FN=PRFLO002,OW=LA,ED=999999,TY=S,LR=80,NR=20_^1LOAD,FN=PRFLO002,OW=LA_^1CHEKID_]_^1INPUT=PRFLO002_^1SWITCH_]_^101000000_]_^1 * DELINQUENT RECORD CONTENT REPORT WILL NOW BE PRINTED_^1 * THE ACCOUNTS BEING PRINTED WERE REQUESTED BY THE SUPERVISOR_^1LDTLST_]_^1INPUT=PRFLO002_^1UTIL_]_^1CLEAR,FN=LASREQDL_^1EX_]_^1 * THE DELINQUENT RECORD CONTENT REPORT IS COMPLETE_^1MNUPRO_]_^1/!_]_^__ .  3&|PLO03 CSY/ 1DEFINE,FN=PRFLO003,OW=LA,ED=999999,TY=S,LR=80,NR=40_^1LOAD,FN=PRFLO003,OW=LA_^1CHEKID_]_^1 * CALCULATE AGE FOR TREND ANALYSIS_^1LTRNDF_]_^1 * THE TREND ANALYSIS AGE CALCULATION IS COMPLETE_^1 *_]_^1 * THE LAACCAGE AND LARSWFIL FILES ARE BEING SORTED INTO LAAGEWRK_^1INPUT=PRFLO003_^1UTIL_]_^1DELETE,FN=LAAGEWRK_^1EX_]_^1INPUT=PRFLO003_^1DSORT_]_^1FN=LAACCAGE,LA_^1FN=LARSWFIL,LA_^1F2=LAAGEWRK,LA,SYSVOL_^1OP=T,F,A_]_^1KF=A,1,1,A,17,4_^1SL=I_]_^1 * THE LAACCAGE AND LARSWFIL FILES HAVE BEEN SORTED_^1 *_]_^1 **** OPERATOR -_^1 *_"RESPOND:_!'N' CARRIAGE RETURN TO BYPASS UPDATING PREVIOUS_^1 *_.TREND DATA FOR NEXT RUN_^1 *_]_^1 *_.CARRIAGE RETURN ONLY TO UPDATE PREVIOUS TREND DATA_^1 *_.FOR NEXT RUN_^1CCSPAS_]_^1LTRNDU_]_^1INPUT=PRFLO003_^1UTIL_]_^1CLEAR,FN=LARSWFIL_^1EX_]_^1MNUPRO_]_^1/!_]_^__ PLO04 CSY/ 1DEFINE,FN=PRFLO004,OW=LA,ED=999999,TY=S,LR=80,NR=25_^1LOAD,FN=PRFLO004,OW=LA_^1CHEKID_]_^1 * GENERATE THE TREND ANALYSIS REPORT BY QUEUE_^1 * THE LAAGEWRK FILE IS BEING SORTED_^1INPUT=PRFLO004_^1DSORT_]_^1FN=LAAGEWRK,LA_^1F2=LAAGEWRK,LA,_^1OP=T,F,A_]_^1KF=A,1,1,A,17,4_^1SL=I_]_^1 * THE LAAGEWRK FILE HAS BEEN SORTED_^1 * THE TREND ANALYSIS REPORT BY QUEUE WILL NOW BE PRINTED_^1INPUT=PRFLO004_^1SWITCH_]_^110000000_]_^1LTRNDP_]_^1 * THE TREND ANALYSIS REPORT BY QUEUE IS COMPLETE_^1MNUPRO_]_^1/!_]_^__ PLO05 CSY/ 1DEFINE,FN=PRFLO005,OW=LA,ED=999999,TY=S,LR=80,NR=25_^1LOAD,FN=PRFLO005,OW=LA_^1CHEKID_]_^1 * GENERATE THE TREND ANALYSIS REPORT BY PRODUCT TYPE_^1 * THE LAAGEWRK FILE IS BEING SORTED_^1INPUT=PRFLO005_^1DSORT_]_^1FN=LAAGEWRK,LA_^1F2=LAAGEWRK,LA,_^1OP=T,F,A_]_^1KF=A,1,1,A,25,4_^1SL=I_]_^1 * THE LAAGEWRK FILE HAS BEEN SORTED_^1 * THE TREND ANALYSIS REPORT BY PRODUCT TYPE WILL NOW BE PRINTED_^1INPUT=PRFLO005_^1SWITCH_]_^100000000_]_^1LTRNDP_]_^1 * THE TREND ANALYSIS REPORT BY PRODUCT TYPE IS COMPLETE_^1MNUPRO_]_^1/!_]_^__I  3&|PLO06 CSY/ 1DEFINE,FN=PRFLO006,OW=LA,ED=999999,TY=S,LR=80,NR=35_^1LOAD,FN=PRFLO006,OW=LA_^1CHEKID_]_^1 * THE WRITE-OFF REPORT WILL BE GENERATED_^1 * THE LAWOEF FILE WILL BE CREATED_^1INPUT=PRFLO006_^1UTIL_]_^1DEFINE,FN=LAWOEF,ED=999999,TY=S,LR=115,NR=6000_^1EX_]_^1LWROFE_]_^1 * THE LAWOEF FILE HAS BEEN CREATED_^1 * THE LAWOEF FILE IS BEING SORTED_^1INPUT=PRFLO006_^1DSORT_]_^1FN=LAWOEF,LA_^1F2=LAWOEF,LA,_^1OP=T,F,A_]_^1KF=A,25,1,A,17,4,A,21,4,A,1,16_^1SL=I_]_^1 * THE LAWOEF FILE HAS BEEN SORTED_^1 * THE WRITE-OFF REPORT WILL BE PRINTED_^1LWROFP_]_^1INPUT=PRFLO006_^1UTIL_]_^1DELETE,FN=LAWOEF_^1EX_]_^1 * THE WRITE-OFF REPORT IS COMPLETE_^1MNUPRO_]_^1/!_]_^__PLO07 CSY/ 1DEFINE,FN=PRFLO007,OW=LA,ED=999999,TY=S,LR=80,NR=15_^1LOAD,FN=PRFLO007,OW=LA_^1CHEKID_]_^1 * THE DAILY ASSIGNMENT REPORT LIST WILL BE PRINTED_^1LDALST_]_^1 * THE DAILY ASSIGNMENT LIST REPORT IS COMPLETE_^1MNUPRO_]_^1/!_]_^__ PLO08 CSY/ 1DEFINE,FN=PRFLO008,OW=LA,ED=999999,TY=S,LR=80,NR=15_^1LOAD,FN=PRFLO008,OW=LA_^1CHEKID_]_^1 * THE SUMMARY ACCOUNT REPORT LIST WILL BE PRINTED_^1LSUMAC_]_^1 * THE SUMMARY ACCOUNT REPORT LIST IS COMPLETE_^1MNUPRO_]_^1/!_]_^__ PLO09 CSY/ 1DEFINE,FN=PRFLO009,OW=LA,ED=999999,TY=S,LR=80,NR=25_^1LOAD,FN=PRFLO009,OW=LA_^1CHEKID_]_^1 * THE WEEKLY COLLECTOR STATISTICS REPORT WILL BE PRINTED_^1INPUT=PRFLO009_^1SWITCH_]_^101000000_]_^1LCOLST_]_^1 * THE WEEKLY COLLECTOR STATISTICS REPORT IS COMPLETE_^1 **** OPERATOR -_^1 *_"RESPOND: 'N' CARRIAGE RETURN - TO BYPASS ZEROING THE WEEKLY COUNT_^1 *_]_^1 *_,CARRIAGE RETURN ONLY - TO ZERO THE WEEKLY COUNT_^1CCSPAS_]_^1INPUT=PRFLO009_^1SWITCH_]_^100001000_]_^1LCOLST_]_^1MNUPRO_]_^1/!_]_^__  3&|PLO10 CSY/ 1DEFINE,FN=PRFLO010,OW=LA,ED=999999,TY=S,LR=80,NR=25_^1LOAD,FN=PRFLO010,OW=LA_^1CHEKID_]_^1 * THE MONTHLY COLLECTOR STATISTICS REPORT WILL BE PRINTED_^1INPUT=PRFLO010_^1SWITCH_]_^100100000_]_^1LCOLST_]_^1 * THE MONTHLY COLLECTOR STATISTICS REPORT IS COMPLETE_^1 **** OPERATOR -_^1 *_"RESPOND: 'N' CARRIAGE RETURN - TO BYPASS CLEARING THE COLLECTOR_^1 *_CSTATISTICS COUNT FILE_^1 *_]_^1 *_,CARRIAGE RETURN ONLY - TO CLEAR THE COLLECTOR STATISTICS_^1 *_CCOUNT FILE_^1CCSPAS_]_^1INPUT=PRFLO010_^1UTIL_]_^1CLEAR,FN=LACOLSTS_^1EX_]_^1MNUPRO_]_^1/!_]_^__ PLCTR CSY/ 1DEFINE,FN=PRFLACTR,OW=LA,ED=999999,TY=S,LR=80,NR=40_^1LOAD,FN=PRFLACTR,OW=LA_^1CHEKID_]_^1 **** OPERATOR - THE BATCH HOST MUST BE ACTIVE BEFORE PROCEEDING_^1 **** OPERATOR - (BATCH HOST MUST BE ACTIVE BEFORE PROCEEDING)_^1 *_.TO ACTIVATE BATCH HOST_^1 *_.MI, *BATCH,F_^1 *_]_^1 *_"RESPOND: 'N' CARRIAGE RETURN - IF BATCH HOST IS NOT ACTIVE_^1 *_]_^1 *_,CARRIAGE RETURN ONLY - TO CONTINUE_^1CCSPAS_]_^1 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN_^1INPUT=PRFLACTR_^1UTIL_]_^1DEFINE,FN=LARPTWKE,LR=80,NR=1000_^1DEFINE,FN=LARPTWKP,LR=80,NR=1000_^1DEFINE,FN=LAPRCWRK,LR=80,NR=50_^1EX_]_^1LPGGEN_]_^1 * THE REPORT GENERATOR PROGRAMS HAVE BEEN CREATED_^1 * THE REPORT GENERATOR PROGRAMS WILL BE BATCHED_^1INPUT=PRFLACTR_^1UTIL_]_^1BATCH,FN=LARPTWKE,TY=N_^1BATCH,FN=LARPTWKP,TY=R_^1DELETE,FN=LARPTWKE_^1DELETE,FN=LARPTWKP_^1CLEAR,FN=LAPGEXTR_^1EX_]_^1LPGCT1_]_^1 *_]_^1 **** OPERATOR - SELECTION L MUST NOW BE RUN TO EXECUTE THE REPORT_^1 *_.CARRIAGE RETURN WHEN READY_^1CCSPAS_]_^1MNUPRO_]_^1/!_]_^__ PLO12 CSY/ 1DEFINE,FN=PRFLO012,OW=LA,ED=999999,TY=S,LR=80,NR=15_^1LOAD,FN=PRFLO012,OW=LA_^1CHEKID_]_^1 * THE QUEUE LOADING REPORT WILL BE PRINTED_^1LQLOAD_]_^1 * THE QUEUE LOADING REPORT IS COMPLETE_^1MNUPRO_]_^1/!_]_^__ PLO13 CSY/ T  3&|1DEFINE,FN=PRFLO013,OW=LA,ED=999999,TY=S,LR=80,NR=25_^1LOAD,FN=PRFLO013,OW=LA_^1CHEKID_]_^1 * PAYMENT FILE WILL BE SORTED FOR THE COMPLETE PAYMENT REPORT_^1INPUT=PRFLO013_^1DSORT_]_^1FN=LAPMTFIL,LA_^1F2=LAPMTFIL,LA,_^1OP=T,F,A_]_^1KF=A,34,4,A,29,6_^1SL=I_]_^1INPUT=PRFLO013_^1 * COMPLETE PAYMENT REPORT WILL NOW BE PRINTED_^1COMPAY_]_^1 * DIRECT PAYMENT REPORT WILL NOW BE PRINTED_^1DIRPAY_]_^1INPUT=PRFLO013_^1UTIL_]_^1CLEAR,FN=LAPMTFIL_^1EX_]_^1MNUPRO_]_^1/!_]_^__PLO14 CSY/ 1DEFINE,FN=PRFLO014,OW=LA,ED=999999,TY=S,LR=80,NR=45_^1LOAD,FN=PRFLO014,OW=LA_^1CHEKID_]_^1 * THE INVENTORY REPORT PROCESS WILL NOW BEGIN_^1 * THE CLIENT FILE IS BEING EXTRACTED_^1INPUT=PRFLO014_^1UTIL_]_^1DEFINE,FN=LACLINV,TY=S,LR=80,NR=100_^1EX_]_^1LCLIUD_]_^1CLXTRT_]_^1 * CLIENT EXTRACT RECORDS WILL BE SORTED_^1INPUT=PRFLO014_^1DSORT_]_^1FN=LACLINV,LA_^1F2=LACLINV,,_^1OP=T,F,A_]_^1KF=A,1,16_]_^1SL=I_]_^1INPUT=PRFLO014_^1 * THE INVENTORY REPORT BY ACCOUNT WILL BE PRINTED_^1INVCUS_]_^1 * CLIENT EXTRACT RECORDS WILL BE SORTED BY CLIENT_^1INPUT=PRFLO014_^1DSORT_]_^1FN=LACLINV,LA_^1F2=LACLINV,,_^1OP=T,F,A_]_^1KF=A,17,4_]_^1SL=I_]_^1INPUT=PRFLO014_^1 * THE INVENTORY REPORT BY CLIENT WILL BE PRINTED_^1INVCLI_]_^1INPUT=PRFLO014_^1UTIL_]_^1DELETE,FN=LACLINV_^1EX_]_^1 * INVENTORY REPORT PROCESS IS COMPLETE_^1MNUPRO_]_^1/!_]_^__PLO15 CSY/ 1DEFINE,FN=PRFLO015,OW=LA,ED=999999,TY=S,LR=80,NR=15_^1LOAD,FN=PRFLO015,OW=LA_^1CHEKID_]_^1 * THE RECOVERY ANALYSIS REPORT WILL BEGIN_^1LCLIUD_]_^1RECVRY_]_^1 * THE RECOVERY ANALYSIS REPORT IS COMPLETE_^1MNUPRO_]_^1/!_]_^__ END/ X  3&|__AM HELPER_'O35 A MSOS CCS 3.0_5SL-149_^1*_$MISCELLANEOUS SUBROUTINES FOR LIBRARY BUILDER_^1*_$CREDIT COLLECTION SYSTEM VERSION 3.0_^1*_$DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA_^1*_$COPYRIGHT CONTROL DATA CORPORATION 1979_^1_%SPC 2_^1_%COM LUIN,LSTOUT,LUBOUT,SKELLU,IDFLEN,LIBOUT,MMERR,ICHECK,ILEN_^1_%COM MMADR,ISELEC,LIMSPC,PRNIDX,INPIDX,IOIDX,LENGTH,INUM,ICHR_^1_%COM IANY,IDLEN,ITMPTR,ITMIDX,IRECNO,NXTITM,NUMDEK,NAMBLK(60)_^1_%COM INDTBL(60),IPRINT(40),INPBUF(97),IOBUFF(96),NAMPTR(512)_^1_%COM IDENT(25),NAME(3),IVALS(33),ISHORT(6)_^1_%SPC 2_^1_%EXT HELP0_^1_%ENT HELPER_^1PAD_"NUM 0,0,0_^1MYTHRD NUM $FFFF_^1PAD1_!BZS PAD1(7)_^1MYLOOP LDA* MYTHRD_'THIS IS WHERE EXECUTION 'REALLY' BEGINS._^1_%SAZ HELPER_'IF GTFILE REQUEST COMPLETE_^1_%JMP* MYLOOP_'IF NOT_^1HELPER RTJ HELP0_(EXECUTE MAIN CONTROL SUBROUTINE_^1KILL_!RTJ- ($F4)_(EXECUTE AN EXIT REQUEST_^1_%NUM $0A00_^1_%EJT_]_^1*_$THE FOLLOWING SET OF SUBROUTINES ARE INCLUDED IN HELPER._^1*_'NAME_"FUNCTION_^1*_%GETREC_!GET AN INPUT RECORD_^1*_%PRINT_"PRINT A RECORD_^1*_%OUTBIN_!OUTPUT A BINARY RECORD_^1*_%DISKIO_!READ OR WRITE A RECORD ON MASS MEMORY._^1*_%INIT_#PERFORM NEEDED INITIALIZATION_^1*_%MOVE_#MOVE DATA FROM ONE PLACE TO ANOTHER (USUALLY FORMAT ST)_^1*_%BINDEC_!EXECUTE HELP1_^1*_%INCIDX_!EXECUTE HELP1_^1*_%GETCHR_!EXECUTE HELP2_^1*_%STOREC_!EXECUTE HELP2_^1*_%CLEAR_"EXECUTE HELP3_^1*_%UNICHK_!EXECUTE HELP3_^1*_%STODEK_!EXECUTE HELP4_^1*_%STODEF_!EXECUTE HELP5_^1*_%MAKLIB_!EXECUTE HELP8_^1*_%DEFINE_!EXECUTE HELP9_^1*_%GETITM_!EXECUTE HELP10_^1*_%HASH_#EXECUTE HELP11_^1*_%GETPGM_!EXECUTE HELP12_^1*_%GETBIN_!EXECUTE HELP13_^1*_%ERROR1_!NOTE ERROR AND KILL_^1*_%ERROR2_!NOTE ERROR AND OPTIONS, GET RESPONSE._^1*_%ERROR3_!NOTE ERROR AND OPTIONS, GET RESPONSE._^1*_%ERROR4_!NOTE ERROR AND KILL_^1*_%ERROR5_!NOTE ERROR AND KILL_^1*_%ERROR6_!NOTE ERROR AND KILL_^1*_%ERROR7_!NOTE ERROR AND KILL_^1*_%GNSCHR_!GET NEXT NON-SPACE CHARACTER FROM INPUT BUFFER_^1*_%COMMNT_!OUTPUT MESSAGE TO TTY, INPUT OPERATORS RESPONSE._^1*_%RESTAR_!PRINT RESTART MSG FOR HELP0, GET RESPONSE._^1*_%KILJOB_!TERMINATE EXECUTION_^1*_%WEF_$WRITE END FILE_^1_%EJT_]_^1_%ENT KILJOB_'KILLS RUN_^1KILJOB NUM 0_^1_%JMP* KILL_)KILL JOB_^1_%EJT_]_^1*_$THIS SECTION EXECUTES THE APPROPRIATE HELPN ROUTINE IN RESPONSE_^1*_$TO A CALL USING ANOTHER NAME_^1_%SPC 2_^1_%EXT HELP1,HELP2,HELP3,HELP4,HELP5,HELP8,HELP9,HELP10_^1_%EXT HELP11,HELP12,HELP13_^1_%ENT BINDEC,INCIDX,GETCHR,STOREC,CLEAR,STODEK_^1_%ENT UNICHK,MAKLIB,DEFINE,GETITM,HASH,GETPGM,GETBIN_^1_%ENT STODEF_^1_%SPC 2_^1BINDEC NUM 0_^1_%ENA 2_^1_%STA ISELEC_^1_%RTJ HELP1_^1_%JMP* (BINDEC)_^1_%SPC 1_^1INCIDX NUM 0_^1_%ENA 3_^1_%STA ISELEC_^1_%RTJ HELP1_^1_%JMP* (INCIDX)_^1_%SPC 1_^1GETCHR NUM 0_^1_%ENA 1_^1_%STA ISELEC_^1_%RTJ HELP2_(EXECUTE HELP2_^1_%JMP* (GETCHR)_$RETURN_^1*_]_^1STOREC NUM 0_^1_%ENA 2_^1_%STA ISELEC_^1_%RTJ HELP2_^1_%JMP* (STOREC)_^1*_]_^1CLEAR NUM_!0_^1_%ENA 2_^1_%STA ISELEC_^1_%RTJ HELP3_^1_%JMP* (CLEAR)_^1*_]_^1*_]_^1UNICHK NUM 0_^1_%ENA 3_^1_%STA ISELEC_^1_%RTJ HELP3_^1_%JMP* (UNICHK)_^1STODEK NUM 0_^1_%RTJ HELP4_^1_%JMP* (STODEK)_^1_%SPC 1_^1STODEF NUM 0_^1_%RTJ HELP5_^1_%JMP* (STODEF)_^1_%SPC 1_^1MAKLIB NUM 0_^1_%RTJ HELP8_^1_%JMP* (MAKLIB)_^1_%SPC 1_^1DEFINE NUM 0_^1_%RTJ HELP9_^1_%JMP* (DEFINE)_^1_%SPC 1_^1GETITM NUM 0_^1_%RTJ HELP10_^1_%JMP* (GETITM)_^1_%SPC 1_^1HASH_!NUM 0_^1_%RTJ HELP11_^1_%JMP* (HASH)_^1_%SPC 1_^1GETPGM NUM 0_^1_%RTJ HELP12_^1_%JMP* (GETPGM)_^1_%SPC 1_^1GETBIN NUM 0_^1_%RTJ HELP13_^1_%JMP* (GETBIN)_^1_%EJT_]_^1*_$PRINT RESTART MSG FOR HELP0_^1_%ENT RESTAR_^1RESTAR NUM 0_,ENTRY_^1_%RTJ COMMN  3&|T_(PRINT MSG ON TTY_^1_%ADC MESRES_^1_%ADC MSLEN_^1_%JMP* (RESTAR)_^1_%SPC 2_^1MESRES NUM $0D00_^1_%ALF Z,LIBRARY BUILD COMPLETEZ_^1_%NUM $0D00_^1_%ALF Q,TYPE *Z TO TERMINATE ORQ_^1_%NUM $0D00_^1_%ALF Z,TYPE *C TO CONTINUE WITH CURRENT SKELETON AND/ORZ_^1_%NUM $0D00_^1_%ALF Z,OUTPUT LIBRARY LU'SZ_^1MSLEN ADC MSLEN-MESRES_^1_%EJT_]_^1*_$NOTE ERROR FOUND BY HELP4--STODEK_^1_%ENT ERROR2_^1ERROR2 NUM 0_,ENTRY_^1_%RTJ WRITTY_'WRITE HEADER LINE ON TTY_^1_%ADC MES2_^1_%ADC LEN2_^1_%RTJ COMMNT_'WRITE OPTIONS ON TTY AND_^1_%ADC MESRST_'WAIT FOR RESPONSE_^1_%ADC RSTLEN_^1_%JMP* (ERROR2)_$RETURN TO CALLER_^1_%SPC 1_^1MES2_!NUM $0D00_^1_%ALF 17,NAM RECORD NOT 1ST RECORD OF DECK._^1_%NUM $0D00_^1LEN2_!NUM 19_+MESSAGE LENGTH_^1_%EJT_]_^1*_$NOTE ERROR FOUND BY HELP4--STODEK_^1_%ENT ERROR3_^1ERROR3 NUM 0_^1_%RTJ WRITTY_'WRITE HEADER LINE ON TTY_^1_%ADC MES3_^1_%ADC LEN3_^1_%RTJ COMMNT_'WRITE OPTIONS ON TTY AND_^1_%ADC MESRST_'WAIT FOR RESPONSE_^1_%ADC RSTLEN_^1_%JMP* (ERROR3)_^1_%SPC 1_^1MES3_!NUM $0D00_^1_%ALF 27,XFR RECORD MISSING FOR LAST PGM LISTED. PGM DELETED._^1_%NUM $0D00_^1LEN3_!NUM 29_+MESSAGE LENGTH_^1_%EJT_]_^1*_$NOTE ERROR FOUND BY HELP10--GETITM_^1_%ENT ERROR4_^1ERROR4 NUM 0_^1_%RTJ CLEAR_^1_%RTJ MOVE_^1_%ADC MES4A_^1_%ADC N29_^1_%ADC IPRINT+1_^1_%RTJ PRINT_^1_%JMP KILL_^1_%SPC 1_^1MES4A ADC MES4_^1MES4_!ALF 28,TOO MANY BINARY DECKS LOADED. CHANGE LIMIT AND RECOMPIL_^1_%ALF 1,E._^1N29_"NUM 29_^1_%EJT_]_^1*_$NOTE ERROR FOUND BY HELP12--GETPGM_^1_%ENT ERROR5_^1ERROR5 NUM 0_^1_%RTJ CLEAR_^1_%RTJ MOVE_^1_%ADC MES5A_^1_%ADC N16_^1_%ADC IPRINT+1_^1_%RTJ PRINT_^1_%JMP KILL_^1_%SPC 1_^1MES5A ADC MES5_^1MES5_!ALF 16,FATAL PROGRAM ERROR. RUN KILLED._^1N16_"NUM 16_^1_%EJT_]_^1*_*NOTE ERROR FOUND BY GETREC--HELPER_^1*_]_^1ERROR6 NOP 0_,ENTRY_^1_%RTJ CLEAR_^1_%RTJ MOVE_)WRITE ERROR ON LISTING_^1_%ADC MES6A_^1_%ADC N23_^1_%ADC IPRINT+1_^1_%RTJ PRINT_^1_%JMP* (ERROR6)_$EXIT_^1_%SPC 5_^1ERROR7 NOP 0_,ENTRY_^1_%RTJ WRITTY_'WRITE HEADER LINE ON TTY_^1_%ADC MES6T_^1_%ADC MES6L_^1_%RTJ COMMNT_'WRITE OPTIONS ON TTY AND_^1_%ADC MESRST_'WAIT FOR RESPONSE_^1_%ADC RSTLEN_^1_%JMP* (ERROR7)_$EXIT_^1MES6A ADC MES6_^1MES6T NUM $0D00_^1MES6_!ALF 23,ILLEGAL RECORD SIZE (.GT.96). RECORD DELETED_^1_%NUM $0D00_^1N23_"NUM 23_^1MES6L NUM 25_^1MESRST NUM $0D00_^1_%ALF 17,TYPE 1, CR TO TERMINATE EXECUTION_^1_%NUM $0D00_^1_%ALF 28,TYPE 2, CR TO PROCEED TO SUBSEQUENT LIBRARY OR SKELETON_^1_%NUM $0D00_^1_%ALF 24,TYPE 3, CR TO CONTINUE ON WITH CURRENT LIBRARY._^1_%NUM $0D00_^1RSTLEN NUM 72_^1_%EJT_]_^1_%EJT_]_^1*_$DISKIO IS THE DISK INPUT/OUTPUT ROUTINE FOR HELPER._^1*_$THE CALL SEQUENCE IS CALL DISKIO (CODE,ADR,IDX)_^1*_]_^1*_%WHERE CODE MAY HAVE THE FOLLOWING VALUES. 1, 2._^1*_]_^1*_$IF CODE=1, FBCORE READS 96 WORDS FROM SCRATCH MASS MEMORY_^1*_$USING IDX AS THE MM ADDRESS AND ADR AS A BUFFER ADDRESS._^1*_]_^1*_$IF CODE=2, FBCORE WRITES 96 WORDS ONTO SCRATCH MASS MEMORY_^1*_$USING IDX AS THE MM ADDRESS AND ADR AS A BUFFER ADDRESS._^1*_]_^1*_$IF CODE NOT 1, 2 IS ASSUMED._^1*_]_^1*_]_^1_%ENT DISKIO_^1*_]_^1DISKIO NUM 0_^1_%STQ QREG_^1_%SPC 2_^1_%RTJ* PKUP_)GET FIRST PARAM ADDRESS_^1_%STA* CODE_)STORE IN CODE_^1_%SPC 2_^1_%RTJ* PKUP_)GET ADR ADDRESS_^1_%STA* ADR_*STORE IN ADR_^1_%SPC 2_^1_%RTJ* PKUP_)GET IDX ADDRESS_^1_%TRA Q_^1_%LDA- (ZERO),Q_^1_%STA* IDXX_)STORE IN IDXX_^1_%SPC 2_^1_%LDA* (CODE)_'LOAD CODE_^1_%INA -1_,SUBTRACT 1_^1_%SAN CONT1_(SKIP TO CONT1 IF NOT 0 (CODE =2)_^1_%SPC 2_^1_%LDA =N$4801_%LOAD A WITH READ REQUEST CODE_^1_%JMP* MMIO_)JUMP TO MMIO_^1CONT1 LDA =N$4C01_%LOAD A WITH WRITE REQUEST CODE_^1_%EJT_]_^1MMIO_!STA* REQEST_'STORE REQUEST WORD_^1_%RTJ- ($F4)_(EXECUTE I/O REQUEST_^1REQEST NUM 0_,I/O REQUEST FOR DISK READ OR WRITE_^1_%NUM 0_,COMPL ADR_^1THREAD NUM 0_,THREAD_^1_%NNt  3&}UM $8B3_)LOG UNIT AND MODE_^1_%NUM 96_+LENGTH OF I/O BUFFER_^1ADR_"NUM 0_,START OF I/O_^1_%NUM 0_,MOST SIG BITS OF ADR_^1IDXX_!NUM 0_,LEAST SIG BITS OF ADR_^1_%SPC 2_^1CHKTHD LDA* THREAD_'CHECK THREAD UNTIL NOT BUSY_^1_%SAZ 1_^1_%JMP* CHKTHD_^1_%LDQ* QREG_^1_%JMP* (DISKIO)_^1_%EQU ZERO($22)_^1_%SPC 2_^1*_8PKUP PICKS UP THE ADDRESS OF A PARAMETER FOR_^1*_8DISKIO AND PASSES IT BACK THROUGH THE A-REG._^1PKUP_!NUM 0_^1_%LDA* (DISKIO)_^1OK_#RAO* DISKIO_'BUMP RETURN ADDRESS_^1_%JMP* (PKUP)_^1CODE_!NUM 0_^1_%EJT_]_^1_%ENT MOVE_^1* MOVE DATA FROM A FORMAT STATEMENT TO A PRINT BUFFER_^1* CALLING SEQUENCE FROM FORTRAN_^1*_]_^1*_4100 FORMAT(XXHABCD...._^1*_8ASSIGN 100 TO IADR_^1*_8IADR = IADR + 2_^1*_8CALL MOVE(IADR,NUM,PRNBUF)_^1*_*IADR = ADDRESS OF FORMAT STATEMENT_^1*_*NUM = NUMBER OF WORDS TO MOVE_^1*_*PRNBUF = PRINT BUFFER_^1MOVE_!NUM 0_^1_%STQ* QREG_^1_%RTJ* PARA_)GET ADDRESS OF WORD WHICH CONTAINS ADDRESS OF_^1*_8THE FORMAT STATEMENT_^1_%STA* ADFMT_(SAVE ADDRESS OF FORMAT STATEMENT_^1_%RTJ* PARA_)GET ADDRESS OF NUMBER OF WORDS TO MOVE_^1_%TCA A_^1_%STA* NUM_*SAVE COMPLEMENT OF LENGTH_^1_%RTJ* PARA_)GET ADDRESS OF PRINT BUFFER_^1_%STQ- I_,SAVE ADDRESS_^1_%ENQ 0_^1_%STQ* IDX_*INITIALIZE INDEX_^1LOOP_!LDA* (ADFMT)_%GET WORD FROM FORMAT STATEMENT_^1_%RAO* ADFMT_(BUMP ADDRESS_^1_%LDQ* IDX_^1_%STA- ($22),B_%STORE WORD INTO PRINT BUFFER_^1_%INQ 1_^1_%STQ* IDX_*BUMP INDEX_^1_%ADQ* NUM_^1_%SQZ DONE_^1_%LDQ* IDX_*PICK UP INDEX_^1_%JMP* LOOP_)GET AND STORE NEXT WORD_^1DONE_!LDQ* QREG_^1_%JMP* (MOVE)_^1PARA_!0_"0_^1_%LDA* (MOVE)_'PICK UP ADDRESS OF PARAMETER_^1OKGO_!TRA Q_,RETURN ADDRESS IN Q_^1_%RAO* MOVE_^1_%LDA- ($22),Q_%PICK UP CONTENTS OF ADDRESS_^1_%JMP* (PARA)_^1ADFMT NUM 0_,ADDRESS OF FORMAT STATEMENT_^1NUM_"NUM 0_,COMPLEMENT OF NUMBER OF WORDS TO TRANSFER_^1IDX_"NUM 0_,INDEX_^1_%EJT_]_^1*_$GET A RECORD_^1_%ENT GETREC_^1GETREC NUM 0_^1_%STQ* QREG_^1GETRST RTJ- ($F4)_^1_%NUM $4801_(FREAD, CP=D=1, RP=X=0_^1_%NUM 0_,COMP ADR_^1THRED1 NUM 0_^1LUINP NUM $18F9_(LOGICAL UNIT AND MODE (WILL BE RESET)_^1_%NUM 97_+LENGTH OF BUFFER_^1START ADC INPBUF_'START OF BUFFER_^1_%SPC 1_^1CHECK1 LDA* THRED1_'CHECK THREAD TILL FREE_^1_%SAZ 1_^1_%JMP* CHECK1_^1_%SPC 1_^1_%LDA* LUINP_(IS SHORT READ SET_^1_%ALS 1_^1_%SAP ILRLER_'NO, ILLEGAL RECORD LENGTH ERROR_^1_%JMP* SETLNG_'YES, CONTNUE OK_^1ILRLER RTJ ERROR6_^1BADINP RTJ ERROR7_^1_%LDA+ ISHORT_'CHECK FOR VALID RESPONSE FROM USER_^1_%AND- $1A_*$FF00_^1_%ALS 8_^1_%INA -$31_)IS IT A 1_^1_%SAN X1_+NO_^1_%JMP KILL_)YES, TERMINATE RUN_^1X1_#INA -1_+IS IT A 2_^1_%SAN X2_+NO_^1_%JMP* CHECK4_'YES, TERMINATE THIS LIBRARY_^1X2_#INA -1_+IS IT A 3_^1_%SAN X3_+NO_^1_%JMP* GETRST_'YES, CONTINUE WITH THIS LIBRARY_^1X3_#JMP* BADINP_'BAD RESPONSE REQUEST AGAIN_^1SETLNG LDA+ INPBUF+96_^1_%SUB* START_^1_%STA+ LENGTH_^1*_]_^1*_+CHECK FOR END-OF-FILE OR ERROR_^1_%LDQ* LUINP_(FETCH V-FIELD_^1_%SQM CHECK4_'IF TRUE_^1_%JMP* OOPSY_(IF FALSE_^1*_]_^1*_$EITHER EOF OR ERROR HAS OCCURRED - DEFAULT A *END RECORD_^1CHECK4 ENQ 96_^1_%LDA =N$2020_(FIRST BLANK THE BUFFER_^1SLOOP INQ -1_^1_%SQZ MORTST_^1STAINP STA INPBUF,Q_^1_%JMP* SLOOP_^1*_]_^1*_$SET *END CHARACTERS_^1MORTST LDA =N$2A45_%*E_^1_%STA* (STAINP+1)_^1_%LDA =N$4E44_%ND_^1_%STA INPBUF+1_^1_$ENA 40_^1_%STA LENGTH_'SET DEFAULT RECORD LENGTH_^1OOPSY BSS OOPSY(0)_^1_%SPC 1_^1_%LDQ* QREG_^1_%JMP* (GETREC)_$RETURN_^1_%EJT_]_^1_%ENT PRINT_^1*_$PRINT A RECORD ON THE PRINT DEVICE_^1PRINT NUM 0_^1_%STQ* QREG_^1_%RTJ- ($F4)_^1_%NUM $4C01_(FWRITE, CP=D=1, X=RP=0_^1_%NUM 0_,COMP ADR_^1THRED2 NUM 0_,THREAD_^1_%NUM $18FB_(LOGICAL UNIT--STANDARD PRINT_^1_%NUM 40_+LENGTH OF BUFFER_^1_%ADC IPRINT_'START OF BUFFER_^1_%SPC 1_^1CHECK2 LDA* THRED2_'CHECK THREAD TILL FREE_^1_%SAZ 1_^1_%JMP* CHECK2_^1_%SPC_]_^1_%LDQ* QREG_^1_%JMP* (PRINT)_%RETURN_^1*_]_^1QREG_!NUM 0_^1_%E"  3&}'JT_]_^1*_$OUTPUT A BINARY RECORD_^1_%ENT OUTBIN_^1OUTBIN NUM 0_^1_%STQ* QREG_^1_%LDA* ITYPE_(CHECK ITYPE. IF IT IS 0, CHECK THE OUTPUT_^1_%SAN DOIT_)RECORD TO DETERMINE IF IT IS AN ASCII RAL}(Z C$$ IF ITYPE=0 AND THE RECORD IS ASCII, OUTPUT IT_^1_%QRS 8_,IN ASCII._^1_%INQ -$2A_^1_%SQN DOIT_)GO TO DOIT IF NOT ASCII_^1_%LDA* LUSAVE_^1_%ADD =N$1000_%ADD THE ASC__}*>S&mCn}r~} " 7zD3 NUM 0_^1LUOUTB NUM 0_^1BLEN_!NUM 0_^1ADDRES ADC INPBUF_^1_%SPC_]_^1CHECK3 LDA* THRED3_'CHECK THREAD TILL FREE_^1_%SAZ 1_^1_%JMP* CHECK3_^1_%SPC 1_^1_%LDA* LUSAVE_'ASSURE LUOUTB IS READY FOR NEXT USE_^1_%STA* LUOUTB_^1_%LDQ* QREG_^1_%JMP* (OUTBIN)_$RETURN_^1_%EJT_]_^1*_$INIT DOES THE FOLLOWING_^1*_$1. INITIALIZES ALL LOGICAL UNIT WORDS FOR I/O REQUESTS_^1*_$2. SETS ITYPE=0 IF THE BINARY OUTPUT UNIT IS A CARD DEVICE,_^1*_)SETS ITYPE NOT 0 IF IT IS NOT A CARD DEVICE_^1_%SPC 2_^1_%EXT HELP14_^1_%ENT INIT_^1INIT_!NUM 0_^1_%STQ* QREG_^1_%LDA LUIN_)SET LUINP TO LUIN_^1_%STA* LUINP_^1_%LDA LUBOUT_'SET LUOUTB TO LUBOUT_^1_%STA* LUOUTB_^1_%STA* LUWEF_(ALSO STORE IN LUWEF_^1_%STA* LUSAVE_'AND LUSAVE_^1_%SPC 2_^1_%STA* LOGU_)STORE LUBOUT IN LOGU AND DO STATUS REQUEST_^1_%SAZ NOSTAT_'LOGICAL UNIT ZERO, DO NOT STATUS_^1_%RTJ- ($F4)_^1_%NUM $600_^1LOGU_!NUM 0_^1_%ADC REQUST_^1_%SPC 1_^1_%LDA =N$3800_%LOAD EQUIPMENT CLASS CODE MASK IN A_^1_%LAQ A_,LP OF A AND Q INTO A_^1_%SUB =N$1800_%CHECK IF CARD DEVICE_^1_%STA* ITYPE_(STORE RESULT IN ITYPE (WILL BE SET AS NEEDED)_^1NOSTAT LDQ* QREG_^1_%JMP* (INIT)_'RETURN_^1_%SPC 2_^1ITYPE NUM 0_^1LUSAVE NUM 0_^1_%EJT_]_^1*_$WEF WRITES END OF FILE MARK ON LUOUTB_^1_%ENT WEF_^1WEF_"NUM 0_^1_%STQ* QREG_^1_%RTJ- ($F4)_(WRITE END FILE VIA MONITOR_^1_%NUM $5C00_(REQUEST CODE FOR TAPE MOTION_^1_%NUM 0_,COMP ADDR_^1THRWEF NUM 0_,THREAD_^1LUWEF NUM 0_^1_%NUM $2000_^1CHKWEF LDA* THRWEF_'CHECK THREAD TILL FREE_^1_%SAZ 1_^1_%JMP* CHKWEF_^1_%LDQ* QREG_^1_%JMP* (WEF)_^1_%EJT_]_^1*_]_^1*_*THIS SUBROUTINE PRINTS A MESSAGE ON THE STANDARD_^1*_*COMMENT DEVICE._^1*_]_^1_%SPC 2_^1WRITTY NOP 0_,ENTRY_^1_%STQ* QREG_^1_%RTJ* GETITX_'GET_^1_%STA* ADRREC_'ADDRESS_^1_%RTJ* GETITX_'AND LENGTH_^1_%TRA Q_^1_%LDA- (ZERO),Q_^1_%STA* RECLEN_^1BADWRT RTJ- ($F4)_^1_%NUM $4C01_^1_%NUM 0_^1TD_#NUM 0_^1VLU_"NUM $18FC_^1RECLEN NUM 0_^1ADRREC NUM 0_^1CHKTHZ LDA* TD_+WAIT_^1_%SAZ DONOK_^1_%JMP* CHKTHZ_^1DONOK LDQ* VLU_*IS REQUEST OK_^1_%SQP GOODWT_'YES_^1_%JMP* BADWRT_'NO_^1GOODWT LDQ* QREG_^1_%JMP* (WRITTY)_$EXIT_^1GETITX NOP 0_^1_%LDA* (WRITTY)_^1_%RAO* WRITTY_^1_%JMP* (GETITX)_^1_%EJT_]_^1*_]_^1*_*THIS SUBROUTINE PRINTS A MESSAGE ON THE STANDARD COMMENT_^1*_*DEVICE AND INPUTS THE USERS RESPONSE. THE RESPONSE MAY BE_^1*_*UP TO 10 CHARACTERS._^1*_]_^1_%ENT COMMNT_^1COMMNT NUM 0_,ENTRY_^1_%STQ* QREG_^1_%RTJ* GETIT_(GET FIRST PARAM ADDRESS_^1_%STA* RECADR_'STORE IN RECADR_^1_%RTJ* GETIT_(GET NEXT PARAM ADDRESS_^1_%TRA Q_,GET THE CONTENTS_^1_%LDA- (ZERO),Q_^1_%STA* COUNT_(STORE IN COUNT_^1REPEAT RTJ- ($F4)_^1_%NUM $4C01_(FWRITE, CP=D=1, X=RP=0_^1_%NUM 0_,COMPLETION ADDRESS_^1THRD_!NUM 0_,THREAD_^1_%NUM $18FC_(ASCII--INDIR LOG UNIT NO. IN $FC_^1COUNT NUM 0_,LENGTH OF PRINT BUFFER_^1RECADR NUM 0_,ADDRESS OF PRINT BUFFER_^1*_]_^1CHKTH3 LDA* THRD_)CHECK THREAD TILL NOT BUSY_^1_%SAZ 1_^1_%JMP* CHKTH3_^1_%RTJ- ($F4)_^1_%NUM $4801_(FREAD, CP=D=1, X=RP=0_^1_%NUM 0_,COMPLETION ADDRESS_^1THRED4 NUM 0_,THREAD_^1_%NUM $18FD_(ASCII--LOG UNIT NO. IN ($FD)_^1_%NUM 6_,NUMBER OF WORDS_^1_%ADC ISHORT_^1*_]_^1CHKTH4 LDA* THRED4_'CHECK THREAD TILL NOT BUSY_^1_%SAZ 1_^1_%JMP* CHKTH4_^1_%LDQ* THRED4+1_^1_%SQP 1_^1_%JMP* REPEAT_'REPEAT REQUEST_^1_%LDQ QREG_^1_%JMP* (COMMNT)_,  3&};^1*_]_^1*_8GETIT PICKS UP THE ADDRESS OF A PARAMETER FOR_^1*_8COMMNT AND PASSES IT BACK THROUGH THE A-REG_^1GETIT NUM 0_^1_%LDA* (COMMNT)_^1GETON RAO* COMMNT_'BUMP RETURN ADDRESS_^1_%JMP* (GETIT)_^1_%EJT_]_^1*_$GET NEXT NON-SPACE CHARACTER FROM INPUT BUFFER_^1_%ENT GNSCHR_^1GNSCHR NUM 0_^1OVER_!RTJ GETCHR_^1_%LDA ICHR_^1_%INA -$20_^1_%SAN 1_^1_%JMP* OVER_^1_%JMP* (GNSCHR)_$RETURN WHEN NOT A SPACE CODE_^1_%EJT_]_^1*_$GET NEXT INPUT RECORD, BUMP RECORD NUMBER (IRECNO) AND PRINT_^1*_$RECORD_^1_%ENT NXTREC_^1NXTREC NUM 0_^1_%RTJ GETREC_^1_%RTJ CLEAR_(CLEAR PRINT BUFFER_^1_%RAO IRECNO_'BUMP RECORD NO._^1_%LDA IRECNO_^1_%STA INUM_)STORE IT IN INUM_^1_%ENA 2_^1_%STA PRNIDX_'SET PRINT BUFFER INDEX_^1_%RTJ BINDEC_'PUT ASCII RECORD NO. IN PRINT BUFFER_^1*_]_^1_%ENQ 36_^1TRNREC INQ -1_+TRANSFER INPUT RECORD TO PRINT BUFFER_^1_%SQM ENDTRN_^1_%LDA INPBUF,Q_^1_%STA IPRINT+4,Q_^1_%JMP* TRNREC_^1*_]_^1ENDTRN RTJ PRINT_(PRINT RECORD_^1_%JMP* (NXTREC)_$RETURN_^1_%END HELPER_^__ HELP14 CSY/ O36 1_%NAM HELP14_'O36 A MSOS CCS 3.0_5SL-149_^1*_$SET UP THE VIRTUAL MEMORY SPACE LIMIT_^1*_$CREDIT COLLECTION SYSTEM VERSION 3.0_^1*_$DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA_^1*_$COPYRIGHT CONTROL DATA CORPORATION 1979_^1_%SPC 2_^1_%COM DUM(11),LIMSPC_^1_%ENT HELP14_^1HELP14 NUM 0_^1_%RTJ* NEXT_^1NEXT_!NUM 0_^1_%LDA* ALIMSP_'PICK UP LOCATION OF LIMSPC IN COMMON 132*5414_^1_%INA -22_*SUBTRACT LOC. OF LIMSP (12) + 10_$132*5414_^1_%SUB* NEXT_)SUBTRACT ADDRESS IN NEXT_^1_%SAP HLP2_O117*4434_^1_%LDA- $11_*LIMIT LENGTH OF $7FFF_0117*4434_^1HLP2_!EQU HLP2(*)_L117*4434_^1_%TCA A_,COMPLEMENT AND STORE IN LIMSPC_^1_%STA LIMSPC_^1ALIMSP EQU ALIMSP(*-1)_H132*5414_^1_%JMP* (HELP14)_^1_%END_]_^1 MON_]_^__LJA2B CSY/ FTN O37 1_$FUNCTION LJA2B(FWA,IBYTE,DELIM)_^1_#1_2/O37 F MSOS CCS 3.0_5SL-149_^1C_$CREDIT COLLECTION SYSTEM VERSION 3.0_^1C_$DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA_^1C_$COPYRIGHT CONTROL DATA CORPORATION 1979_^1_$INTEGER FWA(2),DELIM_^1C--- LEFT JUSTIFIED ASCII TO BINARY CONVERTER;_^1C_'SINGLE PRECISION POSITIVE INTEGER RETURNED IF NO ERRORS;_^1C_'MINUS ONE ERROR RETURN FLAG_^1C_]_^1C_#DEFINITIONS%_^1C_(FWA - FIRST WORD ADDRESS OF BUFFER CONTAINING ASCII NUMERIC_^1C_.STRING_^1C_(IBYTE - STARTING CHARACTER POSITION RELATIVE TO 'FWA'_^1C_0BUMPED ONE FOR EACH CHARACTER_^1C_(DELIM - SEARCH DELIMITTER; IF NOT A BLANK THEN LEADING,_^1C_0EMBEDDED, AND TRAILING BLANKS ARE IGNORED. IF A_^1C_0CARRIAGE RETURN($FF) IS DETECTED, OVERRIDE 'DELIM'._^1C_]_^1C--- CLEAR ACCUMULATION_^1_$I = 0_^1C_]_^1C--- FETCH NEXT CHARACTER_^1_"1 K = NEXTCH(FWA,IBYTE)_^1_$IF(K.EQ.DELIM) GO TO 100_^1_$IF(K.EQ.$20) GO TO 1_^1_$IF(K.NE.$FF) GO TO 5_^1C_]_^1C--- SET SI'  3&}OGN BIT OF CHAR. INDEX TO DESIGNATED CAR.RET._^1_$IBYTE = IBYTE + $8000_^1_$GO TO 100_^1C_]_^1C--- CHECK FOR LEGAL DIGIT_^1_"5 CONTINUE_^1_$K = K - $30_^1_$IF(K.LT.0.OR.K.GT.9) GO TO 99_^1C_]_^1C--- CLEAR OVERFLOW AND ADD THIS CHAR. TO ACCUMULATION_^1_$ASSEM $01A0,$0B00_^1_$ASSEM $0A0A,$2800,I,$8800,K_^1C--- CHECK FOR OVERFLOW_^1_$ASSEM $01B2,$1800,99_^1_$ASSEM $0142,$1800,99_^1_$ASSEM $6800,I_^1_$GO TO 1_^1C_]_^1C--- ERROR_^1_!99 I = - 1_^1 100 LJA2B = I_^1_$RETURN_^1_$END_]_^__CONVRS CSY/ FTN O38 1_$INTEGER FUNCTION CONVRS(IDUMMY)_^1_#1_2/O38 F MSOS CCS 3.0_5SL-149_^1C_$CREDIT COLLECTION SYSTEM VERSION 3.0_^1C_$DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA_^1C_$COPYRIGHT CONTROL DATA CORPORATION 1979_^1C_]_^1C---_$LIBRARY BUILDER CONVERSATIONAL OVERLAY_^1C_]_^1C_]_^1C_]_^1_$COMMON//LUIN(2)_",LUBOUT,SKELLU,IDFLEN,LIBOUT,MMERR,ICHECK,ILEN,_^1_#1 MMADR,ISELEC,LIMSPC,PRNIDX,INPIDX,IOIDX,LENGTH,INUM,ICHR,IANY,_^1_#1 IDLEN,ITMPTR,ITMIDX,IRECNO,NXTITM,NUMDEK,NAMBLK(60),INDTBL(60),_^1_#1 IPRINT(40),MUFBUF(97),IOBUFF(96),NAMPTR(512),IDENT(25),NAME(3),_^1_#1 IVALS(11,3),ISHORT(6)_^1_$INTEGER SKELLU,PRNIDX_^1_$INTEGER STDCMO,STDCMI_^1_$INTEGER RIOSUB,WIOSUB_^1_$INTEGER FBUF(41)_^1_$INTEGER MESBUF(40),TEMP(8),CONTRL,PRINTU,CC(7),INPBUF(41),ME(3)_^1_#1 ,ROW(3),COL(3),TEE,HEE,STDCMI,STDCMO_^1_$EXTERNAL LOG1A_^1_$EQUIVALENCE (INPBUF,FBUF(2))_^1C--- CLASS CODE MASK TABLE - ONE WORD PER QUESTION_^1C_]_^1C_]_^1C_!BITS 0 TO 5 - FOR EACH LEGAL CLASS CODE RELATIVE TO THE QUESTION,_^1C_2ONE OF THESE BITS IS SET: BIT 0 - CC 1_^1C_MBIT 1 - CC 2 , ETC._^1_$DATA CC/$2D,$2D,$D,$D,0,$D,$2D/_^1_$DATA IER/0/_^1_$DATA FBUF(1)/$2020/_^1_$DATA STDCMO/$18FC/_^1_$DATA STDCMI/$18FD/_^1_$DATA ME/2,3,4/_^1_$DATA JUSTCR/$20/_^1C--- ROW INDICIES FOR DEFS,INSTALL, AND NEWLIB LU'S_^1_$DATA ROW/1,1,2/_^1C--- COLUMN INDICIES_^1_$DATA COL/1,3,1/_^1C--- CLEAR THREAD WORD OF MONITOR REQUEST BUFFER_^1_$DATA TEMP(3)/0/_^1_$DATA ISIZE/40/_^1C_]_^1C---_!CLEAR ALL MY COMMON_^1C_]_^1_$ASSEM $C000,+ISHORT,$0906,$9000,+LUIN,$6800,I_^1_$DO 5 J = 1,I_^1_"5 LUIN(J) = 0_^1C_]_^1C--- DEFAULT CONTROL LU TO COMMENT INPUT_^1_$CONTRL = STDCMI_^1_$IVALS(3,2) = CONTRL_^1C--- DEFAULT CONTROL MESSAGE OUTPUT LU TO COMMENT OUTPUT_^1_$PRINTU = STDCMO_^1_$IVALS(3,3) = PRINTU_^1C_]_^1C--- REQUEST CONTROL STATEMENT INPUT LU._^1_!40 ASSIGN 100 TO IGOTO_^1_$MESSAG = 1_^1_$GO TO 9000_^1C_]_^1C---_"READ OPERATOR RESPONSE_^1 100 CONTINUE_^1_$ASSIGN 110 TO JGOTO_^1_$GO TO 9100_^1 110 CONTINUE_^1C--- DECODE RESPONSE_^1_$LU= LJA2B(INPBUF,NC,JUSTCR)_^1_$IF(LU.GT.0) GO TO 120_^1_$IF(LU.EQ.0) GO TO 140_^1_$IF(NC.LT.0) GO TO 140_^1C--- CONVERSION ERROR OR ZERO_^1_$ASSIGN 40 TO IGOTO_^1 115 MESSAG = 8_^1_$IER = 1_^1_$GO TO 9000_^1C_]_^1C--- CHECK CLASS CODE_^1 120 CONTINUE_^1_$ASSIGN 130 TO KGOTO_^1_$GO TO 9200_^1C_]_^1C--- GOOD CLASS CODE# SAVE LOGICAL UNIT DESIGNATOR_^1 130 CONTINUE_^1_$IVALS(3,2) = LU + $1000_^1C_]_^1C_]_^1C--- IF CONTROL STATEMENT INPUT NOT COMMENT INPUT,_^1C_#SET PRINT OUTPUT TO STD.LIST DEVICE LU._^1_$ASSEM $C0FD,$9800,LU,$0112,$1800,140,$C000,$18FB,$6800,PRINTU_^1_$CONTRL = LU + $1000_^1C_]_^1C--- SAVE PRINT LU_^1 140 CONTINUE_^1_$IVALS(3,3) = PRINTU_^1_$DO 450 I = 1,3_^1C--- REQUEST DEFINITIONS,INSTALL,AND NEWLIB LU'S._^1 200 CONTINUE_^1_$ASSIGN 210 TO IGOTO_^1_$MESSAG = ME(I)_^1_$GO TO 9000_^1C_]_^1C--- READ RESPONSE_^1 210 CONTINUE_^1_$ASSIGN  3&}c220 TO JGOTO_^1_$GO TO 9100_^1C_]_^1C--- DECODE RESPONSE_^1 220 CONTINUE_^1_$LU = LJA2B(INPBUF,NC,JUSTCR)_^1_$IF(LU.GT.0) GO TO 230_^1_$IF(LU.EQ.0) GO TO 250_^1C_]_^1C--- CONVERSION ERROR_^1_$ASSIGN 200 TO IGOTO_^1_$GO TO 115_^1C_]_^1C--- CHECK CLASS CODE_^1 230 ASSIGN 250 TO KGOTO_^1_$GO TO 9200_^1C_]_^1C--- PICK UP INDICIES FOR THIS QUESTION_^1 250 TEE = ROW(I)_^1_$HEE = COL(I)_^1_$IVALS(TEE,HEE) = LU_^1 450 CONTINUE_^1C_]_^1 500 CONTINUE_^1_$GO TO 600_^1C_]_^1C--- READ RESPONSE_^1 510 CONTINUE_^1_$ASSIGN 520 TO JGOTO_^1_$GO TO 9100_^1C_]_^1C--- BLANK OR CAR.RET. MEANS NO.- ALL OTHER SYMBOLS MEAN YES._^1 520 CONTINUE_^1_$I = 0_^1_$IF(INPBUF.NE.$2020) I = 1_^1_$IVALS(2,3) = I_^1C_]_^1C--- REQUEST UP TO 9 LIBRARY LU'S._^1 600 CONTINUE_^1_$DO 660 I = 1,9_^1 610 CONTINUE_^1_$MESSAG = 6_^1_$LENGTH = MESSY(6,MESBUF)_^1C_]_^1C--- INSERT LIBRARY NUMBER INTO MESSAGE_^1_$MESBUF(3) = MESBUF(3) + I_^1_$ASSIGN 620 TO IGOTO_^1_$GO TO 9050_^1C_]_^1C--- READ RESPONSE_^1 620 ASSIGN 630 TO JGOTO_^1_$GO TO 9100_^1C_]_^1C--- DECODE RESPONSE_^1 630 CONTINUE_^1_$LU = LJA2B(INPBUF,NC,JUSTCR)_^1_$IF(LU.GT.0) GO TO 640_^1_$IF(LU.EQ.0) GO TO 665_^1C_]_^1C--- CONVERSION ERROR_^1_$ASSIGN 610 TO IGOTO_^1_$IER = 1_^1_$GO TO 115_^1C_]_^1C--- CHECK CLASS CODE_^1 640 CONTINUE_^1_$ASSIGN 645 TO KGOTO_^1_$GO TO 9200_^1C_]_^1C--- SAVE LU DESIGNATOR_^1 645 CONTINUE_^1_$IVALS(I+2,1) = LU_^1C_]_^1C--- END OF LOOP_^1 660 CONTINUE_^1_$GO TO 670_^1C_]_^1C--- SET LU SLOT ZERO_^1 665 CONTINUE_^1_$IVALS(I+2,1) = 0_^1C***********************************************************_^1C--- RETURN WITH ERROR IF NO LIBRARY INPUT SP_^1_$IF(I.EQ.1) GO TO 8200_^1C***********************************************************_^1C_]_^1C--- REQUEST SKELETON LU_^1 670 CONTINUE_^1_$ASSIGN 700 TO IGOTO_^1_$MESSAG = 7_^1_$GO TO 9000_^1C_]_^1C--- READ RESPONSE_^1 700 CONTINUE_^1_$ASSIGN 710 TO JGOTO_^1_$GO TO 9100_^1C_]_^1C--- DECODE RESPONSE_^1 710 CONTINUE_^1_$LU = LJA2B(INPBUF,NC,JUSTCR)_^1_$IF(LU.GT.0) GO TO 730_^1_$IF(LU.EQ.0) GO TO 740_^1C_]_^1C--- CONVERSION ERROR_^1_$ASSIGN 670 TO IGOTO_^1_$GO TO 115_^1C_]_^1C--- CHECK CLASS CODE_^1 730 ASSIGN 740 TO KGOTO_^1_$GO TO 9200_^1C*************************************************************_^1C--- CHECK SKELETON,INSTALL NOT SAME LU_^1740_!IF(LU.EQ.0) GO TO 750_^1_$IF(LU.NE.IVALS(1,3)) GO TO 750_^1_$ASSIGN 670 TO IGOTO_^1_$MESSAG = 10_^1_$GO TO 9000_^1C*************************************************************_^1C_]_^1C_]_^1C--- SAVE SKEL. LU_^1C*************************************************************_^1750_!CONTINUE_^1C*************************************************************_^1C***********************************************************_^1_$IVALS (1,2) = LU + $1000_^1C***********************************************************_^1C_]_^1C--- RETURN TO CALLING PROGRAM- NO ERRORS_^1C_]_^1 8000 CONTINUE_^1_$CONVRS = 0_^1_$RETURN_^1C_]_^1C--- RETURN WITH FATAL ERROR_^1 8100 CONVRS = -1_^1_$RETURN_^1C_]_^1C--- RETURN AND TERMINATE_^1 8200 CONVRS = -2_^1_$RETURN_^1C_]_^1C--- PSEUDO-SUBROUTINE: MESSAG CONTAINS MESSAGE NUMBER_^1C_8IGOTO CONTAINS RETURN ADDRESS_^1C_]_^1 9000 CONTINUE_^1_$LENGTH = MESSY(MESSAG,MESBUF)_^1C_]_^1C--- CHECK FOR ERROR_^1_$IF(LENGTH.LE.0) GO TO 8100_^1 9050 CONTINUE_^1C_]_^1C_#PRINT MESSAGE (FWRITE)_^1C_#IF ERROR GO TO 8100_^1_$IF(WIOSUB(PRINTU,MESBUF,LENGTH) .LT. 0) GO TO 8100_^1C_]_^1C--- SEE IF THIS WAS AN ERROR MESSAGE_^1_$IF(IER.EQ.0) GO TO IGOTO_^1_$IER = 0_^1C--- YES; EXIT IF CONTROL LU NOT STD.COMMENT INPUT_^1_$IF(CONTRL.NE.STDCMI) GO TO 8100_^1_$GO TO IGOTO_^1C_]_^1C--- PSEUDO SUBROUTINE : READ CONTROL STATEMENT DEVICE_^1C_]_^1 9100 CONTINUE_^1C_]_^1C---_!BACKGROUND INPUT BUFFER WITH BLANKS_^1_$DO 9102 L = 1,40_^1 9102 INPBUF(L) = $2020_^1_$NC = 1_^1C_#READ INPUT (FREAD)_^1C_#IF ERROR GO TO  3&}w 8100_^1_$IF(RIOSUB(CONTRL,INPBUF,40) .LT. 0) GO TO 8100_^1C_]_^1C--- CHECK FOR *Z_^1_$IF(INPBUF.EQ.$2A5A) GO TO 8200_^1C_]_^1C--- PRINT RESPONSE ON STD.LIST IF CONTROL LU NOT STD. COMMENT INPUT_^1_$IF(CONTRL.EQ.STDCMI) GO TO JGOTO_^1C_]_^1C_#PRINT RESPONSE (FWRITE)_^1C_#IF ERROR GO TO 8100_^1_$IF(WIOSUB($18FB,FBUF,ISIZE+1) .LT. 0) GO TO 8100_^1_$GO TO JGOTO_^1C_]_^1C---_$PSEUDO-SUBROUTINE: CHECK CLASS CODE OF DESIGNATED LU_^1C_2LU CONTAINS LOGICAL UNIT NUMBER_^1C_2KGOTO CONTAINS RETURN ADDRESS_^1C_2MESSAG CONTAINS INDEX OF CLASS CODE MASK TABLE_^1C_2IF AN ERROR IS DETECTED AN ERROR_^1C_2MESSAGE IS PRINTED AND AN EXIT IS_^1C_2TAKEN VAI A COMPUTED 'GO TO' BASED_^1C_2ON THE MESSAGE NUMBER._^1 9200 CONTINUE_^1C_]_^1C--- SAVE MESSAGE NUMBER_^1_$MYMESS = MESSAG_^1C_]_^1C--- FETCH NUMBER OF LOGICAL UNITS_^1_$ASSEM $C400,+LOG1A,$6800,NUMLUS_^1_$IF(LU.GT.0.AND.LU.LE.NUMLUS) GO TO 9220_^1C_]_^1C--- INVALID LU_^1_$ASSIGN 9290 TO IGOTO_^1_$MESSAG = 8_^1_$IER = 1_^1_$GO TO 9000_^1C_]_^1C--- FETCH WORD 8 OF PHYSTB FOR THIS LU AND CONVERT TO A MASK_^1 9220 CONTINUE_^1_$ASSEM $E800,LU,$E600,+LOG1A,$E208,$0F2B,$0A07,$08B2_^1_$ASSEM $C222,$6800,KLASS_^1_$IF(AND(KLASS,CC(MESSAG)).NE.0) GO TO KGOTO_^1C_]_^1C--- PRINT CLASS CODE ERROR MESSAGE_^1_$ASSIGN 9290 TO IGOTO_^1_$MESSAG = 9_^1_$IER = 1_^1_$GO TO 9000_^1C_]_^1C--- RESTORE MESSAGE NUMBER AND BRANCH_^1 9290 MESSAG = MYMESS_^1_$GO TO(40,200,200,200,8100,610,670), MESSAG_^1_$END_]_^__ HELP0 CSY/ FTN O39 1_$SUBROUTINE HELP0_^1_#1_2/O39 F MSOS CCS 3.0_5SL-149_^1C_#MAIN CONTROL SUBROUTINE FOR THE LIBRARY BUILDER_^1C_$CREDIT COLLECTION SYSTEM VERSION 3.0_^1C_$DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA_^1C_$COPYRIGHT CONTROL DATA CORPORATION 1979_^1C_]_^1C_]_^1C_(**************************************************_^1C_(*_O*_^1C_(*_(CALL SEQUENCE NAME IS HELP0_+*_^1C_(*_O*_^1C_(**************************************************_^1C_]_^1C_(****_$COMMON DECLARATIONS_$****_^1_$INTEGER PRNIDX,SKELLU_^1_$COMMON//LUIN,LSTOUT,LUBOUT,SKELLU,IDFLEN,LIBOUT,MMERR,ICHECK,ILEN,_^1_#1 MMADR,ISELEC,LIMSPC,PRNIDX,INPIDX,IOIDX,LENGTH,INUM,ICHR,IANY,_^1_#1 IDLEN,ITMPTR,ITMIDX,IRECNO,NXTITM,NUMDEK,NAMBLK(60),INDTBL(60),_^1_#1 IPRINT(40),INPBUF(97),IOBUFF(96),NAMPTR(512),IDENT(25),NAME(3),_^1_#1 IVALS(11,3),ISHORT(6)_^1C_]_^1_$DIMENSION NAMTBL(6),NAMTB1(1),NAMTB2(1),NAMTB3(1),NAMTB4(1),_^1C_]_^1_#1 NAMTB5(1),NAMTB6(1)_^1_$EQUIVALENCE (LUIN,NAMTBL,NAMTB1),(NAMTBL(2),NAMTB2),_^1_#1(NAMTBL(3),NAMTB3),(NAMTBL(4),NAMTB4),(NAMTBL(5),NAMTB5),_^1_#1(NAMTBL(6),NAMTB6)_^1C_]_^1_$INTEGER VALI(33),VALSAV(33)_^1_$EQUIVALENCE (VALI,IVALS(1,1))_^1C_#NOTE - THE FOLLOWING VALUE MUST BE EQUAL TO THE AMOUNT OF_^1C_+COMMON SPECIFIED BY THE LIBRARY BUILDER_^1_$DATA MAX/957/_^1C_]_^1_$DATA LUNIDX/0/_^1_$DIMENSION LUN(21)_^1_"1 FORMAT (46H*** ILLEGAL CHARACTER STARTS IDENT FIELD. ***)_^1_"2 FORMAT (48H*** ILLEGAL IDENT FIELD. RECORD IGNORED. *** )_^1_"4 FORMAT (46H*** ILLEGAL *B RECORD. RECORD IGNORED. *** )_^1_"3 FORMAT(30H*** END FILE MARK WRITTEN. ***)_^1_"5 FORMAT (46H*** NULL PROGRAM NAME. RECORD IGNORED. *** )_^1_"6 FORMAT (48H*** PROGRAM NAME TOO LONG. RECORD IGNORED. ***)_^1_"7 FORMAT(54H LOAD LIBRARY INPUT_$ON Lq  3&}U_$. CR WHEN READY. )_^1_"8 FORMAT(32HLOAD SKEL/INSTAL, CR WHEN READY_*)_^1_"9 FORMAT(38H LOAD OUTPUT LIBRARY. CR WHEN READY. )_^1_!10 FORMAT(52H*** NO DEFINITIONS ARE STORED. RECORD IGNORED. ***)_^1_!11 FORMAT(60H*** INVALID *USE RECORD. IDENT FIELD. RECORD IGNORED._^1_#1 ***)_^1_!12 FORMAT(72H*** INVALID *USE RECORD. MAX IMBEDDED LEVEL IS 6. REC_^1_#1ORD IGNORED. ***)_^1_!13 FORMAT(72H*** INVALID *USE RECORD. REQUESTED SET IS IN USE. REC_^1_#1ORD IGNORED. ***)_^1_!14 FORMAT (26HLOAD DEFS, CR WHEN READY_))_^1C *************************************************************136*4073_^1_!15 FORMAT (44H*** INVALID ASCII RECORD. RECORD IGNORED. )_^1C *************************************************************136*4073_^1C_]_^1C_!DEFINE LENGTH OF V.M. CORE SPACE_^1_$CALL HELP14_^1C_!SAVE LIMSPC_^1_$INDEX = LIMSPC_^1C_]_^1C--- SAVE LU DESIGNATORS_^1_$DO 22 I = 1,33_^1_!22 VALSAV(I) = VALI(I)_^1C_]_^1C_!ZERO OUT ALL OF COMMON AND V.M. CORE SPACE_^1_$DO 100 I= MAX,INDEX,-1_^1 100 NAMTBL(I) = 0_^1C_]_^1C_!RESTORE LIMSPC_^1_$LIMSPC = INDEX_^1C_]_^1C--- RESTORE LU'S_^1_$DO 33 I = 1,33_^1_!33 VALI(I) = VALSAV(I)_^1C_]_^1C_!EJECT PRINTER PAGE_^1_$CALL CLEAR_^1_$IPRINT(1) = $0C00_^1_$CALL PRINT_^1C_]_^1C_!SET UP FOR INPUT OF 1ST LIBRARY_^1_$LUNIDX = 3_^1_$LUIN_!= IVALS(3,1)_^1_$SKELLU = IVALS(3,2)_^1_$IDFLEN = IVALS(3,3)_^1_$LUDSAV = IVALS(1,1)_^1_$LUISAV = IVALS(1,2)_^1_$LUOSAV = IVALS(1,3)_^1_$LSTOUT = IVALS(2,3)_^1C_]_^1C_!SET LUBOUT TO LIBOUT LU FOR INIT_^1_$LUBOUT = IVALS(2,1)_^1C_!PERFORM NEEDED I/O RELATED INITIALIZATION_^1_$CALL INIT_^1C_]_^1C_]_^1C *************************************************************117*4462_^1C_#MMADR DENOTES THE MAXIMUM NUMBER OF POINTER BLOCKS +1_^1C_#USED TO LOCATE SAVED BINARIES ON DISK SCRATCH AREA. EACH_^1C_#BLOCK CONTAINS THE LOCATION OF 16 BINARIES. IF MMADR IS_^1C_#CHANGED, MAXBIN IN HELP10 MUST ALSO BE CHANGED_^1_$MMADR=129_^1C_#SET NEXT AVAILABLE ITEM TO 1._^1C *************************************************************117*4462_^1_$NXTITM = 1_^1C_]_^1C_!INITIALIZE THE VIRTUAL MEMORY TABLE AREA FOR USE BY GETITM_^1_$L= -97_^1_$DO 120 I = L,LIMSPC,-98_^1 120 NAMTBL(I) = $FFFE_^1C_]_^1C_]_^1C_(**************************************************_^1C_]_^1C_2INPUT A LIBRARY_^1C_]_^1C_!GET NEXT INPUT RECORD--CHECK IF IT IS ASCII. IF SO GO TO 140._^1C_!IF NOT CALL STODEK TO STORE THE DECK AND DECK NAME._^1 130 CALL GETREC_^1C*************************************************************_^1131_!IF(INPBUF.NE.$2050) GO TO 140_^1C*************************************************************_^1C_]_^1C_!PROCESS THE PROGRAM NAME AND STORE THE DECK._^1C*************************************************************_^1132_!CALL STODEK_^1C*************************************************************_^1C_]_^1C_!CONTINUE ON BASIS OF INUM_^1_$IF(INUM) 150,130,131_^1C_]_^1C_!NUMBER RECORD--MOVE INPUT RECORD TO PRINT BUFFER AND PRINT IT_^1 140 CALL CLEAR_^1_$IRECNO = IRECNO + 1_^1_$PRNIDX = 2_^1_$INUM = IRECNO_^1_$CALL BINDEC_^1_$DO 145 I = 1,36_^1 145 IPRINT(I+4) = INPBUF(I)_^1_$CALL PRINT_^1C_]_^1C_]_^1C--- SEE IF THIS IS A '*N,NAME,,,B' RECORD_^1_$NAMBLK = 0_^1_$IF(INPBUF.NE.$2A4E) GO TO 148_^1C_]_^1C--- TRUE; SAVE FIRST 10 CHARACTERS OF THE RECORD FOR USE BY HELP4_^1_$DO 146 I = 1,5_^1 146 NAMBLK(I) = INPBUF(I)_^1C*************************************************************_^1_$CALL GETREC_^1_$IF(AND(INPBUF,$FF00).EQ.$2A00) GO TO 140_^1_$GO TO 132_^1C*************************************************************_^1C_]_^1C_]_^1C_!IF THIS IS NOT THE *END RECORD, GO BACK TO 130_^1 148 IF (INPBUF(1).EQ.$2A45 .AND. INPBUF(2).EQ.$4E44) GO TO 150_^1_$GO TO 130_^1C_]_^1C_!CLEAR BUFFER, PUT EJECT CODE IN WORD 1, PRINT TO CAUSE EJECT_^1 150 CALL CLEAR_^1_$IPRINT(1) = $0C00_^1_$CALL PRINT_^1C_]_^1C_!CLEAR RECORD NUMBER_^1_$IRECNO  3&}= 0_^1C_]_^1C_!BUMP LUNIDX AND CHECK IF MORE LIBRARY LUS EXIST. IF NOT GO TO 160_^1_$LUNIDX = LUNIDX + 1_^1C***********************************************************_^1_$IF (LUNIDX.GT.11) GO TO 160_^1C***********************************************************_^1_$IF (IVALS(LUNIDX,1).EQ.0) GO TO 160_^1C_]_^1C_!CLEAR PRINT BUFFER, TRANSFER FORMAT 7 TO BUFFER, ADD CR CODES,_^1C_!INSERT LIBRARY NO. AND LU NUMBER AND CALL COMMNT TO PRINT THE BUFFER_^1_$CALL CLEAR_^1_$ASSIGN 7 TO IADR_^1_$IADR = IADR + 2_^1_$CALL MOVE (IADR,27,IPRINT(2))_^1_$IPRINT(1) = $0D00_^1_$IPRINT(29)= $0D00_^1_$PRNIDX = 22_^1_$INUM = LUNIDX - 2_^1_$CALL BINDEC_^1_$PRNIDX = 34_^1_$LUIN = IVALS(LUNIDX,1)_^1_$INUM = LUIN_^1_$CALL BINDEC_^1C_!BLANK OUT 1ST 2 CHARS OF LIBRARY NUMBER AND LU NUMBER_^1_$IPRINT(12) = $2020_^1_$IPRINT(18) = $2020_^1C_]_^1C_!USE COMMNT TO PRINT THE PACKED MSG ON THE TTY AND WAIT ON CR_^1_$CALL COMMNT (IPRINT,29)_^1C_]_^1C_!SET UP IDFLEN AND SKELLU FOR NEXT LIBRARY_^1_$IDFLEN = IVALS(LUNIDX,3)_^1_$SKELLU = IVALS(LUNIDX,2)_^1C_]_^1C_!REINITIALIZE I/O REQUESTS_^1_$CALL INIT_^1C_]_^1C_!CONTINUE AT 130_^1_$GO TO 130_^1C_]_^1C_]_^1C_'***************************************************_^1C_]_^1C_(ALL INPUT LIBRARIES ARE IN AND STORED._^1C_]_^1C_!SET MMASAV TO CURRENT VALUE OF MMADR_^1 160 MMASAV = MMADR_^1C_]_^1C_!IF LISTING OF STORED PROGRAMS OR OUTPUT LIBRARY IS WANTED, CALL_^1C_!SORT AND MAKLIB._^1_$IF (LSTOUT.EQ.0 .AND. IVALS(2,1).EQ.0) GO TO 165_^1C_]_^1C_!SET UP LIBOUT AND IDFLEN FOR OUTPUT LIBRARY_^1_$LIBOUT = IVALS(2,1)_^1_$IDFLEN = IVALS(2,2)_^1C_]_^1C_!REINITIALIZE I/O REQUESTS (NEEDED FOR SKEL LU)_^1_$CALL INIT_^1C_]_^1C_!IF OUTPUT LIBRARY IS NEEDED, WARN USER._^1_$IF (LIBOUT.EQ.0) GO TO 163_^1C_]_^1C_!CLEAR PRINT BUFFER. MOVER FORMAT 9 INTO BUFFER. ADD CR CODES._^1C_!USE COMMNT TO PRINT THE PACKED MSG ON THE TTY AND WAIT ON CR_^1_$CALL CLEAR_^1_$ASSIGN 9 TO IADR_^1_$IADR = IADR + 2_^1_$CALL MOVE (IADR,19,IPRINT(2))_^1_$IPRINT(1) = $0D00_^1_$IPRINT(21)= $0D00_^1_$CALL COMMNT (IPRINT,21)_^1C_]_^1 163 CALL MAKLIB_^1C_]_^1C_!DO ANOTHER PAGE EJECT_^1 165 CALL CLEAR_^1_$IPRINT(1) = $0C00_^1_$CALL PRINT_^1C_]_^1C_"CHECK SKELETON IN L.U. IF 0, TERMINATE JOB VIA RETURN_^1C***************************************************************_^1_$IF (AND(LUISAV,$03FF).EQ.0 .OR. LUOSAV.EQ.0) RETURN_^1C***************************************************************_^1C_]_^1C_!SET NUMDEK TO 0 (NO. OF DEFS STORED)_^1_$NUMDEK = 0_^1C_]_^1C_!SET IDEPTH = 0 (NOT PROCESSING A STORED DEF)_^1_$IDEPTH = 0_^1C_]_^1 170 CONTINUE_^1C_]_^1C_!RESET MMADR TO MMASAV_^1_$MMADR = MMASAV_^1C_]_^1C_!REINITIALIZE I/O REQUESTS FOR DEFINITIONS INPUT_^1_$LUIN = LUDSAV_^1_$LUBOUT = LUOSAV_^1_$CALL INIT_^1C_]_^1C_!IF LUDSAV NOT 0, INPUT DEFINITIONS VIA STODEF_^1_$IF (LUDSAV .EQ. 0) GO TO 180_^1C_]_^1C---_!REQUEST OPERATOR TO LOAD DEFINITIONS_^1_$CALL CLEAR_^1_$ASSIGN 14 TO IADR_^1_$IADR = IADR + 2_^1_$CALL MOVE(IADR,13,IPRINT(2))_^1_$IPRINT(1) = $0D00_^1_$IPRINT(15) = $0D00_^1_$CALL COMMNT(IPRINT,15)_^1_$CALL STODEF_^1C_]_^1C_!DO ANOTHER PAGE EJECT_^1_$CALL CLEAR_^1_$IPRINT(1) = $0C00_^1_$CALL PRINT_^1C_]_^1C_!REINITIALIZE I/O REQUESTS FOR SKELETON INPUT_^1 180 LUIN = LUISAV_^1_$CALL INIT_^1C_]_^1C---_!REQUEST OPERATOR TO LOAD SKELETON AND MOUNT INSTALL TAPE_^1_$CALL CLEAR_^1_$ASSIGN 8 TO IADR_^1_$IADR = IADR + 2_^1_$CALL MOVE(IADR,16,IPRINT(2))_^1_$IPRINT(1) = $0D00_^1_$IPRINT(18) = $0D00_^1_$CALL COMMNT(IPRINT,18)_^1C_]_^1C_!CLEAR RECORD NO. COUNTER AND IDEPTH_^1_$IRECNO = 0_^1_$IDEPTH = 0_^1C_]_^1C_(**************************************************_^1C_]_^1C_!INPUT LIBRARIES ARE ALL PROCESSED AND THE OUTPUT LIBRARY (LISTING,_^1C_!SKELETON OR FULL LIBRARY) HAS BEEN PROCESSED. NEXT PROCESS A_^1C_!SKELETON FOR AN OUTPUT SYSTEM._^1C_]_^1C_!GET A RECORD. IF IDEPTH.EQ.0, GET RECORD VIA GETREC._!IF IDEPTH_b  3&}^1C_!.GT.0, GET RECORD VIA GETBIN_^1 200 IF (IDEPTH.GT.0) GO TO 202_^1 201 CALL GETREC_^1_$GO TO 205_^1C_]_^1C_!SET UP TO GET NEXT RECORD FROM MM_^1 202 MMADR = MMSAVE_^1_$IOIDX = IOSAVE_^1C_]_^1C_!READ BUFFER IN CASE IT WAS OVERWRITTEN_^1_$CALL DISKIO (1,IOBUFF,MMADR)_^1_$CALL GETBIN_^1C_]_^1C_!CHECK IF A RECORD WAS OBTAINED_^1_$IF (LENGTH.NE.0) GO TO 203_^1C_]_^1C_!NO RECORD, CURRENT SET IS TERMINATED. CHECK IF PREVIOUS SET WAS_^1C_!INTERRUPTED._^1_$IDEPTH = IDEPTH - 1_^1_$IF (IDEPTH.EQ.0) GO TO 201_^1C_]_^1C_!PREVIOUS SET WAS INTERRUPTED. RESUME PREVIOUS SET._^1_$INDEX = 3*(IDEPTH-1) + 42_^1_$MMSAVE = INDTBL(INDEX)_^1_$IOSAVE = INDTBL(INDEX+1)_^1_$GO TO 202_^1C_]_^1C_!SAVE CURRENT VALUE OF MMADR AND IOIDX_^1 203 MMSAVE = MMADR_^1_$IOSAVE = IOIDX_^1C_]_^1C_!RECORD IS IN INPBUF. CHECK IF ASCII--IF SO GO TO 250_^1 205 IF (AND(INPBUF(1),$FF00).EQ.$2A00) GO TO 250_^1C_]_^1C *************************************************************136*4073_^1C_#NOT A RECORD THAT HAS '*' IN COLUMN 1. PRINT THE RECORD_^1_$DO 210 I=1,36_^1 210 IPRINT(I+4)=INPBUF(I)_^1_$CALL PRINT_^1C_]_^1C_#PRINT OUT MESSAGE REGARDING DROPPED RECORD_^1_$CALL CLEAR_^1_$ASSIGN 15 TO IADR_^1_$IADR=IADR+2_^1_$CALL MOVE(IADR,22,IPRINT(2))_^1_$CALL PRINT_^1C *************************************************************136*4073_^1_$GO TO 200_^1C_]_^1C_(**************************************************_^1C_]_^1C_!RECORD WAS ASCII--IF AN *B RECORD GO TO 300_^1 250 IF (INPBUF(1).EQ.$2A42) GO TO 300_^1C_]_^1C_!CHECK FOR *USE RECORD. IF FOUND, GO TO 2800_^1_$IF (INPBUF(1).EQ.$2A55 .AND. INPBUF(2).EQ.$5345) GO TO 2800_^1C_]_^1C_!CHECK FOR *WEF. IF SO, WRITE END OF FILE MARK_^1C_]_^1_$IF(INPBUF(1).EQ.$2A57 .AND. INPBUF(2).EQ.$4546)GO TO 270_^1C_]_^1C_!NUMBER RECORD--MOVE INPUT RECORD TO PRINT BUFFER AND PRINT IT_^1_$CALL CLEAR_^1_$IRECNO = IRECNO + 1_^1_$PRNIDX = 2_^1_$INUM = IRECNO_^1_$CALL BINDEC_^1_$DO 255 I = 1,36_^1 255 IPRINT (I+4) = INPBUF(I)_^1_$CALL PRINT_^1C_]_^1C_!OUTPUT THE RECORD_^1_$CALL OUTBIN_^1C_]_^1C_!CHECK IF IT WAS AN *END RECORD. IF SO, DO A PAGE EJECT._^1C_]_^1_$IF (INPBUF(1).EQ.$2A45 .AND. INPBUF(2).EQ.$4E44)GO TO 260_^1_$GO TO 200_^1 260 CONTINUE_^1C_]_^1C***********************************************************_^1_%CALL CLEAR_^1C***********************************************************_^1_$IPRINT(1) = $0C00_^1_$CALL PRINT_^1C_]_^1C_!CALL RESTAR TO PRINT RESTART MSG AND GET RESPONSE_^1C**********************************************************_^1 262 CALL RESTAR_^1C**********************************************************_^1C_]_^1C_!TRANSFER RESPONSE TO INPBUF AND PUT * IN 9TH CHAR_^1_$DO 265 I=1,4_^1 265 INPBUF(I) = ISHORT(I)_^1_$INPBUF(6)=$2A00_^1C_]_^1C_!GET 1ST NON-SPACE CHAR AND CHECK IF *_^1_$INPIDX = 0_^1_$CALL GNSCHR_^1C***********************************************************_^1C IF FIRST CHAR IS NOT AN *, RE-REQUEST DATA ENTRY_^1_%IF(ICHR.NE.$2A) GO TO 262_^1_%CALL GNSCHR_^1C IF ENTRY IS *Z, TERMINATE_^1_%IF(ICHR.EQ.$5A) RETURN_^1C IF ENTRY IS *C, CONTINUE -- IF NOT *Z OR *C, RE-REQUEST DATA ENTRY_^1_%IF(ICHR.NE.$43) GO TO 262_^1C***********************************************************_^1C_]_^1C_]_^1C---_!GO REQUEST SKEL/INSTALL_^1_$GO TO 180_^1C_]_^1C_#WRITE END OF FILE_^1C_]_^1270_!CALL WEF_^1C_]_^1C_#PRINT OUT MESSAGE REGARDING FILE MARK_^1C_]_^1_$CALL CLEAR_^1_$ASSIGN 3 TO IADR_^1_$IADR = IADR+2_^1_$CALL MOVE(IADR,15,IPRINT(2))_^1_$CALL PRINT_^1_$GO TO 200_^1C_(**************************************************_^1C_]_^1C_!*USE RECORD NOTED_^1C_]_^1C_!CHECK--1. ARE DEFS DEFINED_^1C_)2. IS A VALID DESIGNATOR ON *DEF RECORD_^1C_)3. IS THIS A VALID LEVEL (MAY BE IMBEDDED 6 DEEP)_^1C_)4. IS THE CURRENT SET ALREADY IN USE_^1C_!FIRST, PRINT RECORD_^1 2800 CALL CLEAR_^1_$DO 2805 I = 1,36_^1 2805 IPRINT (I+4) = INPBUF(I)_^1_$CALL PRINT_^1_$CALL CLEAR_^1Cc  3&}_]_^1C_!PERFORM CHECK NO. 1_^1_$IF (NUMDEK.NE.0) GO TO 2810_^1C_]_^1C_!PRINT OUT MESSAGE REGARDING INVALID *USE_^1_$ASSIGN 10 TO IADR_^1_$IADR = IADR + 2_^1_$CALL MOVE (IADR,26,IPRINT(2))_^1 2808 CALL PRINT_^1_$GO TO 200_^1C_]_^1C_!PERFORM CHECK NO. 2_^1 2810 INPIDX = 4_^1_$CALL GNSCHR_^1_$IF (INPIDX.LE.80) GO TO 2820_^1C_]_^1C_!NOTE BAD RECORD_^1 2815 ASSIGN 11 TO IADR_^1_$IADR = IADR + 2_^1_$CALL MOVE (IADR,30,IPRINT(2))_^1_$GO TO 2808_^1C_]_^1C_!CHECK IF THIS DESIGNATOR IS DEFINED_^1 2820 DO 2825 I= 1,NUMDEK_^1_$JNDEX = 2*(I-1) + 1_^1_$IF (ICHR.EQ.INDTBL(JNDEX)) GO TO 2830_^1 2825 CONTINUE_^1_$GO TO 2815_^1C_]_^1C_!PERFORM CHECK NO. 3_^1C_]_^1 2830 IF (IDEPTH.LT.6) GO TO 2835_^1C_]_^1C_!NOTE IMPROPER LEVEL OF IMBEDDING USE SETS_^1_$ASSIGN 12 TO IADR_^1 2832 IADR = IADR + 2_^1_$CALL MOVE (IADR,36,IPRINT(2))_^1_$GO TO 2808_^1C_]_^1C_!PERFORM CHECK NO. 4_^1 2835 IF (IDEPTH.EQ.0) GO TO 2850_^1_$DO 2840_!I = 1,IDEPTH_^1_$INDEX = 3*(I-1) + 41_^1_$IF (INDTBL(INDEX) .EQ. ICHR) GO TO 2860_^1 2840 CONTINUE_^1C_]_^1C_!SET WAS NOT IN USE. SAVE INFO ON PREVIOUS SET (WHEN INTERRUPTED)_^1C_!SAVE CURRENT VALUE OF MMSAVE_^1_$INDTBL(INDEX+1) = MMSAVE_^1C_!SAVE CURRENT VALUE OF IOSAVE_^1_$INDTBL(INDEX+2) = IOSAVE_^1C_]_^1C_!BUMP IDEPTH BY 1 AND SET UP FOR USE OF CURRENT DEF SET_^1 2850 IDEPTH = IDEPTH + 1_^1_$INDEX = 3*(IDEPTH-1) + 101_^1_$INDTBL(INDEX) = ICHR_^1_$MMSAVE = INDTBL(JNDEX+1) - 1_^1_$IOSAVE = 97_^1C_]_^1C_!ALL READY--GO GET 1ST RECORD OF SET_^1_$GO TO 200_^1C_]_^1C_!NOTE THAT SET WAS ALREADY IN USE_^1 2860 ASSIGN 13 TO IADR_^1_$GO TO 2832_^1C_]_^1C_(**************************************************_^1C_]_^1C_]_^1C_!*B RECORD READ, GET PROGRAM NAME FROM IT_^1C_]_^1C_!FIRST, GET THE LEADING SINGLE QUOTE_^1 300 INPIDX=2_^1_$CALL GNSCHR_^1_$IF (ICHR .NE.$27 .OR. INPIDX.GT.72) GO TO 500_^1C_]_^1C_!FILL NAME ARRAY WITH BLANKS_^1_$NAME(1) = $2020_^1_$NAME(2) = $2020_^1_$NAME(3) = $2020_^1C_]_^1C_!GET UP TO 6 CHARACTERS_^1_$DO 310 I=1,6_^1_$CALL GNSCHR_^1C_!CHECK IF GNSCHR WENT BEYOND THE END OF THE RECORD_^1_$IF (INPIDX.GT. 72) GO TO 500_^1C_!CHECK IF SINGLE QUOTE_^1_$IF (ICHR.EQ.$27) GO TO 320_^1_$INDEX = (I+1)/2_^1_$IF (AND(I,1).EQ.1) GO TO 305_^1C_]_^1C_!STORE IN LOWER HALF WORD_^1_$NAME(INDEX) = AND(NAME(INDEX),$FF00) + ICHR_^1_$GO TO 310_^1C_!STORE IN UPPER HALF WORD_^1 305 NAME(INDEX) = AND(NAME(INDEX),$FF) + ICHR * $100_^1 310 CONTINUE_^1C_]_^1C_!ASSURE AT LEAST 1 CHAR OBTAINED_^1 320 IF (I.EQ.1) GO TO 510_^1C_]_^1C_!ASSURE NAME NOT TOO LONG_^1_$IF (I.LE.6) GO TO 330_^1_$CALL GNSCHR_^1C_]_^1C_!CHECK IF GNSCHR WENT BEYOND THE END OF THE RECORD_^1_$IF (INPIDX.GT. 72) GO TO 500_^1_$IF (ICHR.NE.$27) GO TO 515_^1C_]_^1C_!NAME OK, NOW CHECK IF IDENT INFO FIELD EXISTS. IF SO GO TO 340._^1 330 CALL GNSCHR_^1_$IF( INPIDX.LT. 73) GO TO 340_^1C_]_^1C_!SET IANY TO 0 AND CALL GETPGM TO GET THE PROGRAM._^1 335 IANY = 0_^1_$CALL GETPGM_^1_$GO TO 200_^1C_]_^1C_!ASSURE FIELD BEGINS WITH A QUOTE MARK_^1 340 IF (ICHR.EQ.$27) GO TO 350_^1C_]_^1C_!ERROR--PRINT WARNING THEN PRINT RECORD AND CONTINUE AT 200_^1_$CALL CLEAR_^1_$ASSIGN 1 TO IADR_^1_$IADR = IADR + 2_^1_$CALL MOVE (IADR,23,IPRINT(2))_^1 345 CALL PRINT_^1_$CALL CLEAR_^1_$DO 347 I = 1,36_^1 347 IPRINT(I+4) = INPBUF(I)_^1_$CALL PRINT_^1_$GO TO 200_^1C_]_^1C_!PICKUP THE CHARACTER STRING FIELD WHICH GIVES PROGRAM ID INFO._^1C_]_^1C_!SKIP OVER LEADING BLANKS IN IDENT FIELD_^1 350 DO 355 I=1,49_^1_$CALL GETCHR_^1C_]_^1C_!CHECK IF BLANK_^1_$IF (ICHR.NE.$20) GO TO 356_^1 355 CONTINUE_^1C***************************************************************136*4073_^1_$GOTO 375_^1C***************************************************************136*4073_^1C_]_^1C_!IF BLANKS ONLY IN IDENT FIELD, IGNORE IT_^1C***********************************************************_^1 356 IF(ICHR.EQ.$27.AND.INPIDX.LT.73) GO TO 380_^1C******************  3&}*****************************************_^1_$INPIDX = INPIDX -1_^1C_]_^1C_!GET UP TO 48 CHARS--STOP WHEN SINGLE QUOTE IS NOTED._^1_$DO 365 I = 1,49_^1_$CALL GETCHR_^1C_]_^1C_!CHECK IF QUOTE MARK_^1_$IF (ICHR.EQ.$27) GO TO 370_^1_$INDEX = (I+1)/2_^1_$IF (AND(I,1).EQ.1) GO TO 360_^1C_]_^1C_!STORE IN LOWER HALF WORD_^1_$IDENT (INDEX) = AND(IDENT (INDEX),$FF00) + ICHR_^1_$GO TO 365_^1C_]_^1C_!STORE IF UPPER HALF WORD_^1 360 IDENT(INDEX) = AND(IDENT(INDEX),$FF) + ICHR * $100_^1 365 CONTINUE_^1C_]_^1C_]_^1C_!ASSURE PICKUP WAS VALID_^1C***************************************************************136*4073_^1 370 IF (I.GT.1.AND.I.LE.49.AND.INPIDX.LE.72)_!GOTO 390_^1C***************************************************************136*4073_^1C**********************************************************_^1C_]_^1C_$ALLOW CARD TO HAVE THE FORM_^1C_(*B 'NAME' ''_^1C_]_^1_$IF (I .EQ. 1 ) GO TO 335_^1C_]_^1C**********************************************************_^1C_]_^1C_!ERROR--MOVE WARNING INTO IPRINT THEN CONTINUE AT 345_^1C***************************************************************136*4073_^1 375 ASSIGN 2 TO IADR_^1C***************************************************************136*4073_^1_$CALL CLEAR_^1_$IADR = IADR + 2_^1_$CALL MOVE (IADR,24,IPRINT(2))_^1_$GO TO 345_^1C***********************************************************_^1C_]_^1C_#SET IDENT FIELD TO BLANKS_^1C_]_^1 380 DO 385 IB=1,25_^1_$IDENT(IB)=$2020_^1 385 CONTINUE_^1C***************************************************************136*4073_^1C_#INDICATE THAT THERE ARE 6 CONSECUTIVE BLANKS_^1_$I=7_]_^1C***************************************************************136*4073_^1_$GO TO 370_^1C***********************************************************_^1C_]_^1C_!SET IDLEN TO NO. OF IDENT CHARS_^1 390 IDLEN = I-1_^1C_]_^1C_!SET IANY=1 SIGNALLING IDENT SPECIFIED AND CALL GETPGM TO GET THE_^1C_!PROGRAM_^1_$IANY = 1_^1_$CALL GETPGM_^1_$GO TO 200_^1C_]_^1C_!NOTE ERROR--NO LEADING SINGLE QUOTE_^1 500 CALL CLEAR_^1_$ASSIGN 4 TO IADR_^1_$IADR = IADR + 2_^1_$CALL MOVE (IADR,23,IPRINT(2))_^1 505 CALL PRINT_^1C_]_^1C_!PRINT INPUT RECORD (WILL BE IGNORED)_^1_$CALL CLEAR_^1_$DO 507 I = 1,36_^1 507 IPRINT(I+4) = INPBUF(I)_^1_$CALL PRINT_^1_$GO TO 200_^1C_]_^1C_!NOTE ERROR--NULL NAME_^1 510 CALL CLEAR_^1_$ASSIGN 5 TO IADR_^1_$IADR = IADR + 2_^1_$CALL MOVE (IADR,23,IPRINT(2))_^1_$GO TO 505_^1C_]_^1C_!NOTE ERROR--NAME TOO LONG_^1 515 CALL CLEAR_^1_$ASSIGN 6 TO IADR_^1_$IADR = IADR + 2_^1_$CALL MOVE (IADR,24,IPRINT(2))_^1_$GO TO 505_^1_$END_]_^__HELP1 CSY/ FTN O40 1_$SUBROUTINE HELP1_^1_#1_2/O40 F MSOS CCS 3.0_5SL-149_^1C_#COMPOSITE SUBROUTINE PROGRAM - I_^1C_$CREDIT COLLECTION SYSTEM VERSION 3.0_^1C_$DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA_^1C_$COPYRIGHT CONTROL DATA CORPORATION 1979_^1C_]_^1C_]_^1C_(**************************************************_^1C_(*_O*_^1C_(*_!COMPOSITE SUBROUTINE--BINDEC, INCIDX_(*_^1C_(*_O*_^1C_(**************************************************_^1C_(****_$COMMON DECLARATIONS_%****_^1_$INTEGER PRNIDX,SKELLU_^1_$COMMON//LUIN,LSTOUT,LUBOUT,SKELLU,IDFLEN,LIBOUT,MMERR,ICHECK,ILEN,_^1_#1 MMAD@  3&}R,ISELEC,LIMSPC,PRNIDX,INPIDX,IOIDX,LENGTH,INUM,ICHR,IANY,_^1_#1 IDLEN,ITMPTR,ITMIDX,IRECNO,NXTITM,NUMDEK,NAMBLK(60),INDTBL(60),_^1_#1 IPRINT(40),INPBUF(97),IOBUFF(96),NAMPTR(512),IDENT(25),NAME(3),_^1_#1 IVALS(11,3),ISHORT(6)_^1C_]_^1_$DIMENSION NAMTBL(6),NAMTB1(1),NAMTB2(1),NAMTB3(1),NAMTB4(1),_^1_#1 NAMTB5(1),NAMTB6(1)_^1C_]_^1_$EQUIVALENCE (LUIN,NAMTBL,NAMTB1),(NAMTBL(2),NAMTB2),_^1_#1(NAMTBL(3),NAMTB3),(NAMTBL(4),NAMTB4),(NAMTBL(5),NAMTB5),_^1_#1(NAMTBL(6),NAMTB6)_^1C_]_^1C_!ISELEC SPECIFIES WHICH LOGIC IS TO BE EXECUTED._^1C---ISELC = 1 NOT USED_^1C_!ISELEC = 2 SELECTS BINDEC LOGIC_^1C_!ISELEC = 3 SELECTS INCIDX LOGIC_^1C_]_^1_$DIMENSION IDIG(4)_^1_$GO TO (100,200,300), ISELEC_^1 100 CONTINUE_^1_$ASSEM $0A00,$6422,$18FF_^1C_(**************************************************_^1C_(*_O*_^1C_(*_(SUBROUTINE BINDEC LOGIC_/*_^1C_(*_O*_^1C_(**************************************************_^1C_#CONVERT A BINARY NUMBER TO A DECIMAL ASCII NUMBER AND STORE IT IN_^1C_#PRINT BUFFER. NUMBER IS IN INUM. IPRIDX IS INDEX TO PRINT BUFFER_^1C_]_^1C_!CONVERT NUMBER TO 4 DIGITS_^1 200 NUM = INUM_^1_$DO 210 I = 4,1,-1_^1_$IDIG(I) = NUM - NUM/10*10 + $30_^1 210 NUM = NUM/10_^1C_]_^1C_!STORE NUMBER IN PRINT BUFFER_^1_$DO 220 I = 1,4_^1_$ICHR = IDIG(I)_^1 220 CALL STOREC_^1_$RETURN_^1C_(**************************************************_^1C_(*_O*_^1C_(*_(SUBROUTINE INCIDX LOGIC_/*_^1C_(*_O*_^1C_(**************************************************_^1C_#INCREMENT IOBUFF INDEX AND WRITE BUFFER IF APPROPRIATE_^1C_]_^1C_!BUMP IOIDX AND CHECK IF BUFFER FULL_^1 300 IOIDX = IOIDX + 1_^1_$IF (IOIDX.LE.96) RETURN_^1C_]_^1C_!WRITE BUFFER, RESET IOIDX AND BUMP MM ADDRESS_^1_$CALL DISKIO (2,IOBUFF,MMADR)_^1_$MMADR = MMADR + 1_^1_$IOIDX = 1_^1_$END_]_^__HELP2 CSY/ FTN O41 1_$SUBROUTINE HELP2_^1_#1_2/O41 F MSOS CCS 3.0_5SL-149_^1C_#COMPOSITE SUBROUTINE PROGRAM - II_^1C_$CREDIT COLLECTION SYSTEM VERSION 3.0_^1C_$DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA_^1C_$COPYRIGHT CONTROL DATA CORPORATION 1979_^1C_]_^1C_]_^1C_(**************************************************_^1C_(*_O*_^1C_(*_!COMPOSITE SUBROUTINE--GETCHR, STOREC_(*_^1C_(*_O*_^1C_(**************************************************_^1C_(****_$COMMON DECLARATIONS_%****_^1_$INTEGER PRNIDX,SKELLU_^1_$COMMON//LUIN,LSTOUT,LUBOUT,SKELLU,IDFLEN,LIBOUT,MMERR,ICHECK,ILEN,_^1_#1 MMADR,ISELEC,LIMSPC,PRNIDX,INPIDX,IOIDX,LENGTH,INUM,ICHR,IANY,_^1_#1 IDLEN,ITMPTR,ITMIDX,IRECNO,NXTITM,NUMDEK,NAMBLK(60),INDTBL(60),_^1_#1 IPRINT(40),INPBUF(97),IOBUFF(96),NAMPTR(512),IDENT(25),NAME(3),_^1_#1 IVALS(11,3),ISHORT(6)_^1C_]_^1_$DIMENSION NAMTBL(6),NAMTB1(1),NAMTB2(1),NAMTB3(1),NAMTB4(1),_^1_#1 NAMTB5(1),NAMTB6(1)_^1C_]_^1_$EQUIVALENCE (LUIN,NAMTBL,NAMTB1),(NAMTBL(2),NAMTB2),_^1_#1(NAMTBL(3),NAMTB3),(NAMTBL(4),NAMTB4),(NAMTBL(5),NAMTB5),_^1_#1(NAMTBL(6),NAMTB6)_^1C_]_^1C_!ISELEC SPECIFIES WHICH LOGIC IS TO BE EXECUTED._^1C_!ISELEC = 1 SELECTS GETCHR LOGIC_^1C_!ISELEC = 2 SELECTS STOREC LOGIC_^1C_]_^1_$GO TO (100,200), ISELEC_^1C_(**************************************************_^1C_(*_O*_^1C_(*_(SUBROUTINE GETCHR LOGIC_/*_^1C_(*_O*_^1C_(**********\  3&~****************************************_^1C_#GET NEXT CHARACTER FROM INPUT BUFFER VIA INPUT INDEX_^1C_]_^1C_!GET NEXT CHARACTER FROM PACKED INPBUF AND STORE IN ICHR_^1 100 INPIDX = INPIDX + 1_^1_$INDEX = (INPIDX+1)/2_^1_$ICHR = INPBUF(INDEX)_^1_$IF (AND(INPIDX,1) .EQ. 1) ICHR = ICHR/$100_^1_$ICHR = AND(ICHR,$FF)_^1_$RETURN_^1C_(**************************************************_^1C_(*_O*_^1C_(*_(SUBROUTINE STOREC LOGIC_/*_^1C_(*_O*_^1C_(**************************************************_^1C_!STORE NEXT CHARACTER IN PRINT BUFFER VIA BUFFER INDEX. CHARACTER_^1C_!IS IN LOWER HALF OF ICHR_^1C_]_^1 200 PRNIDX = PRNIDX + 1_^1_$INDEX = (PRNIDX+1)/2_^1_$IF (AND(PRNIDX,1).EQ.1) GO TO 210_^1C_!STORE IN LOWER HALF_^1_$IPRINT(INDEX) = AND(IPRINT(INDEX),$FF00) + ICHR_^1_$RETURN_^1C_!STORE IN UPPER HALF_^1 210 IPRINT(INDEX) = AND(IPRINT(INDEX),$FF) + ICHR*$100_^1_$END_]_^__HELP3 CSY/ FTN O42 1_$SUBROUTINE HELP3_^1_#1_2/O42 F MSOS CCS 3.0_5SL-149_^1C_#COMPOSITE SUBROUTINE PROGRAM - III_^1C_$CREDIT COLLECTION SYSTEM VERSION 3.0_^1C_$DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA_^1C_$COPYRIGHT CONTROL DATA CORPORATION 1979_^1C_]_^1C_]_^1C_(**************************************************_^1C_(*_O*_^1C_(*_!COMPOSITE SUBROUTINE--CLEAR, UNICHK_)*_^1C_(*_O*_^1C_(**************************************************_^1C_(****_$COMMON DECLARATIONS_%****_^1_$INTEGER PRNIDX,SKELLU_^1_$COMMON//LUIN,LSTOUT,LUBOUT,SKELLU,IDFLEN,LIBOUT,MMERR,ICHECK,ILEN,_^1_#1 MMADR,ISELEC,LIMSPC,PRNIDX,INPIDX,IOIDX,LENGTH,INUM,ICHR,IANY,_^1_#1 IDLEN,ITMPTR,ITMIDX,IRECNO,NXTITM,NUMDEK,NAMBLK(60),INDTBL(60),_^1_#1 IPRINT(40),INPBUF(97),IOBUFF(96),NAMPTR(512),IDENT(25),NAME(3),_^1_#1 IVALS(11,3),ISHORT(6)_^1C_]_^1_$DIMENSION NAMTBL(6),NAMTB1(1),NAMTB2(1),NAMTB3(1),NAMTB4(1),_^1_#1 NAMTB5(1),NAMTB6(1)_^1C_]_^1_$EQUIVALENCE (LUIN,NAMTBL,NAMTB1),(NAMTBL(2),NAMTB2),_^1_#1(NAMTBL(3),NAMTB3),(NAMTBL(4),NAMTB4),(NAMTBL(5),NAMTB5),_^1_#1(NAMTBL(6),NAMTB6)_^1C_]_^1C_!ISELEC SPECIFIES WHICH LOGIC IS TO BE EXECUTED._^1C---ISELC = 1 NOT USED_^1C_!ISELEC = 2 SELECTS CLEAR LOGIC_^1C_!ISELEC = 3 SELECTS UNICHK LOGIC_^1C_]_^1_$GO TO (100,200,300), ISELEC_^1 100 CONTINUE_^1_$ASSEM $0A00,$6422,$18FF_^1C_(**************************************************_^1C_(*_O*_^1C_(*_(SUBROUTINE CLEAR LOGIC_0*_^1C_(*_O*_^1C_(**************************************************_^1C_#CLEAR THE PRINT BUFFER_^1 200 DO 210 I=1,40_^1 210 IPRINT(I) = $2020_^1_$RETURN_^1C_(**************************************************_^1C_(*_O*_^1C_(*_(SUBROUTINE UNICHK LOGIC_/*_^1C_(*_O*_^1C_(**************************************************_^1C_]_^1C_#CHECK IF CURRENT PROGRAM HAS UNIQUE NAME/IDENT_^1C_!THE NAM BLOCK RECORD OF THE CURRENT PROGRAM IS IN THE NAMBLK ARRAY._^1C_!THE LENGTH OF THE RECORD IS DEFINED BY ILEN._^1C_!THE NAM BLOCK RECORD OF THE PREVIOUSLY STORED PROGRAM IS IN THE_^1C_!INPBUF ARRAY. THE LENGTH OF THE RECORD IS DEFINED BY LENGTH._^1C_]_^1C_!IF THE TWO PROGRAMS HAVE IDENTICAL IDENT FIELDS, THEY ARE CONSIDERED_^1C_!TO BE DUPLICATES. IF DUPLICATES ARE NOTED, ICHECK SHOULD BE INCRE-_^1C_!MENTED PRIOR TO RETURNING TO DEFINE_^1C_]_^1 300 CONTINUE_^1C_]_^1C_!NOW, CHECK IF IDENT FIELDS ARE IDENTICAL. IF NOT, RETURN._^1C_]_^1C---_!THE ASSEMBLER AND COMPILER BOTH PRODUCE NAM BLOCKS_^1C_+AT LEAST 68 CHARACTERS LONG._^1C_]_^1C---_!CHECK NUMBER OF CHARACTERS BASED ON SHORTEST NAM RECORD_^1C_]_^1  3&~ 310 CONTINUE_^1_$LONG = ILEN_^1_$IF(LONG.GT.32) LONG = 32_^1C***********************************************************_^1_$ISPACE=1_^1C***********************************************************_^1_$DO 320 I = 11,LONG_^1_$IF (INPBUF(I).NE.NAMBLK(I)) RETURN_^1C***********************************************************_^1C 4 CONSECUTIVE SPACES TERMINATE CHECK_^1_$IF(AND(NAMBLK(I),$FF00).NE.$2000)ISPACE=0_^1_$ISPACE=ISPACE+1_^1_$IF(ISPACE.EQ.7)GO TO 330_^1_$IF(AND(NAMBLK(I),$FF).NE.$20)ISPACE=0_^1_$ISPACE=ISPACE+1_^1_$IF(ISPACE.EQ.7)GO TO 330_^1C***********************************************************_^1 320 CONTINUE_^1C_]_^1C_!IDENTS ARE IDENTICAL. BUMP ICHECK AND RETURN_^1C***********************************************************_^1 330 ICHECK=ICHECK+1_^1C***********************************************************_^1_$END_]_^__ HELP4 CSY/ FTN O43 1_$SUBROUTINE HELP4_^1_#1_2/O43 F MSOS CCS 3.0_5SL-149_^1C_#DEFINE A RELOCATABLE BINARY PROGRAM ON MASS MEMEORY AND IN V.M._^1C_$CREDIT COLLECTION SYSTEM VERSION 3.0_^1C_$DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA_^1C_$COPYRIGHT CONTROL DATA CORPORATION 1979_^1C_]_^1C_]_^1C_(**************************************************_^1C_(*_O*_^1C_(*_(CALL SEQUENCE NAME IS STODEK_**_^1C_(*_O*_^1C_(**************************************************_^1C_(****_$COMMON DECLARATIONS_%****_^1_$INTEGER PRNIDX,SKELLU_^1_$COMMON//LUIN,LSTOUT,LUBOUT,SKELLU,IDFLEN,LIBOUT,MMERR,ICHECK,ILEN,_^1_#1 MMADR,ISELEC,LIMSPC,PRNIDX,INPIDX,IOIDX,LENGTH,INUM,ICHR,IANY,_^1_#1 IDLEN,ITMPTR,ITMIDX,IRECNO,NXTITM,NUMDEK,NAMBLK(60),INDTBL(60),_^1_#1 IPRINT(40),INPBUF(97),IOBUFF(96),NAMPTR(512),IDENT(25),NAME(3),_^1_#1 IVALS(11,3),ISHORT(6)_^1C_]_^1_$INTEGER PSUNAM(33),SAVREC(97)_^1_$DATA (PSUNAM(I),I=1,33)/$2050,$ABBA,$DABA,0,3*$2020,3*0,_^1_#1_"' ** ABSOLUTE FILE ** ',12*$2020/_^1_$DATA LENPSU/33/_^1_$DIMENSION NAMTBL(6),NAMTB1(1),NAMTB2(1),NAMTB3(1),NAMTB4(1),_^1_#1 NAMTB5(1),NAMTB6(1)_^1C_]_^1_$EQUIVALENCE (LUIN,NAMTBL,NAMTB1),(NAMTBL(2),NAMTB2),_^1_#1(NAMTBL(3),NAMTB3),(NAMTBL(4),NAMTB4),(NAMTBL(5),NAMTB5),_^1_#1(NAMTBL(6),NAMTB6)_^1C_]_^1 1000 FORMAT(48H*** LAST DECK REJECTED - NO XFR RECORD_()_^1 1001 FORMAT(46H*** LAST DECK REJECTED - NOT UNIQUE_1)_^1C_]_^1C_!THE FIRST RECORD IS ALREADY IN INPBUF. FIRST, ASSURE IT IS A NAME_^1C_!BLOCK._]_^1_$IZORK = 0_^1C---_!SET *N MODE FALSE_^1_$NSTAR = 0_^1_$IF(INPBUF.EQ.$2050) GO TO 5_^1C_]_^1C--- NOT A NAM BLOCK, SEE IF ABSOLUTE FILE (PREV.RECORD WAS *N,...)_^1_$IF(NAMBLK.NE.$2A4E) GO TO 60_^1C_]_^1C--- TRUE; SAVE THIS RECORD AND CREATE PSEUDO-NAM-BLOCK_^1_$IZORK = 1_^1_$DO 2 I = 1,96_^1_"2 SAVREC(I) = INPBUF(I)_^1_$SAVREC(97) = LENGTH_^1_$DO 3 I = 1,LENPSU_^1_"3 INPBUF(I) = PSUNAM(I)_^1_$LENGTH = LENPSU_^1C---_!SET *N MODE TRUE_^1_$NSTAR = 1_^1C_]_^1C--- MOVE NAME ON *N RECORD TO PSEUDO NAM BLOCK_^1_$NC = 4_^1_$DO 4 I = 1,6_^1_$K = NEXTCH(NAMBLK,NC)_^1C_]_^1C--- SEE IF FILE NAME TERMINATOR (COMMA)_^1_$IF(K.EQ.$2C) GO TO 5_^1C_]_^1C--- NO, STORE THE CHARACTER_^1_$CALL STORCH(INPBUF(5),I,K)_^1_"4 CONTINUE_^1_"5 CONTINUE_^1C_]_^1C---_!SEE IF NAM BLOCK WAS A PSEUDO(ALREADY PART OF INPUT LIBRARY)_^1_$IF(INPBUF(2).EQ.PSUNAM(2).AND.INPBUF(3).EQ.PSUNAM(3)) NSTAR = 1_^1C_]_^1C_!SAVE STARTING MM STORAGE ADDRESS_^1_$ISAVE = MMADR_^1C_]_^1C_!CLEAR PRINT BUFFER, BUMP RECORD COUNTER, CONVERT RECORD COUNTER TO_^1C_!BINARY AND PUT IN wd  3&~+BUFFER_^1_$CALL CLEAR_^1_$IRECNO = IRECNO + 1_^1_$PRNIDX = 2_^1_$INUM = IRECNO_^1_$CALL BINDEC_^1C_]_^1C_!PUT PROGRAM NAME IN PRINT BUFFER_^1_$IPRINT(6) = INPBUF(5)_^1_$IPRINT(7) = INPBUF(6)_^1_$IPRINT(8) = INPBUF(7)_^1C_]_^1C_!CHECK IF COMMENT INFORMATION EXISTS. GO TO 20 IF NOT._^1_$IF (LENGTH.LT.11) GO TO 20_^1C_]_^1C_!TRANSFER COMMENT INFO TO PRINT BUFFER (ONLY THRU WORD 40)_^1_$LEN = LENGTH_^1_$IF (LEN.GT.40) LEN=40_^1_$DO 10 I = 11,LEN_^1_!10 IPRINT(I) = INPBUF(I)_^1C_]_^1C_!PRINT BUFFER_^1_!20 CALL PRINT_^1C_]_^1C_]_^1C_!SET IOBUFF INDEX TO 1_^1_$IOIDX =1_^1C_]_^1C_!PUT LENGTH IN IOBUFF AND BUMP INDEX AND WRITE BUFFER IF NEEDED_^1_!30 IOBUFF(IOIDX) = LENGTH_^1_$CALL INCIDX_^1C_!CLEAR CHECKSUM WORD_^1_$ICHECK = 0_^1C_]_^1C_!TRANSFER INPUT RECORD TO IOBUFF AND ACCUMULATE CHECKSUM_^1_$DO 40 I=1,LENGTH_^1_$IOBUFF(IOIDX) = INPBUF(I)_^1_$ICHECK = IOBUFF(IOIDX) + ICHECK_^1C_]_^1C_!BUMP INDEX AND UNLOAD IF NEEDED_^1_$CALL INCIDX_^1_!40 CONTINUE_^1C_]_^1C_!TRANSFER CHECKSUM TO IOBUFF, BUMP INDEX AND UNLOAD IF NEEDED_^1_$IOBUFF(IOIDX) = ICHECK_^1_$CALL INCIDX_^1C_]_^1C--- SEE IF PROCESSING ABS.FILE_^1_$IF(NSTAR.EQ.0) GO TO 43_^1C_]_^1C--- YES; SEE IF PSEUDO NAM BLOCK WAS JUST CREATED_^1_$IF(IZORK.EQ.0) GO TO 47_^1C_]_^1C--- YES; RESTORE FIRST RECORD AND PROCESS AS THOUGH IT WAS JUST READ._^1_$LENGTH = SAVREC(97)_^1_$DO 42 I = 1,LENGTH_^1_!42 INPBUF(I) = SAVREC(I)_^1_$IZORK = 0_^1_$GO TO 30_^1C_]_^1C_!CHECK IF RECORD WAS A XFR RECORD. IF SO, GO TO 50_^1_!43 CONTINUE_^1_$IF (INPBUF(1).EQ.$C050) GO TO 50_^1C_]_^1C_!GET NEXT RECORD_^1_!47 CONTINUE_^1_$CALL GETREC_^1C_]_^1C_]_^1C_]_^1C--- SEE IF PROCESSING ABS.FILE_^1_$IF(NSTAR.EQ.0) GO TO 48_^1C_]_^1C--- YES; CHECK FOR TERMINATOR (ASTERISK)_^1_$IF(AND(INPBUF,$FF00).EQ.$2A00) GO TO 50_^1C_]_^1C--- NO TERMINATOR YET - CONTINUE_^1_$GO TO 30_^1C IF RECORD IS ASCII OR A NAM BLOCK RECORD GO TO 100_^1_!48 CONTINUE_^1_$IF (INPBUF(1).EQ.$2050 .OR. (INPBUF(1)/$100).EQ.$2A) GO TO 100_^1C_]_^1C_!STORE THE RECORD_^1_$GO TO 30_^1C_]_^1C_!XFR BLOCK READ, STORE 0 FOR NUMBER OF WORDS, WRITE BLOCK, BUMP_^1C_#MM ADDRESS._^1_!50 IOBUFF(IOIDX) = 0_^1_$CALL DISKIO (2,IOBUFF,MMADR)_^1_$MMADR = MMADR + 1_^1C_]_^1C_!CALL DEFINE TO CHECK IF THIS PROGRAM IS A DUPLICATE OF ONE ALREADY_^1C_!STORED. IF A DUPLICATE, ICHECK WILL BE EQUAL TO 1 AND THE MASS_^1C_!MEMORY SPACE SHOULD BE REUSED. IF NOT A DUPLICATE, IT WILL BE_^1C_!DEFINED IN THE DIRECTORY AND ICHECK WILL EQUAL 0._^1_!51 CONTINUE_^1_$IOIDX = 1_^1C_]_^1C---_!SAVE THIS RECORD - OTHERWISE IT WILLL BE WIPED OUT BY 'DEFINE'._^1_$DO 52 JSTAR = 1,96_^1_!52 SAVREC(JSTAR) = INPBUF(JSTAR)_^1_$SAVREC(97) = LENGTH_^1_!53 CONTINUE_^1_$I = MMADR_^1_$MMADR = ISAVE-1_^1_$ICHECK = 0_^1_$CALL DEFINE_^1C_]_^1_$INUM = NSTAR_^1C_]_^1C---_!RESTORE INPBUF JUST IN CASE IN *N MODE_^1_$DO 54 JSTAR = 1,96_^1_!54 INPBUF(JSTAR) = SAVREC(JSTAR)_^1_$LENGTH = SAVREC(97)_^1C_]_^1C_!CHECK IF PROGRAM WAS A DUPLICATE. IF SO, GO TO 55_^1_$IF (ICHECK .EQ. 1) GO TO 55_^1C_]_^1C_!SET MM ADDRESS TO NEXT FREE SPACE._^1_$MMADR = I_^1_$RETURN_^1C_]_^1C_!PRINT NOTE THAT PROGRAM WAS NOT STORED AND RESET MMADR_^1_!55 CALL CLEAR_^1_$ASSIGN 1001 TO IADR_^1_$IADR = IADR + 2_^1_$CALL MOVE (IADR,23,IPRINT(2))_^1_$CALL PRINT_^1_$MMADR = ISAVE_^1_$RETURN_^1C_]_^1C_!FIRST RECORD IS NOT NAM BLOCK. CALL ERROR2 TO NOTE ERROR AND INPUT_^1C_!OPERATORS RESPONSE_^1_!60 CALL ERROR2_^1_$IGO =1_^1C_]_^1C_!PICK UP 1ST NON SPACE CHAR FROM RESPONSE_^1_!65 DO 70 I = 1,8_^1_$INDEX = (I+1)/2_^1_$IICHR = ISHORT(INDEX)/$100_^1_$IF (AND(I,1).EQ.0) IICHR = AND(ISHORT(INDEX),$FF)_^1_$IF (IICHR.EQ.$20) GO TO 70_^1_$IF (IICHR.LT.$31 .OR. IICHR.GT.$33) GO TO 75_^1_$ICHOIC = IICHR - $30_^1_$GO TO 80_^1_!70 CONTINUE_^1C_]_^1C_!PROPER RESPONSE NOT FOUND. REPEAT OUTPUT_^1_!75 GO TO (60,100),IGO_^1C_]_^1C_!GOOD RESPONSE. PROCEED ON BASIS OF IGO_^1_!80 GO 4@  3&~?TO (90,110),IGO_^1C_]_^1C_!PROCEED ON BASIS OF ICHOIC_^1_!90 GO TO (91,92,93), ICHOIC_^1C_]_^1C_!TERMINATE RUN_^1_!91 CALL KILJOB_^1C_]_^1C_!PROCEED TO SUBSEQUENT LIBRARY OR SKELETON. SET INUM =-1 AND RETURN_^1_!92 INUM = - 1_^1_$RETURN_^1C_]_^1C_!SKIP OVER RECORDS TILL NAM BLOCK OR ASCII RECORD FOUND._^1_!93 CALL GETREC_^1_$IF (INPBUF(1).NE.$2050.AND. (INPBUF(1)/$100).NE.$2A) GO TO 93_^1_$INUM = 1_^1_$RETURN_^1C_]_^1C_]_^1C_!XFR RECORD NOT FOUND. CALL ERROR3 TO NOTE ERROR AND INPUT_^1C_!OPERATORS RESPONSE. THEN SET IGO = 2 AND CONTINUE AT 65_^1 100 CALL ERROR3_^1_$IGO = 2_^1_$GO TO 65_^1C_]_^1C_!PROCEED ON BASIS OF ICHOIC_^1 110 GO TO (91,92,111),ICHOIC_^1C_]_^1C_!PRINT WARNING THAT PGM DELETED AND DECREMENT IRECNO_^1 111 CALL CLEAR_^1_$ASSIGN 1000 TO IADR_^1_$IADR = IADR + 2_^1_$CALL MOVE (IADR,24,IPRINT(2))_^1_$CALL PRINT_^1C***********************************************************_^1_$INUM = 1_^1C***********************************************************_^1_$RETURN_^1_$END_]_^__HELP5 CSY/ FTN O44 1_$SUBROUTINE HELP5_^1_#1_2/O44 F MSOS CCS 3.0_5SL-149_^1C_#INPUT AND STORE A SET OF DEFINITIONS_^1C_$CREDIT COLLECTION SYSTEM VERSION 3.0_^1C_$DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA_^1C_$COPYRIGHT CONTROL DATA CORPORATION 1979_^1C_]_^1C_]_^1C_(**************************************************_^1C_(*_O*_^1C_(*_(CALL SEQUENCE NAME IS STODEF_**_^1C_(*_O*_^1C_(**************************************************_^1C_]_^1C_(****_$COMMON DECLARATIONS_%****_^1_$INTEGER PRNIDX,SKELLU_^1_$COMMON//LUIN,LSTOUT,LUBOUT,SKELLU,IDFLEN,LIBOUT,MMERR,ICHECK,ILEN,_^1_#1 MMADR,ISELEC,LIMSPC,PRNIDX,INPIDX,IOIDX,LENGTH,INUM,ICHR,IANY,_^1_#1 IDLEN,ITMPTR,ITMIDX,IRECNO,NXTITM,NUMDEK,NAMBLK(60),INDTBL(60),_^1_#1 IPRINT(40),INPBUF(97),IOBUFF(96),NAMPTR(512),IDENT(25),NAME(3),_^1_#1 IVALS(11,3),ISHORT(6)_^1C_]_^1_$DIMENSION NAMTBL(6),NAMTB1(1),NAMTB2(1),NAMTB3(1),NAMTB4(1),_^1_#1 NAMTB5(1),NAMTB6(1)_^1C_]_^1_$EQUIVALENCE (LUIN,NAMTBL,NAMTB1),(NAMTBL(2),NAMTB2),_^1_#1(NAMTBL(3),NAMTB3),(NAMTBL(4),NAMTB4),(NAMTBL(5),NAMTB5),_^1_#1(NAMTBL(6),NAMTB6)_^1C_]_^1C_]_^1_"1 FORMAT (44H*** INVALID DEFINITION RECORD. IGNORED. ***)_^1_"2 FORMAT (50H*** NO DEFINITIONS WERE SUCCESSFULLY LOADED. M** )_^1_"3 FORMAT (44H*** TOO MANY DEFINITION SETS. IGNORED. ***)_^1_"4 FORMAT (46H*** BAD *DEF RECORD. NO IDENT CHARACTER. ***)_^1_"5 FORMAT (60H*** BAD *DEF RECORD. IDENT CHAR ALREADY USED. IGNORE_^1_#1D. ***)_^1C_]_^1C_]_^1C_!USE NUMDEK TO COUNT NO. OF DEFINITIONS ENTERED._^1_$IRECNO = 0_^1C_]_^1C_]_^1C_!GET NEXT INPUT RECORD_^1C_!CHECK FOR AN *DEF RECORD. IF NOT AN *DEF CHECK FOR *END_^1 100 CALL NXTREC_^1C_7* D_5E F_^1_$IF (INPBUF(1).EQ.$2A44 .AND. INPBUF(2).EQ.$4546) GO TO 140_^1C_]_^1C_!CHECK FOR AN *END RECORD_^1C_7* E_5N D_^1_$IF (INPBUF(1).EQ.$2A45 .AND. INPBUF(2).EQ.$4E44) GO TO 120_^1C_]_^1C_!NOTE INVALID RECORD_^1_$CALL CLEAR_^1_$ASSIGN 1 TO IADR_^1_$IADR = IADR + 2_^1C_]_^1_$CALL MOVE (IADR,22,IPRINT(2))_^1_$CALL PRINT_^1C_]_^1C_!PASS RECORDS TILL *END OR *DEF NOTED_^1C_!GET NEXT RECORD AND PRINT IT_^1 110 CALL NXTREC_^1C_!NOW CHECK FOR *DEF_^1C_7* D_5E F_^1_$IF (INPBUF(1).EQ.$2A4  3&~S4 .AND. INPBUF(2).EQ.$4546) GO TO 140_^1C_!CHECK FOR *END_^1C_7* E_5N D_^1_$IF (INPBUF(1).EQ.$2A45 .AND. INPBUF(2).EQ.$4E44) GO TO 120_^1C_!GET NEXT RECORD_^1_$GO TO 110_^1C_]_^1C_!CHECK IF ANY DEFS WERE LOADED, NOTE IT IF NOT._^1 120 IF (NUMDEK .NE. 0) GO TO 130_^1_$CALL CLEAR_^1_$ASSIGN 2 TO IADR_^1_$IADR = IADR + 2_^1_$CALL MOVE (IADR,25,IPRINT(2))_^1_$CALL PRINT_^1C_]_^1C_!DO A PAGE EJECT AND RETURN_^1 130 CALL CLEAR_^1_$IPRINT(1) = $0C00_^1_$CALL PRINT_^1_$RETURN_^1C_]_^1C_]_^1C_(**************************************************_^1C_]_^1C_!A *DEF RECORD WAS NOTED. TRY TO INPUT AND STORE A GROUP._^1C_!FIRST, BUMP NUMDEK AND CHECK IF MAX EXCEEDED_^1 140 NUMDEK = NUMDEK + 1_^1_$IF (NUMDEK .LE. 20) GO TO 160_^1C_]_^1C_!RESET NUMDEK TO 20_^1_$NUMDEK = 20_^1C_]_^1C_!NOTE ERROR AND PASS RECORDS TILL *END NOTED_^1_$CALL CLEAR_^1_$ASSIGN 3 TO IADR_^1_$IADR = IADR + 2_^1_$CALL MOVE (IADR,22,IPRINT(2))_^1_$CALL PRINT_^1C_]_^1C_!GET AND PRINT RECORD. CHECK FOR *END_^1 150 CALL NXTREC_^1_$IF (INPBUF(1).EQ.$2A45 .AND. INPBUF(2).EQ.$4E44) GO TO 130_^1_$GO TO 150_^1C_]_^1C_!SET UP INDEX FOR REFERENCING INDTBL_^1 160 INDEX = 2 *(NUMDEK-1) + 1_^1C_]_^1C_!GET IDENT CHARACTER OF GROUP_^1_$INPIDX = 4_^1_$CALL GNSCHR_^1C_]_^1C_!ASSURE CHAR WAS IN RECORD_^1_$IF (INPIDX.LE.80) GO TO 165_^1C_]_^1C_!NOTE BAD RECORD AND GO TO 110_^1_$CALL CLEAR_^1_$ASSIGN 4 TO IADR_^1_$IADR = IADR + 2_^1_$CALL MOVE (IADR,23,IPRINT(2))_^1C_]_^1C_!DECREMENT NUMDEK AS NOT STORED_^1_$NUMDEK = NUMDEK - 1_^1_$CALL PRINT_^1_$GO TO 110_^1C_]_^1C_]_^1C_!CHECK IF DESIGNATOR ALREADY USED_^1 165 IJ = NUMDEK - 1_^1_$IF (IJ.EQ.0) GO TO 169_^1_$DO 166 I = 1,IJ_^1_$JNDEX = 2 * (I-1) + 1_^1_$IF (ICHR.EQ.INDTBL(JNDEX)) GO TO 168_^1 166 CONTINUE_^1_$GO TO 169_^1C_]_^1C_!NOTE THAT DESIGNATOR ALREADY USED_^1 168 CALL CLEAR_^1_$ASSIGN 5 TO IADR_^1_$IADR = IADR + 2_^1_$CALL MOVE (IADR,30,IPRINT(2))_^1_$CALL PRINT_^1_$GO TO 110_^1 169 INDTBL(INDEX) = ICHR_^1_$INDTBL(INDEX+1)=MMADR_^1C_]_^1C_!READ AND STORE RECORDS UNTIL AN *TER RECORD IS NOTED_^1C_!SET IOBUFF INDEX TO 1_^1_$IOIDX = 1_^1C_]_^1C_!GET RECORD AND CHECK FOR *TER_^1 170 CALL NXTREC_^1C_7* T_5E R_^1_$IF (INPBUF(1).EQ.$2A54 .AND. INPBUF(2).EQ.$4552) GO TO 190_^1C_]_^1C_!PUT LENGTH IN IOBUFF AND BUMP INDEX AND WRITE BUFFER IF NEEDED_^1_$IOBUFF (IOIDX) = 40_^1_$CALL INCIDX_^1C_]_^1C_!CLEAR CHECKSUM WORD_^1_$ICHECK = 0_^1C_]_^1C_!TRANSFER INPUT RECORD TO IOBUFF AND ACCUMULATE CHECKSUM_^1_$DO 180 I =1,40_^1_$IOBUFF(IOIDX) = INPBUF(I)_^1_$ICHECK = IOBUFF(IOIDX) + ICHECK_^1C_]_^1C_!BUMP INDEX AND UNLOAD IF NEEDED_^1_$CALL INCIDX_^1 180 CONTINUE_^1C_]_^1C_!TRANSFER CHECKSUM TO IOBUFF, BUMP INDEX AND UNLOAD IF NEEDED_^1_$IOBUFF(IOIDX) = ICHECK_^1_$CALL INCIDX_^1C_]_^1C_!GO GET NEXT RECORD_^1_$GO TO 170_^1C_]_^1C_!*TER READ, STORE 0 FOR NO. OF WORDS, WRITE BLOCK, BUMP MM ADDRESS_^1 190 IOBUFF(IOIDX) = 0_^1_$CALL DISKIO (2,IOBUFF,MMADR)_^1_$MMADR = MMADR + 1_^1C_]_^1C_!CONTINUE AT 100_^1_$GO TO 100_^1_$END_]_^__ HELP8 CSY/ FTN O45 1_$SUBROUTINE HELP8_^1_#1_2/O45 F MSOS CCS 3.0_5SL-149_^1C_#GENERATE LISTING AND NEW OUTPUT LIBRARY_^1C_$CREDIT COLLECTION SYSTEM VERSION 3.0_^1C_$DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, C*  3&~gALIFORNIA_^1C_$COPYRIGHT CONTROL DATA CORPORATION 1979_^1C_]_^1C_]_^1C_(**************************************************_^1C_(*_O*_^1C_(*_(CALL SEQUENCE NAME IS MAKLIB_**_^1C_(*_O*_^1C_(**************************************************_^1C_(****_$COMMON DECLARATIONS_%****_^1_$INTEGER PRNIDX,SKELLU_^1_$COMMON//LUIN,LSTOUT,LUBOUT,SKELLU,IDFLEN,LIBOUT,MMERR,ICHECK,ILEN,_^1_#1 MMADR,ISELEC,LIMSPC,PRNIDX,INPIDX,IOIDX,LENGTH,INUM,ICHR,IANY,_^1_#1 IDLEN,ITMPTR,ITMIDX,IRECNO,NXTITM,NUMDEK,NAMBLK(60),INDTBL(60),_^1_#1 IPRINT(40),INPBUF(97),IOBUFF(96),NAMPTR(512),IDENT(25),NAME(3),_^1_#1 IVALS(11,3),ISHORT(6)_^1C_]_^1_$DIMENSION NAMTBL(6),NAMTB1(1),NAMTB2(1),NAMTB3(1),NAMTB4(1),_^1_#1 NAMTB5(1),NAMTB6(1)_^1C_]_^1_$EQUIVALENCE (LUIN,NAMTBL,NAMTB1),(NAMTBL(2),NAMTB2),_^1_#1(NAMTBL(3),NAMTB3),(NAMTBL(4),NAMTB4),(NAMTBL(5),NAMTB5),_^1_#1(NAMTBL(6),NAMTB6)_^1C_]_^1C_]_^1C_!THERE ARE NUMDEK PROGRAMS STORED. EXECUTE OUTER DO LOOP NUMDEK_^1C_!TIMES._]_^1C_!IF LSTOUT OR LIBOUT NOT 0, LIST LIBRARY._^1C_!IF LIBOUT NOT 0, OUTPUT LIBRARY ON LU SPECIFIED BY LIBOUT._^1C_]_^1_"1 FORMAT (48H*** CHECKSUM ERROR NOTED IN LAST PROGRAM. *** )_^1C_]_^1C_!PRESET ICOUNT TO 0_^1_$ICOUNT = 0_^1C_]_^1C_!IF LSTOUT OR LIBOUT NOT 0, EJECT PAGE._^1_$IF (LSTOUT. EQ.0 .AND. LIBOUT.EQ.0) GO TO 100_^1C_]_^1C_!CLEAR BUFFER, PUT EJECT CODE IN WORD 1, PRINT TO CAUSE EJECT_^1_$CALL CLEAR_^1_$IPRINT(1) = $0C00_^1_$CALL PRINT_^1C_]_^1C_!EXECUTE OUTTER LOOP NUMDEK TIMES._^1 100 DO 150 I = 1,NUMDEK_^1C_]_^1C_!SET ITMPTR TO INDTBL(I). GET THE ITEM THEN GET THE PROGRAMS FIRST_^1C_!RECORD._^1_$ITMPTR = I_^1_$CALL GETITM_^1C_]_^1C_!SET MMADR TO ADDRESS-1 OF PGM, SET IOIDX TO 97 TO FORCE READ OF 1ST_^1C_!BLOCK OF STORED PROGRAM. CALL GETBIN TO GET RECORD (NAM BLOCK)_^1C_!SET MM ERROR FLAG TO 0_^1_$MMADR = NAMTB6(ITMIDX) -1_^1_$IOIDX = 97_^1_$MMERR = 0_^1_$CALL GETBIN_^1C_]_^1C_!BUMP ICOUNT_^1_$ICOUNT = ICOUNT + 1_^1C_!CLEAR PRINT BUFFER, CONVERT ICOUNT TO DECIMAL AND PUT IN BUFFER_^1_$CALL CLEAR_^1_$PRNIDX = 2_^1_$INUM = ICOUNT_^1_$CALL BINDEC_^1C_]_^1C---_!SAVE POSSIBLE ABSOLUTE FILE INDICATION_^1_$IABBA = INPBUF(2)_^1_$IDABA = INPBUF(3)_^1C_]_^1C_!PUT PROGRAM NAME IN BUFFER_^1_$IPRINT(6) = INPBUF(5)_^1_$IPRINT(7) = INPBUF(6)_^1_$IPRINT(8) = INPBUF(7)_^1C_]_^1C_!CHECK IF COMMENT INFO EXISTS--MOVE IT INTO BUFFER IF SO_^1_$IF (LENGTH.LT.11) GO TO 130_^1_$IL = LENGTH_^1_$IF (IL.GT.40) IL = 40_^1_$DO 120 J = 11,IL_^1 120 IPRINT(J) = INPBUF(J)_^1 130 CALL PRINT_^1C_]_^1C_!IF OUTPUT LIBRARY NOT WANTED, GO TO 150_^1 140 IF (LIBOUT .EQ. 0) GO TO 150_^1C_]_^1C_]_^1C_!OUTPUT BINARY RECORDS TILL DONE. THEN CHECK IF ERROR NOTED._^1 145 CALL OUTBIN_^1_$CALL GETBIN_^1_$IF (LENGTH .NE. 0) GO TO 145_^1_$IF(MMERR.NE.0) GO TO 148_^1C_]_^1C---_!SEE IF PROCESSING ABSOLUTE FILE_^1_$IF(IABBA.NE.$ABBA.OR.IDABA.NE.$DABA) GO TO 150_^1C_]_^1C---_!TRUE - INSERT DELIMITTER RECORD - *(BLANKS)_^1_$DO 146 II = 1,36_^1 146 INPBUF(II) = $2020_^1_$INPBUF(1) = $2A20_^1_$LENGTH = 36_^1_$CALL OUTBIN_^1_$GO TO 150_^1C_]_^1C_!ERROR NOTED. WARN USER._^1 148 CONTINUE_^1_$CALL CLEAR_^1_$ASSIGN 1 TO IADR_^1_$IADR = IADR+ 2_^1_$CALL MOVE (IADR,24,IPRINT(2))_^1_$CALL PRINT_^1 150 CONTINUE_^1C_]_^1C_!IF OUTPUT LIST WANTED, MAKE *END RECORD. SKIP TO 160 IF NOT._^1_$IF (LSTOUT.EQ.0) GO TO 160_^1_$CALL CLEAR_^1_$PRNIDX = 2_^1_$INUM = NUMDEK + 1_^1_$CALL BINDEC_^1_$IPRINT(6) = $2A45_^1_$IPRINT(7) = $4E44_^1_$CALL PRINT_^1C_]_^1C_!IF LIBOUT EQUAL 0, RETURN_^1 160 IF (LIBOUT.EQ.0) RETURN_^1C_]_^1C_!MAKE *END RECORD FOR OUTPUT_^1_$DO 165 I=3,36_^1 165 INPBUF(I) = $2020_^1_$INPBUF(1) = $2A45_^1_$INPBUF(2) = $4E44_^1_$LENGTH = 36_^1_$CALL OUTBIN_^1_$END_]_^__HELP9 CSY/ FTN O46 9  3&~{1_$SUBROUTINE HELP9_^1_#1_2/O46 F MSOS CCS 3.0_3. SL-149_^1C_#DEFINE A PROGRAM IN THE DIRECTORY IF IT IS UNIQUE._^1C_$CREDIT COLLECTION SYSTEM VERSION 3.0_^1C_$DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA_^1C_$COPYRIGHT CONTROL DATA CORPORATION 1979_^1C_]_^1C_]_^1C_(**************************************************_^1C_(*_O*_^1C_(*_(CALL SEQUENCE NAME IS DEFINE_**_^1C_(*_O*_^1C_(**************************************************_^1C_(****_$COMMON DECLARATIONS_%****_^1_$INTEGER PRNIDX,SKELLU_^1_$COMMON//LUIN,LSTOUT,LUBOUT,SKELLU,IDFLEN,LIBOUT,MMERR,ICHECK,ILEN,_^1_#1 MMADR,ISELEC,LIMSPC,PRNIDX,INPIDX,IOIDX,LENGTH,INUM,ICHR,IANY,_^1_#1 IDLEN,ITMPTR,ITMIDX,IRECNO,NXTITM,NUMDEK,NAMBLK(60),INDTBL(60),_^1_#1 IPRINT(40),INPBUF(97),IOBUFF(96),NAMPTR(512),IDENT(25),NAME(3),_^1_#1 IVALS(11,3),ISHORT(6)_^1C_]_^1_$DIMENSION NAMTBL(6),NAMTB1(1),NAMTB2(1),NAMTB3(1),NAMTB4(1),_^1_#1 NAMTB5(1),NAMTB6(1)_^1C_]_^1_$EQUIVALENCE (LUIN,NAMTBL,NAMTB1),(NAMTBL(2),NAMTB2),_^1_#1(NAMTBL(3),NAMTB3),(NAMTBL(4),NAMTB4),(NAMTBL(5),NAMTB5),_^1_#1(NAMTBL(6),NAMTB6)_^1C_!SAVE MMADR IN MMASAV_^1_$MMASAV = MMADR+1_^1C_]_^1C_]_^1C_!GET NAM BLOCK RECORD OF STORED PROGRAM AND STORE IN NAMBLK ARRAY._^1C_]_^1C_!SET IOIDX TO 97 TO FORCE READ OF 1ST MM BLOCK. GET NAM RECORD._^1_$IOIDX = 97_^1_$CALL GETBIN_^1C_]_^1C_!ASSURE LENGTH NOT 0. ERROR IF SO (NO RETURN FROM ERROR5)_^1_$IF (LENGTH .EQ. 0) CALL ERROR5_^1_$ILEN = LENGTH_^1_$DO 10 I = 1,ILEN_^1_!10 NAMBLK(I) = INPBUF(I)_^1C_]_^1_$NUMDEK = NUMDEK + 1_^1C_]_^1C_!PUT NAME IN NAME ARRAY FOR HASH_^1_$NAME(1) = NAMBLK(5)_^1_$NAME(2) = NAMBLK(6)_^1_$NAME(3) = NAMBLK(7)_^1C_]_^1C_!CALL HASH TO COMPUTE HASH CODE OF NAME_^1_$CALL HASH_^1_$INDEX = ITMIDX_^1C_]_^1C_!CHECK NAME POINTER TABLE TO DETERMINE IF INDEX IS UNIQUE THUS FAR_^1C_!IF NOT UNIQUE, GO TO 30_^1_$ITMPTR = NAMPTR(INDEX)_^1_$IF (ITMPTR.NE.0) GO TO 30_^1C_]_^1C_!SCATTER INDEX IS THUS FAR UNIQUE. PUT THE POINTER TO THE NEXT_^1C_!AVAILABLE V.M. ITEM IN THE NAME POINTER TABLE._^1_$NAMPTR(INDEX) = NXTITM_^1C_]_^1C_!GENERATE V.M. TABLE ITEM FOR THIS PROGRAM. PUT IN 2 ZERO POINTERS_^1C_!AND NAME. BUMP POINTER TO NEXT AVAILABLE ITEM._^1_!20 ITMPTR = NXTITM_^1_$CALL GETITM_^1_$NAMTB1(ITMIDX) = 0_^1_$NAMTB2(ITMIDX) = 0_^1_$NAMTB3(ITMIDX) = NAMBLK(5)_^1_$NAMTB4(ITMIDX) = NAMBLK(6)_^1_$NAMTB5(ITMIDX) = NAMBLK(7)_^1_$NAMTB6(ITMIDX) = MMASAV_^1_$NXTITM = NXTITM + 1_^1_$RETURN_^1C_]_^1C_]_^1C_!GET V.M. ITEM SPECIFIED BY ITMPTR (INDEX WAS NOT UNIQUE)_^1_!30 CALL GETITM_^1_$ITEMP1 = ITMIDX + 1_^1C_]_^1C_!CHECK IF NAME IN NAM BLOCK IS SAME AS IN THIS V.M. ITEM_^1_$DO 40 I = 5,7,1_^1_$ITEMP1 = ITEMP1 + 1_^1_$IF (NAMBLK(I) .NE. NAMTBL(ITEMP1)) GO TO 80_^1_!40 CONTINUE_^1C_]_^1C_!NAME WAS THE SAME, GET NAME BLOCK OF PREVIOUSLY STORED PROGRAM._^1C_!CALL UNICHK TO DETERMINE IF PROGRAMS ARE IDENTICAL. ICHECK=0 ON_^1C_!RETURN IF PROGRAMS ARE UNIQUE. IF NOT UNIQUE, RETURN IMMEDIATELY,_^1C_!AFTER DECREMENTING NUMDEK._^1C_!SET UP FOR READ OF NAM BLOCK RECORD_^1_!45 MMADR = NAMTB6(ITMIDX)-1_^1_$MMERR = 0_^1_$IOIDX = 97_^1_$CALL GETBIN_^1_$IF (LENGTH .EQ. 0) CALL ERROR5_^1_$ICHECK = 0_^1_$CALL UNICHK_^1_$IF (ICHECK.EQ.0) GO TO 50_^1_$NUMDEK = NUMDEK - 1_^1_$RETURN_^1C_]_^1C_!THE CURRENT PROGRAM IS THUS FAR UNIQUE. CHECK IF 1ST WORD OF ITEM_^1C_!POINTS TO ANOTHER ITEM (PGM WITH SAME NAME). IF SO, GO TO 70_^1_!50 IF (NAMTB1(ITMIDX).NE.0) GO TO 70_^1C_]_^1C_!THE CURRENT PROGRAM IS UNIQUE. THERE ARE NO MORE LINKED PROGRAMS_^1C_!WITH SAME NAME._^1C_!SET 1ST WORD OF CURRENT ITEM TO NEXT AVAILABLE ITEM POINTER, THEN_^1C_!GET NEXT AVAILABLE ITEM. STORE NEEDED INFO INTO IT AND BUMP POINTER_^1C_!TO NEXT AVAILABLE ITEM._^1_$NAMTB1(ITMP  3&~IDX) = NXTITM_^1_$ITMPTR = NXTITM_^1_$CALL GETITM_^1_$DO 60 I=1,5_^1_$INDEX =ITMIDX + I -1_^1_!60 NAMTBL(INDEX) = 0_^1_$NAMTB6(ITMIDX) = MMASAV_^1_$NXTITM = NXTITM + 1_^1_$RETURN_^1C_]_^1C_]_^1C_!ANOTHER STORED PROGRAM HAS SAME NAME. GET THE DIRECTORY ITEM FOR_^1C_!THAT PROGRAM THEN CHECK IF IT IS A DUPLICATE. (GO TO 45 TO CHECK)_^1_!70 ITMPTR = NAMTB1(ITMIDX)_^1_$CALL GETITM_^1_$GO TO 45_^1C_]_^1C_]_^1C_!NAME IN NAM BLOCK WAS NOT THE SAME AS IN A V.M. ITEM. CHECK 2ND_^1C_!WORD OF ITEM. IF IT IS 0, NO OTHER NAME EXISTS WITH SAME SCATTER_^1C_!INDEX. IF NOT 0, GO TO 90._^1_!80 IF (NAMTB2(ITMIDX).NE.0) GO TO 90_^1C_]_^1C_!PUT IN POINTER TO NEXT AVAILABLE ITEM AND GO TO 20 TO MAKE ITEM FOR_^1C_!THIS PROGRAM._^1_$NAMTB2(ITMIDX) = NXTITM_^1_$GO TO 20_^1C_]_^1C_!SET ITMPTR TO 2ND WORD OF ITEM (POINTS TO V.M. ITEM WITH DIFFERENT_^1C_!NAME.) THEN GO TO 30 TO CHECK IF NAMES ARE IDENTICAL._^1_!90 ITMPTR = NAMTB2(ITMIDX)_^1_$GO TO 30_^1_$END_]_^__ HELP10 CSY/ FTN O47 1_$SUBROUTINE HELP10_^1_#1_2/O47 F MSOS CCS 3.0_5SL-149_^1C_#OBTAIN A V.M. ITEM, AND CALCULATE ITS INDEX_^1C_$CREDIT COLLECTION SYSTEM VERSION 3.0_^1C_$DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA_^1C_$COPYRIGHT CONTROL DATA CORPORATION 1979_^1C_]_^1C_]_^1C_(**************************************************_^1C_(*_O*_^1C_(*_(CALL SEQUENCE NAME IS GETITM_**_^1C_(*_O*_^1C_(**************************************************_^1C_(****_$COMMON DECLARATIONS_%****_^1_$INTEGER PRNIDX,SKELLU_^1_$COMMON//LUIN,LSTOUT,LUBOUT,SKELLU,IDFLEN,LIBOUT,MMERR,ICHECK,ILEN,_^1_#1 MMADR,ISELEC,LIMSPC,PRNIDX,INPIDX,IOIDX,LENGTH,INUM,ICHR,IANY,_^1_#1 IDLEN,ITMPTR,ITMIDX,IRECNO,NXTITM,NUMDEK,NAMBLK(60),INDTBL(60),_^1_#1 IPRINT(40),INPBUF(97),IOBUFF(96),NAMPTR(512),IDENT(25),NAME(3),_^1_#1 IVALS(11,3),ISHORT(6)_^1C_]_^1_$DIMENSION NAMTBL(6),NAMTB1(1),NAMTB2(1),NAMTB3(1),NAMTB4(1),_^1_#1 NAMTB5(1),NAMTB6(1)_^1C_]_^1_$EQUIVALENCE (LUIN,NAMTBL,NAMTB1),(NAMTBL(2),NAMTB2),_^1_#1(NAMTBL(3),NAMTB3),(NAMTBL(4),NAMTB4),(NAMTBL(5),NAMTB5),_^1_#1(NAMTBL(6),NAMTB6)_^1C *************************************************************117*4462_^1C_#MAXBIN DENOTES THE MAXIMUM NUMBER OF BINARIES TO BE_^1C_#SAVED. IF MAXBIN IS CHANGED MMADR IN HELP0 MUST ALSO_^1C_#BE CHANGED._^1_$MAXBIN = 2048_^1C *************************************************************117*4462_^1C_]_^1C_]_^1C_!ASSURE ITMPTR IS IN RANGE_^1C *************************************************************117*4462_^1_$IF (ITMPTR.LT.1 .OR. ITMPTR.GT.MAXBIN) CALL ERROR4_^1C *************************************************************117*4462_^1C_]_^1C_!CALCULATE BLOCK NUMBER_^1_$INDEX = (ITMPTR+15)/16_^1C_]_^1C_!CHECK IF BLOCK ALREADY IN CORE_^1_$L=-97_^1_$DO 10 I = L,LIMSPC,-98_^1C_!JUMP TO 40 IF IN CORE_^1_$IF (INDEX.EQ.NAMTBL(I)) GO TO 40_^1_!10 CONTINUE_^1C_]_^1C_!FIND EMPTY CORE SPACE OR LEAST USED BLOCK_^1_$MINUSE = $7FFF_^1_$DO 20 I=L,LIMSPC,-98_^1C_!GO TO 30 IF FREE SPACE FOUND_^1_$IF (NAMTBL(I).EQ.$FFFE) GO TO 30_^1_$IF (NAMTBL(I+1).GE.MINUSE) GO TO 20_^1_$MINUSE = NAMTBL(I+1)_^1_$IDXSAV = I_^1_!20 NAMTBL(I+1) = 0_^1C_]_^1C_!RESTORE INDEX OF BLOCK USED THE MINIMUM_^1_$I = IDXSAV_^1C_]_^1C_!WRITE OUT BLOCK TO MM_^1_$CALL DISKIO (2,NAMTBL(I+2),NAMTBL(I))_^1C_]_^1C_!READ IN THE REQUIRED BLOCK_^1_$CALL DISKIO (1,NAMTBL(I+2),INDEX)_^1C_]_^1C_!DEFINE CORE SPACE AS CURRENT BLOCK_^1_!30 NAMTBL(I) = INDEX_^1_$NAMTBL(I+1)=1_^1_$GO TO 50_^1C_]_^1C_!INCREMENT USAGE WORD OF DATA BLOCK_^1_!40 NAMTBL(I+1) = NAMTBL(I+1) + 1  3&~_^1C_]_^1C_!CALCULATE ITMIDX_^1_!50 ITMIDX= I+2 + 6*((ITMPTR-(INDEX-1)*16)-1)_^1_$END_]_^__ HELP11 CSY/ FTN O48 1_$SUBROUTINE HELP11_^1_#1_2/O48 F MSOS CCS 3.0_5SL-149_^1C_#COMPUTE HASH CODE INDEX FOR PROGRAM NAME_^1C_$CREDIT COLLECTION SYSTEM VERSION 3.0_^1C_$DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA_^1C_$COPYRIGHT CONTROL DATA CORPORATION 1979_^1C_]_^1C_]_^1C_(**************************************************_^1C_(*_O*_^1C_(*_(CALL SEQUENCE NAME IS HASH_,*_^1C_(*_O*_^1C_(**************************************************_^1C_(****_$COMMON DECLARATIONS_%****_^1_$INTEGER PRNIDX,SKELLU_^1_$COMMON//LUIN,LSTOUT,LUBOUT,SKELLU,IDFLEN,LIBOUT,MMERR,ICHECK,ILEN,_^1_#1 MMADR,ISELEC,LIMSPC,PRNIDX,INPIDX,IOIDX,LENGTH,INUM,ICHR,IANY,_^1_#1 IDLEN,ITMPTR,ITMIDX,IRECNO,NXTITM,NUMDEK,NAMBLK(60),INDTBL(60),_^1_#1 IPRINT(40),INPBUF(97),IOBUFF(96),NAMPTR(512),IDENT(25),NAME(3),_^1_#1 IVALS(11,3),ISHORT(6)_^1C_]_^1_$DIMENSION NAMTBL(6),NAMTB1(1),NAMTB2(1),NAMTB3(1),NAMTB4(1),_^1_#1 NAMTB5(1),NAMTB6(1)_^1C_]_^1_$EQUIVALENCE (LUIN,NAMTBL,NAMTB1),(NAMTBL(2),NAMTB2),_^1_#1(NAMTBL(3),NAMTB3),(NAMTBL(4),NAMTB4),(NAMTBL(5),NAMTB5),_^1_#1(NAMTBL(6),NAMTB6)_^1C_]_^1_$DIMENSION I(6)_^1C_]_^1C_!CONVERT ASCII CODES TO A NEW SET OF CODES WHERE SPACE=0, A=1, B=2,_^1C_!Z=$1A,0=$1B,1=$1C,9=$24,ETC._^1C_!FIRST GET EACH ASCII CHARACTER AND PUT IN THE I ARRAY_^1_$I(1) = NAME(1)/ $100_^1_$I(2)= AND(NAME(1),$FF)_^1_$I(3)= NAME(2)/$100_^1_$I(4)= AND(NAME(2),$FF)_^1_$I(5)= NAME(3)/$100_^1_$I(6)= AND(NAME(3),$FF)_^1_$DO 10 J=1,6_^1C_]_^1C_!CHANGE SPACE CODES TO $3F_^1_$IF(I(J).EQ.$20) I(J)=$3F_^1C_]_^1C_!CHANGE ASCII CODES FOR 0-9 TO $5B-$64_^1_$IF(I(J).LT.$3F) I(J)=$5A+I(J)-$2F_^1C_!SUBTRACT $3F FROM EACH CODE_^1_!10 I(J)=I(J)-$3F_^1_$INDEX=I(1)+I(2)+2*(I(3)+I(4))+4*(I(5)+I(6))_^1_$ITMIDX=AND(INDEX,511)+1_^1_$END_]_^__HELP12 CSY/ FTN O49 1_$SUBROUTINE HELP12_^1_#1_2/O49 F MSOS CCS 3.0_5SL-149_^1C_#OBTAIN PROGRAM FROM MASS MEMORY AND PLACE ON OUTPUT FILE_^1C_$CREDIT COLLECTION SYSTEM VERSION 3.0_^1C_$DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA_^1C_$COPYRIGHT CONTROL DATA CORPORATION 1979_^1C_]_^1C_]_^1C_(**************************************************_^1C_(*_O*_^1C_(*_(CALL SEQUENCE NAME IS GETPGM_**_^1C_(*_O*_^1C_(**************************************************_^1C_(****_$COMMON DECLARATIONS_%****_^1_$INTEGER PRNIDX,SKELLU_^1_$COMMON//LUIN,LSTOUT,LUBOUT,SKELLU,IDFLEN,LIBOUT,MMERR,ICHECK,ILEN,_^1_#1 MMADR,ISELEC,LIMSPC,PRNIDX,INPIDX,IOIDX,LENGTH,INUM,ICHR,IANY,_^1_#1 IDLEN,ITMPTR,ITMIDX,IRECNO,NXTITM,NUMDEK,NAMBLK(60),INDTBL(60),_^1_#1 IPRINT(40),INPBUF(97),IOBUFF(96),NAMPTR(512),IDENT(25),NAME(3),_^1_#1 IVALS(11,3),ISHORT(6)_^1C_]_^1_$DIMENSION NAMTBL(6),NAMTB1(1),NAMTB2(1),NAMTB3(1),NAMTB4(1),_^1_#1 NAMTB5(1),NAMTB6(1)_^1C_]_^1_$EQUIVALENCE (LUIN,NAMTBL,NAMTB1),  3&~(NAMTBL(2),NAMTB2),_^1_#1(NAMTBL(3),NAMTB3),(NAMTBL(4),NAMTB4),(NAMTBL(5),NAMTB5),_^1_#1(NAMTBL(6),NAMTB6)_^1C_]_^1_$DIMENSION ISAVE(38)_^1_"1 FORMAT (52H*** PROGRAM SPECIFIED BY THIS RECORD NOT FOUND. ***)_^1_"2 FORMAT (48H*** CHECKSUM ERROR NOTED IN LAST PROGRAM. *** )_^1_"3 FORMAT (48H*** PROGRAM HAVING THIS ID INFO NOT FOUND. *** )_^1_"4 FORMAT (54H*** MORE THAN ONE PGM HAS THIS NAME (NO ID INFO.) ***_^1_#1)_]_^1C_]_^1C_]_^1C_!THE PROGRAM NAME IS DEFINED IN THE NAME ARRAY._^1C_!IANY INDICATES THE USE OF IDENTIFICATION INFORMATION_^1C_#IANY=0 IMPLIES DO NOT CHECK ID_^1C_#IANY=1 IMPLIES DO CHECK ID. THE ID INFO WILL BE IN THE IDENT_^1C_$ARRAY. IDLEN SPECIFIES THE NUMBER OF CHARS IN IDENT._^1C_]_^1C_!SAVE 1ST 38 WORDS OF CURRENT INPUT RECORD FOR POSSIBLE USE LATER_^1_$DO 100 I=1,38_^1 100 ISAVE(I) = INPBUF(I)_^1C_]_^1C_!CALL HASH TO COMPUTE HASH CODE INDEX_^1_$CALL HASH_^1_$INDEX = ITMIDX_^1C_]_^1C_!CHECK NAME POINTER TO DETERMINE IF INDEX HAS BEEN USED._^1_$ITMPTR = NAMPTR(INDEX)_^1_$IF (ITMPTR.NE.0) GO TO 130_^1C_]_^1C_!ERROR--NAME NOT DEFINED--GIVE WARNING, PRINT CONTROL RECORD AND_^1C_!RETURN_]_^1 115 CALL CLEAR_^1_$ASSIGN 1 TO IADR_^1_$IADR = IADR + 2_^1_$CALL MOVE (IADR,26,IPRINT(2))_^1 120 CALL PRINT_^1_$CALL CLEAR_^1_$DO 125 I=1,36_^1 125 IPRINT(I+4) = ISAVE(I)_^1_$CALL PRINT_^1_$RETURN_^1C_]_^1C_!GET SPECIFIED ITEM AND SAVE 1ST TWO WORDS. THEN CHECK IF THE NAMES_^1C_!ARE THE SAME. IF NOT, GO TO 260_^1 130 CALL GETITM_^1_$ITEM1=NAMTB1(ITMIDX)_^1_$ITEM2=NAMTB2(ITMIDX)_^1_$IF (NAME(1).NE.NAMTB3(ITMIDX) .OR. NAME(2).NE.NAMTB4(ITMIDX) .OR._^1_#1 NAME(3).NE.NAMTB5(ITMIDX)) GO TO 260_^1C_]_^1C_!NAME WAS THE SAME. SET MM ADDRESS TO ADDRESS-1 OF PROGRAM, SET_^1C_!IOIDX TO 97 TO FORCE READ OF 1ST BLOCK OF STORED PROGRAM. SET MM_^1C_!ERROR FLAG TO 0 AND CALL GETBIN TO GET RECORD._^1 135 MMADR = NAMTB6(ITMIDX) - 1_^1_$IOIDX = 97_^1_$MMERR = 0_^1_$CALL GETBIN_^1C_]_^1C_!ASSURE NON-ZERO LENGTH--ERROR IF 0 (NO RETURN)_^1_$IF (LENGTH .EQ. 0) CALL ERROR5_^1C_]_^1C_!CHECK IANY. IF IANY=0, NO IDENT INFO CHECK IS NEEDED._^1_$IF (IANY .EQ. 0) GO TO 250_^1C_!CHECK IS NEEDED._^1C_]_^1C_!SKIP OVER LEADING SPACES IN IDENT FIELD OF NAM BLOCK_^1_$INPIDX = 20_^1C***************************************************************136*4074_^1_$DO 140 I=1,6_^1C***************************************************************136*4074_^1_$CALL GETCHR_^1C_]_^1C_#CHECK IF BLANK_^1C_]_^1_$IF (ICHR.NE.$20) GO TO 141_^1 140 CONTINUE_^1C_]_^1C_#IF BLANKS ONLY APPEAR IN THE IDENT FIELD_^1C_#RESET INPIDX FOR PROPER COMPARE_^1C_]_^1_$INPIDX = 21_^1 141 CONTINUE_^1C***********************************************************_^1C_]_^1C_!ASSURE THAT NAM BLOCK IS LONG ENOUGH_^1_$ITEST = (INPIDX+IDLEN)/2_^1_$IF (ITEST.LE.LENGTH) GO TO 150_^1C_]_^1C_!CHARACTERS ARE NOT THE SAME. CHECK ITEM1 TO DETERMINE IF MORE PGMS_^1C_!HAVE THE SAME NAME._^1 145 IF (ITEM1 .EQ. 0) GO TO 147_^1C_]_^1C_!MORE PROGRAMS EXIST. SET ITMPTR TO ITEM1, GET THE V.M. ITEM, RESET_^1C_!ITEM1 AND ITEM2 AND CONTINUE AT 135._^1_$ITMPTR = ITEM1_^1_$CALL GETITM_^1_$ITEM1=NAMTB1(ITMIDX)_^1_$ITEM2=NAMTB2(ITMIDX)_^1_$GO TO 135_^1C_]_^1C_!NO MORE EXIST WITH THIS NAME--PUT WARNING IN IPRINT AND CONTINUE_^1C_!AT 120_]_^1 147 CALL CLEAR_^1_$ASSIGN 3 TO IADR_^1_$IADR = IADR + 2_^1_$CALL MOVE (IADR,24,IPRINT(2))_^1_$GO TO 120_^1C_]_^1C_!NAM BLOCK IS LONG ENOUGH. CHECK IF IDENTS MATCH._^1C_!CHECK IDLEN CHARACTERS._^1 150 INPIDX = INPIDX -1_^1_$DO 160 I = 1,IDLEN_^1_$CALL GETCHR_^1_$INDEX = (I+1)/2_^1_$IICHR = IDENT(INDEX)/$100_^1_$IF (AND(I,1).EQ.0) IICHR = AND(IDENT(INDEX),$00FF)_^1_$IF (ICHR.NE.IICHR) GO TO 145_^1 160 CONTINUE_^1C_]_^1C_!THIS DECK IS THE NEEDED DECK. PRINT AN APPROPRIATE LINE FOR IT THEN_^1C_!OUTPUT THE PROGRAM_^1 170 CALL CLEAR_^1_$IRECNO = IRECNO + 1_^1_$PRNIDX = 2_^1_$INUM = IRECNO_^1_$CALL BINDEC_^1C_]_r  3&]LALU]LP CCS20 ]_^1C_#CHECK FOR NUMERIC ENTRY ON LETTER CODE._^1 160 CALL CCSGET(IOBUF,ONE,J)_^1_$CALL CCSGET(IOBUF,TWO,K)_^1_$IF(J.GE.$30.AND.J.LT.$3A.AND.K.GE.$30.AND.K.LT.$3A) G*JOB 00010*CTO,...FILE: LAAPR.J 00020*CTO,LEGAL/AGENCY RPG BINARY GENERATION. 00030*CTO, L/A CUDDLY TO HOLLERITH 00040*OPEN,FN=LAAPR.U,OW=CCS20,VL=SOURCE,LU=20,R 00050*OPEN,FN=LAAPR.B,OW=CCS20,VL=SOURCE,LU=21,W 00060*OPEN,FN=RPG.92.T,OW=CCS20,VL=SOURCE,LU=22,W 00070*CTO,MOUNT L/A 3.O CUDDLY TAPE ON UNIT 0 00080*PAUS 00090*K,I20 00100*CSY,I6,P22 00110*CUDDLY 00120*CTO, CUDDLY TO HOLERITH DONE 00130*CTO, PUNCH L/A RPG BINARIES 00140*K,I22,L12,P21 00150*RPGII 00160*RBDPCH 00170*RPGII 00180*RBDPCH 00190*RPGII 00200*RBDPCH 00210*RPGII 00220*RBDPCH 00230*RPGII 00240*RBDPCH 00250*RPGII 00260*RBDPCH 00270*RPGII 00280*RBDPCH 00290*RPGII 00300*RBDPCH 00310*RPGII 00320*RBDPCH 00330*RPGII 00340*RBDPCH 00350*RPGII 00360*RBDPCH 00370*RPGII 00380*RBDPCH 00390*RPGII 00400*RBDPCH 00410*RPGII 00420*RBDPCH 00430*RPGII 00440*RBDPCH 00450*RPGII  3&]` 00460*RBDPCH 00470*RPGII 00480*RBDPCH 00490*RPGII 00500*RBDPCH 00510*RPGII 00520*RBDPCH 00530*RPGII 00540*RBDPCH 00550*RPGII 00560*RBDPCH 00570*RPGII 00580*RBDPCH 00590*RPGII 00600*RBDPCH 00610*RPGII 00620*RBDPCH 00630*RPGII 00640*RBDPCH 00650*K,L14 00660*CTO,LEGAL/AGENCY RPG BINARY GENERATION COMPLETE. 00670_  3&]t  3&]  3&] ),_^1_#4_"STG(40),LTHACT(2)_^11_]_^1_$EXTERNAL FMRDEL_^11_]_^1_$DATA DEQREQ, ASNREQ / 48*0 /_^1_$DATA DDATA / 'LADLQMST', 8*$202AL]P CCS20 A / 'LADLYASN', 8*$2020, 0, 1, 0 /_^1_$DATA NUMREC / 23 /, ST / 0 /, EFG / 0 /, LTHACT / '0360' /_^1_$DATA QUE, PRI / 54*$2020 /_^1._]_^1C****_#SET UP THE DELQMST STA*JOB,FILTAP,---------CREATE FILE INITIALIZATION AND LOAD TAPE 00010*CTO,...FILE: FILTAP.J 00020*CTO, THIS JOB WILL CREATE THE FILE INITIALIZATION AND LOAD TAPE 00030*CTO, MOUNT OUTPUT TAPE ON UNIT '1' 00040*CTO, MOUNT CCS APPLICATION RPG CUDDLY TAPE ON UNIT '0' 00050*PAUS 00060*OPEN,FN=CCSPAM.C,OW=CCS20,R,LU=20 00070*OPEN,FN=CCSAP.C,OW=CCS20,R,LU=21 00080*OPEN,FN=LAAP.C,OW=CCS20,R,LU=22 00090*OPEN,FN=CCSAPF.B,OW=CCS20,R,LU=23 00100*OPEN,FN=LAAPF.B,OW=CCS20,R,LU=24 00110*OPEN,FN=MASTER.B,OW=CCS20,W,LU=25 00120*CSY,I20,P16 00130*K,P16 00140*COSY 00150PSC00 DCK/ I,H 00160LODDAC DCK/ I=13,H 00170LODDAC HOL/ 00180SFDACRTECCS20 00190 END/ 00200DACRTE DCK/ I=21,H 00210R9BASE DCK/ I=21,H 00220R9FLDL DCK/ I=21,H 00230 END/ 00240*ADF,16,1 00250*BSR,16,2 00260*EOF 00270*CUDDLY 00280LODDTL DCK/ I=13,H 00290LODDTL HOL/ 00300SRDTLLSTCCS20 00310 END/ 00320DTLLST DCK/ I=6,H 00330 END/ f0  3'] 00340*UNL,6 00350*CTO, DISMOUNT CCS APPLICATION CUDDLY FROM TAPE UNIT '0' AND 00360*CTO, MOUNT LA APPLICATION CUDDLY TAPE ON UNIT '0' 00370*ADF,16,2 00380*BSR,16,1 00390*EOF 00400*COSY 00410LODLDA DCK/ I=13,H 00420LODLDA HOL/ 00430SFLDACRTLA 00440 END/ 00450LDACRT DCK/ I=22,H 00460R9BASE DCK/ I=21,H 00470R9FLDL DCK/ I=21,H 00480 END/ 00490*ADF,16,3 00500*BSR,16,2 00510*EOF 00520*COSY 00530LODLAX DCK/ I=13,H 00540LODLAX HOL/ 00550SFLAXTRTLA 00560 END/ 00570LAXTRT DCK/ I=22,H 00580 END/ 00590*ADF,16,4 00600*BSR,16,2 00610*EOF 00620*CTO, LA APPLICATION CUDDLY TAPE ON UNIT '0'? 00630*PAUS 00640*CUDDLY 00650LODLDT DCK/ I=13,H 00660LODLDT HOL/ 00670SRLDTLSTLA 00680 END/ 00690LDTLST DCK/ I=6,H 00700 END/ 00710*ADF,16,5 00720*BSR,16,1 00730*EOF 00740*CUDDLY 00750LODLAR DCK/ I=13,H 00760LODLAR HOL/ 00770SRLARPRTLA 00780 END/ 00790LARPRT DCK/ I=6,H 00800 END/ 00810*ADF,16,6   3'] 00820*BSR,16,1 00830*EOF 00840*COSY 00850LODDIS DCK/ I=13,H 00860LODDIS HOL/ 00870DISCQT 00880 END/ 00890DISCQT DCK/ I,H 00900 END/ 00910*ADF,16,7 00920*BSR,16,2 00930*EOF 00940*COSY 00950LODUPI DCK/ I=13,H 00960LODUPI HOL/ 00970UPDATE.ICCS20 00980 END/ 00990UPDATI DCK/ I,H 01000 END/ 01010*ADF,16,8 01020*BSR,16,2 01030*EOF 01040*COSY 01050LODLUP DCK/ I=13,H 01060LODLUP HOL/ 01070LUPDAT.ILA 01080 END/ 01090LUPDTI DCK/ I,H 01100 END/ 01110*ADF,16,9 01120*BSR,16,2 01130*EOF 01140*UNL,6 01150*CTO, DISMOUNT LA APPLICATION CUDDLY TAPE FROM UNIT '0' AND MOUNT 01160*CTO, DATA FILES TAPE ON UNIT '0' 01170*REW,7 01180*COSY 01190LODUPB DCK/ I=13,H 01200LODUPB HOL/ 01210UPDATE.BCCS20 01220 END/ 01230UPDATS DCK/ I,H=7 01240 END/ 01250*ADF,16,10 01260*BSR,16,2 01270*CTO, PROPER RESPONSES TO THE NEXT THREE PROMPTS ARE: 01280*CTO, 1. '13(CR)' 01290*CTO, 2. '(CR)' 48  3'] 01300*CTO, 3. '*Z(CR)' 01310*LIBILD 01320 0133025 01340 0135023 01360 013707 01380*K,P25 01390*EOF 01400*K,P16 01410*REW,25 01420*LIBEDT 01430*T,25,B,16,B,,1 01440*Z 01450*REW,7 01460*COSY 01470LODLUB DCK/ I=13,H 01480LODLUB HOL/ 01490LUPDAT.BLA 01500 END/ 01510LUPDTS DCK/ I,H=7 01520 END/ 01530*ADF,16,11 01540*BSR,16,2 01550*REW,25 01560*CTO, PROPER RESPONSES TO THE NEXT FOUR PROMPTS ARE: 01570*CTO, 1. '13(CR)' 01580*CTO, 2. '(CR)' 01590*CTO, 3. '(CR)' 01600*CTO, 4. '*Z(CR)' 01610*LIBILD 01620 0163016 01640 0165025 0166024 01670 016807 01690*EOF 01700*COSY 01710LODSC1 DCK/ I=13,H 01720LODSC1 HOL/ 01730PRFSC001 01740 END/ 01750PSC01A DCK/ I,H 01760S2MENU DCK/ I,H 01770DCMENU DCK/ I,H   3'] 01780HSMENU DCK/ I,H 01790MTMENU DCK/ I,H 01800RPMENU DCK/ I,H 01810RGMENU DCK/ I,H 01820PDC01 DCK/ I,H 01830PDC02 DCK/ I,H 01840PDC03 DCK/ I,H 01850PDC04 DCK/ I,H 01860PDC05 DCK/ I,H 01870PDC06 DCK/ I,H 01880PDC07 DCK/ I,H 01890PDC08 DCK/ I,H 01900PDC09 DCK/ I,H 01910PDC10 DCK/ I,H 01920PDC11 DCK/ I,H 01930PHS01 DCK/ I,H 01940PHS02 DCK/ I,H 01950PHS03 DCK/ I,H 01960PHS04 DCK/ I,H 01970PMT01 DCK/ I,H 01980PMT02 DCK/ I,H 01990PMT03 DCK/ I,H 02000PMT04 DCK/ I,H 02010PMT05 DCK/ I,H 02020PMT06 DCK/ I,H 02030PMT07 DCK/ I,H 02040PMT08 DCK/ I,H 02050PMT09 DCK/ I,H 02060PMT10 DCK/ I,H 02070PMT11 DCK/ I,H 02080PMT12 DCK/ I,H 02090PMT13 DCK/ I,H 02100PMT14 DCK/ I,H 02110PMT15 DCK/ I,H 02120PMT16 DCK/ I,H 02130PRP01 DCK/ I,H 02140PRP02 DCK/ I,H 02150PRP03 DCK/ I,H 02160PRP04 DCK/ I,H 02170PRP05 DCK/ I,H 02180PRP06A DCK/ I,H 02190PRP07 DCK/ I,H 02200PRP08 DCK/ I,H 02210PRP09 DCK/ I,H 02220PRP10 DCK/ I,H 02230PCTRL DCK/ I,H 02240PRP12 DCK/ I,H 02250PSC01B DCK/ I,H ͂  3'^ 02260 END/ 02270*ADF,16,12 02280*BSR,16,2 02290*EOF 02300*COSY 02310LODSC2 DCK/ I=13,H 02320LODSC2 HOL/ 02330PRFSC002 02340 END/ 02350PSC02A DCK/ I,H 02360S2MENU DCK/ I,H 02370DCMENU DCK/ I,H 02380HSMENU DCK/ I,H 02390MTMENU DCK/ I,H 02400RPMENU DCK/ I,H 02410RGMENU DCK/ I,H 02420PDC01 DCK/ I,H 02430PDC02 DCK/ I,H 02440PDC03 DCK/ I,H 02450PDC04 DCK/ I,H 02460PDC05 DCK/ I,H 02470PDC06 DCK/ I,H 02480PDC07 DCK/ I,H 02490PDC08 DCK/ I,H 02500PDC09 DCK/ I,H 02510PDC10 DCK/ I,H 02520PDC11 DCK/ I,H 02530PHS01 DCK/ I,H 02540PHS02 DCK/ I,H 02550PHS03 DCK/ I,H 02560PHS04 DCK/ I,H 02570PMT01 DCK/ I,H 02580PMT02 DCK/ I,H 02590PMT03 DCK/ I,H 02600PMT04 DCK/ I,H 02610PMT05 DCK/ I,H 02620PMT06 DCK/ I,H 02630PMT07 DCK/ I,H 02640PMT08 DCK/ I,H 02650PMT09 DCK/ I,H 02660PMT10 DCK/ I,H 02670PMT11 DCK/ I,H 02680PMT12 DCK/ I,H 02690PMT13 DCK/ I,H 02700PMT14 DCK/ I,H 02710PMT15 DCK/ I,H 02720PMT16 DCK/ I,H 02730PRP01 DCK/ I,H C;  3'^ 02740PRP02 DCK/ I,H 02750PRP03 DCK/ I,H 02760PRP04 DCK/ I,H 02770PRP05 DCK/ I,H 02780PRP06B DCK/ I,H 02790PRP07 DCK/ I,H 02800PRP08 DCK/ I,H 02810PRP09 DCK/ I,H 02820PRP10 DCK/ I,H 02830PCTRL DCK/ I,H 02840PRP12 DCK/ I,H 02850PSC02B DCK/ I,H 02860 END/ 02870*ADF,16,13 02880*BSR,16,2 02890*EOF 02900*COSY 02910LODSC3 DCK/ I=13,H 02920LODSC3 HOL/ 02930PRFSC003 02940 END/ 02950PSC03A DCK/ I,H 02960S2MENU DCK/ I,H 02970DCMENU DCK/ I,H 02980HSMENU DCK/ I,H 02990MTMENU DCK/ I,H 03000RPMENU DCK/ I,H 03010RGMENU DCK/ I,H 03020PDC01 DCK/ I,H 03030PDC02 DCK/ I,H 03040PDC03 DCK/ I,H 03050PDC04 DCK/ I,H 03060PDC05 DCK/ I,H 03070PDC06 DCK/ I,H 03080PDC07 DCK/ I,H 03090PDC08 DCK/ I,H 03100PDC09 DCK/ I,H 03110PDC10 DCK/ I,H 03120PDC11 DCK/ I,H 03130PHS01 DCK/ I,H 03140PHS02 DCK/ I,H 03150PHS03 DCK/ I,H 03160PHS04 DCK/ I,H 03170PMT01 DCK/ I,H 03180PMT02 DCK/ I,H 03190PMT03 DCK/ I,H 03200PMT04 DCK/ I,H 03210PMT05 DCK/ I,H D  3']AL]P CCS20 A / 'LADLYASN', 8*$2020, 0, 1, 0 /_^1_$DATA NUMREC / 23 /, ST / 0 /, EFG / 0 /, LTHACT / '0360' /_^1_$DATA QUE, PRI / 54*$2020 /_^1._]_^1C****_#SET UP THE DELQMST STA*JOB,FILTAP,---------CREATE FILE INITIALIZATION AND LOAD TAPE 00010*CTO,...FILE: FILTAP.J 00020*CTO, THIS JOB WILL CREATE THE FILE INITIALIZATION AND LOAD TAPE 00030*CTO, MOUNT OUTPUT TAPE ON UNIT '1' 00040*CTO, MOUNT CCS APPLICATION RPG CUDDLY TAPE ON UNIT '0' 00050*PAUS 00060*OPEN,FN=CCSPAM.C,OW=CCS20,R,LU=20 00070*OPEN,FN=CCSAP.C,OW=CCS20,R,LU=21 00080*OPEN,FN=LAAP.C,OW=CCS20,R,LU=22 00090*OPEN,FN=CCSAPF.B,OW=CCS20,R,LU=23 00100*OPEN,FN=LAAPF.B,OW=CCS20,R,LU=24 00110*OPEN,FN=MASTER.B,OW=CCS20,W,LU=25 00120*CSY,I20,P16 00130*K,P16 00140*COSY 00150PSC00 DCK/ I,H 00160LODDAC DCK/ I=13,H 00170LODDAC HOL/ 00180SFDACRTECCS20 00190 END/ 00200DACRTE DCK/ I=21,H 00210R9BASE DCK/ I=21,H 00220R9FLDL DCK/ I=21,H 00230 END/ 00240*ADF,16,1 00250*BSR,16,2 00260*EOF 00270*CUDDLY 00280LODDTL DCK/ I=13,H 00290LODDTL HOL/ 00300SRDTLLSTCCS20 00310 END/ 00320DTLLST DCK/ I=6,H 00330 END/ 00340*UNL,6 00350*CTO, DISMOUNT CCS APPLICATION CUDDLY FROM TAPE UNIT '0' AND 00360*CTO, MOUNT LA APPLICATION CUDDLY TAPE ON UNIT '0' 00370*ADF,16,2 00380*BSR,16,1 00390*EOF 00400*COSY 00410LODLDA DCK/ I=13,H 00420LODLDA HOL/ 00430SFLDACRTLA 00440 END/ 00450LDACRT DCK/ I=22,H Xa  3'] 00460R9BASE DCK/ I=21,H 00470R9FLDL DCK/ I=21,H 00480 END/ 00490*ADF,16,3 00500*BSR,16,2 00510*EOF 00520*COSY 00530LODLAX DCK/ I=13,H 00540LODLAX HOL/ 00550SFLAXTRTLA 00560 END/ 00570LAXTRT DCK/ I=22,H 00580 END/ 00590*ADF,16,4 00600*BSR,16,2 00610*EOF 00620*CTO, LA APPLICATION CUDDLY TAPE ON UNIT '0'? 00630*PAUS 00640*CUDDLY 00650LODLDT DCK/ I=13,H 00660LODLDT HOL/ 00670SRLDTLSTLA 00680 END/ 00690LDTLST DCK/ I=6,H 00700 END/ 00710*ADF,16,5 00720*BSR,16,1 00730*EOF 00740*CUDDLY 00750LODLAR DCK/ I=13,H 00760LODLAR HOL/ 00770SRLARPRTLA 00780 END/ 00790LARPRT DCK/ I=6,H 00800 END/ 00810*ADF,16,6 00820*BSR,16,1 00830*EOF 00840*COSY 00850LODDIS DCK/ I=13,H 00860LODDIS HOL/ 00870DISCQT 00880 END/ 00890DISCQT DCK/ I,H 00900 END/ 00910*ADF,16,7 00920*BSR,16,2 00930*EOF  3'] 00940*COSY 00950LODUPI DCK/ I=13,H 00960LODUPI HOL/ 00970UPDATE.ICCS20 00980 END/ 00990UPDATI DCK/ I,H 01000 END/ 01010*ADF,16,8 01020*BSR,16,2 01030*EOF 01040*COSY 01050LODLUP DCK/ I=13,H 01060LODLUP HOL/ 01070LUPDAT.ILA 01080 END/ 01090LUPDTI DCK/ I,H 01100 END/ 01110*ADF,16,9 01120*BSR,16,2 01130*EOF 01140*UNL,6 01150*CTO, DISMOUNT LA APPLICATION CUDDLY TAPE FROM UNIT '0' AND MOUNT 01160*CTO, DATA FILES TAPE ON UNIT '0' 01170*REW,7 01180*COSY 01190LODUPB DCK/ I=13,H 01200LODUPB HOL/ 01210UPDATE.BCCS20 01220 END/ 01230UPDATS DCK/ I,H=7 01240 END/ 01250*ADF,16,10 01260*BSR,16,2 01270*CTO, PROPER RESPONSES TO THE NEXT THREE PROMPTS ARE: 01280*CTO, 1. '13(CR)' 01290*CTO, 2. '(CR)' 01300*CTO, 3. '*Z(CR)' 01310*LIBILD 01320 0133025 01340 0135023 01360 013707 01380*K,P25 01390*EOF 01400*K,P16 01410*REW,25 x  3' ] 01420*LIBEDT 01430*T,25,B,16,B,,1 01440*Z 01450*REW,7 01460*COSY 01470LODLUB DCK/ I=13,H 01480LODLUB HOL/ 01490LUPDAT.BLA 01500 END/ 01510LUPDTS DCK/ I,H=7 01520 END/ 01530*ADF,16,11 01540*BSR,16,2 01550*REW,25 01560*CTO, PROPER RESPONSES TO THE NEXT FOUR PROMPTS ARE: 01570*CTO, 1. '13(CR)' 01580*CTO, 2. '(CR)' 01590*CTO, 3. '(CR)' 01600*CTO, 4. '*Z(CR)' 01610*LIBILD 01620 0163016 01640 0165025 0166024 01670 016807 01690*EOF 01700*COSY 01710LODSC1 DCK/ I=13,H 01720LODSC1 HOL/ 01730PRFSC001 01740 END/ 01750PSC01A DCK/ I,H 01760S2MENU DCK/ I,H 01770DCMENU DCK/ I,H 01780HSMENU DCK/ I,H 01790MTMENU DCK/ I,H 01800RPMENU DCK/ I,H 01810RGMENU DCK/ I,H 01820PDC01 DCK/ I,H 01830PDC02 DCK/ I,H 01840PDC03 DCK/ I,H 01850PDC04 DCK/ I,H 01860PDC05 DCK/ I,H 01870PDC06 DCK/ I,H 01880PDC07 DCK/ I,H 01890PDC08 DCK/ I,H J  3' ] 01900PDC09 DCK/ I,H 01910PDC10 DCK/ I,H 01920PDC11 DCK/ I,H 01930PHS01 DCK/ I,H 01940PHS02 DCK/ I,H 01950PHS03 DCK/ I,H 01960PHS04 DCK/ I,H 01970PMT01 DCK/ I,H 01980PMT02 DCK/ I,H 01990PMT03 DCK/ I,H 02000PMT04 DCK/ I,H 02010PMT05 DCK/ I,H 02020PMT06 DCK/ I,H 02030PMT07 DCK/ I,H 02040PMT08 DCK/ I,H 02050PMT09 DCK/ I,H 02060PMT10 DCK/ I,H 02070PMT11 DCK/ I,H 02080PMT12 DCK/ I,H 02090PMT13 DCK/ I,H 02100PMT14 DCK/ I,H 02110PMT15 DCK/ I,H 02120PMT16 DCK/ I,H 02130PRP01 DCK/ I,H 02140PRP02 DCK/ I,H 02150PRP03 DCK/ I,H 02160PRP04 DCK/ I,H 02170PRP05 DCK/ I,H 02180PRP06A DCK/ I,H 02190PRP07 DCK/ I,H 02200PRP08 DCK/ I,H 02210PRP09 DCK/ I,H 02220PRP10 DCK/ I,H 02230PCTRL DCK/ I,H 02240PRP12 DCK/ I,H 02250PSC01B DCK/ I,H 02260 END/ 02270*ADF,16,12 02280*BSR,16,2 02290*EOF 02300*COSY 02310LODSC2 DCK/ I=13,H 02320LODSC2 HOL/ 02330PRFSC002 02340 END/ 02350PSC02A DCK/ I,H 02360S2MENU DCK/ I,H 02370DCMENU DCK/ I,H 4  3' ^ 02380HSMENU DCK/ I,H 02390MTMENU DCK/ I,H 02400RPMENU DCK/ I,H 02410RGMENU DCK/ I,H 02420PDC01 DCK/ I,H 02430PDC02 DCK/ I,H 02440PDC03 DCK/ I,H 02450PDC04 DCK/ I,H 02460PDC05 DCK/ I,H 02470PDC06 DCK/ I,H 02480PDC07 DCK/ I,H 02490PDC08 DCK/ I,H 02500PDC09 DCK/ I,H 02510PDC10 DCK/ I,H 02520PDC11 DCK/ I,H 02530PHS01 DCK/ I,H 02540PHS02 DCK/ I,H 02550PHS03 DCK/ I,H 02560PHS04 DCK/ I,H 02570PMT01 DCK/ I,H 02580PMT02 DCK/ I,H 02590PMT03 DCK/ I,H 02600PMT04 DCK/ I,H 02610PMT05 DCK/ I,H 02620PMT06 DCK/ I,H 02630PMT07 DCK/ I,H 02640PMT08 DCK/ I,H 02650PMT09 DCK/ I,H 02660PMT10 DCK/ I,H 02670PMT11 DCK/ I,H 02680PMT12 DCK/ I,H 02690PMT13 DCK/ I,H 02700PMT14 DCK/ I,H 02710PMT15 DCK/ I,H 02720PMT16 DCK/ I,H 02730PRP01 DCK/ I,H 02740PRP02 DCK/ I,H 02750PRP03 DCK/ I,H 02760PRP04 DCK/ I,H 02770PRP05 DCK/ I,H 02780PRP06B DCK/ I,H 02790PRP07 DCK/ I,H 02800PRP08 DCK/ I,H 02810PRP09 DCK/ I,H 02820PRP10 DCK/ I,H 02830PCTRL DCK/ I,H 02840PRP12 DCK/ I,H 02850PSC02B DCK/ I,H   3' ^ 02860 END/ 02870*ADF,16,13 02880*BSR,16,2 02890*EOF 02900*COSY 02910LODSC3 DCK/ I=13,H 02920LODSC3 HOL/ 02930PRFSC003 02940 END/ 02950PSC03A DCK/ I,H 02960S2MENU DCK/ I,H 02970DCMENU DCK/ I,H 02980HSMENU DCK/ I,H 02990MTMENU DCK/ I,H 03000RPMENU DCK/ I,H 03010RGMENU DCK/ I,H 03020PDC01 DCK/ I,H 03030PDC02 DCK/ I,H 03040PDC03 DCK/ I,H 03050PDC04 DCK/ I,H 03060PDC05 DCK/ I,H 03070PDC06 DCK/ I,H 03080PDC07 DCK/ I,H 03090PDC08 DCK/ I,H 03100PDC09 DCK/ I,H 03110PDC10 DCK/ I,H 03120PDC11 DCK/ I,H 03130PHS01 DCK/ I,H 03140PHS02 DCK/ I,H 03150PHS03 DCK/ I,H 03160PHS04 DCK/ I,H 03170PMT01 DCK/ I,H 03180PMT02 DCK/ I,H 03190PMT03 DCK/ I,H 03200PMT04 DCK/ I,H 03210PMT05 DCK/ I,H 03220PMT06 DCK/ I,H 03230PMT07 DCK/ I,H 03240PMT08 DCK/ I,H 03250PMT09 DCK/ I,H 03260PMT10 DCK/ I,H 03270PMT11 DCK/ I,H 03280PMT12 DCK/ I,H 03290PMT13 DCK/ I,H 03300PMT14 DCK/ I,H 03310PMT15 DCK/ I,H 03320PMT16 DCK/ I,H 03330PRP01 DCK/ I,H J  3' ^- 03340PRP02 DCK/ I,H 03350PRP03 DCK/ I,H 03360PRP04 DCK/ I,H 03370PRP05 DCK/ I,H 03380PRP06C DCK/ I,H 03390PRP07 DCK/ I,H 03400PRP08 DCK/ I,H 03410PRP09 DCK/ I,H 03420PRP10 DCK/ I,H 03430PCTRL DCK/ I,H 03440PRP12 DCK/ I,H 03450PSC03B DCK/ I,H 03460 END/ 03470*ADF,16,14 03480*BSR,16,2 03490*EOF 03500*COSY 03510LODSC4 DCK/ I=13,H 03520LODSC4 HOL/ 03530PRFSC004 03540 END/ 03550PSC04A DCK/ I,H 03560S2MENU DCK/ I,H 03570DCMENU DCK/ I,H 03580HSMENU DCK/ I,H 03590MTMENU DCK/ I,H 03600RPMENU DCK/ I,H 03610RGMENU DCK/ I,H 03620PDC01 DCK/ I,H 03630PDC02 DCK/ I,H 03640PDC03 DCK/ I,H 03650PDC04 DCK/ I,H 03660PDC05 DCK/ I,H 03670PDC06 DCK/ I,H 03680PDC07 DCK/ I,H 03690PDC08 DCK/ I,H 03700PDC09 DCK/ I,H 03710PDC10 DCK/ I,H 03720PDC11 DCK/ I,H 03730PHS01 DCK/ I,H 03740PHS02 DCK/ I,H 03750PHS03 DCK/ I,H 03760PHS04 DCK/ I,H 03770PMT01 DCK/ I,H 03780PMT02 DCK/ I,H 03790PMT03 DCK/ I,H 03800PMT04 DCK/ I,H 03810PMT05 DCK/ I,H (L  3'^A 03820PMT06 DCK/ I,H 03830PMT07 DCK/ I,H 03840PMT08 DCK/ I,H 03850PMT09 DCK/ I,H 03860PMT10 DCK/ I,H 03870PMT11 DCK/ I,H 03880PMT12 DCK/ I,H 03890PMT13 DCK/ I,H 03900PMT14 DCK/ I,H 03910PMT15 DCK/ I,H 03920PMT16 DCK/ I,H 03930PRP01 DCK/ I,H 03940PRP02 DCK/ I,H 03950PRP03 DCK/ I,H 03960PRP04 DCK/ I,H 03970PRP05 DCK/ I,H 03980PRP06D DCK/ I,H 03990PRP07 DCK/ I,H 04000PRP08 DCK/ I,H 04010PRP09 DCK/ I,H 04020PRP10 DCK/ I,H 04030PCTRL DCK/ I,H 04040PRP12 DCK/ I,H 04050PSC04B DCK/ I,H 04060 END/ 04070*ADF,16,15 04080*BSR,16,2 04090*EOF 04100*COSY 04110LODSC5 DCK/ I=13,H 04120LODSC5 HOL/ 04130PRFSC005 04140 END/ 04150PSC05A DCK/ I,H 04160S1MENU DCK/ I,H 04170DCMENU DCK/ I,H 04180HSMENU DCK/ I,H 04190MTMENU DCK/ I,H 04200RPMENU DCK/ I,H 04210RGMENU DCK/ I,H 04220PDC01 DCK/ I,H 04230PDC02 DCK/ I,H 04240PDC03 DCK/ I,H 04250PDC04 DCK/ I,H 04260PDC05 DCK/ I,H 04270PDC06 DCK/ I,H 04280PDC07 DCK/ I,H 04290PDC08 DCK/ I,H ?  3'^U 04300PDC09 DCK/ I,H 04310PDC10 DCK/ I,H 04320PDC11 DCK/ I,H 04330PHS01 DCK/ I,H 04340PHS02 DCK/ I,H 04350PHS03 DCK/ I,H 04360PHS04 DCK/ I,H 04370PMT01 DCK/ I,H 04380PMT02 DCK/ I,H 04390PMT03 DCK/ I,H 04400PMT04 DCK/ I,H 04410PMT05 DCK/ I,H 04420PMT06 DCK/ I,H 04430PMT07 DCK/ I,H 04440PMT08 DCK/ I,H 04450PMT09 DCK/ I,H 04460PMT10 DCK/ I,H 04470PMT11 DCK/ I,H 04480PMT12 DCK/ I,H 04490PMT13 DCK/ I,H 04500PMT14 DCK/ I,H 04510PMT15 DCK/ I,H 04520PMT16 DCK/ I,H 04530PRP01 DCK/ I,H 04540PRP02 DCK/ I,H 04550PRP03 DCK/ I,H 04560PRP04 DCK/ I,H 04570PRP05 DCK/ I,H 04580PRP06A DCK/ I,H 04590PRP07 DCK/ I,H 04600PRP08 DCK/ I,H 04610PRP09 DCK/ I,H 04620PRP10 DCK/ I,H 04630PCTRL DCK/ I,H 04640PRP12 DCK/ I,H 04650PSC05B DCK/ I,H 04660LDMENU DCK/ I,H 04670LHMENU DCK/ I,H 04680LMMENU DCK/ I,H 04690LOMENU DCK/ I,H 04700LRMENU DCK/ I,H 04710PLD01 DCK/ I,H 04720PLD02 DCK/ I,H 04730PLD03 DCK/ I,H 04740PLD04 DCK/ I,H 04750PLD05 DCK/ I,H 04760PLD06 DCK/ I,H 04770PLD07 DCK/ I,H >??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.LZ\\\@@P>8@PEZ@P(G@PG @@PHN@PN1@ <@@@@PQ8@P^Z\\\@@P^8@PeZ`@Pk@Phl Q  3'%` @Pl1A\\\@@@@\\\@Pm8PR9LSTRUR9FTNXVR9LABLUR9OTBGXR9EOTTYR9DOTTR9TOTTgR9PAGER9FTOVR9BINTR9ZCODR9YCODR9XCOD@PzA @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PR9EDCNR9ECODR9FSTLR9FNBG|R9ALSQR9CARAR9MARAMHLD01R9UDAT}R9UMTHR9UDAYR9UYERR9FDTB@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ .@Pb  ;""#####'#@#^#b#f#j#n#r'#'#'#PR9RPRTMHLD01!PR9RPGX*T PCOLCHG D02 R CCS CCS 3.0 SL-149PR9BASER9FBSER9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS PR9MZERR9MONER9MNINR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9INVPR9SNHLR9FRCD@PkK[\`@Nal@@ @P+|@Z{[llP]}M]\Nkk``Kaazzm^L~~@PVnnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghh@Piijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.L@P@P@P@P@P@P@P)@P@P@@@@ B..B$Ā@P$  3''`5@P//N$@P$@P//N/$@P$@P //N? cq /   !!! ! PR9BINPR9TRALR9LAHDR9CMOVR9MMOVR9NSQRR9CMSTR9MMSTR9MHLDR9INMKR9CLBGR9DETLR9TOTLB@P4( (   T@PJ X$@PGN@PN @(E}@@@@PS8@PaM@Pa8@Pgx@Pg8@Pk}}@PFo@Po T@Ps X$@Pp{-4  3'(`I@P{ /@(;@@P8@PDD@Po@P T@P X$@P@P ?@((@P@P  T@P X  $@P@Pրz@P8 @P@@**@P@P  T@P X  $@P@P@  3')`]@P8@P<@`@P8@PO@@P8@Pr@@P8@Pr@P@P@P@P@ H 2<@P8@P<Հ@P8@P >@P8 PR9LSTRCR9FTNXDR9LABLCR9OTBGER9DOTTFR9TOTTR9EOTTR9PAGER9FTOVR9BINTR9ZCODR9YCODR9XCOD@P@ _@  p@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@j  3'*`q@PZ@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PR9EDCNR9ECODR9FSTLR9FNBG R9ALSQR9CARA R9MARAMHLD01R9UDATLR9UMTHNR9UDAYOR9UYERPR9FDTB@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ i '        @P    ' ,PR9RPRTMHLD01!PR9RPGX*T PCOLSTS D03 R CCS CCS 3.0 SL-149PR9BASER9FBSER9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS PR9MZERR9MONER9MNINR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9INVPR9SNHLR9FRCD@PkK[\`@Nal@@ @P+|@Z{[llP]}M]\Nkk``Kaazzm^L~~@PVnnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghh@Piijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.LD "?@P@P@P@P@P@P@ A6 $Ā@P$@P  !$ĀA[  3',`@P$@P  "$Ā@P$@P  # r$À@P$@P r zZr rrr$@P$@P r zZr rrrrr$r%@PA$r&rr rq &[q[zq[q(&@Plq qH&q H&qH&=>?A$%'@P P'($'( h$( h$(  h$' P'PR9BINPR9TRALR9LAHDR9CMOVR9MMOVR9NSQRR9CMSTR9MMSTR9MHLDR9INMKR9CLBGR9DETLR9TOTL@P…($'( h$( h$(  h$r( r@P (#r#)r#@@@@P@P*r#)r#@P @P*rrFrFrFr+r2&r2$r2@P<'r2r((+r( +2r(2r($r('r  H'@PgP$r  X$r(  x'r#6r6 H$r6 H$ro '(  3'-`@Pr(r,P&r- P&r.P&r/ r#H&r(/h&@Pr/P&r(0P&rGrGrGr'r(&r@@@@@P@P `&)r) &)r)rHrHrHr()rr@@@@P@P *rrq$%qo($q%$C$4@P36@P6 H HH  d@P@P@F@PF@!(H@PJ8@POH@PQ8@PVHӀ@PX8@P^H@P?`@P` d@P@Pag@Pg@"(M@@  3'.`@Pj8@PwS@Pw8@P|{@P|8@P1@P`@P d@P@P@P@#(E@z@@P8@PMM@P@P d@P@P@PIՀ@P8@PI@P8@PIP  3'/`@P@P d@P@P@P@@@P8@P @ /@! ?@' O@- _@3 o@9 @? @E @K @Q @@PW /@] ?@c O@i _@o o@u@*`@P @P @P ['\\\`@@P8@P[6@@ـ@P8@P&6@P(@P(`@P,@P).@P.)\\\@@@@P/8F  3'0`@P= :@`@@@ـ@P>8@PI :@`@@@@PK8@PV:@PX@PX t@P@PY`@P`@-D,   / ! ? ' O - _ 3 o 9  ?  E  K @P Q  W / ] ? c O i _ o o u/@PX@P@@P@P@P@P8@P   / ! ? ' O - _ 3 o 9  ?  E  K  Q  @PW / ] ? c O i _ o o u0@P(@P`@P@P  3'1`@P @P L\\\@@@@\\\@P 8PR9LSTR)R9FTNX*R9LABL)R9OTBG1R9DOTT2R9EOTT?R9TOTTR9PAGER9FTOVR9BINTR9ZCODR9YCODR9XCOD@P LN@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@t@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P :@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P e@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P <@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P g@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P >@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P i@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@i  3'2a@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P k@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@((@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P m@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@d @P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ,4@Po@P@P@Pz  3'3a%@P@PF@Pq@P@P@P@P@PH@Ps@P@P@P@P@PJ@Pu@P@P@P@P!@PL  3'4a9@Pw@P@P@P@P#@PN@Py@P@P@P@P%@PP@P{@P@P@P@P'@PR@P}@P  3'5aM@P@P@P)@PT@P@P@P@P@P+@PV@P@P@P@P@P-@PX@P@P@P@Pr  3'6aa@P/@PZ@P@P@P@P@P1@P\ ,L@P@P@P@P@P3@P^@P@P@P@P @P5@P`  3'7au@P@P@P@P @P7@Pb@P@P@P@P@P9@Pd@P@P@P@P@P;@Pf@P@P  3'8a@P@P @P =@P h@P @P @P @P!@P!?@P!j@P!@P!@P!@P"@P"A@P"l@P"@P"@P"@P#  3'9a@P#C@P#n@P#@P#@P#@P$@P$E@P$p@P$@P$@P$@P%@P%G@P%r@P%@P%@P%@P&@P&IL@P&tM1,NM  3':a@P&@P&@P&@P' @P'KV5@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P'v@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P("@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P(M@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P(x@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P(@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P(@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P(@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P)$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P)O@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P)z@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  3';a@P)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P*&@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P*Q@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P*|@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@(XH@@@@@P+(@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P+S@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P+~@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@d X@P,*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P,U@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P,@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P,@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P,@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@ @@@@@@@@@@@PR9EDCNR9ECODR9FSTLR9FNBG R9ALSQR9CARA R9MARAMHLD01R9UDAT,jR9UMTH,lR9UDAY,mR9UYER,nR9FDTB- @P-@@@@@@@@@ 8g0 V |  , 4 4LΠMM<N VL XT=I  3'<a@P-, XԀX؀XڀX܀X'YY&YFYUYVYWY[Y]Y`YcYf'Y'Y'YހYY@P-WYYYYYYZZZ ZZPR9RPRTMHLD01!PR9RPGX*T PDALIST D04 R CCS CCS 3.0 SL-149PR9BASER9FBSER9ONESR9COMAR9PERDR9DOLRR9ZEROR9STARR9MINS R9CHRC R9CHAR R9BLNK R9PLUS PR9MZERR9MONER9MNINR9SLSHR9NINER9CHRAR9CHRIR9CHRJR9AMPRR9BLBLR9INVPR9SNHLR9FRCD@PkK[\`@Nal@@ @P+|@Z{[llP]}M]\Nkk``Kaazzm^L~~@PVnnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghh@Piijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""@P@P׿{#AABBCCDDEEFFGGHHII})J$K.Lb@PbhPR9XLATR9PFCBR9DSEQYSETLMR9RCADR9TBIOR9INTAR9TBOTR9ITLPR9INIGR9IPBGR9FDC1R9BINP@Ph@@@ /@!M@"k@#D$@%@&D'@(@)D*@+`2$D,jD-vD.@P@ V/010 /10Հ@P@P 188Ӏ@P@P 144@@@@P@P 15521:@P@P `266@P@P `27777? 2:(2:31 3V?/ /@P6V//$@P$@P  4$Ā@P$@P  5$Ā@P($  3'?b@P+  65$@P5$@P8//5/7NNVO/N /N8 @Pc  89 4:535;5 P;$@P5$3P;&<? <  < (9(7@P 4(:43 :c! !!c! =@P@P>@P@P? ?>@P@P >  H=H=@A@BACA BH= BH= CH= CH=O@P =(= !c!c(<_ < < zz/8 zPR9TRALR9LAHDR9CMOVR9MMOVR9NSQRR9CMSTR9MMSTR9MHLDR9INMKR9CLBGR9DETLR9TOTLfR9LSTRg@PD ;DP;DH;DH; ;&(;&< HD@PoH#GLd@Py}@P}1 \\\\\@P~8@P9%@@c  3'@b)@P8@P+@P8@P@811@Px@P @P@P1@4) J@@@P8@P P@P8@P @8VK@@@P8@PTՀ@P8@Px@P8@PՈE}}@P@PJ  3'Ab=@P@P1@5)D@րz@P8@PMM@P@P@P@P1@6))@P@P4@P@P1@)A@@P8 @P-Uva@Ā@P8@P.@P@P4@P@P1@?@l  3'BbQ@P8@P#aap,Rr@@P*8 @P2aap*@P;@P;4@P<@@P@1@ G@@P@K@PC8@PN ``p$TU`@PW8@PZ@%Ynɀ@P\8@Pb@+@P;f@Pf4@Pgk@Pk1@!?K@@Pn8@Pu@&ffR  3'C[HAL+[HPCCS20 8 INPUT/OUTPUT LOGICAL UNIT_^1_%ADC 0_,09 INPUT/OUTPUT MESSAGE LENGTH_^1_%ADC 0_,10 INPUT/OUTPUT MESSAGE BUFFER ADDRESS_^1_%ADC 0_,11 INPUT/OUTPUT MASS MEMORY *JOB 00010*CTO,... CCS 3.0 PRODUCT TEST 00020*CTO,... EDTLP INSTALL FOR CYCLE 2 00030*K,I6 00040*LIBEDT 00050*K,I6 00060*L,EDTLP 00070*B 'EDTLP' 00080*K,P8 00090*P,F,,EDTLP1 00100*B 'PHANT' 00110*B 'SAVRLD' 00120*B 'ADDECT' 00130*B 'CHEKSM' 00140*B 'DBLMTH' 00150*B 'DBLDIV' 00160*B 'FDWMTH' 00170*B 'GETWRD' 00180*B 'SDSABL' 00190*B 'FCBERR' 00200*B 'RLDDSK' 00210*B 'RLREAD' 00220*B 'SAVDSK' 00230*B 'SAVDSP' 00240*B 'SAVHNK' 00250*B 'SAVTAP' 00260*B 'SFWRIT' 00270*B 'SVREAD' 00280*B 'SVWRIT' 00290*B 'CCSBLK' 00300*B 'CCSCST' 00310*B 'CCSHXA' 00320*B 'CCSMVA' 00330*B 'CCSTIM' 00340*B 'FORTN' 00350*B 'PARABN' 00360*B 'PSSTOP' 00370*B 'Q8PAND' 00380*B 'Q8PRMS' 00390*B 'FMENTP' 00400*T 00410*K,I8 00420*N,EDTLPF,,,B 00430*Z 00440*CTO, END EDTLP INSTALL 00450*Z y  3'D[\ 00460*END 00470_  3'E[p DC 0_,13 INPUT/OUTPUT USER CONTROL POINT_^1_%ADC 0_,14 INPUTALq[sP CCS20 C TMB015_'15 TERMINAL MESSAGE BUFFER ADDRESS_^1_%SPC 4_^1*_*I / O_!T A B L E_!U N I T_!16_^1_%SPC 2_^1_%ADC 0_,00 ASSOCIATED USER TABLE ADDRESS_^1_%ADC 0,0,0,0MON01 CSY/ 000201 OPT LPC_]_^__ AVMBIT CSY/ A01 00201_%NAM AVMBIT_'A01 A CCS CCS 3.0_5SL-149_^1*_]_^1*_$CYBERCREDIT SYSTEM VERSION 3_^1*_$DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA_^1*_$COPYRIGHT CONTROL DATA CORPORATION, 1979_^1*_]_^1*_]_^1*_$CONSTRUCT BIT MASKS._^1*_]_^1*_$ROUTINE TO REVIEW EACH CODE IN 'VRES' AND IF THE CODE IS IN 'RES'_^1*_$SET THE CORRESPONDING BIT IN EITHER 'BIT1' OR 'BIT2'. IF A CODE_^1*_$IN 'VRES' IS NOT FOUND IN 'RES', THE CODE IS FLAGGED FOR REPORTIN_^1*_$AS AN ERROR BY 'AVMCON'. 'BIT1' IS BIT MASK FOR RESULT CODES 1-16_^1*_$AND 'BIT2' IS FOR RESULTS 17-32 ._^1*_]_^1*_$CALLING SEQUENCE:_^1*_$CALL AVMBIT(RES,VRES,BIT1,BIT2)_^1*_$WHERE:_^1*_$RES_!- LIST OF ALL VALID RESULT CODES._^1*_$VRES - LIST OF RESULT CODES BIT MASKS ARE TO BE CONSTRUCTED FOR._^1*_$BIT1 - RETURNED BIT MASK FOR RESULT CODES 1 - 16._^1*_$BIT2 - RETURNED BIT MASK FOR RESULT CODES 17 - 32._^1*_]_^1_%SPC 2_^1_%ENT AVMBIT_^1_%SPC 2_^1*_$COMMUNICATIONS REGION USED._^1_%EQU LPMASK($2)_^1_%EQU NZERO($12)_^1_%EQU ZERO($22)_^1_%EQU ONEBIT($23)_^1_%SPC 2_^1_%EXT AVMCKV_'CHECKS FOR PARTICULAR ELEMENT IN AN ARRAY._^1_%EJT_]_^1AVMBIT 0_"0_^1_%LDQ* AVMBIT_'PICK UP ADDRESS OF CALLER._^1_%INQ 4_,INCREMENT RETURN VALUE TO NEXT EXECUTABLE_^1_%STQ* AVMBIT_'INSTRUCTION._^1_%RTJ* PARGET_'PICK UP PARAMETER ADDRESSES._^1_%LDA* RES_*PICK UP ADDRESS OF RES FOR SUBROUTINE CALL._^1_%STA* CON150_'STORE INTO PARAMETER LIST OF CALL._^1_%ENA 0_^1_%XFA 1_,ZERO BIT MASKS R1 AND R2._^1_%XFA 2_^1CON050 XFA I_,I IS POINTER INTO VRES._^1_%LDA* (VRES),I_$PICK UP NEXT CODE FROM VRES._^1_%SAN CON055_'SKIP IF CODE IS NON-ZERO._^1_%JMP* CON300_'CODE WAS ZERO FROM DUPLICATE ENTRY. BYPASS._^1CON055 STA* POS_*SAVE IN LOCAL VARIABLE._^1_%EOR* ASTRKS_'CHECK FOR TERMINATION - END OF CODES IN VRES._^1_%SAN CON100_'SKIP IF NOT THE END._^1CON060 SR1* (BIT1)_'CONSTRUCTION COMPLETE. SAVE BIT MASKS R1 AND R_^1_%SR2* (BIT2)_'IN BIT1 AND BIT2._^1_%JMP* CON500_'EXIT  3'F[RETURN._^1CON100 RTJ AVMCKV_'CHECK IF VRES(I) IS IN RES._^1CON150 NUM 0_,ADDRESS OF RES._^1_%ADC POS_*ADDRESS OF VRES(I)._^1_%LDA* POS_*CHECK FOR VRES(I) NOT IN RES._^1_%SAP CON160_'SKIP IF VRES(I) IN RES._^1_%LDA* (VRES),I_$ILLEGAL CODE IN VRES, FLAG IT AS AN ERROR._^1_%TCA A_^1_%STA* (VRES),I_$SET TO ITS COMPLEMENT AS THE FLAG._^1_%JMP* CON300_'CONTINUE PROCESSING IGNORING THIS CODE._^1CON160 XFA Q_,SAVE RETURNED INDEX IN Q._^1_%AND- ONEBIT+4_$CHECK WHICH REGISTER TO SET BIT IN._^1_%ANQ- LPMASK+4_$INDEX ONLY BY FIRST FOUR BITS._^1_%TCQ Q_,COMPLEMENT TO GET INDEX FROM END OF MASK TABLE_^1_%SAN CON200_'SKIP IF BIT TO BE SET IS IN R2._^1_%AR1- ONEBIT+15,Q_!RESULT CODE WAS IN FIRST 16, SET APPROPRIATE B_^1_%S1N CON300-*-1_"SKIP IF ADDITION DID NOT YIELD ZERO._^1_%LR1- NZERO_(SET TO $FFFF IF ADDITION CAUSED MASK TO GO TO_^1_%JMP* CON300_^1CON200 AR2- ONEBIT+15,Q_!RESULT CODE WAS IN 2ND 16, SET APPROPRAITE BIT_^1_%S2N CON300-*-1_"SKIP IF ADDITION DID NOT YIELD ZERO._^1_%LR2- NZERO_(SET TO $FFFF IF ADDITION CAUSED MASK TO GO TO_^1CON300 XFI A_,BUMP POINTER TO GET NEXT CODE FROM VRES._^1_%INA -31_*CHECK IF MAXIMUM NUMBER OF CODES PROCESSED._^1_%SAM CON350_'SKIP IF MAXIMUM NUMBER NOT PROCESSED._^1_%JMP* CON060_'ALL CODES DONE, SAVE BIT MASKS AND EXIT._^1CON350 INA 32_+RESTORE POINTER TO GET NEXT CODE._^1_%JMP* CON050_'GO GET NEXT CODE._^1_%EJT_]_^1*_$VARIABLES AND CONSTANTS USED._^1*_]_^1RES_"NUM 0_,ABSOLUTE ADDRESS OF RESULT CODE ARRAY._^1VRES_!NUM 0_,ABSOLUTE ADDRESS OF VALID RESULT CODES ARRAY._^1BIT1_!NUM 0_,ABSOLUTE ADDRESS OF BIT MASK FOR RESULTS 1 - 1_^1BIT2_!NUM 0_,ABSOLUTE ADDRESS OF BIT MASK FOR RESULTS 17 -_^1ASTRKS NUM $2A2A_(LITERAL ASTERISKS._^1POS_"NUM 0_,LOCAL VARIABLE USED FOR SUBROUTINE CALL._^1_%EJT_]_^1*_$ROUTINE TO PICK UP PARAMETER ADDRESSES FROM CALLER._^1*_]_^1PARGET 0_"0_^1_%LDQ* AVMBIT_'CONTAINS THE STARTING ADDRESS + 4 OF PARAMETER_^1_%INQ -1_+LIST. MOVE TO END OF LIST._^1_%ENA 3_^1_%XFA I_,I IS INDEX INTO PARAMETER STORAGE._^1PAR100 LDA- (ZERO),Q_$PICK UP ABSOLUTE ADDRESS OF NEXT PARAMETER._^1_%STA* RES,I_(STORE INTO PARAMETER STORAGE._^1_%INQ -1_+DECREMENT TO GET NEXT PARAMETER ADDRESS._^1_%DIP *-PAR100_$SKIP IF ALL PARAMETERS PICKED UP._^1_%JMP* (PARGET)_$RETURN._^1_%EJT_]_^1CON500 JMP* (AVMBIT)_$EXIT RETURN._^1_%END_]_^__ CCSADD CSY/ A02 00101_%NAM CCSADD_'A02 A CCS CCS 3.0_5SL-149_^1*_]_^1*_$CYBERCREDIT SYSTEM VERSION 3_^1*_$DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA_^1*_$COPYRIGHT CONTROL DATA CORPORATION, 1979_^1*_]_^1*_$ADD STRING 1 TO STRING 2 AND PLACE THE SUM IN STRING 3_^1*_]_^1*_$ROUTINE TO ADD 2 STRINGS OF ASCII CHARACTERS AND PLACE THE SUM_^1*_$(IN ASCII FORMAT) INTO STRING 3_^1*_]_^1*_$CALLING SEQUENCE:_^1*_)CALL CCSADD(STR1,POS1,STR2,POS2,STR3,POS3)_^1*_]_^1*_)WHERE THE PARAMETERS HAVE THE FOLLOWING DEFINITION:_^1*_,STR1 = ARRAY STRING 1 IS FROM - 9 CHARACTERS_^1*_,POS1 = STARTING CHARACTER POSITION IN ARRAY FOR STRING 1_^1*_,STR2 = ARRAY STRING 2 IS FROM - 12 CHARACTERS_^1*_,POS2 = STARTING CHARACTER POSITION IN ARRAY FOR STRING 2_^1*_,STR3 = ARRAY STRING 3 IS FROM - ?  3'G[12 CHARACTERS_^1*_,POS3 = STARTING CHARACTER POSITION IN ARRAY FOR STRING 3_^1*_]_^1*_$THE ARITHMETIC OPERATION PROCEEDS FROM RIGHT TO LEFT._^1*_]_^1*_$THE LENGTHS OF THE ARRAYS ARE 9, 12, 12 RESPECTIVELY._^1*_]_^1*_$ANY OVERFLOW WILL BE TRUNCATED ON THE LEFT._^1*_]_^1*_$THE ARRAYS MUST CONTAIN VALID ASCII CHARACTERS._^1*_]_^1*_$THE THREE STRING NEED NOT BE UNIQUE, THAT IS A NUMBER MAY BE_^1*_$ADDED TO ITSELF-EXAMPLE:_^1*_*CALL CCSADD(ARR1,4,ARR2,2,ARR2,2)_^1*_]_^1*_$ADDITION OF NEGATIVE NUMBERS IS ALLOWED WITH THE FOLLOWING_^1*_$PROVISION- THE LAST DIGIT OF EACH ARRAY MUST REFLECT ITS SIGN_^1*_$AS FOLLOWS:_^1*_)NUMBER_#ASCII POS._#ASCII NEG._#WILL PRINT(IF NEG)_^1*_,0_,30_,7D_)]_^1*_,1_,31_,4A_)J_^1*_,2_,32_,4B_)K_^1*_,3_,33_,4C_)L_^1*_,4_,34_,4D_)M_^1*_,5_,35_,4E_)N_^1*_,6_,36_,4F_)O_^1*_,7_,37_,50_)P_^1*_,8_,38_,51_)Q_^1*_,9_,39_,52_)R_^1*_$NOTE: IF THESE ARRAYS ARE TO BE PRINTED, THE LAST DIGIT WILL_^1*_+HAVE TO BE CHANGED TO ITS ASSOCIATED ASCII VALUE (IF NEG.)._^1*_+IF THEY ARE TO BE USED IN SUBSEQUENT ADDS, THE DIGIT WILL_^1*_+HAVE TO RESTORED TO ITS ORIGINAL VALUE._^1*_]_^1DPK_"MAC_]_^1_%VFD N4/0,N4/$F,N3/0,N5/$E_^1_%EMC_]_^1DAD_"MAC_]_^1_%VFD N4/0,N4/$F,N3/0,N5/8_^1_%EMC_]_^1DUN_"MAC_]_^1_%VFD N4/0,N4/$F,N3/0,N5/$F_^1_%EMC_]_^1MOV_"MAC_]_^1_%VFD N4/0,N4/$F,N3/0,N5/1_^1_%EMC_]_^1_%ENT CCSADD_^1_%EQU ZERO($22)_^1CCSADD 0_"0_^1*_$SAVE REGISTERS_^1_%STQ SAVEQ_^1_%LDA- I_^1_%STA SAVEI_^1_%SPC 2_^1_%LDQ* CCSADD_'PICK UP ADDRESS OF CALLING PROGRAM_^1_%INQ 6_,MOVE TO NEXT EXECUTABLE INSTRUCTION_^1_%STQ* CCSADD_'SAVE RETURN ADDRESS_^1_%RTJ PARGET_'PICK UP ADDRESS OF PARAMETERS_^1_%SPC 2_^1*****************CONVERT ARRAY 1 FROM ASCII TO PACKED DECIMAL_^1_%SPC 1_^1_%SPC 1_^1_%LDA =XWK1_(LOAD A WITH ADDRESS OF WORK AREA TO RECEIVE_^1*_8CONVERTED ASCII (TO PACKED DECIMAL)_^1_%XFA 2_,PUT IN REGISTER 2_^1_%LDQ* (POS1)_'STARTING POSITION IN FIRST ARRAY_^1_%INQ -1_+DECREMENT TO GET BYTE INDEX_^1_%ENA 0_,ZERO A FOR LONG LEFT SHIFT_^1_%LLS 15_+RESULT OF SHIFT - Q=BYTE OFFSET A=WORD OFFSET_^1_%ADD* ARR1_)ADD ADDRESS TO ARRAY 1 TO GET ACTUAL ADDRESS_^1_%XFA 1_,TRANSFER TO REGISTER 1_^1_%XFQ I_,SAVE BIT SHOWING BYTE OR WORD OFFSET_^1*_]_^1_%LDQ* (POS1)_'LOAD Q WITH POSITION IN ARRAY OF FIRST_^1_%INQ 7_,CHAR-OFFSET TO LAST CHAR_^1SAVE1 LCA* (ARR1),Q_$SAVE THAT LAST BYTE TO BE RELOADED_^1_%STA SCHAR_(AFTER CALL TO PACK ROUTINE_^1_%STQ SOFST_(SAVE OFFSET TO BE USED IN RELOAD OF CHAR_^1_%SPC 1_^1_%INA -$39_)CHECK FOR CREDIT NUMBER_^1_%SAZ ISPOS1_'SKIP CONVERSION ROUTINES IF RESULT OF INA-$39_^1_%SAM ISPOS1_'IS ZERO OR NEGATIVE-IT IS A POSITIVE ASCII #_^1_%SPC 1_^1*_8IS CREDIT-CONVERT TO CORRECT ASCII DIGIT_^1_%INA $39_*RESTORE REGISTER A TO ORIGINAL CONTENTS_^1_%INA -$7D_)CHECK FOR NEGATIVE ZERO_^1_%SAZ ISZR1_(SKIP IF ZERO_^1_%INA $7D_*RESTORE REGISTER A_^1_%INA -$19_)CHANGE NEGATIVE TO VALID ASCII CHARACTER_^1*_8FOR EXAMPLE -2 =$4B SO $4B - $19 = $32_^1_%JMP* ISNEG1_^1*_]_^1ISZR1 INA $30_*SET A TO ZERO_^1*_]_^1ISNEG1 SCA* (ARR1),Q_$CORRECT LAST BYTE OF ARRAY TO ASCII_^1_%LDA- I_^1_%EOR =N$6849_%SET APPROPRIATE BITS FOR CALL_^1*_8BITS - 15_!14-11_"10-5_#4-0_^1*_?B_"SIGN_## OF_## 0F_^1*_DDIGIT_"DEC-_#DIGITS_^1*_DD=NEG_"PLACES_^1*_]_^1*_;B= 0-WORD BOUNDARY_^1*_;B= 1-BYTE BOUNDARY_^1*_8B WAS SET IN EARLIER INSTRUCITONS_^1_%JMP* PACK1_^1*_]_^1ISPOS1 LDA- I_+RESTORE BYTE OR WORD OFFSET_^1_%EOR =N$0049_%FROM REG I AND SET APPROPRIATE BITS FOR CALL_^1*_TSEE ABOVE_^1PACK1 DPK_/PERFORM THE PACK_^1_%LDA* SCHAR_(RESTORE SAVED LAST CHARACTER_^1_%LDQ* SOFST_^1RESTA SCA* (ARR1),Q_$PUT SAVED CHARACTER INTO ARRAY_^1_%SPC 2_^1**************************CONVERT ARRAY 2 TO PACKED DECIMAL_^1_%SPC 1_^1*_8LOAD A WITH ADDRESS OF WORK AREA TO RECEIVE_^1_%LDA =XWK2_(CONVERTED ASCII (TO PACKED DECIMAL)_^1_%XFA 2_,PUT IN REGISTER 2_^1_%SPC 1_^1_%LDQ* (POS2)_'STARTING =i  3'H[POSITION IN SECOND ARRAY_^1_%INQ -1_+DECREMENT TO GET BYTE INDEX_^1_%ENA 0_,ZERO A FOR LONG LEFT SHIFT_^1_%LLS 15_+RESULT OF SHIFT - Q=BYTE OFFSET A=WORD OFFSET_^1_%ADD* ARR2_)ADD ADDRESS TO ARRAY 2 TO GET ACTUAL ADDRESS_^1_%XFA 1_,TRANSFER TO REGISTER 1_^1_%XFQ I_,SAVE BIT SHOWING BYTE OR WORD OFFSET_^1*_]_^1_%SPC 1_^1_%LDQ* (POS2)_'LOAD Q WITH POSITION IN ARRAY OF FIRST_^1_%INQ 10_+CHAR-INCREASE WITH OFFSET TO LAST CHAR_^1*_]_^1SAVE2 LCA* (ARR2),Q_$SAVE CHARACTER TO BE RELOADED AFTER CALL_^1_%STA* SCHAR_'TO PACK_^1_%SPC 1_^1_%STQ* SOFST_(SAVE OFFSET TO BE USED IN RELOAD OF CHAR_^1_%INA -$39_)CHECK FOR NEGATIVE NUMBER_^1_%SAZ ISPOS2_'SKIP CONVERSION ROUTINES IF RESULT OF INA-$39_^1_%SAM ISPOS2_'IS ZERO OR NEGATIVE-IS A POSITIVE #_^1_%SPC 1_^1*_8IS CREDIT-CONVERT TO CORRECT ASCII DIGIT_^1_%INA $39_*RESTORE REGISTER A TO ORIGINAL CONTENTS_^1_%INA -$7D_)CHECK FOR NEGATIVE ZERO_^1_%SAZ ISZR2_(SKIP IF ZERO_^1_%INA $7D_*RESTORE REGISTER A_^1_%INA -$19_)CHANGE TO VALID ASCII CHARACTER FOR EXAMPLE_^1*_@-2 = $4A SO $4A - $19 = $32_^1_%JMP* ISNEG2_'GO SET REST OF REGISTER A FOR NEGATIVE NO._^1ISZR2 INA $30_*RESET A TO ZERO_^1*_]_^1ISNEG2 SCA* (ARR2),Q_%CORRECT LAST BYTE OF WORK AREA_^1_%LDA- I_-RESTORE BYTE OR WORD OFFSET_^1_%EOR =N$684C_'SET APPROPRIATE BITS FOR CALL_^1*_9BITS - 15_"14-11_#10-5_#4-0_^1*_@B_#SIGN_$# OF_## OF_^1*_FDIGIT_#DEC._#DIGITS_^1*_FD=NEG_#PLACES_^1*_]_^1*_0_#ZERO_## OF_$# OF_^1*_MDEC._$DIGITS_^1*_MPLACES_^1_%XFA Q_^1_%DUN_/PERFORM THE UNPACK_^1*_8THE ANSWER MUST BE MOVED TO OUTPUT ARRAY_^1_%LDA =XWK4_(SINCE THE OUTPUT ARRAY WILL NOT ALWAYS_^1_%XFA 1_,BE ON BYTE BOUNDARY_^1_%LDQ* (POS3)_'LOAD Q WITH INDEX INTO OUTPUT ARRAY_^1_%INQ -1_+DECREMENT TO GET BYTE OFFSET_^1_%ENA 0_,ZERO A FOR LONG LEFT SHIFT_^1_%LLS 15_+RESULT OF SHIFT - Q=BYTE INDEX A=WORD INDEX_^1_%ADD* ARR3_)ADD INDEX TO SET TO BEGINNING BYTE OF OUTPUT_^1_%XFA 2_,TRANSFER THAT ADDRESS TO 2_^1_%ERQ =N$000C_%INCREASE Q WITH LENGTH OF DESTINATION ARRAY_^1_%ENA 0_^1_%EOR =N$000C_%INCREASE A WITH LENGTH OF SOURCE ARRAY_^1_%MOV_/PERFORM THE MOVE_^1*_$RESTORE REGISTERS_^1_%LDA* SAVEI_^1_%STA- I_^1_%LDQ* SAVEQ_^1_%SPC 1_^1_%JMP (CCSADD)_$RETURN_^1_%EJT_]_^1*_$VARIABLES USED_^1*_]_^1ARR1_!NUM 0_,ADDRESS OF FIRST ARRAY_^1POS1_!NUM 0_,ADDRESS OF FIRST POSITION_^1ARR2_!NUM 0_,ADDRESS OF SECOND ARRAY_^1POS2_!NUM 0_,ADDRESS OF SECOND POSITION_^1ARR3_!NUM 0_,ADDRESS OF THIRD ARRAY_^1POS3_!NUM 0_,ADDRESS OF THIRD POSITION_^1SCHAR NUM 0_^1SOFST NUM 0_^1_%BZS WK1(11),WK2(11),WK3(11),WK4(6)_'WORK ARRAYS_^1SAVEQ NUM 0_^1SAVEI NUM 0_^1_%SPC 4_^1_%SPC 4_^1*_$ROUTINE TO PICK UP PARAMETER ADDRESSES_^1*_]_^1PARGET 0_"0_^1_%LDQ CCSADD_'PICK UP LOCATION OF CALLER + 6_^1_%INQ -1_+MOVE TO END OF PARAMETER LIST_^1_%ENA 5_,SET UP INDEX INTO PARAMETER STo 4'ISOURCE l6'J