ASMB,A,B,L HED *** MX/XE PAPER TAPE BINARY ABSOLUTE LOADER ** ORG 7700B * ************************************************* * * * REV 14 DEC 75 * * PART NUMBER 12992-80010 * * PRODUCT NUMBER 12992K * * * * 2008.02.20 - WD,CT -> WDCT - Tim Riker * * * ************************************************* * SC EQU 10B READER INTERFACE SELECT CODE A EQU 0 B EQU 1 * START CLC 0,C TURN EVERYTHING OFF CLA,RSS CONT LDA M.11 FEED FRAME COUNTER CLB,CCE SET E TO READ BYTE JSB READ GET # OF CHAR CMB,CCE,INB,SZB 2'S COMP JMP *+5 NON ZERO BYTE INA,SZA FEED FRAME COUNTER JMP *-5 HLT 77B END OF TAPE JMP START STB WDCT WORDS IN RECORD JSB READ GET FEED FRAME JSB READ GET ADDRESS STB A INITIATE CHECKSUM STB ADDR CHECK LDB ADDR ADB MAXAD CHECK ADDR BELOW LOADER SEZ E OK JMP HLT55 ADDR>=LOADER JSB READ GET NEXT WORD ADA B CONTINUE CHECKSUM STB ADDR,I PUT IN MEMORY ISZ ADDR BUMP ADDR POINTER CLE CLEAR E TO READ WORD ISZ WDCT BUMP WORD COUNT, EOR? JMP CHECK NO, GET NEXT WORD JSB READ YES, GET CHECKSUM CPB A SAME AS CALCULATED? JMP CONT YES, DO NEXT RECORD HLT 11B NO, CHECKSUM ERROR, JMP START A=ACTUAL, B=EXPECTED HLT55 HLT 55B ADDRESS>=LOADER JMP START * READ NOP E=0 READ WORD, E=1 READ BYTE CLB,CME E REG BYTE POINTER STC SC,C START TIME READER SFS SC BYTE READY? JMP *-1 NO MIB SC YES, GET IN B SEZ,RSS ANOTHER BYTE TO READ? JMP READ,I NO, RETURN BLF,CLE,BLF YES,SWAP BYTES JMP *-7 GET SECOND BYTE * WDCT NOP WORD COUNT ADDR NOP M.11 DEC -11 FEED FRAME CONSTANT NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP MAXAD ABS -START END