ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng)/ProfitPress-MegaCDROM2.B6I/APPS/DATABASE/OCLIP.ZIP/SIVAR.ASM

Assembly Source File | 1991-11-07 | 6.1 KB | 291 lines

;╔══════════════════════════════════════════════════════════════════════╗
;║                                o:Clip                                ║
;║             An Object Oriented Extension to Clipper 5.01             ║
;║                 (c) 1991 Peter M. Freese, CyberSoft                  ║
;╚══════════════════════════════════════════════════════════════════════╝
;
;Version 1.01 - November 8, 1991
;
        IDEAL
        MODEL LARGE
        EXTRN __lbase:WORD,__eval:WORD
        EXTRN __catput:FAR

        CODESEG

PROC __SIVAR01 FAR
PUBLIC __SIVAR01
        mov     ax,01
        jmp     __SIVAR
ENDP __SIVAR01
PROC __SIVAR02 FAR
PUBLIC __SIVAR02
        mov     ax,02
        jmp     __SIVAR
ENDP __SIVAR02
PROC __SIVAR03 FAR
PUBLIC __SIVAR03
        mov     ax,03
        jmp     __SIVAR
ENDP __SIVAR03
PROC __SIVAR04 FAR
PUBLIC __SIVAR04
        mov     ax,04
        jmp     __SIVAR
ENDP __SIVAR04
PROC __SIVAR05 FAR
PUBLIC __SIVAR05
        mov     ax,05
        jmp     __SIVAR
ENDP __SIVAR05
PROC __SIVAR06 FAR
PUBLIC __SIVAR06
        mov     ax,06
        jmp     __SIVAR
ENDP __SIVAR06
PROC __SIVAR07 FAR
PUBLIC __SIVAR07
        mov     ax,07
        jmp     __SIVAR
ENDP __SIVAR07
PROC __SIVAR08 FAR
PUBLIC __SIVAR08
        mov     ax,08
        jmp     __SIVAR
ENDP __SIVAR08
PROC __SIVAR09 FAR
PUBLIC __SIVAR09
        mov     ax,09
        jmp     __SIVAR
ENDP __SIVAR09
PROC __SIVAR10 FAR
PUBLIC __SIVAR10
        mov     ax,10
        jmp     __SIVAR
ENDP __SIVAR10
PROC __SIVAR11 FAR
PUBLIC __SIVAR11
        mov     ax,11
        jmp     __SIVAR
ENDP __SIVAR11
PROC __SIVAR12 FAR
PUBLIC __SIVAR12
        mov     ax,12
        jmp     __SIVAR
ENDP __SIVAR12
PROC __SIVAR13 FAR
PUBLIC __SIVAR13
        mov     ax,13
        jmp     __SIVAR
ENDP __SIVAR13
PROC __SIVAR14 FAR
PUBLIC __SIVAR14
        mov     ax,14
        jmp     __SIVAR
ENDP __SIVAR14
PROC __SIVAR15 FAR
PUBLIC __SIVAR15
        mov     ax,15
        jmp     __SIVAR
ENDP __SIVAR15
PROC __SIVAR16 FAR
PUBLIC __SIVAR16
        mov     ax,16
        jmp     __SIVAR
ENDP __SIVAR16
PROC __SIVAR17 FAR
PUBLIC __SIVAR17
        mov     ax,17
        jmp     __SIVAR
ENDP __SIVAR17
PROC __SIVAR18 FAR
PUBLIC __SIVAR18
        mov     ax,18
        jmp     __SIVAR
ENDP __SIVAR18
PROC __SIVAR19 FAR
PUBLIC __SIVAR19
        mov     ax,19
        jmp     __SIVAR
ENDP __SIVAR19
PROC __SIVAR20 FAR
PUBLIC __SIVAR20
        mov     ax,20
        jmp     __SIVAR
ENDP __SIVAR20
PROC __SIVAR21 FAR
PUBLIC __SIVAR21
        mov     ax,21
        jmp     __SIVAR
ENDP __SIVAR21
PROC __SIVAR22 FAR
PUBLIC __SIVAR22
        mov     ax,22
        jmp     __SIVAR
ENDP __SIVAR22
PROC __SIVAR23 FAR
PUBLIC __SIVAR23
        mov     ax,23
        jmp     __SIVAR
ENDP __SIVAR23
PROC __SIVAR24 FAR
PUBLIC __SIVAR24
        mov     ax,24
        jmp     __SIVAR
ENDP __SIVAR24
PROC __SIVAR25 FAR
PUBLIC __SIVAR25
        mov     ax,25
        jmp     __SIVAR
ENDP __SIVAR25
PROC __SIVAR26 FAR
PUBLIC __SIVAR26
        mov     ax,26
        jmp     __SIVAR
ENDP __SIVAR26
PROC __SIVAR27 FAR
PUBLIC __SIVAR27
        mov     ax,27
        jmp     __SIVAR
ENDP __SIVAR27
PROC __SIVAR28 FAR
PUBLIC __SIVAR28
        mov     ax,28
        jmp     __SIVAR
ENDP __SIVAR28
PROC __SIVAR29 FAR
PUBLIC __SIVAR29
        mov     ax,29
        jmp     __SIVAR
ENDP __SIVAR29
PROC __SIVAR30 FAR
PUBLIC __SIVAR30
        mov     ax,30
        jmp     __SIVAR
ENDP __SIVAR30
PROC __SIVAR31 FAR
PUBLIC __SIVAR31
        mov     ax,31
        jmp     __SIVAR
ENDP __SIVAR31
PROC __SIVAR32 FAR
PUBLIC __SIVAR32
        mov     ax,32
        jmp     __SIVAR
ENDP __SIVAR32
PROC __SIVAR33 FAR
PUBLIC __SIVAR33
        mov     ax,33
        jmp     __SIVAR
ENDP __SIVAR33
PROC __SIVAR34 FAR
PUBLIC __SIVAR34
        mov     ax,34
        jmp     __SIVAR
ENDP __SIVAR34
PROC __SIVAR35 FAR
PUBLIC __SIVAR35
        mov     ax,35
        jmp     __SIVAR
ENDP __SIVAR35
PROC __SIVAR36 FAR
PUBLIC __SIVAR36
        mov     ax,36
        jmp     __SIVAR
ENDP __SIVAR36
PROC __SIVAR37 FAR
PUBLIC __SIVAR37
        mov     ax,37
        jmp     __SIVAR
ENDP __SIVAR37
PROC __SIVAR38 FAR
PUBLIC __SIVAR38
        mov     ax,38
        jmp     __SIVAR
ENDP __SIVAR38
PROC __SIVAR39 FAR
PUBLIC __SIVAR39
        mov     ax,39
        jmp     __SIVAR
ENDP __SIVAR39
PROC __SIVAR40 FAR
PUBLIC __SIVAR40
        mov     ax,40
        jmp     __SIVAR
ENDP __SIVAR40
PROC __SIVAR41 FAR
PUBLIC __SIVAR41
        mov     ax,41
        jmp     __SIVAR
ENDP __SIVAR41
PROC __SIVAR42 FAR
PUBLIC __SIVAR42
        mov     ax,42
        jmp     __SIVAR
ENDP __SIVAR42
PROC __SIVAR43 FAR
PUBLIC __SIVAR43
        mov     ax,43
        jmp     __SIVAR
ENDP __SIVAR43
PROC __SIVAR44 FAR
PUBLIC __SIVAR44
        mov     ax,44
        jmp     __SIVAR
ENDP __SIVAR44
PROC __SIVAR45 FAR
PUBLIC __SIVAR45
        mov     ax,45
        jmp     __SIVAR
ENDP __SIVAR45
PROC __SIVAR46 FAR
PUBLIC __SIVAR46
        mov     ax,46
        jmp     __SIVAR
ENDP __SIVAR46
PROC __SIVAR47 FAR
PUBLIC __SIVAR47
        mov     ax,47
        jmp     __SIVAR
ENDP __SIVAR47
PROC __SIVAR48 FAR
PUBLIC __SIVAR48
        mov     ax,48
        jmp     __SIVAR
ENDP __SIVAR48
PROC __SIVAR49 FAR
PUBLIC __SIVAR49
        mov     ax,49
        jmp     __SIVAR
ENDP __SIVAR49
PROC __SIVAR50 FAR
PUBLIC __SIVAR50
        mov     ax,50
        jmp     __SIVAR
ENDP __SIVAR50

PROC __SIVAR FAR
        push   di
        push   si
        mov    bx,[__lbase]
        add    bx,2*14
        push   bx       ; parameter 1 is value to store
        push   ax       ; object variable index
        sub    bx,14
        push   bx       ; object base
        call   far __catput
        add    sp,6
        mov    di,[__eval]
        mov    si,[__lbase]
        add    si,2*14
        push   ds
        pop    es
        mov    cx,7
        repnz movsw     ; copy entire var structure
        pop    si
        pop    di
        ret
ENDP __SIVAR

END