Statistics: Posted by kang3055 — 19 Sep 2023 01:40
Statistics: Posted by Shaos — 18 Sep 2023 20:30
Statistics: Posted by kang3055 — 18 Sep 2023 19:50
Statistics: Posted by Shaos — 23 Feb 2023 21:45
Screenshot from 2023-02-23 20-47-29.png | ||
20230223_205538.resized.jpg | ||
Statistics: Posted by Just4Fun — 23 Feb 2023 13:16
Statistics: Posted by Shaos — 19 Jan 2023 20:50
20230119_191948_b.jpg | ||
KR1801VM2_hello.jpg | ||
Code: 000000 ; 000000 ; Hello World for the KR1801VM2 ABP (A291221) + Studio 68 (A100821) using M4K RAM blocks 000000 ; 000000 ; Required: H020123 VHDL (FPGA logic) and S160123 (STM32 side) 000000 ; 000000 ; Assembled with AsmPDP.exe (windows) assembler (http://mdfs.net/Software/PDP11/Assembler) 000000 ; (NOTE: Hex values must be uppercase; i.e &0A is valid, &0a not!!!) 000000 ; 000000 000000 000000 ; H020123 equates 000000 IO_STATUS: equ &FFF0 ; IO Status Register (IR0 read only) 000000 SER_TX: equ &FFF2 ; Serial Tx IO Register (OR1 write only) 000000 SER_RX: equ &FFF2 ; Serial Rx IO Register (IR1 read only) 000000 MAX_RAM: equ &2FFE ; Max allowed RAM word address (RAM is 6.144 words wide) 000000 000000 ; Common chars 000000 eos: equ &00 ; End of string 000000 cr: equ &0D ; Carriage return 000000 lf: equ &0A ; Line feed 000000 000000 org 0 000000 ; Boot vecctors 000000 000144 equw start ; PC content loaded at boot 000002 000340 equw &00E0 ; PSW content loaded at boot 000004 000144 org 100 000144 start: 000144 012706 027764 mov #stack,r6 ; Initialize the SP 000150 010701 mov pc,r1 000152 062701 000044 add #msg-$,r1 ; calculate address of 'hello' 000156 000156 loop: 000156 112100 movb (r1)+,r0 ; get byte from r1, inc r1 000160 001403 beq end ; exit if final byte 000162 004767 000004 jsr pc,putc ; send current character (R0 low) 000166 000773 br loop ; loop back 000170 000170 end: 000170 000765 br start ; loop forever 000172 000172 ; 000172 ; Print a charcter on R0 low 000172 ; 000172 putc: 000172 012702 177760 mov #IO_STATUS,r2 ; R2 = address of the IO_STATUS I/O register 000176 waitTxRdy: 000176 111203 movb (r2),r3 ; R3 = IO_STATUS content 000200 132703 000040 bitb #&20,r3 ; Serial Tx ready (Z=0)? 000204 001774 beq waitTxRdy ; No, jump 000206 012702 177762 mov #SER_TX,r2 ; R2 = address of the SER_TX I/O register 000212 110012 movb r0,(r2) ; Write current char to the SER_TX register 000214 000207 rts pc ; Return 000216 000216 msg: 000216 110 145 154 154 157 040 167 157 162 154 144 040 146 162 157 155 040 164 150 145 040 113 122 061 070 060 061 126 115 062 040 103 120 125 041 015 012 000 equs "Hello world from the KR1801VM2 CPU!", cr, lf, eos 000264 align 000264 027764 org MAX_RAM - 10 027764 align 027764 stack: Errors: 0 | ||
Statistics: Posted by Just4Fun — 19 Jan 2023 12:05
Statistics: Posted by Shaos — 10 Dec 2022 20:10
A291221.jpg | ||
A050922.jpg | ||
20221207_200254B.jpg | ||
Statistics: Posted by Just4Fun — 10 Dec 2022 05:43
Statistics: Posted by Just4Fun — 15 Oct 2022 03:18
Just4Fun wrote: Yes of course! Unfortunately in "this period" it's impossible to find one, so I've to wait for "better times"... | ||
Statistics: Posted by Shaos — 14 Oct 2022 23:08
Statistics: Posted by Just4Fun — 14 Oct 2022 03:54
Mixa64 wrote: You may want to measure negative substrate bias voltage... | ||
20221006_203358.jpg | ||
Shaos wrote: Did you pull-up everything that should be pulled up? | ||
Statistics: Posted by Just4Fun — 08 Oct 2022 05:20