BigEd
/ rheolism-beeb
Created
September 30, 2015 09:23
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 0d=d:IFd VDUd:p=POINT(64*POS,1E3-VPOS*32):RETURN ELSEMODE2:GCOL0,-9:CLG | |
| 1d=9:REPEATVDU30:REPEATGOSUBFALSE:IFPOS=15VDU28,5,VPOS,14;11,26:IF0ELSEIFp=0PRINT:UNTIL0ELSEUNTILVPOS=25 | |
| 2b=ABSRND MOD7:k=0:VDU31,9,3 | |
| 3REPEATg=9-INKEY6MOD3 | |
| 4FORl=TRUE TO1:o=l ANDSGNo | |
| 5IFo=l COLOURb-15:VDUl EORg:k=k+(g=7AND9-6*l) | |
| 6IF0ELSEFORf=0TO11:d=f/3OR2EORd:GOSUBFALSE | |
| 7IF2^((f+k)MOD12)AND975AND&C2590EC/8^b VDU2080*ABSl;:o=o+p:IF0ELSENEXT, | |
| 8VDU20:UNTILo*LOGg:UNTIL0 |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 100 MA=100:MP=20:T1=TIME:DIM NP(MA) | |
| 110 FOR I=2 TO 100:NP(I)=0:NEXT | |
| 120 D=2 | |
| 130 IF D*D>MA GOTO 170 | |
| 140 IF NP(D)=1 GOTO 160 | |
| 150 FOR I=2*D TO MA STEP D:NP(I)=1:NEXT | |
| 160 D=D+1:GOTO 130 | |
| 170 PRINT "CALCULATION TOOK";TIME-T1;" JIFFY TICKS":PRINT | |
| 180 PRINT"PRIMES:";:I=2:C=0 |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Transcript of the talk at https://www.youtube.com/watch?v=S6weTM1tNzQ | |
| Thank you very much for that kind welcome! | |
| What I intend to do with my time today | |
| is divide it into two pieces | |
| not necessarily equal. | |
| The first piece will be a very cursory | |
| examination of 20, 30 years of computer design |
BigEd
/ version1.asm
Created
July 6, 2014 17:15
firmware for kim-1520 pen plotter (6500/1) via cbm-hackers
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ; 1520 ROM 01 disassembly | |
| ; 2014 Soci/Singular | |
| RAM_SIZE = $40 | |
| ROM_START = $800 | |
| ROM_SIZE = $800 | |
| WIDTH = 480 | |
| HEIGHT = 999 |
BigEd
/ gist:8323021
Created
January 8, 2014 19:34
Klaus Dormann's 6502 testsuite assembled for load and execution at 0800
Will loop if there's a discrepancy.
See https://github.com/Klaus2m5/6502_65C02_functional_tests
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| :20080000D8A2FF9AA9008D003FA246BD2E3B9513CA10F8A252BD753B9D083FCA10F7AD0005 | |
| :200820003FC900D0FEA9018D003FA0FE8898AA1003186902497F8DBD08A9004CBC08CACA07 | |
| :20084000CACACACACACACACACACACACACACACACACACACACACACACACACACACACACACACACA58 | |
| :20086000CACACACACACACACACACACACACACACACACACACACACACACACACACACACACACACACA38 | |
| :20088000CACACACACACACACACACACACACACACACACACACACACACACACACACACACACACACACA18 | |
| :2008A000CACACACACACACACACACACACACACACACACACACACACACACACACACACACAF03ECACA5E | |
| :2008C000CACACACACACACACACACACACACACACACACACACACACACACACACACACACACACACACAD8 | |
| :2008E000CACACACACACACACACACACACACACACACACACACACACACACACACACACACACACACACAB8 | |
| :20090000CACACACACACACACACACACACACACACACACACACACACACACACACACACACACACACACA97 | |
| :20092000CACACACACACACACACACACACACACACACACACACACACACACACACACACACACAF0034C96 |
BigEd
/ IOPSC-1993
Created
September 23, 2013 13:25
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| %!IOPSC-1993 %%Creator: HAYAKAWA Takashi <[email protected]> | |
| /C/neg/d/mul/R/rlineto/E/exp/H{{cvx def}repeat}def/T/dup/g/gt/r/roll/J/ifelse 8 | |
| H/A/copy(z&v4QX&93r9AxYQOZomQalxS2w!!O&vMYa43d6r93rMYvx2dca!D&cjSnjSnjjS3o!v&6A | |
| X&55SAxM1CD7AjYxTTd62rmxCnTdSST0g&12wECST!&!J0g&D1!&xM0!J0g!l&544dC2Ac96ra!m&3A | |
| F&&vGoGSnCT0g&wDmlvGoS8wpn6wpS2wTCpS1Sd7ov7Uk7o4Qkdw!&Mvlx1S7oZES3w!J!J!Q&7185d | |
| Z&lx1CS9d9nE4!k&X&MY7!&1!J!x&jdnjdS3odS!N&mmx1C2wEc!G&150Nx4!n&2o!j&43r!U&0777d | |
| ]&2AY2A776ddT4oS3oSnMVC00VV0RRR45E42063rNz&v7UX&UOzF!F!J![&44ETCnVn!a&1CDN!Y&0M | |
| V1c&j2AYdjmMdjjd!o&1r!M){( )T 0 4 3 r put T(/)g{T(9)g{cvn}{cvi}J}{($)g{[}{]}J}J | |
| cvx}forall/moveto/p/floor/w/div/S/add 29 H[{[{]setgray fill}for Y}for showpage |
BigEd
/ kb9.lbl
Created
November 21, 2012 21:40
listing and labels from KB9 BASIC source (see http://www.pagetable.com/?p=46)
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| al 004225 .QT_BASIC | |
| al 004216 .QT_BYTES_FREE | |
| al 004192 .L4192 | |
| al 004157 .L4157 | |
| al 004183 .L4183 | |
| al 0041C6 .QT_WANT | |
| al 004129 .L4129 | |
| al 004127 .L2829 | |
| al 004136 .L4136 | |
| al 004207 .QT_TERMINAL_WIDTH |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| EWoz 1.0 | |
| by fsafstrom » Mar Wed 14, 2007 12:23 pm | |
| http://www.brielcomputers.com/phpBB3/viewtopic.php?f=9&t=197#p888 | |
| via http://jefftranter.blogspot.co.uk/2012/05/woz-mon.html | |
| The EWoz 1.0 is just the good old Woz mon with a few improvements and extensions so to say. | |
| It's using ACIA @ 19200 Baud. | |
| It prints a small welcome message when started. | |
| All key strokes are converted to uppercase. |
NewerOlder