Simtel MSDOS - Coast to Coast/simteldosarchivecoasttocoast2.iso/turbopas/pstui100.zip/SWAPCARD.PAS

Pascal/Delphi Source File | 1993-02-09 | 495b | 19 lines

  Case Card Of
    MonoCard  :Asm
                 xor     ax, ax
                 mov     es, ax
                 mov     ax, es:410h
                 or      ax, 30h
                 mov     es:410h, ax
               End;

    ColorCard :Asm
                 xor     ax, ax
                 mov     es, ax
                 mov     ax, es:410h
                 or      ax, 20h
                 and     ax, 0EFh
                 mov     es:410h, ax
               End;
  End;