github.com/rzzzwilson.pymlac
1
0
Fork 0
mirror of https://github.com/rzzzwilson/pymlac.git synced 2025-06-10 09:32:41 +00:00
Code Issues Releases Wiki Activity

lc16sd bug is because lc16sd blockloader is a TTY blockloader

Browse Source
This commit is contained in:
Ross Wilson
2016-03-11 19:34:02 +07:00
parent 240b88263b
commit fd1dc1c833
2 changed files with 77 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

76
idasm/blockloader_lc16sd_tty.asm Normal file
View File

@@ -0,0 +1,76 @@
; disassembled from iasm/simpledisplay2.ptp
; a lc16sd blockloader for TTYIN
ORG 03700 ; addr code
addr RCF ; 03700 0001032
blkcnt JMS . ; 03701 0037701
cksum LAC blkcnt ; 03702 0063701
SAM hiaddr ; 03703 0077775
JMP rdblk ; 03704 0013710
LWC 00012 ; 03705 0104012
DLA ; 03706 0001003
DON ; 03707 0003100
rdblk CAL ; 03710 0100011
DAC cksum ; 03711 0023702 ; clear checksum
JMS rdword ; 03712 0037746 ; get block load address
DAC addr ; 03713 0023700
ASP ; 03714 0002002 ; skip if positive
JMP endtty ; 03715 0013740 ; else end-of-data
JMS rdword ; 03716 0037746 ; get 16bit data word count
DAC blkcnt ; 03717 0023701
JMS rdword ; 03720 0037746 ; get checksum from TTY
nxtwrd JMS rdword ; 03721 0037746 ; get data word
DAC *addr ; 03722 0123700 ; store in memory
LAC addr ; 03723 0063700 ; update display
SAR 3 ; 03724 0003063
AND L03765 ; 03725 0047765
IOR L03764 ; 03726 0053764
DAC L03766 ; 03727 0023766
LAC *addr ; 03730 0163700
ISZ addr ; 03731 0033700 ; bump address for next word
ISZ blkcnt ; 03732 0033701 ; block finished?
JMP nxtwrd ; 03733 0013721 ; if not, get next data word
ADD cksum ; 03734 0067702
ASZ ; 03735 0002001 ; skip if checksum OK
JMP . ; 03736 0013736 ; if not, busy wait here
JMP rdblk ; 03737 0013710
;--------------------------------------
; end of data, display off, autostart if specified
;--------------------------------------
endtty DOF ; 03740 0001012 ; display off
IAC ; 03741 0100004 ;
ASN ; 03742 0102001 ;
HLT ; 03743 0000000 ; stop here if no autostart
JMS rdword ; 03744 0037746 ; get AC contents
JMP *addr ; 03745 0113700 ; goto loaded code
;--------------------------------------
; read a word from TTYIN, updating checksum with word in AC
;--------------------------------------
rdword DATA 0 ; 03746 0000000
ADD cksum ; 03747 0067702
DAC cksum ; 03750 0023702 ; update checksum
CAL ; 03751 0100011
RSF ; 03752 0002040
JMP .-1 ; 03753 0013752 ; wait for byte available
RRC ; 03754 0001033 ; read byte, clear flag
RAL 3 ; 03755 0003003 ; shift byte into top of AC
RAL 3 ; 03756 0003003
RAL 2 ; 03757 0003002
RSF ; 03760 0002040
JMP .-1 ; 03761 0013760 ; wait for byte available
RRC ; 03762 0001033 ; read into low byte of AC
JMP *rdword ; 03763 0113746
L03764 ; 03764 0020000
L03765 ; 03765 0001777
L03766 ; 03766 0020000
; 03767 0010000
; 03770 0004005
; 03771 0046000
; 03772 0021777
; 03773 0000000
; 03774 0067766
hiaddr DATA 0017702 ; 03775 0017702
; 03776 0010000
; 03777 0177777
END ;

2
pymlac/Makefile
View File

@@ -5,7 +5,7 @@
test:
#pymlac -b ptr -c -ptr dumpmem_test_c8lds.ptp -t 040,045:050,052:055,060:065,066:071,077:0100,0110:03700,03761:03766,03777 -r 040 -r 0100
pymlac -b ptr -c -ptr dumpmem_test_lc16sd.ptp -t 0100,0110:03700,03761:03766,03777 -r 040
pymlac -b tty -c -ttyin dumpmem_test_lc16sd.ptp -t 040,045:050,052:055,060:065,066:071,077:0100,0110:03700,03761:03766,03777 -r 040
#pymlac -b ptr -c -ptr dumpmem_test.ptp -t 040,045:050,052:055,060:065,066:071,077 -r 040 -t 03700,03777 -r 0100
#pymlac -b tty -c -ttyin dumpmem_test.ptp -t 0100,0110:03700,03751:03754,03757:03762,03777 -r 040 -r 0100