home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / dpl.zip / DPL.MAC < prev    next >
Text File  |  1988-07-11  |  9KB  |  602 lines
  1. ; Doug's Programming Language  -- DPL, Version 2.22
  2. ; Copyright (c) 1988 Douglas S. Cody, All rights reserved.
  3. ;
  4.     .XLIST
  5. ;
  6. ;------------------------====< DPL LANGUAGE MACROS >====-----------------------
  7. ;
  8. PROG    MACRO    EXTNAM
  9.     NAME    EXTNAM
  10.     PAGE    64,131
  11.     TITLE    DPL 8086 MACRO, VERSION 2.22
  12. ;
  13. DATA    SEGMENT PUBLIC PARA 'DATA'
  14. @@@DPLMAIN    EQU    0FFH    ;; DECLARES A MAIN PROGRAM
  15. ;
  16.     ENDM
  17. ;
  18. ;------------------------===============================-----------------------
  19. ;
  20. SUBPGM    MACRO    EXTNAM
  21.     NAME    EXTNAM
  22.     PAGE    64,131
  23.     TITLE    DPL 8086 MACRO'S, VERSION 2.22
  24. ;
  25. DATA    SEGMENT PUBLIC PARA 'DATA'
  26. @@@DPLSUB    EQU    0FFH    ;; DECLARES A SUBROUTINE
  27.     ENDM
  28. ;
  29. ;----------------
  30. ;
  31. BEGIN    MACRO    EXTNAM
  32. ;
  33. ; DPL EXTERNAL DATA
  34. ;
  35.     IFNDEF    @@@DPLDAT
  36.     EXTRN    STATUS:WORD, ZERO:WORD, @CR_LF:BYTE
  37.     EXTRN    NULL:BYTE, EJECT:BYTE, BEEP:BYTE
  38.     EXTRN    CRTFLAG:BYTE, VIDPAGE:BYTE, @DPLVER:BYTE
  39.     EXTRN    @@@DPLREC:WORD
  40.     ENDIF
  41. ;
  42. DATA    ENDS
  43. ;
  44.     IFDEF    @@@DPLMAIN
  45. STACK    SEGMENT    STACK 'DGROUP'
  46.     DW    256 DUP(?)
  47. STACKD    LABEL    WORD
  48. STACK    ENDS
  49.     ENDIF
  50. ;
  51. CODE    SEGMENT    PUBLIC PARA 'CODE'
  52.     IFDEF    @@@DPLMAIN
  53.     ASSUME    CS:CODE,DS:DATA,SS:STACK
  54.     ELSE
  55.     ASSUME    CS:CODE,DS:DATA
  56.     ENDIF
  57. ;
  58.     IFDEF    @@@DPLMAIN
  59.     PUBLIC    EXTNAM
  60. EXTNAM    PROC    FAR
  61.     EXTRN    _DPLINIT:NEAR
  62.     CLI
  63.     MOV    AX,OFFSET STACKD
  64.     MOV    SP,AX
  65.     MOV    AX,SEG DATA
  66.     MOV    DS,AX
  67.     STI
  68.     CALL    _DPLINIT
  69.     ELSE
  70.     PUBLIC    EXTNAM
  71. EXTNAM    PROC    NEAR
  72.     ENDIF
  73.     ENDM
  74. ;
  75. ;----------------
  76. ;
  77. ENDPGM    MACRO    EXTNAM
  78. ;
  79. EXTNAM    ENDP
  80. CODE    ENDS
  81. ;
  82. ZSEG    SEGMENT    PARA MEMORY
  83. ZSEG    ENDS
  84.     END    EXTNAM
  85.     ENDM
  86. ;
  87. ;---------------====< DATA DECLARATIONS >====--------------
  88. ;
  89. ; B U F F E R   MACRO
  90. ;
  91. BUFFER    MACRO    LABL,LNGTH
  92.     LOCAL    ENDBUF
  93. LABL    DW    ENDBUF-$-4
  94.     DW    00
  95.     DB    LNGTH DUP(?)
  96. ENDBUF    DB    00
  97.     ENDM
  98. ;
  99. ;----------------
  100. ; F I L E   MACRO
  101. ;
  102. @FFCLA    EQU    0        ; 0  (2) FILE CLASS
  103. @FFHAN    EQU    @FFCLA+2    ; 2  (2) FILE HANDLE
  104. @FFPTRL    EQU    @FFHAN+2    ; 4  (2) FILE POINTER LOW WORD
  105. @FFPTRH    EQU    @FFPTRL+2    ; 6  (2) FILE POINTER HIGH WORD
  106. @FFBUF    EQU    @FFPTRH+2    ; 8  (2) BUFFER ADDRESS
  107. @FFBPTR EQU    @FFBUF+2    ; 10 (2) BUFFER POINTER
  108. @FFSPEN    EQU    @FFBPTR+2    ; 12 (1) PENDING STATUS
  109. @FFSTA    EQU    @FFSPEN+1    ; 13 (1) STATUS OF FILE
  110. @FFOPN    EQU    @FFSTA+1    ; 14 (1) FILE OPEN STATE
  111. @FFNAM    EQU    @FFOPN+1    ; 15 (2) FILE NAME
  112. ;
  113. @FFKYW    EQU    @FFBPTR        ; 10  (2) FILE KEY INTEGER OFFSET
  114. ;
  115. ; F I L E   C L A S S   VALUES
  116. ; 
  117. @FFASC    EQU    0    ; ASCII DEVICE ACCESS
  118. @FFASF    EQU    2    ; ASCII STRING FILE ACCESS
  119. @FFBIN    EQU    4    ; BINARY/ASCII RECORD FILE ACCESS
  120. @FFBIR    EQU    6    ; RANDOM BINARY/ASCII RECORD FILE ACCESS
  121. ;
  122. ; FIOBUFFER WILL DOUBLE FOR RECORD SIZE IN 'R' FILES
  123. ;
  124. FILE    MACRO    NAME,DES,CLASS,FIOBUFFER,FIOKEY
  125. LOCAL    FIOBUF
  126.     IFB    <CLASS>
  127. NAME    LABEL    WORD
  128.     DW    @FFASC            ;; CLASS
  129.     DW    6 DUP(00)        ;; HANDLE,PTRL,PTRH
  130.     DB    0FFH            ;; OPEN STATE
  131.     DB    DES,0            ;; FILE NAME        
  132.     ENDIF
  133. ;;
  134.     IFIDN    <&CLASS>,<A>
  135. NAME    LABEL    WORD
  136.     DW    @FFASF            ;; CLASS
  137.     DW    3 DUP(00)        ;; HANDLE,PTRL,PTRH
  138.     IFB    <FIOBUFFER>
  139.     DW    OFFSET FIOBUF        ;; BUFFER OFFSET
  140.     DW    OFFSET FIOBUF+@RDAT    ;; BUFFER DATA POINTER
  141.     ELSE
  142.     DW    OFFSET FIOBUFFER    ;; BUFFER OFFSET
  143.     DW    OFFSET FIOBUFFER+@RDAT    ;; BUFFER DATA POINTER
  144.     ENDIF
  145.     DW    00            ;; PENDING/STATUS
  146.     DB    0FFH            ;; OPEN STATE
  147.     DB    DES,0            ;; FILE NAME        
  148.     IFB    <FIOBUFFER>
  149. BUFFER    FIOBUF,256
  150.     ENDIF
  151.     ENDIF
  152. ;;
  153.     IFIDN    <&CLASS>,<B>
  154. NAME    LABEL    WORD
  155.     DW    @FFBIN            ;; CLASS
  156.     DW    3 DUP(0)        ;; HANDLE,PTRL,PTRH
  157.     IFB    <FIOBUFFER>
  158.     DW    OFFSET FIOBUF        ;; BUFFER OFFSET
  159.     DW    OFFSET FIOBUF+@RDAT    ;; BUFFER DATA POINTER
  160.     ELSE
  161.     DW    OFFSET FIOBUFFER    ;; BUFFER OFFSET
  162.     DW    OFFSET FIOBUFFER+@RDAT    ;; BUFFER DATA POINTER
  163.     ENDIF
  164.     DW    00            ;; PENDING/STATUS
  165.     DB    0FFH            ;; OPEN STATE
  166.     DB    DES,0            ;; FILE NAME        
  167.     IFB    <FIOBUFFER>
  168. BUFFER    FIOBUF,256
  169.     ENDIF
  170.     ENDIF
  171. ;;
  172.     IFIDN    <&CLASS>,<R>
  173. NAME    LABEL    WORD
  174.     DW    @FFBIR            ;; CLASS
  175.     DW    3 DUP(0)        ;; HANDLE,PTRL,PTRH
  176.     DW    00            ;; NO BUFFER
  177.     DW    FIOBUFFER        ;; KEY OFFSET
  178.     DW    00            ;; PENDING/STATUS
  179.     DB    0FFH            ;; OPEN STATE
  180.     DB    DES,0            ;; FILE NAME        
  181.     ENDIF
  182. ;;
  183.     ENDM
  184. ;
  185. ;----------------
  186. ;
  187. INTEGER    MACRO    LABL
  188. LABL    DW    00
  189.     ENDM
  190. ;
  191. ;---------------
  192. ;
  193. DEFINE    MACRO    LABL,STRNG
  194. LABL    DB    STRNG
  195.     DB    0
  196.     ENDM
  197. ;
  198. ;---------------
  199. ;
  200. ENDREC    MACRO    LABL
  201.     IFB    <LABL>
  202.     ERROR -- ENDREC requires a record name
  203.     ELSE
  204.     ORG    LABL+@RECSIZ+@RDAT
  205.     ENDIF
  206.     ENDM
  207. ;
  208. ;---------------
  209. ; RECORD MACRO
  210. ;
  211. @RLEN    EQU    0
  212. @RCUR    EQU    2
  213. @RDAT    EQU    4
  214. ;
  215. REC    MACRO    LABL,LNGTH
  216.     LOCAL    LAB
  217. @RECSIZ =    LNGTH
  218. LABL    DW    LNGTH
  219.     DW    00
  220.     ENDM
  221. ;
  222. ;---------------
  223. ;
  224. SET    MACRO    LABL,NUM
  225. LABL    DW    NUM
  226.     ENDM
  227. ;
  228. ;---------------
  229. ;
  230. STRING    MACRO    LABL,LNGTH
  231.     IFB    <LENGTH>
  232.     ERROR - STRING needs a length
  233.     ELSE
  234. LABL    DB    LNGTH DUP(?)
  235.     DB    0
  236.     ENDIF
  237.     ENDM
  238. ;
  239. ;-----------< REDEFINING MACROS >--------------
  240. ;
  241. @FILEIO    MACRO
  242.     EXTRN    _FILEIO:NEAR,_FWRT:NEAR,   _FREAD:NEAR, _FOPEN:NEAR
  243.     EXTRN    _FCLOSE:NEAR,_FNOTE:NEAR, _FPOINT:NEAR
  244. @FILEIO    MACRO
  245.     ENDM
  246.     ENDM
  247. ;
  248. @CRSR    MACRO
  249.     EXTRN    _CRSR:NEAR
  250. @CRSR    MACRO
  251.     ENDM
  252.     ENDM
  253. ;
  254. @DEC    MACRO
  255.     EXTRN    _DEC:NEAR
  256. @DEC    MACRO
  257.     ENDM
  258.     ENDM
  259. ;
  260. @DV1616    MACRO
  261.     EXTRN    _DV1616:NEAR
  262. @DV1616    MACRO
  263.     ENDM
  264.     ENDM
  265. ;
  266. @ENC    MACRO
  267.     EXTRN    _ENC:NEAR
  268. @ENC    MACRO
  269.     ENDM
  270.     ENDM
  271. ;
  272. @IFSTR    MACRO
  273.     EXTRN    _IFSEQ:NEAR,  _IFSNE:NEAR
  274. @IFSTR    MACRO
  275.     ENDM
  276.     ENDM
  277. ;
  278. @INKY    MACRO
  279.     EXTRN    _INKY:NEAR
  280. @INKY    MACRO
  281.     ENDM
  282.     ENDM
  283. ;
  284. @ITOBS    MACRO
  285.     EXTRN    _ITOBS:NEAR
  286. @ITOBS    MACRO
  287.     ENDM
  288.     ENDM
  289. ;
  290. @ITOHS    MACRO
  291.     EXTRN    _ITOHS:NEAR
  292. @ITOHS    MACRO
  293.     ENDM
  294.     ENDM
  295. ;
  296. @HSTOI    MACRO
  297.     EXTRN    _HSTOI:NEAR
  298. @HSTOI    MACRO
  299.     ENDM
  300.     ENDM
  301. ;
  302. @SCONCAT MACRO
  303.     EXTRN    _SCONCAT:NEAR, _STREND:NEAR, _STRLEN:NEAR
  304. @SCONCAT MACRO
  305.     ENDM
  306.     ENDM
  307. ;
  308. ;-----------< CODE MACROS >-----------
  309. ;
  310. CLOSE    MACRO    FNAME
  311.     @FILEIO
  312.     MOV    SI,OFFSET FNAME
  313.     CALL    _FCLOSE
  314.     ENDM
  315. ;
  316. ;---------------
  317. ;
  318. CURSOR    MACRO    X,Y
  319.     @CRSR
  320.     MOV    AX,X
  321.     MOV    DX,Y
  322.     CALL    _CRSR
  323.     ENDM
  324. ;
  325. ;---------------
  326. ;
  327. DECODE    MACRO    INTGR,STRNG
  328.     @DEC
  329.     MOV    SI,OFFSET STRNG
  330.     CALL    _DEC
  331.     MOV    INTGR,AX
  332.     ENDM
  333. ;
  334. ;----------------
  335. ; 
  336. ENCODE    MACRO    STRNG,INTGR
  337.     @ENC
  338.     MOV    AX,INTGR
  339.     MOV    DI,OFFSET STRNG
  340.     CALL    _ENC
  341.     ENDM
  342. ;
  343. ;---------------
  344. ;
  345. GOTO    MACRO    LABL
  346.     JMP    LABL
  347.     ENDM
  348. ;    
  349. ;---------------
  350. ;
  351. HSTOI    MACRO    INTGR,STRNG
  352.     @HSTOI
  353.     MOV    SI,OFFSET STRNG
  354.     CALL    _HSTOI
  355.     MOV    INTGR,AX
  356.     ENDM
  357. ;
  358. ;---------------
  359. ;
  360. INKEY    MACRO    STRNG,PAUS
  361.     @INKY
  362.     IFIDN    <&PAUS>,<WAIT>
  363.     MOV    DL,0FFH
  364.     ELSE
  365.     SUB    DL,DL
  366.     ENDIF
  367.     CALL    _INKY
  368.     IFNB    <STRNG>
  369.     MOV    WORD PTR [STRNG],AX
  370.     ENDIF
  371.     ENDM
  372. ;
  373. ;---------------
  374. ;
  375. ITOBS    MACRO    STRNG,INTGR,LEN
  376.     @ITOBS
  377.     MOV    AX,INTGR
  378.     IFNB    <LEN>
  379.     MOV    CX,LEN
  380.     ELSE
  381.     ERROR -- NO LENGTH DECLARED !!!
  382.     ENDIF
  383.     MOV    DI,OFFSET STRNG
  384.     CALL    _ITOBS
  385.     ENDM
  386. ;
  387. ;---------------
  388. ;
  389. ITOHS    MACRO    STRNG,INTGR
  390.     @ITOHS
  391.     MOV    BX,INTGR
  392.     MOV    DI,OFFSET STRNG
  393.     CALL    _ITOHS
  394.     ENDM
  395. ;
  396. ;---------------
  397. ;
  398. ; ADD integer
  399. @ADD    MACRO    INTGR
  400.     ADD    AX,WORD PTR INTGR
  401.     ENDM
  402. ;
  403. ; AND integer
  404. @AND    MACRO    INTGR
  405.     IFIDN    <&INTGR>,<1>
  406.     INC    AX
  407.     ELSE
  408.     AND    AX,WORD PTR INTGR
  409.     ENDIF
  410.     ENDM
  411. ;
  412. ; LOAD integer
  413. @LOAD    MACRO    INTGR
  414.     MOV    AX,WORD PTR INTGR
  415.     ENDM
  416. ;
  417. ; MULTIPLY integer
  418. @MULT    MACRO    INTGR
  419.     MOV    BX,WORD PTR INTGR
  420.     IMUL    BX
  421.     ENDM
  422. ;
  423. ; OR integer
  424. @OR    MACRO    INTGR
  425.     OR    AX,WORD PTR INTGR
  426.     ENDM
  427. ;
  428. ; DIVIDE INTEGER
  429. @DIV    MACRO    INTGR
  430.     @DV1616
  431.     MOV    BX,WORD PTR INTGR
  432.     CALL    _DV1616
  433.     ENDM
  434. ;
  435. ; MOD
  436. @MOD    MACRO    INTGR
  437.     @DV1616
  438.     MOV    BX,WORD PTR INTGR
  439.     CALL    _DV1616
  440.     MOV    AX,DX
  441.     ENDM
  442. ;
  443. ; SHIFT LEFT integer
  444. @SHL    MACRO    INTGR
  445.     MOV    CX,WORD PTR INTGR
  446.     SHL    AX,CL
  447.     ENDM
  448. ;
  449. ; SHIFT RIGHT integer
  450. @SHR    MACRO    INTGR
  451.     MOV    CX,WORD PTR INTGR
  452.     SHR    AX,CL
  453.     ENDM
  454. ;
  455. ; STORE    integer
  456. @STOR    MACRO    INTGR
  457.     MOV    WORD PTR INTGR, AX
  458.     ENDM
  459. ;
  460. ; SUBTRACT integer
  461. @SUB    MACRO    INTGR
  462.     IFIDN    <&INTGR>,<1>
  463.     DEC    AX
  464.     ELSE
  465.     SUB    AX,INTGR
  466.     ENDIF
  467.     ENDM
  468. ;
  469. ; XOR integer
  470. @XOR    MACRO    INTGR
  471.     XOR    AX,WORD PTR INTGR
  472.     ENDM
  473. ;
  474. ;---------------
  475. ;
  476. NOTE    MACRO    FNAME,PNTR
  477.     @FILEIO
  478.     MOV    SI,OFFSET FNAME
  479.     MOV    DI,OFFSET PNTR
  480.     CALL    _FNOTE
  481.     ENDM
  482. ;
  483. ;---------------
  484. ;
  485. OPEN    MACRO    ACC,LABL
  486.     @FILEIO
  487.     IFIDN    <&ACC>,<INPUT>
  488.     MOV    AL,00
  489.     ENDIF
  490.     IFIDN    <&ACC>,<OUTPUT>
  491.     MOV    AL,01
  492.     ENDIF
  493.     IFIDN    <&ACC>,<IO>
  494.     MOV    AL,02
  495.     ENDIF
  496.     MOV    SI,OFFSET LABL
  497.     CALL    _FOPEN
  498.     ENDM
  499. ;
  500. ;---------------
  501. ;
  502. POINT    MACRO    FNAME,PNTR
  503.     @FILEIO
  504.     MOV    SI,OFFSET FNAME
  505.     MOV    DI,OFFSET PNTR
  506.     CALL    _FPOINT
  507.     ENDM
  508. ;
  509. ;---------------
  510. ;
  511. READ    MACRO    FNAME,STRNG,BYTES
  512.     @FILEIO
  513.     MOV    SI,OFFSET FNAME
  514.     MOV    DI,OFFSET STRNG
  515.     IFB    <BYTES>
  516.     ERROR -- NO LENGTH DECLARED !!!
  517.     ELSE
  518.     MOV    CX,BYTES
  519.     ENDIF
  520.     CALL    _FREAD
  521.     ENDM
  522. ;
  523. ;---------------
  524. ;
  525. READB    MACRO    FNAME,FREC
  526.     @FILEIO
  527.     MOV    SI,OFFSET FNAME
  528.     MOV    DI,OFFSET FREC
  529.     CALL    _FREAD
  530.     ENDM
  531. ;
  532. ;---------------
  533. ;
  534. RETURN    MACRO    X
  535.     RET
  536.     ENDM
  537. ;
  538. ;---------------
  539. ;
  540. STOP    MACRO    VAL
  541.     MOV    AH,4CH
  542.     IFNB    <&VAL>
  543.     MOV    AL,BYTE PTR VAL
  544.     ELSE
  545.     SUB    AL,AL
  546.     ENDIF
  547.     INT    21H
  548.     ENDM
  549. ;
  550. ;---------------
  551. ;
  552. ; LOAD STRING & TERMINATE
  553. @SMOV    MACRO    STRNG
  554.     MOV    DI,OFFSET STRNG
  555.     MOV    BYTE PTR [DI],00
  556.     ENDM
  557. ;
  558. ; CONCATENATE SOURCE STRING
  559. @SCNCT    MACRO    STRNG
  560.     @SCONCAT
  561.     MOV    SI,OFFSET STRNG
  562.     CALL    _SCONCAT
  563.     ENDM
  564. ;
  565. ; MOVE TO END OF STRING
  566. @SCATSME MACRO    STRNG
  567.     @SCONCAT
  568.     MOV    SI,OFFSET STRNG
  569.     CALL    _STREND
  570.     MOV    DI,SI
  571.     ENDM
  572. ;
  573. ;---------------
  574. ;
  575. WRITE    MACRO    FNAME,STRNG,CRFLG
  576.     @FILEIO
  577.     MOV    DI,OFFSET FNAME
  578.     IFNB    <&STRNG>
  579.     MOV    SI,OFFSET STRNG
  580.     ELSE
  581.     SUB    SI,SI
  582.     ENDIF
  583.     IFIDN    <&CRFLG>,<CR>
  584.     MOV    AL,0FFH
  585.     ELSE
  586.     SUB    AL,AL
  587.     ENDIF
  588.     CALL    _FWRT
  589.     ENDM
  590. ;
  591. ;---------------
  592. ;
  593. WRITEB    MACRO    FNAME,FREC
  594.     @FILEIO
  595.     MOV    DI,OFFSET FNAME
  596.     MOV    SI,OFFSET FREC
  597.     CALL    _FWRT
  598.     ENDM
  599. ;
  600.     .LIST
  601.     .LALL
  602.