home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 3 / FREEWARE.BIN / towns_os / ab2jack / ab2jack.asm < prev    next >
Assembly Source File  |  1980-01-02  |  1KB  |  92 lines
  1.         ASSUME    CS:CODE,DS:DATA
  2. CODE        SEGMENT
  3. ENTRY        PROC
  4.         MOV    AX,DATA
  5.         MOV    DS,AX
  6. ;
  7. ;    OPEN FILE
  8. ;
  9.         MOV    AH,3DH
  10.         MOV    AL,42H
  11.         LEA    DX,[FNAME]
  12.         INT    21H
  13.         MOV    [HANDLE],AX
  14. ;
  15. ;    A Button -> Mach 3
  16. ;
  17. ;SET POINTER
  18.         MOV    AH,42H
  19.         MOV    AL,0
  20.         MOV    BX,[HANDLE]
  21.         MOV    CX,0
  22.         MOV    DX,AHIGHA
  23.         INT    21H
  24. ;WRITE DATA
  25.         MOV    AH,40H
  26.         LEA    DX,[AHIGH]
  27.         MOV    CX,AHIGHL
  28.         MOV    BX,[HANDLE]
  29.         INT    21H
  30. ;
  31. ;    Fly Low Speed
  32. ;
  33. ;SET POINTER
  34.         MOV    AH,42H
  35.         MOV    AL,0
  36.         MOV    BX,[HANDLE]
  37.         MOV    CX,0
  38.         MOV    DX,FLYLOA
  39.         INT    21H
  40. ;WRITE DATA
  41.         MOV    AH,40H
  42.         LEA    DX,[FLYLO]
  43.         MOV    CX,FLYLOL
  44.         MOV    BX,[HANDLE]
  45.         INT    21H
  46. ;
  47. ;    Auto Balcan
  48. ;
  49. ;SET POINTER
  50.         MOV    AH,42H
  51.         MOV    AL,0
  52.         MOV    BX,[HANDLE]
  53.         MOV    CX,0
  54.         MOV    DX,BALCNA
  55.         INT    21H
  56. ;WRITE DATA
  57.         MOV    AH,40H
  58.         LEA    DX,[BALCN]
  59.         MOV    CX,BALCNL
  60.         MOV    BX,[HANDLE]
  61.         INT    21H
  62. ;
  63. ;    CLOSE HANDLE
  64. ;
  65.         MOV    AH,3EH
  66.         MOV    BX,[HANDLE]
  67.         INT    21H
  68. ;
  69.         MOV    AH,4CH
  70.         INT    21H
  71. ENTRY        ENDP
  72. CODE        ENDS
  73. ;
  74. DATA        SEGMENT
  75. HANDLE        DW    0
  76. FNAME        DB    "AB2.EXP",0
  77. AHIGHA        EQU    0FAD0H
  78. AHIGHL        EQU    0AH
  79. AHIGH        DB    8BH,15H,40H,2FH,08H,00H,90H,80H,0E2H,10H
  80. FLYLOA        EQU    0FADFH
  81. FLYLOL        EQU    01H
  82. FLYLO        DB    0EBH
  83. BALCNA        EQU    0FB5DH
  84. BALCNL        EQU    5
  85. BALCN        DB    0B2H,01H,90H,90H,90H
  86. DATA        ENDS
  87. ;
  88. STACK        SEGMENT    STACK
  89.         DB    1024 DUP(0)
  90. STACK        ENDS
  91.         END    ENTRY
  92.