Return to mdef CVS log

Up to [Synchronet] / sbbs / lciol

Annotation of sbbs/lciol/mdef, revision 1.1.1.1

1.1       root        1:        .xlist
                      2: %       title   @filename
                      3:        page    60,132
                      4:        .xcref
                      5:        .sall
                      6: 
                      7: ; Define Storage
                      8: ; format:  dss {1,2,4,6,8},name
                      9: ;         dss {1-65535}
                     10: 
                     11: ds1    equ     <label byte>
                     12: ds2    equ     <label word>
                     13: ds4    equ     <label dword>
                     14: ds6    equ     <label fword>
                     15: ds8    equ     <label qword>
                     16: 
                     17: dss    macro   nb,nm
                     18:        ifnb    <nm>
                     19: %    nm        ds&nb
                     20:        endif
                     21:        org     $+nb
                     22:        endm
                     23: 
                     24: 
                     25: ; Define Memory Model
                     26: ; format:  setmod {s,c,m,l,h}
                     27: 
                     28: mdls   equ     <small>
                     29: mdlc   equ     <compact>
                     30: mdlm   equ     <medium>
                     31: mdll   equ     <large>
                     32: mdlh   equ     <huge>
                     33:     ifndef mm
                     34: mm     equ     <s>
                     35:     endif
                     36: 
                     37: setmod macro   mtype
                     38:     ifdef mdl&mtype
                     39:        .8086
                     40: % aa   equ     <.model mdl&mtype>
                     41: %      aa
                     42: %      asyn    <mdl&mtype>
                     43: pb     equ     (@codesize shl 1)+4
                     44:     else
                     45:        asyn    <error: '&mtype' undefined>
                     46:     endif
                     47:        endm
                     48: asyn   macro   msg
                     49:     if2
                     50: %      %out    *** &msg memory model ***
                     51:     endif
                     52:        endm
                     53: 
                     54: 
                     55: ; Directives
                     56: 
                     57: os     equ     <offset>
                     58: s      equ     <short>
                     59: mb     equ     <byte ptr>
                     60: mw     equ     <word ptr>
                     61: ml     equ     <dword ptr>
                     62: 
                     63:        .386P
                     64: 
                     65: eopg   macro
                     66:        .list
                     67:        page
                     68:        endm
                     69: 
                     70: liston macro
                     71:        .list
                     72:        endm
                     73:        .cref
                     74:        liston

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.