;Utility to get data to PIP on an OSBORNE 1 ; ORG 103H JP GETCHAR ; PUTCHAR not implemented at present ORG 109H CHAR: DS 1 ; ORG 4000H GETCHAR: DI ;Lock out trouble XOR A OUT 0,A LD (0EF08H),A ; Now have switched in other bank, let's get data LP1: LD A,(2A00H) AND 01 JR Z,LP1 LD A,(2A01H) LD C,A ;Save char ;Switch normal RAM back again LD A,1 OUT 1,A LD (0EF08H),A ;Mem back in, stash char LD A,C LD (9),A ;Put char at PIP's input locn EI RET ;