84PCE:OS:VAT - Revision history

MateoConLechuga at 22:00, 9 September 2015

2015-09-09T22:00:33Z

MateoConLechuga at 20:51, 9 September 2015

2015-09-09T20:51:21Z

MateoConLechuga at 19:09, 26 May 2015

2015-05-26T19:09:54Z

MateoConLechuga at 19:08, 26 May 2015

2015-05-26T19:08:28Z

MateoConLechuga: Created page with "Category:84PCE:OS_Information

;--------------------------------------------  ; fdetect  ; detects appvars, prot progs, and  ; progs given a 0-terminated string  ; po..."

2015-05-26T19:07:00Z

Created page with "Category:84PCE:OS_Information <pre>;-------------------------------------------- ; fdetect ; detects appvars, prot progs, and ; progs given a 0-terminated string ; po..."

New page

[[Category:84PCE:OS_Information]]

<pre>;--------------------------------------------
; fdetect
; detects appvars, prot progs, and
; progs given a 0-terminated string
; pointed to by ix.
;--------------------------------------------
; INPUTS:
; hl->place to start searching
; ix->string to find
;
; OUTPUTS:
; hl->place stopped searching
; de->file data after string
; bc=file size after string
; z flag set if found, nz if not found
;--------------------------------------------
fdetect:
ld de,(ptemp)
or a,a
sbc hl,de
add hl,de
ld a,(hl)
jr nz,fcontinue
inc a
ret
fcontinue:
push hl
cp appvarobj
jr z,fgoodtype
cp protprogobj
jr z,fgoodtype
cp progobj
jr nz,fskip
fgoodtype:
dec hl
dec hl
dec hl
ld e, (hl)
dec hl
ld d,(hl)
dec hl
ld a,(hl)
call _SetDEUtoA
push de
pop hl
cp 0D0h
jr nc,finRAM
push ix
push de
push hl
pop ix
ld a,10
add a,(ix+9)
ld de,0
ld e,a
add hl,de
ex (sp),hl
add hl,de
pop de
ex de,hl
pop ix
finRAM:
inc de
inc de
ld bc,0
ld c,(hl)
inc hl
ld b,(hl)
inc hl ; hl -> data
push bc ; bc = size
push ix
pop bc
fchkstr:
ld a,(bc)
or a
jr z,ffound
cp (hl)
inc bc
inc de
inc hl
jr z,fchkstr
pop bc
fskip:
pop hl
call fbypassname
jr fdetect
ffound:
push bc
pop hl
push ix
pop bc
or a
sbc hl,bc
push hl
pop bc
pop hl ; size
or a
sbc hl,bc
push hl
pop bc
pop hl ; current search location
push bc
call fbypassname
pop bc
xor a
ret
fbypassname:
ld bc,-6
add hl,bc
ld b,(hl)
dec hl
fbypassnameloop:
dec hl
djnz fbypassnameloop
ret</pre>

@@ Line 1: / Line 1: @@
 [[Category:84PCE:OS_Information]]
 The VAT has remained pretty much the same, as has the structure of archived variables.
 Traversing the VAT Example:

@@ Line 115: / Line 115: @@
    ld bc,-6
    add hl,bc
    ld de,OP1
-   ld (de),a
+   push de
-  inc de
+   ld b,(hl)		; Name to OP1 -> For things like archiving/deleting
-  ld b,(hl)		; Name to OP1 -> For things like archiving/deleting
+   inc b
-  inc b
 fbypassnameloop:
-  ld a,(hl)
+   ld a,(hl)
-  ld (de),a
+   ld (de),a
-  inc de
+   inc de
-  dec hl
+   dec hl
-  djnz fbypassnameloop
+   djnz fbypassnameloop
-  xor a
+   xor a
    ld (de),a
   pop de
   ret</pre>

@@ Line 5: / Line 5: @@
 Traversing the VAT Example:
-<pre>;--------------------------------------------
+<pre>;-------------------------------------
 ; fdetect
 ; detects appvars, prot progs, and
 ; progs given a 0-terminated string
 ; pointed to by ix.
-;--------------------------------------------
+;-------------------------------------
 ; INPUTS:
 ; hl->place to start searching
 ; ix->string to find
-−
+;
 ; OUTPUTS:
 ; hl->place stopped searching
-; de->file data after string
+; de->program data
-; bc=file size after string
+; bc=program size
-; z flag set if found, nz if not found
+; OP1 contains the name and type byte
-;--------------------------------------------
+; z flag set if found
-fdetect:
+;-------------------------------------
-  ld de,(ptemp)
+fdetect:
-  or a,a
+  ld de,(ptemp)
-  sbc hl,de
+  call _cphlde
- add hl,de
+  ld a,(hl)
-  ld a,(hl)
+  ld (typeByte_SMC),a
   jr nz,fcontinue
   inc a
   ret
 fcontinue:
   push hl
   cp appvarobj
   jr z,fgoodtype
   cp protprogobj
   jr z,fgoodtype
   cp progobj
   jr nz,fskip
 fgoodtype:
   dec hl
   dec hl
   dec hl
   ld e, (hl)
   dec hl
   ld d,(hl)
   dec hl
   ld a,(hl)
-  call _SetDEUtoA
+  call _SetDEUToA
   push de
   pop hl
-  cp 0D0h
+  cp $D0
   jr nc,finRAM
   push ix
-  push de
+ push de
-   push hl
+  push hl
-   pop ix
+  pop ix
-   ld a,10
+  ld a,10
-   add a,(ix+9)
+  add a,(ix+9)
-   ld de,0
+  ld de,0
-   ld e,a
+  ld e,a
-   add hl,de
+  add hl,de
-   ex (sp),hl
+  ex (sp),hl
-   add hl,de
+  add hl,de
-  pop de
+ pop de
-  ex de,hl
+ ex de,hl
   pop ix
 finRAM:
   inc de
   inc de
   ld bc,0
   ld c,(hl)
   inc hl
   ld b,(hl)
-  inc hl    ; hl -> data
+  inc hl ; hl -> data
-  push bc   ; bc = size
+  push bc ; bc = size
-  push ix
+ push ix
-  pop bc
+ pop bc
 fchkstr:
-  ld a,(bc)
+ ld a,(bc)
-  or a
+ or a,a
-  jr z,ffound
+ jr z,ffound
-  cp (hl)
+ cp (hl)
-  inc bc
+ inc bc
-  inc de
+ inc de
-  inc hl
+ inc hl
-  jr z,fchkstr
+ jr z,fchkstr
-  pop bc
+ pop bc
 fskip:
   pop hl
   call fbypassname
   jr fdetect
 ffound:
-  push bc
+ push bc
-  pop hl
+ pop hl
-  push ix
+ push ix
-  pop bc
+ pop bc
-  or a
+ or a,a
-  sbc hl,bc
+ sbc hl,bc
-  push hl
+ push hl
-  pop bc
+ pop bc
-  pop hl   ; size
+ pop hl ; size
-  or a
+ or a,a
-  sbc hl,bc
+ sbc hl,bc
-  push hl
+ push hl
-  pop bc
+ pop bc
-  pop hl      ; current search location
+  pop hl ; current search location
   push bc
-  call fbypassname
+ call fbypassname
   pop bc
   xor a
   ret
 fbypassname:
-  ld bc,-6
+  push de
- add hl,bc
+  ld bc,-6
- ld b,(hl)
+  add hl,bc
- dec hl
+typeByte_SMC: =$+1
-fbypassnameloop:
+  ld a,15h
- dec hl
+  ld de,OP1
- djnz fbypassnameloop
+  ld (de),a
   ret</pre>