現在、オープンされているファイル番号1をクローズします。
0 C000 ZCLOSE EQU * --SAMPLE OF "ZCLOSE" ROUTINE--
1 C000 20 01 BRA EXEC
2 C002 01 FILENO FCB $01 FILE NO
3 C003 A6 8CFC LDB FILENO,PCR A:FILE NO
4 C006 103F SWI2 CALL "ZCLOSE" ROUTINE
5 C008 41 FCB $41 MAP NO=1 ROUTINE NO=15
6 C009 0F FCB $0F
7 C00A 39 RTS
コメントをかく