Ú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 V3.1


Listing programu Mikro BASIC verze 3.1


'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    3 . 1
    6                                   ;
    7                                   ;****************************************
    8                                   ;
    9                                   ;
   10                                           TITLE   'JPR-1  MIKRO BASIC'
   11                                   ;
   12                                           ORG     0
   13                                   ;
   14     0000'   C3 0019'                      JMP     START
   15     0003'   2A 4024'              TOP:    LHLD    TXTUNF
   16     0006'   23                            INX     H
   17     0007'   C9                            RET
   18     0008'   C3 47EE'                      JMP     BRST
   19     000B'   2A 4001'              LENGHT: LHLD    LEGT
   20     000E'   2B                            DCX     H
   21     000F'   C9                            RET
   22     0010'   C3 47F7'                      JMP     BRST+9
   23     0013'   CD 0771'              BEND:   CALL    ENDCHK
   24     0016'   C3 004D'                      JMP     RSTART
   25                                   ;
   26                                   ;START
   27                                   ;
   28     0019'   31 40B1'              START:  LXI     SP,STACK
   29     001C'   CD 0C5C'                      CALL    DISP
   30     001F'   CD 0CF4'                      CALL    NULDIS
   31     0022'   AF                            XRA     A
   32     0023'   32 4023'                      STA     MODE
   33     0026'   32 4000'                      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 401D'                      SHLD    RANPNT
   38     0035'   21 40EF'                      LXI     H,TXTBGN
   39     0038'   22 4024'                      SHLD    TXTUNF
   40     003B'   21 47AD'                      LXI     H,BUFA
   41     003E'   22 40EB'                      SHLD    BUFFER
   42     0041'   21 47ED'                      LXI     H,BUFE
   43     0044'   22 40ED'                      SHLD    BUFEND
   44     0047'   21 47AB'                      LXI     H,TXTE
   45     004A'   22 40E9'              START1: SHLD    TXTEND
   46                                   ;
   47                                   ;RSTART  HORKY START
   48                                   ;
   49     004D'   CD 0906'              RSTART: CALL    CRLF
   50     0050'   31 40B1'              RSTAR1: LXI     SP,STACK
   51     0053'   11 02FB'                      LXI     D,OK
   52     0056'   97                            SUB     A
   53     0057'   32 4023'                      STA     MODE
   54     005A'   2F                            CMA
   55     005B'   32 400A'                      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 400B'                      SHLD    CURRNT
   59     0067'   21 0000               ST2:    LXI     H,0
   60     006A'   22 4013'                      SHLD    LOPVAR
   61     006D'   22 400D'                      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 4024'                      LHLD    TXTUNF
   90     009F'   CD 08A7'                      CALL    MVUP
   91     00A2'   60                            MOV     H,B
   92     00A3'   69                            MOV     L,C
   93     00A4'   22 4024'                      SHLD    TXTUNF
   94     00A7'   C1                    ST4:    POP     B
   95     00A8'   2A 4024'                      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 4024'                      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 40E9'                      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 40B3'                      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 40EF'                      LXI     H,TXTBGN
  412     0313'   22 4024'                      SHLD    TXTUNF
  413                                   ;
  414                                   ;RUN
  415                                   ;
  416     0316'   CD 0771'              RUN:    CALL    ENDCHK
  417     0319'   11 40EF'                      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 400B'                      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 4023'                      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 4006'                      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 4006'                      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 4006'              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 4006'                      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 4023'                      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 400B'                      LHLD    CURRNT
  543     0419'   E5                            PUSH    H
  544     041A'   2A 400D'                      LHLD    STKGOS
  545     041D'   E5                            PUSH    H
  546     041E'   21 0000                       LXI     H,0
  547     0421'   22 4013'                      SHLD    LOPVAR
  548     0424'   39                            DAD     SP
  549     0425'   22 400D'                      SHLD    STKGOS
  550     0428'   C3 0325'                      JMP     RUNTSL
  551                                   ;
  552                                   ;RETURN
  553                                   ;
  554     042B'   CD 0771'              RETURN: CALL    ENDCHK
  555     042E'   2A 400D'                      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 400D'                      SHLD    STKGOS
  562     043B'   E1                            POP     H
  563     043C'   22 400B'                      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 4013'                      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 4017'                      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 4015'              FR4:    SHLD    LOPINC
  587     046E'   2A 400B'                      LHLD    CURRNT
  588     0471'   22 4019'                      SHLD    LOPLN
  589     0474'   EB                            XCHG
  590     0475'   22 401B'                      SHLD    LOPPT
  591     0478'   01 000A                       LXI     B,0AH
  592     047B'   2A 4013'                      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 401B'              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 400F'                      SHLD    VARNXT
  628     04B4'   D5                    NX0:    PUSH    D
  629     04B5'   EB                            XCHG
  630     04B6'   2A 4013'                      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 400F'                      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 4015'                      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 4013'                      LHLD    LOPVAR
  654     04E4'   73                            MOV     M,E
  655     04E5'   23                            INX     H
  656     04E6'   72                            MOV     M,D
  657     04E7'   2A 4017'                      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 4019'                      LHLD    LOPLN
  666     04FA'   22 400B'                      SHLD    CURRNT
  667     04FD'   2A 401B'                      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 401F'                      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 401F'              AREM:   LHLD    ARMM
  686     051A'   C9                            RET
  687                                   ;
  688                                   ;
  689                                   ;CLEAR
  690                                   ;
  691     051B'   21 40B3'              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 4011'              INPERR: LHLD    STKINP
  712     053F'   F9                            SPHL
  713     0540'   E1                            POP     H
  714     0541'   22 400B'                      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 400B'                      LHLD    CURRNT
  742     056D'   E5                            PUSH    H
  743     056E'   21 0546'                      LXI     H,IP1
  744     0571'   22 400B'                      SHLD    CURRNT
  745     0574'   21 0000                       LXI     H,0
  746     0577'   39                            DAD     SP
  747     0578'   22 4011'                      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 400B'                      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 401D'                      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 401D'                      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 4024'              SIZE:   LHLD    TXTUNF
  980     06FD'   D5                            PUSH    D
  981     06FE'   EB                            XCHG
  982     06FF'   2A 40E9'                      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 4023'                      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 400B'                      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 40ED'                      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 40EB'                      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 40EF'                      LXI     D,TXTBGN
 1156     0809'   E5                    FNDLP:  PUSH    H
 1157     080A'   2A 4024'                      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 4013'                      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 4015'                      SHLD    LOPINC
 1303     08CF'   E1                            POP     H
 1304     08D0'   22 4017'                      SHLD    LOPLMT
 1305     08D3'   E1                            POP     H
 1306     08D4'   22 4019'                      SHLD    LOPLN
 1307     08D7'   E1                            POP     H
 1308     08D8'   22 401B'                      SHLD    LOPPT
 1309     08DB'   C5                    PP1:    PUSH    B
 1310     08DC'   C9                            RET
 1311                                   ;
 1312                                   ;PUSHA
 1313                                   ;
 1314     08DD'   21 404E'              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 4013'                      LHLD    LOPVAR
 1320     08EB'   7C                            MOV     A,H
 1321     08EC'   B5                            ORA     L
 1322     08ED'   CA 0903'                      JZ      PU1
 1323     08F0'   2A 401B'                      LHLD    LOPPT
 1324     08F3'   E5                            PUSH    H
 1325     08F4'   2A 4019'                      LHLD    LOPLN
 1326     08F7'   E5                            PUSH    H
 1327     08F8'   2A 4017'                      LHLD    LOPLMT
 1328     08FB'   E5                            PUSH    H
 1329     08FC'   2A 4015'                      LHLD    LOPINC
 1330     08FF'   E5                            PUSH    H
 1331     0900'   2A 4013'                      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 4007'                      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 4007'                      CALL    CO
 1349     091E'   3E 0A                         MVI     A,0AH
 1350     0920'   C3 4007'                      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 40EB'                      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 40E9'                      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 400A'                      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 47AB'                      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 40ED'                      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 40EB'                      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 4003'                      STA     IOBUFA
 1464     09C3'   E1                            POP     H
 1465     09C4'   7D                            MOV     A,L
 1466     09C5'   32 4004'                      STA     IOBUFB
 1467     09C8'   3E C9                         MVI     A,0C9H
 1468     09CA'   32 4005'                      STA     IOBUFC
 1469     09CD'   78                            MOV     A,B
 1470     09CE'   CD 4003'                      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 4007'                      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 400A'                      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 4003'                      STA     IOBUFA
 1526     0A28'   E1                            POP     H
 1527     0A29'   7D                            MOV     A,L
 1528     0A2A'   32 4004'                      STA     IOBUFB
 1529     0A2D'   3E C9                         MVI     A,0C9H
 1530     0A2F'   32 4005'                      STA     IOBUFC
 1531     0A32'   CD 4003'                      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 4024'                      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 4001'                      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 4007'                      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 400B'              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 4007'                      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 4007'              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 40EF'                      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 4024'                      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 4024'                      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 40EF'                      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 4008'              ZZZ3:   SHLD    CO+1
 1870     0C5B'   C9                            RET
 1871                                   ;
 1872     0C5C'   3E C3                 DISP:   MVI     A,0C3H
 1873     0C5E'   32 4007'                      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 4023'                      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 4023'              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 4022'              BACK:   LDA     POZICE
 1945     0CBA'   3D                            DCR     A
 1946     0CBB'   FE FF                         CPI     0FFH
 1947     0CBD'   CA 0CC6'                      JZ      BACK10
 1948     0CC0'   32 4022'                      STA     POZICE
 1949     0CC3'   C3 0CA4'                      JMP     OUTD10
 1950     0CC6'   3A 4021'              BACK10: LDA     RADEK
 1951     0CC9'   3D                            DCR     A
 1952     0CCA'   FE FF                         CPI     0FFH
 1953     0CCC'   CA 0CF8'                      JZ      NULD30
 1954     0CCF'   32 4021'                      STA     RADEK
 1955     0CD2'   3E 27                         MVI     A,39
 1956     0CD4'   32 4022'                      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 4022'              IPOZ:   LDA     POZICE
 1962     0CDD'   3C                            INR     A
 1963     0CDE'   32 4022'                      STA     POZICE
 1964     0CE1'   FE 28                         CPI     40
 1965     0CE3'   D8                            RC
 1966     0CE4'   AF                            XRA     A
 1967     0CE5'   32 4022'                      STA     POZICE
 1968                                   ;
 1969                                   ;INKREMENT RADKU
 1970                                   ;
 1971     0CE8'   3A 4021'              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 4022'                      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 4021'                      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 4022'                      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 4022'                      STA     POZICE
 2057     0D66'   32 4021'              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'   CD 0D9C'              ZZZ9:   CALL    ZZZ6
 2072     0D70'   FE 20                         CPI     ' ' ;SPACE
'JPR-1  MIKRO BASIC'   MACRO-80 3.44   09-Dec-81       PAGE    1-37


 2073     0D72'   DA 0D7E'                      JC      ZZZ7
 2074     0D75'   FE 60                         CPI     60H
 2075     0D77'   D2 0D7E'                      JNC     ZZZ7
 2076     0D7A'   E1                    ZZZ8:   POP     H
 2077     0D7B'   D1                            POP     D
 2078     0D7C'   C1                            POP     B
 2079     0D7D'   C9                            RET
 2080                                   ;
 2081     0D7E'   FE 7F                 ZZZ7:   CPI     127  ; DEL
 2082     0D80'   CA 0D7A'                      JZ      ZZZ8
 2083     0D83'   FE 0D                         CPI     0DH  ; CR
 2084     0D85'   CA 0D7A'                      JZ      ZZZ8
 2085     0D88'   FE 08                         CPI     8    ; BS
 2086     0D8A'   CA 0D7A'                      JZ      ZZZ8
 2087     0D8D'   FE 61                         CPI     'A'+20H
 2088     0D8F'   DA 0D6D'                      JC      ZZZ9
 2089     0D92'   FE 7B                         CPI     'Z'+20H+1
 2090     0D94'   D2 0D6D'                      JNC     ZZZ9
 2091     0D97'   D6 20                         SUI     20H
 2092     0D99'   C3 0D7A'                      JMP     ZZZ8
 2093                                   ;
 2094     0D9C'   21 27FF               ZZZ6:   LXI     H,27FFH
 2095     0D9F'   36 02                         MVI     M,2
 2096     0DA1'   7E                    ZZZ10:  MOV     A,M
 2097     0DA2'   0F                            RRC
 2098     0DA3'   DA 0DA1'                      JC      ZZZ10
 2099     0DA6'   23                            INX     H
 2100     0DA7'   7E                            MOV     A,M
 2101     0DA8'   2F                            CMA
 2102     0DA9'   E6 7F                         ANI     127
 2103     0DAB'   F5                            PUSH    PSW
 2104     0DAC'   2B                            DCX     H
 2105     0DAD'   36 03                         MVI     M,3
 2106     0DAF'   7E                    ZZZ11:  MOV     A,M
 2107     0DB0'   0F                            RRC
 2108     0DB1'   D2 0DAF'                      JNC     ZZZ11
 2109     0DB4'   36 02                         MVI     M,2
 2110     0DB6'   F1                            POP     PSW
 2111     0DB7'   C9                            RET
 2112                                   ;
 2113     0DB8'   C2 0E69'              ZZZ12:  JNZ     PIPO10
 2114     0DBB'   3E 02                         MVI     A,2
 2115     0DBD'   32 2400                       STA     2400H
 2116     0DC0'   C9                            RET
 2117                                   ;
 2118                                           ORG     0E4AH
 2119                                   ;
 2120                                   ; PIPNUTI
 2121                                   ;
 2122     0E4A'   C5                    PIP:    PUSH    B
 2123     0E4B'   3A 4000'                      LDA     PORT24
 2124     0E4E'   3E 00                         MVI     A,0
 2125     0E50'   32 2400                       STA     2400H
 2126     0E53'   0E 42                         MVI     C,42H
 2127     0E55'   0D                    PIP20:  DCR     C
 2128     0E56'   C2 0E55'                      JNZ     PIP20
'JPR-1  MIKRO BASIC'   MACRO-80 3.44   09-Dec-81       PAGE    1-38


 2129     0E59'   E6 B0                         ANI     0B0H
 2130     0E5B'   32 0000                       STA     0
 2131     0E5E'   0E 50                         MVI     C,50H
 2132     0E60'   0D                    PIP30:  DCR     C
 2133     0E61'   C2 0E60'                      JNZ     PIP30
 2134     0E64'   C1                            POP     B
 2135     0E65'   C9                            RET
 2136                                   ;
 2137                                   ; ZAPIPANI
 2138                                   ;
 2139     0E66'   11 0040               PIPO:   LXI     D,40H
 2140     0E69'   CD 0E4A'              PIPO10: CALL    PIP
 2141     0E6C'   1B                            DCX     D
 2142     0E6D'   7A                            MOV     A,D
 2143     0E6E'   B3                            ORA     E
 2144     0E6F'   C3 0DB8'                      JMP     ZZZ12
 2145     0E72'   C9                            RET
 2146                                   ;
 2147                                   ;***************************************
 2148                                   ;
 2149                                   ;   MIKRO MONITOR JPR-1
 2150                                   ;
 2151                                   ;***************************************
 2152                                   ;
 2153     0E73'   7C                    PRHL:   MOV     A,H
 2154     0E74'   CD 0AA5'                      CALL    WRIT2
 2155     0E77'   7D                            MOV     A,L
 2156     0E78'   C3 0AA5'                      JMP     WRIT2
 2157                                   ;
 2158                                   ;VSTUP HEXA ADRESY
 2159                                   ;
 2160     0E7B'   21 0000               MEXPR:  LXI     H,0
 2161     0E7E'   CD 0D6A'              MEXO:   CALL    CI
 2162     0E81'   4F                            MOV     C,A
 2163     0E82'   CD 4007'                      CALL    CO
 2164     0E85'   CD 0E94'              MEX1:   CALL    NIBBLE
 2165     0E88'   DA 0EA4'                      JC      MEX2
 2166     0E8B'   29                            DAD     H
 2167     0E8C'   29                            DAD     H
 2168     0E8D'   29                            DAD     H
 2169     0E8E'   29                            DAD     H
 2170     0E8F'   B5                            ORA     L
 2171     0E90'   6F                            MOV     L,A
 2172     0E91'   C3 0E7E'                      JMP     MEXO
 2173     0E94'   D6 30                 NIBBLE: SUI     '0'
 2174     0E96'   D8                            RC
 2175     0E97'   FE 17                         CPI     'G'-'0'
 2176     0E99'   3F                            CMC
 2177     0E9A'   D8                            RC
 2178     0E9B'   FE 0A                         CPI     10
 2179     0E9D'   3F                            CMC
 2180     0E9E'   D0                            RNC
 2181     0E9F'   D6 07                         SUI     'A'-'9'-1
 2182     0EA1'   FE 0A                         CPI     10
 2183     0EA3'   C9                            RET
 2184     0EA4'   79                    MEX2:   MOV     A,C
'JPR-1  MIKRO BASIC'   MACRO-80 3.44   09-Dec-81       PAGE    1-39


 2185     0EA5'   FE 0D                         CPI     0DH
 2186     0EA7'   CA 0EB5'                      JZ      ECHU
 2187     0EAA'   FE 20                         CPI     20H
 2188     0EAC'   C8                            RZ
 2189     0EAD'   3E 3F                 EROR:   MVI     A,'?'
 2190     0EAF'   CD 4007'                      CALL    CO
 2191     0EB2'   C3 0F10'                      JMP     MLOOP
 2192     0EB5'   F5                    ECHU:   PUSH    PSW
 2193     0EB6'   3E 0A                         MVI     A,0AH
 2194     0EB8'   CD 4007'                      CALL    CO
 2195     0EBB'   F1                            POP     PSW
 2196     0EBC'   4F                            MOV     C,A
 2197     0EBD'   C9                            RET
 2198                                   ;VYPOCET DELKY INSTRUKCE
 2199                                   ;
 2200     0EBE'   06 00                 LENG:   MVI     B,0
 2201     0EC0'   E5                            PUSH    H
 2202     0EC1'   D1                            POP     D
 2203     0EC2'   7E                            MOV     A,M
 2204     0EC3'   FE C3                         CPI     0C3H
 2205     0EC5'   CA 0F05'                      JZ      B3
 2206     0EC8'   FE CD                         CPI     0CDH
 2207     0ECA'   CA 0F05'                      JZ      B3
 2208     0ECD'   E6 EF                         ANI     0EFH
 2209     0ECF'   FE 22                         CPI     22H
 2210     0ED1'   CA 0F05'                      JZ      B3
 2211     0ED4'   FE 2A                         CPI     2AH
 2212     0ED6'   CA 0F05'                      JZ      B3
 2213     0ED9'   E6 CF                         ANI     0CFH
 2214     0EDB'   FE 01                         CPI     1
 2215     0EDD'   CA 0F05'                      JZ      B3
 2216     0EE0'   E6 C7                         ANI     0C7H
 2217     0EE2'   FE C2                         CPI     0C2H
 2218     0EE4'   CA 0F05'                      JZ      B3
 2219     0EE7'   FE C4                         CPI     0C4H
 2220     0EE9'   CA 0F05'                      JZ      B3
 2221     0EEC'   7E                            MOV     A,M
 2222     0EED'   E6 F7                         ANI     0F7H
 2223     0EEF'   FE D3                         CPI     0D3H
 2224     0EF1'   CA 0F06'                      JZ      B2
 2225     0EF4'   E6 E7                         ANI     0E7H
 2226     0EF6'   E6 C7                         ANI     0C7H
 2227     0EF8'   FE 06                         CPI     6
 2228     0EFA'   CA 0F06'                      JZ      B2
 2229     0EFD'   FE C6                         CPI     0C6H
 2230     0EFF'   CA 0F06'                      JZ      B2
 2231     0F02'   C3 0F07'                      JMP     B1
 2232     0F05'   04                    B3:     INR     B
 2233     0F06'   04                    B2:     INR     B
 2234     0F07'   04                    B1:     INR     B
 2235     0F08'   EB                            XCHG
 2236     0F09'   C9                            RET
 2237                                   ;
 2238                                   ;ZACATEK MONITORU
 2239                                   ;
 2240     0F0A'   CD 0CF4'              MONIT1: CALL    NULDIS
'JPR-1  MIKRO BASIC'   MACRO-80 3.44   09-Dec-81       PAGE    1-40


 2241     0F0D'   31 40B1'              MONIT:  LXI     SP,STACK
 2242     0F10'   CD 0919'              MLOOP:  CALL    CROUT
 2243     0F13'   11 0100'                      LXI     D,TXMON
 2244     0F16'   97                            SUB     A
 2245     0F17'   CD 082B'                      CALL    PRTSTG
 2246     0F1A'   CD 0919'                      CALL    CROUT
 2247     0F1D'   3E 2A                         MVI     A,'*'
 2248     0F1F'   CD 4007'                      CALL    CO
 2249     0F22'   CD 0D6A'                      CALL    CI
 2250     0F25'   CD 4007'                      CALL    CO
 2251     0F28'   FE 44                         CPI     'D'
 2252     0F2A'   CA 0F4C'                      JZ      ENTER
 2253     0F2D'   FE 53                         CPI     'S'
 2254     0F2F'   CA 0F44'                      JZ      SUEX
 2255     0F32'   FE 47                         CPI     'G'
 2256     0F34'   CA 0F48'                      JZ      GOEX
 2257     0F37'   FE 42                         CPI     'B'
 2258     0F39'   CA 0019'                      JZ      START
 2259     0F3C'   FE 52                         CPI     'R'
 2260     0F3E'   CA 004D'                      JZ      RSTART
 2261     0F41'   C3 0EAD'                      JMP     EROR
 2262                                   ;
 2263     0F44'   21 0F10'              SUEX:   LXI     H,MLOOP
 2264     0F47'   E5                            PUSH    H
 2265     0F48'   CD 0E7B'              GOEX:   CALL    MEXPR
 2266     0F4B'   E9                            PCHL
 2267                                   ;
 2268     0F4C'   CD 0E7B'              ENTER:  CALL    MEXPR
 2269                                   ;
 2270     0F4F'   CD 0919'              LOOP:   CALL    CROUT
 2271                                   ;
 2272     0F52'   CD 0E73'              LOOPA:  CALL    PRHL
 2273     0F55'   CD 0EBE'                      CALL    LENG
 2274     0F58'   C5                            PUSH    B
 2275     0F59'   E5                            PUSH    H
 2276     0F5A'   3E 20                 LOOP1:  MVI     A,' '
 2277     0F5C'   CD 4007'                      CALL    CO
 2278     0F5F'   7E                            MOV     A,M
 2279     0F60'   CD 0AA5'                      CALL    WRIT2
 2280     0F63'   23                            INX     H
 2281     0F64'   05                            DCR     B
 2282     0F65'   C2 0F5A'                      JNZ     LOOP1
 2283     0F68'   D1                            POP     D
 2284     0F69'   C1                            POP     B
 2285     0F6A'   3E 04                         MVI     A,4
 2286     0F6C'   90                            SUB     B
 2287     0F6D'   47                            MOV     B,A
 2288     0F6E'   07                            RLC
 2289     0F6F'   E6 0F                         ANI     0FH
 2290     0F71'   80                            ADD     B
 2291     0F72'   47                            MOV     B,A
 2292     0F73'   3E 20                 LPP:    MVI     A,' '
 2293     0F75'   CD 4007'                      CALL    CO
 2294     0F78'   05                            DCR     B
 2295     0F79'   C2 0F73'                      JNZ     LPP
 2296                                   ;
'JPR-1  MIKRO BASIC'   MACRO-80 3.44   09-Dec-81       PAGE    1-41


 2297                                   ;VYPIS ASCII
 2298                                   ;
 2299     0F7C'   3E 3A                         MVI     A,':'
 2300     0F7E'   CD 4007'                      CALL    CO
 2301     0F81'   1A                            LDAX    D
 2302     0F82'   E6 7F                         ANI     7FH
 2303     0F84'   FE 20                         CPI     20H
 2304     0F86'   DA 0F8E'                      JC      CONTM
 2305     0F89'   FE 7F                         CPI     7FH
 2306     0F8B'   C2 0F90'                      JNZ     CONT1
 2307     0F8E'   3E 20                 CONTM:  MVI     A,' '
 2308     0F90'   CD 4007'              CONT1:  CALL    CO
 2309     0F93'   3E 3A                         MVI     A,':'
 2310     0F95'   CD 4007'                      CALL    CO
 2311     0F98'   CD 0D6A'              LOOP2:  CALL    CI
 2312     0F9B'   4F                            MOV     C,A
 2313     0F9C'   CD 4007'                      CALL    CO
 2314     0F9F'   FE 08                         CPI     08
 2315     0FA1'   CA 0FD3'                      JZ      BACKGO
 2316     0FA4'   FE 20                         CPI     ' '
 2317     0FA6'   CA 0FD8'                      JZ      LPPA
 2318     0FA9'   FE 0D                         CPI     0DH
 2319     0FAB'   CA 0F4F'                      JZ      LOOP
 2320     0FAE'   FE 2E                         CPI     '.'
 2321     0FB0'   CA 0F10'                      JZ      MLOOP
 2322     0FB3'   FE 22                         CPI     '"'
 2323     0FB5'   CA 0FDD'                      JZ      TEXT
 2324     0FB8'   E5                            PUSH    H
 2325     0FB9'   21 0000                       LXI     H,0
 2326     0FBC'   CD 0E85'                      CALL    MEX1
 2327     0FBF'   47                            MOV     B,A
 2328     0FC0'   7D                            MOV     A,L
 2329     0FC1'   12                            STAX    D
 2330     0FC2'   13                            INX     D
 2331     0FC3'   78                            MOV     A,B
 2332     0FC4'   E1                            POP     H
 2333     0FC5'   FE 20                         CPI     ' '
 2334     0FC7'   CA 0F98'                      JZ      LOOP2
 2335     0FCA'   FE 0D                         CPI     0DH
 2336     0FCC'   C2 0EAD'                      JNZ     EROR
 2337     0FCF'   EB                            XCHG
 2338     0FD0'   C3 0F52'                      JMP     LOOPA
 2339                                   ;
 2340                                   ;
 2341     0FD3'   1B                    BACKGO: DCX     D
 2342     0FD4'   EB                            XCHG
 2343     0FD5'   C3 0F4F'                      JMP     LOOP
 2344                                   ;
 2345     0FD8'   EB                    LPPA:   XCHG
 2346     0FD9'   23                            INX     H
 2347     0FDA'   C3 0F4F'                      JMP     LOOP
 2348                                   ;
 2349     0FDD'   CD 0D6A'              TEXT:   CALL    CI
 2350     0FE0'   CD 4007'                      CALL    CO
 2351     0FE3'   FE 22                         CPI     '"'
 2352     0FE5'   CA 0FF3'                      JZ      CONTE
'JPR-1  MIKRO BASIC'   MACRO-80 3.44   09-Dec-81       PAGE    1-42


 2353     0FE8'   4F                            MOV     C,A
 2354     0FE9'   12                            STAX    D
 2355     0FEA'   1A                            LDAX    D
 2356     0FEB'   B9                            CMP     C
 2357     0FEC'   C2 0EAD'                      JNZ     EROR
 2358     0FEF'   13                            INX     D
 2359     0FF0'   C3 0FDD'                      JMP     TEXT
 2360                                   ;
 2361     0FF3'   CD 0D6A'              CONTE:  CALL    CI
 2362     0FF6'   FE 20                         CPI     ' '
 2363     0FF8'   CA 0F98'                      JZ      LOOP2
 2364     0FFB'   EB                            XCHG
 2365     0FFC'   C3 0F4F'                      JMP     LOOP
 2366                                   ;
 2367     0FFF'   31                            DB      31H       ;VERZE 03-01
 2368                                   ;
 2369                                   ;*********************************************
 2370                                   ;
 2371                                   ;       DEFINICE RAM
 2372                                   ;
 2373                                   ;*********************************************
 2374                                   ;
 2375                                           ORG     4000H
 2376                                   ;
 2377     4000'                         PORT24: DS      1
 2378     4001'                         LEGT:   DS      2
 2379     4003'                         IOBUFA: DS      1
 2380     4004'                         IOBUFB: DS      1
 2381     4005'                         IOBUFC: DS      1
 2382     4006'                         LISTC:  DS      1
 2383     4007'                         CO:     DS      3
 2384     400A'                         MASKIN: DS      1
 2385     400B'                         CURRNT: DS      2
 2386     400D'                         STKGOS: DS      2
 2387     400F'                         VARNXT: DS      2
 2388     4011'                         STKINP: DS      2
 2389     4013'                         LOPVAR: DS      2
 2390     4015'                         LOPINC: DS      2
 2391     4017'                         LOPLMT: DS      2
 2392     4019'                         LOPLN:  DS      2
 2393     401B'                         LOPPT:  DS      2
 2394     401D'                         RANPNT: DS      2
 2395     401F'                         ARMM:   DS      2
 2396     4021'                         RADEK:  DS      1
 2397     4022'                         POZICE: DS      1
 2398     4023'                         MODE:   DS      1
 2399     4024'                         TXTUNF: DS      2
 2400     4026'                                 DS      40
 2401     404E'                         STKLMT: DS      2
 2402     4050'                                 DS      97
 2403     40B1'                         STACK:  DS      2
 2404     40B3'                         VARBGN: DS      54
 2405     40E9'                         TXTEND: DS      2
 2406     40EB'                         BUFFER: DS      2
 2407     40ED'                         BUFEND: DS      2
 2408     40EF'                         TXTBGN: DS      2
'JPR-1  MIKRO BASIC'   MACRO-80 3.44   09-Dec-81       PAGE    1-43


 2409     40F1'                                 DS      1722
 2410     47AB'                         TXTE:   DS      2
 2411     47AD'                         BUFA:   DS      64
 2412     47ED'                         BUFE:   DS      1
 2413     47EE'                         BRST:   DS      18
 2414                                   ;
 2415                                           END
'JPR-1  MIKRO BASIC'   MACRO-80 3.44   09-Dec-81       PAGE    S


Macros:

Symbols:
0A02'   A1              06F1'   ABS             02F0'   AHOW
0517'   AREM            401F'   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           47EE'   BRST
47AD'   BUFA            47ED'   BUFE            40ED'   BUFEND
40EB'   BUFFER          0A92'   BYTE            0727'   CHGSGN
0724'   CHKSGN          0D6A'   CI              0742'   CK1
073C'   CKHLDE          051B'   CLEAR           0923'   CLS
4007'   CO              0268'   COMP            0B06'   CONT
0F90'   CONT1           0FF3'   CONTE           0F8E'   CONTM
0C32'   COP             0D12'   CRDS            0906'   CRLF
0919'   CROUT           400B'   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           4003'   IOBUFA          4004'   IOBUFB
4005'   IOBUFC          0546'   IP1             0556'   IP2
0568'   IP3             0594'   IP4             0CDA'   IPOZ
0CE8'   IRAD            0AAE'   IST             0C15'   LAB1
0BF4'   LABEL           4001'   LEGT            0EBE'   LENG
000B'   LENGHT          05A6'   LET             0D19'   LFDS
0913'   LINEF           0359'   LIST            4006'   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           4015'   LOPINC          4017'   LOPLMT
4019'   LOPLN           401B'   LOPPT           4013'   LOPVAR
0F73'   LPP             0FD8'   LPPA            03A4'   LPRINT
0369'   LS0             036C'   LS1             037E'   LS3
0387'   LS4             037B'   LS5             039E'   LS6
'JPR-1  MIKRO BASIC'   MACRO-80 3.44   09-Dec-81       PAGE    S-1


05B1'   LT1             096C'   MASK            400A'   MASKIN
08BA'   MD1             0E85'   MEX1            0EA4'   MEX2
0E7E'   MEXO            0E7B'   MEXPR           0F10'   MLOOP
4023'   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          4000'   PORT24          4022'   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             4021'   RADEK           0976'   RAM
401D'   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          06FA'   SIZE
0307'   SORRY           0067'   ST2             0070'   ST3
00A7'   ST4             0075'   ST5             40B1'   STACK
0019'   START           004A'   START1          400D'   STKGOS
4011'   STKINP          404E'   STKLMT          0B0E'   STOP
071D'   SUBDE           0F44'   SUEX            09FF'   TAB
00DC'   TAB1            011E'   TAB2            01EB'   TAB4
0239'   TAB5            0241'   TAB6            024B'   TAB8
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           40EF'   TXTBGN
47AB'   TXTE            40E9'   TXTEND          4024'   TXTUNF
40B3'   VARBGN          400F'   VARNXT          09D7'   WAIT
09DB'   WAIT1           09F4'   WAIT2           09F6'   WAIT3
0301'   WHAT            0A9C'   WORD            0AA5'   WRIT2
05BE'   XP11            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
'JPR-1  MIKRO BASIC'   MACRO-80 3.44   09-Dec-81       PAGE    S-2


06A2'   XP40            06AD'   XP41            0C3F'   ZZZ1
0DA1'   ZZZ10           0DAF'   ZZZ11           0DB8'   ZZZ12
0CB2'   ZZZ13           0C49'   ZZZ2            0C58'   ZZZ3
0A41'   ZZZ4            0D66'   ZZZ5            0D9C'   ZZZ6
0D7E'   ZZZ7            0D7A'   ZZZ8            0D6D'   ZZZ9



No Fatal error(s)



A1       1503#   1509
ABS       228     971#
AHOW      394#    438     541     880     886     904
AREM      250     685#
ARMM      678     685    2395#
ASORRY    316    1107#   1421    1424    1430    1553
AWHAT     633    1077#
B1       2231    2234#
B2       2224    2228    2230    2233#
B3       2205    2207    2210    2212    2215    2218    2220    2232#
BACK     1911    1944#
BACK10   1947    1950#
BACKGO   2315    2341#
BCALL     193    1445#
BEEP      208    1487#
BEEP1    1489#
BEND       23#    187
BIN       243    1513#
BOUT      198    1455#
BREAK    1683    1685#
BRST       18      22    2413#
BUFA       40    2411#
BUFE       42    2412#
BUFEND     43    1127    1431    2407#
BUFFER     41    1133    1395    1438    2406#
BYTE      219    1598#
CHGSGN    860     916    1014#   1315
CHKSGN    869     871     896     898     973    1011#   1214
CI       1115    1644    1838    2068#   2161    2249    2311    2349    2361
CK1      1035    1037#
CKHLDE    662     825    1033#
CLEAR     155     691#
CLS       152    1354#
CO       1342    1348    1350    1508    1639    1714    1720    1869    1873    2163    2190    2194
         2248    2250    2277    2293    2300    2308    2310    2313    2350    2383#
COMP      106     281#    315     634     953     955    1037    1159    1271    1420    1552    1729
         1784
CONT      428     760    1680#
CONT1    2306    2308#
CONTE     952    2352    2361#
CONTM    2304    2307#
COP      1843#   1868
CRDS     1909    2000#
CRLF       49     494     500     526    1139    1338#   1687    1799
CROUT    1345    1347#   2242    2246    2270
CURRNT     58     422     542     563     587     666     714     741     744     759    1087    1685
         2385#
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     2186    2192#
ENDCHK     23     410     416     436     554    1073#   1684
ENTER    2252    2268#
EROR     2189#   2261    2336    2357
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     2256    2265#
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    2379#
IOBUFB   1466    1528    2380#
IOBUFC   1468    1530    2381#
IP1       721#    743     766
IP2       723     727#
IP3       726     739#
IP4       725     762#
IPOZ     1921    1922    1961#
IRAD     1971#   2006
IST      1614    1616#
LAB1     1823#   1830
LABEL    1776    1809#
LEGT       19    1569    2378#
LENG     2200#   2273
LENGHT     19#    252
LET       150     774#    778
LFDS     1913    2006#
LINEF    1341    1345#
LIST      124     455#
LISTC     457     463     468     481    2382#
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     2270#   2319    2343    2347    2365
LOOP1    2276#   2282
LOOP2    2311#   2334    2363

LOOPA    2272#   2338
LOPINC    586     643    1302    1329    2390#
LOPLMT    578     657    1304    1327    2391#
LOPLN     588     665    1306    1325    2392#
LOPPT     590     619     667    1308    1323    2393#
LOPVAR     60     547     573     592     630     653    1297    1319    1331    2389#
LPP      2292#   2295
LPPA     2317    2345#
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    2384#
MD1      1283    1287#
MEX1     2164#   2326
MEX2     2165    2184#
MEXO     2161#   2172
MEXPR    2160#   2265    2268
MLOOP    2191    2242#   2263    2321
MODE       32      53     427     511    1079    1892    1929    2398#
MONIT     137    2241#
MONIT1   2240#
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    2164    2173#
NULD10   1985    1989#   2026
NULD20    695    1990#   1995
NULD30   1953    1983#
NULDIS     30    1354    1979#   2240
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      2122#   2140
PIP20    2127#   2128
PIP30    2132#   2133
PIPO     2139#
PIPO10   1490    2113    2140#
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    2123    2377#
POZICE   1944    1948    1956    1961    1963    1967    2001    2045    2056    2397#
PP1      1300    1309#
PR0       503#    525
PR3       512     518     521#    533
PR6       501#   1204
PR8       520     529#
PRHL     1606    2153#   2272
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    2245
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    2396#
RAM       139    1416#

RANPNT     37     951     959    2394#
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    2260
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#
SIZE      231     314     979#
SORRY     405#   1107
ST2        57      59#
ST3        62#    114
ST4        85      94#
ST5        64#
STACK      28      50    2241    2403#
START      14      28#   2258
START1     45#   1441
STKGOS     61     544     549     555     561    2386#
STKINP    711     747    2388#
STKLMT   1314    2401#
STOP      190    1684#
SUBDE     318     983     999    1003#   1567
SUEX     2254    2263#
TAB       216    1502#
TAB1      122#   1359
TAB2      146#    429
TAB4      225#    918
TAB5      255#    574
TAB6      259#    579
TAB8      264#    785
TC2       346     353#
TEXT     2323    2349#   2359
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#   2243
TXTBGN     38     411     417    1155    1728    1783    2408#
TXTE       44    1418    2410#
TXTEND     45     317     982    1401    2405#
TXTUNF     15      39      89      93      95     108     412     979    1157    1550    1739    1777
         2399#
VARBGN    328     691    2404#
VARNXT    627     638    2387#
WAIT      205    1476#
WAIT1    1478#   1481
WAIT2    1479    1493#   1498    1745
WAIT3    1494#   1495
WHAT      403#   1077
WORD      222    1605#
WRIT2    1600    1609#   2154    2156    2279
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
ZZZ10    2096#   2098
ZZZ11    2106#   2108
ZZZ12    2113#   2144
ZZZ13    1931    1936#
ZZZ2     1857#   1859

ZZZ3     1869#   1875
ZZZ4     1542#   1573
ZZZ5     1975    2057#
ZZZ6     2071    2094#
ZZZ7     2073    2075    2081#
ZZZ8     2076#   2082    2084    2086    2092
ZZZ9     2071#   2088    2090


Ú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 V3.1



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