From 76ad28522c67cfc79567fcd1df050f84b17ad496 Mon Sep 17 00:00:00 2001 From: Ross Wilson Date: Wed, 2 Mar 2016 11:59:10 +0700 Subject: [PATCH] Clean up --- idasm/lc16sd_blockloader.asm | 132 +++++++++++++++++------------------ 1 file changed, 66 insertions(+), 66 deletions(-) diff --git a/idasm/lc16sd_blockloader.asm b/idasm/lc16sd_blockloader.asm index 2f34660..bbb9b85 100644 --- a/idasm/lc16sd_blockloader.asm +++ b/idasm/lc16sd_blockloader.asm @@ -2,81 +2,81 @@ ; 'lc16sd' blockloader code ; disassembled from munch.ptp ;----------------------- - ORG 03700 ; addr code + org 03700 ; addr code -ldaddr RCF ; 03700 0001032 -numwrd JMS . ; 03701 0037701 get address of 'chksum' into 'numwrd' +ldaddr rcf ; 03700 0001032 +numwrd jms . ; 03701 0037701 get address of 'chksum' into 'numwrd' -chksum LAC numwrd ; 03702 0063701 are we are running in high memory (017700+) - SAM himem ; 03703 0077775 - JMP rdblk ; 03704 0013710 if not, just load tape +chksum lac numwrd ; 03702 0063701 are we are running in high memory (017700+) + sam himem ; 03703 0077775 + jmp rdblk ; 03704 0013710 if not, just load tape - LWC 012 ; 03705 0104012 else turn on the display - DLA ; 03706 0001003 - DON ; 03707 0003100 + lwc 012 ; 03705 0104012 else turn on the display + dla ; 03706 0001003 + don ; 03707 0003100 -rdblk CAL ; 03710 0100011 initialize block checksum - DAC chksum ; 03711 0023702 - JMS rdword ; 03712 0037746 get load address - DAC ldaddr ; 03713 0023700 - ASP ; 03714 0002002 if high bit set - JMP ldend ; 03715 0013740 then end of tape load - JMS rdword ; 03716 0037746 else get number of words in block - DAC numwrd ; 03717 0023701 - JMS rdword ; 03720 0037746 read checksum word, add to checksum -blklp JMS rdword ; 03721 0037746 get data word - DAC *ldaddr ; 03722 0123700 store into memory - LAC ldaddr ; 03723 0063700 get load address - SAR 3 ; 03724 0003063 echo load address in display (if running) - AND low10 ; 03725 0047765 - IOR dlya0 ; 03726 0053764 - DAC disp ; 03727 0023766 - LAC *ldaddr ; 03730 0163700 get last data word - ISZ ldaddr ; 03731 0033700 move 'load address' pointer - ISZ numwrd ; 03732 0033701 check end of block - JMP blklp ; 03733 0013721 jump if not ended - ADD chksum ; 03734 0067702 block end, check checksum - ASZ ; 03735 0002001 if checksum invalid, - JMP . ; 03736 0013736 busy wait here - JMP rdblk ; 03737 0013710 else go get next block +rdblk cal ; 03710 0100011 initialize block checksum + dac chksum ; 03711 0023702 + jms rdword ; 03712 0037746 get load address + dac ldaddr ; 03713 0023700 + asp ; 03714 0002002 if high bit set + jmp ldend ; 03715 0013740 then end of tape load + jms rdword ; 03716 0037746 else get number of words in block + dac numwrd ; 03717 0023701 + jms rdword ; 03720 0037746 read checksum word, add to checksum +blklp jms rdword ; 03721 0037746 get data word + dac *ldaddr ; 03722 0123700 store into memory + lac ldaddr ; 03723 0063700 get load address + sar 3 ; 03724 0003063 echo load address in display (if running) + and low10 ; 03725 0047765 + ior dlya0 ; 03726 0053764 + dac disp ; 03727 0023766 + lac *ldaddr ; 03730 0163700 get last data word + isz ldaddr ; 03731 0033700 move 'load address' pointer + isz numwrd ; 03732 0033701 check end of block + jmp blklp ; 03733 0013721 jump if not ended + add chksum ; 03734 0067702 block end, check checksum + asz ; 03735 0002001 if checksum invalid, + jmp . ; 03736 0013736 busy wait here + jmp rdblk ; 03737 0013710 else go get next block ; end of load, AC is load address, high bit set -ldend DOF ; 03740 0001012 turn off the display - IAC ; 03741 0100004 - ASN ; 03742 0102001 if address is 0177777 - HLT ; 03743 0000000 then just halt - JMS rdword ; 03744 0037746 else get AC contents - JMP *ldaddr ; 03745 0113700 and jump to start address +ldend dof ; 03740 0001012 turn off the display + iac ; 03741 0100004 + asn ; 03742 0102001 if address is 0177777 + hlt ; 03743 0000000 then just halt + jms rdword ; 03744 0037746 else get AC contents + jmp *ldaddr ; 03745 0113700 and jump to start address ; read a word from tape, leave in AC -rdword DATA 0 ; 03746 0000000 - ADD chksum ; 03747 0067702 - DAC chksum ; 03750 0023702 - CAL ; 03751 0100011 - RSF ; 03752 0002040 - JMP .-1 ; 03753 0013752 - RRC ; 03754 0001033 - RAL 3 ; 03755 0003003 - RAL 3 ; 03756 0003003 - RAL 2 ; 03757 0003002 - RSF ; 03760 0002040 - JMP .-1 ; 03761 0013760 - RRC ; 03762 0001033 - JMP *rdword ; 03763 0113746 +rdword bss 1 ; 03746 0000000 + add chksum ; 03747 0067702 + dac chksum ; 03750 0023702 + cal ; 03751 0100011 + rsf ; 03752 0002040 + jmp .-1 ; 03753 0013752 + rrc ; 03754 0001033 + ral 3 ; 03755 0003003 + ral 3 ; 03756 0003003 + ral 2 ; 03757 0003002 + rsf ; 03760 0002040 + jmp .-1 ; 03761 0013760 + rrc ; 03762 0001033 + jmp *rdword ; 03763 0113746 -dlya0 DLYA 0 ; 03764 0020000 -low10 DATA 001777 ; 03765 0001777 +dlya0 dlya 0 ; 03764 0020000 +low10 data 001777 ; 03765 0001777 ; display routine, used if running in extended memory -disp DLYA 00000 ; 03766 0020000 - DLXA 00000 ; 03767 0010000 - DSTS 1 ; 03770 0004005 +disp dlya 00000 ; 03766 0020000 + dlxa 00000 ; 03767 0010000 + dsts 1 ; 03770 0004005 data 0046000 ;DLVH 02000 ; 03771 0046000 - DLYA 01777 ; 03772 0021777 - DHLT ; 03773 0000000 + dlya 01777 ; 03772 0021777 + dhlt ; 03773 0000000 - DATA 0067766 ; 03774 0067766 -himem DATA 0017702 ; 03775 0017702 - DATA 0010000 ; 03776 0010000 - DATA 0177777 ; 03777 0177777 - DATA 0000000 ; 04000 0000000 + data 0067766 ; 03774 0067766 +himem data 0017702 ; 03775 0017702 + data 0010000 ; 03776 0010000 + data 0177777 ; 03777 0177777 + data 0000000 ; 04000 0000000 - END ; + end ;