Skip to content

Commit

Permalink
beautify MOKE prompts
Browse files Browse the repository at this point in the history
  • Loading branch information
@feilipu
feilipu committed Apr 25, 2023
1 parent a600c49 commit a286dbd
Show file tree
Hide file tree
Showing 15 changed files with 165 additions and 113 deletions.
2 changes: 1 addition & 1 deletion README.md
View file
Original file line number Diff line number Diff line change
Expand Up @@ -127,7 +127,7 @@ So with these changes we are now at 12% improvement over the original Microsoft

__EDIT__ the `CPDEHL` inline optimisation was reverted to provide space to add the `MEEK` and `MOKE` statements, so we're back to 9% improvement.

So at this point I'll call it done. It seems that without rewriting the code substantially that's about all that I can squeeze out. The result is that with no change in function, MS Basic is now simply 12% faster.
So at this point I'll call it done. It seems that without rewriting the code substantially that's about all that I can squeeze out. The result is that with no change in function, MS Basic for Z80 is now simply 9% faster.

---

Expand Down
6 changes: 4 additions & 2 deletions archive/nascom8kbasic.asm
View file
Original file line number Diff line number Diff line change
Expand Up @@ -4503,8 +4503,10 @@ WIDTH: CALL GETINT ; Get integer 0-255

LINES: CALL GETNUM ; Get a number
CALL DEINT ; Get integer -32768 to 32767
LD (LINESC),DE ; Set lines counter
LD (LINESN),DE ; Set lines number
EX DE,HL
LD (LINESC),HL ; Set lines counter
LD (LINESN),HL ; Set lines number
EX DE,HL ; Restore code string address
RET

DEEK: CALL DEINT ; Get integer -32768 to 32767
Expand Down
6 changes: 6 additions & 0 deletions rc2014_NascomBasic32k/bas32k.asm
View file
Original file line number Diff line number Diff line change
Expand Up @@ -4210,10 +4210,16 @@ MOKE:
MOKELP:
PUSH HL ; Save address
CALL PRHL ; Print address in HEX
LD A,':' ; Load colon
CALL OUTC ; Output character
LD A,' ' ; Space
CALL OUTC ; Output character
LD A,' ' ; Space
CALL OUTC ; Output character
LD A,(HL) ; Read byte at address
CALL PRHEX ; Print byte in HEX
LD A,' ' ; Space
CALL OUTC ; Output character
CALL PROMPT ; Output "? ", get input RINPUT
JP C,BRKRET ; CTRLC - break to command line
CALL GETCHR ; Get next character
Expand Down
44 changes: 22 additions & 22 deletions rc2014_NascomBasic32k/rc2014_32k.hex
View file
Original file line number Diff line number Diff line change
Expand Up @@ -34,7 +34,7 @@
:180318002031393738206279204D6963726F736F66740D0A00004D653A
:180330006D6F727920746F7000B5186B19CB1803825212CE15801243A6
:180348001B3C1C4F179E1BCA1CD01C361D501D2216CD1D0F152413A953
:18036000151E152F15311F3F156F157915C54E44C64F52CE455854C402
:18036000151E152F15401F3F156F157915C54E44C64F52CE455854C4F3
:18037800415441C94E505554C4494DD2454144CC4554C74F544FD2554C
:180390004EC946D24553544F5245C74F535542D2455455524ED2454D90
:1803A800D3544F50CF5554CF4ECE554C4CD7414954C44546D04F4B4574
Expand All @@ -48,7 +48,7 @@
:180468005224C8455824CC45465424D24947485424CD49442480790A0B
:180480006C09680EC60B670DAB10960DDD0B830B660B640C3A0A720BBE
:18049800A10BC80B770ADA15460CB80AE01588122916D81D4A1EF21D0F
:1804B000BE1D9F1DAD1DEF1D4F02880CA50AE308200BAD1ED806791DDE
:1804B000BE1D9F1DAD1DEF1D4F02880CA50AE308200BBC1ED806791DCF
:1804C8001A7947167C8E177CF9177F541B50FF0F46FE0F4E46534E5259
:1804E000474F4446434F564F4D554C425344442F304944544D4F534C27
:1804F800535354434E55464D4F4858C3DF02C3F60AD300C9D6006F7CC6
Expand Down Expand Up @@ -163,7 +163,7 @@
:180F3000D023CDC60EC501E40EC5ED4BDB82C5ED4BDD82C54E23462308
:180F4800C52ABC82C3D80EAF32A482CD2A0A1E24CAE305DA9E19CDCD94
:180F60000AD2A50FFEACCA4F0FFE2ECA9E19FEADCA940FFE22CA5913FC
:180F7800FEA9CA8B10FEA6CAB512FEABCA891FD6B6D2B60FCDD10ECD69
:180F7800FEA9CA8B10FEA6CAB512FEABCA981FD6B6D2B60FCDD10ECD5A
:180F90009A0829C9167DCDD80E2AC782E5CDCF18CDC60EE1C9CDB0108B
:180FA800E5EB22DB823AA482B7CCE418E1C90600074FC5CD2A0A79FEC0
:180FC0002DDADD0FCDD10ECD9A082CCDC70EEB2ADB82E3E5EBCD111624
Expand Down Expand Up @@ -318,24 +318,24 @@
:181DB8001116324382C9CDC30ECDE10AED534682ED534882C9CDE10A43
:181DD000D5E146237EC37412CDC30ECDE10AD5CD9A082CCDC30ECDE103
:181DE8000AE3732372E1C9C30000CDC30ECDE10AD5CD9A082CCD1116C7
:181E00004FB7E3CAFC14CDE60CCD7A1E3E3ACDA5083E20CDA508E5062E
:181E1800103E20CDA5087ECD7F1E2310F43E20CDA5083E20CDA508E12A
:181E00004FB7E3CAFC14CDE60CCD891E3E3ACDA5083E20CDA508E5061F
:181E1800103E20CDA5087ECD8E1E2310F43E20CDA5083E20CDA508E11B
:181E300006107EFE7FD23E1EFE20DA3E1E113E2ECDA5082310EC0DC321
:181E4800031ECDC30ECDE10AEBE5CD7A1E3E20CDA5087ECD7F1ECD1B2E
:181E600007DAE202CD2A0ACA751E2BCD931ED1EB7323C3511EE123C353
:181E7800511E7CCD7F1E7DF50F0F0F0FCD881EF1E60FC69027CE402744
:181E9000C3A508EB210000CDA51FDAE105C3A41ECDA51FD829292929DB
:181EA800B56FC3A01EC0CDD71E2AD182B7ED52D2C1051B2AA682B7EDDF
:181EC00052DACF1EED53A68221CEFF1922518213ED530482C3FA1ED702
:181ED800FE3AC2D71E0E00CD171F47CD171F57CD171F5FCD171F3DCAE5
:181EF0000C1F3CC2DE05C9CDD71ECD171F121310F9CD171F79B7C2E13C
:181F080005C3F71ECD171F79B7C2E105C3E202CD281F070707076FCDF6
:181F2000281FB56F814F7DC9D7D630FE0AD8D607C9CDE10AC521E082C5
:181F38007AFE00CA4B1FCD6A1F78FE30CA491F702371237BCD6A1F7A45
:181F5000FE00C25B1F78FE30CA5D1F70237123AF772377C121E082C365
:181F68002A1347E60FFE0ADA741FC607C6304F780F0F0F0FE60FFE0AB0
:181F8000DA851FC607C63047C9EB210000CDA51FDAE105C39C1FCDA5AB
:181F98001FDAC21F29292929B56FC3961F131AFE48CAA51FFE20CAA589
:181FB0001FD630D8FE0ADABE1FD607FE0AD8FE103FC9EB7A4BE5CD73B5
:031FC80012E1C95A
:181E4800031ECDC30ECDE10AEBE5CD891E3E3ACDA5083E20CDA5083EBF
:181E600020CDA5087ECD8E1E3E20CDA508CD1B07DAE202CD2A0ACA8405
:181E78001E2BCDA21ED1EB7323C3511EE123C3511E7CCD8E1E7DF50F4C
:181E90000F0F0FCD971EF1E60FC69027CE4027C3A508EB210000CDB4F6
:181EA8001FDAE105C3B31ECDB41FD829292929B56FC3AF1EC0CDE61E4E
:181EC0002AD182B7ED52D2C1051B2AA682B7ED52DADE1EED53A682213D
:181ED800CEFF1922518213ED530482C3091FD7FE3AC2E61E0E00CD267D
:181EF0001F47CD261F57CD261F5FCD261F3DCA1B1F3CC2DE05C9CDE6EA
:181F08001ECD261F121310F9CD261F79B7C2E105C3061FCD261F79B74F
:181F2000C2E105C3E202CD371F070707076FCD371FB56F814F7DC9D778
:181F3800D630FE0AD8D607C9CDE10AC521E0827AFE00CA5A1FCD791FE5
:181F500078FE30CA581F702371237BCD791F7AFE00C26A1F78FE30CA58
:181F68006C1F70237123AF772377C121E082C32A1347E60FFE0ADA830A
:181F80001FC607C6304F780F0F0F0FE60FFE0ADA941FC607C63047C907
:181F9800EB210000CDB41FDAE105C3AB1FCDB41FDAD11F29292929B575
:181FB0006FC3A51F131AFE48CAB41FFE20CAB41FD630D8FE0ADACD1FAC
:121FC800D607FE0AD8FE103FC9EB7A4BE5CD7312E1C9A3
:00000001FF
6 changes: 6 additions & 0 deletions rc2014_NascomBasic32k_8085/bas32k.asm
View file
Original file line number Diff line number Diff line change
Expand Up @@ -4187,10 +4187,16 @@ MOKE:
MOKELP:
PUSH HL ; Save address
CALL PRHL ; Print address in HEX
LD A,':' ; Load colon
CALL OUTC ; Output character
LD A,' ' ; Space
CALL OUTC ; Output character
LD A,' ' ; Space
CALL OUTC ; Output character
LD A,(HL) ; Read byte at address
CALL PRHEX ; Print byte in HEX
LD A,' ' ; Space
CALL OUTC ; Output character
CALL PROMPT ; Output "? ", get input RINPUT
JP C,BRKRET ; CTRLC - break to command line
CALL GETCHR ; Get next character
Expand Down
45 changes: 23 additions & 22 deletions rc2014_NascomBasic32k_8085/rc2014_32k_8085.hex
View file
Original file line number Diff line number Diff line change
Expand Up @@ -34,7 +34,7 @@
:180318002843292031393738206279204D6963726F736F66740D0A0058
:18033000004D656D6F727920746F70006E1837198418038226129715EE
:1803480054120D1BEC1B13175B1B611C671CC81CDD1CEB15581DD8142A
:18036000F0127215E714F814C01E081538154215C54E44C64F52CE4585
:18036000F0127215E714F814CF1E081538154215C54E44C64F52CE4576
:180378005854C4415441C94E505554C4494DD2454144CC4554C74F5452
:180390004FD2554EC946D24553544F5245C74F535542D2455455524E7E
:1803A800D2454DD3544F50CF5554CF4ECE554C4CD7414954C44546D0EF
Expand All @@ -48,7 +48,7 @@
:1804680043C3485224C8455824CC45465424D24947485424CD494424C0
:1804800080760A6E094E0EC30B550D7E10840DDA0B800B630B520C37CF
:180498000A6F0B9E0BC50B740AA315340CB50AA9155C12F215631DD98E
:1804B0001D7D1D491D2A1D381D7A1D4F02760CA20AE6081D0B3C1EDB1A
:1804B0001D7D1D491D2A1D381D7A1D4F02760CA20AE6081D0B4B1EDB0B
:1804C8000679F5197910167C52177CB8177F161B50D70F46D60F4E461B
:1804E000534E52474F4446434F564F4D554C425344442F304944544D22
:1804F8004F534C535354434E55464D4F4858C3E102C3F30AD300C9D6C4
Expand Down Expand Up @@ -161,7 +161,7 @@
:180F0000C904197856BAD023CD9C0EC501BA0EC5444D2ADB82E52ADDAA
:180F180082E560694E234623C52ABC82C3AE0EAF32A482CD270A1E24C4
:180F3000CAE605DA7619CDCA0AD27D0FFEACCA270FFE2ECA7619FEADB2
:180F4800CA6C0FFE22CA2513FEA9CA5E10FEA6CA8912FEABCA181FD6C2
:180F4800CA6C0FFE22CA2513FEA9CA5E10FEA6CA8912FEABCA271FD6B3
:180F6000B6D28E0FCDA70ECD9D0829C9167DCDAE0E2AC782E5CD88188D
:180F7800CD9C0EE1C9CD8310E5EB22DB823AA482B7CC9D18E1C9060049
:180F9000074FC5CD270A79FE2DDAB50FCDA70ECD9D082CCD9D0EEB2A41
Expand Down Expand Up @@ -313,24 +313,25 @@
:181D4000082CCDDA15324382C9CD990ECDDE0AEB224682224882EBC93D
:181D5800CDDE0AD5E146237EC34812CD990ECDDE0AD5CD9D082CCD9902
:181D70000ECDDE0AE3732372E1C9C30000CD990ECDDE0AD5CD9D082CA4
:181D8800CDDA154FB7E3CAC514CDD40CCD091E3E3ACDA8083E20CDA892
:181DA00008E506103E20CDA8087ECD0E1E2305C2A41D3E20CDA8083E12
:181D8800CDDA154FB7E3CAC514CDD40CCD181E3E3ACDA8083E20CDA883
:181DA00008E506103E20CDA8087ECD1D1E2305C2A41D3E20CDA8083E03
:181DB80020CDA808E106107EFE7FD2CB1DFE20DACB1D113E2ECDA808F0
:181DD0002305C2BF1D0DC38E1DCD990ECDDE0AEBE5CD091E3E20CDA8FA
:181DE800087ECD0E1ECD1E07DAE402CD270ACA041E2BCD221ED1EB7361
:181E000023C3E01DE123C3E01D7CCD0E1E7DF50F0F0F0FCD171EF1E627
:181E18000FC69027CE4027C3A808EB210000CD341FDAE405C3331ECDAE
:181E3000341FD829292929B56FC32F1EC0CD641E2AD18208D2C4050B5D
:181E48002AA68208DA5B1E606922A68221CEFF092251820360692204E4
:181E600082C3871ED7FE3AC2641E1E00CDA61E57CDA61E47CDA61E4F6F
:181E7800CDA61E3DCA9B1E3CC2E105C9CD641ECDA61E020315C2871EF3
:181E9000CDA61E7BB7C2E405C3841ECDA61E7BB7C2E405C3E402CDB7CC
:181EA8001E070707076FCDB71EB56F835F7DC9D7D630FE0AD8D607C928
:181EC000CDDE0AC521E0827AFE00CADA1ECDF91E78FE30CAD81E7023F6
:181ED80071237BCDF91E7AFE00C2EA1E78FE30CAEC1E70237123AF77F6
:181EF0002377C121E082C3F61247E60FFE0ADA031FC607C6304F780F58
:181F08000F0F0FE60FFE0ADA141FC607C63047C9EB210000CD341FDAB1
:181F2000E405C32B1FCD341FDA511F29292929B56FC3251F131AFE4807
:181F3800CA341FFE20CA341FD630D8FE0ADA4D1FD607FE0AD8FE103F03
:0A1F5000C9EB7A4BE5CD4712E1C959
:181DD0002305C2BF1D0DC38E1DCD990ECDDE0AEBE5CD181E3E3ACDA8D1
:181DE800083E20CDA8083E20CDA8087ECD1D1E3E20CDA808CD1E07DAF8
:181E0000E402CD270ACA131E2BCD311ED1EB7323C3E01DE123C3E01DCE
:181E18007CCD1D1E7DF50F0F0F0FCD261EF1E60FC69027CE4027C3A86C
:181E300008EB210000CD431FDAE405C3421ECD431FD829292929B56FA2
:181E4800C33E1EC0CD731E2AD18208D2C4050B2AA68208DA6A1E606995
:181E600022A68221CEFF09225182036069220482C3961ED7FE3AC27305
:181E78001E1E00CDB51E57CDB51E47CDB51E4FCDB51E3DCAAA1E3CC2DC
:181E9000E105C9CD731ECDB51E020315C2961ECDB51E7BB7C2E405C3BD
:181EA800931ECDB51E7BB7C2E405C3E402CDC61E070707076FCDC61E5E
:181EC000B56F835F7DC9D7D630FE0AD8D607C9CDDE0AC521E0827AFEE6
:181ED80000CAE91ECD081F78FE30CAE71E702371237BCD081F7AFE00AA
:181EF000C2F91E78FE30CAFB1E70237123AF772377C121E082C3F61282
:181F080047E60FFE0ADA121FC607C6304F780F0F0F0FE60FFE0ADA23B2
:181F20001FC607C63047C9EB210000CD431FDAE405C33A1FCD431FDA94
:181F3800601F29292929B56FC3341F131AFE48CA431FFE20CA431FD675
:181F500030D8FE0ADA5C1FD607FE0AD8FE103FC9EB7A4BE5CD4712E1A5
:011F6800C9AF
:00000001FF
6 changes: 6 additions & 0 deletions rc2014_NascomBasic32k_8085_AM9511/bas32k.asm
View file
Original file line number Diff line number Diff line change
Expand Up @@ -4019,10 +4019,16 @@ MOKE:
MOKELP:
PUSH HL ; Save address
CALL PRHL ; Print address in HEX
LD A,':' ; Load colon
CALL OUTC ; Output character
LD A,' ' ; Space
CALL OUTC ; Output character
LD A,' ' ; Space
CALL OUTC ; Output character
LD A,(HL) ; Read byte at address
CALL PRHEX ; Print byte in HEX
LD A,' ' ; Space
CALL OUTC ; Output character
CALL PROMPT ; Output "? ", get input RINPUT
JP C,BRKRET ; CTRLC - break to command line
CALL GETCHR ; Get next character
Expand Down
44 changes: 22 additions & 22 deletions rc2014_NascomBasic32k_8085_AM9511/rc2014_32k_8085_am9511.hex
View file
Original file line number Diff line number Diff line change
Expand Up @@ -34,7 +34,7 @@
:18031800676874202843292031393738206279204D6963726F736F6680
:18033000740D0A00004D656D6F727920746F70005C1725187217038280
:180348003412A5156212F9191C1AF116121A911A9B1AA51AAF1AB91AF3
:18036000C31AF915FC1AE614FE128015F5140615DC1C161546155015DE
:18036000C31AF915FC1AE614FE128015F5140615EB1C161546155015CF
:18037800C54E44C64F52CE455854C4415441C94E505554C4494DD245D5
:180390004144CC4554C74F544FD2554EC946D24553544F5245C74F5321
:1803A8005542D2455455524ED2454DD3544F50CF5554CF4ECE554C4CCC
Expand All @@ -49,7 +49,7 @@
:1804800045465424D24947485424CD49442480840A7C095C0ED10B6385
:180498000D8C10920DE80B8E0B710B600C450A7D0BAC0BD30B820AB1E7
:1804B00015420CC30AB7156A120016071BF51B991BED1ACE1ADC1A1EBD
:1804C8001B4F02840CB00AF4082B0B581CE906793716791A167CFB16D5
:1804C8001B4F02840CB00AF4082B0B671CE906793716791A167CFB16C6
:1804E0007C20177F031A50E50F46E40F4E46534E52474F4446434F56A9
:1804F8004F4D554C425344442F304944544D4F534C535354434E5546F1
:180510004D4F4858C3E102C3010BD300C9FFFFFFFFFFFFFFFFFFFFFF91
Expand Down Expand Up @@ -162,7 +162,7 @@
:180F18000EC501C80EC5444D2ADB82E52ADD82E560694E234623C52A55
:180F3000BC82C3BC0EAF32A482CD350A1E24CAF405DA6418CDD80AD2EF
:180F48008B0FFEACCA350FFE2ECA6418FEADCA7A0FFE22CA3313FEA9F8
:180F6000CA6C10FEA6CA9712FEABCA341DD6B6D29C0FCDB50ECDAB083F
:180F6000CA6C10FEA6CA9712FEABCA431DD6B6D29C0FCDB50ECDAB0830
:180F780029C9167DCDBC0E2AC782E5CD7617CDAA0EE1C9CD9110E5EB26
:180F900022DB823AA482B7CC8B17E1C90600074FC5CD350A79FE31DAEC
:180FA800C30FCDB50ECDAB082CCDAB0EEB2ADB82E3E5EBCDE815EBE3E0
Expand Down Expand Up @@ -293,24 +293,24 @@
:181B60007CC2821BDB4267DB426FDB4257DB425F7D87291F106F7CC685
:181B7800806722DD82EB22DB82C90F0F0FDAEC050F0FDA010B0FDAE0F5
:181B900005210000545DC37A1BCDA70ECDEC0AD5CDAB082CCDE8154F2F
:181BA800B7E3CAD314CDE20CCD251C3E3ACDB6083E20CDB608E506102A
:181BC0003E20CDB6087ECD2A1C2305C2C01B3E20CDB6083E20CDB608FC
:181BA800B7E3CAD314CDE20CCD341C3E3ACDB6083E20CDB608E506101B
:181BC0003E20CDB6087ECD391C2305C2C01B3E20CDB6083E20CDB608ED
:181BD800E106107EFE7FD2E71BFE20DAE71B113E2ECDB6082305C2DB68
:181BF0001B0DC3AA1BCDA70ECDEC0AEBE5CD251C3E20CDB6087ECD2AAC
:181C08001CCD2C07DAE402CD350ACA201C2BCD3E1CD1EB7323C3FC1B58
:181C2000E123C3FC1B7CCD2A1C7DF50F0F0F0FCD331CF1E60FC6902712
:181C3800CE4027C3B608EB210000CD501DDAF205C34F1CCD501DD8295E
:181C5000292929B56FC34B1CC0CD801C2AD18208D2D2050B2AA68208F7
:181C6800DA771C606922A68221CEFF09225182036069220482C3A31C02
:181C8000D7FE3AC2801C1E00CDC21C57CDC21C47CDC21C4FCDC21C3DEB
:181C9800CAB71C3CC2EF05C9CD801CCDC21C020315C2A31CCDC21C7B07
:181CB000B7C2F205C3A01CCDC21C7BB7C2F205C3E402CDD31C0707071D
:181CC800076FCDD31CB56F835F7DC9D7D630FE0AD8D607C9CDEC0AC59B
:181CE00021E0827AFE00CAF61CCD151D78FE30CAF41C702371237BCD27
:181CF800151D7AFE00C2061D78FE30CA081D70237123AF772377C121E7
:181D1000E082C3041347E60FFE0ADA1F1DC607C6304F780F0F0F0FE679
:181D28000FFE0ADA301DC607C63047C9EB210000CD501DDAF205C34771
:181D40001DCD501DDA6D1D29292929B56FC3411D131AFE48CA501DFE3F
:181D580020CA501DD630D8FE0ADA691DD607FE0AD8FE103FC9EB7A4B53
:061D7000E5CD5512E1C9AA
:181BF0001B0DC3AA1BCDA70ECDEC0AEBE5CD341C3E3ACDB6083E20CDCD
:181C0800B6083E20CDB6087ECD391C3E20CDB608CD2C07DAE402CD35D2
:181C20000ACA2F1C2BCD4D1CD1EB7323C3FC1BE123C3FC1B7CCD391C84
:181C38007DF50F0F0F0FCD421CF1E60FC69027CE4027C3B608EB210096
:181C500000CD5F1DDAF205C35E1CCD5F1DD829292929B56FC35A1CC043
:181C6800CD8F1C2AD18208D2D2050B2AA68208DA861C606922A68221A9
:181C8000CEFF09225182036069220482C3B21CD7FE3AC28F1C1E00CD15
:181C9800D11C57CDD11C47CDD11C4FCDD11C3DCAC61C3CC2EF05C9CDBB
:181CB0008F1CCDD11C020315C2B21CCDD11C7BB7C2F205C3AF1CCDD13C
:181CC8001C7BB7C2F205C3E402CDE21C070707076FCDE21CB56F835F2D
:181CE0007DC9D7D630FE0AD8D607C9CDEC0AC521E0827AFE00CA051DD4
:181CF800CD241D78FE30CA031D702371237BCD241D7AFE00C2151D78A2
:181D1000FE30CA171D70237123AF772377C121E082C3041347E60FFE50
:181D28000ADA2E1DC607C6304F780F0F0F0FE60FFE0ADA3F1DC607C6E8
:181D40003047C9EB210000CD5F1DDAF205C3561DCD5F1DDA7C1D2929E1
:181D58002929B56FC3501D131AFE48CA5F1DFE20CA5F1DD630D8FE0ACA
:151D7000DA781DD607FE0AD8FE103FC9EB7A4BE5CD5512E1C9A9
:00000001FF
6 changes: 6 additions & 0 deletions rc2014_NascomBasic32k_AM9511/bas32k.asm
View file
Original file line number Diff line number Diff line change
Expand Up @@ -4012,10 +4012,16 @@ MOKE:
MOKELP:
PUSH HL ; Save address
CALL PRHL ; Print address in HEX
LD A,':' ; Load colon
CALL OUTC ; Output character
LD A,' ' ; Space
CALL OUTC ; Output character
LD A,' ' ; Space
CALL OUTC ; Output character
LD A,(HL) ; Read byte at address
CALL PRHEX ; Print byte in HEX
LD A,' ' ; Space
CALL OUTC ; Output character
CALL PROMPT ; Output "? ", get input RINPUT
JP C,BRKRET ; CTRLC - break to command line
CALL GETCHR ; Get next character
Expand Down
Loading

0 comments on commit a286dbd

Please sign in to comment.