; RETRIEVES DATA FROM SQUASH.CNT FOR BOOKKEEPING TITLE GET INTERN GET D1=1 GET: HALT INIT D1,10 SIXBIT/DSK/ EXP RD HALT LOOKUP D1,[SIXBIT/SQUASH/ SIXBIT/CNT/ Z Z] HALT INPUT D1, HRRZ 1,RD+1 MOVE 2,1(1) MOVEM 2,@(16) MOVE 2,2(1) MOVEM 2,@1(16) MOVE 2,3(1) MOVEM 2,@2(16) RELEAS D1, JRA 16,3(16) RD: BLOCK 3 END *U*;