2 Assemble ../../../as/summary_call.casl (0)
4 Assemble ../../../as/summary_lderr.casl (0)
27 Assemble ../../../as/summary_call.casl (1)
28 ../../../as/summary_call.casl:1:MAIN START
29 ../../../as/summary_call.casl:2: LAD GR1,DATA
32 ../../../as/summary_call.casl:3: LD GR0,CNT
35 ../../../as/summary_call.casl:4: CALL SUMMARY
38 ../../../as/summary_call.casl:5: RET
40 ../../../as/summary_call.casl:6:DATA DC #9600,#F000,#A400
44 ../../../as/summary_call.casl:7:CNT DC 3
46 ../../../as/summary_call.casl:8: END
48 Assemble ../../../as/summary_lderr.casl (1)
49 ../../../as/summary_lderr.casl:1:SUMMARY START
50 ../../../as/summary_lderr.casl:2: RPUSH
65 ../../../as/summary_lderr.casl:3:; カウンタ領域と出力バッファを初期化
66 ../../../as/summary_lderr.casl:4: LD GR2,=0
70 ../../../as/summary_lderr.casl:5: LD GR3,=' '
74 ../../../as/summary_lderr.casl:6: LD GR4,=0 ; ループカウンタ
78 ../../../as/summary_lderr.casl:7: LAD GR5,PBUF ; 出力バッファのポインタ
81 ../../../as/summary_lderr.casl:8:LOOP1 ST GR2,COUNTR,GR4 ; カウンタ領域を初期化
84 ../../../as/summary_lderr.casl:9: ST GR3,0,GR5 ; 出力バッファを空白で初期化
87 ../../../as/summary_lderr.casl:10: ST GR3,1,GR5
90 ../../../as/summary_lderr.casl:11: ST GR3,2,GR5
93 ../../../as/summary_lderr.casl:12: LAD GR5,3,GR5 ; 出力バッファのポインタを更新
96 ../../../as/summary_lderr.casl:13: LAD GR4,1,GR4 ; ループカウンタを更新
99 ../../../as/summary_lderr.casl:14: CPA GR4,=16
103 ../../../as/summary_lderr.casl:15: JMI LOOP1
106 ../../../as/summary_lderr.casl:16:; 項目ごとに "はい" と答えた人数を集計
107 ../../../as/summary_lderr.casl:17: LD GR5,=0 ; GR5: "はい" の人数の最大値
111 ../../../as/summary_lderr.casl:18:LOOP2 LD GR4,=0 ; カウンタ領域のポインタ
115 ../../../as/summary_lderr.casl:19: LD GR2,0,GR1 ; GR2 ←1人分の回答
118 ../../../as/summary_lderr.casl:20:LOOP3 SLL GR2,1 ; 回答は "はい" ?
121 ../../../as/summary_lderr.casl:21: JOV ON
124 ../../../as/summary_lderr.casl:22: JZE NEXTW ; 残りの項目はすべて "いいえ"
127 ../../../as/summary_lderr.casl:23: JUMP OFF
130 ../../../as/summary_lderr.casl:24:ON LD GR3,COUNTR,GR4 ; カウンタに1を加算
133 ../../../as/summary_lderr.casl:25: ADDA GR3,=1
137 ../../../as/summary_lderr.casl:26: ST GR3,COUNTR,GR4
140 ../../../as/summary_lderr.casl:27: CPA GR3,GR5 ; 最大値と比較
142 ../../../as/summary_lderr.casl:28: JPL CHANGE
145 ../../../as/summary_lderr.casl:29: JUMP OFF
148 ../../../as/summary_lderr.casl:30:CHANGE LD GR5,GR3 ; 最大値を入替え
150 ../../../as/summary_lderr.casl:31:OFF LAD GR4,1,GR4 ; 次の項目
153 ../../../as/summary_lderr.casl:32: JUMP LOOP3
156 ../../../as/summary_lderr.casl:33:NEXTW LAD GR1,1,GR1
159 ../../../as/summary_lderr.casl:34: SUBA GR0,=1 ; 全回答処理済?
163 ../../../as/summary_lderr.casl:35: JPL LOOP2
166 ../../../as/summary_lderr.casl:36:; 集計結果を棒グラフで出力
167 ../../../as/summary_lderr.casl:37: LD GR5,GR5
169 ../../../as/summary_lderr.casl:38: JZE FIN
172 ../../../as/summary_lderr.casl:39: LD GR0,='*'
176 ../../../as/summary_lderr.casl:40:LOOP4 LD GR3,=1 ; 出力バッファのポインタ
180 ../../../as/summary_lderr.casl:41: LD GR4,0 ; カウンタ領域のポインタ
183 ../../../as/summary_lderr.casl:42:LOOP5 CPA GR5,COUNTR,GR4 ; "はい" の人数と比較
186 ../../../as/summary_lderr.casl:43: JNZ NOTSET
189 ../../../as/summary_lderr.casl:44: ST GR0,PBUF,GR3 ; 出力バッファに "*" を設定
192 ../../../as/summary_lderr.casl:45:NOTSET LAD GR3,3,GR3 ; 出力バッファのポインタを更新
195 ../../../as/summary_lderr.casl:46: LAD GR4,1,GR4 ; カウンタ領域のポインタを更新
198 ../../../as/summary_lderr.casl:47: CPA GR4,=16
202 ../../../as/summary_lderr.casl:48: JMI LOOP5
205 ../../../as/summary_lderr.casl:49: OUT PBUF,PLEN
225 ../../../as/summary_lderr.casl:50: SUBA GR5,=1
229 ../../../as/summary_lderr.casl:51: JPL LOOP4
232 ../../../as/summary_lderr.casl:52:FIN OUT FOOTER,PLEN
252 ../../../as/summary_lderr.casl:53: RPOP
260 ../../../as/summary_lderr.casl:54: RET
262 ../../../as/summary_lderr.casl:55:COUNTR DS 16 ; カウンタ領域
279 ../../../as/summary_lderr.casl:56:PLEN DC 48
281 ../../../as/summary_lderr.casl:57:PBUF DS 48 ; 出力バッファ
330 ../../../as/summary_lderr.casl:58:FOOTER DC '01 02 03 04 05 06 07 08 09 10 11 12 13 '
370 ../../../as/summary_lderr.casl:59: DC '14 15 16 '
380 ../../../as/summary_lderr.casl:60: END
381 Execute error - 206: PR:#005F: Address - out of COMET II memory