INCLUDE "D1:>ACTION>RUN_TIME>SYSLIB.ACT"›INCLUDE "D1:>ACTION>RUN_TIME>SYSIO.ACT"››PROC Stop()››   [$A2$FF$9A$6C$0A$00]››PROC MIO()››   BYTE A16=$D1E2,                ; Address bits A19-A16›        A8=$D1E0,                 ; Address bits A15-A8›        TA16,                     ; Temporary area to save original A16›        TA8,                      ; Temporary area to save A8›        i››   BYTE POINTER ConfigTable=$D610 ; Beginning address of configuration table›   BYTE ARRAY buff(112)           ; Temporary storage area for the configuration table›   ›   ; Have to copy the configuration table before using the›   ; file. Using the file will switch the MIO page in the›   ; middle of the program.››   Open(1, "D1:MIO.CNG", 4, 0)››   FOR i=0 TO 111 DO              ; Read configuration data from disk›      buff(i) = GetD(1)›   OD››   Close(1)››   Print("Configuring MIO...")››   TA16 = A16                     ; Save old value of address lines›   TA8 = A8››   A8 = 0                         ; Enable page zero of MIO›   A16 = $20››   FOR i=0 TO 111 DO              ; Store the configuration table in the MIO page zero›      ConfigTable(i) = buff(i)›   OD››   A16 = TA16 & $DF               ; Restore original MIO page›   A8 = TA8                       ; and disable it.››   PrintE("Done")›   Stop()››RETURN›