Previous Page Single Page Next Page  

* NAME: AB16-CMT5 DOC 70181454000 REV E PAGE 9

0377 00316 1 07 00362 DECS SUB DECN+4,1 SUBTRACT DECIMAL NO. 0378 00317 100400 SPL IF A PLUS CONTINUE SUBTRACTING 0379 00320 0 01 00323 JMP DEAB NEG. 0380 00321 0 12 00355 IRS DECL INC COUNTER 0381 00322 0 01 00316 JMP DECS REPEAT 0382 00323 1 06 00362 DEAB ADD DECN+4,1 ADD BACK DECIMAL NO. 0383 00324 0 04 00667 STA ASVC SAVE A REG . 0384 00325 0 02 00355 LDA DECL SHIFT 0385 00326 0412 74 LLR 4 COUNT 0386 00327 0 04 00355 STA DECL REGISTER 0387 00330 0 02 00667 LDA ASVC RESTORE A REG . 0388 00331 024000 OCT 24000 (IRS 0) BUMP AND TEST COUNTER 0389 00332 0 01 00316 JMP DECS REPEAT TEST ON NEXT BIT 0390 00333 0 02 00355 LDA DECL CONVERT 0391 00334 0412 60 LLR 16 DECIMAL 0392 00335 0414 74 LGL 4 COUNT 0393 00336 0412 74 LLR 4 TO 0394 00337 0 06 00746 ADD ='130260 ASCII 0395 00340 0 04 00343 STA *+3 0396 00341 0 35 00666 LDX PNTW RESTORE X REG. 0397 00342 0 10 00222 JST OPOW OUTPUT 0398 00343 0 000000 DAC ** 0399 00344 0412 74 LLR 4 TO 0400 00345 0414 74 LGL 4 ASR 0401 00346 0412 74 LLR 4 FOUR 0402 00347 0 06 00746 ADD =A00 DECIMAL 0403 00350 0 04 00352 STA *+2 NUMBERS 0404 00351 0 10 00222 JST OPOW OUTPUT LOW ORDER 0405 00352 0 000000 DAC ** NUMBER 0406 00353 0 12 00303 IRS DECC UPDATE RETURN 0407 00354 -0 01 00303 JMP* DECC RETURN TO MAIN PROGRAM 0408 00355 0 000000 DECL DAC ** 0409 00356 001750 DECN DEC 1000 0410 00357 000144 DEC 100 0411 00360 000012 DEC 10 0412 00361 000001 DEC 1 0413 * 0414 * OCTAL TO ASCII FOR OUTPUT 0415 * 0416 00362 0 000000 CBAS DAC ** CONVERT OCTAL TO ASCII 0417 00363 000201 IAB 0418 00364 0 02 00751 LDA =-3 LOOP COUNT 0419 00365 0 04 00667 STA ASVC LOOP CUUNTER 0420 00366 140040 CRA 0421 00367 0410 77 LLL 1 0422 00370 0415 73 CBAR ALS 5 FOR 0423 00371 0412 75 LLR 3 OCTAL 0424 00372 0 06 00746 ADD =A00 CONVERSION 0425 00373 0 04 00375 STA *+2 0426 00374 0 10 00222 JST OPOW
  Previous Page Single Page Next Page