PAGE 1 BINLDR SRC ABS 17700 ORG 17700 / / ASSEMBLE WITH IA AND GET LISTING FILE. RUN LISTING FILE THROUGH / BINTRN TO STRIP OFF OCTAL (WITH EDIT REMOVE GLITCHES AND INSERT / LABEL BINLDR). INSERT SOME ZEROS BEFORE 1ST WORD TO KLUDGE 4K / 1ST CHAR GARBLE (BINLDR 0; 001032 ... ). SEGMENT OLD IA: / >S BINLDR,ENDLDR THEN >T DK IAA SRC,IAB,IAC _ DK IA (Y) / THEN >T DK IA SRC _ DK IAA,O,IAC (W) TO PUT TOGETHER WITH NEW / LOADER. FINALLY PATCH INTO SYSTEM: >READR 17600 IA / 17700 001032 LOAD RCF /IOT MUST BE FIRST TO UNLOCK ROM 17701 037701 COUNT JMS . /-WC 17702 063701 CHECK LAC COUNT /CHECKSUM 17703 077775 SAM LCHECK 17704 013710 JMP HEAD 17705 104012 LWC 17777-DLIST+1 /IF 8K (LV), START LINE 17706 001003 DLA 17707 003100 DON 17710 100011 HEAD CAL 17711 023702 DAC CHECK 17712 037746 JMS WORD /LOAD OR TRANSFER ADDRESS 17713 023700 DAC LOAD 17714 002002 ASP 17715 013740 JMP DONE 17716 037746 JMS WORD /WORD COUNT (COMP) 17717 023701 DAC COUNT 17720 037746 JMS WORD /CHECKSUM / 17721 037746 NEXT JMS WORD /DATA 17722 123700 DAC* LOAD 17723 063700 LAC LOAD 17724 003063 SAR 3 17725 047765 AND MASK 17726 053764 IOR SETY 17727 023766 DAC DLIST 17730 163700 LAC* LOAD 17731 033700 ISZ LOAD 17732 033701 ISZ COUNT 17733 013721 JMP NEXT /LOOP TO END OF BLOCK 17734 067702 ADD CHECK 17735 002001 ASZ 17736 013736 JMP . /CHECKSUM ERROR 17737 013710 JMP HEAD /NEXT BLOCK / 17740 001012 DONE DOF 17741 100004 IAC 17742 102001 ASN 17743 000000 HLT 17744 037746 JMS WORD /LAST WORD IS GARBAGE 17745 113700 JMP* LOAD / 17746 000000 WORD ZRO 17747 067702 ADD CHECK 17750 023702 DAC CHECK /ACCUMULATE CHECKSUM PAGE 2 BINLDR SRC 17751 100011 CAL 17752 002040 RSF 17753 013752 JMP .-1 17754 001033 RRC /READ HIGH ORDER HALF 17755 003003 RAL 3 17756 003003 RAL 3 17757 003002 RAL 2 17760 002040 RSF 17761 013760 JMP .-1 17762 001033 RRC /READ LOW ORDER HALF 17763 113746 JMP* WORD / 17764 020000 SETY DLYA 0 17765 001777 MASK OCT 1777 / 17766 020000 DLIST DLYA 0 17767 010000 DLXA 0 17770 004005 DSTS 1 17771 046000 046000 17772 021777 021777 17773 000000 000000 17774 067766 DJMP DLIST 17775 017702 LCHECK ZRO CHECK / 000076 LL=.-LOAD;LL=76-LL 000000 .IFNEG LL .ERROR YOU LOSE, LOADER CAN BE AT MOST 76 WRDS (ROM LIMIT) .ENDC .IFPNZ LL .REPT LL 0 .ENDC / / / /DEL REST 000000 END SIZE=17776 NO ERROR LINES