S1 Wiki

実メモリを1ページ分解放します。

AccAに格納されているページ番号の実メモリを解放します。

AccA:解放する実メモリのページ番号

実メモリを1ページずつ予約し、空きメモリがなくなったらワーク・エリアに格納されている、実メモリのページ番号1ページずつ解放します。

 0           0000   MMRFRE  EQU  *          --SAMPLE OF "MMRFRE" ROUTINE--
 1 C000                     ORG  $C000
 2 C000   34 40             PSHS U
 3           C002   STEP1   EQU  *          ----- STEP 1 -----
 4 C002   33 BD0022         LEAU WRKTOP,PCR U:TOP ADDR. OF WORK AREA
 5 C006   5F                CLRB            B:STACK COUNTER
 6 C007 103F        LOOP    SWI2            CALL "MMWIND" ROUTINE
 7 C009      40             FCB  $40        MAP NO=0 ROUTINE NO=4
 8 C00A      04             FCB  $04
 9 C00B   25 01             BCS  STEP2      IF NONMEMORY THEN STEP2
10 C00D   36 02             PSHU A          A:MEMORY PAGE NO
11 C00F   5C                INCB            STACK COUNTER INC.
12 C010   20 F5             BRA  LOOP       B:STACK COUNTER
13           C012   STEP2   EQU  *          ----- STEP 2 -----
14 C012   37 02     LOOP2   PULU A          A:MEMORY PAGE NO
15 C014 103F                SWI2            CALL "MMRFRE" ROUTINE
16 C016      40             FCB  $40        MAP NO=0 ROUTINE NO=5
17 C017      05             FCB  $05
18 C018   5A                DECB
19 C019   26 F7             BNE  LOOP2      DATA END?
20 C01B   35 40             PULS U
21 C01D   39                RTS
22 C01E      000A           RMB  10         END OF WORK AREA
23           C028   WRKTOP  EQU  *          TOP OF WORK AREA
24                          END