Previous File Previous Page Single Page Next Page Next File

* O100-01-H101 (DPM2UP) DRAWING NO. 41286623-001-02 PAGE 91

3133 * 3134 * CLEO: CLEAR LISTING BUFFER 3135 * 3136 * 3137 * CALLING SEQUENCE: 3138 * JST CLEO 3139 * ......RETURN 3140 * 3141 * 3142 * RESULTS: 3143 * 3144 * THE LISTING BUFFER (OTPB) IS FILLED WITH 3145 * SPACE CHARACTERS ('120240). 3146 * 3147 * 3148 04253 0 000000 CLEO DAC ** CLEAR LISTING BUFFER 3149 04254 0 15 00517 STX MOD SAVE THE INDEX REGISTER 3150 04255 0 35 00712 LDX M60 SET UP TO CLEAR 60 WORDS 3151 04256 0 02 00723 LDA EMES FETCH SPACE CODE ('120240) 3152 04257 1 04 04640 STA OTPB+60,1 CLEAR ONE WORD 3153 04260 0 12 00000 IRS 0 INCREMENT BUFFER POINTER 3154 04261 0 01 04257 JMP *-2 GO BACK TO CLEAR NEXT WORD 3155 04262 0 35 00517 LDX MOD RESTORE THE INDEX REGISTER 3156 04263 -0 01 04253 JMP* CLEO EXIT 3157 * 3158 * 3159 EJCT *************************************************************
Previous File Previous Page Single Page Next Page Next File