| 0000 ;************************************************************* | |
| 0000 ; | |
| 0000 ; TINY BASIC FOR INTEL 8080 | |
| 0000 ; VERSION 2.0 | |
| 0000 ; BY LI-CHEN WANG | |
| 0000 ; MODIFIED AND TRANSLATED | |
| 0000 ; TO INTEL MNEMONICS | |
| 0000 ; BY ROGER RAUSKOLB | |
| 0000 ; 10 OCTOBER,1976 | |
| 0000 ; @COPYLEFT |
| 0 CLEAR :RANDOMIZE USR VAL "63850":POKE VAL "23607",VAL "249":DIM W$(VAL "135-55",INT PI ):GO SUB VAL "5E3":POKE VAL "63035",VAL "235":POKE VAL "23658",VAL "8":LET SMRT=BIN :POKE VAL "23609",VAL "10":POKE VAL "63171",VAL "7":POKE VAL "63172",VAL "211":BRIGHT SGN PI :POKE VAL "63173",VAL "254":INK VAL "6":BORDER BIN :OVER BIN :PAPER BIN :CLS | |
| 1 LET BUM=VAL "0":LET RANA=VAL "-1":LET KOTW=VAL "0":LET PLAMEN=NOT PI :LET PAC=NOT PI :LET OKNO=NOT PI :LET Q$=" " | |
| 2 GO SUB VAL "9950" | |
| 3 LET Z$="@":LET R$="@" | |
| 6 BORDER 2:BORDER 6:BORDER 0 | |
| 7 IF INKEY$ <> "" THEN INK 6:CLS :LET A=100:DIM C$(4):GO TO 9 | |
| 8 GO TO 6 | |
| 9 DRAW 255,0:DRAW 0,175:DRAW -255,0:DRAW 0,-175:PRINT AT 0,12;"FUKSOFT":PRINT ';OVER 1;" VITAJ TIM COLEMAN! PO TVOJOM USPECHU V AFERE 'PODRAZ III' MAM PRE TEBA TVRDY ORIESOK.POMSTYCHTIVY JACK RAGGER A JONATHAN FOX SA DOS- TALI DO BYTU F.FUKU A UKRYLI TAM CASOVANU NALOZ. DUFAM, ZE SA ZACHOVAS AKO |
| 1 REM :H\ THEN ? THEN ? THEN ? THEN BORDER OPEN # RETURN <> THEN PI OPEN # RETURN <> RESTORE MERGE OR !FORMAT :READ \GOR STEP FORMAT \CDRAW FDRAW # STEP OVER \CDRAW FDRAW #STR$ VERIFY STR$ MOVE LLIST <> .!CONTINUE FOR RESTORE X @OR THEN ~ THEN IN #NEXT STR$ GO SUB LLIST ### STEP L]STR$ BRIGHT <> OR FOR H:H\ THEN ? THEN ? THEN ? THEN BORDER OPEN # 6SAVE THEN PI OPEN # 6ASAVE STR$ OPEN # STR$ <> .................................... | |
| 2 REM pUSR x<LIST LPRINT <OSAVE LPRINT `|8LPRINT PAUSE ><CEp STR$ CgCOPY COPY COPY COPY LIST SAVE DRAW RETURN ?7""!COPY COPY COPY w##ACS ACS COPY CAT CIRCLE CIRCLE DRAW RETURN 3.'COPY 3RUN jMERGE COPY 0AT TSAVE >#COPY 5dBIN COPY USR `8SAVE ~COPY USR @ RETURN USR `COPY ~`USR ~COPY COPY COPY COPY USR LIST !?COPY COPY COPY COPY COPY COPY NOT COPY COPY LPRINT DRAW COPY COPY ........ | |
| 3 REM INTR | |
| 4 BORDER 1:PAPER 0:INK 7:GO SUB cls:PRINT AT 4,2;"DIKTATOR";AT 8,2;"Autor:" | |
| 5 PRINT AT 10,2;"Don PRIESTLEY" | |
| 7 PRINT AT 14,2;INK 9;"Copyright D kTRONICS |
| {} |
| ; Monitor vectors: | |
| MRESET EQU $E000 | |
| MSERIN EQU $E003 | |
| MSEROUT EQU $E006 | |
| MPRINT2 EQU $E009 | |
| MPRINTX EQU $E00C | |
| MPRIMM EQU $E00F | |
| .ORG $100 | |
| .ENT $ |
| .pragma segment | |
| org 0100h | |
| jp begin | |
| .dseg | |
| org 8000h | |
| data: db 10 | |
| .eseg |
| cpu C6502 | |
| memory.ram.from 0x0000 | |
| memory.ram.to 0x0fff | |
| memory.rom.from 0xf000 | |
| memory.rom.to 0xffff | |
| serial 6850 | |
| serial.data 0xa001 | |
| serial.control 0xa000 |
| .ORG 0 | |
| .ENGINE mac | |
| SERIALCTRL = 00h | |
| SERIALDATA = 01h | |
| DI | |
| IM 1 | |
| LD sp,ramtop | |
| JR cold |
| cpu Z80 | |
| memory.ram.from 0x1000 | |
| memory.ram.to 0x13ff | |
| memory.rom.from 0x0000 | |
| memory.rom.to 0x0fff | |
| ;serial simple | |
| ;serial.in 1 | |
| ;serial.out 1 |