Micro­power

  

Volume 1, Number 2 – September 1981

Page 16 of 33

155E1F0D
15811F0D
15F51F18
15FA1F0D
1665CD4A0CF70000CRT Routine
16691F0D
16781F0D
1691CD4A0CF70000CRT Routine
169DCD4A0CF70000CRT Routine
16D0CD4A0CF70000CRT Routine
16DBCD4A0CF70000CRT Routine
170544554D5053415645‘DUMP’ now ‘SAVE’
175D91DE9341CLEAR is no longer active
177D494E942391DE‘IN’ vector becomes ‘£’
AC9440944000
17A8Change to E5D5DF7BD1E1C9Keyboard routine
17B3CD4D0CDF6200Keyboard
17BACD4D0CDF6200Keyboard
17CECD4A0CF70000CRT routine
17D430FB0000Not needed if new GETLN used
17DD1D08Backspace
17EA1F0D
17FD1F0D

NEW GETLN ROUTINE FOR TINY BASIC TBI-V2

17C5F7GETLNRST 16Print prompt char.
17C6EF 18 00PRT CCRand CRLF
17C9E5PUSH HLSave HL
17CAAFXOR AClear Accumulator
17CB32 BF 0ELD (BUFFER-1), AClear Marker
17CEDF 63SCAL INLINGet screen line
17D021 2F 00LD HL, 47
17D306 30LD B, 48
17D519ADD HL, DEPoint to end of line
17D67ESCN1LD A, (HL)Look for space
17T7FE 20CP £20Space character
17D920 10JR NZ, CHRFND
17DB2BDEC HLMove left across
17DC10 F8DJNZ SCN1line but not off
17DE21 C0 0ELD HL, BUFFR
17E136 0DELINELD (HL), £0DInsert CR
17E323INC HL
17E423INC HL
17E536 FFLD (HL), £FFInsert terminator
17E72BDEC HL
17E8EBEX DE, HL
17E9E1POP HLRestore HL
17EAC9RET
17EBEBCHRFNDEX DE, HL
17EC11 C0 0ELD DE, BUFFRPoint at BUFFR
17EF48LD C, BGet length in BC
17F006 00LD B, 0
17F2ED B0LDIRCopy to BUFFR
17F4EBEX DE, HL
17F518 EAJR ELINE
In addition, change £1042 from £3A to 00.

**   ..   **   ..   **   ..   **   ..   **   ..   **


Page 16 of 33