Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : OCLIP.ZIP
Filename : IVAR.ASM

 
Output of file : IVAR.ASM contained in archive : OCLIP.ZIP
;
;ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
;º o:Clip º
;º An Object Oriented Extension to Clipper 5.01 º
;º (c) 1991 Peter M. Freese, CyberSoft º
;ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
;
;Version 1.0a - November 25, 1991
;
IDEAL
MODEL LARGE
EXTRN __lbase:WORD,__eval:WORD
EXTRN __cat:FAR

CODESEG

PROC __IVAR01 FAR
PUBLIC __IVAR01
mov ax,1
jmp __IVAR
ENDP __IVAR01
PROC __IVAR02 FAR
PUBLIC __IVAR02
mov ax,2
jmp __IVAR
ENDP __IVAR02
PROC __IVAR03 FAR
PUBLIC __IVAR03
mov ax,3
jmp __IVAR
ENDP __IVAR03
PROC __IVAR04 FAR
PUBLIC __IVAR04
mov ax,4
jmp __IVAR
ENDP __IVAR04
PROC __IVAR05 FAR
PUBLIC __IVAR05
mov ax,5
jmp __IVAR
ENDP __IVAR05
PROC __IVAR06 FAR
PUBLIC __IVAR06
mov ax,6
jmp __IVAR
ENDP __IVAR06
PROC __IVAR07 FAR
PUBLIC __IVAR07
mov ax,7
jmp __IVAR
ENDP __IVAR07
PROC __IVAR08 FAR
PUBLIC __IVAR08
mov ax,8
jmp __IVAR
ENDP __IVAR08
PROC __IVAR09 FAR
PUBLIC __IVAR09
mov ax,9
jmp __IVAR
ENDP __IVAR09
PROC __IVAR10 FAR
PUBLIC __IVAR10
mov ax,10
jmp __IVAR
ENDP __IVAR10
PROC __IVAR11 FAR
PUBLIC __IVAR11
mov ax,11
jmp __IVAR
ENDP __IVAR11
PROC __IVAR12 FAR
PUBLIC __IVAR12
mov ax,12
jmp __IVAR
ENDP __IVAR12
PROC __IVAR13 FAR
PUBLIC __IVAR13
mov ax,13
jmp __IVAR
ENDP __IVAR13
PROC __IVAR14 FAR
PUBLIC __IVAR14
mov ax,14
jmp __IVAR
ENDP __IVAR14
PROC __IVAR15 FAR
PUBLIC __IVAR15
mov ax,15
jmp __IVAR
ENDP __IVAR15
PROC __IVAR16 FAR
PUBLIC __IVAR16
mov ax,16
jmp __IVAR
ENDP __IVAR16
PROC __IVAR17 FAR
PUBLIC __IVAR17
mov ax,17
jmp __IVAR
ENDP __IVAR17
PROC __IVAR18 FAR
PUBLIC __IVAR18
mov ax,18
jmp __IVAR
ENDP __IVAR18
PROC __IVAR19 FAR
PUBLIC __IVAR19
mov ax,19
jmp __IVAR
ENDP __IVAR19
PROC __IVAR20 FAR
PUBLIC __IVAR20
mov ax,20
jmp __IVAR
ENDP __IVAR20
PROC __IVAR21 FAR
PUBLIC __IVAR21
mov ax,21
jmp __IVAR
ENDP __IVAR21
PROC __IVAR22 FAR
PUBLIC __IVAR22
mov ax,22
jmp __IVAR
ENDP __IVAR22
PROC __IVAR23 FAR
PUBLIC __IVAR23
mov ax,23
jmp __IVAR
ENDP __IVAR23
PROC __IVAR24 FAR
PUBLIC __IVAR24
mov ax,24
jmp __IVAR
ENDP __IVAR24
PROC __IVAR25 FAR
PUBLIC __IVAR25
mov ax,25
jmp __IVAR
ENDP __IVAR25
PROC __IVAR26 FAR
PUBLIC __IVAR26
mov ax,26
jmp __IVAR
ENDP __IVAR26
PROC __IVAR27 FAR
PUBLIC __IVAR27
mov ax,27
jmp __IVAR
ENDP __IVAR27
PROC __IVAR28 FAR
PUBLIC __IVAR28
mov ax,28
jmp __IVAR
ENDP __IVAR28
PROC __IVAR29 FAR
PUBLIC __IVAR29
mov ax,29
jmp __IVAR
ENDP __IVAR29
PROC __IVAR30 FAR
PUBLIC __IVAR30
mov ax,30
jmp __IVAR
ENDP __IVAR30
PROC __IVAR31 FAR
PUBLIC __IVAR31
mov ax,31
jmp __IVAR
ENDP __IVAR31
PROC __IVAR32 FAR
PUBLIC __IVAR32
mov ax,32
jmp __IVAR
ENDP __IVAR32
PROC __IVAR33 FAR
PUBLIC __IVAR33
mov ax,33
jmp __IVAR
ENDP __IVAR33
PROC __IVAR34 FAR
PUBLIC __IVAR34
mov ax,34
jmp __IVAR
ENDP __IVAR34
PROC __IVAR35 FAR
PUBLIC __IVAR35
mov ax,35
jmp __IVAR
ENDP __IVAR35
PROC __IVAR36 FAR
PUBLIC __IVAR36
mov ax,36
jmp __IVAR
ENDP __IVAR36
PROC __IVAR37 FAR
PUBLIC __IVAR37
mov ax,37
jmp __IVAR
ENDP __IVAR37
PROC __IVAR38 FAR
PUBLIC __IVAR38
mov ax,38
jmp __IVAR
ENDP __IVAR38
PROC __IVAR39 FAR
PUBLIC __IVAR39
mov ax,39
jmp __IVAR
ENDP __IVAR39
PROC __IVAR40 FAR
PUBLIC __IVAR40
mov ax,40
jmp __IVAR
ENDP __IVAR40
PROC __IVAR41 FAR
PUBLIC __IVAR41
mov ax,41
jmp __IVAR
ENDP __IVAR41
PROC __IVAR42 FAR
PUBLIC __IVAR42
mov ax,42
jmp __IVAR
ENDP __IVAR42
PROC __IVAR43 FAR
PUBLIC __IVAR43
mov ax,43
jmp __IVAR
ENDP __IVAR43
PROC __IVAR44 FAR
PUBLIC __IVAR44
mov ax,44
jmp __IVAR
ENDP __IVAR44
PROC __IVAR45 FAR
PUBLIC __IVAR45
mov ax,45
jmp __IVAR
ENDP __IVAR45
PROC __IVAR46 FAR
PUBLIC __IVAR46
mov ax,46
jmp __IVAR
ENDP __IVAR46
PROC __IVAR47 FAR
PUBLIC __IVAR47
mov ax,47
jmp __IVAR
ENDP __IVAR47
PROC __IVAR48 FAR
PUBLIC __IVAR48
mov ax,48
jmp __IVAR
ENDP __IVAR48
PROC __IVAR49 FAR
PUBLIC __IVAR49
mov ax,49
jmp __IVAR
ENDP __IVAR49
PROC __IVAR50 FAR
PUBLIC __IVAR50
mov ax,50
jmp __IVAR
ENDP __IVAR50

PROC __IVAR FAR
push [__eval]
mov bx,0FFFFh
push bx
push ax ; cargo index number
mov ax,[__lbase]
add ax,14
push ax
call far __cat
add sp,8
retf
ENDP __IVAR

END


  3 Responses to “Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : OCLIP.ZIP
Filename : IVAR.ASM

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/