; ; [ 3 6 0 , 2 1 7 ] K P S . O D L ; ; OVERLAY DESCRIPTION FOR THE KEYPUNCH SIMULATOR (KPS). ; ; 03/12/79 - OVERLAYED CP SEGMENT WITH KPSEXT (OPEN STUFF) ; 11/06/79 - CHANGED TO GET MODULES FROM [360,200]ARAP.OLB ; 01/14/79 - USE NEW BLOCK DISK ROUTINES, REMOVE DBKRD4 & DSKXF ; ; ; .ROOT KPSID-RT1-DISK1-UTIL1-*(OP1,CP1,INX1) ; ; ; R O O T S E G M E N T ; ; ; KPS ROUTINES IN ROOT ; RT1: .FCTR KPSMN-RT2 RT2: .FCTR KPSINS-KPSNEX-KPSGF-KPSFR ; ; DISK ROUTINES IN ROOT ; DISK1: .FCTR [360,200]ARAP/LB:X1DR:X1DE:X1EF:X1LRN:X1EFBY - DISK2 DISK2: .FCTR [360,200]ARAP/LB:DELETE:DBKCF:DBKRD - DISK3 DISK3: .FCTR [360,200]ARAP/LB:FPUICT:MONTRY ; ; UTILITY ROUTINES IN ROOT ; UTIL1: .FCTR [360,200]ARAP/LB:SIVMV:SIVFL:SFCHR:IRNSC - UTIL2 UTIL2: .FCTR [360,200]ARAP/LB:FDBMOD:SMCHR:JCCHR - UTIL3 UTIL3: .FCTR [360,200]ARAP/LB:IBLUF:NSCOPE:UCASE ; ; ; O V E R L A Y S E G M E N T S ; ; ; OPEN OVERLAY ; OP1: .FCTR KPSOP-OP2 OP2: .FCTR [360,200]ARAP/LB:X1LU:DBKOF:NIWIJ:LOCF - OP3 OP3: .FCTR [360,200]ARAP/LB:CSIFP:DBKOF4:FPARS:FPARS1:FPARS2 - OP4 OP4: .FCTR [360,200]ARAP/LB:FFNAM - OP5 OP5: .FCTR [360,200]ARAP/LB:STBLK ; ; COMMAND PROCESSING OVERLAY ; CP1: .FCTR KPSPC -* (CP2, KPSEXT-OP2) CP2: .FCTR KPSPRI-KPSGN-KPSDEL-KPSDS-KPSLOC-KPSCHA ; ; KEYPUNCH SIMULATION INSERT OVERLAY ; INX1: .FCTR KPSINX-KPSCF-KPSIO-KPSRC-KPSSF-KPSUP - INX2 INX2: .FCTR [360,200]ARAP/LB:BPSB8:TEXIT ; .END