ÚVOD | Novinky | 8 Bitů | Příslušenství | Drobnosti | TTL | Kontakt


SAPI-1 | ONDRA | PMI-80 | PMD-85 | klony PMD-85 | klony SM50/40 | PETR | PLAN-80A | IQ151 | TNS | FK-1 | HVĚZDA | SP 830 | PCS 1-QR6000


ZPS | Technické prostředky | Programové vybavení | Dokumentace


8 bity / SAPI-1 / Programové vybavení / MikroBASIC / LST V2.4 1kB


Listing programu Mikro BASIC verze 2.4 1kB


'JPR-1  MIKRO BASIC'   MACRO-80 3.44   09-Dec-81       PAGE    1


    1                                   ;JPR-1 MIKRO BASIC
    2                                   ;
    3                                   ;*****************************************
    4                                   ;
    5                                   ;   J P R - 1     M I K R O     B A S I C    2 . 4
    6                                   ;
    7                                   ;****************************************
    8                                   ;
    9                                   ;
   10                                           TITLE   'JPR-1  MIKRO BASIC'
   11                                   ;
   12                                           ORG     0
   13                                   ;
   14     0000'   C3 0019'                      JMP     START
   15     0003'   2A 2024'              TOP:    LHLD    TXTUNF
   16     0006'   23                            INX     H
   17     0007'   C9                            RET
   18     0008'   C3 23EE'                      JMP     BRST
   19     000B'   2A 2001'              LENGHT: LHLD    LEGT
   20     000E'   2B                            DCX     H
   21     000F'   C9                            RET
   22     0010'   C3 23F7'                      JMP     BRST+9
   23     0013'   CD 0771'              BEND:   CALL    ENDCHK
   24     0016'   C3 004D'                      JMP     RSTART
   25                                   ;
   26                                   ;START
   27                                   ;
   28     0019'   31 20B1'              START:  LXI     SP,STACK
   29     001C'   CD 0C5C'                      CALL    DISP
   30     001F'   CD 0CF4'                      CALL    NULDIS
   31     0022'   AF                            XRA     A
   32     0023'   32 2023'                      STA     MODE
   33     0026'   32 2000'                      STA     PORT24
   34     0029'   11 00D0'                      LXI     D,MSG1
   35     002C'   CD 082B'                      CALL    PRTSTG
   36     002F'   21 0003'                      LXI     H,TOP
   37     0032'   22 201D'                      SHLD    RANPNT
   38     0035'   21 20EF'                      LXI     H,TXTBGN
   39     0038'   22 2024'                      SHLD    TXTUNF
   40     003B'   21 23AD'                      LXI     H,BUFA
   41     003E'   22 20EB'                      SHLD    BUFFER
   42     0041'   21 23ED'                      LXI     H,BUFE
   43     0044'   22 20ED'                      SHLD    BUFEND
   44     0047'   21 23AB'                      LXI     H,TXTE
   45     004A'   22 20E9'              START1: SHLD    TXTEND
   46                                   ;
   47                                   ;RSTART  HORKY START
   48                                   ;
   49     004D'   CD 0906'              RSTART: CALL    CRLF
   50     0050'   31 20B1'              RSTAR1: LXI     SP,STACK
   51     0053'   11 02FB'                      LXI     D,OK
   52     0056'   97                            SUB     A
   53     0057'   32 2023'                      STA     MODE
   54     005A'   2F                            CMA
   55     005B'   32 200A'                      STA     MASKIN
   56     005E'   CD 082B'                      CALL    PRTSTG
'JPR-1  MIKRO BASIC'   MACRO-80 3.44   09-Dec-81       PAGE    1-1


   57     0061'   21 0068'                      LXI     H,ST2+1
   58     0064'   22 200B'                      SHLD    CURRNT
   59     0067'   21 0000               ST2:    LXI     H,0
   60     006A'   22 2013'                      SHLD    LOPVAR
   61     006D'   22 200D'                      SHLD    STKGOS
   62     0070'   06 3E                 ST3:    MVI     B,'>'
   63     0072'   CD 07B3'                      CALL    GETLN
   64     0075'   D5                    ST5:    PUSH    D
   65     0076'   CD 095C'                      CALL    DBUFF
   66     0079'   CD 02C5'                      CALL    TSTNUM
   67     007C'   CD 026E'                      CALL    IGNB
   68     007F'   7C                            MOV     A,H
   69     0080'   B5                            ORA     L
   70     0081'   C1                            POP     B
   71     0082'   CA 0929'                      JZ      DIRECT
   72     0085'   1B                            DCX     D
   73     0086'   7C                            MOV     A,H
   74     0087'   12                            STAX    D
   75     0088'   1B                            DCX     D
   76     0089'   7D                            MOV     A,L
   77     008A'   12                            STAX    D
   78     008B'   C5                            PUSH    B
   79     008C'   D5                            PUSH    D
   80     008D'   79                            MOV     A,C
   81     008E'   93                            SUB     E
   82     008F'   F5                            PUSH    PSW
   83     0090'   CD 0801'                      CALL    FNDLN
   84     0093'   D5                            PUSH    D
   85     0094'   C2 00A7'                      JNZ     ST4
   86     0097'   D5                            PUSH    D
   87     0098'   CD 081F'                      CALL    FNDNXT
   88     009B'   C1                            POP     B
   89     009C'   2A 2024'                      LHLD    TXTUNF
   90     009F'   CD 08A7'                      CALL    MVUP
   91     00A2'   60                            MOV     H,B
   92     00A3'   69                            MOV     L,C
   93     00A4'   22 2024'                      SHLD    TXTUNF
   94     00A7'   C1                    ST4:    POP     B
   95     00A8'   2A 2024'                      LHLD    TXTUNF
   96     00AB'   F1                            POP     PSW
   97     00AC'   E5                            PUSH    H
   98     00AD'   FE 03                         CPI     3
   99     00AF'   CA 004D'                      JZ      RSTART
  100     00B2'   85                            ADD     L
  101     00B3'   6F                            MOV     L,A
  102     00B4'   3E 00                         MVI     A,0
  103     00B6'   8C                            ADC     H
  104     00B7'   67                            MOV     H,A
  105     00B8'   CD 0964'                      CALL    DTXTE
  106     00BB'   CD 0268'                      CALL    COMP
  107     00BE'   D2 07AC'                      JNC     QSORRY
  108     00C1'   22 2024'                      SHLD    TXTUNF
  109     00C4'   D1                            POP     D
  110     00C5'   CD 08B2'                      CALL    MVDOWN
  111     00C8'   D1                            POP     D
  112     00C9'   E1                            POP     H
'JPR-1  MIKRO BASIC'   MACRO-80 3.44   09-Dec-81       PAGE    1-2


  113     00CA'   CD 08A7'                      CALL    MVUP
  114     00CD'   C3 0070'                      JMP     ST3
  115                                   ;
  116     00D0'   4D 49 4B 52           MSG1:   DB      'MIKRO BASIC',0
  117     00D4'   4F 20 42 41
  118     00D8'   53 49 43 00
  119                                   ;
  120                                   ;TABULKA KLICOVICH SLOV
  121                                   ;
  122     00DC'   4C 49 53 54           TAB1:   DB      'LIST',0
  123     00E0'   00
  124     00E1'   0359'                         DW      LIST
  125     00E3'   4C 4C 49 53                   DB      'LLIST',0
  126     00E7'   54 00
  127     00E9'   0356'                         DW      LLIST
  128     00EB'   52 55 4E 00                   DB      'RUN',0
  129     00EF'   0316'                         DW      RUN
  130     00F1'   4E 45 57 00                   DB      'NEW',0
  131     00F5'   030D'                         DW      NEW
  132     00F7'   52 45 57 49                   DB      'REWIND',0
  133     00FB'   4E 44 00
  134     00FE'   0C28'                         DW      REWIND
  135     0100'   4D 4F 4E 49           TXMON:  DB      'MONITOR',0
  136     0104'   54 4F 52 00
  137     0108'   0F0D'                         DW      MONIT
  138     010A'   52 41 4D 00                   DB      'RAM',0
  139     010E'   0976'                         DW      RAM
  140     0110'   4C 4F 41 44                   DB      'LOAD',0
  141     0114'   00
  142     0115'   0B23'                         DW      LOAD
  143     0117'   53 41 56 45                   DB      'SAVE',0
  144     011B'   00
  145     011C'   0BB3'                         DW      SAVE
  146     011E'   4E 45 58 54           TAB2:   DB      'NEXT',0
  147     0122'   00
  148     0123'   04AB'                         DW      NEXT
  149     0125'   4C 45 54 00                   DB      'LET',0
  150     0129'   05A6'                         DW      LET
  151     012B'   43 4C 53 00                   DB      'CLS',0
  152     012F'   0923'                         DW      CLS
  153     0131'   43 4C 45 41                   DB      'CLEAR',0
  154     0135'   52 00
  155     0137'   051B'                         DW      CLEAR
  156     0139'   48 41 52 44                   DB      'HARD',0
  157     013D'   00
  158     013E'   034A'                         DW      HARD
  159     0140'   44 49 53 50                   DB      'DISPL',0
  160     0144'   4C 00
  161     0146'   0350'                         DW      DISPL
  162     0148'   49 46 00                      DB      'IF',0
  163     014B'   052B'                         DW      IFF
  164     014D'   47 4F 54 4F                   DB      'GOTO',0
  165     0151'   00
  166     0152'   0339'                         DW      GOTO
  167     0154'   47 4F 53 55                   DB      'GOSUB',0
  168     0158'   42 00
'JPR-1  MIKRO BASIC'   MACRO-80 3.44   09-Dec-81       PAGE    1-3


  169     015A'   0409'                         DW      GOSUB
  170     015C'   52 45 54 55                   DB      'RETURN',0
  171     0160'   52 4E 00
  172     0163'   042B'                         DW      RETURN
  173     0165'   52 45 4D 00                   DB      'REM',0
  174     0169'   050C'                         DW      REM
  175     016B'   46 4F 52 00                   DB      'FOR',0
  176     016F'   0446'                         DW      FOR
  177     0171'   49 4E 50 55                   DB      'INPUT',0
  178     0175'   54 00
  179     0177'   0546'                         DW      INPUT
  180     0179'   50 52 49 4E                   DB      'PRINT',0
  181     017D'   54 00
  182     017F'   03A7'                         DW      PRINT
  183     0181'   4C 50 52 49                   DB      'LPRINT',0
  184     0185'   4E 54 00
  185     0188'   03A4'                         DW      LPRINT
  186     018A'   45 4E 44 00                   DB      'END',0
  187     018E'   0013'                         DW      BEND
  188     0190'   53 54 4F 50                   DB      'STOP',0
  189     0194'   00
  190     0195'   0B0E'                         DW      STOP
  191     0197'   43 41 4C 4C                   DB      'CALL',0
  192     019B'   00
  193     019C'   09A4'                         DW      BCALL
  194     019E'   4F 55 54 43                   DB      'OUTCHAR',0
  195     01A2'   48 41 52 00
  196     01A6'   0AC7'                         DW      OUTCHR
  197     01A8'   4F 55 54 00                   DB      'OUT',0
  198     01AC'   09B1'                         DW      BOUT
  199     01AE'   4F 24 00                      DB      'O$',0
  200     01B1'   0A38'                         DW      O
  201     01B3'   49 24 00                      DB      'I$',0
  202     01B6'   0A45'                         DW      I
  203     01B8'   57 41 49 54                   DB      'WAIT',0
  204     01BC'   00
  205     01BD'   09D7'                         DW      WAIT
  206     01BF'   42 45 45 50                   DB      'BEEP',0
  207     01C3'   00
  208     01C4'   09E8'                         DW      BEEP
  209     01C6'   50 4F 4B 45                   DB      'POKE',0
  210     01CA'   00
  211     01CB'   0A7D'                         DW      POKE
  212     01CD'   4D 41 53 4B                   DB      'MASK',0
  213     01D1'   00
  214     01D2'   096C'                         DW      MASK
  215     01D4'   54 41 42 00                   DB      'TAB',0
  216     01D8'   09FF'                         DW      TAB
  217     01DA'   42 59 54 45                   DB      'BYTE',0
  218     01DE'   00
  219     01DF'   0A92'                         DW      BYTE
  220     01E1'   57 4F 52 44                   DB      'WORD',0
  221     01E5'   00
  222     01E6'   0A9C'                         DW      WORD
  223     01E8'   00                            DB      0
  224     01E9'   05A0'                         DW      DEFLT
'JPR-1  MIKRO BASIC'   MACRO-80 3.44   09-Dec-81       PAGE    1-4


  225     01EB'   52 4E 44 00           TAB4:   DB      'RND',0
  226     01EF'   06C4'                         DW      RND
  227     01F1'   41 42 53 00                   DB      'ABS',0
  228     01F5'   06F1'                         DW      ABS
  229     01F7'   53 49 5A 45                   DB      'SIZE',0
  230     01FB'   00
  231     01FC'   06FA'                         DW      SIZE
  232     01FE'   50 45 45 4B                   DB      'PEEK',0
  233     0202'   00
  234     0203'   0A76'                         DW      PEEK
  235     0205'   49 4E 43 48                   DB      'INCHAR',0
  236     0209'   41 52 00
  237     020C'   0AD1'                         DW      INCHAR
  238     020E'   48 45 58 00                   DB      'HEX',0
  239     0212'   0AD8'                         DW      HEX
  240     0214'   49 4E 4D 00                   DB      'INM',0
  241     0218'   0A15'                         DW      INM
  242     021A'   49 4E 00                      DB      'IN',0
  243     021D'   0A10'                         DW      BIN
  244     021F'   27 00                         DB      27H,0
  245     0221'   0AB9'                         DW      QUOTE
  246     0223'   54 4F 50 00                   DB      'TOP',0
  247     0227'   0003'                         DW      TOP
  248     0229'   41 52 45 4D                   DB      'AREM',0
  249     022D'   00
  250     022E'   0517'                         DW      AREM
  251     0230'   4C 45 4E 00                   DB      'LEN',0
  252     0234'   000B'                         DW      LENGHT
  253     0236'   00                            DB      0
  254     0237'   06A2'                         DW      XP40
  255     0239'   54 4F 00              TAB5:   DB      'TO',0
  256     023C'   0456'                         DW      FR1
  257     023E'   00                            DB      0
  258     023F'   0777'                         DW      QWHAT
  259     0241'   53 54 45 50           TAB6:   DB      'STEP',0
  260     0245'   00
  261     0246'   0462'                         DW      FR2
  262     0248'   00                            DB      0
  263     0249'   0468'                         DW      FR3
  264     024B'   3E 3D 00              TAB8:   DB      '>=',0
  265     024E'   05BE'                         DW      XP11
  266     0250'   23 00                         DB      '#',0
  267     0252'   05C4'                         DW      XP12
  268     0254'   3E 00                         DB      '>',0
  269     0256'   05CA'                         DW      XP13
  270     0258'   3D 00                         DB      '=',0
  271     025A'   05D9'                         DW      XP15
  272     025C'   3C 3D 00                      DB      '<=',0
  273     025F'   05D1'                         DW      XP14
  274     0261'   3C 00                         DB      '<',0
  275     0263'   05DF'                         DW      XP16
  276     0265'   00                            DB      0
  277     0266'   05E5'                         DW      XP17
  278                                   ;
  279                                   ;COMP  POROVNANI HL A DE, Z=1
  280                                   ;
'JPR-1  MIKRO BASIC'   MACRO-80 3.44   09-Dec-81       PAGE    1-5


  281     0268'   7C                    COMP:   MOV     A,H
  282     0269'   BA                            CMP     D
  283     026A'   C0                            RNZ
  284     026B'   7D                            MOV     A,L
  285     026C'   BB                            CMP     E
  286     026D'   C9                            RET
  287                                   ;
  288                                   ;IGNB  VYNECHANI MAEZER PODLE DE
  289                                   ;
  290     026E'   1A                    IGNB:   LDAX    D
  291     026F'   FE 20                         CPI     20H
  292     0271'   C0                            RNZ
  293     0272'   13                            INX     D
  294     0273'   C3 026E'                      JMP     IGNB
  295                                   ;
  296                                   ;FINI
  297                                   ;
  298     0276'   F1                    FINI:   POP     PSW
  299     0277'   CD 075E'                      CALL    FIN
  300     027A'   C3 0777'                      JMP     QWHAT
  301                                   ;
  302                                   ;INDEXOVANA PROMENA
  303                                   ;
  304     027D'   CD 026E'              TSTV:   CALL    IGNB
  305     0280'   D6 40                         SUI     40H
  306     0282'   D8                            RC
  307     0283'   C2 02A1'                      JNZ     TV1
  308     0286'   13                            INX     D
  309     0287'   CD 06B3'                      CALL    PARN
  310     028A'   29                            DAD     H
  311     028B'   DA 02EF'                      JC      QHOW
  312     028E'   D5                            PUSH    D
  313     028F'   EB                            XCHG
  314     0290'   CD 06FA'                      CALL    SIZE
  315     0293'   CD 0268'                      CALL    COMP
  316     0296'   DA 07AD'                      JC      ASORRY
  317     0299'   2A 20E9'                      LHLD    TXTEND
  318     029C'   CD 071D'                      CALL    SUBDE
  319     029F'   D1                            POP     D
  320     02A0'   C9                            RET
  321                                   ;
  322                                   ;VYPOCET ADRESY ULOZENI PROMENE
  323                                   ;
  324     02A1'   FE 1B                 TV1:    CPI     1BH
  325     02A3'   3F                            CMC
  326     02A4'   D8                            RC
  327     02A5'   13                            INX     D
  328     02A6'   21 20B3'                      LXI     H,VARBGN
  329     02A9'   07                            RLC
  330     02AA'   85                            ADD     L
  331     02AB'   6F                            MOV     L,A
  332     02AC'   3E 00                         MVI     A,0
  333     02AE'   8C                            ADC     H
  334     02AF'   67                            MOV     H,A
  335     02B0'   C9                            RET
  336                                   ;
'JPR-1  MIKRO BASIC'   MACRO-80 3.44   09-Dec-81       PAGE    1-6


  337                                   ;TSTC  POROVNANI TEXTU PODLE DE SE ZNAKEM
  338                                   ;KTERY JE ZA CALL... JE-LI SHODNY POKRA-
  339                                   ;CUJE SE NA CALL...+2 JINAK NA ADRESE
  340                                   ;O N VYSSI.N JE NA ADRESE CALL..+2
  341                                   ;
  342     02B1'   E3                    TSTC:   XTHL
  343     02B2'   CD 026E'                      CALL    IGNB
  344     02B5'   BE                            CMP     M
  345     02B6'   23                            INX     H
  346     02B7'   CA 02C1'                      JZ      TC2
  347     02BA'   C5                            PUSH    B
  348     02BB'   4E                            MOV     C,M
  349     02BC'   06 00                         MVI     B,0
  350     02BE'   09                            DAD     B
  351     02BF'   C1                            POP     B
  352     02C0'   1B                            DCX     D
  353     02C1'   13                    TC2:    INX     D
  354     02C2'   23                            INX     H
  355     02C3'   E3                            XTHL
  356     02C4'   C9                            RET
  357                                   ;
  358                                   ;TSTNUM  PREVOD ASCII CISLA Z BUFFERU PODLE
  359                                   ;DE NA BINARNI CISLO V HL
  360                                   ;
  361     02C5'   21 0000               TSTNUM: LXI     H,0
  362     02C8'   44                            MOV     B,H
  363     02C9'   CD 026E'                      CALL    IGNB
  364     02CC'   FE 30                 TN1:    CPI     '0'
  365     02CE'   D8                            RC
  366     02CF'   FE 3A                         CPI     3AH
  367     02D1'   D0                            RNC
  368     02D2'   3E F0                         MVI     A,0F0H
  369     02D4'   A4                            ANA     H
  370     02D5'   C2 02EF'                      JNZ     QHOW
  371     02D8'   04                            INR     B
  372     02D9'   C5                            PUSH    B
  373     02DA'   44                            MOV     B,H
  374     02DB'   4D                            MOV     C,L
  375     02DC'   29                            DAD     H
  376     02DD'   29                            DAD     H
  377     02DE'   09                            DAD     B
  378     02DF'   29                            DAD     H
  379     02E0'   1A                            LDAX    D
  380     02E1'   13                            INX     D
  381     02E2'   E6 0F                         ANI     0FH
  382     02E4'   85                            ADD     L
  383     02E5'   6F                            MOV     L,A
  384     02E6'   3E 00                         MVI     A,0
  385     02E8'   8C                            ADC     H
  386     02E9'   67                            MOV     H,A
  387     02EA'   C1                            POP     B
  388     02EB'   1A                            LDAX    D
  389     02EC'   F2 02CC'                      JP      TN1
  390                                   ;
  391                                   ;QHOW  OTAZKA HOW
  392                                   ;
'JPR-1  MIKRO BASIC'   MACRO-80 3.44   09-Dec-81       PAGE    1-7


  393     02EF'   D5                    QHOW:   PUSH    D
  394     02F0'   11 02F6'              AHOW:   LXI     D,HOW
  395     02F3'   C3 077B'                      JMP     ERROR
  396                                   ;
  397                                   ;TEXTY OTAZEK
  398                                   ;
  399     02F6'   48 4F 57 3F           HOW:    DB      'HOW?',0DH
  400     02FA'   0D
  401     02FB'   52 45 41 44           OK:     DB      'READY',0DH
  402     02FF'   59 0D
  403     0301'   57 48 41 54           WHAT:   DB      'WHAT?',0DH
  404     0305'   3F 0D
  405     0307'   53 4F 52 52           SORRY:  DB      'SORRY',0DH
  406     030B'   59 0D
  407                                   ;
  408                                   ;NEW
  409                                   ;
  410     030D'   CD 0771'              NEW:    CALL    ENDCHK
  411     0310'   21 20EF'                      LXI     H,TXTBGN
  412     0313'   22 2024'                      SHLD    TXTUNF
  413                                   ;
  414                                   ;RUN
  415                                   ;
  416     0316'   CD 0771'              RUN:    CALL    ENDCHK
  417     0319'   11 20EF'                      LXI     D,TXTBGN
  418     031C'   21 0000               RUNNXL: LXI     H,0
  419     031F'   CD 0809'                      CALL    FNDLP
  420     0322'   DA 004D'                      JC      RSTART
  421     0325'   EB                    RUNTSL: XCHG
  422     0326'   22 200B'                      SHLD    CURRNT
  423     0329'   EB                            XCHG
  424     032A'   13                            INX     D
  425     032B'   13                            INX     D
  426     032C'   AF                    RUNSML: XRA     A
  427     032D'   32 2023'                      STA     MODE
  428     0330'   CD 0B06'                      CALL    CONT
  429     0333'   21 011D'                      LXI     H,TAB2-1
  430     0336'   C3 092C'                      JMP     EXEC
  431                                   ;
  432                                   ;GOTO
  433                                   ;
  434     0339'   CD 05B4'              GOTO:   CALL    EXPR
  435     033C'   D5                            PUSH    D
  436     033D'   CD 0771'                      CALL    ENDCHK
  437     0340'   CD 0801'                      CALL    FNDLN
  438     0343'   C2 02F0'                      JNZ     AHOW
  439     0346'   F1                            POP     PSW
  440     0347'   C3 0325'                      JMP     RUNTSL
  441                                   ;
  442                                   ;HARD
  443                                   ;
  444     034A'   CD 0C55'              HARD:   CALL    PRNTST
  445     034D'   CD 0276'                      CALL    FINI
  446                                   ;
  447                                   ;DISPL
  448                                   ;
'JPR-1  MIKRO BASIC'   MACRO-80 3.44   09-Dec-81       PAGE    1-8


  449     0350'   CD 0C5C'              DISPL:  CALL    DISP
  450     0353'   CD 0276'                      CALL    FINI
  451                                   ;
  452                                   ;LIST
  453                                   ;
  454     0356'   CD 0C55'              LLIST:  CALL    PRNTST
  455     0359'   CD 02C5'              LIST:   CALL    TSTNUM
  456     035C'   3E FF                         MVI     A,0FFH
  457     035E'   32 2006'                      STA     LISTC
  458     0361'   CD 026E'                      CALL    IGNB
  459     0364'   FE 0D                         CPI     0DH
  460     0366'   C2 0387'                      JNZ     LS4
  461     0369'   CD 0801'              LS0:    CALL    FNDLN
  462     036C'   DA 039E'              LS1:    JC      LS6
  463     036F'   3A 2006'                      LDA     LISTC
  464     0372'   FE FF                         CPI     0FFH
  465     0374'   CA 037B'                      JZ      LS5
  466     0377'   3D                            DCR     A
  467     0378'   CA 004D'                      JZ      RSTART
  468     037B'   32 2006'              LS5:    STA     LISTC
  469     037E'   CD 0892'              LS3:    CALL    PRTLN
  470     0381'   CD 0809'                      CALL    FNDLP
  471     0384'   C3 036C'                      JMP     LS1
  472     0387'   FE 2B                 LS4:    CPI     '+'
  473     0389'   C2 0369'                      JNZ     LS0
  474     038C'   13                            INX     D
  475     038D'   CD 026E'                      CALL    IGNB
  476     0390'   E5                            PUSH    H
  477     0391'   CD 02C5'                      CALL    TSTNUM
  478     0394'   7D                            MOV     A,L
  479     0395'   3C                            INR     A
  480     0396'   3C                            INR     A
  481     0397'   32 2006'                      STA     LISTC
  482     039A'   E1                            POP     H
  483     039B'   C3 0369'                      JMP     LS0
  484     039E'   CD 0C5C'              LS6:    CALL    DISP
  485     03A1'   C3 0050'                      JMP     RSTAR1
  486                                   ;
  487                                   ;PRINT
  488                                   ;
  489     03A4'   CD 0C55'              LPRINT: CALL    PRNTST
  490     03A7'   0E 08                 PRINT:  MVI     C,8
  491     03A9'   CD 02B1'                      CALL    TSTC
  492     03AC'   3A                            DB      ':'
  493     03AD'   09                            DB      9
  494     03AE'   CD 0906'                      CALL    CRLF
  495     03B1'   CD 0C5C'                      CALL    DISP
  496     03B4'   C3 032C'                      JMP     RUNSML
  497     03B7'   CD 02B1'                      CALL    TSTC
  498     03BA'   0D                            DB      0DH
  499     03BB'   09                            DB      9
  500     03BC'   CD 0906'                      CALL    CRLF
  501     03BF'   CD 0C5C'              PR6:    CALL    DISP
  502     03C2'   C3 031C'                      JMP     RUNNXL
  503     03C5'   CD 02B1'              PR0:    CALL    TSTC
  504     03C8'   2A                            DB      '*'
'JPR-1  MIKRO BASIC'   MACRO-80 3.44   09-Dec-81       PAGE    1-9


  505     03C9'   0E                            DB      14
  506     03CA'   CD 05B4'                      CALL    EXPR
  507     03CD'   7D                            MOV     A,L
  508     03CE'   0F                            RRC
  509     03CF'   0F                            RRC
  510     03D0'   E6 C0                         ANI     0C0H
  511     03D2'   32 2023'                      STA     MODE
  512     03D5'   C3 03EA'                      JMP     PR3
  513     03D8'   CD 02B1'                      CALL    TSTC
  514     03DB'   23                            DB      '#'
  515     03DC'   07                            DB      7
  516     03DD'   CD 05B4'                      CALL    EXPR
  517     03E0'   4D                            MOV     C,L
  518     03E1'   C3 03EA'                      JMP     PR3
  519     03E4'   CD 0839'                      CALL    QTSTG
  520     03E7'   C3 03FE'                      JMP     PR8
  521     03EA'   CD 02B1'              PR3:    CALL    TSTC
  522     03ED'   2C                            DB      ','
  523     03EE'   06                            DB      6
  524     03EF'   CD 075E'                      CALL    FIN
  525     03F2'   C3 03C5'                      JMP     PR0
  526     03F5'   CD 0906'                      CALL    CRLF
  527     03F8'   CD 0C5C'                      CALL    DISP
  528     03FB'   CD 0276'                      CALL    FINI
  529     03FE'   CD 05B4'              PR8:    CALL    EXPR
  530     0401'   C5                            PUSH    B
  531     0402'   CD 084E'                      CALL    PRTNUM
  532     0405'   C1                            POP     B
  533     0406'   C3 03EA'                      JMP     PR3
  534                                   ;
  535                                   ;GOSUB
  536                                   ;
  537     0409'   CD 08DD'              GOSUB:  CALL    PUSHA
  538     040C'   CD 05B4'                      CALL    EXPR
  539     040F'   D5                            PUSH    D
  540     0410'   CD 0801'                      CALL    FNDLN
  541     0413'   C2 02F0'                      JNZ     AHOW
  542     0416'   2A 200B'                      LHLD    CURRNT
  543     0419'   E5                            PUSH    H
  544     041A'   2A 200D'                      LHLD    STKGOS
  545     041D'   E5                            PUSH    H
  546     041E'   21 0000                       LXI     H,0
  547     0421'   22 2013'                      SHLD    LOPVAR
  548     0424'   39                            DAD     SP
  549     0425'   22 200D'                      SHLD    STKGOS
  550     0428'   C3 0325'                      JMP     RUNTSL
  551                                   ;
  552                                   ;RETURN
  553                                   ;
  554     042B'   CD 0771'              RETURN: CALL    ENDCHK
  555     042E'   2A 200D'                      LHLD    STKGOS
  556     0431'   7C                            MOV     A,H
  557     0432'   B5                            ORA     L
  558     0433'   CA 0777'                      JZ      QWHAT
  559     0436'   F9                            SPHL
  560     0437'   E1                            POP     H
'JPR-1  MIKRO BASIC'   MACRO-80 3.44   09-Dec-81       PAGE    1-10


  561     0438'   22 200D'                      SHLD    STKGOS
  562     043B'   E1                            POP     H
  563     043C'   22 200B'                      SHLD    CURRNT
  564     043F'   D1                            POP     D
  565     0440'   CD 08C1'                      CALL    POPA
  566     0443'   CD 0276'                      CALL    FINI
  567                                   ;
  568                                   ;FOR
  569                                   ;
  570     0446'   CD 08DD'              FOR:    CALL    PUSHA
  571     0449'   CD 0745'                      CALL    SETVAL
  572     044C'   2B                            DCX     H
  573     044D'   22 2013'                      SHLD    LOPVAR
  574     0450'   21 0238'                      LXI     H,TAB5-1
  575     0453'   C3 092C'                      JMP     EXEC
  576                                   ;
  577     0456'   CD 05B4'              FR1:    CALL    EXPR
  578     0459'   22 2017'                      SHLD    LOPLMT
  579     045C'   21 0240'                      LXI     H,TAB6-1
  580     045F'   C3 092C'                      JMP     EXEC
  581                                   ;
  582     0462'   CD 05B4'              FR2:    CALL    EXPR
  583     0465'   C3 046B'                      JMP     FR4
  584                                   ;
  585     0468'   21 0001               FR3:    LXI     H,1
  586     046B'   22 2015'              FR4:    SHLD    LOPINC
  587     046E'   2A 200B'                      LHLD    CURRNT
  588     0471'   22 2019'                      SHLD    LOPLN
  589     0474'   EB                            XCHG
  590     0475'   22 201B'                      SHLD    LOPPT
  591     0478'   01 000A                       LXI     B,0AH
  592     047B'   2A 2013'                      LHLD    LOPVAR
  593     047E'   EB                            XCHG
  594     047F'   60                            MOV     H,B
  595     0480'   68                            MOV     L,B
  596     0481'   39                            DAD     SP
  597     0482'   3E                            DB      3EH
  598     0483'   09                    FR7:    DAD     B
  599     0484'   7E                            MOV     A,M
  600     0485'   23                            INX     H
  601     0486'   B6                            ORA     M
  602     0487'   CA 04A4'                      JZ      FR8
  603     048A'   7E                            MOV     A,M
  604     048B'   2B                            DCX     H
  605     048C'   BA                            CMP     D
  606     048D'   C2 0483'                      JNZ     FR7
  607     0490'   7E                            MOV     A,M
  608     0491'   BB                            CMP     E
  609     0492'   C2 0483'                      JNZ     FR7
  610     0495'   EB                            XCHG
  611     0496'   21 0000                       LXI     H,0
  612     0499'   39                            DAD     SP
  613     049A'   44                            MOV     B,H
  614     049B'   4D                            MOV     C,L
  615     049C'   21 000A                       LXI     H,0AH
  616     049F'   19                            DAD     D
'JPR-1  MIKRO BASIC'   MACRO-80 3.44   09-Dec-81       PAGE    1-11


  617     04A0'   CD 08B2'                      CALL    MVDOWN
  618     04A3'   F9                            SPHL
  619     04A4'   2A 201B'              FR8:    LHLD    LOPPT
  620     04A7'   EB                            XCHG
  621     04A8'   CD 0276'                      CALL    FINI
  622                                   ;
  623                                   ;NEXT
  624                                   ;
  625     04AB'   CD 027D'              NEXT:   CALL    TSTV
  626     04AE'   DA 0777'                      JC      QWHAT
  627     04B1'   22 200F'                      SHLD    VARNXT
  628     04B4'   D5                    NX0:    PUSH    D
  629     04B5'   EB                            XCHG
  630     04B6'   2A 2013'                      LHLD    LOPVAR
  631     04B9'   7C                            MOV     A,H
  632     04BA'   B5                            ORA     L
  633     04BB'   CA 0778'                      JZ      AWHAT
  634     04BE'   CD 0268'                      CALL    COMP
  635     04C1'   CA 04CE'                      JZ      NX3
  636     04C4'   D1                            POP     D
  637     04C5'   CD 08C1'                      CALL    POPA
  638     04C8'   2A 200F'                      LHLD    VARNXT
  639     04CB'   C3 04B4'                      JMP     NX0
  640     04CE'   5E                    NX3:    MOV     E,M
  641     04CF'   23                            INX     H
  642     04D0'   56                            MOV     D,M
  643     04D1'   2A 2015'                      LHLD    LOPINC
  644     04D4'   E5                            PUSH    H
  645     04D5'   7C                            MOV     A,H
  646     04D6'   AA                            XRA     D
  647     04D7'   7A                            MOV     A,D
  648     04D8'   19                            DAD     D
  649     04D9'   FA 04E0'                      JM      NX4
  650     04DC'   AC                            XRA     H
  651     04DD'   FA 0504'                      JM      NX5
  652     04E0'   EB                    NX4:    XCHG
  653     04E1'   2A 2013'                      LHLD    LOPVAR
  654     04E4'   73                            MOV     M,E
  655     04E5'   23                            INX     H
  656     04E6'   72                            MOV     M,D
  657     04E7'   2A 2017'                      LHLD    LOPLMT
  658     04EA'   F1                            POP     PSW
  659     04EB'   B7                            ORA     A
  660     04EC'   F2 04F0'                      JP      NX1
  661     04EF'   EB                            XCHG
  662     04F0'   CD 073C'              NX1:    CALL    CKHLDE
  663     04F3'   D1                            POP     D
  664     04F4'   DA 0506'                      JC      NX2
  665     04F7'   2A 2019'                      LHLD    LOPLN
  666     04FA'   22 200B'                      SHLD    CURRNT
  667     04FD'   2A 201B'                      LHLD    LOPPT
  668     0500'   EB                            XCHG
  669     0501'   CD 0276'                      CALL    FINI
  670     0504'   E1                    NX5:    POP     H
  671     0505'   D1                            POP     D
  672     0506'   CD 08C1'              NX2:    CALL    POPA
'JPR-1  MIKRO BASIC'   MACRO-80 3.44   09-Dec-81       PAGE    1-12


  673     0509'   CD 0276'                      CALL    FINI
  674                                   ;
  675                                   ;REM
  676                                   ;
  677     050C'   EB                    REM:    XCHG
  678     050D'   22 201F'                      SHLD    ARMM
  679     0510'   EB                            XCHG
  680     0511'   21 0000                       LXI     H,0
  681     0514'   C3 052E'                      JMP     IFFR
  682                                   ;
  683                                   ;AREM
  684                                   ;
  685     0517'   2A 201F'              AREM:   LHLD    ARMM
  686     051A'   C9                            RET
  687                                   ;
  688                                   ;
  689                                   ;CLEAR
  690                                   ;
  691     051B'   21 20B3'              CLEAR:  LXI     H,VARBGN
  692     051E'   D5                            PUSH    D
  693     051F'   11 0036                       LXI     D,27*2
  694     0522'   0E 00                         MVI     C,0
  695     0524'   CD 0D09'                      CALL    NULD20
  696     0527'   D1                            POP     D
  697     0528'   CD 0276'                      CALL    FINI
  698                                   ;
  699                                   ;IF
  700                                   ;
  701     052B'   CD 05B4'              IFF:    CALL    EXPR
  702     052E'   7C                    IFFR:   MOV     A,H
  703     052F'   B5                            ORA     L
  704     0530'   C2 032C'                      JNZ     RUNSML
  705     0533'   CD 0821'                      CALL    FNDSKP
  706     0536'   D2 0325'                      JNC     RUNTSL
  707     0539'   C3 004D'                      JMP     RSTART
  708                                   ;
  709                                   ;CHYBA VSTUPU
  710                                   ;
  711     053C'   2A 2011'              INPERR: LHLD    STKINP
  712     053F'   F9                            SPHL
  713     0540'   E1                            POP     H
  714     0541'   22 200B'                      SHLD    CURRNT
  715     0544'   D1                            POP     D
  716     0545'   D1                            POP     D
  717                                   ;
  718                                   ;INPUT
  719                                   ;
  720     0546'                         INPUT:
  721     0546'   D5                    IP1:    PUSH    D
  722     0547'   CD 0839'                      CALL    QTSTG
  723     054A'   C3 0556'                      JMP     IP2
  724     054D'   CD 027D'                      CALL    TSTV
  725     0550'   DA 0594'                      JC      IP4
  726     0553'   C3 0568'                      JMP     IP3
  727     0556'   D5                    IP2:    PUSH    D
  728     0557'   CD 027D'                      CALL    TSTV
'JPR-1  MIKRO BASIC'   MACRO-80 3.44   09-Dec-81       PAGE    1-13


  729     055A'   DA 0777'                      JC      QWHAT
  730     055D'   1A                            LDAX    D
  731     055E'   4F                            MOV     C,A
  732     055F'   97                            SUB     A
  733     0560'   12                            STAX    D
  734     0561'   D1                            POP     D
  735     0562'   CD 082B'                      CALL    PRTSTG
  736     0565'   79                            MOV     A,C
  737     0566'   1B                            DCX     D
  738     0567'   12                            STAX    D
  739     0568'   D5                    IP3:    PUSH    D
  740     0569'   EB                            XCHG
  741     056A'   2A 200B'                      LHLD    CURRNT
  742     056D'   E5                            PUSH    H
  743     056E'   21 0546'                      LXI     H,IP1
  744     0571'   22 200B'                      SHLD    CURRNT
  745     0574'   21 0000                       LXI     H,0
  746     0577'   39                            DAD     SP
  747     0578'   22 2011'                      SHLD    STKINP
  748     057B'   D5                            PUSH    D
  749     057C'   06 3A                         MVI     B,':'
  750     057E'   CD 07B3'                      CALL    GETLN
  751     0581'   CD 095C'                      CALL    DBUFF
  752     0584'   CD 05B4'                      CALL    EXPR
  753     0587'   D1                            POP     D
  754     0588'   EB                            XCHG
  755     0589'   73                            MOV     M,E
  756     058A'   23                            INX     H
  757     058B'   72                            MOV     M,D
  758     058C'   E1                            POP     H
  759     058D'   22 200B'                      SHLD    CURRNT
  760     0590'   CD 0B06'                      CALL    CONT
  761     0593'   D1                            POP     D
  762     0594'   F1                    IP4:    POP     PSW
  763     0595'   CD 02B1'                      CALL    TSTC
  764     0598'   2C                            DB      ','
  765     0599'   03                            DB      3
  766     059A'   C3 0546'                      JMP     IP1
  767     059D'   CD 0276'                      CALL    FINI
  768     05A0'   1A                    DEFLT:  LDAX    D
  769     05A1'   FE 0D                         CPI     0DH
  770     05A3'   CA 05B1'                      JZ      LT1
  771                                   ;
  772                                   ;LET
  773                                   ;
  774     05A6'   CD 0745'              LET:    CALL    SETVAL
  775     05A9'   CD 02B1'                      CALL    TSTC
  776     05AC'   2C                            DB      ','
  777     05AD'   03                            DB      3
  778     05AE'   C3 05A6'                      JMP     LET
  779     05B1'   CD 0276'              LT1:    CALL    FINI
  780                                   ;
  781                                   ;EXPR  VYHODNOCENI VYRAZU
  782                                   ;
  783     05B4'   CD 05FC'              EXPR:   CALL    EXPR2
  784     05B7'   E5                            PUSH    H
'JPR-1  MIKRO BASIC'   MACRO-80 3.44   09-Dec-81       PAGE    1-14


  785     05B8'   21 024A'              EXPR1:  LXI     H,TAB8-1
  786     05BB'   C3 092C'                      JMP     EXEC
  787     05BE'   CD 05E7'              XP11:   CALL    XP18
  788     05C1'   D8                            RC
  789     05C2'   6F                            MOV     L,A
  790     05C3'   C9                            RET
  791     05C4'   CD 05E7'              XP12:   CALL    XP18
  792     05C7'   C8                            RZ
  793     05C8'   6F                            MOV     L,A
  794     05C9'   C9                            RET
  795     05CA'   CD 05E7'              XP13:   CALL    XP18
  796     05CD'   C8                            RZ
  797     05CE'   D8                            RC
  798     05CF'   6F                            MOV     L,A
  799     05D0'   C9                            RET
  800     05D1'   CD 05E7'              XP14:   CALL    XP18
  801     05D4'   6F                            MOV     L,A
  802     05D5'   C8                            RZ
  803     05D6'   D8                            RC
  804     05D7'   6C                            MOV     L,H
  805     05D8'   C9                            RET
  806     05D9'   CD 05E7'              XP15:   CALL    XP18
  807     05DC'   C0                            RNZ
  808     05DD'   6F                            MOV     L,A
  809     05DE'   C9                            RET
  810     05DF'   CD 05E7'              XP16:   CALL    XP18
  811     05E2'   D0                            RNC
  812     05E3'   6F                            MOV     L,A
  813     05E4'   C9                            RET
  814     05E5'   E1                    XP17:   POP     H
  815     05E6'   C9                            RET
  816     05E7'   79                    XP18:   MOV     A,C
  817     05E8'   E1                            POP     H
  818     05E9'   C1                            POP     B
  819     05EA'   E5                            PUSH    H
  820     05EB'   C5                            PUSH    B
  821     05EC'   4F                            MOV     C,A
  822     05ED'   CD 05FC'                      CALL    EXPR2
  823     05F0'   EB                            XCHG
  824     05F1'   E3                            XTHL
  825     05F2'   CD 073C'                      CALL    CKHLDE
  826     05F5'   D1                            POP     D
  827     05F6'   21 0000                       LXI     H,0
  828     05F9'   3E 01                         MVI     A,1
  829     05FB'   C9                            RET
  830     05FC'   CD 02B1'              EXPR2:  CALL    TSTC
  831     05FF'   2D                            DB      '-'
  832     0600'   06                            DB      6
  833     0601'   21 0000                       LXI     H,0
  834     0604'   C3 062E'                      JMP     XP26
  835     0607'   CD 02B1'                      CALL    TSTC
  836     060A'   2B                            DB      '+'
  837     060B'   00                            DB      0
  838     060C'   CD 0638'                      CALL    EXPR3
  839     060F'   CD 02B1'              XP23:   CALL    TSTC
  840     0612'   2B                            DB      '+'
'JPR-1  MIKRO BASIC'   MACRO-80 3.44   09-Dec-81       PAGE    1-15


  841     0613'   15                            DB      15H
  842     0614'   E5                            PUSH    H
  843     0615'   CD 0638'                      CALL    EXPR3
  844     0618'   EB                    XP24:   XCHG
  845     0619'   E3                            XTHL
  846     061A'   7C                            MOV     A,H
  847     061B'   AA                            XRA     D
  848     061C'   7A                            MOV     A,D
  849     061D'   19                            DAD     D
  850     061E'   D1                            POP     D
  851     061F'   FA 060F'                      JM      XP23
  852     0622'   AC                            XRA     H
  853     0623'   F2 060F'                      JP      XP23
  854     0626'   C3 02EF'                      JMP     QHOW
  855     0629'   CD 02B1'                      CALL    TSTC
  856     062C'   2D                            DB      '-'
  857     062D'   92                            DB      92H
  858     062E'   E5                    XP26:   PUSH    H
  859     062F'   CD 0638'                      CALL    EXPR3
  860     0632'   CD 0727'                      CALL    CHGSGN
  861     0635'   C3 0618'                      JMP     XP24
  862     0638'   CD 069C'              EXPR3:  CALL    EXPR4
  863     063B'   CD 02B1'              XP31:   CALL    TSTC
  864     063E'   2A                            DB      '*'
  865     063F'   2D                            DB      2DH
  866     0640'   E5                            PUSH    H
  867     0641'   CD 069C'                      CALL    EXPR4
  868     0644'   06 00                         MVI     B,0
  869     0646'   CD 0724'                      CALL    CHKSGN
  870     0649'   E3                            XTHL
  871     064A'   CD 0724'                      CALL    CHKSGN
  872     064D'   EB                            XCHG
  873     064E'   E3                            XTHL
  874     064F'   7C                            MOV     A,H
  875     0650'   B7                            ORA     A
  876     0651'   CA 065A'                      JZ      XP32
  877     0654'   7A                            MOV     A,D
  878     0655'   B2                            ORA     D
  879     0656'   EB                            XCHG
  880     0657'   C2 02F0'                      JNZ     AHOW
  881     065A'   7D                    XP32:   MOV     A,L
  882     065B'   21 0000                       LXI     H,0
  883     065E'   B7                            ORA     A
  884     065F'   CA 068E'                      JZ      XP35
  885     0662'   19                    XP33:   DAD     D
  886     0663'   DA 02F0'                      JC      AHOW
  887     0666'   3D                            DCR     A
  888     0667'   C2 0662'                      JNZ     XP33
  889     066A'   C3 068E'                      JMP     XP35
  890     066D'   CD 02B1'                      CALL    TSTC
  891     0670'   2F                            DB      '/'
  892     0671'   4E                            DB      4EH
  893     0672'   E5                            PUSH    H
  894     0673'   CD 069C'                      CALL    EXPR4
  895     0676'   06 00                         MVI     B,0
  896     0678'   CD 0724'                      CALL    CHKSGN
'JPR-1  MIKRO BASIC'   MACRO-80 3.44   09-Dec-81       PAGE    1-16


  897     067B'   E3                            XTHL
  898     067C'   CD 0724'                      CALL    CHKSGN
  899     067F'   EB                            XCHG
  900     0680'   E3                            XTHL
  901     0681'   EB                            XCHG
  902     0682'   7A                            MOV     A,D
  903     0683'   B3                            ORA     E
  904     0684'   CA 02F0'                      JZ      AHOW
  905     0687'   C5                            PUSH    B
  906     0688'   CD 0707'                      CALL    DIVIDE
  907     068B'   60                            MOV     H,B
  908     068C'   69                            MOV     L,C
  909     068D'   C1                            POP     B
  910     068E'   D1                    XP35:   POP     D
  911     068F'   7C                            MOV     A,H
  912     0690'   B7                            ORA     A
  913     0691'   FA 02EF'                      JM      QHOW
  914     0694'   78                            MOV     A,B
  915     0695'   B7                            ORA     A
  916     0696'   FC 0727'                      CM      CHGSGN
  917     0699'   C3 063B'                      JMP     XP31
  918     069C'   21 01EA'              EXPR4:  LXI     H,TAB4-1
  919     069F'   C3 092C'                      JMP     EXEC
  920     06A2'   CD 027D'              XP40:   CALL    TSTV
  921     06A5'   DA 06AD'                      JC      XP41
  922     06A8'   7E                            MOV     A,M
  923     06A9'   23                            INX     H
  924     06AA'   66                            MOV     H,M
  925     06AB'   6F                            MOV     L,A
  926     06AC'   C9                            RET
  927     06AD'   CD 02C5'              XP41:   CALL    TSTNUM
  928     06B0'   78                            MOV     A,B
  929     06B1'   B7                            ORA     A
  930     06B2'   C0                            RNZ
  931     06B3'   CD 02B1'              PARN:   CALL    TSTC
  932     06B6'   28                            DB      '('
  933     06B7'   09                            DB      09
  934     06B8'   CD 05B4'                      CALL    EXPR
  935     06BB'   CD 02B1'                      CALL    TSTC
  936     06BE'   29                            DB      ')'
  937     06BF'   01                            DB      1
  938     06C0'   C9                            RET
  939     06C1'   C3 0777'                      JMP     QWHAT
  940                                   ;
  941                                   ;RND
  942                                   ;
  943     06C4'   CD 06B3'              RND:    CALL    PARN
  944     06C7'   7C                            MOV     A,H
  945     06C8'   B7                            ORA     A
  946     06C9'   FA 02EF'                      JM      QHOW
  947     06CC'   B5                            ORA     L
  948     06CD'   CA 02EF'                      JZ      QHOW
  949     06D0'   D5                            PUSH    D
  950     06D1'   E5                            PUSH    H
  951     06D2'   2A 201D'                      LHLD    RANPNT
  952     06D5'   11 0FF3'                      LXI     D,CONTE
'JPR-1  MIKRO BASIC'   MACRO-80 3.44   09-Dec-81       PAGE    1-17


  953     06D8'   CD 0268'                      CALL    COMP
  954     06DB'   DA 06E1'                      JC      RA1
  955     06DE'   21 0268'                      LXI     H,COMP
  956     06E1'   5E                    RA1:    MOV     E,M
  957     06E2'   23                            INX     H
  958     06E3'   56                            MOV     D,M
  959     06E4'   22 201D'                      SHLD    RANPNT
  960     06E7'   E1                            POP     H
  961     06E8'   EB                            XCHG
  962     06E9'   C5                            PUSH    B
  963     06EA'   CD 0707'                      CALL    DIVIDE
  964     06ED'   C1                            POP     B
  965     06EE'   D1                            POP     D
  966     06EF'   23                            INX     H
  967     06F0'   C9                            RET
  968                                   ;
  969                                   ;ABS
  970                                   ;
  971     06F1'   CD 06B3'              ABS:    CALL    PARN
  972     06F4'   1B                            DCX     D
  973     06F5'   CD 0724'                      CALL    CHKSGN
  974     06F8'   13                            INX     D
  975     06F9'   C9                            RET
  976                                   ;
  977                                   ;SIZE
  978                                   ;
  979     06FA'   2A 2024'              SIZE:   LHLD    TXTUNF
  980     06FD'   D5                            PUSH    D
  981     06FE'   EB                            XCHG
  982     06FF'   2A 20E9'                      LHLD    TXTEND
  983     0702'   CD 071D'                      CALL    SUBDE
  984     0705'   D1                            POP     D
  985     0706'   C9                            RET
  986                                   ;
  987                                   ;DIVIE
  988                                   ;
  989     0707'   E5                    DIVIDE: PUSH    H
  990     0708'   6C                            MOV     L,H
  991     0709'   26 00                         MVI     H,0
  992     070B'   CD 0712'                      CALL    DV1
  993     070E'   41                            MOV     B,C
  994     070F'   7D                            MOV     A,L
  995     0710'   E1                            POP     H
  996     0711'   67                            MOV     H,A
  997     0712'   0E FF                 DV1:    MVI     C,0FFH
  998     0714'   0C                    DV2:    INR     C
  999     0715'   CD 071D'                      CALL    SUBDE
 1000     0718'   D2 0714'                      JNC     DV2
 1001     071B'   19                            DAD     D
 1002     071C'   C9                            RET
 1003     071D'   7D                    SUBDE:  MOV     A,L
 1004     071E'   93                            SUB     E
 1005     071F'   6F                            MOV     L,A
 1006     0720'   7C                            MOV     A,H
 1007     0721'   9A                            SBB     D
 1008     0722'   67                            MOV     H,A
'JPR-1  MIKRO BASIC'   MACRO-80 3.44   09-Dec-81       PAGE    1-18


 1009     0723'   C9                            RET
 1010                                   ;
 1011     0724'   7C                    CHKSGN: MOV     A,H
 1012     0725'   B7                            ORA     A
 1013     0726'   F0                            RP
 1014     0727'   7C                    CHGSGN: MOV     A,H
 1015     0728'   B5                            ORA     L
 1016     0729'   C8                            RZ
 1017     072A'   7C                            MOV     A,H
 1018     072B'   F5                            PUSH    PSW
 1019     072C'   2F                            CMA
 1020     072D'   67                            MOV     H,A
 1021     072E'   7D                            MOV     A,L
 1022     072F'   2F                            CMA
 1023     0730'   6F                            MOV     L,A
 1024     0731'   23                            INX     H
 1025     0732'   F1                            POP     PSW
 1026     0733'   AC                            XRA     H
 1027     0734'   F2 02EF'                      JP      QHOW
 1028     0737'   78                            MOV     A,B
 1029     0738'   EE 80                         XRI     80H
 1030     073A'   47                            MOV     B,A
 1031     073B'   C9                            RET
 1032                                   ;
 1033     073C'   7C                    CKHLDE: MOV     A,H
 1034     073D'   AA                            XRA     D
 1035     073E'   F2 0742'                      JP      CK1
 1036     0741'   EB                            XCHG
 1037     0742'   C3 0268'              CK1:    JMP     COMP
 1038                                   ;
 1039                                   ;SETVAL
 1040                                   ;
 1041     0745'   CD 027D'              SETVAL: CALL    TSTV
 1042     0748'   DA 0777'                      JC      QWHAT
 1043     074B'   E5                            PUSH    H
 1044     074C'   CD 02B1'                      CALL    TSTC
 1045     074F'   3D                            DB      '='
 1046     0750'   0A                            DB      0AH
 1047     0751'   CD 05B4'                      CALL    EXPR
 1048     0754'   44                            MOV     B,H
 1049     0755'   4D                            MOV     C,L
 1050     0756'   E1                            POP     H
 1051     0757'   71                            MOV     M,C
 1052     0758'   23                            INX     H
 1053     0759'   70                            MOV     M,B
 1054     075A'   C9                            RET
 1055     075B'   C3 0777'                      JMP     QWHAT
 1056                                   ;
 1057                                   ;FIN
 1058                                   ;
 1059     075E'   CD 02B1'              FIN:    CALL    TSTC
 1060     0761'   3A                            DB      ':'
 1061     0762'   04                            DB      4
 1062     0763'   F1                            POP     PSW
 1063     0764'   C3 032C'                      JMP     RUNSML
 1064     0767'   CD 02B1'                      CALL    TSTC
'JPR-1  MIKRO BASIC'   MACRO-80 3.44   09-Dec-81       PAGE    1-19


 1065     076A'   0D                            DB      0DH
 1066     076B'   04                            DB      4
 1067     076C'   F1                            POP     PSW
 1068     076D'   C3 031C'                      JMP     RUNNXL
 1069     0770'   C9                            RET
 1070                                   ;
 1071                                   ;ENDCHK
 1072                                   ;
 1073     0771'   CD 026E'              ENDCHK: CALL    IGNB
 1074     0774'   FE 0D                         CPI     0DH
 1075     0776'   C8                            RZ
 1076     0777'   D5                    QWHAT:  PUSH    D
 1077     0778'   11 0301'              AWHAT:  LXI     D,WHAT
 1078     077B'   97                    ERROR:  SUB     A
 1079     077C'   32 2023'                      STA     MODE
 1080     077F'   CD 082B'                      CALL    PRTSTG
 1081     0782'   CD 0C5C'                      CALL    DISP
 1082     0785'   D1                            POP     D
 1083     0786'   1A                            LDAX    D
 1084     0787'   F5                            PUSH    PSW
 1085     0788'   97                            SUB     A
 1086     0789'   12                            STAX    D
 1087     078A'   2A 200B'                      LHLD    CURRNT
 1088     078D'   E5                            PUSH    H
 1089     078E'   7E                            MOV     A,M
 1090     078F'   23                            INX     H
 1091     0790'   B6                            ORA     M
 1092     0791'   D1                            POP     D
 1093     0792'   CA 004D'                      JZ      RSTART
 1094     0795'   7E                            MOV     A,M
 1095     0796'   B7                            ORA     A
 1096     0797'   FA 053C'                      JM      INPERR
 1097     079A'   CD 0892'                      CALL    PRTLN
 1098     079D'   1B                            DCX     D
 1099     079E'   F1                            POP     PSW
 1100     079F'   12                            STAX    D
 1101     07A0'   3E 3F                         MVI     A,3FH
 1102     07A2'   CD 0908'                      CALL    OUTC
 1103     07A5'   97                            SUB     A
 1104     07A6'   CD 082B'                      CALL    PRTSTG
 1105     07A9'   C3 004D'                      JMP     RSTART
 1106     07AC'   D5                    QSORRY: PUSH    D
 1107     07AD'   11 0307'              ASORRY: LXI     D,SORRY
 1108     07B0'   C3 077B'                      JMP     ERROR
 1109                                   ;
 1110                                   ;GETLN
 1111                                   ;
 1112     07B3'   78                    GETLN:  MOV     A,B
 1113     07B4'   CD 0908'                      CALL    OUTC
 1114     07B7'   CD 095C'                      CALL    DBUFF
 1115     07BA'   CD 0D6A'              GL1:    CALL    CI
 1116     07BD'   FE 08                         CPI     8
 1117     07BF'   CA 07D9'                      JZ      GL3
 1118     07C2'   FE 7F                         CPI     7FH
 1119     07C4'   CA 07E9'                      JZ      GL4
 1120     07C7'   CD 0908'                      CALL    OUTC
'JPR-1  MIKRO BASIC'   MACRO-80 3.44   09-Dec-81       PAGE    1-20


 1121     07CA'   12                            STAX    D
 1122     07CB'   13                            INX     D
 1123     07CC'   FE 0D                         CPI     0DH
 1124     07CE'   C8                            RZ
 1125     07CF'   7B                            MOV     A,E
 1126     07D0'   E5                    CXBUFE: PUSH    H
 1127     07D1'   2A 20ED'                      LHLD    BUFEND
 1128     07D4'   BD                            CMP     L
 1129     07D5'   E1                            POP     H
 1130     07D6'   C2 07BA'                      JNZ     GL1
 1131     07D9'   7B                    GL3:    MOV     A,E
 1132     07DA'   E5                    CXBUFA: PUSH    H
 1133     07DB'   2A 20EB'                      LHLD    BUFFER
 1134     07DE'   BD                            CMP     L
 1135     07DF'   E1                            POP     H
 1136     07E0'   CA 07E9'                      JZ      GL4
 1137     07E3'   CD 07F1'                      CALL    GL5
 1138     07E6'   C3 07BA'                      JMP     GL1
 1139     07E9'   CD 0906'              GL4:    CALL    CRLF
 1140     07EC'   06 3E                         MVI     B,'>'
 1141     07EE'   C3 07B3'                      JMP     GETLN
 1142     07F1'   1B                    GL5:    DCX     D
 1143     07F2'   3E 08                         MVI     A,8
 1144     07F4'   CD 0908'                      CALL    OUTC
 1145     07F7'   3E 20                         MVI     A,' '
 1146     07F9'   CD 0908'                      CALL    OUTC
 1147     07FC'   3E 08                         MVI     A,8
 1148     07FE'   C3 0908'                      JMP     OUTC
 1149                                   ;
 1150                                   ;FNDLN
 1151                                   ;
 1152     0801'   7C                    FNDLN:  MOV     A,H
 1153     0802'   B7                            ORA     A
 1154     0803'   FA 02EF'                      JM      QHOW
 1155     0806'   11 20EF'                      LXI     D,TXTBGN
 1156     0809'   E5                    FNDLP:  PUSH    H
 1157     080A'   2A 2024'                      LHLD    TXTUNF
 1158     080D'   2B                            DCX     H
 1159     080E'   CD 0268'                      CALL    COMP
 1160     0811'   E1                            POP     H
 1161     0812'   D8                            RC
 1162     0813'   1A                            LDAX    D
 1163     0814'   95                            SUB     L
 1164     0815'   47                            MOV     B,A
 1165     0816'   13                            INX     D
 1166     0817'   1A                            LDAX    D
 1167     0818'   9C                            SBB     H
 1168     0819'   DA 0820'                      JC      FL2
 1169     081C'   1B                            DCX     D
 1170     081D'   B0                            ORA     B
 1171     081E'   C9                            RET
 1172                                   ;
 1173                                   ;FNDNXT
 1174                                   ;
 1175     081F'   13                    FNDNXT: INX     D
 1176     0820'   13                    FL2:    INX     D
'JPR-1  MIKRO BASIC'   MACRO-80 3.44   09-Dec-81       PAGE    1-21


 1177     0821'   1A                    FNDSKP: LDAX    D
 1178     0822'   FE 0D                         CPI     0DH
 1179     0824'   C2 0820'                      JNZ     FL2
 1180     0827'   13                            INX     D
 1181     0828'   C3 0809'                      JMP     FNDLP
 1182                                   ;
 1183                                   ;PRTSTG
 1184                                   ;
 1185     082B'   47                    PRTSTG: MOV     B,A
 1186     082C'   1A                    PS1:    LDAX    D
 1187     082D'   13                            INX     D
 1188     082E'   B8                            CMP     B
 1189     082F'   C8                            RZ
 1190     0830'   CD 0908'                      CALL    OUTC
 1191     0833'   FE 0D                         CPI     0DH
 1192     0835'   C2 082C'                      JNZ     PS1
 1193     0838'   C9                            RET
 1194                                   ;
 1195                                   ;QTSTG
 1196                                   ;
 1197     0839'   CD 02B1'              QTSTG:  CALL    TSTC
 1198     083C'   22                            DB      '"'
 1199     083D'   0F                            DB      0FH
 1200     083E'   3E 22                         MVI     A,'"'
 1201     0840'   CD 082B'              QT1:    CALL    PRTSTG
 1202     0843'   FE 0D                         CPI     0DH
 1203     0845'   E1                            POP     H
 1204     0846'   CA 03BF'                      JZ      PR6
 1205     0849'   23                    QT2:    INX     H
 1206     084A'   23                            INX     H
 1207     084B'   23                            INX     H
 1208     084C'   E9                            PCHL
 1209     084D'   C9                            RET
 1210                                   ;
 1211                                   ;PRTNUM
 1212                                   ;
 1213     084E'   06 00                 PRTNUM: MVI     B,0
 1214     0850'   CD 0724'                      CALL    CHKSGN
 1215     0853'   F2 0859'                      JP      PN1
 1216     0856'   06 2D                         MVI     B,2DH
 1217     0858'   0D                            DCR     C
 1218     0859'   D5                    PN1:    PUSH    D
 1219     085A'   11 000A                       LXI     D,0AH
 1220     085D'   D5                            PUSH    D
 1221     085E'   0D                            DCR     C
 1222     085F'   C5                            PUSH    B
 1223     0860'   CD 0707'              PN2:    CALL    DIVIDE
 1224     0863'   78                            MOV     A,B
 1225     0864'   B1                            ORA     C
 1226     0865'   CA 0870'                      JZ      PN3
 1227     0868'   E3                            XTHL
 1228     0869'   2D                            DCR     L
 1229     086A'   E5                            PUSH    H
 1230     086B'   60                            MOV     H,B
 1231     086C'   69                            MOV     L,C
 1232     086D'   C3 0860'                      JMP     PN2
'JPR-1  MIKRO BASIC'   MACRO-80 3.44   09-Dec-81       PAGE    1-22


 1233     0870'   C1                    PN3:    POP     B
 1234     0871'   0D                    PN4:    DCR     C
 1235     0872'   79                            MOV     A,C
 1236     0873'   B7                            ORA     A
 1237     0874'   FA 087F'                      JM      PN5
 1238     0877'   3E 20                         MVI     A,20H
 1239     0879'   CD 0908'                      CALL    OUTC
 1240     087C'   C3 0871'                      JMP     PN4
 1241     087F'   78                    PN5:    MOV     A,B
 1242     0880'   B7                            ORA     A
 1243     0881'   C4 0908'                      CNZ     OUTC
 1244     0884'   5D                            MOV     E,L
 1245     0885'   7B                    PN6:    MOV     A,E
 1246     0886'   FE 0A                         CPI     0AH
 1247     0888'   D1                            POP     D
 1248     0889'   C8                            RZ
 1249     088A'   C6 30                         ADI     30H
 1250     088C'   CD 0908'                      CALL    OUTC
 1251     088F'   C3 0885'                      JMP     PN6
 1252                                   ;
 1253                                   ;PRTLN
 1254                                   ;
 1255     0892'   1A                    PRTLN:  LDAX    D
 1256     0893'   6F                            MOV     L,A
 1257     0894'   13                            INX     D
 1258     0895'   1A                            LDAX    D
 1259     0896'   67                            MOV     H,A
 1260     0897'   13                            INX     D
 1261     0898'   0E 04                         MVI     C,4
 1262     089A'   CD 084E'                      CALL    PRTNUM
 1263     089D'   3E 20                         MVI     A,20H
 1264     089F'   CD 0908'                      CALL    OUTC
 1265     08A2'   97                            SUB     A
 1266     08A3'   CD 082B'                      CALL    PRTSTG
 1267     08A6'   C9                            RET
 1268                                   ;
 1269                                   ;MVUP
 1270                                   ;
 1271     08A7'   CD 0268'              MVUP:   CALL    COMP
 1272     08AA'   C8                            RZ
 1273     08AB'   1A                            LDAX    D
 1274     08AC'   02                            STAX    B
 1275     08AD'   13                            INX     D
 1276     08AE'   03                            INX     B
 1277     08AF'   C3 08A7'                      JMP     MVUP
 1278                                   ;
 1279                                   ;MVDOWN
 1280                                   ;
 1281     08B2'   78                    MVDOWN: MOV     A,B
 1282     08B3'   92                            SUB     D
 1283     08B4'   C2 08BA'                      JNZ     MD1
 1284     08B7'   79                            MOV     A,C
 1285     08B8'   93                            SUB     E
 1286     08B9'   C8                            RZ
 1287     08BA'   1B                    MD1:    DCX     D
 1288     08BB'   2B                            DCX     H
'JPR-1  MIKRO BASIC'   MACRO-80 3.44   09-Dec-81       PAGE    1-23


 1289     08BC'   1A                            LDAX    D
 1290     08BD'   77                            MOV     M,A
 1291     08BE'   C3 08B2'                      JMP     MVDOWN
 1292                                   ;
 1293                                   ;POPA
 1294                                   ;
 1295     08C1'   C1                    POPA:   POP     B
 1296     08C2'   E1                            POP     H
 1297     08C3'   22 2013'                      SHLD    LOPVAR
 1298     08C6'   7C                            MOV     A,H
 1299     08C7'   B5                            ORA     L
 1300     08C8'   CA 08DB'                      JZ      PP1
 1301     08CB'   E1                            POP     H
 1302     08CC'   22 2015'                      SHLD    LOPINC
 1303     08CF'   E1                            POP     H
 1304     08D0'   22 2017'                      SHLD    LOPLMT
 1305     08D3'   E1                            POP     H
 1306     08D4'   22 2019'                      SHLD    LOPLN
 1307     08D7'   E1                            POP     H
 1308     08D8'   22 201B'                      SHLD    LOPPT
 1309     08DB'   C5                    PP1:    PUSH    B
 1310     08DC'   C9                            RET
 1311                                   ;
 1312                                   ;PUSHA
 1313                                   ;
 1314     08DD'   21 204E'              PUSHA:  LXI     H,STKLMT
 1315     08E0'   CD 0727'                      CALL    CHGSGN
 1316     08E3'   C1                            POP     B
 1317     08E4'   39                            DAD     SP
 1318     08E5'   D2 07AC'                      JNC     QSORRY
 1319     08E8'   2A 2013'                      LHLD    LOPVAR
 1320     08EB'   7C                            MOV     A,H
 1321     08EC'   B5                            ORA     L
 1322     08ED'   CA 0903'                      JZ      PU1
 1323     08F0'   2A 201B'                      LHLD    LOPPT
 1324     08F3'   E5                            PUSH    H
 1325     08F4'   2A 2019'                      LHLD    LOPLN
 1326     08F7'   E5                            PUSH    H
 1327     08F8'   2A 2017'                      LHLD    LOPLMT
 1328     08FB'   E5                            PUSH    H
 1329     08FC'   2A 2015'                      LHLD    LOPINC
 1330     08FF'   E5                            PUSH    H
 1331     0900'   2A 2013'                      LHLD    LOPVAR
 1332     0903'   E5                    PU1:    PUSH    H
 1333     0904'   C5                            PUSH    B
 1334     0905'   C9                            RET
 1335                                   ;
 1336                                   ;CRLF , OUTC
 1337                                   ;
 1338     0906'   3E 0D                 CRLF:   MVI     A,0DH
 1339     0908'   F5                    OUTC:   PUSH    PSW
 1340     0909'   FE 0D                         CPI     0DH
 1341     090B'   CA 0913'                      JZ      LINEF
 1342     090E'   CD 2007'                      CALL    CO
 1343     0911'   F1                    H2:     POP     PSW
 1344     0912'   C9                            RET
'JPR-1  MIKRO BASIC'   MACRO-80 3.44   09-Dec-81       PAGE    1-24


 1345     0913'   CD 0919'              LINEF:  CALL    CROUT
 1346     0916'   C3 0911'                      JMP     H2
 1347     0919'   3E 0D                 CROUT:  MVI     A,0DH
 1348     091B'   CD 2007'                      CALL    CO
 1349     091E'   3E 0A                         MVI     A,0AH
 1350     0920'   C3 2007'                      JMP     CO
 1351                                   ;
 1352                                   ;NULOVANI DISPLEJE
 1353                                   ;
 1354     0923'   CD 0CF4'              CLS:    CALL    NULDIS
 1355     0926'   CD 0276'                      CALL    FINI
 1356                                   ;
 1357                                   ;DIRECT MODUL
 1358                                   ;
 1359     0929'   21 00DB'              DIRECT: LXI     H,TAB1-1
 1360     092C'   CD 026E'              EXEC:   CALL    IGNB
 1361     092F'   D5                            PUSH    D
 1362     0930'   1A                    EX1:    LDAX    D
 1363     0931'   13                            INX     D
 1364     0932'   FE 2E                         CPI     '.'
 1365     0934'   CA 094E'                      JZ      EX3
 1366     0937'   23                            INX     H
 1367     0938'   BE                            CMP     M
 1368     0939'   CA 0930'                      JZ      EX1
 1369     093C'   3E 00                         MVI     A,0
 1370     093E'   1B                            DCX     D
 1371     093F'   BE                            CMP     M
 1372     0940'   CA 0955'                      JZ      EX5
 1373     0943'   23                    EX2:    INX     H
 1374     0944'   BE                            CMP     M
 1375     0945'   C2 0943'                      JNZ     EX2
 1376     0948'   23                            INX     H
 1377     0949'   23                            INX     H
 1378     094A'   D1                            POP     D
 1379     094B'   C3 092C'                      JMP     EXEC
 1380     094E'   3E 00                 EX3:    MVI     A,0
 1381     0950'   23                    EX4:    INX     H
 1382     0951'   BE                            CMP     M
 1383     0952'   C2 0950'                      JNZ     EX4
 1384     0955'   23                    EX5:    INX     H
 1385     0956'   7E                            MOV     A,M
 1386     0957'   23                            INX     H
 1387     0958'   66                            MOV     H,M
 1388     0959'   6F                            MOV     L,A
 1389     095A'   F1                            POP     PSW
 1390     095B'   E9                            PCHL
 1391                                   ;
 1392                                   ;DBUFF
 1393                                   ;
 1394     095C'   E5                    DBUFF:  PUSH    H
 1395     095D'   2A 20EB'                      LHLD    BUFFER
 1396     0960'   54                            MOV     D,H
 1397     0961'   5D                            MOV     E,L
 1398     0962'   E1                            POP     H
 1399     0963'   C9                            RET
 1400     0964'   E5                    DTXTE:  PUSH    H
'JPR-1  MIKRO BASIC'   MACRO-80 3.44   09-Dec-81       PAGE    1-25


 1401     0965'   2A 20E9'                      LHLD    TXTEND
 1402     0968'   54                            MOV     D,H
 1403     0969'   5D                            MOV     E,L
 1404     096A'   E1                            POP     H
 1405     096B'   C9                            RET
 1406                                   ;
 1407                                   ;MASKA
 1408                                   ;
 1409     096C'   CD 05B4'              MASK:   CALL    EXPR
 1410     096F'   7D                            MOV     A,L
 1411     0970'   32 200A'                      STA     MASKIN
 1412     0973'   CD 0276'                      CALL    FINI
 1413                                   ;
 1414                                   ;RAM
 1415                                   ;
 1416     0976'   CD 05B4'              RAM:    CALL    EXPR
 1417     0979'   EB                            XCHG
 1418     097A'   21 23AB'                      LXI     H,TXTE
 1419     097D'   EB                            XCHG
 1420     097E'   CD 0268'                      CALL    COMP
 1421     0981'   DA 07AD'                      JC      ASORRY
 1422     0984'   7C                            MOV     A,H
 1423     0985'   B7                            ORA     A
 1424     0986'   FA 07AD'                      JM      ASORRY
 1425     0989'   7E                            MOV     A,M
 1426     098A'   2F                            CMA
 1427     098B'   77                            MOV     M,A
 1428     098C'   46                            MOV     B,M
 1429     098D'   B8                            CMP     B
 1430     098E'   C2 07AD'                      JNZ     ASORRY
 1431     0991'   22 20ED'                      SHLD    BUFEND
 1432     0994'   7D                            MOV     A,L
 1433     0995'   D6 40                         SUI     64
 1434     0997'   6F                            MOV     L,A
 1435     0998'   7C                            MOV     A,H
 1436     0999'   DE 00                         SBI     0
 1437     099B'   67                            MOV     H,A
 1438     099C'   22 20EB'                      SHLD    BUFFER
 1439     099F'   2B                            DCX     H
 1440     09A0'   2B                            DCX     H
 1441     09A1'   C3 004A'                      JMP     START1
 1442                                   ;
 1443                                   ;CALL
 1444                                   ;
 1445     09A4'   CD 05B4'              BCALL:  CALL    EXPR
 1446     09A7'   D5                            PUSH    D
 1447     09A8'   01 09AD'                      LXI     B,HERE
 1448     09AB'   C5                            PUSH    B
 1449     09AC'   E9                            PCHL
 1450     09AD'   D1                    HERE:   POP     D
 1451     09AE'   CD 0276'                      CALL    FINI
 1452                                   ;
 1453                                   ;OUT
 1454                                   ;
 1455     09B1'   CD 05B4'              BOUT:   CALL    EXPR
 1456     09B4'   E5                            PUSH    H
'JPR-1  MIKRO BASIC'   MACRO-80 3.44   09-Dec-81       PAGE    1-26


 1457     09B5'   CD 02B1'                      CALL    TSTC
 1458     09B8'   2C                            DB      ','
 1459     09B9'   1A                            DB      1AH
 1460     09BA'   CD 05B4'                      CALL    EXPR
 1461     09BD'   45                            MOV     B,L
 1462     09BE'   3E D3                         MVI     A,0D3H
 1463     09C0'   32 2003'                      STA     IOBUFA
 1464     09C3'   E1                            POP     H
 1465     09C4'   7D                            MOV     A,L
 1466     09C5'   32 2004'                      STA     IOBUFB
 1467     09C8'   3E C9                         MVI     A,0C9H
 1468     09CA'   32 2005'                      STA     IOBUFC
 1469     09CD'   78                            MOV     A,B
 1470     09CE'   CD 2003'                      CALL    IOBUFA
 1471     09D1'   CD 0276'                      CALL    FINI
 1472     09D4'   C3 0777'                      JMP     QWHAT
 1473                                   ;
 1474                                   ;WAIT
 1475                                   ;
 1476     09D7'   CD 05B4'              WAIT:   CALL    EXPR
 1477     09DA'   D5                            PUSH    D
 1478     09DB'   26 64                 WAIT1:  MVI     H,100
 1479     09DD'   CD 09F4'                      CALL    WAIT2
 1480     09E0'   2D                            DCR     L
 1481     09E1'   C2 09DB'                      JNZ     WAIT1
 1482     09E4'   D1                            POP     D
 1483     09E5'   CD 0276'                      CALL    FINI
 1484                                   ;
 1485                                   ;BEEP
 1486                                   ;
 1487     09E8'   CD 05B4'              BEEP:   CALL    EXPR
 1488     09EB'   D5                            PUSH    D
 1489     09EC'   EB                    BEEP1:  XCHG
 1490     09ED'   CD 0E69'                      CALL    PIPO10
 1491     09F0'   D1                            POP     D
 1492     09F1'   CD 0276'                      CALL    FINI
 1493     09F4'   16 64                 WAIT2:  MVI     D,64H
 1494     09F6'   15                    WAIT3:  DCR     D
 1495     09F7'   C2 09F6'                      JNZ     WAIT3
 1496     09FA'   25                            DCR     H
 1497     09FB'   C8                            RZ
 1498     09FC'   C3 09F4'                      JMP     WAIT2
 1499                                   ;
 1500                                   ;TAB
 1501                                   ;
 1502     09FF'   CD 06B3'              TAB:    CALL    PARN
 1503     0A02'   7C                    A1:     MOV     A,H
 1504     0A03'   B5                            ORA     L
 1505     0A04'   CC 0276'                      CZ      FINI
 1506     0A07'   2B                            DCX     H
 1507     0A08'   3E 20                         MVI     A,20H
 1508     0A0A'   CD 2007'                      CALL    CO
 1509     0A0D'   C3 0A02'                      JMP     A1
 1510                                   ;
 1511                                   ;IN , INM
 1512                                   ;
'JPR-1  MIKRO BASIC'   MACRO-80 3.44   09-Dec-81       PAGE    1-27


 1513     0A10'   CD 0A1F'              BIN:    CALL    INEM
 1514     0A13'   6F                            MOV     L,A
 1515     0A14'   C9                            RET
 1516     0A15'   CD 0A1F'              INM:    CALL    INEM
 1517     0A18'   6F                            MOV     L,A
 1518     0A19'   3A 200A'                      LDA     MASKIN
 1519     0A1C'   A5                            ANA     L
 1520     0A1D'   6F                            MOV     L,A
 1521     0A1E'   C9                            RET
 1522     0A1F'   CD 06B3'              INEM:   CALL    PARN
 1523     0A22'   E5                            PUSH    H
 1524     0A23'   3E DB                         MVI     A,0DBH
 1525     0A25'   32 2003'                      STA     IOBUFA
 1526     0A28'   E1                            POP     H
 1527     0A29'   7D                            MOV     A,L
 1528     0A2A'   32 2004'                      STA     IOBUFB
 1529     0A2D'   3E C9                         MVI     A,0C9H
 1530     0A2F'   32 2005'                      STA     IOBUFC
 1531     0A32'   CD 2003'                      CALL    IOBUFA
 1532     0A35'   26 00                         MVI     H,0
 1533     0A37'   C9                            RET
 1534                                   ;
 1535                                   ;O$
 1536                                   ;
 1537     0A38'   CD 05B4'              O:      CALL    EXPR
 1538     0A3B'   D5                            PUSH    D
 1539     0A3C'   EB                            XCHG
 1540     0A3D'   AF                            XRA     A
 1541     0A3E'   CD 082B'                      CALL    PRTSTG
 1542     0A41'   D1                    ZZZ4:   POP     D
 1543     0A42'   CD 0276'                      CALL    FINI
 1544                                   ;
 1545                                   ;I$
 1546                                   ;
 1547     0A45'   CD 05B4'              I:      CALL    EXPR
 1548     0A48'   D5                            PUSH    D
 1549     0A49'   EB                            XCHG
 1550     0A4A'   2A 2024'                      LHLD    TXTUNF
 1551     0A4D'   EB                            XCHG
 1552     0A4E'   CD 0268'                      CALL    COMP
 1553     0A51'   DA 07AD'                      JC      ASORRY
 1554     0A54'   CD 095C'                      CALL    DBUFF
 1555     0A57'   CD 07BA'                      CALL    GL1
 1556     0A5A'   44                            MOV     B,H
 1557     0A5B'   4D                            MOV     C,L
 1558     0A5C'   EB                            XCHG
 1559     0A5D'   2B                            DCX     H
 1560     0A5E'   CD 095C'                      CALL    DBUFF
 1561     0A61'   D5                            PUSH    D
 1562     0A62'   CD 08A7'                      CALL    MVUP
 1563     0A65'   AF                            XRA     A
 1564     0A66'   02                            STAX    B
 1565     0A67'   D1                            POP     D
 1566     0A68'   23                            INX     H
 1567     0A69'   CD 071D'                      CALL    SUBDE
 1568     0A6C'   EB                            XCHG
'JPR-1  MIKRO BASIC'   MACRO-80 3.44   09-Dec-81       PAGE    1-28


 1569     0A6D'   21 2001'                      LXI     H,LEGT
 1570     0A70'   73                            MOV     M,E
 1571     0A71'   23                            INX     H
 1572     0A72'   72                            MOV     M,D
 1573     0A73'   C3 0A41'                      JMP     ZZZ4
 1574                                   ;
 1575                                   ;PEEK
 1576                                   ;
 1577     0A76'   CD 06B3'              PEEK:   CALL    PARN
 1578     0A79'   6E                            MOV     L,M
 1579     0A7A'   26 00                         MVI     H,0
 1580     0A7C'   C9                            RET
 1581                                   ;
 1582                                   ;POKE
 1583                                   ;
 1584     0A7D'   CD 05B4'              POKE:   CALL    EXPR
 1585     0A80'   E5                            PUSH    H
 1586     0A81'   CD 02B1'                      CALL    TSTC
 1587     0A84'   2C                            DB      ','
 1588     0A85'   09                            DB      9
 1589     0A86'   CD 05B4'                      CALL    EXPR
 1590     0A89'   7D                            MOV     A,L
 1591     0A8A'   E1                            POP     H
 1592     0A8B'   77                            MOV     M,A
 1593     0A8C'   CD 0276'                      CALL    FINI
 1594     0A8F'   C3 0777'                      JMP     QWHAT
 1595                                   ;
 1596                                   ;BYTE
 1597                                   ;
 1598     0A92'   CD 06B3'              BYTE:   CALL    PARN
 1599     0A95'   7D                            MOV     A,L
 1600     0A96'   CD 0AA5'                      CALL    WRIT2
 1601     0A99'   CD 0276'                      CALL    FINI
 1602                                   ;
 1603                                   ;WORD
 1604                                   ;
 1605     0A9C'   CD 06B3'              WORD:   CALL    PARN
 1606     0A9F'   CD 0E73'                      CALL    PRHL
 1607     0AA2'   CD 0276'                      CALL    FINI
 1608                                   ;
 1609     0AA5'   F5                    WRIT2:  PUSH    PSW
 1610     0AA6'   0F                            RRC
 1611     0AA7'   0F                            RRC
 1612     0AA8'   0F                            RRC
 1613     0AA9'   0F                            RRC
 1614     0AAA'   CD 0AAE'                      CALL    IST
 1615     0AAD'   F1                            POP     PSW
 1616     0AAE'   E6 0F                 IST:    ANI     0FH
 1617     0AB0'   C6 90                         ADI     90H
 1618     0AB2'   27                            DAA
 1619     0AB3'   CE 40                         ACI     40H
 1620     0AB5'   27                            DAA
 1621     0AB6'   C3 0908'                      JMP     OUTC
 1622                                   ;
 1623                                   ;QUOTE
 1624                                   ;
'JPR-1  MIKRO BASIC'   MACRO-80 3.44   09-Dec-81       PAGE    1-29


 1625     0AB9'   1A                    QUOTE:  LDAX    D
 1626     0ABA'   13                            INX     D
 1627     0ABB'   6F                            MOV     L,A
 1628     0ABC'   26 00                         MVI     H,0
 1629     0ABE'   CD 02B1'                      CALL    TSTC
 1630     0AC1'   27                            DB      27H
 1631     0AC2'   01                            DB      1
 1632     0AC3'   C9                            RET
 1633     0AC4'   C3 0777'                      JMP     QWHAT
 1634                                   ;
 1635                                   ;OUTCHAR
 1636                                   ;
 1637     0AC7'   CD 05B4'              OUTCHR: CALL    EXPR
 1638     0ACA'   7D                            MOV     A,L
 1639     0ACB'   CD 2007'                      CALL    CO
 1640     0ACE'   CD 0276'                      CALL    FINI
 1641                                   ;
 1642                                   ;INCHAR
 1643                                   ;
 1644     0AD1'   CD 0D6A'              INCHAR: CALL    CI
 1645     0AD4'   26 00                         MVI     H,0
 1646     0AD6'   6F                            MOV     L,A
 1647     0AD7'   C9                            RET
 1648                                   ;
 1649                                   ;HEX
 1650                                   ;
 1651     0AD8'   C5                    HEX:    PUSH    B
 1652     0AD9'   21 0000                       LXI     H,0
 1653     0ADC'   CD 02B1'                      CALL    TSTC
 1654     0ADF'   28                            DB      '('
 1655     0AE0'   1D                            DB      1DH
 1656     0AE1'   1A                    HNXTH:  LDAX    D
 1657     0AE2'   FE 0D                         CPI     0DH
 1658     0AE4'   CA 0777'                      JZ      QWHAT
 1659     0AE7'   CD 0E94'                      CALL    NIBBLE
 1660     0AEA'   DA 0777'                      JC      QWHAT
 1661     0AED'   29                            DAD     H
 1662     0AEE'   29                            DAD     H
 1663     0AEF'   29                            DAD     H
 1664     0AF0'   29                            DAD     H
 1665     0AF1'   06 00                         MVI     B,0
 1666     0AF3'   4F                            MOV     C,A
 1667     0AF4'   09                            DAD     B
 1668     0AF5'   13                            INX     D
 1669     0AF6'   CD 02B1'                      CALL    TSTC
 1670     0AF9'   29                            DB      ')'
 1671     0AFA'   03                            DB      3
 1672     0AFB'   C3 0B04'                      JMP     POPRET
 1673     0AFE'   C3 0AE1'                      JMP     HNXTH
 1674     0B01'   C3 0777'                      JMP     QWHAT
 1675     0B04'   C1                    POPRET: POP     B
 1676     0B05'   C9                            RET
 1677                                   ;
 1678                                   ;TEST TLACITKA BREAK
 1679                                   ;
 1680     0B06'   3A 2800               CONT:   LDA     2800H
'JPR-1  MIKRO BASIC'   MACRO-80 3.44   09-Dec-81       PAGE    1-30


 1681     0B09'   07                            RLC
 1682     0B0A'   D8                            RC
 1683     0B0B'   C3 0B11'                      JMP     BREAK
 1684     0B0E'   CD 0771'              STOP:   CALL    ENDCHK
 1685     0B11'   2A 200B'              BREAK:  LHLD    CURRNT
 1686     0B14'   EB                            XCHG
 1687     0B15'   CD 0906'                      CALL    CRLF
 1688     0B18'   3E 2A                         MVI     A,'*'
 1689     0B1A'   CD 0908'                      CALL    OUTC
 1690     0B1D'   CD 0892'                      CALL    PRTLN
 1691     0B20'   C3 004D'                      JMP     RSTART
 1692                                   ;
 1693                                   ;*******************************************
 1694                                   ;
 1695                                   ;     KAZETOVY MAGNETOFON  ,  TISKARNA
 1696                                   ;
 1697                                   ;*****************************************
 1698     0B23'   3E 38                 LOAD:   MVI     A,38H
 1699     0B25'   D3 10                         OUT     10H
 1700     0B27'   3E FF                         MVI     A,0FFH
 1701     0B29'   D3 11                         OUT     11H
 1702     0B2B'   DB 12                 LOAD40: IN      12H
 1703     0B2D'   06 00                         MVI     B,0
 1704     0B2F'   DB 11                 LOAD30: IN      11H
 1705     0B31'   E6 80                         ANI     80H
 1706     0B33'   C2 0B2B'                      JNZ     LOAD40
 1707     0B36'   78                    LOAD10: MOV     A,B
 1708     0B37'   FE FF                         CPI     0FFH
 1709     0B39'   CA 0B44'                      JZ      LOAD20
 1710     0B3C'   CD 0B88'                      CALL    SEC1
 1711     0B3F'   06 FF                         MVI     B,0FFH
 1712     0B41'   C3 0B2F'                      JMP     LOAD30
 1713     0B44'   3E 2A                 LOAD20: MVI     A,'*'
 1714     0B46'   CD 2007'                      CALL    CO
 1715     0B49'   CD 0BA5'                      CALL    PIN
 1716     0B4C'   FE 42                         CPI     'B'
 1717     0B4E'   C2 0B2B'                      JNZ     LOAD40
 1718     0B51'   06 00                         MVI     B,0
 1719     0B53'   CD 0BA5'                      CALL    PIN
 1720     0B56'   CD 2007'              LOAD5:  CALL    CO
 1721     0B59'   CD 0BA5'                      CALL    PIN
 1722     0B5C'   FE 0D                         CPI     0DH
 1723     0B5E'   C2 0B56'                      JNZ     LOAD5
 1724     0B61'   CD 0BA5'                      CALL    PIN
 1725     0B64'   5F                            MOV     E,A
 1726     0B65'   CD 0BA5'                      CALL    PIN
 1727     0B68'   57                            MOV     D,A
 1728     0B69'   21 20EF'                      LXI     H,TXTBGN
 1729     0B6C'   CD 0268'              LOAD4:  CALL    COMP
 1730     0B6F'   CA 0B7A'                      JZ      LOAD3
 1731     0B72'   CD 0BA5'                      CALL    PIN
 1732     0B75'   77                            MOV     M,A
 1733     0B76'   23                            INX     H
 1734     0B77'   C3 0B6C'                      JMP     LOAD4
 1735     0B7A'   48                    LOAD3:  MOV     C,B
 1736     0B7B'   CD 0BA5'                      CALL    PIN
'JPR-1  MIKRO BASIC'   MACRO-80 3.44   09-Dec-81       PAGE    1-31


 1737     0B7E'   B9                            CMP     C
 1738     0B7F'   C2 0BE1'                      JNZ     TPERR
 1739     0B82'   22 2024'                      SHLD    TXTUNF
 1740     0B85'   C3 0BDA'                      JMP     SAVE3
 1741     0B88'   2E 14                 SEC1:   MVI     L,20
 1742     0B8A'   11                            DB      11H
 1743     0B8B'   2E 6E                 SEC3:   MVI     L,110
 1744     0B8D'   26 64                 SEC31:  MVI     H,100
 1745     0B8F'   CD 09F4'                      CALL    WAIT2
 1746     0B92'   2D                            DCR     L
 1747     0B93'   C2 0B8D'                      JNZ     SEC31
 1748     0B96'   C9                            RET
 1749                                   ;
 1750                                   ;
 1751                                   ;
 1752     0B97'   F5                    TOUT:   PUSH    PSW
 1753     0B98'   80                            ADD     B
 1754     0B99'   47                            MOV     B,A
 1755     0B9A'   F1                            POP     PSW
 1756     0B9B'   D3 12                         OUT     12H
 1757     0B9D'   DB 11                 TOUT1:  IN      11H
 1758     0B9F'   E6 40                         ANI     40H
 1759     0BA1'   CA 0B9D'                      JZ      TOUT1
 1760     0BA4'   C9                            RET
 1761                                   ;
 1762                                   ;
 1763                                   ;
 1764     0BA5'   DB 11                 PIN:    IN      11H
 1765     0BA7'   E6 80                         ANI     80H
 1766     0BA9'   CA 0BA5'                      JZ      PIN
 1767     0BAC'   DB 12                         IN      12H
 1768     0BAE'   F5                            PUSH    PSW
 1769     0BAF'   80                            ADD     B
 1770     0BB0'   47                            MOV     B,A
 1771     0BB1'   F1                            POP     PSW
 1772     0BB2'   C9                            RET
 1773                                   ;
 1774                                   ;SAVE
 1775                                   ;
 1776     0BB3'   CD 0BF4'              SAVE:   CALL    LABEL
 1777     0BB6'   2A 2024'                      LHLD    TXTUNF
 1778     0BB9'   7D                            MOV     A,L
 1779     0BBA'   CD 0B97'                      CALL    TOUT
 1780     0BBD'   7C                            MOV     A,H
 1781     0BBE'   CD 0B97'                      CALL    TOUT
 1782     0BC1'   EB                            XCHG
 1783     0BC2'   21 20EF'                      LXI     H,TXTBGN
 1784     0BC5'   CD 0268'              SAVE1:  CALL    COMP
 1785     0BC8'   CA 0BD3'                      JZ      SAVE2
 1786     0BCB'   7E                            MOV     A,M
 1787     0BCC'   CD 0B97'                      CALL    TOUT
 1788     0BCF'   23                            INX     H
 1789     0BD0'   C3 0BC5'                      JMP     SAVE1
 1790     0BD3'   78                    SAVE2:  MOV     A,B
 1791     0BD4'   CD 0B97'                      CALL    TOUT
 1792     0BD7'   CD 0B88'                      CALL    SEC1
'JPR-1  MIKRO BASIC'   MACRO-80 3.44   09-Dec-81       PAGE    1-32


 1793     0BDA'   3E 10                 SAVE3:  MVI     A,10H
 1794     0BDC'   D3 10                         OUT     10H
 1795     0BDE'   C3 004D'                      JMP     RSTART
 1796                                   ;
 1797                                   ;TAPE ERROR
 1798                                   ;
 1799     0BE1'   CD 0906'              TPERR:  CALL    CRLF
 1800     0BE4'   11 0BEE'                      LXI     D,TPER
 1801     0BE7'   97                            SUB     A
 1802     0BE8'   CD 082B'                      CALL    PRTSTG
 1803     0BEB'   C3 004D'                      JMP     RSTART
 1804     0BEE'   45 52 52 4F           TPER:   DB      'ERROR',0
 1805     0BF2'   52 00
 1806                                   ;
 1807                                   ;VSTUP LABELU
 1808                                   ;
 1809     0BF4'   11 0C22'              LABEL:  LXI     D,TLAB
 1810     0BF7'   97                            SUB     A
 1811     0BF8'   CD 082B'                      CALL    PRTSTG
 1812     0BFB'   06 3D                         MVI     B,'='
 1813     0BFD'   CD 07B3'                      CALL    GETLN
 1814     0C00'   3E 30                         MVI     A,30H
 1815     0C02'   D3 10                         OUT     10H
 1816     0C04'   3E FF                         MVI     A,0FFH
 1817     0C06'   D3 11                         OUT     11H
 1818     0C08'   CD 0B8B'                      CALL    SEC3
 1819     0C0B'   3E 42                         MVI     A,'B'
 1820     0C0D'   CD 0B97'                      CALL    TOUT
 1821     0C10'   CD 095C'                      CALL    DBUFF
 1822     0C13'   06 00                         MVI     B,0
 1823     0C15'   1A                    LAB1:   LDAX    D
 1824     0C16'   F5                            PUSH    PSW
 1825     0C17'   CD 0B97'                      CALL    TOUT
 1826     0C1A'   F1                            POP     PSW
 1827     0C1B'   FE 0D                         CPI     0DH
 1828     0C1D'   C8                            RZ
 1829     0C1E'   13                            INX     D
 1830     0C1F'   C3 0C15'                      JMP     LAB1
 1831     0C22'   4E 41 4D 45           TLAB:   DB      'NAME ',0
 1832     0C26'   20 00
 1833                                   ;
 1834                                   ;PREVIJENI KAZETY
 1835                                   ;
 1836     0C28'   3E 38                 REWIND: MVI     A,38H
 1837     0C2A'   D3 10                         OUT     10H
 1838     0C2C'   CD 0D6A'              REW10:  CALL    CI
 1839     0C2F'   C3 0BDA'                      JMP     SAVE3
 1840                                   ;
 1841                                   ;VYSTYP NA TISKARNU
 1842                                   ;
 1843     0C32'   CD 0C67'              COP:    CALL    OUTDIS
 1844     0C35'   E5                            PUSH    H
 1845     0C36'   21 2C00                       LXI     H,2C00H
 1846     0C39'   77                            MOV     M,A
 1847     0C3A'   F5                            PUSH    PSW
 1848     0C3B'   2B                            DCX     H
'JPR-1  MIKRO BASIC'   MACRO-80 3.44   09-Dec-81       PAGE    1-33


 1849     0C3C'   36 01                         MVI     M,1
 1850     0C3E'   23                            INX     H
 1851     0C3F'   7E                    ZZZ1:   MOV     A,M
 1852     0C40'   E6 40                         ANI     40H
 1853     0C42'   CA 0C3F'                      JZ      ZZZ1
 1854     0C45'   2B                            DCX     H
 1855     0C46'   36 03                         MVI     M,3
 1856     0C48'   23                            INX     H
 1857     0C49'   7E                    ZZZ2:   MOV     A,M
 1858     0C4A'   E6 40                         ANI     40H
 1859     0C4C'   C2 0C49'                      JNZ     ZZZ2
 1860     0C4F'   2B                            DCX     H
 1861     0C50'   36 01                         MVI     M,1
 1862     0C52'   F1                            POP     PSW
 1863     0C53'   E1                            POP     H
 1864     0C54'   C9                            RET
 1865                                   ;
 1866                                   ;ZMENA VYSTUPU
 1867                                   ;
 1868     0C55'   21 0C32'              PRNTST: LXI     H,COP
 1869     0C58'   22 2008'              ZZZ3:   SHLD    CO+1
 1870     0C5B'   C9                            RET
 1871                                   ;
 1872     0C5C'   3E C3                 DISP:   MVI     A,0C3H
 1873     0C5E'   32 2007'                      STA     CO
 1874     0C61'   21 0C67'                      LXI     H,OUTDIS
 1875     0C64'   C3 0C58'                      JMP     ZZZ3
 1876                                   ;
 1877                                   ;MIKRO BASIC JPR-1
 1878                                   ;********************************************
 1879                                   ;
 1880                                   ;   DISPLEJ    JPR-1
 1881                                   ;
 1882                                   ;********************************************
 1883                                   ;
 1884                                   ;ZRUSENI UKAZATELE
 1885                                   ;
 1886     0C67'   F5                    OUTDIS: PUSH    PSW
 1887     0C68'   E5                            PUSH    H
 1888     0C69'   D5                            PUSH    D
 1889     0C6A'   C5                            PUSH    B
 1890     0C6B'   4F                            MOV     C,A
 1891     0C6C'   CD 0D4B'                      CALL    SESTAV
 1892     0C6F'   3A 2023'                      LDA     MODE
 1893     0C72'   47                            MOV     B,A
 1894     0C73'   7E                            MOV     A,M
 1895     0C74'   E6 C0                         ANI     0C0H
 1896     0C76'   FE 80                         CPI     80H
 1897     0C78'   C2 0C84'                      JNZ     OUTD1
 1898     0C7B'   78                            MOV     A,B
 1899     0C7C'   B7                            ORA     A
 1900     0C7D'   C2 0C84'                      JNZ     OUTD1
 1901     0C80'   7E                            MOV     A,M
 1902     0C81'   E6 7F                         ANI     7FH
 1903     0C83'   77                            MOV     M,A
 1904                                   ;
'JPR-1  MIKRO BASIC'   MACRO-80 3.44   09-Dec-81       PAGE    1-34


 1905                                   ;CR, LF, BS A ULOZENI ZNAKU
 1906                                   ;
 1907     0C84'   79                    OUTD1:  MOV     A,C
 1908     0C85'   FE 0D                         CPI     0DH
 1909     0C87'   CA 0D12'                      JZ      CRDS
 1910     0C8A'   FE 08                         CPI     08H
 1911     0C8C'   CA 0CB7'                      JZ      BACK
 1912     0C8F'   FE 0A                         CPI     0AH
 1913     0C91'   CA 0D19'                      JZ      LFDS
 1914     0C94'   E6 3F                         ANI     3FH
 1915     0C96'   5F                            MOV     E,A
 1916     0C97'   78                            MOV     A,B
 1917     0C98'   B3                            ORA     E
 1918     0C99'   77                            MOV     M,A
 1919     0C9A'   E6 C0                         ANI     0C0H
 1920     0C9C'   FE C0                         CPI     0C0H
 1921     0C9E'   CC 0CDA'                      CZ      IPOZ
 1922     0CA1'   CD 0CDA'                      CALL    IPOZ
 1923                                   ;
 1924                                   ;NAVRAT
 1925                                   ;
 1926                                   ;
 1927                                   ;OBNOVENI UKAZATELE
 1928                                   ;
 1929     0CA4'   3A 2023'              OUTD10: LDA     MODE
 1930     0CA7'   B7                            ORA     A
 1931     0CA8'   C2 0CB2'                      JNZ     ZZZ13
 1932     0CAB'   CD 0D4B'                      CALL    SESTAV
 1933     0CAE'   7E                            MOV     A,M
 1934     0CAF'   F6 80                         ORI     80H
 1935     0CB1'   77                            MOV     M,A
 1936     0CB2'   C1                    ZZZ13:  POP     B
 1937     0CB3'   D1                            POP     D
 1938     0CB4'   E1                            POP     H
 1939     0CB5'   F1                            POP     PSW
 1940     0CB6'   C9                            RET
 1941                                   ;
 1942                                   ;CURSOR ZPET
 1943                                   ;
 1944     0CB7'   3A 2022'              BACK:   LDA     POZICE
 1945     0CBA'   3D                            DCR     A
 1946     0CBB'   FE FF                         CPI     0FFH
 1947     0CBD'   CA 0CC6'                      JZ      BACK10
 1948     0CC0'   32 2022'                      STA     POZICE
 1949     0CC3'   C3 0CA4'                      JMP     OUTD10
 1950     0CC6'   3A 2021'              BACK10: LDA     RADEK
 1951     0CC9'   3D                            DCR     A
 1952     0CCA'   FE FF                         CPI     0FFH
 1953     0CCC'   CA 0CF8'                      JZ      NULD30
 1954     0CCF'   32 2021'                      STA     RADEK
 1955     0CD2'   3E 27                         MVI     A,39
 1956     0CD4'   32 2022'                      STA     POZICE
 1957     0CD7'   C3 0CA4'                      JMP     OUTD10
 1958                                   ;
 1959                                   ;INKREMENT POZICE NA RADKU
 1960                                   ;
'JPR-1  MIKRO BASIC'   MACRO-80 3.44   09-Dec-81       PAGE    1-35


 1961     0CDA'   3A 2022'              IPOZ:   LDA     POZICE
 1962     0CDD'   3C                            INR     A
 1963     0CDE'   32 2022'                      STA     POZICE
 1964     0CE1'   FE 28                         CPI     40
 1965     0CE3'   D8                            RC
 1966     0CE4'   AF                            XRA     A
 1967     0CE5'   32 2022'                      STA     POZICE
 1968                                   ;
 1969                                   ;INKREMENT RADKU
 1970                                   ;
 1971     0CE8'   3A 2021'              IRAD:   LDA     RADEK
 1972     0CEB'   3C                            INR     A
 1973     0CEC'   FE 18                         CPI     24
 1974     0CEE'   CA 0D1F'                      JZ      ROLDIS
 1975     0CF1'   C3 0D66'                      JMP     ZZZ5
 1976                                   ;
 1977                                   ;NULOVANI DISPLEJE
 1978                                   ;
 1979     0CF4'   F5                    NULDIS: PUSH    PSW
 1980     0CF5'   E5                            PUSH    H
 1981     0CF6'   D5                            PUSH    D
 1982     0CF7'   C5                            PUSH    B
 1983     0CF8'   21 3800               NULD30: LXI     H,3800H
 1984     0CFB'   11 0800                       LXI     D,2048
 1985     0CFE'   CD 0D07'                      CALL    NULD10
 1986     0D01'   CD 0D62'                      CALL    HOME
 1987     0D04'   C3 0CA4'                      JMP     OUTD10
 1988                                   ;
 1989     0D07'   0E 20                 NULD10: MVI     C,20H
 1990     0D09'   71                    NULD20: MOV     M,C
 1991     0D0A'   23                            INX     H
 1992     0D0B'   1B                            DCX     D
 1993     0D0C'   7A                            MOV     A,D
 1994     0D0D'   B3                            ORA     E
 1995     0D0E'   C2 0D09'                      JNZ     NULD20
 1996     0D11'   C9                            RET
 1997                                   ;
 1998                                   ;CR
 1999                                   ;
 2000     0D12'   AF                    CRDS:   XRA     A
 2001     0D13'   32 2022'                      STA     POZICE
 2002     0D16'   C3 0CA4'                      JMP     OUTD10
 2003                                   ;
 2004                                   ;LF
 2005                                   ;
 2006     0D19'   CD 0CE8'              LFDS:   CALL    IRAD
 2007     0D1C'   C3 0CA4'                      JMP     OUTD10
 2008                                   ;
 2009                                   ;ROLOVANI DISPLEJE
 2010                                   ;
 2011     0D1F'   21 3800               ROLDIS: LXI     H,3800H
 2012     0D22'   11 3840                       LXI     D,3840H
 2013     0D25'   0E 17                         MVI     C,23
 2014     0D27'   CD 0D40'              MOVS:   CALL    MOVR
 2015     0D2A'   C5                            PUSH    B
 2016     0D2B'   01 0018                       LXI     B,18H
'JPR-1  MIKRO BASIC'   MACRO-80 3.44   09-Dec-81       PAGE    1-36


 2017     0D2E'   09                            DAD     B
 2018     0D2F'   EB                            XCHG
 2019     0D30'   09                            DAD     B
 2020     0D31'   EB                            XCHG
 2021     0D32'   C1                            POP     B
 2022     0D33'   0D                            DCR     C
 2023     0D34'   C2 0D27'                      JNZ     MOVS
 2024     0D37'   21 3DC0                       LXI     H,3DC0H
 2025     0D3A'   11 0040                       LXI     D,64
 2026     0D3D'   C3 0D07'                      JMP     NULD10
 2027     0D40'   06 28                 MOVR:   MVI     B,28H
 2028     0D42'   1A                    MOVZ:   LDAX    D
 2029     0D43'   77                            MOV     M,A
 2030     0D44'   13                            INX     D
 2031     0D45'   23                            INX     H
 2032     0D46'   05                            DCR     B
 2033     0D47'   C2 0D42'                      JNZ     MOVZ
 2034     0D4A'   C9                            RET
 2035                                   ;
 2036                                   ;SESTAVENI ADRESY CURSORY DO H,L
 2037                                   ;
 2038     0D4B'   26 00                 SESTAV: MVI     H,0
 2039     0D4D'   3A 2021'                      LDA     RADEK
 2040     0D50'   6F                            MOV     L,A
 2041     0D51'   06 06                         MVI     B,6
 2042     0D53'   29                    SES10:  DAD     H
 2043     0D54'   05                            DCR     B
 2044     0D55'   C2 0D53'                      JNZ     SES10
 2045     0D58'   3A 2022'                      LDA     POZICE
 2046     0D5B'   B5                            ORA     L
 2047     0D5C'   6F                            MOV     L,A
 2048     0D5D'   7C                            MOV     A,H
 2049     0D5E'   F6 38                         ORI     38H
 2050     0D60'   67                            MOV     H,A
 2051     0D61'   C9                            RET
 2052                                   ;
 2053                                   ;HOME
 2054                                   ;
 2055     0D62'   AF                    HOME:   XRA     A
 2056     0D63'   32 2022'                      STA     POZICE
 2057     0D66'   32 2021'              ZZZ5:   STA     RADEK
 2058     0D69'   C9                            RET
 2059                                   ;MIKRO BASIC JPR-1
 2060                                   ;****************************************
 2061                                   ;
 2062                                   ;   KLAVESNICE   JPR-1
 2063                                   ;
 2064                                   ;****************************************
 2065                                   ;
 2066                                   ;ZACATEK
 2067                                   ;
 2068     0D6A'   C5                    CI:     PUSH    B
 2069     0D6B'   D5                            PUSH    D
 2070     0D6C'   E5                            PUSH    H
 2071     0D6D'   0E 80                 KLIN10: MVI     C,80H
 2072     0D6F'   16 05                 KLIN20: MVI     D,5
'JPR-1  MIKRO BASIC'   MACRO-80 3.44   09-Dec-81       PAGE    1-37


 2073     0D71'   06 1E                         MVI     B,1EH
 2074     0D73'   26 00                         MVI     H,0
 2075                                   ;
 2076                                   ;GENERACE SIGNALU PRO SLOUPEC
 2077                                   ;
 2078     0D75'   3A 2000'              KLIN30: LDA     PORT24
 2079     0D78'   E6 E0                         ANI     0E0H
 2080     0D7A'   B0                            ORA     B
 2081     0D7B'   32 2400                       STA     2400H
 2082     0D7E'   78                            MOV     A,B
 2083     0D7F'   37                            STC
 2084     0D80'   17                            RAL
 2085     0D81'   E6 1F                         ANI     1FH
 2086     0D83'   47                            MOV     B,A
 2087     0D84'   3A 2400                       LDA     2400H
 2088     0D87'   FE FF                         CPI     0FFH
 2089     0D89'   C4 0DC0'                      CNZ     KLIN50
 2090     0D8C'   15                            DCR     D
 2091     0D8D'   C2 0D75'                      JNZ     KLIN30
 2092                                   ;
 2093                                   ;PROBEHL CELI CIKLUS , 5 SPOUPCU
 2094                                   ;
 2095     0D90'   CD 0DE6'                      CALL    SHOF
 2096     0D93'   79                            MOV     A,C
 2097     0D94'   FE 01                         CPI     1
 2098     0D96'   CA 0DA4'                      JZ      KLIN40
 2099     0D99'   DA 0D6F'                      JC      KLIN20
 2100     0D9C'   FE 80                         CPI     80H
 2101     0D9E'   CA 0DB5'                      JZ      KLIN90
 2102     0DA1'   C3 0D6D'                      JMP     KLIN10
 2103                                   ;
 2104                                   ;PLATNY ZNAK A NAVRAT
 2105                                   ;
 2106     0DA4'   7D                    KLIN40: MOV     A,L
 2107     0DA5'   84                            ADD     H
 2108     0DA6'   21 0DFA'                      LXI     H,TABZN
 2109     0DA9'   4F                            MOV     C,A
 2110     0DAA'   06 00                         MVI     B,0
 2111     0DAC'   09                            DAD     B
 2112     0DAD'   CD 0E66'                      CALL    PIPO
 2113     0DB0'   7E                            MOV     A,M
 2114     0DB1'   E1                            POP     H
 2115     0DB2'   D1                            POP     D
 2116     0DB3'   C1                            POP     B
 2117     0DB4'   C9                            RET
 2118                                   ;
 2119                                   ;KLAVESNICE V KLIDU
 2120                                   ;
 2121     0DB5'   0E 90                 KLIN90: MVI     C,90H
 2122     0DB7'   0D                    KLIN99: DCR     C
 2123     0DB8'   C2 0DB7'                      JNZ     KLIN99
 2124     0DBB'   0E 00                         MVI     C,0
 2125     0DBD'   C3 0D6F'                      JMP     KLIN20
 2126                                   ;
 2127                                   ;PROHLEDANI RADKU
 2128                                   ;
'JPR-1  MIKRO BASIC'   MACRO-80 3.44   09-Dec-81       PAGE    1-38


 2129     0DC0'   1E 08                 KLIN50: MVI     E,8
 2130     0DC2'   0F                    KLIN60: RRC
 2131     0DC3'   D4 0DCB'                      CNC     KLIN70
 2132     0DC6'   1D                            DCR     E
 2133     0DC7'   C2 0DC2'                      JNZ     KLIN60
 2134     0DCA'   C9                            RET
 2135                                   ;
 2136                                   ;SESTAVENI KODU KLAVESY
 2137                                   ;
 2138     0DCB'   F5                    KLIN70: PUSH    PSW
 2139     0DCC'   7A                            MOV     A,D
 2140     0DCD'   3D                            DCR     A
 2141     0DCE'   07                            RLC
 2142     0DCF'   07                            RLC
 2143     0DD0'   07                            RLC
 2144     0DD1'   E6 38                         ANI     38H
 2145     0DD3'   1D                            DCR     E
 2146     0DD4'   B3                            ORA     E
 2147     0DD5'   1C                            INR     E
 2148     0DD6'   FE 07                         CPI     7
 2149     0DD8'   CA 0DDF'                      JZ      KLIN80
 2150     0DDB'   6F                            MOV     L,A
 2151     0DDC'   0C                            INR     C
 2152     0DDD'   F1                            POP     PSW
 2153     0DDE'   C9                            RET
 2154                                   ;
 2155                                   ;PRIZNAK SHIFT
 2156                                   ;
 2157     0DDF'   26 28                 KLIN80: MVI     H,28H
 2158     0DE1'   CD 0DF2'                      CALL    SHON
 2159     0DE4'   F1                            POP     PSW
 2160     0DE5'   C9                            RET
 2161                                   ;
 2162                                   ;SIGNALIZACE SHIFT
 2163                                   ;
 2164     0DE6'   3A 2000'              SHOF:   LDA     PORT24
 2165     0DE9'   E6 D0                         ANI     0D0H
 2166     0DEB'   32 2000'              SHOF10: STA     PORT24
 2167     0DEE'   32 2400                       STA     2400H
 2168     0DF1'   C9                            RET
 2169     0DF2'   3A 2000'              SHON:   LDA     PORT24
 2170     0DF5'   F6 20                         ORI     20H
 2171     0DF7'   C3 0DEB'                      JMP     SHOF10
 2172                                   ;
 2173                                   ;TABULKA ASCII
 2174                                   ;
 2175     0DFA'   30 50 0D 08           TABZN:  DB      '0P',0DH,08H,'1QA'
 2176     0DFE'   31 51 41
 2177     0E01'   0E 39 4F 4C                   DB      0EH,'9OL 2W'
 2178     0E05'   20 32 57
 2179     0E08'   53 5A 38 49                   DB      'SZ8IKM3EDX'
 2180     0E0C'   4B 4D 33 45
 2181     0E10'   44 58
 2182     0E12'   37 55 4A 4E                   DB      '7UJN4RFC6Y'
 2183     0E16'   34 52 46 43
 2184     0E1A'   36 59
'JPR-1  MIKRO BASIC'   MACRO-80 3.44   09-Dec-81       PAGE    1-39


 2185     0E1C'   48 42 35 54                   DB      'HB5TGV)'
 2186     0E20'   47 56 29
 2187                                   ;
 2188                                   ;KODY PRI SHIFT
 2189                                   ;
 2190     0E23'   7F 0D 08 21                   DB      07FH,0DH,08H,'!QA'
 2191     0E27'   51 41
 2192     0E29'   0E 28 23 3D                   DB      0EH,'(#= ?WSZ'
 2193     0E2D'   20 3F 57 53
 2194     0E31'   5A
 2195     0E32'   3E 40 2A 2E                   DB      '>@*."E&X<:'
 2196     0E36'   22 45 26 58
 2197     0E3A'   3C 3A
 2198     0E3C'   2D 2C 24 25                   DB      '-,$%\[',27H,'/+;^T_]'
 2199     0E40'   5C 5B 27 2F
 2200     0E44'   2B 3B 5E 54
 2201     0E48'   5F 5D
 2202                                   ;
 2203                                   ;PIPNUTI
 2204                                   ;
 2205     0E4A'   C5                    PIP:    PUSH    B
 2206     0E4B'   3A 2000'                      LDA     PORT24
 2207     0E4E'   F6 40                         ORI     40H
 2208     0E50'   32 2400                       STA     2400H
 2209     0E53'   0E 42                         MVI     C,42H
 2210     0E55'   0D                    PIP20:  DCR     C
 2211     0E56'   C2 0E55'                      JNZ     PIP20
 2212     0E59'   E6 B0                         ANI     0B0H
 2213     0E5B'   32 2400                       STA     2400H
 2214     0E5E'   0E 50                         MVI     C,50H
 2215     0E60'   0D                    PIP30:  DCR     C
 2216     0E61'   C2 0E60'                      JNZ     PIP30
 2217     0E64'   C1                            POP     B
 2218     0E65'   C9                            RET
 2219                                   ;
 2220                                   ;ZAPIPANI
 2221                                   ;
 2222     0E66'   11 0040               PIPO:   LXI     D,40H
 2223     0E69'   CD 0E4A'              PIPO10: CALL    PIP
 2224     0E6C'   1B                            DCX     D
 2225     0E6D'   7A                            MOV     A,D
 2226     0E6E'   B3                            ORA     E
 2227     0E6F'   C2 0E69'                      JNZ     PIPO10
 2228     0E72'   C9                            RET
 2229                                   ;
 2230                                   ;***************************************
 2231                                   ;
 2232                                   ;   MIKRO MONITOR JPR-1
 2233                                   ;
 2234                                   ;***************************************
 2235                                   ;
 2236     0E73'   7C                    PRHL:   MOV     A,H
 2237     0E74'   CD 0AA5'                      CALL    WRIT2
 2238     0E77'   7D                            MOV     A,L
 2239     0E78'   C3 0AA5'                      JMP     WRIT2
 2240                                   ;
'JPR-1  MIKRO BASIC'   MACRO-80 3.44   09-Dec-81       PAGE    1-40


 2241                                   ;VSTUP HEXA ADRESY
 2242                                   ;
 2243     0E7B'   21 0000               MEXPR:  LXI     H,0
 2244     0E7E'   CD 0D6A'              MEXO:   CALL    CI
 2245     0E81'   4F                            MOV     C,A
 2246     0E82'   CD 2007'                      CALL    CO
 2247     0E85'   CD 0E94'              MEX1:   CALL    NIBBLE
 2248     0E88'   DA 0EA4'                      JC      MEX2
 2249     0E8B'   29                            DAD     H
 2250     0E8C'   29                            DAD     H
 2251     0E8D'   29                            DAD     H
 2252     0E8E'   29                            DAD     H
 2253     0E8F'   B5                            ORA     L
 2254     0E90'   6F                            MOV     L,A
 2255     0E91'   C3 0E7E'                      JMP     MEXO
 2256     0E94'   D6 30                 NIBBLE: SUI     '0'
 2257     0E96'   D8                            RC
 2258     0E97'   FE 17                         CPI     'G'-'0'
 2259     0E99'   3F                            CMC
 2260     0E9A'   D8                            RC
 2261     0E9B'   FE 0A                         CPI     10
 2262     0E9D'   3F                            CMC
 2263     0E9E'   D0                            RNC
 2264     0E9F'   D6 07                         SUI     'A'-'9'-1
 2265     0EA1'   FE 0A                         CPI     10
 2266     0EA3'   C9                            RET
 2267     0EA4'   79                    MEX2:   MOV     A,C
 2268     0EA5'   FE 0D                         CPI     0DH
 2269     0EA7'   CA 0EB5'                      JZ      ECHU
 2270     0EAA'   FE 20                         CPI     20H
 2271     0EAC'   C8                            RZ
 2272     0EAD'   3E 3F                 EROR:   MVI     A,'?'
 2273     0EAF'   CD 2007'                      CALL    CO
 2274     0EB2'   C3 0F10'                      JMP     MLOOP
 2275     0EB5'   F5                    ECHU:   PUSH    PSW
 2276     0EB6'   3E 0A                         MVI     A,0AH
 2277     0EB8'   CD 2007'                      CALL    CO
 2278     0EBB'   F1                            POP     PSW
 2279     0EBC'   4F                            MOV     C,A
 2280     0EBD'   C9                            RET
 2281                                   ;VYPOCET DELKY INSTRUKCE
 2282                                   ;
 2283     0EBE'   06 00                 LENG:   MVI     B,0
 2284     0EC0'   E5                            PUSH    H
 2285     0EC1'   D1                            POP     D
 2286     0EC2'   7E                            MOV     A,M
 2287     0EC3'   FE C3                         CPI     0C3H
 2288     0EC5'   CA 0F05'                      JZ      B3
 2289     0EC8'   FE CD                         CPI     0CDH
 2290     0ECA'   CA 0F05'                      JZ      B3
 2291     0ECD'   E6 EF                         ANI     0EFH
 2292     0ECF'   FE 22                         CPI     22H
 2293     0ED1'   CA 0F05'                      JZ      B3
 2294     0ED4'   FE 2A                         CPI     2AH
 2295     0ED6'   CA 0F05'                      JZ      B3
 2296     0ED9'   E6 CF                         ANI     0CFH
'JPR-1  MIKRO BASIC'   MACRO-80 3.44   09-Dec-81       PAGE    1-41


 2297     0EDB'   FE 01                         CPI     1
 2298     0EDD'   CA 0F05'                      JZ      B3
 2299     0EE0'   E6 C7                         ANI     0C7H
 2300     0EE2'   FE C2                         CPI     0C2H
 2301     0EE4'   CA 0F05'                      JZ      B3
 2302     0EE7'   FE C4                         CPI     0C4H
 2303     0EE9'   CA 0F05'                      JZ      B3
 2304     0EEC'   7E                            MOV     A,M
 2305     0EED'   E6 F7                         ANI     0F7H
 2306     0EEF'   FE D3                         CPI     0D3H
 2307     0EF1'   CA 0F06'                      JZ      B2
 2308     0EF4'   E6 E7                         ANI     0E7H
 2309     0EF6'   E6 C7                         ANI     0C7H
 2310     0EF8'   FE 06                         CPI     6
 2311     0EFA'   CA 0F06'                      JZ      B2
 2312     0EFD'   FE C6                         CPI     0C6H
 2313     0EFF'   CA 0F06'                      JZ      B2
 2314     0F02'   C3 0F07'                      JMP     B1
 2315     0F05'   04                    B3:     INR     B
 2316     0F06'   04                    B2:     INR     B
 2317     0F07'   04                    B1:     INR     B
 2318     0F08'   EB                            XCHG
 2319     0F09'   C9                            RET
 2320                                   ;
 2321                                   ;ZACATEK MONITORU
 2322                                   ;
 2323     0F0A'   CD 0CF4'              MONIT1: CALL    NULDIS
 2324     0F0D'   31 20B1'              MONIT:  LXI     SP,STACK
 2325     0F10'   CD 0919'              MLOOP:  CALL    CROUT
 2326     0F13'   11 0100'                      LXI     D,TXMON
 2327     0F16'   97                            SUB     A
 2328     0F17'   CD 082B'                      CALL    PRTSTG
 2329     0F1A'   CD 0919'                      CALL    CROUT
 2330     0F1D'   3E 2A                         MVI     A,'*'
 2331     0F1F'   CD 2007'                      CALL    CO
 2332     0F22'   CD 0D6A'                      CALL    CI
 2333     0F25'   CD 2007'                      CALL    CO
 2334     0F28'   FE 44                         CPI     'D'
 2335     0F2A'   CA 0F4C'                      JZ      ENTER
 2336     0F2D'   FE 53                         CPI     'S'
 2337     0F2F'   CA 0F44'                      JZ      SUEX
 2338     0F32'   FE 47                         CPI     'G'
 2339     0F34'   CA 0F48'                      JZ      GOEX
 2340     0F37'   FE 42                         CPI     'B'
 2341     0F39'   CA 0019'                      JZ      START
 2342     0F3C'   FE 52                         CPI     'R'
 2343     0F3E'   CA 004D'                      JZ      RSTART
 2344     0F41'   C3 0EAD'                      JMP     EROR
 2345                                   ;
 2346     0F44'   21 0F10'              SUEX:   LXI     H,MLOOP
 2347     0F47'   E5                            PUSH    H
 2348     0F48'   CD 0E7B'              GOEX:   CALL    MEXPR
 2349     0F4B'   E9                            PCHL
 2350                                   ;
 2351     0F4C'   CD 0E7B'              ENTER:  CALL    MEXPR
 2352                                   ;
'JPR-1  MIKRO BASIC'   MACRO-80 3.44   09-Dec-81       PAGE    1-42


 2353     0F4F'   CD 0919'              LOOP:   CALL    CROUT
 2354                                   ;
 2355     0F52'   CD 0E73'              LOOPA:  CALL    PRHL
 2356     0F55'   CD 0EBE'                      CALL    LENG
 2357     0F58'   C5                            PUSH    B
 2358     0F59'   E5                            PUSH    H
 2359     0F5A'   3E 20                 LOOP1:  MVI     A,' '
 2360     0F5C'   CD 2007'                      CALL    CO
 2361     0F5F'   7E                            MOV     A,M
 2362     0F60'   CD 0AA5'                      CALL    WRIT2
 2363     0F63'   23                            INX     H
 2364     0F64'   05                            DCR     B
 2365     0F65'   C2 0F5A'                      JNZ     LOOP1
 2366     0F68'   D1                            POP     D
 2367     0F69'   C1                            POP     B
 2368     0F6A'   3E 04                         MVI     A,4
 2369     0F6C'   90                            SUB     B
 2370     0F6D'   47                            MOV     B,A
 2371     0F6E'   07                            RLC
 2372     0F6F'   E6 0F                         ANI     0FH
 2373     0F71'   80                            ADD     B
 2374     0F72'   47                            MOV     B,A
 2375     0F73'   3E 20                 LPP:    MVI     A,' '
 2376     0F75'   CD 2007'                      CALL    CO
 2377     0F78'   05                            DCR     B
 2378     0F79'   C2 0F73'                      JNZ     LPP
 2379                                   ;
 2380                                   ;VYPIS ASCII
 2381                                   ;
 2382     0F7C'   3E 3A                         MVI     A,':'
 2383     0F7E'   CD 2007'                      CALL    CO
 2384     0F81'   1A                            LDAX    D
 2385     0F82'   E6 7F                         ANI     7FH
 2386     0F84'   FE 20                         CPI     20H
 2387     0F86'   DA 0F8E'                      JC      CONTM
 2388     0F89'   FE 7F                         CPI     7FH
 2389     0F8B'   C2 0F90'                      JNZ     CONT1
 2390     0F8E'   3E 20                 CONTM:  MVI     A,' '
 2391     0F90'   CD 2007'              CONT1:  CALL    CO
 2392     0F93'   3E 3A                         MVI     A,':'
 2393     0F95'   CD 2007'                      CALL    CO
 2394     0F98'   CD 0D6A'              LOOP2:  CALL    CI
 2395     0F9B'   4F                            MOV     C,A
 2396     0F9C'   CD 2007'                      CALL    CO
 2397     0F9F'   FE 08                         CPI     08
 2398     0FA1'   CA 0FD3'                      JZ      BACKGO
 2399     0FA4'   FE 20                         CPI     ' '
 2400     0FA6'   CA 0FD8'                      JZ      LPPA
 2401     0FA9'   FE 0D                         CPI     0DH
 2402     0FAB'   CA 0F4F'                      JZ      LOOP
 2403     0FAE'   FE 2E                         CPI     '.'
 2404     0FB0'   CA 0F10'                      JZ      MLOOP
 2405     0FB3'   FE 22                         CPI     '"'
 2406     0FB5'   CA 0FDD'                      JZ      TEXT
 2407     0FB8'   E5                            PUSH    H
 2408     0FB9'   21 0000                       LXI     H,0
'JPR-1  MIKRO BASIC'   MACRO-80 3.44   09-Dec-81       PAGE    1-43


 2409     0FBC'   CD 0E85'                      CALL    MEX1
 2410     0FBF'   47                            MOV     B,A
 2411     0FC0'   7D                            MOV     A,L
 2412     0FC1'   12                            STAX    D
 2413     0FC2'   13                            INX     D
 2414     0FC3'   78                            MOV     A,B
 2415     0FC4'   E1                            POP     H
 2416     0FC5'   FE 20                         CPI     ' '
 2417     0FC7'   CA 0F98'                      JZ      LOOP2
 2418     0FCA'   FE 0D                         CPI     0DH
 2419     0FCC'   C2 0EAD'                      JNZ     EROR
 2420     0FCF'   EB                            XCHG
 2421     0FD0'   C3 0F52'                      JMP     LOOPA
 2422                                   ;
 2423                                   ;
 2424     0FD3'   1B                    BACKGO: DCX     D
 2425     0FD4'   EB                            XCHG
 2426     0FD5'   C3 0F4F'                      JMP     LOOP
 2427                                   ;
 2428     0FD8'   EB                    LPPA:   XCHG
 2429     0FD9'   23                            INX     H
 2430     0FDA'   C3 0F4F'                      JMP     LOOP
 2431                                   ;
 2432     0FDD'   CD 0D6A'              TEXT:   CALL    CI
 2433     0FE0'   CD 2007'                      CALL    CO
 2434     0FE3'   FE 22                         CPI     '"'
 2435     0FE5'   CA 0FF3'                      JZ      CONTE
 2436     0FE8'   4F                            MOV     C,A
 2437     0FE9'   12                            STAX    D
 2438     0FEA'   1A                            LDAX    D
 2439     0FEB'   B9                            CMP     C
 2440     0FEC'   C2 0EAD'                      JNZ     EROR
 2441     0FEF'   13                            INX     D
 2442     0FF0'   C3 0FDD'                      JMP     TEXT
 2443                                   ;
 2444     0FF3'   CD 0D6A'              CONTE:  CALL    CI
 2445     0FF6'   FE 20                         CPI     ' '
 2446     0FF8'   CA 0F98'                      JZ      LOOP2
 2447     0FFB'   EB                            XCHG
 2448     0FFC'   C3 0F4F'                      JMP     LOOP
 2449                                   ;
 2450     0FFF'   24                            DB      24H       ;VERZE 02-04
 2451                                   ;
 2452                                   ;*********************************************
 2453                                   ;
 2454                                   ;       DEFINICE RAM
 2455                                   ;
 2456                                   ;*********************************************
 2457                                   ;
 2458                                           ORG     2000H
 2459                                   ;
 2460     2000'                         PORT24: DS      1
 2461     2001'                         LEGT:   DS      2
 2462     2003'                         IOBUFA: DS      1
 2463     2004'                         IOBUFB: DS      1
 2464     2005'                         IOBUFC: DS      1
'JPR-1  MIKRO BASIC'   MACRO-80 3.44   09-Dec-81       PAGE    1-44


 2465     2006'                         LISTC:  DS      1
 2466     2007'                         CO:     DS      3
 2467     200A'                         MASKIN: DS      1
 2468     200B'                         CURRNT: DS      2
 2469     200D'                         STKGOS: DS      2
 2470     200F'                         VARNXT: DS      2
 2471     2011'                         STKINP: DS      2
 2472     2013'                         LOPVAR: DS      2
 2473     2015'                         LOPINC: DS      2
 2474     2017'                         LOPLMT: DS      2
 2475     2019'                         LOPLN:  DS      2
 2476     201B'                         LOPPT:  DS      2
 2477     201D'                         RANPNT: DS      2
 2478     201F'                         ARMM:   DS      2
 2479     2021'                         RADEK:  DS      1
 2480     2022'                         POZICE: DS      1
 2481     2023'                         MODE:   DS      1
 2482     2024'                         TXTUNF: DS      2
 2483     2026'                                 DS      40
 2484     204E'                         STKLMT: DS      2
 2485     2050'                                 DS      97
 2486     20B1'                         STACK:  DS      2
 2487     20B3'                         VARBGN: DS      54
 2488     20E9'                         TXTEND: DS      2
 2489     20EB'                         BUFFER: DS      2
 2490     20ED'                         BUFEND: DS      2
 2491     20EF'                         TXTBGN: DS      2
 2492     20F1'                                 DS      698
 2493     23AB'                         TXTE:   DS      2
 2494     23AD'                         BUFA:   DS      64
 2495     23ED'                         BUFE:   DS      1
 2496     23EE'                         BRST:   DS      18
 2497                                   ;
 2498                                           END
'JPR-1  MIKRO BASIC'   MACRO-80 3.44   09-Dec-81       PAGE    S


Macros:

Symbols:
0A02'   A1              06F1'   ABS             02F0'   AHOW
0517'   AREM            201F'   ARMM            07AD'   ASORRY
0778'   AWHAT           0F07'   B1              0F06'   B2
0F05'   B3              0CB7'   BACK            0CC6'   BACK10
0FD3'   BACKGO          09A4'   BCALL           09E8'   BEEP
09EC'   BEEP1           0013'   BEND            0A10'   BIN
09B1'   BOUT            0B11'   BREAK           23EE'   BRST
23AD'   BUFA            23ED'   BUFE            20ED'   BUFEND
20EB'   BUFFER          0A92'   BYTE            0727'   CHGSGN
0724'   CHKSGN          0D6A'   CI              0742'   CK1
073C'   CKHLDE          051B'   CLEAR           0923'   CLS
2007'   CO              0268'   COMP            0B06'   CONT
0F90'   CONT1           0FF3'   CONTE           0F8E'   CONTM
0C32'   COP             0D12'   CRDS            0906'   CRLF
0919'   CROUT           200B'   CURRNT          07DA'   CXBUFA
07D0'   CXBUFE          095C'   DBUFF           05A0'   DEFLT
0929'   DIRECT          0C5C'   DISP            0350'   DISPL
0707'   DIVIDE          0964'   DTXTE           0712'   DV1
0714'   DV2             0EB5'   ECHU            0771'   ENDCHK
0F4C'   ENTER           0EAD'   EROR            077B'   ERROR
0930'   EX1             0943'   EX2             094E'   EX3
0950'   EX4             0955'   EX5             092C'   EXEC
05B4'   EXPR            05B8'   EXPR1           05FC'   EXPR2
0638'   EXPR3           069C'   EXPR4           075E'   FIN
0276'   FINI            0820'   FL2             0801'   FNDLN
0809'   FNDLP           081F'   FNDNXT          0821'   FNDSKP
0446'   FOR             0456'   FR1             0462'   FR2
0468'   FR3             046B'   FR4             0483'   FR7
04A4'   FR8             07B3'   GETLN           07BA'   GL1
07D9'   GL3             07E9'   GL4             07F1'   GL5
0F48'   GOEX            0409'   GOSUB           0339'   GOTO
0911'   H2              034A'   HARD            09AD'   HERE
0AD8'   HEX             0AE1'   HNXTH           0D62'   HOME
02F6'   HOW             0A45'   I               052B'   IFF
052E'   IFFR            026E'   IGNB            0AD1'   INCHAR
0A1F'   INEM            0A15'   INM             053C'   INPERR
0546'   INPUT           2003'   IOBUFA          2004'   IOBUFB
2005'   IOBUFC          0546'   IP1             0556'   IP2
0568'   IP3             0594'   IP4             0CDA'   IPOZ
0CE8'   IRAD            0AAE'   IST             0D6D'   KLIN10
0D6F'   KLIN20          0D75'   KLIN30          0DA4'   KLIN40
0DC0'   KLIN50          0DC2'   KLIN60          0DCB'   KLIN70
0DDF'   KLIN80          0DB5'   KLIN90          0DB7'   KLIN99
0C15'   LAB1            0BF4'   LABEL           2001'   LEGT
0EBE'   LENG            000B'   LENGHT          05A6'   LET
0D19'   LFDS            0913'   LINEF           0359'   LIST
2006'   LISTC           0356'   LLIST           0B23'   LOAD
0B36'   LOAD10          0B44'   LOAD20          0B7A'   LOAD3
0B2F'   LOAD30          0B6C'   LOAD4           0B2B'   LOAD40
0B56'   LOAD5           0F4F'   LOOP            0F5A'   LOOP1
0F98'   LOOP2           0F52'   LOOPA           2015'   LOPINC
2017'   LOPLMT          2019'   LOPLN           201B'   LOPPT
'JPR-1  MIKRO BASIC'   MACRO-80 3.44   09-Dec-81       PAGE    S-1


2013'   LOPVAR          0F73'   LPP             0FD8'   LPPA
03A4'   LPRINT          0369'   LS0             036C'   LS1
037E'   LS3             0387'   LS4             037B'   LS5
039E'   LS6             05B1'   LT1             096C'   MASK
200A'   MASKIN          08BA'   MD1             0E85'   MEX1
0EA4'   MEX2            0E7E'   MEXO            0E7B'   MEXPR
0F10'   MLOOP           2023'   MODE            0F0D'   MONIT
0F0A'   MONIT1          0D40'   MOVR            0D27'   MOVS
0D42'   MOVZ            00D0'   MSG1            08B2'   MVDOWN
08A7'   MVUP            030D'   NEW             04AB'   NEXT
0E94'   NIBBLE          0D07'   NULD10          0D09'   NULD20
0CF8'   NULD30          0CF4'   NULDIS          04B4'   NX0
04F0'   NX1             0506'   NX2             04CE'   NX3
04E0'   NX4             0504'   NX5             0A38'   O
02FB'   OK              0908'   OUTC            0AC7'   OUTCHR
0C84'   OUTD1           0CA4'   OUTD10          0C67'   OUTDIS
06B3'   PARN            0A76'   PEEK            0BA5'   PIN
0E4A'   PIP             0E55'   PIP20           0E60'   PIP30
0E66'   PIPO            0E69'   PIPO10          0859'   PN1
0860'   PN2             0870'   PN3             0871'   PN4
087F'   PN5             0885'   PN6             0A7D'   POKE
08C1'   POPA            0B04'   POPRET          2000'   PORT24
2022'   POZICE          08DB'   PP1             03C5'   PR0
03EA'   PR3             03BF'   PR6             03FE'   PR8
0E73'   PRHL            03A7'   PRINT           0C55'   PRNTST
0892'   PRTLN           084E'   PRTNUM          082B'   PRTSTG
082C'   PS1             0903'   PU1             08DD'   PUSHA
02EF'   QHOW            07AC'   QSORRY          0840'   QT1
0849'   QT2             0839'   QTSTG           0AB9'   QUOTE
0777'   QWHAT           06E1'   RA1             2021'   RADEK
0976'   RAM             201D'   RANPNT          050C'   REM
042B'   RETURN          0C2C'   REW10           0C28'   REWIND
06C4'   RND             0D1F'   ROLDIS          0050'   RSTAR1
004D'   RSTART          0316'   RUN             031C'   RUNNXL
032C'   RUNSML          0325'   RUNTSL          0BB3'   SAVE
0BC5'   SAVE1           0BD3'   SAVE2           0BDA'   SAVE3
0B88'   SEC1            0B8B'   SEC3            0B8D'   SEC31
0D53'   SES10           0D4B'   SESTAV          0745'   SETVAL
0DE6'   SHOF            0DEB'   SHOF10          0DF2'   SHON
06FA'   SIZE            0307'   SORRY           0067'   ST2
0070'   ST3             00A7'   ST4             0075'   ST5
20B1'   STACK           0019'   START           004A'   START1
200D'   STKGOS          2011'   STKINP          204E'   STKLMT
0B0E'   STOP            071D'   SUBDE           0F44'   SUEX
09FF'   TAB             00DC'   TAB1            011E'   TAB2
01EB'   TAB4            0239'   TAB5            0241'   TAB6
024B'   TAB8            0DFA'   TABZN           02C1'   TC2
0FDD'   TEXT            0C22'   TLAB            02CC'   TN1
0003'   TOP             0B97'   TOUT            0B9D'   TOUT1
0BEE'   TPER            0BE1'   TPERR           02B1'   TSTC
02C5'   TSTNUM          027D'   TSTV            02A1'   TV1
0100'   TXMON           20EF'   TXTBGN          23AB'   TXTE
20E9'   TXTEND          2024'   TXTUNF          20B3'   VARBGN
200F'   VARNXT          09D7'   WAIT            09DB'   WAIT1
09F4'   WAIT2           09F6'   WAIT3           0301'   WHAT
0A9C'   WORD            0AA5'   WRIT2           05BE'   XP11
'JPR-1  MIKRO BASIC'   MACRO-80 3.44   09-Dec-81       PAGE    S-2


05C4'   XP12            05CA'   XP13            05D1'   XP14
05D9'   XP15            05DF'   XP16            05E5'   XP17
05E7'   XP18            060F'   XP23            0618'   XP24
062E'   XP26            063B'   XP31            065A'   XP32
0662'   XP33            068E'   XP35            06A2'   XP40
06AD'   XP41            0C3F'   ZZZ1            0CB2'   ZZZ13
0C49'   ZZZ2            0C58'   ZZZ3            0A41'   ZZZ4
0D66'   ZZZ5



No Fatal error(s)



A1       1503#   1509
ABS       228     971#
AHOW      394#    438     541     880     886     904
AREM      250     685#
ARMM      678     685    2478#
ASORRY    316    1107#   1421    1424    1430    1553
AWHAT     633    1077#
B1       2314    2317#
B2       2307    2311    2313    2316#
B3       2288    2290    2293    2295    2298    2301    2303    2315#
BACK     1911    1944#
BACK10   1947    1950#
BACKGO   2398    2424#
BCALL     193    1445#
BEEP      208    1487#
BEEP1    1489#
BEND       23#    187
BIN       243    1513#
BOUT      198    1455#
BREAK    1683    1685#
BRST       18      22    2496#
BUFA       40    2494#
BUFE       42    2495#
BUFEND     43    1127    1431    2490#
BUFFER     41    1133    1395    1438    2489#
BYTE      219    1598#
CHGSGN    860     916    1014#   1315
CHKSGN    869     871     896     898     973    1011#   1214
CI       1115    1644    1838    2068#   2244    2332    2394    2432    2444
CK1      1035    1037#
CKHLDE    662     825    1033#
CLEAR     155     691#
CLS       152    1354#
CO       1342    1348    1350    1508    1639    1714    1720    1869    1873    2246    2273    2277
         2331    2333    2360    2376    2383    2391    2393    2396    2433    2466#
COMP      106     281#    315     634     953     955    1037    1159    1271    1420    1552    1729
         1784
CONT      428     760    1680#
CONT1    2389    2391#
CONTE     952    2435    2444#
CONTM    2387    2390#
COP      1843#   1868
CRDS     1909    2000#
CRLF       49     494     500     526    1139    1338#   1687    1799
CROUT    1345    1347#   2325    2329    2353
CURRNT     58     422     542     563     587     666     714     741     744     759    1087    1685
         2468#
CXBUFA   1132#

CXBUFE   1126#
DBUFF      65     751    1114    1394#   1554    1560    1821
DEFLT     224     768#
DIRECT     71    1359#
DISP       29     449     484     495     501     527    1081    1872#
DISPL     161     449#
DIVIDE    906     963     989#   1223
DTXTE     105    1400#
DV1       992     997#
DV2       998#   1000
ECHU     2269    2275#
ENDCHK     23     410     416     436     554    1073#   1684
ENTER    2335    2351#
EROR     2272#   2344    2419    2440
ERROR     395    1078#   1108
EX1      1362#   1368
EX2      1373#   1375
EX3      1365    1380#
EX4      1381#   1383
EX5      1372    1384#
EXEC      430     575     580     786     919    1360#   1379
EXPR      434     506     516     529     538     577     582     701     752     783#    934    1047
         1409    1416    1445    1455    1460    1476    1487    1537    1547    1584    1589    1637
EXPR1     785#
EXPR2     783     822     830#
EXPR3     838     843     859     862#
EXPR4     862     867     894     918#
FIN       299     524    1059#
FINI      298#    445     450     528     566     621     669     673     697     767     779    1355
         1412    1451    1471    1483    1492    1505    1543    1593    1601    1607    1640
FL2      1168    1176#   1179
FNDLN      83     437     461     540    1152#
FNDLP     419     470    1156#   1181
FNDNXT     87    1175#
FNDSKP    705    1177#
FOR       176     570#
FR1       256     577#
FR2       261     582#
FR3       263     585#
FR4       583     586#
FR7       598#    606     609
FR8       602     619#
GETLN      63     750    1112#   1141    1813
GL1      1115#   1130    1138    1555
GL3      1117    1131#
GL4      1119    1136    1139#
GL5      1137    1142#
GOEX     2339    2348#
GOSUB     169     537#

GOTO      166     434#
H2       1343#   1346
HARD      158     444#
HERE     1447    1450#
HEX       239    1651#
HNXTH    1656#   1673
HOME     1986    2055#
HOW       394     399#
I         202    1547#
IFF       163     701#
IFFR      681     702#
IGNB       67     290#    294     304     343     363     458     475    1073    1360
INCHAR    237    1644#
INEM     1513    1516    1522#
INM       241    1516#
INPERR    711#   1096
INPUT     179     720#
IOBUFA   1463    1470    1525    1531    2462#
IOBUFB   1466    1528    2463#
IOBUFC   1468    1530    2464#
IP1       721#    743     766
IP2       723     727#
IP3       726     739#
IP4       725     762#
IPOZ     1921    1922    1961#
IRAD     1971#   2006
IST      1614    1616#
KLIN10   2071#   2102
KLIN20   2072#   2099    2125
KLIN30   2078#   2091
KLIN40   2098    2106#
KLIN50   2089    2129#
KLIN60   2130#   2133
KLIN70   2131    2138#
KLIN80   2149    2157#
KLIN90   2101    2121#
KLIN99   2122#   2123
LAB1     1823#   1830
LABEL    1776    1809#
LEGT       19    1569    2461#
LENG     2283#   2356
LENGHT     19#    252
LET       150     774#    778
LFDS     1913    2006#
LINEF    1341    1345#
LIST      124     455#
LISTC     457     463     468     481    2465#
LLIST     127     454#
LOAD      142    1698#

LOAD10   1707#
LOAD20   1709    1713#
LOAD3    1730    1735#
LOAD30   1704#   1712
LOAD4    1729#   1734
LOAD40   1702#   1706    1717
LOAD5    1720#   1723
LOOP     2353#   2402    2426    2430    2448
LOOP1    2359#   2365
LOOP2    2394#   2417    2446
LOOPA    2355#   2421
LOPINC    586     643    1302    1329    2473#
LOPLMT    578     657    1304    1327    2474#
LOPLN     588     665    1306    1325    2475#
LOPPT     590     619     667    1308    1323    2476#
LOPVAR     60     547     573     592     630     653    1297    1319    1331    2472#
LPP      2375#   2378
LPPA     2400    2428#
LPRINT    185     489#
LS0       461#    473     483
LS1       462#    471
LS3       469#
LS4       460     472#
LS5       465     468#
LS6       462     484#
LT1       770     779#
MASK      214    1409#
MASKIN     55    1411    1518    2467#
MD1      1283    1287#
MEX1     2247#   2409
MEX2     2248    2267#
MEXO     2244#   2255
MEXPR    2243#   2348    2351
MLOOP    2274    2325#   2346    2404
MODE       32      53     427     511    1079    1892    1929    2481#
MONIT     137    2324#
MONIT1   2323#
MOVR     2014    2027#
MOVS     2014#   2023
MOVZ     2028#   2033
MSG1       34     116#
MVDOWN    110     617    1281#   1291
MVUP       90     113    1271#   1277    1562
NEW       131     410#
NEXT      148     625#
NIBBLE   1659    2247    2256#
NULD10   1985    1989#   2026
NULD20    695    1990#   1995
NULD30   1953    1983#

NULDIS     30    1354    1979#   2323
NX0       628#    639
NX1       660     662#
NX2       664     672#
NX3       635     640#
NX4       649     652#
NX5       651     670#
O         200    1537#
OK         51     401#
OUTC     1102    1113    1120    1144    1146    1148    1190    1239    1243    1250    1264    1339#
         1621    1689
OUTCHR    196    1637#
OUTD1    1897    1900    1907#
OUTD10   1929#   1949    1957    1987    2002    2007
OUTDIS   1843    1874    1886#
PARN      309     931#    943     971    1502    1522    1577    1598    1605
PEEK      234    1577#
PIN      1715    1719    1721    1724    1726    1731    1736    1764#   1766
PIP      2205#   2223
PIP20    2210#   2211
PIP30    2215#   2216
PIPO     2112    2222#
PIPO10   1490    2223#   2227
PN1      1215    1218#
PN2      1223#   1232
PN3      1226    1233#
PN4      1234#   1240
PN5      1237    1241#
PN6      1245#   1251
POKE      211    1584#
POPA      565     637     672    1295#
POPRET   1672    1675#
PORT24     33    2078    2164    2166    2169    2206    2460#
POZICE   1944    1948    1956    1961    1963    1967    2001    2045    2056    2480#
PP1      1300    1309#
PR0       503#    525
PR3       512     518     521#    533
PR6       501#   1204
PR8       520     529#
PRHL     1606    2236#   2355
PRINT     182     490#
PRNTST    444     454     489    1868#
PRTLN     469    1097    1255#   1690
PRTNUM    531    1213#   1262
PRTSTG     35      56     735    1080    1104    1185#   1201    1266    1541    1802    1811    2328
PS1      1186#   1192
PU1      1322    1332#
PUSHA     537     570    1314#
QHOW      311     370     393#    854     913     946     948    1027    1154

QSORRY    107    1106#   1318
QT1      1201#
QT2      1205#
QTSTG     519     722    1197#
QUOTE     245    1625#
QWHAT     258     300     558     626     729     939    1042    1055    1076#   1472    1594    1633
         1658    1660    1674
RA1       954     956#
RADEK    1950    1954    1971    2039    2057    2479#
RAM       139    1416#
RANPNT     37     951     959    2477#
REM       174     677#
RETURN    172     554#
REW10    1838#
REWIND    134    1836#
RND       226     943#
ROLDIS   1974    2011#
RSTAR1     50#    485
RSTART     24      49#     99     420     467     707    1093    1105    1691    1795    1803    2343
RUN       129     416#
RUNNXL    418#    502    1068
RUNSML    426#    496     704    1063
RUNTSL    421#    440     550     706
SAVE      145    1776#
SAVE1    1784#   1789
SAVE2    1785    1790#
SAVE3    1740    1793#   1839
SEC1     1710    1741#   1792
SEC3     1743#   1818
SEC31    1744#   1747
SES10    2042#   2044
SESTAV   1891    1932    2038#
SETVAL    571     774    1041#
SHOF     2095    2164#
SHOF10   2166#   2171
SHON     2158    2169#
SIZE      231     314     979#
SORRY     405#   1107
ST2        57      59#
ST3        62#    114
ST4        85      94#
ST5        64#
STACK      28      50    2324    2486#
START      14      28#   2341
START1     45#   1441
STKGOS     61     544     549     555     561    2469#
STKINP    711     747    2471#
STKLMT   1314    2484#
STOP      190    1684#

SUBDE     318     983     999    1003#   1567
SUEX     2337    2346#
TAB       216    1502#
TAB1      122#   1359
TAB2      146#    429
TAB4      225#    918
TAB5      255#    574
TAB6      259#    579
TAB8      264#    785
TABZN    2108    2175#
TC2       346     353#
TEXT     2406    2432#   2442
TLAB     1809    1831#
TN1       364#    389
TOP        15#     36     247
TOUT     1752#   1779    1781    1787    1791    1820    1825
TOUT1    1757#   1759
TPER     1800    1804#
TPERR    1738    1799#
TSTC      342#    491     497     503     513     521     763     775     830     835     839     855
          863     890     931     935    1044    1059    1064    1197    1457    1586    1629    1653
         1669
TSTNUM     66     361#    455     477     927
TSTV      304#    625     724     728     920    1041
TV1       307     324#
TXMON     135#   2326
TXTBGN     38     411     417    1155    1728    1783    2491#
TXTE       44    1418    2493#
TXTEND     45     317     982    1401    2488#
TXTUNF     15      39      89      93      95     108     412     979    1157    1550    1739    1777
         2482#
VARBGN    328     691    2487#
VARNXT    627     638    2470#
WAIT      205    1476#
WAIT1    1478#   1481
WAIT2    1479    1493#   1498    1745
WAIT3    1494#   1495
WHAT      403#   1077
WORD      222    1605#
WRIT2    1600    1609#   2237    2239    2362
XP11      265     787#
XP12      267     791#
XP13      269     795#
XP14      273     800#
XP15      271     806#
XP16      275     810#
XP17      277     814#
XP18      787     791     795     800     806     810     816#
XP23      839#    851     853

XP24      844#    861
XP26      834     858#
XP31      863#    917
XP32      876     881#
XP33      885#    888
XP35      884     889     910#
XP40      254     920#
XP41      921     927#
ZZZ1     1851#   1853
ZZZ13    1931    1936#
ZZZ2     1857#   1859
ZZZ3     1869#   1875
ZZZ4     1542#   1573
ZZZ5     1975    2057#


ÚVOD | Novinky | 8 Bitů | Příslušenství | Drobnosti | TTL | Kontakt


SAPI-1 | ONDRA | PMI-80 | PMD-85 | klony PMD-85 | klony SM50/40 | PETR | PLAN-80A | IQ151 | TNS | FK-1 | HVĚZDA | SP 830 | PCS 1-QR6000


ZPS | Technické prostředky | Programové vybavení | Dokumentace


8 bity / SAPI-1 / Programové vybavení / MikroBASIC / LST V2.4 1kB



SAPI.cz - web o československých osmibitech, zejména SAPI-1. Provozuje EC1045 od roku 2011
Za korekce češtiny dekuji: MELSOFTovi, Silliconovi, Martinu Lukáškovi a NOSTALCOMPovi

Když začínám blbnout z 8bitů tak se chodím léčit mezi otaku.
Animefest.cz