0010 ; SJ[LVS\KANDE TAPE WRITE
0020 ; EPROM B6 ADRESS C930H
0030 ; ANROPAS MED EC930 XXXX YYYY ZZZZ
0040 ; PROGRAMMET SNABBSPOLAR, STOPPAR VID XXXX
0050 ; SKRIVER UT FR]N YYYY TILL ZZZZ exl. (W)
0060 ; ]TERSPOLAR, HOPPAR TILL MONITORN
0070        ORG    0C930H
0080 ;
0090 ;        PORT INITIERING
0100 ;
0110        LD     A,0FH  ;Port 5 output
0120        OUT    (7H),A
0130 ;
0140        LD     A,0H   ;Port 5 noll
0150        OUT    (5H),A
0160 ;
0170        LD     A,0CFH ;Port 4 inout
0180        OUT    (6H),A
0190 ;
0200        LD     A,0C0H ;A6,A7in A5-A0 ut
0210        OUT    (6H),A
0220 ;
0230        LD     A,0H   ;Port 4 noll
0240        OUT    (4H),A
0250 ;
0260        LD     A,1H   ;Port 5 A0=1
0270        OUT    (5H),A
0280 ;
0290 ;      Initiering
0300 ;
0310        IN     A,(4)
0320        AND    80H
0330        LD     B,A
0340        LD     HL,0H
0350        LD     DE,(0C0EH)
0360        INC    DE
0370 ;
0380 ;      STARTA SNABBSPOLA
0390        PUSH   AF
0400        LD     A,8H
0410        OUT    (4H),A
0420        LD     A,40H
0430        RST    38H
0440        LD     A,0H
0450        OUT    (4),A
0460        POP    AF
0470 ;
0480 ;      EACH TRANSITION IS COUNTED !
0490 INPUT  IN     A,(4)
0500        AND    80H
0510        CP     B    ;jmf tidigare A inv.
0520        JR     Z,PULS
0530        CPL
0540        AND    80H
0550        LD     B,A
0560        JR     INPUT
0570 ;
0580 ;      KLART SNART ?
0590 ;
0600 PULS   CPL
0610        AND    80H
0620        LD     B,A
0630        INC    HL
0640 ;        HL= Stop possition ?
0650        LD     A,E
0660        CP     L
0670        JR     NZ,P1
0680        LD     A,D
0690        CP     H
0700        JR     Z,STOP ;If jump to STOP
0710 ;
0720 ;         UTSKRIFT AV COUNTERN
0730 P1     PUSH   BC
0740        LD     BC,(0C29H)
0750        PUSH   BC
0760        DEFB   0DFH    ; TBCD3
0770        DEFB   66H
0780        POP    BC
0790        LD     (0C29H),BC
0800        POP    BC
0810 ;
0820        JR INPUT
0830 ;
0840 ;   STARTA= 1   STOPPA= 2
0850 ;   FRAM. = 8   BACK. = 10H
0860 ;   INSPELNING = 5
0870 ;   AVLYSTNING = 24H
0880 ;   PAUSE = 20H
0890 STOP   LD     A,2H
0900        OUT    (4H),A
0910        LD     A,40H
0920        RST    38H
0930        LD     A,0H
0940        OUT    (4H),A ; STOPPAD
0950        LD     A,5H
0960        OUT    (4),A
0970        LD     A,40H
0980        RST    38H
0990        LD     A,0H
1000        OUT    (4),A  ; INSPELNING
1010        DEFB   0DFH   ; Wait a second !
1020        DEFB   5DH
1030        LD     A,57H  ; W
1040        LD     (0C2BH),A
1050        DEFB   0DFH   ; Line feed
1060        DEFB   6AH
1070        LD     HL,(0C10H) ; W START
1080        LD     (0C0CH),HL ; ARG1
1090        LD     DE,(0C12H) ; W SLUT+1
1100        LD     (0C0EH),DE  ;ARG2
1110        DEFB   0DFH    ; W komando
1120        DEFB   57H
1130        LD     A,10H
1140        OUT    (4),A
1150        LD     A,40H
1160        RST    38H
1170        LD     A,0H
1180        OUT    (4),A  ; TILLBAKA-SPOLAD
1190        RST    18H
1200        DEFB   5BH    ; MONITOR