OldComp.cz

    ld    A, H          ; 1:4       synthesis version
    or    A             ; 1:4
    jr    z, UDIVIDE_0L ; 2:7/12       
   
    ld   BC, 0x0000     ; 3:10
    ld    A, D          ; 1:4
UDIVIDE_LE:   
    inc   B             ; 1:4       B++
    add  HL, HL         ; 1:11   
    jr    c, UDIVIDE_GT ; 2:7/12
    cp    H             ; 1:4
    jp   nc, UDIVIDE_LE ; 3:10
UDIVIDE_NC:             ;
    or    A             ; 1:4       HL > DE

UDIVIDE_GT:             ;
    ex   DE, HL         ; 1:4       HL = HL / DE
    ld    A, C          ; 1:4       CA = 0x0000 = result
UDIVIDE_LOOP:
    rr    D             ; 2:8
    rr    E             ; 2:8       DE >> 1
    sbc  HL, DE         ; 2:15
    jr   nc, $+3        ; 2:7/12
    add  HL, DE         ; 1:11      back
    ccf                 ; 1:4       inverts carry flag
    adc   A, A          ; 1:4
    rl    C             ; 2:8
    djnz UDIVIDE_LOOP   ; 2:8/13    B--
   
    ex   DE, HL         ; 1:4   
    ld    L, A          ; 1:4
    ld    H, C          ; 1:4
    ret                 ; 1:10

UDIVIDE_0L:             ;           HL = DE / 0L
    cp    L             ; 1:4
    ret   z             ; 1:5/11    HL = DE / 0
if 1
    ld    A, E          ; 1:4
    sub   L             ; 1:4
    ld    A, D          ; 1:4
    sbc   A, H          ; 1:4
    jr    c, UDIVIDE_Z  ; 1:7/12

    ld    A, D          ; 1:4
    cp    L             ; 1:4
    jr    c, UDIVIDE_LO ; 2:7/12
    xor   A             ; 1:4
else
    cp    D             ; 1:4
    jr    z, UDIVIDE_LO ; 2:7/12
endif
    ld    B, 0x04       ; 2:7
UDIVIDE_D:
    sla   D             ; 2:8
    rla                 ; 1:4       AD << 1
    cp    L             ; 1:4       A-L?
    jr    c,$+4         ; 2:7/12
    sub   L             ; 1:4
    inc   D             ; 1:4
   
    sla   D             ; 2:8
    rla                 ; 1:4       AD << 1
    cp    L             ; 1:4       A-L?
    jr    c,$+4         ; 2:7/12
    sub   L             ; 1:4
    inc   D             ; 1:4
    djnz UDIVIDE_D      ; 2:8/13    B--

    ld    H, D          ; 1:4
   
UDIVIDE_LO:
    ld    B, 0x04       ; 2:7
UDIVIDE_E:
    sla   E             ; 2:8
    rla                 ; 1:4       AE << 1
    jr    c, $+5        ; 2:7/12
    cp    L             ; 1:4       A-L?
    jr    c, $+4        ; 2:7/12
    sub   L             ; 1:4
    inc   E             ; 1:4

    sla   E             ; 2:8
    rla                 ; 1:4       AE << 1
    jr    c, $+5        ; 2:7/12
    cp    L             ; 1:4       A-L?
    jr    c, $+4        ; 2:7/12
    sub   L             ; 1:4
    inc   E             ; 1:4
    djnz UDIVIDE_E      ; 2:8/13    B--
   
    ld    L, E          ; 1:4       HL = DE / HL
    ld    D, B          ; 1:4
    ld    E, A          ; 1:4       DE = DE % HL
    ret                 ; 1:10
UDIVIDE_Z:
    ld    L, H          ; 1:4
    ret                 ; 1:10

; div       mul
;                   512,0/256,1 8096,0/1024,1   0,50000/0,50000     4096,2/i,1  50000,40000/128,1
; def 1     fast    33.81s      43m 45.43s*     13h 31m 38.59**     35m  7.89s  11m 34.43s          +8     
; def 0     fast    34.66s*     43m 14.73s**    13h 36m 18.47*      34m 52.46s  11m 19.85s*         0
; old       fast    48.83s      50m  5.30s      22h  2m 24.85       48m 11.00s   9m 23.07s**        +12

; synthesis fast    35.08s      41m  0.85s!     13h 38m 38.41       34m 13.89s!  8m 26.38s          +65
; synthesisxfast    35.06s      40m 22.84s!     13h 38m 38.41       33m 55.50s!  8m 26.38s          +107


; double    fast    34.22s      42m 23.69s      13h 47m 58.15       34m 39.06s  10m 51.14s          +26
; doublex   fast    34.02s      42m 10.88s      13h 36m 18.47       34m 23.34s  10m 49.16s          +42

; triple    fast    34.14s      42m  5.89s      13h 47m 58.15       34m 35.64s  10m 40.92s          +52
; triplex   fast    34.02s      41m 52.15s      13h 42m  8.29s      34m 16.03s  10m 38.75s          +76

; fast      fast    33.88s      41m 45.81s      13h 36m 18.50s      34m 16.65s  10m 39.57s          +111


; old_fast  fast                                                    48m 11.51s  idivmod
; old_fast  fast    37.44s      44m  8.89s      19h 59m 58.16s      42m 55.61s   7m 28.57s          +258


; 1 0       fast    32.94s**    43m 48.53s      13h 53m 48.00       35m 27.53s  11m 25.37s

; old_small fast    72.69s      78m 15.20s      36h 34m 41.44       77m 33.28s  12m 11.07s          -9
; small fast        34.66s      43m 14.73s      13h 36m 18.47       34m 52.46s  11m 19.85s          0

    push HL             ; 1:11      1024 +loop 101
idx101 EQU $+1          ;           1024 +loop 101
    ld   HL, 0x0000     ; 3:10      1024 +loop 101
    ld   BC, 1024       ; 3:10      1024 +loop 101 BC = step
    add  HL, BC         ; 1:11      1024 +loop 101 HL = index+step
    ld  (idx101), HL    ; 3:16      1024 +loop 101 save index
stp_lo101 EQU $+1       ;           1024 +loop 101
    ld    A, 0x00       ; 2:7       1024 +loop 101 lo stop
    sub   L             ; 1:4       1024 +loop 101
    ld    L, A          ; 1:4       1024 +loop 101
stp_hi101 EQU $+1       ;           1024 +loop 101
    ld    A, 0x00       ; 2:7       1024 +loop 101 hi stop
    sbc   A, H          ; 1:4       1024 +loop 101
    ld    H, A          ; 1:4       1024 +loop 101 HL = stop-(index+step)
    add  HL, BC         ; 1:11      1024 +loop 101 HL = stop-index
;    xor   H             ; 1:4       1024 +loop 101
    pop  HL             ; 1:10      1024 +loop 101
;    jp    p, do101      ; 3:10      1024 +loop 101 negative step
    jp   nc, do101      ; 3:10      1024 +loop 101 negative step

STRED EQU 256*96+128
KRAJ  EQU STRED+80
KROK  EQU 1024
POCATEK     EQU KRAJ-20*KROK
KONEC       EQU KRAJ+20*KROK+1

COLON(test_line,( -- ))

    PUSH2(KONEC,POCATEK)
    DO
        I UDOT CR
        I _2ADD
    call PIXEL
    DROP
   
        PUSH(STRED) I
    call line   
    pop  HL             ; 1:10
    pop  DE             ; 1:10

    PUSH_ADDLOOP(1024)
SEMICOLON

STRED      EQU 6080
KRAJ      EQU 60D0
KROK      EQU 0400
POCATEK      EQU 10D0
KONEC      EQU B0D1