home *** CD-ROM | disk | FTP | other *** search
-
- * ARexx.asm
- * These routines call the ARexx resident process.
-
- SECTION Arexx,CODE
-
- XREF _RexxSysBase
-
- _LVORexx EQU -30
- * XDEF _LVORexx
- _LVOrxParse EQU -36 ; (private)
- * XDEF _LVOrxParse
- _LVOrxInstruct EQU -42 ; (private)
- * XDEF _LVOrxInstruct
- _LVOrxSuspend EQU -48 ; (private)
- * XDEF _LVOrxSuspend
- _LVOEvalOp EQU -54 ; (private)
- * XDEF _LVOEvalOp
- _LVOAssignValue EQU -60 ; (private)
- * XDEF _LVOAssignValue
- _LVOEnterSymbol EQU -66 ; (private)
- * XDEF _LVOEnterSymbol
- _LVOFetchValue EQU -72 ; (private)
- * XDEF _LVOFetchValue
- _LVOLookUpValue EQU -78 ; (private)
- * XDEF _LVOLookUpValue
- _LVOSetValue EQU -84 ; (private)
- * XDEF _LVOSetValue
- _LVOSymExpand EQU -90 ; (private)
- * XDEF _LVOSymExpand
-
- _LVOErrorMsg EQU -96
- * XDEF _LVOErrorMsg
- XDEF _ErrorMsg
- _ErrorMsg
- move.l 8(sp),d0 ; list
- move.l _RexxSysBase,a6
- jsr _LVOErrorMsg(a6)
- move.l 4(sp),a1
- move.l a0,(a1)
- rts
-
- _LVOIsSymbol EQU -102
- * XDEF _LVOIsSymbol
- XDEF _IsSymbol
- _IsSymbol
- move.l 8(sp),a0
- move.l _RexxSysBase,a6
- jsr _LVOIsSymbol(a6)
- move.l 4(sp),a0
- move.l d1,(a0)
- rts
-
- _LVOCurrentEnv EQU -108
- * XDEF _LVOCurrentEnv
- XDEF _CurrentEnv
- _CurrentEnv
- move.l 4(sp),a0
- move.l _RexxSysBase,a6
- jmp _LVOCurrentEnv(a6)
-
- _LVOGetSpace EQU -114
- * XDEF _LVOGetSpace
- XDEF _GetSpace
- _GetSpace
- move.l 8(sp),a0
- move.l 4(sp),d0
- move.l _RexxSysBase,a6
- jmp _LVOGetSpace(a6)
-
- _LVOFreeSpace EQU -120
- * XDEF _LVOFreeSpace
- XDEF _FreeSpace
- _FreeSpace
- move.l 12(sp),a0
- move.l 8(sp),a1
- move.l 4(sp),d0
- move.l _RexxSysBase,a6
- jmp _LVOFreeSpace(a6)
-
- _LVOCreateArgstring EQU -126
- * XDEF _LVOCreateArgstring
- XDEF _CreateArgstring
- _CreateArgstring
- move.l 8(sp),a0
- move.l 4(sp),d0
- move.l _RexxSysBase,a6
- jmp _LVOCreateArgstring(a6)
-
- _LVODeleteArgstring EQU -132
- * XDEF _LVODeleteArgstring
- XDEF _DeleteArgstring
- _DeleteArgstring
- move.l 4(sp),a0
- move.l _RexxSysBase,a6
- jmp _LVODeleteArgstring(a6)
-
- _LVOLengthArgstring EQU -138
- * XDEF _LVOLengthArgstring
- XDEF _LengthArgstring
- _LengthArgstring
- move.l 4(sp),a0
- move.l _RexxSysBase,a6
- jmp _LVOLengthArgstring(a6)
-
- _LVOCreateRexxMsg EQU -144
- * XDEF _LVOCreateRexxMsg
- XDEF _CreateRexxMsg
- _CreateRexxMsg
- move.l 12(sp),a0
- move.l 8(sp),a1
- move.l 4(sp),d0
- move.l _RexxSysBase,a6
- jmp _LVOCreateRexxMsg(a6)
-
- _LVODeleteRexxMsg EQU -150
- * XDEF _LVODeleteRexxMsg
- XDEF _DeleteRexxMsg
- _DeleteRexxMsg
- move.l 4(sp),a0
- move.l _RexxSysBase,a6
- jmp _LVODeleteRexxMsg(a6)
-
- _LVOClearRexxMsg EQU -156
- * XDEF _LVOClearRexxMsg
- XDEF _ClearRexxMsg
- _ClearRexxMsg
- move.l 8(sp),a0
- move.l 4(sp),d0
- move.l _RexxSysBase,a6
- jmp _LVOClearRexxMsg(a6)
-
- _LVOFillRexxMsg EQU -162
- * XDEF _LVOFillRexxMsg
- XDEF _FillRexxMsg
- _FillRexxMsg
- move.l 12(sp),a0
- move.l 8(sp),d0
- move.l 4(sp),d1
- move.l _RexxSysBase,a6
- jmp _LVOFillRexxMsg(a6)
-
- _LVOIsRexxMsg EQU -168
- * XDEF _LVOIsRexxMsg
- XDEF _IsRexxMsg
- _IsRexxMsg
- move.l 4(sp),a0
- move.l _RexxSysBase,a6
- jmp _LVOIsRexxMsg(a6)
-
-
- _LVOAddRsrcNode EQU -174
- * XDEF _LVOAddRsrcNode
- XDEF _AddRsrcNode
- _AddRsrcNode
- move.l 12(sp),a0
- move.l 8(sp),a1
- move.l 4(sp),d0
- move.l _RexxSysBase,a6
- jmp _LVOAddRsrcNode(a6)
-
- _LVOFindRsrcNode EQU -180
- * XDEF _LVOFindRsrcNode
- XDEF _FindRsrcNode
- _FindRsrcNode
- move.l 12(sp),a0
- move.l 8(sp),a1
- move.l 4(sp),d0
- move.l _RexxSysBase,a6
- jmp _LVOFindRsrcNode(a6)
-
- _LVORemRsrcList EQU -186
- * XDEF _LVORemRsrcList
- XDEF _RemRsrcList
- _RemRsrcList
- move.l 4(sp),a0
- move.l _RexxSysBase,a6
- jmp _LVORemRsrcList(a6)
-
- _LVORemRsrcNode EQU -192
- * XDEF _LVORemRsrcNode
- XDEF _RemRsrcNode
- _RemRsrcNode
- move.l 4(sp),a0
- move.l _RexxSysBase,a6
- jmp _LVORemRsrcNode(a6)
-
- _LVOOpenPublicPort EQU -198
- * XDEF _LVOOpenPublicPort
- XDEF _OpenPublicPort
- _OpenPublicPort
- move.l 8(sp),a0
- move.l 4(sp),a1
- move.l _RexxSysBase,a6
- jmp _LVOOpenPublicPort(a6)
-
- _LVOClosePublicPort EQU -204
- * XDEF _LVOClosePublicPort
- XDEF _ClosePublicPort
- _ClosePublicPort
- move.l 4(sp),a0
- move.l _RexxSysBase,a6
- jmp _LVOClosePublicPort(a6)
-
- _LVOListNames EQU -210
- * XDEF _LVOListNames
- XDEF _ListNames
- _ListNames
- move.l 6(sp),a0
- move.w 4(sp),d0
- move.l _RexxSysBase,a6
- jmp _LVOListNames(a6)
-
-
- _LVOClearMem EQU -216
- * XDEF _LVOClearMem
- XDEF _ClearMem
- _ClearMem
- move.l 8(sp),a0
- move.l 4(sp),d0
- move.l _RexxSysBase,a6
- jmp _LVOClearMem(a6)
-
- _LVOInitList EQU -222
- * XDEF _LVOInitList
- XDEF _InitList
- _InitList
- move.l 4(sp),a0
- move.l _RexxSysBase,a6
- jmp _LVOInitList(a6)
-
- _LVOInitPort EQU -228
- * XDEF _LVOInitPort
- XDEF _InitPort
- _InitPort
- move.l 8(sp),a0
- move.l 4(sp),a1
- move.l _RexxSysBase,a6
- jmp _LVOInitPort(a6)
-
- _LVOFreePort EQU -234
- * XDEF _LVOFreePort
- XDEF _FreePort
- _FreePort
- move.l 4(sp),a0
- move.l _RexxSysBase,a6
- jmp _LVOFreePort(a6)
-
- _LVOCmpString EQU -240
- * XDEF _LVOCmpString
- XDEF _CmpString
- _CmpString
- move.l 8(sp),a0
- move.l 4(sp),a1
- move.l _RexxSysBase,a6
- jmp _LVOCmpString(a6)
-
- _LVOStcToken EQU -246
- * XDEF _LVOStcToken
- XDEF _StcToken
- _StcToken
- move.l 20(sp),a0
- move.l _RexxSysBase,a6
- jsr _LVOStcToken(a6)
- move.l 16(sp),a6
- move.b d0,(a6)
- move.l 12(sp),a6
- move.l d1,(a6)
- move.l 8(sp),a6
- move.l a0,(a6)
- move.l 4(sp),a6
- move.l a1,(a6)
- rts
-
- _LVOStrcmpN EQU -252
- * XDEF _LVOStrcmpN
- XDEF _StrcmpN
- _StrcmpN
- move.l 12(sp),a0
- move.l 8(sp),a1
- move.l 4(sp),d0
- move.l _RexxSysBase,a6
- jmp _LVOStrcmpN(a6)
-
- _LVOStrcmpU EQU -258
- * XDEF _LVOStrcmpU
-
- _LVOStrcpyA EQU -264
- * XDEF _LVOStrcpyA
- XDEF _StrcpyA
- _StrcpyA
- move.l 12(sp),a0
- move.l 8(sp),a1
- move.l 4(sp),d0
- move.l _RexxSysBase,a6
- jmp _LVOStrcpyA(a6)
-
- _LVOStrcpyN EQU -270
- * XDEF _LVOStrcpyN
- XDEF _StrcpyN
- _StrcpyN
- move.l 12(sp),a0
- move.l 8(sp),a1
- move.l 4(sp),d0
- move.l _RexxSysBase,a6
- jmp _LVOStrcpyN(a6)
-
- _LVOStrcpyU EQU -276
- * XDEF _LVOStrcpyU
- XDEF _StrcpyU
- _StrcpyU
- move.l 12(sp),a0
- move.l 8(sp),a1
- move.l 4(sp),d0
- move.l _RexxSysBase,a6
- jmp _LVOStrcpyU(a6)
-
- _LVOStrflipN EQU -282
- * XDEF _LVOStrflipN
- XDEF _StrflipN
- _StrflipN
- move.l 8(sp),a0
- move.l 4(sp),d0
- move.l _RexxSysBase,a6
- jmp _LVOStrflipN(a6)
-
- _LVOStrlen EQU -288
- * XDEF _LVOStrlen
- XDEF _RexxStrlen
- _RexxStrlen
- move.l 4(sp),a0
- move.l _RexxSysBase,a6
- jmp _LVOStrlen(a6)
-
- _LVOToUpper EQU -294
- * XDEF _LVOToUpper
- XDEF _ToUpper
- _ToUpper
- move.w 4(sp),d0
- move.l _RexxSysBase,a6
- jmp _LVOToUpper(a6)
-
- _LVOCVa2i EQU -300
- * XDEF _LVOCVa2i
- XDEF _CVa2i
- _CVa2i
- move.l 8(sp),a0
- move.l _RexxSysBase,a6
- jsr _LVOCVa2i(a6)
- move.l 4(sp),a0
- move.l d1,(a0)
- rts
-
- _LVOCVi2a EQU -306
- * XDEF _LVOCVi2a
- XDEF _CVi2a
- _CVi2a
- move.l 16(sp),a0
- move.l 12(sp),d0
- move.l 8(sp),d1
- move.l _RexxSysBase,a6
- jsr _LVOCVi2a(a6)
- move.l 4(sp),a1
- move.l a0,(a1)
- rts
-
- _LVOCVi2arg EQU -312
- * XDEF _LVOCVi2arg
- XDEF _CVi2arg
- _CVi2arg
- move.l 8(sp),d0
- move.l 4(sp),d1
- move.l _RexxSysBase,a6
- jmp _LVOCVi2arg(a6)
-
- _LVOCVi2az EQU -318
- * XDEF _LVOCVi2az
- XDEF _CVi2az
- _CVi2az
- move.l 16(sp),a0
- move.l 12(sp),d0
- move.l 8(sp),d1
- move.l _RexxSysBase,a6
- jsr _LVOCVi2az(a6)
- move.l 4(sp),a1
- move.l a0,(a1)
- rts
-
- _LVOCVc2x EQU -324
- * XDEF _LVOCVc2x
- XDEF _CVc2x
- _CVc2x
- move.l 16(sp),a0
- move.l 12(sp),a1
- move.l 8(sp),d0
- move.l 4(sp),d1
- move.l _RexxSysBase,a6
- jmp _LVOCVc2x(a6)
-
- _LVOCVx2c EQU -330
- * XDEF _LVOCVx2c
- XDEF _CVx2c
- _CVx2c
- move.l 16(sp),a0
- move.l 12(sp),a1
- move.l 8(sp),d0
- move.l 4(sp),d1
- move.l _RexxSysBase,a6
- jmp _LVOCVx2c(a6)
-
- _LVOOpenF EQU -336
- * XDEF _LVOOpenF
- XDEF _OpenF
- _OpenF
- move.l 16(sp),a0
- move.l 12(sp),a1
- move.l 8(sp),d0
- move.l 4(sp),d1
- move.l _RexxSysBase,a6
- jmp _LVOOpenF(a6)
-
- _LVOCloseF EQU -342
- * XDEF _LVOCloseF
- XDEF _CloseF
- _CloseF
- move.l 4(sp),a0
- move.l _RexxSysBase,a6
- jmp _LVOCloseF(a6)
-
- _LVOReadStr EQU -348
- * XDEF _LVOReadStr
- XDEF _ReadStr
- _ReadStr
- move.l 16(sp),a0
- move.l 12(sp),a1
- move.l 8(sp),d0
- move.l _RexxSysBase,a6
- jsr _LVOReadStr(a6)
- move.l 4(sp),a0
- move.l a1,(a0)
- rts
-
- _LVOReadF EQU -354
- * XDEF _LVOReadF
- XDEF _ReadF
- _ReadF
- move.l 12(sp),a0
- move.l 8(sp),a1
- move.l 4(sp),d0
- move.l _RexxSysBase,a6
- jmp _LVOReadF(a6)
-
- _LVOWriteF EQU -360
- * XDEF _LVOWriteF
- XDEF _WriteF
- _WriteF
- move.l 12(sp),a0
- move.l 8(sp),a1
- move.l 4(sp),d0
- move.l _RexxSysBase,a6
- jmp _LVOWriteF(a6)
-
- _LVOSeekF EQU -366
- * XDEF _LVOSeekF
- XDEF _SeekF
- _SeekF
- move.l 12(sp),a0
- move.l 8(sp),d0
- move.l 4(sp),d1
- move.l _RexxSysBase,a6
- jmp _LVOSeekF(a6)
-
- _LVOQueueF EQU -372
- * XDEF _LVOQueueF
- XDEF _QueueF
- _QueueF
- move.l 12(sp),a0
- move.l 8(sp),a1
- move.l 4(sp),d0
- move.l _RexxSysBase,a6
- jmp _LVOQueueF(a6)
-
- _LVOStackF EQU -378
- * XDEF _LVOStackF
- XDEF _StackF
- _StackF
- move.l 12(sp),a0
- move.l 8(sp),a1
- move.l 4(sp),d0
- move.l _RexxSysBase,a6
- jmp _LVOStackF(a6)
-
- _LVOExistF EQU -384
- * XDEF _LVOExistF
- XDEF _ExistF
- _ExistF
- move.l 4(sp),a0
- move.l _RexxSysBase,a6
- jmp _LVOExistF(a6)
-
- _LVODOSCommand EQU -390
- * XDEF _LVODOSCommand
-
- _LVODOSRead EQU -396
- * XDEF _LVODOSRead
- XDEF _RexxDOSRead
- _RexxDOSRead
- move.l 12(sp),a0
- move.l 8(sp),a1
- move.l 4(sp),d0
- move.l _RexxSysBase,a6
- jmp _LVODOSRead(a6)
-
- _LVODOSWrite EQU -402
- * XDEF _LVODOSWrite
- XDEF _RexxDOSWrite
- _RexxDOSWrite
- move.l 12(sp),a0
- move.l 8(sp),a1
- move.l 4(sp),d0
- move.l _RexxSysBase,a6
- jmp _LVODOSWrite(a6)
-
- _LVOCreateDOSPkt EQU -408
- * XDEF _LVOCreateDOSPkt
- XDEF _CreateDOSPkt
- _CreateDOSPkt
- move.l _RexxSysBase,a6
- jmp _LVOCreateDOSPkt(a6)
-
- _LVODeleteDOSPkt EQU -414
- * XDEF _LVODeleteDOSPkt
- XDEF _DeleteDOSPkt
- _DeleteDOSPkt
- move.l 4(sp),a0
- move.l _RexxSysBase,a6
- jmp _LVODeleteDOSPkt(a6)
-
- _LVOSendDOSPkt EQU -420 ; private
- _LVOWaitDOSPkt EQU -426 ; private
- _LVOFindDevice EQU -432
- * XDEF _LVOFindDevice
- XDEF _FindDevice
- _FindDevice
- move.l 8(sp),a0
- move.l 4(sp),d0
- move.l _RexxSysBase,a6
- jmp _LVOFindDevice(a6)
-
-
- _LVOAddClipNode EQU -438
- * XDEF _LVOAddClipNode
- XDEF _AddClipNode
- _AddClipNode
- move.l 16(sp),a0
- move.l 12(sp),a1
- move.l 8(sp),d0
- move.l 4(sp),d1
- move.l _RexxSysBase,a6
- jmp _LVOAddClipNode(a6)
-
- _LVORemClipNode EQU -444
- * XDEF _LVORemClipNode
- XDEF _RemClipNode
- _RemClipNode
- move.l 4(sp),a0
- move.l _RexxSysBase,a6
- jmp _LVORemClipNode(a6)
-
- _LVOLockRexxBase EQU -450
- * XDEF _LVOLockRexxBase
- XDEF _LockRexxBase
- _LockRexxBase
- move.l 4(sp),d0
- move.l _RexxSysBase,a6
- jmp _LVOLockRexxBase(a6)
-
- _LVOUnlockRexxBase EQU -456
- * XDEF _LVOUnlockRexxBase
- XDEF _UnlockRexxBase
- _UnlockRexxBase
- move.l 4(sp),d0
- move.l _RexxSysBase,a6
- jmp _LVOUnlockRexxBase(a6)
-
- END
-