home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OSK / TELECOM / mtp.lzh / mtpvalid.a < prev    next >
Text File  |  1993-09-05  |  2KB  |  55 lines
  1. * mtpvalid.a, Version 1.1, Created 2/9/90
  2. * Dr Alan M. McIvor, BP Sunbury Research Centre
  3.  
  4.        use <oskdefs.d>
  5.  
  6. Typ    equ     1
  7. Edit   equ     7
  8. Stk    equ     2048+1024               some default stack size
  9. Cerror         equ     257                     arbitrary C error
  10.  
  11.        psect mtpvalid,(Prgrm<<8)!Objct,(ReEnt<<8)!(SupStat<<8)!2,Edit,Stk,main,0
  12.  
  13. main:
  14.        moveq #1,d1                     Put error code in d1
  15.        cmpi.l #4,d5                    Bad number of args?
  16.        ble.s BadRet                    Yes, then exit
  17.        cmpi.l #$FEEDFEED,(a5)+         Does it have the right header?
  18.        bne.s BadRet                    No, then exit
  19.        move.l (a5)+,d0                 Which command is it?
  20.        cmpi.l #0,d0                    GetSysMem Command?
  21.        beq.s GetSysMem                 Yes, then go do it
  22.        cmpi.l #1,d0                    FreeSysMem Command?
  23.        beq.s FreeSysMem                Yes, then go do it
  24.        cmpi.l #2,d0                    Validate Command?
  25.        bne.s BadRet                    No, then exit
  26.  
  27. Validate:
  28.        move.l (a5)+,a0                 Get Pointer to the memory
  29.        move.l a0,d0                    Save pointer to memory
  30.        move.l (a5)+,d1                 Save memory size
  31.        OS9 F$VModul                    Validate module
  32.        bcs.s BadRet                    Some thing is wrong
  33.        bra GoodRet
  34.  
  35. GetSysMem:
  36.        move.l (a5)+,d0                 Get size of buffer
  37.        OS9 F$SRqMem                    Get System memory
  38.        bcs.s BadRet
  39.        move.l (a5)+,a0
  40.        move.l a2,(a0)                  Store return address
  41.        bra GoodRet
  42.  
  43. FreeSysMem:
  44.        move.l (a5)+,a2                 Get address of buffer
  45.        move.l (a5)+,d0                 Get size of buffer
  46.        OS9 F$SRtMem                    Return System memory
  47.        bcs.s BadRet
  48.        bra GoodRet
  49.  
  50. GoodRet:
  51.        moveq #0,d1
  52. BadRet:
  53.        OS9 F$Exit
  54.        ends
  55.