ASMB,R,L HED "KGET" SAME AS IGET BUT THRU SYSTEM MAP IF ONE 5-78 (DLB) NAM KGET,7 PRE-REL 780519 (DLB) RTE-IV ENT KGET SPC 1 A EQU 0 B EQU 1 BPA3 EQU 1744B * PURPOSE: TO ALLOW FTN PROGRAM TO GET DATA FROM SYSTEM AND * BASE PAGE. * CALLED: * IVALU = KGET(IADDRS) * WHERE: * IADDRS = DESIRED ADDRESS OF WORD TO GET THUR SYSTEM MAP. * IVALU = VALUE OF DESIRED WORD. SPC 1 KGET NOP ENTRY LDA BPA3 CHECK IF MAPPING SYSTEM? CPA O2 CHECK IF MAPPED SYSTEM? JMP KGET1 YES, CONTINUE LDA LDAAI NO, MUST BE RTE-II OR DOS STA IOPTN LDA JMPBI GET THE JMP B,I INSTRUCTION STA IOPTN+1 KGET1 LDB KGET,I GET RETURN ADDRESS ISZ KGET BUMP TO PASSED PARAMETER ADDRESS LDA KGET,I GET PARAMETER ADDRESS LDAAI LDA A,I GET PARAMETER VALUE (=ADDRESS) IOPTN XLA A,I OR LDA A,I JMPBI JMP B,I AND EXIT WITH A-REG = ANSWER O2 OCT 2 END