?login_element?

Subversion Repositories NedoOS

Rev

Rev 922 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1. FALSE   equ     0
  2. TRUE    equ     not FALSE
  3.  
  4. CPM:    EQU 1           ;true if running under CP/M or MP/M II; else 0
  5. MPM2:   EQU 0           ;true only if running under MP/M II
  6. NEDOOS EQU 1
  7.  
  8.  
  9.         macro FUNCTION name
  10. _org=$
  11.         org _
  12.         dc name
  13.         dw _org-begin
  14. _=$
  15.         org _org
  16.         endm
  17.        
  18.         macro FUNCHEAD sz
  19.         db 0
  20.         dw sz
  21. __=$
  22.         disp 0
  23.         endm
  24.  
  25.         macro ENDFUNC sz,npars
  26.         ent
  27. sz=$-__
  28.         dw npars
  29.         if npars >= 1
  30.         dw _1
  31.         endif
  32.         if npars >= 2
  33.         dw _2
  34.         endif
  35.         if npars >= 3
  36.         dw _3
  37.         endif
  38.         if npars >= 4
  39.         dw _4
  40.         endif
  41.         if npars >= 5
  42.         dw _5
  43.         endif
  44.         if npars >= 6
  45.         dw _6
  46.         endif
  47.         if npars >= 7
  48.         dw _7
  49.         endif
  50.         if npars >= 8
  51.         dw _8
  52.         endif
  53.         if npars >= 9
  54.         dw _9
  55.         endif
  56.         if npars >= 10
  57.         dw _10
  58.         endif
  59.         if npars >= 11
  60.         dw _11
  61.         endif
  62.         if npars >= 12
  63.         dw _12
  64.         endif
  65.         if npars >= 13
  66.         dw _13
  67.         endif
  68.         if npars >= 14
  69.         dw _14
  70.         endif
  71.         if npars >= 15
  72.         dw _15
  73.         endif
  74.         if npars >= 16
  75.         dw _16
  76.         endif
  77.         if npars >= 17
  78.         dw _17
  79.         endif
  80.         if npars >= 18
  81.         dw _18
  82.         endif
  83.         if npars >= 19
  84.         dw _19
  85.         endif
  86.         if npars >= 20
  87.         dw _20
  88.         endif
  89.         if npars >= 21
  90.         dw _21
  91.         endif
  92.         if npars >= 22
  93.         dw _22
  94.         endif
  95.         if npars >= 23
  96.         dw _23
  97.         endif
  98.         if npars >= 24
  99.         dw _24
  100.         endif
  101.         if npars >= 25
  102.         dw _25
  103.         endif
  104.         if npars >= 26
  105.         dw _26
  106.         endif
  107.         if npars >= 27
  108.         dw _27
  109.         endif
  110.         if npars >= 28
  111.         dw _28
  112.         endif
  113.         if npars >= 29
  114.         dw _29
  115.         endif
  116.         if npars >= 30
  117.         dw _30
  118.         endif
  119.         if npars >= 31
  120.         dw _31
  121.         endif
  122.         if npars >= 32
  123.         dw _32
  124.         endif
  125.         if npars >= 33
  126.         dw _33
  127.         endif
  128.         if npars >= 34
  129.         dw _34
  130.         endif
  131.         if npars >= 35
  132.         dw _35
  133.         endif
  134.         if npars >= 36
  135.         dw _36
  136.         endif
  137.         if npars >= 37
  138.         dw _37
  139.         endif
  140.         if npars >= 38
  141.         dw _38
  142.         endif
  143.         if npars >= 39
  144.         dw _39
  145.         endif
  146.         if npars >= 40
  147.         dw _40
  148.         endif
  149.         if npars >= 41
  150.         dw _41
  151.         endif
  152.         if npars >= 42
  153.         dw _42
  154.         endif
  155.         if npars >= 43
  156.         dw _43
  157.         endif
  158.         if npars >= 44
  159.         dw _44
  160.         endif
  161.         if npars >= 45
  162.         dw _45
  163.         endif
  164.         if npars >= 46
  165.         dw _46
  166.         endif
  167.         if npars >= 47
  168.         dw _47
  169.         endif
  170.         if npars >= 48
  171.         dw _48
  172.         endif
  173.         if npars >= 49
  174.         dw _49
  175.         endif
  176.         if npars >= 50
  177.         dw _50
  178.         endif
  179.         if npars >= 51
  180.         dw _51
  181.         endif
  182.         if npars >= 52
  183.         dw _52
  184.         endif
  185.         if npars >= 53
  186.         dw _53
  187.         endif
  188.         if npars >= 54
  189.         dw _54
  190.         endif
  191.         if npars >= 55
  192.         dw _55
  193.         endif
  194.         if npars >= 56
  195.         dw _56
  196.         endif
  197.         if npars >= 57
  198.         dw _57
  199.         endif
  200.         if npars >= 58
  201.         dw _58
  202.         endif
  203.         if npars >= 59
  204.         dw _59
  205.         endif
  206.         if npars >= 60
  207.         dw _60
  208.         endif
  209.         if npars >= 61
  210.         dw _61
  211.         endif
  212.         if npars >= 62
  213.         dw _62
  214.         endif
  215.         if npars >= 63
  216.         dw _63
  217.         endif
  218.         if npars >= 64
  219.         dw _64
  220.         endif
  221.         if npars >= 65
  222.         dw _65
  223.         endif
  224.         if npars >= 66
  225.         dw _66
  226.         endif
  227.         if npars >= 67
  228.         dw _67
  229.         endif
  230.         if npars >= 68
  231.         dw _68
  232.         endif
  233.         if npars >= 69
  234.         dw _69
  235.         endif
  236.         if npars >= 70
  237.         dw _70
  238.         endif
  239.         if npars >= 71
  240.         dw _71
  241.         endif
  242.         if npars >= 72
  243.         dw _72
  244.         endif
  245.         if npars >= 73
  246.         dw _73
  247.         endif
  248.         if npars >= 74
  249.         dw _74
  250.         endif
  251.         endm
  252.  
  253.         macro EXTERNAL name
  254.         dc name
  255.         endm
  256.  
  257.         org 0x100
  258.         include "ccc.asm"
  259.  
  260.         INCLUDE "bds.lib"
  261.  
  262.         ;align 128 ;doesn't help
  263. begin
  264. _=$
  265.         ds 512,0x80 ;end=0x80
  266.         db 0x80
  267.         dw 0x0205
  268.         dw 0x4646
  269.