CODING - Вращение спрайтов.

SoundTrack:  MR.Z OF LASER SOFT '98 (C)BD 
__________________________________________


;----------------------------------------;
;            TURN SPRITES                ;
; (c) SerzhSoft, Shadrinsk, 31 july 1997 ;
;----------------------------------------;
        ORG     #8000
        JP      EXAMPLE
;----------------------------------------;
;используется в изменяемых командах
_NULL   EQU     0
;----------------------------------------;
ALFA    dw      0 ;угол наклона спрайта
;
COSALFA db      0 ;абсолютное значение
        db      0 ;знак: 0=[+], #ff=[-]
;
SINALFA db      0 ;абсолютное значение
        db      0 ;знак: 0=[+], #ff=[-]
;----------------------------------------;
ATTR_P  EQU     23693 ;атрибуты экрана
;----------------------------------------;
;биты:   0 - over 0/1,   2 - inverse 0/1
;      4 - ink & paper 9 (прозрачные атр.)
P_FLAG  EQU     23697
;----------------------------------------;
;демонстрационный пример

EXAMPLE
        di
;
        XOR     A
        LD      (P_FLAG),A
;
        ld      hl,0   ;угол накл. спрайта
        ld      a,128  ;масштаб: 0.5:1
        call    INISYST ;иниц-я системы
                         координат
;
        ld      e,0       ;X спрайта
        ld      d,0       ;Y спрайта
        ld      ix,MYSPR2 ;ADR_SPR
        ld      c,(ix+0)  ;ширина, байты
        ld      b,(ix+1)  ;высота, пиксели
        inc     ix
        inc     ix
        call    CORNSPR ;вывод спрайта по
                         лев. верх. углу
;
        ld      e,200     ;X спрайта
        ld      d,0       ;Y спрайта
        ld      ix,MYSPR1 ;ADR_SPR
        ld      c,(ix+0)  ;ширина, байты
        ld      b,(ix+1)  ;высота, пиксели
        inc     ix
        inc     ix
        call    CORNSPR ;вывод спрайта по
                         лев. верх. углу
;
        ld      hl,45   ;наклон 45 град.
        ld      a,255   ;масштаб: 1:1
        call    INISYST ;сист. координат
;
        ld      e,100     ;X
        ld      d,100     ;Y
        ld      ix,MYSPR2 ;ADR_SPR
        ld      c,(ix+0)  ;XR_IN_BYTES
        ld      b,(ix+1)  ;YR_IN_PIXELS
        inc     ix
        inc     ix
        call    CENTSPR ;PUT_CENTRE_TURN_
                         SPRITE
;
        LD      A,#04      ;[set 2,a]
        LD      (P_FLAG),A ;inverse 1
;
        ld      hl,90     ;наклон 45 град.
        ld      a,255     ;масштаб: 1:1
        call    INISYST   ;сист. координат
;
        ld      e,210     ;X
        ld      d,100     ;Y
        ld      ix,MYSPR1 ;ADR_SPR
        ld      c,(ix+0)  ;XR_IN_BYTES
        ld      b,(ix+1)  ;YR_IN_PIXELS
        inc     ix
        inc     ix
        call    CENTSPR ;PUT_CENTRE_TURN_
                         SPRITE
;
        CALL    WAITKEY
        ei
        ret
;----------------------------------------;
;инициализация системы координат для
; последующих выводов спрайтов
; HL=0..359 - угол наклона в градусах
; A=0..255 - масштаб 0:1 ... 1:1

INISYST
        push    af
        ld      (ALFA),hl
        call    SIN_HL
        pop     bc
        push    bc
        ld      c,a
        sbc     a,a
        ld      d,a
        call    MULT_BC
        ld      l,a
        ld      h,d
        ld      (SINALFA),hl
        ld      hl,(ALFA)
        call    COS_HL
        pop     bc
        ld      c,a
        sbc     a,a
        ld      d,a
        call    MULT_BC
        ld      l,a
        ld      h,d
        ld      (COSALFA),hl
        ld      ix,DTATAB
        ld      de,#0000
        ld      a,d
LPIS1   push    af
        ld      a,(COSALFA)
        pop     bc
        push    bc
        ld      c,a
        call    MULT_BC
        ld      h,a
        sub     e
        ld      e,h
        ld      c,a
        ld      a,(COSALFA+1)
        rra
        jr      nc,GOIS1
        ld      a,c
        neg
        ld      c,a
GOIS1   ld      (ix+0),c
        inc     ix
        ld      a,(SINALFA)
        pop     bc
        push    bc
        ld      c,a
        call    MULT_BC
        ld      h,a
        sub     d
        ld      d,h
        ld      c,a
        ld      a,(SINALFA+1)
        rra
        jr      nc,GOIS2
        ld      a,c
        neg
        ld      c,a
GOIS2   ld      (ix+0),c
        inc     ix
        pop     af
        inc     a
        jr      nz,LPIS1
        ret
;----------------------------------------;
;вывод повернутого спрайта по центру
; прерывания - запрещать! (из-за стека)
; E=x, D=y - координаты центра
; C=xr - ширина спрайта в знакоместах
; B=yr - высота спрайта в пикселях
; IX - адрес данных спрайта

CENTSPR
        push    bc
        srl     b
        sla     c
        sla     c
        push    bc
        ld      a,(SINALFA)
        ld      c,a
        call    MULT_BC
        ld      h,a
        ld      a,(SINALFA+1)
        rra
        ld      a,h
        jr      c,GOCS1
        neg
GOCS1   add     a,e
        ld      e,a     ;X0-YR/2*SIN(A)
        pop     bc
        push    bc
        ld      a,(COSALFA)
        ld      b,a
        call    MULT_BC
        ld      h,a
        ld      a,(COSALFA+1)
        rra
        ld      a,h
        jr      c,GOCS2
        neg
GOCS2   add     a,e
        ld      e,a     ;X0-YR/2*SIN(A)-
                         -XR/2*COS(A)
        pop     bc
        push    bc
        ld      a,(COSALFA)
        ld      c,a
        call    MULT_BC
        ld      h,a
        ld      a,(COSALFA+1)
        rra
        ld      a,h
        jr      c,GOCS3
        neg
GOCS3   add     a,d
        ld      d,a     ;Y0-YR/2*COS(A)
        pop     bc
        ld      a,(SINALFA)
        ld      b,a
        call    MULT_BC
        ld      h,a
        ld      a,(SINALFA+1)
        rra
        ld      a,h
        jr      nc,GOCS4
        neg
GOCS4   add     a,d
        ld      d,a     ;Y0-YR/2*COS(A)+
                         +XR/2*SIN(A)
        pop     bc
;--------------------------------------;
;вывод повернутого спрайта по углу
; прерывания - запрещать! (из-за стека)
; E=x, D=y - координаты лев. верх. угла
; C=xr - ширина спрайта в знакоместах
; B=yr - высота спрайта в пикселях
; IX - адрес данных спрайта

CORNSPR
        ld      hl,DTATAB
LPCRS0  push    bc
        push    de
        push    hl
        ld      (CORNSP1),sp
        ld      sp,DTATAB
        ld      a,c
LPCRS1  ld      b,(ix+0)
LPCRS2  ex      af,af'
        pop     hl
        ld      a,e
SIGN_XX add     a,l
        ld      e,a
        ld      a,d
SIGN_XY sub     h
        cp      #C0
        jr      nc,NO_PUT
        ld      d,a
;
        LD      C,#07
        ld      a,d
        rra
        scf
        rra
        rra
        and     #5F
        ld      h,a
        xor     e
        and     C
        xor     e
        rrca
        rrca
        rrca
        ld      l,a
        ld      a,d
        xor     h
        and     C
        xor     h
        ld      h,a
        LD      A,E
        AND     C
        LD      C,B
        LD      B,A
        LD      A,#80
        JR      Z,IF_TRN
LP_TRN  RRCA
        DJNZ    LP_TRN
IF_TRN  LD      B,C
        LD      C,A
        LD      A,(P_FLAG)
        rlc     b
        jr      c,NO_RES
        xor     #04
NO_RES  BIT     2,A
        LD      A,#A9 ;[xor c] - inv. 1
        JR      NZ,IF_TRN1
        LD      A,#00 ;[nop] - inverse 0
IF_TRN1 LD      (INV_TRN),A
        LD      A,(HL)
        OR      C
INV_TRN XOR     C
        LD      (HL),A
        LD      A,(P_FLAG)
        BIT     4,A
        JR      NZ,NO_PUT
        LD      A,H
        RRA
        RRA
        RRA
        AND     #03
        OR      #58
        LD      H,A
        LD      A,(ATTR_P)
        LD      (HL),A
;
NO_PUT  ex      af,af'
        add     a,#20
        jp      nc,LPCRS2
        inc     ix
        dec     a
        jp      nz,LPCRS1
EXCRS1  ld      sp,0
CORNSP1 equ     $-2
        pop     hl
        pop     de
        ld      a,d
SIGN_YY add     a,(hl)
        ld      d,a
        inc     hl
        ld      a,e
SIGN_YX add     a,(hl)
        ld      e,a
        inc     hl
        pop     bc
        DEC     B
        JP      NZ,LPCRS0
        ret
;----------------------------------------;
;быстрое умножение B на C
;AL=B*C

MULT_BC
        ld      l,b
        xor     a
        rr      l
        jr nc,$+3: add a,c: rra: rr l
        jr nc,$+3: add a,c: rra: rr l
        jr nc,$+3: add a,c: rra: rr l
        jr nc,$+3: add a,c: rra: rr l
        jr nc,$+3: add a,c: rra: rr l
        jr nc,$+3: add a,c: rra: rr l
        jr nc,$+3: add a,c: rra: rr l
        jr nc,$+3: add a,c: rra: rr l
        ret
;----------------------------------------;
;вычисление синуса HL
;A=sin(HL)*255, CF=sign (NC=[+], C=[-])

SIN_HL
        dec     h
        jr      z,GOSIN2
        inc     h
        jr      nz,SIN360
        ld      h,SINTAB/256
        ld      a,l
        cp      180
        jr      nc,GOSIN1
        ld      a,(hl)
        and     a
        ret
GOSIN1  sub     180
        ld      l,a
        ld      a,(hl)
        scf
        ret
GOSIN2  ld      a,l
        cp      104
        jr      nc,GOSIN3
        ld      l,a
        ld      a,104
        sub     l
        ld      l,a
        ld      h,SINTAB/256
        ld      a,(hl)
        scf
        ret
GOSIN3  inc     h
SIN360  ld      bc,360
        and     a
LPSIN1  sbc     hl,bc
        jr      nc,LPSIN1
        add     hl,bc
        jp      SIN_HL
;----------------------------------------;
;вычисление косинуса HL
;A=cos(HL)*255, CF=sign (NC=[+], C=[-])

COS_HL
        dec     h
        jr      z,GOCOS3
        inc     h
        jr      nz,COS360
        ld      h,SINTAB/256
        ld      a,l
        cp      180
        jr      nc,GOCOS2
        sub     90
        jr      c,GOCOS1
        ld      l,a
        ld      a,(hl)
        scf
        ret
GOCOS1  add     a,180
        ld      l,a
        ld      a,(hl)
        and     a
        ret
GOCOS2  sub     90
        ld      l,a
        ld      a,(hl)
        scf
        ret
GOCOS3  ld      a,l
        cp      14
        jr      nc,GOCOS4
        add     a,166
        ld      l,a
        ld      h,SINTAB/256
        ld      a,(hl)
        scf
        ret
GOCOS4  cp      104
        jr      nc,GOCOS5
        sub     14
        ld      l,a
        ld      h,SINTAB/256
        ld      a,(hl)
        and     a
        ret
GOCOS5  inc     h
COS360  ld      bc,360
        and     a
LPCOS1  sbc     hl,bc
        jr      nc,LPCOS1
        add     hl,bc
        jp      COS_HL
;----------------------------------------;
;ждет нажатия на любую клавишу

WAITKEY
        XOR     A
        IN      A,(#FE)
        CPL
        AND     #1F
        JR      Z,WAITKEY
        RET
;----------------------------------------;
;выравнивание на сегмент (граница 256)
        ds      $/256*256+256-$
SINTAB  insert  "sincos.d"
;----------------------------------------;
MYSPR1  insert  "spr1.spr" ;спрайт 1
MYSPR2  insert  "spr2.spr" ;спрайт 2
;----------------------------------------;
DTATAB  ds      512       ;DELTA_LINES
;можно использовать все тот же BUFFER
;----------------------------------------;


==========================================


;----------------------------------------;
;       CIRCLE AND TEXTURED FILL         ;
; (c) SerzhSoft, Shadrinsk, 31 july 1997 ;
;----------------------------------------;

        ORG     #8000
        JP      EXAMPLE
;----------------------------------------;
;используется в изменяемых командах
_NULL   EQU     0
;----------------------------------------;
;адрес текстуры для вывода
TXRADR  DW      TEXTURE
;----------------------------------------;
ATTR_P  EQU     23693 ;атрибуты экрана
;----------------------------------------;
;биты:   0 - over 0/1,   2 - inverse 0/1
;      4 - ink&paper 9 (прозрачные атр.)
P_FLAG  EQU     23697
;----------------------------------------;
;демонстрационный пример
EXAMPLE
        XOR     A
        LD      (P_FLAG),A
;
        ld      hl,-100
        ld      de,-100
        ld      a,255
        CALL    CIRCLE
;
        LD      E,10
        LD      D,10
        XOR     A
        CALL    TXRFILL
;
        ld      hl,200
        ld      de,100
        ld      a,50
        CALL    CIRCLE
;
        LD      E,200
        LD      D,100
        LD      A,1
        CALL    TXRFILL
;
        ld      hl,115
        ld      de,150
        ld      a,20
        CALL    CIRCLE
;
        LD      E,115
        LD      D,150
        LD      A,2
        CALL    TXRFILL
;
        LD      A,#04 ;[set 2,a]
        LD      (P_FLAG),A ;inverse 1
;
        LD      E,10
        LD      D,170
        LD      A,2
        CALL    TXRFILL
;
        CALL    WAITKEY
        RET
;----------------------------------------;
;ждет нажатия на любую клавишу
WAITKEY
        XOR     A
        IN      A,(#FE)
        CPL
        AND     #1F
        JR      Z,WAITKEY
        RET
;----------------------------------------;
;Algorythm designed by SerzhSoft (c)1996
;рисование окружности
; HL=x, DE=y (-32768..+23767)
; A=радиус (0..255) ;при 0 - точка
CIRCLE
        ld      (X_CIRC),hl
        ld      (Y_CIRC),de
        ld      e,a
        ld      c,#00
        ld      b,c
        ld      d,c
        srl     a
LPCIR1  ex      af,af'
LPCIR2  call    PUT8PX
        inc     c
        ex      af,af'
        sub     c
        jr      nc,LPCIR1
        dec     e
        add     a,e
        ex      af,af'
        ld      a,e
        cp      c
        jr      nc,LPCIR2
        ret
;
PUT8PX  call    PUT4PX
;
PUT4PX  ld      a,c
        ld      c,e
        ld      e,a
        ld      hl,_NULL
X_CIRC  equ     $-2
        push    hl
        add     hl,bc
        call    PUT2PX
        pop     hl
        sbc     hl,bc
;
PUT2PX  inc     h
        dec     h
        ret     nz
        ld      a,l
        ld      (X_NEW),a
        ld      hl,_NULL
Y_CIRC  equ     $-2
        push    hl
        add     hl,de
        call    PUT1PX
        pop     hl
        sbc     hl,de
;
PUT1PX  inc     h
        dec     h
        ret     nz
        ld      a,l
        cp      #C0
        ret     nc
        push    de
        ld      d,a
        ld      e,_NULL
X_NEW   equ     $-1
        push    bc
        call    PLOT
        pop     bc
        pop     de
        ret
;----------------------------------------;
;текстурная заливка
; E=x, D=y, A=номер текстуры (0..255)
TXRFILL
        RRCA
        RRCA
        RRCA
        LD      H,A
        AND     #E0
        LD      L,A
        XOR     H
        ADD     A,TEXTURE/256
        LD      H,A
        LD      (TXRADR),HL
;
;заливка, но не по номеру текстуры, а
;по адресу, установленному в TXRADR
TXRFIL2
        LD      A,D
        CP      #C0
        RET     NC
        LD      A,(P_FLAG)
        BIT     2,A
        LD      A,#A9 ;[xor c] - inv. 0
        JR      Z,IF_TXF0
        LD      A,#A1 ;[and c] - inv. 1
IF_TXF0 LD      (INV_TXF),A
        LD      HL,BUFFER
        LD      A,#FF
        PUSH    AF
        PUSH    DE
LP_TXF1 POP     DE
        INC     D
        JP      Z,GO_TXF0
        DEC     D
        CALL    POINTHL
        JR      NZ,LP_TXF1
        EX      AF,AF'
LP_TXF2 LD      A,E
        LD      (HL),A
        OR      A
        JR      Z,GO_TXF1
        DEC     E
        CALL    POINTHL
        JR      Z,LP_TXF2
LP_TXF3 INC     E
        JR      Z,GO_TXF8
GO_TXF1 PUSH    HL
        CALL    POINT
        JR      NZ,GO_TXF7
        LD      A,(HL)
        OR      C
        CALL    TO_PLOT
        POP     HL
        LD      A,D
        OR      A
        JR      Z,GO_TXF4
        DEC     D
        CALL    POINTHL
        JR      Z,GO_TXF2
        EX      AF,AF'
        LD      A,B
        JR      GO_TXF3
GO_TXF2 EX      AF,AF'
        INC     A
        DEC     A
        JR      NZ,GO_TXF3
        LD      A,C
        PUSH    DE
GO_TXF3 EX      AF,AF'
        INC     D
GO_TXF4 LD      A,D
        CP      #BF
        JR      NC,LP_TXF3
        INC     D
        CALL    POINTHL
        JR      Z,GO_TXF5
        EX      AF,AF'
        AND     A
        JR      GO_TXF6
GO_TXF5 EX      AF,AF'
        JR      C,GO_TXF6
        SCF
        PUSH    DE
GO_TXF6 EX      AF,AF'
        DEC     D
        JR      LP_TXF3
GO_TXF7 POP     HL
GO_TXF8 LD      A,E
        SUB     (HL)
        INC     HL
        LD      (HL),D
        INC     HL
        LD      (HL),A
        INC     HL
        JR      LP_TXF1
;
LP_TXF4 ADD     HL,DE
        DEC     HL
        LD      A,(HL)
        DEC     HL
        LD      D,(HL)
        DEC     HL
        LD      E,(HL)
        PUSH    HL
        PUSH    AF
        CALL    POINT
        POP     AF
        LD      B,A
        LD      A,E
        RRA
        RRA
        RRA
        RRA
        LD      A,D
        RLA
        LD      DE,(TXRADR)
        XOR     E
        AND     #1F
        XOR     E
        LD      E,A
LP_TXF5 LD      A,(DE)
        AND     C
INV_TXF XOR     C
        XOR     (HL)
        LD      (HL),A
        RRC     C
        JR      NC,GO_TXF9
        INC     L
        LD      A,E
        XOR     #01
        LD      E,A
GO_TXF9 DJNZ    LP_TXF5
        POP     HL
GO_TXF0 LD      DE,BUFFER
        AND     A
        SBC     HL,DE
        JR      NZ,LP_TXF4
        RET
;----------------------------------------;
;выч. адреса и проверка состояния точки
POINT
        LD      B,#07
        LD      A,D
        RRA
        SCF
        RRA
        RRA
        AND     #5F
        LD      H,A
        XOR     E
        AND     B
        XOR     E
        RRCA
        RRCA
        RRCA
        LD      L,A
        LD      A,D
        XOR     H
        AND     B
        XOR     H
        LD      H,A
        LD      A,E
        AND     B
        LD      B,A
        LD      A,#80
        JR      Z,GO_PNT
LP_PNT  RRCA
        DJNZ    LP_PNT
GO_PNT  LD      C,A
        AND     (HL)
        RET
;
POINTHL
        PUSH    HL
        CALL    POINT
        POP     HL
        RET
;----------------------------------------;
;установка точки
PLOT
        CALL    POINT
        LD      A,(P_FLAG)
        PUSH    HL
        LD      HL,#A9A9 ;over 1, inv. 1
        BIT     0,A
        JR      NZ,IF_PLT1
        LD      L,#B1 ;[or c] - over 0
IF_PLT1 BIT     2,A
        JR      NZ,IF_PLT2
        LD      H,#00 ;[nop] - inverse 1
IF_PLT2 LD      (OVR_PLT),HL
        POP     HL
        LD      A,(HL)
OVR_PLT OR      C
INV_PLT XOR     C
;
TO_PLOT ;вход для пр-ры заливки и др.
        LD      (HL),A
        LD      A,(P_FLAG)
        BIT     4,A
        RET     NZ
        LD      A,H
        RRA
        RRA
        RRA
        AND     #03
        OR      #58
        LD      H,A
        LD      A,(ATTR_P)
        LD      (HL),A
        RET
;----------------------------------------;
;выравнивание на сегмент (граница 256)
        DS      $/256*256+256-$
;----------------------------------------;
;различные текстуры 2*2 знакоместа
TEXTURE
        DB      %11111111,%11110000
        DB      %11111111,%11111000
        DB      %11000000,%00110100
        DB      %11011111,%11111010
        DB      %11011111,%11110100
        DB      %11011010,%11111010
        DB      %11011101,%11110100
        DB      %11011010,%11111010
        DB      %11011111,%11110100
        DB      %11011111,%11111010
        DB      %11111111,%11110100
        DB      %11111111,%11111010
        DB      %01010101,%01010100
        DB      %00101010,%10101010
        DB      %00010101,%01010100
        DB      %00000000,%00000000
;
        DB      %11111111,%11110000
        DB      %11111111,%11111000
        DB      %11000000,%00110100
        DB      %11011111,%11111010
        DB      %11011111,%11110100
        DB      %11011000,%11111010
        DB      %11011010,%11110100
        DB      %11011000,%11111010
        DB      %11011111,%11110100
        DB      %11011111,%11111010
        DB      %11111111,%11110100
        DB      %11111111,%11111010
        DB      %01010101,%01010100
        DB      %00101010,%10101010
        DB      %00010101,%01010100
        DB      %00000000,%00000000
;
        DB      %11111111,%11110000
        DB      %11111111,%11111000
        DB      %11000000,%00110100
        DB      %11011111,%11111010
        DB      %11011111,%11110100
        DB      %11011111,%11111010
        DB      %11011111,%11110100
        DB      %11011111,%11111010
        DB      %11011111,%11110100
        DB      %11011111,%11111010
        DB      %11111111,%11110100
        DB      %11111111,%11111010
        DB      %01010101,%01010100
        DB      %00101010,%10101010
        DB      %00010101,%01010100
        DB      %00000000,%00000000
;----------------------------------------;
;буфер для запоминания координат линий
; при заливке (требует большого объема)
BUFFER  EQU     $

       EX      DE,HL         ; Например,
                               для основ-
                              ного знака X
        AND     A             ; дополни-
                               тельным бу-
                               дет I, а их
        SBC     HL,BC         ; разность
                               соответст-
                               венно:
        EX      DE,HL         ;10-1=9,т.е.
                               IX
        LD      C,A           ;код основ-
                               ного знака
        LD      A,(HL)        ;код допол-
                               нительного
                               знака
        EX      (SP),HL       ;HL=печатае-
                               мое число
        SBC     HL,DE         ;если оно <
                              дополнитель-
                              ного
        JR      C,GO_PRW3     ; значения,
                               то не печа-
                               таем
        RST     #10           ;печать до-
                               полнитель-
                               ного знака
        LD      A,C           ;основной
                               знак
        RST     #10           ;печать
        JR      GO_PRW4       ;результат -
                               двухбукв.
                               сочетание
GO_PRW3 ADD     HL,DE         ;восстанови-
                               ли (+) у
                               числа
GO_PRW4 EX      (SP),HL       ;число -> на
                               стек
HL_PRW  LD      HL,_NULL      ;адрес сле-
                               дующего
                               знака в
                               таблице
        DB      #DD           ;работаем с
                               половинкой
                               регистра IX
        DEC     L             ;DEC XL -
                               уменьшаем
                               счетчик
                               знаков
        JR      NZ,LP_PRW1    ;крутим цикл
                               пока есть
                               еще знаки
        POP     HL            ;сняли не-
                               нужный уже
                               ноль со
                               стека
        RET                   ;выход из
                               процедуры
;----------------------------------------;
RIM_TBL ;Таблица значимости букв в написа-
         нии римских чисел

        DW      1000
        DB      "M"     ;M=1000 ;CM=900
        DW      500
        DB      "D"     ;D=500  ;CD=400
        DW      100
        DB      "C"     ;C=100  ;XC=90
        DW      50
        DB      "L"     ;L=50   ;XL=40
        DW      10
        DB      "X"     ;X=10   ;IX=9
        DW      5
        DB      "V"     ;V=5    ;IV=4
        DW      1
        DB      "I"     ;I=1    ;-nop-
;----------------------------------------;
;          end of PDES LIB 2.0           ;              ;
;----------------------------------------;