Previous File Previous Page Single Page Next Page Next File

* 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
Previous File Previous Page Single Page Next Page Next File