⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 grass.asm

📁 一套实验系统的数字化改造程序
💻 ASM
📖 第 1 页 / 共 3 页
字号:
     mov   62h,62h
     ljmp  iner2_p61h

iner2_p61h:
     mov   61h,61h

    call   do_it
     ljmp  exit_display

justbig127:

     mov   a,42h
     subb  a,#255

     jnb   psw.7,equ255

     mov   a,42h
     mov   b,#10
     div   ab
     mov   50h,a
     mov   51h,b
     mov   b,#02
     mul   ab
     mov   50h,a
     mov   a,51h
     mov   b,#02
     mul   ab
     mov   51h,a
     subb  a,#10
     jb   psw.7,than10xiao
     mov  64h,a
     inc  63h
     ljmp  iner3_p63h

than10xiao:
     mov   64h,51h
     ljmp  iner3_p63h

iner3_p63h:
     mov   a,50h
     mov   b,#10
     div   ab
     mov   a,b
     add   a,63h
     mov   63h,a
     subb  a,#10
     jb    psw.7,iner3_small10
     mov   63h,a
     inc   62h
     ljmp  iner3_p62h
iner3_small10:
     mov   63h,63h
     ljmp  iner3_p62h

iner3_p62h:
     mov   a,50h
     mov   b,#10
     div   ab
     add   a,62h
     mov   62h,a
     subb  a,#10
     jb    psw.7,iner31_small10
     mov   62h,a
     inc   61h
     ljmp  iner3_p61h
iner31_small10:
     mov   62h,62h
     ljmp  iner3_p61h

iner3_p61h:
     mov   61h,61h

     call  do_it
     ljmp  exit_display

equ255:
     mov   a,42h
     mov   b,#10
     div   ab
     mov   50h,a
     mov   51h,b
     mov   b,#02
     mul   ab
     mov   50h,a
     mov   a,51h
     mov   b,#02
     mul   ab
     mov   51h,a
     subb  a,#10
     jb   psw.7,equthan10xiao
     mov  64h,a
     inc  63h
     ljmp  equiner3_p63h

equthan10xiao:
     mov   64h,51h
     ljmp  equiner3_p63h

equiner3_p63h:
     mov   a,50h
     mov   b,#10
     div   ab
     mov   a,b
     add   a,63h
     mov   63h,a
     subb  a,#10
     jb    psw.7,equiner3_small10
     mov   63h,a
     inc   62h
     ljmp  equiner3_p62h
equiner3_small10:
     mov   63h,63h
     ljmp  equiner3_p62h

equiner3_p62h:
     mov   a,50h
     mov   b,#10
     div   ab
     add   a,62h
     mov   62h,a
     subb  a,#10
     jb    psw.7,equiner31_small10
     mov   62h,a
     inc   61h
     ljmp  equiner3_p61h
equiner31_small10:
     mov   62h,62h
     ljmp  equiner3_p61h

equiner3_p61h:
     mov   61h,61h

     call  do_it

     inc   60h
     mov   42h,#00h

     ljmp  exit_display
exit_display:
     ret

process60h:
     mov   b,60h
     mov   a,#05
     mul   ab
     mov   75h,a
     mov   a,#01
     mov   b,60h
     mul   ab
     mov   76h,a
     subb  a,#10
     jb   psw.7,small_60h
     mov  a,76h
     subb a,#10
     mov  63h,a
     inc  75h
     mov  a,75h
     mov  b,#10
     div  ab
     mov  61h,a
     mov  62h,b
     jmp   exit_process60h

small_60h:
     clr   c
     mov   63h,76h
     mov   a,75h
     mov   b,#10
     div   ab
     mov   61h,a
     mov   62h,b
     jmp   exit_process60h

exit_process60h:
     ret

do_it:
     mov   40h,#08h
     mov   41h,61h
     CALL  CH452_WRITE

     mov   40h,#09h
     orl   62h,#80h
     mov   41h,62h
     CALL  CH452_WRITE

     mov   40h,#0ah
     mov   41h,63h
     CALL  CH452_WRITE

     mov   40h,#0bh
     mov   41h,64h
     CALL  CH452_WRITE
     clr   c
     ret


display70:
  ;   mov   a,70h
 ;    jnb   psw.7,ok_70
  ;   setb  fu
   ;  clr   c
   ;  ljmp  exit_display_70h
;ok_70:
 ;    mov   a,70h
 ;    orl   a,#00
 ;    jz    set_zheng
 ;    jb    fu,not_ok
 ;    jmp   on_display70
;not_ok:
 ;    ljmp   exit_display_70h

;set_zheng:
 ;    clr   fu
 ;    clr   c
  ;   jmp   on_display70


;on_display70:
     call  process70h

     mov   a,70h
     subb  a,#127
     jb   psw.7,ok_70h
     ljmp  justbig127_70h
ok_70h:  clr   c
     mov   a,70h
     mov   b,#02
     mul   ab
     subb  a,#10
     jnb    psw.7,justbig10_70h
     clr   c
     mov   a,70h
     mov   b,#02
     mul   ab
     mov   74h,a
     call  do_it_70h
     ljmp  exit_display_70h

justbig10_70h:

     mov   a,70h
     mov   b,#02
     mul   ab
     subb  a,#100
     jnb   psw.7,justbig100_70h
     clr   c
     mov   a,70h
     mov   b,#02
     mul   ab
     mov   b,#10
     div   ab

     add   a,73h
     mov   73h,a
     subb  a,#10
     jb    psw.7,iner1_small10_70h
     mov   73h,a
     inc   72h
     ljmp  iner1_p62h_70h

iner1_small10_70h:
     clr   c
     mov   73h,73h
     ljmp  iner1_p62h_70h

iner1_p62h_70h:
     mov   a,72h
     subb  a,#10
     jb    psw.7,iner12_small10_70h
     mov   a,72h
     subb  a,#10

     mov   72h,a
     inc   71h
     ljmp  iner1_p61h_70h

iner12_small10_70h:
     clr   c
     mov   72h,72h
     ljmp  iner1_p61h_70h

iner1_p61h_70h:
     mov   71h,71h
     mov   74h,b
     call  do_it_70h

     ljmp  exit_display_70h

justbig100_70h:
     mov   a,70h
     mov   b,#02
     mul   ab

     mov   b,#10
     div   ab
     mov   74h,b

     mov   a,70h
     mov   b,#02
     mul   ab
     mov   b,#100

     div   ab
     mov   a,b
     mov   b,#10
     div   ab
     add   a,73h
     mov   73h,a
     subb  a,#10
     jb    psw.7,iner2_small10_70h
     mov   73h,a
     inc   72h
     ljmp  iner2_p62h_70h

iner2_small10_70h:
     clr   c
     mov   73h,73h
     ljmp  iner2_p62h_70h

iner2_p62h_70h:
     mov   a,70h
     mov   b,#02
     mul   ab
     mov   b,#100
     div   ab
     add   a,72h
     mov   72h,a
     subb  a,#10
     jb    psw.7,iner22_small10_70h
     mov   72h,a
     inc   71h
     ljmp  iner2_p61h_70h

iner22_small10_70h:
     clr   c
     mov   72h,72h
     ljmp  iner2_p61h_70h

iner2_p61h_70h:
     mov   71h,71h

    call   do_it_70h
    clr    c
     ljmp  exit_display_70h

justbig127_70h:
     clr    c
     mov   a,70h
     subb  a,#255

     jnb   psw.7,equ255_70h
     clr   c
     mov   a,70h
     mov   b,#10
     div   ab
     mov   7ah,a
     mov   7bh,b
     mov   b,#02
     mul   ab
     mov   7ah,a
     mov   a,7bh
     mov   b,#02
     mul   ab
     mov   7bh,a
     subb  a,#10
     jb   psw.7,than10xiao_70h
     mov  74h,a
     inc  73h
     ljmp  iner3_p63h_70h

than10xiao_70h:
     clr   c
     mov   74h,7bh
     ljmp  iner3_p63h_70h

iner3_p63h_70h:
     mov   a,7ah
     mov   b,#10
     div   ab
     mov   a,b
     add   a,73h
     mov   73h,a
     subb  a,#10
     jb    psw.7,iner3_small10_70h
     mov   73h,a
     inc   72h
     ljmp  iner3_p62h_70h
iner3_small10_70h:
     clr   c
     mov   73h,73h
     ljmp  iner3_p62h_70h

iner3_p62h_70h:
     mov   a,7ah
     mov   b,#10
     div   ab
     add   a,72h
     mov   72h,a
     subb  a,#10
     jb    psw.7,iner31_small10_70h
     mov   72h,a
     inc   71h
     ljmp  iner3_p61h_70h
iner31_small10_70h:
     clr   c
     mov   72h,72h
     ljmp  iner3_p61h_70h

iner3_p61h_70h:
     mov   71h,71h

     call  do_it_70h
     clr   c
     ljmp  exit_display_70h

equ255_70h:
     mov   a,70h
     mov   b,#10
     div   ab
     mov   7ah,a
     mov   7bh,b
     mov   b,#02
     mul   ab
     mov   7ah,a
     mov   a,7bh
     mov   b,#02
     mul   ab
     mov   7bh,a
     subb  a,#10
     jb   psw.7,equthan10xiao_70h
     mov  74h,a
     inc  73h
     ljmp  equiner3_p63h_70h

equthan10xiao_70h:
     clr   c
     mov   74h,7bh
     ljmp  equiner3_p63h_70h

equiner3_p63h_70h:
     mov   a,7ah
     mov   b,#10
     div   ab
     mov   a,b
     add   a,73h
     mov   73h,a
     subb  a,#10
     jb    psw.7,equiner3_small10_70h
     mov   73h,a
     inc   72h
     ljmp  equiner3_p62h_70h
equiner3_small10_70h:
     clr   c
     mov   73h,73h
     ljmp  equiner3_p62h_70h

equiner3_p62h_70h:
     mov   a,7ah
     mov   b,#10
     div   ab
     add   a,72h
     mov   72h,a
     subb  a,#10
     jb    psw.7,equiner31_small10_70h
     mov   72h,a
     inc   71h
     ljmp  equiner3_p61h_70h
equiner31_small10_70h:
     clr   c
     mov   72h,72h
     ljmp  equiner3_p61h_70h

equiner3_p61h_70h:
     mov   71h,71h

     call  do_it_70h

     inc   68h
     mov   70h,#00h
     clr   c
     ljmp  exit_display_70h
exit_display_70h:
     ret

process70h:
     mov   b,68h
     mov   a,#05
     mul   ab
     mov   77h,a
     mov   a,#01
     mov   b,68h
     mul   ab
     mov   78h,a
     subb  a,#10
     jb   psw.7,small_70h
     mov  a,78h
     subb a,#10
     mov  73h,a
     inc  77h
     mov  a,77h
     mov  b,#10
     div  ab
     mov  71h,a
     mov  72h,b
     jmp   exit_process70h

small_70h:
     clr   c
     mov   73h,78h
     mov   a,77h
     mov   b,#10
     div   ab
     mov   71h,a
     mov   72h,b
     jmp   exit_process70h

exit_process70h:
     ret

do_it_70h:
     mov   40h,#0ch
     mov   41h,71h
     CALL  CH452_WRITE

     mov   40h,#0dh
     orl   72h,#80h
     mov   41h,72h
     CALL  CH452_WRITE

     mov   40h,#0eh
     mov   41h,73h
     CALL  CH452_WRITE

     mov   40h,#0fh
     mov   41h,74h
     CALL  CH452_WRITE
     clr   c
     ret

table:  db 0dh,0fh,00h,0eh
        db 0ch,09h,08h,07h
        db 0bh,06h,05h,04h
       db 0ah,03h,02h,01h

end

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -