DAP-16M2

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

1034 * 1035 * STF : CHARACTER PACKING ROUTINE 1036 * 1037 * 1038 * CALLING SEQUENCE: 1039 * JST STF 1040 * ......RETURN 1041 * 1042 * THIS ROUTINE WILL PACK 1-6 CHARACTERS INTO 1043 * SYL-SYL+2 AND IGNORE ADDITIONAL CHARACTERS. 1044 * ONE CHARACTER IS INSERTED EACH TIME THIS 1045 * ROUTINE IS CALLED. 1046 * 1047 * 1048 01445 0 000000 STF DAC ** ENTRY 1049 01446 0 02 00465 LDA SYL3 FETCH THE WORD COUNTER 1050 01447 101040 SNZ IF NON-ZERO, NO OVERFLOW YET 1051 01450 -0 01 01445 JMP* STF OVERFLOW CONDITION EXISTS-EXIT 1052 01451 0 02 00444 LDA TERM FETCH CHARACTER TO BE PACKED 1053 01452 0 07 00635 SUB C240 CONVERT IT TO INTERNAL CODE 1054 01453 0 03 00634 ANA C77 RETAIN SIX BITS OF SIGNIFICANCE 1055 01454 0400 72 LRL 6 PLACE NEW CHARACTER IN B REGISTER 1056 01455 -0 02 00505 LDA* SYLP FETCH CURRENT PACKING WORD 1057 01456 0410 72 LLL 6 SHIFT NEW CHARACTER INTO IT 1058 01457 -0 04 00505 STA* SYLP REPLACE THE WORD 1059 01460 0 12 00464 IRS SYL2 INCREMENT CHARACTER COUNT 1060 01461 -0 01 01445 JMP* STF UPDATE NOT REQUIRED. EXIT 1061 01462 0 12 00465 IRS SYL3 INCREMENT WORD COUNT 1062 01463 101000 NOP OVERFLOW IS POSSIBLE 1063 01464 0 12 00505 IRS SYLP INCREMENT WORD POINTER 1064 01465 0 02 00672 LDA M2 RESET CHARACTER COUNTER 1065 01466 0 04 00464 STA SYL2 FOR TWO CHARACTERS/WORD 1066 01467 -0 01 01445 JMP* STF EXIT 1067 * 1068 * 1069 EJCT *************************************************************