0001 ASMB,A,B,L 0002 HED *** MX/XE PAPER TAPE BINARY ABSOLUTE LOADER ** 0003 07700 ORG 7700B 0004* 0005************************************************* 0006* * 0007* REV 14 DEC 75 * 0008* PART NUMBER 12992-80010 * 0009* PRODUCT NUMBER 12992K * 0010* * 0011* 2008.02.20 - WD,CT -> WDCT - Tim Riker * 0012* * 0013************************************************* 0014* 0015 00010 SC EQU 10B READER INTERFACE SELECT CODE 0016 00000 A EQU 0 0017 00001 B EQU 1 0018* 0019 07700 107700 START CLC 0,C TURN EVERYTHING OFF 0020 07701 002401 CLA,RSS 0021 07702 063756 CONT LDA M.11 FEED FRAME COUNTER 0022 07703 006700 CLB,CCE SET E TO READ BYTE 0023 07704 017742 JSB READ GET # OF CHAR 0024 07705 007306 CMB,CCE,INB,SZB 2'S COMP 0025 07706 027713 JMP *+5 NON ZERO BYTE 0026 07707 002006 INA,SZA FEED FRAME COUNTER 0027 07710 027703 JMP *-5 0028 07711 102077 HLT 77B END OF TAPE 0029 07712 027700 JMP START 0030 07713 077754 STB WDCT WORDS IN RECORD 0031 07714 017742 JSB READ GET FEED FRAME 0032 07715 017742 JSB READ GET ADDRESS 0033 07716 074000 STB A INITIATE CHECKSUM 0034 07717 077755 STB ADDR 0035 07720 067755 CHECK LDB ADDR 0036 07721 047777 ADB MAXAD CHECK ADDR BELOW LOADER 0037 07722 002040 SEZ E OK 0038 07723 027740 JMP HLT55 ADDR>=LOADER 0039 07724 017742 JSB READ GET NEXT WORD 0040 07725 040001 ADA B CONTINUE CHECKSUM 0041 07726 177755 STB ADDR,I PUT IN MEMORY 0042 07727 037755 ISZ ADDR BUMP ADDR POINTER 0043 07730 000040 CLE CLEAR E TO READ WORD 0044 07731 037754 ISZ WDCT BUMP WORD COUNT, EOR? 0045 07732 027720 JMP CHECK NO, GET NEXT WORD 0046 07733 017742 JSB READ YES, GET CHECKSUM 0047 07734 054000 CPB A SAME AS CALCULATED? 0048 07735 027702 JMP CONT YES, DO NEXT RECORD 0049 07736 102011 HLT 11B NO, CHECKSUM ERROR, 0050 07737 027700 JMP START A=ACTUAL, B=EXPECTED 0051 07740 102055 HLT55 HLT 55B ADDRESS>=LOADER 0052 07741 027700 JMP START 0053* 0054 07742 000000 READ NOP E=0 READ WORD, E=1 READ BYTE 0055 07743 006600 CLB,CME E REG BYTE POINTER 0056 07744 103710 STC SC,C START TIME READER 0057 07745 102310 SFS SC BYTE READY? 0058 07746 027745 JMP *-1 NO 0059 07747 106410 MIB SC YES, GET IN B 0060 07750 002041 SEZ,RSS ANOTHER BYTE TO READ? 0061 07751 127742 JMP READ,I NO, RETURN 0062 07752 005767 BLF,CLE,BLF YES,SWAP BYTES 0063 07753 027744 JMP *-7 GET SECOND BYTE 0064* 0065 07754 000000 WDCT NOP WORD COUNT 0066 07755 000000 ADDR NOP 0067 07756 177765 M.11 DEC -11 FEED FRAME CONSTANT 0068 07757 000000 NOP 0069 07760 000000 NOP 0070 07761 000000 NOP 0071 07762 000000 NOP 0072 07763 000000 NOP 0073 07764 000000 NOP 0074 07765 000000 NOP 0075 07766 000000 NOP 0076 07767 000000 NOP 0077 07770 000000 NOP 0078 07771 000000 NOP 0079 07772 000000 NOP 0080 07773 000000 NOP 0081 07774 000000 NOP 0082 07775 000000 NOP 0083 07776 000000 NOP 0084 07777 170100 MAXAD ABS -START 0085 END A 000000 01/0016 -- 01/0033 01/0047 ADDR 007755 01/0066 -- 01/0034 01/0035 01/0041 01/0042 B 000001 01/0017 -- 01/0040 CHECK 007720 01/0035 -- 01/0045 CONT 007702 01/0021 -- 01/0048 HLT55 007740 01/0051 -- 01/0038 M.11 007756 01/0067 -- 01/0021 MAXAD 007777 01/0084 -- 01/0036 READ 007742 01/0054 -- 01/0023 01/0031 01/0032 01/0039 01/0046 01/0061 SC 000010 01/0015 -- 01/0056 01/0057 01/0059 START 007700 01/0019 -- 01/0029 01/0050 01/0052 01/0084 WDCT 007754 01/0065 -- 01/0030 01/0044 12 symbols 85 lines assembled, 64 words generated 0 errors, 0 warnings