AB16-CMT5

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

1005 01405 0 12 00000 IRS 0 INC COUNTER 1006 01406 0 01 01401 JMP MORT COMPLETE PROG. MOVE 1007 01407 0 02 01541 LDA NSAD NEW STARTING ADDRESS 1008 01410 0 04 00020 STA '20 NEW PROG START 1009 01411 14 0020 OCP '20 LET RTC RUN WHILE PROGRAM TESTING HIGH 1010 01412 -0 01 00020 JMP* '20 JMP TO NEW START 1011 * 1012 01413 -0 02 01551 NUPL LDA* CHNN NEW LAST ADDR 1013 01414 0 03 01660 ANA ='177000 1014 01415 0 07 01663 SUB ='1000 LEAVE ROOM FOR TWO SECTORS OF PROGRAM 1015 01416 0 11 01673 CAS ENDT SHOULD BE BIGGER THAN THE START ADDR 1016 01417 101000 NOP 1017 01420 0 01 01424 JMP *+4 1018 01421 000000 HLT 1019 ************************************************************ 1020 * * 1021 * (A) PRESENT CHOICE OF THE HIGH LIMIT WILL CAUSE * 1022 * THIS PROGRAM TO SELF DESTRUCT * 1023 * * 1024 * (B) PLEASE REVALUATE YOUR SELECTION CONCERNING * 1025 * THIS LIMIT * 1026 * * 1027 * (C) PRESS START * 1028 * * 1029 ************************************************************ 1030 01422 -0 10 01547 JST* CHNL 1031 01423 0 01 01413 JMP NUPL 1032 01424 0 04 01526 STA SAVC SAVE 1033 01425 0 06 01662 ADD ='21 NEW 1034 01426 0 04 01525 STA PNTB STARTING 1035 01427 0 02 01541 LDA NSAD ADDRESS 1036 01430 0 07 01662 SUB ='21 AND 1037 01431 0 06 01525 ADD PNTB MOVE 1038 01432 0 04 01527 STA SAVE STARTING ADDRESS 1039 01433 0 02 01544 LDA CHNO JUMP TABLE 1040 01434 0 04 01524 STA PNTA POINTER 1041 01435 0 35 01543 LDX NDIF 1042 01436 -0 02 01524 MOUC LDA* PNTA CHANGE CONTAINS 1043 01437 0 06 01526 ADD SAVC OF JUMP TABLE 1044 01440 -0 04 01524 STA* PNTA STORE BACK 1045 01441 0 12 01524 IRS PNTA UPDATE POINTER 1046 01442 0 12 00000 IRS 0 UPDATE COUNTER 1047 01443 0 01 01436 JMP MOUC COMPLETE TABLE 1048 01444 0 02 01662 LDA ='21 STARTING POINT 1049 01445 0 04 01524 STA PNTA POINTER 1050 01446 0 35 01542 LDX DPGL NEG OF PGM LENGTH 1051 01447 -0 02 01524 MOAD LDA* PNTA MOVE PROGRAM 1052 01450 -0 04 01525 STA* PNTB TO LOW CORE 1053 01451 0 12 01524 IRS PNTA UPDATE POINTER A 1054 01452 0 12 01525 IRS PNTB UPDATE POINTER B