.SPFファイル(行番号付きファイル).
.SPFファイルについては 用語-SPFファイル も参照。
.SPFファイルの指定は Edit/Browse/Select コマンドのオプション指定、
又はCIDヘッダー行に設定オプションを設定します。
コマンドの場合簡略名としてそれぞれ EN/BN/SN が用意されており "/F80-72 /P0" を
指定したことになります。(行長=80, 左マージン=72, 行番号欄(73-80)は書き込み可能(P0))
(例.1) コマンドによる指定
(1) 元ファイル
e asm6, Shift+F11(カラムゲージの表示)
EDIT---|G:\src\xe\htmlwk\asm6 =l(24-07-23 15:00)----------------------- 001-( 1)-085
===> ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+
****|*l*t**l*** TOP OF FILE *******Lig:OFF ***********************************************
0001|OPGM1 CSECT ↵
0002|OPGM1 AMODE 31 ↵
0003|OPGM1 RMODE ANY ↵
0004|BASER EQU R12 BASE REG ↵
0005| STM R14,R12,12(R13) SAVE REGS IN SAVEAREA ↵
0006| LR BASER,R15 GET EPA FOR BASE REG ↵
0007| USING OPGM1,BASER R12 IS BASE FOR PGM ↵
****|*l*t**l*** END OF FILE *******Lig:OFF ***********************************************
(2) EN コマンドでファイルを開く
en asm6
行番号付きファイルの行番号欄数値エラー-23 15:00)----------------------- 001-( 1)-085
===> ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+
****|*l*t**l*** TOP OF FILE *******Lig:OFF ***********************************************
0001|OPGM1 CSECT ↵
0002|OPGM1 AMODE 31 ↵
0003|OPGM1 RMODE ANY ↵
0004|BASER EQU R12 BASE REG ↵
0005| STM R14,R12,12(R13) SAVE REGS IN SAVEAREA ↵
0006| LR BASER,R15 GET EPA FOR BASE REG ↵
0007| USING OPGM1,BASER R12 IS BASE FOR PGM ↵
****|*l*t**l*** END OF FILE *******Lig:OFF ***********************************************
(3) 行番号を設定します(RENum コマンド)
EDIT---|G:\src\xe\htmlwk\asm6 =l(24-07-23 15:00)----------------------- 001-( 1)-085
===>ren ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+
****|*l*t**l*** TOP OF FILE *******Lig:OFF ***********************************************
0001|OPGM1 CSECT ↵
0002|OPGM1 AMODE 31 ↵
0003|OPGM1 RMODE ANY ↵
0004|BASER EQU R12 BASE REG ↵
0005| STM R14,R12,12(R13) SAVE REGS IN SAVEAREA ↵
0006| LR BASER,R15 GET EPA FOR BASE REG ↵
0007| USING OPGM1,BASER R12 IS BASE FOR PGM ↵
****|*l*t**l*** END OF FILE *******Lig:OFF ***********************************************
(結果)
エラー行のある行番号付きファイル,Forceオプションが必要です------------- 001-( 1)-085
===>ren ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+
****|*l*t**l*** TOP OF FILE *******Lig:OFF ***********************************************
0001|OPGM1 CSECT ↵
0002|OPGM1 AMODE 31 ↵
0003|OPGM1 RMODE ANY ↵
0004|BASER EQU R12 BASE REG ↵
0005| STM R14,R12,12(R13) SAVE REGS IN SAVEAREA ↵
0006| LR BASER,R15 GET EPA FOR BASE REG ↵
0007| USING OPGM1,BASER R12 IS BASE FOR PGM ↵
****|*l*t**l*** END OF FILE *******Lig:OFF ***********************************************
(4) エラーメッセージに従い、Force オプション で行番号を設定します
EDIT---|G:\src\xe\htmlwk\asm6 =l(24-07-23 15:00)----------------------- 001-( 1)-085
===>ren f ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+
****|*l*t**l*** TOP OF FILE *******Lig:OFF ***********************************************
0001|OPGM1 CSECT ↵
0002|OPGM1 AMODE 31 ↵
0003|OPGM1 RMODE ANY ↵
0004|BASER EQU R12 BASE REG ↵
0005| STM R14,R12,12(R13) SAVE REGS IN SAVEAREA ↵
0006| LR BASER,R15 GET EPA FOR BASE REG ↵
0007| USING OPGM1,BASER R12 IS BASE FOR PGM ↵
****|*l*t**l*** END OF FILE *******Lig:OFF ***********************************************
(結果)
書き込み可能モード(/P0)の時、行番号欄はFGカラー:緑 です
行長は80桁に揃えられます(長い行はカット)
尚、行番号欄をクリアーするには NUM CLEAR コマンドを使用します。
7 行更新。:\src\xe\htmlwk\asm6 =l(24-07-23 15:00)----------------------- 001-( 1)-082
===> ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8..
*******|*l*t**l*** TOP OF FILE *******Lig:OFF ********************************************
0001000*OPGM1 CSECT 00010000↵
0002000*OPGM1 AMODE 31 00020000↵
0003000*OPGM1 RMODE ANY 00030000↵
0004000*BASER EQU R12 BASE REG 00040000↵
0005000* STM R14,R12,12(R13) SAVE REGS IN SAVEAREA 00050000↵
0006000* LR BASER,R15 GET EPA FOR BASE REG 00060000↵
0007000* USING OPGM1,BASER R12 IS BASE FOR PGM 00070000↵
*******|*l*t**l*** END OF FILE *******Lig:OFF ********************************************
(例.2) Profile機能を利用してディレクトリー内の全メンバーをSPFファイルとすることもできます
(Profile設定を無効にするには "pro RESET" コマンドを入力した後にディレクトリーリストを閉じます)
(1) ディレクトリーを en コマンドで開きます
EDIT---|G:\src\xe\htmlwk =l(24-07-11 20:29)----------------------------------------------=Ins
===>en dirspf ===>HALF
*****|*l****l*** TOP OF LIST *******Unicomb: COMB *******************************************
_0001|: G:\ x4000 15,914,720K/ 33,538,016K
_0002||: src ---- 24-06-28 12:28 0
_0003|||: xe ---- 24-07-08 19:25 0
_0004||||: htmlwk ---- 24-07-11 20:29 118,036
_0005|||||. asm1 A--- 24-07-20 21:27 656
_0006|||||. asm1.org A--- 24-07-23 14:38 518
_0007|||||. asm1.src A--- 24-07-23 14:37 574
_0008|||||. asm2 A--- 24-07-20 21:31 591
_0009|||||. asm3 A--- 24-07-23 14:22 591
_0010|||||. asm4 A--- 24-07-23 14:22 591
_0011|||||. asm5 A--- 24-07-23 14:34 656
(結果)
EDIT---|G:\src\xe\htmlwk\dirspf =l(24-07-31 14:06)---------------------------------------=Ins
===> ===>HALF
*****|*l****l*** TOP OF LIST *******Unicomb: COMB *******************************************
_0001|: G:\ x4000 15,914,720K/ 33,538,016K
_0002||: src ---- 24-06-28 12:28 0
_0003|||: xe ---- 24-07-08 19:25 0
_0004||||: htmlwk ---- 24-07-11 20:29 0
_0005|||||: dirspf ---- 24-07-31 14:06 574
_0006||||||. asm1.src A--- 24-07-31 14:19 574
*****|*l****l*** END OF LIST *******Unicomb: COMB *******************************************
PRO コマンドで確認してみます
EDIT---|G:\src\xe\htmlwk\dirspf =l(24-07-31 14:06)---------------------------------------=Ins
===>pro ===>HALF
*****|*l****l*** TOP OF LIST *******Unicomb: COMB *******************************************
_0001|: G:\ x4000 15,914,720K/ 33,538,016K
_0002||: src ---- 24-06-28 12:28 0
_0003|||: xe ---- 24-07-08 19:25 0
_0004||||: htmlwk ---- 24-07-11 20:29 0
_0005|||||: dirspf ---- 24-07-31 14:06 574
_0006||||||. asm1.src A--- 24-07-31 14:19 574
*****|*l****l*** END OF LIST *******Unicomb: COMB *******************************************
CAP=OFF NUMSTD P0 LRECL= 80 M72 TAB=007-31 14:06)---------------------------------------=Ins
===> ===>HALF
*****|*l****l*** TOP OF LIST *******Unicomb: COMB *******************************************
_0001|: G:\ x4000 15,914,720K/ 33,538,016K
_0002||: src ---- 24-06-28 12:28 0
_0003|||: xe ---- 24-07-08 19:25 0
_0004||||: htmlwk ---- 24-07-11 20:29 0
_0005|||||: dirspf ---- 24-07-31 14:06 574
_0006||||||. asm1.src A--- 24-07-31 14:19 574
*****|*l****l*** END OF LIST *******Unicomb: COMB *******************************************
(2) ディレクトリーを en コマンドで開いただけでは有効になりません
pro save が必要です(::profile にディレクトリーのProfileが書かれます)
EDIT---|G:\src\xe\htmlwk\dirspf =l(24-07-31 14:06)---------------------------------------=Ins
===>pro save ===>HALF
*****|*l****l*** TOP OF LIST *******Unicomb: COMB *******************************************
_0001|: G:\ x4000 15,914,720K/ 33,538,016K
_0002||: src ---- 24-06-28 12:28 0
_0003|||: xe ---- 24-07-08 19:25 0
_0004||||: htmlwk ---- 24-07-11 20:29 0
_0005|||||: dirspf ---- 24-07-31 14:06 448
_0006*|||||. asm1.src A--- 24-07-31 14:30 448
*****|*l****l*** END OF LIST *******Unicomb: COMB *******************************************
ProfileRecordType:* was savedpf =l(24-07-31 14:06)---------------------------------------=Ins
===> ===>HALF
*****|*l****l*** TOP OF LIST *******Unicomb: COMB *******************************************
_0001|: G:\ x4000 15,914,720K/ 33,538,016K
_0002||: src ---- 24-06-28 12:28 0
_0003|||: xe ---- 24-07-08 19:25 0
_0004||||: htmlwk ---- 24-07-11 20:29 0
_0005|||||: dirspf ---- 24-07-31 14:06 448
_0006*|||||. asm1.src A--- 24-07-31 14:30 448
*****|*l****l*** END OF LIST *******Unicomb: COMB *******************************************
(3) ディレクトリーメンバーをオプション無しで開きます
EDIT---*G:\src\xe\htmlwk\dirspf =l(24-07-31 14:06)---------------------------------------=Ins
===>s asm1.src ===>HALF
*****|*l****l*** TOP OF LIST *******Unicomb: COMB *******************************************
_0001|: G:\ x4000 15,914,720K/ 33,538,016K
_0002||: src ---- 24-06-28 12:28 0
_0003|||: xe ---- 24-07-08 19:25 0
_0004||||: htmlwk ---- 24-07-11 20:29 0
_0005|||||: dirspf ---- 24-07-31 14:06 448
_0006*|||||. asm1.src A--- 24-07-31 14:30 448
*****|*l****l*** END OF LIST *******Unicomb: COMB *******************************************
(結果)
行番号付きファイルの行長エラー(!=80).src =l(24-07-31 14:30)--------------- 001-( 1)-088=Ins
===> ===>HALF
****|*l*t**l*** TOP OF FILE *******Lig:OFF **************************************************
0001|OPGM1 CSECT ↵
0002|OPGM1 AMODE 31 ↵
0003|OPGM1 RMODE ANY ↵
0004|BASER EQU R11 BASE REG. ↵
0005| STM R14,R12,12(R13) SAVE REGS IN SAVEAREA ↵
0006| LR BASER,R15 GET EPA FOR BASE REG ↵
0007| USING OPGM1,BASER R12 IS BASE FOR PGM ↵
****|*l*t**l*** END OF FILE *******Lig:OFF **************************************************
Pro コマンドで確認してみます
EDIT---|G:\src\xe\htmlwk\dirspf\asm1.src =l(24-07-31 14:30)--------------- 001-( 1)-088=Ins
===>pro ===>HALF
****|*l*t**l*** TOP OF FILE *******Lig:OFF **************************************************
0001|OPGM1 CSECT ↵
0002|OPGM1 AMODE 31 ↵
0003|OPGM1 RMODE ANY ↵
0004|BASER EQU R11 BASE REG. ↵
0005| STM R14,R12,12(R13) SAVE REGS IN SAVEAREA ↵
0006| LR BASER,R15 GET EPA FOR BASE REG ↵
0007| USING OPGM1,BASER R12 IS BASE FOR PGM ↵
****|*l*t**l*** END OF FILE *******Lig:OFF **************************************************
CAP=OFF NUMSTD P0 LRECL= 80 M72 TAB=4rc =l(24-07-31 14:30)--------------- 001-( 4)-088=Ins
===> ===>HALF
****|*l*t**l*** TOP OF FILE *******Lig:OFF **************************************************
0001|OPGM1 CSECT ↵
0002|OPGM1 AMODE 31 ↵
0003|OPGM1 RMODE ANY ↵
0004|BASER EQU R11 BASE REG. ↵
0005| STM R14,R12,12(R13) SAVE REGS IN SAVEAREA ↵
0006| LR BASER,R15 GET EPA FOR BASE REG ↵
0007| USING OPGM1,BASER R12 IS BASE FOR PGM ↵
****|*l*t**l*** END OF FILE *******Lig:OFF **************************************************
(4) REN コマンドで行番号を設定します
EDIT---|G:\src\xe\htmlwk\dirspf\asm1.src =l(24-07-31 14:30)--------------- 001-( 1)-088=Ins
===>ren f ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+...
****|*l*t**l*** TOP OF FILE *******Lig:OFF **************************************************
0001|OPGM1 CSECT ↵
0002|OPGM1 AMODE 31 ↵
0003|OPGM1 RMODE ANY ↵
0004|BASER EQU R11 BASE REG. ↵
0005| STM R14,R12,12(R13) SAVE REGS IN SAVEAREA ↵
0006| LR BASER,R15 GET EPA FOR BASE REG ↵
0007| USING OPGM1,BASER R12 IS BASE FOR PGM ↵
****|*l*t**l*** END OF FILE *******Lig:OFF **************************************************
(結果)
7 行更新。:\src\xe\htmlwk\dirspf\asm1.src =l(24-07-31 14:30)--------------- 001-( 1)-085=Ins
===> ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+
*******|*l*t**l*** TOP OF FILE *******Lig:OFF ***********************************************
0001000*OPGM1 CSECT 00010000↵
0002000*OPGM1 AMODE 31 00020000↵
0003000*OPGM1 RMODE ANY 00030000↵
0004000*BASER EQU R11 BASE REG. 00040000↵
0005000* STM R14,R12,12(R13) SAVE REGS IN SAVEAREA 00050000↵
0006000* LR BASER,R15 GET EPA FOR BASE REG 00060000↵
0007000* USING OPGM1,BASER R12 IS BASE FOR PGM 00070000↵
*******|*l*t**l*** END OF FILE *******Lig:OFF ***********************************************
(例.3) CID ヘッダー行による指定
1行目にコメント行が書ける言語では1行目を CID ヘッダー行として
SPF オプションを設定できます。CID ヘッダー行を設定すれば、
オプション無しの Edit/Browse/Select コマンドでSPFファイルとして開け、
ファイルコピー、改名でもオプションが保持されることになります。
(1) CID ヘッダー行の挿入
"CID:* +DATER~:#63" : "CID:"がCIDヘッダー行の識別子で、"DATE"でCIDのタイプが日付(ymdd)であり
"#63"で更新行にはカラム63にCIDが設定されます。"#63"はSPFファイルの省略値でもあります
CIDを設定したくない場合はNONEを指定する。CIDの形式については"用語-CID"参照
"(m72,n,p1)" : 行番号付きファイル(n)であり左マージンが72桁(m72)で残りのカラム(73-80)は入力不可(p1)
update#= は ファイルを更新して保存する毎に 1 アップします、最初は 1 にしてください。
EDIT---*G:\src\xe\htmlwk\asm8 =l(24-07-23 15:44)----------------------- 001-( 1)-085
===> ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+
****|*l*t**l*** TOP OF FILE *******Lig:OFF ***********************************************
0000*** CID:* +DATER~:#63 option=(m72,n,p1) update#= 1 *************↵
0001|OPGM1 CSECT↵
0003|OPGM1 AMODE 31↵
0004|OPGM1 RMODE ANY↵
0005|BASER EQU R12 BASE REG↵
0006| STM R14,R12,12(R13) SAVE REGS IN SAVEAREA↵
0007| LR BASER,R15 GET EPA FOR BASE REG↵
0008| USING OPGM1,BASER R12 IS BASE FOR PGM↵
****|*l*t**l*** END OF FILE *******Lig:OFF ***********************************************
(2) 保存してオプション無しで開きます
e asm8
行番号付きファイルの行長エラー(!=80)07-23 15:46)----------------------- 001-( 1)-085
===> ===>HALF
****|*l*t**l*** TOP OF FILE *******Lig:OFF ***********************************************
0001|** CID:* +DATER~:#63 option=(m72,n,p1) update#= 1 *************↵
0002|OPGM1 CSECT↵
0003|OPGM1 AMODE 31↵
0004|OPGM1 RMODE ANY↵
0005|BASER EQU R12 BASE REG↵
0006| STM R14,R12,12(R13) SAVE REGS IN SAVEAREA↵
0007| LR BASER,R15 GET EPA FOR BASE REG↵
0008| USING OPGM1,BASER R12 IS BASE FOR PGM↵
****|*l*t**l*** END OF FILE *******Lig:OFF ***********************************************
(2) エラーがでたので行番号ランを設定して行長を揃えます
e asm8
EDIT---|G:\src\xe\htmlwk\asm8 =l(24-07-23 15:46)----------------------- 001-( 1)-085
===>ren f ===>HALF
****|*l*t**l*** TOP OF FILE *******Lig:OFF ***********************************************
0001|** CID:* +DATER~:#63 option=(m72,n,p1) update#= 1 *************↵
0002|OPGM1 CSECT↵
0003|OPGM1 AMODE 31↵
0004|OPGM1 RMODE ANY↵
0005|BASER EQU R12 BASE REG↵
0006| STM R14,R12,12(R13) SAVE REGS IN SAVEAREA↵
0007| LR BASER,R15 GET EPA FOR BASE REG↵
0008| USING OPGM1,BASER R12 IS BASE FOR PGM↵
****|*l*t**l*** END OF FILE *******Lig:OFF ***********************************************
(結果)
P1(行番号欄は書き込み不可) 指定により行番号欄はFGカラー:白 です
8 行更新。:\src\xe\htmlwk\asm8 =l(24-07-23 21:38)------------------------ 001-( 1)-083=Rep
===> ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8...
*******|*l*t**l*** TOP OF FILE *******Lig:OFF *********************************************
0001000*** CID:* +DATER~:#63 option=(m72,n,p0) update#= 1 *************00010000↵
0002000*OPGM1 CSECT *** 00020000↵
0003000*OPGM1 AMODE 31 00030000↵
0004000*OPGM1 RMODE ANY 00040000↵
0005000*BASER EQU R12 BASE REG 00050000↵
0006000* STM R14,R12,12(R13) SAVE REGS IN SAVEAREA 00060000↵
0007000* LR BASER,R15 GET EPA FOR BASE REG 00070000↵
0008000* USING OPGM1,BASER R12 IS BASE FOR PGM 00080000↵
*******|*l*t**l*** END OF FILE *******Lig:OFF *********************************************
(3) 保存して再度開くと、CID 設定の指定(#63)によりカラム63にCIDがセットされます
e asm8
EDIT---|G:\src\xe\htmlwk\asm8 =l(24-07-23 21:41)------------------------ 001-( 1)-083=Rep
===> ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8...
*******|*l*t**l*** TOP OF FILE *******Lig:OFF *********************************************
0001000|** CID:* +DATER~:#63 option=(m72,n,p0) update#= 3 *************00010001↵
0002000|OPGM1 CSECT *** * +4723R~ 00020001↵
0003000|OPGM1 AMODE 31 * +4723R~ 00030001↵
0004000|OPGM1 RMODE ANY * +4723R~ 00040001↵
0005000|BASER EQU R12 BASE REG * +4723R~ 00050001↵
0006000| STM R14,R12,12(R13) SAVE REGS IN SAVEAREA * +4723R~ 00060001↵
0007000| LR BASER,R15 GET EPA FOR BASE REG * +4723R~ 00070001↵
0008000| USING OPGM1,BASER R12 IS BASE FOR PGM * +4723R~ 00080001↵
*******|*l*t**l*** END OF FILE *******Lig:OFF *********************************************
.行番号は枝番、更新番号が自動でメンテナンスされます
(1) 5行目の後に1行挿入して
EDIT---*G:\src\xe\htmlwk\asm8 =l(24-07-23 21:43)------------------------ 001-( 21)-083=Rep
===> ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8...
*******|*l*t**l*** TOP OF FILE *******Lig:OFF *********************************************
0001000|** CID:* +DATER~:#63 option=(m72,n,p0) update#= 5 *************00010001↵
0002000|OPGM1 CSECT *** * +4723R~ 00020001↵
0003000|OPGM1 AMODE 31 * +4723R~ 00030001↵
0004000|OPGM1 RMODE ANY * +4723R~ 00040001↵
0005000|BASER EQU R12 BASE REG * +4723R~ 00050001↵
0005010* USING *,R15↵
0006000| STM R14,R12,12(R13) SAVE REGS IN SAVEAREA * +4723R~ 00060001↵
0007000| LR BASER,R15 GET EPA FOR BASE REG * +4723R~ 00070001↵
0008000| USING OPGM1,BASER R12 IS BASE FOR PGM * +4723R~ 00080001↵
*******|*l*t**l*** END OF FILE *******Lig:OFF *********************************************
(2) 保存(PF3)、再オープンすると
挿入行の行番号 00051002 となる。10:枝番、02:更新番号
EDIT---|G:\src\xe\htmlwk\asm8 =l(24-07-23 21:47)------------------------ 001-( 1)-083=Rep
===> ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8...
*******|*l*t**l*** TOP OF FILE *******Lig:OFF *********************************************
0001000|** CID:* +DATER~:#63 option=(m72,n,p0) update#= 6 *************00010001↵
0002000|OPGM1 CSECT *** * ~4723R~ 00020001↵
0003000|OPGM1 AMODE 31 * ~4723R~ 00030001↵
0004000|OPGM1 RMODE ANY * ~4723R~ 00040001↵
0005000|BASER EQU R12 BASE REG * ~4723R~ 00050001↵
0005010| USING *,R15 * +4723I~ 00051002↵
0006000| STM R14,R12,12(R13) SAVE REGS IN SAVEAREA * ~4723R~ 00060001↵
0007000| LR BASER,R15 GET EPA FOR BASE REG * ~4723R~ 00070001↵
0008000| USING OPGM1,BASER R12 IS BASE FOR PGM * ~4723R~ 00080001↵
*******|*l*t**l*** END OF FILE *******Lig:OFF *********************************************
(3) 5行目を更新、保存、再オープンすると
更新行の行番号 00050003 となる。03:更新番号
EDIT---|G:\src\xe\htmlwk\asm8 =l(24-07-23 21:53)------------------------ 001-( 1)-083=Rep
===> ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8...
*******|*l*t**l*** TOP OF FILE *******Lig:OFF *********************************************
0001000|** CID:* +DATER~:#63 option=(m72,n,p0) update#= 7 *************00010001↵
0002000|OPGM1 CSECT *** * ~4723R~ 00020001↵
0003000|OPGM1 AMODE 31 * ~4723R~ 00030001↵
0004000|OPGM1 RMODE ANY * ~4723R~ 00040001↵
0005000|BASER EQU R11 BASE REG * +4723R~ 00050003↵
0005010| USING *,R15 * ~4723I~ 00051002↵
0006000| STM R14,R12,12(R13) SAVE REGS IN SAVEAREA * ~4723R~ 00060001↵
0007000| LR BASER,R15 GET EPA FOR BASE REG * ~4723R~ 00070001↵
0008000| USING OPGM1,BASER R12 IS BASE FOR PGM * ~4723R~ 00080001↵
*******|*l*t**l*** END OF FILE *******Lig:OFF *********************************************
(3) ファイルとしての更新番号(最大値)は VER コマンドで確認できます
EDIT---|G:\src\xe\htmlwk\asm8 =l(24-07-23 21:53)------------------------ 001-( 1)-083=Rep
===>ver ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8...
*******|*l*t**l*** TOP OF FILE *******Lig:OFF *********************************************
0001000|** CID:* +DATER~:#63 option=(m72,n,p0) update#= 7 *************00010001↵
0002000|OPGM1 CSECT *** * ~4723R~ 00020001↵
0003000|OPGM1 AMODE 31 * ~4723R~ 00030001↵
0004000|OPGM1 RMODE ANY * ~4723R~ 00040001↵
0005000|BASER EQU R11 BASE REG * +4723R~ 00050003↵
0005010| USING *,R15 * ~4723I~ 00051002↵
0006000| STM R14,R12,12(R13) SAVE REGS IN SAVEAREA * ~4723R~ 00060001↵
0007000| LR BASER,R15 GET EPA FOR BASE REG * ~4723R~ 00070001↵
0008000| USING OPGM1,BASER R12 IS BASE FOR PGM * ~4723R~ 00080001↵
*******|*l*t**l*** END OF FILE *******Lig:OFF *********************************************
(結果)
現バージョンは 3e\htmlwk\asm8 =l(24-07-23 21:53)------------------------ 001-( 1)-083=Rep
===> ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8...
*******|*l*t**l*** TOP OF FILE *******Lig:OFF *********************************************
0001000|** CID:* +DATER~:#63 option=(m72,n,p0) update#= 7 *************00010001↵
0002000|OPGM1 CSECT *** * ~4723R~ 00020001↵
0003000|OPGM1 AMODE 31 * ~4723R~ 00030001↵
0004000|OPGM1 RMODE ANY * ~4723R~ 00040001↵
0005000|BASER EQU R11 BASE REG * +4723R~ 00050003↵
0005010| USING *,R15 * ~4723I~ 00051002↵
0006000| STM R14,R12,12(R13) SAVE REGS IN SAVEAREA * ~4723R~ 00060001↵
0007000| LR BASER,R15 GET EPA FOR BASE REG * ~4723R~ 00070001↵
0008000| USING OPGM1,BASER R12 IS BASE FOR PGM * ~4723R~ 00080001↵
*******|*l*t**l*** END OF FILE *******Lig:OFF *********************************************