DUMY-X16

* C078-001-6706 (DUMY-X16) 3C NO. 180095000 REV. B PAGE 1

0001 * C078-001-6706 (DUMY-X16) 3C NO. 180095000 REV. B 0002 * 0003 * 0004 * 0005 * COMPUTER: DDP-116, DDP-516 0006 * 0007 * 0008 * PROGRAM CATEGORY: INPUT/OUTPUT 0009 * 0010 * 0011 * PROGRAM TITLE: DUMY-X16 0012 * TO SATISFY THE I/O LIBRARY CALLS ON SYSTEMS WITH LIMITED 0013 * SCOPE THAT DO NOT USE THE FULL COMPLEMENT OF THE DDP-116, 0014 * DDP-516 I/O EOUIPMENT. 0015 * 0016 * 0017 * 0018 * 0019 * 0020 * 0021 * 0022 * 0023 * 0024 * 0025 * APPROVAL DATE 0026 * 0027 * 0028 * PROG---------------------- ------------- 0029 * 0030 * 0031 * SUPR---------------------- ------------- 0032 * 0033 * 0034 * QUAL---------------------- ------------- 0035 * 0036 * 0037 * NO. OF PAGES ------------- 0038 * 0039 * REVISION 0040 * 0041 * REV. B 0042 * REV. A 0043 * 0044 * AUTHOR 0045 * 0046 * HONEYWELL INC., COMPUTER CONTROL DIVISION 0047 * 0048 * 0049 * PURPOSE 0050 *
* C078-001-6706 (DUMY-X16) 3C NO. 180095000 REV. B PAGE 2

0051 * TO SATISFY THE I/O LIBRARY CALLS ON SYSTEMS WITH LIMITED 0052 * SCOPE THAT DO NOT USE THE FULL COMPLEMENT OF THE DDP-116 AND 0053 * DDP-516 I/O EQUIPMENT. 0054 * 0055 * 0056 * RESTRICTIONS 0057 * 0058 * THIS PROGRAM WILL OPERATE ON ANY DDP-116 OR DDP-516. 0059 * 0060 * 0061 * STORAGE 0062 * 0063 * THIS PROGRAM OCCUPIES LESS THAN ONE SECTOR. 0064 * 0065 * 0066 * USE 0067 * 0068 * 1. CALLING SEQUENCE 0069 * 0070 * THE CALLED NAME OF EACH ROUTINE IS THE SAME AS THE NAME 0071 * OF THE I/O ROUTINE IT REPLACES. WHEN A NON-EXISTANT I/O DEVICE 0072 * IS CALLED. AN ERROR MESSAGE IS TYPED ON THE ASR-33/35 AND THE 0073 * COMPUTER HALTS. THE PROGRAM BEING EXECUTED CAN BE RESTARTED 0074 * BY RESELECTING THE CORRECT I/O DEVICES. 0075 * 0076 ************************************************************************ 0077 * TABLE OF ENTRYS FOR DUMMY SUBROUTINE 0078 * 0079 SUBR DUMMY,DUMY 0080 * 0081 * 0082 * ASR BCD PAPER TAPE READ 0083 * 0084 SUBR I$AA,DUMY 0085 * 0086 * ASR BINARY PAPER TAPE PUNCH 0087 * 0088 SUBR O$AB,DUMY 0089 SUBR O$AS,DUMY 0090 * ASR LISTING 0091 * 0092 SUBR O$AH,DUMY 0093 SUBR O$AL,DUMY 0094 * 0095 * LINE PRINTER 0096 * 0097 SUBR O$LA,DUMY 0098 SUBR O$LH,DUMY 0099 SUBR O$LE,DUMY 0100 * ASCII PAPER TAPE READ
* C078-001-6706 (DUMY-X16) 3C NO. 180095000 REV. B PAGE 3

0101 * 0102 SUBR I$PA,DUMY 0103 * 0104 * BINARY PAPER TAPE PUNCH 0105 * 0106 SUBR O$PB,DUMY 0107 SUBR O$PS,DUMY 0108 SUBR O$PLDR,DUMY 0109 * 0110 * PAPER TAPE PUNCH LISTING 0111 * 0112 SUBR O$PL,DUMY 0113 SUBR O$PH,DUMY 0114 * 0115 * ASR LISTING 0116 * 0117 SUBR O$HH,DUMY 0118 SUBR O$LL,DUMY 0119 * 0120 * BCD CARD READ 0121 * 0122 SUBR I$CA,DUMY 0123 * 0124 * BINARY CARD PUNCH 0125 * 0126 SUBR O$CB,DUMY 0127 SUBR O$CS,DUMY ADDED 13.SEP.08 APW 0128 * 0129 * BCD + BINARY MAG TAPE WRITE 0130 * 0131 SUBR O$MA,DUMY 0132 SUBR O$MC,DUMY 0133 SUBR O$ME,DUMY 0134 * 0135 * BCD + BINARY MAG TAPE READ 0136 * 0137 SUBR I$MA,DUMY 0138 * MAG TAPE CONTROL 0139 * 0140 SUBR C$MR,DUMY 0141 SUBR C$FR,DUMY 0142 SUBR C$BR,DUMY 0143 SUBR C$FF,DUMY 0144 SUBR C$BF,DUMY 0145 * 0146 * ASCII TO IBM CONVERSION 0147 * 0148 SUBR C$8TO6,DUMY 0149 * 0150 * IBM TO ASCII CONVERSION
* C078-001-6706 (DUMY-X16) 3C NO. 180095000 REV. B PAGE 4

0151 * 0152 SUBR C$6TO8,DUMY 0153 * 0154 ************************************************************************ 0155 REL 0156 00000 0 000000 DUMY DAC ** DUMMY ENTRY TO PROGRAM 0157 00001 0 10 00030 JST ASR ASR BUSY TEST 0158 00002 0 10 00045 JST CRLF EXECUTE A CARRIAGE RETURN/LINE FEED 0159 00003 0 02 00112 LDA =-16 PUT A -16 IN 0160 00004 0 04 00000 STA 0 THE INDEX REGISTER FOR THE FIRST MESSAGE 0161 00005 0 10 00030 JST ASR ASR BUSY TEST 0162 00006 1 02 00075 MESS LDA MESG+16,1 FIRST MESSAGE 0163 00007 0 10 00035 JST SHFT SHIFT AND OUTPUT TWO CHARACTERS 0164 00010 0 12 00000 IRS 0 INCREMENT AND CHECK XR 0165 00011 0 01 00006 JMP MESS OUTPUT SOME MORE 0166 00012 0 10 00045 JST CRLF WHEN DONE DO A CR/LF 0167 00013 0 02 00111 NOBE LDA =-8 PUT A -8 IN 0168 * STA 0 THE INDEX REGISTER FOR SECOND MESSAGE 0169 * 0170 00014 0 02 00105 LDA NEGN PUT THE NEGATIVE NUMBER IN THE A REGISTER 0171 00015 0 04 00106 STA DLAY PUT IN THE DELAY LOCATION 0172 00016 0 12 00106 IRS DLAY DELAY LOOP 0173 00017 0 01 00016 JMP *-1 FOR THE ASR-33 0174 00020 0 10 00030 JST ASR ASR BUSY TEST 0175 00021 1 02 00105 MES1 LDA MSG+8,1 SECOND MESSAGE 0176 00022 0 10 00035 JST SHFT SHIFT AND OUTPUT TWO CHARACTERS 0177 00023 0 12 00000 IRS 0 INCREMENT AND CHECK XR 0178 00024 0 01 00021 JMP MES1 OUTPUT MORE OF THE MESSAGE UNTIL DONE THEN 0179 00025 0 10 00045 JST CRLF DO A CARRIAGE RETURN/LINE FEED 0180 00026 000000 HLT NORMAL HALT 0181 00027 0 01 00013 JMP NOBE RETURN FOR THE NON-BELIEVERS 0182 00030 0 000000 ASR DAC ** CHECK ASR BUSY ROUTINE 0183 00031 34 0104 SKS '104 IS THE ASR BUSY 0184 00032 0 01 00031 JMP *-1 YES, LOOP UNTIL FREE 0185 00033 14 0104 OCP '104 NO, ENABLE FOR OUTPUT 0186 00034 -0 01 00030 JMP* ASR RETURN TO CALLER 0187 00035 0 000000 SHFT DAC ** SHIFT AND OUTPUT TWO CHARACTER ROUTINE 0188 00036 0400 70 LRL 8 BRING IN FIRST CHARACTER 0189 00037 74 0004 OTA 4 OUTPUT IT 0190 00040 0 01 00037 JMP *-1 WAIT UNTIL DONE OUTPUTTING 0191 00041 0410 70 LLL 8 BRING IN SECOND CHARACTER 0192 00042 74 0004 OTA 4 OUTPUT IT 0193 00043 0 01 00042 JMP *-1 WAIT UNTIL ASR DONE 0194 00044 -0 01 00035 JMP* SHFT RETURN TO CALLER 0195 00045 0 000000 CRLF DAC ** CARRIAGE RETURN AND LINE FEED ROUTINE 0196 00046 0 02 00110 LDA ='212 OCTAL EQUIVALENT OF A CARRIAGE RETURN 0197 00047 74 0004 OTA 4 OUTPUT IT 0198 00050 0 01 00047 JMP *-1 WAIT UNTIL DONE 0199 00051 0 02 00107 LDA ='215 OCTAL EQUIVALENT OF A LINE FEED 0200 00052 74 0004 OTA 4 OUTPUT IT
* C078-001-6706 (DUMY-X16) 3C NO. 180095000 REV. B PAGE 5

0201 00053 0 01 00052 JMP *-1 WAIT UNTIL DONE 0202 00054 -0 01 00045 JMP* CRLF RETURN TO CALLER 0203 00055 147317 MESG BCI 16,NON-EXISTANT I/O DEVICE SELECTED 00056 147255 00057 142730 00060 144723 00061 152301 00062 147324 00063 120311 00064 127717 00065 120304 00066 142726 00067 144703 00070 142640 00071 151705 00072 146305 00073 141724 00074 142704 0204 00075 151305 MSG BCI 8,RESTART PROGRAM 00076 151724 00077 140722 00100 152240 00101 150322 00102 147707 00103 151301 00104 146640 0205 00105 007777 NEGN OCT 7777 THE NEGATIVE NUMBER FOR THE ASR DELAY 0206 00106 DLAY BSS 1 THIS IS THE DELAY LOCATION 0207 00107 000215 END THIS IS IT 00110 000212 00111 177770 00112 177760 ASR 000030 CRLF 000045 DLAY 000106 DUMY 000000 MES1 000021 MESG 000055 MESS 000006 MSG 000075 NEGN 000105 NOBE 000013 SHFT 000035 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71