15 22FL ...#SEG LOADERDB86 [M. DRUKKER 18 22J9 ...# ######################################################## 4 22LS ...# 16 22PC ...# (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982 4 22S2 ...# 18 22WK ...# ######################################################### 12 22_= #LIS K0LOADERMT>K0LOADER>K0ALLGEO 4 23DW # 13 23YG # THIS SEGMENT CONTAINS TWO BUFFERS 10 24D6 ...# USED IN LOADERDA86. 4 24XQ # 17 257J ...#GAP 120 [CONTINUE MEND AREA 5 25CB JLSCA 6 25X2 #GAP 129 5 26BL JLSCAFAC 6 26W= #GAP 129 4 27*W # 4 27BN ...# 13 27BP ...# SUBROUTINE CHECKS THAT A DA DEVICE 9 27BQ ...# IS STANDARD UDAS. 9 27BR ...# THERE THREE CHECKS. 8 27BS ...# 1 CHECKSUM OK 13 27BT ...# 2 ENTRY IN FIP CELL FOR SYFLE OK 17 27BW ...# 3 CSN IN SCA+5 IS THE SAME AS SYFLENNNNN IN SCA+22 19 27BX ...# IF ANY OF THESE CHECKS FAIL : UNIT NNN NOT UDAS IS OUTPUT. 14 27BY ...# THIS SUBROUTINE IS CALLED FROM LOADERDA 15 27B_ ...# IT WAS ADDED IN MK866 PREDOMINANTLY FOR CME. 4 27C2 ...# 4 27C5 ...# 6 27CG ...CHECKDISC 10 27CX ... STO 0 OCHECKD(2) 9 27D7 ... SMO OSCA(2) 8 27DC ... LDX 0 1 8 27DP ... BZE 0 SN61 9 27F6 ... LDX 1 OSCA(2) 8 27FH ... SUM 0 128 8 27FY ... BNZ 0 SN63 9 27G8 ...SN61 SMO OSCA(2) 8 27GD ... LDX 0 21 9 27GQ ... TXU 0 OXSYF(2) 8 27H7 ... BCS SN63 8 27HJ ... LDN 0 0 8 27H_ ... LDN 6 6 8 27JB ... LDCT 1 #400 9 27JL ... SMO OSCA(2) 8 27JW ... ORN 1 22 8 27K8 ...SN62 LDCH 5 0(1) 9 27KK ... TXL 5 OCT8(2) 8 27L2 ... BCC SN63 8 27LC ... SLL 0 3 8 27LS ... ADX 0 5 8 27M9 ... BCHX 1 / 8 27ML ... BCT 6 SN62 9 27MW ... SMO OSCA(2) 8 27N6 ... LDX 6 5 8 27ND ... SLL 6 6 8 27NT ... SRL 6 6 8 27P= ... TXU 0 6 8 27PM ... BCS SN63 10 27PT ... LDX 0 OCHECKD(2) 8 27Q4 ... EXIT 0 1 9 27QF ...SN63 LDN 1 OXEM2(2) 10 27QW ... STO 3 OXDEVICE(2) 9 27R? ... CALL 0 JLGEOG 9 27RN ... CALL 6 JLOUT 10 27S5 ... LDX 3 OXDEVICE(2) 10 27S? ... LDX 0 OCHECKD(2) 8 27SG ... EXIT 0 0 4 28#6 ...# 4 28RQ ...# 18 29?B ...# LOADER/ALLOCATOR COMES HERE ON RECEIPT OF RP COMMAND 12 29R2 ...# ONE PARAMETER: 'ON' OR 'OFF'. 15 2==L ...# ON-> LIST INOP UNITS AFTER DISC SEARCHES. 4 2=Q= ...# 9 2?9W ...JLRP CALL 0 JLPOINT 7 2?PG ... LDN 2 0 7 2#96 ... MVCH 1 4 8 2#NQ ... LDX 2 G3DOL 9 2*8B ... TXU 0 OFF(2) 8 2*N2 ... BCC RP1 8 2B7L ... TXU 0 ON(2) 8 2BM= ... BCS JLWRC 10 2C6W ... STOZ OSTRGMK(2) 8 2CLG ... BRN JLXOK 8 2D66 ...RP1 LDCT 0 #400 10 2DKQ ... STO 0 OSTRGMK(2) 8 2F5B ... BRN JLXOK 4 2FK2 ...# 4 2G4L ...# 20 2GJ= ...# L/A COMES HERE FOR (UN)DEDICATE COMMANDS. PARAMETER STRI NG OF 20 2H3W ...# GEOG.NOS. REMEMBERED FOR FILLING IN TABLE A(UN)RES IN 15 2HHG ...# TWINSET. NO PARAMS -> CLEAR TABLE. 4 2J36 ...# 7 2JGQ ...JLDC NGNC 0 1 7 2K2B ...JLUN LDN 0 0 7 2KG2 ... SMO 0 19 2K_L ... LDX 6 JLUNDC [PICK UP RELEVANT D-ADDRESS 10 2LF= ... LDN 3 OTABUNDC(2) 10 2LYW ... STO 3 OSMOTAB(2) 9 2MDG ... CALL 0 JLPOINTN 15 2MY6 ... BRN UNDC2 [NO PARAMS 16 2NCQ ...UNDC4 CALL 0 JLGETNUM [GET NEXT GEOGNO 15 2NXB ... BRN JLWRC [SOME ERROR 14 2PC2 ... BRN UNDC2 [NO MORE 16 2PWL ... FINDPERE 3,APGEOG,JLGOTIT(2) [DOES IT EXIST? 15 2QB= ... BNG 3 JLWRC [NO - ERROR 17 2QTW ... JTWIN 3,UNDC3 [YES - IS IS TWINNED? 13 2R*G ... BRN JLWRC [NO 10 2RT6 ...UNDC3 LDX 3 OSMOTAB(2) 16 2S#Q ... STO 6 0(3) [STORE D-ADDRESSS 15 2SSB ... ADN 6 1 [& INCRMENT 10 2T#2 ... LDX 0 JLGOTIT(2) 15 2TRL ... STO 0 1(3) [STORE GEOGNO 7 2W?= ... ADN 3 2 18 2WQW ... STO 3 OSMOTAB(2) [- INCREMENT TABLE PTR 16 2X=G ... BRN UNDC4 [& GO FOR NEXT 10 2XQ6 ...UNDC2 LDX 3 OSMOTAB(2) 16 2Y9Q ... STO 6 0(3) [STORE D-ADDRESS 7 2YPB ... NGN 0 1 15 2_92 ... STO 0 1(3) [ & EOT WD 7 2_NL ... ADN 3 2 16 328= ... SBN 3 OUNDCTAB(2) [LENGTH OF TABLE 9 32MW ... LDX 1 AJLRAT(2) 8 337G ... LDX 0 0(1) 7 33M6 ... ADX 0 3 8 346Q ... SBN 0 51 15 34LB ... BPZ 0 JLWRC [NO MORE ROMM 8 3562 ... LDX 6 0(1) 9 35KL ... ADX 6 AJLRAT(2) 8 365= ... ADN 6 1 10 36JW ... LDN 5 OUNDCTAB(2) 15 374G ... MOVE 5 0(3) [INSERT TABLE 8 37J6 ... ADS 3 0(1) 13 383Q ... BRN JLXOK [FINI 4 38HB ...# 6 3932 ...#GAP 639-0? 4 39GL ...#END 6 ____ ...572447270001