; +----------------------------------------------------+ ;
; | Sample DVM Shower for use with the Magic Assembler | ;
; +----------------------------------------------------+ ;
        mov     ah,09
        mov     dx,offset(headtxt)
        int     21
        cmp     byte [0081],0d
        jne     @1
        mov     dx,offset(syntax)
        jmp     error
@1      mov     si,0082
        mov     showit,00
@4      lodsb
        cmp     al,'/'
        jne     @5
        mov     byte [si-01],00
        lodsb
        cmp     al,'i'
        jne     @6
        mov     showit,ff
        jmps    @5
@6      cmp     al,'I'
        jne     @5
        mov     showit,ff
@5      cmp     al,0d
        jne     @4
        mov     byte [si-01],00
        mov     ax,3d00
        mov     dx,0082
        int     21
        jnc     @7
        mov     dx,offset(openerr)
        jmp     error
@7      mov     handle,ax
        mov     bx,ax
        mov     ah,3f
        mov     cx,0003
        mov     dx,offset(header)
        int     21
        mov     si,offset(header)
        mov     di,offset(musthd)
        mov     cx,0003
@8      cmpsb
        jne     @9
        loop    @8
        jmps    @10
@9      mov     dx,offset(notdvm)
        jmp     error
@10     mov     ah,3f
        mov     cx,0001
        mov     dx,offset(fullqrt)
        int     21
        cmp     fullqrt,'V'
        je      @11
        cmp     fullqrt,'Q'
        je      @12
        mov     infobyt,a0
        jmps    @13
@12     mov     infobyt,20
        jmps    @13
@11     mov     ah,3f
        mov     dx,offset(version)
        int     21
        cmp     version,31
        jna     @14
        mov     dx,offset(verr)
        jmp     error
@14     mov     ah,3f
        mov     dx,offset(infobyt)
        int     21
@13     mov     ah,3f
        mov     cx,0002
        mov     dx,offset(dtime)
        int     21
        test    infobyt,08
        jz      @15
        mov     ah,3f
        mov     dx,offset(l)
        int     21
        mov     cx,l
@16     push    cx
        mov     ah,3f
        mov     cx,0001
        mov     dx,offset(ch)
        int     21
        push    bx
        mov     ah,0e
        mov     al,ch
        xor     bh,bh
        cmp     showit,ff
        je      @17
        int     10
@17     pop     bx
        pop     cx
        loop    @16
        xor     ah,ah
        cmp     showit,ff
        jne     @15
        int     16
@15     mov     ax,0013
        int     10
        push    bx
        mov     ax,1012
        mov     bx,0000
        mov     cx,0100
        mov     dx,offset(palette)
        int     10
        pop     bx
        mov     ax,a000
        mov     es,ax
@28     test    infobyt,20
        jz      @32
        mov     ah,3f
        mov     dx,offset(palette)
        test    infobyt,10
        jnz     @33
        mov     cx,0030
        jmps    @34
@33     mov     cx,0300
@34     int     21
        cmp     ax,cx
        jne     @27
        push    bx
        push    es
        mov     ax,ds
        mov     es,ax
        mov     ax,1012
        xor     bx,bx
        test    infobyt,10
        jnz     @35
        mov     cx,0010
        jmps    @36
@35     mov     cx,0100
@36     int     10
        pop     es
        pop     bx
@32     xor     di,di
        test    infobyt,80
        jz      @18
        mov     cx,00c8
        jmps    @19
@18     mov     cx,0064
@19     push    cx
        test    infobyt,40
        jz      @20
        call    showcpr
        jmps    @21
@20     call    showucp
@21     cmp     ah,00
        ja      @27
        test    infobyt,80
        jnz     @22
        add     di,00a0
@22     pop     cx
        loop    @19
        jmps    @28
@27     mov     ah,3e
        mov     bx,handle
        int     21
        xor     ah,ah
        int     16
        mov     ax,0003
        int     10
        mov     ax,4c00
        int     21

showcpr test    infobyt,80
        jz      @23
        mov     cx,00a0
        jmps    @24
@23     mov     cx,0050
@24     mov     ah,3f
        mov     dx,offset(line)
        int     21
        cmp     ax,cx
        je      @26
        mov     ah,ff
        ret
@26     mov     si,offset(line)
@25     push    cx
        lodsb
        push    ax
        and     al,f0
        mov     cl,04
        shr     al,cl
        es:
        mov     [di],al
        pop     ax
        and     al,0f
        es:
        mov     [di+01],al
        add     di,0002
        pop     cx
        loop    @25
        xor     ah,ah
        ret

showucp test    infobyt,80
        jz      @31
        mov     cx,0140
        jmps    @29
@31     mov     cx,00a0
@29     mov     ah,3f
        mov     dx,offset(line)
        int     21
        mov     si,offset(line)
        cmp     cx,ax
        je      @30
        mov     ah,ff
        ret
@30     movsb
        loop    @30
        xor     ah,ah
        ret

error   mov     ah,09
        int     21
        mov     ax,4c00
        int     21

headtxt db      'Show DVM - Written by Bert for Magic Software - Development Kit Version' 0a 0d '$'
musthd  db      'DVM'
notdvm  db      'Not a DVM' 0a 0d '$'
openerr db      'Cannot open file' 0a 0d '$'
palette dbe     DVMPAL.BIN
syntax  db      'Syntax: SDA [Filename.DVM][/I]' 0a 0d '/I shows included text (if exist)' 0a 0d '$'
verr    db      'Cannot display this version' 0a 0d '$'
-
ch      db      ?
dtime   dw      ?
fullqrt db      ?
handle  dw      ?
header  ds      3
infobyt db      ?
l       dw      ?
line    ds      140
showit  db      ?
version db      ?