ibm:vm370-lib:cp:dmkcft.assemble_hst
Table of Contents
DMKCFT History
References
- Fixes Applied : 4
- Latest Source Date : Saturday, December 9, 1978
- Last Fix ID : [HRC101DK]
Update History
CMS File Input : DMKCFT ASSEMBLE
Date : 12/9/1978 4:55:00 AM
VM Context : MAINT(394)
File Name : DMKCFT.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:45 AM
Created : 1/16/2021 7:31:45 AM
Update Order
- R09296DK 601 REASSEMBLE FOR V09296
- R09934DK 609 TERMINAL LINEDEL ON COMMAND NOT CORRECT FOR ASCII
- R11392DK 614 UV01162 TERM APL ON/OFF NOW CHECKS FOR A MIN OF 2 LETTERS
- HRC101DK V02 TERMINAL ENHANCEMENTS LIKE Z/VM
R09296DK
Date Wednesday Mar 07, 1979 05:31:00 PM
Loaded from MAINT(294)
R09296DK: ./ * REASSEMBLE FOR V09296 00001000
BEGIN APPLY >>> ./ * REASSEMBLE FOR V09296 00001000
Comment >>> ./ * REASSEMBLE FOR V09296 00001000
END APPLY >>> ./ * REASSEMBLE FOR V09296 00001000
Update Succeeded
Update Execution Time 8 milliseconds.
R09934DK
Date Friday Jan 25, 1980 09:14:00 AM
Loaded from MAINT(294)
R09934DK: ./ I 307000 $ 307100 00001000
R09934DK: LINDON DS 0H @VA09934 00002000
R09934DK: TM RDEVTMCD,RDEVUSC8 IS IT ASCII TYPE ??? @VA09934 00003000
R09934DK: BZ NOTASC NO...BRANCH @VA09934 00004000
R09934DK: MVI VMTLDEL,BRACKET SET LINE DEL TO LEFT BRACKET @VA09934 00005000
R09934DK: B TONDONE @VA09934 00006000
R09934DK: ./ R 309000 $ 309100 00007000
R09934DK: NOTASC DS 0H @VA09934 00008000
R09934DK: MVC VMTLDEL(1),DMKSYSLD MOVE IN SYSTEM DEFAULT CHAR @VA09934 00009000
R09934DK: ./ I 522000 $ 522100 00010000
R09934DK: BRACKET EQU X'AD' LINE DEL CHARACTER FOR ASCII @VA09934 00011000
BEGIN APPLY >>> ./ I 307000 $ 307100 00001000
END APPLY >>> ./ I 307000 $ 307100 00001000
BEGIN APPLY >>> ./ R 309000 $ 309100 00007000
END APPLY >>> ./ R 309000 $ 309100 00007000
BEGIN APPLY >>> ./ I 522000 $ 522100 00010000
END APPLY >>> ./ I 522000 $ 522100 00010000
Update Succeeded
Update Execution Time 16 milliseconds.
R11392DK
Date Monday Jun 30, 1980 05:09:00 AM
Loaded from MAINT(294)
R11392DK: ./ I 473000 $ 473050 50 00001000
R11392DK: CL R4,F1 LESS THAN 2 CHARACTERS @VA11392 00002000
R11392DK: BNH LOADARG2 YES, GO SEND ERROR MESSAGE @VA11392 00003000
BEGIN APPLY >>> ./ I 473000 $ 473050 50 00001000
END APPLY >>> ./ I 473000 $ 473050 50 00001000
Update Succeeded
Update Execution Time 8 milliseconds.
HRC101DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC101DK: ./ R 00069000 00070000 $ 69090 90 03/12/06 11:22:38
HRC101DK: * | | ATTN | HRC101DK 00069090
HRC101DK: * | | AUTOCR | HRC101DK 00069180
HRC101DK: * | | HILIGHT ON | HRC101DK 00069270
HRC101DK: * | | HOLD OFF | HRC101DK 00069360
HRC101DK: * | | MASK | HRC101DK 00069450
HRC101DK: ./ R 00071000 $ 71190 190 03/12/06 11:22:38
HRC101DK: * | | | HRC101DK 00071190
HRC101DK: * | | TIMESTMP ON|OFF | HRC101DK 00071380
HRC101DK: * | | TIMESTAMP ON|OFF | HRC101DK 00071570
HRC101DK: ./ I 00074000 $ 74300 300 03/12/06 11:22:38
HRC101DK: * | | MORE NNN NNN | HRC101DK 00074300
HRC101DK: * | | | HRC101DK 00074600
HRC101DK: ./ R 00221000 $ 221190 190 03/12/06 11:22:38
HRC101DK: TERMABRV EQU * HRC101DK 00221190
HRC101DK: SR R8,R8 HRC101DK 00221380
HRC101DK: IC R8,9(,R5) GET MINIMUM LENGTH HRC101DK 00221570
HRC101DK: ./ R 00236000 $ 236090 90 03/12/06 11:22:38
HRC101DK: DC C'AUTOCR ',H'2',AL2(AUTOCR-DMKCFT) HRC101DK 00236090
HRC101DK: DC C'HOLD ',H'2',AL2(HOLD-DMKCFT) HRC101DK 00236180
HRC101DK: DC C'MORE ',H'4',AL2(MORE-DMKCFT) HRC101DK 00236270
HRC101DK: DC C'TIMESTAMP',AL1(4),AL2(STAMP-DMKCFT) HRC101DK 00236360
HRC101DK: DC C'HILIGHT ',H'4',AL2(HIGHLITE-DMKCFT) HRC101DK 00236450
HRC101DK: DC C'CHARDEL ',H'2',AL2(CHARDEL-DMKCFT) HRC101DK 00236540
HRC101DK: ./ R 00244000 00245000 $ 244590 590 03/12/06 11:22:38
HRC101DK: DC C'MODE ',H'3',AL2(MODE-DMKCFT) HRC101DK 00244590
HRC101DK: TERMEND DC C'TIMESTMP',H'6',AL2(STAMP-DMKCFT) HRC101DK 00245180
HRC101DK: ./ I 00341760 $ 341762 2 03/12/06 11:22:38
HRC101DK: EJECT HRC101DK 00341762
HRC101DK: HIGHLITE EQU * HRC101DK 00341764
HRC101DK: LA R6,HILION RETURN FOR ON HRC101DK 00341766
HRC101DK: LA R7,HILIOFF SET UP FOR 'OFF' HRC101DK 00341768
HRC101DK: BAL R14,TSTONOFF GO CHECK ARGUMENT HRC101DK 00341770
HRC101DK: * HRC101DK 00341772
HRC101DK: * IF RETURN HERE - HAVE BAD ARGUMENT HRC101DK 00341774
HRC101DK: * HRC101DK 00341776
HRC101DK: B LOADARG2 G0 SEND ERROR MESSAGE HRC101DK 00341778
HRC101DK: SPACE , HRC101DK 00341780
HRC101DK: HILIOFF NI VMMLVL2,X'FF'-VMMHLITE SET FLAG OFF HRC101DK 00341782
HRC101DK: B TONDONE CONTINUE HRC101DK 00341784
HRC101DK: SPACE , HRC101DK 00341786
HRC101DK: HILION OI VMMLVL2,VMMHLITE FLAG FOR HILIGHT ON HRC101DK 00341788
HRC101DK: B TONDONE CONTINUE HRC101DK 00341790
HRC101DK: ./ R 00366000 $ 366020 20 03/12/06 11:22:38
HRC101DK: EJECT , HRC101DK 00366020
HRC101DK: MORE DS 0H HRC101DK 00366040
HRC101DK: ICM R2,B'0011',VMMORETM GET CURRENT VALUES HRC101DK 00366060
HRC101DK: CLI RDEVTYPC,CLASTERM ? HRC101DK 00366080
HRC101DK: BE CFT006 YES, ERROR HRC101DK 00366100
HRC101DK: LR R0,R4 HRC101DK 00366120
HRC101DK: LR R1,R5 HRC101DK 00366140
HRC101DK: CALL DMKCVTDB CONVERT TO BINARY HRC101DK 00366160
HRC101DK: BNZ LOADARG2 ....... HRC101DK 00366180
HRC101DK: CL R1,F255 <= 255 HRC101DK 00366200
HRC101DK: BH LOADARG2 ....... HRC101DK 00366220
HRC101DK: N R2,=X'000000FF' ZERO OUT OLD HRC101DK 00366240
HRC101DK: SLL R1,8 SHIFT INTO CORRECT POSITION HRC101DK 00366260
HRC101DK: OR R2,R1 INSERT IT HRC101DK 00366280
HRC101DK: CALL DMKSCNFD GET SECOND TIME VALUE HRC101DK 00366300
HRC101DK: LR R4,R0 HRC101DK 00366320
HRC101DK: LR R5,R1 HRC101DK 00366340
HRC101DK: CALL DMKCVTDB CONVERT TO BINARY HRC101DK 00366360
HRC101DK: BNZ LOADARG2 ....... HRC101DK 00366380
HRC101DK: CL R1,F255 <= 255 HRC101DK 00366400
HRC101DK: BH LOADARG2 ....... HRC101DK 00366420
HRC101DK: N R2,=X'0000FF00' ZERO OUT OLD HRC101DK 00366440
HRC101DK: OR R2,R1 INSERT IT HRC101DK 00366460
HRC101DK: STCM R2,B'0011',VMMORETM SAVE CURRENT VALUES HRC101DK 00366480
HRC101DK: B TONDONE HRC101DK 00366500
HRC101DK: EJECT , HRC101DK 00366520
HRC101DK: ./ R 00438000 00439000 $ 438040 40 03/12/06 11:22:38
HRC101DK: EJECT HRC101DK 00438030
HRC101DK: AUTOCR EQU * HRC101DK 00438060
HRC101DK: LA R6,AUTOON RETURN FOR ON HRC101DK 00438090
HRC101DK: LA R7,AUTOOFF SET UP FOR 'OFF' HRC101DK 00438120
HRC101DK: BAL R14,TSTONOFF GO CHECK ARGUMENT HRC101DK 00438150
HRC101DK: * HRC101DK 00438180
HRC101DK: * IF RETURN HERE - HAVE BAD ARGUMENT HRC101DK 00438210
HRC101DK: * HRC101DK 00438240
HRC101DK: B LOADARG2 G0 SEND ERROR MESSAGE HRC101DK 00438270
HRC101DK: SPACE , HRC101DK 00438300
HRC101DK: AUTOOFF NI VMMLVL2,X'FF'-VMMAUTCR SET FLAG OFF HRC101DK 00438330
HRC101DK: B TONDONE CONTINUE HRC101DK 00438360
HRC101DK: SPACE , HRC101DK 00438390
HRC101DK: AUTOON OI VMMLVL2,VMMAUTCR FLAG FOR AUTOCR ON HRC101DK 00438420
HRC101DK: B TONDONE CONTINUE HRC101DK 00438450
HRC101DK: EJECT HRC101DK 00438480
HRC101DK: HOLD EQU * HRC101DK 00438510
HRC101DK: LA R6,HOLDON RETURN FOR ON HRC101DK 00438540
HRC101DK: LA R7,HOLDOFF SET UP FOR 'OFF' HRC101DK 00438570
HRC101DK: BAL R14,TSTONOFF GO CHECK ARGUMENT HRC101DK 00438600
HRC101DK: * HRC101DK 00438630
HRC101DK: * IF RETURN HERE - HAVE BAD ARGUMENT HRC101DK 00438660
HRC101DK: * HRC101DK 00438690
HRC101DK: B LOADARG2 G0 SEND ERROR MESSAGE HRC101DK 00438720
HRC101DK: SPACE , HRC101DK 00438750
HRC101DK: HOLDON NI VMMLVL2,X'FF'-VMMNHOLD SET FLAG OFF HRC101DK 00438780
HRC101DK: B TONDONE CONTINUE HRC101DK 00438810
HRC101DK: SPACE , HRC101DK 00438840
HRC101DK: HOLDOFF OI VMMLVL2,VMMNHOLD FLAG FOR NO HOLD HRC101DK 00438870
HRC101DK: B TONDONE CONTINUE HRC101DK 00438900
HRC101DK: EJECT , HRC101DK 00438930
HRC101DK: STAMP EQU * HRC101DK 00439200
HRC101DK: LA R6,STMPON RETURN FOR ON HRC101DK 00439230
HRC101DK: ./ R 00442000 $ 442190 190 03/12/06 11:22:38
HRC101DK: * HRC101DK 00438630
HRC101DK: * IF RETURN HERE - HAVE BAD ARGUMENT HRC101DK 00438660
HRC101DK: * HRC101DK 00438690
HRC101DK: B LOADARG2 G0 SEND ERROR MESSAGE HRC101DK 00438720
BEGIN APPLY >>> ./ R 00069000 00070000 $ 69090 90 03/12/06 11:22:38
END APPLY >>> ./ R 00069000 00070000 $ 69090 90 03/12/06 11:22:38
BEGIN APPLY >>> ./ R 00071000 $ 71190 190 03/12/06 11:22:38
END APPLY >>> ./ R 00071000 $ 71190 190 03/12/06 11:22:38
BEGIN APPLY >>> ./ I 00074000 $ 74300 300 03/12/06 11:22:38
END APPLY >>> ./ I 00074000 $ 74300 300 03/12/06 11:22:38
BEGIN APPLY >>> ./ R 00221000 $ 221190 190 03/12/06 11:22:38
END APPLY >>> ./ R 00221000 $ 221190 190 03/12/06 11:22:38
BEGIN APPLY >>> ./ R 00236000 $ 236090 90 03/12/06 11:22:38
END APPLY >>> ./ R 00236000 $ 236090 90 03/12/06 11:22:38
BEGIN APPLY >>> ./ R 00244000 00245000 $ 244590 590 03/12/06 11:22:38
END APPLY >>> ./ R 00244000 00245000 $ 244590 590 03/12/06 11:22:38
BEGIN APPLY >>> ./ I 00341760 $ 341762 2 03/12/06 11:22:38
END APPLY >>> ./ I 00341760 $ 341762 2 03/12/06 11:22:38
BEGIN APPLY >>> ./ R 00366000 $ 366020 20 03/12/06 11:22:38
END APPLY >>> ./ R 00366000 $ 366020 20 03/12/06 11:22:38
BEGIN APPLY >>> ./ R 00438000 00439000 $ 438040 40 03/12/06 11:22:38
END APPLY >>> ./ R 00438000 00439000 $ 438040 40 03/12/06 11:22:38
BEGIN APPLY >>> ./ R 00442000 $ 442190 190 03/12/06 11:22:38
END APPLY >>> ./ R 00442000 $ 442190 190 03/12/06 11:22:38
Update Succeeded
Update Execution Time 31 milliseconds.
ibm/vm370-lib/cp/dmkcft.assemble_hst.txt · Last modified: 2023/08/06 13:36 by Site Administrator