DAP-16M2

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

1351 02022 0 04 00440 CNV9 STA W2 CLEAR LOW ORDER CODE BITS 1352 02023 -0 10 00577 CNV8 JST* OBTD PLACE WORD IN OBJECT TEXT 1353 02024 000001 OCT 1 1354 02025 0 12 00405 IRS CLOC INCREMENT THE LOCATION COUNTER 1355 02026 -0 01 01765 JMP* DWRD RETURN TO CALLER 1356 * 1357 * FORMAT SHIFT CLASS INSTRUCTION 1358 * 1359 02027 0 02 00423 SHOP LDA SUM FETCH SHIFT COUNT 1360 02030 140407 TCA COMPLEMENI SHIFT COUNT 1361 02031 0 03 00634 ANA C77 MASK TO SIX BITS 1362 02032 0 06 00437 ADD WORD ADD TO SHIFT OPCODE 1363 02033 0 04 00437 STA WORD SAVE COMPLETE SHIFT INSTRUCTION 1364 02034 0404 76 LGR 2 FORMAT FOR PRINTING OP-CODE PART 1365 02035 -0 10 00600 JST* OPTD PLACE OPCODE IN LISTING 1366 02036 002021 VFD 8,4,8,17 FOUR DIGITS STARTING IN COLUMN 18 1367 02037 0 02 00437 LDA WORD FETCH THE INSTRUCTION 1368 02040 0415 66 ALS 10 SET UP TO PRINT SHIFT COUNT 1369 02041 -0 10 00600 JST* OPTD PLACE SHIFT COUNT IN LISTING 1370 02042 001026 VFD 8,2,8,22 TWO DIGITS STARTING IN COLUMN 23 1371 02043 0 01 02021 JMP GOP PLACE INSTRUCTION IN OBJECT TEXT 1372 * 1373 * FORMAT I/O CLASS INSTRUCTION 1374 * 1375 02044 0 02 00423 IOOP LDA SUM FETCH I/O FUNCTION CODE 1376 02045 0 06 00437 ADD WORD MERGE WITH OPCODE 1377 02046 0 04 00437 STA WORD SAVE COMPLETE INSTRUCTION 1378 02047 -0 10 00600 JST* OPTD PRINT OPCODE 1379 02050 001021 VFD 8,2,8,17 TWO DIGITS STARTING IN COLUMN 18 1380 02051 0 02 00437 LDA WORD RETRIEVE THE INSTRUCTION 1381 02052 0415 74 ALS 4 POSITION FUNCTION CODE FOR PRINTING 1382 02053 -0 10 00600 JST* OPTD PRINT THE FUNCTION CODE 1383 02054 002024 VFD 8,4,8,20 FOUR DIGITS STARTING IN COLUMN 21 1384 02055 0 01 02021 JMP GOP PLACE INSTRUCTION IN OBJECT TEXT 1385 * 1386 * FORMAT MEMORY REFERENCE CLASS INSTRUCTION 1387 * 1388 02056 0 02 00437 MROP LDA WORD FETCH OPCODE WITH INDIRECT FLAG 1389 02057 101400 SMI SKIP IF INDIRECT REFERENCE 1390 02060 0 01 02064 JMP *+4 NOT INDIRECT 1391 02061 0 02 00642 LDA C255 LOAD ASCII MINUS SIGN 1392 02062 -0 10 00574 JST* CSRD INSERT IT IN LISTING 1393 02063 000020 DEC 16 COLUMN 17 1394 02064 140040 CRA CLEAR LOW ORDER BITS 1395 02065 0 04 00440 STA W2 OF OUTPUT WORD 1396 02066 0 02 00432 LDA DACF FETCH THE DAC FLAG 1397 02067 101040 SNZ SKIP IF SET 1398 02070 0 01 02112 JMP MR1 NO - NOT A DAC 1399 02071 0 02 00420 LDA E FETCH FORWARD REFERENCE FLAG 1400 02072 100040 SZE SKIP IF KNOWN REFERENCE