and its working: netzherpes.de/kb9_found.pap



Way to success:
1. Load kb9_found.pap
2. Reset
3. 00F1 00.
4. 4065 G

weiterlesen ...

Mein in die Jahre gekommenes altes Windows Tablet (Asus VivoTab Note 8) ließ sich nicht mehr laden.
Der einzige Port dieses kleinen Zechentabletts ist ein micro USB Anschluß, der sowohl zum Laden als auch zum Anschließen von Peripherie genutzt wird.
Die Kontake der USB Buchse sind _derart_ minderwertig, das sie abreißen _müssen_.



Ersatzteile gibt es nicht mehr, und obwohl das Tablett noch bis vor dem Ausfall perfekt funktioniert hat, ist es damit Schrott.

Es sei denn.....

man findet ein Dirty Hack:

Heckklappe entfernen und ein 2 € USB Li-Ion Ladegerät direkt an die Akku Anschlüsse löten (die Äußeren am Akkuanschluss).
Das ganze ist natürlich brandgefährlich (im wahrsten Sinne) und auf keinen Fall zur Nachahmung empfohlen!
Kurzschlüsse sind möglich, aber ich kann nicht immer auf die guten Zeicheneigenschaften verzichten.


webdoc

#M80TA IO_BD./AS #vivotab #killswitch #asus #usb #charge #broken #killswitch

It is sadly not very easy to find Programs or books for the KIM-1. Despite this microcomputer has been very popular in the late 70s, most pieces seem to end in the trashbin in the euphoric belief in progress. Old programs, Books, Tapes, magazines are rare. Hans Otten and Rich Cini did a great Job in preserving those last memories of existence (see https://www.netzherpes.de/blog/index.php?entry=MOS-KIM-1-resources ), but you should never rely on just one sauce. (Old BBQ wisdom)

Meanwhile I started a small collection of PDFs.
BTW: This one has not been found anywhere else. I got it from a little old book shop around the corner
Günther Eisenack - Programmieren von Mikrocomputern (Skriptum)

The rest of the collection is on a google drive (maybe I put it on Netzherpes later...)
KIM-1 Collection on my Google Drive

Have Fun,
Nils

And in german:

Es ist gar nicht so leicht Programme oder Literatur über den KIM-1 zu finden. Zwar war der Mikrocomputer Ende der 70er überaus beliebt, doch scheint in der Euphorie durch den Glauben an den Fortschritt vieles im Orkus gelandet zu sein. Alte Programme, Kasetten, Bücher, sind rar.

Mittlerweile habe ich eine kleine PDF Sammlung angelegt, doch dieses Exemplar hier konnte ich nirgendwo online finden:

Günther Eisenack - Programmieren von Mikrocomputern (Skriptum)

Und hier der Link für die gesamte KIM-1 Sammlung auf meinem Google Drive


Viel Spass,

Webdoktor

#commodore #mos #kim-1 #6502 #65o2 #assembler #programming #learn

Just a minor update for my PAL-1 ... a little acryl housing



so long
webdoktor

; kim_msg.asm ; testing lin2c64 6510 assembler ; using J. Butterfield's scan display from Wumpus ; 01/03/2013 ces ; modified code from user chassum on brielcomputers.com/phpBB3 ; using timer 1 instead (at $1747) and added / fixed ; some chars 21.01.2021 webdoktor @ netzherpes . de ; define some pseudo-alphabet characters A_ .equ $f7 _a .equ $5f B_ .equ $ff _b .equ $fc C_ .equ $b9 _c .equ $d8 _d .equ $de E_ .equ $f9 _e .equ $7b F_ .equ $f1 G_ .equ $bd _g .equ $ef H_ .equ $f6 _h .equ $f4 I_ .equ $b0 _i .equ $10 J_ .equ $9e K_ .equ $f0 ; non-standard L_ .equ $b8 _l .equ $86 _m .equ $a3 ; non-standard N_ .equ $b7 _n .equ $54 O_ .equ $bf _o .equ $dc P_ .equ $f3 _q .equ $e7 R_ .equ $31 _r .equ $d0 S_ .equ $ed _t .equ $f8 U_ .equ $be _u .equ $9c _v .equ $c2 ; non-standard _w .equ $0c ; the right half after _u _x .equ $e4 ; non-standard Y_ .equ $ee Z_ .equ $5b Qmrk .equ $d3 dsh .equ $c0 spc .equ $80 ch0 .equ $bf ch1 .equ $86 ch2 .equ $dB ch3 .equ $cf ch4 .equ $e6 ch5 .equ $ed ch6 .equ $fd ch7 .equ $87 ch8 .equ $ff ch9 .equ $ef SAD .equ $1740 ; data port for pins 1-4 SADD .equ $1741 SBD .equ $1742 ; data port for pins 5-6 SBDD .equ $1743 TIMER2 .equ $1747 ; optional 2nd 6532 timer led1 .equ $08 ; LED selectors (left to right) led2 .equ $0a led3 .equ $0c led4 .equ $0e led5 .equ $10 led6 .equ $12 lout .equ $7f ; set pins as output to left 4 LEDs rout .equ $1e ; set pins as output to right 2 LEDs tmr .equ $00db ptr .equ $00dc xfrhi .equ $00dd xfrlo .equ $00de tmp1 .equ $00df cbuff .equ $00e8 .org $0180 ; start of data msg0 .byte spc spc spc spc spc _n _e _t Z_ _h _e _r P_ _e S_ spc spc spc spc spc spc $00 ; add some spaces in the begginning and end to make it scroll msg1 .byte spc ch0 ch1 ch2 ch3 ch4 ch5 ch6 ch7 ch8 ch9 $00 msg2 .byte _t _h I_ S_ spc I_ S_ spc A_ spc _t E_ S_ _t $00 msg3 .byte H_ E_ L_ L_ O_ spc _u _w _o _r _l _d $00 msg4 .byte spc spc spc _b Y_ E_ $00 MSG5 .BYTE spc spc spc spc spc spc $00 lo0 .equ <msg0 hi0 .equ >msg0 lo1 .equ <msg1 hi1 .equ >msg1 lo2 .equ <msg2 hi2 .equ >msg2 lo3 .equ <msg3 hi3 .equ >msg3 lo4 .equ <msg4 hi4 .equ >msg4 lo5 .equ <msg5 hi5 .equ >msg5 .org $0200 ; start of code main ldy #hi0 lda #lo0 jsr scan ; ldy #hi1 ; lda #lo1 ; jsr scan ; ldy #hi2 ; lda #lo2 ; jsr scan ; ldy #hi3 ; lda #lo3 ; jsr scan ; ldy #hi4 ; lda #lo4 ; jsr scan ; ldy #hi5 ; lda #lo5 ; jsr scan jmp main .org $0300 scan sty xfrlo ; y and a get loaded before jsr to scan sta xfrhi lda #$07 ; init scan forward sta tmp1 ldy #$05 ; init y cont ldx #$05 ; init x char lda (xfrhi),y ; get character cmp #$00 ; last character? bne more ; if not, continue rts more sta cbuff,x ; store char dey ; set up next char dex ; set up next store loc bpl char ; loop if not 6th char cld ; binary mode clc ; prepare to add (clear carry flag) tya ; get char pointer adc tmp1 ; update for 6 new characters sta ptr ; save new pointer jsr dspdly ; delay display ldy ptr ; restore pointer jmp cont ; continue with rest of message dspdly ldx #$0a ; set the delay rate here stx tmr ; put in decr. location time lda #$52 ; load timer sta TIMER2 ; start timer lite jsr disp ; gosub display rtn bit TIMER2 ; timer done? bpl lite ; if not, loop dec tmr ; decrement timer counter bne time ; not finished rts ; now get 6 new characters disp lda #lout ; change left led segments sta SADD ; to outputs ldy #$00 ; init recall index ldx #$09 ; init digit number six lda cbuff,y ; get character sty $00fc ; save y for monitor disp routine jsr $1f4e ; monitor routine - disp char, delay 500 cycles iny ; set up for next char cpy #$06 ; 6 char displayed? bcc six ; no ; JSR $1f3d ; check keypress if you want to rts
results in the Punchtape Output
;1801808080808080547BF85BF47BD0F37BED8080808080800080BF0E14 ;18019886DBCFE6EDFD87FFEF00F8F4B0ED80B0ED80F780F8F9EDF81399 ;1801B000F6F9B8B8BF809C0CDCD086DE00808080FCEEF9008080800F02 ;0401C880808000024D ;0A0200A001A9802000034C00020247 ;18030084DE85DDA90785DFA005A205B1DDC900D0016095E888CA100CA6 ;180318F3D8189865DF85DC202803A4DC4C0A03A20A86DBA9528D470B53 ;18033017203E032C471710F8C6DBD0EF60A97F8D4117A000A209B90A26 ;0D0348E80084FC204E1FC8C00690F36006BE ;0000090009
Start the programm at 0200.

Have fun,
webdoktor