 
 ##################################
 #                                #
 #                                #
 #                                #
 #                                #
 #                                #
 #                                #
 #                                #
 #                                #
 #                                #
 #                                #
 #                                #
 #                                #
 #                                #
 #                                #
 #                                #
 #                                #
 #                                #
 #                                #
 #                                #
 #                                #
 #                  #
 #                                #
 #         BASIC-      #
 #                                #
 #                   #
 #                                #
 #          "ZX-SPECTRUM"         #
 #                                #
 #                                #
 #                                #
 #                                #
 #                                #
 #                                #
 #                                #
 #                                #
 #                                #
 #                                #
 #                                #
 #                                #
 #                                #
 #                                #
 #                                #
 #                                #
 #                                #
 #                                #
 #                                #
 #                                #
 #                                #
 #                                #
 #                                #
 #                                #
 #                                #
 #                                #
 #                                #
 #                                #
 #                                #
 #                                #
 #                                #
 #                                #
 #                                #
 #                                #
 #                                #
 #                                #
 #            - 1990 -            #
 #                                #
 #                                #
 #                                #
 #                                #
 ##################################

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 
                               
  .  .
--------------------------------------------------------------

                      (    )

 00000  0000 .......... START
 00011  0008 .......... ERROR
 00016  0010 .......... Print a character
 00024  0018 .......... Collect character
 00032  0020 .......... Collect next character
 00040  0028 .......... Calculator
 00048  0030 .......... Make BC spacer
 00072  0038 .......... Maskable interrupt
 00083  0053 .......... ERROR 2
 00102  0066 .......... Non mask interrupt
 00116  0074 .......... CH-ADD+1
 00125  007D .......... Skip-over
 00149  0095 .......... Token tables
 00517  0205 .......... Key tables


                    KEYBOARD ROUTINES

                (   )

 00654  028E .......... Keyboard skanning
 00703  02BF .......... KEYBOARD
 00784  0310 .......... Repeating key
 00799  031F .......... K-TEST
 00819  0333 .......... Keyboard decoding


                    LOUDSPEAKER ROUTINES

                (  )

 00949  03B5 .......... BEEPER
 01016  03F8 .......... BEEP
 01134  046E .......... Semi-tone table


                    CASSETE HANDLING ROUTINE

                        (  )

 01205  04B5 .......... SAVE-BYTES
 01343  053F .......... SAVE LOAD RETURN
 01366  0556 .......... LOAD-BYTES
 01507  05E3 .......... LOAD-EDGE-2
 01541  0605 .......... SAVE-ETC
 01995  07CB .......... VERIFY Control
 02050  0802 .......... LOAD ( )
 02056  0808 .......... LOAD Control
 02230  08B6 .......... MERGE Control
 02416  0970 .......... SAVE Control
 02465  09A1 .......... CASSETE MESSAGES

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 
                               
  .  .
--------------------------------------------------------------

                    HANDLING ROUTINES

                    (    )

 02548  09F4 .......... PRINT-OUT
 02577  0A11 .......... Control-character table
 02595  0A23 .......... CYRSOR Left
 02621  0A3D .......... Carriage return
 02655  0A5F .......... PRINT COMMAND
 02665  0A69 .......... PRINT a guestion mark
 02669  0A6D .......... Control character with operand
 02777  0AD9 .......... Position table
 02780  0ADC .......... Position store
 02819  0B03 .......... Position fetch
 02852  0B24 .......... PRINT any character
 02943  0B7F .......... PRINT all character
 03035  0BDB .......... Set attribute byte
 03082  0C0A .......... Messadge printing
 03131  0C3B .......... Position save
 03137  0C41 .......... TABLE search
 03157  0C55 .......... TEST for scroll
 03320  0CF8 .......... "SCROLL?" messadge
 03405  0D4D .......... Temporary color items
 03435  0D6B .......... CLS COMMAND
 03503  ODAF .......... Clearning the whole disrlay area
 03545  0DD9 .......... CL-SET
 03582  0DFE .......... SCROLLING
 03652  0E44 .......... Clear lines
 03720  0E88 .......... CL-ATTR
 03739  0E9B .......... CL-ADDR
 03756  0EAC .......... COPY COMMAND
 03789  OECD .......... COPY-BUFF
 03828  0EF4 .......... COPY LINE
 03884  0F2C .......... EDITOR
 03969  0F81 .......... ADD-CHAR
 04000  0FA0 .......... Editing keys table
 04009  0FA9 .......... EDIT KEY
 04083  0FF3 .......... CURSOR DOWN editing
 04103  1007 .......... CURSOR LEFT editing
 04108  100C .......... CURSOR RIGHT editing
 04117  1015 .......... DELETE editing
 04126  101E .......... ED IGNORE
 04132  1024 .......... ENTER editing
 04145  1031 .......... ED-EDGE
 04185  1059 .......... CURSOR UP editing
 04214  1076 .......... ED SYMBOL
 04223  107F .......... ED ERRORS
 04247  1097 .......... CLEAR-SP
 04264  10A8 .......... Keyboard INPUT
 04381  111D .......... Lower screen copying
 04496  1190 .......... SET-HL
 04519  11A7 .......... REMOVE-FP

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 
                               
  .  .
--------------------------------------------------------------

                        EXECUTIVE ROUTINES

 04535  11B7 .......... NEW Command
 04555  11CB .......... Main entry ( Initiolisation )
 04570  11DA .......... RAM-CHECK
 04770  12A2 .......... Main execution loop
 05009  1391 .......... REPORT messages
 05469  155D .......... Main ADD
 05551  15AF .......... Initial cannel information
 05574  15C6 .......... Initial stream data
 05588  15D4 .......... WAIT-KEY
 05606  15E6 .......... INPUI-AD
 05615  15EF .......... Main printing
 05633  1601 .......... CHAN-OPEN
 05653  1615 .......... CHAN-FLAG
 05677  162D .......... Channel code look-up table
 05684  1634 .......... Channel K flag
 05698  1642 .......... Channel S flag
 05709  164D .......... Channel P flag
 05714  1652 .......... ONE-SPACE
 05717  1655 .......... MAKE ROOM
 05732  1664 .......... POINTERS
 05775  168F .......... Coll a line number
 05790  169E .......... RESERVE
 05808  16B0 .......... SET-MIN
 05844  16D4 .......... reclaim the edit line
 05851  16DB .......... INDEXER
 05861  16E5 .......... CLOSE # Command
 05910  1716 .......... CLOSE STREAM LOOK-UP TABLE (*)
 05918  171E .......... STREAM DATA
 05942  1736 .......... OPEN # COMMAND
 06010  177A .......... OPEN (*)
 06035  1793 .......... CAT, ERASE, FORMAT, MOVE COMMAND
 06037  1795 .......... LIST & LLIST
 06101  17D5 .......... AUTO-LIST
 06133  17F5 .......... LLIST
 06137  17F9 .......... LIST
 06229  1855 .......... PRINT a whole BASIC line
 06326  18B6 .......... NUMBER
 06337  18C1 .......... PRINT a flashing character
 06369  18E1 .......... PRINT CURSOR
 06415  190F .......... LN-FETCH
 06437  1925 .......... Printing characters in BASIC line
 06510  196E .......... LINE-ADDR
 06528  1980 .......... Compare line numbers
 06536  1988 .......... Find each statement
 06584  19B8 .......... NEXT-ONE
 06621  19DD .......... DIFFERENCE
 06629  19E5 .......... RECLAIMING
 06651  19FB .......... E-LINE-NO
 06683  1A1B .......... Report & line numbers printing

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 
                               
  .  .
--------------------------------------------------------------

                    BASIC LINE COMMAND

                     INTERPRITATION

 06731  1A4B .......... SYNTAX table
 06935  1B17 .......... Main parser ( Basic Interpritation )
 06952  1B28 .......... Statement loop
 06994  1B52 .......... SCAN-LOOP
 07023  1B6F .......... SEPARATOR
 07030  1B76 .......... STMT-RET
 07050  1B8A .......... LINE-RUN
 07070  1B9E .......... LINE-NEW
 07090  1BB2 .......... REM Command
 07091  1BB3 .......... LINE-END
 07103  1BBF .......... LINE-USE
 07121  1BD1 .......... NEXT-LINE
 07150  1BEE .......... CHECK-END
 07156  1BF4 .......... STMT-NEXT
 07169  1C01 .......... COMMAND Classtable
 07181  1COD .......... Command Classes (**) 00, 03, 05
 07190  1C16 .......... JUMP-C-R
 07199  1C1F .......... ** 01, 02, 04
 07202  1C22 .......... VERIABLE in Assignment
 07254  1C56 .......... FETCH a VALUE
 07289  1C79 .......... Expect numeric/string expressions
 07318  1C96 .......... Set permanent colors ( class 07 )
 07358  1CBE .......... ** 09
 07390  1CDE .......... ** 0B
 07405  1CED .......... FETCH a NUMBER
 07406  1CEE .......... STOP Command
 07408  1CF0 .......... IF Command
 07427  1D03 .......... FOR Command
 07558  1D86 .......... LOOK-PROG
 07595  1DAB .......... NEXT Command
 07642  1DDA .......... NEXT-LOOP
 07660  1DEC .......... READ Command
 07719  1E27 .......... DATA Command
 07737  1E39 .......... PASS-BY
 07746  1E42 .......... RESTORE Command
 07759  1E4F .......... RANDOMIZE Command
 07775  1E5F .......... CONTINUE Command
 07783  1E67 .......... GOTO Command
 07802  1E7A .......... OUT Command
 07808  1E80 .......... POKE Command
 07813  1E85 .......... TWO-PARAMETERS
 07828  1E94 .......... Find integer
 07841  1EA1 .......... RUN Command
 07852  1EAC .......... CLEAR Command
 07917  1EED .......... GO SUB Command
 07941  1F05 .......... TEST-ROM
 07962  1F1A .......... FREE MEMORY
 07971  1F23 .......... RETURN Command
 07994  1F3A .......... PAUSE Command
 08020  1F54 .......... BREAK-KEY
 08032  1F60 .......... DEF FN Command
 08131  1FC3 .......... UNSTACK-2

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 
                               
  .  .
--------------------------------------------------------------

 08137  1FC9 .......... LPRINT Command
 08143  1FCF .......... PRINT Command
 08181  1FF5 .......... PRINT a carriage RETURN
 08188  1FFC .......... PRINT ITEMS
 08261  2045 .......... END OF PRINTING
 08270  204E .......... PRINT POSITION
 08304  2070 .......... ALTER STREAM
 08329  2089 .......... INPUT Command
 08585  2189 .......... IN-ASSING
 08662  21D6 .......... IN-CHAN-K
 08673  21E1 .......... COLOUR Item Routines
 08812  226C .......... CO-CHANGE
 08852  2294 .......... BORDER Command
 08874  22AA .......... PIXEL Address
 08907  22CB .......... POINT
 08924  22DC .......... PLOT Command
 08967  2307 .......... STK-TO-BC
 08980  2314 .......... STK-TO-A
 08992  2320 .......... CIRCLE Command
 09090  2382 .......... DRAW Command
 09341  247D .......... Initial Parametres
 09399  24B7 .......... Line Drawing


                EXPRESSION EVALUTION

 09467  24FB .......... SCANING
 09520  2530 .......... SYNTAX-Z
 09525  2535 .......... Scaning SCREEN
 09600  2580 .......... Scaning ATTR
 09622  2596 .......... Scaning function table
 09647  25AF .......... Scaning functions routines
 09929  26C9 .......... Scaning variable routines
 10036  2734 .......... Scaning main loop
 10133  2795 .......... Table of operators
 10160  27B0 .......... Table priorities
 10173  27BD .......... Scaning function ( FN )
 10411  28AB .......... FN-SKPOVR
 10418  28B2 .......... LOOK-VARS
 10646  2996 .......... STK-VAR
 10834  2A52 .......... SLICING
 10934  2AB6 .......... STK-STORE
 10956  2ACC .......... INT-EXP
 10990  2AEE .......... DE. ( DE+1 )
 10996  1AF4 .......... GET. HL*DE
 11007  2AFF .......... LET Command
 11249  2BF1 .......... STK-FETCH
 11266  2C02 .......... DIM Command
 11400  2C88 .......... ALPHA NUM
 11405  2C8D .......... ALPHA
 11419  2C9B .......... DECIMAL to floating-point
 11547  2D1B .......... NUMERIC
 11554  2D22 .......... STK-DIGIT
 11560  2D28 .......... STACK-A
 11563  2D2B .......... STACK-BC
 11579  2D3B .......... INTEGER to floating-point

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 
                               
  .  .
--------------------------------------------------------------

                    ARITHMETIC ROUTINES

 11599  2D4F .......... E-Format to floating-point (***)
 11647  2D7F .......... INT-FETCH
 11662  2D8E .......... INT-STORE
 11682  2DA2 .......... Floating-point to BC
 11713  2DC1 .......... LOG ( 2A )
 11733  2DD5 .......... *** to A
 11747  2DE3 .......... Print a floating-point numbers
 12171  2F8B .......... CA=10*A+C
 12184  2F98 .......... Prepare to ADD
 12218  2FBA .......... Fetch to numbers
 12253  2FDD .......... SHIFT AND END
 12292  3004 .......... ADD-BACK
 12303  300F .......... SUBTRACTIONS ( 03 )
 12308  3014 .......... ADDITION ( 0F )
 12457  30A9 .......... HL=HL*DE
 12480  30C0 .......... Prepare to multiply or divide
 12490  30CA .......... MULTIPLICATION ( 04 )
 12519  31AF .......... DIVIDE ( 05 )
 12580  3124 .......... Integer function to words zerro ( 3A )
 12947  3293 .......... RESTACK TWO
 12951  3297 .......... RE-STACK ( 3D )


                FLOAT-POINT CALCULATION

 12997  32C5 .......... Table of Constants
 13015  32D7 .......... Table of Adresses
 13147  335B .......... CALCULATE
 13217  33A1 .......... DELETE ( 02 )
 13218  33A2 .......... Single operation ( 3B )
 13225  33A9 .......... TEST 5-SPACE
 13236  33B4 .......... STACK NUMBER
 13248  33C0 .......... Move a floating-point number ( 31 )
 13254  33C6 .......... STACK literals ( 34 )
 13303  33F7 .......... Skin Constants
 13318  3406 .......... Memory Location
 13327  340F .......... Get from memory area ( E0 etc. )
 13339  341B .......... Stack a Constant ( A0 etc. )
 13357  342D .......... Store in memory area ( C0 etc. )
 13379  343C .......... EXCHANGE ( 01 )
 13385  3449 .......... Series Generator ( 86 etc. )
 13418  346A .......... Unary Minus ( 1B )
 13458  3492 .......... SIGNUM ( 29 )
 13477  34A5 .......... IN ( 2C )
 13484  34AC .......... PEEK ( 2B )
 13491  34B3 .......... USR Number ( 2D )
 13500  34BC .......... USR String ( 19 )
 13545  34E9 .......... TEST-ZERO=0
 13561  34F9 .......... Greater then zero ( 37 ) > 0
 13569  3501 .......... NOT ( 30 ) < 0
 13574  3506 .......... Lese then ZERO ( 36 )
 13579  350B .......... Zero or one
 13595  351B .......... OR ( 07 )

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 
                               
  .  .
--------------------------------------------------------------

 13604  3524 .......... Number AND Number ( 08 )
 13613  352D .......... String AND Number ( 10 )
 13627  353B .......... COMPARISON ( 09-0E, 11-16 )
 13724  359C .......... String Concatenation ( 17 )
 13759  35BF .......... STK-PNTRS
 13769  35C9 .......... CHR^ ( 2F )
 13790  35DE .......... VAL and VAL^ ( 1D, 1B )
 13855  361F .......... STR^ ( 2E )
 13893  3645 .......... READ-IN ( 1A )
 13929  3669 .......... CODE ( 1C )
 13942  3676 .......... LEN ( 1E )
 13946  367A .......... Decrease the counter ( 35 ) 6
 13958  3686 .......... JUMP ( 33 )
 13967  368F .......... JUMP on True ( 00 )
 13979  369B .......... END-CALC ( 38 )
 13984  36A0 .......... MODULIS ( 32 )
 13999  36AF .......... INT ( 27 )
 14020  36C4 .......... EXPONENTIAL ( 26 )
 14099  3713 .......... NATURAL LOG ( 25 )
 14211  3783 .......... Reduce Arg. ( 39 )
 14250  37AA .......... COS ( 20 )
 14261  37B5 .......... SIN ( 2F )
 14298  37DA .......... TAN ( 21 )
 14306  37E2 .......... ARCTAN ( 24 )
 14387  3833 .......... ARCSIN ( 22 )
 14403  3843 .......... ARCCOS ( 23 )
 14410  384A .......... .  ( 28 )
 14417  3851 .......... EXP ( 06 )
because it is not empty.  Delete the file: %64t1  Can't find file(s): %p1  The following file is marked read-only. %p1 Do you still wish to delete it?  Can't delete the file %p1  Attempt to write on                   70 PRINT '"JR Z,e"'
     "JR NC,e"        -         53 DATA '30','06','00'
                                70 PRINT '"JR NC,e"'
     "JR C,e"         -         53 DATA '38','06','00'
                                70 PRINT '"JR C,e"'

               
  ,        , 
,           NEXT  
  7D0F.

            
 :

                           - 124 -
                   

    7D07    C3 0F 7D    JP NEXT          NEXT

       16   .

     "JP addr"        -         53 DATA 'C3','0F','7D'
                                70 PRINT '"JP addr"'
     "JP NZ,addr"     -         53 DATA 'C2','0F','7D'
                                70 PRINT '"JP NZ,addr"'
     "JP Z,addr"      -         53 DA