Micro­power

  

September 1981, Volume 1, Number 2











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

17C5  F7         GETLN    RST 16              Print prompt char.
17C6  EF 18 00            PRT CCR             and CRLF
17C9  E5                  PUSH HL             Save HL
17CA  AF                  XOR A               Clear Accumulator
17CB  32 BF 0E            LD (BUFFER-1), A    Clear Marker
17CE  DF 63               SCAL INLIN          Get screen line
17D0  21 2F 00            LD HL, 47
17D3  06 30               LD B, 48
17D5  19                  ADD HL, DE          Point to end of line
17D6  7E         SCN1     LD A, (HL)          Look for space
17T7  FE 20               CP £20              Space character
17D9  20 10               JR NZ, CHRFND
17DB  2B                  DEC HL              Move left across
17DC  10 F8               DJNZ SCN1           line but not off
17DE  21 C0 0E            LD HL, BUFFR
17E1  36 0D      ELINE    LD (HL), £0D        Insert CR
17E3  23                  INC HL
17E4  23                  INC HL
17E5  36 FF               LD (HL), £FF        Insert terminator
17E7  2B                  DEC HL
17E8  EB                  EX DE, HL
17E9  E1                  POP HL              Restore HL
17EA  C9                  RET
17EB  EB         CHRFND   EX DE, HL
17EC  11 C0 0E            LD DE, BUFFR        Point at BUFFR
17EF  48                  LD C, B             Get length in BC
17F0  06 00               LD B, 0
17F2  ED B0               LDIR                Copy to BUFFR
17F4  EB                  EX DE, HL
17F5  18 EA               JR ELINE

In addition, change £1042 from £3A to 00.

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


This is an OCR’d version of the scanned page and likely contains recognition errors.











Page 16 of 33