Trying to get various 6809 programs working - in progress

Author: cmarrin

test/basic.asm

@@ -262,7 +262,7 @@ GL03	JSR	GETCHR
 	BRA	GL02
 GL04	STA	,X+
 GL02
-    ; JSR	PUTCHR ; skip echo
+    JSR	PUTCHR ; skip echo
 	BRA	GL03
 GL05	CMPA	#BS
 	BEQ	GL07

test/basic.lst

@@ -1,126 +1,126 @@
-S01B00005B6C77746F6F6C7320342E32325D2062617369632E61736DA1
-S11304007E040B10DE86BD0B93201310CE5FCC1040
-S1130410DF86BD0B93CC4049DD80DD82DD84BD05E4
+S01B00005B6C77746F6F6C7320342E32335D2062617369632E61736DA0
+S11304007E040B10DE86BD0B96201310CE5FCC103D
+S1130410DF86BD0B96CC4049DD80DD82DD84BD05E1
 S1130420358E0479BD052E10DE860F93BD05359EED
 S1130430809F888E00009F8C0D932605863ABD0B05
-S11304409DBD0588BD06DF240E292BBD0650810401
-S113045027E1BD060220D034109E829C84351027EB
+S1130440A0BD0588BD06E2240E292BBD06538104F8
+S113045027E1BD060520D034109E829C84351027E8
 S1130460037E0555C30000270D340683270F350688
 S113047022048D1020BD7E054C54494E592056311E
-S11304802E3337043406BD06509F8EA6609E889C8A
-S113049082270510A30024029E80BD07BB9F8825E8
+S11304802E3337043406BD06539F8EA6609E889C87
+S113049082270510A30024029E80BD07BE9F8825E5
 S11304A0229F8A3002A680810426FA9C82270EA607
 S11304B0809F909E8AA7809F8A9E9020EE9E8A9F0E
 S11304C0829F849E8EC6FF5CA680810426F95D26E9
 S11304D003326239301FCB04301F5AA60081202713
 S11304E0F78604A7014F9E829F90D382DD82DD842C
-S11304F0BD075724079F829F847E05449E829F8A5E
+S11304F0BD075A24079F829F847E05449E829F8A5B
 S11305009E909C88270AA6829F909E8AA78220EEAE
 S113051035069E88ED819F909E8EA6809F8E9E902C
-S1130520A7809F90810426F039BD0B9D3001A60061
+S1130520A7809F90810426F039BD0BA03001A6005E
 S1130530810426F5398E053D8DF40F92390D0A7F1D
 S1130540000000048D26534F525259048D1E574803
 S11305504154203F048D15484F57203F048D0D42D0
 S11305605245414B048D0553544F50048DC78607A3
-S1130570BD0B9DDC8CBD0A558620BD0B9D35108DB1
-S1130580AD8DB27E04278DAD8E4000BD0B968120CB
-S11305902511817F27F58C4048260486072002A771
-S11305A08020E881082724811827DB810A273181EC
-S11305B00D26D80D932705BD0B9D20073410BD05CE
-S11305C03535108604A7008E4000398C400027BBC7
-S11305D0301F8608BD0B9D8620BD0B9D860820C15B
-S11305E01A01069320BB30018D66810426F8BD09EB
-S11305F028968C9A8D27149C8226037E0555EC81BF
-S1130600DD8CBD0B948D0825033406397E09398DA4
-S11306103F9F888E0B2EA680810426059E881A0192
-S1130620399F909E889F8E9E8EA100261530019F33
-S11306308E9E90A6809F90810426ECEC009E8E1CDA
-S1130640FE399E90A680810426FA300220C830012B
-S1130650A600812027F8398D1A2422814125118191
-S113066046220D80371CFE3981412504815A230D11
-S11306701A0139813025F9813922F580301CFE397F
-S11306808DCE8DE425121F89A6018DDC24E2300174
-S1130690C041584FD3861CFE39BD09073406BD0638
-S11306A050812C270981291A0127157E054C300118
-S11306B0BD083A3402BD06508129350226ED1CFEE0
-S11306C030019F88ADF19E881CFE39BD0650812DF6
-S11306D0260D30018D092506405082001CFC39BDD1
-S11306E00650BD0673242F81241A01266030016F41
-S11306F0E26FE2A600BD0657254F300134103402E4
-S1130700EC6385F0264A5849584958495849EBE062
-S1130710ED62351020DD300134026FE2A600BD0623
-S1130720732526300134103402EC635849292158CA
-S113073049291DE363291958492915EB60890029C2
-S11307400FED633261351020D335061CFE1CFD39D4
-S1130750AE6132651A033910DF8ADC8A8300309374
-S11307608439BD08F434063410E6F80235103262D8
-S11307704F39BD08F43406BD0650813D27037E057C
-S11307804C3001BD083ABD09283410E7F802351091
-S113079032627E05F1BD06509F888E07A5BD061600
-S11307A025023406395553520406995045454B04E5
-S11307B007624D454D040757049E809C8226031A08
-S11307C0033910A30026031CFC3924051A011CFD5F
-S11307D0393402860430013001A10026FA35023092
-S11307E00120D88D5534065FBD0650813D272381F5
-S11307F03C261030015CBD0650813E26113001CBF1
-S1130800042013813E265F3001CB04BD0650813D98
-S113081026043001CB0234048D203410A3631FA8B6
-S1130820441F8948483404ABE0840626014C5FA485
-S1130830622701534F35103263396FE26FE2BD0610
-S113084050812D2717812B260230018D1CE360ED8A
-S113085060BD0650812B27F1812D260A30018D09B8
-S11308604050820020E7350639BD08DC3406BD0659
-S113087050812A2748812F270335063930018D5CA2
-S1130880341030623406A800BD091B3060BD091B5A
-S11308903402861134024F5FA3622406E3621CFE15
-S11308A020021A016967696659496A6026EAA661E5
-S11308B032644D2A0430628D66351020B130018DCA
-S11308C01B3404E6623DA661E761E6603DA662E78B
-S11308D06235043DAB60AB61ED602092BD068025BE
-S11308E00934101F01EC00351039BD06DF24FABDB0
-S11308F0079524F58D113402BD0650812935022651
-S1130900033001397E054CBD075724037E0544BDE1
-S11309100650812826EE30017E083A6D002A0860D0
-S113092000600124026A00393402BD0650810427A4
-S1130930037E054C3001350239BD068024037E0553
-S11309404C3406BD0650813D27037E054C3001BD65
-S1130950083A8DD49F883510ED009E887E05F1BD40
-S113096007E35D27037E06027E05E8BD083A8DB8DD
-S1130970BD07B9250F7E05FEBD083A8DAB9F88BD26
-S113098007B924037E0555BD075724037E0544DCBF
-S1130990883406DC8C3406BD05FE3506DD8C351046
-S11309A07E05F1BD0650812C2736813B273D81040D
-S11309B027258122260630018D422009BD083A34BC
-S11309C0108D473510BD0650812C2714813B271B01
-S11309D0810427037E054C3410BD053535102014E1
-S11309E0C6078620BD0B9DD59226F73001BD065063
-S11309F0810426B230017E05F1BD0B9DA6808104E1
-S1130A0026037E054C812226F0394D2A0D40508262
-S1130A10003402862DBD0B9D35028E0A493002102A
-S1130A20A30024058C0A5326F40F9010A300250676
-S1130A30A3000C9020F5340286309B90BD0B9D35AD
-S1130A40028C0A532704300220DF39271003E80000
-S1130A5064000A00018E0A4D20CFBD0680253C3477
-S1130A60069F88863FBD0B9DBD0588BD0650810449
-S1130A7027F1BD06CB240B8E0AAFBD052EBD05356F
-S1130A8020E19F8E3510ED009E88BD0650812C27F5
-S1130A90037E05EE3001BD068024037E054C34063A
-S1130AA034109E8EBD0650812C26C0300120BC52CD
-S1130AB0452D454E544552049E8686346F804A2601
-S1130AC0FB9E807E05F7BD06DF24084F5FDD888628
-S1130AD07F2017DD88BD0650812C27049688200AC4
-S1130AE03001BD06DF24037E054CBD09283406DC35
-S1130AF0889F88BD07B99C822728350610A3002546
-S1130B00283406EC813410BD0A5535108620BD0BFF
-S1130B109DBD052E30013410BD05353510BD0B9437
-S1130B2020D432628603BD0B9D9E887E05F14C4520
-S1130B3054040939494604095F474F544F04096B6B
-S1130B40474F53554204097852455455524E0409AF
-S1130B5028504F4B450407725052494E540409A380
-S1130B60494E505554040A5A52454D0405E853540D
-S1130B704F50040565454E4404056552554E040A1C
-S1130B80B84C495354040AC64E45570404153F044F
-S1130B9009A304398D00BDFC064D27FA390C92BD1A
-S1060BA0FC003919
+S1130570BD0BA0DC8CBD0A588620BD0BA035108DA8
+S1130580AD8DB27E04278DAD8E4000BD0B998120C8
+S11305902514817F27F58C4048260486072002A76E
+S11305A080BD0BA020E581082724811827D8810A63
+S11305B02731810D26D50D932705BD0BA0200734C7
+S11305C010BD053535108604A7008E4000398C40D7
+S11305D00027B8301F8608BD0BA08620BD0BA0865F
+S11305E00820BE1A01069320B830018D66810426C6
+S11305F0F8BD092B968C9A8D27149C8226037E05C0
+S113060055EC81DD8CBD0B978D0825033406397EAE
+S1130610093C8D3F9F888E0B31A680810426059E60
+S1130620881A01399F909E889F8E9E8EA100261560
+S113063030019F8E9E90A6809F90810426ECEC0052
+S11306409E8E1CFE399E90A680810426FA300220DC
+S1130650C83001A600812027F8398D1A242281414F
+S113066025118146220D80371CFE398141250481E4
+S11306705A230D1A0139813025F9813922F5803048
+S11306801CFE398DCE8DE425121F89A6018DDC2434
+S1130690E23001C041584FD3861CFE39BD090A34EB
+S11306A006BD0653812C270981291A0127157E05C9
+S11306B04C3001BD083D3402BD0653812935022664
+S11306C0ED1CFE30019F88ADF19E881CFE39BD06ED
+S11306D053812D260D30018D092506405082001CC2
+S11306E0FC39BD0653BD0676242F81241A012660E9
+S11306F030016FE26FE2A600BD065A254F30013487
+S1130700103402EC6385F0264A5849584958495830
+S113071049EBE0ED62351020DD300134026FE2A6D2
+S113072000BD06762526300134103402EC635849A6
+S113073029215849291DE363291958492915EB60D2
+S11307408900290FED633261351020D335061CFE74
+S11307501CFD39AE6132651A033910DF8ADC8A83E5
+S11307600030938439BD08F734063410E6F80235B6
+S11307701032624F39BD08F73406BD0653813D2758
+S1130780037E054C3001BD083DBD092B3410E7F84C
+S113079002351032627E05F4BD06539F888E07A889
+S11307A0BD0619250234063955535204069C50459A
+S11307B0454B0407654D454D04075A049E809C82B1
+S11307C026031A033910A30026031CFC3924051A36
+S11307D0011CFD393402860430013001A10026FADF
+S11307E03502300120D88D5534065FBD0653813D56
+S11307F02723813C261030015CBD0653813E26111F
+S11308003001CB042013813E265F3001CB04BD06AA
+S113081053813D26043001CB0234048D203410A3CF
+S1130820631FA8441F8948483404ABE084062601AA
+S11308304C5FA4622701534F35103263396FE26F66
+S1130840E2BD0653812D2717812B260230018D1C12
+S1130850E360ED60BD0653812B27F1812D260A301C
+S1130860018D094050820020E7350639BD08DF3488
+S113087006BD0653812A2748812F270335063930C0
+S1130880018D5C341030623406A800BD091E30604E
+S1130890BD091E3402861134024F5FA3622406E3AD
+S11308A0621CFE20021A016967696659496A60265A
+S11308B0EAA66132644D2A0430628D66351020B197
+S11308C030018D1B3404E6623DA661E761E6603DBC
+S11308D0A662E76235043DAB60AB61ED602092BD7A
+S11308E00683250934101F01EC00351039BD06E2DA
+S11308F024FABD079824F58D113402BD06538129CD
+S1130900350226033001397E054CBD075A24037E87
+S11309100544BD0653812826EE30017E083D6D0056
+S11309202A086000600124026A00393402BD0653BB
+S1130930810427037E054C3001350239BD0683242A
+S1130940037E054C3406BD0653813D27037E054CCA
+S11309503001BD083D8DD49F883510ED009E887E02
+S113096005F4BD07E65D27037E06057E05EBBD089D
+S11309703D8DB8BD07BC250F7E0601BD083D8DAB7E
+S11309809F88BD07BC24037E0555BD075A24037EFA
+S11309900544DC883406DC8C3406BD06013506DDEE
+S11309A08C35107E05F4BD0653812C2736813B27F8
+S11309B03D810427258122260630018D422009BD70
+S11309C0083D34108D473510BD0653812C27148102
+S11309D03B271B810427037E054C3410BD053535A8
+S11309E0102014C6078620BD0BA0D59226F730012F
+S11309F0BD0653810426B230017E05F4BD0BA0A6CA
+S1130A0080810426037E054C812226F0394D2A0D6F
+S1130A10405082003402862DBD0BA035028E0A4C54
+S1130A20300210A30024058C0A5626F40F9010A35C
+S1130A30002506A3000C9020F5340286309B90BD5F
+S1130A400BA035028C0A562704300220DF39271008
+S1130A5003E80064000A00018E0A5020CFBD06831B
+S1130A60253C34069F88863FBD0BA0BD0588BD0686
+S1130A7053810427F1BD06CE240B8E0AB2BD052E88
+S1130A80BD053520E19F8E3510ED009E88BD0653CF
+S1130A90812C27037E05F13001BD068324037E05E6
+S1130AA04C340634109E8EBD0653812C26C0300172
+S1130AB020BC52452D454E544552049E8686346FC3
+S1130AC0804A26FB9E807E05FABD06E224084F5F1D
+S1130AD0DD88867F2017DD88BD0653812C27049688
+S1130AE088200A3001BD06E224037E054CBD092B93
+S1130AF03406DC889F88BD07BC9C822728350610F5
+S1130B00A30025283406EC813410BD0A583510861C
+S1130B1020BD0BA0BD052E30013410BD05353510A8
+S1130B20BD0B9720D432628603BD0BA09E887E0540
+S1130B30F44C455404093C4946040962474F544F58
+S1130B4004096E474F53554204097B52455455528C
+S1130B504E04092B504F4B450407755052494E54CF
+S1130B600409A6494E505554040A5D52454D0405E6
+S1130B70EB53544F50040565454E440405655255E6
+S1130B804E040ABB4C495354040AC94E4557040445
+S1130B90153F0409A604398D00BDFC064D27FA391A
+S1090BA00C92BDFC0039BB
 S503007B81
 S9030400F8

test/basic.s19

@@ -1,3 +1,6 @@
+    include BOSS9.inc
+
+
 UART      EQU  $A000
 RECEV     EQU  UART+1
 TRANS     EQU  UART+1
@@ -199,10 +202,13 @@ LA171     BSR  KEYIN          ; GET A CHARACTER FROM CONSOLE IN
 *
 *
 LA1C1
-KEYIN     LDA  USTAT
-          BITA #1
+KEYIN
+          JSR getc           ; CFM - Added
+;          LDA  USTAT
+;          BITA #1
+          TSTA               ; CFM - Added
           BEQ  NOCHAR
-          LDA  RECEV
+;          LDA  RECEV
           ANDA #$7F
           RTS
 NOCHAR    CLRA
@@ -211,22 +217,26 @@ NOCHAR    CLRA
 
 
 * CONSOLE OUT
-PUTCHR    BSR  WAITACIA
+PUTCHR
+;          BSR  WAITACIA
           PSHS A              ;
           CMPA #CR            ; IS IT CARRIAGE RETURN?
           BEQ  NEWLINE        ; YES
-          STA  TRANS
+;          STA  TRANS
+          JSR putc            ; CFM - New Code
           INC  LPTPOS         ; INCREMENT CHARACTER COUNTER
           LDA  LPTPOS         ; CHECK FOR END OF LINE PRINTER LINE
           CMPA LPTWID         ; AT END OF LINE PRINTER LINE?
           BLO  PUTEND         ; NO
 NEWLINE   CLR  LPTPOS         ; RESET CHARACTER COUNTER
-          BSR  WAITACIA
+;          BSR  WAITACIA
           LDA  #13
-          STA  TRANS
+;          STA  TRANS
+          JSR putc            ; CFM - New Code
           BSR  WAITACIA
           LDA  #10            ; DO LINEFEED AFTER CR
-          STA  TRANS
+;          STA  TRANS
+          JSR putc            ; CFM - New Code
 PUTEND    PULS A              ;
           RTS
 
@@ -407,7 +417,8 @@ LA3D9     CMPA #$20           ; IS IT CONTROL CHAR?
           BCC  LA39A          ; YES, IGNORE ANY MORE
           STA  ,X+            ; PUT IT IN INPUT BUFFER
           INCB                ; INCREMENT CHARACTER COUNTER
-LA3E8     JSR  PUTCHR         ; ECHO IT TO SCREEN
+LA3E8
+;          JSR  PUTCHR         ; ECHO IT TO SCREEN
           BRA  LA39A          ; GO SET SOME MORE