interface.s

getkey:  xor ah,ah
         int 16h
         retn

getkey2: mov ah,1
         int 16h
         jnz getkey

         xor ax,ax
         retn


dispatcher: call getkey2
;;dispat0: cmpb #'g,r0
;;         bne 3$
.e0:     cmp al,'g'
         jnz .c3

         cmp [mode],0
         jz .c2

.c53:    dec [mode]
         jmp .c40

.c2:     inc [mode]
.c40:    jmp tograph

.c3:     cmp al,'Q'
         jnz .c5

         mov [mode],3
.c101:   retn

.c5:     cmp al,'h'
         jnz .c4

         cmp [mode],2
         jz .c53

         mov [mode],2
         mov ax,4
         cmp [zoom],ah
         jz .l1

         mov al,1
.l1:     int 10h
         retn

.c4:     cmp [mode],2
         je .c101

         cmp al,'T'
         jnz .c6

         cmp [topology],0
         jz .c84

         call torus
         mov [topology],0
         jmp .c86

.c84:    call plain
         inc [topology]
.c86:    jmp tograph

.c6:     cmp al,'o'
         jnz .c7

         cmp [mode],0
         jnz .c101

         cmp [tilecnt],0
         jnz .c108

         call incgen
         jmp .c202

.c108:   call zerocc
         call generate
         call showscn
         jmp cleanup

.c7:     cmp al,'?'
         jnz .c8

         jmp help

.c8:     cmp al,'C'
         jnz .c10

         cmp [tilecnt],0
         jnz .c201

         call zerogc
.c202:   jmp infoout
.c201:   jmp clear

.c10:    cmp al,'E'
         jnz .c11

         dec [pseudoc]
         jz .c111

         mov [pseudoc],1
.c111:   jmp showscn

.c11:    cmp al,'!'
         jnz .c12

         call random
         jmp showscn

.c12:    cmp al,'%'
         jnz .c14

         jmp indens

;;14$:     cmpb #'B,r0
;;         beq 159$
;;         jmp @#15$
.c14:    cmp al,'B'
         jnz .c15

.c159:   call insteps
         mov ax,[temp2]
         or ax,ax
         jz .c142

         mov word [x0],ax
         call inmode
         je .c500
         ja .c400

         call start_timer
.c146:   cmp [tilecnt],0
         jnz .c147

         call incgen
         jmp .c148

.c147:   call generate
         call cleanup
.c148:   dec word [x0]
         jnz .c146

.c401:   call benchcalc
.c142:   call tograph
         jmp calccells

.c400:   call tograph
         call start_timer

.c5146:  cmp [tilecnt],0
         jnz .c5147

         call incgen
         jmp .c5148

.c5147:  call zerocc
         call generate
         call showscn
         call cleanup
.c5148:  dec word [x0]
         jnz .c5146
         jmp .c401

.c500:   call tograph
         call start_timer
.c4147:  call showscn
         dec word [x0]
         jnz .c4147
         jmp .c401

.c15:    cmp al,'R'
         jnz .c16

         call totext
         call inborn
         cmp al,27         ;esc
         jz .c200

         mov bx,born
         call setrconst
         call instay
         mov bx,live
         call setrconst
         call fillrt
;;200$:    call @#tograph
;;;*         jsr calccells    ;for load sequence
;;;*         jsr crsrset      ;showscn also calls crsrset! but crsrset is fast now...
;;;*         jmp crsrcalc
;;         return
.c200:   jmp tograph

.c16:    cmp ah,4dh   ;cursor right
         jnz .c160

;;         call @#crsrclr
;;         mov #crsrbit,r4
;;         mov #right,r1
         call crsrclr
         mov bx,crsrbit
         mov di,right

;;;*         jsr shift
;;;*         bcc cright
;;         call @#shift
;;         beq 80$
         call shift
         jz .cright

;;;*         lda vptilecx
;;;*         adc #7
;;;*         jmp qleft
;;         add #8,@#vptilecx
;;         br 273$
         add [vptilecx],8
         jmp .c270

;;;*cright   inc vptilecx
;;;*         lda crsrbit
;;;*         cmp #1
;;;*         beq cxright

;;;*         lsr crsrbit
;;;*         jmp cont17u
;;80$:     incb @#vptilecx
;;         movb @r4,r0
;;         cmpb r0,#1
;;         beq 71$
.cright:
         inc [vptilecx]
         mov cl,[bx]
         cmp cl,1
         jz .c71

;;         rorb @#crsrbit    ;CY=0 by CMPB
;;         br 273$
         shr [crsrbit],1
         jmp .c270

;;;*cxright  lda #$80
;;;*         bne cm6
;;71$:    mov #128,r0
;;        br 72$
.c71:   mov cl,80h
        jmp .c72

.c160:  cmp ah,4bh ;cursor left
        jnz .c161

;;         call @#crsrclr
;;         mov #crsrbit,r4
;;         mov #left,r1
        call crsrclr
        mov bx,crsrbit
        mov di,left

;;;*         jsr shift
;;;*         bcc cleft
         call shift
         jz .cleft

;;;*         lda vptilecx
;;;*         sbc #8
;;;*qleft    sta vptilecx
;;;*         jmp cont17u
;;         movb @#vptilecx,r0
;;         sub #8,r0
;;         movb r0,@#vptilecx
;;273$:    br 270$
         sub [vptilecx],8
         jmp .c270

;;;*cleft    dec vptilecx
;;;*         lda crsrbit
;;;*         cmp #$80
;;;*         beq cxleft
;;;*         asl crsrbit
;;;*         jmp cont17u
;;81$:     decb @#vptilecx
;;         movb @r4,r0
;;         cmpb #128,r0
;;         beq 76$
.cleft:
         dec [vptilecx]
         mov cl,[bx]
         cmp cl,80h
         jz .c76

;;         aslb @#crsrbit
;;         br 270$
         shl [crsrbit],1
         jmp .c270

;;;*cxleft   lda #1
;;76$:     mov #1,r0
.c76:    mov cl,1

;;;*cm6      ldx #0
;;;*cm1      sta t1
;;;*         stx i2
;;;*         lda (crsrtile),y
;;;*         tax
;;;*         iny
;;;*         lda (crsrtile),y
;;;*         cmp #>plainbox
;;;*         bne cm4
;;;*
;;;*         cpx #<plainbox
;;;*         bne cm4
;;72$:     mov @#crsrtile,r2
;;         add r1,r2
;;         cmp @r2,#plainbox
;;         bne 73$
.c72:    mov si,[crsrtile]
         add si,di
         cmp word [si],plainbox
         jnz .c73
         jmp .c270     ;optimize 8088!

.c73:    lodsw
         mov [crsrtile],ax
.c74:    mov [bx],cl
         jmp .c270

.c161:   cmp ah,48h  ;cursor up
         jnz .c162

;;         call @#crsrclr
;;         mov #crsrbyte,r4
;;         mov #up,r1
        call crsrclr
        mov bx,crsrbyte
        mov di,up

;;;*         jsr shift
;;;*         bcc cup
         call shift
         jz .cup

;;;*         lda vptilecy
;;;*         sbc #8
;;;*qup      sta vptilecy
;;;*         jmp cont17u
;;         sub #8*256,@#vptilecx
;;         br 270$
         sub [vptilecy],8
         jmp .c270

;;;*cup      dec vptilecy
;;;*         lda crsrbyte
;;;*         beq cxup
;;82$:     decb @#vptilecy
;;         tstb @r4
;;         beq 77$
.cup:    dec [vptilecy]
         cmp byte [bx],0
         jz .c77

;;;*         dec crsrbyte
;;;*         jmp cont17u
;;         decb @r4
;;         br 270$
         dec byte [bx]
         jmp .c270

;;;*cxup     lda #7
;;;*cm3      ldx #1
;;;*         bpl cm1
;;77$:     mov #7,r0
;;         br 72$
.c77:    mov cl,7
         jmp .c72

.c162:   cmp ah,50h  ;cursor down
         jnz .c17

;;         call @#crsrclr
;;         mov #crsrbyte,r4
;;         mov #down,r1
        call crsrclr
        mov bx,crsrbyte
        mov di,down

;;;*         jsr shift
;;;*         bcc cdown
;;         call @#shift
;;         beq 83$
         call shift
         jz .cdown

;;;*         lda vptilecy
;;;*         adc #7
;;;*         bcc qup
;;         add #8*256,@#vptilecx
;;         br 270$
         add [vptilecy],8
         jmp .c270

;;;*cdown    inc vptilecy
;;;*         lda crsrbyte
;;;*         cmp #7
;;;*         beq cxdown
;;83$:     incb @#vptilecy
;;         cmpb #7,@r4
;;         beq 78$
.cdown:
         inc [vptilecy]
         cmp byte [bx],7
         jz .c78

;;         incb @r4
;;         br 270$
         inc byte [bx]
         jmp .c270

;;;*cxdown   lda #0
;;;*         beq cm3
;;78$:     clr r0
;;         br 72$
.c78:    xor cx,cx
         jmp .c72

.c17:    cmp al,' '    ;space
         jnz .c170

;;;*         #assign16 adjcell,crsrtile
;;         mov @#crsrtile,r2
;;         movb r0,sum(r2)        ;always writes no-zero value
         mov di,[crsrtile]
         mov [di+sum],al        ;always writes no-zero value

;;;*         jsr chkadd
;;         call @#chkadd
         call chkadd

;;;*         ldy crsrbyte
;;         movb @#crsrbyte,r0
         xor bx,bx
         mov bl,[crsrbyte]

;;;*         lda (crsrtile),y
;;         add r2,r0
           add bx,di

;;;*         eor crsrbit
;;;*         sta (crsrtile),y
;;         movb @#crsrbit,r1
;;         movb @r0,r2
;;         xor r1,r2
;;         movb r2,@r0
         mov al,[crsrbit]
         mov ah,al
         xor al,[bx]
         mov [bx],al

;;;*         ldy #sum
;;;*         and crsrbit
;;;*         beq lsp1
;;         bitb r1,r2
;;         beq 79$
         test al,ah
         jz .c79

;;;*         jsr inctsum
;;;*lsp2     sta (crsrtile),y  ;always writes no-zero value, so must be AC != 0
;;         mov #1,r2
;;         call @#inctsum
          mov al,1
          call inctsum

;;;*         lda zoom
;;;*         beq lsp3
;;;*
;;;*         jsr showscnz
;;;*lsp3     jsr infoout
;;;*         jmp cont17u
;;         call @#infoout
;;         br 270$
         call infoout
         jmp .c270

;;;*lsp1     jsr dectsum
;;;*         bne lsp2
;;79$:     call @#calccells
;;         br 270$
.c79:    call calccells
         jmp .c270

.c170:   cmp al,'.'
         jnz .c171

         call crsrclr

;;;*         lda #<tiles+(tilesize*249)
;;;*         sta crsrtile
;;;*         lda #>tiles+(tilesize*249)
;;;*         sta crsrtile+1
;;         mov #tiles+<tilesize*249>,@#crsrtile
           mov [crsrtile],tiles+tilesize*(hormax*vermax/2+hormax/2-1)

;;;*         lda #1
;;;*         sta crsrbyte
;;         mov #1,r1
;;         movb r1,@#crsrbyte
           mov al,1
           mov [crsrbyte],al

;;;*cont17t  sta crsrbit
;;;*         jsr cont17u
;;272$:    movb r1,@#crsrbit
;;         call @#270$
.c272:   mov [crsrbit],al
         call .c270

;;;*         lda zoom
;;;*         beq exit0
;;         tstb @#zoom
;;         beq 100$
         cmp [zoom],0
         jz .c100

;;;*         jsr setviewport
;;;*         jsr showscnz
         call setviewport
         call showscnz


;;;*cont17u  jsr crsrset
;;;*         jmp crsrcalc
;;270$:    call @#crsrset
;;         jmp @#crsrcalc
.c270:   call crsrset
         jmp crsrcalc

.c171:   cmp ah,47h    ;home
         jnz .c172

         call crsrclr

;;;*         lda #<tiles
;;;*         sta crsrtile
;;;*         lda #>tiles
;;;*         sta crsrtile+1
;;         mov #tiles,@#crsrtile
         mov [crsrtile],tiles

;;;*         lda #0
;;;*         sta crsrbyte
;;         clrb @#crsrbyte
         mov [crsrbyte],0

;;;*         lda #$80
;;;*         bne cont17t
;;         mov #128,r1
;;         br 272$
         mov al,80h
         jmp .c272

.c172:   cmp al,'l'
         jnz .c173

         mov al,[zoom]
         push ax
         mov [zoom],0
         call loadmenu
         jnz .c302

.c303:   call tograph
         call loadpat
.c302:   pop ax
         mov [zoom],al
         call calccells
         jmp tograph

.c173:   cmp al,'L'
         jnz .c174

         cmp [fn],0
         jne .c317
.c100:   retn

.c317:   mov al,[zoom]
         push ax
         mov [zoom],0
         jmp .c303

.c174:   cmp al,'+'
         jnz .c175

;;;*zoomin   jsr crsrclr
;;;*         jsr savebl     ;sets YR to 255
;;;*         sty zoom
;;;*         jsr xclrscn
;;;*         jsr setviewport
;;;*         jmp finish
;;         tstb @#zoom
;;         bne 100$
         cmp [zoom],0
         jnz .c100

;;         call @#clrscn
;;         incb @#zoom
;;         call @#setviewport
;;271$:    jmp @#tograph0
         inc [zoom]
         call tograph
         jmp .c270

.c175:   cmp al,'-'
         jnz .c176

;;         tstb @#zoom
;;         beq 100$
         cmp [zoom],0
         jz .c100

;;319$:    clrb @#zoom
;;         br 271$
         mov [zoom],0
         jmp tograph

.c176:   cmp al,'V'
         jnz .c177

         jmp showcomm

.c177:   cmp al,'v'
         jnz .c178
         jmp infov

.c178:   cmp al,'Z'
         jnz .c179

         call totext
         call chgcolors
.c220:   jmp tograph

.c179:   cmp al,'X'
         jnz .c18

         call totext
         call setcolors
         jmp .c220

.c18:    cmp al,'S'
         jnz .c20

         call boxsz
         je .c20

         call getsvfn
         jnz .c220

         call savepat
         jmp .c220

;;;*cont20   clc
;;;*         rts
.c20:      retn

;;;*shift    lda $543   ;shift st
;;;*         beq cont20
;;;*
;;;*         lda (crsrtile),y
;;;*         tax
;;;*         iny
;;;*         lda (crsrtile),y
;;;*         dey
;;;*         cmp #>plainbox
;;;*         bne cm4x
;;;*
;;;*         cpx #<plainbox
;;;*         beq cont20
;;;*
;;;*cm4x     sta crsrtile+1
;;;*         stx crsrtile
;;;*         sec
;;;*         rts
;;;*         .bend
;;shift:   tstb @#kbdbuf+1
;;         beq 20$

;;         mov @#crsrtile,r0
;;         add r1,r0
;;         cmp #plainbox,@r0
;;         beq 20$

;;         mov @r0,@#crsrtile
;;20$:     return
shift:   ;push ds
         ;xor ax,ax
         ;mov ds,ax
         ;mov al,[417h]
         ;pop ds
         mov ah,2
         int 16h
         test al,43h
         jz .l1

         mov bp,[crsrtile]
         mov ax,[ds:bp+di]
         cmp ax,plainbox   ;sets NZ
         jz .l1

         mov [crsrtile],ax
.l1:     retn

benchcalc: call stop_timer
         mov ax,20480    ;=4096*5=TIMERV*5
         mul [timercnt+2]
         mov cx,ax
         mov ax,20480
         mul [timercnt]
         add dx,cx
         mov cx,59659    ;=1193180/20
         cmp dx,cx
         jb .ok

         xor dx,dx       ;reset if overflow
         xor ax,ax       ;oveflow = approx. 655.36 s
.ok:     div cx
         inc ax
         shr cx,1
         cmp dx,cx
         jbe .c143

         inc ax
.c143:   push ax
         xor dx,dx
         call todec      ;takes centiseconds in ds:ax
         call totext
         call printstr
         db 'TIME: $'
         call printfloat
         mov ax,[temp2]
         mov cx,10000
         mul cx
         pop si
         or si,si
         jz .c143x

.c143b:  mov cx,ax
         mov ax,dx
         xor dx,dx
         div si
         xchg ax,cx
         div si
         shr si,1
         cmp dx,si
         jb .c143a

         inc ax
.c143a:  mov dx,cx
         call todec
         call printstr
         db 's',0dh,10,'SPEED: $'
         call printfloat
         call printstr
         db black,'$'
.c143x:  call curoff
         jmp getkey