.org	0FF78H

Start:  LXI H,0FFB9H
        CALL 11CC
        CALL 54F0
        CALL 0917
        LHLD 0F4EEH
        MVI A,0A0H
        ADD E
        MOV D,A
        SUB H
        MOV B,A
        MVI C,00H
        MOV L,C
        JNC insert
delete: PUSH B
        MOV A,H
        SUB D
        MOV B,A
        MOV H,D
        CALL 82DA
        POP B
        JMP adjust
insert: CALL 82A8
        JC start
        DAD B
adjust: LDA 0F662H
        ADD B
        STA 0F662H
        MOV A,H
        STA 0F4EFH
        SUI 0A0H
        STA 0A000H
        JMP 2C62
prompt: db      "Lomem size"
	db	" (x256)"
        db      0